diff options
| -rw-r--r-- | ccwl/ccwl.scm | 5 |
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))) |