From 06cef557234d6fe985e3ba1609369e389750ca49 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 19 Jun 2020 17:48:29 +0900 Subject: [PATCH] guard should use raise-continuable (issue #661) --- lib/scheme/misc-macros.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/scheme/misc-macros.scm b/lib/scheme/misc-macros.scm index f01d5db3..0a126e67 100644 --- a/lib/scheme/misc-macros.scm +++ b/lib/scheme/misc-macros.scm @@ -32,7 +32,10 @@ (lambda () (let ((var condition)) ; clauses may SET! var (guard-aux (handler-k (lambda () - (raise condition))) + ;; must be raise-continuable + ;; in case the original + ;; exception was continuable + (raise-continuable condition))) clause ...)))))))) (lambda () (let ((res (let () e1 e2 ...)))