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