HCoop / bpt / guile.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
@@ generalized to arbitrary expressions.
[bpt/guile.git] / module / ice-9 / psyntax-pp.scm
1 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
2 (if #f #f)
3
4 (letrec ((#{and-map*\ 10504}#
5 (lambda (#{f\ 10566}# #{first\ 10567}# . #{rest\ 10568}#)
6 (let ((#{t\ 10574}# (null? #{first\ 10567}#)))
7 (if #{t\ 10574}#
8 #{t\ 10574}#
9 (if (null? #{rest\ 10568}#)
10 (letrec ((#{andmap\ 10578}#
11 (lambda (#{first\ 10579}#)
12 (let ((#{x\ 10582}# (car #{first\ 10579}#))
13 (#{first\ 10583}#
14 (cdr #{first\ 10579}#)))
15 (if (null? #{first\ 10583}#)
16 (#{f\ 10566}# #{x\ 10582}#)
17 (if (#{f\ 10566}# #{x\ 10582}#)
18 (#{andmap\ 10578}# #{first\ 10583}#)
19 #f))))))
20 (#{andmap\ 10578}# #{first\ 10567}#))
21 (letrec ((#{andmap\ 10589}#
22 (lambda (#{first\ 10590}# #{rest\ 10591}#)
23 (let ((#{x\ 10596}# (car #{first\ 10590}#))
24 (#{xr\ 10597}# (map car #{rest\ 10591}#))
25 (#{first\ 10598}# (cdr #{first\ 10590}#))
26 (#{rest\ 10599}#
27 (map cdr #{rest\ 10591}#)))
28 (if (null? #{first\ 10598}#)
29 (apply #{f\ 10566}#
30 (cons #{x\ 10596}# #{xr\ 10597}#))
31 (if (apply #{f\ 10566}#
32 (cons #{x\ 10596}#
33 #{xr\ 10597}#))
34 (#{andmap\ 10589}#
35 #{first\ 10598}#
36 #{rest\ 10599}#)
37 #f))))))
38 (#{andmap\ 10589}#
39 #{first\ 10567}#
40 #{rest\ 10568}#))))))))
41 (letrec ((#{lambda-var-list\ 10821}#
42 (lambda (#{vars\ 11036}#)
43 (letrec ((#{lvl\ 11042}#
44 (lambda (#{vars\ 11043}# #{ls\ 11044}# #{w\ 11045}#)
45 (if (pair? #{vars\ 11043}#)
46 (#{lvl\ 11042}#
47 (cdr #{vars\ 11043}#)
48 (cons (#{wrap\ 10775}#
49 (car #{vars\ 11043}#)
50 #{w\ 11045}#
51 #f)
52 #{ls\ 11044}#)
53 #{w\ 11045}#)
54 (if (#{id?\ 10706}# #{vars\ 11043}#)
55 (cons (#{wrap\ 10775}#
56 #{vars\ 11043}#
57 #{w\ 11045}#
58 #f)
59 #{ls\ 11044}#)
60 (if (null? #{vars\ 11043}#)
61 #{ls\ 11044}#
62 (if (#{syntax-object?\ 10670}#
63 #{vars\ 11043}#)
64 (#{lvl\ 11042}#
65 (#{syntax-object-expression\ 10672}#
66 #{vars\ 11043}#)
67 #{ls\ 11044}#
68 (#{join-wraps\ 10757}#
69 #{w\ 11045}#
70 (#{syntax-object-wrap\ 10674}#
71 #{vars\ 11043}#)))
72 (cons #{vars\ 11043}# #{ls\ 11044}#))))))))
73 (#{lvl\ 11042}#
74 #{vars\ 11036}#
75 '()
76 '(())))))
77 (#{gen-var\ 10819}#
78 (lambda (#{id\ 11056}#)
79 (let ((#{id\ 11059}#
80 (if (#{syntax-object?\ 10670}# #{id\ 11056}#)
81 (#{syntax-object-expression\ 10672}#
82 #{id\ 11056}#)
83 #{id\ 11056}#)))
84 (gensym
85 (string-append
86 (symbol->string #{id\ 11059}#)
87 " ")))))
88 (#{strip\ 10817}#
89 (lambda (#{x\ 11061}# #{w\ 11062}#)
90 (if (memq 'top
91 (#{wrap-marks\ 10713}# #{w\ 11062}#))
92 #{x\ 11061}#
93 (letrec ((#{f\ 11068}#
94 (lambda (#{x\ 11069}#)
95 (if (#{syntax-object?\ 10670}# #{x\ 11069}#)
96 (#{strip\ 10817}#
97 (#{syntax-object-expression\ 10672}#
98 #{x\ 11069}#)
99 (#{syntax-object-wrap\ 10674}# #{x\ 11069}#))
100 (if (pair? #{x\ 11069}#)
101 (let ((#{a\ 11076}#
102 (#{f\ 11068}# (car #{x\ 11069}#)))
103 (#{d\ 11077}#
104 (#{f\ 11068}# (cdr #{x\ 11069}#))))
105 (if (if (eq? #{a\ 11076}#
106 (car #{x\ 11069}#))
107 (eq? #{d\ 11077}# (cdr #{x\ 11069}#))
108 #f)
109 #{x\ 11069}#
110 (cons #{a\ 11076}# #{d\ 11077}#)))
111 (if (vector? #{x\ 11069}#)
112 (let ((#{old\ 11083}#
113 (vector->list #{x\ 11069}#)))
114 (let ((#{new\ 11085}#
115 (map #{f\ 11068}#
116 #{old\ 11083}#)))
117 (if (#{and-map*\ 10504}#
118 eq?
119 #{old\ 11083}#
120 #{new\ 11085}#)
121 #{x\ 11069}#
122 (list->vector #{new\ 11085}#))))
123 #{x\ 11069}#))))))
124 (#{f\ 11068}# #{x\ 11061}#)))))
125 (#{chi-lambda-case\ 10815}#
126 (lambda (#{e\ 11087}#
127 #{r\ 11088}#
128 #{w\ 11089}#
129 #{s\ 11090}#
130 #{mod\ 11091}#
131 #{get-formals\ 11092}#
132 #{clauses\ 11093}#)
133 (letrec ((#{expand-body\ 11108}#
134 (lambda (#{req\ 11109}#
135 #{opt\ 11110}#
136 #{rest\ 11111}#
137 #{kw\ 11112}#
138 #{body\ 11113}#
139 #{vars\ 11114}#
140 #{r*\ 11115}#
141 #{w*\ 11116}#
142 #{inits\ 11117}#
143 #{meta\ 11118}#)
144 ((lambda (#{tmp\ 11129}#)
145 ((lambda (#{tmp\ 11130}#)
146 (if (if #{tmp\ 11130}#
147 (apply (lambda (#{docstring\ 11134}#
148 #{e1\ 11135}#
149 #{e2\ 11136}#)
150 (string?
151 (syntax->datum
152 #{docstring\ 11134}#)))
153 #{tmp\ 11130}#)
154 #f)
155 (apply (lambda (#{docstring\ 11140}#
156 #{e1\ 11141}#
157 #{e2\ 11142}#)
158 (#{expand-body\ 11108}#
159 #{req\ 11109}#
160 #{opt\ 11110}#
161 #{rest\ 11111}#
162 #{kw\ 11112}#
163 (cons #{e1\ 11141}#
164 #{e2\ 11142}#)
165 #{vars\ 11114}#
166 #{r*\ 11115}#
167 #{w*\ 11116}#
168 #{inits\ 11117}#
169 (append
170 #{meta\ 11118}#
171 (list (cons 'documentation
172 (syntax->datum
173 #{docstring\ 11140}#))))))
174 #{tmp\ 11130}#)
175 ((lambda (#{tmp\ 11145}#)
176 (if #{tmp\ 11145}#
177 (apply (lambda (#{k\ 11150}#
178 #{v\ 11151}#
179 #{e1\ 11152}#
180 #{e2\ 11153}#)
181 (#{expand-body\ 11108}#
182 #{req\ 11109}#
183 #{opt\ 11110}#
184 #{rest\ 11111}#
185 #{kw\ 11112}#
186 (cons #{e1\ 11152}#
187 #{e2\ 11153}#)
188 #{vars\ 11114}#
189 #{r*\ 11115}#
190 #{w*\ 11116}#
191 #{inits\ 11117}#
192 (append
193 #{meta\ 11118}#
194 (syntax->datum
195 (map cons
196 #{k\ 11150}#
197 #{v\ 11151}#)))))
198 #{tmp\ 11145}#)
199 ((lambda (#{tmp\ 11157}#)
200 (if #{tmp\ 11157}#
201 (apply (lambda (#{e1\ 11160}#
202 #{e2\ 11161}#)
203 (values
204 #{meta\ 11118}#
205 #{req\ 11109}#
206 #{opt\ 11110}#
207 #{rest\ 11111}#
208 #{kw\ 11112}#
209 #{inits\ 11117}#
210 #{vars\ 11114}#
211 (#{chi-body\ 10799}#
212 (cons #{e1\ 11160}#
213 #{e2\ 11161}#)
214 (#{source-wrap\ 10777}#
215 #{e\ 11087}#
216 #{w\ 11089}#
217 #{s\ 11090}#
218 #{mod\ 11091}#)
219 #{r*\ 11115}#
220 #{w*\ 11116}#
221 #{mod\ 11091}#)))
222 #{tmp\ 11157}#)
223 (syntax-violation
224 #f
225 "source expression failed to match any pattern"
226 #{tmp\ 11129}#)))
227 ($sc-dispatch
228 #{tmp\ 11129}#
229 '(any . each-any)))))
230 ($sc-dispatch
231 #{tmp\ 11129}#
232 '(#(vector #(each (any . any)))
233 any
234 .
235 each-any)))))
236 ($sc-dispatch
237 #{tmp\ 11129}#
238 '(any any . each-any))))
239 #{body\ 11113}#)))
240 (#{expand-kw\ 11106}#
241 (lambda (#{req\ 11163}#
242 #{opt\ 11164}#
243 #{rest\ 11165}#
244 #{kw\ 11166}#
245 #{body\ 11167}#
246 #{vars\ 11168}#
247 #{r*\ 11169}#
248 #{w*\ 11170}#
249 #{aok\ 11171}#
250 #{out\ 11172}#
251 #{inits\ 11173}#)
252 (if (pair? #{kw\ 11166}#)
253 ((lambda (#{tmp\ 11187}#)
254 ((lambda (#{tmp\ 11188}#)
255 (if #{tmp\ 11188}#
256 (apply (lambda (#{k\ 11192}#
257 #{id\ 11193}#
258 #{i\ 11194}#)
259 (let ((#{v\ 11197}#
260 (#{gen-var\ 10819}#
261 #{id\ 11193}#)))
262 (let ((#{l\ 11199}#
263 (#{gen-labels\ 10724}#
264 (list #{v\ 11197}#))))
265 (let ((#{r**\ 11201}#
266 (#{extend-var-env\ 10696}#
267 #{l\ 11199}#
268 (list #{v\ 11197}#)
269 #{r*\ 11169}#)))
270 (let ((#{w**\ 11203}#
271 (#{make-binding-wrap\ 10753}#
272 (list #{id\ 11193}#)
273 #{l\ 11199}#
274 #{w*\ 11170}#)))
275 (#{expand-kw\ 11106}#
276 #{req\ 11163}#
277 #{opt\ 11164}#
278 #{rest\ 11165}#
279 (cdr #{kw\ 11166}#)
280 #{body\ 11167}#
281 (cons #{v\ 11197}#
282 #{vars\ 11168}#)
283 #{r**\ 11201}#
284 #{w**\ 11203}#
285 #{aok\ 11171}#
286 (cons (list (syntax->datum
287 #{k\ 11192}#)
288 (syntax->datum
289 #{id\ 11193}#)
290 #{v\ 11197}#)
291 #{out\ 11172}#)
292 (cons (#{chi\ 10791}#
293 #{i\ 11194}#
294 #{r*\ 11169}#
295 #{w*\ 11170}#
296 #{mod\ 11091}#)
297 #{inits\ 11173}#)))))))
298 #{tmp\ 11188}#)
299 (syntax-violation
300 #f
301 "source expression failed to match any pattern"
302 #{tmp\ 11187}#)))
303 ($sc-dispatch
304 #{tmp\ 11187}#
305 '(any any any))))
306 (car #{kw\ 11166}#))
307 (#{expand-body\ 11108}#
308 #{req\ 11163}#
309 #{opt\ 11164}#
310 #{rest\ 11165}#
311 (if (let ((#{t\ 11207}# #{aok\ 11171}#))
312 (if #{t\ 11207}#
313 #{t\ 11207}#
314 (pair? #{out\ 11172}#)))
315 (cons #{aok\ 11171}#
316 (reverse #{out\ 11172}#))
317 #f)
318 #{body\ 11167}#
319 (reverse #{vars\ 11168}#)
320 #{r*\ 11169}#
321 #{w*\ 11170}#
322 (reverse #{inits\ 11173}#)
323 '()))))
324 (#{expand-opt\ 11104}#
325 (lambda (#{req\ 11209}#
326 #{opt\ 11210}#
327 #{rest\ 11211}#
328 #{kw\ 11212}#
329 #{body\ 11213}#
330 #{vars\ 11214}#
331 #{r*\ 11215}#
332 #{w*\ 11216}#
333 #{out\ 11217}#
334 #{inits\ 11218}#)
335 (if (pair? #{opt\ 11210}#)
336 ((lambda (#{tmp\ 11231}#)
337 ((lambda (#{tmp\ 11232}#)
338 (if #{tmp\ 11232}#
339 (apply (lambda (#{id\ 11235}#
340 #{i\ 11236}#)
341 (let ((#{v\ 11239}#
342 (#{gen-var\ 10819}#
343 #{id\ 11235}#)))
344 (let ((#{l\ 11241}#
345 (#{gen-labels\ 10724}#
346 (list #{v\ 11239}#))))
347 (let ((#{r**\ 11243}#
348 (#{extend-var-env\ 10696}#
349 #{l\ 11241}#
350 (list #{v\ 11239}#)
351 #{r*\ 11215}#)))
352 (let ((#{w**\ 11245}#
353 (#{make-binding-wrap\ 10753}#
354 (list #{id\ 11235}#)
355 #{l\ 11241}#
356 #{w*\ 11216}#)))
357 (#{expand-opt\ 11104}#
358 #{req\ 11209}#
359 (cdr #{opt\ 11210}#)
360 #{rest\ 11211}#
361 #{kw\ 11212}#
362 #{body\ 11213}#
363 (cons #{v\ 11239}#
364 #{vars\ 11214}#)
365 #{r**\ 11243}#
366 #{w**\ 11245}#
367 (cons (syntax->datum
368 #{id\ 11235}#)
369 #{out\ 11217}#)
370 (cons (#{chi\ 10791}#
371 #{i\ 11236}#
372 #{r*\ 11215}#
373 #{w*\ 11216}#
374 #{mod\ 11091}#)
375 #{inits\ 11218}#)))))))
376 #{tmp\ 11232}#)
377 (syntax-violation
378 #f
379 "source expression failed to match any pattern"
380 #{tmp\ 11231}#)))
381 ($sc-dispatch
382 #{tmp\ 11231}#
383 '(any any))))
384 (car #{opt\ 11210}#))
385 (if #{rest\ 11211}#
386 (let ((#{v\ 11250}#
387 (#{gen-var\ 10819}# #{rest\ 11211}#)))
388 (let ((#{l\ 11252}#
389 (#{gen-labels\ 10724}#
390 (list #{v\ 11250}#))))
391 (let ((#{r*\ 11254}#
392 (#{extend-var-env\ 10696}#
393 #{l\ 11252}#
394 (list #{v\ 11250}#)
395 #{r*\ 11215}#)))
396 (let ((#{w*\ 11256}#
397 (#{make-binding-wrap\ 10753}#
398 (list #{rest\ 11211}#)
399 #{l\ 11252}#
400 #{w*\ 11216}#)))
401 (#{expand-kw\ 11106}#
402 #{req\ 11209}#
403 (if (pair? #{out\ 11217}#)
404 (reverse #{out\ 11217}#)
405 #f)
406 (syntax->datum #{rest\ 11211}#)
407 (if (pair? #{kw\ 11212}#)
408 (cdr #{kw\ 11212}#)
409 #{kw\ 11212}#)
410 #{body\ 11213}#
411 (cons #{v\ 11250}# #{vars\ 11214}#)
412 #{r*\ 11254}#
413 #{w*\ 11256}#
414 (if (pair? #{kw\ 11212}#)
415 (car #{kw\ 11212}#)
416 #f)
417 '()
418 #{inits\ 11218}#)))))
419 (#{expand-kw\ 11106}#
420 #{req\ 11209}#
421 (if (pair? #{out\ 11217}#)
422 (reverse #{out\ 11217}#)
423 #f)
424 #f
425 (if (pair? #{kw\ 11212}#)
426 (cdr #{kw\ 11212}#)
427 #{kw\ 11212}#)
428 #{body\ 11213}#
429 #{vars\ 11214}#
430 #{r*\ 11215}#
431 #{w*\ 11216}#
432 (if (pair? #{kw\ 11212}#)
433 (car #{kw\ 11212}#)
434 #f)
435 '()
436 #{inits\ 11218}#)))))
437 (#{expand-req\ 11102}#
438 (lambda (#{req\ 11258}#
439 #{opt\ 11259}#
440 #{rest\ 11260}#
441 #{kw\ 11261}#
442 #{body\ 11262}#)
443 (let ((#{vars\ 11270}#
444 (map #{gen-var\ 10819}# #{req\ 11258}#))
445 (#{labels\ 11271}#
446 (#{gen-labels\ 10724}# #{req\ 11258}#)))
447 (let ((#{r*\ 11274}#
448 (#{extend-var-env\ 10696}#
449 #{labels\ 11271}#
450 #{vars\ 11270}#
451 #{r\ 11088}#))
452 (#{w*\ 11275}#
453 (#{make-binding-wrap\ 10753}#
454 #{req\ 11258}#
455 #{labels\ 11271}#
456 #{w\ 11089}#)))
457 (#{expand-opt\ 11104}#
458 (map syntax->datum #{req\ 11258}#)
459 #{opt\ 11259}#
460 #{rest\ 11260}#
461 #{kw\ 11261}#
462 #{body\ 11262}#
463 (reverse #{vars\ 11270}#)
464 #{r*\ 11274}#
465 #{w*\ 11275}#
466 '()
467 '()))))))
468 ((lambda (#{tmp\ 11276}#)
469 ((lambda (#{tmp\ 11277}#)
470 (if #{tmp\ 11277}#
471 (apply (lambda () (values (quote ()) #f))
472 #{tmp\ 11277}#)
473 ((lambda (#{tmp\ 11278}#)
474 (if #{tmp\ 11278}#
475 (apply (lambda (#{args\ 11285}#
476 #{e1\ 11286}#
477 #{e2\ 11287}#
478 #{args*\ 11288}#
479 #{e1*\ 11289}#
480 #{e2*\ 11290}#)
481 (call-with-values
482 (lambda ()
483 (#{get-formals\ 11092}#
484 #{args\ 11285}#))
485 (lambda (#{req\ 11291}#
486 #{opt\ 11292}#
487 #{rest\ 11293}#
488 #{kw\ 11294}#)
489 (call-with-values
490 (lambda ()
491 (#{expand-req\ 11102}#
492 #{req\ 11291}#
493 #{opt\ 11292}#
494 #{rest\ 11293}#
495 #{kw\ 11294}#
496 (cons #{e1\ 11286}#
497 #{e2\ 11287}#)))
498 (lambda (#{meta\ 11300}#
499 #{req\ 11301}#
500 #{opt\ 11302}#
501 #{rest\ 11303}#
502 #{kw\ 11304}#
503 #{inits\ 11305}#
504 #{vars\ 11306}#
505 #{body\ 11307}#)
506 (call-with-values
507 (lambda ()
508 (#{chi-lambda-case\ 10815}#
509 #{e\ 11087}#
510 #{r\ 11088}#
511 #{w\ 11089}#
512 #{s\ 11090}#
513 #{mod\ 11091}#
514 #{get-formals\ 11092}#
515 (map (lambda (#{tmp\ 11318}#
516 #{tmp\ 11317}#
517 #{tmp\ 11316}#)
518 (cons #{tmp\ 11316}#
519 (cons #{tmp\ 11317}#
520 #{tmp\ 11318}#)))
521 #{e2*\ 11290}#
522 #{e1*\ 11289}#
523 #{args*\ 11288}#)))
524 (lambda (#{meta*\ 11320}#
525 #{else*\ 11321}#)
526 (values
527 (append
528 #{meta\ 11300}#
529 #{meta*\ 11320}#)
530 (#{build-lambda-case\ 10652}#
531 #{s\ 11090}#
532 #{req\ 11301}#
533 #{opt\ 11302}#
534 #{rest\ 11303}#
535 #{kw\ 11304}#
536 #{inits\ 11305}#
537 #{vars\ 11306}#
538 #{body\ 11307}#
539 #{else*\ 11321}#)))))))))
540 #{tmp\ 11278}#)
541 (syntax-violation
542 #f
543 "source expression failed to match any pattern"
544 #{tmp\ 11276}#)))
545 ($sc-dispatch
546 #{tmp\ 11276}#
547 '((any any . each-any)
548 .
549 #(each (any any . each-any)))))))
550 ($sc-dispatch #{tmp\ 11276}# (quote ()))))
551 #{clauses\ 11093}#))))
552 (#{lambda*-formals\ 10813}#
553 (lambda (#{orig-args\ 11324}#)
554 (letrec ((#{check\ 11335}#
555 (lambda (#{req\ 11336}#
556 #{opt\ 11337}#
557 #{rest\ 11338}#
558 #{kw\ 11339}#)
559 (if (#{distinct-bound-ids?\ 10771}#
560 (append
561 #{req\ 11336}#
562 (map car #{opt\ 11337}#)
563 (if #{rest\ 11338}#
564 (list #{rest\ 11338}#)
565 '())
566 (if (pair? #{kw\ 11339}#)
567 (map cadr (cdr #{kw\ 11339}#))
568 '())))
569 (values
570 #{req\ 11336}#
571 #{opt\ 11337}#
572 #{rest\ 11338}#
573 #{kw\ 11339}#)
574 (syntax-violation
575 'lambda*
576 "duplicate identifier in argument list"
577 #{orig-args\ 11324}#))))
578 (#{rest\ 11333}#
579 (lambda (#{args\ 11347}#
580 #{req\ 11348}#
581 #{opt\ 11349}#
582 #{kw\ 11350}#)
583 ((lambda (#{tmp\ 11355}#)
584 ((lambda (#{tmp\ 11356}#)
585 (if (if #{tmp\ 11356}#
586 (apply (lambda (#{r\ 11358}#)
587 (#{id?\ 10706}# #{r\ 11358}#))
588 #{tmp\ 11356}#)
589 #f)
590 (apply (lambda (#{r\ 11360}#)
591 (#{check\ 11335}#
592 #{req\ 11348}#
593 #{opt\ 11349}#
594 #{r\ 11360}#
595 #{kw\ 11350}#))
596 #{tmp\ 11356}#)
597 ((lambda (#{else\ 11362}#)
598 (syntax-violation
599 'lambda*
600 "invalid rest argument"
601 #{orig-args\ 11324}#
602 #{args\ 11347}#))
603 #{tmp\ 11355}#)))
604 (list #{tmp\ 11355}#)))
605 #{args\ 11347}#)))
606 (#{key\ 11331}#
607 (lambda (#{args\ 11363}#
608 #{req\ 11364}#
609 #{opt\ 11365}#
610 #{rkey\ 11366}#)
611 ((lambda (#{tmp\ 11371}#)
612 ((lambda (#{tmp\ 11372}#)
613 (if #{tmp\ 11372}#
614 (apply (lambda ()
615 (#{check\ 11335}#
616 #{req\ 11364}#
617 #{opt\ 11365}#
618 #f
619 (cons #f
620 (reverse
621 #{rkey\ 11366}#))))
622 #{tmp\ 11372}#)
623 ((lambda (#{tmp\ 11373}#)
624 (if (if #{tmp\ 11373}#
625 (apply (lambda (#{a\ 11376}#
626 #{b\ 11377}#)
627 (#{id?\ 10706}#
628 #{a\ 11376}#))
629 #{tmp\ 11373}#)
630 #f)
631 (apply (lambda (#{a\ 11380}#
632 #{b\ 11381}#)
633 ((lambda (#{tmp\ 11383}#)
634 ((lambda (#{k\ 11385}#)
635 (#{key\ 11331}#
636 #{b\ 11381}#
637 #{req\ 11364}#
638 #{opt\ 11365}#
639 (cons (cons #{k\ 11385}#
640 (cons #{a\ 11380}#
641 '(#(syntax-object
642 #f
643 ((top)
644 #(ribcage
645 #(k)
646 #((top))
647 #("i11384"))
648 #(ribcage
649 #(a
650 b)
651 #((top)
652 (top))
653 #("i11378"
654 "i11379"))
655 #(ribcage
656 ()
657 ()
658 ())
659 #(ribcage
660 #(args
661 req
662 opt
663 rkey)
664 #((top)
665 (top)
666 (top)
667 (top))
668 #("i11367"
669 "i11368"
670 "i11369"
671 "i11370"))
672 #(ribcage
673 (check rest
674 key
675 opt
676 req)
677 ((top)
678 (top)
679 (top)
680 (top)
681 (top))
682 ("i11334"
683 "i11332"
684 "i11330"
685 "i11328"
686 "i11326"))
687 #(ribcage
688 #(orig-args)
689 #((top))
690 #("i11325"))
691 #(ribcage
692 (lambda-var-list
693 gen-var
694 strip
695 chi-lambda-case
696 lambda*-formals
697 chi-simple-lambda
698 lambda-formals
699 ellipsis?
700 chi-void
701 eval-local-transformer
702 chi-local-syntax
703 chi-body
704 chi-macro
705 chi-application
706 chi-expr
707 chi
708 chi-top
709 syntax-type
710 chi-when-list
711 chi-install-global
712 chi-top-sequence
713 chi-sequence
714 source-wrap
715 wrap
716 bound-id-member?
717 distinct-bound-ids?
718 valid-bound-ids?
719 bound-id=?
720 free-id=?
721 id-var-name
722 same-marks?
723 join-marks
724 join-wraps
725 smart-append
726 make-binding-wrap
727 extend-ribcage!
728 make-empty-ribcage
729 new-mark
730 anti-mark
731 the-anti-mark
732 top-marked?
733 top-wrap
734 empty-wrap
735 set-ribcage-labels!
736 set-ribcage-marks!
737 set-ribcage-symnames!
738 ribcage-labels
739 ribcage-marks
740 ribcage-symnames
741 ribcage?
742 make-ribcage
743 gen-labels
744 gen-label
745 make-rename
746 rename-marks
747 rename-new
748 rename-old
749 subst-rename?
750 wrap-subst
751 wrap-marks
752 make-wrap
753 id-sym-name&marks
754 id-sym-name
755 id?
756 nonsymbol-id?
757 global-extend
758 lookup
759 macros-only-env
760 extend-var-env
761 extend-env
762 null-env
763 binding-value
764 binding-type
765 make-binding
766 arg-check
767 source-annotation
768 no-source
769 set-syntax-object-module!
770 set-syntax-object-wrap!
771 set-syntax-object-expression!
772 syntax-object-module
773 syntax-object-wrap
774 syntax-object-expression
775 syntax-object?
776 make-syntax-object
777 build-lexical-var
778 build-letrec
779 build-named-let
780 build-let
781 build-sequence
782 build-data
783 build-primref
784 build-lambda-case
785 build-case-lambda
786 build-simple-lambda
787 build-global-definition
788 maybe-name-value!
789 build-global-assignment
790 build-global-reference
791 analyze-variable
792 build-lexical-assignment
793 build-lexical-reference
794 build-dynlet
795 build-conditional
796 build-application
797 build-void
798 decorate-source
799 get-global-definition-hook
800 put-global-definition-hook
801 gensym-hook
802 local-eval-hook
803 top-level-eval-hook
804 fx<
805 fx=
806 fx-
807 fx+
808 *mode*
809 noexpand)
810 ((top)
811 (top)
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))
928 ("i10820"
929 "i10818"
930 "i10816"
931 "i10814"
932 "i10812"
933 "i10810"
934 "i10808"
935 "i10806"
936 "i10804"
937 "i10802"
938 "i10800"
939 "i10798"
940 "i10796"
941 "i10794"
942 "i10792"
943 "i10790"
944 "i10788"
945 "i10786"
946 "i10784"
947 "i10782"
948 "i10780"
949 "i10778"
950 "i10776"
951 "i10774"
952 "i10772"
953 "i10770"
954 "i10768"
955 "i10766"
956 "i10764"
957 "i10762"
958 "i10760"
959 "i10758"
960 "i10756"
961 "i10754"
962 "i10752"
963 "i10750"
964 "i10749"
965 "i10748"
966 "i10746"
967 "i10745"
968 "i10744"
969 "i10743"
970 "i10742"
971 "i10740"
972 "i10738"
973 "i10736"
974 "i10734"
975 "i10732"
976 "i10730"
977 "i10728"
978 "i10726"
979 "i10723"
980 "i10721"
981 "i10720"
982 "i10719"
983 "i10718"
984 "i10717"
985 "i10716"
986 "i10714"
987 "i10712"
988 "i10710"
989 "i10708"
990 "i10707"
991 "i10705"
992 "i10703"
993 "i10701"
994 "i10699"
995 "i10697"
996 "i10695"
997 "i10693"
998 "i10692"
999 "i10690"
1000 "i10688"
1001 "i10687"
1002 "i10686"
1003 "i10684"
1004 "i10683"
1005 "i10681"
1006 "i10679"
1007 "i10677"
1008 "i10675"
1009 "i10673"
1010 "i10671"
1011 "i10669"
1012 "i10667"
1013 "i10665"
1014 "i10663"
1015 "i10661"
1016 "i10659"
1017 "i10657"
1018 "i10655"
1019 "i10653"
1020 "i10651"
1021 "i10649"
1022 "i10647"
1023 "i10645"
1024 "i10643"
1025 "i10641"
1026 "i10639"
1027 "i10637"
1028 "i10635"
1029 "i10633"
1030 "i10631"
1031 "i10629"
1032 "i10627"
1033 "i10625"
1034 "i10623"
1035 "i10621"
1036 "i10619"
1037 "i10618"
1038 "i10616"
1039 "i10614"
1040 "i10612"
1041 "i10610"
1042 "i10608"
1043 "i10606"
1044 "i10604"
1045 "i10602"))
1046 #(ribcage
1047 (define-structure
1048 and-map*)
1049 ((top)
1050 (top))
1051 ("i10505"
1052 "i10503")))
1053 (hygiene
1054 guile)))))
1055 #{rkey\ 11366}#)))
1056 #{tmp\ 11383}#))
1057 (symbol->keyword
1058 (syntax->datum
1059 #{a\ 11380}#))))
1060 #{tmp\ 11373}#)
1061 ((lambda (#{tmp\ 11386}#)
1062 (if (if #{tmp\ 11386}#
1063 (apply (lambda (#{a\ 11390}#
1064 #{init\ 11391}#
1065 #{b\ 11392}#)
1066 (#{id?\ 10706}#
1067 #{a\ 11390}#))
1068 #{tmp\ 11386}#)
1069 #f)
1070 (apply (lambda (#{a\ 11396}#
1071 #{init\ 11397}#
1072 #{b\ 11398}#)
1073 ((lambda (#{tmp\ 11400}#)
1074 ((lambda (#{k\ 11402}#)
1075 (#{key\ 11331}#
1076 #{b\ 11398}#
1077 #{req\ 11364}#
1078 #{opt\ 11365}#
1079 (cons (list #{k\ 11402}#
1080 #{a\ 11396}#
1081 #{init\ 11397}#)
1082 #{rkey\ 11366}#)))
1083 #{tmp\ 11400}#))
1084 (symbol->keyword
1085 (syntax->datum
1086 #{a\ 11396}#))))
1087 #{tmp\ 11386}#)
1088 ((lambda (#{tmp\ 11403}#)
1089 (if (if #{tmp\ 11403}#
1090 (apply (lambda (#{a\ 11408}#
1091 #{init\ 11409}#
1092 #{k\ 11410}#
1093 #{b\ 11411}#)
1094 (if (#{id?\ 10706}#
1095 #{a\ 11408}#)
1096 (keyword?
1097 (syntax->datum
1098 #{k\ 11410}#))
1099 #f))
1100 #{tmp\ 11403}#)
1101 #f)
1102 (apply (lambda (#{a\ 11418}#
1103 #{init\ 11419}#
1104 #{k\ 11420}#
1105 #{b\ 11421}#)
1106 (#{key\ 11331}#
1107 #{b\ 11421}#
1108 #{req\ 11364}#
1109 #{opt\ 11365}#
1110 (cons (list #{k\ 11420}#
1111 #{a\ 11418}#
1112 #{init\ 11419}#)
1113 #{rkey\ 11366}#)))
1114 #{tmp\ 11403}#)
1115 ((lambda (#{tmp\ 11422}#)
1116 (if (if #{tmp\ 11422}#
1117 (apply (lambda (#{aok\ 11424}#)
1118 (eq? (syntax->datum
1119 #{aok\ 11424}#)
1120 #:allow-other-keys))
1121 #{tmp\ 11422}#)
1122 #f)
1123 (apply (lambda (#{aok\ 11426}#)
1124 (#{check\ 11335}#
1125 #{req\ 11364}#
1126 #{opt\ 11365}#
1127 #f
1128 (cons #t
1129 (reverse
1130 #{rkey\ 11366}#))))
1131 #{tmp\ 11422}#)
1132 ((lambda (#{tmp\ 11427}#)
1133 (if (if #{tmp\ 11427}#
1134 (apply (lambda (#{aok\ 11431}#
1135 #{a\ 11432}#
1136 #{b\ 11433}#)
1137 (if (eq? (syntax->datum
1138 #{aok\ 11431}#)
1139 #:allow-other-keys)
1140 (eq? (syntax->datum
1141 #{a\ 11432}#)
1142 #:rest)
1143 #f))
1144 #{tmp\ 11427}#)
1145 #f)
1146 (apply (lambda (#{aok\ 11439}#
1147 #{a\ 11440}#
1148 #{b\ 11441}#)
1149 (#{rest\ 11333}#
1150 #{b\ 11441}#
1151 #{req\ 11364}#
1152 #{opt\ 11365}#
1153 (cons #t
1154 (reverse
1155 #{rkey\ 11366}#))))
1156 #{tmp\ 11427}#)
1157 ((lambda (#{tmp\ 11442}#)
1158 (if (if #{tmp\ 11442}#
1159 (apply (lambda (#{aok\ 11445}#
1160 #{r\ 11446}#)
1161 (if (eq? (syntax->datum
1162 #{aok\ 11445}#)
1163 #:allow-other-keys)
1164 (#{id?\ 10706}#
1165 #{r\ 11446}#)
1166 #f))
1167 #{tmp\ 11442}#)
1168 #f)
1169 (apply (lambda (#{aok\ 11451}#
1170 #{r\ 11452}#)
1171 (#{rest\ 11333}#
1172 #{r\ 11452}#
1173 #{req\ 11364}#
1174 #{opt\ 11365}#
1175 (cons #t
1176 (reverse
1177 #{rkey\ 11366}#))))
1178 #{tmp\ 11442}#)
1179 ((lambda (#{tmp\ 11453}#)
1180 (if (if #{tmp\ 11453}#
1181 (apply (lambda (#{a\ 11456}#
1182 #{b\ 11457}#)
1183 (eq? (syntax->datum
1184 #{a\ 11456}#)
1185 #:rest))
1186 #{tmp\ 11453}#)
1187 #f)
1188 (apply (lambda (#{a\ 11460}#
1189 #{b\ 11461}#)
1190 (#{rest\ 11333}#
1191 #{b\ 11461}#
1192 #{req\ 11364}#
1193 #{opt\ 11365}#
1194 (cons #f
1195 (reverse
1196 #{rkey\ 11366}#))))
1197 #{tmp\ 11453}#)
1198 ((lambda (#{tmp\ 11462}#)
1199 (if (if #{tmp\ 11462}#
1200 (apply (lambda (#{r\ 11464}#)
1201 (#{id?\ 10706}#
1202 #{r\ 11464}#))
1203 #{tmp\ 11462}#)
1204 #f)
1205 (apply (lambda (#{r\ 11466}#)
1206 (#{rest\ 11333}#
1207 #{r\ 11466}#
1208 #{req\ 11364}#
1209 #{opt\ 11365}#
1210 (cons #f
1211 (reverse
1212 #{rkey\ 11366}#))))
1213 #{tmp\ 11462}#)
1214 ((lambda (#{else\ 11468}#)
1215 (syntax-violation
1216 'lambda*
1217 "invalid keyword argument list"
1218 #{orig-args\ 11324}#
1219 #{args\ 11363}#))
1220 #{tmp\ 11371}#)))
1221 (list #{tmp\ 11371}#))))
1222 ($sc-dispatch
1223 #{tmp\ 11371}#
1224 '(any any)))))
1225 ($sc-dispatch
1226 #{tmp\ 11371}#
1227 '(any .
1228 any)))))
1229 ($sc-dispatch
1230 #{tmp\ 11371}#
1231 '(any any any)))))
1232 ($sc-dispatch
1233 #{tmp\ 11371}#
1234 '(any)))))
1235 ($sc-dispatch
1236 #{tmp\ 11371}#
1237 '((any any any) . any)))))
1238 ($sc-dispatch
1239 #{tmp\ 11371}#
1240 '((any any) . any)))))
1241 ($sc-dispatch
1242 #{tmp\ 11371}#
1243 '(any . any)))))
1244 ($sc-dispatch #{tmp\ 11371}# (quote ()))))
1245 #{args\ 11363}#)))
1246 (#{opt\ 11329}#
1247 (lambda (#{args\ 11469}#
1248 #{req\ 11470}#
1249 #{ropt\ 11471}#)
1250 ((lambda (#{tmp\ 11475}#)
1251 ((lambda (#{tmp\ 11476}#)
1252 (if #{tmp\ 11476}#
1253 (apply (lambda ()
1254 (#{check\ 11335}#
1255 #{req\ 11470}#
1256 (reverse #{ropt\ 11471}#)
1257 #f
1258 '()))
1259 #{tmp\ 11476}#)
1260 ((lambda (#{tmp\ 11477}#)
1261 (if (if #{tmp\ 11477}#
1262 (apply (lambda (#{a\ 11480}#
1263 #{b\ 11481}#)
1264 (#{id?\ 10706}#
1265 #{a\ 11480}#))
1266 #{tmp\ 11477}#)
1267 #f)
1268 (apply (lambda (#{a\ 11484}#
1269 #{b\ 11485}#)
1270 (#{opt\ 11329}#
1271 #{b\ 11485}#
1272 #{req\ 11470}#
1273 (cons (cons #{a\ 11484}#
1274 '(#(syntax-object
1275 #f
1276 ((top)
1277 #(ribcage
1278 #(a b)
1279 #((top)
1280 (top))
1281 #("i11482"
1282 "i11483"))
1283 #(ribcage
1284 ()
1285 ()
1286 ())
1287 #(ribcage
1288 #(args
1289 req
1290 ropt)
1291 #((top)
1292 (top)
1293 (top))
1294 #("i11472"
1295 "i11473"
1296 "i11474"))
1297 #(ribcage
1298 (check rest
1299 key
1300 opt
1301 req)
1302 ((top)
1303 (top)
1304 (top)
1305 (top)
1306 (top))
1307 ("i11334"
1308 "i11332"
1309 "i11330"
1310 "i11328"
1311 "i11326"))
1312 #(ribcage
1313 #(orig-args)
1314 #((top))
1315 #("i11325"))
1316 #(ribcage
1317 (lambda-var-list
1318 gen-var
1319 strip
1320 chi-lambda-case
1321 lambda*-formals
1322 chi-simple-lambda
1323 lambda-formals
1324 ellipsis?
1325 chi-void
1326 eval-local-transformer
1327 chi-local-syntax
1328 chi-body
1329 chi-macro
1330 chi-application
1331 chi-expr
1332 chi
1333 chi-top
1334 syntax-type
1335 chi-when-list
1336 chi-install-global
1337 chi-top-sequence
1338 chi-sequence
1339 source-wrap
1340 wrap
1341 bound-id-member?
1342 distinct-bound-ids?
1343 valid-bound-ids?
1344 bound-id=?
1345 free-id=?
1346 id-var-name
1347 same-marks?
1348 join-marks
1349 join-wraps
1350 smart-append
1351 make-binding-wrap
1352 extend-ribcage!
1353 make-empty-ribcage
1354 new-mark
1355 anti-mark
1356 the-anti-mark
1357 top-marked?
1358 top-wrap
1359 empty-wrap
1360 set-ribcage-labels!
1361 set-ribcage-marks!
1362 set-ribcage-symnames!
1363 ribcage-labels
1364 ribcage-marks
1365 ribcage-symnames
1366 ribcage?
1367 make-ribcage
1368 gen-labels
1369 gen-label
1370 make-rename
1371 rename-marks
1372 rename-new
1373 rename-old
1374 subst-rename?
1375 wrap-subst
1376 wrap-marks
1377 make-wrap
1378 id-sym-name&marks
1379 id-sym-name
1380 id?
1381 nonsymbol-id?
1382 global-extend
1383 lookup
1384 macros-only-env
1385 extend-var-env
1386 extend-env
1387 null-env
1388 binding-value
1389 binding-type
1390 make-binding
1391 arg-check
1392 source-annotation
1393 no-source
1394 set-syntax-object-module!
1395 set-syntax-object-wrap!
1396 set-syntax-object-expression!
1397 syntax-object-module
1398 syntax-object-wrap
1399 syntax-object-expression
1400 syntax-object?
1401 make-syntax-object
1402 build-lexical-var
1403 build-letrec
1404 build-named-let
1405 build-let
1406 build-sequence
1407 build-data
1408 build-primref
1409 build-lambda-case
1410 build-case-lambda
1411 build-simple-lambda
1412 build-global-definition
1413 maybe-name-value!
1414 build-global-assignment
1415 build-global-reference
1416 analyze-variable
1417 build-lexical-assignment
1418 build-lexical-reference
1419 build-dynlet
1420 build-conditional
1421 build-application
1422 build-void
1423 decorate-source
1424 get-global-definition-hook
1425 put-global-definition-hook
1426 gensym-hook
1427 local-eval-hook
1428 top-level-eval-hook
1429 fx<
1430 fx=
1431 fx-
1432 fx+
1433 *mode*
1434 noexpand)
1435 ((top)
1436 (top)
1437 (top)
1438 (top)
1439 (top)
1440 (top)
1441 (top)
1442 (top)
1443 (top)
1444 (top)
1445 (top)
1446 (top)
1447 (top)
1448 (top)
1449 (top)
1450 (top)
1451 (top)
1452 (top)
1453 (top)
1454 (top)
1455 (top)
1456 (top)
1457 (top)
1458 (top)
1459 (top)
1460 (top)
1461 (top)
1462 (top)
1463 (top)
1464 (top)
1465 (top)
1466 (top)
1467 (top)
1468 (top)
1469 (top)
1470 (top)
1471 (top)
1472 (top)
1473 (top)
1474 (top)
1475 (top)
1476 (top)
1477 (top)
1478 (top)
1479 (top)
1480 (top)
1481 (top)
1482 (top)
1483 (top)
1484 (top)
1485 (top)
1486 (top)
1487 (top)
1488 (top)
1489 (top)
1490 (top)
1491 (top)
1492 (top)
1493 (top)
1494 (top)
1495 (top)
1496 (top)
1497 (top)
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 ("i10820"
1554 "i10818"
1555 "i10816"
1556 "i10814"
1557 "i10812"
1558 "i10810"
1559 "i10808"
1560 "i10806"
1561 "i10804"
1562 "i10802"
1563 "i10800"
1564 "i10798"
1565 "i10796"
1566 "i10794"
1567 "i10792"
1568 "i10790"
1569 "i10788"
1570 "i10786"
1571 "i10784"
1572 "i10782"
1573 "i10780"
1574 "i10778"
1575 "i10776"
1576 "i10774"
1577 "i10772"
1578 "i10770"
1579 "i10768"
1580 "i10766"
1581 "i10764"
1582 "i10762"
1583 "i10760"
1584 "i10758"
1585 "i10756"
1586 "i10754"
1587 "i10752"
1588 "i10750"
1589 "i10749"
1590 "i10748"
1591 "i10746"
1592 "i10745"
1593 "i10744"
1594 "i10743"
1595 "i10742"
1596 "i10740"
1597 "i10738"
1598 "i10736"
1599 "i10734"
1600 "i10732"
1601 "i10730"
1602 "i10728"
1603 "i10726"
1604 "i10723"
1605 "i10721"
1606 "i10720"
1607 "i10719"
1608 "i10718"
1609 "i10717"
1610 "i10716"
1611 "i10714"
1612 "i10712"
1613 "i10710"
1614 "i10708"
1615 "i10707"
1616 "i10705"
1617 "i10703"
1618 "i10701"
1619 "i10699"
1620 "i10697"
1621 "i10695"
1622 "i10693"
1623 "i10692"
1624 "i10690"
1625 "i10688"
1626 "i10687"
1627 "i10686"
1628 "i10684"
1629 "i10683"
1630 "i10681"
1631 "i10679"
1632 "i10677"
1633 "i10675"
1634 "i10673"
1635 "i10671"
1636 "i10669"
1637 "i10667"
1638 "i10665"
1639 "i10663"
1640 "i10661"
1641 "i10659"
1642 "i10657"
1643 "i10655"
1644 "i10653"
1645 "i10651"
1646 "i10649"
1647 "i10647"
1648 "i10645"
1649 "i10643"
1650 "i10641"
1651 "i10639"
1652 "i10637"
1653 "i10635"
1654 "i10633"
1655 "i10631"
1656 "i10629"
1657 "i10627"
1658 "i10625"
1659 "i10623"
1660 "i10621"
1661 "i10619"
1662 "i10618"
1663 "i10616"
1664 "i10614"
1665 "i10612"
1666 "i10610"
1667 "i10608"
1668 "i10606"
1669 "i10604"
1670 "i10602"))
1671 #(ribcage
1672 (define-structure
1673 and-map*)
1674 ((top)
1675 (top))
1676 ("i10505"
1677 "i10503")))
1678 (hygiene
1679 guile))))
1680 #{ropt\ 11471}#)))
1681 #{tmp\ 11477}#)
1682 ((lambda (#{tmp\ 11486}#)
1683 (if (if #{tmp\ 11486}#
1684 (apply (lambda (#{a\ 11490}#
1685 #{init\ 11491}#
1686 #{b\ 11492}#)
1687 (#{id?\ 10706}#
1688 #{a\ 11490}#))
1689 #{tmp\ 11486}#)
1690 #f)
1691 (apply (lambda (#{a\ 11496}#
1692 #{init\ 11497}#
1693 #{b\ 11498}#)
1694 (#{opt\ 11329}#
1695 #{b\ 11498}#
1696 #{req\ 11470}#
1697 (cons (list #{a\ 11496}#
1698 #{init\ 11497}#)
1699 #{ropt\ 11471}#)))
1700 #{tmp\ 11486}#)
1701 ((lambda (#{tmp\ 11499}#)
1702 (if (if #{tmp\ 11499}#
1703 (apply (lambda (#{a\ 11502}#
1704 #{b\ 11503}#)
1705 (eq? (syntax->datum
1706 #{a\ 11502}#)
1707 #:key))
1708 #{tmp\ 11499}#)
1709 #f)
1710 (apply (lambda (#{a\ 11506}#
1711 #{b\ 11507}#)
1712 (#{key\ 11331}#
1713 #{b\ 11507}#
1714 #{req\ 11470}#
1715 (reverse
1716 #{ropt\ 11471}#)
1717 '()))
1718 #{tmp\ 11499}#)
1719 ((lambda (#{tmp\ 11508}#)
1720 (if (if #{tmp\ 11508}#
1721 (apply (lambda (#{a\ 11511}#
1722 #{b\ 11512}#)
1723 (eq? (syntax->datum
1724 #{a\ 11511}#)
1725 #:rest))
1726 #{tmp\ 11508}#)
1727 #f)
1728 (apply (lambda (#{a\ 11515}#
1729 #{b\ 11516}#)
1730 (#{rest\ 11333}#
1731 #{b\ 11516}#
1732 #{req\ 11470}#
1733 (reverse
1734 #{ropt\ 11471}#)
1735 '()))
1736 #{tmp\ 11508}#)
1737 ((lambda (#{tmp\ 11517}#)
1738 (if (if #{tmp\ 11517}#
1739 (apply (lambda (#{r\ 11519}#)
1740 (#{id?\ 10706}#
1741 #{r\ 11519}#))
1742 #{tmp\ 11517}#)
1743 #f)
1744 (apply (lambda (#{r\ 11521}#)
1745 (#{rest\ 11333}#
1746 #{r\ 11521}#
1747 #{req\ 11470}#
1748 (reverse
1749 #{ropt\ 11471}#)
1750 '()))
1751 #{tmp\ 11517}#)
1752 ((lambda (#{else\ 11523}#)
1753 (syntax-violation
1754 'lambda*
1755 "invalid optional argument list"
1756 #{orig-args\ 11324}#
1757 #{args\ 11469}#))
1758 #{tmp\ 11475}#)))
1759 (list #{tmp\ 11475}#))))
1760 ($sc-dispatch
1761 #{tmp\ 11475}#
1762 '(any any)))))
1763 ($sc-dispatch
1764 #{tmp\ 11475}#
1765 '(any . any)))))
1766 ($sc-dispatch
1767 #{tmp\ 11475}#
1768 '((any any) . any)))))
1769 ($sc-dispatch
1770 #{tmp\ 11475}#
1771 '(any . any)))))
1772 ($sc-dispatch #{tmp\ 11475}# (quote ()))))
1773 #{args\ 11469}#)))
1774 (#{req\ 11327}#
1775 (lambda (#{args\ 11524}# #{rreq\ 11525}#)
1776 ((lambda (#{tmp\ 11528}#)
1777 ((lambda (#{tmp\ 11529}#)
1778 (if #{tmp\ 11529}#
1779 (apply (lambda ()
1780 (#{check\ 11335}#
1781 (reverse #{rreq\ 11525}#)
1782 '()
1783 #f
1784 '()))
1785 #{tmp\ 11529}#)
1786 ((lambda (#{tmp\ 11530}#)
1787 (if (if #{tmp\ 11530}#
1788 (apply (lambda (#{a\ 11533}#
1789 #{b\ 11534}#)
1790 (#{id?\ 10706}#
1791 #{a\ 11533}#))
1792 #{tmp\ 11530}#)
1793 #f)
1794 (apply (lambda (#{a\ 11537}#
1795 #{b\ 11538}#)
1796 (#{req\ 11327}#
1797 #{b\ 11538}#
1798 (cons #{a\ 11537}#
1799 #{rreq\ 11525}#)))
1800 #{tmp\ 11530}#)
1801 ((lambda (#{tmp\ 11539}#)
1802 (if (if #{tmp\ 11539}#
1803 (apply (lambda (#{a\ 11542}#
1804 #{b\ 11543}#)
1805 (eq? (syntax->datum
1806 #{a\ 11542}#)
1807 #:optional))
1808 #{tmp\ 11539}#)
1809 #f)
1810 (apply (lambda (#{a\ 11546}#
1811 #{b\ 11547}#)
1812 (#{opt\ 11329}#
1813 #{b\ 11547}#
1814 (reverse
1815 #{rreq\ 11525}#)
1816 '()))
1817 #{tmp\ 11539}#)
1818 ((lambda (#{tmp\ 11548}#)
1819 (if (if #{tmp\ 11548}#
1820 (apply (lambda (#{a\ 11551}#
1821 #{b\ 11552}#)
1822 (eq? (syntax->datum
1823 #{a\ 11551}#)
1824 #:key))
1825 #{tmp\ 11548}#)
1826 #f)
1827 (apply (lambda (#{a\ 11555}#
1828 #{b\ 11556}#)
1829 (#{key\ 11331}#
1830 #{b\ 11556}#
1831 (reverse
1832 #{rreq\ 11525}#)
1833 '()
1834 '()))
1835 #{tmp\ 11548}#)
1836 ((lambda (#{tmp\ 11557}#)
1837 (if (if #{tmp\ 11557}#
1838 (apply (lambda (#{a\ 11560}#
1839 #{b\ 11561}#)
1840 (eq? (syntax->datum
1841 #{a\ 11560}#)
1842 #:rest))
1843 #{tmp\ 11557}#)
1844 #f)
1845 (apply (lambda (#{a\ 11564}#
1846 #{b\ 11565}#)
1847 (#{rest\ 11333}#
1848 #{b\ 11565}#
1849 (reverse
1850 #{rreq\ 11525}#)
1851 '()
1852 '()))
1853 #{tmp\ 11557}#)
1854 ((lambda (#{tmp\ 11566}#)
1855 (if (if #{tmp\ 11566}#
1856 (apply (lambda (#{r\ 11568}#)
1857 (#{id?\ 10706}#
1858 #{r\ 11568}#))
1859 #{tmp\ 11566}#)
1860 #f)
1861 (apply (lambda (#{r\ 11570}#)
1862 (#{rest\ 11333}#
1863 #{r\ 11570}#
1864 (reverse
1865 #{rreq\ 11525}#)
1866 '()
1867 '()))
1868 #{tmp\ 11566}#)
1869 ((lambda (#{else\ 11572}#)
1870 (syntax-violation
1871 'lambda*
1872 "invalid argument list"
1873 #{orig-args\ 11324}#
1874 #{args\ 11524}#))
1875 #{tmp\ 11528}#)))
1876 (list #{tmp\ 11528}#))))
1877 ($sc-dispatch
1878 #{tmp\ 11528}#
1879 '(any any)))))
1880 ($sc-dispatch
1881 #{tmp\ 11528}#
1882 '(any . any)))))
1883 ($sc-dispatch
1884 #{tmp\ 11528}#
1885 '(any . any)))))
1886 ($sc-dispatch
1887 #{tmp\ 11528}#
1888 '(any . any)))))
1889 ($sc-dispatch #{tmp\ 11528}# (quote ()))))
1890 #{args\ 11524}#))))
1891 (#{req\ 11327}# #{orig-args\ 11324}# (quote ())))))
1892 (#{chi-simple-lambda\ 10811}#
1893 (lambda (#{e\ 11573}#
1894 #{r\ 11574}#
1895 #{w\ 11575}#
1896 #{s\ 11576}#
1897 #{mod\ 11577}#
1898 #{req\ 11578}#
1899 #{rest\ 11579}#
1900 #{meta\ 11580}#
1901 #{body\ 11581}#)
1902 (let ((#{ids\ 11593}#
1903 (if #{rest\ 11579}#
1904 (append #{req\ 11578}# (list #{rest\ 11579}#))
1905 #{req\ 11578}#)))
1906 (let ((#{vars\ 11595}#
1907 (map #{gen-var\ 10819}# #{ids\ 11593}#)))
1908 (let ((#{labels\ 11597}#
1909 (#{gen-labels\ 10724}# #{ids\ 11593}#)))
1910 (#{build-simple-lambda\ 10648}#
1911 #{s\ 11576}#
1912 (map syntax->datum #{req\ 11578}#)
1913 (if #{rest\ 11579}#
1914 (syntax->datum #{rest\ 11579}#)
1915 #f)
1916 #{vars\ 11595}#
1917 #{meta\ 11580}#
1918 (#{chi-body\ 10799}#
1919 #{body\ 11581}#
1920 (#{source-wrap\ 10777}#
1921 #{e\ 11573}#
1922 #{w\ 11575}#
1923 #{s\ 11576}#
1924 #{mod\ 11577}#)
1925 (#{extend-var-env\ 10696}#
1926 #{labels\ 11597}#
1927 #{vars\ 11595}#
1928 #{r\ 11574}#)
1929 (#{make-binding-wrap\ 10753}#
1930 #{ids\ 11593}#
1931 #{labels\ 11597}#
1932 #{w\ 11575}#)
1933 #{mod\ 11577}#)))))))
1934 (#{lambda-formals\ 10809}#
1935 (lambda (#{orig-args\ 11600}#)
1936 (letrec ((#{check\ 11605}#
1937 (lambda (#{req\ 11606}# #{rest\ 11607}#)
1938 (if (#{distinct-bound-ids?\ 10771}#
1939 (if #{rest\ 11607}#
1940 (cons #{rest\ 11607}# #{req\ 11606}#)
1941 #{req\ 11606}#))
1942 (values #{req\ 11606}# #f #{rest\ 11607}# #f)
1943 (syntax-violation
1944 'lambda
1945 "duplicate identifier in argument list"
1946 #{orig-args\ 11600}#))))
1947 (#{req\ 11603}#
1948 (lambda (#{args\ 11613}# #{rreq\ 11614}#)
1949 ((lambda (#{tmp\ 11617}#)
1950 ((lambda (#{tmp\ 11618}#)
1951 (if #{tmp\ 11618}#
1952 (apply (lambda ()
1953 (#{check\ 11605}#
1954 (reverse #{rreq\ 11614}#)
1955 #f))
1956 #{tmp\ 11618}#)
1957 ((lambda (#{tmp\ 11619}#)
1958 (if (if #{tmp\ 11619}#
1959 (apply (lambda (#{a\ 11622}#
1960 #{b\ 11623}#)
1961 (#{id?\ 10706}#
1962 #{a\ 11622}#))
1963 #{tmp\ 11619}#)
1964 #f)
1965 (apply (lambda (#{a\ 11626}#
1966 #{b\ 11627}#)
1967 (#{req\ 11603}#
1968 #{b\ 11627}#
1969 (cons #{a\ 11626}#
1970 #{rreq\ 11614}#)))
1971 #{tmp\ 11619}#)
1972 ((lambda (#{tmp\ 11628}#)
1973 (if (if #{tmp\ 11628}#
1974 (apply (lambda (#{r\ 11630}#)
1975 (#{id?\ 10706}#
1976 #{r\ 11630}#))
1977 #{tmp\ 11628}#)
1978 #f)
1979 (apply (lambda (#{r\ 11632}#)
1980 (#{check\ 11605}#
1981 (reverse
1982 #{rreq\ 11614}#)
1983 #{r\ 11632}#))
1984 #{tmp\ 11628}#)
1985 ((lambda (#{else\ 11634}#)
1986 (syntax-violation
1987 'lambda
1988 "invalid argument list"
1989 #{orig-args\ 11600}#
1990 #{args\ 11613}#))
1991 #{tmp\ 11617}#)))
1992 (list #{tmp\ 11617}#))))
1993 ($sc-dispatch
1994 #{tmp\ 11617}#
1995 '(any . any)))))
1996 ($sc-dispatch #{tmp\ 11617}# (quote ()))))
1997 #{args\ 11613}#))))
1998 (#{req\ 11603}# #{orig-args\ 11600}# (quote ())))))
1999 (#{ellipsis?\ 10807}#
2000 (lambda (#{x\ 11635}#)
2001 (if (#{nonsymbol-id?\ 10704}# #{x\ 11635}#)
2002 (#{free-id=?\ 10765}#
2003 #{x\ 11635}#
2004 '#(syntax-object
2005 ...
2006 ((top)
2007 #(ribcage () () ())
2008 #(ribcage () () ())
2009 #(ribcage #(x) #((top)) #("i11636"))
2010 #(ribcage
2011 (lambda-var-list
2012 gen-var
2013 strip
2014 chi-lambda-case
2015 lambda*-formals
2016 chi-simple-lambda
2017 lambda-formals
2018 ellipsis?
2019 chi-void
2020 eval-local-transformer
2021 chi-local-syntax
2022 chi-body
2023 chi-macro
2024 chi-application
2025 chi-expr
2026 chi
2027 chi-top
2028 syntax-type
2029 chi-when-list
2030 chi-install-global
2031 chi-top-sequence
2032 chi-sequence
2033 source-wrap
2034 wrap
2035 bound-id-member?
2036 distinct-bound-ids?
2037 valid-bound-ids?
2038 bound-id=?
2039 free-id=?
2040 id-var-name
2041 same-marks?
2042 join-marks
2043 join-wraps
2044 smart-append
2045 make-binding-wrap
2046 extend-ribcage!
2047 make-empty-ribcage
2048 new-mark
2049 anti-mark
2050 the-anti-mark
2051 top-marked?
2052 top-wrap
2053 empty-wrap
2054 set-ribcage-labels!
2055 set-ribcage-marks!
2056 set-ribcage-symnames!
2057 ribcage-labels
2058 ribcage-marks
2059 ribcage-symnames
2060 ribcage?
2061 make-ribcage
2062 gen-labels
2063 gen-label
2064 make-rename
2065 rename-marks
2066 rename-new
2067 rename-old
2068 subst-rename?
2069 wrap-subst
2070 wrap-marks
2071 make-wrap
2072 id-sym-name&marks
2073 id-sym-name
2074 id?
2075 nonsymbol-id?
2076 global-extend
2077 lookup
2078 macros-only-env
2079 extend-var-env
2080 extend-env
2081 null-env
2082 binding-value
2083 binding-type
2084 make-binding
2085 arg-check
2086 source-annotation
2087 no-source
2088 set-syntax-object-module!
2089 set-syntax-object-wrap!
2090 set-syntax-object-expression!
2091 syntax-object-module
2092 syntax-object-wrap
2093 syntax-object-expression
2094 syntax-object?
2095 make-syntax-object
2096 build-lexical-var
2097 build-letrec
2098 build-named-let
2099 build-let
2100 build-sequence
2101 build-data
2102 build-primref
2103 build-lambda-case
2104 build-case-lambda
2105 build-simple-lambda
2106 build-global-definition
2107 maybe-name-value!
2108 build-global-assignment
2109 build-global-reference
2110 analyze-variable
2111 build-lexical-assignment
2112 build-lexical-reference
2113 build-dynlet
2114 build-conditional
2115 build-application
2116 build-void
2117 decorate-source
2118 get-global-definition-hook
2119 put-global-definition-hook
2120 gensym-hook
2121 local-eval-hook
2122 top-level-eval-hook
2123 fx<
2124 fx=
2125 fx-
2126 fx+
2127 *mode*
2128 noexpand)
2129 ((top)
2130 (top)
2131 (top)
2132 (top)
2133 (top)
2134 (top)
2135 (top)
2136 (top)
2137 (top)
2138 (top)
2139 (top)
2140 (top)
2141 (top)
2142 (top)
2143 (top)
2144 (top)
2145 (top)
2146 (top)
2147 (top)
2148 (top)
2149 (top)
2150 (top)
2151 (top)
2152 (top)
2153 (top)
2154 (top)
2155 (top)
2156 (top)
2157 (top)
2158 (top)
2159 (top)
2160 (top)
2161 (top)
2162 (top)
2163 (top)
2164 (top)
2165 (top)
2166 (top)
2167 (top)
2168 (top)
2169 (top)
2170 (top)
2171 (top)
2172 (top)
2173 (top)
2174 (top)
2175 (top)
2176 (top)
2177 (top)
2178 (top)
2179 (top)
2180 (top)
2181 (top)
2182 (top)
2183 (top)
2184 (top)
2185 (top)
2186 (top)
2187 (top)
2188 (top)
2189 (top)
2190 (top)
2191 (top)
2192 (top)
2193 (top)
2194 (top)
2195 (top)
2196 (top)
2197 (top)
2198 (top)
2199 (top)
2200 (top)
2201 (top)
2202 (top)
2203 (top)
2204 (top)
2205 (top)
2206 (top)
2207 (top)
2208 (top)
2209 (top)
2210 (top)
2211 (top)
2212 (top)
2213 (top)
2214 (top)
2215 (top)
2216 (top)
2217 (top)
2218 (top)
2219 (top)
2220 (top)
2221 (top)
2222 (top)
2223 (top)
2224 (top)
2225 (top)
2226 (top)
2227 (top)
2228 (top)
2229 (top)
2230 (top)
2231 (top)
2232 (top)
2233 (top)
2234 (top)
2235 (top)
2236 (top)
2237 (top)
2238 (top)
2239 (top)
2240 (top)
2241 (top)
2242 (top)
2243 (top)
2244 (top)
2245 (top)
2246 (top))
2247 ("i10820"
2248 "i10818"
2249 "i10816"
2250 "i10814"
2251 "i10812"
2252 "i10810"
2253 "i10808"
2254 "i10806"
2255 "i10804"
2256 "i10802"
2257 "i10800"
2258 "i10798"
2259 "i10796"
2260 "i10794"
2261 "i10792"
2262 "i10790"
2263 "i10788"
2264 "i10786"
2265 "i10784"
2266 "i10782"
2267 "i10780"
2268 "i10778"
2269 "i10776"
2270 "i10774"
2271 "i10772"
2272 "i10770"
2273 "i10768"
2274 "i10766"
2275 "i10764"
2276 "i10762"
2277 "i10760"
2278 "i10758"
2279 "i10756"
2280 "i10754"
2281 "i10752"
2282 "i10750"
2283 "i10749"
2284 "i10748"
2285 "i10746"
2286 "i10745"
2287 "i10744"
2288 "i10743"
2289 "i10742"
2290 "i10740"
2291 "i10738"
2292 "i10736"
2293 "i10734"
2294 "i10732"
2295 "i10730"
2296 "i10728"
2297 "i10726"
2298 "i10723"
2299 "i10721"
2300 "i10720"
2301 "i10719"
2302 "i10718"
2303 "i10717"
2304 "i10716"
2305 "i10714"
2306 "i10712"
2307 "i10710"
2308 "i10708"
2309 "i10707"
2310 "i10705"
2311 "i10703"
2312 "i10701"
2313 "i10699"
2314 "i10697"
2315 "i10695"
2316 "i10693"
2317 "i10692"
2318 "i10690"
2319 "i10688"
2320 "i10687"
2321 "i10686"
2322 "i10684"
2323 "i10683"
2324 "i10681"
2325 "i10679"
2326 "i10677"
2327 "i10675"
2328 "i10673"
2329 "i10671"
2330 "i10669"
2331 "i10667"
2332 "i10665"
2333 "i10663"
2334 "i10661"
2335 "i10659"
2336 "i10657"
2337 "i10655"
2338 "i10653"
2339 "i10651"
2340 "i10649"
2341 "i10647"
2342 "i10645"
2343 "i10643"
2344 "i10641"
2345 "i10639"
2346 "i10637"
2347 "i10635"
2348 "i10633"
2349 "i10631"
2350 "i10629"
2351 "i10627"
2352 "i10625"
2353 "i10623"
2354 "i10621"
2355 "i10619"
2356 "i10618"
2357 "i10616"
2358 "i10614"
2359 "i10612"
2360 "i10610"
2361 "i10608"
2362 "i10606"
2363 "i10604"
2364 "i10602"))
2365 #(ribcage
2366 (define-structure and-map*)
2367 ((top) (top))
2368 ("i10505" "i10503")))
2369 (hygiene guile)))
2370 #f)))
2371 (#{chi-void\ 10805}#
2372 (lambda () (#{build-void\ 10626}# #f)))
2373 (#{eval-local-transformer\ 10803}#
2374 (lambda (#{expanded\ 11640}# #{mod\ 11641}#)
2375 (let ((#{p\ 11645}#
2376 (#{local-eval-hook\ 10617}#
2377 #{expanded\ 11640}#
2378 #{mod\ 11641}#)))
2379 (if (procedure? #{p\ 11645}#)
2380 (cons #{p\ 11645}#
2381 (module-name (current-module)))
2382 (syntax-violation
2383 #f
2384 "nonprocedure transformer"
2385 #{p\ 11645}#)))))
2386 (#{chi-local-syntax\ 10801}#
2387 (lambda (#{rec?\ 11646}#
2388 #{e\ 11647}#
2389 #{r\ 11648}#
2390 #{w\ 11649}#
2391 #{s\ 11650}#
2392 #{mod\ 11651}#
2393 #{k\ 11652}#)
2394 ((lambda (#{tmp\ 11660}#)
2395 ((lambda (#{tmp\ 11661}#)
2396 (if #{tmp\ 11661}#
2397 (apply (lambda (#{_\ 11667}#
2398 #{id\ 11668}#
2399 #{val\ 11669}#
2400 #{e1\ 11670}#
2401 #{e2\ 11671}#)
2402 (let ((#{ids\ 11673}# #{id\ 11668}#))
2403 (if (not (#{valid-bound-ids?\ 10769}#
2404 #{ids\ 11673}#))
2405 (syntax-violation
2406 #f
2407 "duplicate bound keyword"
2408 #{e\ 11647}#)
2409 (let ((#{labels\ 11676}#
2410 (#{gen-labels\ 10724}#
2411 #{ids\ 11673}#)))
2412 (let ((#{new-w\ 11678}#
2413 (#{make-binding-wrap\ 10753}#
2414 #{ids\ 11673}#
2415 #{labels\ 11676}#
2416 #{w\ 11649}#)))
2417 (#{k\ 11652}#
2418 (cons #{e1\ 11670}# #{e2\ 11671}#)
2419 (#{extend-env\ 10694}#
2420 #{labels\ 11676}#
2421 (let ((#{w\ 11682}#
2422 (if #{rec?\ 11646}#
2423 #{new-w\ 11678}#
2424 #{w\ 11649}#))
2425 (#{trans-r\ 11683}#
2426 (#{macros-only-env\ 10698}#
2427 #{r\ 11648}#)))
2428 (map (lambda (#{x\ 11684}#)
2429 (cons 'macro
2430 (#{eval-local-transformer\ 10803}#
2431 (#{chi\ 10791}#
2432 #{x\ 11684}#
2433 #{trans-r\ 11683}#
2434 #{w\ 11682}#
2435 #{mod\ 11651}#)
2436 #{mod\ 11651}#)))
2437 #{val\ 11669}#))
2438 #{r\ 11648}#)
2439 #{new-w\ 11678}#
2440 #{s\ 11650}#
2441 #{mod\ 11651}#))))))
2442 #{tmp\ 11661}#)
2443 ((lambda (#{_\ 11689}#)
2444 (syntax-violation
2445 #f
2446 "bad local syntax definition"
2447 (#{source-wrap\ 10777}#
2448 #{e\ 11647}#
2449 #{w\ 11649}#
2450 #{s\ 11650}#
2451 #{mod\ 11651}#)))
2452 #{tmp\ 11660}#)))
2453 ($sc-dispatch
2454 #{tmp\ 11660}#
2455 '(any #(each (any any)) any . each-any))))
2456 #{e\ 11647}#)))
2457 (#{chi-body\ 10799}#
2458 (lambda (#{body\ 11690}#
2459 #{outer-form\ 11691}#
2460 #{r\ 11692}#
2461 #{w\ 11693}#
2462 #{mod\ 11694}#)
2463 (let ((#{r\ 11702}#
2464 (cons '("placeholder" placeholder)
2465 #{r\ 11692}#)))
2466 (let ((#{ribcage\ 11704}#
2467 (#{make-ribcage\ 10727}#
2468 '()
2469 '()
2470 '())))
2471 (let ((#{w\ 11707}#
2472 (#{make-wrap\ 10711}#
2473 (#{wrap-marks\ 10713}# #{w\ 11693}#)
2474 (cons #{ribcage\ 11704}#
2475 (#{wrap-subst\ 10715}# #{w\ 11693}#)))))
2476 (letrec ((#{parse\ 11716}#
2477 (lambda (#{body\ 11717}#
2478 #{ids\ 11718}#
2479 #{labels\ 11719}#
2480 #{var-ids\ 11720}#
2481 #{vars\ 11721}#
2482 #{vals\ 11722}#
2483 #{bindings\ 11723}#)
2484 (if (null? #{body\ 11717}#)
2485 (syntax-violation
2486 #f
2487 "no expressions in body"
2488 #{outer-form\ 11691}#)
2489 (let ((#{e\ 11728}# (cdar #{body\ 11717}#))
2490 (#{er\ 11729}#
2491 (caar #{body\ 11717}#)))
2492 (call-with-values
2493 (lambda ()
2494 (#{syntax-type\ 10787}#
2495 #{e\ 11728}#
2496 #{er\ 11729}#
2497 '(())
2498 (#{source-annotation\ 10685}#
2499 #{er\ 11729}#)
2500 #{ribcage\ 11704}#
2501 #{mod\ 11694}#
2502 #f))
2503 (lambda (#{type\ 11731}#
2504 #{value\ 11732}#
2505 #{e\ 11733}#
2506 #{w\ 11734}#
2507 #{s\ 11735}#
2508 #{mod\ 11736}#)
2509 (if (memv #{type\ 11731}#
2510 '(define-form))
2511 (let ((#{id\ 11746}#
2512 (#{wrap\ 10775}#
2513 #{value\ 11732}#
2514 #{w\ 11734}#
2515 #{mod\ 11736}#))
2516 (#{label\ 11747}#
2517 (#{gen-label\ 10722}#)))
2518 (let ((#{var\ 11749}#
2519 (#{gen-var\ 10819}#
2520 #{id\ 11746}#)))
2521 (begin
2522 (#{extend-ribcage!\ 10751}#
2523 #{ribcage\ 11704}#
2524 #{id\ 11746}#
2525 #{label\ 11747}#)
2526 (#{parse\ 11716}#
2527 (cdr #{body\ 11717}#)
2528 (cons #{id\ 11746}#
2529 #{ids\ 11718}#)
2530 (cons #{label\ 11747}#
2531 #{labels\ 11719}#)
2532 (cons #{id\ 11746}#
2533 #{var-ids\ 11720}#)
2534 (cons #{var\ 11749}#
2535 #{vars\ 11721}#)
2536 (cons (cons #{er\ 11729}#
2537 (#{wrap\ 10775}#
2538 #{e\ 11733}#
2539 #{w\ 11734}#
2540 #{mod\ 11736}#))
2541 #{vals\ 11722}#)
2542 (cons (cons 'lexical
2543 #{var\ 11749}#)
2544 #{bindings\ 11723}#)))))
2545 (if (memv #{type\ 11731}#
2546 '(define-syntax-form))
2547 (let ((#{id\ 11754}#
2548 (#{wrap\ 10775}#
2549 #{value\ 11732}#
2550 #{w\ 11734}#
2551 #{mod\ 11736}#))
2552 (#{label\ 11755}#
2553 (#{gen-label\ 10722}#)))
2554 (begin
2555 (#{extend-ribcage!\ 10751}#
2556 #{ribcage\ 11704}#
2557 #{id\ 11754}#
2558 #{label\ 11755}#)
2559 (#{parse\ 11716}#
2560 (cdr #{body\ 11717}#)
2561 (cons #{id\ 11754}#
2562 #{ids\ 11718}#)
2563 (cons #{label\ 11755}#
2564 #{labels\ 11719}#)
2565 #{var-ids\ 11720}#
2566 #{vars\ 11721}#
2567 #{vals\ 11722}#
2568 (cons (cons 'macro
2569 (cons #{er\ 11729}#
2570 (#{wrap\ 10775}#
2571 #{e\ 11733}#
2572 #{w\ 11734}#
2573 #{mod\ 11736}#)))
2574 #{bindings\ 11723}#))))
2575 (if (memv #{type\ 11731}#
2576 '(begin-form))
2577 ((lambda (#{tmp\ 11758}#)
2578 ((lambda (#{tmp\ 11759}#)
2579 (if #{tmp\ 11759}#
2580 (apply (lambda (#{_\ 11762}#
2581 #{e1\ 11763}#)
2582 (#{parse\ 11716}#
2583 (letrec ((#{f\ 11766}#
2584 (lambda (#{forms\ 11767}#)
2585 (if (null? #{forms\ 11767}#)
2586 (cdr #{body\ 11717}#)
2587 (cons (cons #{er\ 11729}#
2588 (#{wrap\ 10775}#
2589 (car #{forms\ 11767}#)
2590 #{w\ 11734}#
2591 #{mod\ 11736}#))
2592 (#{f\ 11766}#
2593 (cdr #{forms\ 11767}#)))))))
2594 (#{f\ 11766}#
2595 #{e1\ 11763}#))
2596 #{ids\ 11718}#
2597 #{labels\ 11719}#
2598 #{var-ids\ 11720}#
2599 #{vars\ 11721}#
2600 #{vals\ 11722}#
2601 #{bindings\ 11723}#))
2602 #{tmp\ 11759}#)
2603 (syntax-violation
2604 #f
2605 "source expression failed to match any pattern"
2606 #{tmp\ 11758}#)))
2607 ($sc-dispatch
2608 #{tmp\ 11758}#
2609 '(any . each-any))))
2610 #{e\ 11733}#)
2611 (if (memv #{type\ 11731}#
2612 '(local-syntax-form))
2613 (#{chi-local-syntax\ 10801}#
2614 #{value\ 11732}#
2615 #{e\ 11733}#
2616 #{er\ 11729}#
2617 #{w\ 11734}#
2618 #{s\ 11735}#
2619 #{mod\ 11736}#
2620 (lambda (#{forms\ 11770}#
2621 #{er\ 11771}#
2622 #{w\ 11772}#
2623 #{s\ 11773}#
2624 #{mod\ 11774}#)
2625 (#{parse\ 11716}#
2626 (letrec ((#{f\ 11782}#
2627 (lambda (#{forms\ 11783}#)
2628 (if (null? #{forms\ 11783}#)
2629 (cdr #{body\ 11717}#)
2630 (cons (cons #{er\ 11771}#
2631 (#{wrap\ 10775}#
2632 (car #{forms\ 11783}#)
2633 #{w\ 11772}#
2634 #{mod\ 11774}#))
2635 (#{f\ 11782}#
2636 (cdr #{forms\ 11783}#)))))))
2637 (#{f\ 11782}#
2638 #{forms\ 11770}#))
2639 #{ids\ 11718}#
2640 #{labels\ 11719}#
2641 #{var-ids\ 11720}#
2642 #{vars\ 11721}#
2643 #{vals\ 11722}#
2644 #{bindings\ 11723}#)))
2645 (if (null? #{ids\ 11718}#)
2646 (#{build-sequence\ 10658}#
2647 #f
2648 (map (lambda (#{x\ 11786}#)
2649 (#{chi\ 10791}#
2650 (cdr #{x\ 11786}#)
2651 (car #{x\ 11786}#)
2652 '(())
2653 #{mod\ 11736}#))
2654 (cons (cons #{er\ 11729}#
2655 (#{source-wrap\ 10777}#
2656 #{e\ 11733}#
2657 #{w\ 11734}#
2658 #{s\ 11735}#
2659 #{mod\ 11736}#))
2660 (cdr #{body\ 11717}#))))
2661 (begin
2662 (if (not (#{valid-bound-ids?\ 10769}#
2663 #{ids\ 11718}#))
2664 (syntax-violation
2665 #f
2666 "invalid or duplicate identifier in definition"
2667 #{outer-form\ 11691}#))
2668 (letrec ((#{loop\ 11793}#
2669 (lambda (#{bs\ 11794}#
2670 #{er-cache\ 11795}#
2671 #{r-cache\ 11796}#)
2672 (if (not (null? #{bs\ 11794}#))
2673 (let ((#{b\ 11799}#
2674 (car #{bs\ 11794}#)))
2675 (if (eq? (car #{b\ 11799}#)
2676 'macro)
2677 (let ((#{er\ 11802}#
2678 (cadr #{b\ 11799}#)))
2679 (let ((#{r-cache\ 11804}#
2680 (if (eq? #{er\ 11802}#
2681 #{er-cache\ 11795}#)
2682 #{r-cache\ 11796}#
2683 (#{macros-only-env\ 10698}#
2684 #{er\ 11802}#))))
2685 (begin
2686 (set-cdr!
2687 #{b\ 11799}#
2688 (#{eval-local-transformer\ 10803}#
2689 (#{chi\ 10791}#
2690 (cddr #{b\ 11799}#)
2691 #{r-cache\ 11804}#
2692 '(())
2693 #{mod\ 11736}#)
2694 #{mod\ 11736}#))
2695 (#{loop\ 11793}#
2696 (cdr #{bs\ 11794}#)
2697 #{er\ 11802}#
2698 #{r-cache\ 11804}#))))
2699 (#{loop\ 11793}#
2700 (cdr #{bs\ 11794}#)
2701 #{er-cache\ 11795}#
2702 #{r-cache\ 11796}#)))))))
2703 (#{loop\ 11793}#
2704 #{bindings\ 11723}#
2705 #f
2706 #f))
2707 (set-cdr!
2708 #{r\ 11702}#
2709 (#{extend-env\ 10694}#
2710 #{labels\ 11719}#
2711 #{bindings\ 11723}#
2712 (cdr #{r\ 11702}#)))
2713 (#{build-letrec\ 10664}#
2714 #f
2715 (map syntax->datum
2716 #{var-ids\ 11720}#)
2717 #{vars\ 11721}#
2718 (map (lambda (#{x\ 11807}#)
2719 (#{chi\ 10791}#
2720 (cdr #{x\ 11807}#)
2721 (car #{x\ 11807}#)
2722 '(())
2723 #{mod\ 11736}#))
2724 #{vals\ 11722}#)
2725 (#{build-sequence\ 10658}#
2726 #f
2727 (map (lambda (#{x\ 11811}#)
2728 (#{chi\ 10791}#
2729 (cdr #{x\ 11811}#)
2730 (car #{x\ 11811}#)
2731 '(())
2732 #{mod\ 11736}#))
2733 (cons (cons #{er\ 11729}#
2734 (#{source-wrap\ 10777}#
2735 #{e\ 11733}#
2736 #{w\ 11734}#
2737 #{s\ 11735}#
2738 #{mod\ 11736}#))
2739 (cdr #{body\ 11717}#))))))))))))))))))
2740 (#{parse\ 11716}#
2741 (map (lambda (#{x\ 11724}#)
2742 (cons #{r\ 11702}#
2743 (#{wrap\ 10775}#
2744 #{x\ 11724}#
2745 #{w\ 11707}#
2746 #{mod\ 11694}#)))
2747 #{body\ 11690}#)
2748 '()
2749 '()
2750 '()
2751 '()
2752 '()
2753 '())))))))
2754 (#{chi-macro\ 10797}#
2755 (lambda (#{p\ 11814}#
2756 #{e\ 11815}#
2757 #{r\ 11816}#
2758 #{w\ 11817}#
2759 #{rib\ 11818}#
2760 #{mod\ 11819}#)
2761 (letrec ((#{rebuild-macro-output\ 11827}#
2762 (lambda (#{x\ 11828}# #{m\ 11829}#)
2763 (if (pair? #{x\ 11828}#)
2764 (cons (#{rebuild-macro-output\ 11827}#
2765 (car #{x\ 11828}#)
2766 #{m\ 11829}#)
2767 (#{rebuild-macro-output\ 11827}#
2768 (cdr #{x\ 11828}#)
2769 #{m\ 11829}#))
2770 (if (#{syntax-object?\ 10670}# #{x\ 11828}#)
2771 (let ((#{w\ 11837}#
2772 (#{syntax-object-wrap\ 10674}#
2773 #{x\ 11828}#)))
2774 (let ((#{ms\ 11840}#
2775 (#{wrap-marks\ 10713}# #{w\ 11837}#))
2776 (#{s\ 11841}#
2777 (#{wrap-subst\ 10715}#
2778 #{w\ 11837}#)))
2779 (if (if (pair? #{ms\ 11840}#)
2780 (eq? (car #{ms\ 11840}#) #f)
2781 #f)
2782 (#{make-syntax-object\ 10668}#
2783 (#{syntax-object-expression\ 10672}#
2784 #{x\ 11828}#)
2785 (#{make-wrap\ 10711}#
2786 (cdr #{ms\ 11840}#)
2787 (if #{rib\ 11818}#
2788 (cons #{rib\ 11818}#
2789 (cdr #{s\ 11841}#))
2790 (cdr #{s\ 11841}#)))
2791 (#{syntax-object-module\ 10676}#
2792 #{x\ 11828}#))
2793 (#{make-syntax-object\ 10668}#
2794 (#{syntax-object-expression\ 10672}#
2795 #{x\ 11828}#)
2796 (#{make-wrap\ 10711}#
2797 (cons #{m\ 11829}# #{ms\ 11840}#)
2798 (if #{rib\ 11818}#
2799 (cons #{rib\ 11818}#
2800 (cons 'shift
2801 #{s\ 11841}#))
2802 (cons (quote shift) #{s\ 11841}#)))
2803 (cons 'hygiene
2804 (cdr #{p\ 11814}#))))))
2805 (if (vector? #{x\ 11828}#)
2806 (let ((#{n\ 11849}#
2807 (vector-length #{x\ 11828}#)))
2808 (let ((#{v\ 11851}#
2809 (make-vector #{n\ 11849}#)))
2810 (letrec ((#{loop\ 11854}#
2811 (lambda (#{i\ 11855}#)
2812 (if (#{fx=\ 10611}#
2813 #{i\ 11855}#
2814 #{n\ 11849}#)
2815 (begin
2816 (if #f #f)
2817 #{v\ 11851}#)
2818 (begin
2819 (vector-set!
2820 #{v\ 11851}#
2821 #{i\ 11855}#
2822 (#{rebuild-macro-output\ 11827}#
2823 (vector-ref
2824 #{x\ 11828}#
2825 #{i\ 11855}#)
2826 #{m\ 11829}#))
2827 (#{loop\ 11854}#
2828 (#{fx+\ 10607}#
2829 #{i\ 11855}#
2830 1)))))))
2831 (#{loop\ 11854}# 0))))
2832 (if (symbol? #{x\ 11828}#)
2833 (syntax-violation
2834 #f
2835 "encountered raw symbol in macro output"
2836 (#{source-wrap\ 10777}#
2837 #{e\ 11815}#
2838 #{w\ 11817}#
2839 (#{wrap-subst\ 10715}# #{w\ 11817}#)
2840 #{mod\ 11819}#)
2841 #{x\ 11828}#)
2842 #{x\ 11828}#)))))))
2843 (#{rebuild-macro-output\ 11827}#
2844 ((car #{p\ 11814}#)
2845 (#{wrap\ 10775}#
2846 #{e\ 11815}#
2847 (#{anti-mark\ 10747}# #{w\ 11817}#)
2848 #{mod\ 11819}#))
2849 (gensym "m")))))
2850 (#{chi-application\ 10795}#
2851 (lambda (#{x\ 11862}#
2852 #{e\ 11863}#
2853 #{r\ 11864}#
2854 #{w\ 11865}#
2855 #{s\ 11866}#
2856 #{mod\ 11867}#)
2857 ((lambda (#{tmp\ 11874}#)
2858 ((lambda (#{tmp\ 11875}#)
2859 (if #{tmp\ 11875}#
2860 (apply (lambda (#{e0\ 11878}# #{e1\ 11879}#)
2861 (#{build-application\ 10628}#
2862 #{s\ 11866}#
2863 #{x\ 11862}#
2864 (map (lambda (#{e\ 11880}#)
2865 (#{chi\ 10791}#
2866 #{e\ 11880}#
2867 #{r\ 11864}#
2868 #{w\ 11865}#
2869 #{mod\ 11867}#))
2870 #{e1\ 11879}#)))
2871 #{tmp\ 11875}#)
2872 (syntax-violation
2873 #f
2874 "source expression failed to match any pattern"
2875 #{tmp\ 11874}#)))
2876 ($sc-dispatch
2877 #{tmp\ 11874}#
2878 '(any . each-any))))
2879 #{e\ 11863}#)))
2880 (#{chi-expr\ 10793}#
2881 (lambda (#{type\ 11883}#
2882 #{value\ 11884}#
2883 #{e\ 11885}#
2884 #{r\ 11886}#
2885 #{w\ 11887}#
2886 #{s\ 11888}#
2887 #{mod\ 11889}#)
2888 (if (memv #{type\ 11883}# (quote (lexical)))
2889 (#{build-lexical-reference\ 10634}#
2890 'value
2891 #{s\ 11888}#
2892 #{e\ 11885}#
2893 #{value\ 11884}#)
2894 (if (memv #{type\ 11883}# (quote (core core-form)))
2895 (#{value\ 11884}#
2896 #{e\ 11885}#
2897 #{r\ 11886}#
2898 #{w\ 11887}#
2899 #{s\ 11888}#
2900 #{mod\ 11889}#)
2901 (if (memv #{type\ 11883}# (quote (module-ref)))
2902 (call-with-values
2903 (lambda ()
2904 (#{value\ 11884}#
2905 #{e\ 11885}#
2906 #{r\ 11886}#
2907 #{w\ 11887}#))
2908 (lambda (#{e\ 11900}#
2909 #{r\ 11901}#
2910 #{w\ 11902}#
2911 #{s\ 11903}#
2912 #{mod\ 11904}#)
2913 (#{chi\ 10791}#
2914 #{e\ 11900}#
2915 #{r\ 11901}#
2916 #{w\ 11902}#
2917 #{mod\ 11904}#)))
2918 (if (memv #{type\ 11883}# (quote (lexical-call)))
2919 (#{chi-application\ 10795}#
2920 (#{build-lexical-reference\ 10634}#
2921 'fun
2922 (#{source-annotation\ 10685}# (car #{e\ 11885}#))
2923 (car #{e\ 11885}#)
2924 #{value\ 11884}#)
2925 #{e\ 11885}#
2926 #{r\ 11886}#
2927 #{w\ 11887}#
2928 #{s\ 11888}#
2929 #{mod\ 11889}#)
2930 (if (memv #{type\ 11883}# (quote (global-call)))
2931 (#{chi-application\ 10795}#
2932 (#{build-global-reference\ 10640}#
2933 (#{source-annotation\ 10685}# (car #{e\ 11885}#))
2934 (if (#{syntax-object?\ 10670}# #{value\ 11884}#)
2935 (#{syntax-object-expression\ 10672}#
2936 #{value\ 11884}#)
2937 #{value\ 11884}#)
2938 (if (#{syntax-object?\ 10670}# #{value\ 11884}#)
2939 (#{syntax-object-module\ 10676}#
2940 #{value\ 11884}#)
2941 #{mod\ 11889}#))
2942 #{e\ 11885}#
2943 #{r\ 11886}#
2944 #{w\ 11887}#
2945 #{s\ 11888}#
2946 #{mod\ 11889}#)
2947 (if (memv #{type\ 11883}# (quote (constant)))
2948 (#{build-data\ 10656}#
2949 #{s\ 11888}#
2950 (#{strip\ 10817}#
2951 (#{source-wrap\ 10777}#
2952 #{e\ 11885}#
2953 #{w\ 11887}#
2954 #{s\ 11888}#
2955 #{mod\ 11889}#)
2956 '(())))
2957 (if (memv #{type\ 11883}# (quote (global)))
2958 (#{build-global-reference\ 10640}#
2959 #{s\ 11888}#
2960 #{value\ 11884}#
2961 #{mod\ 11889}#)
2962 (if (memv #{type\ 11883}# (quote (call)))
2963 (#{chi-application\ 10795}#
2964 (#{chi\ 10791}#
2965 (car #{e\ 11885}#)
2966 #{r\ 11886}#
2967 #{w\ 11887}#
2968 #{mod\ 11889}#)
2969 #{e\ 11885}#
2970 #{r\ 11886}#
2971 #{w\ 11887}#
2972 #{s\ 11888}#
2973 #{mod\ 11889}#)
2974 (if (memv #{type\ 11883}# (quote (begin-form)))
2975 ((lambda (#{tmp\ 11917}#)
2976 ((lambda (#{tmp\ 11918}#)
2977 (if #{tmp\ 11918}#
2978 (apply (lambda (#{_\ 11922}#
2979 #{e1\ 11923}#
2980 #{e2\ 11924}#)
2981 (#{chi-sequence\ 10779}#
2982 (cons #{e1\ 11923}#
2983 #{e2\ 11924}#)
2984 #{r\ 11886}#
2985 #{w\ 11887}#
2986 #{s\ 11888}#
2987 #{mod\ 11889}#))
2988 #{tmp\ 11918}#)
2989 (syntax-violation
2990 #f
2991 "source expression failed to match any pattern"
2992 #{tmp\ 11917}#)))
2993 ($sc-dispatch
2994 #{tmp\ 11917}#
2995 '(any any . each-any))))
2996 #{e\ 11885}#)
2997 (if (memv #{type\ 11883}#
2998 '(local-syntax-form))
2999 (#{chi-local-syntax\ 10801}#
3000 #{value\ 11884}#
3001 #{e\ 11885}#
3002 #{r\ 11886}#
3003 #{w\ 11887}#
3004 #{s\ 11888}#
3005 #{mod\ 11889}#
3006 #{chi-sequence\ 10779}#)
3007 (if (memv #{type\ 11883}#
3008 '(eval-when-form))
3009 ((lambda (#{tmp\ 11928}#)
3010 ((lambda (#{tmp\ 11929}#)
3011 (if #{tmp\ 11929}#
3012 (apply (lambda (#{_\ 11934}#
3013 #{x\ 11935}#
3014 #{e1\ 11936}#
3015 #{e2\ 11937}#)
3016 (let ((#{when-list\ 11939}#
3017 (#{chi-when-list\ 10785}#
3018 #{e\ 11885}#
3019 #{x\ 11935}#
3020 #{w\ 11887}#)))
3021 (if (memq 'eval
3022 #{when-list\ 11939}#)
3023 (#{chi-sequence\ 10779}#
3024 (cons #{e1\ 11936}#
3025 #{e2\ 11937}#)
3026 #{r\ 11886}#
3027 #{w\ 11887}#
3028 #{s\ 11888}#
3029 #{mod\ 11889}#)
3030 (#{chi-void\ 10805}#))))
3031 #{tmp\ 11929}#)
3032 (syntax-violation
3033 #f
3034 "source expression failed to match any pattern"
3035 #{tmp\ 11928}#)))
3036 ($sc-dispatch
3037 #{tmp\ 11928}#
3038 '(any each-any any . each-any))))
3039 #{e\ 11885}#)
3040 (if (memv #{type\ 11883}#
3041 '(define-form
3042 define-syntax-form))
3043 (syntax-violation
3044 #f
3045 "definition in expression context"
3046 #{e\ 11885}#
3047 (#{wrap\ 10775}#
3048 #{value\ 11884}#
3049 #{w\ 11887}#
3050 #{mod\ 11889}#))
3051 (if (memv #{type\ 11883}#
3052 '(syntax))
3053 (syntax-violation
3054 #f
3055 "reference to pattern variable outside syntax form"
3056 (#{source-wrap\ 10777}#
3057 #{e\ 11885}#
3058 #{w\ 11887}#
3059 #{s\ 11888}#
3060 #{mod\ 11889}#))
3061 (if (memv #{type\ 11883}#
3062 '(displaced-lexical))
3063 (syntax-violation
3064 #f
3065 "reference to identifier outside its scope"
3066 (#{source-wrap\ 10777}#
3067 #{e\ 11885}#
3068 #{w\ 11887}#
3069 #{s\ 11888}#
3070 #{mod\ 11889}#))
3071 (syntax-violation
3072 #f
3073 "unexpected syntax"
3074 (#{source-wrap\ 10777}#
3075 #{e\ 11885}#
3076 #{w\ 11887}#
3077 #{s\ 11888}#
3078 #{mod\ 11889}#))))))))))))))))))
3079 (#{chi\ 10791}#
3080 (lambda (#{e\ 11946}#
3081 #{r\ 11947}#
3082 #{w\ 11948}#
3083 #{mod\ 11949}#)
3084 (call-with-values
3085 (lambda ()
3086 (#{syntax-type\ 10787}#
3087 #{e\ 11946}#
3088 #{r\ 11947}#
3089 #{w\ 11948}#
3090 (#{source-annotation\ 10685}# #{e\ 11946}#)
3091 #f
3092 #{mod\ 11949}#
3093 #f))
3094 (lambda (#{type\ 11954}#
3095 #{value\ 11955}#
3096 #{e\ 11956}#
3097 #{w\ 11957}#
3098 #{s\ 11958}#
3099 #{mod\ 11959}#)
3100 (#{chi-expr\ 10793}#
3101 #{type\ 11954}#
3102 #{value\ 11955}#
3103 #{e\ 11956}#
3104 #{r\ 11947}#
3105 #{w\ 11957}#
3106 #{s\ 11958}#
3107 #{mod\ 11959}#)))))
3108 (#{chi-top\ 10789}#
3109 (lambda (#{e\ 11966}#
3110 #{r\ 11967}#
3111 #{w\ 11968}#
3112 #{m\ 11969}#
3113 #{esew\ 11970}#
3114 #{mod\ 11971}#)
3115 (call-with-values
3116 (lambda ()
3117 (#{syntax-type\ 10787}#
3118 #{e\ 11966}#
3119 #{r\ 11967}#
3120 #{w\ 11968}#
3121 (#{source-annotation\ 10685}# #{e\ 11966}#)
3122 #f
3123 #{mod\ 11971}#
3124 #f))
3125 (lambda (#{type\ 11992}#
3126 #{value\ 11993}#
3127 #{e\ 11994}#
3128 #{w\ 11995}#
3129 #{s\ 11996}#
3130 #{mod\ 11997}#)
3131 (if (memv #{type\ 11992}# (quote (begin-form)))
3132 ((lambda (#{tmp\ 12005}#)
3133 ((lambda (#{tmp\ 12006}#)
3134 (if #{tmp\ 12006}#
3135 (apply (lambda (#{_\ 12008}#)
3136 (#{chi-void\ 10805}#))
3137 #{tmp\ 12006}#)
3138 ((lambda (#{tmp\ 12009}#)
3139 (if #{tmp\ 12009}#
3140 (apply (lambda (#{_\ 12013}#
3141 #{e1\ 12014}#
3142 #{e2\ 12015}#)
3143 (#{chi-top-sequence\ 10781}#
3144 (cons #{e1\ 12014}# #{e2\ 12015}#)
3145 #{r\ 11967}#
3146 #{w\ 11995}#
3147 #{s\ 11996}#
3148 #{m\ 11969}#
3149 #{esew\ 11970}#
3150 #{mod\ 11997}#))
3151 #{tmp\ 12009}#)
3152 (syntax-violation
3153 #f
3154 "source expression failed to match any pattern"
3155 #{tmp\ 12005}#)))
3156 ($sc-dispatch
3157 #{tmp\ 12005}#
3158 '(any any . each-any)))))
3159 ($sc-dispatch #{tmp\ 12005}# (quote (any)))))
3160 #{e\ 11994}#)
3161 (if (memv #{type\ 11992}#
3162 '(local-syntax-form))
3163 (#{chi-local-syntax\ 10801}#
3164 #{value\ 11993}#
3165 #{e\ 11994}#
3166 #{r\ 11967}#
3167 #{w\ 11995}#
3168 #{s\ 11996}#
3169 #{mod\ 11997}#
3170 (lambda (#{body\ 12018}#
3171 #{r\ 12019}#
3172 #{w\ 12020}#
3173 #{s\ 12021}#
3174 #{mod\ 12022}#)
3175 (#{chi-top-sequence\ 10781}#
3176 #{body\ 12018}#
3177 #{r\ 12019}#
3178 #{w\ 12020}#
3179 #{s\ 12021}#
3180 #{m\ 11969}#
3181 #{esew\ 11970}#
3182 #{mod\ 12022}#)))
3183 (if (memv #{type\ 11992}# (quote (eval-when-form)))
3184 ((lambda (#{tmp\ 12029}#)
3185 ((lambda (#{tmp\ 12030}#)
3186 (if #{tmp\ 12030}#
3187 (apply (lambda (#{_\ 12035}#
3188 #{x\ 12036}#
3189 #{e1\ 12037}#
3190 #{e2\ 12038}#)
3191 (let ((#{when-list\ 12041}#
3192 (#{chi-when-list\ 10785}#
3193 #{e\ 11994}#
3194 #{x\ 12036}#
3195 #{w\ 11995}#))
3196 (#{body\ 12042}#
3197 (cons #{e1\ 12037}#
3198 #{e2\ 12038}#)))
3199 (if (eq? #{m\ 11969}# (quote e))
3200 (if (memq 'eval
3201 #{when-list\ 12041}#)
3202 (#{chi-top-sequence\ 10781}#
3203 #{body\ 12042}#
3204 #{r\ 11967}#
3205 #{w\ 11995}#
3206 #{s\ 11996}#
3207 (if (memq 'expand
3208 #{when-list\ 12041}#)
3209 'c&e
3210 'e)
3211 '(eval)
3212 #{mod\ 11997}#)
3213 (begin
3214 (if (memq 'expand
3215 #{when-list\ 12041}#)
3216 (#{top-level-eval-hook\ 10615}#
3217 (#{chi-top-sequence\ 10781}#
3218 #{body\ 12042}#
3219 #{r\ 11967}#
3220 #{w\ 11995}#
3221 #{s\ 11996}#
3222 'e
3223 '(eval)
3224 #{mod\ 11997}#)
3225 #{mod\ 11997}#))
3226 (#{chi-void\ 10805}#)))
3227 (if (memq 'load
3228 #{when-list\ 12041}#)
3229 (if (let ((#{t\ 12051}#
3230 (memq 'compile
3231 #{when-list\ 12041}#)))
3232 (if #{t\ 12051}#
3233 #{t\ 12051}#
3234 (let ((#{t\ 12054}#
3235 (memq 'expand
3236 #{when-list\ 12041}#)))
3237 (if #{t\ 12054}#
3238 #{t\ 12054}#
3239 (if (eq? #{m\ 11969}#
3240 'c&e)
3241 (memq 'eval
3242 #{when-list\ 12041}#)
3243 #f)))))
3244 (#{chi-top-sequence\ 10781}#
3245 #{body\ 12042}#
3246 #{r\ 11967}#
3247 #{w\ 11995}#
3248 #{s\ 11996}#
3249 'c&e
3250 '(compile load)
3251 #{mod\ 11997}#)
3252 (if (memq #{m\ 11969}#
3253 '(c c&e))
3254 (#{chi-top-sequence\ 10781}#
3255 #{body\ 12042}#
3256 #{r\ 11967}#
3257 #{w\ 11995}#
3258 #{s\ 11996}#
3259 'c
3260 '(load)
3261 #{mod\ 11997}#)
3262 (#{chi-void\ 10805}#)))
3263 (if (let ((#{t\ 12062}#
3264 (memq 'compile
3265 #{when-list\ 12041}#)))
3266 (if #{t\ 12062}#
3267 #{t\ 12062}#
3268 (let ((#{t\ 12065}#
3269 (memq 'expand
3270 #{when-list\ 12041}#)))
3271 (if #{t\ 12065}#
3272 #{t\ 12065}#
3273 (if (eq? #{m\ 11969}#
3274 'c&e)
3275 (memq 'eval
3276 #{when-list\ 12041}#)
3277 #f)))))
3278 (begin
3279 (#{top-level-eval-hook\ 10615}#
3280 (#{chi-top-sequence\ 10781}#
3281 #{body\ 12042}#
3282 #{r\ 11967}#
3283 #{w\ 11995}#
3284 #{s\ 11996}#
3285 'e
3286 '(eval)
3287 #{mod\ 11997}#)
3288 #{mod\ 11997}#)
3289 (#{chi-void\ 10805}#))
3290 (#{chi-void\ 10805}#))))))
3291 #{tmp\ 12030}#)
3292 (syntax-violation
3293 #f
3294 "source expression failed to match any pattern"
3295 #{tmp\ 12029}#)))
3296 ($sc-dispatch
3297 #{tmp\ 12029}#
3298 '(any each-any any . each-any))))
3299 #{e\ 11994}#)
3300 (if (memv #{type\ 11992}#
3301 '(define-syntax-form))
3302 (let ((#{n\ 12073}#
3303 (#{id-var-name\ 10763}#
3304 #{value\ 11993}#
3305 #{w\ 11995}#))
3306 (#{r\ 12074}#
3307 (#{macros-only-env\ 10698}# #{r\ 11967}#)))
3308 (if (memv #{m\ 11969}# (quote (c)))
3309 (if (memq (quote compile) #{esew\ 11970}#)
3310 (let ((#{e\ 12077}#
3311 (#{chi-install-global\ 10783}#
3312 #{n\ 12073}#
3313 (#{chi\ 10791}#
3314 #{e\ 11994}#
3315 #{r\ 12074}#
3316 #{w\ 11995}#
3317 #{mod\ 11997}#))))
3318 (begin
3319 (#{top-level-eval-hook\ 10615}#
3320 #{e\ 12077}#
3321 #{mod\ 11997}#)
3322 (if (memq (quote load) #{esew\ 11970}#)
3323 #{e\ 12077}#
3324 (#{chi-void\ 10805}#))))
3325 (if (memq (quote load) #{esew\ 11970}#)
3326 (#{chi-install-global\ 10783}#
3327 #{n\ 12073}#
3328 (#{chi\ 10791}#
3329 #{e\ 11994}#
3330 #{r\ 12074}#
3331 #{w\ 11995}#
3332 #{mod\ 11997}#))
3333 (#{chi-void\ 10805}#)))
3334 (if (memv #{m\ 11969}# (quote (c&e)))
3335 (let ((#{e\ 12080}#
3336 (#{chi-install-global\ 10783}#
3337 #{n\ 12073}#
3338 (#{chi\ 10791}#
3339 #{e\ 11994}#
3340 #{r\ 12074}#
3341 #{w\ 11995}#
3342 #{mod\ 11997}#))))
3343 (begin
3344 (#{top-level-eval-hook\ 10615}#
3345 #{e\ 12080}#
3346 #{mod\ 11997}#)
3347 #{e\ 12080}#))
3348 (begin
3349 (if (memq (quote eval) #{esew\ 11970}#)
3350 (#{top-level-eval-hook\ 10615}#
3351 (#{chi-install-global\ 10783}#
3352 #{n\ 12073}#
3353 (#{chi\ 10791}#
3354 #{e\ 11994}#
3355 #{r\ 12074}#
3356 #{w\ 11995}#
3357 #{mod\ 11997}#))
3358 #{mod\ 11997}#))
3359 (#{chi-void\ 10805}#)))))
3360 (if (memv #{type\ 11992}# (quote (define-form)))
3361 (let ((#{n\ 12085}#
3362 (#{id-var-name\ 10763}#
3363 #{value\ 11993}#
3364 #{w\ 11995}#)))
3365 (let ((#{type\ 12087}#
3366 (#{binding-type\ 10689}#
3367 (#{lookup\ 10700}#
3368 #{n\ 12085}#
3369 #{r\ 11967}#
3370 #{mod\ 11997}#))))
3371 (if (memv #{type\ 12087}#
3372 '(global core macro module-ref))
3373 (begin
3374 (if (if (memq #{m\ 11969}#
3375 '(c c&e))
3376 (if (not (module-local-variable
3377 (current-module)
3378 #{n\ 12085}#))
3379 (current-module)
3380 #f)
3381 #f)
3382 (let ((#{old\ 12093}#
3383 (module-variable
3384 (current-module)
3385 #{n\ 12085}#)))
3386 (module-define!
3387 (current-module)
3388 #{n\ 12085}#
3389 (if (variable? #{old\ 12093}#)
3390 (variable-ref #{old\ 12093}#)
3391 #f))))
3392 (let ((#{x\ 12096}#
3393 (#{build-global-definition\ 10646}#
3394 #{s\ 11996}#
3395 #{n\ 12085}#
3396 (#{chi\ 10791}#
3397 #{e\ 11994}#
3398 #{r\ 11967}#
3399 #{w\ 11995}#
3400 #{mod\ 11997}#))))
3401 (begin
3402 (if (eq? #{m\ 11969}# (quote c&e))
3403 (#{top-level-eval-hook\ 10615}#
3404 #{x\ 12096}#
3405 #{mod\ 11997}#))
3406 #{x\ 12096}#)))
3407 (if (memv #{type\ 12087}#
3408 '(displaced-lexical))
3409 (syntax-violation
3410 #f
3411 "identifier out of context"
3412 #{e\ 11994}#
3413 (#{wrap\ 10775}#
3414 #{value\ 11993}#
3415 #{w\ 11995}#
3416 #{mod\ 11997}#))
3417 (syntax-violation
3418 #f
3419 "cannot define keyword at top level"
3420 #{e\ 11994}#
3421 (#{wrap\ 10775}#
3422 #{value\ 11993}#
3423 #{w\ 11995}#
3424 #{mod\ 11997}#))))))
3425 (let ((#{x\ 12102}#
3426 (#{chi-expr\ 10793}#
3427 #{type\ 11992}#
3428 #{value\ 11993}#
3429 #{e\ 11994}#
3430 #{r\ 11967}#
3431 #{w\ 11995}#
3432 #{s\ 11996}#
3433 #{mod\ 11997}#)))
3434 (begin
3435 (if (eq? #{m\ 11969}# (quote c&e))
3436 (#{top-level-eval-hook\ 10615}#
3437 #{x\ 12102}#
3438 #{mod\ 11997}#))
3439 #{x\ 12102}#)))))))))))
3440 (#{syntax-type\ 10787}#
3441 (lambda (#{e\ 12103}#
3442 #{r\ 12104}#
3443 #{w\ 12105}#
3444 #{s\ 12106}#
3445 #{rib\ 12107}#
3446 #{mod\ 12108}#
3447 #{for-car?\ 12109}#)
3448 (if (symbol? #{e\ 12103}#)
3449 (let ((#{n\ 12121}#
3450 (#{id-var-name\ 10763}#
3451 #{e\ 12103}#
3452 #{w\ 12105}#)))
3453 (let ((#{b\ 12123}#
3454 (#{lookup\ 10700}#
3455 #{n\ 12121}#
3456 #{r\ 12104}#
3457 #{mod\ 12108}#)))
3458 (let ((#{type\ 12125}#
3459 (#{binding-type\ 10689}# #{b\ 12123}#)))
3460 (if (memv #{type\ 12125}# (quote (lexical)))
3461 (values
3462 #{type\ 12125}#
3463 (#{binding-value\ 10691}# #{b\ 12123}#)
3464 #{e\ 12103}#
3465 #{w\ 12105}#
3466 #{s\ 12106}#
3467 #{mod\ 12108}#)
3468 (if (memv #{type\ 12125}# (quote (global)))
3469 (values
3470 #{type\ 12125}#
3471 #{n\ 12121}#
3472 #{e\ 12103}#
3473 #{w\ 12105}#
3474 #{s\ 12106}#
3475 #{mod\ 12108}#)
3476 (if (memv #{type\ 12125}# (quote (macro)))
3477 (if #{for-car?\ 12109}#
3478 (values
3479 #{type\ 12125}#
3480 (#{binding-value\ 10691}# #{b\ 12123}#)
3481 #{e\ 12103}#
3482 #{w\ 12105}#
3483 #{s\ 12106}#
3484 #{mod\ 12108}#)
3485 (#{syntax-type\ 10787}#
3486 (#{chi-macro\ 10797}#
3487 (#{binding-value\ 10691}# #{b\ 12123}#)
3488 #{e\ 12103}#
3489 #{r\ 12104}#
3490 #{w\ 12105}#
3491 #{rib\ 12107}#
3492 #{mod\ 12108}#)
3493 #{r\ 12104}#
3494 '(())
3495 #{s\ 12106}#
3496 #{rib\ 12107}#
3497 #{mod\ 12108}#
3498 #f))
3499 (values
3500 #{type\ 12125}#
3501 (#{binding-value\ 10691}# #{b\ 12123}#)
3502 #{e\ 12103}#
3503 #{w\ 12105}#
3504 #{s\ 12106}#
3505 #{mod\ 12108}#)))))))
3506 (if (pair? #{e\ 12103}#)
3507 (let ((#{first\ 12134}# (car #{e\ 12103}#)))
3508 (call-with-values
3509 (lambda ()
3510 (#{syntax-type\ 10787}#
3511 #{first\ 12134}#
3512 #{r\ 12104}#
3513 #{w\ 12105}#
3514 #{s\ 12106}#
3515 #{rib\ 12107}#
3516 #{mod\ 12108}#
3517 #t))
3518 (lambda (#{ftype\ 12135}#
3519 #{fval\ 12136}#
3520 #{fe\ 12137}#
3521 #{fw\ 12138}#
3522 #{fs\ 12139}#
3523 #{fmod\ 12140}#)
3524 (if (memv #{ftype\ 12135}# (quote (lexical)))
3525 (values
3526 'lexical-call
3527 #{fval\ 12136}#
3528 #{e\ 12103}#
3529 #{w\ 12105}#
3530 #{s\ 12106}#
3531 #{mod\ 12108}#)
3532 (if (memv #{ftype\ 12135}# (quote (global)))
3533 (values
3534 'global-call
3535 (#{make-syntax-object\ 10668}#
3536 #{fval\ 12136}#
3537 #{w\ 12105}#
3538 #{fmod\ 12140}#)
3539 #{e\ 12103}#
3540 #{w\ 12105}#
3541 #{s\ 12106}#
3542 #{mod\ 12108}#)
3543 (if (memv #{ftype\ 12135}# (quote (macro)))
3544 (#{syntax-type\ 10787}#
3545 (#{chi-macro\ 10797}#
3546 #{fval\ 12136}#
3547 #{e\ 12103}#
3548 #{r\ 12104}#
3549 #{w\ 12105}#
3550 #{rib\ 12107}#
3551 #{mod\ 12108}#)
3552 #{r\ 12104}#
3553 '(())
3554 #{s\ 12106}#
3555 #{rib\ 12107}#
3556 #{mod\ 12108}#
3557 #{for-car?\ 12109}#)
3558 (if (memv #{ftype\ 12135}# (quote (module-ref)))
3559 (call-with-values
3560 (lambda ()
3561 (#{fval\ 12136}#
3562 #{e\ 12103}#
3563 #{r\ 12104}#
3564 #{w\ 12105}#))
3565 (lambda (#{e\ 12152}#
3566 #{r\ 12153}#
3567 #{w\ 12154}#
3568 #{s\ 12155}#
3569 #{mod\ 12156}#)
3570 (#{syntax-type\ 10787}#
3571 #{e\ 12152}#
3572 #{r\ 12153}#
3573 #{w\ 12154}#
3574 #{s\ 12155}#
3575 #{rib\ 12107}#
3576 #{mod\ 12156}#
3577 #{for-car?\ 12109}#)))
3578 (if (memv #{ftype\ 12135}# (quote (core)))
3579 (values
3580 'core-form
3581 #{fval\ 12136}#
3582 #{e\ 12103}#
3583 #{w\ 12105}#
3584 #{s\ 12106}#
3585 #{mod\ 12108}#)
3586 (if (memv #{ftype\ 12135}#
3587 '(local-syntax))
3588 (values
3589 'local-syntax-form
3590 #{fval\ 12136}#
3591 #{e\ 12103}#
3592 #{w\ 12105}#
3593 #{s\ 12106}#
3594 #{mod\ 12108}#)
3595 (if (memv #{ftype\ 12135}#
3596 '(begin))
3597 (values
3598 'begin-form
3599 #f
3600 #{e\ 12103}#
3601 #{w\ 12105}#
3602 #{s\ 12106}#
3603 #{mod\ 12108}#)
3604 (if (memv #{ftype\ 12135}#
3605 '(eval-when))
3606 (values
3607 'eval-when-form
3608 #f
3609 #{e\ 12103}#
3610 #{w\ 12105}#
3611 #{s\ 12106}#
3612 #{mod\ 12108}#)
3613 (if (memv #{ftype\ 12135}#
3614 '(define))
3615 ((lambda (#{tmp\ 12167}#)
3616 ((lambda (#{tmp\ 12168}#)
3617 (if (if #{tmp\ 12168}#
3618 (apply (lambda (#{_\ 12172}#
3619 #{name\ 12173}#
3620 #{val\ 12174}#)
3621 (#{id?\ 10706}#
3622 #{name\ 12173}#))
3623 #{tmp\ 12168}#)
3624 #f)
3625 (apply (lambda (#{_\ 12178}#
3626 #{name\ 12179}#
3627 #{val\ 12180}#)
3628 (values
3629 'define-form
3630 #{name\ 12179}#
3631 #{val\ 12180}#
3632 #{w\ 12105}#
3633 #{s\ 12106}#
3634 #{mod\ 12108}#))
3635 #{tmp\ 12168}#)
3636 ((lambda (#{tmp\ 12181}#)
3637 (if (if #{tmp\ 12181}#
3638 (apply (lambda (#{_\ 12187}#
3639 #{name\ 12188}#
3640 #{args\ 12189}#
3641 #{e1\ 12190}#
3642 #{e2\ 12191}#)
3643 (if (#{id?\ 10706}#
3644 #{name\ 12188}#)
3645 (#{valid-bound-ids?\ 10769}#
3646 (#{lambda-var-list\ 10821}#
3647 #{args\ 12189}#))
3648 #f))
3649 #{tmp\ 12181}#)
3650 #f)
3651 (apply (lambda (#{_\ 12199}#
3652 #{name\ 12200}#
3653 #{args\ 12201}#
3654 #{e1\ 12202}#
3655 #{e2\ 12203}#)
3656 (values
3657 'define-form
3658 (#{wrap\ 10775}#
3659 #{name\ 12200}#
3660 #{w\ 12105}#
3661 #{mod\ 12108}#)
3662 (#{decorate-source\ 10624}#
3663 (cons '#(syntax-object
3664 lambda
3665 ((top)
3666 #(ribcage
3667 #(_
3668 name
3669 args
3670 e1
3671 e2)
3672 #((top)
3673 (top)
3674 (top)
3675 (top)
3676 (top))
3677 #("i12194"
3678 "i12195"
3679 "i12196"
3680 "i12197"
3681 "i12198"))
3682 #(ribcage
3683 ()
3684 ()
3685 ())
3686 #(ribcage
3687 ()
3688 ()
3689 ())
3690 #(ribcage
3691 #(ftype
3692 fval
3693 fe
3694 fw
3695 fs
3696 fmod)
3697 #((top)
3698 (top)
3699 (top)
3700 (top)
3701 (top)
3702 (top))
3703 #("i12141"
3704 "i12142"
3705 "i12143"
3706 "i12144"
3707 "i12145"
3708 "i12146"))
3709 #(ribcage
3710 ()
3711 ()
3712 ())
3713 #(ribcage
3714 #(first)
3715 #((top))
3716 #("i12133"))
3717 #(ribcage
3718 ()
3719 ()
3720 ())
3721 #(ribcage
3722 ()
3723 ()
3724 ())
3725 #(ribcage
3726 ()
3727 ()
3728 ())
3729 #(ribcage
3730 #(e
3731 r
3732 w
3733 s
3734 rib
3735 mod
3736 for-car?)
3737 #((top)
3738 (top)
3739 (top)
3740 (top)
3741 (top)
3742 (top)
3743 (top))
3744 #("i12110"
3745 "i12111"
3746 "i12112"
3747 "i12113"
3748 "i12114"
3749 "i12115"
3750 "i12116"))
3751 #(ribcage
3752 (lambda-var-list
3753 gen-var
3754 strip
3755 chi-lambda-case
3756 lambda*-formals
3757 chi-simple-lambda
3758 lambda-formals
3759 ellipsis?
3760 chi-void
3761 eval-local-transformer
3762 chi-local-syntax
3763 chi-body
3764 chi-macro
3765 chi-application
3766 chi-expr
3767 chi
3768 chi-top
3769 syntax-type
3770 chi-when-list
3771 chi-install-global
3772 chi-top-sequence
3773 chi-sequence
3774 source-wrap
3775 wrap
3776 bound-id-member?
3777 distinct-bound-ids?
3778 valid-bound-ids?
3779 bound-id=?
3780 free-id=?
3781 id-var-name
3782 same-marks?
3783 join-marks
3784 join-wraps
3785 smart-append
3786 make-binding-wrap
3787 extend-ribcage!
3788 make-empty-ribcage
3789 new-mark
3790 anti-mark
3791 the-anti-mark
3792 top-marked?
3793 top-wrap
3794 empty-wrap
3795 set-ribcage-labels!
3796 set-ribcage-marks!
3797 set-ribcage-symnames!
3798 ribcage-labels
3799 ribcage-marks
3800 ribcage-symnames
3801 ribcage?
3802 make-ribcage
3803 gen-labels
3804 gen-label
3805 make-rename
3806 rename-marks
3807 rename-new
3808 rename-old
3809 subst-rename?
3810 wrap-subst
3811 wrap-marks
3812 make-wrap
3813 id-sym-name&marks
3814 id-sym-name
3815 id?
3816 nonsymbol-id?
3817 global-extend
3818 lookup
3819 macros-only-env
3820 extend-var-env
3821 extend-env
3822 null-env
3823 binding-value
3824 binding-type
3825 make-binding
3826 arg-check
3827 source-annotation
3828 no-source
3829 set-syntax-object-module!
3830 set-syntax-object-wrap!
3831 set-syntax-object-expression!
3832 syntax-object-module
3833 syntax-object-wrap
3834 syntax-object-expression
3835 syntax-object?
3836 make-syntax-object
3837 build-lexical-var
3838 build-letrec
3839 build-named-let
3840 build-let
3841 build-sequence
3842 build-data
3843 build-primref
3844 build-lambda-case
3845 build-case-lambda
3846 build-simple-lambda
3847 build-global-definition
3848 maybe-name-value!
3849 build-global-assignment
3850 build-global-reference
3851 analyze-variable
3852 build-lexical-assignment
3853 build-lexical-reference
3854 build-dynlet
3855 build-conditional
3856 build-application
3857 build-void
3858 decorate-source
3859 get-global-definition-hook
3860 put-global-definition-hook
3861 gensym-hook
3862 local-eval-hook
3863 top-level-eval-hook
3864 fx<
3865 fx=
3866 fx-
3867 fx+
3868 *mode*
3869 noexpand)
3870 ((top)
3871 (top)
3872 (top)
3873 (top)
3874 (top)
3875 (top)
3876 (top)
3877 (top)
3878 (top)
3879 (top)
3880 (top)
3881 (top)
3882 (top)
3883 (top)
3884 (top)
3885 (top)
3886 (top)
3887 (top)
3888 (top)
3889 (top)
3890 (top)
3891 (top)
3892 (top)
3893 (top)
3894 (top)
3895 (top)
3896 (top)
3897 (top)
3898 (top)
3899 (top)
3900 (top)
3901 (top)
3902 (top)
3903 (top)
3904 (top)
3905 (top)
3906 (top)
3907 (top)
3908 (top)
3909 (top)
3910 (top)
3911 (top)
3912 (top)
3913 (top)
3914 (top)
3915 (top)
3916 (top)
3917 (top)
3918 (top)
3919 (top)
3920 (top)
3921 (top)
3922 (top)
3923 (top)
3924 (top)
3925 (top)
3926 (top)
3927 (top)
3928 (top)
3929 (top)
3930 (top)
3931 (top)
3932 (top)
3933 (top)
3934 (top)
3935 (top)
3936 (top)
3937 (top)
3938 (top)
3939 (top)
3940 (top)
3941 (top)
3942 (top)
3943 (top)
3944 (top)
3945 (top)
3946 (top)
3947 (top)
3948 (top)
3949 (top)
3950 (top)
3951 (top)
3952 (top)
3953 (top)
3954 (top)
3955 (top)
3956 (top)
3957 (top)
3958 (top)
3959 (top)
3960 (top)
3961 (top)
3962 (top)
3963 (top)
3964 (top)
3965 (top)
3966 (top)
3967 (top)
3968 (top)
3969 (top)
3970 (top)
3971 (top)
3972 (top)
3973 (top)
3974 (top)
3975 (top)
3976 (top)
3977 (top)
3978 (top)
3979 (top)
3980 (top)
3981 (top)
3982 (top)
3983 (top)
3984 (top)
3985 (top)
3986 (top)
3987 (top))
3988 ("i10820"
3989 "i10818"
3990 "i10816"
3991 "i10814"
3992 "i10812"
3993 "i10810"
3994 "i10808"
3995 "i10806"
3996 "i10804"
3997 "i10802"
3998 "i10800"
3999 "i10798"
4000 "i10796"
4001 "i10794"
4002 "i10792"
4003 "i10790"
4004 "i10788"
4005 "i10786"
4006 "i10784"
4007 "i10782"
4008 "i10780"
4009 "i10778"
4010 "i10776"
4011 "i10774"
4012 "i10772"
4013 "i10770"
4014 "i10768"
4015 "i10766"
4016 "i10764"
4017 "i10762"
4018 "i10760"
4019 "i10758"
4020 "i10756"
4021 "i10754"
4022 "i10752"
4023 "i10750"
4024 "i10749"
4025 "i10748"
4026 "i10746"
4027 "i10745"
4028 "i10744"
4029 "i10743"
4030 "i10742"
4031 "i10740"
4032 "i10738"
4033 "i10736"
4034 "i10734"
4035 "i10732"
4036 "i10730"
4037 "i10728"
4038 "i10726"
4039 "i10723"
4040 "i10721"
4041 "i10720"
4042 "i10719"
4043 "i10718"
4044 "i10717"
4045 "i10716"
4046 "i10714"
4047 "i10712"
4048 "i10710"
4049 "i10708"
4050 "i10707"
4051 "i10705"
4052 "i10703"
4053 "i10701"
4054 "i10699"
4055 "i10697"
4056 "i10695"
4057 "i10693"
4058 "i10692"
4059 "i10690"
4060 "i10688"
4061 "i10687"
4062 "i10686"
4063 "i10684"
4064 "i10683"
4065 "i10681"
4066 "i10679"
4067 "i10677"
4068 "i10675"
4069 "i10673"
4070 "i10671"
4071 "i10669"
4072 "i10667"
4073 "i10665"
4074 "i10663"
4075 "i10661"
4076 "i10659"
4077 "i10657"
4078 "i10655"
4079 "i10653"
4080 "i10651"
4081 "i10649"
4082 "i10647"
4083 "i10645"
4084 "i10643"
4085 "i10641"
4086 "i10639"
4087 "i10637"
4088 "i10635"
4089 "i10633"
4090 "i10631"
4091 "i10629"
4092 "i10627"
4093 "i10625"
4094 "i10623"
4095 "i10621"
4096 "i10619"
4097 "i10618"
4098 "i10616"
4099 "i10614"
4100 "i10612"
4101 "i10610"
4102 "i10608"
4103 "i10606"
4104 "i10604"
4105 "i10602"))
4106 #(ribcage
4107 (define-structure
4108 and-map*)
4109 ((top)
4110 (top))
4111 ("i10505"
4112 "i10503")))
4113 (hygiene
4114 guile))
4115 (#{wrap\ 10775}#
4116 (cons #{args\ 12201}#
4117 (cons #{e1\ 12202}#
4118 #{e2\ 12203}#))
4119 #{w\ 12105}#
4120 #{mod\ 12108}#))
4121 #{s\ 12106}#)
4122 '(())
4123 #{s\ 12106}#
4124 #{mod\ 12108}#))
4125 #{tmp\ 12181}#)
4126 ((lambda (#{tmp\ 12206}#)
4127 (if (if #{tmp\ 12206}#
4128 (apply (lambda (#{_\ 12209}#
4129 #{name\ 12210}#)
4130 (#{id?\ 10706}#
4131 #{name\ 12210}#))
4132 #{tmp\ 12206}#)
4133 #f)
4134 (apply (lambda (#{_\ 12213}#
4135 #{name\ 12214}#)
4136 (values
4137 'define-form
4138 (#{wrap\ 10775}#
4139 #{name\ 12214}#
4140 #{w\ 12105}#
4141 #{mod\ 12108}#)
4142 '(#(syntax-object
4143 if
4144 ((top)
4145 #(ribcage
4146 #(_
4147 name)
4148 #((top)
4149 (top))
4150 #("i12211"
4151 "i12212"))
4152 #(ribcage
4153 ()
4154 ()
4155 ())
4156 #(ribcage
4157 ()
4158 ()
4159 ())
4160 #(ribcage
4161 #(ftype
4162 fval
4163 fe
4164 fw
4165 fs
4166 fmod)
4167 #((top)
4168 (top)
4169 (top)
4170 (top)
4171 (top)
4172 (top))
4173 #("i12141"
4174 "i12142"
4175 "i12143"
4176 "i12144"
4177 "i12145"
4178 "i12146"))
4179 #(ribcage
4180 ()
4181 ()
4182 ())
4183 #(ribcage
4184 #(first)
4185 #((top))
4186 #("i12133"))
4187 #(ribcage
4188 ()
4189 ()
4190 ())
4191 #(ribcage
4192 ()
4193 ()
4194 ())
4195 #(ribcage
4196 ()
4197 ()
4198 ())
4199 #(ribcage
4200 #(e
4201 r
4202 w
4203 s
4204 rib
4205 mod
4206 for-car?)
4207 #((top)
4208 (top)
4209 (top)
4210 (top)
4211 (top)
4212 (top)
4213 (top))
4214 #("i12110"
4215 "i12111"
4216 "i12112"
4217 "i12113"
4218 "i12114"
4219 "i12115"
4220 "i12116"))
4221 #(ribcage
4222 (lambda-var-list
4223 gen-var
4224 strip
4225 chi-lambda-case
4226 lambda*-formals
4227 chi-simple-lambda
4228 lambda-formals
4229 ellipsis?
4230 chi-void
4231 eval-local-transformer
4232 chi-local-syntax
4233 chi-body
4234 chi-macro
4235 chi-application
4236 chi-expr
4237 chi
4238 chi-top
4239 syntax-type
4240 chi-when-list
4241 chi-install-global
4242 chi-top-sequence
4243 chi-sequence
4244 source-wrap
4245 wrap
4246 bound-id-member?
4247 distinct-bound-ids?
4248 valid-bound-ids?
4249 bound-id=?
4250 free-id=?
4251 id-var-name
4252 same-marks?
4253 join-marks
4254 join-wraps
4255 smart-append
4256 make-binding-wrap
4257 extend-ribcage!
4258 make-empty-ribcage
4259 new-mark
4260 anti-mark
4261 the-anti-mark
4262 top-marked?
4263 top-wrap
4264 empty-wrap
4265 set-ribcage-labels!
4266 set-ribcage-marks!
4267 set-ribcage-symnames!
4268 ribcage-labels
4269 ribcage-marks
4270 ribcage-symnames
4271 ribcage?
4272 make-ribcage
4273 gen-labels
4274 gen-label
4275 make-rename
4276 rename-marks
4277 rename-new
4278 rename-old
4279 subst-rename?
4280 wrap-subst
4281 wrap-marks
4282 make-wrap
4283 id-sym-name&marks
4284 id-sym-name
4285 id?
4286 nonsymbol-id?
4287 global-extend
4288 lookup
4289 macros-only-env
4290 extend-var-env
4291 extend-env
4292 null-env
4293 binding-value
4294 binding-type
4295 make-binding
4296 arg-check
4297 source-annotation
4298 no-source
4299 set-syntax-object-module!
4300 set-syntax-object-wrap!
4301 set-syntax-object-expression!
4302 syntax-object-module
4303 syntax-object-wrap
4304 syntax-object-expression
4305 syntax-object?
4306 make-syntax-object
4307 build-lexical-var
4308 build-letrec
4309 build-named-let
4310 build-let
4311 build-sequence
4312 build-data
4313 build-primref
4314 build-lambda-case
4315 build-case-lambda
4316 build-simple-lambda
4317 build-global-definition
4318 maybe-name-value!
4319 build-global-assignment
4320 build-global-reference
4321 analyze-variable
4322 build-lexical-assignment
4323 build-lexical-reference
4324 build-dynlet
4325 build-conditional
4326 build-application
4327 build-void
4328 decorate-source
4329 get-global-definition-hook
4330 put-global-definition-hook
4331 gensym-hook
4332 local-eval-hook
4333 top-level-eval-hook
4334 fx<
4335 fx=
4336 fx-
4337 fx+
4338 *mode*
4339 noexpand)
4340 ((top)
4341 (top)
4342 (top)
4343 (top)
4344 (top)
4345 (top)
4346 (top)
4347 (top)
4348 (top)
4349 (top)
4350 (top)
4351 (top)
4352 (top)
4353 (top)
4354 (top)
4355 (top)
4356 (top)
4357 (top)
4358 (top)
4359 (top)
4360 (top)
4361 (top)
4362 (top)
4363 (top)
4364 (top)
4365 (top)
4366 (top)
4367 (top)
4368 (top)
4369 (top)
4370 (top)
4371 (top)
4372 (top)
4373 (top)
4374 (top)
4375 (top)
4376 (top)
4377 (top)
4378 (top)
4379 (top)
4380 (top)
4381 (top)
4382 (top)
4383 (top)
4384 (top)
4385 (top)
4386 (top)
4387 (top)
4388 (top)
4389 (top)
4390 (top)
4391 (top)
4392 (top)
4393 (top)
4394 (top)
4395 (top)
4396 (top)
4397 (top)
4398 (top)
4399 (top)
4400 (top)
4401 (top)
4402 (top)
4403 (top)
4404 (top)
4405 (top)
4406 (top)
4407 (top)
4408 (top)
4409 (top)
4410 (top)
4411 (top)
4412 (top)
4413 (top)
4414 (top)
4415 (top)
4416 (top)
4417 (top)
4418 (top)
4419 (top)
4420 (top)
4421 (top)
4422 (top)
4423 (top)
4424 (top)
4425 (top)
4426 (top)
4427 (top)
4428 (top)
4429 (top)
4430 (top)
4431 (top)
4432 (top)
4433 (top)
4434 (top)
4435 (top)
4436 (top)
4437 (top)
4438 (top)
4439 (top)
4440 (top)
4441 (top)
4442 (top)
4443 (top)
4444 (top)
4445 (top)
4446 (top)
4447 (top)
4448 (top)
4449 (top)
4450 (top)
4451 (top)
4452 (top)
4453 (top)
4454 (top)
4455 (top)
4456 (top)
4457 (top))
4458 ("i10820"
4459 "i10818"
4460 "i10816"
4461 "i10814"
4462 "i10812"
4463 "i10810"
4464 "i10808"
4465 "i10806"
4466 "i10804"
4467 "i10802"
4468 "i10800"
4469 "i10798"
4470 "i10796"
4471 "i10794"
4472 "i10792"
4473 "i10790"
4474 "i10788"
4475 "i10786"
4476 "i10784"
4477 "i10782"
4478 "i10780"
4479 "i10778"
4480 "i10776"
4481 "i10774"
4482 "i10772"
4483 "i10770"
4484 "i10768"
4485 "i10766"
4486 "i10764"
4487 "i10762"
4488 "i10760"
4489 "i10758"
4490 "i10756"
4491 "i10754"
4492 "i10752"
4493 "i10750"
4494 "i10749"
4495 "i10748"
4496 "i10746"
4497 "i10745"
4498 "i10744"
4499 "i10743"
4500 "i10742"
4501 "i10740"
4502 "i10738"
4503 "i10736"
4504 "i10734"
4505 "i10732"
4506 "i10730"
4507 "i10728"
4508 "i10726"
4509 "i10723"
4510 "i10721"
4511 "i10720"
4512 "i10719"
4513 "i10718"
4514 "i10717"
4515 "i10716"
4516 "i10714"
4517 "i10712"
4518 "i10710"
4519 "i10708"
4520 "i10707"
4521 "i10705"
4522 "i10703"
4523 "i10701"
4524 "i10699"
4525 "i10697"
4526 "i10695"
4527 "i10693"
4528 "i10692"
4529 "i10690"
4530 "i10688"
4531 "i10687"
4532 "i10686"
4533 "i10684"
4534 "i10683"
4535 "i10681"
4536 "i10679"
4537 "i10677"
4538 "i10675"
4539 "i10673"
4540 "i10671"
4541 "i10669"
4542 "i10667"
4543 "i10665"
4544 "i10663"
4545 "i10661"
4546 "i10659"
4547 "i10657"
4548 "i10655"
4549 "i10653"
4550 "i10651"
4551 "i10649"
4552 "i10647"
4553 "i10645"
4554 "i10643"
4555 "i10641"
4556 "i10639"
4557 "i10637"
4558 "i10635"
4559 "i10633"
4560 "i10631"
4561 "i10629"
4562 "i10627"
4563 "i10625"
4564 "i10623"
4565 "i10621"
4566 "i10619"
4567 "i10618"
4568 "i10616"
4569 "i10614"
4570 "i10612"
4571 "i10610"
4572 "i10608"
4573 "i10606"
4574 "i10604"
4575 "i10602"))
4576 #(ribcage
4577 (define-structure
4578 and-map*)
4579 ((top)
4580 (top))
4581 ("i10505"
4582 "i10503")))
4583 (hygiene
4584 guile))
4585 #(syntax-object
4586 #f
4587 ((top)
4588 #(ribcage
4589 #(_
4590 name)
4591 #((top)
4592 (top))
4593 #("i12211"
4594 "i12212"))
4595 #(ribcage
4596 ()
4597 ()
4598 ())
4599 #(ribcage
4600 ()
4601 ()
4602 ())
4603 #(ribcage
4604 #(ftype
4605 fval
4606 fe
4607 fw
4608 fs
4609 fmod)
4610 #((top)
4611 (top)
4612 (top)
4613 (top)
4614 (top)
4615 (top))
4616 #("i12141"
4617 "i12142"
4618 "i12143"
4619 "i12144"
4620 "i12145"
4621 "i12146"))
4622 #(ribcage
4623 ()
4624 ()
4625 ())
4626 #(ribcage
4627 #(first)
4628 #((top))
4629 #("i12133"))
4630 #(ribcage
4631 ()
4632 ()
4633 ())
4634 #(ribcage
4635 ()
4636 ()
4637 ())
4638 #(ribcage
4639 ()
4640 ()
4641 ())
4642 #(ribcage
4643 #(e
4644 r
4645 w
4646 s
4647 rib
4648 mod
4649 for-car?)
4650 #((top)
4651 (top)
4652 (top)
4653 (top)
4654 (top)
4655 (top)
4656 (top))
4657 #("i12110"
4658 "i12111"
4659 "i12112"
4660 "i12113"
4661 "i12114"
4662 "i12115"
4663 "i12116"))
4664 #(ribcage
4665 (lambda-var-list
4666 gen-var
4667 strip
4668 chi-lambda-case
4669 lambda*-formals
4670 chi-simple-lambda
4671 lambda-formals
4672 ellipsis?
4673 chi-void
4674 eval-local-transformer
4675 chi-local-syntax
4676 chi-body
4677 chi-macro
4678 chi-application
4679 chi-expr
4680 chi
4681 chi-top
4682 syntax-type
4683 chi-when-list
4684 chi-install-global
4685 chi-top-sequence
4686 chi-sequence
4687 source-wrap
4688 wrap
4689 bound-id-member?
4690 distinct-bound-ids?
4691 valid-bound-ids?
4692 bound-id=?
4693 free-id=?
4694 id-var-name
4695 same-marks?
4696 join-marks
4697 join-wraps
4698 smart-append
4699 make-binding-wrap
4700 extend-ribcage!
4701 make-empty-ribcage
4702 new-mark
4703 anti-mark
4704 the-anti-mark
4705 top-marked?
4706 top-wrap
4707 empty-wrap
4708 set-ribcage-labels!
4709 set-ribcage-marks!
4710 set-ribcage-symnames!
4711 ribcage-labels
4712 ribcage-marks
4713 ribcage-symnames
4714 ribcage?
4715 make-ribcage
4716 gen-labels
4717 gen-label
4718 make-rename
4719 rename-marks
4720 rename-new
4721 rename-old
4722 subst-rename?
4723 wrap-subst
4724 wrap-marks
4725 make-wrap
4726 id-sym-name&marks
4727 id-sym-name
4728 id?
4729 nonsymbol-id?
4730 global-extend
4731 lookup
4732 macros-only-env
4733 extend-var-env
4734 extend-env
4735 null-env
4736 binding-value
4737 binding-type
4738 make-binding
4739 arg-check
4740 source-annotation
4741 no-source
4742 set-syntax-object-module!
4743 set-syntax-object-wrap!
4744 set-syntax-object-expression!
4745 syntax-object-module
4746 syntax-object-wrap
4747 syntax-object-expression
4748 syntax-object?
4749 make-syntax-object
4750 build-lexical-var
4751 build-letrec
4752 build-named-let
4753 build-let
4754 build-sequence
4755 build-data
4756 build-primref
4757 build-lambda-case
4758 build-case-lambda
4759 build-simple-lambda
4760 build-global-definition
4761 maybe-name-value!
4762 build-global-assignment
4763 build-global-reference
4764 analyze-variable
4765 build-lexical-assignment
4766 build-lexical-reference
4767 build-dynlet
4768 build-conditional
4769 build-application
4770 build-void
4771 decorate-source
4772 get-global-definition-hook
4773 put-global-definition-hook
4774 gensym-hook
4775 local-eval-hook
4776 top-level-eval-hook
4777 fx<
4778 fx=
4779 fx-
4780 fx+
4781 *mode*
4782 noexpand)
4783 ((top)
4784 (top)
4785 (top)
4786 (top)
4787 (top)
4788 (top)
4789 (top)
4790 (top)
4791 (top)
4792 (top)
4793 (top)
4794 (top)
4795 (top)
4796 (top)
4797 (top)
4798 (top)
4799 (top)
4800 (top)
4801 (top)
4802 (top)
4803 (top)
4804 (top)
4805 (top)
4806 (top)
4807 (top)
4808 (top)
4809 (top)
4810 (top)
4811 (top)
4812 (top)
4813 (top)
4814 (top)
4815 (top)
4816 (top)
4817 (top)
4818 (top)
4819 (top)
4820 (top)
4821 (top)
4822 (top)
4823 (top)
4824 (top)
4825 (top)
4826 (top)
4827 (top)
4828 (top)
4829 (top)
4830 (top)
4831 (top)
4832 (top)
4833 (top)
4834 (top)
4835 (top)
4836 (top)
4837 (top)
4838 (top)
4839 (top)
4840 (top)
4841 (top)
4842 (top)
4843 (top)
4844 (top)
4845 (top)
4846 (top)
4847 (top)
4848 (top)
4849 (top)
4850 (top)
4851 (top)
4852 (top)
4853 (top)
4854 (top)
4855 (top)
4856 (top)
4857 (top)
4858 (top)
4859 (top)
4860 (top)
4861 (top)
4862 (top)
4863 (top)
4864 (top)
4865 (top)
4866 (top)
4867 (top)
4868 (top)
4869 (top)
4870 (top)
4871 (top)
4872 (top)
4873 (top)
4874 (top)
4875 (top)
4876 (top)
4877 (top)
4878 (top)
4879 (top)
4880 (top)
4881 (top)
4882 (top)
4883 (top)
4884 (top)
4885 (top)
4886 (top)
4887 (top)
4888 (top)
4889 (top)
4890 (top)
4891 (top)
4892 (top)
4893 (top)
4894 (top)
4895 (top)
4896 (top)
4897 (top)
4898 (top)
4899 (top)
4900 (top))
4901 ("i10820"
4902 "i10818"
4903 "i10816"
4904 "i10814"
4905 "i10812"
4906 "i10810"
4907 "i10808"
4908 "i10806"
4909 "i10804"
4910 "i10802"
4911 "i10800"
4912 "i10798"
4913 "i10796"
4914 "i10794"
4915 "i10792"
4916 "i10790"
4917 "i10788"
4918 "i10786"
4919 "i10784"
4920 "i10782"
4921 "i10780"
4922 "i10778"
4923 "i10776"
4924 "i10774"
4925 "i10772"
4926 "i10770"
4927 "i10768"
4928 "i10766"
4929 "i10764"
4930 "i10762"
4931 "i10760"
4932 "i10758"
4933 "i10756"
4934 "i10754"
4935 "i10752"
4936 "i10750"
4937 "i10749"
4938 "i10748"
4939 "i10746"
4940 "i10745"
4941 "i10744"
4942 "i10743"
4943 "i10742"
4944 "i10740"
4945 "i10738"
4946 "i10736"
4947 "i10734"
4948 "i10732"
4949 "i10730"
4950 "i10728"
4951 "i10726"
4952 "i10723"
4953 "i10721"
4954 "i10720"
4955 "i10719"
4956 "i10718"
4957 "i10717"
4958 "i10716"
4959 "i10714"
4960 "i10712"
4961 "i10710"
4962 "i10708"
4963 "i10707"
4964 "i10705"
4965 "i10703"
4966 "i10701"
4967 "i10699"
4968 "i10697"
4969 "i10695"
4970 "i10693"
4971 "i10692"
4972 "i10690"
4973 "i10688"
4974 "i10687"
4975 "i10686"
4976 "i10684"
4977 "i10683"
4978 "i10681"
4979 "i10679"
4980 "i10677"
4981 "i10675"
4982 "i10673"
4983 "i10671"
4984 "i10669"
4985 "i10667"
4986 "i10665"
4987 "i10663"
4988 "i10661"
4989 "i10659"
4990 "i10657"
4991 "i10655"
4992 "i10653"
4993 "i10651"
4994 "i10649"
4995 "i10647"
4996 "i10645"
4997 "i10643"
4998 "i10641"
4999 "i10639"
5000 "i10637"
5001 "i10635"
5002 "i10633"
5003 "i10631"
5004 "i10629"
5005 "i10627"
5006 "i10625"
5007 "i10623"
5008 "i10621"
5009 "i10619"
5010 "i10618"
5011 "i10616"
5012 "i10614"
5013 "i10612"
5014 "i10610"
5015 "i10608"
5016 "i10606"
5017 "i10604"
5018 "i10602"))
5019 #(ribcage
5020 (define-structure
5021 and-map*)
5022 ((top)
5023 (top))
5024 ("i10505"
5025 "i10503")))
5026 (hygiene
5027 guile))
5028 #(syntax-object
5029 #f
5030 ((top)
5031 #(ribcage
5032 #(_
5033 name)
5034 #((top)
5035 (top))
5036 #("i12211"
5037 "i12212"))
5038 #(ribcage
5039 ()
5040 ()
5041 ())
5042 #(ribcage
5043 ()
5044 ()
5045 ())
5046 #(ribcage
5047 #(ftype
5048 fval
5049 fe
5050 fw
5051 fs
5052 fmod)
5053 #((top)
5054 (top)
5055 (top)
5056 (top)
5057 (top)
5058 (top))
5059 #("i12141"
5060 "i12142"
5061 "i12143"
5062 "i12144"
5063 "i12145"
5064 "i12146"))
5065 #(ribcage
5066 ()
5067 ()
5068 ())
5069 #(ribcage
5070 #(first)
5071 #((top))
5072 #("i12133"))
5073 #(ribcage
5074 ()
5075 ()
5076 ())
5077 #(ribcage
5078 ()
5079 ()
5080 ())
5081 #(ribcage
5082 ()
5083 ()
5084 ())
5085 #(ribcage
5086 #(e
5087 r
5088 w
5089 s
5090 rib
5091 mod
5092 for-car?)
5093 #((top)
5094 (top)
5095 (top)
5096 (top)
5097 (top)
5098 (top)
5099 (top))
5100 #("i12110"
5101 "i12111"
5102 "i12112"
5103 "i12113"
5104 "i12114"
5105 "i12115"
5106 "i12116"))
5107 #(ribcage
5108 (lambda-var-list
5109 gen-var
5110 strip
5111 chi-lambda-case
5112 lambda*-formals
5113 chi-simple-lambda
5114 lambda-formals
5115 ellipsis?
5116 chi-void
5117 eval-local-transformer
5118 chi-local-syntax
5119 chi-body
5120 chi-macro
5121 chi-application
5122 chi-expr
5123 chi
5124 chi-top
5125 syntax-type
5126 chi-when-list
5127 chi-install-global
5128 chi-top-sequence
5129 chi-sequence
5130 source-wrap
5131 wrap
5132 bound-id-member?
5133 distinct-bound-ids?
5134 valid-bound-ids?
5135 bound-id=?
5136 free-id=?
5137 id-var-name
5138 same-marks?
5139 join-marks
5140 join-wraps
5141 smart-append
5142 make-binding-wrap
5143 extend-ribcage!
5144 make-empty-ribcage
5145 new-mark
5146 anti-mark
5147 the-anti-mark
5148 top-marked?
5149 top-wrap
5150 empty-wrap
5151 set-ribcage-labels!
5152 set-ribcage-marks!
5153 set-ribcage-symnames!
5154 ribcage-labels
5155 ribcage-marks
5156 ribcage-symnames
5157 ribcage?
5158 make-ribcage
5159 gen-labels
5160 gen-label
5161 make-rename
5162 rename-marks
5163 rename-new
5164 rename-old
5165 subst-rename?
5166 wrap-subst
5167 wrap-marks
5168 make-wrap
5169 id-sym-name&marks
5170 id-sym-name
5171 id?
5172 nonsymbol-id?
5173 global-extend
5174 lookup
5175 macros-only-env
5176 extend-var-env
5177 extend-env
5178 null-env
5179 binding-value
5180 binding-type
5181 make-binding
5182 arg-check
5183 source-annotation
5184 no-source
5185 set-syntax-object-module!
5186 set-syntax-object-wrap!
5187 set-syntax-object-expression!
5188 syntax-object-module
5189 syntax-object-wrap
5190 syntax-object-expression
5191 syntax-object?
5192 make-syntax-object
5193 build-lexical-var
5194 build-letrec
5195 build-named-let
5196 build-let
5197 build-sequence
5198 build-data
5199 build-primref
5200 build-lambda-case
5201 build-case-lambda
5202 build-simple-lambda
5203 build-global-definition
5204 maybe-name-value!
5205 build-global-assignment
5206 build-global-reference
5207 analyze-variable
5208 build-lexical-assignment
5209 build-lexical-reference
5210 build-dynlet
5211 build-conditional
5212 build-application
5213 build-void
5214 decorate-source
5215 get-global-definition-hook
5216 put-global-definition-hook
5217 gensym-hook
5218 local-eval-hook
5219 top-level-eval-hook
5220 fx<
5221 fx=
5222 fx-
5223 fx+
5224 *mode*
5225 noexpand)
5226 ((top)
5227 (top)
5228 (top)
5229 (top)
5230 (top)
5231 (top)
5232 (top)
5233 (top)
5234 (top)
5235 (top)
5236 (top)
5237 (top)
5238 (top)
5239 (top)
5240 (top)
5241 (top)
5242 (top)
5243 (top)
5244 (top)
5245 (top)
5246 (top)
5247 (top)
5248 (top)
5249 (top)
5250 (top)
5251 (top)
5252 (top)
5253 (top)
5254 (top)
5255 (top)
5256 (top)
5257 (top)
5258 (top)
5259 (top)
5260 (top)
5261 (top)
5262 (top)
5263 (top)
5264 (top)
5265 (top)
5266 (top)
5267 (top)
5268 (top)
5269 (top)
5270 (top)
5271 (top)
5272 (top)
5273 (top)
5274 (top)
5275 (top)
5276 (top)
5277 (top)
5278 (top)
5279 (top)
5280 (top)
5281 (top)
5282 (top)
5283 (top)
5284 (top)
5285 (top)
5286 (top)
5287 (top)
5288 (top)
5289 (top)
5290 (top)
5291 (top)
5292 (top)
5293 (top)
5294 (top)
5295 (top)
5296 (top)
5297 (top)
5298 (top)
5299 (top)
5300 (top)
5301 (top)
5302 (top)
5303 (top)
5304 (top)
5305 (top)
5306 (top)
5307 (top)
5308 (top)
5309 (top)
5310 (top)
5311 (top)
5312 (top)
5313 (top)
5314 (top)
5315 (top)
5316 (top)
5317 (top)
5318 (top)
5319 (top)
5320 (top)
5321 (top)
5322 (top)
5323 (top)
5324 (top)
5325 (top)
5326 (top)
5327 (top)
5328 (top)
5329 (top)
5330 (top)
5331 (top)
5332 (top)
5333 (top)
5334 (top)
5335 (top)
5336 (top)
5337 (top)
5338 (top)
5339 (top)
5340 (top)
5341 (top)
5342 (top)
5343 (top))
5344 ("i10820"
5345 "i10818"
5346 "i10816"
5347 "i10814"
5348 "i10812"
5349 "i10810"
5350 "i10808"
5351 "i10806"
5352 "i10804"
5353 "i10802"
5354 "i10800"
5355 "i10798"
5356 "i10796"
5357 "i10794"
5358 "i10792"
5359 "i10790"
5360 "i10788"
5361 "i10786"
5362 "i10784"
5363 "i10782"
5364 "i10780"
5365 "i10778"
5366 "i10776"
5367 "i10774"
5368 "i10772"
5369 "i10770"
5370 "i10768"
5371 "i10766"
5372 "i10764"
5373 "i10762"
5374 "i10760"
5375 "i10758"
5376 "i10756"
5377 "i10754"
5378 "i10752"
5379 "i10750"
5380 "i10749"
5381 "i10748"
5382 "i10746"
5383 "i10745"
5384 "i10744"
5385 "i10743"
5386 "i10742"
5387 "i10740"
5388 "i10738"
5389 "i10736"
5390 "i10734"
5391 "i10732"
5392 "i10730"
5393 "i10728"
5394 "i10726"
5395 "i10723"
5396 "i10721"
5397 "i10720"
5398 "i10719"
5399 "i10718"
5400 "i10717"
5401 "i10716"
5402 "i10714"
5403 "i10712"
5404 "i10710"
5405 "i10708"
5406 "i10707"
5407 "i10705"
5408 "i10703"
5409 "i10701"
5410 "i10699"
5411 "i10697"
5412 "i10695"
5413 "i10693"
5414 "i10692"
5415 "i10690"
5416 "i10688"
5417 "i10687"
5418 "i10686"
5419 "i10684"
5420 "i10683"
5421 "i10681"
5422 "i10679"
5423 "i10677"
5424 "i10675"
5425 "i10673"
5426 "i10671"
5427 "i10669"
5428 "i10667"
5429 "i10665"
5430 "i10663"
5431 "i10661"
5432 "i10659"
5433 "i10657"
5434 "i10655"
5435 "i10653"
5436 "i10651"
5437 "i10649"
5438 "i10647"
5439 "i10645"
5440 "i10643"
5441 "i10641"
5442 "i10639"
5443 "i10637"
5444 "i10635"
5445 "i10633"
5446 "i10631"
5447 "i10629"
5448 "i10627"
5449 "i10625"
5450 "i10623"
5451 "i10621"
5452 "i10619"
5453 "i10618"
5454 "i10616"
5455 "i10614"
5456 "i10612"
5457 "i10610"
5458 "i10608"
5459 "i10606"
5460 "i10604"
5461 "i10602"))
5462 #(ribcage
5463 (define-structure
5464 and-map*)
5465 ((top)
5466 (top))
5467 ("i10505"
5468 "i10503")))
5469 (hygiene
5470 guile)))
5471 '(())
5472 #{s\ 12106}#
5473 #{mod\ 12108}#))
5474 #{tmp\ 12206}#)
5475 (syntax-violation
5476 #f
5477 "source expression failed to match any pattern"
5478 #{tmp\ 12167}#)))
5479 ($sc-dispatch
5480 #{tmp\ 12167}#
5481 '(any any)))))
5482 ($sc-dispatch
5483 #{tmp\ 12167}#
5484 '(any (any . any)
5485 any
5486 .
5487 each-any)))))
5488 ($sc-dispatch
5489 #{tmp\ 12167}#
5490 '(any any any))))
5491 #{e\ 12103}#)
5492 (if (memv #{ftype\ 12135}#
5493 '(define-syntax))
5494 ((lambda (#{tmp\ 12217}#)
5495 ((lambda (#{tmp\ 12218}#)
5496 (if (if #{tmp\ 12218}#
5497 (apply (lambda (#{_\ 12222}#
5498 #{name\ 12223}#
5499 #{val\ 12224}#)
5500 (#{id?\ 10706}#
5501 #{name\ 12223}#))
5502 #{tmp\ 12218}#)
5503 #f)
5504 (apply (lambda (#{_\ 12228}#
5505 #{name\ 12229}#
5506 #{val\ 12230}#)
5507 (values
5508 'define-syntax-form
5509 #{name\ 12229}#
5510 #{val\ 12230}#
5511 #{w\ 12105}#
5512 #{s\ 12106}#
5513 #{mod\ 12108}#))
5514 #{tmp\ 12218}#)
5515 (syntax-violation
5516 #f
5517 "source expression failed to match any pattern"
5518 #{tmp\ 12217}#)))
5519 ($sc-dispatch
5520 #{tmp\ 12217}#
5521 '(any any any))))
5522 #{e\ 12103}#)
5523 (values
5524 'call
5525 #f
5526 #{e\ 12103}#
5527 #{w\ 12105}#
5528 #{s\ 12106}#
5529 #{mod\ 12108}#))))))))))))))
5530 (if (#{syntax-object?\ 10670}# #{e\ 12103}#)
5531 (#{syntax-type\ 10787}#
5532 (#{syntax-object-expression\ 10672}#
5533 #{e\ 12103}#)
5534 #{r\ 12104}#
5535 (#{join-wraps\ 10757}#
5536 #{w\ 12105}#
5537 (#{syntax-object-wrap\ 10674}# #{e\ 12103}#))
5538 #{s\ 12106}#
5539 #{rib\ 12107}#
5540 (let ((#{t\ 12236}#
5541 (#{syntax-object-module\ 10676}# #{e\ 12103}#)))
5542 (if #{t\ 12236}# #{t\ 12236}# #{mod\ 12108}#))
5543 #{for-car?\ 12109}#)
5544 (if (self-evaluating? #{e\ 12103}#)
5545 (values
5546 'constant
5547 #f
5548 #{e\ 12103}#
5549 #{w\ 12105}#
5550 #{s\ 12106}#
5551 #{mod\ 12108}#)
5552 (values
5553 'other
5554 #f
5555 #{e\ 12103}#
5556 #{w\ 12105}#
5557 #{s\ 12106}#
5558 #{mod\ 12108}#)))))))
5559 (#{chi-when-list\ 10785}#
5560 (lambda (#{e\ 12241}# #{when-list\ 12242}# #{w\ 12243}#)
5561 (letrec ((#{f\ 12250}#
5562 (lambda (#{when-list\ 12251}# #{situations\ 12252}#)
5563 (if (null? #{when-list\ 12251}#)
5564 #{situations\ 12252}#
5565 (#{f\ 12250}#
5566 (cdr #{when-list\ 12251}#)
5567 (cons (let ((#{x\ 12254}#
5568 (car #{when-list\ 12251}#)))
5569 (if (#{free-id=?\ 10765}#
5570 #{x\ 12254}#
5571 '#(syntax-object
5572 compile
5573 ((top)
5574 #(ribcage () () ())
5575 #(ribcage () () ())
5576 #(ribcage () () ())
5577 #(ribcage
5578 #(x)
5579 #((top))
5580 #("i12253"))
5581 #(ribcage () () ())
5582 #(ribcage
5583 #(f when-list situations)
5584 #((top) (top) (top))
5585 #("i12247"
5586 "i12248"
5587 "i12249"))
5588 #(ribcage () () ())
5589 #(ribcage
5590 #(e when-list w)
5591 #((top) (top) (top))
5592 #("i12244"
5593 "i12245"
5594 "i12246"))
5595 #(ribcage
5596 (lambda-var-list
5597 gen-var
5598 strip
5599 chi-lambda-case
5600 lambda*-formals
5601 chi-simple-lambda
5602 lambda-formals
5603 ellipsis?
5604 chi-void
5605 eval-local-transformer
5606 chi-local-syntax
5607 chi-body
5608 chi-macro
5609 chi-application
5610 chi-expr
5611 chi
5612 chi-top
5613 syntax-type
5614 chi-when-list
5615 chi-install-global
5616 chi-top-sequence
5617 chi-sequence
5618 source-wrap
5619 wrap
5620 bound-id-member?
5621 distinct-bound-ids?
5622 valid-bound-ids?
5623 bound-id=?
5624 free-id=?
5625 id-var-name
5626 same-marks?
5627 join-marks
5628 join-wraps
5629 smart-append
5630 make-binding-wrap
5631 extend-ribcage!
5632 make-empty-ribcage
5633 new-mark
5634 anti-mark
5635 the-anti-mark
5636 top-marked?
5637 top-wrap
5638 empty-wrap
5639 set-ribcage-labels!
5640 set-ribcage-marks!
5641 set-ribcage-symnames!
5642 ribcage-labels
5643 ribcage-marks
5644 ribcage-symnames
5645 ribcage?
5646 make-ribcage
5647 gen-labels
5648 gen-label
5649 make-rename
5650 rename-marks
5651 rename-new
5652 rename-old
5653 subst-rename?
5654 wrap-subst
5655 wrap-marks
5656 make-wrap
5657 id-sym-name&marks
5658 id-sym-name
5659 id?
5660 nonsymbol-id?
5661 global-extend
5662 lookup
5663 macros-only-env
5664 extend-var-env
5665 extend-env
5666 null-env
5667 binding-value
5668 binding-type
5669 make-binding
5670 arg-check
5671 source-annotation
5672 no-source
5673 set-syntax-object-module!
5674 set-syntax-object-wrap!
5675 set-syntax-object-expression!
5676 syntax-object-module
5677 syntax-object-wrap
5678 syntax-object-expression
5679 syntax-object?
5680 make-syntax-object
5681 build-lexical-var
5682 build-letrec
5683 build-named-let
5684 build-let
5685 build-sequence
5686 build-data
5687 build-primref
5688 build-lambda-case
5689 build-case-lambda
5690 build-simple-lambda
5691 build-global-definition
5692 maybe-name-value!
5693 build-global-assignment
5694 build-global-reference
5695 analyze-variable
5696 build-lexical-assignment
5697 build-lexical-reference
5698 build-dynlet
5699 build-conditional
5700 build-application
5701 build-void
5702 decorate-source
5703 get-global-definition-hook
5704 put-global-definition-hook
5705 gensym-hook
5706 local-eval-hook
5707 top-level-eval-hook
5708 fx<
5709 fx=
5710 fx-
5711 fx+
5712 *mode*
5713 noexpand)
5714 ((top)
5715 (top)
5716 (top)
5717 (top)
5718 (top)
5719 (top)
5720 (top)
5721 (top)
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)
5739 (top)
5740 (top)
5741 (top)
5742 (top)
5743 (top)
5744 (top)
5745 (top)
5746 (top)
5747 (top)
5748 (top)
5749 (top)
5750 (top)
5751 (top)
5752 (top)
5753 (top)
5754 (top)
5755 (top)
5756 (top)
5757 (top)
5758 (top)
5759 (top)
5760 (top)
5761 (top)
5762 (top)
5763 (top)
5764 (top)
5765 (top)
5766 (top)
5767 (top)
5768 (top)
5769 (top)
5770 (top)
5771 (top)
5772 (top)
5773 (top)
5774 (top)
5775 (top)
5776 (top)
5777 (top)
5778 (top)
5779 (top)
5780 (top)
5781 (top)
5782 (top)
5783 (top)
5784 (top)
5785 (top)
5786 (top)
5787 (top)
5788 (top)
5789 (top)
5790 (top)
5791 (top)
5792 (top)
5793 (top)
5794 (top)
5795 (top)
5796 (top)
5797 (top)
5798 (top)
5799 (top)
5800 (top)
5801 (top)
5802 (top)
5803 (top)
5804 (top)
5805 (top)
5806 (top)
5807 (top)
5808 (top)
5809 (top)
5810 (top)
5811 (top)
5812 (top)
5813 (top)
5814 (top)
5815 (top)
5816 (top)
5817 (top)
5818 (top)
5819 (top)
5820 (top)
5821 (top)
5822 (top)
5823 (top)
5824 (top)
5825 (top)
5826 (top)
5827 (top)
5828 (top)
5829 (top)
5830 (top)
5831 (top))
5832 ("i10820"
5833 "i10818"
5834 "i10816"
5835 "i10814"
5836 "i10812"
5837 "i10810"
5838 "i10808"
5839 "i10806"
5840 "i10804"
5841 "i10802"
5842 "i10800"
5843 "i10798"
5844 "i10796"
5845 "i10794"
5846 "i10792"
5847 "i10790"
5848 "i10788"
5849 "i10786"
5850 "i10784"
5851 "i10782"
5852 "i10780"
5853 "i10778"
5854 "i10776"
5855 "i10774"
5856 "i10772"
5857 "i10770"
5858 "i10768"
5859 "i10766"
5860 "i10764"
5861 "i10762"
5862 "i10760"
5863 "i10758"
5864 "i10756"
5865 "i10754"
5866 "i10752"
5867 "i10750"
5868 "i10749"
5869 "i10748"
5870 "i10746"
5871 "i10745"
5872 "i10744"
5873 "i10743"
5874 "i10742"
5875 "i10740"
5876 "i10738"
5877 "i10736"
5878 "i10734"
5879 "i10732"
5880 "i10730"
5881 "i10728"
5882 "i10726"
5883 "i10723"
5884 "i10721"
5885 "i10720"
5886 "i10719"
5887 "i10718"
5888 "i10717"
5889 "i10716"
5890 "i10714"
5891 "i10712"
5892 "i10710"
5893 "i10708"
5894 "i10707"
5895 "i10705"
5896 "i10703"
5897 "i10701"
5898 "i10699"
5899 "i10697"
5900 "i10695"
5901 "i10693"
5902 "i10692"
5903 "i10690"
5904 "i10688"
5905 "i10687"
5906 "i10686"
5907 "i10684"
5908 "i10683"
5909 "i10681"
5910 "i10679"
5911 "i10677"
5912 "i10675"
5913 "i10673"
5914 "i10671"
5915 "i10669"
5916 "i10667"
5917 "i10665"
5918 "i10663"
5919 "i10661"
5920 "i10659"
5921 "i10657"
5922 "i10655"
5923 "i10653"
5924 "i10651"
5925 "i10649"
5926 "i10647"
5927 "i10645"
5928 "i10643"
5929 "i10641"
5930 "i10639"
5931 "i10637"
5932 "i10635"
5933 "i10633"
5934 "i10631"
5935 "i10629"
5936 "i10627"
5937 "i10625"
5938 "i10623"
5939 "i10621"
5940 "i10619"
5941 "i10618"
5942 "i10616"
5943 "i10614"
5944 "i10612"
5945 "i10610"
5946 "i10608"
5947 "i10606"
5948 "i10604"
5949 "i10602"))
5950 #(ribcage
5951 (define-structure and-map*)
5952 ((top) (top))
5953 ("i10505" "i10503")))
5954 (hygiene guile)))
5955 'compile
5956 (if (#{free-id=?\ 10765}#
5957 #{x\ 12254}#
5958 '#(syntax-object
5959 load
5960 ((top)
5961 #(ribcage () () ())
5962 #(ribcage () () ())
5963 #(ribcage () () ())
5964 #(ribcage
5965 #(x)
5966 #((top))
5967 #("i12253"))
5968 #(ribcage () () ())
5969 #(ribcage
5970 #(f when-list situations)
5971 #((top) (top) (top))
5972 #("i12247"
5973 "i12248"
5974 "i12249"))
5975 #(ribcage () () ())
5976 #(ribcage
5977 #(e when-list w)
5978 #((top) (top) (top))
5979 #("i12244"
5980 "i12245"
5981 "i12246"))
5982 #(ribcage
5983 (lambda-var-list
5984 gen-var
5985 strip
5986 chi-lambda-case
5987 lambda*-formals
5988 chi-simple-lambda
5989 lambda-formals
5990 ellipsis?
5991 chi-void
5992 eval-local-transformer
5993 chi-local-syntax
5994 chi-body
5995 chi-macro
5996 chi-application
5997 chi-expr
5998 chi
5999 chi-top
6000 syntax-type
6001 chi-when-list
6002 chi-install-global
6003 chi-top-sequence
6004 chi-sequence
6005 source-wrap
6006 wrap
6007 bound-id-member?
6008 distinct-bound-ids?
6009 valid-bound-ids?
6010 bound-id=?
6011 free-id=?
6012 id-var-name
6013 same-marks?
6014 join-marks
6015 join-wraps
6016 smart-append
6017 make-binding-wrap
6018 extend-ribcage!
6019 make-empty-ribcage
6020 new-mark
6021 anti-mark
6022 the-anti-mark
6023 top-marked?
6024 top-wrap
6025 empty-wrap
6026 set-ribcage-labels!
6027 set-ribcage-marks!
6028 set-ribcage-symnames!
6029 ribcage-labels
6030 ribcage-marks
6031 ribcage-symnames
6032 ribcage?
6033 make-ribcage
6034 gen-labels
6035 gen-label
6036 make-rename
6037 rename-marks
6038 rename-new
6039 rename-old
6040 subst-rename?
6041 wrap-subst
6042 wrap-marks
6043 make-wrap
6044 id-sym-name&marks
6045 id-sym-name
6046 id?
6047 nonsymbol-id?
6048 global-extend
6049 lookup
6050 macros-only-env
6051 extend-var-env
6052 extend-env
6053 null-env
6054 binding-value
6055 binding-type
6056 make-binding
6057 arg-check
6058 source-annotation
6059 no-source
6060 set-syntax-object-module!
6061 set-syntax-object-wrap!
6062 set-syntax-object-expression!
6063 syntax-object-module
6064 syntax-object-wrap
6065 syntax-object-expression
6066 syntax-object?
6067 make-syntax-object
6068 build-lexical-var
6069 build-letrec
6070 build-named-let
6071 build-let
6072 build-sequence
6073 build-data
6074 build-primref
6075 build-lambda-case
6076 build-case-lambda
6077 build-simple-lambda
6078 build-global-definition
6079 maybe-name-value!
6080 build-global-assignment
6081 build-global-reference
6082 analyze-variable
6083 build-lexical-assignment
6084 build-lexical-reference
6085 build-dynlet
6086 build-conditional
6087 build-application
6088 build-void
6089 decorate-source
6090 get-global-definition-hook
6091 put-global-definition-hook
6092 gensym-hook
6093 local-eval-hook
6094 top-level-eval-hook
6095 fx<
6096 fx=
6097 fx-
6098 fx+
6099 *mode*
6100 noexpand)
6101 ((top)
6102 (top)
6103 (top)
6104 (top)
6105 (top)
6106 (top)
6107 (top)
6108 (top)
6109 (top)
6110 (top)
6111 (top)
6112 (top)
6113 (top)
6114 (top)
6115 (top)
6116 (top)
6117 (top)
6118 (top)
6119 (top)
6120 (top)
6121 (top)
6122 (top)
6123 (top)
6124 (top)
6125 (top)
6126 (top)
6127 (top)
6128 (top)
6129 (top)
6130 (top)
6131 (top)
6132 (top)
6133 (top)
6134 (top)
6135 (top)
6136 (top)
6137 (top)
6138 (top)
6139 (top)
6140 (top)
6141 (top)
6142 (top)
6143 (top)
6144 (top)
6145 (top)
6146 (top)
6147 (top)
6148 (top)
6149 (top)
6150 (top)
6151 (top)
6152 (top)
6153 (top)
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 ("i10820"
6220 "i10818"
6221 "i10816"
6222 "i10814"
6223 "i10812"
6224 "i10810"
6225 "i10808"
6226 "i10806"
6227 "i10804"
6228 "i10802"
6229 "i10800"
6230 "i10798"
6231 "i10796"
6232 "i10794"
6233 "i10792"
6234 "i10790"
6235 "i10788"
6236 "i10786"
6237 "i10784"
6238 "i10782"
6239 "i10780"
6240 "i10778"
6241 "i10776"
6242 "i10774"
6243 "i10772"
6244 "i10770"
6245 "i10768"
6246 "i10766"
6247 "i10764"
6248 "i10762"
6249 "i10760"
6250 "i10758"
6251 "i10756"
6252 "i10754"
6253 "i10752"
6254 "i10750"
6255 "i10749"
6256 "i10748"
6257 "i10746"
6258 "i10745"
6259 "i10744"
6260 "i10743"
6261 "i10742"
6262 "i10740"
6263 "i10738"
6264 "i10736"
6265 "i10734"
6266 "i10732"
6267 "i10730"
6268 "i10728"
6269 "i10726"
6270 "i10723"
6271 "i10721"
6272 "i10720"
6273 "i10719"
6274 "i10718"
6275 "i10717"
6276 "i10716"
6277 "i10714"
6278 "i10712"
6279 "i10710"
6280 "i10708"
6281 "i10707"
6282 "i10705"
6283 "i10703"
6284 "i10701"
6285 "i10699"
6286 "i10697"
6287 "i10695"
6288 "i10693"
6289 "i10692"
6290 "i10690"
6291 "i10688"
6292 "i10687"
6293 "i10686"
6294 "i10684"
6295 "i10683"
6296 "i10681"
6297 "i10679"
6298 "i10677"
6299 "i10675"
6300 "i10673"
6301 "i10671"
6302 "i10669"
6303 "i10667"
6304 "i10665"
6305 "i10663"
6306 "i10661"
6307 "i10659"
6308 "i10657"
6309 "i10655"
6310 "i10653"
6311 "i10651"
6312 "i10649"
6313 "i10647"
6314 "i10645"
6315 "i10643"
6316 "i10641"
6317 "i10639"
6318 "i10637"
6319 "i10635"
6320 "i10633"
6321 "i10631"
6322 "i10629"
6323 "i10627"
6324 "i10625"
6325 "i10623"
6326 "i10621"
6327 "i10619"
6328 "i10618"
6329 "i10616"
6330 "i10614"
6331 "i10612"
6332 "i10610"
6333 "i10608"
6334 "i10606"
6335 "i10604"
6336 "i10602"))
6337 #(ribcage
6338 (define-structure
6339 and-map*)
6340 ((top) (top))
6341 ("i10505" "i10503")))
6342 (hygiene guile)))
6343 'load
6344 (if (#{free-id=?\ 10765}#
6345 #{x\ 12254}#
6346 '#(syntax-object
6347 eval
6348 ((top)
6349 #(ribcage () () ())
6350 #(ribcage () () ())
6351 #(ribcage () () ())
6352 #(ribcage
6353 #(x)
6354 #((top))
6355 #("i12253"))
6356 #(ribcage () () ())
6357 #(ribcage
6358 #(f
6359 when-list
6360 situations)
6361 #((top) (top) (top))
6362 #("i12247"
6363 "i12248"
6364 "i12249"))
6365 #(ribcage () () ())
6366 #(ribcage
6367 #(e when-list w)
6368 #((top) (top) (top))
6369 #("i12244"
6370 "i12245"
6371 "i12246"))
6372 #(ribcage
6373 (lambda-var-list
6374 gen-var
6375 strip
6376 chi-lambda-case
6377 lambda*-formals
6378 chi-simple-lambda
6379 lambda-formals
6380 ellipsis?
6381 chi-void
6382 eval-local-transformer
6383 chi-local-syntax
6384 chi-body
6385 chi-macro
6386 chi-application
6387 chi-expr
6388 chi
6389 chi-top
6390 syntax-type
6391 chi-when-list
6392 chi-install-global
6393 chi-top-sequence
6394 chi-sequence
6395 source-wrap
6396 wrap
6397 bound-id-member?
6398 distinct-bound-ids?
6399 valid-bound-ids?
6400 bound-id=?
6401 free-id=?
6402 id-var-name
6403 same-marks?
6404 join-marks
6405 join-wraps
6406 smart-append
6407 make-binding-wrap
6408 extend-ribcage!
6409 make-empty-ribcage
6410 new-mark
6411 anti-mark
6412 the-anti-mark
6413 top-marked?
6414 top-wrap
6415 empty-wrap
6416 set-ribcage-labels!
6417 set-ribcage-marks!
6418 set-ribcage-symnames!
6419 ribcage-labels
6420 ribcage-marks
6421 ribcage-symnames
6422 ribcage?
6423 make-ribcage
6424 gen-labels
6425 gen-label
6426 make-rename
6427 rename-marks
6428 rename-new
6429 rename-old
6430 subst-rename?
6431 wrap-subst
6432 wrap-marks
6433 make-wrap
6434 id-sym-name&marks
6435 id-sym-name
6436 id?
6437 nonsymbol-id?
6438 global-extend
6439 lookup
6440 macros-only-env
6441 extend-var-env
6442 extend-env
6443 null-env
6444 binding-value
6445 binding-type
6446 make-binding
6447 arg-check
6448 source-annotation
6449 no-source
6450 set-syntax-object-module!
6451 set-syntax-object-wrap!
6452 set-syntax-object-expression!
6453 syntax-object-module
6454 syntax-object-wrap
6455 syntax-object-expression
6456 syntax-object?
6457 make-syntax-object
6458 build-lexical-var
6459 build-letrec
6460 build-named-let
6461 build-let
6462 build-sequence
6463 build-data
6464 build-primref
6465 build-lambda-case
6466 build-case-lambda
6467 build-simple-lambda
6468 build-global-definition
6469 maybe-name-value!
6470 build-global-assignment
6471 build-global-reference
6472 analyze-variable
6473 build-lexical-assignment
6474 build-lexical-reference
6475 build-dynlet
6476 build-conditional
6477 build-application
6478 build-void
6479 decorate-source
6480 get-global-definition-hook
6481 put-global-definition-hook
6482 gensym-hook
6483 local-eval-hook
6484 top-level-eval-hook
6485 fx<
6486 fx=
6487 fx-
6488 fx+
6489 *mode*
6490 noexpand)
6491 ((top)
6492 (top)
6493 (top)
6494 (top)
6495 (top)
6496 (top)
6497 (top)
6498 (top)
6499 (top)
6500 (top)
6501 (top)
6502 (top)
6503 (top)
6504 (top)
6505 (top)
6506 (top)
6507 (top)
6508 (top)
6509 (top)
6510 (top)
6511 (top)
6512 (top)
6513 (top)
6514 (top)
6515 (top)
6516 (top)
6517 (top)
6518 (top)
6519 (top)
6520 (top)
6521 (top)
6522 (top)
6523 (top)
6524 (top)
6525 (top)
6526 (top)
6527 (top)
6528 (top)
6529 (top)
6530 (top)
6531 (top)
6532 (top)
6533 (top)
6534 (top)
6535 (top)
6536 (top)
6537 (top)
6538 (top)
6539 (top)
6540 (top)
6541 (top)
6542 (top)
6543 (top)
6544 (top)
6545 (top)
6546 (top)
6547 (top)
6548 (top)
6549 (top)
6550 (top)
6551 (top)
6552 (top)
6553 (top)
6554 (top)
6555 (top)
6556 (top)
6557 (top)
6558 (top)
6559 (top)
6560 (top)
6561 (top)
6562 (top)
6563 (top)
6564 (top)
6565 (top)
6566 (top)
6567 (top)
6568 (top)
6569 (top)
6570 (top)
6571 (top)
6572 (top)
6573 (top)
6574 (top)
6575 (top)
6576 (top)
6577 (top)
6578 (top)
6579 (top)
6580 (top)
6581 (top)
6582 (top)
6583 (top)
6584 (top)
6585 (top)
6586 (top)
6587 (top)
6588 (top)
6589 (top)
6590 (top)
6591 (top)
6592 (top)
6593 (top)
6594 (top)
6595 (top)
6596 (top)
6597 (top)
6598 (top)
6599 (top)
6600 (top)
6601 (top)
6602 (top)
6603 (top)
6604 (top)
6605 (top)
6606 (top)
6607 (top)
6608 (top))
6609 ("i10820"
6610 "i10818"
6611 "i10816"
6612 "i10814"
6613 "i10812"
6614 "i10810"
6615 "i10808"
6616 "i10806"
6617 "i10804"
6618 "i10802"
6619 "i10800"
6620 "i10798"
6621 "i10796"
6622 "i10794"
6623 "i10792"
6624 "i10790"
6625 "i10788"
6626 "i10786"
6627 "i10784"
6628 "i10782"
6629 "i10780"
6630 "i10778"
6631 "i10776"
6632 "i10774"
6633 "i10772"
6634 "i10770"
6635 "i10768"
6636 "i10766"
6637 "i10764"
6638 "i10762"
6639 "i10760"
6640 "i10758"
6641 "i10756"
6642 "i10754"
6643 "i10752"
6644 "i10750"
6645 "i10749"
6646 "i10748"
6647 "i10746"
6648 "i10745"
6649 "i10744"
6650 "i10743"
6651 "i10742"
6652 "i10740"
6653 "i10738"
6654 "i10736"
6655 "i10734"
6656 "i10732"
6657 "i10730"
6658 "i10728"
6659 "i10726"
6660 "i10723"
6661 "i10721"
6662 "i10720"
6663 "i10719"
6664 "i10718"
6665 "i10717"
6666 "i10716"
6667 "i10714"
6668 "i10712"
6669 "i10710"
6670 "i10708"
6671 "i10707"
6672 "i10705"
6673 "i10703"
6674 "i10701"
6675 "i10699"
6676 "i10697"
6677 "i10695"
6678 "i10693"
6679 "i10692"
6680 "i10690"
6681 "i10688"
6682 "i10687"
6683 "i10686"
6684 "i10684"
6685 "i10683"
6686 "i10681"
6687 "i10679"
6688 "i10677"
6689 "i10675"
6690 "i10673"
6691 "i10671"
6692 "i10669"
6693 "i10667"
6694 "i10665"
6695 "i10663"
6696 "i10661"
6697 "i10659"
6698 "i10657"
6699 "i10655"
6700 "i10653"
6701 "i10651"
6702 "i10649"
6703 "i10647"
6704 "i10645"
6705 "i10643"
6706 "i10641"
6707 "i10639"
6708 "i10637"
6709 "i10635"
6710 "i10633"
6711 "i10631"
6712 "i10629"
6713 "i10627"
6714 "i10625"
6715 "i10623"
6716 "i10621"
6717 "i10619"
6718 "i10618"
6719 "i10616"
6720 "i10614"
6721 "i10612"
6722 "i10610"
6723 "i10608"
6724 "i10606"
6725 "i10604"
6726 "i10602"))
6727 #(ribcage
6728 (define-structure
6729 and-map*)
6730 ((top) (top))
6731 ("i10505" "i10503")))
6732 (hygiene guile)))
6733 'eval
6734 (if (#{free-id=?\ 10765}#
6735 #{x\ 12254}#
6736 '#(syntax-object
6737 expand
6738 ((top)
6739 #(ribcage () () ())
6740 #(ribcage () () ())
6741 #(ribcage () () ())
6742 #(ribcage
6743 #(x)
6744 #((top))
6745 #("i12253"))
6746 #(ribcage () () ())
6747 #(ribcage
6748 #(f
6749 when-list
6750 situations)
6751 #((top) (top) (top))
6752 #("i12247"
6753 "i12248"
6754 "i12249"))
6755 #(ribcage () () ())
6756 #(ribcage
6757 #(e when-list w)
6758 #((top) (top) (top))
6759 #("i12244"
6760 "i12245"
6761 "i12246"))
6762 #(ribcage
6763 (lambda-var-list
6764 gen-var
6765 strip
6766 chi-lambda-case
6767 lambda*-formals
6768 chi-simple-lambda
6769 lambda-formals
6770 ellipsis?
6771 chi-void
6772 eval-local-transformer
6773 chi-local-syntax
6774 chi-body
6775 chi-macro
6776 chi-application
6777 chi-expr
6778 chi
6779 chi-top
6780 syntax-type
6781 chi-when-list
6782 chi-install-global
6783 chi-top-sequence
6784 chi-sequence
6785 source-wrap
6786 wrap
6787 bound-id-member?
6788 distinct-bound-ids?
6789 valid-bound-ids?
6790 bound-id=?
6791 free-id=?
6792 id-var-name
6793 same-marks?
6794 join-marks
6795 join-wraps
6796 smart-append
6797 make-binding-wrap
6798 extend-ribcage!
6799 make-empty-ribcage
6800 new-mark
6801 anti-mark
6802 the-anti-mark
6803 top-marked?
6804 top-wrap
6805 empty-wrap
6806 set-ribcage-labels!
6807 set-ribcage-marks!
6808 set-ribcage-symnames!
6809 ribcage-labels
6810 ribcage-marks
6811 ribcage-symnames
6812 ribcage?
6813 make-ribcage
6814 gen-labels
6815 gen-label
6816 make-rename
6817 rename-marks
6818 rename-new
6819 rename-old
6820 subst-rename?
6821 wrap-subst
6822 wrap-marks
6823 make-wrap
6824 id-sym-name&marks
6825 id-sym-name
6826 id?
6827 nonsymbol-id?
6828 global-extend
6829 lookup
6830 macros-only-env
6831 extend-var-env
6832 extend-env
6833 null-env
6834 binding-value
6835 binding-type
6836 make-binding
6837 arg-check
6838 source-annotation
6839 no-source
6840 set-syntax-object-module!
6841 set-syntax-object-wrap!
6842 set-syntax-object-expression!
6843 syntax-object-module
6844 syntax-object-wrap
6845 syntax-object-expression
6846 syntax-object?
6847 make-syntax-object
6848 build-lexical-var
6849 build-letrec
6850 build-named-let
6851 build-let
6852 build-sequence
6853 build-data
6854 build-primref
6855 build-lambda-case
6856 build-case-lambda
6857 build-simple-lambda
6858 build-global-definition
6859 maybe-name-value!
6860 build-global-assignment
6861 build-global-reference
6862 analyze-variable
6863 build-lexical-assignment
6864 build-lexical-reference
6865 build-dynlet
6866 build-conditional
6867 build-application
6868 build-void
6869 decorate-source
6870 get-global-definition-hook
6871 put-global-definition-hook
6872 gensym-hook
6873 local-eval-hook
6874 top-level-eval-hook
6875 fx<
6876 fx=
6877 fx-
6878 fx+
6879 *mode*
6880 noexpand)
6881 ((top)
6882 (top)
6883 (top)
6884 (top)
6885 (top)
6886 (top)
6887 (top)
6888 (top)
6889 (top)
6890 (top)
6891 (top)
6892 (top)
6893 (top)
6894 (top)
6895 (top)
6896 (top)
6897 (top)
6898 (top)
6899 (top)
6900 (top)
6901 (top)
6902 (top)
6903 (top)
6904 (top)
6905 (top)
6906 (top)
6907 (top)
6908 (top)
6909 (top)
6910 (top)
6911 (top)
6912 (top)
6913 (top)
6914 (top)
6915 (top)
6916 (top)
6917 (top)
6918 (top)
6919 (top)
6920 (top)
6921 (top)
6922 (top)
6923 (top)
6924 (top)
6925 (top)
6926 (top)
6927 (top)
6928 (top)
6929 (top)
6930 (top)
6931 (top)
6932 (top)
6933 (top)
6934 (top)
6935 (top)
6936 (top)
6937 (top)
6938 (top)
6939 (top)
6940 (top)
6941 (top)
6942 (top)
6943 (top)
6944 (top)
6945 (top)
6946 (top)
6947 (top)
6948 (top)
6949 (top)
6950 (top)
6951 (top)
6952 (top)
6953 (top)
6954 (top)
6955 (top)
6956 (top)
6957 (top)
6958 (top)
6959 (top)
6960 (top)
6961 (top)
6962 (top)
6963 (top)
6964 (top)
6965 (top)
6966 (top)
6967 (top)
6968 (top)
6969 (top)
6970 (top)
6971 (top)
6972 (top)
6973 (top)
6974 (top)
6975 (top)
6976 (top)
6977 (top)
6978 (top)
6979 (top)
6980 (top)
6981 (top)
6982 (top)
6983 (top)
6984 (top)
6985 (top)
6986 (top)
6987 (top)
6988 (top)
6989 (top)
6990 (top)
6991 (top)
6992 (top)
6993 (top)
6994 (top)
6995 (top)
6996 (top)
6997 (top)
6998 (top))
6999 ("i10820"
7000 "i10818"
7001 "i10816"
7002 "i10814"
7003 "i10812"
7004 "i10810"
7005 "i10808"
7006 "i10806"
7007 "i10804"
7008 "i10802"
7009 "i10800"
7010 "i10798"
7011 "i10796"
7012 "i10794"
7013 "i10792"
7014 "i10790"
7015 "i10788"
7016 "i10786"
7017 "i10784"
7018 "i10782"
7019 "i10780"
7020 "i10778"
7021 "i10776"
7022 "i10774"
7023 "i10772"
7024 "i10770"
7025 "i10768"
7026 "i10766"
7027 "i10764"
7028 "i10762"
7029 "i10760"
7030 "i10758"
7031 "i10756"
7032 "i10754"
7033 "i10752"
7034 "i10750"
7035 "i10749"
7036 "i10748"
7037 "i10746"
7038 "i10745"
7039 "i10744"
7040 "i10743"
7041 "i10742"
7042 "i10740"
7043 "i10738"
7044 "i10736"
7045 "i10734"
7046 "i10732"
7047 "i10730"
7048 "i10728"
7049 "i10726"
7050 "i10723"
7051 "i10721"
7052 "i10720"
7053 "i10719"
7054 "i10718"
7055 "i10717"
7056 "i10716"
7057 "i10714"
7058 "i10712"
7059 "i10710"
7060 "i10708"
7061 "i10707"
7062 "i10705"
7063 "i10703"
7064 "i10701"
7065 "i10699"
7066 "i10697"
7067 "i10695"
7068 "i10693"
7069 "i10692"
7070 "i10690"
7071 "i10688"
7072 "i10687"
7073 "i10686"
7074 "i10684"
7075 "i10683"
7076 "i10681"
7077 "i10679"
7078 "i10677"
7079 "i10675"
7080 "i10673"
7081 "i10671"
7082 "i10669"
7083 "i10667"
7084 "i10665"
7085 "i10663"
7086 "i10661"
7087 "i10659"
7088 "i10657"
7089 "i10655"
7090 "i10653"
7091 "i10651"
7092 "i10649"
7093 "i10647"
7094 "i10645"
7095 "i10643"
7096 "i10641"
7097 "i10639"
7098 "i10637"
7099 "i10635"
7100 "i10633"
7101 "i10631"
7102 "i10629"
7103 "i10627"
7104 "i10625"
7105 "i10623"
7106 "i10621"
7107 "i10619"
7108 "i10618"
7109 "i10616"
7110 "i10614"
7111 "i10612"
7112 "i10610"
7113 "i10608"
7114 "i10606"
7115 "i10604"
7116 "i10602"))
7117 #(ribcage
7118 (define-structure
7119 and-map*)
7120 ((top) (top))
7121 ("i10505" "i10503")))
7122 (hygiene guile)))
7123 'expand
7124 (syntax-violation
7125 'eval-when
7126 "invalid situation"
7127 #{e\ 12241}#
7128 (#{wrap\ 10775}#
7129 #{x\ 12254}#
7130 #{w\ 12243}#
7131 #f)))))))
7132 #{situations\ 12252}#))))))
7133 (#{f\ 12250}# #{when-list\ 12242}# (quote ())))))
7134 (#{chi-install-global\ 10783}#
7135 (lambda (#{name\ 12264}# #{e\ 12265}#)
7136 (#{build-global-definition\ 10646}#
7137 #f
7138 #{name\ 12264}#
7139 (#{build-application\ 10628}#
7140 #f
7141 (#{build-primref\ 10654}#
7142 #f
7143 'make-syntax-transformer)
7144 (list (#{build-data\ 10656}# #f #{name\ 12264}#)
7145 (#{build-data\ 10656}# #f (quote macro))
7146 (#{build-application\ 10628}#
7147 #f
7148 (#{build-primref\ 10654}# #f (quote cons))
7149 (list #{e\ 12265}#
7150 (#{build-application\ 10628}#
7151 #f
7152 (#{build-primref\ 10654}#
7153 #f
7154 'module-name)
7155 (list (#{build-application\ 10628}#
7156 #f
7157 (#{build-primref\ 10654}#
7158 #f
7159 'current-module)
7160 '()))))))))))
7161 (#{chi-top-sequence\ 10781}#
7162 (lambda (#{body\ 12279}#
7163 #{r\ 12280}#
7164 #{w\ 12281}#
7165 #{s\ 12282}#
7166 #{m\ 12283}#
7167 #{esew\ 12284}#
7168 #{mod\ 12285}#)
7169 (#{build-sequence\ 10658}#
7170 #{s\ 12282}#
7171 (letrec ((#{dobody\ 12302}#
7172 (lambda (#{body\ 12303}#
7173 #{r\ 12304}#
7174 #{w\ 12305}#
7175 #{m\ 12306}#
7176 #{esew\ 12307}#
7177 #{mod\ 12308}#
7178 #{module\ 12309}#
7179 #{out\ 12310}#)
7180 (if (null? #{body\ 12303}#)
7181 (reverse #{out\ 12310}#)
7182 (let ((#{first\ 12313}#
7183 (#{chi-top\ 10789}#
7184 (car #{body\ 12303}#)
7185 #{r\ 12304}#
7186 #{w\ 12305}#
7187 #{m\ 12306}#
7188 #{esew\ 12307}#
7189 #{mod\ 12308}#)))
7190 (let ((#{new-module\ 12315}#
7191 (current-module)))
7192 (#{dobody\ 12302}#
7193 (cdr #{body\ 12303}#)
7194 #{r\ 12304}#
7195 #{w\ 12305}#
7196 #{m\ 12306}#
7197 #{esew\ 12307}#
7198 (if (eq? #{module\ 12309}#
7199 #{new-module\ 12315}#)
7200 #{mod\ 12308}#
7201 (cons 'hygiene
7202 (module-name
7203 #{new-module\ 12315}#)))
7204 #{new-module\ 12315}#
7205 (cons #{first\ 12313}#
7206 #{out\ 12310}#))))))))
7207 (#{dobody\ 12302}#
7208 #{body\ 12279}#
7209 #{r\ 12280}#
7210 #{w\ 12281}#
7211 #{m\ 12283}#
7212 #{esew\ 12284}#
7213 #{mod\ 12285}#
7214 (current-module)
7215 '())))))
7216 (#{chi-sequence\ 10779}#
7217 (lambda (#{body\ 12316}#
7218 #{r\ 12317}#
7219 #{w\ 12318}#
7220 #{s\ 12319}#
7221 #{mod\ 12320}#)
7222 (#{build-sequence\ 10658}#
7223 #{s\ 12319}#
7224 (letrec ((#{dobody\ 12331}#
7225 (lambda (#{body\ 12332}#
7226 #{r\ 12333}#
7227 #{w\ 12334}#
7228 #{mod\ 12335}#)
7229 (if (null? #{body\ 12332}#)
7230 '()
7231 (let ((#{first\ 12337}#
7232 (#{chi\ 10791}#
7233 (car #{body\ 12332}#)
7234 #{r\ 12333}#
7235 #{w\ 12334}#
7236 #{mod\ 12335}#)))
7237 (cons #{first\ 12337}#
7238 (#{dobody\ 12331}#
7239 (cdr #{body\ 12332}#)
7240 #{r\ 12333}#
7241 #{w\ 12334}#
7242 #{mod\ 12335}#)))))))
7243 (#{dobody\ 12331}#
7244 #{body\ 12316}#
7245 #{r\ 12317}#
7246 #{w\ 12318}#
7247 #{mod\ 12320}#)))))
7248 (#{source-wrap\ 10777}#
7249 (lambda (#{x\ 12338}#
7250 #{w\ 12339}#
7251 #{s\ 12340}#
7252 #{defmod\ 12341}#)
7253 (#{wrap\ 10775}#
7254 (#{decorate-source\ 10624}#
7255 #{x\ 12338}#
7256 #{s\ 12340}#)
7257 #{w\ 12339}#
7258 #{defmod\ 12341}#)))
7259 (#{wrap\ 10775}#
7260 (lambda (#{x\ 12346}# #{w\ 12347}# #{defmod\ 12348}#)
7261 (if (if (null? (#{wrap-marks\ 10713}# #{w\ 12347}#))
7262 (null? (#{wrap-subst\ 10715}# #{w\ 12347}#))
7263 #f)
7264 #{x\ 12346}#
7265 (if (#{syntax-object?\ 10670}# #{x\ 12346}#)
7266 (#{make-syntax-object\ 10668}#
7267 (#{syntax-object-expression\ 10672}#
7268 #{x\ 12346}#)
7269 (#{join-wraps\ 10757}#
7270 #{w\ 12347}#
7271 (#{syntax-object-wrap\ 10674}# #{x\ 12346}#))
7272 (#{syntax-object-module\ 10676}# #{x\ 12346}#))
7273 (if (null? #{x\ 12346}#)
7274 #{x\ 12346}#
7275 (#{make-syntax-object\ 10668}#
7276 #{x\ 12346}#
7277 #{w\ 12347}#
7278 #{defmod\ 12348}#))))))
7279 (#{bound-id-member?\ 10773}#
7280 (lambda (#{x\ 12361}# #{list\ 12362}#)
7281 (if (not (null? #{list\ 12362}#))
7282 (let ((#{t\ 12369}#
7283 (#{bound-id=?\ 10767}#
7284 #{x\ 12361}#
7285 (car #{list\ 12362}#))))
7286 (if #{t\ 12369}#
7287 #{t\ 12369}#
7288 (#{bound-id-member?\ 10773}#
7289 #{x\ 12361}#
7290 (cdr #{list\ 12362}#))))
7291 #f)))
7292 (#{distinct-bound-ids?\ 10771}#
7293 (lambda (#{ids\ 12371}#)
7294 (letrec ((#{distinct?\ 12375}#
7295 (lambda (#{ids\ 12376}#)
7296 (let ((#{t\ 12379}# (null? #{ids\ 12376}#)))
7297 (if #{t\ 12379}#
7298 #{t\ 12379}#
7299 (if (not (#{bound-id-member?\ 10773}#
7300 (car #{ids\ 12376}#)
7301 (cdr #{ids\ 12376}#)))
7302 (#{distinct?\ 12375}# (cdr #{ids\ 12376}#))
7303 #f))))))
7304 (#{distinct?\ 12375}# #{ids\ 12371}#))))
7305 (#{valid-bound-ids?\ 10769}#
7306 (lambda (#{ids\ 12383}#)
7307 (if (letrec ((#{all-ids?\ 12388}#
7308 (lambda (#{ids\ 12389}#)
7309 (let ((#{t\ 12392}# (null? #{ids\ 12389}#)))
7310 (if #{t\ 12392}#
7311 #{t\ 12392}#
7312 (if (#{id?\ 10706}# (car #{ids\ 12389}#))
7313 (#{all-ids?\ 12388}#
7314 (cdr #{ids\ 12389}#))
7315 #f))))))
7316 (#{all-ids?\ 12388}# #{ids\ 12383}#))
7317 (#{distinct-bound-ids?\ 10771}# #{ids\ 12383}#)
7318 #f)))
7319 (#{bound-id=?\ 10767}#
7320 (lambda (#{i\ 12397}# #{j\ 12398}#)
7321 (if (if (#{syntax-object?\ 10670}# #{i\ 12397}#)
7322 (#{syntax-object?\ 10670}# #{j\ 12398}#)
7323 #f)
7324 (if (eq? (#{syntax-object-expression\ 10672}#
7325 #{i\ 12397}#)
7326 (#{syntax-object-expression\ 10672}#
7327 #{j\ 12398}#))
7328 (#{same-marks?\ 10761}#
7329 (#{wrap-marks\ 10713}#
7330 (#{syntax-object-wrap\ 10674}# #{i\ 12397}#))
7331 (#{wrap-marks\ 10713}#
7332 (#{syntax-object-wrap\ 10674}# #{j\ 12398}#)))
7333 #f)
7334 (eq? #{i\ 12397}# #{j\ 12398}#))))
7335 (#{free-id=?\ 10765}#
7336 (lambda (#{i\ 12405}# #{j\ 12406}#)
7337 (if (eq? (let ((#{x\ 12412}# #{i\ 12405}#))
7338 (if (#{syntax-object?\ 10670}# #{x\ 12412}#)
7339 (#{syntax-object-expression\ 10672}#
7340 #{x\ 12412}#)
7341 #{x\ 12412}#))
7342 (let ((#{x\ 12415}# #{j\ 12406}#))
7343 (if (#{syntax-object?\ 10670}# #{x\ 12415}#)
7344 (#{syntax-object-expression\ 10672}#
7345 #{x\ 12415}#)
7346 #{x\ 12415}#)))
7347 (eq? (#{id-var-name\ 10763}#
7348 #{i\ 12405}#
7349 '(()))
7350 (#{id-var-name\ 10763}#
7351 #{j\ 12406}#
7352 '(())))
7353 #f)))
7354 (#{id-var-name\ 10763}#
7355 (lambda (#{id\ 12419}# #{w\ 12420}#)
7356 (letrec ((#{search-vector-rib\ 12429}#
7357 (lambda (#{sym\ 12441}#
7358 #{subst\ 12442}#
7359 #{marks\ 12443}#
7360 #{symnames\ 12444}#
7361 #{ribcage\ 12445}#)
7362 (let ((#{n\ 12452}#
7363 (vector-length #{symnames\ 12444}#)))
7364 (letrec ((#{f\ 12455}#
7365 (lambda (#{i\ 12456}#)
7366 (if (#{fx=\ 10611}#
7367 #{i\ 12456}#
7368 #{n\ 12452}#)
7369 (#{search\ 12425}#
7370 #{sym\ 12441}#
7371 (cdr #{subst\ 12442}#)
7372 #{marks\ 12443}#)
7373 (if (if (eq? (vector-ref
7374 #{symnames\ 12444}#
7375 #{i\ 12456}#)
7376 #{sym\ 12441}#)
7377 (#{same-marks?\ 10761}#
7378 #{marks\ 12443}#
7379 (vector-ref
7380 (#{ribcage-marks\ 10733}#
7381 #{ribcage\ 12445}#)
7382 #{i\ 12456}#))
7383 #f)
7384 (values
7385 (vector-ref
7386 (#{ribcage-labels\ 10735}#
7387 #{ribcage\ 12445}#)
7388 #{i\ 12456}#)
7389 #{marks\ 12443}#)
7390 (#{f\ 12455}#
7391 (#{fx+\ 10607}#
7392 #{i\ 12456}#
7393 1)))))))
7394 (#{f\ 12455}# 0)))))
7395 (#{search-list-rib\ 12427}#
7396 (lambda (#{sym\ 12464}#
7397 #{subst\ 12465}#
7398 #{marks\ 12466}#
7399 #{symnames\ 12467}#
7400 #{ribcage\ 12468}#)
7401 (letrec ((#{f\ 12477}#
7402 (lambda (#{symnames\ 12478}#
7403 #{i\ 12479}#)
7404 (if (null? #{symnames\ 12478}#)
7405 (#{search\ 12425}#
7406 #{sym\ 12464}#
7407 (cdr #{subst\ 12465}#)
7408 #{marks\ 12466}#)
7409 (if (if (eq? (car #{symnames\ 12478}#)
7410 #{sym\ 12464}#)
7411 (#{same-marks?\ 10761}#
7412 #{marks\ 12466}#
7413 (list-ref
7414 (#{ribcage-marks\ 10733}#
7415 #{ribcage\ 12468}#)
7416 #{i\ 12479}#))
7417 #f)
7418 (values
7419 (list-ref
7420 (#{ribcage-labels\ 10735}#
7421 #{ribcage\ 12468}#)
7422 #{i\ 12479}#)
7423 #{marks\ 12466}#)
7424 (#{f\ 12477}#
7425 (cdr #{symnames\ 12478}#)
7426 (#{fx+\ 10607}#
7427 #{i\ 12479}#
7428 1)))))))
7429 (#{f\ 12477}# #{symnames\ 12467}# 0))))
7430 (#{search\ 12425}#
7431 (lambda (#{sym\ 12487}#
7432 #{subst\ 12488}#
7433 #{marks\ 12489}#)
7434 (if (null? #{subst\ 12488}#)
7435 (values #f #{marks\ 12489}#)
7436 (let ((#{fst\ 12494}# (car #{subst\ 12488}#)))
7437 (if (eq? #{fst\ 12494}# (quote shift))
7438 (#{search\ 12425}#
7439 #{sym\ 12487}#
7440 (cdr #{subst\ 12488}#)
7441 (cdr #{marks\ 12489}#))
7442 (let ((#{symnames\ 12496}#
7443 (#{ribcage-symnames\ 10731}#
7444 #{fst\ 12494}#)))
7445 (if (vector? #{symnames\ 12496}#)
7446 (#{search-vector-rib\ 12429}#
7447 #{sym\ 12487}#
7448 #{subst\ 12488}#
7449 #{marks\ 12489}#
7450 #{symnames\ 12496}#
7451 #{fst\ 12494}#)
7452 (#{search-list-rib\ 12427}#
7453 #{sym\ 12487}#
7454 #{subst\ 12488}#
7455 #{marks\ 12489}#
7456 #{symnames\ 12496}#
7457 #{fst\ 12494}#)))))))))
7458 (if (symbol? #{id\ 12419}#)
7459 (let ((#{t\ 12499}#
7460 (call-with-values
7461 (lambda ()
7462 (#{search\ 12425}#
7463 #{id\ 12419}#
7464 (#{wrap-subst\ 10715}# #{w\ 12420}#)
7465 (#{wrap-marks\ 10713}# #{w\ 12420}#)))
7466 (lambda (#{x\ 12501}# . #{ignore\ 12502}#)
7467 #{x\ 12501}#))))
7468 (if #{t\ 12499}# #{t\ 12499}# #{id\ 12419}#))
7469 (if (#{syntax-object?\ 10670}# #{id\ 12419}#)
7470 (let ((#{id\ 12510}#
7471 (#{syntax-object-expression\ 10672}#
7472 #{id\ 12419}#))
7473 (#{w1\ 12511}#
7474 (#{syntax-object-wrap\ 10674}# #{id\ 12419}#)))
7475 (let ((#{marks\ 12513}#
7476 (#{join-marks\ 10759}#
7477 (#{wrap-marks\ 10713}# #{w\ 12420}#)
7478 (#{wrap-marks\ 10713}# #{w1\ 12511}#))))
7479 (call-with-values
7480 (lambda ()
7481 (#{search\ 12425}#
7482 #{id\ 12510}#
7483 (#{wrap-subst\ 10715}# #{w\ 12420}#)
7484 #{marks\ 12513}#))
7485 (lambda (#{new-id\ 12514}# #{marks\ 12515}#)
7486 (let ((#{t\ 12520}# #{new-id\ 12514}#))
7487 (if #{t\ 12520}#
7488 #{t\ 12520}#
7489 (let ((#{t\ 12523}#
7490 (call-with-values
7491 (lambda ()
7492 (#{search\ 12425}#
7493 #{id\ 12510}#
7494 (#{wrap-subst\ 10715}#
7495 #{w1\ 12511}#)
7496 #{marks\ 12515}#))
7497 (lambda (#{x\ 12525}#
7498 .
7499 #{ignore\ 12526}#)
7500 #{x\ 12525}#))))
7501 (if #{t\ 12523}#
7502 #{t\ 12523}#
7503 #{id\ 12510}#))))))))
7504 (syntax-violation
7505 'id-var-name
7506 "invalid id"
7507 #{id\ 12419}#))))))
7508 (#{same-marks?\ 10761}#
7509 (lambda (#{x\ 12531}# #{y\ 12532}#)
7510 (let ((#{t\ 12537}# (eq? #{x\ 12531}# #{y\ 12532}#)))
7511 (if #{t\ 12537}#
7512 #{t\ 12537}#
7513 (if (not (null? #{x\ 12531}#))
7514 (if (not (null? #{y\ 12532}#))
7515 (if (eq? (car #{x\ 12531}#) (car #{y\ 12532}#))
7516 (#{same-marks?\ 10761}#
7517 (cdr #{x\ 12531}#)
7518 (cdr #{y\ 12532}#))
7519 #f)
7520 #f)
7521 #f)))))
7522 (#{join-marks\ 10759}#
7523 (lambda (#{m1\ 12543}# #{m2\ 12544}#)
7524 (#{smart-append\ 10755}#
7525 #{m1\ 12543}#
7526 #{m2\ 12544}#)))
7527 (#{join-wraps\ 10757}#
7528 (lambda (#{w1\ 12547}# #{w2\ 12548}#)
7529 (let ((#{m1\ 12553}#
7530 (#{wrap-marks\ 10713}# #{w1\ 12547}#))
7531 (#{s1\ 12554}#
7532 (#{wrap-subst\ 10715}# #{w1\ 12547}#)))
7533 (if (null? #{m1\ 12553}#)
7534 (if (null? #{s1\ 12554}#)
7535 #{w2\ 12548}#
7536 (#{make-wrap\ 10711}#
7537 (#{wrap-marks\ 10713}# #{w2\ 12548}#)
7538 (#{smart-append\ 10755}#
7539 #{s1\ 12554}#
7540 (#{wrap-subst\ 10715}# #{w2\ 12548}#))))
7541 (#{make-wrap\ 10711}#
7542 (#{smart-append\ 10755}#
7543 #{m1\ 12553}#
7544 (#{wrap-marks\ 10713}# #{w2\ 12548}#))
7545 (#{smart-append\ 10755}#
7546 #{s1\ 12554}#
7547 (#{wrap-subst\ 10715}# #{w2\ 12548}#)))))))
7548 (#{smart-append\ 10755}#
7549 (lambda (#{m1\ 12555}# #{m2\ 12556}#)
7550 (if (null? #{m2\ 12556}#)
7551 #{m1\ 12555}#
7552 (append #{m1\ 12555}# #{m2\ 12556}#))))
7553 (#{make-binding-wrap\ 10753}#
7554 (lambda (#{ids\ 12559}# #{labels\ 12560}# #{w\ 12561}#)
7555 (if (null? #{ids\ 12559}#)
7556 #{w\ 12561}#
7557 (#{make-wrap\ 10711}#
7558 (#{wrap-marks\ 10713}# #{w\ 12561}#)
7559 (cons (let ((#{labelvec\ 12566}#
7560 (list->vector #{labels\ 12560}#)))
7561 (let ((#{n\ 12568}#
7562 (vector-length #{labelvec\ 12566}#)))
7563 (let ((#{symnamevec\ 12571}#
7564 (make-vector #{n\ 12568}#))
7565 (#{marksvec\ 12572}#
7566 (make-vector #{n\ 12568}#)))
7567 (begin
7568 (letrec ((#{f\ 12576}#
7569 (lambda (#{ids\ 12577}#
7570 #{i\ 12578}#)
7571 (if (not (null? #{ids\ 12577}#))
7572 (call-with-values
7573 (lambda ()
7574 (#{id-sym-name&marks\ 10709}#
7575 (car #{ids\ 12577}#)
7576 #{w\ 12561}#))
7577 (lambda (#{symname\ 12579}#
7578 #{marks\ 12580}#)
7579 (begin
7580 (vector-set!
7581 #{symnamevec\ 12571}#
7582 #{i\ 12578}#
7583 #{symname\ 12579}#)
7584 (vector-set!
7585 #{marksvec\ 12572}#
7586 #{i\ 12578}#
7587 #{marks\ 12580}#)
7588 (#{f\ 12576}#
7589 (cdr #{ids\ 12577}#)
7590 (#{fx+\ 10607}#
7591 #{i\ 12578}#
7592 1)))))))))
7593 (#{f\ 12576}# #{ids\ 12559}# 0))
7594 (#{make-ribcage\ 10727}#
7595 #{symnamevec\ 12571}#
7596 #{marksvec\ 12572}#
7597 #{labelvec\ 12566}#)))))
7598 (#{wrap-subst\ 10715}# #{w\ 12561}#))))))
7599 (#{extend-ribcage!\ 10751}#
7600 (lambda (#{ribcage\ 12583}#
7601 #{id\ 12584}#
7602 #{label\ 12585}#)
7603 (begin
7604 (#{set-ribcage-symnames!\ 10737}#
7605 #{ribcage\ 12583}#
7606 (cons (#{syntax-object-expression\ 10672}#
7607 #{id\ 12584}#)
7608 (#{ribcage-symnames\ 10731}# #{ribcage\ 12583}#)))
7609 (#{set-ribcage-marks!\ 10739}#
7610 #{ribcage\ 12583}#
7611 (cons (#{wrap-marks\ 10713}#
7612 (#{syntax-object-wrap\ 10674}# #{id\ 12584}#))
7613 (#{ribcage-marks\ 10733}# #{ribcage\ 12583}#)))
7614 (#{set-ribcage-labels!\ 10741}#
7615 #{ribcage\ 12583}#
7616 (cons #{label\ 12585}#
7617 (#{ribcage-labels\ 10735}# #{ribcage\ 12583}#))))))
7618 (#{anti-mark\ 10747}#
7619 (lambda (#{w\ 12589}#)
7620 (#{make-wrap\ 10711}#
7621 (cons #f (#{wrap-marks\ 10713}# #{w\ 12589}#))
7622 (cons 'shift
7623 (#{wrap-subst\ 10715}# #{w\ 12589}#)))))
7624 (#{set-ribcage-labels!\ 10741}#
7625 (lambda (#{x\ 12592}# #{update\ 12593}#)
7626 (vector-set! #{x\ 12592}# 3 #{update\ 12593}#)))
7627 (#{set-ribcage-marks!\ 10739}#
7628 (lambda (#{x\ 12596}# #{update\ 12597}#)
7629 (vector-set! #{x\ 12596}# 2 #{update\ 12597}#)))
7630 (#{set-ribcage-symnames!\ 10737}#
7631 (lambda (#{x\ 12600}# #{update\ 12601}#)
7632 (vector-set! #{x\ 12600}# 1 #{update\ 12601}#)))
7633 (#{ribcage-labels\ 10735}#
7634 (lambda (#{x\ 12604}#)
7635 (vector-ref #{x\ 12604}# 3)))
7636 (#{ribcage-marks\ 10733}#
7637 (lambda (#{x\ 12606}#)
7638 (vector-ref #{x\ 12606}# 2)))
7639 (#{ribcage-symnames\ 10731}#
7640 (lambda (#{x\ 12608}#)
7641 (vector-ref #{x\ 12608}# 1)))
7642 (#{ribcage?\ 10729}#
7643 (lambda (#{x\ 12610}#)
7644 (if (vector? #{x\ 12610}#)
7645 (if (= (vector-length #{x\ 12610}#) 4)
7646 (eq? (vector-ref #{x\ 12610}# 0) (quote ribcage))
7647 #f)
7648 #f)))
7649 (#{make-ribcage\ 10727}#
7650 (lambda (#{symnames\ 12615}#
7651 #{marks\ 12616}#
7652 #{labels\ 12617}#)
7653 (vector
7654 'ribcage
7655 #{symnames\ 12615}#
7656 #{marks\ 12616}#
7657 #{labels\ 12617}#)))
7658 (#{gen-labels\ 10724}#
7659 (lambda (#{ls\ 12621}#)
7660 (if (null? #{ls\ 12621}#)
7661 '()
7662 (cons (#{gen-label\ 10722}#)
7663 (#{gen-labels\ 10724}# (cdr #{ls\ 12621}#))))))
7664 (#{gen-label\ 10722}#
7665 (lambda () (symbol->string (gensym "i"))))
7666 (#{wrap-subst\ 10715}# cdr)
7667 (#{wrap-marks\ 10713}# car)
7668 (#{make-wrap\ 10711}# cons)
7669 (#{id-sym-name&marks\ 10709}#
7670 (lambda (#{x\ 12623}# #{w\ 12624}#)
7671 (if (#{syntax-object?\ 10670}# #{x\ 12623}#)
7672 (values
7673 (#{syntax-object-expression\ 10672}#
7674 #{x\ 12623}#)
7675 (#{join-marks\ 10759}#
7676 (#{wrap-marks\ 10713}# #{w\ 12624}#)
7677 (#{wrap-marks\ 10713}#
7678 (#{syntax-object-wrap\ 10674}# #{x\ 12623}#))))
7679 (values
7680 #{x\ 12623}#
7681 (#{wrap-marks\ 10713}# #{w\ 12624}#)))))
7682 (#{id?\ 10706}#
7683 (lambda (#{x\ 12627}#)
7684 (if (symbol? #{x\ 12627}#)
7685 #t
7686 (if (#{syntax-object?\ 10670}# #{x\ 12627}#)
7687 (symbol?
7688 (#{syntax-object-expression\ 10672}#
7689 #{x\ 12627}#))
7690 #f))))
7691 (#{nonsymbol-id?\ 10704}#
7692 (lambda (#{x\ 12634}#)
7693 (if (#{syntax-object?\ 10670}# #{x\ 12634}#)
7694 (symbol?
7695 (#{syntax-object-expression\ 10672}#
7696 #{x\ 12634}#))
7697 #f)))
7698 (#{global-extend\ 10702}#
7699 (lambda (#{type\ 12638}# #{sym\ 12639}# #{val\ 12640}#)
7700 (#{put-global-definition-hook\ 10620}#
7701 #{sym\ 12639}#
7702 #{type\ 12638}#
7703 #{val\ 12640}#)))
7704 (#{lookup\ 10700}#
7705 (lambda (#{x\ 12644}# #{r\ 12645}# #{mod\ 12646}#)
7706 (let ((#{t\ 12652}# (assq #{x\ 12644}# #{r\ 12645}#)))
7707 (if #{t\ 12652}#
7708 (cdr #{t\ 12652}#)
7709 (if (symbol? #{x\ 12644}#)
7710 (let ((#{t\ 12658}#
7711 (#{get-global-definition-hook\ 10622}#
7712 #{x\ 12644}#
7713 #{mod\ 12646}#)))
7714 (if #{t\ 12658}# #{t\ 12658}# (quote (global))))
7715 '(displaced-lexical))))))
7716 (#{macros-only-env\ 10698}#
7717 (lambda (#{r\ 12663}#)
7718 (if (null? #{r\ 12663}#)
7719 '()
7720 (let ((#{a\ 12666}# (car #{r\ 12663}#)))
7721 (if (eq? (cadr #{a\ 12666}#) (quote macro))
7722 (cons #{a\ 12666}#
7723 (#{macros-only-env\ 10698}# (cdr #{r\ 12663}#)))
7724 (#{macros-only-env\ 10698}# (cdr #{r\ 12663}#)))))))
7725 (#{extend-var-env\ 10696}#
7726 (lambda (#{labels\ 12667}# #{vars\ 12668}# #{r\ 12669}#)
7727 (if (null? #{labels\ 12667}#)
7728 #{r\ 12669}#
7729 (#{extend-var-env\ 10696}#
7730 (cdr #{labels\ 12667}#)
7731 (cdr #{vars\ 12668}#)
7732 (cons (cons (car #{labels\ 12667}#)
7733 (cons (quote lexical) (car #{vars\ 12668}#)))
7734 #{r\ 12669}#)))))
7735 (#{extend-env\ 10694}#
7736 (lambda (#{labels\ 12674}#
7737 #{bindings\ 12675}#
7738 #{r\ 12676}#)
7739 (if (null? #{labels\ 12674}#)
7740 #{r\ 12676}#
7741 (#{extend-env\ 10694}#
7742 (cdr #{labels\ 12674}#)
7743 (cdr #{bindings\ 12675}#)
7744 (cons (cons (car #{labels\ 12674}#)
7745 (car #{bindings\ 12675}#))
7746 #{r\ 12676}#)))))
7747 (#{binding-value\ 10691}# cdr)
7748 (#{binding-type\ 10689}# car)
7749 (#{source-annotation\ 10685}#
7750 (lambda (#{x\ 12680}#)
7751 (if (#{syntax-object?\ 10670}# #{x\ 12680}#)
7752 (#{source-annotation\ 10685}#
7753 (#{syntax-object-expression\ 10672}#
7754 #{x\ 12680}#))
7755 (if (pair? #{x\ 12680}#)
7756 (let ((#{props\ 12687}#
7757 (source-properties #{x\ 12680}#)))
7758 (if (pair? #{props\ 12687}#) #{props\ 12687}# #f))
7759 #f))))
7760 (#{set-syntax-object-module!\ 10682}#
7761 (lambda (#{x\ 12689}# #{update\ 12690}#)
7762 (vector-set! #{x\ 12689}# 3 #{update\ 12690}#)))
7763 (#{set-syntax-object-wrap!\ 10680}#
7764 (lambda (#{x\ 12693}# #{update\ 12694}#)
7765 (vector-set! #{x\ 12693}# 2 #{update\ 12694}#)))
7766 (#{set-syntax-object-expression!\ 10678}#
7767 (lambda (#{x\ 12697}# #{update\ 12698}#)
7768 (vector-set! #{x\ 12697}# 1 #{update\ 12698}#)))
7769 (#{syntax-object-module\ 10676}#
7770 (lambda (#{x\ 12701}#)
7771 (vector-ref #{x\ 12701}# 3)))
7772 (#{syntax-object-wrap\ 10674}#
7773 (lambda (#{x\ 12703}#)
7774 (vector-ref #{x\ 12703}# 2)))
7775 (#{syntax-object-expression\ 10672}#
7776 (lambda (#{x\ 12705}#)
7777 (vector-ref #{x\ 12705}# 1)))
7778 (#{syntax-object?\ 10670}#
7779 (lambda (#{x\ 12707}#)
7780 (if (vector? #{x\ 12707}#)
7781 (if (= (vector-length #{x\ 12707}#) 4)
7782 (eq? (vector-ref #{x\ 12707}# 0)
7783 'syntax-object)
7784 #f)
7785 #f)))
7786 (#{make-syntax-object\ 10668}#
7787 (lambda (#{expression\ 12712}#
7788 #{wrap\ 12713}#
7789 #{module\ 12714}#)
7790 (vector
7791 'syntax-object
7792 #{expression\ 12712}#
7793 #{wrap\ 12713}#
7794 #{module\ 12714}#)))
7795 (#{build-letrec\ 10664}#
7796 (lambda (#{src\ 12718}#
7797 #{ids\ 12719}#
7798 #{vars\ 12720}#
7799 #{val-exps\ 12721}#
7800 #{body-exp\ 12722}#)
7801 (if (null? #{vars\ 12720}#)
7802 #{body-exp\ 12722}#
7803 (let ((#{atom-key\ 12730}#
7804 (fluid-ref #{*mode*\ 10605}#)))
7805 (if (memv #{atom-key\ 12730}# (quote (c)))
7806 (begin
7807 (for-each
7808 #{maybe-name-value!\ 10644}#
7809 #{ids\ 12719}#
7810 #{val-exps\ 12721}#)
7811 ((@ (language tree-il) make-letrec)
7812 #{src\ 12718}#
7813 #{ids\ 12719}#
7814 #{vars\ 12720}#
7815 #{val-exps\ 12721}#
7816 #{body-exp\ 12722}#))
7817 (#{decorate-source\ 10624}#
7818 (list 'letrec
7819 (map list #{vars\ 12720}# #{val-exps\ 12721}#)
7820 #{body-exp\ 12722}#)
7821 #{src\ 12718}#))))))
7822 (#{build-named-let\ 10662}#
7823 (lambda (#{src\ 12734}#
7824 #{ids\ 12735}#
7825 #{vars\ 12736}#
7826 #{val-exps\ 12737}#
7827 #{body-exp\ 12738}#)
7828 (let ((#{f\ 12748}# (car #{vars\ 12736}#))
7829 (#{f-name\ 12749}# (car #{ids\ 12735}#))
7830 (#{vars\ 12750}# (cdr #{vars\ 12736}#))
7831 (#{ids\ 12751}# (cdr #{ids\ 12735}#)))
7832 (let ((#{atom-key\ 12754}#
7833 (fluid-ref #{*mode*\ 10605}#)))
7834 (if (memv #{atom-key\ 12754}# (quote (c)))
7835 (let ((#{proc\ 12757}#
7836 (#{build-simple-lambda\ 10648}#
7837 #{src\ 12734}#
7838 #{ids\ 12751}#
7839 #f
7840 #{vars\ 12750}#
7841 '()
7842 #{body-exp\ 12738}#)))
7843 (begin
7844 (#{maybe-name-value!\ 10644}#
7845 #{f-name\ 12749}#
7846 #{proc\ 12757}#)
7847 (for-each
7848 #{maybe-name-value!\ 10644}#
7849 #{ids\ 12751}#
7850 #{val-exps\ 12737}#)
7851 ((@ (language tree-il) make-letrec)
7852 #{src\ 12734}#
7853 (list #{f-name\ 12749}#)
7854 (list #{f\ 12748}#)
7855 (list #{proc\ 12757}#)
7856 (#{build-application\ 10628}#
7857 #{src\ 12734}#
7858 (#{build-lexical-reference\ 10634}#
7859 'fun
7860 #{src\ 12734}#
7861 #{f-name\ 12749}#
7862 #{f\ 12748}#)
7863 #{val-exps\ 12737}#))))
7864 (#{decorate-source\ 10624}#
7865 (list 'letrec
7866 (list (list #{f\ 12748}#
7867 (list 'lambda
7868 #{vars\ 12750}#
7869 #{body-exp\ 12738}#)))
7870 (cons #{f\ 12748}# #{val-exps\ 12737}#))
7871 #{src\ 12734}#))))))
7872 (#{build-let\ 10660}#
7873 (lambda (#{src\ 12760}#
7874 #{ids\ 12761}#
7875 #{vars\ 12762}#
7876 #{val-exps\ 12763}#
7877 #{body-exp\ 12764}#)
7878 (if (null? #{vars\ 12762}#)
7879 #{body-exp\ 12764}#
7880 (let ((#{atom-key\ 12772}#
7881 (fluid-ref #{*mode*\ 10605}#)))
7882 (if (memv #{atom-key\ 12772}# (quote (c)))
7883 (begin
7884 (for-each
7885 #{maybe-name-value!\ 10644}#
7886 #{ids\ 12761}#
7887 #{val-exps\ 12763}#)
7888 ((@ (language tree-il) make-let)
7889 #{src\ 12760}#
7890 #{ids\ 12761}#
7891 #{vars\ 12762}#
7892 #{val-exps\ 12763}#
7893 #{body-exp\ 12764}#))
7894 (#{decorate-source\ 10624}#
7895 (list 'let
7896 (map list #{vars\ 12762}# #{val-exps\ 12763}#)
7897 #{body-exp\ 12764}#)
7898 #{src\ 12760}#))))))
7899 (#{build-sequence\ 10658}#
7900 (lambda (#{src\ 12776}# #{exps\ 12777}#)
7901 (if (null? (cdr #{exps\ 12777}#))
7902 (car #{exps\ 12777}#)
7903 (let ((#{atom-key\ 12782}#
7904 (fluid-ref #{*mode*\ 10605}#)))
7905 (if (memv #{atom-key\ 12782}# (quote (c)))
7906 ((@ (language tree-il) make-sequence)
7907 #{src\ 12776}#
7908 #{exps\ 12777}#)
7909 (#{decorate-source\ 10624}#
7910 (cons (quote begin) #{exps\ 12777}#)
7911 #{src\ 12776}#))))))
7912 (#{build-data\ 10656}#
7913 (lambda (#{src\ 12786}# #{exp\ 12787}#)
7914 (let ((#{atom-key\ 12792}#
7915 (fluid-ref #{*mode*\ 10605}#)))
7916 (if (memv #{atom-key\ 12792}# (quote (c)))
7917 ((@ (language tree-il) make-const)
7918 #{src\ 12786}#
7919 #{exp\ 12787}#)
7920 (#{decorate-source\ 10624}#
7921 (if (if (self-evaluating? #{exp\ 12787}#)
7922 (not (vector? #{exp\ 12787}#))
7923 #f)
7924 #{exp\ 12787}#
7925 (list (quote quote) #{exp\ 12787}#))
7926 #{src\ 12786}#)))))
7927 (#{build-primref\ 10654}#
7928 (lambda (#{src\ 12797}# #{name\ 12798}#)
7929 (if (equal?
7930 (module-name (current-module))
7931 '(guile))
7932 (let ((#{atom-key\ 12803}#
7933 (fluid-ref #{*mode*\ 10605}#)))
7934 (if (memv #{atom-key\ 12803}# (quote (c)))
7935 ((@ (language tree-il) make-toplevel-ref)
7936 #{src\ 12797}#
7937 #{name\ 12798}#)
7938 (#{decorate-source\ 10624}#
7939 #{name\ 12798}#
7940 #{src\ 12797}#)))
7941 (let ((#{atom-key\ 12808}#
7942 (fluid-ref #{*mode*\ 10605}#)))
7943 (if (memv #{atom-key\ 12808}# (quote (c)))
7944 ((@ (language tree-il) make-module-ref)
7945 #{src\ 12797}#
7946 '(guile)
7947 #{name\ 12798}#
7948 #f)
7949 (#{decorate-source\ 10624}#
7950 (list (quote @@) (quote (guile)) #{name\ 12798}#)
7951 #{src\ 12797}#))))))
7952 (#{build-lambda-case\ 10652}#
7953 (lambda (#{src\ 12812}#
7954 #{req\ 12813}#
7955 #{opt\ 12814}#
7956 #{rest\ 12815}#
7957 #{kw\ 12816}#
7958 #{inits\ 12817}#
7959 #{vars\ 12818}#
7960 #{body\ 12819}#
7961 #{else-case\ 12820}#)
7962 (let ((#{atom-key\ 12832}#
7963 (fluid-ref #{*mode*\ 10605}#)))
7964 (if (memv #{atom-key\ 12832}# (quote (c)))
7965 ((@ (language tree-il) make-lambda-case)
7966 #{src\ 12812}#
7967 #{req\ 12813}#
7968 #{opt\ 12814}#
7969 #{rest\ 12815}#
7970 #{kw\ 12816}#
7971 #{inits\ 12817}#
7972 #{vars\ 12818}#
7973 #{body\ 12819}#
7974 #{else-case\ 12820}#)
7975 (let ((#{nreq\ 12837}# (length #{req\ 12813}#)))
7976 (let ((#{nopt\ 12839}#
7977 (if #{opt\ 12814}# (length #{opt\ 12814}#) 0)))
7978 (let ((#{rest-idx\ 12841}#
7979 (if #{rest\ 12815}#
7980 (+ #{nreq\ 12837}# #{nopt\ 12839}#)
7981 #f)))
7982 (let ((#{allow-other-keys?\ 12845}#
7983 (if #{kw\ 12816}# (car #{kw\ 12816}#) #f)))
7984 (let ((#{kw-indices\ 12847}#
7985 (map (lambda (#{x\ 12848}#)
7986 (cons (car #{x\ 12848}#)
7987 (list-index
7988 #{vars\ 12818}#
7989 (caddr #{x\ 12848}#))))
7990 (if #{kw\ 12816}#
7991 (cdr #{kw\ 12816}#)
7992 '()))))
7993 (let ((#{nargs\ 12851}#
7994 (apply max
7995 (+ #{nreq\ 12837}#
7996 #{nopt\ 12839}#
7997 (if #{rest\ 12815}# 1 0))
7998 (map 1+
7999 (map cdr
8000 #{kw-indices\ 12847}#)))))
8001 (begin
8002 (let ((#{t\ 12854}#
8003 (= #{nargs\ 12851}#
8004 (length #{vars\ 12818}#)
8005 (+ #{nreq\ 12837}#
8006 (length #{inits\ 12817}#)
8007 (if #{rest\ 12815}# 1 0)))))
8008 (if #{t\ 12854}#
8009 #{t\ 12854}#
8010 (error "something went wrong"
8011 #{req\ 12813}#
8012 #{opt\ 12814}#
8013 #{rest\ 12815}#
8014 #{kw\ 12816}#
8015 #{inits\ 12817}#
8016 #{vars\ 12818}#
8017 #{nreq\ 12837}#
8018 #{nopt\ 12839}#
8019 #{kw-indices\ 12847}#
8020 #{nargs\ 12851}#)))
8021 (#{decorate-source\ 10624}#
8022 (cons (list (cons '(@@ (ice-9 optargs)
8023 parse-lambda-case)
8024 (cons (list 'quote
8025 (list #{nreq\ 12837}#
8026 #{nopt\ 12839}#
8027 #{rest-idx\ 12841}#
8028 #{nargs\ 12851}#
8029 #{allow-other-keys?\ 12845}#
8030 #{kw-indices\ 12847}#))
8031 (cons (cons 'list
8032 (map (lambda (#{i\ 12857}#)
8033 (list 'lambda
8034 #{vars\ 12818}#
8035 #{i\ 12857}#))
8036 #{inits\ 12817}#))
8037 '(%%args))))
8038 '=>
8039 (list 'lambda
8040 '(%%args)
8041 (cons 'apply
8042 (cons (list 'lambda
8043 #{vars\ 12818}#
8044 #{body\ 12819}#)
8045 '(%%args)))))
8046 (let ((#{t\ 12862}#
8047 #{else-case\ 12820}#))
8048 (if #{t\ 12862}#
8049 #{t\ 12862}#
8050 '((%%args
8051 (scm-error
8052 'wrong-number-of-args
8053 #f
8054 "Wrong number of arguments"
8055 '()
8056 %%args))))))
8057 #{src\ 12812}#))))))))))))
8058 (#{build-case-lambda\ 10650}#
8059 (lambda (#{src\ 12865}# #{meta\ 12866}# #{body\ 12867}#)
8060 (let ((#{atom-key\ 12873}#
8061 (fluid-ref #{*mode*\ 10605}#)))
8062 (if (memv #{atom-key\ 12873}# (quote (c)))
8063 ((@ (language tree-il) make-lambda)
8064 #{src\ 12865}#
8065 #{meta\ 12866}#
8066 #{body\ 12867}#)
8067 (#{decorate-source\ 10624}#
8068 (list 'lambda
8069 '%%args
8070 (cons (quote cond) #{body\ 12867}#))
8071 #{src\ 12865}#)))))
8072 (#{build-simple-lambda\ 10648}#
8073 (lambda (#{src\ 12877}#
8074 #{req\ 12878}#
8075 #{rest\ 12879}#
8076 #{vars\ 12880}#
8077 #{meta\ 12881}#
8078 #{exp\ 12882}#)
8079 (let ((#{atom-key\ 12891}#
8080 (fluid-ref #{*mode*\ 10605}#)))
8081 (if (memv #{atom-key\ 12891}# (quote (c)))
8082 ((@ (language tree-il) make-lambda)
8083 #{src\ 12877}#
8084 #{meta\ 12881}#
8085 ((@ (language tree-il) make-lambda-case)
8086 #{src\ 12877}#
8087 #{req\ 12878}#
8088 #f
8089 #{rest\ 12879}#
8090 #f
8091 '()
8092 #{vars\ 12880}#
8093 #{exp\ 12882}#
8094 #f))
8095 (#{decorate-source\ 10624}#
8096 (list 'lambda
8097 (if #{rest\ 12879}#
8098 (apply cons* #{vars\ 12880}#)
8099 #{vars\ 12880}#)
8100 #{exp\ 12882}#)
8101 #{src\ 12877}#)))))
8102 (#{build-global-definition\ 10646}#
8103 (lambda (#{source\ 12895}# #{var\ 12896}# #{exp\ 12897}#)
8104 (let ((#{atom-key\ 12903}#
8105 (fluid-ref #{*mode*\ 10605}#)))
8106 (if (memv #{atom-key\ 12903}# (quote (c)))
8107 (begin
8108 (#{maybe-name-value!\ 10644}#
8109 #{var\ 12896}#
8110 #{exp\ 12897}#)
8111 ((@ (language tree-il) make-toplevel-define)
8112 #{source\ 12895}#
8113 #{var\ 12896}#
8114 #{exp\ 12897}#))
8115 (#{decorate-source\ 10624}#
8116 (list 'define
8117 #{var\ 12896}#
8118 #{exp\ 12897}#)
8119 #{source\ 12895}#)))))
8120 (#{maybe-name-value!\ 10644}#
8121 (lambda (#{name\ 12907}# #{val\ 12908}#)
8122 (if ((@ (language tree-il) lambda?) #{val\ 12908}#)
8123 (let ((#{meta\ 12914}#
8124 ((@ (language tree-il) lambda-meta)
8125 #{val\ 12908}#)))
8126 (if (not (assq (quote name) #{meta\ 12914}#))
8127 ((setter (@ (language tree-il) lambda-meta))
8128 #{val\ 12908}#
8129 (acons 'name
8130 #{name\ 12907}#
8131 #{meta\ 12914}#)))))))
8132 (#{build-global-assignment\ 10642}#
8133 (lambda (#{source\ 12915}#
8134 #{var\ 12916}#
8135 #{exp\ 12917}#
8136 #{mod\ 12918}#)
8137 (#{analyze-variable\ 10638}#
8138 #{mod\ 12918}#
8139 #{var\ 12916}#
8140 (lambda (#{mod\ 12923}#
8141 #{var\ 12924}#
8142 #{public?\ 12925}#)
8143 (let ((#{atom-key\ 12931}#
8144 (fluid-ref #{*mode*\ 10605}#)))
8145 (if (memv #{atom-key\ 12931}# (quote (c)))
8146 ((@ (language tree-il) make-module-set)
8147 #{source\ 12915}#
8148 #{mod\ 12923}#
8149 #{var\ 12924}#
8150 #{public?\ 12925}#
8151 #{exp\ 12917}#)
8152 (#{decorate-source\ 10624}#
8153 (list 'set!
8154 (list (if #{public?\ 12925}#
8155 '@
8156 '@@)
8157 #{mod\ 12923}#
8158 #{var\ 12924}#)
8159 #{exp\ 12917}#)
8160 #{source\ 12915}#))))
8161 (lambda (#{var\ 12935}#)
8162 (let ((#{atom-key\ 12939}#
8163 (fluid-ref #{*mode*\ 10605}#)))
8164 (if (memv #{atom-key\ 12939}# (quote (c)))
8165 ((@ (language tree-il) make-toplevel-set)
8166 #{source\ 12915}#
8167 #{var\ 12935}#
8168 #{exp\ 12917}#)
8169 (#{decorate-source\ 10624}#
8170 (list (quote set!) #{var\ 12935}# #{exp\ 12917}#)
8171 #{source\ 12915}#)))))))
8172 (#{build-global-reference\ 10640}#
8173 (lambda (#{source\ 12943}# #{var\ 12944}# #{mod\ 12945}#)
8174 (#{analyze-variable\ 10638}#
8175 #{mod\ 12945}#
8176 #{var\ 12944}#
8177 (lambda (#{mod\ 12949}#
8178 #{var\ 12950}#
8179 #{public?\ 12951}#)
8180 (let ((#{atom-key\ 12957}#
8181 (fluid-ref #{*mode*\ 10605}#)))
8182 (if (memv #{atom-key\ 12957}# (quote (c)))
8183 ((@ (language tree-il) make-module-ref)
8184 #{source\ 12943}#
8185 #{mod\ 12949}#
8186 #{var\ 12950}#
8187 #{public?\ 12951}#)
8188 (#{decorate-source\ 10624}#
8189 (list (if #{public?\ 12951}# (quote @) (quote @@))
8190 #{mod\ 12949}#
8191 #{var\ 12950}#)
8192 #{source\ 12943}#))))
8193 (lambda (#{var\ 12960}#)
8194 (let ((#{atom-key\ 12964}#
8195 (fluid-ref #{*mode*\ 10605}#)))
8196 (if (memv #{atom-key\ 12964}# (quote (c)))
8197 ((@ (language tree-il) make-toplevel-ref)
8198 #{source\ 12943}#
8199 #{var\ 12960}#)
8200 (#{decorate-source\ 10624}#
8201 #{var\ 12960}#
8202 #{source\ 12943}#)))))))
8203 (#{analyze-variable\ 10638}#
8204 (lambda (#{mod\ 12967}#
8205 #{var\ 12968}#
8206 #{modref-cont\ 12969}#
8207 #{bare-cont\ 12970}#)
8208 (if (not #{mod\ 12967}#)
8209 (#{bare-cont\ 12970}# #{var\ 12968}#)
8210 (let ((#{kind\ 12977}# (car #{mod\ 12967}#))
8211 (#{mod\ 12978}# (cdr #{mod\ 12967}#)))
8212 (if (memv #{kind\ 12977}# (quote (public)))
8213 (#{modref-cont\ 12969}#
8214 #{mod\ 12978}#
8215 #{var\ 12968}#
8216 #t)
8217 (if (memv #{kind\ 12977}# (quote (private)))
8218 (if (not (equal?
8219 #{mod\ 12978}#
8220 (module-name (current-module))))
8221 (#{modref-cont\ 12969}#
8222 #{mod\ 12978}#
8223 #{var\ 12968}#
8224 #f)
8225 (#{bare-cont\ 12970}# #{var\ 12968}#))
8226 (if (memv #{kind\ 12977}# (quote (bare)))
8227 (#{bare-cont\ 12970}# #{var\ 12968}#)
8228 (if (memv #{kind\ 12977}# (quote (hygiene)))
8229 (if (if (not (equal?
8230 #{mod\ 12978}#
8231 (module-name (current-module))))
8232 (module-variable
8233 (resolve-module #{mod\ 12978}#)
8234 #{var\ 12968}#)
8235 #f)
8236 (#{modref-cont\ 12969}#
8237 #{mod\ 12978}#
8238 #{var\ 12968}#
8239 #f)
8240 (#{bare-cont\ 12970}# #{var\ 12968}#))
8241 (syntax-violation
8242 #f
8243 "bad module kind"
8244 #{var\ 12968}#
8245 #{mod\ 12978}#)))))))))
8246 (#{build-lexical-assignment\ 10636}#
8247 (lambda (#{source\ 12986}#
8248 #{name\ 12987}#
8249 #{var\ 12988}#
8250 #{exp\ 12989}#)
8251 (let ((#{atom-key\ 12996}#
8252 (fluid-ref #{*mode*\ 10605}#)))
8253 (if (memv #{atom-key\ 12996}# (quote (c)))
8254 ((@ (language tree-il) make-lexical-set)
8255 #{source\ 12986}#
8256 #{name\ 12987}#
8257 #{var\ 12988}#
8258 #{exp\ 12989}#)
8259 (#{decorate-source\ 10624}#
8260 (list (quote set!) #{var\ 12988}# #{exp\ 12989}#)
8261 #{source\ 12986}#)))))
8262 (#{build-lexical-reference\ 10634}#
8263 (lambda (#{type\ 13000}#
8264 #{source\ 13001}#
8265 #{name\ 13002}#
8266 #{var\ 13003}#)
8267 (let ((#{atom-key\ 13010}#
8268 (fluid-ref #{*mode*\ 10605}#)))
8269 (if (memv #{atom-key\ 13010}# (quote (c)))
8270 ((@ (language tree-il) make-lexical-ref)
8271 #{source\ 13001}#
8272 #{name\ 13002}#
8273 #{var\ 13003}#)
8274 (#{decorate-source\ 10624}#
8275 #{var\ 13003}#
8276 #{source\ 13001}#)))))
8277 (#{build-dynlet\ 10632}#
8278 (lambda (#{source\ 13013}#
8279 #{fluids\ 13014}#
8280 #{vals\ 13015}#
8281 #{body\ 13016}#)
8282 (let ((#{atom-key\ 13023}#
8283 (fluid-ref #{*mode*\ 10605}#)))
8284 (if (memv #{atom-key\ 13023}# (quote (c)))
8285 ((@ (language tree-il) make-dynlet)
8286 #{source\ 13013}#
8287 #{fluids\ 13014}#
8288 #{vals\ 13015}#
8289 #{body\ 13016}#)
8290 (#{decorate-source\ 10624}#
8291 (list 'with-fluids
8292 (map list #{fluids\ 13014}# #{vals\ 13015}#)
8293 #{body\ 13016}#)
8294 #{source\ 13013}#)))))
8295 (#{build-conditional\ 10630}#
8296 (lambda (#{source\ 13027}#
8297 #{test-exp\ 13028}#
8298 #{then-exp\ 13029}#
8299 #{else-exp\ 13030}#)
8300 (let ((#{atom-key\ 13037}#
8301 (fluid-ref #{*mode*\ 10605}#)))
8302 (if (memv #{atom-key\ 13037}# (quote (c)))
8303 ((@ (language tree-il) make-conditional)
8304 #{source\ 13027}#
8305 #{test-exp\ 13028}#
8306 #{then-exp\ 13029}#
8307 #{else-exp\ 13030}#)
8308 (#{decorate-source\ 10624}#
8309 (if (equal? #{else-exp\ 13030}# (quote (if #f #f)))
8310 (list 'if
8311 #{test-exp\ 13028}#
8312 #{then-exp\ 13029}#)
8313 (list 'if
8314 #{test-exp\ 13028}#
8315 #{then-exp\ 13029}#
8316 #{else-exp\ 13030}#))
8317 #{source\ 13027}#)))))
8318 (#{build-application\ 10628}#
8319 (lambda (#{source\ 13042}#
8320 #{fun-exp\ 13043}#
8321 #{arg-exps\ 13044}#)
8322 (let ((#{atom-key\ 13050}#
8323 (fluid-ref #{*mode*\ 10605}#)))
8324 (if (memv #{atom-key\ 13050}# (quote (c)))
8325 ((@ (language tree-il) make-application)
8326 #{source\ 13042}#
8327 #{fun-exp\ 13043}#
8328 #{arg-exps\ 13044}#)
8329 (#{decorate-source\ 10624}#
8330 (cons #{fun-exp\ 13043}# #{arg-exps\ 13044}#)
8331 #{source\ 13042}#)))))
8332 (#{build-void\ 10626}#
8333 (lambda (#{source\ 13054}#)
8334 (let ((#{atom-key\ 13058}#
8335 (fluid-ref #{*mode*\ 10605}#)))
8336 (if (memv #{atom-key\ 13058}# (quote (c)))
8337 ((@ (language tree-il) make-void)
8338 #{source\ 13054}#)
8339 (#{decorate-source\ 10624}#
8340 '(if #f #f)
8341 #{source\ 13054}#)))))
8342 (#{decorate-source\ 10624}#
8343 (lambda (#{e\ 13061}# #{s\ 13062}#)
8344 (begin
8345 (if (if (pair? #{e\ 13061}#) #{s\ 13062}# #f)
8346 (set-source-properties!
8347 #{e\ 13061}#
8348 #{s\ 13062}#))
8349 #{e\ 13061}#)))
8350 (#{get-global-definition-hook\ 10622}#
8351 (lambda (#{symbol\ 13067}# #{module\ 13068}#)
8352 (begin
8353 (if (if (not #{module\ 13068}#) (current-module) #f)
8354 (warn "module system is booted, we should have a module"
8355 #{symbol\ 13067}#))
8356 (let ((#{v\ 13074}#
8357 (module-variable
8358 (if #{module\ 13068}#
8359 (resolve-module (cdr #{module\ 13068}#))
8360 (current-module))
8361 #{symbol\ 13067}#)))
8362 (if #{v\ 13074}#
8363 (if (variable-bound? #{v\ 13074}#)
8364 (let ((#{val\ 13079}# (variable-ref #{v\ 13074}#)))
8365 (if (macro? #{val\ 13079}#)
8366 (if (macro-type #{val\ 13079}#)
8367 (cons (macro-type #{val\ 13079}#)
8368 (macro-binding #{val\ 13079}#))
8369 #f)
8370 #f))
8371 #f)
8372 #f)))))
8373 (#{put-global-definition-hook\ 10620}#
8374 (lambda (#{symbol\ 13083}#
8375 #{type\ 13084}#
8376 #{val\ 13085}#)
8377 (module-define!
8378 (current-module)
8379 #{symbol\ 13083}#
8380 (make-syntax-transformer
8381 #{symbol\ 13083}#
8382 #{type\ 13084}#
8383 #{val\ 13085}#))))
8384 (#{local-eval-hook\ 10617}#
8385 (lambda (#{x\ 13089}# #{mod\ 13090}#)
8386 (primitive-eval
8387 (list #{noexpand\ 10603}#
8388 (let ((#{atom-key\ 13096}#
8389 (fluid-ref #{*mode*\ 10605}#)))
8390 (if (memv #{atom-key\ 13096}# (quote (c)))
8391 ((@ (language tree-il) tree-il->scheme)
8392 #{x\ 13089}#)
8393 #{x\ 13089}#))))))
8394 (#{top-level-eval-hook\ 10615}#
8395 (lambda (#{x\ 13099}# #{mod\ 13100}#)
8396 (primitive-eval
8397 (list #{noexpand\ 10603}#
8398 (let ((#{atom-key\ 13106}#
8399 (fluid-ref #{*mode*\ 10605}#)))
8400 (if (memv #{atom-key\ 13106}# (quote (c)))
8401 ((@ (language tree-il) tree-il->scheme)
8402 #{x\ 13099}#)
8403 #{x\ 13099}#))))))
8404 (#{fx<\ 10613}# <)
8405 (#{fx=\ 10611}# =)
8406 (#{fx-\ 10609}# -)
8407 (#{fx+\ 10607}# +)
8408 (#{*mode*\ 10605}# (make-fluid))
8409 (#{noexpand\ 10603}# "noexpand"))
8410 (begin
8411 (#{global-extend\ 10702}#
8412 'local-syntax
8413 'letrec-syntax
8414 #t)
8415 (#{global-extend\ 10702}#
8416 'local-syntax
8417 'let-syntax
8418 #f)
8419 (#{global-extend\ 10702}#
8420 'core
8421 'fluid-let-syntax
8422 (lambda (#{e\ 13109}#
8423 #{r\ 13110}#
8424 #{w\ 13111}#
8425 #{s\ 13112}#
8426 #{mod\ 13113}#)
8427 ((lambda (#{tmp\ 13119}#)
8428 ((lambda (#{tmp\ 13120}#)
8429 (if (if #{tmp\ 13120}#
8430 (apply (lambda (#{_\ 13126}#
8431 #{var\ 13127}#
8432 #{val\ 13128}#
8433 #{e1\ 13129}#
8434 #{e2\ 13130}#)
8435 (#{valid-bound-ids?\ 10769}# #{var\ 13127}#))
8436 #{tmp\ 13120}#)
8437 #f)
8438 (apply (lambda (#{_\ 13137}#
8439 #{var\ 13138}#
8440 #{val\ 13139}#
8441 #{e1\ 13140}#
8442 #{e2\ 13141}#)
8443 (let ((#{names\ 13143}#
8444 (map (lambda (#{x\ 13144}#)
8445 (#{id-var-name\ 10763}#
8446 #{x\ 13144}#
8447 #{w\ 13111}#))
8448 #{var\ 13138}#)))
8449 (begin
8450 (for-each
8451 (lambda (#{id\ 13147}# #{n\ 13148}#)
8452 (let ((#{atom-key\ 13153}#
8453 (#{binding-type\ 10689}#
8454 (#{lookup\ 10700}#
8455 #{n\ 13148}#
8456 #{r\ 13110}#
8457 #{mod\ 13113}#))))
8458 (if (memv #{atom-key\ 13153}#
8459 '(displaced-lexical))
8460 (syntax-violation
8461 'fluid-let-syntax
8462 "identifier out of context"
8463 #{e\ 13109}#
8464 (#{source-wrap\ 10777}#
8465 #{id\ 13147}#
8466 #{w\ 13111}#
8467 #{s\ 13112}#
8468 #{mod\ 13113}#)))))
8469 #{var\ 13138}#
8470 #{names\ 13143}#)
8471 (#{chi-body\ 10799}#
8472 (cons #{e1\ 13140}# #{e2\ 13141}#)
8473 (#{source-wrap\ 10777}#
8474 #{e\ 13109}#
8475 #{w\ 13111}#
8476 #{s\ 13112}#
8477 #{mod\ 13113}#)
8478 (#{extend-env\ 10694}#
8479 #{names\ 13143}#
8480 (let ((#{trans-r\ 13158}#
8481 (#{macros-only-env\ 10698}#
8482 #{r\ 13110}#)))
8483 (map (lambda (#{x\ 13159}#)
8484 (cons 'macro
8485 (#{eval-local-transformer\ 10803}#
8486 (#{chi\ 10791}#
8487 #{x\ 13159}#
8488 #{trans-r\ 13158}#
8489 #{w\ 13111}#
8490 #{mod\ 13113}#)
8491 #{mod\ 13113}#)))
8492 #{val\ 13139}#))
8493 #{r\ 13110}#)
8494 #{w\ 13111}#
8495 #{mod\ 13113}#))))
8496 #{tmp\ 13120}#)
8497 ((lambda (#{_\ 13164}#)
8498 (syntax-violation
8499 'fluid-let-syntax
8500 "bad syntax"
8501 (#{source-wrap\ 10777}#
8502 #{e\ 13109}#
8503 #{w\ 13111}#
8504 #{s\ 13112}#
8505 #{mod\ 13113}#)))
8506 #{tmp\ 13119}#)))
8507 ($sc-dispatch
8508 #{tmp\ 13119}#
8509 '(any #(each (any any)) any . each-any))))
8510 #{e\ 13109}#)))
8511 (#{global-extend\ 10702}#
8512 'core
8513 'quote
8514 (lambda (#{e\ 13165}#
8515 #{r\ 13166}#
8516 #{w\ 13167}#
8517 #{s\ 13168}#
8518 #{mod\ 13169}#)
8519 ((lambda (#{tmp\ 13175}#)
8520 ((lambda (#{tmp\ 13176}#)
8521 (if #{tmp\ 13176}#
8522 (apply (lambda (#{_\ 13179}# #{e\ 13180}#)
8523 (#{build-data\ 10656}#
8524 #{s\ 13168}#
8525 (#{strip\ 10817}# #{e\ 13180}# #{w\ 13167}#)))
8526 #{tmp\ 13176}#)
8527 ((lambda (#{_\ 13182}#)
8528 (syntax-violation
8529 'quote
8530 "bad syntax"
8531 (#{source-wrap\ 10777}#
8532 #{e\ 13165}#
8533 #{w\ 13167}#
8534 #{s\ 13168}#
8535 #{mod\ 13169}#)))
8536 #{tmp\ 13175}#)))
8537 ($sc-dispatch #{tmp\ 13175}# (quote (any any)))))
8538 #{e\ 13165}#)))
8539 (#{global-extend\ 10702}#
8540 'core
8541 'syntax
8542 (letrec ((#{regen\ 13198}#
8543 (lambda (#{x\ 13199}#)
8544 (let ((#{atom-key\ 13203}# (car #{x\ 13199}#)))
8545 (if (memv #{atom-key\ 13203}# (quote (ref)))
8546 (#{build-lexical-reference\ 10634}#
8547 'value
8548 #f
8549 (cadr #{x\ 13199}#)
8550 (cadr #{x\ 13199}#))
8551 (if (memv #{atom-key\ 13203}# (quote (primitive)))
8552 (#{build-primref\ 10654}# #f (cadr #{x\ 13199}#))
8553 (if (memv #{atom-key\ 13203}# (quote (quote)))
8554 (#{build-data\ 10656}# #f (cadr #{x\ 13199}#))
8555 (if (memv #{atom-key\ 13203}# (quote (lambda)))
8556 (if (list? (cadr #{x\ 13199}#))
8557 (#{build-simple-lambda\ 10648}#
8558 #f
8559 (cadr #{x\ 13199}#)
8560 #f
8561 (cadr #{x\ 13199}#)
8562 '()
8563 (#{regen\ 13198}# (caddr #{x\ 13199}#)))
8564 (error "how did we get here" #{x\ 13199}#))
8565 (#{build-application\ 10628}#
8566 #f
8567 (#{build-primref\ 10654}#
8568 #f
8569 (car #{x\ 13199}#))
8570 (map #{regen\ 13198}#
8571 (cdr #{x\ 13199}#))))))))))
8572 (#{gen-vector\ 13196}#
8573 (lambda (#{x\ 13215}#)
8574 (if (eq? (car #{x\ 13215}#) (quote list))
8575 (cons (quote vector) (cdr #{x\ 13215}#))
8576 (if (eq? (car #{x\ 13215}#) (quote quote))
8577 (list 'quote
8578 (list->vector (cadr #{x\ 13215}#)))
8579 (list (quote list->vector) #{x\ 13215}#)))))
8580 (#{gen-append\ 13194}#
8581 (lambda (#{x\ 13225}# #{y\ 13226}#)
8582 (if (equal? #{y\ 13226}# (quote (quote ())))
8583 #{x\ 13225}#
8584 (list (quote append) #{x\ 13225}# #{y\ 13226}#))))
8585 (#{gen-cons\ 13192}#
8586 (lambda (#{x\ 13230}# #{y\ 13231}#)
8587 (let ((#{atom-key\ 13236}# (car #{y\ 13231}#)))
8588 (if (memv #{atom-key\ 13236}# (quote (quote)))
8589 (if (eq? (car #{x\ 13230}#) (quote quote))
8590 (list 'quote
8591 (cons (cadr #{x\ 13230}#)
8592 (cadr #{y\ 13231}#)))
8593 (if (eq? (cadr #{y\ 13231}#) (quote ()))
8594 (list (quote list) #{x\ 13230}#)
8595 (list (quote cons) #{x\ 13230}# #{y\ 13231}#)))
8596 (if (memv #{atom-key\ 13236}# (quote (list)))
8597 (cons 'list
8598 (cons #{x\ 13230}# (cdr #{y\ 13231}#)))
8599 (list (quote cons) #{x\ 13230}# #{y\ 13231}#))))))
8600 (#{gen-map\ 13190}#
8601 (lambda (#{e\ 13245}# #{map-env\ 13246}#)
8602 (let ((#{formals\ 13251}# (map cdr #{map-env\ 13246}#))
8603 (#{actuals\ 13252}#
8604 (map (lambda (#{x\ 13253}#)
8605 (list (quote ref) (car #{x\ 13253}#)))
8606 #{map-env\ 13246}#)))
8607 (if (eq? (car #{e\ 13245}#) (quote ref))
8608 (car #{actuals\ 13252}#)
8609 (if (and-map
8610 (lambda (#{x\ 13260}#)
8611 (if (eq? (car #{x\ 13260}#) (quote ref))
8612 (memq (cadr #{x\ 13260}#)
8613 #{formals\ 13251}#)
8614 #f))
8615 (cdr #{e\ 13245}#))
8616 (cons 'map
8617 (cons (list 'primitive
8618 (car #{e\ 13245}#))
8619 (map (let ((#{r\ 13266}#
8620 (map cons
8621 #{formals\ 13251}#
8622 #{actuals\ 13252}#)))
8623 (lambda (#{x\ 13267}#)
8624 (cdr (assq (cadr #{x\ 13267}#)
8625 #{r\ 13266}#))))
8626 (cdr #{e\ 13245}#))))
8627 (cons 'map
8628 (cons (list 'lambda
8629 #{formals\ 13251}#
8630 #{e\ 13245}#)
8631 #{actuals\ 13252}#)))))))
8632 (#{gen-mappend\ 13188}#
8633 (lambda (#{e\ 13271}# #{map-env\ 13272}#)
8634 (list 'apply
8635 '(primitive append)
8636 (#{gen-map\ 13190}#
8637 #{e\ 13271}#
8638 #{map-env\ 13272}#))))
8639 (#{gen-ref\ 13186}#
8640 (lambda (#{src\ 13276}#
8641 #{var\ 13277}#
8642 #{level\ 13278}#
8643 #{maps\ 13279}#)
8644 (if (#{fx=\ 10611}# #{level\ 13278}# 0)
8645 (values #{var\ 13277}# #{maps\ 13279}#)
8646 (if (null? #{maps\ 13279}#)
8647 (syntax-violation
8648 'syntax
8649 "missing ellipsis"
8650 #{src\ 13276}#)
8651 (call-with-values
8652 (lambda ()
8653 (#{gen-ref\ 13186}#
8654 #{src\ 13276}#
8655 #{var\ 13277}#
8656 (#{fx-\ 10609}# #{level\ 13278}# 1)
8657 (cdr #{maps\ 13279}#)))
8658 (lambda (#{outer-var\ 13284}# #{outer-maps\ 13285}#)
8659 (let ((#{b\ 13289}#
8660 (assq #{outer-var\ 13284}#
8661 (car #{maps\ 13279}#))))
8662 (if #{b\ 13289}#
8663 (values (cdr #{b\ 13289}#) #{maps\ 13279}#)
8664 (let ((#{inner-var\ 13291}#
8665 (#{gen-var\ 10819}# (quote tmp))))
8666 (values
8667 #{inner-var\ 13291}#
8668 (cons (cons (cons #{outer-var\ 13284}#
8669 #{inner-var\ 13291}#)
8670 (car #{maps\ 13279}#))
8671 #{outer-maps\ 13285}#)))))))))))
8672 (#{gen-syntax\ 13184}#
8673 (lambda (#{src\ 13292}#
8674 #{e\ 13293}#
8675 #{r\ 13294}#
8676 #{maps\ 13295}#
8677 #{ellipsis?\ 13296}#
8678 #{mod\ 13297}#)
8679 (if (#{id?\ 10706}# #{e\ 13293}#)
8680 (let ((#{label\ 13305}#
8681 (#{id-var-name\ 10763}#
8682 #{e\ 13293}#
8683 '(()))))
8684 (let ((#{b\ 13308}#
8685 (#{lookup\ 10700}#
8686 #{label\ 13305}#
8687 #{r\ 13294}#
8688 #{mod\ 13297}#)))
8689 (if (eq? (#{binding-type\ 10689}# #{b\ 13308}#)
8690 'syntax)
8691 (call-with-values
8692 (lambda ()
8693 (let ((#{var.lev\ 13310}#
8694 (#{binding-value\ 10691}#
8695 #{b\ 13308}#)))
8696 (#{gen-ref\ 13186}#
8697 #{src\ 13292}#
8698 (car #{var.lev\ 13310}#)
8699 (cdr #{var.lev\ 13310}#)
8700 #{maps\ 13295}#)))
8701 (lambda (#{var\ 13311}# #{maps\ 13312}#)
8702 (values
8703 (list (quote ref) #{var\ 13311}#)
8704 #{maps\ 13312}#)))
8705 (if (#{ellipsis?\ 13296}# #{e\ 13293}#)
8706 (syntax-violation
8707 'syntax
8708 "misplaced ellipsis"
8709 #{src\ 13292}#)
8710 (values
8711 (list (quote quote) #{e\ 13293}#)
8712 #{maps\ 13295}#)))))
8713 ((lambda (#{tmp\ 13317}#)
8714 ((lambda (#{tmp\ 13318}#)
8715 (if (if #{tmp\ 13318}#
8716 (apply (lambda (#{dots\ 13321}#
8717 #{e\ 13322}#)
8718 (#{ellipsis?\ 13296}#
8719 #{dots\ 13321}#))
8720 #{tmp\ 13318}#)
8721 #f)
8722 (apply (lambda (#{dots\ 13325}# #{e\ 13326}#)
8723 (#{gen-syntax\ 13184}#
8724 #{src\ 13292}#
8725 #{e\ 13326}#
8726 #{r\ 13294}#
8727 #{maps\ 13295}#
8728 (lambda (#{x\ 13327}#) #f)
8729 #{mod\ 13297}#))
8730 #{tmp\ 13318}#)
8731 ((lambda (#{tmp\ 13329}#)
8732 (if (if #{tmp\ 13329}#
8733 (apply (lambda (#{x\ 13333}#
8734 #{dots\ 13334}#
8735 #{y\ 13335}#)
8736 (#{ellipsis?\ 13296}#
8737 #{dots\ 13334}#))
8738 #{tmp\ 13329}#)
8739 #f)
8740 (apply (lambda (#{x\ 13339}#
8741 #{dots\ 13340}#
8742 #{y\ 13341}#)
8743 (letrec ((#{f\ 13345}#
8744 (lambda (#{y\ 13346}#
8745 #{k\ 13347}#)
8746 ((lambda (#{tmp\ 13354}#)
8747 ((lambda (#{tmp\ 13355}#)
8748 (if (if #{tmp\ 13355}#
8749 (apply (lambda (#{dots\ 13358}#
8750 #{y\ 13359}#)
8751 (#{ellipsis?\ 13296}#
8752 #{dots\ 13358}#))
8753 #{tmp\ 13355}#)
8754 #f)
8755 (apply (lambda (#{dots\ 13362}#
8756 #{y\ 13363}#)
8757 (#{f\ 13345}#
8758 #{y\ 13363}#
8759 (lambda (#{maps\ 13364}#)
8760 (call-with-values
8761 (lambda ()
8762 (#{k\ 13347}#
8763 (cons '()
8764 #{maps\ 13364}#)))
8765 (lambda (#{x\ 13366}#
8766 #{maps\ 13367}#)
8767 (if (null? (car #{maps\ 13367}#))
8768 (syntax-violation
8769 'syntax
8770 "extra ellipsis"
8771 #{src\ 13292}#)
8772 (values
8773 (#{gen-mappend\ 13188}#
8774 #{x\ 13366}#
8775 (car #{maps\ 13367}#))
8776 (cdr #{maps\ 13367}#))))))))
8777 #{tmp\ 13355}#)
8778 ((lambda (#{_\ 13371}#)
8779 (call-with-values
8780 (lambda ()
8781 (#{gen-syntax\ 13184}#
8782 #{src\ 13292}#
8783 #{y\ 13346}#
8784 #{r\ 13294}#
8785 #{maps\ 13295}#
8786 #{ellipsis?\ 13296}#
8787 #{mod\ 13297}#))
8788 (lambda (#{y\ 13372}#
8789 #{maps\ 13373}#)
8790 (call-with-values
8791 (lambda ()
8792 (#{k\ 13347}#
8793 #{maps\ 13373}#))
8794 (lambda (#{x\ 13376}#
8795 #{maps\ 13377}#)
8796 (values
8797 (#{gen-append\ 13194}#
8798 #{x\ 13376}#
8799 #{y\ 13372}#)
8800 #{maps\ 13377}#))))))
8801 #{tmp\ 13354}#)))
8802 ($sc-dispatch
8803 #{tmp\ 13354}#
8804 '(any . any))))
8805 #{y\ 13346}#))))
8806 (#{f\ 13345}#
8807 #{y\ 13341}#
8808 (lambda (#{maps\ 13348}#)
8809 (call-with-values
8810 (lambda ()
8811 (#{gen-syntax\ 13184}#
8812 #{src\ 13292}#
8813 #{x\ 13339}#
8814 #{r\ 13294}#
8815 (cons '()
8816 #{maps\ 13348}#)
8817 #{ellipsis?\ 13296}#
8818 #{mod\ 13297}#))
8819 (lambda (#{x\ 13350}#
8820 #{maps\ 13351}#)
8821 (if (null? (car #{maps\ 13351}#))
8822 (syntax-violation
8823 'syntax
8824 "extra ellipsis"
8825 #{src\ 13292}#)
8826 (values
8827 (#{gen-map\ 13190}#
8828 #{x\ 13350}#
8829 (car #{maps\ 13351}#))
8830 (cdr #{maps\ 13351}#)))))))))
8831 #{tmp\ 13329}#)
8832 ((lambda (#{tmp\ 13380}#)
8833 (if #{tmp\ 13380}#
8834 (apply (lambda (#{x\ 13383}#
8835 #{y\ 13384}#)
8836 (call-with-values
8837 (lambda ()
8838 (#{gen-syntax\ 13184}#
8839 #{src\ 13292}#
8840 #{x\ 13383}#
8841 #{r\ 13294}#
8842 #{maps\ 13295}#
8843 #{ellipsis?\ 13296}#
8844 #{mod\ 13297}#))
8845 (lambda (#{x\ 13385}#
8846 #{maps\ 13386}#)
8847 (call-with-values
8848 (lambda ()
8849 (#{gen-syntax\ 13184}#
8850 #{src\ 13292}#
8851 #{y\ 13384}#
8852 #{r\ 13294}#
8853 #{maps\ 13386}#
8854 #{ellipsis?\ 13296}#
8855 #{mod\ 13297}#))
8856 (lambda (#{y\ 13389}#
8857 #{maps\ 13390}#)
8858 (values
8859 (#{gen-cons\ 13192}#
8860 #{x\ 13385}#
8861 #{y\ 13389}#)
8862 #{maps\ 13390}#))))))
8863 #{tmp\ 13380}#)
8864 ((lambda (#{tmp\ 13393}#)
8865 (if #{tmp\ 13393}#
8866 (apply (lambda (#{e1\ 13396}#
8867 #{e2\ 13397}#)
8868 (call-with-values
8869 (lambda ()
8870 (#{gen-syntax\ 13184}#
8871 #{src\ 13292}#
8872 (cons #{e1\ 13396}#
8873 #{e2\ 13397}#)
8874 #{r\ 13294}#
8875 #{maps\ 13295}#
8876 #{ellipsis?\ 13296}#
8877 #{mod\ 13297}#))
8878 (lambda (#{e\ 13399}#
8879 #{maps\ 13400}#)
8880 (values
8881 (#{gen-vector\ 13196}#
8882 #{e\ 13399}#)
8883 #{maps\ 13400}#))))
8884 #{tmp\ 13393}#)
8885 ((lambda (#{_\ 13404}#)
8886 (values
8887 (list 'quote
8888 #{e\ 13293}#)
8889 #{maps\ 13295}#))
8890 #{tmp\ 13317}#)))
8891 ($sc-dispatch
8892 #{tmp\ 13317}#
8893 '#(vector (any . each-any))))))
8894 ($sc-dispatch
8895 #{tmp\ 13317}#
8896 '(any . any)))))
8897 ($sc-dispatch
8898 #{tmp\ 13317}#
8899 '(any any . any)))))
8900 ($sc-dispatch #{tmp\ 13317}# (quote (any any)))))
8901 #{e\ 13293}#)))))
8902 (lambda (#{e\ 13406}#
8903 #{r\ 13407}#
8904 #{w\ 13408}#
8905 #{s\ 13409}#
8906 #{mod\ 13410}#)
8907 (let ((#{e\ 13417}#
8908 (#{source-wrap\ 10777}#
8909 #{e\ 13406}#
8910 #{w\ 13408}#
8911 #{s\ 13409}#
8912 #{mod\ 13410}#)))
8913 ((lambda (#{tmp\ 13418}#)
8914 ((lambda (#{tmp\ 13419}#)
8915 (if #{tmp\ 13419}#
8916 (apply (lambda (#{_\ 13422}# #{x\ 13423}#)
8917 (call-with-values
8918 (lambda ()
8919 (#{gen-syntax\ 13184}#
8920 #{e\ 13417}#
8921 #{x\ 13423}#
8922 #{r\ 13407}#
8923 '()
8924 #{ellipsis?\ 10807}#
8925 #{mod\ 13410}#))
8926 (lambda (#{e\ 13424}# #{maps\ 13425}#)
8927 (#{regen\ 13198}# #{e\ 13424}#))))
8928 #{tmp\ 13419}#)
8929 ((lambda (#{_\ 13429}#)
8930 (syntax-violation
8931 'syntax
8932 "bad `syntax' form"
8933 #{e\ 13417}#))
8934 #{tmp\ 13418}#)))
8935 ($sc-dispatch #{tmp\ 13418}# (quote (any any)))))
8936 #{e\ 13417}#)))))
8937 (#{global-extend\ 10702}#
8938 'core
8939 'lambda
8940 (lambda (#{e\ 13430}#
8941 #{r\ 13431}#
8942 #{w\ 13432}#
8943 #{s\ 13433}#
8944 #{mod\ 13434}#)
8945 ((lambda (#{tmp\ 13440}#)
8946 ((lambda (#{tmp\ 13441}#)
8947 (if #{tmp\ 13441}#
8948 (apply (lambda (#{_\ 13446}#
8949 #{args\ 13447}#
8950 #{e1\ 13448}#
8951 #{e2\ 13449}#)
8952 (call-with-values
8953 (lambda ()
8954 (#{lambda-formals\ 10809}# #{args\ 13447}#))
8955 (lambda (#{req\ 13450}#
8956 #{opt\ 13451}#
8957 #{rest\ 13452}#
8958 #{kw\ 13453}#)
8959 (letrec ((#{lp\ 13461}#
8960 (lambda (#{body\ 13462}#
8961 #{meta\ 13463}#)
8962 ((lambda (#{tmp\ 13465}#)
8963 ((lambda (#{tmp\ 13466}#)
8964 (if (if #{tmp\ 13466}#
8965 (apply (lambda (#{docstring\ 13470}#
8966 #{e1\ 13471}#
8967 #{e2\ 13472}#)
8968 (string?
8969 (syntax->datum
8970 #{docstring\ 13470}#)))
8971 #{tmp\ 13466}#)
8972 #f)
8973 (apply (lambda (#{docstring\ 13476}#
8974 #{e1\ 13477}#
8975 #{e2\ 13478}#)
8976 (#{lp\ 13461}#
8977 (cons #{e1\ 13477}#
8978 #{e2\ 13478}#)
8979 (append
8980 #{meta\ 13463}#
8981 (list (cons 'documentation
8982 (syntax->datum
8983 #{docstring\ 13476}#))))))
8984 #{tmp\ 13466}#)
8985 ((lambda (#{tmp\ 13481}#)
8986 (if #{tmp\ 13481}#
8987 (apply (lambda (#{k\ 13486}#
8988 #{v\ 13487}#
8989 #{e1\ 13488}#
8990 #{e2\ 13489}#)
8991 (#{lp\ 13461}#
8992 (cons #{e1\ 13488}#
8993 #{e2\ 13489}#)
8994 (append
8995 #{meta\ 13463}#
8996 (syntax->datum
8997 (map cons
8998 #{k\ 13486}#
8999 #{v\ 13487}#)))))
9000 #{tmp\ 13481}#)
9001 ((lambda (#{_\ 13494}#)
9002 (#{chi-simple-lambda\ 10811}#
9003 #{e\ 13430}#
9004 #{r\ 13431}#
9005 #{w\ 13432}#
9006 #{s\ 13433}#
9007 #{mod\ 13434}#
9008 #{req\ 13450}#
9009 #{rest\ 13452}#
9010 #{meta\ 13463}#
9011 #{body\ 13462}#))
9012 #{tmp\ 13465}#)))
9013 ($sc-dispatch
9014 #{tmp\ 13465}#
9015 '(#(vector
9016 #(each (any . any)))
9017 any
9018 .
9019 each-any)))))
9020 ($sc-dispatch
9021 #{tmp\ 13465}#
9022 '(any any . each-any))))
9023 #{body\ 13462}#))))
9024 (#{lp\ 13461}#
9025 (cons #{e1\ 13448}# #{e2\ 13449}#)
9026 '())))))
9027 #{tmp\ 13441}#)
9028 ((lambda (#{_\ 13496}#)
9029 (syntax-violation
9030 'lambda
9031 "bad lambda"
9032 #{e\ 13430}#))
9033 #{tmp\ 13440}#)))
9034 ($sc-dispatch
9035 #{tmp\ 13440}#
9036 '(any any any . each-any))))
9037 #{e\ 13430}#)))
9038 (#{global-extend\ 10702}#
9039 'core
9040 'lambda*
9041 (lambda (#{e\ 13497}#
9042 #{r\ 13498}#
9043 #{w\ 13499}#
9044 #{s\ 13500}#
9045 #{mod\ 13501}#)
9046 ((lambda (#{tmp\ 13507}#)
9047 ((lambda (#{tmp\ 13508}#)
9048 (if #{tmp\ 13508}#
9049 (apply (lambda (#{_\ 13513}#
9050 #{args\ 13514}#
9051 #{e1\ 13515}#
9052 #{e2\ 13516}#)
9053 (call-with-values
9054 (lambda ()
9055 (#{chi-lambda-case\ 10815}#
9056 #{e\ 13497}#
9057 #{r\ 13498}#
9058 #{w\ 13499}#
9059 #{s\ 13500}#
9060 #{mod\ 13501}#
9061 #{lambda*-formals\ 10813}#
9062 (list (cons #{args\ 13514}#
9063 (cons #{e1\ 13515}#
9064 #{e2\ 13516}#)))))
9065 (lambda (#{meta\ 13518}# #{lcase\ 13519}#)
9066 (#{build-case-lambda\ 10650}#
9067 #{s\ 13500}#
9068 #{meta\ 13518}#
9069 #{lcase\ 13519}#))))
9070 #{tmp\ 13508}#)
9071 ((lambda (#{_\ 13523}#)
9072 (syntax-violation
9073 'lambda
9074 "bad lambda*"
9075 #{e\ 13497}#))
9076 #{tmp\ 13507}#)))
9077 ($sc-dispatch
9078 #{tmp\ 13507}#
9079 '(any any any . each-any))))
9080 #{e\ 13497}#)))
9081 (#{global-extend\ 10702}#
9082 'core
9083 'case-lambda
9084 (lambda (#{e\ 13524}#
9085 #{r\ 13525}#
9086 #{w\ 13526}#
9087 #{s\ 13527}#
9088 #{mod\ 13528}#)
9089 ((lambda (#{tmp\ 13534}#)
9090 ((lambda (#{tmp\ 13535}#)
9091 (if #{tmp\ 13535}#
9092 (apply (lambda (#{_\ 13543}#
9093 #{args\ 13544}#
9094 #{e1\ 13545}#
9095 #{e2\ 13546}#
9096 #{args*\ 13547}#
9097 #{e1*\ 13548}#
9098 #{e2*\ 13549}#)
9099 (call-with-values
9100 (lambda ()
9101 (#{chi-lambda-case\ 10815}#
9102 #{e\ 13524}#
9103 #{r\ 13525}#
9104 #{w\ 13526}#
9105 #{s\ 13527}#
9106 #{mod\ 13528}#
9107 #{lambda-formals\ 10809}#
9108 (cons (cons #{args\ 13544}#
9109 (cons #{e1\ 13545}#
9110 #{e2\ 13546}#))
9111 (map (lambda (#{tmp\ 13553}#
9112 #{tmp\ 13552}#
9113 #{tmp\ 13551}#)
9114 (cons #{tmp\ 13551}#
9115 (cons #{tmp\ 13552}#
9116 #{tmp\ 13553}#)))
9117 #{e2*\ 13549}#
9118 #{e1*\ 13548}#
9119 #{args*\ 13547}#))))
9120 (lambda (#{meta\ 13555}# #{lcase\ 13556}#)
9121 (#{build-case-lambda\ 10650}#
9122 #{s\ 13527}#
9123 #{meta\ 13555}#
9124 #{lcase\ 13556}#))))
9125 #{tmp\ 13535}#)
9126 ((lambda (#{_\ 13560}#)
9127 (syntax-violation
9128 'case-lambda
9129 "bad case-lambda"
9130 #{e\ 13524}#))
9131 #{tmp\ 13534}#)))
9132 ($sc-dispatch
9133 #{tmp\ 13534}#
9134 '(any (any any . each-any)
9135 .
9136 #(each (any any . each-any))))))
9137 #{e\ 13524}#)))
9138 (#{global-extend\ 10702}#
9139 'core
9140 'case-lambda*
9141 (lambda (#{e\ 13561}#
9142 #{r\ 13562}#
9143 #{w\ 13563}#
9144 #{s\ 13564}#
9145 #{mod\ 13565}#)
9146 ((lambda (#{tmp\ 13571}#)
9147 ((lambda (#{tmp\ 13572}#)
9148 (if #{tmp\ 13572}#
9149 (apply (lambda (#{_\ 13580}#
9150 #{args\ 13581}#
9151 #{e1\ 13582}#
9152 #{e2\ 13583}#
9153 #{args*\ 13584}#
9154 #{e1*\ 13585}#
9155 #{e2*\ 13586}#)
9156 (call-with-values
9157 (lambda ()
9158 (#{chi-lambda-case\ 10815}#
9159 #{e\ 13561}#
9160 #{r\ 13562}#
9161 #{w\ 13563}#
9162 #{s\ 13564}#
9163 #{mod\ 13565}#
9164 #{lambda*-formals\ 10813}#
9165 (cons (cons #{args\ 13581}#
9166 (cons #{e1\ 13582}#
9167 #{e2\ 13583}#))
9168 (map (lambda (#{tmp\ 13590}#
9169 #{tmp\ 13589}#
9170 #{tmp\ 13588}#)
9171 (cons #{tmp\ 13588}#
9172 (cons #{tmp\ 13589}#
9173 #{tmp\ 13590}#)))
9174 #{e2*\ 13586}#
9175 #{e1*\ 13585}#
9176 #{args*\ 13584}#))))
9177 (lambda (#{meta\ 13592}# #{lcase\ 13593}#)
9178 (#{build-case-lambda\ 10650}#
9179 #{s\ 13564}#
9180 #{meta\ 13592}#
9181 #{lcase\ 13593}#))))
9182 #{tmp\ 13572}#)
9183 ((lambda (#{_\ 13597}#)
9184 (syntax-violation
9185 'case-lambda
9186 "bad case-lambda*"
9187 #{e\ 13561}#))
9188 #{tmp\ 13571}#)))
9189 ($sc-dispatch
9190 #{tmp\ 13571}#
9191 '(any (any any . each-any)
9192 .
9193 #(each (any any . each-any))))))
9194 #{e\ 13561}#)))
9195 (#{global-extend\ 10702}#
9196 'core
9197 'let
9198 (letrec ((#{chi-let\ 13599}#
9199 (lambda (#{e\ 13600}#
9200 #{r\ 13601}#
9201 #{w\ 13602}#
9202 #{s\ 13603}#
9203 #{mod\ 13604}#
9204 #{constructor\ 13605}#
9205 #{ids\ 13606}#
9206 #{vals\ 13607}#
9207 #{exps\ 13608}#)
9208 (if (not (#{valid-bound-ids?\ 10769}# #{ids\ 13606}#))
9209 (syntax-violation
9210 'let
9211 "duplicate bound variable"
9212 #{e\ 13600}#)
9213 (let ((#{labels\ 13620}#
9214 (#{gen-labels\ 10724}# #{ids\ 13606}#))
9215 (#{new-vars\ 13621}#
9216 (map #{gen-var\ 10819}# #{ids\ 13606}#)))
9217 (let ((#{nw\ 13624}#
9218 (#{make-binding-wrap\ 10753}#
9219 #{ids\ 13606}#
9220 #{labels\ 13620}#
9221 #{w\ 13602}#))
9222 (#{nr\ 13625}#
9223 (#{extend-var-env\ 10696}#
9224 #{labels\ 13620}#
9225 #{new-vars\ 13621}#
9226 #{r\ 13601}#)))
9227 (#{constructor\ 13605}#
9228 #{s\ 13603}#
9229 (map syntax->datum #{ids\ 13606}#)
9230 #{new-vars\ 13621}#
9231 (map (lambda (#{x\ 13626}#)
9232 (#{chi\ 10791}#
9233 #{x\ 13626}#
9234 #{r\ 13601}#
9235 #{w\ 13602}#
9236 #{mod\ 13604}#))
9237 #{vals\ 13607}#)
9238 (#{chi-body\ 10799}#
9239 #{exps\ 13608}#
9240 (#{source-wrap\ 10777}#
9241 #{e\ 13600}#
9242 #{nw\ 13624}#
9243 #{s\ 13603}#
9244 #{mod\ 13604}#)
9245 #{nr\ 13625}#
9246 #{nw\ 13624}#
9247 #{mod\ 13604}#))))))))
9248 (lambda (#{e\ 13628}#
9249 #{r\ 13629}#
9250 #{w\ 13630}#
9251 #{s\ 13631}#
9252 #{mod\ 13632}#)
9253 ((lambda (#{tmp\ 13638}#)
9254 ((lambda (#{tmp\ 13639}#)
9255 (if (if #{tmp\ 13639}#
9256 (apply (lambda (#{_\ 13645}#
9257 #{id\ 13646}#
9258 #{val\ 13647}#
9259 #{e1\ 13648}#
9260 #{e2\ 13649}#)
9261 (and-map #{id?\ 10706}# #{id\ 13646}#))
9262 #{tmp\ 13639}#)
9263 #f)
9264 (apply (lambda (#{_\ 13656}#
9265 #{id\ 13657}#
9266 #{val\ 13658}#
9267 #{e1\ 13659}#
9268 #{e2\ 13660}#)
9269 (#{chi-let\ 13599}#
9270 #{e\ 13628}#
9271 #{r\ 13629}#
9272 #{w\ 13630}#
9273 #{s\ 13631}#
9274 #{mod\ 13632}#
9275 #{build-let\ 10660}#
9276 #{id\ 13657}#
9277 #{val\ 13658}#
9278 (cons #{e1\ 13659}# #{e2\ 13660}#)))
9279 #{tmp\ 13639}#)
9280 ((lambda (#{tmp\ 13664}#)
9281 (if (if #{tmp\ 13664}#
9282 (apply (lambda (#{_\ 13671}#
9283 #{f\ 13672}#
9284 #{id\ 13673}#
9285 #{val\ 13674}#
9286 #{e1\ 13675}#
9287 #{e2\ 13676}#)
9288 (if (#{id?\ 10706}# #{f\ 13672}#)
9289 (and-map #{id?\ 10706}# #{id\ 13673}#)
9290 #f))
9291 #{tmp\ 13664}#)
9292 #f)
9293 (apply (lambda (#{_\ 13686}#
9294 #{f\ 13687}#
9295 #{id\ 13688}#
9296 #{val\ 13689}#
9297 #{e1\ 13690}#
9298 #{e2\ 13691}#)
9299 (#{chi-let\ 13599}#
9300 #{e\ 13628}#
9301 #{r\ 13629}#
9302 #{w\ 13630}#
9303 #{s\ 13631}#
9304 #{mod\ 13632}#
9305 #{build-named-let\ 10662}#
9306 (cons #{f\ 13687}# #{id\ 13688}#)
9307 #{val\ 13689}#
9308 (cons #{e1\ 13690}# #{e2\ 13691}#)))
9309 #{tmp\ 13664}#)
9310 ((lambda (#{_\ 13696}#)
9311 (syntax-violation
9312 'let
9313 "bad let"
9314 (#{source-wrap\ 10777}#
9315 #{e\ 13628}#
9316 #{w\ 13630}#
9317 #{s\ 13631}#
9318 #{mod\ 13632}#)))
9319 #{tmp\ 13638}#)))
9320 ($sc-dispatch
9321 #{tmp\ 13638}#
9322 '(any any #(each (any any)) any . each-any)))))
9323 ($sc-dispatch
9324 #{tmp\ 13638}#
9325 '(any #(each (any any)) any . each-any))))
9326 #{e\ 13628}#))))
9327 (#{global-extend\ 10702}#
9328 'core
9329 'letrec
9330 (lambda (#{e\ 13697}#
9331 #{r\ 13698}#
9332 #{w\ 13699}#
9333 #{s\ 13700}#
9334 #{mod\ 13701}#)
9335 ((lambda (#{tmp\ 13707}#)
9336 ((lambda (#{tmp\ 13708}#)
9337 (if (if #{tmp\ 13708}#
9338 (apply (lambda (#{_\ 13714}#
9339 #{id\ 13715}#
9340 #{val\ 13716}#
9341 #{e1\ 13717}#
9342 #{e2\ 13718}#)
9343 (and-map #{id?\ 10706}# #{id\ 13715}#))
9344 #{tmp\ 13708}#)
9345 #f)
9346 (apply (lambda (#{_\ 13725}#
9347 #{id\ 13726}#
9348 #{val\ 13727}#
9349 #{e1\ 13728}#
9350 #{e2\ 13729}#)
9351 (let ((#{ids\ 13731}# #{id\ 13726}#))
9352 (if (not (#{valid-bound-ids?\ 10769}#
9353 #{ids\ 13731}#))
9354 (syntax-violation
9355 'letrec
9356 "duplicate bound variable"
9357 #{e\ 13697}#)
9358 (let ((#{labels\ 13735}#
9359 (#{gen-labels\ 10724}# #{ids\ 13731}#))
9360 (#{new-vars\ 13736}#
9361 (map #{gen-var\ 10819}#
9362 #{ids\ 13731}#)))
9363 (let ((#{w\ 13739}#
9364 (#{make-binding-wrap\ 10753}#
9365 #{ids\ 13731}#
9366 #{labels\ 13735}#
9367 #{w\ 13699}#))
9368 (#{r\ 13740}#
9369 (#{extend-var-env\ 10696}#
9370 #{labels\ 13735}#
9371 #{new-vars\ 13736}#
9372 #{r\ 13698}#)))
9373 (#{build-letrec\ 10664}#
9374 #{s\ 13700}#
9375 (map syntax->datum #{ids\ 13731}#)
9376 #{new-vars\ 13736}#
9377 (map (lambda (#{x\ 13741}#)
9378 (#{chi\ 10791}#
9379 #{x\ 13741}#
9380 #{r\ 13740}#
9381 #{w\ 13739}#
9382 #{mod\ 13701}#))
9383 #{val\ 13727}#)
9384 (#{chi-body\ 10799}#
9385 (cons #{e1\ 13728}# #{e2\ 13729}#)
9386 (#{source-wrap\ 10777}#
9387 #{e\ 13697}#
9388 #{w\ 13739}#
9389 #{s\ 13700}#
9390 #{mod\ 13701}#)
9391 #{r\ 13740}#
9392 #{w\ 13739}#
9393 #{mod\ 13701}#)))))))
9394 #{tmp\ 13708}#)
9395 ((lambda (#{_\ 13746}#)
9396 (syntax-violation
9397 'letrec
9398 "bad letrec"
9399 (#{source-wrap\ 10777}#
9400 #{e\ 13697}#
9401 #{w\ 13699}#
9402 #{s\ 13700}#
9403 #{mod\ 13701}#)))
9404 #{tmp\ 13707}#)))
9405 ($sc-dispatch
9406 #{tmp\ 13707}#
9407 '(any #(each (any any)) any . each-any))))
9408 #{e\ 13697}#)))
9409 (#{global-extend\ 10702}#
9410 'core
9411 'set!
9412 (lambda (#{e\ 13747}#
9413 #{r\ 13748}#
9414 #{w\ 13749}#
9415 #{s\ 13750}#
9416 #{mod\ 13751}#)
9417 ((lambda (#{tmp\ 13757}#)
9418 ((lambda (#{tmp\ 13758}#)
9419 (if (if #{tmp\ 13758}#
9420 (apply (lambda (#{_\ 13762}#
9421 #{id\ 13763}#
9422 #{val\ 13764}#)
9423 (#{id?\ 10706}# #{id\ 13763}#))
9424 #{tmp\ 13758}#)
9425 #f)
9426 (apply (lambda (#{_\ 13768}# #{id\ 13769}# #{val\ 13770}#)
9427 (let ((#{val\ 13773}#
9428 (#{chi\ 10791}#
9429 #{val\ 13770}#
9430 #{r\ 13748}#
9431 #{w\ 13749}#
9432 #{mod\ 13751}#))
9433 (#{n\ 13774}#
9434 (#{id-var-name\ 10763}#
9435 #{id\ 13769}#
9436 #{w\ 13749}#)))
9437 (let ((#{b\ 13776}#
9438 (#{lookup\ 10700}#
9439 #{n\ 13774}#
9440 #{r\ 13748}#
9441 #{mod\ 13751}#)))
9442 (let ((#{atom-key\ 13779}#
9443 (#{binding-type\ 10689}# #{b\ 13776}#)))
9444 (if (memv #{atom-key\ 13779}#
9445 '(lexical))
9446 (#{build-lexical-assignment\ 10636}#
9447 #{s\ 13750}#
9448 (syntax->datum #{id\ 13769}#)
9449 (#{binding-value\ 10691}# #{b\ 13776}#)
9450 #{val\ 13773}#)
9451 (if (memv #{atom-key\ 13779}#
9452 '(global))
9453 (#{build-global-assignment\ 10642}#
9454 #{s\ 13750}#
9455 #{n\ 13774}#
9456 #{val\ 13773}#
9457 #{mod\ 13751}#)
9458 (if (memv #{atom-key\ 13779}#
9459 '(displaced-lexical))
9460 (syntax-violation
9461 'set!
9462 "identifier out of context"
9463 (#{wrap\ 10775}#
9464 #{id\ 13769}#
9465 #{w\ 13749}#
9466 #{mod\ 13751}#))
9467 (syntax-violation
9468 'set!
9469 "bad set!"
9470 (#{source-wrap\ 10777}#
9471 #{e\ 13747}#
9472 #{w\ 13749}#
9473 #{s\ 13750}#
9474 #{mod\ 13751}#)))))))))
9475 #{tmp\ 13758}#)
9476 ((lambda (#{tmp\ 13784}#)
9477 (if #{tmp\ 13784}#
9478 (apply (lambda (#{_\ 13789}#
9479 #{head\ 13790}#
9480 #{tail\ 13791}#
9481 #{val\ 13792}#)
9482 (call-with-values
9483 (lambda ()
9484 (#{syntax-type\ 10787}#
9485 #{head\ 13790}#
9486 #{r\ 13748}#
9487 '(())
9488 #f
9489 #f
9490 #{mod\ 13751}#
9491 #t))
9492 (lambda (#{type\ 13795}#
9493 #{value\ 13796}#
9494 #{ee\ 13797}#
9495 #{ww\ 13798}#
9496 #{ss\ 13799}#
9497 #{modmod\ 13800}#)
9498 (if (memv #{type\ 13795}#
9499 '(module-ref))
9500 (let ((#{val\ 13809}#
9501 (#{chi\ 10791}#
9502 #{val\ 13792}#
9503 #{r\ 13748}#
9504 #{w\ 13749}#
9505 #{mod\ 13751}#)))
9506 (call-with-values
9507 (lambda ()
9508 (#{value\ 13796}#
9509 (cons #{head\ 13790}#
9510 #{tail\ 13791}#)
9511 #{r\ 13748}#
9512 #{w\ 13749}#))
9513 (lambda (#{e\ 13811}#
9514 #{r\ 13812}#
9515 #{w\ 13813}#
9516 #{s*\ 13814}#
9517 #{mod\ 13815}#)
9518 ((lambda (#{tmp\ 13821}#)
9519 ((lambda (#{tmp\ 13822}#)
9520 (if (if #{tmp\ 13822}#
9521 (apply (lambda (#{e\ 13824}#)
9522 (#{id?\ 10706}#
9523 #{e\ 13824}#))
9524 #{tmp\ 13822}#)
9525 #f)
9526 (apply (lambda (#{e\ 13826}#)
9527 (#{build-global-assignment\ 10642}#
9528 #{s\ 13750}#
9529 (syntax->datum
9530 #{e\ 13826}#)
9531 #{val\ 13809}#
9532 #{mod\ 13815}#))
9533 #{tmp\ 13822}#)
9534 (syntax-violation
9535 #f
9536 "source expression failed to match any pattern"
9537 #{tmp\ 13821}#)))
9538 (list #{tmp\ 13821}#)))
9539 #{e\ 13811}#))))
9540 (#{build-application\ 10628}#
9541 #{s\ 13750}#
9542 (#{chi\ 10791}#
9543 (list '#(syntax-object
9544 setter
9545 ((top)
9546 #(ribcage () () ())
9547 #(ribcage () () ())
9548 #(ribcage
9549 #(type
9550 value
9551 ee
9552 ww
9553 ss
9554 modmod)
9555 #((top)
9556 (top)
9557 (top)
9558 (top)
9559 (top)
9560 (top))
9561 #("i13801"
9562 "i13802"
9563 "i13803"
9564 "i13804"
9565 "i13805"
9566 "i13806"))
9567 #(ribcage
9568 #(_ head tail val)
9569 #((top)
9570 (top)
9571 (top)
9572 (top))
9573 #("i13785"
9574 "i13786"
9575 "i13787"
9576 "i13788"))
9577 #(ribcage () () ())
9578 #(ribcage
9579 #(e r w s mod)
9580 #((top)
9581 (top)
9582 (top)
9583 (top)
9584 (top))
9585 #("i13752"
9586 "i13753"
9587 "i13754"
9588 "i13755"
9589 "i13756"))
9590 #(ribcage
9591 (lambda-var-list
9592 gen-var
9593 strip
9594 chi-lambda-case
9595 lambda*-formals
9596 chi-simple-lambda
9597 lambda-formals
9598 ellipsis?
9599 chi-void
9600 eval-local-transformer
9601 chi-local-syntax
9602 chi-body
9603 chi-macro
9604 chi-application
9605 chi-expr
9606 chi
9607 chi-top
9608 syntax-type
9609 chi-when-list
9610 chi-install-global
9611 chi-top-sequence
9612 chi-sequence
9613 source-wrap
9614 wrap
9615 bound-id-member?
9616 distinct-bound-ids?
9617 valid-bound-ids?
9618 bound-id=?
9619 free-id=?
9620 id-var-name
9621 same-marks?
9622 join-marks
9623 join-wraps
9624 smart-append
9625 make-binding-wrap
9626 extend-ribcage!
9627 make-empty-ribcage
9628 new-mark
9629 anti-mark
9630 the-anti-mark
9631 top-marked?
9632 top-wrap
9633 empty-wrap
9634 set-ribcage-labels!
9635 set-ribcage-marks!
9636 set-ribcage-symnames!
9637 ribcage-labels
9638 ribcage-marks
9639 ribcage-symnames
9640 ribcage?
9641 make-ribcage
9642 gen-labels
9643 gen-label
9644 make-rename
9645 rename-marks
9646 rename-new
9647 rename-old
9648 subst-rename?
9649 wrap-subst
9650 wrap-marks
9651 make-wrap
9652 id-sym-name&marks
9653 id-sym-name
9654 id?
9655 nonsymbol-id?
9656 global-extend
9657 lookup
9658 macros-only-env
9659 extend-var-env
9660 extend-env
9661 null-env
9662 binding-value
9663 binding-type
9664 make-binding
9665 arg-check
9666 source-annotation
9667 no-source
9668 set-syntax-object-module!
9669 set-syntax-object-wrap!
9670 set-syntax-object-expression!
9671 syntax-object-module
9672 syntax-object-wrap
9673 syntax-object-expression
9674 syntax-object?
9675 make-syntax-object
9676 build-lexical-var
9677 build-letrec
9678 build-named-let
9679 build-let
9680 build-sequence
9681 build-data
9682 build-primref
9683 build-lambda-case
9684 build-case-lambda
9685 build-simple-lambda
9686 build-global-definition
9687 maybe-name-value!
9688 build-global-assignment
9689 build-global-reference
9690 analyze-variable
9691 build-lexical-assignment
9692 build-lexical-reference
9693 build-dynlet
9694 build-conditional
9695 build-application
9696 build-void
9697 decorate-source
9698 get-global-definition-hook
9699 put-global-definition-hook
9700 gensym-hook
9701 local-eval-hook
9702 top-level-eval-hook
9703 fx<
9704 fx=
9705 fx-
9706 fx+
9707 *mode*
9708 noexpand)
9709 ((top)
9710 (top)
9711 (top)
9712 (top)
9713 (top)
9714 (top)
9715 (top)
9716 (top)
9717 (top)
9718 (top)
9719 (top)
9720 (top)
9721 (top)
9722 (top)
9723 (top)
9724 (top)
9725 (top)
9726 (top)
9727 (top)
9728 (top)
9729 (top)
9730 (top)
9731 (top)
9732 (top)
9733 (top)
9734 (top)
9735 (top)
9736 (top)
9737 (top)
9738 (top)
9739 (top)
9740 (top)
9741 (top)
9742 (top)
9743 (top)
9744 (top)
9745 (top)
9746 (top)
9747 (top)
9748 (top)
9749 (top)
9750 (top)
9751 (top)
9752 (top)
9753 (top)
9754 (top)
9755 (top)
9756 (top)
9757 (top)
9758 (top)
9759 (top)
9760 (top)
9761 (top)
9762 (top)
9763 (top)
9764 (top)
9765 (top)
9766 (top)
9767 (top)
9768 (top)
9769 (top)
9770 (top)
9771 (top)
9772 (top)
9773 (top)
9774 (top)
9775 (top)
9776 (top)
9777 (top)
9778 (top)
9779 (top)
9780 (top)
9781 (top)
9782 (top)
9783 (top)
9784 (top)
9785 (top)
9786 (top)
9787 (top)
9788 (top)
9789 (top)
9790 (top)
9791 (top)
9792 (top)
9793 (top)
9794 (top)
9795 (top)
9796 (top)
9797 (top)
9798 (top)
9799 (top)
9800 (top)
9801 (top)
9802 (top)
9803 (top)
9804 (top)
9805 (top)
9806 (top)
9807 (top)
9808 (top)
9809 (top)
9810 (top)
9811 (top)
9812 (top)
9813 (top)
9814 (top)
9815 (top)
9816 (top)
9817 (top)
9818 (top)
9819 (top)
9820 (top)
9821 (top)
9822 (top)
9823 (top)
9824 (top)
9825 (top)
9826 (top))
9827 ("i10820"
9828 "i10818"
9829 "i10816"
9830 "i10814"
9831 "i10812"
9832 "i10810"
9833 "i10808"
9834 "i10806"
9835 "i10804"
9836 "i10802"
9837 "i10800"
9838 "i10798"
9839 "i10796"
9840 "i10794"
9841 "i10792"
9842 "i10790"
9843 "i10788"
9844 "i10786"
9845 "i10784"
9846 "i10782"
9847 "i10780"
9848 "i10778"
9849 "i10776"
9850 "i10774"
9851 "i10772"
9852 "i10770"
9853 "i10768"
9854 "i10766"
9855 "i10764"
9856 "i10762"
9857 "i10760"
9858 "i10758"
9859 "i10756"
9860 "i10754"
9861 "i10752"
9862 "i10750"
9863 "i10749"
9864 "i10748"
9865 "i10746"
9866 "i10745"
9867 "i10744"
9868 "i10743"
9869 "i10742"
9870 "i10740"
9871 "i10738"
9872 "i10736"
9873 "i10734"
9874 "i10732"
9875 "i10730"
9876 "i10728"
9877 "i10726"
9878 "i10723"
9879 "i10721"
9880 "i10720"
9881 "i10719"
9882 "i10718"
9883 "i10717"
9884 "i10716"
9885 "i10714"
9886 "i10712"
9887 "i10710"
9888 "i10708"
9889 "i10707"
9890 "i10705"
9891 "i10703"
9892 "i10701"
9893 "i10699"
9894 "i10697"
9895 "i10695"
9896 "i10693"
9897 "i10692"
9898 "i10690"
9899 "i10688"
9900 "i10687"
9901 "i10686"
9902 "i10684"
9903 "i10683"
9904 "i10681"
9905 "i10679"
9906 "i10677"
9907 "i10675"
9908 "i10673"
9909 "i10671"
9910 "i10669"
9911 "i10667"
9912 "i10665"
9913 "i10663"
9914 "i10661"
9915 "i10659"
9916 "i10657"
9917 "i10655"
9918 "i10653"
9919 "i10651"
9920 "i10649"
9921 "i10647"
9922 "i10645"
9923 "i10643"
9924 "i10641"
9925 "i10639"
9926 "i10637"
9927 "i10635"
9928 "i10633"
9929 "i10631"
9930 "i10629"
9931 "i10627"
9932 "i10625"
9933 "i10623"
9934 "i10621"
9935 "i10619"
9936 "i10618"
9937 "i10616"
9938 "i10614"
9939 "i10612"
9940 "i10610"
9941 "i10608"
9942 "i10606"
9943 "i10604"
9944 "i10602"))
9945 #(ribcage
9946 (define-structure
9947 and-map*)
9948 ((top) (top))
9949 ("i10505" "i10503")))
9950 (hygiene guile))
9951 #{head\ 13790}#)
9952 #{r\ 13748}#
9953 #{w\ 13749}#
9954 #{mod\ 13751}#)
9955 (map (lambda (#{e\ 13828}#)
9956 (#{chi\ 10791}#
9957 #{e\ 13828}#
9958 #{r\ 13748}#
9959 #{w\ 13749}#
9960 #{mod\ 13751}#))
9961 (append
9962 #{tail\ 13791}#
9963 (list #{val\ 13792}#))))))))
9964 #{tmp\ 13784}#)
9965 ((lambda (#{_\ 13832}#)
9966 (syntax-violation
9967 'set!
9968 "bad set!"
9969 (#{source-wrap\ 10777}#
9970 #{e\ 13747}#
9971 #{w\ 13749}#
9972 #{s\ 13750}#
9973 #{mod\ 13751}#)))
9974 #{tmp\ 13757}#)))
9975 ($sc-dispatch
9976 #{tmp\ 13757}#
9977 '(any (any . each-any) any)))))
9978 ($sc-dispatch
9979 #{tmp\ 13757}#
9980 '(any any any))))
9981 #{e\ 13747}#)))
9982 (#{global-extend\ 10702}#
9983 'module-ref
9984 '@
9985 (lambda (#{e\ 13833}# #{r\ 13834}# #{w\ 13835}#)
9986 ((lambda (#{tmp\ 13839}#)
9987 ((lambda (#{tmp\ 13840}#)
9988 (if (if #{tmp\ 13840}#
9989 (apply (lambda (#{_\ 13844}#
9990 #{mod\ 13845}#
9991 #{id\ 13846}#)
9992 (if (and-map #{id?\ 10706}# #{mod\ 13845}#)
9993 (#{id?\ 10706}# #{id\ 13846}#)
9994 #f))
9995 #{tmp\ 13840}#)
9996 #f)
9997 (apply (lambda (#{_\ 13853}# #{mod\ 13854}# #{id\ 13855}#)
9998 (values
9999 (syntax->datum #{id\ 13855}#)
10000 #{r\ 13834}#
10001 #{w\ 13835}#
10002 #f
10003 (syntax->datum
10004 (cons '#(syntax-object
10005 public
10006 ((top)
10007 #(ribcage
10008 #(_ mod id)
10009 #((top) (top) (top))
10010 #("i13850" "i13851" "i13852"))
10011 #(ribcage () () ())
10012 #(ribcage
10013 #(e r w)
10014 #((top) (top) (top))
10015 #("i13836" "i13837" "i13838"))
10016 #(ribcage
10017 (lambda-var-list
10018 gen-var
10019 strip
10020 chi-lambda-case
10021 lambda*-formals
10022 chi-simple-lambda
10023 lambda-formals
10024 ellipsis?
10025 chi-void
10026 eval-local-transformer
10027 chi-local-syntax
10028 chi-body
10029 chi-macro
10030 chi-application
10031 chi-expr
10032 chi
10033 chi-top
10034 syntax-type
10035 chi-when-list
10036 chi-install-global
10037 chi-top-sequence
10038 chi-sequence
10039 source-wrap
10040 wrap
10041 bound-id-member?
10042 distinct-bound-ids?
10043 valid-bound-ids?
10044 bound-id=?
10045 free-id=?
10046 id-var-name
10047 same-marks?
10048 join-marks
10049 join-wraps
10050 smart-append
10051 make-binding-wrap
10052 extend-ribcage!
10053 make-empty-ribcage
10054 new-mark
10055 anti-mark
10056 the-anti-mark
10057 top-marked?
10058 top-wrap
10059 empty-wrap
10060 set-ribcage-labels!
10061 set-ribcage-marks!
10062 set-ribcage-symnames!
10063 ribcage-labels
10064 ribcage-marks
10065 ribcage-symnames
10066 ribcage?
10067 make-ribcage
10068 gen-labels
10069 gen-label
10070 make-rename
10071 rename-marks
10072 rename-new
10073 rename-old
10074 subst-rename?
10075 wrap-subst
10076 wrap-marks
10077 make-wrap
10078 id-sym-name&marks
10079 id-sym-name
10080 id?
10081 nonsymbol-id?
10082 global-extend
10083 lookup
10084 macros-only-env
10085 extend-var-env
10086 extend-env
10087 null-env
10088 binding-value
10089 binding-type
10090 make-binding
10091 arg-check
10092 source-annotation
10093 no-source
10094 set-syntax-object-module!
10095 set-syntax-object-wrap!
10096 set-syntax-object-expression!
10097 syntax-object-module
10098 syntax-object-wrap
10099 syntax-object-expression
10100 syntax-object?
10101 make-syntax-object
10102 build-lexical-var
10103 build-letrec
10104 build-named-let
10105 build-let
10106 build-sequence
10107 build-data
10108 build-primref
10109 build-lambda-case
10110 build-case-lambda
10111 build-simple-lambda
10112 build-global-definition
10113 maybe-name-value!
10114 build-global-assignment
10115 build-global-reference
10116 analyze-variable
10117 build-lexical-assignment
10118 build-lexical-reference
10119 build-dynlet
10120 build-conditional
10121 build-application
10122 build-void
10123 decorate-source
10124 get-global-definition-hook
10125 put-global-definition-hook
10126 gensym-hook
10127 local-eval-hook
10128 top-level-eval-hook
10129 fx<
10130 fx=
10131 fx-
10132 fx+
10133 *mode*
10134 noexpand)
10135 ((top)
10136 (top)
10137 (top)
10138 (top)
10139 (top)
10140 (top)
10141 (top)
10142 (top)
10143 (top)
10144 (top)
10145 (top)
10146 (top)
10147 (top)
10148 (top)
10149 (top)
10150 (top)
10151 (top)
10152 (top)
10153 (top)
10154 (top)
10155 (top)
10156 (top)
10157 (top)
10158 (top)
10159 (top)
10160 (top)
10161 (top)
10162 (top)
10163 (top)
10164 (top)
10165 (top)
10166 (top)
10167 (top)
10168 (top)
10169 (top)
10170 (top)
10171 (top)
10172 (top)
10173 (top)
10174 (top)
10175 (top)
10176 (top)
10177 (top)
10178 (top)
10179 (top)
10180 (top)
10181 (top)
10182 (top)
10183 (top)
10184 (top)
10185 (top)
10186 (top)
10187 (top)
10188 (top)
10189 (top)
10190 (top)
10191 (top)
10192 (top)
10193 (top)
10194 (top)
10195 (top)
10196 (top)
10197 (top)
10198 (top)
10199 (top)
10200 (top)
10201 (top)
10202 (top)
10203 (top)
10204 (top)
10205 (top)
10206 (top)
10207 (top)
10208 (top)
10209 (top)
10210 (top)
10211 (top)
10212 (top)
10213 (top)
10214 (top)
10215 (top)
10216 (top)
10217 (top)
10218 (top)
10219 (top)
10220 (top)
10221 (top)
10222 (top)
10223 (top)
10224 (top)
10225 (top)
10226 (top)
10227 (top)
10228 (top)
10229 (top)
10230 (top)
10231 (top)
10232 (top)
10233 (top)
10234 (top)
10235 (top)
10236 (top)
10237 (top)
10238 (top)
10239 (top)
10240 (top)
10241 (top)
10242 (top)
10243 (top)
10244 (top)
10245 (top)
10246 (top)
10247 (top)
10248 (top)
10249 (top)
10250 (top)
10251 (top)
10252 (top))
10253 ("i10820"
10254 "i10818"
10255 "i10816"
10256 "i10814"
10257 "i10812"
10258 "i10810"
10259 "i10808"
10260 "i10806"
10261 "i10804"
10262 "i10802"
10263 "i10800"
10264 "i10798"
10265 "i10796"
10266 "i10794"
10267 "i10792"
10268 "i10790"
10269 "i10788"
10270 "i10786"
10271 "i10784"
10272 "i10782"
10273 "i10780"
10274 "i10778"
10275 "i10776"
10276 "i10774"
10277 "i10772"
10278 "i10770"
10279 "i10768"
10280 "i10766"
10281 "i10764"
10282 "i10762"
10283 "i10760"
10284 "i10758"
10285 "i10756"
10286 "i10754"
10287 "i10752"
10288 "i10750"
10289 "i10749"
10290 "i10748"
10291 "i10746"
10292 "i10745"
10293 "i10744"
10294 "i10743"
10295 "i10742"
10296 "i10740"
10297 "i10738"
10298 "i10736"
10299 "i10734"
10300 "i10732"
10301 "i10730"
10302 "i10728"
10303 "i10726"
10304 "i10723"
10305 "i10721"
10306 "i10720"
10307 "i10719"
10308 "i10718"
10309 "i10717"
10310 "i10716"
10311 "i10714"
10312 "i10712"
10313 "i10710"
10314 "i10708"
10315 "i10707"
10316 "i10705"
10317 "i10703"
10318 "i10701"
10319 "i10699"
10320 "i10697"
10321 "i10695"
10322 "i10693"
10323 "i10692"
10324 "i10690"
10325 "i10688"
10326 "i10687"
10327 "i10686"
10328 "i10684"
10329 "i10683"
10330 "i10681"
10331 "i10679"
10332 "i10677"
10333 "i10675"
10334 "i10673"
10335 "i10671"
10336 "i10669"
10337 "i10667"
10338 "i10665"
10339 "i10663"
10340 "i10661"
10341 "i10659"
10342 "i10657"
10343 "i10655"
10344 "i10653"
10345 "i10651"
10346 "i10649"
10347 "i10647"
10348 "i10645"
10349 "i10643"
10350 "i10641"
10351 "i10639"
10352 "i10637"
10353 "i10635"
10354 "i10633"
10355 "i10631"
10356 "i10629"
10357 "i10627"
10358 "i10625"
10359 "i10623"
10360 "i10621"
10361 "i10619"
10362 "i10618"
10363 "i10616"
10364 "i10614"
10365 "i10612"
10366 "i10610"
10367 "i10608"
10368 "i10606"
10369 "i10604"
10370 "i10602"))
10371 #(ribcage
10372 (define-structure and-map*)
10373 ((top) (top))
10374 ("i10505" "i10503")))
10375 (hygiene guile))
10376 #{mod\ 13854}#))))
10377 #{tmp\ 13840}#)
10378 (syntax-violation
10379 #f
10380 "source expression failed to match any pattern"
10381 #{tmp\ 13839}#)))
10382 ($sc-dispatch
10383 #{tmp\ 13839}#
10384 '(any each-any any))))
10385 #{e\ 13833}#)))
10386 (#{global-extend\ 10702}#
10387 'module-ref
10388 '@@
10389 (lambda (#{e\ 13857}# #{r\ 13858}# #{w\ 13859}#)
10390 (letrec ((#{remodulate\ 13864}#
10391 (lambda (#{x\ 13865}# #{mod\ 13866}#)
10392 (if (pair? #{x\ 13865}#)
10393 (cons (#{remodulate\ 13864}#
10394 (car #{x\ 13865}#)
10395 #{mod\ 13866}#)
10396 (#{remodulate\ 13864}#
10397 (cdr #{x\ 13865}#)
10398 #{mod\ 13866}#))
10399 (if (#{syntax-object?\ 10670}# #{x\ 13865}#)
10400 (#{make-syntax-object\ 10668}#
10401 (#{remodulate\ 13864}#
10402 (#{syntax-object-expression\ 10672}#
10403 #{x\ 13865}#)
10404 #{mod\ 13866}#)
10405 (#{syntax-object-wrap\ 10674}# #{x\ 13865}#)
10406 #{mod\ 13866}#)
10407 (if (vector? #{x\ 13865}#)
10408 (let ((#{n\ 13877}# (vector-length #{x\ 13865}#)))
10409 (let ((#{v\ 13879}# (make-vector #{n\ 13877}#)))
10410 (letrec ((#{loop\ 13882}#
10411 (lambda (#{i\ 13883}#)
10412 (if (#{fx=\ 10611}#
10413 #{i\ 13883}#
10414 #{n\ 13877}#)
10415 (begin (if #f #f) #{v\ 13879}#)
10416 (begin
10417 (vector-set!
10418 #{v\ 13879}#
10419 #{i\ 13883}#
10420 (#{remodulate\ 13864}#
10421 (vector-ref
10422 #{x\ 13865}#
10423 #{i\ 13883}#)
10424 #{mod\ 13866}#))
10425 (#{loop\ 13882}#
10426 (#{fx+\ 10607}#
10427 #{i\ 13883}#
10428 1)))))))
10429 (#{loop\ 13882}# 0))))
10430 #{x\ 13865}#))))))
10431 ((lambda (#{tmp\ 13887}#)
10432 ((lambda (#{tmp\ 13888}#)
10433 (if (if #{tmp\ 13888}#
10434 (apply (lambda (#{_\ 13892}#
10435 #{mod\ 13893}#
10436 #{exp\ 13894}#)
10437 (and-map #{id?\ 10706}# #{mod\ 13893}#))
10438 #{tmp\ 13888}#)
10439 #f)
10440 (apply (lambda (#{_\ 13899}# #{mod\ 13900}# #{exp\ 13901}#)
10441 (let ((#{mod\ 13903}#
10442 (syntax->datum
10443 (cons '#(syntax-object
10444 private
10445 ((top)
10446 #(ribcage
10447 #(_ mod exp)
10448 #((top) (top) (top))
10449 #("i13896"
10450 "i13897"
10451 "i13898"))
10452 #(ribcage
10453 (remodulate)
10454 ((top))
10455 ("i13863"))
10456 #(ribcage
10457 #(e r w)
10458 #((top) (top) (top))
10459 #("i13860"
10460 "i13861"
10461 "i13862"))
10462 #(ribcage
10463 (lambda-var-list
10464 gen-var
10465 strip
10466 chi-lambda-case
10467 lambda*-formals
10468 chi-simple-lambda
10469 lambda-formals
10470 ellipsis?
10471 chi-void
10472 eval-local-transformer
10473 chi-local-syntax
10474 chi-body
10475 chi-macro
10476 chi-application
10477 chi-expr
10478 chi
10479 chi-top
10480 syntax-type
10481 chi-when-list
10482 chi-install-global
10483 chi-top-sequence
10484 chi-sequence
10485 source-wrap
10486 wrap
10487 bound-id-member?
10488 distinct-bound-ids?
10489 valid-bound-ids?
10490 bound-id=?
10491 free-id=?
10492 id-var-name
10493 same-marks?
10494 join-marks
10495 join-wraps
10496 smart-append
10497 make-binding-wrap
10498 extend-ribcage!
10499 make-empty-ribcage
10500 new-mark
10501 anti-mark
10502 the-anti-mark
10503 top-marked?
10504 top-wrap
10505 empty-wrap
10506 set-ribcage-labels!
10507 set-ribcage-marks!
10508 set-ribcage-symnames!
10509 ribcage-labels
10510 ribcage-marks
10511 ribcage-symnames
10512 ribcage?
10513 make-ribcage
10514 gen-labels
10515 gen-label
10516 make-rename
10517 rename-marks
10518 rename-new
10519 rename-old
10520 subst-rename?
10521 wrap-subst
10522 wrap-marks
10523 make-wrap
10524 id-sym-name&marks
10525 id-sym-name
10526 id?
10527 nonsymbol-id?
10528 global-extend
10529 lookup
10530 macros-only-env
10531 extend-var-env
10532 extend-env
10533 null-env
10534 binding-value
10535 binding-type
10536 make-binding
10537 arg-check
10538 source-annotation
10539 no-source
10540 set-syntax-object-module!
10541 set-syntax-object-wrap!
10542 set-syntax-object-expression!
10543 syntax-object-module
10544 syntax-object-wrap
10545 syntax-object-expression
10546 syntax-object?
10547 make-syntax-object
10548 build-lexical-var
10549 build-letrec
10550 build-named-let
10551 build-let
10552 build-sequence
10553 build-data
10554 build-primref
10555 build-lambda-case
10556 build-case-lambda
10557 build-simple-lambda
10558 build-global-definition
10559 maybe-name-value!
10560 build-global-assignment
10561 build-global-reference
10562 analyze-variable
10563 build-lexical-assignment
10564 build-lexical-reference
10565 build-dynlet
10566 build-conditional
10567 build-application
10568 build-void
10569 decorate-source
10570 get-global-definition-hook
10571 put-global-definition-hook
10572 gensym-hook
10573 local-eval-hook
10574 top-level-eval-hook
10575 fx<
10576 fx=
10577 fx-
10578 fx+
10579 *mode*
10580 noexpand)
10581 ((top)
10582 (top)
10583 (top)
10584 (top)
10585 (top)
10586 (top)
10587 (top)
10588 (top)
10589 (top)
10590 (top)
10591 (top)
10592 (top)
10593 (top)
10594 (top)
10595 (top)
10596 (top)
10597 (top)
10598 (top)
10599 (top)
10600 (top)
10601 (top)
10602 (top)
10603 (top)
10604 (top)
10605 (top)
10606 (top)
10607 (top)
10608 (top)
10609 (top)
10610 (top)
10611 (top)
10612 (top)
10613 (top)
10614 (top)
10615 (top)
10616 (top)
10617 (top)
10618 (top)
10619 (top)
10620 (top)
10621 (top)
10622 (top)
10623 (top)
10624 (top)
10625 (top)
10626 (top)
10627 (top)
10628 (top)
10629 (top)
10630 (top)
10631 (top)
10632 (top)
10633 (top)
10634 (top)
10635 (top)
10636 (top)
10637 (top)
10638 (top)
10639 (top)
10640 (top)
10641 (top)
10642 (top)
10643 (top)
10644 (top)
10645 (top)
10646 (top)
10647 (top)
10648 (top)
10649 (top)
10650 (top)
10651 (top)
10652 (top)
10653 (top)
10654 (top)
10655 (top)
10656 (top)
10657 (top)
10658 (top)
10659 (top)
10660 (top)
10661 (top)
10662 (top)
10663 (top)
10664 (top)
10665 (top)
10666 (top)
10667 (top)
10668 (top)
10669 (top)
10670 (top)
10671 (top)
10672 (top)
10673 (top)
10674 (top)
10675 (top)
10676 (top)
10677 (top)
10678 (top)
10679 (top)
10680 (top)
10681 (top)
10682 (top)
10683 (top)
10684 (top)
10685 (top)
10686 (top)
10687 (top)
10688 (top)
10689 (top)
10690 (top)
10691 (top)
10692 (top)
10693 (top)
10694 (top)
10695 (top)
10696 (top)
10697 (top)
10698 (top))
10699 ("i10820"
10700 "i10818"
10701 "i10816"
10702 "i10814"
10703 "i10812"
10704 "i10810"
10705 "i10808"
10706 "i10806"
10707 "i10804"
10708 "i10802"
10709 "i10800"
10710 "i10798"
10711 "i10796"
10712 "i10794"
10713 "i10792"
10714 "i10790"
10715 "i10788"
10716 "i10786"
10717 "i10784"
10718 "i10782"
10719 "i10780"
10720 "i10778"
10721 "i10776"
10722 "i10774"
10723 "i10772"
10724 "i10770"
10725 "i10768"
10726 "i10766"
10727 "i10764"
10728 "i10762"
10729 "i10760"
10730 "i10758"
10731 "i10756"
10732 "i10754"
10733 "i10752"
10734 "i10750"
10735 "i10749"
10736 "i10748"
10737 "i10746"
10738 "i10745"
10739 "i10744"
10740 "i10743"
10741 "i10742"
10742 "i10740"
10743 "i10738"
10744 "i10736"
10745 "i10734"
10746 "i10732"
10747 "i10730"
10748 "i10728"
10749 "i10726"
10750 "i10723"
10751 "i10721"
10752 "i10720"
10753 "i10719"
10754 "i10718"
10755 "i10717"
10756 "i10716"
10757 "i10714"
10758 "i10712"
10759 "i10710"
10760 "i10708"
10761 "i10707"
10762 "i10705"
10763 "i10703"
10764 "i10701"
10765 "i10699"
10766 "i10697"
10767 "i10695"
10768 "i10693"
10769 "i10692"
10770 "i10690"
10771 "i10688"
10772 "i10687"
10773 "i10686"
10774 "i10684"
10775 "i10683"
10776 "i10681"
10777 "i10679"
10778 "i10677"
10779 "i10675"
10780 "i10673"
10781 "i10671"
10782 "i10669"
10783 "i10667"
10784 "i10665"
10785 "i10663"
10786 "i10661"
10787 "i10659"
10788 "i10657"
10789 "i10655"
10790 "i10653"
10791 "i10651"
10792 "i10649"
10793 "i10647"
10794 "i10645"
10795 "i10643"
10796 "i10641"
10797 "i10639"
10798 "i10637"
10799 "i10635"
10800 "i10633"
10801 "i10631"
10802 "i10629"
10803 "i10627"
10804 "i10625"
10805 "i10623"
10806 "i10621"
10807 "i10619"
10808 "i10618"
10809 "i10616"
10810 "i10614"
10811 "i10612"
10812 "i10610"
10813 "i10608"
10814 "i10606"
10815 "i10604"
10816 "i10602"))
10817 #(ribcage
10818 (define-structure and-map*)
10819 ((top) (top))
10820 ("i10505" "i10503")))
10821 (hygiene guile))
10822 #{mod\ 13900}#))))
10823 (values
10824 (#{remodulate\ 13864}#
10825 #{exp\ 13901}#
10826 #{mod\ 13903}#)
10827 #{r\ 13858}#
10828 #{w\ 13859}#
10829 (#{source-annotation\ 10685}# #{exp\ 13901}#)
10830 #{mod\ 13903}#)))
10831 #{tmp\ 13888}#)
10832 (syntax-violation
10833 #f
10834 "source expression failed to match any pattern"
10835 #{tmp\ 13887}#)))
10836 ($sc-dispatch
10837 #{tmp\ 13887}#
10838 '(any each-any any))))
10839 #{e\ 13857}#))))
10840 (#{global-extend\ 10702}#
10841 'core
10842 'if
10843 (lambda (#{e\ 13905}#
10844 #{r\ 13906}#
10845 #{w\ 13907}#
10846 #{s\ 13908}#
10847 #{mod\ 13909}#)
10848 ((lambda (#{tmp\ 13915}#)
10849 ((lambda (#{tmp\ 13916}#)
10850 (if #{tmp\ 13916}#
10851 (apply (lambda (#{_\ 13920}# #{test\ 13921}# #{then\ 13922}#)
10852 (#{build-conditional\ 10630}#
10853 #{s\ 13908}#
10854 (#{chi\ 10791}#
10855 #{test\ 13921}#
10856 #{r\ 13906}#
10857 #{w\ 13907}#
10858 #{mod\ 13909}#)
10859 (#{chi\ 10791}#
10860 #{then\ 13922}#
10861 #{r\ 13906}#
10862 #{w\ 13907}#
10863 #{mod\ 13909}#)
10864 (#{build-void\ 10626}# #f)))
10865 #{tmp\ 13916}#)
10866 ((lambda (#{tmp\ 13924}#)
10867 (if #{tmp\ 13924}#
10868 (apply (lambda (#{_\ 13929}#
10869 #{test\ 13930}#
10870 #{then\ 13931}#
10871 #{else\ 13932}#)
10872 (#{build-conditional\ 10630}#
10873 #{s\ 13908}#
10874 (#{chi\ 10791}#
10875 #{test\ 13930}#
10876 #{r\ 13906}#
10877 #{w\ 13907}#
10878 #{mod\ 13909}#)
10879 (#{chi\ 10791}#
10880 #{then\ 13931}#
10881 #{r\ 13906}#
10882 #{w\ 13907}#
10883 #{mod\ 13909}#)
10884 (#{chi\ 10791}#
10885 #{else\ 13932}#
10886 #{r\ 13906}#
10887 #{w\ 13907}#
10888 #{mod\ 13909}#)))
10889 #{tmp\ 13924}#)
10890 (syntax-violation
10891 #f
10892 "source expression failed to match any pattern"
10893 #{tmp\ 13915}#)))
10894 ($sc-dispatch
10895 #{tmp\ 13915}#
10896 '(any any any any)))))
10897 ($sc-dispatch
10898 #{tmp\ 13915}#
10899 '(any any any))))
10900 #{e\ 13905}#)))
10901 (#{global-extend\ 10702}#
10902 'core
10903 'with-fluids
10904 (lambda (#{e\ 13933}#
10905 #{r\ 13934}#
10906 #{w\ 13935}#
10907 #{s\ 13936}#
10908 #{mod\ 13937}#)
10909 ((lambda (#{tmp\ 13943}#)
10910 ((lambda (#{tmp\ 13944}#)
10911 (if #{tmp\ 13944}#
10912 (apply (lambda (#{_\ 13950}#
10913 #{fluid\ 13951}#
10914 #{val\ 13952}#
10915 #{b\ 13953}#
10916 #{b*\ 13954}#)
10917 (#{build-dynlet\ 10632}#
10918 #{s\ 13936}#
10919 (map (lambda (#{x\ 13955}#)
10920 (#{chi\ 10791}#
10921 #{x\ 13955}#
10922 #{r\ 13934}#
10923 #{w\ 13935}#
10924 #{mod\ 13937}#))
10925 #{fluid\ 13951}#)
10926 (map (lambda (#{x\ 13958}#)
10927 (#{chi\ 10791}#
10928 #{x\ 13958}#
10929 #{r\ 13934}#
10930 #{w\ 13935}#
10931 #{mod\ 13937}#))
10932 #{val\ 13952}#)
10933 (#{chi-body\ 10799}#
10934 (cons #{b\ 13953}# #{b*\ 13954}#)
10935 (#{source-wrap\ 10777}#
10936 #{e\ 13933}#
10937 #{w\ 13935}#
10938 #{s\ 13936}#
10939 #{mod\ 13937}#)
10940 #{r\ 13934}#
10941 #{w\ 13935}#
10942 #{mod\ 13937}#)))
10943 #{tmp\ 13944}#)
10944 (syntax-violation
10945 #f
10946 "source expression failed to match any pattern"
10947 #{tmp\ 13943}#)))
10948 ($sc-dispatch
10949 #{tmp\ 13943}#
10950 '(any #(each (any any)) any . each-any))))
10951 #{e\ 13933}#)))
10952 (#{global-extend\ 10702}#
10953 'begin
10954 'begin
10955 '())
10956 (#{global-extend\ 10702}#
10957 'define
10958 'define
10959 '())
10960 (#{global-extend\ 10702}#
10961 'define-syntax
10962 'define-syntax
10963 '())
10964 (#{global-extend\ 10702}#
10965 'eval-when
10966 'eval-when
10967 '())
10968 (#{global-extend\ 10702}#
10969 'core
10970 'syntax-case
10971 (letrec ((#{gen-syntax-case\ 13969}#
10972 (lambda (#{x\ 13970}#
10973 #{keys\ 13971}#
10974 #{clauses\ 13972}#
10975 #{r\ 13973}#
10976 #{mod\ 13974}#)
10977 (if (null? #{clauses\ 13972}#)
10978 (#{build-application\ 10628}#
10979 #f
10980 (#{build-primref\ 10654}#
10981 #f
10982 'syntax-violation)
10983 (list (#{build-data\ 10656}# #f #f)
10984 (#{build-data\ 10656}#
10985 #f
10986 "source expression failed to match any pattern")
10987 #{x\ 13970}#))
10988 ((lambda (#{tmp\ 13984}#)
10989 ((lambda (#{tmp\ 13985}#)
10990 (if #{tmp\ 13985}#
10991 (apply (lambda (#{pat\ 13988}# #{exp\ 13989}#)
10992 (if (if (#{id?\ 10706}# #{pat\ 13988}#)
10993 (and-map
10994 (lambda (#{x\ 13992}#)
10995 (not (#{free-id=?\ 10765}#
10996 #{pat\ 13988}#
10997 #{x\ 13992}#)))
10998 (cons '#(syntax-object
10999 ...
11000 ((top)
11001 #(ribcage
11002 #(pat exp)
11003 #((top) (top))
11004 #("i13986"
11005 "i13987"))
11006 #(ribcage () () ())
11007 #(ribcage
11008 #(x
11009 keys
11010 clauses
11011 r
11012 mod)
11013 #((top)
11014 (top)
11015 (top)
11016 (top)
11017 (top))
11018 #("i13975"
11019 "i13976"
11020 "i13977"
11021 "i13978"
11022 "i13979"))
11023 #(ribcage
11024 (gen-syntax-case
11025 gen-clause
11026 build-dispatch-call
11027 convert-pattern)
11028 ((top)
11029 (top)
11030 (top)
11031 (top))
11032 ("i13968"
11033 "i13966"
11034 "i13964"
11035 "i13962"))
11036 #(ribcage
11037 (lambda-var-list
11038 gen-var
11039 strip
11040 chi-lambda-case
11041 lambda*-formals
11042 chi-simple-lambda
11043 lambda-formals
11044 ellipsis?
11045 chi-void
11046 eval-local-transformer
11047 chi-local-syntax
11048 chi-body
11049 chi-macro
11050 chi-application
11051 chi-expr
11052 chi
11053 chi-top
11054 syntax-type
11055 chi-when-list
11056 chi-install-global
11057 chi-top-sequence
11058 chi-sequence
11059 source-wrap
11060 wrap
11061 bound-id-member?
11062 distinct-bound-ids?
11063 valid-bound-ids?
11064 bound-id=?
11065 free-id=?
11066 id-var-name
11067 same-marks?
11068 join-marks
11069 join-wraps
11070 smart-append
11071 make-binding-wrap
11072 extend-ribcage!
11073 make-empty-ribcage
11074 new-mark
11075 anti-mark
11076 the-anti-mark
11077 top-marked?
11078 top-wrap
11079 empty-wrap
11080 set-ribcage-labels!
11081 set-ribcage-marks!
11082 set-ribcage-symnames!
11083 ribcage-labels
11084 ribcage-marks
11085 ribcage-symnames
11086 ribcage?
11087 make-ribcage
11088 gen-labels
11089 gen-label
11090 make-rename
11091 rename-marks
11092 rename-new
11093 rename-old
11094 subst-rename?
11095 wrap-subst
11096 wrap-marks
11097 make-wrap
11098 id-sym-name&marks
11099 id-sym-name
11100 id?
11101 nonsymbol-id?
11102 global-extend
11103 lookup
11104 macros-only-env
11105 extend-var-env
11106 extend-env
11107 null-env
11108 binding-value
11109 binding-type
11110 make-binding
11111 arg-check
11112 source-annotation
11113 no-source
11114 set-syntax-object-module!
11115 set-syntax-object-wrap!
11116 set-syntax-object-expression!
11117 syntax-object-module
11118 syntax-object-wrap
11119 syntax-object-expression
11120 syntax-object?
11121 make-syntax-object
11122 build-lexical-var
11123 build-letrec
11124 build-named-let
11125 build-let
11126 build-sequence
11127 build-data
11128 build-primref
11129 build-lambda-case
11130 build-case-lambda
11131 build-simple-lambda
11132 build-global-definition
11133 maybe-name-value!
11134 build-global-assignment
11135 build-global-reference
11136 analyze-variable
11137 build-lexical-assignment
11138 build-lexical-reference
11139 build-dynlet
11140 build-conditional
11141 build-application
11142 build-void
11143 decorate-source
11144 get-global-definition-hook
11145 put-global-definition-hook
11146 gensym-hook
11147 local-eval-hook
11148 top-level-eval-hook
11149 fx<
11150 fx=
11151 fx-
11152 fx+
11153 *mode*
11154 noexpand)
11155 ((top)
11156 (top)
11157 (top)
11158 (top)
11159 (top)
11160 (top)
11161 (top)
11162 (top)
11163 (top)
11164 (top)
11165 (top)
11166 (top)
11167 (top)
11168 (top)
11169 (top)
11170 (top)
11171 (top)
11172 (top)
11173 (top)
11174 (top)
11175 (top)
11176 (top)
11177 (top)
11178 (top)
11179 (top)
11180 (top)
11181 (top)
11182 (top)
11183 (top)
11184 (top)
11185 (top)
11186 (top)
11187 (top)
11188 (top)
11189 (top)
11190 (top)
11191 (top)
11192 (top)
11193 (top)
11194 (top)
11195 (top)
11196 (top)
11197 (top)
11198 (top)
11199 (top)
11200 (top)
11201 (top)
11202 (top)
11203 (top)
11204 (top)
11205 (top)
11206 (top)
11207 (top)
11208 (top)
11209 (top)
11210 (top)
11211 (top)
11212 (top)
11213 (top)
11214 (top)
11215 (top)
11216 (top)
11217 (top)
11218 (top)
11219 (top)
11220 (top)
11221 (top)
11222 (top)
11223 (top)
11224 (top)
11225 (top)
11226 (top)
11227 (top)
11228 (top)
11229 (top)
11230 (top)
11231 (top)
11232 (top)
11233 (top)
11234 (top)
11235 (top)
11236 (top)
11237 (top)
11238 (top)
11239 (top)
11240 (top)
11241 (top)
11242 (top)
11243 (top)
11244 (top)
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 ("i10820"
11274 "i10818"
11275 "i10816"
11276 "i10814"
11277 "i10812"
11278 "i10810"
11279 "i10808"
11280 "i10806"
11281 "i10804"
11282 "i10802"
11283 "i10800"
11284 "i10798"
11285 "i10796"
11286 "i10794"
11287 "i10792"
11288 "i10790"
11289 "i10788"
11290 "i10786"
11291 "i10784"
11292 "i10782"
11293 "i10780"
11294 "i10778"
11295 "i10776"
11296 "i10774"
11297 "i10772"
11298 "i10770"
11299 "i10768"
11300 "i10766"
11301 "i10764"
11302 "i10762"
11303 "i10760"
11304 "i10758"
11305 "i10756"
11306 "i10754"
11307 "i10752"
11308 "i10750"
11309 "i10749"
11310 "i10748"
11311 "i10746"
11312 "i10745"
11313 "i10744"
11314 "i10743"
11315 "i10742"
11316 "i10740"
11317 "i10738"
11318 "i10736"
11319 "i10734"
11320 "i10732"
11321 "i10730"
11322 "i10728"
11323 "i10726"
11324 "i10723"
11325 "i10721"
11326 "i10720"
11327 "i10719"
11328 "i10718"
11329 "i10717"
11330 "i10716"
11331 "i10714"
11332 "i10712"
11333 "i10710"
11334 "i10708"
11335 "i10707"
11336 "i10705"
11337 "i10703"
11338 "i10701"
11339 "i10699"
11340 "i10697"
11341 "i10695"
11342 "i10693"
11343 "i10692"
11344 "i10690"
11345 "i10688"
11346 "i10687"
11347 "i10686"
11348 "i10684"
11349 "i10683"
11350 "i10681"
11351 "i10679"
11352 "i10677"
11353 "i10675"
11354 "i10673"
11355 "i10671"
11356 "i10669"
11357 "i10667"
11358 "i10665"
11359 "i10663"
11360 "i10661"
11361 "i10659"
11362 "i10657"
11363 "i10655"
11364 "i10653"
11365 "i10651"
11366 "i10649"
11367 "i10647"
11368 "i10645"
11369 "i10643"
11370 "i10641"
11371 "i10639"
11372 "i10637"
11373 "i10635"
11374 "i10633"
11375 "i10631"
11376 "i10629"
11377 "i10627"
11378 "i10625"
11379 "i10623"
11380 "i10621"
11381 "i10619"
11382 "i10618"
11383 "i10616"
11384 "i10614"
11385 "i10612"
11386 "i10610"
11387 "i10608"
11388 "i10606"
11389 "i10604"
11390 "i10602"))
11391 #(ribcage
11392 (define-structure
11393 and-map*)
11394 ((top) (top))
11395 ("i10505"
11396 "i10503")))
11397 (hygiene guile))
11398 #{keys\ 13971}#))
11399 #f)
11400 (let ((#{labels\ 13996}#
11401 (list (#{gen-label\ 10722}#)))
11402 (#{var\ 13997}#
11403 (#{gen-var\ 10819}#
11404 #{pat\ 13988}#)))
11405 (#{build-application\ 10628}#
11406 #f
11407 (#{build-simple-lambda\ 10648}#
11408 #f
11409 (list (syntax->datum
11410 #{pat\ 13988}#))
11411 #f
11412 (list #{var\ 13997}#)
11413 '()
11414 (#{chi\ 10791}#
11415 #{exp\ 13989}#
11416 (#{extend-env\ 10694}#
11417 #{labels\ 13996}#
11418 (list (cons 'syntax
11419 (cons #{var\ 13997}#
11420 0)))
11421 #{r\ 13973}#)
11422 (#{make-binding-wrap\ 10753}#
11423 (list #{pat\ 13988}#)
11424 #{labels\ 13996}#
11425 '(()))
11426 #{mod\ 13974}#))
11427 (list #{x\ 13970}#)))
11428 (#{gen-clause\ 13967}#
11429 #{x\ 13970}#
11430 #{keys\ 13971}#
11431 (cdr #{clauses\ 13972}#)
11432 #{r\ 13973}#
11433 #{pat\ 13988}#
11434 #t
11435 #{exp\ 13989}#
11436 #{mod\ 13974}#)))
11437 #{tmp\ 13985}#)
11438 ((lambda (#{tmp\ 14003}#)
11439 (if #{tmp\ 14003}#
11440 (apply (lambda (#{pat\ 14007}#
11441 #{fender\ 14008}#
11442 #{exp\ 14009}#)
11443 (#{gen-clause\ 13967}#
11444 #{x\ 13970}#
11445 #{keys\ 13971}#
11446 (cdr #{clauses\ 13972}#)
11447 #{r\ 13973}#
11448 #{pat\ 14007}#
11449 #{fender\ 14008}#
11450 #{exp\ 14009}#
11451 #{mod\ 13974}#))
11452 #{tmp\ 14003}#)
11453 ((lambda (#{_\ 14011}#)
11454 (syntax-violation
11455 'syntax-case
11456 "invalid clause"
11457 (car #{clauses\ 13972}#)))
11458 #{tmp\ 13984}#)))
11459 ($sc-dispatch
11460 #{tmp\ 13984}#
11461 '(any any any)))))
11462 ($sc-dispatch #{tmp\ 13984}# (quote (any any)))))
11463 (car #{clauses\ 13972}#)))))
11464 (#{gen-clause\ 13967}#
11465 (lambda (#{x\ 14012}#
11466 #{keys\ 14013}#
11467 #{clauses\ 14014}#
11468 #{r\ 14015}#
11469 #{pat\ 14016}#
11470 #{fender\ 14017}#
11471 #{exp\ 14018}#
11472 #{mod\ 14019}#)
11473 (call-with-values
11474 (lambda ()
11475 (#{convert-pattern\ 13963}#
11476 #{pat\ 14016}#
11477 #{keys\ 14013}#))
11478 (lambda (#{p\ 14028}# #{pvars\ 14029}#)
11479 (if (not (#{distinct-bound-ids?\ 10771}#
11480 (map car #{pvars\ 14029}#)))
11481 (syntax-violation
11482 'syntax-case
11483 "duplicate pattern variable"
11484 #{pat\ 14016}#)
11485 (if (not (and-map
11486 (lambda (#{x\ 14036}#)
11487 (not (#{ellipsis?\ 10807}#
11488 (car #{x\ 14036}#))))
11489 #{pvars\ 14029}#))
11490 (syntax-violation
11491 'syntax-case
11492 "misplaced ellipsis"
11493 #{pat\ 14016}#)
11494 (let ((#{y\ 14040}#
11495 (#{gen-var\ 10819}# (quote tmp))))
11496 (#{build-application\ 10628}#
11497 #f
11498 (#{build-simple-lambda\ 10648}#
11499 #f
11500 (list (quote tmp))
11501 #f
11502 (list #{y\ 14040}#)
11503 '()
11504 (let ((#{y\ 14044}#
11505 (#{build-lexical-reference\ 10634}#
11506 'value
11507 #f
11508 'tmp
11509 #{y\ 14040}#)))
11510 (#{build-conditional\ 10630}#
11511 #f
11512 ((lambda (#{tmp\ 14047}#)
11513 ((lambda (#{tmp\ 14048}#)
11514 (if #{tmp\ 14048}#
11515 (apply (lambda () #{y\ 14044}#)
11516 #{tmp\ 14048}#)
11517 ((lambda (#{_\ 14050}#)
11518 (#{build-conditional\ 10630}#
11519 #f
11520 #{y\ 14044}#
11521 (#{build-dispatch-call\ 13965}#
11522 #{pvars\ 14029}#
11523 #{fender\ 14017}#
11524 #{y\ 14044}#
11525 #{r\ 14015}#
11526 #{mod\ 14019}#)
11527 (#{build-data\ 10656}#
11528 #f
11529 #f)))
11530 #{tmp\ 14047}#)))
11531 ($sc-dispatch
11532 #{tmp\ 14047}#
11533 '#(atom #t))))
11534 #{fender\ 14017}#)
11535 (#{build-dispatch-call\ 13965}#
11536 #{pvars\ 14029}#
11537 #{exp\ 14018}#
11538 #{y\ 14044}#
11539 #{r\ 14015}#
11540 #{mod\ 14019}#)
11541 (#{gen-syntax-case\ 13969}#
11542 #{x\ 14012}#
11543 #{keys\ 14013}#
11544 #{clauses\ 14014}#
11545 #{r\ 14015}#
11546 #{mod\ 14019}#))))
11547 (list (if (eq? #{p\ 14028}# (quote any))
11548 (#{build-application\ 10628}#
11549 #f
11550 (#{build-primref\ 10654}#
11551 #f
11552 'list)
11553 (list #{x\ 14012}#))
11554 (#{build-application\ 10628}#
11555 #f
11556 (#{build-primref\ 10654}#
11557 #f
11558 '$sc-dispatch)
11559 (list #{x\ 14012}#
11560 (#{build-data\ 10656}#
11561 #f
11562 #{p\ 14028}#)))))))))))))
11563 (#{build-dispatch-call\ 13965}#
11564 (lambda (#{pvars\ 14058}#
11565 #{exp\ 14059}#
11566 #{y\ 14060}#
11567 #{r\ 14061}#
11568 #{mod\ 14062}#)
11569 (let ((#{ids\ 14070}# (map car #{pvars\ 14058}#))
11570 (#{levels\ 14071}# (map cdr #{pvars\ 14058}#)))
11571 (let ((#{labels\ 14074}#
11572 (#{gen-labels\ 10724}# #{ids\ 14070}#))
11573 (#{new-vars\ 14075}#
11574 (map #{gen-var\ 10819}# #{ids\ 14070}#)))
11575 (#{build-application\ 10628}#
11576 #f
11577 (#{build-primref\ 10654}# #f (quote apply))
11578 (list (#{build-simple-lambda\ 10648}#
11579 #f
11580 (map syntax->datum #{ids\ 14070}#)
11581 #f
11582 #{new-vars\ 14075}#
11583 '()
11584 (#{chi\ 10791}#
11585 #{exp\ 14059}#
11586 (#{extend-env\ 10694}#
11587 #{labels\ 14074}#
11588 (map (lambda (#{var\ 14079}#
11589 #{level\ 14080}#)
11590 (cons 'syntax
11591 (cons #{var\ 14079}#
11592 #{level\ 14080}#)))
11593 #{new-vars\ 14075}#
11594 (map cdr #{pvars\ 14058}#))
11595 #{r\ 14061}#)
11596 (#{make-binding-wrap\ 10753}#
11597 #{ids\ 14070}#
11598 #{labels\ 14074}#
11599 '(()))
11600 #{mod\ 14062}#))
11601 #{y\ 14060}#))))))
11602 (#{convert-pattern\ 13963}#
11603 (lambda (#{pattern\ 14086}# #{keys\ 14087}#)
11604 (letrec ((#{cvt\ 14093}#
11605 (lambda (#{p\ 14094}#
11606 #{n\ 14095}#
11607 #{ids\ 14096}#)
11608 (if (#{id?\ 10706}# #{p\ 14094}#)
11609 (if (#{bound-id-member?\ 10773}#
11610 #{p\ 14094}#
11611 #{keys\ 14087}#)
11612 (values
11613 (vector (quote free-id) #{p\ 14094}#)
11614 #{ids\ 14096}#)
11615 (values
11616 'any
11617 (cons (cons #{p\ 14094}# #{n\ 14095}#)
11618 #{ids\ 14096}#)))
11619 ((lambda (#{tmp\ 14100}#)
11620 ((lambda (#{tmp\ 14101}#)
11621 (if (if #{tmp\ 14101}#
11622 (apply (lambda (#{x\ 14104}#
11623 #{dots\ 14105}#)
11624 (#{ellipsis?\ 10807}#
11625 #{dots\ 14105}#))
11626 #{tmp\ 14101}#)
11627 #f)
11628 (apply (lambda (#{x\ 14108}#
11629 #{dots\ 14109}#)
11630 (call-with-values
11631 (lambda ()
11632 (#{cvt\ 14093}#
11633 #{x\ 14108}#
11634 (#{fx+\ 10607}#
11635 #{n\ 14095}#
11636 1)
11637 #{ids\ 14096}#))
11638 (lambda (#{p\ 14110}#
11639 #{ids\ 14111}#)
11640 (values
11641 (if (eq? #{p\ 14110}#
11642 'any)
11643 'each-any
11644 (vector
11645 'each
11646 #{p\ 14110}#))
11647 #{ids\ 14111}#))))
11648 #{tmp\ 14101}#)
11649 ((lambda (#{tmp\ 14114}#)
11650 (if (if #{tmp\ 14114}#
11651 (apply (lambda (#{x\ 14118}#
11652 #{dots\ 14119}#
11653 #{ys\ 14120}#)
11654 (#{ellipsis?\ 10807}#
11655 #{dots\ 14119}#))
11656 #{tmp\ 14114}#)
11657 #f)
11658 (apply (lambda (#{x\ 14124}#
11659 #{dots\ 14125}#
11660 #{ys\ 14126}#)
11661 (call-with-values
11662 (lambda ()
11663 (#{cvt*\ 14091}#
11664 #{ys\ 14126}#
11665 #{n\ 14095}#
11666 #{ids\ 14096}#))
11667 (lambda (#{ys\ 14128}#
11668 #{ids\ 14129}#)
11669 (call-with-values
11670 (lambda ()
11671 (#{cvt\ 14093}#
11672 #{x\ 14124}#
11673 (+ #{n\ 14095}#
11674 1)
11675 #{ids\ 14129}#))
11676 (lambda (#{x\ 14132}#
11677 #{ids\ 14133}#)
11678 (values
11679 (list->vector
11680 (cons 'each+
11681 (cons #{x\ 14132}#
11682 (cons (reverse
11683 #{ys\ 14128}#)
11684 '(())))))
11685 #{ids\ 14133}#))))))
11686 #{tmp\ 14114}#)
11687 ((lambda (#{tmp\ 14137}#)
11688 (if #{tmp\ 14137}#
11689 (apply (lambda (#{x\ 14140}#
11690 #{y\ 14141}#)
11691 (call-with-values
11692 (lambda ()
11693 (#{cvt\ 14093}#
11694 #{y\ 14141}#
11695 #{n\ 14095}#
11696 #{ids\ 14096}#))
11697 (lambda (#{y\ 14142}#
11698 #{ids\ 14143}#)
11699 (call-with-values
11700 (lambda ()
11701 (#{cvt\ 14093}#
11702 #{x\ 14140}#
11703 #{n\ 14095}#
11704 #{ids\ 14143}#))
11705 (lambda (#{x\ 14146}#
11706 #{ids\ 14147}#)
11707 (values
11708 (cons #{x\ 14146}#
11709 #{y\ 14142}#)
11710 #{ids\ 14147}#))))))
11711 #{tmp\ 14137}#)
11712 ((lambda (#{tmp\ 14150}#)
11713 (if #{tmp\ 14150}#
11714 (apply (lambda ()
11715 (values
11716 '()
11717 #{ids\ 14096}#))
11718 #{tmp\ 14150}#)
11719 ((lambda (#{tmp\ 14151}#)
11720 (if #{tmp\ 14151}#
11721 (apply (lambda (#{x\ 14153}#)
11722 (call-with-values
11723 (lambda ()
11724 (#{cvt\ 14093}#
11725 #{x\ 14153}#
11726 #{n\ 14095}#
11727 #{ids\ 14096}#))
11728 (lambda (#{p\ 14155}#
11729 #{ids\ 14156}#)
11730 (values
11731 (vector
11732 'vector
11733 #{p\ 14155}#)
11734 #{ids\ 14156}#))))
11735 #{tmp\ 14151}#)
11736 ((lambda (#{x\ 14160}#)
11737 (values
11738 (vector
11739 'atom
11740 (#{strip\ 10817}#
11741 #{p\ 14094}#
11742 '(())))
11743 #{ids\ 14096}#))
11744 #{tmp\ 14100}#)))
11745 ($sc-dispatch
11746 #{tmp\ 14100}#
11747 '#(vector
11748 each-any)))))
11749 ($sc-dispatch
11750 #{tmp\ 14100}#
11751 '()))))
11752 ($sc-dispatch
11753 #{tmp\ 14100}#
11754 '(any . any)))))
11755 ($sc-dispatch
11756 #{tmp\ 14100}#
11757 '(any any . each-any)))))
11758 ($sc-dispatch
11759 #{tmp\ 14100}#
11760 '(any any))))
11761 #{p\ 14094}#))))
11762 (#{cvt*\ 14091}#
11763 (lambda (#{p*\ 14162}#
11764 #{n\ 14163}#
11765 #{ids\ 14164}#)
11766 (if (null? #{p*\ 14162}#)
11767 (values (quote ()) #{ids\ 14164}#)
11768 (call-with-values
11769 (lambda ()
11770 (#{cvt*\ 14091}#
11771 (cdr #{p*\ 14162}#)
11772 #{n\ 14163}#
11773 #{ids\ 14164}#))
11774 (lambda (#{y\ 14168}# #{ids\ 14169}#)
11775 (call-with-values
11776 (lambda ()
11777 (#{cvt\ 14093}#
11778 (car #{p*\ 14162}#)
11779 #{n\ 14163}#
11780 #{ids\ 14169}#))
11781 (lambda (#{x\ 14172}# #{ids\ 14173}#)
11782 (values
11783 (cons #{x\ 14172}# #{y\ 14168}#)
11784 #{ids\ 14173}#)))))))))
11785 (#{cvt\ 14093}# #{pattern\ 14086}# 0 (quote ()))))))
11786 (lambda (#{e\ 14176}#
11787 #{r\ 14177}#
11788 #{w\ 14178}#
11789 #{s\ 14179}#
11790 #{mod\ 14180}#)
11791 (let ((#{e\ 14187}#
11792 (#{source-wrap\ 10777}#
11793 #{e\ 14176}#
11794 #{w\ 14178}#
11795 #{s\ 14179}#
11796 #{mod\ 14180}#)))
11797 ((lambda (#{tmp\ 14188}#)
11798 ((lambda (#{tmp\ 14189}#)
11799 (if #{tmp\ 14189}#
11800 (apply (lambda (#{_\ 14194}#
11801 #{val\ 14195}#
11802 #{key\ 14196}#
11803 #{m\ 14197}#)
11804 (if (and-map
11805 (lambda (#{x\ 14198}#)
11806 (if (#{id?\ 10706}# #{x\ 14198}#)
11807 (not (#{ellipsis?\ 10807}#
11808 #{x\ 14198}#))
11809 #f))
11810 #{key\ 14196}#)
11811 (let ((#{x\ 14204}#
11812 (#{gen-var\ 10819}# (quote tmp))))
11813 (#{build-application\ 10628}#
11814 #{s\ 14179}#
11815 (#{build-simple-lambda\ 10648}#
11816 #f
11817 (list (quote tmp))
11818 #f
11819 (list #{x\ 14204}#)
11820 '()
11821 (#{gen-syntax-case\ 13969}#
11822 (#{build-lexical-reference\ 10634}#
11823 'value
11824 #f
11825 'tmp
11826 #{x\ 14204}#)
11827 #{key\ 14196}#
11828 #{m\ 14197}#
11829 #{r\ 14177}#
11830 #{mod\ 14180}#))
11831 (list (#{chi\ 10791}#
11832 #{val\ 14195}#
11833 #{r\ 14177}#
11834 '(())
11835 #{mod\ 14180}#))))
11836 (syntax-violation
11837 'syntax-case
11838 "invalid literals list"
11839 #{e\ 14187}#)))
11840 #{tmp\ 14189}#)
11841 (syntax-violation
11842 #f
11843 "source expression failed to match any pattern"
11844 #{tmp\ 14188}#)))
11845 ($sc-dispatch
11846 #{tmp\ 14188}#
11847 '(any any each-any . each-any))))
11848 #{e\ 14187}#)))))
11849 (set! macroexpand
11850 (lambda (#{x\ 14210}# . #{rest\ 14211}#)
11851 (if (if (pair? #{x\ 14210}#)
11852 (equal? (car #{x\ 14210}#) #{noexpand\ 10603}#)
11853 #f)
11854 (cadr #{x\ 14210}#)
11855 (let ((#{m\ 14218}#
11856 (if (null? #{rest\ 14211}#)
11857 'e
11858 (car #{rest\ 14211}#)))
11859 (#{esew\ 14219}#
11860 (if (let ((#{t\ 14222}# (null? #{rest\ 14211}#)))
11861 (if #{t\ 14222}#
11862 #{t\ 14222}#
11863 (null? (cdr #{rest\ 14211}#))))
11864 '(eval)
11865 (cadr #{rest\ 14211}#))))
11866 (with-fluids
11867 ((#{*mode*\ 10605}# #{m\ 14218}#))
11868 (#{chi-top\ 10789}#
11869 #{x\ 14210}#
11870 '()
11871 '((top))
11872 #{m\ 14218}#
11873 #{esew\ 14219}#
11874 (cons 'hygiene
11875 (module-name (current-module)))))))))
11876 (set! identifier?
11877 (lambda (#{x\ 14226}#)
11878 (#{nonsymbol-id?\ 10704}# #{x\ 14226}#)))
11879 (set! datum->syntax
11880 (lambda (#{id\ 14228}# #{datum\ 14229}#)
11881 (#{make-syntax-object\ 10668}#
11882 #{datum\ 14229}#
11883 (#{syntax-object-wrap\ 10674}# #{id\ 14228}#)
11884 #f)))
11885 (set! syntax->datum
11886 (lambda (#{x\ 14232}#)
11887 (#{strip\ 10817}# #{x\ 14232}# (quote (())))))
11888 (set! generate-temporaries
11889 (lambda (#{ls\ 14235}#)
11890 (begin
11891 (let ((#{x\ 14239}# #{ls\ 14235}#))
11892 (if (not (list? #{x\ 14239}#))
11893 (syntax-violation
11894 'generate-temporaries
11895 "invalid argument"
11896 #{x\ 14239}#)))
11897 (map (lambda (#{x\ 14240}#)
11898 (#{wrap\ 10775}# (gensym) (quote ((top))) #f))
11899 #{ls\ 14235}#))))
11900 (set! free-identifier=?
11901 (lambda (#{x\ 14244}# #{y\ 14245}#)
11902 (begin
11903 (let ((#{x\ 14250}# #{x\ 14244}#))
11904 (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14250}#))
11905 (syntax-violation
11906 'free-identifier=?
11907 "invalid argument"
11908 #{x\ 14250}#)))
11909 (let ((#{x\ 14253}# #{y\ 14245}#))
11910 (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14253}#))
11911 (syntax-violation
11912 'free-identifier=?
11913 "invalid argument"
11914 #{x\ 14253}#)))
11915 (#{free-id=?\ 10765}# #{x\ 14244}# #{y\ 14245}#))))
11916 (set! bound-identifier=?
11917 (lambda (#{x\ 14254}# #{y\ 14255}#)
11918 (begin
11919 (let ((#{x\ 14260}# #{x\ 14254}#))
11920 (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14260}#))
11921 (syntax-violation
11922 'bound-identifier=?
11923 "invalid argument"
11924 #{x\ 14260}#)))
11925 (let ((#{x\ 14263}# #{y\ 14255}#))
11926 (if (not (#{nonsymbol-id?\ 10704}# #{x\ 14263}#))
11927 (syntax-violation
11928 'bound-identifier=?
11929 "invalid argument"
11930 #{x\ 14263}#)))
11931 (#{bound-id=?\ 10767}# #{x\ 14254}# #{y\ 14255}#))))
11932 (set! syntax-violation
11933 (lambda (#{who\ 14264}#
11934 #{message\ 14265}#
11935 #{form\ 14266}#
11936 .
11937 #{subform\ 14267}#)
11938 (begin
11939 (let ((#{x\ 14274}# #{who\ 14264}#))
11940 (if (not ((lambda (#{x\ 14275}#)
11941 (let ((#{t\ 14279}# (not #{x\ 14275}#)))
11942 (if #{t\ 14279}#
11943 #{t\ 14279}#
11944 (let ((#{t\ 14282}# (string? #{x\ 14275}#)))
11945 (if #{t\ 14282}#
11946 #{t\ 14282}#
11947 (symbol? #{x\ 14275}#))))))
11948 #{x\ 14274}#))
11949 (syntax-violation
11950 'syntax-violation
11951 "invalid argument"
11952 #{x\ 14274}#)))
11953 (let ((#{x\ 14286}# #{message\ 14265}#))
11954 (if (not (string? #{x\ 14286}#))
11955 (syntax-violation
11956 'syntax-violation
11957 "invalid argument"
11958 #{x\ 14286}#)))
11959 (scm-error
11960 'syntax-error
11961 'macroexpand
11962 (string-append
11963 (if #{who\ 14264}# "~a: " "")
11964 "~a "
11965 (if (null? #{subform\ 14267}#)
11966 "in ~a"
11967 "in subform `~s' of `~s'"))
11968 (let ((#{tail\ 14288}#
11969 (cons #{message\ 14265}#
11970 (map (lambda (#{x\ 14289}#)
11971 (#{strip\ 10817}#
11972 #{x\ 14289}#
11973 '(())))
11974 (append
11975 #{subform\ 14267}#
11976 (list #{form\ 14266}#))))))
11977 (if #{who\ 14264}#
11978 (cons #{who\ 14264}# #{tail\ 14288}#)
11979 #{tail\ 14288}#))
11980 #f))))
11981 (letrec ((#{match\ 14305}#
11982 (lambda (#{e\ 14306}#
11983 #{p\ 14307}#
11984 #{w\ 14308}#
11985 #{r\ 14309}#
11986 #{mod\ 14310}#)
11987 (if (not #{r\ 14309}#)
11988 #f
11989 (if (eq? #{p\ 14307}# (quote any))
11990 (cons (#{wrap\ 10775}#
11991 #{e\ 14306}#
11992 #{w\ 14308}#
11993 #{mod\ 14310}#)
11994 #{r\ 14309}#)
11995 (if (#{syntax-object?\ 10670}# #{e\ 14306}#)
11996 (#{match*\ 14303}#
11997 (#{syntax-object-expression\ 10672}#
11998 #{e\ 14306}#)
11999 #{p\ 14307}#
12000 (#{join-wraps\ 10757}#
12001 #{w\ 14308}#
12002 (#{syntax-object-wrap\ 10674}# #{e\ 14306}#))
12003 #{r\ 14309}#
12004 (#{syntax-object-module\ 10676}# #{e\ 14306}#))
12005 (#{match*\ 14303}#
12006 #{e\ 14306}#
12007 #{p\ 14307}#
12008 #{w\ 14308}#
12009 #{r\ 14309}#
12010 #{mod\ 14310}#))))))
12011 (#{match*\ 14303}#
12012 (lambda (#{e\ 14323}#
12013 #{p\ 14324}#
12014 #{w\ 14325}#
12015 #{r\ 14326}#
12016 #{mod\ 14327}#)
12017 (if (null? #{p\ 14324}#)
12018 (if (null? #{e\ 14323}#) #{r\ 14326}# #f)
12019 (if (pair? #{p\ 14324}#)
12020 (if (pair? #{e\ 14323}#)
12021 (#{match\ 14305}#
12022 (car #{e\ 14323}#)
12023 (car #{p\ 14324}#)
12024 #{w\ 14325}#
12025 (#{match\ 14305}#
12026 (cdr #{e\ 14323}#)
12027 (cdr #{p\ 14324}#)
12028 #{w\ 14325}#
12029 #{r\ 14326}#
12030 #{mod\ 14327}#)
12031 #{mod\ 14327}#)
12032 #f)
12033 (if (eq? #{p\ 14324}# (quote each-any))
12034 (let ((#{l\ 14344}#
12035 (#{match-each-any\ 14297}#
12036 #{e\ 14323}#
12037 #{w\ 14325}#
12038 #{mod\ 14327}#)))
12039 (if #{l\ 14344}#
12040 (cons #{l\ 14344}# #{r\ 14326}#)
12041 #f))
12042 (let ((#{atom-key\ 14350}#
12043 (vector-ref #{p\ 14324}# 0)))
12044 (if (memv #{atom-key\ 14350}# (quote (each)))
12045 (if (null? #{e\ 14323}#)
12046 (#{match-empty\ 14299}#
12047 (vector-ref #{p\ 14324}# 1)
12048 #{r\ 14326}#)
12049 (let ((#{l\ 14353}#
12050 (#{match-each\ 14293}#
12051 #{e\ 14323}#
12052 (vector-ref #{p\ 14324}# 1)
12053 #{w\ 14325}#
12054 #{mod\ 14327}#)))
12055 (if #{l\ 14353}#
12056 (letrec ((#{collect\ 14358}#
12057 (lambda (#{l\ 14359}#)
12058 (if (null? (car #{l\ 14359}#))
12059 #{r\ 14326}#
12060 (cons (map car #{l\ 14359}#)
12061 (#{collect\ 14358}#
12062 (map cdr
12063 #{l\ 14359}#)))))))
12064 (#{collect\ 14358}# #{l\ 14353}#))
12065 #f)))
12066 (if (memv #{atom-key\ 14350}# (quote (each+)))
12067 (call-with-values
12068 (lambda ()
12069 (#{match-each+\ 14295}#
12070 #{e\ 14323}#
12071 (vector-ref #{p\ 14324}# 1)
12072 (vector-ref #{p\ 14324}# 2)
12073 (vector-ref #{p\ 14324}# 3)
12074 #{w\ 14325}#
12075 #{r\ 14326}#
12076 #{mod\ 14327}#))
12077 (lambda (#{xr*\ 14361}#
12078 #{y-pat\ 14362}#
12079 #{r\ 14363}#)
12080 (if #{r\ 14363}#
12081 (if (null? #{y-pat\ 14362}#)
12082 (if (null? #{xr*\ 14361}#)
12083 (#{match-empty\ 14299}#
12084 (vector-ref #{p\ 14324}# 1)
12085 #{r\ 14363}#)
12086 (#{combine\ 14301}#
12087 #{xr*\ 14361}#
12088 #{r\ 14363}#))
12089 #f)
12090 #f)))
12091 (if (memv #{atom-key\ 14350}# (quote (free-id)))
12092 (if (#{id?\ 10706}# #{e\ 14323}#)
12093 (if (#{free-id=?\ 10765}#
12094 (#{wrap\ 10775}#
12095 #{e\ 14323}#
12096 #{w\ 14325}#
12097 #{mod\ 14327}#)
12098 (vector-ref #{p\ 14324}# 1))
12099 #{r\ 14326}#
12100 #f)
12101 #f)
12102 (if (memv #{atom-key\ 14350}# (quote (atom)))
12103 (if (equal?
12104 (vector-ref #{p\ 14324}# 1)
12105 (#{strip\ 10817}#
12106 #{e\ 14323}#
12107 #{w\ 14325}#))
12108 #{r\ 14326}#
12109 #f)
12110 (if (memv #{atom-key\ 14350}#
12111 '(vector))
12112 (if (vector? #{e\ 14323}#)
12113 (#{match\ 14305}#
12114 (vector->list #{e\ 14323}#)
12115 (vector-ref #{p\ 14324}# 1)
12116 #{w\ 14325}#
12117 #{r\ 14326}#
12118 #{mod\ 14327}#)
12119 #f))))))))))))
12120 (#{combine\ 14301}#
12121 (lambda (#{r*\ 14380}# #{r\ 14381}#)
12122 (if (null? (car #{r*\ 14380}#))
12123 #{r\ 14381}#
12124 (cons (map car #{r*\ 14380}#)
12125 (#{combine\ 14301}#
12126 (map cdr #{r*\ 14380}#)
12127 #{r\ 14381}#)))))
12128 (#{match-empty\ 14299}#
12129 (lambda (#{p\ 14384}# #{r\ 14385}#)
12130 (if (null? #{p\ 14384}#)
12131 #{r\ 14385}#
12132 (if (eq? #{p\ 14384}# (quote any))
12133 (cons (quote ()) #{r\ 14385}#)
12134 (if (pair? #{p\ 14384}#)
12135 (#{match-empty\ 14299}#
12136 (car #{p\ 14384}#)
12137 (#{match-empty\ 14299}#
12138 (cdr #{p\ 14384}#)
12139 #{r\ 14385}#))
12140 (if (eq? #{p\ 14384}# (quote each-any))
12141 (cons (quote ()) #{r\ 14385}#)
12142 (let ((#{atom-key\ 14399}#
12143 (vector-ref #{p\ 14384}# 0)))
12144 (if (memv #{atom-key\ 14399}# (quote (each)))
12145 (#{match-empty\ 14299}#
12146 (vector-ref #{p\ 14384}# 1)
12147 #{r\ 14385}#)
12148 (if (memv #{atom-key\ 14399}# (quote (each+)))
12149 (#{match-empty\ 14299}#
12150 (vector-ref #{p\ 14384}# 1)
12151 (#{match-empty\ 14299}#
12152 (reverse (vector-ref #{p\ 14384}# 2))
12153 (#{match-empty\ 14299}#
12154 (vector-ref #{p\ 14384}# 3)
12155 #{r\ 14385}#)))
12156 (if (memv #{atom-key\ 14399}#
12157 '(free-id atom))
12158 #{r\ 14385}#
12159 (if (memv #{atom-key\ 14399}#
12160 '(vector))
12161 (#{match-empty\ 14299}#
12162 (vector-ref #{p\ 14384}# 1)
12163 #{r\ 14385}#))))))))))))
12164 (#{match-each-any\ 14297}#
12165 (lambda (#{e\ 14404}# #{w\ 14405}# #{mod\ 14406}#)
12166 (if (pair? #{e\ 14404}#)
12167 (let ((#{l\ 14413}#
12168 (#{match-each-any\ 14297}#
12169 (cdr #{e\ 14404}#)
12170 #{w\ 14405}#
12171 #{mod\ 14406}#)))
12172 (if #{l\ 14413}#
12173 (cons (#{wrap\ 10775}#
12174 (car #{e\ 14404}#)
12175 #{w\ 14405}#
12176 #{mod\ 14406}#)
12177 #{l\ 14413}#)
12178 #f))
12179 (if (null? #{e\ 14404}#)
12180 '()
12181 (if (#{syntax-object?\ 10670}# #{e\ 14404}#)
12182 (#{match-each-any\ 14297}#
12183 (#{syntax-object-expression\ 10672}#
12184 #{e\ 14404}#)
12185 (#{join-wraps\ 10757}#
12186 #{w\ 14405}#
12187 (#{syntax-object-wrap\ 10674}# #{e\ 14404}#))
12188 #{mod\ 14406}#)
12189 #f)))))
12190 (#{match-each+\ 14295}#
12191 (lambda (#{e\ 14421}#
12192 #{x-pat\ 14422}#
12193 #{y-pat\ 14423}#
12194 #{z-pat\ 14424}#
12195 #{w\ 14425}#
12196 #{r\ 14426}#
12197 #{mod\ 14427}#)
12198 (letrec ((#{f\ 14438}#
12199 (lambda (#{e\ 14439}# #{w\ 14440}#)
12200 (if (pair? #{e\ 14439}#)
12201 (call-with-values
12202 (lambda ()
12203 (#{f\ 14438}#
12204 (cdr #{e\ 14439}#)
12205 #{w\ 14440}#))
12206 (lambda (#{xr*\ 14443}#
12207 #{y-pat\ 14444}#
12208 #{r\ 14445}#)
12209 (if #{r\ 14445}#
12210 (if (null? #{y-pat\ 14444}#)
12211 (let ((#{xr\ 14450}#
12212 (#{match\ 14305}#
12213 (car #{e\ 14439}#)
12214 #{x-pat\ 14422}#
12215 #{w\ 14440}#
12216 '()
12217 #{mod\ 14427}#)))
12218 (if #{xr\ 14450}#
12219 (values
12220 (cons #{xr\ 14450}#
12221 #{xr*\ 14443}#)
12222 #{y-pat\ 14444}#
12223 #{r\ 14445}#)
12224 (values #f #f #f)))
12225 (values
12226 '()
12227 (cdr #{y-pat\ 14444}#)
12228 (#{match\ 14305}#
12229 (car #{e\ 14439}#)
12230 (car #{y-pat\ 14444}#)
12231 #{w\ 14440}#
12232 #{r\ 14445}#
12233 #{mod\ 14427}#)))
12234 (values #f #f #f))))
12235 (if (#{syntax-object?\ 10670}# #{e\ 14439}#)
12236 (#{f\ 14438}#
12237 (#{syntax-object-expression\ 10672}#
12238 #{e\ 14439}#)
12239 (#{join-wraps\ 10757}#
12240 #{w\ 14440}#
12241 #{e\ 14439}#))
12242 (values
12243 '()
12244 #{y-pat\ 14423}#
12245 (#{match\ 14305}#
12246 #{e\ 14439}#
12247 #{z-pat\ 14424}#
12248 #{w\ 14440}#
12249 #{r\ 14426}#
12250 #{mod\ 14427}#)))))))
12251 (#{f\ 14438}# #{e\ 14421}# #{w\ 14425}#))))
12252 (#{match-each\ 14293}#
12253 (lambda (#{e\ 14454}#
12254 #{p\ 14455}#
12255 #{w\ 14456}#
12256 #{mod\ 14457}#)
12257 (if (pair? #{e\ 14454}#)
12258 (let ((#{first\ 14465}#
12259 (#{match\ 14305}#
12260 (car #{e\ 14454}#)
12261 #{p\ 14455}#
12262 #{w\ 14456}#
12263 '()
12264 #{mod\ 14457}#)))
12265 (if #{first\ 14465}#
12266 (let ((#{rest\ 14469}#
12267 (#{match-each\ 14293}#
12268 (cdr #{e\ 14454}#)
12269 #{p\ 14455}#
12270 #{w\ 14456}#
12271 #{mod\ 14457}#)))
12272 (if #{rest\ 14469}#
12273 (cons #{first\ 14465}# #{rest\ 14469}#)
12274 #f))
12275 #f))
12276 (if (null? #{e\ 14454}#)
12277 '()
12278 (if (#{syntax-object?\ 10670}# #{e\ 14454}#)
12279 (#{match-each\ 14293}#
12280 (#{syntax-object-expression\ 10672}#
12281 #{e\ 14454}#)
12282 #{p\ 14455}#
12283 (#{join-wraps\ 10757}#
12284 #{w\ 14456}#
12285 (#{syntax-object-wrap\ 10674}# #{e\ 14454}#))
12286 (#{syntax-object-module\ 10676}# #{e\ 14454}#))
12287 #f))))))
12288 (set! $sc-dispatch
12289 (lambda (#{e\ 14477}# #{p\ 14478}#)
12290 (if (eq? #{p\ 14478}# (quote any))
12291 (list #{e\ 14477}#)
12292 (if (#{syntax-object?\ 10670}# #{e\ 14477}#)
12293 (#{match*\ 14303}#
12294 (#{syntax-object-expression\ 10672}#
12295 #{e\ 14477}#)
12296 #{p\ 14478}#
12297 (#{syntax-object-wrap\ 10674}# #{e\ 14477}#)
12298 '()
12299 (#{syntax-object-module\ 10676}# #{e\ 14477}#))
12300 (#{match*\ 14303}#
12301 #{e\ 14477}#
12302 #{p\ 14478}#
12303 '(())
12304 '()
12305 #f)))))))))
12306
12307 (define with-syntax
12308 (make-syntax-transformer
12309 'with-syntax
12310 'macro
12311 (cons (lambda (#{x\ 14487}#)
12312 ((lambda (#{tmp\ 14489}#)
12313 ((lambda (#{tmp\ 14490}#)
12314 (if #{tmp\ 14490}#
12315 (apply (lambda (#{_\ 14494}# #{e1\ 14495}# #{e2\ 14496}#)
12316 (cons '#(syntax-object
12317 begin
12318 ((top)
12319 #(ribcage
12320 #(_ e1 e2)
12321 #((top) (top) (top))
12322 #("i14491" "i14492" "i14493"))
12323 #(ribcage () () ())
12324 #(ribcage #(x) #((top)) #("i14488")))
12325 (hygiene guile))
12326 (cons #{e1\ 14495}# #{e2\ 14496}#)))
12327 #{tmp\ 14490}#)
12328 ((lambda (#{tmp\ 14498}#)
12329 (if #{tmp\ 14498}#
12330 (apply (lambda (#{_\ 14504}#
12331 #{out\ 14505}#
12332 #{in\ 14506}#
12333 #{e1\ 14507}#
12334 #{e2\ 14508}#)
12335 (list '#(syntax-object
12336 syntax-case
12337 ((top)
12338 #(ribcage
12339 #(_ out in e1 e2)
12340 #((top) (top) (top) (top) (top))
12341 #("i14499"
12342 "i14500"
12343 "i14501"
12344 "i14502"
12345 "i14503"))
12346 #(ribcage () () ())
12347 #(ribcage
12348 #(x)
12349 #((top))
12350 #("i14488")))
12351 (hygiene guile))
12352 #{in\ 14506}#
12353 '()
12354 (list #{out\ 14505}#
12355 (cons '#(syntax-object
12356 begin
12357 ((top)
12358 #(ribcage
12359 #(_ out in e1 e2)
12360 #((top)
12361 (top)
12362 (top)
12363 (top)
12364 (top))
12365 #("i14499"
12366 "i14500"
12367 "i14501"
12368 "i14502"
12369 "i14503"))
12370 #(ribcage () () ())
12371 #(ribcage
12372 #(x)
12373 #((top))
12374 #("i14488")))
12375 (hygiene guile))
12376 (cons #{e1\ 14507}#
12377 #{e2\ 14508}#)))))
12378 #{tmp\ 14498}#)
12379 ((lambda (#{tmp\ 14510}#)
12380 (if #{tmp\ 14510}#
12381 (apply (lambda (#{_\ 14516}#
12382 #{out\ 14517}#
12383 #{in\ 14518}#
12384 #{e1\ 14519}#
12385 #{e2\ 14520}#)
12386 (list '#(syntax-object
12387 syntax-case
12388 ((top)
12389 #(ribcage
12390 #(_ out in e1 e2)
12391 #((top)
12392 (top)
12393 (top)
12394 (top)
12395 (top))
12396 #("i14511"
12397 "i14512"
12398 "i14513"
12399 "i14514"
12400 "i14515"))
12401 #(ribcage () () ())
12402 #(ribcage
12403 #(x)
12404 #((top))
12405 #("i14488")))
12406 (hygiene guile))
12407 (cons '#(syntax-object
12408 list
12409 ((top)
12410 #(ribcage
12411 #(_ out in e1 e2)
12412 #((top)
12413 (top)
12414 (top)
12415 (top)
12416 (top))
12417 #("i14511"
12418 "i14512"
12419 "i14513"
12420 "i14514"
12421 "i14515"))
12422 #(ribcage () () ())
12423 #(ribcage
12424 #(x)
12425 #((top))
12426 #("i14488")))
12427 (hygiene guile))
12428 #{in\ 14518}#)
12429 '()
12430 (list #{out\ 14517}#
12431 (cons '#(syntax-object
12432 begin
12433 ((top)
12434 #(ribcage
12435 #(_
12436 out
12437 in
12438 e1
12439 e2)
12440 #((top)
12441 (top)
12442 (top)
12443 (top)
12444 (top))
12445 #("i14511"
12446 "i14512"
12447 "i14513"
12448 "i14514"
12449 "i14515"))
12450 #(ribcage
12451 ()
12452 ()
12453 ())
12454 #(ribcage
12455 #(x)
12456 #((top))
12457 #("i14488")))
12458 (hygiene guile))
12459 (cons #{e1\ 14519}#
12460 #{e2\ 14520}#)))))
12461 #{tmp\ 14510}#)
12462 (syntax-violation
12463 #f
12464 "source expression failed to match any pattern"
12465 #{tmp\ 14489}#)))
12466 ($sc-dispatch
12467 #{tmp\ 14489}#
12468 '(any #(each (any any)) any . each-any)))))
12469 ($sc-dispatch
12470 #{tmp\ 14489}#
12471 '(any ((any any)) any . each-any)))))
12472 ($sc-dispatch
12473 #{tmp\ 14489}#
12474 '(any () any . each-any))))
12475 #{x\ 14487}#))
12476 (module-name (current-module)))))
12477
12478 (define syntax-rules
12479 (make-syntax-transformer
12480 'syntax-rules
12481 'macro
12482 (cons (lambda (#{x\ 14524}#)
12483 ((lambda (#{tmp\ 14526}#)
12484 ((lambda (#{tmp\ 14527}#)
12485 (if #{tmp\ 14527}#
12486 (apply (lambda (#{_\ 14533}#
12487 #{k\ 14534}#
12488 #{keyword\ 14535}#
12489 #{pattern\ 14536}#
12490 #{template\ 14537}#)
12491 (list '#(syntax-object
12492 lambda
12493 ((top)
12494 #(ribcage
12495 #(_ k keyword pattern template)
12496 #((top) (top) (top) (top) (top))
12497 #("i14528"
12498 "i14529"
12499 "i14530"
12500 "i14531"
12501 "i14532"))
12502 #(ribcage () () ())
12503 #(ribcage #(x) #((top)) #("i14525")))
12504 (hygiene guile))
12505 '(#(syntax-object
12506 x
12507 ((top)
12508 #(ribcage
12509 #(_ k keyword pattern template)
12510 #((top) (top) (top) (top) (top))
12511 #("i14528"
12512 "i14529"
12513 "i14530"
12514 "i14531"
12515 "i14532"))
12516 #(ribcage () () ())
12517 #(ribcage #(x) #((top)) #("i14525")))
12518 (hygiene guile)))
12519 (vector
12520 '(#(syntax-object
12521 macro-type
12522 ((top)
12523 #(ribcage
12524 #(_ k keyword pattern template)
12525 #((top) (top) (top) (top) (top))
12526 #("i14528"
12527 "i14529"
12528 "i14530"
12529 "i14531"
12530 "i14532"))
12531 #(ribcage () () ())
12532 #(ribcage #(x) #((top)) #("i14525")))
12533 (hygiene guile))
12534 .
12535 #(syntax-object
12536 syntax-rules
12537 ((top)
12538 #(ribcage
12539 #(_ k keyword pattern template)
12540 #((top) (top) (top) (top) (top))
12541 #("i14528"
12542 "i14529"
12543 "i14530"
12544 "i14531"
12545 "i14532"))
12546 #(ribcage () () ())
12547 #(ribcage #(x) #((top)) #("i14525")))
12548 (hygiene guile)))
12549 (cons '#(syntax-object
12550 patterns
12551 ((top)
12552 #(ribcage
12553 #(_
12554 k
12555 keyword
12556 pattern
12557 template)
12558 #((top)
12559 (top)
12560 (top)
12561 (top)
12562 (top))
12563 #("i14528"
12564 "i14529"
12565 "i14530"
12566 "i14531"
12567 "i14532"))
12568 #(ribcage () () ())
12569 #(ribcage
12570 #(x)
12571 #((top))
12572 #("i14525")))
12573 (hygiene guile))
12574 #{pattern\ 14536}#))
12575 (cons '#(syntax-object
12576 syntax-case
12577 ((top)
12578 #(ribcage
12579 #(_ k keyword pattern template)
12580 #((top) (top) (top) (top) (top))
12581 #("i14528"
12582 "i14529"
12583 "i14530"
12584 "i14531"
12585 "i14532"))
12586 #(ribcage () () ())
12587 #(ribcage
12588 #(x)
12589 #((top))
12590 #("i14525")))
12591 (hygiene guile))
12592 (cons '#(syntax-object
12593 x
12594 ((top)
12595 #(ribcage
12596 #(_
12597 k
12598 keyword
12599 pattern
12600 template)
12601 #((top)
12602 (top)
12603 (top)
12604 (top)
12605 (top))
12606 #("i14528"
12607 "i14529"
12608 "i14530"
12609 "i14531"
12610 "i14532"))
12611 #(ribcage () () ())
12612 #(ribcage
12613 #(x)
12614 #((top))
12615 #("i14525")))
12616 (hygiene guile))
12617 (cons #{k\ 14534}#
12618 (map (lambda (#{tmp\ 14541}#
12619 #{tmp\ 14540}#)
12620 (list (cons '#(syntax-object
12621 dummy
12622 ((top)
12623 #(ribcage
12624 #(_
12625 k
12626 keyword
12627 pattern
12628 template)
12629 #((top)
12630 (top)
12631 (top)
12632 (top)
12633 (top))
12634 #("i14528"
12635 "i14529"
12636 "i14530"
12637 "i14531"
12638 "i14532"))
12639 #(ribcage
12640 ()
12641 ()
12642 ())
12643 #(ribcage
12644 #(x)
12645 #((top))
12646 #("i14525")))
12647 (hygiene
12648 guile))
12649 #{tmp\ 14540}#)
12650 (list '#(syntax-object
12651 syntax
12652 ((top)
12653 #(ribcage
12654 #(_
12655 k
12656 keyword
12657 pattern
12658 template)
12659 #((top)
12660 (top)
12661 (top)
12662 (top)
12663 (top))
12664 #("i14528"
12665 "i14529"
12666 "i14530"
12667 "i14531"
12668 "i14532"))
12669 #(ribcage
12670 ()
12671 ()
12672 ())
12673 #(ribcage
12674 #(x)
12675 #((top))
12676 #("i14525")))
12677 (hygiene
12678 guile))
12679 #{tmp\ 14541}#)))
12680 #{template\ 14537}#
12681 #{pattern\ 14536}#))))))
12682 #{tmp\ 14527}#)
12683 (syntax-violation
12684 #f
12685 "source expression failed to match any pattern"
12686 #{tmp\ 14526}#)))
12687 ($sc-dispatch
12688 #{tmp\ 14526}#
12689 '(any each-any . #(each ((any . any) any))))))
12690 #{x\ 14524}#))
12691 (module-name (current-module)))))
12692
12693 (define let*
12694 (make-syntax-transformer
12695 'let*
12696 'macro
12697 (cons (lambda (#{x\ 14542}#)
12698 ((lambda (#{tmp\ 14544}#)
12699 ((lambda (#{tmp\ 14545}#)
12700 (if (if #{tmp\ 14545}#
12701 (apply (lambda (#{let*\ 14551}#
12702 #{x\ 14552}#
12703 #{v\ 14553}#
12704 #{e1\ 14554}#
12705 #{e2\ 14555}#)
12706 (and-map identifier? #{x\ 14552}#))
12707 #{tmp\ 14545}#)
12708 #f)
12709 (apply (lambda (#{let*\ 14562}#
12710 #{x\ 14563}#
12711 #{v\ 14564}#
12712 #{e1\ 14565}#
12713 #{e2\ 14566}#)
12714 (letrec ((#{f\ 14569}#
12715 (lambda (#{bindings\ 14570}#)
12716 (if (null? #{bindings\ 14570}#)
12717 (cons '#(syntax-object
12718 let
12719 ((top)
12720 #(ribcage () () ())
12721 #(ribcage
12722 #(f bindings)
12723 #((top) (top))
12724 #("i14567" "i14568"))
12725 #(ribcage
12726 #(let* x v e1 e2)
12727 #((top)
12728 (top)
12729 (top)
12730 (top)
12731 (top))
12732 #("i14557"
12733 "i14558"
12734 "i14559"
12735 "i14560"
12736 "i14561"))
12737 #(ribcage () () ())
12738 #(ribcage
12739 #(x)
12740 #((top))
12741 #("i14543")))
12742 (hygiene guile))
12743 (cons '()
12744 (cons #{e1\ 14565}#
12745 #{e2\ 14566}#)))
12746 ((lambda (#{tmp\ 14575}#)
12747 ((lambda (#{tmp\ 14576}#)
12748 (if #{tmp\ 14576}#
12749 (apply (lambda (#{body\ 14579}#
12750 #{binding\ 14580}#)
12751 (list '#(syntax-object
12752 let
12753 ((top)
12754 #(ribcage
12755 #(body
12756 binding)
12757 #((top)
12758 (top))
12759 #("i14577"
12760 "i14578"))
12761 #(ribcage
12762 ()
12763 ()
12764 ())
12765 #(ribcage
12766 #(f
12767 bindings)
12768 #((top)
12769 (top))
12770 #("i14567"
12771 "i14568"))
12772 #(ribcage
12773 #(let*
12774 x
12775 v
12776 e1
12777 e2)
12778 #((top)
12779 (top)
12780 (top)
12781 (top)
12782 (top))
12783 #("i14557"
12784 "i14558"
12785 "i14559"
12786 "i14560"
12787 "i14561"))
12788 #(ribcage
12789 ()
12790 ()
12791 ())
12792 #(ribcage
12793 #(x)
12794 #((top))
12795 #("i14543")))
12796 (hygiene
12797 guile))
12798 (list #{binding\ 14580}#)
12799 #{body\ 14579}#))
12800 #{tmp\ 14576}#)
12801 (syntax-violation
12802 #f
12803 "source expression failed to match any pattern"
12804 #{tmp\ 14575}#)))
12805 ($sc-dispatch
12806 #{tmp\ 14575}#
12807 '(any any))))
12808 (list (#{f\ 14569}#
12809 (cdr #{bindings\ 14570}#))
12810 (car #{bindings\ 14570}#)))))))
12811 (#{f\ 14569}#
12812 (map list #{x\ 14563}# #{v\ 14564}#))))
12813 #{tmp\ 14545}#)
12814 (syntax-violation
12815 #f
12816 "source expression failed to match any pattern"
12817 #{tmp\ 14544}#)))
12818 ($sc-dispatch
12819 #{tmp\ 14544}#
12820 '(any #(each (any any)) any . each-any))))
12821 #{x\ 14542}#))
12822 (module-name (current-module)))))
12823
12824 (define do
12825 (make-syntax-transformer
12826 'do
12827 'macro
12828 (cons (lambda (#{orig-x\ 14581}#)
12829 ((lambda (#{tmp\ 14583}#)
12830 ((lambda (#{tmp\ 14584}#)
12831 (if #{tmp\ 14584}#
12832 (apply (lambda (#{_\ 14592}#
12833 #{var\ 14593}#
12834 #{init\ 14594}#
12835 #{step\ 14595}#
12836 #{e0\ 14596}#
12837 #{e1\ 14597}#
12838 #{c\ 14598}#)
12839 ((lambda (#{tmp\ 14600}#)
12840 ((lambda (#{tmp\ 14601}#)
12841 (if #{tmp\ 14601}#
12842 (apply (lambda (#{step\ 14603}#)
12843 ((lambda (#{tmp\ 14604}#)
12844 ((lambda (#{tmp\ 14605}#)
12845 (if #{tmp\ 14605}#
12846 (apply (lambda ()
12847 (list '#(syntax-object
12848 let
12849 ((top)
12850 #(ribcage
12851 #(step)
12852 #((top))
12853 #("i14602"))
12854 #(ribcage
12855 #(_
12856 var
12857 init
12858 step
12859 e0
12860 e1
12861 c)
12862 #((top)
12863 (top)
12864 (top)
12865 (top)
12866 (top)
12867 (top)
12868 (top))
12869 #("i14585"
12870 "i14586"
12871 "i14587"
12872 "i14588"
12873 "i14589"
12874 "i14590"
12875 "i14591"))
12876 #(ribcage
12877 ()
12878 ()
12879 ())
12880 #(ribcage
12881 #(orig-x)
12882 #((top))
12883 #("i14582")))
12884 (hygiene
12885 guile))
12886 '#(syntax-object
12887 doloop
12888 ((top)
12889 #(ribcage
12890 #(step)
12891 #((top))
12892 #("i14602"))
12893 #(ribcage
12894 #(_
12895 var
12896 init
12897 step
12898 e0
12899 e1
12900 c)
12901 #((top)
12902 (top)
12903 (top)
12904 (top)
12905 (top)
12906 (top)
12907 (top))
12908 #("i14585"
12909 "i14586"
12910 "i14587"
12911 "i14588"
12912 "i14589"
12913 "i14590"
12914 "i14591"))
12915 #(ribcage
12916 ()
12917 ()
12918 ())
12919 #(ribcage
12920 #(orig-x)
12921 #((top))
12922 #("i14582")))
12923 (hygiene
12924 guile))
12925 (map list
12926 #{var\ 14593}#
12927 #{init\ 14594}#)
12928 (list '#(syntax-object
12929 if
12930 ((top)
12931 #(ribcage
12932 #(step)
12933 #((top))
12934 #("i14602"))
12935 #(ribcage
12936 #(_
12937 var
12938 init
12939 step
12940 e0
12941 e1
12942 c)
12943 #((top)
12944 (top)
12945 (top)
12946 (top)
12947 (top)
12948 (top)
12949 (top))
12950 #("i14585"
12951 "i14586"
12952 "i14587"
12953 "i14588"
12954 "i14589"
12955 "i14590"
12956 "i14591"))
12957 #(ribcage
12958 ()
12959 ()
12960 ())
12961 #(ribcage
12962 #(orig-x)
12963 #((top))
12964 #("i14582")))
12965 (hygiene
12966 guile))
12967 (list '#(syntax-object
12968 not
12969 ((top)
12970 #(ribcage
12971 #(step)
12972 #((top))
12973 #("i14602"))
12974 #(ribcage
12975 #(_
12976 var
12977 init
12978 step
12979 e0
12980 e1
12981 c)
12982 #((top)
12983 (top)
12984 (top)
12985 (top)
12986 (top)
12987 (top)
12988 (top))
12989 #("i14585"
12990 "i14586"
12991 "i14587"
12992 "i14588"
12993 "i14589"
12994 "i14590"
12995 "i14591"))
12996 #(ribcage
12997 ()
12998 ()
12999 ())
13000 #(ribcage
13001 #(orig-x)
13002 #((top))
13003 #("i14582")))
13004 (hygiene
13005 guile))
13006 #{e0\ 14596}#)
13007 (cons '#(syntax-object
13008 begin
13009 ((top)
13010 #(ribcage
13011 #(step)
13012 #((top))
13013 #("i14602"))
13014 #(ribcage
13015 #(_
13016 var
13017 init
13018 step
13019 e0
13020 e1
13021 c)
13022 #((top)
13023 (top)
13024 (top)
13025 (top)
13026 (top)
13027 (top)
13028 (top))
13029 #("i14585"
13030 "i14586"
13031 "i14587"
13032 "i14588"
13033 "i14589"
13034 "i14590"
13035 "i14591"))
13036 #(ribcage
13037 ()
13038 ()
13039 ())
13040 #(ribcage
13041 #(orig-x)
13042 #((top))
13043 #("i14582")))
13044 (hygiene
13045 guile))
13046 (append
13047 #{c\ 14598}#
13048 (list (cons '#(syntax-object
13049 doloop
13050 ((top)
13051 #(ribcage
13052 #(step)
13053 #((top))
13054 #("i14602"))
13055 #(ribcage
13056 #(_
13057 var
13058 init
13059 step
13060 e0
13061 e1
13062 c)
13063 #((top)
13064 (top)
13065 (top)
13066 (top)
13067 (top)
13068 (top)
13069 (top))
13070 #("i14585"
13071 "i14586"
13072 "i14587"
13073 "i14588"
13074 "i14589"
13075 "i14590"
13076 "i14591"))
13077 #(ribcage
13078 ()
13079 ()
13080 ())
13081 #(ribcage
13082 #(orig-x)
13083 #((top))
13084 #("i14582")))
13085 (hygiene
13086 guile))
13087 #{step\ 14603}#)))))))
13088 #{tmp\ 14605}#)
13089 ((lambda (#{tmp\ 14610}#)
13090 (if #{tmp\ 14610}#
13091 (apply (lambda (#{e1\ 14613}#
13092 #{e2\ 14614}#)
13093 (list '#(syntax-object
13094 let
13095 ((top)
13096 #(ribcage
13097 #(e1
13098 e2)
13099 #((top)
13100 (top))
13101 #("i14611"
13102 "i14612"))
13103 #(ribcage
13104 #(step)
13105 #((top))
13106 #("i14602"))
13107 #(ribcage
13108 #(_
13109 var
13110 init
13111 step
13112 e0
13113 e1
13114 c)
13115 #((top)
13116 (top)
13117 (top)
13118 (top)
13119 (top)
13120 (top)
13121 (top))
13122 #("i14585"
13123 "i14586"
13124 "i14587"
13125 "i14588"
13126 "i14589"
13127 "i14590"
13128 "i14591"))
13129 #(ribcage
13130 ()
13131 ()
13132 ())
13133 #(ribcage
13134 #(orig-x)
13135 #((top))
13136 #("i14582")))
13137 (hygiene
13138 guile))
13139 '#(syntax-object
13140 doloop
13141 ((top)
13142 #(ribcage
13143 #(e1
13144 e2)
13145 #((top)
13146 (top))
13147 #("i14611"
13148 "i14612"))
13149 #(ribcage
13150 #(step)
13151 #((top))
13152 #("i14602"))
13153 #(ribcage
13154 #(_
13155 var
13156 init
13157 step
13158 e0
13159 e1
13160 c)
13161 #((top)
13162 (top)
13163 (top)
13164 (top)
13165 (top)
13166 (top)
13167 (top))
13168 #("i14585"
13169 "i14586"
13170 "i14587"
13171 "i14588"
13172 "i14589"
13173 "i14590"
13174 "i14591"))
13175 #(ribcage
13176 ()
13177 ()
13178 ())
13179 #(ribcage
13180 #(orig-x)
13181 #((top))
13182 #("i14582")))
13183 (hygiene
13184 guile))
13185 (map list
13186 #{var\ 14593}#
13187 #{init\ 14594}#)
13188 (list '#(syntax-object
13189 if
13190 ((top)
13191 #(ribcage
13192 #(e1
13193 e2)
13194 #((top)
13195 (top))
13196 #("i14611"
13197 "i14612"))
13198 #(ribcage
13199 #(step)
13200 #((top))
13201 #("i14602"))
13202 #(ribcage
13203 #(_
13204 var
13205 init
13206 step
13207 e0
13208 e1
13209 c)
13210 #((top)
13211 (top)
13212 (top)
13213 (top)
13214 (top)
13215 (top)
13216 (top))
13217 #("i14585"
13218 "i14586"
13219 "i14587"
13220 "i14588"
13221 "i14589"
13222 "i14590"
13223 "i14591"))
13224 #(ribcage
13225 ()
13226 ()
13227 ())
13228 #(ribcage
13229 #(orig-x)
13230 #((top))
13231 #("i14582")))
13232 (hygiene
13233 guile))
13234 #{e0\ 14596}#
13235 (cons '#(syntax-object
13236 begin
13237 ((top)
13238 #(ribcage
13239 #(e1
13240 e2)
13241 #((top)
13242 (top))
13243 #("i14611"
13244 "i14612"))
13245 #(ribcage
13246 #(step)
13247 #((top))
13248 #("i14602"))
13249 #(ribcage
13250 #(_
13251 var
13252 init
13253 step
13254 e0
13255 e1
13256 c)
13257 #((top)
13258 (top)
13259 (top)
13260 (top)
13261 (top)
13262 (top)
13263 (top))
13264 #("i14585"
13265 "i14586"
13266 "i14587"
13267 "i14588"
13268 "i14589"
13269 "i14590"
13270 "i14591"))
13271 #(ribcage
13272 ()
13273 ()
13274 ())
13275 #(ribcage
13276 #(orig-x)
13277 #((top))
13278 #("i14582")))
13279 (hygiene
13280 guile))
13281 (cons #{e1\ 14613}#
13282 #{e2\ 14614}#))
13283 (cons '#(syntax-object
13284 begin
13285 ((top)
13286 #(ribcage
13287 #(e1
13288 e2)
13289 #((top)
13290 (top))
13291 #("i14611"
13292 "i14612"))
13293 #(ribcage
13294 #(step)
13295 #((top))
13296 #("i14602"))
13297 #(ribcage
13298 #(_
13299 var
13300 init
13301 step
13302 e0
13303 e1
13304 c)
13305 #((top)
13306 (top)
13307 (top)
13308 (top)
13309 (top)
13310 (top)
13311 (top))
13312 #("i14585"
13313 "i14586"
13314 "i14587"
13315 "i14588"
13316 "i14589"
13317 "i14590"
13318 "i14591"))
13319 #(ribcage
13320 ()
13321 ()
13322 ())
13323 #(ribcage
13324 #(orig-x)
13325 #((top))
13326 #("i14582")))
13327 (hygiene
13328 guile))
13329 (append
13330 #{c\ 14598}#
13331 (list (cons '#(syntax-object
13332 doloop
13333 ((top)
13334 #(ribcage
13335 #(e1
13336 e2)
13337 #((top)
13338 (top))
13339 #("i14611"
13340 "i14612"))
13341 #(ribcage
13342 #(step)
13343 #((top))
13344 #("i14602"))
13345 #(ribcage
13346 #(_
13347 var
13348 init
13349 step
13350 e0
13351 e1
13352 c)
13353 #((top)
13354 (top)
13355 (top)
13356 (top)
13357 (top)
13358 (top)
13359 (top))
13360 #("i14585"
13361 "i14586"
13362 "i14587"
13363 "i14588"
13364 "i14589"
13365 "i14590"
13366 "i14591"))
13367 #(ribcage
13368 ()
13369 ()
13370 ())
13371 #(ribcage
13372 #(orig-x)
13373 #((top))
13374 #("i14582")))
13375 (hygiene
13376 guile))
13377 #{step\ 14603}#)))))))
13378 #{tmp\ 14610}#)
13379 (syntax-violation
13380 #f
13381 "source expression failed to match any pattern"
13382 #{tmp\ 14604}#)))
13383 ($sc-dispatch
13384 #{tmp\ 14604}#
13385 '(any . each-any)))))
13386 ($sc-dispatch
13387 #{tmp\ 14604}#
13388 '())))
13389 #{e1\ 14597}#))
13390 #{tmp\ 14601}#)
13391 (syntax-violation
13392 #f
13393 "source expression failed to match any pattern"
13394 #{tmp\ 14600}#)))
13395 ($sc-dispatch
13396 #{tmp\ 14600}#
13397 'each-any)))
13398 (map (lambda (#{v\ 14621}# #{s\ 14622}#)
13399 ((lambda (#{tmp\ 14625}#)
13400 ((lambda (#{tmp\ 14626}#)
13401 (if #{tmp\ 14626}#
13402 (apply (lambda () #{v\ 14621}#)
13403 #{tmp\ 14626}#)
13404 ((lambda (#{tmp\ 14627}#)
13405 (if #{tmp\ 14627}#
13406 (apply (lambda (#{e\ 14629}#)
13407 #{e\ 14629}#)
13408 #{tmp\ 14627}#)
13409 ((lambda (#{_\ 14631}#)
13410 (syntax-violation
13411 'do
13412 "bad step expression"
13413 #{orig-x\ 14581}#
13414 #{s\ 14622}#))
13415 #{tmp\ 14625}#)))
13416 ($sc-dispatch
13417 #{tmp\ 14625}#
13418 '(any)))))
13419 ($sc-dispatch
13420 #{tmp\ 14625}#
13421 '())))
13422 #{s\ 14622}#))
13423 #{var\ 14593}#
13424 #{step\ 14595}#)))
13425 #{tmp\ 14584}#)
13426 (syntax-violation
13427 #f
13428 "source expression failed to match any pattern"
13429 #{tmp\ 14583}#)))
13430 ($sc-dispatch
13431 #{tmp\ 14583}#
13432 '(any #(each (any any . any))
13433 (any . each-any)
13434 .
13435 each-any))))
13436 #{orig-x\ 14581}#))
13437 (module-name (current-module)))))
13438
13439 (define quasiquote
13440 (make-syntax-transformer
13441 'quasiquote
13442 'macro
13443 (cons (letrec ((#{quasicons\ 14638}#
13444 (lambda (#{x\ 14642}# #{y\ 14643}#)
13445 ((lambda (#{tmp\ 14647}#)
13446 ((lambda (#{tmp\ 14648}#)
13447 (if #{tmp\ 14648}#
13448 (apply (lambda (#{x\ 14651}# #{y\ 14652}#)
13449 ((lambda (#{tmp\ 14653}#)
13450 ((lambda (#{tmp\ 14654}#)
13451 (if #{tmp\ 14654}#
13452 (apply (lambda (#{dy\ 14656}#)
13453 ((lambda (#{tmp\ 14657}#)
13454 ((lambda (#{tmp\ 14658}#)
13455 (if #{tmp\ 14658}#
13456 (apply (lambda (#{dx\ 14660}#)
13457 (list '#(syntax-object
13458 quote
13459 ((top)
13460 #(ribcage
13461 #(dx)
13462 #((top))
13463 #("i14659"))
13464 #(ribcage
13465 #(dy)
13466 #((top))
13467 #("i14655"))
13468 #(ribcage
13469 #(x
13470 y)
13471 #((top)
13472 (top))
13473 #("i14649"
13474 "i14650"))
13475 #(ribcage
13476 ()
13477 ()
13478 ())
13479 #(ribcage
13480 ()
13481 ()
13482 ())
13483 #(ribcage
13484 #(x
13485 y)
13486 #((top)
13487 (top))
13488 #("i14644"
13489 "i14645"))
13490 #(ribcage
13491 #(quasicons
13492 quasiappend
13493 quasivector
13494 quasi)
13495 #((top)
13496 (top)
13497 (top)
13498 (top))
13499 #("i14634"
13500 "i14635"
13501 "i14636"
13502 "i14637")))
13503 (hygiene
13504 guile))
13505 (cons #{dx\ 14660}#
13506 #{dy\ 14656}#)))
13507 #{tmp\ 14658}#)
13508 ((lambda (#{_\ 14662}#)
13509 (if (null? #{dy\ 14656}#)
13510 (list '#(syntax-object
13511 list
13512 ((top)
13513 #(ribcage
13514 #(_)
13515 #((top))
13516 #("i14661"))
13517 #(ribcage
13518 #(dy)
13519 #((top))
13520 #("i14655"))
13521 #(ribcage
13522 #(x
13523 y)
13524 #((top)
13525 (top))
13526 #("i14649"
13527 "i14650"))
13528 #(ribcage
13529 ()
13530 ()
13531 ())
13532 #(ribcage
13533 ()
13534 ()
13535 ())
13536 #(ribcage
13537 #(x
13538 y)
13539 #((top)
13540 (top))
13541 #("i14644"
13542 "i14645"))
13543 #(ribcage
13544 #(quasicons
13545 quasiappend
13546 quasivector
13547 quasi)
13548 #((top)
13549 (top)
13550 (top)
13551 (top))
13552 #("i14634"
13553 "i14635"
13554 "i14636"
13555 "i14637")))
13556 (hygiene
13557 guile))
13558 #{x\ 14651}#)
13559 (list '#(syntax-object
13560 cons
13561 ((top)
13562 #(ribcage
13563 #(_)
13564 #((top))
13565 #("i14661"))
13566 #(ribcage
13567 #(dy)
13568 #((top))
13569 #("i14655"))
13570 #(ribcage
13571 #(x
13572 y)
13573 #((top)
13574 (top))
13575 #("i14649"
13576 "i14650"))
13577 #(ribcage
13578 ()
13579 ()
13580 ())
13581 #(ribcage
13582 ()
13583 ()
13584 ())
13585 #(ribcage
13586 #(x
13587 y)
13588 #((top)
13589 (top))
13590 #("i14644"
13591 "i14645"))
13592 #(ribcage
13593 #(quasicons
13594 quasiappend
13595 quasivector
13596 quasi)
13597 #((top)
13598 (top)
13599 (top)
13600 (top))
13601 #("i14634"
13602 "i14635"
13603 "i14636"
13604 "i14637")))
13605 (hygiene
13606 guile))
13607 #{x\ 14651}#
13608 #{y\ 14652}#)))
13609 #{tmp\ 14657}#)))
13610 ($sc-dispatch
13611 #{tmp\ 14657}#
13612 '(#(free-id
13613 #(syntax-object
13614 quote
13615 ((top)
13616 #(ribcage
13617 #(dy)
13618 #((top))
13619 #("i14655"))
13620 #(ribcage
13621 #(x y)
13622 #((top)
13623 (top))
13624 #("i14649"
13625 "i14650"))
13626 #(ribcage
13627 ()
13628 ()
13629 ())
13630 #(ribcage
13631 ()
13632 ()
13633 ())
13634 #(ribcage
13635 #(x y)
13636 #((top)
13637 (top))
13638 #("i14644"
13639 "i14645"))
13640 #(ribcage
13641 #(quasicons
13642 quasiappend
13643 quasivector
13644 quasi)
13645 #((top)
13646 (top)
13647 (top)
13648 (top))
13649 #("i14634"
13650 "i14635"
13651 "i14636"
13652 "i14637")))
13653 (hygiene
13654 guile)))
13655 any))))
13656 #{x\ 14651}#))
13657 #{tmp\ 14654}#)
13658 ((lambda (#{tmp\ 14663}#)
13659 (if #{tmp\ 14663}#
13660 (apply (lambda (#{stuff\ 14665}#)
13661 (cons '#(syntax-object
13662 list
13663 ((top)
13664 #(ribcage
13665 #(stuff)
13666 #((top))
13667 #("i14664"))
13668 #(ribcage
13669 #(x
13670 y)
13671 #((top)
13672 (top))
13673 #("i14649"
13674 "i14650"))
13675 #(ribcage
13676 ()
13677 ()
13678 ())
13679 #(ribcage
13680 ()
13681 ()
13682 ())
13683 #(ribcage
13684 #(x
13685 y)
13686 #((top)
13687 (top))
13688 #("i14644"
13689 "i14645"))
13690 #(ribcage
13691 #(quasicons
13692 quasiappend
13693 quasivector
13694 quasi)
13695 #((top)
13696 (top)
13697 (top)
13698 (top))
13699 #("i14634"
13700 "i14635"
13701 "i14636"
13702 "i14637")))
13703 (hygiene
13704 guile))
13705 (cons #{x\ 14651}#
13706 #{stuff\ 14665}#)))
13707 #{tmp\ 14663}#)
13708 ((lambda (#{else\ 14667}#)
13709 (list '#(syntax-object
13710 cons
13711 ((top)
13712 #(ribcage
13713 #(else)
13714 #((top))
13715 #("i14666"))
13716 #(ribcage
13717 #(x y)
13718 #((top)
13719 (top))
13720 #("i14649"
13721 "i14650"))
13722 #(ribcage
13723 ()
13724 ()
13725 ())
13726 #(ribcage
13727 ()
13728 ()
13729 ())
13730 #(ribcage
13731 #(x y)
13732 #((top)
13733 (top))
13734 #("i14644"
13735 "i14645"))
13736 #(ribcage
13737 #(quasicons
13738 quasiappend
13739 quasivector
13740 quasi)
13741 #((top)
13742 (top)
13743 (top)
13744 (top))
13745 #("i14634"
13746 "i14635"
13747 "i14636"
13748 "i14637")))
13749 (hygiene
13750 guile))
13751 #{x\ 14651}#
13752 #{y\ 14652}#))
13753 #{tmp\ 14653}#)))
13754 ($sc-dispatch
13755 #{tmp\ 14653}#
13756 '(#(free-id
13757 #(syntax-object
13758 list
13759 ((top)
13760 #(ribcage
13761 #(x y)
13762 #((top) (top))
13763 #("i14649"
13764 "i14650"))
13765 #(ribcage () () ())
13766 #(ribcage () () ())
13767 #(ribcage
13768 #(x y)
13769 #((top) (top))
13770 #("i14644"
13771 "i14645"))
13772 #(ribcage
13773 #(quasicons
13774 quasiappend
13775 quasivector
13776 quasi)
13777 #((top)
13778 (top)
13779 (top)
13780 (top))
13781 #("i14634"
13782 "i14635"
13783 "i14636"
13784 "i14637")))
13785 (hygiene guile)))
13786 .
13787 any)))))
13788 ($sc-dispatch
13789 #{tmp\ 14653}#
13790 '(#(free-id
13791 #(syntax-object
13792 quote
13793 ((top)
13794 #(ribcage
13795 #(x y)
13796 #((top) (top))
13797 #("i14649" "i14650"))
13798 #(ribcage () () ())
13799 #(ribcage () () ())
13800 #(ribcage
13801 #(x y)
13802 #((top) (top))
13803 #("i14644" "i14645"))
13804 #(ribcage
13805 #(quasicons
13806 quasiappend
13807 quasivector
13808 quasi)
13809 #((top)
13810 (top)
13811 (top)
13812 (top))
13813 #("i14634"
13814 "i14635"
13815 "i14636"
13816 "i14637")))
13817 (hygiene guile)))
13818 any))))
13819 #{y\ 14652}#))
13820 #{tmp\ 14648}#)
13821 (syntax-violation
13822 #f
13823 "source expression failed to match any pattern"
13824 #{tmp\ 14647}#)))
13825 ($sc-dispatch #{tmp\ 14647}# (quote (any any)))))
13826 (list #{x\ 14642}# #{y\ 14643}#))))
13827 (#{quasiappend\ 14639}#
13828 (lambda (#{x\ 14668}# #{y\ 14669}#)
13829 ((lambda (#{tmp\ 14673}#)
13830 ((lambda (#{tmp\ 14674}#)
13831 (if #{tmp\ 14674}#
13832 (apply (lambda (#{x\ 14677}# #{y\ 14678}#)
13833 ((lambda (#{tmp\ 14679}#)
13834 ((lambda (#{tmp\ 14680}#)
13835 (if #{tmp\ 14680}#
13836 (apply (lambda () #{x\ 14677}#)
13837 #{tmp\ 14680}#)
13838 ((lambda (#{_\ 14682}#)
13839 (list '#(syntax-object
13840 append
13841 ((top)
13842 #(ribcage
13843 #(_)
13844 #((top))
13845 #("i14681"))
13846 #(ribcage
13847 #(x y)
13848 #((top) (top))
13849 #("i14675"
13850 "i14676"))
13851 #(ribcage
13852 ()
13853 ()
13854 ())
13855 #(ribcage
13856 ()
13857 ()
13858 ())
13859 #(ribcage
13860 #(x y)
13861 #((top) (top))
13862 #("i14670"
13863 "i14671"))
13864 #(ribcage
13865 #(quasicons
13866 quasiappend
13867 quasivector
13868 quasi)
13869 #((top)
13870 (top)
13871 (top)
13872 (top))
13873 #("i14634"
13874 "i14635"
13875 "i14636"
13876 "i14637")))
13877 (hygiene guile))
13878 #{x\ 14677}#
13879 #{y\ 14678}#))
13880 #{tmp\ 14679}#)))
13881 ($sc-dispatch
13882 #{tmp\ 14679}#
13883 '(#(free-id
13884 #(syntax-object
13885 quote
13886 ((top)
13887 #(ribcage
13888 #(x y)
13889 #((top) (top))
13890 #("i14675" "i14676"))
13891 #(ribcage () () ())
13892 #(ribcage () () ())
13893 #(ribcage
13894 #(x y)
13895 #((top) (top))
13896 #("i14670" "i14671"))
13897 #(ribcage
13898 #(quasicons
13899 quasiappend
13900 quasivector
13901 quasi)
13902 #((top)
13903 (top)
13904 (top)
13905 (top))
13906 #("i14634"
13907 "i14635"
13908 "i14636"
13909 "i14637")))
13910 (hygiene guile)))
13911 ()))))
13912 #{y\ 14678}#))
13913 #{tmp\ 14674}#)
13914 (syntax-violation
13915 #f
13916 "source expression failed to match any pattern"
13917 #{tmp\ 14673}#)))
13918 ($sc-dispatch #{tmp\ 14673}# (quote (any any)))))
13919 (list #{x\ 14668}# #{y\ 14669}#))))
13920 (#{quasivector\ 14640}#
13921 (lambda (#{x\ 14683}#)
13922 ((lambda (#{tmp\ 14686}#)
13923 ((lambda (#{x\ 14688}#)
13924 ((lambda (#{tmp\ 14689}#)
13925 ((lambda (#{tmp\ 14690}#)
13926 (if #{tmp\ 14690}#
13927 (apply (lambda (#{x\ 14692}#)
13928 (list '#(syntax-object
13929 quote
13930 ((top)
13931 #(ribcage
13932 #(x)
13933 #((top))
13934 #("i14691"))
13935 #(ribcage
13936 #(x)
13937 #((top))
13938 #("i14687"))
13939 #(ribcage () () ())
13940 #(ribcage () () ())
13941 #(ribcage
13942 #(x)
13943 #((top))
13944 #("i14684"))
13945 #(ribcage
13946 #(quasicons
13947 quasiappend
13948 quasivector
13949 quasi)
13950 #((top)
13951 (top)
13952 (top)
13953 (top))
13954 #("i14634"
13955 "i14635"
13956 "i14636"
13957 "i14637")))
13958 (hygiene guile))
13959 (list->vector
13960 #{x\ 14692}#)))
13961 #{tmp\ 14690}#)
13962 ((lambda (#{tmp\ 14694}#)
13963 (if #{tmp\ 14694}#
13964 (apply (lambda (#{x\ 14696}#)
13965 (cons '#(syntax-object
13966 vector
13967 ((top)
13968 #(ribcage
13969 #(x)
13970 #((top))
13971 #("i14695"))
13972 #(ribcage
13973 #(x)
13974 #((top))
13975 #("i14687"))
13976 #(ribcage
13977 ()
13978 ()
13979 ())
13980 #(ribcage
13981 ()
13982 ()
13983 ())
13984 #(ribcage
13985 #(x)
13986 #((top))
13987 #("i14684"))
13988 #(ribcage
13989 #(quasicons
13990 quasiappend
13991 quasivector
13992 quasi)
13993 #((top)
13994 (top)
13995 (top)
13996 (top))
13997 #("i14634"
13998 "i14635"
13999 "i14636"
14000 "i14637")))
14001 (hygiene guile))
14002 #{x\ 14696}#))
14003 #{tmp\ 14694}#)
14004 ((lambda (#{_\ 14699}#)
14005 (list '#(syntax-object
14006 list->vector
14007 ((top)
14008 #(ribcage
14009 #(_)
14010 #((top))
14011 #("i14698"))
14012 #(ribcage
14013 #(x)
14014 #((top))
14015 #("i14687"))
14016 #(ribcage () () ())
14017 #(ribcage () () ())
14018 #(ribcage
14019 #(x)
14020 #((top))
14021 #("i14684"))
14022 #(ribcage
14023 #(quasicons
14024 quasiappend
14025 quasivector
14026 quasi)
14027 #((top)
14028 (top)
14029 (top)
14030 (top))
14031 #("i14634"
14032 "i14635"
14033 "i14636"
14034 "i14637")))
14035 (hygiene guile))
14036 #{x\ 14688}#))
14037 #{tmp\ 14689}#)))
14038 ($sc-dispatch
14039 #{tmp\ 14689}#
14040 '(#(free-id
14041 #(syntax-object
14042 list
14043 ((top)
14044 #(ribcage
14045 #(x)
14046 #((top))
14047 #("i14687"))
14048 #(ribcage () () ())
14049 #(ribcage () () ())
14050 #(ribcage
14051 #(x)
14052 #((top))
14053 #("i14684"))
14054 #(ribcage
14055 #(quasicons
14056 quasiappend
14057 quasivector
14058 quasi)
14059 #((top) (top) (top) (top))
14060 #("i14634"
14061 "i14635"
14062 "i14636"
14063 "i14637")))
14064 (hygiene guile)))
14065 .
14066 each-any)))))
14067 ($sc-dispatch
14068 #{tmp\ 14689}#
14069 '(#(free-id
14070 #(syntax-object
14071 quote
14072 ((top)
14073 #(ribcage #(x) #((top)) #("i14687"))
14074 #(ribcage () () ())
14075 #(ribcage () () ())
14076 #(ribcage #(x) #((top)) #("i14684"))
14077 #(ribcage
14078 #(quasicons
14079 quasiappend
14080 quasivector
14081 quasi)
14082 #((top) (top) (top) (top))
14083 #("i14634"
14084 "i14635"
14085 "i14636"
14086 "i14637")))
14087 (hygiene guile)))
14088 each-any))))
14089 #{x\ 14688}#))
14090 #{tmp\ 14686}#))
14091 #{x\ 14683}#)))
14092 (#{quasi\ 14641}#
14093 (lambda (#{p\ 14700}# #{lev\ 14701}#)
14094 ((lambda (#{tmp\ 14704}#)
14095 ((lambda (#{tmp\ 14705}#)
14096 (if #{tmp\ 14705}#
14097 (apply (lambda (#{p\ 14707}#)
14098 (if (= #{lev\ 14701}# 0)
14099 #{p\ 14707}#
14100 (#{quasicons\ 14638}#
14101 '(#(syntax-object
14102 quote
14103 ((top)
14104 #(ribcage
14105 #(p)
14106 #((top))
14107 #("i14706"))
14108 #(ribcage () () ())
14109 #(ribcage
14110 #(p lev)
14111 #((top) (top))
14112 #("i14702" "i14703"))
14113 #(ribcage
14114 #(quasicons
14115 quasiappend
14116 quasivector
14117 quasi)
14118 #((top) (top) (top) (top))
14119 #("i14634"
14120 "i14635"
14121 "i14636"
14122 "i14637")))
14123 (hygiene guile))
14124 #(syntax-object
14125 unquote
14126 ((top)
14127 #(ribcage
14128 #(p)
14129 #((top))
14130 #("i14706"))
14131 #(ribcage () () ())
14132 #(ribcage
14133 #(p lev)
14134 #((top) (top))
14135 #("i14702" "i14703"))
14136 #(ribcage
14137 #(quasicons
14138 quasiappend
14139 quasivector
14140 quasi)
14141 #((top) (top) (top) (top))
14142 #("i14634"
14143 "i14635"
14144 "i14636"
14145 "i14637")))
14146 (hygiene guile)))
14147 (#{quasi\ 14641}#
14148 (list #{p\ 14707}#)
14149 (- #{lev\ 14701}# 1)))))
14150 #{tmp\ 14705}#)
14151 ((lambda (#{tmp\ 14708}#)
14152 (if (if #{tmp\ 14708}#
14153 (apply (lambda (#{args\ 14710}#)
14154 (= #{lev\ 14701}# 0))
14155 #{tmp\ 14708}#)
14156 #f)
14157 (apply (lambda (#{args\ 14712}#)
14158 (syntax-violation
14159 'unquote
14160 "unquote takes exactly one argument"
14161 #{p\ 14700}#
14162 (cons '#(syntax-object
14163 unquote
14164 ((top)
14165 #(ribcage
14166 #(args)
14167 #((top))
14168 #("i14711"))
14169 #(ribcage () () ())
14170 #(ribcage
14171 #(p lev)
14172 #((top) (top))
14173 #("i14702"
14174 "i14703"))
14175 #(ribcage
14176 #(quasicons
14177 quasiappend
14178 quasivector
14179 quasi)
14180 #((top)
14181 (top)
14182 (top)
14183 (top))
14184 #("i14634"
14185 "i14635"
14186 "i14636"
14187 "i14637")))
14188 (hygiene guile))
14189 #{args\ 14712}#)))
14190 #{tmp\ 14708}#)
14191 ((lambda (#{tmp\ 14713}#)
14192 (if #{tmp\ 14713}#
14193 (apply (lambda (#{p\ 14716}#
14194 #{q\ 14717}#)
14195 (if (= #{lev\ 14701}# 0)
14196 (#{quasiappend\ 14639}#
14197 #{p\ 14716}#
14198 (#{quasi\ 14641}#
14199 #{q\ 14717}#
14200 #{lev\ 14701}#))
14201 (#{quasicons\ 14638}#
14202 (#{quasicons\ 14638}#
14203 '(#(syntax-object
14204 quote
14205 ((top)
14206 #(ribcage
14207 #(p q)
14208 #((top) (top))
14209 #("i14714"
14210 "i14715"))
14211 #(ribcage
14212 ()
14213 ()
14214 ())
14215 #(ribcage
14216 #(p lev)
14217 #((top) (top))
14218 #("i14702"
14219 "i14703"))
14220 #(ribcage
14221 #(quasicons
14222 quasiappend
14223 quasivector
14224 quasi)
14225 #((top)
14226 (top)
14227 (top)
14228 (top))
14229 #("i14634"
14230 "i14635"
14231 "i14636"
14232 "i14637")))
14233 (hygiene guile))
14234 #(syntax-object
14235 unquote-splicing
14236 ((top)
14237 #(ribcage
14238 #(p q)
14239 #((top) (top))
14240 #("i14714"
14241 "i14715"))
14242 #(ribcage
14243 ()
14244 ()
14245 ())
14246 #(ribcage
14247 #(p lev)
14248 #((top) (top))
14249 #("i14702"
14250 "i14703"))
14251 #(ribcage
14252 #(quasicons
14253 quasiappend
14254 quasivector
14255 quasi)
14256 #((top)
14257 (top)
14258 (top)
14259 (top))
14260 #("i14634"
14261 "i14635"
14262 "i14636"
14263 "i14637")))
14264 (hygiene guile)))
14265 (#{quasi\ 14641}#
14266 (list #{p\ 14716}#)
14267 (- #{lev\ 14701}#
14268 1)))
14269 (#{quasi\ 14641}#
14270 #{q\ 14717}#
14271 #{lev\ 14701}#))))
14272 #{tmp\ 14713}#)
14273 ((lambda (#{tmp\ 14718}#)
14274 (if (if #{tmp\ 14718}#
14275 (apply (lambda (#{args\ 14721}#
14276 #{q\ 14722}#)
14277 (= #{lev\ 14701}#
14278 0))
14279 #{tmp\ 14718}#)
14280 #f)
14281 (apply (lambda (#{args\ 14725}#
14282 #{q\ 14726}#)
14283 (syntax-violation
14284 'unquote-splicing
14285 "unquote-splicing takes exactly one argument"
14286 #{p\ 14700}#
14287 (cons '#(syntax-object
14288 unquote-splicing
14289 ((top)
14290 #(ribcage
14291 #(args q)
14292 #((top)
14293 (top))
14294 #("i14723"
14295 "i14724"))
14296 #(ribcage
14297 ()
14298 ()
14299 ())
14300 #(ribcage
14301 #(p lev)
14302 #((top)
14303 (top))
14304 #("i14702"
14305 "i14703"))
14306 #(ribcage
14307 #(quasicons
14308 quasiappend
14309 quasivector
14310 quasi)
14311 #((top)
14312 (top)
14313 (top)
14314 (top))
14315 #("i14634"
14316 "i14635"
14317 "i14636"
14318 "i14637")))
14319 (hygiene
14320 guile))
14321 #{args\ 14725}#)))
14322 #{tmp\ 14718}#)
14323 ((lambda (#{tmp\ 14727}#)
14324 (if #{tmp\ 14727}#
14325 (apply (lambda (#{p\ 14729}#)
14326 (#{quasicons\ 14638}#
14327 '(#(syntax-object
14328 quote
14329 ((top)
14330 #(ribcage
14331 #(p)
14332 #((top))
14333 #("i14728"))
14334 #(ribcage
14335 ()
14336 ()
14337 ())
14338 #(ribcage
14339 #(p lev)
14340 #((top)
14341 (top))
14342 #("i14702"
14343 "i14703"))
14344 #(ribcage
14345 #(quasicons
14346 quasiappend
14347 quasivector
14348 quasi)
14349 #((top)
14350 (top)
14351 (top)
14352 (top))
14353 #("i14634"
14354 "i14635"
14355 "i14636"
14356 "i14637")))
14357 (hygiene
14358 guile))
14359 #(syntax-object
14360 quasiquote
14361 ((top)
14362 #(ribcage
14363 #(p)
14364 #((top))
14365 #("i14728"))
14366 #(ribcage
14367 ()
14368 ()
14369 ())
14370 #(ribcage
14371 #(p lev)
14372 #((top)
14373 (top))
14374 #("i14702"
14375 "i14703"))
14376 #(ribcage
14377 #(quasicons
14378 quasiappend
14379 quasivector
14380 quasi)
14381 #((top)
14382 (top)
14383 (top)
14384 (top))
14385 #("i14634"
14386 "i14635"
14387 "i14636"
14388 "i14637")))
14389 (hygiene
14390 guile)))
14391 (#{quasi\ 14641}#
14392 (list #{p\ 14729}#)
14393 (+ #{lev\ 14701}#
14394 1))))
14395 #{tmp\ 14727}#)
14396 ((lambda (#{tmp\ 14730}#)
14397 (if #{tmp\ 14730}#
14398 (apply (lambda (#{p\ 14733}#
14399 #{q\ 14734}#)
14400 (#{quasicons\ 14638}#
14401 (#{quasi\ 14641}#
14402 #{p\ 14733}#
14403 #{lev\ 14701}#)
14404 (#{quasi\ 14641}#
14405 #{q\ 14734}#
14406 #{lev\ 14701}#)))
14407 #{tmp\ 14730}#)
14408 ((lambda (#{tmp\ 14735}#)
14409 (if #{tmp\ 14735}#
14410 (apply (lambda (#{x\ 14737}#)
14411 (#{quasivector\ 14640}#
14412 (#{quasi\ 14641}#
14413 #{x\ 14737}#
14414 #{lev\ 14701}#)))
14415 #{tmp\ 14735}#)
14416 ((lambda (#{p\ 14740}#)
14417 (list '#(syntax-object
14418 quote
14419 ((top)
14420 #(ribcage
14421 #(p)
14422 #((top))
14423 #("i14739"))
14424 #(ribcage
14425 ()
14426 ()
14427 ())
14428 #(ribcage
14429 #(p
14430 lev)
14431 #((top)
14432 (top))
14433 #("i14702"
14434 "i14703"))
14435 #(ribcage
14436 #(quasicons
14437 quasiappend
14438 quasivector
14439 quasi)
14440 #((top)
14441 (top)
14442 (top)
14443 (top))
14444 #("i14634"
14445 "i14635"
14446 "i14636"
14447 "i14637")))
14448 (hygiene
14449 guile))
14450 #{p\ 14740}#))
14451 #{tmp\ 14704}#)))
14452 ($sc-dispatch
14453 #{tmp\ 14704}#
14454 '#(vector
14455 each-any)))))
14456 ($sc-dispatch
14457 #{tmp\ 14704}#
14458 '(any . any)))))
14459 ($sc-dispatch
14460 #{tmp\ 14704}#
14461 '(#(free-id
14462 #(syntax-object
14463 quasiquote
14464 ((top)
14465 #(ribcage () () ())
14466 #(ribcage
14467 #(p lev)
14468 #((top) (top))
14469 #("i14702" "i14703"))
14470 #(ribcage
14471 #(quasicons
14472 quasiappend
14473 quasivector
14474 quasi)
14475 #((top)
14476 (top)
14477 (top)
14478 (top))
14479 #("i14634"
14480 "i14635"
14481 "i14636"
14482 "i14637")))
14483 (hygiene guile)))
14484 any)))))
14485 ($sc-dispatch
14486 #{tmp\ 14704}#
14487 '((#(free-id
14488 #(syntax-object
14489 unquote-splicing
14490 ((top)
14491 #(ribcage () () ())
14492 #(ribcage
14493 #(p lev)
14494 #((top) (top))
14495 #("i14702" "i14703"))
14496 #(ribcage
14497 #(quasicons
14498 quasiappend
14499 quasivector
14500 quasi)
14501 #((top)
14502 (top)
14503 (top)
14504 (top))
14505 #("i14634"
14506 "i14635"
14507 "i14636"
14508 "i14637")))
14509 (hygiene guile)))
14510 .
14511 any)
14512 .
14513 any)))))
14514 ($sc-dispatch
14515 #{tmp\ 14704}#
14516 '((#(free-id
14517 #(syntax-object
14518 unquote-splicing
14519 ((top)
14520 #(ribcage () () ())
14521 #(ribcage
14522 #(p lev)
14523 #((top) (top))
14524 #("i14702" "i14703"))
14525 #(ribcage
14526 #(quasicons
14527 quasiappend
14528 quasivector
14529 quasi)
14530 #((top) (top) (top) (top))
14531 #("i14634"
14532 "i14635"
14533 "i14636"
14534 "i14637")))
14535 (hygiene guile)))
14536 any)
14537 .
14538 any)))))
14539 ($sc-dispatch
14540 #{tmp\ 14704}#
14541 '(#(free-id
14542 #(syntax-object
14543 unquote
14544 ((top)
14545 #(ribcage () () ())
14546 #(ribcage
14547 #(p lev)
14548 #((top) (top))
14549 #("i14702" "i14703"))
14550 #(ribcage
14551 #(quasicons
14552 quasiappend
14553 quasivector
14554 quasi)
14555 #((top) (top) (top) (top))
14556 #("i14634"
14557 "i14635"
14558 "i14636"
14559 "i14637")))
14560 (hygiene guile)))
14561 .
14562 any)))))
14563 ($sc-dispatch
14564 #{tmp\ 14704}#
14565 '(#(free-id
14566 #(syntax-object
14567 unquote
14568 ((top)
14569 #(ribcage () () ())
14570 #(ribcage
14571 #(p lev)
14572 #((top) (top))
14573 #("i14702" "i14703"))
14574 #(ribcage
14575 #(quasicons
14576 quasiappend
14577 quasivector
14578 quasi)
14579 #((top) (top) (top) (top))
14580 #("i14634" "i14635" "i14636" "i14637")))
14581 (hygiene guile)))
14582 any))))
14583 #{p\ 14700}#))))
14584 (lambda (#{x\ 14741}#)
14585 ((lambda (#{tmp\ 14743}#)
14586 ((lambda (#{tmp\ 14744}#)
14587 (if #{tmp\ 14744}#
14588 (apply (lambda (#{_\ 14747}# #{e\ 14748}#)
14589 (#{quasi\ 14641}# #{e\ 14748}# 0))
14590 #{tmp\ 14744}#)
14591 (syntax-violation
14592 #f
14593 "source expression failed to match any pattern"
14594 #{tmp\ 14743}#)))
14595 ($sc-dispatch #{tmp\ 14743}# (quote (any any)))))
14596 #{x\ 14741}#)))
14597 (module-name (current-module)))))
14598
14599 (define include
14600 (make-syntax-transformer
14601 'include
14602 'macro
14603 (cons (lambda (#{x\ 14749}#)
14604 (letrec ((#{read-file\ 14752}#
14605 (lambda (#{fn\ 14753}# #{k\ 14754}#)
14606 (let ((#{p\ 14758}# (open-input-file #{fn\ 14753}#)))
14607 (letrec ((#{f\ 14762}#
14608 (lambda (#{x\ 14763}# #{result\ 14764}#)
14609 (if (eof-object? #{x\ 14763}#)
14610 (begin
14611 (close-input-port #{p\ 14758}#)
14612 (reverse #{result\ 14764}#))
14613 (#{f\ 14762}#
14614 (read #{p\ 14758}#)
14615 (cons (datum->syntax
14616 #{k\ 14754}#
14617 #{x\ 14763}#)
14618 #{result\ 14764}#))))))
14619 (#{f\ 14762}# (read #{p\ 14758}#) (quote ())))))))
14620 ((lambda (#{tmp\ 14765}#)
14621 ((lambda (#{tmp\ 14766}#)
14622 (if #{tmp\ 14766}#
14623 (apply (lambda (#{k\ 14769}# #{filename\ 14770}#)
14624 (let ((#{fn\ 14772}#
14625 (syntax->datum #{filename\ 14770}#)))
14626 ((lambda (#{tmp\ 14774}#)
14627 ((lambda (#{tmp\ 14775}#)
14628 (if #{tmp\ 14775}#
14629 (apply (lambda (#{exp\ 14777}#)
14630 (cons '#(syntax-object
14631 begin
14632 ((top)
14633 #(ribcage
14634 #(exp)
14635 #((top))
14636 #("i14776"))
14637 #(ribcage () () ())
14638 #(ribcage () () ())
14639 #(ribcage
14640 #(fn)
14641 #((top))
14642 #("i14771"))
14643 #(ribcage
14644 #(k filename)
14645 #((top) (top))
14646 #("i14767"
14647 "i14768"))
14648 #(ribcage
14649 (read-file)
14650 ((top))
14651 ("i14751"))
14652 #(ribcage
14653 #(x)
14654 #((top))
14655 #("i14750")))
14656 (hygiene guile))
14657 #{exp\ 14777}#))
14658 #{tmp\ 14775}#)
14659 (syntax-violation
14660 #f
14661 "source expression failed to match any pattern"
14662 #{tmp\ 14774}#)))
14663 ($sc-dispatch
14664 #{tmp\ 14774}#
14665 'each-any)))
14666 (#{read-file\ 14752}#
14667 #{fn\ 14772}#
14668 #{k\ 14769}#))))
14669 #{tmp\ 14766}#)
14670 (syntax-violation
14671 #f
14672 "source expression failed to match any pattern"
14673 #{tmp\ 14765}#)))
14674 ($sc-dispatch #{tmp\ 14765}# (quote (any any)))))
14675 #{x\ 14749}#)))
14676 (module-name (current-module)))))
14677
14678 (define include-from-path
14679 (make-syntax-transformer
14680 'include-from-path
14681 'macro
14682 (cons (lambda (#{x\ 14779}#)
14683 ((lambda (#{tmp\ 14781}#)
14684 ((lambda (#{tmp\ 14782}#)
14685 (if #{tmp\ 14782}#
14686 (apply (lambda (#{k\ 14785}# #{filename\ 14786}#)
14687 (let ((#{fn\ 14788}#
14688 (syntax->datum #{filename\ 14786}#)))
14689 ((lambda (#{tmp\ 14790}#)
14690 ((lambda (#{fn\ 14792}#)
14691 (list '#(syntax-object
14692 include
14693 ((top)
14694 #(ribcage
14695 #(fn)
14696 #((top))
14697 #("i14791"))
14698 #(ribcage () () ())
14699 #(ribcage () () ())
14700 #(ribcage
14701 #(fn)
14702 #((top))
14703 #("i14787"))
14704 #(ribcage
14705 #(k filename)
14706 #((top) (top))
14707 #("i14783" "i14784"))
14708 #(ribcage () () ())
14709 #(ribcage
14710 #(x)
14711 #((top))
14712 #("i14780")))
14713 (hygiene guile))
14714 #{fn\ 14792}#))
14715 #{tmp\ 14790}#))
14716 (let ((#{t\ 14795}#
14717 (%search-load-path #{fn\ 14788}#)))
14718 (if #{t\ 14795}#
14719 #{t\ 14795}#
14720 (syntax-violation
14721 'include-from-path
14722 "file not found in path"
14723 #{x\ 14779}#
14724 #{filename\ 14786}#))))))
14725 #{tmp\ 14782}#)
14726 (syntax-violation
14727 #f
14728 "source expression failed to match any pattern"
14729 #{tmp\ 14781}#)))
14730 ($sc-dispatch #{tmp\ 14781}# (quote (any any)))))
14731 #{x\ 14779}#))
14732 (module-name (current-module)))))
14733
14734 (define unquote
14735 (make-syntax-transformer
14736 'unquote
14737 'macro
14738 (cons (lambda (#{x\ 14797}#)
14739 ((lambda (#{tmp\ 14799}#)
14740 ((lambda (#{tmp\ 14800}#)
14741 (if #{tmp\ 14800}#
14742 (apply (lambda (#{_\ 14803}# #{e\ 14804}#)
14743 (syntax-violation
14744 'unquote
14745 "expression not valid outside of quasiquote"
14746 #{x\ 14797}#))
14747 #{tmp\ 14800}#)
14748 (syntax-violation
14749 #f
14750 "source expression failed to match any pattern"
14751 #{tmp\ 14799}#)))
14752 ($sc-dispatch #{tmp\ 14799}# (quote (any any)))))
14753 #{x\ 14797}#))
14754 (module-name (current-module)))))
14755
14756 (define unquote-splicing
14757 (make-syntax-transformer
14758 'unquote-splicing
14759 'macro
14760 (cons (lambda (#{x\ 14805}#)
14761 ((lambda (#{tmp\ 14807}#)
14762 ((lambda (#{tmp\ 14808}#)
14763 (if #{tmp\ 14808}#
14764 (apply (lambda (#{_\ 14811}# #{e\ 14812}#)
14765 (syntax-violation
14766 'unquote-splicing
14767 "expression not valid outside of quasiquote"
14768 #{x\ 14805}#))
14769 #{tmp\ 14808}#)
14770 (syntax-violation
14771 #f
14772 "source expression failed to match any pattern"
14773 #{tmp\ 14807}#)))
14774 ($sc-dispatch #{tmp\ 14807}# (quote (any any)))))
14775 #{x\ 14805}#))
14776 (module-name (current-module)))))
14777
14778 (define case
14779 (make-syntax-transformer
14780 'case
14781 'macro
14782 (cons (lambda (#{x\ 14813}#)
14783 ((lambda (#{tmp\ 14815}#)
14784 ((lambda (#{tmp\ 14816}#)
14785 (if #{tmp\ 14816}#
14786 (apply (lambda (#{_\ 14821}#
14787 #{e\ 14822}#
14788 #{m1\ 14823}#
14789 #{m2\ 14824}#)
14790 ((lambda (#{tmp\ 14826}#)
14791 ((lambda (#{body\ 14828}#)
14792 (list '#(syntax-object
14793 let
14794 ((top)
14795 #(ribcage
14796 #(body)
14797 #((top))
14798 #("i14827"))
14799 #(ribcage
14800 #(_ e m1 m2)
14801 #((top) (top) (top) (top))
14802 #("i14817"
14803 "i14818"
14804 "i14819"
14805 "i14820"))
14806 #(ribcage () () ())
14807 #(ribcage
14808 #(x)
14809 #((top))
14810 #("i14814")))
14811 (hygiene guile))
14812 (list (list '#(syntax-object
14813 t
14814 ((top)
14815 #(ribcage
14816 #(body)
14817 #((top))
14818 #("i14827"))
14819 #(ribcage
14820 #(_ e m1 m2)
14821 #((top)
14822 (top)
14823 (top)
14824 (top))
14825 #("i14817"
14826 "i14818"
14827 "i14819"
14828 "i14820"))
14829 #(ribcage () () ())
14830 #(ribcage
14831 #(x)
14832 #((top))
14833 #("i14814")))
14834 (hygiene guile))
14835 #{e\ 14822}#))
14836 #{body\ 14828}#))
14837 #{tmp\ 14826}#))
14838 (letrec ((#{f\ 14832}#
14839 (lambda (#{clause\ 14833}#
14840 #{clauses\ 14834}#)
14841 (if (null? #{clauses\ 14834}#)
14842 ((lambda (#{tmp\ 14836}#)
14843 ((lambda (#{tmp\ 14837}#)
14844 (if #{tmp\ 14837}#
14845 (apply (lambda (#{e1\ 14840}#
14846 #{e2\ 14841}#)
14847 (cons '#(syntax-object
14848 begin
14849 ((top)
14850 #(ribcage
14851 #(e1
14852 e2)
14853 #((top)
14854 (top))
14855 #("i14838"
14856 "i14839"))
14857 #(ribcage
14858 ()
14859 ()
14860 ())
14861 #(ribcage
14862 #(f
14863 clause
14864 clauses)
14865 #((top)
14866 (top)
14867 (top))
14868 #("i14829"
14869 "i14830"
14870 "i14831"))
14871 #(ribcage
14872 #(_
14873 e
14874 m1
14875 m2)
14876 #((top)
14877 (top)
14878 (top)
14879 (top))
14880 #("i14817"
14881 "i14818"
14882 "i14819"
14883 "i14820"))
14884 #(ribcage
14885 ()
14886 ()
14887 ())
14888 #(ribcage
14889 #(x)
14890 #((top))
14891 #("i14814")))
14892 (hygiene
14893 guile))
14894 (cons #{e1\ 14840}#
14895 #{e2\ 14841}#)))
14896 #{tmp\ 14837}#)
14897 ((lambda (#{tmp\ 14843}#)
14898 (if #{tmp\ 14843}#
14899 (apply (lambda (#{k\ 14847}#
14900 #{e1\ 14848}#
14901 #{e2\ 14849}#)
14902 (list '#(syntax-object
14903 if
14904 ((top)
14905 #(ribcage
14906 #(k
14907 e1
14908 e2)
14909 #((top)
14910 (top)
14911 (top))
14912 #("i14844"
14913 "i14845"
14914 "i14846"))
14915 #(ribcage
14916 ()
14917 ()
14918 ())
14919 #(ribcage
14920 #(f
14921 clause
14922 clauses)
14923 #((top)
14924 (top)
14925 (top))
14926 #("i14829"
14927 "i14830"
14928 "i14831"))
14929 #(ribcage
14930 #(_
14931 e
14932 m1
14933 m2)
14934 #((top)
14935 (top)
14936 (top)
14937 (top))
14938 #("i14817"
14939 "i14818"
14940 "i14819"
14941 "i14820"))
14942 #(ribcage
14943 ()
14944 ()
14945 ())
14946 #(ribcage
14947 #(x)
14948 #((top))
14949 #("i14814")))
14950 (hygiene
14951 guile))
14952 (list '#(syntax-object
14953 memv
14954 ((top)
14955 #(ribcage
14956 #(k
14957 e1
14958 e2)
14959 #((top)
14960 (top)
14961 (top))
14962 #("i14844"
14963 "i14845"
14964 "i14846"))
14965 #(ribcage
14966 ()
14967 ()
14968 ())
14969 #(ribcage
14970 #(f
14971 clause
14972 clauses)
14973 #((top)
14974 (top)
14975 (top))
14976 #("i14829"
14977 "i14830"
14978 "i14831"))
14979 #(ribcage
14980 #(_
14981 e
14982 m1
14983 m2)
14984 #((top)
14985 (top)
14986 (top)
14987 (top))
14988 #("i14817"
14989 "i14818"
14990 "i14819"
14991 "i14820"))
14992 #(ribcage
14993 ()
14994 ()
14995 ())
14996 #(ribcage
14997 #(x)
14998 #((top))
14999 #("i14814")))
15000 (hygiene
15001 guile))
15002 '#(syntax-object
15003 t
15004 ((top)
15005 #(ribcage
15006 #(k
15007 e1
15008 e2)
15009 #((top)
15010 (top)
15011 (top))
15012 #("i14844"
15013 "i14845"
15014 "i14846"))
15015 #(ribcage
15016 ()
15017 ()
15018 ())
15019 #(ribcage
15020 #(f
15021 clause
15022 clauses)
15023 #((top)
15024 (top)
15025 (top))
15026 #("i14829"
15027 "i14830"
15028 "i14831"))
15029 #(ribcage
15030 #(_
15031 e
15032 m1
15033 m2)
15034 #((top)
15035 (top)
15036 (top)
15037 (top))
15038 #("i14817"
15039 "i14818"
15040 "i14819"
15041 "i14820"))
15042 #(ribcage
15043 ()
15044 ()
15045 ())
15046 #(ribcage
15047 #(x)
15048 #((top))
15049 #("i14814")))
15050 (hygiene
15051 guile))
15052 (list '#(syntax-object
15053 quote
15054 ((top)
15055 #(ribcage
15056 #(k
15057 e1
15058 e2)
15059 #((top)
15060 (top)
15061 (top))
15062 #("i14844"
15063 "i14845"
15064 "i14846"))
15065 #(ribcage
15066 ()
15067 ()
15068 ())
15069 #(ribcage
15070 #(f
15071 clause
15072 clauses)
15073 #((top)
15074 (top)
15075 (top))
15076 #("i14829"
15077 "i14830"
15078 "i14831"))
15079 #(ribcage
15080 #(_
15081 e
15082 m1
15083 m2)
15084 #((top)
15085 (top)
15086 (top)
15087 (top))
15088 #("i14817"
15089 "i14818"
15090 "i14819"
15091 "i14820"))
15092 #(ribcage
15093 ()
15094 ()
15095 ())
15096 #(ribcage
15097 #(x)
15098 #((top))
15099 #("i14814")))
15100 (hygiene
15101 guile))
15102 #{k\ 14847}#))
15103 (cons '#(syntax-object
15104 begin
15105 ((top)
15106 #(ribcage
15107 #(k
15108 e1
15109 e2)
15110 #((top)
15111 (top)
15112 (top))
15113 #("i14844"
15114 "i14845"
15115 "i14846"))
15116 #(ribcage
15117 ()
15118 ()
15119 ())
15120 #(ribcage
15121 #(f
15122 clause
15123 clauses)
15124 #((top)
15125 (top)
15126 (top))
15127 #("i14829"
15128 "i14830"
15129 "i14831"))
15130 #(ribcage
15131 #(_
15132 e
15133 m1
15134 m2)
15135 #((top)
15136 (top)
15137 (top)
15138 (top))
15139 #("i14817"
15140 "i14818"
15141 "i14819"
15142 "i14820"))
15143 #(ribcage
15144 ()
15145 ()
15146 ())
15147 #(ribcage
15148 #(x)
15149 #((top))
15150 #("i14814")))
15151 (hygiene
15152 guile))
15153 (cons #{e1\ 14848}#
15154 #{e2\ 14849}#))))
15155 #{tmp\ 14843}#)
15156 ((lambda (#{_\ 14853}#)
15157 (syntax-violation
15158 'case
15159 "bad clause"
15160 #{x\ 14813}#
15161 #{clause\ 14833}#))
15162 #{tmp\ 14836}#)))
15163 ($sc-dispatch
15164 #{tmp\ 14836}#
15165 '(each-any
15166 any
15167 .
15168 each-any)))))
15169 ($sc-dispatch
15170 #{tmp\ 14836}#
15171 '(#(free-id
15172 #(syntax-object
15173 else
15174 ((top)
15175 #(ribcage () () ())
15176 #(ribcage
15177 #(f clause clauses)
15178 #((top)
15179 (top)
15180 (top))
15181 #("i14829"
15182 "i14830"
15183 "i14831"))
15184 #(ribcage
15185 #(_ e m1 m2)
15186 #((top)
15187 (top)
15188 (top)
15189 (top))
15190 #("i14817"
15191 "i14818"
15192 "i14819"
15193 "i14820"))
15194 #(ribcage () () ())
15195 #(ribcage
15196 #(x)
15197 #((top))
15198 #("i14814")))
15199 (hygiene guile)))
15200 any
15201 .
15202 each-any))))
15203 #{clause\ 14833}#)
15204 ((lambda (#{tmp\ 14855}#)
15205 ((lambda (#{rest\ 14857}#)
15206 ((lambda (#{tmp\ 14858}#)
15207 ((lambda (#{tmp\ 14859}#)
15208 (if #{tmp\ 14859}#
15209 (apply (lambda (#{k\ 14863}#
15210 #{e1\ 14864}#
15211 #{e2\ 14865}#)
15212 (list '#(syntax-object
15213 if
15214 ((top)
15215 #(ribcage
15216 #(k
15217 e1
15218 e2)
15219 #((top)
15220 (top)
15221 (top))
15222 #("i14860"
15223 "i14861"
15224 "i14862"))
15225 #(ribcage
15226 #(rest)
15227 #((top))
15228 #("i14856"))
15229 #(ribcage
15230 ()
15231 ()
15232 ())
15233 #(ribcage
15234 #(f
15235 clause
15236 clauses)
15237 #((top)
15238 (top)
15239 (top))
15240 #("i14829"
15241 "i14830"
15242 "i14831"))
15243 #(ribcage
15244 #(_
15245 e
15246 m1
15247 m2)
15248 #((top)
15249 (top)
15250 (top)
15251 (top))
15252 #("i14817"
15253 "i14818"
15254 "i14819"
15255 "i14820"))
15256 #(ribcage
15257 ()
15258 ()
15259 ())
15260 #(ribcage
15261 #(x)
15262 #((top))
15263 #("i14814")))
15264 (hygiene
15265 guile))
15266 (list '#(syntax-object
15267 memv
15268 ((top)
15269 #(ribcage
15270 #(k
15271 e1
15272 e2)
15273 #((top)
15274 (top)
15275 (top))
15276 #("i14860"
15277 "i14861"
15278 "i14862"))
15279 #(ribcage
15280 #(rest)
15281 #((top))
15282 #("i14856"))
15283 #(ribcage
15284 ()
15285 ()
15286 ())
15287 #(ribcage
15288 #(f
15289 clause
15290 clauses)
15291 #((top)
15292 (top)
15293 (top))
15294 #("i14829"
15295 "i14830"
15296 "i14831"))
15297 #(ribcage
15298 #(_
15299 e
15300 m1
15301 m2)
15302 #((top)
15303 (top)
15304 (top)
15305 (top))
15306 #("i14817"
15307 "i14818"
15308 "i14819"
15309 "i14820"))
15310 #(ribcage
15311 ()
15312 ()
15313 ())
15314 #(ribcage
15315 #(x)
15316 #((top))
15317 #("i14814")))
15318 (hygiene
15319 guile))
15320 '#(syntax-object
15321 t
15322 ((top)
15323 #(ribcage
15324 #(k
15325 e1
15326 e2)
15327 #((top)
15328 (top)
15329 (top))
15330 #("i14860"
15331 "i14861"
15332 "i14862"))
15333 #(ribcage
15334 #(rest)
15335 #((top))
15336 #("i14856"))
15337 #(ribcage
15338 ()
15339 ()
15340 ())
15341 #(ribcage
15342 #(f
15343 clause
15344 clauses)
15345 #((top)
15346 (top)
15347 (top))
15348 #("i14829"
15349 "i14830"
15350 "i14831"))
15351 #(ribcage
15352 #(_
15353 e
15354 m1
15355 m2)
15356 #((top)
15357 (top)
15358 (top)
15359 (top))
15360 #("i14817"
15361 "i14818"
15362 "i14819"
15363 "i14820"))
15364 #(ribcage
15365 ()
15366 ()
15367 ())
15368 #(ribcage
15369 #(x)
15370 #((top))
15371 #("i14814")))
15372 (hygiene
15373 guile))
15374 (list '#(syntax-object
15375 quote
15376 ((top)
15377 #(ribcage
15378 #(k
15379 e1
15380 e2)
15381 #((top)
15382 (top)
15383 (top))
15384 #("i14860"
15385 "i14861"
15386 "i14862"))
15387 #(ribcage
15388 #(rest)
15389 #((top))
15390 #("i14856"))
15391 #(ribcage
15392 ()
15393 ()
15394 ())
15395 #(ribcage
15396 #(f
15397 clause
15398 clauses)
15399 #((top)
15400 (top)
15401 (top))
15402 #("i14829"
15403 "i14830"
15404 "i14831"))
15405 #(ribcage
15406 #(_
15407 e
15408 m1
15409 m2)
15410 #((top)
15411 (top)
15412 (top)
15413 (top))
15414 #("i14817"
15415 "i14818"
15416 "i14819"
15417 "i14820"))
15418 #(ribcage
15419 ()
15420 ()
15421 ())
15422 #(ribcage
15423 #(x)
15424 #((top))
15425 #("i14814")))
15426 (hygiene
15427 guile))
15428 #{k\ 14863}#))
15429 (cons '#(syntax-object
15430 begin
15431 ((top)
15432 #(ribcage
15433 #(k
15434 e1
15435 e2)
15436 #((top)
15437 (top)
15438 (top))
15439 #("i14860"
15440 "i14861"
15441 "i14862"))
15442 #(ribcage
15443 #(rest)
15444 #((top))
15445 #("i14856"))
15446 #(ribcage
15447 ()
15448 ()
15449 ())
15450 #(ribcage
15451 #(f
15452 clause
15453 clauses)
15454 #((top)
15455 (top)
15456 (top))
15457 #("i14829"
15458 "i14830"
15459 "i14831"))
15460 #(ribcage
15461 #(_
15462 e
15463 m1
15464 m2)
15465 #((top)
15466 (top)
15467 (top)
15468 (top))
15469 #("i14817"
15470 "i14818"
15471 "i14819"
15472 "i14820"))
15473 #(ribcage
15474 ()
15475 ()
15476 ())
15477 #(ribcage
15478 #(x)
15479 #((top))
15480 #("i14814")))
15481 (hygiene
15482 guile))
15483 (cons #{e1\ 14864}#
15484 #{e2\ 14865}#))
15485 #{rest\ 14857}#))
15486 #{tmp\ 14859}#)
15487 ((lambda (#{_\ 14869}#)
15488 (syntax-violation
15489 'case
15490 "bad clause"
15491 #{x\ 14813}#
15492 #{clause\ 14833}#))
15493 #{tmp\ 14858}#)))
15494 ($sc-dispatch
15495 #{tmp\ 14858}#
15496 '(each-any
15497 any
15498 .
15499 each-any))))
15500 #{clause\ 14833}#))
15501 #{tmp\ 14855}#))
15502 (#{f\ 14832}#
15503 (car #{clauses\ 14834}#)
15504 (cdr #{clauses\ 14834}#)))))))
15505 (#{f\ 14832}# #{m1\ 14823}# #{m2\ 14824}#))))
15506 #{tmp\ 14816}#)
15507 (syntax-violation
15508 #f
15509 "source expression failed to match any pattern"
15510 #{tmp\ 14815}#)))
15511 ($sc-dispatch
15512 #{tmp\ 14815}#
15513 '(any any any . each-any))))
15514 #{x\ 14813}#))
15515 (module-name (current-module)))))
15516
15517 (define identifier-syntax
15518 (make-syntax-transformer
15519 'identifier-syntax
15520 'macro
15521 (cons (lambda (#{x\ 14870}#)
15522 ((lambda (#{tmp\ 14872}#)
15523 ((lambda (#{tmp\ 14873}#)
15524 (if #{tmp\ 14873}#
15525 (apply (lambda (#{_\ 14876}# #{e\ 14877}#)
15526 (list '#(syntax-object
15527 lambda
15528 ((top)
15529 #(ribcage
15530 #(_ e)
15531 #((top) (top))
15532 #("i14874" "i14875"))
15533 #(ribcage () () ())
15534 #(ribcage #(x) #((top)) #("i14871")))
15535 (hygiene guile))
15536 '(#(syntax-object
15537 x
15538 ((top)
15539 #(ribcage
15540 #(_ e)
15541 #((top) (top))
15542 #("i14874" "i14875"))
15543 #(ribcage () () ())
15544 #(ribcage #(x) #((top)) #("i14871")))
15545 (hygiene guile)))
15546 '#((#(syntax-object
15547 macro-type
15548 ((top)
15549 #(ribcage
15550 #(_ e)
15551 #((top) (top))
15552 #("i14874" "i14875"))
15553 #(ribcage () () ())
15554 #(ribcage #(x) #((top)) #("i14871")))
15555 (hygiene guile))
15556 .
15557 #(syntax-object
15558 identifier-syntax
15559 ((top)
15560 #(ribcage
15561 #(_ e)
15562 #((top) (top))
15563 #("i14874" "i14875"))
15564 #(ribcage () () ())
15565 #(ribcage #(x) #((top)) #("i14871")))
15566 (hygiene guile))))
15567 (list '#(syntax-object
15568 syntax-case
15569 ((top)
15570 #(ribcage
15571 #(_ e)
15572 #((top) (top))
15573 #("i14874" "i14875"))
15574 #(ribcage () () ())
15575 #(ribcage
15576 #(x)
15577 #((top))
15578 #("i14871")))
15579 (hygiene guile))
15580 '#(syntax-object
15581 x
15582 ((top)
15583 #(ribcage
15584 #(_ e)
15585 #((top) (top))
15586 #("i14874" "i14875"))
15587 #(ribcage () () ())
15588 #(ribcage
15589 #(x)
15590 #((top))
15591 #("i14871")))
15592 (hygiene guile))
15593 '()
15594 (list '#(syntax-object
15595 id
15596 ((top)
15597 #(ribcage
15598 #(_ e)
15599 #((top) (top))
15600 #("i14874" "i14875"))
15601 #(ribcage () () ())
15602 #(ribcage
15603 #(x)
15604 #((top))
15605 #("i14871")))
15606 (hygiene guile))
15607 '(#(syntax-object
15608 identifier?
15609 ((top)
15610 #(ribcage
15611 #(_ e)
15612 #((top) (top))
15613 #("i14874" "i14875"))
15614 #(ribcage () () ())
15615 #(ribcage
15616 #(x)
15617 #((top))
15618 #("i14871")))
15619 (hygiene guile))
15620 (#(syntax-object
15621 syntax
15622 ((top)
15623 #(ribcage
15624 #(_ e)
15625 #((top) (top))
15626 #("i14874" "i14875"))
15627 #(ribcage () () ())
15628 #(ribcage
15629 #(x)
15630 #((top))
15631 #("i14871")))
15632 (hygiene guile))
15633 #(syntax-object
15634 id
15635 ((top)
15636 #(ribcage
15637 #(_ e)
15638 #((top) (top))
15639 #("i14874" "i14875"))
15640 #(ribcage () () ())
15641 #(ribcage
15642 #(x)
15643 #((top))
15644 #("i14871")))
15645 (hygiene guile))))
15646 (list '#(syntax-object
15647 syntax
15648 ((top)
15649 #(ribcage
15650 #(_ e)
15651 #((top) (top))
15652 #("i14874"
15653 "i14875"))
15654 #(ribcage () () ())
15655 #(ribcage
15656 #(x)
15657 #((top))
15658 #("i14871")))
15659 (hygiene guile))
15660 #{e\ 14877}#))
15661 (list (cons #{_\ 14876}#
15662 '(#(syntax-object
15663 x
15664 ((top)
15665 #(ribcage
15666 #(_ e)
15667 #((top) (top))
15668 #("i14874"
15669 "i14875"))
15670 #(ribcage () () ())
15671 #(ribcage
15672 #(x)
15673 #((top))
15674 #("i14871")))
15675 (hygiene guile))
15676 #(syntax-object
15677 ...
15678 ((top)
15679 #(ribcage
15680 #(_ e)
15681 #((top) (top))
15682 #("i14874"
15683 "i14875"))
15684 #(ribcage () () ())
15685 #(ribcage
15686 #(x)
15687 #((top))
15688 #("i14871")))
15689 (hygiene guile))))
15690 (list '#(syntax-object
15691 syntax
15692 ((top)
15693 #(ribcage
15694 #(_ e)
15695 #((top) (top))
15696 #("i14874"
15697 "i14875"))
15698 #(ribcage () () ())
15699 #(ribcage
15700 #(x)
15701 #((top))
15702 #("i14871")))
15703 (hygiene guile))
15704 (cons #{e\ 14877}#
15705 '(#(syntax-object
15706 x
15707 ((top)
15708 #(ribcage
15709 #(_ e)
15710 #((top)
15711 (top))
15712 #("i14874"
15713 "i14875"))
15714 #(ribcage
15715 ()
15716 ()
15717 ())
15718 #(ribcage
15719 #(x)
15720 #((top))
15721 #("i14871")))
15722 (hygiene guile))
15723 #(syntax-object
15724 ...
15725 ((top)
15726 #(ribcage
15727 #(_ e)
15728 #((top)
15729 (top))
15730 #("i14874"
15731 "i14875"))
15732 #(ribcage
15733 ()
15734 ()
15735 ())
15736 #(ribcage
15737 #(x)
15738 #((top))
15739 #("i14871")))
15740 (hygiene
15741 guile)))))))))
15742 #{tmp\ 14873}#)
15743 (syntax-violation
15744 #f
15745 "source expression failed to match any pattern"
15746 #{tmp\ 14872}#)))
15747 ($sc-dispatch #{tmp\ 14872}# (quote (any any)))))
15748 #{x\ 14870}#))
15749 (module-name (current-module)))))
15750
15751 (define define*
15752 (make-syntax-transformer
15753 'define*
15754 'macro
15755 (cons (lambda (#{x\ 14878}#)
15756 ((lambda (#{tmp\ 14880}#)
15757 ((lambda (#{tmp\ 14881}#)
15758 (if #{tmp\ 14881}#
15759 (apply (lambda (#{_\ 14887}#
15760 #{id\ 14888}#
15761 #{args\ 14889}#
15762 #{b0\ 14890}#
15763 #{b1\ 14891}#)
15764 (list '#(syntax-object
15765 define
15766 ((top)
15767 #(ribcage
15768 #(_ id args b0 b1)
15769 #((top) (top) (top) (top) (top))
15770 #("i14882"
15771 "i14883"
15772 "i14884"
15773 "i14885"
15774 "i14886"))
15775 #(ribcage () () ())
15776 #(ribcage #(x) #((top)) #("i14879")))
15777 (hygiene guile))
15778 #{id\ 14888}#
15779 (cons '#(syntax-object
15780 lambda*
15781 ((top)
15782 #(ribcage
15783 #(_ id args b0 b1)
15784 #((top) (top) (top) (top) (top))
15785 #("i14882"
15786 "i14883"
15787 "i14884"
15788 "i14885"
15789 "i14886"))
15790 #(ribcage () () ())
15791 #(ribcage
15792 #(x)
15793 #((top))
15794 #("i14879")))
15795 (hygiene guile))
15796 (cons #{args\ 14889}#
15797 (cons #{b0\ 14890}#
15798 #{b1\ 14891}#)))))
15799 #{tmp\ 14881}#)
15800 ((lambda (#{tmp\ 14893}#)
15801 (if (if #{tmp\ 14893}#
15802 (apply (lambda (#{_\ 14897}#
15803 #{id\ 14898}#
15804 #{val\ 14899}#)
15805 (identifier?
15806 '#(syntax-object
15807 x
15808 ((top)
15809 #(ribcage
15810 #(_ id val)
15811 #((top) (top) (top))
15812 #("i14894" "i14895" "i14896"))
15813 #(ribcage () () ())
15814 #(ribcage
15815 #(x)
15816 #((top))
15817 #("i14879")))
15818 (hygiene guile))))
15819 #{tmp\ 14893}#)
15820 #f)
15821 (apply (lambda (#{_\ 14903}#
15822 #{id\ 14904}#
15823 #{val\ 14905}#)
15824 (list '#(syntax-object
15825 define
15826 ((top)
15827 #(ribcage
15828 #(_ id val)
15829 #((top) (top) (top))
15830 #("i14900" "i14901" "i14902"))
15831 #(ribcage () () ())
15832 #(ribcage
15833 #(x)
15834 #((top))
15835 #("i14879")))
15836 (hygiene guile))
15837 #{id\ 14904}#
15838 #{val\ 14905}#))
15839 #{tmp\ 14893}#)
15840 (syntax-violation
15841 #f
15842 "source expression failed to match any pattern"
15843 #{tmp\ 14880}#)))
15844 ($sc-dispatch
15845 #{tmp\ 14880}#
15846 '(any any any)))))
15847 ($sc-dispatch
15848 #{tmp\ 14880}#
15849 '(any (any . any) any . each-any))))
15850 #{x\ 14878}#))
15851 (module-name (current-module)))))
15852
Unnamed repository; edit this file 'description' to name the repository.