prevent name clash off ->, don t use -> as keyword

2026-05-12 08:34:29 +02:00
parent bcf4706b29
commit 67125463d3
1 changed files with 2 additions and 2 deletions
@@ -10,7 +10,7 @@


 (define-syntax early-return*
-  (syntax-rules (-> ? ~ do)
+  (syntax-rules (>> ? ~ do)
    ((_ () (b1 ...))
     (let () b1 ...))
    ((_ ((do d1 ...)) (b1 ...))
@@ -57,7 +57,7 @@
  )

 (define-syntax early-return
-  (syntax-rules ()
+  (syntax-rules (>> ? ~ do)
    ((_ (er1 ...) b1 ...)
     (early-return* (er1 ...) (b1 ...))
     )