Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Fixing bug in exception-protect.

Browse source
This commit is contained in:
Alex Shinn 2014-03-21 14:26:45 +09:00
parent 9f518e56c4
commit 45f7d85360
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/init-7.scm
View file

@ -997,12 +997,12 @@
;; Similar to unwind-protect, but allows escape via continuations
;; assuming they'll return, whereas exceptions are assumed to not return.
(define (with-exception-protect thunk final)
(let ((finalized? #f)
(run-finalize
(lambda ()
(cond ((not finalized?)
(set! finalized? #t)
(final))))))
(let* ((finalized? #f)
(run-finalize
(lambda ()
(cond ((not finalized?)
(set! finalized? #t)
(final))))))
(with-exception-handler
(lambda (exn)
(run-finalize)