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

Joe Groff 2010-02-22 23:57:10 -08:00
parent b24eabb7d8
commit 9a79427f00
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