From fcf1dd6336cf8822a08263ed7851c489a2333045 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 18 Nov 2023 23:14:58 +0000
Subject: ccwl: Never set other and binding fields of inputs/outputs to #f.

Setting the other and binding fields to #f is a type violation. It
messes with code that expects these fields to always contain lists.

* ccwl/ccwl.scm (cwl-workflow): Set other and binding fields of inputs
and outputs to the empty list.
---
 ccwl/ccwl.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm
index 429bbed..558161c 100644
--- a/ccwl/ccwl.scm
+++ b/ccwl/ccwl.scm
@@ -498,13 +498,13 @@ 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 #f))))
+                                #`(make-input 'id 'type #f #f #f #f #f '()))))
                            (parameters->id+type (assoc-ref yaml "inputs"))))
               (list #,@(map (match-lambda
                              ((id . type)
                               (with-syntax ((id (datum->syntax #f id))
                                             (type (datum->syntax #f type)))
-                                #`(make-output 'id 'type #f #f #f))))
+                                #`(make-output 'id 'type '() #f '()))))
                            (parameters->id+type (assoc-ref yaml "outputs")))))))))))
 
 (define (function-inputs function)
-- 
cgit v1.2.3