diff options
| -rw-r--r-- | ravanan/work/monads.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ravanan/work/monads.scm b/ravanan/work/monads.scm index 7f5106d..866e1d7 100644 --- a/ravanan/work/monads.scm +++ b/ravanan/work/monads.scm @@ -57,11 +57,11 @@ ((_ monad-type () body ...) (begin body ...)) - ((_ monad-type ((var mvalue) bindings ...) body ...) + ((_ monad-type ((var mvalue) other-bindings ...) body ...) ((monad-bind monad-type) mvalue (lambda (var) - (mlet* monad-type (bindings ...) + (mlet* monad-type (other-bindings ...) body ...)))))) (define-syntax mbegin |