summaryrefslogtreecommitdiff
path: root/module/system/repl/command.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-10-12 13:09:48 +0200
committerAndy Wingo <wingo@pobox.com>2010-10-12 13:09:48 +0200
commita36c3a458ef7d11b40b95394c0ab7bb6f54a0d51 (patch)
tree8a9aad80c4a9e1eb4fe18ac69d6e02f2763870be /module/system/repl/command.scm
parent767dbb1af30500cc0ad44d6bd0e0e179a1191ec6 (diff)
downloadguile-a36c3a458ef7d11b40b95394c0ab7bb6f54a0d51.tar.gz
debug has for-trap? field
* module/system/repl/debug.scm (<debug>): New field, `for-trap?'. True if the stack is for a trap, and thus the top frame should use frame-next-source instead of frame-source. * module/system/repl/command.scm (repl-pop-continuation-resumer) (repl-next-resumer): * module/system/repl/error-handling.scm (call-with-error-handling): Update callers.
Diffstat (limited to 'module/system/repl/command.scm')
-rw-r--r--module/system/repl/command.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/repl/command.scm b/module/system/repl/command.scm
index ef2c5a633..0ec31e4d8 100644
--- a/module/system/repl/command.scm
+++ b/module/system/repl/command.scm
@@ -617,7 +617,7 @@ Note that the given source location must be inside a procedure."
(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