diff options
| -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 |