diff options
| -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)))) |