aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--algebraic-structs.monad.make.scm2
1 files changed, 1 insertions, 1 deletions
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)