diff --git a/backend/Makefile.in b/backend/Makefile.in index 25a79de..4416e03 100644 --- a/backend/Makefile.in +++ b/backend/Makefile.in @@ -17,4 +17,4 @@ up: deps .backend.lock @nohup $(GUILE) ./main.scm > yacswa-backend.log & export PID=$$! & echo "Server spawned with PID $${PID}"; echo $${PID} > .backend.lock; unset PID down: - @export PID=`cat .backend.lock`; kill -15 $${PID}; rm .backend.lock; rm bc; echo "Server on PID $${PID} down."; unset PID + @export PID=`cat .backend.lock`; kill -15 $${PID}; rm .backend.lock; echo "Server on PID $${PID} down."; unset PID diff --git a/backend/src/spawn_interaction.scm b/backend/src/spawn_interaction.scm index 4335a82..9931eb4 100644 --- a/backend/src/spawn_interaction.scm +++ b/backend/src/spawn_interaction.scm @@ -8,9 +8,10 @@ ;; : ;; Backchannel +#! (define repl-sock (make-unix-domain-server-socket #:path "./bc")) (spawn-server repl-sock) - +!# ;; endpoint helpers (define (err: text) (scm->json-string `((error . ,text))))