summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-03-22 01:39:28 +0530
committerArun Isaac2021-03-22 01:39:28 +0530
commitd78030998a6af341254e7f50464b0e209f7137ff (patch)
treed6b1ea39a5ead43af3d6cd30ca523a226339e025
parent7d6123995ef311e2f239119e408fb48409e88662 (diff)
downloadccwl-d78030998a6af341254e7f50464b0e209f7137ff.tar.gz
ccwl-d78030998a6af341254e7f50464b0e209f7137ff.tar.lz
ccwl-d78030998a6af341254e7f50464b0e209f7137ff.zip
Add additional-inputs field to <command> type.
* ccwl/ccwl.scm (<command>): Add additional-inputs field. (command): Initialize additional-inputs field.
-rw-r--r--ccwl/ccwl.scm5
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