diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-09 16:08:39 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-09 16:08:39 +0900 |
| commit | 31cf9fb6b81c70c82fb16eeb5e42fdc588bef8c5 (patch) | |
| tree | dce01c8c72c1b342074b760c83dfbcdce4a4ad6c | |
| parent | 92eeab2815eae6cd9ef22530d2e50fe0a620ec46 (diff) | |
Remove to inject `<-` symbol in monad do syntax
| -rw-r--r-- | algebraic-structs.monad.make.scm | 2 |
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) |