Why not both a REPL and a REPL server?

This commit is contained in:
Barra Ó Catháin 2023-04-13 03:00:28 +01:00
parent 70bdb879bf
commit db00fc94a8
1 changed files with 4 additions and 3 deletions

View File

@ -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\")))");
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);
scm_shell(0, NULL);
// Return NULL. This should be unreachable.
return NULL;