diff options
| author | Arun Isaac | 2021-04-25 22:58:17 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-04-26 00:25:06 +0530 |
| commit | a2815554cb025d19f5bd851208cc636028f2f33d (patch) | |
| tree | 3da97acd30c432b05664705cf0b12d811087c895 | |
| parent | 0b3706a00dadab08f54b495d828bb151da525a1f (diff) | |
| download | ccwl-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.scm | 5 |
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) |