diff options
| -rw-r--r-- | ravanan/work/command-line-tool.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm index ecf11b4..26d1a9e 100644 --- a/ravanan/work/command-line-tool.scm +++ b/ravanan/work/command-line-tool.scm @@ -86,7 +86,8 @@ example, when @var{type} is a union type." ((or 'null #()) 'null) (_ #f))) ((array-type? type) - (and (every (cut match-type <> (array-type-subtype type)) + (and (vector? obj) + (every (cut match-type <> (array-type-subtype type)) (vector->list obj)) type)) ((union-type? type) |