From f31f4e224bc94f2e4d0dcc96e77c8ea512fad433 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 7 Oct 2021 00:25:33 +0530
Subject: ccwl: Pass workflow inputs through every command.

We pass workflow inputs through all commands and constructs (pipe,
tee, etc.). Thus, these parameters are globally visible to all steps,
and are a kind of "global variable".

* ccwl/ccwl.scm (workflow-steps): Pass to the output, input keys that
correspond to workflow inputs.
---
 ccwl/ccwl.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 438f522..60472b2 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -394,9 +394,10 @@ by <step> objects."
                                  (list step-id value input-key-symbols)
                                  #f))))
                  (syntax->datum (pairify #'(args ...))))
-       (values (map (lambda (output)
-                      (key (output-id output) step-id))
-                    (command-outputs command-object))
+       (values (append (remove key-step input-keys)
+                       (map (lambda (output)
+                              (key (output-id output) step-id))
+                            (command-outputs command-object)))
                (list (make-step step-id
                                 command-object
                                 (map (match-lambda
-- 
cgit v1.2.3