guard should raise, not raise-continuable, as the default

Fixes issue #346.
This commit is contained in:
Alex Shinn 2016-06-04 21:49:12 +09:00
parent b238edb0cd
commit 28148e52b7

View file

@ -32,7 +32,7 @@
(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-continuable condition))) (raise condition)))
clause ...)))))))) clause ...))))))))
(lambda () (lambda ()
(let ((res (let () e1 e2 ...))) (let ((res (let () e1 e2 ...)))