~ruther/guix-local

e4bed284ae0fa5aebba8be71757a1e44903ffe13 — Ludovic Courtès 11 years ago fae3d34
monads: Remove unused 'nargs' parameter from 'lift'.

* guix/monads.scm (lift): Remove 'nargs' parameter.
1 files changed, 3 insertions(+), 3 deletions(-)

M guix/monads.scm
M guix/monads.scm => guix/monads.scm +3 -3
@@ 202,9 202,9 @@ the last one."
(define-lift lift6 (a b c d e f))
(define-lift lift7 (a b c d e f g))

(define (lift nargs proc monad)
  "Lift PROC, a procedure that accepts NARGS arguments, to MONAD---i.e.,
return a monadic function in MONAD."
(define (lift proc monad)
  "Lift PROC, a procedure that accepts an arbitrary number of arguments, to
MONAD---i.e., return a monadic function in MONAD."
  (lambda args
    (with-monad monad
      (return (apply proc args)))))