From b8bd5fe6301bd48aea30f9f2e485d1536e357e98 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 22 Feb 2010 23:57:10 -0800 Subject: [PATCH] classes.struct: reader-quot was checking struct-slot-spec for array-ness, not the type! derp --- basis/classes/struct/struct.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index 3b2fc875c4..204b05517b 100644 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -147,7 +147,7 @@ M: struct-class initial-value* ; 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