From 31d4d0fb22546efe897756ad00699d44907c7737 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 11 May 2016 15:37:53 -0500 Subject: [PATCH 1/1] Switch inject-special! to do-inject-special! --- mudsync/run-game.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/mudsync/run-game.scm b/mudsync/run-game.scm index ff58f23..6bacfcd 100644 --- 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 - inject-special! + do-inject-special! make-special-injector ;; Debug stuff, might go away @@ -87,7 +87,7 @@ #: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)) @@ -113,5 +113,5 @@ (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)))) -- 2.31.1