summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2014-01-13 19:00:21 -0500
committerDavid Thompson <dthompson2@worcester.edu>2014-01-13 19:00:21 -0500
commitf54e9e5376476cd5bbad667f20c22d3004994df1 (patch)
treea8b7667828e233315371f8b7ca4e2d7e6f5e6b7a
parent3871ae0ee0d0c71cd2055d07b597a950f4b436ff (diff)
Run REPL metacommands in the main thread, too.
* 2d/repl/repl.scm: Fix bug.
-rw-r--r--2d/repl/repl.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/2d/repl/repl.scm b/2d/repl/repl.scm
index 9e56c74..d342e3d 100644
--- a/2d/repl/repl.scm
+++ b/2d/repl/repl.scm
@@ -208,7 +208,13 @@ INPUT, OUTPUT, and ERROR ports."
((eq? exp meta-command-token)
(catch #t
(lambda ()
- (meta-command repl))
+ (add-to-repl-mvar
+ (lambda ()
+ (meta-command repl))
+ (current-input-port)
+ (current-output-port)
+ (current-error-port)
+ (fluid-ref *repl-stack*)))
(lambda (k . args)
(if (eq? k 'quit)
(abort args)