diff options
Diffstat (limited to 'ccwl')
-rw-r--r-- | ccwl/ccwl.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index d00609d..bbc5de1 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -625,7 +625,7 @@ supplied input keys." output keys and a list of steps. INPUT-KEYS is a list of supplied input keys. Keys are represented by <key> objects, and steps are represented by <step> objects." - (syntax-case x (pipe tee rename scatter scatter-cross scatter-nested-cross) + (syntax-case x (pipe tee identity rename scatter scatter-cross scatter-nested-cross) ;; pipe ((pipe expressions ...) (foldn (lambda (expression input-keys steps) @@ -638,6 +638,8 @@ represented by <step> objects." ((tee expressions ...) (append-mapn (cut collect-steps <> input-keys) #'(expressions ...))) + ((identity) + (values input-keys (list))) ;; rename keys (base case) ((rename new-key old-key) (begin |