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