summaryrefslogtreecommitdiff
path: root/2d/repl
diff options
context:
space:
mode:
Diffstat (limited to '2d/repl')
-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)