steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bootstrap

db4
Slava Pestov 2011-11-12 16:43:16 -08:00
parent e10e019f9f
commit 07ef058fb0
3 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/classes/struct/struct.factor
View File

@ -367,7 +367,7 @@ PRIVATE>
: <struct-slot-spec> ( name c-type attributes -- slot-spec ) : <struct-slot-spec> ( name c-type attributes -- slot-spec )
[ struct-slot-spec new ] 3dip [ struct-slot-spec new ] 3dip
[ >>name ] [ >>name ]
[ [ >>type ] [ struct-slot-class >>class ] bi ] [ [ >>type ] [ struct-slot-class init-slot-class ] bi ]
[ [ dup empty? ] [ peel-off-struct-attributes ] until drop ] tri* ; [ [ dup empty? ] [ peel-off-struct-attributes ] until drop ] tri* ;
<PRIVATE <PRIVATE

3
basis/debugger/debugger.factor
View File

@ -206,9 +206,6 @@ M: not-a-tuple summary
M: bad-superclass summary M: bad-superclass summary
drop "Tuple classes can only inherit from non-final tuple classes" ; 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 M: bad-initial-value summary
drop "Incompatible initial value" ; drop "Incompatible initial value" ;

2
core/classes/tuple/tuple.factor
View File

@ -373,4 +373,4 @@ M: tuple-class boa
[ tuple-layout ] [ tuple-layout ]
bi <tuple-boa> ; bi <tuple-boa> ;
M: tuple-class initial-value* new ; M: tuple-class initial-value* new t ;