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