Fix bootstrap
parent
14b5e35a0e
commit
aea935638c
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue