summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-10-04 00:19:25 +0530
committerArun Isaac2021-10-04 00:21:33 +0530
commitb0aa4a95eaa088d90984024582babf749eb8fae7 (patch)
tree6b34d3149cbfb9b8630f610777f3ef075619060e
parent011bce966b2fac70c88b54e00b097fdf6996bfe1 (diff)
downloadccwl-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.scm5
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)))