diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-08 12:29:54 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-08 12:31:56 +0200 |
commit | aee24bac50ae0851264b3382d2bce0c23fd9eff7 (patch) | |
tree | ed8c6b2a3bb3b0f86a490ece06304a1463d10d3f /module/system | |
parent | 9b78275eb07efab57d4e4b2e902939aa38f11884 (diff) | |
download | guile-aee24bac50ae0851264b3382d2bce0c23fd9eff7.tar.gz |
fix a bug in `finish'
* module/system/repl/command.scm (repl-pop-continuation-resumer)
(finish): Fix a bug printing return values.
Diffstat (limited to 'module/system')
-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 e1ae6136c..f5512ffeb 100644 --- a/module/system/repl/command.scm +++ b/module/system/repl/command.scm @@ -594,7 +594,7 @@ Note that the given source location must be inside a procedure." (let ((idx (add-trap-at-source-location! file line))) (format #t "Trap ~a: ~a.~%" idx (trap-name idx))))) -(define (repl-pop-continuation-resumer msg) +(define (repl-pop-continuation-resumer repl msg) ;; Capture the dynamic environment with this prompt thing. The ;; result is a procedure that takes a frame. (% (call-with-values @@ -625,7 +625,7 @@ Run until the current frame finishes. Resume execution, breaking when the current frame finishes." (let ((handler (repl-pop-continuation-resumer - (format #f "Return from ~a" cur)))) + repl (format #f "Return from ~a" cur)))) (add-ephemeral-trap-at-frame-finish! cur handler) (throw 'quit))) |