aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-11-21 15:35:45 +0000
committerArun Isaac2023-11-21 15:37:11 +0000
commitced4323b796944a8f1929ebae6ed068638732d8f (patch)
tree768e3d3a93a65e7d6894fecd894729d42293c6b4
parent34f17df25d52f2ea8ac914d01a300da6c3c78a33 (diff)
downloadccwl-ced4323b796944a8f1929ebae6ed068638732d8f.tar.gz
ccwl-ced4323b796944a8f1929ebae6ed068638732d8f.tar.lz
ccwl-ced4323b796944a8f1929ebae6ed068638732d8f.zip
ccwl: Comment on passing global workflow inputs through all commands.
* ccwl/ccwl.scm (collect-steps): Comment on passing global workflow inputs through all commands.
-rw-r--r--ccwl/ccwl.scm12
1 files changed, 8 insertions, 4 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index b9ee81f..9b5132f 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -725,10 +725,14 @@ represented by <step> objects."
;; If there are no literal arguments, construct <step>
;; object.
(()
- (values (append (remove key-step input-keys)
- (map (lambda (output)
- (key (output-id output) step-id-symbol))
- (function-outputs function-object)))
+ (values (append
+ ;; Pass global workflow inputs through. Thus,
+ ;; these are globally visible to all steps, and
+ ;; are a kind of "global variable".
+ (remove key-step input-keys)
+ (map (lambda (output)
+ (key (output-id output) step-id-symbol))
+ (function-outputs function-object)))
(list (make-step step-id-symbol
#'function
(map (match-lambda