diff options
Diffstat (limited to 'guix/monads.scm')
| -rw-r--r-- | guix/monads.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/monads.scm b/guix/monads.scm index b62fc28a55..f5c9e8e9c7 100644 --- a/guix/monads.scm +++ b/guix/monads.scm @@ -228,9 +228,10 @@ lifted in MONAD, for which PROC returns true." (() (return #f)) ((head tail ...) - (mlet monad ((value head)) - (or (and=> (proc value) return) - head + (mlet* monad ((value head) + (result -> (proc value))) + (if result + (return result) (loop tail)))))))) (define-syntax listm |