From 7118d8e3d780ceae93f3e67bc5e5e7b15d7965c3 Mon Sep 17 00:00:00 2001 From: Barry Kane Date: Thu, 13 Apr 2023 02:26:36 +0100 Subject: [PATCH] Add "shout" as an example of a scheme procedure. --- scheme/basic-functions.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/scheme/basic-functions.scm b/scheme/basic-functions.scm index 27f3c7c..9b8a8d4 100644 --- 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))