From 449a75c9e067d383ed41309c6ac33416a2066f88 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 19 Dec 2025 13:46:19 +0000
Subject: ccwl: Add separator field to constuctor.
---
ccwl/ccwl.scm | 9 +++++----
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
+;;; Copyright © 2021–2025 Arun Isaac
;;;
;;; This file is part of ccwl.
;;;
@@ -93,7 +93,7 @@
unspecified-default?))
(define-immutable-record-type
- (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")
--
cgit 1.4.1