Add "shout" as an example of a scheme procedure.

2023-04-13 02:26:36 +01:00 · 2023-04-13 02:26:36 +01:00 · 7118d8e3d7
parent f1673754bf
commit 7118d8e3d7
1 changed files with 3 additions and 0 deletions
--- a/scheme/basic-functions.scm
+++ b/scheme/basic-functions.scm
@ -2,3 +2,6 @@
 							 (begin
 							   (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))