diff options
-rw-r--r-- | ccwl/ccwl.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 2385f91..9492812 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -304,6 +304,15 @@ re-matched." (prefix . ,(input-prefix input))))))) ,@(input-other input))))) elements) + (map (lambda (input) + `(,(input-id input) + ,@(filter-alist + `((type . ,(input-type input)) + (label . ,(input-label input)) + (default . ,(and (not (unspecified-default? (input-default input))) + (input-default input))))) + ,@(input-other input))) + (command-additional-inputs command)) (let ((stdin (command-stdin command))) (if stdin (list `(,(input-id stdin) |