diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index 9553cb58fd..9a3b9f4fa8 100644 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -367,7 +367,7 @@ PRIVATE> : ( name c-type attributes -- slot-spec ) [ struct-slot-spec new ] 3dip [ >>name ] - [ [ >>type ] [ struct-slot-class >>class ] bi ] + [ [ >>type ] [ struct-slot-class init-slot-class ] bi ] [ [ dup empty? ] [ peel-off-struct-attributes ] until drop ] tri* ; ; -M: tuple-class initial-value* new ; +M: tuple-class initial-value* new t ;