Delete input field of <command> object.

* ccwl/ccwl.scm (<command>): Delete input field.
(command): Do not set inputs field.

1 files changed, 8 insertions, 7 deletions

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index a6ef95d..dc05c82 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -107,9 +107,8 @@
   (field-appender step-out set-step-out))
 
 (define-immutable-record-type <command>
-  (make-command inputs outputs args stdin other)
+  (make-command outputs args stdin other)
   command?
-  (inputs command-inputs set-command-inputs)
   (outputs command-outputs set-command-outputs)
   (args command-args)
   (stdin command-stdin set-command-stdin)
@@ -120,11 +119,13 @@
 
 (define* (command id arguments #:key (additional-inputs '()) (outputs '()) (other '()))
   (make-step id
-             (make-command (append (filter input? arguments)
-                                   additional-inputs)
-                           outputs arguments #f other)
-             (append (filter input? arguments)
-                     additional-inputs)
+             (make-command outputs arguments #f other)
+             ;; A command can use the same input multiple times. So,
+             ;; deduplicate.
+             (delete-duplicates
+              (append (filter input? arguments)
+                      additional-inputs)
+              input=?)
              outputs))
 
 (define (input=? input1 input2)