diff options
| author | Arun Isaac | 2021-05-15 20:21:26 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-05-15 20:21:26 +0530 |
| commit | def68d973bc978cab37338f8a8b6ce16388cbde4 (patch) | |
| tree | a493047cbf42d7dc5c6f1cd134f8244153431d66 | |
| parent | 501d662fc6901c94ab2e0810243abddad5e71a5c (diff) | |
| download | ccwl-def68d973bc978cab37338f8a8b6ce16388cbde4.tar.gz ccwl-def68d973bc978cab37338f8a8b6ce16388cbde4.tar.lz ccwl-def68d973bc978cab37338f8a8b6ce16388cbde4.zip | |
Make stdin a unary key of command.
* ccwl/ccwl.scm (command): Make stdin a unary key.
| -rw-r--r-- | ccwl/ccwl.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 3869bb1..7b8d59c 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -129,7 +129,7 @@ (field-appender command-outputs set-command-outputs)) (define command - (lambda** (#:key* run (additional-inputs '()) (outputs '()) stdin (other '())) + (lambda** (#:key stdin #:key* run (additional-inputs '()) (outputs '()) (other '())) (make-command additional-inputs outputs run stdin other))) (define (input=? input1 input2) |