diff options
| -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) |