Handle vector literals

This commit is contained in:
Justin Ethier 2015-06-03 21:40:09 -04:00
parent 1305e61558
commit 935226740e

View file

@ -26,6 +26,7 @@
(cond ((number? exp) #t) (cond ((number? exp) #t)
((boolean? exp) #t) ((boolean? exp) #t)
((string? exp) #t) ((string? exp) #t)
((vector? exp) #t)
((char? exp) #t) ((char? exp) #t)
((eof-object? exp) #t) ((eof-object? exp) #t)
(else #f))) (else #f)))