diff options
-rw-r--r-- | module/system/repl/repl.scm | 4 |
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))) |