summary refs log tree commit diff
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