summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/ccwl.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 0848c45..1f864e1 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -310,8 +310,9 @@ list of supplied input <key> objects."
;; pipe
((pipe expressions ...)
(foldn (lambda (expression input-keys steps)
- (let ((input-keys child-steps (workflow-steps expression input-keys)))
- (values input-keys (append steps child-steps))))
+ (let ((child-output-keys child-steps (workflow-steps expression input-keys)))
+ (values (append input-keys child-output-keys)
+ (append steps child-steps))))
#'(expressions ...)
input-keys
(list)))