Move definition of 't' from syntax to bootstrap/primitives to fix bootstrap, now that 't' really has to be a class early

db4
Slava Pestov 2011-10-31 00:24:04 -07:00
parent b31ffdfcb4
commit f827b74a11
2 changed files with 7 additions and 6 deletions

View File

@ -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 ,

View File

@ -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 {