diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-09-02 17:06:49 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-09-02 17:06:49 -0400 |
| commit | 5e36a594d66c0f5208c97fa1a8e142c0014d172d (patch) | |
| tree | e66171878759cb04c7dc33fd3d6e7399b2c15157 /2d/repl | |
| parent | f1bdb8ce4fef8272850b6449ba1a83fd84dd2416 (diff) | |
Move both mvars into the repl module.
Diffstat (limited to '2d/repl')
| -rw-r--r-- | 2d/repl/repl.scm | 9 |
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) |