aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-05-15 20:21:26 +0530
committerArun Isaac2021-05-15 20:21:26 +0530
commitdef68d973bc978cab37338f8a8b6ce16388cbde4 (patch)
treea493047cbf42d7dc5c6f1cd134f8244153431d66
parent501d662fc6901c94ab2e0810243abddad5e71a5c (diff)
downloadccwl-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.scm2
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)