2008-12-17 19:12:59 -05:00
|
|
|
! Copyright (C) 2007, 2008 Slava Pestov.
|
2007-09-20 18:09:08 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-11-13 08:55:47 -05:00
|
|
|
USING: words words.symbol sequences vocabs kernel
|
|
|
|
compiler.units ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: bootstrap.syntax
|
|
|
|
|
2009-11-13 08:55:47 -05:00
|
|
|
[
|
|
|
|
"syntax" create-vocab drop
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2009-11-13 08:55:47 -05:00
|
|
|
{
|
|
|
|
"\""
|
|
|
|
"("
|
|
|
|
":"
|
|
|
|
";"
|
|
|
|
"<PRIVATE"
|
2018-08-04 09:32:09 -04:00
|
|
|
"<WINDOWS"
|
|
|
|
"<UNIX"
|
|
|
|
"<LINUX"
|
|
|
|
"<MACOS"
|
|
|
|
"WINDOWS>"
|
|
|
|
"UNIX>"
|
|
|
|
"LINUX>"
|
|
|
|
"MACOS>"
|
2009-11-13 08:55:47 -05:00
|
|
|
"B{"
|
|
|
|
"BV{"
|
|
|
|
"C:"
|
2017-08-26 13:27:25 -04:00
|
|
|
"char:"
|
2009-11-13 08:55:47 -05:00
|
|
|
"DEFER:"
|
|
|
|
"ERROR:"
|
|
|
|
"FORGET:"
|
2017-06-01 14:58:58 -04:00
|
|
|
"GENERIC#:"
|
2009-11-13 08:55:47 -05:00
|
|
|
"GENERIC:"
|
|
|
|
"HOOK:"
|
|
|
|
"H{"
|
2010-02-26 11:01:57 -05:00
|
|
|
"HS{"
|
2009-11-13 08:55:47 -05:00
|
|
|
"IN:"
|
|
|
|
"INSTANCE:"
|
|
|
|
"M:"
|
|
|
|
"MAIN:"
|
|
|
|
"MATH:"
|
|
|
|
"MIXIN:"
|
2017-08-26 13:27:25 -04:00
|
|
|
"nan:"
|
2018-08-02 10:37:02 -04:00
|
|
|
"path\""
|
2017-08-26 13:27:25 -04:00
|
|
|
"postpone:"
|
2009-11-13 08:55:47 -05:00
|
|
|
"PREDICATE:"
|
|
|
|
"PRIMITIVE:"
|
|
|
|
"PRIVATE>"
|
2018-08-02 10:37:02 -04:00
|
|
|
"sbuf\""
|
2009-11-13 08:55:47 -05:00
|
|
|
"SINGLETON:"
|
|
|
|
"SINGLETONS:"
|
2013-03-10 15:04:34 -04:00
|
|
|
"BUILTIN:"
|
2009-11-13 08:55:47 -05:00
|
|
|
"SYMBOL:"
|
|
|
|
"SYMBOLS:"
|
|
|
|
"CONSTANT:"
|
|
|
|
"TUPLE:"
|
2010-02-17 08:19:57 -05:00
|
|
|
"final"
|
2009-11-13 08:55:47 -05:00
|
|
|
"SLOT:"
|
|
|
|
"T{"
|
2017-05-30 21:14:29 -04:00
|
|
|
"TH{"
|
2009-11-13 08:55:47 -05:00
|
|
|
"UNION:"
|
|
|
|
"INTERSECTION:"
|
|
|
|
"USE:"
|
|
|
|
"UNUSE:"
|
|
|
|
"USING:"
|
|
|
|
"QUALIFIED:"
|
|
|
|
"QUALIFIED-WITH:"
|
|
|
|
"FROM:"
|
|
|
|
"EXCLUDE:"
|
|
|
|
"RENAME:"
|
|
|
|
"ALIAS:"
|
|
|
|
"SYNTAX:"
|
|
|
|
"V{"
|
|
|
|
"W{"
|
|
|
|
"["
|
|
|
|
"\\"
|
2017-10-12 22:22:41 -04:00
|
|
|
"M\\\\"
|
2009-11-13 08:55:47 -05:00
|
|
|
"]"
|
|
|
|
"delimiter"
|
|
|
|
"deprecated"
|
|
|
|
"f"
|
|
|
|
"flushable"
|
|
|
|
"foldable"
|
|
|
|
"inline"
|
2018-08-04 09:04:51 -04:00
|
|
|
"private"
|
2009-11-13 08:55:47 -05:00
|
|
|
"recursive"
|
|
|
|
"t"
|
|
|
|
"{"
|
|
|
|
"}"
|
|
|
|
"CS{"
|
|
|
|
"<<"
|
|
|
|
">>"
|
|
|
|
"call-next-method"
|
2012-05-03 22:17:41 -04:00
|
|
|
"not{"
|
|
|
|
"maybe{"
|
2011-11-22 21:49:18 -05:00
|
|
|
"union{"
|
|
|
|
"intersection{"
|
2009-11-13 08:55:47 -05:00
|
|
|
"initial:"
|
|
|
|
"read-only"
|
|
|
|
"call("
|
|
|
|
"execute("
|
2017-11-24 17:46:47 -05:00
|
|
|
"IH{"
|
2017-11-24 19:42:30 -05:00
|
|
|
"::"
|
|
|
|
"M::"
|
|
|
|
"MACRO:"
|
|
|
|
"MACRO::"
|
|
|
|
"TYPED:"
|
|
|
|
"TYPED::"
|
|
|
|
"MEMO:"
|
|
|
|
"MEMO::"
|
|
|
|
"MEMO["
|
|
|
|
"IDENTITY-MEMO:"
|
|
|
|
"IDENTITY-MEMO::"
|
|
|
|
"PROTOCOL:"
|
|
|
|
"CONSULT:"
|
|
|
|
"BROADCAST:"
|
|
|
|
"SLOT-PROTOCOL:"
|
|
|
|
"HINTS:"
|
2018-01-03 01:32:23 -05:00
|
|
|
"':"
|
2017-11-24 19:42:30 -05:00
|
|
|
"'["
|
|
|
|
"@"
|
|
|
|
"_"
|
2017-11-24 20:12:04 -05:00
|
|
|
"[["
|
|
|
|
"[=["
|
|
|
|
"[==["
|
|
|
|
"[===["
|
|
|
|
"[====["
|
|
|
|
"[=====["
|
|
|
|
"[======["
|
|
|
|
|
|
|
|
"![["
|
|
|
|
"![=["
|
|
|
|
"![==["
|
|
|
|
"![===["
|
|
|
|
"![====["
|
|
|
|
"![=====["
|
|
|
|
"![======["
|
|
|
|
|
|
|
|
"I[["
|
|
|
|
"I[=["
|
|
|
|
"I[==["
|
|
|
|
"I[===["
|
|
|
|
"I[====["
|
|
|
|
"I[=====["
|
|
|
|
"I[======["
|
|
|
|
|
|
|
|
":>"
|
|
|
|
"|["
|
|
|
|
"let["
|
|
|
|
"'let["
|
2017-11-24 21:06:44 -05:00
|
|
|
"FUNCTOR:"
|
|
|
|
"VARIABLES-FUNCTOR:"
|
2018-02-18 12:34:48 -05:00
|
|
|
"INITIALIZED-SYMBOL:"
|
|
|
|
"STARTUP-HOOK:"
|
|
|
|
"SHUTDOWN-HOOK:"
|
2015-06-08 15:38:38 -04:00
|
|
|
} [ "syntax" create-word drop ] each
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2011-11-06 18:57:24 -05:00
|
|
|
"t" "syntax" lookup-word define-symbol
|
2009-11-13 08:55:47 -05:00
|
|
|
] with-compilation-unit
|