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

Handling reraise properly in exception-protect.

Browse source
This commit is contained in:
Alex Shinn 2014-03-21 14:33:11 +09:00
parent 45f7d85360
commit 99f7f3288b
1 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/init-7.scm
View file

@ -1003,14 +1003,10 @@
(cond ((not finalized?) (cond ((not finalized?)
(set! finalized? #t) (set! finalized? #t)
(final)))))) (final))))))
(with-exception-handler (protect (exn (else (run-finalize) (raise exn)))
(lambda (exn) (let ((res (thunk)))
(run-finalize) (run-finalize)
(raise exn)) res))))
(lambda ()
(let ((res (thunk)))
(run-finalize)
res)))))
(define-syntax exception-protect (define-syntax exception-protect
(syntax-rules () (syntax-rules ()