summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-04-25 22:58:17 +0530
committerArun Isaac2021-04-26 00:25:06 +0530
commita2815554cb025d19f5bd851208cc636028f2f33d (patch)
tree3da97acd30c432b05664705cf0b12d811087c895
parent0b3706a00dadab08f54b495d828bb151da525a1f (diff)
downloadccwl-a2815554cb025d19f5bd851208cc636028f2f33d.tar.gz
ccwl-a2815554cb025d19f5bd851208cc636028f2f33d.tar.lz
ccwl-a2815554cb025d19f5bd851208cc636028f2f33d.zip
Redefine command using lambda**.
* ccwl/ccwl.scm (command): Redefine using lambda**.
-rw-r--r--ccwl/ccwl.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 547cf23..07c0976 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -128,8 +128,9 @@
(define append-command-outputs
(field-appender command-outputs set-command-outputs))
-(define* (command #:key run (additional-inputs '()) (outputs '()) stdin (other '()))
- (make-command additional-inputs outputs run stdin other))
+(define command
+ (lambda** (#:key* run (additional-inputs '()) (outputs '()) stdin (other '()))
+ (make-command additional-inputs outputs run stdin other)))
(define (input=? input1 input2)
(string=? (input-id input1)