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 ()
(let ((var condition)) ; clauses may SET! var
(guard-aux (handler-k (lambda ()
(raise-continuable condition)))
(raise condition)))
clause ...))))))))
(lambda ()
(let ((res (let () e1 e2 ...)))