From e4bed284ae0fa5aebba8be71757a1e44903ffe13 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 5 Nov 2014 22:25:09 +0100 Subject: monads: Remove unused 'nargs' parameter from 'lift'. * guix/monads.scm (lift): Remove 'nargs' parameter. --- guix/monads.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'guix/monads.scm') diff --git a/guix/monads.scm b/guix/monads.scm index d9580a7f8e..b419ba066a 100644 --- a/guix/monads.scm +++ b/guix/monads.scm @@ -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))))) -- cgit v1.2.3