Move definition of 't' from syntax to bootstrap/primitives to fix bootstrap, now that 't' really has to be a class early
parent
b31ffdfcb4
commit
f827b74a11
|
@ -4,11 +4,11 @@ USING: alien alien.strings arrays byte-arrays generic hashtables
|
||||||
hashtables.private io io.encodings.ascii kernel math
|
hashtables.private io io.encodings.ascii kernel math
|
||||||
math.private math.order namespaces make parser sequences strings
|
math.private math.order namespaces make parser sequences strings
|
||||||
vectors words quotations assocs layouts classes classes.private
|
vectors words quotations assocs layouts classes classes.private
|
||||||
classes.builtin classes.tuple classes.tuple.private
|
classes.builtin classes.singleton classes.tuple
|
||||||
kernel.private vocabs vocabs.loader source-files definitions
|
classes.tuple.private kernel.private vocabs vocabs.loader
|
||||||
slots classes.union classes.intersection classes.predicate
|
source-files definitions slots classes.union
|
||||||
compiler.units bootstrap.image.private io.files accessors
|
classes.intersection classes.predicate compiler.units
|
||||||
combinators ;
|
bootstrap.image.private io.files accessors combinators ;
|
||||||
IN: bootstrap.primitives
|
IN: bootstrap.primitives
|
||||||
|
|
||||||
"Creating primitives and basic runtime structures..." print flush
|
"Creating primitives and basic runtime structures..." print flush
|
||||||
|
@ -156,6 +156,8 @@ call( -- )
|
||||||
"f" "syntax" create [ not ] "predicate" set-word-prop
|
"f" "syntax" create [ not ] "predicate" set-word-prop
|
||||||
"f?" "syntax" vocab-words delete-at
|
"f?" "syntax" vocab-words delete-at
|
||||||
|
|
||||||
|
"t" "syntax" lookup define-singleton-class
|
||||||
|
|
||||||
! Some unions
|
! Some unions
|
||||||
"c-ptr" "alien" create [
|
"c-ptr" "alien" create [
|
||||||
"alien" "alien" lookup ,
|
"alien" "alien" lookup ,
|
||||||
|
|
|
@ -76,7 +76,6 @@ IN: bootstrap.syntax
|
||||||
"NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax
|
"NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax
|
||||||
|
|
||||||
"f" [ f suffix! ] define-core-syntax
|
"f" [ f suffix! ] define-core-syntax
|
||||||
"t" "syntax" lookup define-singleton-class
|
|
||||||
|
|
||||||
"CHAR:" [
|
"CHAR:" [
|
||||||
scan-token {
|
scan-token {
|
||||||
|
|
Loading…
Reference in New Issue