diff options
| author | Arun Isaac | 2023-11-21 15:35:45 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-11-21 15:37:11 +0000 |
| commit | ced4323b796944a8f1929ebae6ed068638732d8f (patch) | |
| tree | 768e3d3a93a65e7d6894fecd894729d42293c6b4 | |
| parent | 34f17df25d52f2ea8ac914d01a300da6c3c78a33 (diff) | |
| download | ccwl-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.scm | 12 |
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 |