diff options
| author | Arun Isaac | 2024-09-13 02:58:51 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-09-13 03:01:50 +0100 |
| commit | 83fe3cca669a569146ab3c0e060f25111c165aae (patch) | |
| tree | ea0f31f5cb4a41e22c82534821f61d86b4e6381c | |
| parent | b56e5d599d6547be6718634aa698a097cb9e82f6 (diff) | |
| download | ravanan-83fe3cca669a569146ab3c0e060f25111c165aae.tar.gz ravanan-83fe3cca669a569146ab3c0e060f25111c165aae.tar.lz ravanan-83fe3cca669a569146ab3c0e060f25111c165aae.zip | |
work/command-line-tool: Comment on formal-parameter-type clauses.
* ravanan/work/command-line-tool.scm (formal-parameter-type): Comment
on cond ladder clauses.
| -rw-r--r-- | ravanan/work/command-line-tool.scm | 3 |
1 files changed, 3 insertions, 0 deletions
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")))))) |