mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

fix a bug in `finish'

Browse source 
* module/system/repl/command.scm (repl-pop-continuation-resumer)
  (finish): Fix a bug printing return values.
This commit is contained in:
Andy Wingo 2010-10-08 12:29:54 +02:00
parent 9b78275eb0
commit aee24bac50
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/system/repl/command.scm
View file

@ -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)))