From 31cf9fb6b81c70c82fb16eeb5e42fdc588bef8c5 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sun, 9 Jun 2024 16:08:39 +0900
Subject: Remove to inject `<-` symbol in monad do syntax

---
 algebraic-structs.monad.make.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'algebraic-structs.monad.make.scm')

diff --git a/algebraic-structs.monad.make.scm b/algebraic-structs.monad.make.scm
index 0598309..e7c8774 100644
--- a/algebraic-structs.monad.make.scm
+++ b/algebraic-structs.monad.make.scm
@@ -14,7 +14,7 @@
           (foldr (lambda (binding acc)
                    (match binding
                      [(var stx expr)
-                      (if (and (symbol? stx) (compare stx (inject '<-)))
+                      (if (and (symbol? stx) (compare stx '<-))
                           `(>>= ,expr (lambda (,var) ,acc))
                           `(>>= ,binding (lambda (_) ,acc)))]
                      [(let-stx var =-stx expr)
-- 
cgit v1.2.3