2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2007 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: words sequences vocabs kernel ;
|
|
|
|
|
IN: bootstrap.syntax
|
|
|
|
|
|
|
|
|
|
"syntax" create-vocab
|
|
|
|
|
"resource:core" over set-vocab-root
|
|
|
|
|
f swap set-vocab-source-loaded?
|
|
|
|
|
|
|
|
|
|
{
|
|
|
|
|
"!"
|
|
|
|
|
"\""
|
|
|
|
|
"#!"
|
|
|
|
|
"("
|
|
|
|
|
":"
|
|
|
|
|
";"
|
|
|
|
|
"<PRIVATE"
|
|
|
|
|
"?{"
|
2008-01-30 02:10:58 -05:00
|
|
|
"?V{"
|
2007-09-20 18:09:08 -04:00
|
|
|
"BIN:"
|
|
|
|
|
"B{"
|
2008-01-30 02:10:58 -05:00
|
|
|
"BV{"
|
2007-09-20 18:09:08 -04:00
|
|
|
"C:"
|
|
|
|
|
"CHAR:"
|
|
|
|
|
"DEFER:"
|
|
|
|
|
"F{"
|
2008-01-30 02:10:58 -05:00
|
|
|
"FV{"
|
2007-09-20 18:09:08 -04:00
|
|
|
"FORGET:"
|
|
|
|
|
"GENERIC#"
|
|
|
|
|
"GENERIC:"
|
|
|
|
|
"HEX:"
|
|
|
|
|
"HOOK:"
|
|
|
|
|
"H{"
|
|
|
|
|
"IN:"
|
|
|
|
|
"INSTANCE:"
|
|
|
|
|
"M:"
|
|
|
|
|
"MAIN:"
|
|
|
|
|
"MATH:"
|
|
|
|
|
"MIXIN:"
|
|
|
|
|
"OCT:"
|
|
|
|
|
"P\""
|
|
|
|
|
"POSTPONE:"
|
|
|
|
|
"PREDICATE:"
|
|
|
|
|
"PRIMITIVE:"
|
|
|
|
|
"PRIVATE>"
|
|
|
|
|
"SBUF\""
|
|
|
|
|
"SYMBOL:"
|
|
|
|
|
"TUPLE:"
|
|
|
|
|
"T{"
|
|
|
|
|
"UNION:"
|
|
|
|
|
"USE:"
|
|
|
|
|
"USING:"
|
|
|
|
|
"V{"
|
|
|
|
|
"W{"
|
|
|
|
|
"["
|
|
|
|
|
"\\"
|
|
|
|
|
"]"
|
|
|
|
|
"delimiter"
|
|
|
|
|
"f"
|
|
|
|
|
"flushable"
|
|
|
|
|
"foldable"
|
|
|
|
|
"inline"
|
|
|
|
|
"parsing"
|
|
|
|
|
"t"
|
|
|
|
|
"{"
|
|
|
|
|
"}"
|
|
|
|
|
"CS{"
|
2007-12-21 21:18:24 -05:00
|
|
|
"<<"
|
|
|
|
|
">>"
|
2007-09-20 18:09:08 -04:00
|
|
|
} [ "syntax" create drop ] each
|
|
|
|
|
|
|
|
|
|
"t" "syntax" lookup define-symbol
|
