103 lines
1.8 KiB
Factor
103 lines
1.8 KiB
Factor
! Copyright (C) 2007, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: words words.symbol sequences vocabs kernel
|
|
compiler.units ;
|
|
IN: bootstrap.syntax
|
|
|
|
[
|
|
"syntax" create-vocab drop
|
|
|
|
{
|
|
"!"
|
|
"\""
|
|
"#!"
|
|
"("
|
|
":"
|
|
";"
|
|
"<PRIVATE"
|
|
"B{"
|
|
"BV{"
|
|
"C:"
|
|
"CHAR:"
|
|
"DEFER:"
|
|
"ERROR:"
|
|
"FORGET:"
|
|
"GENERIC#"
|
|
"GENERIC:"
|
|
"HOOK:"
|
|
"H{"
|
|
"HS{"
|
|
"IN:"
|
|
"INSTANCE:"
|
|
"M:"
|
|
"MAIN:"
|
|
"MATH:"
|
|
"MIXIN:"
|
|
"NAN:"
|
|
"P\""
|
|
"POSTPONE:"
|
|
"PREDICATE:"
|
|
"PRIMITIVE:"
|
|
"PRIVATE>"
|
|
"SBUF\""
|
|
"SINGLETON:"
|
|
"SINGLETONS:"
|
|
"BUILTIN:"
|
|
"SYMBOL:"
|
|
"SYMBOLS:"
|
|
"CONSTANT:"
|
|
"TUPLE:"
|
|
"final"
|
|
"SLOT:"
|
|
"T{"
|
|
"UNION:"
|
|
"INTERSECTION:"
|
|
"USE:"
|
|
"UNUSE:"
|
|
"USING:"
|
|
"QUALIFIED:"
|
|
"QUALIFIED-WITH:"
|
|
"FROM:"
|
|
"EXCLUDE:"
|
|
"RENAME:"
|
|
"ALIAS:"
|
|
"SYNTAX:"
|
|
"V{"
|
|
"W{"
|
|
"["
|
|
"\\"
|
|
"M\\"
|
|
"]"
|
|
"delimiter"
|
|
"deprecated"
|
|
"f"
|
|
"flushable"
|
|
"foldable"
|
|
"inline"
|
|
"recursive"
|
|
"t"
|
|
"{"
|
|
"}"
|
|
"CS{"
|
|
"<<"
|
|
">>"
|
|
"call-next-method"
|
|
"not{"
|
|
"maybe{"
|
|
"union{"
|
|
"intersection{"
|
|
"initial:"
|
|
"read-only"
|
|
"call("
|
|
"execute("
|
|
"<<<<<<"
|
|
"======"
|
|
">>>>>>"
|
|
"<<<<<<<"
|
|
"======="
|
|
">>>>>>>"
|
|
} [ "syntax" create drop ] each
|
|
|
|
"t" "syntax" lookup-word define-symbol
|
|
] with-compilation-unit
|