summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ccwl/ccwl.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 438f522..60472b2 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -394,9 +394,10 @@ by <step> objects."
(list step-id value input-key-symbols)
#f))))
(syntax->datum (pairify #'(args ...))))
- (values (map (lambda (output)
- (key (output-id output) step-id))
- (command-outputs command-object))
+ (values (append (remove key-step input-keys)
+ (map (lambda (output)
+ (key (output-id output) step-id))
+ (command-outputs command-object)))
(list (make-step step-id
command-object
(map (match-lambda