From d78030998a6af341254e7f50464b0e209f7137ff Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 22 Mar 2021 01:39:28 +0530
Subject: Add additional-inputs field to <command> type.

* ccwl/ccwl.scm (<command>): Add additional-inputs field.
(command): Initialize additional-inputs field.
---
 ccwl/ccwl.scm | 5 +++--
 1 file 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
-- 
cgit v1.2.3