summaryrefslogtreecommitdiff
path: root/2d/repl
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-09-02 17:06:49 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-09-02 17:06:49 -0400
commit5e36a594d66c0f5208c97fa1a8e142c0014d172d (patch)
treee66171878759cb04c7dc33fd3d6e7399b2c15157 /2d/repl
parentf1bdb8ce4fef8272850b6449ba1a83fd84dd2416 (diff)
Move both mvars into the repl module.
Diffstat (limited to '2d/repl')
-rw-r--r--2d/repl/repl.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/2d/repl/repl.scm b/2d/repl/repl.scm
index a5b0536..58b79e3 100644
--- a/2d/repl/repl.scm
+++ b/2d/repl/repl.scm
@@ -31,7 +31,7 @@
#:use-module (ice-9 control)
#:use-module (2d mvars)
#:use-module (2d game-loop)
- #:export (repl-mvar start-repl run-repl))
+ #:export (repl-input-mvar repl-output-mvar start-repl run-repl))
;;;
@@ -130,7 +130,8 @@
;;; The repl
;;;
-(define repl-mvar (new-mvar))
+(define repl-input-mvar (new-mvar))
+(define repl-output-mvar (new-mvar))
(define* (start-repl #:optional (lang (current-language)) #:key debug)
;; ,language at the REPL will update the current-language. Make
@@ -196,7 +197,7 @@
;; game loop will schedule it and run
;; it on the next tick.
(put-mvar
- repl-mvar
+ repl-input-mvar
(list
(lambda ()
(call-with-error-handling
@@ -209,7 +210,7 @@
;; Read the results back from
;; game-mvar. Will block until results
;; are available.
- (take-mvar game-mvar))
+ (take-mvar repl-output-mvar))
(lambda (k) (values))))
(lambda l
(for-each (lambda (v)