diff options
| -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) |