From 83fe3cca669a569146ab3c0e060f25111c165aae Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Sep 2024 02:58:51 +0100
Subject: work/command-line-tool: Comment on formal-parameter-type clauses.

* ravanan/work/command-line-tool.scm (formal-parameter-type): Comment
on cond ladder clauses.
---
 ravanan/work/command-line-tool.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm
index 26d1a9e..5000100 100644
--- a/ravanan/work/command-line-tool.scm
+++ b/ravanan/work/command-line-tool.scm
@@ -139,11 +139,14 @@ example, when @var{type} is a union type."
 (define (formal-parameter-type type)
   "Return the type described in the CWL @var{type} specification."
   (cond
+   ;; Union types
    ((vector? type)
     (apply union-type
            (map formal-parameter-type (vector->list type))))
+   ;; Other types
    ((string? type)
     (string->symbol type))
+   ;; Array types
    ((string=? (assoc-ref type "type")
               "array")
     (array-type (formal-parameter-type (assoc-ref type "items"))))))
-- 
cgit v1.2.3