diff options
author | Arun Isaac | 2021-05-17 02:20:05 +0530 |
---|---|---|
committer | Arun Isaac | 2021-05-17 02:23:22 +0530 |
commit | 4877cc3eea91f3557c5c15d51e945a2afe88b1f4 (patch) | |
tree | 498dd6a852f12df9b23af23e15b48e34ef025c8c | |
parent | 495bdf7812f4f793eb1fad03d75d40e97d1aa745 (diff) | |
download | ccwl-4877cc3eea91f3557c5c15d51e945a2afe88b1f4.tar.gz ccwl-4877cc3eea91f3557c5c15d51e945a2afe88b1f4.tar.lz ccwl-4877cc3eea91f3557c5c15d51e945a2afe88b1f4.zip |
Support commands with implicit step identifier.
* ccwl/ccwl.scm (workflow-steps): When command does not specify step
identifier, assume the step identifier is the same as the command
symbol.
-rw-r--r-- | ccwl/ccwl.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 1469471..7608d51 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -377,6 +377,10 @@ list of supplied input <key> objects." input-keys))))) (pairify (syntax->datum #'(args ...)))) (command-outputs command-object))))))) + ;; commands with an implicit step identifier + ((command args ...) + (workflow-steps #'(command (command) args ...) + input-keys)) ;; any other unrecognized syntax (x (error "Unrecognized syntax:" (syntax->datum #'x))))) |