diff options
| author | Arun Isaac | 2021-05-17 02:23:56 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-05-17 02:23:56 +0530 |
| commit | 8127394c99fbb16aee952e802c7d04c31c282ded (patch) | |
| tree | 3df76ce23a00a70032da2e1ff3e956df7f5cafd1 | |
| parent | b750234786bbc4f511b0e4fbf906c8b52e7bbe94 (diff) | |
| download | ccwl-8127394c99fbb16aee952e802c7d04c31c282ded.tar.gz ccwl-8127394c99fbb16aee952e802c7d04c31c282ded.tar.lz ccwl-8127394c99fbb16aee952e802c7d04c31c282ded.zip | |
Support simpler syntax for inputs with no properties.
* ccwl/ccwl.scm (workflow): When input has no properties, support only
specifying the symbol.
| -rw-r--r-- | ccwl/ccwl.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index b139289..d57116b 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -405,7 +405,8 @@ list of supplied input <key> objects." ((_ inputs tree) (let* ((inputs (map (match-lambda ((id args ...) - (apply input id args))) + (apply input id args)) + (id (input id))) (syntax->datum #'inputs))) (output-keys steps (workflow-steps #'tree (map (compose key input-id) inputs)))) |