1 /* This file is automatically generated by builtin-symbols.scm. DO NOT EDIT! */
2 #define LIBSAGITTARIUS_BODY
3 #include "sagittarius/private.h"
4 SgSymbol Sg_BuiltinSymbols[] = {
5 #define ENTRY() {{SG_CLASS2TAG(SG_CLASS_SYMBOL)}, NULL, SG_SYMBOL_INTERNED}
6 ENTRY(),
7 ENTRY(),
8 ENTRY(),
9 ENTRY(),
10 ENTRY(),
11 ENTRY(),
12 ENTRY(),
13 ENTRY(),
14 ENTRY(),
15 ENTRY(),
16 ENTRY(),
17 ENTRY(),
18 ENTRY(),
19 ENTRY(),
20 ENTRY(),
21 ENTRY(),
22 ENTRY(),
23 ENTRY(),
24 ENTRY(),
25 ENTRY(),
26 ENTRY(),
27 ENTRY(),
28 ENTRY(),
29 ENTRY(),
30 ENTRY(),
31 ENTRY(),
32 ENTRY(),
33 ENTRY(),
34 ENTRY(),
35 ENTRY(),
36 ENTRY(),
37 ENTRY(),
38 ENTRY(),
39 ENTRY(),
40 ENTRY(),
41 ENTRY(),
42 ENTRY(),
43 ENTRY(),
44 ENTRY(),
45 ENTRY(),
46 ENTRY(),
47 ENTRY(),
48 ENTRY(),
49 ENTRY(),
50 ENTRY(),
51 ENTRY(),
52 ENTRY(),
53 ENTRY(),
54 ENTRY(),
55 ENTRY(),
56 ENTRY(),
57 ENTRY(),
58 ENTRY(),
59 ENTRY(),
60 ENTRY(),
61 ENTRY(),
62 ENTRY(),
63 ENTRY(),
64 #undef ENTRY
65 };
init_builtin_symbols()66 static void init_builtin_symbols()
67 {
68 #define STRING(s) SG_MAKE_STRING(s)
69 #define INTERN(s, i) \
70 Sg_BuiltinSymbols[i].name = STRING(s); \
71 Sg_HashTableSet(obtable, Sg_BuiltinSymbols[i].name, SG_OBJ(&Sg_BuiltinSymbols[i]), 0)
72 INTERN("quote", 0);
73 INTERN("quasiquote", 1);
74 INTERN("unquote", 2);
75 INTERN("unquote-splicing", 3);
76 INTERN("syntax", 4);
77 INTERN("quasisyntax", 5);
78 INTERN("unsyntax", 6);
79 INTERN("unsyntax-splicing", 7);
80 INTERN("define", 8);
81 INTERN("define-constant", 9);
82 INTERN("let", 10);
83 INTERN("let*", 11);
84 INTERN("letrec", 12);
85 INTERN("letrec*", 13);
86 INTERN("set!", 14);
87 INTERN("begin", 15);
88 INTERN(".", 16);
89 INTERN("(", 17);
90 INTERN(")", 18);
91 INTERN("[", 19);
92 INTERN("]", 20);
93 INTERN("if", 21);
94 INTERN("and", 22);
95 INTERN("or", 23);
96 INTERN("cond", 24);
97 INTERN("=>", 25);
98 INTERN("do", 26);
99 INTERN("while", 27);
100 INTERN("unless", 28);
101 INTERN("when", 29);
102 INTERN("receive", 30);
103 INTERN("library", 31);
104 INTERN("import", 32);
105 INTERN("export", 33);
106 INTERN("for", 34);
107 INTERN("only", 35);
108 INTERN("rename", 36);
109 INTERN("prefix", 37);
110 INTERN("except", 38);
111 INTERN("expand", 39);
112 INTERN("run", 40);
113 INTERN("define-syntax", 41);
114 INTERN("let-syntax", 42);
115 INTERN("letrec-syntax", 43);
116 INTERN("syntax-rules", 44);
117 INTERN("er-macro-transformer", 45);
118 INTERN("...", 46);
119 INTERN("%macroexpand-1", 47);
120 INTERN("%macroexpand", 48);
121 INTERN("file-options", 49);
122 INTERN("record-type-descriptor", 50);
123 INTERN("record-constructor-descriptor", 51);
124 INTERN("replace", 52);
125 INTERN("ignore", 53);
126 INTERN("raise", 54);
127 INTERN(">=", 55);
128 INTERN("<=", 56);
129 INTERN("not", 57);
130 #undef INTERN
131 }
132