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 a2f6d49..2385f91 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -97,8 +97,9 @@ (field-appender step-out set-step-out)) (define-immutable-record-type <command> - (make-command outputs args stdin other) + (make-command additional-inputs outputs args stdin other) command? + (additional-inputs command-additional-inputs) (outputs command-outputs set-command-outputs) (args command-args) (stdin command-stdin set-command-stdin) @@ -109,7 +110,7 @@ (define* (command id arguments #:key (additional-inputs '()) (outputs '()) (other '())) (make-step id - (make-command outputs arguments #f other) + (make-command additional-inputs outputs arguments #f other) ;; A command can use the same input multiple times. So, ;; deduplicate. (delete-duplicates |