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

View File

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