diff options
| author | Arun Isaac | 2026-06-20 10:49:04 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-04 16:18:14 +0100 |
| commit | 0c0fb4dc26fd24d91fdc3e8586216af68817b776 (patch) | |
| tree | 62f863071b0e15a031bb3eef5f383b3a239e3680 | |
| parent | 05e225da2292680d562e597e6ca990bfe2bd0462 (diff) | |
| download | ravanan-0c0fb4dc26fd24d91fdc3e8586216af68817b776.tar.gz ravanan-0c0fb4dc26fd24d91fdc3e8586216af68817b776.tar.lz ravanan-0c0fb4dc26fd24d91fdc3e8586216af68817b776.zip | |
monads: Bind result and value in sequence in the right order.
| -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 7fd7e79..a536ee8 100644 --- a/ravanan/work/monads.scm +++ b/ravanan/work/monads.scm @@ -81,8 +81,8 @@ of values." (let ((return (monad-return monad-type))) (mlet* monad-type ((reverse-list (fold (lambda (mvalue mresult) - (mlet* monad-type ((value mvalue) - (result mresult)) + (mlet* monad-type ((result mresult) + (value mvalue)) (return (cons value result)))) (return (list)) mvalues))) |