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