From 67125463d3b3c3797279cf6f4e5ac9977c4ee36d Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Tue, 12 May 2026 08:34:29 +0200
Subject: [PATCH] prevent name clash off ->, don t use -> as keyword

---
 main.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/main.rkt b/main.rkt
index 037baf7..35b7524 100644
--- a/main.rkt
+++ b/main.rkt
@@ -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 ...))
      )