From db00fc94a8f90866848ac4678d31339f49fa957a Mon Sep 17 00:00:00 2001 From: Barry Kane Date: Thu, 13 Apr 2023 03:00:28 +0100 Subject: [PATCH] Why not both a REPL and a REPL server? --- src/schemeintegration.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/schemeintegration.c b/src/schemeintegration.c index fe62496..ed95306 100644 --- a/src/schemeintegration.c +++ b/src/schemeintegration.c @@ -206,9 +206,10 @@ void * schemeHandler(void * parameters) // Enable readline support: scm_c_eval_string("(begin (use-modules (ice-9 readline)) (activate-readline))"); - scm_c_eval_string("(begin (use-modules (system repl server)) (if (file-exists? \"silvermud-repl\") (delete-file \"silvermud-repl\"))(run-server (make-unix-domain-server-socket #:path \"silvermud-repl\")))"); - // Drop into the Scheme interpreter: -// scm_shell(0, NULL); + scm_c_eval_string("(begin (use-modules (system repl server)) (if (file-exists? \"silvermud-repl\") (delete-file \"silvermud-repl\"))(spawn-server (make-unix-domain-server-socket #:path \"silvermud-repl\")))"); + +// Drop into the Scheme interpreter: + scm_shell(0, NULL); // Return NULL. This should be unreachable. return NULL;