tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

monads: Fix 'liftN' fallback case.

Browse Source 
Reported by Andy Wingo <wingo@igalia.com>.

* guix/monads.scm (define-lift) <fallback case>: Add missing #'.  Remove
  extra formal parameter.
* tests/monads.scm ("lift"): Add test with 'lift1' as a procedure.
This commit is contained in:
Ludovic Courtès
2015-09-04 18:31:06 +02:00
parent 3b6eddb2b2
commit dbbc248aee
2 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/monads.scm
View File

@@ -95,10 +95,12 @@
(test-assert "lift"
(every (lambda (monad run)
(let ((f (lift1 1+ monad)))
(let ((f (lift1 1+ monad))
(g (apply lift1 1+ (list monad))))
(with-monad monad
(let ((number (random 777)))
(= (run (>>= (return number) f))
(run (>>= (return number) g))
(1+ number))))))
%monads
%monad-run))