diff options
| author | Arun Isaac | 2021-03-22 01:39:28 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-03-22 01:39:28 +0530 |
| commit | d78030998a6af341254e7f50464b0e209f7137ff (patch) | |
| tree | d6b1ea39a5ead43af3d6cd30ca523a226339e025 | |
| parent | 7d6123995ef311e2f239119e408fb48409e88662 (diff) | |
| download | ccwl-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.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 |