diff options
-rw-r--r-- | module/system/repl/repl.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm index f9c11b4bf..503191fdd 100644 --- a/module/system/repl/repl.scm +++ b/module/system/repl/repl.scm @@ -71,8 +71,7 @@ (*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)) + (or (fluid-ref *debug-output-port*) (current-output-port)))) (let prompt-loop () (let ((exp (prompting-meta-read repl))) (cond |