diff options
| author | Arun Isaac | 2021-10-04 00:19:25 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-10-04 00:21:33 +0530 |
| commit | b0aa4a95eaa088d90984024582babf749eb8fae7 (patch) | |
| tree | 6b34d3149cbfb9b8630f610777f3ef075619060e | |
| parent | 011bce966b2fac70c88b54e00b097fdf6996bfe1 (diff) | |
| download | ccwl-b0aa4a95eaa088d90984024582babf749eb8fae7.tar.gz ccwl-b0aa4a95eaa088d90984024582babf749eb8fae7.tar.lz ccwl-b0aa4a95eaa088d90984024582babf749eb8fae7.zip | |
Revert "In pipe, pass through input keys to all expressions."
This reverts commit 35bcaaa67efbe9b60e69b0f7c17acc186c74e7c3. This was
not such a good idea. It is better to introduce the notion of global
parameters.
| -rw-r--r-- | ccwl/ccwl.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index f3ffffd..b923b4a 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -325,9 +325,8 @@ list of supplied input <key> objects." ;; pipe ((pipe expressions ...) (foldn (lambda (expression input-keys steps) - (let ((child-output-keys child-steps (workflow-steps expression input-keys))) - (values (append input-keys child-output-keys) - (append steps child-steps)))) + (let ((input-keys child-steps (workflow-steps expression input-keys))) + (values input-keys (append steps child-steps)))) #'(expressions ...) input-keys (list))) |