diff options
| -rw-r--r-- | ccwl/ccwl.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 7608d51..b139289 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -319,6 +319,21 @@ list of supplied input <key> objects." ((tee expressions ...) (append-mapn (cut workflow-steps <> input-keys) #'(expressions ...))) + ;; commands with only a single input and when only a single key is + ;; available at this step + ((command (step-id)) + (and (command-variable #'command) + (= (length input-keys) 1) + (= (length (command-input-keys + (command-syntax->object #'command))) + 1)) + (workflow-steps #`(command (step-id) + #,(match (command-input-keys + (command-syntax->object #'command)) + ((command-key) (symbol->keyword command-key))) + #,(match input-keys + ((input-key) (key-name input-key)))) + input-keys)) ((command (step-id) args ...) ;; Run a whole bunch of tests so that we can produce useful error ;; messages. |