Commit | Line | Data |
---|---|---|
9c35c579 | 1 | (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) |
41af2381 | 2 | (if #f #f) |
65dd9e38 | 3 | |
0f2b9f62 | 4 | (letrec* |
43353663 AW |
5 | ((#{and-map*\ 38}# |
6 | (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) | |
417ee098 | 7 | (begin |
43353663 AW |
8 | (let ((#{t\ 210}# (null? #{first\ 203}#))) |
9 | (if #{t\ 210}# | |
10 | #{t\ 210}# | |
11 | (if (null? #{rest\ 204}#) | |
417ee098 | 12 | (letrec* |
43353663 AW |
13 | ((#{andmap\ 214}# |
14 | (lambda (#{first\ 215}#) | |
417ee098 | 15 | (begin |
43353663 AW |
16 | (let ((#{x\ 218}# (car #{first\ 215}#)) |
17 | (#{first\ 219}# (cdr #{first\ 215}#))) | |
18 | (if (null? #{first\ 219}#) | |
19 | (#{f\ 202}# #{x\ 218}#) | |
20 | (if (#{f\ 202}# #{x\ 218}#) | |
21 | (#{andmap\ 214}# #{first\ 219}#) | |
417ee098 | 22 | #f))))))) |
43353663 | 23 | (begin (#{andmap\ 214}# #{first\ 203}#))) |
417ee098 | 24 | (letrec* |
43353663 AW |
25 | ((#{andmap\ 225}# |
26 | (lambda (#{first\ 226}# #{rest\ 227}#) | |
417ee098 | 27 | (begin |
43353663 AW |
28 | (let ((#{x\ 232}# (car #{first\ 226}#)) |
29 | (#{xr\ 233}# (map car #{rest\ 227}#)) | |
30 | (#{first\ 234}# (cdr #{first\ 226}#)) | |
31 | (#{rest\ 235}# (map cdr #{rest\ 227}#))) | |
32 | (if (null? #{first\ 234}#) | |
33 | (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) | |
34 | (if (@apply #{f\ 202}# #{x\ 232}# #{xr\ 233}#) | |
35 | (#{andmap\ 225}# #{first\ 234}# #{rest\ 235}#) | |
417ee098 AW |
36 | #f))))))) |
37 | (begin | |
43353663 | 38 | (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))))) |
417ee098 | 39 | (begin |
f929b9e5 | 40 | (let ((#{fx+\ 283}# (if #f #f)) |
43353663 AW |
41 | (#{fx-\ 285}# (if #f #f)) |
42 | (#{fx=\ 287}# (if #f #f)) | |
f929b9e5 | 43 | (#{fx<\ 289}# (if #f #f))) |
417ee098 | 44 | (letrec* |
43353663 AW |
45 | ((#{make-void\ 240}# |
46 | (lambda (#{src\ 750}#) | |
5f8c55ce AW |
47 | (make-struct/no-tail |
48 | (vector-ref %expanded-vtables 0) | |
43353663 AW |
49 | #{src\ 750}#))) |
50 | (#{make-const\ 242}# | |
51 | (lambda (#{src\ 752}# #{exp\ 753}#) | |
5f8c55ce AW |
52 | (make-struct/no-tail |
53 | (vector-ref %expanded-vtables 1) | |
43353663 AW |
54 | #{src\ 752}# |
55 | #{exp\ 753}#))) | |
56 | (#{make-lexical-ref\ 246}# | |
57 | (lambda (#{src\ 760}# #{name\ 761}# #{gensym\ 762}#) | |
5f8c55ce AW |
58 | (make-struct/no-tail |
59 | (vector-ref %expanded-vtables 3) | |
43353663 AW |
60 | #{src\ 760}# |
61 | #{name\ 761}# | |
62 | #{gensym\ 762}#))) | |
63 | (#{make-lexical-set\ 248}# | |
64 | (lambda (#{src\ 766}# | |
65 | #{name\ 767}# | |
66 | #{gensym\ 768}# | |
67 | #{exp\ 769}#) | |
5f8c55ce AW |
68 | (make-struct/no-tail |
69 | (vector-ref %expanded-vtables 4) | |
43353663 AW |
70 | #{src\ 766}# |
71 | #{name\ 767}# | |
72 | #{gensym\ 768}# | |
73 | #{exp\ 769}#))) | |
74 | (#{make-module-ref\ 250}# | |
75 | (lambda (#{src\ 774}# | |
76 | #{mod\ 775}# | |
77 | #{name\ 776}# | |
78 | #{public?\ 777}#) | |
5f8c55ce AW |
79 | (make-struct/no-tail |
80 | (vector-ref %expanded-vtables 5) | |
43353663 AW |
81 | #{src\ 774}# |
82 | #{mod\ 775}# | |
83 | #{name\ 776}# | |
84 | #{public?\ 777}#))) | |
85 | (#{make-module-set\ 252}# | |
86 | (lambda (#{src\ 782}# | |
87 | #{mod\ 783}# | |
88 | #{name\ 784}# | |
89 | #{public?\ 785}# | |
90 | #{exp\ 786}#) | |
5f8c55ce AW |
91 | (make-struct/no-tail |
92 | (vector-ref %expanded-vtables 6) | |
43353663 AW |
93 | #{src\ 782}# |
94 | #{mod\ 783}# | |
95 | #{name\ 784}# | |
96 | #{public?\ 785}# | |
97 | #{exp\ 786}#))) | |
98 | (#{make-toplevel-ref\ 254}# | |
99 | (lambda (#{src\ 792}# #{name\ 793}#) | |
5f8c55ce AW |
100 | (make-struct/no-tail |
101 | (vector-ref %expanded-vtables 7) | |
43353663 AW |
102 | #{src\ 792}# |
103 | #{name\ 793}#))) | |
104 | (#{make-toplevel-set\ 256}# | |
105 | (lambda (#{src\ 796}# #{name\ 797}# #{exp\ 798}#) | |
5f8c55ce AW |
106 | (make-struct/no-tail |
107 | (vector-ref %expanded-vtables 8) | |
43353663 AW |
108 | #{src\ 796}# |
109 | #{name\ 797}# | |
110 | #{exp\ 798}#))) | |
111 | (#{make-toplevel-define\ 258}# | |
112 | (lambda (#{src\ 802}# #{name\ 803}# #{exp\ 804}#) | |
5f8c55ce AW |
113 | (make-struct/no-tail |
114 | (vector-ref %expanded-vtables 9) | |
43353663 AW |
115 | #{src\ 802}# |
116 | #{name\ 803}# | |
117 | #{exp\ 804}#))) | |
118 | (#{make-conditional\ 260}# | |
119 | (lambda (#{src\ 808}# | |
120 | #{test\ 809}# | |
121 | #{consequent\ 810}# | |
122 | #{alternate\ 811}#) | |
5f8c55ce AW |
123 | (make-struct/no-tail |
124 | (vector-ref %expanded-vtables 10) | |
43353663 AW |
125 | #{src\ 808}# |
126 | #{test\ 809}# | |
127 | #{consequent\ 810}# | |
128 | #{alternate\ 811}#))) | |
129 | (#{make-application\ 262}# | |
130 | (lambda (#{src\ 816}# #{proc\ 817}# #{args\ 818}#) | |
5f8c55ce AW |
131 | (make-struct/no-tail |
132 | (vector-ref %expanded-vtables 11) | |
43353663 AW |
133 | #{src\ 816}# |
134 | #{proc\ 817}# | |
135 | #{args\ 818}#))) | |
136 | (#{make-sequence\ 264}# | |
137 | (lambda (#{src\ 822}# #{exps\ 823}#) | |
5f8c55ce AW |
138 | (make-struct/no-tail |
139 | (vector-ref %expanded-vtables 12) | |
43353663 AW |
140 | #{src\ 822}# |
141 | #{exps\ 823}#))) | |
142 | (#{make-lambda\ 266}# | |
143 | (lambda (#{src\ 826}# #{meta\ 827}# #{body\ 828}#) | |
5f8c55ce AW |
144 | (make-struct/no-tail |
145 | (vector-ref %expanded-vtables 13) | |
43353663 AW |
146 | #{src\ 826}# |
147 | #{meta\ 827}# | |
148 | #{body\ 828}#))) | |
149 | (#{make-lambda-case\ 268}# | |
150 | (lambda (#{src\ 832}# | |
151 | #{req\ 833}# | |
152 | #{opt\ 834}# | |
153 | #{rest\ 835}# | |
154 | #{kw\ 836}# | |
155 | #{inits\ 837}# | |
156 | #{gensyms\ 838}# | |
157 | #{body\ 839}# | |
158 | #{alternate\ 840}#) | |
5f8c55ce AW |
159 | (make-struct/no-tail |
160 | (vector-ref %expanded-vtables 14) | |
43353663 AW |
161 | #{src\ 832}# |
162 | #{req\ 833}# | |
163 | #{opt\ 834}# | |
164 | #{rest\ 835}# | |
165 | #{kw\ 836}# | |
166 | #{inits\ 837}# | |
167 | #{gensyms\ 838}# | |
168 | #{body\ 839}# | |
169 | #{alternate\ 840}#))) | |
170 | (#{make-let\ 270}# | |
171 | (lambda (#{src\ 850}# | |
172 | #{names\ 851}# | |
173 | #{gensyms\ 852}# | |
174 | #{vals\ 853}# | |
175 | #{body\ 854}#) | |
5f8c55ce AW |
176 | (make-struct/no-tail |
177 | (vector-ref %expanded-vtables 15) | |
43353663 AW |
178 | #{src\ 850}# |
179 | #{names\ 851}# | |
180 | #{gensyms\ 852}# | |
181 | #{vals\ 853}# | |
182 | #{body\ 854}#))) | |
183 | (#{make-letrec\ 272}# | |
184 | (lambda (#{src\ 860}# | |
185 | #{in-order?\ 861}# | |
186 | #{names\ 862}# | |
187 | #{gensyms\ 863}# | |
188 | #{vals\ 864}# | |
189 | #{body\ 865}#) | |
5f8c55ce AW |
190 | (make-struct/no-tail |
191 | (vector-ref %expanded-vtables 16) | |
43353663 AW |
192 | #{src\ 860}# |
193 | #{in-order?\ 861}# | |
194 | #{names\ 862}# | |
195 | #{gensyms\ 863}# | |
196 | #{vals\ 864}# | |
197 | #{body\ 865}#))) | |
198 | (#{make-dynlet\ 274}# | |
199 | (lambda (#{src\ 872}# | |
200 | #{fluids\ 873}# | |
201 | #{vals\ 874}# | |
202 | #{body\ 875}#) | |
5f8c55ce AW |
203 | (make-struct/no-tail |
204 | (vector-ref %expanded-vtables 17) | |
43353663 AW |
205 | #{src\ 872}# |
206 | #{fluids\ 873}# | |
207 | #{vals\ 874}# | |
208 | #{body\ 875}#))) | |
209 | (#{lambda?\ 277}# | |
210 | (lambda (#{x\ 880}#) | |
211 | (if (struct? #{x\ 880}#) | |
212 | (eq? (struct-vtable #{x\ 880}#) | |
5f8c55ce AW |
213 | (vector-ref %expanded-vtables 13)) |
214 | #f))) | |
43353663 AW |
215 | (#{lambda-meta\ 279}# |
216 | (lambda (#{x\ 884}#) (struct-ref #{x\ 884}# 1))) | |
217 | (#{set-lambda-meta!\ 281}# | |
218 | (lambda (#{x\ 886}# #{v\ 887}#) | |
219 | (struct-set! #{x\ 886}# 1 #{v\ 887}#))) | |
220 | (#{top-level-eval-hook\ 291}# | |
221 | (lambda (#{x\ 890}# #{mod\ 891}#) | |
222 | (primitive-eval #{x\ 890}#))) | |
223 | (#{local-eval-hook\ 293}# | |
224 | (lambda (#{x\ 894}# #{mod\ 895}#) | |
225 | (primitive-eval #{x\ 894}#))) | |
226 | (#{put-global-definition-hook\ 296}# | |
227 | (lambda (#{symbol\ 898}# #{type\ 899}# #{val\ 900}#) | |
5f8c55ce AW |
228 | (module-define! |
229 | (current-module) | |
43353663 | 230 | #{symbol\ 898}# |
5f8c55ce | 231 | (make-syntax-transformer |
43353663 AW |
232 | #{symbol\ 898}# |
233 | #{type\ 899}# | |
234 | #{val\ 900}#)))) | |
235 | (#{get-global-definition-hook\ 298}# | |
236 | (lambda (#{symbol\ 904}# #{module\ 905}#) | |
5f8c55ce | 237 | (begin |
43353663 | 238 | (if (if (not #{module\ 905}#) (current-module) #f) |
5f8c55ce | 239 | (warn "module system is booted, we should have a module" |
43353663 | 240 | #{symbol\ 904}#)) |
417ee098 | 241 | (begin |
43353663 AW |
242 | (let ((#{v\ 911}# (module-variable |
243 | (if #{module\ 905}# | |
244 | (resolve-module (cdr #{module\ 905}#)) | |
77b79cce | 245 | (current-module)) |
43353663 AW |
246 | #{symbol\ 904}#))) |
247 | (if #{v\ 911}# | |
248 | (if (variable-bound? #{v\ 911}#) | |
5f8c55ce | 249 | (begin |
43353663 AW |
250 | (let ((#{val\ 916}# (variable-ref #{v\ 911}#))) |
251 | (if (macro? #{val\ 916}#) | |
252 | (if (macro-type #{val\ 916}#) | |
253 | (cons (macro-type #{val\ 916}#) | |
254 | (macro-binding #{val\ 916}#)) | |
5f8c55ce AW |
255 | #f) |
256 | #f))) | |
257 | #f) | |
258 | #f)))))) | |
43353663 AW |
259 | (#{decorate-source\ 300}# |
260 | (lambda (#{e\ 920}# #{s\ 921}#) | |
37620f3f | 261 | (begin |
43353663 AW |
262 | (if (if (pair? #{e\ 920}#) #{s\ 921}# #f) |
263 | (set-source-properties! #{e\ 920}# #{s\ 921}#)) | |
264 | #{e\ 920}#))) | |
265 | (#{maybe-name-value!\ 302}# | |
266 | (lambda (#{name\ 926}# #{val\ 927}#) | |
267 | (if (#{lambda?\ 277}# #{val\ 927}#) | |
37620f3f | 268 | (begin |
43353663 AW |
269 | (let ((#{meta\ 931}# |
270 | (#{lambda-meta\ 279}# #{val\ 927}#))) | |
271 | (if (not (assq 'name #{meta\ 931}#)) | |
272 | (#{set-lambda-meta!\ 281}# | |
273 | #{val\ 927}# | |
274 | (cons (cons 'name #{name\ 926}#) #{meta\ 931}#)))))))) | |
275 | (#{build-void\ 304}# | |
276 | (lambda (#{source\ 932}#) | |
277 | (#{make-void\ 240}# #{source\ 932}#))) | |
278 | (#{build-application\ 306}# | |
279 | (lambda (#{source\ 934}# | |
280 | #{fun-exp\ 935}# | |
281 | #{arg-exps\ 936}#) | |
282 | (#{make-application\ 262}# | |
283 | #{source\ 934}# | |
284 | #{fun-exp\ 935}# | |
285 | #{arg-exps\ 936}#))) | |
286 | (#{build-conditional\ 308}# | |
287 | (lambda (#{source\ 940}# | |
288 | #{test-exp\ 941}# | |
289 | #{then-exp\ 942}# | |
290 | #{else-exp\ 943}#) | |
291 | (#{make-conditional\ 260}# | |
292 | #{source\ 940}# | |
293 | #{test-exp\ 941}# | |
294 | #{then-exp\ 942}# | |
295 | #{else-exp\ 943}#))) | |
296 | (#{build-dynlet\ 310}# | |
297 | (lambda (#{source\ 948}# | |
298 | #{fluids\ 949}# | |
299 | #{vals\ 950}# | |
300 | #{body\ 951}#) | |
301 | (#{make-dynlet\ 274}# | |
302 | #{source\ 948}# | |
303 | #{fluids\ 949}# | |
304 | #{vals\ 950}# | |
305 | #{body\ 951}#))) | |
306 | (#{build-lexical-reference\ 312}# | |
307 | (lambda (#{type\ 956}# | |
308 | #{source\ 957}# | |
309 | #{name\ 958}# | |
310 | #{var\ 959}#) | |
311 | (#{make-lexical-ref\ 246}# | |
312 | #{source\ 957}# | |
313 | #{name\ 958}# | |
314 | #{var\ 959}#))) | |
315 | (#{build-lexical-assignment\ 314}# | |
316 | (lambda (#{source\ 964}# | |
317 | #{name\ 965}# | |
318 | #{var\ 966}# | |
319 | #{exp\ 967}#) | |
417ee098 | 320 | (begin |
43353663 AW |
321 | (#{maybe-name-value!\ 302}# |
322 | #{name\ 965}# | |
323 | #{exp\ 967}#) | |
324 | (#{make-lexical-set\ 248}# | |
325 | #{source\ 964}# | |
326 | #{name\ 965}# | |
327 | #{var\ 966}# | |
328 | #{exp\ 967}#)))) | |
329 | (#{analyze-variable\ 316}# | |
330 | (lambda (#{mod\ 972}# | |
331 | #{var\ 973}# | |
332 | #{modref-cont\ 974}# | |
333 | #{bare-cont\ 975}#) | |
334 | (if (not #{mod\ 972}#) | |
335 | (#{bare-cont\ 975}# #{var\ 973}#) | |
417ee098 | 336 | (begin |
43353663 AW |
337 | (let ((#{kind\ 982}# (car #{mod\ 972}#)) |
338 | (#{mod\ 983}# (cdr #{mod\ 972}#))) | |
339 | (if (eqv? #{kind\ 982}# 'public) | |
340 | (#{modref-cont\ 974}# | |
341 | #{mod\ 983}# | |
342 | #{var\ 973}# | |
5f8c55ce | 343 | #t) |
43353663 | 344 | (if (eqv? #{kind\ 982}# 'private) |
5f8c55ce | 345 | (if (not (equal? |
43353663 | 346 | #{mod\ 983}# |
5f8c55ce | 347 | (module-name (current-module)))) |
43353663 AW |
348 | (#{modref-cont\ 974}# |
349 | #{mod\ 983}# | |
350 | #{var\ 973}# | |
5f8c55ce | 351 | #f) |
43353663 AW |
352 | (#{bare-cont\ 975}# #{var\ 973}#)) |
353 | (if (eqv? #{kind\ 982}# 'bare) | |
354 | (#{bare-cont\ 975}# #{var\ 973}#) | |
355 | (if (eqv? #{kind\ 982}# 'hygiene) | |
5f8c55ce | 356 | (if (if (not (equal? |
43353663 | 357 | #{mod\ 983}# |
5f8c55ce AW |
358 | (module-name (current-module)))) |
359 | (module-variable | |
43353663 AW |
360 | (resolve-module #{mod\ 983}#) |
361 | #{var\ 973}#) | |
5f8c55ce | 362 | #f) |
43353663 AW |
363 | (#{modref-cont\ 974}# |
364 | #{mod\ 983}# | |
365 | #{var\ 973}# | |
5f8c55ce | 366 | #f) |
43353663 | 367 | (#{bare-cont\ 975}# #{var\ 973}#)) |
0f2b9f62 | 368 | (syntax-violation |
417ee098 | 369 | #f |
5f8c55ce | 370 | "bad module kind" |
43353663 AW |
371 | #{var\ 973}# |
372 | #{mod\ 983}#)))))))))) | |
373 | (#{build-global-reference\ 318}# | |
374 | (lambda (#{source\ 991}# #{var\ 992}# #{mod\ 993}#) | |
375 | (#{analyze-variable\ 316}# | |
376 | #{mod\ 993}# | |
377 | #{var\ 992}# | |
378 | (lambda (#{mod\ 997}# #{var\ 998}# #{public?\ 999}#) | |
379 | (#{make-module-ref\ 250}# | |
380 | #{source\ 991}# | |
381 | #{mod\ 997}# | |
382 | #{var\ 998}# | |
383 | #{public?\ 999}#)) | |
384 | (lambda (#{var\ 1003}#) | |
385 | (#{make-toplevel-ref\ 254}# | |
386 | #{source\ 991}# | |
387 | #{var\ 1003}#))))) | |
388 | (#{build-global-assignment\ 320}# | |
389 | (lambda (#{source\ 1005}# | |
390 | #{var\ 1006}# | |
391 | #{exp\ 1007}# | |
392 | #{mod\ 1008}#) | |
37620f3f | 393 | (begin |
43353663 AW |
394 | (#{maybe-name-value!\ 302}# |
395 | #{var\ 1006}# | |
396 | #{exp\ 1007}#) | |
397 | (#{analyze-variable\ 316}# | |
398 | #{mod\ 1008}# | |
399 | #{var\ 1006}# | |
400 | (lambda (#{mod\ 1013}# #{var\ 1014}# #{public?\ 1015}#) | |
401 | (#{make-module-set\ 252}# | |
402 | #{source\ 1005}# | |
403 | #{mod\ 1013}# | |
404 | #{var\ 1014}# | |
405 | #{public?\ 1015}# | |
406 | #{exp\ 1007}#)) | |
407 | (lambda (#{var\ 1019}#) | |
408 | (#{make-toplevel-set\ 256}# | |
409 | #{source\ 1005}# | |
410 | #{var\ 1019}# | |
411 | #{exp\ 1007}#)))))) | |
412 | (#{build-global-definition\ 322}# | |
413 | (lambda (#{source\ 1021}# #{var\ 1022}# #{exp\ 1023}#) | |
5f8c55ce | 414 | (begin |
43353663 AW |
415 | (#{maybe-name-value!\ 302}# |
416 | #{var\ 1022}# | |
417 | #{exp\ 1023}#) | |
418 | (#{make-toplevel-define\ 258}# | |
419 | #{source\ 1021}# | |
420 | #{var\ 1022}# | |
421 | #{exp\ 1023}#)))) | |
422 | (#{build-simple-lambda\ 324}# | |
423 | (lambda (#{src\ 1027}# | |
424 | #{req\ 1028}# | |
425 | #{rest\ 1029}# | |
426 | #{vars\ 1030}# | |
427 | #{meta\ 1031}# | |
428 | #{exp\ 1032}#) | |
429 | (#{make-lambda\ 266}# | |
430 | #{src\ 1027}# | |
431 | #{meta\ 1031}# | |
432 | (#{make-lambda-case\ 268}# | |
433 | #{src\ 1027}# | |
434 | #{req\ 1028}# | |
5f8c55ce | 435 | #f |
43353663 | 436 | #{rest\ 1029}# |
5f8c55ce AW |
437 | #f |
438 | '() | |
43353663 AW |
439 | #{vars\ 1030}# |
440 | #{exp\ 1032}# | |
5f8c55ce | 441 | #f)))) |
43353663 AW |
442 | (#{build-case-lambda\ 326}# |
443 | (lambda (#{src\ 1039}# #{meta\ 1040}# #{body\ 1041}#) | |
444 | (#{make-lambda\ 266}# | |
445 | #{src\ 1039}# | |
446 | #{meta\ 1040}# | |
447 | #{body\ 1041}#))) | |
448 | (#{build-lambda-case\ 328}# | |
449 | (lambda (#{src\ 1045}# | |
450 | #{req\ 1046}# | |
451 | #{opt\ 1047}# | |
452 | #{rest\ 1048}# | |
453 | #{kw\ 1049}# | |
454 | #{inits\ 1050}# | |
455 | #{vars\ 1051}# | |
456 | #{body\ 1052}# | |
457 | #{else-case\ 1053}#) | |
458 | (#{make-lambda-case\ 268}# | |
459 | #{src\ 1045}# | |
460 | #{req\ 1046}# | |
461 | #{opt\ 1047}# | |
462 | #{rest\ 1048}# | |
463 | #{kw\ 1049}# | |
464 | #{inits\ 1050}# | |
465 | #{vars\ 1051}# | |
466 | #{body\ 1052}# | |
467 | #{else-case\ 1053}#))) | |
468 | (#{build-primref\ 330}# | |
469 | (lambda (#{src\ 1063}# #{name\ 1064}#) | |
8f1870f2 | 470 | (if (equal? (module-name (current-module)) '(guile)) |
43353663 AW |
471 | (#{make-toplevel-ref\ 254}# |
472 | #{src\ 1063}# | |
473 | #{name\ 1064}#) | |
474 | (#{make-module-ref\ 250}# | |
475 | #{src\ 1063}# | |
5f8c55ce | 476 | '(guile) |
43353663 | 477 | #{name\ 1064}# |
5f8c55ce | 478 | #f)))) |
43353663 AW |
479 | (#{build-data\ 332}# |
480 | (lambda (#{src\ 1067}# #{exp\ 1068}#) | |
481 | (#{make-const\ 242}# #{src\ 1067}# #{exp\ 1068}#))) | |
482 | (#{build-sequence\ 334}# | |
483 | (lambda (#{src\ 1071}# #{exps\ 1072}#) | |
484 | (if (null? (cdr #{exps\ 1072}#)) | |
485 | (car #{exps\ 1072}#) | |
486 | (#{make-sequence\ 264}# | |
487 | #{src\ 1071}# | |
488 | #{exps\ 1072}#)))) | |
489 | (#{build-let\ 336}# | |
490 | (lambda (#{src\ 1075}# | |
491 | #{ids\ 1076}# | |
492 | #{vars\ 1077}# | |
493 | #{val-exps\ 1078}# | |
494 | #{body-exp\ 1079}#) | |
5f8c55ce AW |
495 | (begin |
496 | (for-each | |
43353663 AW |
497 | #{maybe-name-value!\ 302}# |
498 | #{ids\ 1076}# | |
499 | #{val-exps\ 1078}#) | |
500 | (if (null? #{vars\ 1077}#) | |
501 | #{body-exp\ 1079}# | |
502 | (#{make-let\ 270}# | |
503 | #{src\ 1075}# | |
504 | #{ids\ 1076}# | |
505 | #{vars\ 1077}# | |
506 | #{val-exps\ 1078}# | |
507 | #{body-exp\ 1079}#))))) | |
508 | (#{build-named-let\ 338}# | |
509 | (lambda (#{src\ 1085}# | |
510 | #{ids\ 1086}# | |
511 | #{vars\ 1087}# | |
512 | #{val-exps\ 1088}# | |
513 | #{body-exp\ 1089}#) | |
5f8c55ce | 514 | (begin |
43353663 AW |
515 | (let ((#{f\ 1099}# (car #{vars\ 1087}#)) |
516 | (#{f-name\ 1100}# (car #{ids\ 1086}#)) | |
517 | (#{vars\ 1101}# (cdr #{vars\ 1087}#)) | |
518 | (#{ids\ 1102}# (cdr #{ids\ 1086}#))) | |
5f8c55ce | 519 | (begin |
43353663 AW |
520 | (let ((#{proc\ 1104}# |
521 | (#{build-simple-lambda\ 324}# | |
522 | #{src\ 1085}# | |
523 | #{ids\ 1102}# | |
5f8c55ce | 524 | #f |
43353663 | 525 | #{vars\ 1101}# |
5f8c55ce | 526 | '() |
43353663 | 527 | #{body-exp\ 1089}#))) |
5f8c55ce | 528 | (begin |
43353663 AW |
529 | (#{maybe-name-value!\ 302}# |
530 | #{f-name\ 1100}# | |
531 | #{proc\ 1104}#) | |
5f8c55ce | 532 | (for-each |
43353663 AW |
533 | #{maybe-name-value!\ 302}# |
534 | #{ids\ 1102}# | |
535 | #{val-exps\ 1088}#) | |
536 | (#{make-letrec\ 272}# | |
537 | #{src\ 1085}# | |
5f8c55ce | 538 | #f |
43353663 AW |
539 | (list #{f-name\ 1100}#) |
540 | (list #{f\ 1099}#) | |
541 | (list #{proc\ 1104}#) | |
542 | (#{build-application\ 306}# | |
543 | #{src\ 1085}# | |
544 | (#{build-lexical-reference\ 312}# | |
5f8c55ce | 545 | 'fun |
43353663 AW |
546 | #{src\ 1085}# |
547 | #{f-name\ 1100}# | |
548 | #{f\ 1099}#) | |
549 | #{val-exps\ 1088}#))))))))) | |
550 | (#{build-letrec\ 340}# | |
551 | (lambda (#{src\ 1105}# | |
552 | #{in-order?\ 1106}# | |
553 | #{ids\ 1107}# | |
554 | #{vars\ 1108}# | |
555 | #{val-exps\ 1109}# | |
556 | #{body-exp\ 1110}#) | |
557 | (if (null? #{vars\ 1108}#) | |
558 | #{body-exp\ 1110}# | |
5f8c55ce AW |
559 | (begin |
560 | (for-each | |
43353663 AW |
561 | #{maybe-name-value!\ 302}# |
562 | #{ids\ 1107}# | |
563 | #{val-exps\ 1109}#) | |
564 | (#{make-letrec\ 272}# | |
565 | #{src\ 1105}# | |
566 | #{in-order?\ 1106}# | |
567 | #{ids\ 1107}# | |
568 | #{vars\ 1108}# | |
569 | #{val-exps\ 1109}# | |
570 | #{body-exp\ 1110}#))))) | |
571 | (#{make-syntax-object\ 344}# | |
572 | (lambda (#{expression\ 1117}# | |
573 | #{wrap\ 1118}# | |
574 | #{module\ 1119}#) | |
5f8c55ce AW |
575 | (vector |
576 | 'syntax-object | |
43353663 AW |
577 | #{expression\ 1117}# |
578 | #{wrap\ 1118}# | |
579 | #{module\ 1119}#))) | |
580 | (#{syntax-object?\ 346}# | |
581 | (lambda (#{x\ 1123}#) | |
582 | (if (vector? #{x\ 1123}#) | |
583 | (if (= (vector-length #{x\ 1123}#) 4) | |
584 | (eq? (vector-ref #{x\ 1123}# 0) 'syntax-object) | |
5f8c55ce AW |
585 | #f) |
586 | #f))) | |
43353663 AW |
587 | (#{syntax-object-expression\ 348}# |
588 | (lambda (#{x\ 1128}#) (vector-ref #{x\ 1128}# 1))) | |
589 | (#{syntax-object-wrap\ 350}# | |
590 | (lambda (#{x\ 1130}#) (vector-ref #{x\ 1130}# 2))) | |
591 | (#{syntax-object-module\ 352}# | |
592 | (lambda (#{x\ 1132}#) (vector-ref #{x\ 1132}# 3))) | |
593 | (#{source-annotation\ 361}# | |
594 | (lambda (#{x\ 1146}#) | |
595 | (if (#{syntax-object?\ 346}# #{x\ 1146}#) | |
596 | (#{source-annotation\ 361}# | |
597 | (#{syntax-object-expression\ 348}# #{x\ 1146}#)) | |
598 | (if (pair? #{x\ 1146}#) | |
5f8c55ce | 599 | (begin |
43353663 AW |
600 | (let ((#{props\ 1153}# (source-properties #{x\ 1146}#))) |
601 | (if (pair? #{props\ 1153}#) #{props\ 1153}# #f))) | |
5f8c55ce | 602 | #f)))) |
43353663 AW |
603 | (#{extend-env\ 368}# |
604 | (lambda (#{labels\ 1155}# #{bindings\ 1156}# #{r\ 1157}#) | |
605 | (if (null? #{labels\ 1155}#) | |
606 | #{r\ 1157}# | |
607 | (#{extend-env\ 368}# | |
608 | (cdr #{labels\ 1155}#) | |
609 | (cdr #{bindings\ 1156}#) | |
610 | (cons (cons (car #{labels\ 1155}#) | |
611 | (car #{bindings\ 1156}#)) | |
612 | #{r\ 1157}#))))) | |
613 | (#{extend-var-env\ 370}# | |
614 | (lambda (#{labels\ 1161}# #{vars\ 1162}# #{r\ 1163}#) | |
615 | (if (null? #{labels\ 1161}#) | |
616 | #{r\ 1163}# | |
617 | (#{extend-var-env\ 370}# | |
618 | (cdr #{labels\ 1161}#) | |
619 | (cdr #{vars\ 1162}#) | |
620 | (cons (cons (car #{labels\ 1161}#) | |
621 | (cons 'lexical (car #{vars\ 1162}#))) | |
622 | #{r\ 1163}#))))) | |
623 | (#{macros-only-env\ 372}# | |
624 | (lambda (#{r\ 1168}#) | |
625 | (if (null? #{r\ 1168}#) | |
5f8c55ce AW |
626 | '() |
627 | (begin | |
43353663 AW |
628 | (let ((#{a\ 1171}# (car #{r\ 1168}#))) |
629 | (if (eq? (car (cdr #{a\ 1171}#)) 'macro) | |
630 | (cons #{a\ 1171}# | |
631 | (#{macros-only-env\ 372}# (cdr #{r\ 1168}#))) | |
632 | (#{macros-only-env\ 372}# (cdr #{r\ 1168}#)))))))) | |
633 | (#{lookup\ 374}# | |
634 | (lambda (#{x\ 1172}# #{r\ 1173}# #{mod\ 1174}#) | |
5f8c55ce | 635 | (begin |
43353663 AW |
636 | (let ((#{t\ 1180}# (assq #{x\ 1172}# #{r\ 1173}#))) |
637 | (if #{t\ 1180}# | |
638 | (cdr #{t\ 1180}#) | |
639 | (if (symbol? #{x\ 1172}#) | |
417ee098 | 640 | (begin |
43353663 AW |
641 | (let ((#{t\ 1186}# |
642 | (#{get-global-definition-hook\ 298}# | |
643 | #{x\ 1172}# | |
644 | #{mod\ 1174}#))) | |
645 | (if #{t\ 1186}# #{t\ 1186}# '(global)))) | |
5f8c55ce | 646 | '(displaced-lexical))))))) |
43353663 AW |
647 | (#{global-extend\ 376}# |
648 | (lambda (#{type\ 1191}# #{sym\ 1192}# #{val\ 1193}#) | |
649 | (#{put-global-definition-hook\ 296}# | |
650 | #{sym\ 1192}# | |
651 | #{type\ 1191}# | |
652 | #{val\ 1193}#))) | |
653 | (#{nonsymbol-id?\ 378}# | |
654 | (lambda (#{x\ 1197}#) | |
655 | (if (#{syntax-object?\ 346}# #{x\ 1197}#) | |
5f8c55ce | 656 | (symbol? |
43353663 | 657 | (#{syntax-object-expression\ 348}# #{x\ 1197}#)) |
5f8c55ce | 658 | #f))) |
43353663 AW |
659 | (#{id?\ 380}# |
660 | (lambda (#{x\ 1201}#) | |
661 | (if (symbol? #{x\ 1201}#) | |
5f8c55ce | 662 | #t |
43353663 | 663 | (if (#{syntax-object?\ 346}# #{x\ 1201}#) |
5f8c55ce | 664 | (symbol? |
43353663 | 665 | (#{syntax-object-expression\ 348}# #{x\ 1201}#)) |
5f8c55ce | 666 | #f)))) |
43353663 AW |
667 | (#{id-sym-name&marks\ 383}# |
668 | (lambda (#{x\ 1208}# #{w\ 1209}#) | |
669 | (if (#{syntax-object?\ 346}# #{x\ 1208}#) | |
5f8c55ce | 670 | (values |
43353663 AW |
671 | (#{syntax-object-expression\ 348}# #{x\ 1208}#) |
672 | (#{join-marks\ 430}# | |
673 | (car #{w\ 1209}#) | |
674 | (car (#{syntax-object-wrap\ 350}# #{x\ 1208}#)))) | |
675 | (values #{x\ 1208}# (car #{w\ 1209}#))))) | |
676 | (#{gen-label\ 393}# | |
5f8c55ce | 677 | (lambda () (symbol->string (gensym "i")))) |
43353663 AW |
678 | (#{gen-labels\ 395}# |
679 | (lambda (#{ls\ 1215}#) | |
680 | (if (null? #{ls\ 1215}#) | |
5f8c55ce | 681 | '() |
43353663 AW |
682 | (cons (#{gen-label\ 393}#) |
683 | (#{gen-labels\ 395}# (cdr #{ls\ 1215}#)))))) | |
684 | (#{make-ribcage\ 398}# | |
685 | (lambda (#{symnames\ 1217}# | |
686 | #{marks\ 1218}# | |
687 | #{labels\ 1219}#) | |
5f8c55ce AW |
688 | (vector |
689 | 'ribcage | |
43353663 AW |
690 | #{symnames\ 1217}# |
691 | #{marks\ 1218}# | |
692 | #{labels\ 1219}#))) | |
693 | (#{ribcage-symnames\ 402}# | |
694 | (lambda (#{x\ 1228}#) (vector-ref #{x\ 1228}# 1))) | |
695 | (#{ribcage-marks\ 404}# | |
696 | (lambda (#{x\ 1230}#) (vector-ref #{x\ 1230}# 2))) | |
697 | (#{ribcage-labels\ 406}# | |
698 | (lambda (#{x\ 1232}#) (vector-ref #{x\ 1232}# 3))) | |
699 | (#{set-ribcage-symnames!\ 408}# | |
700 | (lambda (#{x\ 1234}# #{update\ 1235}#) | |
701 | (vector-set! #{x\ 1234}# 1 #{update\ 1235}#))) | |
702 | (#{set-ribcage-marks!\ 410}# | |
703 | (lambda (#{x\ 1238}# #{update\ 1239}#) | |
704 | (vector-set! #{x\ 1238}# 2 #{update\ 1239}#))) | |
705 | (#{set-ribcage-labels!\ 412}# | |
706 | (lambda (#{x\ 1242}# #{update\ 1243}#) | |
707 | (vector-set! #{x\ 1242}# 3 #{update\ 1243}#))) | |
708 | (#{anti-mark\ 418}# | |
709 | (lambda (#{w\ 1246}#) | |
710 | (cons (cons #f (car #{w\ 1246}#)) | |
711 | (cons 'shift (cdr #{w\ 1246}#))))) | |
712 | (#{extend-ribcage!\ 422}# | |
713 | (lambda (#{ribcage\ 1252}# #{id\ 1253}# #{label\ 1254}#) | |
5f8c55ce | 714 | (begin |
43353663 AW |
715 | (#{set-ribcage-symnames!\ 408}# |
716 | #{ribcage\ 1252}# | |
717 | (cons (#{syntax-object-expression\ 348}# #{id\ 1253}#) | |
718 | (#{ribcage-symnames\ 402}# #{ribcage\ 1252}#))) | |
719 | (#{set-ribcage-marks!\ 410}# | |
720 | #{ribcage\ 1252}# | |
721 | (cons (car (#{syntax-object-wrap\ 350}# #{id\ 1253}#)) | |
722 | (#{ribcage-marks\ 404}# #{ribcage\ 1252}#))) | |
723 | (#{set-ribcage-labels!\ 412}# | |
724 | #{ribcage\ 1252}# | |
725 | (cons #{label\ 1254}# | |
726 | (#{ribcage-labels\ 406}# #{ribcage\ 1252}#)))))) | |
727 | (#{make-binding-wrap\ 424}# | |
728 | (lambda (#{ids\ 1259}# #{labels\ 1260}# #{w\ 1261}#) | |
729 | (if (null? #{ids\ 1259}#) | |
730 | #{w\ 1261}# | |
731 | (cons (car #{w\ 1261}#) | |
381ccb0b | 732 | (cons (begin |
43353663 AW |
733 | (let ((#{labelvec\ 1268}# |
734 | (list->vector #{labels\ 1260}#))) | |
5f8c55ce | 735 | (begin |
43353663 AW |
736 | (let ((#{n\ 1270}# |
737 | (vector-length #{labelvec\ 1268}#))) | |
5f8c55ce | 738 | (begin |
43353663 AW |
739 | (let ((#{symnamevec\ 1273}# |
740 | (make-vector #{n\ 1270}#)) | |
741 | (#{marksvec\ 1274}# | |
742 | (make-vector #{n\ 1270}#))) | |
381ccb0b AW |
743 | (begin |
744 | (letrec* | |
43353663 AW |
745 | ((#{f\ 1278}# |
746 | (lambda (#{ids\ 1279}# | |
747 | #{i\ 1280}#) | |
748 | (if (not (null? #{ids\ 1279}#)) | |
381ccb0b AW |
749 | (call-with-values |
750 | (lambda () | |
43353663 AW |
751 | (#{id-sym-name&marks\ 383}# |
752 | (car #{ids\ 1279}#) | |
753 | #{w\ 1261}#)) | |
754 | (lambda (#{symname\ 1281}# | |
755 | #{marks\ 1282}#) | |
381ccb0b AW |
756 | (begin |
757 | (vector-set! | |
43353663 AW |
758 | #{symnamevec\ 1273}# |
759 | #{i\ 1280}# | |
760 | #{symname\ 1281}#) | |
381ccb0b | 761 | (vector-set! |
43353663 AW |
762 | #{marksvec\ 1274}# |
763 | #{i\ 1280}# | |
764 | #{marks\ 1282}#) | |
765 | (#{f\ 1278}# | |
766 | (cdr #{ids\ 1279}#) | |
767 | (#{fx+\ 283}# | |
768 | #{i\ 1280}# | |
381ccb0b AW |
769 | 1))))))))) |
770 | (begin | |
43353663 AW |
771 | (#{f\ 1278}# #{ids\ 1259}# 0))) |
772 | (#{make-ribcage\ 398}# | |
773 | #{symnamevec\ 1273}# | |
774 | #{marksvec\ 1274}# | |
775 | #{labelvec\ 1268}#)))))))) | |
776 | (cdr #{w\ 1261}#)))))) | |
777 | (#{smart-append\ 426}# | |
778 | (lambda (#{m1\ 1286}# #{m2\ 1287}#) | |
779 | (if (null? #{m2\ 1287}#) | |
780 | #{m1\ 1286}# | |
781 | (append #{m1\ 1286}# #{m2\ 1287}#)))) | |
782 | (#{join-wraps\ 428}# | |
783 | (lambda (#{w1\ 1290}# #{w2\ 1291}#) | |
5f8c55ce | 784 | (begin |
43353663 AW |
785 | (let ((#{m1\ 1296}# (car #{w1\ 1290}#)) |
786 | (#{s1\ 1297}# (cdr #{w1\ 1290}#))) | |
787 | (if (null? #{m1\ 1296}#) | |
788 | (if (null? #{s1\ 1297}#) | |
789 | #{w2\ 1291}# | |
790 | (cons (car #{w2\ 1291}#) | |
791 | (#{smart-append\ 426}# | |
792 | #{s1\ 1297}# | |
793 | (cdr #{w2\ 1291}#)))) | |
794 | (cons (#{smart-append\ 426}# | |
795 | #{m1\ 1296}# | |
796 | (car #{w2\ 1291}#)) | |
797 | (#{smart-append\ 426}# | |
798 | #{s1\ 1297}# | |
799 | (cdr #{w2\ 1291}#)))))))) | |
800 | (#{join-marks\ 430}# | |
801 | (lambda (#{m1\ 1306}# #{m2\ 1307}#) | |
802 | (#{smart-append\ 426}# #{m1\ 1306}# #{m2\ 1307}#))) | |
803 | (#{same-marks?\ 432}# | |
804 | (lambda (#{x\ 1310}# #{y\ 1311}#) | |
5f8c55ce | 805 | (begin |
43353663 AW |
806 | (let ((#{t\ 1316}# (eq? #{x\ 1310}# #{y\ 1311}#))) |
807 | (if #{t\ 1316}# | |
808 | #{t\ 1316}# | |
809 | (if (not (null? #{x\ 1310}#)) | |
810 | (if (not (null? #{y\ 1311}#)) | |
811 | (if (eq? (car #{x\ 1310}#) (car #{y\ 1311}#)) | |
812 | (#{same-marks?\ 432}# | |
813 | (cdr #{x\ 1310}#) | |
814 | (cdr #{y\ 1311}#)) | |
5f8c55ce AW |
815 | #f) |
816 | #f) | |
817 | #f)))))) | |
43353663 AW |
818 | (#{id-var-name\ 434}# |
819 | (lambda (#{id\ 1322}# #{w\ 1323}#) | |
5f8c55ce | 820 | (letrec* |
43353663 AW |
821 | ((#{search\ 1328}# |
822 | (lambda (#{sym\ 1344}# #{subst\ 1345}# #{marks\ 1346}#) | |
823 | (if (null? #{subst\ 1345}#) | |
824 | (values #f #{marks\ 1346}#) | |
5f8c55ce | 825 | (begin |
43353663 AW |
826 | (let ((#{fst\ 1351}# (car #{subst\ 1345}#))) |
827 | (if (eq? #{fst\ 1351}# 'shift) | |
828 | (#{search\ 1328}# | |
829 | #{sym\ 1344}# | |
830 | (cdr #{subst\ 1345}#) | |
831 | (cdr #{marks\ 1346}#)) | |
5f8c55ce | 832 | (begin |
43353663 AW |
833 | (let ((#{symnames\ 1353}# |
834 | (#{ribcage-symnames\ 402}# | |
835 | #{fst\ 1351}#))) | |
836 | (if (vector? #{symnames\ 1353}#) | |
837 | (#{search-vector-rib\ 1332}# | |
838 | #{sym\ 1344}# | |
839 | #{subst\ 1345}# | |
840 | #{marks\ 1346}# | |
841 | #{symnames\ 1353}# | |
842 | #{fst\ 1351}#) | |
843 | (#{search-list-rib\ 1330}# | |
844 | #{sym\ 1344}# | |
845 | #{subst\ 1345}# | |
846 | #{marks\ 1346}# | |
847 | #{symnames\ 1353}# | |
848 | #{fst\ 1351}#)))))))))) | |
849 | (#{search-list-rib\ 1330}# | |
850 | (lambda (#{sym\ 1354}# | |
851 | #{subst\ 1355}# | |
852 | #{marks\ 1356}# | |
853 | #{symnames\ 1357}# | |
854 | #{ribcage\ 1358}#) | |
5f8c55ce | 855 | (letrec* |
43353663 AW |
856 | ((#{f\ 1367}# |
857 | (lambda (#{symnames\ 1368}# #{i\ 1369}#) | |
858 | (if (null? #{symnames\ 1368}#) | |
859 | (#{search\ 1328}# | |
860 | #{sym\ 1354}# | |
861 | (cdr #{subst\ 1355}#) | |
862 | #{marks\ 1356}#) | |
863 | (if (if (eq? (car #{symnames\ 1368}#) | |
864 | #{sym\ 1354}#) | |
865 | (#{same-marks?\ 432}# | |
866 | #{marks\ 1356}# | |
5f8c55ce | 867 | (list-ref |
43353663 AW |
868 | (#{ribcage-marks\ 404}# |
869 | #{ribcage\ 1358}#) | |
870 | #{i\ 1369}#)) | |
5f8c55ce AW |
871 | #f) |
872 | (values | |
873 | (list-ref | |
43353663 AW |
874 | (#{ribcage-labels\ 406}# #{ribcage\ 1358}#) |
875 | #{i\ 1369}#) | |
876 | #{marks\ 1356}#) | |
877 | (#{f\ 1367}# | |
878 | (cdr #{symnames\ 1368}#) | |
879 | (#{fx+\ 283}# #{i\ 1369}# 1))))))) | |
880 | (begin (#{f\ 1367}# #{symnames\ 1357}# 0))))) | |
881 | (#{search-vector-rib\ 1332}# | |
882 | (lambda (#{sym\ 1377}# | |
883 | #{subst\ 1378}# | |
884 | #{marks\ 1379}# | |
885 | #{symnames\ 1380}# | |
886 | #{ribcage\ 1381}#) | |
5f8c55ce | 887 | (begin |
43353663 | 888 | (let ((#{n\ 1388}# (vector-length #{symnames\ 1380}#))) |
5f8c55ce | 889 | (letrec* |
43353663 AW |
890 | ((#{f\ 1391}# |
891 | (lambda (#{i\ 1392}#) | |
892 | (if (#{fx=\ 287}# #{i\ 1392}# #{n\ 1388}#) | |
893 | (#{search\ 1328}# | |
894 | #{sym\ 1377}# | |
895 | (cdr #{subst\ 1378}#) | |
896 | #{marks\ 1379}#) | |
5f8c55ce | 897 | (if (if (eq? (vector-ref |
43353663 AW |
898 | #{symnames\ 1380}# |
899 | #{i\ 1392}#) | |
900 | #{sym\ 1377}#) | |
901 | (#{same-marks?\ 432}# | |
902 | #{marks\ 1379}# | |
5f8c55ce | 903 | (vector-ref |
43353663 AW |
904 | (#{ribcage-marks\ 404}# |
905 | #{ribcage\ 1381}#) | |
906 | #{i\ 1392}#)) | |
5f8c55ce AW |
907 | #f) |
908 | (values | |
909 | (vector-ref | |
43353663 AW |
910 | (#{ribcage-labels\ 406}# |
911 | #{ribcage\ 1381}#) | |
912 | #{i\ 1392}#) | |
913 | #{marks\ 1379}#) | |
914 | (#{f\ 1391}# | |
915 | (#{fx+\ 283}# #{i\ 1392}# 1))))))) | |
916 | (begin (#{f\ 1391}# 0)))))))) | |
5f8c55ce | 917 | (begin |
43353663 | 918 | (if (symbol? #{id\ 1322}#) |
5f8c55ce | 919 | (begin |
43353663 | 920 | (let ((#{t\ 1402}# |
5f8c55ce AW |
921 | (call-with-values |
922 | (lambda () | |
43353663 AW |
923 | (#{search\ 1328}# |
924 | #{id\ 1322}# | |
925 | (cdr #{w\ 1323}#) | |
926 | (car #{w\ 1323}#))) | |
927 | (lambda (#{x\ 1406}# . #{ignore\ 1407}#) | |
928 | #{x\ 1406}#)))) | |
929 | (if #{t\ 1402}# #{t\ 1402}# #{id\ 1322}#))) | |
930 | (if (#{syntax-object?\ 346}# #{id\ 1322}#) | |
417ee098 | 931 | (begin |
43353663 AW |
932 | (let ((#{id\ 1415}# |
933 | (#{syntax-object-expression\ 348}# | |
934 | #{id\ 1322}#)) | |
935 | (#{w1\ 1416}# | |
936 | (#{syntax-object-wrap\ 350}# #{id\ 1322}#))) | |
5f8c55ce | 937 | (begin |
43353663 AW |
938 | (let ((#{marks\ 1418}# |
939 | (#{join-marks\ 430}# | |
940 | (car #{w\ 1323}#) | |
941 | (car #{w1\ 1416}#)))) | |
5f8c55ce AW |
942 | (call-with-values |
943 | (lambda () | |
43353663 AW |
944 | (#{search\ 1328}# |
945 | #{id\ 1415}# | |
946 | (cdr #{w\ 1323}#) | |
947 | #{marks\ 1418}#)) | |
948 | (lambda (#{new-id\ 1422}# #{marks\ 1423}#) | |
5f8c55ce | 949 | (begin |
43353663 AW |
950 | (let ((#{t\ 1428}# #{new-id\ 1422}#)) |
951 | (if #{t\ 1428}# | |
952 | #{t\ 1428}# | |
5f8c55ce | 953 | (begin |
43353663 | 954 | (let ((#{t\ 1431}# |
5f8c55ce AW |
955 | (call-with-values |
956 | (lambda () | |
43353663 AW |
957 | (#{search\ 1328}# |
958 | #{id\ 1415}# | |
959 | (cdr #{w1\ 1416}#) | |
960 | #{marks\ 1423}#)) | |
961 | (lambda (#{x\ 1434}# | |
5f8c55ce | 962 | . |
43353663 AW |
963 | #{ignore\ 1435}#) |
964 | #{x\ 1434}#)))) | |
965 | (if #{t\ 1431}# | |
966 | #{t\ 1431}# | |
967 | #{id\ 1415}#)))))))))))) | |
5f8c55ce AW |
968 | (syntax-violation |
969 | 'id-var-name | |
970 | "invalid id" | |
43353663 AW |
971 | #{id\ 1322}#))))))) |
972 | (#{free-id=?\ 436}# | |
973 | (lambda (#{i\ 1440}# #{j\ 1441}#) | |
5f8c55ce | 974 | (if (eq? (begin |
43353663 AW |
975 | (let ((#{x\ 1447}# #{i\ 1440}#)) |
976 | (if (#{syntax-object?\ 346}# #{x\ 1447}#) | |
977 | (#{syntax-object-expression\ 348}# #{x\ 1447}#) | |
978 | #{x\ 1447}#))) | |
5f8c55ce | 979 | (begin |
43353663 AW |
980 | (let ((#{x\ 1450}# #{j\ 1441}#)) |
981 | (if (#{syntax-object?\ 346}# #{x\ 1450}#) | |
982 | (#{syntax-object-expression\ 348}# #{x\ 1450}#) | |
983 | #{x\ 1450}#)))) | |
984 | (eq? (#{id-var-name\ 434}# #{i\ 1440}# '(())) | |
985 | (#{id-var-name\ 434}# #{j\ 1441}# '(()))) | |
5f8c55ce | 986 | #f))) |
43353663 AW |
987 | (#{bound-id=?\ 438}# |
988 | (lambda (#{i\ 1454}# #{j\ 1455}#) | |
989 | (if (if (#{syntax-object?\ 346}# #{i\ 1454}#) | |
990 | (#{syntax-object?\ 346}# #{j\ 1455}#) | |
5f8c55ce | 991 | #f) |
43353663 AW |
992 | (if (eq? (#{syntax-object-expression\ 348}# #{i\ 1454}#) |
993 | (#{syntax-object-expression\ 348}# #{j\ 1455}#)) | |
994 | (#{same-marks?\ 432}# | |
995 | (car (#{syntax-object-wrap\ 350}# #{i\ 1454}#)) | |
996 | (car (#{syntax-object-wrap\ 350}# #{j\ 1455}#))) | |
5f8c55ce | 997 | #f) |
43353663 AW |
998 | (eq? #{i\ 1454}# #{j\ 1455}#)))) |
999 | (#{valid-bound-ids?\ 440}# | |
1000 | (lambda (#{ids\ 1464}#) | |
5f8c55ce | 1001 | (if (letrec* |
43353663 AW |
1002 | ((#{all-ids?\ 1469}# |
1003 | (lambda (#{ids\ 1470}#) | |
5f8c55ce | 1004 | (begin |
43353663 AW |
1005 | (let ((#{t\ 1473}# (null? #{ids\ 1470}#))) |
1006 | (if #{t\ 1473}# | |
1007 | #{t\ 1473}# | |
1008 | (if (#{id?\ 380}# (car #{ids\ 1470}#)) | |
1009 | (#{all-ids?\ 1469}# (cdr #{ids\ 1470}#)) | |
5f8c55ce | 1010 | #f))))))) |
43353663 AW |
1011 | (begin (#{all-ids?\ 1469}# #{ids\ 1464}#))) |
1012 | (#{distinct-bound-ids?\ 442}# #{ids\ 1464}#) | |
5f8c55ce | 1013 | #f))) |
43353663 AW |
1014 | (#{distinct-bound-ids?\ 442}# |
1015 | (lambda (#{ids\ 1478}#) | |
5f8c55ce | 1016 | (letrec* |
43353663 AW |
1017 | ((#{distinct?\ 1482}# |
1018 | (lambda (#{ids\ 1483}#) | |
5f8c55ce | 1019 | (begin |
43353663 AW |
1020 | (let ((#{t\ 1486}# (null? #{ids\ 1483}#))) |
1021 | (if #{t\ 1486}# | |
1022 | #{t\ 1486}# | |
1023 | (if (not (#{bound-id-member?\ 444}# | |
1024 | (car #{ids\ 1483}#) | |
1025 | (cdr #{ids\ 1483}#))) | |
1026 | (#{distinct?\ 1482}# (cdr #{ids\ 1483}#)) | |
5f8c55ce | 1027 | #f))))))) |
43353663 AW |
1028 | (begin (#{distinct?\ 1482}# #{ids\ 1478}#))))) |
1029 | (#{bound-id-member?\ 444}# | |
1030 | (lambda (#{x\ 1490}# #{list\ 1491}#) | |
1031 | (if (not (null? #{list\ 1491}#)) | |
5f8c55ce | 1032 | (begin |
43353663 AW |
1033 | (let ((#{t\ 1498}# |
1034 | (#{bound-id=?\ 438}# | |
1035 | #{x\ 1490}# | |
1036 | (car #{list\ 1491}#)))) | |
1037 | (if #{t\ 1498}# | |
1038 | #{t\ 1498}# | |
1039 | (#{bound-id-member?\ 444}# | |
1040 | #{x\ 1490}# | |
1041 | (cdr #{list\ 1491}#))))) | |
5f8c55ce | 1042 | #f))) |
43353663 AW |
1043 | (#{wrap\ 446}# |
1044 | (lambda (#{x\ 1500}# #{w\ 1501}# #{defmod\ 1502}#) | |
1045 | (if (if (null? (car #{w\ 1501}#)) | |
1046 | (null? (cdr #{w\ 1501}#)) | |
5f8c55ce | 1047 | #f) |
43353663 AW |
1048 | #{x\ 1500}# |
1049 | (if (#{syntax-object?\ 346}# #{x\ 1500}#) | |
1050 | (#{make-syntax-object\ 344}# | |
1051 | (#{syntax-object-expression\ 348}# #{x\ 1500}#) | |
1052 | (#{join-wraps\ 428}# | |
1053 | #{w\ 1501}# | |
1054 | (#{syntax-object-wrap\ 350}# #{x\ 1500}#)) | |
1055 | (#{syntax-object-module\ 352}# #{x\ 1500}#)) | |
1056 | (if (null? #{x\ 1500}#) | |
1057 | #{x\ 1500}# | |
1058 | (#{make-syntax-object\ 344}# | |
1059 | #{x\ 1500}# | |
1060 | #{w\ 1501}# | |
1061 | #{defmod\ 1502}#)))))) | |
1062 | (#{source-wrap\ 448}# | |
1063 | (lambda (#{x\ 1517}# | |
1064 | #{w\ 1518}# | |
1065 | #{s\ 1519}# | |
1066 | #{defmod\ 1520}#) | |
1067 | (#{wrap\ 446}# | |
1068 | (#{decorate-source\ 300}# | |
1069 | #{x\ 1517}# | |
1070 | #{s\ 1519}#) | |
1071 | #{w\ 1518}# | |
1072 | #{defmod\ 1520}#))) | |
1073 | (#{chi-sequence\ 450}# | |
1074 | (lambda (#{body\ 1525}# | |
1075 | #{r\ 1526}# | |
1076 | #{w\ 1527}# | |
1077 | #{s\ 1528}# | |
1078 | #{mod\ 1529}#) | |
1079 | (#{build-sequence\ 334}# | |
1080 | #{s\ 1528}# | |
5f8c55ce | 1081 | (letrec* |
43353663 AW |
1082 | ((#{dobody\ 1540}# |
1083 | (lambda (#{body\ 1541}# | |
1084 | #{r\ 1542}# | |
1085 | #{w\ 1543}# | |
1086 | #{mod\ 1544}#) | |
1087 | (if (null? #{body\ 1541}#) | |
5f8c55ce AW |
1088 | '() |
1089 | (begin | |
43353663 AW |
1090 | (let ((#{first\ 1546}# |
1091 | (#{chi\ 460}# | |
1092 | (car #{body\ 1541}#) | |
1093 | #{r\ 1542}# | |
1094 | #{w\ 1543}# | |
1095 | #{mod\ 1544}#))) | |
1096 | (cons #{first\ 1546}# | |
1097 | (#{dobody\ 1540}# | |
1098 | (cdr #{body\ 1541}#) | |
1099 | #{r\ 1542}# | |
1100 | #{w\ 1543}# | |
1101 | #{mod\ 1544}#)))))))) | |
5f8c55ce | 1102 | (begin |
43353663 AW |
1103 | (#{dobody\ 1540}# |
1104 | #{body\ 1525}# | |
1105 | #{r\ 1526}# | |
1106 | #{w\ 1527}# | |
1107 | #{mod\ 1529}#)))))) | |
1108 | (#{chi-top-sequence\ 452}# | |
1109 | (lambda (#{body\ 1547}# | |
1110 | #{r\ 1548}# | |
1111 | #{w\ 1549}# | |
1112 | #{s\ 1550}# | |
1113 | #{m\ 1551}# | |
1114 | #{esew\ 1552}# | |
1115 | #{mod\ 1553}#) | |
1116 | (letrec* | |
1117 | ((#{scan\ 1562}# | |
1118 | (lambda (#{body\ 1563}# | |
1119 | #{r\ 1564}# | |
1120 | #{w\ 1565}# | |
1121 | #{s\ 1566}# | |
1122 | #{m\ 1567}# | |
1123 | #{esew\ 1568}# | |
1124 | #{mod\ 1569}# | |
1125 | #{exps\ 1570}#) | |
1126 | (if (null? #{body\ 1563}#) | |
1127 | #{exps\ 1570}# | |
1128 | (call-with-values | |
1129 | (lambda () | |
1130 | (call-with-values | |
1131 | (lambda () | |
1132 | (begin | |
1133 | (let ((#{e\ 1583}# (car #{body\ 1563}#))) | |
1134 | (#{syntax-type\ 458}# | |
1135 | #{e\ 1583}# | |
1136 | #{r\ 1564}# | |
1137 | #{w\ 1565}# | |
1138 | (begin | |
1139 | (let ((#{t\ 1586}# | |
1140 | (#{source-annotation\ 361}# | |
1141 | #{e\ 1583}#))) | |
1142 | (if #{t\ 1586}# | |
1143 | #{t\ 1586}# | |
1144 | #{s\ 1566}#))) | |
1145 | #f | |
1146 | #{mod\ 1569}# | |
1147 | #f)))) | |
1148 | (lambda (#{type\ 1588}# | |
1149 | #{value\ 1589}# | |
1150 | #{e\ 1590}# | |
1151 | #{w\ 1591}# | |
1152 | #{s\ 1592}# | |
1153 | #{mod\ 1593}#) | |
1154 | (if (eqv? #{type\ 1588}# 'begin-form) | |
1155 | (let ((#{tmp\ 1601}# #{e\ 1590}#)) | |
1156 | (let ((#{tmp\ 1602}# | |
1157 | ($sc-dispatch #{tmp\ 1601}# '(_)))) | |
1158 | (if #{tmp\ 1602}# | |
1159 | (@apply | |
1160 | (lambda () #{exps\ 1570}#) | |
1161 | #{tmp\ 1602}#) | |
1162 | (let ((#{tmp\ 1603}# | |
1163 | ($sc-dispatch | |
1164 | #{tmp\ 1601}# | |
1165 | '(_ any . each-any)))) | |
1166 | (if #{tmp\ 1603}# | |
1167 | (@apply | |
1168 | (lambda (#{e1\ 1606}# #{e2\ 1607}#) | |
1169 | (#{scan\ 1562}# | |
1170 | (cons #{e1\ 1606}# | |
1171 | #{e2\ 1607}#) | |
1172 | #{r\ 1564}# | |
1173 | #{w\ 1591}# | |
1174 | #{s\ 1592}# | |
1175 | #{m\ 1567}# | |
1176 | #{esew\ 1568}# | |
1177 | #{mod\ 1593}# | |
1178 | #{exps\ 1570}#)) | |
1179 | #{tmp\ 1603}#) | |
1180 | (syntax-violation | |
1181 | #f | |
1182 | "source expression failed to match any pattern" | |
1183 | #{tmp\ 1601}#)))))) | |
1184 | (if (eqv? #{type\ 1588}# 'local-syntax-form) | |
1185 | (#{chi-local-syntax\ 470}# | |
1186 | #{value\ 1589}# | |
1187 | #{e\ 1590}# | |
1188 | #{r\ 1564}# | |
1189 | #{w\ 1591}# | |
1190 | #{s\ 1592}# | |
1191 | #{mod\ 1593}# | |
1192 | (lambda (#{body\ 1610}# | |
1193 | #{r\ 1611}# | |
1194 | #{w\ 1612}# | |
1195 | #{s\ 1613}# | |
1196 | #{mod\ 1614}#) | |
1197 | (#{scan\ 1562}# | |
1198 | #{body\ 1610}# | |
1199 | #{r\ 1611}# | |
1200 | #{w\ 1612}# | |
1201 | #{s\ 1613}# | |
1202 | #{m\ 1567}# | |
1203 | #{esew\ 1568}# | |
1204 | #{mod\ 1614}# | |
1205 | #{exps\ 1570}#))) | |
1206 | (if (eqv? #{type\ 1588}# 'eval-when-form) | |
1207 | (let ((#{tmp\ 1621}# #{e\ 1590}#)) | |
1208 | (let ((#{tmp\ 1622}# | |
1209 | ($sc-dispatch | |
1210 | #{tmp\ 1621}# | |
1211 | '(_ each-any any . each-any)))) | |
1212 | (if #{tmp\ 1622}# | |
1213 | (@apply | |
1214 | (lambda (#{x\ 1626}# | |
1215 | #{e1\ 1627}# | |
1216 | #{e2\ 1628}#) | |
1217 | (begin | |
1218 | (let ((#{when-list\ 1631}# | |
1219 | (#{chi-when-list\ 456}# | |
1220 | #{e\ 1590}# | |
1221 | #{x\ 1626}# | |
1222 | #{w\ 1591}#)) | |
1223 | (#{body\ 1632}# | |
1224 | (cons #{e1\ 1627}# | |
1225 | #{e2\ 1628}#))) | |
1226 | (if (eq? #{m\ 1567}# 'e) | |
1227 | (if (memq 'eval | |
1228 | #{when-list\ 1631}#) | |
1229 | (#{scan\ 1562}# | |
1230 | #{body\ 1632}# | |
1231 | #{r\ 1564}# | |
1232 | #{w\ 1591}# | |
1233 | #{s\ 1592}# | |
1234 | (if (memq 'expand | |
1235 | #{when-list\ 1631}#) | |
1236 | 'c&e | |
1237 | 'e) | |
1238 | '(eval) | |
1239 | #{mod\ 1593}# | |
1240 | #{exps\ 1570}#) | |
1241 | (begin | |
1242 | (if (memq 'expand | |
1243 | #{when-list\ 1631}#) | |
1244 | (#{top-level-eval-hook\ 291}# | |
1245 | (#{chi-top-sequence\ 452}# | |
1246 | #{body\ 1632}# | |
1247 | #{r\ 1564}# | |
1248 | #{w\ 1591}# | |
1249 | #{s\ 1592}# | |
1250 | 'e | |
1251 | '(eval) | |
1252 | #{mod\ 1593}#) | |
1253 | #{mod\ 1593}#)) | |
1254 | #{exps\ 1570}#)) | |
1255 | (if (memq 'load | |
1256 | #{when-list\ 1631}#) | |
1257 | (if (begin | |
1258 | (let ((#{t\ 1641}# | |
1259 | (memq 'compile | |
1260 | #{when-list\ 1631}#))) | |
1261 | (if #{t\ 1641}# | |
1262 | #{t\ 1641}# | |
1263 | (begin | |
1264 | (let ((#{t\ 1644}# | |
1265 | (memq 'expand | |
1266 | #{when-list\ 1631}#))) | |
1267 | (if #{t\ 1644}# | |
1268 | #{t\ 1644}# | |
1269 | (if (eq? #{m\ 1567}# | |
1270 | 'c&e) | |
1271 | (memq 'eval | |
1272 | #{when-list\ 1631}#) | |
1273 | #f))))))) | |
1274 | (#{scan\ 1562}# | |
1275 | #{body\ 1632}# | |
1276 | #{r\ 1564}# | |
1277 | #{w\ 1591}# | |
1278 | #{s\ 1592}# | |
1279 | 'c&e | |
1280 | '(compile load) | |
1281 | #{mod\ 1593}# | |
1282 | #{exps\ 1570}#) | |
1283 | (if (if (eq? #{m\ 1567}# | |
1284 | 'c) | |
1285 | #t | |
1286 | (eq? #{m\ 1567}# | |
1287 | 'c&e)) | |
1288 | (#{scan\ 1562}# | |
1289 | #{body\ 1632}# | |
1290 | #{r\ 1564}# | |
1291 | #{w\ 1591}# | |
1292 | #{s\ 1592}# | |
1293 | 'c | |
1294 | '(load) | |
1295 | #{mod\ 1593}# | |
1296 | #{exps\ 1570}#) | |
1297 | #{exps\ 1570}#)) | |
1298 | (if (begin | |
1299 | (let ((#{t\ 1652}# | |
1300 | (memq 'compile | |
1301 | #{when-list\ 1631}#))) | |
1302 | (if #{t\ 1652}# | |
1303 | #{t\ 1652}# | |
1304 | (begin | |
1305 | (let ((#{t\ 1655}# | |
1306 | (memq 'expand | |
1307 | #{when-list\ 1631}#))) | |
1308 | (if #{t\ 1655}# | |
1309 | #{t\ 1655}# | |
1310 | (if (eq? #{m\ 1567}# | |
1311 | 'c&e) | |
1312 | (memq 'eval | |
1313 | #{when-list\ 1631}#) | |
1314 | #f))))))) | |
1315 | (begin | |
1316 | (#{top-level-eval-hook\ 291}# | |
1317 | (#{chi-top-sequence\ 452}# | |
1318 | #{body\ 1632}# | |
1319 | #{r\ 1564}# | |
1320 | #{w\ 1591}# | |
1321 | #{s\ 1592}# | |
1322 | 'e | |
1323 | '(eval) | |
1324 | #{mod\ 1593}#) | |
1325 | #{mod\ 1593}#) | |
1326 | #{exps\ 1570}#) | |
1327 | #{exps\ 1570}#)))))) | |
1328 | #{tmp\ 1622}#) | |
1329 | (syntax-violation | |
1330 | #f | |
1331 | "source expression failed to match any pattern" | |
1332 | #{tmp\ 1621}#)))) | |
1333 | (if (eqv? #{type\ 1588}# | |
1334 | 'define-syntax-form) | |
1335 | (begin | |
1336 | (let ((#{n\ 1663}# | |
1337 | (#{id-var-name\ 434}# | |
1338 | #{value\ 1589}# | |
1339 | #{w\ 1591}#)) | |
1340 | (#{r\ 1664}# | |
1341 | (#{macros-only-env\ 372}# | |
1342 | #{r\ 1564}#))) | |
1343 | (if (eqv? #{m\ 1567}# 'c) | |
1344 | (if (memq 'compile #{esew\ 1568}#) | |
1345 | (begin | |
1346 | (let ((#{e\ 1667}# | |
1347 | (#{chi-install-global\ 454}# | |
1348 | #{n\ 1663}# | |
1349 | (#{chi\ 460}# | |
1350 | #{e\ 1590}# | |
1351 | #{r\ 1664}# | |
1352 | #{w\ 1591}# | |
1353 | #{mod\ 1593}#)))) | |
1354 | (begin | |
1355 | (#{top-level-eval-hook\ 291}# | |
1356 | #{e\ 1667}# | |
1357 | #{mod\ 1593}#) | |
1358 | (if (memq 'load | |
1359 | #{esew\ 1568}#) | |
1360 | (cons #{e\ 1667}# | |
1361 | #{exps\ 1570}#) | |
1362 | #{exps\ 1570}#)))) | |
1363 | (if (memq 'load #{esew\ 1568}#) | |
1364 | (cons (#{chi-install-global\ 454}# | |
1365 | #{n\ 1663}# | |
1366 | (#{chi\ 460}# | |
1367 | #{e\ 1590}# | |
1368 | #{r\ 1664}# | |
1369 | #{w\ 1591}# | |
1370 | #{mod\ 1593}#)) | |
1371 | #{exps\ 1570}#) | |
1372 | #{exps\ 1570}#)) | |
1373 | (if (eqv? #{m\ 1567}# 'c&e) | |
1374 | (begin | |
1375 | (let ((#{e\ 1670}# | |
1376 | (#{chi-install-global\ 454}# | |
1377 | #{n\ 1663}# | |
1378 | (#{chi\ 460}# | |
1379 | #{e\ 1590}# | |
1380 | #{r\ 1664}# | |
1381 | #{w\ 1591}# | |
1382 | #{mod\ 1593}#)))) | |
1383 | (begin | |
1384 | (#{top-level-eval-hook\ 291}# | |
1385 | #{e\ 1670}# | |
1386 | #{mod\ 1593}#) | |
1387 | (cons #{e\ 1670}# | |
1388 | #{exps\ 1570}#)))) | |
1389 | (begin | |
1390 | (if (memq 'eval #{esew\ 1568}#) | |
1391 | (#{top-level-eval-hook\ 291}# | |
1392 | (#{chi-install-global\ 454}# | |
1393 | #{n\ 1663}# | |
1394 | (#{chi\ 460}# | |
1395 | #{e\ 1590}# | |
1396 | #{r\ 1664}# | |
1397 | #{w\ 1591}# | |
1398 | #{mod\ 1593}#)) | |
1399 | #{mod\ 1593}#)) | |
1400 | #{exps\ 1570}#))))) | |
1401 | (if (eqv? #{type\ 1588}# 'define-form) | |
1402 | (begin | |
1403 | (let ((#{n\ 1675}# | |
1404 | (#{id-var-name\ 434}# | |
1405 | #{value\ 1589}# | |
1406 | #{w\ 1591}#))) | |
1407 | (begin | |
1408 | (let ((#{type\ 1677}# | |
1409 | (car (#{lookup\ 374}# | |
1410 | #{n\ 1675}# | |
1411 | #{r\ 1564}# | |
1412 | #{mod\ 1593}#)))) | |
1413 | (if (if (eqv? #{type\ 1677}# | |
1414 | 'global) | |
1415 | #t | |
1416 | (if (eqv? #{type\ 1677}# | |
1417 | 'core) | |
1418 | #t | |
1419 | (if (eqv? #{type\ 1677}# | |
1420 | 'macro) | |
1421 | #t | |
1422 | (eqv? #{type\ 1677}# | |
1423 | 'module-ref)))) | |
1424 | (begin | |
1425 | (if (if (if (eq? #{m\ 1567}# | |
1426 | 'c) | |
1427 | #t | |
1428 | (eq? #{m\ 1567}# | |
1429 | 'c&e)) | |
1430 | (if (not (module-local-variable | |
1431 | (current-module) | |
1432 | #{n\ 1675}#)) | |
1433 | (current-module) | |
1434 | #f) | |
1435 | #f) | |
1436 | (begin | |
1437 | (let ((#{old\ 1684}# | |
1438 | (module-variable | |
1439 | (current-module) | |
1440 | #{n\ 1675}#))) | |
1441 | (if (if (variable? | |
1442 | #{old\ 1684}#) | |
1443 | (variable-bound? | |
1444 | #{old\ 1684}#) | |
1445 | #f) | |
1446 | (module-define! | |
1447 | (current-module) | |
1448 | #{n\ 1675}# | |
1449 | (variable-ref | |
1450 | #{old\ 1684}#)) | |
1451 | (module-add! | |
1452 | (current-module) | |
1453 | #{n\ 1675}# | |
1454 | (make-undefined-variable)))))) | |
1455 | (cons (if (eq? #{m\ 1567}# | |
1456 | 'c&e) | |
1457 | (begin | |
1458 | (let ((#{x\ 1688}# | |
1459 | (#{build-global-definition\ 322}# | |
1460 | #{s\ 1592}# | |
1461 | #{n\ 1675}# | |
1462 | (#{chi\ 460}# | |
1463 | #{e\ 1590}# | |
1464 | #{r\ 1564}# | |
1465 | #{w\ 1591}# | |
1466 | #{mod\ 1593}#)))) | |
1467 | (begin | |
1468 | (#{top-level-eval-hook\ 291}# | |
1469 | #{x\ 1688}# | |
1470 | #{mod\ 1593}#) | |
1471 | #{x\ 1688}#))) | |
1472 | (lambda () | |
1473 | (#{build-global-definition\ 322}# | |
1474 | #{s\ 1592}# | |
1475 | #{n\ 1675}# | |
1476 | (#{chi\ 460}# | |
1477 | #{e\ 1590}# | |
1478 | #{r\ 1564}# | |
1479 | #{w\ 1591}# | |
1480 | #{mod\ 1593}#)))) | |
1481 | #{exps\ 1570}#)) | |
1482 | (if (eqv? #{type\ 1677}# | |
1483 | 'displaced-lexical) | |
1484 | (syntax-violation | |
1485 | #f | |
1486 | "identifier out of context" | |
1487 | #{e\ 1590}# | |
1488 | (#{wrap\ 446}# | |
1489 | #{value\ 1589}# | |
1490 | #{w\ 1591}# | |
1491 | #{mod\ 1593}#)) | |
1492 | (syntax-violation | |
1493 | #f | |
1494 | "cannot define keyword at top level" | |
1495 | #{e\ 1590}# | |
1496 | (#{wrap\ 446}# | |
1497 | #{value\ 1589}# | |
1498 | #{w\ 1591}# | |
1499 | #{mod\ 1593}#)))))))) | |
1500 | (cons (if (eq? #{m\ 1567}# 'c&e) | |
1501 | (begin | |
1502 | (let ((#{x\ 1693}# | |
1503 | (#{chi-expr\ 462}# | |
1504 | #{type\ 1588}# | |
1505 | #{value\ 1589}# | |
1506 | #{e\ 1590}# | |
1507 | #{r\ 1564}# | |
1508 | #{w\ 1591}# | |
1509 | #{s\ 1592}# | |
1510 | #{mod\ 1593}#))) | |
1511 | (begin | |
1512 | (#{top-level-eval-hook\ 291}# | |
1513 | #{x\ 1693}# | |
1514 | #{mod\ 1593}#) | |
1515 | #{x\ 1693}#))) | |
1516 | (lambda () | |
1517 | (#{chi-expr\ 462}# | |
1518 | #{type\ 1588}# | |
1519 | #{value\ 1589}# | |
1520 | #{e\ 1590}# | |
1521 | #{r\ 1564}# | |
1522 | #{w\ 1591}# | |
1523 | #{s\ 1592}# | |
1524 | #{mod\ 1593}#))) | |
1525 | #{exps\ 1570}#))))))))) | |
1526 | (lambda (#{exps\ 1694}#) | |
1527 | (#{scan\ 1562}# | |
1528 | (cdr #{body\ 1563}#) | |
1529 | #{r\ 1564}# | |
1530 | #{w\ 1565}# | |
1531 | #{s\ 1566}# | |
1532 | #{m\ 1567}# | |
1533 | #{esew\ 1568}# | |
1534 | #{mod\ 1569}# | |
1535 | #{exps\ 1694}#))))))) | |
1536 | (begin | |
1537 | (call-with-values | |
1538 | (lambda () | |
1539 | (#{scan\ 1562}# | |
1540 | #{body\ 1547}# | |
1541 | #{r\ 1548}# | |
1542 | #{w\ 1549}# | |
1543 | #{s\ 1550}# | |
1544 | #{m\ 1551}# | |
1545 | #{esew\ 1552}# | |
1546 | #{mod\ 1553}# | |
1547 | '())) | |
1548 | (lambda (#{exps\ 1696}#) | |
1549 | (if (null? #{exps\ 1696}#) | |
1550 | (#{build-void\ 304}# #{s\ 1550}#) | |
1551 | (#{build-sequence\ 334}# | |
1552 | #{s\ 1550}# | |
1553 | (letrec* | |
1554 | ((#{lp\ 1701}# | |
1555 | (lambda (#{in\ 1702}# #{out\ 1703}#) | |
1556 | (if (null? #{in\ 1702}#) | |
1557 | #{out\ 1703}# | |
1558 | (begin | |
1559 | (let ((#{e\ 1705}# (car #{in\ 1702}#))) | |
1560 | (#{lp\ 1701}# | |
1561 | (cdr #{in\ 1702}#) | |
1562 | (cons (if (procedure? #{e\ 1705}#) | |
1563 | (#{e\ 1705}#) | |
1564 | #{e\ 1705}#) | |
1565 | #{out\ 1703}#)))))))) | |
1566 | (begin (#{lp\ 1701}# #{exps\ 1696}# '()))))))))))) | |
1567 | (#{chi-install-global\ 454}# | |
1568 | (lambda (#{name\ 1706}# #{e\ 1707}#) | |
1569 | (#{build-global-definition\ 322}# | |
5f8c55ce | 1570 | #f |
43353663 AW |
1571 | #{name\ 1706}# |
1572 | (#{build-application\ 306}# | |
5f8c55ce | 1573 | #f |
43353663 | 1574 | (#{build-primref\ 330}# |
5f8c55ce AW |
1575 | #f |
1576 | 'make-syntax-transformer) | |
43353663 AW |
1577 | (list (#{build-data\ 332}# #f #{name\ 1706}#) |
1578 | (#{build-data\ 332}# #f 'macro) | |
1579 | #{e\ 1707}#))))) | |
1580 | (#{chi-when-list\ 456}# | |
1581 | (lambda (#{e\ 1715}# #{when-list\ 1716}# #{w\ 1717}#) | |
417ee098 | 1582 | (letrec* |
43353663 AW |
1583 | ((#{f\ 1724}# |
1584 | (lambda (#{when-list\ 1725}# #{situations\ 1726}#) | |
1585 | (if (null? #{when-list\ 1725}#) | |
1586 | #{situations\ 1726}# | |
1587 | (#{f\ 1724}# | |
1588 | (cdr #{when-list\ 1725}#) | |
417ee098 | 1589 | (cons (begin |
43353663 AW |
1590 | (let ((#{x\ 1728}# (car #{when-list\ 1725}#))) |
1591 | (if (#{free-id=?\ 436}# | |
1592 | #{x\ 1728}# | |
417ee098 AW |
1593 | '#(syntax-object |
1594 | compile | |
65dd9e38 | 1595 | ((top) |
417ee098 AW |
1596 | #(ribcage () () ()) |
1597 | #(ribcage () () ()) | |
1598 | #(ribcage () () ()) | |
43353663 | 1599 | #(ribcage #(x) #((top)) #("i1727")) |
417ee098 AW |
1600 | #(ribcage () () ()) |
1601 | #(ribcage | |
1602 | #(f when-list situations) | |
1603 | #((top) (top) (top)) | |
43353663 | 1604 | #("i1721" "i1722" "i1723")) |
417ee098 AW |
1605 | #(ribcage () () ()) |
1606 | #(ribcage | |
1607 | #(e when-list w) | |
1608 | #((top) (top) (top)) | |
43353663 | 1609 | #("i1718" "i1719" "i1720")) |
417ee098 AW |
1610 | #(ribcage |
1611 | (lambda-var-list | |
1612 | gen-var | |
1613 | strip | |
1614 | chi-lambda-case | |
1615 | lambda*-formals | |
1616 | chi-simple-lambda | |
1617 | lambda-formals | |
1618 | ellipsis? | |
1619 | chi-void | |
1620 | eval-local-transformer | |
1621 | chi-local-syntax | |
1622 | chi-body | |
1623 | chi-macro | |
1624 | chi-application | |
1625 | chi-expr | |
1626 | chi | |
417ee098 AW |
1627 | syntax-type |
1628 | chi-when-list | |
1629 | chi-install-global | |
1630 | chi-top-sequence | |
1631 | chi-sequence | |
1632 | source-wrap | |
1633 | wrap | |
1634 | bound-id-member? | |
1635 | distinct-bound-ids? | |
1636 | valid-bound-ids? | |
1637 | bound-id=? | |
1638 | free-id=? | |
1639 | id-var-name | |
1640 | same-marks? | |
1641 | join-marks | |
1642 | join-wraps | |
1643 | smart-append | |
1644 | make-binding-wrap | |
1645 | extend-ribcage! | |
1646 | make-empty-ribcage | |
1647 | new-mark | |
1648 | anti-mark | |
1649 | the-anti-mark | |
1650 | top-marked? | |
1651 | top-wrap | |
1652 | empty-wrap | |
1653 | set-ribcage-labels! | |
1654 | set-ribcage-marks! | |
1655 | set-ribcage-symnames! | |
1656 | ribcage-labels | |
1657 | ribcage-marks | |
1658 | ribcage-symnames | |
1659 | ribcage? | |
1660 | make-ribcage | |
1661 | gen-labels | |
1662 | gen-label | |
1663 | make-rename | |
1664 | rename-marks | |
1665 | rename-new | |
1666 | rename-old | |
1667 | subst-rename? | |
1668 | wrap-subst | |
1669 | wrap-marks | |
1670 | make-wrap | |
1671 | id-sym-name&marks | |
1672 | id-sym-name | |
1673 | id? | |
1674 | nonsymbol-id? | |
1675 | global-extend | |
1676 | lookup | |
1677 | macros-only-env | |
1678 | extend-var-env | |
1679 | extend-env | |
1680 | null-env | |
1681 | binding-value | |
1682 | binding-type | |
1683 | make-binding | |
1684 | arg-check | |
1685 | source-annotation | |
1686 | no-source | |
1687 | set-syntax-object-module! | |
1688 | set-syntax-object-wrap! | |
1689 | set-syntax-object-expression! | |
1690 | syntax-object-module | |
1691 | syntax-object-wrap | |
1692 | syntax-object-expression | |
1693 | syntax-object? | |
1694 | make-syntax-object | |
1695 | build-lexical-var | |
1696 | build-letrec | |
1697 | build-named-let | |
1698 | build-let | |
1699 | build-sequence | |
1700 | build-data | |
1701 | build-primref | |
1702 | build-lambda-case | |
1703 | build-case-lambda | |
1704 | build-simple-lambda | |
1705 | build-global-definition | |
417ee098 AW |
1706 | build-global-assignment |
1707 | build-global-reference | |
1708 | analyze-variable | |
1709 | build-lexical-assignment | |
1710 | build-lexical-reference | |
1711 | build-dynlet | |
1712 | build-conditional | |
1713 | build-application | |
1714 | build-void | |
37620f3f | 1715 | maybe-name-value! |
417ee098 AW |
1716 | decorate-source |
1717 | get-global-definition-hook | |
1718 | put-global-definition-hook | |
1719 | gensym-hook | |
1720 | local-eval-hook | |
1721 | top-level-eval-hook | |
1722 | fx< | |
1723 | fx= | |
1724 | fx- | |
1725 | fx+ | |
1726 | set-lambda-meta! | |
1727 | lambda-meta | |
1728 | lambda? | |
1729 | make-dynlet | |
1730 | make-letrec | |
1731 | make-let | |
1732 | make-lambda-case | |
1733 | make-lambda | |
1734 | make-sequence | |
1735 | make-application | |
1736 | make-conditional | |
1737 | make-toplevel-define | |
1738 | make-toplevel-set | |
1739 | make-toplevel-ref | |
1740 | make-module-set | |
1741 | make-module-ref | |
1742 | make-lexical-set | |
1743 | make-lexical-ref | |
1744 | make-primitive-ref | |
1745 | make-const | |
1746 | make-void) | |
1747 | ((top) | |
1748 | (top) | |
1749 | (top) | |
1750 | (top) | |
1751 | (top) | |
1752 | (top) | |
1753 | (top) | |
1754 | (top) | |
1755 | (top) | |
1756 | (top) | |
1757 | (top) | |
1758 | (top) | |
1759 | (top) | |
1760 | (top) | |
1761 | (top) | |
1762 | (top) | |
1763 | (top) | |
1764 | (top) | |
1765 | (top) | |
1766 | (top) | |
1767 | (top) | |
1768 | (top) | |
1769 | (top) | |
1770 | (top) | |
1771 | (top) | |
1772 | (top) | |
1773 | (top) | |
1774 | (top) | |
1775 | (top) | |
1776 | (top) | |
1777 | (top) | |
1778 | (top) | |
1779 | (top) | |
1780 | (top) | |
1781 | (top) | |
1782 | (top) | |
1783 | (top) | |
1784 | (top) | |
1785 | (top) | |
1786 | (top) | |
1787 | (top) | |
1788 | (top) | |
1789 | (top) | |
1790 | (top) | |
1791 | (top) | |
1792 | (top) | |
1793 | (top) | |
1794 | (top) | |
1795 | (top) | |
1796 | (top) | |
1797 | (top) | |
1798 | (top) | |
1799 | (top) | |
1800 | (top) | |
1801 | (top) | |
1802 | (top) | |
1803 | (top) | |
1804 | (top) | |
1805 | (top) | |
1806 | (top) | |
1807 | (top) | |
1808 | (top) | |
1809 | (top) | |
1810 | (top) | |
1811 | (top) | |
1812 | (top) | |
1813 | (top) | |
1814 | (top) | |
1815 | (top) | |
1816 | (top) | |
1817 | (top) | |
1818 | (top) | |
1819 | (top) | |
1820 | (top) | |
1821 | (top) | |
1822 | (top) | |
1823 | (top) | |
1824 | (top) | |
1825 | (top) | |
1826 | (top) | |
1827 | (top) | |
1828 | (top) | |
1829 | (top) | |
1830 | (top) | |
1831 | (top) | |
1832 | (top) | |
1833 | (top) | |
1834 | (top) | |
1835 | (top) | |
1836 | (top) | |
1837 | (top) | |
1838 | (top) | |
1839 | (top) | |
1840 | (top) | |
1841 | (top) | |
1842 | (top) | |
1843 | (top) | |
1844 | (top) | |
1845 | (top) | |
1846 | (top) | |
1847 | (top) | |
1848 | (top) | |
1849 | (top) | |
1850 | (top) | |
1851 | (top) | |
1852 | (top) | |
1853 | (top) | |
1854 | (top) | |
1855 | (top) | |
1856 | (top) | |
1857 | (top) | |
1858 | (top) | |
1859 | (top) | |
1860 | (top) | |
1861 | (top) | |
1862 | (top) | |
1863 | (top) | |
1864 | (top) | |
1865 | (top) | |
1866 | (top) | |
1867 | (top) | |
1868 | (top) | |
1869 | (top) | |
1870 | (top) | |
1871 | (top) | |
1872 | (top) | |
1873 | (top) | |
1874 | (top) | |
1875 | (top) | |
1876 | (top) | |
1877 | (top) | |
1878 | (top) | |
1879 | (top) | |
1880 | (top) | |
1881 | (top) | |
417ee098 | 1882 | (top)) |
43353663 AW |
1883 | ("i489" |
1884 | "i487" | |
1885 | "i485" | |
1886 | "i483" | |
1887 | "i481" | |
1888 | "i479" | |
1889 | "i477" | |
1890 | "i475" | |
1891 | "i473" | |
1892 | "i471" | |
1893 | "i469" | |
1894 | "i467" | |
1895 | "i465" | |
1896 | "i463" | |
1897 | "i461" | |
1898 | "i459" | |
1899 | "i457" | |
1900 | "i455" | |
1901 | "i453" | |
1902 | "i451" | |
1903 | "i449" | |
1904 | "i447" | |
1905 | "i445" | |
1906 | "i443" | |
1907 | "i441" | |
1908 | "i439" | |
1909 | "i437" | |
1910 | "i435" | |
1911 | "i433" | |
1912 | "i431" | |
1913 | "i429" | |
1914 | "i427" | |
1915 | "i425" | |
1916 | "i423" | |
1917 | "i421" | |
8f1870f2 | 1918 | "i420" |
b78d91d5 | 1919 | "i419" |
43353663 | 1920 | "i417" |
8f1870f2 | 1921 | "i416" |
381ccb0b | 1922 | "i415" |
d8e4f9e5 | 1923 | "i414" |
381ccb0b | 1924 | "i413" |
43353663 AW |
1925 | "i411" |
1926 | "i409" | |
1927 | "i407" | |
1928 | "i405" | |
1929 | "i403" | |
1930 | "i401" | |
1931 | "i399" | |
1932 | "i397" | |
1933 | "i394" | |
1934 | "i392" | |
8f1870f2 | 1935 | "i391" |
77b79cce | 1936 | "i390" |
381ccb0b | 1937 | "i389" |
d8e4f9e5 | 1938 | "i388" |
381ccb0b | 1939 | "i387" |
d8e4f9e5 | 1940 | "i386" |
381ccb0b | 1941 | "i385" |
d8e4f9e5 | 1942 | "i384" |
43353663 | 1943 | "i382" |
8f1870f2 | 1944 | "i381" |
43353663 AW |
1945 | "i379" |
1946 | "i377" | |
1947 | "i375" | |
1948 | "i373" | |
1949 | "i371" | |
1950 | "i369" | |
1951 | "i367" | |
8f1870f2 | 1952 | "i366" |
381ccb0b | 1953 | "i365" |
d8e4f9e5 | 1954 | "i364" |
381ccb0b | 1955 | "i363" |
d8e4f9e5 | 1956 | "i362" |
43353663 | 1957 | "i360" |
8f1870f2 | 1958 | "i359" |
43353663 AW |
1959 | "i357" |
1960 | "i355" | |
1961 | "i353" | |
1962 | "i351" | |
1963 | "i349" | |
1964 | "i347" | |
1965 | "i345" | |
1966 | "i343" | |
1967 | "i341" | |
1968 | "i339" | |
1969 | "i337" | |
1970 | "i335" | |
1971 | "i333" | |
1972 | "i331" | |
1973 | "i329" | |
1974 | "i327" | |
1975 | "i325" | |
1976 | "i323" | |
1977 | "i321" | |
1978 | "i319" | |
1979 | "i317" | |
1980 | "i315" | |
1981 | "i313" | |
1982 | "i311" | |
1983 | "i309" | |
1984 | "i307" | |
1985 | "i305" | |
1986 | "i303" | |
1987 | "i301" | |
1988 | "i299" | |
1989 | "i297" | |
1990 | "i295" | |
8f1870f2 | 1991 | "i294" |
43353663 AW |
1992 | "i292" |
1993 | "i290" | |
1994 | "i288" | |
1995 | "i286" | |
1996 | "i284" | |
1997 | "i282" | |
1998 | "i280" | |
1999 | "i278" | |
2000 | "i276" | |
2001 | "i273" | |
2002 | "i271" | |
2003 | "i269" | |
2004 | "i267" | |
2005 | "i265" | |
2006 | "i263" | |
2007 | "i261" | |
2008 | "i259" | |
2009 | "i257" | |
2010 | "i255" | |
2011 | "i253" | |
2012 | "i251" | |
2013 | "i249" | |
2014 | "i247" | |
2015 | "i245" | |
2016 | "i243" | |
2017 | "i241" | |
2018 | "i239")) | |
417ee098 AW |
2019 | #(ribcage |
2020 | (define-structure | |
2021 | define-expansion-accessors | |
2022 | define-expansion-constructors | |
2023 | and-map*) | |
2024 | ((top) (top) (top) (top)) | |
43353663 | 2025 | ("i41" "i40" "i39" "i37"))) |
417ee098 AW |
2026 | (hygiene guile))) |
2027 | 'compile | |
43353663 AW |
2028 | (if (#{free-id=?\ 436}# |
2029 | #{x\ 1728}# | |
417ee098 AW |
2030 | '#(syntax-object |
2031 | load | |
2032 | ((top) | |
2033 | #(ribcage () () ()) | |
2034 | #(ribcage () () ()) | |
2035 | #(ribcage () () ()) | |
2036 | #(ribcage | |
2037 | #(x) | |
2038 | #((top)) | |
43353663 | 2039 | #("i1727")) |
417ee098 AW |
2040 | #(ribcage () () ()) |
2041 | #(ribcage | |
2042 | #(f when-list situations) | |
2043 | #((top) (top) (top)) | |
43353663 | 2044 | #("i1721" "i1722" "i1723")) |
417ee098 AW |
2045 | #(ribcage () () ()) |
2046 | #(ribcage | |
2047 | #(e when-list w) | |
2048 | #((top) (top) (top)) | |
43353663 | 2049 | #("i1718" "i1719" "i1720")) |
417ee098 AW |
2050 | #(ribcage |
2051 | (lambda-var-list | |
2052 | gen-var | |
2053 | strip | |
2054 | chi-lambda-case | |
2055 | lambda*-formals | |
2056 | chi-simple-lambda | |
2057 | lambda-formals | |
2058 | ellipsis? | |
2059 | chi-void | |
2060 | eval-local-transformer | |
2061 | chi-local-syntax | |
2062 | chi-body | |
2063 | chi-macro | |
2064 | chi-application | |
2065 | chi-expr | |
2066 | chi | |
417ee098 AW |
2067 | syntax-type |
2068 | chi-when-list | |
2069 | chi-install-global | |
2070 | chi-top-sequence | |
2071 | chi-sequence | |
2072 | source-wrap | |
2073 | wrap | |
2074 | bound-id-member? | |
2075 | distinct-bound-ids? | |
2076 | valid-bound-ids? | |
2077 | bound-id=? | |
2078 | free-id=? | |
2079 | id-var-name | |
2080 | same-marks? | |
2081 | join-marks | |
2082 | join-wraps | |
2083 | smart-append | |
2084 | make-binding-wrap | |
2085 | extend-ribcage! | |
2086 | make-empty-ribcage | |
2087 | new-mark | |
2088 | anti-mark | |
2089 | the-anti-mark | |
2090 | top-marked? | |
2091 | top-wrap | |
2092 | empty-wrap | |
2093 | set-ribcage-labels! | |
2094 | set-ribcage-marks! | |
2095 | set-ribcage-symnames! | |
2096 | ribcage-labels | |
2097 | ribcage-marks | |
2098 | ribcage-symnames | |
2099 | ribcage? | |
2100 | make-ribcage | |
2101 | gen-labels | |
2102 | gen-label | |
2103 | make-rename | |
2104 | rename-marks | |
2105 | rename-new | |
2106 | rename-old | |
2107 | subst-rename? | |
2108 | wrap-subst | |
2109 | wrap-marks | |
2110 | make-wrap | |
2111 | id-sym-name&marks | |
2112 | id-sym-name | |
2113 | id? | |
2114 | nonsymbol-id? | |
2115 | global-extend | |
2116 | lookup | |
2117 | macros-only-env | |
2118 | extend-var-env | |
2119 | extend-env | |
2120 | null-env | |
2121 | binding-value | |
2122 | binding-type | |
2123 | make-binding | |
2124 | arg-check | |
2125 | source-annotation | |
2126 | no-source | |
2127 | set-syntax-object-module! | |
2128 | set-syntax-object-wrap! | |
2129 | set-syntax-object-expression! | |
2130 | syntax-object-module | |
2131 | syntax-object-wrap | |
2132 | syntax-object-expression | |
2133 | syntax-object? | |
2134 | make-syntax-object | |
2135 | build-lexical-var | |
2136 | build-letrec | |
2137 | build-named-let | |
2138 | build-let | |
2139 | build-sequence | |
2140 | build-data | |
2141 | build-primref | |
2142 | build-lambda-case | |
2143 | build-case-lambda | |
2144 | build-simple-lambda | |
2145 | build-global-definition | |
417ee098 AW |
2146 | build-global-assignment |
2147 | build-global-reference | |
2148 | analyze-variable | |
2149 | build-lexical-assignment | |
2150 | build-lexical-reference | |
2151 | build-dynlet | |
2152 | build-conditional | |
2153 | build-application | |
2154 | build-void | |
37620f3f | 2155 | maybe-name-value! |
417ee098 AW |
2156 | decorate-source |
2157 | get-global-definition-hook | |
2158 | put-global-definition-hook | |
2159 | gensym-hook | |
2160 | local-eval-hook | |
2161 | top-level-eval-hook | |
2162 | fx< | |
2163 | fx= | |
2164 | fx- | |
2165 | fx+ | |
2166 | set-lambda-meta! | |
2167 | lambda-meta | |
2168 | lambda? | |
2169 | make-dynlet | |
2170 | make-letrec | |
2171 | make-let | |
2172 | make-lambda-case | |
2173 | make-lambda | |
2174 | make-sequence | |
2175 | make-application | |
2176 | make-conditional | |
2177 | make-toplevel-define | |
2178 | make-toplevel-set | |
2179 | make-toplevel-ref | |
2180 | make-module-set | |
2181 | make-module-ref | |
2182 | make-lexical-set | |
2183 | make-lexical-ref | |
2184 | make-primitive-ref | |
2185 | make-const | |
2186 | make-void) | |
27cbec84 | 2187 | ((top) |
417ee098 AW |
2188 | (top) |
2189 | (top) | |
2190 | (top) | |
2191 | (top) | |
2192 | (top) | |
2193 | (top) | |
2194 | (top) | |
2195 | (top) | |
2196 | (top) | |
2197 | (top) | |
2198 | (top) | |
2199 | (top) | |
2200 | (top) | |
2201 | (top) | |
2202 | (top) | |
2203 | (top) | |
2204 | (top) | |
2205 | (top) | |
2206 | (top) | |
2207 | (top) | |
2208 | (top) | |
2209 | (top) | |
2210 | (top) | |
2211 | (top) | |
2212 | (top) | |
2213 | (top) | |
2214 | (top) | |
2215 | (top) | |
2216 | (top) | |
2217 | (top) | |
2218 | (top) | |
2219 | (top) | |
2220 | (top) | |
2221 | (top) | |
2222 | (top) | |
2223 | (top) | |
2224 | (top) | |
2225 | (top) | |
2226 | (top) | |
2227 | (top) | |
2228 | (top) | |
2229 | (top) | |
2230 | (top) | |
2231 | (top) | |
2232 | (top) | |
2233 | (top) | |
2234 | (top) | |
2235 | (top) | |
2236 | (top) | |
2237 | (top) | |
2238 | (top) | |
2239 | (top) | |
2240 | (top) | |
2241 | (top) | |
2242 | (top) | |
2243 | (top) | |
2244 | (top) | |
2245 | (top) | |
2246 | (top) | |
2247 | (top) | |
2248 | (top) | |
2249 | (top) | |
2250 | (top) | |
2251 | (top) | |
2252 | (top) | |
2253 | (top) | |
2254 | (top) | |
2255 | (top) | |
2256 | (top) | |
2257 | (top) | |
2258 | (top) | |
2259 | (top) | |
2260 | (top) | |
2261 | (top) | |
2262 | (top) | |
2263 | (top) | |
2264 | (top) | |
2265 | (top) | |
2266 | (top) | |
2267 | (top) | |
2268 | (top) | |
2269 | (top) | |
2270 | (top) | |
2271 | (top) | |
2272 | (top) | |
2273 | (top) | |
2274 | (top) | |
2275 | (top) | |
2276 | (top) | |
2277 | (top) | |
2278 | (top) | |
2279 | (top) | |
2280 | (top) | |
2281 | (top) | |
2282 | (top) | |
2283 | (top) | |
2284 | (top) | |
2285 | (top) | |
2286 | (top) | |
2287 | (top) | |
2288 | (top) | |
2289 | (top) | |
2290 | (top) | |
2291 | (top) | |
2292 | (top) | |
2293 | (top) | |
2294 | (top) | |
2295 | (top) | |
2296 | (top) | |
2297 | (top) | |
2298 | (top) | |
2299 | (top) | |
2300 | (top) | |
2301 | (top) | |
2302 | (top) | |
2303 | (top) | |
2304 | (top) | |
2305 | (top) | |
2306 | (top) | |
2307 | (top) | |
2308 | (top) | |
2309 | (top) | |
2310 | (top) | |
2311 | (top) | |
2312 | (top) | |
2313 | (top) | |
2314 | (top) | |
2315 | (top) | |
2316 | (top) | |
2317 | (top) | |
2318 | (top) | |
2319 | (top) | |
2320 | (top) | |
2321 | (top) | |
417ee098 | 2322 | (top)) |
43353663 AW |
2323 | ("i489" |
2324 | "i487" | |
2325 | "i485" | |
2326 | "i483" | |
2327 | "i481" | |
2328 | "i479" | |
2329 | "i477" | |
2330 | "i475" | |
2331 | "i473" | |
2332 | "i471" | |
2333 | "i469" | |
2334 | "i467" | |
2335 | "i465" | |
2336 | "i463" | |
2337 | "i461" | |
2338 | "i459" | |
2339 | "i457" | |
2340 | "i455" | |
2341 | "i453" | |
2342 | "i451" | |
2343 | "i449" | |
2344 | "i447" | |
2345 | "i445" | |
2346 | "i443" | |
2347 | "i441" | |
2348 | "i439" | |
2349 | "i437" | |
2350 | "i435" | |
2351 | "i433" | |
2352 | "i431" | |
2353 | "i429" | |
2354 | "i427" | |
2355 | "i425" | |
2356 | "i423" | |
2357 | "i421" | |
8f1870f2 | 2358 | "i420" |
b78d91d5 | 2359 | "i419" |
43353663 | 2360 | "i417" |
8f1870f2 | 2361 | "i416" |
381ccb0b | 2362 | "i415" |
d8e4f9e5 | 2363 | "i414" |
381ccb0b | 2364 | "i413" |
43353663 AW |
2365 | "i411" |
2366 | "i409" | |
2367 | "i407" | |
2368 | "i405" | |
2369 | "i403" | |
2370 | "i401" | |
2371 | "i399" | |
2372 | "i397" | |
2373 | "i394" | |
2374 | "i392" | |
8f1870f2 | 2375 | "i391" |
77b79cce | 2376 | "i390" |
381ccb0b | 2377 | "i389" |
d8e4f9e5 | 2378 | "i388" |
381ccb0b | 2379 | "i387" |
d8e4f9e5 | 2380 | "i386" |
381ccb0b | 2381 | "i385" |
d8e4f9e5 | 2382 | "i384" |
43353663 | 2383 | "i382" |
8f1870f2 | 2384 | "i381" |
43353663 AW |
2385 | "i379" |
2386 | "i377" | |
2387 | "i375" | |
2388 | "i373" | |
2389 | "i371" | |
2390 | "i369" | |
2391 | "i367" | |
8f1870f2 | 2392 | "i366" |
381ccb0b | 2393 | "i365" |
d8e4f9e5 | 2394 | "i364" |
381ccb0b | 2395 | "i363" |
d8e4f9e5 | 2396 | "i362" |
43353663 | 2397 | "i360" |
8f1870f2 | 2398 | "i359" |
43353663 AW |
2399 | "i357" |
2400 | "i355" | |
2401 | "i353" | |
2402 | "i351" | |
2403 | "i349" | |
2404 | "i347" | |
2405 | "i345" | |
2406 | "i343" | |
2407 | "i341" | |
2408 | "i339" | |
2409 | "i337" | |
2410 | "i335" | |
2411 | "i333" | |
2412 | "i331" | |
2413 | "i329" | |
2414 | "i327" | |
2415 | "i325" | |
2416 | "i323" | |
2417 | "i321" | |
2418 | "i319" | |
2419 | "i317" | |
2420 | "i315" | |
2421 | "i313" | |
2422 | "i311" | |
2423 | "i309" | |
2424 | "i307" | |
2425 | "i305" | |
2426 | "i303" | |
2427 | "i301" | |
2428 | "i299" | |
2429 | "i297" | |
2430 | "i295" | |
8f1870f2 | 2431 | "i294" |
43353663 AW |
2432 | "i292" |
2433 | "i290" | |
2434 | "i288" | |
2435 | "i286" | |
2436 | "i284" | |
2437 | "i282" | |
2438 | "i280" | |
2439 | "i278" | |
2440 | "i276" | |
2441 | "i273" | |
2442 | "i271" | |
2443 | "i269" | |
2444 | "i267" | |
2445 | "i265" | |
2446 | "i263" | |
2447 | "i261" | |
2448 | "i259" | |
2449 | "i257" | |
2450 | "i255" | |
2451 | "i253" | |
2452 | "i251" | |
2453 | "i249" | |
2454 | "i247" | |
2455 | "i245" | |
2456 | "i243" | |
2457 | "i241" | |
2458 | "i239")) | |
417ee098 AW |
2459 | #(ribcage |
2460 | (define-structure | |
2461 | define-expansion-accessors | |
2462 | define-expansion-constructors | |
2463 | and-map*) | |
2464 | ((top) (top) (top) (top)) | |
43353663 | 2465 | ("i41" "i40" "i39" "i37"))) |
417ee098 AW |
2466 | (hygiene guile))) |
2467 | 'load | |
43353663 AW |
2468 | (if (#{free-id=?\ 436}# |
2469 | #{x\ 1728}# | |
417ee098 AW |
2470 | '#(syntax-object |
2471 | eval | |
2472 | ((top) | |
2473 | #(ribcage () () ()) | |
2474 | #(ribcage () () ()) | |
2475 | #(ribcage () () ()) | |
2476 | #(ribcage | |
2477 | #(x) | |
2478 | #((top)) | |
43353663 | 2479 | #("i1727")) |
417ee098 AW |
2480 | #(ribcage () () ()) |
2481 | #(ribcage | |
2482 | #(f when-list situations) | |
2483 | #((top) (top) (top)) | |
43353663 | 2484 | #("i1721" "i1722" "i1723")) |
417ee098 AW |
2485 | #(ribcage () () ()) |
2486 | #(ribcage | |
2487 | #(e when-list w) | |
2488 | #((top) (top) (top)) | |
43353663 | 2489 | #("i1718" "i1719" "i1720")) |
417ee098 AW |
2490 | #(ribcage |
2491 | (lambda-var-list | |
2492 | gen-var | |
2493 | strip | |
2494 | chi-lambda-case | |
2495 | lambda*-formals | |
2496 | chi-simple-lambda | |
2497 | lambda-formals | |
2498 | ellipsis? | |
2499 | chi-void | |
2500 | eval-local-transformer | |
2501 | chi-local-syntax | |
2502 | chi-body | |
2503 | chi-macro | |
2504 | chi-application | |
2505 | chi-expr | |
2506 | chi | |
417ee098 AW |
2507 | syntax-type |
2508 | chi-when-list | |
2509 | chi-install-global | |
2510 | chi-top-sequence | |
2511 | chi-sequence | |
2512 | source-wrap | |
2513 | wrap | |
2514 | bound-id-member? | |
2515 | distinct-bound-ids? | |
2516 | valid-bound-ids? | |
2517 | bound-id=? | |
2518 | free-id=? | |
2519 | id-var-name | |
2520 | same-marks? | |
2521 | join-marks | |
2522 | join-wraps | |
2523 | smart-append | |
2524 | make-binding-wrap | |
2525 | extend-ribcage! | |
2526 | make-empty-ribcage | |
2527 | new-mark | |
2528 | anti-mark | |
2529 | the-anti-mark | |
2530 | top-marked? | |
2531 | top-wrap | |
2532 | empty-wrap | |
2533 | set-ribcage-labels! | |
2534 | set-ribcage-marks! | |
2535 | set-ribcage-symnames! | |
2536 | ribcage-labels | |
2537 | ribcage-marks | |
2538 | ribcage-symnames | |
2539 | ribcage? | |
2540 | make-ribcage | |
2541 | gen-labels | |
2542 | gen-label | |
2543 | make-rename | |
2544 | rename-marks | |
2545 | rename-new | |
2546 | rename-old | |
2547 | subst-rename? | |
2548 | wrap-subst | |
2549 | wrap-marks | |
2550 | make-wrap | |
2551 | id-sym-name&marks | |
2552 | id-sym-name | |
2553 | id? | |
2554 | nonsymbol-id? | |
2555 | global-extend | |
2556 | lookup | |
2557 | macros-only-env | |
2558 | extend-var-env | |
2559 | extend-env | |
2560 | null-env | |
2561 | binding-value | |
2562 | binding-type | |
2563 | make-binding | |
2564 | arg-check | |
2565 | source-annotation | |
2566 | no-source | |
2567 | set-syntax-object-module! | |
2568 | set-syntax-object-wrap! | |
2569 | set-syntax-object-expression! | |
2570 | syntax-object-module | |
2571 | syntax-object-wrap | |
2572 | syntax-object-expression | |
2573 | syntax-object? | |
2574 | make-syntax-object | |
2575 | build-lexical-var | |
2576 | build-letrec | |
2577 | build-named-let | |
2578 | build-let | |
2579 | build-sequence | |
2580 | build-data | |
2581 | build-primref | |
2582 | build-lambda-case | |
2583 | build-case-lambda | |
2584 | build-simple-lambda | |
2585 | build-global-definition | |
417ee098 AW |
2586 | build-global-assignment |
2587 | build-global-reference | |
2588 | analyze-variable | |
2589 | build-lexical-assignment | |
2590 | build-lexical-reference | |
2591 | build-dynlet | |
2592 | build-conditional | |
2593 | build-application | |
2594 | build-void | |
37620f3f | 2595 | maybe-name-value! |
417ee098 AW |
2596 | decorate-source |
2597 | get-global-definition-hook | |
2598 | put-global-definition-hook | |
2599 | gensym-hook | |
2600 | local-eval-hook | |
2601 | top-level-eval-hook | |
2602 | fx< | |
2603 | fx= | |
2604 | fx- | |
2605 | fx+ | |
2606 | set-lambda-meta! | |
2607 | lambda-meta | |
2608 | lambda? | |
2609 | make-dynlet | |
2610 | make-letrec | |
2611 | make-let | |
2612 | make-lambda-case | |
2613 | make-lambda | |
2614 | make-sequence | |
2615 | make-application | |
2616 | make-conditional | |
2617 | make-toplevel-define | |
2618 | make-toplevel-set | |
2619 | make-toplevel-ref | |
2620 | make-module-set | |
2621 | make-module-ref | |
2622 | make-lexical-set | |
2623 | make-lexical-ref | |
2624 | make-primitive-ref | |
2625 | make-const | |
2626 | make-void) | |
2627 | ((top) | |
2628 | (top) | |
2629 | (top) | |
2630 | (top) | |
2631 | (top) | |
2632 | (top) | |
2633 | (top) | |
2634 | (top) | |
2635 | (top) | |
2636 | (top) | |
2637 | (top) | |
2638 | (top) | |
2639 | (top) | |
2640 | (top) | |
2641 | (top) | |
2642 | (top) | |
2643 | (top) | |
2644 | (top) | |
2645 | (top) | |
2646 | (top) | |
2647 | (top) | |
2648 | (top) | |
2649 | (top) | |
2650 | (top) | |
2651 | (top) | |
2652 | (top) | |
2653 | (top) | |
2654 | (top) | |
2655 | (top) | |
2656 | (top) | |
2657 | (top) | |
2658 | (top) | |
2659 | (top) | |
2660 | (top) | |
2661 | (top) | |
2662 | (top) | |
2663 | (top) | |
2664 | (top) | |
2665 | (top) | |
2666 | (top) | |
2667 | (top) | |
2668 | (top) | |
2669 | (top) | |
2670 | (top) | |
2671 | (top) | |
2672 | (top) | |
2673 | (top) | |
2674 | (top) | |
2675 | (top) | |
2676 | (top) | |
2677 | (top) | |
2678 | (top) | |
2679 | (top) | |
2680 | (top) | |
2681 | (top) | |
2682 | (top) | |
2683 | (top) | |
2684 | (top) | |
2685 | (top) | |
2686 | (top) | |
2687 | (top) | |
2688 | (top) | |
2689 | (top) | |
2690 | (top) | |
2691 | (top) | |
2692 | (top) | |
2693 | (top) | |
2694 | (top) | |
2695 | (top) | |
2696 | (top) | |
2697 | (top) | |
2698 | (top) | |
2699 | (top) | |
2700 | (top) | |
2701 | (top) | |
2702 | (top) | |
2703 | (top) | |
2704 | (top) | |
2705 | (top) | |
2706 | (top) | |
2707 | (top) | |
2708 | (top) | |
2709 | (top) | |
2710 | (top) | |
2711 | (top) | |
2712 | (top) | |
2713 | (top) | |
2714 | (top) | |
2715 | (top) | |
2716 | (top) | |
2717 | (top) | |
2718 | (top) | |
2719 | (top) | |
2720 | (top) | |
2721 | (top) | |
2722 | (top) | |
2723 | (top) | |
2724 | (top) | |
2725 | (top) | |
2726 | (top) | |
2727 | (top) | |
2728 | (top) | |
2729 | (top) | |
2730 | (top) | |
2731 | (top) | |
2732 | (top) | |
2733 | (top) | |
2734 | (top) | |
2735 | (top) | |
2736 | (top) | |
2737 | (top) | |
2738 | (top) | |
2739 | (top) | |
2740 | (top) | |
2741 | (top) | |
2742 | (top) | |
2743 | (top) | |
2744 | (top) | |
2745 | (top) | |
2746 | (top) | |
2747 | (top) | |
2748 | (top) | |
2749 | (top) | |
2750 | (top) | |
2751 | (top) | |
2752 | (top) | |
2753 | (top) | |
2754 | (top) | |
2755 | (top) | |
2756 | (top) | |
2757 | (top) | |
2758 | (top) | |
2759 | (top) | |
2760 | (top) | |
2761 | (top) | |
417ee098 | 2762 | (top)) |
43353663 AW |
2763 | ("i489" |
2764 | "i487" | |
2765 | "i485" | |
2766 | "i483" | |
2767 | "i481" | |
2768 | "i479" | |
2769 | "i477" | |
2770 | "i475" | |
2771 | "i473" | |
2772 | "i471" | |
2773 | "i469" | |
2774 | "i467" | |
2775 | "i465" | |
2776 | "i463" | |
2777 | "i461" | |
2778 | "i459" | |
2779 | "i457" | |
2780 | "i455" | |
2781 | "i453" | |
2782 | "i451" | |
2783 | "i449" | |
2784 | "i447" | |
2785 | "i445" | |
2786 | "i443" | |
2787 | "i441" | |
2788 | "i439" | |
2789 | "i437" | |
2790 | "i435" | |
2791 | "i433" | |
2792 | "i431" | |
2793 | "i429" | |
2794 | "i427" | |
2795 | "i425" | |
2796 | "i423" | |
2797 | "i421" | |
8f1870f2 | 2798 | "i420" |
b78d91d5 | 2799 | "i419" |
43353663 | 2800 | "i417" |
8f1870f2 | 2801 | "i416" |
381ccb0b | 2802 | "i415" |
d8e4f9e5 | 2803 | "i414" |
381ccb0b | 2804 | "i413" |
43353663 AW |
2805 | "i411" |
2806 | "i409" | |
2807 | "i407" | |
2808 | "i405" | |
2809 | "i403" | |
2810 | "i401" | |
2811 | "i399" | |
2812 | "i397" | |
2813 | "i394" | |
2814 | "i392" | |
8f1870f2 | 2815 | "i391" |
77b79cce | 2816 | "i390" |
381ccb0b | 2817 | "i389" |
d8e4f9e5 | 2818 | "i388" |
381ccb0b | 2819 | "i387" |
d8e4f9e5 | 2820 | "i386" |
381ccb0b | 2821 | "i385" |
d8e4f9e5 | 2822 | "i384" |
43353663 | 2823 | "i382" |
8f1870f2 | 2824 | "i381" |
43353663 AW |
2825 | "i379" |
2826 | "i377" | |
2827 | "i375" | |
2828 | "i373" | |
2829 | "i371" | |
2830 | "i369" | |
2831 | "i367" | |
8f1870f2 | 2832 | "i366" |
381ccb0b | 2833 | "i365" |
d8e4f9e5 | 2834 | "i364" |
381ccb0b | 2835 | "i363" |
d8e4f9e5 | 2836 | "i362" |
43353663 | 2837 | "i360" |
8f1870f2 | 2838 | "i359" |
43353663 AW |
2839 | "i357" |
2840 | "i355" | |
2841 | "i353" | |
2842 | "i351" | |
2843 | "i349" | |
2844 | "i347" | |
2845 | "i345" | |
2846 | "i343" | |
2847 | "i341" | |
2848 | "i339" | |
2849 | "i337" | |
2850 | "i335" | |
2851 | "i333" | |
2852 | "i331" | |
2853 | "i329" | |
2854 | "i327" | |
2855 | "i325" | |
2856 | "i323" | |
2857 | "i321" | |
2858 | "i319" | |
2859 | "i317" | |
2860 | "i315" | |
2861 | "i313" | |
2862 | "i311" | |
2863 | "i309" | |
2864 | "i307" | |
2865 | "i305" | |
2866 | "i303" | |
2867 | "i301" | |
2868 | "i299" | |
2869 | "i297" | |
2870 | "i295" | |
8f1870f2 | 2871 | "i294" |
43353663 AW |
2872 | "i292" |
2873 | "i290" | |
2874 | "i288" | |
2875 | "i286" | |
2876 | "i284" | |
2877 | "i282" | |
2878 | "i280" | |
2879 | "i278" | |
2880 | "i276" | |
2881 | "i273" | |
2882 | "i271" | |
2883 | "i269" | |
2884 | "i267" | |
2885 | "i265" | |
2886 | "i263" | |
2887 | "i261" | |
2888 | "i259" | |
2889 | "i257" | |
2890 | "i255" | |
2891 | "i253" | |
2892 | "i251" | |
2893 | "i249" | |
2894 | "i247" | |
2895 | "i245" | |
2896 | "i243" | |
2897 | "i241" | |
2898 | "i239")) | |
417ee098 AW |
2899 | #(ribcage |
2900 | (define-structure | |
2901 | define-expansion-accessors | |
2902 | define-expansion-constructors | |
2903 | and-map*) | |
2904 | ((top) (top) (top) (top)) | |
43353663 | 2905 | ("i41" "i40" "i39" "i37"))) |
417ee098 AW |
2906 | (hygiene guile))) |
2907 | 'eval | |
43353663 AW |
2908 | (if (#{free-id=?\ 436}# |
2909 | #{x\ 1728}# | |
417ee098 AW |
2910 | '#(syntax-object |
2911 | expand | |
2912 | ((top) | |
2913 | #(ribcage () () ()) | |
2914 | #(ribcage () () ()) | |
2915 | #(ribcage () () ()) | |
2916 | #(ribcage | |
2917 | #(x) | |
2918 | #((top)) | |
43353663 | 2919 | #("i1727")) |
417ee098 AW |
2920 | #(ribcage () () ()) |
2921 | #(ribcage | |
2922 | #(f when-list situations) | |
2923 | #((top) (top) (top)) | |
43353663 | 2924 | #("i1721" "i1722" "i1723")) |
417ee098 AW |
2925 | #(ribcage () () ()) |
2926 | #(ribcage | |
2927 | #(e when-list w) | |
2928 | #((top) (top) (top)) | |
43353663 | 2929 | #("i1718" "i1719" "i1720")) |
417ee098 AW |
2930 | #(ribcage |
2931 | (lambda-var-list | |
2932 | gen-var | |
2933 | strip | |
2934 | chi-lambda-case | |
2935 | lambda*-formals | |
2936 | chi-simple-lambda | |
2937 | lambda-formals | |
2938 | ellipsis? | |
2939 | chi-void | |
2940 | eval-local-transformer | |
2941 | chi-local-syntax | |
2942 | chi-body | |
2943 | chi-macro | |
2944 | chi-application | |
2945 | chi-expr | |
2946 | chi | |
417ee098 AW |
2947 | syntax-type |
2948 | chi-when-list | |
2949 | chi-install-global | |
2950 | chi-top-sequence | |
2951 | chi-sequence | |
2952 | source-wrap | |
2953 | wrap | |
2954 | bound-id-member? | |
2955 | distinct-bound-ids? | |
2956 | valid-bound-ids? | |
2957 | bound-id=? | |
2958 | free-id=? | |
2959 | id-var-name | |
2960 | same-marks? | |
2961 | join-marks | |
2962 | join-wraps | |
2963 | smart-append | |
2964 | make-binding-wrap | |
2965 | extend-ribcage! | |
2966 | make-empty-ribcage | |
2967 | new-mark | |
2968 | anti-mark | |
2969 | the-anti-mark | |
2970 | top-marked? | |
2971 | top-wrap | |
2972 | empty-wrap | |
2973 | set-ribcage-labels! | |
2974 | set-ribcage-marks! | |
2975 | set-ribcage-symnames! | |
2976 | ribcage-labels | |
2977 | ribcage-marks | |
2978 | ribcage-symnames | |
2979 | ribcage? | |
2980 | make-ribcage | |
2981 | gen-labels | |
2982 | gen-label | |
2983 | make-rename | |
2984 | rename-marks | |
2985 | rename-new | |
2986 | rename-old | |
2987 | subst-rename? | |
2988 | wrap-subst | |
2989 | wrap-marks | |
2990 | make-wrap | |
2991 | id-sym-name&marks | |
2992 | id-sym-name | |
2993 | id? | |
2994 | nonsymbol-id? | |
2995 | global-extend | |
2996 | lookup | |
2997 | macros-only-env | |
2998 | extend-var-env | |
2999 | extend-env | |
3000 | null-env | |
3001 | binding-value | |
3002 | binding-type | |
3003 | make-binding | |
3004 | arg-check | |
3005 | source-annotation | |
3006 | no-source | |
3007 | set-syntax-object-module! | |
3008 | set-syntax-object-wrap! | |
3009 | set-syntax-object-expression! | |
3010 | syntax-object-module | |
3011 | syntax-object-wrap | |
3012 | syntax-object-expression | |
3013 | syntax-object? | |
3014 | make-syntax-object | |
3015 | build-lexical-var | |
3016 | build-letrec | |
3017 | build-named-let | |
3018 | build-let | |
3019 | build-sequence | |
3020 | build-data | |
3021 | build-primref | |
3022 | build-lambda-case | |
3023 | build-case-lambda | |
3024 | build-simple-lambda | |
3025 | build-global-definition | |
417ee098 AW |
3026 | build-global-assignment |
3027 | build-global-reference | |
3028 | analyze-variable | |
3029 | build-lexical-assignment | |
3030 | build-lexical-reference | |
3031 | build-dynlet | |
3032 | build-conditional | |
3033 | build-application | |
3034 | build-void | |
37620f3f | 3035 | maybe-name-value! |
417ee098 AW |
3036 | decorate-source |
3037 | get-global-definition-hook | |
3038 | put-global-definition-hook | |
3039 | gensym-hook | |
3040 | local-eval-hook | |
3041 | top-level-eval-hook | |
3042 | fx< | |
3043 | fx= | |
3044 | fx- | |
3045 | fx+ | |
3046 | set-lambda-meta! | |
3047 | lambda-meta | |
3048 | lambda? | |
3049 | make-dynlet | |
3050 | make-letrec | |
3051 | make-let | |
3052 | make-lambda-case | |
3053 | make-lambda | |
3054 | make-sequence | |
3055 | make-application | |
3056 | make-conditional | |
3057 | make-toplevel-define | |
3058 | make-toplevel-set | |
3059 | make-toplevel-ref | |
3060 | make-module-set | |
3061 | make-module-ref | |
3062 | make-lexical-set | |
3063 | make-lexical-ref | |
3064 | make-primitive-ref | |
3065 | make-const | |
3066 | make-void) | |
3067 | ((top) | |
3068 | (top) | |
3069 | (top) | |
3070 | (top) | |
3071 | (top) | |
3072 | (top) | |
3073 | (top) | |
3074 | (top) | |
3075 | (top) | |
3076 | (top) | |
3077 | (top) | |
3078 | (top) | |
3079 | (top) | |
3080 | (top) | |
3081 | (top) | |
3082 | (top) | |
3083 | (top) | |
3084 | (top) | |
3085 | (top) | |
3086 | (top) | |
3087 | (top) | |
3088 | (top) | |
3089 | (top) | |
3090 | (top) | |
3091 | (top) | |
3092 | (top) | |
3093 | (top) | |
3094 | (top) | |
3095 | (top) | |
3096 | (top) | |
3097 | (top) | |
3098 | (top) | |
3099 | (top) | |
3100 | (top) | |
3101 | (top) | |
3102 | (top) | |
3103 | (top) | |
3104 | (top) | |
3105 | (top) | |
3106 | (top) | |
3107 | (top) | |
3108 | (top) | |
3109 | (top) | |
3110 | (top) | |
3111 | (top) | |
3112 | (top) | |
3113 | (top) | |
3114 | (top) | |
3115 | (top) | |
3116 | (top) | |
3117 | (top) | |
3118 | (top) | |
3119 | (top) | |
3120 | (top) | |
3121 | (top) | |
3122 | (top) | |
3123 | (top) | |
3124 | (top) | |
3125 | (top) | |
3126 | (top) | |
3127 | (top) | |
3128 | (top) | |
3129 | (top) | |
3130 | (top) | |
3131 | (top) | |
3132 | (top) | |
3133 | (top) | |
3134 | (top) | |
3135 | (top) | |
3136 | (top) | |
3137 | (top) | |
3138 | (top) | |
3139 | (top) | |
3140 | (top) | |
3141 | (top) | |
3142 | (top) | |
3143 | (top) | |
3144 | (top) | |
3145 | (top) | |
3146 | (top) | |
3147 | (top) | |
3148 | (top) | |
3149 | (top) | |
3150 | (top) | |
3151 | (top) | |
3152 | (top) | |
3153 | (top) | |
3154 | (top) | |
3155 | (top) | |
3156 | (top) | |
3157 | (top) | |
3158 | (top) | |
3159 | (top) | |
3160 | (top) | |
3161 | (top) | |
3162 | (top) | |
3163 | (top) | |
3164 | (top) | |
3165 | (top) | |
3166 | (top) | |
3167 | (top) | |
3168 | (top) | |
3169 | (top) | |
3170 | (top) | |
3171 | (top) | |
3172 | (top) | |
3173 | (top) | |
3174 | (top) | |
3175 | (top) | |
3176 | (top) | |
3177 | (top) | |
3178 | (top) | |
3179 | (top) | |
3180 | (top) | |
3181 | (top) | |
3182 | (top) | |
3183 | (top) | |
3184 | (top) | |
3185 | (top) | |
3186 | (top) | |
3187 | (top) | |
3188 | (top) | |
3189 | (top) | |
3190 | (top) | |
3191 | (top) | |
3192 | (top) | |
3193 | (top) | |
3194 | (top) | |
3195 | (top) | |
3196 | (top) | |
3197 | (top) | |
3198 | (top) | |
3199 | (top) | |
3200 | (top) | |
3201 | (top) | |
417ee098 | 3202 | (top)) |
43353663 AW |
3203 | ("i489" |
3204 | "i487" | |
3205 | "i485" | |
3206 | "i483" | |
3207 | "i481" | |
3208 | "i479" | |
3209 | "i477" | |
3210 | "i475" | |
3211 | "i473" | |
3212 | "i471" | |
3213 | "i469" | |
3214 | "i467" | |
3215 | "i465" | |
3216 | "i463" | |
3217 | "i461" | |
3218 | "i459" | |
3219 | "i457" | |
3220 | "i455" | |
3221 | "i453" | |
3222 | "i451" | |
3223 | "i449" | |
3224 | "i447" | |
3225 | "i445" | |
3226 | "i443" | |
3227 | "i441" | |
3228 | "i439" | |
3229 | "i437" | |
3230 | "i435" | |
3231 | "i433" | |
3232 | "i431" | |
3233 | "i429" | |
3234 | "i427" | |
3235 | "i425" | |
3236 | "i423" | |
3237 | "i421" | |
8f1870f2 | 3238 | "i420" |
b78d91d5 | 3239 | "i419" |
43353663 | 3240 | "i417" |
8f1870f2 | 3241 | "i416" |
381ccb0b | 3242 | "i415" |
d8e4f9e5 | 3243 | "i414" |
381ccb0b | 3244 | "i413" |
43353663 AW |
3245 | "i411" |
3246 | "i409" | |
3247 | "i407" | |
3248 | "i405" | |
3249 | "i403" | |
3250 | "i401" | |
3251 | "i399" | |
3252 | "i397" | |
3253 | "i394" | |
3254 | "i392" | |
8f1870f2 | 3255 | "i391" |
77b79cce | 3256 | "i390" |
381ccb0b | 3257 | "i389" |
d8e4f9e5 | 3258 | "i388" |
381ccb0b | 3259 | "i387" |
d8e4f9e5 | 3260 | "i386" |
381ccb0b | 3261 | "i385" |
d8e4f9e5 | 3262 | "i384" |
43353663 | 3263 | "i382" |
8f1870f2 | 3264 | "i381" |
43353663 AW |
3265 | "i379" |
3266 | "i377" | |
3267 | "i375" | |
3268 | "i373" | |
3269 | "i371" | |
3270 | "i369" | |
3271 | "i367" | |
8f1870f2 | 3272 | "i366" |
381ccb0b | 3273 | "i365" |
d8e4f9e5 | 3274 | "i364" |
381ccb0b | 3275 | "i363" |
d8e4f9e5 | 3276 | "i362" |
43353663 | 3277 | "i360" |
8f1870f2 | 3278 | "i359" |
43353663 AW |
3279 | "i357" |
3280 | "i355" | |
3281 | "i353" | |
3282 | "i351" | |
3283 | "i349" | |
3284 | "i347" | |
3285 | "i345" | |
3286 | "i343" | |
3287 | "i341" | |
3288 | "i339" | |
3289 | "i337" | |
3290 | "i335" | |
3291 | "i333" | |
3292 | "i331" | |
3293 | "i329" | |
3294 | "i327" | |
3295 | "i325" | |
3296 | "i323" | |
3297 | "i321" | |
3298 | "i319" | |
3299 | "i317" | |
3300 | "i315" | |
3301 | "i313" | |
3302 | "i311" | |
3303 | "i309" | |
3304 | "i307" | |
3305 | "i305" | |
3306 | "i303" | |
3307 | "i301" | |
3308 | "i299" | |
3309 | "i297" | |
3310 | "i295" | |
8f1870f2 | 3311 | "i294" |
43353663 AW |
3312 | "i292" |
3313 | "i290" | |
3314 | "i288" | |
3315 | "i286" | |
3316 | "i284" | |
3317 | "i282" | |
3318 | "i280" | |
3319 | "i278" | |
3320 | "i276" | |
3321 | "i273" | |
3322 | "i271" | |
3323 | "i269" | |
3324 | "i267" | |
3325 | "i265" | |
3326 | "i263" | |
3327 | "i261" | |
3328 | "i259" | |
3329 | "i257" | |
3330 | "i255" | |
3331 | "i253" | |
3332 | "i251" | |
3333 | "i249" | |
3334 | "i247" | |
3335 | "i245" | |
3336 | "i243" | |
3337 | "i241" | |
3338 | "i239")) | |
417ee098 AW |
3339 | #(ribcage |
3340 | (define-structure | |
3341 | define-expansion-accessors | |
3342 | define-expansion-constructors | |
3343 | and-map*) | |
3344 | ((top) (top) (top) (top)) | |
43353663 | 3345 | ("i41" "i40" "i39" "i37"))) |
417ee098 AW |
3346 | (hygiene guile))) |
3347 | 'expand | |
3348 | (syntax-violation | |
3349 | 'eval-when | |
3350 | "invalid situation" | |
43353663 AW |
3351 | #{e\ 1715}# |
3352 | (#{wrap\ 446}# | |
3353 | #{x\ 1728}# | |
3354 | #{w\ 1717}# | |
5f8c55ce | 3355 | #f)))))))) |
43353663 AW |
3356 | #{situations\ 1726}#)))))) |
3357 | (begin (#{f\ 1724}# #{when-list\ 1716}# '()))))) | |
3358 | (#{syntax-type\ 458}# | |
3359 | (lambda (#{e\ 1738}# | |
3360 | #{r\ 1739}# | |
3361 | #{w\ 1740}# | |
3362 | #{s\ 1741}# | |
3363 | #{rib\ 1742}# | |
3364 | #{mod\ 1743}# | |
3365 | #{for-car?\ 1744}#) | |
3366 | (if (symbol? #{e\ 1738}#) | |
5f8c55ce | 3367 | (begin |
43353663 AW |
3368 | (let ((#{n\ 1756}# |
3369 | (#{id-var-name\ 434}# #{e\ 1738}# #{w\ 1740}#))) | |
5f8c55ce | 3370 | (begin |
43353663 AW |
3371 | (let ((#{b\ 1758}# |
3372 | (#{lookup\ 374}# | |
3373 | #{n\ 1756}# | |
3374 | #{r\ 1739}# | |
3375 | #{mod\ 1743}#))) | |
5f8c55ce | 3376 | (begin |
43353663 AW |
3377 | (let ((#{type\ 1760}# (car #{b\ 1758}#))) |
3378 | (if (eqv? #{type\ 1760}# 'lexical) | |
5f8c55ce | 3379 | (values |
43353663 AW |
3380 | #{type\ 1760}# |
3381 | (cdr #{b\ 1758}#) | |
3382 | #{e\ 1738}# | |
3383 | #{w\ 1740}# | |
3384 | #{s\ 1741}# | |
3385 | #{mod\ 1743}#) | |
3386 | (if (eqv? #{type\ 1760}# 'global) | |
5f8c55ce | 3387 | (values |
43353663 AW |
3388 | #{type\ 1760}# |
3389 | #{n\ 1756}# | |
3390 | #{e\ 1738}# | |
3391 | #{w\ 1740}# | |
3392 | #{s\ 1741}# | |
3393 | #{mod\ 1743}#) | |
3394 | (if (eqv? #{type\ 1760}# 'macro) | |
3395 | (if #{for-car?\ 1744}# | |
5f8c55ce | 3396 | (values |
43353663 AW |
3397 | #{type\ 1760}# |
3398 | (cdr #{b\ 1758}#) | |
3399 | #{e\ 1738}# | |
3400 | #{w\ 1740}# | |
3401 | #{s\ 1741}# | |
3402 | #{mod\ 1743}#) | |
3403 | (#{syntax-type\ 458}# | |
3404 | (#{chi-macro\ 466}# | |
3405 | (cdr #{b\ 1758}#) | |
3406 | #{e\ 1738}# | |
3407 | #{r\ 1739}# | |
3408 | #{w\ 1740}# | |
3409 | #{s\ 1741}# | |
3410 | #{rib\ 1742}# | |
3411 | #{mod\ 1743}#) | |
3412 | #{r\ 1739}# | |
5f8c55ce | 3413 | '(()) |
43353663 AW |
3414 | #{s\ 1741}# |
3415 | #{rib\ 1742}# | |
3416 | #{mod\ 1743}# | |
5f8c55ce AW |
3417 | #f)) |
3418 | (values | |
43353663 AW |
3419 | #{type\ 1760}# |
3420 | (cdr #{b\ 1758}#) | |
3421 | #{e\ 1738}# | |
3422 | #{w\ 1740}# | |
3423 | #{s\ 1741}# | |
3424 | #{mod\ 1743}#)))))))))) | |
3425 | (if (pair? #{e\ 1738}#) | |
5f8c55ce | 3426 | (begin |
43353663 | 3427 | (let ((#{first\ 1774}# (car #{e\ 1738}#))) |
5f8c55ce AW |
3428 | (call-with-values |
3429 | (lambda () | |
43353663 AW |
3430 | (#{syntax-type\ 458}# |
3431 | #{first\ 1774}# | |
3432 | #{r\ 1739}# | |
3433 | #{w\ 1740}# | |
3434 | #{s\ 1741}# | |
3435 | #{rib\ 1742}# | |
3436 | #{mod\ 1743}# | |
5f8c55ce | 3437 | #t)) |
43353663 AW |
3438 | (lambda (#{ftype\ 1775}# |
3439 | #{fval\ 1776}# | |
3440 | #{fe\ 1777}# | |
3441 | #{fw\ 1778}# | |
3442 | #{fs\ 1779}# | |
3443 | #{fmod\ 1780}#) | |
3444 | (if (eqv? #{ftype\ 1775}# 'lexical) | |
5f8c55ce AW |
3445 | (values |
3446 | 'lexical-call | |
43353663 AW |
3447 | #{fval\ 1776}# |
3448 | #{e\ 1738}# | |
3449 | #{w\ 1740}# | |
3450 | #{s\ 1741}# | |
3451 | #{mod\ 1743}#) | |
3452 | (if (eqv? #{ftype\ 1775}# 'global) | |
5f8c55ce AW |
3453 | (values |
3454 | 'global-call | |
43353663 AW |
3455 | (#{make-syntax-object\ 344}# |
3456 | #{fval\ 1776}# | |
3457 | #{w\ 1740}# | |
3458 | #{fmod\ 1780}#) | |
3459 | #{e\ 1738}# | |
3460 | #{w\ 1740}# | |
3461 | #{s\ 1741}# | |
3462 | #{mod\ 1743}#) | |
3463 | (if (eqv? #{ftype\ 1775}# 'macro) | |
3464 | (#{syntax-type\ 458}# | |
3465 | (#{chi-macro\ 466}# | |
3466 | #{fval\ 1776}# | |
3467 | #{e\ 1738}# | |
3468 | #{r\ 1739}# | |
3469 | #{w\ 1740}# | |
3470 | #{s\ 1741}# | |
3471 | #{rib\ 1742}# | |
3472 | #{mod\ 1743}#) | |
3473 | #{r\ 1739}# | |
5f8c55ce | 3474 | '(()) |
43353663 AW |
3475 | #{s\ 1741}# |
3476 | #{rib\ 1742}# | |
3477 | #{mod\ 1743}# | |
3478 | #{for-car?\ 1744}#) | |
3479 | (if (eqv? #{ftype\ 1775}# 'module-ref) | |
5f8c55ce AW |
3480 | (call-with-values |
3481 | (lambda () | |
43353663 AW |
3482 | (#{fval\ 1776}# |
3483 | #{e\ 1738}# | |
3484 | #{r\ 1739}# | |
3485 | #{w\ 1740}#)) | |
3486 | (lambda (#{e\ 1792}# | |
3487 | #{r\ 1793}# | |
3488 | #{w\ 1794}# | |
3489 | #{s\ 1795}# | |
3490 | #{mod\ 1796}#) | |
3491 | (#{syntax-type\ 458}# | |
3492 | #{e\ 1792}# | |
3493 | #{r\ 1793}# | |
3494 | #{w\ 1794}# | |
3495 | #{s\ 1795}# | |
3496 | #{rib\ 1742}# | |
3497 | #{mod\ 1796}# | |
3498 | #{for-car?\ 1744}#))) | |
3499 | (if (eqv? #{ftype\ 1775}# 'core) | |
5f8c55ce AW |
3500 | (values |
3501 | 'core-form | |
43353663 AW |
3502 | #{fval\ 1776}# |
3503 | #{e\ 1738}# | |
3504 | #{w\ 1740}# | |
3505 | #{s\ 1741}# | |
3506 | #{mod\ 1743}#) | |
3507 | (if (eqv? #{ftype\ 1775}# 'local-syntax) | |
5f8c55ce AW |
3508 | (values |
3509 | 'local-syntax-form | |
43353663 AW |
3510 | #{fval\ 1776}# |
3511 | #{e\ 1738}# | |
3512 | #{w\ 1740}# | |
3513 | #{s\ 1741}# | |
3514 | #{mod\ 1743}#) | |
3515 | (if (eqv? #{ftype\ 1775}# 'begin) | |
5f8c55ce AW |
3516 | (values |
3517 | 'begin-form | |
3518 | #f | |
43353663 AW |
3519 | #{e\ 1738}# |
3520 | #{w\ 1740}# | |
3521 | #{s\ 1741}# | |
3522 | #{mod\ 1743}#) | |
3523 | (if (eqv? #{ftype\ 1775}# 'eval-when) | |
5f8c55ce AW |
3524 | (values |
3525 | 'eval-when-form | |
3526 | #f | |
43353663 AW |
3527 | #{e\ 1738}# |
3528 | #{w\ 1740}# | |
3529 | #{s\ 1741}# | |
3530 | #{mod\ 1743}#) | |
3531 | (if (eqv? #{ftype\ 1775}# 'define) | |
3532 | (let ((#{tmp\ 1807}# #{e\ 1738}#)) | |
3533 | (let ((#{tmp\ 1808}# | |
5f8c55ce | 3534 | ($sc-dispatch |
43353663 | 3535 | #{tmp\ 1807}# |
b78d91d5 | 3536 | '(_ any any)))) |
43353663 | 3537 | (if (if #{tmp\ 1808}# |
5f8c55ce | 3538 | (@apply |
43353663 AW |
3539 | (lambda (#{name\ 1811}# |
3540 | #{val\ 1812}#) | |
3541 | (#{id?\ 380}# | |
3542 | #{name\ 1811}#)) | |
3543 | #{tmp\ 1808}#) | |
5f8c55ce AW |
3544 | #f) |
3545 | (@apply | |
43353663 AW |
3546 | (lambda (#{name\ 1815}# |
3547 | #{val\ 1816}#) | |
5f8c55ce AW |
3548 | (values |
3549 | 'define-form | |
43353663 AW |
3550 | #{name\ 1815}# |
3551 | #{val\ 1816}# | |
3552 | #{w\ 1740}# | |
3553 | #{s\ 1741}# | |
3554 | #{mod\ 1743}#)) | |
3555 | #{tmp\ 1808}#) | |
3556 | (let ((#{tmp\ 1817}# | |
5f8c55ce | 3557 | ($sc-dispatch |
43353663 | 3558 | #{tmp\ 1807}# |
b78d91d5 AW |
3559 | '(_ (any . any) |
3560 | any | |
3561 | . | |
3562 | each-any)))) | |
43353663 | 3563 | (if (if #{tmp\ 1817}# |
5f8c55ce | 3564 | (@apply |
43353663 AW |
3565 | (lambda (#{name\ 1822}# |
3566 | #{args\ 1823}# | |
3567 | #{e1\ 1824}# | |
3568 | #{e2\ 1825}#) | |
3569 | (if (#{id?\ 380}# | |
3570 | #{name\ 1822}#) | |
3571 | (#{valid-bound-ids?\ 440}# | |
3572 | (#{lambda-var-list\ 490}# | |
3573 | #{args\ 1823}#)) | |
5f8c55ce | 3574 | #f)) |
43353663 | 3575 | #{tmp\ 1817}#) |
5f8c55ce AW |
3576 | #f) |
3577 | (@apply | |
43353663 AW |
3578 | (lambda (#{name\ 1832}# |
3579 | #{args\ 1833}# | |
3580 | #{e1\ 1834}# | |
3581 | #{e2\ 1835}#) | |
5f8c55ce AW |
3582 | (values |
3583 | 'define-form | |
43353663 AW |
3584 | (#{wrap\ 446}# |
3585 | #{name\ 1832}# | |
3586 | #{w\ 1740}# | |
3587 | #{mod\ 1743}#) | |
3588 | (#{decorate-source\ 300}# | |
5f8c55ce AW |
3589 | (cons '#(syntax-object |
3590 | lambda | |
3591 | ((top) | |
3592 | #(ribcage | |
b78d91d5 | 3593 | #(name |
5f8c55ce AW |
3594 | args |
3595 | e1 | |
3596 | e2) | |
3597 | #((top) | |
5f8c55ce AW |
3598 | (top) |
3599 | (top) | |
3600 | (top)) | |
43353663 AW |
3601 | #("i1828" |
3602 | "i1829" | |
3603 | "i1830" | |
3604 | "i1831")) | |
5f8c55ce AW |
3605 | #(ribcage |
3606 | () | |
3607 | () | |
3608 | ()) | |
3609 | #(ribcage | |
3610 | () | |
3611 | () | |
3612 | ()) | |
3613 | #(ribcage | |
3614 | #(ftype | |
3615 | fval | |
3616 | fe | |
3617 | fw | |
3618 | fs | |
3619 | fmod) | |
3620 | #((top) | |
3621 | (top) | |
3622 | (top) | |
3623 | (top) | |
3624 | (top) | |
3625 | (top)) | |
43353663 AW |
3626 | #("i1781" |
3627 | "i1782" | |
3628 | "i1783" | |
3629 | "i1784" | |
3630 | "i1785" | |
3631 | "i1786")) | |
5f8c55ce AW |
3632 | #(ribcage |
3633 | () | |
3634 | () | |
3635 | ()) | |
3636 | #(ribcage | |
3637 | #(first) | |
3638 | #((top)) | |
43353663 | 3639 | #("i1773")) |
5f8c55ce AW |
3640 | #(ribcage |
3641 | () | |
3642 | () | |
3643 | ()) | |
3644 | #(ribcage | |
3645 | () | |
3646 | () | |
3647 | ()) | |
3648 | #(ribcage | |
3649 | () | |
3650 | () | |
3651 | ()) | |
3652 | #(ribcage | |
3653 | #(e | |
3654 | r | |
3655 | w | |
3656 | s | |
3657 | rib | |
3658 | mod | |
3659 | for-car?) | |
3660 | #((top) | |
3661 | (top) | |
3662 | (top) | |
3663 | (top) | |
3664 | (top) | |
3665 | (top) | |
3666 | (top)) | |
43353663 AW |
3667 | #("i1745" |
3668 | "i1746" | |
3669 | "i1747" | |
3670 | "i1748" | |
3671 | "i1749" | |
3672 | "i1750" | |
3673 | "i1751")) | |
5f8c55ce AW |
3674 | #(ribcage |
3675 | (lambda-var-list | |
3676 | gen-var | |
3677 | strip | |
3678 | chi-lambda-case | |
3679 | lambda*-formals | |
3680 | chi-simple-lambda | |
3681 | lambda-formals | |
3682 | ellipsis? | |
3683 | chi-void | |
3684 | eval-local-transformer | |
3685 | chi-local-syntax | |
3686 | chi-body | |
3687 | chi-macro | |
3688 | chi-application | |
3689 | chi-expr | |
3690 | chi | |
5f8c55ce AW |
3691 | syntax-type |
3692 | chi-when-list | |
3693 | chi-install-global | |
3694 | chi-top-sequence | |
3695 | chi-sequence | |
3696 | source-wrap | |
3697 | wrap | |
3698 | bound-id-member? | |
3699 | distinct-bound-ids? | |
3700 | valid-bound-ids? | |
3701 | bound-id=? | |
3702 | free-id=? | |
3703 | id-var-name | |
3704 | same-marks? | |
3705 | join-marks | |
3706 | join-wraps | |
3707 | smart-append | |
3708 | make-binding-wrap | |
3709 | extend-ribcage! | |
3710 | make-empty-ribcage | |
3711 | new-mark | |
3712 | anti-mark | |
3713 | the-anti-mark | |
3714 | top-marked? | |
3715 | top-wrap | |
3716 | empty-wrap | |
3717 | set-ribcage-labels! | |
3718 | set-ribcage-marks! | |
3719 | set-ribcage-symnames! | |
3720 | ribcage-labels | |
3721 | ribcage-marks | |
3722 | ribcage-symnames | |
3723 | ribcage? | |
3724 | make-ribcage | |
3725 | gen-labels | |
3726 | gen-label | |
3727 | make-rename | |
3728 | rename-marks | |
3729 | rename-new | |
3730 | rename-old | |
3731 | subst-rename? | |
3732 | wrap-subst | |
3733 | wrap-marks | |
3734 | make-wrap | |
3735 | id-sym-name&marks | |
3736 | id-sym-name | |
3737 | id? | |
3738 | nonsymbol-id? | |
3739 | global-extend | |
3740 | lookup | |
3741 | macros-only-env | |
3742 | extend-var-env | |
3743 | extend-env | |
3744 | null-env | |
3745 | binding-value | |
3746 | binding-type | |
3747 | make-binding | |
3748 | arg-check | |
3749 | source-annotation | |
3750 | no-source | |
3751 | set-syntax-object-module! | |
3752 | set-syntax-object-wrap! | |
3753 | set-syntax-object-expression! | |
3754 | syntax-object-module | |
3755 | syntax-object-wrap | |
3756 | syntax-object-expression | |
3757 | syntax-object? | |
3758 | make-syntax-object | |
3759 | build-lexical-var | |
3760 | build-letrec | |
3761 | build-named-let | |
3762 | build-let | |
3763 | build-sequence | |
3764 | build-data | |
3765 | build-primref | |
3766 | build-lambda-case | |
3767 | build-case-lambda | |
3768 | build-simple-lambda | |
3769 | build-global-definition | |
5f8c55ce AW |
3770 | build-global-assignment |
3771 | build-global-reference | |
3772 | analyze-variable | |
3773 | build-lexical-assignment | |
3774 | build-lexical-reference | |
3775 | build-dynlet | |
3776 | build-conditional | |
3777 | build-application | |
3778 | build-void | |
37620f3f | 3779 | maybe-name-value! |
5f8c55ce AW |
3780 | decorate-source |
3781 | get-global-definition-hook | |
3782 | put-global-definition-hook | |
3783 | gensym-hook | |
3784 | local-eval-hook | |
3785 | top-level-eval-hook | |
3786 | fx< | |
3787 | fx= | |
3788 | fx- | |
3789 | fx+ | |
3790 | set-lambda-meta! | |
3791 | lambda-meta | |
3792 | lambda? | |
3793 | make-dynlet | |
3794 | make-letrec | |
3795 | make-let | |
3796 | make-lambda-case | |
3797 | make-lambda | |
3798 | make-sequence | |
3799 | make-application | |
3800 | make-conditional | |
3801 | make-toplevel-define | |
3802 | make-toplevel-set | |
3803 | make-toplevel-ref | |
3804 | make-module-set | |
3805 | make-module-ref | |
3806 | make-lexical-set | |
3807 | make-lexical-ref | |
3808 | make-primitive-ref | |
3809 | make-const | |
3810 | make-void) | |
3811 | ((top) | |
3812 | (top) | |
3813 | (top) | |
3814 | (top) | |
3815 | (top) | |
3816 | (top) | |
3817 | (top) | |
3818 | (top) | |
3819 | (top) | |
3820 | (top) | |
3821 | (top) | |
3822 | (top) | |
3823 | (top) | |
3824 | (top) | |
3825 | (top) | |
3826 | (top) | |
3827 | (top) | |
3828 | (top) | |
3829 | (top) | |
3830 | (top) | |
3831 | (top) | |
3832 | (top) | |
3833 | (top) | |
3834 | (top) | |
3835 | (top) | |
3836 | (top) | |
3837 | (top) | |
3838 | (top) | |
3839 | (top) | |
3840 | (top) | |
3841 | (top) | |
3842 | (top) | |
3843 | (top) | |
3844 | (top) | |
3845 | (top) | |
3846 | (top) | |
3847 | (top) | |
3848 | (top) | |
3849 | (top) | |
3850 | (top) | |
3851 | (top) | |
3852 | (top) | |
3853 | (top) | |
3854 | (top) | |
3855 | (top) | |
3856 | (top) | |
3857 | (top) | |
3858 | (top) | |
3859 | (top) | |
3860 | (top) | |
3861 | (top) | |
3862 | (top) | |
3863 | (top) | |
3864 | (top) | |
3865 | (top) | |
3866 | (top) | |
3867 | (top) | |
3868 | (top) | |
3869 | (top) | |
3870 | (top) | |
3871 | (top) | |
3872 | (top) | |
3873 | (top) | |
3874 | (top) | |
3875 | (top) | |
3876 | (top) | |
3877 | (top) | |
3878 | (top) | |
3879 | (top) | |
3880 | (top) | |
3881 | (top) | |
3882 | (top) | |
3883 | (top) | |
3884 | (top) | |
3885 | (top) | |
3886 | (top) | |
3887 | (top) | |
3888 | (top) | |
3889 | (top) | |
3890 | (top) | |
3891 | (top) | |
3892 | (top) | |
3893 | (top) | |
3894 | (top) | |
3895 | (top) | |
3896 | (top) | |
3897 | (top) | |
3898 | (top) | |
3899 | (top) | |
3900 | (top) | |
3901 | (top) | |
3902 | (top) | |
3903 | (top) | |
3904 | (top) | |
3905 | (top) | |
3906 | (top) | |
3907 | (top) | |
3908 | (top) | |
3909 | (top) | |
3910 | (top) | |
3911 | (top) | |
3912 | (top) | |
3913 | (top) | |
3914 | (top) | |
3915 | (top) | |
3916 | (top) | |
3917 | (top) | |
3918 | (top) | |
3919 | (top) | |
3920 | (top) | |
3921 | (top) | |
3922 | (top) | |
3923 | (top) | |
3924 | (top) | |
3925 | (top) | |
3926 | (top) | |
3927 | (top) | |
3928 | (top) | |
3929 | (top) | |
3930 | (top) | |
3931 | (top) | |
3932 | (top) | |
3933 | (top) | |
3934 | (top) | |
3935 | (top) | |
3936 | (top) | |
3937 | (top) | |
3938 | (top) | |
3939 | (top) | |
3940 | (top) | |
3941 | (top) | |
3942 | (top) | |
3943 | (top) | |
3944 | (top) | |
3945 | (top) | |
5f8c55ce | 3946 | (top)) |
43353663 AW |
3947 | ("i489" |
3948 | "i487" | |
3949 | "i485" | |
3950 | "i483" | |
3951 | "i481" | |
3952 | "i479" | |
3953 | "i477" | |
3954 | "i475" | |
3955 | "i473" | |
3956 | "i471" | |
3957 | "i469" | |
3958 | "i467" | |
3959 | "i465" | |
3960 | "i463" | |
3961 | "i461" | |
3962 | "i459" | |
3963 | "i457" | |
3964 | "i455" | |
3965 | "i453" | |
3966 | "i451" | |
3967 | "i449" | |
3968 | "i447" | |
3969 | "i445" | |
3970 | "i443" | |
3971 | "i441" | |
3972 | "i439" | |
3973 | "i437" | |
3974 | "i435" | |
3975 | "i433" | |
3976 | "i431" | |
3977 | "i429" | |
3978 | "i427" | |
3979 | "i425" | |
3980 | "i423" | |
3981 | "i421" | |
8f1870f2 | 3982 | "i420" |
b78d91d5 | 3983 | "i419" |
43353663 | 3984 | "i417" |
8f1870f2 | 3985 | "i416" |
381ccb0b | 3986 | "i415" |
d8e4f9e5 | 3987 | "i414" |
381ccb0b | 3988 | "i413" |
43353663 AW |
3989 | "i411" |
3990 | "i409" | |
3991 | "i407" | |
3992 | "i405" | |
3993 | "i403" | |
3994 | "i401" | |
3995 | "i399" | |
3996 | "i397" | |
3997 | "i394" | |
3998 | "i392" | |
8f1870f2 | 3999 | "i391" |
77b79cce | 4000 | "i390" |
381ccb0b | 4001 | "i389" |
d8e4f9e5 | 4002 | "i388" |
381ccb0b | 4003 | "i387" |
d8e4f9e5 | 4004 | "i386" |
381ccb0b | 4005 | "i385" |
d8e4f9e5 | 4006 | "i384" |
43353663 | 4007 | "i382" |
8f1870f2 | 4008 | "i381" |
43353663 AW |
4009 | "i379" |
4010 | "i377" | |
4011 | "i375" | |
4012 | "i373" | |
4013 | "i371" | |
4014 | "i369" | |
4015 | "i367" | |
8f1870f2 | 4016 | "i366" |
381ccb0b | 4017 | "i365" |
d8e4f9e5 | 4018 | "i364" |
381ccb0b | 4019 | "i363" |
d8e4f9e5 | 4020 | "i362" |
43353663 | 4021 | "i360" |
8f1870f2 | 4022 | "i359" |
43353663 AW |
4023 | "i357" |
4024 | "i355" | |
4025 | "i353" | |
4026 | "i351" | |
4027 | "i349" | |
4028 | "i347" | |
4029 | "i345" | |
4030 | "i343" | |
4031 | "i341" | |
4032 | "i339" | |
4033 | "i337" | |
4034 | "i335" | |
4035 | "i333" | |
4036 | "i331" | |
4037 | "i329" | |
4038 | "i327" | |
4039 | "i325" | |
4040 | "i323" | |
4041 | "i321" | |
4042 | "i319" | |
4043 | "i317" | |
4044 | "i315" | |
4045 | "i313" | |
4046 | "i311" | |
4047 | "i309" | |
4048 | "i307" | |
4049 | "i305" | |
4050 | "i303" | |
4051 | "i301" | |
4052 | "i299" | |
4053 | "i297" | |
4054 | "i295" | |
8f1870f2 | 4055 | "i294" |
43353663 AW |
4056 | "i292" |
4057 | "i290" | |
4058 | "i288" | |
4059 | "i286" | |
4060 | "i284" | |
4061 | "i282" | |
4062 | "i280" | |
4063 | "i278" | |
4064 | "i276" | |
4065 | "i273" | |
4066 | "i271" | |
4067 | "i269" | |
4068 | "i267" | |
4069 | "i265" | |
4070 | "i263" | |
4071 | "i261" | |
4072 | "i259" | |
4073 | "i257" | |
4074 | "i255" | |
4075 | "i253" | |
4076 | "i251" | |
4077 | "i249" | |
4078 | "i247" | |
4079 | "i245" | |
4080 | "i243" | |
4081 | "i241" | |
4082 | "i239")) | |
5f8c55ce AW |
4083 | #(ribcage |
4084 | (define-structure | |
4085 | define-expansion-accessors | |
4086 | define-expansion-constructors | |
4087 | and-map*) | |
4088 | ((top) | |
4089 | (top) | |
4090 | (top) | |
4091 | (top)) | |
43353663 AW |
4092 | ("i41" |
4093 | "i40" | |
8f1870f2 | 4094 | "i39" |
43353663 | 4095 | "i37"))) |
5f8c55ce AW |
4096 | (hygiene |
4097 | guile)) | |
43353663 AW |
4098 | (#{wrap\ 446}# |
4099 | (cons #{args\ 1833}# | |
4100 | (cons #{e1\ 1834}# | |
4101 | #{e2\ 1835}#)) | |
4102 | #{w\ 1740}# | |
4103 | #{mod\ 1743}#)) | |
4104 | #{s\ 1741}#) | |
5f8c55ce | 4105 | '(()) |
43353663 AW |
4106 | #{s\ 1741}# |
4107 | #{mod\ 1743}#)) | |
4108 | #{tmp\ 1817}#) | |
4109 | (let ((#{tmp\ 1838}# | |
5f8c55ce | 4110 | ($sc-dispatch |
43353663 | 4111 | #{tmp\ 1807}# |
b78d91d5 | 4112 | '(_ any)))) |
43353663 | 4113 | (if (if #{tmp\ 1838}# |
5f8c55ce | 4114 | (@apply |
43353663 AW |
4115 | (lambda (#{name\ 1840}#) |
4116 | (#{id?\ 380}# | |
4117 | #{name\ 1840}#)) | |
4118 | #{tmp\ 1838}#) | |
5f8c55ce AW |
4119 | #f) |
4120 | (@apply | |
43353663 | 4121 | (lambda (#{name\ 1842}#) |
5f8c55ce AW |
4122 | (values |
4123 | 'define-form | |
43353663 AW |
4124 | (#{wrap\ 446}# |
4125 | #{name\ 1842}# | |
4126 | #{w\ 1740}# | |
4127 | #{mod\ 1743}#) | |
5f8c55ce AW |
4128 | '(#(syntax-object |
4129 | if | |
4130 | ((top) | |
4131 | #(ribcage | |
b78d91d5 AW |
4132 | #(name) |
4133 | #((top)) | |
43353663 | 4134 | #("i1841")) |
5f8c55ce AW |
4135 | #(ribcage |
4136 | () | |
4137 | () | |
4138 | ()) | |
4139 | #(ribcage | |
4140 | () | |
4141 | () | |
4142 | ()) | |
4143 | #(ribcage | |
4144 | #(ftype | |
4145 | fval | |
4146 | fe | |
4147 | fw | |
4148 | fs | |
4149 | fmod) | |
4150 | #((top) | |
4151 | (top) | |
4152 | (top) | |
4153 | (top) | |
4154 | (top) | |
4155 | (top)) | |
43353663 AW |
4156 | #("i1781" |
4157 | "i1782" | |
4158 | "i1783" | |
4159 | "i1784" | |
4160 | "i1785" | |
4161 | "i1786")) | |
5f8c55ce AW |
4162 | #(ribcage |
4163 | () | |
4164 | () | |
4165 | ()) | |
4166 | #(ribcage | |
4167 | #(first) | |
4168 | #((top)) | |
43353663 | 4169 | #("i1773")) |
5f8c55ce AW |
4170 | #(ribcage |
4171 | () | |
4172 | () | |
4173 | ()) | |
4174 | #(ribcage | |
4175 | () | |
4176 | () | |
4177 | ()) | |
4178 | #(ribcage | |
4179 | () | |
4180 | () | |
4181 | ()) | |
4182 | #(ribcage | |
4183 | #(e | |
4184 | r | |
4185 | w | |
4186 | s | |
4187 | rib | |
4188 | mod | |
4189 | for-car?) | |
4190 | #((top) | |
4191 | (top) | |
4192 | (top) | |
4193 | (top) | |
4194 | (top) | |
4195 | (top) | |
4196 | (top)) | |
43353663 AW |
4197 | #("i1745" |
4198 | "i1746" | |
4199 | "i1747" | |
4200 | "i1748" | |
4201 | "i1749" | |
4202 | "i1750" | |
4203 | "i1751")) | |
5f8c55ce AW |
4204 | #(ribcage |
4205 | (lambda-var-list | |
4206 | gen-var | |
4207 | strip | |
4208 | chi-lambda-case | |
4209 | lambda*-formals | |
4210 | chi-simple-lambda | |
4211 | lambda-formals | |
4212 | ellipsis? | |
4213 | chi-void | |
4214 | eval-local-transformer | |
4215 | chi-local-syntax | |
4216 | chi-body | |
4217 | chi-macro | |
4218 | chi-application | |
4219 | chi-expr | |
4220 | chi | |
5f8c55ce AW |
4221 | syntax-type |
4222 | chi-when-list | |
4223 | chi-install-global | |
4224 | chi-top-sequence | |
4225 | chi-sequence | |
4226 | source-wrap | |
4227 | wrap | |
4228 | bound-id-member? | |
4229 | distinct-bound-ids? | |
4230 | valid-bound-ids? | |
4231 | bound-id=? | |
4232 | free-id=? | |
4233 | id-var-name | |
4234 | same-marks? | |
4235 | join-marks | |
4236 | join-wraps | |
4237 | smart-append | |
4238 | make-binding-wrap | |
4239 | extend-ribcage! | |
4240 | make-empty-ribcage | |
4241 | new-mark | |
4242 | anti-mark | |
4243 | the-anti-mark | |
4244 | top-marked? | |
4245 | top-wrap | |
4246 | empty-wrap | |
4247 | set-ribcage-labels! | |
4248 | set-ribcage-marks! | |
4249 | set-ribcage-symnames! | |
4250 | ribcage-labels | |
4251 | ribcage-marks | |
4252 | ribcage-symnames | |
4253 | ribcage? | |
4254 | make-ribcage | |
4255 | gen-labels | |
4256 | gen-label | |
4257 | make-rename | |
4258 | rename-marks | |
4259 | rename-new | |
4260 | rename-old | |
4261 | subst-rename? | |
4262 | wrap-subst | |
4263 | wrap-marks | |
4264 | make-wrap | |
4265 | id-sym-name&marks | |
4266 | id-sym-name | |
4267 | id? | |
4268 | nonsymbol-id? | |
4269 | global-extend | |
4270 | lookup | |
4271 | macros-only-env | |
4272 | extend-var-env | |
4273 | extend-env | |
4274 | null-env | |
4275 | binding-value | |
4276 | binding-type | |
4277 | make-binding | |
4278 | arg-check | |
4279 | source-annotation | |
4280 | no-source | |
4281 | set-syntax-object-module! | |
4282 | set-syntax-object-wrap! | |
4283 | set-syntax-object-expression! | |
4284 | syntax-object-module | |
4285 | syntax-object-wrap | |
4286 | syntax-object-expression | |
4287 | syntax-object? | |
4288 | make-syntax-object | |
4289 | build-lexical-var | |
4290 | build-letrec | |
4291 | build-named-let | |
4292 | build-let | |
4293 | build-sequence | |
4294 | build-data | |
4295 | build-primref | |
4296 | build-lambda-case | |
4297 | build-case-lambda | |
4298 | build-simple-lambda | |
4299 | build-global-definition | |
5f8c55ce AW |
4300 | build-global-assignment |
4301 | build-global-reference | |
4302 | analyze-variable | |
4303 | build-lexical-assignment | |
4304 | build-lexical-reference | |
4305 | build-dynlet | |
4306 | build-conditional | |
4307 | build-application | |
4308 | build-void | |
37620f3f | 4309 | maybe-name-value! |
5f8c55ce AW |
4310 | decorate-source |
4311 | get-global-definition-hook | |
4312 | put-global-definition-hook | |
4313 | gensym-hook | |
4314 | local-eval-hook | |
4315 | top-level-eval-hook | |
4316 | fx< | |
4317 | fx= | |
4318 | fx- | |
4319 | fx+ | |
4320 | set-lambda-meta! | |
4321 | lambda-meta | |
4322 | lambda? | |
4323 | make-dynlet | |
4324 | make-letrec | |
4325 | make-let | |
4326 | make-lambda-case | |
4327 | make-lambda | |
4328 | make-sequence | |
4329 | make-application | |
4330 | make-conditional | |
4331 | make-toplevel-define | |
4332 | make-toplevel-set | |
4333 | make-toplevel-ref | |
4334 | make-module-set | |
4335 | make-module-ref | |
4336 | make-lexical-set | |
4337 | make-lexical-ref | |
4338 | make-primitive-ref | |
4339 | make-const | |
4340 | make-void) | |
4341 | ((top) | |
4342 | (top) | |
4343 | (top) | |
4344 | (top) | |
4345 | (top) | |
4346 | (top) | |
4347 | (top) | |
4348 | (top) | |
4349 | (top) | |
4350 | (top) | |
4351 | (top) | |
4352 | (top) | |
4353 | (top) | |
4354 | (top) | |
4355 | (top) | |
4356 | (top) | |
4357 | (top) | |
4358 | (top) | |
4359 | (top) | |
4360 | (top) | |
4361 | (top) | |
4362 | (top) | |
4363 | (top) | |
4364 | (top) | |
4365 | (top) | |
4366 | (top) | |
4367 | (top) | |
4368 | (top) | |
4369 | (top) | |
4370 | (top) | |
4371 | (top) | |
4372 | (top) | |
4373 | (top) | |
4374 | (top) | |
4375 | (top) | |
4376 | (top) | |
4377 | (top) | |
4378 | (top) | |
4379 | (top) | |
4380 | (top) | |
4381 | (top) | |
4382 | (top) | |
4383 | (top) | |
4384 | (top) | |
4385 | (top) | |
4386 | (top) | |
4387 | (top) | |
4388 | (top) | |
4389 | (top) | |
4390 | (top) | |
4391 | (top) | |
4392 | (top) | |
4393 | (top) | |
4394 | (top) | |
4395 | (top) | |
4396 | (top) | |
4397 | (top) | |
4398 | (top) | |
4399 | (top) | |
4400 | (top) | |
4401 | (top) | |
4402 | (top) | |
4403 | (top) | |
4404 | (top) | |
4405 | (top) | |
4406 | (top) | |
4407 | (top) | |
4408 | (top) | |
4409 | (top) | |
4410 | (top) | |
4411 | (top) | |
4412 | (top) | |
4413 | (top) | |
4414 | (top) | |
4415 | (top) | |
4416 | (top) | |
4417 | (top) | |
4418 | (top) | |
4419 | (top) | |
4420 | (top) | |
4421 | (top) | |
4422 | (top) | |
4423 | (top) | |
4424 | (top) | |
4425 | (top) | |
4426 | (top) | |
4427 | (top) | |
4428 | (top) | |
4429 | (top) | |
4430 | (top) | |
4431 | (top) | |
4432 | (top) | |
4433 | (top) | |
4434 | (top) | |
4435 | (top) | |
4436 | (top) | |
4437 | (top) | |
4438 | (top) | |
4439 | (top) | |
4440 | (top) | |
4441 | (top) | |
4442 | (top) | |
4443 | (top) | |
4444 | (top) | |
4445 | (top) | |
4446 | (top) | |
4447 | (top) | |
4448 | (top) | |
4449 | (top) | |
4450 | (top) | |
4451 | (top) | |
4452 | (top) | |
4453 | (top) | |
4454 | (top) | |
4455 | (top) | |
4456 | (top) | |
4457 | (top) | |
4458 | (top) | |
4459 | (top) | |
4460 | (top) | |
4461 | (top) | |
4462 | (top) | |
4463 | (top) | |
4464 | (top) | |
4465 | (top) | |
4466 | (top) | |
4467 | (top) | |
4468 | (top) | |
4469 | (top) | |
4470 | (top) | |
4471 | (top) | |
4472 | (top) | |
4473 | (top) | |
4474 | (top) | |
4475 | (top) | |
5f8c55ce | 4476 | (top)) |
43353663 AW |
4477 | ("i489" |
4478 | "i487" | |
4479 | "i485" | |
4480 | "i483" | |
4481 | "i481" | |
4482 | "i479" | |
4483 | "i477" | |
4484 | "i475" | |
4485 | "i473" | |
4486 | "i471" | |
4487 | "i469" | |
4488 | "i467" | |
4489 | "i465" | |
4490 | "i463" | |
4491 | "i461" | |
4492 | "i459" | |
4493 | "i457" | |
4494 | "i455" | |
4495 | "i453" | |
4496 | "i451" | |
4497 | "i449" | |
4498 | "i447" | |
4499 | "i445" | |
4500 | "i443" | |
4501 | "i441" | |
4502 | "i439" | |
4503 | "i437" | |
4504 | "i435" | |
4505 | "i433" | |
4506 | "i431" | |
4507 | "i429" | |
4508 | "i427" | |
4509 | "i425" | |
4510 | "i423" | |
4511 | "i421" | |
8f1870f2 | 4512 | "i420" |
b78d91d5 | 4513 | "i419" |
43353663 | 4514 | "i417" |
8f1870f2 | 4515 | "i416" |
381ccb0b | 4516 | "i415" |
d8e4f9e5 | 4517 | "i414" |
381ccb0b | 4518 | "i413" |
43353663 AW |
4519 | "i411" |
4520 | "i409" | |
4521 | "i407" | |
4522 | "i405" | |
4523 | "i403" | |
4524 | "i401" | |
4525 | "i399" | |
4526 | "i397" | |
4527 | "i394" | |
4528 | "i392" | |
8f1870f2 | 4529 | "i391" |
77b79cce | 4530 | "i390" |
381ccb0b | 4531 | "i389" |
d8e4f9e5 | 4532 | "i388" |
381ccb0b | 4533 | "i387" |
d8e4f9e5 | 4534 | "i386" |
381ccb0b | 4535 | "i385" |
d8e4f9e5 | 4536 | "i384" |
43353663 | 4537 | "i382" |
8f1870f2 | 4538 | "i381" |
43353663 AW |
4539 | "i379" |
4540 | "i377" | |
4541 | "i375" | |
4542 | "i373" | |
4543 | "i371" | |
4544 | "i369" | |
4545 | "i367" | |
8f1870f2 | 4546 | "i366" |
381ccb0b | 4547 | "i365" |
d8e4f9e5 | 4548 | "i364" |
381ccb0b | 4549 | "i363" |
d8e4f9e5 | 4550 | "i362" |
43353663 | 4551 | "i360" |
8f1870f2 | 4552 | "i359" |
43353663 AW |
4553 | "i357" |
4554 | "i355" | |
4555 | "i353" | |
4556 | "i351" | |
4557 | "i349" | |
4558 | "i347" | |
4559 | "i345" | |
4560 | "i343" | |
4561 | "i341" | |
4562 | "i339" | |
4563 | "i337" | |
4564 | "i335" | |
4565 | "i333" | |
4566 | "i331" | |
4567 | "i329" | |
4568 | "i327" | |
4569 | "i325" | |
4570 | "i323" | |
4571 | "i321" | |
4572 | "i319" | |
4573 | "i317" | |
4574 | "i315" | |
4575 | "i313" | |
4576 | "i311" | |
4577 | "i309" | |
4578 | "i307" | |
4579 | "i305" | |
4580 | "i303" | |
4581 | "i301" | |
4582 | "i299" | |
4583 | "i297" | |
4584 | "i295" | |
8f1870f2 | 4585 | "i294" |
43353663 AW |
4586 | "i292" |
4587 | "i290" | |
4588 | "i288" | |
4589 | "i286" | |
4590 | "i284" | |
4591 | "i282" | |
4592 | "i280" | |
4593 | "i278" | |
4594 | "i276" | |
4595 | "i273" | |
4596 | "i271" | |
4597 | "i269" | |
4598 | "i267" | |
4599 | "i265" | |
4600 | "i263" | |
4601 | "i261" | |
4602 | "i259" | |
4603 | "i257" | |
4604 | "i255" | |
4605 | "i253" | |
4606 | "i251" | |
4607 | "i249" | |
4608 | "i247" | |
4609 | "i245" | |
4610 | "i243" | |
4611 | "i241" | |
4612 | "i239")) | |
5f8c55ce AW |
4613 | #(ribcage |
4614 | (define-structure | |
4615 | define-expansion-accessors | |
4616 | define-expansion-constructors | |
4617 | and-map*) | |
4618 | ((top) | |
4619 | (top) | |
4620 | (top) | |
4621 | (top)) | |
43353663 AW |
4622 | ("i41" |
4623 | "i40" | |
8f1870f2 | 4624 | "i39" |
43353663 | 4625 | "i37"))) |
5f8c55ce AW |
4626 | (hygiene |
4627 | guile)) | |
4628 | #(syntax-object | |
4629 | #f | |
4630 | ((top) | |
4631 | #(ribcage | |
b78d91d5 AW |
4632 | #(name) |
4633 | #((top)) | |
43353663 | 4634 | #("i1841")) |
5f8c55ce AW |
4635 | #(ribcage |
4636 | () | |
4637 | () | |
4638 | ()) | |
4639 | #(ribcage | |
4640 | () | |
4641 | () | |
4642 | ()) | |
4643 | #(ribcage | |
4644 | #(ftype | |
4645 | fval | |
4646 | fe | |
4647 | fw | |
4648 | fs | |
4649 | fmod) | |
4650 | #((top) | |
4651 | (top) | |
4652 | (top) | |
4653 | (top) | |
4654 | (top) | |
4655 | (top)) | |
43353663 AW |
4656 | #("i1781" |
4657 | "i1782" | |
4658 | "i1783" | |
4659 | "i1784" | |
4660 | "i1785" | |
4661 | "i1786")) | |
5f8c55ce AW |
4662 | #(ribcage |
4663 | () | |
4664 | () | |
4665 | ()) | |
4666 | #(ribcage | |
4667 | #(first) | |
4668 | #((top)) | |
43353663 | 4669 | #("i1773")) |
5f8c55ce AW |
4670 | #(ribcage |
4671 | () | |
4672 | () | |
4673 | ()) | |
4674 | #(ribcage | |
4675 | () | |
4676 | () | |
4677 | ()) | |
4678 | #(ribcage | |
4679 | () | |
4680 | () | |
4681 | ()) | |
4682 | #(ribcage | |
4683 | #(e | |
4684 | r | |
4685 | w | |
4686 | s | |
4687 | rib | |
4688 | mod | |
4689 | for-car?) | |
4690 | #((top) | |
4691 | (top) | |
4692 | (top) | |
4693 | (top) | |
4694 | (top) | |
4695 | (top) | |
4696 | (top)) | |
43353663 AW |
4697 | #("i1745" |
4698 | "i1746" | |
4699 | "i1747" | |
4700 | "i1748" | |
4701 | "i1749" | |
4702 | "i1750" | |
4703 | "i1751")) | |
5f8c55ce AW |
4704 | #(ribcage |
4705 | (lambda-var-list | |
4706 | gen-var | |
4707 | strip | |
4708 | chi-lambda-case | |
4709 | lambda*-formals | |
4710 | chi-simple-lambda | |
4711 | lambda-formals | |
4712 | ellipsis? | |
4713 | chi-void | |
4714 | eval-local-transformer | |
4715 | chi-local-syntax | |
4716 | chi-body | |
4717 | chi-macro | |
4718 | chi-application | |
4719 | chi-expr | |
4720 | chi | |
5f8c55ce AW |
4721 | syntax-type |
4722 | chi-when-list | |
4723 | chi-install-global | |
4724 | chi-top-sequence | |
4725 | chi-sequence | |
4726 | source-wrap | |
4727 | wrap | |
4728 | bound-id-member? | |
4729 | distinct-bound-ids? | |
4730 | valid-bound-ids? | |
4731 | bound-id=? | |
4732 | free-id=? | |
4733 | id-var-name | |
4734 | same-marks? | |
4735 | join-marks | |
4736 | join-wraps | |
4737 | smart-append | |
4738 | make-binding-wrap | |
4739 | extend-ribcage! | |
4740 | make-empty-ribcage | |
4741 | new-mark | |
4742 | anti-mark | |
4743 | the-anti-mark | |
4744 | top-marked? | |
4745 | top-wrap | |
4746 | empty-wrap | |
4747 | set-ribcage-labels! | |
4748 | set-ribcage-marks! | |
4749 | set-ribcage-symnames! | |
4750 | ribcage-labels | |
4751 | ribcage-marks | |
4752 | ribcage-symnames | |
4753 | ribcage? | |
4754 | make-ribcage | |
4755 | gen-labels | |
4756 | gen-label | |
4757 | make-rename | |
4758 | rename-marks | |
4759 | rename-new | |
4760 | rename-old | |
4761 | subst-rename? | |
4762 | wrap-subst | |
4763 | wrap-marks | |
4764 | make-wrap | |
4765 | id-sym-name&marks | |
4766 | id-sym-name | |
4767 | id? | |
4768 | nonsymbol-id? | |
4769 | global-extend | |
4770 | lookup | |
4771 | macros-only-env | |
4772 | extend-var-env | |
4773 | extend-env | |
4774 | null-env | |
4775 | binding-value | |
4776 | binding-type | |
4777 | make-binding | |
4778 | arg-check | |
4779 | source-annotation | |
4780 | no-source | |
4781 | set-syntax-object-module! | |
4782 | set-syntax-object-wrap! | |
4783 | set-syntax-object-expression! | |
4784 | syntax-object-module | |
4785 | syntax-object-wrap | |
4786 | syntax-object-expression | |
4787 | syntax-object? | |
4788 | make-syntax-object | |
4789 | build-lexical-var | |
4790 | build-letrec | |
4791 | build-named-let | |
4792 | build-let | |
4793 | build-sequence | |
4794 | build-data | |
4795 | build-primref | |
4796 | build-lambda-case | |
4797 | build-case-lambda | |
4798 | build-simple-lambda | |
4799 | build-global-definition | |
5f8c55ce AW |
4800 | build-global-assignment |
4801 | build-global-reference | |
4802 | analyze-variable | |
4803 | build-lexical-assignment | |
4804 | build-lexical-reference | |
4805 | build-dynlet | |
4806 | build-conditional | |
4807 | build-application | |
4808 | build-void | |
37620f3f | 4809 | maybe-name-value! |
5f8c55ce AW |
4810 | decorate-source |
4811 | get-global-definition-hook | |
4812 | put-global-definition-hook | |
4813 | gensym-hook | |
4814 | local-eval-hook | |
4815 | top-level-eval-hook | |
4816 | fx< | |
4817 | fx= | |
4818 | fx- | |
4819 | fx+ | |
4820 | set-lambda-meta! | |
4821 | lambda-meta | |
4822 | lambda? | |
4823 | make-dynlet | |
4824 | make-letrec | |
4825 | make-let | |
4826 | make-lambda-case | |
4827 | make-lambda | |
4828 | make-sequence | |
4829 | make-application | |
4830 | make-conditional | |
4831 | make-toplevel-define | |
4832 | make-toplevel-set | |
4833 | make-toplevel-ref | |
4834 | make-module-set | |
4835 | make-module-ref | |
4836 | make-lexical-set | |
4837 | make-lexical-ref | |
4838 | make-primitive-ref | |
4839 | make-const | |
4840 | make-void) | |
4841 | ((top) | |
4842 | (top) | |
4843 | (top) | |
4844 | (top) | |
4845 | (top) | |
4846 | (top) | |
4847 | (top) | |
4848 | (top) | |
4849 | (top) | |
4850 | (top) | |
4851 | (top) | |
4852 | (top) | |
4853 | (top) | |
4854 | (top) | |
4855 | (top) | |
4856 | (top) | |
4857 | (top) | |
4858 | (top) | |
4859 | (top) | |
4860 | (top) | |
4861 | (top) | |
4862 | (top) | |
4863 | (top) | |
4864 | (top) | |
4865 | (top) | |
4866 | (top) | |
4867 | (top) | |
4868 | (top) | |
4869 | (top) | |
4870 | (top) | |
4871 | (top) | |
4872 | (top) | |
4873 | (top) | |
4874 | (top) | |
4875 | (top) | |
4876 | (top) | |
4877 | (top) | |
4878 | (top) | |
4879 | (top) | |
4880 | (top) | |
4881 | (top) | |
4882 | (top) | |
4883 | (top) | |
4884 | (top) | |
4885 | (top) | |
4886 | (top) | |
4887 | (top) | |
4888 | (top) | |
4889 | (top) | |
4890 | (top) | |
4891 | (top) | |
4892 | (top) | |
4893 | (top) | |
4894 | (top) | |
4895 | (top) | |
4896 | (top) | |
4897 | (top) | |
4898 | (top) | |
4899 | (top) | |
4900 | (top) | |
4901 | (top) | |
4902 | (top) | |
4903 | (top) | |
4904 | (top) | |
4905 | (top) | |
4906 | (top) | |
4907 | (top) | |
4908 | (top) | |
4909 | (top) | |
4910 | (top) | |
4911 | (top) | |
4912 | (top) | |
4913 | (top) | |
4914 | (top) | |
4915 | (top) | |
4916 | (top) | |
4917 | (top) | |
4918 | (top) | |
4919 | (top) | |
4920 | (top) | |
4921 | (top) | |
4922 | (top) | |
4923 | (top) | |
4924 | (top) | |
4925 | (top) | |
4926 | (top) | |
4927 | (top) | |
4928 | (top) | |
4929 | (top) | |
4930 | (top) | |
4931 | (top) | |
4932 | (top) | |
4933 | (top) | |
4934 | (top) | |
4935 | (top) | |
4936 | (top) | |
4937 | (top) | |
4938 | (top) | |
4939 | (top) | |
4940 | (top) | |
4941 | (top) | |
4942 | (top) | |
4943 | (top) | |
4944 | (top) | |
4945 | (top) | |
4946 | (top) | |
4947 | (top) | |
4948 | (top) | |
4949 | (top) | |
4950 | (top) | |
4951 | (top) | |
4952 | (top) | |
4953 | (top) | |
4954 | (top) | |
4955 | (top) | |
4956 | (top) | |
4957 | (top) | |
4958 | (top) | |
4959 | (top) | |
4960 | (top) | |
4961 | (top) | |
4962 | (top) | |
4963 | (top) | |
4964 | (top) | |
4965 | (top) | |
4966 | (top) | |
4967 | (top) | |
4968 | (top) | |
4969 | (top) | |
4970 | (top) | |
4971 | (top) | |
4972 | (top) | |
4973 | (top) | |
4974 | (top) | |
4975 | (top) | |
5f8c55ce | 4976 | (top)) |
43353663 AW |
4977 | ("i489" |
4978 | "i487" | |
4979 | "i485" | |
4980 | "i483" | |
4981 | "i481" | |
4982 | "i479" | |
4983 | "i477" | |
4984 | "i475" | |
4985 | "i473" | |
4986 | "i471" | |
4987 | "i469" | |
4988 | "i467" | |
4989 | "i465" | |
4990 | "i463" | |
4991 | "i461" | |
4992 | "i459" | |
4993 | "i457" | |
4994 | "i455" | |
4995 | "i453" | |
4996 | "i451" | |
4997 | "i449" | |
4998 | "i447" | |
4999 | "i445" | |
5000 | "i443" | |
5001 | "i441" | |
5002 | "i439" | |
5003 | "i437" | |
5004 | "i435" | |
5005 | "i433" | |
5006 | "i431" | |
5007 | "i429" | |
5008 | "i427" | |
5009 | "i425" | |
5010 | "i423" | |
5011 | "i421" | |
8f1870f2 | 5012 | "i420" |
b78d91d5 | 5013 | "i419" |
43353663 | 5014 | "i417" |
8f1870f2 | 5015 | "i416" |
381ccb0b | 5016 | "i415" |
d8e4f9e5 | 5017 | "i414" |
381ccb0b | 5018 | "i413" |
43353663 AW |
5019 | "i411" |
5020 | "i409" | |
5021 | "i407" | |
5022 | "i405" | |
5023 | "i403" | |
5024 | "i401" | |
5025 | "i399" | |
5026 | "i397" | |
5027 | "i394" | |
5028 | "i392" | |
8f1870f2 | 5029 | "i391" |
77b79cce | 5030 | "i390" |
381ccb0b | 5031 | "i389" |
d8e4f9e5 | 5032 | "i388" |
381ccb0b | 5033 | "i387" |
d8e4f9e5 | 5034 | "i386" |
381ccb0b | 5035 | "i385" |
d8e4f9e5 | 5036 | "i384" |
43353663 | 5037 | "i382" |
8f1870f2 | 5038 | "i381" |
43353663 AW |
5039 | "i379" |
5040 | "i377" | |
5041 | "i375" | |
5042 | "i373" | |
5043 | "i371" | |
5044 | "i369" | |
5045 | "i367" | |
8f1870f2 | 5046 | "i366" |
381ccb0b | 5047 | "i365" |
d8e4f9e5 | 5048 | "i364" |
381ccb0b | 5049 | "i363" |
d8e4f9e5 | 5050 | "i362" |
43353663 | 5051 | "i360" |
8f1870f2 | 5052 | "i359" |
43353663 AW |
5053 | "i357" |
5054 | "i355" | |
5055 | "i353" | |
5056 | "i351" | |
5057 | "i349" | |
5058 | "i347" | |
5059 | "i345" | |
5060 | "i343" | |
5061 | "i341" | |
5062 | "i339" | |
5063 | "i337" | |
5064 | "i335" | |
5065 | "i333" | |
5066 | "i331" | |
5067 | "i329" | |
5068 | "i327" | |
5069 | "i325" | |
5070 | "i323" | |
5071 | "i321" | |
5072 | "i319" | |
5073 | "i317" | |
5074 | "i315" | |
5075 | "i313" | |
5076 | "i311" | |
5077 | "i309" | |
5078 | "i307" | |
5079 | "i305" | |
5080 | "i303" | |
5081 | "i301" | |
5082 | "i299" | |
5083 | "i297" | |
5084 | "i295" | |
8f1870f2 | 5085 | "i294" |
43353663 AW |
5086 | "i292" |
5087 | "i290" | |
5088 | "i288" | |
5089 | "i286" | |
5090 | "i284" | |
5091 | "i282" | |
5092 | "i280" | |
5093 | "i278" | |
5094 | "i276" | |
5095 | "i273" | |
5096 | "i271" | |
5097 | "i269" | |
5098 | "i267" | |
5099 | "i265" | |
5100 | "i263" | |
5101 | "i261" | |
5102 | "i259" | |
5103 | "i257" | |
5104 | "i255" | |
5105 | "i253" | |
5106 | "i251" | |
5107 | "i249" | |
5108 | "i247" | |
5109 | "i245" | |
5110 | "i243" | |
5111 | "i241" | |
5112 | "i239")) | |
5f8c55ce AW |
5113 | #(ribcage |
5114 | (define-structure | |
5115 | define-expansion-accessors | |
5116 | define-expansion-constructors | |
5117 | and-map*) | |
5118 | ((top) | |
5119 | (top) | |
5120 | (top) | |
5121 | (top)) | |
43353663 AW |
5122 | ("i41" |
5123 | "i40" | |
8f1870f2 | 5124 | "i39" |
43353663 | 5125 | "i37"))) |
5f8c55ce AW |
5126 | (hygiene |
5127 | guile)) | |
5128 | #(syntax-object | |
5129 | #f | |
5130 | ((top) | |
5131 | #(ribcage | |
b78d91d5 AW |
5132 | #(name) |
5133 | #((top)) | |
43353663 | 5134 | #("i1841")) |
5f8c55ce AW |
5135 | #(ribcage |
5136 | () | |
5137 | () | |
5138 | ()) | |
5139 | #(ribcage | |
5140 | () | |
5141 | () | |
5142 | ()) | |
5143 | #(ribcage | |
5144 | #(ftype | |
5145 | fval | |
5146 | fe | |
5147 | fw | |
5148 | fs | |
5149 | fmod) | |
5150 | #((top) | |
5151 | (top) | |
5152 | (top) | |
5153 | (top) | |
5154 | (top) | |
5155 | (top)) | |
43353663 AW |
5156 | #("i1781" |
5157 | "i1782" | |
5158 | "i1783" | |
5159 | "i1784" | |
5160 | "i1785" | |
5161 | "i1786")) | |
5f8c55ce AW |
5162 | #(ribcage |
5163 | () | |
5164 | () | |
5165 | ()) | |
5166 | #(ribcage | |
5167 | #(first) | |
5168 | #((top)) | |
43353663 | 5169 | #("i1773")) |
5f8c55ce AW |
5170 | #(ribcage |
5171 | () | |
5172 | () | |
5173 | ()) | |
5174 | #(ribcage | |
5175 | () | |
5176 | () | |
5177 | ()) | |
5178 | #(ribcage | |
5179 | () | |
5180 | () | |
5181 | ()) | |
5182 | #(ribcage | |
5183 | #(e | |
5184 | r | |
5185 | w | |
5186 | s | |
5187 | rib | |
5188 | mod | |
5189 | for-car?) | |
5190 | #((top) | |
5191 | (top) | |
5192 | (top) | |
5193 | (top) | |
5194 | (top) | |
5195 | (top) | |
5196 | (top)) | |
43353663 AW |
5197 | #("i1745" |
5198 | "i1746" | |
5199 | "i1747" | |
5200 | "i1748" | |
5201 | "i1749" | |
5202 | "i1750" | |
5203 | "i1751")) | |
5f8c55ce AW |
5204 | #(ribcage |
5205 | (lambda-var-list | |
5206 | gen-var | |
5207 | strip | |
5208 | chi-lambda-case | |
5209 | lambda*-formals | |
5210 | chi-simple-lambda | |
5211 | lambda-formals | |
5212 | ellipsis? | |
5213 | chi-void | |
5214 | eval-local-transformer | |
5215 | chi-local-syntax | |
5216 | chi-body | |
5217 | chi-macro | |
5218 | chi-application | |
5219 | chi-expr | |
5220 | chi | |
5f8c55ce AW |
5221 | syntax-type |
5222 | chi-when-list | |
5223 | chi-install-global | |
5224 | chi-top-sequence | |
5225 | chi-sequence | |
5226 | source-wrap | |
5227 | wrap | |
5228 | bound-id-member? | |
5229 | distinct-bound-ids? | |
5230 | valid-bound-ids? | |
5231 | bound-id=? | |
5232 | free-id=? | |
5233 | id-var-name | |
5234 | same-marks? | |
5235 | join-marks | |
5236 | join-wraps | |
5237 | smart-append | |
5238 | make-binding-wrap | |
5239 | extend-ribcage! | |
5240 | make-empty-ribcage | |
5241 | new-mark | |
5242 | anti-mark | |
5243 | the-anti-mark | |
5244 | top-marked? | |
5245 | top-wrap | |
5246 | empty-wrap | |
5247 | set-ribcage-labels! | |
5248 | set-ribcage-marks! | |
5249 | set-ribcage-symnames! | |
5250 | ribcage-labels | |
5251 | ribcage-marks | |
5252 | ribcage-symnames | |
5253 | ribcage? | |
5254 | make-ribcage | |
5255 | gen-labels | |
5256 | gen-label | |
5257 | make-rename | |
5258 | rename-marks | |
5259 | rename-new | |
5260 | rename-old | |
5261 | subst-rename? | |
5262 | wrap-subst | |
5263 | wrap-marks | |
5264 | make-wrap | |
5265 | id-sym-name&marks | |
5266 | id-sym-name | |
5267 | id? | |
5268 | nonsymbol-id? | |
5269 | global-extend | |
5270 | lookup | |
5271 | macros-only-env | |
5272 | extend-var-env | |
5273 | extend-env | |
5274 | null-env | |
5275 | binding-value | |
5276 | binding-type | |
5277 | make-binding | |
5278 | arg-check | |
5279 | source-annotation | |
5280 | no-source | |
5281 | set-syntax-object-module! | |
5282 | set-syntax-object-wrap! | |
5283 | set-syntax-object-expression! | |
5284 | syntax-object-module | |
5285 | syntax-object-wrap | |
5286 | syntax-object-expression | |
5287 | syntax-object? | |
5288 | make-syntax-object | |
5289 | build-lexical-var | |
5290 | build-letrec | |
5291 | build-named-let | |
5292 | build-let | |
5293 | build-sequence | |
5294 | build-data | |
5295 | build-primref | |
5296 | build-lambda-case | |
5297 | build-case-lambda | |
5298 | build-simple-lambda | |
5299 | build-global-definition | |
5f8c55ce AW |
5300 | build-global-assignment |
5301 | build-global-reference | |
5302 | analyze-variable | |
5303 | build-lexical-assignment | |
5304 | build-lexical-reference | |
5305 | build-dynlet | |
5306 | build-conditional | |
5307 | build-application | |
5308 | build-void | |
37620f3f | 5309 | maybe-name-value! |
5f8c55ce AW |
5310 | decorate-source |
5311 | get-global-definition-hook | |
5312 | put-global-definition-hook | |
5313 | gensym-hook | |
5314 | local-eval-hook | |
5315 | top-level-eval-hook | |
5316 | fx< | |
5317 | fx= | |
5318 | fx- | |
5319 | fx+ | |
5320 | set-lambda-meta! | |
5321 | lambda-meta | |
5322 | lambda? | |
5323 | make-dynlet | |
5324 | make-letrec | |
5325 | make-let | |
5326 | make-lambda-case | |
5327 | make-lambda | |
5328 | make-sequence | |
5329 | make-application | |
5330 | make-conditional | |
5331 | make-toplevel-define | |
5332 | make-toplevel-set | |
5333 | make-toplevel-ref | |
5334 | make-module-set | |
5335 | make-module-ref | |
5336 | make-lexical-set | |
5337 | make-lexical-ref | |
5338 | make-primitive-ref | |
5339 | make-const | |
5340 | make-void) | |
5341 | ((top) | |
5342 | (top) | |
5343 | (top) | |
5344 | (top) | |
5345 | (top) | |
5346 | (top) | |
5347 | (top) | |
5348 | (top) | |
5349 | (top) | |
5350 | (top) | |
5351 | (top) | |
5352 | (top) | |
5353 | (top) | |
5354 | (top) | |
5355 | (top) | |
5356 | (top) | |
5357 | (top) | |
5358 | (top) | |
5359 | (top) | |
5360 | (top) | |
5361 | (top) | |
5362 | (top) | |
5363 | (top) | |
5364 | (top) | |
5365 | (top) | |
5366 | (top) | |
5367 | (top) | |
5368 | (top) | |
5369 | (top) | |
5370 | (top) | |
5371 | (top) | |
5372 | (top) | |
5373 | (top) | |
5374 | (top) | |
5375 | (top) | |
5376 | (top) | |
5377 | (top) | |
5378 | (top) | |
5379 | (top) | |
5380 | (top) | |
5381 | (top) | |
5382 | (top) | |
5383 | (top) | |
5384 | (top) | |
5385 | (top) | |
5386 | (top) | |
5387 | (top) | |
5388 | (top) | |
5389 | (top) | |
5390 | (top) | |
5391 | (top) | |
5392 | (top) | |
5393 | (top) | |
5394 | (top) | |
5395 | (top) | |
5396 | (top) | |
5397 | (top) | |
5398 | (top) | |
5399 | (top) | |
5400 | (top) | |
5401 | (top) | |
5402 | (top) | |
5403 | (top) | |
5404 | (top) | |
5405 | (top) | |
5406 | (top) | |
5407 | (top) | |
5408 | (top) | |
5409 | (top) | |
5410 | (top) | |
5411 | (top) | |
5412 | (top) | |
5413 | (top) | |
5414 | (top) | |
5415 | (top) | |
5416 | (top) | |
5417 | (top) | |
5418 | (top) | |
5419 | (top) | |
5420 | (top) | |
5421 | (top) | |
5422 | (top) | |
5423 | (top) | |
5424 | (top) | |
5425 | (top) | |
5426 | (top) | |
5427 | (top) | |
5428 | (top) | |
5429 | (top) | |
5430 | (top) | |
5431 | (top) | |
5432 | (top) | |
5433 | (top) | |
5434 | (top) | |
5435 | (top) | |
5436 | (top) | |
5437 | (top) | |
5438 | (top) | |
5439 | (top) | |
5440 | (top) | |
5441 | (top) | |
5442 | (top) | |
5443 | (top) | |
5444 | (top) | |
5445 | (top) | |
5446 | (top) | |
5447 | (top) | |
5448 | (top) | |
5449 | (top) | |
5450 | (top) | |
5451 | (top) | |
5452 | (top) | |
5453 | (top) | |
5454 | (top) | |
5455 | (top) | |
5456 | (top) | |
5457 | (top) | |
5458 | (top) | |
5459 | (top) | |
5460 | (top) | |
5461 | (top) | |
5462 | (top) | |
5463 | (top) | |
5464 | (top) | |
5465 | (top) | |
5466 | (top) | |
5467 | (top) | |
5468 | (top) | |
5469 | (top) | |
5470 | (top) | |
5471 | (top) | |
5472 | (top) | |
5473 | (top) | |
5474 | (top) | |
5475 | (top) | |
5f8c55ce | 5476 | (top)) |
43353663 AW |
5477 | ("i489" |
5478 | "i487" | |
5479 | "i485" | |
5480 | "i483" | |
5481 | "i481" | |
5482 | "i479" | |
5483 | "i477" | |
5484 | "i475" | |
5485 | "i473" | |
5486 | "i471" | |
5487 | "i469" | |
5488 | "i467" | |
5489 | "i465" | |
5490 | "i463" | |
5491 | "i461" | |
5492 | "i459" | |
5493 | "i457" | |
5494 | "i455" | |
5495 | "i453" | |
5496 | "i451" | |
5497 | "i449" | |
5498 | "i447" | |
5499 | "i445" | |
5500 | "i443" | |
5501 | "i441" | |
5502 | "i439" | |
5503 | "i437" | |
5504 | "i435" | |
5505 | "i433" | |
5506 | "i431" | |
5507 | "i429" | |
5508 | "i427" | |
5509 | "i425" | |
5510 | "i423" | |
5511 | "i421" | |
8f1870f2 | 5512 | "i420" |
b78d91d5 | 5513 | "i419" |
43353663 | 5514 | "i417" |
8f1870f2 | 5515 | "i416" |
381ccb0b | 5516 | "i415" |
d8e4f9e5 | 5517 | "i414" |
381ccb0b | 5518 | "i413" |
43353663 AW |
5519 | "i411" |
5520 | "i409" | |
5521 | "i407" | |
5522 | "i405" | |
5523 | "i403" | |
5524 | "i401" | |
5525 | "i399" | |
5526 | "i397" | |
5527 | "i394" | |
5528 | "i392" | |
8f1870f2 | 5529 | "i391" |
77b79cce | 5530 | "i390" |
381ccb0b | 5531 | "i389" |
d8e4f9e5 | 5532 | "i388" |
381ccb0b | 5533 | "i387" |
d8e4f9e5 | 5534 | "i386" |
381ccb0b | 5535 | "i385" |
d8e4f9e5 | 5536 | "i384" |
43353663 | 5537 | "i382" |
8f1870f2 | 5538 | "i381" |
43353663 AW |
5539 | "i379" |
5540 | "i377" | |
5541 | "i375" | |
5542 | "i373" | |
5543 | "i371" | |
5544 | "i369" | |
5545 | "i367" | |
8f1870f2 | 5546 | "i366" |
381ccb0b | 5547 | "i365" |
d8e4f9e5 | 5548 | "i364" |
381ccb0b | 5549 | "i363" |
d8e4f9e5 | 5550 | "i362" |
43353663 | 5551 | "i360" |
8f1870f2 | 5552 | "i359" |
43353663 AW |
5553 | "i357" |
5554 | "i355" | |
5555 | "i353" | |
5556 | "i351" | |
5557 | "i349" | |
5558 | "i347" | |
5559 | "i345" | |
5560 | "i343" | |
5561 | "i341" | |
5562 | "i339" | |
5563 | "i337" | |
5564 | "i335" | |
5565 | "i333" | |
5566 | "i331" | |
5567 | "i329" | |
5568 | "i327" | |
5569 | "i325" | |
5570 | "i323" | |
5571 | "i321" | |
5572 | "i319" | |
5573 | "i317" | |
5574 | "i315" | |
5575 | "i313" | |
5576 | "i311" | |
5577 | "i309" | |
5578 | "i307" | |
5579 | "i305" | |
5580 | "i303" | |
5581 | "i301" | |
5582 | "i299" | |
5583 | "i297" | |
5584 | "i295" | |
8f1870f2 | 5585 | "i294" |
43353663 AW |
5586 | "i292" |
5587 | "i290" | |
5588 | "i288" | |
5589 | "i286" | |
5590 | "i284" | |
5591 | "i282" | |
5592 | "i280" | |
5593 | "i278" | |
5594 | "i276" | |
5595 | "i273" | |
5596 | "i271" | |
5597 | "i269" | |
5598 | "i267" | |
5599 | "i265" | |
5600 | "i263" | |
5601 | "i261" | |
5602 | "i259" | |
5603 | "i257" | |
5604 | "i255" | |
5605 | "i253" | |
5606 | "i251" | |
5607 | "i249" | |
5608 | "i247" | |
5609 | "i245" | |
5610 | "i243" | |
5611 | "i241" | |
5612 | "i239")) | |
5f8c55ce AW |
5613 | #(ribcage |
5614 | (define-structure | |
5615 | define-expansion-accessors | |
5616 | define-expansion-constructors | |
5617 | and-map*) | |
5618 | ((top) | |
5619 | (top) | |
5620 | (top) | |
5621 | (top)) | |
43353663 AW |
5622 | ("i41" |
5623 | "i40" | |
8f1870f2 | 5624 | "i39" |
43353663 | 5625 | "i37"))) |
5f8c55ce AW |
5626 | (hygiene |
5627 | guile))) | |
5628 | '(()) | |
43353663 AW |
5629 | #{s\ 1741}# |
5630 | #{mod\ 1743}#)) | |
5631 | #{tmp\ 1838}#) | |
5f8c55ce AW |
5632 | (syntax-violation |
5633 | #f | |
5634 | "source expression failed to match any pattern" | |
43353663 AW |
5635 | #{tmp\ 1807}#)))))))) |
5636 | (if (eqv? #{ftype\ 1775}# | |
5f8c55ce | 5637 | 'define-syntax) |
43353663 AW |
5638 | (let ((#{tmp\ 1845}# #{e\ 1738}#)) |
5639 | (let ((#{tmp\ 1846}# | |
5f8c55ce | 5640 | ($sc-dispatch |
43353663 | 5641 | #{tmp\ 1845}# |
b78d91d5 | 5642 | '(_ any any)))) |
43353663 | 5643 | (if (if #{tmp\ 1846}# |
5f8c55ce | 5644 | (@apply |
43353663 AW |
5645 | (lambda (#{name\ 1849}# |
5646 | #{val\ 1850}#) | |
5647 | (#{id?\ 380}# | |
5648 | #{name\ 1849}#)) | |
5649 | #{tmp\ 1846}#) | |
5f8c55ce AW |
5650 | #f) |
5651 | (@apply | |
43353663 AW |
5652 | (lambda (#{name\ 1853}# |
5653 | #{val\ 1854}#) | |
5f8c55ce AW |
5654 | (values |
5655 | 'define-syntax-form | |
43353663 AW |
5656 | #{name\ 1853}# |
5657 | #{val\ 1854}# | |
5658 | #{w\ 1740}# | |
5659 | #{s\ 1741}# | |
5660 | #{mod\ 1743}#)) | |
5661 | #{tmp\ 1846}#) | |
5f8c55ce AW |
5662 | (syntax-violation |
5663 | #f | |
5664 | "source expression failed to match any pattern" | |
43353663 | 5665 | #{tmp\ 1845}#)))) |
5f8c55ce AW |
5666 | (values |
5667 | 'call | |
5668 | #f | |
43353663 AW |
5669 | #{e\ 1738}# |
5670 | #{w\ 1740}# | |
5671 | #{s\ 1741}# | |
5672 | #{mod\ 1743}#))))))))))))))) | |
5673 | (if (#{syntax-object?\ 346}# #{e\ 1738}#) | |
5674 | (#{syntax-type\ 458}# | |
5675 | (#{syntax-object-expression\ 348}# #{e\ 1738}#) | |
5676 | #{r\ 1739}# | |
5677 | (#{join-wraps\ 428}# | |
5678 | #{w\ 1740}# | |
5679 | (#{syntax-object-wrap\ 350}# #{e\ 1738}#)) | |
5f8c55ce | 5680 | (begin |
43353663 AW |
5681 | (let ((#{t\ 1860}# |
5682 | (#{source-annotation\ 361}# #{e\ 1738}#))) | |
5683 | (if #{t\ 1860}# #{t\ 1860}# #{s\ 1741}#))) | |
5684 | #{rib\ 1742}# | |
5f8c55ce | 5685 | (begin |
43353663 AW |
5686 | (let ((#{t\ 1864}# |
5687 | (#{syntax-object-module\ 352}# #{e\ 1738}#))) | |
5688 | (if #{t\ 1864}# #{t\ 1864}# #{mod\ 1743}#))) | |
5689 | #{for-car?\ 1744}#) | |
5690 | (if (self-evaluating? #{e\ 1738}#) | |
5f8c55ce AW |
5691 | (values |
5692 | 'constant | |
5693 | #f | |
43353663 AW |
5694 | #{e\ 1738}# |
5695 | #{w\ 1740}# | |
5696 | #{s\ 1741}# | |
5697 | #{mod\ 1743}#) | |
5f8c55ce AW |
5698 | (values |
5699 | 'other | |
5700 | #f | |
43353663 AW |
5701 | #{e\ 1738}# |
5702 | #{w\ 1740}# | |
5703 | #{s\ 1741}# | |
5704 | #{mod\ 1743}#))))))) | |
5705 | (#{chi\ 460}# | |
5706 | (lambda (#{e\ 1869}# | |
5707 | #{r\ 1870}# | |
5708 | #{w\ 1871}# | |
5709 | #{mod\ 1872}#) | |
5f8c55ce AW |
5710 | (call-with-values |
5711 | (lambda () | |
43353663 AW |
5712 | (#{syntax-type\ 458}# |
5713 | #{e\ 1869}# | |
5714 | #{r\ 1870}# | |
5715 | #{w\ 1871}# | |
5716 | (#{source-annotation\ 361}# #{e\ 1869}#) | |
5f8c55ce | 5717 | #f |
43353663 | 5718 | #{mod\ 1872}# |
5f8c55ce | 5719 | #f)) |
43353663 AW |
5720 | (lambda (#{type\ 1877}# |
5721 | #{value\ 1878}# | |
5722 | #{e\ 1879}# | |
5723 | #{w\ 1880}# | |
5724 | #{s\ 1881}# | |
5725 | #{mod\ 1882}#) | |
5726 | (#{chi-expr\ 462}# | |
5727 | #{type\ 1877}# | |
5728 | #{value\ 1878}# | |
5729 | #{e\ 1879}# | |
5730 | #{r\ 1870}# | |
5731 | #{w\ 1880}# | |
5732 | #{s\ 1881}# | |
5733 | #{mod\ 1882}#))))) | |
5734 | (#{chi-expr\ 462}# | |
5735 | (lambda (#{type\ 1889}# | |
5736 | #{value\ 1890}# | |
5737 | #{e\ 1891}# | |
5738 | #{r\ 1892}# | |
5739 | #{w\ 1893}# | |
5740 | #{s\ 1894}# | |
5741 | #{mod\ 1895}#) | |
5742 | (if (eqv? #{type\ 1889}# 'lexical) | |
5743 | (#{build-lexical-reference\ 312}# | |
5f8c55ce | 5744 | 'value |
43353663 AW |
5745 | #{s\ 1894}# |
5746 | #{e\ 1891}# | |
5747 | #{value\ 1890}#) | |
5748 | (if (if (eqv? #{type\ 1889}# 'core) | |
5f8c55ce | 5749 | #t |
43353663 AW |
5750 | (eqv? #{type\ 1889}# 'core-form)) |
5751 | (#{value\ 1890}# | |
5752 | #{e\ 1891}# | |
5753 | #{r\ 1892}# | |
5754 | #{w\ 1893}# | |
5755 | #{s\ 1894}# | |
5756 | #{mod\ 1895}#) | |
5757 | (if (eqv? #{type\ 1889}# 'module-ref) | |
5f8c55ce AW |
5758 | (call-with-values |
5759 | (lambda () | |
43353663 AW |
5760 | (#{value\ 1890}# |
5761 | #{e\ 1891}# | |
5762 | #{r\ 1892}# | |
5763 | #{w\ 1893}#)) | |
5764 | (lambda (#{e\ 1906}# | |
5765 | #{r\ 1907}# | |
5766 | #{w\ 1908}# | |
5767 | #{s\ 1909}# | |
5768 | #{mod\ 1910}#) | |
5769 | (#{chi\ 460}# | |
5770 | #{e\ 1906}# | |
5771 | #{r\ 1907}# | |
5772 | #{w\ 1908}# | |
5773 | #{mod\ 1910}#))) | |
5774 | (if (eqv? #{type\ 1889}# 'lexical-call) | |
5775 | (#{chi-application\ 464}# | |
5f8c55ce | 5776 | (begin |
43353663 AW |
5777 | (let ((#{id\ 1918}# (car #{e\ 1891}#))) |
5778 | (#{build-lexical-reference\ 312}# | |
5f8c55ce | 5779 | 'fun |
43353663 AW |
5780 | (#{source-annotation\ 361}# #{id\ 1918}#) |
5781 | (if (#{syntax-object?\ 346}# #{id\ 1918}#) | |
5782 | (syntax->datum #{id\ 1918}#) | |
5783 | #{id\ 1918}#) | |
5784 | #{value\ 1890}#))) | |
5785 | #{e\ 1891}# | |
5786 | #{r\ 1892}# | |
5787 | #{w\ 1893}# | |
5788 | #{s\ 1894}# | |
5789 | #{mod\ 1895}#) | |
5790 | (if (eqv? #{type\ 1889}# 'global-call) | |
5791 | (#{chi-application\ 464}# | |
5792 | (#{build-global-reference\ 318}# | |
5793 | (#{source-annotation\ 361}# (car #{e\ 1891}#)) | |
5794 | (if (#{syntax-object?\ 346}# #{value\ 1890}#) | |
5795 | (#{syntax-object-expression\ 348}# | |
5796 | #{value\ 1890}#) | |
5797 | #{value\ 1890}#) | |
5798 | (if (#{syntax-object?\ 346}# #{value\ 1890}#) | |
5799 | (#{syntax-object-module\ 352}# #{value\ 1890}#) | |
5800 | #{mod\ 1895}#)) | |
5801 | #{e\ 1891}# | |
5802 | #{r\ 1892}# | |
5803 | #{w\ 1893}# | |
5804 | #{s\ 1894}# | |
5805 | #{mod\ 1895}#) | |
5806 | (if (eqv? #{type\ 1889}# 'constant) | |
5807 | (#{build-data\ 332}# | |
5808 | #{s\ 1894}# | |
5809 | (#{strip\ 486}# | |
5810 | (#{source-wrap\ 448}# | |
5811 | #{e\ 1891}# | |
5812 | #{w\ 1893}# | |
5813 | #{s\ 1894}# | |
5814 | #{mod\ 1895}#) | |
5f8c55ce | 5815 | '(()))) |
43353663 AW |
5816 | (if (eqv? #{type\ 1889}# 'global) |
5817 | (#{build-global-reference\ 318}# | |
5818 | #{s\ 1894}# | |
5819 | #{value\ 1890}# | |
5820 | #{mod\ 1895}#) | |
5821 | (if (eqv? #{type\ 1889}# 'call) | |
5822 | (#{chi-application\ 464}# | |
5823 | (#{chi\ 460}# | |
5824 | (car #{e\ 1891}#) | |
5825 | #{r\ 1892}# | |
5826 | #{w\ 1893}# | |
5827 | #{mod\ 1895}#) | |
5828 | #{e\ 1891}# | |
5829 | #{r\ 1892}# | |
5830 | #{w\ 1893}# | |
5831 | #{s\ 1894}# | |
5832 | #{mod\ 1895}#) | |
5833 | (if (eqv? #{type\ 1889}# 'begin-form) | |
5834 | (let ((#{tmp\ 1925}# #{e\ 1891}#)) | |
5835 | (let ((#{tmp\ 1926}# | |
5f8c55ce | 5836 | ($sc-dispatch |
43353663 | 5837 | #{tmp\ 1925}# |
b78d91d5 | 5838 | '(_ any . each-any)))) |
43353663 | 5839 | (if #{tmp\ 1926}# |
5f8c55ce | 5840 | (@apply |
43353663 AW |
5841 | (lambda (#{e1\ 1929}# #{e2\ 1930}#) |
5842 | (#{chi-sequence\ 450}# | |
5843 | (cons #{e1\ 1929}# #{e2\ 1930}#) | |
5844 | #{r\ 1892}# | |
5845 | #{w\ 1893}# | |
5846 | #{s\ 1894}# | |
5847 | #{mod\ 1895}#)) | |
5848 | #{tmp\ 1926}#) | |
5f8c55ce AW |
5849 | (syntax-violation |
5850 | #f | |
5851 | "source expression failed to match any pattern" | |
43353663 AW |
5852 | #{tmp\ 1925}#)))) |
5853 | (if (eqv? #{type\ 1889}# 'local-syntax-form) | |
5854 | (#{chi-local-syntax\ 470}# | |
5855 | #{value\ 1890}# | |
5856 | #{e\ 1891}# | |
5857 | #{r\ 1892}# | |
5858 | #{w\ 1893}# | |
5859 | #{s\ 1894}# | |
5860 | #{mod\ 1895}# | |
5861 | #{chi-sequence\ 450}#) | |
5862 | (if (eqv? #{type\ 1889}# 'eval-when-form) | |
5863 | (let ((#{tmp\ 1934}# #{e\ 1891}#)) | |
5864 | (let ((#{tmp\ 1935}# | |
5f8c55ce | 5865 | ($sc-dispatch |
43353663 | 5866 | #{tmp\ 1934}# |
b78d91d5 | 5867 | '(_ each-any any . each-any)))) |
43353663 | 5868 | (if #{tmp\ 1935}# |
5f8c55ce | 5869 | (@apply |
43353663 AW |
5870 | (lambda (#{x\ 1939}# |
5871 | #{e1\ 1940}# | |
5872 | #{e2\ 1941}#) | |
5f8c55ce | 5873 | (begin |
43353663 AW |
5874 | (let ((#{when-list\ 1943}# |
5875 | (#{chi-when-list\ 456}# | |
5876 | #{e\ 1891}# | |
5877 | #{x\ 1939}# | |
5878 | #{w\ 1893}#))) | |
5f8c55ce | 5879 | (if (memq 'eval |
43353663 AW |
5880 | #{when-list\ 1943}#) |
5881 | (#{chi-sequence\ 450}# | |
5882 | (cons #{e1\ 1940}# | |
5883 | #{e2\ 1941}#) | |
5884 | #{r\ 1892}# | |
5885 | #{w\ 1893}# | |
5886 | #{s\ 1894}# | |
5887 | #{mod\ 1895}#) | |
5888 | (#{chi-void\ 474}#))))) | |
5889 | #{tmp\ 1935}#) | |
5f8c55ce AW |
5890 | (syntax-violation |
5891 | #f | |
5892 | "source expression failed to match any pattern" | |
43353663 AW |
5893 | #{tmp\ 1934}#)))) |
5894 | (if (if (eqv? #{type\ 1889}# 'define-form) | |
5f8c55ce | 5895 | #t |
43353663 | 5896 | (eqv? #{type\ 1889}# |
5f8c55ce AW |
5897 | 'define-syntax-form)) |
5898 | (syntax-violation | |
5899 | #f | |
5900 | "definition in expression context" | |
43353663 AW |
5901 | #{e\ 1891}# |
5902 | (#{wrap\ 446}# | |
5903 | #{value\ 1890}# | |
5904 | #{w\ 1893}# | |
5905 | #{mod\ 1895}#)) | |
5906 | (if (eqv? #{type\ 1889}# 'syntax) | |
5f8c55ce AW |
5907 | (syntax-violation |
5908 | #f | |
5909 | "reference to pattern variable outside syntax form" | |
43353663 AW |
5910 | (#{source-wrap\ 448}# |
5911 | #{e\ 1891}# | |
5912 | #{w\ 1893}# | |
5913 | #{s\ 1894}# | |
5914 | #{mod\ 1895}#)) | |
5915 | (if (eqv? #{type\ 1889}# | |
5f8c55ce AW |
5916 | 'displaced-lexical) |
5917 | (syntax-violation | |
5918 | #f | |
5919 | "reference to identifier outside its scope" | |
43353663 AW |
5920 | (#{source-wrap\ 448}# |
5921 | #{e\ 1891}# | |
5922 | #{w\ 1893}# | |
5923 | #{s\ 1894}# | |
5924 | #{mod\ 1895}#)) | |
5f8c55ce AW |
5925 | (syntax-violation |
5926 | #f | |
5927 | "unexpected syntax" | |
43353663 AW |
5928 | (#{source-wrap\ 448}# |
5929 | #{e\ 1891}# | |
5930 | #{w\ 1893}# | |
5931 | #{s\ 1894}# | |
5932 | #{mod\ 1895}#)))))))))))))))))) | |
5933 | (#{chi-application\ 464}# | |
5934 | (lambda (#{x\ 1950}# | |
5935 | #{e\ 1951}# | |
5936 | #{r\ 1952}# | |
5937 | #{w\ 1953}# | |
5938 | #{s\ 1954}# | |
5939 | #{mod\ 1955}#) | |
5940 | (let ((#{tmp\ 1962}# #{e\ 1951}#)) | |
5941 | (let ((#{tmp\ 1963}# | |
5942 | ($sc-dispatch #{tmp\ 1962}# '(any . each-any)))) | |
5943 | (if #{tmp\ 1963}# | |
5f8c55ce | 5944 | (@apply |
43353663 AW |
5945 | (lambda (#{e0\ 1966}# #{e1\ 1967}#) |
5946 | (#{build-application\ 306}# | |
5947 | #{s\ 1954}# | |
5948 | #{x\ 1950}# | |
5949 | (map (lambda (#{e\ 1968}#) | |
5950 | (#{chi\ 460}# | |
5951 | #{e\ 1968}# | |
5952 | #{r\ 1952}# | |
5953 | #{w\ 1953}# | |
5954 | #{mod\ 1955}#)) | |
5955 | #{e1\ 1967}#))) | |
5956 | #{tmp\ 1963}#) | |
5f8c55ce AW |
5957 | (syntax-violation |
5958 | #f | |
5959 | "source expression failed to match any pattern" | |
43353663 AW |
5960 | #{tmp\ 1962}#)))))) |
5961 | (#{chi-macro\ 466}# | |
5962 | (lambda (#{p\ 1971}# | |
5963 | #{e\ 1972}# | |
5964 | #{r\ 1973}# | |
5965 | #{w\ 1974}# | |
5966 | #{s\ 1975}# | |
5967 | #{rib\ 1976}# | |
5968 | #{mod\ 1977}#) | |
5f8c55ce | 5969 | (letrec* |
43353663 AW |
5970 | ((#{rebuild-macro-output\ 1986}# |
5971 | (lambda (#{x\ 1987}# #{m\ 1988}#) | |
5972 | (if (pair? #{x\ 1987}#) | |
5973 | (#{decorate-source\ 300}# | |
5974 | (cons (#{rebuild-macro-output\ 1986}# | |
5975 | (car #{x\ 1987}#) | |
5976 | #{m\ 1988}#) | |
5977 | (#{rebuild-macro-output\ 1986}# | |
5978 | (cdr #{x\ 1987}#) | |
5979 | #{m\ 1988}#)) | |
5980 | #{s\ 1975}#) | |
5981 | (if (#{syntax-object?\ 346}# #{x\ 1987}#) | |
5f8c55ce | 5982 | (begin |
43353663 AW |
5983 | (let ((#{w\ 1996}# |
5984 | (#{syntax-object-wrap\ 350}# #{x\ 1987}#))) | |
5f8c55ce | 5985 | (begin |
43353663 AW |
5986 | (let ((#{ms\ 1999}# (car #{w\ 1996}#)) |
5987 | (#{s\ 2000}# (cdr #{w\ 1996}#))) | |
5988 | (if (if (pair? #{ms\ 1999}#) | |
5989 | (eq? (car #{ms\ 1999}#) #f) | |
5f8c55ce | 5990 | #f) |
43353663 AW |
5991 | (#{make-syntax-object\ 344}# |
5992 | (#{syntax-object-expression\ 348}# | |
5993 | #{x\ 1987}#) | |
5994 | (cons (cdr #{ms\ 1999}#) | |
5995 | (if #{rib\ 1976}# | |
5996 | (cons #{rib\ 1976}# | |
5997 | (cdr #{s\ 2000}#)) | |
5998 | (cdr #{s\ 2000}#))) | |
5999 | (#{syntax-object-module\ 352}# | |
6000 | #{x\ 1987}#)) | |
6001 | (#{make-syntax-object\ 344}# | |
6002 | (#{decorate-source\ 300}# | |
6003 | (#{syntax-object-expression\ 348}# | |
6004 | #{x\ 1987}#) | |
6005 | #{s\ 2000}#) | |
6006 | (cons (cons #{m\ 1988}# #{ms\ 1999}#) | |
6007 | (if #{rib\ 1976}# | |
6008 | (cons #{rib\ 1976}# | |
6009 | (cons 'shift #{s\ 2000}#)) | |
6010 | (cons 'shift #{s\ 2000}#))) | |
6011 | (#{syntax-object-module\ 352}# | |
6012 | #{x\ 1987}#))))))) | |
6013 | (if (vector? #{x\ 1987}#) | |
5f8c55ce | 6014 | (begin |
43353663 | 6015 | (let ((#{n\ 2012}# (vector-length #{x\ 1987}#))) |
5f8c55ce | 6016 | (begin |
43353663 AW |
6017 | (let ((#{v\ 2014}# |
6018 | (#{decorate-source\ 300}# | |
6019 | (make-vector #{n\ 2012}#) | |
6020 | #{x\ 1987}#))) | |
5f8c55ce | 6021 | (letrec* |
43353663 AW |
6022 | ((#{loop\ 2017}# |
6023 | (lambda (#{i\ 2018}#) | |
6024 | (if (#{fx=\ 287}# | |
6025 | #{i\ 2018}# | |
6026 | #{n\ 2012}#) | |
6027 | (begin (if #f #f) #{v\ 2014}#) | |
5f8c55ce AW |
6028 | (begin |
6029 | (vector-set! | |
43353663 AW |
6030 | #{v\ 2014}# |
6031 | #{i\ 2018}# | |
6032 | (#{rebuild-macro-output\ 1986}# | |
5f8c55ce | 6033 | (vector-ref |
43353663 AW |
6034 | #{x\ 1987}# |
6035 | #{i\ 2018}#) | |
6036 | #{m\ 1988}#)) | |
6037 | (#{loop\ 2017}# | |
6038 | (#{fx+\ 283}# | |
6039 | #{i\ 2018}# | |
5f8c55ce | 6040 | 1))))))) |
43353663 AW |
6041 | (begin (#{loop\ 2017}# 0))))))) |
6042 | (if (symbol? #{x\ 1987}#) | |
5f8c55ce AW |
6043 | (syntax-violation |
6044 | #f | |
6045 | "encountered raw symbol in macro output" | |
43353663 AW |
6046 | (#{source-wrap\ 448}# |
6047 | #{e\ 1972}# | |
6048 | #{w\ 1974}# | |
6049 | (cdr #{w\ 1974}#) | |
6050 | #{mod\ 1977}#) | |
6051 | #{x\ 1987}#) | |
6052 | (#{decorate-source\ 300}# | |
6053 | #{x\ 1987}# | |
6054 | #{s\ 1975}#)))))))) | |
5f8c55ce | 6055 | (begin |
43353663 AW |
6056 | (#{rebuild-macro-output\ 1986}# |
6057 | (#{p\ 1971}# | |
6058 | (#{source-wrap\ 448}# | |
6059 | #{e\ 1972}# | |
6060 | (#{anti-mark\ 418}# #{w\ 1974}#) | |
6061 | #{s\ 1975}# | |
6062 | #{mod\ 1977}#)) | |
5f8c55ce | 6063 | (gensym "m")))))) |
43353663 AW |
6064 | (#{chi-body\ 468}# |
6065 | (lambda (#{body\ 2026}# | |
6066 | #{outer-form\ 2027}# | |
6067 | #{r\ 2028}# | |
6068 | #{w\ 2029}# | |
6069 | #{mod\ 2030}#) | |
5f8c55ce | 6070 | (begin |
43353663 AW |
6071 | (let ((#{r\ 2038}# |
6072 | (cons '("placeholder" placeholder) #{r\ 2028}#))) | |
5f8c55ce | 6073 | (begin |
43353663 AW |
6074 | (let ((#{ribcage\ 2040}# |
6075 | (#{make-ribcage\ 398}# '() '() '()))) | |
5f8c55ce | 6076 | (begin |
43353663 AW |
6077 | (let ((#{w\ 2043}# |
6078 | (cons (car #{w\ 2029}#) | |
6079 | (cons #{ribcage\ 2040}# | |
6080 | (cdr #{w\ 2029}#))))) | |
5f8c55ce | 6081 | (letrec* |
43353663 AW |
6082 | ((#{parse\ 2055}# |
6083 | (lambda (#{body\ 2056}# | |
6084 | #{ids\ 2057}# | |
6085 | #{labels\ 2058}# | |
6086 | #{var-ids\ 2059}# | |
6087 | #{vars\ 2060}# | |
6088 | #{vals\ 2061}# | |
6089 | #{bindings\ 2062}#) | |
6090 | (if (null? #{body\ 2056}#) | |
5f8c55ce AW |
6091 | (syntax-violation |
6092 | #f | |
6093 | "no expressions in body" | |
43353663 | 6094 | #{outer-form\ 2027}#) |
5f8c55ce | 6095 | (begin |
43353663 AW |
6096 | (let ((#{e\ 2067}# |
6097 | (cdr (car #{body\ 2056}#))) | |
6098 | (#{er\ 2068}# | |
6099 | (car (car #{body\ 2056}#)))) | |
5f8c55ce AW |
6100 | (call-with-values |
6101 | (lambda () | |
43353663 AW |
6102 | (#{syntax-type\ 458}# |
6103 | #{e\ 2067}# | |
6104 | #{er\ 2068}# | |
5f8c55ce | 6105 | '(()) |
43353663 AW |
6106 | (#{source-annotation\ 361}# |
6107 | #{er\ 2068}#) | |
6108 | #{ribcage\ 2040}# | |
6109 | #{mod\ 2030}# | |
5f8c55ce | 6110 | #f)) |
43353663 AW |
6111 | (lambda (#{type\ 2070}# |
6112 | #{value\ 2071}# | |
6113 | #{e\ 2072}# | |
6114 | #{w\ 2073}# | |
6115 | #{s\ 2074}# | |
6116 | #{mod\ 2075}#) | |
6117 | (if (eqv? #{type\ 2070}# | |
5f8c55ce AW |
6118 | 'define-form) |
6119 | (begin | |
43353663 AW |
6120 | (let ((#{id\ 2085}# |
6121 | (#{wrap\ 446}# | |
6122 | #{value\ 2071}# | |
6123 | #{w\ 2073}# | |
6124 | #{mod\ 2075}#)) | |
6125 | (#{label\ 2086}# | |
6126 | (#{gen-label\ 393}#))) | |
5f8c55ce | 6127 | (begin |
43353663 AW |
6128 | (let ((#{var\ 2088}# |
6129 | (#{gen-var\ 488}# | |
6130 | #{id\ 2085}#))) | |
5f8c55ce | 6131 | (begin |
43353663 AW |
6132 | (#{extend-ribcage!\ 422}# |
6133 | #{ribcage\ 2040}# | |
6134 | #{id\ 2085}# | |
6135 | #{label\ 2086}#) | |
6136 | (#{parse\ 2055}# | |
6137 | (cdr #{body\ 2056}#) | |
6138 | (cons #{id\ 2085}# | |
6139 | #{ids\ 2057}#) | |
6140 | (cons #{label\ 2086}# | |
6141 | #{labels\ 2058}#) | |
6142 | (cons #{id\ 2085}# | |
6143 | #{var-ids\ 2059}#) | |
6144 | (cons #{var\ 2088}# | |
6145 | #{vars\ 2060}#) | |
6146 | (cons (cons #{er\ 2068}# | |
6147 | (#{wrap\ 446}# | |
6148 | #{e\ 2072}# | |
6149 | #{w\ 2073}# | |
6150 | #{mod\ 2075}#)) | |
6151 | #{vals\ 2061}#) | |
5f8c55ce | 6152 | (cons (cons 'lexical |
43353663 AW |
6153 | #{var\ 2088}#) |
6154 | #{bindings\ 2062}#))))))) | |
6155 | (if (eqv? #{type\ 2070}# | |
5f8c55ce AW |
6156 | 'define-syntax-form) |
6157 | (begin | |
43353663 AW |
6158 | (let ((#{id\ 2093}# |
6159 | (#{wrap\ 446}# | |
6160 | #{value\ 2071}# | |
6161 | #{w\ 2073}# | |
6162 | #{mod\ 2075}#)) | |
6163 | (#{label\ 2094}# | |
6164 | (#{gen-label\ 393}#))) | |
5f8c55ce | 6165 | (begin |
43353663 AW |
6166 | (#{extend-ribcage!\ 422}# |
6167 | #{ribcage\ 2040}# | |
6168 | #{id\ 2093}# | |
6169 | #{label\ 2094}#) | |
6170 | (#{parse\ 2055}# | |
6171 | (cdr #{body\ 2056}#) | |
6172 | (cons #{id\ 2093}# | |
6173 | #{ids\ 2057}#) | |
6174 | (cons #{label\ 2094}# | |
6175 | #{labels\ 2058}#) | |
6176 | #{var-ids\ 2059}# | |
6177 | #{vars\ 2060}# | |
6178 | #{vals\ 2061}# | |
5f8c55ce | 6179 | (cons (cons 'macro |
43353663 AW |
6180 | (cons #{er\ 2068}# |
6181 | (#{wrap\ 446}# | |
6182 | #{e\ 2072}# | |
6183 | #{w\ 2073}# | |
6184 | #{mod\ 2075}#))) | |
6185 | #{bindings\ 2062}#))))) | |
6186 | (if (eqv? #{type\ 2070}# | |
5f8c55ce | 6187 | 'begin-form) |
43353663 AW |
6188 | (let ((#{tmp\ 2097}# |
6189 | #{e\ 2072}#)) | |
6190 | (let ((#{tmp\ 2098}# | |
5f8c55ce | 6191 | ($sc-dispatch |
43353663 | 6192 | #{tmp\ 2097}# |
b78d91d5 | 6193 | '(_ . each-any)))) |
43353663 | 6194 | (if #{tmp\ 2098}# |
5f8c55ce | 6195 | (@apply |
43353663 AW |
6196 | (lambda (#{e1\ 2100}#) |
6197 | (#{parse\ 2055}# | |
5f8c55ce | 6198 | (letrec* |
43353663 AW |
6199 | ((#{f\ 2103}# |
6200 | (lambda (#{forms\ 2104}#) | |
6201 | (if (null? #{forms\ 2104}#) | |
6202 | (cdr #{body\ 2056}#) | |
6203 | (cons (cons #{er\ 2068}# | |
6204 | (#{wrap\ 446}# | |
6205 | (car #{forms\ 2104}#) | |
6206 | #{w\ 2073}# | |
6207 | #{mod\ 2075}#)) | |
6208 | (#{f\ 2103}# | |
6209 | (cdr #{forms\ 2104}#))))))) | |
5f8c55ce | 6210 | (begin |
43353663 AW |
6211 | (#{f\ 2103}# |
6212 | #{e1\ 2100}#))) | |
6213 | #{ids\ 2057}# | |
6214 | #{labels\ 2058}# | |
6215 | #{var-ids\ 2059}# | |
6216 | #{vars\ 2060}# | |
6217 | #{vals\ 2061}# | |
6218 | #{bindings\ 2062}#)) | |
6219 | #{tmp\ 2098}#) | |
5f8c55ce AW |
6220 | (syntax-violation |
6221 | #f | |
6222 | "source expression failed to match any pattern" | |
43353663 AW |
6223 | #{tmp\ 2097}#)))) |
6224 | (if (eqv? #{type\ 2070}# | |
5f8c55ce | 6225 | 'local-syntax-form) |
43353663 AW |
6226 | (#{chi-local-syntax\ 470}# |
6227 | #{value\ 2071}# | |
6228 | #{e\ 2072}# | |
6229 | #{er\ 2068}# | |
6230 | #{w\ 2073}# | |
6231 | #{s\ 2074}# | |
6232 | #{mod\ 2075}# | |
6233 | (lambda (#{forms\ 2107}# | |
6234 | #{er\ 2108}# | |
6235 | #{w\ 2109}# | |
6236 | #{s\ 2110}# | |
6237 | #{mod\ 2111}#) | |
6238 | (#{parse\ 2055}# | |
5f8c55ce | 6239 | (letrec* |
43353663 AW |
6240 | ((#{f\ 2119}# |
6241 | (lambda (#{forms\ 2120}#) | |
6242 | (if (null? #{forms\ 2120}#) | |
6243 | (cdr #{body\ 2056}#) | |
6244 | (cons (cons #{er\ 2108}# | |
6245 | (#{wrap\ 446}# | |
6246 | (car #{forms\ 2120}#) | |
6247 | #{w\ 2109}# | |
6248 | #{mod\ 2111}#)) | |
6249 | (#{f\ 2119}# | |
6250 | (cdr #{forms\ 2120}#))))))) | |
5f8c55ce | 6251 | (begin |
43353663 AW |
6252 | (#{f\ 2119}# |
6253 | #{forms\ 2107}#))) | |
6254 | #{ids\ 2057}# | |
6255 | #{labels\ 2058}# | |
6256 | #{var-ids\ 2059}# | |
6257 | #{vars\ 2060}# | |
6258 | #{vals\ 2061}# | |
6259 | #{bindings\ 2062}#))) | |
6260 | (if (null? #{ids\ 2057}#) | |
6261 | (#{build-sequence\ 334}# | |
5f8c55ce | 6262 | #f |
43353663 AW |
6263 | (map (lambda (#{x\ 2123}#) |
6264 | (#{chi\ 460}# | |
6265 | (cdr #{x\ 2123}#) | |
6266 | (car #{x\ 2123}#) | |
5f8c55ce | 6267 | '(()) |
43353663 AW |
6268 | #{mod\ 2075}#)) |
6269 | (cons (cons #{er\ 2068}# | |
6270 | (#{source-wrap\ 448}# | |
6271 | #{e\ 2072}# | |
6272 | #{w\ 2073}# | |
6273 | #{s\ 2074}# | |
6274 | #{mod\ 2075}#)) | |
6275 | (cdr #{body\ 2056}#)))) | |
5f8c55ce | 6276 | (begin |
43353663 AW |
6277 | (if (not (#{valid-bound-ids?\ 440}# |
6278 | #{ids\ 2057}#)) | |
5f8c55ce AW |
6279 | (syntax-violation |
6280 | #f | |
6281 | "invalid or duplicate identifier in definition" | |
43353663 | 6282 | #{outer-form\ 2027}#)) |
5f8c55ce | 6283 | (letrec* |
43353663 AW |
6284 | ((#{loop\ 2130}# |
6285 | (lambda (#{bs\ 2131}# | |
6286 | #{er-cache\ 2132}# | |
6287 | #{r-cache\ 2133}#) | |
6288 | (if (not (null? #{bs\ 2131}#)) | |
5f8c55ce | 6289 | (begin |
43353663 AW |
6290 | (let ((#{b\ 2136}# |
6291 | (car #{bs\ 2131}#))) | |
6292 | (if (eq? (car #{b\ 2136}#) | |
5f8c55ce AW |
6293 | 'macro) |
6294 | (begin | |
43353663 AW |
6295 | (let ((#{er\ 2139}# |
6296 | (car (cdr #{b\ 2136}#)))) | |
5f8c55ce | 6297 | (begin |
43353663 AW |
6298 | (let ((#{r-cache\ 2141}# |
6299 | (if (eq? #{er\ 2139}# | |
6300 | #{er-cache\ 2132}#) | |
6301 | #{r-cache\ 2133}# | |
6302 | (#{macros-only-env\ 372}# | |
6303 | #{er\ 2139}#)))) | |
5f8c55ce AW |
6304 | (begin |
6305 | (set-cdr! | |
43353663 AW |
6306 | #{b\ 2136}# |
6307 | (#{eval-local-transformer\ 472}# | |
6308 | (#{chi\ 460}# | |
6309 | (cdr (cdr #{b\ 2136}#)) | |
6310 | #{r-cache\ 2141}# | |
5f8c55ce | 6311 | '(()) |
43353663 AW |
6312 | #{mod\ 2075}#) |
6313 | #{mod\ 2075}#)) | |
6314 | (#{loop\ 2130}# | |
6315 | (cdr #{bs\ 2131}#) | |
6316 | #{er\ 2139}# | |
6317 | #{r-cache\ 2141}#)))))) | |
6318 | (#{loop\ 2130}# | |
6319 | (cdr #{bs\ 2131}#) | |
6320 | #{er-cache\ 2132}# | |
6321 | #{r-cache\ 2133}#)))))))) | |
5f8c55ce | 6322 | (begin |
43353663 AW |
6323 | (#{loop\ 2130}# |
6324 | #{bindings\ 2062}# | |
5f8c55ce AW |
6325 | #f |
6326 | #f))) | |
6327 | (set-cdr! | |
43353663 AW |
6328 | #{r\ 2038}# |
6329 | (#{extend-env\ 368}# | |
6330 | #{labels\ 2058}# | |
6331 | #{bindings\ 2062}# | |
6332 | (cdr #{r\ 2038}#))) | |
6333 | (#{build-letrec\ 340}# | |
5f8c55ce AW |
6334 | #f |
6335 | #t | |
6336 | (reverse | |
6337 | (map syntax->datum | |
43353663 | 6338 | #{var-ids\ 2059}#)) |
5f8c55ce | 6339 | (reverse |
43353663 AW |
6340 | #{vars\ 2060}#) |
6341 | (map (lambda (#{x\ 2144}#) | |
6342 | (#{chi\ 460}# | |
6343 | (cdr #{x\ 2144}#) | |
6344 | (car #{x\ 2144}#) | |
5f8c55ce | 6345 | '(()) |
43353663 | 6346 | #{mod\ 2075}#)) |
5f8c55ce | 6347 | (reverse |
43353663 AW |
6348 | #{vals\ 2061}#)) |
6349 | (#{build-sequence\ 334}# | |
5f8c55ce | 6350 | #f |
43353663 AW |
6351 | (map (lambda (#{x\ 2148}#) |
6352 | (#{chi\ 460}# | |
6353 | (cdr #{x\ 2148}#) | |
6354 | (car #{x\ 2148}#) | |
5f8c55ce | 6355 | '(()) |
43353663 AW |
6356 | #{mod\ 2075}#)) |
6357 | (cons (cons #{er\ 2068}# | |
6358 | (#{source-wrap\ 448}# | |
6359 | #{e\ 2072}# | |
6360 | #{w\ 2073}# | |
6361 | #{s\ 2074}# | |
6362 | #{mod\ 2075}#)) | |
6363 | (cdr #{body\ 2056}#))))))))))))))))))) | |
5f8c55ce | 6364 | (begin |
43353663 AW |
6365 | (#{parse\ 2055}# |
6366 | (map (lambda (#{x\ 2063}#) | |
6367 | (cons #{r\ 2038}# | |
6368 | (#{wrap\ 446}# | |
6369 | #{x\ 2063}# | |
6370 | #{w\ 2043}# | |
6371 | #{mod\ 2030}#))) | |
6372 | #{body\ 2026}#) | |
5f8c55ce AW |
6373 | '() |
6374 | '() | |
6375 | '() | |
6376 | '() | |
6377 | '() | |
6378 | '()))))))))))) | |
43353663 AW |
6379 | (#{chi-local-syntax\ 470}# |
6380 | (lambda (#{rec?\ 2151}# | |
6381 | #{e\ 2152}# | |
6382 | #{r\ 2153}# | |
6383 | #{w\ 2154}# | |
6384 | #{s\ 2155}# | |
6385 | #{mod\ 2156}# | |
6386 | #{k\ 2157}#) | |
6387 | (let ((#{tmp\ 2165}# #{e\ 2152}#)) | |
6388 | (let ((#{tmp\ 2166}# | |
5f8c55ce | 6389 | ($sc-dispatch |
43353663 | 6390 | #{tmp\ 2165}# |
b78d91d5 | 6391 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 6392 | (if #{tmp\ 2166}# |
5f8c55ce | 6393 | (@apply |
43353663 AW |
6394 | (lambda (#{id\ 2171}# |
6395 | #{val\ 2172}# | |
6396 | #{e1\ 2173}# | |
6397 | #{e2\ 2174}#) | |
5f8c55ce | 6398 | (begin |
43353663 AW |
6399 | (let ((#{ids\ 2176}# #{id\ 2171}#)) |
6400 | (if (not (#{valid-bound-ids?\ 440}# #{ids\ 2176}#)) | |
5f8c55ce AW |
6401 | (syntax-violation |
6402 | #f | |
6403 | "duplicate bound keyword" | |
43353663 | 6404 | #{e\ 2152}#) |
5f8c55ce | 6405 | (begin |
43353663 AW |
6406 | (let ((#{labels\ 2179}# |
6407 | (#{gen-labels\ 395}# #{ids\ 2176}#))) | |
5f8c55ce | 6408 | (begin |
43353663 AW |
6409 | (let ((#{new-w\ 2181}# |
6410 | (#{make-binding-wrap\ 424}# | |
6411 | #{ids\ 2176}# | |
6412 | #{labels\ 2179}# | |
6413 | #{w\ 2154}#))) | |
6414 | (#{k\ 2157}# | |
6415 | (cons #{e1\ 2173}# #{e2\ 2174}#) | |
6416 | (#{extend-env\ 368}# | |
6417 | #{labels\ 2179}# | |
5f8c55ce | 6418 | (begin |
43353663 AW |
6419 | (let ((#{w\ 2185}# |
6420 | (if #{rec?\ 2151}# | |
6421 | #{new-w\ 2181}# | |
6422 | #{w\ 2154}#)) | |
6423 | (#{trans-r\ 2186}# | |
6424 | (#{macros-only-env\ 372}# | |
6425 | #{r\ 2153}#))) | |
6426 | (map (lambda (#{x\ 2187}#) | |
5f8c55ce | 6427 | (cons 'macro |
43353663 AW |
6428 | (#{eval-local-transformer\ 472}# |
6429 | (#{chi\ 460}# | |
6430 | #{x\ 2187}# | |
6431 | #{trans-r\ 2186}# | |
6432 | #{w\ 2185}# | |
6433 | #{mod\ 2156}#) | |
6434 | #{mod\ 2156}#))) | |
6435 | #{val\ 2172}#))) | |
6436 | #{r\ 2153}#) | |
6437 | #{new-w\ 2181}# | |
6438 | #{s\ 2155}# | |
6439 | #{mod\ 2156}#))))))))) | |
6440 | #{tmp\ 2166}#) | |
6441 | (let ((#{_\ 2192}# #{tmp\ 2165}#)) | |
5f8c55ce AW |
6442 | (syntax-violation |
6443 | #f | |
6444 | "bad local syntax definition" | |
43353663 AW |
6445 | (#{source-wrap\ 448}# |
6446 | #{e\ 2152}# | |
6447 | #{w\ 2154}# | |
6448 | #{s\ 2155}# | |
6449 | #{mod\ 2156}#)))))))) | |
6450 | (#{eval-local-transformer\ 472}# | |
6451 | (lambda (#{expanded\ 2193}# #{mod\ 2194}#) | |
5f8c55ce | 6452 | (begin |
43353663 AW |
6453 | (let ((#{p\ 2198}# |
6454 | (#{local-eval-hook\ 293}# | |
6455 | #{expanded\ 2193}# | |
6456 | #{mod\ 2194}#))) | |
6457 | (if (procedure? #{p\ 2198}#) | |
6458 | #{p\ 2198}# | |
5f8c55ce AW |
6459 | (syntax-violation |
6460 | #f | |
6461 | "nonprocedure transformer" | |
43353663 AW |
6462 | #{p\ 2198}#)))))) |
6463 | (#{chi-void\ 474}# | |
6464 | (lambda () (#{build-void\ 304}# #f))) | |
6465 | (#{ellipsis?\ 476}# | |
6466 | (lambda (#{x\ 2200}#) | |
6467 | (if (#{nonsymbol-id?\ 378}# #{x\ 2200}#) | |
6468 | (#{free-id=?\ 436}# | |
6469 | #{x\ 2200}# | |
b78d91d5 AW |
6470 | '#(syntax-object |
6471 | ... | |
6472 | ((top) | |
6473 | #(ribcage () () ()) | |
6474 | #(ribcage () () ()) | |
43353663 | 6475 | #(ribcage #(x) #((top)) #("i2201")) |
b78d91d5 AW |
6476 | #(ribcage |
6477 | (lambda-var-list | |
6478 | gen-var | |
6479 | strip | |
6480 | chi-lambda-case | |
6481 | lambda*-formals | |
6482 | chi-simple-lambda | |
6483 | lambda-formals | |
b78d91d5 AW |
6484 | ellipsis? |
6485 | chi-void | |
6486 | eval-local-transformer | |
6487 | chi-local-syntax | |
6488 | chi-body | |
6489 | chi-macro | |
6490 | chi-application | |
6491 | chi-expr | |
6492 | chi | |
b78d91d5 AW |
6493 | syntax-type |
6494 | chi-when-list | |
6495 | chi-install-global | |
6496 | chi-top-sequence | |
6497 | chi-sequence | |
6498 | source-wrap | |
6499 | wrap | |
6500 | bound-id-member? | |
6501 | distinct-bound-ids? | |
6502 | valid-bound-ids? | |
6503 | bound-id=? | |
6504 | free-id=? | |
6505 | id-var-name | |
6506 | same-marks? | |
6507 | join-marks | |
6508 | join-wraps | |
6509 | smart-append | |
6510 | make-binding-wrap | |
6511 | extend-ribcage! | |
6512 | make-empty-ribcage | |
6513 | new-mark | |
6514 | anti-mark | |
6515 | the-anti-mark | |
6516 | top-marked? | |
6517 | top-wrap | |
6518 | empty-wrap | |
6519 | set-ribcage-labels! | |
6520 | set-ribcage-marks! | |
6521 | set-ribcage-symnames! | |
6522 | ribcage-labels | |
6523 | ribcage-marks | |
6524 | ribcage-symnames | |
6525 | ribcage? | |
6526 | make-ribcage | |
6527 | gen-labels | |
6528 | gen-label | |
6529 | make-rename | |
6530 | rename-marks | |
6531 | rename-new | |
6532 | rename-old | |
6533 | subst-rename? | |
6534 | wrap-subst | |
6535 | wrap-marks | |
6536 | make-wrap | |
6537 | id-sym-name&marks | |
6538 | id-sym-name | |
6539 | id? | |
6540 | nonsymbol-id? | |
6541 | global-extend | |
6542 | lookup | |
6543 | macros-only-env | |
6544 | extend-var-env | |
6545 | extend-env | |
6546 | null-env | |
6547 | binding-value | |
6548 | binding-type | |
6549 | make-binding | |
6550 | arg-check | |
6551 | source-annotation | |
6552 | no-source | |
6553 | set-syntax-object-module! | |
6554 | set-syntax-object-wrap! | |
6555 | set-syntax-object-expression! | |
6556 | syntax-object-module | |
6557 | syntax-object-wrap | |
6558 | syntax-object-expression | |
6559 | syntax-object? | |
6560 | make-syntax-object | |
6561 | build-lexical-var | |
6562 | build-letrec | |
6563 | build-named-let | |
6564 | build-let | |
6565 | build-sequence | |
6566 | build-data | |
6567 | build-primref | |
6568 | build-lambda-case | |
6569 | build-case-lambda | |
6570 | build-simple-lambda | |
6571 | build-global-definition | |
6572 | build-global-assignment | |
6573 | build-global-reference | |
6574 | analyze-variable | |
6575 | build-lexical-assignment | |
6576 | build-lexical-reference | |
6577 | build-dynlet | |
6578 | build-conditional | |
6579 | build-application | |
6580 | build-void | |
6581 | maybe-name-value! | |
6582 | decorate-source | |
6583 | get-global-definition-hook | |
6584 | put-global-definition-hook | |
6585 | gensym-hook | |
6586 | local-eval-hook | |
6587 | top-level-eval-hook | |
6588 | fx< | |
6589 | fx= | |
6590 | fx- | |
6591 | fx+ | |
6592 | set-lambda-meta! | |
6593 | lambda-meta | |
6594 | lambda? | |
6595 | make-dynlet | |
6596 | make-letrec | |
6597 | make-let | |
6598 | make-lambda-case | |
6599 | make-lambda | |
6600 | make-sequence | |
6601 | make-application | |
6602 | make-conditional | |
6603 | make-toplevel-define | |
6604 | make-toplevel-set | |
6605 | make-toplevel-ref | |
6606 | make-module-set | |
6607 | make-module-ref | |
6608 | make-lexical-set | |
6609 | make-lexical-ref | |
6610 | make-primitive-ref | |
6611 | make-const | |
6612 | make-void) | |
6613 | ((top) | |
6614 | (top) | |
6615 | (top) | |
6616 | (top) | |
6617 | (top) | |
6618 | (top) | |
6619 | (top) | |
6620 | (top) | |
6621 | (top) | |
6622 | (top) | |
6623 | (top) | |
6624 | (top) | |
6625 | (top) | |
6626 | (top) | |
6627 | (top) | |
6628 | (top) | |
6629 | (top) | |
6630 | (top) | |
6631 | (top) | |
6632 | (top) | |
6633 | (top) | |
6634 | (top) | |
6635 | (top) | |
6636 | (top) | |
6637 | (top) | |
6638 | (top) | |
6639 | (top) | |
6640 | (top) | |
6641 | (top) | |
6642 | (top) | |
6643 | (top) | |
6644 | (top) | |
6645 | (top) | |
6646 | (top) | |
6647 | (top) | |
6648 | (top) | |
6649 | (top) | |
6650 | (top) | |
6651 | (top) | |
6652 | (top) | |
6653 | (top) | |
6654 | (top) | |
6655 | (top) | |
6656 | (top) | |
6657 | (top) | |
6658 | (top) | |
6659 | (top) | |
6660 | (top) | |
6661 | (top) | |
6662 | (top) | |
6663 | (top) | |
6664 | (top) | |
6665 | (top) | |
6666 | (top) | |
6667 | (top) | |
6668 | (top) | |
6669 | (top) | |
6670 | (top) | |
6671 | (top) | |
6672 | (top) | |
6673 | (top) | |
6674 | (top) | |
6675 | (top) | |
6676 | (top) | |
6677 | (top) | |
6678 | (top) | |
6679 | (top) | |
6680 | (top) | |
6681 | (top) | |
6682 | (top) | |
6683 | (top) | |
6684 | (top) | |
6685 | (top) | |
6686 | (top) | |
6687 | (top) | |
6688 | (top) | |
6689 | (top) | |
6690 | (top) | |
6691 | (top) | |
6692 | (top) | |
6693 | (top) | |
6694 | (top) | |
6695 | (top) | |
6696 | (top) | |
6697 | (top) | |
6698 | (top) | |
6699 | (top) | |
6700 | (top) | |
6701 | (top) | |
6702 | (top) | |
6703 | (top) | |
6704 | (top) | |
6705 | (top) | |
6706 | (top) | |
6707 | (top) | |
6708 | (top) | |
6709 | (top) | |
6710 | (top) | |
6711 | (top) | |
6712 | (top) | |
6713 | (top) | |
6714 | (top) | |
6715 | (top) | |
6716 | (top) | |
6717 | (top) | |
6718 | (top) | |
6719 | (top) | |
6720 | (top) | |
6721 | (top) | |
6722 | (top) | |
6723 | (top) | |
6724 | (top) | |
6725 | (top) | |
6726 | (top) | |
6727 | (top) | |
6728 | (top) | |
6729 | (top) | |
6730 | (top) | |
6731 | (top) | |
6732 | (top) | |
6733 | (top) | |
6734 | (top) | |
6735 | (top) | |
6736 | (top) | |
6737 | (top) | |
6738 | (top) | |
6739 | (top) | |
6740 | (top) | |
6741 | (top) | |
6742 | (top) | |
6743 | (top) | |
6744 | (top) | |
6745 | (top) | |
6746 | (top) | |
6747 | (top) | |
b78d91d5 | 6748 | (top)) |
43353663 AW |
6749 | ("i489" |
6750 | "i487" | |
6751 | "i485" | |
6752 | "i483" | |
6753 | "i481" | |
6754 | "i479" | |
6755 | "i477" | |
6756 | "i475" | |
6757 | "i473" | |
6758 | "i471" | |
6759 | "i469" | |
6760 | "i467" | |
6761 | "i465" | |
6762 | "i463" | |
6763 | "i461" | |
6764 | "i459" | |
6765 | "i457" | |
6766 | "i455" | |
6767 | "i453" | |
6768 | "i451" | |
6769 | "i449" | |
6770 | "i447" | |
6771 | "i445" | |
6772 | "i443" | |
6773 | "i441" | |
6774 | "i439" | |
6775 | "i437" | |
6776 | "i435" | |
6777 | "i433" | |
6778 | "i431" | |
6779 | "i429" | |
6780 | "i427" | |
6781 | "i425" | |
6782 | "i423" | |
6783 | "i421" | |
8f1870f2 | 6784 | "i420" |
b78d91d5 | 6785 | "i419" |
43353663 | 6786 | "i417" |
8f1870f2 | 6787 | "i416" |
381ccb0b | 6788 | "i415" |
d8e4f9e5 | 6789 | "i414" |
381ccb0b | 6790 | "i413" |
43353663 AW |
6791 | "i411" |
6792 | "i409" | |
6793 | "i407" | |
6794 | "i405" | |
6795 | "i403" | |
6796 | "i401" | |
6797 | "i399" | |
6798 | "i397" | |
6799 | "i394" | |
6800 | "i392" | |
8f1870f2 | 6801 | "i391" |
b78d91d5 | 6802 | "i390" |
381ccb0b | 6803 | "i389" |
d8e4f9e5 | 6804 | "i388" |
381ccb0b | 6805 | "i387" |
d8e4f9e5 | 6806 | "i386" |
381ccb0b | 6807 | "i385" |
d8e4f9e5 | 6808 | "i384" |
43353663 | 6809 | "i382" |
8f1870f2 | 6810 | "i381" |
43353663 AW |
6811 | "i379" |
6812 | "i377" | |
6813 | "i375" | |
6814 | "i373" | |
6815 | "i371" | |
6816 | "i369" | |
6817 | "i367" | |
8f1870f2 | 6818 | "i366" |
381ccb0b | 6819 | "i365" |
d8e4f9e5 | 6820 | "i364" |
381ccb0b | 6821 | "i363" |
d8e4f9e5 | 6822 | "i362" |
43353663 | 6823 | "i360" |
8f1870f2 | 6824 | "i359" |
43353663 AW |
6825 | "i357" |
6826 | "i355" | |
6827 | "i353" | |
6828 | "i351" | |
6829 | "i349" | |
6830 | "i347" | |
6831 | "i345" | |
6832 | "i343" | |
6833 | "i341" | |
6834 | "i339" | |
6835 | "i337" | |
6836 | "i335" | |
6837 | "i333" | |
6838 | "i331" | |
6839 | "i329" | |
6840 | "i327" | |
6841 | "i325" | |
6842 | "i323" | |
6843 | "i321" | |
6844 | "i319" | |
6845 | "i317" | |
6846 | "i315" | |
6847 | "i313" | |
6848 | "i311" | |
6849 | "i309" | |
6850 | "i307" | |
6851 | "i305" | |
6852 | "i303" | |
6853 | "i301" | |
6854 | "i299" | |
6855 | "i297" | |
6856 | "i295" | |
8f1870f2 | 6857 | "i294" |
43353663 AW |
6858 | "i292" |
6859 | "i290" | |
6860 | "i288" | |
6861 | "i286" | |
6862 | "i284" | |
6863 | "i282" | |
6864 | "i280" | |
6865 | "i278" | |
6866 | "i276" | |
6867 | "i273" | |
6868 | "i271" | |
6869 | "i269" | |
6870 | "i267" | |
6871 | "i265" | |
6872 | "i263" | |
6873 | "i261" | |
6874 | "i259" | |
6875 | "i257" | |
6876 | "i255" | |
6877 | "i253" | |
6878 | "i251" | |
6879 | "i249" | |
6880 | "i247" | |
6881 | "i245" | |
6882 | "i243" | |
6883 | "i241" | |
6884 | "i239")) | |
b78d91d5 AW |
6885 | #(ribcage |
6886 | (define-structure | |
6887 | define-expansion-accessors | |
6888 | define-expansion-constructors | |
6889 | and-map*) | |
6890 | ((top) (top) (top) (top)) | |
43353663 | 6891 | ("i41" "i40" "i39" "i37"))) |
b78d91d5 AW |
6892 | (hygiene guile))) |
6893 | #f))) | |
43353663 AW |
6894 | (#{lambda-formals\ 478}# |
6895 | (lambda (#{orig-args\ 2204}#) | |
417ee098 | 6896 | (letrec* |
43353663 AW |
6897 | ((#{req\ 2207}# |
6898 | (lambda (#{args\ 2210}# #{rreq\ 2211}#) | |
6899 | (let ((#{tmp\ 2214}# #{args\ 2210}#)) | |
6900 | (let ((#{tmp\ 2215}# ($sc-dispatch #{tmp\ 2214}# '()))) | |
6901 | (if #{tmp\ 2215}# | |
5f8c55ce AW |
6902 | (@apply |
6903 | (lambda () | |
43353663 AW |
6904 | (#{check\ 2209}# (reverse #{rreq\ 2211}#) #f)) |
6905 | #{tmp\ 2215}#) | |
6906 | (let ((#{tmp\ 2216}# | |
6907 | ($sc-dispatch #{tmp\ 2214}# '(any . any)))) | |
6908 | (if (if #{tmp\ 2216}# | |
5f8c55ce | 6909 | (@apply |
43353663 AW |
6910 | (lambda (#{a\ 2219}# #{b\ 2220}#) |
6911 | (#{id?\ 380}# #{a\ 2219}#)) | |
6912 | #{tmp\ 2216}#) | |
5f8c55ce AW |
6913 | #f) |
6914 | (@apply | |
43353663 AW |
6915 | (lambda (#{a\ 2223}# #{b\ 2224}#) |
6916 | (#{req\ 2207}# | |
6917 | #{b\ 2224}# | |
6918 | (cons #{a\ 2223}# #{rreq\ 2211}#))) | |
6919 | #{tmp\ 2216}#) | |
6920 | (let ((#{tmp\ 2225}# (list #{tmp\ 2214}#))) | |
6921 | (if (if #{tmp\ 2225}# | |
5f8c55ce | 6922 | (@apply |
43353663 AW |
6923 | (lambda (#{r\ 2227}#) |
6924 | (#{id?\ 380}# #{r\ 2227}#)) | |
6925 | #{tmp\ 2225}#) | |
5f8c55ce AW |
6926 | #f) |
6927 | (@apply | |
43353663 AW |
6928 | (lambda (#{r\ 2229}#) |
6929 | (#{check\ 2209}# | |
6930 | (reverse #{rreq\ 2211}#) | |
6931 | #{r\ 2229}#)) | |
6932 | #{tmp\ 2225}#) | |
6933 | (let ((#{else\ 2231}# #{tmp\ 2214}#)) | |
5f8c55ce AW |
6934 | (syntax-violation |
6935 | 'lambda | |
6936 | "invalid argument list" | |
43353663 AW |
6937 | #{orig-args\ 2204}# |
6938 | #{args\ 2210}#))))))))))) | |
6939 | (#{check\ 2209}# | |
6940 | (lambda (#{req\ 2232}# #{rest\ 2233}#) | |
6941 | (if (#{distinct-bound-ids?\ 442}# | |
6942 | (if #{rest\ 2233}# | |
6943 | (cons #{rest\ 2233}# #{req\ 2232}#) | |
6944 | #{req\ 2232}#)) | |
6945 | (values #{req\ 2232}# #f #{rest\ 2233}# #f) | |
5f8c55ce AW |
6946 | (syntax-violation |
6947 | 'lambda | |
6948 | "duplicate identifier in argument list" | |
43353663 AW |
6949 | #{orig-args\ 2204}#))))) |
6950 | (begin (#{req\ 2207}# #{orig-args\ 2204}# '()))))) | |
6951 | (#{chi-simple-lambda\ 480}# | |
6952 | (lambda (#{e\ 2239}# | |
6953 | #{r\ 2240}# | |
6954 | #{w\ 2241}# | |
6955 | #{s\ 2242}# | |
6956 | #{mod\ 2243}# | |
6957 | #{req\ 2244}# | |
6958 | #{rest\ 2245}# | |
6959 | #{meta\ 2246}# | |
6960 | #{body\ 2247}#) | |
417ee098 | 6961 | (begin |
43353663 AW |
6962 | (let ((#{ids\ 2259}# |
6963 | (if #{rest\ 2245}# | |
6964 | (append #{req\ 2244}# (list #{rest\ 2245}#)) | |
6965 | #{req\ 2244}#))) | |
417ee098 | 6966 | (begin |
43353663 AW |
6967 | (let ((#{vars\ 2261}# |
6968 | (map #{gen-var\ 488}# #{ids\ 2259}#))) | |
417ee098 | 6969 | (begin |
43353663 AW |
6970 | (let ((#{labels\ 2263}# |
6971 | (#{gen-labels\ 395}# #{ids\ 2259}#))) | |
6972 | (#{build-simple-lambda\ 324}# | |
6973 | #{s\ 2242}# | |
6974 | (map syntax->datum #{req\ 2244}#) | |
6975 | (if #{rest\ 2245}# | |
6976 | (syntax->datum #{rest\ 2245}#) | |
5f8c55ce | 6977 | #f) |
43353663 AW |
6978 | #{vars\ 2261}# |
6979 | #{meta\ 2246}# | |
6980 | (#{chi-body\ 468}# | |
6981 | #{body\ 2247}# | |
6982 | (#{source-wrap\ 448}# | |
6983 | #{e\ 2239}# | |
6984 | #{w\ 2241}# | |
6985 | #{s\ 2242}# | |
6986 | #{mod\ 2243}#) | |
6987 | (#{extend-var-env\ 370}# | |
6988 | #{labels\ 2263}# | |
6989 | #{vars\ 2261}# | |
6990 | #{r\ 2240}#) | |
6991 | (#{make-binding-wrap\ 424}# | |
6992 | #{ids\ 2259}# | |
6993 | #{labels\ 2263}# | |
6994 | #{w\ 2241}#) | |
6995 | #{mod\ 2243}#)))))))))) | |
6996 | (#{lambda*-formals\ 482}# | |
6997 | (lambda (#{orig-args\ 2266}#) | |
5f8c55ce | 6998 | (letrec* |
43353663 AW |
6999 | ((#{req\ 2269}# |
7000 | (lambda (#{args\ 2278}# #{rreq\ 2279}#) | |
7001 | (let ((#{tmp\ 2282}# #{args\ 2278}#)) | |
7002 | (let ((#{tmp\ 2283}# ($sc-dispatch #{tmp\ 2282}# '()))) | |
7003 | (if #{tmp\ 2283}# | |
5f8c55ce AW |
7004 | (@apply |
7005 | (lambda () | |
43353663 AW |
7006 | (#{check\ 2277}# |
7007 | (reverse #{rreq\ 2279}#) | |
5f8c55ce AW |
7008 | '() |
7009 | #f | |
7010 | '())) | |
43353663 AW |
7011 | #{tmp\ 2283}#) |
7012 | (let ((#{tmp\ 2284}# | |
7013 | ($sc-dispatch #{tmp\ 2282}# '(any . any)))) | |
7014 | (if (if #{tmp\ 2284}# | |
5f8c55ce | 7015 | (@apply |
43353663 AW |
7016 | (lambda (#{a\ 2287}# #{b\ 2288}#) |
7017 | (#{id?\ 380}# #{a\ 2287}#)) | |
7018 | #{tmp\ 2284}#) | |
5f8c55ce AW |
7019 | #f) |
7020 | (@apply | |
43353663 AW |
7021 | (lambda (#{a\ 2291}# #{b\ 2292}#) |
7022 | (#{req\ 2269}# | |
7023 | #{b\ 2292}# | |
7024 | (cons #{a\ 2291}# #{rreq\ 2279}#))) | |
7025 | #{tmp\ 2284}#) | |
7026 | (let ((#{tmp\ 2293}# | |
5f8c55ce | 7027 | ($sc-dispatch |
43353663 | 7028 | #{tmp\ 2282}# |
5f8c55ce | 7029 | '(any . any)))) |
43353663 | 7030 | (if (if #{tmp\ 2293}# |
5f8c55ce | 7031 | (@apply |
43353663 AW |
7032 | (lambda (#{a\ 2296}# #{b\ 2297}#) |
7033 | (eq? (syntax->datum #{a\ 2296}#) | |
5f8c55ce | 7034 | #:optional)) |
43353663 | 7035 | #{tmp\ 2293}#) |
5f8c55ce AW |
7036 | #f) |
7037 | (@apply | |
43353663 AW |
7038 | (lambda (#{a\ 2300}# #{b\ 2301}#) |
7039 | (#{opt\ 2271}# | |
7040 | #{b\ 2301}# | |
7041 | (reverse #{rreq\ 2279}#) | |
5f8c55ce | 7042 | '())) |
43353663 AW |
7043 | #{tmp\ 2293}#) |
7044 | (let ((#{tmp\ 2302}# | |
5f8c55ce | 7045 | ($sc-dispatch |
43353663 | 7046 | #{tmp\ 2282}# |
5f8c55ce | 7047 | '(any . any)))) |
43353663 | 7048 | (if (if #{tmp\ 2302}# |
5f8c55ce | 7049 | (@apply |
43353663 AW |
7050 | (lambda (#{a\ 2305}# #{b\ 2306}#) |
7051 | (eq? (syntax->datum #{a\ 2305}#) | |
5f8c55ce | 7052 | #:key)) |
43353663 | 7053 | #{tmp\ 2302}#) |
5f8c55ce AW |
7054 | #f) |
7055 | (@apply | |
43353663 AW |
7056 | (lambda (#{a\ 2309}# #{b\ 2310}#) |
7057 | (#{key\ 2273}# | |
7058 | #{b\ 2310}# | |
7059 | (reverse #{rreq\ 2279}#) | |
5f8c55ce AW |
7060 | '() |
7061 | '())) | |
43353663 AW |
7062 | #{tmp\ 2302}#) |
7063 | (let ((#{tmp\ 2311}# | |
5f8c55ce | 7064 | ($sc-dispatch |
43353663 | 7065 | #{tmp\ 2282}# |
5f8c55ce | 7066 | '(any any)))) |
43353663 | 7067 | (if (if #{tmp\ 2311}# |
5f8c55ce | 7068 | (@apply |
43353663 AW |
7069 | (lambda (#{a\ 2314}# |
7070 | #{b\ 2315}#) | |
5f8c55ce | 7071 | (eq? (syntax->datum |
43353663 | 7072 | #{a\ 2314}#) |
5f8c55ce | 7073 | #:rest)) |
43353663 | 7074 | #{tmp\ 2311}#) |
5f8c55ce AW |
7075 | #f) |
7076 | (@apply | |
43353663 AW |
7077 | (lambda (#{a\ 2318}# #{b\ 2319}#) |
7078 | (#{rest\ 2275}# | |
7079 | #{b\ 2319}# | |
7080 | (reverse #{rreq\ 2279}#) | |
5f8c55ce AW |
7081 | '() |
7082 | '())) | |
43353663 AW |
7083 | #{tmp\ 2311}#) |
7084 | (let ((#{tmp\ 2320}# | |
7085 | (list #{tmp\ 2282}#))) | |
7086 | (if (if #{tmp\ 2320}# | |
5f8c55ce | 7087 | (@apply |
43353663 AW |
7088 | (lambda (#{r\ 2322}#) |
7089 | (#{id?\ 380}# | |
7090 | #{r\ 2322}#)) | |
7091 | #{tmp\ 2320}#) | |
5f8c55ce AW |
7092 | #f) |
7093 | (@apply | |
43353663 AW |
7094 | (lambda (#{r\ 2324}#) |
7095 | (#{rest\ 2275}# | |
7096 | #{r\ 2324}# | |
7097 | (reverse #{rreq\ 2279}#) | |
5f8c55ce AW |
7098 | '() |
7099 | '())) | |
43353663 AW |
7100 | #{tmp\ 2320}#) |
7101 | (let ((#{else\ 2326}# | |
7102 | #{tmp\ 2282}#)) | |
5f8c55ce AW |
7103 | (syntax-violation |
7104 | 'lambda* | |
7105 | "invalid argument list" | |
43353663 AW |
7106 | #{orig-args\ 2266}# |
7107 | #{args\ 2278}#))))))))))))))))) | |
7108 | (#{opt\ 2271}# | |
7109 | (lambda (#{args\ 2327}# #{req\ 2328}# #{ropt\ 2329}#) | |
7110 | (let ((#{tmp\ 2333}# #{args\ 2327}#)) | |
7111 | (let ((#{tmp\ 2334}# ($sc-dispatch #{tmp\ 2333}# '()))) | |
7112 | (if #{tmp\ 2334}# | |
5f8c55ce AW |
7113 | (@apply |
7114 | (lambda () | |
43353663 AW |
7115 | (#{check\ 2277}# |
7116 | #{req\ 2328}# | |
7117 | (reverse #{ropt\ 2329}#) | |
5f8c55ce AW |
7118 | #f |
7119 | '())) | |
43353663 AW |
7120 | #{tmp\ 2334}#) |
7121 | (let ((#{tmp\ 2335}# | |
7122 | ($sc-dispatch #{tmp\ 2333}# '(any . any)))) | |
7123 | (if (if #{tmp\ 2335}# | |
5f8c55ce | 7124 | (@apply |
43353663 AW |
7125 | (lambda (#{a\ 2338}# #{b\ 2339}#) |
7126 | (#{id?\ 380}# #{a\ 2338}#)) | |
7127 | #{tmp\ 2335}#) | |
5f8c55ce AW |
7128 | #f) |
7129 | (@apply | |
43353663 AW |
7130 | (lambda (#{a\ 2342}# #{b\ 2343}#) |
7131 | (#{opt\ 2271}# | |
7132 | #{b\ 2343}# | |
7133 | #{req\ 2328}# | |
7134 | (cons (cons #{a\ 2342}# | |
5f8c55ce AW |
7135 | '(#(syntax-object |
7136 | #f | |
7137 | ((top) | |
7138 | #(ribcage | |
7139 | #(a b) | |
7140 | #((top) (top)) | |
43353663 | 7141 | #("i2340" "i2341")) |
5f8c55ce AW |
7142 | #(ribcage () () ()) |
7143 | #(ribcage | |
7144 | #(args req ropt) | |
7145 | #((top) (top) (top)) | |
43353663 AW |
7146 | #("i2330" |
7147 | "i2331" | |
7148 | "i2332")) | |
5f8c55ce AW |
7149 | #(ribcage |
7150 | (check rest key opt req) | |
7151 | ((top) | |
7152 | (top) | |
7153 | (top) | |
7154 | (top) | |
7155 | (top)) | |
43353663 AW |
7156 | ("i2276" |
7157 | "i2274" | |
7158 | "i2272" | |
7159 | "i2270" | |
7160 | "i2268")) | |
5f8c55ce AW |
7161 | #(ribcage |
7162 | #(orig-args) | |
7163 | #((top)) | |
43353663 | 7164 | #("i2267")) |
5f8c55ce AW |
7165 | #(ribcage |
7166 | (lambda-var-list | |
7167 | gen-var | |
7168 | strip | |
7169 | chi-lambda-case | |
7170 | lambda*-formals | |
7171 | chi-simple-lambda | |
7172 | lambda-formals | |
7173 | ellipsis? | |
7174 | chi-void | |
7175 | eval-local-transformer | |
7176 | chi-local-syntax | |
7177 | chi-body | |
7178 | chi-macro | |
7179 | chi-application | |
7180 | chi-expr | |
7181 | chi | |
5f8c55ce AW |
7182 | syntax-type |
7183 | chi-when-list | |
7184 | chi-install-global | |
7185 | chi-top-sequence | |
7186 | chi-sequence | |
7187 | source-wrap | |
7188 | wrap | |
7189 | bound-id-member? | |
7190 | distinct-bound-ids? | |
7191 | valid-bound-ids? | |
7192 | bound-id=? | |
7193 | free-id=? | |
7194 | id-var-name | |
7195 | same-marks? | |
7196 | join-marks | |
7197 | join-wraps | |
7198 | smart-append | |
7199 | make-binding-wrap | |
7200 | extend-ribcage! | |
7201 | make-empty-ribcage | |
7202 | new-mark | |
7203 | anti-mark | |
7204 | the-anti-mark | |
7205 | top-marked? | |
7206 | top-wrap | |
7207 | empty-wrap | |
7208 | set-ribcage-labels! | |
7209 | set-ribcage-marks! | |
7210 | set-ribcage-symnames! | |
7211 | ribcage-labels | |
7212 | ribcage-marks | |
7213 | ribcage-symnames | |
7214 | ribcage? | |
7215 | make-ribcage | |
7216 | gen-labels | |
7217 | gen-label | |
7218 | make-rename | |
7219 | rename-marks | |
7220 | rename-new | |
7221 | rename-old | |
7222 | subst-rename? | |
7223 | wrap-subst | |
7224 | wrap-marks | |
7225 | make-wrap | |
7226 | id-sym-name&marks | |
7227 | id-sym-name | |
7228 | id? | |
7229 | nonsymbol-id? | |
7230 | global-extend | |
7231 | lookup | |
7232 | macros-only-env | |
7233 | extend-var-env | |
7234 | extend-env | |
7235 | null-env | |
7236 | binding-value | |
7237 | binding-type | |
7238 | make-binding | |
7239 | arg-check | |
7240 | source-annotation | |
7241 | no-source | |
7242 | set-syntax-object-module! | |
7243 | set-syntax-object-wrap! | |
7244 | set-syntax-object-expression! | |
7245 | syntax-object-module | |
7246 | syntax-object-wrap | |
7247 | syntax-object-expression | |
7248 | syntax-object? | |
7249 | make-syntax-object | |
7250 | build-lexical-var | |
7251 | build-letrec | |
7252 | build-named-let | |
7253 | build-let | |
7254 | build-sequence | |
7255 | build-data | |
7256 | build-primref | |
7257 | build-lambda-case | |
7258 | build-case-lambda | |
7259 | build-simple-lambda | |
7260 | build-global-definition | |
5f8c55ce AW |
7261 | build-global-assignment |
7262 | build-global-reference | |
7263 | analyze-variable | |
7264 | build-lexical-assignment | |
7265 | build-lexical-reference | |
7266 | build-dynlet | |
7267 | build-conditional | |
7268 | build-application | |
7269 | build-void | |
37620f3f | 7270 | maybe-name-value! |
5f8c55ce AW |
7271 | decorate-source |
7272 | get-global-definition-hook | |
7273 | put-global-definition-hook | |
7274 | gensym-hook | |
7275 | local-eval-hook | |
7276 | top-level-eval-hook | |
7277 | fx< | |
7278 | fx= | |
7279 | fx- | |
7280 | fx+ | |
7281 | set-lambda-meta! | |
7282 | lambda-meta | |
7283 | lambda? | |
7284 | make-dynlet | |
7285 | make-letrec | |
7286 | make-let | |
7287 | make-lambda-case | |
7288 | make-lambda | |
7289 | make-sequence | |
7290 | make-application | |
7291 | make-conditional | |
7292 | make-toplevel-define | |
7293 | make-toplevel-set | |
7294 | make-toplevel-ref | |
7295 | make-module-set | |
7296 | make-module-ref | |
7297 | make-lexical-set | |
7298 | make-lexical-ref | |
7299 | make-primitive-ref | |
7300 | make-const | |
7301 | make-void) | |
7302 | ((top) | |
7303 | (top) | |
7304 | (top) | |
7305 | (top) | |
7306 | (top) | |
7307 | (top) | |
7308 | (top) | |
7309 | (top) | |
7310 | (top) | |
7311 | (top) | |
7312 | (top) | |
7313 | (top) | |
7314 | (top) | |
7315 | (top) | |
7316 | (top) | |
7317 | (top) | |
7318 | (top) | |
7319 | (top) | |
7320 | (top) | |
7321 | (top) | |
7322 | (top) | |
7323 | (top) | |
7324 | (top) | |
7325 | (top) | |
7326 | (top) | |
7327 | (top) | |
7328 | (top) | |
7329 | (top) | |
7330 | (top) | |
7331 | (top) | |
7332 | (top) | |
7333 | (top) | |
7334 | (top) | |
7335 | (top) | |
7336 | (top) | |
7337 | (top) | |
7338 | (top) | |
7339 | (top) | |
7340 | (top) | |
7341 | (top) | |
7342 | (top) | |
7343 | (top) | |
7344 | (top) | |
7345 | (top) | |
7346 | (top) | |
7347 | (top) | |
7348 | (top) | |
7349 | (top) | |
7350 | (top) | |
7351 | (top) | |
7352 | (top) | |
7353 | (top) | |
7354 | (top) | |
7355 | (top) | |
7356 | (top) | |
7357 | (top) | |
7358 | (top) | |
7359 | (top) | |
7360 | (top) | |
7361 | (top) | |
7362 | (top) | |
7363 | (top) | |
7364 | (top) | |
7365 | (top) | |
7366 | (top) | |
7367 | (top) | |
7368 | (top) | |
7369 | (top) | |
7370 | (top) | |
7371 | (top) | |
7372 | (top) | |
7373 | (top) | |
7374 | (top) | |
7375 | (top) | |
7376 | (top) | |
7377 | (top) | |
7378 | (top) | |
7379 | (top) | |
7380 | (top) | |
7381 | (top) | |
7382 | (top) | |
7383 | (top) | |
7384 | (top) | |
7385 | (top) | |
7386 | (top) | |
7387 | (top) | |
7388 | (top) | |
7389 | (top) | |
7390 | (top) | |
7391 | (top) | |
7392 | (top) | |
7393 | (top) | |
7394 | (top) | |
7395 | (top) | |
7396 | (top) | |
7397 | (top) | |
7398 | (top) | |
7399 | (top) | |
7400 | (top) | |
7401 | (top) | |
7402 | (top) | |
7403 | (top) | |
7404 | (top) | |
7405 | (top) | |
7406 | (top) | |
7407 | (top) | |
7408 | (top) | |
7409 | (top) | |
7410 | (top) | |
7411 | (top) | |
7412 | (top) | |
7413 | (top) | |
7414 | (top) | |
7415 | (top) | |
7416 | (top) | |
7417 | (top) | |
7418 | (top) | |
7419 | (top) | |
7420 | (top) | |
7421 | (top) | |
7422 | (top) | |
7423 | (top) | |
7424 | (top) | |
7425 | (top) | |
7426 | (top) | |
7427 | (top) | |
7428 | (top) | |
7429 | (top) | |
7430 | (top) | |
7431 | (top) | |
7432 | (top) | |
7433 | (top) | |
7434 | (top) | |
7435 | (top) | |
7436 | (top) | |
5f8c55ce | 7437 | (top)) |
43353663 AW |
7438 | ("i489" |
7439 | "i487" | |
7440 | "i485" | |
7441 | "i483" | |
7442 | "i481" | |
7443 | "i479" | |
7444 | "i477" | |
7445 | "i475" | |
7446 | "i473" | |
7447 | "i471" | |
7448 | "i469" | |
7449 | "i467" | |
7450 | "i465" | |
7451 | "i463" | |
7452 | "i461" | |
7453 | "i459" | |
7454 | "i457" | |
7455 | "i455" | |
7456 | "i453" | |
7457 | "i451" | |
7458 | "i449" | |
7459 | "i447" | |
7460 | "i445" | |
7461 | "i443" | |
7462 | "i441" | |
7463 | "i439" | |
7464 | "i437" | |
7465 | "i435" | |
7466 | "i433" | |
7467 | "i431" | |
7468 | "i429" | |
7469 | "i427" | |
7470 | "i425" | |
7471 | "i423" | |
7472 | "i421" | |
8f1870f2 | 7473 | "i420" |
b78d91d5 | 7474 | "i419" |
43353663 | 7475 | "i417" |
8f1870f2 | 7476 | "i416" |
381ccb0b | 7477 | "i415" |
d8e4f9e5 | 7478 | "i414" |
381ccb0b | 7479 | "i413" |
43353663 AW |
7480 | "i411" |
7481 | "i409" | |
7482 | "i407" | |
7483 | "i405" | |
7484 | "i403" | |
7485 | "i401" | |
7486 | "i399" | |
7487 | "i397" | |
7488 | "i394" | |
7489 | "i392" | |
8f1870f2 | 7490 | "i391" |
77b79cce | 7491 | "i390" |
381ccb0b | 7492 | "i389" |
d8e4f9e5 | 7493 | "i388" |
381ccb0b | 7494 | "i387" |
d8e4f9e5 | 7495 | "i386" |
381ccb0b | 7496 | "i385" |
d8e4f9e5 | 7497 | "i384" |
43353663 | 7498 | "i382" |
8f1870f2 | 7499 | "i381" |
43353663 AW |
7500 | "i379" |
7501 | "i377" | |
7502 | "i375" | |
7503 | "i373" | |
7504 | "i371" | |
7505 | "i369" | |
7506 | "i367" | |
8f1870f2 | 7507 | "i366" |
381ccb0b | 7508 | "i365" |
d8e4f9e5 | 7509 | "i364" |
381ccb0b | 7510 | "i363" |
d8e4f9e5 | 7511 | "i362" |
43353663 | 7512 | "i360" |
8f1870f2 | 7513 | "i359" |
43353663 AW |
7514 | "i357" |
7515 | "i355" | |
7516 | "i353" | |
7517 | "i351" | |
7518 | "i349" | |
7519 | "i347" | |
7520 | "i345" | |
7521 | "i343" | |
7522 | "i341" | |
7523 | "i339" | |
7524 | "i337" | |
7525 | "i335" | |
7526 | "i333" | |
7527 | "i331" | |
7528 | "i329" | |
7529 | "i327" | |
7530 | "i325" | |
7531 | "i323" | |
7532 | "i321" | |
7533 | "i319" | |
7534 | "i317" | |
7535 | "i315" | |
7536 | "i313" | |
7537 | "i311" | |
7538 | "i309" | |
7539 | "i307" | |
7540 | "i305" | |
7541 | "i303" | |
7542 | "i301" | |
7543 | "i299" | |
7544 | "i297" | |
7545 | "i295" | |
8f1870f2 | 7546 | "i294" |
43353663 AW |
7547 | "i292" |
7548 | "i290" | |
7549 | "i288" | |
7550 | "i286" | |
7551 | "i284" | |
7552 | "i282" | |
7553 | "i280" | |
7554 | "i278" | |
7555 | "i276" | |
7556 | "i273" | |
7557 | "i271" | |
7558 | "i269" | |
7559 | "i267" | |
7560 | "i265" | |
7561 | "i263" | |
7562 | "i261" | |
7563 | "i259" | |
7564 | "i257" | |
7565 | "i255" | |
7566 | "i253" | |
7567 | "i251" | |
7568 | "i249" | |
7569 | "i247" | |
7570 | "i245" | |
7571 | "i243" | |
7572 | "i241" | |
7573 | "i239")) | |
5f8c55ce AW |
7574 | #(ribcage |
7575 | (define-structure | |
7576 | define-expansion-accessors | |
7577 | define-expansion-constructors | |
7578 | and-map*) | |
7579 | ((top) | |
7580 | (top) | |
7581 | (top) | |
7582 | (top)) | |
43353663 AW |
7583 | ("i41" |
7584 | "i40" | |
8f1870f2 | 7585 | "i39" |
43353663 | 7586 | "i37"))) |
5f8c55ce | 7587 | (hygiene guile)))) |
43353663 AW |
7588 | #{ropt\ 2329}#))) |
7589 | #{tmp\ 2335}#) | |
7590 | (let ((#{tmp\ 2344}# | |
5f8c55ce | 7591 | ($sc-dispatch |
43353663 | 7592 | #{tmp\ 2333}# |
5f8c55ce | 7593 | '((any any) . any)))) |
43353663 | 7594 | (if (if #{tmp\ 2344}# |
5f8c55ce | 7595 | (@apply |
43353663 AW |
7596 | (lambda (#{a\ 2348}# |
7597 | #{init\ 2349}# | |
7598 | #{b\ 2350}#) | |
7599 | (#{id?\ 380}# #{a\ 2348}#)) | |
7600 | #{tmp\ 2344}#) | |
5f8c55ce AW |
7601 | #f) |
7602 | (@apply | |
43353663 AW |
7603 | (lambda (#{a\ 2354}# |
7604 | #{init\ 2355}# | |
7605 | #{b\ 2356}#) | |
7606 | (#{opt\ 2271}# | |
7607 | #{b\ 2356}# | |
7608 | #{req\ 2328}# | |
7609 | (cons (list #{a\ 2354}# #{init\ 2355}#) | |
7610 | #{ropt\ 2329}#))) | |
7611 | #{tmp\ 2344}#) | |
7612 | (let ((#{tmp\ 2357}# | |
5f8c55ce | 7613 | ($sc-dispatch |
43353663 | 7614 | #{tmp\ 2333}# |
5f8c55ce | 7615 | '(any . any)))) |
43353663 | 7616 | (if (if #{tmp\ 2357}# |
5f8c55ce | 7617 | (@apply |
43353663 AW |
7618 | (lambda (#{a\ 2360}# #{b\ 2361}#) |
7619 | (eq? (syntax->datum #{a\ 2360}#) | |
5f8c55ce | 7620 | #:key)) |
43353663 | 7621 | #{tmp\ 2357}#) |
5f8c55ce AW |
7622 | #f) |
7623 | (@apply | |
43353663 AW |
7624 | (lambda (#{a\ 2364}# #{b\ 2365}#) |
7625 | (#{key\ 2273}# | |
7626 | #{b\ 2365}# | |
7627 | #{req\ 2328}# | |
7628 | (reverse #{ropt\ 2329}#) | |
5f8c55ce | 7629 | '())) |
43353663 AW |
7630 | #{tmp\ 2357}#) |
7631 | (let ((#{tmp\ 2366}# | |
5f8c55ce | 7632 | ($sc-dispatch |
43353663 | 7633 | #{tmp\ 2333}# |
5f8c55ce | 7634 | '(any any)))) |
43353663 | 7635 | (if (if #{tmp\ 2366}# |
5f8c55ce | 7636 | (@apply |
43353663 AW |
7637 | (lambda (#{a\ 2369}# |
7638 | #{b\ 2370}#) | |
5f8c55ce | 7639 | (eq? (syntax->datum |
43353663 | 7640 | #{a\ 2369}#) |
5f8c55ce | 7641 | #:rest)) |
43353663 | 7642 | #{tmp\ 2366}#) |
5f8c55ce AW |
7643 | #f) |
7644 | (@apply | |
43353663 AW |
7645 | (lambda (#{a\ 2373}# #{b\ 2374}#) |
7646 | (#{rest\ 2275}# | |
7647 | #{b\ 2374}# | |
7648 | #{req\ 2328}# | |
7649 | (reverse #{ropt\ 2329}#) | |
5f8c55ce | 7650 | '())) |
43353663 AW |
7651 | #{tmp\ 2366}#) |
7652 | (let ((#{tmp\ 2375}# | |
7653 | (list #{tmp\ 2333}#))) | |
7654 | (if (if #{tmp\ 2375}# | |
5f8c55ce | 7655 | (@apply |
43353663 AW |
7656 | (lambda (#{r\ 2377}#) |
7657 | (#{id?\ 380}# | |
7658 | #{r\ 2377}#)) | |
7659 | #{tmp\ 2375}#) | |
5f8c55ce AW |
7660 | #f) |
7661 | (@apply | |
43353663 AW |
7662 | (lambda (#{r\ 2379}#) |
7663 | (#{rest\ 2275}# | |
7664 | #{r\ 2379}# | |
7665 | #{req\ 2328}# | |
7666 | (reverse #{ropt\ 2329}#) | |
5f8c55ce | 7667 | '())) |
43353663 AW |
7668 | #{tmp\ 2375}#) |
7669 | (let ((#{else\ 2381}# | |
7670 | #{tmp\ 2333}#)) | |
5f8c55ce AW |
7671 | (syntax-violation |
7672 | 'lambda* | |
7673 | "invalid optional argument list" | |
43353663 AW |
7674 | #{orig-args\ 2266}# |
7675 | #{args\ 2327}#))))))))))))))))) | |
7676 | (#{key\ 2273}# | |
7677 | (lambda (#{args\ 2382}# | |
7678 | #{req\ 2383}# | |
7679 | #{opt\ 2384}# | |
7680 | #{rkey\ 2385}#) | |
7681 | (let ((#{tmp\ 2390}# #{args\ 2382}#)) | |
7682 | (let ((#{tmp\ 2391}# ($sc-dispatch #{tmp\ 2390}# '()))) | |
7683 | (if #{tmp\ 2391}# | |
5f8c55ce AW |
7684 | (@apply |
7685 | (lambda () | |
43353663 AW |
7686 | (#{check\ 2277}# |
7687 | #{req\ 2383}# | |
7688 | #{opt\ 2384}# | |
5f8c55ce | 7689 | #f |
43353663 AW |
7690 | (cons #f (reverse #{rkey\ 2385}#)))) |
7691 | #{tmp\ 2391}#) | |
7692 | (let ((#{tmp\ 2392}# | |
7693 | ($sc-dispatch #{tmp\ 2390}# '(any . any)))) | |
7694 | (if (if #{tmp\ 2392}# | |
5f8c55ce | 7695 | (@apply |
43353663 AW |
7696 | (lambda (#{a\ 2395}# #{b\ 2396}#) |
7697 | (#{id?\ 380}# #{a\ 2395}#)) | |
7698 | #{tmp\ 2392}#) | |
5f8c55ce AW |
7699 | #f) |
7700 | (@apply | |
43353663 AW |
7701 | (lambda (#{a\ 2399}# #{b\ 2400}#) |
7702 | (let ((#{tmp\ 2402}# | |
5f8c55ce | 7703 | (symbol->keyword |
43353663 AW |
7704 | (syntax->datum #{a\ 2399}#)))) |
7705 | (let ((#{k\ 2404}# #{tmp\ 2402}#)) | |
7706 | (#{key\ 2273}# | |
7707 | #{b\ 2400}# | |
7708 | #{req\ 2383}# | |
7709 | #{opt\ 2384}# | |
7710 | (cons (cons #{k\ 2404}# | |
7711 | (cons #{a\ 2399}# | |
5f8c55ce AW |
7712 | '(#(syntax-object |
7713 | #f | |
7714 | ((top) | |
f929b9e5 AW |
7715 | #(ribcage |
7716 | () | |
7717 | () | |
7718 | ()) | |
5f8c55ce AW |
7719 | #(ribcage |
7720 | #(k) | |
7721 | #((top)) | |
43353663 | 7722 | #("i2403")) |
5f8c55ce AW |
7723 | #(ribcage |
7724 | #(a b) | |
7725 | #((top) (top)) | |
43353663 AW |
7726 | #("i2397" |
7727 | "i2398")) | |
5f8c55ce AW |
7728 | #(ribcage |
7729 | () | |
7730 | () | |
7731 | ()) | |
7732 | #(ribcage | |
7733 | #(args | |
7734 | req | |
7735 | opt | |
7736 | rkey) | |
7737 | #((top) | |
7738 | (top) | |
7739 | (top) | |
7740 | (top)) | |
43353663 AW |
7741 | #("i2386" |
7742 | "i2387" | |
7743 | "i2388" | |
7744 | "i2389")) | |
5f8c55ce AW |
7745 | #(ribcage |
7746 | (check rest | |
7747 | key | |
7748 | opt | |
7749 | req) | |
7750 | ((top) | |
7751 | (top) | |
7752 | (top) | |
7753 | (top) | |
7754 | (top)) | |
43353663 AW |
7755 | ("i2276" |
7756 | "i2274" | |
7757 | "i2272" | |
7758 | "i2270" | |
7759 | "i2268")) | |
5f8c55ce AW |
7760 | #(ribcage |
7761 | #(orig-args) | |
7762 | #((top)) | |
43353663 | 7763 | #("i2267")) |
5f8c55ce AW |
7764 | #(ribcage |
7765 | (lambda-var-list | |
7766 | gen-var | |
7767 | strip | |
7768 | chi-lambda-case | |
7769 | lambda*-formals | |
7770 | chi-simple-lambda | |
7771 | lambda-formals | |
7772 | ellipsis? | |
7773 | chi-void | |
7774 | eval-local-transformer | |
7775 | chi-local-syntax | |
7776 | chi-body | |
7777 | chi-macro | |
7778 | chi-application | |
7779 | chi-expr | |
7780 | chi | |
5f8c55ce AW |
7781 | syntax-type |
7782 | chi-when-list | |
7783 | chi-install-global | |
7784 | chi-top-sequence | |
7785 | chi-sequence | |
7786 | source-wrap | |
7787 | wrap | |
7788 | bound-id-member? | |
7789 | distinct-bound-ids? | |
7790 | valid-bound-ids? | |
7791 | bound-id=? | |
7792 | free-id=? | |
7793 | id-var-name | |
7794 | same-marks? | |
7795 | join-marks | |
7796 | join-wraps | |
7797 | smart-append | |
7798 | make-binding-wrap | |
7799 | extend-ribcage! | |
7800 | make-empty-ribcage | |
7801 | new-mark | |
7802 | anti-mark | |
7803 | the-anti-mark | |
7804 | top-marked? | |
7805 | top-wrap | |
7806 | empty-wrap | |
7807 | set-ribcage-labels! | |
7808 | set-ribcage-marks! | |
7809 | set-ribcage-symnames! | |
7810 | ribcage-labels | |
7811 | ribcage-marks | |
7812 | ribcage-symnames | |
7813 | ribcage? | |
7814 | make-ribcage | |
7815 | gen-labels | |
7816 | gen-label | |
7817 | make-rename | |
7818 | rename-marks | |
7819 | rename-new | |
7820 | rename-old | |
7821 | subst-rename? | |
7822 | wrap-subst | |
7823 | wrap-marks | |
7824 | make-wrap | |
7825 | id-sym-name&marks | |
7826 | id-sym-name | |
7827 | id? | |
7828 | nonsymbol-id? | |
7829 | global-extend | |
7830 | lookup | |
7831 | macros-only-env | |
7832 | extend-var-env | |
7833 | extend-env | |
7834 | null-env | |
7835 | binding-value | |
7836 | binding-type | |
7837 | make-binding | |
7838 | arg-check | |
7839 | source-annotation | |
7840 | no-source | |
7841 | set-syntax-object-module! | |
7842 | set-syntax-object-wrap! | |
7843 | set-syntax-object-expression! | |
7844 | syntax-object-module | |
7845 | syntax-object-wrap | |
7846 | syntax-object-expression | |
7847 | syntax-object? | |
7848 | make-syntax-object | |
7849 | build-lexical-var | |
7850 | build-letrec | |
7851 | build-named-let | |
7852 | build-let | |
7853 | build-sequence | |
7854 | build-data | |
7855 | build-primref | |
7856 | build-lambda-case | |
7857 | build-case-lambda | |
7858 | build-simple-lambda | |
7859 | build-global-definition | |
5f8c55ce AW |
7860 | build-global-assignment |
7861 | build-global-reference | |
7862 | analyze-variable | |
7863 | build-lexical-assignment | |
7864 | build-lexical-reference | |
7865 | build-dynlet | |
7866 | build-conditional | |
7867 | build-application | |
7868 | build-void | |
37620f3f | 7869 | maybe-name-value! |
5f8c55ce AW |
7870 | decorate-source |
7871 | get-global-definition-hook | |
7872 | put-global-definition-hook | |
7873 | gensym-hook | |
7874 | local-eval-hook | |
7875 | top-level-eval-hook | |
7876 | fx< | |
7877 | fx= | |
7878 | fx- | |
7879 | fx+ | |
7880 | set-lambda-meta! | |
7881 | lambda-meta | |
7882 | lambda? | |
7883 | make-dynlet | |
7884 | make-letrec | |
7885 | make-let | |
7886 | make-lambda-case | |
7887 | make-lambda | |
7888 | make-sequence | |
7889 | make-application | |
7890 | make-conditional | |
7891 | make-toplevel-define | |
7892 | make-toplevel-set | |
7893 | make-toplevel-ref | |
7894 | make-module-set | |
7895 | make-module-ref | |
7896 | make-lexical-set | |
7897 | make-lexical-ref | |
7898 | make-primitive-ref | |
7899 | make-const | |
7900 | make-void) | |
7901 | ((top) | |
7902 | (top) | |
7903 | (top) | |
7904 | (top) | |
7905 | (top) | |
7906 | (top) | |
7907 | (top) | |
7908 | (top) | |
7909 | (top) | |
7910 | (top) | |
7911 | (top) | |
7912 | (top) | |
7913 | (top) | |
7914 | (top) | |
7915 | (top) | |
7916 | (top) | |
7917 | (top) | |
7918 | (top) | |
7919 | (top) | |
7920 | (top) | |
7921 | (top) | |
7922 | (top) | |
7923 | (top) | |
7924 | (top) | |
7925 | (top) | |
7926 | (top) | |
7927 | (top) | |
7928 | (top) | |
7929 | (top) | |
7930 | (top) | |
7931 | (top) | |
7932 | (top) | |
7933 | (top) | |
7934 | (top) | |
7935 | (top) | |
7936 | (top) | |
7937 | (top) | |
7938 | (top) | |
7939 | (top) | |
7940 | (top) | |
7941 | (top) | |
7942 | (top) | |
7943 | (top) | |
7944 | (top) | |
7945 | (top) | |
7946 | (top) | |
7947 | (top) | |
7948 | (top) | |
7949 | (top) | |
7950 | (top) | |
7951 | (top) | |
7952 | (top) | |
7953 | (top) | |
7954 | (top) | |
7955 | (top) | |
7956 | (top) | |
7957 | (top) | |
7958 | (top) | |
7959 | (top) | |
7960 | (top) | |
7961 | (top) | |
7962 | (top) | |
7963 | (top) | |
7964 | (top) | |
7965 | (top) | |
7966 | (top) | |
7967 | (top) | |
7968 | (top) | |
7969 | (top) | |
7970 | (top) | |
7971 | (top) | |
7972 | (top) | |
7973 | (top) | |
7974 | (top) | |
7975 | (top) | |
7976 | (top) | |
7977 | (top) | |
7978 | (top) | |
7979 | (top) | |
7980 | (top) | |
7981 | (top) | |
7982 | (top) | |
7983 | (top) | |
7984 | (top) | |
7985 | (top) | |
7986 | (top) | |
7987 | (top) | |
7988 | (top) | |
7989 | (top) | |
7990 | (top) | |
7991 | (top) | |
7992 | (top) | |
7993 | (top) | |
7994 | (top) | |
7995 | (top) | |
7996 | (top) | |
7997 | (top) | |
7998 | (top) | |
7999 | (top) | |
8000 | (top) | |
8001 | (top) | |
8002 | (top) | |
8003 | (top) | |
8004 | (top) | |
8005 | (top) | |
8006 | (top) | |
8007 | (top) | |
8008 | (top) | |
8009 | (top) | |
8010 | (top) | |
8011 | (top) | |
8012 | (top) | |
8013 | (top) | |
8014 | (top) | |
8015 | (top) | |
8016 | (top) | |
8017 | (top) | |
8018 | (top) | |
8019 | (top) | |
8020 | (top) | |
8021 | (top) | |
8022 | (top) | |
8023 | (top) | |
8024 | (top) | |
8025 | (top) | |
8026 | (top) | |
8027 | (top) | |
8028 | (top) | |
8029 | (top) | |
8030 | (top) | |
8031 | (top) | |
8032 | (top) | |
8033 | (top) | |
8034 | (top) | |
8035 | (top) | |
5f8c55ce | 8036 | (top)) |
43353663 AW |
8037 | ("i489" |
8038 | "i487" | |
8039 | "i485" | |
8040 | "i483" | |
8041 | "i481" | |
8042 | "i479" | |
8043 | "i477" | |
8044 | "i475" | |
8045 | "i473" | |
8046 | "i471" | |
8047 | "i469" | |
8048 | "i467" | |
8049 | "i465" | |
8050 | "i463" | |
8051 | "i461" | |
8052 | "i459" | |
8053 | "i457" | |
8054 | "i455" | |
8055 | "i453" | |
8056 | "i451" | |
8057 | "i449" | |
8058 | "i447" | |
8059 | "i445" | |
8060 | "i443" | |
8061 | "i441" | |
8062 | "i439" | |
8063 | "i437" | |
8064 | "i435" | |
8065 | "i433" | |
8066 | "i431" | |
8067 | "i429" | |
8068 | "i427" | |
8069 | "i425" | |
8070 | "i423" | |
8071 | "i421" | |
8f1870f2 | 8072 | "i420" |
b78d91d5 | 8073 | "i419" |
43353663 | 8074 | "i417" |
8f1870f2 | 8075 | "i416" |
381ccb0b | 8076 | "i415" |
d8e4f9e5 | 8077 | "i414" |
381ccb0b | 8078 | "i413" |
43353663 AW |
8079 | "i411" |
8080 | "i409" | |
8081 | "i407" | |
8082 | "i405" | |
8083 | "i403" | |
8084 | "i401" | |
8085 | "i399" | |
8086 | "i397" | |
8087 | "i394" | |
8088 | "i392" | |
8f1870f2 | 8089 | "i391" |
77b79cce | 8090 | "i390" |
381ccb0b | 8091 | "i389" |
d8e4f9e5 | 8092 | "i388" |
381ccb0b | 8093 | "i387" |
d8e4f9e5 | 8094 | "i386" |
381ccb0b | 8095 | "i385" |
d8e4f9e5 | 8096 | "i384" |
43353663 | 8097 | "i382" |
8f1870f2 | 8098 | "i381" |
43353663 AW |
8099 | "i379" |
8100 | "i377" | |
8101 | "i375" | |
8102 | "i373" | |
8103 | "i371" | |
8104 | "i369" | |
8105 | "i367" | |
8f1870f2 | 8106 | "i366" |
381ccb0b | 8107 | "i365" |
d8e4f9e5 | 8108 | "i364" |
381ccb0b | 8109 | "i363" |
d8e4f9e5 | 8110 | "i362" |
43353663 | 8111 | "i360" |
8f1870f2 | 8112 | "i359" |
43353663 AW |
8113 | "i357" |
8114 | "i355" | |
8115 | "i353" | |
8116 | "i351" | |
8117 | "i349" | |
8118 | "i347" | |
8119 | "i345" | |
8120 | "i343" | |
8121 | "i341" | |
8122 | "i339" | |
8123 | "i337" | |
8124 | "i335" | |
8125 | "i333" | |
8126 | "i331" | |
8127 | "i329" | |
8128 | "i327" | |
8129 | "i325" | |
8130 | "i323" | |
8131 | "i321" | |
8132 | "i319" | |
8133 | "i317" | |
8134 | "i315" | |
8135 | "i313" | |
8136 | "i311" | |
8137 | "i309" | |
8138 | "i307" | |
8139 | "i305" | |
8140 | "i303" | |
8141 | "i301" | |
8142 | "i299" | |
8143 | "i297" | |
8144 | "i295" | |
8f1870f2 | 8145 | "i294" |
43353663 AW |
8146 | "i292" |
8147 | "i290" | |
8148 | "i288" | |
8149 | "i286" | |
8150 | "i284" | |
8151 | "i282" | |
8152 | "i280" | |
8153 | "i278" | |
8154 | "i276" | |
8155 | "i273" | |
8156 | "i271" | |
8157 | "i269" | |
8158 | "i267" | |
8159 | "i265" | |
8160 | "i263" | |
8161 | "i261" | |
8162 | "i259" | |
8163 | "i257" | |
8164 | "i255" | |
8165 | "i253" | |
8166 | "i251" | |
8167 | "i249" | |
8168 | "i247" | |
8169 | "i245" | |
8170 | "i243" | |
8171 | "i241" | |
8172 | "i239")) | |
5f8c55ce AW |
8173 | #(ribcage |
8174 | (define-structure | |
8175 | define-expansion-accessors | |
8176 | define-expansion-constructors | |
8177 | and-map*) | |
8178 | ((top) | |
8179 | (top) | |
8180 | (top) | |
8181 | (top)) | |
43353663 AW |
8182 | ("i41" |
8183 | "i40" | |
8f1870f2 | 8184 | "i39" |
43353663 | 8185 | "i37"))) |
5f8c55ce AW |
8186 | (hygiene |
8187 | guile))))) | |
43353663 AW |
8188 | #{rkey\ 2385}#))))) |
8189 | #{tmp\ 2392}#) | |
8190 | (let ((#{tmp\ 2405}# | |
5f8c55ce | 8191 | ($sc-dispatch |
43353663 | 8192 | #{tmp\ 2390}# |
5f8c55ce | 8193 | '((any any) . any)))) |
43353663 | 8194 | (if (if #{tmp\ 2405}# |
5f8c55ce | 8195 | (@apply |
43353663 AW |
8196 | (lambda (#{a\ 2409}# |
8197 | #{init\ 2410}# | |
8198 | #{b\ 2411}#) | |
8199 | (#{id?\ 380}# #{a\ 2409}#)) | |
8200 | #{tmp\ 2405}#) | |
5f8c55ce AW |
8201 | #f) |
8202 | (@apply | |
43353663 AW |
8203 | (lambda (#{a\ 2415}# |
8204 | #{init\ 2416}# | |
8205 | #{b\ 2417}#) | |
8206 | (let ((#{tmp\ 2419}# | |
5f8c55ce | 8207 | (symbol->keyword |
43353663 AW |
8208 | (syntax->datum #{a\ 2415}#)))) |
8209 | (let ((#{k\ 2421}# #{tmp\ 2419}#)) | |
8210 | (#{key\ 2273}# | |
8211 | #{b\ 2417}# | |
8212 | #{req\ 2383}# | |
8213 | #{opt\ 2384}# | |
8214 | (cons (list #{k\ 2421}# | |
8215 | #{a\ 2415}# | |
8216 | #{init\ 2416}#) | |
8217 | #{rkey\ 2385}#))))) | |
8218 | #{tmp\ 2405}#) | |
8219 | (let ((#{tmp\ 2422}# | |
5f8c55ce | 8220 | ($sc-dispatch |
43353663 | 8221 | #{tmp\ 2390}# |
5f8c55ce | 8222 | '((any any any) . any)))) |
43353663 | 8223 | (if (if #{tmp\ 2422}# |
5f8c55ce | 8224 | (@apply |
43353663 AW |
8225 | (lambda (#{a\ 2427}# |
8226 | #{init\ 2428}# | |
8227 | #{k\ 2429}# | |
8228 | #{b\ 2430}#) | |
8229 | (if (#{id?\ 380}# #{a\ 2427}#) | |
5f8c55ce | 8230 | (keyword? |
43353663 | 8231 | (syntax->datum #{k\ 2429}#)) |
5f8c55ce | 8232 | #f)) |
43353663 | 8233 | #{tmp\ 2422}#) |
5f8c55ce AW |
8234 | #f) |
8235 | (@apply | |
43353663 AW |
8236 | (lambda (#{a\ 2437}# |
8237 | #{init\ 2438}# | |
8238 | #{k\ 2439}# | |
8239 | #{b\ 2440}#) | |
8240 | (#{key\ 2273}# | |
8241 | #{b\ 2440}# | |
8242 | #{req\ 2383}# | |
8243 | #{opt\ 2384}# | |
8244 | (cons (list #{k\ 2439}# | |
8245 | #{a\ 2437}# | |
8246 | #{init\ 2438}#) | |
8247 | #{rkey\ 2385}#))) | |
8248 | #{tmp\ 2422}#) | |
8249 | (let ((#{tmp\ 2441}# | |
5f8c55ce | 8250 | ($sc-dispatch |
43353663 | 8251 | #{tmp\ 2390}# |
5f8c55ce | 8252 | '(any)))) |
43353663 | 8253 | (if (if #{tmp\ 2441}# |
5f8c55ce | 8254 | (@apply |
43353663 | 8255 | (lambda (#{aok\ 2443}#) |
5f8c55ce | 8256 | (eq? (syntax->datum |
43353663 | 8257 | #{aok\ 2443}#) |
5f8c55ce | 8258 | #:allow-other-keys)) |
43353663 | 8259 | #{tmp\ 2441}#) |
5f8c55ce AW |
8260 | #f) |
8261 | (@apply | |
43353663 AW |
8262 | (lambda (#{aok\ 2445}#) |
8263 | (#{check\ 2277}# | |
8264 | #{req\ 2383}# | |
8265 | #{opt\ 2384}# | |
5f8c55ce AW |
8266 | #f |
8267 | (cons #t | |
8268 | (reverse | |
43353663 AW |
8269 | #{rkey\ 2385}#)))) |
8270 | #{tmp\ 2441}#) | |
8271 | (let ((#{tmp\ 2446}# | |
5f8c55ce | 8272 | ($sc-dispatch |
43353663 | 8273 | #{tmp\ 2390}# |
5f8c55ce | 8274 | '(any any any)))) |
43353663 | 8275 | (if (if #{tmp\ 2446}# |
5f8c55ce | 8276 | (@apply |
43353663 AW |
8277 | (lambda (#{aok\ 2450}# |
8278 | #{a\ 2451}# | |
8279 | #{b\ 2452}#) | |
5f8c55ce | 8280 | (if (eq? (syntax->datum |
43353663 | 8281 | #{aok\ 2450}#) |
5f8c55ce AW |
8282 | #:allow-other-keys) |
8283 | (eq? (syntax->datum | |
43353663 | 8284 | #{a\ 2451}#) |
5f8c55ce AW |
8285 | #:rest) |
8286 | #f)) | |
43353663 | 8287 | #{tmp\ 2446}#) |
5f8c55ce AW |
8288 | #f) |
8289 | (@apply | |
43353663 AW |
8290 | (lambda (#{aok\ 2458}# |
8291 | #{a\ 2459}# | |
8292 | #{b\ 2460}#) | |
8293 | (#{rest\ 2275}# | |
8294 | #{b\ 2460}# | |
8295 | #{req\ 2383}# | |
8296 | #{opt\ 2384}# | |
5f8c55ce AW |
8297 | (cons #t |
8298 | (reverse | |
43353663 AW |
8299 | #{rkey\ 2385}#)))) |
8300 | #{tmp\ 2446}#) | |
8301 | (let ((#{tmp\ 2461}# | |
5f8c55ce | 8302 | ($sc-dispatch |
43353663 | 8303 | #{tmp\ 2390}# |
5f8c55ce | 8304 | '(any . any)))) |
43353663 | 8305 | (if (if #{tmp\ 2461}# |
5f8c55ce | 8306 | (@apply |
43353663 AW |
8307 | (lambda (#{aok\ 2464}# |
8308 | #{r\ 2465}#) | |
5f8c55ce | 8309 | (if (eq? (syntax->datum |
43353663 | 8310 | #{aok\ 2464}#) |
5f8c55ce | 8311 | #:allow-other-keys) |
43353663 AW |
8312 | (#{id?\ 380}# |
8313 | #{r\ 2465}#) | |
5f8c55ce | 8314 | #f)) |
43353663 | 8315 | #{tmp\ 2461}#) |
5f8c55ce AW |
8316 | #f) |
8317 | (@apply | |
43353663 AW |
8318 | (lambda (#{aok\ 2470}# |
8319 | #{r\ 2471}#) | |
8320 | (#{rest\ 2275}# | |
8321 | #{r\ 2471}# | |
8322 | #{req\ 2383}# | |
8323 | #{opt\ 2384}# | |
5f8c55ce AW |
8324 | (cons #t |
8325 | (reverse | |
43353663 AW |
8326 | #{rkey\ 2385}#)))) |
8327 | #{tmp\ 2461}#) | |
8328 | (let ((#{tmp\ 2472}# | |
5f8c55ce | 8329 | ($sc-dispatch |
43353663 | 8330 | #{tmp\ 2390}# |
5f8c55ce | 8331 | '(any any)))) |
43353663 | 8332 | (if (if #{tmp\ 2472}# |
5f8c55ce | 8333 | (@apply |
43353663 AW |
8334 | (lambda (#{a\ 2475}# |
8335 | #{b\ 2476}#) | |
5f8c55ce | 8336 | (eq? (syntax->datum |
43353663 | 8337 | #{a\ 2475}#) |
5f8c55ce | 8338 | #:rest)) |
43353663 | 8339 | #{tmp\ 2472}#) |
5f8c55ce AW |
8340 | #f) |
8341 | (@apply | |
43353663 AW |
8342 | (lambda (#{a\ 2479}# |
8343 | #{b\ 2480}#) | |
8344 | (#{rest\ 2275}# | |
8345 | #{b\ 2480}# | |
8346 | #{req\ 2383}# | |
8347 | #{opt\ 2384}# | |
5f8c55ce AW |
8348 | (cons #f |
8349 | (reverse | |
43353663 AW |
8350 | #{rkey\ 2385}#)))) |
8351 | #{tmp\ 2472}#) | |
8352 | (let ((#{tmp\ 2481}# | |
8353 | (list #{tmp\ 2390}#))) | |
8354 | (if (if #{tmp\ 2481}# | |
5f8c55ce | 8355 | (@apply |
43353663 AW |
8356 | (lambda (#{r\ 2483}#) |
8357 | (#{id?\ 380}# | |
8358 | #{r\ 2483}#)) | |
8359 | #{tmp\ 2481}#) | |
5f8c55ce AW |
8360 | #f) |
8361 | (@apply | |
43353663 AW |
8362 | (lambda (#{r\ 2485}#) |
8363 | (#{rest\ 2275}# | |
8364 | #{r\ 2485}# | |
8365 | #{req\ 2383}# | |
8366 | #{opt\ 2384}# | |
5f8c55ce AW |
8367 | (cons #f |
8368 | (reverse | |
43353663 AW |
8369 | #{rkey\ 2385}#)))) |
8370 | #{tmp\ 2481}#) | |
8371 | (let ((#{else\ 2487}# | |
8372 | #{tmp\ 2390}#)) | |
5f8c55ce AW |
8373 | (syntax-violation |
8374 | 'lambda* | |
8375 | "invalid keyword argument list" | |
43353663 AW |
8376 | #{orig-args\ 2266}# |
8377 | #{args\ 2382}#))))))))))))))))))))))) | |
8378 | (#{rest\ 2275}# | |
8379 | (lambda (#{args\ 2488}# | |
8380 | #{req\ 2489}# | |
8381 | #{opt\ 2490}# | |
8382 | #{kw\ 2491}#) | |
8383 | (let ((#{tmp\ 2496}# #{args\ 2488}#)) | |
8384 | (let ((#{tmp\ 2497}# (list #{tmp\ 2496}#))) | |
8385 | (if (if #{tmp\ 2497}# | |
5f8c55ce | 8386 | (@apply |
43353663 AW |
8387 | (lambda (#{r\ 2499}#) |
8388 | (#{id?\ 380}# #{r\ 2499}#)) | |
8389 | #{tmp\ 2497}#) | |
5f8c55ce AW |
8390 | #f) |
8391 | (@apply | |
43353663 AW |
8392 | (lambda (#{r\ 2501}#) |
8393 | (#{check\ 2277}# | |
8394 | #{req\ 2489}# | |
8395 | #{opt\ 2490}# | |
8396 | #{r\ 2501}# | |
8397 | #{kw\ 2491}#)) | |
8398 | #{tmp\ 2497}#) | |
8399 | (let ((#{else\ 2503}# #{tmp\ 2496}#)) | |
5f8c55ce AW |
8400 | (syntax-violation |
8401 | 'lambda* | |
8402 | "invalid rest argument" | |
43353663 AW |
8403 | #{orig-args\ 2266}# |
8404 | #{args\ 2488}#))))))) | |
8405 | (#{check\ 2277}# | |
8406 | (lambda (#{req\ 2504}# | |
8407 | #{opt\ 2505}# | |
8408 | #{rest\ 2506}# | |
8409 | #{kw\ 2507}#) | |
8410 | (if (#{distinct-bound-ids?\ 442}# | |
5f8c55ce | 8411 | (append |
43353663 AW |
8412 | #{req\ 2504}# |
8413 | (map car #{opt\ 2505}#) | |
8414 | (if #{rest\ 2506}# (list #{rest\ 2506}#) '()) | |
8415 | (if (pair? #{kw\ 2507}#) | |
8416 | (map cadr (cdr #{kw\ 2507}#)) | |
5f8c55ce AW |
8417 | '()))) |
8418 | (values | |
43353663 AW |
8419 | #{req\ 2504}# |
8420 | #{opt\ 2505}# | |
8421 | #{rest\ 2506}# | |
8422 | #{kw\ 2507}#) | |
5f8c55ce AW |
8423 | (syntax-violation |
8424 | 'lambda* | |
8425 | "duplicate identifier in argument list" | |
43353663 AW |
8426 | #{orig-args\ 2266}#))))) |
8427 | (begin (#{req\ 2269}# #{orig-args\ 2266}# '()))))) | |
8428 | (#{chi-lambda-case\ 484}# | |
8429 | (lambda (#{e\ 2515}# | |
8430 | #{r\ 2516}# | |
8431 | #{w\ 2517}# | |
8432 | #{s\ 2518}# | |
8433 | #{mod\ 2519}# | |
8434 | #{get-formals\ 2520}# | |
8435 | #{clauses\ 2521}#) | |
5f8c55ce | 8436 | (letrec* |
43353663 AW |
8437 | ((#{expand-req\ 2530}# |
8438 | (lambda (#{req\ 2537}# | |
8439 | #{opt\ 2538}# | |
8440 | #{rest\ 2539}# | |
8441 | #{kw\ 2540}# | |
8442 | #{body\ 2541}#) | |
5f8c55ce | 8443 | (begin |
43353663 AW |
8444 | (let ((#{vars\ 2549}# |
8445 | (map #{gen-var\ 488}# #{req\ 2537}#)) | |
8446 | (#{labels\ 2550}# | |
8447 | (#{gen-labels\ 395}# #{req\ 2537}#))) | |
5f8c55ce | 8448 | (begin |
43353663 AW |
8449 | (let ((#{r*\ 2553}# |
8450 | (#{extend-var-env\ 370}# | |
8451 | #{labels\ 2550}# | |
8452 | #{vars\ 2549}# | |
8453 | #{r\ 2516}#)) | |
8454 | (#{w*\ 2554}# | |
8455 | (#{make-binding-wrap\ 424}# | |
8456 | #{req\ 2537}# | |
8457 | #{labels\ 2550}# | |
8458 | #{w\ 2517}#))) | |
8459 | (#{expand-opt\ 2532}# | |
8460 | (map syntax->datum #{req\ 2537}#) | |
8461 | #{opt\ 2538}# | |
8462 | #{rest\ 2539}# | |
8463 | #{kw\ 2540}# | |
8464 | #{body\ 2541}# | |
8465 | (reverse #{vars\ 2549}#) | |
8466 | #{r*\ 2553}# | |
8467 | #{w*\ 2554}# | |
5f8c55ce AW |
8468 | '() |
8469 | '()))))))) | |
43353663 AW |
8470 | (#{expand-opt\ 2532}# |
8471 | (lambda (#{req\ 2555}# | |
8472 | #{opt\ 2556}# | |
8473 | #{rest\ 2557}# | |
8474 | #{kw\ 2558}# | |
8475 | #{body\ 2559}# | |
8476 | #{vars\ 2560}# | |
8477 | #{r*\ 2561}# | |
8478 | #{w*\ 2562}# | |
8479 | #{out\ 2563}# | |
8480 | #{inits\ 2564}#) | |
8481 | (if (pair? #{opt\ 2556}#) | |
8482 | (let ((#{tmp\ 2577}# (car #{opt\ 2556}#))) | |
8483 | (let ((#{tmp\ 2578}# | |
8484 | ($sc-dispatch #{tmp\ 2577}# '(any any)))) | |
8485 | (if #{tmp\ 2578}# | |
5f8c55ce | 8486 | (@apply |
43353663 | 8487 | (lambda (#{id\ 2581}# #{i\ 2582}#) |
5f8c55ce | 8488 | (begin |
43353663 AW |
8489 | (let ((#{v\ 2585}# |
8490 | (#{gen-var\ 488}# #{id\ 2581}#))) | |
5f8c55ce | 8491 | (begin |
43353663 AW |
8492 | (let ((#{l\ 2587}# |
8493 | (#{gen-labels\ 395}# | |
8494 | (list #{v\ 2585}#)))) | |
5f8c55ce | 8495 | (begin |
43353663 AW |
8496 | (let ((#{r**\ 2589}# |
8497 | (#{extend-var-env\ 370}# | |
8498 | #{l\ 2587}# | |
8499 | (list #{v\ 2585}#) | |
8500 | #{r*\ 2561}#))) | |
5f8c55ce | 8501 | (begin |
43353663 AW |
8502 | (let ((#{w**\ 2591}# |
8503 | (#{make-binding-wrap\ 424}# | |
8504 | (list #{id\ 2581}#) | |
8505 | #{l\ 2587}# | |
8506 | #{w*\ 2562}#))) | |
8507 | (#{expand-opt\ 2532}# | |
8508 | #{req\ 2555}# | |
8509 | (cdr #{opt\ 2556}#) | |
8510 | #{rest\ 2557}# | |
8511 | #{kw\ 2558}# | |
8512 | #{body\ 2559}# | |
8513 | (cons #{v\ 2585}# | |
8514 | #{vars\ 2560}#) | |
8515 | #{r**\ 2589}# | |
8516 | #{w**\ 2591}# | |
5f8c55ce | 8517 | (cons (syntax->datum |
43353663 AW |
8518 | #{id\ 2581}#) |
8519 | #{out\ 2563}#) | |
8520 | (cons (#{chi\ 460}# | |
8521 | #{i\ 2582}# | |
8522 | #{r*\ 2561}# | |
8523 | #{w*\ 2562}# | |
8524 | #{mod\ 2519}#) | |
8525 | #{inits\ 2564}#))))))))))) | |
8526 | #{tmp\ 2578}#) | |
5f8c55ce AW |
8527 | (syntax-violation |
8528 | #f | |
8529 | "source expression failed to match any pattern" | |
43353663 AW |
8530 | #{tmp\ 2577}#)))) |
8531 | (if #{rest\ 2557}# | |
5f8c55ce | 8532 | (begin |
43353663 AW |
8533 | (let ((#{v\ 2596}# |
8534 | (#{gen-var\ 488}# #{rest\ 2557}#))) | |
5f8c55ce | 8535 | (begin |
43353663 AW |
8536 | (let ((#{l\ 2598}# |
8537 | (#{gen-labels\ 395}# | |
8538 | (list #{v\ 2596}#)))) | |
5f8c55ce | 8539 | (begin |
43353663 AW |
8540 | (let ((#{r*\ 2600}# |
8541 | (#{extend-var-env\ 370}# | |
8542 | #{l\ 2598}# | |
8543 | (list #{v\ 2596}#) | |
8544 | #{r*\ 2561}#))) | |
5f8c55ce | 8545 | (begin |
43353663 AW |
8546 | (let ((#{w*\ 2602}# |
8547 | (#{make-binding-wrap\ 424}# | |
8548 | (list #{rest\ 2557}#) | |
8549 | #{l\ 2598}# | |
8550 | #{w*\ 2562}#))) | |
8551 | (#{expand-kw\ 2534}# | |
8552 | #{req\ 2555}# | |
8553 | (if (pair? #{out\ 2563}#) | |
8554 | (reverse #{out\ 2563}#) | |
5f8c55ce | 8555 | #f) |
43353663 AW |
8556 | (syntax->datum #{rest\ 2557}#) |
8557 | (if (pair? #{kw\ 2558}#) | |
8558 | (cdr #{kw\ 2558}#) | |
8559 | #{kw\ 2558}#) | |
8560 | #{body\ 2559}# | |
8561 | (cons #{v\ 2596}# #{vars\ 2560}#) | |
8562 | #{r*\ 2600}# | |
8563 | #{w*\ 2602}# | |
8564 | (if (pair? #{kw\ 2558}#) | |
8565 | (car #{kw\ 2558}#) | |
5f8c55ce AW |
8566 | #f) |
8567 | '() | |
43353663 AW |
8568 | #{inits\ 2564}#))))))))) |
8569 | (#{expand-kw\ 2534}# | |
8570 | #{req\ 2555}# | |
8571 | (if (pair? #{out\ 2563}#) | |
8572 | (reverse #{out\ 2563}#) | |
5f8c55ce AW |
8573 | #f) |
8574 | #f | |
43353663 AW |
8575 | (if (pair? #{kw\ 2558}#) |
8576 | (cdr #{kw\ 2558}#) | |
8577 | #{kw\ 2558}#) | |
8578 | #{body\ 2559}# | |
8579 | #{vars\ 2560}# | |
8580 | #{r*\ 2561}# | |
8581 | #{w*\ 2562}# | |
8582 | (if (pair? #{kw\ 2558}#) (car #{kw\ 2558}#) #f) | |
5f8c55ce | 8583 | '() |
43353663 AW |
8584 | #{inits\ 2564}#))))) |
8585 | (#{expand-kw\ 2534}# | |
8586 | (lambda (#{req\ 2604}# | |
8587 | #{opt\ 2605}# | |
8588 | #{rest\ 2606}# | |
8589 | #{kw\ 2607}# | |
8590 | #{body\ 2608}# | |
8591 | #{vars\ 2609}# | |
8592 | #{r*\ 2610}# | |
8593 | #{w*\ 2611}# | |
8594 | #{aok\ 2612}# | |
8595 | #{out\ 2613}# | |
8596 | #{inits\ 2614}#) | |
8597 | (if (pair? #{kw\ 2607}#) | |
8598 | (let ((#{tmp\ 2628}# (car #{kw\ 2607}#))) | |
8599 | (let ((#{tmp\ 2629}# | |
8600 | ($sc-dispatch #{tmp\ 2628}# '(any any any)))) | |
8601 | (if #{tmp\ 2629}# | |
5f8c55ce | 8602 | (@apply |
43353663 | 8603 | (lambda (#{k\ 2633}# #{id\ 2634}# #{i\ 2635}#) |
5f8c55ce | 8604 | (begin |
43353663 AW |
8605 | (let ((#{v\ 2638}# |
8606 | (#{gen-var\ 488}# #{id\ 2634}#))) | |
5f8c55ce | 8607 | (begin |
43353663 AW |
8608 | (let ((#{l\ 2640}# |
8609 | (#{gen-labels\ 395}# | |
8610 | (list #{v\ 2638}#)))) | |
5f8c55ce | 8611 | (begin |
43353663 AW |
8612 | (let ((#{r**\ 2642}# |
8613 | (#{extend-var-env\ 370}# | |
8614 | #{l\ 2640}# | |
8615 | (list #{v\ 2638}#) | |
8616 | #{r*\ 2610}#))) | |
5f8c55ce | 8617 | (begin |
43353663 AW |
8618 | (let ((#{w**\ 2644}# |
8619 | (#{make-binding-wrap\ 424}# | |
8620 | (list #{id\ 2634}#) | |
8621 | #{l\ 2640}# | |
8622 | #{w*\ 2611}#))) | |
8623 | (#{expand-kw\ 2534}# | |
8624 | #{req\ 2604}# | |
8625 | #{opt\ 2605}# | |
8626 | #{rest\ 2606}# | |
8627 | (cdr #{kw\ 2607}#) | |
8628 | #{body\ 2608}# | |
8629 | (cons #{v\ 2638}# | |
8630 | #{vars\ 2609}#) | |
8631 | #{r**\ 2642}# | |
8632 | #{w**\ 2644}# | |
8633 | #{aok\ 2612}# | |
5f8c55ce | 8634 | (cons (list (syntax->datum |
43353663 | 8635 | #{k\ 2633}#) |
5f8c55ce | 8636 | (syntax->datum |
43353663 AW |
8637 | #{id\ 2634}#) |
8638 | #{v\ 2638}#) | |
8639 | #{out\ 2613}#) | |
8640 | (cons (#{chi\ 460}# | |
8641 | #{i\ 2635}# | |
8642 | #{r*\ 2610}# | |
8643 | #{w*\ 2611}# | |
8644 | #{mod\ 2519}#) | |
8645 | #{inits\ 2614}#))))))))))) | |
8646 | #{tmp\ 2629}#) | |
5f8c55ce AW |
8647 | (syntax-violation |
8648 | #f | |
8649 | "source expression failed to match any pattern" | |
43353663 AW |
8650 | #{tmp\ 2628}#)))) |
8651 | (#{expand-body\ 2536}# | |
8652 | #{req\ 2604}# | |
8653 | #{opt\ 2605}# | |
8654 | #{rest\ 2606}# | |
5f8c55ce | 8655 | (if (begin |
43353663 AW |
8656 | (let ((#{t\ 2648}# #{aok\ 2612}#)) |
8657 | (if #{t\ 2648}# | |
8658 | #{t\ 2648}# | |
8659 | (pair? #{out\ 2613}#)))) | |
8660 | (cons #{aok\ 2612}# (reverse #{out\ 2613}#)) | |
5f8c55ce | 8661 | #f) |
43353663 AW |
8662 | #{body\ 2608}# |
8663 | (reverse #{vars\ 2609}#) | |
8664 | #{r*\ 2610}# | |
8665 | #{w*\ 2611}# | |
8666 | (reverse #{inits\ 2614}#) | |
5f8c55ce | 8667 | '())))) |
43353663 AW |
8668 | (#{expand-body\ 2536}# |
8669 | (lambda (#{req\ 2650}# | |
8670 | #{opt\ 2651}# | |
8671 | #{rest\ 2652}# | |
8672 | #{kw\ 2653}# | |
8673 | #{body\ 2654}# | |
8674 | #{vars\ 2655}# | |
8675 | #{r*\ 2656}# | |
8676 | #{w*\ 2657}# | |
8677 | #{inits\ 2658}# | |
8678 | #{meta\ 2659}#) | |
8679 | (let ((#{tmp\ 2670}# #{body\ 2654}#)) | |
8680 | (let ((#{tmp\ 2671}# | |
5f8c55ce | 8681 | ($sc-dispatch |
43353663 | 8682 | #{tmp\ 2670}# |
5f8c55ce | 8683 | '(any any . each-any)))) |
43353663 | 8684 | (if (if #{tmp\ 2671}# |
5f8c55ce | 8685 | (@apply |
43353663 AW |
8686 | (lambda (#{docstring\ 2675}# |
8687 | #{e1\ 2676}# | |
8688 | #{e2\ 2677}#) | |
5f8c55ce | 8689 | (string? |
43353663 AW |
8690 | (syntax->datum #{docstring\ 2675}#))) |
8691 | #{tmp\ 2671}#) | |
5f8c55ce AW |
8692 | #f) |
8693 | (@apply | |
43353663 AW |
8694 | (lambda (#{docstring\ 2681}# |
8695 | #{e1\ 2682}# | |
8696 | #{e2\ 2683}#) | |
8697 | (#{expand-body\ 2536}# | |
8698 | #{req\ 2650}# | |
8699 | #{opt\ 2651}# | |
8700 | #{rest\ 2652}# | |
8701 | #{kw\ 2653}# | |
8702 | (cons #{e1\ 2682}# #{e2\ 2683}#) | |
8703 | #{vars\ 2655}# | |
8704 | #{r*\ 2656}# | |
8705 | #{w*\ 2657}# | |
8706 | #{inits\ 2658}# | |
5f8c55ce | 8707 | (append |
43353663 | 8708 | #{meta\ 2659}# |
5f8c55ce AW |
8709 | (list (cons 'documentation |
8710 | (syntax->datum | |
43353663 AW |
8711 | #{docstring\ 2681}#)))))) |
8712 | #{tmp\ 2671}#) | |
8713 | (let ((#{tmp\ 2686}# | |
5f8c55ce | 8714 | ($sc-dispatch |
43353663 | 8715 | #{tmp\ 2670}# |
5f8c55ce AW |
8716 | '(#(vector #(each (any . any))) |
8717 | any | |
8718 | . | |
8719 | each-any)))) | |
43353663 | 8720 | (if #{tmp\ 2686}# |
5f8c55ce | 8721 | (@apply |
43353663 AW |
8722 | (lambda (#{k\ 2691}# |
8723 | #{v\ 2692}# | |
8724 | #{e1\ 2693}# | |
8725 | #{e2\ 2694}#) | |
8726 | (#{expand-body\ 2536}# | |
8727 | #{req\ 2650}# | |
8728 | #{opt\ 2651}# | |
8729 | #{rest\ 2652}# | |
8730 | #{kw\ 2653}# | |
8731 | (cons #{e1\ 2693}# #{e2\ 2694}#) | |
8732 | #{vars\ 2655}# | |
8733 | #{r*\ 2656}# | |
8734 | #{w*\ 2657}# | |
8735 | #{inits\ 2658}# | |
5f8c55ce | 8736 | (append |
43353663 | 8737 | #{meta\ 2659}# |
5f8c55ce | 8738 | (syntax->datum |
43353663 AW |
8739 | (map cons #{k\ 2691}# #{v\ 2692}#))))) |
8740 | #{tmp\ 2686}#) | |
8741 | (let ((#{tmp\ 2698}# | |
5f8c55ce | 8742 | ($sc-dispatch |
43353663 | 8743 | #{tmp\ 2670}# |
5f8c55ce | 8744 | '(any . each-any)))) |
43353663 | 8745 | (if #{tmp\ 2698}# |
5f8c55ce | 8746 | (@apply |
43353663 | 8747 | (lambda (#{e1\ 2701}# #{e2\ 2702}#) |
5f8c55ce | 8748 | (values |
43353663 AW |
8749 | #{meta\ 2659}# |
8750 | #{req\ 2650}# | |
8751 | #{opt\ 2651}# | |
8752 | #{rest\ 2652}# | |
8753 | #{kw\ 2653}# | |
8754 | #{inits\ 2658}# | |
8755 | #{vars\ 2655}# | |
8756 | (#{chi-body\ 468}# | |
8757 | (cons #{e1\ 2701}# #{e2\ 2702}#) | |
8758 | (#{source-wrap\ 448}# | |
8759 | #{e\ 2515}# | |
8760 | #{w\ 2517}# | |
8761 | #{s\ 2518}# | |
8762 | #{mod\ 2519}#) | |
8763 | #{r*\ 2656}# | |
8764 | #{w*\ 2657}# | |
8765 | #{mod\ 2519}#))) | |
8766 | #{tmp\ 2698}#) | |
5f8c55ce AW |
8767 | (syntax-violation |
8768 | #f | |
8769 | "source expression failed to match any pattern" | |
43353663 | 8770 | #{tmp\ 2670}#))))))))))) |
417ee098 | 8771 | (begin |
43353663 AW |
8772 | (let ((#{tmp\ 2704}# #{clauses\ 2521}#)) |
8773 | (let ((#{tmp\ 2705}# ($sc-dispatch #{tmp\ 2704}# '()))) | |
8774 | (if #{tmp\ 2705}# | |
5f8c55ce | 8775 | (@apply |
8f1870f2 | 8776 | (lambda () (values '() #f)) |
43353663 AW |
8777 | #{tmp\ 2705}#) |
8778 | (let ((#{tmp\ 2706}# | |
5f8c55ce | 8779 | ($sc-dispatch |
43353663 | 8780 | #{tmp\ 2704}# |
5f8c55ce AW |
8781 | '((any any . each-any) |
8782 | . | |
8783 | #(each (any any . each-any)))))) | |
43353663 | 8784 | (if #{tmp\ 2706}# |
5f8c55ce | 8785 | (@apply |
43353663 AW |
8786 | (lambda (#{args\ 2713}# |
8787 | #{e1\ 2714}# | |
8788 | #{e2\ 2715}# | |
8789 | #{args*\ 2716}# | |
8790 | #{e1*\ 2717}# | |
8791 | #{e2*\ 2718}#) | |
5f8c55ce AW |
8792 | (call-with-values |
8793 | (lambda () | |
43353663 AW |
8794 | (#{get-formals\ 2520}# #{args\ 2713}#)) |
8795 | (lambda (#{req\ 2719}# | |
8796 | #{opt\ 2720}# | |
8797 | #{rest\ 2721}# | |
8798 | #{kw\ 2722}#) | |
5f8c55ce AW |
8799 | (call-with-values |
8800 | (lambda () | |
43353663 AW |
8801 | (#{expand-req\ 2530}# |
8802 | #{req\ 2719}# | |
8803 | #{opt\ 2720}# | |
8804 | #{rest\ 2721}# | |
8805 | #{kw\ 2722}# | |
8806 | (cons #{e1\ 2714}# #{e2\ 2715}#))) | |
8807 | (lambda (#{meta\ 2728}# | |
8808 | #{req\ 2729}# | |
8809 | #{opt\ 2730}# | |
8810 | #{rest\ 2731}# | |
8811 | #{kw\ 2732}# | |
8812 | #{inits\ 2733}# | |
8813 | #{vars\ 2734}# | |
8814 | #{body\ 2735}#) | |
5f8c55ce AW |
8815 | (call-with-values |
8816 | (lambda () | |
43353663 AW |
8817 | (#{chi-lambda-case\ 484}# |
8818 | #{e\ 2515}# | |
8819 | #{r\ 2516}# | |
8820 | #{w\ 2517}# | |
8821 | #{s\ 2518}# | |
8822 | #{mod\ 2519}# | |
8823 | #{get-formals\ 2520}# | |
8824 | (map (lambda (#{tmp\ 2746}# | |
8825 | #{tmp\ 2745}# | |
8826 | #{tmp\ 2744}#) | |
8827 | (cons #{tmp\ 2744}# | |
8828 | (cons #{tmp\ 2745}# | |
8829 | #{tmp\ 2746}#))) | |
8830 | #{e2*\ 2718}# | |
8831 | #{e1*\ 2717}# | |
8832 | #{args*\ 2716}#))) | |
8833 | (lambda (#{meta*\ 2748}# | |
8834 | #{else*\ 2749}#) | |
5f8c55ce AW |
8835 | (values |
8836 | (append | |
43353663 AW |
8837 | #{meta\ 2728}# |
8838 | #{meta*\ 2748}#) | |
8839 | (#{build-lambda-case\ 328}# | |
8840 | #{s\ 2518}# | |
8841 | #{req\ 2729}# | |
8842 | #{opt\ 2730}# | |
8843 | #{rest\ 2731}# | |
8844 | #{kw\ 2732}# | |
8845 | #{inits\ 2733}# | |
8846 | #{vars\ 2734}# | |
8847 | #{body\ 2735}# | |
8848 | #{else*\ 2749}#))))))))) | |
8849 | #{tmp\ 2706}#) | |
417ee098 AW |
8850 | (syntax-violation |
8851 | #f | |
5f8c55ce | 8852 | "source expression failed to match any pattern" |
43353663 AW |
8853 | #{tmp\ 2704}#)))))))))) |
8854 | (#{strip\ 486}# | |
8855 | (lambda (#{x\ 2752}# #{w\ 2753}#) | |
8856 | (if (memq 'top (car #{w\ 2753}#)) | |
8857 | #{x\ 2752}# | |
5f8c55ce | 8858 | (letrec* |
43353663 AW |
8859 | ((#{f\ 2760}# |
8860 | (lambda (#{x\ 2761}#) | |
8861 | (if (#{syntax-object?\ 346}# #{x\ 2761}#) | |
8862 | (#{strip\ 486}# | |
8863 | (#{syntax-object-expression\ 348}# #{x\ 2761}#) | |
8864 | (#{syntax-object-wrap\ 350}# #{x\ 2761}#)) | |
8865 | (if (pair? #{x\ 2761}#) | |
5f8c55ce | 8866 | (begin |
43353663 AW |
8867 | (let ((#{a\ 2768}# (#{f\ 2760}# (car #{x\ 2761}#))) |
8868 | (#{d\ 2769}# | |
8869 | (#{f\ 2760}# (cdr #{x\ 2761}#)))) | |
8870 | (if (if (eq? #{a\ 2768}# (car #{x\ 2761}#)) | |
8871 | (eq? #{d\ 2769}# (cdr #{x\ 2761}#)) | |
5f8c55ce | 8872 | #f) |
43353663 AW |
8873 | #{x\ 2761}# |
8874 | (cons #{a\ 2768}# #{d\ 2769}#)))) | |
8875 | (if (vector? #{x\ 2761}#) | |
5f8c55ce | 8876 | (begin |
43353663 | 8877 | (let ((#{old\ 2775}# (vector->list #{x\ 2761}#))) |
5f8c55ce | 8878 | (begin |
43353663 AW |
8879 | (let ((#{new\ 2777}# |
8880 | (map #{f\ 2760}# #{old\ 2775}#))) | |
8881 | (if (#{and-map*\ 38}# | |
5f8c55ce | 8882 | eq? |
43353663 AW |
8883 | #{old\ 2775}# |
8884 | #{new\ 2777}#) | |
8885 | #{x\ 2761}# | |
8886 | (list->vector #{new\ 2777}#)))))) | |
8887 | #{x\ 2761}#)))))) | |
8888 | (begin (#{f\ 2760}# #{x\ 2752}#)))))) | |
8889 | (#{gen-var\ 488}# | |
8890 | (lambda (#{id\ 2779}#) | |
5f8c55ce | 8891 | (begin |
43353663 AW |
8892 | (let ((#{id\ 2782}# |
8893 | (if (#{syntax-object?\ 346}# #{id\ 2779}#) | |
8894 | (#{syntax-object-expression\ 348}# #{id\ 2779}#) | |
8895 | #{id\ 2779}#))) | |
5f8c55ce | 8896 | (gensym |
43353663 AW |
8897 | (string-append (symbol->string #{id\ 2782}#) " ")))))) |
8898 | (#{lambda-var-list\ 490}# | |
8899 | (lambda (#{vars\ 2784}#) | |
5f8c55ce | 8900 | (letrec* |
43353663 AW |
8901 | ((#{lvl\ 2790}# |
8902 | (lambda (#{vars\ 2791}# #{ls\ 2792}# #{w\ 2793}#) | |
8903 | (if (pair? #{vars\ 2791}#) | |
8904 | (#{lvl\ 2790}# | |
8905 | (cdr #{vars\ 2791}#) | |
8906 | (cons (#{wrap\ 446}# | |
8907 | (car #{vars\ 2791}#) | |
8908 | #{w\ 2793}# | |
5f8c55ce | 8909 | #f) |
43353663 AW |
8910 | #{ls\ 2792}#) |
8911 | #{w\ 2793}#) | |
8912 | (if (#{id?\ 380}# #{vars\ 2791}#) | |
8913 | (cons (#{wrap\ 446}# #{vars\ 2791}# #{w\ 2793}# #f) | |
8914 | #{ls\ 2792}#) | |
8915 | (if (null? #{vars\ 2791}#) | |
8916 | #{ls\ 2792}# | |
8917 | (if (#{syntax-object?\ 346}# #{vars\ 2791}#) | |
8918 | (#{lvl\ 2790}# | |
8919 | (#{syntax-object-expression\ 348}# | |
8920 | #{vars\ 2791}#) | |
8921 | #{ls\ 2792}# | |
8922 | (#{join-wraps\ 428}# | |
8923 | #{w\ 2793}# | |
8924 | (#{syntax-object-wrap\ 350}# #{vars\ 2791}#))) | |
8925 | (cons #{vars\ 2791}# #{ls\ 2792}#)))))))) | |
8926 | (begin (#{lvl\ 2790}# #{vars\ 2784}# '() '(()))))))) | |
417ee098 | 8927 | (begin |
f929b9e5 AW |
8928 | (lambda (#{src\ 756}# #{name\ 757}#) |
8929 | (make-struct/no-tail | |
8930 | (vector-ref %expanded-vtables 2) | |
8931 | #{src\ 756}# | |
8932 | #{name\ 757}#)) | |
8933 | (lambda (#{x\ 1134}# #{update\ 1135}#) | |
8934 | (vector-set! #{x\ 1134}# 1 #{update\ 1135}#)) | |
8935 | (lambda (#{x\ 1138}# #{update\ 1139}#) | |
8936 | (vector-set! #{x\ 1138}# 2 #{update\ 1139}#)) | |
8937 | (lambda (#{x\ 1142}# #{update\ 1143}#) | |
8938 | (vector-set! #{x\ 1142}# 3 #{update\ 1143}#)) | |
8939 | (lambda (#{x\ 1223}#) | |
8940 | (if (vector? #{x\ 1223}#) | |
8941 | (if (= (vector-length #{x\ 1223}#) 4) | |
8942 | (eq? (vector-ref #{x\ 1223}# 0) 'ribcage) | |
8943 | #f) | |
8944 | #f)) | |
43353663 AW |
8945 | (set! #{fx+\ 283}# +) |
8946 | (set! #{fx-\ 285}# -) | |
8947 | (set! #{fx=\ 287}# =) | |
8948 | (set! #{fx<\ 289}# <) | |
417ee098 | 8949 | (begin |
43353663 | 8950 | (#{global-extend\ 376}# |
417ee098 AW |
8951 | 'local-syntax |
8952 | 'letrec-syntax | |
8953 | #t) | |
43353663 | 8954 | (#{global-extend\ 376}# |
417ee098 AW |
8955 | 'local-syntax |
8956 | 'let-syntax | |
8957 | #f) | |
43353663 | 8958 | (#{global-extend\ 376}# |
417ee098 AW |
8959 | 'core |
8960 | 'fluid-let-syntax | |
43353663 AW |
8961 | (lambda (#{e\ 2804}# |
8962 | #{r\ 2805}# | |
8963 | #{w\ 2806}# | |
8964 | #{s\ 2807}# | |
8965 | #{mod\ 2808}#) | |
8966 | (let ((#{tmp\ 2814}# #{e\ 2804}#)) | |
8967 | (let ((#{tmp\ 2815}# | |
417ee098 | 8968 | ($sc-dispatch |
43353663 | 8969 | #{tmp\ 2814}# |
b78d91d5 | 8970 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 8971 | (if (if #{tmp\ 2815}# |
417ee098 | 8972 | (@apply |
43353663 AW |
8973 | (lambda (#{var\ 2820}# |
8974 | #{val\ 2821}# | |
8975 | #{e1\ 2822}# | |
8976 | #{e2\ 2823}#) | |
8977 | (#{valid-bound-ids?\ 440}# #{var\ 2820}#)) | |
8978 | #{tmp\ 2815}#) | |
417ee098 AW |
8979 | #f) |
8980 | (@apply | |
43353663 AW |
8981 | (lambda (#{var\ 2829}# |
8982 | #{val\ 2830}# | |
8983 | #{e1\ 2831}# | |
8984 | #{e2\ 2832}#) | |
417ee098 | 8985 | (begin |
43353663 AW |
8986 | (let ((#{names\ 2834}# |
8987 | (map (lambda (#{x\ 2835}#) | |
8988 | (#{id-var-name\ 434}# | |
8989 | #{x\ 2835}# | |
8990 | #{w\ 2806}#)) | |
8991 | #{var\ 2829}#))) | |
417ee098 AW |
8992 | (begin |
8993 | (for-each | |
43353663 | 8994 | (lambda (#{id\ 2838}# #{n\ 2839}#) |
417ee098 | 8995 | (begin |
43353663 AW |
8996 | (let ((#{atom-key\ 2844}# |
8997 | (car (#{lookup\ 374}# | |
8998 | #{n\ 2839}# | |
8999 | #{r\ 2805}# | |
9000 | #{mod\ 2808}#)))) | |
9001 | (if (eqv? #{atom-key\ 2844}# | |
417ee098 AW |
9002 | 'displaced-lexical) |
9003 | (syntax-violation | |
9004 | 'fluid-let-syntax | |
9005 | "identifier out of context" | |
43353663 AW |
9006 | #{e\ 2804}# |
9007 | (#{source-wrap\ 448}# | |
9008 | #{id\ 2838}# | |
9009 | #{w\ 2806}# | |
9010 | #{s\ 2807}# | |
9011 | #{mod\ 2808}#)))))) | |
9012 | #{var\ 2829}# | |
9013 | #{names\ 2834}#) | |
9014 | (#{chi-body\ 468}# | |
9015 | (cons #{e1\ 2831}# #{e2\ 2832}#) | |
9016 | (#{source-wrap\ 448}# | |
9017 | #{e\ 2804}# | |
9018 | #{w\ 2806}# | |
9019 | #{s\ 2807}# | |
9020 | #{mod\ 2808}#) | |
9021 | (#{extend-env\ 368}# | |
9022 | #{names\ 2834}# | |
417ee098 | 9023 | (begin |
43353663 AW |
9024 | (let ((#{trans-r\ 2850}# |
9025 | (#{macros-only-env\ 372}# | |
9026 | #{r\ 2805}#))) | |
9027 | (map (lambda (#{x\ 2851}#) | |
417ee098 | 9028 | (cons 'macro |
43353663 AW |
9029 | (#{eval-local-transformer\ 472}# |
9030 | (#{chi\ 460}# | |
9031 | #{x\ 2851}# | |
9032 | #{trans-r\ 2850}# | |
9033 | #{w\ 2806}# | |
9034 | #{mod\ 2808}#) | |
9035 | #{mod\ 2808}#))) | |
9036 | #{val\ 2830}#))) | |
9037 | #{r\ 2805}#) | |
9038 | #{w\ 2806}# | |
9039 | #{mod\ 2808}#))))) | |
9040 | #{tmp\ 2815}#) | |
9041 | (let ((#{_\ 2856}# #{tmp\ 2814}#)) | |
417ee098 AW |
9042 | (syntax-violation |
9043 | 'fluid-let-syntax | |
9044 | "bad syntax" | |
43353663 AW |
9045 | (#{source-wrap\ 448}# |
9046 | #{e\ 2804}# | |
9047 | #{w\ 2806}# | |
9048 | #{s\ 2807}# | |
9049 | #{mod\ 2808}#)))))))) | |
9050 | (#{global-extend\ 376}# | |
417ee098 AW |
9051 | 'core |
9052 | 'quote | |
43353663 AW |
9053 | (lambda (#{e\ 2857}# |
9054 | #{r\ 2858}# | |
9055 | #{w\ 2859}# | |
9056 | #{s\ 2860}# | |
9057 | #{mod\ 2861}#) | |
9058 | (let ((#{tmp\ 2867}# #{e\ 2857}#)) | |
9059 | (let ((#{tmp\ 2868}# | |
9060 | ($sc-dispatch #{tmp\ 2867}# '(_ any)))) | |
9061 | (if #{tmp\ 2868}# | |
417ee098 | 9062 | (@apply |
43353663 AW |
9063 | (lambda (#{e\ 2870}#) |
9064 | (#{build-data\ 332}# | |
9065 | #{s\ 2860}# | |
9066 | (#{strip\ 486}# #{e\ 2870}# #{w\ 2859}#))) | |
9067 | #{tmp\ 2868}#) | |
9068 | (let ((#{_\ 2872}# #{tmp\ 2867}#)) | |
417ee098 AW |
9069 | (syntax-violation |
9070 | 'quote | |
9071 | "bad syntax" | |
43353663 AW |
9072 | (#{source-wrap\ 448}# |
9073 | #{e\ 2857}# | |
9074 | #{w\ 2859}# | |
9075 | #{s\ 2860}# | |
9076 | #{mod\ 2861}#)))))))) | |
9077 | (#{global-extend\ 376}# | |
417ee098 AW |
9078 | 'core |
9079 | 'syntax | |
9080 | (letrec* | |
43353663 AW |
9081 | ((#{gen-syntax\ 2874}# |
9082 | (lambda (#{src\ 2889}# | |
9083 | #{e\ 2890}# | |
9084 | #{r\ 2891}# | |
9085 | #{maps\ 2892}# | |
9086 | #{ellipsis?\ 2893}# | |
9087 | #{mod\ 2894}#) | |
9088 | (if (#{id?\ 380}# #{e\ 2890}#) | |
417ee098 | 9089 | (begin |
43353663 AW |
9090 | (let ((#{label\ 2902}# |
9091 | (#{id-var-name\ 434}# #{e\ 2890}# '(())))) | |
417ee098 | 9092 | (begin |
43353663 AW |
9093 | (let ((#{b\ 2905}# |
9094 | (#{lookup\ 374}# | |
9095 | #{label\ 2902}# | |
9096 | #{r\ 2891}# | |
9097 | #{mod\ 2894}#))) | |
9098 | (if (eq? (car #{b\ 2905}#) 'syntax) | |
417ee098 AW |
9099 | (call-with-values |
9100 | (lambda () | |
9101 | (begin | |
43353663 AW |
9102 | (let ((#{var.lev\ 2908}# |
9103 | (cdr #{b\ 2905}#))) | |
9104 | (#{gen-ref\ 2876}# | |
9105 | #{src\ 2889}# | |
9106 | (car #{var.lev\ 2908}#) | |
9107 | (cdr #{var.lev\ 2908}#) | |
9108 | #{maps\ 2892}#)))) | |
9109 | (lambda (#{var\ 2910}# #{maps\ 2911}#) | |
417ee098 | 9110 | (values |
43353663 AW |
9111 | (list 'ref #{var\ 2910}#) |
9112 | #{maps\ 2911}#))) | |
9113 | (if (#{ellipsis?\ 2893}# #{e\ 2890}#) | |
417ee098 AW |
9114 | (syntax-violation |
9115 | 'syntax | |
9116 | "misplaced ellipsis" | |
43353663 | 9117 | #{src\ 2889}#) |
417ee098 | 9118 | (values |
43353663 AW |
9119 | (list 'quote #{e\ 2890}#) |
9120 | #{maps\ 2892}#))))))) | |
9121 | (let ((#{tmp\ 2916}# #{e\ 2890}#)) | |
9122 | (let ((#{tmp\ 2917}# | |
9123 | ($sc-dispatch #{tmp\ 2916}# '(any any)))) | |
9124 | (if (if #{tmp\ 2917}# | |
417ee098 | 9125 | (@apply |
43353663 AW |
9126 | (lambda (#{dots\ 2920}# #{e\ 2921}#) |
9127 | (#{ellipsis?\ 2893}# #{dots\ 2920}#)) | |
9128 | #{tmp\ 2917}#) | |
417ee098 AW |
9129 | #f) |
9130 | (@apply | |
43353663 AW |
9131 | (lambda (#{dots\ 2924}# #{e\ 2925}#) |
9132 | (#{gen-syntax\ 2874}# | |
9133 | #{src\ 2889}# | |
9134 | #{e\ 2925}# | |
9135 | #{r\ 2891}# | |
9136 | #{maps\ 2892}# | |
9137 | (lambda (#{x\ 2926}#) #f) | |
9138 | #{mod\ 2894}#)) | |
9139 | #{tmp\ 2917}#) | |
9140 | (let ((#{tmp\ 2928}# | |
417ee098 | 9141 | ($sc-dispatch |
43353663 | 9142 | #{tmp\ 2916}# |
417ee098 | 9143 | '(any any . any)))) |
43353663 | 9144 | (if (if #{tmp\ 2928}# |
417ee098 | 9145 | (@apply |
43353663 AW |
9146 | (lambda (#{x\ 2932}# |
9147 | #{dots\ 2933}# | |
9148 | #{y\ 2934}#) | |
9149 | (#{ellipsis?\ 2893}# #{dots\ 2933}#)) | |
9150 | #{tmp\ 2928}#) | |
417ee098 AW |
9151 | #f) |
9152 | (@apply | |
43353663 AW |
9153 | (lambda (#{x\ 2938}# |
9154 | #{dots\ 2939}# | |
9155 | #{y\ 2940}#) | |
417ee098 | 9156 | (letrec* |
43353663 AW |
9157 | ((#{f\ 2944}# |
9158 | (lambda (#{y\ 2945}# #{k\ 2946}#) | |
9159 | (let ((#{tmp\ 2953}# #{y\ 2945}#)) | |
9160 | (let ((#{tmp\ 2954}# | |
417ee098 | 9161 | ($sc-dispatch |
43353663 | 9162 | #{tmp\ 2953}# |
417ee098 | 9163 | '(any . any)))) |
43353663 | 9164 | (if (if #{tmp\ 2954}# |
417ee098 | 9165 | (@apply |
43353663 AW |
9166 | (lambda (#{dots\ 2957}# |
9167 | #{y\ 2958}#) | |
9168 | (#{ellipsis?\ 2893}# | |
9169 | #{dots\ 2957}#)) | |
9170 | #{tmp\ 2954}#) | |
417ee098 AW |
9171 | #f) |
9172 | (@apply | |
43353663 AW |
9173 | (lambda (#{dots\ 2961}# |
9174 | #{y\ 2962}#) | |
9175 | (#{f\ 2944}# | |
9176 | #{y\ 2962}# | |
9177 | (lambda (#{maps\ 2963}#) | |
417ee098 AW |
9178 | (call-with-values |
9179 | (lambda () | |
43353663 | 9180 | (#{k\ 2946}# |
417ee098 | 9181 | (cons '() |
43353663 AW |
9182 | #{maps\ 2963}#))) |
9183 | (lambda (#{x\ 2965}# | |
9184 | #{maps\ 2966}#) | |
9185 | (if (null? (car #{maps\ 2966}#)) | |
417ee098 AW |
9186 | (syntax-violation |
9187 | 'syntax | |
9188 | "extra ellipsis" | |
43353663 | 9189 | #{src\ 2889}#) |
417ee098 | 9190 | (values |
43353663 AW |
9191 | (#{gen-mappend\ 2878}# |
9192 | #{x\ 2965}# | |
9193 | (car #{maps\ 2966}#)) | |
9194 | (cdr #{maps\ 2966}#)))))))) | |
9195 | #{tmp\ 2954}#) | |
9196 | (let ((#{_\ 2970}# | |
9197 | #{tmp\ 2953}#)) | |
417ee098 AW |
9198 | (call-with-values |
9199 | (lambda () | |
43353663 AW |
9200 | (#{gen-syntax\ 2874}# |
9201 | #{src\ 2889}# | |
9202 | #{y\ 2945}# | |
9203 | #{r\ 2891}# | |
9204 | #{maps\ 2892}# | |
9205 | #{ellipsis?\ 2893}# | |
9206 | #{mod\ 2894}#)) | |
9207 | (lambda (#{y\ 2971}# | |
9208 | #{maps\ 2972}#) | |
417ee098 AW |
9209 | (call-with-values |
9210 | (lambda () | |
43353663 AW |
9211 | (#{k\ 2946}# |
9212 | #{maps\ 2972}#)) | |
9213 | (lambda (#{x\ 2975}# | |
9214 | #{maps\ 2976}#) | |
417ee098 | 9215 | (values |
43353663 AW |
9216 | (#{gen-append\ 2884}# |
9217 | #{x\ 2975}# | |
9218 | #{y\ 2971}#) | |
9219 | #{maps\ 2976}#)))))))))))) | |
417ee098 | 9220 | (begin |
43353663 AW |
9221 | (#{f\ 2944}# |
9222 | #{y\ 2940}# | |
9223 | (lambda (#{maps\ 2947}#) | |
417ee098 AW |
9224 | (call-with-values |
9225 | (lambda () | |
43353663 AW |
9226 | (#{gen-syntax\ 2874}# |
9227 | #{src\ 2889}# | |
9228 | #{x\ 2938}# | |
9229 | #{r\ 2891}# | |
9230 | (cons '() #{maps\ 2947}#) | |
9231 | #{ellipsis?\ 2893}# | |
9232 | #{mod\ 2894}#)) | |
9233 | (lambda (#{x\ 2949}# | |
9234 | #{maps\ 2950}#) | |
9235 | (if (null? (car #{maps\ 2950}#)) | |
417ee098 AW |
9236 | (syntax-violation |
9237 | 'syntax | |
9238 | "extra ellipsis" | |
43353663 | 9239 | #{src\ 2889}#) |
417ee098 | 9240 | (values |
43353663 AW |
9241 | (#{gen-map\ 2880}# |
9242 | #{x\ 2949}# | |
9243 | (car #{maps\ 2950}#)) | |
9244 | (cdr #{maps\ 2950}#)))))))))) | |
9245 | #{tmp\ 2928}#) | |
9246 | (let ((#{tmp\ 2979}# | |
417ee098 | 9247 | ($sc-dispatch |
43353663 | 9248 | #{tmp\ 2916}# |
417ee098 | 9249 | '(any . any)))) |
43353663 | 9250 | (if #{tmp\ 2979}# |
417ee098 | 9251 | (@apply |
43353663 | 9252 | (lambda (#{x\ 2982}# #{y\ 2983}#) |
417ee098 AW |
9253 | (call-with-values |
9254 | (lambda () | |
43353663 AW |
9255 | (#{gen-syntax\ 2874}# |
9256 | #{src\ 2889}# | |
9257 | #{x\ 2982}# | |
9258 | #{r\ 2891}# | |
9259 | #{maps\ 2892}# | |
9260 | #{ellipsis?\ 2893}# | |
9261 | #{mod\ 2894}#)) | |
9262 | (lambda (#{x\ 2984}# #{maps\ 2985}#) | |
417ee098 AW |
9263 | (call-with-values |
9264 | (lambda () | |
43353663 AW |
9265 | (#{gen-syntax\ 2874}# |
9266 | #{src\ 2889}# | |
9267 | #{y\ 2983}# | |
9268 | #{r\ 2891}# | |
9269 | #{maps\ 2985}# | |
9270 | #{ellipsis?\ 2893}# | |
9271 | #{mod\ 2894}#)) | |
9272 | (lambda (#{y\ 2988}# | |
9273 | #{maps\ 2989}#) | |
417ee098 | 9274 | (values |
43353663 AW |
9275 | (#{gen-cons\ 2882}# |
9276 | #{x\ 2984}# | |
9277 | #{y\ 2988}#) | |
9278 | #{maps\ 2989}#)))))) | |
9279 | #{tmp\ 2979}#) | |
9280 | (let ((#{tmp\ 2992}# | |
417ee098 | 9281 | ($sc-dispatch |
43353663 | 9282 | #{tmp\ 2916}# |
417ee098 | 9283 | '#(vector (any . each-any))))) |
43353663 | 9284 | (if #{tmp\ 2992}# |
417ee098 | 9285 | (@apply |
43353663 | 9286 | (lambda (#{e1\ 2995}# #{e2\ 2996}#) |
417ee098 AW |
9287 | (call-with-values |
9288 | (lambda () | |
43353663 AW |
9289 | (#{gen-syntax\ 2874}# |
9290 | #{src\ 2889}# | |
9291 | (cons #{e1\ 2995}# | |
9292 | #{e2\ 2996}#) | |
9293 | #{r\ 2891}# | |
9294 | #{maps\ 2892}# | |
9295 | #{ellipsis?\ 2893}# | |
9296 | #{mod\ 2894}#)) | |
9297 | (lambda (#{e\ 2998}# | |
9298 | #{maps\ 2999}#) | |
417ee098 | 9299 | (values |
43353663 AW |
9300 | (#{gen-vector\ 2886}# |
9301 | #{e\ 2998}#) | |
9302 | #{maps\ 2999}#)))) | |
9303 | #{tmp\ 2992}#) | |
9304 | (let ((#{_\ 3003}# #{tmp\ 2916}#)) | |
417ee098 | 9305 | (values |
43353663 AW |
9306 | (list 'quote #{e\ 2890}#) |
9307 | #{maps\ 2892}#)))))))))))))) | |
9308 | (#{gen-ref\ 2876}# | |
9309 | (lambda (#{src\ 3005}# | |
9310 | #{var\ 3006}# | |
9311 | #{level\ 3007}# | |
9312 | #{maps\ 3008}#) | |
9313 | (if (#{fx=\ 287}# #{level\ 3007}# 0) | |
9314 | (values #{var\ 3006}# #{maps\ 3008}#) | |
9315 | (if (null? #{maps\ 3008}#) | |
5f8c55ce AW |
9316 | (syntax-violation |
9317 | 'syntax | |
9318 | "missing ellipsis" | |
43353663 | 9319 | #{src\ 3005}#) |
5f8c55ce AW |
9320 | (call-with-values |
9321 | (lambda () | |
43353663 AW |
9322 | (#{gen-ref\ 2876}# |
9323 | #{src\ 3005}# | |
9324 | #{var\ 3006}# | |
9325 | (#{fx-\ 285}# #{level\ 3007}# 1) | |
9326 | (cdr #{maps\ 3008}#))) | |
9327 | (lambda (#{outer-var\ 3013}# #{outer-maps\ 3014}#) | |
5f8c55ce | 9328 | (begin |
43353663 AW |
9329 | (let ((#{b\ 3018}# |
9330 | (assq #{outer-var\ 3013}# | |
9331 | (car #{maps\ 3008}#)))) | |
9332 | (if #{b\ 3018}# | |
9333 | (values (cdr #{b\ 3018}#) #{maps\ 3008}#) | |
5f8c55ce | 9334 | (begin |
43353663 AW |
9335 | (let ((#{inner-var\ 3020}# |
9336 | (#{gen-var\ 488}# 'tmp))) | |
5f8c55ce | 9337 | (values |
43353663 AW |
9338 | #{inner-var\ 3020}# |
9339 | (cons (cons (cons #{outer-var\ 3013}# | |
9340 | #{inner-var\ 3020}#) | |
9341 | (car #{maps\ 3008}#)) | |
9342 | #{outer-maps\ 3014}#))))))))))))) | |
9343 | (#{gen-mappend\ 2878}# | |
9344 | (lambda (#{e\ 3021}# #{map-env\ 3022}#) | |
5f8c55ce AW |
9345 | (list 'apply |
9346 | '(primitive append) | |
43353663 AW |
9347 | (#{gen-map\ 2880}# #{e\ 3021}# #{map-env\ 3022}#)))) |
9348 | (#{gen-map\ 2880}# | |
9349 | (lambda (#{e\ 3026}# #{map-env\ 3027}#) | |
5f8c55ce | 9350 | (begin |
43353663 AW |
9351 | (let ((#{formals\ 3032}# (map cdr #{map-env\ 3027}#)) |
9352 | (#{actuals\ 3033}# | |
9353 | (map (lambda (#{x\ 3034}#) | |
9354 | (list 'ref (car #{x\ 3034}#))) | |
9355 | #{map-env\ 3027}#))) | |
9356 | (if (eq? (car #{e\ 3026}#) 'ref) | |
9357 | (car #{actuals\ 3033}#) | |
5f8c55ce | 9358 | (if (and-map |
43353663 AW |
9359 | (lambda (#{x\ 3041}#) |
9360 | (if (eq? (car #{x\ 3041}#) 'ref) | |
9361 | (memq (car (cdr #{x\ 3041}#)) | |
9362 | #{formals\ 3032}#) | |
5f8c55ce | 9363 | #f)) |
43353663 | 9364 | (cdr #{e\ 3026}#)) |
5f8c55ce | 9365 | (cons 'map |
43353663 | 9366 | (cons (list 'primitive (car #{e\ 3026}#)) |
5f8c55ce | 9367 | (map (begin |
43353663 | 9368 | (let ((#{r\ 3047}# |
5f8c55ce | 9369 | (map cons |
43353663 AW |
9370 | #{formals\ 3032}# |
9371 | #{actuals\ 3033}#))) | |
9372 | (lambda (#{x\ 3048}#) | |
9373 | (cdr (assq (car (cdr #{x\ 3048}#)) | |
9374 | #{r\ 3047}#))))) | |
9375 | (cdr #{e\ 3026}#)))) | |
5f8c55ce AW |
9376 | (cons 'map |
9377 | (cons (list 'lambda | |
43353663 AW |
9378 | #{formals\ 3032}# |
9379 | #{e\ 3026}#) | |
9380 | #{actuals\ 3033}#)))))))) | |
9381 | (#{gen-cons\ 2882}# | |
9382 | (lambda (#{x\ 3052}# #{y\ 3053}#) | |
5f8c55ce | 9383 | (begin |
43353663 AW |
9384 | (let ((#{atom-key\ 3058}# (car #{y\ 3053}#))) |
9385 | (if (eqv? #{atom-key\ 3058}# 'quote) | |
9386 | (if (eq? (car #{x\ 3052}#) 'quote) | |
5f8c55ce | 9387 | (list 'quote |
43353663 AW |
9388 | (cons (car (cdr #{x\ 3052}#)) |
9389 | (car (cdr #{y\ 3053}#)))) | |
9390 | (if (eq? (car (cdr #{y\ 3053}#)) '()) | |
9391 | (list 'list #{x\ 3052}#) | |
9392 | (list 'cons #{x\ 3052}# #{y\ 3053}#))) | |
9393 | (if (eqv? #{atom-key\ 3058}# 'list) | |
9394 | (cons 'list (cons #{x\ 3052}# (cdr #{y\ 3053}#))) | |
9395 | (list 'cons #{x\ 3052}# #{y\ 3053}#))))))) | |
9396 | (#{gen-append\ 2884}# | |
9397 | (lambda (#{x\ 3067}# #{y\ 3068}#) | |
9398 | (if (equal? #{y\ 3068}# ''()) | |
9399 | #{x\ 3067}# | |
9400 | (list 'append #{x\ 3067}# #{y\ 3068}#)))) | |
9401 | (#{gen-vector\ 2886}# | |
9402 | (lambda (#{x\ 3072}#) | |
9403 | (if (eq? (car #{x\ 3072}#) 'list) | |
9404 | (cons 'vector (cdr #{x\ 3072}#)) | |
9405 | (if (eq? (car #{x\ 3072}#) 'quote) | |
5f8c55ce | 9406 | (list 'quote |
43353663 AW |
9407 | (list->vector (car (cdr #{x\ 3072}#)))) |
9408 | (list 'list->vector #{x\ 3072}#))))) | |
9409 | (#{regen\ 2888}# | |
9410 | (lambda (#{x\ 3082}#) | |
5f8c55ce | 9411 | (begin |
43353663 AW |
9412 | (let ((#{atom-key\ 3086}# (car #{x\ 3082}#))) |
9413 | (if (eqv? #{atom-key\ 3086}# 'ref) | |
9414 | (#{build-lexical-reference\ 312}# | |
5f8c55ce AW |
9415 | 'value |
9416 | #f | |
43353663 AW |
9417 | (car (cdr #{x\ 3082}#)) |
9418 | (car (cdr #{x\ 3082}#))) | |
9419 | (if (eqv? #{atom-key\ 3086}# 'primitive) | |
9420 | (#{build-primref\ 330}# | |
5f8c55ce | 9421 | #f |
43353663 AW |
9422 | (car (cdr #{x\ 3082}#))) |
9423 | (if (eqv? #{atom-key\ 3086}# 'quote) | |
9424 | (#{build-data\ 332}# #f (car (cdr #{x\ 3082}#))) | |
9425 | (if (eqv? #{atom-key\ 3086}# 'lambda) | |
9426 | (if (list? (car (cdr #{x\ 3082}#))) | |
9427 | (#{build-simple-lambda\ 324}# | |
5f8c55ce | 9428 | #f |
43353663 | 9429 | (car (cdr #{x\ 3082}#)) |
5f8c55ce | 9430 | #f |
43353663 | 9431 | (car (cdr #{x\ 3082}#)) |
5f8c55ce | 9432 | '() |
43353663 AW |
9433 | (#{regen\ 2888}# |
9434 | (car (cdr (cdr #{x\ 3082}#))))) | |
9435 | (error "how did we get here" #{x\ 3082}#)) | |
9436 | (#{build-application\ 306}# | |
5f8c55ce | 9437 | #f |
43353663 | 9438 | (#{build-primref\ 330}# |
5f8c55ce | 9439 | #f |
43353663 AW |
9440 | (car #{x\ 3082}#)) |
9441 | (map #{regen\ 2888}# | |
9442 | (cdr #{x\ 3082}#)))))))))))) | |
417ee098 | 9443 | (begin |
43353663 AW |
9444 | (lambda (#{e\ 3098}# |
9445 | #{r\ 3099}# | |
9446 | #{w\ 3100}# | |
9447 | #{s\ 3101}# | |
9448 | #{mod\ 3102}#) | |
417ee098 | 9449 | (begin |
43353663 AW |
9450 | (let ((#{e\ 3109}# |
9451 | (#{source-wrap\ 448}# | |
9452 | #{e\ 3098}# | |
9453 | #{w\ 3100}# | |
9454 | #{s\ 3101}# | |
9455 | #{mod\ 3102}#))) | |
9456 | (let ((#{tmp\ 3110}# #{e\ 3109}#)) | |
9457 | (let ((#{tmp\ 3111}# | |
9458 | ($sc-dispatch #{tmp\ 3110}# '(_ any)))) | |
9459 | (if #{tmp\ 3111}# | |
417ee098 | 9460 | (@apply |
43353663 | 9461 | (lambda (#{x\ 3113}#) |
417ee098 AW |
9462 | (call-with-values |
9463 | (lambda () | |
43353663 AW |
9464 | (#{gen-syntax\ 2874}# |
9465 | #{e\ 3109}# | |
9466 | #{x\ 3113}# | |
9467 | #{r\ 3099}# | |
417ee098 | 9468 | '() |
43353663 AW |
9469 | #{ellipsis?\ 476}# |
9470 | #{mod\ 3102}#)) | |
9471 | (lambda (#{e\ 3114}# #{maps\ 3115}#) | |
9472 | (#{regen\ 2888}# #{e\ 3114}#)))) | |
9473 | #{tmp\ 3111}#) | |
9474 | (let ((#{_\ 3119}# #{tmp\ 3110}#)) | |
417ee098 AW |
9475 | (syntax-violation |
9476 | 'syntax | |
9477 | "bad `syntax' form" | |
43353663 AW |
9478 | #{e\ 3109}#))))))))))) |
9479 | (#{global-extend\ 376}# | |
417ee098 AW |
9480 | 'core |
9481 | 'lambda | |
43353663 AW |
9482 | (lambda (#{e\ 3120}# |
9483 | #{r\ 3121}# | |
9484 | #{w\ 3122}# | |
9485 | #{s\ 3123}# | |
9486 | #{mod\ 3124}#) | |
9487 | (let ((#{tmp\ 3130}# #{e\ 3120}#)) | |
9488 | (let ((#{tmp\ 3131}# | |
417ee098 | 9489 | ($sc-dispatch |
43353663 | 9490 | #{tmp\ 3130}# |
b78d91d5 | 9491 | '(_ any any . each-any)))) |
43353663 | 9492 | (if #{tmp\ 3131}# |
417ee098 | 9493 | (@apply |
43353663 | 9494 | (lambda (#{args\ 3135}# #{e1\ 3136}# #{e2\ 3137}#) |
417ee098 AW |
9495 | (call-with-values |
9496 | (lambda () | |
43353663 AW |
9497 | (#{lambda-formals\ 478}# #{args\ 3135}#)) |
9498 | (lambda (#{req\ 3138}# | |
9499 | #{opt\ 3139}# | |
9500 | #{rest\ 3140}# | |
9501 | #{kw\ 3141}#) | |
417ee098 | 9502 | (letrec* |
43353663 AW |
9503 | ((#{lp\ 3149}# |
9504 | (lambda (#{body\ 3150}# #{meta\ 3151}#) | |
9505 | (let ((#{tmp\ 3153}# #{body\ 3150}#)) | |
9506 | (let ((#{tmp\ 3154}# | |
417ee098 | 9507 | ($sc-dispatch |
43353663 | 9508 | #{tmp\ 3153}# |
417ee098 | 9509 | '(any any . each-any)))) |
43353663 | 9510 | (if (if #{tmp\ 3154}# |
417ee098 | 9511 | (@apply |
43353663 AW |
9512 | (lambda (#{docstring\ 3158}# |
9513 | #{e1\ 3159}# | |
9514 | #{e2\ 3160}#) | |
417ee098 AW |
9515 | (string? |
9516 | (syntax->datum | |
43353663 AW |
9517 | #{docstring\ 3158}#))) |
9518 | #{tmp\ 3154}#) | |
417ee098 AW |
9519 | #f) |
9520 | (@apply | |
43353663 AW |
9521 | (lambda (#{docstring\ 3164}# |
9522 | #{e1\ 3165}# | |
9523 | #{e2\ 3166}#) | |
9524 | (#{lp\ 3149}# | |
9525 | (cons #{e1\ 3165}# | |
9526 | #{e2\ 3166}#) | |
417ee098 | 9527 | (append |
43353663 | 9528 | #{meta\ 3151}# |
417ee098 AW |
9529 | (list (cons 'documentation |
9530 | (syntax->datum | |
43353663 AW |
9531 | #{docstring\ 3164}#)))))) |
9532 | #{tmp\ 3154}#) | |
9533 | (let ((#{tmp\ 3169}# | |
417ee098 | 9534 | ($sc-dispatch |
43353663 | 9535 | #{tmp\ 3153}# |
417ee098 AW |
9536 | '(#(vector |
9537 | #(each (any . any))) | |
9538 | any | |
9539 | . | |
9540 | each-any)))) | |
43353663 | 9541 | (if #{tmp\ 3169}# |
417ee098 | 9542 | (@apply |
43353663 AW |
9543 | (lambda (#{k\ 3174}# |
9544 | #{v\ 3175}# | |
9545 | #{e1\ 3176}# | |
9546 | #{e2\ 3177}#) | |
9547 | (#{lp\ 3149}# | |
9548 | (cons #{e1\ 3176}# | |
9549 | #{e2\ 3177}#) | |
417ee098 | 9550 | (append |
43353663 | 9551 | #{meta\ 3151}# |
417ee098 AW |
9552 | (syntax->datum |
9553 | (map cons | |
43353663 AW |
9554 | #{k\ 3174}# |
9555 | #{v\ 3175}#))))) | |
9556 | #{tmp\ 3169}#) | |
9557 | (let ((#{_\ 3182}# | |
9558 | #{tmp\ 3153}#)) | |
9559 | (#{chi-simple-lambda\ 480}# | |
9560 | #{e\ 3120}# | |
9561 | #{r\ 3121}# | |
9562 | #{w\ 3122}# | |
9563 | #{s\ 3123}# | |
9564 | #{mod\ 3124}# | |
9565 | #{req\ 3138}# | |
9566 | #{rest\ 3140}# | |
9567 | #{meta\ 3151}# | |
9568 | #{body\ 3150}#)))))))))) | |
417ee098 | 9569 | (begin |
43353663 AW |
9570 | (#{lp\ 3149}# |
9571 | (cons #{e1\ 3136}# #{e2\ 3137}#) | |
417ee098 | 9572 | '())))))) |
43353663 AW |
9573 | #{tmp\ 3131}#) |
9574 | (let ((#{_\ 3184}# #{tmp\ 3130}#)) | |
417ee098 AW |
9575 | (syntax-violation |
9576 | 'lambda | |
9577 | "bad lambda" | |
43353663 AW |
9578 | #{e\ 3120}#))))))) |
9579 | (#{global-extend\ 376}# | |
417ee098 AW |
9580 | 'core |
9581 | 'lambda* | |
43353663 AW |
9582 | (lambda (#{e\ 3185}# |
9583 | #{r\ 3186}# | |
9584 | #{w\ 3187}# | |
9585 | #{s\ 3188}# | |
9586 | #{mod\ 3189}#) | |
9587 | (let ((#{tmp\ 3195}# #{e\ 3185}#)) | |
9588 | (let ((#{tmp\ 3196}# | |
417ee098 | 9589 | ($sc-dispatch |
43353663 | 9590 | #{tmp\ 3195}# |
b78d91d5 | 9591 | '(_ any any . each-any)))) |
43353663 | 9592 | (if #{tmp\ 3196}# |
417ee098 | 9593 | (@apply |
43353663 | 9594 | (lambda (#{args\ 3200}# #{e1\ 3201}# #{e2\ 3202}#) |
417ee098 AW |
9595 | (call-with-values |
9596 | (lambda () | |
43353663 AW |
9597 | (#{chi-lambda-case\ 484}# |
9598 | #{e\ 3185}# | |
9599 | #{r\ 3186}# | |
9600 | #{w\ 3187}# | |
9601 | #{s\ 3188}# | |
9602 | #{mod\ 3189}# | |
9603 | #{lambda*-formals\ 482}# | |
9604 | (list (cons #{args\ 3200}# | |
9605 | (cons #{e1\ 3201}# | |
9606 | #{e2\ 3202}#))))) | |
9607 | (lambda (#{meta\ 3204}# #{lcase\ 3205}#) | |
9608 | (#{build-case-lambda\ 326}# | |
9609 | #{s\ 3188}# | |
9610 | #{meta\ 3204}# | |
9611 | #{lcase\ 3205}#)))) | |
9612 | #{tmp\ 3196}#) | |
9613 | (let ((#{_\ 3209}# #{tmp\ 3195}#)) | |
417ee098 AW |
9614 | (syntax-violation |
9615 | 'lambda | |
9616 | "bad lambda*" | |
43353663 AW |
9617 | #{e\ 3185}#))))))) |
9618 | (#{global-extend\ 376}# | |
417ee098 AW |
9619 | 'core |
9620 | 'case-lambda | |
43353663 AW |
9621 | (lambda (#{e\ 3210}# |
9622 | #{r\ 3211}# | |
9623 | #{w\ 3212}# | |
9624 | #{s\ 3213}# | |
9625 | #{mod\ 3214}#) | |
9626 | (let ((#{tmp\ 3220}# #{e\ 3210}#)) | |
9627 | (let ((#{tmp\ 3221}# | |
417ee098 | 9628 | ($sc-dispatch |
43353663 | 9629 | #{tmp\ 3220}# |
b78d91d5 AW |
9630 | '(_ (any any . each-any) |
9631 | . | |
9632 | #(each (any any . each-any)))))) | |
43353663 | 9633 | (if #{tmp\ 3221}# |
417ee098 | 9634 | (@apply |
43353663 AW |
9635 | (lambda (#{args\ 3228}# |
9636 | #{e1\ 3229}# | |
9637 | #{e2\ 3230}# | |
9638 | #{args*\ 3231}# | |
9639 | #{e1*\ 3232}# | |
9640 | #{e2*\ 3233}#) | |
417ee098 AW |
9641 | (call-with-values |
9642 | (lambda () | |
43353663 AW |
9643 | (#{chi-lambda-case\ 484}# |
9644 | #{e\ 3210}# | |
9645 | #{r\ 3211}# | |
9646 | #{w\ 3212}# | |
9647 | #{s\ 3213}# | |
9648 | #{mod\ 3214}# | |
9649 | #{lambda-formals\ 478}# | |
9650 | (cons (cons #{args\ 3228}# | |
9651 | (cons #{e1\ 3229}# #{e2\ 3230}#)) | |
9652 | (map (lambda (#{tmp\ 3237}# | |
9653 | #{tmp\ 3236}# | |
9654 | #{tmp\ 3235}#) | |
9655 | (cons #{tmp\ 3235}# | |
9656 | (cons #{tmp\ 3236}# | |
9657 | #{tmp\ 3237}#))) | |
9658 | #{e2*\ 3233}# | |
9659 | #{e1*\ 3232}# | |
9660 | #{args*\ 3231}#)))) | |
9661 | (lambda (#{meta\ 3239}# #{lcase\ 3240}#) | |
9662 | (#{build-case-lambda\ 326}# | |
9663 | #{s\ 3213}# | |
9664 | #{meta\ 3239}# | |
9665 | #{lcase\ 3240}#)))) | |
9666 | #{tmp\ 3221}#) | |
9667 | (let ((#{_\ 3244}# #{tmp\ 3220}#)) | |
417ee098 AW |
9668 | (syntax-violation |
9669 | 'case-lambda | |
9670 | "bad case-lambda" | |
43353663 AW |
9671 | #{e\ 3210}#))))))) |
9672 | (#{global-extend\ 376}# | |
417ee098 AW |
9673 | 'core |
9674 | 'case-lambda* | |
43353663 AW |
9675 | (lambda (#{e\ 3245}# |
9676 | #{r\ 3246}# | |
9677 | #{w\ 3247}# | |
9678 | #{s\ 3248}# | |
9679 | #{mod\ 3249}#) | |
9680 | (let ((#{tmp\ 3255}# #{e\ 3245}#)) | |
9681 | (let ((#{tmp\ 3256}# | |
417ee098 | 9682 | ($sc-dispatch |
43353663 | 9683 | #{tmp\ 3255}# |
b78d91d5 AW |
9684 | '(_ (any any . each-any) |
9685 | . | |
9686 | #(each (any any . each-any)))))) | |
43353663 | 9687 | (if #{tmp\ 3256}# |
417ee098 | 9688 | (@apply |
43353663 AW |
9689 | (lambda (#{args\ 3263}# |
9690 | #{e1\ 3264}# | |
9691 | #{e2\ 3265}# | |
9692 | #{args*\ 3266}# | |
9693 | #{e1*\ 3267}# | |
9694 | #{e2*\ 3268}#) | |
417ee098 AW |
9695 | (call-with-values |
9696 | (lambda () | |
43353663 AW |
9697 | (#{chi-lambda-case\ 484}# |
9698 | #{e\ 3245}# | |
9699 | #{r\ 3246}# | |
9700 | #{w\ 3247}# | |
9701 | #{s\ 3248}# | |
9702 | #{mod\ 3249}# | |
9703 | #{lambda*-formals\ 482}# | |
9704 | (cons (cons #{args\ 3263}# | |
9705 | (cons #{e1\ 3264}# #{e2\ 3265}#)) | |
9706 | (map (lambda (#{tmp\ 3272}# | |
9707 | #{tmp\ 3271}# | |
9708 | #{tmp\ 3270}#) | |
9709 | (cons #{tmp\ 3270}# | |
9710 | (cons #{tmp\ 3271}# | |
9711 | #{tmp\ 3272}#))) | |
9712 | #{e2*\ 3268}# | |
9713 | #{e1*\ 3267}# | |
9714 | #{args*\ 3266}#)))) | |
9715 | (lambda (#{meta\ 3274}# #{lcase\ 3275}#) | |
9716 | (#{build-case-lambda\ 326}# | |
9717 | #{s\ 3248}# | |
9718 | #{meta\ 3274}# | |
9719 | #{lcase\ 3275}#)))) | |
9720 | #{tmp\ 3256}#) | |
9721 | (let ((#{_\ 3279}# #{tmp\ 3255}#)) | |
417ee098 AW |
9722 | (syntax-violation |
9723 | 'case-lambda | |
9724 | "bad case-lambda*" | |
43353663 AW |
9725 | #{e\ 3245}#))))))) |
9726 | (#{global-extend\ 376}# | |
417ee098 AW |
9727 | 'core |
9728 | 'let | |
9729 | (letrec* | |
43353663 AW |
9730 | ((#{chi-let\ 3281}# |
9731 | (lambda (#{e\ 3282}# | |
9732 | #{r\ 3283}# | |
9733 | #{w\ 3284}# | |
9734 | #{s\ 3285}# | |
9735 | #{mod\ 3286}# | |
9736 | #{constructor\ 3287}# | |
9737 | #{ids\ 3288}# | |
9738 | #{vals\ 3289}# | |
9739 | #{exps\ 3290}#) | |
9740 | (if (not (#{valid-bound-ids?\ 440}# #{ids\ 3288}#)) | |
417ee098 AW |
9741 | (syntax-violation |
9742 | 'let | |
9743 | "duplicate bound variable" | |
43353663 | 9744 | #{e\ 3282}#) |
417ee098 | 9745 | (begin |
43353663 AW |
9746 | (let ((#{labels\ 3302}# |
9747 | (#{gen-labels\ 395}# #{ids\ 3288}#)) | |
9748 | (#{new-vars\ 3303}# | |
9749 | (map #{gen-var\ 488}# #{ids\ 3288}#))) | |
417ee098 | 9750 | (begin |
43353663 AW |
9751 | (let ((#{nw\ 3306}# |
9752 | (#{make-binding-wrap\ 424}# | |
9753 | #{ids\ 3288}# | |
9754 | #{labels\ 3302}# | |
9755 | #{w\ 3284}#)) | |
9756 | (#{nr\ 3307}# | |
9757 | (#{extend-var-env\ 370}# | |
9758 | #{labels\ 3302}# | |
9759 | #{new-vars\ 3303}# | |
9760 | #{r\ 3283}#))) | |
9761 | (#{constructor\ 3287}# | |
9762 | #{s\ 3285}# | |
9763 | (map syntax->datum #{ids\ 3288}#) | |
9764 | #{new-vars\ 3303}# | |
9765 | (map (lambda (#{x\ 3308}#) | |
9766 | (#{chi\ 460}# | |
9767 | #{x\ 3308}# | |
9768 | #{r\ 3283}# | |
9769 | #{w\ 3284}# | |
9770 | #{mod\ 3286}#)) | |
9771 | #{vals\ 3289}#) | |
9772 | (#{chi-body\ 468}# | |
9773 | #{exps\ 3290}# | |
9774 | (#{source-wrap\ 448}# | |
9775 | #{e\ 3282}# | |
9776 | #{nw\ 3306}# | |
9777 | #{s\ 3285}# | |
9778 | #{mod\ 3286}#) | |
9779 | #{nr\ 3307}# | |
9780 | #{nw\ 3306}# | |
9781 | #{mod\ 3286}#)))))))))) | |
417ee098 | 9782 | (begin |
43353663 AW |
9783 | (lambda (#{e\ 3310}# |
9784 | #{r\ 3311}# | |
9785 | #{w\ 3312}# | |
9786 | #{s\ 3313}# | |
9787 | #{mod\ 3314}#) | |
9788 | (let ((#{tmp\ 3320}# #{e\ 3310}#)) | |
9789 | (let ((#{tmp\ 3321}# | |
417ee098 | 9790 | ($sc-dispatch |
43353663 | 9791 | #{tmp\ 3320}# |
b78d91d5 | 9792 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 9793 | (if (if #{tmp\ 3321}# |
417ee098 | 9794 | (@apply |
43353663 AW |
9795 | (lambda (#{id\ 3326}# |
9796 | #{val\ 3327}# | |
9797 | #{e1\ 3328}# | |
9798 | #{e2\ 3329}#) | |
9799 | (and-map #{id?\ 380}# #{id\ 3326}#)) | |
9800 | #{tmp\ 3321}#) | |
417ee098 AW |
9801 | #f) |
9802 | (@apply | |
43353663 AW |
9803 | (lambda (#{id\ 3335}# |
9804 | #{val\ 3336}# | |
9805 | #{e1\ 3337}# | |
9806 | #{e2\ 3338}#) | |
9807 | (#{chi-let\ 3281}# | |
9808 | #{e\ 3310}# | |
9809 | #{r\ 3311}# | |
9810 | #{w\ 3312}# | |
9811 | #{s\ 3313}# | |
9812 | #{mod\ 3314}# | |
9813 | #{build-let\ 336}# | |
9814 | #{id\ 3335}# | |
9815 | #{val\ 3336}# | |
9816 | (cons #{e1\ 3337}# #{e2\ 3338}#))) | |
9817 | #{tmp\ 3321}#) | |
9818 | (let ((#{tmp\ 3342}# | |
417ee098 | 9819 | ($sc-dispatch |
43353663 | 9820 | #{tmp\ 3320}# |
b78d91d5 AW |
9821 | '(_ any |
9822 | #(each (any any)) | |
9823 | any | |
9824 | . | |
9825 | each-any)))) | |
43353663 | 9826 | (if (if #{tmp\ 3342}# |
417ee098 | 9827 | (@apply |
43353663 AW |
9828 | (lambda (#{f\ 3348}# |
9829 | #{id\ 3349}# | |
9830 | #{val\ 3350}# | |
9831 | #{e1\ 3351}# | |
9832 | #{e2\ 3352}#) | |
9833 | (if (#{id?\ 380}# #{f\ 3348}#) | |
9834 | (and-map #{id?\ 380}# #{id\ 3349}#) | |
417ee098 | 9835 | #f)) |
43353663 | 9836 | #{tmp\ 3342}#) |
417ee098 AW |
9837 | #f) |
9838 | (@apply | |
43353663 AW |
9839 | (lambda (#{f\ 3361}# |
9840 | #{id\ 3362}# | |
9841 | #{val\ 3363}# | |
9842 | #{e1\ 3364}# | |
9843 | #{e2\ 3365}#) | |
9844 | (#{chi-let\ 3281}# | |
9845 | #{e\ 3310}# | |
9846 | #{r\ 3311}# | |
9847 | #{w\ 3312}# | |
9848 | #{s\ 3313}# | |
9849 | #{mod\ 3314}# | |
9850 | #{build-named-let\ 338}# | |
9851 | (cons #{f\ 3361}# #{id\ 3362}#) | |
9852 | #{val\ 3363}# | |
9853 | (cons #{e1\ 3364}# #{e2\ 3365}#))) | |
9854 | #{tmp\ 3342}#) | |
9855 | (let ((#{_\ 3370}# #{tmp\ 3320}#)) | |
417ee098 AW |
9856 | (syntax-violation |
9857 | 'let | |
9858 | "bad let" | |
43353663 AW |
9859 | (#{source-wrap\ 448}# |
9860 | #{e\ 3310}# | |
9861 | #{w\ 3312}# | |
9862 | #{s\ 3313}# | |
9863 | #{mod\ 3314}#)))))))))))) | |
9864 | (#{global-extend\ 376}# | |
417ee098 AW |
9865 | 'core |
9866 | 'letrec | |
43353663 AW |
9867 | (lambda (#{e\ 3371}# |
9868 | #{r\ 3372}# | |
9869 | #{w\ 3373}# | |
9870 | #{s\ 3374}# | |
9871 | #{mod\ 3375}#) | |
9872 | (let ((#{tmp\ 3381}# #{e\ 3371}#)) | |
9873 | (let ((#{tmp\ 3382}# | |
417ee098 | 9874 | ($sc-dispatch |
43353663 | 9875 | #{tmp\ 3381}# |
b78d91d5 | 9876 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 9877 | (if (if #{tmp\ 3382}# |
417ee098 | 9878 | (@apply |
43353663 AW |
9879 | (lambda (#{id\ 3387}# |
9880 | #{val\ 3388}# | |
9881 | #{e1\ 3389}# | |
9882 | #{e2\ 3390}#) | |
9883 | (and-map #{id?\ 380}# #{id\ 3387}#)) | |
9884 | #{tmp\ 3382}#) | |
417ee098 AW |
9885 | #f) |
9886 | (@apply | |
43353663 AW |
9887 | (lambda (#{id\ 3396}# |
9888 | #{val\ 3397}# | |
9889 | #{e1\ 3398}# | |
9890 | #{e2\ 3399}#) | |
417ee098 | 9891 | (begin |
43353663 AW |
9892 | (let ((#{ids\ 3401}# #{id\ 3396}#)) |
9893 | (if (not (#{valid-bound-ids?\ 440}# | |
9894 | #{ids\ 3401}#)) | |
417ee098 AW |
9895 | (syntax-violation |
9896 | 'letrec | |
9897 | "duplicate bound variable" | |
43353663 | 9898 | #{e\ 3371}#) |
417ee098 | 9899 | (begin |
43353663 AW |
9900 | (let ((#{labels\ 3405}# |
9901 | (#{gen-labels\ 395}# #{ids\ 3401}#)) | |
9902 | (#{new-vars\ 3406}# | |
9903 | (map #{gen-var\ 488}# | |
9904 | #{ids\ 3401}#))) | |
417ee098 | 9905 | (begin |
43353663 AW |
9906 | (let ((#{w\ 3409}# |
9907 | (#{make-binding-wrap\ 424}# | |
9908 | #{ids\ 3401}# | |
9909 | #{labels\ 3405}# | |
9910 | #{w\ 3373}#)) | |
9911 | (#{r\ 3410}# | |
9912 | (#{extend-var-env\ 370}# | |
9913 | #{labels\ 3405}# | |
9914 | #{new-vars\ 3406}# | |
9915 | #{r\ 3372}#))) | |
9916 | (#{build-letrec\ 340}# | |
9917 | #{s\ 3374}# | |
417ee098 | 9918 | #f |
43353663 AW |
9919 | (map syntax->datum #{ids\ 3401}#) |
9920 | #{new-vars\ 3406}# | |
9921 | (map (lambda (#{x\ 3411}#) | |
9922 | (#{chi\ 460}# | |
9923 | #{x\ 3411}# | |
9924 | #{r\ 3410}# | |
9925 | #{w\ 3409}# | |
9926 | #{mod\ 3375}#)) | |
9927 | #{val\ 3397}#) | |
9928 | (#{chi-body\ 468}# | |
9929 | (cons #{e1\ 3398}# #{e2\ 3399}#) | |
9930 | (#{source-wrap\ 448}# | |
9931 | #{e\ 3371}# | |
9932 | #{w\ 3409}# | |
9933 | #{s\ 3374}# | |
9934 | #{mod\ 3375}#) | |
9935 | #{r\ 3410}# | |
9936 | #{w\ 3409}# | |
9937 | #{mod\ 3375}#)))))))))) | |
9938 | #{tmp\ 3382}#) | |
9939 | (let ((#{_\ 3416}# #{tmp\ 3381}#)) | |
417ee098 AW |
9940 | (syntax-violation |
9941 | 'letrec | |
9942 | "bad letrec" | |
43353663 AW |
9943 | (#{source-wrap\ 448}# |
9944 | #{e\ 3371}# | |
9945 | #{w\ 3373}# | |
9946 | #{s\ 3374}# | |
9947 | #{mod\ 3375}#)))))))) | |
9948 | (#{global-extend\ 376}# | |
417ee098 AW |
9949 | 'core |
9950 | 'letrec* | |
43353663 AW |
9951 | (lambda (#{e\ 3417}# |
9952 | #{r\ 3418}# | |
9953 | #{w\ 3419}# | |
9954 | #{s\ 3420}# | |
9955 | #{mod\ 3421}#) | |
9956 | (let ((#{tmp\ 3427}# #{e\ 3417}#)) | |
9957 | (let ((#{tmp\ 3428}# | |
417ee098 | 9958 | ($sc-dispatch |
43353663 | 9959 | #{tmp\ 3427}# |
b78d91d5 | 9960 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 9961 | (if (if #{tmp\ 3428}# |
417ee098 | 9962 | (@apply |
43353663 AW |
9963 | (lambda (#{id\ 3433}# |
9964 | #{val\ 3434}# | |
9965 | #{e1\ 3435}# | |
9966 | #{e2\ 3436}#) | |
9967 | (and-map #{id?\ 380}# #{id\ 3433}#)) | |
9968 | #{tmp\ 3428}#) | |
417ee098 AW |
9969 | #f) |
9970 | (@apply | |
43353663 AW |
9971 | (lambda (#{id\ 3442}# |
9972 | #{val\ 3443}# | |
9973 | #{e1\ 3444}# | |
9974 | #{e2\ 3445}#) | |
417ee098 | 9975 | (begin |
43353663 AW |
9976 | (let ((#{ids\ 3447}# #{id\ 3442}#)) |
9977 | (if (not (#{valid-bound-ids?\ 440}# | |
9978 | #{ids\ 3447}#)) | |
417ee098 AW |
9979 | (syntax-violation |
9980 | 'letrec* | |
9981 | "duplicate bound variable" | |
43353663 | 9982 | #{e\ 3417}#) |
417ee098 | 9983 | (begin |
43353663 AW |
9984 | (let ((#{labels\ 3451}# |
9985 | (#{gen-labels\ 395}# #{ids\ 3447}#)) | |
9986 | (#{new-vars\ 3452}# | |
9987 | (map #{gen-var\ 488}# | |
9988 | #{ids\ 3447}#))) | |
417ee098 | 9989 | (begin |
43353663 AW |
9990 | (let ((#{w\ 3455}# |
9991 | (#{make-binding-wrap\ 424}# | |
9992 | #{ids\ 3447}# | |
9993 | #{labels\ 3451}# | |
9994 | #{w\ 3419}#)) | |
9995 | (#{r\ 3456}# | |
9996 | (#{extend-var-env\ 370}# | |
9997 | #{labels\ 3451}# | |
9998 | #{new-vars\ 3452}# | |
9999 | #{r\ 3418}#))) | |
10000 | (#{build-letrec\ 340}# | |
10001 | #{s\ 3420}# | |
417ee098 | 10002 | #t |
43353663 AW |
10003 | (map syntax->datum #{ids\ 3447}#) |
10004 | #{new-vars\ 3452}# | |
10005 | (map (lambda (#{x\ 3457}#) | |
10006 | (#{chi\ 460}# | |
10007 | #{x\ 3457}# | |
10008 | #{r\ 3456}# | |
10009 | #{w\ 3455}# | |
10010 | #{mod\ 3421}#)) | |
10011 | #{val\ 3443}#) | |
10012 | (#{chi-body\ 468}# | |
10013 | (cons #{e1\ 3444}# #{e2\ 3445}#) | |
10014 | (#{source-wrap\ 448}# | |
10015 | #{e\ 3417}# | |
10016 | #{w\ 3455}# | |
10017 | #{s\ 3420}# | |
10018 | #{mod\ 3421}#) | |
10019 | #{r\ 3456}# | |
10020 | #{w\ 3455}# | |
10021 | #{mod\ 3421}#)))))))))) | |
10022 | #{tmp\ 3428}#) | |
10023 | (let ((#{_\ 3462}# #{tmp\ 3427}#)) | |
417ee098 AW |
10024 | (syntax-violation |
10025 | 'letrec* | |
10026 | "bad letrec*" | |
43353663 AW |
10027 | (#{source-wrap\ 448}# |
10028 | #{e\ 3417}# | |
10029 | #{w\ 3419}# | |
10030 | #{s\ 3420}# | |
10031 | #{mod\ 3421}#)))))))) | |
10032 | (#{global-extend\ 376}# | |
417ee098 AW |
10033 | 'core |
10034 | 'set! | |
43353663 AW |
10035 | (lambda (#{e\ 3463}# |
10036 | #{r\ 3464}# | |
10037 | #{w\ 3465}# | |
10038 | #{s\ 3466}# | |
10039 | #{mod\ 3467}#) | |
10040 | (let ((#{tmp\ 3473}# #{e\ 3463}#)) | |
10041 | (let ((#{tmp\ 3474}# | |
10042 | ($sc-dispatch #{tmp\ 3473}# '(_ any any)))) | |
10043 | (if (if #{tmp\ 3474}# | |
417ee098 | 10044 | (@apply |
43353663 AW |
10045 | (lambda (#{id\ 3477}# #{val\ 3478}#) |
10046 | (#{id?\ 380}# #{id\ 3477}#)) | |
10047 | #{tmp\ 3474}#) | |
417ee098 AW |
10048 | #f) |
10049 | (@apply | |
43353663 | 10050 | (lambda (#{id\ 3481}# #{val\ 3482}#) |
417ee098 | 10051 | (begin |
43353663 AW |
10052 | (let ((#{n\ 3485}# |
10053 | (#{id-var-name\ 434}# | |
10054 | #{id\ 3481}# | |
10055 | #{w\ 3465}#)) | |
10056 | (#{id-mod\ 3486}# | |
10057 | (if (#{syntax-object?\ 346}# #{id\ 3481}#) | |
10058 | (#{syntax-object-module\ 352}# | |
10059 | #{id\ 3481}#) | |
10060 | #{mod\ 3467}#))) | |
417ee098 | 10061 | (begin |
43353663 AW |
10062 | (let ((#{b\ 3488}# |
10063 | (#{lookup\ 374}# | |
10064 | #{n\ 3485}# | |
10065 | #{r\ 3464}# | |
10066 | #{id-mod\ 3486}#))) | |
417ee098 | 10067 | (begin |
43353663 AW |
10068 | (let ((#{atom-key\ 3491}# |
10069 | (car #{b\ 3488}#))) | |
10070 | (if (eqv? #{atom-key\ 3491}# 'lexical) | |
10071 | (#{build-lexical-assignment\ 314}# | |
10072 | #{s\ 3466}# | |
10073 | (syntax->datum #{id\ 3481}#) | |
10074 | (cdr #{b\ 3488}#) | |
10075 | (#{chi\ 460}# | |
10076 | #{val\ 3482}# | |
10077 | #{r\ 3464}# | |
10078 | #{w\ 3465}# | |
10079 | #{mod\ 3467}#)) | |
10080 | (if (eqv? #{atom-key\ 3491}# 'global) | |
10081 | (#{build-global-assignment\ 320}# | |
10082 | #{s\ 3466}# | |
10083 | #{n\ 3485}# | |
10084 | (#{chi\ 460}# | |
10085 | #{val\ 3482}# | |
10086 | #{r\ 3464}# | |
10087 | #{w\ 3465}# | |
10088 | #{mod\ 3467}#) | |
10089 | #{id-mod\ 3486}#) | |
10090 | (if (eqv? #{atom-key\ 3491}# 'macro) | |
bfccdcd5 | 10091 | (begin |
43353663 AW |
10092 | (let ((#{p\ 3498}# |
10093 | (cdr #{b\ 3488}#))) | |
bfccdcd5 | 10094 | (if (procedure-property |
43353663 | 10095 | #{p\ 3498}# |
bfccdcd5 | 10096 | 'variable-transformer) |
43353663 AW |
10097 | (#{chi\ 460}# |
10098 | (#{chi-macro\ 466}# | |
10099 | #{p\ 3498}# | |
10100 | #{e\ 3463}# | |
10101 | #{r\ 3464}# | |
10102 | #{w\ 3465}# | |
10103 | #{s\ 3466}# | |
bfccdcd5 | 10104 | #f |
43353663 AW |
10105 | #{mod\ 3467}#) |
10106 | #{r\ 3464}# | |
ab6becd4 | 10107 | '(()) |
43353663 | 10108 | #{mod\ 3467}#) |
bfccdcd5 AW |
10109 | (syntax-violation |
10110 | 'set! | |
10111 | "not a variable transformer" | |
43353663 AW |
10112 | (#{wrap\ 446}# |
10113 | #{e\ 3463}# | |
10114 | #{w\ 3465}# | |
10115 | #{mod\ 3467}#) | |
10116 | (#{wrap\ 446}# | |
10117 | #{id\ 3481}# | |
10118 | #{w\ 3465}# | |
10119 | #{id-mod\ 3486}#))))) | |
10120 | (if (eqv? #{atom-key\ 3491}# | |
bfccdcd5 AW |
10121 | 'displaced-lexical) |
10122 | (syntax-violation | |
10123 | 'set! | |
10124 | "identifier out of context" | |
43353663 AW |
10125 | (#{wrap\ 446}# |
10126 | #{id\ 3481}# | |
10127 | #{w\ 3465}# | |
10128 | #{mod\ 3467}#)) | |
bfccdcd5 AW |
10129 | (syntax-violation |
10130 | 'set! | |
10131 | "bad set!" | |
43353663 AW |
10132 | (#{source-wrap\ 448}# |
10133 | #{e\ 3463}# | |
10134 | #{w\ 3465}# | |
10135 | #{s\ 3466}# | |
10136 | #{mod\ 3467}#))))))))))))) | |
10137 | #{tmp\ 3474}#) | |
10138 | (let ((#{tmp\ 3503}# | |
417ee098 | 10139 | ($sc-dispatch |
43353663 | 10140 | #{tmp\ 3473}# |
b78d91d5 | 10141 | '(_ (any . each-any) any)))) |
43353663 | 10142 | (if #{tmp\ 3503}# |
417ee098 | 10143 | (@apply |
43353663 AW |
10144 | (lambda (#{head\ 3507}# |
10145 | #{tail\ 3508}# | |
10146 | #{val\ 3509}#) | |
417ee098 AW |
10147 | (call-with-values |
10148 | (lambda () | |
43353663 AW |
10149 | (#{syntax-type\ 458}# |
10150 | #{head\ 3507}# | |
10151 | #{r\ 3464}# | |
417ee098 AW |
10152 | '(()) |
10153 | #f | |
10154 | #f | |
43353663 | 10155 | #{mod\ 3467}# |
417ee098 | 10156 | #t)) |
43353663 AW |
10157 | (lambda (#{type\ 3512}# |
10158 | #{value\ 3513}# | |
10159 | #{ee\ 3514}# | |
10160 | #{ww\ 3515}# | |
10161 | #{ss\ 3516}# | |
10162 | #{modmod\ 3517}#) | |
10163 | (if (eqv? #{type\ 3512}# 'module-ref) | |
417ee098 | 10164 | (begin |
43353663 AW |
10165 | (let ((#{val\ 3526}# |
10166 | (#{chi\ 460}# | |
10167 | #{val\ 3509}# | |
10168 | #{r\ 3464}# | |
10169 | #{w\ 3465}# | |
10170 | #{mod\ 3467}#))) | |
417ee098 AW |
10171 | (call-with-values |
10172 | (lambda () | |
43353663 AW |
10173 | (#{value\ 3513}# |
10174 | (cons #{head\ 3507}# | |
10175 | #{tail\ 3508}#) | |
10176 | #{r\ 3464}# | |
10177 | #{w\ 3465}#)) | |
10178 | (lambda (#{e\ 3528}# | |
10179 | #{r\ 3529}# | |
10180 | #{w\ 3530}# | |
10181 | #{s*\ 3531}# | |
10182 | #{mod\ 3532}#) | |
10183 | (let ((#{tmp\ 3538}# #{e\ 3528}#)) | |
10184 | (let ((#{tmp\ 3539}# | |
10185 | (list #{tmp\ 3538}#))) | |
10186 | (if (if #{tmp\ 3539}# | |
417ee098 | 10187 | (@apply |
43353663 AW |
10188 | (lambda (#{e\ 3541}#) |
10189 | (#{id?\ 380}# | |
10190 | #{e\ 3541}#)) | |
10191 | #{tmp\ 3539}#) | |
417ee098 AW |
10192 | #f) |
10193 | (@apply | |
43353663 AW |
10194 | (lambda (#{e\ 3543}#) |
10195 | (#{build-global-assignment\ 320}# | |
10196 | #{s\ 3466}# | |
417ee098 | 10197 | (syntax->datum |
43353663 AW |
10198 | #{e\ 3543}#) |
10199 | #{val\ 3526}# | |
10200 | #{mod\ 3532}#)) | |
10201 | #{tmp\ 3539}#) | |
417ee098 AW |
10202 | (syntax-violation |
10203 | #f | |
10204 | "source expression failed to match any pattern" | |
43353663 AW |
10205 | #{tmp\ 3538}#)))))))) |
10206 | (#{build-application\ 306}# | |
10207 | #{s\ 3466}# | |
10208 | (#{chi\ 460}# | |
417ee098 AW |
10209 | (list '#(syntax-object |
10210 | setter | |
10211 | ((top) | |
10212 | #(ribcage () () ()) | |
10213 | #(ribcage () () ()) | |
10214 | #(ribcage | |
10215 | #(type | |
10216 | value | |
10217 | ee | |
10218 | ww | |
10219 | ss | |
10220 | modmod) | |
10221 | #((top) | |
10222 | (top) | |
10223 | (top) | |
10224 | (top) | |
10225 | (top) | |
10226 | (top)) | |
43353663 AW |
10227 | #("i3518" |
10228 | "i3519" | |
10229 | "i3520" | |
10230 | "i3521" | |
10231 | "i3522" | |
10232 | "i3523")) | |
417ee098 | 10233 | #(ribcage |
b78d91d5 AW |
10234 | #(head tail val) |
10235 | #((top) (top) (top)) | |
43353663 | 10236 | #("i3504" "i3505" "i3506")) |
417ee098 AW |
10237 | #(ribcage () () ()) |
10238 | #(ribcage | |
10239 | #(e r w s mod) | |
10240 | #((top) | |
10241 | (top) | |
10242 | (top) | |
10243 | (top) | |
10244 | (top)) | |
43353663 AW |
10245 | #("i3468" |
10246 | "i3469" | |
10247 | "i3470" | |
10248 | "i3471" | |
10249 | "i3472")) | |
417ee098 AW |
10250 | #(ribcage |
10251 | (lambda-var-list | |
10252 | gen-var | |
10253 | strip | |
10254 | chi-lambda-case | |
10255 | lambda*-formals | |
10256 | chi-simple-lambda | |
10257 | lambda-formals | |
10258 | ellipsis? | |
10259 | chi-void | |
10260 | eval-local-transformer | |
10261 | chi-local-syntax | |
10262 | chi-body | |
10263 | chi-macro | |
10264 | chi-application | |
10265 | chi-expr | |
10266 | chi | |
417ee098 AW |
10267 | syntax-type |
10268 | chi-when-list | |
10269 | chi-install-global | |
10270 | chi-top-sequence | |
10271 | chi-sequence | |
10272 | source-wrap | |
10273 | wrap | |
10274 | bound-id-member? | |
10275 | distinct-bound-ids? | |
10276 | valid-bound-ids? | |
10277 | bound-id=? | |
10278 | free-id=? | |
10279 | id-var-name | |
10280 | same-marks? | |
10281 | join-marks | |
10282 | join-wraps | |
10283 | smart-append | |
10284 | make-binding-wrap | |
10285 | extend-ribcage! | |
10286 | make-empty-ribcage | |
10287 | new-mark | |
10288 | anti-mark | |
10289 | the-anti-mark | |
10290 | top-marked? | |
10291 | top-wrap | |
10292 | empty-wrap | |
10293 | set-ribcage-labels! | |
10294 | set-ribcage-marks! | |
10295 | set-ribcage-symnames! | |
10296 | ribcage-labels | |
10297 | ribcage-marks | |
10298 | ribcage-symnames | |
10299 | ribcage? | |
10300 | make-ribcage | |
10301 | gen-labels | |
10302 | gen-label | |
10303 | make-rename | |
10304 | rename-marks | |
10305 | rename-new | |
10306 | rename-old | |
10307 | subst-rename? | |
10308 | wrap-subst | |
10309 | wrap-marks | |
10310 | make-wrap | |
10311 | id-sym-name&marks | |
10312 | id-sym-name | |
10313 | id? | |
10314 | nonsymbol-id? | |
10315 | global-extend | |
10316 | lookup | |
10317 | macros-only-env | |
10318 | extend-var-env | |
10319 | extend-env | |
10320 | null-env | |
10321 | binding-value | |
10322 | binding-type | |
10323 | make-binding | |
10324 | arg-check | |
10325 | source-annotation | |
10326 | no-source | |
10327 | set-syntax-object-module! | |
10328 | set-syntax-object-wrap! | |
10329 | set-syntax-object-expression! | |
10330 | syntax-object-module | |
10331 | syntax-object-wrap | |
10332 | syntax-object-expression | |
10333 | syntax-object? | |
10334 | make-syntax-object | |
10335 | build-lexical-var | |
10336 | build-letrec | |
10337 | build-named-let | |
10338 | build-let | |
10339 | build-sequence | |
10340 | build-data | |
10341 | build-primref | |
10342 | build-lambda-case | |
10343 | build-case-lambda | |
10344 | build-simple-lambda | |
10345 | build-global-definition | |
417ee098 AW |
10346 | build-global-assignment |
10347 | build-global-reference | |
10348 | analyze-variable | |
10349 | build-lexical-assignment | |
10350 | build-lexical-reference | |
10351 | build-dynlet | |
10352 | build-conditional | |
10353 | build-application | |
10354 | build-void | |
37620f3f | 10355 | maybe-name-value! |
417ee098 AW |
10356 | decorate-source |
10357 | get-global-definition-hook | |
10358 | put-global-definition-hook | |
10359 | gensym-hook | |
10360 | local-eval-hook | |
10361 | top-level-eval-hook | |
10362 | fx< | |
10363 | fx= | |
10364 | fx- | |
10365 | fx+ | |
10366 | set-lambda-meta! | |
10367 | lambda-meta | |
10368 | lambda? | |
10369 | make-dynlet | |
10370 | make-letrec | |
10371 | make-let | |
10372 | make-lambda-case | |
10373 | make-lambda | |
10374 | make-sequence | |
10375 | make-application | |
10376 | make-conditional | |
10377 | make-toplevel-define | |
10378 | make-toplevel-set | |
10379 | make-toplevel-ref | |
10380 | make-module-set | |
10381 | make-module-ref | |
10382 | make-lexical-set | |
10383 | make-lexical-ref | |
10384 | make-primitive-ref | |
10385 | make-const | |
10386 | make-void) | |
10387 | ((top) | |
10388 | (top) | |
10389 | (top) | |
10390 | (top) | |
10391 | (top) | |
10392 | (top) | |
10393 | (top) | |
10394 | (top) | |
10395 | (top) | |
10396 | (top) | |
10397 | (top) | |
10398 | (top) | |
10399 | (top) | |
10400 | (top) | |
10401 | (top) | |
10402 | (top) | |
10403 | (top) | |
10404 | (top) | |
10405 | (top) | |
10406 | (top) | |
10407 | (top) | |
10408 | (top) | |
10409 | (top) | |
10410 | (top) | |
10411 | (top) | |
10412 | (top) | |
10413 | (top) | |
10414 | (top) | |
10415 | (top) | |
10416 | (top) | |
10417 | (top) | |
10418 | (top) | |
10419 | (top) | |
10420 | (top) | |
10421 | (top) | |
10422 | (top) | |
10423 | (top) | |
10424 | (top) | |
10425 | (top) | |
10426 | (top) | |
10427 | (top) | |
10428 | (top) | |
10429 | (top) | |
10430 | (top) | |
10431 | (top) | |
10432 | (top) | |
10433 | (top) | |
10434 | (top) | |
10435 | (top) | |
10436 | (top) | |
10437 | (top) | |
10438 | (top) | |
10439 | (top) | |
10440 | (top) | |
10441 | (top) | |
10442 | (top) | |
10443 | (top) | |
10444 | (top) | |
10445 | (top) | |
10446 | (top) | |
10447 | (top) | |
10448 | (top) | |
10449 | (top) | |
10450 | (top) | |
10451 | (top) | |
10452 | (top) | |
10453 | (top) | |
10454 | (top) | |
10455 | (top) | |
10456 | (top) | |
10457 | (top) | |
10458 | (top) | |
10459 | (top) | |
10460 | (top) | |
10461 | (top) | |
10462 | (top) | |
10463 | (top) | |
10464 | (top) | |
10465 | (top) | |
10466 | (top) | |
10467 | (top) | |
10468 | (top) | |
10469 | (top) | |
10470 | (top) | |
10471 | (top) | |
10472 | (top) | |
10473 | (top) | |
10474 | (top) | |
10475 | (top) | |
10476 | (top) | |
10477 | (top) | |
10478 | (top) | |
10479 | (top) | |
10480 | (top) | |
10481 | (top) | |
10482 | (top) | |
10483 | (top) | |
10484 | (top) | |
10485 | (top) | |
10486 | (top) | |
10487 | (top) | |
10488 | (top) | |
10489 | (top) | |
10490 | (top) | |
10491 | (top) | |
10492 | (top) | |
10493 | (top) | |
10494 | (top) | |
10495 | (top) | |
10496 | (top) | |
10497 | (top) | |
10498 | (top) | |
10499 | (top) | |
10500 | (top) | |
10501 | (top) | |
10502 | (top) | |
10503 | (top) | |
10504 | (top) | |
10505 | (top) | |
10506 | (top) | |
10507 | (top) | |
10508 | (top) | |
10509 | (top) | |
10510 | (top) | |
10511 | (top) | |
10512 | (top) | |
10513 | (top) | |
10514 | (top) | |
10515 | (top) | |
10516 | (top) | |
10517 | (top) | |
10518 | (top) | |
10519 | (top) | |
10520 | (top) | |
10521 | (top) | |
417ee098 | 10522 | (top)) |
43353663 AW |
10523 | ("i489" |
10524 | "i487" | |
10525 | "i485" | |
10526 | "i483" | |
10527 | "i481" | |
10528 | "i479" | |
10529 | "i477" | |
10530 | "i475" | |
10531 | "i473" | |
10532 | "i471" | |
10533 | "i469" | |
10534 | "i467" | |
10535 | "i465" | |
10536 | "i463" | |
10537 | "i461" | |
10538 | "i459" | |
10539 | "i457" | |
10540 | "i455" | |
10541 | "i453" | |
10542 | "i451" | |
10543 | "i449" | |
10544 | "i447" | |
10545 | "i445" | |
10546 | "i443" | |
10547 | "i441" | |
10548 | "i439" | |
10549 | "i437" | |
10550 | "i435" | |
10551 | "i433" | |
10552 | "i431" | |
10553 | "i429" | |
10554 | "i427" | |
10555 | "i425" | |
10556 | "i423" | |
10557 | "i421" | |
8f1870f2 | 10558 | "i420" |
b78d91d5 | 10559 | "i419" |
43353663 | 10560 | "i417" |
8f1870f2 | 10561 | "i416" |
381ccb0b | 10562 | "i415" |
d8e4f9e5 | 10563 | "i414" |
381ccb0b | 10564 | "i413" |
43353663 AW |
10565 | "i411" |
10566 | "i409" | |
10567 | "i407" | |
10568 | "i405" | |
10569 | "i403" | |
10570 | "i401" | |
10571 | "i399" | |
10572 | "i397" | |
10573 | "i394" | |
10574 | "i392" | |
8f1870f2 | 10575 | "i391" |
77b79cce | 10576 | "i390" |
381ccb0b | 10577 | "i389" |
d8e4f9e5 | 10578 | "i388" |
381ccb0b | 10579 | "i387" |
d8e4f9e5 | 10580 | "i386" |
381ccb0b | 10581 | "i385" |
d8e4f9e5 | 10582 | "i384" |
43353663 | 10583 | "i382" |
8f1870f2 | 10584 | "i381" |
43353663 AW |
10585 | "i379" |
10586 | "i377" | |
10587 | "i375" | |
10588 | "i373" | |
10589 | "i371" | |
10590 | "i369" | |
10591 | "i367" | |
8f1870f2 | 10592 | "i366" |
381ccb0b | 10593 | "i365" |
d8e4f9e5 | 10594 | "i364" |
381ccb0b | 10595 | "i363" |
d8e4f9e5 | 10596 | "i362" |
43353663 | 10597 | "i360" |
8f1870f2 | 10598 | "i359" |
43353663 AW |
10599 | "i357" |
10600 | "i355" | |
10601 | "i353" | |
10602 | "i351" | |
10603 | "i349" | |
10604 | "i347" | |
10605 | "i345" | |
10606 | "i343" | |
10607 | "i341" | |
10608 | "i339" | |
10609 | "i337" | |
10610 | "i335" | |
10611 | "i333" | |
10612 | "i331" | |
10613 | "i329" | |
10614 | "i327" | |
10615 | "i325" | |
10616 | "i323" | |
10617 | "i321" | |
10618 | "i319" | |
10619 | "i317" | |
10620 | "i315" | |
10621 | "i313" | |
10622 | "i311" | |
10623 | "i309" | |
10624 | "i307" | |
10625 | "i305" | |
10626 | "i303" | |
10627 | "i301" | |
10628 | "i299" | |
10629 | "i297" | |
10630 | "i295" | |
8f1870f2 | 10631 | "i294" |
43353663 AW |
10632 | "i292" |
10633 | "i290" | |
10634 | "i288" | |
10635 | "i286" | |
10636 | "i284" | |
10637 | "i282" | |
10638 | "i280" | |
10639 | "i278" | |
10640 | "i276" | |
10641 | "i273" | |
10642 | "i271" | |
10643 | "i269" | |
10644 | "i267" | |
10645 | "i265" | |
10646 | "i263" | |
10647 | "i261" | |
10648 | "i259" | |
10649 | "i257" | |
10650 | "i255" | |
10651 | "i253" | |
10652 | "i251" | |
10653 | "i249" | |
10654 | "i247" | |
10655 | "i245" | |
10656 | "i243" | |
10657 | "i241" | |
10658 | "i239")) | |
417ee098 AW |
10659 | #(ribcage |
10660 | (define-structure | |
10661 | define-expansion-accessors | |
10662 | define-expansion-constructors | |
10663 | and-map*) | |
10664 | ((top) (top) (top) (top)) | |
43353663 | 10665 | ("i41" "i40" "i39" "i37"))) |
417ee098 | 10666 | (hygiene guile)) |
43353663 AW |
10667 | #{head\ 3507}#) |
10668 | #{r\ 3464}# | |
10669 | #{w\ 3465}# | |
10670 | #{mod\ 3467}#) | |
10671 | (map (lambda (#{e\ 3545}#) | |
10672 | (#{chi\ 460}# | |
10673 | #{e\ 3545}# | |
10674 | #{r\ 3464}# | |
10675 | #{w\ 3465}# | |
10676 | #{mod\ 3467}#)) | |
417ee098 | 10677 | (append |
43353663 AW |
10678 | #{tail\ 3508}# |
10679 | (list #{val\ 3509}#)))))))) | |
10680 | #{tmp\ 3503}#) | |
10681 | (let ((#{_\ 3549}# #{tmp\ 3473}#)) | |
417ee098 AW |
10682 | (syntax-violation |
10683 | 'set! | |
10684 | "bad set!" | |
43353663 AW |
10685 | (#{source-wrap\ 448}# |
10686 | #{e\ 3463}# | |
10687 | #{w\ 3465}# | |
10688 | #{s\ 3466}# | |
10689 | #{mod\ 3467}#)))))))))) | |
10690 | (#{global-extend\ 376}# | |
417ee098 AW |
10691 | 'module-ref |
10692 | '@ | |
43353663 AW |
10693 | (lambda (#{e\ 3550}# #{r\ 3551}# #{w\ 3552}#) |
10694 | (let ((#{tmp\ 3556}# #{e\ 3550}#)) | |
10695 | (let ((#{tmp\ 3557}# | |
10696 | ($sc-dispatch #{tmp\ 3556}# '(_ each-any any)))) | |
10697 | (if (if #{tmp\ 3557}# | |
417ee098 | 10698 | (@apply |
43353663 AW |
10699 | (lambda (#{mod\ 3560}# #{id\ 3561}#) |
10700 | (if (and-map #{id?\ 380}# #{mod\ 3560}#) | |
10701 | (#{id?\ 380}# #{id\ 3561}#) | |
417ee098 | 10702 | #f)) |
43353663 | 10703 | #{tmp\ 3557}#) |
417ee098 AW |
10704 | #f) |
10705 | (@apply | |
43353663 | 10706 | (lambda (#{mod\ 3567}# #{id\ 3568}#) |
417ee098 | 10707 | (values |
43353663 AW |
10708 | (syntax->datum #{id\ 3568}#) |
10709 | #{r\ 3551}# | |
10710 | #{w\ 3552}# | |
417ee098 AW |
10711 | #f |
10712 | (syntax->datum | |
10713 | (cons '#(syntax-object | |
10714 | public | |
10715 | ((top) | |
10716 | #(ribcage | |
b78d91d5 AW |
10717 | #(mod id) |
10718 | #((top) (top)) | |
43353663 | 10719 | #("i3565" "i3566")) |
417ee098 AW |
10720 | #(ribcage () () ()) |
10721 | #(ribcage | |
10722 | #(e r w) | |
10723 | #((top) (top) (top)) | |
43353663 | 10724 | #("i3553" "i3554" "i3555")) |
417ee098 AW |
10725 | #(ribcage |
10726 | (lambda-var-list | |
10727 | gen-var | |
10728 | strip | |
10729 | chi-lambda-case | |
10730 | lambda*-formals | |
10731 | chi-simple-lambda | |
10732 | lambda-formals | |
10733 | ellipsis? | |
10734 | chi-void | |
10735 | eval-local-transformer | |
10736 | chi-local-syntax | |
10737 | chi-body | |
10738 | chi-macro | |
10739 | chi-application | |
10740 | chi-expr | |
10741 | chi | |
417ee098 AW |
10742 | syntax-type |
10743 | chi-when-list | |
10744 | chi-install-global | |
10745 | chi-top-sequence | |
10746 | chi-sequence | |
10747 | source-wrap | |
10748 | wrap | |
10749 | bound-id-member? | |
10750 | distinct-bound-ids? | |
10751 | valid-bound-ids? | |
10752 | bound-id=? | |
10753 | free-id=? | |
10754 | id-var-name | |
10755 | same-marks? | |
10756 | join-marks | |
10757 | join-wraps | |
10758 | smart-append | |
10759 | make-binding-wrap | |
10760 | extend-ribcage! | |
10761 | make-empty-ribcage | |
10762 | new-mark | |
10763 | anti-mark | |
10764 | the-anti-mark | |
10765 | top-marked? | |
10766 | top-wrap | |
10767 | empty-wrap | |
10768 | set-ribcage-labels! | |
10769 | set-ribcage-marks! | |
10770 | set-ribcage-symnames! | |
10771 | ribcage-labels | |
10772 | ribcage-marks | |
10773 | ribcage-symnames | |
10774 | ribcage? | |
10775 | make-ribcage | |
10776 | gen-labels | |
10777 | gen-label | |
10778 | make-rename | |
10779 | rename-marks | |
10780 | rename-new | |
10781 | rename-old | |
10782 | subst-rename? | |
10783 | wrap-subst | |
10784 | wrap-marks | |
10785 | make-wrap | |
10786 | id-sym-name&marks | |
10787 | id-sym-name | |
10788 | id? | |
10789 | nonsymbol-id? | |
10790 | global-extend | |
10791 | lookup | |
10792 | macros-only-env | |
10793 | extend-var-env | |
10794 | extend-env | |
10795 | null-env | |
10796 | binding-value | |
10797 | binding-type | |
10798 | make-binding | |
10799 | arg-check | |
10800 | source-annotation | |
10801 | no-source | |
10802 | set-syntax-object-module! | |
10803 | set-syntax-object-wrap! | |
10804 | set-syntax-object-expression! | |
10805 | syntax-object-module | |
10806 | syntax-object-wrap | |
10807 | syntax-object-expression | |
10808 | syntax-object? | |
10809 | make-syntax-object | |
10810 | build-lexical-var | |
10811 | build-letrec | |
10812 | build-named-let | |
10813 | build-let | |
10814 | build-sequence | |
10815 | build-data | |
10816 | build-primref | |
10817 | build-lambda-case | |
10818 | build-case-lambda | |
10819 | build-simple-lambda | |
10820 | build-global-definition | |
417ee098 AW |
10821 | build-global-assignment |
10822 | build-global-reference | |
10823 | analyze-variable | |
10824 | build-lexical-assignment | |
10825 | build-lexical-reference | |
10826 | build-dynlet | |
10827 | build-conditional | |
10828 | build-application | |
10829 | build-void | |
37620f3f | 10830 | maybe-name-value! |
417ee098 AW |
10831 | decorate-source |
10832 | get-global-definition-hook | |
10833 | put-global-definition-hook | |
10834 | gensym-hook | |
10835 | local-eval-hook | |
10836 | top-level-eval-hook | |
10837 | fx< | |
10838 | fx= | |
10839 | fx- | |
10840 | fx+ | |
10841 | set-lambda-meta! | |
10842 | lambda-meta | |
10843 | lambda? | |
10844 | make-dynlet | |
10845 | make-letrec | |
10846 | make-let | |
10847 | make-lambda-case | |
10848 | make-lambda | |
10849 | make-sequence | |
10850 | make-application | |
10851 | make-conditional | |
10852 | make-toplevel-define | |
10853 | make-toplevel-set | |
10854 | make-toplevel-ref | |
10855 | make-module-set | |
10856 | make-module-ref | |
10857 | make-lexical-set | |
10858 | make-lexical-ref | |
10859 | make-primitive-ref | |
10860 | make-const | |
10861 | make-void) | |
10862 | ((top) | |
10863 | (top) | |
10864 | (top) | |
10865 | (top) | |
10866 | (top) | |
10867 | (top) | |
10868 | (top) | |
10869 | (top) | |
10870 | (top) | |
10871 | (top) | |
10872 | (top) | |
10873 | (top) | |
10874 | (top) | |
10875 | (top) | |
10876 | (top) | |
10877 | (top) | |
10878 | (top) | |
10879 | (top) | |
10880 | (top) | |
10881 | (top) | |
10882 | (top) | |
10883 | (top) | |
10884 | (top) | |
10885 | (top) | |
10886 | (top) | |
10887 | (top) | |
10888 | (top) | |
10889 | (top) | |
10890 | (top) | |
10891 | (top) | |
10892 | (top) | |
10893 | (top) | |
10894 | (top) | |
10895 | (top) | |
10896 | (top) | |
10897 | (top) | |
10898 | (top) | |
10899 | (top) | |
10900 | (top) | |
10901 | (top) | |
10902 | (top) | |
10903 | (top) | |
10904 | (top) | |
10905 | (top) | |
10906 | (top) | |
10907 | (top) | |
10908 | (top) | |
10909 | (top) | |
10910 | (top) | |
10911 | (top) | |
10912 | (top) | |
10913 | (top) | |
10914 | (top) | |
10915 | (top) | |
10916 | (top) | |
10917 | (top) | |
10918 | (top) | |
10919 | (top) | |
10920 | (top) | |
10921 | (top) | |
10922 | (top) | |
10923 | (top) | |
10924 | (top) | |
10925 | (top) | |
10926 | (top) | |
10927 | (top) | |
10928 | (top) | |
10929 | (top) | |
10930 | (top) | |
10931 | (top) | |
10932 | (top) | |
10933 | (top) | |
10934 | (top) | |
10935 | (top) | |
10936 | (top) | |
10937 | (top) | |
10938 | (top) | |
10939 | (top) | |
10940 | (top) | |
10941 | (top) | |
10942 | (top) | |
10943 | (top) | |
10944 | (top) | |
10945 | (top) | |
10946 | (top) | |
10947 | (top) | |
10948 | (top) | |
10949 | (top) | |
10950 | (top) | |
10951 | (top) | |
10952 | (top) | |
10953 | (top) | |
10954 | (top) | |
10955 | (top) | |
10956 | (top) | |
10957 | (top) | |
10958 | (top) | |
10959 | (top) | |
10960 | (top) | |
10961 | (top) | |
10962 | (top) | |
10963 | (top) | |
10964 | (top) | |
10965 | (top) | |
10966 | (top) | |
10967 | (top) | |
10968 | (top) | |
10969 | (top) | |
10970 | (top) | |
10971 | (top) | |
10972 | (top) | |
10973 | (top) | |
10974 | (top) | |
10975 | (top) | |
10976 | (top) | |
10977 | (top) | |
10978 | (top) | |
10979 | (top) | |
10980 | (top) | |
10981 | (top) | |
10982 | (top) | |
10983 | (top) | |
10984 | (top) | |
10985 | (top) | |
10986 | (top) | |
10987 | (top) | |
10988 | (top) | |
10989 | (top) | |
10990 | (top) | |
10991 | (top) | |
10992 | (top) | |
10993 | (top) | |
10994 | (top) | |
10995 | (top) | |
10996 | (top) | |
417ee098 | 10997 | (top)) |
43353663 AW |
10998 | ("i489" |
10999 | "i487" | |
11000 | "i485" | |
11001 | "i483" | |
11002 | "i481" | |
11003 | "i479" | |
11004 | "i477" | |
11005 | "i475" | |
11006 | "i473" | |
11007 | "i471" | |
11008 | "i469" | |
11009 | "i467" | |
11010 | "i465" | |
11011 | "i463" | |
11012 | "i461" | |
11013 | "i459" | |
11014 | "i457" | |
11015 | "i455" | |
11016 | "i453" | |
11017 | "i451" | |
11018 | "i449" | |
11019 | "i447" | |
11020 | "i445" | |
11021 | "i443" | |
11022 | "i441" | |
11023 | "i439" | |
11024 | "i437" | |
11025 | "i435" | |
11026 | "i433" | |
11027 | "i431" | |
11028 | "i429" | |
11029 | "i427" | |
11030 | "i425" | |
11031 | "i423" | |
11032 | "i421" | |
8f1870f2 | 11033 | "i420" |
b78d91d5 | 11034 | "i419" |
43353663 | 11035 | "i417" |
8f1870f2 | 11036 | "i416" |
381ccb0b | 11037 | "i415" |
d8e4f9e5 | 11038 | "i414" |
381ccb0b | 11039 | "i413" |
43353663 AW |
11040 | "i411" |
11041 | "i409" | |
11042 | "i407" | |
11043 | "i405" | |
11044 | "i403" | |
11045 | "i401" | |
11046 | "i399" | |
11047 | "i397" | |
11048 | "i394" | |
11049 | "i392" | |
8f1870f2 | 11050 | "i391" |
77b79cce | 11051 | "i390" |
381ccb0b | 11052 | "i389" |
d8e4f9e5 | 11053 | "i388" |
381ccb0b | 11054 | "i387" |
d8e4f9e5 | 11055 | "i386" |
381ccb0b | 11056 | "i385" |
d8e4f9e5 | 11057 | "i384" |
43353663 | 11058 | "i382" |
8f1870f2 | 11059 | "i381" |
43353663 AW |
11060 | "i379" |
11061 | "i377" | |
11062 | "i375" | |
11063 | "i373" | |
11064 | "i371" | |
11065 | "i369" | |
11066 | "i367" | |
8f1870f2 | 11067 | "i366" |
381ccb0b | 11068 | "i365" |
d8e4f9e5 | 11069 | "i364" |
381ccb0b | 11070 | "i363" |
d8e4f9e5 | 11071 | "i362" |
43353663 | 11072 | "i360" |
8f1870f2 | 11073 | "i359" |
43353663 AW |
11074 | "i357" |
11075 | "i355" | |
11076 | "i353" | |
11077 | "i351" | |
11078 | "i349" | |
11079 | "i347" | |
11080 | "i345" | |
11081 | "i343" | |
11082 | "i341" | |
11083 | "i339" | |
11084 | "i337" | |
11085 | "i335" | |
11086 | "i333" | |
11087 | "i331" | |
11088 | "i329" | |
11089 | "i327" | |
11090 | "i325" | |
11091 | "i323" | |
11092 | "i321" | |
11093 | "i319" | |
11094 | "i317" | |
11095 | "i315" | |
11096 | "i313" | |
11097 | "i311" | |
11098 | "i309" | |
11099 | "i307" | |
11100 | "i305" | |
11101 | "i303" | |
11102 | "i301" | |
11103 | "i299" | |
11104 | "i297" | |
11105 | "i295" | |
8f1870f2 | 11106 | "i294" |
43353663 AW |
11107 | "i292" |
11108 | "i290" | |
11109 | "i288" | |
11110 | "i286" | |
11111 | "i284" | |
11112 | "i282" | |
11113 | "i280" | |
11114 | "i278" | |
11115 | "i276" | |
11116 | "i273" | |
11117 | "i271" | |
11118 | "i269" | |
11119 | "i267" | |
11120 | "i265" | |
11121 | "i263" | |
11122 | "i261" | |
11123 | "i259" | |
11124 | "i257" | |
11125 | "i255" | |
11126 | "i253" | |
11127 | "i251" | |
11128 | "i249" | |
11129 | "i247" | |
11130 | "i245" | |
11131 | "i243" | |
11132 | "i241" | |
11133 | "i239")) | |
417ee098 AW |
11134 | #(ribcage |
11135 | (define-structure | |
11136 | define-expansion-accessors | |
11137 | define-expansion-constructors | |
11138 | and-map*) | |
11139 | ((top) (top) (top) (top)) | |
43353663 | 11140 | ("i41" "i40" "i39" "i37"))) |
417ee098 | 11141 | (hygiene guile)) |
43353663 AW |
11142 | #{mod\ 3567}#)))) |
11143 | #{tmp\ 3557}#) | |
417ee098 AW |
11144 | (syntax-violation |
11145 | #f | |
11146 | "source expression failed to match any pattern" | |
43353663 AW |
11147 | #{tmp\ 3556}#)))))) |
11148 | (#{global-extend\ 376}# | |
417ee098 AW |
11149 | 'module-ref |
11150 | '@@ | |
43353663 | 11151 | (lambda (#{e\ 3570}# #{r\ 3571}# #{w\ 3572}#) |
417ee098 | 11152 | (letrec* |
43353663 AW |
11153 | ((#{remodulate\ 3577}# |
11154 | (lambda (#{x\ 3578}# #{mod\ 3579}#) | |
11155 | (if (pair? #{x\ 3578}#) | |
11156 | (cons (#{remodulate\ 3577}# | |
11157 | (car #{x\ 3578}#) | |
11158 | #{mod\ 3579}#) | |
11159 | (#{remodulate\ 3577}# | |
11160 | (cdr #{x\ 3578}#) | |
11161 | #{mod\ 3579}#)) | |
11162 | (if (#{syntax-object?\ 346}# #{x\ 3578}#) | |
11163 | (#{make-syntax-object\ 344}# | |
11164 | (#{remodulate\ 3577}# | |
11165 | (#{syntax-object-expression\ 348}# #{x\ 3578}#) | |
11166 | #{mod\ 3579}#) | |
11167 | (#{syntax-object-wrap\ 350}# #{x\ 3578}#) | |
11168 | #{mod\ 3579}#) | |
11169 | (if (vector? #{x\ 3578}#) | |
417ee098 | 11170 | (begin |
43353663 | 11171 | (let ((#{n\ 3590}# (vector-length #{x\ 3578}#))) |
417ee098 | 11172 | (begin |
43353663 AW |
11173 | (let ((#{v\ 3592}# |
11174 | (make-vector #{n\ 3590}#))) | |
417ee098 | 11175 | (letrec* |
43353663 AW |
11176 | ((#{loop\ 3595}# |
11177 | (lambda (#{i\ 3596}#) | |
11178 | (if (#{fx=\ 287}# | |
11179 | #{i\ 3596}# | |
11180 | #{n\ 3590}#) | |
11181 | (begin (if #f #f) #{v\ 3592}#) | |
417ee098 AW |
11182 | (begin |
11183 | (vector-set! | |
43353663 AW |
11184 | #{v\ 3592}# |
11185 | #{i\ 3596}# | |
11186 | (#{remodulate\ 3577}# | |
417ee098 | 11187 | (vector-ref |
43353663 AW |
11188 | #{x\ 3578}# |
11189 | #{i\ 3596}#) | |
11190 | #{mod\ 3579}#)) | |
11191 | (#{loop\ 3595}# | |
11192 | (#{fx+\ 283}# | |
11193 | #{i\ 3596}# | |
417ee098 | 11194 | 1))))))) |
43353663 AW |
11195 | (begin (#{loop\ 3595}# 0))))))) |
11196 | #{x\ 3578}#)))))) | |
417ee098 | 11197 | (begin |
43353663 AW |
11198 | (let ((#{tmp\ 3600}# #{e\ 3570}#)) |
11199 | (let ((#{tmp\ 3601}# | |
11200 | ($sc-dispatch #{tmp\ 3600}# '(_ each-any any)))) | |
11201 | (if (if #{tmp\ 3601}# | |
417ee098 | 11202 | (@apply |
43353663 AW |
11203 | (lambda (#{mod\ 3604}# #{exp\ 3605}#) |
11204 | (and-map #{id?\ 380}# #{mod\ 3604}#)) | |
11205 | #{tmp\ 3601}#) | |
417ee098 AW |
11206 | #f) |
11207 | (@apply | |
43353663 | 11208 | (lambda (#{mod\ 3609}# #{exp\ 3610}#) |
417ee098 | 11209 | (begin |
43353663 | 11210 | (let ((#{mod\ 3612}# |
417ee098 | 11211 | (syntax->datum |
0f2b9f62 | 11212 | (cons '#(syntax-object |
417ee098 | 11213 | private |
0f2b9f62 AW |
11214 | ((top) |
11215 | #(ribcage | |
b78d91d5 AW |
11216 | #(mod exp) |
11217 | #((top) (top)) | |
43353663 | 11218 | #("i3607" "i3608")) |
0f2b9f62 | 11219 | #(ribcage |
417ee098 AW |
11220 | (remodulate) |
11221 | ((top)) | |
43353663 | 11222 | ("i3576")) |
0f2b9f62 | 11223 | #(ribcage |
417ee098 AW |
11224 | #(e r w) |
11225 | #((top) (top) (top)) | |
43353663 AW |
11226 | #("i3573" |
11227 | "i3574" | |
11228 | "i3575")) | |
0f2b9f62 AW |
11229 | #(ribcage |
11230 | (lambda-var-list | |
11231 | gen-var | |
11232 | strip | |
11233 | chi-lambda-case | |
11234 | lambda*-formals | |
11235 | chi-simple-lambda | |
11236 | lambda-formals | |
11237 | ellipsis? | |
11238 | chi-void | |
11239 | eval-local-transformer | |
11240 | chi-local-syntax | |
11241 | chi-body | |
11242 | chi-macro | |
11243 | chi-application | |
11244 | chi-expr | |
11245 | chi | |
0f2b9f62 AW |
11246 | syntax-type |
11247 | chi-when-list | |
11248 | chi-install-global | |
11249 | chi-top-sequence | |
11250 | chi-sequence | |
11251 | source-wrap | |
11252 | wrap | |
11253 | bound-id-member? | |
11254 | distinct-bound-ids? | |
11255 | valid-bound-ids? | |
11256 | bound-id=? | |
11257 | free-id=? | |
11258 | id-var-name | |
11259 | same-marks? | |
11260 | join-marks | |
11261 | join-wraps | |
11262 | smart-append | |
11263 | make-binding-wrap | |
11264 | extend-ribcage! | |
11265 | make-empty-ribcage | |
11266 | new-mark | |
11267 | anti-mark | |
11268 | the-anti-mark | |
11269 | top-marked? | |
11270 | top-wrap | |
11271 | empty-wrap | |
11272 | set-ribcage-labels! | |
11273 | set-ribcage-marks! | |
11274 | set-ribcage-symnames! | |
11275 | ribcage-labels | |
11276 | ribcage-marks | |
11277 | ribcage-symnames | |
11278 | ribcage? | |
11279 | make-ribcage | |
11280 | gen-labels | |
11281 | gen-label | |
11282 | make-rename | |
11283 | rename-marks | |
11284 | rename-new | |
11285 | rename-old | |
11286 | subst-rename? | |
11287 | wrap-subst | |
11288 | wrap-marks | |
11289 | make-wrap | |
11290 | id-sym-name&marks | |
11291 | id-sym-name | |
11292 | id? | |
11293 | nonsymbol-id? | |
11294 | global-extend | |
11295 | lookup | |
11296 | macros-only-env | |
11297 | extend-var-env | |
11298 | extend-env | |
11299 | null-env | |
11300 | binding-value | |
11301 | binding-type | |
11302 | make-binding | |
11303 | arg-check | |
11304 | source-annotation | |
11305 | no-source | |
11306 | set-syntax-object-module! | |
11307 | set-syntax-object-wrap! | |
11308 | set-syntax-object-expression! | |
11309 | syntax-object-module | |
11310 | syntax-object-wrap | |
11311 | syntax-object-expression | |
11312 | syntax-object? | |
11313 | make-syntax-object | |
11314 | build-lexical-var | |
11315 | build-letrec | |
11316 | build-named-let | |
11317 | build-let | |
11318 | build-sequence | |
11319 | build-data | |
11320 | build-primref | |
11321 | build-lambda-case | |
11322 | build-case-lambda | |
11323 | build-simple-lambda | |
11324 | build-global-definition | |
0f2b9f62 AW |
11325 | build-global-assignment |
11326 | build-global-reference | |
11327 | analyze-variable | |
11328 | build-lexical-assignment | |
11329 | build-lexical-reference | |
11330 | build-dynlet | |
11331 | build-conditional | |
11332 | build-application | |
11333 | build-void | |
37620f3f | 11334 | maybe-name-value! |
0f2b9f62 AW |
11335 | decorate-source |
11336 | get-global-definition-hook | |
11337 | put-global-definition-hook | |
11338 | gensym-hook | |
11339 | local-eval-hook | |
11340 | top-level-eval-hook | |
11341 | fx< | |
11342 | fx= | |
11343 | fx- | |
11344 | fx+ | |
11345 | set-lambda-meta! | |
11346 | lambda-meta | |
11347 | lambda? | |
11348 | make-dynlet | |
11349 | make-letrec | |
11350 | make-let | |
11351 | make-lambda-case | |
11352 | make-lambda | |
11353 | make-sequence | |
11354 | make-application | |
11355 | make-conditional | |
11356 | make-toplevel-define | |
11357 | make-toplevel-set | |
11358 | make-toplevel-ref | |
11359 | make-module-set | |
11360 | make-module-ref | |
11361 | make-lexical-set | |
11362 | make-lexical-ref | |
11363 | make-primitive-ref | |
11364 | make-const | |
11365 | make-void) | |
11366 | ((top) | |
11367 | (top) | |
11368 | (top) | |
11369 | (top) | |
11370 | (top) | |
11371 | (top) | |
11372 | (top) | |
11373 | (top) | |
11374 | (top) | |
11375 | (top) | |
11376 | (top) | |
11377 | (top) | |
11378 | (top) | |
11379 | (top) | |
11380 | (top) | |
11381 | (top) | |
11382 | (top) | |
11383 | (top) | |
11384 | (top) | |
11385 | (top) | |
11386 | (top) | |
11387 | (top) | |
11388 | (top) | |
11389 | (top) | |
11390 | (top) | |
11391 | (top) | |
11392 | (top) | |
11393 | (top) | |
11394 | (top) | |
11395 | (top) | |
11396 | (top) | |
11397 | (top) | |
11398 | (top) | |
11399 | (top) | |
11400 | (top) | |
11401 | (top) | |
11402 | (top) | |
11403 | (top) | |
11404 | (top) | |
11405 | (top) | |
11406 | (top) | |
11407 | (top) | |
11408 | (top) | |
11409 | (top) | |
11410 | (top) | |
11411 | (top) | |
11412 | (top) | |
11413 | (top) | |
11414 | (top) | |
11415 | (top) | |
11416 | (top) | |
11417 | (top) | |
11418 | (top) | |
11419 | (top) | |
11420 | (top) | |
11421 | (top) | |
11422 | (top) | |
11423 | (top) | |
11424 | (top) | |
11425 | (top) | |
11426 | (top) | |
11427 | (top) | |
11428 | (top) | |
11429 | (top) | |
11430 | (top) | |
11431 | (top) | |
11432 | (top) | |
11433 | (top) | |
11434 | (top) | |
11435 | (top) | |
11436 | (top) | |
11437 | (top) | |
11438 | (top) | |
11439 | (top) | |
11440 | (top) | |
11441 | (top) | |
11442 | (top) | |
11443 | (top) | |
11444 | (top) | |
11445 | (top) | |
11446 | (top) | |
11447 | (top) | |
11448 | (top) | |
11449 | (top) | |
11450 | (top) | |
11451 | (top) | |
11452 | (top) | |
11453 | (top) | |
11454 | (top) | |
11455 | (top) | |
11456 | (top) | |
11457 | (top) | |
11458 | (top) | |
11459 | (top) | |
11460 | (top) | |
11461 | (top) | |
11462 | (top) | |
11463 | (top) | |
11464 | (top) | |
11465 | (top) | |
11466 | (top) | |
11467 | (top) | |
11468 | (top) | |
11469 | (top) | |
11470 | (top) | |
11471 | (top) | |
11472 | (top) | |
11473 | (top) | |
11474 | (top) | |
11475 | (top) | |
11476 | (top) | |
11477 | (top) | |
11478 | (top) | |
11479 | (top) | |
11480 | (top) | |
11481 | (top) | |
11482 | (top) | |
11483 | (top) | |
11484 | (top) | |
11485 | (top) | |
11486 | (top) | |
11487 | (top) | |
11488 | (top) | |
11489 | (top) | |
11490 | (top) | |
11491 | (top) | |
11492 | (top) | |
11493 | (top) | |
11494 | (top) | |
11495 | (top) | |
11496 | (top) | |
11497 | (top) | |
11498 | (top) | |
11499 | (top) | |
11500 | (top) | |
0f2b9f62 | 11501 | (top)) |
43353663 AW |
11502 | ("i489" |
11503 | "i487" | |
11504 | "i485" | |
11505 | "i483" | |
11506 | "i481" | |
11507 | "i479" | |
11508 | "i477" | |
11509 | "i475" | |
11510 | "i473" | |
11511 | "i471" | |
11512 | "i469" | |
11513 | "i467" | |
11514 | "i465" | |
11515 | "i463" | |
11516 | "i461" | |
11517 | "i459" | |
11518 | "i457" | |
11519 | "i455" | |
11520 | "i453" | |
11521 | "i451" | |
11522 | "i449" | |
11523 | "i447" | |
11524 | "i445" | |
11525 | "i443" | |
11526 | "i441" | |
11527 | "i439" | |
11528 | "i437" | |
11529 | "i435" | |
11530 | "i433" | |
11531 | "i431" | |
11532 | "i429" | |
11533 | "i427" | |
11534 | "i425" | |
11535 | "i423" | |
11536 | "i421" | |
8f1870f2 | 11537 | "i420" |
b78d91d5 | 11538 | "i419" |
43353663 | 11539 | "i417" |
8f1870f2 | 11540 | "i416" |
381ccb0b | 11541 | "i415" |
d8e4f9e5 | 11542 | "i414" |
381ccb0b | 11543 | "i413" |
43353663 AW |
11544 | "i411" |
11545 | "i409" | |
11546 | "i407" | |
11547 | "i405" | |
11548 | "i403" | |
11549 | "i401" | |
11550 | "i399" | |
11551 | "i397" | |
11552 | "i394" | |
11553 | "i392" | |
8f1870f2 | 11554 | "i391" |
77b79cce | 11555 | "i390" |
381ccb0b | 11556 | "i389" |
d8e4f9e5 | 11557 | "i388" |
381ccb0b | 11558 | "i387" |
d8e4f9e5 | 11559 | "i386" |
381ccb0b | 11560 | "i385" |
d8e4f9e5 | 11561 | "i384" |
43353663 | 11562 | "i382" |
8f1870f2 | 11563 | "i381" |
43353663 AW |
11564 | "i379" |
11565 | "i377" | |
11566 | "i375" | |
11567 | "i373" | |
11568 | "i371" | |
11569 | "i369" | |
11570 | "i367" | |
8f1870f2 | 11571 | "i366" |
381ccb0b | 11572 | "i365" |
d8e4f9e5 | 11573 | "i364" |
381ccb0b | 11574 | "i363" |
d8e4f9e5 | 11575 | "i362" |
43353663 | 11576 | "i360" |
8f1870f2 | 11577 | "i359" |
43353663 AW |
11578 | "i357" |
11579 | "i355" | |
11580 | "i353" | |
11581 | "i351" | |
11582 | "i349" | |
11583 | "i347" | |
11584 | "i345" | |
11585 | "i343" | |
11586 | "i341" | |
11587 | "i339" | |
11588 | "i337" | |
11589 | "i335" | |
11590 | "i333" | |
11591 | "i331" | |
11592 | "i329" | |
11593 | "i327" | |
11594 | "i325" | |
11595 | "i323" | |
11596 | "i321" | |
11597 | "i319" | |
11598 | "i317" | |
11599 | "i315" | |
11600 | "i313" | |
11601 | "i311" | |
11602 | "i309" | |
11603 | "i307" | |
11604 | "i305" | |
11605 | "i303" | |
11606 | "i301" | |
11607 | "i299" | |
11608 | "i297" | |
11609 | "i295" | |
8f1870f2 | 11610 | "i294" |
43353663 AW |
11611 | "i292" |
11612 | "i290" | |
11613 | "i288" | |
11614 | "i286" | |
11615 | "i284" | |
11616 | "i282" | |
11617 | "i280" | |
11618 | "i278" | |
11619 | "i276" | |
11620 | "i273" | |
11621 | "i271" | |
11622 | "i269" | |
11623 | "i267" | |
11624 | "i265" | |
11625 | "i263" | |
11626 | "i261" | |
11627 | "i259" | |
11628 | "i257" | |
11629 | "i255" | |
11630 | "i253" | |
11631 | "i251" | |
11632 | "i249" | |
11633 | "i247" | |
11634 | "i245" | |
11635 | "i243" | |
11636 | "i241" | |
11637 | "i239")) | |
0f2b9f62 AW |
11638 | #(ribcage |
11639 | (define-structure | |
11640 | define-expansion-accessors | |
11641 | define-expansion-constructors | |
11642 | and-map*) | |
11643 | ((top) (top) (top) (top)) | |
43353663 AW |
11644 | ("i41" |
11645 | "i40" | |
8f1870f2 | 11646 | "i39" |
43353663 | 11647 | "i37"))) |
0f2b9f62 | 11648 | (hygiene guile)) |
43353663 | 11649 | #{mod\ 3609}#)))) |
417ee098 | 11650 | (values |
43353663 AW |
11651 | (#{remodulate\ 3577}# |
11652 | #{exp\ 3610}# | |
11653 | #{mod\ 3612}#) | |
11654 | #{r\ 3571}# | |
11655 | #{w\ 3572}# | |
11656 | (#{source-annotation\ 361}# #{exp\ 3610}#) | |
11657 | #{mod\ 3612}#)))) | |
11658 | #{tmp\ 3601}#) | |
417ee098 AW |
11659 | (syntax-violation |
11660 | #f | |
11661 | "source expression failed to match any pattern" | |
43353663 AW |
11662 | #{tmp\ 3600}#)))))))) |
11663 | (#{global-extend\ 376}# | |
417ee098 AW |
11664 | 'core |
11665 | 'if | |
43353663 AW |
11666 | (lambda (#{e\ 3614}# |
11667 | #{r\ 3615}# | |
11668 | #{w\ 3616}# | |
11669 | #{s\ 3617}# | |
11670 | #{mod\ 3618}#) | |
11671 | (let ((#{tmp\ 3624}# #{e\ 3614}#)) | |
11672 | (let ((#{tmp\ 3625}# | |
11673 | ($sc-dispatch #{tmp\ 3624}# '(_ any any)))) | |
11674 | (if #{tmp\ 3625}# | |
417ee098 | 11675 | (@apply |
43353663 AW |
11676 | (lambda (#{test\ 3628}# #{then\ 3629}#) |
11677 | (#{build-conditional\ 308}# | |
11678 | #{s\ 3617}# | |
11679 | (#{chi\ 460}# | |
11680 | #{test\ 3628}# | |
11681 | #{r\ 3615}# | |
11682 | #{w\ 3616}# | |
11683 | #{mod\ 3618}#) | |
11684 | (#{chi\ 460}# | |
11685 | #{then\ 3629}# | |
11686 | #{r\ 3615}# | |
11687 | #{w\ 3616}# | |
11688 | #{mod\ 3618}#) | |
11689 | (#{build-void\ 304}# #f))) | |
11690 | #{tmp\ 3625}#) | |
11691 | (let ((#{tmp\ 3631}# | |
11692 | ($sc-dispatch #{tmp\ 3624}# '(_ any any any)))) | |
11693 | (if #{tmp\ 3631}# | |
417ee098 | 11694 | (@apply |
43353663 AW |
11695 | (lambda (#{test\ 3635}# |
11696 | #{then\ 3636}# | |
11697 | #{else\ 3637}#) | |
11698 | (#{build-conditional\ 308}# | |
11699 | #{s\ 3617}# | |
11700 | (#{chi\ 460}# | |
11701 | #{test\ 3635}# | |
11702 | #{r\ 3615}# | |
11703 | #{w\ 3616}# | |
11704 | #{mod\ 3618}#) | |
11705 | (#{chi\ 460}# | |
11706 | #{then\ 3636}# | |
11707 | #{r\ 3615}# | |
11708 | #{w\ 3616}# | |
11709 | #{mod\ 3618}#) | |
11710 | (#{chi\ 460}# | |
11711 | #{else\ 3637}# | |
11712 | #{r\ 3615}# | |
11713 | #{w\ 3616}# | |
11714 | #{mod\ 3618}#))) | |
11715 | #{tmp\ 3631}#) | |
417ee098 AW |
11716 | (syntax-violation |
11717 | #f | |
11718 | "source expression failed to match any pattern" | |
43353663 AW |
11719 | #{tmp\ 3624}#)))))))) |
11720 | (#{global-extend\ 376}# | |
417ee098 AW |
11721 | 'core |
11722 | 'with-fluids | |
43353663 AW |
11723 | (lambda (#{e\ 3638}# |
11724 | #{r\ 3639}# | |
11725 | #{w\ 3640}# | |
11726 | #{s\ 3641}# | |
11727 | #{mod\ 3642}#) | |
11728 | (let ((#{tmp\ 3648}# #{e\ 3638}#)) | |
11729 | (let ((#{tmp\ 3649}# | |
417ee098 | 11730 | ($sc-dispatch |
43353663 | 11731 | #{tmp\ 3648}# |
b78d91d5 | 11732 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 11733 | (if #{tmp\ 3649}# |
417ee098 | 11734 | (@apply |
43353663 AW |
11735 | (lambda (#{fluid\ 3654}# |
11736 | #{val\ 3655}# | |
11737 | #{b\ 3656}# | |
11738 | #{b*\ 3657}#) | |
11739 | (#{build-dynlet\ 310}# | |
11740 | #{s\ 3641}# | |
11741 | (map (lambda (#{x\ 3658}#) | |
11742 | (#{chi\ 460}# | |
11743 | #{x\ 3658}# | |
11744 | #{r\ 3639}# | |
11745 | #{w\ 3640}# | |
11746 | #{mod\ 3642}#)) | |
11747 | #{fluid\ 3654}#) | |
11748 | (map (lambda (#{x\ 3661}#) | |
11749 | (#{chi\ 460}# | |
11750 | #{x\ 3661}# | |
11751 | #{r\ 3639}# | |
11752 | #{w\ 3640}# | |
11753 | #{mod\ 3642}#)) | |
11754 | #{val\ 3655}#) | |
11755 | (#{chi-body\ 468}# | |
11756 | (cons #{b\ 3656}# #{b*\ 3657}#) | |
11757 | (#{source-wrap\ 448}# | |
11758 | #{e\ 3638}# | |
11759 | #{w\ 3640}# | |
11760 | #{s\ 3641}# | |
11761 | #{mod\ 3642}#) | |
11762 | #{r\ 3639}# | |
11763 | #{w\ 3640}# | |
11764 | #{mod\ 3642}#))) | |
11765 | #{tmp\ 3649}#) | |
417ee098 AW |
11766 | (syntax-violation |
11767 | #f | |
11768 | "source expression failed to match any pattern" | |
43353663 AW |
11769 | #{tmp\ 3648}#)))))) |
11770 | (#{global-extend\ 376}# 'begin 'begin '()) | |
11771 | (#{global-extend\ 376}# 'define 'define '()) | |
11772 | (#{global-extend\ 376}# | |
417ee098 AW |
11773 | 'define-syntax |
11774 | 'define-syntax | |
11775 | '()) | |
43353663 | 11776 | (#{global-extend\ 376}# |
417ee098 AW |
11777 | 'eval-when |
11778 | 'eval-when | |
11779 | '()) | |
43353663 | 11780 | (#{global-extend\ 376}# |
417ee098 AW |
11781 | 'core |
11782 | 'syntax-case | |
11783 | (letrec* | |
43353663 AW |
11784 | ((#{convert-pattern\ 3666}# |
11785 | (lambda (#{pattern\ 3673}# #{keys\ 3674}#) | |
5f8c55ce | 11786 | (letrec* |
43353663 AW |
11787 | ((#{cvt*\ 3678}# |
11788 | (lambda (#{p*\ 3681}# #{n\ 3682}# #{ids\ 3683}#) | |
11789 | (if (null? #{p*\ 3681}#) | |
11790 | (values '() #{ids\ 3683}#) | |
5f8c55ce AW |
11791 | (call-with-values |
11792 | (lambda () | |
43353663 AW |
11793 | (#{cvt*\ 3678}# |
11794 | (cdr #{p*\ 3681}#) | |
11795 | #{n\ 3682}# | |
11796 | #{ids\ 3683}#)) | |
11797 | (lambda (#{y\ 3687}# #{ids\ 3688}#) | |
5f8c55ce AW |
11798 | (call-with-values |
11799 | (lambda () | |
43353663 AW |
11800 | (#{cvt\ 3680}# |
11801 | (car #{p*\ 3681}#) | |
11802 | #{n\ 3682}# | |
11803 | #{ids\ 3688}#)) | |
11804 | (lambda (#{x\ 3691}# #{ids\ 3692}#) | |
5f8c55ce | 11805 | (values |
43353663 AW |
11806 | (cons #{x\ 3691}# #{y\ 3687}#) |
11807 | #{ids\ 3692}#)))))))) | |
11808 | (#{cvt\ 3680}# | |
11809 | (lambda (#{p\ 3695}# #{n\ 3696}# #{ids\ 3697}#) | |
11810 | (if (#{id?\ 380}# #{p\ 3695}#) | |
11811 | (if (#{bound-id-member?\ 444}# | |
11812 | #{p\ 3695}# | |
11813 | #{keys\ 3674}#) | |
5f8c55ce | 11814 | (values |
43353663 AW |
11815 | (vector 'free-id #{p\ 3695}#) |
11816 | #{ids\ 3697}#) | |
11817 | (if (#{free-id=?\ 436}# | |
11818 | #{p\ 3695}# | |
b78d91d5 AW |
11819 | '#(syntax-object |
11820 | _ | |
11821 | ((top) | |
11822 | #(ribcage () () ()) | |
11823 | #(ribcage | |
11824 | #(p n ids) | |
11825 | #((top) (top) (top)) | |
43353663 | 11826 | #("i3698" "i3699" "i3700")) |
b78d91d5 AW |
11827 | #(ribcage |
11828 | (cvt cvt*) | |
11829 | ((top) (top)) | |
43353663 | 11830 | ("i3679" "i3677")) |
b78d91d5 AW |
11831 | #(ribcage |
11832 | #(pattern keys) | |
11833 | #((top) (top)) | |
43353663 | 11834 | #("i3675" "i3676")) |
b78d91d5 AW |
11835 | #(ribcage |
11836 | (gen-syntax-case | |
11837 | gen-clause | |
11838 | build-dispatch-call | |
11839 | convert-pattern) | |
11840 | ((top) (top) (top) (top)) | |
43353663 | 11841 | ("i3671" "i3669" "i3667" "i3665")) |
b78d91d5 AW |
11842 | #(ribcage |
11843 | (lambda-var-list | |
11844 | gen-var | |
11845 | strip | |
11846 | chi-lambda-case | |
11847 | lambda*-formals | |
11848 | chi-simple-lambda | |
11849 | lambda-formals | |
b78d91d5 AW |
11850 | ellipsis? |
11851 | chi-void | |
11852 | eval-local-transformer | |
11853 | chi-local-syntax | |
11854 | chi-body | |
11855 | chi-macro | |
11856 | chi-application | |
11857 | chi-expr | |
11858 | chi | |
b78d91d5 AW |
11859 | syntax-type |
11860 | chi-when-list | |
11861 | chi-install-global | |
11862 | chi-top-sequence | |
11863 | chi-sequence | |
11864 | source-wrap | |
11865 | wrap | |
11866 | bound-id-member? | |
11867 | distinct-bound-ids? | |
11868 | valid-bound-ids? | |
11869 | bound-id=? | |
11870 | free-id=? | |
11871 | id-var-name | |
11872 | same-marks? | |
11873 | join-marks | |
11874 | join-wraps | |
11875 | smart-append | |
11876 | make-binding-wrap | |
11877 | extend-ribcage! | |
11878 | make-empty-ribcage | |
11879 | new-mark | |
11880 | anti-mark | |
11881 | the-anti-mark | |
11882 | top-marked? | |
11883 | top-wrap | |
11884 | empty-wrap | |
11885 | set-ribcage-labels! | |
11886 | set-ribcage-marks! | |
11887 | set-ribcage-symnames! | |
11888 | ribcage-labels | |
11889 | ribcage-marks | |
11890 | ribcage-symnames | |
11891 | ribcage? | |
11892 | make-ribcage | |
11893 | gen-labels | |
11894 | gen-label | |
11895 | make-rename | |
11896 | rename-marks | |
11897 | rename-new | |
11898 | rename-old | |
11899 | subst-rename? | |
11900 | wrap-subst | |
11901 | wrap-marks | |
11902 | make-wrap | |
11903 | id-sym-name&marks | |
11904 | id-sym-name | |
11905 | id? | |
11906 | nonsymbol-id? | |
11907 | global-extend | |
11908 | lookup | |
11909 | macros-only-env | |
11910 | extend-var-env | |
11911 | extend-env | |
11912 | null-env | |
11913 | binding-value | |
11914 | binding-type | |
11915 | make-binding | |
11916 | arg-check | |
11917 | source-annotation | |
11918 | no-source | |
11919 | set-syntax-object-module! | |
11920 | set-syntax-object-wrap! | |
11921 | set-syntax-object-expression! | |
11922 | syntax-object-module | |
11923 | syntax-object-wrap | |
11924 | syntax-object-expression | |
11925 | syntax-object? | |
11926 | make-syntax-object | |
11927 | build-lexical-var | |
11928 | build-letrec | |
11929 | build-named-let | |
11930 | build-let | |
11931 | build-sequence | |
11932 | build-data | |
11933 | build-primref | |
11934 | build-lambda-case | |
11935 | build-case-lambda | |
11936 | build-simple-lambda | |
11937 | build-global-definition | |
11938 | build-global-assignment | |
11939 | build-global-reference | |
11940 | analyze-variable | |
11941 | build-lexical-assignment | |
11942 | build-lexical-reference | |
11943 | build-dynlet | |
11944 | build-conditional | |
11945 | build-application | |
11946 | build-void | |
11947 | maybe-name-value! | |
11948 | decorate-source | |
11949 | get-global-definition-hook | |
11950 | put-global-definition-hook | |
11951 | gensym-hook | |
11952 | local-eval-hook | |
11953 | top-level-eval-hook | |
11954 | fx< | |
11955 | fx= | |
11956 | fx- | |
11957 | fx+ | |
11958 | set-lambda-meta! | |
11959 | lambda-meta | |
11960 | lambda? | |
11961 | make-dynlet | |
11962 | make-letrec | |
11963 | make-let | |
11964 | make-lambda-case | |
11965 | make-lambda | |
11966 | make-sequence | |
11967 | make-application | |
11968 | make-conditional | |
11969 | make-toplevel-define | |
11970 | make-toplevel-set | |
11971 | make-toplevel-ref | |
11972 | make-module-set | |
11973 | make-module-ref | |
11974 | make-lexical-set | |
11975 | make-lexical-ref | |
11976 | make-primitive-ref | |
11977 | make-const | |
11978 | make-void) | |
11979 | ((top) | |
11980 | (top) | |
11981 | (top) | |
11982 | (top) | |
11983 | (top) | |
11984 | (top) | |
11985 | (top) | |
11986 | (top) | |
11987 | (top) | |
11988 | (top) | |
11989 | (top) | |
11990 | (top) | |
11991 | (top) | |
11992 | (top) | |
11993 | (top) | |
11994 | (top) | |
11995 | (top) | |
11996 | (top) | |
11997 | (top) | |
11998 | (top) | |
11999 | (top) | |
12000 | (top) | |
12001 | (top) | |
12002 | (top) | |
12003 | (top) | |
12004 | (top) | |
12005 | (top) | |
12006 | (top) | |
12007 | (top) | |
12008 | (top) | |
12009 | (top) | |
12010 | (top) | |
12011 | (top) | |
12012 | (top) | |
12013 | (top) | |
12014 | (top) | |
12015 | (top) | |
12016 | (top) | |
12017 | (top) | |
12018 | (top) | |
12019 | (top) | |
12020 | (top) | |
12021 | (top) | |
12022 | (top) | |
12023 | (top) | |
12024 | (top) | |
12025 | (top) | |
12026 | (top) | |
12027 | (top) | |
12028 | (top) | |
12029 | (top) | |
12030 | (top) | |
12031 | (top) | |
12032 | (top) | |
12033 | (top) | |
12034 | (top) | |
12035 | (top) | |
12036 | (top) | |
12037 | (top) | |
12038 | (top) | |
12039 | (top) | |
12040 | (top) | |
12041 | (top) | |
12042 | (top) | |
12043 | (top) | |
12044 | (top) | |
12045 | (top) | |
12046 | (top) | |
12047 | (top) | |
12048 | (top) | |
12049 | (top) | |
12050 | (top) | |
12051 | (top) | |
12052 | (top) | |
12053 | (top) | |
12054 | (top) | |
12055 | (top) | |
12056 | (top) | |
12057 | (top) | |
12058 | (top) | |
12059 | (top) | |
12060 | (top) | |
12061 | (top) | |
12062 | (top) | |
12063 | (top) | |
12064 | (top) | |
12065 | (top) | |
12066 | (top) | |
12067 | (top) | |
12068 | (top) | |
12069 | (top) | |
12070 | (top) | |
12071 | (top) | |
12072 | (top) | |
12073 | (top) | |
12074 | (top) | |
12075 | (top) | |
12076 | (top) | |
12077 | (top) | |
12078 | (top) | |
12079 | (top) | |
12080 | (top) | |
12081 | (top) | |
12082 | (top) | |
12083 | (top) | |
12084 | (top) | |
12085 | (top) | |
12086 | (top) | |
12087 | (top) | |
12088 | (top) | |
12089 | (top) | |
12090 | (top) | |
12091 | (top) | |
12092 | (top) | |
12093 | (top) | |
12094 | (top) | |
12095 | (top) | |
12096 | (top) | |
12097 | (top) | |
12098 | (top) | |
12099 | (top) | |
12100 | (top) | |
12101 | (top) | |
12102 | (top) | |
12103 | (top) | |
12104 | (top) | |
12105 | (top) | |
12106 | (top) | |
12107 | (top) | |
12108 | (top) | |
12109 | (top) | |
12110 | (top) | |
12111 | (top) | |
12112 | (top) | |
12113 | (top) | |
b78d91d5 | 12114 | (top)) |
43353663 AW |
12115 | ("i489" |
12116 | "i487" | |
12117 | "i485" | |
12118 | "i483" | |
12119 | "i481" | |
12120 | "i479" | |
12121 | "i477" | |
12122 | "i475" | |
12123 | "i473" | |
12124 | "i471" | |
12125 | "i469" | |
12126 | "i467" | |
12127 | "i465" | |
12128 | "i463" | |
12129 | "i461" | |
12130 | "i459" | |
12131 | "i457" | |
12132 | "i455" | |
12133 | "i453" | |
12134 | "i451" | |
12135 | "i449" | |
12136 | "i447" | |
12137 | "i445" | |
12138 | "i443" | |
12139 | "i441" | |
12140 | "i439" | |
12141 | "i437" | |
12142 | "i435" | |
12143 | "i433" | |
12144 | "i431" | |
12145 | "i429" | |
12146 | "i427" | |
12147 | "i425" | |
12148 | "i423" | |
12149 | "i421" | |
8f1870f2 | 12150 | "i420" |
b78d91d5 | 12151 | "i419" |
43353663 | 12152 | "i417" |
8f1870f2 | 12153 | "i416" |
381ccb0b | 12154 | "i415" |
d8e4f9e5 | 12155 | "i414" |
381ccb0b | 12156 | "i413" |
43353663 AW |
12157 | "i411" |
12158 | "i409" | |
12159 | "i407" | |
12160 | "i405" | |
12161 | "i403" | |
12162 | "i401" | |
12163 | "i399" | |
12164 | "i397" | |
12165 | "i394" | |
12166 | "i392" | |
8f1870f2 | 12167 | "i391" |
b78d91d5 | 12168 | "i390" |
381ccb0b | 12169 | "i389" |
d8e4f9e5 | 12170 | "i388" |
381ccb0b | 12171 | "i387" |
d8e4f9e5 | 12172 | "i386" |
381ccb0b | 12173 | "i385" |
d8e4f9e5 | 12174 | "i384" |
43353663 | 12175 | "i382" |
8f1870f2 | 12176 | "i381" |
43353663 AW |
12177 | "i379" |
12178 | "i377" | |
12179 | "i375" | |
12180 | "i373" | |
12181 | "i371" | |
12182 | "i369" | |
12183 | "i367" | |
8f1870f2 | 12184 | "i366" |
381ccb0b | 12185 | "i365" |
d8e4f9e5 | 12186 | "i364" |
381ccb0b | 12187 | "i363" |
d8e4f9e5 | 12188 | "i362" |
43353663 | 12189 | "i360" |
8f1870f2 | 12190 | "i359" |
43353663 AW |
12191 | "i357" |
12192 | "i355" | |
12193 | "i353" | |
12194 | "i351" | |
12195 | "i349" | |
12196 | "i347" | |
12197 | "i345" | |
12198 | "i343" | |
12199 | "i341" | |
12200 | "i339" | |
12201 | "i337" | |
12202 | "i335" | |
12203 | "i333" | |
12204 | "i331" | |
12205 | "i329" | |
12206 | "i327" | |
12207 | "i325" | |
12208 | "i323" | |
12209 | "i321" | |
12210 | "i319" | |
12211 | "i317" | |
12212 | "i315" | |
12213 | "i313" | |
12214 | "i311" | |
12215 | "i309" | |
12216 | "i307" | |
12217 | "i305" | |
12218 | "i303" | |
12219 | "i301" | |
12220 | "i299" | |
12221 | "i297" | |
12222 | "i295" | |
8f1870f2 | 12223 | "i294" |
43353663 AW |
12224 | "i292" |
12225 | "i290" | |
12226 | "i288" | |
12227 | "i286" | |
12228 | "i284" | |
12229 | "i282" | |
12230 | "i280" | |
12231 | "i278" | |
12232 | "i276" | |
12233 | "i273" | |
12234 | "i271" | |
12235 | "i269" | |
12236 | "i267" | |
12237 | "i265" | |
12238 | "i263" | |
12239 | "i261" | |
12240 | "i259" | |
12241 | "i257" | |
12242 | "i255" | |
12243 | "i253" | |
12244 | "i251" | |
12245 | "i249" | |
12246 | "i247" | |
12247 | "i245" | |
12248 | "i243" | |
12249 | "i241" | |
12250 | "i239")) | |
b78d91d5 AW |
12251 | #(ribcage |
12252 | (define-structure | |
12253 | define-expansion-accessors | |
12254 | define-expansion-constructors | |
12255 | and-map*) | |
12256 | ((top) (top) (top) (top)) | |
43353663 | 12257 | ("i41" "i40" "i39" "i37"))) |
b78d91d5 | 12258 | (hygiene guile))) |
43353663 | 12259 | (values '_ #{ids\ 3697}#) |
b78d91d5 AW |
12260 | (values |
12261 | 'any | |
43353663 AW |
12262 | (cons (cons #{p\ 3695}# #{n\ 3696}#) |
12263 | #{ids\ 3697}#)))) | |
12264 | (let ((#{tmp\ 3706}# #{p\ 3695}#)) | |
12265 | (let ((#{tmp\ 3707}# | |
5f8c55ce | 12266 | ($sc-dispatch |
43353663 | 12267 | #{tmp\ 3706}# |
5f8c55ce | 12268 | '(any any)))) |
43353663 | 12269 | (if (if #{tmp\ 3707}# |
5f8c55ce | 12270 | (@apply |
43353663 AW |
12271 | (lambda (#{x\ 3710}# #{dots\ 3711}#) |
12272 | (#{ellipsis?\ 476}# | |
12273 | #{dots\ 3711}#)) | |
12274 | #{tmp\ 3707}#) | |
5f8c55ce AW |
12275 | #f) |
12276 | (@apply | |
43353663 | 12277 | (lambda (#{x\ 3714}# #{dots\ 3715}#) |
5f8c55ce AW |
12278 | (call-with-values |
12279 | (lambda () | |
43353663 AW |
12280 | (#{cvt\ 3680}# |
12281 | #{x\ 3714}# | |
12282 | (#{fx+\ 283}# #{n\ 3696}# 1) | |
12283 | #{ids\ 3697}#)) | |
12284 | (lambda (#{p\ 3716}# #{ids\ 3717}#) | |
5f8c55ce | 12285 | (values |
43353663 | 12286 | (if (eq? #{p\ 3716}# 'any) |
5f8c55ce | 12287 | 'each-any |
43353663 AW |
12288 | (vector 'each #{p\ 3716}#)) |
12289 | #{ids\ 3717}#)))) | |
12290 | #{tmp\ 3707}#) | |
12291 | (let ((#{tmp\ 3720}# | |
5f8c55ce | 12292 | ($sc-dispatch |
43353663 | 12293 | #{tmp\ 3706}# |
5f8c55ce | 12294 | '(any any . each-any)))) |
43353663 | 12295 | (if (if #{tmp\ 3720}# |
5f8c55ce | 12296 | (@apply |
43353663 AW |
12297 | (lambda (#{x\ 3724}# |
12298 | #{dots\ 3725}# | |
12299 | #{ys\ 3726}#) | |
12300 | (#{ellipsis?\ 476}# | |
12301 | #{dots\ 3725}#)) | |
12302 | #{tmp\ 3720}#) | |
5f8c55ce AW |
12303 | #f) |
12304 | (@apply | |
43353663 AW |
12305 | (lambda (#{x\ 3730}# |
12306 | #{dots\ 3731}# | |
12307 | #{ys\ 3732}#) | |
5f8c55ce AW |
12308 | (call-with-values |
12309 | (lambda () | |
43353663 AW |
12310 | (#{cvt*\ 3678}# |
12311 | #{ys\ 3732}# | |
12312 | #{n\ 3696}# | |
12313 | #{ids\ 3697}#)) | |
12314 | (lambda (#{ys\ 3734}# | |
12315 | #{ids\ 3735}#) | |
5f8c55ce AW |
12316 | (call-with-values |
12317 | (lambda () | |
43353663 AW |
12318 | (#{cvt\ 3680}# |
12319 | #{x\ 3730}# | |
12320 | (1+ #{n\ 3696}#) | |
12321 | #{ids\ 3735}#)) | |
12322 | (lambda (#{x\ 3738}# | |
12323 | #{ids\ 3739}#) | |
5f8c55ce | 12324 | (values |
0f550375 AW |
12325 | (vector |
12326 | 'each+ | |
43353663 AW |
12327 | #{x\ 3738}# |
12328 | (reverse #{ys\ 3734}#) | |
0f550375 | 12329 | '()) |
43353663 AW |
12330 | #{ids\ 3739}#)))))) |
12331 | #{tmp\ 3720}#) | |
12332 | (let ((#{tmp\ 3743}# | |
5f8c55ce | 12333 | ($sc-dispatch |
43353663 | 12334 | #{tmp\ 3706}# |
5f8c55ce | 12335 | '(any . any)))) |
43353663 | 12336 | (if #{tmp\ 3743}# |
5f8c55ce | 12337 | (@apply |
43353663 | 12338 | (lambda (#{x\ 3746}# #{y\ 3747}#) |
5f8c55ce AW |
12339 | (call-with-values |
12340 | (lambda () | |
43353663 AW |
12341 | (#{cvt\ 3680}# |
12342 | #{y\ 3747}# | |
12343 | #{n\ 3696}# | |
12344 | #{ids\ 3697}#)) | |
12345 | (lambda (#{y\ 3748}# | |
12346 | #{ids\ 3749}#) | |
5f8c55ce AW |
12347 | (call-with-values |
12348 | (lambda () | |
43353663 AW |
12349 | (#{cvt\ 3680}# |
12350 | #{x\ 3746}# | |
12351 | #{n\ 3696}# | |
12352 | #{ids\ 3749}#)) | |
12353 | (lambda (#{x\ 3752}# | |
12354 | #{ids\ 3753}#) | |
5f8c55ce | 12355 | (values |
43353663 AW |
12356 | (cons #{x\ 3752}# |
12357 | #{y\ 3748}#) | |
12358 | #{ids\ 3753}#)))))) | |
12359 | #{tmp\ 3743}#) | |
12360 | (let ((#{tmp\ 3756}# | |
5f8c55ce | 12361 | ($sc-dispatch |
43353663 | 12362 | #{tmp\ 3706}# |
5f8c55ce | 12363 | '()))) |
43353663 | 12364 | (if #{tmp\ 3756}# |
5f8c55ce AW |
12365 | (@apply |
12366 | (lambda () | |
43353663 AW |
12367 | (values '() #{ids\ 3697}#)) |
12368 | #{tmp\ 3756}#) | |
12369 | (let ((#{tmp\ 3757}# | |
5f8c55ce | 12370 | ($sc-dispatch |
43353663 | 12371 | #{tmp\ 3706}# |
5f8c55ce AW |
12372 | '#(vector |
12373 | each-any)))) | |
43353663 | 12374 | (if #{tmp\ 3757}# |
5f8c55ce | 12375 | (@apply |
43353663 | 12376 | (lambda (#{x\ 3759}#) |
5f8c55ce AW |
12377 | (call-with-values |
12378 | (lambda () | |
43353663 AW |
12379 | (#{cvt\ 3680}# |
12380 | #{x\ 3759}# | |
12381 | #{n\ 3696}# | |
12382 | #{ids\ 3697}#)) | |
12383 | (lambda (#{p\ 3761}# | |
12384 | #{ids\ 3762}#) | |
5f8c55ce AW |
12385 | (values |
12386 | (vector | |
12387 | 'vector | |
43353663 AW |
12388 | #{p\ 3761}#) |
12389 | #{ids\ 3762}#)))) | |
12390 | #{tmp\ 3757}#) | |
12391 | (let ((#{x\ 3766}# | |
12392 | #{tmp\ 3706}#)) | |
5f8c55ce AW |
12393 | (values |
12394 | (vector | |
12395 | 'atom | |
43353663 AW |
12396 | (#{strip\ 486}# |
12397 | #{p\ 3695}# | |
5f8c55ce | 12398 | '(()))) |
43353663 AW |
12399 | #{ids\ 3697}#))))))))))))))))) |
12400 | (begin (#{cvt\ 3680}# #{pattern\ 3673}# 0 '()))))) | |
12401 | (#{build-dispatch-call\ 3668}# | |
12402 | (lambda (#{pvars\ 3768}# | |
12403 | #{exp\ 3769}# | |
12404 | #{y\ 3770}# | |
12405 | #{r\ 3771}# | |
12406 | #{mod\ 3772}#) | |
5f8c55ce | 12407 | (begin |
43353663 AW |
12408 | (map cdr #{pvars\ 3768}#) |
12409 | (let ((#{ids\ 3780}# (map car #{pvars\ 3768}#))) | |
5f8c55ce | 12410 | (begin |
43353663 AW |
12411 | (let ((#{labels\ 3784}# |
12412 | (#{gen-labels\ 395}# #{ids\ 3780}#)) | |
12413 | (#{new-vars\ 3785}# | |
12414 | (map #{gen-var\ 488}# #{ids\ 3780}#))) | |
12415 | (#{build-application\ 306}# | |
5f8c55ce | 12416 | #f |
43353663 AW |
12417 | (#{build-primref\ 330}# #f 'apply) |
12418 | (list (#{build-simple-lambda\ 324}# | |
5f8c55ce | 12419 | #f |
43353663 | 12420 | (map syntax->datum #{ids\ 3780}#) |
5f8c55ce | 12421 | #f |
43353663 | 12422 | #{new-vars\ 3785}# |
5f8c55ce | 12423 | '() |
43353663 AW |
12424 | (#{chi\ 460}# |
12425 | #{exp\ 3769}# | |
12426 | (#{extend-env\ 368}# | |
12427 | #{labels\ 3784}# | |
12428 | (map (lambda (#{var\ 3789}# | |
12429 | #{level\ 3790}#) | |
5f8c55ce | 12430 | (cons 'syntax |
43353663 AW |
12431 | (cons #{var\ 3789}# |
12432 | #{level\ 3790}#))) | |
12433 | #{new-vars\ 3785}# | |
12434 | (map cdr #{pvars\ 3768}#)) | |
12435 | #{r\ 3771}#) | |
12436 | (#{make-binding-wrap\ 424}# | |
12437 | #{ids\ 3780}# | |
12438 | #{labels\ 3784}# | |
5f8c55ce | 12439 | '(())) |
43353663 AW |
12440 | #{mod\ 3772}#)) |
12441 | #{y\ 3770}#)))))))) | |
12442 | (#{gen-clause\ 3670}# | |
12443 | (lambda (#{x\ 3796}# | |
12444 | #{keys\ 3797}# | |
12445 | #{clauses\ 3798}# | |
12446 | #{r\ 3799}# | |
12447 | #{pat\ 3800}# | |
12448 | #{fender\ 3801}# | |
12449 | #{exp\ 3802}# | |
12450 | #{mod\ 3803}#) | |
5f8c55ce AW |
12451 | (call-with-values |
12452 | (lambda () | |
43353663 AW |
12453 | (#{convert-pattern\ 3666}# |
12454 | #{pat\ 3800}# | |
12455 | #{keys\ 3797}#)) | |
12456 | (lambda (#{p\ 3812}# #{pvars\ 3813}#) | |
12457 | (if (not (#{distinct-bound-ids?\ 442}# | |
12458 | (map car #{pvars\ 3813}#))) | |
5f8c55ce AW |
12459 | (syntax-violation |
12460 | 'syntax-case | |
12461 | "duplicate pattern variable" | |
43353663 | 12462 | #{pat\ 3800}#) |
5f8c55ce | 12463 | (if (not (and-map |
43353663 AW |
12464 | (lambda (#{x\ 3820}#) |
12465 | (not (#{ellipsis?\ 476}# | |
12466 | (car #{x\ 3820}#)))) | |
12467 | #{pvars\ 3813}#)) | |
5f8c55ce AW |
12468 | (syntax-violation |
12469 | 'syntax-case | |
12470 | "misplaced ellipsis" | |
43353663 | 12471 | #{pat\ 3800}#) |
5f8c55ce | 12472 | (begin |
43353663 AW |
12473 | (let ((#{y\ 3824}# (#{gen-var\ 488}# 'tmp))) |
12474 | (#{build-application\ 306}# | |
5f8c55ce | 12475 | #f |
43353663 | 12476 | (#{build-simple-lambda\ 324}# |
5f8c55ce | 12477 | #f |
8f1870f2 | 12478 | (list 'tmp) |
5f8c55ce | 12479 | #f |
43353663 | 12480 | (list #{y\ 3824}#) |
5f8c55ce AW |
12481 | '() |
12482 | (begin | |
43353663 AW |
12483 | (let ((#{y\ 3828}# |
12484 | (#{build-lexical-reference\ 312}# | |
5f8c55ce AW |
12485 | 'value |
12486 | #f | |
12487 | 'tmp | |
43353663 AW |
12488 | #{y\ 3824}#))) |
12489 | (#{build-conditional\ 308}# | |
5f8c55ce | 12490 | #f |
43353663 AW |
12491 | (let ((#{tmp\ 3831}# |
12492 | #{fender\ 3801}#)) | |
12493 | (let ((#{tmp\ 3832}# | |
5f8c55ce | 12494 | ($sc-dispatch |
43353663 | 12495 | #{tmp\ 3831}# |
5f8c55ce | 12496 | '#(atom #t)))) |
43353663 | 12497 | (if #{tmp\ 3832}# |
5f8c55ce | 12498 | (@apply |
43353663 AW |
12499 | (lambda () #{y\ 3828}#) |
12500 | #{tmp\ 3832}#) | |
12501 | (let ((#{_\ 3834}# | |
12502 | #{tmp\ 3831}#)) | |
12503 | (#{build-conditional\ 308}# | |
5f8c55ce | 12504 | #f |
43353663 AW |
12505 | #{y\ 3828}# |
12506 | (#{build-dispatch-call\ 3668}# | |
12507 | #{pvars\ 3813}# | |
12508 | #{fender\ 3801}# | |
12509 | #{y\ 3828}# | |
12510 | #{r\ 3799}# | |
12511 | #{mod\ 3803}#) | |
12512 | (#{build-data\ 332}# | |
5f8c55ce AW |
12513 | #f |
12514 | #f)))))) | |
43353663 AW |
12515 | (#{build-dispatch-call\ 3668}# |
12516 | #{pvars\ 3813}# | |
12517 | #{exp\ 3802}# | |
12518 | #{y\ 3828}# | |
12519 | #{r\ 3799}# | |
12520 | #{mod\ 3803}#) | |
12521 | (#{gen-syntax-case\ 3672}# | |
12522 | #{x\ 3796}# | |
12523 | #{keys\ 3797}# | |
12524 | #{clauses\ 3798}# | |
12525 | #{r\ 3799}# | |
12526 | #{mod\ 3803}#))))) | |
12527 | (list (if (eq? #{p\ 3812}# 'any) | |
12528 | (#{build-application\ 306}# | |
5f8c55ce | 12529 | #f |
43353663 AW |
12530 | (#{build-primref\ 330}# #f 'list) |
12531 | (list #{x\ 3796}#)) | |
12532 | (#{build-application\ 306}# | |
5f8c55ce | 12533 | #f |
43353663 | 12534 | (#{build-primref\ 330}# |
5f8c55ce AW |
12535 | #f |
12536 | '$sc-dispatch) | |
43353663 AW |
12537 | (list #{x\ 3796}# |
12538 | (#{build-data\ 332}# | |
5f8c55ce | 12539 | #f |
43353663 AW |
12540 | #{p\ 3812}#)))))))))))))) |
12541 | (#{gen-syntax-case\ 3672}# | |
12542 | (lambda (#{x\ 3842}# | |
12543 | #{keys\ 3843}# | |
12544 | #{clauses\ 3844}# | |
12545 | #{r\ 3845}# | |
12546 | #{mod\ 3846}#) | |
12547 | (if (null? #{clauses\ 3844}#) | |
12548 | (#{build-application\ 306}# | |
417ee098 | 12549 | #f |
43353663 AW |
12550 | (#{build-primref\ 330}# #f 'syntax-violation) |
12551 | (list (#{build-data\ 332}# #f #f) | |
12552 | (#{build-data\ 332}# | |
65dd9e38 | 12553 | #f |
417ee098 | 12554 | "source expression failed to match any pattern") |
43353663 AW |
12555 | #{x\ 3842}#)) |
12556 | (let ((#{tmp\ 3856}# (car #{clauses\ 3844}#))) | |
12557 | (let ((#{tmp\ 3857}# | |
12558 | ($sc-dispatch #{tmp\ 3856}# '(any any)))) | |
12559 | (if #{tmp\ 3857}# | |
417ee098 | 12560 | (@apply |
43353663 AW |
12561 | (lambda (#{pat\ 3860}# #{exp\ 3861}#) |
12562 | (if (if (#{id?\ 380}# #{pat\ 3860}#) | |
417ee098 | 12563 | (and-map |
43353663 AW |
12564 | (lambda (#{x\ 3864}#) |
12565 | (not (#{free-id=?\ 436}# | |
12566 | #{pat\ 3860}# | |
12567 | #{x\ 3864}#))) | |
417ee098 AW |
12568 | (cons '#(syntax-object |
12569 | ... | |
12570 | ((top) | |
12571 | #(ribcage | |
12572 | #(pat exp) | |
12573 | #((top) (top)) | |
43353663 | 12574 | #("i3858" "i3859")) |
417ee098 AW |
12575 | #(ribcage () () ()) |
12576 | #(ribcage | |
12577 | #(x keys clauses r mod) | |
12578 | #((top) | |
12579 | (top) | |
12580 | (top) | |
12581 | (top) | |
12582 | (top)) | |
43353663 AW |
12583 | #("i3847" |
12584 | "i3848" | |
12585 | "i3849" | |
12586 | "i3850" | |
12587 | "i3851")) | |
417ee098 AW |
12588 | #(ribcage |
12589 | (gen-syntax-case | |
12590 | gen-clause | |
12591 | build-dispatch-call | |
12592 | convert-pattern) | |
12593 | ((top) (top) (top) (top)) | |
43353663 AW |
12594 | ("i3671" |
12595 | "i3669" | |
12596 | "i3667" | |
12597 | "i3665")) | |
417ee098 AW |
12598 | #(ribcage |
12599 | (lambda-var-list | |
12600 | gen-var | |
12601 | strip | |
12602 | chi-lambda-case | |
12603 | lambda*-formals | |
12604 | chi-simple-lambda | |
12605 | lambda-formals | |
12606 | ellipsis? | |
12607 | chi-void | |
12608 | eval-local-transformer | |
12609 | chi-local-syntax | |
12610 | chi-body | |
12611 | chi-macro | |
12612 | chi-application | |
12613 | chi-expr | |
12614 | chi | |
417ee098 AW |
12615 | syntax-type |
12616 | chi-when-list | |
12617 | chi-install-global | |
12618 | chi-top-sequence | |
12619 | chi-sequence | |
12620 | source-wrap | |
12621 | wrap | |
12622 | bound-id-member? | |
12623 | distinct-bound-ids? | |
12624 | valid-bound-ids? | |
12625 | bound-id=? | |
12626 | free-id=? | |
12627 | id-var-name | |
12628 | same-marks? | |
12629 | join-marks | |
12630 | join-wraps | |
12631 | smart-append | |
12632 | make-binding-wrap | |
12633 | extend-ribcage! | |
12634 | make-empty-ribcage | |
12635 | new-mark | |
12636 | anti-mark | |
12637 | the-anti-mark | |
12638 | top-marked? | |
12639 | top-wrap | |
12640 | empty-wrap | |
12641 | set-ribcage-labels! | |
12642 | set-ribcage-marks! | |
12643 | set-ribcage-symnames! | |
12644 | ribcage-labels | |
12645 | ribcage-marks | |
12646 | ribcage-symnames | |
12647 | ribcage? | |
12648 | make-ribcage | |
12649 | gen-labels | |
12650 | gen-label | |
12651 | make-rename | |
12652 | rename-marks | |
12653 | rename-new | |
12654 | rename-old | |
12655 | subst-rename? | |
12656 | wrap-subst | |
12657 | wrap-marks | |
12658 | make-wrap | |
12659 | id-sym-name&marks | |
12660 | id-sym-name | |
12661 | id? | |
12662 | nonsymbol-id? | |
12663 | global-extend | |
12664 | lookup | |
12665 | macros-only-env | |
12666 | extend-var-env | |
12667 | extend-env | |
12668 | null-env | |
12669 | binding-value | |
12670 | binding-type | |
12671 | make-binding | |
12672 | arg-check | |
12673 | source-annotation | |
12674 | no-source | |
12675 | set-syntax-object-module! | |
12676 | set-syntax-object-wrap! | |
12677 | set-syntax-object-expression! | |
12678 | syntax-object-module | |
12679 | syntax-object-wrap | |
12680 | syntax-object-expression | |
12681 | syntax-object? | |
12682 | make-syntax-object | |
12683 | build-lexical-var | |
12684 | build-letrec | |
12685 | build-named-let | |
12686 | build-let | |
12687 | build-sequence | |
12688 | build-data | |
12689 | build-primref | |
12690 | build-lambda-case | |
12691 | build-case-lambda | |
12692 | build-simple-lambda | |
12693 | build-global-definition | |
417ee098 AW |
12694 | build-global-assignment |
12695 | build-global-reference | |
12696 | analyze-variable | |
12697 | build-lexical-assignment | |
12698 | build-lexical-reference | |
12699 | build-dynlet | |
12700 | build-conditional | |
12701 | build-application | |
12702 | build-void | |
37620f3f | 12703 | maybe-name-value! |
417ee098 AW |
12704 | decorate-source |
12705 | get-global-definition-hook | |
12706 | put-global-definition-hook | |
12707 | gensym-hook | |
12708 | local-eval-hook | |
12709 | top-level-eval-hook | |
12710 | fx< | |
12711 | fx= | |
12712 | fx- | |
12713 | fx+ | |
12714 | set-lambda-meta! | |
12715 | lambda-meta | |
12716 | lambda? | |
12717 | make-dynlet | |
12718 | make-letrec | |
12719 | make-let | |
12720 | make-lambda-case | |
12721 | make-lambda | |
12722 | make-sequence | |
12723 | make-application | |
12724 | make-conditional | |
12725 | make-toplevel-define | |
12726 | make-toplevel-set | |
12727 | make-toplevel-ref | |
12728 | make-module-set | |
12729 | make-module-ref | |
12730 | make-lexical-set | |
12731 | make-lexical-ref | |
12732 | make-primitive-ref | |
12733 | make-const | |
12734 | make-void) | |
12735 | ((top) | |
12736 | (top) | |
12737 | (top) | |
12738 | (top) | |
12739 | (top) | |
12740 | (top) | |
12741 | (top) | |
12742 | (top) | |
12743 | (top) | |
12744 | (top) | |
12745 | (top) | |
12746 | (top) | |
12747 | (top) | |
12748 | (top) | |
12749 | (top) | |
12750 | (top) | |
12751 | (top) | |
12752 | (top) | |
12753 | (top) | |
12754 | (top) | |
12755 | (top) | |
12756 | (top) | |
12757 | (top) | |
12758 | (top) | |
12759 | (top) | |
12760 | (top) | |
12761 | (top) | |
12762 | (top) | |
12763 | (top) | |
12764 | (top) | |
12765 | (top) | |
12766 | (top) | |
12767 | (top) | |
12768 | (top) | |
12769 | (top) | |
12770 | (top) | |
12771 | (top) | |
12772 | (top) | |
12773 | (top) | |
12774 | (top) | |
12775 | (top) | |
12776 | (top) | |
12777 | (top) | |
12778 | (top) | |
12779 | (top) | |
12780 | (top) | |
12781 | (top) | |
12782 | (top) | |
12783 | (top) | |
12784 | (top) | |
12785 | (top) | |
12786 | (top) | |
12787 | (top) | |
12788 | (top) | |
12789 | (top) | |
12790 | (top) | |
12791 | (top) | |
12792 | (top) | |
12793 | (top) | |
12794 | (top) | |
12795 | (top) | |
12796 | (top) | |
12797 | (top) | |
12798 | (top) | |
12799 | (top) | |
12800 | (top) | |
12801 | (top) | |
12802 | (top) | |
12803 | (top) | |
12804 | (top) | |
12805 | (top) | |
12806 | (top) | |
12807 | (top) | |
12808 | (top) | |
12809 | (top) | |
12810 | (top) | |
12811 | (top) | |
12812 | (top) | |
12813 | (top) | |
12814 | (top) | |
12815 | (top) | |
12816 | (top) | |
12817 | (top) | |
12818 | (top) | |
12819 | (top) | |
12820 | (top) | |
12821 | (top) | |
12822 | (top) | |
12823 | (top) | |
12824 | (top) | |
12825 | (top) | |
12826 | (top) | |
12827 | (top) | |
12828 | (top) | |
12829 | (top) | |
12830 | (top) | |
12831 | (top) | |
12832 | (top) | |
12833 | (top) | |
12834 | (top) | |
12835 | (top) | |
12836 | (top) | |
12837 | (top) | |
12838 | (top) | |
12839 | (top) | |
12840 | (top) | |
12841 | (top) | |
12842 | (top) | |
12843 | (top) | |
12844 | (top) | |
12845 | (top) | |
12846 | (top) | |
12847 | (top) | |
12848 | (top) | |
12849 | (top) | |
12850 | (top) | |
12851 | (top) | |
12852 | (top) | |
12853 | (top) | |
12854 | (top) | |
12855 | (top) | |
12856 | (top) | |
12857 | (top) | |
12858 | (top) | |
12859 | (top) | |
12860 | (top) | |
12861 | (top) | |
12862 | (top) | |
12863 | (top) | |
12864 | (top) | |
12865 | (top) | |
12866 | (top) | |
12867 | (top) | |
12868 | (top) | |
12869 | (top) | |
417ee098 | 12870 | (top)) |
43353663 AW |
12871 | ("i489" |
12872 | "i487" | |
12873 | "i485" | |
12874 | "i483" | |
12875 | "i481" | |
12876 | "i479" | |
12877 | "i477" | |
12878 | "i475" | |
12879 | "i473" | |
12880 | "i471" | |
12881 | "i469" | |
12882 | "i467" | |
12883 | "i465" | |
12884 | "i463" | |
12885 | "i461" | |
12886 | "i459" | |
12887 | "i457" | |
12888 | "i455" | |
12889 | "i453" | |
12890 | "i451" | |
12891 | "i449" | |
12892 | "i447" | |
12893 | "i445" | |
12894 | "i443" | |
12895 | "i441" | |
12896 | "i439" | |
12897 | "i437" | |
12898 | "i435" | |
12899 | "i433" | |
12900 | "i431" | |
12901 | "i429" | |
12902 | "i427" | |
12903 | "i425" | |
12904 | "i423" | |
12905 | "i421" | |
8f1870f2 | 12906 | "i420" |
b78d91d5 | 12907 | "i419" |
43353663 | 12908 | "i417" |
8f1870f2 | 12909 | "i416" |
381ccb0b | 12910 | "i415" |
d8e4f9e5 | 12911 | "i414" |
381ccb0b | 12912 | "i413" |
43353663 AW |
12913 | "i411" |
12914 | "i409" | |
12915 | "i407" | |
12916 | "i405" | |
12917 | "i403" | |
12918 | "i401" | |
12919 | "i399" | |
12920 | "i397" | |
12921 | "i394" | |
12922 | "i392" | |
8f1870f2 | 12923 | "i391" |
77b79cce | 12924 | "i390" |
381ccb0b | 12925 | "i389" |
d8e4f9e5 | 12926 | "i388" |
381ccb0b | 12927 | "i387" |
d8e4f9e5 | 12928 | "i386" |
381ccb0b | 12929 | "i385" |
d8e4f9e5 | 12930 | "i384" |
43353663 | 12931 | "i382" |
8f1870f2 | 12932 | "i381" |
43353663 AW |
12933 | "i379" |
12934 | "i377" | |
12935 | "i375" | |
12936 | "i373" | |
12937 | "i371" | |
12938 | "i369" | |
12939 | "i367" | |
8f1870f2 | 12940 | "i366" |
381ccb0b | 12941 | "i365" |
d8e4f9e5 | 12942 | "i364" |
381ccb0b | 12943 | "i363" |
d8e4f9e5 | 12944 | "i362" |
43353663 | 12945 | "i360" |
8f1870f2 | 12946 | "i359" |
43353663 AW |
12947 | "i357" |
12948 | "i355" | |
12949 | "i353" | |
12950 | "i351" | |
12951 | "i349" | |
12952 | "i347" | |
12953 | "i345" | |
12954 | "i343" | |
12955 | "i341" | |
12956 | "i339" | |
12957 | "i337" | |
12958 | "i335" | |
12959 | "i333" | |
12960 | "i331" | |
12961 | "i329" | |
12962 | "i327" | |
12963 | "i325" | |
12964 | "i323" | |
12965 | "i321" | |
12966 | "i319" | |
12967 | "i317" | |
12968 | "i315" | |
12969 | "i313" | |
12970 | "i311" | |
12971 | "i309" | |
12972 | "i307" | |
12973 | "i305" | |
12974 | "i303" | |
12975 | "i301" | |
12976 | "i299" | |
12977 | "i297" | |
12978 | "i295" | |
8f1870f2 | 12979 | "i294" |
43353663 AW |
12980 | "i292" |
12981 | "i290" | |
12982 | "i288" | |
12983 | "i286" | |
12984 | "i284" | |
12985 | "i282" | |
12986 | "i280" | |
12987 | "i278" | |
12988 | "i276" | |
12989 | "i273" | |
12990 | "i271" | |
12991 | "i269" | |
12992 | "i267" | |
12993 | "i265" | |
12994 | "i263" | |
12995 | "i261" | |
12996 | "i259" | |
12997 | "i257" | |
12998 | "i255" | |
12999 | "i253" | |
13000 | "i251" | |
13001 | "i249" | |
13002 | "i247" | |
13003 | "i245" | |
13004 | "i243" | |
13005 | "i241" | |
13006 | "i239")) | |
417ee098 AW |
13007 | #(ribcage |
13008 | (define-structure | |
13009 | define-expansion-accessors | |
13010 | define-expansion-constructors | |
13011 | and-map*) | |
13012 | ((top) (top) (top) (top)) | |
43353663 AW |
13013 | ("i41" |
13014 | "i40" | |
8f1870f2 | 13015 | "i39" |
43353663 | 13016 | "i37"))) |
417ee098 | 13017 | (hygiene guile)) |
43353663 | 13018 | #{keys\ 3843}#)) |
417ee098 | 13019 | #f) |
43353663 | 13020 | (if (#{free-id=?\ 436}# |
b78d91d5 AW |
13021 | '#(syntax-object |
13022 | pad | |
13023 | ((top) | |
13024 | #(ribcage | |
13025 | #(pat exp) | |
13026 | #((top) (top)) | |
43353663 | 13027 | #("i3858" "i3859")) |
b78d91d5 AW |
13028 | #(ribcage () () ()) |
13029 | #(ribcage | |
13030 | #(x keys clauses r mod) | |
13031 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
13032 | #("i3847" |
13033 | "i3848" | |
13034 | "i3849" | |
13035 | "i3850" | |
13036 | "i3851")) | |
b78d91d5 AW |
13037 | #(ribcage |
13038 | (gen-syntax-case | |
13039 | gen-clause | |
13040 | build-dispatch-call | |
13041 | convert-pattern) | |
13042 | ((top) (top) (top) (top)) | |
43353663 AW |
13043 | ("i3671" |
13044 | "i3669" | |
13045 | "i3667" | |
13046 | "i3665")) | |
b78d91d5 AW |
13047 | #(ribcage |
13048 | (lambda-var-list | |
13049 | gen-var | |
13050 | strip | |
13051 | chi-lambda-case | |
13052 | lambda*-formals | |
13053 | chi-simple-lambda | |
13054 | lambda-formals | |
b78d91d5 AW |
13055 | ellipsis? |
13056 | chi-void | |
13057 | eval-local-transformer | |
13058 | chi-local-syntax | |
13059 | chi-body | |
13060 | chi-macro | |
13061 | chi-application | |
13062 | chi-expr | |
13063 | chi | |
b78d91d5 AW |
13064 | syntax-type |
13065 | chi-when-list | |
13066 | chi-install-global | |
13067 | chi-top-sequence | |
13068 | chi-sequence | |
13069 | source-wrap | |
13070 | wrap | |
13071 | bound-id-member? | |
13072 | distinct-bound-ids? | |
13073 | valid-bound-ids? | |
13074 | bound-id=? | |
13075 | free-id=? | |
13076 | id-var-name | |
13077 | same-marks? | |
13078 | join-marks | |
13079 | join-wraps | |
13080 | smart-append | |
13081 | make-binding-wrap | |
13082 | extend-ribcage! | |
13083 | make-empty-ribcage | |
13084 | new-mark | |
13085 | anti-mark | |
13086 | the-anti-mark | |
13087 | top-marked? | |
13088 | top-wrap | |
13089 | empty-wrap | |
13090 | set-ribcage-labels! | |
13091 | set-ribcage-marks! | |
13092 | set-ribcage-symnames! | |
13093 | ribcage-labels | |
13094 | ribcage-marks | |
13095 | ribcage-symnames | |
13096 | ribcage? | |
13097 | make-ribcage | |
13098 | gen-labels | |
13099 | gen-label | |
13100 | make-rename | |
13101 | rename-marks | |
13102 | rename-new | |
13103 | rename-old | |
13104 | subst-rename? | |
13105 | wrap-subst | |
13106 | wrap-marks | |
13107 | make-wrap | |
13108 | id-sym-name&marks | |
13109 | id-sym-name | |
13110 | id? | |
13111 | nonsymbol-id? | |
13112 | global-extend | |
13113 | lookup | |
13114 | macros-only-env | |
13115 | extend-var-env | |
13116 | extend-env | |
13117 | null-env | |
13118 | binding-value | |
13119 | binding-type | |
13120 | make-binding | |
13121 | arg-check | |
13122 | source-annotation | |
13123 | no-source | |
13124 | set-syntax-object-module! | |
13125 | set-syntax-object-wrap! | |
13126 | set-syntax-object-expression! | |
13127 | syntax-object-module | |
13128 | syntax-object-wrap | |
13129 | syntax-object-expression | |
13130 | syntax-object? | |
13131 | make-syntax-object | |
13132 | build-lexical-var | |
13133 | build-letrec | |
13134 | build-named-let | |
13135 | build-let | |
13136 | build-sequence | |
13137 | build-data | |
13138 | build-primref | |
13139 | build-lambda-case | |
13140 | build-case-lambda | |
13141 | build-simple-lambda | |
13142 | build-global-definition | |
13143 | build-global-assignment | |
13144 | build-global-reference | |
13145 | analyze-variable | |
13146 | build-lexical-assignment | |
13147 | build-lexical-reference | |
13148 | build-dynlet | |
13149 | build-conditional | |
13150 | build-application | |
13151 | build-void | |
13152 | maybe-name-value! | |
13153 | decorate-source | |
13154 | get-global-definition-hook | |
13155 | put-global-definition-hook | |
13156 | gensym-hook | |
13157 | local-eval-hook | |
13158 | top-level-eval-hook | |
13159 | fx< | |
13160 | fx= | |
13161 | fx- | |
13162 | fx+ | |
13163 | set-lambda-meta! | |
13164 | lambda-meta | |
13165 | lambda? | |
13166 | make-dynlet | |
13167 | make-letrec | |
13168 | make-let | |
13169 | make-lambda-case | |
13170 | make-lambda | |
13171 | make-sequence | |
13172 | make-application | |
13173 | make-conditional | |
13174 | make-toplevel-define | |
13175 | make-toplevel-set | |
13176 | make-toplevel-ref | |
13177 | make-module-set | |
13178 | make-module-ref | |
13179 | make-lexical-set | |
13180 | make-lexical-ref | |
13181 | make-primitive-ref | |
13182 | make-const | |
13183 | make-void) | |
13184 | ((top) | |
13185 | (top) | |
13186 | (top) | |
13187 | (top) | |
13188 | (top) | |
13189 | (top) | |
13190 | (top) | |
13191 | (top) | |
13192 | (top) | |
13193 | (top) | |
13194 | (top) | |
13195 | (top) | |
13196 | (top) | |
13197 | (top) | |
13198 | (top) | |
13199 | (top) | |
13200 | (top) | |
13201 | (top) | |
13202 | (top) | |
13203 | (top) | |
13204 | (top) | |
13205 | (top) | |
13206 | (top) | |
13207 | (top) | |
13208 | (top) | |
13209 | (top) | |
13210 | (top) | |
13211 | (top) | |
13212 | (top) | |
13213 | (top) | |
13214 | (top) | |
13215 | (top) | |
13216 | (top) | |
13217 | (top) | |
13218 | (top) | |
13219 | (top) | |
13220 | (top) | |
13221 | (top) | |
13222 | (top) | |
13223 | (top) | |
13224 | (top) | |
13225 | (top) | |
13226 | (top) | |
13227 | (top) | |
13228 | (top) | |
13229 | (top) | |
13230 | (top) | |
13231 | (top) | |
13232 | (top) | |
13233 | (top) | |
13234 | (top) | |
13235 | (top) | |
13236 | (top) | |
13237 | (top) | |
13238 | (top) | |
13239 | (top) | |
13240 | (top) | |
13241 | (top) | |
13242 | (top) | |
13243 | (top) | |
13244 | (top) | |
13245 | (top) | |
13246 | (top) | |
13247 | (top) | |
13248 | (top) | |
13249 | (top) | |
13250 | (top) | |
13251 | (top) | |
13252 | (top) | |
13253 | (top) | |
13254 | (top) | |
13255 | (top) | |
13256 | (top) | |
13257 | (top) | |
13258 | (top) | |
13259 | (top) | |
13260 | (top) | |
13261 | (top) | |
13262 | (top) | |
13263 | (top) | |
13264 | (top) | |
13265 | (top) | |
13266 | (top) | |
13267 | (top) | |
13268 | (top) | |
13269 | (top) | |
13270 | (top) | |
13271 | (top) | |
13272 | (top) | |
13273 | (top) | |
13274 | (top) | |
13275 | (top) | |
13276 | (top) | |
13277 | (top) | |
13278 | (top) | |
13279 | (top) | |
13280 | (top) | |
13281 | (top) | |
13282 | (top) | |
13283 | (top) | |
13284 | (top) | |
13285 | (top) | |
13286 | (top) | |
13287 | (top) | |
13288 | (top) | |
13289 | (top) | |
13290 | (top) | |
13291 | (top) | |
13292 | (top) | |
13293 | (top) | |
13294 | (top) | |
13295 | (top) | |
13296 | (top) | |
13297 | (top) | |
13298 | (top) | |
13299 | (top) | |
13300 | (top) | |
13301 | (top) | |
13302 | (top) | |
13303 | (top) | |
13304 | (top) | |
13305 | (top) | |
13306 | (top) | |
13307 | (top) | |
13308 | (top) | |
13309 | (top) | |
13310 | (top) | |
13311 | (top) | |
13312 | (top) | |
13313 | (top) | |
13314 | (top) | |
13315 | (top) | |
13316 | (top) | |
13317 | (top) | |
13318 | (top) | |
b78d91d5 | 13319 | (top)) |
43353663 AW |
13320 | ("i489" |
13321 | "i487" | |
13322 | "i485" | |
13323 | "i483" | |
13324 | "i481" | |
13325 | "i479" | |
13326 | "i477" | |
13327 | "i475" | |
13328 | "i473" | |
13329 | "i471" | |
13330 | "i469" | |
13331 | "i467" | |
13332 | "i465" | |
13333 | "i463" | |
13334 | "i461" | |
13335 | "i459" | |
13336 | "i457" | |
13337 | "i455" | |
13338 | "i453" | |
13339 | "i451" | |
13340 | "i449" | |
13341 | "i447" | |
13342 | "i445" | |
13343 | "i443" | |
13344 | "i441" | |
13345 | "i439" | |
13346 | "i437" | |
13347 | "i435" | |
13348 | "i433" | |
13349 | "i431" | |
13350 | "i429" | |
13351 | "i427" | |
13352 | "i425" | |
13353 | "i423" | |
13354 | "i421" | |
8f1870f2 | 13355 | "i420" |
b78d91d5 | 13356 | "i419" |
43353663 | 13357 | "i417" |
8f1870f2 | 13358 | "i416" |
381ccb0b | 13359 | "i415" |
d8e4f9e5 | 13360 | "i414" |
381ccb0b | 13361 | "i413" |
43353663 AW |
13362 | "i411" |
13363 | "i409" | |
13364 | "i407" | |
13365 | "i405" | |
13366 | "i403" | |
13367 | "i401" | |
13368 | "i399" | |
13369 | "i397" | |
13370 | "i394" | |
13371 | "i392" | |
8f1870f2 | 13372 | "i391" |
b78d91d5 | 13373 | "i390" |
381ccb0b | 13374 | "i389" |
d8e4f9e5 | 13375 | "i388" |
381ccb0b | 13376 | "i387" |
d8e4f9e5 | 13377 | "i386" |
381ccb0b | 13378 | "i385" |
d8e4f9e5 | 13379 | "i384" |
43353663 | 13380 | "i382" |
8f1870f2 | 13381 | "i381" |
43353663 AW |
13382 | "i379" |
13383 | "i377" | |
13384 | "i375" | |
13385 | "i373" | |
13386 | "i371" | |
13387 | "i369" | |
13388 | "i367" | |
8f1870f2 | 13389 | "i366" |
381ccb0b | 13390 | "i365" |
d8e4f9e5 | 13391 | "i364" |
381ccb0b | 13392 | "i363" |
d8e4f9e5 | 13393 | "i362" |
43353663 | 13394 | "i360" |
8f1870f2 | 13395 | "i359" |
43353663 AW |
13396 | "i357" |
13397 | "i355" | |
13398 | "i353" | |
13399 | "i351" | |
13400 | "i349" | |
13401 | "i347" | |
13402 | "i345" | |
13403 | "i343" | |
13404 | "i341" | |
13405 | "i339" | |
13406 | "i337" | |
13407 | "i335" | |
13408 | "i333" | |
13409 | "i331" | |
13410 | "i329" | |
13411 | "i327" | |
13412 | "i325" | |
13413 | "i323" | |
13414 | "i321" | |
13415 | "i319" | |
13416 | "i317" | |
13417 | "i315" | |
13418 | "i313" | |
13419 | "i311" | |
13420 | "i309" | |
13421 | "i307" | |
13422 | "i305" | |
13423 | "i303" | |
13424 | "i301" | |
13425 | "i299" | |
13426 | "i297" | |
13427 | "i295" | |
8f1870f2 | 13428 | "i294" |
43353663 AW |
13429 | "i292" |
13430 | "i290" | |
13431 | "i288" | |
13432 | "i286" | |
13433 | "i284" | |
13434 | "i282" | |
13435 | "i280" | |
13436 | "i278" | |
13437 | "i276" | |
13438 | "i273" | |
13439 | "i271" | |
13440 | "i269" | |
13441 | "i267" | |
13442 | "i265" | |
13443 | "i263" | |
13444 | "i261" | |
13445 | "i259" | |
13446 | "i257" | |
13447 | "i255" | |
13448 | "i253" | |
13449 | "i251" | |
13450 | "i249" | |
13451 | "i247" | |
13452 | "i245" | |
13453 | "i243" | |
13454 | "i241" | |
13455 | "i239")) | |
b78d91d5 AW |
13456 | #(ribcage |
13457 | (define-structure | |
13458 | define-expansion-accessors | |
13459 | define-expansion-constructors | |
13460 | and-map*) | |
13461 | ((top) (top) (top) (top)) | |
43353663 | 13462 | ("i41" "i40" "i39" "i37"))) |
b78d91d5 AW |
13463 | (hygiene guile)) |
13464 | '#(syntax-object | |
13465 | _ | |
13466 | ((top) | |
13467 | #(ribcage | |
13468 | #(pat exp) | |
13469 | #((top) (top)) | |
43353663 | 13470 | #("i3858" "i3859")) |
b78d91d5 AW |
13471 | #(ribcage () () ()) |
13472 | #(ribcage | |
13473 | #(x keys clauses r mod) | |
13474 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
13475 | #("i3847" |
13476 | "i3848" | |
13477 | "i3849" | |
13478 | "i3850" | |
13479 | "i3851")) | |
b78d91d5 AW |
13480 | #(ribcage |
13481 | (gen-syntax-case | |
13482 | gen-clause | |
13483 | build-dispatch-call | |
13484 | convert-pattern) | |
13485 | ((top) (top) (top) (top)) | |
43353663 AW |
13486 | ("i3671" |
13487 | "i3669" | |
13488 | "i3667" | |
13489 | "i3665")) | |
b78d91d5 AW |
13490 | #(ribcage |
13491 | (lambda-var-list | |
13492 | gen-var | |
13493 | strip | |
13494 | chi-lambda-case | |
13495 | lambda*-formals | |
13496 | chi-simple-lambda | |
13497 | lambda-formals | |
b78d91d5 AW |
13498 | ellipsis? |
13499 | chi-void | |
13500 | eval-local-transformer | |
13501 | chi-local-syntax | |
13502 | chi-body | |
13503 | chi-macro | |
13504 | chi-application | |
13505 | chi-expr | |
13506 | chi | |
b78d91d5 AW |
13507 | syntax-type |
13508 | chi-when-list | |
13509 | chi-install-global | |
13510 | chi-top-sequence | |
13511 | chi-sequence | |
13512 | source-wrap | |
13513 | wrap | |
13514 | bound-id-member? | |
13515 | distinct-bound-ids? | |
13516 | valid-bound-ids? | |
13517 | bound-id=? | |
13518 | free-id=? | |
13519 | id-var-name | |
13520 | same-marks? | |
13521 | join-marks | |
13522 | join-wraps | |
13523 | smart-append | |
13524 | make-binding-wrap | |
13525 | extend-ribcage! | |
13526 | make-empty-ribcage | |
13527 | new-mark | |
13528 | anti-mark | |
13529 | the-anti-mark | |
13530 | top-marked? | |
13531 | top-wrap | |
13532 | empty-wrap | |
13533 | set-ribcage-labels! | |
13534 | set-ribcage-marks! | |
13535 | set-ribcage-symnames! | |
13536 | ribcage-labels | |
13537 | ribcage-marks | |
13538 | ribcage-symnames | |
13539 | ribcage? | |
13540 | make-ribcage | |
13541 | gen-labels | |
13542 | gen-label | |
13543 | make-rename | |
13544 | rename-marks | |
13545 | rename-new | |
13546 | rename-old | |
13547 | subst-rename? | |
13548 | wrap-subst | |
13549 | wrap-marks | |
13550 | make-wrap | |
13551 | id-sym-name&marks | |
13552 | id-sym-name | |
13553 | id? | |
13554 | nonsymbol-id? | |
13555 | global-extend | |
13556 | lookup | |
13557 | macros-only-env | |
13558 | extend-var-env | |
13559 | extend-env | |
13560 | null-env | |
13561 | binding-value | |
13562 | binding-type | |
13563 | make-binding | |
13564 | arg-check | |
13565 | source-annotation | |
13566 | no-source | |
13567 | set-syntax-object-module! | |
13568 | set-syntax-object-wrap! | |
13569 | set-syntax-object-expression! | |
13570 | syntax-object-module | |
13571 | syntax-object-wrap | |
13572 | syntax-object-expression | |
13573 | syntax-object? | |
13574 | make-syntax-object | |
13575 | build-lexical-var | |
13576 | build-letrec | |
13577 | build-named-let | |
13578 | build-let | |
13579 | build-sequence | |
13580 | build-data | |
13581 | build-primref | |
13582 | build-lambda-case | |
13583 | build-case-lambda | |
13584 | build-simple-lambda | |
13585 | build-global-definition | |
13586 | build-global-assignment | |
13587 | build-global-reference | |
13588 | analyze-variable | |
13589 | build-lexical-assignment | |
13590 | build-lexical-reference | |
13591 | build-dynlet | |
13592 | build-conditional | |
13593 | build-application | |
13594 | build-void | |
13595 | maybe-name-value! | |
13596 | decorate-source | |
13597 | get-global-definition-hook | |
13598 | put-global-definition-hook | |
13599 | gensym-hook | |
13600 | local-eval-hook | |
13601 | top-level-eval-hook | |
13602 | fx< | |
13603 | fx= | |
13604 | fx- | |
13605 | fx+ | |
13606 | set-lambda-meta! | |
13607 | lambda-meta | |
13608 | lambda? | |
13609 | make-dynlet | |
13610 | make-letrec | |
13611 | make-let | |
13612 | make-lambda-case | |
13613 | make-lambda | |
13614 | make-sequence | |
13615 | make-application | |
13616 | make-conditional | |
13617 | make-toplevel-define | |
13618 | make-toplevel-set | |
13619 | make-toplevel-ref | |
13620 | make-module-set | |
13621 | make-module-ref | |
13622 | make-lexical-set | |
13623 | make-lexical-ref | |
13624 | make-primitive-ref | |
13625 | make-const | |
13626 | make-void) | |
13627 | ((top) | |
13628 | (top) | |
13629 | (top) | |
13630 | (top) | |
13631 | (top) | |
13632 | (top) | |
13633 | (top) | |
13634 | (top) | |
13635 | (top) | |
13636 | (top) | |
13637 | (top) | |
13638 | (top) | |
13639 | (top) | |
13640 | (top) | |
13641 | (top) | |
13642 | (top) | |
13643 | (top) | |
13644 | (top) | |
13645 | (top) | |
13646 | (top) | |
13647 | (top) | |
13648 | (top) | |
13649 | (top) | |
13650 | (top) | |
13651 | (top) | |
13652 | (top) | |
13653 | (top) | |
13654 | (top) | |
13655 | (top) | |
13656 | (top) | |
13657 | (top) | |
13658 | (top) | |
13659 | (top) | |
13660 | (top) | |
13661 | (top) | |
13662 | (top) | |
13663 | (top) | |
13664 | (top) | |
13665 | (top) | |
13666 | (top) | |
13667 | (top) | |
13668 | (top) | |
13669 | (top) | |
13670 | (top) | |
13671 | (top) | |
13672 | (top) | |
13673 | (top) | |
13674 | (top) | |
13675 | (top) | |
13676 | (top) | |
13677 | (top) | |
13678 | (top) | |
13679 | (top) | |
13680 | (top) | |
13681 | (top) | |
13682 | (top) | |
13683 | (top) | |
13684 | (top) | |
13685 | (top) | |
13686 | (top) | |
13687 | (top) | |
13688 | (top) | |
13689 | (top) | |
13690 | (top) | |
13691 | (top) | |
13692 | (top) | |
13693 | (top) | |
13694 | (top) | |
13695 | (top) | |
13696 | (top) | |
13697 | (top) | |
13698 | (top) | |
13699 | (top) | |
13700 | (top) | |
13701 | (top) | |
13702 | (top) | |
13703 | (top) | |
13704 | (top) | |
13705 | (top) | |
13706 | (top) | |
13707 | (top) | |
13708 | (top) | |
13709 | (top) | |
13710 | (top) | |
13711 | (top) | |
13712 | (top) | |
13713 | (top) | |
13714 | (top) | |
13715 | (top) | |
13716 | (top) | |
13717 | (top) | |
13718 | (top) | |
13719 | (top) | |
13720 | (top) | |
13721 | (top) | |
13722 | (top) | |
13723 | (top) | |
13724 | (top) | |
13725 | (top) | |
13726 | (top) | |
13727 | (top) | |
13728 | (top) | |
13729 | (top) | |
13730 | (top) | |
13731 | (top) | |
13732 | (top) | |
13733 | (top) | |
13734 | (top) | |
13735 | (top) | |
13736 | (top) | |
13737 | (top) | |
13738 | (top) | |
13739 | (top) | |
13740 | (top) | |
13741 | (top) | |
13742 | (top) | |
13743 | (top) | |
13744 | (top) | |
13745 | (top) | |
13746 | (top) | |
13747 | (top) | |
13748 | (top) | |
13749 | (top) | |
13750 | (top) | |
13751 | (top) | |
13752 | (top) | |
13753 | (top) | |
13754 | (top) | |
13755 | (top) | |
13756 | (top) | |
13757 | (top) | |
13758 | (top) | |
13759 | (top) | |
13760 | (top) | |
13761 | (top) | |
b78d91d5 | 13762 | (top)) |
43353663 AW |
13763 | ("i489" |
13764 | "i487" | |
13765 | "i485" | |
13766 | "i483" | |
13767 | "i481" | |
13768 | "i479" | |
13769 | "i477" | |
13770 | "i475" | |
13771 | "i473" | |
13772 | "i471" | |
13773 | "i469" | |
13774 | "i467" | |
13775 | "i465" | |
13776 | "i463" | |
13777 | "i461" | |
13778 | "i459" | |
13779 | "i457" | |
13780 | "i455" | |
13781 | "i453" | |
13782 | "i451" | |
13783 | "i449" | |
13784 | "i447" | |
13785 | "i445" | |
13786 | "i443" | |
13787 | "i441" | |
13788 | "i439" | |
13789 | "i437" | |
13790 | "i435" | |
13791 | "i433" | |
13792 | "i431" | |
13793 | "i429" | |
13794 | "i427" | |
13795 | "i425" | |
13796 | "i423" | |
13797 | "i421" | |
8f1870f2 | 13798 | "i420" |
b78d91d5 | 13799 | "i419" |
43353663 | 13800 | "i417" |
8f1870f2 | 13801 | "i416" |
381ccb0b | 13802 | "i415" |
d8e4f9e5 | 13803 | "i414" |
381ccb0b | 13804 | "i413" |
43353663 AW |
13805 | "i411" |
13806 | "i409" | |
13807 | "i407" | |
13808 | "i405" | |
13809 | "i403" | |
13810 | "i401" | |
13811 | "i399" | |
13812 | "i397" | |
13813 | "i394" | |
13814 | "i392" | |
8f1870f2 | 13815 | "i391" |
b78d91d5 | 13816 | "i390" |
381ccb0b | 13817 | "i389" |
d8e4f9e5 | 13818 | "i388" |
381ccb0b | 13819 | "i387" |
d8e4f9e5 | 13820 | "i386" |
381ccb0b | 13821 | "i385" |
d8e4f9e5 | 13822 | "i384" |
43353663 | 13823 | "i382" |
8f1870f2 | 13824 | "i381" |
43353663 AW |
13825 | "i379" |
13826 | "i377" | |
13827 | "i375" | |
13828 | "i373" | |
13829 | "i371" | |
13830 | "i369" | |
13831 | "i367" | |
8f1870f2 | 13832 | "i366" |
381ccb0b | 13833 | "i365" |
d8e4f9e5 | 13834 | "i364" |
381ccb0b | 13835 | "i363" |
d8e4f9e5 | 13836 | "i362" |
43353663 | 13837 | "i360" |
8f1870f2 | 13838 | "i359" |
43353663 AW |
13839 | "i357" |
13840 | "i355" | |
13841 | "i353" | |
13842 | "i351" | |
13843 | "i349" | |
13844 | "i347" | |
13845 | "i345" | |
13846 | "i343" | |
13847 | "i341" | |
13848 | "i339" | |
13849 | "i337" | |
13850 | "i335" | |
13851 | "i333" | |
13852 | "i331" | |
13853 | "i329" | |
13854 | "i327" | |
13855 | "i325" | |
13856 | "i323" | |
13857 | "i321" | |
13858 | "i319" | |
13859 | "i317" | |
13860 | "i315" | |
13861 | "i313" | |
13862 | "i311" | |
13863 | "i309" | |
13864 | "i307" | |
13865 | "i305" | |
13866 | "i303" | |
13867 | "i301" | |
13868 | "i299" | |
13869 | "i297" | |
13870 | "i295" | |
8f1870f2 | 13871 | "i294" |
43353663 AW |
13872 | "i292" |
13873 | "i290" | |
13874 | "i288" | |
13875 | "i286" | |
13876 | "i284" | |
13877 | "i282" | |
13878 | "i280" | |
13879 | "i278" | |
13880 | "i276" | |
13881 | "i273" | |
13882 | "i271" | |
13883 | "i269" | |
13884 | "i267" | |
13885 | "i265" | |
13886 | "i263" | |
13887 | "i261" | |
13888 | "i259" | |
13889 | "i257" | |
13890 | "i255" | |
13891 | "i253" | |
13892 | "i251" | |
13893 | "i249" | |
13894 | "i247" | |
13895 | "i245" | |
13896 | "i243" | |
13897 | "i241" | |
13898 | "i239")) | |
b78d91d5 AW |
13899 | #(ribcage |
13900 | (define-structure | |
13901 | define-expansion-accessors | |
13902 | define-expansion-constructors | |
13903 | and-map*) | |
13904 | ((top) (top) (top) (top)) | |
43353663 | 13905 | ("i41" "i40" "i39" "i37"))) |
b78d91d5 | 13906 | (hygiene guile))) |
43353663 AW |
13907 | (#{chi\ 460}# |
13908 | #{exp\ 3861}# | |
13909 | #{r\ 3845}# | |
b78d91d5 | 13910 | '(()) |
43353663 | 13911 | #{mod\ 3846}#) |
b78d91d5 | 13912 | (begin |
43353663 AW |
13913 | (let ((#{labels\ 3869}# |
13914 | (list (#{gen-label\ 393}#))) | |
13915 | (#{var\ 3870}# | |
13916 | (#{gen-var\ 488}# | |
13917 | #{pat\ 3860}#))) | |
13918 | (#{build-application\ 306}# | |
417ee098 | 13919 | #f |
43353663 | 13920 | (#{build-simple-lambda\ 324}# |
b78d91d5 AW |
13921 | #f |
13922 | (list (syntax->datum | |
43353663 | 13923 | #{pat\ 3860}#)) |
b78d91d5 | 13924 | #f |
43353663 | 13925 | (list #{var\ 3870}#) |
b78d91d5 | 13926 | '() |
43353663 AW |
13927 | (#{chi\ 460}# |
13928 | #{exp\ 3861}# | |
13929 | (#{extend-env\ 368}# | |
13930 | #{labels\ 3869}# | |
b78d91d5 | 13931 | (list (cons 'syntax |
43353663 | 13932 | (cons #{var\ 3870}# |
b78d91d5 | 13933 | 0))) |
43353663 AW |
13934 | #{r\ 3845}#) |
13935 | (#{make-binding-wrap\ 424}# | |
13936 | (list #{pat\ 3860}#) | |
13937 | #{labels\ 3869}# | |
b78d91d5 | 13938 | '(())) |
43353663 AW |
13939 | #{mod\ 3846}#)) |
13940 | (list #{x\ 3842}#))))) | |
13941 | (#{gen-clause\ 3670}# | |
13942 | #{x\ 3842}# | |
13943 | #{keys\ 3843}# | |
13944 | (cdr #{clauses\ 3844}#) | |
13945 | #{r\ 3845}# | |
13946 | #{pat\ 3860}# | |
417ee098 | 13947 | #t |
43353663 AW |
13948 | #{exp\ 3861}# |
13949 | #{mod\ 3846}#))) | |
13950 | #{tmp\ 3857}#) | |
13951 | (let ((#{tmp\ 3876}# | |
0f2b9f62 | 13952 | ($sc-dispatch |
43353663 | 13953 | #{tmp\ 3856}# |
417ee098 | 13954 | '(any any any)))) |
43353663 | 13955 | (if #{tmp\ 3876}# |
417ee098 | 13956 | (@apply |
43353663 AW |
13957 | (lambda (#{pat\ 3880}# |
13958 | #{fender\ 3881}# | |
13959 | #{exp\ 3882}#) | |
13960 | (#{gen-clause\ 3670}# | |
13961 | #{x\ 3842}# | |
13962 | #{keys\ 3843}# | |
13963 | (cdr #{clauses\ 3844}#) | |
13964 | #{r\ 3845}# | |
13965 | #{pat\ 3880}# | |
13966 | #{fender\ 3881}# | |
13967 | #{exp\ 3882}# | |
13968 | #{mod\ 3846}#)) | |
13969 | #{tmp\ 3876}#) | |
13970 | (let ((#{_\ 3884}# #{tmp\ 3856}#)) | |
417ee098 AW |
13971 | (syntax-violation |
13972 | 'syntax-case | |
13973 | "invalid clause" | |
43353663 | 13974 | (car #{clauses\ 3844}#)))))))))))) |
417ee098 | 13975 | (begin |
43353663 AW |
13976 | (lambda (#{e\ 3885}# |
13977 | #{r\ 3886}# | |
13978 | #{w\ 3887}# | |
13979 | #{s\ 3888}# | |
13980 | #{mod\ 3889}#) | |
417ee098 | 13981 | (begin |
43353663 AW |
13982 | (let ((#{e\ 3896}# |
13983 | (#{source-wrap\ 448}# | |
13984 | #{e\ 3885}# | |
13985 | #{w\ 3887}# | |
13986 | #{s\ 3888}# | |
13987 | #{mod\ 3889}#))) | |
13988 | (let ((#{tmp\ 3897}# #{e\ 3896}#)) | |
13989 | (let ((#{tmp\ 3898}# | |
417ee098 | 13990 | ($sc-dispatch |
43353663 | 13991 | #{tmp\ 3897}# |
b78d91d5 | 13992 | '(_ any each-any . each-any)))) |
43353663 | 13993 | (if #{tmp\ 3898}# |
417ee098 | 13994 | (@apply |
43353663 AW |
13995 | (lambda (#{val\ 3902}# |
13996 | #{key\ 3903}# | |
13997 | #{m\ 3904}#) | |
417ee098 | 13998 | (if (and-map |
43353663 AW |
13999 | (lambda (#{x\ 3905}#) |
14000 | (if (#{id?\ 380}# #{x\ 3905}#) | |
14001 | (not (#{ellipsis?\ 476}# | |
14002 | #{x\ 3905}#)) | |
417ee098 | 14003 | #f)) |
43353663 | 14004 | #{key\ 3903}#) |
417ee098 | 14005 | (begin |
43353663 AW |
14006 | (let ((#{x\ 3911}# |
14007 | (#{gen-var\ 488}# 'tmp))) | |
14008 | (#{build-application\ 306}# | |
14009 | #{s\ 3888}# | |
14010 | (#{build-simple-lambda\ 324}# | |
417ee098 | 14011 | #f |
8f1870f2 | 14012 | (list 'tmp) |
417ee098 | 14013 | #f |
43353663 | 14014 | (list #{x\ 3911}#) |
417ee098 | 14015 | '() |
43353663 AW |
14016 | (#{gen-syntax-case\ 3672}# |
14017 | (#{build-lexical-reference\ 312}# | |
417ee098 AW |
14018 | 'value |
14019 | #f | |
14020 | 'tmp | |
43353663 AW |
14021 | #{x\ 3911}#) |
14022 | #{key\ 3903}# | |
14023 | #{m\ 3904}# | |
14024 | #{r\ 3886}# | |
14025 | #{mod\ 3889}#)) | |
14026 | (list (#{chi\ 460}# | |
14027 | #{val\ 3902}# | |
14028 | #{r\ 3886}# | |
417ee098 | 14029 | '(()) |
43353663 | 14030 | #{mod\ 3889}#))))) |
417ee098 AW |
14031 | (syntax-violation |
14032 | 'syntax-case | |
14033 | "invalid literals list" | |
43353663 AW |
14034 | #{e\ 3896}#))) |
14035 | #{tmp\ 3898}#) | |
417ee098 AW |
14036 | (syntax-violation |
14037 | #f | |
14038 | "source expression failed to match any pattern" | |
43353663 | 14039 | #{tmp\ 3897}#)))))))))) |
417ee098 AW |
14040 | (set! macroexpand |
14041 | (lambda* | |
43353663 | 14042 | (#{x\ 3917}# |
417ee098 | 14043 | #:optional |
43353663 AW |
14044 | (#{m\ 3919}# 'e) |
14045 | (#{esew\ 3921}# '(eval))) | |
14046 | (#{chi-top-sequence\ 452}# | |
14047 | (list #{x\ 3917}#) | |
417ee098 AW |
14048 | '() |
14049 | '((top)) | |
43353663 AW |
14050 | #f |
14051 | #{m\ 3919}# | |
14052 | #{esew\ 3921}# | |
8f1870f2 | 14053 | (cons 'hygiene (module-name (current-module)))))) |
417ee098 | 14054 | (set! identifier? |
43353663 AW |
14055 | (lambda (#{x\ 3925}#) |
14056 | (#{nonsymbol-id?\ 378}# #{x\ 3925}#))) | |
417ee098 | 14057 | (set! datum->syntax |
43353663 AW |
14058 | (lambda (#{id\ 3927}# #{datum\ 3928}#) |
14059 | (#{make-syntax-object\ 344}# | |
14060 | #{datum\ 3928}# | |
14061 | (#{syntax-object-wrap\ 350}# #{id\ 3927}#) | |
14062 | (#{syntax-object-module\ 352}# #{id\ 3927}#)))) | |
417ee098 | 14063 | (set! syntax->datum |
43353663 AW |
14064 | (lambda (#{x\ 3931}#) |
14065 | (#{strip\ 486}# #{x\ 3931}# '(())))) | |
417ee098 | 14066 | (set! syntax-source |
43353663 AW |
14067 | (lambda (#{x\ 3934}#) |
14068 | (#{source-annotation\ 361}# #{x\ 3934}#))) | |
417ee098 | 14069 | (set! generate-temporaries |
43353663 | 14070 | (lambda (#{ls\ 3936}#) |
417ee098 AW |
14071 | (begin |
14072 | (begin | |
43353663 AW |
14073 | (let ((#{x\ 3940}# #{ls\ 3936}#)) |
14074 | (if (not (list? #{x\ 3940}#)) | |
417ee098 AW |
14075 | (syntax-violation |
14076 | 'generate-temporaries | |
14077 | "invalid argument" | |
43353663 AW |
14078 | #{x\ 3940}#)))) |
14079 | (map (lambda (#{x\ 3941}#) | |
14080 | (#{wrap\ 446}# (gensym) '((top)) #f)) | |
14081 | #{ls\ 3936}#)))) | |
417ee098 | 14082 | (set! free-identifier=? |
43353663 | 14083 | (lambda (#{x\ 3945}# #{y\ 3946}#) |
417ee098 AW |
14084 | (begin |
14085 | (begin | |
43353663 AW |
14086 | (let ((#{x\ 3951}# #{x\ 3945}#)) |
14087 | (if (not (#{nonsymbol-id?\ 378}# #{x\ 3951}#)) | |
417ee098 AW |
14088 | (syntax-violation |
14089 | 'free-identifier=? | |
14090 | "invalid argument" | |
43353663 | 14091 | #{x\ 3951}#)))) |
417ee098 | 14092 | (begin |
43353663 AW |
14093 | (let ((#{x\ 3954}# #{y\ 3946}#)) |
14094 | (if (not (#{nonsymbol-id?\ 378}# #{x\ 3954}#)) | |
417ee098 AW |
14095 | (syntax-violation |
14096 | 'free-identifier=? | |
14097 | "invalid argument" | |
43353663 AW |
14098 | #{x\ 3954}#)))) |
14099 | (#{free-id=?\ 436}# #{x\ 3945}# #{y\ 3946}#)))) | |
417ee098 | 14100 | (set! bound-identifier=? |
43353663 | 14101 | (lambda (#{x\ 3955}# #{y\ 3956}#) |
417ee098 AW |
14102 | (begin |
14103 | (begin | |
43353663 AW |
14104 | (let ((#{x\ 3961}# #{x\ 3955}#)) |
14105 | (if (not (#{nonsymbol-id?\ 378}# #{x\ 3961}#)) | |
417ee098 AW |
14106 | (syntax-violation |
14107 | 'bound-identifier=? | |
14108 | "invalid argument" | |
43353663 | 14109 | #{x\ 3961}#)))) |
417ee098 | 14110 | (begin |
43353663 AW |
14111 | (let ((#{x\ 3964}# #{y\ 3956}#)) |
14112 | (if (not (#{nonsymbol-id?\ 378}# #{x\ 3964}#)) | |
417ee098 AW |
14113 | (syntax-violation |
14114 | 'bound-identifier=? | |
14115 | "invalid argument" | |
43353663 AW |
14116 | #{x\ 3964}#)))) |
14117 | (#{bound-id=?\ 438}# #{x\ 3955}# #{y\ 3956}#)))) | |
417ee098 | 14118 | (set! syntax-violation |
8f1870f2 | 14119 | (lambda* |
43353663 AW |
14120 | (#{who\ 3965}# |
14121 | #{message\ 3966}# | |
14122 | #{form\ 3967}# | |
8f1870f2 | 14123 | #:optional |
43353663 | 14124 | (#{subform\ 3971}# #f)) |
417ee098 AW |
14125 | (begin |
14126 | (begin | |
43353663 AW |
14127 | (let ((#{x\ 3975}# #{who\ 3965}#)) |
14128 | (if (not (let ((#{x\ 3976}# #{x\ 3975}#)) | |
417ee098 | 14129 | (begin |
43353663 AW |
14130 | (let ((#{t\ 3980}# (not #{x\ 3976}#))) |
14131 | (if #{t\ 3980}# | |
14132 | #{t\ 3980}# | |
417ee098 | 14133 | (begin |
43353663 AW |
14134 | (let ((#{t\ 3983}# |
14135 | (string? #{x\ 3976}#))) | |
14136 | (if #{t\ 3983}# | |
14137 | #{t\ 3983}# | |
14138 | (symbol? #{x\ 3976}#))))))))) | |
417ee098 AW |
14139 | (syntax-violation |
14140 | 'syntax-violation | |
14141 | "invalid argument" | |
43353663 | 14142 | #{x\ 3975}#)))) |
417ee098 | 14143 | (begin |
43353663 AW |
14144 | (let ((#{x\ 3987}# #{message\ 3966}#)) |
14145 | (if (not (string? #{x\ 3987}#)) | |
417ee098 AW |
14146 | (syntax-violation |
14147 | 'syntax-violation | |
14148 | "invalid argument" | |
43353663 | 14149 | #{x\ 3987}#)))) |
8f1870f2 | 14150 | (throw 'syntax-error |
43353663 AW |
14151 | #{who\ 3965}# |
14152 | #{message\ 3966}# | |
14153 | (#{source-annotation\ 361}# | |
8f1870f2 | 14154 | (begin |
43353663 AW |
14155 | (let ((#{t\ 3990}# #{form\ 3967}#)) |
14156 | (if #{t\ 3990}# | |
14157 | #{t\ 3990}# | |
14158 | #{subform\ 3971}#)))) | |
14159 | (#{strip\ 486}# #{form\ 3967}# '(())) | |
14160 | (if #{subform\ 3971}# | |
14161 | (#{strip\ 486}# #{subform\ 3971}# '(())) | |
8f1870f2 | 14162 | #f))))) |
417ee098 | 14163 | (letrec* |
43353663 AW |
14164 | ((#{match-each\ 3997}# |
14165 | (lambda (#{e\ 4010}# | |
14166 | #{p\ 4011}# | |
14167 | #{w\ 4012}# | |
14168 | #{mod\ 4013}#) | |
14169 | (if (pair? #{e\ 4010}#) | |
5f8c55ce | 14170 | (begin |
43353663 AW |
14171 | (let ((#{first\ 4021}# |
14172 | (#{match\ 4009}# | |
14173 | (car #{e\ 4010}#) | |
14174 | #{p\ 4011}# | |
14175 | #{w\ 4012}# | |
5f8c55ce | 14176 | '() |
43353663 AW |
14177 | #{mod\ 4013}#))) |
14178 | (if #{first\ 4021}# | |
5f8c55ce | 14179 | (begin |
43353663 AW |
14180 | (let ((#{rest\ 4025}# |
14181 | (#{match-each\ 3997}# | |
14182 | (cdr #{e\ 4010}#) | |
14183 | #{p\ 4011}# | |
14184 | #{w\ 4012}# | |
14185 | #{mod\ 4013}#))) | |
14186 | (if #{rest\ 4025}# | |
14187 | (cons #{first\ 4021}# #{rest\ 4025}#) | |
5f8c55ce AW |
14188 | #f))) |
14189 | #f))) | |
43353663 | 14190 | (if (null? #{e\ 4010}#) |
5f8c55ce | 14191 | '() |
43353663 AW |
14192 | (if (#{syntax-object?\ 346}# #{e\ 4010}#) |
14193 | (#{match-each\ 3997}# | |
14194 | (#{syntax-object-expression\ 348}# #{e\ 4010}#) | |
14195 | #{p\ 4011}# | |
14196 | (#{join-wraps\ 428}# | |
14197 | #{w\ 4012}# | |
14198 | (#{syntax-object-wrap\ 350}# #{e\ 4010}#)) | |
14199 | (#{syntax-object-module\ 352}# #{e\ 4010}#)) | |
5f8c55ce | 14200 | #f))))) |
43353663 AW |
14201 | (#{match-each+\ 3999}# |
14202 | (lambda (#{e\ 4033}# | |
14203 | #{x-pat\ 4034}# | |
14204 | #{y-pat\ 4035}# | |
14205 | #{z-pat\ 4036}# | |
14206 | #{w\ 4037}# | |
14207 | #{r\ 4038}# | |
14208 | #{mod\ 4039}#) | |
5f8c55ce | 14209 | (letrec* |
43353663 AW |
14210 | ((#{f\ 4050}# |
14211 | (lambda (#{e\ 4051}# #{w\ 4052}#) | |
14212 | (if (pair? #{e\ 4051}#) | |
5f8c55ce AW |
14213 | (call-with-values |
14214 | (lambda () | |
43353663 AW |
14215 | (#{f\ 4050}# (cdr #{e\ 4051}#) #{w\ 4052}#)) |
14216 | (lambda (#{xr*\ 4055}# | |
14217 | #{y-pat\ 4056}# | |
14218 | #{r\ 4057}#) | |
14219 | (if #{r\ 4057}# | |
14220 | (if (null? #{y-pat\ 4056}#) | |
5f8c55ce | 14221 | (begin |
43353663 AW |
14222 | (let ((#{xr\ 4062}# |
14223 | (#{match\ 4009}# | |
14224 | (car #{e\ 4051}#) | |
14225 | #{x-pat\ 4034}# | |
14226 | #{w\ 4052}# | |
5f8c55ce | 14227 | '() |
43353663 AW |
14228 | #{mod\ 4039}#))) |
14229 | (if #{xr\ 4062}# | |
5f8c55ce | 14230 | (values |
43353663 AW |
14231 | (cons #{xr\ 4062}# #{xr*\ 4055}#) |
14232 | #{y-pat\ 4056}# | |
14233 | #{r\ 4057}#) | |
5f8c55ce AW |
14234 | (values #f #f #f)))) |
14235 | (values | |
14236 | '() | |
43353663 AW |
14237 | (cdr #{y-pat\ 4056}#) |
14238 | (#{match\ 4009}# | |
14239 | (car #{e\ 4051}#) | |
14240 | (car #{y-pat\ 4056}#) | |
14241 | #{w\ 4052}# | |
14242 | #{r\ 4057}# | |
14243 | #{mod\ 4039}#))) | |
5f8c55ce | 14244 | (values #f #f #f)))) |
43353663 AW |
14245 | (if (#{syntax-object?\ 346}# #{e\ 4051}#) |
14246 | (#{f\ 4050}# | |
14247 | (#{syntax-object-expression\ 348}# #{e\ 4051}#) | |
14248 | (#{join-wraps\ 428}# #{w\ 4052}# #{e\ 4051}#)) | |
5f8c55ce AW |
14249 | (values |
14250 | '() | |
43353663 AW |
14251 | #{y-pat\ 4035}# |
14252 | (#{match\ 4009}# | |
14253 | #{e\ 4051}# | |
14254 | #{z-pat\ 4036}# | |
14255 | #{w\ 4052}# | |
14256 | #{r\ 4038}# | |
14257 | #{mod\ 4039}#))))))) | |
14258 | (begin (#{f\ 4050}# #{e\ 4033}# #{w\ 4037}#))))) | |
14259 | (#{match-each-any\ 4001}# | |
14260 | (lambda (#{e\ 4066}# #{w\ 4067}# #{mod\ 4068}#) | |
14261 | (if (pair? #{e\ 4066}#) | |
5f8c55ce | 14262 | (begin |
43353663 AW |
14263 | (let ((#{l\ 4075}# |
14264 | (#{match-each-any\ 4001}# | |
14265 | (cdr #{e\ 4066}#) | |
14266 | #{w\ 4067}# | |
14267 | #{mod\ 4068}#))) | |
14268 | (if #{l\ 4075}# | |
14269 | (cons (#{wrap\ 446}# | |
14270 | (car #{e\ 4066}#) | |
14271 | #{w\ 4067}# | |
14272 | #{mod\ 4068}#) | |
14273 | #{l\ 4075}#) | |
5f8c55ce | 14274 | #f))) |
43353663 | 14275 | (if (null? #{e\ 4066}#) |
5f8c55ce | 14276 | '() |
43353663 AW |
14277 | (if (#{syntax-object?\ 346}# #{e\ 4066}#) |
14278 | (#{match-each-any\ 4001}# | |
14279 | (#{syntax-object-expression\ 348}# #{e\ 4066}#) | |
14280 | (#{join-wraps\ 428}# | |
14281 | #{w\ 4067}# | |
14282 | (#{syntax-object-wrap\ 350}# #{e\ 4066}#)) | |
14283 | #{mod\ 4068}#) | |
5f8c55ce | 14284 | #f))))) |
43353663 AW |
14285 | (#{match-empty\ 4003}# |
14286 | (lambda (#{p\ 4083}# #{r\ 4084}#) | |
14287 | (if (null? #{p\ 4083}#) | |
14288 | #{r\ 4084}# | |
14289 | (if (eq? #{p\ 4083}# '_) | |
14290 | #{r\ 4084}# | |
14291 | (if (eq? #{p\ 4083}# 'any) | |
14292 | (cons '() #{r\ 4084}#) | |
14293 | (if (pair? #{p\ 4083}#) | |
14294 | (#{match-empty\ 4003}# | |
14295 | (car #{p\ 4083}#) | |
14296 | (#{match-empty\ 4003}# | |
14297 | (cdr #{p\ 4083}#) | |
14298 | #{r\ 4084}#)) | |
14299 | (if (eq? #{p\ 4083}# 'each-any) | |
14300 | (cons '() #{r\ 4084}#) | |
b78d91d5 | 14301 | (begin |
43353663 AW |
14302 | (let ((#{atom-key\ 4100}# |
14303 | (vector-ref #{p\ 4083}# 0))) | |
14304 | (if (eqv? #{atom-key\ 4100}# 'each) | |
14305 | (#{match-empty\ 4003}# | |
14306 | (vector-ref #{p\ 4083}# 1) | |
14307 | #{r\ 4084}#) | |
14308 | (if (eqv? #{atom-key\ 4100}# 'each+) | |
14309 | (#{match-empty\ 4003}# | |
14310 | (vector-ref #{p\ 4083}# 1) | |
14311 | (#{match-empty\ 4003}# | |
14312 | (reverse (vector-ref #{p\ 4083}# 2)) | |
14313 | (#{match-empty\ 4003}# | |
14314 | (vector-ref #{p\ 4083}# 3) | |
14315 | #{r\ 4084}#))) | |
14316 | (if (if (eqv? #{atom-key\ 4100}# 'free-id) | |
b78d91d5 | 14317 | #t |
43353663 AW |
14318 | (eqv? #{atom-key\ 4100}# 'atom)) |
14319 | #{r\ 4084}# | |
14320 | (if (eqv? #{atom-key\ 4100}# 'vector) | |
14321 | (#{match-empty\ 4003}# | |
14322 | (vector-ref #{p\ 4083}# 1) | |
14323 | #{r\ 4084}#)))))))))))))) | |
14324 | (#{combine\ 4005}# | |
14325 | (lambda (#{r*\ 4105}# #{r\ 4106}#) | |
14326 | (if (null? (car #{r*\ 4105}#)) | |
14327 | #{r\ 4106}# | |
14328 | (cons (map car #{r*\ 4105}#) | |
14329 | (#{combine\ 4005}# | |
14330 | (map cdr #{r*\ 4105}#) | |
14331 | #{r\ 4106}#))))) | |
14332 | (#{match*\ 4007}# | |
14333 | (lambda (#{e\ 4109}# | |
14334 | #{p\ 4110}# | |
14335 | #{w\ 4111}# | |
14336 | #{r\ 4112}# | |
14337 | #{mod\ 4113}#) | |
14338 | (if (null? #{p\ 4110}#) | |
14339 | (if (null? #{e\ 4109}#) #{r\ 4112}# #f) | |
14340 | (if (pair? #{p\ 4110}#) | |
14341 | (if (pair? #{e\ 4109}#) | |
14342 | (#{match\ 4009}# | |
14343 | (car #{e\ 4109}#) | |
14344 | (car #{p\ 4110}#) | |
14345 | #{w\ 4111}# | |
14346 | (#{match\ 4009}# | |
14347 | (cdr #{e\ 4109}#) | |
14348 | (cdr #{p\ 4110}#) | |
14349 | #{w\ 4111}# | |
14350 | #{r\ 4112}# | |
14351 | #{mod\ 4113}#) | |
14352 | #{mod\ 4113}#) | |
417ee098 | 14353 | #f) |
43353663 | 14354 | (if (eq? #{p\ 4110}# 'each-any) |
417ee098 | 14355 | (begin |
43353663 AW |
14356 | (let ((#{l\ 4130}# |
14357 | (#{match-each-any\ 4001}# | |
14358 | #{e\ 4109}# | |
14359 | #{w\ 4111}# | |
14360 | #{mod\ 4113}#))) | |
14361 | (if #{l\ 4130}# | |
14362 | (cons #{l\ 4130}# #{r\ 4112}#) | |
0f2b9f62 | 14363 | #f))) |
417ee098 | 14364 | (begin |
43353663 AW |
14365 | (let ((#{atom-key\ 4136}# |
14366 | (vector-ref #{p\ 4110}# 0))) | |
14367 | (if (eqv? #{atom-key\ 4136}# 'each) | |
14368 | (if (null? #{e\ 4109}#) | |
14369 | (#{match-empty\ 4003}# | |
14370 | (vector-ref #{p\ 4110}# 1) | |
14371 | #{r\ 4112}#) | |
417ee098 | 14372 | (begin |
43353663 AW |
14373 | (let ((#{l\ 4139}# |
14374 | (#{match-each\ 3997}# | |
14375 | #{e\ 4109}# | |
14376 | (vector-ref #{p\ 4110}# 1) | |
14377 | #{w\ 4111}# | |
14378 | #{mod\ 4113}#))) | |
14379 | (if #{l\ 4139}# | |
417ee098 | 14380 | (letrec* |
43353663 AW |
14381 | ((#{collect\ 4144}# |
14382 | (lambda (#{l\ 4145}#) | |
14383 | (if (null? (car #{l\ 4145}#)) | |
14384 | #{r\ 4112}# | |
14385 | (cons (map car #{l\ 4145}#) | |
14386 | (#{collect\ 4144}# | |
417ee098 | 14387 | (map cdr |
43353663 | 14388 | #{l\ 4145}#))))))) |
417ee098 | 14389 | (begin |
43353663 | 14390 | (#{collect\ 4144}# #{l\ 4139}#))) |
417ee098 | 14391 | #f)))) |
43353663 | 14392 | (if (eqv? #{atom-key\ 4136}# 'each+) |
417ee098 AW |
14393 | (call-with-values |
14394 | (lambda () | |
43353663 AW |
14395 | (#{match-each+\ 3999}# |
14396 | #{e\ 4109}# | |
14397 | (vector-ref #{p\ 4110}# 1) | |
14398 | (vector-ref #{p\ 4110}# 2) | |
14399 | (vector-ref #{p\ 4110}# 3) | |
14400 | #{w\ 4111}# | |
14401 | #{r\ 4112}# | |
14402 | #{mod\ 4113}#)) | |
14403 | (lambda (#{xr*\ 4147}# | |
14404 | #{y-pat\ 4148}# | |
14405 | #{r\ 4149}#) | |
14406 | (if #{r\ 4149}# | |
14407 | (if (null? #{y-pat\ 4148}#) | |
14408 | (if (null? #{xr*\ 4147}#) | |
14409 | (#{match-empty\ 4003}# | |
14410 | (vector-ref #{p\ 4110}# 1) | |
14411 | #{r\ 4149}#) | |
14412 | (#{combine\ 4005}# | |
14413 | #{xr*\ 4147}# | |
14414 | #{r\ 4149}#)) | |
417ee098 AW |
14415 | #f) |
14416 | #f))) | |
43353663 AW |
14417 | (if (eqv? #{atom-key\ 4136}# 'free-id) |
14418 | (if (#{id?\ 380}# #{e\ 4109}#) | |
14419 | (if (#{free-id=?\ 436}# | |
14420 | (#{wrap\ 446}# | |
14421 | #{e\ 4109}# | |
14422 | #{w\ 4111}# | |
14423 | #{mod\ 4113}#) | |
14424 | (vector-ref #{p\ 4110}# 1)) | |
14425 | #{r\ 4112}# | |
417ee098 AW |
14426 | #f) |
14427 | #f) | |
43353663 | 14428 | (if (eqv? #{atom-key\ 4136}# 'atom) |
417ee098 | 14429 | (if (equal? |
43353663 AW |
14430 | (vector-ref #{p\ 4110}# 1) |
14431 | (#{strip\ 486}# | |
14432 | #{e\ 4109}# | |
14433 | #{w\ 4111}#)) | |
14434 | #{r\ 4112}# | |
417ee098 | 14435 | #f) |
43353663 AW |
14436 | (if (eqv? #{atom-key\ 4136}# 'vector) |
14437 | (if (vector? #{e\ 4109}#) | |
14438 | (#{match\ 4009}# | |
14439 | (vector->list #{e\ 4109}#) | |
14440 | (vector-ref #{p\ 4110}# 1) | |
14441 | #{w\ 4111}# | |
14442 | #{r\ 4112}# | |
14443 | #{mod\ 4113}#) | |
417ee098 | 14444 | #f))))))))))))) |
43353663 AW |
14445 | (#{match\ 4009}# |
14446 | (lambda (#{e\ 4166}# | |
14447 | #{p\ 4167}# | |
14448 | #{w\ 4168}# | |
14449 | #{r\ 4169}# | |
14450 | #{mod\ 4170}#) | |
14451 | (if (not #{r\ 4169}#) | |
5f8c55ce | 14452 | #f |
43353663 AW |
14453 | (if (eq? #{p\ 4167}# '_) |
14454 | #{r\ 4169}# | |
14455 | (if (eq? #{p\ 4167}# 'any) | |
14456 | (cons (#{wrap\ 446}# | |
14457 | #{e\ 4166}# | |
14458 | #{w\ 4168}# | |
14459 | #{mod\ 4170}#) | |
14460 | #{r\ 4169}#) | |
14461 | (if (#{syntax-object?\ 346}# #{e\ 4166}#) | |
14462 | (#{match*\ 4007}# | |
14463 | (#{syntax-object-expression\ 348}# #{e\ 4166}#) | |
14464 | #{p\ 4167}# | |
14465 | (#{join-wraps\ 428}# | |
14466 | #{w\ 4168}# | |
14467 | (#{syntax-object-wrap\ 350}# #{e\ 4166}#)) | |
14468 | #{r\ 4169}# | |
14469 | (#{syntax-object-module\ 352}# #{e\ 4166}#)) | |
14470 | (#{match*\ 4007}# | |
14471 | #{e\ 4166}# | |
14472 | #{p\ 4167}# | |
14473 | #{w\ 4168}# | |
14474 | #{r\ 4169}# | |
14475 | #{mod\ 4170}#)))))))) | |
417ee098 AW |
14476 | (begin |
14477 | (set! $sc-dispatch | |
43353663 AW |
14478 | (lambda (#{e\ 4185}# #{p\ 4186}#) |
14479 | (if (eq? #{p\ 4186}# 'any) | |
14480 | (list #{e\ 4185}#) | |
14481 | (if (eq? #{p\ 4186}# '_) | |
b78d91d5 | 14482 | '() |
43353663 AW |
14483 | (if (#{syntax-object?\ 346}# #{e\ 4185}#) |
14484 | (#{match*\ 4007}# | |
14485 | (#{syntax-object-expression\ 348}# #{e\ 4185}#) | |
14486 | #{p\ 4186}# | |
14487 | (#{syntax-object-wrap\ 350}# #{e\ 4185}#) | |
b78d91d5 | 14488 | '() |
43353663 AW |
14489 | (#{syntax-object-module\ 352}# #{e\ 4185}#)) |
14490 | (#{match*\ 4007}# | |
14491 | #{e\ 4185}# | |
14492 | #{p\ 4186}# | |
b78d91d5 AW |
14493 | '(()) |
14494 | '() | |
14495 | #f)))))))))))))) | |
65dd9e38 AW |
14496 | |
14497 | (define with-syntax | |
e809758a AW |
14498 | (make-syntax-transformer |
14499 | 'with-syntax | |
65dd9e38 | 14500 | 'macro |
43353663 AW |
14501 | (lambda (#{x\ 4197}#) |
14502 | (let ((#{tmp\ 4199}# #{x\ 4197}#)) | |
14503 | (let ((#{tmp\ 4200}# | |
417ee098 | 14504 | ($sc-dispatch |
43353663 | 14505 | #{tmp\ 4199}# |
b78d91d5 | 14506 | '(_ () any . each-any)))) |
43353663 | 14507 | (if #{tmp\ 4200}# |
417ee098 | 14508 | (@apply |
43353663 | 14509 | (lambda (#{e1\ 4203}# #{e2\ 4204}#) |
417ee098 | 14510 | (cons '#(syntax-object |
f929b9e5 | 14511 | let |
417ee098 AW |
14512 | ((top) |
14513 | #(ribcage | |
b78d91d5 AW |
14514 | #(e1 e2) |
14515 | #((top) (top)) | |
43353663 | 14516 | #("i4201" "i4202")) |
417ee098 | 14517 | #(ribcage () () ()) |
43353663 | 14518 | #(ribcage #(x) #((top)) #("i4198"))) |
417ee098 | 14519 | (hygiene guile)) |
f929b9e5 | 14520 | (cons '() (cons #{e1\ 4203}# #{e2\ 4204}#)))) |
43353663 AW |
14521 | #{tmp\ 4200}#) |
14522 | (let ((#{tmp\ 4206}# | |
f42d8bd8 | 14523 | ($sc-dispatch |
43353663 | 14524 | #{tmp\ 4199}# |
b78d91d5 | 14525 | '(_ ((any any)) any . each-any)))) |
43353663 | 14526 | (if #{tmp\ 4206}# |
417ee098 | 14527 | (@apply |
43353663 AW |
14528 | (lambda (#{out\ 4211}# |
14529 | #{in\ 4212}# | |
14530 | #{e1\ 4213}# | |
14531 | #{e2\ 4214}#) | |
417ee098 AW |
14532 | (list '#(syntax-object |
14533 | syntax-case | |
14534 | ((top) | |
14535 | #(ribcage | |
b78d91d5 AW |
14536 | #(out in e1 e2) |
14537 | #((top) (top) (top) (top)) | |
43353663 | 14538 | #("i4207" "i4208" "i4209" "i4210")) |
417ee098 | 14539 | #(ribcage () () ()) |
43353663 | 14540 | #(ribcage #(x) #((top)) #("i4198"))) |
417ee098 | 14541 | (hygiene guile)) |
43353663 | 14542 | #{in\ 4212}# |
417ee098 | 14543 | '() |
43353663 | 14544 | (list #{out\ 4211}# |
417ee098 | 14545 | (cons '#(syntax-object |
f929b9e5 | 14546 | let |
417ee098 AW |
14547 | ((top) |
14548 | #(ribcage | |
b78d91d5 AW |
14549 | #(out in e1 e2) |
14550 | #((top) (top) (top) (top)) | |
43353663 | 14551 | #("i4207" "i4208" "i4209" "i4210")) |
417ee098 | 14552 | #(ribcage () () ()) |
43353663 | 14553 | #(ribcage #(x) #((top)) #("i4198"))) |
417ee098 | 14554 | (hygiene guile)) |
f929b9e5 AW |
14555 | (cons '() |
14556 | (cons #{e1\ 4213}# | |
14557 | #{e2\ 4214}#)))))) | |
43353663 AW |
14558 | #{tmp\ 4206}#) |
14559 | (let ((#{tmp\ 4216}# | |
417ee098 | 14560 | ($sc-dispatch |
43353663 | 14561 | #{tmp\ 4199}# |
b78d91d5 | 14562 | '(_ #(each (any any)) any . each-any)))) |
43353663 | 14563 | (if #{tmp\ 4216}# |
417ee098 | 14564 | (@apply |
43353663 AW |
14565 | (lambda (#{out\ 4221}# |
14566 | #{in\ 4222}# | |
14567 | #{e1\ 4223}# | |
14568 | #{e2\ 4224}#) | |
417ee098 AW |
14569 | (list '#(syntax-object |
14570 | syntax-case | |
14571 | ((top) | |
14572 | #(ribcage | |
b78d91d5 AW |
14573 | #(out in e1 e2) |
14574 | #((top) (top) (top) (top)) | |
43353663 | 14575 | #("i4217" "i4218" "i4219" "i4220")) |
417ee098 | 14576 | #(ribcage () () ()) |
43353663 | 14577 | #(ribcage #(x) #((top)) #("i4198"))) |
417ee098 AW |
14578 | (hygiene guile)) |
14579 | (cons '#(syntax-object | |
14580 | list | |
14581 | ((top) | |
14582 | #(ribcage | |
b78d91d5 AW |
14583 | #(out in e1 e2) |
14584 | #((top) (top) (top) (top)) | |
43353663 | 14585 | #("i4217" "i4218" "i4219" "i4220")) |
417ee098 | 14586 | #(ribcage () () ()) |
43353663 | 14587 | #(ribcage #(x) #((top)) #("i4198"))) |
417ee098 | 14588 | (hygiene guile)) |
43353663 | 14589 | #{in\ 4222}#) |
417ee098 | 14590 | '() |
43353663 | 14591 | (list #{out\ 4221}# |
417ee098 | 14592 | (cons '#(syntax-object |
f929b9e5 | 14593 | let |
417ee098 AW |
14594 | ((top) |
14595 | #(ribcage | |
b78d91d5 AW |
14596 | #(out in e1 e2) |
14597 | #((top) (top) (top) (top)) | |
43353663 AW |
14598 | #("i4217" |
14599 | "i4218" | |
14600 | "i4219" | |
14601 | "i4220")) | |
417ee098 AW |
14602 | #(ribcage () () ()) |
14603 | #(ribcage | |
14604 | #(x) | |
14605 | #((top)) | |
43353663 | 14606 | #("i4198"))) |
417ee098 | 14607 | (hygiene guile)) |
f929b9e5 AW |
14608 | (cons '() |
14609 | (cons #{e1\ 4223}# | |
14610 | #{e2\ 4224}#)))))) | |
43353663 | 14611 | #{tmp\ 4216}#) |
417ee098 AW |
14612 | (syntax-violation |
14613 | #f | |
14614 | "source expression failed to match any pattern" | |
43353663 | 14615 | #{tmp\ 4199}#))))))))))) |
65dd9e38 AW |
14616 | |
14617 | (define syntax-rules | |
e809758a AW |
14618 | (make-syntax-transformer |
14619 | 'syntax-rules | |
65dd9e38 | 14620 | 'macro |
43353663 AW |
14621 | (lambda (#{x\ 4228}#) |
14622 | (let ((#{tmp\ 4230}# #{x\ 4228}#)) | |
14623 | (let ((#{tmp\ 4231}# | |
417ee098 | 14624 | ($sc-dispatch |
43353663 | 14625 | #{tmp\ 4230}# |
b78d91d5 | 14626 | '(_ each-any . #(each ((any . any) any)))))) |
43353663 | 14627 | (if #{tmp\ 4231}# |
417ee098 | 14628 | (@apply |
43353663 AW |
14629 | (lambda (#{k\ 4236}# |
14630 | #{keyword\ 4237}# | |
14631 | #{pattern\ 4238}# | |
14632 | #{template\ 4239}#) | |
417ee098 AW |
14633 | (list '#(syntax-object |
14634 | lambda | |
14635 | ((top) | |
14636 | #(ribcage | |
b78d91d5 AW |
14637 | #(k keyword pattern template) |
14638 | #((top) (top) (top) (top)) | |
43353663 | 14639 | #("i4232" "i4233" "i4234" "i4235")) |
417ee098 | 14640 | #(ribcage () () ()) |
43353663 | 14641 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 AW |
14642 | (hygiene guile)) |
14643 | '(#(syntax-object | |
14644 | x | |
14645 | ((top) | |
14646 | #(ribcage | |
b78d91d5 AW |
14647 | #(k keyword pattern template) |
14648 | #((top) (top) (top) (top)) | |
43353663 | 14649 | #("i4232" "i4233" "i4234" "i4235")) |
417ee098 | 14650 | #(ribcage () () ()) |
43353663 | 14651 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 AW |
14652 | (hygiene guile))) |
14653 | (vector | |
14654 | '(#(syntax-object | |
14655 | macro-type | |
14656 | ((top) | |
14657 | #(ribcage | |
b78d91d5 AW |
14658 | #(k keyword pattern template) |
14659 | #((top) (top) (top) (top)) | |
43353663 | 14660 | #("i4232" "i4233" "i4234" "i4235")) |
417ee098 | 14661 | #(ribcage () () ()) |
43353663 | 14662 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 AW |
14663 | (hygiene guile)) |
14664 | . | |
14665 | #(syntax-object | |
14666 | syntax-rules | |
14667 | ((top) | |
14668 | #(ribcage | |
b78d91d5 AW |
14669 | #(k keyword pattern template) |
14670 | #((top) (top) (top) (top)) | |
43353663 | 14671 | #("i4232" "i4233" "i4234" "i4235")) |
417ee098 | 14672 | #(ribcage () () ()) |
43353663 | 14673 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 AW |
14674 | (hygiene guile))) |
14675 | (cons '#(syntax-object | |
14676 | patterns | |
f42d8bd8 AW |
14677 | ((top) |
14678 | #(ribcage | |
b78d91d5 AW |
14679 | #(k keyword pattern template) |
14680 | #((top) (top) (top) (top)) | |
43353663 | 14681 | #("i4232" "i4233" "i4234" "i4235")) |
f42d8bd8 | 14682 | #(ribcage () () ()) |
43353663 | 14683 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 | 14684 | (hygiene guile)) |
43353663 | 14685 | #{pattern\ 4238}#)) |
417ee098 AW |
14686 | (cons '#(syntax-object |
14687 | syntax-case | |
14688 | ((top) | |
14689 | #(ribcage | |
b78d91d5 AW |
14690 | #(k keyword pattern template) |
14691 | #((top) (top) (top) (top)) | |
43353663 | 14692 | #("i4232" "i4233" "i4234" "i4235")) |
417ee098 | 14693 | #(ribcage () () ()) |
43353663 | 14694 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 AW |
14695 | (hygiene guile)) |
14696 | (cons '#(syntax-object | |
14697 | x | |
14698 | ((top) | |
14699 | #(ribcage | |
b78d91d5 AW |
14700 | #(k keyword pattern template) |
14701 | #((top) (top) (top) (top)) | |
43353663 | 14702 | #("i4232" "i4233" "i4234" "i4235")) |
417ee098 | 14703 | #(ribcage () () ()) |
43353663 | 14704 | #(ribcage #(x) #((top)) #("i4229"))) |
417ee098 | 14705 | (hygiene guile)) |
43353663 AW |
14706 | (cons #{k\ 4236}# |
14707 | (map (lambda (#{tmp\ 4243}# | |
14708 | #{tmp\ 4242}#) | |
417ee098 AW |
14709 | (list (cons '#(syntax-object |
14710 | dummy | |
14711 | ((top) | |
14712 | #(ribcage | |
b78d91d5 | 14713 | #(k |
417ee098 AW |
14714 | keyword |
14715 | pattern | |
14716 | template) | |
14717 | #((top) | |
417ee098 AW |
14718 | (top) |
14719 | (top) | |
14720 | (top)) | |
43353663 AW |
14721 | #("i4232" |
14722 | "i4233" | |
14723 | "i4234" | |
14724 | "i4235")) | |
417ee098 AW |
14725 | #(ribcage |
14726 | () | |
14727 | () | |
14728 | ()) | |
14729 | #(ribcage | |
14730 | #(x) | |
14731 | #((top)) | |
43353663 | 14732 | #("i4229"))) |
417ee098 | 14733 | (hygiene guile)) |
43353663 | 14734 | #{tmp\ 4242}#) |
417ee098 AW |
14735 | (list '#(syntax-object |
14736 | syntax | |
14737 | ((top) | |
14738 | #(ribcage | |
b78d91d5 | 14739 | #(k |
417ee098 AW |
14740 | keyword |
14741 | pattern | |
14742 | template) | |
14743 | #((top) | |
417ee098 AW |
14744 | (top) |
14745 | (top) | |
14746 | (top)) | |
43353663 AW |
14747 | #("i4232" |
14748 | "i4233" | |
14749 | "i4234" | |
14750 | "i4235")) | |
417ee098 AW |
14751 | #(ribcage |
14752 | () | |
14753 | () | |
14754 | ()) | |
14755 | #(ribcage | |
14756 | #(x) | |
14757 | #((top)) | |
43353663 | 14758 | #("i4229"))) |
417ee098 | 14759 | (hygiene guile)) |
43353663 AW |
14760 | #{tmp\ 4243}#))) |
14761 | #{template\ 4239}# | |
14762 | #{pattern\ 4238}#)))))) | |
14763 | #{tmp\ 4231}#) | |
14764 | (let ((#{tmp\ 4244}# | |
d8e4f9e5 | 14765 | ($sc-dispatch |
43353663 | 14766 | #{tmp\ 4230}# |
d8e4f9e5 | 14767 | '(_ each-any any . #(each ((any . any) any)))))) |
43353663 | 14768 | (if (if #{tmp\ 4244}# |
d8e4f9e5 | 14769 | (@apply |
43353663 AW |
14770 | (lambda (#{k\ 4250}# |
14771 | #{docstring\ 4251}# | |
14772 | #{keyword\ 4252}# | |
14773 | #{pattern\ 4253}# | |
14774 | #{template\ 4254}#) | |
14775 | (string? (syntax->datum #{docstring\ 4251}#))) | |
14776 | #{tmp\ 4244}#) | |
d8e4f9e5 AW |
14777 | #f) |
14778 | (@apply | |
43353663 AW |
14779 | (lambda (#{k\ 4260}# |
14780 | #{docstring\ 4261}# | |
14781 | #{keyword\ 4262}# | |
14782 | #{pattern\ 4263}# | |
14783 | #{template\ 4264}#) | |
d8e4f9e5 AW |
14784 | (list '#(syntax-object |
14785 | lambda | |
14786 | ((top) | |
14787 | #(ribcage | |
14788 | #(k docstring keyword pattern template) | |
14789 | #((top) (top) (top) (top) (top)) | |
43353663 | 14790 | #("i4255" "i4256" "i4257" "i4258" "i4259")) |
d8e4f9e5 | 14791 | #(ribcage () () ()) |
43353663 | 14792 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 AW |
14793 | (hygiene guile)) |
14794 | '(#(syntax-object | |
14795 | x | |
14796 | ((top) | |
14797 | #(ribcage | |
14798 | #(k docstring keyword pattern template) | |
14799 | #((top) (top) (top) (top) (top)) | |
43353663 | 14800 | #("i4255" "i4256" "i4257" "i4258" "i4259")) |
d8e4f9e5 | 14801 | #(ribcage () () ()) |
43353663 | 14802 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 | 14803 | (hygiene guile))) |
43353663 | 14804 | #{docstring\ 4261}# |
d8e4f9e5 AW |
14805 | (vector |
14806 | '(#(syntax-object | |
14807 | macro-type | |
14808 | ((top) | |
14809 | #(ribcage | |
14810 | #(k docstring keyword pattern template) | |
14811 | #((top) (top) (top) (top) (top)) | |
43353663 | 14812 | #("i4255" "i4256" "i4257" "i4258" "i4259")) |
d8e4f9e5 | 14813 | #(ribcage () () ()) |
43353663 | 14814 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 AW |
14815 | (hygiene guile)) |
14816 | . | |
14817 | #(syntax-object | |
14818 | syntax-rules | |
14819 | ((top) | |
14820 | #(ribcage | |
14821 | #(k docstring keyword pattern template) | |
14822 | #((top) (top) (top) (top) (top)) | |
43353663 | 14823 | #("i4255" "i4256" "i4257" "i4258" "i4259")) |
d8e4f9e5 | 14824 | #(ribcage () () ()) |
43353663 | 14825 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 AW |
14826 | (hygiene guile))) |
14827 | (cons '#(syntax-object | |
14828 | patterns | |
14829 | ((top) | |
14830 | #(ribcage | |
14831 | #(k docstring keyword pattern template) | |
14832 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
14833 | #("i4255" |
14834 | "i4256" | |
14835 | "i4257" | |
14836 | "i4258" | |
14837 | "i4259")) | |
d8e4f9e5 | 14838 | #(ribcage () () ()) |
43353663 | 14839 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 | 14840 | (hygiene guile)) |
43353663 | 14841 | #{pattern\ 4263}#)) |
d8e4f9e5 AW |
14842 | (cons '#(syntax-object |
14843 | syntax-case | |
14844 | ((top) | |
14845 | #(ribcage | |
14846 | #(k docstring keyword pattern template) | |
14847 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
14848 | #("i4255" |
14849 | "i4256" | |
14850 | "i4257" | |
14851 | "i4258" | |
14852 | "i4259")) | |
d8e4f9e5 | 14853 | #(ribcage () () ()) |
43353663 | 14854 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 AW |
14855 | (hygiene guile)) |
14856 | (cons '#(syntax-object | |
14857 | x | |
14858 | ((top) | |
14859 | #(ribcage | |
14860 | #(k | |
14861 | docstring | |
14862 | keyword | |
14863 | pattern | |
14864 | template) | |
14865 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
14866 | #("i4255" |
14867 | "i4256" | |
14868 | "i4257" | |
14869 | "i4258" | |
14870 | "i4259")) | |
d8e4f9e5 | 14871 | #(ribcage () () ()) |
43353663 | 14872 | #(ribcage #(x) #((top)) #("i4229"))) |
d8e4f9e5 | 14873 | (hygiene guile)) |
43353663 AW |
14874 | (cons #{k\ 4260}# |
14875 | (map (lambda (#{tmp\ 4268}# | |
14876 | #{tmp\ 4267}#) | |
d8e4f9e5 AW |
14877 | (list (cons '#(syntax-object |
14878 | dummy | |
14879 | ((top) | |
14880 | #(ribcage | |
14881 | #(k | |
14882 | docstring | |
14883 | keyword | |
14884 | pattern | |
14885 | template) | |
14886 | #((top) | |
14887 | (top) | |
14888 | (top) | |
14889 | (top) | |
14890 | (top)) | |
43353663 AW |
14891 | #("i4255" |
14892 | "i4256" | |
14893 | "i4257" | |
14894 | "i4258" | |
14895 | "i4259")) | |
d8e4f9e5 AW |
14896 | #(ribcage |
14897 | () | |
14898 | () | |
14899 | ()) | |
14900 | #(ribcage | |
14901 | #(x) | |
14902 | #((top)) | |
43353663 | 14903 | #("i4229"))) |
d8e4f9e5 AW |
14904 | (hygiene |
14905 | guile)) | |
43353663 | 14906 | #{tmp\ 4267}#) |
d8e4f9e5 AW |
14907 | (list '#(syntax-object |
14908 | syntax | |
14909 | ((top) | |
14910 | #(ribcage | |
14911 | #(k | |
14912 | docstring | |
14913 | keyword | |
14914 | pattern | |
14915 | template) | |
14916 | #((top) | |
14917 | (top) | |
14918 | (top) | |
14919 | (top) | |
14920 | (top)) | |
43353663 AW |
14921 | #("i4255" |
14922 | "i4256" | |
14923 | "i4257" | |
14924 | "i4258" | |
14925 | "i4259")) | |
d8e4f9e5 AW |
14926 | #(ribcage |
14927 | () | |
14928 | () | |
14929 | ()) | |
14930 | #(ribcage | |
14931 | #(x) | |
14932 | #((top)) | |
43353663 | 14933 | #("i4229"))) |
d8e4f9e5 AW |
14934 | (hygiene |
14935 | guile)) | |
43353663 AW |
14936 | #{tmp\ 4268}#))) |
14937 | #{template\ 4264}# | |
14938 | #{pattern\ 4263}#)))))) | |
14939 | #{tmp\ 4244}#) | |
d8e4f9e5 AW |
14940 | (syntax-violation |
14941 | #f | |
14942 | "source expression failed to match any pattern" | |
43353663 | 14943 | #{tmp\ 4230}#))))))))) |
417ee098 AW |
14944 | |
14945 | (define let* | |
14946 | (make-syntax-transformer | |
14947 | 'let* | |
14948 | 'macro | |
43353663 AW |
14949 | (lambda (#{x\ 4269}#) |
14950 | (let ((#{tmp\ 4271}# #{x\ 4269}#)) | |
14951 | (let ((#{tmp\ 4272}# | |
417ee098 | 14952 | ($sc-dispatch |
43353663 | 14953 | #{tmp\ 4271}# |
417ee098 | 14954 | '(any #(each (any any)) any . each-any)))) |
43353663 | 14955 | (if (if #{tmp\ 4272}# |
417ee098 | 14956 | (@apply |
43353663 AW |
14957 | (lambda (#{let*\ 4278}# |
14958 | #{x\ 4279}# | |
14959 | #{v\ 4280}# | |
14960 | #{e1\ 4281}# | |
14961 | #{e2\ 4282}#) | |
14962 | (and-map identifier? #{x\ 4279}#)) | |
14963 | #{tmp\ 4272}#) | |
417ee098 AW |
14964 | #f) |
14965 | (@apply | |
43353663 AW |
14966 | (lambda (#{let*\ 4289}# |
14967 | #{x\ 4290}# | |
14968 | #{v\ 4291}# | |
14969 | #{e1\ 4292}# | |
14970 | #{e2\ 4293}#) | |
417ee098 | 14971 | (letrec* |
43353663 AW |
14972 | ((#{f\ 4296}# |
14973 | (lambda (#{bindings\ 4297}#) | |
14974 | (if (null? #{bindings\ 4297}#) | |
417ee098 AW |
14975 | (cons '#(syntax-object |
14976 | let | |
14977 | ((top) | |
14978 | #(ribcage () () ()) | |
14979 | #(ribcage | |
14980 | #(f bindings) | |
14981 | #((top) (top)) | |
43353663 | 14982 | #("i4294" "i4295")) |
417ee098 AW |
14983 | #(ribcage |
14984 | #(let* x v e1 e2) | |
14985 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
14986 | #("i4284" |
14987 | "i4285" | |
14988 | "i4286" | |
14989 | "i4287" | |
14990 | "i4288")) | |
417ee098 | 14991 | #(ribcage () () ()) |
43353663 | 14992 | #(ribcage #(x) #((top)) #("i4270"))) |
417ee098 | 14993 | (hygiene guile)) |
43353663 AW |
14994 | (cons '() (cons #{e1\ 4292}# #{e2\ 4293}#))) |
14995 | (let ((#{tmp\ 4302}# | |
14996 | (list (#{f\ 4296}# (cdr #{bindings\ 4297}#)) | |
14997 | (car #{bindings\ 4297}#)))) | |
14998 | (let ((#{tmp\ 4303}# | |
14999 | ($sc-dispatch #{tmp\ 4302}# '(any any)))) | |
15000 | (if #{tmp\ 4303}# | |
417ee098 | 15001 | (@apply |
43353663 | 15002 | (lambda (#{body\ 4306}# #{binding\ 4307}#) |
417ee098 AW |
15003 | (list '#(syntax-object |
15004 | let | |
65dd9e38 | 15005 | ((top) |
f929b9e5 | 15006 | #(ribcage () () ()) |
65dd9e38 | 15007 | #(ribcage |
417ee098 AW |
15008 | #(body binding) |
15009 | #((top) (top)) | |
43353663 | 15010 | #("i4304" "i4305")) |
417ee098 AW |
15011 | #(ribcage () () ()) |
15012 | #(ribcage | |
15013 | #(f bindings) | |
15014 | #((top) (top)) | |
43353663 | 15015 | #("i4294" "i4295")) |
417ee098 AW |
15016 | #(ribcage |
15017 | #(let* x v e1 e2) | |
65dd9e38 | 15018 | #((top) (top) (top) (top) (top)) |
43353663 AW |
15019 | #("i4284" |
15020 | "i4285" | |
15021 | "i4286" | |
15022 | "i4287" | |
15023 | "i4288")) | |
65dd9e38 | 15024 | #(ribcage () () ()) |
f6a8e791 AW |
15025 | #(ribcage |
15026 | #(x) | |
15027 | #((top)) | |
43353663 | 15028 | #("i4270"))) |
65dd9e38 | 15029 | (hygiene guile)) |
43353663 AW |
15030 | (list #{binding\ 4307}#) |
15031 | #{body\ 4306}#)) | |
15032 | #{tmp\ 4303}#) | |
417ee098 AW |
15033 | (syntax-violation |
15034 | #f | |
15035 | "source expression failed to match any pattern" | |
43353663 | 15036 | #{tmp\ 4302}#)))))))) |
417ee098 | 15037 | (begin |
43353663 AW |
15038 | (#{f\ 4296}# (map list #{x\ 4290}# #{v\ 4291}#))))) |
15039 | #{tmp\ 4272}#) | |
417ee098 AW |
15040 | (syntax-violation |
15041 | #f | |
15042 | "source expression failed to match any pattern" | |
43353663 | 15043 | #{tmp\ 4271}#))))))) |
65dd9e38 AW |
15044 | |
15045 | (define do | |
e809758a AW |
15046 | (make-syntax-transformer |
15047 | 'do | |
65dd9e38 | 15048 | 'macro |
43353663 AW |
15049 | (lambda (#{orig-x\ 4308}#) |
15050 | (let ((#{tmp\ 4310}# #{orig-x\ 4308}#)) | |
15051 | (let ((#{tmp\ 4311}# | |
417ee098 | 15052 | ($sc-dispatch |
43353663 | 15053 | #{tmp\ 4310}# |
b78d91d5 AW |
15054 | '(_ #(each (any any . any)) |
15055 | (any . each-any) | |
15056 | . | |
15057 | each-any)))) | |
43353663 | 15058 | (if #{tmp\ 4311}# |
417ee098 | 15059 | (@apply |
43353663 AW |
15060 | (lambda (#{var\ 4318}# |
15061 | #{init\ 4319}# | |
15062 | #{step\ 4320}# | |
15063 | #{e0\ 4321}# | |
15064 | #{e1\ 4322}# | |
15065 | #{c\ 4323}#) | |
15066 | (let ((#{tmp\ 4325}# | |
15067 | (map (lambda (#{v\ 4346}# #{s\ 4347}#) | |
15068 | (let ((#{tmp\ 4350}# #{s\ 4347}#)) | |
15069 | (let ((#{tmp\ 4351}# | |
15070 | ($sc-dispatch #{tmp\ 4350}# '()))) | |
15071 | (if #{tmp\ 4351}# | |
417ee098 | 15072 | (@apply |
43353663 AW |
15073 | (lambda () #{v\ 4346}#) |
15074 | #{tmp\ 4351}#) | |
15075 | (let ((#{tmp\ 4352}# | |
417ee098 | 15076 | ($sc-dispatch |
43353663 | 15077 | #{tmp\ 4350}# |
417ee098 | 15078 | '(any)))) |
43353663 | 15079 | (if #{tmp\ 4352}# |
417ee098 | 15080 | (@apply |
43353663 AW |
15081 | (lambda (#{e\ 4354}#) #{e\ 4354}#) |
15082 | #{tmp\ 4352}#) | |
15083 | (let ((#{_\ 4356}# #{tmp\ 4350}#)) | |
417ee098 AW |
15084 | (syntax-violation |
15085 | 'do | |
15086 | "bad step expression" | |
43353663 AW |
15087 | #{orig-x\ 4308}# |
15088 | #{s\ 4347}#)))))))) | |
15089 | #{var\ 4318}# | |
15090 | #{step\ 4320}#))) | |
15091 | (let ((#{tmp\ 4326}# | |
15092 | ($sc-dispatch #{tmp\ 4325}# 'each-any))) | |
15093 | (if #{tmp\ 4326}# | |
417ee098 | 15094 | (@apply |
43353663 AW |
15095 | (lambda (#{step\ 4328}#) |
15096 | (let ((#{tmp\ 4329}# #{e1\ 4322}#)) | |
15097 | (let ((#{tmp\ 4330}# | |
15098 | ($sc-dispatch #{tmp\ 4329}# '()))) | |
15099 | (if #{tmp\ 4330}# | |
417ee098 AW |
15100 | (@apply |
15101 | (lambda () | |
15102 | (list '#(syntax-object | |
15103 | let | |
15104 | ((top) | |
f929b9e5 | 15105 | #(ribcage () () ()) |
417ee098 AW |
15106 | #(ribcage |
15107 | #(step) | |
15108 | #((top)) | |
43353663 | 15109 | #("i4327")) |
417ee098 | 15110 | #(ribcage |
b78d91d5 | 15111 | #(var init step e0 e1 c) |
417ee098 AW |
15112 | #((top) |
15113 | (top) | |
15114 | (top) | |
15115 | (top) | |
15116 | (top) | |
417ee098 | 15117 | (top)) |
43353663 AW |
15118 | #("i4312" |
15119 | "i4313" | |
15120 | "i4314" | |
15121 | "i4315" | |
15122 | "i4316" | |
15123 | "i4317")) | |
417ee098 AW |
15124 | #(ribcage () () ()) |
15125 | #(ribcage | |
15126 | #(orig-x) | |
15127 | #((top)) | |
43353663 | 15128 | #("i4309"))) |
417ee098 AW |
15129 | (hygiene guile)) |
15130 | '#(syntax-object | |
15131 | doloop | |
15132 | ((top) | |
f929b9e5 | 15133 | #(ribcage () () ()) |
417ee098 AW |
15134 | #(ribcage |
15135 | #(step) | |
15136 | #((top)) | |
43353663 | 15137 | #("i4327")) |
417ee098 | 15138 | #(ribcage |
b78d91d5 | 15139 | #(var init step e0 e1 c) |
417ee098 AW |
15140 | #((top) |
15141 | (top) | |
15142 | (top) | |
15143 | (top) | |
15144 | (top) | |
417ee098 | 15145 | (top)) |
43353663 AW |
15146 | #("i4312" |
15147 | "i4313" | |
15148 | "i4314" | |
15149 | "i4315" | |
15150 | "i4316" | |
15151 | "i4317")) | |
417ee098 AW |
15152 | #(ribcage () () ()) |
15153 | #(ribcage | |
15154 | #(orig-x) | |
15155 | #((top)) | |
43353663 | 15156 | #("i4309"))) |
417ee098 AW |
15157 | (hygiene guile)) |
15158 | (map list | |
43353663 AW |
15159 | #{var\ 4318}# |
15160 | #{init\ 4319}#) | |
417ee098 AW |
15161 | (list '#(syntax-object |
15162 | if | |
15163 | ((top) | |
f929b9e5 | 15164 | #(ribcage () () ()) |
417ee098 AW |
15165 | #(ribcage |
15166 | #(step) | |
15167 | #((top)) | |
43353663 | 15168 | #("i4327")) |
417ee098 | 15169 | #(ribcage |
b78d91d5 | 15170 | #(var init step e0 e1 c) |
417ee098 AW |
15171 | #((top) |
15172 | (top) | |
15173 | (top) | |
15174 | (top) | |
15175 | (top) | |
417ee098 | 15176 | (top)) |
43353663 AW |
15177 | #("i4312" |
15178 | "i4313" | |
15179 | "i4314" | |
15180 | "i4315" | |
15181 | "i4316" | |
15182 | "i4317")) | |
417ee098 AW |
15183 | #(ribcage () () ()) |
15184 | #(ribcage | |
15185 | #(orig-x) | |
15186 | #((top)) | |
43353663 | 15187 | #("i4309"))) |
417ee098 AW |
15188 | (hygiene guile)) |
15189 | (list '#(syntax-object | |
15190 | not | |
15191 | ((top) | |
f929b9e5 | 15192 | #(ribcage () () ()) |
417ee098 AW |
15193 | #(ribcage |
15194 | #(step) | |
15195 | #((top)) | |
43353663 | 15196 | #("i4327")) |
417ee098 | 15197 | #(ribcage |
b78d91d5 | 15198 | #(var |
417ee098 AW |
15199 | init |
15200 | step | |
15201 | e0 | |
15202 | e1 | |
15203 | c) | |
15204 | #((top) | |
15205 | (top) | |
15206 | (top) | |
15207 | (top) | |
15208 | (top) | |
417ee098 | 15209 | (top)) |
43353663 AW |
15210 | #("i4312" |
15211 | "i4313" | |
15212 | "i4314" | |
15213 | "i4315" | |
15214 | "i4316" | |
15215 | "i4317")) | |
417ee098 AW |
15216 | #(ribcage () () ()) |
15217 | #(ribcage | |
15218 | #(orig-x) | |
15219 | #((top)) | |
43353663 | 15220 | #("i4309"))) |
417ee098 | 15221 | (hygiene guile)) |
43353663 | 15222 | #{e0\ 4321}#) |
417ee098 AW |
15223 | (cons '#(syntax-object |
15224 | begin | |
15225 | ((top) | |
f929b9e5 | 15226 | #(ribcage () () ()) |
417ee098 AW |
15227 | #(ribcage |
15228 | #(step) | |
15229 | #((top)) | |
43353663 | 15230 | #("i4327")) |
417ee098 | 15231 | #(ribcage |
b78d91d5 | 15232 | #(var |
417ee098 AW |
15233 | init |
15234 | step | |
15235 | e0 | |
15236 | e1 | |
15237 | c) | |
15238 | #((top) | |
15239 | (top) | |
15240 | (top) | |
15241 | (top) | |
15242 | (top) | |
417ee098 | 15243 | (top)) |
43353663 AW |
15244 | #("i4312" |
15245 | "i4313" | |
15246 | "i4314" | |
15247 | "i4315" | |
15248 | "i4316" | |
15249 | "i4317")) | |
417ee098 AW |
15250 | #(ribcage () () ()) |
15251 | #(ribcage | |
15252 | #(orig-x) | |
15253 | #((top)) | |
43353663 | 15254 | #("i4309"))) |
417ee098 AW |
15255 | (hygiene guile)) |
15256 | (append | |
43353663 | 15257 | #{c\ 4323}# |
417ee098 | 15258 | (list (cons '#(syntax-object |
f42d8bd8 AW |
15259 | doloop |
15260 | ((top) | |
f929b9e5 AW |
15261 | #(ribcage |
15262 | () | |
15263 | () | |
15264 | ()) | |
f42d8bd8 AW |
15265 | #(ribcage |
15266 | #(step) | |
15267 | #((top)) | |
43353663 | 15268 | #("i4327")) |
f42d8bd8 | 15269 | #(ribcage |
b78d91d5 | 15270 | #(var |
f42d8bd8 AW |
15271 | init |
15272 | step | |
15273 | e0 | |
15274 | e1 | |
15275 | c) | |
15276 | #((top) | |
15277 | (top) | |
15278 | (top) | |
15279 | (top) | |
15280 | (top) | |
f42d8bd8 | 15281 | (top)) |
43353663 AW |
15282 | #("i4312" |
15283 | "i4313" | |
15284 | "i4314" | |
15285 | "i4315" | |
15286 | "i4316" | |
15287 | "i4317")) | |
f42d8bd8 AW |
15288 | #(ribcage |
15289 | () | |
15290 | () | |
15291 | ()) | |
15292 | #(ribcage | |
15293 | #(orig-x) | |
15294 | #((top)) | |
43353663 | 15295 | #("i4309"))) |
f42d8bd8 AW |
15296 | (hygiene |
15297 | guile)) | |
43353663 AW |
15298 | #{step\ 4328}#))))))) |
15299 | #{tmp\ 4330}#) | |
15300 | (let ((#{tmp\ 4335}# | |
f42d8bd8 | 15301 | ($sc-dispatch |
43353663 | 15302 | #{tmp\ 4329}# |
417ee098 | 15303 | '(any . each-any)))) |
43353663 | 15304 | (if #{tmp\ 4335}# |
417ee098 | 15305 | (@apply |
43353663 | 15306 | (lambda (#{e1\ 4338}# #{e2\ 4339}#) |
417ee098 AW |
15307 | (list '#(syntax-object |
15308 | let | |
15309 | ((top) | |
15310 | #(ribcage | |
15311 | #(e1 e2) | |
15312 | #((top) (top)) | |
43353663 | 15313 | #("i4336" "i4337")) |
f929b9e5 | 15314 | #(ribcage () () ()) |
417ee098 AW |
15315 | #(ribcage |
15316 | #(step) | |
15317 | #((top)) | |
43353663 | 15318 | #("i4327")) |
417ee098 | 15319 | #(ribcage |
b78d91d5 | 15320 | #(var init step e0 e1 c) |
417ee098 AW |
15321 | #((top) |
15322 | (top) | |
15323 | (top) | |
15324 | (top) | |
15325 | (top) | |
417ee098 | 15326 | (top)) |
43353663 AW |
15327 | #("i4312" |
15328 | "i4313" | |
15329 | "i4314" | |
15330 | "i4315" | |
15331 | "i4316" | |
15332 | "i4317")) | |
417ee098 AW |
15333 | #(ribcage () () ()) |
15334 | #(ribcage | |
15335 | #(orig-x) | |
15336 | #((top)) | |
43353663 | 15337 | #("i4309"))) |
417ee098 AW |
15338 | (hygiene guile)) |
15339 | '#(syntax-object | |
15340 | doloop | |
15341 | ((top) | |
15342 | #(ribcage | |
15343 | #(e1 e2) | |
15344 | #((top) (top)) | |
43353663 | 15345 | #("i4336" "i4337")) |
f929b9e5 | 15346 | #(ribcage () () ()) |
417ee098 AW |
15347 | #(ribcage |
15348 | #(step) | |
15349 | #((top)) | |
43353663 | 15350 | #("i4327")) |
417ee098 | 15351 | #(ribcage |
b78d91d5 | 15352 | #(var init step e0 e1 c) |
417ee098 AW |
15353 | #((top) |
15354 | (top) | |
15355 | (top) | |
15356 | (top) | |
15357 | (top) | |
417ee098 | 15358 | (top)) |
43353663 AW |
15359 | #("i4312" |
15360 | "i4313" | |
15361 | "i4314" | |
15362 | "i4315" | |
15363 | "i4316" | |
15364 | "i4317")) | |
417ee098 AW |
15365 | #(ribcage () () ()) |
15366 | #(ribcage | |
15367 | #(orig-x) | |
15368 | #((top)) | |
43353663 | 15369 | #("i4309"))) |
417ee098 AW |
15370 | (hygiene guile)) |
15371 | (map list | |
43353663 AW |
15372 | #{var\ 4318}# |
15373 | #{init\ 4319}#) | |
417ee098 AW |
15374 | (list '#(syntax-object |
15375 | if | |
15376 | ((top) | |
15377 | #(ribcage | |
15378 | #(e1 e2) | |
15379 | #((top) (top)) | |
43353663 | 15380 | #("i4336" "i4337")) |
f929b9e5 | 15381 | #(ribcage () () ()) |
417ee098 AW |
15382 | #(ribcage |
15383 | #(step) | |
15384 | #((top)) | |
43353663 | 15385 | #("i4327")) |
417ee098 | 15386 | #(ribcage |
b78d91d5 | 15387 | #(var |
417ee098 AW |
15388 | init |
15389 | step | |
15390 | e0 | |
15391 | e1 | |
15392 | c) | |
15393 | #((top) | |
15394 | (top) | |
15395 | (top) | |
15396 | (top) | |
15397 | (top) | |
417ee098 | 15398 | (top)) |
43353663 AW |
15399 | #("i4312" |
15400 | "i4313" | |
15401 | "i4314" | |
15402 | "i4315" | |
15403 | "i4316" | |
15404 | "i4317")) | |
417ee098 AW |
15405 | #(ribcage () () ()) |
15406 | #(ribcage | |
15407 | #(orig-x) | |
15408 | #((top)) | |
43353663 | 15409 | #("i4309"))) |
417ee098 | 15410 | (hygiene guile)) |
43353663 | 15411 | #{e0\ 4321}# |
417ee098 AW |
15412 | (cons '#(syntax-object |
15413 | begin | |
15414 | ((top) | |
15415 | #(ribcage | |
15416 | #(e1 e2) | |
15417 | #((top) (top)) | |
43353663 AW |
15418 | #("i4336" |
15419 | "i4337")) | |
f929b9e5 AW |
15420 | #(ribcage |
15421 | () | |
15422 | () | |
15423 | ()) | |
417ee098 AW |
15424 | #(ribcage |
15425 | #(step) | |
15426 | #((top)) | |
43353663 | 15427 | #("i4327")) |
417ee098 | 15428 | #(ribcage |
b78d91d5 | 15429 | #(var |
417ee098 AW |
15430 | init |
15431 | step | |
15432 | e0 | |
15433 | e1 | |
15434 | c) | |
15435 | #((top) | |
15436 | (top) | |
15437 | (top) | |
15438 | (top) | |
15439 | (top) | |
417ee098 | 15440 | (top)) |
43353663 AW |
15441 | #("i4312" |
15442 | "i4313" | |
15443 | "i4314" | |
15444 | "i4315" | |
15445 | "i4316" | |
15446 | "i4317")) | |
417ee098 AW |
15447 | #(ribcage |
15448 | () | |
15449 | () | |
15450 | ()) | |
15451 | #(ribcage | |
15452 | #(orig-x) | |
15453 | #((top)) | |
43353663 | 15454 | #("i4309"))) |
417ee098 | 15455 | (hygiene guile)) |
43353663 AW |
15456 | (cons #{e1\ 4338}# |
15457 | #{e2\ 4339}#)) | |
417ee098 AW |
15458 | (cons '#(syntax-object |
15459 | begin | |
15460 | ((top) | |
15461 | #(ribcage | |
15462 | #(e1 e2) | |
15463 | #((top) (top)) | |
43353663 AW |
15464 | #("i4336" |
15465 | "i4337")) | |
f929b9e5 AW |
15466 | #(ribcage |
15467 | () | |
15468 | () | |
15469 | ()) | |
417ee098 AW |
15470 | #(ribcage |
15471 | #(step) | |
15472 | #((top)) | |
43353663 | 15473 | #("i4327")) |
417ee098 | 15474 | #(ribcage |
b78d91d5 | 15475 | #(var |
417ee098 AW |
15476 | init |
15477 | step | |
15478 | e0 | |
15479 | e1 | |
15480 | c) | |
15481 | #((top) | |
15482 | (top) | |
15483 | (top) | |
15484 | (top) | |
15485 | (top) | |
417ee098 | 15486 | (top)) |
43353663 AW |
15487 | #("i4312" |
15488 | "i4313" | |
15489 | "i4314" | |
15490 | "i4315" | |
15491 | "i4316" | |
15492 | "i4317")) | |
417ee098 AW |
15493 | #(ribcage |
15494 | () | |
15495 | () | |
15496 | ()) | |
15497 | #(ribcage | |
15498 | #(orig-x) | |
15499 | #((top)) | |
43353663 | 15500 | #("i4309"))) |
417ee098 AW |
15501 | (hygiene guile)) |
15502 | (append | |
43353663 | 15503 | #{c\ 4323}# |
417ee098 AW |
15504 | (list (cons '#(syntax-object |
15505 | doloop | |
15506 | ((top) | |
15507 | #(ribcage | |
15508 | #(e1 | |
15509 | e2) | |
15510 | #((top) | |
15511 | (top)) | |
43353663 AW |
15512 | #("i4336" |
15513 | "i4337")) | |
f929b9e5 AW |
15514 | #(ribcage |
15515 | () | |
15516 | () | |
15517 | ()) | |
417ee098 AW |
15518 | #(ribcage |
15519 | #(step) | |
15520 | #((top)) | |
43353663 | 15521 | #("i4327")) |
417ee098 | 15522 | #(ribcage |
b78d91d5 | 15523 | #(var |
417ee098 AW |
15524 | init |
15525 | step | |
15526 | e0 | |
15527 | e1 | |
15528 | c) | |
15529 | #((top) | |
15530 | (top) | |
15531 | (top) | |
15532 | (top) | |
15533 | (top) | |
417ee098 | 15534 | (top)) |
43353663 AW |
15535 | #("i4312" |
15536 | "i4313" | |
15537 | "i4314" | |
15538 | "i4315" | |
15539 | "i4316" | |
15540 | "i4317")) | |
417ee098 AW |
15541 | #(ribcage |
15542 | () | |
15543 | () | |
15544 | ()) | |
15545 | #(ribcage | |
15546 | #(orig-x) | |
15547 | #((top)) | |
43353663 | 15548 | #("i4309"))) |
417ee098 AW |
15549 | (hygiene |
15550 | guile)) | |
43353663 AW |
15551 | #{step\ 4328}#))))))) |
15552 | #{tmp\ 4335}#) | |
417ee098 AW |
15553 | (syntax-violation |
15554 | #f | |
15555 | "source expression failed to match any pattern" | |
43353663 AW |
15556 | #{tmp\ 4329}#))))))) |
15557 | #{tmp\ 4326}#) | |
417ee098 AW |
15558 | (syntax-violation |
15559 | #f | |
15560 | "source expression failed to match any pattern" | |
43353663 AW |
15561 | #{tmp\ 4325}#))))) |
15562 | #{tmp\ 4311}#) | |
417ee098 AW |
15563 | (syntax-violation |
15564 | #f | |
15565 | "source expression failed to match any pattern" | |
43353663 | 15566 | #{tmp\ 4310}#))))))) |
f42d8bd8 AW |
15567 | |
15568 | (define quasiquote | |
15569 | (make-syntax-transformer | |
15570 | 'quasiquote | |
15571 | 'macro | |
417ee098 | 15572 | (letrec* |
43353663 AW |
15573 | ((#{quasi\ 4360}# |
15574 | (lambda (#{p\ 4373}# #{lev\ 4374}#) | |
15575 | (let ((#{tmp\ 4377}# #{p\ 4373}#)) | |
15576 | (let ((#{tmp\ 4378}# | |
0f550375 | 15577 | ($sc-dispatch |
43353663 | 15578 | #{tmp\ 4377}# |
0f550375 AW |
15579 | '(#(free-id |
15580 | #(syntax-object | |
15581 | unquote | |
15582 | ((top) | |
15583 | #(ribcage () () ()) | |
15584 | #(ribcage | |
15585 | #(p lev) | |
15586 | #((top) (top)) | |
43353663 | 15587 | #("i4375" "i4376")) |
0f550375 AW |
15588 | #(ribcage |
15589 | (emit quasivector | |
15590 | quasilist* | |
15591 | quasiappend | |
15592 | quasicons | |
15593 | vquasi | |
15594 | quasi) | |
15595 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15596 | ("i4371" |
0f550375 AW |
15597 | "i4369" |
15598 | "i4367" | |
43353663 AW |
15599 | "i4365" |
15600 | "i4363" | |
15601 | "i4361" | |
15602 | "i4359"))) | |
0f550375 AW |
15603 | (hygiene guile))) |
15604 | any)))) | |
43353663 | 15605 | (if #{tmp\ 4378}# |
0f550375 | 15606 | (@apply |
43353663 AW |
15607 | (lambda (#{p\ 4380}#) |
15608 | (if (= #{lev\ 4374}# 0) | |
0f550375 AW |
15609 | (list '#(syntax-object |
15610 | "value" | |
15611 | ((top) | |
43353663 | 15612 | #(ribcage #(p) #((top)) #("i4379")) |
0f550375 AW |
15613 | #(ribcage () () ()) |
15614 | #(ribcage | |
15615 | #(p lev) | |
15616 | #((top) (top)) | |
43353663 | 15617 | #("i4375" "i4376")) |
0f550375 AW |
15618 | #(ribcage |
15619 | (emit quasivector | |
15620 | quasilist* | |
15621 | quasiappend | |
15622 | quasicons | |
15623 | vquasi | |
15624 | quasi) | |
15625 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15626 | ("i4371" |
0f550375 AW |
15627 | "i4369" |
15628 | "i4367" | |
43353663 AW |
15629 | "i4365" |
15630 | "i4363" | |
15631 | "i4361" | |
15632 | "i4359"))) | |
0f550375 | 15633 | (hygiene guile)) |
43353663 AW |
15634 | #{p\ 4380}#) |
15635 | (#{quasicons\ 4364}# | |
0f550375 AW |
15636 | '(#(syntax-object |
15637 | "quote" | |
15638 | ((top) | |
43353663 | 15639 | #(ribcage #(p) #((top)) #("i4379")) |
0f550375 AW |
15640 | #(ribcage () () ()) |
15641 | #(ribcage | |
15642 | #(p lev) | |
15643 | #((top) (top)) | |
43353663 | 15644 | #("i4375" "i4376")) |
0f550375 AW |
15645 | #(ribcage |
15646 | (emit quasivector | |
15647 | quasilist* | |
15648 | quasiappend | |
15649 | quasicons | |
15650 | vquasi | |
15651 | quasi) | |
15652 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15653 | ("i4371" |
0f550375 AW |
15654 | "i4369" |
15655 | "i4367" | |
43353663 AW |
15656 | "i4365" |
15657 | "i4363" | |
15658 | "i4361" | |
15659 | "i4359"))) | |
0f550375 AW |
15660 | (hygiene guile)) |
15661 | #(syntax-object | |
15662 | unquote | |
15663 | ((top) | |
43353663 | 15664 | #(ribcage #(p) #((top)) #("i4379")) |
0f550375 AW |
15665 | #(ribcage () () ()) |
15666 | #(ribcage | |
15667 | #(p lev) | |
15668 | #((top) (top)) | |
43353663 | 15669 | #("i4375" "i4376")) |
0f550375 AW |
15670 | #(ribcage |
15671 | (emit quasivector | |
15672 | quasilist* | |
15673 | quasiappend | |
15674 | quasicons | |
15675 | vquasi | |
15676 | quasi) | |
15677 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15678 | ("i4371" |
0f550375 AW |
15679 | "i4369" |
15680 | "i4367" | |
43353663 AW |
15681 | "i4365" |
15682 | "i4363" | |
15683 | "i4361" | |
15684 | "i4359"))) | |
0f550375 | 15685 | (hygiene guile))) |
43353663 AW |
15686 | (#{quasi\ 4360}# |
15687 | (list #{p\ 4380}#) | |
15688 | (1- #{lev\ 4374}#))))) | |
15689 | #{tmp\ 4378}#) | |
15690 | (let ((#{tmp\ 4381}# | |
0f550375 | 15691 | ($sc-dispatch |
43353663 | 15692 | #{tmp\ 4377}# |
0f550375 AW |
15693 | '(#(free-id |
15694 | #(syntax-object | |
15695 | quasiquote | |
15696 | ((top) | |
15697 | #(ribcage () () ()) | |
15698 | #(ribcage | |
15699 | #(p lev) | |
15700 | #((top) (top)) | |
43353663 | 15701 | #("i4375" "i4376")) |
0f550375 AW |
15702 | #(ribcage |
15703 | (emit quasivector | |
15704 | quasilist* | |
15705 | quasiappend | |
15706 | quasicons | |
15707 | vquasi | |
15708 | quasi) | |
15709 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15710 | ("i4371" |
0f550375 AW |
15711 | "i4369" |
15712 | "i4367" | |
43353663 AW |
15713 | "i4365" |
15714 | "i4363" | |
15715 | "i4361" | |
15716 | "i4359"))) | |
0f550375 AW |
15717 | (hygiene guile))) |
15718 | any)))) | |
43353663 | 15719 | (if #{tmp\ 4381}# |
0f550375 | 15720 | (@apply |
43353663 AW |
15721 | (lambda (#{p\ 4383}#) |
15722 | (#{quasicons\ 4364}# | |
0f550375 AW |
15723 | '(#(syntax-object |
15724 | "quote" | |
15725 | ((top) | |
43353663 | 15726 | #(ribcage #(p) #((top)) #("i4382")) |
0f550375 AW |
15727 | #(ribcage () () ()) |
15728 | #(ribcage | |
15729 | #(p lev) | |
15730 | #((top) (top)) | |
43353663 | 15731 | #("i4375" "i4376")) |
0f550375 AW |
15732 | #(ribcage |
15733 | (emit quasivector | |
15734 | quasilist* | |
15735 | quasiappend | |
15736 | quasicons | |
15737 | vquasi | |
15738 | quasi) | |
15739 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15740 | ("i4371" |
0f550375 AW |
15741 | "i4369" |
15742 | "i4367" | |
43353663 AW |
15743 | "i4365" |
15744 | "i4363" | |
15745 | "i4361" | |
15746 | "i4359"))) | |
0f550375 AW |
15747 | (hygiene guile)) |
15748 | #(syntax-object | |
15749 | quasiquote | |
15750 | ((top) | |
43353663 | 15751 | #(ribcage #(p) #((top)) #("i4382")) |
0f550375 AW |
15752 | #(ribcage () () ()) |
15753 | #(ribcage | |
15754 | #(p lev) | |
15755 | #((top) (top)) | |
43353663 | 15756 | #("i4375" "i4376")) |
0f550375 AW |
15757 | #(ribcage |
15758 | (emit quasivector | |
15759 | quasilist* | |
15760 | quasiappend | |
15761 | quasicons | |
15762 | vquasi | |
15763 | quasi) | |
15764 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 15765 | ("i4371" |
0f550375 AW |
15766 | "i4369" |
15767 | "i4367" | |
43353663 AW |
15768 | "i4365" |
15769 | "i4363" | |
15770 | "i4361" | |
15771 | "i4359"))) | |
0f550375 | 15772 | (hygiene guile))) |
43353663 AW |
15773 | (#{quasi\ 4360}# |
15774 | (list #{p\ 4383}#) | |
15775 | (1+ #{lev\ 4374}#)))) | |
15776 | #{tmp\ 4381}#) | |
15777 | (let ((#{tmp\ 4384}# | |
15778 | ($sc-dispatch #{tmp\ 4377}# '(any . any)))) | |
15779 | (if #{tmp\ 4384}# | |
0f550375 | 15780 | (@apply |
43353663 AW |
15781 | (lambda (#{p\ 4387}# #{q\ 4388}#) |
15782 | (let ((#{tmp\ 4389}# #{p\ 4387}#)) | |
15783 | (let ((#{tmp\ 4390}# | |
0f550375 | 15784 | ($sc-dispatch |
43353663 | 15785 | #{tmp\ 4389}# |
0f550375 AW |
15786 | '(#(free-id |
15787 | #(syntax-object | |
15788 | unquote | |
15789 | ((top) | |
15790 | #(ribcage | |
15791 | #(p q) | |
15792 | #((top) (top)) | |
43353663 | 15793 | #("i4385" "i4386")) |
0f550375 AW |
15794 | #(ribcage () () ()) |
15795 | #(ribcage | |
15796 | #(p lev) | |
15797 | #((top) (top)) | |
43353663 | 15798 | #("i4375" "i4376")) |
0f550375 AW |
15799 | #(ribcage |
15800 | (emit quasivector | |
15801 | quasilist* | |
15802 | quasiappend | |
15803 | quasicons | |
15804 | vquasi | |
15805 | quasi) | |
15806 | ((top) | |
15807 | (top) | |
15808 | (top) | |
15809 | (top) | |
15810 | (top) | |
15811 | (top) | |
15812 | (top)) | |
43353663 | 15813 | ("i4371" |
0f550375 AW |
15814 | "i4369" |
15815 | "i4367" | |
43353663 AW |
15816 | "i4365" |
15817 | "i4363" | |
15818 | "i4361" | |
15819 | "i4359"))) | |
0f550375 AW |
15820 | (hygiene guile))) |
15821 | . | |
15822 | each-any)))) | |
43353663 | 15823 | (if #{tmp\ 4390}# |
0f550375 | 15824 | (@apply |
43353663 AW |
15825 | (lambda (#{p\ 4392}#) |
15826 | (if (= #{lev\ 4374}# 0) | |
15827 | (#{quasilist*\ 4368}# | |
15828 | (map (lambda (#{tmp\ 4393}#) | |
0f550375 AW |
15829 | (list '#(syntax-object |
15830 | "value" | |
15831 | ((top) | |
15832 | #(ribcage | |
15833 | #(p) | |
15834 | #((top)) | |
43353663 | 15835 | #("i4391")) |
0f550375 AW |
15836 | #(ribcage |
15837 | #(p q) | |
15838 | #((top) (top)) | |
43353663 AW |
15839 | #("i4385" |
15840 | "i4386")) | |
0f550375 AW |
15841 | #(ribcage () () ()) |
15842 | #(ribcage | |
15843 | #(p lev) | |
15844 | #((top) (top)) | |
43353663 AW |
15845 | #("i4375" |
15846 | "i4376")) | |
0f550375 AW |
15847 | #(ribcage |
15848 | (emit quasivector | |
15849 | quasilist* | |
15850 | quasiappend | |
15851 | quasicons | |
15852 | vquasi | |
15853 | quasi) | |
15854 | ((top) | |
15855 | (top) | |
15856 | (top) | |
15857 | (top) | |
15858 | (top) | |
15859 | (top) | |
15860 | (top)) | |
43353663 | 15861 | ("i4371" |
0f550375 AW |
15862 | "i4369" |
15863 | "i4367" | |
43353663 AW |
15864 | "i4365" |
15865 | "i4363" | |
15866 | "i4361" | |
15867 | "i4359"))) | |
0f550375 | 15868 | (hygiene guile)) |
43353663 AW |
15869 | #{tmp\ 4393}#)) |
15870 | #{p\ 4392}#) | |
15871 | (#{quasi\ 4360}# | |
15872 | #{q\ 4388}# | |
15873 | #{lev\ 4374}#)) | |
15874 | (#{quasicons\ 4364}# | |
15875 | (#{quasicons\ 4364}# | |
0f550375 AW |
15876 | '(#(syntax-object |
15877 | "quote" | |
15878 | ((top) | |
15879 | #(ribcage | |
15880 | #(p) | |
15881 | #((top)) | |
43353663 | 15882 | #("i4391")) |
0f550375 AW |
15883 | #(ribcage |
15884 | #(p q) | |
15885 | #((top) (top)) | |
43353663 | 15886 | #("i4385" "i4386")) |
0f550375 AW |
15887 | #(ribcage () () ()) |
15888 | #(ribcage | |
15889 | #(p lev) | |
15890 | #((top) (top)) | |
43353663 | 15891 | #("i4375" "i4376")) |
0f550375 AW |
15892 | #(ribcage |
15893 | (emit quasivector | |
15894 | quasilist* | |
15895 | quasiappend | |
15896 | quasicons | |
15897 | vquasi | |
15898 | quasi) | |
15899 | ((top) | |
15900 | (top) | |
15901 | (top) | |
15902 | (top) | |
15903 | (top) | |
15904 | (top) | |
15905 | (top)) | |
43353663 | 15906 | ("i4371" |
0f550375 AW |
15907 | "i4369" |
15908 | "i4367" | |
43353663 AW |
15909 | "i4365" |
15910 | "i4363" | |
15911 | "i4361" | |
15912 | "i4359"))) | |
0f550375 AW |
15913 | (hygiene guile)) |
15914 | #(syntax-object | |
15915 | unquote | |
15916 | ((top) | |
15917 | #(ribcage | |
15918 | #(p) | |
15919 | #((top)) | |
43353663 | 15920 | #("i4391")) |
0f550375 AW |
15921 | #(ribcage |
15922 | #(p q) | |
15923 | #((top) (top)) | |
43353663 | 15924 | #("i4385" "i4386")) |
0f550375 AW |
15925 | #(ribcage () () ()) |
15926 | #(ribcage | |
15927 | #(p lev) | |
15928 | #((top) (top)) | |
43353663 | 15929 | #("i4375" "i4376")) |
0f550375 AW |
15930 | #(ribcage |
15931 | (emit quasivector | |
15932 | quasilist* | |
15933 | quasiappend | |
15934 | quasicons | |
15935 | vquasi | |
15936 | quasi) | |
15937 | ((top) | |
15938 | (top) | |
15939 | (top) | |
15940 | (top) | |
15941 | (top) | |
15942 | (top) | |
15943 | (top)) | |
43353663 | 15944 | ("i4371" |
0f550375 AW |
15945 | "i4369" |
15946 | "i4367" | |
43353663 AW |
15947 | "i4365" |
15948 | "i4363" | |
15949 | "i4361" | |
15950 | "i4359"))) | |
0f550375 | 15951 | (hygiene guile))) |
43353663 AW |
15952 | (#{quasi\ 4360}# |
15953 | #{p\ 4392}# | |
15954 | (1- #{lev\ 4374}#))) | |
15955 | (#{quasi\ 4360}# | |
15956 | #{q\ 4388}# | |
15957 | #{lev\ 4374}#)))) | |
15958 | #{tmp\ 4390}#) | |
15959 | (let ((#{tmp\ 4395}# | |
0f550375 | 15960 | ($sc-dispatch |
43353663 | 15961 | #{tmp\ 4389}# |
0f550375 AW |
15962 | '(#(free-id |
15963 | #(syntax-object | |
15964 | unquote-splicing | |
15965 | ((top) | |
15966 | #(ribcage | |
15967 | #(p q) | |
15968 | #((top) (top)) | |
43353663 | 15969 | #("i4385" "i4386")) |
0f550375 AW |
15970 | #(ribcage () () ()) |
15971 | #(ribcage | |
15972 | #(p lev) | |
15973 | #((top) (top)) | |
43353663 | 15974 | #("i4375" "i4376")) |
0f550375 AW |
15975 | #(ribcage |
15976 | (emit quasivector | |
15977 | quasilist* | |
15978 | quasiappend | |
15979 | quasicons | |
15980 | vquasi | |
15981 | quasi) | |
15982 | ((top) | |
15983 | (top) | |
15984 | (top) | |
15985 | (top) | |
15986 | (top) | |
15987 | (top) | |
15988 | (top)) | |
43353663 | 15989 | ("i4371" |
0f550375 AW |
15990 | "i4369" |
15991 | "i4367" | |
43353663 AW |
15992 | "i4365" |
15993 | "i4363" | |
15994 | "i4361" | |
15995 | "i4359"))) | |
0f550375 AW |
15996 | (hygiene guile))) |
15997 | . | |
15998 | each-any)))) | |
43353663 | 15999 | (if #{tmp\ 4395}# |
0f550375 | 16000 | (@apply |
43353663 AW |
16001 | (lambda (#{p\ 4397}#) |
16002 | (if (= #{lev\ 4374}# 0) | |
16003 | (#{quasiappend\ 4366}# | |
16004 | (map (lambda (#{tmp\ 4398}#) | |
0f550375 AW |
16005 | (list '#(syntax-object |
16006 | "value" | |
16007 | ((top) | |
16008 | #(ribcage | |
16009 | #(p) | |
16010 | #((top)) | |
43353663 | 16011 | #("i4396")) |
0f550375 AW |
16012 | #(ribcage |
16013 | #(p q) | |
16014 | #((top) | |
16015 | (top)) | |
43353663 AW |
16016 | #("i4385" |
16017 | "i4386")) | |
0f550375 AW |
16018 | #(ribcage |
16019 | () | |
16020 | () | |
16021 | ()) | |
16022 | #(ribcage | |
16023 | #(p lev) | |
16024 | #((top) | |
16025 | (top)) | |
43353663 AW |
16026 | #("i4375" |
16027 | "i4376")) | |
0f550375 AW |
16028 | #(ribcage |
16029 | (emit quasivector | |
16030 | quasilist* | |
16031 | quasiappend | |
16032 | quasicons | |
16033 | vquasi | |
16034 | quasi) | |
16035 | ((top) | |
16036 | (top) | |
16037 | (top) | |
16038 | (top) | |
16039 | (top) | |
16040 | (top) | |
16041 | (top)) | |
43353663 | 16042 | ("i4371" |
0f550375 AW |
16043 | "i4369" |
16044 | "i4367" | |
43353663 AW |
16045 | "i4365" |
16046 | "i4363" | |
16047 | "i4361" | |
16048 | "i4359"))) | |
0f550375 | 16049 | (hygiene guile)) |
43353663 AW |
16050 | #{tmp\ 4398}#)) |
16051 | #{p\ 4397}#) | |
16052 | (#{quasi\ 4360}# | |
16053 | #{q\ 4388}# | |
16054 | #{lev\ 4374}#)) | |
16055 | (#{quasicons\ 4364}# | |
16056 | (#{quasicons\ 4364}# | |
0f550375 AW |
16057 | '(#(syntax-object |
16058 | "quote" | |
16059 | ((top) | |
16060 | #(ribcage | |
16061 | #(p) | |
16062 | #((top)) | |
43353663 | 16063 | #("i4396")) |
0f550375 AW |
16064 | #(ribcage |
16065 | #(p q) | |
16066 | #((top) (top)) | |
43353663 | 16067 | #("i4385" "i4386")) |
0f550375 AW |
16068 | #(ribcage () () ()) |
16069 | #(ribcage | |
16070 | #(p lev) | |
16071 | #((top) (top)) | |
43353663 | 16072 | #("i4375" "i4376")) |
0f550375 AW |
16073 | #(ribcage |
16074 | (emit quasivector | |
16075 | quasilist* | |
16076 | quasiappend | |
16077 | quasicons | |
16078 | vquasi | |
16079 | quasi) | |
16080 | ((top) | |
16081 | (top) | |
16082 | (top) | |
16083 | (top) | |
16084 | (top) | |
16085 | (top) | |
16086 | (top)) | |
43353663 | 16087 | ("i4371" |
0f550375 AW |
16088 | "i4369" |
16089 | "i4367" | |
43353663 AW |
16090 | "i4365" |
16091 | "i4363" | |
16092 | "i4361" | |
16093 | "i4359"))) | |
0f550375 AW |
16094 | (hygiene guile)) |
16095 | #(syntax-object | |
16096 | unquote-splicing | |
16097 | ((top) | |
16098 | #(ribcage | |
16099 | #(p) | |
16100 | #((top)) | |
43353663 | 16101 | #("i4396")) |
0f550375 AW |
16102 | #(ribcage |
16103 | #(p q) | |
16104 | #((top) (top)) | |
43353663 | 16105 | #("i4385" "i4386")) |
0f550375 AW |
16106 | #(ribcage () () ()) |
16107 | #(ribcage | |
16108 | #(p lev) | |
16109 | #((top) (top)) | |
43353663 | 16110 | #("i4375" "i4376")) |
0f550375 AW |
16111 | #(ribcage |
16112 | (emit quasivector | |
16113 | quasilist* | |
16114 | quasiappend | |
16115 | quasicons | |
16116 | vquasi | |
16117 | quasi) | |
16118 | ((top) | |
16119 | (top) | |
16120 | (top) | |
16121 | (top) | |
16122 | (top) | |
16123 | (top) | |
16124 | (top)) | |
43353663 | 16125 | ("i4371" |
0f550375 AW |
16126 | "i4369" |
16127 | "i4367" | |
43353663 AW |
16128 | "i4365" |
16129 | "i4363" | |
16130 | "i4361" | |
16131 | "i4359"))) | |
0f550375 | 16132 | (hygiene guile))) |
43353663 AW |
16133 | (#{quasi\ 4360}# |
16134 | #{p\ 4397}# | |
16135 | (1- #{lev\ 4374}#))) | |
16136 | (#{quasi\ 4360}# | |
16137 | #{q\ 4388}# | |
16138 | #{lev\ 4374}#)))) | |
16139 | #{tmp\ 4395}#) | |
16140 | (let ((#{_\ 4401}# #{tmp\ 4389}#)) | |
16141 | (#{quasicons\ 4364}# | |
16142 | (#{quasi\ 4360}# | |
16143 | #{p\ 4387}# | |
16144 | #{lev\ 4374}#) | |
16145 | (#{quasi\ 4360}# | |
16146 | #{q\ 4388}# | |
16147 | #{lev\ 4374}#))))))))) | |
16148 | #{tmp\ 4384}#) | |
16149 | (let ((#{tmp\ 4402}# | |
0f550375 | 16150 | ($sc-dispatch |
43353663 | 16151 | #{tmp\ 4377}# |
0f550375 | 16152 | '#(vector each-any)))) |
43353663 | 16153 | (if #{tmp\ 4402}# |
0f550375 | 16154 | (@apply |
43353663 AW |
16155 | (lambda (#{x\ 4404}#) |
16156 | (#{quasivector\ 4370}# | |
16157 | (#{vquasi\ 4362}# | |
16158 | #{x\ 4404}# | |
16159 | #{lev\ 4374}#))) | |
16160 | #{tmp\ 4402}#) | |
16161 | (let ((#{p\ 4407}# #{tmp\ 4377}#)) | |
0f550375 AW |
16162 | (list '#(syntax-object |
16163 | "quote" | |
16164 | ((top) | |
43353663 | 16165 | #(ribcage #(p) #((top)) #("i4406")) |
0f550375 AW |
16166 | #(ribcage () () ()) |
16167 | #(ribcage | |
16168 | #(p lev) | |
16169 | #((top) (top)) | |
43353663 | 16170 | #("i4375" "i4376")) |
0f550375 AW |
16171 | #(ribcage |
16172 | (emit quasivector | |
16173 | quasilist* | |
16174 | quasiappend | |
16175 | quasicons | |
16176 | vquasi | |
16177 | quasi) | |
16178 | ((top) | |
16179 | (top) | |
16180 | (top) | |
16181 | (top) | |
16182 | (top) | |
16183 | (top) | |
16184 | (top)) | |
43353663 | 16185 | ("i4371" |
0f550375 AW |
16186 | "i4369" |
16187 | "i4367" | |
43353663 AW |
16188 | "i4365" |
16189 | "i4363" | |
16190 | "i4361" | |
16191 | "i4359"))) | |
0f550375 | 16192 | (hygiene guile)) |
43353663 AW |
16193 | #{p\ 4407}#))))))))))))) |
16194 | (#{vquasi\ 4362}# | |
16195 | (lambda (#{p\ 4408}# #{lev\ 4409}#) | |
16196 | (let ((#{tmp\ 4412}# #{p\ 4408}#)) | |
16197 | (let ((#{tmp\ 4413}# | |
16198 | ($sc-dispatch #{tmp\ 4412}# '(any . any)))) | |
16199 | (if #{tmp\ 4413}# | |
417ee098 | 16200 | (@apply |
43353663 AW |
16201 | (lambda (#{p\ 4416}# #{q\ 4417}#) |
16202 | (let ((#{tmp\ 4418}# #{p\ 4416}#)) | |
16203 | (let ((#{tmp\ 4419}# | |
417ee098 | 16204 | ($sc-dispatch |
43353663 | 16205 | #{tmp\ 4418}# |
417ee098 AW |
16206 | '(#(free-id |
16207 | #(syntax-object | |
0f550375 | 16208 | unquote |
417ee098 AW |
16209 | ((top) |
16210 | #(ribcage | |
0f550375 | 16211 | #(p q) |
417ee098 | 16212 | #((top) (top)) |
43353663 | 16213 | #("i4414" "i4415")) |
417ee098 AW |
16214 | #(ribcage () () ()) |
16215 | #(ribcage | |
0f550375 | 16216 | #(p lev) |
417ee098 | 16217 | #((top) (top)) |
43353663 | 16218 | #("i4410" "i4411")) |
417ee098 | 16219 | #(ribcage |
0f550375 AW |
16220 | (emit quasivector |
16221 | quasilist* | |
16222 | quasiappend | |
16223 | quasicons | |
16224 | vquasi | |
16225 | quasi) | |
16226 | ((top) | |
16227 | (top) | |
16228 | (top) | |
16229 | (top) | |
16230 | (top) | |
16231 | (top) | |
16232 | (top)) | |
43353663 | 16233 | ("i4371" |
0f550375 AW |
16234 | "i4369" |
16235 | "i4367" | |
43353663 AW |
16236 | "i4365" |
16237 | "i4363" | |
16238 | "i4361" | |
16239 | "i4359"))) | |
417ee098 | 16240 | (hygiene guile))) |
0f550375 AW |
16241 | . |
16242 | each-any)))) | |
43353663 | 16243 | (if #{tmp\ 4419}# |
0f550375 | 16244 | (@apply |
43353663 AW |
16245 | (lambda (#{p\ 4421}#) |
16246 | (if (= #{lev\ 4409}# 0) | |
16247 | (#{quasilist*\ 4368}# | |
16248 | (map (lambda (#{tmp\ 4422}#) | |
0f550375 AW |
16249 | (list '#(syntax-object |
16250 | "value" | |
16251 | ((top) | |
16252 | #(ribcage | |
16253 | #(p) | |
16254 | #((top)) | |
43353663 | 16255 | #("i4420")) |
0f550375 AW |
16256 | #(ribcage |
16257 | #(p q) | |
16258 | #((top) (top)) | |
43353663 | 16259 | #("i4414" "i4415")) |
0f550375 AW |
16260 | #(ribcage () () ()) |
16261 | #(ribcage | |
16262 | #(p lev) | |
16263 | #((top) (top)) | |
43353663 | 16264 | #("i4410" "i4411")) |
0f550375 AW |
16265 | #(ribcage |
16266 | (emit quasivector | |
16267 | quasilist* | |
16268 | quasiappend | |
16269 | quasicons | |
16270 | vquasi | |
16271 | quasi) | |
16272 | ((top) | |
16273 | (top) | |
16274 | (top) | |
16275 | (top) | |
16276 | (top) | |
16277 | (top) | |
16278 | (top)) | |
43353663 | 16279 | ("i4371" |
0f550375 AW |
16280 | "i4369" |
16281 | "i4367" | |
43353663 AW |
16282 | "i4365" |
16283 | "i4363" | |
16284 | "i4361" | |
16285 | "i4359"))) | |
0f550375 | 16286 | (hygiene guile)) |
43353663 AW |
16287 | #{tmp\ 4422}#)) |
16288 | #{p\ 4421}#) | |
16289 | (#{vquasi\ 4362}# | |
16290 | #{q\ 4417}# | |
16291 | #{lev\ 4409}#)) | |
16292 | (#{quasicons\ 4364}# | |
16293 | (#{quasicons\ 4364}# | |
0f550375 AW |
16294 | '(#(syntax-object |
16295 | "quote" | |
16296 | ((top) | |
43353663 | 16297 | #(ribcage #(p) #((top)) #("i4420")) |
0f550375 AW |
16298 | #(ribcage |
16299 | #(p q) | |
16300 | #((top) (top)) | |
43353663 | 16301 | #("i4414" "i4415")) |
0f550375 AW |
16302 | #(ribcage () () ()) |
16303 | #(ribcage | |
16304 | #(p lev) | |
16305 | #((top) (top)) | |
43353663 | 16306 | #("i4410" "i4411")) |
0f550375 AW |
16307 | #(ribcage |
16308 | (emit quasivector | |
16309 | quasilist* | |
16310 | quasiappend | |
16311 | quasicons | |
16312 | vquasi | |
16313 | quasi) | |
16314 | ((top) | |
16315 | (top) | |
16316 | (top) | |
16317 | (top) | |
16318 | (top) | |
16319 | (top) | |
16320 | (top)) | |
43353663 | 16321 | ("i4371" |
0f550375 AW |
16322 | "i4369" |
16323 | "i4367" | |
43353663 AW |
16324 | "i4365" |
16325 | "i4363" | |
16326 | "i4361" | |
16327 | "i4359"))) | |
0f550375 AW |
16328 | (hygiene guile)) |
16329 | #(syntax-object | |
16330 | unquote | |
16331 | ((top) | |
43353663 | 16332 | #(ribcage #(p) #((top)) #("i4420")) |
0f550375 AW |
16333 | #(ribcage |
16334 | #(p q) | |
16335 | #((top) (top)) | |
43353663 | 16336 | #("i4414" "i4415")) |
0f550375 AW |
16337 | #(ribcage () () ()) |
16338 | #(ribcage | |
16339 | #(p lev) | |
16340 | #((top) (top)) | |
43353663 | 16341 | #("i4410" "i4411")) |
0f550375 AW |
16342 | #(ribcage |
16343 | (emit quasivector | |
16344 | quasilist* | |
16345 | quasiappend | |
16346 | quasicons | |
16347 | vquasi | |
16348 | quasi) | |
16349 | ((top) | |
16350 | (top) | |
16351 | (top) | |
16352 | (top) | |
16353 | (top) | |
16354 | (top) | |
16355 | (top)) | |
43353663 | 16356 | ("i4371" |
0f550375 AW |
16357 | "i4369" |
16358 | "i4367" | |
43353663 AW |
16359 | "i4365" |
16360 | "i4363" | |
16361 | "i4361" | |
16362 | "i4359"))) | |
0f550375 | 16363 | (hygiene guile))) |
43353663 AW |
16364 | (#{quasi\ 4360}# |
16365 | #{p\ 4421}# | |
16366 | (1- #{lev\ 4409}#))) | |
16367 | (#{vquasi\ 4362}# | |
16368 | #{q\ 4417}# | |
16369 | #{lev\ 4409}#)))) | |
16370 | #{tmp\ 4419}#) | |
16371 | (let ((#{tmp\ 4424}# | |
0f550375 | 16372 | ($sc-dispatch |
43353663 | 16373 | #{tmp\ 4418}# |
0f550375 AW |
16374 | '(#(free-id |
16375 | #(syntax-object | |
16376 | unquote-splicing | |
16377 | ((top) | |
16378 | #(ribcage | |
16379 | #(p q) | |
16380 | #((top) (top)) | |
43353663 | 16381 | #("i4414" "i4415")) |
0f550375 AW |
16382 | #(ribcage () () ()) |
16383 | #(ribcage | |
16384 | #(p lev) | |
16385 | #((top) (top)) | |
43353663 | 16386 | #("i4410" "i4411")) |
0f550375 AW |
16387 | #(ribcage |
16388 | (emit quasivector | |
16389 | quasilist* | |
16390 | quasiappend | |
16391 | quasicons | |
16392 | vquasi | |
16393 | quasi) | |
16394 | ((top) | |
16395 | (top) | |
16396 | (top) | |
16397 | (top) | |
16398 | (top) | |
16399 | (top) | |
16400 | (top)) | |
43353663 | 16401 | ("i4371" |
0f550375 AW |
16402 | "i4369" |
16403 | "i4367" | |
43353663 AW |
16404 | "i4365" |
16405 | "i4363" | |
16406 | "i4361" | |
16407 | "i4359"))) | |
0f550375 AW |
16408 | (hygiene guile))) |
16409 | . | |
16410 | each-any)))) | |
43353663 | 16411 | (if #{tmp\ 4424}# |
0f550375 | 16412 | (@apply |
43353663 AW |
16413 | (lambda (#{p\ 4426}#) |
16414 | (if (= #{lev\ 4409}# 0) | |
16415 | (#{quasiappend\ 4366}# | |
16416 | (map (lambda (#{tmp\ 4427}#) | |
0f550375 AW |
16417 | (list '#(syntax-object |
16418 | "value" | |
16419 | ((top) | |
16420 | #(ribcage | |
16421 | #(p) | |
16422 | #((top)) | |
43353663 | 16423 | #("i4425")) |
0f550375 AW |
16424 | #(ribcage |
16425 | #(p q) | |
16426 | #((top) (top)) | |
43353663 | 16427 | #("i4414" "i4415")) |
0f550375 AW |
16428 | #(ribcage () () ()) |
16429 | #(ribcage | |
16430 | #(p lev) | |
16431 | #((top) (top)) | |
43353663 | 16432 | #("i4410" "i4411")) |
0f550375 AW |
16433 | #(ribcage |
16434 | (emit quasivector | |
16435 | quasilist* | |
16436 | quasiappend | |
16437 | quasicons | |
16438 | vquasi | |
16439 | quasi) | |
16440 | ((top) | |
16441 | (top) | |
16442 | (top) | |
16443 | (top) | |
16444 | (top) | |
16445 | (top) | |
16446 | (top)) | |
43353663 | 16447 | ("i4371" |
0f550375 AW |
16448 | "i4369" |
16449 | "i4367" | |
43353663 AW |
16450 | "i4365" |
16451 | "i4363" | |
16452 | "i4361" | |
16453 | "i4359"))) | |
0f550375 | 16454 | (hygiene guile)) |
43353663 AW |
16455 | #{tmp\ 4427}#)) |
16456 | #{p\ 4426}#) | |
16457 | (#{vquasi\ 4362}# | |
16458 | #{q\ 4417}# | |
16459 | #{lev\ 4409}#)) | |
16460 | (#{quasicons\ 4364}# | |
16461 | (#{quasicons\ 4364}# | |
0f550375 AW |
16462 | '(#(syntax-object |
16463 | "quote" | |
16464 | ((top) | |
16465 | #(ribcage | |
16466 | #(p) | |
16467 | #((top)) | |
43353663 | 16468 | #("i4425")) |
0f550375 AW |
16469 | #(ribcage |
16470 | #(p q) | |
16471 | #((top) (top)) | |
43353663 | 16472 | #("i4414" "i4415")) |
0f550375 AW |
16473 | #(ribcage () () ()) |
16474 | #(ribcage | |
16475 | #(p lev) | |
16476 | #((top) (top)) | |
43353663 | 16477 | #("i4410" "i4411")) |
0f550375 AW |
16478 | #(ribcage |
16479 | (emit quasivector | |
16480 | quasilist* | |
16481 | quasiappend | |
16482 | quasicons | |
16483 | vquasi | |
16484 | quasi) | |
16485 | ((top) | |
16486 | (top) | |
16487 | (top) | |
16488 | (top) | |
16489 | (top) | |
16490 | (top) | |
16491 | (top)) | |
43353663 | 16492 | ("i4371" |
0f550375 AW |
16493 | "i4369" |
16494 | "i4367" | |
43353663 AW |
16495 | "i4365" |
16496 | "i4363" | |
16497 | "i4361" | |
16498 | "i4359"))) | |
0f550375 AW |
16499 | (hygiene guile)) |
16500 | #(syntax-object | |
16501 | unquote-splicing | |
16502 | ((top) | |
16503 | #(ribcage | |
16504 | #(p) | |
16505 | #((top)) | |
43353663 | 16506 | #("i4425")) |
0f550375 AW |
16507 | #(ribcage |
16508 | #(p q) | |
16509 | #((top) (top)) | |
43353663 | 16510 | #("i4414" "i4415")) |
0f550375 AW |
16511 | #(ribcage () () ()) |
16512 | #(ribcage | |
16513 | #(p lev) | |
16514 | #((top) (top)) | |
43353663 | 16515 | #("i4410" "i4411")) |
0f550375 AW |
16516 | #(ribcage |
16517 | (emit quasivector | |
16518 | quasilist* | |
16519 | quasiappend | |
16520 | quasicons | |
16521 | vquasi | |
16522 | quasi) | |
16523 | ((top) | |
16524 | (top) | |
16525 | (top) | |
16526 | (top) | |
16527 | (top) | |
16528 | (top) | |
16529 | (top)) | |
43353663 | 16530 | ("i4371" |
0f550375 AW |
16531 | "i4369" |
16532 | "i4367" | |
43353663 AW |
16533 | "i4365" |
16534 | "i4363" | |
16535 | "i4361" | |
16536 | "i4359"))) | |
0f550375 | 16537 | (hygiene guile))) |
43353663 AW |
16538 | (#{quasi\ 4360}# |
16539 | #{p\ 4426}# | |
16540 | (1- #{lev\ 4409}#))) | |
16541 | (#{vquasi\ 4362}# | |
16542 | #{q\ 4417}# | |
16543 | #{lev\ 4409}#)))) | |
16544 | #{tmp\ 4424}#) | |
16545 | (let ((#{_\ 4430}# #{tmp\ 4418}#)) | |
16546 | (#{quasicons\ 4364}# | |
16547 | (#{quasi\ 4360}# #{p\ 4416}# #{lev\ 4409}#) | |
16548 | (#{vquasi\ 4362}# | |
16549 | #{q\ 4417}# | |
16550 | #{lev\ 4409}#))))))))) | |
16551 | #{tmp\ 4413}#) | |
16552 | (let ((#{tmp\ 4431}# ($sc-dispatch #{tmp\ 4412}# '()))) | |
16553 | (if #{tmp\ 4431}# | |
0f550375 AW |
16554 | (@apply |
16555 | (lambda () | |
16556 | '(#(syntax-object | |
16557 | "quote" | |
16558 | ((top) | |
16559 | #(ribcage () () ()) | |
16560 | #(ribcage | |
16561 | #(p lev) | |
16562 | #((top) (top)) | |
43353663 | 16563 | #("i4410" "i4411")) |
0f550375 AW |
16564 | #(ribcage |
16565 | (emit quasivector | |
16566 | quasilist* | |
16567 | quasiappend | |
16568 | quasicons | |
16569 | vquasi | |
16570 | quasi) | |
16571 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 16572 | ("i4371" |
0f550375 AW |
16573 | "i4369" |
16574 | "i4367" | |
43353663 AW |
16575 | "i4365" |
16576 | "i4363" | |
16577 | "i4361" | |
16578 | "i4359"))) | |
0f550375 AW |
16579 | (hygiene guile)) |
16580 | ())) | |
43353663 | 16581 | #{tmp\ 4431}#) |
0f550375 AW |
16582 | (syntax-violation |
16583 | #f | |
16584 | "source expression failed to match any pattern" | |
43353663 AW |
16585 | #{tmp\ 4412}#)))))))) |
16586 | (#{quasicons\ 4364}# | |
16587 | (lambda (#{x\ 4432}# #{y\ 4433}#) | |
16588 | (let ((#{tmp\ 4437}# (list #{x\ 4432}# #{y\ 4433}#))) | |
16589 | (let ((#{tmp\ 4438}# | |
16590 | ($sc-dispatch #{tmp\ 4437}# '(any any)))) | |
16591 | (if #{tmp\ 4438}# | |
0f550375 | 16592 | (@apply |
43353663 AW |
16593 | (lambda (#{x\ 4441}# #{y\ 4442}#) |
16594 | (let ((#{tmp\ 4443}# #{y\ 4442}#)) | |
16595 | (let ((#{tmp\ 4444}# | |
0f550375 | 16596 | ($sc-dispatch |
43353663 | 16597 | #{tmp\ 4443}# |
0f550375 | 16598 | '(#(atom "quote") any)))) |
43353663 | 16599 | (if #{tmp\ 4444}# |
417ee098 | 16600 | (@apply |
43353663 AW |
16601 | (lambda (#{dy\ 4446}#) |
16602 | (let ((#{tmp\ 4447}# #{x\ 4441}#)) | |
16603 | (let ((#{tmp\ 4448}# | |
417ee098 | 16604 | ($sc-dispatch |
43353663 | 16605 | #{tmp\ 4447}# |
0f550375 | 16606 | '(#(atom "quote") any)))) |
43353663 | 16607 | (if #{tmp\ 4448}# |
417ee098 | 16608 | (@apply |
43353663 | 16609 | (lambda (#{dx\ 4450}#) |
417ee098 | 16610 | (list '#(syntax-object |
0f550375 | 16611 | "quote" |
417ee098 AW |
16612 | ((top) |
16613 | #(ribcage | |
16614 | #(dx) | |
16615 | #((top)) | |
43353663 | 16616 | #("i4449")) |
417ee098 AW |
16617 | #(ribcage |
16618 | #(dy) | |
16619 | #((top)) | |
43353663 | 16620 | #("i4445")) |
f929b9e5 | 16621 | #(ribcage () () ()) |
417ee098 AW |
16622 | #(ribcage |
16623 | #(x y) | |
16624 | #((top) (top)) | |
43353663 | 16625 | #("i4439" "i4440")) |
417ee098 AW |
16626 | #(ribcage () () ()) |
16627 | #(ribcage () () ()) | |
16628 | #(ribcage | |
16629 | #(x y) | |
16630 | #((top) (top)) | |
43353663 | 16631 | #("i4434" "i4435")) |
417ee098 | 16632 | #(ribcage |
0f550375 AW |
16633 | (emit quasivector |
16634 | quasilist* | |
16635 | quasiappend | |
16636 | quasicons | |
16637 | vquasi | |
16638 | quasi) | |
16639 | ((top) | |
16640 | (top) | |
16641 | (top) | |
16642 | (top) | |
16643 | (top) | |
16644 | (top) | |
16645 | (top)) | |
43353663 | 16646 | ("i4371" |
0f550375 AW |
16647 | "i4369" |
16648 | "i4367" | |
43353663 AW |
16649 | "i4365" |
16650 | "i4363" | |
16651 | "i4361" | |
16652 | "i4359"))) | |
417ee098 | 16653 | (hygiene guile)) |
43353663 AW |
16654 | (cons #{dx\ 4450}# |
16655 | #{dy\ 4446}#))) | |
16656 | #{tmp\ 4448}#) | |
16657 | (let ((#{_\ 4452}# #{tmp\ 4447}#)) | |
16658 | (if (null? #{dy\ 4446}#) | |
417ee098 | 16659 | (list '#(syntax-object |
0f550375 | 16660 | "list" |
417ee098 AW |
16661 | ((top) |
16662 | #(ribcage | |
16663 | #(_) | |
16664 | #((top)) | |
43353663 | 16665 | #("i4451")) |
417ee098 AW |
16666 | #(ribcage |
16667 | #(dy) | |
16668 | #((top)) | |
43353663 | 16669 | #("i4445")) |
f929b9e5 | 16670 | #(ribcage () () ()) |
417ee098 AW |
16671 | #(ribcage |
16672 | #(x y) | |
16673 | #((top) (top)) | |
43353663 | 16674 | #("i4439" "i4440")) |
417ee098 AW |
16675 | #(ribcage () () ()) |
16676 | #(ribcage () () ()) | |
16677 | #(ribcage | |
16678 | #(x y) | |
16679 | #((top) (top)) | |
43353663 | 16680 | #("i4434" "i4435")) |
417ee098 | 16681 | #(ribcage |
0f550375 AW |
16682 | (emit quasivector |
16683 | quasilist* | |
16684 | quasiappend | |
16685 | quasicons | |
16686 | vquasi | |
16687 | quasi) | |
16688 | ((top) | |
16689 | (top) | |
16690 | (top) | |
16691 | (top) | |
16692 | (top) | |
16693 | (top) | |
16694 | (top)) | |
43353663 | 16695 | ("i4371" |
0f550375 AW |
16696 | "i4369" |
16697 | "i4367" | |
43353663 AW |
16698 | "i4365" |
16699 | "i4363" | |
16700 | "i4361" | |
16701 | "i4359"))) | |
417ee098 | 16702 | (hygiene guile)) |
43353663 | 16703 | #{x\ 4441}#) |
417ee098 | 16704 | (list '#(syntax-object |
0f550375 | 16705 | "list*" |
417ee098 AW |
16706 | ((top) |
16707 | #(ribcage | |
16708 | #(_) | |
16709 | #((top)) | |
43353663 | 16710 | #("i4451")) |
417ee098 AW |
16711 | #(ribcage |
16712 | #(dy) | |
16713 | #((top)) | |
43353663 | 16714 | #("i4445")) |
f929b9e5 | 16715 | #(ribcage () () ()) |
417ee098 AW |
16716 | #(ribcage |
16717 | #(x y) | |
16718 | #((top) (top)) | |
43353663 | 16719 | #("i4439" "i4440")) |
417ee098 AW |
16720 | #(ribcage () () ()) |
16721 | #(ribcage () () ()) | |
16722 | #(ribcage | |
16723 | #(x y) | |
16724 | #((top) (top)) | |
43353663 | 16725 | #("i4434" "i4435")) |
417ee098 | 16726 | #(ribcage |
0f550375 AW |
16727 | (emit quasivector |
16728 | quasilist* | |
16729 | quasiappend | |
16730 | quasicons | |
16731 | vquasi | |
16732 | quasi) | |
16733 | ((top) | |
16734 | (top) | |
16735 | (top) | |
16736 | (top) | |
16737 | (top) | |
16738 | (top) | |
16739 | (top)) | |
43353663 | 16740 | ("i4371" |
0f550375 AW |
16741 | "i4369" |
16742 | "i4367" | |
43353663 AW |
16743 | "i4365" |
16744 | "i4363" | |
16745 | "i4361" | |
16746 | "i4359"))) | |
417ee098 | 16747 | (hygiene guile)) |
43353663 AW |
16748 | #{x\ 4441}# |
16749 | #{y\ 4442}#))))))) | |
16750 | #{tmp\ 4444}#) | |
16751 | (let ((#{tmp\ 4453}# | |
417ee098 | 16752 | ($sc-dispatch |
43353663 | 16753 | #{tmp\ 4443}# |
0f550375 | 16754 | '(#(atom "list") . any)))) |
43353663 | 16755 | (if #{tmp\ 4453}# |
417ee098 | 16756 | (@apply |
43353663 | 16757 | (lambda (#{stuff\ 4455}#) |
417ee098 | 16758 | (cons '#(syntax-object |
0f550375 | 16759 | "list" |
417ee098 AW |
16760 | ((top) |
16761 | #(ribcage | |
16762 | #(stuff) | |
16763 | #((top)) | |
43353663 | 16764 | #("i4454")) |
f929b9e5 | 16765 | #(ribcage () () ()) |
417ee098 AW |
16766 | #(ribcage |
16767 | #(x y) | |
16768 | #((top) (top)) | |
43353663 | 16769 | #("i4439" "i4440")) |
417ee098 AW |
16770 | #(ribcage () () ()) |
16771 | #(ribcage () () ()) | |
16772 | #(ribcage | |
16773 | #(x y) | |
16774 | #((top) (top)) | |
43353663 | 16775 | #("i4434" "i4435")) |
417ee098 | 16776 | #(ribcage |
0f550375 AW |
16777 | (emit quasivector |
16778 | quasilist* | |
16779 | quasiappend | |
16780 | quasicons | |
16781 | vquasi | |
16782 | quasi) | |
16783 | ((top) | |
16784 | (top) | |
16785 | (top) | |
16786 | (top) | |
16787 | (top) | |
16788 | (top) | |
16789 | (top)) | |
43353663 | 16790 | ("i4371" |
0f550375 AW |
16791 | "i4369" |
16792 | "i4367" | |
43353663 AW |
16793 | "i4365" |
16794 | "i4363" | |
16795 | "i4361" | |
16796 | "i4359"))) | |
417ee098 | 16797 | (hygiene guile)) |
43353663 AW |
16798 | (cons #{x\ 4441}# #{stuff\ 4455}#))) |
16799 | #{tmp\ 4453}#) | |
16800 | (let ((#{tmp\ 4456}# | |
0f550375 | 16801 | ($sc-dispatch |
43353663 | 16802 | #{tmp\ 4443}# |
0f550375 | 16803 | '(#(atom "list*") . any)))) |
43353663 | 16804 | (if #{tmp\ 4456}# |
0f550375 | 16805 | (@apply |
43353663 | 16806 | (lambda (#{stuff\ 4458}#) |
0f550375 AW |
16807 | (cons '#(syntax-object |
16808 | "list*" | |
16809 | ((top) | |
16810 | #(ribcage | |
16811 | #(stuff) | |
16812 | #((top)) | |
43353663 | 16813 | #("i4457")) |
f929b9e5 | 16814 | #(ribcage () () ()) |
0f550375 AW |
16815 | #(ribcage |
16816 | #(x y) | |
16817 | #((top) (top)) | |
43353663 | 16818 | #("i4439" "i4440")) |
0f550375 AW |
16819 | #(ribcage () () ()) |
16820 | #(ribcage () () ()) | |
16821 | #(ribcage | |
16822 | #(x y) | |
16823 | #((top) (top)) | |
43353663 | 16824 | #("i4434" "i4435")) |
0f550375 AW |
16825 | #(ribcage |
16826 | (emit quasivector | |
16827 | quasilist* | |
16828 | quasiappend | |
16829 | quasicons | |
16830 | vquasi | |
16831 | quasi) | |
16832 | ((top) | |
16833 | (top) | |
16834 | (top) | |
16835 | (top) | |
16836 | (top) | |
16837 | (top) | |
16838 | (top)) | |
43353663 | 16839 | ("i4371" |
0f550375 AW |
16840 | "i4369" |
16841 | "i4367" | |
43353663 AW |
16842 | "i4365" |
16843 | "i4363" | |
16844 | "i4361" | |
16845 | "i4359"))) | |
0f550375 | 16846 | (hygiene guile)) |
43353663 AW |
16847 | (cons #{x\ 4441}# |
16848 | #{stuff\ 4458}#))) | |
16849 | #{tmp\ 4456}#) | |
16850 | (let ((#{_\ 4460}# #{tmp\ 4443}#)) | |
0f550375 AW |
16851 | (list '#(syntax-object |
16852 | "list*" | |
16853 | ((top) | |
16854 | #(ribcage | |
16855 | #(_) | |
16856 | #((top)) | |
43353663 | 16857 | #("i4459")) |
f929b9e5 | 16858 | #(ribcage () () ()) |
0f550375 AW |
16859 | #(ribcage |
16860 | #(x y) | |
16861 | #((top) (top)) | |
43353663 | 16862 | #("i4439" "i4440")) |
0f550375 AW |
16863 | #(ribcage () () ()) |
16864 | #(ribcage () () ()) | |
16865 | #(ribcage | |
16866 | #(x y) | |
16867 | #((top) (top)) | |
43353663 | 16868 | #("i4434" "i4435")) |
0f550375 AW |
16869 | #(ribcage |
16870 | (emit quasivector | |
16871 | quasilist* | |
16872 | quasiappend | |
16873 | quasicons | |
16874 | vquasi | |
16875 | quasi) | |
16876 | ((top) | |
16877 | (top) | |
16878 | (top) | |
16879 | (top) | |
16880 | (top) | |
16881 | (top) | |
16882 | (top)) | |
43353663 | 16883 | ("i4371" |
0f550375 AW |
16884 | "i4369" |
16885 | "i4367" | |
43353663 AW |
16886 | "i4365" |
16887 | "i4363" | |
16888 | "i4361" | |
16889 | "i4359"))) | |
0f550375 | 16890 | (hygiene guile)) |
43353663 AW |
16891 | #{x\ 4441}# |
16892 | #{y\ 4442}#)))))))))) | |
16893 | #{tmp\ 4438}#) | |
417ee098 AW |
16894 | (syntax-violation |
16895 | #f | |
16896 | "source expression failed to match any pattern" | |
43353663 AW |
16897 | #{tmp\ 4437}#)))))) |
16898 | (#{quasiappend\ 4366}# | |
16899 | (lambda (#{x\ 4461}# #{y\ 4462}#) | |
16900 | (let ((#{tmp\ 4465}# #{y\ 4462}#)) | |
16901 | (let ((#{tmp\ 4466}# | |
417ee098 | 16902 | ($sc-dispatch |
43353663 | 16903 | #{tmp\ 4465}# |
0f550375 | 16904 | '(#(atom "quote") ())))) |
43353663 | 16905 | (if #{tmp\ 4466}# |
417ee098 | 16906 | (@apply |
0f550375 | 16907 | (lambda () |
43353663 | 16908 | (if (null? #{x\ 4461}#) |
0f550375 AW |
16909 | '(#(syntax-object |
16910 | "quote" | |
16911 | ((top) | |
16912 | #(ribcage () () ()) | |
16913 | #(ribcage | |
16914 | #(x y) | |
16915 | #((top) (top)) | |
43353663 | 16916 | #("i4463" "i4464")) |
0f550375 AW |
16917 | #(ribcage |
16918 | (emit quasivector | |
16919 | quasilist* | |
16920 | quasiappend | |
16921 | quasicons | |
16922 | vquasi | |
16923 | quasi) | |
16924 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 16925 | ("i4371" |
0f550375 AW |
16926 | "i4369" |
16927 | "i4367" | |
43353663 AW |
16928 | "i4365" |
16929 | "i4363" | |
16930 | "i4361" | |
16931 | "i4359"))) | |
0f550375 AW |
16932 | (hygiene guile)) |
16933 | ()) | |
43353663 AW |
16934 | (if (null? (cdr #{x\ 4461}#)) |
16935 | (car #{x\ 4461}#) | |
16936 | (let ((#{tmp\ 4473}# #{x\ 4461}#)) | |
16937 | (let ((#{tmp\ 4474}# | |
16938 | ($sc-dispatch #{tmp\ 4473}# 'each-any))) | |
16939 | (if #{tmp\ 4474}# | |
0f550375 | 16940 | (@apply |
43353663 | 16941 | (lambda (#{p\ 4476}#) |
417ee098 | 16942 | (cons '#(syntax-object |
0f550375 | 16943 | "append" |
417ee098 | 16944 | ((top) |
f929b9e5 | 16945 | #(ribcage () () ()) |
417ee098 | 16946 | #(ribcage |
0f550375 AW |
16947 | #(p) |
16948 | #((top)) | |
43353663 | 16949 | #("i4475")) |
417ee098 AW |
16950 | #(ribcage () () ()) |
16951 | #(ribcage | |
0f550375 | 16952 | #(x y) |
417ee098 | 16953 | #((top) (top)) |
43353663 | 16954 | #("i4463" "i4464")) |
417ee098 | 16955 | #(ribcage |
0f550375 AW |
16956 | (emit quasivector |
16957 | quasilist* | |
16958 | quasiappend | |
16959 | quasicons | |
16960 | vquasi | |
16961 | quasi) | |
16962 | ((top) | |
16963 | (top) | |
16964 | (top) | |
16965 | (top) | |
16966 | (top) | |
16967 | (top) | |
16968 | (top)) | |
43353663 | 16969 | ("i4371" |
0f550375 AW |
16970 | "i4369" |
16971 | "i4367" | |
43353663 AW |
16972 | "i4365" |
16973 | "i4363" | |
16974 | "i4361" | |
16975 | "i4359"))) | |
0f550375 | 16976 | (hygiene guile)) |
43353663 AW |
16977 | #{p\ 4476}#)) |
16978 | #{tmp\ 4474}#) | |
0f550375 AW |
16979 | (syntax-violation |
16980 | #f | |
16981 | "source expression failed to match any pattern" | |
43353663 AW |
16982 | #{tmp\ 4473}#))))))) |
16983 | #{tmp\ 4466}#) | |
16984 | (let ((#{_\ 4479}# #{tmp\ 4465}#)) | |
16985 | (if (null? #{x\ 4461}#) | |
16986 | #{y\ 4462}# | |
16987 | (let ((#{tmp\ 4484}# (list #{x\ 4461}# #{y\ 4462}#))) | |
16988 | (let ((#{tmp\ 4485}# | |
16989 | ($sc-dispatch #{tmp\ 4484}# '(each-any any)))) | |
16990 | (if #{tmp\ 4485}# | |
0f550375 | 16991 | (@apply |
43353663 | 16992 | (lambda (#{p\ 4488}# #{y\ 4489}#) |
0f550375 AW |
16993 | (cons '#(syntax-object |
16994 | "append" | |
16995 | ((top) | |
f929b9e5 | 16996 | #(ribcage () () ()) |
0f550375 AW |
16997 | #(ribcage |
16998 | #(p y) | |
16999 | #((top) (top)) | |
43353663 AW |
17000 | #("i4486" "i4487")) |
17001 | #(ribcage #(_) #((top)) #("i4478")) | |
0f550375 AW |
17002 | #(ribcage () () ()) |
17003 | #(ribcage | |
17004 | #(x y) | |
17005 | #((top) (top)) | |
43353663 | 17006 | #("i4463" "i4464")) |
0f550375 AW |
17007 | #(ribcage |
17008 | (emit quasivector | |
17009 | quasilist* | |
417ee098 | 17010 | quasiappend |
0f550375 AW |
17011 | quasicons |
17012 | vquasi | |
417ee098 | 17013 | quasi) |
417ee098 | 17014 | ((top) |
0f550375 AW |
17015 | (top) |
17016 | (top) | |
17017 | (top) | |
17018 | (top) | |
17019 | (top) | |
17020 | (top)) | |
43353663 | 17021 | ("i4371" |
0f550375 AW |
17022 | "i4369" |
17023 | "i4367" | |
43353663 AW |
17024 | "i4365" |
17025 | "i4363" | |
17026 | "i4361" | |
17027 | "i4359"))) | |
0f550375 | 17028 | (hygiene guile)) |
43353663 AW |
17029 | (append #{p\ 4488}# (list #{y\ 4489}#)))) |
17030 | #{tmp\ 4485}#) | |
0f550375 AW |
17031 | (syntax-violation |
17032 | #f | |
17033 | "source expression failed to match any pattern" | |
43353663 AW |
17034 | #{tmp\ 4484}#))))))))))) |
17035 | (#{quasilist*\ 4368}# | |
17036 | (lambda (#{x\ 4491}# #{y\ 4492}#) | |
0f550375 | 17037 | (letrec* |
43353663 AW |
17038 | ((#{f\ 4497}# |
17039 | (lambda (#{x\ 4498}#) | |
17040 | (if (null? #{x\ 4498}#) | |
17041 | #{y\ 4492}# | |
17042 | (#{quasicons\ 4364}# | |
17043 | (car #{x\ 4498}#) | |
17044 | (#{f\ 4497}# (cdr #{x\ 4498}#))))))) | |
17045 | (begin (#{f\ 4497}# #{x\ 4491}#))))) | |
17046 | (#{quasivector\ 4370}# | |
17047 | (lambda (#{x\ 4499}#) | |
17048 | (let ((#{tmp\ 4501}# #{x\ 4499}#)) | |
17049 | (let ((#{tmp\ 4502}# | |
0f550375 | 17050 | ($sc-dispatch |
43353663 | 17051 | #{tmp\ 4501}# |
0f550375 | 17052 | '(#(atom "quote") each-any)))) |
43353663 | 17053 | (if #{tmp\ 4502}# |
0f550375 | 17054 | (@apply |
43353663 | 17055 | (lambda (#{x\ 4504}#) |
0f550375 AW |
17056 | (list '#(syntax-object |
17057 | "quote" | |
17058 | ((top) | |
43353663 | 17059 | #(ribcage #(x) #((top)) #("i4503")) |
0f550375 | 17060 | #(ribcage () () ()) |
43353663 | 17061 | #(ribcage #(x) #((top)) #("i4500")) |
0f550375 AW |
17062 | #(ribcage |
17063 | (emit quasivector | |
17064 | quasilist* | |
17065 | quasiappend | |
17066 | quasicons | |
17067 | vquasi | |
17068 | quasi) | |
17069 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 17070 | ("i4371" |
0f550375 AW |
17071 | "i4369" |
17072 | "i4367" | |
43353663 AW |
17073 | "i4365" |
17074 | "i4363" | |
17075 | "i4361" | |
17076 | "i4359"))) | |
0f550375 | 17077 | (hygiene guile)) |
43353663 AW |
17078 | (list->vector #{x\ 4504}#))) |
17079 | #{tmp\ 4502}#) | |
17080 | (let ((#{_\ 4507}# #{tmp\ 4501}#)) | |
0f550375 | 17081 | (letrec* |
43353663 AW |
17082 | ((#{f\ 4511}# |
17083 | (lambda (#{y\ 4512}# #{k\ 4513}#) | |
17084 | (let ((#{tmp\ 4524}# #{y\ 4512}#)) | |
17085 | (let ((#{tmp\ 4525}# | |
0f550375 | 17086 | ($sc-dispatch |
43353663 | 17087 | #{tmp\ 4524}# |
0f550375 | 17088 | '(#(atom "quote") each-any)))) |
43353663 | 17089 | (if #{tmp\ 4525}# |
0f550375 | 17090 | (@apply |
43353663 AW |
17091 | (lambda (#{y\ 4527}#) |
17092 | (#{k\ 4513}# | |
17093 | (map (lambda (#{tmp\ 4528}#) | |
0f550375 AW |
17094 | (list '#(syntax-object |
17095 | "quote" | |
17096 | ((top) | |
17097 | #(ribcage | |
17098 | #(y) | |
17099 | #((top)) | |
43353663 | 17100 | #("i4526")) |
0f550375 AW |
17101 | #(ribcage () () ()) |
17102 | #(ribcage | |
17103 | #(f y k) | |
17104 | #((top) (top) (top)) | |
43353663 AW |
17105 | #("i4508" |
17106 | "i4509" | |
17107 | "i4510")) | |
0f550375 AW |
17108 | #(ribcage |
17109 | #(_) | |
17110 | #((top)) | |
43353663 | 17111 | #("i4506")) |
0f550375 AW |
17112 | #(ribcage () () ()) |
17113 | #(ribcage | |
17114 | #(x) | |
17115 | #((top)) | |
43353663 | 17116 | #("i4500")) |
0f550375 AW |
17117 | #(ribcage |
17118 | (emit quasivector | |
17119 | quasilist* | |
17120 | quasiappend | |
17121 | quasicons | |
17122 | vquasi | |
17123 | quasi) | |
17124 | ((top) | |
17125 | (top) | |
17126 | (top) | |
17127 | (top) | |
17128 | (top) | |
17129 | (top) | |
17130 | (top)) | |
43353663 | 17131 | ("i4371" |
0f550375 AW |
17132 | "i4369" |
17133 | "i4367" | |
43353663 AW |
17134 | "i4365" |
17135 | "i4363" | |
17136 | "i4361" | |
17137 | "i4359"))) | |
0f550375 | 17138 | (hygiene guile)) |
43353663 AW |
17139 | #{tmp\ 4528}#)) |
17140 | #{y\ 4527}#))) | |
17141 | #{tmp\ 4525}#) | |
17142 | (let ((#{tmp\ 4529}# | |
0f550375 | 17143 | ($sc-dispatch |
43353663 | 17144 | #{tmp\ 4524}# |
0f550375 | 17145 | '(#(atom "list") . each-any)))) |
43353663 | 17146 | (if #{tmp\ 4529}# |
0f550375 | 17147 | (@apply |
43353663 AW |
17148 | (lambda (#{y\ 4531}#) |
17149 | (#{k\ 4513}# #{y\ 4531}#)) | |
17150 | #{tmp\ 4529}#) | |
17151 | (let ((#{tmp\ 4533}# | |
0f550375 | 17152 | ($sc-dispatch |
43353663 | 17153 | #{tmp\ 4524}# |
0f550375 AW |
17154 | '(#(atom "list*") |
17155 | . | |
17156 | #(each+ any (any) ()))))) | |
43353663 | 17157 | (if #{tmp\ 4533}# |
0f550375 | 17158 | (@apply |
43353663 AW |
17159 | (lambda (#{y\ 4536}# #{z\ 4537}#) |
17160 | (#{f\ 4511}# | |
17161 | #{z\ 4537}# | |
17162 | (lambda (#{ls\ 4538}#) | |
17163 | (#{k\ 4513}# | |
0f550375 | 17164 | (append |
43353663 AW |
17165 | #{y\ 4536}# |
17166 | #{ls\ 4538}#))))) | |
17167 | #{tmp\ 4533}#) | |
17168 | (let ((#{else\ 4542}# #{tmp\ 4524}#)) | |
17169 | (let ((#{tmp\ 4546}# #{x\ 4499}#)) | |
17170 | (let ((#{\ g4543\ 4548}# | |
17171 | #{tmp\ 4546}#)) | |
0f550375 AW |
17172 | (list '#(syntax-object |
17173 | "list->vector" | |
17174 | ((top) | |
f929b9e5 | 17175 | #(ribcage () () ()) |
0f550375 | 17176 | #(ribcage |
43353663 AW |
17177 | #(#{\ g4543}#) |
17178 | #((m4544 top)) | |
17179 | #("i4547")) | |
0f550375 AW |
17180 | #(ribcage |
17181 | #(else) | |
17182 | #((top)) | |
43353663 | 17183 | #("i4541")) |
0f550375 AW |
17184 | #(ribcage () () ()) |
17185 | #(ribcage | |
17186 | #(f y k) | |
17187 | #((top) (top) (top)) | |
43353663 AW |
17188 | #("i4508" |
17189 | "i4509" | |
17190 | "i4510")) | |
0f550375 AW |
17191 | #(ribcage |
17192 | #(_) | |
17193 | #((top)) | |
43353663 | 17194 | #("i4506")) |
0f550375 AW |
17195 | #(ribcage () () ()) |
17196 | #(ribcage | |
17197 | #(x) | |
17198 | #((top)) | |
43353663 | 17199 | #("i4500")) |
0f550375 AW |
17200 | #(ribcage |
17201 | (emit quasivector | |
17202 | quasilist* | |
17203 | quasiappend | |
17204 | quasicons | |
17205 | vquasi | |
17206 | quasi) | |
17207 | ((top) | |
17208 | (top) | |
17209 | (top) | |
17210 | (top) | |
17211 | (top) | |
17212 | (top) | |
17213 | (top)) | |
43353663 | 17214 | ("i4371" |
0f550375 AW |
17215 | "i4369" |
17216 | "i4367" | |
43353663 AW |
17217 | "i4365" |
17218 | "i4363" | |
17219 | "i4361" | |
17220 | "i4359"))) | |
0f550375 | 17221 | (hygiene guile)) |
43353663 | 17222 | #{\ g4543\ 4548}#)))))))))))))) |
0f550375 | 17223 | (begin |
43353663 AW |
17224 | (#{f\ 4511}# |
17225 | #{x\ 4499}# | |
17226 | (lambda (#{ls\ 4514}#) | |
17227 | (let ((#{tmp\ 4519}# #{ls\ 4514}#)) | |
17228 | (let ((#{tmp\ 4520}# | |
17229 | ($sc-dispatch #{tmp\ 4519}# 'each-any))) | |
17230 | (if #{tmp\ 4520}# | |
0f550375 | 17231 | (@apply |
43353663 | 17232 | (lambda (#{\ g4516\ 4522}#) |
0f550375 AW |
17233 | (cons '#(syntax-object |
17234 | "vector" | |
17235 | ((top) | |
f929b9e5 | 17236 | #(ribcage () () ()) |
0f550375 | 17237 | #(ribcage |
43353663 AW |
17238 | #(#{\ g4516}#) |
17239 | #((m4517 top)) | |
17240 | #("i4521")) | |
0f550375 AW |
17241 | #(ribcage () () ()) |
17242 | #(ribcage () () ()) | |
17243 | #(ribcage () () ()) | |
17244 | #(ribcage | |
17245 | #(ls) | |
17246 | #((top)) | |
43353663 | 17247 | #("i4515")) |
0f550375 AW |
17248 | #(ribcage |
17249 | #(_) | |
17250 | #((top)) | |
43353663 | 17251 | #("i4506")) |
0f550375 AW |
17252 | #(ribcage () () ()) |
17253 | #(ribcage | |
17254 | #(x) | |
17255 | #((top)) | |
43353663 | 17256 | #("i4500")) |
0f550375 AW |
17257 | #(ribcage |
17258 | (emit quasivector | |
17259 | quasilist* | |
17260 | quasiappend | |
17261 | quasicons | |
17262 | vquasi | |
17263 | quasi) | |
17264 | ((top) | |
17265 | (top) | |
17266 | (top) | |
17267 | (top) | |
17268 | (top) | |
17269 | (top) | |
17270 | (top)) | |
43353663 | 17271 | ("i4371" |
0f550375 AW |
17272 | "i4369" |
17273 | "i4367" | |
43353663 AW |
17274 | "i4365" |
17275 | "i4363" | |
17276 | "i4361" | |
17277 | "i4359"))) | |
0f550375 | 17278 | (hygiene guile)) |
43353663 AW |
17279 | #{\ g4516\ 4522}#)) |
17280 | #{tmp\ 4520}#) | |
0f550375 AW |
17281 | (syntax-violation |
17282 | #f | |
17283 | "source expression failed to match any pattern" | |
43353663 AW |
17284 | #{tmp\ 4519}#)))))))))))))) |
17285 | (#{emit\ 4372}# | |
17286 | (lambda (#{x\ 4549}#) | |
17287 | (let ((#{tmp\ 4551}# #{x\ 4549}#)) | |
17288 | (let ((#{tmp\ 4552}# | |
0f550375 | 17289 | ($sc-dispatch |
43353663 | 17290 | #{tmp\ 4551}# |
0f550375 | 17291 | '(#(atom "quote") any)))) |
43353663 | 17292 | (if #{tmp\ 4552}# |
0f550375 | 17293 | (@apply |
43353663 | 17294 | (lambda (#{x\ 4554}#) |
0f550375 AW |
17295 | (list '#(syntax-object |
17296 | quote | |
17297 | ((top) | |
43353663 | 17298 | #(ribcage #(x) #((top)) #("i4553")) |
0f550375 | 17299 | #(ribcage () () ()) |
43353663 | 17300 | #(ribcage #(x) #((top)) #("i4550")) |
0f550375 AW |
17301 | #(ribcage |
17302 | (emit quasivector | |
17303 | quasilist* | |
17304 | quasiappend | |
17305 | quasicons | |
17306 | vquasi | |
17307 | quasi) | |
17308 | ((top) (top) (top) (top) (top) (top) (top)) | |
43353663 | 17309 | ("i4371" |
0f550375 AW |
17310 | "i4369" |
17311 | "i4367" | |
43353663 AW |
17312 | "i4365" |
17313 | "i4363" | |
17314 | "i4361" | |
17315 | "i4359"))) | |
0f550375 | 17316 | (hygiene guile)) |
43353663 AW |
17317 | #{x\ 4554}#)) |
17318 | #{tmp\ 4552}#) | |
17319 | (let ((#{tmp\ 4555}# | |
0f550375 | 17320 | ($sc-dispatch |
43353663 | 17321 | #{tmp\ 4551}# |
0f550375 | 17322 | '(#(atom "list") . each-any)))) |
43353663 | 17323 | (if #{tmp\ 4555}# |
0f550375 | 17324 | (@apply |
43353663 AW |
17325 | (lambda (#{x\ 4557}#) |
17326 | (let ((#{tmp\ 4561}# | |
17327 | (map #{emit\ 4372}# #{x\ 4557}#))) | |
17328 | (let ((#{tmp\ 4562}# | |
17329 | ($sc-dispatch #{tmp\ 4561}# 'each-any))) | |
17330 | (if #{tmp\ 4562}# | |
0f550375 | 17331 | (@apply |
43353663 | 17332 | (lambda (#{\ g4558\ 4564}#) |
0f550375 AW |
17333 | (cons '#(syntax-object |
17334 | list | |
17335 | ((top) | |
f929b9e5 | 17336 | #(ribcage () () ()) |
0f550375 | 17337 | #(ribcage |
43353663 AW |
17338 | #(#{\ g4558}#) |
17339 | #((m4559 top)) | |
17340 | #("i4563")) | |
0f550375 AW |
17341 | #(ribcage |
17342 | #(x) | |
17343 | #((top)) | |
43353663 | 17344 | #("i4556")) |
0f550375 AW |
17345 | #(ribcage () () ()) |
17346 | #(ribcage | |
17347 | #(x) | |
17348 | #((top)) | |
43353663 | 17349 | #("i4550")) |
0f550375 AW |
17350 | #(ribcage |
17351 | (emit quasivector | |
17352 | quasilist* | |
17353 | quasiappend | |
17354 | quasicons | |
17355 | vquasi | |
17356 | quasi) | |
17357 | ((top) | |
17358 | (top) | |
17359 | (top) | |
17360 | (top) | |
17361 | (top) | |
17362 | (top) | |
17363 | (top)) | |
43353663 | 17364 | ("i4371" |
0f550375 | 17365 | "i4369" |
05a5e5d6 | 17366 | "i4367" |
43353663 AW |
17367 | "i4365" |
17368 | "i4363" | |
17369 | "i4361" | |
17370 | "i4359"))) | |
0f550375 | 17371 | (hygiene guile)) |
43353663 AW |
17372 | #{\ g4558\ 4564}#)) |
17373 | #{tmp\ 4562}#) | |
0f550375 AW |
17374 | (syntax-violation |
17375 | #f | |
17376 | "source expression failed to match any pattern" | |
43353663 AW |
17377 | #{tmp\ 4561}#))))) |
17378 | #{tmp\ 4555}#) | |
17379 | (let ((#{tmp\ 4567}# | |
0f550375 | 17380 | ($sc-dispatch |
43353663 | 17381 | #{tmp\ 4551}# |
0f550375 | 17382 | '(#(atom "list*") . #(each+ any (any) ()))))) |
43353663 | 17383 | (if #{tmp\ 4567}# |
0f550375 | 17384 | (@apply |
43353663 | 17385 | (lambda (#{x\ 4570}# #{y\ 4571}#) |
0f550375 | 17386 | (letrec* |
43353663 AW |
17387 | ((#{f\ 4574}# |
17388 | (lambda (#{x*\ 4575}#) | |
17389 | (if (null? #{x*\ 4575}#) | |
17390 | (#{emit\ 4372}# #{y\ 4571}#) | |
17391 | (let ((#{tmp\ 4581}# | |
17392 | (list (#{emit\ 4372}# | |
17393 | (car #{x*\ 4575}#)) | |
17394 | (#{f\ 4574}# | |
17395 | (cdr #{x*\ 4575}#))))) | |
17396 | (let ((#{tmp\ 4582}# | |
0f550375 | 17397 | ($sc-dispatch |
43353663 | 17398 | #{tmp\ 4581}# |
0f550375 | 17399 | '(any any)))) |
43353663 | 17400 | (if #{tmp\ 4582}# |
0f550375 | 17401 | (@apply |
43353663 AW |
17402 | (lambda (#{\ g4578\ 4585}# |
17403 | #{\ g4577\ 4586}#) | |
0f550375 AW |
17404 | (list '#(syntax-object |
17405 | cons | |
17406 | ((top) | |
f929b9e5 | 17407 | #(ribcage () () ()) |
0f550375 | 17408 | #(ribcage |
43353663 AW |
17409 | #(#{\ g4578}# |
17410 | #{\ g4577}#) | |
17411 | #((m4579 top) | |
17412 | (m4579 top)) | |
17413 | #("i4583" "i4584")) | |
0f550375 AW |
17414 | #(ribcage () () ()) |
17415 | #(ribcage | |
17416 | #(f x*) | |
17417 | #((top) (top)) | |
43353663 | 17418 | #("i4572" "i4573")) |
0f550375 AW |
17419 | #(ribcage |
17420 | #(x y) | |
17421 | #((top) (top)) | |
43353663 | 17422 | #("i4568" "i4569")) |
0f550375 AW |
17423 | #(ribcage () () ()) |
17424 | #(ribcage | |
17425 | #(x) | |
17426 | #((top)) | |
43353663 | 17427 | #("i4550")) |
0f550375 AW |
17428 | #(ribcage |
17429 | (emit quasivector | |
17430 | quasilist* | |
17431 | quasiappend | |
17432 | quasicons | |
17433 | vquasi | |
17434 | quasi) | |
17435 | ((top) | |
17436 | (top) | |
17437 | (top) | |
17438 | (top) | |
17439 | (top) | |
17440 | (top) | |
17441 | (top)) | |
43353663 | 17442 | ("i4371" |
0f550375 AW |
17443 | "i4369" |
17444 | "i4367" | |
43353663 AW |
17445 | "i4365" |
17446 | "i4363" | |
17447 | "i4361" | |
17448 | "i4359"))) | |
0f550375 | 17449 | (hygiene guile)) |
43353663 AW |
17450 | #{\ g4578\ 4585}# |
17451 | #{\ g4577\ 4586}#)) | |
17452 | #{tmp\ 4582}#) | |
0f550375 AW |
17453 | (syntax-violation |
17454 | #f | |
17455 | "source expression failed to match any pattern" | |
43353663 AW |
17456 | #{tmp\ 4581}#)))))))) |
17457 | (begin (#{f\ 4574}# #{x\ 4570}#)))) | |
17458 | #{tmp\ 4567}#) | |
17459 | (let ((#{tmp\ 4587}# | |
0f550375 | 17460 | ($sc-dispatch |
43353663 | 17461 | #{tmp\ 4551}# |
0f550375 | 17462 | '(#(atom "append") . each-any)))) |
43353663 | 17463 | (if #{tmp\ 4587}# |
0f550375 | 17464 | (@apply |
43353663 AW |
17465 | (lambda (#{x\ 4589}#) |
17466 | (let ((#{tmp\ 4593}# | |
17467 | (map #{emit\ 4372}# #{x\ 4589}#))) | |
17468 | (let ((#{tmp\ 4594}# | |
0f550375 | 17469 | ($sc-dispatch |
43353663 | 17470 | #{tmp\ 4593}# |
0f550375 | 17471 | 'each-any))) |
43353663 | 17472 | (if #{tmp\ 4594}# |
0f550375 | 17473 | (@apply |
43353663 | 17474 | (lambda (#{\ g4590\ 4596}#) |
0f550375 AW |
17475 | (cons '#(syntax-object |
17476 | append | |
417ee098 | 17477 | ((top) |
f929b9e5 | 17478 | #(ribcage () () ()) |
417ee098 | 17479 | #(ribcage |
43353663 AW |
17480 | #(#{\ g4590}#) |
17481 | #((m4591 top)) | |
17482 | #("i4595")) | |
0f550375 AW |
17483 | #(ribcage |
17484 | #(x) | |
417ee098 | 17485 | #((top)) |
43353663 | 17486 | #("i4588")) |
417ee098 AW |
17487 | #(ribcage () () ()) |
17488 | #(ribcage | |
0f550375 AW |
17489 | #(x) |
17490 | #((top)) | |
43353663 | 17491 | #("i4550")) |
417ee098 | 17492 | #(ribcage |
0f550375 AW |
17493 | (emit quasivector |
17494 | quasilist* | |
17495 | quasiappend | |
17496 | quasicons | |
17497 | vquasi | |
17498 | quasi) | |
17499 | ((top) | |
17500 | (top) | |
17501 | (top) | |
17502 | (top) | |
17503 | (top) | |
17504 | (top) | |
17505 | (top)) | |
43353663 | 17506 | ("i4371" |
0f550375 AW |
17507 | "i4369" |
17508 | "i4367" | |
43353663 AW |
17509 | "i4365" |
17510 | "i4363" | |
17511 | "i4361" | |
17512 | "i4359"))) | |
417ee098 | 17513 | (hygiene guile)) |
43353663 AW |
17514 | #{\ g4590\ 4596}#)) |
17515 | #{tmp\ 4594}#) | |
0f550375 AW |
17516 | (syntax-violation |
17517 | #f | |
17518 | "source expression failed to match any pattern" | |
43353663 AW |
17519 | #{tmp\ 4593}#))))) |
17520 | #{tmp\ 4587}#) | |
17521 | (let ((#{tmp\ 4599}# | |
0f550375 | 17522 | ($sc-dispatch |
43353663 | 17523 | #{tmp\ 4551}# |
0f550375 | 17524 | '(#(atom "vector") . each-any)))) |
43353663 | 17525 | (if #{tmp\ 4599}# |
0f550375 | 17526 | (@apply |
43353663 AW |
17527 | (lambda (#{x\ 4601}#) |
17528 | (let ((#{tmp\ 4605}# | |
17529 | (map #{emit\ 4372}# #{x\ 4601}#))) | |
17530 | (let ((#{tmp\ 4606}# | |
0f550375 | 17531 | ($sc-dispatch |
43353663 | 17532 | #{tmp\ 4605}# |
0f550375 | 17533 | 'each-any))) |
43353663 | 17534 | (if #{tmp\ 4606}# |
0f550375 | 17535 | (@apply |
43353663 | 17536 | (lambda (#{\ g4602\ 4608}#) |
0f550375 AW |
17537 | (cons '#(syntax-object |
17538 | vector | |
17539 | ((top) | |
f929b9e5 | 17540 | #(ribcage () () ()) |
0f550375 | 17541 | #(ribcage |
43353663 AW |
17542 | #(#{\ g4602}#) |
17543 | #((m4603 top)) | |
17544 | #("i4607")) | |
0f550375 AW |
17545 | #(ribcage |
17546 | #(x) | |
17547 | #((top)) | |
43353663 | 17548 | #("i4600")) |
0f550375 AW |
17549 | #(ribcage () () ()) |
17550 | #(ribcage | |
17551 | #(x) | |
17552 | #((top)) | |
43353663 | 17553 | #("i4550")) |
0f550375 AW |
17554 | #(ribcage |
17555 | (emit quasivector | |
17556 | quasilist* | |
17557 | quasiappend | |
17558 | quasicons | |
17559 | vquasi | |
17560 | quasi) | |
17561 | ((top) | |
17562 | (top) | |
17563 | (top) | |
17564 | (top) | |
17565 | (top) | |
17566 | (top) | |
17567 | (top)) | |
43353663 | 17568 | ("i4371" |
0f550375 AW |
17569 | "i4369" |
17570 | "i4367" | |
43353663 AW |
17571 | "i4365" |
17572 | "i4363" | |
17573 | "i4361" | |
17574 | "i4359"))) | |
0f550375 | 17575 | (hygiene guile)) |
43353663 AW |
17576 | #{\ g4602\ 4608}#)) |
17577 | #{tmp\ 4606}#) | |
0f550375 AW |
17578 | (syntax-violation |
17579 | #f | |
17580 | "source expression failed to match any pattern" | |
43353663 AW |
17581 | #{tmp\ 4605}#))))) |
17582 | #{tmp\ 4599}#) | |
17583 | (let ((#{tmp\ 4611}# | |
0f550375 | 17584 | ($sc-dispatch |
43353663 | 17585 | #{tmp\ 4551}# |
0f550375 | 17586 | '(#(atom "list->vector") any)))) |
43353663 | 17587 | (if #{tmp\ 4611}# |
0f550375 | 17588 | (@apply |
43353663 AW |
17589 | (lambda (#{x\ 4613}#) |
17590 | (let ((#{tmp\ 4617}# | |
17591 | (#{emit\ 4372}# #{x\ 4613}#))) | |
17592 | (let ((#{\ g4614\ 4619}# | |
17593 | #{tmp\ 4617}#)) | |
0f550375 AW |
17594 | (list '#(syntax-object |
17595 | list->vector | |
17596 | ((top) | |
f929b9e5 | 17597 | #(ribcage () () ()) |
0f550375 | 17598 | #(ribcage |
43353663 AW |
17599 | #(#{\ g4614}#) |
17600 | #((m4615 top)) | |
17601 | #("i4618")) | |
0f550375 AW |
17602 | #(ribcage |
17603 | #(x) | |
17604 | #((top)) | |
43353663 | 17605 | #("i4612")) |
0f550375 AW |
17606 | #(ribcage () () ()) |
17607 | #(ribcage | |
17608 | #(x) | |
17609 | #((top)) | |
43353663 | 17610 | #("i4550")) |
0f550375 AW |
17611 | #(ribcage |
17612 | (emit quasivector | |
17613 | quasilist* | |
17614 | quasiappend | |
17615 | quasicons | |
17616 | vquasi | |
17617 | quasi) | |
17618 | ((top) | |
17619 | (top) | |
17620 | (top) | |
17621 | (top) | |
17622 | (top) | |
17623 | (top) | |
17624 | (top)) | |
43353663 | 17625 | ("i4371" |
0f550375 AW |
17626 | "i4369" |
17627 | "i4367" | |
43353663 AW |
17628 | "i4365" |
17629 | "i4363" | |
17630 | "i4361" | |
17631 | "i4359"))) | |
0f550375 | 17632 | (hygiene guile)) |
43353663 AW |
17633 | #{\ g4614\ 4619}#)))) |
17634 | #{tmp\ 4611}#) | |
17635 | (let ((#{tmp\ 4620}# | |
0f550375 | 17636 | ($sc-dispatch |
43353663 | 17637 | #{tmp\ 4551}# |
0f550375 | 17638 | '(#(atom "value") any)))) |
43353663 | 17639 | (if #{tmp\ 4620}# |
0f550375 | 17640 | (@apply |
43353663 AW |
17641 | (lambda (#{x\ 4622}#) #{x\ 4622}#) |
17642 | #{tmp\ 4620}#) | |
0f550375 AW |
17643 | (syntax-violation |
17644 | #f | |
17645 | "source expression failed to match any pattern" | |
43353663 | 17646 | #{tmp\ 4551}#))))))))))))))))))) |
417ee098 | 17647 | (begin |
43353663 AW |
17648 | (lambda (#{x\ 4623}#) |
17649 | (let ((#{tmp\ 4625}# #{x\ 4623}#)) | |
17650 | (let ((#{tmp\ 4626}# | |
17651 | ($sc-dispatch #{tmp\ 4625}# '(_ any)))) | |
17652 | (if #{tmp\ 4626}# | |
417ee098 | 17653 | (@apply |
43353663 AW |
17654 | (lambda (#{e\ 4628}#) |
17655 | (#{emit\ 4372}# (#{quasi\ 4360}# #{e\ 4628}# 0))) | |
17656 | #{tmp\ 4626}#) | |
f42d8bd8 AW |
17657 | (syntax-violation |
17658 | #f | |
17659 | "source expression failed to match any pattern" | |
43353663 | 17660 | #{tmp\ 4625}#))))))))) |
65dd9e38 AW |
17661 | |
17662 | (define include | |
e809758a AW |
17663 | (make-syntax-transformer |
17664 | 'include | |
65dd9e38 | 17665 | 'macro |
43353663 | 17666 | (lambda (#{x\ 4629}#) |
0f2b9f62 | 17667 | (letrec* |
43353663 AW |
17668 | ((#{read-file\ 4632}# |
17669 | (lambda (#{fn\ 4633}# #{k\ 4634}#) | |
417ee098 | 17670 | (begin |
43353663 | 17671 | (let ((#{p\ 4638}# (open-input-file #{fn\ 4633}#))) |
417ee098 | 17672 | (letrec* |
43353663 AW |
17673 | ((#{f\ 4642}# |
17674 | (lambda (#{x\ 4643}# #{result\ 4644}#) | |
17675 | (if (eof-object? #{x\ 4643}#) | |
417ee098 | 17676 | (begin |
43353663 AW |
17677 | (close-input-port #{p\ 4638}#) |
17678 | (reverse #{result\ 4644}#)) | |
17679 | (#{f\ 4642}# | |
17680 | (read #{p\ 4638}#) | |
17681 | (cons (datum->syntax #{k\ 4634}# #{x\ 4643}#) | |
17682 | #{result\ 4644}#)))))) | |
17683 | (begin (#{f\ 4642}# (read #{p\ 4638}#) '())))))))) | |
417ee098 | 17684 | (begin |
43353663 AW |
17685 | (let ((#{tmp\ 4645}# #{x\ 4629}#)) |
17686 | (let ((#{tmp\ 4646}# | |
17687 | ($sc-dispatch #{tmp\ 4645}# '(any any)))) | |
17688 | (if #{tmp\ 4646}# | |
417ee098 | 17689 | (@apply |
43353663 | 17690 | (lambda (#{k\ 4649}# #{filename\ 4650}#) |
417ee098 | 17691 | (begin |
43353663 AW |
17692 | (let ((#{fn\ 4652}# (syntax->datum #{filename\ 4650}#))) |
17693 | (let ((#{tmp\ 4654}# | |
17694 | (#{read-file\ 4632}# | |
17695 | #{fn\ 4652}# | |
17696 | #{filename\ 4650}#))) | |
17697 | (let ((#{tmp\ 4655}# | |
17698 | ($sc-dispatch #{tmp\ 4654}# 'each-any))) | |
17699 | (if #{tmp\ 4655}# | |
417ee098 | 17700 | (@apply |
43353663 | 17701 | (lambda (#{exp\ 4657}#) |
417ee098 AW |
17702 | (cons '#(syntax-object |
17703 | begin | |
17704 | ((top) | |
f929b9e5 | 17705 | #(ribcage () () ()) |
417ee098 AW |
17706 | #(ribcage |
17707 | #(exp) | |
17708 | #((top)) | |
43353663 | 17709 | #("i4656")) |
417ee098 AW |
17710 | #(ribcage () () ()) |
17711 | #(ribcage () () ()) | |
17712 | #(ribcage | |
17713 | #(fn) | |
17714 | #((top)) | |
43353663 | 17715 | #("i4651")) |
417ee098 AW |
17716 | #(ribcage |
17717 | #(k filename) | |
17718 | #((top) (top)) | |
43353663 | 17719 | #("i4647" "i4648")) |
417ee098 AW |
17720 | #(ribcage |
17721 | (read-file) | |
17722 | ((top)) | |
43353663 | 17723 | ("i4631")) |
417ee098 AW |
17724 | #(ribcage |
17725 | #(x) | |
17726 | #((top)) | |
43353663 | 17727 | #("i4630"))) |
417ee098 | 17728 | (hygiene guile)) |
43353663 AW |
17729 | #{exp\ 4657}#)) |
17730 | #{tmp\ 4655}#) | |
417ee098 AW |
17731 | (syntax-violation |
17732 | #f | |
17733 | "source expression failed to match any pattern" | |
43353663 AW |
17734 | #{tmp\ 4654}#))))))) |
17735 | #{tmp\ 4646}#) | |
417ee098 AW |
17736 | (syntax-violation |
17737 | #f | |
17738 | "source expression failed to match any pattern" | |
43353663 | 17739 | #{tmp\ 4645}#))))))))) |
417ee098 AW |
17740 | |
17741 | (define include-from-path | |
17742 | (make-syntax-transformer | |
17743 | 'include-from-path | |
17744 | 'macro | |
43353663 AW |
17745 | (lambda (#{x\ 4659}#) |
17746 | (let ((#{tmp\ 4661}# #{x\ 4659}#)) | |
17747 | (let ((#{tmp\ 4662}# | |
17748 | ($sc-dispatch #{tmp\ 4661}# '(any any)))) | |
17749 | (if #{tmp\ 4662}# | |
417ee098 | 17750 | (@apply |
43353663 | 17751 | (lambda (#{k\ 4665}# #{filename\ 4666}#) |
417ee098 | 17752 | (begin |
43353663 AW |
17753 | (let ((#{fn\ 4668}# (syntax->datum #{filename\ 4666}#))) |
17754 | (let ((#{tmp\ 4670}# | |
417ee098 | 17755 | (datum->syntax |
43353663 | 17756 | #{filename\ 4666}# |
417ee098 | 17757 | (begin |
43353663 AW |
17758 | (let ((#{t\ 4675}# |
17759 | (%search-load-path #{fn\ 4668}#))) | |
17760 | (if #{t\ 4675}# | |
17761 | #{t\ 4675}# | |
417ee098 AW |
17762 | (syntax-violation |
17763 | 'include-from-path | |
17764 | "file not found in path" | |
43353663 AW |
17765 | #{x\ 4659}# |
17766 | #{filename\ 4666}#))))))) | |
17767 | (let ((#{fn\ 4672}# #{tmp\ 4670}#)) | |
417ee098 AW |
17768 | (list '#(syntax-object |
17769 | include | |
17770 | ((top) | |
f929b9e5 | 17771 | #(ribcage () () ()) |
43353663 | 17772 | #(ribcage #(fn) #((top)) #("i4671")) |
417ee098 AW |
17773 | #(ribcage () () ()) |
17774 | #(ribcage () () ()) | |
43353663 | 17775 | #(ribcage #(fn) #((top)) #("i4667")) |
417ee098 AW |
17776 | #(ribcage |
17777 | #(k filename) | |
17778 | #((top) (top)) | |
43353663 | 17779 | #("i4663" "i4664")) |
417ee098 | 17780 | #(ribcage () () ()) |
43353663 | 17781 | #(ribcage #(x) #((top)) #("i4660"))) |
417ee098 | 17782 | (hygiene guile)) |
43353663 AW |
17783 | #{fn\ 4672}#)))))) |
17784 | #{tmp\ 4662}#) | |
417ee098 AW |
17785 | (syntax-violation |
17786 | #f | |
17787 | "source expression failed to match any pattern" | |
43353663 | 17788 | #{tmp\ 4661}#))))))) |
417ee098 AW |
17789 | |
17790 | (define unquote | |
17791 | (make-syntax-transformer | |
17792 | 'unquote | |
17793 | 'macro | |
43353663 | 17794 | (lambda (#{x\ 4677}#) |
0f550375 AW |
17795 | (syntax-violation |
17796 | 'unquote | |
17797 | "expression not valid outside of quasiquote" | |
43353663 | 17798 | #{x\ 4677}#)))) |
417ee098 AW |
17799 | |
17800 | (define unquote-splicing | |
17801 | (make-syntax-transformer | |
17802 | 'unquote-splicing | |
17803 | 'macro | |
43353663 | 17804 | (lambda (#{x\ 4679}#) |
0f550375 AW |
17805 | (syntax-violation |
17806 | 'unquote-splicing | |
17807 | "expression not valid outside of quasiquote" | |
43353663 | 17808 | #{x\ 4679}#)))) |
417ee098 AW |
17809 | |
17810 | (define case | |
17811 | (make-syntax-transformer | |
17812 | 'case | |
17813 | 'macro | |
43353663 AW |
17814 | (lambda (#{x\ 4681}#) |
17815 | (let ((#{tmp\ 4683}# #{x\ 4681}#)) | |
17816 | (let ((#{tmp\ 4684}# | |
417ee098 | 17817 | ($sc-dispatch |
43353663 | 17818 | #{tmp\ 4683}# |
b78d91d5 | 17819 | '(_ any any . each-any)))) |
43353663 | 17820 | (if #{tmp\ 4684}# |
417ee098 | 17821 | (@apply |
43353663 AW |
17822 | (lambda (#{e\ 4688}# #{m1\ 4689}# #{m2\ 4690}#) |
17823 | (let ((#{tmp\ 4692}# | |
417ee098 | 17824 | (letrec* |
43353663 AW |
17825 | ((#{f\ 4698}# |
17826 | (lambda (#{clause\ 4699}# #{clauses\ 4700}#) | |
17827 | (if (null? #{clauses\ 4700}#) | |
17828 | (let ((#{tmp\ 4702}# #{clause\ 4699}#)) | |
17829 | (let ((#{tmp\ 4703}# | |
f42d8bd8 | 17830 | ($sc-dispatch |
43353663 | 17831 | #{tmp\ 4702}# |
f42d8bd8 AW |
17832 | '(#(free-id |
17833 | #(syntax-object | |
17834 | else | |
17835 | ((top) | |
17836 | #(ribcage () () ()) | |
17837 | #(ribcage | |
17838 | #(f clause clauses) | |
17839 | #((top) (top) (top)) | |
43353663 AW |
17840 | #("i4695" |
17841 | "i4696" | |
17842 | "i4697")) | |
f42d8bd8 | 17843 | #(ribcage |
b78d91d5 AW |
17844 | #(e m1 m2) |
17845 | #((top) (top) (top)) | |
43353663 AW |
17846 | #("i4685" |
17847 | "i4686" | |
17848 | "i4687")) | |
f42d8bd8 AW |
17849 | #(ribcage () () ()) |
17850 | #(ribcage | |
17851 | #(x) | |
17852 | #((top)) | |
43353663 | 17853 | #("i4682"))) |
f42d8bd8 AW |
17854 | (hygiene guile))) |
17855 | any | |
17856 | . | |
17857 | each-any)))) | |
43353663 | 17858 | (if #{tmp\ 4703}# |
417ee098 | 17859 | (@apply |
43353663 | 17860 | (lambda (#{e1\ 4706}# #{e2\ 4707}#) |
417ee098 AW |
17861 | (cons '#(syntax-object |
17862 | begin | |
17863 | ((top) | |
17864 | #(ribcage | |
17865 | #(e1 e2) | |
17866 | #((top) (top)) | |
43353663 | 17867 | #("i4704" "i4705")) |
417ee098 AW |
17868 | #(ribcage () () ()) |
17869 | #(ribcage | |
17870 | #(f clause clauses) | |
17871 | #((top) (top) (top)) | |
43353663 AW |
17872 | #("i4695" |
17873 | "i4696" | |
17874 | "i4697")) | |
417ee098 | 17875 | #(ribcage |
b78d91d5 AW |
17876 | #(e m1 m2) |
17877 | #((top) (top) (top)) | |
43353663 AW |
17878 | #("i4685" |
17879 | "i4686" | |
17880 | "i4687")) | |
417ee098 AW |
17881 | #(ribcage () () ()) |
17882 | #(ribcage | |
17883 | #(x) | |
17884 | #((top)) | |
43353663 | 17885 | #("i4682"))) |
417ee098 | 17886 | (hygiene guile)) |
43353663 AW |
17887 | (cons #{e1\ 4706}# |
17888 | #{e2\ 4707}#))) | |
17889 | #{tmp\ 4703}#) | |
17890 | (let ((#{tmp\ 4709}# | |
417ee098 | 17891 | ($sc-dispatch |
43353663 | 17892 | #{tmp\ 4702}# |
417ee098 | 17893 | '(each-any any . each-any)))) |
43353663 | 17894 | (if #{tmp\ 4709}# |
417ee098 | 17895 | (@apply |
43353663 AW |
17896 | (lambda (#{k\ 4713}# |
17897 | #{e1\ 4714}# | |
17898 | #{e2\ 4715}#) | |
417ee098 AW |
17899 | (list '#(syntax-object |
17900 | if | |
17901 | ((top) | |
17902 | #(ribcage | |
17903 | #(k e1 e2) | |
17904 | #((top) (top) (top)) | |
43353663 AW |
17905 | #("i4710" |
17906 | "i4711" | |
17907 | "i4712")) | |
417ee098 AW |
17908 | #(ribcage () () ()) |
17909 | #(ribcage | |
17910 | #(f clause clauses) | |
17911 | #((top) (top) (top)) | |
43353663 AW |
17912 | #("i4695" |
17913 | "i4696" | |
17914 | "i4697")) | |
417ee098 | 17915 | #(ribcage |
b78d91d5 AW |
17916 | #(e m1 m2) |
17917 | #((top) (top) (top)) | |
43353663 AW |
17918 | #("i4685" |
17919 | "i4686" | |
17920 | "i4687")) | |
417ee098 AW |
17921 | #(ribcage () () ()) |
17922 | #(ribcage | |
17923 | #(x) | |
17924 | #((top)) | |
43353663 | 17925 | #("i4682"))) |
417ee098 AW |
17926 | (hygiene guile)) |
17927 | (list '#(syntax-object | |
17928 | memv | |
17929 | ((top) | |
17930 | #(ribcage | |
17931 | #(k e1 e2) | |
17932 | #((top) | |
17933 | (top) | |
17934 | (top)) | |
43353663 AW |
17935 | #("i4710" |
17936 | "i4711" | |
17937 | "i4712")) | |
417ee098 AW |
17938 | #(ribcage |
17939 | () | |
17940 | () | |
17941 | ()) | |
17942 | #(ribcage | |
17943 | #(f | |
17944 | clause | |
17945 | clauses) | |
17946 | #((top) | |
17947 | (top) | |
17948 | (top)) | |
43353663 AW |
17949 | #("i4695" |
17950 | "i4696" | |
17951 | "i4697")) | |
417ee098 | 17952 | #(ribcage |
b78d91d5 | 17953 | #(e m1 m2) |
417ee098 | 17954 | #((top) |
417ee098 AW |
17955 | (top) |
17956 | (top)) | |
43353663 AW |
17957 | #("i4685" |
17958 | "i4686" | |
17959 | "i4687")) | |
417ee098 AW |
17960 | #(ribcage |
17961 | () | |
17962 | () | |
17963 | ()) | |
17964 | #(ribcage | |
17965 | #(x) | |
17966 | #((top)) | |
43353663 | 17967 | #("i4682"))) |
417ee098 AW |
17968 | (hygiene guile)) |
17969 | '#(syntax-object | |
17970 | t | |
17971 | ((top) | |
17972 | #(ribcage | |
17973 | #(k e1 e2) | |
17974 | #((top) | |
17975 | (top) | |
17976 | (top)) | |
43353663 AW |
17977 | #("i4710" |
17978 | "i4711" | |
17979 | "i4712")) | |
417ee098 AW |
17980 | #(ribcage |
17981 | () | |
17982 | () | |
17983 | ()) | |
17984 | #(ribcage | |
17985 | #(f | |
17986 | clause | |
17987 | clauses) | |
17988 | #((top) | |
17989 | (top) | |
17990 | (top)) | |
43353663 AW |
17991 | #("i4695" |
17992 | "i4696" | |
17993 | "i4697")) | |
417ee098 | 17994 | #(ribcage |
b78d91d5 | 17995 | #(e m1 m2) |
417ee098 | 17996 | #((top) |
417ee098 AW |
17997 | (top) |
17998 | (top)) | |
43353663 AW |
17999 | #("i4685" |
18000 | "i4686" | |
18001 | "i4687")) | |
417ee098 AW |
18002 | #(ribcage |
18003 | () | |
18004 | () | |
18005 | ()) | |
18006 | #(ribcage | |
18007 | #(x) | |
18008 | #((top)) | |
43353663 | 18009 | #("i4682"))) |
417ee098 AW |
18010 | (hygiene guile)) |
18011 | (list '#(syntax-object | |
18012 | quote | |
18013 | ((top) | |
18014 | #(ribcage | |
18015 | #(k | |
18016 | e1 | |
18017 | e2) | |
18018 | #((top) | |
18019 | (top) | |
18020 | (top)) | |
43353663 AW |
18021 | #("i4710" |
18022 | "i4711" | |
18023 | "i4712")) | |
417ee098 AW |
18024 | #(ribcage |
18025 | () | |
18026 | () | |
18027 | ()) | |
18028 | #(ribcage | |
18029 | #(f | |
18030 | clause | |
18031 | clauses) | |
18032 | #((top) | |
18033 | (top) | |
18034 | (top)) | |
43353663 AW |
18035 | #("i4695" |
18036 | "i4696" | |
18037 | "i4697")) | |
417ee098 | 18038 | #(ribcage |
b78d91d5 | 18039 | #(e |
417ee098 AW |
18040 | m1 |
18041 | m2) | |
18042 | #((top) | |
417ee098 AW |
18043 | (top) |
18044 | (top)) | |
43353663 AW |
18045 | #("i4685" |
18046 | "i4686" | |
18047 | "i4687")) | |
417ee098 AW |
18048 | #(ribcage |
18049 | () | |
18050 | () | |
18051 | ()) | |
18052 | #(ribcage | |
18053 | #(x) | |
18054 | #((top)) | |
43353663 | 18055 | #("i4682"))) |
417ee098 AW |
18056 | (hygiene |
18057 | guile)) | |
43353663 | 18058 | #{k\ 4713}#)) |
417ee098 AW |
18059 | (cons '#(syntax-object |
18060 | begin | |
18061 | ((top) | |
18062 | #(ribcage | |
18063 | #(k e1 e2) | |
18064 | #((top) | |
18065 | (top) | |
18066 | (top)) | |
43353663 AW |
18067 | #("i4710" |
18068 | "i4711" | |
18069 | "i4712")) | |
417ee098 AW |
18070 | #(ribcage |
18071 | () | |
18072 | () | |
18073 | ()) | |
18074 | #(ribcage | |
18075 | #(f | |
18076 | clause | |
18077 | clauses) | |
18078 | #((top) | |
18079 | (top) | |
18080 | (top)) | |
43353663 AW |
18081 | #("i4695" |
18082 | "i4696" | |
18083 | "i4697")) | |
417ee098 | 18084 | #(ribcage |
b78d91d5 | 18085 | #(e m1 m2) |
417ee098 | 18086 | #((top) |
417ee098 AW |
18087 | (top) |
18088 | (top)) | |
43353663 AW |
18089 | #("i4685" |
18090 | "i4686" | |
18091 | "i4687")) | |
417ee098 AW |
18092 | #(ribcage |
18093 | () | |
18094 | () | |
18095 | ()) | |
18096 | #(ribcage | |
18097 | #(x) | |
18098 | #((top)) | |
43353663 | 18099 | #("i4682"))) |
417ee098 | 18100 | (hygiene guile)) |
43353663 AW |
18101 | (cons #{e1\ 4714}# |
18102 | #{e2\ 4715}#)))) | |
18103 | #{tmp\ 4709}#) | |
18104 | (let ((#{_\ 4719}# #{tmp\ 4702}#)) | |
417ee098 AW |
18105 | (syntax-violation |
18106 | 'case | |
18107 | "bad clause" | |
43353663 AW |
18108 | #{x\ 4681}# |
18109 | #{clause\ 4699}#))))))) | |
18110 | (let ((#{tmp\ 4721}# | |
18111 | (#{f\ 4698}# | |
18112 | (car #{clauses\ 4700}#) | |
18113 | (cdr #{clauses\ 4700}#)))) | |
18114 | (let ((#{rest\ 4723}# #{tmp\ 4721}#)) | |
18115 | (let ((#{tmp\ 4724}# #{clause\ 4699}#)) | |
18116 | (let ((#{tmp\ 4725}# | |
417ee098 | 18117 | ($sc-dispatch |
43353663 | 18118 | #{tmp\ 4724}# |
417ee098 | 18119 | '(each-any any . each-any)))) |
43353663 | 18120 | (if #{tmp\ 4725}# |
417ee098 | 18121 | (@apply |
43353663 AW |
18122 | (lambda (#{k\ 4729}# |
18123 | #{e1\ 4730}# | |
18124 | #{e2\ 4731}#) | |
417ee098 AW |
18125 | (list '#(syntax-object |
18126 | if | |
18127 | ((top) | |
18128 | #(ribcage | |
18129 | #(k e1 e2) | |
18130 | #((top) (top) (top)) | |
43353663 AW |
18131 | #("i4726" |
18132 | "i4727" | |
18133 | "i4728")) | |
f929b9e5 | 18134 | #(ribcage () () ()) |
417ee098 AW |
18135 | #(ribcage |
18136 | #(rest) | |
18137 | #((top)) | |
43353663 | 18138 | #("i4722")) |
417ee098 AW |
18139 | #(ribcage () () ()) |
18140 | #(ribcage | |
18141 | #(f clause clauses) | |
18142 | #((top) (top) (top)) | |
43353663 AW |
18143 | #("i4695" |
18144 | "i4696" | |
18145 | "i4697")) | |
417ee098 | 18146 | #(ribcage |
b78d91d5 AW |
18147 | #(e m1 m2) |
18148 | #((top) (top) (top)) | |
43353663 AW |
18149 | #("i4685" |
18150 | "i4686" | |
18151 | "i4687")) | |
417ee098 AW |
18152 | #(ribcage () () ()) |
18153 | #(ribcage | |
18154 | #(x) | |
18155 | #((top)) | |
43353663 | 18156 | #("i4682"))) |
417ee098 AW |
18157 | (hygiene guile)) |
18158 | (list '#(syntax-object | |
18159 | memv | |
18160 | ((top) | |
18161 | #(ribcage | |
18162 | #(k e1 e2) | |
18163 | #((top) | |
18164 | (top) | |
18165 | (top)) | |
43353663 AW |
18166 | #("i4726" |
18167 | "i4727" | |
18168 | "i4728")) | |
f929b9e5 AW |
18169 | #(ribcage |
18170 | () | |
18171 | () | |
18172 | ()) | |
417ee098 AW |
18173 | #(ribcage |
18174 | #(rest) | |
18175 | #((top)) | |
43353663 | 18176 | #("i4722")) |
417ee098 AW |
18177 | #(ribcage |
18178 | () | |
18179 | () | |
18180 | ()) | |
18181 | #(ribcage | |
18182 | #(f | |
18183 | clause | |
18184 | clauses) | |
18185 | #((top) | |
18186 | (top) | |
18187 | (top)) | |
43353663 AW |
18188 | #("i4695" |
18189 | "i4696" | |
18190 | "i4697")) | |
417ee098 | 18191 | #(ribcage |
b78d91d5 | 18192 | #(e m1 m2) |
417ee098 | 18193 | #((top) |
417ee098 AW |
18194 | (top) |
18195 | (top)) | |
43353663 AW |
18196 | #("i4685" |
18197 | "i4686" | |
18198 | "i4687")) | |
417ee098 AW |
18199 | #(ribcage |
18200 | () | |
18201 | () | |
18202 | ()) | |
18203 | #(ribcage | |
18204 | #(x) | |
18205 | #((top)) | |
43353663 | 18206 | #("i4682"))) |
417ee098 AW |
18207 | (hygiene guile)) |
18208 | '#(syntax-object | |
18209 | t | |
18210 | ((top) | |
18211 | #(ribcage | |
18212 | #(k e1 e2) | |
18213 | #((top) | |
18214 | (top) | |
18215 | (top)) | |
43353663 AW |
18216 | #("i4726" |
18217 | "i4727" | |
18218 | "i4728")) | |
f929b9e5 AW |
18219 | #(ribcage |
18220 | () | |
18221 | () | |
18222 | ()) | |
417ee098 AW |
18223 | #(ribcage |
18224 | #(rest) | |
18225 | #((top)) | |
43353663 | 18226 | #("i4722")) |
417ee098 AW |
18227 | #(ribcage |
18228 | () | |
18229 | () | |
18230 | ()) | |
18231 | #(ribcage | |
18232 | #(f | |
18233 | clause | |
18234 | clauses) | |
18235 | #((top) | |
18236 | (top) | |
18237 | (top)) | |
43353663 AW |
18238 | #("i4695" |
18239 | "i4696" | |
18240 | "i4697")) | |
417ee098 | 18241 | #(ribcage |
b78d91d5 | 18242 | #(e m1 m2) |
417ee098 | 18243 | #((top) |
417ee098 AW |
18244 | (top) |
18245 | (top)) | |
43353663 AW |
18246 | #("i4685" |
18247 | "i4686" | |
18248 | "i4687")) | |
417ee098 AW |
18249 | #(ribcage |
18250 | () | |
18251 | () | |
18252 | ()) | |
18253 | #(ribcage | |
18254 | #(x) | |
18255 | #((top)) | |
43353663 | 18256 | #("i4682"))) |
417ee098 AW |
18257 | (hygiene guile)) |
18258 | (list '#(syntax-object | |
18259 | quote | |
18260 | ((top) | |
18261 | #(ribcage | |
18262 | #(k | |
18263 | e1 | |
18264 | e2) | |
18265 | #((top) | |
18266 | (top) | |
18267 | (top)) | |
43353663 AW |
18268 | #("i4726" |
18269 | "i4727" | |
18270 | "i4728")) | |
f929b9e5 AW |
18271 | #(ribcage |
18272 | () | |
18273 | () | |
18274 | ()) | |
417ee098 AW |
18275 | #(ribcage |
18276 | #(rest) | |
18277 | #((top)) | |
43353663 | 18278 | #("i4722")) |
417ee098 AW |
18279 | #(ribcage |
18280 | () | |
18281 | () | |
18282 | ()) | |
18283 | #(ribcage | |
18284 | #(f | |
18285 | clause | |
18286 | clauses) | |
18287 | #((top) | |
18288 | (top) | |
18289 | (top)) | |
43353663 AW |
18290 | #("i4695" |
18291 | "i4696" | |
18292 | "i4697")) | |
417ee098 | 18293 | #(ribcage |
b78d91d5 | 18294 | #(e |
417ee098 AW |
18295 | m1 |
18296 | m2) | |
18297 | #((top) | |
417ee098 AW |
18298 | (top) |
18299 | (top)) | |
43353663 AW |
18300 | #("i4685" |
18301 | "i4686" | |
18302 | "i4687")) | |
417ee098 AW |
18303 | #(ribcage |
18304 | () | |
18305 | () | |
18306 | ()) | |
18307 | #(ribcage | |
18308 | #(x) | |
18309 | #((top)) | |
43353663 | 18310 | #("i4682"))) |
417ee098 AW |
18311 | (hygiene |
18312 | guile)) | |
43353663 | 18313 | #{k\ 4729}#)) |
417ee098 AW |
18314 | (cons '#(syntax-object |
18315 | begin | |
18316 | ((top) | |
18317 | #(ribcage | |
18318 | #(k e1 e2) | |
18319 | #((top) | |
18320 | (top) | |
18321 | (top)) | |
43353663 AW |
18322 | #("i4726" |
18323 | "i4727" | |
18324 | "i4728")) | |
f929b9e5 AW |
18325 | #(ribcage |
18326 | () | |
18327 | () | |
18328 | ()) | |
417ee098 AW |
18329 | #(ribcage |
18330 | #(rest) | |
18331 | #((top)) | |
43353663 | 18332 | #("i4722")) |
417ee098 AW |
18333 | #(ribcage |
18334 | () | |
18335 | () | |
18336 | ()) | |
18337 | #(ribcage | |
18338 | #(f | |
18339 | clause | |
18340 | clauses) | |
18341 | #((top) | |
18342 | (top) | |
18343 | (top)) | |
43353663 AW |
18344 | #("i4695" |
18345 | "i4696" | |
18346 | "i4697")) | |
417ee098 | 18347 | #(ribcage |
b78d91d5 | 18348 | #(e m1 m2) |
417ee098 | 18349 | #((top) |
417ee098 AW |
18350 | (top) |
18351 | (top)) | |
43353663 AW |
18352 | #("i4685" |
18353 | "i4686" | |
18354 | "i4687")) | |
417ee098 AW |
18355 | #(ribcage |
18356 | () | |
18357 | () | |
18358 | ()) | |
18359 | #(ribcage | |
18360 | #(x) | |
18361 | #((top)) | |
43353663 | 18362 | #("i4682"))) |
417ee098 | 18363 | (hygiene guile)) |
43353663 AW |
18364 | (cons #{e1\ 4730}# |
18365 | #{e2\ 4731}#)) | |
18366 | #{rest\ 4723}#)) | |
18367 | #{tmp\ 4725}#) | |
18368 | (let ((#{_\ 4735}# #{tmp\ 4724}#)) | |
417ee098 AW |
18369 | (syntax-violation |
18370 | 'case | |
18371 | "bad clause" | |
43353663 AW |
18372 | #{x\ 4681}# |
18373 | #{clause\ 4699}#))))))))))) | |
18374 | (begin (#{f\ 4698}# #{m1\ 4689}# #{m2\ 4690}#))))) | |
18375 | (let ((#{body\ 4694}# #{tmp\ 4692}#)) | |
417ee098 AW |
18376 | (list '#(syntax-object |
18377 | let | |
18378 | ((top) | |
f929b9e5 | 18379 | #(ribcage () () ()) |
43353663 | 18380 | #(ribcage #(body) #((top)) #("i4693")) |
417ee098 | 18381 | #(ribcage |
b78d91d5 AW |
18382 | #(e m1 m2) |
18383 | #((top) (top) (top)) | |
43353663 | 18384 | #("i4685" "i4686" "i4687")) |
417ee098 | 18385 | #(ribcage () () ()) |
43353663 | 18386 | #(ribcage #(x) #((top)) #("i4682"))) |
417ee098 AW |
18387 | (hygiene guile)) |
18388 | (list (list '#(syntax-object | |
18389 | t | |
18390 | ((top) | |
f929b9e5 | 18391 | #(ribcage () () ()) |
417ee098 AW |
18392 | #(ribcage |
18393 | #(body) | |
18394 | #((top)) | |
43353663 | 18395 | #("i4693")) |
417ee098 | 18396 | #(ribcage |
b78d91d5 AW |
18397 | #(e m1 m2) |
18398 | #((top) (top) (top)) | |
43353663 | 18399 | #("i4685" "i4686" "i4687")) |
417ee098 | 18400 | #(ribcage () () ()) |
43353663 | 18401 | #(ribcage #(x) #((top)) #("i4682"))) |
417ee098 | 18402 | (hygiene guile)) |
43353663 AW |
18403 | #{e\ 4688}#)) |
18404 | #{body\ 4694}#)))) | |
18405 | #{tmp\ 4684}#) | |
417ee098 AW |
18406 | (syntax-violation |
18407 | #f | |
18408 | "source expression failed to match any pattern" | |
43353663 | 18409 | #{tmp\ 4683}#))))))) |
bfccdcd5 AW |
18410 | |
18411 | (define make-variable-transformer | |
43353663 AW |
18412 | (lambda (#{proc\ 4736}#) |
18413 | (if (procedure? #{proc\ 4736}#) | |
bfccdcd5 AW |
18414 | (begin |
18415 | (letrec* | |
43353663 AW |
18416 | ((#{trans\ 4739}# |
18417 | (lambda (#{x\ 4740}#) | |
18418 | (#{proc\ 4736}# #{x\ 4740}#)))) | |
bfccdcd5 AW |
18419 | (begin |
18420 | (set-procedure-property! | |
43353663 | 18421 | #{trans\ 4739}# |
bfccdcd5 AW |
18422 | 'variable-transformer |
18423 | #t) | |
43353663 | 18424 | #{trans\ 4739}#))) |
bfccdcd5 | 18425 | (error "variable transformer not a procedure" |
43353663 | 18426 | #{proc\ 4736}#)))) |
65dd9e38 AW |
18427 | |
18428 | (define identifier-syntax | |
e809758a AW |
18429 | (make-syntax-transformer |
18430 | 'identifier-syntax | |
65dd9e38 | 18431 | 'macro |
43353663 AW |
18432 | (lambda (#{x\ 4742}#) |
18433 | (let ((#{tmp\ 4744}# #{x\ 4742}#)) | |
18434 | (let ((#{tmp\ 4745}# | |
18435 | ($sc-dispatch #{tmp\ 4744}# '(_ any)))) | |
18436 | (if #{tmp\ 4745}# | |
417ee098 | 18437 | (@apply |
43353663 | 18438 | (lambda (#{e\ 4747}#) |
417ee098 AW |
18439 | (list '#(syntax-object |
18440 | lambda | |
18441 | ((top) | |
43353663 | 18442 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18443 | #(ribcage () () ()) |
43353663 | 18444 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18445 | (hygiene guile)) |
18446 | '(#(syntax-object | |
18447 | x | |
18448 | ((top) | |
43353663 | 18449 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18450 | #(ribcage () () ()) |
43353663 | 18451 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18452 | (hygiene guile))) |
18453 | '#((#(syntax-object | |
18454 | macro-type | |
18455 | ((top) | |
43353663 | 18456 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18457 | #(ribcage () () ()) |
43353663 | 18458 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18459 | (hygiene guile)) |
18460 | . | |
18461 | #(syntax-object | |
18462 | identifier-syntax | |
18463 | ((top) | |
43353663 | 18464 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18465 | #(ribcage () () ()) |
43353663 | 18466 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18467 | (hygiene guile)))) |
18468 | (list '#(syntax-object | |
18469 | syntax-case | |
18470 | ((top) | |
43353663 | 18471 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18472 | #(ribcage () () ()) |
43353663 | 18473 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18474 | (hygiene guile)) |
18475 | '#(syntax-object | |
18476 | x | |
18477 | ((top) | |
43353663 | 18478 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18479 | #(ribcage () () ()) |
43353663 | 18480 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18481 | (hygiene guile)) |
18482 | '() | |
18483 | (list '#(syntax-object | |
18484 | id | |
18485 | ((top) | |
43353663 | 18486 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18487 | #(ribcage () () ()) |
43353663 | 18488 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18489 | (hygiene guile)) |
18490 | '(#(syntax-object | |
18491 | identifier? | |
65dd9e38 | 18492 | ((top) |
43353663 | 18493 | #(ribcage #(e) #((top)) #("i4746")) |
65dd9e38 | 18494 | #(ribcage () () ()) |
43353663 | 18495 | #(ribcage #(x) #((top)) #("i4743"))) |
65dd9e38 | 18496 | (hygiene guile)) |
417ee098 AW |
18497 | (#(syntax-object |
18498 | syntax | |
18499 | ((top) | |
43353663 | 18500 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18501 | #(ribcage () () ()) |
43353663 | 18502 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18503 | (hygiene guile)) |
18504 | #(syntax-object | |
18505 | id | |
18506 | ((top) | |
43353663 | 18507 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 | 18508 | #(ribcage () () ()) |
43353663 | 18509 | #(ribcage #(x) #((top)) #("i4743"))) |
417ee098 AW |
18510 | (hygiene guile)))) |
18511 | (list '#(syntax-object | |
18512 | syntax | |
18513 | ((top) | |
43353663 | 18514 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 AW |
18515 | #(ribcage () () ()) |
18516 | #(ribcage | |
18517 | #(x) | |
18518 | #((top)) | |
43353663 | 18519 | #("i4743"))) |
417ee098 | 18520 | (hygiene guile)) |
43353663 | 18521 | #{e\ 4747}#)) |
b78d91d5 AW |
18522 | (list '(#(syntax-object |
18523 | _ | |
18524 | ((top) | |
43353663 | 18525 | #(ribcage #(e) #((top)) #("i4746")) |
b78d91d5 | 18526 | #(ribcage () () ()) |
43353663 | 18527 | #(ribcage #(x) #((top)) #("i4743"))) |
b78d91d5 AW |
18528 | (hygiene guile)) |
18529 | #(syntax-object | |
18530 | x | |
18531 | ((top) | |
43353663 | 18532 | #(ribcage #(e) #((top)) #("i4746")) |
b78d91d5 | 18533 | #(ribcage () () ()) |
43353663 | 18534 | #(ribcage #(x) #((top)) #("i4743"))) |
b78d91d5 AW |
18535 | (hygiene guile)) |
18536 | #(syntax-object | |
18537 | ... | |
18538 | ((top) | |
43353663 | 18539 | #(ribcage #(e) #((top)) #("i4746")) |
b78d91d5 | 18540 | #(ribcage () () ()) |
43353663 | 18541 | #(ribcage #(x) #((top)) #("i4743"))) |
b78d91d5 | 18542 | (hygiene guile))) |
417ee098 AW |
18543 | (list '#(syntax-object |
18544 | syntax | |
18545 | ((top) | |
43353663 | 18546 | #(ribcage #(e) #((top)) #("i4746")) |
417ee098 AW |
18547 | #(ribcage () () ()) |
18548 | #(ribcage | |
18549 | #(x) | |
18550 | #((top)) | |
43353663 | 18551 | #("i4743"))) |
417ee098 | 18552 | (hygiene guile)) |
43353663 | 18553 | (cons #{e\ 4747}# |
417ee098 AW |
18554 | '(#(syntax-object |
18555 | x | |
65dd9e38 AW |
18556 | ((top) |
18557 | #(ribcage | |
b78d91d5 AW |
18558 | #(e) |
18559 | #((top)) | |
43353663 | 18560 | #("i4746")) |
65dd9e38 AW |
18561 | #(ribcage () () ()) |
18562 | #(ribcage | |
18563 | #(x) | |
18564 | #((top)) | |
43353663 | 18565 | #("i4743"))) |
65dd9e38 | 18566 | (hygiene guile)) |
417ee098 AW |
18567 | #(syntax-object |
18568 | ... | |
f42d8bd8 AW |
18569 | ((top) |
18570 | #(ribcage | |
b78d91d5 AW |
18571 | #(e) |
18572 | #((top)) | |
43353663 | 18573 | #("i4746")) |
f42d8bd8 AW |
18574 | #(ribcage () () ()) |
18575 | #(ribcage | |
18576 | #(x) | |
18577 | #((top)) | |
43353663 | 18578 | #("i4743"))) |
417ee098 | 18579 | (hygiene guile))))))))) |
43353663 AW |
18580 | #{tmp\ 4745}#) |
18581 | (let ((#{tmp\ 4748}# | |
bfccdcd5 | 18582 | ($sc-dispatch |
43353663 | 18583 | #{tmp\ 4744}# |
b78d91d5 AW |
18584 | '(_ (any any) |
18585 | ((#(free-id | |
18586 | #(syntax-object | |
18587 | set! | |
18588 | ((top) | |
18589 | #(ribcage () () ()) | |
43353663 | 18590 | #(ribcage #(x) #((top)) #("i4743"))) |
b78d91d5 AW |
18591 | (hygiene guile))) |
18592 | any | |
18593 | any) | |
18594 | any))))) | |
43353663 | 18595 | (if (if #{tmp\ 4748}# |
bfccdcd5 | 18596 | (@apply |
43353663 AW |
18597 | (lambda (#{id\ 4754}# |
18598 | #{exp1\ 4755}# | |
18599 | #{var\ 4756}# | |
18600 | #{val\ 4757}# | |
18601 | #{exp2\ 4758}#) | |
18602 | (if (identifier? #{id\ 4754}#) | |
18603 | (identifier? #{var\ 4756}#) | |
bfccdcd5 | 18604 | #f)) |
43353663 | 18605 | #{tmp\ 4748}#) |
bfccdcd5 AW |
18606 | #f) |
18607 | (@apply | |
43353663 AW |
18608 | (lambda (#{id\ 4766}# |
18609 | #{exp1\ 4767}# | |
18610 | #{var\ 4768}# | |
18611 | #{val\ 4769}# | |
18612 | #{exp2\ 4770}#) | |
bfccdcd5 AW |
18613 | (list '#(syntax-object |
18614 | make-variable-transformer | |
18615 | ((top) | |
18616 | #(ribcage | |
b78d91d5 AW |
18617 | #(id exp1 var val exp2) |
18618 | #((top) (top) (top) (top) (top)) | |
43353663 | 18619 | #("i4761" "i4762" "i4763" "i4764" "i4765")) |
bfccdcd5 | 18620 | #(ribcage () () ()) |
43353663 | 18621 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18622 | (hygiene guile)) |
18623 | (list '#(syntax-object | |
18624 | lambda | |
18625 | ((top) | |
18626 | #(ribcage | |
b78d91d5 AW |
18627 | #(id exp1 var val exp2) |
18628 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18629 | #("i4761" |
18630 | "i4762" | |
18631 | "i4763" | |
18632 | "i4764" | |
18633 | "i4765")) | |
bfccdcd5 | 18634 | #(ribcage () () ()) |
43353663 | 18635 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18636 | (hygiene guile)) |
18637 | '(#(syntax-object | |
18638 | x | |
18639 | ((top) | |
18640 | #(ribcage | |
b78d91d5 AW |
18641 | #(id exp1 var val exp2) |
18642 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18643 | #("i4761" |
18644 | "i4762" | |
18645 | "i4763" | |
18646 | "i4764" | |
18647 | "i4765")) | |
bfccdcd5 | 18648 | #(ribcage () () ()) |
43353663 | 18649 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18650 | (hygiene guile))) |
18651 | '#((#(syntax-object | |
18652 | macro-type | |
18653 | ((top) | |
18654 | #(ribcage | |
b78d91d5 AW |
18655 | #(id exp1 var val exp2) |
18656 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18657 | #("i4761" |
18658 | "i4762" | |
18659 | "i4763" | |
18660 | "i4764" | |
18661 | "i4765")) | |
bfccdcd5 | 18662 | #(ribcage () () ()) |
43353663 | 18663 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18664 | (hygiene guile)) |
18665 | . | |
18666 | #(syntax-object | |
18667 | variable-transformer | |
18668 | ((top) | |
18669 | #(ribcage | |
b78d91d5 AW |
18670 | #(id exp1 var val exp2) |
18671 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18672 | #("i4761" |
18673 | "i4762" | |
18674 | "i4763" | |
18675 | "i4764" | |
18676 | "i4765")) | |
bfccdcd5 | 18677 | #(ribcage () () ()) |
43353663 | 18678 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18679 | (hygiene guile)))) |
18680 | (list '#(syntax-object | |
18681 | syntax-case | |
18682 | ((top) | |
18683 | #(ribcage | |
b78d91d5 AW |
18684 | #(id exp1 var val exp2) |
18685 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18686 | #("i4761" |
18687 | "i4762" | |
18688 | "i4763" | |
18689 | "i4764" | |
18690 | "i4765")) | |
bfccdcd5 | 18691 | #(ribcage () () ()) |
43353663 | 18692 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18693 | (hygiene guile)) |
18694 | '#(syntax-object | |
18695 | x | |
18696 | ((top) | |
18697 | #(ribcage | |
b78d91d5 AW |
18698 | #(id exp1 var val exp2) |
18699 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18700 | #("i4761" |
18701 | "i4762" | |
18702 | "i4763" | |
18703 | "i4764" | |
18704 | "i4765")) | |
bfccdcd5 | 18705 | #(ribcage () () ()) |
43353663 | 18706 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18707 | (hygiene guile)) |
18708 | '(#(syntax-object | |
18709 | set! | |
18710 | ((top) | |
18711 | #(ribcage | |
b78d91d5 AW |
18712 | #(id exp1 var val exp2) |
18713 | #((top) (top) (top) (top) (top)) | |
43353663 AW |
18714 | #("i4761" |
18715 | "i4762" | |
18716 | "i4763" | |
18717 | "i4764" | |
18718 | "i4765")) | |
bfccdcd5 | 18719 | #(ribcage () () ()) |
43353663 | 18720 | #(ribcage #(x) #((top)) #("i4743"))) |
bfccdcd5 AW |
18721 | (hygiene guile))) |
18722 | (list (list '#(syntax-object | |
18723 | set! | |
18724 | ((top) | |
18725 | #(ribcage | |
b78d91d5 | 18726 | #(id exp1 var val exp2) |
bfccdcd5 AW |
18727 | #((top) |
18728 | (top) | |
18729 | (top) | |
18730 | (top) | |
bfccdcd5 | 18731 | (top)) |
43353663 AW |
18732 | #("i4761" |
18733 | "i4762" | |
18734 | "i4763" | |
18735 | "i4764" | |
18736 | "i4765")) | |
bfccdcd5 AW |
18737 | #(ribcage () () ()) |
18738 | #(ribcage | |
18739 | #(x) | |
18740 | #((top)) | |
43353663 | 18741 | #("i4743"))) |
bfccdcd5 | 18742 | (hygiene guile)) |
43353663 AW |
18743 | #{var\ 4768}# |
18744 | #{val\ 4769}#) | |
bfccdcd5 AW |
18745 | (list '#(syntax-object |
18746 | syntax | |
18747 | ((top) | |
18748 | #(ribcage | |
b78d91d5 | 18749 | #(id exp1 var val exp2) |
bfccdcd5 AW |
18750 | #((top) |
18751 | (top) | |
18752 | (top) | |
18753 | (top) | |
bfccdcd5 | 18754 | (top)) |
43353663 AW |
18755 | #("i4761" |
18756 | "i4762" | |
18757 | "i4763" | |
18758 | "i4764" | |
18759 | "i4765")) | |
bfccdcd5 AW |
18760 | #(ribcage () () ()) |
18761 | #(ribcage | |
18762 | #(x) | |
18763 | #((top)) | |
43353663 | 18764 | #("i4743"))) |
bfccdcd5 | 18765 | (hygiene guile)) |
43353663 AW |
18766 | #{exp2\ 4770}#)) |
18767 | (list (cons #{id\ 4766}# | |
bfccdcd5 AW |
18768 | '(#(syntax-object |
18769 | x | |
18770 | ((top) | |
18771 | #(ribcage | |
b78d91d5 | 18772 | #(id |
bfccdcd5 AW |
18773 | exp1 |
18774 | var | |
18775 | val | |
18776 | exp2) | |
18777 | #((top) | |
18778 | (top) | |
18779 | (top) | |
18780 | (top) | |
bfccdcd5 | 18781 | (top)) |
43353663 AW |
18782 | #("i4761" |
18783 | "i4762" | |
18784 | "i4763" | |
18785 | "i4764" | |
18786 | "i4765")) | |
bfccdcd5 AW |
18787 | #(ribcage () () ()) |
18788 | #(ribcage | |
18789 | #(x) | |
18790 | #((top)) | |
43353663 | 18791 | #("i4743"))) |
bfccdcd5 AW |
18792 | (hygiene guile)) |
18793 | #(syntax-object | |
18794 | ... | |
18795 | ((top) | |
18796 | #(ribcage | |
b78d91d5 | 18797 | #(id |
bfccdcd5 AW |
18798 | exp1 |
18799 | var | |
18800 | val | |
18801 | exp2) | |
18802 | #((top) | |
18803 | (top) | |
18804 | (top) | |
18805 | (top) | |
bfccdcd5 | 18806 | (top)) |
43353663 AW |
18807 | #("i4761" |
18808 | "i4762" | |
18809 | "i4763" | |
18810 | "i4764" | |
18811 | "i4765")) | |
bfccdcd5 AW |
18812 | #(ribcage () () ()) |
18813 | #(ribcage | |
18814 | #(x) | |
18815 | #((top)) | |
43353663 | 18816 | #("i4743"))) |
bfccdcd5 AW |
18817 | (hygiene guile)))) |
18818 | (list '#(syntax-object | |
18819 | syntax | |
18820 | ((top) | |
18821 | #(ribcage | |
b78d91d5 | 18822 | #(id exp1 var val exp2) |
bfccdcd5 AW |
18823 | #((top) |
18824 | (top) | |
18825 | (top) | |
18826 | (top) | |
bfccdcd5 | 18827 | (top)) |
43353663 AW |
18828 | #("i4761" |
18829 | "i4762" | |
18830 | "i4763" | |
18831 | "i4764" | |
18832 | "i4765")) | |
bfccdcd5 AW |
18833 | #(ribcage () () ()) |
18834 | #(ribcage | |
18835 | #(x) | |
18836 | #((top)) | |
43353663 | 18837 | #("i4743"))) |
bfccdcd5 | 18838 | (hygiene guile)) |
43353663 | 18839 | (cons #{exp1\ 4767}# |
bfccdcd5 AW |
18840 | '(#(syntax-object |
18841 | x | |
18842 | ((top) | |
18843 | #(ribcage | |
b78d91d5 | 18844 | #(id |
bfccdcd5 AW |
18845 | exp1 |
18846 | var | |
18847 | val | |
18848 | exp2) | |
18849 | #((top) | |
18850 | (top) | |
18851 | (top) | |
18852 | (top) | |
bfccdcd5 | 18853 | (top)) |
43353663 AW |
18854 | #("i4761" |
18855 | "i4762" | |
18856 | "i4763" | |
18857 | "i4764" | |
18858 | "i4765")) | |
bfccdcd5 AW |
18859 | #(ribcage |
18860 | () | |
18861 | () | |
18862 | ()) | |
18863 | #(ribcage | |
18864 | #(x) | |
18865 | #((top)) | |
43353663 | 18866 | #("i4743"))) |
bfccdcd5 AW |
18867 | (hygiene guile)) |
18868 | #(syntax-object | |
18869 | ... | |
18870 | ((top) | |
18871 | #(ribcage | |
b78d91d5 | 18872 | #(id |
bfccdcd5 AW |
18873 | exp1 |
18874 | var | |
18875 | val | |
18876 | exp2) | |
18877 | #((top) | |
18878 | (top) | |
18879 | (top) | |
18880 | (top) | |
bfccdcd5 | 18881 | (top)) |
43353663 AW |
18882 | #("i4761" |
18883 | "i4762" | |
18884 | "i4763" | |
18885 | "i4764" | |
18886 | "i4765")) | |
bfccdcd5 AW |
18887 | #(ribcage |
18888 | () | |
18889 | () | |
18890 | ()) | |
18891 | #(ribcage | |
18892 | #(x) | |
18893 | #((top)) | |
43353663 | 18894 | #("i4743"))) |
bfccdcd5 AW |
18895 | (hygiene |
18896 | guile)))))) | |
43353663 | 18897 | (list #{id\ 4766}# |
bfccdcd5 AW |
18898 | (list '#(syntax-object |
18899 | identifier? | |
18900 | ((top) | |
18901 | #(ribcage | |
b78d91d5 | 18902 | #(id exp1 var val exp2) |
bfccdcd5 AW |
18903 | #((top) |
18904 | (top) | |
18905 | (top) | |
18906 | (top) | |
bfccdcd5 | 18907 | (top)) |
43353663 AW |
18908 | #("i4761" |
18909 | "i4762" | |
18910 | "i4763" | |
18911 | "i4764" | |
18912 | "i4765")) | |
bfccdcd5 AW |
18913 | #(ribcage () () ()) |
18914 | #(ribcage | |
18915 | #(x) | |
18916 | #((top)) | |
43353663 | 18917 | #("i4743"))) |
bfccdcd5 AW |
18918 | (hygiene guile)) |
18919 | (list '#(syntax-object | |
18920 | syntax | |
18921 | ((top) | |
18922 | #(ribcage | |
b78d91d5 | 18923 | #(id |
bfccdcd5 AW |
18924 | exp1 |
18925 | var | |
18926 | val | |
18927 | exp2) | |
18928 | #((top) | |
18929 | (top) | |
18930 | (top) | |
18931 | (top) | |
bfccdcd5 | 18932 | (top)) |
43353663 AW |
18933 | #("i4761" |
18934 | "i4762" | |
18935 | "i4763" | |
18936 | "i4764" | |
18937 | "i4765")) | |
bfccdcd5 AW |
18938 | #(ribcage () () ()) |
18939 | #(ribcage | |
18940 | #(x) | |
18941 | #((top)) | |
43353663 | 18942 | #("i4743"))) |
bfccdcd5 | 18943 | (hygiene guile)) |
43353663 | 18944 | #{id\ 4766}#)) |
bfccdcd5 AW |
18945 | (list '#(syntax-object |
18946 | syntax | |
18947 | ((top) | |
18948 | #(ribcage | |
b78d91d5 | 18949 | #(id exp1 var val exp2) |
bfccdcd5 AW |
18950 | #((top) |
18951 | (top) | |
18952 | (top) | |
18953 | (top) | |
bfccdcd5 | 18954 | (top)) |
43353663 AW |
18955 | #("i4761" |
18956 | "i4762" | |
18957 | "i4763" | |
18958 | "i4764" | |
18959 | "i4765")) | |
bfccdcd5 AW |
18960 | #(ribcage () () ()) |
18961 | #(ribcage | |
18962 | #(x) | |
18963 | #((top)) | |
43353663 | 18964 | #("i4743"))) |
bfccdcd5 | 18965 | (hygiene guile)) |
43353663 AW |
18966 | #{exp1\ 4767}#)))))) |
18967 | #{tmp\ 4748}#) | |
bfccdcd5 AW |
18968 | (syntax-violation |
18969 | #f | |
18970 | "source expression failed to match any pattern" | |
43353663 | 18971 | #{tmp\ 4744}#))))))))) |
97bc28b6 AW |
18972 | |
18973 | (define define* | |
e809758a AW |
18974 | (make-syntax-transformer |
18975 | 'define* | |
97bc28b6 | 18976 | 'macro |
43353663 AW |
18977 | (lambda (#{x\ 4771}#) |
18978 | (let ((#{tmp\ 4773}# #{x\ 4771}#)) | |
18979 | (let ((#{tmp\ 4774}# | |
417ee098 | 18980 | ($sc-dispatch |
43353663 | 18981 | #{tmp\ 4773}# |
b78d91d5 | 18982 | '(_ (any . any) any . each-any)))) |
43353663 | 18983 | (if #{tmp\ 4774}# |
417ee098 | 18984 | (@apply |
43353663 AW |
18985 | (lambda (#{id\ 4779}# |
18986 | #{args\ 4780}# | |
18987 | #{b0\ 4781}# | |
18988 | #{b1\ 4782}#) | |
417ee098 AW |
18989 | (list '#(syntax-object |
18990 | define | |
18991 | ((top) | |
18992 | #(ribcage | |
b78d91d5 AW |
18993 | #(id args b0 b1) |
18994 | #((top) (top) (top) (top)) | |
43353663 | 18995 | #("i4775" "i4776" "i4777" "i4778")) |
417ee098 | 18996 | #(ribcage () () ()) |
43353663 | 18997 | #(ribcage #(x) #((top)) #("i4772"))) |
417ee098 | 18998 | (hygiene guile)) |
43353663 | 18999 | #{id\ 4779}# |
417ee098 AW |
19000 | (cons '#(syntax-object |
19001 | lambda* | |
19002 | ((top) | |
19003 | #(ribcage | |
b78d91d5 AW |
19004 | #(id args b0 b1) |
19005 | #((top) (top) (top) (top)) | |
43353663 | 19006 | #("i4775" "i4776" "i4777" "i4778")) |
417ee098 | 19007 | #(ribcage () () ()) |
43353663 | 19008 | #(ribcage #(x) #((top)) #("i4772"))) |
417ee098 | 19009 | (hygiene guile)) |
43353663 AW |
19010 | (cons #{args\ 4780}# |
19011 | (cons #{b0\ 4781}# #{b1\ 4782}#))))) | |
19012 | #{tmp\ 4774}#) | |
19013 | (let ((#{tmp\ 4784}# | |
19014 | ($sc-dispatch #{tmp\ 4773}# '(_ any any)))) | |
19015 | (if (if #{tmp\ 4784}# | |
417ee098 | 19016 | (@apply |
43353663 | 19017 | (lambda (#{id\ 4787}# #{val\ 4788}#) |
417ee098 AW |
19018 | (identifier? |
19019 | '#(syntax-object | |
19020 | x | |
19021 | ((top) | |
19022 | #(ribcage | |
b78d91d5 AW |
19023 | #(id val) |
19024 | #((top) (top)) | |
43353663 | 19025 | #("i4785" "i4786")) |
417ee098 | 19026 | #(ribcage () () ()) |
43353663 | 19027 | #(ribcage #(x) #((top)) #("i4772"))) |
417ee098 | 19028 | (hygiene guile)))) |
43353663 | 19029 | #{tmp\ 4784}#) |
417ee098 AW |
19030 | #f) |
19031 | (@apply | |
43353663 | 19032 | (lambda (#{id\ 4791}# #{val\ 4792}#) |
417ee098 AW |
19033 | (list '#(syntax-object |
19034 | define | |
19035 | ((top) | |
19036 | #(ribcage | |
b78d91d5 AW |
19037 | #(id val) |
19038 | #((top) (top)) | |
43353663 | 19039 | #("i4789" "i4790")) |
417ee098 | 19040 | #(ribcage () () ()) |
43353663 | 19041 | #(ribcage #(x) #((top)) #("i4772"))) |
417ee098 | 19042 | (hygiene guile)) |
43353663 AW |
19043 | #{id\ 4791}# |
19044 | #{val\ 4792}#)) | |
19045 | #{tmp\ 4784}#) | |
417ee098 AW |
19046 | (syntax-violation |
19047 | #f | |
19048 | "source expression failed to match any pattern" | |
43353663 | 19049 | #{tmp\ 4773}#))))))))) |
65dd9e38 | 19050 |