summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/system/repl/repl.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index 697d6a1b5..523f3bb8f 100644
--- a/module/system/repl/repl.scm
+++ b/module/system/repl/repl.scm
@@ -68,6 +68,10 @@
(if welcome
(repl-welcome repl))
(with-fluids ((*repl-level* level)
+ (*debug-input-port*
+ (or (fluid-ref *debug-input-port*) (current-input-port)))
+ (*debug-output-port*
+ (or (fluid-ref *debug-output-port*) (current-output-port)))
(the-last-stack #f))
(let prompt-loop ()
(let ((exp (prompting-meta-read repl)))