projects
/
mudsync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Switch inject-special! to do-inject-special!
[mudsync.git]
/
mudsync
/
run-game.scm
diff --git
a/mudsync/run-game.scm
b/mudsync/run-game.scm
index ff58f23a91beadd32c95f2212f23110dc5ba1fea..6bacfcd573d7de43fa01b542fede6a9487b1c4d6 100644
(file)
--- a/
mudsync/run-game.scm
+++ b/
mudsync/run-game.scm
@@
-26,7
+26,7
@@
#:use-module (ice-9 receive)
#:use-module (ice-9 q)
#:export (run-demo
#:use-module (ice-9 receive)
#:use-module (ice-9 q)
#:export (run-demo
- inject-special!
+
do-
inject-special!
make-special-injector
;; Debug stuff, might go away
make-special-injector
;; Debug stuff, might go away
@@
-87,7
+87,7
@@
#:post-run-hook post-run-hook)))
#:post-run-hook post-run-hook)))
-(define (inject-special! queue hive gm-id game-spec special-symbol)
+(define (
do-
inject-special! queue hive gm-id game-spec special-symbol)
(define gameobj-spec
(or (find
(lambda (entry) (eq? (car entry) special-symbol))
(define gameobj-spec
(or (find
(lambda (entry) (eq? (car entry) special-symbol))
@@
-113,5
+113,5
@@
(lambda (agenda)
(queue-injected-tasks-on-agenda! agenda inject-queue))
(lambda (game-spec special-symbol)
(lambda (agenda)
(queue-injected-tasks-on-agenda! agenda inject-queue))
(lambda (game-spec special-symbol)
- (inject-special! inject-queue hive gm-id
- game-spec special-symbol))))
+ (
do-
inject-special! inject-queue hive gm-id
+
game-spec special-symbol))))