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

Fix bootstrap

db4
Slava Pestov 2008-07-13 23:26:43 -05:00
parent 14b5e35a0e
commit aea935638c
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
core/bootstrap/primitives.factor
View File

@ -121,7 +121,7 @@ bootstrapping? on
[ [ dup pair? [ first2 create ] when ] map ] map ; [ [ dup pair? [ first2 create ] when ] map ] map ;
: define-builtin-slots ( class slots -- ) : define-builtin-slots ( class slots -- )
prepare-slots 1 make-slots prepare-slots make-slots 1 finalize-slots
[ "slots" set-word-prop ] [ define-accessors ] 2bi ; [ "slots" set-word-prop ] [ define-accessors ] 2bi ;
: define-builtin ( symbol slotspec -- ) : define-builtin ( symbol slotspec -- )
@ -273,18 +273,16 @@ bi
{ "echelon" { "fixnum" "math" } read-only } { "echelon" { "fixnum" "math" } read-only }
} define-builtin } define-builtin
"tuple" "kernel" create { "tuple" "kernel" create
[ { } define-builtin ] [ { } define-builtin ]
[ { "delegate" } "slot-names" set-word-prop ] [ define-tuple-layout ]
[ define-tuple-layout ] [
[ { "delegate" } make-slots
{ "delegate" } [ drop ] [ finalize-tuple-slots ] 2bi
[ drop ] [ generate-tuple-slots ] 2bi [ "slots" set-word-prop ]
[ "slots" set-word-prop ] [ define-accessors ]
[ define-accessors ] 2bi
2bi ] tri
]
} cleave
! Create special tombstone values ! Create special tombstone values
"tombstone" "hashtables.private" create "tombstone" "hashtables.private" create