From 5043c7231249baba949504de285d0ea0199a531b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 30 Sep 2025 23:56:49 +0100
Subject: work/types: Rename <union-type> to <cwl-union-type>.

<cwl-union-type> is more consistent with <cwl-array-type>.
---
 ravanan/work/command-line-tool.scm | 10 +++++-----
 ravanan/work/types.scm             | 16 ++++++++--------
 2 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm
index 6891770..0d9bcea 100644
--- a/ravanan/work/command-line-tool.scm
+++ b/ravanan/work/command-line-tool.scm
@@ -130,9 +130,9 @@ example, when @var{type} is a union type."
                 (vector->list obj))
          type))
    ;; Match any one of the subtypes of the union type.
-   ((union-type? type)
+   ((cwl-union-type? type)
     (any (cut match-type obj <>)
-         (union-type-subtypes type)))
+         (cwl-union-type-subtypes type)))
    ;; Else, match the exact type of the object.
    (else
     (and (eq? (object-type obj)
@@ -172,9 +172,9 @@ example, when @var{type} is a union type."
                                    (cwl-array-type-subtype type)))
                 matches)
          type))
-   ((union-type? type)
+   ((cwl-union-type? type)
     (any (cut glob-match-type matches <>)
-         (union-type-subtypes type)))))
+         (cwl-union-type-subtypes type)))))
 
 ;; TODO: Support all types.
 (define (formal-parameter-type type)
@@ -182,7 +182,7 @@ example, when @var{type} is a union type."
   (cond
    ;; Union types
    ((vector? type)
-    (apply union-type
+    (apply cwl-union-type
            (map formal-parameter-type (vector->list type))))
    ;; Other types
    ((string? type)
diff --git a/ravanan/work/types.scm b/ravanan/work/types.scm
index 2defb6d..ca49c33 100644
--- a/ravanan/work/types.scm
+++ b/ravanan/work/types.scm
@@ -18,12 +18,12 @@
 
 (define-module (ravanan work types)
   #:use-module (srfi srfi-9 gnu)
-            union-type
-            union-type?
-            union-type-subtypes))
   #:export (cwl-array-type
             cwl-array-type?
             cwl-array-type-subtype
+            cwl-union-type
+            cwl-union-type?
+            cwl-union-type-subtypes))
 
 (define-immutable-record-type <cwl-array-type>
   (cwl-array-type subtype)
@@ -31,9 +31,9 @@
   (subtype cwl-array-type-subtype))
 
 (define-immutable-record-type <union-type>
-  (-union-type subtypes)
-  union-type?
-  (subtypes union-type-subtypes))
+  (-cwl-union-type subtypes)
+  cwl-union-type?
+  (subtypes cwl-union-type-subtypes))
 
-(define (union-type . subtypes)
-  (-union-type subtypes))
+(define (cwl-union-type . subtypes)
+  (-cwl-union-type subtypes))
-- 
cgit 1.4.1