classes.struct: reader-quot was checking struct-slot-spec for array-ness, not the...

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 3b2fc875c4321b45b9a76e34cc0fb8434cfdd9a1..204b05517b0a91f9dea23def14eae5274acf8e8c 100644 (file)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -147,7 +147,7 @@ M: struct-class initial-value* <struct> ; inline
 GENERIC: struct-slot-values ( struct -- sequence )
 
 M: struct-class reader-quot
-    dup array? [ dup first define-array-vocab drop ] when
+    dup type>> array? [ dup type>> first define-array-vocab drop ] when
     nip '[ _ read-struct-slot ] ;
 
 M: struct-class writer-quot