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

db4
Joe Groff 2010-02-22 23:57:10 -08:00
parent 53e601c5f0
commit b8bd5fe630
1 changed files with 1 additions and 1 deletions

View File

@ -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