Add "shout" as an example of a scheme procedure.
This commit is contained in:
parent
f1673754bf
commit
7118d8e3d7
|
@ -2,3 +2,6 @@
|
||||||
(begin
|
(begin
|
||||||
(create-path from-path-description from-area to-area arealist)
|
(create-path from-path-description from-area to-area arealist)
|
||||||
(create-path to-path-description to-area from-area arealist)))
|
(create-path to-path-description to-area from-area arealist)))
|
||||||
|
|
||||||
|
(define (shout message outputqueue)
|
||||||
|
(message-everyone "SERVER" message outputqueue))
|
||||||
|
|
Loading…
Reference in New Issue