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 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))) |