debug has for-trap? field

[bpt/guile.git] / module / system / repl / command.scm

diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index f5512ff..0ec31e4 100644 (file)
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -612,12 +612,12 @@ Note that the given source location must be inside a procedure."
          (format #t "~a~%" msg)
          (let ((vals (frame-return-values from)))
            (if (null? vals)
-               (format #t "No return values.~%" msg)
+               (format #t "No return values.~%")
                (begin
-                 (format #t "Return values:~%" msg)
+                 (format #t "Return values:~%")
                  (for-each (lambda (x) (repl-print repl x)) vals))))
          ((module-ref (resolve-interface '(system repl repl)) 'start-repl)
-          #:debug (make-debug stack 0 msg))))))
+          #:debug (make-debug stack 0 msg #t))))))
 
 (define-stack-command (finish repl)
   "finish
@@ -641,7 +641,7 @@ Resume execution, breaking when the current frame finishes."
                        (k (frame->stack-vector frame)))))))
        (format #t "~a~%" msg)
        ((module-ref (resolve-interface '(system repl repl)) 'start-repl)
-        #:debug (make-debug stack 0 msg)))))
+        #:debug (make-debug stack 0 msg #t)))))
 
 (define-stack-command (step repl)
   "step