diff options
| author | Arun Isaac | 2026-06-20 10:45:33 +0100 |
|---|---|---|
| committer | Arun Isaac | 2026-09-04 16:18:14 +0100 |
| commit | 05e225da2292680d562e597e6ca990bfe2bd0462 (patch) | |
| tree | 958f54fa6e404779fbbbb7437138b21e16d9dda2 | |
| parent | 3cfe95e79926b6a43a215cc8cbd17524a3596d4a (diff) | |
| download | ravanan-05e225da2292680d562e597e6ca990bfe2bd0462.tar.gz ravanan-05e225da2292680d562e597e6ca990bfe2bd0462.tar.lz ravanan-05e225da2292680d562e597e6ca990bfe2bd0462.zip | |
monads: Bind all expressions in mbegin monadically.
mbegin should bind all expressions monadically, not just the first. If not, all expressions but the first are ignored.
| -rw-r--r-- | ravanan/work/monads.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ravanan/work/monads.scm b/ravanan/work/monads.scm index 866e1d7..7fd7e79 100644 --- a/ravanan/work/monads.scm +++ b/ravanan/work/monads.scm @@ -1,5 +1,5 @@ ;;; ravanan --- High-reproducibility CWL runner powered by Guix -;;; Copyright © 2024, 2025 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2024–2026 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ravanan. ;;; @@ -72,7 +72,8 @@ ((monad-bind monad-type) first-expression (lambda _ - body ...))))) + (mbegin monad-type + body ...)))))) (define (sequence monad-type mvalues) "Convert a list of monadic @var{mvalues} in @var{monad-type} into a monadic list |