diff options
| author | Arun Isaac | 2025-01-11 01:20:05 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-01-20 01:47:22 +0000 |
| commit | 318077a65d5a81bc410bd309c3695ab93a72b892 (patch) | |
| tree | b6b2abfb6de8db89e6d7260fa4154ad517a87b6b | |
| parent | 141939685eeba7434a40fb01819f7b4aabbd2a0b (diff) | |
| download | ravanan-318077a65d5a81bc410bd309c3695ab93a72b892.tar.gz ravanan-318077a65d5a81bc410bd309c3695ab93a72b892.tar.lz ravanan-318077a65d5a81bc410bd309c3695ab93a72b892.zip | |
monads: Rename bindings to other-bindings in mlet*.
other-bindings is a more descriptive name.
* ravanan/work/monads.scm (mlet*): Rename bindings to other-bindings.
| -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 |