core/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         "IN:"
  29         "INSTANCE:"
  30         "M:"
  31         "MAIN:"
  32         "MATH:"
  33         "MIXIN:"
  34         "NAN:"
  35         "P\""
  36         "POSTPONE:"
  37         "PREDICATE:"
  38         "PRIMITIVE:"
  39         "PRIVATE>"
  40         "SBUF\""
  41         "SINGLETON:"
  42         "SINGLETONS:"
  43         "BUILTIN:"
  44         "SYMBOL:"
  45         "SYMBOLS:"
  46         "CONSTANT:"
  47         "TUPLE:"
  48         "final"
  49         "SLOT:"
  50         "T{"
  51         "TH{"
  52         "UNION:"
  53         "INTERSECTION:"
  54         "USE:"
  55         "UNUSE:"
  56         "USING:"
  57         "QUALIFIED:"
  58         "QUALIFIED-WITH:"
  59         "FROM:"
  60         "EXCLUDE:"
  61         "RENAME:"
  62         "ALIAS:"
  63         "SYNTAX:"
  64         "V{"
  65         "W{"
  66         "["
  67         "\\"
  68         "M\\"
  69         "]"
  70         "delimiter"
  71         "deprecated"
  72         "f"
  73         "flushable"
  74         "foldable"
  75         "inline"
  76         "recursive"
  77         "t"
  78         "{"
  79         "}"
  80         "CS{"
  81         "<<"
  82         ">>"
  83         "call-next-method"
  84         "not{"
  85         "maybe{"
  86         "union{"
  87         "intersection{"
  88         "initial:"
  89         "read-only"
  90         "call("
  91         "execute("
  92         "<<<<<<"
  93         "======"
  94         ">>>>>>"
  95         "<<<<<<<"
  96         "======="
  97         ">>>>>>>"
  98     } [ "syntax" create-word drop ] each
  99
 100     "t" "syntax" lookup-word define-symbol
 101 ] with-compilation-unit