Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

guard should use raise-continuable (issue #661)

Browse source
This commit is contained in:
Alex Shinn 2020-06-19 17:48:29 +09:00
parent e8f1233e18
commit 06cef55723
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/scheme/misc-macros.scm
View file

@ -32,7 +32,10 @@
(lambda () (lambda ()
(let ((var condition)) ; clauses may SET! var (let ((var condition)) ; clauses may SET! var
(guard-aux (handler-k (lambda () (guard-aux (handler-k (lambda ()
(raise condition))) ;; must be raise-continuable
;; in case the original
;; exception was continuable
(raise-continuable condition)))
clause ...)))))))) clause ...))))))))
(lambda () (lambda ()
(let ((res (let () e1 e2 ...))) (let ((res (let () e1 e2 ...)))