Commit | Line | Data |
---|---|---|
9c35c579 | 1 | (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) |
41af2381 | 2 | (if #f #f) |
65dd9e38 | 3 | |
fb6e61ca AW |
4 | (letrec ((#{and-map*\ 30}# |
5 | (lambda (#{f\ 202}# #{first\ 203}# . #{rest\ 204}#) | |
6 | (let ((#{t\ 210}# (null? #{first\ 203}#))) | |
7 | (if #{t\ 210}# | |
8 | #{t\ 210}# | |
9 | (if (null? #{rest\ 204}#) | |
10 | (letrec ((#{andmap\ 214}# | |
11 | (lambda (#{first\ 215}#) | |
12 | (let ((#{x\ 218}# (car #{first\ 215}#)) | |
13 | (#{first\ 219}# (cdr #{first\ 215}#))) | |
14 | (if (null? #{first\ 219}#) | |
15 | (#{f\ 202}# #{x\ 218}#) | |
16 | (if (#{f\ 202}# #{x\ 218}#) | |
17 | (#{andmap\ 214}# #{first\ 219}#) | |
65dd9e38 | 18 | #f)))))) |
fb6e61ca AW |
19 | (#{andmap\ 214}# #{first\ 203}#)) |
20 | (letrec ((#{andmap\ 225}# | |
21 | (lambda (#{first\ 226}# #{rest\ 227}#) | |
22 | (let ((#{x\ 232}# (car #{first\ 226}#)) | |
23 | (#{xr\ 233}# (map car #{rest\ 227}#)) | |
24 | (#{first\ 234}# (cdr #{first\ 226}#)) | |
25 | (#{rest\ 235}# (map cdr #{rest\ 227}#))) | |
26 | (if (null? #{first\ 234}#) | |
27 | (apply #{f\ 202}# | |
28 | (cons #{x\ 232}# #{xr\ 233}#)) | |
29 | (if (apply #{f\ 202}# | |
30 | (cons #{x\ 232}# #{xr\ 233}#)) | |
31 | (#{andmap\ 225}# | |
32 | #{first\ 234}# | |
33 | #{rest\ 235}#) | |
b9434165 | 34 | #f)))))) |
fb6e61ca AW |
35 | (#{andmap\ 225}# #{first\ 203}# #{rest\ 204}#)))))))) |
36 | (letrec ((#{lambda-var-list\ 497}# | |
37 | (lambda (#{vars\ 712}#) | |
38 | (letrec ((#{lvl\ 718}# | |
39 | (lambda (#{vars\ 719}# #{ls\ 720}# #{w\ 721}#) | |
40 | (if (pair? #{vars\ 719}#) | |
41 | (#{lvl\ 718}# | |
42 | (cdr #{vars\ 719}#) | |
43 | (cons (#{wrap\ 451}# | |
44 | (car #{vars\ 719}#) | |
45 | #{w\ 721}# | |
b9434165 | 46 | #f) |
fb6e61ca AW |
47 | #{ls\ 720}#) |
48 | #{w\ 721}#) | |
49 | (if (#{id?\ 382}# #{vars\ 719}#) | |
50 | (cons (#{wrap\ 451}# | |
51 | #{vars\ 719}# | |
52 | #{w\ 721}# | |
b9434165 | 53 | #f) |
fb6e61ca AW |
54 | #{ls\ 720}#) |
55 | (if (null? #{vars\ 719}#) | |
56 | #{ls\ 720}# | |
57 | (if (#{syntax-object?\ 346}# #{vars\ 719}#) | |
58 | (#{lvl\ 718}# | |
59 | (#{syntax-object-expression\ 348}# | |
60 | #{vars\ 719}#) | |
61 | #{ls\ 720}# | |
62 | (#{join-wraps\ 433}# | |
63 | #{w\ 721}# | |
64 | (#{syntax-object-wrap\ 350}# | |
65 | #{vars\ 719}#))) | |
66 | (cons #{vars\ 719}# #{ls\ 720}#)))))))) | |
67 | (#{lvl\ 718}# | |
68 | #{vars\ 712}# | |
b9434165 LC |
69 | '() |
70 | '(()))))) | |
fb6e61ca AW |
71 | (#{gen-var\ 495}# |
72 | (lambda (#{id\ 732}#) | |
73 | (let ((#{id\ 735}# | |
74 | (if (#{syntax-object?\ 346}# #{id\ 732}#) | |
75 | (#{syntax-object-expression\ 348}# #{id\ 732}#) | |
76 | #{id\ 732}#))) | |
d95eb7f4 | 77 | (gensym |
fb6e61ca AW |
78 | (string-append (symbol->string #{id\ 735}#) " "))))) |
79 | (#{strip\ 493}# | |
80 | (lambda (#{x\ 737}# #{w\ 738}#) | |
b9434165 | 81 | (if (memq 'top |
fb6e61ca AW |
82 | (#{wrap-marks\ 389}# #{w\ 738}#)) |
83 | #{x\ 737}# | |
84 | (letrec ((#{f\ 744}# (lambda (#{x\ 745}#) | |
85 | (if (#{syntax-object?\ 346}# | |
86 | #{x\ 745}#) | |
87 | (#{strip\ 493}# | |
88 | (#{syntax-object-expression\ 348}# | |
89 | #{x\ 745}#) | |
90 | (#{syntax-object-wrap\ 350}# | |
91 | #{x\ 745}#)) | |
92 | (if (pair? #{x\ 745}#) | |
93 | (let ((#{a\ 752}# (#{f\ 744}# (car #{x\ 745}#))) | |
94 | (#{d\ 753}# (#{f\ 744}# (cdr #{x\ 745}#)))) | |
95 | (if (if (eq? #{a\ 752}# | |
96 | (car #{x\ 745}#)) | |
97 | (eq? #{d\ 753}# | |
98 | (cdr #{x\ 745}#)) | |
131ae7b4 | 99 | #f) |
fb6e61ca AW |
100 | #{x\ 745}# |
101 | (cons #{a\ 752}# #{d\ 753}#))) | |
102 | (if (vector? #{x\ 745}#) | |
103 | (let ((#{old\ 759}# | |
131ae7b4 | 104 | (vector->list |
fb6e61ca AW |
105 | #{x\ 745}#))) |
106 | (let ((#{new\ 761}# | |
107 | (map #{f\ 744}# | |
108 | #{old\ 759}#))) | |
109 | (if (#{and-map*\ 30}# | |
131ae7b4 | 110 | eq? |
fb6e61ca AW |
111 | #{old\ 759}# |
112 | #{new\ 761}#) | |
113 | #{x\ 745}# | |
131ae7b4 | 114 | (list->vector |
fb6e61ca AW |
115 | #{new\ 761}#)))) |
116 | #{x\ 745}#)))))) | |
117 | (#{f\ 744}# #{x\ 737}#))))) | |
118 | (#{chi-lambda-case\ 491}# | |
119 | (lambda (#{e\ 763}# | |
120 | #{r\ 764}# | |
121 | #{w\ 765}# | |
122 | #{s\ 766}# | |
123 | #{mod\ 767}# | |
124 | #{get-formals\ 768}# | |
125 | #{clauses\ 769}#) | |
126 | (letrec ((#{expand-body\ 784}# | |
127 | (lambda (#{req\ 785}# | |
128 | #{opt\ 786}# | |
129 | #{rest\ 787}# | |
130 | #{kw\ 788}# | |
131 | #{body\ 789}# | |
132 | #{vars\ 790}# | |
133 | #{r*\ 791}# | |
134 | #{w*\ 792}# | |
135 | #{inits\ 793}# | |
136 | #{meta\ 794}#) | |
137 | ((lambda (#{tmp\ 805}#) | |
138 | ((lambda (#{tmp\ 806}#) | |
139 | (if (if #{tmp\ 806}# | |
140 | (apply (lambda (#{docstring\ 810}# | |
141 | #{e1\ 811}# | |
142 | #{e2\ 812}#) | |
c89222f8 AW |
143 | (string? |
144 | (syntax->datum | |
fb6e61ca AW |
145 | #{docstring\ 810}#))) |
146 | #{tmp\ 806}#) | |
c89222f8 | 147 | #f) |
fb6e61ca AW |
148 | (apply (lambda (#{docstring\ 816}# |
149 | #{e1\ 817}# | |
150 | #{e2\ 818}#) | |
151 | (#{expand-body\ 784}# | |
152 | #{req\ 785}# | |
153 | #{opt\ 786}# | |
154 | #{rest\ 787}# | |
155 | #{kw\ 788}# | |
156 | (cons #{e1\ 817}# #{e2\ 818}#) | |
157 | #{vars\ 790}# | |
158 | #{r*\ 791}# | |
159 | #{w*\ 792}# | |
160 | #{inits\ 793}# | |
3785c5b2 | 161 | (append |
fb6e61ca | 162 | #{meta\ 794}# |
3785c5b2 AW |
163 | (list (cons 'documentation |
164 | (syntax->datum | |
fb6e61ca AW |
165 | #{docstring\ 816}#)))))) |
166 | #{tmp\ 806}#) | |
167 | ((lambda (#{tmp\ 821}#) | |
168 | (if #{tmp\ 821}# | |
169 | (apply (lambda (#{k\ 826}# | |
170 | #{v\ 827}# | |
171 | #{e1\ 828}# | |
172 | #{e2\ 829}#) | |
173 | (#{expand-body\ 784}# | |
174 | #{req\ 785}# | |
175 | #{opt\ 786}# | |
176 | #{rest\ 787}# | |
177 | #{kw\ 788}# | |
178 | (cons #{e1\ 828}# | |
179 | #{e2\ 829}#) | |
180 | #{vars\ 790}# | |
181 | #{r*\ 791}# | |
182 | #{w*\ 792}# | |
183 | #{inits\ 793}# | |
1f51e275 | 184 | (append |
fb6e61ca | 185 | #{meta\ 794}# |
1f51e275 AW |
186 | (syntax->datum |
187 | (map cons | |
fb6e61ca AW |
188 | #{k\ 826}# |
189 | #{v\ 827}#))))) | |
190 | #{tmp\ 821}#) | |
191 | ((lambda (#{tmp\ 833}#) | |
192 | (if #{tmp\ 833}# | |
193 | (apply (lambda (#{e1\ 836}# | |
194 | #{e2\ 837}#) | |
1f51e275 | 195 | (values |
fb6e61ca AW |
196 | #{meta\ 794}# |
197 | #{req\ 785}# | |
198 | #{opt\ 786}# | |
199 | #{rest\ 787}# | |
200 | #{kw\ 788}# | |
201 | #{inits\ 793}# | |
202 | #{vars\ 790}# | |
203 | (#{chi-body\ 475}# | |
204 | (cons #{e1\ 836}# | |
205 | #{e2\ 837}#) | |
206 | (#{source-wrap\ 453}# | |
207 | #{e\ 763}# | |
208 | #{w\ 765}# | |
209 | #{s\ 766}# | |
210 | #{mod\ 767}#) | |
211 | #{r*\ 791}# | |
212 | #{w*\ 792}# | |
213 | #{mod\ 767}#))) | |
214 | #{tmp\ 833}#) | |
1f51e275 AW |
215 | (syntax-violation |
216 | #f | |
217 | "source expression failed to match any pattern" | |
fb6e61ca | 218 | #{tmp\ 805}#))) |
1f51e275 | 219 | ($sc-dispatch |
fb6e61ca | 220 | #{tmp\ 805}# |
1f51e275 | 221 | '(any . each-any))))) |
c89222f8 | 222 | ($sc-dispatch |
fb6e61ca | 223 | #{tmp\ 805}# |
1f51e275 AW |
224 | '(#(vector #(each (any . any))) |
225 | any | |
226 | . | |
227 | each-any))))) | |
c89222f8 | 228 | ($sc-dispatch |
fb6e61ca | 229 | #{tmp\ 805}# |
c89222f8 | 230 | '(any any . each-any)))) |
fb6e61ca AW |
231 | #{body\ 789}#))) |
232 | (#{expand-kw\ 782}# | |
233 | (lambda (#{req\ 839}# | |
234 | #{opt\ 840}# | |
235 | #{rest\ 841}# | |
236 | #{kw\ 842}# | |
237 | #{body\ 843}# | |
238 | #{vars\ 844}# | |
239 | #{r*\ 845}# | |
240 | #{w*\ 846}# | |
241 | #{aok\ 847}# | |
242 | #{out\ 848}# | |
243 | #{inits\ 849}#) | |
244 | (if (pair? #{kw\ 842}#) | |
245 | ((lambda (#{tmp\ 863}#) | |
246 | ((lambda (#{tmp\ 864}#) | |
247 | (if #{tmp\ 864}# | |
248 | (apply (lambda (#{k\ 868}# | |
249 | #{id\ 869}# | |
250 | #{i\ 870}#) | |
251 | (let ((#{v\ 873}# (#{gen-var\ 495}# | |
252 | #{id\ 869}#))) | |
253 | (let ((#{l\ 875}# (#{gen-labels\ 400}# | |
254 | (list #{v\ 873}#)))) | |
255 | (let ((#{r**\ 877}# | |
256 | (#{extend-var-env\ 372}# | |
257 | #{l\ 875}# | |
258 | (list #{v\ 873}#) | |
259 | #{r*\ 845}#))) | |
260 | (let ((#{w**\ 879}# | |
261 | (#{make-binding-wrap\ 429}# | |
262 | (list #{id\ 869}#) | |
263 | #{l\ 875}# | |
264 | #{w*\ 846}#))) | |
265 | (#{expand-kw\ 782}# | |
266 | #{req\ 839}# | |
267 | #{opt\ 840}# | |
268 | #{rest\ 841}# | |
269 | (cdr #{kw\ 842}#) | |
270 | #{body\ 843}# | |
271 | (cons #{v\ 873}# | |
272 | #{vars\ 844}#) | |
273 | #{r**\ 877}# | |
274 | #{w**\ 879}# | |
275 | #{aok\ 847}# | |
c89222f8 | 276 | (cons (list (syntax->datum |
fb6e61ca | 277 | #{k\ 868}#) |
c89222f8 | 278 | (syntax->datum |
fb6e61ca AW |
279 | #{id\ 869}#) |
280 | #{v\ 873}#) | |
281 | #{out\ 848}#) | |
282 | (cons (#{chi\ 467}# | |
283 | #{i\ 870}# | |
284 | #{r*\ 845}# | |
285 | #{w*\ 846}# | |
286 | #{mod\ 767}#) | |
287 | #{inits\ 849}#))))))) | |
288 | #{tmp\ 864}#) | |
c89222f8 AW |
289 | (syntax-violation |
290 | #f | |
291 | "source expression failed to match any pattern" | |
fb6e61ca | 292 | #{tmp\ 863}#))) |
c89222f8 | 293 | ($sc-dispatch |
fb6e61ca | 294 | #{tmp\ 863}# |
c89222f8 | 295 | '(any any any)))) |
fb6e61ca AW |
296 | (car #{kw\ 842}#)) |
297 | (#{expand-body\ 784}# | |
298 | #{req\ 839}# | |
299 | #{opt\ 840}# | |
300 | #{rest\ 841}# | |
301 | (if (let ((#{t\ 883}# #{aok\ 847}#)) | |
302 | (if #{t\ 883}# | |
303 | #{t\ 883}# | |
304 | (pair? #{out\ 848}#))) | |
305 | (cons #{aok\ 847}# (reverse #{out\ 848}#)) | |
c89222f8 | 306 | #f) |
fb6e61ca AW |
307 | #{body\ 843}# |
308 | (reverse #{vars\ 844}#) | |
309 | #{r*\ 845}# | |
310 | #{w*\ 846}# | |
311 | (reverse #{inits\ 849}#) | |
3785c5b2 | 312 | '())))) |
fb6e61ca AW |
313 | (#{expand-opt\ 780}# |
314 | (lambda (#{req\ 885}# | |
315 | #{opt\ 886}# | |
316 | #{rest\ 887}# | |
317 | #{kw\ 888}# | |
318 | #{body\ 889}# | |
319 | #{vars\ 890}# | |
320 | #{r*\ 891}# | |
321 | #{w*\ 892}# | |
322 | #{out\ 893}# | |
323 | #{inits\ 894}#) | |
324 | (if (pair? #{opt\ 886}#) | |
325 | ((lambda (#{tmp\ 907}#) | |
326 | ((lambda (#{tmp\ 908}#) | |
327 | (if #{tmp\ 908}# | |
328 | (apply (lambda (#{id\ 911}# #{i\ 912}#) | |
329 | (let ((#{v\ 915}# (#{gen-var\ 495}# | |
330 | #{id\ 911}#))) | |
331 | (let ((#{l\ 917}# (#{gen-labels\ 400}# | |
332 | (list #{v\ 915}#)))) | |
333 | (let ((#{r**\ 919}# | |
334 | (#{extend-var-env\ 372}# | |
335 | #{l\ 917}# | |
336 | (list #{v\ 915}#) | |
337 | #{r*\ 891}#))) | |
338 | (let ((#{w**\ 921}# | |
339 | (#{make-binding-wrap\ 429}# | |
340 | (list #{id\ 911}#) | |
341 | #{l\ 917}# | |
342 | #{w*\ 892}#))) | |
343 | (#{expand-opt\ 780}# | |
344 | #{req\ 885}# | |
345 | (cdr #{opt\ 886}#) | |
346 | #{rest\ 887}# | |
347 | #{kw\ 888}# | |
348 | #{body\ 889}# | |
349 | (cons #{v\ 915}# | |
350 | #{vars\ 890}#) | |
351 | #{r**\ 919}# | |
352 | #{w**\ 921}# | |
c89222f8 | 353 | (cons (syntax->datum |
fb6e61ca AW |
354 | #{id\ 911}#) |
355 | #{out\ 893}#) | |
356 | (cons (#{chi\ 467}# | |
357 | #{i\ 912}# | |
358 | #{r*\ 891}# | |
359 | #{w*\ 892}# | |
360 | #{mod\ 767}#) | |
361 | #{inits\ 894}#))))))) | |
362 | #{tmp\ 908}#) | |
c89222f8 AW |
363 | (syntax-violation |
364 | #f | |
365 | "source expression failed to match any pattern" | |
fb6e61ca | 366 | #{tmp\ 907}#))) |
c89222f8 | 367 | ($sc-dispatch |
fb6e61ca | 368 | #{tmp\ 907}# |
c89222f8 | 369 | '(any any)))) |
fb6e61ca AW |
370 | (car #{opt\ 886}#)) |
371 | (if #{rest\ 887}# | |
372 | (let ((#{v\ 926}# (#{gen-var\ 495}# | |
373 | #{rest\ 887}#))) | |
374 | (let ((#{l\ 928}# (#{gen-labels\ 400}# | |
375 | (list #{v\ 926}#)))) | |
376 | (let ((#{r*\ 930}# | |
377 | (#{extend-var-env\ 372}# | |
378 | #{l\ 928}# | |
379 | (list #{v\ 926}#) | |
380 | #{r*\ 891}#))) | |
381 | (let ((#{w*\ 932}# | |
382 | (#{make-binding-wrap\ 429}# | |
383 | (list #{rest\ 887}#) | |
384 | #{l\ 928}# | |
385 | #{w*\ 892}#))) | |
386 | (#{expand-kw\ 782}# | |
387 | #{req\ 885}# | |
388 | (if (pair? #{out\ 893}#) | |
389 | (reverse #{out\ 893}#) | |
c89222f8 | 390 | #f) |
fb6e61ca AW |
391 | (syntax->datum #{rest\ 887}#) |
392 | (if (pair? #{kw\ 888}#) | |
393 | (cdr #{kw\ 888}#) | |
394 | #{kw\ 888}#) | |
395 | #{body\ 889}# | |
396 | (cons #{v\ 926}# #{vars\ 890}#) | |
397 | #{r*\ 930}# | |
398 | #{w*\ 932}# | |
399 | (if (pair? #{kw\ 888}#) | |
400 | (car #{kw\ 888}#) | |
c89222f8 AW |
401 | #f) |
402 | '() | |
fb6e61ca AW |
403 | #{inits\ 894}#))))) |
404 | (#{expand-kw\ 782}# | |
405 | #{req\ 885}# | |
406 | (if (pair? #{out\ 893}#) | |
407 | (reverse #{out\ 893}#) | |
c89222f8 AW |
408 | #f) |
409 | #f | |
fb6e61ca AW |
410 | (if (pair? #{kw\ 888}#) |
411 | (cdr #{kw\ 888}#) | |
412 | #{kw\ 888}#) | |
413 | #{body\ 889}# | |
414 | #{vars\ 890}# | |
415 | #{r*\ 891}# | |
416 | #{w*\ 892}# | |
417 | (if (pair? #{kw\ 888}#) (car #{kw\ 888}#) #f) | |
c89222f8 | 418 | '() |
fb6e61ca AW |
419 | #{inits\ 894}#))))) |
420 | (#{expand-req\ 778}# | |
421 | (lambda (#{req\ 934}# | |
422 | #{opt\ 935}# | |
423 | #{rest\ 936}# | |
424 | #{kw\ 937}# | |
425 | #{body\ 938}#) | |
426 | (let ((#{vars\ 946}# | |
427 | (map #{gen-var\ 495}# #{req\ 934}#)) | |
428 | (#{labels\ 947}# | |
429 | (#{gen-labels\ 400}# #{req\ 934}#))) | |
430 | (let ((#{r*\ 950}# | |
431 | (#{extend-var-env\ 372}# | |
432 | #{labels\ 947}# | |
433 | #{vars\ 946}# | |
434 | #{r\ 764}#)) | |
435 | (#{w*\ 951}# | |
436 | (#{make-binding-wrap\ 429}# | |
437 | #{req\ 934}# | |
438 | #{labels\ 947}# | |
439 | #{w\ 765}#))) | |
440 | (#{expand-opt\ 780}# | |
441 | (map syntax->datum #{req\ 934}#) | |
442 | #{opt\ 935}# | |
443 | #{rest\ 936}# | |
444 | #{kw\ 937}# | |
445 | #{body\ 938}# | |
446 | (reverse #{vars\ 946}#) | |
447 | #{r*\ 950}# | |
448 | #{w*\ 951}# | |
c89222f8 AW |
449 | '() |
450 | '())))))) | |
fb6e61ca AW |
451 | ((lambda (#{tmp\ 952}#) |
452 | ((lambda (#{tmp\ 953}#) | |
453 | (if #{tmp\ 953}# | |
3785c5b2 | 454 | (apply (lambda () (values (quote ()) #f)) |
fb6e61ca AW |
455 | #{tmp\ 953}#) |
456 | ((lambda (#{tmp\ 954}#) | |
457 | (if #{tmp\ 954}# | |
458 | (apply (lambda (#{args\ 961}# | |
459 | #{e1\ 962}# | |
460 | #{e2\ 963}# | |
461 | #{args*\ 964}# | |
462 | #{e1*\ 965}# | |
463 | #{e2*\ 966}#) | |
c89222f8 AW |
464 | (call-with-values |
465 | (lambda () | |
fb6e61ca AW |
466 | (#{get-formals\ 768}# |
467 | #{args\ 961}#)) | |
468 | (lambda (#{req\ 967}# | |
469 | #{opt\ 968}# | |
470 | #{rest\ 969}# | |
471 | #{kw\ 970}#) | |
c89222f8 AW |
472 | (call-with-values |
473 | (lambda () | |
fb6e61ca AW |
474 | (#{expand-req\ 778}# |
475 | #{req\ 967}# | |
476 | #{opt\ 968}# | |
477 | #{rest\ 969}# | |
478 | #{kw\ 970}# | |
479 | (cons #{e1\ 962}# | |
480 | #{e2\ 963}#))) | |
481 | (lambda (#{meta\ 976}# | |
482 | #{req\ 977}# | |
483 | #{opt\ 978}# | |
484 | #{rest\ 979}# | |
485 | #{kw\ 980}# | |
486 | #{inits\ 981}# | |
487 | #{vars\ 982}# | |
488 | #{body\ 983}#) | |
c89222f8 AW |
489 | (call-with-values |
490 | (lambda () | |
fb6e61ca AW |
491 | (#{chi-lambda-case\ 491}# |
492 | #{e\ 763}# | |
493 | #{r\ 764}# | |
494 | #{w\ 765}# | |
495 | #{s\ 766}# | |
496 | #{mod\ 767}# | |
497 | #{get-formals\ 768}# | |
498 | (map (lambda (#{tmp\ 994}# | |
499 | #{tmp\ 993}# | |
500 | #{tmp\ 992}#) | |
501 | (cons #{tmp\ 992}# | |
502 | (cons #{tmp\ 993}# | |
503 | #{tmp\ 994}#))) | |
504 | #{e2*\ 966}# | |
505 | #{e1*\ 965}# | |
506 | #{args*\ 964}#))) | |
507 | (lambda (#{meta*\ 996}# | |
508 | #{else*\ 997}#) | |
c89222f8 | 509 | (values |
3785c5b2 | 510 | (append |
fb6e61ca AW |
511 | #{meta\ 976}# |
512 | #{meta*\ 996}#) | |
513 | (#{build-lambda-case\ 328}# | |
514 | #{s\ 766}# | |
515 | #{req\ 977}# | |
516 | #{opt\ 978}# | |
517 | #{rest\ 979}# | |
518 | #{kw\ 980}# | |
519 | #{inits\ 981}# | |
520 | #{vars\ 982}# | |
521 | #{body\ 983}# | |
522 | #{else*\ 997}#))))))))) | |
523 | #{tmp\ 954}#) | |
c89222f8 AW |
524 | (syntax-violation |
525 | #f | |
526 | "source expression failed to match any pattern" | |
fb6e61ca | 527 | #{tmp\ 952}#))) |
c89222f8 | 528 | ($sc-dispatch |
fb6e61ca | 529 | #{tmp\ 952}# |
c89222f8 AW |
530 | '((any any . each-any) |
531 | . | |
532 | #(each (any any . each-any))))))) | |
fb6e61ca AW |
533 | ($sc-dispatch #{tmp\ 952}# (quote ())))) |
534 | #{clauses\ 769}#)))) | |
535 | (#{lambda*-formals\ 489}# | |
536 | (lambda (#{orig-args\ 1000}#) | |
537 | (letrec ((#{check\ 1011}# | |
538 | (lambda (#{req\ 1012}# | |
539 | #{opt\ 1013}# | |
540 | #{rest\ 1014}# | |
541 | #{kw\ 1015}#) | |
542 | (if (#{distinct-bound-ids?\ 447}# | |
c89222f8 | 543 | (append |
fb6e61ca AW |
544 | #{req\ 1012}# |
545 | (map car #{opt\ 1013}#) | |
546 | (if #{rest\ 1014}# | |
547 | (list #{rest\ 1014}#) | |
c89222f8 | 548 | '()) |
fb6e61ca AW |
549 | (if (pair? #{kw\ 1015}#) |
550 | (map cadr (cdr #{kw\ 1015}#)) | |
c89222f8 AW |
551 | '()))) |
552 | (values | |
fb6e61ca AW |
553 | #{req\ 1012}# |
554 | #{opt\ 1013}# | |
555 | #{rest\ 1014}# | |
556 | #{kw\ 1015}#) | |
c89222f8 AW |
557 | (syntax-violation |
558 | 'lambda* | |
559 | "duplicate identifier in argument list" | |
fb6e61ca AW |
560 | #{orig-args\ 1000}#)))) |
561 | (#{rest\ 1009}# | |
562 | (lambda (#{args\ 1023}# | |
563 | #{req\ 1024}# | |
564 | #{opt\ 1025}# | |
565 | #{kw\ 1026}#) | |
566 | ((lambda (#{tmp\ 1031}#) | |
567 | ((lambda (#{tmp\ 1032}#) | |
568 | (if (if #{tmp\ 1032}# | |
569 | (apply (lambda (#{r\ 1034}#) | |
570 | (#{id?\ 382}# #{r\ 1034}#)) | |
571 | #{tmp\ 1032}#) | |
df1cd5e5 | 572 | #f) |
fb6e61ca AW |
573 | (apply (lambda (#{r\ 1036}#) |
574 | (#{check\ 1011}# | |
575 | #{req\ 1024}# | |
576 | #{opt\ 1025}# | |
577 | #{r\ 1036}# | |
578 | #{kw\ 1026}#)) | |
579 | #{tmp\ 1032}#) | |
580 | ((lambda (#{else\ 1038}#) | |
c89222f8 AW |
581 | (syntax-violation |
582 | 'lambda* | |
583 | "invalid rest argument" | |
fb6e61ca AW |
584 | #{orig-args\ 1000}# |
585 | #{args\ 1023}#)) | |
586 | #{tmp\ 1031}#))) | |
587 | (list #{tmp\ 1031}#))) | |
588 | #{args\ 1023}#))) | |
589 | (#{key\ 1007}# | |
590 | (lambda (#{args\ 1039}# | |
591 | #{req\ 1040}# | |
592 | #{opt\ 1041}# | |
593 | #{rkey\ 1042}#) | |
594 | ((lambda (#{tmp\ 1047}#) | |
595 | ((lambda (#{tmp\ 1048}#) | |
596 | (if #{tmp\ 1048}# | |
c89222f8 | 597 | (apply (lambda () |
fb6e61ca AW |
598 | (#{check\ 1011}# |
599 | #{req\ 1040}# | |
600 | #{opt\ 1041}# | |
c89222f8 AW |
601 | #f |
602 | (cons #f | |
22cf27c8 | 603 | (reverse |
fb6e61ca AW |
604 | #{rkey\ 1042}#)))) |
605 | #{tmp\ 1048}#) | |
606 | ((lambda (#{tmp\ 1049}#) | |
607 | (if (if #{tmp\ 1049}# | |
608 | (apply (lambda (#{a\ 1052}# | |
609 | #{b\ 1053}#) | |
610 | (#{id?\ 382}# | |
611 | #{a\ 1052}#)) | |
612 | #{tmp\ 1049}#) | |
c89222f8 | 613 | #f) |
fb6e61ca AW |
614 | (apply (lambda (#{a\ 1056}# |
615 | #{b\ 1057}#) | |
616 | ((lambda (#{tmp\ 1059}#) | |
617 | ((lambda (#{k\ 1061}#) | |
618 | (#{key\ 1007}# | |
619 | #{b\ 1057}# | |
620 | #{req\ 1040}# | |
621 | #{opt\ 1041}# | |
622 | (cons (cons #{k\ 1061}# | |
623 | (cons #{a\ 1056}# | |
c89222f8 AW |
624 | '(#(syntax-object |
625 | #f | |
626 | ((top) | |
627 | #(ribcage | |
628 | #(k) | |
629 | #((top)) | |
fb6e61ca | 630 | #("i1060")) |
c89222f8 AW |
631 | #(ribcage |
632 | #(a | |
633 | b) | |
634 | #((top) | |
635 | (top)) | |
fb6e61ca AW |
636 | #("i1054" |
637 | "i1055")) | |
c89222f8 AW |
638 | #(ribcage |
639 | () | |
640 | () | |
641 | ()) | |
642 | #(ribcage | |
643 | #(args | |
644 | req | |
645 | opt | |
646 | rkey) | |
647 | #((top) | |
648 | (top) | |
649 | (top) | |
650 | (top)) | |
fb6e61ca AW |
651 | #("i1043" |
652 | "i1044" | |
653 | "i1045" | |
654 | "i1046")) | |
c89222f8 AW |
655 | #(ribcage |
656 | (check rest | |
657 | key | |
658 | opt | |
659 | req) | |
660 | ((top) | |
661 | (top) | |
662 | (top) | |
663 | (top) | |
664 | (top)) | |
fb6e61ca AW |
665 | ("i1010" |
666 | "i1008" | |
667 | "i1006" | |
668 | "i1004" | |
669 | "i1002")) | |
c89222f8 AW |
670 | #(ribcage |
671 | #(orig-args) | |
672 | #((top)) | |
fb6e61ca | 673 | #("i1001")) |
c89222f8 AW |
674 | #(ribcage |
675 | (lambda-var-list | |
676 | gen-var | |
677 | strip | |
678 | chi-lambda-case | |
679 | lambda*-formals | |
680 | chi-simple-lambda | |
681 | lambda-formals | |
682 | ellipsis? | |
683 | chi-void | |
684 | eval-local-transformer | |
685 | chi-local-syntax | |
686 | chi-body | |
687 | chi-macro | |
688 | chi-application | |
689 | chi-expr | |
690 | chi | |
691 | chi-top | |
692 | syntax-type | |
693 | chi-when-list | |
694 | chi-install-global | |
695 | chi-top-sequence | |
696 | chi-sequence | |
697 | source-wrap | |
698 | wrap | |
699 | bound-id-member? | |
700 | distinct-bound-ids? | |
701 | valid-bound-ids? | |
702 | bound-id=? | |
703 | free-id=? | |
704 | id-var-name | |
705 | same-marks? | |
706 | join-marks | |
707 | join-wraps | |
708 | smart-append | |
709 | make-binding-wrap | |
710 | extend-ribcage! | |
711 | make-empty-ribcage | |
712 | new-mark | |
713 | anti-mark | |
714 | the-anti-mark | |
715 | top-marked? | |
716 | top-wrap | |
717 | empty-wrap | |
718 | set-ribcage-labels! | |
719 | set-ribcage-marks! | |
720 | set-ribcage-symnames! | |
721 | ribcage-labels | |
722 | ribcage-marks | |
723 | ribcage-symnames | |
724 | ribcage? | |
725 | make-ribcage | |
726 | gen-labels | |
727 | gen-label | |
728 | make-rename | |
729 | rename-marks | |
730 | rename-new | |
731 | rename-old | |
732 | subst-rename? | |
733 | wrap-subst | |
734 | wrap-marks | |
735 | make-wrap | |
736 | id-sym-name&marks | |
737 | id-sym-name | |
738 | id? | |
739 | nonsymbol-id? | |
740 | global-extend | |
741 | lookup | |
742 | macros-only-env | |
743 | extend-var-env | |
744 | extend-env | |
745 | null-env | |
746 | binding-value | |
747 | binding-type | |
748 | make-binding | |
749 | arg-check | |
750 | source-annotation | |
751 | no-source | |
752 | set-syntax-object-module! | |
753 | set-syntax-object-wrap! | |
754 | set-syntax-object-expression! | |
755 | syntax-object-module | |
756 | syntax-object-wrap | |
757 | syntax-object-expression | |
758 | syntax-object? | |
759 | make-syntax-object | |
760 | build-lexical-var | |
761 | build-letrec | |
762 | build-named-let | |
763 | build-let | |
764 | build-sequence | |
765 | build-data | |
766 | build-primref | |
767 | build-lambda-case | |
768 | build-case-lambda | |
769 | build-simple-lambda | |
770 | build-global-definition | |
771 | maybe-name-value! | |
772 | build-global-assignment | |
773 | build-global-reference | |
774 | analyze-variable | |
775 | build-lexical-assignment | |
776 | build-lexical-reference | |
6360c1d4 | 777 | build-dynlet |
c89222f8 AW |
778 | build-conditional |
779 | build-application | |
780 | build-void | |
781 | decorate-source | |
782 | get-global-definition-hook | |
783 | put-global-definition-hook | |
784 | gensym-hook | |
785 | local-eval-hook | |
786 | top-level-eval-hook | |
787 | fx< | |
788 | fx= | |
789 | fx- | |
790 | fx+ | |
22cf27c8 AW |
791 | set-lambda-meta! |
792 | lambda-meta | |
793 | lambda? | |
3d10018e AW |
794 | make-dynlet |
795 | make-letrec | |
796 | make-let | |
797 | make-lambda-case | |
798 | make-lambda | |
799 | make-sequence | |
800 | make-application | |
801 | make-conditional | |
802 | make-toplevel-define | |
803 | make-toplevel-set | |
804 | make-toplevel-ref | |
805 | make-module-set | |
806 | make-module-ref | |
807 | make-lexical-set | |
808 | make-lexical-ref | |
809 | make-primitive-ref | |
810 | make-const | |
131ae7b4 | 811 | make-void) |
c89222f8 AW |
812 | ((top) |
813 | (top) | |
814 | (top) | |
815 | (top) | |
816 | (top) | |
817 | (top) | |
818 | (top) | |
819 | (top) | |
820 | (top) | |
821 | (top) | |
822 | (top) | |
823 | (top) | |
824 | (top) | |
825 | (top) | |
826 | (top) | |
827 | (top) | |
828 | (top) | |
829 | (top) | |
830 | (top) | |
831 | (top) | |
832 | (top) | |
833 | (top) | |
834 | (top) | |
835 | (top) | |
836 | (top) | |
837 | (top) | |
838 | (top) | |
839 | (top) | |
840 | (top) | |
841 | (top) | |
842 | (top) | |
843 | (top) | |
844 | (top) | |
845 | (top) | |
846 | (top) | |
847 | (top) | |
848 | (top) | |
849 | (top) | |
850 | (top) | |
851 | (top) | |
852 | (top) | |
853 | (top) | |
854 | (top) | |
855 | (top) | |
856 | (top) | |
857 | (top) | |
858 | (top) | |
859 | (top) | |
860 | (top) | |
861 | (top) | |
862 | (top) | |
863 | (top) | |
864 | (top) | |
865 | (top) | |
866 | (top) | |
867 | (top) | |
868 | (top) | |
869 | (top) | |
870 | (top) | |
871 | (top) | |
872 | (top) | |
873 | (top) | |
874 | (top) | |
875 | (top) | |
876 | (top) | |
877 | (top) | |
878 | (top) | |
879 | (top) | |
880 | (top) | |
881 | (top) | |
882 | (top) | |
883 | (top) | |
884 | (top) | |
885 | (top) | |
886 | (top) | |
887 | (top) | |
888 | (top) | |
889 | (top) | |
890 | (top) | |
891 | (top) | |
892 | (top) | |
893 | (top) | |
894 | (top) | |
895 | (top) | |
896 | (top) | |
897 | (top) | |
898 | (top) | |
899 | (top) | |
900 | (top) | |
901 | (top) | |
902 | (top) | |
903 | (top) | |
904 | (top) | |
905 | (top) | |
906 | (top) | |
907 | (top) | |
908 | (top) | |
909 | (top) | |
910 | (top) | |
911 | (top) | |
912 | (top) | |
913 | (top) | |
914 | (top) | |
915 | (top) | |
916 | (top) | |
917 | (top) | |
918 | (top) | |
919 | (top) | |
920 | (top) | |
921 | (top) | |
922 | (top) | |
923 | (top) | |
924 | (top) | |
925 | (top) | |
926 | (top) | |
927 | (top) | |
3d10018e AW |
928 | (top) |
929 | (top) | |
930 | (top) | |
931 | (top) | |
932 | (top) | |
933 | (top) | |
934 | (top) | |
935 | (top) | |
936 | (top) | |
937 | (top) | |
938 | (top) | |
939 | (top) | |
940 | (top) | |
941 | (top) | |
942 | (top) | |
943 | (top) | |
944 | (top) | |
22cf27c8 AW |
945 | (top) |
946 | (top) | |
947 | (top) | |
c89222f8 | 948 | (top)) |
fb6e61ca AW |
949 | ("i496" |
950 | "i494" | |
951 | "i492" | |
952 | "i490" | |
953 | "i488" | |
954 | "i486" | |
22cf27c8 AW |
955 | "i484" |
956 | "i482" | |
957 | "i480" | |
958 | "i478" | |
959 | "i476" | |
960 | "i474" | |
961 | "i472" | |
962 | "i470" | |
963 | "i468" | |
964 | "i466" | |
965 | "i464" | |
966 | "i462" | |
967 | "i460" | |
968 | "i458" | |
969 | "i456" | |
970 | "i454" | |
971 | "i452" | |
972 | "i450" | |
973 | "i448" | |
974 | "i446" | |
975 | "i444" | |
976 | "i442" | |
977 | "i440" | |
978 | "i438" | |
979 | "i436" | |
980 | "i434" | |
981 | "i432" | |
982 | "i430" | |
983 | "i428" | |
984 | "i426" | |
fb6e61ca | 985 | "i425" |
22cf27c8 AW |
986 | "i424" |
987 | "i422" | |
fb6e61ca | 988 | "i421" |
22cf27c8 | 989 | "i420" |
fb6e61ca | 990 | "i419" |
22cf27c8 AW |
991 | "i418" |
992 | "i416" | |
22cf27c8 AW |
993 | "i414" |
994 | "i412" | |
22cf27c8 | 995 | "i410" |
22cf27c8 AW |
996 | "i408" |
997 | "i406" | |
998 | "i404" | |
999 | "i402" | |
fb6e61ca AW |
1000 | "i399" |
1001 | "i397" | |
22cf27c8 | 1002 | "i396" |
fb6e61ca | 1003 | "i395" |
22cf27c8 | 1004 | "i394" |
fb6e61ca | 1005 | "i393" |
22cf27c8 | 1006 | "i392" |
fb6e61ca AW |
1007 | "i390" |
1008 | "i388" | |
22cf27c8 | 1009 | "i386" |
22cf27c8 | 1010 | "i384" |
131ae7b4 | 1011 | "i383" |
fb6e61ca AW |
1012 | "i381" |
1013 | "i379" | |
1014 | "i377" | |
1015 | "i375" | |
131ae7b4 AW |
1016 | "i373" |
1017 | "i371" | |
1018 | "i369" | |
fb6e61ca AW |
1019 | "i368" |
1020 | "i366" | |
1021 | "i364" | |
131ae7b4 | 1022 | "i363" |
fb6e61ca AW |
1023 | "i362" |
1024 | "i360" | |
131ae7b4 | 1025 | "i359" |
fb6e61ca AW |
1026 | "i357" |
1027 | "i355" | |
131ae7b4 | 1028 | "i353" |
fb6e61ca | 1029 | "i351" |
131ae7b4 AW |
1030 | "i349" |
1031 | "i347" | |
131ae7b4 | 1032 | "i345" |
131ae7b4 AW |
1033 | "i343" |
1034 | "i341" | |
1035 | "i339" | |
1036 | "i337" | |
1037 | "i335" | |
1038 | "i333" | |
1039 | "i331" | |
1040 | "i329" | |
1041 | "i327" | |
22cf27c8 AW |
1042 | "i325" |
1043 | "i323" | |
131ae7b4 | 1044 | "i321" |
131ae7b4 | 1045 | "i319" |
131ae7b4 AW |
1046 | "i317" |
1047 | "i315" | |
1048 | "i313" | |
1049 | "i311" | |
1050 | "i309" | |
22cf27c8 AW |
1051 | "i307" |
1052 | "i305" | |
1053 | "i303" | |
1054 | "i301" | |
1055 | "i299" | |
1056 | "i297" | |
1057 | "i295" | |
fb6e61ca AW |
1058 | "i294" |
1059 | "i292" | |
1060 | "i290" | |
1061 | "i288" | |
1062 | "i286" | |
131ae7b4 AW |
1063 | "i284" |
1064 | "i282" | |
1065 | "i280" | |
1066 | "i278" | |
1067 | "i276" | |
fb6e61ca AW |
1068 | "i273" |
1069 | "i271" | |
1070 | "i269" | |
1071 | "i267" | |
1072 | "i265" | |
22cf27c8 AW |
1073 | "i263" |
1074 | "i261" | |
1075 | "i259" | |
1076 | "i257" | |
1077 | "i255" | |
1078 | "i253" | |
1079 | "i251" | |
1080 | "i249" | |
1081 | "i247" | |
1082 | "i245" | |
1083 | "i243" | |
1084 | "i241" | |
fb6e61ca | 1085 | "i239")) |
c89222f8 AW |
1086 | #(ribcage |
1087 | (define-structure | |
22cf27c8 | 1088 | define-expansion-accessors |
3d10018e | 1089 | define-expansion-constructors |
c89222f8 AW |
1090 | and-map*) |
1091 | ((top) | |
22cf27c8 | 1092 | (top) |
3d10018e | 1093 | (top) |
c89222f8 | 1094 | (top)) |
fb6e61ca AW |
1095 | ("i33" |
1096 | "i32" | |
1097 | "i31" | |
1098 | "i29"))) | |
c89222f8 AW |
1099 | (hygiene |
1100 | guile))))) | |
fb6e61ca AW |
1101 | #{rkey\ 1042}#))) |
1102 | #{tmp\ 1059}#)) | |
c89222f8 AW |
1103 | (symbol->keyword |
1104 | (syntax->datum | |
fb6e61ca AW |
1105 | #{a\ 1056}#)))) |
1106 | #{tmp\ 1049}#) | |
1107 | ((lambda (#{tmp\ 1062}#) | |
1108 | (if (if #{tmp\ 1062}# | |
1109 | (apply (lambda (#{a\ 1066}# | |
1110 | #{init\ 1067}# | |
1111 | #{b\ 1068}#) | |
1112 | (#{id?\ 382}# | |
1113 | #{a\ 1066}#)) | |
1114 | #{tmp\ 1062}#) | |
c89222f8 | 1115 | #f) |
fb6e61ca AW |
1116 | (apply (lambda (#{a\ 1072}# |
1117 | #{init\ 1073}# | |
1118 | #{b\ 1074}#) | |
1119 | ((lambda (#{tmp\ 1076}#) | |
1120 | ((lambda (#{k\ 1078}#) | |
1121 | (#{key\ 1007}# | |
1122 | #{b\ 1074}# | |
1123 | #{req\ 1040}# | |
1124 | #{opt\ 1041}# | |
1125 | (cons (list #{k\ 1078}# | |
1126 | #{a\ 1072}# | |
1127 | #{init\ 1073}#) | |
1128 | #{rkey\ 1042}#))) | |
1129 | #{tmp\ 1076}#)) | |
c89222f8 AW |
1130 | (symbol->keyword |
1131 | (syntax->datum | |
fb6e61ca AW |
1132 | #{a\ 1072}#)))) |
1133 | #{tmp\ 1062}#) | |
1134 | ((lambda (#{tmp\ 1079}#) | |
1135 | (if (if #{tmp\ 1079}# | |
1136 | (apply (lambda (#{a\ 1084}# | |
1137 | #{init\ 1085}# | |
1138 | #{k\ 1086}# | |
1139 | #{b\ 1087}#) | |
1140 | (if (#{id?\ 382}# | |
1141 | #{a\ 1084}#) | |
c89222f8 AW |
1142 | (keyword? |
1143 | (syntax->datum | |
fb6e61ca | 1144 | #{k\ 1086}#)) |
c89222f8 | 1145 | #f)) |
fb6e61ca | 1146 | #{tmp\ 1079}#) |
c89222f8 | 1147 | #f) |
fb6e61ca AW |
1148 | (apply (lambda (#{a\ 1094}# |
1149 | #{init\ 1095}# | |
1150 | #{k\ 1096}# | |
1151 | #{b\ 1097}#) | |
1152 | (#{key\ 1007}# | |
1153 | #{b\ 1097}# | |
1154 | #{req\ 1040}# | |
1155 | #{opt\ 1041}# | |
1156 | (cons (list #{k\ 1096}# | |
1157 | #{a\ 1094}# | |
1158 | #{init\ 1095}#) | |
1159 | #{rkey\ 1042}#))) | |
1160 | #{tmp\ 1079}#) | |
1161 | ((lambda (#{tmp\ 1098}#) | |
1162 | (if (if #{tmp\ 1098}# | |
1163 | (apply (lambda (#{aok\ 1100}#) | |
c89222f8 | 1164 | (eq? (syntax->datum |
fb6e61ca | 1165 | #{aok\ 1100}#) |
c89222f8 | 1166 | #:allow-other-keys)) |
fb6e61ca | 1167 | #{tmp\ 1098}#) |
c89222f8 | 1168 | #f) |
fb6e61ca AW |
1169 | (apply (lambda (#{aok\ 1102}#) |
1170 | (#{check\ 1011}# | |
1171 | #{req\ 1040}# | |
1172 | #{opt\ 1041}# | |
c89222f8 AW |
1173 | #f |
1174 | (cons #t | |
1175 | (reverse | |
fb6e61ca AW |
1176 | #{rkey\ 1042}#)))) |
1177 | #{tmp\ 1098}#) | |
1178 | ((lambda (#{tmp\ 1103}#) | |
1179 | (if (if #{tmp\ 1103}# | |
1180 | (apply (lambda (#{aok\ 1107}# | |
1181 | #{a\ 1108}# | |
1182 | #{b\ 1109}#) | |
c89222f8 | 1183 | (if (eq? (syntax->datum |
fb6e61ca | 1184 | #{aok\ 1107}#) |
c89222f8 AW |
1185 | #:allow-other-keys) |
1186 | (eq? (syntax->datum | |
fb6e61ca | 1187 | #{a\ 1108}#) |
1e2a8edb | 1188 | #:rest) |
c89222f8 | 1189 | #f)) |
fb6e61ca | 1190 | #{tmp\ 1103}#) |
c89222f8 | 1191 | #f) |
fb6e61ca AW |
1192 | (apply (lambda (#{aok\ 1115}# |
1193 | #{a\ 1116}# | |
1194 | #{b\ 1117}#) | |
1195 | (#{rest\ 1009}# | |
1196 | #{b\ 1117}# | |
1197 | #{req\ 1040}# | |
1198 | #{opt\ 1041}# | |
c89222f8 AW |
1199 | (cons #t |
1200 | (reverse | |
fb6e61ca AW |
1201 | #{rkey\ 1042}#)))) |
1202 | #{tmp\ 1103}#) | |
1203 | ((lambda (#{tmp\ 1118}#) | |
1204 | (if (if #{tmp\ 1118}# | |
1205 | (apply (lambda (#{aok\ 1121}# | |
1206 | #{r\ 1122}#) | |
c89222f8 | 1207 | (if (eq? (syntax->datum |
fb6e61ca | 1208 | #{aok\ 1121}#) |
c89222f8 | 1209 | #:allow-other-keys) |
fb6e61ca AW |
1210 | (#{id?\ 382}# |
1211 | #{r\ 1122}#) | |
c89222f8 | 1212 | #f)) |
fb6e61ca | 1213 | #{tmp\ 1118}#) |
c89222f8 | 1214 | #f) |
fb6e61ca AW |
1215 | (apply (lambda (#{aok\ 1127}# |
1216 | #{r\ 1128}#) | |
1217 | (#{rest\ 1009}# | |
1218 | #{r\ 1128}# | |
1219 | #{req\ 1040}# | |
1220 | #{opt\ 1041}# | |
c89222f8 AW |
1221 | (cons #t |
1222 | (reverse | |
fb6e61ca AW |
1223 | #{rkey\ 1042}#)))) |
1224 | #{tmp\ 1118}#) | |
1225 | ((lambda (#{tmp\ 1129}#) | |
1226 | (if (if #{tmp\ 1129}# | |
1227 | (apply (lambda (#{a\ 1132}# | |
1228 | #{b\ 1133}#) | |
1e2a8edb | 1229 | (eq? (syntax->datum |
fb6e61ca | 1230 | #{a\ 1132}#) |
1e2a8edb | 1231 | #:rest)) |
fb6e61ca | 1232 | #{tmp\ 1129}#) |
c89222f8 | 1233 | #f) |
fb6e61ca AW |
1234 | (apply (lambda (#{a\ 1136}# |
1235 | #{b\ 1137}#) | |
1236 | (#{rest\ 1009}# | |
1237 | #{b\ 1137}# | |
1238 | #{req\ 1040}# | |
1239 | #{opt\ 1041}# | |
1e2a8edb | 1240 | (cons #f |
c89222f8 | 1241 | (reverse |
fb6e61ca AW |
1242 | #{rkey\ 1042}#)))) |
1243 | #{tmp\ 1129}#) | |
1244 | ((lambda (#{tmp\ 1138}#) | |
1245 | (if (if #{tmp\ 1138}# | |
1246 | (apply (lambda (#{r\ 1140}#) | |
1247 | (#{id?\ 382}# | |
1248 | #{r\ 1140}#)) | |
1249 | #{tmp\ 1138}#) | |
df1cd5e5 | 1250 | #f) |
fb6e61ca AW |
1251 | (apply (lambda (#{r\ 1142}#) |
1252 | (#{rest\ 1009}# | |
1253 | #{r\ 1142}# | |
1254 | #{req\ 1040}# | |
1255 | #{opt\ 1041}# | |
c89222f8 AW |
1256 | (cons #f |
1257 | (reverse | |
fb6e61ca AW |
1258 | #{rkey\ 1042}#)))) |
1259 | #{tmp\ 1138}#) | |
1260 | ((lambda (#{else\ 1144}#) | |
1e2a8edb AW |
1261 | (syntax-violation |
1262 | 'lambda* | |
1263 | "invalid keyword argument list" | |
fb6e61ca AW |
1264 | #{orig-args\ 1000}# |
1265 | #{args\ 1039}#)) | |
1266 | #{tmp\ 1047}#))) | |
1267 | (list #{tmp\ 1047}#)))) | |
c89222f8 | 1268 | ($sc-dispatch |
fb6e61ca | 1269 | #{tmp\ 1047}# |
1e2a8edb | 1270 | '(any any))))) |
c89222f8 | 1271 | ($sc-dispatch |
fb6e61ca | 1272 | #{tmp\ 1047}# |
1e2a8edb | 1273 | '(any . |
c89222f8 AW |
1274 | any))))) |
1275 | ($sc-dispatch | |
fb6e61ca | 1276 | #{tmp\ 1047}# |
1e2a8edb | 1277 | '(any any any))))) |
c89222f8 | 1278 | ($sc-dispatch |
fb6e61ca | 1279 | #{tmp\ 1047}# |
c89222f8 AW |
1280 | '(any))))) |
1281 | ($sc-dispatch | |
fb6e61ca | 1282 | #{tmp\ 1047}# |
c89222f8 AW |
1283 | '((any any any) . any))))) |
1284 | ($sc-dispatch | |
fb6e61ca | 1285 | #{tmp\ 1047}# |
c89222f8 AW |
1286 | '((any any) . any))))) |
1287 | ($sc-dispatch | |
fb6e61ca | 1288 | #{tmp\ 1047}# |
c89222f8 | 1289 | '(any . any))))) |
fb6e61ca AW |
1290 | ($sc-dispatch #{tmp\ 1047}# (quote ())))) |
1291 | #{args\ 1039}#))) | |
1292 | (#{opt\ 1005}# | |
1293 | (lambda (#{args\ 1145}# #{req\ 1146}# #{ropt\ 1147}#) | |
1294 | ((lambda (#{tmp\ 1151}#) | |
1295 | ((lambda (#{tmp\ 1152}#) | |
1296 | (if #{tmp\ 1152}# | |
c89222f8 | 1297 | (apply (lambda () |
fb6e61ca AW |
1298 | (#{check\ 1011}# |
1299 | #{req\ 1146}# | |
1300 | (reverse #{ropt\ 1147}#) | |
c89222f8 | 1301 | #f |
1e2a8edb | 1302 | '())) |
fb6e61ca AW |
1303 | #{tmp\ 1152}#) |
1304 | ((lambda (#{tmp\ 1153}#) | |
1305 | (if (if #{tmp\ 1153}# | |
1306 | (apply (lambda (#{a\ 1156}# | |
1307 | #{b\ 1157}#) | |
1308 | (#{id?\ 382}# | |
1309 | #{a\ 1156}#)) | |
1310 | #{tmp\ 1153}#) | |
c89222f8 | 1311 | #f) |
fb6e61ca AW |
1312 | (apply (lambda (#{a\ 1160}# |
1313 | #{b\ 1161}#) | |
1314 | (#{opt\ 1005}# | |
1315 | #{b\ 1161}# | |
1316 | #{req\ 1146}# | |
1317 | (cons (cons #{a\ 1160}# | |
c89222f8 AW |
1318 | '(#(syntax-object |
1319 | #f | |
1320 | ((top) | |
1321 | #(ribcage | |
1322 | #(a b) | |
1323 | #((top) | |
1324 | (top)) | |
fb6e61ca AW |
1325 | #("i1158" |
1326 | "i1159")) | |
c89222f8 AW |
1327 | #(ribcage |
1328 | () | |
1329 | () | |
1330 | ()) | |
1331 | #(ribcage | |
1332 | #(args | |
1333 | req | |
1334 | ropt) | |
1335 | #((top) | |
1336 | (top) | |
1337 | (top)) | |
fb6e61ca AW |
1338 | #("i1148" |
1339 | "i1149" | |
1340 | "i1150")) | |
c89222f8 AW |
1341 | #(ribcage |
1342 | (check rest | |
1343 | key | |
1344 | opt | |
1345 | req) | |
1346 | ((top) | |
1347 | (top) | |
1348 | (top) | |
1349 | (top) | |
1350 | (top)) | |
fb6e61ca AW |
1351 | ("i1010" |
1352 | "i1008" | |
1353 | "i1006" | |
1354 | "i1004" | |
1355 | "i1002")) | |
c89222f8 AW |
1356 | #(ribcage |
1357 | #(orig-args) | |
1358 | #((top)) | |
fb6e61ca | 1359 | #("i1001")) |
c89222f8 AW |
1360 | #(ribcage |
1361 | (lambda-var-list | |
1362 | gen-var | |
1363 | strip | |
1364 | chi-lambda-case | |
1365 | lambda*-formals | |
1366 | chi-simple-lambda | |
1367 | lambda-formals | |
1368 | ellipsis? | |
1369 | chi-void | |
1370 | eval-local-transformer | |
1371 | chi-local-syntax | |
1372 | chi-body | |
1373 | chi-macro | |
1374 | chi-application | |
1375 | chi-expr | |
1376 | chi | |
1377 | chi-top | |
1378 | syntax-type | |
1379 | chi-when-list | |
1380 | chi-install-global | |
1381 | chi-top-sequence | |
1382 | chi-sequence | |
1383 | source-wrap | |
1384 | wrap | |
1385 | bound-id-member? | |
1386 | distinct-bound-ids? | |
1387 | valid-bound-ids? | |
1388 | bound-id=? | |
1389 | free-id=? | |
1390 | id-var-name | |
1391 | same-marks? | |
1392 | join-marks | |
1393 | join-wraps | |
1394 | smart-append | |
1395 | make-binding-wrap | |
1396 | extend-ribcage! | |
1397 | make-empty-ribcage | |
1398 | new-mark | |
1399 | anti-mark | |
1400 | the-anti-mark | |
1401 | top-marked? | |
1402 | top-wrap | |
1403 | empty-wrap | |
1404 | set-ribcage-labels! | |
1405 | set-ribcage-marks! | |
1406 | set-ribcage-symnames! | |
1407 | ribcage-labels | |
1408 | ribcage-marks | |
1409 | ribcage-symnames | |
1410 | ribcage? | |
1411 | make-ribcage | |
1412 | gen-labels | |
1413 | gen-label | |
1414 | make-rename | |
1415 | rename-marks | |
1416 | rename-new | |
1417 | rename-old | |
1418 | subst-rename? | |
1419 | wrap-subst | |
1420 | wrap-marks | |
1421 | make-wrap | |
1422 | id-sym-name&marks | |
1423 | id-sym-name | |
1424 | id? | |
1425 | nonsymbol-id? | |
1426 | global-extend | |
1427 | lookup | |
1428 | macros-only-env | |
1429 | extend-var-env | |
1430 | extend-env | |
1431 | null-env | |
1432 | binding-value | |
1433 | binding-type | |
1434 | make-binding | |
1435 | arg-check | |
1436 | source-annotation | |
1437 | no-source | |
1438 | set-syntax-object-module! | |
1439 | set-syntax-object-wrap! | |
1440 | set-syntax-object-expression! | |
1441 | syntax-object-module | |
1442 | syntax-object-wrap | |
1443 | syntax-object-expression | |
1444 | syntax-object? | |
1445 | make-syntax-object | |
1446 | build-lexical-var | |
1447 | build-letrec | |
1448 | build-named-let | |
1449 | build-let | |
1450 | build-sequence | |
1451 | build-data | |
1452 | build-primref | |
1453 | build-lambda-case | |
1454 | build-case-lambda | |
1455 | build-simple-lambda | |
1456 | build-global-definition | |
1457 | maybe-name-value! | |
1458 | build-global-assignment | |
1459 | build-global-reference | |
1460 | analyze-variable | |
1461 | build-lexical-assignment | |
1462 | build-lexical-reference | |
6360c1d4 | 1463 | build-dynlet |
c89222f8 AW |
1464 | build-conditional |
1465 | build-application | |
1466 | build-void | |
1467 | decorate-source | |
1468 | get-global-definition-hook | |
1469 | put-global-definition-hook | |
1470 | gensym-hook | |
1471 | local-eval-hook | |
1472 | top-level-eval-hook | |
1473 | fx< | |
1474 | fx= | |
1475 | fx- | |
1476 | fx+ | |
22cf27c8 AW |
1477 | set-lambda-meta! |
1478 | lambda-meta | |
1479 | lambda? | |
3d10018e AW |
1480 | make-dynlet |
1481 | make-letrec | |
1482 | make-let | |
1483 | make-lambda-case | |
1484 | make-lambda | |
1485 | make-sequence | |
1486 | make-application | |
1487 | make-conditional | |
1488 | make-toplevel-define | |
1489 | make-toplevel-set | |
1490 | make-toplevel-ref | |
1491 | make-module-set | |
1492 | make-module-ref | |
1493 | make-lexical-set | |
1494 | make-lexical-ref | |
1495 | make-primitive-ref | |
1496 | make-const | |
131ae7b4 | 1497 | make-void) |
c89222f8 AW |
1498 | ((top) |
1499 | (top) | |
1500 | (top) | |
1501 | (top) | |
1502 | (top) | |
1503 | (top) | |
1504 | (top) | |
1505 | (top) | |
1506 | (top) | |
1507 | (top) | |
1508 | (top) | |
1509 | (top) | |
1510 | (top) | |
1511 | (top) | |
1512 | (top) | |
1513 | (top) | |
1514 | (top) | |
1515 | (top) | |
1516 | (top) | |
1517 | (top) | |
1518 | (top) | |
1519 | (top) | |
1520 | (top) | |
1521 | (top) | |
1522 | (top) | |
1523 | (top) | |
1524 | (top) | |
1525 | (top) | |
1526 | (top) | |
1527 | (top) | |
1528 | (top) | |
1529 | (top) | |
1530 | (top) | |
1531 | (top) | |
1532 | (top) | |
1533 | (top) | |
1534 | (top) | |
1535 | (top) | |
1536 | (top) | |
1537 | (top) | |
1538 | (top) | |
1539 | (top) | |
1540 | (top) | |
1541 | (top) | |
1542 | (top) | |
1543 | (top) | |
1544 | (top) | |
1545 | (top) | |
1546 | (top) | |
1547 | (top) | |
1548 | (top) | |
1549 | (top) | |
1550 | (top) | |
1551 | (top) | |
1552 | (top) | |
1553 | (top) | |
1554 | (top) | |
1555 | (top) | |
1556 | (top) | |
1557 | (top) | |
1558 | (top) | |
1559 | (top) | |
1560 | (top) | |
1561 | (top) | |
1562 | (top) | |
1563 | (top) | |
1564 | (top) | |
1565 | (top) | |
1566 | (top) | |
1567 | (top) | |
1568 | (top) | |
1569 | (top) | |
1570 | (top) | |
1571 | (top) | |
1572 | (top) | |
1573 | (top) | |
1574 | (top) | |
1575 | (top) | |
1576 | (top) | |
1577 | (top) | |
1578 | (top) | |
1579 | (top) | |
1580 | (top) | |
1581 | (top) | |
1582 | (top) | |
1583 | (top) | |
1584 | (top) | |
1585 | (top) | |
1586 | (top) | |
1587 | (top) | |
1588 | (top) | |
1589 | (top) | |
1590 | (top) | |
1591 | (top) | |
1592 | (top) | |
1593 | (top) | |
1594 | (top) | |
1595 | (top) | |
1596 | (top) | |
1597 | (top) | |
1598 | (top) | |
1599 | (top) | |
1600 | (top) | |
1601 | (top) | |
1602 | (top) | |
1603 | (top) | |
1604 | (top) | |
1605 | (top) | |
1606 | (top) | |
1607 | (top) | |
1608 | (top) | |
1609 | (top) | |
1610 | (top) | |
1611 | (top) | |
1612 | (top) | |
1613 | (top) | |
3d10018e AW |
1614 | (top) |
1615 | (top) | |
1616 | (top) | |
1617 | (top) | |
1618 | (top) | |
1619 | (top) | |
1620 | (top) | |
1621 | (top) | |
1622 | (top) | |
1623 | (top) | |
1624 | (top) | |
1625 | (top) | |
1626 | (top) | |
1627 | (top) | |
1628 | (top) | |
1629 | (top) | |
1630 | (top) | |
22cf27c8 AW |
1631 | (top) |
1632 | (top) | |
1633 | (top) | |
c89222f8 | 1634 | (top)) |
fb6e61ca AW |
1635 | ("i496" |
1636 | "i494" | |
1637 | "i492" | |
1638 | "i490" | |
1639 | "i488" | |
1640 | "i486" | |
22cf27c8 AW |
1641 | "i484" |
1642 | "i482" | |
1643 | "i480" | |
1644 | "i478" | |
1645 | "i476" | |
1646 | "i474" | |
1647 | "i472" | |
1648 | "i470" | |
1649 | "i468" | |
1650 | "i466" | |
1651 | "i464" | |
1652 | "i462" | |
1653 | "i460" | |
1654 | "i458" | |
1655 | "i456" | |
1656 | "i454" | |
1657 | "i452" | |
1658 | "i450" | |
1659 | "i448" | |
1660 | "i446" | |
1661 | "i444" | |
1662 | "i442" | |
1663 | "i440" | |
1664 | "i438" | |
1665 | "i436" | |
1666 | "i434" | |
1667 | "i432" | |
1668 | "i430" | |
1669 | "i428" | |
1670 | "i426" | |
fb6e61ca | 1671 | "i425" |
22cf27c8 AW |
1672 | "i424" |
1673 | "i422" | |
fb6e61ca | 1674 | "i421" |
22cf27c8 | 1675 | "i420" |
fb6e61ca | 1676 | "i419" |
22cf27c8 AW |
1677 | "i418" |
1678 | "i416" | |
22cf27c8 AW |
1679 | "i414" |
1680 | "i412" | |
22cf27c8 | 1681 | "i410" |
22cf27c8 AW |
1682 | "i408" |
1683 | "i406" | |
1684 | "i404" | |
1685 | "i402" | |
fb6e61ca AW |
1686 | "i399" |
1687 | "i397" | |
22cf27c8 | 1688 | "i396" |
fb6e61ca | 1689 | "i395" |
22cf27c8 | 1690 | "i394" |
fb6e61ca | 1691 | "i393" |
22cf27c8 | 1692 | "i392" |
fb6e61ca AW |
1693 | "i390" |
1694 | "i388" | |
22cf27c8 | 1695 | "i386" |
22cf27c8 | 1696 | "i384" |
131ae7b4 | 1697 | "i383" |
fb6e61ca AW |
1698 | "i381" |
1699 | "i379" | |
1700 | "i377" | |
1701 | "i375" | |
131ae7b4 AW |
1702 | "i373" |
1703 | "i371" | |
1704 | "i369" | |
fb6e61ca AW |
1705 | "i368" |
1706 | "i366" | |
1707 | "i364" | |
131ae7b4 | 1708 | "i363" |
fb6e61ca AW |
1709 | "i362" |
1710 | "i360" | |
131ae7b4 | 1711 | "i359" |
fb6e61ca AW |
1712 | "i357" |
1713 | "i355" | |
131ae7b4 | 1714 | "i353" |
fb6e61ca | 1715 | "i351" |
131ae7b4 AW |
1716 | "i349" |
1717 | "i347" | |
131ae7b4 | 1718 | "i345" |
131ae7b4 AW |
1719 | "i343" |
1720 | "i341" | |
1721 | "i339" | |
1722 | "i337" | |
1723 | "i335" | |
1724 | "i333" | |
1725 | "i331" | |
1726 | "i329" | |
1727 | "i327" | |
22cf27c8 AW |
1728 | "i325" |
1729 | "i323" | |
131ae7b4 | 1730 | "i321" |
131ae7b4 | 1731 | "i319" |
131ae7b4 AW |
1732 | "i317" |
1733 | "i315" | |
1734 | "i313" | |
1735 | "i311" | |
1736 | "i309" | |
22cf27c8 AW |
1737 | "i307" |
1738 | "i305" | |
1739 | "i303" | |
1740 | "i301" | |
1741 | "i299" | |
1742 | "i297" | |
1743 | "i295" | |
fb6e61ca AW |
1744 | "i294" |
1745 | "i292" | |
1746 | "i290" | |
1747 | "i288" | |
1748 | "i286" | |
131ae7b4 AW |
1749 | "i284" |
1750 | "i282" | |
1751 | "i280" | |
1752 | "i278" | |
1753 | "i276" | |
fb6e61ca AW |
1754 | "i273" |
1755 | "i271" | |
1756 | "i269" | |
1757 | "i267" | |
1758 | "i265" | |
22cf27c8 AW |
1759 | "i263" |
1760 | "i261" | |
1761 | "i259" | |
1762 | "i257" | |
1763 | "i255" | |
1764 | "i253" | |
1765 | "i251" | |
1766 | "i249" | |
1767 | "i247" | |
1768 | "i245" | |
1769 | "i243" | |
1770 | "i241" | |
fb6e61ca | 1771 | "i239")) |
c89222f8 AW |
1772 | #(ribcage |
1773 | (define-structure | |
22cf27c8 | 1774 | define-expansion-accessors |
3d10018e | 1775 | define-expansion-constructors |
c89222f8 AW |
1776 | and-map*) |
1777 | ((top) | |
22cf27c8 | 1778 | (top) |
3d10018e | 1779 | (top) |
c89222f8 | 1780 | (top)) |
fb6e61ca AW |
1781 | ("i33" |
1782 | "i32" | |
1783 | "i31" | |
1784 | "i29"))) | |
c89222f8 AW |
1785 | (hygiene |
1786 | guile)))) | |
fb6e61ca AW |
1787 | #{ropt\ 1147}#))) |
1788 | #{tmp\ 1153}#) | |
1789 | ((lambda (#{tmp\ 1162}#) | |
1790 | (if (if #{tmp\ 1162}# | |
1791 | (apply (lambda (#{a\ 1166}# | |
1792 | #{init\ 1167}# | |
1793 | #{b\ 1168}#) | |
1794 | (#{id?\ 382}# | |
1795 | #{a\ 1166}#)) | |
1796 | #{tmp\ 1162}#) | |
c89222f8 | 1797 | #f) |
fb6e61ca AW |
1798 | (apply (lambda (#{a\ 1172}# |
1799 | #{init\ 1173}# | |
1800 | #{b\ 1174}#) | |
1801 | (#{opt\ 1005}# | |
1802 | #{b\ 1174}# | |
1803 | #{req\ 1146}# | |
1804 | (cons (list #{a\ 1172}# | |
1805 | #{init\ 1173}#) | |
1806 | #{ropt\ 1147}#))) | |
1807 | #{tmp\ 1162}#) | |
1808 | ((lambda (#{tmp\ 1175}#) | |
1809 | (if (if #{tmp\ 1175}# | |
1810 | (apply (lambda (#{a\ 1178}# | |
1811 | #{b\ 1179}#) | |
c89222f8 | 1812 | (eq? (syntax->datum |
fb6e61ca | 1813 | #{a\ 1178}#) |
c89222f8 | 1814 | #:key)) |
fb6e61ca | 1815 | #{tmp\ 1175}#) |
c89222f8 | 1816 | #f) |
fb6e61ca AW |
1817 | (apply (lambda (#{a\ 1182}# |
1818 | #{b\ 1183}#) | |
1819 | (#{key\ 1007}# | |
1820 | #{b\ 1183}# | |
1821 | #{req\ 1146}# | |
c89222f8 | 1822 | (reverse |
fb6e61ca | 1823 | #{ropt\ 1147}#) |
c89222f8 | 1824 | '())) |
fb6e61ca AW |
1825 | #{tmp\ 1175}#) |
1826 | ((lambda (#{tmp\ 1184}#) | |
1827 | (if (if #{tmp\ 1184}# | |
1828 | (apply (lambda (#{a\ 1187}# | |
1829 | #{b\ 1188}#) | |
c89222f8 | 1830 | (eq? (syntax->datum |
fb6e61ca | 1831 | #{a\ 1187}#) |
1e2a8edb | 1832 | #:rest)) |
fb6e61ca | 1833 | #{tmp\ 1184}#) |
c89222f8 | 1834 | #f) |
fb6e61ca AW |
1835 | (apply (lambda (#{a\ 1191}# |
1836 | #{b\ 1192}#) | |
1837 | (#{rest\ 1009}# | |
1838 | #{b\ 1192}# | |
1839 | #{req\ 1146}# | |
c89222f8 | 1840 | (reverse |
fb6e61ca | 1841 | #{ropt\ 1147}#) |
c89222f8 | 1842 | '())) |
fb6e61ca AW |
1843 | #{tmp\ 1184}#) |
1844 | ((lambda (#{tmp\ 1193}#) | |
1845 | (if (if #{tmp\ 1193}# | |
1846 | (apply (lambda (#{r\ 1195}#) | |
1847 | (#{id?\ 382}# | |
1848 | #{r\ 1195}#)) | |
1849 | #{tmp\ 1193}#) | |
c89222f8 | 1850 | #f) |
fb6e61ca AW |
1851 | (apply (lambda (#{r\ 1197}#) |
1852 | (#{rest\ 1009}# | |
1853 | #{r\ 1197}# | |
1854 | #{req\ 1146}# | |
c89222f8 | 1855 | (reverse |
fb6e61ca | 1856 | #{ropt\ 1147}#) |
1e2a8edb | 1857 | '())) |
fb6e61ca AW |
1858 | #{tmp\ 1193}#) |
1859 | ((lambda (#{else\ 1199}#) | |
1e2a8edb AW |
1860 | (syntax-violation |
1861 | 'lambda* | |
1862 | "invalid optional argument list" | |
fb6e61ca AW |
1863 | #{orig-args\ 1000}# |
1864 | #{args\ 1145}#)) | |
1865 | #{tmp\ 1151}#))) | |
1866 | (list #{tmp\ 1151}#)))) | |
c89222f8 | 1867 | ($sc-dispatch |
fb6e61ca | 1868 | #{tmp\ 1151}# |
1e2a8edb | 1869 | '(any any))))) |
c89222f8 | 1870 | ($sc-dispatch |
fb6e61ca | 1871 | #{tmp\ 1151}# |
c89222f8 | 1872 | '(any . any))))) |
df1cd5e5 | 1873 | ($sc-dispatch |
fb6e61ca | 1874 | #{tmp\ 1151}# |
c89222f8 | 1875 | '((any any) . any))))) |
df1cd5e5 | 1876 | ($sc-dispatch |
fb6e61ca | 1877 | #{tmp\ 1151}# |
df1cd5e5 | 1878 | '(any . any))))) |
fb6e61ca AW |
1879 | ($sc-dispatch #{tmp\ 1151}# (quote ())))) |
1880 | #{args\ 1145}#))) | |
1881 | (#{req\ 1003}# | |
1882 | (lambda (#{args\ 1200}# #{rreq\ 1201}#) | |
1883 | ((lambda (#{tmp\ 1204}#) | |
1884 | ((lambda (#{tmp\ 1205}#) | |
1885 | (if #{tmp\ 1205}# | |
c89222f8 | 1886 | (apply (lambda () |
fb6e61ca AW |
1887 | (#{check\ 1011}# |
1888 | (reverse #{rreq\ 1201}#) | |
c89222f8 | 1889 | '() |
df1cd5e5 | 1890 | #f |
1e2a8edb | 1891 | '())) |
fb6e61ca AW |
1892 | #{tmp\ 1205}#) |
1893 | ((lambda (#{tmp\ 1206}#) | |
1894 | (if (if #{tmp\ 1206}# | |
1895 | (apply (lambda (#{a\ 1209}# | |
1896 | #{b\ 1210}#) | |
1897 | (#{id?\ 382}# | |
1898 | #{a\ 1209}#)) | |
1899 | #{tmp\ 1206}#) | |
c89222f8 | 1900 | #f) |
fb6e61ca AW |
1901 | (apply (lambda (#{a\ 1213}# |
1902 | #{b\ 1214}#) | |
1903 | (#{req\ 1003}# | |
1904 | #{b\ 1214}# | |
1905 | (cons #{a\ 1213}# | |
1906 | #{rreq\ 1201}#))) | |
1907 | #{tmp\ 1206}#) | |
1908 | ((lambda (#{tmp\ 1215}#) | |
1909 | (if (if #{tmp\ 1215}# | |
1910 | (apply (lambda (#{a\ 1218}# | |
1911 | #{b\ 1219}#) | |
c89222f8 | 1912 | (eq? (syntax->datum |
fb6e61ca | 1913 | #{a\ 1218}#) |
c89222f8 | 1914 | #:optional)) |
fb6e61ca | 1915 | #{tmp\ 1215}#) |
c89222f8 | 1916 | #f) |
fb6e61ca AW |
1917 | (apply (lambda (#{a\ 1222}# |
1918 | #{b\ 1223}#) | |
1919 | (#{opt\ 1005}# | |
1920 | #{b\ 1223}# | |
c89222f8 | 1921 | (reverse |
fb6e61ca | 1922 | #{rreq\ 1201}#) |
c89222f8 | 1923 | '())) |
fb6e61ca AW |
1924 | #{tmp\ 1215}#) |
1925 | ((lambda (#{tmp\ 1224}#) | |
1926 | (if (if #{tmp\ 1224}# | |
1927 | (apply (lambda (#{a\ 1227}# | |
1928 | #{b\ 1228}#) | |
c89222f8 | 1929 | (eq? (syntax->datum |
fb6e61ca | 1930 | #{a\ 1227}#) |
c89222f8 | 1931 | #:key)) |
fb6e61ca | 1932 | #{tmp\ 1224}#) |
c89222f8 | 1933 | #f) |
fb6e61ca AW |
1934 | (apply (lambda (#{a\ 1231}# |
1935 | #{b\ 1232}#) | |
1936 | (#{key\ 1007}# | |
1937 | #{b\ 1232}# | |
c89222f8 | 1938 | (reverse |
fb6e61ca | 1939 | #{rreq\ 1201}#) |
c89222f8 AW |
1940 | '() |
1941 | '())) | |
fb6e61ca AW |
1942 | #{tmp\ 1224}#) |
1943 | ((lambda (#{tmp\ 1233}#) | |
1944 | (if (if #{tmp\ 1233}# | |
1945 | (apply (lambda (#{a\ 1236}# | |
1946 | #{b\ 1237}#) | |
c89222f8 | 1947 | (eq? (syntax->datum |
fb6e61ca | 1948 | #{a\ 1236}#) |
1e2a8edb | 1949 | #:rest)) |
fb6e61ca | 1950 | #{tmp\ 1233}#) |
c89222f8 | 1951 | #f) |
fb6e61ca AW |
1952 | (apply (lambda (#{a\ 1240}# |
1953 | #{b\ 1241}#) | |
1954 | (#{rest\ 1009}# | |
1955 | #{b\ 1241}# | |
c89222f8 | 1956 | (reverse |
fb6e61ca | 1957 | #{rreq\ 1201}#) |
c89222f8 AW |
1958 | '() |
1959 | '())) | |
fb6e61ca AW |
1960 | #{tmp\ 1233}#) |
1961 | ((lambda (#{tmp\ 1242}#) | |
1962 | (if (if #{tmp\ 1242}# | |
1963 | (apply (lambda (#{r\ 1244}#) | |
1964 | (#{id?\ 382}# | |
1965 | #{r\ 1244}#)) | |
1966 | #{tmp\ 1242}#) | |
c89222f8 | 1967 | #f) |
fb6e61ca AW |
1968 | (apply (lambda (#{r\ 1246}#) |
1969 | (#{rest\ 1009}# | |
1970 | #{r\ 1246}# | |
c89222f8 | 1971 | (reverse |
fb6e61ca | 1972 | #{rreq\ 1201}#) |
c89222f8 | 1973 | '() |
1e2a8edb | 1974 | '())) |
fb6e61ca AW |
1975 | #{tmp\ 1242}#) |
1976 | ((lambda (#{else\ 1248}#) | |
1e2a8edb AW |
1977 | (syntax-violation |
1978 | 'lambda* | |
1979 | "invalid argument list" | |
fb6e61ca AW |
1980 | #{orig-args\ 1000}# |
1981 | #{args\ 1200}#)) | |
1982 | #{tmp\ 1204}#))) | |
1983 | (list #{tmp\ 1204}#)))) | |
c89222f8 | 1984 | ($sc-dispatch |
fb6e61ca | 1985 | #{tmp\ 1204}# |
1e2a8edb | 1986 | '(any any))))) |
c89222f8 | 1987 | ($sc-dispatch |
fb6e61ca | 1988 | #{tmp\ 1204}# |
c89222f8 AW |
1989 | '(any . any))))) |
1990 | ($sc-dispatch | |
fb6e61ca | 1991 | #{tmp\ 1204}# |
c89222f8 AW |
1992 | '(any . any))))) |
1993 | ($sc-dispatch | |
fb6e61ca | 1994 | #{tmp\ 1204}# |
c89222f8 | 1995 | '(any . any))))) |
fb6e61ca AW |
1996 | ($sc-dispatch #{tmp\ 1204}# (quote ())))) |
1997 | #{args\ 1200}#)))) | |
1998 | (#{req\ 1003}# #{orig-args\ 1000}# (quote ()))))) | |
1999 | (#{chi-simple-lambda\ 487}# | |
2000 | (lambda (#{e\ 1249}# | |
2001 | #{r\ 1250}# | |
2002 | #{w\ 1251}# | |
2003 | #{s\ 1252}# | |
2004 | #{mod\ 1253}# | |
2005 | #{req\ 1254}# | |
2006 | #{rest\ 1255}# | |
2007 | #{meta\ 1256}# | |
2008 | #{body\ 1257}#) | |
2009 | (let ((#{ids\ 1269}# | |
2010 | (if #{rest\ 1255}# | |
2011 | (append #{req\ 1254}# (list #{rest\ 1255}#)) | |
2012 | #{req\ 1254}#))) | |
2013 | (let ((#{vars\ 1271}# | |
2014 | (map #{gen-var\ 495}# #{ids\ 1269}#))) | |
2015 | (let ((#{labels\ 1273}# | |
2016 | (#{gen-labels\ 400}# #{ids\ 1269}#))) | |
2017 | (#{build-simple-lambda\ 324}# | |
2018 | #{s\ 1252}# | |
2019 | (map syntax->datum #{req\ 1254}#) | |
2020 | (if #{rest\ 1255}# | |
2021 | (syntax->datum #{rest\ 1255}#) | |
c89222f8 | 2022 | #f) |
fb6e61ca AW |
2023 | #{vars\ 1271}# |
2024 | #{meta\ 1256}# | |
2025 | (#{chi-body\ 475}# | |
2026 | #{body\ 1257}# | |
2027 | (#{source-wrap\ 453}# | |
2028 | #{e\ 1249}# | |
2029 | #{w\ 1251}# | |
2030 | #{s\ 1252}# | |
2031 | #{mod\ 1253}#) | |
2032 | (#{extend-var-env\ 372}# | |
2033 | #{labels\ 1273}# | |
2034 | #{vars\ 1271}# | |
2035 | #{r\ 1250}#) | |
2036 | (#{make-binding-wrap\ 429}# | |
2037 | #{ids\ 1269}# | |
2038 | #{labels\ 1273}# | |
2039 | #{w\ 1251}#) | |
2040 | #{mod\ 1253}#))))))) | |
2041 | (#{lambda-formals\ 485}# | |
2042 | (lambda (#{orig-args\ 1276}#) | |
2043 | (letrec ((#{check\ 1281}# | |
2044 | (lambda (#{req\ 1282}# #{rest\ 1283}#) | |
2045 | (if (#{distinct-bound-ids?\ 447}# | |
2046 | (if #{rest\ 1283}# | |
2047 | (cons #{rest\ 1283}# #{req\ 1282}#) | |
2048 | #{req\ 1282}#)) | |
2049 | (values #{req\ 1282}# #f #{rest\ 1283}# #f) | |
c89222f8 AW |
2050 | (syntax-violation |
2051 | 'lambda | |
2052 | "duplicate identifier in argument list" | |
fb6e61ca AW |
2053 | #{orig-args\ 1276}#)))) |
2054 | (#{req\ 1279}# | |
2055 | (lambda (#{args\ 1289}# #{rreq\ 1290}#) | |
2056 | ((lambda (#{tmp\ 1293}#) | |
2057 | ((lambda (#{tmp\ 1294}#) | |
2058 | (if #{tmp\ 1294}# | |
c89222f8 | 2059 | (apply (lambda () |
fb6e61ca AW |
2060 | (#{check\ 1281}# |
2061 | (reverse #{rreq\ 1290}#) | |
c89222f8 | 2062 | #f)) |
fb6e61ca AW |
2063 | #{tmp\ 1294}#) |
2064 | ((lambda (#{tmp\ 1295}#) | |
2065 | (if (if #{tmp\ 1295}# | |
2066 | (apply (lambda (#{a\ 1298}# | |
2067 | #{b\ 1299}#) | |
2068 | (#{id?\ 382}# | |
2069 | #{a\ 1298}#)) | |
2070 | #{tmp\ 1295}#) | |
c89222f8 | 2071 | #f) |
fb6e61ca AW |
2072 | (apply (lambda (#{a\ 1302}# |
2073 | #{b\ 1303}#) | |
2074 | (#{req\ 1279}# | |
2075 | #{b\ 1303}# | |
2076 | (cons #{a\ 1302}# | |
2077 | #{rreq\ 1290}#))) | |
2078 | #{tmp\ 1295}#) | |
2079 | ((lambda (#{tmp\ 1304}#) | |
2080 | (if (if #{tmp\ 1304}# | |
2081 | (apply (lambda (#{r\ 1306}#) | |
2082 | (#{id?\ 382}# | |
2083 | #{r\ 1306}#)) | |
2084 | #{tmp\ 1304}#) | |
c89222f8 | 2085 | #f) |
fb6e61ca AW |
2086 | (apply (lambda (#{r\ 1308}#) |
2087 | (#{check\ 1281}# | |
c89222f8 | 2088 | (reverse |
fb6e61ca AW |
2089 | #{rreq\ 1290}#) |
2090 | #{r\ 1308}#)) | |
2091 | #{tmp\ 1304}#) | |
2092 | ((lambda (#{else\ 1310}#) | |
c89222f8 AW |
2093 | (syntax-violation |
2094 | 'lambda | |
2095 | "invalid argument list" | |
fb6e61ca AW |
2096 | #{orig-args\ 1276}# |
2097 | #{args\ 1289}#)) | |
2098 | #{tmp\ 1293}#))) | |
2099 | (list #{tmp\ 1293}#)))) | |
c89222f8 | 2100 | ($sc-dispatch |
fb6e61ca | 2101 | #{tmp\ 1293}# |
c89222f8 | 2102 | '(any . any))))) |
fb6e61ca AW |
2103 | ($sc-dispatch #{tmp\ 1293}# (quote ())))) |
2104 | #{args\ 1289}#)))) | |
2105 | (#{req\ 1279}# #{orig-args\ 1276}# (quote ()))))) | |
2106 | (#{ellipsis?\ 483}# | |
2107 | (lambda (#{x\ 1311}#) | |
2108 | (if (#{nonsymbol-id?\ 380}# #{x\ 1311}#) | |
2109 | (#{free-id=?\ 441}# | |
2110 | #{x\ 1311}# | |
c89222f8 AW |
2111 | '#(syntax-object |
2112 | ... | |
2113 | ((top) | |
2114 | #(ribcage () () ()) | |
2115 | #(ribcage () () ()) | |
fb6e61ca | 2116 | #(ribcage #(x) #((top)) #("i1312")) |
c89222f8 AW |
2117 | #(ribcage |
2118 | (lambda-var-list | |
2119 | gen-var | |
2120 | strip | |
2121 | chi-lambda-case | |
2122 | lambda*-formals | |
2123 | chi-simple-lambda | |
2124 | lambda-formals | |
2125 | ellipsis? | |
2126 | chi-void | |
2127 | eval-local-transformer | |
2128 | chi-local-syntax | |
2129 | chi-body | |
2130 | chi-macro | |
2131 | chi-application | |
2132 | chi-expr | |
2133 | chi | |
2134 | chi-top | |
2135 | syntax-type | |
2136 | chi-when-list | |
2137 | chi-install-global | |
2138 | chi-top-sequence | |
2139 | chi-sequence | |
2140 | source-wrap | |
2141 | wrap | |
2142 | bound-id-member? | |
2143 | distinct-bound-ids? | |
2144 | valid-bound-ids? | |
2145 | bound-id=? | |
2146 | free-id=? | |
2147 | id-var-name | |
2148 | same-marks? | |
2149 | join-marks | |
2150 | join-wraps | |
2151 | smart-append | |
2152 | make-binding-wrap | |
2153 | extend-ribcage! | |
2154 | make-empty-ribcage | |
2155 | new-mark | |
2156 | anti-mark | |
2157 | the-anti-mark | |
2158 | top-marked? | |
2159 | top-wrap | |
2160 | empty-wrap | |
2161 | set-ribcage-labels! | |
2162 | set-ribcage-marks! | |
2163 | set-ribcage-symnames! | |
2164 | ribcage-labels | |
2165 | ribcage-marks | |
2166 | ribcage-symnames | |
2167 | ribcage? | |
2168 | make-ribcage | |
2169 | gen-labels | |
2170 | gen-label | |
2171 | make-rename | |
2172 | rename-marks | |
2173 | rename-new | |
2174 | rename-old | |
2175 | subst-rename? | |
2176 | wrap-subst | |
2177 | wrap-marks | |
2178 | make-wrap | |
2179 | id-sym-name&marks | |
2180 | id-sym-name | |
2181 | id? | |
2182 | nonsymbol-id? | |
2183 | global-extend | |
2184 | lookup | |
2185 | macros-only-env | |
2186 | extend-var-env | |
2187 | extend-env | |
2188 | null-env | |
2189 | binding-value | |
2190 | binding-type | |
2191 | make-binding | |
2192 | arg-check | |
2193 | source-annotation | |
2194 | no-source | |
2195 | set-syntax-object-module! | |
2196 | set-syntax-object-wrap! | |
2197 | set-syntax-object-expression! | |
2198 | syntax-object-module | |
2199 | syntax-object-wrap | |
2200 | syntax-object-expression | |
2201 | syntax-object? | |
2202 | make-syntax-object | |
2203 | build-lexical-var | |
2204 | build-letrec | |
2205 | build-named-let | |
2206 | build-let | |
2207 | build-sequence | |
2208 | build-data | |
2209 | build-primref | |
2210 | build-lambda-case | |
2211 | build-case-lambda | |
2212 | build-simple-lambda | |
2213 | build-global-definition | |
2214 | maybe-name-value! | |
2215 | build-global-assignment | |
2216 | build-global-reference | |
2217 | analyze-variable | |
2218 | build-lexical-assignment | |
2219 | build-lexical-reference | |
6360c1d4 | 2220 | build-dynlet |
c89222f8 AW |
2221 | build-conditional |
2222 | build-application | |
2223 | build-void | |
2224 | decorate-source | |
2225 | get-global-definition-hook | |
2226 | put-global-definition-hook | |
2227 | gensym-hook | |
2228 | local-eval-hook | |
2229 | top-level-eval-hook | |
2230 | fx< | |
2231 | fx= | |
2232 | fx- | |
2233 | fx+ | |
22cf27c8 AW |
2234 | set-lambda-meta! |
2235 | lambda-meta | |
2236 | lambda? | |
3d10018e AW |
2237 | make-dynlet |
2238 | make-letrec | |
2239 | make-let | |
2240 | make-lambda-case | |
2241 | make-lambda | |
2242 | make-sequence | |
2243 | make-application | |
2244 | make-conditional | |
2245 | make-toplevel-define | |
2246 | make-toplevel-set | |
2247 | make-toplevel-ref | |
2248 | make-module-set | |
2249 | make-module-ref | |
2250 | make-lexical-set | |
2251 | make-lexical-ref | |
2252 | make-primitive-ref | |
2253 | make-const | |
131ae7b4 | 2254 | make-void) |
c89222f8 AW |
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) | |
2322 | (top) | |
2323 | (top) | |
2324 | (top) | |
2325 | (top) | |
2326 | (top) | |
2327 | (top) | |
2328 | (top) | |
2329 | (top) | |
2330 | (top) | |
2331 | (top) | |
2332 | (top) | |
2333 | (top) | |
2334 | (top) | |
2335 | (top) | |
2336 | (top) | |
2337 | (top) | |
2338 | (top) | |
2339 | (top) | |
2340 | (top) | |
2341 | (top) | |
2342 | (top) | |
2343 | (top) | |
2344 | (top) | |
2345 | (top) | |
2346 | (top) | |
2347 | (top) | |
2348 | (top) | |
2349 | (top) | |
2350 | (top) | |
2351 | (top) | |
2352 | (top) | |
2353 | (top) | |
2354 | (top) | |
2355 | (top) | |
2356 | (top) | |
2357 | (top) | |
2358 | (top) | |
2359 | (top) | |
2360 | (top) | |
2361 | (top) | |
2362 | (top) | |
2363 | (top) | |
2364 | (top) | |
2365 | (top) | |
2366 | (top) | |
2367 | (top) | |
2368 | (top) | |
2369 | (top) | |
2370 | (top) | |
3d10018e AW |
2371 | (top) |
2372 | (top) | |
2373 | (top) | |
2374 | (top) | |
2375 | (top) | |
2376 | (top) | |
2377 | (top) | |
2378 | (top) | |
2379 | (top) | |
2380 | (top) | |
2381 | (top) | |
2382 | (top) | |
2383 | (top) | |
2384 | (top) | |
2385 | (top) | |
2386 | (top) | |
2387 | (top) | |
22cf27c8 AW |
2388 | (top) |
2389 | (top) | |
2390 | (top) | |
c89222f8 | 2391 | (top)) |
fb6e61ca AW |
2392 | ("i496" |
2393 | "i494" | |
2394 | "i492" | |
2395 | "i490" | |
2396 | "i488" | |
2397 | "i486" | |
22cf27c8 AW |
2398 | "i484" |
2399 | "i482" | |
2400 | "i480" | |
2401 | "i478" | |
2402 | "i476" | |
2403 | "i474" | |
2404 | "i472" | |
2405 | "i470" | |
2406 | "i468" | |
2407 | "i466" | |
2408 | "i464" | |
2409 | "i462" | |
2410 | "i460" | |
2411 | "i458" | |
2412 | "i456" | |
2413 | "i454" | |
2414 | "i452" | |
2415 | "i450" | |
2416 | "i448" | |
2417 | "i446" | |
2418 | "i444" | |
2419 | "i442" | |
2420 | "i440" | |
2421 | "i438" | |
2422 | "i436" | |
2423 | "i434" | |
2424 | "i432" | |
2425 | "i430" | |
2426 | "i428" | |
2427 | "i426" | |
fb6e61ca | 2428 | "i425" |
22cf27c8 AW |
2429 | "i424" |
2430 | "i422" | |
fb6e61ca | 2431 | "i421" |
22cf27c8 | 2432 | "i420" |
fb6e61ca | 2433 | "i419" |
22cf27c8 AW |
2434 | "i418" |
2435 | "i416" | |
22cf27c8 AW |
2436 | "i414" |
2437 | "i412" | |
22cf27c8 | 2438 | "i410" |
22cf27c8 AW |
2439 | "i408" |
2440 | "i406" | |
2441 | "i404" | |
2442 | "i402" | |
fb6e61ca AW |
2443 | "i399" |
2444 | "i397" | |
22cf27c8 | 2445 | "i396" |
fb6e61ca | 2446 | "i395" |
22cf27c8 | 2447 | "i394" |
fb6e61ca | 2448 | "i393" |
22cf27c8 | 2449 | "i392" |
fb6e61ca AW |
2450 | "i390" |
2451 | "i388" | |
22cf27c8 | 2452 | "i386" |
22cf27c8 | 2453 | "i384" |
131ae7b4 | 2454 | "i383" |
fb6e61ca AW |
2455 | "i381" |
2456 | "i379" | |
2457 | "i377" | |
2458 | "i375" | |
131ae7b4 AW |
2459 | "i373" |
2460 | "i371" | |
2461 | "i369" | |
fb6e61ca AW |
2462 | "i368" |
2463 | "i366" | |
2464 | "i364" | |
131ae7b4 | 2465 | "i363" |
fb6e61ca AW |
2466 | "i362" |
2467 | "i360" | |
131ae7b4 | 2468 | "i359" |
fb6e61ca AW |
2469 | "i357" |
2470 | "i355" | |
131ae7b4 | 2471 | "i353" |
fb6e61ca | 2472 | "i351" |
131ae7b4 AW |
2473 | "i349" |
2474 | "i347" | |
131ae7b4 | 2475 | "i345" |
131ae7b4 AW |
2476 | "i343" |
2477 | "i341" | |
2478 | "i339" | |
2479 | "i337" | |
2480 | "i335" | |
2481 | "i333" | |
2482 | "i331" | |
2483 | "i329" | |
2484 | "i327" | |
22cf27c8 AW |
2485 | "i325" |
2486 | "i323" | |
131ae7b4 | 2487 | "i321" |
131ae7b4 | 2488 | "i319" |
131ae7b4 AW |
2489 | "i317" |
2490 | "i315" | |
2491 | "i313" | |
2492 | "i311" | |
2493 | "i309" | |
22cf27c8 AW |
2494 | "i307" |
2495 | "i305" | |
2496 | "i303" | |
2497 | "i301" | |
2498 | "i299" | |
2499 | "i297" | |
2500 | "i295" | |
fb6e61ca AW |
2501 | "i294" |
2502 | "i292" | |
2503 | "i290" | |
2504 | "i288" | |
2505 | "i286" | |
131ae7b4 AW |
2506 | "i284" |
2507 | "i282" | |
2508 | "i280" | |
2509 | "i278" | |
2510 | "i276" | |
fb6e61ca AW |
2511 | "i273" |
2512 | "i271" | |
2513 | "i269" | |
2514 | "i267" | |
2515 | "i265" | |
22cf27c8 AW |
2516 | "i263" |
2517 | "i261" | |
2518 | "i259" | |
2519 | "i257" | |
2520 | "i255" | |
2521 | "i253" | |
2522 | "i251" | |
2523 | "i249" | |
2524 | "i247" | |
2525 | "i245" | |
2526 | "i243" | |
2527 | "i241" | |
fb6e61ca | 2528 | "i239")) |
c89222f8 | 2529 | #(ribcage |
3d10018e | 2530 | (define-structure |
22cf27c8 | 2531 | define-expansion-accessors |
3d10018e AW |
2532 | define-expansion-constructors |
2533 | and-map*) | |
22cf27c8 | 2534 | ((top) (top) (top) (top)) |
fb6e61ca | 2535 | ("i33" "i32" "i31" "i29"))) |
c89222f8 AW |
2536 | (hygiene guile))) |
2537 | #f))) | |
fb6e61ca AW |
2538 | (#{chi-void\ 481}# |
2539 | (lambda () (#{build-void\ 302}# #f))) | |
2540 | (#{eval-local-transformer\ 479}# | |
2541 | (lambda (#{expanded\ 1316}# #{mod\ 1317}#) | |
2542 | (let ((#{p\ 1321}# | |
2543 | (#{local-eval-hook\ 293}# | |
2544 | #{expanded\ 1316}# | |
2545 | #{mod\ 1317}#))) | |
2546 | (if (procedure? #{p\ 1321}#) | |
2547 | #{p\ 1321}# | |
c89222f8 AW |
2548 | (syntax-violation |
2549 | #f | |
2550 | "nonprocedure transformer" | |
fb6e61ca AW |
2551 | #{p\ 1321}#))))) |
2552 | (#{chi-local-syntax\ 477}# | |
2553 | (lambda (#{rec?\ 1322}# | |
2554 | #{e\ 1323}# | |
2555 | #{r\ 1324}# | |
2556 | #{w\ 1325}# | |
2557 | #{s\ 1326}# | |
2558 | #{mod\ 1327}# | |
2559 | #{k\ 1328}#) | |
2560 | ((lambda (#{tmp\ 1336}#) | |
2561 | ((lambda (#{tmp\ 1337}#) | |
2562 | (if #{tmp\ 1337}# | |
2563 | (apply (lambda (#{_\ 1343}# | |
2564 | #{id\ 1344}# | |
2565 | #{val\ 1345}# | |
2566 | #{e1\ 1346}# | |
2567 | #{e2\ 1347}#) | |
2568 | (let ((#{ids\ 1349}# #{id\ 1344}#)) | |
2569 | (if (not (#{valid-bound-ids?\ 445}# | |
2570 | #{ids\ 1349}#)) | |
df1cd5e5 AW |
2571 | (syntax-violation |
2572 | #f | |
c89222f8 | 2573 | "duplicate bound keyword" |
fb6e61ca AW |
2574 | #{e\ 1323}#) |
2575 | (let ((#{labels\ 1352}# | |
2576 | (#{gen-labels\ 400}# | |
2577 | #{ids\ 1349}#))) | |
2578 | (let ((#{new-w\ 1354}# | |
2579 | (#{make-binding-wrap\ 429}# | |
2580 | #{ids\ 1349}# | |
2581 | #{labels\ 1352}# | |
2582 | #{w\ 1325}#))) | |
2583 | (#{k\ 1328}# | |
2584 | (cons #{e1\ 1346}# #{e2\ 1347}#) | |
2585 | (#{extend-env\ 370}# | |
2586 | #{labels\ 1352}# | |
2587 | (let ((#{w\ 1358}# | |
2588 | (if #{rec?\ 1322}# | |
2589 | #{new-w\ 1354}# | |
2590 | #{w\ 1325}#)) | |
2591 | (#{trans-r\ 1359}# | |
2592 | (#{macros-only-env\ 374}# | |
2593 | #{r\ 1324}#))) | |
2594 | (map (lambda (#{x\ 1360}#) | |
f6a8e791 | 2595 | (cons 'macro |
fb6e61ca AW |
2596 | (#{eval-local-transformer\ 479}# |
2597 | (#{chi\ 467}# | |
2598 | #{x\ 1360}# | |
2599 | #{trans-r\ 1359}# | |
2600 | #{w\ 1358}# | |
2601 | #{mod\ 1327}#) | |
2602 | #{mod\ 1327}#))) | |
2603 | #{val\ 1345}#)) | |
2604 | #{r\ 1324}#) | |
2605 | #{new-w\ 1354}# | |
2606 | #{s\ 1326}# | |
2607 | #{mod\ 1327}#)))))) | |
2608 | #{tmp\ 1337}#) | |
2609 | ((lambda (#{_\ 1365}#) | |
c89222f8 AW |
2610 | (syntax-violation |
2611 | #f | |
2612 | "bad local syntax definition" | |
fb6e61ca AW |
2613 | (#{source-wrap\ 453}# |
2614 | #{e\ 1323}# | |
2615 | #{w\ 1325}# | |
2616 | #{s\ 1326}# | |
2617 | #{mod\ 1327}#))) | |
2618 | #{tmp\ 1336}#))) | |
c89222f8 | 2619 | ($sc-dispatch |
fb6e61ca | 2620 | #{tmp\ 1336}# |
c89222f8 | 2621 | '(any #(each (any any)) any . each-any)))) |
fb6e61ca AW |
2622 | #{e\ 1323}#))) |
2623 | (#{chi-body\ 475}# | |
2624 | (lambda (#{body\ 1366}# | |
2625 | #{outer-form\ 1367}# | |
2626 | #{r\ 1368}# | |
2627 | #{w\ 1369}# | |
2628 | #{mod\ 1370}#) | |
2629 | (let ((#{r\ 1378}# | |
f6a8e791 | 2630 | (cons '("placeholder" placeholder) |
fb6e61ca AW |
2631 | #{r\ 1368}#))) |
2632 | (let ((#{ribcage\ 1380}# | |
2633 | (#{make-ribcage\ 403}# | |
c89222f8 AW |
2634 | '() |
2635 | '() | |
2636 | '()))) | |
fb6e61ca AW |
2637 | (let ((#{w\ 1383}# |
2638 | (#{make-wrap\ 387}# | |
2639 | (#{wrap-marks\ 389}# #{w\ 1369}#) | |
2640 | (cons #{ribcage\ 1380}# | |
2641 | (#{wrap-subst\ 391}# #{w\ 1369}#))))) | |
2642 | (letrec ((#{parse\ 1392}# | |
2643 | (lambda (#{body\ 1393}# | |
2644 | #{ids\ 1394}# | |
2645 | #{labels\ 1395}# | |
2646 | #{var-ids\ 1396}# | |
2647 | #{vars\ 1397}# | |
2648 | #{vals\ 1398}# | |
2649 | #{bindings\ 1399}#) | |
2650 | (if (null? #{body\ 1393}#) | |
df1cd5e5 AW |
2651 | (syntax-violation |
2652 | #f | |
c89222f8 | 2653 | "no expressions in body" |
fb6e61ca AW |
2654 | #{outer-form\ 1367}#) |
2655 | (let ((#{e\ 1404}# (cdar #{body\ 1393}#)) | |
2656 | (#{er\ 1405}# (caar #{body\ 1393}#))) | |
c89222f8 AW |
2657 | (call-with-values |
2658 | (lambda () | |
fb6e61ca AW |
2659 | (#{syntax-type\ 463}# |
2660 | #{e\ 1404}# | |
2661 | #{er\ 1405}# | |
c89222f8 | 2662 | '(()) |
fb6e61ca AW |
2663 | (#{source-annotation\ 361}# |
2664 | #{er\ 1405}#) | |
2665 | #{ribcage\ 1380}# | |
2666 | #{mod\ 1370}# | |
c89222f8 | 2667 | #f)) |
fb6e61ca AW |
2668 | (lambda (#{type\ 1407}# |
2669 | #{value\ 1408}# | |
2670 | #{e\ 1409}# | |
2671 | #{w\ 1410}# | |
2672 | #{s\ 1411}# | |
2673 | #{mod\ 1412}#) | |
2674 | (if (memv #{type\ 1407}# | |
c89222f8 | 2675 | '(define-form)) |
fb6e61ca AW |
2676 | (let ((#{id\ 1422}# |
2677 | (#{wrap\ 451}# | |
2678 | #{value\ 1408}# | |
2679 | #{w\ 1410}# | |
2680 | #{mod\ 1412}#)) | |
2681 | (#{label\ 1423}# | |
2682 | (#{gen-label\ 398}#))) | |
2683 | (let ((#{var\ 1425}# | |
2684 | (#{gen-var\ 495}# | |
2685 | #{id\ 1422}#))) | |
c89222f8 | 2686 | (begin |
fb6e61ca AW |
2687 | (#{extend-ribcage!\ 427}# |
2688 | #{ribcage\ 1380}# | |
2689 | #{id\ 1422}# | |
2690 | #{label\ 1423}#) | |
2691 | (#{parse\ 1392}# | |
2692 | (cdr #{body\ 1393}#) | |
2693 | (cons #{id\ 1422}# | |
2694 | #{ids\ 1394}#) | |
2695 | (cons #{label\ 1423}# | |
2696 | #{labels\ 1395}#) | |
2697 | (cons #{id\ 1422}# | |
2698 | #{var-ids\ 1396}#) | |
2699 | (cons #{var\ 1425}# | |
2700 | #{vars\ 1397}#) | |
2701 | (cons (cons #{er\ 1405}# | |
2702 | (#{wrap\ 451}# | |
2703 | #{e\ 1409}# | |
2704 | #{w\ 1410}# | |
2705 | #{mod\ 1412}#)) | |
2706 | #{vals\ 1398}#) | |
fd598527 | 2707 | (cons (cons 'lexical |
fb6e61ca AW |
2708 | #{var\ 1425}#) |
2709 | #{bindings\ 1399}#))))) | |
2710 | (if (memv #{type\ 1407}# | |
fd598527 | 2711 | '(define-syntax-form)) |
fb6e61ca AW |
2712 | (let ((#{id\ 1430}# |
2713 | (#{wrap\ 451}# | |
2714 | #{value\ 1408}# | |
2715 | #{w\ 1410}# | |
2716 | #{mod\ 1412}#)) | |
2717 | (#{label\ 1431}# | |
2718 | (#{gen-label\ 398}#))) | |
fd598527 | 2719 | (begin |
fb6e61ca AW |
2720 | (#{extend-ribcage!\ 427}# |
2721 | #{ribcage\ 1380}# | |
2722 | #{id\ 1430}# | |
2723 | #{label\ 1431}#) | |
2724 | (#{parse\ 1392}# | |
2725 | (cdr #{body\ 1393}#) | |
2726 | (cons #{id\ 1430}# | |
2727 | #{ids\ 1394}#) | |
2728 | (cons #{label\ 1431}# | |
2729 | #{labels\ 1395}#) | |
2730 | #{var-ids\ 1396}# | |
2731 | #{vars\ 1397}# | |
2732 | #{vals\ 1398}# | |
c89222f8 | 2733 | (cons (cons 'macro |
fb6e61ca AW |
2734 | (cons #{er\ 1405}# |
2735 | (#{wrap\ 451}# | |
2736 | #{e\ 1409}# | |
2737 | #{w\ 1410}# | |
2738 | #{mod\ 1412}#))) | |
2739 | #{bindings\ 1399}#)))) | |
2740 | (if (memv #{type\ 1407}# | |
c89222f8 | 2741 | '(begin-form)) |
fb6e61ca AW |
2742 | ((lambda (#{tmp\ 1434}#) |
2743 | ((lambda (#{tmp\ 1435}#) | |
2744 | (if #{tmp\ 1435}# | |
2745 | (apply (lambda (#{_\ 1438}# | |
2746 | #{e1\ 1439}#) | |
2747 | (#{parse\ 1392}# | |
2748 | (letrec ((#{f\ 1442}# | |
2749 | (lambda (#{forms\ 1443}#) | |
2750 | (if (null? #{forms\ 1443}#) | |
2751 | (cdr #{body\ 1393}#) | |
2752 | (cons (cons #{er\ 1405}# | |
2753 | (#{wrap\ 451}# | |
2754 | (car #{forms\ 1443}#) | |
2755 | #{w\ 1410}# | |
2756 | #{mod\ 1412}#)) | |
2757 | (#{f\ 1442}# | |
2758 | (cdr #{forms\ 1443}#))))))) | |
2759 | (#{f\ 1442}# | |
2760 | #{e1\ 1439}#)) | |
2761 | #{ids\ 1394}# | |
2762 | #{labels\ 1395}# | |
2763 | #{var-ids\ 1396}# | |
2764 | #{vars\ 1397}# | |
2765 | #{vals\ 1398}# | |
2766 | #{bindings\ 1399}#)) | |
2767 | #{tmp\ 1435}#) | |
c89222f8 AW |
2768 | (syntax-violation |
2769 | #f | |
2770 | "source expression failed to match any pattern" | |
fb6e61ca | 2771 | #{tmp\ 1434}#))) |
c89222f8 | 2772 | ($sc-dispatch |
fb6e61ca | 2773 | #{tmp\ 1434}# |
c89222f8 | 2774 | '(any . each-any)))) |
fb6e61ca AW |
2775 | #{e\ 1409}#) |
2776 | (if (memv #{type\ 1407}# | |
c89222f8 | 2777 | '(local-syntax-form)) |
fb6e61ca AW |
2778 | (#{chi-local-syntax\ 477}# |
2779 | #{value\ 1408}# | |
2780 | #{e\ 1409}# | |
2781 | #{er\ 1405}# | |
2782 | #{w\ 1410}# | |
2783 | #{s\ 1411}# | |
2784 | #{mod\ 1412}# | |
2785 | (lambda (#{forms\ 1446}# | |
2786 | #{er\ 1447}# | |
2787 | #{w\ 1448}# | |
2788 | #{s\ 1449}# | |
2789 | #{mod\ 1450}#) | |
2790 | (#{parse\ 1392}# | |
2791 | (letrec ((#{f\ 1458}# | |
2792 | (lambda (#{forms\ 1459}#) | |
2793 | (if (null? #{forms\ 1459}#) | |
2794 | (cdr #{body\ 1393}#) | |
2795 | (cons (cons #{er\ 1447}# | |
2796 | (#{wrap\ 451}# | |
2797 | (car #{forms\ 1459}#) | |
2798 | #{w\ 1448}# | |
2799 | #{mod\ 1450}#)) | |
2800 | (#{f\ 1458}# | |
2801 | (cdr #{forms\ 1459}#))))))) | |
2802 | (#{f\ 1458}# | |
2803 | #{forms\ 1446}#)) | |
2804 | #{ids\ 1394}# | |
2805 | #{labels\ 1395}# | |
2806 | #{var-ids\ 1396}# | |
2807 | #{vars\ 1397}# | |
2808 | #{vals\ 1398}# | |
2809 | #{bindings\ 1399}#))) | |
2810 | (if (null? #{ids\ 1394}#) | |
2811 | (#{build-sequence\ 334}# | |
c89222f8 | 2812 | #f |
fb6e61ca AW |
2813 | (map (lambda (#{x\ 1462}#) |
2814 | (#{chi\ 467}# | |
2815 | (cdr #{x\ 1462}#) | |
2816 | (car #{x\ 1462}#) | |
c89222f8 | 2817 | '(()) |
fb6e61ca AW |
2818 | #{mod\ 1412}#)) |
2819 | (cons (cons #{er\ 1405}# | |
2820 | (#{source-wrap\ 453}# | |
2821 | #{e\ 1409}# | |
2822 | #{w\ 1410}# | |
2823 | #{s\ 1411}# | |
2824 | #{mod\ 1412}#)) | |
2825 | (cdr #{body\ 1393}#)))) | |
c89222f8 | 2826 | (begin |
fb6e61ca AW |
2827 | (if (not (#{valid-bound-ids?\ 445}# |
2828 | #{ids\ 1394}#)) | |
c89222f8 AW |
2829 | (syntax-violation |
2830 | #f | |
2831 | "invalid or duplicate identifier in definition" | |
fb6e61ca AW |
2832 | #{outer-form\ 1367}#)) |
2833 | (letrec ((#{loop\ 1469}# | |
2834 | (lambda (#{bs\ 1470}# | |
2835 | #{er-cache\ 1471}# | |
2836 | #{r-cache\ 1472}#) | |
2837 | (if (not (null? #{bs\ 1470}#)) | |
2838 | (let ((#{b\ 1475}# | |
2839 | (car #{bs\ 1470}#))) | |
2840 | (if (eq? (car #{b\ 1475}#) | |
c89222f8 | 2841 | 'macro) |
fb6e61ca AW |
2842 | (let ((#{er\ 1478}# |
2843 | (cadr #{b\ 1475}#))) | |
2844 | (let ((#{r-cache\ 1480}# | |
2845 | (if (eq? #{er\ 1478}# | |
2846 | #{er-cache\ 1471}#) | |
2847 | #{r-cache\ 1472}# | |
2848 | (#{macros-only-env\ 374}# | |
2849 | #{er\ 1478}#)))) | |
c89222f8 AW |
2850 | (begin |
2851 | (set-cdr! | |
fb6e61ca AW |
2852 | #{b\ 1475}# |
2853 | (#{eval-local-transformer\ 479}# | |
2854 | (#{chi\ 467}# | |
2855 | (cddr #{b\ 1475}#) | |
2856 | #{r-cache\ 1480}# | |
c89222f8 | 2857 | '(()) |
fb6e61ca AW |
2858 | #{mod\ 1412}#) |
2859 | #{mod\ 1412}#)) | |
2860 | (#{loop\ 1469}# | |
2861 | (cdr #{bs\ 1470}#) | |
2862 | #{er\ 1478}# | |
2863 | #{r-cache\ 1480}#)))) | |
2864 | (#{loop\ 1469}# | |
2865 | (cdr #{bs\ 1470}#) | |
2866 | #{er-cache\ 1471}# | |
2867 | #{r-cache\ 1472}#))))))) | |
2868 | (#{loop\ 1469}# | |
2869 | #{bindings\ 1399}# | |
c89222f8 AW |
2870 | #f |
2871 | #f)) | |
2872 | (set-cdr! | |
fb6e61ca AW |
2873 | #{r\ 1378}# |
2874 | (#{extend-env\ 370}# | |
2875 | #{labels\ 1395}# | |
2876 | #{bindings\ 1399}# | |
2877 | (cdr #{r\ 1378}#))) | |
2878 | (#{build-letrec\ 340}# | |
c89222f8 AW |
2879 | #f |
2880 | (map syntax->datum | |
fb6e61ca AW |
2881 | #{var-ids\ 1396}#) |
2882 | #{vars\ 1397}# | |
2883 | (map (lambda (#{x\ 1483}#) | |
2884 | (#{chi\ 467}# | |
2885 | (cdr #{x\ 1483}#) | |
2886 | (car #{x\ 1483}#) | |
c89222f8 | 2887 | '(()) |
fb6e61ca AW |
2888 | #{mod\ 1412}#)) |
2889 | #{vals\ 1398}#) | |
2890 | (#{build-sequence\ 334}# | |
c89222f8 | 2891 | #f |
fb6e61ca AW |
2892 | (map (lambda (#{x\ 1487}#) |
2893 | (#{chi\ 467}# | |
2894 | (cdr #{x\ 1487}#) | |
2895 | (car #{x\ 1487}#) | |
c89222f8 | 2896 | '(()) |
fb6e61ca AW |
2897 | #{mod\ 1412}#)) |
2898 | (cons (cons #{er\ 1405}# | |
2899 | (#{source-wrap\ 453}# | |
2900 | #{e\ 1409}# | |
2901 | #{w\ 1410}# | |
2902 | #{s\ 1411}# | |
2903 | #{mod\ 1412}#)) | |
2904 | (cdr #{body\ 1393}#)))))))))))))))))) | |
2905 | (#{parse\ 1392}# | |
2906 | (map (lambda (#{x\ 1400}#) | |
2907 | (cons #{r\ 1378}# | |
2908 | (#{wrap\ 451}# | |
2909 | #{x\ 1400}# | |
2910 | #{w\ 1383}# | |
2911 | #{mod\ 1370}#))) | |
2912 | #{body\ 1366}#) | |
c89222f8 AW |
2913 | '() |
2914 | '() | |
2915 | '() | |
2916 | '() | |
2917 | '() | |
2918 | '()))))))) | |
fb6e61ca AW |
2919 | (#{chi-macro\ 473}# |
2920 | (lambda (#{p\ 1490}# | |
2921 | #{e\ 1491}# | |
2922 | #{r\ 1492}# | |
2923 | #{w\ 1493}# | |
2924 | #{s\ 1494}# | |
2925 | #{rib\ 1495}# | |
2926 | #{mod\ 1496}#) | |
2927 | (letrec ((#{rebuild-macro-output\ 1505}# | |
2928 | (lambda (#{x\ 1506}# #{m\ 1507}#) | |
2929 | (if (pair? #{x\ 1506}#) | |
2930 | (#{decorate-source\ 300}# | |
2931 | (cons (#{rebuild-macro-output\ 1505}# | |
2932 | (car #{x\ 1506}#) | |
2933 | #{m\ 1507}#) | |
2934 | (#{rebuild-macro-output\ 1505}# | |
2935 | (cdr #{x\ 1506}#) | |
2936 | #{m\ 1507}#)) | |
2937 | #{s\ 1494}#) | |
2938 | (if (#{syntax-object?\ 346}# #{x\ 1506}#) | |
2939 | (let ((#{w\ 1515}# | |
2940 | (#{syntax-object-wrap\ 350}# | |
2941 | #{x\ 1506}#))) | |
2942 | (let ((#{ms\ 1518}# | |
2943 | (#{wrap-marks\ 389}# #{w\ 1515}#)) | |
2944 | (#{s\ 1519}# | |
2945 | (#{wrap-subst\ 391}# #{w\ 1515}#))) | |
2946 | (if (if (pair? #{ms\ 1518}#) | |
2947 | (eq? (car #{ms\ 1518}#) #f) | |
c89222f8 | 2948 | #f) |
fb6e61ca AW |
2949 | (#{make-syntax-object\ 344}# |
2950 | (#{syntax-object-expression\ 348}# | |
2951 | #{x\ 1506}#) | |
2952 | (#{make-wrap\ 387}# | |
2953 | (cdr #{ms\ 1518}#) | |
2954 | (if #{rib\ 1495}# | |
2955 | (cons #{rib\ 1495}# | |
2956 | (cdr #{s\ 1519}#)) | |
2957 | (cdr #{s\ 1519}#))) | |
2958 | (#{syntax-object-module\ 352}# | |
2959 | #{x\ 1506}#)) | |
2960 | (#{make-syntax-object\ 344}# | |
2961 | (#{decorate-source\ 300}# | |
2962 | (#{syntax-object-expression\ 348}# | |
2963 | #{x\ 1506}#) | |
2964 | #{s\ 1519}#) | |
2965 | (#{make-wrap\ 387}# | |
2966 | (cons #{m\ 1507}# #{ms\ 1518}#) | |
2967 | (if #{rib\ 1495}# | |
2968 | (cons #{rib\ 1495}# | |
c89222f8 | 2969 | (cons 'shift |
fb6e61ca AW |
2970 | #{s\ 1519}#)) |
2971 | (cons (quote shift) #{s\ 1519}#))) | |
2972 | (#{syntax-object-module\ 352}# | |
2973 | #{x\ 1506}#))))) | |
2974 | (if (vector? #{x\ 1506}#) | |
2975 | (let ((#{n\ 1527}# | |
2976 | (vector-length #{x\ 1506}#))) | |
2977 | (let ((#{v\ 1529}# | |
2978 | (#{decorate-source\ 300}# | |
2979 | (make-vector #{n\ 1527}#) | |
2980 | #{x\ 1506}#))) | |
2981 | (letrec ((#{loop\ 1532}# | |
2982 | (lambda (#{i\ 1533}#) | |
2983 | (if (#{fx=\ 287}# | |
2984 | #{i\ 1533}# | |
2985 | #{n\ 1527}#) | |
c89222f8 AW |
2986 | (begin |
2987 | (if #f #f) | |
fb6e61ca | 2988 | #{v\ 1529}#) |
c89222f8 AW |
2989 | (begin |
2990 | (vector-set! | |
fb6e61ca AW |
2991 | #{v\ 1529}# |
2992 | #{i\ 1533}# | |
2993 | (#{rebuild-macro-output\ 1505}# | |
c89222f8 | 2994 | (vector-ref |
fb6e61ca AW |
2995 | #{x\ 1506}# |
2996 | #{i\ 1533}#) | |
2997 | #{m\ 1507}#)) | |
2998 | (#{loop\ 1532}# | |
2999 | (#{fx+\ 283}# | |
3000 | #{i\ 1533}# | |
c89222f8 | 3001 | 1))))))) |
fb6e61ca AW |
3002 | (#{loop\ 1532}# 0)))) |
3003 | (if (symbol? #{x\ 1506}#) | |
c89222f8 AW |
3004 | (syntax-violation |
3005 | #f | |
3006 | "encountered raw symbol in macro output" | |
fb6e61ca AW |
3007 | (#{source-wrap\ 453}# |
3008 | #{e\ 1491}# | |
3009 | #{w\ 1493}# | |
3010 | (#{wrap-subst\ 391}# #{w\ 1493}#) | |
3011 | #{mod\ 1496}#) | |
3012 | #{x\ 1506}#) | |
3013 | (#{decorate-source\ 300}# | |
3014 | #{x\ 1506}# | |
3015 | #{s\ 1494}#)))))))) | |
3016 | (#{rebuild-macro-output\ 1505}# | |
3017 | (#{p\ 1490}# | |
3018 | (#{source-wrap\ 453}# | |
3019 | #{e\ 1491}# | |
3020 | (#{anti-mark\ 423}# #{w\ 1493}#) | |
3021 | #{s\ 1494}# | |
3022 | #{mod\ 1496}#)) | |
fd598527 | 3023 | (gensym "m"))))) |
fb6e61ca AW |
3024 | (#{chi-application\ 471}# |
3025 | (lambda (#{x\ 1540}# | |
3026 | #{e\ 1541}# | |
3027 | #{r\ 1542}# | |
3028 | #{w\ 1543}# | |
3029 | #{s\ 1544}# | |
3030 | #{mod\ 1545}#) | |
3031 | ((lambda (#{tmp\ 1552}#) | |
3032 | ((lambda (#{tmp\ 1553}#) | |
3033 | (if #{tmp\ 1553}# | |
3034 | (apply (lambda (#{e0\ 1556}# #{e1\ 1557}#) | |
3035 | (#{build-application\ 304}# | |
3036 | #{s\ 1544}# | |
3037 | #{x\ 1540}# | |
3038 | (map (lambda (#{e\ 1558}#) | |
3039 | (#{chi\ 467}# | |
3040 | #{e\ 1558}# | |
3041 | #{r\ 1542}# | |
3042 | #{w\ 1543}# | |
3043 | #{mod\ 1545}#)) | |
3044 | #{e1\ 1557}#))) | |
3045 | #{tmp\ 1553}#) | |
c89222f8 AW |
3046 | (syntax-violation |
3047 | #f | |
3048 | "source expression failed to match any pattern" | |
fb6e61ca | 3049 | #{tmp\ 1552}#))) |
c89222f8 | 3050 | ($sc-dispatch |
fb6e61ca | 3051 | #{tmp\ 1552}# |
c89222f8 | 3052 | '(any . each-any)))) |
fb6e61ca AW |
3053 | #{e\ 1541}#))) |
3054 | (#{chi-expr\ 469}# | |
3055 | (lambda (#{type\ 1561}# | |
3056 | #{value\ 1562}# | |
3057 | #{e\ 1563}# | |
3058 | #{r\ 1564}# | |
3059 | #{w\ 1565}# | |
3060 | #{s\ 1566}# | |
3061 | #{mod\ 1567}#) | |
3062 | (if (memv #{type\ 1561}# (quote (lexical))) | |
3063 | (#{build-lexical-reference\ 310}# | |
c89222f8 | 3064 | 'value |
fb6e61ca AW |
3065 | #{s\ 1566}# |
3066 | #{e\ 1563}# | |
3067 | #{value\ 1562}#) | |
3068 | (if (memv #{type\ 1561}# (quote (core core-form))) | |
3069 | (#{value\ 1562}# | |
3070 | #{e\ 1563}# | |
3071 | #{r\ 1564}# | |
3072 | #{w\ 1565}# | |
3073 | #{s\ 1566}# | |
3074 | #{mod\ 1567}#) | |
3075 | (if (memv #{type\ 1561}# (quote (module-ref))) | |
c89222f8 | 3076 | (call-with-values |
9365d8ad | 3077 | (lambda () |
fb6e61ca AW |
3078 | (#{value\ 1562}# |
3079 | #{e\ 1563}# | |
3080 | #{r\ 1564}# | |
3081 | #{w\ 1565}#)) | |
3082 | (lambda (#{e\ 1578}# | |
3083 | #{r\ 1579}# | |
3084 | #{w\ 1580}# | |
3085 | #{s\ 1581}# | |
3086 | #{mod\ 1582}#) | |
3087 | (#{chi\ 467}# | |
3088 | #{e\ 1578}# | |
3089 | #{r\ 1579}# | |
3090 | #{w\ 1580}# | |
3091 | #{mod\ 1582}#))) | |
3092 | (if (memv #{type\ 1561}# (quote (lexical-call))) | |
3093 | (#{chi-application\ 471}# | |
3094 | (let ((#{id\ 1590}# (car #{e\ 1563}#))) | |
3095 | (#{build-lexical-reference\ 310}# | |
d71cc612 | 3096 | 'fun |
fb6e61ca AW |
3097 | (#{source-annotation\ 361}# #{id\ 1590}#) |
3098 | (if (#{syntax-object?\ 346}# #{id\ 1590}#) | |
3099 | (syntax->datum #{id\ 1590}#) | |
3100 | #{id\ 1590}#) | |
3101 | #{value\ 1562}#)) | |
3102 | #{e\ 1563}# | |
3103 | #{r\ 1564}# | |
3104 | #{w\ 1565}# | |
3105 | #{s\ 1566}# | |
3106 | #{mod\ 1567}#) | |
3107 | (if (memv #{type\ 1561}# (quote (global-call))) | |
3108 | (#{chi-application\ 471}# | |
3109 | (#{build-global-reference\ 316}# | |
3110 | (#{source-annotation\ 361}# (car #{e\ 1563}#)) | |
3111 | (if (#{syntax-object?\ 346}# #{value\ 1562}#) | |
3112 | (#{syntax-object-expression\ 348}# | |
3113 | #{value\ 1562}#) | |
3114 | #{value\ 1562}#) | |
3115 | (if (#{syntax-object?\ 346}# #{value\ 1562}#) | |
3116 | (#{syntax-object-module\ 352}# #{value\ 1562}#) | |
3117 | #{mod\ 1567}#)) | |
3118 | #{e\ 1563}# | |
3119 | #{r\ 1564}# | |
3120 | #{w\ 1565}# | |
3121 | #{s\ 1566}# | |
3122 | #{mod\ 1567}#) | |
3123 | (if (memv #{type\ 1561}# (quote (constant))) | |
3124 | (#{build-data\ 332}# | |
3125 | #{s\ 1566}# | |
3126 | (#{strip\ 493}# | |
3127 | (#{source-wrap\ 453}# | |
3128 | #{e\ 1563}# | |
3129 | #{w\ 1565}# | |
3130 | #{s\ 1566}# | |
3131 | #{mod\ 1567}#) | |
c89222f8 | 3132 | '(()))) |
fb6e61ca AW |
3133 | (if (memv #{type\ 1561}# (quote (global))) |
3134 | (#{build-global-reference\ 316}# | |
3135 | #{s\ 1566}# | |
3136 | #{value\ 1562}# | |
3137 | #{mod\ 1567}#) | |
3138 | (if (memv #{type\ 1561}# (quote (call))) | |
3139 | (#{chi-application\ 471}# | |
3140 | (#{chi\ 467}# | |
3141 | (car #{e\ 1563}#) | |
3142 | #{r\ 1564}# | |
3143 | #{w\ 1565}# | |
3144 | #{mod\ 1567}#) | |
3145 | #{e\ 1563}# | |
3146 | #{r\ 1564}# | |
3147 | #{w\ 1565}# | |
3148 | #{s\ 1566}# | |
3149 | #{mod\ 1567}#) | |
3150 | (if (memv #{type\ 1561}# (quote (begin-form))) | |
3151 | ((lambda (#{tmp\ 1597}#) | |
3152 | ((lambda (#{tmp\ 1598}#) | |
3153 | (if #{tmp\ 1598}# | |
3154 | (apply (lambda (#{_\ 1602}# | |
3155 | #{e1\ 1603}# | |
3156 | #{e2\ 1604}#) | |
3157 | (#{chi-sequence\ 455}# | |
3158 | (cons #{e1\ 1603}# | |
3159 | #{e2\ 1604}#) | |
3160 | #{r\ 1564}# | |
3161 | #{w\ 1565}# | |
3162 | #{s\ 1566}# | |
3163 | #{mod\ 1567}#)) | |
3164 | #{tmp\ 1598}#) | |
c89222f8 AW |
3165 | (syntax-violation |
3166 | #f | |
3167 | "source expression failed to match any pattern" | |
fb6e61ca | 3168 | #{tmp\ 1597}#))) |
c89222f8 | 3169 | ($sc-dispatch |
fb6e61ca | 3170 | #{tmp\ 1597}# |
c89222f8 | 3171 | '(any any . each-any)))) |
fb6e61ca AW |
3172 | #{e\ 1563}#) |
3173 | (if (memv #{type\ 1561}# | |
c89222f8 | 3174 | '(local-syntax-form)) |
fb6e61ca AW |
3175 | (#{chi-local-syntax\ 477}# |
3176 | #{value\ 1562}# | |
3177 | #{e\ 1563}# | |
3178 | #{r\ 1564}# | |
3179 | #{w\ 1565}# | |
3180 | #{s\ 1566}# | |
3181 | #{mod\ 1567}# | |
3182 | #{chi-sequence\ 455}#) | |
3183 | (if (memv #{type\ 1561}# | |
c89222f8 | 3184 | '(eval-when-form)) |
fb6e61ca AW |
3185 | ((lambda (#{tmp\ 1608}#) |
3186 | ((lambda (#{tmp\ 1609}#) | |
3187 | (if #{tmp\ 1609}# | |
3188 | (apply (lambda (#{_\ 1614}# | |
3189 | #{x\ 1615}# | |
3190 | #{e1\ 1616}# | |
3191 | #{e2\ 1617}#) | |
3192 | (let ((#{when-list\ 1619}# | |
3193 | (#{chi-when-list\ 461}# | |
3194 | #{e\ 1563}# | |
3195 | #{x\ 1615}# | |
3196 | #{w\ 1565}#))) | |
c89222f8 | 3197 | (if (memq 'eval |
fb6e61ca AW |
3198 | #{when-list\ 1619}#) |
3199 | (#{chi-sequence\ 455}# | |
3200 | (cons #{e1\ 1616}# | |
3201 | #{e2\ 1617}#) | |
3202 | #{r\ 1564}# | |
3203 | #{w\ 1565}# | |
3204 | #{s\ 1566}# | |
3205 | #{mod\ 1567}#) | |
3206 | (#{chi-void\ 481}#)))) | |
3207 | #{tmp\ 1609}#) | |
c89222f8 AW |
3208 | (syntax-violation |
3209 | #f | |
3210 | "source expression failed to match any pattern" | |
fb6e61ca | 3211 | #{tmp\ 1608}#))) |
c89222f8 | 3212 | ($sc-dispatch |
fb6e61ca | 3213 | #{tmp\ 1608}# |
c89222f8 | 3214 | '(any each-any any . each-any)))) |
fb6e61ca AW |
3215 | #{e\ 1563}#) |
3216 | (if (memv #{type\ 1561}# | |
c89222f8 AW |
3217 | '(define-form |
3218 | define-syntax-form)) | |
3219 | (syntax-violation | |
3220 | #f | |
3221 | "definition in expression context" | |
fb6e61ca AW |
3222 | #{e\ 1563}# |
3223 | (#{wrap\ 451}# | |
3224 | #{value\ 1562}# | |
3225 | #{w\ 1565}# | |
3226 | #{mod\ 1567}#)) | |
3227 | (if (memv #{type\ 1561}# | |
c89222f8 AW |
3228 | '(syntax)) |
3229 | (syntax-violation | |
3230 | #f | |
3231 | "reference to pattern variable outside syntax form" | |
fb6e61ca AW |
3232 | (#{source-wrap\ 453}# |
3233 | #{e\ 1563}# | |
3234 | #{w\ 1565}# | |
3235 | #{s\ 1566}# | |
3236 | #{mod\ 1567}#)) | |
3237 | (if (memv #{type\ 1561}# | |
c89222f8 AW |
3238 | '(displaced-lexical)) |
3239 | (syntax-violation | |
3240 | #f | |
3241 | "reference to identifier outside its scope" | |
fb6e61ca AW |
3242 | (#{source-wrap\ 453}# |
3243 | #{e\ 1563}# | |
3244 | #{w\ 1565}# | |
3245 | #{s\ 1566}# | |
3246 | #{mod\ 1567}#)) | |
c89222f8 AW |
3247 | (syntax-violation |
3248 | #f | |
3249 | "unexpected syntax" | |
fb6e61ca AW |
3250 | (#{source-wrap\ 453}# |
3251 | #{e\ 1563}# | |
3252 | #{w\ 1565}# | |
3253 | #{s\ 1566}# | |
3254 | #{mod\ 1567}#)))))))))))))))))) | |
3255 | (#{chi\ 467}# | |
3256 | (lambda (#{e\ 1626}# | |
3257 | #{r\ 1627}# | |
3258 | #{w\ 1628}# | |
3259 | #{mod\ 1629}#) | |
6360c1d4 AW |
3260 | (call-with-values |
3261 | (lambda () | |
fb6e61ca AW |
3262 | (#{syntax-type\ 463}# |
3263 | #{e\ 1626}# | |
3264 | #{r\ 1627}# | |
3265 | #{w\ 1628}# | |
3266 | (#{source-annotation\ 361}# #{e\ 1626}#) | |
6360c1d4 | 3267 | #f |
fb6e61ca | 3268 | #{mod\ 1629}# |
6360c1d4 | 3269 | #f)) |
fb6e61ca AW |
3270 | (lambda (#{type\ 1634}# |
3271 | #{value\ 1635}# | |
3272 | #{e\ 1636}# | |
3273 | #{w\ 1637}# | |
3274 | #{s\ 1638}# | |
3275 | #{mod\ 1639}#) | |
3276 | (#{chi-expr\ 469}# | |
3277 | #{type\ 1634}# | |
3278 | #{value\ 1635}# | |
3279 | #{e\ 1636}# | |
3280 | #{r\ 1627}# | |
3281 | #{w\ 1637}# | |
3282 | #{s\ 1638}# | |
3283 | #{mod\ 1639}#))))) | |
3284 | (#{chi-top\ 465}# | |
3285 | (lambda (#{e\ 1646}# | |
3286 | #{r\ 1647}# | |
3287 | #{w\ 1648}# | |
3288 | #{m\ 1649}# | |
3289 | #{esew\ 1650}# | |
3290 | #{mod\ 1651}#) | |
c89222f8 AW |
3291 | (call-with-values |
3292 | (lambda () | |
fb6e61ca AW |
3293 | (#{syntax-type\ 463}# |
3294 | #{e\ 1646}# | |
3295 | #{r\ 1647}# | |
3296 | #{w\ 1648}# | |
3297 | (#{source-annotation\ 361}# #{e\ 1646}#) | |
c89222f8 | 3298 | #f |
fb6e61ca | 3299 | #{mod\ 1651}# |
c89222f8 | 3300 | #f)) |
fb6e61ca AW |
3301 | (lambda (#{type\ 1672}# |
3302 | #{value\ 1673}# | |
3303 | #{e\ 1674}# | |
3304 | #{w\ 1675}# | |
3305 | #{s\ 1676}# | |
3306 | #{mod\ 1677}#) | |
3307 | (if (memv #{type\ 1672}# (quote (begin-form))) | |
3308 | ((lambda (#{tmp\ 1685}#) | |
3309 | ((lambda (#{tmp\ 1686}#) | |
3310 | (if #{tmp\ 1686}# | |
3311 | (apply (lambda (#{_\ 1688}#) (#{chi-void\ 481}#)) | |
3312 | #{tmp\ 1686}#) | |
3313 | ((lambda (#{tmp\ 1689}#) | |
3314 | (if #{tmp\ 1689}# | |
3315 | (apply (lambda (#{_\ 1693}# | |
3316 | #{e1\ 1694}# | |
3317 | #{e2\ 1695}#) | |
3318 | (#{chi-top-sequence\ 457}# | |
3319 | (cons #{e1\ 1694}# #{e2\ 1695}#) | |
3320 | #{r\ 1647}# | |
3321 | #{w\ 1675}# | |
3322 | #{s\ 1676}# | |
3323 | #{m\ 1649}# | |
3324 | #{esew\ 1650}# | |
3325 | #{mod\ 1677}#)) | |
3326 | #{tmp\ 1689}#) | |
c89222f8 AW |
3327 | (syntax-violation |
3328 | #f | |
3329 | "source expression failed to match any pattern" | |
fb6e61ca | 3330 | #{tmp\ 1685}#))) |
c89222f8 | 3331 | ($sc-dispatch |
fb6e61ca | 3332 | #{tmp\ 1685}# |
c89222f8 | 3333 | '(any any . each-any))))) |
fb6e61ca AW |
3334 | ($sc-dispatch #{tmp\ 1685}# (quote (any))))) |
3335 | #{e\ 1674}#) | |
3336 | (if (memv #{type\ 1672}# (quote (local-syntax-form))) | |
3337 | (#{chi-local-syntax\ 477}# | |
3338 | #{value\ 1673}# | |
3339 | #{e\ 1674}# | |
3340 | #{r\ 1647}# | |
3341 | #{w\ 1675}# | |
3342 | #{s\ 1676}# | |
3343 | #{mod\ 1677}# | |
3344 | (lambda (#{body\ 1698}# | |
3345 | #{r\ 1699}# | |
3346 | #{w\ 1700}# | |
3347 | #{s\ 1701}# | |
3348 | #{mod\ 1702}#) | |
3349 | (#{chi-top-sequence\ 457}# | |
3350 | #{body\ 1698}# | |
3351 | #{r\ 1699}# | |
3352 | #{w\ 1700}# | |
3353 | #{s\ 1701}# | |
3354 | #{m\ 1649}# | |
3355 | #{esew\ 1650}# | |
3356 | #{mod\ 1702}#))) | |
3357 | (if (memv #{type\ 1672}# (quote (eval-when-form))) | |
3358 | ((lambda (#{tmp\ 1709}#) | |
3359 | ((lambda (#{tmp\ 1710}#) | |
3360 | (if #{tmp\ 1710}# | |
3361 | (apply (lambda (#{_\ 1715}# | |
3362 | #{x\ 1716}# | |
3363 | #{e1\ 1717}# | |
3364 | #{e2\ 1718}#) | |
3365 | (let ((#{when-list\ 1721}# | |
3366 | (#{chi-when-list\ 461}# | |
3367 | #{e\ 1674}# | |
3368 | #{x\ 1716}# | |
3369 | #{w\ 1675}#)) | |
3370 | (#{body\ 1722}# | |
3371 | (cons #{e1\ 1717}# | |
3372 | #{e2\ 1718}#))) | |
3373 | (if (eq? #{m\ 1649}# (quote e)) | |
c89222f8 | 3374 | (if (memq 'eval |
fb6e61ca AW |
3375 | #{when-list\ 1721}#) |
3376 | (#{chi-top-sequence\ 457}# | |
3377 | #{body\ 1722}# | |
3378 | #{r\ 1647}# | |
3379 | #{w\ 1675}# | |
3380 | #{s\ 1676}# | |
807f7ab0 | 3381 | (if (memq 'expand |
fb6e61ca | 3382 | #{when-list\ 1721}#) |
807f7ab0 AW |
3383 | 'c&e |
3384 | 'e) | |
c89222f8 | 3385 | '(eval) |
fb6e61ca | 3386 | #{mod\ 1677}#) |
807f7ab0 AW |
3387 | (begin |
3388 | (if (memq 'expand | |
fb6e61ca AW |
3389 | #{when-list\ 1721}#) |
3390 | (#{top-level-eval-hook\ 291}# | |
3391 | (#{chi-top-sequence\ 457}# | |
3392 | #{body\ 1722}# | |
3393 | #{r\ 1647}# | |
3394 | #{w\ 1675}# | |
3395 | #{s\ 1676}# | |
807f7ab0 AW |
3396 | 'e |
3397 | '(eval) | |
fb6e61ca AW |
3398 | #{mod\ 1677}#) |
3399 | #{mod\ 1677}#)) | |
3400 | (#{chi-void\ 481}#))) | |
c89222f8 | 3401 | (if (memq 'load |
fb6e61ca AW |
3402 | #{when-list\ 1721}#) |
3403 | (if (let ((#{t\ 1731}# | |
f6a8e791 | 3404 | (memq 'compile |
fb6e61ca AW |
3405 | #{when-list\ 1721}#))) |
3406 | (if #{t\ 1731}# | |
3407 | #{t\ 1731}# | |
3408 | (let ((#{t\ 1734}# | |
807f7ab0 | 3409 | (memq 'expand |
fb6e61ca AW |
3410 | #{when-list\ 1721}#))) |
3411 | (if #{t\ 1734}# | |
3412 | #{t\ 1734}# | |
3413 | (if (eq? #{m\ 1649}# | |
807f7ab0 AW |
3414 | 'c&e) |
3415 | (memq 'eval | |
fb6e61ca | 3416 | #{when-list\ 1721}#) |
807f7ab0 | 3417 | #f))))) |
fb6e61ca AW |
3418 | (#{chi-top-sequence\ 457}# |
3419 | #{body\ 1722}# | |
3420 | #{r\ 1647}# | |
3421 | #{w\ 1675}# | |
3422 | #{s\ 1676}# | |
c89222f8 AW |
3423 | 'c&e |
3424 | '(compile load) | |
fb6e61ca AW |
3425 | #{mod\ 1677}#) |
3426 | (if (memq #{m\ 1649}# | |
c89222f8 | 3427 | '(c c&e)) |
fb6e61ca AW |
3428 | (#{chi-top-sequence\ 457}# |
3429 | #{body\ 1722}# | |
3430 | #{r\ 1647}# | |
3431 | #{w\ 1675}# | |
3432 | #{s\ 1676}# | |
c89222f8 AW |
3433 | 'c |
3434 | '(load) | |
fb6e61ca AW |
3435 | #{mod\ 1677}#) |
3436 | (#{chi-void\ 481}#))) | |
3437 | (if (let ((#{t\ 1742}# | |
f6a8e791 | 3438 | (memq 'compile |
fb6e61ca AW |
3439 | #{when-list\ 1721}#))) |
3440 | (if #{t\ 1742}# | |
3441 | #{t\ 1742}# | |
3442 | (let ((#{t\ 1745}# | |
807f7ab0 | 3443 | (memq 'expand |
fb6e61ca AW |
3444 | #{when-list\ 1721}#))) |
3445 | (if #{t\ 1745}# | |
3446 | #{t\ 1745}# | |
3447 | (if (eq? #{m\ 1649}# | |
807f7ab0 AW |
3448 | 'c&e) |
3449 | (memq 'eval | |
fb6e61ca | 3450 | #{when-list\ 1721}#) |
807f7ab0 | 3451 | #f))))) |
c89222f8 | 3452 | (begin |
fb6e61ca AW |
3453 | (#{top-level-eval-hook\ 291}# |
3454 | (#{chi-top-sequence\ 457}# | |
3455 | #{body\ 1722}# | |
3456 | #{r\ 1647}# | |
3457 | #{w\ 1675}# | |
3458 | #{s\ 1676}# | |
c89222f8 AW |
3459 | 'e |
3460 | '(eval) | |
fb6e61ca AW |
3461 | #{mod\ 1677}#) |
3462 | #{mod\ 1677}#) | |
3463 | (#{chi-void\ 481}#)) | |
3464 | (#{chi-void\ 481}#)))))) | |
3465 | #{tmp\ 1710}#) | |
df1cd5e5 AW |
3466 | (syntax-violation |
3467 | #f | |
3468 | "source expression failed to match any pattern" | |
fb6e61ca | 3469 | #{tmp\ 1709}#))) |
df1cd5e5 | 3470 | ($sc-dispatch |
fb6e61ca | 3471 | #{tmp\ 1709}# |
c89222f8 | 3472 | '(any each-any any . each-any)))) |
fb6e61ca AW |
3473 | #{e\ 1674}#) |
3474 | (if (memv #{type\ 1672}# | |
f6a8e791 | 3475 | '(define-syntax-form)) |
fb6e61ca AW |
3476 | (let ((#{n\ 1753}# |
3477 | (#{id-var-name\ 439}# | |
3478 | #{value\ 1673}# | |
3479 | #{w\ 1675}#)) | |
3480 | (#{r\ 1754}# | |
3481 | (#{macros-only-env\ 374}# #{r\ 1647}#))) | |
3482 | (if (memv #{m\ 1649}# (quote (c))) | |
3483 | (if (memq (quote compile) #{esew\ 1650}#) | |
3484 | (let ((#{e\ 1757}# | |
3485 | (#{chi-install-global\ 459}# | |
3486 | #{n\ 1753}# | |
3487 | (#{chi\ 467}# | |
3488 | #{e\ 1674}# | |
3489 | #{r\ 1754}# | |
3490 | #{w\ 1675}# | |
3491 | #{mod\ 1677}#)))) | |
c89222f8 | 3492 | (begin |
fb6e61ca AW |
3493 | (#{top-level-eval-hook\ 291}# |
3494 | #{e\ 1757}# | |
3495 | #{mod\ 1677}#) | |
3496 | (if (memq (quote load) #{esew\ 1650}#) | |
3497 | #{e\ 1757}# | |
3498 | (#{chi-void\ 481}#)))) | |
3499 | (if (memq (quote load) #{esew\ 1650}#) | |
3500 | (#{chi-install-global\ 459}# | |
3501 | #{n\ 1753}# | |
3502 | (#{chi\ 467}# | |
3503 | #{e\ 1674}# | |
3504 | #{r\ 1754}# | |
3505 | #{w\ 1675}# | |
3506 | #{mod\ 1677}#)) | |
3507 | (#{chi-void\ 481}#))) | |
3508 | (if (memv #{m\ 1649}# (quote (c&e))) | |
3509 | (let ((#{e\ 1760}# | |
3510 | (#{chi-install-global\ 459}# | |
3511 | #{n\ 1753}# | |
3512 | (#{chi\ 467}# | |
3513 | #{e\ 1674}# | |
3514 | #{r\ 1754}# | |
3515 | #{w\ 1675}# | |
3516 | #{mod\ 1677}#)))) | |
c89222f8 | 3517 | (begin |
fb6e61ca AW |
3518 | (#{top-level-eval-hook\ 291}# |
3519 | #{e\ 1760}# | |
3520 | #{mod\ 1677}#) | |
3521 | #{e\ 1760}#)) | |
c89222f8 | 3522 | (begin |
fb6e61ca AW |
3523 | (if (memq (quote eval) #{esew\ 1650}#) |
3524 | (#{top-level-eval-hook\ 291}# | |
3525 | (#{chi-install-global\ 459}# | |
3526 | #{n\ 1753}# | |
3527 | (#{chi\ 467}# | |
3528 | #{e\ 1674}# | |
3529 | #{r\ 1754}# | |
3530 | #{w\ 1675}# | |
3531 | #{mod\ 1677}#)) | |
3532 | #{mod\ 1677}#)) | |
3533 | (#{chi-void\ 481}#))))) | |
3534 | (if (memv #{type\ 1672}# (quote (define-form))) | |
3535 | (let ((#{n\ 1765}# | |
3536 | (#{id-var-name\ 439}# | |
3537 | #{value\ 1673}# | |
3538 | #{w\ 1675}#))) | |
3539 | (let ((#{type\ 1767}# | |
3540 | (#{binding-type\ 365}# | |
3541 | (#{lookup\ 376}# | |
3542 | #{n\ 1765}# | |
3543 | #{r\ 1647}# | |
3544 | #{mod\ 1677}#)))) | |
3545 | (if (memv #{type\ 1767}# | |
c89222f8 AW |
3546 | '(global core macro module-ref)) |
3547 | (begin | |
fb6e61ca | 3548 | (if (if (memq #{m\ 1649}# (quote (c c&e))) |
fe58ead4 AW |
3549 | (if (not (module-local-variable |
3550 | (current-module) | |
fb6e61ca | 3551 | #{n\ 1765}#)) |
fe58ead4 AW |
3552 | (current-module) |
3553 | #f) | |
c89222f8 | 3554 | #f) |
fb6e61ca | 3555 | (let ((#{old\ 1773}# |
c89222f8 AW |
3556 | (module-variable |
3557 | (current-module) | |
fb6e61ca | 3558 | #{n\ 1765}#))) |
c89222f8 AW |
3559 | (module-define! |
3560 | (current-module) | |
fb6e61ca AW |
3561 | #{n\ 1765}# |
3562 | (if (variable? #{old\ 1773}#) | |
3563 | (variable-ref #{old\ 1773}#) | |
c89222f8 | 3564 | #f)))) |
fb6e61ca AW |
3565 | (let ((#{x\ 1776}# |
3566 | (#{build-global-definition\ 322}# | |
3567 | #{s\ 1676}# | |
3568 | #{n\ 1765}# | |
3569 | (#{chi\ 467}# | |
3570 | #{e\ 1674}# | |
3571 | #{r\ 1647}# | |
3572 | #{w\ 1675}# | |
3573 | #{mod\ 1677}#)))) | |
c89222f8 | 3574 | (begin |
fb6e61ca AW |
3575 | (if (eq? #{m\ 1649}# (quote c&e)) |
3576 | (#{top-level-eval-hook\ 291}# | |
3577 | #{x\ 1776}# | |
3578 | #{mod\ 1677}#)) | |
3579 | #{x\ 1776}#))) | |
3580 | (if (memv #{type\ 1767}# | |
c89222f8 AW |
3581 | '(displaced-lexical)) |
3582 | (syntax-violation | |
3583 | #f | |
3584 | "identifier out of context" | |
fb6e61ca AW |
3585 | #{e\ 1674}# |
3586 | (#{wrap\ 451}# | |
3587 | #{value\ 1673}# | |
3588 | #{w\ 1675}# | |
3589 | #{mod\ 1677}#)) | |
c89222f8 AW |
3590 | (syntax-violation |
3591 | #f | |
3592 | "cannot define keyword at top level" | |
fb6e61ca AW |
3593 | #{e\ 1674}# |
3594 | (#{wrap\ 451}# | |
3595 | #{value\ 1673}# | |
3596 | #{w\ 1675}# | |
3597 | #{mod\ 1677}#)))))) | |
3598 | (let ((#{x\ 1782}# | |
3599 | (#{chi-expr\ 469}# | |
3600 | #{type\ 1672}# | |
3601 | #{value\ 1673}# | |
3602 | #{e\ 1674}# | |
3603 | #{r\ 1647}# | |
3604 | #{w\ 1675}# | |
3605 | #{s\ 1676}# | |
3606 | #{mod\ 1677}#))) | |
c89222f8 | 3607 | (begin |
fb6e61ca AW |
3608 | (if (eq? #{m\ 1649}# (quote c&e)) |
3609 | (#{top-level-eval-hook\ 291}# | |
3610 | #{x\ 1782}# | |
3611 | #{mod\ 1677}#)) | |
3612 | #{x\ 1782}#))))))))))) | |
3613 | (#{syntax-type\ 463}# | |
3614 | (lambda (#{e\ 1783}# | |
3615 | #{r\ 1784}# | |
3616 | #{w\ 1785}# | |
3617 | #{s\ 1786}# | |
3618 | #{rib\ 1787}# | |
3619 | #{mod\ 1788}# | |
3620 | #{for-car?\ 1789}#) | |
3621 | (if (symbol? #{e\ 1783}#) | |
3622 | (let ((#{n\ 1801}# | |
3623 | (#{id-var-name\ 439}# #{e\ 1783}# #{w\ 1785}#))) | |
3624 | (let ((#{b\ 1803}# | |
3625 | (#{lookup\ 376}# | |
3626 | #{n\ 1801}# | |
3627 | #{r\ 1784}# | |
3628 | #{mod\ 1788}#))) | |
3629 | (let ((#{type\ 1805}# | |
3630 | (#{binding-type\ 365}# #{b\ 1803}#))) | |
3631 | (if (memv #{type\ 1805}# (quote (lexical))) | |
c89222f8 | 3632 | (values |
fb6e61ca AW |
3633 | #{type\ 1805}# |
3634 | (#{binding-value\ 367}# #{b\ 1803}#) | |
3635 | #{e\ 1783}# | |
3636 | #{w\ 1785}# | |
3637 | #{s\ 1786}# | |
3638 | #{mod\ 1788}#) | |
3639 | (if (memv #{type\ 1805}# (quote (global))) | |
c89222f8 | 3640 | (values |
fb6e61ca AW |
3641 | #{type\ 1805}# |
3642 | #{n\ 1801}# | |
3643 | #{e\ 1783}# | |
3644 | #{w\ 1785}# | |
3645 | #{s\ 1786}# | |
3646 | #{mod\ 1788}#) | |
3647 | (if (memv #{type\ 1805}# (quote (macro))) | |
3648 | (if #{for-car?\ 1789}# | |
c89222f8 | 3649 | (values |
fb6e61ca AW |
3650 | #{type\ 1805}# |
3651 | (#{binding-value\ 367}# #{b\ 1803}#) | |
3652 | #{e\ 1783}# | |
3653 | #{w\ 1785}# | |
3654 | #{s\ 1786}# | |
3655 | #{mod\ 1788}#) | |
3656 | (#{syntax-type\ 463}# | |
3657 | (#{chi-macro\ 473}# | |
3658 | (#{binding-value\ 367}# #{b\ 1803}#) | |
3659 | #{e\ 1783}# | |
3660 | #{r\ 1784}# | |
3661 | #{w\ 1785}# | |
3662 | #{s\ 1786}# | |
3663 | #{rib\ 1787}# | |
3664 | #{mod\ 1788}#) | |
3665 | #{r\ 1784}# | |
c89222f8 | 3666 | '(()) |
fb6e61ca AW |
3667 | #{s\ 1786}# |
3668 | #{rib\ 1787}# | |
3669 | #{mod\ 1788}# | |
c89222f8 AW |
3670 | #f)) |
3671 | (values | |
fb6e61ca AW |
3672 | #{type\ 1805}# |
3673 | (#{binding-value\ 367}# #{b\ 1803}#) | |
3674 | #{e\ 1783}# | |
3675 | #{w\ 1785}# | |
3676 | #{s\ 1786}# | |
3677 | #{mod\ 1788}#))))))) | |
3678 | (if (pair? #{e\ 1783}#) | |
3679 | (let ((#{first\ 1814}# (car #{e\ 1783}#))) | |
c89222f8 AW |
3680 | (call-with-values |
3681 | (lambda () | |
fb6e61ca AW |
3682 | (#{syntax-type\ 463}# |
3683 | #{first\ 1814}# | |
3684 | #{r\ 1784}# | |
3685 | #{w\ 1785}# | |
3686 | #{s\ 1786}# | |
3687 | #{rib\ 1787}# | |
3688 | #{mod\ 1788}# | |
c89222f8 | 3689 | #t)) |
fb6e61ca AW |
3690 | (lambda (#{ftype\ 1815}# |
3691 | #{fval\ 1816}# | |
3692 | #{fe\ 1817}# | |
3693 | #{fw\ 1818}# | |
3694 | #{fs\ 1819}# | |
3695 | #{fmod\ 1820}#) | |
3696 | (if (memv #{ftype\ 1815}# (quote (lexical))) | |
c89222f8 AW |
3697 | (values |
3698 | 'lexical-call | |
fb6e61ca AW |
3699 | #{fval\ 1816}# |
3700 | #{e\ 1783}# | |
3701 | #{w\ 1785}# | |
3702 | #{s\ 1786}# | |
3703 | #{mod\ 1788}#) | |
3704 | (if (memv #{ftype\ 1815}# (quote (global))) | |
c89222f8 AW |
3705 | (values |
3706 | 'global-call | |
fb6e61ca AW |
3707 | (#{make-syntax-object\ 344}# |
3708 | #{fval\ 1816}# | |
3709 | #{w\ 1785}# | |
3710 | #{fmod\ 1820}#) | |
3711 | #{e\ 1783}# | |
3712 | #{w\ 1785}# | |
3713 | #{s\ 1786}# | |
3714 | #{mod\ 1788}#) | |
3715 | (if (memv #{ftype\ 1815}# (quote (macro))) | |
3716 | (#{syntax-type\ 463}# | |
3717 | (#{chi-macro\ 473}# | |
3718 | #{fval\ 1816}# | |
3719 | #{e\ 1783}# | |
3720 | #{r\ 1784}# | |
3721 | #{w\ 1785}# | |
3722 | #{s\ 1786}# | |
3723 | #{rib\ 1787}# | |
3724 | #{mod\ 1788}#) | |
3725 | #{r\ 1784}# | |
c89222f8 | 3726 | '(()) |
fb6e61ca AW |
3727 | #{s\ 1786}# |
3728 | #{rib\ 1787}# | |
3729 | #{mod\ 1788}# | |
3730 | #{for-car?\ 1789}#) | |
3731 | (if (memv #{ftype\ 1815}# (quote (module-ref))) | |
c89222f8 | 3732 | (call-with-values |
9365d8ad | 3733 | (lambda () |
fb6e61ca AW |
3734 | (#{fval\ 1816}# |
3735 | #{e\ 1783}# | |
3736 | #{r\ 1784}# | |
3737 | #{w\ 1785}#)) | |
3738 | (lambda (#{e\ 1832}# | |
3739 | #{r\ 1833}# | |
3740 | #{w\ 1834}# | |
3741 | #{s\ 1835}# | |
3742 | #{mod\ 1836}#) | |
3743 | (#{syntax-type\ 463}# | |
3744 | #{e\ 1832}# | |
3745 | #{r\ 1833}# | |
3746 | #{w\ 1834}# | |
3747 | #{s\ 1835}# | |
3748 | #{rib\ 1787}# | |
3749 | #{mod\ 1836}# | |
3750 | #{for-car?\ 1789}#))) | |
3751 | (if (memv #{ftype\ 1815}# (quote (core))) | |
c89222f8 AW |
3752 | (values |
3753 | 'core-form | |
fb6e61ca AW |
3754 | #{fval\ 1816}# |
3755 | #{e\ 1783}# | |
3756 | #{w\ 1785}# | |
3757 | #{s\ 1786}# | |
3758 | #{mod\ 1788}#) | |
3759 | (if (memv #{ftype\ 1815}# | |
c89222f8 AW |
3760 | '(local-syntax)) |
3761 | (values | |
3762 | 'local-syntax-form | |
fb6e61ca AW |
3763 | #{fval\ 1816}# |
3764 | #{e\ 1783}# | |
3765 | #{w\ 1785}# | |
3766 | #{s\ 1786}# | |
3767 | #{mod\ 1788}#) | |
3768 | (if (memv #{ftype\ 1815}# (quote (begin))) | |
c89222f8 AW |
3769 | (values |
3770 | 'begin-form | |
3771 | #f | |
fb6e61ca AW |
3772 | #{e\ 1783}# |
3773 | #{w\ 1785}# | |
3774 | #{s\ 1786}# | |
3775 | #{mod\ 1788}#) | |
3776 | (if (memv #{ftype\ 1815}# | |
c89222f8 AW |
3777 | '(eval-when)) |
3778 | (values | |
3779 | 'eval-when-form | |
3780 | #f | |
fb6e61ca AW |
3781 | #{e\ 1783}# |
3782 | #{w\ 1785}# | |
3783 | #{s\ 1786}# | |
3784 | #{mod\ 1788}#) | |
3785 | (if (memv #{ftype\ 1815}# | |
c89222f8 | 3786 | '(define)) |
fb6e61ca AW |
3787 | ((lambda (#{tmp\ 1847}#) |
3788 | ((lambda (#{tmp\ 1848}#) | |
3789 | (if (if #{tmp\ 1848}# | |
3790 | (apply (lambda (#{_\ 1852}# | |
3791 | #{name\ 1853}# | |
3792 | #{val\ 1854}#) | |
3793 | (#{id?\ 382}# | |
3794 | #{name\ 1853}#)) | |
3795 | #{tmp\ 1848}#) | |
c89222f8 | 3796 | #f) |
fb6e61ca AW |
3797 | (apply (lambda (#{_\ 1858}# |
3798 | #{name\ 1859}# | |
3799 | #{val\ 1860}#) | |
c89222f8 AW |
3800 | (values |
3801 | 'define-form | |
fb6e61ca AW |
3802 | #{name\ 1859}# |
3803 | #{val\ 1860}# | |
3804 | #{w\ 1785}# | |
3805 | #{s\ 1786}# | |
3806 | #{mod\ 1788}#)) | |
3807 | #{tmp\ 1848}#) | |
3808 | ((lambda (#{tmp\ 1861}#) | |
3809 | (if (if #{tmp\ 1861}# | |
3810 | (apply (lambda (#{_\ 1867}# | |
3811 | #{name\ 1868}# | |
3812 | #{args\ 1869}# | |
3813 | #{e1\ 1870}# | |
3814 | #{e2\ 1871}#) | |
3815 | (if (#{id?\ 382}# | |
3816 | #{name\ 1868}#) | |
3817 | (#{valid-bound-ids?\ 445}# | |
3818 | (#{lambda-var-list\ 497}# | |
3819 | #{args\ 1869}#)) | |
c89222f8 | 3820 | #f)) |
fb6e61ca | 3821 | #{tmp\ 1861}#) |
c89222f8 | 3822 | #f) |
fb6e61ca AW |
3823 | (apply (lambda (#{_\ 1879}# |
3824 | #{name\ 1880}# | |
3825 | #{args\ 1881}# | |
3826 | #{e1\ 1882}# | |
3827 | #{e2\ 1883}#) | |
c89222f8 AW |
3828 | (values |
3829 | 'define-form | |
fb6e61ca AW |
3830 | (#{wrap\ 451}# |
3831 | #{name\ 1880}# | |
3832 | #{w\ 1785}# | |
3833 | #{mod\ 1788}#) | |
3834 | (#{decorate-source\ 300}# | |
c89222f8 AW |
3835 | (cons '#(syntax-object |
3836 | lambda | |
3837 | ((top) | |
3838 | #(ribcage | |
3839 | #(_ | |
3840 | name | |
3841 | args | |
3842 | e1 | |
3843 | e2) | |
3844 | #((top) | |
3845 | (top) | |
3846 | (top) | |
3847 | (top) | |
3848 | (top)) | |
fb6e61ca AW |
3849 | #("i1874" |
3850 | "i1875" | |
3851 | "i1876" | |
3852 | "i1877" | |
3853 | "i1878")) | |
c89222f8 AW |
3854 | #(ribcage |
3855 | () | |
3856 | () | |
3857 | ()) | |
3858 | #(ribcage | |
3859 | () | |
3860 | () | |
3861 | ()) | |
3862 | #(ribcage | |
3863 | #(ftype | |
3864 | fval | |
3865 | fe | |
3866 | fw | |
3867 | fs | |
3868 | fmod) | |
3869 | #((top) | |
3870 | (top) | |
3871 | (top) | |
3872 | (top) | |
3873 | (top) | |
3874 | (top)) | |
fb6e61ca AW |
3875 | #("i1821" |
3876 | "i1822" | |
3877 | "i1823" | |
3878 | "i1824" | |
3879 | "i1825" | |
3880 | "i1826")) | |
c89222f8 AW |
3881 | #(ribcage |
3882 | () | |
3883 | () | |
3884 | ()) | |
3885 | #(ribcage | |
3886 | #(first) | |
3887 | #((top)) | |
fb6e61ca | 3888 | #("i1813")) |
c89222f8 AW |
3889 | #(ribcage |
3890 | () | |
3891 | () | |
3892 | ()) | |
3893 | #(ribcage | |
3894 | () | |
3895 | () | |
3896 | ()) | |
3897 | #(ribcage | |
3898 | () | |
3899 | () | |
3900 | ()) | |
3901 | #(ribcage | |
3902 | #(e | |
3903 | r | |
3904 | w | |
3905 | s | |
3906 | rib | |
3907 | mod | |
3908 | for-car?) | |
3909 | #((top) | |
3910 | (top) | |
3911 | (top) | |
3912 | (top) | |
3913 | (top) | |
3914 | (top) | |
3915 | (top)) | |
fb6e61ca AW |
3916 | #("i1790" |
3917 | "i1791" | |
3918 | "i1792" | |
3919 | "i1793" | |
3920 | "i1794" | |
3921 | "i1795" | |
3922 | "i1796")) | |
c89222f8 AW |
3923 | #(ribcage |
3924 | (lambda-var-list | |
3925 | gen-var | |
3926 | strip | |
3927 | chi-lambda-case | |
3928 | lambda*-formals | |
3929 | chi-simple-lambda | |
3930 | lambda-formals | |
3931 | ellipsis? | |
3932 | chi-void | |
3933 | eval-local-transformer | |
3934 | chi-local-syntax | |
3935 | chi-body | |
3936 | chi-macro | |
3937 | chi-application | |
3938 | chi-expr | |
3939 | chi | |
3940 | chi-top | |
3941 | syntax-type | |
3942 | chi-when-list | |
3943 | chi-install-global | |
3944 | chi-top-sequence | |
3945 | chi-sequence | |
3946 | source-wrap | |
3947 | wrap | |
3948 | bound-id-member? | |
3949 | distinct-bound-ids? | |
3950 | valid-bound-ids? | |
3951 | bound-id=? | |
3952 | free-id=? | |
3953 | id-var-name | |
3954 | same-marks? | |
3955 | join-marks | |
3956 | join-wraps | |
3957 | smart-append | |
3958 | make-binding-wrap | |
3959 | extend-ribcage! | |
3960 | make-empty-ribcage | |
3961 | new-mark | |
3962 | anti-mark | |
3963 | the-anti-mark | |
3964 | top-marked? | |
3965 | top-wrap | |
3966 | empty-wrap | |
3967 | set-ribcage-labels! | |
3968 | set-ribcage-marks! | |
3969 | set-ribcage-symnames! | |
3970 | ribcage-labels | |
3971 | ribcage-marks | |
3972 | ribcage-symnames | |
3973 | ribcage? | |
3974 | make-ribcage | |
3975 | gen-labels | |
3976 | gen-label | |
3977 | make-rename | |
3978 | rename-marks | |
3979 | rename-new | |
3980 | rename-old | |
3981 | subst-rename? | |
3982 | wrap-subst | |
3983 | wrap-marks | |
3984 | make-wrap | |
3985 | id-sym-name&marks | |
3986 | id-sym-name | |
3987 | id? | |
3988 | nonsymbol-id? | |
3989 | global-extend | |
3990 | lookup | |
3991 | macros-only-env | |
3992 | extend-var-env | |
3993 | extend-env | |
3994 | null-env | |
3995 | binding-value | |
3996 | binding-type | |
3997 | make-binding | |
3998 | arg-check | |
3999 | source-annotation | |
4000 | no-source | |
4001 | set-syntax-object-module! | |
4002 | set-syntax-object-wrap! | |
4003 | set-syntax-object-expression! | |
4004 | syntax-object-module | |
4005 | syntax-object-wrap | |
4006 | syntax-object-expression | |
4007 | syntax-object? | |
4008 | make-syntax-object | |
4009 | build-lexical-var | |
4010 | build-letrec | |
4011 | build-named-let | |
4012 | build-let | |
4013 | build-sequence | |
4014 | build-data | |
4015 | build-primref | |
4016 | build-lambda-case | |
4017 | build-case-lambda | |
4018 | build-simple-lambda | |
4019 | build-global-definition | |
4020 | maybe-name-value! | |
4021 | build-global-assignment | |
4022 | build-global-reference | |
4023 | analyze-variable | |
4024 | build-lexical-assignment | |
4025 | build-lexical-reference | |
6360c1d4 | 4026 | build-dynlet |
c89222f8 AW |
4027 | build-conditional |
4028 | build-application | |
4029 | build-void | |
4030 | decorate-source | |
4031 | get-global-definition-hook | |
4032 | put-global-definition-hook | |
4033 | gensym-hook | |
4034 | local-eval-hook | |
4035 | top-level-eval-hook | |
4036 | fx< | |
4037 | fx= | |
4038 | fx- | |
4039 | fx+ | |
22cf27c8 AW |
4040 | set-lambda-meta! |
4041 | lambda-meta | |
4042 | lambda? | |
3d10018e AW |
4043 | make-dynlet |
4044 | make-letrec | |
4045 | make-let | |
4046 | make-lambda-case | |
4047 | make-lambda | |
4048 | make-sequence | |
4049 | make-application | |
4050 | make-conditional | |
4051 | make-toplevel-define | |
4052 | make-toplevel-set | |
4053 | make-toplevel-ref | |
4054 | make-module-set | |
4055 | make-module-ref | |
4056 | make-lexical-set | |
4057 | make-lexical-ref | |
4058 | make-primitive-ref | |
4059 | make-const | |
131ae7b4 | 4060 | make-void) |
c89222f8 AW |
4061 | ((top) |
4062 | (top) | |
4063 | (top) | |
4064 | (top) | |
4065 | (top) | |
4066 | (top) | |
4067 | (top) | |
4068 | (top) | |
4069 | (top) | |
4070 | (top) | |
4071 | (top) | |
4072 | (top) | |
4073 | (top) | |
4074 | (top) | |
4075 | (top) | |
4076 | (top) | |
4077 | (top) | |
4078 | (top) | |
4079 | (top) | |
4080 | (top) | |
4081 | (top) | |
4082 | (top) | |
4083 | (top) | |
4084 | (top) | |
4085 | (top) | |
4086 | (top) | |
4087 | (top) | |
4088 | (top) | |
4089 | (top) | |
4090 | (top) | |
4091 | (top) | |
4092 | (top) | |
4093 | (top) | |
4094 | (top) | |
4095 | (top) | |
4096 | (top) | |
4097 | (top) | |
4098 | (top) | |
4099 | (top) | |
4100 | (top) | |
4101 | (top) | |
4102 | (top) | |
4103 | (top) | |
4104 | (top) | |
4105 | (top) | |
4106 | (top) | |
4107 | (top) | |
4108 | (top) | |
4109 | (top) | |
4110 | (top) | |
4111 | (top) | |
4112 | (top) | |
4113 | (top) | |
4114 | (top) | |
4115 | (top) | |
4116 | (top) | |
4117 | (top) | |
4118 | (top) | |
4119 | (top) | |
4120 | (top) | |
4121 | (top) | |
4122 | (top) | |
4123 | (top) | |
4124 | (top) | |
4125 | (top) | |
4126 | (top) | |
4127 | (top) | |
4128 | (top) | |
4129 | (top) | |
4130 | (top) | |
4131 | (top) | |
4132 | (top) | |
4133 | (top) | |
4134 | (top) | |
4135 | (top) | |
4136 | (top) | |
4137 | (top) | |
4138 | (top) | |
4139 | (top) | |
4140 | (top) | |
4141 | (top) | |
4142 | (top) | |
4143 | (top) | |
4144 | (top) | |
4145 | (top) | |
4146 | (top) | |
4147 | (top) | |
4148 | (top) | |
4149 | (top) | |
4150 | (top) | |
4151 | (top) | |
4152 | (top) | |
4153 | (top) | |
4154 | (top) | |
4155 | (top) | |
4156 | (top) | |
4157 | (top) | |
4158 | (top) | |
4159 | (top) | |
4160 | (top) | |
4161 | (top) | |
4162 | (top) | |
4163 | (top) | |
4164 | (top) | |
4165 | (top) | |
4166 | (top) | |
4167 | (top) | |
4168 | (top) | |
4169 | (top) | |
4170 | (top) | |
4171 | (top) | |
4172 | (top) | |
4173 | (top) | |
4174 | (top) | |
4175 | (top) | |
4176 | (top) | |
3d10018e AW |
4177 | (top) |
4178 | (top) | |
4179 | (top) | |
4180 | (top) | |
4181 | (top) | |
4182 | (top) | |
4183 | (top) | |
4184 | (top) | |
4185 | (top) | |
4186 | (top) | |
4187 | (top) | |
4188 | (top) | |
4189 | (top) | |
4190 | (top) | |
4191 | (top) | |
4192 | (top) | |
4193 | (top) | |
22cf27c8 AW |
4194 | (top) |
4195 | (top) | |
4196 | (top) | |
c89222f8 | 4197 | (top)) |
fb6e61ca AW |
4198 | ("i496" |
4199 | "i494" | |
4200 | "i492" | |
4201 | "i490" | |
4202 | "i488" | |
4203 | "i486" | |
22cf27c8 AW |
4204 | "i484" |
4205 | "i482" | |
4206 | "i480" | |
4207 | "i478" | |
4208 | "i476" | |
4209 | "i474" | |
4210 | "i472" | |
4211 | "i470" | |
4212 | "i468" | |
4213 | "i466" | |
4214 | "i464" | |
4215 | "i462" | |
4216 | "i460" | |
4217 | "i458" | |
4218 | "i456" | |
4219 | "i454" | |
4220 | "i452" | |
4221 | "i450" | |
4222 | "i448" | |
4223 | "i446" | |
4224 | "i444" | |
4225 | "i442" | |
4226 | "i440" | |
4227 | "i438" | |
4228 | "i436" | |
4229 | "i434" | |
4230 | "i432" | |
4231 | "i430" | |
4232 | "i428" | |
4233 | "i426" | |
fb6e61ca | 4234 | "i425" |
22cf27c8 AW |
4235 | "i424" |
4236 | "i422" | |
fb6e61ca | 4237 | "i421" |
22cf27c8 | 4238 | "i420" |
fb6e61ca | 4239 | "i419" |
22cf27c8 AW |
4240 | "i418" |
4241 | "i416" | |
22cf27c8 AW |
4242 | "i414" |
4243 | "i412" | |
22cf27c8 | 4244 | "i410" |
22cf27c8 AW |
4245 | "i408" |
4246 | "i406" | |
4247 | "i404" | |
4248 | "i402" | |
fb6e61ca AW |
4249 | "i399" |
4250 | "i397" | |
22cf27c8 | 4251 | "i396" |
fb6e61ca | 4252 | "i395" |
22cf27c8 | 4253 | "i394" |
fb6e61ca | 4254 | "i393" |
22cf27c8 | 4255 | "i392" |
fb6e61ca AW |
4256 | "i390" |
4257 | "i388" | |
22cf27c8 | 4258 | "i386" |
22cf27c8 | 4259 | "i384" |
131ae7b4 | 4260 | "i383" |
fb6e61ca AW |
4261 | "i381" |
4262 | "i379" | |
4263 | "i377" | |
4264 | "i375" | |
131ae7b4 AW |
4265 | "i373" |
4266 | "i371" | |
4267 | "i369" | |
fb6e61ca AW |
4268 | "i368" |
4269 | "i366" | |
4270 | "i364" | |
131ae7b4 | 4271 | "i363" |
fb6e61ca AW |
4272 | "i362" |
4273 | "i360" | |
131ae7b4 | 4274 | "i359" |
fb6e61ca AW |
4275 | "i357" |
4276 | "i355" | |
131ae7b4 | 4277 | "i353" |
fb6e61ca | 4278 | "i351" |
131ae7b4 AW |
4279 | "i349" |
4280 | "i347" | |
131ae7b4 | 4281 | "i345" |
131ae7b4 AW |
4282 | "i343" |
4283 | "i341" | |
4284 | "i339" | |
4285 | "i337" | |
4286 | "i335" | |
4287 | "i333" | |
4288 | "i331" | |
4289 | "i329" | |
4290 | "i327" | |
22cf27c8 AW |
4291 | "i325" |
4292 | "i323" | |
131ae7b4 | 4293 | "i321" |
131ae7b4 | 4294 | "i319" |
131ae7b4 AW |
4295 | "i317" |
4296 | "i315" | |
4297 | "i313" | |
4298 | "i311" | |
4299 | "i309" | |
22cf27c8 AW |
4300 | "i307" |
4301 | "i305" | |
4302 | "i303" | |
4303 | "i301" | |
4304 | "i299" | |
4305 | "i297" | |
4306 | "i295" | |
fb6e61ca AW |
4307 | "i294" |
4308 | "i292" | |
4309 | "i290" | |
4310 | "i288" | |
4311 | "i286" | |
131ae7b4 AW |
4312 | "i284" |
4313 | "i282" | |
4314 | "i280" | |
4315 | "i278" | |
4316 | "i276" | |
fb6e61ca AW |
4317 | "i273" |
4318 | "i271" | |
4319 | "i269" | |
4320 | "i267" | |
4321 | "i265" | |
22cf27c8 AW |
4322 | "i263" |
4323 | "i261" | |
4324 | "i259" | |
4325 | "i257" | |
4326 | "i255" | |
4327 | "i253" | |
4328 | "i251" | |
4329 | "i249" | |
4330 | "i247" | |
4331 | "i245" | |
4332 | "i243" | |
4333 | "i241" | |
fb6e61ca | 4334 | "i239")) |
c89222f8 AW |
4335 | #(ribcage |
4336 | (define-structure | |
22cf27c8 | 4337 | define-expansion-accessors |
3d10018e | 4338 | define-expansion-constructors |
c89222f8 AW |
4339 | and-map*) |
4340 | ((top) | |
22cf27c8 | 4341 | (top) |
3d10018e | 4342 | (top) |
c89222f8 | 4343 | (top)) |
fb6e61ca AW |
4344 | ("i33" |
4345 | "i32" | |
4346 | "i31" | |
4347 | "i29"))) | |
c89222f8 AW |
4348 | (hygiene |
4349 | guile)) | |
fb6e61ca AW |
4350 | (#{wrap\ 451}# |
4351 | (cons #{args\ 1881}# | |
4352 | (cons #{e1\ 1882}# | |
4353 | #{e2\ 1883}#)) | |
4354 | #{w\ 1785}# | |
4355 | #{mod\ 1788}#)) | |
4356 | #{s\ 1786}#) | |
c89222f8 | 4357 | '(()) |
fb6e61ca AW |
4358 | #{s\ 1786}# |
4359 | #{mod\ 1788}#)) | |
4360 | #{tmp\ 1861}#) | |
4361 | ((lambda (#{tmp\ 1886}#) | |
4362 | (if (if #{tmp\ 1886}# | |
4363 | (apply (lambda (#{_\ 1889}# | |
4364 | #{name\ 1890}#) | |
4365 | (#{id?\ 382}# | |
4366 | #{name\ 1890}#)) | |
4367 | #{tmp\ 1886}#) | |
c89222f8 | 4368 | #f) |
fb6e61ca AW |
4369 | (apply (lambda (#{_\ 1893}# |
4370 | #{name\ 1894}#) | |
c89222f8 AW |
4371 | (values |
4372 | 'define-form | |
fb6e61ca AW |
4373 | (#{wrap\ 451}# |
4374 | #{name\ 1894}# | |
4375 | #{w\ 1785}# | |
4376 | #{mod\ 1788}#) | |
c89222f8 AW |
4377 | '(#(syntax-object |
4378 | if | |
4379 | ((top) | |
4380 | #(ribcage | |
4381 | #(_ | |
4382 | name) | |
4383 | #((top) | |
4384 | (top)) | |
fb6e61ca AW |
4385 | #("i1891" |
4386 | "i1892")) | |
c89222f8 AW |
4387 | #(ribcage |
4388 | () | |
4389 | () | |
4390 | ()) | |
4391 | #(ribcage | |
4392 | () | |
4393 | () | |
4394 | ()) | |
4395 | #(ribcage | |
4396 | #(ftype | |
4397 | fval | |
4398 | fe | |
4399 | fw | |
4400 | fs | |
4401 | fmod) | |
4402 | #((top) | |
4403 | (top) | |
4404 | (top) | |
4405 | (top) | |
4406 | (top) | |
4407 | (top)) | |
fb6e61ca AW |
4408 | #("i1821" |
4409 | "i1822" | |
4410 | "i1823" | |
4411 | "i1824" | |
4412 | "i1825" | |
4413 | "i1826")) | |
c89222f8 AW |
4414 | #(ribcage |
4415 | () | |
4416 | () | |
4417 | ()) | |
4418 | #(ribcage | |
4419 | #(first) | |
4420 | #((top)) | |
fb6e61ca | 4421 | #("i1813")) |
c89222f8 AW |
4422 | #(ribcage |
4423 | () | |
4424 | () | |
4425 | ()) | |
4426 | #(ribcage | |
4427 | () | |
4428 | () | |
4429 | ()) | |
4430 | #(ribcage | |
4431 | () | |
4432 | () | |
4433 | ()) | |
4434 | #(ribcage | |
4435 | #(e | |
4436 | r | |
4437 | w | |
4438 | s | |
4439 | rib | |
4440 | mod | |
4441 | for-car?) | |
4442 | #((top) | |
4443 | (top) | |
4444 | (top) | |
4445 | (top) | |
4446 | (top) | |
4447 | (top) | |
4448 | (top)) | |
fb6e61ca AW |
4449 | #("i1790" |
4450 | "i1791" | |
4451 | "i1792" | |
4452 | "i1793" | |
4453 | "i1794" | |
4454 | "i1795" | |
4455 | "i1796")) | |
c89222f8 AW |
4456 | #(ribcage |
4457 | (lambda-var-list | |
4458 | gen-var | |
4459 | strip | |
4460 | chi-lambda-case | |
4461 | lambda*-formals | |
4462 | chi-simple-lambda | |
4463 | lambda-formals | |
4464 | ellipsis? | |
4465 | chi-void | |
4466 | eval-local-transformer | |
4467 | chi-local-syntax | |
4468 | chi-body | |
4469 | chi-macro | |
4470 | chi-application | |
4471 | chi-expr | |
4472 | chi | |
4473 | chi-top | |
4474 | syntax-type | |
4475 | chi-when-list | |
4476 | chi-install-global | |
4477 | chi-top-sequence | |
4478 | chi-sequence | |
4479 | source-wrap | |
4480 | wrap | |
4481 | bound-id-member? | |
4482 | distinct-bound-ids? | |
4483 | valid-bound-ids? | |
4484 | bound-id=? | |
4485 | free-id=? | |
4486 | id-var-name | |
4487 | same-marks? | |
4488 | join-marks | |
4489 | join-wraps | |
4490 | smart-append | |
4491 | make-binding-wrap | |
4492 | extend-ribcage! | |
4493 | make-empty-ribcage | |
4494 | new-mark | |
4495 | anti-mark | |
4496 | the-anti-mark | |
4497 | top-marked? | |
4498 | top-wrap | |
4499 | empty-wrap | |
4500 | set-ribcage-labels! | |
4501 | set-ribcage-marks! | |
4502 | set-ribcage-symnames! | |
4503 | ribcage-labels | |
4504 | ribcage-marks | |
4505 | ribcage-symnames | |
4506 | ribcage? | |
4507 | make-ribcage | |
4508 | gen-labels | |
4509 | gen-label | |
4510 | make-rename | |
4511 | rename-marks | |
4512 | rename-new | |
4513 | rename-old | |
4514 | subst-rename? | |
4515 | wrap-subst | |
4516 | wrap-marks | |
4517 | make-wrap | |
4518 | id-sym-name&marks | |
4519 | id-sym-name | |
4520 | id? | |
4521 | nonsymbol-id? | |
4522 | global-extend | |
4523 | lookup | |
4524 | macros-only-env | |
4525 | extend-var-env | |
4526 | extend-env | |
4527 | null-env | |
4528 | binding-value | |
4529 | binding-type | |
4530 | make-binding | |
4531 | arg-check | |
4532 | source-annotation | |
4533 | no-source | |
4534 | set-syntax-object-module! | |
4535 | set-syntax-object-wrap! | |
4536 | set-syntax-object-expression! | |
4537 | syntax-object-module | |
4538 | syntax-object-wrap | |
4539 | syntax-object-expression | |
4540 | syntax-object? | |
4541 | make-syntax-object | |
4542 | build-lexical-var | |
4543 | build-letrec | |
4544 | build-named-let | |
4545 | build-let | |
4546 | build-sequence | |
4547 | build-data | |
4548 | build-primref | |
4549 | build-lambda-case | |
4550 | build-case-lambda | |
4551 | build-simple-lambda | |
4552 | build-global-definition | |
4553 | maybe-name-value! | |
4554 | build-global-assignment | |
4555 | build-global-reference | |
4556 | analyze-variable | |
4557 | build-lexical-assignment | |
4558 | build-lexical-reference | |
6360c1d4 | 4559 | build-dynlet |
c89222f8 AW |
4560 | build-conditional |
4561 | build-application | |
4562 | build-void | |
4563 | decorate-source | |
4564 | get-global-definition-hook | |
4565 | put-global-definition-hook | |
4566 | gensym-hook | |
4567 | local-eval-hook | |
4568 | top-level-eval-hook | |
4569 | fx< | |
4570 | fx= | |
4571 | fx- | |
4572 | fx+ | |
22cf27c8 AW |
4573 | set-lambda-meta! |
4574 | lambda-meta | |
4575 | lambda? | |
3d10018e AW |
4576 | make-dynlet |
4577 | make-letrec | |
4578 | make-let | |
4579 | make-lambda-case | |
4580 | make-lambda | |
4581 | make-sequence | |
4582 | make-application | |
4583 | make-conditional | |
4584 | make-toplevel-define | |
4585 | make-toplevel-set | |
4586 | make-toplevel-ref | |
4587 | make-module-set | |
4588 | make-module-ref | |
4589 | make-lexical-set | |
4590 | make-lexical-ref | |
4591 | make-primitive-ref | |
4592 | make-const | |
131ae7b4 | 4593 | make-void) |
c89222f8 AW |
4594 | ((top) |
4595 | (top) | |
4596 | (top) | |
4597 | (top) | |
4598 | (top) | |
4599 | (top) | |
4600 | (top) | |
4601 | (top) | |
4602 | (top) | |
4603 | (top) | |
4604 | (top) | |
4605 | (top) | |
4606 | (top) | |
4607 | (top) | |
4608 | (top) | |
4609 | (top) | |
4610 | (top) | |
4611 | (top) | |
4612 | (top) | |
4613 | (top) | |
4614 | (top) | |
4615 | (top) | |
4616 | (top) | |
4617 | (top) | |
4618 | (top) | |
4619 | (top) | |
4620 | (top) | |
4621 | (top) | |
4622 | (top) | |
4623 | (top) | |
4624 | (top) | |
4625 | (top) | |
4626 | (top) | |
4627 | (top) | |
4628 | (top) | |
4629 | (top) | |
4630 | (top) | |
4631 | (top) | |
4632 | (top) | |
4633 | (top) | |
4634 | (top) | |
4635 | (top) | |
4636 | (top) | |
4637 | (top) | |
4638 | (top) | |
4639 | (top) | |
4640 | (top) | |
4641 | (top) | |
4642 | (top) | |
4643 | (top) | |
4644 | (top) | |
4645 | (top) | |
4646 | (top) | |
4647 | (top) | |
4648 | (top) | |
4649 | (top) | |
4650 | (top) | |
4651 | (top) | |
4652 | (top) | |
4653 | (top) | |
4654 | (top) | |
4655 | (top) | |
4656 | (top) | |
4657 | (top) | |
4658 | (top) | |
4659 | (top) | |
4660 | (top) | |
4661 | (top) | |
4662 | (top) | |
4663 | (top) | |
4664 | (top) | |
4665 | (top) | |
4666 | (top) | |
4667 | (top) | |
4668 | (top) | |
4669 | (top) | |
4670 | (top) | |
4671 | (top) | |
4672 | (top) | |
4673 | (top) | |
4674 | (top) | |
4675 | (top) | |
4676 | (top) | |
4677 | (top) | |
4678 | (top) | |
4679 | (top) | |
4680 | (top) | |
4681 | (top) | |
4682 | (top) | |
4683 | (top) | |
4684 | (top) | |
4685 | (top) | |
4686 | (top) | |
4687 | (top) | |
4688 | (top) | |
4689 | (top) | |
4690 | (top) | |
4691 | (top) | |
4692 | (top) | |
4693 | (top) | |
4694 | (top) | |
4695 | (top) | |
4696 | (top) | |
4697 | (top) | |
4698 | (top) | |
4699 | (top) | |
4700 | (top) | |
4701 | (top) | |
4702 | (top) | |
4703 | (top) | |
4704 | (top) | |
df1cd5e5 AW |
4705 | (top) |
4706 | (top) | |
df1cd5e5 AW |
4707 | (top) |
4708 | (top) | |
4709 | (top) | |
3d10018e AW |
4710 | (top) |
4711 | (top) | |
4712 | (top) | |
4713 | (top) | |
4714 | (top) | |
4715 | (top) | |
4716 | (top) | |
4717 | (top) | |
4718 | (top) | |
4719 | (top) | |
4720 | (top) | |
4721 | (top) | |
4722 | (top) | |
4723 | (top) | |
4724 | (top) | |
4725 | (top) | |
4726 | (top) | |
22cf27c8 AW |
4727 | (top) |
4728 | (top) | |
4729 | (top) | |
df1cd5e5 | 4730 | (top)) |
fb6e61ca AW |
4731 | ("i496" |
4732 | "i494" | |
4733 | "i492" | |
4734 | "i490" | |
4735 | "i488" | |
4736 | "i486" | |
22cf27c8 AW |
4737 | "i484" |
4738 | "i482" | |
4739 | "i480" | |
4740 | "i478" | |
4741 | "i476" | |
4742 | "i474" | |
4743 | "i472" | |
4744 | "i470" | |
4745 | "i468" | |
4746 | "i466" | |
4747 | "i464" | |
4748 | "i462" | |
4749 | "i460" | |
4750 | "i458" | |
4751 | "i456" | |
4752 | "i454" | |
4753 | "i452" | |
4754 | "i450" | |
4755 | "i448" | |
4756 | "i446" | |
4757 | "i444" | |
4758 | "i442" | |
4759 | "i440" | |
4760 | "i438" | |
4761 | "i436" | |
4762 | "i434" | |
4763 | "i432" | |
4764 | "i430" | |
4765 | "i428" | |
4766 | "i426" | |
fb6e61ca | 4767 | "i425" |
22cf27c8 AW |
4768 | "i424" |
4769 | "i422" | |
fb6e61ca | 4770 | "i421" |
22cf27c8 | 4771 | "i420" |
fb6e61ca | 4772 | "i419" |
22cf27c8 AW |
4773 | "i418" |
4774 | "i416" | |
22cf27c8 AW |
4775 | "i414" |
4776 | "i412" | |
22cf27c8 | 4777 | "i410" |
22cf27c8 AW |
4778 | "i408" |
4779 | "i406" | |
4780 | "i404" | |
4781 | "i402" | |
fb6e61ca AW |
4782 | "i399" |
4783 | "i397" | |
22cf27c8 | 4784 | "i396" |
fb6e61ca | 4785 | "i395" |
22cf27c8 | 4786 | "i394" |
fb6e61ca | 4787 | "i393" |
22cf27c8 | 4788 | "i392" |
fb6e61ca AW |
4789 | "i390" |
4790 | "i388" | |
22cf27c8 | 4791 | "i386" |
22cf27c8 | 4792 | "i384" |
131ae7b4 | 4793 | "i383" |
fb6e61ca AW |
4794 | "i381" |
4795 | "i379" | |
4796 | "i377" | |
4797 | "i375" | |
131ae7b4 AW |
4798 | "i373" |
4799 | "i371" | |
4800 | "i369" | |
fb6e61ca AW |
4801 | "i368" |
4802 | "i366" | |
4803 | "i364" | |
131ae7b4 | 4804 | "i363" |
fb6e61ca AW |
4805 | "i362" |
4806 | "i360" | |
131ae7b4 | 4807 | "i359" |
fb6e61ca AW |
4808 | "i357" |
4809 | "i355" | |
131ae7b4 | 4810 | "i353" |
fb6e61ca | 4811 | "i351" |
131ae7b4 AW |
4812 | "i349" |
4813 | "i347" | |
131ae7b4 | 4814 | "i345" |
131ae7b4 AW |
4815 | "i343" |
4816 | "i341" | |
4817 | "i339" | |
4818 | "i337" | |
4819 | "i335" | |
4820 | "i333" | |
4821 | "i331" | |
4822 | "i329" | |
4823 | "i327" | |
22cf27c8 AW |
4824 | "i325" |
4825 | "i323" | |
131ae7b4 | 4826 | "i321" |
131ae7b4 | 4827 | "i319" |
131ae7b4 AW |
4828 | "i317" |
4829 | "i315" | |
4830 | "i313" | |
4831 | "i311" | |
4832 | "i309" | |
22cf27c8 AW |
4833 | "i307" |
4834 | "i305" | |
4835 | "i303" | |
4836 | "i301" | |
4837 | "i299" | |
4838 | "i297" | |
4839 | "i295" | |
fb6e61ca AW |
4840 | "i294" |
4841 | "i292" | |
4842 | "i290" | |
4843 | "i288" | |
4844 | "i286" | |
131ae7b4 AW |
4845 | "i284" |
4846 | "i282" | |
4847 | "i280" | |
4848 | "i278" | |
4849 | "i276" | |
fb6e61ca AW |
4850 | "i273" |
4851 | "i271" | |
4852 | "i269" | |
4853 | "i267" | |
4854 | "i265" | |
22cf27c8 AW |
4855 | "i263" |
4856 | "i261" | |
4857 | "i259" | |
4858 | "i257" | |
4859 | "i255" | |
4860 | "i253" | |
4861 | "i251" | |
4862 | "i249" | |
4863 | "i247" | |
4864 | "i245" | |
4865 | "i243" | |
4866 | "i241" | |
fb6e61ca | 4867 | "i239")) |
c89222f8 AW |
4868 | #(ribcage |
4869 | (define-structure | |
22cf27c8 | 4870 | define-expansion-accessors |
3d10018e | 4871 | define-expansion-constructors |
c89222f8 AW |
4872 | and-map*) |
4873 | ((top) | |
22cf27c8 | 4874 | (top) |
3d10018e | 4875 | (top) |
c89222f8 | 4876 | (top)) |
fb6e61ca AW |
4877 | ("i33" |
4878 | "i32" | |
4879 | "i31" | |
4880 | "i29"))) | |
c89222f8 AW |
4881 | (hygiene |
4882 | guile)) | |
4883 | #(syntax-object | |
4884 | #f | |
df1cd5e5 AW |
4885 | ((top) |
4886 | #(ribcage | |
c89222f8 AW |
4887 | #(_ |
4888 | name) | |
4889 | #((top) | |
4890 | (top)) | |
fb6e61ca AW |
4891 | #("i1891" |
4892 | "i1892")) | |
c89222f8 AW |
4893 | #(ribcage |
4894 | () | |
4895 | () | |
4896 | ()) | |
4897 | #(ribcage | |
4898 | () | |
4899 | () | |
4900 | ()) | |
4901 | #(ribcage | |
4902 | #(ftype | |
4903 | fval | |
4904 | fe | |
4905 | fw | |
4906 | fs | |
4907 | fmod) | |
4908 | #((top) | |
4909 | (top) | |
4910 | (top) | |
4911 | (top) | |
4912 | (top) | |
4913 | (top)) | |
fb6e61ca AW |
4914 | #("i1821" |
4915 | "i1822" | |
4916 | "i1823" | |
4917 | "i1824" | |
4918 | "i1825" | |
4919 | "i1826")) | |
c89222f8 AW |
4920 | #(ribcage |
4921 | () | |
4922 | () | |
4923 | ()) | |
4924 | #(ribcage | |
4925 | #(first) | |
df1cd5e5 | 4926 | #((top)) |
fb6e61ca | 4927 | #("i1813")) |
df1cd5e5 AW |
4928 | #(ribcage |
4929 | () | |
4930 | () | |
4931 | ()) | |
4932 | #(ribcage | |
c89222f8 AW |
4933 | () |
4934 | () | |
4935 | ()) | |
df1cd5e5 | 4936 | #(ribcage |
c89222f8 AW |
4937 | () |
4938 | () | |
4939 | ()) | |
df1cd5e5 AW |
4940 | #(ribcage |
4941 | #(e | |
4942 | r | |
4943 | w | |
4944 | s | |
c89222f8 AW |
4945 | rib |
4946 | mod | |
4947 | for-car?) | |
df1cd5e5 | 4948 | #((top) |
c89222f8 AW |
4949 | (top) |
4950 | (top) | |
df1cd5e5 AW |
4951 | (top) |
4952 | (top) | |
4953 | (top) | |
4954 | (top)) | |
fb6e61ca AW |
4955 | #("i1790" |
4956 | "i1791" | |
4957 | "i1792" | |
4958 | "i1793" | |
4959 | "i1794" | |
4960 | "i1795" | |
4961 | "i1796")) | |
df1cd5e5 AW |
4962 | #(ribcage |
4963 | (lambda-var-list | |
4964 | gen-var | |
4965 | strip | |
c89222f8 AW |
4966 | chi-lambda-case |
4967 | lambda*-formals | |
4968 | chi-simple-lambda | |
4969 | lambda-formals | |
df1cd5e5 AW |
4970 | ellipsis? |
4971 | chi-void | |
4972 | eval-local-transformer | |
4973 | chi-local-syntax | |
4974 | chi-body | |
4975 | chi-macro | |
4976 | chi-application | |
4977 | chi-expr | |
4978 | chi | |
4979 | chi-top | |
4980 | syntax-type | |
4981 | chi-when-list | |
4982 | chi-install-global | |
4983 | chi-top-sequence | |
4984 | chi-sequence | |
4985 | source-wrap | |
4986 | wrap | |
4987 | bound-id-member? | |
4988 | distinct-bound-ids? | |
4989 | valid-bound-ids? | |
4990 | bound-id=? | |
4991 | free-id=? | |
4992 | id-var-name | |
4993 | same-marks? | |
4994 | join-marks | |
4995 | join-wraps | |
4996 | smart-append | |
4997 | make-binding-wrap | |
4998 | extend-ribcage! | |
4999 | make-empty-ribcage | |
5000 | new-mark | |
5001 | anti-mark | |
5002 | the-anti-mark | |
5003 | top-marked? | |
5004 | top-wrap | |
5005 | empty-wrap | |
5006 | set-ribcage-labels! | |
5007 | set-ribcage-marks! | |
5008 | set-ribcage-symnames! | |
5009 | ribcage-labels | |
5010 | ribcage-marks | |
5011 | ribcage-symnames | |
5012 | ribcage? | |
5013 | make-ribcage | |
5014 | gen-labels | |
5015 | gen-label | |
5016 | make-rename | |
5017 | rename-marks | |
5018 | rename-new | |
5019 | rename-old | |
5020 | subst-rename? | |
5021 | wrap-subst | |
5022 | wrap-marks | |
5023 | make-wrap | |
5024 | id-sym-name&marks | |
5025 | id-sym-name | |
5026 | id? | |
5027 | nonsymbol-id? | |
5028 | global-extend | |
5029 | lookup | |
5030 | macros-only-env | |
5031 | extend-var-env | |
5032 | extend-env | |
5033 | null-env | |
5034 | binding-value | |
5035 | binding-type | |
5036 | make-binding | |
5037 | arg-check | |
5038 | source-annotation | |
5039 | no-source | |
5040 | set-syntax-object-module! | |
5041 | set-syntax-object-wrap! | |
5042 | set-syntax-object-expression! | |
5043 | syntax-object-module | |
5044 | syntax-object-wrap | |
5045 | syntax-object-expression | |
5046 | syntax-object? | |
5047 | make-syntax-object | |
5048 | build-lexical-var | |
5049 | build-letrec | |
5050 | build-named-let | |
5051 | build-let | |
5052 | build-sequence | |
5053 | build-data | |
5054 | build-primref | |
5055 | build-lambda-case | |
5056 | build-case-lambda | |
5057 | build-simple-lambda | |
5058 | build-global-definition | |
5059 | maybe-name-value! | |
5060 | build-global-assignment | |
5061 | build-global-reference | |
5062 | analyze-variable | |
5063 | build-lexical-assignment | |
5064 | build-lexical-reference | |
6360c1d4 | 5065 | build-dynlet |
df1cd5e5 AW |
5066 | build-conditional |
5067 | build-application | |
5068 | build-void | |
5069 | decorate-source | |
5070 | get-global-definition-hook | |
5071 | put-global-definition-hook | |
5072 | gensym-hook | |
5073 | local-eval-hook | |
5074 | top-level-eval-hook | |
5075 | fx< | |
5076 | fx= | |
5077 | fx- | |
5078 | fx+ | |
22cf27c8 AW |
5079 | set-lambda-meta! |
5080 | lambda-meta | |
5081 | lambda? | |
3d10018e AW |
5082 | make-dynlet |
5083 | make-letrec | |
5084 | make-let | |
5085 | make-lambda-case | |
5086 | make-lambda | |
5087 | make-sequence | |
5088 | make-application | |
5089 | make-conditional | |
5090 | make-toplevel-define | |
5091 | make-toplevel-set | |
5092 | make-toplevel-ref | |
5093 | make-module-set | |
5094 | make-module-ref | |
5095 | make-lexical-set | |
5096 | make-lexical-ref | |
5097 | make-primitive-ref | |
5098 | make-const | |
131ae7b4 | 5099 | make-void) |
df1cd5e5 AW |
5100 | ((top) |
5101 | (top) | |
5102 | (top) | |
5103 | (top) | |
5104 | (top) | |
5105 | (top) | |
5106 | (top) | |
5107 | (top) | |
5108 | (top) | |
5109 | (top) | |
5110 | (top) | |
5111 | (top) | |
5112 | (top) | |
5113 | (top) | |
5114 | (top) | |
5115 | (top) | |
5116 | (top) | |
5117 | (top) | |
5118 | (top) | |
5119 | (top) | |
5120 | (top) | |
5121 | (top) | |
5122 | (top) | |
5123 | (top) | |
5124 | (top) | |
5125 | (top) | |
5126 | (top) | |
5127 | (top) | |
5128 | (top) | |
5129 | (top) | |
5130 | (top) | |
5131 | (top) | |
5132 | (top) | |
5133 | (top) | |
5134 | (top) | |
5135 | (top) | |
5136 | (top) | |
5137 | (top) | |
5138 | (top) | |
5139 | (top) | |
5140 | (top) | |
5141 | (top) | |
5142 | (top) | |
5143 | (top) | |
5144 | (top) | |
5145 | (top) | |
5146 | (top) | |
5147 | (top) | |
5148 | (top) | |
5149 | (top) | |
5150 | (top) | |
5151 | (top) | |
5152 | (top) | |
5153 | (top) | |
5154 | (top) | |
5155 | (top) | |
5156 | (top) | |
5157 | (top) | |
5158 | (top) | |
5159 | (top) | |
5160 | (top) | |
5161 | (top) | |
5162 | (top) | |
5163 | (top) | |
5164 | (top) | |
5165 | (top) | |
5166 | (top) | |
5167 | (top) | |
5168 | (top) | |
5169 | (top) | |
5170 | (top) | |
5171 | (top) | |
5172 | (top) | |
5173 | (top) | |
5174 | (top) | |
5175 | (top) | |
5176 | (top) | |
5177 | (top) | |
5178 | (top) | |
5179 | (top) | |
5180 | (top) | |
5181 | (top) | |
5182 | (top) | |
5183 | (top) | |
5184 | (top) | |
5185 | (top) | |
5186 | (top) | |
5187 | (top) | |
5188 | (top) | |
5189 | (top) | |
5190 | (top) | |
5191 | (top) | |
5192 | (top) | |
5193 | (top) | |
5194 | (top) | |
5195 | (top) | |
5196 | (top) | |
5197 | (top) | |
5198 | (top) | |
5199 | (top) | |
5200 | (top) | |
5201 | (top) | |
5202 | (top) | |
5203 | (top) | |
5204 | (top) | |
5205 | (top) | |
5206 | (top) | |
5207 | (top) | |
5208 | (top) | |
5209 | (top) | |
5210 | (top) | |
5211 | (top) | |
c89222f8 AW |
5212 | (top) |
5213 | (top) | |
5214 | (top) | |
5215 | (top) | |
3d10018e AW |
5216 | (top) |
5217 | (top) | |
5218 | (top) | |
5219 | (top) | |
5220 | (top) | |
5221 | (top) | |
5222 | (top) | |
5223 | (top) | |
5224 | (top) | |
5225 | (top) | |
5226 | (top) | |
5227 | (top) | |
5228 | (top) | |
5229 | (top) | |
5230 | (top) | |
5231 | (top) | |
5232 | (top) | |
22cf27c8 AW |
5233 | (top) |
5234 | (top) | |
5235 | (top) | |
df1cd5e5 | 5236 | (top)) |
fb6e61ca AW |
5237 | ("i496" |
5238 | "i494" | |
5239 | "i492" | |
5240 | "i490" | |
5241 | "i488" | |
5242 | "i486" | |
22cf27c8 AW |
5243 | "i484" |
5244 | "i482" | |
5245 | "i480" | |
5246 | "i478" | |
5247 | "i476" | |
5248 | "i474" | |
5249 | "i472" | |
5250 | "i470" | |
5251 | "i468" | |
5252 | "i466" | |
5253 | "i464" | |
5254 | "i462" | |
5255 | "i460" | |
5256 | "i458" | |
5257 | "i456" | |
5258 | "i454" | |
5259 | "i452" | |
5260 | "i450" | |
5261 | "i448" | |
5262 | "i446" | |
5263 | "i444" | |
5264 | "i442" | |
5265 | "i440" | |
5266 | "i438" | |
5267 | "i436" | |
5268 | "i434" | |
5269 | "i432" | |
5270 | "i430" | |
5271 | "i428" | |
5272 | "i426" | |
fb6e61ca | 5273 | "i425" |
22cf27c8 AW |
5274 | "i424" |
5275 | "i422" | |
fb6e61ca | 5276 | "i421" |
22cf27c8 | 5277 | "i420" |
fb6e61ca | 5278 | "i419" |
22cf27c8 AW |
5279 | "i418" |
5280 | "i416" | |
22cf27c8 AW |
5281 | "i414" |
5282 | "i412" | |
22cf27c8 | 5283 | "i410" |
22cf27c8 AW |
5284 | "i408" |
5285 | "i406" | |
5286 | "i404" | |
5287 | "i402" | |
fb6e61ca AW |
5288 | "i399" |
5289 | "i397" | |
22cf27c8 | 5290 | "i396" |
fb6e61ca | 5291 | "i395" |
22cf27c8 | 5292 | "i394" |
fb6e61ca | 5293 | "i393" |
22cf27c8 | 5294 | "i392" |
fb6e61ca AW |
5295 | "i390" |
5296 | "i388" | |
22cf27c8 | 5297 | "i386" |
22cf27c8 | 5298 | "i384" |
131ae7b4 | 5299 | "i383" |
fb6e61ca AW |
5300 | "i381" |
5301 | "i379" | |
5302 | "i377" | |
5303 | "i375" | |
131ae7b4 AW |
5304 | "i373" |
5305 | "i371" | |
5306 | "i369" | |
fb6e61ca AW |
5307 | "i368" |
5308 | "i366" | |
5309 | "i364" | |
131ae7b4 | 5310 | "i363" |
fb6e61ca AW |
5311 | "i362" |
5312 | "i360" | |
131ae7b4 | 5313 | "i359" |
fb6e61ca AW |
5314 | "i357" |
5315 | "i355" | |
131ae7b4 | 5316 | "i353" |
fb6e61ca | 5317 | "i351" |
131ae7b4 AW |
5318 | "i349" |
5319 | "i347" | |
131ae7b4 | 5320 | "i345" |
131ae7b4 AW |
5321 | "i343" |
5322 | "i341" | |
5323 | "i339" | |
5324 | "i337" | |
5325 | "i335" | |
5326 | "i333" | |
5327 | "i331" | |
5328 | "i329" | |
5329 | "i327" | |
22cf27c8 AW |
5330 | "i325" |
5331 | "i323" | |
131ae7b4 | 5332 | "i321" |
131ae7b4 | 5333 | "i319" |
131ae7b4 AW |
5334 | "i317" |
5335 | "i315" | |
5336 | "i313" | |
5337 | "i311" | |
5338 | "i309" | |
22cf27c8 AW |
5339 | "i307" |
5340 | "i305" | |
5341 | "i303" | |
5342 | "i301" | |
5343 | "i299" | |
5344 | "i297" | |
5345 | "i295" | |
fb6e61ca AW |
5346 | "i294" |
5347 | "i292" | |
5348 | "i290" | |
5349 | "i288" | |
5350 | "i286" | |
131ae7b4 AW |
5351 | "i284" |
5352 | "i282" | |
5353 | "i280" | |
5354 | "i278" | |
5355 | "i276" | |
fb6e61ca AW |
5356 | "i273" |
5357 | "i271" | |
5358 | "i269" | |
5359 | "i267" | |
5360 | "i265" | |
22cf27c8 AW |
5361 | "i263" |
5362 | "i261" | |
5363 | "i259" | |
5364 | "i257" | |
5365 | "i255" | |
5366 | "i253" | |
5367 | "i251" | |
5368 | "i249" | |
5369 | "i247" | |
5370 | "i245" | |
5371 | "i243" | |
5372 | "i241" | |
fb6e61ca | 5373 | "i239")) |
df1cd5e5 AW |
5374 | #(ribcage |
5375 | (define-structure | |
22cf27c8 | 5376 | define-expansion-accessors |
3d10018e | 5377 | define-expansion-constructors |
df1cd5e5 AW |
5378 | and-map*) |
5379 | ((top) | |
22cf27c8 | 5380 | (top) |
3d10018e | 5381 | (top) |
df1cd5e5 | 5382 | (top)) |
fb6e61ca AW |
5383 | ("i33" |
5384 | "i32" | |
5385 | "i31" | |
5386 | "i29"))) | |
df1cd5e5 | 5387 | (hygiene |
c89222f8 AW |
5388 | guile)) |
5389 | #(syntax-object | |
5390 | #f | |
df1cd5e5 AW |
5391 | ((top) |
5392 | #(ribcage | |
c89222f8 AW |
5393 | #(_ |
5394 | name) | |
5395 | #((top) | |
5396 | (top)) | |
fb6e61ca AW |
5397 | #("i1891" |
5398 | "i1892")) | |
c89222f8 AW |
5399 | #(ribcage |
5400 | () | |
5401 | () | |
5402 | ()) | |
df1cd5e5 AW |
5403 | #(ribcage |
5404 | () | |
5405 | () | |
5406 | ()) | |
5407 | #(ribcage | |
c89222f8 AW |
5408 | #(ftype |
5409 | fval | |
5410 | fe | |
5411 | fw | |
5412 | fs | |
5413 | fmod) | |
df1cd5e5 | 5414 | #((top) |
c89222f8 AW |
5415 | (top) |
5416 | (top) | |
5417 | (top) | |
5418 | (top) | |
df1cd5e5 | 5419 | (top)) |
fb6e61ca AW |
5420 | #("i1821" |
5421 | "i1822" | |
5422 | "i1823" | |
5423 | "i1824" | |
5424 | "i1825" | |
5425 | "i1826")) | |
df1cd5e5 | 5426 | #(ribcage |
c89222f8 AW |
5427 | () |
5428 | () | |
5429 | ()) | |
5430 | #(ribcage | |
5431 | #(first) | |
5432 | #((top)) | |
fb6e61ca | 5433 | #("i1813")) |
c89222f8 AW |
5434 | #(ribcage |
5435 | () | |
5436 | () | |
5437 | ()) | |
5438 | #(ribcage | |
5439 | () | |
5440 | () | |
5441 | ()) | |
5442 | #(ribcage | |
5443 | () | |
5444 | () | |
5445 | ()) | |
df1cd5e5 AW |
5446 | #(ribcage |
5447 | #(e | |
5448 | r | |
5449 | w | |
5450 | s | |
c89222f8 AW |
5451 | rib |
5452 | mod | |
5453 | for-car?) | |
df1cd5e5 | 5454 | #((top) |
c89222f8 AW |
5455 | (top) |
5456 | (top) | |
df1cd5e5 AW |
5457 | (top) |
5458 | (top) | |
5459 | (top) | |
5460 | (top)) | |
fb6e61ca AW |
5461 | #("i1790" |
5462 | "i1791" | |
5463 | "i1792" | |
5464 | "i1793" | |
5465 | "i1794" | |
5466 | "i1795" | |
5467 | "i1796")) | |
df1cd5e5 AW |
5468 | #(ribcage |
5469 | (lambda-var-list | |
5470 | gen-var | |
5471 | strip | |
c89222f8 AW |
5472 | chi-lambda-case |
5473 | lambda*-formals | |
5474 | chi-simple-lambda | |
5475 | lambda-formals | |
df1cd5e5 AW |
5476 | ellipsis? |
5477 | chi-void | |
5478 | eval-local-transformer | |
5479 | chi-local-syntax | |
5480 | chi-body | |
5481 | chi-macro | |
5482 | chi-application | |
5483 | chi-expr | |
5484 | chi | |
5485 | chi-top | |
5486 | syntax-type | |
5487 | chi-when-list | |
5488 | chi-install-global | |
5489 | chi-top-sequence | |
5490 | chi-sequence | |
5491 | source-wrap | |
5492 | wrap | |
5493 | bound-id-member? | |
5494 | distinct-bound-ids? | |
5495 | valid-bound-ids? | |
5496 | bound-id=? | |
5497 | free-id=? | |
5498 | id-var-name | |
5499 | same-marks? | |
5500 | join-marks | |
5501 | join-wraps | |
5502 | smart-append | |
5503 | make-binding-wrap | |
5504 | extend-ribcage! | |
5505 | make-empty-ribcage | |
5506 | new-mark | |
5507 | anti-mark | |
5508 | the-anti-mark | |
5509 | top-marked? | |
5510 | top-wrap | |
5511 | empty-wrap | |
5512 | set-ribcage-labels! | |
5513 | set-ribcage-marks! | |
5514 | set-ribcage-symnames! | |
5515 | ribcage-labels | |
5516 | ribcage-marks | |
5517 | ribcage-symnames | |
5518 | ribcage? | |
5519 | make-ribcage | |
5520 | gen-labels | |
5521 | gen-label | |
5522 | make-rename | |
5523 | rename-marks | |
5524 | rename-new | |
5525 | rename-old | |
5526 | subst-rename? | |
5527 | wrap-subst | |
5528 | wrap-marks | |
5529 | make-wrap | |
5530 | id-sym-name&marks | |
5531 | id-sym-name | |
5532 | id? | |
5533 | nonsymbol-id? | |
5534 | global-extend | |
5535 | lookup | |
5536 | macros-only-env | |
5537 | extend-var-env | |
5538 | extend-env | |
5539 | null-env | |
5540 | binding-value | |
5541 | binding-type | |
5542 | make-binding | |
5543 | arg-check | |
5544 | source-annotation | |
5545 | no-source | |
5546 | set-syntax-object-module! | |
5547 | set-syntax-object-wrap! | |
5548 | set-syntax-object-expression! | |
5549 | syntax-object-module | |
5550 | syntax-object-wrap | |
5551 | syntax-object-expression | |
5552 | syntax-object? | |
5553 | make-syntax-object | |
5554 | build-lexical-var | |
5555 | build-letrec | |
5556 | build-named-let | |
5557 | build-let | |
5558 | build-sequence | |
5559 | build-data | |
5560 | build-primref | |
5561 | build-lambda-case | |
5562 | build-case-lambda | |
5563 | build-simple-lambda | |
5564 | build-global-definition | |
5565 | maybe-name-value! | |
5566 | build-global-assignment | |
5567 | build-global-reference | |
5568 | analyze-variable | |
5569 | build-lexical-assignment | |
5570 | build-lexical-reference | |
6360c1d4 | 5571 | build-dynlet |
df1cd5e5 AW |
5572 | build-conditional |
5573 | build-application | |
5574 | build-void | |
5575 | decorate-source | |
5576 | get-global-definition-hook | |
5577 | put-global-definition-hook | |
5578 | gensym-hook | |
5579 | local-eval-hook | |
5580 | top-level-eval-hook | |
5581 | fx< | |
5582 | fx= | |
5583 | fx- | |
5584 | fx+ | |
22cf27c8 AW |
5585 | set-lambda-meta! |
5586 | lambda-meta | |
5587 | lambda? | |
3d10018e AW |
5588 | make-dynlet |
5589 | make-letrec | |
5590 | make-let | |
5591 | make-lambda-case | |
5592 | make-lambda | |
5593 | make-sequence | |
5594 | make-application | |
5595 | make-conditional | |
5596 | make-toplevel-define | |
5597 | make-toplevel-set | |
5598 | make-toplevel-ref | |
5599 | make-module-set | |
5600 | make-module-ref | |
5601 | make-lexical-set | |
5602 | make-lexical-ref | |
5603 | make-primitive-ref | |
5604 | make-const | |
131ae7b4 | 5605 | make-void) |
df1cd5e5 AW |
5606 | ((top) |
5607 | (top) | |
5608 | (top) | |
5609 | (top) | |
5610 | (top) | |
5611 | (top) | |
5612 | (top) | |
5613 | (top) | |
5614 | (top) | |
5615 | (top) | |
5616 | (top) | |
5617 | (top) | |
5618 | (top) | |
5619 | (top) | |
5620 | (top) | |
5621 | (top) | |
5622 | (top) | |
5623 | (top) | |
5624 | (top) | |
5625 | (top) | |
5626 | (top) | |
5627 | (top) | |
5628 | (top) | |
5629 | (top) | |
5630 | (top) | |
5631 | (top) | |
5632 | (top) | |
5633 | (top) | |
5634 | (top) | |
5635 | (top) | |
5636 | (top) | |
5637 | (top) | |
5638 | (top) | |
5639 | (top) | |
5640 | (top) | |
5641 | (top) | |
5642 | (top) | |
5643 | (top) | |
5644 | (top) | |
5645 | (top) | |
5646 | (top) | |
5647 | (top) | |
5648 | (top) | |
5649 | (top) | |
5650 | (top) | |
5651 | (top) | |
5652 | (top) | |
5653 | (top) | |
5654 | (top) | |
5655 | (top) | |
5656 | (top) | |
5657 | (top) | |
5658 | (top) | |
5659 | (top) | |
5660 | (top) | |
5661 | (top) | |
5662 | (top) | |
5663 | (top) | |
5664 | (top) | |
5665 | (top) | |
5666 | (top) | |
5667 | (top) | |
5668 | (top) | |
5669 | (top) | |
5670 | (top) | |
5671 | (top) | |
5672 | (top) | |
5673 | (top) | |
5674 | (top) | |
5675 | (top) | |
5676 | (top) | |
5677 | (top) | |
5678 | (top) | |
5679 | (top) | |
5680 | (top) | |
5681 | (top) | |
5682 | (top) | |
5683 | (top) | |
5684 | (top) | |
5685 | (top) | |
5686 | (top) | |
5687 | (top) | |
5688 | (top) | |
5689 | (top) | |
5690 | (top) | |
5691 | (top) | |
5692 | (top) | |
5693 | (top) | |
5694 | (top) | |
5695 | (top) | |
5696 | (top) | |
5697 | (top) | |
5698 | (top) | |
5699 | (top) | |
5700 | (top) | |
5701 | (top) | |
5702 | (top) | |
5703 | (top) | |
5704 | (top) | |
5705 | (top) | |
5706 | (top) | |
5707 | (top) | |
5708 | (top) | |
5709 | (top) | |
5710 | (top) | |
5711 | (top) | |
5712 | (top) | |
5713 | (top) | |
5714 | (top) | |
5715 | (top) | |
5716 | (top) | |
5717 | (top) | |
c89222f8 AW |
5718 | (top) |
5719 | (top) | |
5720 | (top) | |
5721 | (top) | |
3d10018e AW |
5722 | (top) |
5723 | (top) | |
5724 | (top) | |
5725 | (top) | |
5726 | (top) | |
5727 | (top) | |
5728 | (top) | |
5729 | (top) | |
5730 | (top) | |
5731 | (top) | |
5732 | (top) | |
5733 | (top) | |
5734 | (top) | |
5735 | (top) | |
5736 | (top) | |
5737 | (top) | |
5738 | (top) | |
22cf27c8 AW |
5739 | (top) |
5740 | (top) | |
5741 | (top) | |
df1cd5e5 | 5742 | (top)) |
fb6e61ca AW |
5743 | ("i496" |
5744 | "i494" | |
5745 | "i492" | |
5746 | "i490" | |
5747 | "i488" | |
5748 | "i486" | |
22cf27c8 AW |
5749 | "i484" |
5750 | "i482" | |
5751 | "i480" | |
5752 | "i478" | |
5753 | "i476" | |
5754 | "i474" | |
5755 | "i472" | |
5756 | "i470" | |
5757 | "i468" | |
5758 | "i466" | |
5759 | "i464" | |
5760 | "i462" | |
5761 | "i460" | |
5762 | "i458" | |
5763 | "i456" | |
5764 | "i454" | |
5765 | "i452" | |
5766 | "i450" | |
5767 | "i448" | |
5768 | "i446" | |
5769 | "i444" | |
5770 | "i442" | |
5771 | "i440" | |
5772 | "i438" | |
5773 | "i436" | |
5774 | "i434" | |
5775 | "i432" | |
5776 | "i430" | |
5777 | "i428" | |
5778 | "i426" | |
fb6e61ca | 5779 | "i425" |
22cf27c8 AW |
5780 | "i424" |
5781 | "i422" | |
fb6e61ca | 5782 | "i421" |
22cf27c8 | 5783 | "i420" |
fb6e61ca | 5784 | "i419" |
22cf27c8 AW |
5785 | "i418" |
5786 | "i416" | |
22cf27c8 AW |
5787 | "i414" |
5788 | "i412" | |
22cf27c8 | 5789 | "i410" |
22cf27c8 AW |
5790 | "i408" |
5791 | "i406" | |
5792 | "i404" | |
5793 | "i402" | |
fb6e61ca AW |
5794 | "i399" |
5795 | "i397" | |
22cf27c8 | 5796 | "i396" |
fb6e61ca | 5797 | "i395" |
22cf27c8 | 5798 | "i394" |
fb6e61ca | 5799 | "i393" |
22cf27c8 | 5800 | "i392" |
fb6e61ca AW |
5801 | "i390" |
5802 | "i388" | |
22cf27c8 | 5803 | "i386" |
22cf27c8 | 5804 | "i384" |
131ae7b4 | 5805 | "i383" |
fb6e61ca AW |
5806 | "i381" |
5807 | "i379" | |
5808 | "i377" | |
5809 | "i375" | |
131ae7b4 AW |
5810 | "i373" |
5811 | "i371" | |
5812 | "i369" | |
fb6e61ca AW |
5813 | "i368" |
5814 | "i366" | |
5815 | "i364" | |
131ae7b4 | 5816 | "i363" |
fb6e61ca AW |
5817 | "i362" |
5818 | "i360" | |
131ae7b4 | 5819 | "i359" |
fb6e61ca AW |
5820 | "i357" |
5821 | "i355" | |
131ae7b4 | 5822 | "i353" |
fb6e61ca | 5823 | "i351" |
131ae7b4 AW |
5824 | "i349" |
5825 | "i347" | |
131ae7b4 | 5826 | "i345" |
131ae7b4 AW |
5827 | "i343" |
5828 | "i341" | |
5829 | "i339" | |
5830 | "i337" | |
5831 | "i335" | |
5832 | "i333" | |
5833 | "i331" | |
5834 | "i329" | |
5835 | "i327" | |
22cf27c8 AW |
5836 | "i325" |
5837 | "i323" | |
131ae7b4 | 5838 | "i321" |
131ae7b4 | 5839 | "i319" |
131ae7b4 AW |
5840 | "i317" |
5841 | "i315" | |
5842 | "i313" | |
5843 | "i311" | |
5844 | "i309" | |
22cf27c8 AW |
5845 | "i307" |
5846 | "i305" | |
5847 | "i303" | |
5848 | "i301" | |
5849 | "i299" | |
5850 | "i297" | |
5851 | "i295" | |
fb6e61ca AW |
5852 | "i294" |
5853 | "i292" | |
5854 | "i290" | |
5855 | "i288" | |
5856 | "i286" | |
131ae7b4 AW |
5857 | "i284" |
5858 | "i282" | |
5859 | "i280" | |
5860 | "i278" | |
5861 | "i276" | |
fb6e61ca AW |
5862 | "i273" |
5863 | "i271" | |
5864 | "i269" | |
5865 | "i267" | |
5866 | "i265" | |
22cf27c8 AW |
5867 | "i263" |
5868 | "i261" | |
5869 | "i259" | |
5870 | "i257" | |
5871 | "i255" | |
5872 | "i253" | |
5873 | "i251" | |
5874 | "i249" | |
5875 | "i247" | |
5876 | "i245" | |
5877 | "i243" | |
5878 | "i241" | |
fb6e61ca | 5879 | "i239")) |
df1cd5e5 AW |
5880 | #(ribcage |
5881 | (define-structure | |
22cf27c8 | 5882 | define-expansion-accessors |
3d10018e | 5883 | define-expansion-constructors |
df1cd5e5 AW |
5884 | and-map*) |
5885 | ((top) | |
22cf27c8 | 5886 | (top) |
3d10018e | 5887 | (top) |
df1cd5e5 | 5888 | (top)) |
fb6e61ca AW |
5889 | ("i33" |
5890 | "i32" | |
5891 | "i31" | |
5892 | "i29"))) | |
df1cd5e5 | 5893 | (hygiene |
c89222f8 AW |
5894 | guile))) |
5895 | '(()) | |
fb6e61ca AW |
5896 | #{s\ 1786}# |
5897 | #{mod\ 1788}#)) | |
5898 | #{tmp\ 1886}#) | |
c89222f8 AW |
5899 | (syntax-violation |
5900 | #f | |
5901 | "source expression failed to match any pattern" | |
fb6e61ca | 5902 | #{tmp\ 1847}#))) |
c89222f8 | 5903 | ($sc-dispatch |
fb6e61ca | 5904 | #{tmp\ 1847}# |
c89222f8 AW |
5905 | '(any any))))) |
5906 | ($sc-dispatch | |
fb6e61ca | 5907 | #{tmp\ 1847}# |
c89222f8 AW |
5908 | '(any (any . any) |
5909 | any | |
5910 | . | |
5911 | each-any))))) | |
df1cd5e5 | 5912 | ($sc-dispatch |
fb6e61ca | 5913 | #{tmp\ 1847}# |
c89222f8 | 5914 | '(any any any)))) |
fb6e61ca AW |
5915 | #{e\ 1783}#) |
5916 | (if (memv #{ftype\ 1815}# | |
c89222f8 | 5917 | '(define-syntax)) |
fb6e61ca AW |
5918 | ((lambda (#{tmp\ 1897}#) |
5919 | ((lambda (#{tmp\ 1898}#) | |
5920 | (if (if #{tmp\ 1898}# | |
5921 | (apply (lambda (#{_\ 1902}# | |
5922 | #{name\ 1903}# | |
5923 | #{val\ 1904}#) | |
5924 | (#{id?\ 382}# | |
5925 | #{name\ 1903}#)) | |
5926 | #{tmp\ 1898}#) | |
c89222f8 | 5927 | #f) |
fb6e61ca AW |
5928 | (apply (lambda (#{_\ 1908}# |
5929 | #{name\ 1909}# | |
5930 | #{val\ 1910}#) | |
c89222f8 AW |
5931 | (values |
5932 | 'define-syntax-form | |
fb6e61ca AW |
5933 | #{name\ 1909}# |
5934 | #{val\ 1910}# | |
5935 | #{w\ 1785}# | |
5936 | #{s\ 1786}# | |
5937 | #{mod\ 1788}#)) | |
5938 | #{tmp\ 1898}#) | |
c89222f8 AW |
5939 | (syntax-violation |
5940 | #f | |
5941 | "source expression failed to match any pattern" | |
fb6e61ca | 5942 | #{tmp\ 1897}#))) |
c89222f8 | 5943 | ($sc-dispatch |
fb6e61ca | 5944 | #{tmp\ 1897}# |
c89222f8 | 5945 | '(any any any)))) |
fb6e61ca | 5946 | #{e\ 1783}#) |
c89222f8 AW |
5947 | (values |
5948 | 'call | |
5949 | #f | |
fb6e61ca AW |
5950 | #{e\ 1783}# |
5951 | #{w\ 1785}# | |
5952 | #{s\ 1786}# | |
5953 | #{mod\ 1788}#)))))))))))))) | |
5954 | (if (#{syntax-object?\ 346}# #{e\ 1783}#) | |
5955 | (#{syntax-type\ 463}# | |
5956 | (#{syntax-object-expression\ 348}# #{e\ 1783}#) | |
5957 | #{r\ 1784}# | |
5958 | (#{join-wraps\ 433}# | |
5959 | #{w\ 1785}# | |
5960 | (#{syntax-object-wrap\ 350}# #{e\ 1783}#)) | |
5961 | (let ((#{t\ 1916}# | |
5962 | (#{source-annotation\ 361}# #{e\ 1783}#))) | |
5963 | (if #{t\ 1916}# #{t\ 1916}# #{s\ 1786}#)) | |
5964 | #{rib\ 1787}# | |
5965 | (let ((#{t\ 1920}# | |
5966 | (#{syntax-object-module\ 352}# #{e\ 1783}#))) | |
5967 | (if #{t\ 1920}# #{t\ 1920}# #{mod\ 1788}#)) | |
5968 | #{for-car?\ 1789}#) | |
5969 | (if (self-evaluating? #{e\ 1783}#) | |
c89222f8 AW |
5970 | (values |
5971 | 'constant | |
5972 | #f | |
fb6e61ca AW |
5973 | #{e\ 1783}# |
5974 | #{w\ 1785}# | |
5975 | #{s\ 1786}# | |
5976 | #{mod\ 1788}#) | |
c89222f8 AW |
5977 | (values |
5978 | 'other | |
5979 | #f | |
fb6e61ca AW |
5980 | #{e\ 1783}# |
5981 | #{w\ 1785}# | |
5982 | #{s\ 1786}# | |
5983 | #{mod\ 1788}#))))))) | |
5984 | (#{chi-when-list\ 461}# | |
5985 | (lambda (#{e\ 1925}# #{when-list\ 1926}# #{w\ 1927}#) | |
5986 | (letrec ((#{f\ 1934}# | |
5987 | (lambda (#{when-list\ 1935}# #{situations\ 1936}#) | |
5988 | (if (null? #{when-list\ 1935}#) | |
5989 | #{situations\ 1936}# | |
5990 | (#{f\ 1934}# | |
5991 | (cdr #{when-list\ 1935}#) | |
5992 | (cons (let ((#{x\ 1938}# | |
5993 | (car #{when-list\ 1935}#))) | |
5994 | (if (#{free-id=?\ 441}# | |
5995 | #{x\ 1938}# | |
f6a8e791 AW |
5996 | '#(syntax-object |
5997 | compile | |
5998 | ((top) | |
5999 | #(ribcage () () ()) | |
6000 | #(ribcage () () ()) | |
6001 | #(ribcage () () ()) | |
6002 | #(ribcage | |
6003 | #(x) | |
6004 | #((top)) | |
fb6e61ca | 6005 | #("i1937")) |
f6a8e791 AW |
6006 | #(ribcage () () ()) |
6007 | #(ribcage | |
6008 | #(f when-list situations) | |
6009 | #((top) (top) (top)) | |
fb6e61ca | 6010 | #("i1931" "i1932" "i1933")) |
f6a8e791 AW |
6011 | #(ribcage () () ()) |
6012 | #(ribcage | |
6013 | #(e when-list w) | |
6014 | #((top) (top) (top)) | |
fb6e61ca | 6015 | #("i1928" "i1929" "i1930")) |
f6a8e791 AW |
6016 | #(ribcage |
6017 | (lambda-var-list | |
6018 | gen-var | |
6019 | strip | |
6020 | chi-lambda-case | |
6021 | lambda*-formals | |
6022 | chi-simple-lambda | |
6023 | lambda-formals | |
6024 | ellipsis? | |
6025 | chi-void | |
6026 | eval-local-transformer | |
6027 | chi-local-syntax | |
6028 | chi-body | |
6029 | chi-macro | |
6030 | chi-application | |
6031 | chi-expr | |
6032 | chi | |
6033 | chi-top | |
6034 | syntax-type | |
6035 | chi-when-list | |
6036 | chi-install-global | |
6037 | chi-top-sequence | |
6038 | chi-sequence | |
6039 | source-wrap | |
6040 | wrap | |
6041 | bound-id-member? | |
6042 | distinct-bound-ids? | |
6043 | valid-bound-ids? | |
6044 | bound-id=? | |
6045 | free-id=? | |
6046 | id-var-name | |
6047 | same-marks? | |
6048 | join-marks | |
6049 | join-wraps | |
6050 | smart-append | |
6051 | make-binding-wrap | |
6052 | extend-ribcage! | |
6053 | make-empty-ribcage | |
6054 | new-mark | |
6055 | anti-mark | |
6056 | the-anti-mark | |
6057 | top-marked? | |
6058 | top-wrap | |
6059 | empty-wrap | |
6060 | set-ribcage-labels! | |
6061 | set-ribcage-marks! | |
6062 | set-ribcage-symnames! | |
6063 | ribcage-labels | |
6064 | ribcage-marks | |
6065 | ribcage-symnames | |
6066 | ribcage? | |
6067 | make-ribcage | |
6068 | gen-labels | |
6069 | gen-label | |
6070 | make-rename | |
6071 | rename-marks | |
6072 | rename-new | |
6073 | rename-old | |
6074 | subst-rename? | |
6075 | wrap-subst | |
6076 | wrap-marks | |
6077 | make-wrap | |
6078 | id-sym-name&marks | |
6079 | id-sym-name | |
6080 | id? | |
6081 | nonsymbol-id? | |
6082 | global-extend | |
6083 | lookup | |
6084 | macros-only-env | |
6085 | extend-var-env | |
6086 | extend-env | |
6087 | null-env | |
6088 | binding-value | |
6089 | binding-type | |
6090 | make-binding | |
6091 | arg-check | |
6092 | source-annotation | |
6093 | no-source | |
6094 | set-syntax-object-module! | |
6095 | set-syntax-object-wrap! | |
6096 | set-syntax-object-expression! | |
6097 | syntax-object-module | |
6098 | syntax-object-wrap | |
6099 | syntax-object-expression | |
6100 | syntax-object? | |
6101 | make-syntax-object | |
6102 | build-lexical-var | |
6103 | build-letrec | |
6104 | build-named-let | |
6105 | build-let | |
6106 | build-sequence | |
6107 | build-data | |
6108 | build-primref | |
6109 | build-lambda-case | |
6110 | build-case-lambda | |
6111 | build-simple-lambda | |
6112 | build-global-definition | |
6113 | maybe-name-value! | |
6114 | build-global-assignment | |
6115 | build-global-reference | |
6116 | analyze-variable | |
6117 | build-lexical-assignment | |
6118 | build-lexical-reference | |
6360c1d4 | 6119 | build-dynlet |
f6a8e791 AW |
6120 | build-conditional |
6121 | build-application | |
6122 | build-void | |
6123 | decorate-source | |
6124 | get-global-definition-hook | |
6125 | put-global-definition-hook | |
6126 | gensym-hook | |
6127 | local-eval-hook | |
6128 | top-level-eval-hook | |
6129 | fx< | |
6130 | fx= | |
6131 | fx- | |
6132 | fx+ | |
22cf27c8 AW |
6133 | set-lambda-meta! |
6134 | lambda-meta | |
6135 | lambda? | |
3d10018e AW |
6136 | make-dynlet |
6137 | make-letrec | |
6138 | make-let | |
6139 | make-lambda-case | |
6140 | make-lambda | |
6141 | make-sequence | |
6142 | make-application | |
6143 | make-conditional | |
6144 | make-toplevel-define | |
6145 | make-toplevel-set | |
6146 | make-toplevel-ref | |
6147 | make-module-set | |
6148 | make-module-ref | |
6149 | make-lexical-set | |
6150 | make-lexical-ref | |
6151 | make-primitive-ref | |
6152 | make-const | |
131ae7b4 | 6153 | make-void) |
f6a8e791 AW |
6154 | ((top) |
6155 | (top) | |
6156 | (top) | |
6157 | (top) | |
6158 | (top) | |
6159 | (top) | |
6160 | (top) | |
6161 | (top) | |
6162 | (top) | |
6163 | (top) | |
6164 | (top) | |
6165 | (top) | |
6166 | (top) | |
6167 | (top) | |
6168 | (top) | |
6169 | (top) | |
6170 | (top) | |
6171 | (top) | |
6172 | (top) | |
6173 | (top) | |
6174 | (top) | |
6175 | (top) | |
6176 | (top) | |
6177 | (top) | |
6178 | (top) | |
6179 | (top) | |
6180 | (top) | |
6181 | (top) | |
6182 | (top) | |
6183 | (top) | |
6184 | (top) | |
6185 | (top) | |
6186 | (top) | |
6187 | (top) | |
6188 | (top) | |
6189 | (top) | |
6190 | (top) | |
6191 | (top) | |
6192 | (top) | |
6193 | (top) | |
6194 | (top) | |
6195 | (top) | |
6196 | (top) | |
6197 | (top) | |
6198 | (top) | |
6199 | (top) | |
6200 | (top) | |
6201 | (top) | |
6202 | (top) | |
6203 | (top) | |
6204 | (top) | |
6205 | (top) | |
6206 | (top) | |
6207 | (top) | |
6208 | (top) | |
6209 | (top) | |
6210 | (top) | |
6211 | (top) | |
6212 | (top) | |
6213 | (top) | |
6214 | (top) | |
6215 | (top) | |
6216 | (top) | |
6217 | (top) | |
6218 | (top) | |
6219 | (top) | |
6220 | (top) | |
6221 | (top) | |
6222 | (top) | |
6223 | (top) | |
6224 | (top) | |
6225 | (top) | |
6226 | (top) | |
6227 | (top) | |
6228 | (top) | |
6229 | (top) | |
6230 | (top) | |
6231 | (top) | |
6232 | (top) | |
6233 | (top) | |
6234 | (top) | |
6235 | (top) | |
6236 | (top) | |
6237 | (top) | |
6238 | (top) | |
6239 | (top) | |
6240 | (top) | |
6241 | (top) | |
6242 | (top) | |
6243 | (top) | |
6244 | (top) | |
6245 | (top) | |
6246 | (top) | |
6247 | (top) | |
6248 | (top) | |
6249 | (top) | |
6250 | (top) | |
6251 | (top) | |
6252 | (top) | |
6253 | (top) | |
6254 | (top) | |
6255 | (top) | |
6256 | (top) | |
6257 | (top) | |
6258 | (top) | |
6259 | (top) | |
6260 | (top) | |
6261 | (top) | |
6262 | (top) | |
6263 | (top) | |
6264 | (top) | |
6265 | (top) | |
6266 | (top) | |
6267 | (top) | |
6268 | (top) | |
6269 | (top) | |
3d10018e AW |
6270 | (top) |
6271 | (top) | |
6272 | (top) | |
6273 | (top) | |
6274 | (top) | |
6275 | (top) | |
6276 | (top) | |
6277 | (top) | |
6278 | (top) | |
6279 | (top) | |
6280 | (top) | |
6281 | (top) | |
6282 | (top) | |
6283 | (top) | |
6284 | (top) | |
6285 | (top) | |
6286 | (top) | |
22cf27c8 AW |
6287 | (top) |
6288 | (top) | |
6289 | (top) | |
f6a8e791 | 6290 | (top)) |
fb6e61ca AW |
6291 | ("i496" |
6292 | "i494" | |
6293 | "i492" | |
6294 | "i490" | |
6295 | "i488" | |
6296 | "i486" | |
22cf27c8 AW |
6297 | "i484" |
6298 | "i482" | |
6299 | "i480" | |
6300 | "i478" | |
6301 | "i476" | |
6302 | "i474" | |
6303 | "i472" | |
6304 | "i470" | |
6305 | "i468" | |
6306 | "i466" | |
6307 | "i464" | |
6308 | "i462" | |
6309 | "i460" | |
6310 | "i458" | |
6311 | "i456" | |
6312 | "i454" | |
6313 | "i452" | |
6314 | "i450" | |
6315 | "i448" | |
6316 | "i446" | |
6317 | "i444" | |
6318 | "i442" | |
6319 | "i440" | |
6320 | "i438" | |
6321 | "i436" | |
6322 | "i434" | |
6323 | "i432" | |
6324 | "i430" | |
6325 | "i428" | |
6326 | "i426" | |
fb6e61ca | 6327 | "i425" |
22cf27c8 AW |
6328 | "i424" |
6329 | "i422" | |
fb6e61ca | 6330 | "i421" |
22cf27c8 | 6331 | "i420" |
fb6e61ca | 6332 | "i419" |
22cf27c8 AW |
6333 | "i418" |
6334 | "i416" | |
22cf27c8 AW |
6335 | "i414" |
6336 | "i412" | |
22cf27c8 | 6337 | "i410" |
22cf27c8 AW |
6338 | "i408" |
6339 | "i406" | |
6340 | "i404" | |
6341 | "i402" | |
fb6e61ca AW |
6342 | "i399" |
6343 | "i397" | |
22cf27c8 | 6344 | "i396" |
fb6e61ca | 6345 | "i395" |
22cf27c8 | 6346 | "i394" |
fb6e61ca | 6347 | "i393" |
22cf27c8 | 6348 | "i392" |
fb6e61ca AW |
6349 | "i390" |
6350 | "i388" | |
22cf27c8 | 6351 | "i386" |
22cf27c8 | 6352 | "i384" |
131ae7b4 | 6353 | "i383" |
fb6e61ca AW |
6354 | "i381" |
6355 | "i379" | |
6356 | "i377" | |
6357 | "i375" | |
131ae7b4 AW |
6358 | "i373" |
6359 | "i371" | |
6360 | "i369" | |
fb6e61ca AW |
6361 | "i368" |
6362 | "i366" | |
6363 | "i364" | |
131ae7b4 | 6364 | "i363" |
fb6e61ca AW |
6365 | "i362" |
6366 | "i360" | |
131ae7b4 | 6367 | "i359" |
fb6e61ca AW |
6368 | "i357" |
6369 | "i355" | |
131ae7b4 | 6370 | "i353" |
fb6e61ca | 6371 | "i351" |
131ae7b4 AW |
6372 | "i349" |
6373 | "i347" | |
131ae7b4 | 6374 | "i345" |
131ae7b4 AW |
6375 | "i343" |
6376 | "i341" | |
6377 | "i339" | |
6378 | "i337" | |
6379 | "i335" | |
6380 | "i333" | |
6381 | "i331" | |
6382 | "i329" | |
6383 | "i327" | |
22cf27c8 AW |
6384 | "i325" |
6385 | "i323" | |
131ae7b4 | 6386 | "i321" |
131ae7b4 | 6387 | "i319" |
131ae7b4 AW |
6388 | "i317" |
6389 | "i315" | |
6390 | "i313" | |
6391 | "i311" | |
6392 | "i309" | |
22cf27c8 AW |
6393 | "i307" |
6394 | "i305" | |
6395 | "i303" | |
6396 | "i301" | |
6397 | "i299" | |
6398 | "i297" | |
6399 | "i295" | |
fb6e61ca AW |
6400 | "i294" |
6401 | "i292" | |
6402 | "i290" | |
6403 | "i288" | |
6404 | "i286" | |
131ae7b4 AW |
6405 | "i284" |
6406 | "i282" | |
6407 | "i280" | |
6408 | "i278" | |
6409 | "i276" | |
fb6e61ca AW |
6410 | "i273" |
6411 | "i271" | |
6412 | "i269" | |
6413 | "i267" | |
6414 | "i265" | |
22cf27c8 AW |
6415 | "i263" |
6416 | "i261" | |
6417 | "i259" | |
6418 | "i257" | |
6419 | "i255" | |
6420 | "i253" | |
6421 | "i251" | |
6422 | "i249" | |
6423 | "i247" | |
6424 | "i245" | |
6425 | "i243" | |
6426 | "i241" | |
fb6e61ca | 6427 | "i239")) |
f6a8e791 | 6428 | #(ribcage |
3d10018e | 6429 | (define-structure |
22cf27c8 | 6430 | define-expansion-accessors |
3d10018e AW |
6431 | define-expansion-constructors |
6432 | and-map*) | |
22cf27c8 | 6433 | ((top) (top) (top) (top)) |
fb6e61ca | 6434 | ("i33" "i32" "i31" "i29"))) |
f6a8e791 AW |
6435 | (hygiene guile))) |
6436 | 'compile | |
fb6e61ca AW |
6437 | (if (#{free-id=?\ 441}# |
6438 | #{x\ 1938}# | |
f6a8e791 AW |
6439 | '#(syntax-object |
6440 | load | |
6441 | ((top) | |
6442 | #(ribcage () () ()) | |
6443 | #(ribcage () () ()) | |
6444 | #(ribcage () () ()) | |
6445 | #(ribcage | |
6446 | #(x) | |
6447 | #((top)) | |
fb6e61ca | 6448 | #("i1937")) |
f6a8e791 AW |
6449 | #(ribcage () () ()) |
6450 | #(ribcage | |
6451 | #(f when-list situations) | |
6452 | #((top) (top) (top)) | |
fb6e61ca AW |
6453 | #("i1931" |
6454 | "i1932" | |
6455 | "i1933")) | |
f6a8e791 AW |
6456 | #(ribcage () () ()) |
6457 | #(ribcage | |
6458 | #(e when-list w) | |
6459 | #((top) (top) (top)) | |
fb6e61ca AW |
6460 | #("i1928" |
6461 | "i1929" | |
6462 | "i1930")) | |
f6a8e791 AW |
6463 | #(ribcage |
6464 | (lambda-var-list | |
6465 | gen-var | |
6466 | strip | |
6467 | chi-lambda-case | |
6468 | lambda*-formals | |
6469 | chi-simple-lambda | |
6470 | lambda-formals | |
6471 | ellipsis? | |
6472 | chi-void | |
6473 | eval-local-transformer | |
6474 | chi-local-syntax | |
6475 | chi-body | |
6476 | chi-macro | |
6477 | chi-application | |
6478 | chi-expr | |
6479 | chi | |
6480 | chi-top | |
6481 | syntax-type | |
6482 | chi-when-list | |
6483 | chi-install-global | |
6484 | chi-top-sequence | |
6485 | chi-sequence | |
6486 | source-wrap | |
6487 | wrap | |
6488 | bound-id-member? | |
6489 | distinct-bound-ids? | |
6490 | valid-bound-ids? | |
6491 | bound-id=? | |
6492 | free-id=? | |
6493 | id-var-name | |
6494 | same-marks? | |
6495 | join-marks | |
6496 | join-wraps | |
6497 | smart-append | |
6498 | make-binding-wrap | |
6499 | extend-ribcage! | |
6500 | make-empty-ribcage | |
6501 | new-mark | |
6502 | anti-mark | |
6503 | the-anti-mark | |
6504 | top-marked? | |
6505 | top-wrap | |
6506 | empty-wrap | |
6507 | set-ribcage-labels! | |
6508 | set-ribcage-marks! | |
6509 | set-ribcage-symnames! | |
6510 | ribcage-labels | |
6511 | ribcage-marks | |
6512 | ribcage-symnames | |
6513 | ribcage? | |
6514 | make-ribcage | |
6515 | gen-labels | |
6516 | gen-label | |
6517 | make-rename | |
6518 | rename-marks | |
6519 | rename-new | |
6520 | rename-old | |
6521 | subst-rename? | |
6522 | wrap-subst | |
6523 | wrap-marks | |
6524 | make-wrap | |
6525 | id-sym-name&marks | |
6526 | id-sym-name | |
6527 | id? | |
6528 | nonsymbol-id? | |
6529 | global-extend | |
6530 | lookup | |
6531 | macros-only-env | |
6532 | extend-var-env | |
6533 | extend-env | |
6534 | null-env | |
6535 | binding-value | |
6536 | binding-type | |
6537 | make-binding | |
6538 | arg-check | |
6539 | source-annotation | |
6540 | no-source | |
6541 | set-syntax-object-module! | |
6542 | set-syntax-object-wrap! | |
6543 | set-syntax-object-expression! | |
6544 | syntax-object-module | |
6545 | syntax-object-wrap | |
6546 | syntax-object-expression | |
6547 | syntax-object? | |
6548 | make-syntax-object | |
6549 | build-lexical-var | |
6550 | build-letrec | |
6551 | build-named-let | |
6552 | build-let | |
6553 | build-sequence | |
6554 | build-data | |
6555 | build-primref | |
6556 | build-lambda-case | |
6557 | build-case-lambda | |
6558 | build-simple-lambda | |
6559 | build-global-definition | |
6560 | maybe-name-value! | |
6561 | build-global-assignment | |
6562 | build-global-reference | |
6563 | analyze-variable | |
6564 | build-lexical-assignment | |
6565 | build-lexical-reference | |
6360c1d4 | 6566 | build-dynlet |
f6a8e791 AW |
6567 | build-conditional |
6568 | build-application | |
6569 | build-void | |
6570 | decorate-source | |
6571 | get-global-definition-hook | |
6572 | put-global-definition-hook | |
6573 | gensym-hook | |
6574 | local-eval-hook | |
6575 | top-level-eval-hook | |
6576 | fx< | |
6577 | fx= | |
6578 | fx- | |
6579 | fx+ | |
22cf27c8 AW |
6580 | set-lambda-meta! |
6581 | lambda-meta | |
6582 | lambda? | |
3d10018e AW |
6583 | make-dynlet |
6584 | make-letrec | |
6585 | make-let | |
6586 | make-lambda-case | |
6587 | make-lambda | |
6588 | make-sequence | |
6589 | make-application | |
6590 | make-conditional | |
6591 | make-toplevel-define | |
6592 | make-toplevel-set | |
6593 | make-toplevel-ref | |
6594 | make-module-set | |
6595 | make-module-ref | |
6596 | make-lexical-set | |
6597 | make-lexical-ref | |
6598 | make-primitive-ref | |
6599 | make-const | |
131ae7b4 | 6600 | make-void) |
f6a8e791 AW |
6601 | ((top) |
6602 | (top) | |
6603 | (top) | |
6604 | (top) | |
6605 | (top) | |
6606 | (top) | |
6607 | (top) | |
6608 | (top) | |
6609 | (top) | |
6610 | (top) | |
6611 | (top) | |
6612 | (top) | |
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) | |
3d10018e AW |
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) | |
22cf27c8 AW |
6734 | (top) |
6735 | (top) | |
6736 | (top) | |
f6a8e791 | 6737 | (top)) |
fb6e61ca AW |
6738 | ("i496" |
6739 | "i494" | |
6740 | "i492" | |
6741 | "i490" | |
6742 | "i488" | |
6743 | "i486" | |
22cf27c8 AW |
6744 | "i484" |
6745 | "i482" | |
6746 | "i480" | |
6747 | "i478" | |
6748 | "i476" | |
6749 | "i474" | |
6750 | "i472" | |
6751 | "i470" | |
6752 | "i468" | |
6753 | "i466" | |
6754 | "i464" | |
6755 | "i462" | |
6756 | "i460" | |
6757 | "i458" | |
6758 | "i456" | |
6759 | "i454" | |
6760 | "i452" | |
6761 | "i450" | |
6762 | "i448" | |
6763 | "i446" | |
6764 | "i444" | |
6765 | "i442" | |
6766 | "i440" | |
6767 | "i438" | |
6768 | "i436" | |
6769 | "i434" | |
6770 | "i432" | |
6771 | "i430" | |
6772 | "i428" | |
6773 | "i426" | |
fb6e61ca | 6774 | "i425" |
22cf27c8 AW |
6775 | "i424" |
6776 | "i422" | |
fb6e61ca | 6777 | "i421" |
22cf27c8 | 6778 | "i420" |
fb6e61ca | 6779 | "i419" |
22cf27c8 AW |
6780 | "i418" |
6781 | "i416" | |
22cf27c8 AW |
6782 | "i414" |
6783 | "i412" | |
22cf27c8 | 6784 | "i410" |
22cf27c8 AW |
6785 | "i408" |
6786 | "i406" | |
6787 | "i404" | |
6788 | "i402" | |
fb6e61ca AW |
6789 | "i399" |
6790 | "i397" | |
22cf27c8 | 6791 | "i396" |
fb6e61ca | 6792 | "i395" |
22cf27c8 | 6793 | "i394" |
fb6e61ca | 6794 | "i393" |
22cf27c8 | 6795 | "i392" |
fb6e61ca AW |
6796 | "i390" |
6797 | "i388" | |
22cf27c8 | 6798 | "i386" |
22cf27c8 | 6799 | "i384" |
131ae7b4 | 6800 | "i383" |
fb6e61ca AW |
6801 | "i381" |
6802 | "i379" | |
6803 | "i377" | |
6804 | "i375" | |
131ae7b4 AW |
6805 | "i373" |
6806 | "i371" | |
6807 | "i369" | |
fb6e61ca AW |
6808 | "i368" |
6809 | "i366" | |
6810 | "i364" | |
131ae7b4 | 6811 | "i363" |
fb6e61ca AW |
6812 | "i362" |
6813 | "i360" | |
131ae7b4 | 6814 | "i359" |
fb6e61ca AW |
6815 | "i357" |
6816 | "i355" | |
131ae7b4 | 6817 | "i353" |
fb6e61ca | 6818 | "i351" |
131ae7b4 AW |
6819 | "i349" |
6820 | "i347" | |
131ae7b4 | 6821 | "i345" |
131ae7b4 AW |
6822 | "i343" |
6823 | "i341" | |
6824 | "i339" | |
6825 | "i337" | |
6826 | "i335" | |
6827 | "i333" | |
6828 | "i331" | |
6829 | "i329" | |
6830 | "i327" | |
22cf27c8 AW |
6831 | "i325" |
6832 | "i323" | |
131ae7b4 | 6833 | "i321" |
131ae7b4 | 6834 | "i319" |
131ae7b4 AW |
6835 | "i317" |
6836 | "i315" | |
6837 | "i313" | |
6838 | "i311" | |
6839 | "i309" | |
22cf27c8 AW |
6840 | "i307" |
6841 | "i305" | |
6842 | "i303" | |
6843 | "i301" | |
6844 | "i299" | |
6845 | "i297" | |
6846 | "i295" | |
fb6e61ca AW |
6847 | "i294" |
6848 | "i292" | |
6849 | "i290" | |
6850 | "i288" | |
6851 | "i286" | |
131ae7b4 AW |
6852 | "i284" |
6853 | "i282" | |
6854 | "i280" | |
6855 | "i278" | |
6856 | "i276" | |
fb6e61ca AW |
6857 | "i273" |
6858 | "i271" | |
6859 | "i269" | |
6860 | "i267" | |
6861 | "i265" | |
22cf27c8 AW |
6862 | "i263" |
6863 | "i261" | |
6864 | "i259" | |
6865 | "i257" | |
6866 | "i255" | |
6867 | "i253" | |
6868 | "i251" | |
6869 | "i249" | |
6870 | "i247" | |
6871 | "i245" | |
6872 | "i243" | |
6873 | "i241" | |
fb6e61ca | 6874 | "i239")) |
f6a8e791 AW |
6875 | #(ribcage |
6876 | (define-structure | |
22cf27c8 | 6877 | define-expansion-accessors |
3d10018e | 6878 | define-expansion-constructors |
f6a8e791 | 6879 | and-map*) |
22cf27c8 | 6880 | ((top) (top) (top) (top)) |
fb6e61ca AW |
6881 | ("i33" |
6882 | "i32" | |
6883 | "i31" | |
6884 | "i29"))) | |
f6a8e791 AW |
6885 | (hygiene guile))) |
6886 | 'load | |
fb6e61ca AW |
6887 | (if (#{free-id=?\ 441}# |
6888 | #{x\ 1938}# | |
f6a8e791 AW |
6889 | '#(syntax-object |
6890 | eval | |
6891 | ((top) | |
6892 | #(ribcage () () ()) | |
6893 | #(ribcage () () ()) | |
6894 | #(ribcage () () ()) | |
6895 | #(ribcage | |
6896 | #(x) | |
6897 | #((top)) | |
fb6e61ca | 6898 | #("i1937")) |
f6a8e791 AW |
6899 | #(ribcage () () ()) |
6900 | #(ribcage | |
6901 | #(f | |
6902 | when-list | |
6903 | situations) | |
6904 | #((top) (top) (top)) | |
fb6e61ca AW |
6905 | #("i1931" |
6906 | "i1932" | |
6907 | "i1933")) | |
f6a8e791 AW |
6908 | #(ribcage () () ()) |
6909 | #(ribcage | |
6910 | #(e when-list w) | |
6911 | #((top) (top) (top)) | |
fb6e61ca AW |
6912 | #("i1928" |
6913 | "i1929" | |
6914 | "i1930")) | |
f6a8e791 AW |
6915 | #(ribcage |
6916 | (lambda-var-list | |
6917 | gen-var | |
6918 | strip | |
6919 | chi-lambda-case | |
6920 | lambda*-formals | |
6921 | chi-simple-lambda | |
6922 | lambda-formals | |
6923 | ellipsis? | |
6924 | chi-void | |
6925 | eval-local-transformer | |
6926 | chi-local-syntax | |
6927 | chi-body | |
6928 | chi-macro | |
6929 | chi-application | |
6930 | chi-expr | |
6931 | chi | |
6932 | chi-top | |
6933 | syntax-type | |
6934 | chi-when-list | |
6935 | chi-install-global | |
6936 | chi-top-sequence | |
6937 | chi-sequence | |
6938 | source-wrap | |
6939 | wrap | |
6940 | bound-id-member? | |
6941 | distinct-bound-ids? | |
6942 | valid-bound-ids? | |
6943 | bound-id=? | |
6944 | free-id=? | |
6945 | id-var-name | |
6946 | same-marks? | |
6947 | join-marks | |
6948 | join-wraps | |
6949 | smart-append | |
6950 | make-binding-wrap | |
6951 | extend-ribcage! | |
6952 | make-empty-ribcage | |
6953 | new-mark | |
6954 | anti-mark | |
6955 | the-anti-mark | |
6956 | top-marked? | |
6957 | top-wrap | |
6958 | empty-wrap | |
6959 | set-ribcage-labels! | |
6960 | set-ribcage-marks! | |
6961 | set-ribcage-symnames! | |
6962 | ribcage-labels | |
6963 | ribcage-marks | |
6964 | ribcage-symnames | |
6965 | ribcage? | |
6966 | make-ribcage | |
6967 | gen-labels | |
6968 | gen-label | |
6969 | make-rename | |
6970 | rename-marks | |
6971 | rename-new | |
6972 | rename-old | |
6973 | subst-rename? | |
6974 | wrap-subst | |
6975 | wrap-marks | |
6976 | make-wrap | |
6977 | id-sym-name&marks | |
6978 | id-sym-name | |
6979 | id? | |
6980 | nonsymbol-id? | |
6981 | global-extend | |
6982 | lookup | |
6983 | macros-only-env | |
6984 | extend-var-env | |
6985 | extend-env | |
6986 | null-env | |
6987 | binding-value | |
6988 | binding-type | |
6989 | make-binding | |
6990 | arg-check | |
6991 | source-annotation | |
6992 | no-source | |
6993 | set-syntax-object-module! | |
6994 | set-syntax-object-wrap! | |
6995 | set-syntax-object-expression! | |
6996 | syntax-object-module | |
6997 | syntax-object-wrap | |
6998 | syntax-object-expression | |
6999 | syntax-object? | |
7000 | make-syntax-object | |
7001 | build-lexical-var | |
7002 | build-letrec | |
7003 | build-named-let | |
7004 | build-let | |
7005 | build-sequence | |
7006 | build-data | |
7007 | build-primref | |
7008 | build-lambda-case | |
7009 | build-case-lambda | |
7010 | build-simple-lambda | |
7011 | build-global-definition | |
7012 | maybe-name-value! | |
7013 | build-global-assignment | |
7014 | build-global-reference | |
7015 | analyze-variable | |
7016 | build-lexical-assignment | |
7017 | build-lexical-reference | |
6360c1d4 | 7018 | build-dynlet |
f6a8e791 AW |
7019 | build-conditional |
7020 | build-application | |
7021 | build-void | |
7022 | decorate-source | |
7023 | get-global-definition-hook | |
7024 | put-global-definition-hook | |
7025 | gensym-hook | |
7026 | local-eval-hook | |
7027 | top-level-eval-hook | |
7028 | fx< | |
7029 | fx= | |
7030 | fx- | |
7031 | fx+ | |
22cf27c8 AW |
7032 | set-lambda-meta! |
7033 | lambda-meta | |
7034 | lambda? | |
3d10018e AW |
7035 | make-dynlet |
7036 | make-letrec | |
7037 | make-let | |
7038 | make-lambda-case | |
7039 | make-lambda | |
7040 | make-sequence | |
7041 | make-application | |
7042 | make-conditional | |
7043 | make-toplevel-define | |
7044 | make-toplevel-set | |
7045 | make-toplevel-ref | |
7046 | make-module-set | |
7047 | make-module-ref | |
7048 | make-lexical-set | |
7049 | make-lexical-ref | |
7050 | make-primitive-ref | |
7051 | make-const | |
131ae7b4 | 7052 | make-void) |
f6a8e791 AW |
7053 | ((top) |
7054 | (top) | |
7055 | (top) | |
7056 | (top) | |
7057 | (top) | |
7058 | (top) | |
7059 | (top) | |
7060 | (top) | |
7061 | (top) | |
7062 | (top) | |
7063 | (top) | |
7064 | (top) | |
7065 | (top) | |
7066 | (top) | |
7067 | (top) | |
7068 | (top) | |
7069 | (top) | |
7070 | (top) | |
7071 | (top) | |
7072 | (top) | |
7073 | (top) | |
7074 | (top) | |
7075 | (top) | |
7076 | (top) | |
7077 | (top) | |
7078 | (top) | |
7079 | (top) | |
7080 | (top) | |
7081 | (top) | |
7082 | (top) | |
7083 | (top) | |
7084 | (top) | |
7085 | (top) | |
7086 | (top) | |
7087 | (top) | |
7088 | (top) | |
7089 | (top) | |
7090 | (top) | |
7091 | (top) | |
7092 | (top) | |
7093 | (top) | |
7094 | (top) | |
7095 | (top) | |
7096 | (top) | |
7097 | (top) | |
7098 | (top) | |
7099 | (top) | |
7100 | (top) | |
7101 | (top) | |
7102 | (top) | |
7103 | (top) | |
7104 | (top) | |
7105 | (top) | |
7106 | (top) | |
7107 | (top) | |
7108 | (top) | |
7109 | (top) | |
7110 | (top) | |
7111 | (top) | |
7112 | (top) | |
7113 | (top) | |
7114 | (top) | |
7115 | (top) | |
7116 | (top) | |
7117 | (top) | |
7118 | (top) | |
7119 | (top) | |
7120 | (top) | |
7121 | (top) | |
7122 | (top) | |
7123 | (top) | |
7124 | (top) | |
7125 | (top) | |
7126 | (top) | |
7127 | (top) | |
7128 | (top) | |
7129 | (top) | |
7130 | (top) | |
7131 | (top) | |
7132 | (top) | |
7133 | (top) | |
7134 | (top) | |
7135 | (top) | |
7136 | (top) | |
7137 | (top) | |
7138 | (top) | |
7139 | (top) | |
7140 | (top) | |
7141 | (top) | |
7142 | (top) | |
7143 | (top) | |
7144 | (top) | |
7145 | (top) | |
7146 | (top) | |
7147 | (top) | |
7148 | (top) | |
7149 | (top) | |
7150 | (top) | |
7151 | (top) | |
7152 | (top) | |
7153 | (top) | |
7154 | (top) | |
7155 | (top) | |
7156 | (top) | |
7157 | (top) | |
7158 | (top) | |
7159 | (top) | |
7160 | (top) | |
7161 | (top) | |
7162 | (top) | |
7163 | (top) | |
7164 | (top) | |
7165 | (top) | |
7166 | (top) | |
7167 | (top) | |
7168 | (top) | |
3d10018e AW |
7169 | (top) |
7170 | (top) | |
7171 | (top) | |
7172 | (top) | |
7173 | (top) | |
7174 | (top) | |
7175 | (top) | |
7176 | (top) | |
7177 | (top) | |
7178 | (top) | |
7179 | (top) | |
7180 | (top) | |
7181 | (top) | |
7182 | (top) | |
7183 | (top) | |
7184 | (top) | |
7185 | (top) | |
22cf27c8 AW |
7186 | (top) |
7187 | (top) | |
7188 | (top) | |
f6a8e791 | 7189 | (top)) |
fb6e61ca AW |
7190 | ("i496" |
7191 | "i494" | |
7192 | "i492" | |
7193 | "i490" | |
7194 | "i488" | |
7195 | "i486" | |
22cf27c8 AW |
7196 | "i484" |
7197 | "i482" | |
7198 | "i480" | |
7199 | "i478" | |
7200 | "i476" | |
7201 | "i474" | |
7202 | "i472" | |
7203 | "i470" | |
7204 | "i468" | |
7205 | "i466" | |
7206 | "i464" | |
7207 | "i462" | |
7208 | "i460" | |
7209 | "i458" | |
7210 | "i456" | |
7211 | "i454" | |
7212 | "i452" | |
7213 | "i450" | |
7214 | "i448" | |
7215 | "i446" | |
7216 | "i444" | |
7217 | "i442" | |
7218 | "i440" | |
7219 | "i438" | |
7220 | "i436" | |
7221 | "i434" | |
7222 | "i432" | |
7223 | "i430" | |
7224 | "i428" | |
7225 | "i426" | |
fb6e61ca | 7226 | "i425" |
22cf27c8 AW |
7227 | "i424" |
7228 | "i422" | |
fb6e61ca | 7229 | "i421" |
22cf27c8 | 7230 | "i420" |
fb6e61ca | 7231 | "i419" |
22cf27c8 AW |
7232 | "i418" |
7233 | "i416" | |
22cf27c8 AW |
7234 | "i414" |
7235 | "i412" | |
22cf27c8 | 7236 | "i410" |
22cf27c8 AW |
7237 | "i408" |
7238 | "i406" | |
7239 | "i404" | |
7240 | "i402" | |
fb6e61ca AW |
7241 | "i399" |
7242 | "i397" | |
22cf27c8 | 7243 | "i396" |
fb6e61ca | 7244 | "i395" |
22cf27c8 | 7245 | "i394" |
fb6e61ca | 7246 | "i393" |
22cf27c8 | 7247 | "i392" |
fb6e61ca AW |
7248 | "i390" |
7249 | "i388" | |
22cf27c8 | 7250 | "i386" |
22cf27c8 | 7251 | "i384" |
131ae7b4 | 7252 | "i383" |
fb6e61ca AW |
7253 | "i381" |
7254 | "i379" | |
7255 | "i377" | |
7256 | "i375" | |
131ae7b4 AW |
7257 | "i373" |
7258 | "i371" | |
7259 | "i369" | |
fb6e61ca AW |
7260 | "i368" |
7261 | "i366" | |
7262 | "i364" | |
131ae7b4 | 7263 | "i363" |
fb6e61ca AW |
7264 | "i362" |
7265 | "i360" | |
131ae7b4 | 7266 | "i359" |
fb6e61ca AW |
7267 | "i357" |
7268 | "i355" | |
131ae7b4 | 7269 | "i353" |
fb6e61ca | 7270 | "i351" |
131ae7b4 AW |
7271 | "i349" |
7272 | "i347" | |
131ae7b4 | 7273 | "i345" |
131ae7b4 AW |
7274 | "i343" |
7275 | "i341" | |
7276 | "i339" | |
7277 | "i337" | |
7278 | "i335" | |
7279 | "i333" | |
7280 | "i331" | |
7281 | "i329" | |
7282 | "i327" | |
22cf27c8 AW |
7283 | "i325" |
7284 | "i323" | |
131ae7b4 | 7285 | "i321" |
131ae7b4 | 7286 | "i319" |
131ae7b4 AW |
7287 | "i317" |
7288 | "i315" | |
7289 | "i313" | |
7290 | "i311" | |
7291 | "i309" | |
22cf27c8 AW |
7292 | "i307" |
7293 | "i305" | |
7294 | "i303" | |
7295 | "i301" | |
7296 | "i299" | |
7297 | "i297" | |
7298 | "i295" | |
fb6e61ca AW |
7299 | "i294" |
7300 | "i292" | |
7301 | "i290" | |
7302 | "i288" | |
7303 | "i286" | |
131ae7b4 AW |
7304 | "i284" |
7305 | "i282" | |
7306 | "i280" | |
7307 | "i278" | |
7308 | "i276" | |
fb6e61ca AW |
7309 | "i273" |
7310 | "i271" | |
7311 | "i269" | |
7312 | "i267" | |
7313 | "i265" | |
22cf27c8 AW |
7314 | "i263" |
7315 | "i261" | |
7316 | "i259" | |
7317 | "i257" | |
7318 | "i255" | |
7319 | "i253" | |
7320 | "i251" | |
7321 | "i249" | |
7322 | "i247" | |
7323 | "i245" | |
7324 | "i243" | |
7325 | "i241" | |
fb6e61ca | 7326 | "i239")) |
f6a8e791 AW |
7327 | #(ribcage |
7328 | (define-structure | |
22cf27c8 | 7329 | define-expansion-accessors |
3d10018e | 7330 | define-expansion-constructors |
f6a8e791 | 7331 | and-map*) |
22cf27c8 AW |
7332 | ((top) |
7333 | (top) | |
7334 | (top) | |
7335 | (top)) | |
fb6e61ca AW |
7336 | ("i33" |
7337 | "i32" | |
7338 | "i31" | |
7339 | "i29"))) | |
f6a8e791 AW |
7340 | (hygiene guile))) |
7341 | 'eval | |
fb6e61ca AW |
7342 | (if (#{free-id=?\ 441}# |
7343 | #{x\ 1938}# | |
807f7ab0 AW |
7344 | '#(syntax-object |
7345 | expand | |
7346 | ((top) | |
7347 | #(ribcage () () ()) | |
7348 | #(ribcage () () ()) | |
7349 | #(ribcage () () ()) | |
7350 | #(ribcage | |
7351 | #(x) | |
7352 | #((top)) | |
fb6e61ca | 7353 | #("i1937")) |
807f7ab0 AW |
7354 | #(ribcage () () ()) |
7355 | #(ribcage | |
7356 | #(f | |
7357 | when-list | |
7358 | situations) | |
7359 | #((top) (top) (top)) | |
fb6e61ca AW |
7360 | #("i1931" |
7361 | "i1932" | |
7362 | "i1933")) | |
807f7ab0 AW |
7363 | #(ribcage () () ()) |
7364 | #(ribcage | |
7365 | #(e when-list w) | |
7366 | #((top) (top) (top)) | |
fb6e61ca AW |
7367 | #("i1928" |
7368 | "i1929" | |
7369 | "i1930")) | |
807f7ab0 AW |
7370 | #(ribcage |
7371 | (lambda-var-list | |
7372 | gen-var | |
7373 | strip | |
7374 | chi-lambda-case | |
7375 | lambda*-formals | |
7376 | chi-simple-lambda | |
7377 | lambda-formals | |
7378 | ellipsis? | |
7379 | chi-void | |
7380 | eval-local-transformer | |
7381 | chi-local-syntax | |
7382 | chi-body | |
7383 | chi-macro | |
7384 | chi-application | |
7385 | chi-expr | |
7386 | chi | |
7387 | chi-top | |
7388 | syntax-type | |
7389 | chi-when-list | |
7390 | chi-install-global | |
7391 | chi-top-sequence | |
7392 | chi-sequence | |
7393 | source-wrap | |
7394 | wrap | |
7395 | bound-id-member? | |
7396 | distinct-bound-ids? | |
7397 | valid-bound-ids? | |
7398 | bound-id=? | |
7399 | free-id=? | |
7400 | id-var-name | |
7401 | same-marks? | |
7402 | join-marks | |
7403 | join-wraps | |
7404 | smart-append | |
7405 | make-binding-wrap | |
7406 | extend-ribcage! | |
7407 | make-empty-ribcage | |
7408 | new-mark | |
7409 | anti-mark | |
7410 | the-anti-mark | |
7411 | top-marked? | |
7412 | top-wrap | |
7413 | empty-wrap | |
7414 | set-ribcage-labels! | |
7415 | set-ribcage-marks! | |
7416 | set-ribcage-symnames! | |
7417 | ribcage-labels | |
7418 | ribcage-marks | |
7419 | ribcage-symnames | |
7420 | ribcage? | |
7421 | make-ribcage | |
7422 | gen-labels | |
7423 | gen-label | |
7424 | make-rename | |
7425 | rename-marks | |
7426 | rename-new | |
7427 | rename-old | |
7428 | subst-rename? | |
7429 | wrap-subst | |
7430 | wrap-marks | |
7431 | make-wrap | |
7432 | id-sym-name&marks | |
7433 | id-sym-name | |
7434 | id? | |
7435 | nonsymbol-id? | |
7436 | global-extend | |
7437 | lookup | |
7438 | macros-only-env | |
7439 | extend-var-env | |
7440 | extend-env | |
7441 | null-env | |
7442 | binding-value | |
7443 | binding-type | |
7444 | make-binding | |
7445 | arg-check | |
7446 | source-annotation | |
7447 | no-source | |
7448 | set-syntax-object-module! | |
7449 | set-syntax-object-wrap! | |
7450 | set-syntax-object-expression! | |
7451 | syntax-object-module | |
7452 | syntax-object-wrap | |
7453 | syntax-object-expression | |
7454 | syntax-object? | |
7455 | make-syntax-object | |
7456 | build-lexical-var | |
7457 | build-letrec | |
7458 | build-named-let | |
7459 | build-let | |
7460 | build-sequence | |
7461 | build-data | |
7462 | build-primref | |
7463 | build-lambda-case | |
7464 | build-case-lambda | |
7465 | build-simple-lambda | |
7466 | build-global-definition | |
7467 | maybe-name-value! | |
7468 | build-global-assignment | |
7469 | build-global-reference | |
7470 | analyze-variable | |
7471 | build-lexical-assignment | |
7472 | build-lexical-reference | |
7473 | build-dynlet | |
7474 | build-conditional | |
7475 | build-application | |
7476 | build-void | |
7477 | decorate-source | |
7478 | get-global-definition-hook | |
7479 | put-global-definition-hook | |
7480 | gensym-hook | |
7481 | local-eval-hook | |
7482 | top-level-eval-hook | |
7483 | fx< | |
7484 | fx= | |
7485 | fx- | |
7486 | fx+ | |
22cf27c8 AW |
7487 | set-lambda-meta! |
7488 | lambda-meta | |
7489 | lambda? | |
3d10018e AW |
7490 | make-dynlet |
7491 | make-letrec | |
7492 | make-let | |
7493 | make-lambda-case | |
7494 | make-lambda | |
7495 | make-sequence | |
7496 | make-application | |
7497 | make-conditional | |
7498 | make-toplevel-define | |
7499 | make-toplevel-set | |
7500 | make-toplevel-ref | |
7501 | make-module-set | |
7502 | make-module-ref | |
7503 | make-lexical-set | |
7504 | make-lexical-ref | |
7505 | make-primitive-ref | |
7506 | make-const | |
131ae7b4 | 7507 | make-void) |
807f7ab0 AW |
7508 | ((top) |
7509 | (top) | |
7510 | (top) | |
7511 | (top) | |
7512 | (top) | |
7513 | (top) | |
7514 | (top) | |
7515 | (top) | |
7516 | (top) | |
7517 | (top) | |
7518 | (top) | |
7519 | (top) | |
7520 | (top) | |
7521 | (top) | |
7522 | (top) | |
7523 | (top) | |
7524 | (top) | |
7525 | (top) | |
7526 | (top) | |
7527 | (top) | |
7528 | (top) | |
7529 | (top) | |
7530 | (top) | |
7531 | (top) | |
7532 | (top) | |
7533 | (top) | |
7534 | (top) | |
7535 | (top) | |
7536 | (top) | |
7537 | (top) | |
7538 | (top) | |
7539 | (top) | |
7540 | (top) | |
7541 | (top) | |
7542 | (top) | |
7543 | (top) | |
7544 | (top) | |
7545 | (top) | |
7546 | (top) | |
7547 | (top) | |
7548 | (top) | |
7549 | (top) | |
7550 | (top) | |
7551 | (top) | |
7552 | (top) | |
7553 | (top) | |
7554 | (top) | |
7555 | (top) | |
7556 | (top) | |
7557 | (top) | |
7558 | (top) | |
7559 | (top) | |
7560 | (top) | |
7561 | (top) | |
7562 | (top) | |
7563 | (top) | |
7564 | (top) | |
7565 | (top) | |
7566 | (top) | |
7567 | (top) | |
7568 | (top) | |
7569 | (top) | |
7570 | (top) | |
7571 | (top) | |
7572 | (top) | |
7573 | (top) | |
7574 | (top) | |
7575 | (top) | |
7576 | (top) | |
7577 | (top) | |
7578 | (top) | |
7579 | (top) | |
7580 | (top) | |
7581 | (top) | |
7582 | (top) | |
7583 | (top) | |
7584 | (top) | |
7585 | (top) | |
7586 | (top) | |
7587 | (top) | |
7588 | (top) | |
7589 | (top) | |
7590 | (top) | |
7591 | (top) | |
7592 | (top) | |
7593 | (top) | |
7594 | (top) | |
7595 | (top) | |
7596 | (top) | |
7597 | (top) | |
7598 | (top) | |
7599 | (top) | |
7600 | (top) | |
7601 | (top) | |
7602 | (top) | |
7603 | (top) | |
7604 | (top) | |
7605 | (top) | |
7606 | (top) | |
7607 | (top) | |
7608 | (top) | |
7609 | (top) | |
7610 | (top) | |
7611 | (top) | |
7612 | (top) | |
7613 | (top) | |
7614 | (top) | |
7615 | (top) | |
7616 | (top) | |
7617 | (top) | |
7618 | (top) | |
7619 | (top) | |
7620 | (top) | |
7621 | (top) | |
7622 | (top) | |
7623 | (top) | |
3d10018e AW |
7624 | (top) |
7625 | (top) | |
7626 | (top) | |
7627 | (top) | |
7628 | (top) | |
7629 | (top) | |
7630 | (top) | |
7631 | (top) | |
7632 | (top) | |
7633 | (top) | |
7634 | (top) | |
7635 | (top) | |
7636 | (top) | |
7637 | (top) | |
7638 | (top) | |
7639 | (top) | |
7640 | (top) | |
22cf27c8 AW |
7641 | (top) |
7642 | (top) | |
7643 | (top) | |
807f7ab0 | 7644 | (top)) |
fb6e61ca AW |
7645 | ("i496" |
7646 | "i494" | |
7647 | "i492" | |
7648 | "i490" | |
7649 | "i488" | |
7650 | "i486" | |
22cf27c8 AW |
7651 | "i484" |
7652 | "i482" | |
7653 | "i480" | |
7654 | "i478" | |
7655 | "i476" | |
7656 | "i474" | |
7657 | "i472" | |
7658 | "i470" | |
7659 | "i468" | |
7660 | "i466" | |
7661 | "i464" | |
7662 | "i462" | |
7663 | "i460" | |
7664 | "i458" | |
7665 | "i456" | |
7666 | "i454" | |
7667 | "i452" | |
7668 | "i450" | |
7669 | "i448" | |
7670 | "i446" | |
7671 | "i444" | |
7672 | "i442" | |
7673 | "i440" | |
7674 | "i438" | |
7675 | "i436" | |
7676 | "i434" | |
7677 | "i432" | |
7678 | "i430" | |
7679 | "i428" | |
7680 | "i426" | |
fb6e61ca | 7681 | "i425" |
22cf27c8 AW |
7682 | "i424" |
7683 | "i422" | |
fb6e61ca | 7684 | "i421" |
22cf27c8 | 7685 | "i420" |
fb6e61ca | 7686 | "i419" |
22cf27c8 AW |
7687 | "i418" |
7688 | "i416" | |
22cf27c8 AW |
7689 | "i414" |
7690 | "i412" | |
22cf27c8 | 7691 | "i410" |
22cf27c8 AW |
7692 | "i408" |
7693 | "i406" | |
7694 | "i404" | |
7695 | "i402" | |
fb6e61ca AW |
7696 | "i399" |
7697 | "i397" | |
22cf27c8 | 7698 | "i396" |
fb6e61ca | 7699 | "i395" |
22cf27c8 | 7700 | "i394" |
fb6e61ca | 7701 | "i393" |
22cf27c8 | 7702 | "i392" |
fb6e61ca AW |
7703 | "i390" |
7704 | "i388" | |
22cf27c8 | 7705 | "i386" |
22cf27c8 | 7706 | "i384" |
131ae7b4 | 7707 | "i383" |
fb6e61ca AW |
7708 | "i381" |
7709 | "i379" | |
7710 | "i377" | |
7711 | "i375" | |
131ae7b4 AW |
7712 | "i373" |
7713 | "i371" | |
7714 | "i369" | |
fb6e61ca AW |
7715 | "i368" |
7716 | "i366" | |
7717 | "i364" | |
131ae7b4 | 7718 | "i363" |
fb6e61ca AW |
7719 | "i362" |
7720 | "i360" | |
131ae7b4 | 7721 | "i359" |
fb6e61ca AW |
7722 | "i357" |
7723 | "i355" | |
131ae7b4 | 7724 | "i353" |
fb6e61ca | 7725 | "i351" |
131ae7b4 AW |
7726 | "i349" |
7727 | "i347" | |
131ae7b4 | 7728 | "i345" |
131ae7b4 AW |
7729 | "i343" |
7730 | "i341" | |
7731 | "i339" | |
7732 | "i337" | |
7733 | "i335" | |
7734 | "i333" | |
7735 | "i331" | |
7736 | "i329" | |
7737 | "i327" | |
22cf27c8 AW |
7738 | "i325" |
7739 | "i323" | |
131ae7b4 | 7740 | "i321" |
131ae7b4 | 7741 | "i319" |
131ae7b4 AW |
7742 | "i317" |
7743 | "i315" | |
7744 | "i313" | |
7745 | "i311" | |
7746 | "i309" | |
22cf27c8 AW |
7747 | "i307" |
7748 | "i305" | |
7749 | "i303" | |
7750 | "i301" | |
7751 | "i299" | |
7752 | "i297" | |
7753 | "i295" | |
fb6e61ca AW |
7754 | "i294" |
7755 | "i292" | |
7756 | "i290" | |
7757 | "i288" | |
7758 | "i286" | |
131ae7b4 AW |
7759 | "i284" |
7760 | "i282" | |
7761 | "i280" | |
7762 | "i278" | |
7763 | "i276" | |
fb6e61ca AW |
7764 | "i273" |
7765 | "i271" | |
7766 | "i269" | |
7767 | "i267" | |
7768 | "i265" | |
22cf27c8 AW |
7769 | "i263" |
7770 | "i261" | |
7771 | "i259" | |
7772 | "i257" | |
7773 | "i255" | |
7774 | "i253" | |
7775 | "i251" | |
7776 | "i249" | |
7777 | "i247" | |
7778 | "i245" | |
7779 | "i243" | |
7780 | "i241" | |
fb6e61ca | 7781 | "i239")) |
807f7ab0 AW |
7782 | #(ribcage |
7783 | (define-structure | |
22cf27c8 | 7784 | define-expansion-accessors |
3d10018e | 7785 | define-expansion-constructors |
807f7ab0 | 7786 | and-map*) |
22cf27c8 AW |
7787 | ((top) |
7788 | (top) | |
7789 | (top) | |
7790 | (top)) | |
fb6e61ca AW |
7791 | ("i33" |
7792 | "i32" | |
7793 | "i31" | |
7794 | "i29"))) | |
807f7ab0 AW |
7795 | (hygiene guile))) |
7796 | 'expand | |
7797 | (syntax-violation | |
7798 | 'eval-when | |
7799 | "invalid situation" | |
fb6e61ca AW |
7800 | #{e\ 1925}# |
7801 | (#{wrap\ 451}# | |
7802 | #{x\ 1938}# | |
7803 | #{w\ 1927}# | |
807f7ab0 | 7804 | #f))))))) |
fb6e61ca AW |
7805 | #{situations\ 1936}#)))))) |
7806 | (#{f\ 1934}# #{when-list\ 1926}# (quote ()))))) | |
7807 | (#{chi-install-global\ 459}# | |
7808 | (lambda (#{name\ 1948}# #{e\ 1949}#) | |
7809 | (#{build-global-definition\ 322}# | |
c89222f8 | 7810 | #f |
fb6e61ca AW |
7811 | #{name\ 1948}# |
7812 | (#{build-application\ 304}# | |
e809758a | 7813 | #f |
fb6e61ca | 7814 | (#{build-primref\ 330}# |
c89222f8 | 7815 | #f |
e809758a | 7816 | 'make-syntax-transformer) |
fb6e61ca AW |
7817 | (list (#{build-data\ 332}# #f #{name\ 1948}#) |
7818 | (#{build-data\ 332}# #f (quote macro)) | |
7819 | #{e\ 1949}#))))) | |
7820 | (#{chi-top-sequence\ 457}# | |
7821 | (lambda (#{body\ 1957}# | |
7822 | #{r\ 1958}# | |
7823 | #{w\ 1959}# | |
7824 | #{s\ 1960}# | |
7825 | #{m\ 1961}# | |
7826 | #{esew\ 1962}# | |
7827 | #{mod\ 1963}#) | |
7828 | (#{build-sequence\ 334}# | |
7829 | #{s\ 1960}# | |
7830 | (letrec ((#{dobody\ 1979}# | |
7831 | (lambda (#{body\ 1980}# | |
7832 | #{r\ 1981}# | |
7833 | #{w\ 1982}# | |
7834 | #{m\ 1983}# | |
7835 | #{esew\ 1984}# | |
7836 | #{mod\ 1985}# | |
7837 | #{out\ 1986}#) | |
7838 | (if (null? #{body\ 1980}#) | |
7839 | (reverse #{out\ 1986}#) | |
7840 | (#{dobody\ 1979}# | |
7841 | (cdr #{body\ 1980}#) | |
7842 | #{r\ 1981}# | |
7843 | #{w\ 1982}# | |
7844 | #{m\ 1983}# | |
7845 | #{esew\ 1984}# | |
7846 | #{mod\ 1985}# | |
7847 | (cons (#{chi-top\ 465}# | |
7848 | (car #{body\ 1980}#) | |
7849 | #{r\ 1981}# | |
7850 | #{w\ 1982}# | |
7851 | #{m\ 1983}# | |
7852 | #{esew\ 1984}# | |
7853 | #{mod\ 1985}#) | |
7854 | #{out\ 1986}#)))))) | |
7855 | (#{dobody\ 1979}# | |
7856 | #{body\ 1957}# | |
7857 | #{r\ 1958}# | |
7858 | #{w\ 1959}# | |
7859 | #{m\ 1961}# | |
7860 | #{esew\ 1962}# | |
7861 | #{mod\ 1963}# | |
54096be7 | 7862 | '()))))) |
fb6e61ca AW |
7863 | (#{chi-sequence\ 455}# |
7864 | (lambda (#{body\ 1987}# | |
7865 | #{r\ 1988}# | |
7866 | #{w\ 1989}# | |
7867 | #{s\ 1990}# | |
7868 | #{mod\ 1991}#) | |
7869 | (#{build-sequence\ 334}# | |
7870 | #{s\ 1990}# | |
7871 | (letrec ((#{dobody\ 2002}# | |
7872 | (lambda (#{body\ 2003}# | |
7873 | #{r\ 2004}# | |
7874 | #{w\ 2005}# | |
7875 | #{mod\ 2006}#) | |
7876 | (if (null? #{body\ 2003}#) | |
c89222f8 | 7877 | '() |
fb6e61ca AW |
7878 | (let ((#{first\ 2008}# |
7879 | (#{chi\ 467}# | |
7880 | (car #{body\ 2003}#) | |
7881 | #{r\ 2004}# | |
7882 | #{w\ 2005}# | |
7883 | #{mod\ 2006}#))) | |
7884 | (cons #{first\ 2008}# | |
7885 | (#{dobody\ 2002}# | |
7886 | (cdr #{body\ 2003}#) | |
7887 | #{r\ 2004}# | |
7888 | #{w\ 2005}# | |
7889 | #{mod\ 2006}#))))))) | |
7890 | (#{dobody\ 2002}# | |
7891 | #{body\ 1987}# | |
7892 | #{r\ 1988}# | |
7893 | #{w\ 1989}# | |
7894 | #{mod\ 1991}#))))) | |
7895 | (#{source-wrap\ 453}# | |
7896 | (lambda (#{x\ 2009}# | |
7897 | #{w\ 2010}# | |
7898 | #{s\ 2011}# | |
7899 | #{defmod\ 2012}#) | |
7900 | (#{wrap\ 451}# | |
7901 | (#{decorate-source\ 300}# | |
7902 | #{x\ 2009}# | |
7903 | #{s\ 2011}#) | |
7904 | #{w\ 2010}# | |
7905 | #{defmod\ 2012}#))) | |
7906 | (#{wrap\ 451}# | |
7907 | (lambda (#{x\ 2017}# #{w\ 2018}# #{defmod\ 2019}#) | |
7908 | (if (if (null? (#{wrap-marks\ 389}# #{w\ 2018}#)) | |
7909 | (null? (#{wrap-subst\ 391}# #{w\ 2018}#)) | |
c89222f8 | 7910 | #f) |
fb6e61ca AW |
7911 | #{x\ 2017}# |
7912 | (if (#{syntax-object?\ 346}# #{x\ 2017}#) | |
7913 | (#{make-syntax-object\ 344}# | |
7914 | (#{syntax-object-expression\ 348}# #{x\ 2017}#) | |
7915 | (#{join-wraps\ 433}# | |
7916 | #{w\ 2018}# | |
7917 | (#{syntax-object-wrap\ 350}# #{x\ 2017}#)) | |
7918 | (#{syntax-object-module\ 352}# #{x\ 2017}#)) | |
7919 | (if (null? #{x\ 2017}#) | |
7920 | #{x\ 2017}# | |
7921 | (#{make-syntax-object\ 344}# | |
7922 | #{x\ 2017}# | |
7923 | #{w\ 2018}# | |
7924 | #{defmod\ 2019}#)))))) | |
7925 | (#{bound-id-member?\ 449}# | |
7926 | (lambda (#{x\ 2032}# #{list\ 2033}#) | |
7927 | (if (not (null? #{list\ 2033}#)) | |
7928 | (let ((#{t\ 2040}# | |
7929 | (#{bound-id=?\ 443}# | |
7930 | #{x\ 2032}# | |
7931 | (car #{list\ 2033}#)))) | |
7932 | (if #{t\ 2040}# | |
7933 | #{t\ 2040}# | |
7934 | (#{bound-id-member?\ 449}# | |
7935 | #{x\ 2032}# | |
7936 | (cdr #{list\ 2033}#)))) | |
c89222f8 | 7937 | #f))) |
fb6e61ca AW |
7938 | (#{distinct-bound-ids?\ 447}# |
7939 | (lambda (#{ids\ 2042}#) | |
7940 | (letrec ((#{distinct?\ 2046}# | |
7941 | (lambda (#{ids\ 2047}#) | |
7942 | (let ((#{t\ 2050}# (null? #{ids\ 2047}#))) | |
7943 | (if #{t\ 2050}# | |
7944 | #{t\ 2050}# | |
7945 | (if (not (#{bound-id-member?\ 449}# | |
7946 | (car #{ids\ 2047}#) | |
7947 | (cdr #{ids\ 2047}#))) | |
7948 | (#{distinct?\ 2046}# (cdr #{ids\ 2047}#)) | |
c89222f8 | 7949 | #f)))))) |
fb6e61ca AW |
7950 | (#{distinct?\ 2046}# #{ids\ 2042}#)))) |
7951 | (#{valid-bound-ids?\ 445}# | |
7952 | (lambda (#{ids\ 2054}#) | |
7953 | (if (letrec ((#{all-ids?\ 2059}# | |
7954 | (lambda (#{ids\ 2060}#) | |
7955 | (let ((#{t\ 2063}# (null? #{ids\ 2060}#))) | |
7956 | (if #{t\ 2063}# | |
7957 | #{t\ 2063}# | |
7958 | (if (#{id?\ 382}# (car #{ids\ 2060}#)) | |
7959 | (#{all-ids?\ 2059}# (cdr #{ids\ 2060}#)) | |
c89222f8 | 7960 | #f)))))) |
fb6e61ca AW |
7961 | (#{all-ids?\ 2059}# #{ids\ 2054}#)) |
7962 | (#{distinct-bound-ids?\ 447}# #{ids\ 2054}#) | |
c89222f8 | 7963 | #f))) |
fb6e61ca AW |
7964 | (#{bound-id=?\ 443}# |
7965 | (lambda (#{i\ 2068}# #{j\ 2069}#) | |
7966 | (if (if (#{syntax-object?\ 346}# #{i\ 2068}#) | |
7967 | (#{syntax-object?\ 346}# #{j\ 2069}#) | |
c89222f8 | 7968 | #f) |
fb6e61ca AW |
7969 | (if (eq? (#{syntax-object-expression\ 348}# #{i\ 2068}#) |
7970 | (#{syntax-object-expression\ 348}# #{j\ 2069}#)) | |
7971 | (#{same-marks?\ 437}# | |
7972 | (#{wrap-marks\ 389}# | |
7973 | (#{syntax-object-wrap\ 350}# #{i\ 2068}#)) | |
7974 | (#{wrap-marks\ 389}# | |
7975 | (#{syntax-object-wrap\ 350}# #{j\ 2069}#))) | |
c89222f8 | 7976 | #f) |
fb6e61ca AW |
7977 | (eq? #{i\ 2068}# #{j\ 2069}#)))) |
7978 | (#{free-id=?\ 441}# | |
7979 | (lambda (#{i\ 2076}# #{j\ 2077}#) | |
7980 | (if (eq? (let ((#{x\ 2083}# #{i\ 2076}#)) | |
7981 | (if (#{syntax-object?\ 346}# #{x\ 2083}#) | |
7982 | (#{syntax-object-expression\ 348}# #{x\ 2083}#) | |
7983 | #{x\ 2083}#)) | |
7984 | (let ((#{x\ 2086}# #{j\ 2077}#)) | |
7985 | (if (#{syntax-object?\ 346}# #{x\ 2086}#) | |
7986 | (#{syntax-object-expression\ 348}# #{x\ 2086}#) | |
7987 | #{x\ 2086}#))) | |
7988 | (eq? (#{id-var-name\ 439}# #{i\ 2076}# (quote (()))) | |
7989 | (#{id-var-name\ 439}# #{j\ 2077}# (quote (())))) | |
c89222f8 | 7990 | #f))) |
fb6e61ca AW |
7991 | (#{id-var-name\ 439}# |
7992 | (lambda (#{id\ 2090}# #{w\ 2091}#) | |
7993 | (letrec ((#{search-vector-rib\ 2100}# | |
7994 | (lambda (#{sym\ 2112}# | |
7995 | #{subst\ 2113}# | |
7996 | #{marks\ 2114}# | |
7997 | #{symnames\ 2115}# | |
7998 | #{ribcage\ 2116}#) | |
7999 | (let ((#{n\ 2123}# | |
8000 | (vector-length #{symnames\ 2115}#))) | |
8001 | (letrec ((#{f\ 2126}# | |
8002 | (lambda (#{i\ 2127}#) | |
8003 | (if (#{fx=\ 287}# | |
8004 | #{i\ 2127}# | |
8005 | #{n\ 2123}#) | |
8006 | (#{search\ 2096}# | |
8007 | #{sym\ 2112}# | |
8008 | (cdr #{subst\ 2113}#) | |
8009 | #{marks\ 2114}#) | |
f6a8e791 | 8010 | (if (if (eq? (vector-ref |
fb6e61ca AW |
8011 | #{symnames\ 2115}# |
8012 | #{i\ 2127}#) | |
8013 | #{sym\ 2112}#) | |
8014 | (#{same-marks?\ 437}# | |
8015 | #{marks\ 2114}# | |
f6a8e791 | 8016 | (vector-ref |
fb6e61ca AW |
8017 | (#{ribcage-marks\ 409}# |
8018 | #{ribcage\ 2116}#) | |
8019 | #{i\ 2127}#)) | |
f6a8e791 AW |
8020 | #f) |
8021 | (values | |
8022 | (vector-ref | |
fb6e61ca AW |
8023 | (#{ribcage-labels\ 411}# |
8024 | #{ribcage\ 2116}#) | |
8025 | #{i\ 2127}#) | |
8026 | #{marks\ 2114}#) | |
8027 | (#{f\ 2126}# | |
8028 | (#{fx+\ 283}# | |
8029 | #{i\ 2127}# | |
f6a8e791 | 8030 | 1))))))) |
fb6e61ca AW |
8031 | (#{f\ 2126}# 0))))) |
8032 | (#{search-list-rib\ 2098}# | |
8033 | (lambda (#{sym\ 2135}# | |
8034 | #{subst\ 2136}# | |
8035 | #{marks\ 2137}# | |
8036 | #{symnames\ 2138}# | |
8037 | #{ribcage\ 2139}#) | |
8038 | (letrec ((#{f\ 2148}# | |
8039 | (lambda (#{symnames\ 2149}# #{i\ 2150}#) | |
8040 | (if (null? #{symnames\ 2149}#) | |
8041 | (#{search\ 2096}# | |
8042 | #{sym\ 2135}# | |
8043 | (cdr #{subst\ 2136}#) | |
8044 | #{marks\ 2137}#) | |
8045 | (if (if (eq? (car #{symnames\ 2149}#) | |
8046 | #{sym\ 2135}#) | |
8047 | (#{same-marks?\ 437}# | |
8048 | #{marks\ 2137}# | |
f6a8e791 | 8049 | (list-ref |
fb6e61ca AW |
8050 | (#{ribcage-marks\ 409}# |
8051 | #{ribcage\ 2139}#) | |
8052 | #{i\ 2150}#)) | |
f6a8e791 AW |
8053 | #f) |
8054 | (values | |
8055 | (list-ref | |
fb6e61ca AW |
8056 | (#{ribcage-labels\ 411}# |
8057 | #{ribcage\ 2139}#) | |
8058 | #{i\ 2150}#) | |
8059 | #{marks\ 2137}#) | |
8060 | (#{f\ 2148}# | |
8061 | (cdr #{symnames\ 2149}#) | |
8062 | (#{fx+\ 283}# | |
8063 | #{i\ 2150}# | |
f6a8e791 | 8064 | 1))))))) |
fb6e61ca AW |
8065 | (#{f\ 2148}# #{symnames\ 2138}# 0)))) |
8066 | (#{search\ 2096}# | |
8067 | (lambda (#{sym\ 2158}# | |
8068 | #{subst\ 2159}# | |
8069 | #{marks\ 2160}#) | |
8070 | (if (null? #{subst\ 2159}#) | |
8071 | (values #f #{marks\ 2160}#) | |
8072 | (let ((#{fst\ 2165}# (car #{subst\ 2159}#))) | |
8073 | (if (eq? #{fst\ 2165}# (quote shift)) | |
8074 | (#{search\ 2096}# | |
8075 | #{sym\ 2158}# | |
8076 | (cdr #{subst\ 2159}#) | |
8077 | (cdr #{marks\ 2160}#)) | |
8078 | (let ((#{symnames\ 2167}# | |
8079 | (#{ribcage-symnames\ 407}# | |
8080 | #{fst\ 2165}#))) | |
8081 | (if (vector? #{symnames\ 2167}#) | |
8082 | (#{search-vector-rib\ 2100}# | |
8083 | #{sym\ 2158}# | |
8084 | #{subst\ 2159}# | |
8085 | #{marks\ 2160}# | |
8086 | #{symnames\ 2167}# | |
8087 | #{fst\ 2165}#) | |
8088 | (#{search-list-rib\ 2098}# | |
8089 | #{sym\ 2158}# | |
8090 | #{subst\ 2159}# | |
8091 | #{marks\ 2160}# | |
8092 | #{symnames\ 2167}# | |
8093 | #{fst\ 2165}#))))))))) | |
8094 | (if (symbol? #{id\ 2090}#) | |
8095 | (let ((#{t\ 2170}# | |
f6a8e791 AW |
8096 | (call-with-values |
8097 | (lambda () | |
fb6e61ca AW |
8098 | (#{search\ 2096}# |
8099 | #{id\ 2090}# | |
8100 | (#{wrap-subst\ 391}# #{w\ 2091}#) | |
8101 | (#{wrap-marks\ 389}# #{w\ 2091}#))) | |
8102 | (lambda (#{x\ 2172}# . #{ignore\ 2173}#) | |
8103 | #{x\ 2172}#)))) | |
8104 | (if #{t\ 2170}# #{t\ 2170}# #{id\ 2090}#)) | |
8105 | (if (#{syntax-object?\ 346}# #{id\ 2090}#) | |
8106 | (let ((#{id\ 2181}# | |
8107 | (#{syntax-object-expression\ 348}# #{id\ 2090}#)) | |
8108 | (#{w1\ 2182}# | |
8109 | (#{syntax-object-wrap\ 350}# #{id\ 2090}#))) | |
8110 | (let ((#{marks\ 2184}# | |
8111 | (#{join-marks\ 435}# | |
8112 | (#{wrap-marks\ 389}# #{w\ 2091}#) | |
8113 | (#{wrap-marks\ 389}# #{w1\ 2182}#)))) | |
c89222f8 AW |
8114 | (call-with-values |
8115 | (lambda () | |
fb6e61ca AW |
8116 | (#{search\ 2096}# |
8117 | #{id\ 2181}# | |
8118 | (#{wrap-subst\ 391}# #{w\ 2091}#) | |
8119 | #{marks\ 2184}#)) | |
8120 | (lambda (#{new-id\ 2185}# #{marks\ 2186}#) | |
8121 | (let ((#{t\ 2191}# #{new-id\ 2185}#)) | |
8122 | (if #{t\ 2191}# | |
8123 | #{t\ 2191}# | |
8124 | (let ((#{t\ 2194}# | |
f6a8e791 AW |
8125 | (call-with-values |
8126 | (lambda () | |
fb6e61ca AW |
8127 | (#{search\ 2096}# |
8128 | #{id\ 2181}# | |
8129 | (#{wrap-subst\ 391}# | |
8130 | #{w1\ 2182}#) | |
8131 | #{marks\ 2186}#)) | |
8132 | (lambda (#{x\ 2196}# | |
f6a8e791 | 8133 | . |
fb6e61ca AW |
8134 | #{ignore\ 2197}#) |
8135 | #{x\ 2196}#)))) | |
8136 | (if #{t\ 2194}# | |
8137 | #{t\ 2194}# | |
8138 | #{id\ 2181}#)))))))) | |
c89222f8 AW |
8139 | (syntax-violation |
8140 | 'id-var-name | |
8141 | "invalid id" | |
fb6e61ca AW |
8142 | #{id\ 2090}#)))))) |
8143 | (#{same-marks?\ 437}# | |
8144 | (lambda (#{x\ 2202}# #{y\ 2203}#) | |
8145 | (let ((#{t\ 2208}# (eq? #{x\ 2202}# #{y\ 2203}#))) | |
8146 | (if #{t\ 2208}# | |
8147 | #{t\ 2208}# | |
8148 | (if (not (null? #{x\ 2202}#)) | |
8149 | (if (not (null? #{y\ 2203}#)) | |
8150 | (if (eq? (car #{x\ 2202}#) (car #{y\ 2203}#)) | |
8151 | (#{same-marks?\ 437}# | |
8152 | (cdr #{x\ 2202}#) | |
8153 | (cdr #{y\ 2203}#)) | |
c89222f8 AW |
8154 | #f) |
8155 | #f) | |
8156 | #f))))) | |
fb6e61ca AW |
8157 | (#{join-marks\ 435}# |
8158 | (lambda (#{m1\ 2214}# #{m2\ 2215}#) | |
8159 | (#{smart-append\ 431}# #{m1\ 2214}# #{m2\ 2215}#))) | |
8160 | (#{join-wraps\ 433}# | |
8161 | (lambda (#{w1\ 2218}# #{w2\ 2219}#) | |
8162 | (let ((#{m1\ 2224}# (#{wrap-marks\ 389}# #{w1\ 2218}#)) | |
8163 | (#{s1\ 2225}# (#{wrap-subst\ 391}# #{w1\ 2218}#))) | |
8164 | (if (null? #{m1\ 2224}#) | |
8165 | (if (null? #{s1\ 2225}#) | |
8166 | #{w2\ 2219}# | |
8167 | (#{make-wrap\ 387}# | |
8168 | (#{wrap-marks\ 389}# #{w2\ 2219}#) | |
8169 | (#{smart-append\ 431}# | |
8170 | #{s1\ 2225}# | |
8171 | (#{wrap-subst\ 391}# #{w2\ 2219}#)))) | |
8172 | (#{make-wrap\ 387}# | |
8173 | (#{smart-append\ 431}# | |
8174 | #{m1\ 2224}# | |
8175 | (#{wrap-marks\ 389}# #{w2\ 2219}#)) | |
8176 | (#{smart-append\ 431}# | |
8177 | #{s1\ 2225}# | |
8178 | (#{wrap-subst\ 391}# #{w2\ 2219}#))))))) | |
8179 | (#{smart-append\ 431}# | |
8180 | (lambda (#{m1\ 2226}# #{m2\ 2227}#) | |
8181 | (if (null? #{m2\ 2227}#) | |
8182 | #{m1\ 2226}# | |
8183 | (append #{m1\ 2226}# #{m2\ 2227}#)))) | |
8184 | (#{make-binding-wrap\ 429}# | |
8185 | (lambda (#{ids\ 2230}# #{labels\ 2231}# #{w\ 2232}#) | |
8186 | (if (null? #{ids\ 2230}#) | |
8187 | #{w\ 2232}# | |
8188 | (#{make-wrap\ 387}# | |
8189 | (#{wrap-marks\ 389}# #{w\ 2232}#) | |
8190 | (cons (let ((#{labelvec\ 2237}# | |
8191 | (list->vector #{labels\ 2231}#))) | |
8192 | (let ((#{n\ 2239}# | |
8193 | (vector-length #{labelvec\ 2237}#))) | |
8194 | (let ((#{symnamevec\ 2242}# | |
8195 | (make-vector #{n\ 2239}#)) | |
8196 | (#{marksvec\ 2243}# | |
8197 | (make-vector #{n\ 2239}#))) | |
c89222f8 | 8198 | (begin |
fb6e61ca AW |
8199 | (letrec ((#{f\ 2247}# |
8200 | (lambda (#{ids\ 2248}# #{i\ 2249}#) | |
8201 | (if (not (null? #{ids\ 2248}#)) | |
f6a8e791 AW |
8202 | (call-with-values |
8203 | (lambda () | |
fb6e61ca AW |
8204 | (#{id-sym-name&marks\ 385}# |
8205 | (car #{ids\ 2248}#) | |
8206 | #{w\ 2232}#)) | |
8207 | (lambda (#{symname\ 2250}# | |
8208 | #{marks\ 2251}#) | |
f6a8e791 AW |
8209 | (begin |
8210 | (vector-set! | |
fb6e61ca AW |
8211 | #{symnamevec\ 2242}# |
8212 | #{i\ 2249}# | |
8213 | #{symname\ 2250}#) | |
f6a8e791 | 8214 | (vector-set! |
fb6e61ca AW |
8215 | #{marksvec\ 2243}# |
8216 | #{i\ 2249}# | |
8217 | #{marks\ 2251}#) | |
8218 | (#{f\ 2247}# | |
8219 | (cdr #{ids\ 2248}#) | |
8220 | (#{fx+\ 283}# | |
8221 | #{i\ 2249}# | |
f6a8e791 | 8222 | 1))))))))) |
fb6e61ca AW |
8223 | (#{f\ 2247}# #{ids\ 2230}# 0)) |
8224 | (#{make-ribcage\ 403}# | |
8225 | #{symnamevec\ 2242}# | |
8226 | #{marksvec\ 2243}# | |
8227 | #{labelvec\ 2237}#))))) | |
8228 | (#{wrap-subst\ 391}# #{w\ 2232}#)))))) | |
8229 | (#{extend-ribcage!\ 427}# | |
8230 | (lambda (#{ribcage\ 2254}# #{id\ 2255}# #{label\ 2256}#) | |
c89222f8 | 8231 | (begin |
fb6e61ca AW |
8232 | (#{set-ribcage-symnames!\ 413}# |
8233 | #{ribcage\ 2254}# | |
8234 | (cons (#{syntax-object-expression\ 348}# #{id\ 2255}#) | |
8235 | (#{ribcage-symnames\ 407}# #{ribcage\ 2254}#))) | |
8236 | (#{set-ribcage-marks!\ 415}# | |
8237 | #{ribcage\ 2254}# | |
8238 | (cons (#{wrap-marks\ 389}# | |
8239 | (#{syntax-object-wrap\ 350}# #{id\ 2255}#)) | |
8240 | (#{ribcage-marks\ 409}# #{ribcage\ 2254}#))) | |
8241 | (#{set-ribcage-labels!\ 417}# | |
8242 | #{ribcage\ 2254}# | |
8243 | (cons #{label\ 2256}# | |
8244 | (#{ribcage-labels\ 411}# #{ribcage\ 2254}#)))))) | |
8245 | (#{anti-mark\ 423}# | |
8246 | (lambda (#{w\ 2260}#) | |
8247 | (#{make-wrap\ 387}# | |
8248 | (cons #f (#{wrap-marks\ 389}# #{w\ 2260}#)) | |
c89222f8 | 8249 | (cons 'shift |
fb6e61ca AW |
8250 | (#{wrap-subst\ 391}# #{w\ 2260}#))))) |
8251 | (#{set-ribcage-labels!\ 417}# | |
8252 | (lambda (#{x\ 2263}# #{update\ 2264}#) | |
8253 | (vector-set! #{x\ 2263}# 3 #{update\ 2264}#))) | |
8254 | (#{set-ribcage-marks!\ 415}# | |
8255 | (lambda (#{x\ 2267}# #{update\ 2268}#) | |
8256 | (vector-set! #{x\ 2267}# 2 #{update\ 2268}#))) | |
8257 | (#{set-ribcage-symnames!\ 413}# | |
8258 | (lambda (#{x\ 2271}# #{update\ 2272}#) | |
8259 | (vector-set! #{x\ 2271}# 1 #{update\ 2272}#))) | |
8260 | (#{ribcage-labels\ 411}# | |
8261 | (lambda (#{x\ 2275}#) (vector-ref #{x\ 2275}# 3))) | |
8262 | (#{ribcage-marks\ 409}# | |
8263 | (lambda (#{x\ 2277}#) (vector-ref #{x\ 2277}# 2))) | |
8264 | (#{ribcage-symnames\ 407}# | |
8265 | (lambda (#{x\ 2279}#) (vector-ref #{x\ 2279}# 1))) | |
8266 | (#{ribcage?\ 405}# | |
8267 | (lambda (#{x\ 2281}#) | |
8268 | (if (vector? #{x\ 2281}#) | |
8269 | (if (= (vector-length #{x\ 2281}#) 4) | |
8270 | (eq? (vector-ref #{x\ 2281}# 0) (quote ribcage)) | |
c89222f8 AW |
8271 | #f) |
8272 | #f))) | |
fb6e61ca AW |
8273 | (#{make-ribcage\ 403}# |
8274 | (lambda (#{symnames\ 2286}# | |
8275 | #{marks\ 2287}# | |
8276 | #{labels\ 2288}#) | |
c89222f8 AW |
8277 | (vector |
8278 | 'ribcage | |
fb6e61ca AW |
8279 | #{symnames\ 2286}# |
8280 | #{marks\ 2287}# | |
8281 | #{labels\ 2288}#))) | |
8282 | (#{gen-labels\ 400}# | |
8283 | (lambda (#{ls\ 2292}#) | |
8284 | (if (null? #{ls\ 2292}#) | |
c89222f8 | 8285 | '() |
fb6e61ca AW |
8286 | (cons (#{gen-label\ 398}#) |
8287 | (#{gen-labels\ 400}# (cdr #{ls\ 2292}#)))))) | |
8288 | (#{gen-label\ 398}# | |
fd598527 | 8289 | (lambda () (symbol->string (gensym "i")))) |
fb6e61ca AW |
8290 | (#{wrap-subst\ 391}# cdr) |
8291 | (#{wrap-marks\ 389}# car) | |
8292 | (#{make-wrap\ 387}# cons) | |
8293 | (#{id-sym-name&marks\ 385}# | |
8294 | (lambda (#{x\ 2294}# #{w\ 2295}#) | |
8295 | (if (#{syntax-object?\ 346}# #{x\ 2294}#) | |
c89222f8 | 8296 | (values |
fb6e61ca AW |
8297 | (#{syntax-object-expression\ 348}# #{x\ 2294}#) |
8298 | (#{join-marks\ 435}# | |
8299 | (#{wrap-marks\ 389}# #{w\ 2295}#) | |
8300 | (#{wrap-marks\ 389}# | |
8301 | (#{syntax-object-wrap\ 350}# #{x\ 2294}#)))) | |
c89222f8 | 8302 | (values |
fb6e61ca AW |
8303 | #{x\ 2294}# |
8304 | (#{wrap-marks\ 389}# #{w\ 2295}#))))) | |
8305 | (#{id?\ 382}# | |
8306 | (lambda (#{x\ 2298}#) | |
8307 | (if (symbol? #{x\ 2298}#) | |
c89222f8 | 8308 | #t |
fb6e61ca | 8309 | (if (#{syntax-object?\ 346}# #{x\ 2298}#) |
c89222f8 | 8310 | (symbol? |
fb6e61ca | 8311 | (#{syntax-object-expression\ 348}# #{x\ 2298}#)) |
c89222f8 | 8312 | #f)))) |
fb6e61ca AW |
8313 | (#{nonsymbol-id?\ 380}# |
8314 | (lambda (#{x\ 2305}#) | |
8315 | (if (#{syntax-object?\ 346}# #{x\ 2305}#) | |
c89222f8 | 8316 | (symbol? |
fb6e61ca | 8317 | (#{syntax-object-expression\ 348}# #{x\ 2305}#)) |
c89222f8 | 8318 | #f))) |
fb6e61ca AW |
8319 | (#{global-extend\ 378}# |
8320 | (lambda (#{type\ 2309}# #{sym\ 2310}# #{val\ 2311}#) | |
8321 | (#{put-global-definition-hook\ 296}# | |
8322 | #{sym\ 2310}# | |
8323 | #{type\ 2309}# | |
8324 | #{val\ 2311}#))) | |
8325 | (#{lookup\ 376}# | |
8326 | (lambda (#{x\ 2315}# #{r\ 2316}# #{mod\ 2317}#) | |
8327 | (let ((#{t\ 2323}# (assq #{x\ 2315}# #{r\ 2316}#))) | |
8328 | (if #{t\ 2323}# | |
8329 | (cdr #{t\ 2323}#) | |
8330 | (if (symbol? #{x\ 2315}#) | |
8331 | (let ((#{t\ 2329}# | |
8332 | (#{get-global-definition-hook\ 298}# | |
8333 | #{x\ 2315}# | |
8334 | #{mod\ 2317}#))) | |
8335 | (if #{t\ 2329}# #{t\ 2329}# (quote (global)))) | |
c89222f8 | 8336 | '(displaced-lexical)))))) |
fb6e61ca AW |
8337 | (#{macros-only-env\ 374}# |
8338 | (lambda (#{r\ 2334}#) | |
8339 | (if (null? #{r\ 2334}#) | |
c89222f8 | 8340 | '() |
fb6e61ca AW |
8341 | (let ((#{a\ 2337}# (car #{r\ 2334}#))) |
8342 | (if (eq? (cadr #{a\ 2337}#) (quote macro)) | |
8343 | (cons #{a\ 2337}# | |
8344 | (#{macros-only-env\ 374}# (cdr #{r\ 2334}#))) | |
8345 | (#{macros-only-env\ 374}# (cdr #{r\ 2334}#))))))) | |
8346 | (#{extend-var-env\ 372}# | |
8347 | (lambda (#{labels\ 2338}# #{vars\ 2339}# #{r\ 2340}#) | |
8348 | (if (null? #{labels\ 2338}#) | |
8349 | #{r\ 2340}# | |
8350 | (#{extend-var-env\ 372}# | |
8351 | (cdr #{labels\ 2338}#) | |
8352 | (cdr #{vars\ 2339}#) | |
8353 | (cons (cons (car #{labels\ 2338}#) | |
8354 | (cons (quote lexical) (car #{vars\ 2339}#))) | |
8355 | #{r\ 2340}#))))) | |
8356 | (#{extend-env\ 370}# | |
8357 | (lambda (#{labels\ 2345}# #{bindings\ 2346}# #{r\ 2347}#) | |
8358 | (if (null? #{labels\ 2345}#) | |
8359 | #{r\ 2347}# | |
8360 | (#{extend-env\ 370}# | |
8361 | (cdr #{labels\ 2345}#) | |
8362 | (cdr #{bindings\ 2346}#) | |
8363 | (cons (cons (car #{labels\ 2345}#) | |
8364 | (car #{bindings\ 2346}#)) | |
8365 | #{r\ 2347}#))))) | |
8366 | (#{binding-value\ 367}# cdr) | |
8367 | (#{binding-type\ 365}# car) | |
8368 | (#{source-annotation\ 361}# | |
8369 | (lambda (#{x\ 2351}#) | |
8370 | (if (#{syntax-object?\ 346}# #{x\ 2351}#) | |
8371 | (#{source-annotation\ 361}# | |
8372 | (#{syntax-object-expression\ 348}# #{x\ 2351}#)) | |
8373 | (if (pair? #{x\ 2351}#) | |
8374 | (let ((#{props\ 2358}# (source-properties #{x\ 2351}#))) | |
8375 | (if (pair? #{props\ 2358}#) #{props\ 2358}# #f)) | |
c89222f8 | 8376 | #f)))) |
fb6e61ca AW |
8377 | (#{set-syntax-object-module!\ 358}# |
8378 | (lambda (#{x\ 2360}# #{update\ 2361}#) | |
8379 | (vector-set! #{x\ 2360}# 3 #{update\ 2361}#))) | |
8380 | (#{set-syntax-object-wrap!\ 356}# | |
8381 | (lambda (#{x\ 2364}# #{update\ 2365}#) | |
8382 | (vector-set! #{x\ 2364}# 2 #{update\ 2365}#))) | |
8383 | (#{set-syntax-object-expression!\ 354}# | |
8384 | (lambda (#{x\ 2368}# #{update\ 2369}#) | |
8385 | (vector-set! #{x\ 2368}# 1 #{update\ 2369}#))) | |
8386 | (#{syntax-object-module\ 352}# | |
8387 | (lambda (#{x\ 2372}#) (vector-ref #{x\ 2372}# 3))) | |
8388 | (#{syntax-object-wrap\ 350}# | |
8389 | (lambda (#{x\ 2374}#) (vector-ref #{x\ 2374}# 2))) | |
8390 | (#{syntax-object-expression\ 348}# | |
8391 | (lambda (#{x\ 2376}#) (vector-ref #{x\ 2376}# 1))) | |
8392 | (#{syntax-object?\ 346}# | |
8393 | (lambda (#{x\ 2378}#) | |
8394 | (if (vector? #{x\ 2378}#) | |
8395 | (if (= (vector-length #{x\ 2378}#) 4) | |
8396 | (eq? (vector-ref #{x\ 2378}# 0) | |
c89222f8 AW |
8397 | 'syntax-object) |
8398 | #f) | |
8399 | #f))) | |
fb6e61ca AW |
8400 | (#{make-syntax-object\ 344}# |
8401 | (lambda (#{expression\ 2383}# | |
8402 | #{wrap\ 2384}# | |
8403 | #{module\ 2385}#) | |
c89222f8 AW |
8404 | (vector |
8405 | 'syntax-object | |
fb6e61ca AW |
8406 | #{expression\ 2383}# |
8407 | #{wrap\ 2384}# | |
8408 | #{module\ 2385}#))) | |
8409 | (#{build-letrec\ 340}# | |
d71cc612 AW |
8410 | (lambda (#{src\ 2389}# |
8411 | #{ids\ 2390}# | |
8412 | #{vars\ 2391}# | |
8413 | #{val-exps\ 2392}# | |
8414 | #{body-exp\ 2393}#) | |
fb6e61ca AW |
8415 | (if (null? #{vars\ 2391}#) |
8416 | #{body-exp\ 2393}# | |
8417 | (begin | |
8418 | (for-each | |
8419 | #{maybe-name-value!\ 320}# | |
8420 | #{ids\ 2390}# | |
8421 | #{val-exps\ 2392}#) | |
8422 | (#{make-letrec\ 272}# | |
8423 | #{src\ 2389}# | |
8424 | #f | |
8425 | #{ids\ 2390}# | |
8426 | #{vars\ 2391}# | |
8427 | #{val-exps\ 2392}# | |
8428 | #{body-exp\ 2393}#))))) | |
8429 | (#{build-named-let\ 338}# | |
8430 | (lambda (#{src\ 2399}# | |
8431 | #{ids\ 2400}# | |
8432 | #{vars\ 2401}# | |
8433 | #{val-exps\ 2402}# | |
8434 | #{body-exp\ 2403}#) | |
8435 | (let ((#{f\ 2413}# (car #{vars\ 2401}#)) | |
8436 | (#{f-name\ 2414}# (car #{ids\ 2400}#)) | |
8437 | (#{vars\ 2415}# (cdr #{vars\ 2401}#)) | |
8438 | (#{ids\ 2416}# (cdr #{ids\ 2400}#))) | |
8439 | (let ((#{proc\ 2418}# | |
8440 | (#{build-simple-lambda\ 324}# | |
8441 | #{src\ 2399}# | |
8442 | #{ids\ 2416}# | |
bdf7759c | 8443 | #f |
fb6e61ca | 8444 | #{vars\ 2415}# |
bdf7759c | 8445 | '() |
fb6e61ca | 8446 | #{body-exp\ 2403}#))) |
22cf27c8 | 8447 | (begin |
fb6e61ca AW |
8448 | (#{maybe-name-value!\ 320}# |
8449 | #{f-name\ 2414}# | |
8450 | #{proc\ 2418}#) | |
22cf27c8 | 8451 | (for-each |
fb6e61ca AW |
8452 | #{maybe-name-value!\ 320}# |
8453 | #{ids\ 2416}# | |
8454 | #{val-exps\ 2402}#) | |
8455 | (#{make-letrec\ 272}# | |
8456 | #{src\ 2399}# | |
8457 | #f | |
8458 | (list #{f-name\ 2414}#) | |
8459 | (list #{f\ 2413}#) | |
8460 | (list #{proc\ 2418}#) | |
8461 | (#{build-application\ 304}# | |
8462 | #{src\ 2399}# | |
8463 | (#{build-lexical-reference\ 310}# | |
22cf27c8 | 8464 | 'fun |
fb6e61ca AW |
8465 | #{src\ 2399}# |
8466 | #{f-name\ 2414}# | |
8467 | #{f\ 2413}#) | |
8468 | #{val-exps\ 2402}#))))))) | |
8469 | (#{build-let\ 336}# | |
8470 | (lambda (#{src\ 2419}# | |
8471 | #{ids\ 2420}# | |
8472 | #{vars\ 2421}# | |
8473 | #{val-exps\ 2422}# | |
8474 | #{body-exp\ 2423}#) | |
22cf27c8 AW |
8475 | (begin |
8476 | (for-each | |
fb6e61ca AW |
8477 | #{maybe-name-value!\ 320}# |
8478 | #{ids\ 2420}# | |
8479 | #{val-exps\ 2422}#) | |
8480 | (if (null? #{vars\ 2421}#) | |
8481 | #{body-exp\ 2423}# | |
8482 | (#{make-let\ 270}# | |
8483 | #{src\ 2419}# | |
8484 | #{ids\ 2420}# | |
8485 | #{vars\ 2421}# | |
8486 | #{val-exps\ 2422}# | |
8487 | #{body-exp\ 2423}#))))) | |
8488 | (#{build-sequence\ 334}# | |
8489 | (lambda (#{src\ 2429}# #{exps\ 2430}#) | |
8490 | (if (null? (cdr #{exps\ 2430}#)) | |
8491 | (car #{exps\ 2430}#) | |
8492 | (#{make-sequence\ 264}# | |
8493 | #{src\ 2429}# | |
8494 | #{exps\ 2430}#)))) | |
8495 | (#{build-data\ 332}# | |
8496 | (lambda (#{src\ 2433}# #{exp\ 2434}#) | |
8497 | (#{make-const\ 242}# #{src\ 2433}# #{exp\ 2434}#))) | |
8498 | (#{build-primref\ 330}# | |
8499 | (lambda (#{src\ 2437}# #{name\ 2438}#) | |
c89222f8 AW |
8500 | (if (equal? |
8501 | (module-name (current-module)) | |
8502 | '(guile)) | |
fb6e61ca AW |
8503 | (#{make-toplevel-ref\ 254}# |
8504 | #{src\ 2437}# | |
8505 | #{name\ 2438}#) | |
8506 | (#{make-module-ref\ 250}# | |
8507 | #{src\ 2437}# | |
bdf7759c | 8508 | '(guile) |
fb6e61ca | 8509 | #{name\ 2438}# |
bdf7759c | 8510 | #f)))) |
fb6e61ca AW |
8511 | (#{build-lambda-case\ 328}# |
8512 | (lambda (#{src\ 2441}# | |
8513 | #{req\ 2442}# | |
8514 | #{opt\ 2443}# | |
8515 | #{rest\ 2444}# | |
8516 | #{kw\ 2445}# | |
8517 | #{inits\ 2446}# | |
8518 | #{vars\ 2447}# | |
8519 | #{body\ 2448}# | |
8520 | #{else-case\ 2449}#) | |
8521 | (#{make-lambda-case\ 268}# | |
8522 | #{src\ 2441}# | |
8523 | #{req\ 2442}# | |
8524 | #{opt\ 2443}# | |
8525 | #{rest\ 2444}# | |
8526 | #{kw\ 2445}# | |
8527 | #{inits\ 2446}# | |
8528 | #{vars\ 2447}# | |
8529 | #{body\ 2448}# | |
8530 | #{else-case\ 2449}#))) | |
8531 | (#{build-case-lambda\ 326}# | |
8532 | (lambda (#{src\ 2459}# #{meta\ 2460}# #{body\ 2461}#) | |
8533 | (#{make-lambda\ 266}# | |
8534 | #{src\ 2459}# | |
8535 | #{meta\ 2460}# | |
8536 | #{body\ 2461}#))) | |
8537 | (#{build-simple-lambda\ 324}# | |
8538 | (lambda (#{src\ 2465}# | |
8539 | #{req\ 2466}# | |
8540 | #{rest\ 2467}# | |
8541 | #{vars\ 2468}# | |
8542 | #{meta\ 2469}# | |
8543 | #{exp\ 2470}#) | |
8544 | (#{make-lambda\ 266}# | |
8545 | #{src\ 2465}# | |
8546 | #{meta\ 2469}# | |
8547 | (#{make-lambda-case\ 268}# | |
8548 | #{src\ 2465}# | |
8549 | #{req\ 2466}# | |
bdf7759c | 8550 | #f |
fb6e61ca | 8551 | #{rest\ 2467}# |
bdf7759c AW |
8552 | #f |
8553 | '() | |
fb6e61ca AW |
8554 | #{vars\ 2468}# |
8555 | #{exp\ 2470}# | |
bdf7759c | 8556 | #f)))) |
fb6e61ca AW |
8557 | (#{build-global-definition\ 322}# |
8558 | (lambda (#{source\ 2477}# #{var\ 2478}# #{exp\ 2479}#) | |
22cf27c8 | 8559 | (begin |
fb6e61ca AW |
8560 | (#{maybe-name-value!\ 320}# |
8561 | #{var\ 2478}# | |
8562 | #{exp\ 2479}#) | |
8563 | (#{make-toplevel-define\ 258}# | |
8564 | #{source\ 2477}# | |
8565 | #{var\ 2478}# | |
8566 | #{exp\ 2479}#)))) | |
8567 | (#{maybe-name-value!\ 320}# | |
8568 | (lambda (#{name\ 2483}# #{val\ 2484}#) | |
8569 | (if (#{lambda?\ 277}# #{val\ 2484}#) | |
8570 | (let ((#{meta\ 2488}# | |
8571 | (#{lambda-meta\ 279}# #{val\ 2484}#))) | |
8572 | (if (not (assq (quote name) #{meta\ 2488}#)) | |
8573 | (#{set-lambda-meta!\ 281}# | |
8574 | #{val\ 2484}# | |
22cf27c8 | 8575 | (acons 'name |
fb6e61ca AW |
8576 | #{name\ 2483}# |
8577 | #{meta\ 2488}#))))))) | |
8578 | (#{build-global-assignment\ 318}# | |
8579 | (lambda (#{source\ 2489}# | |
8580 | #{var\ 2490}# | |
8581 | #{exp\ 2491}# | |
8582 | #{mod\ 2492}#) | |
8583 | (#{analyze-variable\ 314}# | |
8584 | #{mod\ 2492}# | |
8585 | #{var\ 2490}# | |
8586 | (lambda (#{mod\ 2497}# #{var\ 2498}# #{public?\ 2499}#) | |
8587 | (#{make-module-set\ 252}# | |
8588 | #{source\ 2489}# | |
8589 | #{mod\ 2497}# | |
8590 | #{var\ 2498}# | |
8591 | #{public?\ 2499}# | |
8592 | #{exp\ 2491}#)) | |
8593 | (lambda (#{var\ 2503}#) | |
8594 | (#{make-toplevel-set\ 256}# | |
8595 | #{source\ 2489}# | |
8596 | #{var\ 2503}# | |
8597 | #{exp\ 2491}#))))) | |
8598 | (#{build-global-reference\ 316}# | |
8599 | (lambda (#{source\ 2505}# #{var\ 2506}# #{mod\ 2507}#) | |
8600 | (#{analyze-variable\ 314}# | |
8601 | #{mod\ 2507}# | |
8602 | #{var\ 2506}# | |
8603 | (lambda (#{mod\ 2511}# #{var\ 2512}# #{public?\ 2513}#) | |
8604 | (#{make-module-ref\ 250}# | |
8605 | #{source\ 2505}# | |
8606 | #{mod\ 2511}# | |
8607 | #{var\ 2512}# | |
8608 | #{public?\ 2513}#)) | |
8609 | (lambda (#{var\ 2517}#) | |
8610 | (#{make-toplevel-ref\ 254}# | |
8611 | #{source\ 2505}# | |
8612 | #{var\ 2517}#))))) | |
8613 | (#{analyze-variable\ 314}# | |
8614 | (lambda (#{mod\ 2519}# | |
8615 | #{var\ 2520}# | |
8616 | #{modref-cont\ 2521}# | |
8617 | #{bare-cont\ 2522}#) | |
8618 | (if (not #{mod\ 2519}#) | |
8619 | (#{bare-cont\ 2522}# #{var\ 2520}#) | |
8620 | (let ((#{kind\ 2529}# (car #{mod\ 2519}#)) | |
8621 | (#{mod\ 2530}# (cdr #{mod\ 2519}#))) | |
8622 | (if (memv #{kind\ 2529}# (quote (public))) | |
8623 | (#{modref-cont\ 2521}# | |
8624 | #{mod\ 2530}# | |
8625 | #{var\ 2520}# | |
c89222f8 | 8626 | #t) |
fb6e61ca | 8627 | (if (memv #{kind\ 2529}# (quote (private))) |
c89222f8 | 8628 | (if (not (equal? |
fb6e61ca | 8629 | #{mod\ 2530}# |
c89222f8 | 8630 | (module-name (current-module)))) |
fb6e61ca AW |
8631 | (#{modref-cont\ 2521}# |
8632 | #{mod\ 2530}# | |
8633 | #{var\ 2520}# | |
c89222f8 | 8634 | #f) |
fb6e61ca AW |
8635 | (#{bare-cont\ 2522}# #{var\ 2520}#)) |
8636 | (if (memv #{kind\ 2529}# (quote (bare))) | |
8637 | (#{bare-cont\ 2522}# #{var\ 2520}#) | |
8638 | (if (memv #{kind\ 2529}# (quote (hygiene))) | |
c89222f8 | 8639 | (if (if (not (equal? |
fb6e61ca | 8640 | #{mod\ 2530}# |
c89222f8 AW |
8641 | (module-name (current-module)))) |
8642 | (module-variable | |
fb6e61ca AW |
8643 | (resolve-module #{mod\ 2530}#) |
8644 | #{var\ 2520}#) | |
c89222f8 | 8645 | #f) |
fb6e61ca AW |
8646 | (#{modref-cont\ 2521}# |
8647 | #{mod\ 2530}# | |
8648 | #{var\ 2520}# | |
c89222f8 | 8649 | #f) |
fb6e61ca | 8650 | (#{bare-cont\ 2522}# #{var\ 2520}#)) |
c89222f8 AW |
8651 | (syntax-violation |
8652 | #f | |
8653 | "bad module kind" | |
fb6e61ca AW |
8654 | #{var\ 2520}# |
8655 | #{mod\ 2530}#))))))))) | |
8656 | (#{build-lexical-assignment\ 312}# | |
8657 | (lambda (#{source\ 2538}# | |
8658 | #{name\ 2539}# | |
8659 | #{var\ 2540}# | |
8660 | #{exp\ 2541}#) | |
8661 | (#{make-lexical-set\ 248}# | |
8662 | #{source\ 2538}# | |
8663 | #{name\ 2539}# | |
8664 | #{var\ 2540}# | |
8665 | #{exp\ 2541}#))) | |
8666 | (#{build-lexical-reference\ 310}# | |
8667 | (lambda (#{type\ 2546}# | |
8668 | #{source\ 2547}# | |
8669 | #{name\ 2548}# | |
8670 | #{var\ 2549}#) | |
8671 | (#{make-lexical-ref\ 246}# | |
8672 | #{source\ 2547}# | |
8673 | #{name\ 2548}# | |
8674 | #{var\ 2549}#))) | |
8675 | (#{build-dynlet\ 308}# | |
8676 | (lambda (#{source\ 2554}# | |
8677 | #{fluids\ 2555}# | |
8678 | #{vals\ 2556}# | |
8679 | #{body\ 2557}#) | |
8680 | (#{make-dynlet\ 274}# | |
8681 | #{source\ 2554}# | |
8682 | #{fluids\ 2555}# | |
8683 | #{vals\ 2556}# | |
8684 | #{body\ 2557}#))) | |
8685 | (#{build-conditional\ 306}# | |
8686 | (lambda (#{source\ 2562}# | |
8687 | #{test-exp\ 2563}# | |
8688 | #{then-exp\ 2564}# | |
8689 | #{else-exp\ 2565}#) | |
8690 | (#{make-conditional\ 260}# | |
8691 | #{source\ 2562}# | |
8692 | #{test-exp\ 2563}# | |
8693 | #{then-exp\ 2564}# | |
8694 | #{else-exp\ 2565}#))) | |
8695 | (#{build-application\ 304}# | |
8696 | (lambda (#{source\ 2570}# | |
8697 | #{fun-exp\ 2571}# | |
8698 | #{arg-exps\ 2572}#) | |
8699 | (#{make-application\ 262}# | |
8700 | #{source\ 2570}# | |
8701 | #{fun-exp\ 2571}# | |
8702 | #{arg-exps\ 2572}#))) | |
8703 | (#{build-void\ 302}# | |
8704 | (lambda (#{source\ 2576}#) | |
8705 | (#{make-void\ 240}# #{source\ 2576}#))) | |
8706 | (#{decorate-source\ 300}# | |
8707 | (lambda (#{e\ 2578}# #{s\ 2579}#) | |
c89222f8 | 8708 | (begin |
fb6e61ca AW |
8709 | (if (if (pair? #{e\ 2578}#) #{s\ 2579}# #f) |
8710 | (set-source-properties! #{e\ 2578}# #{s\ 2579}#)) | |
8711 | #{e\ 2578}#))) | |
8712 | (#{get-global-definition-hook\ 298}# | |
8713 | (lambda (#{symbol\ 2584}# #{module\ 2585}#) | |
c89222f8 | 8714 | (begin |
fb6e61ca | 8715 | (if (if (not #{module\ 2585}#) (current-module) #f) |
c89222f8 | 8716 | (warn "module system is booted, we should have a module" |
fb6e61ca AW |
8717 | #{symbol\ 2584}#)) |
8718 | (let ((#{v\ 2591}# | |
c89222f8 | 8719 | (module-variable |
fb6e61ca AW |
8720 | (if #{module\ 2585}# |
8721 | (resolve-module (cdr #{module\ 2585}#)) | |
c89222f8 | 8722 | (current-module)) |
fb6e61ca AW |
8723 | #{symbol\ 2584}#))) |
8724 | (if #{v\ 2591}# | |
8725 | (if (variable-bound? #{v\ 2591}#) | |
8726 | (let ((#{val\ 2596}# (variable-ref #{v\ 2591}#))) | |
8727 | (if (macro? #{val\ 2596}#) | |
8728 | (if (macro-type #{val\ 2596}#) | |
8729 | (cons (macro-type #{val\ 2596}#) | |
8730 | (macro-binding #{val\ 2596}#)) | |
c89222f8 AW |
8731 | #f) |
8732 | #f)) | |
8733 | #f) | |
8734 | #f))))) | |
fb6e61ca AW |
8735 | (#{put-global-definition-hook\ 296}# |
8736 | (lambda (#{symbol\ 2600}# #{type\ 2601}# #{val\ 2602}#) | |
e809758a AW |
8737 | (module-define! |
8738 | (current-module) | |
fb6e61ca | 8739 | #{symbol\ 2600}# |
e809758a | 8740 | (make-syntax-transformer |
fb6e61ca AW |
8741 | #{symbol\ 2600}# |
8742 | #{type\ 2601}# | |
8743 | #{val\ 2602}#)))) | |
8744 | (#{local-eval-hook\ 293}# | |
8745 | (lambda (#{x\ 2606}# #{mod\ 2607}#) | |
8746 | (primitive-eval #{x\ 2606}#))) | |
8747 | (#{top-level-eval-hook\ 291}# | |
8748 | (lambda (#{x\ 2610}# #{mod\ 2611}#) | |
8749 | (primitive-eval #{x\ 2610}#))) | |
8750 | (#{fx<\ 289}# <) | |
8751 | (#{fx=\ 287}# =) | |
8752 | (#{fx-\ 285}# -) | |
8753 | (#{fx+\ 283}# +) | |
8754 | (#{set-lambda-meta!\ 281}# | |
8755 | (lambda (#{x\ 2614}# #{v\ 2615}#) | |
8756 | (struct-set! #{x\ 2614}# 1 #{v\ 2615}#))) | |
8757 | (#{lambda-meta\ 279}# | |
8758 | (lambda (#{x\ 2618}#) (struct-ref #{x\ 2618}# 1))) | |
8759 | (#{lambda?\ 277}# | |
8760 | (lambda (#{x\ 2620}#) | |
8761 | (if (struct? #{x\ 2620}#) | |
8762 | (eq? (struct-vtable #{x\ 2620}#) | |
22cf27c8 AW |
8763 | (vector-ref %expanded-vtables 13)) |
8764 | #f))) | |
fb6e61ca AW |
8765 | (#{make-dynlet\ 274}# |
8766 | (lambda (#{src\ 2624}# | |
8767 | #{fluids\ 2625}# | |
8768 | #{vals\ 2626}# | |
8769 | #{body\ 2627}#) | |
3d10018e AW |
8770 | (make-struct |
8771 | (vector-ref %expanded-vtables 17) | |
8772 | 0 | |
fb6e61ca AW |
8773 | #{src\ 2624}# |
8774 | #{fluids\ 2625}# | |
8775 | #{vals\ 2626}# | |
8776 | #{body\ 2627}#))) | |
8777 | (#{make-letrec\ 272}# | |
8778 | (lambda (#{src\ 2632}# | |
8779 | #{in-order?\ 2633}# | |
8780 | #{names\ 2634}# | |
8781 | #{gensyms\ 2635}# | |
8782 | #{vals\ 2636}# | |
8783 | #{body\ 2637}#) | |
3d10018e AW |
8784 | (make-struct |
8785 | (vector-ref %expanded-vtables 16) | |
8786 | 0 | |
fb6e61ca AW |
8787 | #{src\ 2632}# |
8788 | #{in-order?\ 2633}# | |
8789 | #{names\ 2634}# | |
8790 | #{gensyms\ 2635}# | |
8791 | #{vals\ 2636}# | |
8792 | #{body\ 2637}#))) | |
8793 | (#{make-let\ 270}# | |
8794 | (lambda (#{src\ 2644}# | |
8795 | #{names\ 2645}# | |
8796 | #{gensyms\ 2646}# | |
8797 | #{vals\ 2647}# | |
8798 | #{body\ 2648}#) | |
3d10018e AW |
8799 | (make-struct |
8800 | (vector-ref %expanded-vtables 15) | |
8801 | 0 | |
fb6e61ca AW |
8802 | #{src\ 2644}# |
8803 | #{names\ 2645}# | |
8804 | #{gensyms\ 2646}# | |
8805 | #{vals\ 2647}# | |
8806 | #{body\ 2648}#))) | |
8807 | (#{make-lambda-case\ 268}# | |
8808 | (lambda (#{src\ 2654}# | |
8809 | #{req\ 2655}# | |
8810 | #{opt\ 2656}# | |
8811 | #{rest\ 2657}# | |
8812 | #{kw\ 2658}# | |
8813 | #{inits\ 2659}# | |
8814 | #{gensyms\ 2660}# | |
8815 | #{body\ 2661}# | |
8816 | #{alternate\ 2662}#) | |
3d10018e AW |
8817 | (make-struct |
8818 | (vector-ref %expanded-vtables 14) | |
8819 | 0 | |
fb6e61ca AW |
8820 | #{src\ 2654}# |
8821 | #{req\ 2655}# | |
8822 | #{opt\ 2656}# | |
8823 | #{rest\ 2657}# | |
8824 | #{kw\ 2658}# | |
8825 | #{inits\ 2659}# | |
8826 | #{gensyms\ 2660}# | |
8827 | #{body\ 2661}# | |
8828 | #{alternate\ 2662}#))) | |
8829 | (#{make-lambda\ 266}# | |
8830 | (lambda (#{src\ 2672}# #{meta\ 2673}# #{body\ 2674}#) | |
3d10018e AW |
8831 | (make-struct |
8832 | (vector-ref %expanded-vtables 13) | |
8833 | 0 | |
fb6e61ca AW |
8834 | #{src\ 2672}# |
8835 | #{meta\ 2673}# | |
8836 | #{body\ 2674}#))) | |
8837 | (#{make-sequence\ 264}# | |
8838 | (lambda (#{src\ 2678}# #{exps\ 2679}#) | |
3d10018e AW |
8839 | (make-struct |
8840 | (vector-ref %expanded-vtables 12) | |
8841 | 0 | |
fb6e61ca AW |
8842 | #{src\ 2678}# |
8843 | #{exps\ 2679}#))) | |
8844 | (#{make-application\ 262}# | |
8845 | (lambda (#{src\ 2682}# #{proc\ 2683}# #{args\ 2684}#) | |
3d10018e AW |
8846 | (make-struct |
8847 | (vector-ref %expanded-vtables 11) | |
8848 | 0 | |
fb6e61ca AW |
8849 | #{src\ 2682}# |
8850 | #{proc\ 2683}# | |
8851 | #{args\ 2684}#))) | |
8852 | (#{make-conditional\ 260}# | |
8853 | (lambda (#{src\ 2688}# | |
8854 | #{test\ 2689}# | |
8855 | #{consequent\ 2690}# | |
8856 | #{alternate\ 2691}#) | |
3d10018e AW |
8857 | (make-struct |
8858 | (vector-ref %expanded-vtables 10) | |
8859 | 0 | |
fb6e61ca AW |
8860 | #{src\ 2688}# |
8861 | #{test\ 2689}# | |
8862 | #{consequent\ 2690}# | |
8863 | #{alternate\ 2691}#))) | |
8864 | (#{make-toplevel-define\ 258}# | |
8865 | (lambda (#{src\ 2696}# #{name\ 2697}# #{exp\ 2698}#) | |
3d10018e AW |
8866 | (make-struct |
8867 | (vector-ref %expanded-vtables 9) | |
8868 | 0 | |
fb6e61ca AW |
8869 | #{src\ 2696}# |
8870 | #{name\ 2697}# | |
8871 | #{exp\ 2698}#))) | |
8872 | (#{make-toplevel-set\ 256}# | |
8873 | (lambda (#{src\ 2702}# #{name\ 2703}# #{exp\ 2704}#) | |
3d10018e AW |
8874 | (make-struct |
8875 | (vector-ref %expanded-vtables 8) | |
8876 | 0 | |
fb6e61ca AW |
8877 | #{src\ 2702}# |
8878 | #{name\ 2703}# | |
8879 | #{exp\ 2704}#))) | |
8880 | (#{make-toplevel-ref\ 254}# | |
8881 | (lambda (#{src\ 2708}# #{name\ 2709}#) | |
3d10018e AW |
8882 | (make-struct |
8883 | (vector-ref %expanded-vtables 7) | |
8884 | 0 | |
fb6e61ca AW |
8885 | #{src\ 2708}# |
8886 | #{name\ 2709}#))) | |
8887 | (#{make-module-set\ 252}# | |
8888 | (lambda (#{src\ 2712}# | |
8889 | #{mod\ 2713}# | |
8890 | #{name\ 2714}# | |
8891 | #{public?\ 2715}# | |
8892 | #{exp\ 2716}#) | |
3d10018e AW |
8893 | (make-struct |
8894 | (vector-ref %expanded-vtables 6) | |
8895 | 0 | |
fb6e61ca AW |
8896 | #{src\ 2712}# |
8897 | #{mod\ 2713}# | |
8898 | #{name\ 2714}# | |
8899 | #{public?\ 2715}# | |
8900 | #{exp\ 2716}#))) | |
8901 | (#{make-module-ref\ 250}# | |
8902 | (lambda (#{src\ 2722}# | |
8903 | #{mod\ 2723}# | |
8904 | #{name\ 2724}# | |
8905 | #{public?\ 2725}#) | |
3d10018e AW |
8906 | (make-struct |
8907 | (vector-ref %expanded-vtables 5) | |
8908 | 0 | |
fb6e61ca AW |
8909 | #{src\ 2722}# |
8910 | #{mod\ 2723}# | |
8911 | #{name\ 2724}# | |
8912 | #{public?\ 2725}#))) | |
8913 | (#{make-lexical-set\ 248}# | |
8914 | (lambda (#{src\ 2730}# | |
8915 | #{name\ 2731}# | |
8916 | #{gensym\ 2732}# | |
8917 | #{exp\ 2733}#) | |
3d10018e AW |
8918 | (make-struct |
8919 | (vector-ref %expanded-vtables 4) | |
8920 | 0 | |
fb6e61ca AW |
8921 | #{src\ 2730}# |
8922 | #{name\ 2731}# | |
8923 | #{gensym\ 2732}# | |
8924 | #{exp\ 2733}#))) | |
8925 | (#{make-lexical-ref\ 246}# | |
8926 | (lambda (#{src\ 2738}# #{name\ 2739}# #{gensym\ 2740}#) | |
3d10018e AW |
8927 | (make-struct |
8928 | (vector-ref %expanded-vtables 3) | |
8929 | 0 | |
fb6e61ca AW |
8930 | #{src\ 2738}# |
8931 | #{name\ 2739}# | |
8932 | #{gensym\ 2740}#))) | |
8933 | (#{make-primitive-ref\ 244}# | |
8934 | (lambda (#{src\ 2744}# #{name\ 2745}#) | |
3d10018e AW |
8935 | (make-struct |
8936 | (vector-ref %expanded-vtables 2) | |
8937 | 0 | |
fb6e61ca AW |
8938 | #{src\ 2744}# |
8939 | #{name\ 2745}#))) | |
8940 | (#{make-const\ 242}# | |
8941 | (lambda (#{src\ 2748}# #{exp\ 2749}#) | |
3d10018e AW |
8942 | (make-struct |
8943 | (vector-ref %expanded-vtables 1) | |
8944 | 0 | |
fb6e61ca AW |
8945 | #{src\ 2748}# |
8946 | #{exp\ 2749}#))) | |
8947 | (#{make-void\ 240}# | |
8948 | (lambda (#{src\ 2752}#) | |
3d10018e AW |
8949 | (make-struct |
8950 | (vector-ref %expanded-vtables 0) | |
8951 | 0 | |
fb6e61ca | 8952 | #{src\ 2752}#)))) |
c89222f8 | 8953 | (begin |
fb6e61ca | 8954 | (#{global-extend\ 378}# |
c89222f8 AW |
8955 | 'local-syntax |
8956 | 'letrec-syntax | |
8957 | #t) | |
fb6e61ca | 8958 | (#{global-extend\ 378}# |
c89222f8 AW |
8959 | 'local-syntax |
8960 | 'let-syntax | |
8961 | #f) | |
fb6e61ca | 8962 | (#{global-extend\ 378}# |
c89222f8 AW |
8963 | 'core |
8964 | 'fluid-let-syntax | |
fb6e61ca AW |
8965 | (lambda (#{e\ 2754}# |
8966 | #{r\ 2755}# | |
8967 | #{w\ 2756}# | |
8968 | #{s\ 2757}# | |
8969 | #{mod\ 2758}#) | |
8970 | ((lambda (#{tmp\ 2764}#) | |
8971 | ((lambda (#{tmp\ 2765}#) | |
8972 | (if (if #{tmp\ 2765}# | |
8973 | (apply (lambda (#{_\ 2771}# | |
8974 | #{var\ 2772}# | |
8975 | #{val\ 2773}# | |
8976 | #{e1\ 2774}# | |
8977 | #{e2\ 2775}#) | |
8978 | (#{valid-bound-ids?\ 445}# #{var\ 2772}#)) | |
8979 | #{tmp\ 2765}#) | |
c89222f8 | 8980 | #f) |
fb6e61ca AW |
8981 | (apply (lambda (#{_\ 2782}# |
8982 | #{var\ 2783}# | |
8983 | #{val\ 2784}# | |
8984 | #{e1\ 2785}# | |
8985 | #{e2\ 2786}#) | |
8986 | (let ((#{names\ 2788}# | |
8987 | (map (lambda (#{x\ 2789}#) | |
8988 | (#{id-var-name\ 439}# | |
8989 | #{x\ 2789}# | |
8990 | #{w\ 2756}#)) | |
8991 | #{var\ 2783}#))) | |
c89222f8 AW |
8992 | (begin |
8993 | (for-each | |
fb6e61ca AW |
8994 | (lambda (#{id\ 2792}# #{n\ 2793}#) |
8995 | (let ((#{atom-key\ 2798}# | |
8996 | (#{binding-type\ 365}# | |
8997 | (#{lookup\ 376}# | |
8998 | #{n\ 2793}# | |
8999 | #{r\ 2755}# | |
9000 | #{mod\ 2758}#)))) | |
9001 | (if (memv #{atom-key\ 2798}# | |
c89222f8 AW |
9002 | '(displaced-lexical)) |
9003 | (syntax-violation | |
9004 | 'fluid-let-syntax | |
9005 | "identifier out of context" | |
fb6e61ca AW |
9006 | #{e\ 2754}# |
9007 | (#{source-wrap\ 453}# | |
9008 | #{id\ 2792}# | |
9009 | #{w\ 2756}# | |
9010 | #{s\ 2757}# | |
9011 | #{mod\ 2758}#))))) | |
9012 | #{var\ 2783}# | |
9013 | #{names\ 2788}#) | |
9014 | (#{chi-body\ 475}# | |
9015 | (cons #{e1\ 2785}# #{e2\ 2786}#) | |
9016 | (#{source-wrap\ 453}# | |
9017 | #{e\ 2754}# | |
9018 | #{w\ 2756}# | |
9019 | #{s\ 2757}# | |
9020 | #{mod\ 2758}#) | |
9021 | (#{extend-env\ 370}# | |
9022 | #{names\ 2788}# | |
9023 | (let ((#{trans-r\ 2803}# | |
9024 | (#{macros-only-env\ 374}# | |
9025 | #{r\ 2755}#))) | |
9026 | (map (lambda (#{x\ 2804}#) | |
c89222f8 | 9027 | (cons 'macro |
fb6e61ca AW |
9028 | (#{eval-local-transformer\ 479}# |
9029 | (#{chi\ 467}# | |
9030 | #{x\ 2804}# | |
9031 | #{trans-r\ 2803}# | |
9032 | #{w\ 2756}# | |
9033 | #{mod\ 2758}#) | |
9034 | #{mod\ 2758}#))) | |
9035 | #{val\ 2784}#)) | |
9036 | #{r\ 2755}#) | |
9037 | #{w\ 2756}# | |
9038 | #{mod\ 2758}#)))) | |
9039 | #{tmp\ 2765}#) | |
9040 | ((lambda (#{_\ 2809}#) | |
c89222f8 AW |
9041 | (syntax-violation |
9042 | 'fluid-let-syntax | |
9043 | "bad syntax" | |
fb6e61ca AW |
9044 | (#{source-wrap\ 453}# |
9045 | #{e\ 2754}# | |
9046 | #{w\ 2756}# | |
9047 | #{s\ 2757}# | |
9048 | #{mod\ 2758}#))) | |
9049 | #{tmp\ 2764}#))) | |
c89222f8 | 9050 | ($sc-dispatch |
fb6e61ca | 9051 | #{tmp\ 2764}# |
c89222f8 | 9052 | '(any #(each (any any)) any . each-any)))) |
fb6e61ca AW |
9053 | #{e\ 2754}#))) |
9054 | (#{global-extend\ 378}# | |
c89222f8 AW |
9055 | 'core |
9056 | 'quote | |
fb6e61ca AW |
9057 | (lambda (#{e\ 2810}# |
9058 | #{r\ 2811}# | |
9059 | #{w\ 2812}# | |
9060 | #{s\ 2813}# | |
9061 | #{mod\ 2814}#) | |
9062 | ((lambda (#{tmp\ 2820}#) | |
9063 | ((lambda (#{tmp\ 2821}#) | |
9064 | (if #{tmp\ 2821}# | |
9065 | (apply (lambda (#{_\ 2824}# #{e\ 2825}#) | |
9066 | (#{build-data\ 332}# | |
9067 | #{s\ 2813}# | |
9068 | (#{strip\ 493}# #{e\ 2825}# #{w\ 2812}#))) | |
9069 | #{tmp\ 2821}#) | |
9070 | ((lambda (#{_\ 2827}#) | |
c89222f8 AW |
9071 | (syntax-violation |
9072 | 'quote | |
9073 | "bad syntax" | |
fb6e61ca AW |
9074 | (#{source-wrap\ 453}# |
9075 | #{e\ 2810}# | |
9076 | #{w\ 2812}# | |
9077 | #{s\ 2813}# | |
9078 | #{mod\ 2814}#))) | |
9079 | #{tmp\ 2820}#))) | |
9080 | ($sc-dispatch #{tmp\ 2820}# (quote (any any))))) | |
9081 | #{e\ 2810}#))) | |
9082 | (#{global-extend\ 378}# | |
c89222f8 AW |
9083 | 'core |
9084 | 'syntax | |
fb6e61ca AW |
9085 | (letrec ((#{regen\ 2843}# |
9086 | (lambda (#{x\ 2844}#) | |
9087 | (let ((#{atom-key\ 2848}# (car #{x\ 2844}#))) | |
9088 | (if (memv #{atom-key\ 2848}# (quote (ref))) | |
9089 | (#{build-lexical-reference\ 310}# | |
c89222f8 AW |
9090 | 'value |
9091 | #f | |
fb6e61ca AW |
9092 | (cadr #{x\ 2844}#) |
9093 | (cadr #{x\ 2844}#)) | |
9094 | (if (memv #{atom-key\ 2848}# (quote (primitive))) | |
9095 | (#{build-primref\ 330}# #f (cadr #{x\ 2844}#)) | |
9096 | (if (memv #{atom-key\ 2848}# (quote (quote))) | |
9097 | (#{build-data\ 332}# #f (cadr #{x\ 2844}#)) | |
9098 | (if (memv #{atom-key\ 2848}# (quote (lambda))) | |
9099 | (if (list? (cadr #{x\ 2844}#)) | |
9100 | (#{build-simple-lambda\ 324}# | |
c89222f8 | 9101 | #f |
fb6e61ca | 9102 | (cadr #{x\ 2844}#) |
c89222f8 | 9103 | #f |
fb6e61ca | 9104 | (cadr #{x\ 2844}#) |
3785c5b2 | 9105 | '() |
fb6e61ca AW |
9106 | (#{regen\ 2843}# (caddr #{x\ 2844}#))) |
9107 | (error "how did we get here" #{x\ 2844}#)) | |
9108 | (#{build-application\ 304}# | |
c89222f8 | 9109 | #f |
fb6e61ca AW |
9110 | (#{build-primref\ 330}# #f (car #{x\ 2844}#)) |
9111 | (map #{regen\ 2843}# | |
9112 | (cdr #{x\ 2844}#)))))))))) | |
9113 | (#{gen-vector\ 2841}# | |
9114 | (lambda (#{x\ 2860}#) | |
9115 | (if (eq? (car #{x\ 2860}#) (quote list)) | |
9116 | (cons (quote vector) (cdr #{x\ 2860}#)) | |
9117 | (if (eq? (car #{x\ 2860}#) (quote quote)) | |
c89222f8 | 9118 | (list 'quote |
fb6e61ca AW |
9119 | (list->vector (cadr #{x\ 2860}#))) |
9120 | (list (quote list->vector) #{x\ 2860}#))))) | |
9121 | (#{gen-append\ 2839}# | |
9122 | (lambda (#{x\ 2870}# #{y\ 2871}#) | |
9123 | (if (equal? #{y\ 2871}# (quote (quote ()))) | |
9124 | #{x\ 2870}# | |
9125 | (list (quote append) #{x\ 2870}# #{y\ 2871}#)))) | |
9126 | (#{gen-cons\ 2837}# | |
9127 | (lambda (#{x\ 2875}# #{y\ 2876}#) | |
9128 | (let ((#{atom-key\ 2881}# (car #{y\ 2876}#))) | |
9129 | (if (memv #{atom-key\ 2881}# (quote (quote))) | |
9130 | (if (eq? (car #{x\ 2875}#) (quote quote)) | |
c89222f8 | 9131 | (list 'quote |
fb6e61ca AW |
9132 | (cons (cadr #{x\ 2875}#) (cadr #{y\ 2876}#))) |
9133 | (if (eq? (cadr #{y\ 2876}#) (quote ())) | |
9134 | (list (quote list) #{x\ 2875}#) | |
9135 | (list (quote cons) #{x\ 2875}# #{y\ 2876}#))) | |
9136 | (if (memv #{atom-key\ 2881}# (quote (list))) | |
c89222f8 | 9137 | (cons 'list |
fb6e61ca AW |
9138 | (cons #{x\ 2875}# (cdr #{y\ 2876}#))) |
9139 | (list (quote cons) #{x\ 2875}# #{y\ 2876}#)))))) | |
9140 | (#{gen-map\ 2835}# | |
9141 | (lambda (#{e\ 2890}# #{map-env\ 2891}#) | |
9142 | (let ((#{formals\ 2896}# (map cdr #{map-env\ 2891}#)) | |
9143 | (#{actuals\ 2897}# | |
9144 | (map (lambda (#{x\ 2898}#) | |
9145 | (list (quote ref) (car #{x\ 2898}#))) | |
9146 | #{map-env\ 2891}#))) | |
9147 | (if (eq? (car #{e\ 2890}#) (quote ref)) | |
9148 | (car #{actuals\ 2897}#) | |
c89222f8 | 9149 | (if (and-map |
fb6e61ca AW |
9150 | (lambda (#{x\ 2905}#) |
9151 | (if (eq? (car #{x\ 2905}#) (quote ref)) | |
9152 | (memq (cadr #{x\ 2905}#) #{formals\ 2896}#) | |
c89222f8 | 9153 | #f)) |
fb6e61ca | 9154 | (cdr #{e\ 2890}#)) |
c89222f8 AW |
9155 | (cons 'map |
9156 | (cons (list 'primitive | |
fb6e61ca AW |
9157 | (car #{e\ 2890}#)) |
9158 | (map (let ((#{r\ 2911}# | |
c89222f8 | 9159 | (map cons |
fb6e61ca AW |
9160 | #{formals\ 2896}# |
9161 | #{actuals\ 2897}#))) | |
9162 | (lambda (#{x\ 2912}#) | |
9163 | (cdr (assq (cadr #{x\ 2912}#) | |
9164 | #{r\ 2911}#)))) | |
9165 | (cdr #{e\ 2890}#)))) | |
c89222f8 AW |
9166 | (cons 'map |
9167 | (cons (list 'lambda | |
fb6e61ca AW |
9168 | #{formals\ 2896}# |
9169 | #{e\ 2890}#) | |
9170 | #{actuals\ 2897}#))))))) | |
9171 | (#{gen-mappend\ 2833}# | |
9172 | (lambda (#{e\ 2916}# #{map-env\ 2917}#) | |
c89222f8 AW |
9173 | (list 'apply |
9174 | '(primitive append) | |
fb6e61ca AW |
9175 | (#{gen-map\ 2835}# #{e\ 2916}# #{map-env\ 2917}#)))) |
9176 | (#{gen-ref\ 2831}# | |
9177 | (lambda (#{src\ 2921}# | |
9178 | #{var\ 2922}# | |
9179 | #{level\ 2923}# | |
9180 | #{maps\ 2924}#) | |
9181 | (if (#{fx=\ 287}# #{level\ 2923}# 0) | |
9182 | (values #{var\ 2922}# #{maps\ 2924}#) | |
9183 | (if (null? #{maps\ 2924}#) | |
c89222f8 AW |
9184 | (syntax-violation |
9185 | 'syntax | |
9186 | "missing ellipsis" | |
fb6e61ca | 9187 | #{src\ 2921}#) |
c89222f8 AW |
9188 | (call-with-values |
9189 | (lambda () | |
fb6e61ca AW |
9190 | (#{gen-ref\ 2831}# |
9191 | #{src\ 2921}# | |
9192 | #{var\ 2922}# | |
9193 | (#{fx-\ 285}# #{level\ 2923}# 1) | |
9194 | (cdr #{maps\ 2924}#))) | |
9195 | (lambda (#{outer-var\ 2929}# #{outer-maps\ 2930}#) | |
9196 | (let ((#{b\ 2934}# | |
9197 | (assq #{outer-var\ 2929}# | |
9198 | (car #{maps\ 2924}#)))) | |
9199 | (if #{b\ 2934}# | |
9200 | (values (cdr #{b\ 2934}#) #{maps\ 2924}#) | |
9201 | (let ((#{inner-var\ 2936}# | |
9202 | (#{gen-var\ 495}# (quote tmp)))) | |
c89222f8 | 9203 | (values |
fb6e61ca AW |
9204 | #{inner-var\ 2936}# |
9205 | (cons (cons (cons #{outer-var\ 2929}# | |
9206 | #{inner-var\ 2936}#) | |
9207 | (car #{maps\ 2924}#)) | |
9208 | #{outer-maps\ 2930}#))))))))))) | |
9209 | (#{gen-syntax\ 2829}# | |
9210 | (lambda (#{src\ 2937}# | |
9211 | #{e\ 2938}# | |
9212 | #{r\ 2939}# | |
9213 | #{maps\ 2940}# | |
9214 | #{ellipsis?\ 2941}# | |
9215 | #{mod\ 2942}#) | |
9216 | (if (#{id?\ 382}# #{e\ 2938}#) | |
9217 | (let ((#{label\ 2950}# | |
9218 | (#{id-var-name\ 439}# | |
9219 | #{e\ 2938}# | |
c89222f8 | 9220 | '(())))) |
fb6e61ca AW |
9221 | (let ((#{b\ 2953}# |
9222 | (#{lookup\ 376}# | |
9223 | #{label\ 2950}# | |
9224 | #{r\ 2939}# | |
9225 | #{mod\ 2942}#))) | |
9226 | (if (eq? (#{binding-type\ 365}# #{b\ 2953}#) | |
c89222f8 AW |
9227 | 'syntax) |
9228 | (call-with-values | |
9229 | (lambda () | |
fb6e61ca AW |
9230 | (let ((#{var.lev\ 2955}# |
9231 | (#{binding-value\ 367}# #{b\ 2953}#))) | |
9232 | (#{gen-ref\ 2831}# | |
9233 | #{src\ 2937}# | |
9234 | (car #{var.lev\ 2955}#) | |
9235 | (cdr #{var.lev\ 2955}#) | |
9236 | #{maps\ 2940}#))) | |
9237 | (lambda (#{var\ 2956}# #{maps\ 2957}#) | |
c89222f8 | 9238 | (values |
fb6e61ca AW |
9239 | (list (quote ref) #{var\ 2956}#) |
9240 | #{maps\ 2957}#))) | |
9241 | (if (#{ellipsis?\ 2941}# #{e\ 2938}#) | |
c89222f8 AW |
9242 | (syntax-violation |
9243 | 'syntax | |
9244 | "misplaced ellipsis" | |
fb6e61ca | 9245 | #{src\ 2937}#) |
c89222f8 | 9246 | (values |
fb6e61ca AW |
9247 | (list (quote quote) #{e\ 2938}#) |
9248 | #{maps\ 2940}#))))) | |
9249 | ((lambda (#{tmp\ 2962}#) | |
9250 | ((lambda (#{tmp\ 2963}#) | |
9251 | (if (if #{tmp\ 2963}# | |
9252 | (apply (lambda (#{dots\ 2966}# #{e\ 2967}#) | |
9253 | (#{ellipsis?\ 2941}# | |
9254 | #{dots\ 2966}#)) | |
9255 | #{tmp\ 2963}#) | |
c89222f8 | 9256 | #f) |
fb6e61ca AW |
9257 | (apply (lambda (#{dots\ 2970}# #{e\ 2971}#) |
9258 | (#{gen-syntax\ 2829}# | |
9259 | #{src\ 2937}# | |
9260 | #{e\ 2971}# | |
9261 | #{r\ 2939}# | |
9262 | #{maps\ 2940}# | |
9263 | (lambda (#{x\ 2972}#) #f) | |
9264 | #{mod\ 2942}#)) | |
9265 | #{tmp\ 2963}#) | |
9266 | ((lambda (#{tmp\ 2974}#) | |
9267 | (if (if #{tmp\ 2974}# | |
9268 | (apply (lambda (#{x\ 2978}# | |
9269 | #{dots\ 2979}# | |
9270 | #{y\ 2980}#) | |
9271 | (#{ellipsis?\ 2941}# | |
9272 | #{dots\ 2979}#)) | |
9273 | #{tmp\ 2974}#) | |
c89222f8 | 9274 | #f) |
fb6e61ca AW |
9275 | (apply (lambda (#{x\ 2984}# |
9276 | #{dots\ 2985}# | |
9277 | #{y\ 2986}#) | |
9278 | (letrec ((#{f\ 2990}# | |
9279 | (lambda (#{y\ 2991}# | |
9280 | #{k\ 2992}#) | |
9281 | ((lambda (#{tmp\ 2999}#) | |
9282 | ((lambda (#{tmp\ 3000}#) | |
9283 | (if (if #{tmp\ 3000}# | |
9284 | (apply (lambda (#{dots\ 3003}# | |
9285 | #{y\ 3004}#) | |
9286 | (#{ellipsis?\ 2941}# | |
9287 | #{dots\ 3003}#)) | |
9288 | #{tmp\ 3000}#) | |
c89222f8 | 9289 | #f) |
fb6e61ca AW |
9290 | (apply (lambda (#{dots\ 3007}# |
9291 | #{y\ 3008}#) | |
9292 | (#{f\ 2990}# | |
9293 | #{y\ 3008}# | |
9294 | (lambda (#{maps\ 3009}#) | |
c89222f8 AW |
9295 | (call-with-values |
9296 | (lambda () | |
fb6e61ca | 9297 | (#{k\ 2992}# |
c89222f8 | 9298 | (cons '() |
fb6e61ca AW |
9299 | #{maps\ 3009}#))) |
9300 | (lambda (#{x\ 3011}# | |
9301 | #{maps\ 3012}#) | |
9302 | (if (null? (car #{maps\ 3012}#)) | |
c89222f8 AW |
9303 | (syntax-violation |
9304 | 'syntax | |
9305 | "extra ellipsis" | |
fb6e61ca | 9306 | #{src\ 2937}#) |
c89222f8 | 9307 | (values |
fb6e61ca AW |
9308 | (#{gen-mappend\ 2833}# |
9309 | #{x\ 3011}# | |
9310 | (car #{maps\ 3012}#)) | |
9311 | (cdr #{maps\ 3012}#)))))))) | |
9312 | #{tmp\ 3000}#) | |
9313 | ((lambda (#{_\ 3016}#) | |
c89222f8 AW |
9314 | (call-with-values |
9315 | (lambda () | |
fb6e61ca AW |
9316 | (#{gen-syntax\ 2829}# |
9317 | #{src\ 2937}# | |
9318 | #{y\ 2991}# | |
9319 | #{r\ 2939}# | |
9320 | #{maps\ 2940}# | |
9321 | #{ellipsis?\ 2941}# | |
9322 | #{mod\ 2942}#)) | |
9323 | (lambda (#{y\ 3017}# | |
9324 | #{maps\ 3018}#) | |
c89222f8 AW |
9325 | (call-with-values |
9326 | (lambda () | |
fb6e61ca AW |
9327 | (#{k\ 2992}# |
9328 | #{maps\ 3018}#)) | |
9329 | (lambda (#{x\ 3021}# | |
9330 | #{maps\ 3022}#) | |
c89222f8 | 9331 | (values |
fb6e61ca AW |
9332 | (#{gen-append\ 2839}# |
9333 | #{x\ 3021}# | |
9334 | #{y\ 3017}#) | |
9335 | #{maps\ 3022}#)))))) | |
9336 | #{tmp\ 2999}#))) | |
c89222f8 | 9337 | ($sc-dispatch |
fb6e61ca | 9338 | #{tmp\ 2999}# |
c89222f8 | 9339 | '(any . any)))) |
fb6e61ca AW |
9340 | #{y\ 2991}#)))) |
9341 | (#{f\ 2990}# | |
9342 | #{y\ 2986}# | |
9343 | (lambda (#{maps\ 2993}#) | |
c89222f8 AW |
9344 | (call-with-values |
9345 | (lambda () | |
fb6e61ca AW |
9346 | (#{gen-syntax\ 2829}# |
9347 | #{src\ 2937}# | |
9348 | #{x\ 2984}# | |
9349 | #{r\ 2939}# | |
c89222f8 | 9350 | (cons '() |
fb6e61ca AW |
9351 | #{maps\ 2993}#) |
9352 | #{ellipsis?\ 2941}# | |
9353 | #{mod\ 2942}#)) | |
9354 | (lambda (#{x\ 2995}# | |
9355 | #{maps\ 2996}#) | |
9356 | (if (null? (car #{maps\ 2996}#)) | |
c89222f8 AW |
9357 | (syntax-violation |
9358 | 'syntax | |
9359 | "extra ellipsis" | |
fb6e61ca | 9360 | #{src\ 2937}#) |
c89222f8 | 9361 | (values |
fb6e61ca AW |
9362 | (#{gen-map\ 2835}# |
9363 | #{x\ 2995}# | |
9364 | (car #{maps\ 2996}#)) | |
9365 | (cdr #{maps\ 2996}#))))))))) | |
9366 | #{tmp\ 2974}#) | |
9367 | ((lambda (#{tmp\ 3025}#) | |
9368 | (if #{tmp\ 3025}# | |
9369 | (apply (lambda (#{x\ 3028}# | |
9370 | #{y\ 3029}#) | |
c89222f8 AW |
9371 | (call-with-values |
9372 | (lambda () | |
fb6e61ca AW |
9373 | (#{gen-syntax\ 2829}# |
9374 | #{src\ 2937}# | |
9375 | #{x\ 3028}# | |
9376 | #{r\ 2939}# | |
9377 | #{maps\ 2940}# | |
9378 | #{ellipsis?\ 2941}# | |
9379 | #{mod\ 2942}#)) | |
9380 | (lambda (#{x\ 3030}# | |
9381 | #{maps\ 3031}#) | |
c89222f8 AW |
9382 | (call-with-values |
9383 | (lambda () | |
fb6e61ca AW |
9384 | (#{gen-syntax\ 2829}# |
9385 | #{src\ 2937}# | |
9386 | #{y\ 3029}# | |
9387 | #{r\ 2939}# | |
9388 | #{maps\ 3031}# | |
9389 | #{ellipsis?\ 2941}# | |
9390 | #{mod\ 2942}#)) | |
9391 | (lambda (#{y\ 3034}# | |
9392 | #{maps\ 3035}#) | |
c89222f8 | 9393 | (values |
fb6e61ca AW |
9394 | (#{gen-cons\ 2837}# |
9395 | #{x\ 3030}# | |
9396 | #{y\ 3034}#) | |
9397 | #{maps\ 3035}#)))))) | |
9398 | #{tmp\ 3025}#) | |
9399 | ((lambda (#{tmp\ 3038}#) | |
9400 | (if #{tmp\ 3038}# | |
9401 | (apply (lambda (#{e1\ 3041}# | |
9402 | #{e2\ 3042}#) | |
c89222f8 AW |
9403 | (call-with-values |
9404 | (lambda () | |
fb6e61ca AW |
9405 | (#{gen-syntax\ 2829}# |
9406 | #{src\ 2937}# | |
9407 | (cons #{e1\ 3041}# | |
9408 | #{e2\ 3042}#) | |
9409 | #{r\ 2939}# | |
9410 | #{maps\ 2940}# | |
9411 | #{ellipsis?\ 2941}# | |
9412 | #{mod\ 2942}#)) | |
9413 | (lambda (#{e\ 3044}# | |
9414 | #{maps\ 3045}#) | |
c89222f8 | 9415 | (values |
fb6e61ca AW |
9416 | (#{gen-vector\ 2841}# |
9417 | #{e\ 3044}#) | |
9418 | #{maps\ 3045}#)))) | |
9419 | #{tmp\ 3038}#) | |
9420 | ((lambda (#{_\ 3049}#) | |
c89222f8 AW |
9421 | (values |
9422 | (list 'quote | |
fb6e61ca AW |
9423 | #{e\ 2938}#) |
9424 | #{maps\ 2940}#)) | |
9425 | #{tmp\ 2962}#))) | |
65dd9e38 | 9426 | ($sc-dispatch |
fb6e61ca | 9427 | #{tmp\ 2962}# |
c89222f8 | 9428 | '#(vector (any . each-any)))))) |
65dd9e38 | 9429 | ($sc-dispatch |
fb6e61ca | 9430 | #{tmp\ 2962}# |
65dd9e38 AW |
9431 | '(any . any))))) |
9432 | ($sc-dispatch | |
fb6e61ca | 9433 | #{tmp\ 2962}# |
c89222f8 | 9434 | '(any any . any))))) |
fb6e61ca AW |
9435 | ($sc-dispatch #{tmp\ 2962}# (quote (any any))))) |
9436 | #{e\ 2938}#))))) | |
9437 | (lambda (#{e\ 3051}# | |
9438 | #{r\ 3052}# | |
9439 | #{w\ 3053}# | |
9440 | #{s\ 3054}# | |
9441 | #{mod\ 3055}#) | |
9442 | (let ((#{e\ 3062}# | |
9443 | (#{source-wrap\ 453}# | |
9444 | #{e\ 3051}# | |
9445 | #{w\ 3053}# | |
9446 | #{s\ 3054}# | |
9447 | #{mod\ 3055}#))) | |
9448 | ((lambda (#{tmp\ 3063}#) | |
9449 | ((lambda (#{tmp\ 3064}#) | |
9450 | (if #{tmp\ 3064}# | |
9451 | (apply (lambda (#{_\ 3067}# #{x\ 3068}#) | |
c89222f8 AW |
9452 | (call-with-values |
9453 | (lambda () | |
fb6e61ca AW |
9454 | (#{gen-syntax\ 2829}# |
9455 | #{e\ 3062}# | |
9456 | #{x\ 3068}# | |
9457 | #{r\ 3052}# | |
c89222f8 | 9458 | '() |
fb6e61ca AW |
9459 | #{ellipsis?\ 483}# |
9460 | #{mod\ 3055}#)) | |
9461 | (lambda (#{e\ 3069}# #{maps\ 3070}#) | |
9462 | (#{regen\ 2843}# #{e\ 3069}#)))) | |
9463 | #{tmp\ 3064}#) | |
9464 | ((lambda (#{_\ 3074}#) | |
c89222f8 AW |
9465 | (syntax-violation |
9466 | 'syntax | |
9467 | "bad `syntax' form" | |
fb6e61ca AW |
9468 | #{e\ 3062}#)) |
9469 | #{tmp\ 3063}#))) | |
9470 | ($sc-dispatch #{tmp\ 3063}# (quote (any any))))) | |
9471 | #{e\ 3062}#))))) | |
9472 | (#{global-extend\ 378}# | |
c89222f8 AW |
9473 | 'core |
9474 | 'lambda | |
fb6e61ca AW |
9475 | (lambda (#{e\ 3075}# |
9476 | #{r\ 3076}# | |
9477 | #{w\ 3077}# | |
9478 | #{s\ 3078}# | |
9479 | #{mod\ 3079}#) | |
9480 | ((lambda (#{tmp\ 3085}#) | |
9481 | ((lambda (#{tmp\ 3086}#) | |
9482 | (if #{tmp\ 3086}# | |
9483 | (apply (lambda (#{_\ 3091}# | |
9484 | #{args\ 3092}# | |
9485 | #{e1\ 3093}# | |
9486 | #{e2\ 3094}#) | |
c89222f8 AW |
9487 | (call-with-values |
9488 | (lambda () | |
fb6e61ca AW |
9489 | (#{lambda-formals\ 485}# #{args\ 3092}#)) |
9490 | (lambda (#{req\ 3095}# | |
9491 | #{opt\ 3096}# | |
9492 | #{rest\ 3097}# | |
9493 | #{kw\ 3098}#) | |
9494 | (letrec ((#{lp\ 3106}# | |
9495 | (lambda (#{body\ 3107}# | |
9496 | #{meta\ 3108}#) | |
9497 | ((lambda (#{tmp\ 3110}#) | |
9498 | ((lambda (#{tmp\ 3111}#) | |
9499 | (if (if #{tmp\ 3111}# | |
9500 | (apply (lambda (#{docstring\ 3115}# | |
9501 | #{e1\ 3116}# | |
9502 | #{e2\ 3117}#) | |
3785c5b2 AW |
9503 | (string? |
9504 | (syntax->datum | |
fb6e61ca AW |
9505 | #{docstring\ 3115}#))) |
9506 | #{tmp\ 3111}#) | |
3785c5b2 | 9507 | #f) |
fb6e61ca AW |
9508 | (apply (lambda (#{docstring\ 3121}# |
9509 | #{e1\ 3122}# | |
9510 | #{e2\ 3123}#) | |
9511 | (#{lp\ 3106}# | |
9512 | (cons #{e1\ 3122}# | |
9513 | #{e2\ 3123}#) | |
3785c5b2 | 9514 | (append |
fb6e61ca | 9515 | #{meta\ 3108}# |
3785c5b2 AW |
9516 | (list (cons 'documentation |
9517 | (syntax->datum | |
fb6e61ca AW |
9518 | #{docstring\ 3121}#)))))) |
9519 | #{tmp\ 3111}#) | |
9520 | ((lambda (#{tmp\ 3126}#) | |
9521 | (if #{tmp\ 3126}# | |
9522 | (apply (lambda (#{k\ 3131}# | |
9523 | #{v\ 3132}# | |
9524 | #{e1\ 3133}# | |
9525 | #{e2\ 3134}#) | |
9526 | (#{lp\ 3106}# | |
9527 | (cons #{e1\ 3133}# | |
9528 | #{e2\ 3134}#) | |
1f51e275 | 9529 | (append |
fb6e61ca | 9530 | #{meta\ 3108}# |
1f51e275 AW |
9531 | (syntax->datum |
9532 | (map cons | |
fb6e61ca AW |
9533 | #{k\ 3131}# |
9534 | #{v\ 3132}#))))) | |
9535 | #{tmp\ 3126}#) | |
9536 | ((lambda (#{_\ 3139}#) | |
9537 | (#{chi-simple-lambda\ 487}# | |
9538 | #{e\ 3075}# | |
9539 | #{r\ 3076}# | |
9540 | #{w\ 3077}# | |
9541 | #{s\ 3078}# | |
9542 | #{mod\ 3079}# | |
9543 | #{req\ 3095}# | |
9544 | #{rest\ 3097}# | |
9545 | #{meta\ 3108}# | |
9546 | #{body\ 3107}#)) | |
9547 | #{tmp\ 3110}#))) | |
1f51e275 | 9548 | ($sc-dispatch |
fb6e61ca | 9549 | #{tmp\ 3110}# |
1f51e275 AW |
9550 | '(#(vector |
9551 | #(each (any . any))) | |
9552 | any | |
9553 | . | |
9554 | each-any))))) | |
3785c5b2 | 9555 | ($sc-dispatch |
fb6e61ca | 9556 | #{tmp\ 3110}# |
3785c5b2 | 9557 | '(any any . each-any)))) |
fb6e61ca AW |
9558 | #{body\ 3107}#)))) |
9559 | (#{lp\ 3106}# | |
9560 | (cons #{e1\ 3093}# #{e2\ 3094}#) | |
3785c5b2 | 9561 | '()))))) |
fb6e61ca AW |
9562 | #{tmp\ 3086}#) |
9563 | ((lambda (#{_\ 3141}#) | |
3785c5b2 AW |
9564 | (syntax-violation |
9565 | 'lambda | |
9566 | "bad lambda" | |
fb6e61ca AW |
9567 | #{e\ 3075}#)) |
9568 | #{tmp\ 3085}#))) | |
c89222f8 | 9569 | ($sc-dispatch |
fb6e61ca | 9570 | #{tmp\ 3085}# |
3785c5b2 | 9571 | '(any any any . each-any)))) |
fb6e61ca AW |
9572 | #{e\ 3075}#))) |
9573 | (#{global-extend\ 378}# | |
c89222f8 AW |
9574 | 'core |
9575 | 'lambda* | |
fb6e61ca AW |
9576 | (lambda (#{e\ 3142}# |
9577 | #{r\ 3143}# | |
9578 | #{w\ 3144}# | |
9579 | #{s\ 3145}# | |
9580 | #{mod\ 3146}#) | |
9581 | ((lambda (#{tmp\ 3152}#) | |
9582 | ((lambda (#{tmp\ 3153}#) | |
9583 | (if #{tmp\ 3153}# | |
9584 | (apply (lambda (#{_\ 3158}# | |
9585 | #{args\ 3159}# | |
9586 | #{e1\ 3160}# | |
9587 | #{e2\ 3161}#) | |
c89222f8 AW |
9588 | (call-with-values |
9589 | (lambda () | |
fb6e61ca AW |
9590 | (#{chi-lambda-case\ 491}# |
9591 | #{e\ 3142}# | |
9592 | #{r\ 3143}# | |
9593 | #{w\ 3144}# | |
9594 | #{s\ 3145}# | |
9595 | #{mod\ 3146}# | |
9596 | #{lambda*-formals\ 489}# | |
9597 | (list (cons #{args\ 3159}# | |
9598 | (cons #{e1\ 3160}# | |
9599 | #{e2\ 3161}#))))) | |
9600 | (lambda (#{meta\ 3163}# #{lcase\ 3164}#) | |
9601 | (#{build-case-lambda\ 326}# | |
9602 | #{s\ 3145}# | |
9603 | #{meta\ 3163}# | |
9604 | #{lcase\ 3164}#)))) | |
9605 | #{tmp\ 3153}#) | |
9606 | ((lambda (#{_\ 3168}#) | |
c89222f8 AW |
9607 | (syntax-violation |
9608 | 'lambda | |
9609 | "bad lambda*" | |
fb6e61ca AW |
9610 | #{e\ 3142}#)) |
9611 | #{tmp\ 3152}#))) | |
c89222f8 | 9612 | ($sc-dispatch |
fb6e61ca | 9613 | #{tmp\ 3152}# |
c89222f8 | 9614 | '(any any any . each-any)))) |
fb6e61ca AW |
9615 | #{e\ 3142}#))) |
9616 | (#{global-extend\ 378}# | |
647117cd AW |
9617 | 'core |
9618 | 'case-lambda | |
fb6e61ca AW |
9619 | (lambda (#{e\ 3169}# |
9620 | #{r\ 3170}# | |
9621 | #{w\ 3171}# | |
9622 | #{s\ 3172}# | |
9623 | #{mod\ 3173}#) | |
9624 | ((lambda (#{tmp\ 3179}#) | |
9625 | ((lambda (#{tmp\ 3180}#) | |
9626 | (if #{tmp\ 3180}# | |
9627 | (apply (lambda (#{_\ 3188}# | |
9628 | #{args\ 3189}# | |
9629 | #{e1\ 3190}# | |
9630 | #{e2\ 3191}# | |
9631 | #{args*\ 3192}# | |
9632 | #{e1*\ 3193}# | |
9633 | #{e2*\ 3194}#) | |
647117cd AW |
9634 | (call-with-values |
9635 | (lambda () | |
fb6e61ca AW |
9636 | (#{chi-lambda-case\ 491}# |
9637 | #{e\ 3169}# | |
9638 | #{r\ 3170}# | |
9639 | #{w\ 3171}# | |
9640 | #{s\ 3172}# | |
9641 | #{mod\ 3173}# | |
9642 | #{lambda-formals\ 485}# | |
9643 | (cons (cons #{args\ 3189}# | |
9644 | (cons #{e1\ 3190}# #{e2\ 3191}#)) | |
9645 | (map (lambda (#{tmp\ 3198}# | |
9646 | #{tmp\ 3197}# | |
9647 | #{tmp\ 3196}#) | |
9648 | (cons #{tmp\ 3196}# | |
9649 | (cons #{tmp\ 3197}# | |
9650 | #{tmp\ 3198}#))) | |
9651 | #{e2*\ 3194}# | |
9652 | #{e1*\ 3193}# | |
9653 | #{args*\ 3192}#)))) | |
9654 | (lambda (#{meta\ 3200}# #{lcase\ 3201}#) | |
9655 | (#{build-case-lambda\ 326}# | |
9656 | #{s\ 3172}# | |
9657 | #{meta\ 3200}# | |
9658 | #{lcase\ 3201}#)))) | |
9659 | #{tmp\ 3180}#) | |
9660 | ((lambda (#{_\ 3205}#) | |
647117cd AW |
9661 | (syntax-violation |
9662 | 'case-lambda | |
9663 | "bad case-lambda" | |
fb6e61ca AW |
9664 | #{e\ 3169}#)) |
9665 | #{tmp\ 3179}#))) | |
647117cd | 9666 | ($sc-dispatch |
fb6e61ca | 9667 | #{tmp\ 3179}# |
647117cd AW |
9668 | '(any (any any . each-any) |
9669 | . | |
9670 | #(each (any any . each-any)))))) | |
fb6e61ca AW |
9671 | #{e\ 3169}#))) |
9672 | (#{global-extend\ 378}# | |
647117cd AW |
9673 | 'core |
9674 | 'case-lambda* | |
fb6e61ca AW |
9675 | (lambda (#{e\ 3206}# |
9676 | #{r\ 3207}# | |
9677 | #{w\ 3208}# | |
9678 | #{s\ 3209}# | |
9679 | #{mod\ 3210}#) | |
9680 | ((lambda (#{tmp\ 3216}#) | |
9681 | ((lambda (#{tmp\ 3217}#) | |
9682 | (if #{tmp\ 3217}# | |
9683 | (apply (lambda (#{_\ 3225}# | |
9684 | #{args\ 3226}# | |
9685 | #{e1\ 3227}# | |
9686 | #{e2\ 3228}# | |
9687 | #{args*\ 3229}# | |
9688 | #{e1*\ 3230}# | |
9689 | #{e2*\ 3231}#) | |
647117cd AW |
9690 | (call-with-values |
9691 | (lambda () | |
fb6e61ca AW |
9692 | (#{chi-lambda-case\ 491}# |
9693 | #{e\ 3206}# | |
9694 | #{r\ 3207}# | |
9695 | #{w\ 3208}# | |
9696 | #{s\ 3209}# | |
9697 | #{mod\ 3210}# | |
9698 | #{lambda*-formals\ 489}# | |
9699 | (cons (cons #{args\ 3226}# | |
9700 | (cons #{e1\ 3227}# #{e2\ 3228}#)) | |
9701 | (map (lambda (#{tmp\ 3235}# | |
9702 | #{tmp\ 3234}# | |
9703 | #{tmp\ 3233}#) | |
9704 | (cons #{tmp\ 3233}# | |
9705 | (cons #{tmp\ 3234}# | |
9706 | #{tmp\ 3235}#))) | |
9707 | #{e2*\ 3231}# | |
9708 | #{e1*\ 3230}# | |
9709 | #{args*\ 3229}#)))) | |
9710 | (lambda (#{meta\ 3237}# #{lcase\ 3238}#) | |
9711 | (#{build-case-lambda\ 326}# | |
9712 | #{s\ 3209}# | |
9713 | #{meta\ 3237}# | |
9714 | #{lcase\ 3238}#)))) | |
9715 | #{tmp\ 3217}#) | |
9716 | ((lambda (#{_\ 3242}#) | |
647117cd AW |
9717 | (syntax-violation |
9718 | 'case-lambda | |
9719 | "bad case-lambda*" | |
fb6e61ca AW |
9720 | #{e\ 3206}#)) |
9721 | #{tmp\ 3216}#))) | |
647117cd | 9722 | ($sc-dispatch |
fb6e61ca | 9723 | #{tmp\ 3216}# |
647117cd AW |
9724 | '(any (any any . each-any) |
9725 | . | |
9726 | #(each (any any . each-any)))))) | |
fb6e61ca AW |
9727 | #{e\ 3206}#))) |
9728 | (#{global-extend\ 378}# | |
65dd9e38 AW |
9729 | 'core |
9730 | 'let | |
fb6e61ca AW |
9731 | (letrec ((#{chi-let\ 3244}# |
9732 | (lambda (#{e\ 3245}# | |
9733 | #{r\ 3246}# | |
9734 | #{w\ 3247}# | |
9735 | #{s\ 3248}# | |
9736 | #{mod\ 3249}# | |
9737 | #{constructor\ 3250}# | |
9738 | #{ids\ 3251}# | |
9739 | #{vals\ 3252}# | |
9740 | #{exps\ 3253}#) | |
9741 | (if (not (#{valid-bound-ids?\ 445}# #{ids\ 3251}#)) | |
65dd9e38 AW |
9742 | (syntax-violation |
9743 | 'let | |
9744 | "duplicate bound variable" | |
fb6e61ca AW |
9745 | #{e\ 3245}#) |
9746 | (let ((#{labels\ 3265}# | |
9747 | (#{gen-labels\ 400}# #{ids\ 3251}#)) | |
9748 | (#{new-vars\ 3266}# | |
9749 | (map #{gen-var\ 495}# #{ids\ 3251}#))) | |
9750 | (let ((#{nw\ 3269}# | |
9751 | (#{make-binding-wrap\ 429}# | |
9752 | #{ids\ 3251}# | |
9753 | #{labels\ 3265}# | |
9754 | #{w\ 3247}#)) | |
9755 | (#{nr\ 3270}# | |
9756 | (#{extend-var-env\ 372}# | |
9757 | #{labels\ 3265}# | |
9758 | #{new-vars\ 3266}# | |
9759 | #{r\ 3246}#))) | |
9760 | (#{constructor\ 3250}# | |
9761 | #{s\ 3248}# | |
9762 | (map syntax->datum #{ids\ 3251}#) | |
9763 | #{new-vars\ 3266}# | |
9764 | (map (lambda (#{x\ 3271}#) | |
9765 | (#{chi\ 467}# | |
9766 | #{x\ 3271}# | |
9767 | #{r\ 3246}# | |
9768 | #{w\ 3247}# | |
9769 | #{mod\ 3249}#)) | |
9770 | #{vals\ 3252}#) | |
9771 | (#{chi-body\ 475}# | |
9772 | #{exps\ 3253}# | |
9773 | (#{source-wrap\ 453}# | |
9774 | #{e\ 3245}# | |
9775 | #{nw\ 3269}# | |
9776 | #{s\ 3248}# | |
9777 | #{mod\ 3249}#) | |
9778 | #{nr\ 3270}# | |
9779 | #{nw\ 3269}# | |
9780 | #{mod\ 3249}#)))))))) | |
9781 | (lambda (#{e\ 3273}# | |
9782 | #{r\ 3274}# | |
9783 | #{w\ 3275}# | |
9784 | #{s\ 3276}# | |
9785 | #{mod\ 3277}#) | |
9786 | ((lambda (#{tmp\ 3283}#) | |
9787 | ((lambda (#{tmp\ 3284}#) | |
9788 | (if (if #{tmp\ 3284}# | |
9789 | (apply (lambda (#{_\ 3290}# | |
9790 | #{id\ 3291}# | |
9791 | #{val\ 3292}# | |
9792 | #{e1\ 3293}# | |
9793 | #{e2\ 3294}#) | |
9794 | (and-map #{id?\ 382}# #{id\ 3291}#)) | |
9795 | #{tmp\ 3284}#) | |
65dd9e38 | 9796 | #f) |
fb6e61ca AW |
9797 | (apply (lambda (#{_\ 3301}# |
9798 | #{id\ 3302}# | |
9799 | #{val\ 3303}# | |
9800 | #{e1\ 3304}# | |
9801 | #{e2\ 3305}#) | |
9802 | (#{chi-let\ 3244}# | |
9803 | #{e\ 3273}# | |
9804 | #{r\ 3274}# | |
9805 | #{w\ 3275}# | |
9806 | #{s\ 3276}# | |
9807 | #{mod\ 3277}# | |
9808 | #{build-let\ 336}# | |
9809 | #{id\ 3302}# | |
9810 | #{val\ 3303}# | |
9811 | (cons #{e1\ 3304}# #{e2\ 3305}#))) | |
9812 | #{tmp\ 3284}#) | |
9813 | ((lambda (#{tmp\ 3309}#) | |
9814 | (if (if #{tmp\ 3309}# | |
9815 | (apply (lambda (#{_\ 3316}# | |
9816 | #{f\ 3317}# | |
9817 | #{id\ 3318}# | |
9818 | #{val\ 3319}# | |
9819 | #{e1\ 3320}# | |
9820 | #{e2\ 3321}#) | |
9821 | (if (#{id?\ 382}# #{f\ 3317}#) | |
9822 | (and-map #{id?\ 382}# #{id\ 3318}#) | |
65dd9e38 | 9823 | #f)) |
fb6e61ca | 9824 | #{tmp\ 3309}#) |
65dd9e38 | 9825 | #f) |
fb6e61ca AW |
9826 | (apply (lambda (#{_\ 3331}# |
9827 | #{f\ 3332}# | |
9828 | #{id\ 3333}# | |
9829 | #{val\ 3334}# | |
9830 | #{e1\ 3335}# | |
9831 | #{e2\ 3336}#) | |
9832 | (#{chi-let\ 3244}# | |
9833 | #{e\ 3273}# | |
9834 | #{r\ 3274}# | |
9835 | #{w\ 3275}# | |
9836 | #{s\ 3276}# | |
9837 | #{mod\ 3277}# | |
9838 | #{build-named-let\ 338}# | |
9839 | (cons #{f\ 3332}# #{id\ 3333}#) | |
9840 | #{val\ 3334}# | |
9841 | (cons #{e1\ 3335}# #{e2\ 3336}#))) | |
9842 | #{tmp\ 3309}#) | |
9843 | ((lambda (#{_\ 3341}#) | |
65dd9e38 AW |
9844 | (syntax-violation |
9845 | 'let | |
9846 | "bad let" | |
fb6e61ca AW |
9847 | (#{source-wrap\ 453}# |
9848 | #{e\ 3273}# | |
9849 | #{w\ 3275}# | |
9850 | #{s\ 3276}# | |
9851 | #{mod\ 3277}#))) | |
9852 | #{tmp\ 3283}#))) | |
65dd9e38 | 9853 | ($sc-dispatch |
fb6e61ca | 9854 | #{tmp\ 3283}# |
65dd9e38 AW |
9855 | '(any any #(each (any any)) any . each-any))))) |
9856 | ($sc-dispatch | |
fb6e61ca | 9857 | #{tmp\ 3283}# |
65dd9e38 | 9858 | '(any #(each (any any)) any . each-any)))) |
fb6e61ca AW |
9859 | #{e\ 3273}#)))) |
9860 | (#{global-extend\ 378}# | |
65dd9e38 AW |
9861 | 'core |
9862 | 'letrec | |
fb6e61ca AW |
9863 | (lambda (#{e\ 3342}# |
9864 | #{r\ 3343}# | |
9865 | #{w\ 3344}# | |
9866 | #{s\ 3345}# | |
9867 | #{mod\ 3346}#) | |
9868 | ((lambda (#{tmp\ 3352}#) | |
9869 | ((lambda (#{tmp\ 3353}#) | |
9870 | (if (if #{tmp\ 3353}# | |
9871 | (apply (lambda (#{_\ 3359}# | |
9872 | #{id\ 3360}# | |
9873 | #{val\ 3361}# | |
9874 | #{e1\ 3362}# | |
9875 | #{e2\ 3363}#) | |
9876 | (and-map #{id?\ 382}# #{id\ 3360}#)) | |
9877 | #{tmp\ 3353}#) | |
65dd9e38 | 9878 | #f) |
fb6e61ca AW |
9879 | (apply (lambda (#{_\ 3370}# |
9880 | #{id\ 3371}# | |
9881 | #{val\ 3372}# | |
9882 | #{e1\ 3373}# | |
9883 | #{e2\ 3374}#) | |
9884 | (let ((#{ids\ 3376}# #{id\ 3371}#)) | |
9885 | (if (not (#{valid-bound-ids?\ 445}# | |
9886 | #{ids\ 3376}#)) | |
65dd9e38 AW |
9887 | (syntax-violation |
9888 | 'letrec | |
9889 | "duplicate bound variable" | |
fb6e61ca AW |
9890 | #{e\ 3342}#) |
9891 | (let ((#{labels\ 3380}# | |
9892 | (#{gen-labels\ 400}# #{ids\ 3376}#)) | |
9893 | (#{new-vars\ 3381}# | |
9894 | (map #{gen-var\ 495}# #{ids\ 3376}#))) | |
9895 | (let ((#{w\ 3384}# | |
9896 | (#{make-binding-wrap\ 429}# | |
9897 | #{ids\ 3376}# | |
9898 | #{labels\ 3380}# | |
9899 | #{w\ 3344}#)) | |
9900 | (#{r\ 3385}# | |
9901 | (#{extend-var-env\ 372}# | |
9902 | #{labels\ 3380}# | |
9903 | #{new-vars\ 3381}# | |
9904 | #{r\ 3343}#))) | |
9905 | (#{build-letrec\ 340}# | |
9906 | #{s\ 3345}# | |
9907 | (map syntax->datum #{ids\ 3376}#) | |
9908 | #{new-vars\ 3381}# | |
9909 | (map (lambda (#{x\ 3386}#) | |
9910 | (#{chi\ 467}# | |
9911 | #{x\ 3386}# | |
9912 | #{r\ 3385}# | |
9913 | #{w\ 3384}# | |
9914 | #{mod\ 3346}#)) | |
9915 | #{val\ 3372}#) | |
9916 | (#{chi-body\ 475}# | |
9917 | (cons #{e1\ 3373}# #{e2\ 3374}#) | |
9918 | (#{source-wrap\ 453}# | |
9919 | #{e\ 3342}# | |
9920 | #{w\ 3384}# | |
9921 | #{s\ 3345}# | |
9922 | #{mod\ 3346}#) | |
9923 | #{r\ 3385}# | |
9924 | #{w\ 3384}# | |
9925 | #{mod\ 3346}#))))))) | |
9926 | #{tmp\ 3353}#) | |
9927 | ((lambda (#{_\ 3391}#) | |
65dd9e38 AW |
9928 | (syntax-violation |
9929 | 'letrec | |
9930 | "bad letrec" | |
fb6e61ca AW |
9931 | (#{source-wrap\ 453}# |
9932 | #{e\ 3342}# | |
9933 | #{w\ 3344}# | |
9934 | #{s\ 3345}# | |
9935 | #{mod\ 3346}#))) | |
9936 | #{tmp\ 3352}#))) | |
65dd9e38 | 9937 | ($sc-dispatch |
fb6e61ca | 9938 | #{tmp\ 3352}# |
65dd9e38 | 9939 | '(any #(each (any any)) any . each-any)))) |
fb6e61ca AW |
9940 | #{e\ 3342}#))) |
9941 | (#{global-extend\ 378}# | |
65dd9e38 AW |
9942 | 'core |
9943 | 'set! | |
fb6e61ca AW |
9944 | (lambda (#{e\ 3392}# |
9945 | #{r\ 3393}# | |
9946 | #{w\ 3394}# | |
9947 | #{s\ 3395}# | |
9948 | #{mod\ 3396}#) | |
9949 | ((lambda (#{tmp\ 3402}#) | |
9950 | ((lambda (#{tmp\ 3403}#) | |
9951 | (if (if #{tmp\ 3403}# | |
9952 | (apply (lambda (#{_\ 3407}# #{id\ 3408}# #{val\ 3409}#) | |
9953 | (#{id?\ 382}# #{id\ 3408}#)) | |
9954 | #{tmp\ 3403}#) | |
65dd9e38 | 9955 | #f) |
fb6e61ca AW |
9956 | (apply (lambda (#{_\ 3413}# #{id\ 3414}# #{val\ 3415}#) |
9957 | (let ((#{val\ 3418}# | |
9958 | (#{chi\ 467}# | |
9959 | #{val\ 3415}# | |
9960 | #{r\ 3393}# | |
9961 | #{w\ 3394}# | |
9962 | #{mod\ 3396}#)) | |
9963 | (#{n\ 3419}# | |
9964 | (#{id-var-name\ 439}# | |
9965 | #{id\ 3414}# | |
9966 | #{w\ 3394}#))) | |
9967 | (let ((#{b\ 3421}# | |
9968 | (#{lookup\ 376}# | |
9969 | #{n\ 3419}# | |
9970 | #{r\ 3393}# | |
9971 | #{mod\ 3396}#))) | |
9972 | (let ((#{atom-key\ 3424}# | |
9973 | (#{binding-type\ 365}# #{b\ 3421}#))) | |
9974 | (if (memv #{atom-key\ 3424}# | |
b9434165 | 9975 | '(lexical)) |
fb6e61ca AW |
9976 | (#{build-lexical-assignment\ 312}# |
9977 | #{s\ 3395}# | |
9978 | (syntax->datum #{id\ 3414}#) | |
9979 | (#{binding-value\ 367}# #{b\ 3421}#) | |
9980 | #{val\ 3418}#) | |
9981 | (if (memv #{atom-key\ 3424}# | |
b9434165 | 9982 | '(global)) |
fb6e61ca AW |
9983 | (#{build-global-assignment\ 318}# |
9984 | #{s\ 3395}# | |
9985 | #{n\ 3419}# | |
9986 | #{val\ 3418}# | |
9987 | #{mod\ 3396}#) | |
9988 | (if (memv #{atom-key\ 3424}# | |
65dd9e38 AW |
9989 | '(displaced-lexical)) |
9990 | (syntax-violation | |
9991 | 'set! | |
9992 | "identifier out of context" | |
fb6e61ca AW |
9993 | (#{wrap\ 451}# |
9994 | #{id\ 3414}# | |
9995 | #{w\ 3394}# | |
9996 | #{mod\ 3396}#)) | |
65dd9e38 AW |
9997 | (syntax-violation |
9998 | 'set! | |
9999 | "bad set!" | |
fb6e61ca AW |
10000 | (#{source-wrap\ 453}# |
10001 | #{e\ 3392}# | |
10002 | #{w\ 3394}# | |
10003 | #{s\ 3395}# | |
10004 | #{mod\ 3396}#))))))))) | |
10005 | #{tmp\ 3403}#) | |
10006 | ((lambda (#{tmp\ 3429}#) | |
10007 | (if #{tmp\ 3429}# | |
10008 | (apply (lambda (#{_\ 3434}# | |
10009 | #{head\ 3435}# | |
10010 | #{tail\ 3436}# | |
10011 | #{val\ 3437}#) | |
65dd9e38 AW |
10012 | (call-with-values |
10013 | (lambda () | |
fb6e61ca AW |
10014 | (#{syntax-type\ 463}# |
10015 | #{head\ 3435}# | |
10016 | #{r\ 3393}# | |
65dd9e38 AW |
10017 | '(()) |
10018 | #f | |
10019 | #f | |
fb6e61ca | 10020 | #{mod\ 3396}# |
65dd9e38 | 10021 | #t)) |
fb6e61ca AW |
10022 | (lambda (#{type\ 3440}# |
10023 | #{value\ 3441}# | |
10024 | #{ee\ 3442}# | |
10025 | #{ww\ 3443}# | |
10026 | #{ss\ 3444}# | |
10027 | #{modmod\ 3445}#) | |
10028 | (if (memv #{type\ 3440}# | |
b9434165 | 10029 | '(module-ref)) |
fb6e61ca AW |
10030 | (let ((#{val\ 3454}# |
10031 | (#{chi\ 467}# | |
10032 | #{val\ 3437}# | |
10033 | #{r\ 3393}# | |
10034 | #{w\ 3394}# | |
10035 | #{mod\ 3396}#))) | |
65dd9e38 AW |
10036 | (call-with-values |
10037 | (lambda () | |
fb6e61ca AW |
10038 | (#{value\ 3441}# |
10039 | (cons #{head\ 3435}# | |
10040 | #{tail\ 3436}#) | |
10041 | #{r\ 3393}# | |
10042 | #{w\ 3394}#)) | |
10043 | (lambda (#{e\ 3456}# | |
10044 | #{r\ 3457}# | |
10045 | #{w\ 3458}# | |
10046 | #{s*\ 3459}# | |
10047 | #{mod\ 3460}#) | |
10048 | ((lambda (#{tmp\ 3466}#) | |
10049 | ((lambda (#{tmp\ 3467}#) | |
10050 | (if (if #{tmp\ 3467}# | |
10051 | (apply (lambda (#{e\ 3469}#) | |
10052 | (#{id?\ 382}# | |
10053 | #{e\ 3469}#)) | |
10054 | #{tmp\ 3467}#) | |
9365d8ad | 10055 | #f) |
fb6e61ca AW |
10056 | (apply (lambda (#{e\ 3471}#) |
10057 | (#{build-global-assignment\ 318}# | |
10058 | #{s\ 3395}# | |
9365d8ad | 10059 | (syntax->datum |
fb6e61ca AW |
10060 | #{e\ 3471}#) |
10061 | #{val\ 3454}# | |
10062 | #{mod\ 3460}#)) | |
10063 | #{tmp\ 3467}#) | |
9365d8ad AW |
10064 | (syntax-violation |
10065 | #f | |
10066 | "source expression failed to match any pattern" | |
fb6e61ca AW |
10067 | #{tmp\ 3466}#))) |
10068 | (list #{tmp\ 3466}#))) | |
10069 | #{e\ 3456}#)))) | |
10070 | (#{build-application\ 304}# | |
10071 | #{s\ 3395}# | |
10072 | (#{chi\ 467}# | |
65dd9e38 AW |
10073 | (list '#(syntax-object |
10074 | setter | |
10075 | ((top) | |
10076 | #(ribcage () () ()) | |
10077 | #(ribcage () () ()) | |
10078 | #(ribcage | |
10079 | #(type | |
10080 | value | |
10081 | ee | |
10082 | ww | |
10083 | ss | |
10084 | modmod) | |
10085 | #((top) | |
10086 | (top) | |
10087 | (top) | |
10088 | (top) | |
10089 | (top) | |
10090 | (top)) | |
fb6e61ca AW |
10091 | #("i3446" |
10092 | "i3447" | |
10093 | "i3448" | |
10094 | "i3449" | |
10095 | "i3450" | |
10096 | "i3451")) | |
65dd9e38 AW |
10097 | #(ribcage |
10098 | #(_ head tail val) | |
10099 | #((top) | |
10100 | (top) | |
10101 | (top) | |
10102 | (top)) | |
fb6e61ca AW |
10103 | #("i3430" |
10104 | "i3431" | |
10105 | "i3432" | |
10106 | "i3433")) | |
65dd9e38 AW |
10107 | #(ribcage () () ()) |
10108 | #(ribcage | |
10109 | #(e r w s mod) | |
10110 | #((top) | |
10111 | (top) | |
10112 | (top) | |
10113 | (top) | |
10114 | (top)) | |
fb6e61ca AW |
10115 | #("i3397" |
10116 | "i3398" | |
10117 | "i3399" | |
10118 | "i3400" | |
10119 | "i3401")) | |
65dd9e38 AW |
10120 | #(ribcage |
10121 | (lambda-var-list | |
10122 | gen-var | |
10123 | strip | |
c89222f8 AW |
10124 | chi-lambda-case |
10125 | lambda*-formals | |
10126 | chi-simple-lambda | |
10127 | lambda-formals | |
65dd9e38 AW |
10128 | ellipsis? |
10129 | chi-void | |
10130 | eval-local-transformer | |
10131 | chi-local-syntax | |
65dd9e38 AW |
10132 | chi-body |
10133 | chi-macro | |
10134 | chi-application | |
10135 | chi-expr | |
10136 | chi | |
10137 | chi-top | |
10138 | syntax-type | |
10139 | chi-when-list | |
10140 | chi-install-global | |
10141 | chi-top-sequence | |
10142 | chi-sequence | |
10143 | source-wrap | |
10144 | wrap | |
10145 | bound-id-member? | |
10146 | distinct-bound-ids? | |
10147 | valid-bound-ids? | |
10148 | bound-id=? | |
10149 | free-id=? | |
10150 | id-var-name | |
10151 | same-marks? | |
10152 | join-marks | |
10153 | join-wraps | |
10154 | smart-append | |
10155 | make-binding-wrap | |
10156 | extend-ribcage! | |
10157 | make-empty-ribcage | |
10158 | new-mark | |
10159 | anti-mark | |
10160 | the-anti-mark | |
10161 | top-marked? | |
10162 | top-wrap | |
10163 | empty-wrap | |
10164 | set-ribcage-labels! | |
10165 | set-ribcage-marks! | |
10166 | set-ribcage-symnames! | |
10167 | ribcage-labels | |
10168 | ribcage-marks | |
10169 | ribcage-symnames | |
10170 | ribcage? | |
10171 | make-ribcage | |
10172 | gen-labels | |
10173 | gen-label | |
10174 | make-rename | |
10175 | rename-marks | |
10176 | rename-new | |
10177 | rename-old | |
10178 | subst-rename? | |
10179 | wrap-subst | |
10180 | wrap-marks | |
10181 | make-wrap | |
10182 | id-sym-name&marks | |
10183 | id-sym-name | |
10184 | id? | |
10185 | nonsymbol-id? | |
10186 | global-extend | |
10187 | lookup | |
10188 | macros-only-env | |
10189 | extend-var-env | |
10190 | extend-env | |
10191 | null-env | |
10192 | binding-value | |
10193 | binding-type | |
10194 | make-binding | |
10195 | arg-check | |
10196 | source-annotation | |
10197 | no-source | |
10198 | set-syntax-object-module! | |
10199 | set-syntax-object-wrap! | |
10200 | set-syntax-object-expression! | |
10201 | syntax-object-module | |
10202 | syntax-object-wrap | |
10203 | syntax-object-expression | |
10204 | syntax-object? | |
10205 | make-syntax-object | |
10206 | build-lexical-var | |
10207 | build-letrec | |
10208 | build-named-let | |
10209 | build-let | |
10210 | build-sequence | |
10211 | build-data | |
10212 | build-primref | |
8a4ca0ea AW |
10213 | build-lambda-case |
10214 | build-case-lambda | |
10215 | build-simple-lambda | |
65dd9e38 AW |
10216 | build-global-definition |
10217 | maybe-name-value! | |
10218 | build-global-assignment | |
10219 | build-global-reference | |
10220 | analyze-variable | |
10221 | build-lexical-assignment | |
10222 | build-lexical-reference | |
6360c1d4 | 10223 | build-dynlet |
65dd9e38 AW |
10224 | build-conditional |
10225 | build-application | |
10226 | build-void | |
fc5b616b | 10227 | decorate-source |
65dd9e38 AW |
10228 | get-global-definition-hook |
10229 | put-global-definition-hook | |
10230 | gensym-hook | |
10231 | local-eval-hook | |
10232 | top-level-eval-hook | |
10233 | fx< | |
10234 | fx= | |
10235 | fx- | |
10236 | fx+ | |
22cf27c8 AW |
10237 | set-lambda-meta! |
10238 | lambda-meta | |
10239 | lambda? | |
3d10018e AW |
10240 | make-dynlet |
10241 | make-letrec | |
10242 | make-let | |
10243 | make-lambda-case | |
10244 | make-lambda | |
10245 | make-sequence | |
10246 | make-application | |
10247 | make-conditional | |
10248 | make-toplevel-define | |
10249 | make-toplevel-set | |
10250 | make-toplevel-ref | |
10251 | make-module-set | |
10252 | make-module-ref | |
10253 | make-lexical-set | |
10254 | make-lexical-ref | |
10255 | make-primitive-ref | |
10256 | make-const | |
131ae7b4 | 10257 | make-void) |
65dd9e38 AW |
10258 | ((top) |
10259 | (top) | |
10260 | (top) | |
10261 | (top) | |
10262 | (top) | |
10263 | (top) | |
10264 | (top) | |
10265 | (top) | |
10266 | (top) | |
10267 | (top) | |
10268 | (top) | |
10269 | (top) | |
10270 | (top) | |
10271 | (top) | |
10272 | (top) | |
10273 | (top) | |
10274 | (top) | |
10275 | (top) | |
10276 | (top) | |
10277 | (top) | |
10278 | (top) | |
10279 | (top) | |
10280 | (top) | |
10281 | (top) | |
10282 | (top) | |
10283 | (top) | |
10284 | (top) | |
10285 | (top) | |
10286 | (top) | |
10287 | (top) | |
10288 | (top) | |
10289 | (top) | |
10290 | (top) | |
10291 | (top) | |
10292 | (top) | |
10293 | (top) | |
10294 | (top) | |
10295 | (top) | |
10296 | (top) | |
10297 | (top) | |
10298 | (top) | |
10299 | (top) | |
10300 | (top) | |
10301 | (top) | |
10302 | (top) | |
10303 | (top) | |
10304 | (top) | |
10305 | (top) | |
10306 | (top) | |
10307 | (top) | |
10308 | (top) | |
10309 | (top) | |
10310 | (top) | |
10311 | (top) | |
10312 | (top) | |
10313 | (top) | |
10314 | (top) | |
10315 | (top) | |
10316 | (top) | |
10317 | (top) | |
10318 | (top) | |
10319 | (top) | |
10320 | (top) | |
10321 | (top) | |
10322 | (top) | |
10323 | (top) | |
10324 | (top) | |
10325 | (top) | |
10326 | (top) | |
10327 | (top) | |
10328 | (top) | |
10329 | (top) | |
10330 | (top) | |
10331 | (top) | |
10332 | (top) | |
10333 | (top) | |
10334 | (top) | |
10335 | (top) | |
10336 | (top) | |
10337 | (top) | |
10338 | (top) | |
10339 | (top) | |
10340 | (top) | |
10341 | (top) | |
10342 | (top) | |
10343 | (top) | |
10344 | (top) | |
10345 | (top) | |
10346 | (top) | |
10347 | (top) | |
10348 | (top) | |
10349 | (top) | |
10350 | (top) | |
10351 | (top) | |
10352 | (top) | |
10353 | (top) | |
10354 | (top) | |
10355 | (top) | |
10356 | (top) | |
10357 | (top) | |
10358 | (top) | |
10359 | (top) | |
10360 | (top) | |
10361 | (top) | |
10362 | (top) | |
10363 | (top) | |
10364 | (top) | |
10365 | (top) | |
10366 | (top) | |
10367 | (top) | |
fc5b616b | 10368 | (top) |
8a4ca0ea | 10369 | (top) |
c89222f8 AW |
10370 | (top) |
10371 | (top) | |
10372 | (top) | |
10373 | (top) | |
3d10018e AW |
10374 | (top) |
10375 | (top) | |
10376 | (top) | |
10377 | (top) | |
10378 | (top) | |
10379 | (top) | |
10380 | (top) | |
10381 | (top) | |
10382 | (top) | |
10383 | (top) | |
10384 | (top) | |
10385 | (top) | |
10386 | (top) | |
10387 | (top) | |
10388 | (top) | |
10389 | (top) | |
10390 | (top) | |
22cf27c8 AW |
10391 | (top) |
10392 | (top) | |
10393 | (top) | |
65dd9e38 | 10394 | (top)) |
fb6e61ca AW |
10395 | ("i496" |
10396 | "i494" | |
10397 | "i492" | |
10398 | "i490" | |
10399 | "i488" | |
10400 | "i486" | |
22cf27c8 AW |
10401 | "i484" |
10402 | "i482" | |
10403 | "i480" | |
10404 | "i478" | |
10405 | "i476" | |
10406 | "i474" | |
10407 | "i472" | |
10408 | "i470" | |
10409 | "i468" | |
10410 | "i466" | |
10411 | "i464" | |
10412 | "i462" | |
10413 | "i460" | |
10414 | "i458" | |
10415 | "i456" | |
10416 | "i454" | |
10417 | "i452" | |
10418 | "i450" | |
10419 | "i448" | |
10420 | "i446" | |
10421 | "i444" | |
10422 | "i442" | |
10423 | "i440" | |
10424 | "i438" | |
10425 | "i436" | |
10426 | "i434" | |
10427 | "i432" | |
10428 | "i430" | |
10429 | "i428" | |
10430 | "i426" | |
fb6e61ca | 10431 | "i425" |
22cf27c8 AW |
10432 | "i424" |
10433 | "i422" | |
fb6e61ca | 10434 | "i421" |
22cf27c8 | 10435 | "i420" |
fb6e61ca | 10436 | "i419" |
22cf27c8 AW |
10437 | "i418" |
10438 | "i416" | |
22cf27c8 AW |
10439 | "i414" |
10440 | "i412" | |
22cf27c8 | 10441 | "i410" |
22cf27c8 AW |
10442 | "i408" |
10443 | "i406" | |
10444 | "i404" | |
10445 | "i402" | |
fb6e61ca AW |
10446 | "i399" |
10447 | "i397" | |
22cf27c8 | 10448 | "i396" |
fb6e61ca | 10449 | "i395" |
22cf27c8 | 10450 | "i394" |
fb6e61ca | 10451 | "i393" |
22cf27c8 | 10452 | "i392" |
fb6e61ca AW |
10453 | "i390" |
10454 | "i388" | |
22cf27c8 | 10455 | "i386" |
22cf27c8 | 10456 | "i384" |
131ae7b4 | 10457 | "i383" |
fb6e61ca AW |
10458 | "i381" |
10459 | "i379" | |
10460 | "i377" | |
10461 | "i375" | |
131ae7b4 AW |
10462 | "i373" |
10463 | "i371" | |
10464 | "i369" | |
fb6e61ca AW |
10465 | "i368" |
10466 | "i366" | |
10467 | "i364" | |
131ae7b4 | 10468 | "i363" |
fb6e61ca AW |
10469 | "i362" |
10470 | "i360" | |
131ae7b4 | 10471 | "i359" |
fb6e61ca AW |
10472 | "i357" |
10473 | "i355" | |
131ae7b4 | 10474 | "i353" |
fb6e61ca | 10475 | "i351" |
131ae7b4 AW |
10476 | "i349" |
10477 | "i347" | |
131ae7b4 | 10478 | "i345" |
131ae7b4 AW |
10479 | "i343" |
10480 | "i341" | |
10481 | "i339" | |
10482 | "i337" | |
10483 | "i335" | |
10484 | "i333" | |
10485 | "i331" | |
10486 | "i329" | |
10487 | "i327" | |
22cf27c8 AW |
10488 | "i325" |
10489 | "i323" | |
131ae7b4 | 10490 | "i321" |
131ae7b4 | 10491 | "i319" |
131ae7b4 AW |
10492 | "i317" |
10493 | "i315" | |
10494 | "i313" | |
10495 | "i311" | |
10496 | "i309" | |
22cf27c8 AW |
10497 | "i307" |
10498 | "i305" | |
10499 | "i303" | |
10500 | "i301" | |
10501 | "i299" | |
10502 | "i297" | |
10503 | "i295" | |
fb6e61ca AW |
10504 | "i294" |
10505 | "i292" | |
10506 | "i290" | |
10507 | "i288" | |
10508 | "i286" | |
131ae7b4 AW |
10509 | "i284" |
10510 | "i282" | |
10511 | "i280" | |
10512 | "i278" | |
10513 | "i276" | |
fb6e61ca AW |
10514 | "i273" |
10515 | "i271" | |
10516 | "i269" | |
10517 | "i267" | |
10518 | "i265" | |
22cf27c8 AW |
10519 | "i263" |
10520 | "i261" | |
10521 | "i259" | |
10522 | "i257" | |
10523 | "i255" | |
10524 | "i253" | |
10525 | "i251" | |
10526 | "i249" | |
10527 | "i247" | |
10528 | "i245" | |
10529 | "i243" | |
10530 | "i241" | |
fb6e61ca | 10531 | "i239")) |
65dd9e38 AW |
10532 | #(ribcage |
10533 | (define-structure | |
22cf27c8 | 10534 | define-expansion-accessors |
3d10018e | 10535 | define-expansion-constructors |
65dd9e38 | 10536 | and-map*) |
22cf27c8 | 10537 | ((top) (top) (top) (top)) |
fb6e61ca AW |
10538 | ("i33" |
10539 | "i32" | |
10540 | "i31" | |
10541 | "i29"))) | |
65dd9e38 | 10542 | (hygiene guile)) |
fb6e61ca AW |
10543 | #{head\ 3435}#) |
10544 | #{r\ 3393}# | |
10545 | #{w\ 3394}# | |
10546 | #{mod\ 3396}#) | |
10547 | (map (lambda (#{e\ 3473}#) | |
10548 | (#{chi\ 467}# | |
10549 | #{e\ 3473}# | |
10550 | #{r\ 3393}# | |
10551 | #{w\ 3394}# | |
10552 | #{mod\ 3396}#)) | |
65dd9e38 | 10553 | (append |
fb6e61ca AW |
10554 | #{tail\ 3436}# |
10555 | (list #{val\ 3437}#)))))))) | |
10556 | #{tmp\ 3429}#) | |
10557 | ((lambda (#{_\ 3477}#) | |
65dd9e38 AW |
10558 | (syntax-violation |
10559 | 'set! | |
10560 | "bad set!" | |
fb6e61ca AW |
10561 | (#{source-wrap\ 453}# |
10562 | #{e\ 3392}# | |
10563 | #{w\ 3394}# | |
10564 | #{s\ 3395}# | |
10565 | #{mod\ 3396}#))) | |
10566 | #{tmp\ 3402}#))) | |
65dd9e38 | 10567 | ($sc-dispatch |
fb6e61ca | 10568 | #{tmp\ 3402}# |
65dd9e38 | 10569 | '(any (any . each-any) any))))) |
b9434165 | 10570 | ($sc-dispatch |
fb6e61ca | 10571 | #{tmp\ 3402}# |
b9434165 | 10572 | '(any any any)))) |
fb6e61ca AW |
10573 | #{e\ 3392}#))) |
10574 | (#{global-extend\ 378}# | |
65dd9e38 AW |
10575 | 'module-ref |
10576 | '@ | |
fb6e61ca AW |
10577 | (lambda (#{e\ 3478}# #{r\ 3479}# #{w\ 3480}#) |
10578 | ((lambda (#{tmp\ 3484}#) | |
10579 | ((lambda (#{tmp\ 3485}#) | |
10580 | (if (if #{tmp\ 3485}# | |
10581 | (apply (lambda (#{_\ 3489}# #{mod\ 3490}# #{id\ 3491}#) | |
10582 | (if (and-map #{id?\ 382}# #{mod\ 3490}#) | |
10583 | (#{id?\ 382}# #{id\ 3491}#) | |
65dd9e38 | 10584 | #f)) |
fb6e61ca | 10585 | #{tmp\ 3485}#) |
65dd9e38 | 10586 | #f) |
fb6e61ca | 10587 | (apply (lambda (#{_\ 3498}# #{mod\ 3499}# #{id\ 3500}#) |
65dd9e38 | 10588 | (values |
fb6e61ca AW |
10589 | (syntax->datum #{id\ 3500}#) |
10590 | #{r\ 3479}# | |
10591 | #{w\ 3480}# | |
9365d8ad | 10592 | #f |
65dd9e38 AW |
10593 | (syntax->datum |
10594 | (cons '#(syntax-object | |
10595 | public | |
10596 | ((top) | |
10597 | #(ribcage | |
10598 | #(_ mod id) | |
10599 | #((top) (top) (top)) | |
fb6e61ca | 10600 | #("i3495" "i3496" "i3497")) |
65dd9e38 | 10601 | #(ribcage () () ()) |
9365d8ad AW |
10602 | #(ribcage |
10603 | #(e r w) | |
10604 | #((top) (top) (top)) | |
fb6e61ca | 10605 | #("i3481" "i3482" "i3483")) |
65dd9e38 AW |
10606 | #(ribcage |
10607 | (lambda-var-list | |
10608 | gen-var | |
10609 | strip | |
c89222f8 AW |
10610 | chi-lambda-case |
10611 | lambda*-formals | |
10612 | chi-simple-lambda | |
10613 | lambda-formals | |
65dd9e38 AW |
10614 | ellipsis? |
10615 | chi-void | |
10616 | eval-local-transformer | |
10617 | chi-local-syntax | |
65dd9e38 AW |
10618 | chi-body |
10619 | chi-macro | |
10620 | chi-application | |
10621 | chi-expr | |
10622 | chi | |
10623 | chi-top | |
10624 | syntax-type | |
10625 | chi-when-list | |
10626 | chi-install-global | |
10627 | chi-top-sequence | |
10628 | chi-sequence | |
10629 | source-wrap | |
10630 | wrap | |
10631 | bound-id-member? | |
10632 | distinct-bound-ids? | |
10633 | valid-bound-ids? | |
10634 | bound-id=? | |
10635 | free-id=? | |
10636 | id-var-name | |
10637 | same-marks? | |
10638 | join-marks | |
10639 | join-wraps | |
10640 | smart-append | |
10641 | make-binding-wrap | |
10642 | extend-ribcage! | |
10643 | make-empty-ribcage | |
10644 | new-mark | |
10645 | anti-mark | |
10646 | the-anti-mark | |
10647 | top-marked? | |
10648 | top-wrap | |
10649 | empty-wrap | |
10650 | set-ribcage-labels! | |
10651 | set-ribcage-marks! | |
10652 | set-ribcage-symnames! | |
10653 | ribcage-labels | |
10654 | ribcage-marks | |
10655 | ribcage-symnames | |
10656 | ribcage? | |
10657 | make-ribcage | |
10658 | gen-labels | |
10659 | gen-label | |
10660 | make-rename | |
10661 | rename-marks | |
10662 | rename-new | |
10663 | rename-old | |
10664 | subst-rename? | |
10665 | wrap-subst | |
10666 | wrap-marks | |
10667 | make-wrap | |
10668 | id-sym-name&marks | |
10669 | id-sym-name | |
10670 | id? | |
10671 | nonsymbol-id? | |
10672 | global-extend | |
10673 | lookup | |
10674 | macros-only-env | |
10675 | extend-var-env | |
10676 | extend-env | |
10677 | null-env | |
10678 | binding-value | |
10679 | binding-type | |
10680 | make-binding | |
10681 | arg-check | |
10682 | source-annotation | |
10683 | no-source | |
10684 | set-syntax-object-module! | |
10685 | set-syntax-object-wrap! | |
10686 | set-syntax-object-expression! | |
10687 | syntax-object-module | |
10688 | syntax-object-wrap | |
10689 | syntax-object-expression | |
10690 | syntax-object? | |
10691 | make-syntax-object | |
10692 | build-lexical-var | |
10693 | build-letrec | |
10694 | build-named-let | |
10695 | build-let | |
10696 | build-sequence | |
10697 | build-data | |
10698 | build-primref | |
8a4ca0ea AW |
10699 | build-lambda-case |
10700 | build-case-lambda | |
10701 | build-simple-lambda | |
65dd9e38 AW |
10702 | build-global-definition |
10703 | maybe-name-value! | |
10704 | build-global-assignment | |
10705 | build-global-reference | |
10706 | analyze-variable | |
10707 | build-lexical-assignment | |
10708 | build-lexical-reference | |
6360c1d4 | 10709 | build-dynlet |
65dd9e38 AW |
10710 | build-conditional |
10711 | build-application | |
10712 | build-void | |
fc5b616b | 10713 | decorate-source |
65dd9e38 AW |
10714 | get-global-definition-hook |
10715 | put-global-definition-hook | |
10716 | gensym-hook | |
10717 | local-eval-hook | |
10718 | top-level-eval-hook | |
10719 | fx< | |
10720 | fx= | |
10721 | fx- | |
10722 | fx+ | |
22cf27c8 AW |
10723 | set-lambda-meta! |
10724 | lambda-meta | |
10725 | lambda? | |
3d10018e AW |
10726 | make-dynlet |
10727 | make-letrec | |
10728 | make-let | |
10729 | make-lambda-case | |
10730 | make-lambda | |
10731 | make-sequence | |
10732 | make-application | |
10733 | make-conditional | |
10734 | make-toplevel-define | |
10735 | make-toplevel-set | |
10736 | make-toplevel-ref | |
10737 | make-module-set | |
10738 | make-module-ref | |
10739 | make-lexical-set | |
10740 | make-lexical-ref | |
10741 | make-primitive-ref | |
10742 | make-const | |
131ae7b4 | 10743 | make-void) |
65dd9e38 AW |
10744 | ((top) |
10745 | (top) | |
10746 | (top) | |
10747 | (top) | |
10748 | (top) | |
10749 | (top) | |
10750 | (top) | |
10751 | (top) | |
10752 | (top) | |
10753 | (top) | |
10754 | (top) | |
10755 | (top) | |
10756 | (top) | |
10757 | (top) | |
10758 | (top) | |
10759 | (top) | |
10760 | (top) | |
10761 | (top) | |
10762 | (top) | |
10763 | (top) | |
10764 | (top) | |
10765 | (top) | |
10766 | (top) | |
10767 | (top) | |
10768 | (top) | |
10769 | (top) | |
10770 | (top) | |
10771 | (top) | |
10772 | (top) | |
10773 | (top) | |
10774 | (top) | |
10775 | (top) | |
10776 | (top) | |
10777 | (top) | |
10778 | (top) | |
10779 | (top) | |
10780 | (top) | |
10781 | (top) | |
10782 | (top) | |
10783 | (top) | |
10784 | (top) | |
10785 | (top) | |
10786 | (top) | |
10787 | (top) | |
10788 | (top) | |
10789 | (top) | |
10790 | (top) | |
10791 | (top) | |
10792 | (top) | |
10793 | (top) | |
10794 | (top) | |
10795 | (top) | |
10796 | (top) | |
10797 | (top) | |
10798 | (top) | |
10799 | (top) | |
10800 | (top) | |
10801 | (top) | |
10802 | (top) | |
10803 | (top) | |
10804 | (top) | |
10805 | (top) | |
10806 | (top) | |
10807 | (top) | |
10808 | (top) | |
10809 | (top) | |
10810 | (top) | |
10811 | (top) | |
10812 | (top) | |
10813 | (top) | |
10814 | (top) | |
10815 | (top) | |
10816 | (top) | |
10817 | (top) | |
10818 | (top) | |
10819 | (top) | |
10820 | (top) | |
10821 | (top) | |
10822 | (top) | |
10823 | (top) | |
10824 | (top) | |
10825 | (top) | |
10826 | (top) | |
10827 | (top) | |
10828 | (top) | |
10829 | (top) | |
10830 | (top) | |
10831 | (top) | |
10832 | (top) | |
10833 | (top) | |
10834 | (top) | |
10835 | (top) | |
10836 | (top) | |
10837 | (top) | |
10838 | (top) | |
10839 | (top) | |
10840 | (top) | |
10841 | (top) | |
10842 | (top) | |
10843 | (top) | |
10844 | (top) | |
10845 | (top) | |
10846 | (top) | |
10847 | (top) | |
10848 | (top) | |
10849 | (top) | |
10850 | (top) | |
10851 | (top) | |
10852 | (top) | |
10853 | (top) | |
fc5b616b | 10854 | (top) |
8a4ca0ea | 10855 | (top) |
c89222f8 AW |
10856 | (top) |
10857 | (top) | |
10858 | (top) | |
10859 | (top) | |
3d10018e AW |
10860 | (top) |
10861 | (top) | |
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) | |
22cf27c8 AW |
10877 | (top) |
10878 | (top) | |
10879 | (top) | |
65dd9e38 | 10880 | (top)) |
fb6e61ca AW |
10881 | ("i496" |
10882 | "i494" | |
10883 | "i492" | |
10884 | "i490" | |
10885 | "i488" | |
10886 | "i486" | |
22cf27c8 AW |
10887 | "i484" |
10888 | "i482" | |
10889 | "i480" | |
10890 | "i478" | |
10891 | "i476" | |
10892 | "i474" | |
10893 | "i472" | |
10894 | "i470" | |
10895 | "i468" | |
10896 | "i466" | |
10897 | "i464" | |
10898 | "i462" | |
10899 | "i460" | |
10900 | "i458" | |
10901 | "i456" | |
10902 | "i454" | |
10903 | "i452" | |
10904 | "i450" | |
10905 | "i448" | |
10906 | "i446" | |
10907 | "i444" | |
10908 | "i442" | |
10909 | "i440" | |
10910 | "i438" | |
10911 | "i436" | |
10912 | "i434" | |
10913 | "i432" | |
10914 | "i430" | |
10915 | "i428" | |
10916 | "i426" | |
fb6e61ca | 10917 | "i425" |
22cf27c8 AW |
10918 | "i424" |
10919 | "i422" | |
fb6e61ca | 10920 | "i421" |
22cf27c8 | 10921 | "i420" |
fb6e61ca | 10922 | "i419" |
22cf27c8 AW |
10923 | "i418" |
10924 | "i416" | |
22cf27c8 AW |
10925 | "i414" |
10926 | "i412" | |
22cf27c8 | 10927 | "i410" |
22cf27c8 AW |
10928 | "i408" |
10929 | "i406" | |
10930 | "i404" | |
10931 | "i402" | |
fb6e61ca AW |
10932 | "i399" |
10933 | "i397" | |
22cf27c8 | 10934 | "i396" |
fb6e61ca | 10935 | "i395" |
22cf27c8 | 10936 | "i394" |
fb6e61ca | 10937 | "i393" |
22cf27c8 | 10938 | "i392" |
fb6e61ca AW |
10939 | "i390" |
10940 | "i388" | |
22cf27c8 | 10941 | "i386" |
22cf27c8 | 10942 | "i384" |
131ae7b4 | 10943 | "i383" |
fb6e61ca AW |
10944 | "i381" |
10945 | "i379" | |
10946 | "i377" | |
10947 | "i375" | |
131ae7b4 AW |
10948 | "i373" |
10949 | "i371" | |
10950 | "i369" | |
fb6e61ca AW |
10951 | "i368" |
10952 | "i366" | |
10953 | "i364" | |
131ae7b4 | 10954 | "i363" |
fb6e61ca AW |
10955 | "i362" |
10956 | "i360" | |
131ae7b4 | 10957 | "i359" |
fb6e61ca AW |
10958 | "i357" |
10959 | "i355" | |
131ae7b4 | 10960 | "i353" |
fb6e61ca | 10961 | "i351" |
131ae7b4 AW |
10962 | "i349" |
10963 | "i347" | |
131ae7b4 | 10964 | "i345" |
131ae7b4 AW |
10965 | "i343" |
10966 | "i341" | |
10967 | "i339" | |
10968 | "i337" | |
10969 | "i335" | |
10970 | "i333" | |
10971 | "i331" | |
10972 | "i329" | |
10973 | "i327" | |
22cf27c8 AW |
10974 | "i325" |
10975 | "i323" | |
131ae7b4 | 10976 | "i321" |
131ae7b4 | 10977 | "i319" |
131ae7b4 AW |
10978 | "i317" |
10979 | "i315" | |
10980 | "i313" | |
10981 | "i311" | |
10982 | "i309" | |
22cf27c8 AW |
10983 | "i307" |
10984 | "i305" | |
10985 | "i303" | |
10986 | "i301" | |
10987 | "i299" | |
10988 | "i297" | |
10989 | "i295" | |
fb6e61ca AW |
10990 | "i294" |
10991 | "i292" | |
10992 | "i290" | |
10993 | "i288" | |
10994 | "i286" | |
131ae7b4 AW |
10995 | "i284" |
10996 | "i282" | |
10997 | "i280" | |
10998 | "i278" | |
10999 | "i276" | |
fb6e61ca AW |
11000 | "i273" |
11001 | "i271" | |
11002 | "i269" | |
11003 | "i267" | |
11004 | "i265" | |
22cf27c8 AW |
11005 | "i263" |
11006 | "i261" | |
11007 | "i259" | |
11008 | "i257" | |
11009 | "i255" | |
11010 | "i253" | |
11011 | "i251" | |
11012 | "i249" | |
11013 | "i247" | |
11014 | "i245" | |
11015 | "i243" | |
11016 | "i241" | |
fb6e61ca | 11017 | "i239")) |
65dd9e38 | 11018 | #(ribcage |
3d10018e | 11019 | (define-structure |
22cf27c8 | 11020 | define-expansion-accessors |
3d10018e AW |
11021 | define-expansion-constructors |
11022 | and-map*) | |
22cf27c8 | 11023 | ((top) (top) (top) (top)) |
fb6e61ca | 11024 | ("i33" "i32" "i31" "i29"))) |
65dd9e38 | 11025 | (hygiene guile)) |
fb6e61ca AW |
11026 | #{mod\ 3499}#)))) |
11027 | #{tmp\ 3485}#) | |
65dd9e38 AW |
11028 | (syntax-violation |
11029 | #f | |
11030 | "source expression failed to match any pattern" | |
fb6e61ca | 11031 | #{tmp\ 3484}#))) |
b9434165 | 11032 | ($sc-dispatch |
fb6e61ca | 11033 | #{tmp\ 3484}# |
b9434165 | 11034 | '(any each-any any)))) |
fb6e61ca AW |
11035 | #{e\ 3478}#))) |
11036 | (#{global-extend\ 378}# | |
65dd9e38 AW |
11037 | 'module-ref |
11038 | '@@ | |
fb6e61ca AW |
11039 | (lambda (#{e\ 3502}# #{r\ 3503}# #{w\ 3504}#) |
11040 | (letrec ((#{remodulate\ 3509}# | |
11041 | (lambda (#{x\ 3510}# #{mod\ 3511}#) | |
11042 | (if (pair? #{x\ 3510}#) | |
11043 | (cons (#{remodulate\ 3509}# | |
11044 | (car #{x\ 3510}#) | |
11045 | #{mod\ 3511}#) | |
11046 | (#{remodulate\ 3509}# | |
11047 | (cdr #{x\ 3510}#) | |
11048 | #{mod\ 3511}#)) | |
11049 | (if (#{syntax-object?\ 346}# #{x\ 3510}#) | |
11050 | (#{make-syntax-object\ 344}# | |
11051 | (#{remodulate\ 3509}# | |
11052 | (#{syntax-object-expression\ 348}# #{x\ 3510}#) | |
11053 | #{mod\ 3511}#) | |
11054 | (#{syntax-object-wrap\ 350}# #{x\ 3510}#) | |
11055 | #{mod\ 3511}#) | |
11056 | (if (vector? #{x\ 3510}#) | |
11057 | (let ((#{n\ 3522}# (vector-length #{x\ 3510}#))) | |
11058 | (let ((#{v\ 3524}# (make-vector #{n\ 3522}#))) | |
11059 | (letrec ((#{loop\ 3527}# | |
11060 | (lambda (#{i\ 3528}#) | |
11061 | (if (#{fx=\ 287}# | |
11062 | #{i\ 3528}# | |
11063 | #{n\ 3522}#) | |
11064 | (begin (if #f #f) #{v\ 3524}#) | |
27cbec84 AW |
11065 | (begin |
11066 | (vector-set! | |
fb6e61ca AW |
11067 | #{v\ 3524}# |
11068 | #{i\ 3528}# | |
11069 | (#{remodulate\ 3509}# | |
27cbec84 | 11070 | (vector-ref |
fb6e61ca AW |
11071 | #{x\ 3510}# |
11072 | #{i\ 3528}#) | |
11073 | #{mod\ 3511}#)) | |
11074 | (#{loop\ 3527}# | |
11075 | (#{fx+\ 283}# | |
11076 | #{i\ 3528}# | |
27cbec84 | 11077 | 1))))))) |
fb6e61ca AW |
11078 | (#{loop\ 3527}# 0)))) |
11079 | #{x\ 3510}#)))))) | |
11080 | ((lambda (#{tmp\ 3532}#) | |
11081 | ((lambda (#{tmp\ 3533}#) | |
11082 | (if (if #{tmp\ 3533}# | |
11083 | (apply (lambda (#{_\ 3537}# | |
11084 | #{mod\ 3538}# | |
11085 | #{exp\ 3539}#) | |
11086 | (and-map #{id?\ 382}# #{mod\ 3538}#)) | |
11087 | #{tmp\ 3533}#) | |
27cbec84 | 11088 | #f) |
fb6e61ca AW |
11089 | (apply (lambda (#{_\ 3544}# #{mod\ 3545}# #{exp\ 3546}#) |
11090 | (let ((#{mod\ 3548}# | |
27cbec84 AW |
11091 | (syntax->datum |
11092 | (cons '#(syntax-object | |
11093 | private | |
11094 | ((top) | |
11095 | #(ribcage | |
11096 | #(_ mod exp) | |
11097 | #((top) (top) (top)) | |
fb6e61ca | 11098 | #("i3541" "i3542" "i3543")) |
27cbec84 AW |
11099 | #(ribcage |
11100 | (remodulate) | |
11101 | ((top)) | |
fb6e61ca | 11102 | ("i3508")) |
27cbec84 AW |
11103 | #(ribcage |
11104 | #(e r w) | |
11105 | #((top) (top) (top)) | |
fb6e61ca | 11106 | #("i3505" "i3506" "i3507")) |
27cbec84 AW |
11107 | #(ribcage |
11108 | (lambda-var-list | |
11109 | gen-var | |
11110 | strip | |
11111 | chi-lambda-case | |
11112 | lambda*-formals | |
11113 | chi-simple-lambda | |
11114 | lambda-formals | |
11115 | ellipsis? | |
11116 | chi-void | |
11117 | eval-local-transformer | |
11118 | chi-local-syntax | |
11119 | chi-body | |
11120 | chi-macro | |
11121 | chi-application | |
11122 | chi-expr | |
11123 | chi | |
11124 | chi-top | |
11125 | syntax-type | |
11126 | chi-when-list | |
11127 | chi-install-global | |
11128 | chi-top-sequence | |
11129 | chi-sequence | |
11130 | source-wrap | |
11131 | wrap | |
11132 | bound-id-member? | |
11133 | distinct-bound-ids? | |
11134 | valid-bound-ids? | |
11135 | bound-id=? | |
11136 | free-id=? | |
11137 | id-var-name | |
11138 | same-marks? | |
11139 | join-marks | |
11140 | join-wraps | |
11141 | smart-append | |
11142 | make-binding-wrap | |
11143 | extend-ribcage! | |
11144 | make-empty-ribcage | |
11145 | new-mark | |
11146 | anti-mark | |
11147 | the-anti-mark | |
11148 | top-marked? | |
11149 | top-wrap | |
11150 | empty-wrap | |
11151 | set-ribcage-labels! | |
11152 | set-ribcage-marks! | |
11153 | set-ribcage-symnames! | |
11154 | ribcage-labels | |
11155 | ribcage-marks | |
11156 | ribcage-symnames | |
11157 | ribcage? | |
11158 | make-ribcage | |
11159 | gen-labels | |
11160 | gen-label | |
11161 | make-rename | |
11162 | rename-marks | |
11163 | rename-new | |
11164 | rename-old | |
11165 | subst-rename? | |
11166 | wrap-subst | |
11167 | wrap-marks | |
11168 | make-wrap | |
11169 | id-sym-name&marks | |
11170 | id-sym-name | |
11171 | id? | |
11172 | nonsymbol-id? | |
11173 | global-extend | |
11174 | lookup | |
11175 | macros-only-env | |
11176 | extend-var-env | |
11177 | extend-env | |
11178 | null-env | |
11179 | binding-value | |
11180 | binding-type | |
11181 | make-binding | |
11182 | arg-check | |
11183 | source-annotation | |
11184 | no-source | |
11185 | set-syntax-object-module! | |
11186 | set-syntax-object-wrap! | |
11187 | set-syntax-object-expression! | |
11188 | syntax-object-module | |
11189 | syntax-object-wrap | |
11190 | syntax-object-expression | |
11191 | syntax-object? | |
11192 | make-syntax-object | |
11193 | build-lexical-var | |
11194 | build-letrec | |
11195 | build-named-let | |
11196 | build-let | |
11197 | build-sequence | |
11198 | build-data | |
11199 | build-primref | |
11200 | build-lambda-case | |
11201 | build-case-lambda | |
11202 | build-simple-lambda | |
11203 | build-global-definition | |
11204 | maybe-name-value! | |
11205 | build-global-assignment | |
11206 | build-global-reference | |
11207 | analyze-variable | |
11208 | build-lexical-assignment | |
11209 | build-lexical-reference | |
11210 | build-dynlet | |
11211 | build-conditional | |
11212 | build-application | |
11213 | build-void | |
11214 | decorate-source | |
11215 | get-global-definition-hook | |
11216 | put-global-definition-hook | |
11217 | gensym-hook | |
11218 | local-eval-hook | |
11219 | top-level-eval-hook | |
11220 | fx< | |
11221 | fx= | |
11222 | fx- | |
11223 | fx+ | |
22cf27c8 AW |
11224 | set-lambda-meta! |
11225 | lambda-meta | |
11226 | lambda? | |
3d10018e AW |
11227 | make-dynlet |
11228 | make-letrec | |
11229 | make-let | |
11230 | make-lambda-case | |
11231 | make-lambda | |
11232 | make-sequence | |
11233 | make-application | |
11234 | make-conditional | |
11235 | make-toplevel-define | |
11236 | make-toplevel-set | |
11237 | make-toplevel-ref | |
11238 | make-module-set | |
11239 | make-module-ref | |
11240 | make-lexical-set | |
11241 | make-lexical-ref | |
11242 | make-primitive-ref | |
11243 | make-const | |
131ae7b4 | 11244 | make-void) |
27cbec84 AW |
11245 | ((top) |
11246 | (top) | |
11247 | (top) | |
11248 | (top) | |
11249 | (top) | |
11250 | (top) | |
11251 | (top) | |
11252 | (top) | |
11253 | (top) | |
11254 | (top) | |
11255 | (top) | |
11256 | (top) | |
11257 | (top) | |
11258 | (top) | |
11259 | (top) | |
11260 | (top) | |
11261 | (top) | |
11262 | (top) | |
11263 | (top) | |
11264 | (top) | |
11265 | (top) | |
11266 | (top) | |
11267 | (top) | |
11268 | (top) | |
11269 | (top) | |
11270 | (top) | |
11271 | (top) | |
11272 | (top) | |
11273 | (top) | |
11274 | (top) | |
11275 | (top) | |
11276 | (top) | |
11277 | (top) | |
11278 | (top) | |
11279 | (top) | |
11280 | (top) | |
11281 | (top) | |
11282 | (top) | |
11283 | (top) | |
11284 | (top) | |
11285 | (top) | |
11286 | (top) | |
11287 | (top) | |
11288 | (top) | |
11289 | (top) | |
11290 | (top) | |
11291 | (top) | |
11292 | (top) | |
11293 | (top) | |
11294 | (top) | |
11295 | (top) | |
11296 | (top) | |
11297 | (top) | |
11298 | (top) | |
11299 | (top) | |
11300 | (top) | |
11301 | (top) | |
11302 | (top) | |
11303 | (top) | |
11304 | (top) | |
11305 | (top) | |
11306 | (top) | |
11307 | (top) | |
11308 | (top) | |
11309 | (top) | |
11310 | (top) | |
11311 | (top) | |
11312 | (top) | |
11313 | (top) | |
11314 | (top) | |
11315 | (top) | |
11316 | (top) | |
11317 | (top) | |
11318 | (top) | |
11319 | (top) | |
11320 | (top) | |
11321 | (top) | |
11322 | (top) | |
11323 | (top) | |
11324 | (top) | |
11325 | (top) | |
11326 | (top) | |
11327 | (top) | |
11328 | (top) | |
11329 | (top) | |
11330 | (top) | |
11331 | (top) | |
11332 | (top) | |
11333 | (top) | |
11334 | (top) | |
11335 | (top) | |
11336 | (top) | |
11337 | (top) | |
11338 | (top) | |
11339 | (top) | |
11340 | (top) | |
11341 | (top) | |
11342 | (top) | |
11343 | (top) | |
11344 | (top) | |
11345 | (top) | |
11346 | (top) | |
11347 | (top) | |
11348 | (top) | |
11349 | (top) | |
11350 | (top) | |
11351 | (top) | |
11352 | (top) | |
11353 | (top) | |
11354 | (top) | |
11355 | (top) | |
11356 | (top) | |
11357 | (top) | |
11358 | (top) | |
11359 | (top) | |
11360 | (top) | |
3d10018e AW |
11361 | (top) |
11362 | (top) | |
11363 | (top) | |
11364 | (top) | |
11365 | (top) | |
11366 | (top) | |
11367 | (top) | |
11368 | (top) | |
11369 | (top) | |
11370 | (top) | |
11371 | (top) | |
11372 | (top) | |
11373 | (top) | |
11374 | (top) | |
11375 | (top) | |
11376 | (top) | |
11377 | (top) | |
22cf27c8 AW |
11378 | (top) |
11379 | (top) | |
11380 | (top) | |
27cbec84 | 11381 | (top)) |
fb6e61ca AW |
11382 | ("i496" |
11383 | "i494" | |
11384 | "i492" | |
11385 | "i490" | |
11386 | "i488" | |
11387 | "i486" | |
22cf27c8 AW |
11388 | "i484" |
11389 | "i482" | |
11390 | "i480" | |
11391 | "i478" | |
11392 | "i476" | |
11393 | "i474" | |
11394 | "i472" | |
11395 | "i470" | |
11396 | "i468" | |
11397 | "i466" | |
11398 | "i464" | |
11399 | "i462" | |
11400 | "i460" | |
11401 | "i458" | |
11402 | "i456" | |
11403 | "i454" | |
11404 | "i452" | |
11405 | "i450" | |
11406 | "i448" | |
11407 | "i446" | |
11408 | "i444" | |
11409 | "i442" | |
11410 | "i440" | |
11411 | "i438" | |
11412 | "i436" | |
11413 | "i434" | |
11414 | "i432" | |
11415 | "i430" | |
11416 | "i428" | |
11417 | "i426" | |
fb6e61ca | 11418 | "i425" |
22cf27c8 AW |
11419 | "i424" |
11420 | "i422" | |
fb6e61ca | 11421 | "i421" |
22cf27c8 | 11422 | "i420" |
fb6e61ca | 11423 | "i419" |
22cf27c8 AW |
11424 | "i418" |
11425 | "i416" | |
22cf27c8 AW |
11426 | "i414" |
11427 | "i412" | |
22cf27c8 | 11428 | "i410" |
22cf27c8 AW |
11429 | "i408" |
11430 | "i406" | |
11431 | "i404" | |
11432 | "i402" | |
fb6e61ca AW |
11433 | "i399" |
11434 | "i397" | |
22cf27c8 | 11435 | "i396" |
fb6e61ca | 11436 | "i395" |
22cf27c8 | 11437 | "i394" |
fb6e61ca | 11438 | "i393" |
22cf27c8 | 11439 | "i392" |
fb6e61ca AW |
11440 | "i390" |
11441 | "i388" | |
22cf27c8 | 11442 | "i386" |
22cf27c8 | 11443 | "i384" |
131ae7b4 | 11444 | "i383" |
fb6e61ca AW |
11445 | "i381" |
11446 | "i379" | |
11447 | "i377" | |
11448 | "i375" | |
131ae7b4 AW |
11449 | "i373" |
11450 | "i371" | |
11451 | "i369" | |
fb6e61ca AW |
11452 | "i368" |
11453 | "i366" | |
11454 | "i364" | |
131ae7b4 | 11455 | "i363" |
fb6e61ca AW |
11456 | "i362" |
11457 | "i360" | |
131ae7b4 | 11458 | "i359" |
fb6e61ca AW |
11459 | "i357" |
11460 | "i355" | |
131ae7b4 | 11461 | "i353" |
fb6e61ca | 11462 | "i351" |
131ae7b4 AW |
11463 | "i349" |
11464 | "i347" | |
131ae7b4 | 11465 | "i345" |
131ae7b4 AW |
11466 | "i343" |
11467 | "i341" | |
11468 | "i339" | |
11469 | "i337" | |
11470 | "i335" | |
11471 | "i333" | |
11472 | "i331" | |
11473 | "i329" | |
11474 | "i327" | |
22cf27c8 AW |
11475 | "i325" |
11476 | "i323" | |
131ae7b4 | 11477 | "i321" |
131ae7b4 | 11478 | "i319" |
131ae7b4 AW |
11479 | "i317" |
11480 | "i315" | |
11481 | "i313" | |
11482 | "i311" | |
11483 | "i309" | |
22cf27c8 AW |
11484 | "i307" |
11485 | "i305" | |
11486 | "i303" | |
11487 | "i301" | |
11488 | "i299" | |
11489 | "i297" | |
11490 | "i295" | |
fb6e61ca AW |
11491 | "i294" |
11492 | "i292" | |
11493 | "i290" | |
11494 | "i288" | |
11495 | "i286" | |
131ae7b4 AW |
11496 | "i284" |
11497 | "i282" | |
11498 | "i280" | |
11499 | "i278" | |
11500 | "i276" | |
fb6e61ca AW |
11501 | "i273" |
11502 | "i271" | |
11503 | "i269" | |
11504 | "i267" | |
11505 | "i265" | |
22cf27c8 AW |
11506 | "i263" |
11507 | "i261" | |
11508 | "i259" | |
11509 | "i257" | |
11510 | "i255" | |
11511 | "i253" | |
11512 | "i251" | |
11513 | "i249" | |
11514 | "i247" | |
11515 | "i245" | |
11516 | "i243" | |
11517 | "i241" | |
fb6e61ca | 11518 | "i239")) |
27cbec84 | 11519 | #(ribcage |
3d10018e | 11520 | (define-structure |
22cf27c8 | 11521 | define-expansion-accessors |
3d10018e AW |
11522 | define-expansion-constructors |
11523 | and-map*) | |
22cf27c8 | 11524 | ((top) (top) (top) (top)) |
fb6e61ca | 11525 | ("i33" "i32" "i31" "i29"))) |
27cbec84 | 11526 | (hygiene guile)) |
fb6e61ca | 11527 | #{mod\ 3545}#)))) |
27cbec84 | 11528 | (values |
fb6e61ca AW |
11529 | (#{remodulate\ 3509}# |
11530 | #{exp\ 3546}# | |
11531 | #{mod\ 3548}#) | |
11532 | #{r\ 3503}# | |
11533 | #{w\ 3504}# | |
11534 | (#{source-annotation\ 361}# #{exp\ 3546}#) | |
11535 | #{mod\ 3548}#))) | |
11536 | #{tmp\ 3533}#) | |
27cbec84 AW |
11537 | (syntax-violation |
11538 | #f | |
11539 | "source expression failed to match any pattern" | |
fb6e61ca | 11540 | #{tmp\ 3532}#))) |
27cbec84 | 11541 | ($sc-dispatch |
fb6e61ca | 11542 | #{tmp\ 3532}# |
27cbec84 | 11543 | '(any each-any any)))) |
fb6e61ca AW |
11544 | #{e\ 3502}#)))) |
11545 | (#{global-extend\ 378}# | |
65dd9e38 AW |
11546 | 'core |
11547 | 'if | |
fb6e61ca AW |
11548 | (lambda (#{e\ 3550}# |
11549 | #{r\ 3551}# | |
11550 | #{w\ 3552}# | |
11551 | #{s\ 3553}# | |
11552 | #{mod\ 3554}#) | |
11553 | ((lambda (#{tmp\ 3560}#) | |
11554 | ((lambda (#{tmp\ 3561}#) | |
11555 | (if #{tmp\ 3561}# | |
11556 | (apply (lambda (#{_\ 3565}# #{test\ 3566}# #{then\ 3567}#) | |
11557 | (#{build-conditional\ 306}# | |
11558 | #{s\ 3553}# | |
11559 | (#{chi\ 467}# | |
11560 | #{test\ 3566}# | |
11561 | #{r\ 3551}# | |
11562 | #{w\ 3552}# | |
11563 | #{mod\ 3554}#) | |
11564 | (#{chi\ 467}# | |
11565 | #{then\ 3567}# | |
11566 | #{r\ 3551}# | |
11567 | #{w\ 3552}# | |
11568 | #{mod\ 3554}#) | |
11569 | (#{build-void\ 302}# #f))) | |
11570 | #{tmp\ 3561}#) | |
11571 | ((lambda (#{tmp\ 3569}#) | |
11572 | (if #{tmp\ 3569}# | |
11573 | (apply (lambda (#{_\ 3574}# | |
11574 | #{test\ 3575}# | |
11575 | #{then\ 3576}# | |
11576 | #{else\ 3577}#) | |
11577 | (#{build-conditional\ 306}# | |
11578 | #{s\ 3553}# | |
11579 | (#{chi\ 467}# | |
11580 | #{test\ 3575}# | |
11581 | #{r\ 3551}# | |
11582 | #{w\ 3552}# | |
11583 | #{mod\ 3554}#) | |
11584 | (#{chi\ 467}# | |
11585 | #{then\ 3576}# | |
11586 | #{r\ 3551}# | |
11587 | #{w\ 3552}# | |
11588 | #{mod\ 3554}#) | |
11589 | (#{chi\ 467}# | |
11590 | #{else\ 3577}# | |
11591 | #{r\ 3551}# | |
11592 | #{w\ 3552}# | |
11593 | #{mod\ 3554}#))) | |
11594 | #{tmp\ 3569}#) | |
65dd9e38 AW |
11595 | (syntax-violation |
11596 | #f | |
11597 | "source expression failed to match any pattern" | |
fb6e61ca | 11598 | #{tmp\ 3560}#))) |
b9434165 | 11599 | ($sc-dispatch |
fb6e61ca | 11600 | #{tmp\ 3560}# |
b9434165 LC |
11601 | '(any any any any))))) |
11602 | ($sc-dispatch | |
fb6e61ca | 11603 | #{tmp\ 3560}# |
b9434165 | 11604 | '(any any any)))) |
fb6e61ca AW |
11605 | #{e\ 3550}#))) |
11606 | (#{global-extend\ 378}# | |
6360c1d4 AW |
11607 | 'core |
11608 | 'with-fluids | |
fb6e61ca AW |
11609 | (lambda (#{e\ 3578}# |
11610 | #{r\ 3579}# | |
11611 | #{w\ 3580}# | |
11612 | #{s\ 3581}# | |
11613 | #{mod\ 3582}#) | |
11614 | ((lambda (#{tmp\ 3588}#) | |
11615 | ((lambda (#{tmp\ 3589}#) | |
11616 | (if #{tmp\ 3589}# | |
11617 | (apply (lambda (#{_\ 3595}# | |
11618 | #{fluid\ 3596}# | |
11619 | #{val\ 3597}# | |
11620 | #{b\ 3598}# | |
11621 | #{b*\ 3599}#) | |
11622 | (#{build-dynlet\ 308}# | |
11623 | #{s\ 3581}# | |
11624 | (map (lambda (#{x\ 3600}#) | |
11625 | (#{chi\ 467}# | |
11626 | #{x\ 3600}# | |
11627 | #{r\ 3579}# | |
11628 | #{w\ 3580}# | |
11629 | #{mod\ 3582}#)) | |
11630 | #{fluid\ 3596}#) | |
11631 | (map (lambda (#{x\ 3603}#) | |
11632 | (#{chi\ 467}# | |
11633 | #{x\ 3603}# | |
11634 | #{r\ 3579}# | |
11635 | #{w\ 3580}# | |
11636 | #{mod\ 3582}#)) | |
11637 | #{val\ 3597}#) | |
11638 | (#{chi-body\ 475}# | |
11639 | (cons #{b\ 3598}# #{b*\ 3599}#) | |
11640 | (#{source-wrap\ 453}# | |
11641 | #{e\ 3578}# | |
11642 | #{w\ 3580}# | |
11643 | #{s\ 3581}# | |
11644 | #{mod\ 3582}#) | |
11645 | #{r\ 3579}# | |
11646 | #{w\ 3580}# | |
11647 | #{mod\ 3582}#))) | |
11648 | #{tmp\ 3589}#) | |
6360c1d4 AW |
11649 | (syntax-violation |
11650 | #f | |
11651 | "source expression failed to match any pattern" | |
fb6e61ca | 11652 | #{tmp\ 3588}#))) |
6360c1d4 | 11653 | ($sc-dispatch |
fb6e61ca | 11654 | #{tmp\ 3588}# |
6360c1d4 | 11655 | '(any #(each (any any)) any . each-any)))) |
fb6e61ca AW |
11656 | #{e\ 3578}#))) |
11657 | (#{global-extend\ 378}# | |
65dd9e38 AW |
11658 | 'begin |
11659 | 'begin | |
11660 | '()) | |
fb6e61ca | 11661 | (#{global-extend\ 378}# |
65dd9e38 AW |
11662 | 'define |
11663 | 'define | |
11664 | '()) | |
fb6e61ca | 11665 | (#{global-extend\ 378}# |
65dd9e38 AW |
11666 | 'define-syntax |
11667 | 'define-syntax | |
11668 | '()) | |
fb6e61ca | 11669 | (#{global-extend\ 378}# |
65dd9e38 AW |
11670 | 'eval-when |
11671 | 'eval-when | |
11672 | '()) | |
fb6e61ca | 11673 | (#{global-extend\ 378}# |
65dd9e38 AW |
11674 | 'core |
11675 | 'syntax-case | |
fb6e61ca AW |
11676 | (letrec ((#{gen-syntax-case\ 3614}# |
11677 | (lambda (#{x\ 3615}# | |
11678 | #{keys\ 3616}# | |
11679 | #{clauses\ 3617}# | |
11680 | #{r\ 3618}# | |
11681 | #{mod\ 3619}#) | |
11682 | (if (null? #{clauses\ 3617}#) | |
11683 | (#{build-application\ 304}# | |
65dd9e38 | 11684 | #f |
fb6e61ca | 11685 | (#{build-primref\ 330}# |
b9434165 LC |
11686 | #f |
11687 | 'syntax-violation) | |
fb6e61ca AW |
11688 | (list (#{build-data\ 332}# #f #f) |
11689 | (#{build-data\ 332}# | |
65dd9e38 AW |
11690 | #f |
11691 | "source expression failed to match any pattern") | |
fb6e61ca AW |
11692 | #{x\ 3615}#)) |
11693 | ((lambda (#{tmp\ 3629}#) | |
11694 | ((lambda (#{tmp\ 3630}#) | |
11695 | (if #{tmp\ 3630}# | |
11696 | (apply (lambda (#{pat\ 3633}# #{exp\ 3634}#) | |
11697 | (if (if (#{id?\ 382}# #{pat\ 3633}#) | |
65dd9e38 | 11698 | (and-map |
fb6e61ca AW |
11699 | (lambda (#{x\ 3637}#) |
11700 | (not (#{free-id=?\ 441}# | |
11701 | #{pat\ 3633}# | |
11702 | #{x\ 3637}#))) | |
65dd9e38 AW |
11703 | (cons '#(syntax-object |
11704 | ... | |
11705 | ((top) | |
11706 | #(ribcage | |
11707 | #(pat exp) | |
11708 | #((top) (top)) | |
fb6e61ca | 11709 | #("i3631" "i3632")) |
65dd9e38 AW |
11710 | #(ribcage () () ()) |
11711 | #(ribcage | |
11712 | #(x | |
11713 | keys | |
11714 | clauses | |
11715 | r | |
11716 | mod) | |
11717 | #((top) | |
11718 | (top) | |
11719 | (top) | |
11720 | (top) | |
11721 | (top)) | |
fb6e61ca AW |
11722 | #("i3620" |
11723 | "i3621" | |
11724 | "i3622" | |
11725 | "i3623" | |
11726 | "i3624")) | |
65dd9e38 AW |
11727 | #(ribcage |
11728 | (gen-syntax-case | |
11729 | gen-clause | |
11730 | build-dispatch-call | |
11731 | convert-pattern) | |
11732 | ((top) | |
11733 | (top) | |
11734 | (top) | |
11735 | (top)) | |
fb6e61ca AW |
11736 | ("i3613" |
11737 | "i3611" | |
11738 | "i3609" | |
11739 | "i3607")) | |
65dd9e38 AW |
11740 | #(ribcage |
11741 | (lambda-var-list | |
11742 | gen-var | |
11743 | strip | |
c89222f8 AW |
11744 | chi-lambda-case |
11745 | lambda*-formals | |
11746 | chi-simple-lambda | |
11747 | lambda-formals | |
65dd9e38 AW |
11748 | ellipsis? |
11749 | chi-void | |
11750 | eval-local-transformer | |
11751 | chi-local-syntax | |
65dd9e38 AW |
11752 | chi-body |
11753 | chi-macro | |
11754 | chi-application | |
11755 | chi-expr | |
11756 | chi | |
11757 | chi-top | |
11758 | syntax-type | |
11759 | chi-when-list | |
11760 | chi-install-global | |
11761 | chi-top-sequence | |
11762 | chi-sequence | |
11763 | source-wrap | |
11764 | wrap | |
11765 | bound-id-member? | |
11766 | distinct-bound-ids? | |
11767 | valid-bound-ids? | |
11768 | bound-id=? | |
11769 | free-id=? | |
11770 | id-var-name | |
11771 | same-marks? | |
11772 | join-marks | |
11773 | join-wraps | |
11774 | smart-append | |
11775 | make-binding-wrap | |
11776 | extend-ribcage! | |
11777 | make-empty-ribcage | |
11778 | new-mark | |
11779 | anti-mark | |
11780 | the-anti-mark | |
11781 | top-marked? | |
11782 | top-wrap | |
11783 | empty-wrap | |
11784 | set-ribcage-labels! | |
11785 | set-ribcage-marks! | |
11786 | set-ribcage-symnames! | |
11787 | ribcage-labels | |
11788 | ribcage-marks | |
11789 | ribcage-symnames | |
11790 | ribcage? | |
11791 | make-ribcage | |
11792 | gen-labels | |
11793 | gen-label | |
11794 | make-rename | |
11795 | rename-marks | |
11796 | rename-new | |
11797 | rename-old | |
11798 | subst-rename? | |
11799 | wrap-subst | |
11800 | wrap-marks | |
11801 | make-wrap | |
11802 | id-sym-name&marks | |
11803 | id-sym-name | |
11804 | id? | |
11805 | nonsymbol-id? | |
11806 | global-extend | |
11807 | lookup | |
11808 | macros-only-env | |
11809 | extend-var-env | |
11810 | extend-env | |
11811 | null-env | |
11812 | binding-value | |
11813 | binding-type | |
11814 | make-binding | |
11815 | arg-check | |
11816 | source-annotation | |
11817 | no-source | |
11818 | set-syntax-object-module! | |
11819 | set-syntax-object-wrap! | |
11820 | set-syntax-object-expression! | |
11821 | syntax-object-module | |
11822 | syntax-object-wrap | |
11823 | syntax-object-expression | |
11824 | syntax-object? | |
11825 | make-syntax-object | |
11826 | build-lexical-var | |
11827 | build-letrec | |
11828 | build-named-let | |
11829 | build-let | |
11830 | build-sequence | |
11831 | build-data | |
11832 | build-primref | |
8a4ca0ea AW |
11833 | build-lambda-case |
11834 | build-case-lambda | |
11835 | build-simple-lambda | |
65dd9e38 AW |
11836 | build-global-definition |
11837 | maybe-name-value! | |
11838 | build-global-assignment | |
11839 | build-global-reference | |
11840 | analyze-variable | |
11841 | build-lexical-assignment | |
11842 | build-lexical-reference | |
6360c1d4 | 11843 | build-dynlet |
65dd9e38 AW |
11844 | build-conditional |
11845 | build-application | |
11846 | build-void | |
fc5b616b | 11847 | decorate-source |
65dd9e38 AW |
11848 | get-global-definition-hook |
11849 | put-global-definition-hook | |
11850 | gensym-hook | |
11851 | local-eval-hook | |
11852 | top-level-eval-hook | |
11853 | fx< | |
11854 | fx= | |
11855 | fx- | |
11856 | fx+ | |
22cf27c8 AW |
11857 | set-lambda-meta! |
11858 | lambda-meta | |
11859 | lambda? | |
3d10018e AW |
11860 | make-dynlet |
11861 | make-letrec | |
11862 | make-let | |
11863 | make-lambda-case | |
11864 | make-lambda | |
11865 | make-sequence | |
11866 | make-application | |
11867 | make-conditional | |
11868 | make-toplevel-define | |
11869 | make-toplevel-set | |
11870 | make-toplevel-ref | |
11871 | make-module-set | |
11872 | make-module-ref | |
11873 | make-lexical-set | |
11874 | make-lexical-ref | |
11875 | make-primitive-ref | |
11876 | make-const | |
131ae7b4 | 11877 | make-void) |
65dd9e38 AW |
11878 | ((top) |
11879 | (top) | |
11880 | (top) | |
11881 | (top) | |
11882 | (top) | |
11883 | (top) | |
11884 | (top) | |
11885 | (top) | |
11886 | (top) | |
11887 | (top) | |
11888 | (top) | |
11889 | (top) | |
11890 | (top) | |
11891 | (top) | |
11892 | (top) | |
11893 | (top) | |
11894 | (top) | |
11895 | (top) | |
11896 | (top) | |
11897 | (top) | |
11898 | (top) | |
11899 | (top) | |
11900 | (top) | |
11901 | (top) | |
11902 | (top) | |
11903 | (top) | |
11904 | (top) | |
11905 | (top) | |
11906 | (top) | |
11907 | (top) | |
11908 | (top) | |
11909 | (top) | |
11910 | (top) | |
11911 | (top) | |
11912 | (top) | |
11913 | (top) | |
11914 | (top) | |
11915 | (top) | |
11916 | (top) | |
11917 | (top) | |
11918 | (top) | |
11919 | (top) | |
11920 | (top) | |
11921 | (top) | |
11922 | (top) | |
11923 | (top) | |
11924 | (top) | |
11925 | (top) | |
11926 | (top) | |
11927 | (top) | |
11928 | (top) | |
11929 | (top) | |
11930 | (top) | |
11931 | (top) | |
11932 | (top) | |
11933 | (top) | |
11934 | (top) | |
11935 | (top) | |
11936 | (top) | |
11937 | (top) | |
11938 | (top) | |
11939 | (top) | |
11940 | (top) | |
11941 | (top) | |
11942 | (top) | |
11943 | (top) | |
11944 | (top) | |
11945 | (top) | |
11946 | (top) | |
11947 | (top) | |
11948 | (top) | |
11949 | (top) | |
11950 | (top) | |
11951 | (top) | |
11952 | (top) | |
11953 | (top) | |
11954 | (top) | |
11955 | (top) | |
11956 | (top) | |
11957 | (top) | |
11958 | (top) | |
11959 | (top) | |
11960 | (top) | |
11961 | (top) | |
11962 | (top) | |
11963 | (top) | |
11964 | (top) | |
11965 | (top) | |
11966 | (top) | |
11967 | (top) | |
11968 | (top) | |
11969 | (top) | |
11970 | (top) | |
11971 | (top) | |
11972 | (top) | |
11973 | (top) | |
11974 | (top) | |
11975 | (top) | |
11976 | (top) | |
11977 | (top) | |
11978 | (top) | |
11979 | (top) | |
11980 | (top) | |
11981 | (top) | |
11982 | (top) | |
11983 | (top) | |
11984 | (top) | |
11985 | (top) | |
11986 | (top) | |
11987 | (top) | |
fc5b616b | 11988 | (top) |
8a4ca0ea | 11989 | (top) |
c89222f8 AW |
11990 | (top) |
11991 | (top) | |
11992 | (top) | |
11993 | (top) | |
3d10018e AW |
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) | |
22cf27c8 AW |
12011 | (top) |
12012 | (top) | |
12013 | (top) | |
65dd9e38 | 12014 | (top)) |
fb6e61ca AW |
12015 | ("i496" |
12016 | "i494" | |
12017 | "i492" | |
12018 | "i490" | |
12019 | "i488" | |
12020 | "i486" | |
22cf27c8 AW |
12021 | "i484" |
12022 | "i482" | |
12023 | "i480" | |
12024 | "i478" | |
12025 | "i476" | |
12026 | "i474" | |
12027 | "i472" | |
12028 | "i470" | |
12029 | "i468" | |
12030 | "i466" | |
12031 | "i464" | |
12032 | "i462" | |
12033 | "i460" | |
12034 | "i458" | |
12035 | "i456" | |
12036 | "i454" | |
12037 | "i452" | |
12038 | "i450" | |
12039 | "i448" | |
12040 | "i446" | |
12041 | "i444" | |
12042 | "i442" | |
12043 | "i440" | |
12044 | "i438" | |
12045 | "i436" | |
12046 | "i434" | |
12047 | "i432" | |
12048 | "i430" | |
12049 | "i428" | |
12050 | "i426" | |
fb6e61ca | 12051 | "i425" |
22cf27c8 AW |
12052 | "i424" |
12053 | "i422" | |
fb6e61ca | 12054 | "i421" |
22cf27c8 | 12055 | "i420" |
fb6e61ca | 12056 | "i419" |
22cf27c8 AW |
12057 | "i418" |
12058 | "i416" | |
22cf27c8 AW |
12059 | "i414" |
12060 | "i412" | |
22cf27c8 | 12061 | "i410" |
22cf27c8 AW |
12062 | "i408" |
12063 | "i406" | |
12064 | "i404" | |
12065 | "i402" | |
fb6e61ca AW |
12066 | "i399" |
12067 | "i397" | |
22cf27c8 | 12068 | "i396" |
fb6e61ca | 12069 | "i395" |
22cf27c8 | 12070 | "i394" |
fb6e61ca | 12071 | "i393" |
22cf27c8 | 12072 | "i392" |
fb6e61ca AW |
12073 | "i390" |
12074 | "i388" | |
22cf27c8 | 12075 | "i386" |
22cf27c8 | 12076 | "i384" |
131ae7b4 | 12077 | "i383" |
fb6e61ca AW |
12078 | "i381" |
12079 | "i379" | |
12080 | "i377" | |
12081 | "i375" | |
131ae7b4 AW |
12082 | "i373" |
12083 | "i371" | |
12084 | "i369" | |
fb6e61ca AW |
12085 | "i368" |
12086 | "i366" | |
12087 | "i364" | |
131ae7b4 | 12088 | "i363" |
fb6e61ca AW |
12089 | "i362" |
12090 | "i360" | |
131ae7b4 | 12091 | "i359" |
fb6e61ca AW |
12092 | "i357" |
12093 | "i355" | |
131ae7b4 | 12094 | "i353" |
fb6e61ca | 12095 | "i351" |
131ae7b4 AW |
12096 | "i349" |
12097 | "i347" | |
131ae7b4 | 12098 | "i345" |
131ae7b4 AW |
12099 | "i343" |
12100 | "i341" | |
12101 | "i339" | |
12102 | "i337" | |
12103 | "i335" | |
12104 | "i333" | |
12105 | "i331" | |
12106 | "i329" | |
12107 | "i327" | |
22cf27c8 AW |
12108 | "i325" |
12109 | "i323" | |
131ae7b4 | 12110 | "i321" |
131ae7b4 | 12111 | "i319" |
131ae7b4 AW |
12112 | "i317" |
12113 | "i315" | |
12114 | "i313" | |
12115 | "i311" | |
12116 | "i309" | |
22cf27c8 AW |
12117 | "i307" |
12118 | "i305" | |
12119 | "i303" | |
12120 | "i301" | |
12121 | "i299" | |
12122 | "i297" | |
12123 | "i295" | |
fb6e61ca AW |
12124 | "i294" |
12125 | "i292" | |
12126 | "i290" | |
12127 | "i288" | |
12128 | "i286" | |
131ae7b4 AW |
12129 | "i284" |
12130 | "i282" | |
12131 | "i280" | |
12132 | "i278" | |
12133 | "i276" | |
fb6e61ca AW |
12134 | "i273" |
12135 | "i271" | |
12136 | "i269" | |
12137 | "i267" | |
12138 | "i265" | |
22cf27c8 AW |
12139 | "i263" |
12140 | "i261" | |
12141 | "i259" | |
12142 | "i257" | |
12143 | "i255" | |
12144 | "i253" | |
12145 | "i251" | |
12146 | "i249" | |
12147 | "i247" | |
12148 | "i245" | |
12149 | "i243" | |
12150 | "i241" | |
fb6e61ca | 12151 | "i239")) |
65dd9e38 AW |
12152 | #(ribcage |
12153 | (define-structure | |
22cf27c8 | 12154 | define-expansion-accessors |
3d10018e | 12155 | define-expansion-constructors |
65dd9e38 | 12156 | and-map*) |
22cf27c8 AW |
12157 | ((top) |
12158 | (top) | |
12159 | (top) | |
12160 | (top)) | |
fb6e61ca AW |
12161 | ("i33" |
12162 | "i32" | |
12163 | "i31" | |
12164 | "i29"))) | |
65dd9e38 | 12165 | (hygiene guile)) |
fb6e61ca | 12166 | #{keys\ 3616}#)) |
65dd9e38 | 12167 | #f) |
fb6e61ca AW |
12168 | (let ((#{labels\ 3641}# |
12169 | (list (#{gen-label\ 398}#))) | |
12170 | (#{var\ 3642}# | |
12171 | (#{gen-var\ 495}# | |
12172 | #{pat\ 3633}#))) | |
12173 | (#{build-application\ 304}# | |
65dd9e38 | 12174 | #f |
fb6e61ca | 12175 | (#{build-simple-lambda\ 324}# |
65dd9e38 | 12176 | #f |
b9434165 | 12177 | (list (syntax->datum |
fb6e61ca | 12178 | #{pat\ 3633}#)) |
8a4ca0ea | 12179 | #f |
fb6e61ca | 12180 | (list #{var\ 3642}#) |
3785c5b2 | 12181 | '() |
fb6e61ca AW |
12182 | (#{chi\ 467}# |
12183 | #{exp\ 3634}# | |
12184 | (#{extend-env\ 370}# | |
12185 | #{labels\ 3641}# | |
65dd9e38 | 12186 | (list (cons 'syntax |
fb6e61ca | 12187 | (cons #{var\ 3642}# |
65dd9e38 | 12188 | 0))) |
fb6e61ca AW |
12189 | #{r\ 3618}#) |
12190 | (#{make-binding-wrap\ 429}# | |
12191 | (list #{pat\ 3633}#) | |
12192 | #{labels\ 3641}# | |
65dd9e38 | 12193 | '(())) |
fb6e61ca AW |
12194 | #{mod\ 3619}#)) |
12195 | (list #{x\ 3615}#))) | |
12196 | (#{gen-clause\ 3612}# | |
12197 | #{x\ 3615}# | |
12198 | #{keys\ 3616}# | |
12199 | (cdr #{clauses\ 3617}#) | |
12200 | #{r\ 3618}# | |
12201 | #{pat\ 3633}# | |
65dd9e38 | 12202 | #t |
fb6e61ca AW |
12203 | #{exp\ 3634}# |
12204 | #{mod\ 3619}#))) | |
12205 | #{tmp\ 3630}#) | |
12206 | ((lambda (#{tmp\ 3648}#) | |
12207 | (if #{tmp\ 3648}# | |
12208 | (apply (lambda (#{pat\ 3652}# | |
12209 | #{fender\ 3653}# | |
12210 | #{exp\ 3654}#) | |
12211 | (#{gen-clause\ 3612}# | |
12212 | #{x\ 3615}# | |
12213 | #{keys\ 3616}# | |
12214 | (cdr #{clauses\ 3617}#) | |
12215 | #{r\ 3618}# | |
12216 | #{pat\ 3652}# | |
12217 | #{fender\ 3653}# | |
12218 | #{exp\ 3654}# | |
12219 | #{mod\ 3619}#)) | |
12220 | #{tmp\ 3648}#) | |
12221 | ((lambda (#{_\ 3656}#) | |
65dd9e38 AW |
12222 | (syntax-violation |
12223 | 'syntax-case | |
12224 | "invalid clause" | |
fb6e61ca AW |
12225 | (car #{clauses\ 3617}#))) |
12226 | #{tmp\ 3629}#))) | |
b9434165 | 12227 | ($sc-dispatch |
fb6e61ca | 12228 | #{tmp\ 3629}# |
b9434165 | 12229 | '(any any any))))) |
fb6e61ca AW |
12230 | ($sc-dispatch #{tmp\ 3629}# (quote (any any))))) |
12231 | (car #{clauses\ 3617}#))))) | |
12232 | (#{gen-clause\ 3612}# | |
12233 | (lambda (#{x\ 3657}# | |
12234 | #{keys\ 3658}# | |
12235 | #{clauses\ 3659}# | |
12236 | #{r\ 3660}# | |
12237 | #{pat\ 3661}# | |
12238 | #{fender\ 3662}# | |
12239 | #{exp\ 3663}# | |
12240 | #{mod\ 3664}#) | |
65dd9e38 AW |
12241 | (call-with-values |
12242 | (lambda () | |
fb6e61ca AW |
12243 | (#{convert-pattern\ 3608}# |
12244 | #{pat\ 3661}# | |
12245 | #{keys\ 3658}#)) | |
12246 | (lambda (#{p\ 3673}# #{pvars\ 3674}#) | |
12247 | (if (not (#{distinct-bound-ids?\ 447}# | |
12248 | (map car #{pvars\ 3674}#))) | |
65dd9e38 AW |
12249 | (syntax-violation |
12250 | 'syntax-case | |
12251 | "duplicate pattern variable" | |
fb6e61ca | 12252 | #{pat\ 3661}#) |
65dd9e38 | 12253 | (if (not (and-map |
fb6e61ca AW |
12254 | (lambda (#{x\ 3681}#) |
12255 | (not (#{ellipsis?\ 483}# | |
12256 | (car #{x\ 3681}#)))) | |
12257 | #{pvars\ 3674}#)) | |
65dd9e38 AW |
12258 | (syntax-violation |
12259 | 'syntax-case | |
12260 | "misplaced ellipsis" | |
fb6e61ca AW |
12261 | #{pat\ 3661}#) |
12262 | (let ((#{y\ 3685}# | |
12263 | (#{gen-var\ 495}# (quote tmp)))) | |
12264 | (#{build-application\ 304}# | |
65dd9e38 | 12265 | #f |
fb6e61ca | 12266 | (#{build-simple-lambda\ 324}# |
65dd9e38 AW |
12267 | #f |
12268 | (list (quote tmp)) | |
65dd9e38 | 12269 | #f |
fb6e61ca | 12270 | (list #{y\ 3685}#) |
3785c5b2 | 12271 | '() |
fb6e61ca AW |
12272 | (let ((#{y\ 3689}# |
12273 | (#{build-lexical-reference\ 310}# | |
b9434165 LC |
12274 | 'value |
12275 | #f | |
12276 | 'tmp | |
fb6e61ca AW |
12277 | #{y\ 3685}#))) |
12278 | (#{build-conditional\ 306}# | |
65dd9e38 | 12279 | #f |
fb6e61ca AW |
12280 | ((lambda (#{tmp\ 3692}#) |
12281 | ((lambda (#{tmp\ 3693}#) | |
12282 | (if #{tmp\ 3693}# | |
12283 | (apply (lambda () #{y\ 3689}#) | |
12284 | #{tmp\ 3693}#) | |
12285 | ((lambda (#{_\ 3695}#) | |
12286 | (#{build-conditional\ 306}# | |
65dd9e38 | 12287 | #f |
fb6e61ca AW |
12288 | #{y\ 3689}# |
12289 | (#{build-dispatch-call\ 3610}# | |
12290 | #{pvars\ 3674}# | |
12291 | #{fender\ 3662}# | |
12292 | #{y\ 3689}# | |
12293 | #{r\ 3660}# | |
12294 | #{mod\ 3664}#) | |
12295 | (#{build-data\ 332}# | |
b9434165 LC |
12296 | #f |
12297 | #f))) | |
fb6e61ca | 12298 | #{tmp\ 3692}#))) |
65dd9e38 | 12299 | ($sc-dispatch |
fb6e61ca | 12300 | #{tmp\ 3692}# |
65dd9e38 | 12301 | '#(atom #t)))) |
fb6e61ca AW |
12302 | #{fender\ 3662}#) |
12303 | (#{build-dispatch-call\ 3610}# | |
12304 | #{pvars\ 3674}# | |
12305 | #{exp\ 3663}# | |
12306 | #{y\ 3689}# | |
12307 | #{r\ 3660}# | |
12308 | #{mod\ 3664}#) | |
12309 | (#{gen-syntax-case\ 3614}# | |
12310 | #{x\ 3657}# | |
12311 | #{keys\ 3658}# | |
12312 | #{clauses\ 3659}# | |
12313 | #{r\ 3660}# | |
12314 | #{mod\ 3664}#)))) | |
12315 | (list (if (eq? #{p\ 3673}# (quote any)) | |
12316 | (#{build-application\ 304}# | |
65dd9e38 | 12317 | #f |
fb6e61ca | 12318 | (#{build-primref\ 330}# |
b9434165 LC |
12319 | #f |
12320 | 'list) | |
fb6e61ca AW |
12321 | (list #{x\ 3657}#)) |
12322 | (#{build-application\ 304}# | |
65dd9e38 | 12323 | #f |
fb6e61ca | 12324 | (#{build-primref\ 330}# |
65dd9e38 AW |
12325 | #f |
12326 | '$sc-dispatch) | |
fb6e61ca AW |
12327 | (list #{x\ 3657}# |
12328 | (#{build-data\ 332}# | |
65dd9e38 | 12329 | #f |
fb6e61ca AW |
12330 | #{p\ 3673}#))))))))))))) |
12331 | (#{build-dispatch-call\ 3610}# | |
12332 | (lambda (#{pvars\ 3703}# | |
12333 | #{exp\ 3704}# | |
12334 | #{y\ 3705}# | |
12335 | #{r\ 3706}# | |
12336 | #{mod\ 3707}#) | |
12337 | (let ((#{ids\ 3715}# (map car #{pvars\ 3703}#)) | |
12338 | (#{levels\ 3716}# (map cdr #{pvars\ 3703}#))) | |
12339 | (let ((#{labels\ 3719}# | |
12340 | (#{gen-labels\ 400}# #{ids\ 3715}#)) | |
12341 | (#{new-vars\ 3720}# | |
12342 | (map #{gen-var\ 495}# #{ids\ 3715}#))) | |
12343 | (#{build-application\ 304}# | |
65dd9e38 | 12344 | #f |
fb6e61ca AW |
12345 | (#{build-primref\ 330}# #f (quote apply)) |
12346 | (list (#{build-simple-lambda\ 324}# | |
65dd9e38 | 12347 | #f |
fb6e61ca | 12348 | (map syntax->datum #{ids\ 3715}#) |
8a4ca0ea | 12349 | #f |
fb6e61ca | 12350 | #{new-vars\ 3720}# |
3785c5b2 | 12351 | '() |
fb6e61ca AW |
12352 | (#{chi\ 467}# |
12353 | #{exp\ 3704}# | |
12354 | (#{extend-env\ 370}# | |
12355 | #{labels\ 3719}# | |
12356 | (map (lambda (#{var\ 3724}# | |
12357 | #{level\ 3725}#) | |
65dd9e38 | 12358 | (cons 'syntax |
fb6e61ca AW |
12359 | (cons #{var\ 3724}# |
12360 | #{level\ 3725}#))) | |
12361 | #{new-vars\ 3720}# | |
12362 | (map cdr #{pvars\ 3703}#)) | |
12363 | #{r\ 3706}#) | |
12364 | (#{make-binding-wrap\ 429}# | |
12365 | #{ids\ 3715}# | |
12366 | #{labels\ 3719}# | |
65dd9e38 | 12367 | '(())) |
fb6e61ca AW |
12368 | #{mod\ 3707}#)) |
12369 | #{y\ 3705}#)))))) | |
12370 | (#{convert-pattern\ 3608}# | |
12371 | (lambda (#{pattern\ 3731}# #{keys\ 3732}#) | |
12372 | (letrec ((#{cvt\ 3738}# | |
12373 | (lambda (#{p\ 3739}# #{n\ 3740}# #{ids\ 3741}#) | |
12374 | (if (#{id?\ 382}# #{p\ 3739}#) | |
12375 | (if (#{bound-id-member?\ 449}# | |
12376 | #{p\ 3739}# | |
12377 | #{keys\ 3732}#) | |
65dd9e38 | 12378 | (values |
fb6e61ca AW |
12379 | (vector (quote free-id) #{p\ 3739}#) |
12380 | #{ids\ 3741}#) | |
65dd9e38 AW |
12381 | (values |
12382 | 'any | |
fb6e61ca AW |
12383 | (cons (cons #{p\ 3739}# #{n\ 3740}#) |
12384 | #{ids\ 3741}#))) | |
12385 | ((lambda (#{tmp\ 3745}#) | |
12386 | ((lambda (#{tmp\ 3746}#) | |
12387 | (if (if #{tmp\ 3746}# | |
12388 | (apply (lambda (#{x\ 3749}# | |
12389 | #{dots\ 3750}#) | |
12390 | (#{ellipsis?\ 483}# | |
12391 | #{dots\ 3750}#)) | |
12392 | #{tmp\ 3746}#) | |
65dd9e38 | 12393 | #f) |
fb6e61ca AW |
12394 | (apply (lambda (#{x\ 3753}# |
12395 | #{dots\ 3754}#) | |
65dd9e38 AW |
12396 | (call-with-values |
12397 | (lambda () | |
fb6e61ca AW |
12398 | (#{cvt\ 3738}# |
12399 | #{x\ 3753}# | |
12400 | (#{fx+\ 283}# | |
12401 | #{n\ 3740}# | |
b9434165 | 12402 | 1) |
fb6e61ca AW |
12403 | #{ids\ 3741}#)) |
12404 | (lambda (#{p\ 3755}# | |
12405 | #{ids\ 3756}#) | |
65dd9e38 | 12406 | (values |
fb6e61ca | 12407 | (if (eq? #{p\ 3755}# |
65dd9e38 AW |
12408 | 'any) |
12409 | 'each-any | |
12410 | (vector | |
12411 | 'each | |
fb6e61ca AW |
12412 | #{p\ 3755}#)) |
12413 | #{ids\ 3756}#)))) | |
12414 | #{tmp\ 3746}#) | |
12415 | ((lambda (#{tmp\ 3759}#) | |
12416 | (if (if #{tmp\ 3759}# | |
12417 | (apply (lambda (#{x\ 3763}# | |
12418 | #{dots\ 3764}# | |
12419 | #{ys\ 3765}#) | |
12420 | (#{ellipsis?\ 483}# | |
12421 | #{dots\ 3764}#)) | |
12422 | #{tmp\ 3759}#) | |
aa3819aa | 12423 | #f) |
fb6e61ca AW |
12424 | (apply (lambda (#{x\ 3769}# |
12425 | #{dots\ 3770}# | |
12426 | #{ys\ 3771}#) | |
65dd9e38 AW |
12427 | (call-with-values |
12428 | (lambda () | |
fb6e61ca AW |
12429 | (#{cvt*\ 3736}# |
12430 | #{ys\ 3771}# | |
12431 | #{n\ 3740}# | |
12432 | #{ids\ 3741}#)) | |
12433 | (lambda (#{ys\ 3773}# | |
12434 | #{ids\ 3774}#) | |
65dd9e38 AW |
12435 | (call-with-values |
12436 | (lambda () | |
fb6e61ca AW |
12437 | (#{cvt\ 3738}# |
12438 | #{x\ 3769}# | |
12439 | (+ #{n\ 3740}# | |
aa3819aa | 12440 | 1) |
fb6e61ca AW |
12441 | #{ids\ 3774}#)) |
12442 | (lambda (#{x\ 3777}# | |
12443 | #{ids\ 3778}#) | |
65dd9e38 | 12444 | (values |
aa3819aa AR |
12445 | (list->vector |
12446 | (cons 'each+ | |
fb6e61ca | 12447 | (cons #{x\ 3777}# |
aa3819aa | 12448 | (cons (reverse |
fb6e61ca | 12449 | #{ys\ 3773}#) |
aa3819aa | 12450 | '(()))))) |
fb6e61ca AW |
12451 | #{ids\ 3778}#)))))) |
12452 | #{tmp\ 3759}#) | |
12453 | ((lambda (#{tmp\ 3782}#) | |
12454 | (if #{tmp\ 3782}# | |
12455 | (apply (lambda (#{x\ 3785}# | |
12456 | #{y\ 3786}#) | |
aa3819aa AR |
12457 | (call-with-values |
12458 | (lambda () | |
fb6e61ca AW |
12459 | (#{cvt\ 3738}# |
12460 | #{y\ 3786}# | |
12461 | #{n\ 3740}# | |
12462 | #{ids\ 3741}#)) | |
12463 | (lambda (#{y\ 3787}# | |
12464 | #{ids\ 3788}#) | |
aa3819aa AR |
12465 | (call-with-values |
12466 | (lambda () | |
fb6e61ca AW |
12467 | (#{cvt\ 3738}# |
12468 | #{x\ 3785}# | |
12469 | #{n\ 3740}# | |
12470 | #{ids\ 3788}#)) | |
12471 | (lambda (#{x\ 3791}# | |
12472 | #{ids\ 3792}#) | |
aa3819aa | 12473 | (values |
fb6e61ca AW |
12474 | (cons #{x\ 3791}# |
12475 | #{y\ 3787}#) | |
12476 | #{ids\ 3792}#)))))) | |
12477 | #{tmp\ 3782}#) | |
12478 | ((lambda (#{tmp\ 3795}#) | |
12479 | (if #{tmp\ 3795}# | |
aa3819aa AR |
12480 | (apply (lambda () |
12481 | (values | |
12482 | '() | |
fb6e61ca AW |
12483 | #{ids\ 3741}#)) |
12484 | #{tmp\ 3795}#) | |
12485 | ((lambda (#{tmp\ 3796}#) | |
12486 | (if #{tmp\ 3796}# | |
12487 | (apply (lambda (#{x\ 3798}#) | |
aa3819aa AR |
12488 | (call-with-values |
12489 | (lambda () | |
fb6e61ca AW |
12490 | (#{cvt\ 3738}# |
12491 | #{x\ 3798}# | |
12492 | #{n\ 3740}# | |
12493 | #{ids\ 3741}#)) | |
12494 | (lambda (#{p\ 3800}# | |
12495 | #{ids\ 3801}#) | |
aa3819aa AR |
12496 | (values |
12497 | (vector | |
12498 | 'vector | |
fb6e61ca AW |
12499 | #{p\ 3800}#) |
12500 | #{ids\ 3801}#)))) | |
12501 | #{tmp\ 3796}#) | |
12502 | ((lambda (#{x\ 3805}#) | |
aa3819aa AR |
12503 | (values |
12504 | (vector | |
12505 | 'atom | |
fb6e61ca AW |
12506 | (#{strip\ 493}# |
12507 | #{p\ 3739}# | |
aa3819aa | 12508 | '(()))) |
fb6e61ca AW |
12509 | #{ids\ 3741}#)) |
12510 | #{tmp\ 3745}#))) | |
aa3819aa | 12511 | ($sc-dispatch |
fb6e61ca | 12512 | #{tmp\ 3745}# |
aa3819aa AR |
12513 | '#(vector |
12514 | each-any))))) | |
65dd9e38 | 12515 | ($sc-dispatch |
fb6e61ca | 12516 | #{tmp\ 3745}# |
aa3819aa | 12517 | '())))) |
65dd9e38 | 12518 | ($sc-dispatch |
fb6e61ca | 12519 | #{tmp\ 3745}# |
aa3819aa | 12520 | '(any . any))))) |
65dd9e38 | 12521 | ($sc-dispatch |
fb6e61ca | 12522 | #{tmp\ 3745}# |
aa3819aa | 12523 | '(any any . each-any))))) |
65dd9e38 | 12524 | ($sc-dispatch |
fb6e61ca | 12525 | #{tmp\ 3745}# |
65dd9e38 | 12526 | '(any any)))) |
fb6e61ca AW |
12527 | #{p\ 3739}#)))) |
12528 | (#{cvt*\ 3736}# | |
12529 | (lambda (#{p*\ 3807}# | |
12530 | #{n\ 3808}# | |
12531 | #{ids\ 3809}#) | |
12532 | (if (null? #{p*\ 3807}#) | |
12533 | (values (quote ()) #{ids\ 3809}#) | |
aa3819aa AR |
12534 | (call-with-values |
12535 | (lambda () | |
fb6e61ca AW |
12536 | (#{cvt*\ 3736}# |
12537 | (cdr #{p*\ 3807}#) | |
12538 | #{n\ 3808}# | |
12539 | #{ids\ 3809}#)) | |
12540 | (lambda (#{y\ 3813}# #{ids\ 3814}#) | |
aa3819aa AR |
12541 | (call-with-values |
12542 | (lambda () | |
fb6e61ca AW |
12543 | (#{cvt\ 3738}# |
12544 | (car #{p*\ 3807}#) | |
12545 | #{n\ 3808}# | |
12546 | #{ids\ 3814}#)) | |
12547 | (lambda (#{x\ 3817}# #{ids\ 3818}#) | |
aa3819aa | 12548 | (values |
fb6e61ca AW |
12549 | (cons #{x\ 3817}# #{y\ 3813}#) |
12550 | #{ids\ 3818}#))))))))) | |
12551 | (#{cvt\ 3738}# #{pattern\ 3731}# 0 (quote ())))))) | |
12552 | (lambda (#{e\ 3821}# | |
12553 | #{r\ 3822}# | |
12554 | #{w\ 3823}# | |
12555 | #{s\ 3824}# | |
12556 | #{mod\ 3825}#) | |
12557 | (let ((#{e\ 3832}# | |
12558 | (#{source-wrap\ 453}# | |
12559 | #{e\ 3821}# | |
12560 | #{w\ 3823}# | |
12561 | #{s\ 3824}# | |
12562 | #{mod\ 3825}#))) | |
12563 | ((lambda (#{tmp\ 3833}#) | |
12564 | ((lambda (#{tmp\ 3834}#) | |
12565 | (if #{tmp\ 3834}# | |
12566 | (apply (lambda (#{_\ 3839}# | |
12567 | #{val\ 3840}# | |
12568 | #{key\ 3841}# | |
12569 | #{m\ 3842}#) | |
65dd9e38 | 12570 | (if (and-map |
fb6e61ca AW |
12571 | (lambda (#{x\ 3843}#) |
12572 | (if (#{id?\ 382}# #{x\ 3843}#) | |
12573 | (not (#{ellipsis?\ 483}# #{x\ 3843}#)) | |
65dd9e38 | 12574 | #f)) |
fb6e61ca AW |
12575 | #{key\ 3841}#) |
12576 | (let ((#{x\ 3849}# | |
12577 | (#{gen-var\ 495}# (quote tmp)))) | |
12578 | (#{build-application\ 304}# | |
12579 | #{s\ 3824}# | |
12580 | (#{build-simple-lambda\ 324}# | |
65dd9e38 AW |
12581 | #f |
12582 | (list (quote tmp)) | |
65dd9e38 | 12583 | #f |
fb6e61ca | 12584 | (list #{x\ 3849}#) |
3785c5b2 | 12585 | '() |
fb6e61ca AW |
12586 | (#{gen-syntax-case\ 3614}# |
12587 | (#{build-lexical-reference\ 310}# | |
65dd9e38 AW |
12588 | 'value |
12589 | #f | |
12590 | 'tmp | |
fb6e61ca AW |
12591 | #{x\ 3849}#) |
12592 | #{key\ 3841}# | |
12593 | #{m\ 3842}# | |
12594 | #{r\ 3822}# | |
12595 | #{mod\ 3825}#)) | |
12596 | (list (#{chi\ 467}# | |
12597 | #{val\ 3840}# | |
12598 | #{r\ 3822}# | |
65dd9e38 | 12599 | '(()) |
fb6e61ca | 12600 | #{mod\ 3825}#)))) |
65dd9e38 AW |
12601 | (syntax-violation |
12602 | 'syntax-case | |
12603 | "invalid literals list" | |
fb6e61ca AW |
12604 | #{e\ 3832}#))) |
12605 | #{tmp\ 3834}#) | |
65dd9e38 AW |
12606 | (syntax-violation |
12607 | #f | |
12608 | "source expression failed to match any pattern" | |
fb6e61ca | 12609 | #{tmp\ 3833}#))) |
65dd9e38 | 12610 | ($sc-dispatch |
fb6e61ca | 12611 | #{tmp\ 3833}# |
65dd9e38 | 12612 | '(any any each-any . each-any)))) |
fb6e61ca | 12613 | #{e\ 3832}#))))) |
8a73a6d2 | 12614 | (set! macroexpand |
82c45730 | 12615 | (lambda* |
fb6e61ca | 12616 | (#{x\ 3855}# |
82c45730 | 12617 | #:optional |
fb6e61ca AW |
12618 | (#{m\ 3857}# (quote e)) |
12619 | (#{esew\ 3859}# (quote (eval)))) | |
12620 | (#{chi-top\ 465}# | |
12621 | #{x\ 3855}# | |
82c45730 AW |
12622 | '() |
12623 | '((top)) | |
fb6e61ca AW |
12624 | #{m\ 3857}# |
12625 | #{esew\ 3859}# | |
82c45730 AW |
12626 | (cons 'hygiene |
12627 | (module-name (current-module)))))) | |
65dd9e38 | 12628 | (set! identifier? |
fb6e61ca AW |
12629 | (lambda (#{x\ 3863}#) |
12630 | (#{nonsymbol-id?\ 380}# #{x\ 3863}#))) | |
65dd9e38 | 12631 | (set! datum->syntax |
fb6e61ca AW |
12632 | (lambda (#{id\ 3865}# #{datum\ 3866}#) |
12633 | (#{make-syntax-object\ 344}# | |
12634 | #{datum\ 3866}# | |
12635 | (#{syntax-object-wrap\ 350}# #{id\ 3865}#) | |
12636 | (#{syntax-object-module\ 352}# #{id\ 3865}#)))) | |
65dd9e38 | 12637 | (set! syntax->datum |
fb6e61ca AW |
12638 | (lambda (#{x\ 3869}#) |
12639 | (#{strip\ 493}# #{x\ 3869}# (quote (()))))) | |
750ae8b7 | 12640 | (set! syntax-source |
fb6e61ca AW |
12641 | (lambda (#{x\ 3872}#) |
12642 | (#{source-annotation\ 361}# #{x\ 3872}#))) | |
65dd9e38 | 12643 | (set! generate-temporaries |
fb6e61ca | 12644 | (lambda (#{ls\ 3874}#) |
65dd9e38 | 12645 | (begin |
fb6e61ca AW |
12646 | (let ((#{x\ 3878}# #{ls\ 3874}#)) |
12647 | (if (not (list? #{x\ 3878}#)) | |
65dd9e38 AW |
12648 | (syntax-violation |
12649 | 'generate-temporaries | |
12650 | "invalid argument" | |
fb6e61ca AW |
12651 | #{x\ 3878}#))) |
12652 | (map (lambda (#{x\ 3879}#) | |
12653 | (#{wrap\ 451}# (gensym) (quote ((top))) #f)) | |
12654 | #{ls\ 3874}#)))) | |
65dd9e38 | 12655 | (set! free-identifier=? |
fb6e61ca | 12656 | (lambda (#{x\ 3883}# #{y\ 3884}#) |
65dd9e38 | 12657 | (begin |
fb6e61ca AW |
12658 | (let ((#{x\ 3889}# #{x\ 3883}#)) |
12659 | (if (not (#{nonsymbol-id?\ 380}# #{x\ 3889}#)) | |
65dd9e38 AW |
12660 | (syntax-violation |
12661 | 'free-identifier=? | |
12662 | "invalid argument" | |
fb6e61ca AW |
12663 | #{x\ 3889}#))) |
12664 | (let ((#{x\ 3892}# #{y\ 3884}#)) | |
12665 | (if (not (#{nonsymbol-id?\ 380}# #{x\ 3892}#)) | |
65dd9e38 AW |
12666 | (syntax-violation |
12667 | 'free-identifier=? | |
12668 | "invalid argument" | |
fb6e61ca AW |
12669 | #{x\ 3892}#))) |
12670 | (#{free-id=?\ 441}# #{x\ 3883}# #{y\ 3884}#)))) | |
65dd9e38 | 12671 | (set! bound-identifier=? |
fb6e61ca | 12672 | (lambda (#{x\ 3893}# #{y\ 3894}#) |
65dd9e38 | 12673 | (begin |
fb6e61ca AW |
12674 | (let ((#{x\ 3899}# #{x\ 3893}#)) |
12675 | (if (not (#{nonsymbol-id?\ 380}# #{x\ 3899}#)) | |
65dd9e38 AW |
12676 | (syntax-violation |
12677 | 'bound-identifier=? | |
12678 | "invalid argument" | |
fb6e61ca AW |
12679 | #{x\ 3899}#))) |
12680 | (let ((#{x\ 3902}# #{y\ 3894}#)) | |
12681 | (if (not (#{nonsymbol-id?\ 380}# #{x\ 3902}#)) | |
65dd9e38 AW |
12682 | (syntax-violation |
12683 | 'bound-identifier=? | |
12684 | "invalid argument" | |
fb6e61ca AW |
12685 | #{x\ 3902}#))) |
12686 | (#{bound-id=?\ 443}# #{x\ 3893}# #{y\ 3894}#)))) | |
65dd9e38 | 12687 | (set! syntax-violation |
fb6e61ca AW |
12688 | (lambda (#{who\ 3903}# |
12689 | #{message\ 3904}# | |
12690 | #{form\ 3905}# | |
b9434165 | 12691 | . |
fb6e61ca | 12692 | #{subform\ 3906}#) |
65dd9e38 | 12693 | (begin |
fb6e61ca AW |
12694 | (let ((#{x\ 3913}# #{who\ 3903}#)) |
12695 | (if (not ((lambda (#{x\ 3914}#) | |
12696 | (let ((#{t\ 3918}# (not #{x\ 3914}#))) | |
12697 | (if #{t\ 3918}# | |
12698 | #{t\ 3918}# | |
12699 | (let ((#{t\ 3921}# (string? #{x\ 3914}#))) | |
12700 | (if #{t\ 3921}# | |
12701 | #{t\ 3921}# | |
12702 | (symbol? #{x\ 3914}#)))))) | |
12703 | #{x\ 3913}#)) | |
65dd9e38 AW |
12704 | (syntax-violation |
12705 | 'syntax-violation | |
12706 | "invalid argument" | |
fb6e61ca AW |
12707 | #{x\ 3913}#))) |
12708 | (let ((#{x\ 3925}# #{message\ 3904}#)) | |
12709 | (if (not (string? #{x\ 3925}#)) | |
65dd9e38 AW |
12710 | (syntax-violation |
12711 | 'syntax-violation | |
12712 | "invalid argument" | |
fb6e61ca | 12713 | #{x\ 3925}#))) |
65dd9e38 AW |
12714 | (scm-error |
12715 | 'syntax-error | |
8a73a6d2 | 12716 | 'macroexpand |
65dd9e38 | 12717 | (string-append |
fb6e61ca | 12718 | (if #{who\ 3903}# "~a: " "") |
65dd9e38 | 12719 | "~a " |
fb6e61ca | 12720 | (if (null? #{subform\ 3906}#) |
65dd9e38 AW |
12721 | "in ~a" |
12722 | "in subform `~s' of `~s'")) | |
fb6e61ca AW |
12723 | (let ((#{tail\ 3927}# |
12724 | (cons #{message\ 3904}# | |
12725 | (map (lambda (#{x\ 3928}#) | |
12726 | (#{strip\ 493}# #{x\ 3928}# (quote (())))) | |
b9434165 | 12727 | (append |
fb6e61ca AW |
12728 | #{subform\ 3906}# |
12729 | (list #{form\ 3905}#)))))) | |
12730 | (if #{who\ 3903}# | |
12731 | (cons #{who\ 3903}# #{tail\ 3927}#) | |
12732 | #{tail\ 3927}#)) | |
65dd9e38 | 12733 | #f)))) |
fb6e61ca AW |
12734 | (letrec ((#{match\ 3944}# |
12735 | (lambda (#{e\ 3945}# | |
12736 | #{p\ 3946}# | |
12737 | #{w\ 3947}# | |
12738 | #{r\ 3948}# | |
12739 | #{mod\ 3949}#) | |
12740 | (if (not #{r\ 3948}#) | |
65dd9e38 | 12741 | #f |
fb6e61ca AW |
12742 | (if (eq? #{p\ 3946}# (quote any)) |
12743 | (cons (#{wrap\ 451}# | |
12744 | #{e\ 3945}# | |
12745 | #{w\ 3947}# | |
12746 | #{mod\ 3949}#) | |
12747 | #{r\ 3948}#) | |
12748 | (if (#{syntax-object?\ 346}# #{e\ 3945}#) | |
12749 | (#{match*\ 3942}# | |
12750 | (#{syntax-object-expression\ 348}# #{e\ 3945}#) | |
12751 | #{p\ 3946}# | |
12752 | (#{join-wraps\ 433}# | |
12753 | #{w\ 3947}# | |
12754 | (#{syntax-object-wrap\ 350}# #{e\ 3945}#)) | |
12755 | #{r\ 3948}# | |
12756 | (#{syntax-object-module\ 352}# #{e\ 3945}#)) | |
12757 | (#{match*\ 3942}# | |
12758 | #{e\ 3945}# | |
12759 | #{p\ 3946}# | |
12760 | #{w\ 3947}# | |
12761 | #{r\ 3948}# | |
12762 | #{mod\ 3949}#)))))) | |
12763 | (#{match*\ 3942}# | |
12764 | (lambda (#{e\ 3962}# | |
12765 | #{p\ 3963}# | |
12766 | #{w\ 3964}# | |
12767 | #{r\ 3965}# | |
12768 | #{mod\ 3966}#) | |
12769 | (if (null? #{p\ 3963}#) | |
12770 | (if (null? #{e\ 3962}#) #{r\ 3965}# #f) | |
12771 | (if (pair? #{p\ 3963}#) | |
12772 | (if (pair? #{e\ 3962}#) | |
12773 | (#{match\ 3944}# | |
12774 | (car #{e\ 3962}#) | |
12775 | (car #{p\ 3963}#) | |
12776 | #{w\ 3964}# | |
12777 | (#{match\ 3944}# | |
12778 | (cdr #{e\ 3962}#) | |
12779 | (cdr #{p\ 3963}#) | |
12780 | #{w\ 3964}# | |
12781 | #{r\ 3965}# | |
12782 | #{mod\ 3966}#) | |
12783 | #{mod\ 3966}#) | |
65dd9e38 | 12784 | #f) |
fb6e61ca AW |
12785 | (if (eq? #{p\ 3963}# (quote each-any)) |
12786 | (let ((#{l\ 3983}# | |
12787 | (#{match-each-any\ 3936}# | |
12788 | #{e\ 3962}# | |
12789 | #{w\ 3964}# | |
12790 | #{mod\ 3966}#))) | |
12791 | (if #{l\ 3983}# | |
12792 | (cons #{l\ 3983}# #{r\ 3965}#) | |
b9434165 | 12793 | #f)) |
fb6e61ca AW |
12794 | (let ((#{atom-key\ 3989}# (vector-ref #{p\ 3963}# 0))) |
12795 | (if (memv #{atom-key\ 3989}# (quote (each))) | |
12796 | (if (null? #{e\ 3962}#) | |
12797 | (#{match-empty\ 3938}# | |
12798 | (vector-ref #{p\ 3963}# 1) | |
12799 | #{r\ 3965}#) | |
12800 | (let ((#{l\ 3992}# | |
12801 | (#{match-each\ 3932}# | |
12802 | #{e\ 3962}# | |
12803 | (vector-ref #{p\ 3963}# 1) | |
12804 | #{w\ 3964}# | |
12805 | #{mod\ 3966}#))) | |
12806 | (if #{l\ 3992}# | |
12807 | (letrec ((#{collect\ 3997}# | |
12808 | (lambda (#{l\ 3998}#) | |
12809 | (if (null? (car #{l\ 3998}#)) | |
12810 | #{r\ 3965}# | |
12811 | (cons (map car #{l\ 3998}#) | |
12812 | (#{collect\ 3997}# | |
b9434165 | 12813 | (map cdr |
fb6e61ca AW |
12814 | #{l\ 3998}#))))))) |
12815 | (#{collect\ 3997}# #{l\ 3992}#)) | |
65dd9e38 | 12816 | #f))) |
fb6e61ca | 12817 | (if (memv #{atom-key\ 3989}# (quote (each+))) |
aa3819aa AR |
12818 | (call-with-values |
12819 | (lambda () | |
fb6e61ca AW |
12820 | (#{match-each+\ 3934}# |
12821 | #{e\ 3962}# | |
12822 | (vector-ref #{p\ 3963}# 1) | |
12823 | (vector-ref #{p\ 3963}# 2) | |
12824 | (vector-ref #{p\ 3963}# 3) | |
12825 | #{w\ 3964}# | |
12826 | #{r\ 3965}# | |
12827 | #{mod\ 3966}#)) | |
12828 | (lambda (#{xr*\ 4000}# | |
12829 | #{y-pat\ 4001}# | |
12830 | #{r\ 4002}#) | |
12831 | (if #{r\ 4002}# | |
12832 | (if (null? #{y-pat\ 4001}#) | |
12833 | (if (null? #{xr*\ 4000}#) | |
12834 | (#{match-empty\ 3938}# | |
12835 | (vector-ref #{p\ 3963}# 1) | |
12836 | #{r\ 4002}#) | |
12837 | (#{combine\ 3940}# | |
12838 | #{xr*\ 4000}# | |
12839 | #{r\ 4002}#)) | |
aa3819aa AR |
12840 | #f) |
12841 | #f))) | |
fb6e61ca AW |
12842 | (if (memv #{atom-key\ 3989}# (quote (free-id))) |
12843 | (if (#{id?\ 382}# #{e\ 3962}#) | |
12844 | (if (#{free-id=?\ 441}# | |
12845 | (#{wrap\ 451}# | |
12846 | #{e\ 3962}# | |
12847 | #{w\ 3964}# | |
12848 | #{mod\ 3966}#) | |
12849 | (vector-ref #{p\ 3963}# 1)) | |
12850 | #{r\ 3965}# | |
aa3819aa | 12851 | #f) |
65dd9e38 | 12852 | #f) |
fb6e61ca | 12853 | (if (memv #{atom-key\ 3989}# (quote (atom))) |
aa3819aa | 12854 | (if (equal? |
fb6e61ca AW |
12855 | (vector-ref #{p\ 3963}# 1) |
12856 | (#{strip\ 493}# | |
12857 | #{e\ 3962}# | |
12858 | #{w\ 3964}#)) | |
12859 | #{r\ 3965}# | |
aa3819aa | 12860 | #f) |
fb6e61ca | 12861 | (if (memv #{atom-key\ 3989}# |
aa3819aa | 12862 | '(vector)) |
fb6e61ca AW |
12863 | (if (vector? #{e\ 3962}#) |
12864 | (#{match\ 3944}# | |
12865 | (vector->list #{e\ 3962}#) | |
12866 | (vector-ref #{p\ 3963}# 1) | |
12867 | #{w\ 3964}# | |
12868 | #{r\ 3965}# | |
12869 | #{mod\ 3966}#) | |
aa3819aa | 12870 | #f)))))))))))) |
fb6e61ca AW |
12871 | (#{combine\ 3940}# |
12872 | (lambda (#{r*\ 4019}# #{r\ 4020}#) | |
12873 | (if (null? (car #{r*\ 4019}#)) | |
12874 | #{r\ 4020}# | |
12875 | (cons (map car #{r*\ 4019}#) | |
12876 | (#{combine\ 3940}# | |
12877 | (map cdr #{r*\ 4019}#) | |
12878 | #{r\ 4020}#))))) | |
12879 | (#{match-empty\ 3938}# | |
12880 | (lambda (#{p\ 4023}# #{r\ 4024}#) | |
12881 | (if (null? #{p\ 4023}#) | |
12882 | #{r\ 4024}# | |
12883 | (if (eq? #{p\ 4023}# (quote any)) | |
12884 | (cons (quote ()) #{r\ 4024}#) | |
12885 | (if (pair? #{p\ 4023}#) | |
12886 | (#{match-empty\ 3938}# | |
12887 | (car #{p\ 4023}#) | |
12888 | (#{match-empty\ 3938}# | |
12889 | (cdr #{p\ 4023}#) | |
12890 | #{r\ 4024}#)) | |
12891 | (if (eq? #{p\ 4023}# (quote each-any)) | |
12892 | (cons (quote ()) #{r\ 4024}#) | |
12893 | (let ((#{atom-key\ 4038}# | |
12894 | (vector-ref #{p\ 4023}# 0))) | |
12895 | (if (memv #{atom-key\ 4038}# (quote (each))) | |
12896 | (#{match-empty\ 3938}# | |
12897 | (vector-ref #{p\ 4023}# 1) | |
12898 | #{r\ 4024}#) | |
12899 | (if (memv #{atom-key\ 4038}# (quote (each+))) | |
12900 | (#{match-empty\ 3938}# | |
12901 | (vector-ref #{p\ 4023}# 1) | |
12902 | (#{match-empty\ 3938}# | |
12903 | (reverse (vector-ref #{p\ 4023}# 2)) | |
12904 | (#{match-empty\ 3938}# | |
12905 | (vector-ref #{p\ 4023}# 3) | |
12906 | #{r\ 4024}#))) | |
12907 | (if (memv #{atom-key\ 4038}# | |
aa3819aa | 12908 | '(free-id atom)) |
fb6e61ca AW |
12909 | #{r\ 4024}# |
12910 | (if (memv #{atom-key\ 4038}# | |
aa3819aa | 12911 | '(vector)) |
fb6e61ca AW |
12912 | (#{match-empty\ 3938}# |
12913 | (vector-ref #{p\ 4023}# 1) | |
12914 | #{r\ 4024}#)))))))))))) | |
12915 | (#{match-each-any\ 3936}# | |
12916 | (lambda (#{e\ 4043}# #{w\ 4044}# #{mod\ 4045}#) | |
12917 | (if (pair? #{e\ 4043}#) | |
12918 | (let ((#{l\ 4052}# | |
12919 | (#{match-each-any\ 3936}# | |
12920 | (cdr #{e\ 4043}#) | |
12921 | #{w\ 4044}# | |
12922 | #{mod\ 4045}#))) | |
12923 | (if #{l\ 4052}# | |
12924 | (cons (#{wrap\ 451}# | |
12925 | (car #{e\ 4043}#) | |
12926 | #{w\ 4044}# | |
12927 | #{mod\ 4045}#) | |
12928 | #{l\ 4052}#) | |
65dd9e38 | 12929 | #f)) |
fb6e61ca | 12930 | (if (null? #{e\ 4043}#) |
65dd9e38 | 12931 | '() |
fb6e61ca AW |
12932 | (if (#{syntax-object?\ 346}# #{e\ 4043}#) |
12933 | (#{match-each-any\ 3936}# | |
12934 | (#{syntax-object-expression\ 348}# #{e\ 4043}#) | |
12935 | (#{join-wraps\ 433}# | |
12936 | #{w\ 4044}# | |
12937 | (#{syntax-object-wrap\ 350}# #{e\ 4043}#)) | |
12938 | #{mod\ 4045}#) | |
65dd9e38 | 12939 | #f))))) |
fb6e61ca AW |
12940 | (#{match-each+\ 3934}# |
12941 | (lambda (#{e\ 4060}# | |
12942 | #{x-pat\ 4061}# | |
12943 | #{y-pat\ 4062}# | |
12944 | #{z-pat\ 4063}# | |
12945 | #{w\ 4064}# | |
12946 | #{r\ 4065}# | |
12947 | #{mod\ 4066}#) | |
12948 | (letrec ((#{f\ 4077}# | |
12949 | (lambda (#{e\ 4078}# #{w\ 4079}#) | |
12950 | (if (pair? #{e\ 4078}#) | |
aa3819aa AR |
12951 | (call-with-values |
12952 | (lambda () | |
fb6e61ca AW |
12953 | (#{f\ 4077}# |
12954 | (cdr #{e\ 4078}#) | |
12955 | #{w\ 4079}#)) | |
12956 | (lambda (#{xr*\ 4082}# | |
12957 | #{y-pat\ 4083}# | |
12958 | #{r\ 4084}#) | |
12959 | (if #{r\ 4084}# | |
12960 | (if (null? #{y-pat\ 4083}#) | |
12961 | (let ((#{xr\ 4089}# | |
12962 | (#{match\ 3944}# | |
12963 | (car #{e\ 4078}#) | |
12964 | #{x-pat\ 4061}# | |
12965 | #{w\ 4079}# | |
aa3819aa | 12966 | '() |
fb6e61ca AW |
12967 | #{mod\ 4066}#))) |
12968 | (if #{xr\ 4089}# | |
aa3819aa | 12969 | (values |
fb6e61ca AW |
12970 | (cons #{xr\ 4089}# |
12971 | #{xr*\ 4082}#) | |
12972 | #{y-pat\ 4083}# | |
12973 | #{r\ 4084}#) | |
aa3819aa AR |
12974 | (values #f #f #f))) |
12975 | (values | |
12976 | '() | |
fb6e61ca AW |
12977 | (cdr #{y-pat\ 4083}#) |
12978 | (#{match\ 3944}# | |
12979 | (car #{e\ 4078}#) | |
12980 | (car #{y-pat\ 4083}#) | |
12981 | #{w\ 4079}# | |
12982 | #{r\ 4084}# | |
12983 | #{mod\ 4066}#))) | |
aa3819aa | 12984 | (values #f #f #f)))) |
fb6e61ca AW |
12985 | (if (#{syntax-object?\ 346}# #{e\ 4078}#) |
12986 | (#{f\ 4077}# | |
12987 | (#{syntax-object-expression\ 348}# | |
12988 | #{e\ 4078}#) | |
12989 | (#{join-wraps\ 433}# | |
12990 | #{w\ 4079}# | |
12991 | #{e\ 4078}#)) | |
aa3819aa AR |
12992 | (values |
12993 | '() | |
fb6e61ca AW |
12994 | #{y-pat\ 4062}# |
12995 | (#{match\ 3944}# | |
12996 | #{e\ 4078}# | |
12997 | #{z-pat\ 4063}# | |
12998 | #{w\ 4079}# | |
12999 | #{r\ 4065}# | |
13000 | #{mod\ 4066}#))))))) | |
13001 | (#{f\ 4077}# #{e\ 4060}# #{w\ 4064}#)))) | |
13002 | (#{match-each\ 3932}# | |
13003 | (lambda (#{e\ 4093}# | |
13004 | #{p\ 4094}# | |
13005 | #{w\ 4095}# | |
13006 | #{mod\ 4096}#) | |
13007 | (if (pair? #{e\ 4093}#) | |
13008 | (let ((#{first\ 4104}# | |
13009 | (#{match\ 3944}# | |
13010 | (car #{e\ 4093}#) | |
13011 | #{p\ 4094}# | |
13012 | #{w\ 4095}# | |
65dd9e38 | 13013 | '() |
fb6e61ca AW |
13014 | #{mod\ 4096}#))) |
13015 | (if #{first\ 4104}# | |
13016 | (let ((#{rest\ 4108}# | |
13017 | (#{match-each\ 3932}# | |
13018 | (cdr #{e\ 4093}#) | |
13019 | #{p\ 4094}# | |
13020 | #{w\ 4095}# | |
13021 | #{mod\ 4096}#))) | |
13022 | (if #{rest\ 4108}# | |
13023 | (cons #{first\ 4104}# #{rest\ 4108}#) | |
b9434165 | 13024 | #f)) |
65dd9e38 | 13025 | #f)) |
fb6e61ca | 13026 | (if (null? #{e\ 4093}#) |
65dd9e38 | 13027 | '() |
fb6e61ca AW |
13028 | (if (#{syntax-object?\ 346}# #{e\ 4093}#) |
13029 | (#{match-each\ 3932}# | |
13030 | (#{syntax-object-expression\ 348}# #{e\ 4093}#) | |
13031 | #{p\ 4094}# | |
13032 | (#{join-wraps\ 433}# | |
13033 | #{w\ 4095}# | |
13034 | (#{syntax-object-wrap\ 350}# #{e\ 4093}#)) | |
13035 | (#{syntax-object-module\ 352}# #{e\ 4093}#)) | |
65dd9e38 AW |
13036 | #f)))))) |
13037 | (set! $sc-dispatch | |
fb6e61ca AW |
13038 | (lambda (#{e\ 4116}# #{p\ 4117}#) |
13039 | (if (eq? #{p\ 4117}# (quote any)) | |
13040 | (list #{e\ 4116}#) | |
13041 | (if (#{syntax-object?\ 346}# #{e\ 4116}#) | |
13042 | (#{match*\ 3942}# | |
13043 | (#{syntax-object-expression\ 348}# #{e\ 4116}#) | |
13044 | #{p\ 4117}# | |
13045 | (#{syntax-object-wrap\ 350}# #{e\ 4116}#) | |
65dd9e38 | 13046 | '() |
fb6e61ca AW |
13047 | (#{syntax-object-module\ 352}# #{e\ 4116}#)) |
13048 | (#{match*\ 3942}# | |
13049 | #{e\ 4116}# | |
13050 | #{p\ 4117}# | |
65dd9e38 AW |
13051 | '(()) |
13052 | '() | |
13053 | #f))))))))) | |
13054 | ||
13055 | (define with-syntax | |
e809758a AW |
13056 | (make-syntax-transformer |
13057 | 'with-syntax | |
65dd9e38 | 13058 | 'macro |
fb6e61ca AW |
13059 | (lambda (#{x\ 4126}#) |
13060 | ((lambda (#{tmp\ 4128}#) | |
13061 | ((lambda (#{tmp\ 4129}#) | |
13062 | (if #{tmp\ 4129}# | |
13063 | (apply (lambda (#{_\ 4133}# #{e1\ 4134}# #{e2\ 4135}#) | |
f42d8bd8 AW |
13064 | (cons '#(syntax-object |
13065 | begin | |
13066 | ((top) | |
13067 | #(ribcage | |
13068 | #(_ e1 e2) | |
13069 | #((top) (top) (top)) | |
fb6e61ca | 13070 | #("i4130" "i4131" "i4132")) |
f42d8bd8 | 13071 | #(ribcage () () ()) |
fb6e61ca | 13072 | #(ribcage #(x) #((top)) #("i4127"))) |
f42d8bd8 | 13073 | (hygiene guile)) |
fb6e61ca AW |
13074 | (cons #{e1\ 4134}# #{e2\ 4135}#))) |
13075 | #{tmp\ 4129}#) | |
13076 | ((lambda (#{tmp\ 4137}#) | |
13077 | (if #{tmp\ 4137}# | |
13078 | (apply (lambda (#{_\ 4143}# | |
13079 | #{out\ 4144}# | |
13080 | #{in\ 4145}# | |
13081 | #{e1\ 4146}# | |
13082 | #{e2\ 4147}#) | |
f42d8bd8 AW |
13083 | (list '#(syntax-object |
13084 | syntax-case | |
13085 | ((top) | |
13086 | #(ribcage | |
13087 | #(_ out in e1 e2) | |
13088 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13089 | #("i4138" |
13090 | "i4139" | |
13091 | "i4140" | |
13092 | "i4141" | |
13093 | "i4142")) | |
f42d8bd8 | 13094 | #(ribcage () () ()) |
fb6e61ca | 13095 | #(ribcage #(x) #((top)) #("i4127"))) |
f42d8bd8 | 13096 | (hygiene guile)) |
fb6e61ca | 13097 | #{in\ 4145}# |
f42d8bd8 | 13098 | '() |
fb6e61ca | 13099 | (list #{out\ 4144}# |
f42d8bd8 AW |
13100 | (cons '#(syntax-object |
13101 | begin | |
13102 | ((top) | |
13103 | #(ribcage | |
13104 | #(_ out in e1 e2) | |
13105 | #((top) | |
13106 | (top) | |
13107 | (top) | |
13108 | (top) | |
13109 | (top)) | |
fb6e61ca AW |
13110 | #("i4138" |
13111 | "i4139" | |
13112 | "i4140" | |
13113 | "i4141" | |
13114 | "i4142")) | |
f42d8bd8 AW |
13115 | #(ribcage () () ()) |
13116 | #(ribcage | |
13117 | #(x) | |
13118 | #((top)) | |
fb6e61ca | 13119 | #("i4127"))) |
f42d8bd8 | 13120 | (hygiene guile)) |
fb6e61ca AW |
13121 | (cons #{e1\ 4146}# |
13122 | #{e2\ 4147}#))))) | |
13123 | #{tmp\ 4137}#) | |
13124 | ((lambda (#{tmp\ 4149}#) | |
13125 | (if #{tmp\ 4149}# | |
13126 | (apply (lambda (#{_\ 4155}# | |
13127 | #{out\ 4156}# | |
13128 | #{in\ 4157}# | |
13129 | #{e1\ 4158}# | |
13130 | #{e2\ 4159}#) | |
f42d8bd8 AW |
13131 | (list '#(syntax-object |
13132 | syntax-case | |
13133 | ((top) | |
13134 | #(ribcage | |
13135 | #(_ out in e1 e2) | |
13136 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13137 | #("i4150" |
13138 | "i4151" | |
13139 | "i4152" | |
13140 | "i4153" | |
13141 | "i4154")) | |
f42d8bd8 | 13142 | #(ribcage () () ()) |
fb6e61ca | 13143 | #(ribcage #(x) #((top)) #("i4127"))) |
f42d8bd8 AW |
13144 | (hygiene guile)) |
13145 | (cons '#(syntax-object | |
13146 | list | |
65dd9e38 AW |
13147 | ((top) |
13148 | #(ribcage | |
13149 | #(_ out in e1 e2) | |
13150 | #((top) | |
13151 | (top) | |
13152 | (top) | |
13153 | (top) | |
13154 | (top)) | |
fb6e61ca AW |
13155 | #("i4150" |
13156 | "i4151" | |
13157 | "i4152" | |
13158 | "i4153" | |
13159 | "i4154")) | |
65dd9e38 AW |
13160 | #(ribcage () () ()) |
13161 | #(ribcage | |
13162 | #(x) | |
13163 | #((top)) | |
fb6e61ca | 13164 | #("i4127"))) |
65dd9e38 | 13165 | (hygiene guile)) |
fb6e61ca | 13166 | #{in\ 4157}#) |
f42d8bd8 | 13167 | '() |
fb6e61ca | 13168 | (list #{out\ 4156}# |
65dd9e38 | 13169 | (cons '#(syntax-object |
f42d8bd8 | 13170 | begin |
65dd9e38 AW |
13171 | ((top) |
13172 | #(ribcage | |
13173 | #(_ out in e1 e2) | |
13174 | #((top) | |
13175 | (top) | |
13176 | (top) | |
13177 | (top) | |
13178 | (top)) | |
fb6e61ca AW |
13179 | #("i4150" |
13180 | "i4151" | |
13181 | "i4152" | |
13182 | "i4153" | |
13183 | "i4154")) | |
65dd9e38 AW |
13184 | #(ribcage () () ()) |
13185 | #(ribcage | |
13186 | #(x) | |
13187 | #((top)) | |
fb6e61ca | 13188 | #("i4127"))) |
65dd9e38 | 13189 | (hygiene guile)) |
fb6e61ca AW |
13190 | (cons #{e1\ 4158}# |
13191 | #{e2\ 4159}#))))) | |
13192 | #{tmp\ 4149}#) | |
f42d8bd8 AW |
13193 | (syntax-violation |
13194 | #f | |
13195 | "source expression failed to match any pattern" | |
fb6e61ca | 13196 | #{tmp\ 4128}#))) |
f42d8bd8 | 13197 | ($sc-dispatch |
fb6e61ca | 13198 | #{tmp\ 4128}# |
f42d8bd8 AW |
13199 | '(any #(each (any any)) any . each-any))))) |
13200 | ($sc-dispatch | |
fb6e61ca | 13201 | #{tmp\ 4128}# |
f42d8bd8 AW |
13202 | '(any ((any any)) any . each-any))))) |
13203 | ($sc-dispatch | |
fb6e61ca | 13204 | #{tmp\ 4128}# |
f42d8bd8 | 13205 | '(any () any . each-any)))) |
fb6e61ca | 13206 | #{x\ 4126}#)))) |
65dd9e38 AW |
13207 | |
13208 | (define syntax-rules | |
e809758a AW |
13209 | (make-syntax-transformer |
13210 | 'syntax-rules | |
65dd9e38 | 13211 | 'macro |
fb6e61ca AW |
13212 | (lambda (#{x\ 4163}#) |
13213 | ((lambda (#{tmp\ 4165}#) | |
13214 | ((lambda (#{tmp\ 4166}#) | |
13215 | (if #{tmp\ 4166}# | |
13216 | (apply (lambda (#{_\ 4172}# | |
13217 | #{k\ 4173}# | |
13218 | #{keyword\ 4174}# | |
13219 | #{pattern\ 4175}# | |
13220 | #{template\ 4176}#) | |
f42d8bd8 AW |
13221 | (list '#(syntax-object |
13222 | lambda | |
13223 | ((top) | |
13224 | #(ribcage | |
13225 | #(_ k keyword pattern template) | |
13226 | #((top) (top) (top) (top) (top)) | |
fb6e61ca | 13227 | #("i4167" "i4168" "i4169" "i4170" "i4171")) |
f42d8bd8 | 13228 | #(ribcage () () ()) |
fb6e61ca | 13229 | #(ribcage #(x) #((top)) #("i4164"))) |
f42d8bd8 AW |
13230 | (hygiene guile)) |
13231 | '(#(syntax-object | |
13232 | x | |
13233 | ((top) | |
13234 | #(ribcage | |
13235 | #(_ k keyword pattern template) | |
13236 | #((top) (top) (top) (top) (top)) | |
fb6e61ca | 13237 | #("i4167" "i4168" "i4169" "i4170" "i4171")) |
f42d8bd8 | 13238 | #(ribcage () () ()) |
fb6e61ca | 13239 | #(ribcage #(x) #((top)) #("i4164"))) |
f42d8bd8 AW |
13240 | (hygiene guile))) |
13241 | (vector | |
13242 | '(#(syntax-object | |
13243 | macro-type | |
13244 | ((top) | |
13245 | #(ribcage | |
13246 | #(_ k keyword pattern template) | |
13247 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13248 | #("i4167" |
13249 | "i4168" | |
13250 | "i4169" | |
13251 | "i4170" | |
13252 | "i4171")) | |
f42d8bd8 | 13253 | #(ribcage () () ()) |
fb6e61ca | 13254 | #(ribcage #(x) #((top)) #("i4164"))) |
f42d8bd8 AW |
13255 | (hygiene guile)) |
13256 | . | |
13257 | #(syntax-object | |
13258 | syntax-rules | |
13259 | ((top) | |
13260 | #(ribcage | |
13261 | #(_ k keyword pattern template) | |
13262 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13263 | #("i4167" |
13264 | "i4168" | |
13265 | "i4169" | |
13266 | "i4170" | |
13267 | "i4171")) | |
f42d8bd8 | 13268 | #(ribcage () () ()) |
fb6e61ca | 13269 | #(ribcage #(x) #((top)) #("i4164"))) |
f42d8bd8 AW |
13270 | (hygiene guile))) |
13271 | (cons '#(syntax-object | |
13272 | patterns | |
13273 | ((top) | |
13274 | #(ribcage | |
13275 | #(_ k keyword pattern template) | |
13276 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13277 | #("i4167" |
13278 | "i4168" | |
13279 | "i4169" | |
13280 | "i4170" | |
13281 | "i4171")) | |
f42d8bd8 | 13282 | #(ribcage () () ()) |
fb6e61ca | 13283 | #(ribcage #(x) #((top)) #("i4164"))) |
f42d8bd8 | 13284 | (hygiene guile)) |
fb6e61ca | 13285 | #{pattern\ 4175}#)) |
f42d8bd8 AW |
13286 | (cons '#(syntax-object |
13287 | syntax-case | |
65dd9e38 AW |
13288 | ((top) |
13289 | #(ribcage | |
13290 | #(_ k keyword pattern template) | |
13291 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13292 | #("i4167" |
13293 | "i4168" | |
13294 | "i4169" | |
13295 | "i4170" | |
13296 | "i4171")) | |
65dd9e38 | 13297 | #(ribcage () () ()) |
fb6e61ca | 13298 | #(ribcage #(x) #((top)) #("i4164"))) |
65dd9e38 AW |
13299 | (hygiene guile)) |
13300 | (cons '#(syntax-object | |
f42d8bd8 | 13301 | x |
65dd9e38 AW |
13302 | ((top) |
13303 | #(ribcage | |
13304 | #(_ k keyword pattern template) | |
13305 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
13306 | #("i4167" |
13307 | "i4168" | |
13308 | "i4169" | |
13309 | "i4170" | |
13310 | "i4171")) | |
65dd9e38 | 13311 | #(ribcage () () ()) |
f6a8e791 AW |
13312 | #(ribcage |
13313 | #(x) | |
13314 | #((top)) | |
fb6e61ca | 13315 | #("i4164"))) |
65dd9e38 | 13316 | (hygiene guile)) |
fb6e61ca AW |
13317 | (cons #{k\ 4173}# |
13318 | (map (lambda (#{tmp\ 4180}# | |
13319 | #{tmp\ 4179}#) | |
f42d8bd8 AW |
13320 | (list (cons '#(syntax-object |
13321 | dummy | |
13322 | ((top) | |
13323 | #(ribcage | |
13324 | #(_ | |
13325 | k | |
13326 | keyword | |
13327 | pattern | |
13328 | template) | |
13329 | #((top) | |
13330 | (top) | |
13331 | (top) | |
13332 | (top) | |
13333 | (top)) | |
fb6e61ca AW |
13334 | #("i4167" |
13335 | "i4168" | |
13336 | "i4169" | |
13337 | "i4170" | |
13338 | "i4171")) | |
f42d8bd8 AW |
13339 | #(ribcage |
13340 | () | |
13341 | () | |
13342 | ()) | |
13343 | #(ribcage | |
13344 | #(x) | |
13345 | #((top)) | |
fb6e61ca | 13346 | #("i4164"))) |
f42d8bd8 AW |
13347 | (hygiene |
13348 | guile)) | |
fb6e61ca | 13349 | #{tmp\ 4179}#) |
f42d8bd8 AW |
13350 | (list '#(syntax-object |
13351 | syntax | |
13352 | ((top) | |
13353 | #(ribcage | |
13354 | #(_ | |
13355 | k | |
13356 | keyword | |
13357 | pattern | |
13358 | template) | |
13359 | #((top) | |
13360 | (top) | |
13361 | (top) | |
13362 | (top) | |
13363 | (top)) | |
fb6e61ca AW |
13364 | #("i4167" |
13365 | "i4168" | |
13366 | "i4169" | |
13367 | "i4170" | |
13368 | "i4171")) | |
f42d8bd8 AW |
13369 | #(ribcage |
13370 | () | |
13371 | () | |
13372 | ()) | |
13373 | #(ribcage | |
13374 | #(x) | |
13375 | #((top)) | |
fb6e61ca | 13376 | #("i4164"))) |
f42d8bd8 AW |
13377 | (hygiene |
13378 | guile)) | |
fb6e61ca AW |
13379 | #{tmp\ 4180}#))) |
13380 | #{template\ 4176}# | |
13381 | #{pattern\ 4175}#)))))) | |
13382 | #{tmp\ 4166}#) | |
f42d8bd8 AW |
13383 | (syntax-violation |
13384 | #f | |
13385 | "source expression failed to match any pattern" | |
fb6e61ca | 13386 | #{tmp\ 4165}#))) |
f42d8bd8 | 13387 | ($sc-dispatch |
fb6e61ca | 13388 | #{tmp\ 4165}# |
f42d8bd8 | 13389 | '(any each-any . #(each ((any . any) any)))))) |
fb6e61ca | 13390 | #{x\ 4163}#)))) |
b9434165 LC |
13391 | |
13392 | (define let* | |
e809758a AW |
13393 | (make-syntax-transformer |
13394 | 'let* | |
b9434165 | 13395 | 'macro |
fb6e61ca AW |
13396 | (lambda (#{x\ 4181}#) |
13397 | ((lambda (#{tmp\ 4183}#) | |
13398 | ((lambda (#{tmp\ 4184}#) | |
13399 | (if (if #{tmp\ 4184}# | |
13400 | (apply (lambda (#{let*\ 4190}# | |
13401 | #{x\ 4191}# | |
13402 | #{v\ 4192}# | |
13403 | #{e1\ 4193}# | |
13404 | #{e2\ 4194}#) | |
13405 | (and-map identifier? #{x\ 4191}#)) | |
13406 | #{tmp\ 4184}#) | |
f42d8bd8 | 13407 | #f) |
fb6e61ca AW |
13408 | (apply (lambda (#{let*\ 4201}# |
13409 | #{x\ 4202}# | |
13410 | #{v\ 4203}# | |
13411 | #{e1\ 4204}# | |
13412 | #{e2\ 4205}#) | |
13413 | (letrec ((#{f\ 4208}# | |
13414 | (lambda (#{bindings\ 4209}#) | |
13415 | (if (null? #{bindings\ 4209}#) | |
f42d8bd8 AW |
13416 | (cons '#(syntax-object |
13417 | let | |
13418 | ((top) | |
13419 | #(ribcage () () ()) | |
13420 | #(ribcage | |
13421 | #(f bindings) | |
13422 | #((top) (top)) | |
fb6e61ca | 13423 | #("i4206" "i4207")) |
f42d8bd8 AW |
13424 | #(ribcage |
13425 | #(let* x v e1 e2) | |
13426 | #((top) | |
13427 | (top) | |
13428 | (top) | |
13429 | (top) | |
13430 | (top)) | |
fb6e61ca AW |
13431 | #("i4196" |
13432 | "i4197" | |
13433 | "i4198" | |
13434 | "i4199" | |
13435 | "i4200")) | |
f42d8bd8 AW |
13436 | #(ribcage () () ()) |
13437 | #(ribcage | |
13438 | #(x) | |
13439 | #((top)) | |
fb6e61ca | 13440 | #("i4182"))) |
f42d8bd8 AW |
13441 | (hygiene guile)) |
13442 | (cons '() | |
fb6e61ca AW |
13443 | (cons #{e1\ 4204}# |
13444 | #{e2\ 4205}#))) | |
13445 | ((lambda (#{tmp\ 4214}#) | |
13446 | ((lambda (#{tmp\ 4215}#) | |
13447 | (if #{tmp\ 4215}# | |
13448 | (apply (lambda (#{body\ 4218}# | |
13449 | #{binding\ 4219}#) | |
f42d8bd8 AW |
13450 | (list '#(syntax-object |
13451 | let | |
13452 | ((top) | |
13453 | #(ribcage | |
13454 | #(body | |
13455 | binding) | |
13456 | #((top) | |
13457 | (top)) | |
fb6e61ca AW |
13458 | #("i4216" |
13459 | "i4217")) | |
f42d8bd8 AW |
13460 | #(ribcage |
13461 | () | |
13462 | () | |
13463 | ()) | |
13464 | #(ribcage | |
13465 | #(f | |
13466 | bindings) | |
13467 | #((top) | |
13468 | (top)) | |
fb6e61ca AW |
13469 | #("i4206" |
13470 | "i4207")) | |
f42d8bd8 AW |
13471 | #(ribcage |
13472 | #(let* | |
13473 | x | |
13474 | v | |
13475 | e1 | |
13476 | e2) | |
13477 | #((top) | |
13478 | (top) | |
13479 | (top) | |
13480 | (top) | |
13481 | (top)) | |
fb6e61ca AW |
13482 | #("i4196" |
13483 | "i4197" | |
13484 | "i4198" | |
13485 | "i4199" | |
13486 | "i4200")) | |
f42d8bd8 AW |
13487 | #(ribcage |
13488 | () | |
13489 | () | |
13490 | ()) | |
13491 | #(ribcage | |
13492 | #(x) | |
13493 | #((top)) | |
fb6e61ca | 13494 | #("i4182"))) |
f42d8bd8 AW |
13495 | (hygiene |
13496 | guile)) | |
fb6e61ca AW |
13497 | (list #{binding\ 4219}#) |
13498 | #{body\ 4218}#)) | |
13499 | #{tmp\ 4215}#) | |
f42d8bd8 AW |
13500 | (syntax-violation |
13501 | #f | |
13502 | "source expression failed to match any pattern" | |
fb6e61ca | 13503 | #{tmp\ 4214}#))) |
f42d8bd8 | 13504 | ($sc-dispatch |
fb6e61ca | 13505 | #{tmp\ 4214}# |
f42d8bd8 | 13506 | '(any any)))) |
fb6e61ca AW |
13507 | (list (#{f\ 4208}# |
13508 | (cdr #{bindings\ 4209}#)) | |
13509 | (car #{bindings\ 4209}#))))))) | |
13510 | (#{f\ 4208}# (map list #{x\ 4202}# #{v\ 4203}#)))) | |
13511 | #{tmp\ 4184}#) | |
f42d8bd8 AW |
13512 | (syntax-violation |
13513 | #f | |
13514 | "source expression failed to match any pattern" | |
fb6e61ca | 13515 | #{tmp\ 4183}#))) |
f42d8bd8 | 13516 | ($sc-dispatch |
fb6e61ca | 13517 | #{tmp\ 4183}# |
f42d8bd8 | 13518 | '(any #(each (any any)) any . each-any)))) |
fb6e61ca | 13519 | #{x\ 4181}#)))) |
65dd9e38 AW |
13520 | |
13521 | (define do | |
e809758a AW |
13522 | (make-syntax-transformer |
13523 | 'do | |
65dd9e38 | 13524 | 'macro |
fb6e61ca AW |
13525 | (lambda (#{orig-x\ 4220}#) |
13526 | ((lambda (#{tmp\ 4222}#) | |
13527 | ((lambda (#{tmp\ 4223}#) | |
13528 | (if #{tmp\ 4223}# | |
13529 | (apply (lambda (#{_\ 4231}# | |
13530 | #{var\ 4232}# | |
13531 | #{init\ 4233}# | |
13532 | #{step\ 4234}# | |
13533 | #{e0\ 4235}# | |
13534 | #{e1\ 4236}# | |
13535 | #{c\ 4237}#) | |
13536 | ((lambda (#{tmp\ 4239}#) | |
13537 | ((lambda (#{tmp\ 4240}#) | |
13538 | (if #{tmp\ 4240}# | |
13539 | (apply (lambda (#{step\ 4242}#) | |
13540 | ((lambda (#{tmp\ 4243}#) | |
13541 | ((lambda (#{tmp\ 4244}#) | |
13542 | (if #{tmp\ 4244}# | |
f42d8bd8 AW |
13543 | (apply (lambda () |
13544 | (list '#(syntax-object | |
13545 | let | |
13546 | ((top) | |
13547 | #(ribcage | |
13548 | #(step) | |
13549 | #((top)) | |
fb6e61ca | 13550 | #("i4241")) |
f42d8bd8 AW |
13551 | #(ribcage |
13552 | #(_ | |
13553 | var | |
13554 | init | |
13555 | step | |
13556 | e0 | |
13557 | e1 | |
13558 | c) | |
13559 | #((top) | |
13560 | (top) | |
13561 | (top) | |
13562 | (top) | |
13563 | (top) | |
13564 | (top) | |
13565 | (top)) | |
fb6e61ca AW |
13566 | #("i4224" |
13567 | "i4225" | |
13568 | "i4226" | |
13569 | "i4227" | |
13570 | "i4228" | |
13571 | "i4229" | |
13572 | "i4230")) | |
f42d8bd8 AW |
13573 | #(ribcage |
13574 | () | |
13575 | () | |
13576 | ()) | |
13577 | #(ribcage | |
13578 | #(orig-x) | |
13579 | #((top)) | |
fb6e61ca | 13580 | #("i4221"))) |
f42d8bd8 AW |
13581 | (hygiene |
13582 | guile)) | |
13583 | '#(syntax-object | |
13584 | doloop | |
13585 | ((top) | |
13586 | #(ribcage | |
13587 | #(step) | |
13588 | #((top)) | |
fb6e61ca | 13589 | #("i4241")) |
f42d8bd8 AW |
13590 | #(ribcage |
13591 | #(_ | |
13592 | var | |
13593 | init | |
13594 | step | |
13595 | e0 | |
13596 | e1 | |
13597 | c) | |
13598 | #((top) | |
13599 | (top) | |
13600 | (top) | |
13601 | (top) | |
13602 | (top) | |
13603 | (top) | |
13604 | (top)) | |
fb6e61ca AW |
13605 | #("i4224" |
13606 | "i4225" | |
13607 | "i4226" | |
13608 | "i4227" | |
13609 | "i4228" | |
13610 | "i4229" | |
13611 | "i4230")) | |
f42d8bd8 AW |
13612 | #(ribcage |
13613 | () | |
13614 | () | |
13615 | ()) | |
13616 | #(ribcage | |
13617 | #(orig-x) | |
13618 | #((top)) | |
fb6e61ca | 13619 | #("i4221"))) |
f42d8bd8 AW |
13620 | (hygiene |
13621 | guile)) | |
13622 | (map list | |
fb6e61ca AW |
13623 | #{var\ 4232}# |
13624 | #{init\ 4233}#) | |
65dd9e38 | 13625 | (list '#(syntax-object |
f42d8bd8 | 13626 | if |
65dd9e38 AW |
13627 | ((top) |
13628 | #(ribcage | |
13629 | #(step) | |
13630 | #((top)) | |
fb6e61ca | 13631 | #("i4241")) |
65dd9e38 AW |
13632 | #(ribcage |
13633 | #(_ | |
13634 | var | |
13635 | init | |
13636 | step | |
13637 | e0 | |
13638 | e1 | |
13639 | c) | |
13640 | #((top) | |
13641 | (top) | |
13642 | (top) | |
13643 | (top) | |
13644 | (top) | |
13645 | (top) | |
13646 | (top)) | |
fb6e61ca AW |
13647 | #("i4224" |
13648 | "i4225" | |
13649 | "i4226" | |
13650 | "i4227" | |
13651 | "i4228" | |
13652 | "i4229" | |
13653 | "i4230")) | |
65dd9e38 AW |
13654 | #(ribcage |
13655 | () | |
13656 | () | |
13657 | ()) | |
13658 | #(ribcage | |
13659 | #(orig-x) | |
13660 | #((top)) | |
fb6e61ca | 13661 | #("i4221"))) |
65dd9e38 AW |
13662 | (hygiene |
13663 | guile)) | |
5f161164 | 13664 | (list '#(syntax-object |
f42d8bd8 AW |
13665 | not |
13666 | ((top) | |
13667 | #(ribcage | |
13668 | #(step) | |
13669 | #((top)) | |
fb6e61ca | 13670 | #("i4241")) |
f42d8bd8 AW |
13671 | #(ribcage |
13672 | #(_ | |
13673 | var | |
13674 | init | |
13675 | step | |
13676 | e0 | |
13677 | e1 | |
13678 | c) | |
13679 | #((top) | |
13680 | (top) | |
13681 | (top) | |
13682 | (top) | |
13683 | (top) | |
13684 | (top) | |
13685 | (top)) | |
fb6e61ca AW |
13686 | #("i4224" |
13687 | "i4225" | |
13688 | "i4226" | |
13689 | "i4227" | |
13690 | "i4228" | |
13691 | "i4229" | |
13692 | "i4230")) | |
f42d8bd8 AW |
13693 | #(ribcage |
13694 | () | |
13695 | () | |
13696 | ()) | |
13697 | #(ribcage | |
13698 | #(orig-x) | |
13699 | #((top)) | |
fb6e61ca | 13700 | #("i4221"))) |
f42d8bd8 AW |
13701 | (hygiene |
13702 | guile)) | |
fb6e61ca | 13703 | #{e0\ 4235}#) |
f42d8bd8 AW |
13704 | (cons '#(syntax-object |
13705 | begin | |
65dd9e38 AW |
13706 | ((top) |
13707 | #(ribcage | |
13708 | #(step) | |
13709 | #((top)) | |
fb6e61ca | 13710 | #("i4241")) |
65dd9e38 AW |
13711 | #(ribcage |
13712 | #(_ | |
13713 | var | |
13714 | init | |
13715 | step | |
13716 | e0 | |
13717 | e1 | |
13718 | c) | |
13719 | #((top) | |
13720 | (top) | |
13721 | (top) | |
13722 | (top) | |
13723 | (top) | |
13724 | (top) | |
13725 | (top)) | |
fb6e61ca AW |
13726 | #("i4224" |
13727 | "i4225" | |
13728 | "i4226" | |
13729 | "i4227" | |
13730 | "i4228" | |
13731 | "i4229" | |
13732 | "i4230")) | |
65dd9e38 AW |
13733 | #(ribcage |
13734 | () | |
13735 | () | |
13736 | ()) | |
13737 | #(ribcage | |
13738 | #(orig-x) | |
13739 | #((top)) | |
fb6e61ca | 13740 | #("i4221"))) |
65dd9e38 AW |
13741 | (hygiene |
13742 | guile)) | |
f42d8bd8 | 13743 | (append |
fb6e61ca | 13744 | #{c\ 4237}# |
f42d8bd8 AW |
13745 | (list (cons '#(syntax-object |
13746 | doloop | |
13747 | ((top) | |
13748 | #(ribcage | |
13749 | #(step) | |
13750 | #((top)) | |
fb6e61ca | 13751 | #("i4241")) |
f42d8bd8 AW |
13752 | #(ribcage |
13753 | #(_ | |
13754 | var | |
13755 | init | |
13756 | step | |
13757 | e0 | |
13758 | e1 | |
13759 | c) | |
13760 | #((top) | |
13761 | (top) | |
13762 | (top) | |
13763 | (top) | |
13764 | (top) | |
13765 | (top) | |
13766 | (top)) | |
fb6e61ca AW |
13767 | #("i4224" |
13768 | "i4225" | |
13769 | "i4226" | |
13770 | "i4227" | |
13771 | "i4228" | |
13772 | "i4229" | |
13773 | "i4230")) | |
f42d8bd8 AW |
13774 | #(ribcage |
13775 | () | |
13776 | () | |
13777 | ()) | |
13778 | #(ribcage | |
13779 | #(orig-x) | |
13780 | #((top)) | |
fb6e61ca | 13781 | #("i4221"))) |
f42d8bd8 AW |
13782 | (hygiene |
13783 | guile)) | |
fb6e61ca AW |
13784 | #{step\ 4242}#))))))) |
13785 | #{tmp\ 4244}#) | |
13786 | ((lambda (#{tmp\ 4249}#) | |
13787 | (if #{tmp\ 4249}# | |
13788 | (apply (lambda (#{e1\ 4252}# | |
13789 | #{e2\ 4253}#) | |
f42d8bd8 AW |
13790 | (list '#(syntax-object |
13791 | let | |
13792 | ((top) | |
13793 | #(ribcage | |
13794 | #(e1 | |
13795 | e2) | |
13796 | #((top) | |
13797 | (top)) | |
fb6e61ca AW |
13798 | #("i4250" |
13799 | "i4251")) | |
f42d8bd8 AW |
13800 | #(ribcage |
13801 | #(step) | |
13802 | #((top)) | |
fb6e61ca | 13803 | #("i4241")) |
f42d8bd8 AW |
13804 | #(ribcage |
13805 | #(_ | |
13806 | var | |
13807 | init | |
13808 | step | |
13809 | e0 | |
13810 | e1 | |
13811 | c) | |
13812 | #((top) | |
13813 | (top) | |
13814 | (top) | |
13815 | (top) | |
13816 | (top) | |
13817 | (top) | |
13818 | (top)) | |
fb6e61ca AW |
13819 | #("i4224" |
13820 | "i4225" | |
13821 | "i4226" | |
13822 | "i4227" | |
13823 | "i4228" | |
13824 | "i4229" | |
13825 | "i4230")) | |
f42d8bd8 AW |
13826 | #(ribcage |
13827 | () | |
13828 | () | |
13829 | ()) | |
13830 | #(ribcage | |
13831 | #(orig-x) | |
13832 | #((top)) | |
fb6e61ca | 13833 | #("i4221"))) |
f42d8bd8 AW |
13834 | (hygiene |
13835 | guile)) | |
13836 | '#(syntax-object | |
13837 | doloop | |
13838 | ((top) | |
13839 | #(ribcage | |
13840 | #(e1 | |
13841 | e2) | |
13842 | #((top) | |
13843 | (top)) | |
fb6e61ca AW |
13844 | #("i4250" |
13845 | "i4251")) | |
f42d8bd8 AW |
13846 | #(ribcage |
13847 | #(step) | |
13848 | #((top)) | |
fb6e61ca | 13849 | #("i4241")) |
f42d8bd8 AW |
13850 | #(ribcage |
13851 | #(_ | |
13852 | var | |
13853 | init | |
13854 | step | |
13855 | e0 | |
13856 | e1 | |
13857 | c) | |
13858 | #((top) | |
13859 | (top) | |
13860 | (top) | |
13861 | (top) | |
13862 | (top) | |
13863 | (top) | |
13864 | (top)) | |
fb6e61ca AW |
13865 | #("i4224" |
13866 | "i4225" | |
13867 | "i4226" | |
13868 | "i4227" | |
13869 | "i4228" | |
13870 | "i4229" | |
13871 | "i4230")) | |
f42d8bd8 AW |
13872 | #(ribcage |
13873 | () | |
13874 | () | |
13875 | ()) | |
13876 | #(ribcage | |
13877 | #(orig-x) | |
13878 | #((top)) | |
fb6e61ca | 13879 | #("i4221"))) |
f42d8bd8 AW |
13880 | (hygiene |
13881 | guile)) | |
13882 | (map list | |
fb6e61ca AW |
13883 | #{var\ 4232}# |
13884 | #{init\ 4233}#) | |
65dd9e38 | 13885 | (list '#(syntax-object |
f42d8bd8 | 13886 | if |
5f161164 AW |
13887 | ((top) |
13888 | #(ribcage | |
13889 | #(e1 | |
13890 | e2) | |
13891 | #((top) | |
13892 | (top)) | |
fb6e61ca AW |
13893 | #("i4250" |
13894 | "i4251")) | |
5f161164 AW |
13895 | #(ribcage |
13896 | #(step) | |
13897 | #((top)) | |
fb6e61ca | 13898 | #("i4241")) |
5f161164 AW |
13899 | #(ribcage |
13900 | #(_ | |
13901 | var | |
13902 | init | |
13903 | step | |
13904 | e0 | |
13905 | e1 | |
13906 | c) | |
13907 | #((top) | |
13908 | (top) | |
13909 | (top) | |
13910 | (top) | |
13911 | (top) | |
13912 | (top) | |
13913 | (top)) | |
fb6e61ca AW |
13914 | #("i4224" |
13915 | "i4225" | |
13916 | "i4226" | |
13917 | "i4227" | |
13918 | "i4228" | |
13919 | "i4229" | |
13920 | "i4230")) | |
5f161164 AW |
13921 | #(ribcage |
13922 | () | |
13923 | () | |
13924 | ()) | |
13925 | #(ribcage | |
13926 | #(orig-x) | |
13927 | #((top)) | |
fb6e61ca | 13928 | #("i4221"))) |
5f161164 AW |
13929 | (hygiene |
13930 | guile)) | |
fb6e61ca | 13931 | #{e0\ 4235}# |
f42d8bd8 AW |
13932 | (cons '#(syntax-object |
13933 | begin | |
65dd9e38 AW |
13934 | ((top) |
13935 | #(ribcage | |
13936 | #(e1 | |
13937 | e2) | |
13938 | #((top) | |
13939 | (top)) | |
fb6e61ca AW |
13940 | #("i4250" |
13941 | "i4251")) | |
65dd9e38 AW |
13942 | #(ribcage |
13943 | #(step) | |
13944 | #((top)) | |
fb6e61ca | 13945 | #("i4241")) |
65dd9e38 AW |
13946 | #(ribcage |
13947 | #(_ | |
13948 | var | |
13949 | init | |
13950 | step | |
13951 | e0 | |
13952 | e1 | |
13953 | c) | |
13954 | #((top) | |
13955 | (top) | |
13956 | (top) | |
13957 | (top) | |
13958 | (top) | |
13959 | (top) | |
13960 | (top)) | |
fb6e61ca AW |
13961 | #("i4224" |
13962 | "i4225" | |
13963 | "i4226" | |
13964 | "i4227" | |
13965 | "i4228" | |
13966 | "i4229" | |
13967 | "i4230")) | |
65dd9e38 AW |
13968 | #(ribcage |
13969 | () | |
13970 | () | |
13971 | ()) | |
13972 | #(ribcage | |
13973 | #(orig-x) | |
13974 | #((top)) | |
fb6e61ca | 13975 | #("i4221"))) |
65dd9e38 AW |
13976 | (hygiene |
13977 | guile)) | |
fb6e61ca AW |
13978 | (cons #{e1\ 4252}# |
13979 | #{e2\ 4253}#)) | |
f42d8bd8 AW |
13980 | (cons '#(syntax-object |
13981 | begin | |
65dd9e38 AW |
13982 | ((top) |
13983 | #(ribcage | |
f42d8bd8 AW |
13984 | #(e1 |
13985 | e2) | |
13986 | #((top) | |
13987 | (top)) | |
fb6e61ca AW |
13988 | #("i4250" |
13989 | "i4251")) | |
65dd9e38 | 13990 | #(ribcage |
f42d8bd8 | 13991 | #(step) |
65dd9e38 | 13992 | #((top)) |
fb6e61ca | 13993 | #("i4241")) |
65dd9e38 | 13994 | #(ribcage |
f42d8bd8 AW |
13995 | #(_ |
13996 | var | |
13997 | init | |
13998 | step | |
13999 | e0 | |
14000 | e1 | |
14001 | c) | |
65dd9e38 | 14002 | #((top) |
f42d8bd8 AW |
14003 | (top) |
14004 | (top) | |
14005 | (top) | |
14006 | (top) | |
14007 | (top) | |
65dd9e38 | 14008 | (top)) |
fb6e61ca AW |
14009 | #("i4224" |
14010 | "i4225" | |
14011 | "i4226" | |
14012 | "i4227" | |
14013 | "i4228" | |
14014 | "i4229" | |
14015 | "i4230")) | |
65dd9e38 | 14016 | #(ribcage |
5f161164 AW |
14017 | () |
14018 | () | |
14019 | ()) | |
14020 | #(ribcage | |
f42d8bd8 AW |
14021 | #(orig-x) |
14022 | #((top)) | |
fb6e61ca | 14023 | #("i4221"))) |
65dd9e38 AW |
14024 | (hygiene |
14025 | guile)) | |
f42d8bd8 | 14026 | (append |
fb6e61ca | 14027 | #{c\ 4237}# |
f42d8bd8 AW |
14028 | (list (cons '#(syntax-object |
14029 | doloop | |
14030 | ((top) | |
14031 | #(ribcage | |
14032 | #(e1 | |
14033 | e2) | |
14034 | #((top) | |
14035 | (top)) | |
fb6e61ca AW |
14036 | #("i4250" |
14037 | "i4251")) | |
f42d8bd8 AW |
14038 | #(ribcage |
14039 | #(step) | |
14040 | #((top)) | |
fb6e61ca | 14041 | #("i4241")) |
f42d8bd8 AW |
14042 | #(ribcage |
14043 | #(_ | |
14044 | var | |
14045 | init | |
14046 | step | |
14047 | e0 | |
14048 | e1 | |
14049 | c) | |
14050 | #((top) | |
14051 | (top) | |
14052 | (top) | |
14053 | (top) | |
14054 | (top) | |
14055 | (top) | |
14056 | (top)) | |
fb6e61ca AW |
14057 | #("i4224" |
14058 | "i4225" | |
14059 | "i4226" | |
14060 | "i4227" | |
14061 | "i4228" | |
14062 | "i4229" | |
14063 | "i4230")) | |
f42d8bd8 AW |
14064 | #(ribcage |
14065 | () | |
14066 | () | |
14067 | ()) | |
14068 | #(ribcage | |
14069 | #(orig-x) | |
14070 | #((top)) | |
fb6e61ca | 14071 | #("i4221"))) |
f42d8bd8 AW |
14072 | (hygiene |
14073 | guile)) | |
fb6e61ca AW |
14074 | #{step\ 4242}#))))))) |
14075 | #{tmp\ 4249}#) | |
f42d8bd8 AW |
14076 | (syntax-violation |
14077 | #f | |
14078 | "source expression failed to match any pattern" | |
fb6e61ca | 14079 | #{tmp\ 4243}#))) |
f42d8bd8 | 14080 | ($sc-dispatch |
fb6e61ca | 14081 | #{tmp\ 4243}# |
f42d8bd8 AW |
14082 | '(any . each-any))))) |
14083 | ($sc-dispatch | |
fb6e61ca | 14084 | #{tmp\ 4243}# |
f42d8bd8 | 14085 | '()))) |
fb6e61ca AW |
14086 | #{e1\ 4236}#)) |
14087 | #{tmp\ 4240}#) | |
f42d8bd8 AW |
14088 | (syntax-violation |
14089 | #f | |
14090 | "source expression failed to match any pattern" | |
fb6e61ca AW |
14091 | #{tmp\ 4239}#))) |
14092 | ($sc-dispatch #{tmp\ 4239}# (quote each-any)))) | |
14093 | (map (lambda (#{v\ 4260}# #{s\ 4261}#) | |
14094 | ((lambda (#{tmp\ 4264}#) | |
14095 | ((lambda (#{tmp\ 4265}#) | |
14096 | (if #{tmp\ 4265}# | |
14097 | (apply (lambda () #{v\ 4260}#) | |
14098 | #{tmp\ 4265}#) | |
14099 | ((lambda (#{tmp\ 4266}#) | |
14100 | (if #{tmp\ 4266}# | |
14101 | (apply (lambda (#{e\ 4268}#) | |
14102 | #{e\ 4268}#) | |
14103 | #{tmp\ 4266}#) | |
14104 | ((lambda (#{_\ 4270}#) | |
f42d8bd8 AW |
14105 | (syntax-violation |
14106 | 'do | |
14107 | "bad step expression" | |
fb6e61ca AW |
14108 | #{orig-x\ 4220}# |
14109 | #{s\ 4261}#)) | |
14110 | #{tmp\ 4264}#))) | |
f42d8bd8 | 14111 | ($sc-dispatch |
fb6e61ca | 14112 | #{tmp\ 4264}# |
f42d8bd8 | 14113 | '(any))))) |
fb6e61ca AW |
14114 | ($sc-dispatch #{tmp\ 4264}# (quote ())))) |
14115 | #{s\ 4261}#)) | |
14116 | #{var\ 4232}# | |
14117 | #{step\ 4234}#))) | |
14118 | #{tmp\ 4223}#) | |
f42d8bd8 AW |
14119 | (syntax-violation |
14120 | #f | |
14121 | "source expression failed to match any pattern" | |
fb6e61ca | 14122 | #{tmp\ 4222}#))) |
f42d8bd8 | 14123 | ($sc-dispatch |
fb6e61ca | 14124 | #{tmp\ 4222}# |
f42d8bd8 AW |
14125 | '(any #(each (any any . any)) |
14126 | (any . each-any) | |
14127 | . | |
14128 | each-any)))) | |
fb6e61ca | 14129 | #{orig-x\ 4220}#)))) |
f42d8bd8 AW |
14130 | |
14131 | (define quasiquote | |
14132 | (make-syntax-transformer | |
14133 | 'quasiquote | |
14134 | 'macro | |
fb6e61ca AW |
14135 | (letrec ((#{quasicons\ 4277}# |
14136 | (lambda (#{x\ 4281}# #{y\ 4282}#) | |
14137 | ((lambda (#{tmp\ 4286}#) | |
14138 | ((lambda (#{tmp\ 4287}#) | |
14139 | (if #{tmp\ 4287}# | |
14140 | (apply (lambda (#{x\ 4290}# #{y\ 4291}#) | |
14141 | ((lambda (#{tmp\ 4292}#) | |
14142 | ((lambda (#{tmp\ 4293}#) | |
14143 | (if #{tmp\ 4293}# | |
14144 | (apply (lambda (#{dy\ 4295}#) | |
14145 | ((lambda (#{tmp\ 4296}#) | |
14146 | ((lambda (#{tmp\ 4297}#) | |
14147 | (if #{tmp\ 4297}# | |
14148 | (apply (lambda (#{dx\ 4299}#) | |
f42d8bd8 AW |
14149 | (list '#(syntax-object |
14150 | quote | |
14151 | ((top) | |
14152 | #(ribcage | |
14153 | #(dx) | |
14154 | #((top)) | |
fb6e61ca | 14155 | #("i4298")) |
f42d8bd8 AW |
14156 | #(ribcage |
14157 | #(dy) | |
14158 | #((top)) | |
fb6e61ca | 14159 | #("i4294")) |
f42d8bd8 AW |
14160 | #(ribcage |
14161 | #(x | |
14162 | y) | |
14163 | #((top) | |
14164 | (top)) | |
fb6e61ca AW |
14165 | #("i4288" |
14166 | "i4289")) | |
f42d8bd8 AW |
14167 | #(ribcage |
14168 | () | |
14169 | () | |
14170 | ()) | |
14171 | #(ribcage | |
14172 | () | |
14173 | () | |
14174 | ()) | |
14175 | #(ribcage | |
14176 | #(x | |
14177 | y) | |
14178 | #((top) | |
14179 | (top)) | |
fb6e61ca AW |
14180 | #("i4283" |
14181 | "i4284")) | |
f42d8bd8 AW |
14182 | #(ribcage |
14183 | #(quasicons | |
14184 | quasiappend | |
14185 | quasivector | |
14186 | quasi) | |
14187 | #((top) | |
14188 | (top) | |
14189 | (top) | |
14190 | (top)) | |
fb6e61ca AW |
14191 | #("i4273" |
14192 | "i4274" | |
14193 | "i4275" | |
14194 | "i4276"))) | |
f42d8bd8 AW |
14195 | (hygiene |
14196 | guile)) | |
fb6e61ca AW |
14197 | (cons #{dx\ 4299}# |
14198 | #{dy\ 4295}#))) | |
14199 | #{tmp\ 4297}#) | |
14200 | ((lambda (#{_\ 4301}#) | |
14201 | (if (null? #{dy\ 4295}#) | |
f42d8bd8 AW |
14202 | (list '#(syntax-object |
14203 | list | |
14204 | ((top) | |
14205 | #(ribcage | |
14206 | #(_) | |
14207 | #((top)) | |
fb6e61ca | 14208 | #("i4300")) |
f42d8bd8 AW |
14209 | #(ribcage |
14210 | #(dy) | |
14211 | #((top)) | |
fb6e61ca | 14212 | #("i4294")) |
f42d8bd8 AW |
14213 | #(ribcage |
14214 | #(x | |
14215 | y) | |
14216 | #((top) | |
14217 | (top)) | |
fb6e61ca AW |
14218 | #("i4288" |
14219 | "i4289")) | |
f42d8bd8 AW |
14220 | #(ribcage |
14221 | () | |
14222 | () | |
14223 | ()) | |
14224 | #(ribcage | |
14225 | () | |
14226 | () | |
14227 | ()) | |
14228 | #(ribcage | |
14229 | #(x | |
14230 | y) | |
14231 | #((top) | |
14232 | (top)) | |
fb6e61ca AW |
14233 | #("i4283" |
14234 | "i4284")) | |
f42d8bd8 AW |
14235 | #(ribcage |
14236 | #(quasicons | |
14237 | quasiappend | |
14238 | quasivector | |
14239 | quasi) | |
14240 | #((top) | |
14241 | (top) | |
14242 | (top) | |
14243 | (top)) | |
fb6e61ca AW |
14244 | #("i4273" |
14245 | "i4274" | |
14246 | "i4275" | |
14247 | "i4276"))) | |
f42d8bd8 AW |
14248 | (hygiene |
14249 | guile)) | |
fb6e61ca | 14250 | #{x\ 4290}#) |
f42d8bd8 AW |
14251 | (list '#(syntax-object |
14252 | cons | |
14253 | ((top) | |
14254 | #(ribcage | |
14255 | #(_) | |
14256 | #((top)) | |
fb6e61ca | 14257 | #("i4300")) |
f42d8bd8 AW |
14258 | #(ribcage |
14259 | #(dy) | |
14260 | #((top)) | |
fb6e61ca | 14261 | #("i4294")) |
f42d8bd8 AW |
14262 | #(ribcage |
14263 | #(x | |
14264 | y) | |
14265 | #((top) | |
14266 | (top)) | |
fb6e61ca AW |
14267 | #("i4288" |
14268 | "i4289")) | |
f42d8bd8 AW |
14269 | #(ribcage |
14270 | () | |
14271 | () | |
14272 | ()) | |
14273 | #(ribcage | |
14274 | () | |
14275 | () | |
14276 | ()) | |
14277 | #(ribcage | |
14278 | #(x | |
14279 | y) | |
14280 | #((top) | |
14281 | (top)) | |
fb6e61ca AW |
14282 | #("i4283" |
14283 | "i4284")) | |
f42d8bd8 AW |
14284 | #(ribcage |
14285 | #(quasicons | |
14286 | quasiappend | |
14287 | quasivector | |
14288 | quasi) | |
14289 | #((top) | |
14290 | (top) | |
14291 | (top) | |
14292 | (top)) | |
fb6e61ca AW |
14293 | #("i4273" |
14294 | "i4274" | |
14295 | "i4275" | |
14296 | "i4276"))) | |
f42d8bd8 AW |
14297 | (hygiene |
14298 | guile)) | |
fb6e61ca AW |
14299 | #{x\ 4290}# |
14300 | #{y\ 4291}#))) | |
14301 | #{tmp\ 4296}#))) | |
f42d8bd8 | 14302 | ($sc-dispatch |
fb6e61ca | 14303 | #{tmp\ 4296}# |
f42d8bd8 AW |
14304 | '(#(free-id |
14305 | #(syntax-object | |
14306 | quote | |
14307 | ((top) | |
14308 | #(ribcage | |
14309 | #(dy) | |
14310 | #((top)) | |
fb6e61ca | 14311 | #("i4294")) |
f42d8bd8 AW |
14312 | #(ribcage |
14313 | #(x y) | |
14314 | #((top) | |
14315 | (top)) | |
fb6e61ca AW |
14316 | #("i4288" |
14317 | "i4289")) | |
f42d8bd8 AW |
14318 | #(ribcage |
14319 | () | |
14320 | () | |
14321 | ()) | |
14322 | #(ribcage | |
14323 | () | |
14324 | () | |
14325 | ()) | |
14326 | #(ribcage | |
14327 | #(x y) | |
14328 | #((top) | |
14329 | (top)) | |
fb6e61ca AW |
14330 | #("i4283" |
14331 | "i4284")) | |
f42d8bd8 AW |
14332 | #(ribcage |
14333 | #(quasicons | |
14334 | quasiappend | |
14335 | quasivector | |
14336 | quasi) | |
14337 | #((top) | |
14338 | (top) | |
14339 | (top) | |
14340 | (top)) | |
fb6e61ca AW |
14341 | #("i4273" |
14342 | "i4274" | |
14343 | "i4275" | |
14344 | "i4276"))) | |
f42d8bd8 AW |
14345 | (hygiene |
14346 | guile))) | |
14347 | any)))) | |
fb6e61ca AW |
14348 | #{x\ 4290}#)) |
14349 | #{tmp\ 4293}#) | |
14350 | ((lambda (#{tmp\ 4302}#) | |
14351 | (if #{tmp\ 4302}# | |
14352 | (apply (lambda (#{stuff\ 4304}#) | |
f42d8bd8 AW |
14353 | (cons '#(syntax-object |
14354 | list | |
14355 | ((top) | |
14356 | #(ribcage | |
14357 | #(stuff) | |
14358 | #((top)) | |
fb6e61ca | 14359 | #("i4303")) |
f42d8bd8 AW |
14360 | #(ribcage |
14361 | #(x y) | |
14362 | #((top) | |
14363 | (top)) | |
fb6e61ca AW |
14364 | #("i4288" |
14365 | "i4289")) | |
f42d8bd8 AW |
14366 | #(ribcage |
14367 | () | |
14368 | () | |
14369 | ()) | |
14370 | #(ribcage | |
65dd9e38 AW |
14371 | () |
14372 | () | |
14373 | ()) | |
14374 | #(ribcage | |
14375 | #(x y) | |
14376 | #((top) | |
14377 | (top)) | |
fb6e61ca AW |
14378 | #("i4283" |
14379 | "i4284")) | |
65dd9e38 AW |
14380 | #(ribcage |
14381 | #(quasicons | |
14382 | quasiappend | |
14383 | quasivector | |
14384 | quasi) | |
14385 | #((top) | |
14386 | (top) | |
14387 | (top) | |
14388 | (top)) | |
fb6e61ca AW |
14389 | #("i4273" |
14390 | "i4274" | |
14391 | "i4275" | |
14392 | "i4276"))) | |
5f161164 AW |
14393 | (hygiene |
14394 | guile)) | |
fb6e61ca AW |
14395 | (cons #{x\ 4290}# |
14396 | #{stuff\ 4304}#))) | |
14397 | #{tmp\ 4302}#) | |
14398 | ((lambda (#{else\ 4306}#) | |
f42d8bd8 AW |
14399 | (list '#(syntax-object |
14400 | cons | |
14401 | ((top) | |
14402 | #(ribcage | |
14403 | #(else) | |
14404 | #((top)) | |
fb6e61ca | 14405 | #("i4305")) |
f42d8bd8 AW |
14406 | #(ribcage |
14407 | #(x y) | |
14408 | #((top) (top)) | |
fb6e61ca AW |
14409 | #("i4288" |
14410 | "i4289")) | |
f42d8bd8 AW |
14411 | #(ribcage () () ()) |
14412 | #(ribcage () () ()) | |
14413 | #(ribcage | |
14414 | #(x y) | |
14415 | #((top) (top)) | |
fb6e61ca AW |
14416 | #("i4283" |
14417 | "i4284")) | |
f42d8bd8 AW |
14418 | #(ribcage |
14419 | #(quasicons | |
14420 | quasiappend | |
14421 | quasivector | |
14422 | quasi) | |
14423 | #((top) | |
14424 | (top) | |
14425 | (top) | |
14426 | (top)) | |
fb6e61ca AW |
14427 | #("i4273" |
14428 | "i4274" | |
14429 | "i4275" | |
14430 | "i4276"))) | |
f42d8bd8 | 14431 | (hygiene guile)) |
fb6e61ca AW |
14432 | #{x\ 4290}# |
14433 | #{y\ 4291}#)) | |
14434 | #{tmp\ 4292}#))) | |
f42d8bd8 | 14435 | ($sc-dispatch |
fb6e61ca | 14436 | #{tmp\ 4292}# |
f42d8bd8 AW |
14437 | '(#(free-id |
14438 | #(syntax-object | |
14439 | list | |
14440 | ((top) | |
14441 | #(ribcage | |
14442 | #(x y) | |
14443 | #((top) (top)) | |
fb6e61ca | 14444 | #("i4288" "i4289")) |
f42d8bd8 AW |
14445 | #(ribcage () () ()) |
14446 | #(ribcage () () ()) | |
14447 | #(ribcage | |
14448 | #(x y) | |
14449 | #((top) (top)) | |
fb6e61ca | 14450 | #("i4283" "i4284")) |
f42d8bd8 AW |
14451 | #(ribcage |
14452 | #(quasicons | |
14453 | quasiappend | |
14454 | quasivector | |
14455 | quasi) | |
14456 | #((top) | |
14457 | (top) | |
14458 | (top) | |
14459 | (top)) | |
fb6e61ca AW |
14460 | #("i4273" |
14461 | "i4274" | |
14462 | "i4275" | |
14463 | "i4276"))) | |
f42d8bd8 AW |
14464 | (hygiene guile))) |
14465 | . | |
14466 | any))))) | |
14467 | ($sc-dispatch | |
fb6e61ca | 14468 | #{tmp\ 4292}# |
f42d8bd8 AW |
14469 | '(#(free-id |
14470 | #(syntax-object | |
14471 | quote | |
14472 | ((top) | |
14473 | #(ribcage | |
14474 | #(x y) | |
14475 | #((top) (top)) | |
fb6e61ca | 14476 | #("i4288" "i4289")) |
f42d8bd8 AW |
14477 | #(ribcage () () ()) |
14478 | #(ribcage () () ()) | |
14479 | #(ribcage | |
14480 | #(x y) | |
14481 | #((top) (top)) | |
fb6e61ca | 14482 | #("i4283" "i4284")) |
f42d8bd8 AW |
14483 | #(ribcage |
14484 | #(quasicons | |
14485 | quasiappend | |
14486 | quasivector | |
14487 | quasi) | |
14488 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14489 | #("i4273" |
14490 | "i4274" | |
14491 | "i4275" | |
14492 | "i4276"))) | |
f42d8bd8 AW |
14493 | (hygiene guile))) |
14494 | any)))) | |
fb6e61ca AW |
14495 | #{y\ 4291}#)) |
14496 | #{tmp\ 4287}#) | |
f42d8bd8 AW |
14497 | (syntax-violation |
14498 | #f | |
14499 | "source expression failed to match any pattern" | |
fb6e61ca AW |
14500 | #{tmp\ 4286}#))) |
14501 | ($sc-dispatch #{tmp\ 4286}# (quote (any any))))) | |
14502 | (list #{x\ 4281}# #{y\ 4282}#)))) | |
14503 | (#{quasiappend\ 4278}# | |
14504 | (lambda (#{x\ 4307}# #{y\ 4308}#) | |
14505 | ((lambda (#{tmp\ 4312}#) | |
14506 | ((lambda (#{tmp\ 4313}#) | |
14507 | (if #{tmp\ 4313}# | |
14508 | (apply (lambda (#{x\ 4316}# #{y\ 4317}#) | |
14509 | ((lambda (#{tmp\ 4318}#) | |
14510 | ((lambda (#{tmp\ 4319}#) | |
14511 | (if #{tmp\ 4319}# | |
14512 | (apply (lambda () #{x\ 4316}#) | |
14513 | #{tmp\ 4319}#) | |
14514 | ((lambda (#{_\ 4321}#) | |
65dd9e38 | 14515 | (list '#(syntax-object |
f42d8bd8 AW |
14516 | append |
14517 | ((top) | |
14518 | #(ribcage | |
14519 | #(_) | |
14520 | #((top)) | |
fb6e61ca | 14521 | #("i4320")) |
f42d8bd8 AW |
14522 | #(ribcage |
14523 | #(x y) | |
14524 | #((top) (top)) | |
fb6e61ca | 14525 | #("i4314" "i4315")) |
f42d8bd8 AW |
14526 | #(ribcage () () ()) |
14527 | #(ribcage () () ()) | |
14528 | #(ribcage | |
14529 | #(x y) | |
14530 | #((top) (top)) | |
fb6e61ca | 14531 | #("i4309" "i4310")) |
f42d8bd8 AW |
14532 | #(ribcage |
14533 | #(quasicons | |
14534 | quasiappend | |
14535 | quasivector | |
14536 | quasi) | |
14537 | #((top) | |
14538 | (top) | |
14539 | (top) | |
14540 | (top)) | |
fb6e61ca AW |
14541 | #("i4273" |
14542 | "i4274" | |
14543 | "i4275" | |
14544 | "i4276"))) | |
f42d8bd8 | 14545 | (hygiene guile)) |
fb6e61ca AW |
14546 | #{x\ 4316}# |
14547 | #{y\ 4317}#)) | |
14548 | #{tmp\ 4318}#))) | |
f42d8bd8 | 14549 | ($sc-dispatch |
fb6e61ca | 14550 | #{tmp\ 4318}# |
f42d8bd8 AW |
14551 | '(#(free-id |
14552 | #(syntax-object | |
14553 | quote | |
14554 | ((top) | |
14555 | #(ribcage | |
14556 | #(x y) | |
14557 | #((top) (top)) | |
fb6e61ca | 14558 | #("i4314" "i4315")) |
f42d8bd8 AW |
14559 | #(ribcage () () ()) |
14560 | #(ribcage () () ()) | |
14561 | #(ribcage | |
14562 | #(x y) | |
14563 | #((top) (top)) | |
fb6e61ca | 14564 | #("i4309" "i4310")) |
f42d8bd8 AW |
14565 | #(ribcage |
14566 | #(quasicons | |
14567 | quasiappend | |
14568 | quasivector | |
14569 | quasi) | |
14570 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14571 | #("i4273" |
14572 | "i4274" | |
14573 | "i4275" | |
14574 | "i4276"))) | |
f42d8bd8 AW |
14575 | (hygiene guile))) |
14576 | ())))) | |
fb6e61ca AW |
14577 | #{y\ 4317}#)) |
14578 | #{tmp\ 4313}#) | |
f42d8bd8 AW |
14579 | (syntax-violation |
14580 | #f | |
14581 | "source expression failed to match any pattern" | |
fb6e61ca AW |
14582 | #{tmp\ 4312}#))) |
14583 | ($sc-dispatch #{tmp\ 4312}# (quote (any any))))) | |
14584 | (list #{x\ 4307}# #{y\ 4308}#)))) | |
14585 | (#{quasivector\ 4279}# | |
14586 | (lambda (#{x\ 4322}#) | |
14587 | ((lambda (#{tmp\ 4325}#) | |
14588 | ((lambda (#{x\ 4327}#) | |
14589 | ((lambda (#{tmp\ 4328}#) | |
14590 | ((lambda (#{tmp\ 4329}#) | |
14591 | (if #{tmp\ 4329}# | |
14592 | (apply (lambda (#{x\ 4331}#) | |
f42d8bd8 AW |
14593 | (list '#(syntax-object |
14594 | quote | |
14595 | ((top) | |
14596 | #(ribcage | |
14597 | #(x) | |
14598 | #((top)) | |
fb6e61ca | 14599 | #("i4330")) |
f42d8bd8 AW |
14600 | #(ribcage |
14601 | #(x) | |
14602 | #((top)) | |
fb6e61ca | 14603 | #("i4326")) |
f42d8bd8 AW |
14604 | #(ribcage () () ()) |
14605 | #(ribcage () () ()) | |
14606 | #(ribcage | |
14607 | #(x) | |
14608 | #((top)) | |
fb6e61ca | 14609 | #("i4323")) |
f42d8bd8 AW |
14610 | #(ribcage |
14611 | #(quasicons | |
14612 | quasiappend | |
14613 | quasivector | |
14614 | quasi) | |
14615 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14616 | #("i4273" |
14617 | "i4274" | |
14618 | "i4275" | |
14619 | "i4276"))) | |
f42d8bd8 | 14620 | (hygiene guile)) |
fb6e61ca AW |
14621 | (list->vector #{x\ 4331}#))) |
14622 | #{tmp\ 4329}#) | |
14623 | ((lambda (#{tmp\ 4333}#) | |
14624 | (if #{tmp\ 4333}# | |
14625 | (apply (lambda (#{x\ 4335}#) | |
f42d8bd8 AW |
14626 | (cons '#(syntax-object |
14627 | vector | |
65dd9e38 AW |
14628 | ((top) |
14629 | #(ribcage | |
f42d8bd8 | 14630 | #(x) |
65dd9e38 | 14631 | #((top)) |
fb6e61ca | 14632 | #("i4334")) |
65dd9e38 | 14633 | #(ribcage |
5f161164 AW |
14634 | #(x) |
14635 | #((top)) | |
fb6e61ca | 14636 | #("i4326")) |
65dd9e38 AW |
14637 | #(ribcage () () ()) |
14638 | #(ribcage () () ()) | |
14639 | #(ribcage | |
5f161164 AW |
14640 | #(x) |
14641 | #((top)) | |
fb6e61ca | 14642 | #("i4323")) |
65dd9e38 AW |
14643 | #(ribcage |
14644 | #(quasicons | |
14645 | quasiappend | |
14646 | quasivector | |
14647 | quasi) | |
14648 | #((top) | |
14649 | (top) | |
14650 | (top) | |
14651 | (top)) | |
fb6e61ca AW |
14652 | #("i4273" |
14653 | "i4274" | |
14654 | "i4275" | |
14655 | "i4276"))) | |
65dd9e38 | 14656 | (hygiene guile)) |
fb6e61ca AW |
14657 | #{x\ 4335}#)) |
14658 | #{tmp\ 4333}#) | |
14659 | ((lambda (#{_\ 4338}#) | |
f42d8bd8 AW |
14660 | (list '#(syntax-object |
14661 | list->vector | |
65dd9e38 AW |
14662 | ((top) |
14663 | #(ribcage | |
f42d8bd8 | 14664 | #(_) |
65dd9e38 | 14665 | #((top)) |
fb6e61ca | 14666 | #("i4337")) |
5f161164 | 14667 | #(ribcage |
f42d8bd8 | 14668 | #(x) |
5f161164 | 14669 | #((top)) |
fb6e61ca | 14670 | #("i4326")) |
f42d8bd8 | 14671 | #(ribcage () () ()) |
5f161164 AW |
14672 | #(ribcage () () ()) |
14673 | #(ribcage | |
f42d8bd8 AW |
14674 | #(x) |
14675 | #((top)) | |
fb6e61ca | 14676 | #("i4323")) |
5f161164 AW |
14677 | #(ribcage |
14678 | #(quasicons | |
14679 | quasiappend | |
14680 | quasivector | |
14681 | quasi) | |
14682 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14683 | #("i4273" |
14684 | "i4274" | |
14685 | "i4275" | |
14686 | "i4276"))) | |
f42d8bd8 | 14687 | (hygiene guile)) |
fb6e61ca AW |
14688 | #{x\ 4327}#)) |
14689 | #{tmp\ 4328}#))) | |
f42d8bd8 | 14690 | ($sc-dispatch |
fb6e61ca | 14691 | #{tmp\ 4328}# |
f42d8bd8 AW |
14692 | '(#(free-id |
14693 | #(syntax-object | |
14694 | list | |
14695 | ((top) | |
fb6e61ca | 14696 | #(ribcage #(x) #((top)) #("i4326")) |
f42d8bd8 AW |
14697 | #(ribcage () () ()) |
14698 | #(ribcage () () ()) | |
fb6e61ca | 14699 | #(ribcage #(x) #((top)) #("i4323")) |
f42d8bd8 AW |
14700 | #(ribcage |
14701 | #(quasicons | |
14702 | quasiappend | |
14703 | quasivector | |
14704 | quasi) | |
14705 | #((top) (top) (top) (top)) | |
fb6e61ca | 14706 | #("i4273" "i4274" "i4275" "i4276"))) |
f42d8bd8 AW |
14707 | (hygiene guile))) |
14708 | . | |
14709 | each-any))))) | |
14710 | ($sc-dispatch | |
fb6e61ca | 14711 | #{tmp\ 4328}# |
f42d8bd8 AW |
14712 | '(#(free-id |
14713 | #(syntax-object | |
14714 | quote | |
14715 | ((top) | |
fb6e61ca | 14716 | #(ribcage #(x) #((top)) #("i4326")) |
f42d8bd8 AW |
14717 | #(ribcage () () ()) |
14718 | #(ribcage () () ()) | |
fb6e61ca | 14719 | #(ribcage #(x) #((top)) #("i4323")) |
f42d8bd8 AW |
14720 | #(ribcage |
14721 | #(quasicons | |
14722 | quasiappend | |
14723 | quasivector | |
14724 | quasi) | |
14725 | #((top) (top) (top) (top)) | |
fb6e61ca | 14726 | #("i4273" "i4274" "i4275" "i4276"))) |
f42d8bd8 AW |
14727 | (hygiene guile))) |
14728 | each-any)))) | |
fb6e61ca AW |
14729 | #{x\ 4327}#)) |
14730 | #{tmp\ 4325}#)) | |
14731 | #{x\ 4322}#))) | |
14732 | (#{quasi\ 4280}# | |
14733 | (lambda (#{p\ 4339}# #{lev\ 4340}#) | |
14734 | ((lambda (#{tmp\ 4343}#) | |
14735 | ((lambda (#{tmp\ 4344}#) | |
14736 | (if #{tmp\ 4344}# | |
14737 | (apply (lambda (#{p\ 4346}#) | |
14738 | (if (= #{lev\ 4340}# 0) | |
14739 | #{p\ 4346}# | |
14740 | (#{quasicons\ 4277}# | |
f42d8bd8 AW |
14741 | '(#(syntax-object |
14742 | quote | |
14743 | ((top) | |
fb6e61ca | 14744 | #(ribcage #(p) #((top)) #("i4345")) |
f42d8bd8 AW |
14745 | #(ribcage () () ()) |
14746 | #(ribcage | |
14747 | #(p lev) | |
14748 | #((top) (top)) | |
fb6e61ca | 14749 | #("i4341" "i4342")) |
f42d8bd8 AW |
14750 | #(ribcage |
14751 | #(quasicons | |
14752 | quasiappend | |
14753 | quasivector | |
14754 | quasi) | |
14755 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14756 | #("i4273" |
14757 | "i4274" | |
14758 | "i4275" | |
14759 | "i4276"))) | |
f42d8bd8 AW |
14760 | (hygiene guile)) |
14761 | #(syntax-object | |
14762 | unquote | |
14763 | ((top) | |
fb6e61ca | 14764 | #(ribcage #(p) #((top)) #("i4345")) |
f42d8bd8 AW |
14765 | #(ribcage () () ()) |
14766 | #(ribcage | |
14767 | #(p lev) | |
14768 | #((top) (top)) | |
fb6e61ca | 14769 | #("i4341" "i4342")) |
f42d8bd8 AW |
14770 | #(ribcage |
14771 | #(quasicons | |
14772 | quasiappend | |
14773 | quasivector | |
14774 | quasi) | |
14775 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14776 | #("i4273" |
14777 | "i4274" | |
14778 | "i4275" | |
14779 | "i4276"))) | |
f42d8bd8 | 14780 | (hygiene guile))) |
fb6e61ca AW |
14781 | (#{quasi\ 4280}# |
14782 | (list #{p\ 4346}#) | |
14783 | (- #{lev\ 4340}# 1))))) | |
14784 | #{tmp\ 4344}#) | |
14785 | ((lambda (#{tmp\ 4347}#) | |
14786 | (if (if #{tmp\ 4347}# | |
14787 | (apply (lambda (#{args\ 4349}#) | |
14788 | (= #{lev\ 4340}# 0)) | |
14789 | #{tmp\ 4347}#) | |
f42d8bd8 | 14790 | #f) |
fb6e61ca | 14791 | (apply (lambda (#{args\ 4351}#) |
f42d8bd8 AW |
14792 | (syntax-violation |
14793 | 'unquote | |
14794 | "unquote takes exactly one argument" | |
fb6e61ca | 14795 | #{p\ 4339}# |
f42d8bd8 AW |
14796 | (cons '#(syntax-object |
14797 | unquote | |
14798 | ((top) | |
14799 | #(ribcage | |
14800 | #(args) | |
14801 | #((top)) | |
fb6e61ca | 14802 | #("i4350")) |
f42d8bd8 AW |
14803 | #(ribcage () () ()) |
14804 | #(ribcage | |
14805 | #(p lev) | |
14806 | #((top) (top)) | |
fb6e61ca | 14807 | #("i4341" "i4342")) |
f42d8bd8 AW |
14808 | #(ribcage |
14809 | #(quasicons | |
14810 | quasiappend | |
14811 | quasivector | |
14812 | quasi) | |
14813 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
14814 | #("i4273" |
14815 | "i4274" | |
14816 | "i4275" | |
14817 | "i4276"))) | |
f42d8bd8 | 14818 | (hygiene guile)) |
fb6e61ca AW |
14819 | #{args\ 4351}#))) |
14820 | #{tmp\ 4347}#) | |
14821 | ((lambda (#{tmp\ 4352}#) | |
14822 | (if #{tmp\ 4352}# | |
14823 | (apply (lambda (#{p\ 4355}# #{q\ 4356}#) | |
14824 | (if (= #{lev\ 4340}# 0) | |
14825 | (#{quasiappend\ 4278}# | |
14826 | #{p\ 4355}# | |
14827 | (#{quasi\ 4280}# | |
14828 | #{q\ 4356}# | |
14829 | #{lev\ 4340}#)) | |
14830 | (#{quasicons\ 4277}# | |
14831 | (#{quasicons\ 4277}# | |
f42d8bd8 AW |
14832 | '(#(syntax-object |
14833 | quote | |
14834 | ((top) | |
14835 | #(ribcage | |
14836 | #(p q) | |
14837 | #((top) (top)) | |
fb6e61ca | 14838 | #("i4353" "i4354")) |
f42d8bd8 AW |
14839 | #(ribcage () () ()) |
14840 | #(ribcage | |
14841 | #(p lev) | |
14842 | #((top) (top)) | |
fb6e61ca | 14843 | #("i4341" "i4342")) |
f42d8bd8 AW |
14844 | #(ribcage |
14845 | #(quasicons | |
14846 | quasiappend | |
14847 | quasivector | |
14848 | quasi) | |
14849 | #((top) | |
14850 | (top) | |
14851 | (top) | |
14852 | (top)) | |
fb6e61ca AW |
14853 | #("i4273" |
14854 | "i4274" | |
14855 | "i4275" | |
14856 | "i4276"))) | |
f42d8bd8 AW |
14857 | (hygiene guile)) |
14858 | #(syntax-object | |
14859 | unquote-splicing | |
14860 | ((top) | |
14861 | #(ribcage | |
14862 | #(p q) | |
14863 | #((top) (top)) | |
fb6e61ca | 14864 | #("i4353" "i4354")) |
f42d8bd8 AW |
14865 | #(ribcage () () ()) |
14866 | #(ribcage | |
14867 | #(p lev) | |
14868 | #((top) (top)) | |
fb6e61ca | 14869 | #("i4341" "i4342")) |
f42d8bd8 AW |
14870 | #(ribcage |
14871 | #(quasicons | |
14872 | quasiappend | |
14873 | quasivector | |
14874 | quasi) | |
14875 | #((top) | |
14876 | (top) | |
14877 | (top) | |
14878 | (top)) | |
fb6e61ca AW |
14879 | #("i4273" |
14880 | "i4274" | |
14881 | "i4275" | |
14882 | "i4276"))) | |
f42d8bd8 | 14883 | (hygiene guile))) |
fb6e61ca AW |
14884 | (#{quasi\ 4280}# |
14885 | (list #{p\ 4355}#) | |
14886 | (- #{lev\ 4340}# 1))) | |
14887 | (#{quasi\ 4280}# | |
14888 | #{q\ 4356}# | |
14889 | #{lev\ 4340}#)))) | |
14890 | #{tmp\ 4352}#) | |
14891 | ((lambda (#{tmp\ 4357}#) | |
14892 | (if (if #{tmp\ 4357}# | |
14893 | (apply (lambda (#{args\ 4360}# | |
14894 | #{q\ 4361}#) | |
14895 | (= #{lev\ 4340}# 0)) | |
14896 | #{tmp\ 4357}#) | |
f42d8bd8 | 14897 | #f) |
fb6e61ca AW |
14898 | (apply (lambda (#{args\ 4364}# |
14899 | #{q\ 4365}#) | |
f42d8bd8 AW |
14900 | (syntax-violation |
14901 | 'unquote-splicing | |
14902 | "unquote-splicing takes exactly one argument" | |
fb6e61ca | 14903 | #{p\ 4339}# |
f42d8bd8 AW |
14904 | (cons '#(syntax-object |
14905 | unquote-splicing | |
65dd9e38 AW |
14906 | ((top) |
14907 | #(ribcage | |
f42d8bd8 | 14908 | #(args q) |
65dd9e38 | 14909 | #((top) (top)) |
fb6e61ca AW |
14910 | #("i4362" |
14911 | "i4363")) | |
65dd9e38 AW |
14912 | #(ribcage |
14913 | () | |
14914 | () | |
14915 | ()) | |
14916 | #(ribcage | |
14917 | #(p lev) | |
14918 | #((top) (top)) | |
fb6e61ca AW |
14919 | #("i4341" |
14920 | "i4342")) | |
65dd9e38 AW |
14921 | #(ribcage |
14922 | #(quasicons | |
14923 | quasiappend | |
14924 | quasivector | |
14925 | quasi) | |
14926 | #((top) | |
14927 | (top) | |
14928 | (top) | |
14929 | (top)) | |
fb6e61ca AW |
14930 | #("i4273" |
14931 | "i4274" | |
14932 | "i4275" | |
14933 | "i4276"))) | |
65dd9e38 | 14934 | (hygiene guile)) |
fb6e61ca AW |
14935 | #{args\ 4364}#))) |
14936 | #{tmp\ 4357}#) | |
14937 | ((lambda (#{tmp\ 4366}#) | |
14938 | (if #{tmp\ 4366}# | |
14939 | (apply (lambda (#{p\ 4368}#) | |
14940 | (#{quasicons\ 4277}# | |
f42d8bd8 AW |
14941 | '(#(syntax-object |
14942 | quote | |
65dd9e38 AW |
14943 | ((top) |
14944 | #(ribcage | |
f42d8bd8 AW |
14945 | #(p) |
14946 | #((top)) | |
fb6e61ca | 14947 | #("i4367")) |
65dd9e38 AW |
14948 | #(ribcage |
14949 | () | |
14950 | () | |
14951 | ()) | |
14952 | #(ribcage | |
f42d8bd8 AW |
14953 | #(p lev) |
14954 | #((top) (top)) | |
fb6e61ca AW |
14955 | #("i4341" |
14956 | "i4342")) | |
f42d8bd8 AW |
14957 | #(ribcage |
14958 | #(quasicons | |
14959 | quasiappend | |
14960 | quasivector | |
14961 | quasi) | |
14962 | #((top) | |
14963 | (top) | |
14964 | (top) | |
14965 | (top)) | |
fb6e61ca AW |
14966 | #("i4273" |
14967 | "i4274" | |
14968 | "i4275" | |
14969 | "i4276"))) | |
f42d8bd8 AW |
14970 | (hygiene guile)) |
14971 | #(syntax-object | |
14972 | quasiquote | |
14973 | ((top) | |
14974 | #(ribcage | |
14975 | #(p) | |
14976 | #((top)) | |
fb6e61ca | 14977 | #("i4367")) |
f42d8bd8 AW |
14978 | #(ribcage |
14979 | () | |
14980 | () | |
14981 | ()) | |
14982 | #(ribcage | |
14983 | #(p lev) | |
14984 | #((top) (top)) | |
fb6e61ca AW |
14985 | #("i4341" |
14986 | "i4342")) | |
f42d8bd8 AW |
14987 | #(ribcage |
14988 | #(quasicons | |
14989 | quasiappend | |
14990 | quasivector | |
14991 | quasi) | |
14992 | #((top) | |
14993 | (top) | |
14994 | (top) | |
14995 | (top)) | |
fb6e61ca AW |
14996 | #("i4273" |
14997 | "i4274" | |
14998 | "i4275" | |
14999 | "i4276"))) | |
f42d8bd8 | 15000 | (hygiene guile))) |
fb6e61ca AW |
15001 | (#{quasi\ 4280}# |
15002 | (list #{p\ 4368}#) | |
15003 | (+ #{lev\ 4340}# | |
f42d8bd8 | 15004 | 1)))) |
fb6e61ca AW |
15005 | #{tmp\ 4366}#) |
15006 | ((lambda (#{tmp\ 4369}#) | |
15007 | (if #{tmp\ 4369}# | |
15008 | (apply (lambda (#{p\ 4372}# | |
15009 | #{q\ 4373}#) | |
15010 | (#{quasicons\ 4277}# | |
15011 | (#{quasi\ 4280}# | |
15012 | #{p\ 4372}# | |
15013 | #{lev\ 4340}#) | |
15014 | (#{quasi\ 4280}# | |
15015 | #{q\ 4373}# | |
15016 | #{lev\ 4340}#))) | |
15017 | #{tmp\ 4369}#) | |
15018 | ((lambda (#{tmp\ 4374}#) | |
15019 | (if #{tmp\ 4374}# | |
15020 | (apply (lambda (#{x\ 4376}#) | |
15021 | (#{quasivector\ 4279}# | |
15022 | (#{quasi\ 4280}# | |
15023 | #{x\ 4376}# | |
15024 | #{lev\ 4340}#))) | |
15025 | #{tmp\ 4374}#) | |
15026 | ((lambda (#{p\ 4379}#) | |
f42d8bd8 AW |
15027 | (list '#(syntax-object |
15028 | quote | |
15029 | ((top) | |
15030 | #(ribcage | |
15031 | #(p) | |
15032 | #((top)) | |
fb6e61ca | 15033 | #("i4378")) |
f42d8bd8 AW |
15034 | #(ribcage |
15035 | () | |
15036 | () | |
15037 | ()) | |
15038 | #(ribcage | |
15039 | #(p lev) | |
15040 | #((top) | |
15041 | (top)) | |
fb6e61ca AW |
15042 | #("i4341" |
15043 | "i4342")) | |
f42d8bd8 AW |
15044 | #(ribcage |
15045 | #(quasicons | |
15046 | quasiappend | |
15047 | quasivector | |
15048 | quasi) | |
15049 | #((top) | |
15050 | (top) | |
15051 | (top) | |
15052 | (top)) | |
fb6e61ca AW |
15053 | #("i4273" |
15054 | "i4274" | |
15055 | "i4275" | |
15056 | "i4276"))) | |
f42d8bd8 AW |
15057 | (hygiene |
15058 | guile)) | |
fb6e61ca AW |
15059 | #{p\ 4379}#)) |
15060 | #{tmp\ 4343}#))) | |
f42d8bd8 | 15061 | ($sc-dispatch |
fb6e61ca | 15062 | #{tmp\ 4343}# |
f42d8bd8 AW |
15063 | '#(vector each-any))))) |
15064 | ($sc-dispatch | |
fb6e61ca | 15065 | #{tmp\ 4343}# |
f42d8bd8 AW |
15066 | '(any . any))))) |
15067 | ($sc-dispatch | |
fb6e61ca | 15068 | #{tmp\ 4343}# |
f42d8bd8 AW |
15069 | '(#(free-id |
15070 | #(syntax-object | |
15071 | quasiquote | |
15072 | ((top) | |
15073 | #(ribcage () () ()) | |
15074 | #(ribcage | |
15075 | #(p lev) | |
15076 | #((top) (top)) | |
fb6e61ca | 15077 | #("i4341" "i4342")) |
f42d8bd8 AW |
15078 | #(ribcage |
15079 | #(quasicons | |
15080 | quasiappend | |
15081 | quasivector | |
15082 | quasi) | |
15083 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
15084 | #("i4273" |
15085 | "i4274" | |
15086 | "i4275" | |
15087 | "i4276"))) | |
f42d8bd8 AW |
15088 | (hygiene guile))) |
15089 | any))))) | |
15090 | ($sc-dispatch | |
fb6e61ca | 15091 | #{tmp\ 4343}# |
f42d8bd8 AW |
15092 | '((#(free-id |
15093 | #(syntax-object | |
15094 | unquote-splicing | |
15095 | ((top) | |
15096 | #(ribcage () () ()) | |
15097 | #(ribcage | |
15098 | #(p lev) | |
15099 | #((top) (top)) | |
fb6e61ca | 15100 | #("i4341" "i4342")) |
f42d8bd8 AW |
15101 | #(ribcage |
15102 | #(quasicons | |
15103 | quasiappend | |
15104 | quasivector | |
15105 | quasi) | |
15106 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
15107 | #("i4273" |
15108 | "i4274" | |
15109 | "i4275" | |
15110 | "i4276"))) | |
f42d8bd8 | 15111 | (hygiene guile))) |
65dd9e38 | 15112 | . |
f42d8bd8 AW |
15113 | any) |
15114 | . | |
15115 | any))))) | |
15116 | ($sc-dispatch | |
fb6e61ca | 15117 | #{tmp\ 4343}# |
f42d8bd8 | 15118 | '((#(free-id |
65dd9e38 | 15119 | #(syntax-object |
f42d8bd8 | 15120 | unquote-splicing |
65dd9e38 AW |
15121 | ((top) |
15122 | #(ribcage () () ()) | |
15123 | #(ribcage | |
15124 | #(p lev) | |
15125 | #((top) (top)) | |
fb6e61ca | 15126 | #("i4341" "i4342")) |
65dd9e38 AW |
15127 | #(ribcage |
15128 | #(quasicons | |
15129 | quasiappend | |
15130 | quasivector | |
15131 | quasi) | |
15132 | #((top) (top) (top) (top)) | |
fb6e61ca | 15133 | #("i4273" "i4274" "i4275" "i4276"))) |
65dd9e38 | 15134 | (hygiene guile))) |
f42d8bd8 AW |
15135 | any) |
15136 | . | |
15137 | any))))) | |
15138 | ($sc-dispatch | |
fb6e61ca | 15139 | #{tmp\ 4343}# |
f42d8bd8 AW |
15140 | '(#(free-id |
15141 | #(syntax-object | |
15142 | unquote | |
15143 | ((top) | |
15144 | #(ribcage () () ()) | |
15145 | #(ribcage | |
15146 | #(p lev) | |
15147 | #((top) (top)) | |
fb6e61ca | 15148 | #("i4341" "i4342")) |
f42d8bd8 AW |
15149 | #(ribcage |
15150 | #(quasicons quasiappend quasivector quasi) | |
15151 | #((top) (top) (top) (top)) | |
fb6e61ca | 15152 | #("i4273" "i4274" "i4275" "i4276"))) |
f42d8bd8 AW |
15153 | (hygiene guile))) |
15154 | . | |
15155 | any))))) | |
15156 | ($sc-dispatch | |
fb6e61ca | 15157 | #{tmp\ 4343}# |
f42d8bd8 AW |
15158 | '(#(free-id |
15159 | #(syntax-object | |
15160 | unquote | |
15161 | ((top) | |
15162 | #(ribcage () () ()) | |
15163 | #(ribcage | |
15164 | #(p lev) | |
15165 | #((top) (top)) | |
fb6e61ca | 15166 | #("i4341" "i4342")) |
f42d8bd8 AW |
15167 | #(ribcage |
15168 | #(quasicons quasiappend quasivector quasi) | |
15169 | #((top) (top) (top) (top)) | |
fb6e61ca | 15170 | #("i4273" "i4274" "i4275" "i4276"))) |
f42d8bd8 AW |
15171 | (hygiene guile))) |
15172 | any)))) | |
fb6e61ca AW |
15173 | #{p\ 4339}#)))) |
15174 | (lambda (#{x\ 4380}#) | |
15175 | ((lambda (#{tmp\ 4382}#) | |
15176 | ((lambda (#{tmp\ 4383}#) | |
15177 | (if #{tmp\ 4383}# | |
15178 | (apply (lambda (#{_\ 4386}# #{e\ 4387}#) | |
15179 | (#{quasi\ 4280}# #{e\ 4387}# 0)) | |
15180 | #{tmp\ 4383}#) | |
f42d8bd8 AW |
15181 | (syntax-violation |
15182 | #f | |
15183 | "source expression failed to match any pattern" | |
fb6e61ca AW |
15184 | #{tmp\ 4382}#))) |
15185 | ($sc-dispatch #{tmp\ 4382}# (quote (any any))))) | |
15186 | #{x\ 4380}#))))) | |
65dd9e38 AW |
15187 | |
15188 | (define include | |
e809758a AW |
15189 | (make-syntax-transformer |
15190 | 'include | |
65dd9e38 | 15191 | 'macro |
fb6e61ca AW |
15192 | (lambda (#{x\ 4388}#) |
15193 | (letrec ((#{read-file\ 4391}# | |
15194 | (lambda (#{fn\ 4392}# #{k\ 4393}#) | |
15195 | (let ((#{p\ 4397}# (open-input-file #{fn\ 4392}#))) | |
15196 | (letrec ((#{f\ 4401}# | |
15197 | (lambda (#{x\ 4402}# #{result\ 4403}#) | |
15198 | (if (eof-object? #{x\ 4402}#) | |
f42d8bd8 | 15199 | (begin |
fb6e61ca AW |
15200 | (close-input-port #{p\ 4397}#) |
15201 | (reverse #{result\ 4403}#)) | |
15202 | (#{f\ 4401}# | |
15203 | (read #{p\ 4397}#) | |
f42d8bd8 | 15204 | (cons (datum->syntax |
fb6e61ca AW |
15205 | #{k\ 4393}# |
15206 | #{x\ 4402}#) | |
15207 | #{result\ 4403}#)))))) | |
15208 | (#{f\ 4401}# (read #{p\ 4397}#) (quote ()))))))) | |
15209 | ((lambda (#{tmp\ 4404}#) | |
15210 | ((lambda (#{tmp\ 4405}#) | |
15211 | (if #{tmp\ 4405}# | |
15212 | (apply (lambda (#{k\ 4408}# #{filename\ 4409}#) | |
15213 | (let ((#{fn\ 4411}# | |
15214 | (syntax->datum #{filename\ 4409}#))) | |
15215 | ((lambda (#{tmp\ 4413}#) | |
15216 | ((lambda (#{tmp\ 4414}#) | |
15217 | (if #{tmp\ 4414}# | |
15218 | (apply (lambda (#{exp\ 4416}#) | |
f42d8bd8 AW |
15219 | (cons '#(syntax-object |
15220 | begin | |
15221 | ((top) | |
15222 | #(ribcage | |
15223 | #(exp) | |
15224 | #((top)) | |
fb6e61ca | 15225 | #("i4415")) |
f42d8bd8 AW |
15226 | #(ribcage () () ()) |
15227 | #(ribcage () () ()) | |
15228 | #(ribcage | |
15229 | #(fn) | |
15230 | #((top)) | |
fb6e61ca | 15231 | #("i4410")) |
f42d8bd8 AW |
15232 | #(ribcage |
15233 | #(k filename) | |
15234 | #((top) (top)) | |
fb6e61ca | 15235 | #("i4406" "i4407")) |
f42d8bd8 AW |
15236 | #(ribcage |
15237 | (read-file) | |
15238 | ((top)) | |
fb6e61ca | 15239 | ("i4390")) |
f42d8bd8 AW |
15240 | #(ribcage |
15241 | #(x) | |
15242 | #((top)) | |
fb6e61ca | 15243 | #("i4389"))) |
f42d8bd8 | 15244 | (hygiene guile)) |
fb6e61ca AW |
15245 | #{exp\ 4416}#)) |
15246 | #{tmp\ 4414}#) | |
f42d8bd8 AW |
15247 | (syntax-violation |
15248 | #f | |
15249 | "source expression failed to match any pattern" | |
fb6e61ca AW |
15250 | #{tmp\ 4413}#))) |
15251 | ($sc-dispatch #{tmp\ 4413}# (quote each-any)))) | |
15252 | (#{read-file\ 4391}# | |
15253 | #{fn\ 4411}# | |
15254 | #{filename\ 4409}#)))) | |
15255 | #{tmp\ 4405}#) | |
f42d8bd8 AW |
15256 | (syntax-violation |
15257 | #f | |
15258 | "source expression failed to match any pattern" | |
fb6e61ca AW |
15259 | #{tmp\ 4404}#))) |
15260 | ($sc-dispatch #{tmp\ 4404}# (quote (any any))))) | |
15261 | #{x\ 4388}#))))) | |
65dd9e38 | 15262 | |
d89fae24 | 15263 | (define include-from-path |
e809758a AW |
15264 | (make-syntax-transformer |
15265 | 'include-from-path | |
65dd9e38 | 15266 | 'macro |
fb6e61ca AW |
15267 | (lambda (#{x\ 4418}#) |
15268 | ((lambda (#{tmp\ 4420}#) | |
15269 | ((lambda (#{tmp\ 4421}#) | |
15270 | (if #{tmp\ 4421}# | |
15271 | (apply (lambda (#{k\ 4424}# #{filename\ 4425}#) | |
15272 | (let ((#{fn\ 4427}# (syntax->datum #{filename\ 4425}#))) | |
15273 | ((lambda (#{tmp\ 4429}#) | |
15274 | ((lambda (#{fn\ 4431}#) | |
f42d8bd8 AW |
15275 | (list '#(syntax-object |
15276 | include | |
15277 | ((top) | |
fb6e61ca | 15278 | #(ribcage #(fn) #((top)) #("i4430")) |
f42d8bd8 AW |
15279 | #(ribcage () () ()) |
15280 | #(ribcage () () ()) | |
fb6e61ca | 15281 | #(ribcage #(fn) #((top)) #("i4426")) |
f42d8bd8 AW |
15282 | #(ribcage |
15283 | #(k filename) | |
15284 | #((top) (top)) | |
fb6e61ca | 15285 | #("i4422" "i4423")) |
f42d8bd8 | 15286 | #(ribcage () () ()) |
fb6e61ca | 15287 | #(ribcage #(x) #((top)) #("i4419"))) |
f42d8bd8 | 15288 | (hygiene guile)) |
fb6e61ca AW |
15289 | #{fn\ 4431}#)) |
15290 | #{tmp\ 4429}#)) | |
f42d8bd8 | 15291 | (datum->syntax |
fb6e61ca AW |
15292 | #{filename\ 4425}# |
15293 | (let ((#{t\ 4434}# | |
15294 | (%search-load-path #{fn\ 4427}#))) | |
15295 | (if #{t\ 4434}# | |
15296 | #{t\ 4434}# | |
f42d8bd8 AW |
15297 | (syntax-violation |
15298 | 'include-from-path | |
15299 | "file not found in path" | |
fb6e61ca AW |
15300 | #{x\ 4418}# |
15301 | #{filename\ 4425}#))))))) | |
15302 | #{tmp\ 4421}#) | |
f42d8bd8 AW |
15303 | (syntax-violation |
15304 | #f | |
15305 | "source expression failed to match any pattern" | |
fb6e61ca AW |
15306 | #{tmp\ 4420}#))) |
15307 | ($sc-dispatch #{tmp\ 4420}# (quote (any any))))) | |
15308 | #{x\ 4418}#)))) | |
65dd9e38 | 15309 | |
d89fae24 | 15310 | (define unquote |
e809758a AW |
15311 | (make-syntax-transformer |
15312 | 'unquote | |
d89fae24 | 15313 | 'macro |
fb6e61ca AW |
15314 | (lambda (#{x\ 4436}#) |
15315 | ((lambda (#{tmp\ 4438}#) | |
15316 | ((lambda (#{tmp\ 4439}#) | |
15317 | (if #{tmp\ 4439}# | |
15318 | (apply (lambda (#{_\ 4442}# #{e\ 4443}#) | |
f42d8bd8 AW |
15319 | (syntax-violation |
15320 | 'unquote | |
15321 | "expression not valid outside of quasiquote" | |
fb6e61ca AW |
15322 | #{x\ 4436}#)) |
15323 | #{tmp\ 4439}#) | |
f42d8bd8 AW |
15324 | (syntax-violation |
15325 | #f | |
15326 | "source expression failed to match any pattern" | |
fb6e61ca AW |
15327 | #{tmp\ 4438}#))) |
15328 | ($sc-dispatch #{tmp\ 4438}# (quote (any any))))) | |
15329 | #{x\ 4436}#)))) | |
d89fae24 | 15330 | |
65dd9e38 | 15331 | (define unquote-splicing |
e809758a AW |
15332 | (make-syntax-transformer |
15333 | 'unquote-splicing | |
65dd9e38 | 15334 | 'macro |
fb6e61ca AW |
15335 | (lambda (#{x\ 4444}#) |
15336 | ((lambda (#{tmp\ 4446}#) | |
15337 | ((lambda (#{tmp\ 4447}#) | |
15338 | (if #{tmp\ 4447}# | |
15339 | (apply (lambda (#{_\ 4450}# #{e\ 4451}#) | |
f42d8bd8 AW |
15340 | (syntax-violation |
15341 | 'unquote-splicing | |
15342 | "expression not valid outside of quasiquote" | |
fb6e61ca AW |
15343 | #{x\ 4444}#)) |
15344 | #{tmp\ 4447}#) | |
f42d8bd8 AW |
15345 | (syntax-violation |
15346 | #f | |
15347 | "source expression failed to match any pattern" | |
fb6e61ca AW |
15348 | #{tmp\ 4446}#))) |
15349 | ($sc-dispatch #{tmp\ 4446}# (quote (any any))))) | |
15350 | #{x\ 4444}#)))) | |
65dd9e38 AW |
15351 | |
15352 | (define case | |
e809758a AW |
15353 | (make-syntax-transformer |
15354 | 'case | |
65dd9e38 | 15355 | 'macro |
fb6e61ca AW |
15356 | (lambda (#{x\ 4452}#) |
15357 | ((lambda (#{tmp\ 4454}#) | |
15358 | ((lambda (#{tmp\ 4455}#) | |
15359 | (if #{tmp\ 4455}# | |
15360 | (apply (lambda (#{_\ 4460}# | |
15361 | #{e\ 4461}# | |
15362 | #{m1\ 4462}# | |
15363 | #{m2\ 4463}#) | |
15364 | ((lambda (#{tmp\ 4465}#) | |
15365 | ((lambda (#{body\ 4467}#) | |
f42d8bd8 AW |
15366 | (list '#(syntax-object |
15367 | let | |
15368 | ((top) | |
fb6e61ca | 15369 | #(ribcage #(body) #((top)) #("i4466")) |
f42d8bd8 AW |
15370 | #(ribcage |
15371 | #(_ e m1 m2) | |
15372 | #((top) (top) (top) (top)) | |
fb6e61ca | 15373 | #("i4456" "i4457" "i4458" "i4459")) |
f42d8bd8 | 15374 | #(ribcage () () ()) |
fb6e61ca | 15375 | #(ribcage #(x) #((top)) #("i4453"))) |
f42d8bd8 AW |
15376 | (hygiene guile)) |
15377 | (list (list '#(syntax-object | |
15378 | t | |
15379 | ((top) | |
15380 | #(ribcage | |
15381 | #(body) | |
15382 | #((top)) | |
fb6e61ca | 15383 | #("i4466")) |
f42d8bd8 AW |
15384 | #(ribcage |
15385 | #(_ e m1 m2) | |
15386 | #((top) (top) (top) (top)) | |
fb6e61ca AW |
15387 | #("i4456" |
15388 | "i4457" | |
15389 | "i4458" | |
15390 | "i4459")) | |
f42d8bd8 AW |
15391 | #(ribcage () () ()) |
15392 | #(ribcage | |
15393 | #(x) | |
15394 | #((top)) | |
fb6e61ca | 15395 | #("i4453"))) |
f42d8bd8 | 15396 | (hygiene guile)) |
fb6e61ca AW |
15397 | #{e\ 4461}#)) |
15398 | #{body\ 4467}#)) | |
15399 | #{tmp\ 4465}#)) | |
15400 | (letrec ((#{f\ 4471}# | |
15401 | (lambda (#{clause\ 4472}# #{clauses\ 4473}#) | |
15402 | (if (null? #{clauses\ 4473}#) | |
15403 | ((lambda (#{tmp\ 4475}#) | |
15404 | ((lambda (#{tmp\ 4476}#) | |
15405 | (if #{tmp\ 4476}# | |
15406 | (apply (lambda (#{e1\ 4479}# | |
15407 | #{e2\ 4480}#) | |
f42d8bd8 AW |
15408 | (cons '#(syntax-object |
15409 | begin | |
15410 | ((top) | |
15411 | #(ribcage | |
15412 | #(e1 e2) | |
15413 | #((top) | |
15414 | (top)) | |
fb6e61ca AW |
15415 | #("i4477" |
15416 | "i4478")) | |
f42d8bd8 AW |
15417 | #(ribcage |
15418 | () | |
15419 | () | |
15420 | ()) | |
15421 | #(ribcage | |
15422 | #(f | |
15423 | clause | |
15424 | clauses) | |
15425 | #((top) | |
15426 | (top) | |
15427 | (top)) | |
fb6e61ca AW |
15428 | #("i4468" |
15429 | "i4469" | |
15430 | "i4470")) | |
f42d8bd8 AW |
15431 | #(ribcage |
15432 | #(_ | |
15433 | e | |
15434 | m1 | |
15435 | m2) | |
15436 | #((top) | |
15437 | (top) | |
15438 | (top) | |
15439 | (top)) | |
fb6e61ca AW |
15440 | #("i4456" |
15441 | "i4457" | |
15442 | "i4458" | |
15443 | "i4459")) | |
f42d8bd8 AW |
15444 | #(ribcage |
15445 | () | |
15446 | () | |
15447 | ()) | |
15448 | #(ribcage | |
15449 | #(x) | |
15450 | #((top)) | |
fb6e61ca | 15451 | #("i4453"))) |
f42d8bd8 AW |
15452 | (hygiene |
15453 | guile)) | |
fb6e61ca AW |
15454 | (cons #{e1\ 4479}# |
15455 | #{e2\ 4480}#))) | |
15456 | #{tmp\ 4476}#) | |
15457 | ((lambda (#{tmp\ 4482}#) | |
15458 | (if #{tmp\ 4482}# | |
15459 | (apply (lambda (#{k\ 4486}# | |
15460 | #{e1\ 4487}# | |
15461 | #{e2\ 4488}#) | |
f42d8bd8 AW |
15462 | (list '#(syntax-object |
15463 | if | |
15464 | ((top) | |
15465 | #(ribcage | |
15466 | #(k | |
15467 | e1 | |
15468 | e2) | |
15469 | #((top) | |
15470 | (top) | |
15471 | (top)) | |
fb6e61ca AW |
15472 | #("i4483" |
15473 | "i4484" | |
15474 | "i4485")) | |
f42d8bd8 AW |
15475 | #(ribcage |
15476 | () | |
15477 | () | |
15478 | ()) | |
15479 | #(ribcage | |
15480 | #(f | |
15481 | clause | |
15482 | clauses) | |
15483 | #((top) | |
15484 | (top) | |
15485 | (top)) | |
fb6e61ca AW |
15486 | #("i4468" |
15487 | "i4469" | |
15488 | "i4470")) | |
f42d8bd8 AW |
15489 | #(ribcage |
15490 | #(_ | |
15491 | e | |
15492 | m1 | |
15493 | m2) | |
15494 | #((top) | |
15495 | (top) | |
15496 | (top) | |
15497 | (top)) | |
fb6e61ca AW |
15498 | #("i4456" |
15499 | "i4457" | |
15500 | "i4458" | |
15501 | "i4459")) | |
f42d8bd8 AW |
15502 | #(ribcage |
15503 | () | |
15504 | () | |
15505 | ()) | |
15506 | #(ribcage | |
15507 | #(x) | |
15508 | #((top)) | |
fb6e61ca | 15509 | #("i4453"))) |
f42d8bd8 AW |
15510 | (hygiene |
15511 | guile)) | |
65dd9e38 | 15512 | (list '#(syntax-object |
f42d8bd8 AW |
15513 | memv |
15514 | ((top) | |
15515 | #(ribcage | |
15516 | #(k | |
15517 | e1 | |
15518 | e2) | |
15519 | #((top) | |
15520 | (top) | |
15521 | (top)) | |
fb6e61ca AW |
15522 | #("i4483" |
15523 | "i4484" | |
15524 | "i4485")) | |
f42d8bd8 AW |
15525 | #(ribcage |
15526 | () | |
15527 | () | |
15528 | ()) | |
15529 | #(ribcage | |
15530 | #(f | |
15531 | clause | |
15532 | clauses) | |
15533 | #((top) | |
15534 | (top) | |
15535 | (top)) | |
fb6e61ca AW |
15536 | #("i4468" |
15537 | "i4469" | |
15538 | "i4470")) | |
f42d8bd8 AW |
15539 | #(ribcage |
15540 | #(_ | |
15541 | e | |
15542 | m1 | |
15543 | m2) | |
15544 | #((top) | |
15545 | (top) | |
15546 | (top) | |
15547 | (top)) | |
fb6e61ca AW |
15548 | #("i4456" |
15549 | "i4457" | |
15550 | "i4458" | |
15551 | "i4459")) | |
f42d8bd8 AW |
15552 | #(ribcage |
15553 | () | |
15554 | () | |
15555 | ()) | |
15556 | #(ribcage | |
15557 | #(x) | |
15558 | #((top)) | |
fb6e61ca | 15559 | #("i4453"))) |
f42d8bd8 AW |
15560 | (hygiene |
15561 | guile)) | |
15562 | '#(syntax-object | |
15563 | t | |
b9434165 LC |
15564 | ((top) |
15565 | #(ribcage | |
15566 | #(k | |
15567 | e1 | |
15568 | e2) | |
15569 | #((top) | |
15570 | (top) | |
15571 | (top)) | |
fb6e61ca AW |
15572 | #("i4483" |
15573 | "i4484" | |
15574 | "i4485")) | |
65dd9e38 AW |
15575 | #(ribcage |
15576 | () | |
15577 | () | |
15578 | ()) | |
15579 | #(ribcage | |
15580 | #(f | |
15581 | clause | |
15582 | clauses) | |
15583 | #((top) | |
15584 | (top) | |
15585 | (top)) | |
fb6e61ca AW |
15586 | #("i4468" |
15587 | "i4469" | |
15588 | "i4470")) | |
65dd9e38 AW |
15589 | #(ribcage |
15590 | #(_ | |
15591 | e | |
15592 | m1 | |
15593 | m2) | |
15594 | #((top) | |
15595 | (top) | |
15596 | (top) | |
15597 | (top)) | |
fb6e61ca AW |
15598 | #("i4456" |
15599 | "i4457" | |
15600 | "i4458" | |
15601 | "i4459")) | |
65dd9e38 AW |
15602 | #(ribcage |
15603 | () | |
15604 | () | |
15605 | ()) | |
15606 | #(ribcage | |
15607 | #(x) | |
15608 | #((top)) | |
fb6e61ca | 15609 | #("i4453"))) |
65dd9e38 AW |
15610 | (hygiene |
15611 | guile)) | |
15612 | (list '#(syntax-object | |
f42d8bd8 | 15613 | quote |
5f161164 AW |
15614 | ((top) |
15615 | #(ribcage | |
15616 | #(k | |
15617 | e1 | |
15618 | e2) | |
15619 | #((top) | |
15620 | (top) | |
15621 | (top)) | |
fb6e61ca AW |
15622 | #("i4483" |
15623 | "i4484" | |
15624 | "i4485")) | |
5f161164 AW |
15625 | #(ribcage |
15626 | () | |
15627 | () | |
15628 | ()) | |
15629 | #(ribcage | |
15630 | #(f | |
15631 | clause | |
15632 | clauses) | |
15633 | #((top) | |
15634 | (top) | |
15635 | (top)) | |
fb6e61ca AW |
15636 | #("i4468" |
15637 | "i4469" | |
15638 | "i4470")) | |
5f161164 AW |
15639 | #(ribcage |
15640 | #(_ | |
15641 | e | |
15642 | m1 | |
15643 | m2) | |
15644 | #((top) | |
15645 | (top) | |
15646 | (top) | |
15647 | (top)) | |
fb6e61ca AW |
15648 | #("i4456" |
15649 | "i4457" | |
15650 | "i4458" | |
15651 | "i4459")) | |
5f161164 AW |
15652 | #(ribcage |
15653 | () | |
15654 | () | |
15655 | ()) | |
15656 | #(ribcage | |
15657 | #(x) | |
15658 | #((top)) | |
fb6e61ca | 15659 | #("i4453"))) |
5f161164 AW |
15660 | (hygiene |
15661 | guile)) | |
fb6e61ca | 15662 | #{k\ 4486}#)) |
f42d8bd8 AW |
15663 | (cons '#(syntax-object |
15664 | begin | |
15665 | ((top) | |
15666 | #(ribcage | |
15667 | #(k | |
15668 | e1 | |
15669 | e2) | |
15670 | #((top) | |
15671 | (top) | |
15672 | (top)) | |
fb6e61ca AW |
15673 | #("i4483" |
15674 | "i4484" | |
15675 | "i4485")) | |
f42d8bd8 AW |
15676 | #(ribcage |
15677 | () | |
15678 | () | |
15679 | ()) | |
15680 | #(ribcage | |
15681 | #(f | |
15682 | clause | |
15683 | clauses) | |
15684 | #((top) | |
15685 | (top) | |
15686 | (top)) | |
fb6e61ca AW |
15687 | #("i4468" |
15688 | "i4469" | |
15689 | "i4470")) | |
f42d8bd8 AW |
15690 | #(ribcage |
15691 | #(_ | |
15692 | e | |
15693 | m1 | |
15694 | m2) | |
15695 | #((top) | |
15696 | (top) | |
15697 | (top) | |
15698 | (top)) | |
fb6e61ca AW |
15699 | #("i4456" |
15700 | "i4457" | |
15701 | "i4458" | |
15702 | "i4459")) | |
f42d8bd8 AW |
15703 | #(ribcage |
15704 | () | |
15705 | () | |
15706 | ()) | |
15707 | #(ribcage | |
15708 | #(x) | |
15709 | #((top)) | |
fb6e61ca | 15710 | #("i4453"))) |
f42d8bd8 AW |
15711 | (hygiene |
15712 | guile)) | |
fb6e61ca AW |
15713 | (cons #{e1\ 4487}# |
15714 | #{e2\ 4488}#)))) | |
15715 | #{tmp\ 4482}#) | |
15716 | ((lambda (#{_\ 4492}#) | |
f42d8bd8 AW |
15717 | (syntax-violation |
15718 | 'case | |
15719 | "bad clause" | |
fb6e61ca AW |
15720 | #{x\ 4452}# |
15721 | #{clause\ 4472}#)) | |
15722 | #{tmp\ 4475}#))) | |
f42d8bd8 | 15723 | ($sc-dispatch |
fb6e61ca | 15724 | #{tmp\ 4475}# |
f42d8bd8 | 15725 | '(each-any |
b9434165 LC |
15726 | any |
15727 | . | |
f42d8bd8 AW |
15728 | each-any))))) |
15729 | ($sc-dispatch | |
fb6e61ca | 15730 | #{tmp\ 4475}# |
f42d8bd8 AW |
15731 | '(#(free-id |
15732 | #(syntax-object | |
15733 | else | |
15734 | ((top) | |
15735 | #(ribcage () () ()) | |
15736 | #(ribcage | |
15737 | #(f clause clauses) | |
15738 | #((top) (top) (top)) | |
fb6e61ca AW |
15739 | #("i4468" |
15740 | "i4469" | |
15741 | "i4470")) | |
f42d8bd8 AW |
15742 | #(ribcage |
15743 | #(_ e m1 m2) | |
15744 | #((top) | |
15745 | (top) | |
15746 | (top) | |
15747 | (top)) | |
fb6e61ca AW |
15748 | #("i4456" |
15749 | "i4457" | |
15750 | "i4458" | |
15751 | "i4459")) | |
f42d8bd8 AW |
15752 | #(ribcage () () ()) |
15753 | #(ribcage | |
15754 | #(x) | |
15755 | #((top)) | |
fb6e61ca | 15756 | #("i4453"))) |
f42d8bd8 AW |
15757 | (hygiene guile))) |
15758 | any | |
15759 | . | |
15760 | each-any)))) | |
fb6e61ca AW |
15761 | #{clause\ 4472}#) |
15762 | ((lambda (#{tmp\ 4494}#) | |
15763 | ((lambda (#{rest\ 4496}#) | |
15764 | ((lambda (#{tmp\ 4497}#) | |
15765 | ((lambda (#{tmp\ 4498}#) | |
15766 | (if #{tmp\ 4498}# | |
15767 | (apply (lambda (#{k\ 4502}# | |
15768 | #{e1\ 4503}# | |
15769 | #{e2\ 4504}#) | |
f42d8bd8 AW |
15770 | (list '#(syntax-object |
15771 | if | |
15772 | ((top) | |
15773 | #(ribcage | |
15774 | #(k | |
15775 | e1 | |
15776 | e2) | |
15777 | #((top) | |
15778 | (top) | |
15779 | (top)) | |
fb6e61ca AW |
15780 | #("i4499" |
15781 | "i4500" | |
15782 | "i4501")) | |
f42d8bd8 AW |
15783 | #(ribcage |
15784 | #(rest) | |
15785 | #((top)) | |
fb6e61ca | 15786 | #("i4495")) |
f42d8bd8 AW |
15787 | #(ribcage |
15788 | () | |
15789 | () | |
15790 | ()) | |
15791 | #(ribcage | |
15792 | #(f | |
15793 | clause | |
15794 | clauses) | |
15795 | #((top) | |
15796 | (top) | |
15797 | (top)) | |
fb6e61ca AW |
15798 | #("i4468" |
15799 | "i4469" | |
15800 | "i4470")) | |
f42d8bd8 AW |
15801 | #(ribcage |
15802 | #(_ | |
15803 | e | |
15804 | m1 | |
15805 | m2) | |
15806 | #((top) | |
15807 | (top) | |
15808 | (top) | |
15809 | (top)) | |
fb6e61ca AW |
15810 | #("i4456" |
15811 | "i4457" | |
15812 | "i4458" | |
15813 | "i4459")) | |
f42d8bd8 AW |
15814 | #(ribcage |
15815 | () | |
15816 | () | |
15817 | ()) | |
15818 | #(ribcage | |
15819 | #(x) | |
15820 | #((top)) | |
fb6e61ca | 15821 | #("i4453"))) |
f42d8bd8 AW |
15822 | (hygiene |
15823 | guile)) | |
b9434165 | 15824 | (list '#(syntax-object |
f42d8bd8 AW |
15825 | memv |
15826 | ((top) | |
15827 | #(ribcage | |
15828 | #(k | |
15829 | e1 | |
15830 | e2) | |
15831 | #((top) | |
15832 | (top) | |
15833 | (top)) | |
fb6e61ca AW |
15834 | #("i4499" |
15835 | "i4500" | |
15836 | "i4501")) | |
f42d8bd8 AW |
15837 | #(ribcage |
15838 | #(rest) | |
15839 | #((top)) | |
fb6e61ca | 15840 | #("i4495")) |
f42d8bd8 AW |
15841 | #(ribcage |
15842 | () | |
15843 | () | |
15844 | ()) | |
15845 | #(ribcage | |
15846 | #(f | |
15847 | clause | |
15848 | clauses) | |
15849 | #((top) | |
15850 | (top) | |
15851 | (top)) | |
fb6e61ca AW |
15852 | #("i4468" |
15853 | "i4469" | |
15854 | "i4470")) | |
f42d8bd8 AW |
15855 | #(ribcage |
15856 | #(_ | |
15857 | e | |
15858 | m1 | |
15859 | m2) | |
15860 | #((top) | |
15861 | (top) | |
15862 | (top) | |
15863 | (top)) | |
fb6e61ca AW |
15864 | #("i4456" |
15865 | "i4457" | |
15866 | "i4458" | |
15867 | "i4459")) | |
f42d8bd8 AW |
15868 | #(ribcage |
15869 | () | |
15870 | () | |
15871 | ()) | |
15872 | #(ribcage | |
15873 | #(x) | |
15874 | #((top)) | |
fb6e61ca | 15875 | #("i4453"))) |
f42d8bd8 AW |
15876 | (hygiene |
15877 | guile)) | |
15878 | '#(syntax-object | |
15879 | t | |
b9434165 LC |
15880 | ((top) |
15881 | #(ribcage | |
15882 | #(k | |
15883 | e1 | |
15884 | e2) | |
15885 | #((top) | |
15886 | (top) | |
15887 | (top)) | |
fb6e61ca AW |
15888 | #("i4499" |
15889 | "i4500" | |
15890 | "i4501")) | |
b9434165 LC |
15891 | #(ribcage |
15892 | #(rest) | |
15893 | #((top)) | |
fb6e61ca | 15894 | #("i4495")) |
b9434165 LC |
15895 | #(ribcage |
15896 | () | |
15897 | () | |
15898 | ()) | |
15899 | #(ribcage | |
15900 | #(f | |
15901 | clause | |
15902 | clauses) | |
15903 | #((top) | |
15904 | (top) | |
15905 | (top)) | |
fb6e61ca AW |
15906 | #("i4468" |
15907 | "i4469" | |
15908 | "i4470")) | |
b9434165 LC |
15909 | #(ribcage |
15910 | #(_ | |
15911 | e | |
15912 | m1 | |
15913 | m2) | |
15914 | #((top) | |
15915 | (top) | |
15916 | (top) | |
15917 | (top)) | |
fb6e61ca AW |
15918 | #("i4456" |
15919 | "i4457" | |
15920 | "i4458" | |
15921 | "i4459")) | |
b9434165 LC |
15922 | #(ribcage |
15923 | () | |
15924 | () | |
15925 | ()) | |
15926 | #(ribcage | |
15927 | #(x) | |
15928 | #((top)) | |
fb6e61ca | 15929 | #("i4453"))) |
b9434165 LC |
15930 | (hygiene |
15931 | guile)) | |
15932 | (list '#(syntax-object | |
f42d8bd8 | 15933 | quote |
5f161164 AW |
15934 | ((top) |
15935 | #(ribcage | |
15936 | #(k | |
15937 | e1 | |
15938 | e2) | |
15939 | #((top) | |
15940 | (top) | |
15941 | (top)) | |
fb6e61ca AW |
15942 | #("i4499" |
15943 | "i4500" | |
15944 | "i4501")) | |
5f161164 AW |
15945 | #(ribcage |
15946 | #(rest) | |
15947 | #((top)) | |
fb6e61ca | 15948 | #("i4495")) |
5f161164 AW |
15949 | #(ribcage |
15950 | () | |
15951 | () | |
15952 | ()) | |
15953 | #(ribcage | |
15954 | #(f | |
15955 | clause | |
15956 | clauses) | |
15957 | #((top) | |
15958 | (top) | |
15959 | (top)) | |
fb6e61ca AW |
15960 | #("i4468" |
15961 | "i4469" | |
15962 | "i4470")) | |
5f161164 AW |
15963 | #(ribcage |
15964 | #(_ | |
15965 | e | |
15966 | m1 | |
15967 | m2) | |
15968 | #((top) | |
15969 | (top) | |
15970 | (top) | |
15971 | (top)) | |
fb6e61ca AW |
15972 | #("i4456" |
15973 | "i4457" | |
15974 | "i4458" | |
15975 | "i4459")) | |
5f161164 AW |
15976 | #(ribcage |
15977 | () | |
15978 | () | |
15979 | ()) | |
15980 | #(ribcage | |
15981 | #(x) | |
15982 | #((top)) | |
fb6e61ca | 15983 | #("i4453"))) |
5f161164 AW |
15984 | (hygiene |
15985 | guile)) | |
fb6e61ca | 15986 | #{k\ 4502}#)) |
f42d8bd8 AW |
15987 | (cons '#(syntax-object |
15988 | begin | |
15989 | ((top) | |
15990 | #(ribcage | |
15991 | #(k | |
15992 | e1 | |
15993 | e2) | |
15994 | #((top) | |
15995 | (top) | |
15996 | (top)) | |
fb6e61ca AW |
15997 | #("i4499" |
15998 | "i4500" | |
15999 | "i4501")) | |
f42d8bd8 AW |
16000 | #(ribcage |
16001 | #(rest) | |
16002 | #((top)) | |
fb6e61ca | 16003 | #("i4495")) |
f42d8bd8 AW |
16004 | #(ribcage |
16005 | () | |
16006 | () | |
16007 | ()) | |
16008 | #(ribcage | |
16009 | #(f | |
16010 | clause | |
16011 | clauses) | |
16012 | #((top) | |
16013 | (top) | |
16014 | (top)) | |
fb6e61ca AW |
16015 | #("i4468" |
16016 | "i4469" | |
16017 | "i4470")) | |
f42d8bd8 AW |
16018 | #(ribcage |
16019 | #(_ | |
16020 | e | |
16021 | m1 | |
16022 | m2) | |
16023 | #((top) | |
16024 | (top) | |
16025 | (top) | |
16026 | (top)) | |
fb6e61ca AW |
16027 | #("i4456" |
16028 | "i4457" | |
16029 | "i4458" | |
16030 | "i4459")) | |
f42d8bd8 AW |
16031 | #(ribcage |
16032 | () | |
16033 | () | |
16034 | ()) | |
16035 | #(ribcage | |
16036 | #(x) | |
16037 | #((top)) | |
fb6e61ca | 16038 | #("i4453"))) |
f42d8bd8 AW |
16039 | (hygiene |
16040 | guile)) | |
fb6e61ca AW |
16041 | (cons #{e1\ 4503}# |
16042 | #{e2\ 4504}#)) | |
16043 | #{rest\ 4496}#)) | |
16044 | #{tmp\ 4498}#) | |
16045 | ((lambda (#{_\ 4508}#) | |
f42d8bd8 AW |
16046 | (syntax-violation |
16047 | 'case | |
16048 | "bad clause" | |
fb6e61ca AW |
16049 | #{x\ 4452}# |
16050 | #{clause\ 4472}#)) | |
16051 | #{tmp\ 4497}#))) | |
f42d8bd8 | 16052 | ($sc-dispatch |
fb6e61ca | 16053 | #{tmp\ 4497}# |
f42d8bd8 AW |
16054 | '(each-any |
16055 | any | |
16056 | . | |
16057 | each-any)))) | |
fb6e61ca AW |
16058 | #{clause\ 4472}#)) |
16059 | #{tmp\ 4494}#)) | |
16060 | (#{f\ 4471}# | |
16061 | (car #{clauses\ 4473}#) | |
16062 | (cdr #{clauses\ 4473}#))))))) | |
16063 | (#{f\ 4471}# #{m1\ 4462}# #{m2\ 4463}#)))) | |
16064 | #{tmp\ 4455}#) | |
f42d8bd8 AW |
16065 | (syntax-violation |
16066 | #f | |
16067 | "source expression failed to match any pattern" | |
fb6e61ca | 16068 | #{tmp\ 4454}#))) |
f42d8bd8 | 16069 | ($sc-dispatch |
fb6e61ca | 16070 | #{tmp\ 4454}# |
f42d8bd8 | 16071 | '(any any any . each-any)))) |
fb6e61ca | 16072 | #{x\ 4452}#)))) |
65dd9e38 AW |
16073 | |
16074 | (define identifier-syntax | |
e809758a AW |
16075 | (make-syntax-transformer |
16076 | 'identifier-syntax | |
65dd9e38 | 16077 | 'macro |
fb6e61ca AW |
16078 | (lambda (#{x\ 4509}#) |
16079 | ((lambda (#{tmp\ 4511}#) | |
16080 | ((lambda (#{tmp\ 4512}#) | |
16081 | (if #{tmp\ 4512}# | |
16082 | (apply (lambda (#{_\ 4515}# #{e\ 4516}#) | |
f42d8bd8 AW |
16083 | (list '#(syntax-object |
16084 | lambda | |
16085 | ((top) | |
16086 | #(ribcage | |
16087 | #(_ e) | |
16088 | #((top) (top)) | |
fb6e61ca | 16089 | #("i4513" "i4514")) |
f42d8bd8 | 16090 | #(ribcage () () ()) |
fb6e61ca | 16091 | #(ribcage #(x) #((top)) #("i4510"))) |
f42d8bd8 AW |
16092 | (hygiene guile)) |
16093 | '(#(syntax-object | |
16094 | x | |
16095 | ((top) | |
16096 | #(ribcage | |
16097 | #(_ e) | |
16098 | #((top) (top)) | |
fb6e61ca | 16099 | #("i4513" "i4514")) |
f42d8bd8 | 16100 | #(ribcage () () ()) |
fb6e61ca | 16101 | #(ribcage #(x) #((top)) #("i4510"))) |
f42d8bd8 AW |
16102 | (hygiene guile))) |
16103 | '#((#(syntax-object | |
16104 | macro-type | |
16105 | ((top) | |
16106 | #(ribcage | |
16107 | #(_ e) | |
16108 | #((top) (top)) | |
fb6e61ca | 16109 | #("i4513" "i4514")) |
f42d8bd8 | 16110 | #(ribcage () () ()) |
fb6e61ca | 16111 | #(ribcage #(x) #((top)) #("i4510"))) |
f42d8bd8 AW |
16112 | (hygiene guile)) |
16113 | . | |
16114 | #(syntax-object | |
16115 | identifier-syntax | |
16116 | ((top) | |
16117 | #(ribcage | |
16118 | #(_ e) | |
16119 | #((top) (top)) | |
fb6e61ca | 16120 | #("i4513" "i4514")) |
f42d8bd8 | 16121 | #(ribcage () () ()) |
fb6e61ca | 16122 | #(ribcage #(x) #((top)) #("i4510"))) |
f42d8bd8 | 16123 | (hygiene guile)))) |
65dd9e38 | 16124 | (list '#(syntax-object |
f42d8bd8 AW |
16125 | syntax-case |
16126 | ((top) | |
16127 | #(ribcage | |
16128 | #(_ e) | |
16129 | #((top) (top)) | |
fb6e61ca | 16130 | #("i4513" "i4514")) |
f42d8bd8 | 16131 | #(ribcage () () ()) |
fb6e61ca | 16132 | #(ribcage #(x) #((top)) #("i4510"))) |
f42d8bd8 AW |
16133 | (hygiene guile)) |
16134 | '#(syntax-object | |
16135 | x | |
65dd9e38 AW |
16136 | ((top) |
16137 | #(ribcage | |
16138 | #(_ e) | |
16139 | #((top) (top)) | |
fb6e61ca | 16140 | #("i4513" "i4514")) |
65dd9e38 | 16141 | #(ribcage () () ()) |
fb6e61ca | 16142 | #(ribcage #(x) #((top)) #("i4510"))) |
65dd9e38 | 16143 | (hygiene guile)) |
f42d8bd8 | 16144 | '() |
65dd9e38 | 16145 | (list '#(syntax-object |
f42d8bd8 | 16146 | id |
65dd9e38 AW |
16147 | ((top) |
16148 | #(ribcage | |
16149 | #(_ e) | |
16150 | #((top) (top)) | |
fb6e61ca | 16151 | #("i4513" "i4514")) |
65dd9e38 | 16152 | #(ribcage () () ()) |
f6a8e791 AW |
16153 | #(ribcage |
16154 | #(x) | |
16155 | #((top)) | |
fb6e61ca | 16156 | #("i4510"))) |
65dd9e38 | 16157 | (hygiene guile)) |
f42d8bd8 AW |
16158 | '(#(syntax-object |
16159 | identifier? | |
16160 | ((top) | |
16161 | #(ribcage | |
16162 | #(_ e) | |
16163 | #((top) (top)) | |
fb6e61ca | 16164 | #("i4513" "i4514")) |
f42d8bd8 AW |
16165 | #(ribcage () () ()) |
16166 | #(ribcage | |
16167 | #(x) | |
16168 | #((top)) | |
fb6e61ca | 16169 | #("i4510"))) |
f42d8bd8 AW |
16170 | (hygiene guile)) |
16171 | (#(syntax-object | |
16172 | syntax | |
16173 | ((top) | |
16174 | #(ribcage | |
16175 | #(_ e) | |
16176 | #((top) (top)) | |
fb6e61ca | 16177 | #("i4513" "i4514")) |
f42d8bd8 AW |
16178 | #(ribcage () () ()) |
16179 | #(ribcage | |
16180 | #(x) | |
16181 | #((top)) | |
fb6e61ca | 16182 | #("i4510"))) |
f42d8bd8 AW |
16183 | (hygiene guile)) |
16184 | #(syntax-object | |
16185 | id | |
16186 | ((top) | |
16187 | #(ribcage | |
16188 | #(_ e) | |
16189 | #((top) (top)) | |
fb6e61ca | 16190 | #("i4513" "i4514")) |
f42d8bd8 AW |
16191 | #(ribcage () () ()) |
16192 | #(ribcage | |
16193 | #(x) | |
16194 | #((top)) | |
fb6e61ca | 16195 | #("i4510"))) |
f42d8bd8 | 16196 | (hygiene guile)))) |
65dd9e38 | 16197 | (list '#(syntax-object |
f42d8bd8 | 16198 | syntax |
65dd9e38 AW |
16199 | ((top) |
16200 | #(ribcage | |
16201 | #(_ e) | |
16202 | #((top) (top)) | |
fb6e61ca | 16203 | #("i4513" "i4514")) |
65dd9e38 AW |
16204 | #(ribcage () () ()) |
16205 | #(ribcage | |
16206 | #(x) | |
16207 | #((top)) | |
fb6e61ca | 16208 | #("i4510"))) |
65dd9e38 | 16209 | (hygiene guile)) |
fb6e61ca AW |
16210 | #{e\ 4516}#)) |
16211 | (list (cons #{_\ 4515}# | |
65dd9e38 | 16212 | '(#(syntax-object |
f42d8bd8 | 16213 | x |
65dd9e38 AW |
16214 | ((top) |
16215 | #(ribcage | |
16216 | #(_ e) | |
16217 | #((top) (top)) | |
fb6e61ca | 16218 | #("i4513" "i4514")) |
65dd9e38 AW |
16219 | #(ribcage () () ()) |
16220 | #(ribcage | |
16221 | #(x) | |
16222 | #((top)) | |
fb6e61ca | 16223 | #("i4510"))) |
65dd9e38 | 16224 | (hygiene guile)) |
f42d8bd8 AW |
16225 | #(syntax-object |
16226 | ... | |
16227 | ((top) | |
16228 | #(ribcage | |
16229 | #(_ e) | |
16230 | #((top) (top)) | |
fb6e61ca | 16231 | #("i4513" "i4514")) |
f42d8bd8 AW |
16232 | #(ribcage () () ()) |
16233 | #(ribcage | |
16234 | #(x) | |
16235 | #((top)) | |
fb6e61ca | 16236 | #("i4510"))) |
f42d8bd8 AW |
16237 | (hygiene guile)))) |
16238 | (list '#(syntax-object | |
16239 | syntax | |
16240 | ((top) | |
16241 | #(ribcage | |
16242 | #(_ e) | |
16243 | #((top) (top)) | |
fb6e61ca | 16244 | #("i4513" "i4514")) |
f42d8bd8 AW |
16245 | #(ribcage () () ()) |
16246 | #(ribcage | |
16247 | #(x) | |
16248 | #((top)) | |
fb6e61ca | 16249 | #("i4510"))) |
f42d8bd8 | 16250 | (hygiene guile)) |
fb6e61ca | 16251 | (cons #{e\ 4516}# |
65dd9e38 AW |
16252 | '(#(syntax-object |
16253 | x | |
16254 | ((top) | |
16255 | #(ribcage | |
16256 | #(_ e) | |
16257 | #((top) (top)) | |
fb6e61ca | 16258 | #("i4513" "i4514")) |
65dd9e38 AW |
16259 | #(ribcage () () ()) |
16260 | #(ribcage | |
16261 | #(x) | |
16262 | #((top)) | |
fb6e61ca | 16263 | #("i4510"))) |
65dd9e38 AW |
16264 | (hygiene guile)) |
16265 | #(syntax-object | |
16266 | ... | |
16267 | ((top) | |
16268 | #(ribcage | |
16269 | #(_ e) | |
16270 | #((top) (top)) | |
fb6e61ca | 16271 | #("i4513" "i4514")) |
65dd9e38 AW |
16272 | #(ribcage () () ()) |
16273 | #(ribcage | |
16274 | #(x) | |
16275 | #((top)) | |
fb6e61ca | 16276 | #("i4510"))) |
f42d8bd8 AW |
16277 | (hygiene |
16278 | guile))))))))) | |
fb6e61ca | 16279 | #{tmp\ 4512}#) |
f42d8bd8 AW |
16280 | (syntax-violation |
16281 | #f | |
16282 | "source expression failed to match any pattern" | |
fb6e61ca AW |
16283 | #{tmp\ 4511}#))) |
16284 | ($sc-dispatch #{tmp\ 4511}# (quote (any any))))) | |
16285 | #{x\ 4509}#)))) | |
97bc28b6 AW |
16286 | |
16287 | (define define* | |
e809758a AW |
16288 | (make-syntax-transformer |
16289 | 'define* | |
97bc28b6 | 16290 | 'macro |
fb6e61ca AW |
16291 | (lambda (#{x\ 4517}#) |
16292 | ((lambda (#{tmp\ 4519}#) | |
16293 | ((lambda (#{tmp\ 4520}#) | |
16294 | (if #{tmp\ 4520}# | |
16295 | (apply (lambda (#{_\ 4526}# | |
16296 | #{id\ 4527}# | |
16297 | #{args\ 4528}# | |
16298 | #{b0\ 4529}# | |
16299 | #{b1\ 4530}#) | |
f42d8bd8 AW |
16300 | (list '#(syntax-object |
16301 | define | |
16302 | ((top) | |
16303 | #(ribcage | |
16304 | #(_ id args b0 b1) | |
16305 | #((top) (top) (top) (top) (top)) | |
fb6e61ca | 16306 | #("i4521" "i4522" "i4523" "i4524" "i4525")) |
f42d8bd8 | 16307 | #(ribcage () () ()) |
fb6e61ca | 16308 | #(ribcage #(x) #((top)) #("i4518"))) |
f42d8bd8 | 16309 | (hygiene guile)) |
fb6e61ca | 16310 | #{id\ 4527}# |
f42d8bd8 AW |
16311 | (cons '#(syntax-object |
16312 | lambda* | |
97bc28b6 AW |
16313 | ((top) |
16314 | #(ribcage | |
64fa96ef AW |
16315 | #(_ id args b0 b1) |
16316 | #((top) (top) (top) (top) (top)) | |
fb6e61ca AW |
16317 | #("i4521" |
16318 | "i4522" | |
16319 | "i4523" | |
16320 | "i4524" | |
16321 | "i4525")) | |
97bc28b6 | 16322 | #(ribcage () () ()) |
fb6e61ca | 16323 | #(ribcage #(x) #((top)) #("i4518"))) |
97bc28b6 | 16324 | (hygiene guile)) |
fb6e61ca AW |
16325 | (cons #{args\ 4528}# |
16326 | (cons #{b0\ 4529}# #{b1\ 4530}#))))) | |
16327 | #{tmp\ 4520}#) | |
16328 | ((lambda (#{tmp\ 4532}#) | |
16329 | (if (if #{tmp\ 4532}# | |
16330 | (apply (lambda (#{_\ 4536}# #{id\ 4537}# #{val\ 4538}#) | |
f42d8bd8 AW |
16331 | (identifier? |
16332 | '#(syntax-object | |
16333 | x | |
16334 | ((top) | |
16335 | #(ribcage | |
16336 | #(_ id val) | |
16337 | #((top) (top) (top)) | |
fb6e61ca | 16338 | #("i4533" "i4534" "i4535")) |
f42d8bd8 | 16339 | #(ribcage () () ()) |
fb6e61ca | 16340 | #(ribcage #(x) #((top)) #("i4518"))) |
f42d8bd8 | 16341 | (hygiene guile)))) |
fb6e61ca | 16342 | #{tmp\ 4532}#) |
f42d8bd8 | 16343 | #f) |
fb6e61ca | 16344 | (apply (lambda (#{_\ 4542}# #{id\ 4543}# #{val\ 4544}#) |
f42d8bd8 AW |
16345 | (list '#(syntax-object |
16346 | define | |
16347 | ((top) | |
16348 | #(ribcage | |
16349 | #(_ id val) | |
16350 | #((top) (top) (top)) | |
fb6e61ca | 16351 | #("i4539" "i4540" "i4541")) |
f42d8bd8 | 16352 | #(ribcage () () ()) |
fb6e61ca | 16353 | #(ribcage #(x) #((top)) #("i4518"))) |
f42d8bd8 | 16354 | (hygiene guile)) |
fb6e61ca AW |
16355 | #{id\ 4543}# |
16356 | #{val\ 4544}#)) | |
16357 | #{tmp\ 4532}#) | |
f42d8bd8 AW |
16358 | (syntax-violation |
16359 | #f | |
16360 | "source expression failed to match any pattern" | |
fb6e61ca | 16361 | #{tmp\ 4519}#))) |
f42d8bd8 | 16362 | ($sc-dispatch |
fb6e61ca | 16363 | #{tmp\ 4519}# |
f42d8bd8 AW |
16364 | '(any any any))))) |
16365 | ($sc-dispatch | |
fb6e61ca | 16366 | #{tmp\ 4519}# |
f42d8bd8 | 16367 | '(any (any . any) any . each-any)))) |
fb6e61ca | 16368 | #{x\ 4517}#)))) |
65dd9e38 | 16369 |