summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2021-05-17 02:23:56 +0530
committerArun Isaac2021-05-17 02:23:56 +0530
commit8127394c99fbb16aee952e802c7d04c31c282ded (patch)
tree3df76ce23a00a70032da2e1ff3e956df7f5cafd1
parentb750234786bbc4f511b0e4fbf906c8b52e7bbe94 (diff)
downloadccwl-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.scm3
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))))