basis/bootstrap/syntax.factor

   1 ! Copyright (C) 2007, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: words words.symbol sequences vocabs kernel
   4 compiler.units ;
   5 IN: bootstrap.syntax
   6
   7 [
   8     "syntax" create-vocab drop
   9
  10     {
  11         "\""
  12         "("
  13         ":"
  14         ";"
  15         "<PRIVATE"
  16         "B{"
  17         "BV{"
  18         "C:"
  19         "CHAR:"
  20         "DEFER:"
  21         "ERROR:"
  22         "FORGET:"
  23         "GENERIC#:"
  24         "GENERIC:"
  25         "HOOK:"
  26         "H{"
  27         "HS{"
  28         "IH{"
  29         "IN:"
  30         "INSTANCE:"
  31         "M:"
  32         "MAIN:"
  33         "MATH:"
  34         "MIXIN:"
  35         "NAN:"
  36         "P\""
  37         "POSTPONE:"
  38         "PREDICATE:"
  39         "PRIMITIVE:"
  40         "PRIVATE>"
  41         "SBUF\""
  42         "SINGLETON:"
  43         "SINGLETONS:"
  44         "BUILTIN:"
  45         "SYMBOL:"
  46         "SYMBOLS:"
  47         "INITIALIZE:"
  48         "CONSTANT:"
  49         "TUPLE:"
  50         "final"
  51         "SLOT:"
  52         "T{"
  53         "UNION:"
  54         "INTERSECTION:"
  55         "REUSE:"
  56         "USE:"
  57         "UNUSE:"
  58         "USING:"
  59         "QUALIFIED:"
  60         "QUALIFIED-WITH:"
  61         "FROM:"
  62         "EXCLUDE:"
  63         "RENAME:"
  64         "ALIAS:"
  65         "SYNTAX:"
  66         "V{"
  67         "W{"
  68         "["
  69         "\\"
  70         "M\\"
  71         "]"
  72         "auto-use"
  73         "delimiter"
  74         "deprecated"
  75         "f"
  76         "flushable"
  77         "foldable"
  78         "inline"
  79         "recursive"
  80         "t"
  81         "{"
  82         "}"
  83         "CS{"
  84         "<<"
  85         ">>"
  86         "call-next-method"
  87         "not{"
  88         "maybe{"
  89         "union{"
  90         "intersection{"
  91         "initial:"
  92         "read-only"
  93         "call("
  94         "execute("
  95         "<<<<<<"
  96         "======"
  97         ">>>>>>"
  98         "<<<<<<<"
  99         "======="
 100         ">>>>>>>"
 101         "'["
 102         "'{"
 103         "'H{"
 104         "'HS{"
 105         "_"
 106         "@"
 107         "MACRO:"
 108         "MEMO:"
 109         "IDENTITY-MEMO:"
 110         ":>"
 111         "[|"
 112         "[let"
 113         "::"
 114         "M::"
 115         "MACRO::"
 116         "MEMO::"
 117         "IDENTITY-MEMO::"
 118         "STARTUP-HOOK:"
 119         "SHUTDOWN-HOOK:"
 120     } [ "syntax" create-word drop ] each
 121
 122     "t" "syntax" lookup-word define-symbol
 123 ] with-compilation-unit