Fix bootstrap

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 9553cb58fd3ddaf6d685b231fd955484cd872a59..9a3b9f4fa819a96644b46f851070694d725d8db2 100644 (file)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -367,7 +367,7 @@ PRIVATE>
 : <struct-slot-spec> ( 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* ;
 
 <PRIVATE

diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 18a23f3c0f95e67053725fe4e4bdaaf771ee2fae..c0109f7aef4629c754ecf3fd69e2fd2d6783773a 100755 (executable)
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -206,9 +206,6 @@ M: not-a-tuple summary
 M: bad-superclass summary
     drop "Tuple classes can only inherit from non-final tuple classes" ;
 
-M: no-initial-value summary
-    drop "Initial value must be provided for slots specialized to this class" ;
-
 M: bad-initial-value summary
     drop "Incompatible initial value" ;
 

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 7fc311de55495a797e9cab831b59b54a722a91e5..c0455a5962e502db36032144a344e80a55b71d62 100644 (file)
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -373,4 +373,4 @@ M: tuple-class boa
     [ tuple-layout ]
     bi <tuple-boa> ;
 
-M: tuple-class initial-value* new ;
+M: tuple-class initial-value* new t ;