diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-12 13:09:48 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-12 13:09:48 +0200 |
commit | a36c3a458ef7d11b40b95394c0ab7bb6f54a0d51 (patch) | |
tree | 8a9aad80c4a9e1eb4fe18ac69d6e02f2763870be /module/system/repl/command.scm | |
parent | 767dbb1af30500cc0ad44d6bd0e0e179a1191ec6 (diff) | |
download | guile-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.scm | 4 |
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 |