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
|
||||
math.private math.order namespaces make parser sequences strings
|
||||
vectors words quotations assocs layouts classes classes.private
|
||||
classes.builtin classes.tuple classes.tuple.private
|
||||
kernel.private vocabs vocabs.loader source-files definitions
|
||||
slots classes.union classes.intersection classes.predicate
|
||||
compiler.units bootstrap.image.private io.files accessors
|
||||
combinators ;
|
||||
classes.builtin classes.singleton classes.tuple
|
||||
classes.tuple.private kernel.private vocabs vocabs.loader
|
||||
source-files definitions slots classes.union
|
||||
classes.intersection classes.predicate compiler.units
|
||||
bootstrap.image.private io.files accessors combinators ;
|
||||
IN: bootstrap.primitives
|
||||
|
||||
"Creating primitives and basic runtime structures..." print flush
|
||||
|
@ -156,6 +156,8 @@ call( -- )
|
|||
"f" "syntax" create [ not ] "predicate" set-word-prop
|
||||
"f?" "syntax" vocab-words delete-at
|
||||
|
||||
"t" "syntax" lookup define-singleton-class
|
||||
|
||||
! Some unions
|
||||
"c-ptr" "alien" create [
|
||||
"alien" "alien" lookup ,
|
||||
|
|
|
@ -76,7 +76,6 @@ IN: bootstrap.syntax
|
|||
"NAN:" [ 16 scan-base <fp-nan> suffix! ] define-core-syntax
|
||||
|
||||
"f" [ f suffix! ] define-core-syntax
|
||||
"t" "syntax" lookup define-singleton-class
|
||||
|
||||
"CHAR:" [
|
||||
scan-token {
|
||||
|
|
Loading…
Reference in New Issue