using call/cc with let-assert

2026-05-11 17:00:46 +02:00
parent 9d4b4fff33
commit 20b54b8447
2 changed files with 187 additions and 127 deletions
@@ -65,8 +65,8 @@
  )

 (define-syntax let/assert
-  (syntax-rules ()
-    ((_ fail ((v rest ...) ...) b1 ...)
+  (syntax-rules (fail)
+    ((_ ((v rest ...) ...) b1 ...)
     (call/cc
      (λ (fail)
        (let* ((v (assert-expr fail (rest ...)))