don't bind the-last-stack in repl.scm

* module/system/repl/repl.scm (start-repl): Don't bind the-last-stack.

diff --git a/module/system/repl/repl.scm b/module/system/repl/repl.scm
index f9c11b4..503191f 100644 (file)
--- 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