diff options
| -rw-r--r-- | ccwl/ccwl.scm | 9 | ||||
| -rw-r--r-- | tests/cwl.scm | 2 |
2 files changed, 6 insertions, 5 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 3fc5364..cee6001 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -1,5 +1,5 @@ ;;; ccwl --- Concise Common Workflow Language -;;; Copyright © 2021–2024 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2021–2025 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of ccwl. ;;; @@ -93,7 +93,7 @@ unspecified-default?)) (define-immutable-record-type <input> - (make-input id type label default position prefix stage? other) + (make-input id type label default position prefix separator stage? other) input? (id input-id) (type input-type) @@ -206,7 +206,8 @@ compared using @code{equal?}." #,(if (unspecified-default? default) #'(make-unspecified-default) default) - #,position #,prefix #,stage? '#,other))) + #,position #,prefix #f + #,stage? '#,other))) #'(id args ...)))) (id (identifier? #'id) (input #'(id))) (_ (error "Invalid input:" (syntax->datum input-spec))))) @@ -600,7 +601,7 @@ identifiers defined in the commands." ((id . type) (with-syntax ((id (datum->syntax #f id)) (type (datum->syntax #f type))) - #`(make-input 'id 'type #f #f #f #f #f '())))) + #`(make-input 'id 'type #f #f #f #f #f #f '())))) (parameters->id+type (assoc-ref yaml "inputs")))) (list #,@(map (match-lambda ((id . type) diff --git a/tests/cwl.scm b/tests/cwl.scm index 8009a2e..f5eeb44 100644 --- a/tests/cwl.scm +++ b/tests/cwl.scm @@ -53,6 +53,6 @@ (default . #f) (label . "foo")) (input->cwl-scm - (make-input "foo" 'boolean "foo" #f #f #f #f '()))) + (make-input "foo" 'boolean "foo" #f #f #f #f #f '()))) (test-end "cwl") |