diff options
| author | David Thompson <dthompson2@worcester.edu> | 2014-01-13 19:00:21 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2014-01-13 19:00:21 -0500 |
| commit | f54e9e5376476cd5bbad667f20c22d3004994df1 (patch) | |
| tree | a8b7667828e233315371f8b7ca4e2d7e6f5e6b7a | |
| parent | 3871ae0ee0d0c71cd2055d07b597a950f4b436ff (diff) | |
Run REPL metacommands in the main thread, too.
* 2d/repl/repl.scm: Fix bug.
| -rw-r--r-- | 2d/repl/repl.scm | 8 |
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) |