1 /* Generated automatically from ./libmod.scm. DO NOT EDIT */
2 #define LIBGAUCHE_BODY
3 #include <gauche.h>
4 #include <gauche/code.h>
5
6 #line 37 "./libmod.scm"
7 #include "gauche/vminsn.h"
8
9
10 #line 38 "./libmod.scm"
11 #include "gauche/class.h"
12
13
14 #line 39 "./libmod.scm"
15 #include "gauche/priv/moduleP.h"
16
17
18 static ScmObj libmodmoduleP(ScmObj*, int, void*);
19 static SCM_DEFINE_SUBRX(libmodmoduleP__STUB, 1, 0,1, SCM_FALSE,0, libmodmoduleP, NULL, NULL);
20
21
22 static ScmObj libmodmodule_name(ScmObj*, int, void*);
23 static SCM_DEFINE_SUBRX(libmodmodule_name__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmodule_name, NULL, NULL);
24
25
26 static ScmObj libmodmodule_parents(ScmObj*, int, void*);
27 static SCM_DEFINE_SUBRX(libmodmodule_parents__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmodule_parents, NULL, NULL);
28
29
30 static ScmObj libmodmodule_precedence_list(ScmObj*, int, void*);
31 static SCM_DEFINE_SUBRX(libmodmodule_precedence_list__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmodule_precedence_list, NULL, NULL);
32
33
34 static ScmObj libmodmodule_imports(ScmObj*, int, void*);
35 static SCM_DEFINE_SUBRX(libmodmodule_imports__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmodule_imports, NULL, NULL);
36
37
38 static ScmObj libmodmodule_exports(ScmObj*, int, void*);
39 static SCM_DEFINE_SUBRX(libmodmodule_exports__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmodule_exports, NULL, NULL);
40
41
42 static ScmObj libmodmodule_table(ScmObj*, int, void*);
43 static SCM_DEFINE_SUBRX(libmodmodule_table__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmodule_table, NULL, NULL);
44
45
46 static ScmObj libmodfind_module(ScmObj*, int, void*);
47 static SCM_DEFINE_SUBRX(libmodfind_module__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodfind_module, NULL, NULL);
48
49
50 static ScmObj libmodall_modules(ScmObj*, int, void*);
51 static SCM_DEFINE_SUBRX(libmodall_modules__STUB, 0, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodall_modules, NULL, NULL);
52
53
54 static ScmObj libmodmake_module(ScmObj*, int, void*);
55 static SCM_DEFINE_SUBRX(libmodmake_module__STUB, 1, 1,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodmake_module, NULL, NULL);
56
57 static ScmModule* get_module_from_mod_or_name(ScmObj id);
58
59 static ScmObj libmodglobal_variable_boundP(ScmObj*, int, void*);
60 static SCM_DEFINE_SUBR(libmodglobal_variable_boundP__STUB, 2, 0,SCM_FALSE,libmodglobal_variable_boundP, NULL, NULL);
61
62
63 static ScmObj libmodglobal_variable_ref(ScmObj*, int, void*);
64 static SCM_DEFINE_SUBR(libmodglobal_variable_ref__STUB, 2, 3,SCM_FALSE,libmodglobal_variable_ref, NULL, NULL);
65
66
67 static ScmObj libmod_25export_all(ScmObj*, int, void*);
68 static SCM_DEFINE_SUBRX(libmod_25export_all__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmod_25export_all, NULL, NULL);
69
70
71 static ScmObj libmod_25extend_module(ScmObj*, int, void*);
72 static SCM_DEFINE_SUBRX(libmod_25extend_module__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmod_25extend_module, NULL, NULL);
73
74
75 static ScmObj libmod_25insert_binding(ScmObj*, int, void*);
76 static SCM_DEFINE_SUBR(libmod_25insert_binding__STUB, 3, 2,SCM_FALSE,libmod_25insert_binding, NULL, NULL);
77
78
79 static ScmObj libmod_25hide_binding(ScmObj*, int, void*);
80 static SCM_DEFINE_SUBRX(libmod_25hide_binding__STUB, 2, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmod_25hide_binding, NULL, NULL);
81
82
83 static ScmObj libmod_25alias_binding(ScmObj*, int, void*);
84 static SCM_DEFINE_SUBRX(libmod_25alias_binding__STUB, 4, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmod_25alias_binding, NULL, NULL);
85
86
87 static ScmObj libmod_25make_wrapper_module(ScmObj*, int, void*);
88 static SCM_DEFINE_SUBR(libmod_25make_wrapper_module__STUB, 2, 0,SCM_FALSE,libmod_25make_wrapper_module, NULL, NULL);
89
90
91 static ScmObj libmod_25export_symbols(ScmObj*, int, void*);
92 static SCM_DEFINE_SUBR(libmod_25export_symbols__STUB, 2, 0,SCM_FALSE,libmod_25export_symbols, NULL, NULL);
93
94
95 static ScmObj libmod_25import_module(ScmObj*, int, void*);
96 static SCM_DEFINE_SUBR(libmod_25import_module__STUB, 2, 3,SCM_FALSE,libmod_25import_module, NULL, NULL);
97
98
99 static ScmObj libmod_25import_modules(ScmObj*, int, void*);
100 static SCM_DEFINE_SUBR(libmod_25import_modules__STUB, 2, 0,SCM_FALSE,libmod_25import_modules, NULL, NULL);
101
102
103 static ScmObj libmod_25seal_moduleX(ScmObj*, int, void*);
104 static SCM_DEFINE_SUBRX(libmod_25seal_moduleX__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmod_25seal_moduleX, NULL, NULL);
105
106 static void module_print(ScmObj obj,ScmPort* port,ScmWriteContext* ctx);
107
108 static ScmObj libmodfind_binding(ScmObj*, int, void*);
109 static SCM_DEFINE_SUBRX(libmodfind_binding__STUB, 3, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodfind_binding, NULL, NULL);
110
111
112 static ScmObj libmodfind_const_binding(ScmObj*, int, void*);
113 static SCM_DEFINE_SUBRX(libmodfind_const_binding__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodfind_const_binding, NULL, NULL);
114
115
116 static ScmObj libmodgloc_boundP(ScmObj*, int, void*);
117 static SCM_DEFINE_SUBRX(libmodgloc_boundP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodgloc_boundP, NULL, NULL);
118
119
120 static ScmObj libmodgloc_ref(ScmObj*, int, void*);
121 static SCM_DEFINE_SUBR(libmodgloc_ref__STUB, 1, 2,SCM_FALSE,libmodgloc_ref, NULL, NULL);
122
123
124 static ScmObj libmodgloc_setX(ScmObj*, int, void*);
125 static SCM_DEFINE_SUBR(libmodgloc_setX__STUB, 2, 0,SCM_FALSE,libmodgloc_setX, NULL, NULL);
126
127
128 static ScmObj libmodgloc_constP(ScmObj*, int, void*);
129 static SCM_DEFINE_SUBRX(libmodgloc_constP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodgloc_constP, NULL, NULL);
130
131
132 static ScmObj libmodgloc_inlinableP(ScmObj*, int, void*);
133 static SCM_DEFINE_SUBRX(libmodgloc_inlinableP__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodgloc_inlinableP, NULL, NULL);
134
135
136
137 static ScmObj libmodid_TObound_gloc(ScmObj*, int, void*);
138 static SCM_DEFINE_SUBRX(libmodid_TObound_gloc__STUB, 1, 0,0, SCM_FALSE,SCM_SUBR_IMMEDIATE_ARG, libmodid_TObound_gloc, NULL, NULL);
139
140 #if defined(__CYGWIN__) || defined(GAUCHE_WINDOWS)
141 #define SCM_CGEN_CONST /*empty*/
142 #else
143 #define SCM_CGEN_CONST const
144 #endif
145 static SCM_CGEN_CONST struct scm__scRec {
146 ScmString d1561[139];
147 } scm__sc SCM_UNUSED = {
148 { /* ScmString d1561 */
149 SCM_STRING_CONST_INITIALIZER("module\077", 7, 7),
150 SCM_STRING_CONST_INITIALIZER("obj", 3, 3),
151 SCM_STRING_CONST_INITIALIZER("source-info", 11, 11),
152 SCM_STRING_CONST_INITIALIZER("./libmod.scm", 12, 12),
153 SCM_STRING_CONST_INITIALIZER("bind-info", 9, 9),
154 SCM_STRING_CONST_INITIALIZER("gauche", 6, 6),
155 SCM_STRING_CONST_INITIALIZER("module-name", 11, 11),
156 SCM_STRING_CONST_INITIALIZER("mod", 3, 3),
157 SCM_STRING_CONST_INITIALIZER("module-parents", 14, 14),
158 SCM_STRING_CONST_INITIALIZER("module-precedence-list", 22, 22),
159 SCM_STRING_CONST_INITIALIZER("module-imports", 14, 14),
160 SCM_STRING_CONST_INITIALIZER("module-exports", 14, 14),
161 SCM_STRING_CONST_INITIALIZER("module-table", 12, 12),
162 SCM_STRING_CONST_INITIALIZER("find-module", 11, 11),
163 SCM_STRING_CONST_INITIALIZER("name", 4, 4),
164 SCM_STRING_CONST_INITIALIZER("all-modules", 11, 11),
165 SCM_STRING_CONST_INITIALIZER("error", 5, 5),
166 SCM_STRING_CONST_INITIALIZER("if-exists", 9, 9),
167 SCM_STRING_CONST_INITIALIZER("make-module", 11, 11),
168 SCM_STRING_CONST_INITIALIZER("begin", 5, 5),
169 SCM_STRING_CONST_INITIALIZER("make-identifier", 15, 15),
170 SCM_STRING_CONST_INITIALIZER("require", 7, 7),
171 SCM_STRING_CONST_INITIALIZER("import", 6, 6),
172 SCM_STRING_CONST_INITIALIZER("module-name->path", 17, 17),
173 SCM_STRING_CONST_INITIALIZER("G1566", 5, 5),
174 SCM_STRING_CONST_INITIALIZER("module", 6, 6),
175 SCM_STRING_CONST_INITIALIZER("options", 7, 7),
176 SCM_STRING_CONST_INITIALIZER("unused-args", 11, 11),
177 SCM_STRING_CONST_INITIALIZER("use", 3, 3),
178 SCM_STRING_CONST_INITIALIZER("G1564", 5, 5),
179 SCM_STRING_CONST_INITIALIZER("G1565", 5, 5),
180 SCM_STRING_CONST_INITIALIZER("lambda", 6, 6),
181 SCM_STRING_CONST_INITIALIZER("define", 6, 6),
182 SCM_STRING_CONST_INITIALIZER("begin.", 6, 6),
183 SCM_STRING_CONST_INITIALIZER("with-module", 11, 11),
184 SCM_STRING_CONST_INITIALIZER("gauche.internal", 15, 15),
185 SCM_STRING_CONST_INITIALIZER("quote", 5, 5),
186 SCM_STRING_CONST_INITIALIZER("require.", 8, 8),
187 SCM_STRING_CONST_INITIALIZER("import.", 7, 7),
188 SCM_STRING_CONST_INITIALIZER("quasiquote", 10, 10),
189 SCM_STRING_CONST_INITIALIZER("unquote", 7, 7),
190 SCM_STRING_CONST_INITIALIZER("unquote-splicing", 16, 16),
191 SCM_STRING_CONST_INITIALIZER("%make-macro-transformer", 23, 23),
192 SCM_STRING_CONST_INITIALIZER("%toplevel", 9, 9),
193 SCM_STRING_CONST_INITIALIZER("list->string", 12, 12),
194 SCM_STRING_CONST_INITIALIZER("", 0, 0),
195 SCM_STRING_CONST_INITIALIZER("equal\077", 6, 6),
196 SCM_STRING_CONST_INITIALIZER("Invalid module name (it can't end with #\134.):", 44, 44),
197 SCM_STRING_CONST_INITIALIZER(".", 1, 1),
198 SCM_STRING_CONST_INITIALIZER("Invalid module name (component can't be \042.\042 or \042..\042):", 53, 53),
199 SCM_STRING_CONST_INITIALIZER("..", 2, 2),
200 SCM_STRING_CONST_INITIALIZER("path-comp", 9, 9),
201 SCM_STRING_CONST_INITIALIZER("p", 1, 1),
202 SCM_STRING_CONST_INITIALIZER("identifier->symbol", 18, 18),
203 SCM_STRING_CONST_INITIALIZER("symbol->string", 14, 14),
204 SCM_STRING_CONST_INITIALIZER("identifier expected, but got:", 29, 29),
205 SCM_STRING_CONST_INITIALIZER("/", 1, 1),
206 SCM_STRING_CONST_INITIALIZER("string-join", 11, 11),
207 SCM_STRING_CONST_INITIALIZER("with-input-from-string", 22, 22),
208 SCM_STRING_CONST_INITIALIZER("\134.", 2, 2),
209 SCM_STRING_CONST_INITIALIZER("regexp-replace-all", 18, 18),
210 SCM_STRING_CONST_INITIALIZER("path->module-name", 17, 17),
211 SCM_STRING_CONST_INITIALIZER("G1572", 5, 5),
212 SCM_STRING_CONST_INITIALIZER("G1571", 5, 5),
213 SCM_STRING_CONST_INITIALIZER("string required, but got:", 25, 25),
214 SCM_STRING_CONST_INITIALIZER("string-split", 12, 12),
215 SCM_STRING_CONST_INITIALIZER("map", 3, 3),
216 SCM_STRING_CONST_INITIALIZER("string->symbol", 14, 14),
217 SCM_STRING_CONST_INITIALIZER("path", 4, 4),
218 SCM_STRING_CONST_INITIALIZER("global-variable-bound\077", 22, 22),
219 SCM_STRING_CONST_INITIALIZER("mod-or-name", 11, 11),
220 SCM_STRING_CONST_INITIALIZER("global-variable-ref", 19, 19),
221 SCM_STRING_CONST_INITIALIZER("mod_or_name", 11, 11),
222 SCM_STRING_CONST_INITIALIZER("optional", 8, 8),
223 SCM_STRING_CONST_INITIALIZER("fallback", 8, 8),
224 SCM_STRING_CONST_INITIALIZER("stay-in-module", 14, 14),
225 SCM_STRING_CONST_INITIALIZER("symbol-bound\077", 13, 13),
226 SCM_STRING_CONST_INITIALIZER("too many arguments for", 22, 22),
227 SCM_STRING_CONST_INITIALIZER("%export-all", 11, 11),
228 SCM_STRING_CONST_INITIALIZER("%extend-module", 14, 14),
229 SCM_STRING_CONST_INITIALIZER("supers", 6, 6),
230 SCM_STRING_CONST_INITIALIZER("%insert-binding", 15, 15),
231 SCM_STRING_CONST_INITIALIZER("fresh", 5, 5),
232 SCM_STRING_CONST_INITIALIZER("const", 5, 5),
233 SCM_STRING_CONST_INITIALIZER("inlinable", 9, 9),
234 SCM_STRING_CONST_INITIALIZER("value", 5, 5),
235 SCM_STRING_CONST_INITIALIZER("flags", 5, 5),
236 SCM_STRING_CONST_INITIALIZER("%insert-syntax-binding", 22, 22),
237 SCM_STRING_CONST_INITIALIZER("syntax\077", 7, 7),
238 SCM_STRING_CONST_INITIALIZER("macro\077", 6, 6),
239 SCM_STRING_CONST_INITIALIZER("Syntax or macro object required, but got", 40, 40),
240 SCM_STRING_CONST_INITIALIZER("%hide-binding", 13, 13),
241 SCM_STRING_CONST_INITIALIZER("%alias-binding", 14, 14),
242 SCM_STRING_CONST_INITIALIZER("target", 6, 6),
243 SCM_STRING_CONST_INITIALIZER("tname", 5, 5),
244 SCM_STRING_CONST_INITIALIZER("origin", 6, 6),
245 SCM_STRING_CONST_INITIALIZER("oname", 5, 5),
246 SCM_STRING_CONST_INITIALIZER("%make-wrapper-module", 20, 20),
247 SCM_STRING_CONST_INITIALIZER("prefix", 6, 6),
248 SCM_STRING_CONST_INITIALIZER("%export-symbols", 15, 15),
249 SCM_STRING_CONST_INITIALIZER("names", 5, 5),
250 SCM_STRING_CONST_INITIALIZER("%import-module", 14, 14),
251 SCM_STRING_CONST_INITIALIZER("imported", 8, 8),
252 SCM_STRING_CONST_INITIALIZER("%import-modules", 15, 15),
253 SCM_STRING_CONST_INITIALIZER("mods", 4, 4),
254 SCM_STRING_CONST_INITIALIZER("%seal-module!", 13, 13),
255 SCM_STRING_CONST_INITIALIZER("list\077", 5, 5),
256 SCM_STRING_CONST_INITIALIZER("keyword\077", 8, 8),
257 SCM_STRING_CONST_INITIALIZER("%expand-user-import", 19, 19),
258 SCM_STRING_CONST_INITIALIZER("G1578", 5, 5),
259 SCM_STRING_CONST_INITIALIZER("import-spec", 11, 11),
260 SCM_STRING_CONST_INITIALIZER("any", 3, 3),
261 SCM_STRING_CONST_INITIALIZER("r7rs-setup", 10, 10),
262 SCM_STRING_CONST_INITIALIZER("provided\077", 9, 9),
263 SCM_STRING_CONST_INITIALIZER("load", 4, 4),
264 SCM_STRING_CONST_INITIALIZER("provide", 7, 7),
265 SCM_STRING_CONST_INITIALIZER("r7rs.user", 9, 9),
266 SCM_STRING_CONST_INITIALIZER("eval", 4, 4),
267 SCM_STRING_CONST_INITIALIZER("select-module", 13, 13),
268 SCM_STRING_CONST_INITIALIZER("args", 4, 4),
269 SCM_STRING_CONST_INITIALIZER("user", 4, 4),
270 SCM_STRING_CONST_INITIALIZER("G1582", 5, 5),
271 SCM_STRING_CONST_INITIALIZER("import-specs", 12, 12),
272 SCM_STRING_CONST_INITIALIZER("G1580", 5, 5),
273 SCM_STRING_CONST_INITIALIZER("G1581", 5, 5),
274 SCM_STRING_CONST_INITIALIZER("find-binding", 12, 12),
275 SCM_STRING_CONST_INITIALIZER("find-const-binding", 18, 18),
276 SCM_STRING_CONST_INITIALIZER("id", 2, 2),
277 SCM_STRING_CONST_INITIALIZER("gloc-bound\077", 11, 11),
278 SCM_STRING_CONST_INITIALIZER("gloc", 4, 4),
279 SCM_STRING_CONST_INITIALIZER("gloc-ref", 8, 8),
280 SCM_STRING_CONST_INITIALIZER("gloc-set!", 9, 9),
281 SCM_STRING_CONST_INITIALIZER("gloc-const\077", 11, 11),
282 SCM_STRING_CONST_INITIALIZER("gloc-inlinable\077", 15, 15),
283 SCM_STRING_CONST_INITIALIZER("id->bound-gloc", 14, 14),
284 SCM_STRING_CONST_INITIALIZER("global-identifier=\077", 19, 19),
285 SCM_STRING_CONST_INITIALIZER("wrapped-identifier\077", 19, 19),
286 SCM_STRING_CONST_INITIALIZER("id1", 3, 3),
287 SCM_STRING_CONST_INITIALIZER("id2", 3, 3),
288 },
289 };
290 static struct scm__rcRec {
291 ScmCompiledCode d1568[18];
292 ScmWord d1567[485];
293 ScmPair d1563[450] SCM_ALIGN_PAIR;
294 ScmObj d1562[211];
295 } scm__rc SCM_UNUSED = {
296 { /* ScmCompiledCode d1568 */
297 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (#f G1566) */
298 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[0])), 64,
299 24, 1, 1, SCM_OBJ(&scm__rc.d1563[84]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[88]),
300 SCM_OBJ(&scm__rc.d1568[2]), SCM_FALSE),
301 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
302 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[64])), 4,
303 2, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[94]),
304 SCM_OBJ(&scm__rc.d1568[2]), SCM_FALSE),
305 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
306 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[68])), 17,
307 16, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
308 SCM_FALSE, SCM_FALSE),
309 SCM_COMPILED_CODE_CONST_INITIALIZER( /* path-comp */
310 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[85])), 57,
311 15, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[160]),
312 SCM_OBJ(&scm__rc.d1568[5]), SCM_FALSE),
313 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
314 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[142])), 66,
315 26, 0, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[168]),
316 SCM_OBJ(&scm__rc.d1568[5]), SCM_FALSE),
317 SCM_COMPILED_CODE_CONST_INITIALIZER( /* module-name->path */
318 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[208])), 30,
319 21, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[173]),
320 SCM_FALSE, SCM_FALSE),
321 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (path->module-name G1572) */
322 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[238])), 8,
323 6, 1, 0, SCM_OBJ(&scm__rc.d1563[175]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[181]),
324 SCM_OBJ(&scm__rc.d1568[8]), SCM_FALSE),
325 SCM_COMPILED_CODE_CONST_INITIALIZER( /* path->module-name */
326 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[246])), 35,
327 24, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[188]),
328 SCM_OBJ(&scm__rc.d1568[8]), SCM_FALSE),
329 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
330 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[281])), 7,
331 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
332 SCM_FALSE, SCM_FALSE),
333 SCM_COMPILED_CODE_CONST_INITIALIZER( /* symbol-bound? */
334 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[288])), 34,
335 16, 1, 1, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[224]),
336 SCM_FALSE, SCM_FALSE),
337 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %insert-syntax-binding */
338 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[322])), 31,
339 11, 3, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[263]),
340 SCM_FALSE, SCM_FALSE),
341 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (%expand-user-import G1578) */
342 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[353])), 17,
343 10, 1, 0, SCM_OBJ(&scm__rc.d1563[336]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[342]),
344 SCM_OBJ(&scm__rc.d1568[13]), SCM_FALSE),
345 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %expand-user-import */
346 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[370])), 51,
347 16, 1, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[353]),
348 SCM_OBJ(&scm__rc.d1568[13]), SCM_FALSE),
349 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
350 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[421])), 7,
351 4, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
352 SCM_FALSE, SCM_FALSE),
353 SCM_COMPILED_CODE_CONST_INITIALIZER( /* (#f G1582) */
354 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[428])), 4,
355 4, 0, 1, SCM_OBJ(&scm__rc.d1563[355]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[356]),
356 SCM_OBJ(&scm__rc.d1568[16]), SCM_FALSE),
357 SCM_COMPILED_CODE_CONST_INITIALIZER( /* #f */
358 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[432])), 4,
359 2, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[362]),
360 SCM_OBJ(&scm__rc.d1568[16]), SCM_FALSE),
361 SCM_COMPILED_CODE_CONST_INITIALIZER( /* %toplevel */
362 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[436])), 17,
363 16, 0, 0, SCM_FALSE, SCM_NIL, SCM_FALSE,
364 SCM_FALSE, SCM_FALSE),
365 SCM_COMPILED_CODE_CONST_INITIALIZER( /* global-identifier=? */
366 (ScmWord*)(SCM_OBJ(&scm__rc.d1567[453])), 32,
367 14, 2, 0, SCM_FALSE, SCM_NIL, SCM_OBJ(&scm__rc.d1563[449]),
368 SCM_FALSE, SCM_FALSE),
369 },
370 { /* ScmWord d1567 */
371 /* (#f G1566) */
372 0x00003019 /* 0 (LOCAL-ENV-CLOSURES 3) */,
373 SCM_WORD(SCM_OBJ(&scm__rc.d1563[82])) /* (#<undef> #<undef> #<undef>) */,
374 0x0000300e /* 2 (PRE-CALL 3) */,
375 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 16),
376 0x00000006 /* 4 (CONST-PUSH) */,
377 SCM_WORD(SCM_UNDEFINED) /* begin */,
378 0x0000100e /* 6 (PRE-CALL 1) */,
379 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 12),
380 0x00000006 /* 8 (CONST-PUSH) */,
381 SCM_WORD(SCM_UNDEFINED) /* gauche */,
382 0x0000105f /* 10 (GREF-CALL 1) */,
383 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#find-module.432e64c0> */,
384 0x0000000d /* 12 (PUSH) */,
385 0x00000008 /* 13 (CONSTN-PUSH) */,
386 0x0000305f /* 14 (GREF-CALL 3) */,
387 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#make-identifier.432e6580> */,
388 0x000020e8 /* 16 (ENV-SET 2) */,
389 0x0000300e /* 17 (PRE-CALL 3) */,
390 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 31),
391 0x00000006 /* 19 (CONST-PUSH) */,
392 SCM_WORD(SCM_UNDEFINED) /* require */,
393 0x0000100e /* 21 (PRE-CALL 1) */,
394 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 27),
395 0x00000006 /* 23 (CONST-PUSH) */,
396 SCM_WORD(SCM_UNDEFINED) /* gauche */,
397 0x0000105f /* 25 (GREF-CALL 1) */,
398 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#find-module.432e62a0> */,
399 0x0000000d /* 27 (PUSH) */,
400 0x00000008 /* 28 (CONSTN-PUSH) */,
401 0x0000305f /* 29 (GREF-CALL 3) */,
402 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#make-identifier.432e6360> */,
403 0x000010e8 /* 31 (ENV-SET 1) */,
404 0x0000300e /* 32 (PRE-CALL 3) */,
405 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 46),
406 0x00000006 /* 34 (CONST-PUSH) */,
407 SCM_WORD(SCM_UNDEFINED) /* import */,
408 0x0000100e /* 36 (PRE-CALL 1) */,
409 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 42),
410 0x00000006 /* 38 (CONST-PUSH) */,
411 SCM_WORD(SCM_UNDEFINED) /* gauche */,
412 0x0000105f /* 40 (GREF-CALL 1) */,
413 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#find-module.432e6080> */,
414 0x0000000d /* 42 (PUSH) */,
415 0x00000008 /* 43 (CONSTN-PUSH) */,
416 0x0000305f /* 44 (GREF-CALL 3) */,
417 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#make-identifier.432e6140> */,
418 0x000000e8 /* 46 (ENV-SET 0) */,
419 0x0000004a /* 47 (LREF2-PUSH) */,
420 0x00000049 /* 48 (LREF1-PUSH) */,
421 0x0000100e /* 49 (PRE-CALL 1) */,
422 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]) + 54),
423 0x0000004d /* 51 (LREF11-PUSH) */,
424 0x0000105f /* 52 (GREF-CALL 1) */,
425 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#module-name->path.432ebec0> */,
426 0x00002088 /* 54 (LIST 2) */,
427 0x0000000d /* 55 (PUSH) */,
428 0x00000048 /* 56 (LREF0-PUSH) */,
429 0x0000004d /* 57 (LREF11-PUSH) */,
430 0x00000041 /* 58 (LREF10) */,
431 0x00000066 /* 59 (CONS) */,
432 0x00002088 /* 60 (LIST 2) */,
433 0x00002088 /* 61 (LIST 2) */,
434 0x00000066 /* 62 (CONS) */,
435 0x00000014 /* 63 (RET) */,
436 /* #f */
437 0x0000004c /* 0 (LREF10-PUSH) */,
438 0x00000077 /* 1 (LREF1-CDR) */,
439 0x00002095 /* 2 (TAIL-APPLY 2) */,
440 0x00000014 /* 3 (RET) */,
441 /* %toplevel */
442 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
443 SCM_WORD(SCM_OBJ(&scm__rc.d1563[89])) /* (#<compiled-code (#f #:G1566)@0x7f48438b41e0>) */,
444 0x0000300e /* 2 (PRE-CALL 3) */,
445 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[68]) + 13),
446 0x00000006 /* 4 (CONST-PUSH) */,
447 SCM_WORD(SCM_UNDEFINED) /* use */,
448 0x00000016 /* 6 (CLOSURE) */,
449 SCM_WORD(SCM_OBJ(&scm__rc.d1568[1])) /* #<compiled-code #f@0x7f48438b4120> */,
450 0x0000000d /* 8 (PUSH) */,
451 0x00000006 /* 9 (CONST-PUSH) */,
452 SCM_WORD(SCM_OBJ(&scm__rc.d1563[156])) /* (lambda (module . options) (define begin. ((with-module gauche.internal make-identifier) 'begin (find-module 'gauche) '())) (define require. ((with-module gauche.internal make-identifier) 'require (find-module 'gauche) '())) (define import. ((with-module gauche.internal make-identifier) 'import (find-module 'gauche) '())) `(,begin. (,require. ,(module-name->path module)) (,import. (,module ,@options)))) */,
453 0x0000305f /* 11 (GREF-CALL 3) */,
454 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%make-macro-transformer.432e68c0> */,
455 0x00000015 /* 13 (DEFINE 0) */,
456 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#use.432e6800> */,
457 0x0000001a /* 15 (POP-LOCAL-ENV) */,
458 0x0000000c /* 16 (CONSTU-RET) */,
459 /* (module-name->path path-comp) */
460 0x0000100e /* 0 (PRE-CALL 1) */,
461 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 6),
462 0x0000003d /* 2 (LREF0) */,
463 0x00000093 /* 3 (REVERSE) */,
464 0x00001062 /* 4 (PUSH-GREF-CALL 1) */,
465 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list->string.435a06c0> */,
466 0x00001018 /* 6 (PUSH-LOCAL-ENV 1) */,
467 0x0000200e /* 7 (PRE-CALL 2) */,
468 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 14),
469 0x00000048 /* 9 (LREF0-PUSH) */,
470 0x00000006 /* 10 (CONST-PUSH) */,
471 SCM_WORD(SCM_OBJ(&scm__sc.d1561[45])) /* "" */,
472 0x0000205f /* 12 (GREF-CALL 2) */,
473 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.435a05c0> */,
474 0x0000001e /* 14 (BF) */,
475 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 25),
476 0x0000200e /* 16 (PRE-CALL 2) */,
477 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 56),
478 0x00000006 /* 18 (CONST-PUSH) */,
479 SCM_WORD(SCM_OBJ(&scm__sc.d1561[47])) /* "Invalid module name (it can't end with #\\.):" */,
480 0x00000051 /* 20 (LREF30-PUSH) */,
481 0x0000205f /* 21 (GREF-CALL 2) */,
482 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.435a0540> */,
483 0x00000013 /* 23 (JUMP) */,
484 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 56),
485 0x0000200e /* 25 (PRE-CALL 2) */,
486 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 32),
487 0x00000048 /* 27 (LREF0-PUSH) */,
488 0x00000006 /* 28 (CONST-PUSH) */,
489 SCM_WORD(SCM_OBJ(&scm__sc.d1561[48])) /* "." */,
490 0x0000205f /* 30 (GREF-CALL 2) */,
491 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.435a0460> */,
492 0x0000001e /* 32 (BF) */,
493 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 43),
494 0x0000200e /* 34 (PRE-CALL 2) */,
495 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 56),
496 0x00000006 /* 36 (CONST-PUSH) */,
497 SCM_WORD(SCM_OBJ(&scm__sc.d1561[49])) /* "Invalid module name (component can't be \".\" or \"..\"):" */,
498 0x00000051 /* 38 (LREF30-PUSH) */,
499 0x0000205f /* 39 (GREF-CALL 2) */,
500 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.435a0360> */,
501 0x00000013 /* 41 (JUMP) */,
502 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 56),
503 0x0000200e /* 43 (PRE-CALL 2) */,
504 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 50),
505 0x00000048 /* 45 (LREF0-PUSH) */,
506 0x00000006 /* 46 (CONST-PUSH) */,
507 SCM_WORD(SCM_OBJ(&scm__sc.d1561[50])) /* ".." */,
508 0x0000205f /* 48 (GREF-CALL 2) */,
509 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#equal?.435a03e0> */,
510 0x0000001e /* 50 (BF) */,
511 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 56),
512 0x00000013 /* 52 (JUMP) */,
513 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 34),
514 0x00000013 /* 54 (JUMP) */,
515 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]) + 56),
516 0x00000053 /* 56 (LREF0-RET) */,
517 /* (module-name->path #f) */
518 0x000000db /* 0 (READ-CHAR 0) */,
519 0x0000000d /* 1 (PUSH) */,
520 0x00000008 /* 2 (CONSTN-PUSH) */,
521 0x00000008 /* 3 (CONSTN-PUSH) */,
522 0x00003017 /* 4 (LOCAL-ENV 3) */,
523 0x0000003f /* 5 (LREF2) */,
524 0x0000009a /* 6 (EOFP) */,
525 0x0000001e /* 7 (BF) */,
526 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 24),
527 0x0000100e /* 9 (PRE-CALL 1) */,
528 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 14),
529 0x00000049 /* 11 (LREF1-PUSH) */,
530 0x00000041 /* 12 (LREF10) */,
531 0x0000101c /* 13 (LOCAL-ENV-CALL 1) */,
532 0x0000000d /* 14 (PUSH) */,
533 0x0000003d /* 15 (LREF0) */,
534 0x00000066 /* 16 (CONS) */,
535 0x00000093 /* 17 (REVERSE) */,
536 0x0000000d /* 18 (PUSH) */,
537 0x00000006 /* 19 (CONST-PUSH) */,
538 SCM_WORD(SCM_OBJ(&scm__sc.d1561[56])) /* "/" */,
539 0x00002060 /* 21 (GREF-TAIL-CALL 2) */,
540 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-join.435a7f00> */,
541 0x00000014 /* 23 (RET) */,
542 0x0000003f /* 24 (LREF2) */,
543 0x0000002f /* 25 (BNEQVC) */,
544 SCM_WORD(SCM_MAKE_CHAR(46)) /* #\. */,
545 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 56) /* 56 */,
546 0x000000db /* 28 (READ-CHAR 0) */,
547 0x00001018 /* 29 (PUSH-LOCAL-ENV 1) */,
548 0x0000003d /* 30 (LREF0) */,
549 0x0000002f /* 31 (BNEQVC) */,
550 SCM_WORD(SCM_MAKE_CHAR(46)) /* #\. */,
551 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 43) /* 43 */,
552 0x000000db /* 34 (READ-CHAR 0) */,
553 0x0000000d /* 35 (PUSH) */,
554 0x00000048 /* 36 (LREF0-PUSH) */,
555 0x00000042 /* 37 (LREF11) */,
556 0x00000067 /* 38 (CONS-PUSH) */,
557 0x0000004c /* 39 (LREF10-PUSH) */,
558 0x0000201b /* 40 (LOCAL-ENV-JUMP 2) */,
559 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 5),
560 0x00000014 /* 42 (RET) */,
561 0x00000048 /* 43 (LREF0-PUSH) */,
562 0x00000008 /* 44 (CONSTN-PUSH) */,
563 0x0000100e /* 45 (PRE-CALL 1) */,
564 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 50),
565 0x0000004d /* 47 (LREF11-PUSH) */,
566 0x00000044 /* 48 (LREF20) */,
567 0x0000101c /* 49 (LOCAL-ENV-CALL 1) */,
568 0x0000000d /* 50 (PUSH) */,
569 0x00000041 /* 51 (LREF10) */,
570 0x00000067 /* 52 (CONS-PUSH) */,
571 0x0000201b /* 53 (LOCAL-ENV-JUMP 2) */,
572 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 5),
573 0x00000014 /* 55 (RET) */,
574 0x000000db /* 56 (READ-CHAR 0) */,
575 0x0000000d /* 57 (PUSH) */,
576 0x0000004a /* 58 (LREF2-PUSH) */,
577 0x0000003e /* 59 (LREF1) */,
578 0x00000067 /* 60 (CONS-PUSH) */,
579 0x00000048 /* 61 (LREF0-PUSH) */,
580 0x0000101b /* 62 (LOCAL-ENV-JUMP 1) */,
581 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]) + 5),
582 0x00000014 /* 64 (RET) */,
583 0x00000014 /* 65 (RET) */,
584 /* module-name->path */
585 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
586 SCM_WORD(SCM_OBJ(&scm__rc.d1563[161])) /* (#<compiled-code (module-name->path path-comp)@0x7f48435abf00>) */,
587 0x00000041 /* 2 (LREF10) */,
588 0x000000a0 /* 3 (IDENTIFIERP) */,
589 0x0000001e /* 4 (BF) */,
590 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]) + 17),
591 0x0000100e /* 6 (PRE-CALL 1) */,
592 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]) + 24),
593 0x0000100e /* 8 (PRE-CALL 1) */,
594 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]) + 13),
595 0x0000004c /* 10 (LREF10-PUSH) */,
596 0x0000105f /* 11 (GREF-CALL 1) */,
597 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#identifier->symbol.435a01a0> */,
598 0x00001062 /* 13 (PUSH-GREF-CALL 1) */,
599 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#symbol->string.435a01e0> */,
600 0x00000013 /* 15 (JUMP) */,
601 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]) + 24),
602 0x0000200e /* 17 (PRE-CALL 2) */,
603 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]) + 24),
604 0x00000006 /* 19 (CONST-PUSH) */,
605 SCM_WORD(SCM_OBJ(&scm__sc.d1561[55])) /* "identifier expected, but got:" */,
606 0x0000004c /* 21 (LREF10-PUSH) */,
607 0x0000205f /* 22 (GREF-CALL 2) */,
608 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.435a0140> */,
609 0x0000000d /* 24 (PUSH) */,
610 0x00000016 /* 25 (CLOSURE) */,
611 SCM_WORD(SCM_OBJ(&scm__rc.d1568[4])) /* #<compiled-code (module-name->path #f)@0x7f48435abe40> */,
612 0x00002063 /* 27 (PUSH-GREF-TAIL-CALL 2) */,
613 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#with-input-from-string.435a0280> */,
614 0x00000014 /* 29 (RET) */,
615 /* (path->module-name G1572) */
616 0x00000006 /* 0 (CONST-PUSH) */,
617 SCM_WORD(SCM_UNDEFINED) /* #/\./ */,
618 0x00000048 /* 2 (LREF0-PUSH) */,
619 0x00000006 /* 3 (CONST-PUSH) */,
620 SCM_WORD(SCM_OBJ(&scm__sc.d1561[50])) /* ".." */,
621 0x00003060 /* 5 (GREF-TAIL-CALL 3) */,
622 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#regexp-replace-all.45137d40> */,
623 0x00000014 /* 7 (RET) */,
624 /* path->module-name */
625 0x0000003d /* 0 (LREF0) */,
626 0x0000009b /* 1 (STRINGP) */,
627 0x0000001e /* 2 (BF) */,
628 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]) + 6),
629 0x00000013 /* 4 (JUMP) */,
630 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]) + 13),
631 0x0000200e /* 6 (PRE-CALL 2) */,
632 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]) + 13),
633 0x00000006 /* 8 (CONST-PUSH) */,
634 SCM_WORD(SCM_OBJ(&scm__sc.d1561[64])) /* "string required, but got:" */,
635 0x00000048 /* 10 (LREF0-PUSH) */,
636 0x0000205f /* 11 (GREF-CALL 2) */,
637 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.4512ed60> */,
638 0x0000200e /* 13 (PRE-CALL 2) */,
639 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]) + 32),
640 0x0000200e /* 15 (PRE-CALL 2) */,
641 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]) + 27),
642 0x0000004c /* 17 (LREF10-PUSH) */,
643 0x0000200e /* 18 (PRE-CALL 2) */,
644 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]) + 25),
645 0x00000048 /* 20 (LREF0-PUSH) */,
646 0x00000006 /* 21 (CONST-PUSH) */,
647 SCM_WORD(SCM_OBJ(&scm__sc.d1561[56])) /* "/" */,
648 0x0000205f /* 23 (GREF-CALL 2) */,
649 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-split.45137c80> */,
650 0x00002062 /* 25 (PUSH-GREF-CALL 2) */,
651 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#map.45132ea0> */,
652 0x0000000d /* 27 (PUSH) */,
653 0x00000006 /* 28 (CONST-PUSH) */,
654 SCM_WORD(SCM_OBJ(&scm__sc.d1561[48])) /* "." */,
655 0x0000205f /* 30 (GREF-CALL 2) */,
656 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string-join.4512f7a0> */,
657 0x00001063 /* 32 (PUSH-GREF-TAIL-CALL 1) */,
658 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#string->symbol.4512e8e0> */,
659 0x00000014 /* 34 (RET) */,
660 /* %toplevel */
661 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
662 SCM_WORD(SCM_OBJ(&scm__rc.d1563[182])) /* (#<compiled-code (path->module-name #:G1572)@0x7f48435aba80>) */,
663 0x00000016 /* 2 (CLOSURE) */,
664 SCM_WORD(SCM_OBJ(&scm__rc.d1568[7])) /* #<compiled-code path->module-name@0x7f48435aba20> */,
665 0x00000015 /* 4 (DEFINE 0) */,
666 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#path->module-name.4512ef40> */,
667 0x00000014 /* 6 (RET) */,
668 /* symbol-bound? */
669 0x0000003d /* 0 (LREF0) */,
670 0x00000022 /* 1 (BNNULL) */,
671 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 6),
672 0x00000004 /* 3 (CONSTF) */,
673 0x00000013 /* 4 (JUMP) */,
674 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 7),
675 0x0000006a /* 6 (LREF0-CAR) */,
676 0x0000000d /* 7 (PUSH) */,
677 0x0000003d /* 8 (LREF0) */,
678 0x00000022 /* 9 (BNNULL) */,
679 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 14),
680 0x00000003 /* 11 (CONSTN) */,
681 0x00000013 /* 12 (JUMP) */,
682 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 15),
683 0x00000076 /* 14 (LREF0-CDR) */,
684 0x00002018 /* 15 (PUSH-LOCAL-ENV 2) */,
685 0x0000003d /* 16 (LREF0) */,
686 0x00000022 /* 17 (BNNULL) */,
687 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 21),
688 0x00000013 /* 19 (JUMP) */,
689 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 29),
690 0x0000200e /* 21 (PRE-CALL 2) */,
691 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]) + 29),
692 0x00000006 /* 23 (CONST-PUSH) */,
693 SCM_WORD(SCM_OBJ(&scm__sc.d1561[77])) /* "too many arguments for" */,
694 0x00000006 /* 25 (CONST-PUSH) */,
695 SCM_WORD(SCM_OBJ(&scm__rc.d1563[219])) /* (lambda (name :optional (module #f)) (global-variable-bound? module name)) */,
696 0x0000205f /* 27 (GREF-CALL 2) */,
697 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.4417bbe0> */,
698 0x00000049 /* 29 (LREF1-PUSH) */,
699 0x0000004d /* 30 (LREF11-PUSH) */,
700 0x00002060 /* 31 (GREF-TAIL-CALL 2) */,
701 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#global-variable-bound?.4417efe0> */,
702 0x00000014 /* 33 (RET) */,
703 /* %insert-syntax-binding */
704 0x0000100e /* 0 (PRE-CALL 1) */,
705 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 5),
706 0x00000048 /* 2 (LREF0-PUSH) */,
707 0x0000105f /* 3 (GREF-CALL 1) */,
708 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#syntax?.43eae760> */,
709 0x0000001e /* 5 (BF) */,
710 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 9),
711 0x00000013 /* 7 (JUMP) */,
712 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 25),
713 0x0000100e /* 9 (PRE-CALL 1) */,
714 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 14),
715 0x00000048 /* 11 (LREF0-PUSH) */,
716 0x0000105f /* 12 (GREF-CALL 1) */,
717 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#macro?.43eae6e0> */,
718 0x0000001e /* 14 (BF) */,
719 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 18),
720 0x00000013 /* 16 (JUMP) */,
721 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 25),
722 0x0000200e /* 18 (PRE-CALL 2) */,
723 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]) + 25),
724 0x00000006 /* 20 (CONST-PUSH) */,
725 SCM_WORD(SCM_OBJ(&scm__sc.d1561[90])) /* "Syntax or macro object required, but got" */,
726 0x00000048 /* 22 (LREF0-PUSH) */,
727 0x0000205f /* 23 (GREF-CALL 2) */,
728 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#error.43eae680> */,
729 0x0000004a /* 25 (LREF2-PUSH) */,
730 0x00000049 /* 26 (LREF1-PUSH) */,
731 0x00000048 /* 27 (LREF0-PUSH) */,
732 0x00003060 /* 28 (GREF-TAIL-CALL 3) */,
733 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%insert-binding.43eae5e0> */,
734 0x00000014 /* 30 (RET) */,
735 /* (%expand-user-import G1578) */
736 0x0000003d /* 0 (LREF0) */,
737 0x0000009c /* 1 (SYMBOLP) */,
738 0x00000031 /* 2 (RT) */,
739 0x0000100e /* 3 (PRE-CALL 1) */,
740 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[353]) + 8),
741 0x00000048 /* 5 (LREF0-PUSH) */,
742 0x0000105f /* 6 (GREF-CALL 1) */,
743 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#list?.43b773e0> */,
744 0x00000030 /* 8 (RF) */,
745 0x00000076 /* 9 (LREF0-CDR) */,
746 0x00000098 /* 10 (PAIRP) */,
747 0x00000030 /* 11 (RF) */,
748 0x0000003d /* 12 (LREF0) */,
749 0x00000083 /* 13 (CADR-PUSH) */,
750 0x00001060 /* 14 (GREF-TAIL-CALL 1) */,
751 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#keyword?.43b77320> */,
752 0x00000014 /* 16 (RET) */,
753 /* %expand-user-import */
754 0x0000200e /* 0 (PRE-CALL 2) */,
755 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 6),
756 0x0000004c /* 2 (LREF10-PUSH) */,
757 0x00000048 /* 3 (LREF0-PUSH) */,
758 0x0000205f /* 4 (GREF-CALL 2) */,
759 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#any.43b775c0> */,
760 0x0000001e /* 6 (BF) */,
761 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 13),
762 0x00000006 /* 8 (CONST-PUSH) */,
763 SCM_WORD(SCM_OBJ(&scm__rc.d1563[345])) /* (with-module gauche import) */,
764 0x0000003d /* 10 (LREF0) */,
765 0x00000066 /* 11 (CONS) */,
766 0x00000014 /* 12 (RET) */,
767 0x0000100e /* 13 (PRE-CALL 1) */,
768 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 19),
769 0x00000006 /* 15 (CONST-PUSH) */,
770 SCM_WORD(SCM_OBJ(&scm__sc.d1561[112])) /* "r7rs-setup" */,
771 0x0000105f /* 17 (GREF-CALL 1) */,
772 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#provided?.43b80ce0> */,
773 0x0000001e /* 19 (BF) */,
774 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 23),
775 0x00000013 /* 21 (JUMP) */,
776 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 35),
777 0x0000100e /* 23 (PRE-CALL 1) */,
778 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 29),
779 0x00000006 /* 25 (CONST-PUSH) */,
780 SCM_WORD(SCM_OBJ(&scm__sc.d1561[112])) /* "r7rs-setup" */,
781 0x0000105f /* 27 (GREF-CALL 1) */,
782 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#load.43b80c80> */,
783 0x0000100e /* 29 (PRE-CALL 1) */,
784 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 35),
785 0x00000006 /* 31 (CONST-PUSH) */,
786 SCM_WORD(SCM_OBJ(&scm__sc.d1561[112])) /* "r7rs-setup" */,
787 0x0000105f /* 33 (GREF-CALL 1) */,
788 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#provide.43b80c20> */,
789 0x0000200e /* 35 (PRE-CALL 2) */,
790 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 49),
791 0x00000006 /* 37 (CONST-PUSH) */,
792 SCM_WORD(SCM_UNDEFINED) /* import */,
793 0x0000003d /* 39 (LREF0) */,
794 0x00000067 /* 40 (CONS-PUSH) */,
795 0x0000100e /* 41 (PRE-CALL 1) */,
796 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]) + 47),
797 0x00000006 /* 43 (CONST-PUSH) */,
798 SCM_WORD(SCM_UNDEFINED) /* r7rs.user */,
799 0x0000105f /* 45 (GREF-CALL 1) */,
800 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#find-module.43b80940> */,
801 0x00002062 /* 47 (PUSH-GREF-CALL 2) */,
802 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#eval.43b80b60> */,
803 0x0000000a /* 49 (CONST-RET) */,
804 SCM_WORD(SCM_OBJ(&scm__rc.d1563[347])) /* (select-module r7rs.user) */,
805 /* %toplevel */
806 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
807 SCM_WORD(SCM_OBJ(&scm__rc.d1563[343])) /* (#<compiled-code (%expand-user-import #:G1578)@0x7f48441c6c00>) */,
808 0x00000016 /* 2 (CLOSURE) */,
809 SCM_WORD(SCM_OBJ(&scm__rc.d1568[12])) /* #<compiled-code %expand-user-import@0x7f48441c6a80> */,
810 0x00000015 /* 4 (DEFINE 0) */,
811 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#%expand-user-import.43b776c0> */,
812 0x00000014 /* 6 (RET) */,
813 /* (#f G1582) */
814 0x00000048 /* 0 (LREF0-PUSH) */,
815 0x00001060 /* 1 (GREF-TAIL-CALL 1) */,
816 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%expand-user-import.470dbd80> */,
817 0x00000014 /* 3 (RET) */,
818 /* #f */
819 0x0000004c /* 0 (LREF10-PUSH) */,
820 0x00000077 /* 1 (LREF1-CDR) */,
821 0x00002095 /* 2 (TAIL-APPLY 2) */,
822 0x00000014 /* 3 (RET) */,
823 /* %toplevel */
824 0x00001019 /* 0 (LOCAL-ENV-CLOSURES 1) */,
825 SCM_WORD(SCM_OBJ(&scm__rc.d1563[357])) /* (#<compiled-code (#f #:G1582)@0x7f4844228660>) */,
826 0x0000300e /* 2 (PRE-CALL 3) */,
827 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[436]) + 13),
828 0x00000006 /* 4 (CONST-PUSH) */,
829 SCM_WORD(SCM_UNDEFINED) /* import */,
830 0x00000016 /* 6 (CLOSURE) */,
831 SCM_WORD(SCM_OBJ(&scm__rc.d1568[15])) /* #<compiled-code #f@0x7f4844228600> */,
832 0x0000000d /* 8 (PUSH) */,
833 0x00000006 /* 9 (CONST-PUSH) */,
834 SCM_WORD(SCM_OBJ(&scm__rc.d1563[370])) /* (lambda import-specs ((with-module gauche.internal %expand-user-import) import-specs)) */,
835 0x0000305f /* 11 (GREF-CALL 3) */,
836 SCM_WORD(SCM_UNDEFINED) /* #<identifier gauche.internal#%make-macro-transformer.47089080> */,
837 0x00000015 /* 13 (DEFINE 0) */,
838 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#import.470dbfc0> */,
839 0x0000001a /* 15 (POP-LOCAL-ENV) */,
840 0x0000000c /* 16 (CONSTU-RET) */,
841 /* global-identifier=? */
842 0x0000100e /* 0 (PRE-CALL 1) */,
843 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]) + 5),
844 0x00000049 /* 2 (LREF1-PUSH) */,
845 0x0000105f /* 3 (GREF-CALL 1) */,
846 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#wrapped-identifier?.44954d40> */,
847 0x00000030 /* 5 (RF) */,
848 0x0000100e /* 6 (PRE-CALL 1) */,
849 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]) + 11),
850 0x00000048 /* 8 (LREF0-PUSH) */,
851 0x0000105f /* 9 (GREF-CALL 1) */,
852 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#wrapped-identifier?.44954ca0> */,
853 0x00000030 /* 11 (RF) */,
854 0x0000100e /* 12 (PRE-CALL 1) */,
855 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]) + 17),
856 0x00000049 /* 14 (LREF1-PUSH) */,
857 0x0000105f /* 15 (GREF-CALL 1) */,
858 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#id->bound-gloc.44954aa0> */,
859 0x00001018 /* 17 (PUSH-LOCAL-ENV 1) */,
860 0x0000003d /* 18 (LREF0) */,
861 0x00000030 /* 19 (RF) */,
862 0x0000100e /* 20 (PRE-CALL 1) */,
863 SCM_WORD((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]) + 25),
864 0x0000004c /* 22 (LREF10-PUSH) */,
865 0x0000105f /* 23 (GREF-CALL 1) */,
866 SCM_WORD(SCM_UNDEFINED) /* #<identifier #f#id->bound-gloc.44954400> */,
867 0x00001018 /* 25 (PUSH-LOCAL-ENV 1) */,
868 0x0000003d /* 26 (LREF0) */,
869 0x00000030 /* 27 (RF) */,
870 0x0000004c /* 28 (LREF10-PUSH) */,
871 0x0000003d /* 29 (LREF0) */,
872 0x0000008f /* 30 (EQ) */,
873 0x00000014 /* 31 (RET) */,
874 },
875 { /* ScmPair d1563 */
876 { SCM_NIL, SCM_NIL },
877 { SCM_UNDEFINED, SCM_NIL},
878 { SCM_MAKE_INT(45U), SCM_NIL},
879 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[2])},
880 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[3])},
881 { SCM_UNDEFINED, SCM_NIL},
882 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[5])},
883 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[6])},
884 { SCM_OBJ(&scm__rc.d1563[7]), SCM_NIL},
885 { SCM_OBJ(&scm__rc.d1563[4]), SCM_OBJ(&scm__rc.d1563[8])},
886 { SCM_UNDEFINED, SCM_NIL},
887 { SCM_MAKE_INT(47U), SCM_NIL},
888 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[11])},
889 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[12])},
890 { SCM_UNDEFINED, SCM_NIL},
891 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[14])},
892 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[15])},
893 { SCM_OBJ(&scm__rc.d1563[16]), SCM_NIL},
894 { SCM_OBJ(&scm__rc.d1563[13]), SCM_OBJ(&scm__rc.d1563[17])},
895 { SCM_MAKE_INT(50U), SCM_NIL},
896 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[19])},
897 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[20])},
898 { SCM_UNDEFINED, SCM_NIL},
899 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[22])},
900 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[23])},
901 { SCM_OBJ(&scm__rc.d1563[24]), SCM_NIL},
902 { SCM_OBJ(&scm__rc.d1563[21]), SCM_OBJ(&scm__rc.d1563[25])},
903 { SCM_MAKE_INT(51U), SCM_NIL},
904 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[27])},
905 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[28])},
906 { SCM_UNDEFINED, SCM_NIL},
907 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[30])},
908 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[31])},
909 { SCM_OBJ(&scm__rc.d1563[32]), SCM_NIL},
910 { SCM_OBJ(&scm__rc.d1563[29]), SCM_OBJ(&scm__rc.d1563[33])},
911 { SCM_MAKE_INT(52U), SCM_NIL},
912 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[35])},
913 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[36])},
914 { SCM_UNDEFINED, SCM_NIL},
915 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[38])},
916 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[39])},
917 { SCM_OBJ(&scm__rc.d1563[40]), SCM_NIL},
918 { SCM_OBJ(&scm__rc.d1563[37]), SCM_OBJ(&scm__rc.d1563[41])},
919 { SCM_MAKE_INT(53U), SCM_NIL},
920 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[43])},
921 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[44])},
922 { SCM_UNDEFINED, SCM_NIL},
923 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[46])},
924 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[47])},
925 { SCM_OBJ(&scm__rc.d1563[48]), SCM_NIL},
926 { SCM_OBJ(&scm__rc.d1563[45]), SCM_OBJ(&scm__rc.d1563[49])},
927 { SCM_MAKE_INT(54U), SCM_NIL},
928 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[51])},
929 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[52])},
930 { SCM_UNDEFINED, SCM_NIL},
931 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[54])},
932 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[55])},
933 { SCM_OBJ(&scm__rc.d1563[56]), SCM_NIL},
934 { SCM_OBJ(&scm__rc.d1563[53]), SCM_OBJ(&scm__rc.d1563[57])},
935 { SCM_UNDEFINED, SCM_NIL},
936 { SCM_MAKE_INT(56U), SCM_NIL},
937 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[60])},
938 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[61])},
939 { SCM_UNDEFINED, SCM_NIL},
940 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[63])},
941 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[64])},
942 { SCM_OBJ(&scm__rc.d1563[65]), SCM_NIL},
943 { SCM_OBJ(&scm__rc.d1563[62]), SCM_OBJ(&scm__rc.d1563[66])},
944 { SCM_UNDEFINED, SCM_NIL},
945 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[68])},
946 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[69])},
947 { SCM_OBJ(&scm__rc.d1563[70]), SCM_NIL},
948 { SCM_MAKE_INT(61U), SCM_NIL},
949 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[72])},
950 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[73])},
951 { SCM_UNDEFINED, SCM_NIL},
952 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[75])},
953 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[76])},
954 { SCM_OBJ(&scm__rc.d1563[77]), SCM_NIL},
955 { SCM_OBJ(&scm__rc.d1563[74]), SCM_OBJ(&scm__rc.d1563[78])},
956 { SCM_UNDEFINED, SCM_NIL},
957 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[80])},
958 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[81])},
959 { SCM_UNDEFINED, SCM_NIL},
960 { SCM_FALSE, SCM_OBJ(&scm__rc.d1563[83])},
961 { SCM_UNDEFINED, SCM_UNDEFINED},
962 { SCM_UNDEFINED, SCM_NIL},
963 { SCM_OBJ(&scm__rc.d1563[86]), SCM_NIL},
964 { SCM_UNDEFINED, SCM_NIL},
965 { SCM_OBJ(&scm__rc.d1568[0]), SCM_NIL},
966 { SCM_UNDEFINED, SCM_NIL},
967 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
968 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[90])},
969 { SCM_OBJ(&scm__rc.d1563[92]), SCM_NIL},
970 { SCM_UNDEFINED, SCM_NIL},
971 { SCM_UNDEFINED, SCM_NIL},
972 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[95])},
973 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[96])},
974 { SCM_UNDEFINED, SCM_NIL},
975 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[98])},
976 { SCM_UNDEFINED, SCM_NIL},
977 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[100])},
978 { SCM_OBJ(&scm__rc.d1563[101]), SCM_NIL},
979 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[102])},
980 { SCM_NIL, SCM_NIL},
981 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[104])},
982 { SCM_OBJ(&scm__rc.d1563[105]), SCM_NIL},
983 { SCM_OBJ(&scm__rc.d1563[103]), SCM_OBJ(&scm__rc.d1563[106])},
984 { SCM_OBJ(&scm__rc.d1563[99]), SCM_OBJ(&scm__rc.d1563[107])},
985 { SCM_OBJ(&scm__rc.d1563[97]), SCM_OBJ(&scm__rc.d1563[108])},
986 { SCM_OBJ(&scm__rc.d1563[109]), SCM_NIL},
987 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[110])},
988 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[111])},
989 { SCM_UNDEFINED, SCM_NIL},
990 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[113])},
991 { SCM_OBJ(&scm__rc.d1563[114]), SCM_OBJ(&scm__rc.d1563[107])},
992 { SCM_OBJ(&scm__rc.d1563[97]), SCM_OBJ(&scm__rc.d1563[115])},
993 { SCM_OBJ(&scm__rc.d1563[116]), SCM_NIL},
994 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[117])},
995 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[118])},
996 { SCM_UNDEFINED, SCM_NIL},
997 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[120])},
998 { SCM_OBJ(&scm__rc.d1563[121]), SCM_OBJ(&scm__rc.d1563[107])},
999 { SCM_OBJ(&scm__rc.d1563[97]), SCM_OBJ(&scm__rc.d1563[122])},
1000 { SCM_OBJ(&scm__rc.d1563[123]), SCM_NIL},
1001 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[124])},
1002 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[125])},
1003 { SCM_UNDEFINED, SCM_NIL},
1004 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[127])},
1005 { SCM_UNDEFINED, SCM_NIL},
1006 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[129])},
1007 { SCM_UNDEFINED, SCM_NIL},
1008 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[131])},
1009 { SCM_OBJ(&scm__rc.d1563[132]), SCM_NIL},
1010 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[133])},
1011 { SCM_OBJ(&scm__rc.d1563[134]), SCM_NIL},
1012 { SCM_OBJ(&scm__rc.d1563[130]), SCM_OBJ(&scm__rc.d1563[135])},
1013 { SCM_UNDEFINED, SCM_NIL},
1014 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[137])},
1015 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[131])},
1016 { SCM_UNDEFINED, SCM_NIL},
1017 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[140])},
1018 { SCM_OBJ(&scm__rc.d1563[141]), SCM_NIL},
1019 { SCM_OBJ(&scm__rc.d1563[139]), SCM_OBJ(&scm__rc.d1563[142])},
1020 { SCM_OBJ(&scm__rc.d1563[143]), SCM_NIL},
1021 { SCM_OBJ(&scm__rc.d1563[138]), SCM_OBJ(&scm__rc.d1563[144])},
1022 { SCM_OBJ(&scm__rc.d1563[145]), SCM_NIL},
1023 { SCM_OBJ(&scm__rc.d1563[136]), SCM_OBJ(&scm__rc.d1563[146])},
1024 { SCM_OBJ(&scm__rc.d1563[128]), SCM_OBJ(&scm__rc.d1563[147])},
1025 { SCM_OBJ(&scm__rc.d1563[148]), SCM_NIL},
1026 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[149])},
1027 { SCM_OBJ(&scm__rc.d1563[150]), SCM_NIL},
1028 { SCM_OBJ(&scm__rc.d1563[126]), SCM_OBJ(&scm__rc.d1563[151])},
1029 { SCM_OBJ(&scm__rc.d1563[119]), SCM_OBJ(&scm__rc.d1563[152])},
1030 { SCM_OBJ(&scm__rc.d1563[112]), SCM_OBJ(&scm__rc.d1563[153])},
1031 { SCM_OBJ(&scm__rc.d1563[85]), SCM_OBJ(&scm__rc.d1563[154])},
1032 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[155])},
1033 { SCM_UNDEFINED, SCM_NIL},
1034 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[157])},
1035 { SCM_UNDEFINED, SCM_NIL},
1036 { SCM_UNDEFINED, SCM_NIL},
1037 { SCM_OBJ(&scm__rc.d1568[3]), SCM_NIL},
1038 { SCM_FALSE, SCM_NIL},
1039 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[162])},
1040 { SCM_MAKE_INT(98U), SCM_NIL},
1041 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[164])},
1042 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[165])},
1043 { SCM_OBJ(&scm__rc.d1563[166]), SCM_OBJ(&scm__rc.d1563[87])},
1044 { SCM_UNDEFINED, SCM_NIL},
1045 { SCM_MAKE_INT(86U), SCM_NIL},
1046 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[169])},
1047 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[170])},
1048 { SCM_OBJ(&scm__rc.d1563[171]), SCM_OBJ(&scm__rc.d1563[87])},
1049 { SCM_UNDEFINED, SCM_NIL},
1050 { SCM_UNDEFINED, SCM_NIL},
1051 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[174])},
1052 { SCM_UNDEFINED, SCM_NIL},
1053 { SCM_MAKE_INT(112U), SCM_NIL},
1054 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[177])},
1055 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[178])},
1056 { SCM_OBJ(&scm__rc.d1563[179]), SCM_OBJ(&scm__rc.d1563[87])},
1057 { SCM_UNDEFINED, SCM_NIL},
1058 { SCM_OBJ(&scm__rc.d1568[6]), SCM_NIL},
1059 { SCM_UNDEFINED, SCM_NIL},
1060 { SCM_MAKE_INT(109U), SCM_NIL},
1061 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[184])},
1062 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[185])},
1063 { SCM_OBJ(&scm__rc.d1563[186]), SCM_OBJ(&scm__rc.d1563[87])},
1064 { SCM_UNDEFINED, SCM_NIL},
1065 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
1066 { SCM_MAKE_INT(125U), SCM_NIL},
1067 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[190])},
1068 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[191])},
1069 { SCM_UNDEFINED, SCM_NIL},
1070 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[193])},
1071 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[194])},
1072 { SCM_OBJ(&scm__rc.d1563[195]), SCM_NIL},
1073 { SCM_OBJ(&scm__rc.d1563[192]), SCM_OBJ(&scm__rc.d1563[196])},
1074 { SCM_UNDEFINED, SCM_NIL},
1075 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[198])},
1076 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[199])},
1077 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[200])},
1078 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[201])},
1079 { SCM_MAKE_INT(130U), SCM_NIL},
1080 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[203])},
1081 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[204])},
1082 { SCM_UNDEFINED, SCM_NIL},
1083 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[206])},
1084 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[207])},
1085 { SCM_OBJ(&scm__rc.d1563[208]), SCM_NIL},
1086 { SCM_OBJ(&scm__rc.d1563[205]), SCM_OBJ(&scm__rc.d1563[209])},
1087 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[162])},
1088 { SCM_OBJ(&scm__rc.d1563[211]), SCM_NIL},
1089 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[212])},
1090 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[213])},
1091 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
1092 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[215])},
1093 { SCM_OBJ(&scm__rc.d1563[216]), SCM_NIL},
1094 { SCM_OBJ(&scm__rc.d1563[214]), SCM_OBJ(&scm__rc.d1563[217])},
1095 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[218])},
1096 { SCM_MAKE_INT(143U), SCM_NIL},
1097 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[220])},
1098 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[221])},
1099 { SCM_OBJ(&scm__rc.d1563[222]), SCM_OBJ(&scm__rc.d1563[87])},
1100 { SCM_UNDEFINED, SCM_NIL},
1101 { SCM_MAKE_INT(148U), SCM_NIL},
1102 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[225])},
1103 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[226])},
1104 { SCM_UNDEFINED, SCM_NIL},
1105 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[228])},
1106 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[229])},
1107 { SCM_OBJ(&scm__rc.d1563[230]), SCM_NIL},
1108 { SCM_OBJ(&scm__rc.d1563[227]), SCM_OBJ(&scm__rc.d1563[231])},
1109 { SCM_UNDEFINED, SCM_NIL},
1110 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[233])},
1111 { SCM_MAKE_INT(149U), SCM_NIL},
1112 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[235])},
1113 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[236])},
1114 { SCM_UNDEFINED, SCM_NIL},
1115 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[238])},
1116 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[239])},
1117 { SCM_OBJ(&scm__rc.d1563[240]), SCM_NIL},
1118 { SCM_OBJ(&scm__rc.d1563[237]), SCM_OBJ(&scm__rc.d1563[241])},
1119 { SCM_UNDEFINED, SCM_NIL},
1120 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[243])},
1121 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[244])},
1122 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[245])},
1123 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[246])},
1124 { SCM_MAKE_INT(159U), SCM_NIL},
1125 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[248])},
1126 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[249])},
1127 { SCM_UNDEFINED, SCM_NIL},
1128 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[251])},
1129 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[252])},
1130 { SCM_OBJ(&scm__rc.d1563[253]), SCM_NIL},
1131 { SCM_OBJ(&scm__rc.d1563[250]), SCM_OBJ(&scm__rc.d1563[254])},
1132 { SCM_UNDEFINED, SCM_NIL},
1133 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[256])},
1134 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[257])},
1135 { SCM_MAKE_INT(178U), SCM_NIL},
1136 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[259])},
1137 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[260])},
1138 { SCM_OBJ(&scm__rc.d1563[261]), SCM_OBJ(&scm__rc.d1563[87])},
1139 { SCM_UNDEFINED, SCM_NIL},
1140 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[59])},
1141 { SCM_MAKE_INT(183U), SCM_NIL},
1142 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[265])},
1143 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[266])},
1144 { SCM_UNDEFINED, SCM_NIL},
1145 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[268])},
1146 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[269])},
1147 { SCM_OBJ(&scm__rc.d1563[270]), SCM_NIL},
1148 { SCM_OBJ(&scm__rc.d1563[267]), SCM_OBJ(&scm__rc.d1563[271])},
1149 { SCM_UNDEFINED, SCM_NIL},
1150 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[273])},
1151 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[274])},
1152 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[275])},
1153 { SCM_MAKE_INT(186U), SCM_NIL},
1154 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[277])},
1155 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[278])},
1156 { SCM_UNDEFINED, SCM_NIL},
1157 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[280])},
1158 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[281])},
1159 { SCM_OBJ(&scm__rc.d1563[282]), SCM_NIL},
1160 { SCM_OBJ(&scm__rc.d1563[279]), SCM_OBJ(&scm__rc.d1563[283])},
1161 { SCM_UNDEFINED, SCM_NIL},
1162 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[285])},
1163 { SCM_MAKE_INT(191U), SCM_NIL},
1164 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[287])},
1165 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[288])},
1166 { SCM_UNDEFINED, SCM_NIL},
1167 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[290])},
1168 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[291])},
1169 { SCM_OBJ(&scm__rc.d1563[292]), SCM_NIL},
1170 { SCM_OBJ(&scm__rc.d1563[289]), SCM_OBJ(&scm__rc.d1563[293])},
1171 { SCM_UNDEFINED, SCM_NIL},
1172 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[295])},
1173 { SCM_MAKE_INT(194U), SCM_NIL},
1174 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[297])},
1175 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[298])},
1176 { SCM_UNDEFINED, SCM_NIL},
1177 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[300])},
1178 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[301])},
1179 { SCM_OBJ(&scm__rc.d1563[302]), SCM_NIL},
1180 { SCM_OBJ(&scm__rc.d1563[299]), SCM_OBJ(&scm__rc.d1563[303])},
1181 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[243])},
1182 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[305])},
1183 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[306])},
1184 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[307])},
1185 { SCM_MAKE_INT(196U), SCM_NIL},
1186 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[309])},
1187 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[310])},
1188 { SCM_UNDEFINED, SCM_NIL},
1189 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[312])},
1190 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[313])},
1191 { SCM_OBJ(&scm__rc.d1563[314]), SCM_NIL},
1192 { SCM_OBJ(&scm__rc.d1563[311]), SCM_OBJ(&scm__rc.d1563[315])},
1193 { SCM_UNDEFINED, SCM_NIL},
1194 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[317])},
1195 { SCM_MAKE_INT(201U), SCM_NIL},
1196 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[319])},
1197 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[320])},
1198 { SCM_UNDEFINED, SCM_NIL},
1199 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[322])},
1200 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[323])},
1201 { SCM_OBJ(&scm__rc.d1563[324]), SCM_NIL},
1202 { SCM_OBJ(&scm__rc.d1563[321]), SCM_OBJ(&scm__rc.d1563[325])},
1203 { SCM_MAKE_INT(205U), SCM_NIL},
1204 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[327])},
1205 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[328])},
1206 { SCM_UNDEFINED, SCM_NIL},
1207 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[330])},
1208 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[331])},
1209 { SCM_OBJ(&scm__rc.d1563[332]), SCM_NIL},
1210 { SCM_OBJ(&scm__rc.d1563[329]), SCM_OBJ(&scm__rc.d1563[333])},
1211 { SCM_UNDEFINED, SCM_NIL},
1212 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[335])},
1213 { SCM_UNDEFINED, SCM_NIL},
1214 { SCM_MAKE_INT(250U), SCM_NIL},
1215 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[338])},
1216 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[339])},
1217 { SCM_OBJ(&scm__rc.d1563[340]), SCM_OBJ(&scm__rc.d1563[87])},
1218 { SCM_UNDEFINED, SCM_NIL},
1219 { SCM_OBJ(&scm__rc.d1568[11]), SCM_NIL},
1220 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[120])},
1221 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[344])},
1222 { SCM_UNDEFINED, SCM_NIL},
1223 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[346])},
1224 { SCM_UNDEFINED, SCM_NIL},
1225 { SCM_MAKE_INT(249U), SCM_NIL},
1226 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[349])},
1227 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[350])},
1228 { SCM_OBJ(&scm__rc.d1563[351]), SCM_OBJ(&scm__rc.d1563[87])},
1229 { SCM_UNDEFINED, SCM_NIL},
1230 { SCM_UNDEFINED, SCM_NIL},
1231 { SCM_FALSE, SCM_OBJ(&scm__rc.d1563[354])},
1232 { SCM_UNDEFINED, SCM_NIL},
1233 { SCM_OBJ(&scm__rc.d1568[14]), SCM_NIL},
1234 { SCM_UNDEFINED, SCM_NIL},
1235 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[358])},
1236 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[358])},
1237 { SCM_OBJ(&scm__rc.d1563[360]), SCM_NIL},
1238 { SCM_UNDEFINED, SCM_NIL},
1239 { SCM_UNDEFINED, SCM_NIL},
1240 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[363])},
1241 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[364])},
1242 { SCM_UNDEFINED, SCM_NIL},
1243 { SCM_OBJ(&scm__rc.d1563[365]), SCM_OBJ(&scm__rc.d1563[366])},
1244 { SCM_OBJ(&scm__rc.d1563[367]), SCM_NIL},
1245 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[368])},
1246 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[369])},
1247 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[198])},
1248 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[371])},
1249 { SCM_MAKE_INT(286U), SCM_NIL},
1250 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[373])},
1251 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[374])},
1252 { SCM_UNDEFINED, SCM_NIL},
1253 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[376])},
1254 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[377])},
1255 { SCM_OBJ(&scm__rc.d1563[378]), SCM_NIL},
1256 { SCM_OBJ(&scm__rc.d1563[375]), SCM_OBJ(&scm__rc.d1563[379])},
1257 { SCM_UNDEFINED, SCM_NIL},
1258 { SCM_MAKE_INT(295U), SCM_NIL},
1259 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[382])},
1260 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[383])},
1261 { SCM_UNDEFINED, SCM_NIL},
1262 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[385])},
1263 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[386])},
1264 { SCM_OBJ(&scm__rc.d1563[387]), SCM_NIL},
1265 { SCM_OBJ(&scm__rc.d1563[384]), SCM_OBJ(&scm__rc.d1563[388])},
1266 { SCM_UNDEFINED, SCM_NIL},
1267 { SCM_MAKE_INT(305U), SCM_NIL},
1268 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[391])},
1269 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[392])},
1270 { SCM_UNDEFINED, SCM_NIL},
1271 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[394])},
1272 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[395])},
1273 { SCM_OBJ(&scm__rc.d1563[396]), SCM_NIL},
1274 { SCM_OBJ(&scm__rc.d1563[393]), SCM_OBJ(&scm__rc.d1563[397])},
1275 { SCM_UNDEFINED, SCM_NIL},
1276 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[399])},
1277 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[400])},
1278 { SCM_MAKE_INT(307U), SCM_NIL},
1279 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[402])},
1280 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[403])},
1281 { SCM_UNDEFINED, SCM_NIL},
1282 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[405])},
1283 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[406])},
1284 { SCM_OBJ(&scm__rc.d1563[407]), SCM_NIL},
1285 { SCM_OBJ(&scm__rc.d1563[404]), SCM_OBJ(&scm__rc.d1563[408])},
1286 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[256])},
1287 { SCM_MAKE_INT(315U), SCM_NIL},
1288 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[411])},
1289 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[412])},
1290 { SCM_UNDEFINED, SCM_NIL},
1291 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[414])},
1292 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[415])},
1293 { SCM_OBJ(&scm__rc.d1563[416]), SCM_NIL},
1294 { SCM_OBJ(&scm__rc.d1563[413]), SCM_OBJ(&scm__rc.d1563[417])},
1295 { SCM_MAKE_INT(316U), SCM_NIL},
1296 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[419])},
1297 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[420])},
1298 { SCM_UNDEFINED, SCM_NIL},
1299 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[422])},
1300 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[423])},
1301 { SCM_OBJ(&scm__rc.d1563[424]), SCM_NIL},
1302 { SCM_OBJ(&scm__rc.d1563[421]), SCM_OBJ(&scm__rc.d1563[425])},
1303 { SCM_MAKE_INT(317U), SCM_NIL},
1304 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[427])},
1305 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[428])},
1306 { SCM_UNDEFINED, SCM_NIL},
1307 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[430])},
1308 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[431])},
1309 { SCM_OBJ(&scm__rc.d1563[432]), SCM_NIL},
1310 { SCM_OBJ(&scm__rc.d1563[429]), SCM_OBJ(&scm__rc.d1563[433])},
1311 { SCM_MAKE_INT(341U), SCM_NIL},
1312 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[435])},
1313 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[436])},
1314 { SCM_UNDEFINED, SCM_NIL},
1315 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[438])},
1316 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[439])},
1317 { SCM_OBJ(&scm__rc.d1563[440]), SCM_NIL},
1318 { SCM_OBJ(&scm__rc.d1563[437]), SCM_OBJ(&scm__rc.d1563[441])},
1319 { SCM_UNDEFINED, SCM_NIL},
1320 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[443])},
1321 { SCM_MAKE_INT(347U), SCM_NIL},
1322 { SCM_OBJ(&scm__sc.d1561[3]), SCM_OBJ(&scm__rc.d1563[445])},
1323 { SCM_UNDEFINED, SCM_OBJ(&scm__rc.d1563[446])},
1324 { SCM_OBJ(&scm__rc.d1563[447]), SCM_OBJ(&scm__rc.d1563[87])},
1325 { SCM_UNDEFINED, SCM_NIL},
1326 },
1327 { /* ScmObj d1562 */
1328 SCM_UNBOUND,
1329 SCM_UNBOUND,
1330 SCM_UNBOUND,
1331 SCM_UNBOUND,
1332 SCM_UNBOUND,
1333 SCM_UNBOUND,
1334 SCM_UNBOUND,
1335 SCM_UNBOUND,
1336 SCM_UNBOUND,
1337 SCM_UNBOUND,
1338 SCM_UNBOUND,
1339 SCM_UNBOUND,
1340 SCM_UNBOUND,
1341 SCM_UNBOUND,
1342 SCM_UNBOUND,
1343 SCM_UNBOUND,
1344 SCM_UNBOUND,
1345 SCM_UNBOUND,
1346 SCM_UNBOUND,
1347 SCM_UNBOUND,
1348 SCM_UNBOUND,
1349 SCM_UNBOUND,
1350 SCM_UNBOUND,
1351 SCM_UNBOUND,
1352 SCM_UNBOUND,
1353 SCM_UNBOUND,
1354 SCM_UNBOUND,
1355 SCM_UNBOUND,
1356 SCM_UNBOUND,
1357 SCM_UNBOUND,
1358 SCM_UNBOUND,
1359 SCM_UNBOUND,
1360 SCM_UNBOUND,
1361 SCM_UNBOUND,
1362 SCM_UNBOUND,
1363 SCM_UNBOUND,
1364 SCM_UNBOUND,
1365 SCM_UNBOUND,
1366 SCM_UNBOUND,
1367 SCM_UNBOUND,
1368 SCM_UNBOUND,
1369 SCM_UNBOUND,
1370 SCM_UNBOUND,
1371 SCM_UNBOUND,
1372 SCM_UNBOUND,
1373 SCM_UNBOUND,
1374 SCM_UNBOUND,
1375 SCM_UNBOUND,
1376 SCM_UNBOUND,
1377 SCM_UNBOUND,
1378 SCM_UNBOUND,
1379 SCM_UNBOUND,
1380 SCM_UNBOUND,
1381 SCM_UNBOUND,
1382 SCM_UNBOUND,
1383 SCM_UNBOUND,
1384 SCM_UNBOUND,
1385 SCM_UNBOUND,
1386 SCM_UNBOUND,
1387 SCM_UNBOUND,
1388 SCM_UNBOUND,
1389 SCM_UNBOUND,
1390 SCM_UNBOUND,
1391 SCM_UNBOUND,
1392 SCM_UNBOUND,
1393 SCM_UNBOUND,
1394 SCM_UNBOUND,
1395 SCM_UNBOUND,
1396 SCM_UNBOUND,
1397 SCM_UNBOUND,
1398 SCM_UNBOUND,
1399 SCM_UNBOUND,
1400 SCM_UNBOUND,
1401 SCM_UNBOUND,
1402 SCM_UNBOUND,
1403 SCM_UNBOUND,
1404 SCM_UNBOUND,
1405 SCM_UNBOUND,
1406 SCM_UNBOUND,
1407 SCM_UNBOUND,
1408 SCM_UNBOUND,
1409 SCM_UNBOUND,
1410 SCM_UNBOUND,
1411 SCM_UNBOUND,
1412 SCM_UNBOUND,
1413 SCM_UNBOUND,
1414 SCM_UNBOUND,
1415 SCM_UNBOUND,
1416 SCM_UNBOUND,
1417 SCM_UNBOUND,
1418 SCM_UNBOUND,
1419 SCM_UNBOUND,
1420 SCM_UNBOUND,
1421 SCM_UNBOUND,
1422 SCM_UNBOUND,
1423 SCM_UNBOUND,
1424 SCM_UNBOUND,
1425 SCM_UNBOUND,
1426 SCM_UNBOUND,
1427 SCM_UNBOUND,
1428 SCM_UNBOUND,
1429 SCM_UNBOUND,
1430 SCM_UNBOUND,
1431 SCM_UNBOUND,
1432 SCM_UNBOUND,
1433 SCM_UNBOUND,
1434 SCM_UNBOUND,
1435 SCM_UNBOUND,
1436 SCM_UNBOUND,
1437 SCM_UNBOUND,
1438 SCM_UNBOUND,
1439 SCM_UNBOUND,
1440 SCM_UNBOUND,
1441 SCM_UNBOUND,
1442 SCM_UNBOUND,
1443 SCM_UNBOUND,
1444 SCM_UNBOUND,
1445 SCM_UNBOUND,
1446 SCM_UNBOUND,
1447 SCM_UNBOUND,
1448 SCM_UNBOUND,
1449 SCM_UNBOUND,
1450 SCM_UNBOUND,
1451 SCM_UNBOUND,
1452 SCM_UNBOUND,
1453 SCM_UNBOUND,
1454 SCM_UNBOUND,
1455 SCM_UNBOUND,
1456 SCM_UNBOUND,
1457 SCM_UNBOUND,
1458 SCM_UNBOUND,
1459 SCM_UNBOUND,
1460 SCM_UNBOUND,
1461 SCM_UNBOUND,
1462 SCM_UNBOUND,
1463 SCM_UNBOUND,
1464 SCM_UNBOUND,
1465 SCM_UNBOUND,
1466 SCM_UNBOUND,
1467 SCM_UNBOUND,
1468 SCM_UNBOUND,
1469 SCM_UNBOUND,
1470 SCM_UNBOUND,
1471 SCM_UNBOUND,
1472 SCM_UNBOUND,
1473 SCM_UNBOUND,
1474 SCM_UNBOUND,
1475 SCM_UNBOUND,
1476 SCM_UNBOUND,
1477 SCM_UNBOUND,
1478 SCM_UNBOUND,
1479 SCM_UNBOUND,
1480 SCM_UNBOUND,
1481 SCM_UNBOUND,
1482 SCM_UNBOUND,
1483 SCM_UNBOUND,
1484 SCM_UNBOUND,
1485 SCM_UNBOUND,
1486 SCM_UNBOUND,
1487 SCM_UNBOUND,
1488 SCM_UNBOUND,
1489 SCM_UNBOUND,
1490 SCM_UNBOUND,
1491 SCM_UNBOUND,
1492 SCM_UNBOUND,
1493 SCM_UNBOUND,
1494 SCM_UNBOUND,
1495 SCM_UNBOUND,
1496 SCM_UNBOUND,
1497 SCM_UNBOUND,
1498 SCM_UNBOUND,
1499 SCM_UNBOUND,
1500 SCM_UNBOUND,
1501 SCM_UNBOUND,
1502 SCM_UNBOUND,
1503 SCM_UNBOUND,
1504 SCM_UNBOUND,
1505 SCM_UNBOUND,
1506 SCM_UNBOUND,
1507 SCM_UNBOUND,
1508 SCM_UNBOUND,
1509 SCM_UNBOUND,
1510 SCM_UNBOUND,
1511 SCM_UNBOUND,
1512 SCM_UNBOUND,
1513 SCM_UNBOUND,
1514 SCM_UNBOUND,
1515 SCM_UNBOUND,
1516 SCM_UNBOUND,
1517 SCM_UNBOUND,
1518 SCM_UNBOUND,
1519 SCM_UNBOUND,
1520 SCM_UNBOUND,
1521 SCM_UNBOUND,
1522 SCM_UNBOUND,
1523 SCM_UNBOUND,
1524 SCM_UNBOUND,
1525 SCM_UNBOUND,
1526 SCM_UNBOUND,
1527 SCM_UNBOUND,
1528 SCM_UNBOUND,
1529 SCM_UNBOUND,
1530 SCM_UNBOUND,
1531 SCM_UNBOUND,
1532 SCM_UNBOUND,
1533 SCM_UNBOUND,
1534 SCM_UNBOUND,
1535 SCM_UNBOUND,
1536 SCM_UNBOUND,
1537 SCM_UNBOUND,
1538 SCM_UNBOUND,
1539 },
1540 };
libmodmoduleP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1541 static ScmObj libmodmoduleP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1542 {
1543 ScmObj obj_scm;
1544 ScmObj obj;
1545 ScmObj SCM_SUBRARGS[1];
1546 SCM_ENTER_SUBR("module?");
1547 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1548 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1549 }
1550 obj_scm = SCM_SUBRARGS[0];
1551 obj = (obj_scm);
1552 {
1553 {
1554 int SCM_RESULT;
1555 {SCM_RESULT=(SCM_MODULEP(obj));goto SCM_STUB_RETURN;}
1556 goto SCM_STUB_RETURN;
1557 SCM_STUB_RETURN:
1558 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
1559 }
1560 }
1561 }
1562
libmodmodule_name(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1563 static ScmObj libmodmodule_name(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1564 {
1565 ScmObj mod_scm;
1566 ScmModule* mod;
1567 ScmObj SCM_SUBRARGS[1];
1568 SCM_ENTER_SUBR("module-name");
1569 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1570 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1571 }
1572 mod_scm = SCM_SUBRARGS[0];
1573 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1574 mod = SCM_MODULE(mod_scm);
1575 {
1576 {
1577 ScmObj SCM_RESULT;
1578
1579 #line 48 "./libmod.scm"
1580 {SCM_RESULT=(SCM_OBJ((SCM_MODULE(mod))->name));goto SCM_STUB_RETURN;}
1581 goto SCM_STUB_RETURN;
1582 SCM_STUB_RETURN:
1583 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1584 }
1585 }
1586 }
1587
libmodmodule_parents(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1588 static ScmObj libmodmodule_parents(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1589 {
1590 ScmObj mod_scm;
1591 ScmModule* mod;
1592 ScmObj SCM_SUBRARGS[1];
1593 SCM_ENTER_SUBR("module-parents");
1594 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1595 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1596 }
1597 mod_scm = SCM_SUBRARGS[0];
1598 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1599 mod = SCM_MODULE(mod_scm);
1600 {
1601 {
1602 ScmObj SCM_RESULT;
1603
1604 #line 50 "./libmod.scm"
1605 {SCM_RESULT=((mod)->parents);goto SCM_STUB_RETURN;}
1606 goto SCM_STUB_RETURN;
1607 SCM_STUB_RETURN:
1608 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1609 }
1610 }
1611 }
1612
libmodmodule_precedence_list(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1613 static ScmObj libmodmodule_precedence_list(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1614 {
1615 ScmObj mod_scm;
1616 ScmModule* mod;
1617 ScmObj SCM_SUBRARGS[1];
1618 SCM_ENTER_SUBR("module-precedence-list");
1619 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1620 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1621 }
1622 mod_scm = SCM_SUBRARGS[0];
1623 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1624 mod = SCM_MODULE(mod_scm);
1625 {
1626 {
1627 ScmObj SCM_RESULT;
1628
1629 #line 51 "./libmod.scm"
1630 {SCM_RESULT=((mod)->mpl);goto SCM_STUB_RETURN;}
1631 goto SCM_STUB_RETURN;
1632 SCM_STUB_RETURN:
1633 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1634 }
1635 }
1636 }
1637
libmodmodule_imports(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1638 static ScmObj libmodmodule_imports(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1639 {
1640 ScmObj mod_scm;
1641 ScmModule* mod;
1642 ScmObj SCM_SUBRARGS[1];
1643 SCM_ENTER_SUBR("module-imports");
1644 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1645 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1646 }
1647 mod_scm = SCM_SUBRARGS[0];
1648 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1649 mod = SCM_MODULE(mod_scm);
1650 {
1651 {
1652 ScmObj SCM_RESULT;
1653
1654 #line 52 "./libmod.scm"
1655 {SCM_RESULT=((mod)->imported);goto SCM_STUB_RETURN;}
1656 goto SCM_STUB_RETURN;
1657 SCM_STUB_RETURN:
1658 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1659 }
1660 }
1661 }
1662
libmodmodule_exports(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1663 static ScmObj libmodmodule_exports(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1664 {
1665 ScmObj mod_scm;
1666 ScmModule* mod;
1667 ScmObj SCM_SUBRARGS[1];
1668 SCM_ENTER_SUBR("module-exports");
1669 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1670 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1671 }
1672 mod_scm = SCM_SUBRARGS[0];
1673 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1674 mod = SCM_MODULE(mod_scm);
1675 {
1676 {
1677 ScmObj SCM_RESULT;
1678 {SCM_RESULT=(Scm_ModuleExports(mod));goto SCM_STUB_RETURN;}
1679 goto SCM_STUB_RETURN;
1680 SCM_STUB_RETURN:
1681 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1682 }
1683 }
1684 }
1685
libmodmodule_table(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1686 static ScmObj libmodmodule_table(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1687 {
1688 ScmObj mod_scm;
1689 ScmModule* mod;
1690 ScmObj SCM_SUBRARGS[1];
1691 SCM_ENTER_SUBR("module-table");
1692 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1693 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1694 }
1695 mod_scm = SCM_SUBRARGS[0];
1696 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1697 mod = SCM_MODULE(mod_scm);
1698 {
1699 {
1700 ScmObj SCM_RESULT;
1701
1702 #line 54 "./libmod.scm"
1703 {SCM_RESULT=(SCM_OBJ((mod)->internal));goto SCM_STUB_RETURN;}
1704 goto SCM_STUB_RETURN;
1705 SCM_STUB_RETURN:
1706 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1707 }
1708 }
1709 }
1710
libmodfind_module(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1711 static ScmObj libmodfind_module(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1712 {
1713 ScmObj name_scm;
1714 ScmSymbol* name;
1715 ScmObj SCM_SUBRARGS[1];
1716 SCM_ENTER_SUBR("find-module");
1717 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1718 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1719 }
1720 name_scm = SCM_SUBRARGS[0];
1721 if (!SCM_SYMBOLP(name_scm)) Scm_Error("symbol required, but got %S", name_scm);
1722 name = SCM_SYMBOL(name_scm);
1723 {
1724 {
1725 ScmModule* SCM_RESULT;
1726
1727 #line 57 "./libmod.scm"
1728 {SCM_RESULT=(Scm_FindModule(name,SCM_FIND_MODULE_QUIET));goto SCM_STUB_RETURN;}
1729 goto SCM_STUB_RETURN;
1730 SCM_STUB_RETURN:
1731 SCM_RETURN(SCM_MAKE_MAYBE(SCM_OBJ_SAFE, SCM_RESULT));
1732 }
1733 }
1734 }
1735
libmodall_modules(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1736 static ScmObj libmodall_modules(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1737 {
1738 SCM_ENTER_SUBR("all-modules");
1739 {
1740 {
1741 ScmObj SCM_RESULT;
1742 {SCM_RESULT=(Scm_AllModules());goto SCM_STUB_RETURN;}
1743 goto SCM_STUB_RETURN;
1744 SCM_STUB_RETURN:
1745 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1746 }
1747 }
1748 }
1749
libmodmake_module(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1750 static ScmObj libmodmake_module(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1751 {
1752 ScmObj name_scm;
1753 ScmSymbol* name;
1754 ScmObj if_exists_scm = scm__rc.d1562[24];
1755 ScmObj if_exists;
1756 ScmObj SCM_SUBRARGS[1];
1757 ScmObj SCM_OPTARGS = SCM_ARGREF(SCM_ARGCNT-1);
1758 SCM_ENTER_SUBR("make-module");
1759 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1760 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1761 }
1762 name_scm = SCM_SUBRARGS[0];
1763 if (!SCM_MAYBE_P(SCM_SYMBOLP, name_scm)) Scm_Error("symbol or #f required, but got %S", name_scm);
1764 name = SCM_MAYBE(SCM_SYMBOL, name_scm);
1765 if (Scm_Length(SCM_OPTARGS) % 2)
1766 Scm_Error("keyword list not even: %S", SCM_OPTARGS);
1767 while (!SCM_NULLP(SCM_OPTARGS)) {
1768 if (SCM_EQ(SCM_CAR(SCM_OPTARGS), scm__rc.d1562[25])) {
1769 if_exists_scm = SCM_CADR(SCM_OPTARGS);
1770 }
1771 else Scm_Warn("unknown keyword %S", SCM_CAR(SCM_OPTARGS));
1772 SCM_OPTARGS = SCM_CDDR(SCM_OPTARGS);
1773 }
1774 if_exists = (if_exists_scm);
1775 {
1776 {
1777 ScmObj SCM_RESULT;
1778
1779 #line 62 "./libmod.scm"
1780 {int error_if_exists=TRUE;
1781 if (SCM_EQ(if_exists,scm__rc.d1562[24])){error_if_exists=(TRUE);}else if(
1782 SCM_FALSEP(if_exists)){error_if_exists=(FALSE);} else {
1783 Scm_TypeError(":if-exists",":error or #f",if_exists);}
1784 {SCM_RESULT=(Scm_MakeModule(name,error_if_exists));goto SCM_STUB_RETURN;}}
1785 goto SCM_STUB_RETURN;
1786 SCM_STUB_RETURN:
1787 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1788 }
1789 }
1790 }
1791
get_module_from_mod_or_name(ScmObj id)1792 static ScmModule* get_module_from_mod_or_name(ScmObj id){{
1793 #line 117 "./libmod.scm"
1794 if (SCM_MODULEP(id)){return (SCM_MODULE(id));}else if(
1795 SCM_SYMBOLP(id)){return (Scm_FindModule(SCM_SYMBOL(id),0));}else if(
1796 SCM_FALSEP(id)){return (SCM_CURRENT_MODULE());} else {
1797 Scm_Error("module or symbol required, but got: %S",id);
1798 return (NULL);}}}
libmodglobal_variable_boundP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1799 static ScmObj libmodglobal_variable_boundP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1800 {
1801 ScmObj mod_or_name_scm;
1802 ScmObj mod_or_name;
1803 ScmObj name_scm;
1804 ScmSymbol* name;
1805 ScmObj SCM_SUBRARGS[2];
1806 SCM_ENTER_SUBR("global-variable-bound?");
1807 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1808 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1809 }
1810 mod_or_name_scm = SCM_SUBRARGS[0];
1811 mod_or_name = (mod_or_name_scm);
1812 name_scm = SCM_SUBRARGS[1];
1813 if (!SCM_SYMBOLP(name_scm)) Scm_Error("symbol required, but got %S", name_scm);
1814 name = SCM_SYMBOL(name_scm);
1815 {
1816 {
1817 int SCM_RESULT;
1818
1819 #line 126 "./libmod.scm"
1820 {SCM_RESULT=(
1821 !(SCM_UNBOUNDP(
1822 Scm_GlobalVariableRef(get_module_from_mod_or_name(mod_or_name),name,0))));goto SCM_STUB_RETURN;}
1823 goto SCM_STUB_RETURN;
1824 SCM_STUB_RETURN:
1825 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
1826 }
1827 }
1828 }
1829
libmodglobal_variable_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1830 static ScmObj libmodglobal_variable_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1831 {
1832 ScmObj mod_or_name_scm;
1833 ScmObj mod_or_name;
1834 ScmObj name_scm;
1835 ScmSymbol* name;
1836 ScmObj fallback_scm;
1837 ScmObj fallback;
1838 ScmObj stay_in_module_scm;
1839 int stay_in_module;
1840 ScmObj SCM_SUBRARGS[6];
1841 SCM_ENTER_SUBR("global-variable-ref");
1842 if (SCM_ARGCNT >= 5
1843 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1844 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1845 for (int SCM_i=0; SCM_i<6; SCM_i++) {
1846 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1847 }
1848 mod_or_name_scm = SCM_SUBRARGS[0];
1849 mod_or_name = (mod_or_name_scm);
1850 name_scm = SCM_SUBRARGS[1];
1851 if (!SCM_SYMBOLP(name_scm)) Scm_Error("symbol required, but got %S", name_scm);
1852 name = SCM_SYMBOL(name_scm);
1853 if (SCM_ARGCNT > 2+1) {
1854 fallback_scm = SCM_SUBRARGS[2];
1855 } else {
1856 fallback_scm = SCM_UNBOUND;
1857 }
1858 fallback = (fallback_scm);
1859 if (SCM_ARGCNT > 3+1) {
1860 stay_in_module_scm = SCM_SUBRARGS[3];
1861 } else {
1862 stay_in_module_scm = SCM_FALSE;
1863 }
1864 if (!SCM_BOOLP(stay_in_module_scm)) Scm_Error("boolean required, but got %S", stay_in_module_scm);
1865 stay_in_module = SCM_BOOL_VALUE(stay_in_module_scm);
1866 {
1867 {
1868 ScmObj SCM_RESULT;
1869
1870 #line 134 "./libmod.scm"
1871 {ScmModule* module=get_module_from_mod_or_name(mod_or_name);int flags=
1872 ((stay_in_module)?(SCM_BINDING_STAY_IN_MODULE):(0));ScmObj r=
1873 Scm_GlobalVariableRef(module,name,flags);ScmObj r2=
1874 ((SCM_UNBOUNDP(r))?(fallback):(r));
1875 if (SCM_UNBOUNDP(r2)){{
1876 Scm_Error("global variable %S is not bound in module %S",name,module);}}
1877 #line 141 "./libmod.scm"
1878 {SCM_RESULT=(r2);goto SCM_STUB_RETURN;}}
1879 goto SCM_STUB_RETURN;
1880 SCM_STUB_RETURN:
1881 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1882 }
1883 }
1884 }
1885
libmod_25export_all(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1886 static ScmObj libmod_25export_all(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1887 {
1888 ScmObj module_scm;
1889 ScmModule* module;
1890 ScmObj SCM_SUBRARGS[1];
1891 SCM_ENTER_SUBR("%export-all");
1892 for (int SCM_i=0; SCM_i<1; SCM_i++) {
1893 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1894 }
1895 module_scm = SCM_SUBRARGS[0];
1896 if (!SCM_MODULEP(module_scm)) Scm_Error("module required, but got %S", module_scm);
1897 module = SCM_MODULE(module_scm);
1898 {
1899 {
1900 ScmObj SCM_RESULT;
1901 {SCM_RESULT=(Scm_ExportAll(module));goto SCM_STUB_RETURN;}
1902 goto SCM_STUB_RETURN;
1903 SCM_STUB_RETURN:
1904 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1905 }
1906 }
1907 }
1908
libmod_25extend_module(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1909 static ScmObj libmod_25extend_module(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1910 {
1911 ScmObj module_scm;
1912 ScmModule* module;
1913 ScmObj supers_scm;
1914 ScmObj supers;
1915 ScmObj SCM_SUBRARGS[2];
1916 SCM_ENTER_SUBR("%extend-module");
1917 for (int SCM_i=0; SCM_i<2; SCM_i++) {
1918 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1919 }
1920 module_scm = SCM_SUBRARGS[0];
1921 if (!SCM_MODULEP(module_scm)) Scm_Error("module required, but got %S", module_scm);
1922 module = SCM_MODULE(module_scm);
1923 supers_scm = SCM_SUBRARGS[1];
1924 if (!SCM_LISTP(supers_scm)) Scm_Error("list required, but got %S", supers_scm);
1925 supers = (supers_scm);
1926 {
1927 {
1928 ScmObj SCM_RESULT;
1929 {SCM_RESULT=(Scm_ExtendModule(module,supers));goto SCM_STUB_RETURN;}
1930 goto SCM_STUB_RETURN;
1931 SCM_STUB_RETURN:
1932 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1933 }
1934 }
1935 }
1936
libmod_25insert_binding(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1937 static ScmObj libmod_25insert_binding(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1938 {
1939 ScmObj mod_scm;
1940 ScmModule* mod;
1941 ScmObj name_scm;
1942 ScmSymbol* name;
1943 ScmObj value_scm;
1944 ScmObj value;
1945 ScmObj flags_scm;
1946 ScmObj flags;
1947 ScmObj SCM_SUBRARGS[5];
1948 SCM_ENTER_SUBR("%insert-binding");
1949 if (SCM_ARGCNT >= 5
1950 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
1951 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
1952 for (int SCM_i=0; SCM_i<5; SCM_i++) {
1953 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
1954 }
1955 mod_scm = SCM_SUBRARGS[0];
1956 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
1957 mod = SCM_MODULE(mod_scm);
1958 name_scm = SCM_SUBRARGS[1];
1959 if (!SCM_SYMBOLP(name_scm)) Scm_Error("symbol required, but got %S", name_scm);
1960 name = SCM_SYMBOL(name_scm);
1961 value_scm = SCM_SUBRARGS[2];
1962 value = (value_scm);
1963 if (SCM_ARGCNT > 3+1) {
1964 flags_scm = SCM_SUBRARGS[3];
1965 } else {
1966 flags_scm = SCM_OBJ(&scm__rc.d1563[105]);
1967 }
1968 flags = (flags_scm);
1969 {
1970 {
1971 ScmObj SCM_RESULT;
1972
1973 #line 161 "./libmod.scm"
1974 {int z=0;
1975 if ((!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[113],flags))))&&(
1976 !(SCM_UNBOUNDP(
1977 Scm_GlobalVariableRef(mod,name,SCM_BINDING_STAY_IN_MODULE))))){
1978 #line 166 "./libmod.scm"
1979 {SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}} else {
1980 {
1981 if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[114],flags)))){{
1982 (z)|=(SCM_BINDING_CONST);}}
1983 if (!(SCM_FALSEP(Scm_Memq(scm__rc.d1562[115],flags)))){{
1984 (z)|=(SCM_BINDING_INLINABLE);}}
1985 {SCM_RESULT=(SCM_OBJ(Scm_MakeBinding(mod,name,value,z)));goto SCM_STUB_RETURN;}}}}
1986 goto SCM_STUB_RETURN;
1987 SCM_STUB_RETURN:
1988 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
1989 }
1990 }
1991 }
1992
libmod_25hide_binding(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)1993 static ScmObj libmod_25hide_binding(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
1994 {
1995 ScmObj mod_scm;
1996 ScmModule* mod;
1997 ScmObj name_scm;
1998 ScmSymbol* name;
1999 ScmObj SCM_SUBRARGS[2];
2000 SCM_ENTER_SUBR("%hide-binding");
2001 for (int SCM_i=0; SCM_i<2; SCM_i++) {
2002 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2003 }
2004 mod_scm = SCM_SUBRARGS[0];
2005 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
2006 mod = SCM_MODULE(mod_scm);
2007 name_scm = SCM_SUBRARGS[1];
2008 if (!SCM_SYMBOLP(name_scm)) Scm_Error("symbol required, but got %S", name_scm);
2009 name = SCM_SYMBOL(name_scm);
2010 {
2011 Scm_HideBinding(mod,name);
2012 goto SCM_STUB_RETURN;
2013 SCM_STUB_RETURN:
2014 SCM_RETURN(SCM_UNDEFINED);
2015 }
2016 }
2017
libmod_25alias_binding(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2018 static ScmObj libmod_25alias_binding(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2019 {
2020 ScmObj target_scm;
2021 ScmModule* target;
2022 ScmObj tname_scm;
2023 ScmSymbol* tname;
2024 ScmObj origin_scm;
2025 ScmModule* origin;
2026 ScmObj oname_scm;
2027 ScmSymbol* oname;
2028 ScmObj SCM_SUBRARGS[4];
2029 SCM_ENTER_SUBR("%alias-binding");
2030 for (int SCM_i=0; SCM_i<4; SCM_i++) {
2031 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2032 }
2033 target_scm = SCM_SUBRARGS[0];
2034 if (!SCM_MODULEP(target_scm)) Scm_Error("module required, but got %S", target_scm);
2035 target = SCM_MODULE(target_scm);
2036 tname_scm = SCM_SUBRARGS[1];
2037 if (!SCM_SYMBOLP(tname_scm)) Scm_Error("symbol required, but got %S", tname_scm);
2038 tname = SCM_SYMBOL(tname_scm);
2039 origin_scm = SCM_SUBRARGS[2];
2040 if (!SCM_MODULEP(origin_scm)) Scm_Error("module required, but got %S", origin_scm);
2041 origin = SCM_MODULE(origin_scm);
2042 oname_scm = SCM_SUBRARGS[3];
2043 if (!SCM_SYMBOLP(oname_scm)) Scm_Error("symbol required, but got %S", oname_scm);
2044 oname = SCM_SYMBOL(oname_scm);
2045 {
2046 {
2047 int SCM_RESULT;
2048 {SCM_RESULT=(Scm_AliasBinding(target,tname,origin,oname));goto SCM_STUB_RETURN;}
2049 goto SCM_STUB_RETURN;
2050 SCM_STUB_RETURN:
2051 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
2052 }
2053 }
2054 }
2055
libmod_25make_wrapper_module(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2056 static ScmObj libmod_25make_wrapper_module(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2057 {
2058 ScmObj origin_scm;
2059 ScmModule* origin;
2060 ScmObj prefix_scm;
2061 ScmObj prefix;
2062 ScmObj SCM_SUBRARGS[2];
2063 SCM_ENTER_SUBR("%make-wrapper-module");
2064 for (int SCM_i=0; SCM_i<2; SCM_i++) {
2065 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2066 }
2067 origin_scm = SCM_SUBRARGS[0];
2068 if (!SCM_MODULEP(origin_scm)) Scm_Error("module required, but got %S", origin_scm);
2069 origin = SCM_MODULE(origin_scm);
2070 prefix_scm = SCM_SUBRARGS[1];
2071 prefix = (prefix_scm);
2072 {
2073 {
2074 ScmObj SCM_RESULT;
2075 {SCM_RESULT=(Scm__MakeWrapperModule(origin,prefix));goto SCM_STUB_RETURN;}
2076 goto SCM_STUB_RETURN;
2077 SCM_STUB_RETURN:
2078 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2079 }
2080 }
2081 }
2082
libmod_25export_symbols(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2083 static ScmObj libmod_25export_symbols(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2084 {
2085 ScmObj mod_scm;
2086 ScmModule* mod;
2087 ScmObj names_scm;
2088 ScmObj names;
2089 ScmObj SCM_SUBRARGS[2];
2090 SCM_ENTER_SUBR("%export-symbols");
2091 for (int SCM_i=0; SCM_i<2; SCM_i++) {
2092 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2093 }
2094 mod_scm = SCM_SUBRARGS[0];
2095 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
2096 mod = SCM_MODULE(mod_scm);
2097 names_scm = SCM_SUBRARGS[1];
2098 names = (names_scm);
2099 {
2100 {
2101 ScmObj SCM_RESULT;
2102 {SCM_RESULT=(Scm_ExportSymbols(mod,names));goto SCM_STUB_RETURN;}
2103 goto SCM_STUB_RETURN;
2104 SCM_STUB_RETURN:
2105 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2106 }
2107 }
2108 }
2109
libmod_25import_module(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2110 static ScmObj libmod_25import_module(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2111 {
2112 ScmObj mod_scm;
2113 ScmModule* mod;
2114 ScmObj imported_scm;
2115 ScmObj imported;
2116 ScmObj prefix_scm;
2117 ScmObj prefix;
2118 ScmObj flags_scm;
2119 u_long flags;
2120 ScmObj SCM_SUBRARGS[6];
2121 SCM_ENTER_SUBR("%import-module");
2122 if (SCM_ARGCNT >= 5
2123 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2124 Scm_Error("too many arguments: up to 4 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2125 for (int SCM_i=0; SCM_i<6; SCM_i++) {
2126 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2127 }
2128 mod_scm = SCM_SUBRARGS[0];
2129 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
2130 mod = SCM_MODULE(mod_scm);
2131 imported_scm = SCM_SUBRARGS[1];
2132 imported = (imported_scm);
2133 if (SCM_ARGCNT > 2+1) {
2134 prefix_scm = SCM_SUBRARGS[2];
2135 } else {
2136 prefix_scm = SCM_FALSE;
2137 }
2138 prefix = (prefix_scm);
2139 if (SCM_ARGCNT > 3+1) {
2140 flags_scm = SCM_SUBRARGS[3];
2141 } else {
2142 flags_scm = SCM_MAKE_INT(0);
2143 }
2144 if (!SCM_UINTEGERP(flags_scm)) Scm_Error("C integer required, but got %S", flags_scm);
2145 flags = Scm_GetIntegerU(flags_scm);
2146 {
2147 {
2148 ScmObj SCM_RESULT;
2149 {SCM_RESULT=(Scm_ImportModule(mod,imported,prefix,flags));goto SCM_STUB_RETURN;}
2150 goto SCM_STUB_RETURN;
2151 SCM_STUB_RETURN:
2152 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2153 }
2154 }
2155 }
2156
libmod_25import_modules(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2157 static ScmObj libmod_25import_modules(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2158 {
2159 ScmObj mod_scm;
2160 ScmModule* mod;
2161 ScmObj mods_scm;
2162 ScmObj mods;
2163 ScmObj SCM_SUBRARGS[2];
2164 SCM_ENTER_SUBR("%import-modules");
2165 for (int SCM_i=0; SCM_i<2; SCM_i++) {
2166 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2167 }
2168 mod_scm = SCM_SUBRARGS[0];
2169 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
2170 mod = SCM_MODULE(mod_scm);
2171 mods_scm = SCM_SUBRARGS[1];
2172 mods = (mods_scm);
2173 {
2174 {
2175 ScmObj SCM_RESULT;
2176 {SCM_RESULT=(Scm_ImportModules(mod,mods));goto SCM_STUB_RETURN;}
2177 goto SCM_STUB_RETURN;
2178 SCM_STUB_RETURN:
2179 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2180 }
2181 }
2182 }
2183
libmod_25seal_moduleX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2184 static ScmObj libmod_25seal_moduleX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2185 {
2186 ScmObj mod_scm;
2187 ScmModule* mod;
2188 ScmObj SCM_SUBRARGS[1];
2189 SCM_ENTER_SUBR("%seal-module!");
2190 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2191 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2192 }
2193 mod_scm = SCM_SUBRARGS[0];
2194 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
2195 mod = SCM_MODULE(mod_scm);
2196 {
2197 Scm_ModuleSeal(mod);
2198 goto SCM_STUB_RETURN;
2199 SCM_STUB_RETURN:
2200 SCM_RETURN(SCM_UNDEFINED);
2201 }
2202 }
2203
module_print(ScmObj obj,ScmPort * port,ScmWriteContext * ctx)2204 static void module_print(ScmObj obj,ScmPort* port,ScmWriteContext* ctx){{
2205 #line 212 "./libmod.scm"
2206 ((void )(ctx));
2207 if (SCM_MODULEP((SCM_MODULE(obj))->origin)){
2208 Scm_Printf(port,"#<module %A$%A @%p>",
2209 (SCM_MODULE(obj))->name,
2210 (SCM_MODULE((SCM_MODULE(obj))->origin))->name,obj);} else {
2211 #line 218 "./libmod.scm"
2212 Scm_Printf(port,"#<module %A>",(SCM_MODULE(obj))->name);}}}
2213 SCM_DEFINE_BUILTIN_CLASS(Scm_ModuleClass, module_print, NULL, NULL, NULL, SCM_CLASS_COLLECTION_CPL);
2214
Scm_ModuleClass_name_GET(ScmObj OBJARG)2215 static ScmObj Scm_ModuleClass_name_GET(ScmObj OBJARG)
2216 {
2217 ScmModule* obj = SCM_MODULE(OBJARG);
2218 return SCM_OBJ_SAFE(obj->name);
2219 }
2220
Scm_ModuleClass_mpl_GET(ScmObj OBJARG)2221 static ScmObj Scm_ModuleClass_mpl_GET(ScmObj OBJARG)
2222 {
2223 ScmModule* obj = SCM_MODULE(OBJARG);
2224 return SCM_OBJ_SAFE(obj->mpl);
2225 }
2226
Scm_ModuleClass_parents_GET(ScmObj OBJARG)2227 static ScmObj Scm_ModuleClass_parents_GET(ScmObj OBJARG)
2228 {
2229 ScmModule* obj = SCM_MODULE(OBJARG);
2230 return SCM_OBJ_SAFE(obj->parents);
2231 }
2232
Scm_ModuleClass_imports_GET(ScmObj OBJARG)2233 static ScmObj Scm_ModuleClass_imports_GET(ScmObj OBJARG)
2234 {
2235 ScmModule* obj = SCM_MODULE(OBJARG);
2236 return SCM_OBJ_SAFE(obj->imported);
2237 }
2238
Scm_ModuleClass_exports_GET(ScmObj OBJARG)2239 static ScmObj Scm_ModuleClass_exports_GET(ScmObj OBJARG)
2240 {
2241 ScmModule* obj = SCM_MODULE(OBJARG);
2242 return SCM_OBJ_SAFE(Scm_ModuleExports(obj));
2243 }
2244
Scm_ModuleClass_export_all_GET(ScmObj OBJARG)2245 static ScmObj Scm_ModuleClass_export_all_GET(ScmObj OBJARG)
2246 {
2247 ScmModule* obj = SCM_MODULE(OBJARG);
2248 return SCM_MAKE_BOOL(obj->exportAll);
2249 }
2250
Scm_ModuleClass_table_GET(ScmObj OBJARG)2251 static ScmObj Scm_ModuleClass_table_GET(ScmObj OBJARG)
2252 {
2253 ScmModule* obj = SCM_MODULE(OBJARG);
2254 return SCM_OBJ_SAFE(obj->internal);
2255 }
2256
Scm_ModuleClass_depends_GET(ScmObj OBJARG)2257 static ScmObj Scm_ModuleClass_depends_GET(ScmObj OBJARG)
2258 {
2259 ScmModule* obj = SCM_MODULE(OBJARG);
2260 return SCM_OBJ_SAFE(obj->depended);
2261 }
2262
Scm_ModuleClass_origin_GET(ScmObj OBJARG)2263 static ScmObj Scm_ModuleClass_origin_GET(ScmObj OBJARG)
2264 {
2265 ScmModule* obj = SCM_MODULE(OBJARG);
2266 return SCM_OBJ_SAFE(obj->origin);
2267 }
2268
Scm_ModuleClass_prefix_GET(ScmObj OBJARG)2269 static ScmObj Scm_ModuleClass_prefix_GET(ScmObj OBJARG)
2270 {
2271 ScmModule* obj = SCM_MODULE(OBJARG);
2272 return SCM_OBJ_SAFE(obj->prefix);
2273 }
2274
Scm_ModuleClass_info_GET(ScmObj OBJARG)2275 static ScmObj Scm_ModuleClass_info_GET(ScmObj OBJARG)
2276 {
2277 ScmModule* obj = SCM_MODULE(OBJARG);
2278 return SCM_OBJ_SAFE(obj->info);
2279 }
2280
Scm_ModuleClass_info_SET(ScmObj OBJARG,ScmObj value)2281 static void Scm_ModuleClass_info_SET(ScmObj OBJARG, ScmObj value)
2282 {
2283 ScmModule* obj = SCM_MODULE(OBJARG);
2284 obj->info = (value);
2285 }
2286
2287 static ScmClassStaticSlotSpec Scm_ModuleClass__SLOTS[] = {
2288 SCM_CLASS_SLOT_SPEC("name", Scm_ModuleClass_name_GET, NULL),
2289 SCM_CLASS_SLOT_SPEC("mpl", Scm_ModuleClass_mpl_GET, NULL),
2290 SCM_CLASS_SLOT_SPEC("parents", Scm_ModuleClass_parents_GET, NULL),
2291 SCM_CLASS_SLOT_SPEC("imports", Scm_ModuleClass_imports_GET, NULL),
2292 SCM_CLASS_SLOT_SPEC("exports", Scm_ModuleClass_exports_GET, NULL),
2293 SCM_CLASS_SLOT_SPEC("export-all", Scm_ModuleClass_export_all_GET, NULL),
2294 SCM_CLASS_SLOT_SPEC("table", Scm_ModuleClass_table_GET, NULL),
2295 SCM_CLASS_SLOT_SPEC("depends", Scm_ModuleClass_depends_GET, NULL),
2296 SCM_CLASS_SLOT_SPEC("origin", Scm_ModuleClass_origin_GET, NULL),
2297 SCM_CLASS_SLOT_SPEC("prefix", Scm_ModuleClass_prefix_GET, NULL),
2298 SCM_CLASS_SLOT_SPEC("info", Scm_ModuleClass_info_GET, Scm_ModuleClass_info_SET),
2299 SCM_CLASS_SLOT_SPEC_END()
2300 };
2301
libmodfind_binding(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2302 static ScmObj libmodfind_binding(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2303 {
2304 ScmObj mod_scm;
2305 ScmModule* mod;
2306 ScmObj name_scm;
2307 ScmSymbol* name;
2308 ScmObj stay_in_module_scm;
2309 int stay_in_module;
2310 ScmObj SCM_SUBRARGS[3];
2311 SCM_ENTER_SUBR("find-binding");
2312 for (int SCM_i=0; SCM_i<3; SCM_i++) {
2313 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2314 }
2315 mod_scm = SCM_SUBRARGS[0];
2316 if (!SCM_MODULEP(mod_scm)) Scm_Error("module required, but got %S", mod_scm);
2317 mod = SCM_MODULE(mod_scm);
2318 name_scm = SCM_SUBRARGS[1];
2319 if (!SCM_SYMBOLP(name_scm)) Scm_Error("symbol required, but got %S", name_scm);
2320 name = SCM_SYMBOL(name_scm);
2321 stay_in_module_scm = SCM_SUBRARGS[2];
2322 if (!SCM_BOOLP(stay_in_module_scm)) Scm_Error("boolean required, but got %S", stay_in_module_scm);
2323 stay_in_module = SCM_BOOL_VALUE(stay_in_module_scm);
2324 {
2325 {
2326 ScmGloc* SCM_RESULT;
2327
2328 #line 289 "./libmod.scm"
2329 {SCM_RESULT=(Scm_FindBinding(mod,name,
2330 ((stay_in_module)?(SCM_BINDING_STAY_IN_MODULE):(0))));goto SCM_STUB_RETURN;}
2331 goto SCM_STUB_RETURN;
2332 SCM_STUB_RETURN:
2333 SCM_RETURN(SCM_MAKE_MAYBE(SCM_OBJ, SCM_RESULT));
2334 }
2335 }
2336 }
2337
libmodfind_const_binding(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2338 static ScmObj libmodfind_const_binding(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2339 {
2340 ScmObj id_scm;
2341 ScmIdentifier* id;
2342 ScmObj SCM_SUBRARGS[1];
2343 SCM_ENTER_SUBR("find-const-binding");
2344 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2345 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2346 }
2347 id_scm = SCM_SUBRARGS[0];
2348 if (!SCM_IDENTIFIERP(id_scm)) Scm_Error("identifier required, but got %S", id_scm);
2349 id = SCM_IDENTIFIER(id_scm);
2350 {
2351 {
2352 ScmObj SCM_RESULT;
2353
2354 #line 296 "./libmod.scm"
2355 {ScmGloc* g=Scm_IdentifierGlobalBinding(id);
2356 if (((!(g))||(
2357 !(SCM_GLOC_CONST_P(g))))||(
2358 SCM_VM_COMPILER_FLAG_IS_SET(Scm_VM(),SCM_COMPILE_NOINLINE_CONSTS))){
2359 #line 301 "./libmod.scm"
2360 {SCM_RESULT=(SCM_FALSE);goto SCM_STUB_RETURN;}} else {
2361 #line 303 "./libmod.scm"
2362 {SCM_RESULT=(SCM_GLOC_GET(g));goto SCM_STUB_RETURN;}}}
2363 goto SCM_STUB_RETURN;
2364 SCM_STUB_RETURN:
2365 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2366 }
2367 }
2368 }
2369
libmodgloc_boundP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2370 static ScmObj libmodgloc_boundP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2371 {
2372 ScmObj gloc_scm;
2373 ScmGloc* gloc;
2374 ScmObj SCM_SUBRARGS[1];
2375 SCM_ENTER_SUBR("gloc-bound?");
2376 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2377 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2378 }
2379 gloc_scm = SCM_SUBRARGS[0];
2380 if (!SCM_GLOCP(gloc_scm)) Scm_Error("GLOC required, but got %S", gloc_scm);
2381 gloc = SCM_GLOC(gloc_scm);
2382 {
2383 {
2384 int SCM_RESULT;
2385
2386 #line 306 "./libmod.scm"
2387 {SCM_RESULT=(!(SCM_UNBOUNDP(SCM_GLOC_GET(gloc))));goto SCM_STUB_RETURN;}
2388 goto SCM_STUB_RETURN;
2389 SCM_STUB_RETURN:
2390 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
2391 }
2392 }
2393 }
2394
libmodgloc_ref(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2395 static ScmObj libmodgloc_ref(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2396 {
2397 ScmObj gloc_scm;
2398 ScmGloc* gloc;
2399 ScmObj fallback_scm;
2400 ScmObj fallback;
2401 ScmObj SCM_SUBRARGS[3];
2402 SCM_ENTER_SUBR("gloc-ref");
2403 if (SCM_ARGCNT >= 3
2404 && !SCM_NULLP(SCM_ARGREF(SCM_ARGCNT-1)))
2405 Scm_Error("too many arguments: up to 2 is expected, %d given.", SCM_ARGCNT + Scm_Length(SCM_ARGREF(SCM_ARGCNT-1)) - 1);
2406 for (int SCM_i=0; SCM_i<3; SCM_i++) {
2407 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2408 }
2409 gloc_scm = SCM_SUBRARGS[0];
2410 if (!SCM_GLOCP(gloc_scm)) Scm_Error("GLOC required, but got %S", gloc_scm);
2411 gloc = SCM_GLOC(gloc_scm);
2412 if (SCM_ARGCNT > 1+1) {
2413 fallback_scm = SCM_SUBRARGS[1];
2414 } else {
2415 fallback_scm = SCM_UNBOUND;
2416 }
2417 fallback = (fallback_scm);
2418 {
2419 {
2420 ScmObj SCM_RESULT;
2421
2422 #line 308 "./libmod.scm"
2423 {ScmObj v=SCM_GLOC_GET(gloc);
2424 if (SCM_UNBOUNDP(v)){
2425 {
2426 if (SCM_UNBOUNDP(fallback)){{
2427 Scm_Error("gloc %S doesn't have a value",SCM_OBJ(gloc));}}
2428 {SCM_RESULT=(fallback);goto SCM_STUB_RETURN;}}} else {
2429 {SCM_RESULT=(v);goto SCM_STUB_RETURN;}}}
2430 goto SCM_STUB_RETURN;
2431 SCM_STUB_RETURN:
2432 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2433 }
2434 }
2435 }
2436
libmodgloc_setX(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2437 static ScmObj libmodgloc_setX(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2438 {
2439 ScmObj gloc_scm;
2440 ScmGloc* gloc;
2441 ScmObj value_scm;
2442 ScmObj value;
2443 ScmObj SCM_SUBRARGS[2];
2444 SCM_ENTER_SUBR("gloc-set!");
2445 for (int SCM_i=0; SCM_i<2; SCM_i++) {
2446 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2447 }
2448 gloc_scm = SCM_SUBRARGS[0];
2449 if (!SCM_GLOCP(gloc_scm)) Scm_Error("GLOC required, but got %S", gloc_scm);
2450 gloc = SCM_GLOC(gloc_scm);
2451 value_scm = SCM_SUBRARGS[1];
2452 value = (value_scm);
2453 {
2454 {
2455 ScmObj SCM_RESULT;
2456 {SCM_RESULT=(SCM_GLOC_SET(gloc,value));goto SCM_STUB_RETURN;}
2457 goto SCM_STUB_RETURN;
2458 SCM_STUB_RETURN:
2459 SCM_RETURN(SCM_OBJ_SAFE(SCM_RESULT));
2460 }
2461 }
2462 }
2463
libmodgloc_constP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2464 static ScmObj libmodgloc_constP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2465 {
2466 ScmObj gloc_scm;
2467 ScmGloc* gloc;
2468 ScmObj SCM_SUBRARGS[1];
2469 SCM_ENTER_SUBR("gloc-const?");
2470 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2471 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2472 }
2473 gloc_scm = SCM_SUBRARGS[0];
2474 if (!SCM_GLOCP(gloc_scm)) Scm_Error("GLOC required, but got %S", gloc_scm);
2475 gloc = SCM_GLOC(gloc_scm);
2476 {
2477 {
2478 int SCM_RESULT;
2479 {SCM_RESULT=(Scm_GlocConstP(gloc));goto SCM_STUB_RETURN;}
2480 goto SCM_STUB_RETURN;
2481 SCM_STUB_RETURN:
2482 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
2483 }
2484 }
2485 }
2486
libmodgloc_inlinableP(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2487 static ScmObj libmodgloc_inlinableP(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2488 {
2489 ScmObj gloc_scm;
2490 ScmGloc* gloc;
2491 ScmObj SCM_SUBRARGS[1];
2492 SCM_ENTER_SUBR("gloc-inlinable?");
2493 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2494 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2495 }
2496 gloc_scm = SCM_SUBRARGS[0];
2497 if (!SCM_GLOCP(gloc_scm)) Scm_Error("GLOC required, but got %S", gloc_scm);
2498 gloc = SCM_GLOC(gloc_scm);
2499 {
2500 {
2501 int SCM_RESULT;
2502 {SCM_RESULT=(Scm_GlocInlinableP(gloc));goto SCM_STUB_RETURN;}
2503 goto SCM_STUB_RETURN;
2504 SCM_STUB_RETURN:
2505 SCM_RETURN(SCM_MAKE_BOOL(SCM_RESULT));
2506 }
2507 }
2508 }
2509
Scm__IdentifierToBoundGloc(ScmIdentifier * id)2510 ScmGloc* Scm__IdentifierToBoundGloc(ScmIdentifier* id){{
2511 #line 336 "./libmod.scm"
2512 {ScmGloc* gloc=Scm_IdentifierGlobalBinding(id);
2513 if ((gloc)&&(!(SCM_UNBOUNDP(SCM_GLOC_GET(gloc))))){
2514 return (gloc);} else {
2515 return (NULL);}}}}
libmodid_TObound_gloc(ScmObj * SCM_FP SCM_UNUSED,int SCM_ARGCNT SCM_UNUSED,void * data_ SCM_UNUSED)2516 static ScmObj libmodid_TObound_gloc(ScmObj *SCM_FP SCM_UNUSED, int SCM_ARGCNT SCM_UNUSED, void *data_ SCM_UNUSED)
2517 {
2518 ScmObj id_scm;
2519 ScmIdentifier* id;
2520 ScmObj SCM_SUBRARGS[1];
2521 SCM_ENTER_SUBR("id->bound-gloc");
2522 for (int SCM_i=0; SCM_i<1; SCM_i++) {
2523 SCM_SUBRARGS[SCM_i] = SCM_ARGREF(SCM_i);
2524 }
2525 id_scm = SCM_SUBRARGS[0];
2526 if (!SCM_IDENTIFIERP(id_scm)) Scm_Error("identifier required, but got %S", id_scm);
2527 id = SCM_IDENTIFIER(id_scm);
2528 {
2529 {
2530 ScmGloc* SCM_RESULT;
2531 {SCM_RESULT=(Scm__IdentifierToBoundGloc(id));goto SCM_STUB_RETURN;}
2532 goto SCM_STUB_RETURN;
2533 SCM_STUB_RETURN:
2534 SCM_RETURN(SCM_MAKE_MAYBE(SCM_OBJ, SCM_RESULT));
2535 }
2536 }
2537 }
2538
2539 static ScmCompiledCode *toplevels[] = {
2540 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[2])),
2541 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[8])),
2542 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[13])),
2543 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[16])),
2544 NULL /*termination*/
2545 };
Scm_Init_libmod()2546 void Scm_Init_libmod() {
2547 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
2548 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
2549 scm__rc.d1562[0] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[0])),TRUE); /* module? */
2550 scm__rc.d1562[1] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[1])),TRUE); /* obj */
2551 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[1]), scm__rc.d1562[1]);
2552 scm__rc.d1562[2] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[2])),TRUE); /* source-info */
2553 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[4]), scm__rc.d1562[2]);
2554 scm__rc.d1562[3] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[4])),TRUE); /* bind-info */
2555 scm__rc.d1562[4] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[5])),TRUE); /* gauche */
2556 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[5]), scm__rc.d1562[0]);
2557 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[6]), scm__rc.d1562[4]);
2558 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[7]), scm__rc.d1562[3]);
2559 scm__rc.d1562[5] = Scm_MakeExtendedPair(scm__rc.d1562[0], SCM_OBJ(&scm__rc.d1563[1]), SCM_OBJ(&scm__rc.d1563[9]));
2560 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module?")), SCM_OBJ(&libmodmoduleP__STUB), SCM_BINDING_INLINABLE);
2561 libmodmoduleP__STUB.common.info = scm__rc.d1562[5];
2562 scm__rc.d1562[6] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[6])),TRUE); /* module-name */
2563 scm__rc.d1562[7] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[7])),TRUE); /* mod */
2564 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[10]), scm__rc.d1562[7]);
2565 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[13]), scm__rc.d1562[2]);
2566 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[14]), scm__rc.d1562[6]);
2567 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[15]), scm__rc.d1562[4]);
2568 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[16]), scm__rc.d1562[3]);
2569 scm__rc.d1562[8] = Scm_MakeExtendedPair(scm__rc.d1562[6], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[18]));
2570 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module-name")), SCM_OBJ(&libmodmodule_name__STUB), 0);
2571 libmodmodule_name__STUB.common.info = scm__rc.d1562[8];
2572 scm__rc.d1562[9] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[8])),TRUE); /* module-parents */
2573 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[21]), scm__rc.d1562[2]);
2574 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[22]), scm__rc.d1562[9]);
2575 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[23]), scm__rc.d1562[4]);
2576 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[24]), scm__rc.d1562[3]);
2577 scm__rc.d1562[10] = Scm_MakeExtendedPair(scm__rc.d1562[9], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[26]));
2578 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module-parents")), SCM_OBJ(&libmodmodule_parents__STUB), 0);
2579 libmodmodule_parents__STUB.common.info = scm__rc.d1562[10];
2580 scm__rc.d1562[11] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[9])),TRUE); /* module-precedence-list */
2581 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[29]), scm__rc.d1562[2]);
2582 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[30]), scm__rc.d1562[11]);
2583 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[31]), scm__rc.d1562[4]);
2584 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[32]), scm__rc.d1562[3]);
2585 scm__rc.d1562[12] = Scm_MakeExtendedPair(scm__rc.d1562[11], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[34]));
2586 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module-precedence-list")), SCM_OBJ(&libmodmodule_precedence_list__STUB), 0);
2587 libmodmodule_precedence_list__STUB.common.info = scm__rc.d1562[12];
2588 scm__rc.d1562[13] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[10])),TRUE); /* module-imports */
2589 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[37]), scm__rc.d1562[2]);
2590 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[38]), scm__rc.d1562[13]);
2591 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[39]), scm__rc.d1562[4]);
2592 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[40]), scm__rc.d1562[3]);
2593 scm__rc.d1562[14] = Scm_MakeExtendedPair(scm__rc.d1562[13], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[42]));
2594 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module-imports")), SCM_OBJ(&libmodmodule_imports__STUB), 0);
2595 libmodmodule_imports__STUB.common.info = scm__rc.d1562[14];
2596 scm__rc.d1562[15] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[11])),TRUE); /* module-exports */
2597 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[45]), scm__rc.d1562[2]);
2598 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[46]), scm__rc.d1562[15]);
2599 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[47]), scm__rc.d1562[4]);
2600 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[48]), scm__rc.d1562[3]);
2601 scm__rc.d1562[16] = Scm_MakeExtendedPair(scm__rc.d1562[15], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[50]));
2602 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module-exports")), SCM_OBJ(&libmodmodule_exports__STUB), 0);
2603 libmodmodule_exports__STUB.common.info = scm__rc.d1562[16];
2604 scm__rc.d1562[17] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[12])),TRUE); /* module-table */
2605 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[53]), scm__rc.d1562[2]);
2606 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[54]), scm__rc.d1562[17]);
2607 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[55]), scm__rc.d1562[4]);
2608 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[56]), scm__rc.d1562[3]);
2609 scm__rc.d1562[18] = Scm_MakeExtendedPair(scm__rc.d1562[17], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[58]));
2610 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("module-table")), SCM_OBJ(&libmodmodule_table__STUB), 0);
2611 libmodmodule_table__STUB.common.info = scm__rc.d1562[18];
2612 scm__rc.d1562[19] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[13])),TRUE); /* find-module */
2613 scm__rc.d1562[20] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[14])),TRUE); /* name */
2614 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[59]), scm__rc.d1562[20]);
2615 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[62]), scm__rc.d1562[2]);
2616 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[63]), scm__rc.d1562[19]);
2617 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[64]), scm__rc.d1562[4]);
2618 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[65]), scm__rc.d1562[3]);
2619 scm__rc.d1562[21] = Scm_MakeExtendedPair(scm__rc.d1562[19], SCM_OBJ(&scm__rc.d1563[59]), SCM_OBJ(&scm__rc.d1563[67]));
2620 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("find-module")), SCM_OBJ(&libmodfind_module__STUB), 0);
2621 libmodfind_module__STUB.common.info = scm__rc.d1562[21];
2622 scm__rc.d1562[22] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[15])),TRUE); /* all-modules */
2623 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[68]), scm__rc.d1562[22]);
2624 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[69]), scm__rc.d1562[4]);
2625 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[70]), scm__rc.d1562[3]);
2626 scm__rc.d1562[23] = Scm_MakeExtendedPair(scm__rc.d1562[22], SCM_NIL, SCM_OBJ(&scm__rc.d1563[71]));
2627 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("all-modules")), SCM_OBJ(&libmodall_modules__STUB), 0);
2628 libmodall_modules__STUB.common.info = scm__rc.d1562[23];
2629 scm__rc.d1562[24] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16]))); /* :error */
2630 scm__rc.d1562[25] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[17]))); /* :if-exists */
2631 scm__rc.d1562[26] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[18])),TRUE); /* make-module */
2632 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[74]), scm__rc.d1562[2]);
2633 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[75]), scm__rc.d1562[26]);
2634 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[76]), scm__rc.d1562[4]);
2635 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[77]), scm__rc.d1562[3]);
2636 scm__rc.d1562[27] = Scm_MakeExtendedPair(scm__rc.d1562[26], SCM_OBJ(&scm__rc.d1563[59]), SCM_OBJ(&scm__rc.d1563[79]));
2637 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("make-module")), SCM_OBJ(&libmodmake_module__STUB), 0);
2638 libmodmake_module__STUB.common.info = scm__rc.d1562[27];
2639 scm__rc.d1562[28] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[19])),TRUE); /* begin */
2640 scm__rc.d1562[30] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[4]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche */
2641 scm__rc.d1562[29] = Scm_MakeIdentifier(scm__rc.d1562[19], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#find-module */
2642 scm__rc.d1562[32] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[20])),TRUE); /* make-identifier */
2643 scm__rc.d1562[31] = Scm_MakeIdentifier(scm__rc.d1562[32], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#make-identifier */
2644 scm__rc.d1562[33] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[21])),TRUE); /* require */
2645 scm__rc.d1562[34] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[22])),TRUE); /* import */
2646 scm__rc.d1562[36] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[23])),TRUE); /* module-name->path */
2647 scm__rc.d1562[35] = Scm_MakeIdentifier(scm__rc.d1562[36], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#module-name->path */
2648 scm__rc.d1562[37] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[24])),FALSE); /* G1566 */
2649 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[83]), scm__rc.d1562[37]);
2650 scm__rc.d1562[38] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[25])),TRUE); /* module */
2651 scm__rc.d1562[39] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[26])),TRUE); /* options */
2652 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[38]);
2653 SCM_SET_CDR(SCM_OBJ(&scm__rc.d1563[85]), scm__rc.d1562[39]);
2654 scm__rc.d1562[40] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[27])),TRUE); /* unused-args */
2655 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[86]), scm__rc.d1562[40]);
2656 scm__rc.d1562[41] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[84]), SCM_OBJ(&scm__rc.d1563[85]), SCM_OBJ(&scm__rc.d1563[87]));
2657 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[88]), scm__rc.d1562[41]);
2658 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[5] = SCM_WORD(scm__rc.d1562[28]);
2659 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[9] = SCM_WORD(scm__rc.d1562[4]);
2660 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[11] = SCM_WORD(scm__rc.d1562[29]);
2661 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[15] = SCM_WORD(scm__rc.d1562[31]);
2662 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[20] = SCM_WORD(scm__rc.d1562[33]);
2663 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[24] = SCM_WORD(scm__rc.d1562[4]);
2664 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[26] = SCM_WORD(scm__rc.d1562[29]);
2665 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[30] = SCM_WORD(scm__rc.d1562[31]);
2666 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[35] = SCM_WORD(scm__rc.d1562[34]);
2667 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[39] = SCM_WORD(scm__rc.d1562[4]);
2668 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[41] = SCM_WORD(scm__rc.d1562[29]);
2669 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[45] = SCM_WORD(scm__rc.d1562[31]);
2670 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[0]))[53] = SCM_WORD(scm__rc.d1562[35]);
2671 scm__rc.d1562[42] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[28])),TRUE); /* use */
2672 scm__rc.d1562[43] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[29])),FALSE); /* G1564 */
2673 scm__rc.d1562[44] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[30])),FALSE); /* G1565 */
2674 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[90]), scm__rc.d1562[44]);
2675 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[91]), scm__rc.d1562[43]);
2676 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[92]), scm__rc.d1562[40]);
2677 scm__rc.d1562[45] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[91]), SCM_OBJ(&scm__rc.d1563[93]));
2678 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[94]), scm__rc.d1562[45]);
2679 scm__rc.d1562[46] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[31])),TRUE); /* lambda */
2680 scm__rc.d1562[47] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[32])),TRUE); /* define */
2681 scm__rc.d1562[48] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[33])),TRUE); /* begin. */
2682 scm__rc.d1562[49] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[34])),TRUE); /* with-module */
2683 scm__rc.d1562[50] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[35])),TRUE); /* gauche.internal */
2684 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[95]), scm__rc.d1562[32]);
2685 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[96]), scm__rc.d1562[50]);
2686 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[97]), scm__rc.d1562[49]);
2687 scm__rc.d1562[51] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[36])),TRUE); /* quote */
2688 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[98]), scm__rc.d1562[28]);
2689 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[99]), scm__rc.d1562[51]);
2690 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[100]), scm__rc.d1562[4]);
2691 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[101]), scm__rc.d1562[51]);
2692 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[103]), scm__rc.d1562[19]);
2693 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[105]), scm__rc.d1562[51]);
2694 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[111]), scm__rc.d1562[48]);
2695 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[112]), scm__rc.d1562[47]);
2696 scm__rc.d1562[52] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[37])),TRUE); /* require. */
2697 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[113]), scm__rc.d1562[33]);
2698 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[114]), scm__rc.d1562[51]);
2699 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[118]), scm__rc.d1562[52]);
2700 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[119]), scm__rc.d1562[47]);
2701 scm__rc.d1562[53] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[38])),TRUE); /* import. */
2702 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[120]), scm__rc.d1562[34]);
2703 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[121]), scm__rc.d1562[51]);
2704 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[125]), scm__rc.d1562[53]);
2705 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[126]), scm__rc.d1562[47]);
2706 scm__rc.d1562[54] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[39])),TRUE); /* quasiquote */
2707 scm__rc.d1562[55] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[40])),TRUE); /* unquote */
2708 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[127]), scm__rc.d1562[48]);
2709 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[128]), scm__rc.d1562[55]);
2710 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[129]), scm__rc.d1562[52]);
2711 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[130]), scm__rc.d1562[55]);
2712 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[131]), scm__rc.d1562[38]);
2713 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[132]), scm__rc.d1562[36]);
2714 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[134]), scm__rc.d1562[55]);
2715 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[137]), scm__rc.d1562[53]);
2716 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[138]), scm__rc.d1562[55]);
2717 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[139]), scm__rc.d1562[55]);
2718 scm__rc.d1562[56] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[41])),TRUE); /* unquote-splicing */
2719 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[140]), scm__rc.d1562[39]);
2720 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[141]), scm__rc.d1562[56]);
2721 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[150]), scm__rc.d1562[54]);
2722 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[156]), scm__rc.d1562[46]);
2723 scm__rc.d1562[58] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[42])),TRUE); /* %make-macro-transformer */
2724 scm__rc.d1562[57] = Scm_MakeIdentifier(scm__rc.d1562[58], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%make-macro-transformer */
2725 scm__rc.d1562[59] = Scm_MakeIdentifier(scm__rc.d1562[42], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#use */
2726 scm__rc.d1562[60] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[43])),TRUE); /* %toplevel */
2727 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[2]))->name = scm__rc.d1562[60];/* %toplevel */
2728 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[68]))[5] = SCM_WORD(scm__rc.d1562[42]);
2729 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[68]))[12] = SCM_WORD(scm__rc.d1562[57]);
2730 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[68]))[14] = SCM_WORD(scm__rc.d1562[59]);
2731 scm__rc.d1562[62] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[44])),TRUE); /* list->string */
2732 scm__rc.d1562[61] = Scm_MakeIdentifier(scm__rc.d1562[62], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#list->string */
2733 scm__rc.d1562[64] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[46])),TRUE); /* equal? */
2734 scm__rc.d1562[63] = Scm_MakeIdentifier(scm__rc.d1562[64], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#equal? */
2735 scm__rc.d1562[66] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[16])),TRUE); /* error */
2736 scm__rc.d1562[65] = Scm_MakeIdentifier(scm__rc.d1562[66], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#error */
2737 scm__rc.d1562[67] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[51])),TRUE); /* path-comp */
2738 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[157]), scm__rc.d1562[67]);
2739 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[158]), scm__rc.d1562[36]);
2740 scm__rc.d1562[68] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[52])),TRUE); /* p */
2741 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[159]), scm__rc.d1562[68]);
2742 scm__rc.d1562[69] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[158]), SCM_OBJ(&scm__rc.d1563[159]), SCM_OBJ(&scm__rc.d1563[87]));
2743 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[160]), scm__rc.d1562[69]);
2744 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[3]))->name = scm__rc.d1562[67];/* (module-name->path path-comp) */
2745 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]))[5] = SCM_WORD(scm__rc.d1562[61]);
2746 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]))[13] = SCM_WORD(scm__rc.d1562[63]);
2747 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]))[22] = SCM_WORD(scm__rc.d1562[65]);
2748 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]))[31] = SCM_WORD(scm__rc.d1562[63]);
2749 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]))[40] = SCM_WORD(scm__rc.d1562[65]);
2750 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[85]))[49] = SCM_WORD(scm__rc.d1562[63]);
2751 scm__rc.d1562[71] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[53])),TRUE); /* identifier->symbol */
2752 scm__rc.d1562[70] = Scm_MakeIdentifier(scm__rc.d1562[71], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#identifier->symbol */
2753 scm__rc.d1562[73] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[54])),TRUE); /* symbol->string */
2754 scm__rc.d1562[72] = Scm_MakeIdentifier(scm__rc.d1562[73], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#symbol->string */
2755 scm__rc.d1562[75] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[57])),TRUE); /* string-join */
2756 scm__rc.d1562[74] = Scm_MakeIdentifier(scm__rc.d1562[75], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#string-join */
2757 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[163]), scm__rc.d1562[36]);
2758 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[166]), scm__rc.d1562[2]);
2759 scm__rc.d1562[76] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[163]), SCM_NIL, SCM_OBJ(&scm__rc.d1563[167]));
2760 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[168]), scm__rc.d1562[76]);
2761 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[142]))[22] = SCM_WORD(scm__rc.d1562[74]);
2762 scm__rc.d1562[78] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[58])),TRUE); /* with-input-from-string */
2763 scm__rc.d1562[77] = Scm_MakeIdentifier(scm__rc.d1562[78], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#with-input-from-string */
2764 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[171]), scm__rc.d1562[2]);
2765 scm__rc.d1562[79] = Scm_MakeExtendedPair(scm__rc.d1562[36], SCM_OBJ(&scm__rc.d1563[59]), SCM_OBJ(&scm__rc.d1563[172]));
2766 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[173]), scm__rc.d1562[79]);
2767 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[5]))->name = scm__rc.d1562[36];/* module-name->path */
2768 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]))[12] = SCM_WORD(scm__rc.d1562[70]);
2769 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]))[14] = SCM_WORD(scm__rc.d1562[72]);
2770 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]))[23] = SCM_WORD(scm__rc.d1562[65]);
2771 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[208]))[28] = SCM_WORD(scm__rc.d1562[77]);
2772 ScmObj G1569 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1568[5]), NULL);
2773
2774 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[36]) /* module-name->path */, G1569,0);
2775
2776 scm__rc.d1562[80] = Scm_RegComp(SCM_STRING(SCM_OBJ(&scm__sc.d1561[59])), 0);
2777 scm__rc.d1562[82] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[60])),TRUE); /* regexp-replace-all */
2778 scm__rc.d1562[81] = Scm_MakeIdentifier(scm__rc.d1562[82], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#regexp-replace-all */
2779 scm__rc.d1562[83] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[61])),TRUE); /* path->module-name */
2780 scm__rc.d1562[84] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[62])),FALSE); /* G1572 */
2781 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[174]), scm__rc.d1562[84]);
2782 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[175]), scm__rc.d1562[83]);
2783 scm__rc.d1562[85] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[63])),FALSE); /* G1571 */
2784 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[176]), scm__rc.d1562[85]);
2785 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[179]), scm__rc.d1562[2]);
2786 scm__rc.d1562[86] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[175]), SCM_OBJ(&scm__rc.d1563[176]), SCM_OBJ(&scm__rc.d1563[180]));
2787 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[181]), scm__rc.d1562[86]);
2788 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[238]))[1] = SCM_WORD(scm__rc.d1562[80]);
2789 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[238]))[6] = SCM_WORD(scm__rc.d1562[81]);
2790 scm__rc.d1562[88] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[65])),TRUE); /* string-split */
2791 scm__rc.d1562[87] = Scm_MakeIdentifier(scm__rc.d1562[88], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#string-split */
2792 scm__rc.d1562[90] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[66])),TRUE); /* map */
2793 scm__rc.d1562[89] = Scm_MakeIdentifier(scm__rc.d1562[90], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#map */
2794 scm__rc.d1562[92] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[67])),TRUE); /* string->symbol */
2795 scm__rc.d1562[91] = Scm_MakeIdentifier(scm__rc.d1562[92], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#string->symbol */
2796 scm__rc.d1562[93] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[68])),TRUE); /* path */
2797 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[183]), scm__rc.d1562[93]);
2798 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[186]), scm__rc.d1562[2]);
2799 scm__rc.d1562[94] = Scm_MakeExtendedPair(scm__rc.d1562[83], SCM_OBJ(&scm__rc.d1563[183]), SCM_OBJ(&scm__rc.d1563[187]));
2800 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[188]), scm__rc.d1562[94]);
2801 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[7]))->name = scm__rc.d1562[83];/* path->module-name */
2802 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]))[12] = SCM_WORD(scm__rc.d1562[65]);
2803 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]))[24] = SCM_WORD(scm__rc.d1562[87]);
2804 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]))[26] = SCM_WORD(scm__rc.d1562[89]);
2805 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]))[31] = SCM_WORD(scm__rc.d1562[74]);
2806 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[246]))[33] = SCM_WORD(scm__rc.d1562[91]);
2807 scm__rc.d1562[95] = Scm_MakeIdentifier(scm__rc.d1562[83], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#path->module-name */
2808 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[8]))->name = scm__rc.d1562[60];/* %toplevel */
2809 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[281]))[5] = SCM_WORD(scm__rc.d1562[95]);
2810 scm__rc.d1562[96] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[69])),TRUE); /* global-variable-bound? */
2811 scm__rc.d1562[97] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[70])),TRUE); /* mod-or-name */
2812 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[189]), scm__rc.d1562[97]);
2813 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[192]), scm__rc.d1562[2]);
2814 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[193]), scm__rc.d1562[96]);
2815 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[194]), scm__rc.d1562[4]);
2816 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[195]), scm__rc.d1562[3]);
2817 scm__rc.d1562[98] = Scm_MakeExtendedPair(scm__rc.d1562[96], SCM_OBJ(&scm__rc.d1563[189]), SCM_OBJ(&scm__rc.d1563[197]));
2818 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("global-variable-bound?")), SCM_OBJ(&libmodglobal_variable_boundP__STUB), 0);
2819 libmodglobal_variable_boundP__STUB.common.info = scm__rc.d1562[98];
2820 scm__rc.d1562[99] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[71])),TRUE); /* global-variable-ref */
2821 scm__rc.d1562[100] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[72])),TRUE); /* mod_or_name */
2822 scm__rc.d1562[101] = Scm_MakeKeyword(SCM_STRING(SCM_OBJ(&scm__sc.d1561[73]))); /* :optional */
2823 scm__rc.d1562[102] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[74])),TRUE); /* fallback */
2824 scm__rc.d1562[103] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[75])),TRUE); /* stay-in-module */
2825 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[198]), scm__rc.d1562[103]);
2826 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[199]), scm__rc.d1562[102]);
2827 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[200]), scm__rc.d1562[101]);
2828 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[201]), scm__rc.d1562[20]);
2829 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[202]), scm__rc.d1562[100]);
2830 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[205]), scm__rc.d1562[2]);
2831 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[206]), scm__rc.d1562[99]);
2832 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[207]), scm__rc.d1562[4]);
2833 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[208]), scm__rc.d1562[3]);
2834 scm__rc.d1562[104] = Scm_MakeExtendedPair(scm__rc.d1562[99], SCM_OBJ(&scm__rc.d1563[202]), SCM_OBJ(&scm__rc.d1563[210]));
2835 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())), SCM_SYMBOL(SCM_INTERN("global-variable-ref")), SCM_OBJ(&libmodglobal_variable_ref__STUB), 0);
2836 libmodglobal_variable_ref__STUB.common.info = scm__rc.d1562[104];
2837 scm__rc.d1562[105] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[76])),TRUE); /* symbol-bound? */
2838 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[211]), scm__rc.d1562[38]);
2839 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[213]), scm__rc.d1562[101]);
2840 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[214]), scm__rc.d1562[20]);
2841 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[215]), scm__rc.d1562[38]);
2842 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[216]), scm__rc.d1562[96]);
2843 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[219]), scm__rc.d1562[46]);
2844 scm__rc.d1562[106] = Scm_MakeIdentifier(scm__rc.d1562[96], SCM_MODULE(scm__rc.d1562[30]), SCM_NIL); /* gauche#global-variable-bound? */
2845 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[222]), scm__rc.d1562[2]);
2846 scm__rc.d1562[107] = Scm_MakeExtendedPair(scm__rc.d1562[105], SCM_OBJ(&scm__rc.d1563[214]), SCM_OBJ(&scm__rc.d1563[223]));
2847 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[224]), scm__rc.d1562[107]);
2848 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[9]))->name = scm__rc.d1562[105];/* symbol-bound? */
2849 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]))[28] = SCM_WORD(scm__rc.d1562[65]);
2850 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[288]))[32] = SCM_WORD(scm__rc.d1562[106]);
2851 ScmObj G1576 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1568[9]), NULL);
2852
2853 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())) /* gauche */, SCM_SYMBOL(scm__rc.d1562[105]) /* symbol-bound? */, G1576,0);
2854
2855 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
2856 scm__rc.d1562[108] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[78])),TRUE); /* %export-all */
2857 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[227]), scm__rc.d1562[2]);
2858 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[228]), scm__rc.d1562[108]);
2859 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[229]), scm__rc.d1562[50]);
2860 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[230]), scm__rc.d1562[3]);
2861 scm__rc.d1562[109] = Scm_MakeExtendedPair(scm__rc.d1562[108], SCM_OBJ(&scm__rc.d1563[131]), SCM_OBJ(&scm__rc.d1563[232]));
2862 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%export-all")), SCM_OBJ(&libmod_25export_all__STUB), 0);
2863 libmod_25export_all__STUB.common.info = scm__rc.d1562[109];
2864 scm__rc.d1562[110] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[79])),TRUE); /* %extend-module */
2865 scm__rc.d1562[111] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[80])),TRUE); /* supers */
2866 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[233]), scm__rc.d1562[111]);
2867 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[234]), scm__rc.d1562[38]);
2868 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[237]), scm__rc.d1562[2]);
2869 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[238]), scm__rc.d1562[110]);
2870 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[239]), scm__rc.d1562[50]);
2871 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[240]), scm__rc.d1562[3]);
2872 scm__rc.d1562[112] = Scm_MakeExtendedPair(scm__rc.d1562[110], SCM_OBJ(&scm__rc.d1563[234]), SCM_OBJ(&scm__rc.d1563[242]));
2873 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%extend-module")), SCM_OBJ(&libmod_25extend_module__STUB), 0);
2874 libmod_25extend_module__STUB.common.info = scm__rc.d1562[112];
2875 scm__rc.d1562[113] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[82])),TRUE); /* fresh */
2876 scm__rc.d1562[114] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[83])),TRUE); /* const */
2877 scm__rc.d1562[115] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[84])),TRUE); /* inlinable */
2878 scm__rc.d1562[116] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[81])),TRUE); /* %insert-binding */
2879 scm__rc.d1562[117] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[85])),TRUE); /* value */
2880 scm__rc.d1562[118] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[86])),TRUE); /* flags */
2881 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[243]), scm__rc.d1562[118]);
2882 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[244]), scm__rc.d1562[101]);
2883 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[245]), scm__rc.d1562[117]);
2884 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[246]), scm__rc.d1562[20]);
2885 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[247]), scm__rc.d1562[7]);
2886 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[250]), scm__rc.d1562[2]);
2887 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[251]), scm__rc.d1562[116]);
2888 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[252]), scm__rc.d1562[50]);
2889 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[253]), scm__rc.d1562[3]);
2890 scm__rc.d1562[119] = Scm_MakeExtendedPair(scm__rc.d1562[116], SCM_OBJ(&scm__rc.d1563[247]), SCM_OBJ(&scm__rc.d1563[255]));
2891 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%insert-binding")), SCM_OBJ(&libmod_25insert_binding__STUB), 0);
2892 libmod_25insert_binding__STUB.common.info = scm__rc.d1562[119];
2893 scm__rc.d1562[120] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[87])),TRUE); /* %insert-syntax-binding */
2894 scm__rc.d1562[122] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[88])),TRUE); /* syntax? */
2895 scm__rc.d1562[123] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[50]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module gauche.internal */
2896 scm__rc.d1562[121] = Scm_MakeIdentifier(scm__rc.d1562[122], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#syntax? */
2897 scm__rc.d1562[125] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[89])),TRUE); /* macro? */
2898 scm__rc.d1562[124] = Scm_MakeIdentifier(scm__rc.d1562[125], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#macro? */
2899 scm__rc.d1562[126] = Scm_MakeIdentifier(scm__rc.d1562[66], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#error */
2900 scm__rc.d1562[127] = Scm_MakeIdentifier(scm__rc.d1562[116], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#%insert-binding */
2901 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[256]), scm__rc.d1562[117]);
2902 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[257]), scm__rc.d1562[20]);
2903 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[258]), scm__rc.d1562[7]);
2904 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[261]), scm__rc.d1562[2]);
2905 scm__rc.d1562[128] = Scm_MakeExtendedPair(scm__rc.d1562[120], SCM_OBJ(&scm__rc.d1563[258]), SCM_OBJ(&scm__rc.d1563[262]));
2906 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[263]), scm__rc.d1562[128]);
2907 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[10]))->name = scm__rc.d1562[120];/* %insert-syntax-binding */
2908 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]))[4] = SCM_WORD(scm__rc.d1562[121]);
2909 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]))[13] = SCM_WORD(scm__rc.d1562[124]);
2910 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]))[24] = SCM_WORD(scm__rc.d1562[126]);
2911 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[322]))[29] = SCM_WORD(scm__rc.d1562[127]);
2912 ScmObj G1577 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1568[10]), NULL);
2913
2914 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[120]) /* %insert-syntax-binding */, G1577,0);
2915
2916 scm__rc.d1562[129] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[91])),TRUE); /* %hide-binding */
2917 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[264]), scm__rc.d1562[7]);
2918 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[267]), scm__rc.d1562[2]);
2919 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[268]), scm__rc.d1562[129]);
2920 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[269]), scm__rc.d1562[50]);
2921 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[270]), scm__rc.d1562[3]);
2922 scm__rc.d1562[130] = Scm_MakeExtendedPair(scm__rc.d1562[129], SCM_OBJ(&scm__rc.d1563[264]), SCM_OBJ(&scm__rc.d1563[272]));
2923 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%hide-binding")), SCM_OBJ(&libmod_25hide_binding__STUB), 0);
2924 libmod_25hide_binding__STUB.common.info = scm__rc.d1562[130];
2925 scm__rc.d1562[131] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[92])),TRUE); /* %alias-binding */
2926 scm__rc.d1562[132] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[93])),TRUE); /* target */
2927 scm__rc.d1562[133] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[94])),TRUE); /* tname */
2928 scm__rc.d1562[134] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[95])),TRUE); /* origin */
2929 scm__rc.d1562[135] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[96])),TRUE); /* oname */
2930 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[273]), scm__rc.d1562[135]);
2931 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[274]), scm__rc.d1562[134]);
2932 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[275]), scm__rc.d1562[133]);
2933 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[276]), scm__rc.d1562[132]);
2934 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[279]), scm__rc.d1562[2]);
2935 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[280]), scm__rc.d1562[131]);
2936 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[281]), scm__rc.d1562[50]);
2937 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[282]), scm__rc.d1562[3]);
2938 scm__rc.d1562[136] = Scm_MakeExtendedPair(scm__rc.d1562[131], SCM_OBJ(&scm__rc.d1563[276]), SCM_OBJ(&scm__rc.d1563[284]));
2939 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%alias-binding")), SCM_OBJ(&libmod_25alias_binding__STUB), 0);
2940 libmod_25alias_binding__STUB.common.info = scm__rc.d1562[136];
2941 scm__rc.d1562[137] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[97])),TRUE); /* %make-wrapper-module */
2942 scm__rc.d1562[138] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[98])),TRUE); /* prefix */
2943 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[285]), scm__rc.d1562[138]);
2944 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[286]), scm__rc.d1562[134]);
2945 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[289]), scm__rc.d1562[2]);
2946 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[290]), scm__rc.d1562[137]);
2947 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[291]), scm__rc.d1562[50]);
2948 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[292]), scm__rc.d1562[3]);
2949 scm__rc.d1562[139] = Scm_MakeExtendedPair(scm__rc.d1562[137], SCM_OBJ(&scm__rc.d1563[286]), SCM_OBJ(&scm__rc.d1563[294]));
2950 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%make-wrapper-module")), SCM_OBJ(&libmod_25make_wrapper_module__STUB), 0);
2951 libmod_25make_wrapper_module__STUB.common.info = scm__rc.d1562[139];
2952 scm__rc.d1562[140] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[99])),TRUE); /* %export-symbols */
2953 scm__rc.d1562[141] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[100])),TRUE); /* names */
2954 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[295]), scm__rc.d1562[141]);
2955 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[296]), scm__rc.d1562[7]);
2956 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[299]), scm__rc.d1562[2]);
2957 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[300]), scm__rc.d1562[140]);
2958 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[301]), scm__rc.d1562[50]);
2959 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[302]), scm__rc.d1562[3]);
2960 scm__rc.d1562[142] = Scm_MakeExtendedPair(scm__rc.d1562[140], SCM_OBJ(&scm__rc.d1563[296]), SCM_OBJ(&scm__rc.d1563[304]));
2961 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%export-symbols")), SCM_OBJ(&libmod_25export_symbols__STUB), 0);
2962 libmod_25export_symbols__STUB.common.info = scm__rc.d1562[142];
2963 scm__rc.d1562[143] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[101])),TRUE); /* %import-module */
2964 scm__rc.d1562[144] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[102])),TRUE); /* imported */
2965 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[305]), scm__rc.d1562[138]);
2966 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[306]), scm__rc.d1562[101]);
2967 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[307]), scm__rc.d1562[144]);
2968 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[308]), scm__rc.d1562[7]);
2969 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[311]), scm__rc.d1562[2]);
2970 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[312]), scm__rc.d1562[143]);
2971 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[313]), scm__rc.d1562[50]);
2972 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[314]), scm__rc.d1562[3]);
2973 scm__rc.d1562[145] = Scm_MakeExtendedPair(scm__rc.d1562[143], SCM_OBJ(&scm__rc.d1563[308]), SCM_OBJ(&scm__rc.d1563[316]));
2974 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%import-module")), SCM_OBJ(&libmod_25import_module__STUB), 0);
2975 libmod_25import_module__STUB.common.info = scm__rc.d1562[145];
2976 scm__rc.d1562[146] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[103])),TRUE); /* %import-modules */
2977 scm__rc.d1562[147] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[104])),TRUE); /* mods */
2978 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[317]), scm__rc.d1562[147]);
2979 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[318]), scm__rc.d1562[7]);
2980 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[321]), scm__rc.d1562[2]);
2981 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[322]), scm__rc.d1562[146]);
2982 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[323]), scm__rc.d1562[50]);
2983 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[324]), scm__rc.d1562[3]);
2984 scm__rc.d1562[148] = Scm_MakeExtendedPair(scm__rc.d1562[146], SCM_OBJ(&scm__rc.d1563[318]), SCM_OBJ(&scm__rc.d1563[326]));
2985 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%import-modules")), SCM_OBJ(&libmod_25import_modules__STUB), 0);
2986 libmod_25import_modules__STUB.common.info = scm__rc.d1562[148];
2987 scm__rc.d1562[149] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[105])),TRUE); /* %seal-module! */
2988 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[329]), scm__rc.d1562[2]);
2989 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[330]), scm__rc.d1562[149]);
2990 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[331]), scm__rc.d1562[50]);
2991 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[332]), scm__rc.d1562[3]);
2992 scm__rc.d1562[150] = Scm_MakeExtendedPair(scm__rc.d1562[149], SCM_OBJ(&scm__rc.d1563[10]), SCM_OBJ(&scm__rc.d1563[334]));
2993 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("%seal-module!")), SCM_OBJ(&libmod_25seal_moduleX__STUB), 0);
2994 libmod_25seal_moduleX__STUB.common.info = scm__rc.d1562[150];
2995 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
2996 Scm_InitBuiltinClass(&Scm_ModuleClass, "<module>", Scm_ModuleClass__SLOTS, TRUE, SCM_MODULE(SCM_OBJ(Scm_GaucheModule())));
2997 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
2998 scm__rc.d1562[152] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[106])),TRUE); /* list? */
2999 scm__rc.d1562[151] = Scm_MakeIdentifier(scm__rc.d1562[152], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#list? */
3000 scm__rc.d1562[154] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[107])),TRUE); /* keyword? */
3001 scm__rc.d1562[153] = Scm_MakeIdentifier(scm__rc.d1562[154], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#keyword? */
3002 scm__rc.d1562[155] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[108])),TRUE); /* %expand-user-import */
3003 scm__rc.d1562[156] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[109])),FALSE); /* G1578 */
3004 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[335]), scm__rc.d1562[156]);
3005 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[336]), scm__rc.d1562[155]);
3006 scm__rc.d1562[157] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[110])),TRUE); /* import-spec */
3007 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[337]), scm__rc.d1562[157]);
3008 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[340]), scm__rc.d1562[2]);
3009 scm__rc.d1562[158] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[336]), SCM_OBJ(&scm__rc.d1563[337]), SCM_OBJ(&scm__rc.d1563[341]));
3010 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[342]), scm__rc.d1562[158]);
3011 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[353]))[7] = SCM_WORD(scm__rc.d1562[151]);
3012 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[353]))[15] = SCM_WORD(scm__rc.d1562[153]);
3013 scm__rc.d1562[160] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[111])),TRUE); /* any */
3014 scm__rc.d1562[159] = Scm_MakeIdentifier(scm__rc.d1562[160], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#any */
3015 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[344]), scm__rc.d1562[4]);
3016 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[345]), scm__rc.d1562[49]);
3017 scm__rc.d1562[162] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[113])),TRUE); /* provided? */
3018 scm__rc.d1562[161] = Scm_MakeIdentifier(scm__rc.d1562[162], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#provided? */
3019 scm__rc.d1562[164] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[114])),TRUE); /* load */
3020 scm__rc.d1562[163] = Scm_MakeIdentifier(scm__rc.d1562[164], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#load */
3021 scm__rc.d1562[166] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[115])),TRUE); /* provide */
3022 scm__rc.d1562[165] = Scm_MakeIdentifier(scm__rc.d1562[166], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#provide */
3023 scm__rc.d1562[167] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[116])),TRUE); /* r7rs.user */
3024 scm__rc.d1562[168] = Scm_MakeIdentifier(scm__rc.d1562[19], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#find-module */
3025 scm__rc.d1562[170] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[117])),TRUE); /* eval */
3026 scm__rc.d1562[169] = Scm_MakeIdentifier(scm__rc.d1562[170], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#eval */
3027 scm__rc.d1562[171] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[118])),TRUE); /* select-module */
3028 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[346]), scm__rc.d1562[167]);
3029 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[347]), scm__rc.d1562[171]);
3030 scm__rc.d1562[172] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[119])),TRUE); /* args */
3031 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[348]), scm__rc.d1562[172]);
3032 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[351]), scm__rc.d1562[2]);
3033 scm__rc.d1562[173] = Scm_MakeExtendedPair(scm__rc.d1562[155], SCM_OBJ(&scm__rc.d1563[348]), SCM_OBJ(&scm__rc.d1563[352]));
3034 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[353]), scm__rc.d1562[173]);
3035 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[12]))->name = scm__rc.d1562[155];/* %expand-user-import */
3036 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[5] = SCM_WORD(scm__rc.d1562[159]);
3037 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[18] = SCM_WORD(scm__rc.d1562[161]);
3038 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[28] = SCM_WORD(scm__rc.d1562[163]);
3039 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[34] = SCM_WORD(scm__rc.d1562[165]);
3040 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[38] = SCM_WORD(scm__rc.d1562[34]);
3041 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[44] = SCM_WORD(scm__rc.d1562[167]);
3042 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[46] = SCM_WORD(scm__rc.d1562[168]);
3043 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[370]))[48] = SCM_WORD(scm__rc.d1562[169]);
3044 scm__rc.d1562[174] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#%expand-user-import */
3045 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[13]))->name = scm__rc.d1562[60];/* %toplevel */
3046 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[421]))[5] = SCM_WORD(scm__rc.d1562[174]);
3047 scm__rc.d1562[176] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[120])),TRUE); /* user */
3048 scm__rc.d1562[175] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[176]), SCM_FIND_MODULE_CREATE)); /* module user */
3049 Scm_SelectModule(SCM_MODULE(scm__rc.d1562[175]));
3050 scm__rc.d1562[177] = Scm_MakeIdentifier(scm__rc.d1562[155], SCM_MODULE(Scm_GaucheInternalModule()), SCM_NIL); /* gauche.internal#%expand-user-import */
3051 scm__rc.d1562[178] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[121])),FALSE); /* G1582 */
3052 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[354]), scm__rc.d1562[178]);
3053 scm__rc.d1562[179] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[122])),TRUE); /* import-specs */
3054 scm__rc.d1562[180] = Scm_MakeExtendedPair(SCM_OBJ(&scm__rc.d1563[355]), scm__rc.d1562[179], SCM_OBJ(&scm__rc.d1563[87]));
3055 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[356]), scm__rc.d1562[180]);
3056 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[428]))[2] = SCM_WORD(scm__rc.d1562[177]);
3057 scm__rc.d1562[181] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[123])),FALSE); /* G1580 */
3058 scm__rc.d1562[182] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[124])),FALSE); /* G1581 */
3059 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[358]), scm__rc.d1562[182]);
3060 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[359]), scm__rc.d1562[181]);
3061 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[360]), scm__rc.d1562[40]);
3062 scm__rc.d1562[183] = Scm_MakeExtendedPair(SCM_FALSE, SCM_OBJ(&scm__rc.d1563[359]), SCM_OBJ(&scm__rc.d1563[361]));
3063 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[362]), scm__rc.d1562[183]);
3064 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[363]), scm__rc.d1562[155]);
3065 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[364]), scm__rc.d1562[50]);
3066 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[365]), scm__rc.d1562[49]);
3067 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[366]), scm__rc.d1562[179]);
3068 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[369]), scm__rc.d1562[179]);
3069 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[370]), scm__rc.d1562[46]);
3070 scm__rc.d1562[185] = SCM_OBJ(Scm_FindModule(SCM_SYMBOL(scm__rc.d1562[176]), SCM_FIND_MODULE_CREATE|SCM_FIND_MODULE_PLACEHOLDING)); /* module user */
3071 scm__rc.d1562[184] = Scm_MakeIdentifier(scm__rc.d1562[34], SCM_MODULE(scm__rc.d1562[185]), SCM_NIL); /* user#import */
3072 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[16]))->name = scm__rc.d1562[60];/* %toplevel */
3073 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[436]))[5] = SCM_WORD(scm__rc.d1562[34]);
3074 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[436]))[12] = SCM_WORD(scm__rc.d1562[57]);
3075 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[436]))[14] = SCM_WORD(scm__rc.d1562[184]);
3076 Scm_SelectModule(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())));
3077 scm__rc.d1562[186] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[125])),TRUE); /* find-binding */
3078 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[371]), scm__rc.d1562[20]);
3079 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[372]), scm__rc.d1562[7]);
3080 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[375]), scm__rc.d1562[2]);
3081 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[376]), scm__rc.d1562[186]);
3082 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[377]), scm__rc.d1562[50]);
3083 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[378]), scm__rc.d1562[3]);
3084 scm__rc.d1562[187] = Scm_MakeExtendedPair(scm__rc.d1562[186], SCM_OBJ(&scm__rc.d1563[372]), SCM_OBJ(&scm__rc.d1563[380]));
3085 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("find-binding")), SCM_OBJ(&libmodfind_binding__STUB), 0);
3086 libmodfind_binding__STUB.common.info = scm__rc.d1562[187];
3087 scm__rc.d1562[188] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[126])),TRUE); /* find-const-binding */
3088 scm__rc.d1562[189] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[127])),TRUE); /* id */
3089 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[381]), scm__rc.d1562[189]);
3090 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[384]), scm__rc.d1562[2]);
3091 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[385]), scm__rc.d1562[188]);
3092 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[386]), scm__rc.d1562[50]);
3093 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[387]), scm__rc.d1562[3]);
3094 scm__rc.d1562[190] = Scm_MakeExtendedPair(scm__rc.d1562[188], SCM_OBJ(&scm__rc.d1563[381]), SCM_OBJ(&scm__rc.d1563[389]));
3095 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("find-const-binding")), SCM_OBJ(&libmodfind_const_binding__STUB), 0);
3096 libmodfind_const_binding__STUB.common.info = scm__rc.d1562[190];
3097 scm__rc.d1562[191] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[128])),TRUE); /* gloc-bound? */
3098 scm__rc.d1562[192] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[129])),TRUE); /* gloc */
3099 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[390]), scm__rc.d1562[192]);
3100 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[393]), scm__rc.d1562[2]);
3101 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[394]), scm__rc.d1562[191]);
3102 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[395]), scm__rc.d1562[50]);
3103 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[396]), scm__rc.d1562[3]);
3104 scm__rc.d1562[193] = Scm_MakeExtendedPair(scm__rc.d1562[191], SCM_OBJ(&scm__rc.d1563[390]), SCM_OBJ(&scm__rc.d1563[398]));
3105 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("gloc-bound?")), SCM_OBJ(&libmodgloc_boundP__STUB), 0);
3106 libmodgloc_boundP__STUB.common.info = scm__rc.d1562[193];
3107 scm__rc.d1562[194] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[130])),TRUE); /* gloc-ref */
3108 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[399]), scm__rc.d1562[102]);
3109 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[400]), scm__rc.d1562[101]);
3110 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[401]), scm__rc.d1562[192]);
3111 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[404]), scm__rc.d1562[2]);
3112 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[405]), scm__rc.d1562[194]);
3113 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[406]), scm__rc.d1562[50]);
3114 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[407]), scm__rc.d1562[3]);
3115 scm__rc.d1562[195] = Scm_MakeExtendedPair(scm__rc.d1562[194], SCM_OBJ(&scm__rc.d1563[401]), SCM_OBJ(&scm__rc.d1563[409]));
3116 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("gloc-ref")), SCM_OBJ(&libmodgloc_ref__STUB), 0);
3117 libmodgloc_ref__STUB.common.info = scm__rc.d1562[195];
3118 scm__rc.d1562[196] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[131])),TRUE); /* gloc-set! */
3119 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[410]), scm__rc.d1562[192]);
3120 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[413]), scm__rc.d1562[2]);
3121 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[414]), scm__rc.d1562[196]);
3122 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[415]), scm__rc.d1562[50]);
3123 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[416]), scm__rc.d1562[3]);
3124 scm__rc.d1562[197] = Scm_MakeExtendedPair(scm__rc.d1562[196], SCM_OBJ(&scm__rc.d1563[410]), SCM_OBJ(&scm__rc.d1563[418]));
3125 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("gloc-set!")), SCM_OBJ(&libmodgloc_setX__STUB), 0);
3126 libmodgloc_setX__STUB.common.info = scm__rc.d1562[197];
3127 scm__rc.d1562[198] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[132])),TRUE); /* gloc-const? */
3128 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[421]), scm__rc.d1562[2]);
3129 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[422]), scm__rc.d1562[198]);
3130 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[423]), scm__rc.d1562[50]);
3131 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[424]), scm__rc.d1562[3]);
3132 scm__rc.d1562[199] = Scm_MakeExtendedPair(scm__rc.d1562[198], SCM_OBJ(&scm__rc.d1563[390]), SCM_OBJ(&scm__rc.d1563[426]));
3133 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("gloc-const?")), SCM_OBJ(&libmodgloc_constP__STUB), 0);
3134 libmodgloc_constP__STUB.common.info = scm__rc.d1562[199];
3135 scm__rc.d1562[200] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[133])),TRUE); /* gloc-inlinable? */
3136 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[429]), scm__rc.d1562[2]);
3137 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[430]), scm__rc.d1562[200]);
3138 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[431]), scm__rc.d1562[50]);
3139 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[432]), scm__rc.d1562[3]);
3140 scm__rc.d1562[201] = Scm_MakeExtendedPair(scm__rc.d1562[200], SCM_OBJ(&scm__rc.d1563[390]), SCM_OBJ(&scm__rc.d1563[434]));
3141 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("gloc-inlinable?")), SCM_OBJ(&libmodgloc_inlinableP__STUB), 0);
3142 libmodgloc_inlinableP__STUB.common.info = scm__rc.d1562[201];
3143 scm__rc.d1562[202] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[134])),TRUE); /* id->bound-gloc */
3144 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[437]), scm__rc.d1562[2]);
3145 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[438]), scm__rc.d1562[202]);
3146 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[439]), scm__rc.d1562[50]);
3147 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[440]), scm__rc.d1562[3]);
3148 scm__rc.d1562[203] = Scm_MakeExtendedPair(scm__rc.d1562[202], SCM_OBJ(&scm__rc.d1563[381]), SCM_OBJ(&scm__rc.d1563[442]));
3149 Scm_MakeBinding(SCM_MODULE(SCM_OBJ(Scm_GaucheInternalModule())), SCM_SYMBOL(SCM_INTERN("id->bound-gloc")), SCM_OBJ(&libmodid_TObound_gloc__STUB), 0);
3150 libmodid_TObound_gloc__STUB.common.info = scm__rc.d1562[203];
3151 scm__rc.d1562[204] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[135])),TRUE); /* global-identifier=? */
3152 scm__rc.d1562[206] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[136])),TRUE); /* wrapped-identifier? */
3153 scm__rc.d1562[205] = Scm_MakeIdentifier(scm__rc.d1562[206], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#wrapped-identifier? */
3154 scm__rc.d1562[207] = Scm_MakeIdentifier(scm__rc.d1562[202], SCM_MODULE(scm__rc.d1562[123]), SCM_NIL); /* gauche.internal#id->bound-gloc */
3155 scm__rc.d1562[208] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[137])),TRUE); /* id1 */
3156 scm__rc.d1562[209] = Scm_MakeSymbol(SCM_STRING(SCM_OBJ(&scm__sc.d1561[138])),TRUE); /* id2 */
3157 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[443]), scm__rc.d1562[209]);
3158 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[444]), scm__rc.d1562[208]);
3159 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[447]), scm__rc.d1562[2]);
3160 scm__rc.d1562[210] = Scm_MakeExtendedPair(scm__rc.d1562[204], SCM_OBJ(&scm__rc.d1563[444]), SCM_OBJ(&scm__rc.d1563[448]));
3161 SCM_SET_CAR(SCM_OBJ(&scm__rc.d1563[449]), scm__rc.d1562[210]);
3162 SCM_COMPILED_CODE(SCM_OBJ(&scm__rc.d1568[17]))->name = scm__rc.d1562[204];/* global-identifier=? */
3163 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]))[4] = SCM_WORD(scm__rc.d1562[205]);
3164 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]))[10] = SCM_WORD(scm__rc.d1562[205]);
3165 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]))[16] = SCM_WORD(scm__rc.d1562[207]);
3166 ((ScmWord*)SCM_OBJ(&scm__rc.d1567[453]))[24] = SCM_WORD(scm__rc.d1562[207]);
3167 ScmObj G1583 = Scm_MakeClosure(SCM_OBJ(&scm__rc.d1568[17]), NULL);
3168
3169 Scm_MakeBinding(SCM_MODULE(Scm_CurrentModule()) /* */, SCM_SYMBOL(scm__rc.d1562[204]) /* global-identifier=? */, G1583,0);
3170
3171 Scm_VMExecuteToplevels(toplevels);
3172 }
3173