From 5e36a594d66c0f5208c97fa1a8e142c0014d172d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Mon, 2 Sep 2013 17:06:49 -0400
Subject: Move both mvars into the repl module.

---
 2d/repl/repl.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to '2d/repl/repl.scm')

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)
-- 
cgit v1.2.3