classes.struct: reader-quot was checking struct-slot-spec for array-ness, not the type! derp
parent
53e601c5f0
commit
b8bd5fe630
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue