uniform-vector?

[Masao Uebayashi]

1) Isn't  'Uniform Vector' ordinal 'Vector'?

guile> (array? #*0000)
=> #t
guile> (vector? #*0000)
=> #f <--- ???
guile> (uniform-vector? #*0000)
=> #t

2) Is ordinal 'Vector' 'Uniform Vector'?

guile> (array? #(0 "foo" (bar)))
=> #t
guile> (vector? #(0 "foo" (bar)))
=> #t
guile> (uniform-vector? #(0 "foo" (bar)))
=> #t <--- ???

Masao

---
 |_  -|--|-
_|__ /|\/|\