From f488a4ac7c641d7cf4e47a015ac116720eb69df2 Mon Sep 17 00:00:00 2001 From: Barry Kane Date: Sat, 15 Apr 2023 23:46:06 +0100 Subject: [PATCH] Add a comment explaining what shout does. --- scheme/basic-functions.scm | 5 +++-- src/schemeintegration.c | 4 ++-- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/scheme/basic-functions.scm b/scheme/basic-functions.scm index 9b8a8d4..fcdd45c 100644 --- a/scheme/basic-functions.scm +++ b/scheme/basic-functions.scm @@ -3,5 +3,6 @@ (create-path from-path-description from-area to-area arealist) (create-path to-path-description to-area from-area arealist))) -(define (shout message outputqueue) - (message-everyone "SERVER" message outputqueue)) +;; Send a quick message to everyone in the game as the server: +(define (shout message) + (message-everyone "SERVER" message output-queue)) diff --git a/src/schemeintegration.c b/src/schemeintegration.c index ed95306..f915eca 100644 --- a/src/schemeintegration.c +++ b/src/schemeintegration.c @@ -206,9 +206,9 @@ 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\"))(spawn-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: + // Drop into the Scheme interpreter: scm_shell(0, NULL); // Return NULL. This should be unreachable.