fix classes.struct bootstrap

2009-09-24 12:07:41 -05:00 · 2009-09-24 12:07:41 -05:00 · 9020f2346a
parent 33c1915ea3
commit 9020f2346a
1 changed files with 2 additions and 0 deletions
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@ -27,6 +27,8 @@ PREDICATE: struct-class < tuple-class

 M: struct-class valid-superclass? drop f ;

+SLOT: fields
+
 : struct-slots ( struct-class -- slots )
    "c-type" word-prop fields>> ;