summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))))