original commit: 85350de3669c7fc941c58f29d95e650462c6a719
This commit is contained in:
Matthew Flatt 1997-05-07 17:35:59 +00:00
parent 0b51c4515e
commit 908ad34300

View File

@ -1053,7 +1053,7 @@ eta)))
,fail-sym
,@(map val
bv))))
`(call-with-current-continuation
`(call/ec
(lambda (,fail-sym)
(let ((,fail-sym (lambda ()
;; Changed CF 9.24.96 for multiple value returns