HCoop / bpt / guile.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
set module version in module-export-all!
[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*\ 20}#
5 (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#)
6 (let ((#{t\ 200}# (null? #{first\ 193}#)))
7 (if #{t\ 200}#
8 #{t\ 200}#
9 (if (null? #{rest\ 194}#)
10 (letrec ((#{andmap\ 204}#
11 (lambda (#{first\ 205}#)
12 (let ((#{x\ 208}# (car #{first\ 205}#))
13 (#{first\ 209}# (cdr #{first\ 205}#)))
14 (if (null? #{first\ 209}#)
15 (#{f\ 192}# #{x\ 208}#)
16 (if (#{f\ 192}# #{x\ 208}#)
17 (#{andmap\ 204}# #{first\ 209}#)
18 #f))))))
19 (#{andmap\ 204}# #{first\ 193}#))
20 (letrec ((#{andmap\ 215}#
21 (lambda (#{first\ 216}# #{rest\ 217}#)
22 (let ((#{x\ 222}# (car #{first\ 216}#))
23 (#{xr\ 223}# (map car #{rest\ 217}#))
24 (#{first\ 224}# (cdr #{first\ 216}#))
25 (#{rest\ 225}# (map cdr #{rest\ 217}#)))
26 (if (null? #{first\ 224}#)
27 (apply #{f\ 192}#
28 (cons #{x\ 222}# #{xr\ 223}#))
29 (if (apply #{f\ 192}#
30 (cons #{x\ 222}# #{xr\ 223}#))
31 (#{andmap\ 215}#
32 #{first\ 224}#
33 #{rest\ 225}#)
34 #f))))))
35 (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#))))))))
36 (letrec ((#{lambda-var-list\ 487}#
37 (lambda (#{vars\ 702}#)
38 (letrec ((#{lvl\ 708}#
39 (lambda (#{vars\ 709}# #{ls\ 710}# #{w\ 711}#)
40 (if (pair? #{vars\ 709}#)
41 (#{lvl\ 708}#
42 (cdr #{vars\ 709}#)
43 (cons (#{wrap\ 441}#
44 (car #{vars\ 709}#)
45 #{w\ 711}#
46 #f)
47 #{ls\ 710}#)
48 #{w\ 711}#)
49 (if (#{id?\ 372}# #{vars\ 709}#)
50 (cons (#{wrap\ 441}#
51 #{vars\ 709}#
52 #{w\ 711}#
53 #f)
54 #{ls\ 710}#)
55 (if (null? #{vars\ 709}#)
56 #{ls\ 710}#
57 (if (#{syntax-object?\ 336}# #{vars\ 709}#)
58 (#{lvl\ 708}#
59 (#{syntax-object-expression\ 338}#
60 #{vars\ 709}#)
61 #{ls\ 710}#
62 (#{join-wraps\ 423}#
63 #{w\ 711}#
64 (#{syntax-object-wrap\ 340}#
65 #{vars\ 709}#)))
66 (cons #{vars\ 709}# #{ls\ 710}#))))))))
67 (#{lvl\ 708}#
68 #{vars\ 702}#
69 '()
70 '(())))))
71 (#{gen-var\ 485}#
72 (lambda (#{id\ 722}#)
73 (let ((#{id\ 725}#
74 (if (#{syntax-object?\ 336}# #{id\ 722}#)
75 (#{syntax-object-expression\ 338}# #{id\ 722}#)
76 #{id\ 722}#)))
77 (gensym
78 (string-append (symbol->string #{id\ 725}#) " ")))))
79 (#{strip\ 483}#
80 (lambda (#{x\ 727}# #{w\ 728}#)
81 (if (memq 'top
82 (#{wrap-marks\ 379}# #{w\ 728}#))
83 #{x\ 727}#
84 (letrec ((#{f\ 734}# (lambda (#{x\ 735}#)
85 (if (#{syntax-object?\ 336}#
86 #{x\ 735}#)
87 (#{strip\ 483}#
88 (#{syntax-object-expression\ 338}#
89 #{x\ 735}#)
90 (#{syntax-object-wrap\ 340}#
91 #{x\ 735}#))
92 (if (pair? #{x\ 735}#)
93 (let ((#{a\ 742}# (#{f\ 734}# (car #{x\ 735}#)))
94 (#{d\ 743}# (#{f\ 734}# (cdr #{x\ 735}#))))
95 (if (if (eq? #{a\ 742}#
96 (car #{x\ 735}#))
97 (eq? #{d\ 743}#
98 (cdr #{x\ 735}#))
99 #f)
100 #{x\ 735}#
101 (cons #{a\ 742}# #{d\ 743}#)))
102 (if (vector? #{x\ 735}#)
103 (let ((#{old\ 749}#
104 (vector->list
105 #{x\ 735}#)))
106 (let ((#{new\ 751}#
107 (map #{f\ 734}#
108 #{old\ 749}#)))
109 (if (#{and-map*\ 20}#
110 eq?
111 #{old\ 749}#
112 #{new\ 751}#)
113 #{x\ 735}#
114 (list->vector
115 #{new\ 751}#))))
116 #{x\ 735}#))))))
117 (#{f\ 734}# #{x\ 727}#)))))
118 (#{chi-lambda-case\ 481}#
119 (lambda (#{e\ 753}#
120 #{r\ 754}#
121 #{w\ 755}#
122 #{s\ 756}#
123 #{mod\ 757}#
124 #{get-formals\ 758}#
125 #{clauses\ 759}#)
126 (letrec ((#{expand-body\ 774}#
127 (lambda (#{req\ 775}#
128 #{opt\ 776}#
129 #{rest\ 777}#
130 #{kw\ 778}#
131 #{body\ 779}#
132 #{vars\ 780}#
133 #{r*\ 781}#
134 #{w*\ 782}#
135 #{inits\ 783}#
136 #{meta\ 784}#)
137 ((lambda (#{tmp\ 795}#)
138 ((lambda (#{tmp\ 796}#)
139 (if (if #{tmp\ 796}#
140 (apply (lambda (#{docstring\ 800}#
141 #{e1\ 801}#
142 #{e2\ 802}#)
143 (string?
144 (syntax->datum
145 #{docstring\ 800}#)))
146 #{tmp\ 796}#)
147 #f)
148 (apply (lambda (#{docstring\ 806}#
149 #{e1\ 807}#
150 #{e2\ 808}#)
151 (#{expand-body\ 774}#
152 #{req\ 775}#
153 #{opt\ 776}#
154 #{rest\ 777}#
155 #{kw\ 778}#
156 (cons #{e1\ 807}# #{e2\ 808}#)
157 #{vars\ 780}#
158 #{r*\ 781}#
159 #{w*\ 782}#
160 #{inits\ 783}#
161 (append
162 #{meta\ 784}#
163 (list (cons 'documentation
164 (syntax->datum
165 #{docstring\ 806}#))))))
166 #{tmp\ 796}#)
167 ((lambda (#{tmp\ 811}#)
168 (if #{tmp\ 811}#
169 (apply (lambda (#{k\ 816}#
170 #{v\ 817}#
171 #{e1\ 818}#
172 #{e2\ 819}#)
173 (#{expand-body\ 774}#
174 #{req\ 775}#
175 #{opt\ 776}#
176 #{rest\ 777}#
177 #{kw\ 778}#
178 (cons #{e1\ 818}#
179 #{e2\ 819}#)
180 #{vars\ 780}#
181 #{r*\ 781}#
182 #{w*\ 782}#
183 #{inits\ 783}#
184 (append
185 #{meta\ 784}#
186 (syntax->datum
187 (map cons
188 #{k\ 816}#
189 #{v\ 817}#)))))
190 #{tmp\ 811}#)
191 ((lambda (#{tmp\ 823}#)
192 (if #{tmp\ 823}#
193 (apply (lambda (#{e1\ 826}#
194 #{e2\ 827}#)
195 (values
196 #{meta\ 784}#
197 #{req\ 775}#
198 #{opt\ 776}#
199 #{rest\ 777}#
200 #{kw\ 778}#
201 #{inits\ 783}#
202 #{vars\ 780}#
203 (#{chi-body\ 465}#
204 (cons #{e1\ 826}#
205 #{e2\ 827}#)
206 (#{source-wrap\ 443}#
207 #{e\ 753}#
208 #{w\ 755}#
209 #{s\ 756}#
210 #{mod\ 757}#)
211 #{r*\ 781}#
212 #{w*\ 782}#
213 #{mod\ 757}#)))
214 #{tmp\ 823}#)
215 (syntax-violation
216 #f
217 "source expression failed to match any pattern"
218 #{tmp\ 795}#)))
219 ($sc-dispatch
220 #{tmp\ 795}#
221 '(any . each-any)))))
222 ($sc-dispatch
223 #{tmp\ 795}#
224 '(#(vector #(each (any . any)))
225 any
226 .
227 each-any)))))
228 ($sc-dispatch
229 #{tmp\ 795}#
230 '(any any . each-any))))
231 #{body\ 779}#)))
232 (#{expand-kw\ 772}#
233 (lambda (#{req\ 829}#
234 #{opt\ 830}#
235 #{rest\ 831}#
236 #{kw\ 832}#
237 #{body\ 833}#
238 #{vars\ 834}#
239 #{r*\ 835}#
240 #{w*\ 836}#
241 #{aok\ 837}#
242 #{out\ 838}#
243 #{inits\ 839}#)
244 (if (pair? #{kw\ 832}#)
245 ((lambda (#{tmp\ 853}#)
246 ((lambda (#{tmp\ 854}#)
247 (if #{tmp\ 854}#
248 (apply (lambda (#{k\ 858}#
249 #{id\ 859}#
250 #{i\ 860}#)
251 (let ((#{v\ 863}# (#{gen-var\ 485}#
252 #{id\ 859}#)))
253 (let ((#{l\ 865}# (#{gen-labels\ 390}#
254 (list #{v\ 863}#))))
255 (let ((#{r**\ 867}#
256 (#{extend-var-env\ 362}#
257 #{l\ 865}#
258 (list #{v\ 863}#)
259 #{r*\ 835}#)))
260 (let ((#{w**\ 869}#
261 (#{make-binding-wrap\ 419}#
262 (list #{id\ 859}#)
263 #{l\ 865}#
264 #{w*\ 836}#)))
265 (#{expand-kw\ 772}#
266 #{req\ 829}#
267 #{opt\ 830}#
268 #{rest\ 831}#
269 (cdr #{kw\ 832}#)
270 #{body\ 833}#
271 (cons #{v\ 863}#
272 #{vars\ 834}#)
273 #{r**\ 867}#
274 #{w**\ 869}#
275 #{aok\ 837}#
276 (cons (list (syntax->datum
277 #{k\ 858}#)
278 (syntax->datum
279 #{id\ 859}#)
280 #{v\ 863}#)
281 #{out\ 838}#)
282 (cons (#{chi\ 457}#
283 #{i\ 860}#
284 #{r*\ 835}#
285 #{w*\ 836}#
286 #{mod\ 757}#)
287 #{inits\ 839}#)))))))
288 #{tmp\ 854}#)
289 (syntax-violation
290 #f
291 "source expression failed to match any pattern"
292 #{tmp\ 853}#)))
293 ($sc-dispatch
294 #{tmp\ 853}#
295 '(any any any))))
296 (car #{kw\ 832}#))
297 (#{expand-body\ 774}#
298 #{req\ 829}#
299 #{opt\ 830}#
300 #{rest\ 831}#
301 (if (let ((#{t\ 873}# #{aok\ 837}#))
302 (if #{t\ 873}#
303 #{t\ 873}#
304 (pair? #{out\ 838}#)))
305 (cons #{aok\ 837}# (reverse #{out\ 838}#))
306 #f)
307 #{body\ 833}#
308 (reverse #{vars\ 834}#)
309 #{r*\ 835}#
310 #{w*\ 836}#
311 (reverse #{inits\ 839}#)
312 '()))))
313 (#{expand-opt\ 770}#
314 (lambda (#{req\ 875}#
315 #{opt\ 876}#
316 #{rest\ 877}#
317 #{kw\ 878}#
318 #{body\ 879}#
319 #{vars\ 880}#
320 #{r*\ 881}#
321 #{w*\ 882}#
322 #{out\ 883}#
323 #{inits\ 884}#)
324 (if (pair? #{opt\ 876}#)
325 ((lambda (#{tmp\ 897}#)
326 ((lambda (#{tmp\ 898}#)
327 (if #{tmp\ 898}#
328 (apply (lambda (#{id\ 901}# #{i\ 902}#)
329 (let ((#{v\ 905}# (#{gen-var\ 485}#
330 #{id\ 901}#)))
331 (let ((#{l\ 907}# (#{gen-labels\ 390}#
332 (list #{v\ 905}#))))
333 (let ((#{r**\ 909}#
334 (#{extend-var-env\ 362}#
335 #{l\ 907}#
336 (list #{v\ 905}#)
337 #{r*\ 881}#)))
338 (let ((#{w**\ 911}#
339 (#{make-binding-wrap\ 419}#
340 (list #{id\ 901}#)
341 #{l\ 907}#
342 #{w*\ 882}#)))
343 (#{expand-opt\ 770}#
344 #{req\ 875}#
345 (cdr #{opt\ 876}#)
346 #{rest\ 877}#
347 #{kw\ 878}#
348 #{body\ 879}#
349 (cons #{v\ 905}#
350 #{vars\ 880}#)
351 #{r**\ 909}#
352 #{w**\ 911}#
353 (cons (syntax->datum
354 #{id\ 901}#)
355 #{out\ 883}#)
356 (cons (#{chi\ 457}#
357 #{i\ 902}#
358 #{r*\ 881}#
359 #{w*\ 882}#
360 #{mod\ 757}#)
361 #{inits\ 884}#)))))))
362 #{tmp\ 898}#)
363 (syntax-violation
364 #f
365 "source expression failed to match any pattern"
366 #{tmp\ 897}#)))
367 ($sc-dispatch
368 #{tmp\ 897}#
369 '(any any))))
370 (car #{opt\ 876}#))
371 (if #{rest\ 877}#
372 (let ((#{v\ 916}# (#{gen-var\ 485}#
373 #{rest\ 877}#)))
374 (let ((#{l\ 918}# (#{gen-labels\ 390}#
375 (list #{v\ 916}#))))
376 (let ((#{r*\ 920}#
377 (#{extend-var-env\ 362}#
378 #{l\ 918}#
379 (list #{v\ 916}#)
380 #{r*\ 881}#)))
381 (let ((#{w*\ 922}#
382 (#{make-binding-wrap\ 419}#
383 (list #{rest\ 877}#)
384 #{l\ 918}#
385 #{w*\ 882}#)))
386 (#{expand-kw\ 772}#
387 #{req\ 875}#
388 (if (pair? #{out\ 883}#)
389 (reverse #{out\ 883}#)
390 #f)
391 (syntax->datum #{rest\ 877}#)
392 (if (pair? #{kw\ 878}#)
393 (cdr #{kw\ 878}#)
394 #{kw\ 878}#)
395 #{body\ 879}#
396 (cons #{v\ 916}# #{vars\ 880}#)
397 #{r*\ 920}#
398 #{w*\ 922}#
399 (if (pair? #{kw\ 878}#)
400 (car #{kw\ 878}#)
401 #f)
402 '()
403 #{inits\ 884}#)))))
404 (#{expand-kw\ 772}#
405 #{req\ 875}#
406 (if (pair? #{out\ 883}#)
407 (reverse #{out\ 883}#)
408 #f)
409 #f
410 (if (pair? #{kw\ 878}#)
411 (cdr #{kw\ 878}#)
412 #{kw\ 878}#)
413 #{body\ 879}#
414 #{vars\ 880}#
415 #{r*\ 881}#
416 #{w*\ 882}#
417 (if (pair? #{kw\ 878}#) (car #{kw\ 878}#) #f)
418 '()
419 #{inits\ 884}#)))))
420 (#{expand-req\ 768}#
421 (lambda (#{req\ 924}#
422 #{opt\ 925}#
423 #{rest\ 926}#
424 #{kw\ 927}#
425 #{body\ 928}#)
426 (let ((#{vars\ 936}#
427 (map #{gen-var\ 485}# #{req\ 924}#))
428 (#{labels\ 937}#
429 (#{gen-labels\ 390}# #{req\ 924}#)))
430 (let ((#{r*\ 940}#
431 (#{extend-var-env\ 362}#
432 #{labels\ 937}#
433 #{vars\ 936}#
434 #{r\ 754}#))
435 (#{w*\ 941}#
436 (#{make-binding-wrap\ 419}#
437 #{req\ 924}#
438 #{labels\ 937}#
439 #{w\ 755}#)))
440 (#{expand-opt\ 770}#
441 (map syntax->datum #{req\ 924}#)
442 #{opt\ 925}#
443 #{rest\ 926}#
444 #{kw\ 927}#
445 #{body\ 928}#
446 (reverse #{vars\ 936}#)
447 #{r*\ 940}#
448 #{w*\ 941}#
449 '()
450 '()))))))
451 ((lambda (#{tmp\ 942}#)
452 ((lambda (#{tmp\ 943}#)
453 (if #{tmp\ 943}#
454 (apply (lambda () (values (quote ()) #f))
455 #{tmp\ 943}#)
456 ((lambda (#{tmp\ 944}#)
457 (if #{tmp\ 944}#
458 (apply (lambda (#{args\ 951}#
459 #{e1\ 952}#
460 #{e2\ 953}#
461 #{args*\ 954}#
462 #{e1*\ 955}#
463 #{e2*\ 956}#)
464 (call-with-values
465 (lambda ()
466 (#{get-formals\ 758}#
467 #{args\ 951}#))
468 (lambda (#{req\ 957}#
469 #{opt\ 958}#
470 #{rest\ 959}#
471 #{kw\ 960}#)
472 (call-with-values
473 (lambda ()
474 (#{expand-req\ 768}#
475 #{req\ 957}#
476 #{opt\ 958}#
477 #{rest\ 959}#
478 #{kw\ 960}#
479 (cons #{e1\ 952}#
480 #{e2\ 953}#)))
481 (lambda (#{meta\ 966}#
482 #{req\ 967}#
483 #{opt\ 968}#
484 #{rest\ 969}#
485 #{kw\ 970}#
486 #{inits\ 971}#
487 #{vars\ 972}#
488 #{body\ 973}#)
489 (call-with-values
490 (lambda ()
491 (#{chi-lambda-case\ 481}#
492 #{e\ 753}#
493 #{r\ 754}#
494 #{w\ 755}#
495 #{s\ 756}#
496 #{mod\ 757}#
497 #{get-formals\ 758}#
498 (map (lambda (#{tmp\ 984}#
499 #{tmp\ 983}#
500 #{tmp\ 982}#)
501 (cons #{tmp\ 982}#
502 (cons #{tmp\ 983}#
503 #{tmp\ 984}#)))
504 #{e2*\ 956}#
505 #{e1*\ 955}#
506 #{args*\ 954}#)))
507 (lambda (#{meta*\ 986}#
508 #{else*\ 987}#)
509 (values
510 (append
511 #{meta\ 966}#
512 #{meta*\ 986}#)
513 (#{build-lambda-case\ 318}#
514 #{s\ 756}#
515 #{req\ 967}#
516 #{opt\ 968}#
517 #{rest\ 969}#
518 #{kw\ 970}#
519 #{inits\ 971}#
520 #{vars\ 972}#
521 #{body\ 973}#
522 #{else*\ 987}#)))))))))
523 #{tmp\ 944}#)
524 (syntax-violation
525 #f
526 "source expression failed to match any pattern"
527 #{tmp\ 942}#)))
528 ($sc-dispatch
529 #{tmp\ 942}#
530 '((any any . each-any)
531 .
532 #(each (any any . each-any)))))))
533 ($sc-dispatch #{tmp\ 942}# (quote ()))))
534 #{clauses\ 759}#))))
535 (#{lambda*-formals\ 479}#
536 (lambda (#{orig-args\ 990}#)
537 (letrec ((#{check\ 1001}#
538 (lambda (#{req\ 1002}#
539 #{opt\ 1003}#
540 #{rest\ 1004}#
541 #{kw\ 1005}#)
542 (if (#{distinct-bound-ids?\ 437}#
543 (append
544 #{req\ 1002}#
545 (map car #{opt\ 1003}#)
546 (if #{rest\ 1004}#
547 (list #{rest\ 1004}#)
548 '())
549 (if (pair? #{kw\ 1005}#)
550 (map cadr (cdr #{kw\ 1005}#))
551 '())))
552 (values
553 #{req\ 1002}#
554 #{opt\ 1003}#
555 #{rest\ 1004}#
556 #{kw\ 1005}#)
557 (syntax-violation
558 'lambda*
559 "duplicate identifier in argument list"
560 #{orig-args\ 990}#))))
561 (#{rest\ 999}#
562 (lambda (#{args\ 1013}#
563 #{req\ 1014}#
564 #{opt\ 1015}#
565 #{kw\ 1016}#)
566 ((lambda (#{tmp\ 1021}#)
567 ((lambda (#{tmp\ 1022}#)
568 (if (if #{tmp\ 1022}#
569 (apply (lambda (#{r\ 1024}#)
570 (#{id?\ 372}# #{r\ 1024}#))
571 #{tmp\ 1022}#)
572 #f)
573 (apply (lambda (#{r\ 1026}#)
574 (#{check\ 1001}#
575 #{req\ 1014}#
576 #{opt\ 1015}#
577 #{r\ 1026}#
578 #{kw\ 1016}#))
579 #{tmp\ 1022}#)
580 ((lambda (#{else\ 1028}#)
581 (syntax-violation
582 'lambda*
583 "invalid rest argument"
584 #{orig-args\ 990}#
585 #{args\ 1013}#))
586 #{tmp\ 1021}#)))
587 (list #{tmp\ 1021}#)))
588 #{args\ 1013}#)))
589 (#{key\ 997}#
590 (lambda (#{args\ 1029}#
591 #{req\ 1030}#
592 #{opt\ 1031}#
593 #{rkey\ 1032}#)
594 ((lambda (#{tmp\ 1037}#)
595 ((lambda (#{tmp\ 1038}#)
596 (if #{tmp\ 1038}#
597 (apply (lambda ()
598 (#{check\ 1001}#
599 #{req\ 1030}#
600 #{opt\ 1031}#
601 #f
602 (cons #f
603 (reverse
604 #{rkey\ 1032}#))))
605 #{tmp\ 1038}#)
606 ((lambda (#{tmp\ 1039}#)
607 (if (if #{tmp\ 1039}#
608 (apply (lambda (#{a\ 1042}#
609 #{b\ 1043}#)
610 (#{id?\ 372}#
611 #{a\ 1042}#))
612 #{tmp\ 1039}#)
613 #f)
614 (apply (lambda (#{a\ 1046}#
615 #{b\ 1047}#)
616 ((lambda (#{tmp\ 1049}#)
617 ((lambda (#{k\ 1051}#)
618 (#{key\ 997}#
619 #{b\ 1047}#
620 #{req\ 1030}#
621 #{opt\ 1031}#
622 (cons (cons #{k\ 1051}#
623 (cons #{a\ 1046}#
624 '(#(syntax-object
625 #f
626 ((top)
627 #(ribcage
628 #(k)
629 #((top))
630 #("i1050"))
631 #(ribcage
632 #(a
633 b)
634 #((top)
635 (top))
636 #("i1044"
637 "i1045"))
638 #(ribcage
639 ()
640 ()
641 ())
642 #(ribcage
643 #(args
644 req
645 opt
646 rkey)
647 #((top)
648 (top)
649 (top)
650 (top))
651 #("i1033"
652 "i1034"
653 "i1035"
654 "i1036"))
655 #(ribcage
656 (check rest
657 key
658 opt
659 req)
660 ((top)
661 (top)
662 (top)
663 (top)
664 (top))
665 ("i1000"
666 "i998"
667 "i996"
668 "i994"
669 "i992"))
670 #(ribcage
671 #(orig-args)
672 #((top))
673 #("i991"))
674 #(ribcage
675 (lambda-var-list
676 gen-var
677 strip
678 chi-lambda-case
679 lambda*-formals
680 chi-simple-lambda
681 lambda-formals
682 ellipsis?
683 chi-void
684 eval-local-transformer
685 chi-local-syntax
686 chi-body
687 chi-macro
688 chi-application
689 chi-expr
690 chi
691 chi-top
692 syntax-type
693 chi-when-list
694 chi-install-global
695 chi-top-sequence
696 chi-sequence
697 source-wrap
698 wrap
699 bound-id-member?
700 distinct-bound-ids?
701 valid-bound-ids?
702 bound-id=?
703 free-id=?
704 id-var-name
705 same-marks?
706 join-marks
707 join-wraps
708 smart-append
709 make-binding-wrap
710 extend-ribcage!
711 make-empty-ribcage
712 new-mark
713 anti-mark
714 the-anti-mark
715 top-marked?
716 top-wrap
717 empty-wrap
718 set-ribcage-labels!
719 set-ribcage-marks!
720 set-ribcage-symnames!
721 ribcage-labels
722 ribcage-marks
723 ribcage-symnames
724 ribcage?
725 make-ribcage
726 gen-labels
727 gen-label
728 make-rename
729 rename-marks
730 rename-new
731 rename-old
732 subst-rename?
733 wrap-subst
734 wrap-marks
735 make-wrap
736 id-sym-name&marks
737 id-sym-name
738 id?
739 nonsymbol-id?
740 global-extend
741 lookup
742 macros-only-env
743 extend-var-env
744 extend-env
745 null-env
746 binding-value
747 binding-type
748 make-binding
749 arg-check
750 source-annotation
751 no-source
752 set-syntax-object-module!
753 set-syntax-object-wrap!
754 set-syntax-object-expression!
755 syntax-object-module
756 syntax-object-wrap
757 syntax-object-expression
758 syntax-object?
759 make-syntax-object
760 build-lexical-var
761 build-letrec
762 build-named-let
763 build-let
764 build-sequence
765 build-data
766 build-primref
767 build-lambda-case
768 build-case-lambda
769 build-simple-lambda
770 build-global-definition
771 maybe-name-value!
772 build-global-assignment
773 build-global-reference
774 analyze-variable
775 build-lexical-assignment
776 build-lexical-reference
777 build-dynlet
778 build-conditional
779 build-application
780 build-void
781 decorate-source
782 get-global-definition-hook
783 put-global-definition-hook
784 gensym-hook
785 local-eval-hook
786 top-level-eval-hook
787 fx<
788 fx=
789 fx-
790 fx+
791 set-lambda-meta!
792 lambda-meta
793 lambda?
794 make-dynlet
795 make-letrec
796 make-let
797 make-lambda-case
798 make-lambda
799 make-sequence
800 make-application
801 make-conditional
802 make-toplevel-define
803 make-toplevel-set
804 make-toplevel-ref
805 make-module-set
806 make-module-ref
807 make-lexical-set
808 make-lexical-ref
809 make-primitive-ref
810 make-const
811 make-void)
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 (top)
929 (top)
930 (top)
931 (top)
932 (top)
933 (top)
934 (top)
935 (top)
936 (top)
937 (top)
938 (top)
939 (top)
940 (top)
941 (top)
942 (top)
943 (top)
944 (top)
945 (top)
946 (top)
947 (top)
948 (top))
949 ("i486"
950 "i484"
951 "i482"
952 "i480"
953 "i478"
954 "i476"
955 "i474"
956 "i472"
957 "i470"
958 "i468"
959 "i466"
960 "i464"
961 "i462"
962 "i460"
963 "i458"
964 "i456"
965 "i454"
966 "i452"
967 "i450"
968 "i448"
969 "i446"
970 "i444"
971 "i442"
972 "i440"
973 "i438"
974 "i436"
975 "i434"
976 "i432"
977 "i430"
978 "i428"
979 "i426"
980 "i424"
981 "i422"
982 "i420"
983 "i418"
984 "i416"
985 "i415"
986 "i414"
987 "i412"
988 "i411"
989 "i410"
990 "i409"
991 "i408"
992 "i406"
993 "i404"
994 "i402"
995 "i400"
996 "i398"
997 "i396"
998 "i394"
999 "i392"
1000 "i389"
1001 "i387"
1002 "i386"
1003 "i385"
1004 "i384"
1005 "i383"
1006 "i382"
1007 "i380"
1008 "i378"
1009 "i376"
1010 "i374"
1011 "i373"
1012 "i371"
1013 "i369"
1014 "i367"
1015 "i365"
1016 "i363"
1017 "i361"
1018 "i359"
1019 "i358"
1020 "i356"
1021 "i354"
1022 "i353"
1023 "i352"
1024 "i350"
1025 "i349"
1026 "i347"
1027 "i345"
1028 "i343"
1029 "i341"
1030 "i339"
1031 "i337"
1032 "i335"
1033 "i333"
1034 "i331"
1035 "i329"
1036 "i327"
1037 "i325"
1038 "i323"
1039 "i321"
1040 "i319"
1041 "i317"
1042 "i315"
1043 "i313"
1044 "i311"
1045 "i309"
1046 "i307"
1047 "i305"
1048 "i303"
1049 "i301"
1050 "i299"
1051 "i297"
1052 "i295"
1053 "i293"
1054 "i291"
1055 "i289"
1056 "i287"
1057 "i285"
1058 "i284"
1059 "i282"
1060 "i280"
1061 "i278"
1062 "i276"
1063 "i274"
1064 "i272"
1065 "i270"
1066 "i268"
1067 "i266"
1068 "i263"
1069 "i261"
1070 "i259"
1071 "i257"
1072 "i255"
1073 "i253"
1074 "i251"
1075 "i249"
1076 "i247"
1077 "i245"
1078 "i243"
1079 "i241"
1080 "i239"
1081 "i237"
1082 "i235"
1083 "i233"
1084 "i231"
1085 "i229"))
1086 #(ribcage
1087 (define-structure
1088 define-expansion-accessors
1089 define-expansion-constructors
1090 and-map*)
1091 ((top)
1092 (top)
1093 (top)
1094 (top))
1095 ("i23"
1096 "i22"
1097 "i21"
1098 "i19")))
1099 (hygiene
1100 guile)))))
1101 #{rkey\ 1032}#)))
1102 #{tmp\ 1049}#))
1103 (symbol->keyword
1104 (syntax->datum
1105 #{a\ 1046}#))))
1106 #{tmp\ 1039}#)
1107 ((lambda (#{tmp\ 1052}#)
1108 (if (if #{tmp\ 1052}#
1109 (apply (lambda (#{a\ 1056}#
1110 #{init\ 1057}#
1111 #{b\ 1058}#)
1112 (#{id?\ 372}#
1113 #{a\ 1056}#))
1114 #{tmp\ 1052}#)
1115 #f)
1116 (apply (lambda (#{a\ 1062}#
1117 #{init\ 1063}#
1118 #{b\ 1064}#)
1119 ((lambda (#{tmp\ 1066}#)
1120 ((lambda (#{k\ 1068}#)
1121 (#{key\ 997}#
1122 #{b\ 1064}#
1123 #{req\ 1030}#
1124 #{opt\ 1031}#
1125 (cons (list #{k\ 1068}#
1126 #{a\ 1062}#
1127 #{init\ 1063}#)
1128 #{rkey\ 1032}#)))
1129 #{tmp\ 1066}#))
1130 (symbol->keyword
1131 (syntax->datum
1132 #{a\ 1062}#))))
1133 #{tmp\ 1052}#)
1134 ((lambda (#{tmp\ 1069}#)
1135 (if (if #{tmp\ 1069}#
1136 (apply (lambda (#{a\ 1074}#
1137 #{init\ 1075}#
1138 #{k\ 1076}#
1139 #{b\ 1077}#)
1140 (if (#{id?\ 372}#
1141 #{a\ 1074}#)
1142 (keyword?
1143 (syntax->datum
1144 #{k\ 1076}#))
1145 #f))
1146 #{tmp\ 1069}#)
1147 #f)
1148 (apply (lambda (#{a\ 1084}#
1149 #{init\ 1085}#
1150 #{k\ 1086}#
1151 #{b\ 1087}#)
1152 (#{key\ 997}#
1153 #{b\ 1087}#
1154 #{req\ 1030}#
1155 #{opt\ 1031}#
1156 (cons (list #{k\ 1086}#
1157 #{a\ 1084}#
1158 #{init\ 1085}#)
1159 #{rkey\ 1032}#)))
1160 #{tmp\ 1069}#)
1161 ((lambda (#{tmp\ 1088}#)
1162 (if (if #{tmp\ 1088}#
1163 (apply (lambda (#{aok\ 1090}#)
1164 (eq? (syntax->datum
1165 #{aok\ 1090}#)
1166 #:allow-other-keys))
1167 #{tmp\ 1088}#)
1168 #f)
1169 (apply (lambda (#{aok\ 1092}#)
1170 (#{check\ 1001}#
1171 #{req\ 1030}#
1172 #{opt\ 1031}#
1173 #f
1174 (cons #t
1175 (reverse
1176 #{rkey\ 1032}#))))
1177 #{tmp\ 1088}#)
1178 ((lambda (#{tmp\ 1093}#)
1179 (if (if #{tmp\ 1093}#
1180 (apply (lambda (#{aok\ 1097}#
1181 #{a\ 1098}#
1182 #{b\ 1099}#)
1183 (if (eq? (syntax->datum
1184 #{aok\ 1097}#)
1185 #:allow-other-keys)
1186 (eq? (syntax->datum
1187 #{a\ 1098}#)
1188 #:rest)
1189 #f))
1190 #{tmp\ 1093}#)
1191 #f)
1192 (apply (lambda (#{aok\ 1105}#
1193 #{a\ 1106}#
1194 #{b\ 1107}#)
1195 (#{rest\ 999}#
1196 #{b\ 1107}#
1197 #{req\ 1030}#
1198 #{opt\ 1031}#
1199 (cons #t
1200 (reverse
1201 #{rkey\ 1032}#))))
1202 #{tmp\ 1093}#)
1203 ((lambda (#{tmp\ 1108}#)
1204 (if (if #{tmp\ 1108}#
1205 (apply (lambda (#{aok\ 1111}#
1206 #{r\ 1112}#)
1207 (if (eq? (syntax->datum
1208 #{aok\ 1111}#)
1209 #:allow-other-keys)
1210 (#{id?\ 372}#
1211 #{r\ 1112}#)
1212 #f))
1213 #{tmp\ 1108}#)
1214 #f)
1215 (apply (lambda (#{aok\ 1117}#
1216 #{r\ 1118}#)
1217 (#{rest\ 999}#
1218 #{r\ 1118}#
1219 #{req\ 1030}#
1220 #{opt\ 1031}#
1221 (cons #t
1222 (reverse
1223 #{rkey\ 1032}#))))
1224 #{tmp\ 1108}#)
1225 ((lambda (#{tmp\ 1119}#)
1226 (if (if #{tmp\ 1119}#
1227 (apply (lambda (#{a\ 1122}#
1228 #{b\ 1123}#)
1229 (eq? (syntax->datum
1230 #{a\ 1122}#)
1231 #:rest))
1232 #{tmp\ 1119}#)
1233 #f)
1234 (apply (lambda (#{a\ 1126}#
1235 #{b\ 1127}#)
1236 (#{rest\ 999}#
1237 #{b\ 1127}#
1238 #{req\ 1030}#
1239 #{opt\ 1031}#
1240 (cons #f
1241 (reverse
1242 #{rkey\ 1032}#))))
1243 #{tmp\ 1119}#)
1244 ((lambda (#{tmp\ 1128}#)
1245 (if (if #{tmp\ 1128}#
1246 (apply (lambda (#{r\ 1130}#)
1247 (#{id?\ 372}#
1248 #{r\ 1130}#))
1249 #{tmp\ 1128}#)
1250 #f)
1251 (apply (lambda (#{r\ 1132}#)
1252 (#{rest\ 999}#
1253 #{r\ 1132}#
1254 #{req\ 1030}#
1255 #{opt\ 1031}#
1256 (cons #f
1257 (reverse
1258 #{rkey\ 1032}#))))
1259 #{tmp\ 1128}#)
1260 ((lambda (#{else\ 1134}#)
1261 (syntax-violation
1262 'lambda*
1263 "invalid keyword argument list"
1264 #{orig-args\ 990}#
1265 #{args\ 1029}#))
1266 #{tmp\ 1037}#)))
1267 (list #{tmp\ 1037}#))))
1268 ($sc-dispatch
1269 #{tmp\ 1037}#
1270 '(any any)))))
1271 ($sc-dispatch
1272 #{tmp\ 1037}#
1273 '(any .
1274 any)))))
1275 ($sc-dispatch
1276 #{tmp\ 1037}#
1277 '(any any any)))))
1278 ($sc-dispatch
1279 #{tmp\ 1037}#
1280 '(any)))))
1281 ($sc-dispatch
1282 #{tmp\ 1037}#
1283 '((any any any) . any)))))
1284 ($sc-dispatch
1285 #{tmp\ 1037}#
1286 '((any any) . any)))))
1287 ($sc-dispatch
1288 #{tmp\ 1037}#
1289 '(any . any)))))
1290 ($sc-dispatch #{tmp\ 1037}# (quote ()))))
1291 #{args\ 1029}#)))
1292 (#{opt\ 995}#
1293 (lambda (#{args\ 1135}# #{req\ 1136}# #{ropt\ 1137}#)
1294 ((lambda (#{tmp\ 1141}#)
1295 ((lambda (#{tmp\ 1142}#)
1296 (if #{tmp\ 1142}#
1297 (apply (lambda ()
1298 (#{check\ 1001}#
1299 #{req\ 1136}#
1300 (reverse #{ropt\ 1137}#)
1301 #f
1302 '()))
1303 #{tmp\ 1142}#)
1304 ((lambda (#{tmp\ 1143}#)
1305 (if (if #{tmp\ 1143}#
1306 (apply (lambda (#{a\ 1146}#
1307 #{b\ 1147}#)
1308 (#{id?\ 372}#
1309 #{a\ 1146}#))
1310 #{tmp\ 1143}#)
1311 #f)
1312 (apply (lambda (#{a\ 1150}#
1313 #{b\ 1151}#)
1314 (#{opt\ 995}#
1315 #{b\ 1151}#
1316 #{req\ 1136}#
1317 (cons (cons #{a\ 1150}#
1318 '(#(syntax-object
1319 #f
1320 ((top)
1321 #(ribcage
1322 #(a b)
1323 #((top)
1324 (top))
1325 #("i1148"
1326 "i1149"))
1327 #(ribcage
1328 ()
1329 ()
1330 ())
1331 #(ribcage
1332 #(args
1333 req
1334 ropt)
1335 #((top)
1336 (top)
1337 (top))
1338 #("i1138"
1339 "i1139"
1340 "i1140"))
1341 #(ribcage
1342 (check rest
1343 key
1344 opt
1345 req)
1346 ((top)
1347 (top)
1348 (top)
1349 (top)
1350 (top))
1351 ("i1000"
1352 "i998"
1353 "i996"
1354 "i994"
1355 "i992"))
1356 #(ribcage
1357 #(orig-args)
1358 #((top))
1359 #("i991"))
1360 #(ribcage
1361 (lambda-var-list
1362 gen-var
1363 strip
1364 chi-lambda-case
1365 lambda*-formals
1366 chi-simple-lambda
1367 lambda-formals
1368 ellipsis?
1369 chi-void
1370 eval-local-transformer
1371 chi-local-syntax
1372 chi-body
1373 chi-macro
1374 chi-application
1375 chi-expr
1376 chi
1377 chi-top
1378 syntax-type
1379 chi-when-list
1380 chi-install-global
1381 chi-top-sequence
1382 chi-sequence
1383 source-wrap
1384 wrap
1385 bound-id-member?
1386 distinct-bound-ids?
1387 valid-bound-ids?
1388 bound-id=?
1389 free-id=?
1390 id-var-name
1391 same-marks?
1392 join-marks
1393 join-wraps
1394 smart-append
1395 make-binding-wrap
1396 extend-ribcage!
1397 make-empty-ribcage
1398 new-mark
1399 anti-mark
1400 the-anti-mark
1401 top-marked?
1402 top-wrap
1403 empty-wrap
1404 set-ribcage-labels!
1405 set-ribcage-marks!
1406 set-ribcage-symnames!
1407 ribcage-labels
1408 ribcage-marks
1409 ribcage-symnames
1410 ribcage?
1411 make-ribcage
1412 gen-labels
1413 gen-label
1414 make-rename
1415 rename-marks
1416 rename-new
1417 rename-old
1418 subst-rename?
1419 wrap-subst
1420 wrap-marks
1421 make-wrap
1422 id-sym-name&marks
1423 id-sym-name
1424 id?
1425 nonsymbol-id?
1426 global-extend
1427 lookup
1428 macros-only-env
1429 extend-var-env
1430 extend-env
1431 null-env
1432 binding-value
1433 binding-type
1434 make-binding
1435 arg-check
1436 source-annotation
1437 no-source
1438 set-syntax-object-module!
1439 set-syntax-object-wrap!
1440 set-syntax-object-expression!
1441 syntax-object-module
1442 syntax-object-wrap
1443 syntax-object-expression
1444 syntax-object?
1445 make-syntax-object
1446 build-lexical-var
1447 build-letrec
1448 build-named-let
1449 build-let
1450 build-sequence
1451 build-data
1452 build-primref
1453 build-lambda-case
1454 build-case-lambda
1455 build-simple-lambda
1456 build-global-definition
1457 maybe-name-value!
1458 build-global-assignment
1459 build-global-reference
1460 analyze-variable
1461 build-lexical-assignment
1462 build-lexical-reference
1463 build-dynlet
1464 build-conditional
1465 build-application
1466 build-void
1467 decorate-source
1468 get-global-definition-hook
1469 put-global-definition-hook
1470 gensym-hook
1471 local-eval-hook
1472 top-level-eval-hook
1473 fx<
1474 fx=
1475 fx-
1476 fx+
1477 set-lambda-meta!
1478 lambda-meta
1479 lambda?
1480 make-dynlet
1481 make-letrec
1482 make-let
1483 make-lambda-case
1484 make-lambda
1485 make-sequence
1486 make-application
1487 make-conditional
1488 make-toplevel-define
1489 make-toplevel-set
1490 make-toplevel-ref
1491 make-module-set
1492 make-module-ref
1493 make-lexical-set
1494 make-lexical-ref
1495 make-primitive-ref
1496 make-const
1497 make-void)
1498 ((top)
1499 (top)
1500 (top)
1501 (top)
1502 (top)
1503 (top)
1504 (top)
1505 (top)
1506 (top)
1507 (top)
1508 (top)
1509 (top)
1510 (top)
1511 (top)
1512 (top)
1513 (top)
1514 (top)
1515 (top)
1516 (top)
1517 (top)
1518 (top)
1519 (top)
1520 (top)
1521 (top)
1522 (top)
1523 (top)
1524 (top)
1525 (top)
1526 (top)
1527 (top)
1528 (top)
1529 (top)
1530 (top)
1531 (top)
1532 (top)
1533 (top)
1534 (top)
1535 (top)
1536 (top)
1537 (top)
1538 (top)
1539 (top)
1540 (top)
1541 (top)
1542 (top)
1543 (top)
1544 (top)
1545 (top)
1546 (top)
1547 (top)
1548 (top)
1549 (top)
1550 (top)
1551 (top)
1552 (top)
1553 (top)
1554 (top)
1555 (top)
1556 (top)
1557 (top)
1558 (top)
1559 (top)
1560 (top)
1561 (top)
1562 (top)
1563 (top)
1564 (top)
1565 (top)
1566 (top)
1567 (top)
1568 (top)
1569 (top)
1570 (top)
1571 (top)
1572 (top)
1573 (top)
1574 (top)
1575 (top)
1576 (top)
1577 (top)
1578 (top)
1579 (top)
1580 (top)
1581 (top)
1582 (top)
1583 (top)
1584 (top)
1585 (top)
1586 (top)
1587 (top)
1588 (top)
1589 (top)
1590 (top)
1591 (top)
1592 (top)
1593 (top)
1594 (top)
1595 (top)
1596 (top)
1597 (top)
1598 (top)
1599 (top)
1600 (top)
1601 (top)
1602 (top)
1603 (top)
1604 (top)
1605 (top)
1606 (top)
1607 (top)
1608 (top)
1609 (top)
1610 (top)
1611 (top)
1612 (top)
1613 (top)
1614 (top)
1615 (top)
1616 (top)
1617 (top)
1618 (top)
1619 (top)
1620 (top)
1621 (top)
1622 (top)
1623 (top)
1624 (top)
1625 (top)
1626 (top)
1627 (top)
1628 (top)
1629 (top)
1630 (top)
1631 (top)
1632 (top)
1633 (top)
1634 (top))
1635 ("i486"
1636 "i484"
1637 "i482"
1638 "i480"
1639 "i478"
1640 "i476"
1641 "i474"
1642 "i472"
1643 "i470"
1644 "i468"
1645 "i466"
1646 "i464"
1647 "i462"
1648 "i460"
1649 "i458"
1650 "i456"
1651 "i454"
1652 "i452"
1653 "i450"
1654 "i448"
1655 "i446"
1656 "i444"
1657 "i442"
1658 "i440"
1659 "i438"
1660 "i436"
1661 "i434"
1662 "i432"
1663 "i430"
1664 "i428"
1665 "i426"
1666 "i424"
1667 "i422"
1668 "i420"
1669 "i418"
1670 "i416"
1671 "i415"
1672 "i414"
1673 "i412"
1674 "i411"
1675 "i410"
1676 "i409"
1677 "i408"
1678 "i406"
1679 "i404"
1680 "i402"
1681 "i400"
1682 "i398"
1683 "i396"
1684 "i394"
1685 "i392"
1686 "i389"
1687 "i387"
1688 "i386"
1689 "i385"
1690 "i384"
1691 "i383"
1692 "i382"
1693 "i380"
1694 "i378"
1695 "i376"
1696 "i374"
1697 "i373"
1698 "i371"
1699 "i369"
1700 "i367"
1701 "i365"
1702 "i363"
1703 "i361"
1704 "i359"
1705 "i358"
1706 "i356"
1707 "i354"
1708 "i353"
1709 "i352"
1710 "i350"
1711 "i349"
1712 "i347"
1713 "i345"
1714 "i343"
1715 "i341"
1716 "i339"
1717 "i337"
1718 "i335"
1719 "i333"
1720 "i331"
1721 "i329"
1722 "i327"
1723 "i325"
1724 "i323"
1725 "i321"
1726 "i319"
1727 "i317"
1728 "i315"
1729 "i313"
1730 "i311"
1731 "i309"
1732 "i307"
1733 "i305"
1734 "i303"
1735 "i301"
1736 "i299"
1737 "i297"
1738 "i295"
1739 "i293"
1740 "i291"
1741 "i289"
1742 "i287"
1743 "i285"
1744 "i284"
1745 "i282"
1746 "i280"
1747 "i278"
1748 "i276"
1749 "i274"
1750 "i272"
1751 "i270"
1752 "i268"
1753 "i266"
1754 "i263"
1755 "i261"
1756 "i259"
1757 "i257"
1758 "i255"
1759 "i253"
1760 "i251"
1761 "i249"
1762 "i247"
1763 "i245"
1764 "i243"
1765 "i241"
1766 "i239"
1767 "i237"
1768 "i235"
1769 "i233"
1770 "i231"
1771 "i229"))
1772 #(ribcage
1773 (define-structure
1774 define-expansion-accessors
1775 define-expansion-constructors
1776 and-map*)
1777 ((top)
1778 (top)
1779 (top)
1780 (top))
1781 ("i23"
1782 "i22"
1783 "i21"
1784 "i19")))
1785 (hygiene
1786 guile))))
1787 #{ropt\ 1137}#)))
1788 #{tmp\ 1143}#)
1789 ((lambda (#{tmp\ 1152}#)
1790 (if (if #{tmp\ 1152}#
1791 (apply (lambda (#{a\ 1156}#
1792 #{init\ 1157}#
1793 #{b\ 1158}#)
1794 (#{id?\ 372}#
1795 #{a\ 1156}#))
1796 #{tmp\ 1152}#)
1797 #f)
1798 (apply (lambda (#{a\ 1162}#
1799 #{init\ 1163}#
1800 #{b\ 1164}#)
1801 (#{opt\ 995}#
1802 #{b\ 1164}#
1803 #{req\ 1136}#
1804 (cons (list #{a\ 1162}#
1805 #{init\ 1163}#)
1806 #{ropt\ 1137}#)))
1807 #{tmp\ 1152}#)
1808 ((lambda (#{tmp\ 1165}#)
1809 (if (if #{tmp\ 1165}#
1810 (apply (lambda (#{a\ 1168}#
1811 #{b\ 1169}#)
1812 (eq? (syntax->datum
1813 #{a\ 1168}#)
1814 #:key))
1815 #{tmp\ 1165}#)
1816 #f)
1817 (apply (lambda (#{a\ 1172}#
1818 #{b\ 1173}#)
1819 (#{key\ 997}#
1820 #{b\ 1173}#
1821 #{req\ 1136}#
1822 (reverse
1823 #{ropt\ 1137}#)
1824 '()))
1825 #{tmp\ 1165}#)
1826 ((lambda (#{tmp\ 1174}#)
1827 (if (if #{tmp\ 1174}#
1828 (apply (lambda (#{a\ 1177}#
1829 #{b\ 1178}#)
1830 (eq? (syntax->datum
1831 #{a\ 1177}#)
1832 #:rest))
1833 #{tmp\ 1174}#)
1834 #f)
1835 (apply (lambda (#{a\ 1181}#
1836 #{b\ 1182}#)
1837 (#{rest\ 999}#
1838 #{b\ 1182}#
1839 #{req\ 1136}#
1840 (reverse
1841 #{ropt\ 1137}#)
1842 '()))
1843 #{tmp\ 1174}#)
1844 ((lambda (#{tmp\ 1183}#)
1845 (if (if #{tmp\ 1183}#
1846 (apply (lambda (#{r\ 1185}#)
1847 (#{id?\ 372}#
1848 #{r\ 1185}#))
1849 #{tmp\ 1183}#)
1850 #f)
1851 (apply (lambda (#{r\ 1187}#)
1852 (#{rest\ 999}#
1853 #{r\ 1187}#
1854 #{req\ 1136}#
1855 (reverse
1856 #{ropt\ 1137}#)
1857 '()))
1858 #{tmp\ 1183}#)
1859 ((lambda (#{else\ 1189}#)
1860 (syntax-violation
1861 'lambda*
1862 "invalid optional argument list"
1863 #{orig-args\ 990}#
1864 #{args\ 1135}#))
1865 #{tmp\ 1141}#)))
1866 (list #{tmp\ 1141}#))))
1867 ($sc-dispatch
1868 #{tmp\ 1141}#
1869 '(any any)))))
1870 ($sc-dispatch
1871 #{tmp\ 1141}#
1872 '(any . any)))))
1873 ($sc-dispatch
1874 #{tmp\ 1141}#
1875 '((any any) . any)))))
1876 ($sc-dispatch
1877 #{tmp\ 1141}#
1878 '(any . any)))))
1879 ($sc-dispatch #{tmp\ 1141}# (quote ()))))
1880 #{args\ 1135}#)))
1881 (#{req\ 993}#
1882 (lambda (#{args\ 1190}# #{rreq\ 1191}#)
1883 ((lambda (#{tmp\ 1194}#)
1884 ((lambda (#{tmp\ 1195}#)
1885 (if #{tmp\ 1195}#
1886 (apply (lambda ()
1887 (#{check\ 1001}#
1888 (reverse #{rreq\ 1191}#)
1889 '()
1890 #f
1891 '()))
1892 #{tmp\ 1195}#)
1893 ((lambda (#{tmp\ 1196}#)
1894 (if (if #{tmp\ 1196}#
1895 (apply (lambda (#{a\ 1199}#
1896 #{b\ 1200}#)
1897 (#{id?\ 372}#
1898 #{a\ 1199}#))
1899 #{tmp\ 1196}#)
1900 #f)
1901 (apply (lambda (#{a\ 1203}#
1902 #{b\ 1204}#)
1903 (#{req\ 993}#
1904 #{b\ 1204}#
1905 (cons #{a\ 1203}#
1906 #{rreq\ 1191}#)))
1907 #{tmp\ 1196}#)
1908 ((lambda (#{tmp\ 1205}#)
1909 (if (if #{tmp\ 1205}#
1910 (apply (lambda (#{a\ 1208}#
1911 #{b\ 1209}#)
1912 (eq? (syntax->datum
1913 #{a\ 1208}#)
1914 #:optional))
1915 #{tmp\ 1205}#)
1916 #f)
1917 (apply (lambda (#{a\ 1212}#
1918 #{b\ 1213}#)
1919 (#{opt\ 995}#
1920 #{b\ 1213}#
1921 (reverse
1922 #{rreq\ 1191}#)
1923 '()))
1924 #{tmp\ 1205}#)
1925 ((lambda (#{tmp\ 1214}#)
1926 (if (if #{tmp\ 1214}#
1927 (apply (lambda (#{a\ 1217}#
1928 #{b\ 1218}#)
1929 (eq? (syntax->datum
1930 #{a\ 1217}#)
1931 #:key))
1932 #{tmp\ 1214}#)
1933 #f)
1934 (apply (lambda (#{a\ 1221}#
1935 #{b\ 1222}#)
1936 (#{key\ 997}#
1937 #{b\ 1222}#
1938 (reverse
1939 #{rreq\ 1191}#)
1940 '()
1941 '()))
1942 #{tmp\ 1214}#)
1943 ((lambda (#{tmp\ 1223}#)
1944 (if (if #{tmp\ 1223}#
1945 (apply (lambda (#{a\ 1226}#
1946 #{b\ 1227}#)
1947 (eq? (syntax->datum
1948 #{a\ 1226}#)
1949 #:rest))
1950 #{tmp\ 1223}#)
1951 #f)
1952 (apply (lambda (#{a\ 1230}#
1953 #{b\ 1231}#)
1954 (#{rest\ 999}#
1955 #{b\ 1231}#
1956 (reverse
1957 #{rreq\ 1191}#)
1958 '()
1959 '()))
1960 #{tmp\ 1223}#)
1961 ((lambda (#{tmp\ 1232}#)
1962 (if (if #{tmp\ 1232}#
1963 (apply (lambda (#{r\ 1234}#)
1964 (#{id?\ 372}#
1965 #{r\ 1234}#))
1966 #{tmp\ 1232}#)
1967 #f)
1968 (apply (lambda (#{r\ 1236}#)
1969 (#{rest\ 999}#
1970 #{r\ 1236}#
1971 (reverse
1972 #{rreq\ 1191}#)
1973 '()
1974 '()))
1975 #{tmp\ 1232}#)
1976 ((lambda (#{else\ 1238}#)
1977 (syntax-violation
1978 'lambda*
1979 "invalid argument list"
1980 #{orig-args\ 990}#
1981 #{args\ 1190}#))
1982 #{tmp\ 1194}#)))
1983 (list #{tmp\ 1194}#))))
1984 ($sc-dispatch
1985 #{tmp\ 1194}#
1986 '(any any)))))
1987 ($sc-dispatch
1988 #{tmp\ 1194}#
1989 '(any . any)))))
1990 ($sc-dispatch
1991 #{tmp\ 1194}#
1992 '(any . any)))))
1993 ($sc-dispatch
1994 #{tmp\ 1194}#
1995 '(any . any)))))
1996 ($sc-dispatch #{tmp\ 1194}# (quote ()))))
1997 #{args\ 1190}#))))
1998 (#{req\ 993}# #{orig-args\ 990}# (quote ())))))
1999 (#{chi-simple-lambda\ 477}#
2000 (lambda (#{e\ 1239}#
2001 #{r\ 1240}#
2002 #{w\ 1241}#
2003 #{s\ 1242}#
2004 #{mod\ 1243}#
2005 #{req\ 1244}#
2006 #{rest\ 1245}#
2007 #{meta\ 1246}#
2008 #{body\ 1247}#)
2009 (let ((#{ids\ 1259}#
2010 (if #{rest\ 1245}#
2011 (append #{req\ 1244}# (list #{rest\ 1245}#))
2012 #{req\ 1244}#)))
2013 (let ((#{vars\ 1261}#
2014 (map #{gen-var\ 485}# #{ids\ 1259}#)))
2015 (let ((#{labels\ 1263}#
2016 (#{gen-labels\ 390}# #{ids\ 1259}#)))
2017 (#{build-simple-lambda\ 314}#
2018 #{s\ 1242}#
2019 (map syntax->datum #{req\ 1244}#)
2020 (if #{rest\ 1245}#
2021 (syntax->datum #{rest\ 1245}#)
2022 #f)
2023 #{vars\ 1261}#
2024 #{meta\ 1246}#
2025 (#{chi-body\ 465}#
2026 #{body\ 1247}#
2027 (#{source-wrap\ 443}#
2028 #{e\ 1239}#
2029 #{w\ 1241}#
2030 #{s\ 1242}#
2031 #{mod\ 1243}#)
2032 (#{extend-var-env\ 362}#
2033 #{labels\ 1263}#
2034 #{vars\ 1261}#
2035 #{r\ 1240}#)
2036 (#{make-binding-wrap\ 419}#
2037 #{ids\ 1259}#
2038 #{labels\ 1263}#
2039 #{w\ 1241}#)
2040 #{mod\ 1243}#)))))))
2041 (#{lambda-formals\ 475}#
2042 (lambda (#{orig-args\ 1266}#)
2043 (letrec ((#{check\ 1271}#
2044 (lambda (#{req\ 1272}# #{rest\ 1273}#)
2045 (if (#{distinct-bound-ids?\ 437}#
2046 (if #{rest\ 1273}#
2047 (cons #{rest\ 1273}# #{req\ 1272}#)
2048 #{req\ 1272}#))
2049 (values #{req\ 1272}# #f #{rest\ 1273}# #f)
2050 (syntax-violation
2051 'lambda
2052 "duplicate identifier in argument list"
2053 #{orig-args\ 1266}#))))
2054 (#{req\ 1269}#
2055 (lambda (#{args\ 1279}# #{rreq\ 1280}#)
2056 ((lambda (#{tmp\ 1283}#)
2057 ((lambda (#{tmp\ 1284}#)
2058 (if #{tmp\ 1284}#
2059 (apply (lambda ()
2060 (#{check\ 1271}#
2061 (reverse #{rreq\ 1280}#)
2062 #f))
2063 #{tmp\ 1284}#)
2064 ((lambda (#{tmp\ 1285}#)
2065 (if (if #{tmp\ 1285}#
2066 (apply (lambda (#{a\ 1288}#
2067 #{b\ 1289}#)
2068 (#{id?\ 372}#
2069 #{a\ 1288}#))
2070 #{tmp\ 1285}#)
2071 #f)
2072 (apply (lambda (#{a\ 1292}#
2073 #{b\ 1293}#)
2074 (#{req\ 1269}#
2075 #{b\ 1293}#
2076 (cons #{a\ 1292}#
2077 #{rreq\ 1280}#)))
2078 #{tmp\ 1285}#)
2079 ((lambda (#{tmp\ 1294}#)
2080 (if (if #{tmp\ 1294}#
2081 (apply (lambda (#{r\ 1296}#)
2082 (#{id?\ 372}#
2083 #{r\ 1296}#))
2084 #{tmp\ 1294}#)
2085 #f)
2086 (apply (lambda (#{r\ 1298}#)
2087 (#{check\ 1271}#
2088 (reverse
2089 #{rreq\ 1280}#)
2090 #{r\ 1298}#))
2091 #{tmp\ 1294}#)
2092 ((lambda (#{else\ 1300}#)
2093 (syntax-violation
2094 'lambda
2095 "invalid argument list"
2096 #{orig-args\ 1266}#
2097 #{args\ 1279}#))
2098 #{tmp\ 1283}#)))
2099 (list #{tmp\ 1283}#))))
2100 ($sc-dispatch
2101 #{tmp\ 1283}#
2102 '(any . any)))))
2103 ($sc-dispatch #{tmp\ 1283}# (quote ()))))
2104 #{args\ 1279}#))))
2105 (#{req\ 1269}# #{orig-args\ 1266}# (quote ())))))
2106 (#{ellipsis?\ 473}#
2107 (lambda (#{x\ 1301}#)
2108 (if (#{nonsymbol-id?\ 370}# #{x\ 1301}#)
2109 (#{free-id=?\ 431}#
2110 #{x\ 1301}#
2111 '#(syntax-object
2112 ...
2113 ((top)
2114 #(ribcage () () ())
2115 #(ribcage () () ())
2116 #(ribcage #(x) #((top)) #("i1302"))
2117 #(ribcage
2118 (lambda-var-list
2119 gen-var
2120 strip
2121 chi-lambda-case
2122 lambda*-formals
2123 chi-simple-lambda
2124 lambda-formals
2125 ellipsis?
2126 chi-void
2127 eval-local-transformer
2128 chi-local-syntax
2129 chi-body
2130 chi-macro
2131 chi-application
2132 chi-expr
2133 chi
2134 chi-top
2135 syntax-type
2136 chi-when-list
2137 chi-install-global
2138 chi-top-sequence
2139 chi-sequence
2140 source-wrap
2141 wrap
2142 bound-id-member?
2143 distinct-bound-ids?
2144 valid-bound-ids?
2145 bound-id=?
2146 free-id=?
2147 id-var-name
2148 same-marks?
2149 join-marks
2150 join-wraps
2151 smart-append
2152 make-binding-wrap
2153 extend-ribcage!
2154 make-empty-ribcage
2155 new-mark
2156 anti-mark
2157 the-anti-mark
2158 top-marked?
2159 top-wrap
2160 empty-wrap
2161 set-ribcage-labels!
2162 set-ribcage-marks!
2163 set-ribcage-symnames!
2164 ribcage-labels
2165 ribcage-marks
2166 ribcage-symnames
2167 ribcage?
2168 make-ribcage
2169 gen-labels
2170 gen-label
2171 make-rename
2172 rename-marks
2173 rename-new
2174 rename-old
2175 subst-rename?
2176 wrap-subst
2177 wrap-marks
2178 make-wrap
2179 id-sym-name&marks
2180 id-sym-name
2181 id?
2182 nonsymbol-id?
2183 global-extend
2184 lookup
2185 macros-only-env
2186 extend-var-env
2187 extend-env
2188 null-env
2189 binding-value
2190 binding-type
2191 make-binding
2192 arg-check
2193 source-annotation
2194 no-source
2195 set-syntax-object-module!
2196 set-syntax-object-wrap!
2197 set-syntax-object-expression!
2198 syntax-object-module
2199 syntax-object-wrap
2200 syntax-object-expression
2201 syntax-object?
2202 make-syntax-object
2203 build-lexical-var
2204 build-letrec
2205 build-named-let
2206 build-let
2207 build-sequence
2208 build-data
2209 build-primref
2210 build-lambda-case
2211 build-case-lambda
2212 build-simple-lambda
2213 build-global-definition
2214 maybe-name-value!
2215 build-global-assignment
2216 build-global-reference
2217 analyze-variable
2218 build-lexical-assignment
2219 build-lexical-reference
2220 build-dynlet
2221 build-conditional
2222 build-application
2223 build-void
2224 decorate-source
2225 get-global-definition-hook
2226 put-global-definition-hook
2227 gensym-hook
2228 local-eval-hook
2229 top-level-eval-hook
2230 fx<
2231 fx=
2232 fx-
2233 fx+
2234 set-lambda-meta!
2235 lambda-meta
2236 lambda?
2237 make-dynlet
2238 make-letrec
2239 make-let
2240 make-lambda-case
2241 make-lambda
2242 make-sequence
2243 make-application
2244 make-conditional
2245 make-toplevel-define
2246 make-toplevel-set
2247 make-toplevel-ref
2248 make-module-set
2249 make-module-ref
2250 make-lexical-set
2251 make-lexical-ref
2252 make-primitive-ref
2253 make-const
2254 make-void)
2255 ((top)
2256 (top)
2257 (top)
2258 (top)
2259 (top)
2260 (top)
2261 (top)
2262 (top)
2263 (top)
2264 (top)
2265 (top)
2266 (top)
2267 (top)
2268 (top)
2269 (top)
2270 (top)
2271 (top)
2272 (top)
2273 (top)
2274 (top)
2275 (top)
2276 (top)
2277 (top)
2278 (top)
2279 (top)
2280 (top)
2281 (top)
2282 (top)
2283 (top)
2284 (top)
2285 (top)
2286 (top)
2287 (top)
2288 (top)
2289 (top)
2290 (top)
2291 (top)
2292 (top)
2293 (top)
2294 (top)
2295 (top)
2296 (top)
2297 (top)
2298 (top)
2299 (top)
2300 (top)
2301 (top)
2302 (top)
2303 (top)
2304 (top)
2305 (top)
2306 (top)
2307 (top)
2308 (top)
2309 (top)
2310 (top)
2311 (top)
2312 (top)
2313 (top)
2314 (top)
2315 (top)
2316 (top)
2317 (top)
2318 (top)
2319 (top)
2320 (top)
2321 (top)
2322 (top)
2323 (top)
2324 (top)
2325 (top)
2326 (top)
2327 (top)
2328 (top)
2329 (top)
2330 (top)
2331 (top)
2332 (top)
2333 (top)
2334 (top)
2335 (top)
2336 (top)
2337 (top)
2338 (top)
2339 (top)
2340 (top)
2341 (top)
2342 (top)
2343 (top)
2344 (top)
2345 (top)
2346 (top)
2347 (top)
2348 (top)
2349 (top)
2350 (top)
2351 (top)
2352 (top)
2353 (top)
2354 (top)
2355 (top)
2356 (top)
2357 (top)
2358 (top)
2359 (top)
2360 (top)
2361 (top)
2362 (top)
2363 (top)
2364 (top)
2365 (top)
2366 (top)
2367 (top)
2368 (top)
2369 (top)
2370 (top)
2371 (top)
2372 (top)
2373 (top)
2374 (top)
2375 (top)
2376 (top)
2377 (top)
2378 (top)
2379 (top)
2380 (top)
2381 (top)
2382 (top)
2383 (top)
2384 (top)
2385 (top)
2386 (top)
2387 (top)
2388 (top)
2389 (top)
2390 (top)
2391 (top))
2392 ("i486"
2393 "i484"
2394 "i482"
2395 "i480"
2396 "i478"
2397 "i476"
2398 "i474"
2399 "i472"
2400 "i470"
2401 "i468"
2402 "i466"
2403 "i464"
2404 "i462"
2405 "i460"
2406 "i458"
2407 "i456"
2408 "i454"
2409 "i452"
2410 "i450"
2411 "i448"
2412 "i446"
2413 "i444"
2414 "i442"
2415 "i440"
2416 "i438"
2417 "i436"
2418 "i434"
2419 "i432"
2420 "i430"
2421 "i428"
2422 "i426"
2423 "i424"
2424 "i422"
2425 "i420"
2426 "i418"
2427 "i416"
2428 "i415"
2429 "i414"
2430 "i412"
2431 "i411"
2432 "i410"
2433 "i409"
2434 "i408"
2435 "i406"
2436 "i404"
2437 "i402"
2438 "i400"
2439 "i398"
2440 "i396"
2441 "i394"
2442 "i392"
2443 "i389"
2444 "i387"
2445 "i386"
2446 "i385"
2447 "i384"
2448 "i383"
2449 "i382"
2450 "i380"
2451 "i378"
2452 "i376"
2453 "i374"
2454 "i373"
2455 "i371"
2456 "i369"
2457 "i367"
2458 "i365"
2459 "i363"
2460 "i361"
2461 "i359"
2462 "i358"
2463 "i356"
2464 "i354"
2465 "i353"
2466 "i352"
2467 "i350"
2468 "i349"
2469 "i347"
2470 "i345"
2471 "i343"
2472 "i341"
2473 "i339"
2474 "i337"
2475 "i335"
2476 "i333"
2477 "i331"
2478 "i329"
2479 "i327"
2480 "i325"
2481 "i323"
2482 "i321"
2483 "i319"
2484 "i317"
2485 "i315"
2486 "i313"
2487 "i311"
2488 "i309"
2489 "i307"
2490 "i305"
2491 "i303"
2492 "i301"
2493 "i299"
2494 "i297"
2495 "i295"
2496 "i293"
2497 "i291"
2498 "i289"
2499 "i287"
2500 "i285"
2501 "i284"
2502 "i282"
2503 "i280"
2504 "i278"
2505 "i276"
2506 "i274"
2507 "i272"
2508 "i270"
2509 "i268"
2510 "i266"
2511 "i263"
2512 "i261"
2513 "i259"
2514 "i257"
2515 "i255"
2516 "i253"
2517 "i251"
2518 "i249"
2519 "i247"
2520 "i245"
2521 "i243"
2522 "i241"
2523 "i239"
2524 "i237"
2525 "i235"
2526 "i233"
2527 "i231"
2528 "i229"))
2529 #(ribcage
2530 (define-structure
2531 define-expansion-accessors
2532 define-expansion-constructors
2533 and-map*)
2534 ((top) (top) (top) (top))
2535 ("i23" "i22" "i21" "i19")))
2536 (hygiene guile)))
2537 #f)))
2538 (#{chi-void\ 471}#
2539 (lambda () (#{build-void\ 292}# #f)))
2540 (#{eval-local-transformer\ 469}#
2541 (lambda (#{expanded\ 1306}# #{mod\ 1307}#)
2542 (let ((#{p\ 1311}#
2543 (#{local-eval-hook\ 283}#
2544 #{expanded\ 1306}#
2545 #{mod\ 1307}#)))
2546 (if (procedure? #{p\ 1311}#)
2547 #{p\ 1311}#
2548 (syntax-violation
2549 #f
2550 "nonprocedure transformer"
2551 #{p\ 1311}#)))))
2552 (#{chi-local-syntax\ 467}#
2553 (lambda (#{rec?\ 1312}#
2554 #{e\ 1313}#
2555 #{r\ 1314}#
2556 #{w\ 1315}#
2557 #{s\ 1316}#
2558 #{mod\ 1317}#
2559 #{k\ 1318}#)
2560 ((lambda (#{tmp\ 1326}#)
2561 ((lambda (#{tmp\ 1327}#)
2562 (if #{tmp\ 1327}#
2563 (apply (lambda (#{_\ 1333}#
2564 #{id\ 1334}#
2565 #{val\ 1335}#
2566 #{e1\ 1336}#
2567 #{e2\ 1337}#)
2568 (let ((#{ids\ 1339}# #{id\ 1334}#))
2569 (if (not (#{valid-bound-ids?\ 435}#
2570 #{ids\ 1339}#))
2571 (syntax-violation
2572 #f
2573 "duplicate bound keyword"
2574 #{e\ 1313}#)
2575 (let ((#{labels\ 1342}#
2576 (#{gen-labels\ 390}#
2577 #{ids\ 1339}#)))
2578 (let ((#{new-w\ 1344}#
2579 (#{make-binding-wrap\ 419}#
2580 #{ids\ 1339}#
2581 #{labels\ 1342}#
2582 #{w\ 1315}#)))
2583 (#{k\ 1318}#
2584 (cons #{e1\ 1336}# #{e2\ 1337}#)
2585 (#{extend-env\ 360}#
2586 #{labels\ 1342}#
2587 (let ((#{w\ 1348}#
2588 (if #{rec?\ 1312}#
2589 #{new-w\ 1344}#
2590 #{w\ 1315}#))
2591 (#{trans-r\ 1349}#
2592 (#{macros-only-env\ 364}#
2593 #{r\ 1314}#)))
2594 (map (lambda (#{x\ 1350}#)
2595 (cons 'macro
2596 (#{eval-local-transformer\ 469}#
2597 (#{chi\ 457}#
2598 #{x\ 1350}#
2599 #{trans-r\ 1349}#
2600 #{w\ 1348}#
2601 #{mod\ 1317}#)
2602 #{mod\ 1317}#)))
2603 #{val\ 1335}#))
2604 #{r\ 1314}#)
2605 #{new-w\ 1344}#
2606 #{s\ 1316}#
2607 #{mod\ 1317}#))))))
2608 #{tmp\ 1327}#)
2609 ((lambda (#{_\ 1355}#)
2610 (syntax-violation
2611 #f
2612 "bad local syntax definition"
2613 (#{source-wrap\ 443}#
2614 #{e\ 1313}#
2615 #{w\ 1315}#
2616 #{s\ 1316}#
2617 #{mod\ 1317}#)))
2618 #{tmp\ 1326}#)))
2619 ($sc-dispatch
2620 #{tmp\ 1326}#
2621 '(any #(each (any any)) any . each-any))))
2622 #{e\ 1313}#)))
2623 (#{chi-body\ 465}#
2624 (lambda (#{body\ 1356}#
2625 #{outer-form\ 1357}#
2626 #{r\ 1358}#
2627 #{w\ 1359}#
2628 #{mod\ 1360}#)
2629 (let ((#{r\ 1368}#
2630 (cons '("placeholder" placeholder)
2631 #{r\ 1358}#)))
2632 (let ((#{ribcage\ 1370}#
2633 (#{make-ribcage\ 393}#
2634 '()
2635 '()
2636 '())))
2637 (let ((#{w\ 1373}#
2638 (#{make-wrap\ 377}#
2639 (#{wrap-marks\ 379}# #{w\ 1359}#)
2640 (cons #{ribcage\ 1370}#
2641 (#{wrap-subst\ 381}# #{w\ 1359}#)))))
2642 (letrec ((#{parse\ 1382}#
2643 (lambda (#{body\ 1383}#
2644 #{ids\ 1384}#
2645 #{labels\ 1385}#
2646 #{var-ids\ 1386}#
2647 #{vars\ 1387}#
2648 #{vals\ 1388}#
2649 #{bindings\ 1389}#)
2650 (if (null? #{body\ 1383}#)
2651 (syntax-violation
2652 #f
2653 "no expressions in body"
2654 #{outer-form\ 1357}#)
2655 (let ((#{e\ 1394}# (cdar #{body\ 1383}#))
2656 (#{er\ 1395}# (caar #{body\ 1383}#)))
2657 (call-with-values
2658 (lambda ()
2659 (#{syntax-type\ 453}#
2660 #{e\ 1394}#
2661 #{er\ 1395}#
2662 '(())
2663 (#{source-annotation\ 351}#
2664 #{er\ 1395}#)
2665 #{ribcage\ 1370}#
2666 #{mod\ 1360}#
2667 #f))
2668 (lambda (#{type\ 1397}#
2669 #{value\ 1398}#
2670 #{e\ 1399}#
2671 #{w\ 1400}#
2672 #{s\ 1401}#
2673 #{mod\ 1402}#)
2674 (if (memv #{type\ 1397}#
2675 '(define-form))
2676 (let ((#{id\ 1412}#
2677 (#{wrap\ 441}#
2678 #{value\ 1398}#
2679 #{w\ 1400}#
2680 #{mod\ 1402}#))
2681 (#{label\ 1413}#
2682 (#{gen-label\ 388}#)))
2683 (let ((#{var\ 1415}#
2684 (#{gen-var\ 485}#
2685 #{id\ 1412}#)))
2686 (begin
2687 (#{extend-ribcage!\ 417}#
2688 #{ribcage\ 1370}#
2689 #{id\ 1412}#
2690 #{label\ 1413}#)
2691 (#{parse\ 1382}#
2692 (cdr #{body\ 1383}#)
2693 (cons #{id\ 1412}#
2694 #{ids\ 1384}#)
2695 (cons #{label\ 1413}#
2696 #{labels\ 1385}#)
2697 (cons #{id\ 1412}#
2698 #{var-ids\ 1386}#)
2699 (cons #{var\ 1415}#
2700 #{vars\ 1387}#)
2701 (cons (cons #{er\ 1395}#
2702 (#{wrap\ 441}#
2703 #{e\ 1399}#
2704 #{w\ 1400}#
2705 #{mod\ 1402}#))
2706 #{vals\ 1388}#)
2707 (cons (cons 'lexical
2708 #{var\ 1415}#)
2709 #{bindings\ 1389}#)))))
2710 (if (memv #{type\ 1397}#
2711 '(define-syntax-form))
2712 (let ((#{id\ 1420}#
2713 (#{wrap\ 441}#
2714 #{value\ 1398}#
2715 #{w\ 1400}#
2716 #{mod\ 1402}#))
2717 (#{label\ 1421}#
2718 (#{gen-label\ 388}#)))
2719 (begin
2720 (#{extend-ribcage!\ 417}#
2721 #{ribcage\ 1370}#
2722 #{id\ 1420}#
2723 #{label\ 1421}#)
2724 (#{parse\ 1382}#
2725 (cdr #{body\ 1383}#)
2726 (cons #{id\ 1420}#
2727 #{ids\ 1384}#)
2728 (cons #{label\ 1421}#
2729 #{labels\ 1385}#)
2730 #{var-ids\ 1386}#
2731 #{vars\ 1387}#
2732 #{vals\ 1388}#
2733 (cons (cons 'macro
2734 (cons #{er\ 1395}#
2735 (#{wrap\ 441}#
2736 #{e\ 1399}#
2737 #{w\ 1400}#
2738 #{mod\ 1402}#)))
2739 #{bindings\ 1389}#))))
2740 (if (memv #{type\ 1397}#
2741 '(begin-form))
2742 ((lambda (#{tmp\ 1424}#)
2743 ((lambda (#{tmp\ 1425}#)
2744 (if #{tmp\ 1425}#
2745 (apply (lambda (#{_\ 1428}#
2746 #{e1\ 1429}#)
2747 (#{parse\ 1382}#
2748 (letrec ((#{f\ 1432}#
2749 (lambda (#{forms\ 1433}#)
2750 (if (null? #{forms\ 1433}#)
2751 (cdr #{body\ 1383}#)
2752 (cons (cons #{er\ 1395}#
2753 (#{wrap\ 441}#
2754 (car #{forms\ 1433}#)
2755 #{w\ 1400}#
2756 #{mod\ 1402}#))
2757 (#{f\ 1432}#
2758 (cdr #{forms\ 1433}#)))))))
2759 (#{f\ 1432}#
2760 #{e1\ 1429}#))
2761 #{ids\ 1384}#
2762 #{labels\ 1385}#
2763 #{var-ids\ 1386}#
2764 #{vars\ 1387}#
2765 #{vals\ 1388}#
2766 #{bindings\ 1389}#))
2767 #{tmp\ 1425}#)
2768 (syntax-violation
2769 #f
2770 "source expression failed to match any pattern"
2771 #{tmp\ 1424}#)))
2772 ($sc-dispatch
2773 #{tmp\ 1424}#
2774 '(any . each-any))))
2775 #{e\ 1399}#)
2776 (if (memv #{type\ 1397}#
2777 '(local-syntax-form))
2778 (#{chi-local-syntax\ 467}#
2779 #{value\ 1398}#
2780 #{e\ 1399}#
2781 #{er\ 1395}#
2782 #{w\ 1400}#
2783 #{s\ 1401}#
2784 #{mod\ 1402}#
2785 (lambda (#{forms\ 1436}#
2786 #{er\ 1437}#
2787 #{w\ 1438}#
2788 #{s\ 1439}#
2789 #{mod\ 1440}#)
2790 (#{parse\ 1382}#
2791 (letrec ((#{f\ 1448}#
2792 (lambda (#{forms\ 1449}#)
2793 (if (null? #{forms\ 1449}#)
2794 (cdr #{body\ 1383}#)
2795 (cons (cons #{er\ 1437}#
2796 (#{wrap\ 441}#
2797 (car #{forms\ 1449}#)
2798 #{w\ 1438}#
2799 #{mod\ 1440}#))
2800 (#{f\ 1448}#
2801 (cdr #{forms\ 1449}#)))))))
2802 (#{f\ 1448}#
2803 #{forms\ 1436}#))
2804 #{ids\ 1384}#
2805 #{labels\ 1385}#
2806 #{var-ids\ 1386}#
2807 #{vars\ 1387}#
2808 #{vals\ 1388}#
2809 #{bindings\ 1389}#)))
2810 (if (null? #{ids\ 1384}#)
2811 (#{build-sequence\ 324}#
2812 #f
2813 (map (lambda (#{x\ 1452}#)
2814 (#{chi\ 457}#
2815 (cdr #{x\ 1452}#)
2816 (car #{x\ 1452}#)
2817 '(())
2818 #{mod\ 1402}#))
2819 (cons (cons #{er\ 1395}#
2820 (#{source-wrap\ 443}#
2821 #{e\ 1399}#
2822 #{w\ 1400}#
2823 #{s\ 1401}#
2824 #{mod\ 1402}#))
2825 (cdr #{body\ 1383}#))))
2826 (begin
2827 (if (not (#{valid-bound-ids?\ 435}#
2828 #{ids\ 1384}#))
2829 (syntax-violation
2830 #f
2831 "invalid or duplicate identifier in definition"
2832 #{outer-form\ 1357}#))
2833 (letrec ((#{loop\ 1459}#
2834 (lambda (#{bs\ 1460}#
2835 #{er-cache\ 1461}#
2836 #{r-cache\ 1462}#)
2837 (if (not (null? #{bs\ 1460}#))
2838 (let ((#{b\ 1465}#
2839 (car #{bs\ 1460}#)))
2840 (if (eq? (car #{b\ 1465}#)
2841 'macro)
2842 (let ((#{er\ 1468}#
2843 (cadr #{b\ 1465}#)))
2844 (let ((#{r-cache\ 1470}#
2845 (if (eq? #{er\ 1468}#
2846 #{er-cache\ 1461}#)
2847 #{r-cache\ 1462}#
2848 (#{macros-only-env\ 364}#
2849 #{er\ 1468}#))))
2850 (begin
2851 (set-cdr!
2852 #{b\ 1465}#
2853 (#{eval-local-transformer\ 469}#
2854 (#{chi\ 457}#
2855 (cddr #{b\ 1465}#)
2856 #{r-cache\ 1470}#
2857 '(())
2858 #{mod\ 1402}#)
2859 #{mod\ 1402}#))
2860 (#{loop\ 1459}#
2861 (cdr #{bs\ 1460}#)
2862 #{er\ 1468}#
2863 #{r-cache\ 1470}#))))
2864 (#{loop\ 1459}#
2865 (cdr #{bs\ 1460}#)
2866 #{er-cache\ 1461}#
2867 #{r-cache\ 1462}#)))))))
2868 (#{loop\ 1459}#
2869 #{bindings\ 1389}#
2870 #f
2871 #f))
2872 (set-cdr!
2873 #{r\ 1368}#
2874 (#{extend-env\ 360}#
2875 #{labels\ 1385}#
2876 #{bindings\ 1389}#
2877 (cdr #{r\ 1368}#)))
2878 (#{build-letrec\ 330}#
2879 #f
2880 (map syntax->datum
2881 #{var-ids\ 1386}#)
2882 #{vars\ 1387}#
2883 (map (lambda (#{x\ 1473}#)
2884 (#{chi\ 457}#
2885 (cdr #{x\ 1473}#)
2886 (car #{x\ 1473}#)
2887 '(())
2888 #{mod\ 1402}#))
2889 #{vals\ 1388}#)
2890 (#{build-sequence\ 324}#
2891 #f
2892 (map (lambda (#{x\ 1477}#)
2893 (#{chi\ 457}#
2894 (cdr #{x\ 1477}#)
2895 (car #{x\ 1477}#)
2896 '(())
2897 #{mod\ 1402}#))
2898 (cons (cons #{er\ 1395}#
2899 (#{source-wrap\ 443}#
2900 #{e\ 1399}#
2901 #{w\ 1400}#
2902 #{s\ 1401}#
2903 #{mod\ 1402}#))
2904 (cdr #{body\ 1383}#))))))))))))))))))
2905 (#{parse\ 1382}#
2906 (map (lambda (#{x\ 1390}#)
2907 (cons #{r\ 1368}#
2908 (#{wrap\ 441}#
2909 #{x\ 1390}#
2910 #{w\ 1373}#
2911 #{mod\ 1360}#)))
2912 #{body\ 1356}#)
2913 '()
2914 '()
2915 '()
2916 '()
2917 '()
2918 '())))))))
2919 (#{chi-macro\ 463}#
2920 (lambda (#{p\ 1480}#
2921 #{e\ 1481}#
2922 #{r\ 1482}#
2923 #{w\ 1483}#
2924 #{s\ 1484}#
2925 #{rib\ 1485}#
2926 #{mod\ 1486}#)
2927 (letrec ((#{rebuild-macro-output\ 1495}#
2928 (lambda (#{x\ 1496}# #{m\ 1497}#)
2929 (if (pair? #{x\ 1496}#)
2930 (#{decorate-source\ 290}#
2931 (cons (#{rebuild-macro-output\ 1495}#
2932 (car #{x\ 1496}#)
2933 #{m\ 1497}#)
2934 (#{rebuild-macro-output\ 1495}#
2935 (cdr #{x\ 1496}#)
2936 #{m\ 1497}#))
2937 #{s\ 1484}#)
2938 (if (#{syntax-object?\ 336}# #{x\ 1496}#)
2939 (let ((#{w\ 1505}#
2940 (#{syntax-object-wrap\ 340}#
2941 #{x\ 1496}#)))
2942 (let ((#{ms\ 1508}#
2943 (#{wrap-marks\ 379}# #{w\ 1505}#))
2944 (#{s\ 1509}#
2945 (#{wrap-subst\ 381}# #{w\ 1505}#)))
2946 (if (if (pair? #{ms\ 1508}#)
2947 (eq? (car #{ms\ 1508}#) #f)
2948 #f)
2949 (#{make-syntax-object\ 334}#
2950 (#{syntax-object-expression\ 338}#
2951 #{x\ 1496}#)
2952 (#{make-wrap\ 377}#
2953 (cdr #{ms\ 1508}#)
2954 (if #{rib\ 1485}#
2955 (cons #{rib\ 1485}#
2956 (cdr #{s\ 1509}#))
2957 (cdr #{s\ 1509}#)))
2958 (#{syntax-object-module\ 342}#
2959 #{x\ 1496}#))
2960 (#{make-syntax-object\ 334}#
2961 (#{decorate-source\ 290}#
2962 (#{syntax-object-expression\ 338}#
2963 #{x\ 1496}#)
2964 #{s\ 1509}#)
2965 (#{make-wrap\ 377}#
2966 (cons #{m\ 1497}# #{ms\ 1508}#)
2967 (if #{rib\ 1485}#
2968 (cons #{rib\ 1485}#
2969 (cons 'shift
2970 #{s\ 1509}#))
2971 (cons (quote shift) #{s\ 1509}#)))
2972 (#{syntax-object-module\ 342}#
2973 #{x\ 1496}#)))))
2974 (if (vector? #{x\ 1496}#)
2975 (let ((#{n\ 1517}#
2976 (vector-length #{x\ 1496}#)))
2977 (let ((#{v\ 1519}#
2978 (#{decorate-source\ 290}#
2979 (make-vector #{n\ 1517}#)
2980 #{x\ 1496}#)))
2981 (letrec ((#{loop\ 1522}#
2982 (lambda (#{i\ 1523}#)
2983 (if (#{fx=\ 277}#
2984 #{i\ 1523}#
2985 #{n\ 1517}#)
2986 (begin
2987 (if #f #f)
2988 #{v\ 1519}#)
2989 (begin
2990 (vector-set!
2991 #{v\ 1519}#
2992 #{i\ 1523}#
2993 (#{rebuild-macro-output\ 1495}#
2994 (vector-ref
2995 #{x\ 1496}#
2996 #{i\ 1523}#)
2997 #{m\ 1497}#))
2998 (#{loop\ 1522}#
2999 (#{fx+\ 273}#
3000 #{i\ 1523}#
3001 1)))))))
3002 (#{loop\ 1522}# 0))))
3003 (if (symbol? #{x\ 1496}#)
3004 (syntax-violation
3005 #f
3006 "encountered raw symbol in macro output"
3007 (#{source-wrap\ 443}#
3008 #{e\ 1481}#
3009 #{w\ 1483}#
3010 (#{wrap-subst\ 381}# #{w\ 1483}#)
3011 #{mod\ 1486}#)
3012 #{x\ 1496}#)
3013 (#{decorate-source\ 290}#
3014 #{x\ 1496}#
3015 #{s\ 1484}#))))))))
3016 (#{rebuild-macro-output\ 1495}#
3017 (#{p\ 1480}#
3018 (#{source-wrap\ 443}#
3019 #{e\ 1481}#
3020 (#{anti-mark\ 413}# #{w\ 1483}#)
3021 #{s\ 1484}#
3022 #{mod\ 1486}#))
3023 (gensym "m")))))
3024 (#{chi-application\ 461}#
3025 (lambda (#{x\ 1530}#
3026 #{e\ 1531}#
3027 #{r\ 1532}#
3028 #{w\ 1533}#
3029 #{s\ 1534}#
3030 #{mod\ 1535}#)
3031 ((lambda (#{tmp\ 1542}#)
3032 ((lambda (#{tmp\ 1543}#)
3033 (if #{tmp\ 1543}#
3034 (apply (lambda (#{e0\ 1546}# #{e1\ 1547}#)
3035 (#{build-application\ 294}#
3036 #{s\ 1534}#
3037 #{x\ 1530}#
3038 (map (lambda (#{e\ 1548}#)
3039 (#{chi\ 457}#
3040 #{e\ 1548}#
3041 #{r\ 1532}#
3042 #{w\ 1533}#
3043 #{mod\ 1535}#))
3044 #{e1\ 1547}#)))
3045 #{tmp\ 1543}#)
3046 (syntax-violation
3047 #f
3048 "source expression failed to match any pattern"
3049 #{tmp\ 1542}#)))
3050 ($sc-dispatch
3051 #{tmp\ 1542}#
3052 '(any . each-any))))
3053 #{e\ 1531}#)))
3054 (#{chi-expr\ 459}#
3055 (lambda (#{type\ 1551}#
3056 #{value\ 1552}#
3057 #{e\ 1553}#
3058 #{r\ 1554}#
3059 #{w\ 1555}#
3060 #{s\ 1556}#
3061 #{mod\ 1557}#)
3062 (if (memv #{type\ 1551}# (quote (lexical)))
3063 (#{build-lexical-reference\ 300}#
3064 'value
3065 #{s\ 1556}#
3066 #{e\ 1553}#
3067 #{value\ 1552}#)
3068 (if (memv #{type\ 1551}# (quote (core core-form)))
3069 (#{value\ 1552}#
3070 #{e\ 1553}#
3071 #{r\ 1554}#
3072 #{w\ 1555}#
3073 #{s\ 1556}#
3074 #{mod\ 1557}#)
3075 (if (memv #{type\ 1551}# (quote (module-ref)))
3076 (call-with-values
3077 (lambda ()
3078 (#{value\ 1552}#
3079 #{e\ 1553}#
3080 #{r\ 1554}#
3081 #{w\ 1555}#))
3082 (lambda (#{e\ 1568}#
3083 #{r\ 1569}#
3084 #{w\ 1570}#
3085 #{s\ 1571}#
3086 #{mod\ 1572}#)
3087 (#{chi\ 457}#
3088 #{e\ 1568}#
3089 #{r\ 1569}#
3090 #{w\ 1570}#
3091 #{mod\ 1572}#)))
3092 (if (memv #{type\ 1551}# (quote (lexical-call)))
3093 (#{chi-application\ 461}#
3094 (let ((#{id\ 1580}# (car #{e\ 1553}#)))
3095 (#{build-lexical-reference\ 300}#
3096 'fun
3097 (#{source-annotation\ 351}# #{id\ 1580}#)
3098 (if (#{syntax-object?\ 336}# #{id\ 1580}#)
3099 (syntax->datum #{id\ 1580}#)
3100 #{id\ 1580}#)
3101 #{value\ 1552}#))
3102 #{e\ 1553}#
3103 #{r\ 1554}#
3104 #{w\ 1555}#
3105 #{s\ 1556}#
3106 #{mod\ 1557}#)
3107 (if (memv #{type\ 1551}# (quote (global-call)))
3108 (#{chi-application\ 461}#
3109 (#{build-global-reference\ 306}#
3110 (#{source-annotation\ 351}# (car #{e\ 1553}#))
3111 (if (#{syntax-object?\ 336}# #{value\ 1552}#)
3112 (#{syntax-object-expression\ 338}#
3113 #{value\ 1552}#)
3114 #{value\ 1552}#)
3115 (if (#{syntax-object?\ 336}# #{value\ 1552}#)
3116 (#{syntax-object-module\ 342}# #{value\ 1552}#)
3117 #{mod\ 1557}#))
3118 #{e\ 1553}#
3119 #{r\ 1554}#
3120 #{w\ 1555}#
3121 #{s\ 1556}#
3122 #{mod\ 1557}#)
3123 (if (memv #{type\ 1551}# (quote (constant)))
3124 (#{build-data\ 322}#
3125 #{s\ 1556}#
3126 (#{strip\ 483}#
3127 (#{source-wrap\ 443}#
3128 #{e\ 1553}#
3129 #{w\ 1555}#
3130 #{s\ 1556}#
3131 #{mod\ 1557}#)
3132 '(())))
3133 (if (memv #{type\ 1551}# (quote (global)))
3134 (#{build-global-reference\ 306}#
3135 #{s\ 1556}#
3136 #{value\ 1552}#
3137 #{mod\ 1557}#)
3138 (if (memv #{type\ 1551}# (quote (call)))
3139 (#{chi-application\ 461}#
3140 (#{chi\ 457}#
3141 (car #{e\ 1553}#)
3142 #{r\ 1554}#
3143 #{w\ 1555}#
3144 #{mod\ 1557}#)
3145 #{e\ 1553}#
3146 #{r\ 1554}#
3147 #{w\ 1555}#
3148 #{s\ 1556}#
3149 #{mod\ 1557}#)
3150 (if (memv #{type\ 1551}# (quote (begin-form)))
3151 ((lambda (#{tmp\ 1587}#)
3152 ((lambda (#{tmp\ 1588}#)
3153 (if #{tmp\ 1588}#
3154 (apply (lambda (#{_\ 1592}#
3155 #{e1\ 1593}#
3156 #{e2\ 1594}#)
3157 (#{chi-sequence\ 445}#
3158 (cons #{e1\ 1593}#
3159 #{e2\ 1594}#)
3160 #{r\ 1554}#
3161 #{w\ 1555}#
3162 #{s\ 1556}#
3163 #{mod\ 1557}#))
3164 #{tmp\ 1588}#)
3165 (syntax-violation
3166 #f
3167 "source expression failed to match any pattern"
3168 #{tmp\ 1587}#)))
3169 ($sc-dispatch
3170 #{tmp\ 1587}#
3171 '(any any . each-any))))
3172 #{e\ 1553}#)
3173 (if (memv #{type\ 1551}#
3174 '(local-syntax-form))
3175 (#{chi-local-syntax\ 467}#
3176 #{value\ 1552}#
3177 #{e\ 1553}#
3178 #{r\ 1554}#
3179 #{w\ 1555}#
3180 #{s\ 1556}#
3181 #{mod\ 1557}#
3182 #{chi-sequence\ 445}#)
3183 (if (memv #{type\ 1551}#
3184 '(eval-when-form))
3185 ((lambda (#{tmp\ 1598}#)
3186 ((lambda (#{tmp\ 1599}#)
3187 (if #{tmp\ 1599}#
3188 (apply (lambda (#{_\ 1604}#
3189 #{x\ 1605}#
3190 #{e1\ 1606}#
3191 #{e2\ 1607}#)
3192 (let ((#{when-list\ 1609}#
3193 (#{chi-when-list\ 451}#
3194 #{e\ 1553}#
3195 #{x\ 1605}#
3196 #{w\ 1555}#)))
3197 (if (memq 'eval
3198 #{when-list\ 1609}#)
3199 (#{chi-sequence\ 445}#
3200 (cons #{e1\ 1606}#
3201 #{e2\ 1607}#)
3202 #{r\ 1554}#
3203 #{w\ 1555}#
3204 #{s\ 1556}#
3205 #{mod\ 1557}#)
3206 (#{chi-void\ 471}#))))
3207 #{tmp\ 1599}#)
3208 (syntax-violation
3209 #f
3210 "source expression failed to match any pattern"
3211 #{tmp\ 1598}#)))
3212 ($sc-dispatch
3213 #{tmp\ 1598}#
3214 '(any each-any any . each-any))))
3215 #{e\ 1553}#)
3216 (if (memv #{type\ 1551}#
3217 '(define-form
3218 define-syntax-form))
3219 (syntax-violation
3220 #f
3221 "definition in expression context"
3222 #{e\ 1553}#
3223 (#{wrap\ 441}#
3224 #{value\ 1552}#
3225 #{w\ 1555}#
3226 #{mod\ 1557}#))
3227 (if (memv #{type\ 1551}#
3228 '(syntax))
3229 (syntax-violation
3230 #f
3231 "reference to pattern variable outside syntax form"
3232 (#{source-wrap\ 443}#
3233 #{e\ 1553}#
3234 #{w\ 1555}#
3235 #{s\ 1556}#
3236 #{mod\ 1557}#))
3237 (if (memv #{type\ 1551}#
3238 '(displaced-lexical))
3239 (syntax-violation
3240 #f
3241 "reference to identifier outside its scope"
3242 (#{source-wrap\ 443}#
3243 #{e\ 1553}#
3244 #{w\ 1555}#
3245 #{s\ 1556}#
3246 #{mod\ 1557}#))
3247 (syntax-violation
3248 #f
3249 "unexpected syntax"
3250 (#{source-wrap\ 443}#
3251 #{e\ 1553}#
3252 #{w\ 1555}#
3253 #{s\ 1556}#
3254 #{mod\ 1557}#))))))))))))))))))
3255 (#{chi\ 457}#
3256 (lambda (#{e\ 1616}#
3257 #{r\ 1617}#
3258 #{w\ 1618}#
3259 #{mod\ 1619}#)
3260 (call-with-values
3261 (lambda ()
3262 (#{syntax-type\ 453}#
3263 #{e\ 1616}#
3264 #{r\ 1617}#
3265 #{w\ 1618}#
3266 (#{source-annotation\ 351}# #{e\ 1616}#)
3267 #f
3268 #{mod\ 1619}#
3269 #f))
3270 (lambda (#{type\ 1624}#
3271 #{value\ 1625}#
3272 #{e\ 1626}#
3273 #{w\ 1627}#
3274 #{s\ 1628}#
3275 #{mod\ 1629}#)
3276 (#{chi-expr\ 459}#
3277 #{type\ 1624}#
3278 #{value\ 1625}#
3279 #{e\ 1626}#
3280 #{r\ 1617}#
3281 #{w\ 1627}#
3282 #{s\ 1628}#
3283 #{mod\ 1629}#)))))
3284 (#{chi-top\ 455}#
3285 (lambda (#{e\ 1636}#
3286 #{r\ 1637}#
3287 #{w\ 1638}#
3288 #{m\ 1639}#
3289 #{esew\ 1640}#
3290 #{mod\ 1641}#)
3291 (call-with-values
3292 (lambda ()
3293 (#{syntax-type\ 453}#
3294 #{e\ 1636}#
3295 #{r\ 1637}#
3296 #{w\ 1638}#
3297 (#{source-annotation\ 351}# #{e\ 1636}#)
3298 #f
3299 #{mod\ 1641}#
3300 #f))
3301 (lambda (#{type\ 1662}#
3302 #{value\ 1663}#
3303 #{e\ 1664}#
3304 #{w\ 1665}#
3305 #{s\ 1666}#
3306 #{mod\ 1667}#)
3307 (if (memv #{type\ 1662}# (quote (begin-form)))
3308 ((lambda (#{tmp\ 1675}#)
3309 ((lambda (#{tmp\ 1676}#)
3310 (if #{tmp\ 1676}#
3311 (apply (lambda (#{_\ 1678}#) (#{chi-void\ 471}#))
3312 #{tmp\ 1676}#)
3313 ((lambda (#{tmp\ 1679}#)
3314 (if #{tmp\ 1679}#
3315 (apply (lambda (#{_\ 1683}#
3316 #{e1\ 1684}#
3317 #{e2\ 1685}#)
3318 (#{chi-top-sequence\ 447}#
3319 (cons #{e1\ 1684}# #{e2\ 1685}#)
3320 #{r\ 1637}#
3321 #{w\ 1665}#
3322 #{s\ 1666}#
3323 #{m\ 1639}#
3324 #{esew\ 1640}#
3325 #{mod\ 1667}#))
3326 #{tmp\ 1679}#)
3327 (syntax-violation
3328 #f
3329 "source expression failed to match any pattern"
3330 #{tmp\ 1675}#)))
3331 ($sc-dispatch
3332 #{tmp\ 1675}#
3333 '(any any . each-any)))))
3334 ($sc-dispatch #{tmp\ 1675}# (quote (any)))))
3335 #{e\ 1664}#)
3336 (if (memv #{type\ 1662}# (quote (local-syntax-form)))
3337 (#{chi-local-syntax\ 467}#
3338 #{value\ 1663}#
3339 #{e\ 1664}#
3340 #{r\ 1637}#
3341 #{w\ 1665}#
3342 #{s\ 1666}#
3343 #{mod\ 1667}#
3344 (lambda (#{body\ 1688}#
3345 #{r\ 1689}#
3346 #{w\ 1690}#
3347 #{s\ 1691}#
3348 #{mod\ 1692}#)
3349 (#{chi-top-sequence\ 447}#
3350 #{body\ 1688}#
3351 #{r\ 1689}#
3352 #{w\ 1690}#
3353 #{s\ 1691}#
3354 #{m\ 1639}#
3355 #{esew\ 1640}#
3356 #{mod\ 1692}#)))
3357 (if (memv #{type\ 1662}# (quote (eval-when-form)))
3358 ((lambda (#{tmp\ 1699}#)
3359 ((lambda (#{tmp\ 1700}#)
3360 (if #{tmp\ 1700}#
3361 (apply (lambda (#{_\ 1705}#
3362 #{x\ 1706}#
3363 #{e1\ 1707}#
3364 #{e2\ 1708}#)
3365 (let ((#{when-list\ 1711}#
3366 (#{chi-when-list\ 451}#
3367 #{e\ 1664}#
3368 #{x\ 1706}#
3369 #{w\ 1665}#))
3370 (#{body\ 1712}#
3371 (cons #{e1\ 1707}#
3372 #{e2\ 1708}#)))
3373 (if (eq? #{m\ 1639}# (quote e))
3374 (if (memq 'eval
3375 #{when-list\ 1711}#)
3376 (#{chi-top-sequence\ 447}#
3377 #{body\ 1712}#
3378 #{r\ 1637}#
3379 #{w\ 1665}#
3380 #{s\ 1666}#
3381 (if (memq 'expand
3382 #{when-list\ 1711}#)
3383 'c&e
3384 'e)
3385 '(eval)
3386 #{mod\ 1667}#)
3387 (begin
3388 (if (memq 'expand
3389 #{when-list\ 1711}#)
3390 (#{top-level-eval-hook\ 281}#
3391 (#{chi-top-sequence\ 447}#
3392 #{body\ 1712}#
3393 #{r\ 1637}#
3394 #{w\ 1665}#
3395 #{s\ 1666}#
3396 'e
3397 '(eval)
3398 #{mod\ 1667}#)
3399 #{mod\ 1667}#))
3400 (#{chi-void\ 471}#)))
3401 (if (memq 'load
3402 #{when-list\ 1711}#)
3403 (if (let ((#{t\ 1721}#
3404 (memq 'compile
3405 #{when-list\ 1711}#)))
3406 (if #{t\ 1721}#
3407 #{t\ 1721}#
3408 (let ((#{t\ 1724}#
3409 (memq 'expand
3410 #{when-list\ 1711}#)))
3411 (if #{t\ 1724}#
3412 #{t\ 1724}#
3413 (if (eq? #{m\ 1639}#
3414 'c&e)
3415 (memq 'eval
3416 #{when-list\ 1711}#)
3417 #f)))))
3418 (#{chi-top-sequence\ 447}#
3419 #{body\ 1712}#
3420 #{r\ 1637}#
3421 #{w\ 1665}#
3422 #{s\ 1666}#
3423 'c&e
3424 '(compile load)
3425 #{mod\ 1667}#)
3426 (if (memq #{m\ 1639}#
3427 '(c c&e))
3428 (#{chi-top-sequence\ 447}#
3429 #{body\ 1712}#
3430 #{r\ 1637}#
3431 #{w\ 1665}#
3432 #{s\ 1666}#
3433 'c
3434 '(load)
3435 #{mod\ 1667}#)
3436 (#{chi-void\ 471}#)))
3437 (if (let ((#{t\ 1732}#
3438 (memq 'compile
3439 #{when-list\ 1711}#)))
3440 (if #{t\ 1732}#
3441 #{t\ 1732}#
3442 (let ((#{t\ 1735}#
3443 (memq 'expand
3444 #{when-list\ 1711}#)))
3445 (if #{t\ 1735}#
3446 #{t\ 1735}#
3447 (if (eq? #{m\ 1639}#
3448 'c&e)
3449 (memq 'eval
3450 #{when-list\ 1711}#)
3451 #f)))))
3452 (begin
3453 (#{top-level-eval-hook\ 281}#
3454 (#{chi-top-sequence\ 447}#
3455 #{body\ 1712}#
3456 #{r\ 1637}#
3457 #{w\ 1665}#
3458 #{s\ 1666}#
3459 'e
3460 '(eval)
3461 #{mod\ 1667}#)
3462 #{mod\ 1667}#)
3463 (#{chi-void\ 471}#))
3464 (#{chi-void\ 471}#))))))
3465 #{tmp\ 1700}#)
3466 (syntax-violation
3467 #f
3468 "source expression failed to match any pattern"
3469 #{tmp\ 1699}#)))
3470 ($sc-dispatch
3471 #{tmp\ 1699}#
3472 '(any each-any any . each-any))))
3473 #{e\ 1664}#)
3474 (if (memv #{type\ 1662}#
3475 '(define-syntax-form))
3476 (let ((#{n\ 1743}#
3477 (#{id-var-name\ 429}#
3478 #{value\ 1663}#
3479 #{w\ 1665}#))
3480 (#{r\ 1744}#
3481 (#{macros-only-env\ 364}# #{r\ 1637}#)))
3482 (if (memv #{m\ 1639}# (quote (c)))
3483 (if (memq (quote compile) #{esew\ 1640}#)
3484 (let ((#{e\ 1747}#
3485 (#{chi-install-global\ 449}#
3486 #{n\ 1743}#
3487 (#{chi\ 457}#
3488 #{e\ 1664}#
3489 #{r\ 1744}#
3490 #{w\ 1665}#
3491 #{mod\ 1667}#))))
3492 (begin
3493 (#{top-level-eval-hook\ 281}#
3494 #{e\ 1747}#
3495 #{mod\ 1667}#)
3496 (if (memq (quote load) #{esew\ 1640}#)
3497 #{e\ 1747}#
3498 (#{chi-void\ 471}#))))
3499 (if (memq (quote load) #{esew\ 1640}#)
3500 (#{chi-install-global\ 449}#
3501 #{n\ 1743}#
3502 (#{chi\ 457}#
3503 #{e\ 1664}#
3504 #{r\ 1744}#
3505 #{w\ 1665}#
3506 #{mod\ 1667}#))
3507 (#{chi-void\ 471}#)))
3508 (if (memv #{m\ 1639}# (quote (c&e)))
3509 (let ((#{e\ 1750}#
3510 (#{chi-install-global\ 449}#
3511 #{n\ 1743}#
3512 (#{chi\ 457}#
3513 #{e\ 1664}#
3514 #{r\ 1744}#
3515 #{w\ 1665}#
3516 #{mod\ 1667}#))))
3517 (begin
3518 (#{top-level-eval-hook\ 281}#
3519 #{e\ 1750}#
3520 #{mod\ 1667}#)
3521 #{e\ 1750}#))
3522 (begin
3523 (if (memq (quote eval) #{esew\ 1640}#)
3524 (#{top-level-eval-hook\ 281}#
3525 (#{chi-install-global\ 449}#
3526 #{n\ 1743}#
3527 (#{chi\ 457}#
3528 #{e\ 1664}#
3529 #{r\ 1744}#
3530 #{w\ 1665}#
3531 #{mod\ 1667}#))
3532 #{mod\ 1667}#))
3533 (#{chi-void\ 471}#)))))
3534 (if (memv #{type\ 1662}# (quote (define-form)))
3535 (let ((#{n\ 1755}#
3536 (#{id-var-name\ 429}#
3537 #{value\ 1663}#
3538 #{w\ 1665}#)))
3539 (let ((#{type\ 1757}#
3540 (#{binding-type\ 355}#
3541 (#{lookup\ 366}#
3542 #{n\ 1755}#
3543 #{r\ 1637}#
3544 #{mod\ 1667}#))))
3545 (if (memv #{type\ 1757}#
3546 '(global core macro module-ref))
3547 (begin
3548 (if (if (memq #{m\ 1639}# (quote (c c&e)))
3549 (if (not (module-local-variable
3550 (current-module)
3551 #{n\ 1755}#))
3552 (current-module)
3553 #f)
3554 #f)
3555 (let ((#{old\ 1763}#
3556 (module-variable
3557 (current-module)
3558 #{n\ 1755}#)))
3559 (module-define!
3560 (current-module)
3561 #{n\ 1755}#
3562 (if (variable? #{old\ 1763}#)
3563 (variable-ref #{old\ 1763}#)
3564 #f))))
3565 (let ((#{x\ 1766}#
3566 (#{build-global-definition\ 312}#
3567 #{s\ 1666}#
3568 #{n\ 1755}#
3569 (#{chi\ 457}#
3570 #{e\ 1664}#
3571 #{r\ 1637}#
3572 #{w\ 1665}#
3573 #{mod\ 1667}#))))
3574 (begin
3575 (if (eq? #{m\ 1639}# (quote c&e))
3576 (#{top-level-eval-hook\ 281}#
3577 #{x\ 1766}#
3578 #{mod\ 1667}#))
3579 #{x\ 1766}#)))
3580 (if (memv #{type\ 1757}#
3581 '(displaced-lexical))
3582 (syntax-violation
3583 #f
3584 "identifier out of context"
3585 #{e\ 1664}#
3586 (#{wrap\ 441}#
3587 #{value\ 1663}#
3588 #{w\ 1665}#
3589 #{mod\ 1667}#))
3590 (syntax-violation
3591 #f
3592 "cannot define keyword at top level"
3593 #{e\ 1664}#
3594 (#{wrap\ 441}#
3595 #{value\ 1663}#
3596 #{w\ 1665}#
3597 #{mod\ 1667}#))))))
3598 (let ((#{x\ 1772}#
3599 (#{chi-expr\ 459}#
3600 #{type\ 1662}#
3601 #{value\ 1663}#
3602 #{e\ 1664}#
3603 #{r\ 1637}#
3604 #{w\ 1665}#
3605 #{s\ 1666}#
3606 #{mod\ 1667}#)))
3607 (begin
3608 (if (eq? #{m\ 1639}# (quote c&e))
3609 (#{top-level-eval-hook\ 281}#
3610 #{x\ 1772}#
3611 #{mod\ 1667}#))
3612 #{x\ 1772}#)))))))))))
3613 (#{syntax-type\ 453}#
3614 (lambda (#{e\ 1773}#
3615 #{r\ 1774}#
3616 #{w\ 1775}#
3617 #{s\ 1776}#
3618 #{rib\ 1777}#
3619 #{mod\ 1778}#
3620 #{for-car?\ 1779}#)
3621 (if (symbol? #{e\ 1773}#)
3622 (let ((#{n\ 1791}#
3623 (#{id-var-name\ 429}# #{e\ 1773}# #{w\ 1775}#)))
3624 (let ((#{b\ 1793}#
3625 (#{lookup\ 366}#
3626 #{n\ 1791}#
3627 #{r\ 1774}#
3628 #{mod\ 1778}#)))
3629 (let ((#{type\ 1795}#
3630 (#{binding-type\ 355}# #{b\ 1793}#)))
3631 (if (memv #{type\ 1795}# (quote (lexical)))
3632 (values
3633 #{type\ 1795}#
3634 (#{binding-value\ 357}# #{b\ 1793}#)
3635 #{e\ 1773}#
3636 #{w\ 1775}#
3637 #{s\ 1776}#
3638 #{mod\ 1778}#)
3639 (if (memv #{type\ 1795}# (quote (global)))
3640 (values
3641 #{type\ 1795}#
3642 #{n\ 1791}#
3643 #{e\ 1773}#
3644 #{w\ 1775}#
3645 #{s\ 1776}#
3646 #{mod\ 1778}#)
3647 (if (memv #{type\ 1795}# (quote (macro)))
3648 (if #{for-car?\ 1779}#
3649 (values
3650 #{type\ 1795}#
3651 (#{binding-value\ 357}# #{b\ 1793}#)
3652 #{e\ 1773}#
3653 #{w\ 1775}#
3654 #{s\ 1776}#
3655 #{mod\ 1778}#)
3656 (#{syntax-type\ 453}#
3657 (#{chi-macro\ 463}#
3658 (#{binding-value\ 357}# #{b\ 1793}#)
3659 #{e\ 1773}#
3660 #{r\ 1774}#
3661 #{w\ 1775}#
3662 #{s\ 1776}#
3663 #{rib\ 1777}#
3664 #{mod\ 1778}#)
3665 #{r\ 1774}#
3666 '(())
3667 #{s\ 1776}#
3668 #{rib\ 1777}#
3669 #{mod\ 1778}#
3670 #f))
3671 (values
3672 #{type\ 1795}#
3673 (#{binding-value\ 357}# #{b\ 1793}#)
3674 #{e\ 1773}#
3675 #{w\ 1775}#
3676 #{s\ 1776}#
3677 #{mod\ 1778}#)))))))
3678 (if (pair? #{e\ 1773}#)
3679 (let ((#{first\ 1804}# (car #{e\ 1773}#)))
3680 (call-with-values
3681 (lambda ()
3682 (#{syntax-type\ 453}#
3683 #{first\ 1804}#
3684 #{r\ 1774}#
3685 #{w\ 1775}#
3686 #{s\ 1776}#
3687 #{rib\ 1777}#
3688 #{mod\ 1778}#
3689 #t))
3690 (lambda (#{ftype\ 1805}#
3691 #{fval\ 1806}#
3692 #{fe\ 1807}#
3693 #{fw\ 1808}#
3694 #{fs\ 1809}#
3695 #{fmod\ 1810}#)
3696 (if (memv #{ftype\ 1805}# (quote (lexical)))
3697 (values
3698 'lexical-call
3699 #{fval\ 1806}#
3700 #{e\ 1773}#
3701 #{w\ 1775}#
3702 #{s\ 1776}#
3703 #{mod\ 1778}#)
3704 (if (memv #{ftype\ 1805}# (quote (global)))
3705 (values
3706 'global-call
3707 (#{make-syntax-object\ 334}#
3708 #{fval\ 1806}#
3709 #{w\ 1775}#
3710 #{fmod\ 1810}#)
3711 #{e\ 1773}#
3712 #{w\ 1775}#
3713 #{s\ 1776}#
3714 #{mod\ 1778}#)
3715 (if (memv #{ftype\ 1805}# (quote (macro)))
3716 (#{syntax-type\ 453}#
3717 (#{chi-macro\ 463}#
3718 #{fval\ 1806}#
3719 #{e\ 1773}#
3720 #{r\ 1774}#
3721 #{w\ 1775}#
3722 #{s\ 1776}#
3723 #{rib\ 1777}#
3724 #{mod\ 1778}#)
3725 #{r\ 1774}#
3726 '(())
3727 #{s\ 1776}#
3728 #{rib\ 1777}#
3729 #{mod\ 1778}#
3730 #{for-car?\ 1779}#)
3731 (if (memv #{ftype\ 1805}# (quote (module-ref)))
3732 (call-with-values
3733 (lambda ()
3734 (#{fval\ 1806}#
3735 #{e\ 1773}#
3736 #{r\ 1774}#
3737 #{w\ 1775}#))
3738 (lambda (#{e\ 1822}#
3739 #{r\ 1823}#
3740 #{w\ 1824}#
3741 #{s\ 1825}#
3742 #{mod\ 1826}#)
3743 (#{syntax-type\ 453}#
3744 #{e\ 1822}#
3745 #{r\ 1823}#
3746 #{w\ 1824}#
3747 #{s\ 1825}#
3748 #{rib\ 1777}#
3749 #{mod\ 1826}#
3750 #{for-car?\ 1779}#)))
3751 (if (memv #{ftype\ 1805}# (quote (core)))
3752 (values
3753 'core-form
3754 #{fval\ 1806}#
3755 #{e\ 1773}#
3756 #{w\ 1775}#
3757 #{s\ 1776}#
3758 #{mod\ 1778}#)
3759 (if (memv #{ftype\ 1805}#
3760 '(local-syntax))
3761 (values
3762 'local-syntax-form
3763 #{fval\ 1806}#
3764 #{e\ 1773}#
3765 #{w\ 1775}#
3766 #{s\ 1776}#
3767 #{mod\ 1778}#)
3768 (if (memv #{ftype\ 1805}# (quote (begin)))
3769 (values
3770 'begin-form
3771 #f
3772 #{e\ 1773}#
3773 #{w\ 1775}#
3774 #{s\ 1776}#
3775 #{mod\ 1778}#)
3776 (if (memv #{ftype\ 1805}#
3777 '(eval-when))
3778 (values
3779 'eval-when-form
3780 #f
3781 #{e\ 1773}#
3782 #{w\ 1775}#
3783 #{s\ 1776}#
3784 #{mod\ 1778}#)
3785 (if (memv #{ftype\ 1805}#
3786 '(define))
3787 ((lambda (#{tmp\ 1837}#)
3788 ((lambda (#{tmp\ 1838}#)
3789 (if (if #{tmp\ 1838}#
3790 (apply (lambda (#{_\ 1842}#
3791 #{name\ 1843}#
3792 #{val\ 1844}#)
3793 (#{id?\ 372}#
3794 #{name\ 1843}#))
3795 #{tmp\ 1838}#)
3796 #f)
3797 (apply (lambda (#{_\ 1848}#
3798 #{name\ 1849}#
3799 #{val\ 1850}#)
3800 (values
3801 'define-form
3802 #{name\ 1849}#
3803 #{val\ 1850}#
3804 #{w\ 1775}#
3805 #{s\ 1776}#
3806 #{mod\ 1778}#))
3807 #{tmp\ 1838}#)
3808 ((lambda (#{tmp\ 1851}#)
3809 (if (if #{tmp\ 1851}#
3810 (apply (lambda (#{_\ 1857}#
3811 #{name\ 1858}#
3812 #{args\ 1859}#
3813 #{e1\ 1860}#
3814 #{e2\ 1861}#)
3815 (if (#{id?\ 372}#
3816 #{name\ 1858}#)
3817 (#{valid-bound-ids?\ 435}#
3818 (#{lambda-var-list\ 487}#
3819 #{args\ 1859}#))
3820 #f))
3821 #{tmp\ 1851}#)
3822 #f)
3823 (apply (lambda (#{_\ 1869}#
3824 #{name\ 1870}#
3825 #{args\ 1871}#
3826 #{e1\ 1872}#
3827 #{e2\ 1873}#)
3828 (values
3829 'define-form
3830 (#{wrap\ 441}#
3831 #{name\ 1870}#
3832 #{w\ 1775}#
3833 #{mod\ 1778}#)
3834 (#{decorate-source\ 290}#
3835 (cons '#(syntax-object
3836 lambda
3837 ((top)
3838 #(ribcage
3839 #(_
3840 name
3841 args
3842 e1
3843 e2)
3844 #((top)
3845 (top)
3846 (top)
3847 (top)
3848 (top))
3849 #("i1864"
3850 "i1865"
3851 "i1866"
3852 "i1867"
3853 "i1868"))
3854 #(ribcage
3855 ()
3856 ()
3857 ())
3858 #(ribcage
3859 ()
3860 ()
3861 ())
3862 #(ribcage
3863 #(ftype
3864 fval
3865 fe
3866 fw
3867 fs
3868 fmod)
3869 #((top)
3870 (top)
3871 (top)
3872 (top)
3873 (top)
3874 (top))
3875 #("i1811"
3876 "i1812"
3877 "i1813"
3878 "i1814"
3879 "i1815"
3880 "i1816"))
3881 #(ribcage
3882 ()
3883 ()
3884 ())
3885 #(ribcage
3886 #(first)
3887 #((top))
3888 #("i1803"))
3889 #(ribcage
3890 ()
3891 ()
3892 ())
3893 #(ribcage
3894 ()
3895 ()
3896 ())
3897 #(ribcage
3898 ()
3899 ()
3900 ())
3901 #(ribcage
3902 #(e
3903 r
3904 w
3905 s
3906 rib
3907 mod
3908 for-car?)
3909 #((top)
3910 (top)
3911 (top)
3912 (top)
3913 (top)
3914 (top)
3915 (top))
3916 #("i1780"
3917 "i1781"
3918 "i1782"
3919 "i1783"
3920 "i1784"
3921 "i1785"
3922 "i1786"))
3923 #(ribcage
3924 (lambda-var-list
3925 gen-var
3926 strip
3927 chi-lambda-case
3928 lambda*-formals
3929 chi-simple-lambda
3930 lambda-formals
3931 ellipsis?
3932 chi-void
3933 eval-local-transformer
3934 chi-local-syntax
3935 chi-body
3936 chi-macro
3937 chi-application
3938 chi-expr
3939 chi
3940 chi-top
3941 syntax-type
3942 chi-when-list
3943 chi-install-global
3944 chi-top-sequence
3945 chi-sequence
3946 source-wrap
3947 wrap
3948 bound-id-member?
3949 distinct-bound-ids?
3950 valid-bound-ids?
3951 bound-id=?
3952 free-id=?
3953 id-var-name
3954 same-marks?
3955 join-marks
3956 join-wraps
3957 smart-append
3958 make-binding-wrap
3959 extend-ribcage!
3960 make-empty-ribcage
3961 new-mark
3962 anti-mark
3963 the-anti-mark
3964 top-marked?
3965 top-wrap
3966 empty-wrap
3967 set-ribcage-labels!
3968 set-ribcage-marks!
3969 set-ribcage-symnames!
3970 ribcage-labels
3971 ribcage-marks
3972 ribcage-symnames
3973 ribcage?
3974 make-ribcage
3975 gen-labels
3976 gen-label
3977 make-rename
3978 rename-marks
3979 rename-new
3980 rename-old
3981 subst-rename?
3982 wrap-subst
3983 wrap-marks
3984 make-wrap
3985 id-sym-name&marks
3986 id-sym-name
3987 id?
3988 nonsymbol-id?
3989 global-extend
3990 lookup
3991 macros-only-env
3992 extend-var-env
3993 extend-env
3994 null-env
3995 binding-value
3996 binding-type
3997 make-binding
3998 arg-check
3999 source-annotation
4000 no-source
4001 set-syntax-object-module!
4002 set-syntax-object-wrap!
4003 set-syntax-object-expression!
4004 syntax-object-module
4005 syntax-object-wrap
4006 syntax-object-expression
4007 syntax-object?
4008 make-syntax-object
4009 build-lexical-var
4010 build-letrec
4011 build-named-let
4012 build-let
4013 build-sequence
4014 build-data
4015 build-primref
4016 build-lambda-case
4017 build-case-lambda
4018 build-simple-lambda
4019 build-global-definition
4020 maybe-name-value!
4021 build-global-assignment
4022 build-global-reference
4023 analyze-variable
4024 build-lexical-assignment
4025 build-lexical-reference
4026 build-dynlet
4027 build-conditional
4028 build-application
4029 build-void
4030 decorate-source
4031 get-global-definition-hook
4032 put-global-definition-hook
4033 gensym-hook
4034 local-eval-hook
4035 top-level-eval-hook
4036 fx<
4037 fx=
4038 fx-
4039 fx+
4040 set-lambda-meta!
4041 lambda-meta
4042 lambda?
4043 make-dynlet
4044 make-letrec
4045 make-let
4046 make-lambda-case
4047 make-lambda
4048 make-sequence
4049 make-application
4050 make-conditional
4051 make-toplevel-define
4052 make-toplevel-set
4053 make-toplevel-ref
4054 make-module-set
4055 make-module-ref
4056 make-lexical-set
4057 make-lexical-ref
4058 make-primitive-ref
4059 make-const
4060 make-void)
4061 ((top)
4062 (top)
4063 (top)
4064 (top)
4065 (top)
4066 (top)
4067 (top)
4068 (top)
4069 (top)
4070 (top)
4071 (top)
4072 (top)
4073 (top)
4074 (top)
4075 (top)
4076 (top)
4077 (top)
4078 (top)
4079 (top)
4080 (top)
4081 (top)
4082 (top)
4083 (top)
4084 (top)
4085 (top)
4086 (top)
4087 (top)
4088 (top)
4089 (top)
4090 (top)
4091 (top)
4092 (top)
4093 (top)
4094 (top)
4095 (top)
4096 (top)
4097 (top)
4098 (top)
4099 (top)
4100 (top)
4101 (top)
4102 (top)
4103 (top)
4104 (top)
4105 (top)
4106 (top)
4107 (top)
4108 (top)
4109 (top)
4110 (top)
4111 (top)
4112 (top)
4113 (top)
4114 (top)
4115 (top)
4116 (top)
4117 (top)
4118 (top)
4119 (top)
4120 (top)
4121 (top)
4122 (top)
4123 (top)
4124 (top)
4125 (top)
4126 (top)
4127 (top)
4128 (top)
4129 (top)
4130 (top)
4131 (top)
4132 (top)
4133 (top)
4134 (top)
4135 (top)
4136 (top)
4137 (top)
4138 (top)
4139 (top)
4140 (top)
4141 (top)
4142 (top)
4143 (top)
4144 (top)
4145 (top)
4146 (top)
4147 (top)
4148 (top)
4149 (top)
4150 (top)
4151 (top)
4152 (top)
4153 (top)
4154 (top)
4155 (top)
4156 (top)
4157 (top)
4158 (top)
4159 (top)
4160 (top)
4161 (top)
4162 (top)
4163 (top)
4164 (top)
4165 (top)
4166 (top)
4167 (top)
4168 (top)
4169 (top)
4170 (top)
4171 (top)
4172 (top)
4173 (top)
4174 (top)
4175 (top)
4176 (top)
4177 (top)
4178 (top)
4179 (top)
4180 (top)
4181 (top)
4182 (top)
4183 (top)
4184 (top)
4185 (top)
4186 (top)
4187 (top)
4188 (top)
4189 (top)
4190 (top)
4191 (top)
4192 (top)
4193 (top)
4194 (top)
4195 (top)
4196 (top)
4197 (top))
4198 ("i486"
4199 "i484"
4200 "i482"
4201 "i480"
4202 "i478"
4203 "i476"
4204 "i474"
4205 "i472"
4206 "i470"
4207 "i468"
4208 "i466"
4209 "i464"
4210 "i462"
4211 "i460"
4212 "i458"
4213 "i456"
4214 "i454"
4215 "i452"
4216 "i450"
4217 "i448"
4218 "i446"
4219 "i444"
4220 "i442"
4221 "i440"
4222 "i438"
4223 "i436"
4224 "i434"
4225 "i432"
4226 "i430"
4227 "i428"
4228 "i426"
4229 "i424"
4230 "i422"
4231 "i420"
4232 "i418"
4233 "i416"
4234 "i415"
4235 "i414"
4236 "i412"
4237 "i411"
4238 "i410"
4239 "i409"
4240 "i408"
4241 "i406"
4242 "i404"
4243 "i402"
4244 "i400"
4245 "i398"
4246 "i396"
4247 "i394"
4248 "i392"
4249 "i389"
4250 "i387"
4251 "i386"
4252 "i385"
4253 "i384"
4254 "i383"
4255 "i382"
4256 "i380"
4257 "i378"
4258 "i376"
4259 "i374"
4260 "i373"
4261 "i371"
4262 "i369"
4263 "i367"
4264 "i365"
4265 "i363"
4266 "i361"
4267 "i359"
4268 "i358"
4269 "i356"
4270 "i354"
4271 "i353"
4272 "i352"
4273 "i350"
4274 "i349"
4275 "i347"
4276 "i345"
4277 "i343"
4278 "i341"
4279 "i339"
4280 "i337"
4281 "i335"
4282 "i333"
4283 "i331"
4284 "i329"
4285 "i327"
4286 "i325"
4287 "i323"
4288 "i321"
4289 "i319"
4290 "i317"
4291 "i315"
4292 "i313"
4293 "i311"
4294 "i309"
4295 "i307"
4296 "i305"
4297 "i303"
4298 "i301"
4299 "i299"
4300 "i297"
4301 "i295"
4302 "i293"
4303 "i291"
4304 "i289"
4305 "i287"
4306 "i285"
4307 "i284"
4308 "i282"
4309 "i280"
4310 "i278"
4311 "i276"
4312 "i274"
4313 "i272"
4314 "i270"
4315 "i268"
4316 "i266"
4317 "i263"
4318 "i261"
4319 "i259"
4320 "i257"
4321 "i255"
4322 "i253"
4323 "i251"
4324 "i249"
4325 "i247"
4326 "i245"
4327 "i243"
4328 "i241"
4329 "i239"
4330 "i237"
4331 "i235"
4332 "i233"
4333 "i231"
4334 "i229"))
4335 #(ribcage
4336 (define-structure
4337 define-expansion-accessors
4338 define-expansion-constructors
4339 and-map*)
4340 ((top)
4341 (top)
4342 (top)
4343 (top))
4344 ("i23"
4345 "i22"
4346 "i21"
4347 "i19")))
4348 (hygiene
4349 guile))
4350 (#{wrap\ 441}#
4351 (cons #{args\ 1871}#
4352 (cons #{e1\ 1872}#
4353 #{e2\ 1873}#))
4354 #{w\ 1775}#
4355 #{mod\ 1778}#))
4356 #{s\ 1776}#)
4357 '(())
4358 #{s\ 1776}#
4359 #{mod\ 1778}#))
4360 #{tmp\ 1851}#)
4361 ((lambda (#{tmp\ 1876}#)
4362 (if (if #{tmp\ 1876}#
4363 (apply (lambda (#{_\ 1879}#
4364 #{name\ 1880}#)
4365 (#{id?\ 372}#
4366 #{name\ 1880}#))
4367 #{tmp\ 1876}#)
4368 #f)
4369 (apply (lambda (#{_\ 1883}#
4370 #{name\ 1884}#)
4371 (values
4372 'define-form
4373 (#{wrap\ 441}#
4374 #{name\ 1884}#
4375 #{w\ 1775}#
4376 #{mod\ 1778}#)
4377 '(#(syntax-object
4378 if
4379 ((top)
4380 #(ribcage
4381 #(_
4382 name)
4383 #((top)
4384 (top))
4385 #("i1881"
4386 "i1882"))
4387 #(ribcage
4388 ()
4389 ()
4390 ())
4391 #(ribcage
4392 ()
4393 ()
4394 ())
4395 #(ribcage
4396 #(ftype
4397 fval
4398 fe
4399 fw
4400 fs
4401 fmod)
4402 #((top)
4403 (top)
4404 (top)
4405 (top)
4406 (top)
4407 (top))
4408 #("i1811"
4409 "i1812"
4410 "i1813"
4411 "i1814"
4412 "i1815"
4413 "i1816"))
4414 #(ribcage
4415 ()
4416 ()
4417 ())
4418 #(ribcage
4419 #(first)
4420 #((top))
4421 #("i1803"))
4422 #(ribcage
4423 ()
4424 ()
4425 ())
4426 #(ribcage
4427 ()
4428 ()
4429 ())
4430 #(ribcage
4431 ()
4432 ()
4433 ())
4434 #(ribcage
4435 #(e
4436 r
4437 w
4438 s
4439 rib
4440 mod
4441 for-car?)
4442 #((top)
4443 (top)
4444 (top)
4445 (top)
4446 (top)
4447 (top)
4448 (top))
4449 #("i1780"
4450 "i1781"
4451 "i1782"
4452 "i1783"
4453 "i1784"
4454 "i1785"
4455 "i1786"))
4456 #(ribcage
4457 (lambda-var-list
4458 gen-var
4459 strip
4460 chi-lambda-case
4461 lambda*-formals
4462 chi-simple-lambda
4463 lambda-formals
4464 ellipsis?
4465 chi-void
4466 eval-local-transformer
4467 chi-local-syntax
4468 chi-body
4469 chi-macro
4470 chi-application
4471 chi-expr
4472 chi
4473 chi-top
4474 syntax-type
4475 chi-when-list
4476 chi-install-global
4477 chi-top-sequence
4478 chi-sequence
4479 source-wrap
4480 wrap
4481 bound-id-member?
4482 distinct-bound-ids?
4483 valid-bound-ids?
4484 bound-id=?
4485 free-id=?
4486 id-var-name
4487 same-marks?
4488 join-marks
4489 join-wraps
4490 smart-append
4491 make-binding-wrap
4492 extend-ribcage!
4493 make-empty-ribcage
4494 new-mark
4495 anti-mark
4496 the-anti-mark
4497 top-marked?
4498 top-wrap
4499 empty-wrap
4500 set-ribcage-labels!
4501 set-ribcage-marks!
4502 set-ribcage-symnames!
4503 ribcage-labels
4504 ribcage-marks
4505 ribcage-symnames
4506 ribcage?
4507 make-ribcage
4508 gen-labels
4509 gen-label
4510 make-rename
4511 rename-marks
4512 rename-new
4513 rename-old
4514 subst-rename?
4515 wrap-subst
4516 wrap-marks
4517 make-wrap
4518 id-sym-name&marks
4519 id-sym-name
4520 id?
4521 nonsymbol-id?
4522 global-extend
4523 lookup
4524 macros-only-env
4525 extend-var-env
4526 extend-env
4527 null-env
4528 binding-value
4529 binding-type
4530 make-binding
4531 arg-check
4532 source-annotation
4533 no-source
4534 set-syntax-object-module!
4535 set-syntax-object-wrap!
4536 set-syntax-object-expression!
4537 syntax-object-module
4538 syntax-object-wrap
4539 syntax-object-expression
4540 syntax-object?
4541 make-syntax-object
4542 build-lexical-var
4543 build-letrec
4544 build-named-let
4545 build-let
4546 build-sequence
4547 build-data
4548 build-primref
4549 build-lambda-case
4550 build-case-lambda
4551 build-simple-lambda
4552 build-global-definition
4553 maybe-name-value!
4554 build-global-assignment
4555 build-global-reference
4556 analyze-variable
4557 build-lexical-assignment
4558 build-lexical-reference
4559 build-dynlet
4560 build-conditional
4561 build-application
4562 build-void
4563 decorate-source
4564 get-global-definition-hook
4565 put-global-definition-hook
4566 gensym-hook
4567 local-eval-hook
4568 top-level-eval-hook
4569 fx<
4570 fx=
4571 fx-
4572 fx+
4573 set-lambda-meta!
4574 lambda-meta
4575 lambda?
4576 make-dynlet
4577 make-letrec
4578 make-let
4579 make-lambda-case
4580 make-lambda
4581 make-sequence
4582 make-application
4583 make-conditional
4584 make-toplevel-define
4585 make-toplevel-set
4586 make-toplevel-ref
4587 make-module-set
4588 make-module-ref
4589 make-lexical-set
4590 make-lexical-ref
4591 make-primitive-ref
4592 make-const
4593 make-void)
4594 ((top)
4595 (top)
4596 (top)
4597 (top)
4598 (top)
4599 (top)
4600 (top)
4601 (top)
4602 (top)
4603 (top)
4604 (top)
4605 (top)
4606 (top)
4607 (top)
4608 (top)
4609 (top)
4610 (top)
4611 (top)
4612 (top)
4613 (top)
4614 (top)
4615 (top)
4616 (top)
4617 (top)
4618 (top)
4619 (top)
4620 (top)
4621 (top)
4622 (top)
4623 (top)
4624 (top)
4625 (top)
4626 (top)
4627 (top)
4628 (top)
4629 (top)
4630 (top)
4631 (top)
4632 (top)
4633 (top)
4634 (top)
4635 (top)
4636 (top)
4637 (top)
4638 (top)
4639 (top)
4640 (top)
4641 (top)
4642 (top)
4643 (top)
4644 (top)
4645 (top)
4646 (top)
4647 (top)
4648 (top)
4649 (top)
4650 (top)
4651 (top)
4652 (top)
4653 (top)
4654 (top)
4655 (top)
4656 (top)
4657 (top)
4658 (top)
4659 (top)
4660 (top)
4661 (top)
4662 (top)
4663 (top)
4664 (top)
4665 (top)
4666 (top)
4667 (top)
4668 (top)
4669 (top)
4670 (top)
4671 (top)
4672 (top)
4673 (top)
4674 (top)
4675 (top)
4676 (top)
4677 (top)
4678 (top)
4679 (top)
4680 (top)
4681 (top)
4682 (top)
4683 (top)
4684 (top)
4685 (top)
4686 (top)
4687 (top)
4688 (top)
4689 (top)
4690 (top)
4691 (top)
4692 (top)
4693 (top)
4694 (top)
4695 (top)
4696 (top)
4697 (top)
4698 (top)
4699 (top)
4700 (top)
4701 (top)
4702 (top)
4703 (top)
4704 (top)
4705 (top)
4706 (top)
4707 (top)
4708 (top)
4709 (top)
4710 (top)
4711 (top)
4712 (top)
4713 (top)
4714 (top)
4715 (top)
4716 (top)
4717 (top)
4718 (top)
4719 (top)
4720 (top)
4721 (top)
4722 (top)
4723 (top)
4724 (top)
4725 (top)
4726 (top)
4727 (top)
4728 (top)
4729 (top)
4730 (top))
4731 ("i486"
4732 "i484"
4733 "i482"
4734 "i480"
4735 "i478"
4736 "i476"
4737 "i474"
4738 "i472"
4739 "i470"
4740 "i468"
4741 "i466"
4742 "i464"
4743 "i462"
4744 "i460"
4745 "i458"
4746 "i456"
4747 "i454"
4748 "i452"
4749 "i450"
4750 "i448"
4751 "i446"
4752 "i444"
4753 "i442"
4754 "i440"
4755 "i438"
4756 "i436"
4757 "i434"
4758 "i432"
4759 "i430"
4760 "i428"
4761 "i426"
4762 "i424"
4763 "i422"
4764 "i420"
4765 "i418"
4766 "i416"
4767 "i415"
4768 "i414"
4769 "i412"
4770 "i411"
4771 "i410"
4772 "i409"
4773 "i408"
4774 "i406"
4775 "i404"
4776 "i402"
4777 "i400"
4778 "i398"
4779 "i396"
4780 "i394"
4781 "i392"
4782 "i389"
4783 "i387"
4784 "i386"
4785 "i385"
4786 "i384"
4787 "i383"
4788 "i382"
4789 "i380"
4790 "i378"
4791 "i376"
4792 "i374"
4793 "i373"
4794 "i371"
4795 "i369"
4796 "i367"
4797 "i365"
4798 "i363"
4799 "i361"
4800 "i359"
4801 "i358"
4802 "i356"
4803 "i354"
4804 "i353"
4805 "i352"
4806 "i350"
4807 "i349"
4808 "i347"
4809 "i345"
4810 "i343"
4811 "i341"
4812 "i339"
4813 "i337"
4814 "i335"
4815 "i333"
4816 "i331"
4817 "i329"
4818 "i327"
4819 "i325"
4820 "i323"
4821 "i321"
4822 "i319"
4823 "i317"
4824 "i315"
4825 "i313"
4826 "i311"
4827 "i309"
4828 "i307"
4829 "i305"
4830 "i303"
4831 "i301"
4832 "i299"
4833 "i297"
4834 "i295"
4835 "i293"
4836 "i291"
4837 "i289"
4838 "i287"
4839 "i285"
4840 "i284"
4841 "i282"
4842 "i280"
4843 "i278"
4844 "i276"
4845 "i274"
4846 "i272"
4847 "i270"
4848 "i268"
4849 "i266"
4850 "i263"
4851 "i261"
4852 "i259"
4853 "i257"
4854 "i255"
4855 "i253"
4856 "i251"
4857 "i249"
4858 "i247"
4859 "i245"
4860 "i243"
4861 "i241"
4862 "i239"
4863 "i237"
4864 "i235"
4865 "i233"
4866 "i231"
4867 "i229"))
4868 #(ribcage
4869 (define-structure
4870 define-expansion-accessors
4871 define-expansion-constructors
4872 and-map*)
4873 ((top)
4874 (top)
4875 (top)
4876 (top))
4877 ("i23"
4878 "i22"
4879 "i21"
4880 "i19")))
4881 (hygiene
4882 guile))
4883 #(syntax-object
4884 #f
4885 ((top)
4886 #(ribcage
4887 #(_
4888 name)
4889 #((top)
4890 (top))
4891 #("i1881"
4892 "i1882"))
4893 #(ribcage
4894 ()
4895 ()
4896 ())
4897 #(ribcage
4898 ()
4899 ()
4900 ())
4901 #(ribcage
4902 #(ftype
4903 fval
4904 fe
4905 fw
4906 fs
4907 fmod)
4908 #((top)
4909 (top)
4910 (top)
4911 (top)
4912 (top)
4913 (top))
4914 #("i1811"
4915 "i1812"
4916 "i1813"
4917 "i1814"
4918 "i1815"
4919 "i1816"))
4920 #(ribcage
4921 ()
4922 ()
4923 ())
4924 #(ribcage
4925 #(first)
4926 #((top))
4927 #("i1803"))
4928 #(ribcage
4929 ()
4930 ()
4931 ())
4932 #(ribcage
4933 ()
4934 ()
4935 ())
4936 #(ribcage
4937 ()
4938 ()
4939 ())
4940 #(ribcage
4941 #(e
4942 r
4943 w
4944 s
4945 rib
4946 mod
4947 for-car?)
4948 #((top)
4949 (top)
4950 (top)
4951 (top)
4952 (top)
4953 (top)
4954 (top))
4955 #("i1780"
4956 "i1781"
4957 "i1782"
4958 "i1783"
4959 "i1784"
4960 "i1785"
4961 "i1786"))
4962 #(ribcage
4963 (lambda-var-list
4964 gen-var
4965 strip
4966 chi-lambda-case
4967 lambda*-formals
4968 chi-simple-lambda
4969 lambda-formals
4970 ellipsis?
4971 chi-void
4972 eval-local-transformer
4973 chi-local-syntax
4974 chi-body
4975 chi-macro
4976 chi-application
4977 chi-expr
4978 chi
4979 chi-top
4980 syntax-type
4981 chi-when-list
4982 chi-install-global
4983 chi-top-sequence
4984 chi-sequence
4985 source-wrap
4986 wrap
4987 bound-id-member?
4988 distinct-bound-ids?
4989 valid-bound-ids?
4990 bound-id=?
4991 free-id=?
4992 id-var-name
4993 same-marks?
4994 join-marks
4995 join-wraps
4996 smart-append
4997 make-binding-wrap
4998 extend-ribcage!
4999 make-empty-ribcage
5000 new-mark
5001 anti-mark
5002 the-anti-mark
5003 top-marked?
5004 top-wrap
5005 empty-wrap
5006 set-ribcage-labels!
5007 set-ribcage-marks!
5008 set-ribcage-symnames!
5009 ribcage-labels
5010 ribcage-marks
5011 ribcage-symnames
5012 ribcage?
5013 make-ribcage
5014 gen-labels
5015 gen-label
5016 make-rename
5017 rename-marks
5018 rename-new
5019 rename-old
5020 subst-rename?
5021 wrap-subst
5022 wrap-marks
5023 make-wrap
5024 id-sym-name&marks
5025 id-sym-name
5026 id?
5027 nonsymbol-id?
5028 global-extend
5029 lookup
5030 macros-only-env
5031 extend-var-env
5032 extend-env
5033 null-env
5034 binding-value
5035 binding-type
5036 make-binding
5037 arg-check
5038 source-annotation
5039 no-source
5040 set-syntax-object-module!
5041 set-syntax-object-wrap!
5042 set-syntax-object-expression!
5043 syntax-object-module
5044 syntax-object-wrap
5045 syntax-object-expression
5046 syntax-object?
5047 make-syntax-object
5048 build-lexical-var
5049 build-letrec
5050 build-named-let
5051 build-let
5052 build-sequence
5053 build-data
5054 build-primref
5055 build-lambda-case
5056 build-case-lambda
5057 build-simple-lambda
5058 build-global-definition
5059 maybe-name-value!
5060 build-global-assignment
5061 build-global-reference
5062 analyze-variable
5063 build-lexical-assignment
5064 build-lexical-reference
5065 build-dynlet
5066 build-conditional
5067 build-application
5068 build-void
5069 decorate-source
5070 get-global-definition-hook
5071 put-global-definition-hook
5072 gensym-hook
5073 local-eval-hook
5074 top-level-eval-hook
5075 fx<
5076 fx=
5077 fx-
5078 fx+
5079 set-lambda-meta!
5080 lambda-meta
5081 lambda?
5082 make-dynlet
5083 make-letrec
5084 make-let
5085 make-lambda-case
5086 make-lambda
5087 make-sequence
5088 make-application
5089 make-conditional
5090 make-toplevel-define
5091 make-toplevel-set
5092 make-toplevel-ref
5093 make-module-set
5094 make-module-ref
5095 make-lexical-set
5096 make-lexical-ref
5097 make-primitive-ref
5098 make-const
5099 make-void)
5100 ((top)
5101 (top)
5102 (top)
5103 (top)
5104 (top)
5105 (top)
5106 (top)
5107 (top)
5108 (top)
5109 (top)
5110 (top)
5111 (top)
5112 (top)
5113 (top)
5114 (top)
5115 (top)
5116 (top)
5117 (top)
5118 (top)
5119 (top)
5120 (top)
5121 (top)
5122 (top)
5123 (top)
5124 (top)
5125 (top)
5126 (top)
5127 (top)
5128 (top)
5129 (top)
5130 (top)
5131 (top)
5132 (top)
5133 (top)
5134 (top)
5135 (top)
5136 (top)
5137 (top)
5138 (top)
5139 (top)
5140 (top)
5141 (top)
5142 (top)
5143 (top)
5144 (top)
5145 (top)
5146 (top)
5147 (top)
5148 (top)
5149 (top)
5150 (top)
5151 (top)
5152 (top)
5153 (top)
5154 (top)
5155 (top)
5156 (top)
5157 (top)
5158 (top)
5159 (top)
5160 (top)
5161 (top)
5162 (top)
5163 (top)
5164 (top)
5165 (top)
5166 (top)
5167 (top)
5168 (top)
5169 (top)
5170 (top)
5171 (top)
5172 (top)
5173 (top)
5174 (top)
5175 (top)
5176 (top)
5177 (top)
5178 (top)
5179 (top)
5180 (top)
5181 (top)
5182 (top)
5183 (top)
5184 (top)
5185 (top)
5186 (top)
5187 (top)
5188 (top)
5189 (top)
5190 (top)
5191 (top)
5192 (top)
5193 (top)
5194 (top)
5195 (top)
5196 (top)
5197 (top)
5198 (top)
5199 (top)
5200 (top)
5201 (top)
5202 (top)
5203 (top)
5204 (top)
5205 (top)
5206 (top)
5207 (top)
5208 (top)
5209 (top)
5210 (top)
5211 (top)
5212 (top)
5213 (top)
5214 (top)
5215 (top)
5216 (top)
5217 (top)
5218 (top)
5219 (top)
5220 (top)
5221 (top)
5222 (top)
5223 (top)
5224 (top)
5225 (top)
5226 (top)
5227 (top)
5228 (top)
5229 (top)
5230 (top)
5231 (top)
5232 (top)
5233 (top)
5234 (top)
5235 (top)
5236 (top))
5237 ("i486"
5238 "i484"
5239 "i482"
5240 "i480"
5241 "i478"
5242 "i476"
5243 "i474"
5244 "i472"
5245 "i470"
5246 "i468"
5247 "i466"
5248 "i464"
5249 "i462"
5250 "i460"
5251 "i458"
5252 "i456"
5253 "i454"
5254 "i452"
5255 "i450"
5256 "i448"
5257 "i446"
5258 "i444"
5259 "i442"
5260 "i440"
5261 "i438"
5262 "i436"
5263 "i434"
5264 "i432"
5265 "i430"
5266 "i428"
5267 "i426"
5268 "i424"
5269 "i422"
5270 "i420"
5271 "i418"
5272 "i416"
5273 "i415"
5274 "i414"
5275 "i412"
5276 "i411"
5277 "i410"
5278 "i409"
5279 "i408"
5280 "i406"
5281 "i404"
5282 "i402"
5283 "i400"
5284 "i398"
5285 "i396"
5286 "i394"
5287 "i392"
5288 "i389"
5289 "i387"
5290 "i386"
5291 "i385"
5292 "i384"
5293 "i383"
5294 "i382"
5295 "i380"
5296 "i378"
5297 "i376"
5298 "i374"
5299 "i373"
5300 "i371"
5301 "i369"
5302 "i367"
5303 "i365"
5304 "i363"
5305 "i361"
5306 "i359"
5307 "i358"
5308 "i356"
5309 "i354"
5310 "i353"
5311 "i352"
5312 "i350"
5313 "i349"
5314 "i347"
5315 "i345"
5316 "i343"
5317 "i341"
5318 "i339"
5319 "i337"
5320 "i335"
5321 "i333"
5322 "i331"
5323 "i329"
5324 "i327"
5325 "i325"
5326 "i323"
5327 "i321"
5328 "i319"
5329 "i317"
5330 "i315"
5331 "i313"
5332 "i311"
5333 "i309"
5334 "i307"
5335 "i305"
5336 "i303"
5337 "i301"
5338 "i299"
5339 "i297"
5340 "i295"
5341 "i293"
5342 "i291"
5343 "i289"
5344 "i287"
5345 "i285"
5346 "i284"
5347 "i282"
5348 "i280"
5349 "i278"
5350 "i276"
5351 "i274"
5352 "i272"
5353 "i270"
5354 "i268"
5355 "i266"
5356 "i263"
5357 "i261"
5358 "i259"
5359 "i257"
5360 "i255"
5361 "i253"
5362 "i251"
5363 "i249"
5364 "i247"
5365 "i245"
5366 "i243"
5367 "i241"
5368 "i239"
5369 "i237"
5370 "i235"
5371 "i233"
5372 "i231"
5373 "i229"))
5374 #(ribcage
5375 (define-structure
5376 define-expansion-accessors
5377 define-expansion-constructors
5378 and-map*)
5379 ((top)
5380 (top)
5381 (top)
5382 (top))
5383 ("i23"
5384 "i22"
5385 "i21"
5386 "i19")))
5387 (hygiene
5388 guile))
5389 #(syntax-object
5390 #f
5391 ((top)
5392 #(ribcage
5393 #(_
5394 name)
5395 #((top)
5396 (top))
5397 #("i1881"
5398 "i1882"))
5399 #(ribcage
5400 ()
5401 ()
5402 ())
5403 #(ribcage
5404 ()
5405 ()
5406 ())
5407 #(ribcage
5408 #(ftype
5409 fval
5410 fe
5411 fw
5412 fs
5413 fmod)
5414 #((top)
5415 (top)
5416 (top)
5417 (top)
5418 (top)
5419 (top))
5420 #("i1811"
5421 "i1812"
5422 "i1813"
5423 "i1814"
5424 "i1815"
5425 "i1816"))
5426 #(ribcage
5427 ()
5428 ()
5429 ())
5430 #(ribcage
5431 #(first)
5432 #((top))
5433 #("i1803"))
5434 #(ribcage
5435 ()
5436 ()
5437 ())
5438 #(ribcage
5439 ()
5440 ()
5441 ())
5442 #(ribcage
5443 ()
5444 ()
5445 ())
5446 #(ribcage
5447 #(e
5448 r
5449 w
5450 s
5451 rib
5452 mod
5453 for-car?)
5454 #((top)
5455 (top)
5456 (top)
5457 (top)
5458 (top)
5459 (top)
5460 (top))
5461 #("i1780"
5462 "i1781"
5463 "i1782"
5464 "i1783"
5465 "i1784"
5466 "i1785"
5467 "i1786"))
5468 #(ribcage
5469 (lambda-var-list
5470 gen-var
5471 strip
5472 chi-lambda-case
5473 lambda*-formals
5474 chi-simple-lambda
5475 lambda-formals
5476 ellipsis?
5477 chi-void
5478 eval-local-transformer
5479 chi-local-syntax
5480 chi-body
5481 chi-macro
5482 chi-application
5483 chi-expr
5484 chi
5485 chi-top
5486 syntax-type
5487 chi-when-list
5488 chi-install-global
5489 chi-top-sequence
5490 chi-sequence
5491 source-wrap
5492 wrap
5493 bound-id-member?
5494 distinct-bound-ids?
5495 valid-bound-ids?
5496 bound-id=?
5497 free-id=?
5498 id-var-name
5499 same-marks?
5500 join-marks
5501 join-wraps
5502 smart-append
5503 make-binding-wrap
5504 extend-ribcage!
5505 make-empty-ribcage
5506 new-mark
5507 anti-mark
5508 the-anti-mark
5509 top-marked?
5510 top-wrap
5511 empty-wrap
5512 set-ribcage-labels!
5513 set-ribcage-marks!
5514 set-ribcage-symnames!
5515 ribcage-labels
5516 ribcage-marks
5517 ribcage-symnames
5518 ribcage?
5519 make-ribcage
5520 gen-labels
5521 gen-label
5522 make-rename
5523 rename-marks
5524 rename-new
5525 rename-old
5526 subst-rename?
5527 wrap-subst
5528 wrap-marks
5529 make-wrap
5530 id-sym-name&marks
5531 id-sym-name
5532 id?
5533 nonsymbol-id?
5534 global-extend
5535 lookup
5536 macros-only-env
5537 extend-var-env
5538 extend-env
5539 null-env
5540 binding-value
5541 binding-type
5542 make-binding
5543 arg-check
5544 source-annotation
5545 no-source
5546 set-syntax-object-module!
5547 set-syntax-object-wrap!
5548 set-syntax-object-expression!
5549 syntax-object-module
5550 syntax-object-wrap
5551 syntax-object-expression
5552 syntax-object?
5553 make-syntax-object
5554 build-lexical-var
5555 build-letrec
5556 build-named-let
5557 build-let
5558 build-sequence
5559 build-data
5560 build-primref
5561 build-lambda-case
5562 build-case-lambda
5563 build-simple-lambda
5564 build-global-definition
5565 maybe-name-value!
5566 build-global-assignment
5567 build-global-reference
5568 analyze-variable
5569 build-lexical-assignment
5570 build-lexical-reference
5571 build-dynlet
5572 build-conditional
5573 build-application
5574 build-void
5575 decorate-source
5576 get-global-definition-hook
5577 put-global-definition-hook
5578 gensym-hook
5579 local-eval-hook
5580 top-level-eval-hook
5581 fx<
5582 fx=
5583 fx-
5584 fx+
5585 set-lambda-meta!
5586 lambda-meta
5587 lambda?
5588 make-dynlet
5589 make-letrec
5590 make-let
5591 make-lambda-case
5592 make-lambda
5593 make-sequence
5594 make-application
5595 make-conditional
5596 make-toplevel-define
5597 make-toplevel-set
5598 make-toplevel-ref
5599 make-module-set
5600 make-module-ref
5601 make-lexical-set
5602 make-lexical-ref
5603 make-primitive-ref
5604 make-const
5605 make-void)
5606 ((top)
5607 (top)
5608 (top)
5609 (top)
5610 (top)
5611 (top)
5612 (top)
5613 (top)
5614 (top)
5615 (top)
5616 (top)
5617 (top)
5618 (top)
5619 (top)
5620 (top)
5621 (top)
5622 (top)
5623 (top)
5624 (top)
5625 (top)
5626 (top)
5627 (top)
5628 (top)
5629 (top)
5630 (top)
5631 (top)
5632 (top)
5633 (top)
5634 (top)
5635 (top)
5636 (top)
5637 (top)
5638 (top)
5639 (top)
5640 (top)
5641 (top)
5642 (top)
5643 (top)
5644 (top)
5645 (top)
5646 (top)
5647 (top)
5648 (top)
5649 (top)
5650 (top)
5651 (top)
5652 (top)
5653 (top)
5654 (top)
5655 (top)
5656 (top)
5657 (top)
5658 (top)
5659 (top)
5660 (top)
5661 (top)
5662 (top)
5663 (top)
5664 (top)
5665 (top)
5666 (top)
5667 (top)
5668 (top)
5669 (top)
5670 (top)
5671 (top)
5672 (top)
5673 (top)
5674 (top)
5675 (top)
5676 (top)
5677 (top)
5678 (top)
5679 (top)
5680 (top)
5681 (top)
5682 (top)
5683 (top)
5684 (top)
5685 (top)
5686 (top)
5687 (top)
5688 (top)
5689 (top)
5690 (top)
5691 (top)
5692 (top)
5693 (top)
5694 (top)
5695 (top)
5696 (top)
5697 (top)
5698 (top)
5699 (top)
5700 (top)
5701 (top)
5702 (top)
5703 (top)
5704 (top)
5705 (top)
5706 (top)
5707 (top)
5708 (top)
5709 (top)
5710 (top)
5711 (top)
5712 (top)
5713 (top)
5714 (top)
5715 (top)
5716 (top)
5717 (top)
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 ("i486"
5744 "i484"
5745 "i482"
5746 "i480"
5747 "i478"
5748 "i476"
5749 "i474"
5750 "i472"
5751 "i470"
5752 "i468"
5753 "i466"
5754 "i464"
5755 "i462"
5756 "i460"
5757 "i458"
5758 "i456"
5759 "i454"
5760 "i452"
5761 "i450"
5762 "i448"
5763 "i446"
5764 "i444"
5765 "i442"
5766 "i440"
5767 "i438"
5768 "i436"
5769 "i434"
5770 "i432"
5771 "i430"
5772 "i428"
5773 "i426"
5774 "i424"
5775 "i422"
5776 "i420"
5777 "i418"
5778 "i416"
5779 "i415"
5780 "i414"
5781 "i412"
5782 "i411"
5783 "i410"
5784 "i409"
5785 "i408"
5786 "i406"
5787 "i404"
5788 "i402"
5789 "i400"
5790 "i398"
5791 "i396"
5792 "i394"
5793 "i392"
5794 "i389"
5795 "i387"
5796 "i386"
5797 "i385"
5798 "i384"
5799 "i383"
5800 "i382"
5801 "i380"
5802 "i378"
5803 "i376"
5804 "i374"
5805 "i373"
5806 "i371"
5807 "i369"
5808 "i367"
5809 "i365"
5810 "i363"
5811 "i361"
5812 "i359"
5813 "i358"
5814 "i356"
5815 "i354"
5816 "i353"
5817 "i352"
5818 "i350"
5819 "i349"
5820 "i347"
5821 "i345"
5822 "i343"
5823 "i341"
5824 "i339"
5825 "i337"
5826 "i335"
5827 "i333"
5828 "i331"
5829 "i329"
5830 "i327"
5831 "i325"
5832 "i323"
5833 "i321"
5834 "i319"
5835 "i317"
5836 "i315"
5837 "i313"
5838 "i311"
5839 "i309"
5840 "i307"
5841 "i305"
5842 "i303"
5843 "i301"
5844 "i299"
5845 "i297"
5846 "i295"
5847 "i293"
5848 "i291"
5849 "i289"
5850 "i287"
5851 "i285"
5852 "i284"
5853 "i282"
5854 "i280"
5855 "i278"
5856 "i276"
5857 "i274"
5858 "i272"
5859 "i270"
5860 "i268"
5861 "i266"
5862 "i263"
5863 "i261"
5864 "i259"
5865 "i257"
5866 "i255"
5867 "i253"
5868 "i251"
5869 "i249"
5870 "i247"
5871 "i245"
5872 "i243"
5873 "i241"
5874 "i239"
5875 "i237"
5876 "i235"
5877 "i233"
5878 "i231"
5879 "i229"))
5880 #(ribcage
5881 (define-structure
5882 define-expansion-accessors
5883 define-expansion-constructors
5884 and-map*)
5885 ((top)
5886 (top)
5887 (top)
5888 (top))
5889 ("i23"
5890 "i22"
5891 "i21"
5892 "i19")))
5893 (hygiene
5894 guile)))
5895 '(())
5896 #{s\ 1776}#
5897 #{mod\ 1778}#))
5898 #{tmp\ 1876}#)
5899 (syntax-violation
5900 #f
5901 "source expression failed to match any pattern"
5902 #{tmp\ 1837}#)))
5903 ($sc-dispatch
5904 #{tmp\ 1837}#
5905 '(any any)))))
5906 ($sc-dispatch
5907 #{tmp\ 1837}#
5908 '(any (any . any)
5909 any
5910 .
5911 each-any)))))
5912 ($sc-dispatch
5913 #{tmp\ 1837}#
5914 '(any any any))))
5915 #{e\ 1773}#)
5916 (if (memv #{ftype\ 1805}#
5917 '(define-syntax))
5918 ((lambda (#{tmp\ 1887}#)
5919 ((lambda (#{tmp\ 1888}#)
5920 (if (if #{tmp\ 1888}#
5921 (apply (lambda (#{_\ 1892}#
5922 #{name\ 1893}#
5923 #{val\ 1894}#)
5924 (#{id?\ 372}#
5925 #{name\ 1893}#))
5926 #{tmp\ 1888}#)
5927 #f)
5928 (apply (lambda (#{_\ 1898}#
5929 #{name\ 1899}#
5930 #{val\ 1900}#)
5931 (values
5932 'define-syntax-form
5933 #{name\ 1899}#
5934 #{val\ 1900}#
5935 #{w\ 1775}#
5936 #{s\ 1776}#
5937 #{mod\ 1778}#))
5938 #{tmp\ 1888}#)
5939 (syntax-violation
5940 #f
5941 "source expression failed to match any pattern"
5942 #{tmp\ 1887}#)))
5943 ($sc-dispatch
5944 #{tmp\ 1887}#
5945 '(any any any))))
5946 #{e\ 1773}#)
5947 (values
5948 'call
5949 #f
5950 #{e\ 1773}#
5951 #{w\ 1775}#
5952 #{s\ 1776}#
5953 #{mod\ 1778}#))))))))))))))
5954 (if (#{syntax-object?\ 336}# #{e\ 1773}#)
5955 (#{syntax-type\ 453}#
5956 (#{syntax-object-expression\ 338}# #{e\ 1773}#)
5957 #{r\ 1774}#
5958 (#{join-wraps\ 423}#
5959 #{w\ 1775}#
5960 (#{syntax-object-wrap\ 340}# #{e\ 1773}#))
5961 (let ((#{t\ 1906}#
5962 (#{source-annotation\ 351}# #{e\ 1773}#)))
5963 (if #{t\ 1906}# #{t\ 1906}# #{s\ 1776}#))
5964 #{rib\ 1777}#
5965 (let ((#{t\ 1910}#
5966 (#{syntax-object-module\ 342}# #{e\ 1773}#)))
5967 (if #{t\ 1910}# #{t\ 1910}# #{mod\ 1778}#))
5968 #{for-car?\ 1779}#)
5969 (if (self-evaluating? #{e\ 1773}#)
5970 (values
5971 'constant
5972 #f
5973 #{e\ 1773}#
5974 #{w\ 1775}#
5975 #{s\ 1776}#
5976 #{mod\ 1778}#)
5977 (values
5978 'other
5979 #f
5980 #{e\ 1773}#
5981 #{w\ 1775}#
5982 #{s\ 1776}#
5983 #{mod\ 1778}#)))))))
5984 (#{chi-when-list\ 451}#
5985 (lambda (#{e\ 1915}# #{when-list\ 1916}# #{w\ 1917}#)
5986 (letrec ((#{f\ 1924}#
5987 (lambda (#{when-list\ 1925}# #{situations\ 1926}#)
5988 (if (null? #{when-list\ 1925}#)
5989 #{situations\ 1926}#
5990 (#{f\ 1924}#
5991 (cdr #{when-list\ 1925}#)
5992 (cons (let ((#{x\ 1928}#
5993 (car #{when-list\ 1925}#)))
5994 (if (#{free-id=?\ 431}#
5995 #{x\ 1928}#
5996 '#(syntax-object
5997 compile
5998 ((top)
5999 #(ribcage () () ())
6000 #(ribcage () () ())
6001 #(ribcage () () ())
6002 #(ribcage
6003 #(x)
6004 #((top))
6005 #("i1927"))
6006 #(ribcage () () ())
6007 #(ribcage
6008 #(f when-list situations)
6009 #((top) (top) (top))
6010 #("i1921" "i1922" "i1923"))
6011 #(ribcage () () ())
6012 #(ribcage
6013 #(e when-list w)
6014 #((top) (top) (top))
6015 #("i1918" "i1919" "i1920"))
6016 #(ribcage
6017 (lambda-var-list
6018 gen-var
6019 strip
6020 chi-lambda-case
6021 lambda*-formals
6022 chi-simple-lambda
6023 lambda-formals
6024 ellipsis?
6025 chi-void
6026 eval-local-transformer
6027 chi-local-syntax
6028 chi-body
6029 chi-macro
6030 chi-application
6031 chi-expr
6032 chi
6033 chi-top
6034 syntax-type
6035 chi-when-list
6036 chi-install-global
6037 chi-top-sequence
6038 chi-sequence
6039 source-wrap
6040 wrap
6041 bound-id-member?
6042 distinct-bound-ids?
6043 valid-bound-ids?
6044 bound-id=?
6045 free-id=?
6046 id-var-name
6047 same-marks?
6048 join-marks
6049 join-wraps
6050 smart-append
6051 make-binding-wrap
6052 extend-ribcage!
6053 make-empty-ribcage
6054 new-mark
6055 anti-mark
6056 the-anti-mark
6057 top-marked?
6058 top-wrap
6059 empty-wrap
6060 set-ribcage-labels!
6061 set-ribcage-marks!
6062 set-ribcage-symnames!
6063 ribcage-labels
6064 ribcage-marks
6065 ribcage-symnames
6066 ribcage?
6067 make-ribcage
6068 gen-labels
6069 gen-label
6070 make-rename
6071 rename-marks
6072 rename-new
6073 rename-old
6074 subst-rename?
6075 wrap-subst
6076 wrap-marks
6077 make-wrap
6078 id-sym-name&marks
6079 id-sym-name
6080 id?
6081 nonsymbol-id?
6082 global-extend
6083 lookup
6084 macros-only-env
6085 extend-var-env
6086 extend-env
6087 null-env
6088 binding-value
6089 binding-type
6090 make-binding
6091 arg-check
6092 source-annotation
6093 no-source
6094 set-syntax-object-module!
6095 set-syntax-object-wrap!
6096 set-syntax-object-expression!
6097 syntax-object-module
6098 syntax-object-wrap
6099 syntax-object-expression
6100 syntax-object?
6101 make-syntax-object
6102 build-lexical-var
6103 build-letrec
6104 build-named-let
6105 build-let
6106 build-sequence
6107 build-data
6108 build-primref
6109 build-lambda-case
6110 build-case-lambda
6111 build-simple-lambda
6112 build-global-definition
6113 maybe-name-value!
6114 build-global-assignment
6115 build-global-reference
6116 analyze-variable
6117 build-lexical-assignment
6118 build-lexical-reference
6119 build-dynlet
6120 build-conditional
6121 build-application
6122 build-void
6123 decorate-source
6124 get-global-definition-hook
6125 put-global-definition-hook
6126 gensym-hook
6127 local-eval-hook
6128 top-level-eval-hook
6129 fx<
6130 fx=
6131 fx-
6132 fx+
6133 set-lambda-meta!
6134 lambda-meta
6135 lambda?
6136 make-dynlet
6137 make-letrec
6138 make-let
6139 make-lambda-case
6140 make-lambda
6141 make-sequence
6142 make-application
6143 make-conditional
6144 make-toplevel-define
6145 make-toplevel-set
6146 make-toplevel-ref
6147 make-module-set
6148 make-module-ref
6149 make-lexical-set
6150 make-lexical-ref
6151 make-primitive-ref
6152 make-const
6153 make-void)
6154 ((top)
6155 (top)
6156 (top)
6157 (top)
6158 (top)
6159 (top)
6160 (top)
6161 (top)
6162 (top)
6163 (top)
6164 (top)
6165 (top)
6166 (top)
6167 (top)
6168 (top)
6169 (top)
6170 (top)
6171 (top)
6172 (top)
6173 (top)
6174 (top)
6175 (top)
6176 (top)
6177 (top)
6178 (top)
6179 (top)
6180 (top)
6181 (top)
6182 (top)
6183 (top)
6184 (top)
6185 (top)
6186 (top)
6187 (top)
6188 (top)
6189 (top)
6190 (top)
6191 (top)
6192 (top)
6193 (top)
6194 (top)
6195 (top)
6196 (top)
6197 (top)
6198 (top)
6199 (top)
6200 (top)
6201 (top)
6202 (top)
6203 (top)
6204 (top)
6205 (top)
6206 (top)
6207 (top)
6208 (top)
6209 (top)
6210 (top)
6211 (top)
6212 (top)
6213 (top)
6214 (top)
6215 (top)
6216 (top)
6217 (top)
6218 (top)
6219 (top)
6220 (top)
6221 (top)
6222 (top)
6223 (top)
6224 (top)
6225 (top)
6226 (top)
6227 (top)
6228 (top)
6229 (top)
6230 (top)
6231 (top)
6232 (top)
6233 (top)
6234 (top)
6235 (top)
6236 (top)
6237 (top)
6238 (top)
6239 (top)
6240 (top)
6241 (top)
6242 (top)
6243 (top)
6244 (top)
6245 (top)
6246 (top)
6247 (top)
6248 (top)
6249 (top)
6250 (top)
6251 (top)
6252 (top)
6253 (top)
6254 (top)
6255 (top)
6256 (top)
6257 (top)
6258 (top)
6259 (top)
6260 (top)
6261 (top)
6262 (top)
6263 (top)
6264 (top)
6265 (top)
6266 (top)
6267 (top)
6268 (top)
6269 (top)
6270 (top)
6271 (top)
6272 (top)
6273 (top)
6274 (top)
6275 (top)
6276 (top)
6277 (top)
6278 (top)
6279 (top)
6280 (top)
6281 (top)
6282 (top)
6283 (top)
6284 (top)
6285 (top)
6286 (top)
6287 (top)
6288 (top)
6289 (top)
6290 (top))
6291 ("i486"
6292 "i484"
6293 "i482"
6294 "i480"
6295 "i478"
6296 "i476"
6297 "i474"
6298 "i472"
6299 "i470"
6300 "i468"
6301 "i466"
6302 "i464"
6303 "i462"
6304 "i460"
6305 "i458"
6306 "i456"
6307 "i454"
6308 "i452"
6309 "i450"
6310 "i448"
6311 "i446"
6312 "i444"
6313 "i442"
6314 "i440"
6315 "i438"
6316 "i436"
6317 "i434"
6318 "i432"
6319 "i430"
6320 "i428"
6321 "i426"
6322 "i424"
6323 "i422"
6324 "i420"
6325 "i418"
6326 "i416"
6327 "i415"
6328 "i414"
6329 "i412"
6330 "i411"
6331 "i410"
6332 "i409"
6333 "i408"
6334 "i406"
6335 "i404"
6336 "i402"
6337 "i400"
6338 "i398"
6339 "i396"
6340 "i394"
6341 "i392"
6342 "i389"
6343 "i387"
6344 "i386"
6345 "i385"
6346 "i384"
6347 "i383"
6348 "i382"
6349 "i380"
6350 "i378"
6351 "i376"
6352 "i374"
6353 "i373"
6354 "i371"
6355 "i369"
6356 "i367"
6357 "i365"
6358 "i363"
6359 "i361"
6360 "i359"
6361 "i358"
6362 "i356"
6363 "i354"
6364 "i353"
6365 "i352"
6366 "i350"
6367 "i349"
6368 "i347"
6369 "i345"
6370 "i343"
6371 "i341"
6372 "i339"
6373 "i337"
6374 "i335"
6375 "i333"
6376 "i331"
6377 "i329"
6378 "i327"
6379 "i325"
6380 "i323"
6381 "i321"
6382 "i319"
6383 "i317"
6384 "i315"
6385 "i313"
6386 "i311"
6387 "i309"
6388 "i307"
6389 "i305"
6390 "i303"
6391 "i301"
6392 "i299"
6393 "i297"
6394 "i295"
6395 "i293"
6396 "i291"
6397 "i289"
6398 "i287"
6399 "i285"
6400 "i284"
6401 "i282"
6402 "i280"
6403 "i278"
6404 "i276"
6405 "i274"
6406 "i272"
6407 "i270"
6408 "i268"
6409 "i266"
6410 "i263"
6411 "i261"
6412 "i259"
6413 "i257"
6414 "i255"
6415 "i253"
6416 "i251"
6417 "i249"
6418 "i247"
6419 "i245"
6420 "i243"
6421 "i241"
6422 "i239"
6423 "i237"
6424 "i235"
6425 "i233"
6426 "i231"
6427 "i229"))
6428 #(ribcage
6429 (define-structure
6430 define-expansion-accessors
6431 define-expansion-constructors
6432 and-map*)
6433 ((top) (top) (top) (top))
6434 ("i23" "i22" "i21" "i19")))
6435 (hygiene guile)))
6436 'compile
6437 (if (#{free-id=?\ 431}#
6438 #{x\ 1928}#
6439 '#(syntax-object
6440 load
6441 ((top)
6442 #(ribcage () () ())
6443 #(ribcage () () ())
6444 #(ribcage () () ())
6445 #(ribcage
6446 #(x)
6447 #((top))
6448 #("i1927"))
6449 #(ribcage () () ())
6450 #(ribcage
6451 #(f when-list situations)
6452 #((top) (top) (top))
6453 #("i1921"
6454 "i1922"
6455 "i1923"))
6456 #(ribcage () () ())
6457 #(ribcage
6458 #(e when-list w)
6459 #((top) (top) (top))
6460 #("i1918"
6461 "i1919"
6462 "i1920"))
6463 #(ribcage
6464 (lambda-var-list
6465 gen-var
6466 strip
6467 chi-lambda-case
6468 lambda*-formals
6469 chi-simple-lambda
6470 lambda-formals
6471 ellipsis?
6472 chi-void
6473 eval-local-transformer
6474 chi-local-syntax
6475 chi-body
6476 chi-macro
6477 chi-application
6478 chi-expr
6479 chi
6480 chi-top
6481 syntax-type
6482 chi-when-list
6483 chi-install-global
6484 chi-top-sequence
6485 chi-sequence
6486 source-wrap
6487 wrap
6488 bound-id-member?
6489 distinct-bound-ids?
6490 valid-bound-ids?
6491 bound-id=?
6492 free-id=?
6493 id-var-name
6494 same-marks?
6495 join-marks
6496 join-wraps
6497 smart-append
6498 make-binding-wrap
6499 extend-ribcage!
6500 make-empty-ribcage
6501 new-mark
6502 anti-mark
6503 the-anti-mark
6504 top-marked?
6505 top-wrap
6506 empty-wrap
6507 set-ribcage-labels!
6508 set-ribcage-marks!
6509 set-ribcage-symnames!
6510 ribcage-labels
6511 ribcage-marks
6512 ribcage-symnames
6513 ribcage?
6514 make-ribcage
6515 gen-labels
6516 gen-label
6517 make-rename
6518 rename-marks
6519 rename-new
6520 rename-old
6521 subst-rename?
6522 wrap-subst
6523 wrap-marks
6524 make-wrap
6525 id-sym-name&marks
6526 id-sym-name
6527 id?
6528 nonsymbol-id?
6529 global-extend
6530 lookup
6531 macros-only-env
6532 extend-var-env
6533 extend-env
6534 null-env
6535 binding-value
6536 binding-type
6537 make-binding
6538 arg-check
6539 source-annotation
6540 no-source
6541 set-syntax-object-module!
6542 set-syntax-object-wrap!
6543 set-syntax-object-expression!
6544 syntax-object-module
6545 syntax-object-wrap
6546 syntax-object-expression
6547 syntax-object?
6548 make-syntax-object
6549 build-lexical-var
6550 build-letrec
6551 build-named-let
6552 build-let
6553 build-sequence
6554 build-data
6555 build-primref
6556 build-lambda-case
6557 build-case-lambda
6558 build-simple-lambda
6559 build-global-definition
6560 maybe-name-value!
6561 build-global-assignment
6562 build-global-reference
6563 analyze-variable
6564 build-lexical-assignment
6565 build-lexical-reference
6566 build-dynlet
6567 build-conditional
6568 build-application
6569 build-void
6570 decorate-source
6571 get-global-definition-hook
6572 put-global-definition-hook
6573 gensym-hook
6574 local-eval-hook
6575 top-level-eval-hook
6576 fx<
6577 fx=
6578 fx-
6579 fx+
6580 set-lambda-meta!
6581 lambda-meta
6582 lambda?
6583 make-dynlet
6584 make-letrec
6585 make-let
6586 make-lambda-case
6587 make-lambda
6588 make-sequence
6589 make-application
6590 make-conditional
6591 make-toplevel-define
6592 make-toplevel-set
6593 make-toplevel-ref
6594 make-module-set
6595 make-module-ref
6596 make-lexical-set
6597 make-lexical-ref
6598 make-primitive-ref
6599 make-const
6600 make-void)
6601 ((top)
6602 (top)
6603 (top)
6604 (top)
6605 (top)
6606 (top)
6607 (top)
6608 (top)
6609 (top)
6610 (top)
6611 (top)
6612 (top)
6613 (top)
6614 (top)
6615 (top)
6616 (top)
6617 (top)
6618 (top)
6619 (top)
6620 (top)
6621 (top)
6622 (top)
6623 (top)
6624 (top)
6625 (top)
6626 (top)
6627 (top)
6628 (top)
6629 (top)
6630 (top)
6631 (top)
6632 (top)
6633 (top)
6634 (top)
6635 (top)
6636 (top)
6637 (top)
6638 (top)
6639 (top)
6640 (top)
6641 (top)
6642 (top)
6643 (top)
6644 (top)
6645 (top)
6646 (top)
6647 (top)
6648 (top)
6649 (top)
6650 (top)
6651 (top)
6652 (top)
6653 (top)
6654 (top)
6655 (top)
6656 (top)
6657 (top)
6658 (top)
6659 (top)
6660 (top)
6661 (top)
6662 (top)
6663 (top)
6664 (top)
6665 (top)
6666 (top)
6667 (top)
6668 (top)
6669 (top)
6670 (top)
6671 (top)
6672 (top)
6673 (top)
6674 (top)
6675 (top)
6676 (top)
6677 (top)
6678 (top)
6679 (top)
6680 (top)
6681 (top)
6682 (top)
6683 (top)
6684 (top)
6685 (top)
6686 (top)
6687 (top)
6688 (top)
6689 (top)
6690 (top)
6691 (top)
6692 (top)
6693 (top)
6694 (top)
6695 (top)
6696 (top)
6697 (top)
6698 (top)
6699 (top)
6700 (top)
6701 (top)
6702 (top)
6703 (top)
6704 (top)
6705 (top)
6706 (top)
6707 (top)
6708 (top)
6709 (top)
6710 (top)
6711 (top)
6712 (top)
6713 (top)
6714 (top)
6715 (top)
6716 (top)
6717 (top)
6718 (top)
6719 (top)
6720 (top)
6721 (top)
6722 (top)
6723 (top)
6724 (top)
6725 (top)
6726 (top)
6727 (top)
6728 (top)
6729 (top)
6730 (top)
6731 (top)
6732 (top)
6733 (top)
6734 (top)
6735 (top)
6736 (top)
6737 (top))
6738 ("i486"
6739 "i484"
6740 "i482"
6741 "i480"
6742 "i478"
6743 "i476"
6744 "i474"
6745 "i472"
6746 "i470"
6747 "i468"
6748 "i466"
6749 "i464"
6750 "i462"
6751 "i460"
6752 "i458"
6753 "i456"
6754 "i454"
6755 "i452"
6756 "i450"
6757 "i448"
6758 "i446"
6759 "i444"
6760 "i442"
6761 "i440"
6762 "i438"
6763 "i436"
6764 "i434"
6765 "i432"
6766 "i430"
6767 "i428"
6768 "i426"
6769 "i424"
6770 "i422"
6771 "i420"
6772 "i418"
6773 "i416"
6774 "i415"
6775 "i414"
6776 "i412"
6777 "i411"
6778 "i410"
6779 "i409"
6780 "i408"
6781 "i406"
6782 "i404"
6783 "i402"
6784 "i400"
6785 "i398"
6786 "i396"
6787 "i394"
6788 "i392"
6789 "i389"
6790 "i387"
6791 "i386"
6792 "i385"
6793 "i384"
6794 "i383"
6795 "i382"
6796 "i380"
6797 "i378"
6798 "i376"
6799 "i374"
6800 "i373"
6801 "i371"
6802 "i369"
6803 "i367"
6804 "i365"
6805 "i363"
6806 "i361"
6807 "i359"
6808 "i358"
6809 "i356"
6810 "i354"
6811 "i353"
6812 "i352"
6813 "i350"
6814 "i349"
6815 "i347"
6816 "i345"
6817 "i343"
6818 "i341"
6819 "i339"
6820 "i337"
6821 "i335"
6822 "i333"
6823 "i331"
6824 "i329"
6825 "i327"
6826 "i325"
6827 "i323"
6828 "i321"
6829 "i319"
6830 "i317"
6831 "i315"
6832 "i313"
6833 "i311"
6834 "i309"
6835 "i307"
6836 "i305"
6837 "i303"
6838 "i301"
6839 "i299"
6840 "i297"
6841 "i295"
6842 "i293"
6843 "i291"
6844 "i289"
6845 "i287"
6846 "i285"
6847 "i284"
6848 "i282"
6849 "i280"
6850 "i278"
6851 "i276"
6852 "i274"
6853 "i272"
6854 "i270"
6855 "i268"
6856 "i266"
6857 "i263"
6858 "i261"
6859 "i259"
6860 "i257"
6861 "i255"
6862 "i253"
6863 "i251"
6864 "i249"
6865 "i247"
6866 "i245"
6867 "i243"
6868 "i241"
6869 "i239"
6870 "i237"
6871 "i235"
6872 "i233"
6873 "i231"
6874 "i229"))
6875 #(ribcage
6876 (define-structure
6877 define-expansion-accessors
6878 define-expansion-constructors
6879 and-map*)
6880 ((top) (top) (top) (top))
6881 ("i23"
6882 "i22"
6883 "i21"
6884 "i19")))
6885 (hygiene guile)))
6886 'load
6887 (if (#{free-id=?\ 431}#
6888 #{x\ 1928}#
6889 '#(syntax-object
6890 eval
6891 ((top)
6892 #(ribcage () () ())
6893 #(ribcage () () ())
6894 #(ribcage () () ())
6895 #(ribcage
6896 #(x)
6897 #((top))
6898 #("i1927"))
6899 #(ribcage () () ())
6900 #(ribcage
6901 #(f
6902 when-list
6903 situations)
6904 #((top) (top) (top))
6905 #("i1921"
6906 "i1922"
6907 "i1923"))
6908 #(ribcage () () ())
6909 #(ribcage
6910 #(e when-list w)
6911 #((top) (top) (top))
6912 #("i1918"
6913 "i1919"
6914 "i1920"))
6915 #(ribcage
6916 (lambda-var-list
6917 gen-var
6918 strip
6919 chi-lambda-case
6920 lambda*-formals
6921 chi-simple-lambda
6922 lambda-formals
6923 ellipsis?
6924 chi-void
6925 eval-local-transformer
6926 chi-local-syntax
6927 chi-body
6928 chi-macro
6929 chi-application
6930 chi-expr
6931 chi
6932 chi-top
6933 syntax-type
6934 chi-when-list
6935 chi-install-global
6936 chi-top-sequence
6937 chi-sequence
6938 source-wrap
6939 wrap
6940 bound-id-member?
6941 distinct-bound-ids?
6942 valid-bound-ids?
6943 bound-id=?
6944 free-id=?
6945 id-var-name
6946 same-marks?
6947 join-marks
6948 join-wraps
6949 smart-append
6950 make-binding-wrap
6951 extend-ribcage!
6952 make-empty-ribcage
6953 new-mark
6954 anti-mark
6955 the-anti-mark
6956 top-marked?
6957 top-wrap
6958 empty-wrap
6959 set-ribcage-labels!
6960 set-ribcage-marks!
6961 set-ribcage-symnames!
6962 ribcage-labels
6963 ribcage-marks
6964 ribcage-symnames
6965 ribcage?
6966 make-ribcage
6967 gen-labels
6968 gen-label
6969 make-rename
6970 rename-marks
6971 rename-new
6972 rename-old
6973 subst-rename?
6974 wrap-subst
6975 wrap-marks
6976 make-wrap
6977 id-sym-name&marks
6978 id-sym-name
6979 id?
6980 nonsymbol-id?
6981 global-extend
6982 lookup
6983 macros-only-env
6984 extend-var-env
6985 extend-env
6986 null-env
6987 binding-value
6988 binding-type
6989 make-binding
6990 arg-check
6991 source-annotation
6992 no-source
6993 set-syntax-object-module!
6994 set-syntax-object-wrap!
6995 set-syntax-object-expression!
6996 syntax-object-module
6997 syntax-object-wrap
6998 syntax-object-expression
6999 syntax-object?
7000 make-syntax-object
7001 build-lexical-var
7002 build-letrec
7003 build-named-let
7004 build-let
7005 build-sequence
7006 build-data
7007 build-primref
7008 build-lambda-case
7009 build-case-lambda
7010 build-simple-lambda
7011 build-global-definition
7012 maybe-name-value!
7013 build-global-assignment
7014 build-global-reference
7015 analyze-variable
7016 build-lexical-assignment
7017 build-lexical-reference
7018 build-dynlet
7019 build-conditional
7020 build-application
7021 build-void
7022 decorate-source
7023 get-global-definition-hook
7024 put-global-definition-hook
7025 gensym-hook
7026 local-eval-hook
7027 top-level-eval-hook
7028 fx<
7029 fx=
7030 fx-
7031 fx+
7032 set-lambda-meta!
7033 lambda-meta
7034 lambda?
7035 make-dynlet
7036 make-letrec
7037 make-let
7038 make-lambda-case
7039 make-lambda
7040 make-sequence
7041 make-application
7042 make-conditional
7043 make-toplevel-define
7044 make-toplevel-set
7045 make-toplevel-ref
7046 make-module-set
7047 make-module-ref
7048 make-lexical-set
7049 make-lexical-ref
7050 make-primitive-ref
7051 make-const
7052 make-void)
7053 ((top)
7054 (top)
7055 (top)
7056 (top)
7057 (top)
7058 (top)
7059 (top)
7060 (top)
7061 (top)
7062 (top)
7063 (top)
7064 (top)
7065 (top)
7066 (top)
7067 (top)
7068 (top)
7069 (top)
7070 (top)
7071 (top)
7072 (top)
7073 (top)
7074 (top)
7075 (top)
7076 (top)
7077 (top)
7078 (top)
7079 (top)
7080 (top)
7081 (top)
7082 (top)
7083 (top)
7084 (top)
7085 (top)
7086 (top)
7087 (top)
7088 (top)
7089 (top)
7090 (top)
7091 (top)
7092 (top)
7093 (top)
7094 (top)
7095 (top)
7096 (top)
7097 (top)
7098 (top)
7099 (top)
7100 (top)
7101 (top)
7102 (top)
7103 (top)
7104 (top)
7105 (top)
7106 (top)
7107 (top)
7108 (top)
7109 (top)
7110 (top)
7111 (top)
7112 (top)
7113 (top)
7114 (top)
7115 (top)
7116 (top)
7117 (top)
7118 (top)
7119 (top)
7120 (top)
7121 (top)
7122 (top)
7123 (top)
7124 (top)
7125 (top)
7126 (top)
7127 (top)
7128 (top)
7129 (top)
7130 (top)
7131 (top)
7132 (top)
7133 (top)
7134 (top)
7135 (top)
7136 (top)
7137 (top)
7138 (top)
7139 (top)
7140 (top)
7141 (top)
7142 (top)
7143 (top)
7144 (top)
7145 (top)
7146 (top)
7147 (top)
7148 (top)
7149 (top)
7150 (top)
7151 (top)
7152 (top)
7153 (top)
7154 (top)
7155 (top)
7156 (top)
7157 (top)
7158 (top)
7159 (top)
7160 (top)
7161 (top)
7162 (top)
7163 (top)
7164 (top)
7165 (top)
7166 (top)
7167 (top)
7168 (top)
7169 (top)
7170 (top)
7171 (top)
7172 (top)
7173 (top)
7174 (top)
7175 (top)
7176 (top)
7177 (top)
7178 (top)
7179 (top)
7180 (top)
7181 (top)
7182 (top)
7183 (top)
7184 (top)
7185 (top)
7186 (top)
7187 (top)
7188 (top)
7189 (top))
7190 ("i486"
7191 "i484"
7192 "i482"
7193 "i480"
7194 "i478"
7195 "i476"
7196 "i474"
7197 "i472"
7198 "i470"
7199 "i468"
7200 "i466"
7201 "i464"
7202 "i462"
7203 "i460"
7204 "i458"
7205 "i456"
7206 "i454"
7207 "i452"
7208 "i450"
7209 "i448"
7210 "i446"
7211 "i444"
7212 "i442"
7213 "i440"
7214 "i438"
7215 "i436"
7216 "i434"
7217 "i432"
7218 "i430"
7219 "i428"
7220 "i426"
7221 "i424"
7222 "i422"
7223 "i420"
7224 "i418"
7225 "i416"
7226 "i415"
7227 "i414"
7228 "i412"
7229 "i411"
7230 "i410"
7231 "i409"
7232 "i408"
7233 "i406"
7234 "i404"
7235 "i402"
7236 "i400"
7237 "i398"
7238 "i396"
7239 "i394"
7240 "i392"
7241 "i389"
7242 "i387"
7243 "i386"
7244 "i385"
7245 "i384"
7246 "i383"
7247 "i382"
7248 "i380"
7249 "i378"
7250 "i376"
7251 "i374"
7252 "i373"
7253 "i371"
7254 "i369"
7255 "i367"
7256 "i365"
7257 "i363"
7258 "i361"
7259 "i359"
7260 "i358"
7261 "i356"
7262 "i354"
7263 "i353"
7264 "i352"
7265 "i350"
7266 "i349"
7267 "i347"
7268 "i345"
7269 "i343"
7270 "i341"
7271 "i339"
7272 "i337"
7273 "i335"
7274 "i333"
7275 "i331"
7276 "i329"
7277 "i327"
7278 "i325"
7279 "i323"
7280 "i321"
7281 "i319"
7282 "i317"
7283 "i315"
7284 "i313"
7285 "i311"
7286 "i309"
7287 "i307"
7288 "i305"
7289 "i303"
7290 "i301"
7291 "i299"
7292 "i297"
7293 "i295"
7294 "i293"
7295 "i291"
7296 "i289"
7297 "i287"
7298 "i285"
7299 "i284"
7300 "i282"
7301 "i280"
7302 "i278"
7303 "i276"
7304 "i274"
7305 "i272"
7306 "i270"
7307 "i268"
7308 "i266"
7309 "i263"
7310 "i261"
7311 "i259"
7312 "i257"
7313 "i255"
7314 "i253"
7315 "i251"
7316 "i249"
7317 "i247"
7318 "i245"
7319 "i243"
7320 "i241"
7321 "i239"
7322 "i237"
7323 "i235"
7324 "i233"
7325 "i231"
7326 "i229"))
7327 #(ribcage
7328 (define-structure
7329 define-expansion-accessors
7330 define-expansion-constructors
7331 and-map*)
7332 ((top)
7333 (top)
7334 (top)
7335 (top))
7336 ("i23"
7337 "i22"
7338 "i21"
7339 "i19")))
7340 (hygiene guile)))
7341 'eval
7342 (if (#{free-id=?\ 431}#
7343 #{x\ 1928}#
7344 '#(syntax-object
7345 expand
7346 ((top)
7347 #(ribcage () () ())
7348 #(ribcage () () ())
7349 #(ribcage () () ())
7350 #(ribcage
7351 #(x)
7352 #((top))
7353 #("i1927"))
7354 #(ribcage () () ())
7355 #(ribcage
7356 #(f
7357 when-list
7358 situations)
7359 #((top) (top) (top))
7360 #("i1921"
7361 "i1922"
7362 "i1923"))
7363 #(ribcage () () ())
7364 #(ribcage
7365 #(e when-list w)
7366 #((top) (top) (top))
7367 #("i1918"
7368 "i1919"
7369 "i1920"))
7370 #(ribcage
7371 (lambda-var-list
7372 gen-var
7373 strip
7374 chi-lambda-case
7375 lambda*-formals
7376 chi-simple-lambda
7377 lambda-formals
7378 ellipsis?
7379 chi-void
7380 eval-local-transformer
7381 chi-local-syntax
7382 chi-body
7383 chi-macro
7384 chi-application
7385 chi-expr
7386 chi
7387 chi-top
7388 syntax-type
7389 chi-when-list
7390 chi-install-global
7391 chi-top-sequence
7392 chi-sequence
7393 source-wrap
7394 wrap
7395 bound-id-member?
7396 distinct-bound-ids?
7397 valid-bound-ids?
7398 bound-id=?
7399 free-id=?
7400 id-var-name
7401 same-marks?
7402 join-marks
7403 join-wraps
7404 smart-append
7405 make-binding-wrap
7406 extend-ribcage!
7407 make-empty-ribcage
7408 new-mark
7409 anti-mark
7410 the-anti-mark
7411 top-marked?
7412 top-wrap
7413 empty-wrap
7414 set-ribcage-labels!
7415 set-ribcage-marks!
7416 set-ribcage-symnames!
7417 ribcage-labels
7418 ribcage-marks
7419 ribcage-symnames
7420 ribcage?
7421 make-ribcage
7422 gen-labels
7423 gen-label
7424 make-rename
7425 rename-marks
7426 rename-new
7427 rename-old
7428 subst-rename?
7429 wrap-subst
7430 wrap-marks
7431 make-wrap
7432 id-sym-name&marks
7433 id-sym-name
7434 id?
7435 nonsymbol-id?
7436 global-extend
7437 lookup
7438 macros-only-env
7439 extend-var-env
7440 extend-env
7441 null-env
7442 binding-value
7443 binding-type
7444 make-binding
7445 arg-check
7446 source-annotation
7447 no-source
7448 set-syntax-object-module!
7449 set-syntax-object-wrap!
7450 set-syntax-object-expression!
7451 syntax-object-module
7452 syntax-object-wrap
7453 syntax-object-expression
7454 syntax-object?
7455 make-syntax-object
7456 build-lexical-var
7457 build-letrec
7458 build-named-let
7459 build-let
7460 build-sequence
7461 build-data
7462 build-primref
7463 build-lambda-case
7464 build-case-lambda
7465 build-simple-lambda
7466 build-global-definition
7467 maybe-name-value!
7468 build-global-assignment
7469 build-global-reference
7470 analyze-variable
7471 build-lexical-assignment
7472 build-lexical-reference
7473 build-dynlet
7474 build-conditional
7475 build-application
7476 build-void
7477 decorate-source
7478 get-global-definition-hook
7479 put-global-definition-hook
7480 gensym-hook
7481 local-eval-hook
7482 top-level-eval-hook
7483 fx<
7484 fx=
7485 fx-
7486 fx+
7487 set-lambda-meta!
7488 lambda-meta
7489 lambda?
7490 make-dynlet
7491 make-letrec
7492 make-let
7493 make-lambda-case
7494 make-lambda
7495 make-sequence
7496 make-application
7497 make-conditional
7498 make-toplevel-define
7499 make-toplevel-set
7500 make-toplevel-ref
7501 make-module-set
7502 make-module-ref
7503 make-lexical-set
7504 make-lexical-ref
7505 make-primitive-ref
7506 make-const
7507 make-void)
7508 ((top)
7509 (top)
7510 (top)
7511 (top)
7512 (top)
7513 (top)
7514 (top)
7515 (top)
7516 (top)
7517 (top)
7518 (top)
7519 (top)
7520 (top)
7521 (top)
7522 (top)
7523 (top)
7524 (top)
7525 (top)
7526 (top)
7527 (top)
7528 (top)
7529 (top)
7530 (top)
7531 (top)
7532 (top)
7533 (top)
7534 (top)
7535 (top)
7536 (top)
7537 (top)
7538 (top)
7539 (top)
7540 (top)
7541 (top)
7542 (top)
7543 (top)
7544 (top)
7545 (top)
7546 (top)
7547 (top)
7548 (top)
7549 (top)
7550 (top)
7551 (top)
7552 (top)
7553 (top)
7554 (top)
7555 (top)
7556 (top)
7557 (top)
7558 (top)
7559 (top)
7560 (top)
7561 (top)
7562 (top)
7563 (top)
7564 (top)
7565 (top)
7566 (top)
7567 (top)
7568 (top)
7569 (top)
7570 (top)
7571 (top)
7572 (top)
7573 (top)
7574 (top)
7575 (top)
7576 (top)
7577 (top)
7578 (top)
7579 (top)
7580 (top)
7581 (top)
7582 (top)
7583 (top)
7584 (top)
7585 (top)
7586 (top)
7587 (top)
7588 (top)
7589 (top)
7590 (top)
7591 (top)
7592 (top)
7593 (top)
7594 (top)
7595 (top)
7596 (top)
7597 (top)
7598 (top)
7599 (top)
7600 (top)
7601 (top)
7602 (top)
7603 (top)
7604 (top)
7605 (top)
7606 (top)
7607 (top)
7608 (top)
7609 (top)
7610 (top)
7611 (top)
7612 (top)
7613 (top)
7614 (top)
7615 (top)
7616 (top)
7617 (top)
7618 (top)
7619 (top)
7620 (top)
7621 (top)
7622 (top)
7623 (top)
7624 (top)
7625 (top)
7626 (top)
7627 (top)
7628 (top)
7629 (top)
7630 (top)
7631 (top)
7632 (top)
7633 (top)
7634 (top)
7635 (top)
7636 (top)
7637 (top)
7638 (top)
7639 (top)
7640 (top)
7641 (top)
7642 (top)
7643 (top)
7644 (top))
7645 ("i486"
7646 "i484"
7647 "i482"
7648 "i480"
7649 "i478"
7650 "i476"
7651 "i474"
7652 "i472"
7653 "i470"
7654 "i468"
7655 "i466"
7656 "i464"
7657 "i462"
7658 "i460"
7659 "i458"
7660 "i456"
7661 "i454"
7662 "i452"
7663 "i450"
7664 "i448"
7665 "i446"
7666 "i444"
7667 "i442"
7668 "i440"
7669 "i438"
7670 "i436"
7671 "i434"
7672 "i432"
7673 "i430"
7674 "i428"
7675 "i426"
7676 "i424"
7677 "i422"
7678 "i420"
7679 "i418"
7680 "i416"
7681 "i415"
7682 "i414"
7683 "i412"
7684 "i411"
7685 "i410"
7686 "i409"
7687 "i408"
7688 "i406"
7689 "i404"
7690 "i402"
7691 "i400"
7692 "i398"
7693 "i396"
7694 "i394"
7695 "i392"
7696 "i389"
7697 "i387"
7698 "i386"
7699 "i385"
7700 "i384"
7701 "i383"
7702 "i382"
7703 "i380"
7704 "i378"
7705 "i376"
7706 "i374"
7707 "i373"
7708 "i371"
7709 "i369"
7710 "i367"
7711 "i365"
7712 "i363"
7713 "i361"
7714 "i359"
7715 "i358"
7716 "i356"
7717 "i354"
7718 "i353"
7719 "i352"
7720 "i350"
7721 "i349"
7722 "i347"
7723 "i345"
7724 "i343"
7725 "i341"
7726 "i339"
7727 "i337"
7728 "i335"
7729 "i333"
7730 "i331"
7731 "i329"
7732 "i327"
7733 "i325"
7734 "i323"
7735 "i321"
7736 "i319"
7737 "i317"
7738 "i315"
7739 "i313"
7740 "i311"
7741 "i309"
7742 "i307"
7743 "i305"
7744 "i303"
7745 "i301"
7746 "i299"
7747 "i297"
7748 "i295"
7749 "i293"
7750 "i291"
7751 "i289"
7752 "i287"
7753 "i285"
7754 "i284"
7755 "i282"
7756 "i280"
7757 "i278"
7758 "i276"
7759 "i274"
7760 "i272"
7761 "i270"
7762 "i268"
7763 "i266"
7764 "i263"
7765 "i261"
7766 "i259"
7767 "i257"
7768 "i255"
7769 "i253"
7770 "i251"
7771 "i249"
7772 "i247"
7773 "i245"
7774 "i243"
7775 "i241"
7776 "i239"
7777 "i237"
7778 "i235"
7779 "i233"
7780 "i231"
7781 "i229"))
7782 #(ribcage
7783 (define-structure
7784 define-expansion-accessors
7785 define-expansion-constructors
7786 and-map*)
7787 ((top)
7788 (top)
7789 (top)
7790 (top))
7791 ("i23"
7792 "i22"
7793 "i21"
7794 "i19")))
7795 (hygiene guile)))
7796 'expand
7797 (syntax-violation
7798 'eval-when
7799 "invalid situation"
7800 #{e\ 1915}#
7801 (#{wrap\ 441}#
7802 #{x\ 1928}#
7803 #{w\ 1917}#
7804 #f)))))))
7805 #{situations\ 1926}#))))))
7806 (#{f\ 1924}# #{when-list\ 1916}# (quote ())))))
7807 (#{chi-install-global\ 449}#
7808 (lambda (#{name\ 1938}# #{e\ 1939}#)
7809 (#{build-global-definition\ 312}#
7810 #f
7811 #{name\ 1938}#
7812 (#{build-application\ 294}#
7813 #f
7814 (#{build-primref\ 320}#
7815 #f
7816 'make-syntax-transformer)
7817 (list (#{build-data\ 322}# #f #{name\ 1938}#)
7818 (#{build-data\ 322}# #f (quote macro))
7819 #{e\ 1939}#)))))
7820 (#{chi-top-sequence\ 447}#
7821 (lambda (#{body\ 1947}#
7822 #{r\ 1948}#
7823 #{w\ 1949}#
7824 #{s\ 1950}#
7825 #{m\ 1951}#
7826 #{esew\ 1952}#
7827 #{mod\ 1953}#)
7828 (#{build-sequence\ 324}#
7829 #{s\ 1950}#
7830 (letrec ((#{dobody\ 1969}#
7831 (lambda (#{body\ 1970}#
7832 #{r\ 1971}#
7833 #{w\ 1972}#
7834 #{m\ 1973}#
7835 #{esew\ 1974}#
7836 #{mod\ 1975}#
7837 #{out\ 1976}#)
7838 (if (null? #{body\ 1970}#)
7839 (reverse #{out\ 1976}#)
7840 (#{dobody\ 1969}#
7841 (cdr #{body\ 1970}#)
7842 #{r\ 1971}#
7843 #{w\ 1972}#
7844 #{m\ 1973}#
7845 #{esew\ 1974}#
7846 #{mod\ 1975}#
7847 (cons (#{chi-top\ 455}#
7848 (car #{body\ 1970}#)
7849 #{r\ 1971}#
7850 #{w\ 1972}#
7851 #{m\ 1973}#
7852 #{esew\ 1974}#
7853 #{mod\ 1975}#)
7854 #{out\ 1976}#))))))
7855 (#{dobody\ 1969}#
7856 #{body\ 1947}#
7857 #{r\ 1948}#
7858 #{w\ 1949}#
7859 #{m\ 1951}#
7860 #{esew\ 1952}#
7861 #{mod\ 1953}#
7862 '())))))
7863 (#{chi-sequence\ 445}#
7864 (lambda (#{body\ 1977}#
7865 #{r\ 1978}#
7866 #{w\ 1979}#
7867 #{s\ 1980}#
7868 #{mod\ 1981}#)
7869 (#{build-sequence\ 324}#
7870 #{s\ 1980}#
7871 (letrec ((#{dobody\ 1992}#
7872 (lambda (#{body\ 1993}#
7873 #{r\ 1994}#
7874 #{w\ 1995}#
7875 #{mod\ 1996}#)
7876 (if (null? #{body\ 1993}#)
7877 '()
7878 (let ((#{first\ 1998}#
7879 (#{chi\ 457}#
7880 (car #{body\ 1993}#)
7881 #{r\ 1994}#
7882 #{w\ 1995}#
7883 #{mod\ 1996}#)))
7884 (cons #{first\ 1998}#
7885 (#{dobody\ 1992}#
7886 (cdr #{body\ 1993}#)
7887 #{r\ 1994}#
7888 #{w\ 1995}#
7889 #{mod\ 1996}#)))))))
7890 (#{dobody\ 1992}#
7891 #{body\ 1977}#
7892 #{r\ 1978}#
7893 #{w\ 1979}#
7894 #{mod\ 1981}#)))))
7895 (#{source-wrap\ 443}#
7896 (lambda (#{x\ 1999}#
7897 #{w\ 2000}#
7898 #{s\ 2001}#
7899 #{defmod\ 2002}#)
7900 (#{wrap\ 441}#
7901 (#{decorate-source\ 290}#
7902 #{x\ 1999}#
7903 #{s\ 2001}#)
7904 #{w\ 2000}#
7905 #{defmod\ 2002}#)))
7906 (#{wrap\ 441}#
7907 (lambda (#{x\ 2007}# #{w\ 2008}# #{defmod\ 2009}#)
7908 (if (if (null? (#{wrap-marks\ 379}# #{w\ 2008}#))
7909 (null? (#{wrap-subst\ 381}# #{w\ 2008}#))
7910 #f)
7911 #{x\ 2007}#
7912 (if (#{syntax-object?\ 336}# #{x\ 2007}#)
7913 (#{make-syntax-object\ 334}#
7914 (#{syntax-object-expression\ 338}# #{x\ 2007}#)
7915 (#{join-wraps\ 423}#
7916 #{w\ 2008}#
7917 (#{syntax-object-wrap\ 340}# #{x\ 2007}#))
7918 (#{syntax-object-module\ 342}# #{x\ 2007}#))
7919 (if (null? #{x\ 2007}#)
7920 #{x\ 2007}#
7921 (#{make-syntax-object\ 334}#
7922 #{x\ 2007}#
7923 #{w\ 2008}#
7924 #{defmod\ 2009}#))))))
7925 (#{bound-id-member?\ 439}#
7926 (lambda (#{x\ 2022}# #{list\ 2023}#)
7927 (if (not (null? #{list\ 2023}#))
7928 (let ((#{t\ 2030}#
7929 (#{bound-id=?\ 433}#
7930 #{x\ 2022}#
7931 (car #{list\ 2023}#))))
7932 (if #{t\ 2030}#
7933 #{t\ 2030}#
7934 (#{bound-id-member?\ 439}#
7935 #{x\ 2022}#
7936 (cdr #{list\ 2023}#))))
7937 #f)))
7938 (#{distinct-bound-ids?\ 437}#
7939 (lambda (#{ids\ 2032}#)
7940 (letrec ((#{distinct?\ 2036}#
7941 (lambda (#{ids\ 2037}#)
7942 (let ((#{t\ 2040}# (null? #{ids\ 2037}#)))
7943 (if #{t\ 2040}#
7944 #{t\ 2040}#
7945 (if (not (#{bound-id-member?\ 439}#
7946 (car #{ids\ 2037}#)
7947 (cdr #{ids\ 2037}#)))
7948 (#{distinct?\ 2036}# (cdr #{ids\ 2037}#))
7949 #f))))))
7950 (#{distinct?\ 2036}# #{ids\ 2032}#))))
7951 (#{valid-bound-ids?\ 435}#
7952 (lambda (#{ids\ 2044}#)
7953 (if (letrec ((#{all-ids?\ 2049}#
7954 (lambda (#{ids\ 2050}#)
7955 (let ((#{t\ 2053}# (null? #{ids\ 2050}#)))
7956 (if #{t\ 2053}#
7957 #{t\ 2053}#
7958 (if (#{id?\ 372}# (car #{ids\ 2050}#))
7959 (#{all-ids?\ 2049}# (cdr #{ids\ 2050}#))
7960 #f))))))
7961 (#{all-ids?\ 2049}# #{ids\ 2044}#))
7962 (#{distinct-bound-ids?\ 437}# #{ids\ 2044}#)
7963 #f)))
7964 (#{bound-id=?\ 433}#
7965 (lambda (#{i\ 2058}# #{j\ 2059}#)
7966 (if (if (#{syntax-object?\ 336}# #{i\ 2058}#)
7967 (#{syntax-object?\ 336}# #{j\ 2059}#)
7968 #f)
7969 (if (eq? (#{syntax-object-expression\ 338}# #{i\ 2058}#)
7970 (#{syntax-object-expression\ 338}# #{j\ 2059}#))
7971 (#{same-marks?\ 427}#
7972 (#{wrap-marks\ 379}#
7973 (#{syntax-object-wrap\ 340}# #{i\ 2058}#))
7974 (#{wrap-marks\ 379}#
7975 (#{syntax-object-wrap\ 340}# #{j\ 2059}#)))
7976 #f)
7977 (eq? #{i\ 2058}# #{j\ 2059}#))))
7978 (#{free-id=?\ 431}#
7979 (lambda (#{i\ 2066}# #{j\ 2067}#)
7980 (if (eq? (let ((#{x\ 2073}# #{i\ 2066}#))
7981 (if (#{syntax-object?\ 336}# #{x\ 2073}#)
7982 (#{syntax-object-expression\ 338}# #{x\ 2073}#)
7983 #{x\ 2073}#))
7984 (let ((#{x\ 2076}# #{j\ 2067}#))
7985 (if (#{syntax-object?\ 336}# #{x\ 2076}#)
7986 (#{syntax-object-expression\ 338}# #{x\ 2076}#)
7987 #{x\ 2076}#)))
7988 (eq? (#{id-var-name\ 429}# #{i\ 2066}# (quote (())))
7989 (#{id-var-name\ 429}# #{j\ 2067}# (quote (()))))
7990 #f)))
7991 (#{id-var-name\ 429}#
7992 (lambda (#{id\ 2080}# #{w\ 2081}#)
7993 (letrec ((#{search-vector-rib\ 2090}#
7994 (lambda (#{sym\ 2102}#
7995 #{subst\ 2103}#
7996 #{marks\ 2104}#
7997 #{symnames\ 2105}#
7998 #{ribcage\ 2106}#)
7999 (let ((#{n\ 2113}#
8000 (vector-length #{symnames\ 2105}#)))
8001 (letrec ((#{f\ 2116}#
8002 (lambda (#{i\ 2117}#)
8003 (if (#{fx=\ 277}#
8004 #{i\ 2117}#
8005 #{n\ 2113}#)
8006 (#{search\ 2086}#
8007 #{sym\ 2102}#
8008 (cdr #{subst\ 2103}#)
8009 #{marks\ 2104}#)
8010 (if (if (eq? (vector-ref
8011 #{symnames\ 2105}#
8012 #{i\ 2117}#)
8013 #{sym\ 2102}#)
8014 (#{same-marks?\ 427}#
8015 #{marks\ 2104}#
8016 (vector-ref
8017 (#{ribcage-marks\ 399}#
8018 #{ribcage\ 2106}#)
8019 #{i\ 2117}#))
8020 #f)
8021 (values
8022 (vector-ref
8023 (#{ribcage-labels\ 401}#
8024 #{ribcage\ 2106}#)
8025 #{i\ 2117}#)
8026 #{marks\ 2104}#)
8027 (#{f\ 2116}#
8028 (#{fx+\ 273}#
8029 #{i\ 2117}#
8030 1)))))))
8031 (#{f\ 2116}# 0)))))
8032 (#{search-list-rib\ 2088}#
8033 (lambda (#{sym\ 2125}#
8034 #{subst\ 2126}#
8035 #{marks\ 2127}#
8036 #{symnames\ 2128}#
8037 #{ribcage\ 2129}#)
8038 (letrec ((#{f\ 2138}#
8039 (lambda (#{symnames\ 2139}# #{i\ 2140}#)
8040 (if (null? #{symnames\ 2139}#)
8041 (#{search\ 2086}#
8042 #{sym\ 2125}#
8043 (cdr #{subst\ 2126}#)
8044 #{marks\ 2127}#)
8045 (if (if (eq? (car #{symnames\ 2139}#)
8046 #{sym\ 2125}#)
8047 (#{same-marks?\ 427}#
8048 #{marks\ 2127}#
8049 (list-ref
8050 (#{ribcage-marks\ 399}#
8051 #{ribcage\ 2129}#)
8052 #{i\ 2140}#))
8053 #f)
8054 (values
8055 (list-ref
8056 (#{ribcage-labels\ 401}#
8057 #{ribcage\ 2129}#)
8058 #{i\ 2140}#)
8059 #{marks\ 2127}#)
8060 (#{f\ 2138}#
8061 (cdr #{symnames\ 2139}#)
8062 (#{fx+\ 273}#
8063 #{i\ 2140}#
8064 1)))))))
8065 (#{f\ 2138}# #{symnames\ 2128}# 0))))
8066 (#{search\ 2086}#
8067 (lambda (#{sym\ 2148}#
8068 #{subst\ 2149}#
8069 #{marks\ 2150}#)
8070 (if (null? #{subst\ 2149}#)
8071 (values #f #{marks\ 2150}#)
8072 (let ((#{fst\ 2155}# (car #{subst\ 2149}#)))
8073 (if (eq? #{fst\ 2155}# (quote shift))
8074 (#{search\ 2086}#
8075 #{sym\ 2148}#
8076 (cdr #{subst\ 2149}#)
8077 (cdr #{marks\ 2150}#))
8078 (let ((#{symnames\ 2157}#
8079 (#{ribcage-symnames\ 397}#
8080 #{fst\ 2155}#)))
8081 (if (vector? #{symnames\ 2157}#)
8082 (#{search-vector-rib\ 2090}#
8083 #{sym\ 2148}#
8084 #{subst\ 2149}#
8085 #{marks\ 2150}#
8086 #{symnames\ 2157}#
8087 #{fst\ 2155}#)
8088 (#{search-list-rib\ 2088}#
8089 #{sym\ 2148}#
8090 #{subst\ 2149}#
8091 #{marks\ 2150}#
8092 #{symnames\ 2157}#
8093 #{fst\ 2155}#)))))))))
8094 (if (symbol? #{id\ 2080}#)
8095 (let ((#{t\ 2160}#
8096 (call-with-values
8097 (lambda ()
8098 (#{search\ 2086}#
8099 #{id\ 2080}#
8100 (#{wrap-subst\ 381}# #{w\ 2081}#)
8101 (#{wrap-marks\ 379}# #{w\ 2081}#)))
8102 (lambda (#{x\ 2162}# . #{ignore\ 2163}#)
8103 #{x\ 2162}#))))
8104 (if #{t\ 2160}# #{t\ 2160}# #{id\ 2080}#))
8105 (if (#{syntax-object?\ 336}# #{id\ 2080}#)
8106 (let ((#{id\ 2171}#
8107 (#{syntax-object-expression\ 338}# #{id\ 2080}#))
8108 (#{w1\ 2172}#
8109 (#{syntax-object-wrap\ 340}# #{id\ 2080}#)))
8110 (let ((#{marks\ 2174}#
8111 (#{join-marks\ 425}#
8112 (#{wrap-marks\ 379}# #{w\ 2081}#)
8113 (#{wrap-marks\ 379}# #{w1\ 2172}#))))
8114 (call-with-values
8115 (lambda ()
8116 (#{search\ 2086}#
8117 #{id\ 2171}#
8118 (#{wrap-subst\ 381}# #{w\ 2081}#)
8119 #{marks\ 2174}#))
8120 (lambda (#{new-id\ 2175}# #{marks\ 2176}#)
8121 (let ((#{t\ 2181}# #{new-id\ 2175}#))
8122 (if #{t\ 2181}#
8123 #{t\ 2181}#
8124 (let ((#{t\ 2184}#
8125 (call-with-values
8126 (lambda ()
8127 (#{search\ 2086}#
8128 #{id\ 2171}#
8129 (#{wrap-subst\ 381}#
8130 #{w1\ 2172}#)
8131 #{marks\ 2176}#))
8132 (lambda (#{x\ 2186}#
8133 .
8134 #{ignore\ 2187}#)
8135 #{x\ 2186}#))))
8136 (if #{t\ 2184}#
8137 #{t\ 2184}#
8138 #{id\ 2171}#))))))))
8139 (syntax-violation
8140 'id-var-name
8141 "invalid id"
8142 #{id\ 2080}#))))))
8143 (#{same-marks?\ 427}#
8144 (lambda (#{x\ 2192}# #{y\ 2193}#)
8145 (let ((#{t\ 2198}# (eq? #{x\ 2192}# #{y\ 2193}#)))
8146 (if #{t\ 2198}#
8147 #{t\ 2198}#
8148 (if (not (null? #{x\ 2192}#))
8149 (if (not (null? #{y\ 2193}#))
8150 (if (eq? (car #{x\ 2192}#) (car #{y\ 2193}#))
8151 (#{same-marks?\ 427}#
8152 (cdr #{x\ 2192}#)
8153 (cdr #{y\ 2193}#))
8154 #f)
8155 #f)
8156 #f)))))
8157 (#{join-marks\ 425}#
8158 (lambda (#{m1\ 2204}# #{m2\ 2205}#)
8159 (#{smart-append\ 421}# #{m1\ 2204}# #{m2\ 2205}#)))
8160 (#{join-wraps\ 423}#
8161 (lambda (#{w1\ 2208}# #{w2\ 2209}#)
8162 (let ((#{m1\ 2214}# (#{wrap-marks\ 379}# #{w1\ 2208}#))
8163 (#{s1\ 2215}# (#{wrap-subst\ 381}# #{w1\ 2208}#)))
8164 (if (null? #{m1\ 2214}#)
8165 (if (null? #{s1\ 2215}#)
8166 #{w2\ 2209}#
8167 (#{make-wrap\ 377}#
8168 (#{wrap-marks\ 379}# #{w2\ 2209}#)
8169 (#{smart-append\ 421}#
8170 #{s1\ 2215}#
8171 (#{wrap-subst\ 381}# #{w2\ 2209}#))))
8172 (#{make-wrap\ 377}#
8173 (#{smart-append\ 421}#
8174 #{m1\ 2214}#
8175 (#{wrap-marks\ 379}# #{w2\ 2209}#))
8176 (#{smart-append\ 421}#
8177 #{s1\ 2215}#
8178 (#{wrap-subst\ 381}# #{w2\ 2209}#)))))))
8179 (#{smart-append\ 421}#
8180 (lambda (#{m1\ 2216}# #{m2\ 2217}#)
8181 (if (null? #{m2\ 2217}#)
8182 #{m1\ 2216}#
8183 (append #{m1\ 2216}# #{m2\ 2217}#))))
8184 (#{make-binding-wrap\ 419}#
8185 (lambda (#{ids\ 2220}# #{labels\ 2221}# #{w\ 2222}#)
8186 (if (null? #{ids\ 2220}#)
8187 #{w\ 2222}#
8188 (#{make-wrap\ 377}#
8189 (#{wrap-marks\ 379}# #{w\ 2222}#)
8190 (cons (let ((#{labelvec\ 2227}#
8191 (list->vector #{labels\ 2221}#)))
8192 (let ((#{n\ 2229}#
8193 (vector-length #{labelvec\ 2227}#)))
8194 (let ((#{symnamevec\ 2232}#
8195 (make-vector #{n\ 2229}#))
8196 (#{marksvec\ 2233}#
8197 (make-vector #{n\ 2229}#)))
8198 (begin
8199 (letrec ((#{f\ 2237}#
8200 (lambda (#{ids\ 2238}# #{i\ 2239}#)
8201 (if (not (null? #{ids\ 2238}#))
8202 (call-with-values
8203 (lambda ()
8204 (#{id-sym-name&marks\ 375}#
8205 (car #{ids\ 2238}#)
8206 #{w\ 2222}#))
8207 (lambda (#{symname\ 2240}#
8208 #{marks\ 2241}#)
8209 (begin
8210 (vector-set!
8211 #{symnamevec\ 2232}#
8212 #{i\ 2239}#
8213 #{symname\ 2240}#)
8214 (vector-set!
8215 #{marksvec\ 2233}#
8216 #{i\ 2239}#
8217 #{marks\ 2241}#)
8218 (#{f\ 2237}#
8219 (cdr #{ids\ 2238}#)
8220 (#{fx+\ 273}#
8221 #{i\ 2239}#
8222 1)))))))))
8223 (#{f\ 2237}# #{ids\ 2220}# 0))
8224 (#{make-ribcage\ 393}#
8225 #{symnamevec\ 2232}#
8226 #{marksvec\ 2233}#
8227 #{labelvec\ 2227}#)))))
8228 (#{wrap-subst\ 381}# #{w\ 2222}#))))))
8229 (#{extend-ribcage!\ 417}#
8230 (lambda (#{ribcage\ 2244}# #{id\ 2245}# #{label\ 2246}#)
8231 (begin
8232 (#{set-ribcage-symnames!\ 403}#
8233 #{ribcage\ 2244}#
8234 (cons (#{syntax-object-expression\ 338}# #{id\ 2245}#)
8235 (#{ribcage-symnames\ 397}# #{ribcage\ 2244}#)))
8236 (#{set-ribcage-marks!\ 405}#
8237 #{ribcage\ 2244}#
8238 (cons (#{wrap-marks\ 379}#
8239 (#{syntax-object-wrap\ 340}# #{id\ 2245}#))
8240 (#{ribcage-marks\ 399}# #{ribcage\ 2244}#)))
8241 (#{set-ribcage-labels!\ 407}#
8242 #{ribcage\ 2244}#
8243 (cons #{label\ 2246}#
8244 (#{ribcage-labels\ 401}# #{ribcage\ 2244}#))))))
8245 (#{anti-mark\ 413}#
8246 (lambda (#{w\ 2250}#)
8247 (#{make-wrap\ 377}#
8248 (cons #f (#{wrap-marks\ 379}# #{w\ 2250}#))
8249 (cons 'shift
8250 (#{wrap-subst\ 381}# #{w\ 2250}#)))))
8251 (#{set-ribcage-labels!\ 407}#
8252 (lambda (#{x\ 2253}# #{update\ 2254}#)
8253 (vector-set! #{x\ 2253}# 3 #{update\ 2254}#)))
8254 (#{set-ribcage-marks!\ 405}#
8255 (lambda (#{x\ 2257}# #{update\ 2258}#)
8256 (vector-set! #{x\ 2257}# 2 #{update\ 2258}#)))
8257 (#{set-ribcage-symnames!\ 403}#
8258 (lambda (#{x\ 2261}# #{update\ 2262}#)
8259 (vector-set! #{x\ 2261}# 1 #{update\ 2262}#)))
8260 (#{ribcage-labels\ 401}#
8261 (lambda (#{x\ 2265}#) (vector-ref #{x\ 2265}# 3)))
8262 (#{ribcage-marks\ 399}#
8263 (lambda (#{x\ 2267}#) (vector-ref #{x\ 2267}# 2)))
8264 (#{ribcage-symnames\ 397}#
8265 (lambda (#{x\ 2269}#) (vector-ref #{x\ 2269}# 1)))
8266 (#{ribcage?\ 395}#
8267 (lambda (#{x\ 2271}#)
8268 (if (vector? #{x\ 2271}#)
8269 (if (= (vector-length #{x\ 2271}#) 4)
8270 (eq? (vector-ref #{x\ 2271}# 0) (quote ribcage))
8271 #f)
8272 #f)))
8273 (#{make-ribcage\ 393}#
8274 (lambda (#{symnames\ 2276}#
8275 #{marks\ 2277}#
8276 #{labels\ 2278}#)
8277 (vector
8278 'ribcage
8279 #{symnames\ 2276}#
8280 #{marks\ 2277}#
8281 #{labels\ 2278}#)))
8282 (#{gen-labels\ 390}#
8283 (lambda (#{ls\ 2282}#)
8284 (if (null? #{ls\ 2282}#)
8285 '()
8286 (cons (#{gen-label\ 388}#)
8287 (#{gen-labels\ 390}# (cdr #{ls\ 2282}#))))))
8288 (#{gen-label\ 388}#
8289 (lambda () (symbol->string (gensym "i"))))
8290 (#{wrap-subst\ 381}# cdr)
8291 (#{wrap-marks\ 379}# car)
8292 (#{make-wrap\ 377}# cons)
8293 (#{id-sym-name&marks\ 375}#
8294 (lambda (#{x\ 2284}# #{w\ 2285}#)
8295 (if (#{syntax-object?\ 336}# #{x\ 2284}#)
8296 (values
8297 (#{syntax-object-expression\ 338}# #{x\ 2284}#)
8298 (#{join-marks\ 425}#
8299 (#{wrap-marks\ 379}# #{w\ 2285}#)
8300 (#{wrap-marks\ 379}#
8301 (#{syntax-object-wrap\ 340}# #{x\ 2284}#))))
8302 (values
8303 #{x\ 2284}#
8304 (#{wrap-marks\ 379}# #{w\ 2285}#)))))
8305 (#{id?\ 372}#
8306 (lambda (#{x\ 2288}#)
8307 (if (symbol? #{x\ 2288}#)
8308 #t
8309 (if (#{syntax-object?\ 336}# #{x\ 2288}#)
8310 (symbol?
8311 (#{syntax-object-expression\ 338}# #{x\ 2288}#))
8312 #f))))
8313 (#{nonsymbol-id?\ 370}#
8314 (lambda (#{x\ 2295}#)
8315 (if (#{syntax-object?\ 336}# #{x\ 2295}#)
8316 (symbol?
8317 (#{syntax-object-expression\ 338}# #{x\ 2295}#))
8318 #f)))
8319 (#{global-extend\ 368}#
8320 (lambda (#{type\ 2299}# #{sym\ 2300}# #{val\ 2301}#)
8321 (#{put-global-definition-hook\ 286}#
8322 #{sym\ 2300}#
8323 #{type\ 2299}#
8324 #{val\ 2301}#)))
8325 (#{lookup\ 366}#
8326 (lambda (#{x\ 2305}# #{r\ 2306}# #{mod\ 2307}#)
8327 (let ((#{t\ 2313}# (assq #{x\ 2305}# #{r\ 2306}#)))
8328 (if #{t\ 2313}#
8329 (cdr #{t\ 2313}#)
8330 (if (symbol? #{x\ 2305}#)
8331 (let ((#{t\ 2319}#
8332 (#{get-global-definition-hook\ 288}#
8333 #{x\ 2305}#
8334 #{mod\ 2307}#)))
8335 (if #{t\ 2319}# #{t\ 2319}# (quote (global))))
8336 '(displaced-lexical))))))
8337 (#{macros-only-env\ 364}#
8338 (lambda (#{r\ 2324}#)
8339 (if (null? #{r\ 2324}#)
8340 '()
8341 (let ((#{a\ 2327}# (car #{r\ 2324}#)))
8342 (if (eq? (cadr #{a\ 2327}#) (quote macro))
8343 (cons #{a\ 2327}#
8344 (#{macros-only-env\ 364}# (cdr #{r\ 2324}#)))
8345 (#{macros-only-env\ 364}# (cdr #{r\ 2324}#)))))))
8346 (#{extend-var-env\ 362}#
8347 (lambda (#{labels\ 2328}# #{vars\ 2329}# #{r\ 2330}#)
8348 (if (null? #{labels\ 2328}#)
8349 #{r\ 2330}#
8350 (#{extend-var-env\ 362}#
8351 (cdr #{labels\ 2328}#)
8352 (cdr #{vars\ 2329}#)
8353 (cons (cons (car #{labels\ 2328}#)
8354 (cons (quote lexical) (car #{vars\ 2329}#)))
8355 #{r\ 2330}#)))))
8356 (#{extend-env\ 360}#
8357 (lambda (#{labels\ 2335}# #{bindings\ 2336}# #{r\ 2337}#)
8358 (if (null? #{labels\ 2335}#)
8359 #{r\ 2337}#
8360 (#{extend-env\ 360}#
8361 (cdr #{labels\ 2335}#)
8362 (cdr #{bindings\ 2336}#)
8363 (cons (cons (car #{labels\ 2335}#)
8364 (car #{bindings\ 2336}#))
8365 #{r\ 2337}#)))))
8366 (#{binding-value\ 357}# cdr)
8367 (#{binding-type\ 355}# car)
8368 (#{source-annotation\ 351}#
8369 (lambda (#{x\ 2341}#)
8370 (if (#{syntax-object?\ 336}# #{x\ 2341}#)
8371 (#{source-annotation\ 351}#
8372 (#{syntax-object-expression\ 338}# #{x\ 2341}#))
8373 (if (pair? #{x\ 2341}#)
8374 (let ((#{props\ 2348}# (source-properties #{x\ 2341}#)))
8375 (if (pair? #{props\ 2348}#) #{props\ 2348}# #f))
8376 #f))))
8377 (#{set-syntax-object-module!\ 348}#
8378 (lambda (#{x\ 2350}# #{update\ 2351}#)
8379 (vector-set! #{x\ 2350}# 3 #{update\ 2351}#)))
8380 (#{set-syntax-object-wrap!\ 346}#
8381 (lambda (#{x\ 2354}# #{update\ 2355}#)
8382 (vector-set! #{x\ 2354}# 2 #{update\ 2355}#)))
8383 (#{set-syntax-object-expression!\ 344}#
8384 (lambda (#{x\ 2358}# #{update\ 2359}#)
8385 (vector-set! #{x\ 2358}# 1 #{update\ 2359}#)))
8386 (#{syntax-object-module\ 342}#
8387 (lambda (#{x\ 2362}#) (vector-ref #{x\ 2362}# 3)))
8388 (#{syntax-object-wrap\ 340}#
8389 (lambda (#{x\ 2364}#) (vector-ref #{x\ 2364}# 2)))
8390 (#{syntax-object-expression\ 338}#
8391 (lambda (#{x\ 2366}#) (vector-ref #{x\ 2366}# 1)))
8392 (#{syntax-object?\ 336}#
8393 (lambda (#{x\ 2368}#)
8394 (if (vector? #{x\ 2368}#)
8395 (if (= (vector-length #{x\ 2368}#) 4)
8396 (eq? (vector-ref #{x\ 2368}# 0)
8397 'syntax-object)
8398 #f)
8399 #f)))
8400 (#{make-syntax-object\ 334}#
8401 (lambda (#{expression\ 2373}#
8402 #{wrap\ 2374}#
8403 #{module\ 2375}#)
8404 (vector
8405 'syntax-object
8406 #{expression\ 2373}#
8407 #{wrap\ 2374}#
8408 #{module\ 2375}#)))
8409 (#{build-letrec\ 330}#
8410 (lambda (#{src\ 2379}#
8411 #{ids\ 2380}#
8412 #{vars\ 2381}#
8413 #{val-exps\ 2382}#
8414 #{body-exp\ 2383}#)
8415 (if (null? #{vars\ 2381}#)
8416 #{body-exp\ 2383}#
8417 (begin
8418 (for-each
8419 #{maybe-name-value!\ 310}#
8420 #{ids\ 2380}#
8421 #{val-exps\ 2382}#)
8422 (#{make-letrec\ 262}#
8423 #{src\ 2379}#
8424 #{ids\ 2380}#
8425 #{vars\ 2381}#
8426 #{val-exps\ 2382}#
8427 #{body-exp\ 2383}#)))))
8428 (#{build-named-let\ 328}#
8429 (lambda (#{src\ 2389}#
8430 #{ids\ 2390}#
8431 #{vars\ 2391}#
8432 #{val-exps\ 2392}#
8433 #{body-exp\ 2393}#)
8434 (let ((#{f\ 2403}# (car #{vars\ 2391}#))
8435 (#{f-name\ 2404}# (car #{ids\ 2390}#))
8436 (#{vars\ 2405}# (cdr #{vars\ 2391}#))
8437 (#{ids\ 2406}# (cdr #{ids\ 2390}#)))
8438 (let ((#{proc\ 2408}#
8439 (#{build-simple-lambda\ 314}#
8440 #{src\ 2389}#
8441 #{ids\ 2406}#
8442 #f
8443 #{vars\ 2405}#
8444 '()
8445 #{body-exp\ 2393}#)))
8446 (begin
8447 (#{maybe-name-value!\ 310}#
8448 #{f-name\ 2404}#
8449 #{proc\ 2408}#)
8450 (for-each
8451 #{maybe-name-value!\ 310}#
8452 #{ids\ 2406}#
8453 #{val-exps\ 2392}#)
8454 (#{make-letrec\ 262}#
8455 #{src\ 2389}#
8456 (list #{f-name\ 2404}#)
8457 (list #{f\ 2403}#)
8458 (list #{proc\ 2408}#)
8459 (#{build-application\ 294}#
8460 #{src\ 2389}#
8461 (#{build-lexical-reference\ 300}#
8462 'fun
8463 #{src\ 2389}#
8464 #{f-name\ 2404}#
8465 #{f\ 2403}#)
8466 #{val-exps\ 2392}#)))))))
8467 (#{build-let\ 326}#
8468 (lambda (#{src\ 2409}#
8469 #{ids\ 2410}#
8470 #{vars\ 2411}#
8471 #{val-exps\ 2412}#
8472 #{body-exp\ 2413}#)
8473 (begin
8474 (for-each
8475 #{maybe-name-value!\ 310}#
8476 #{ids\ 2410}#
8477 #{val-exps\ 2412}#)
8478 (if (null? #{vars\ 2411}#)
8479 #{body-exp\ 2413}#
8480 (#{make-let\ 260}#
8481 #{src\ 2409}#
8482 #{ids\ 2410}#
8483 #{vars\ 2411}#
8484 #{val-exps\ 2412}#
8485 #{body-exp\ 2413}#)))))
8486 (#{build-sequence\ 324}#
8487 (lambda (#{src\ 2419}# #{exps\ 2420}#)
8488 (if (null? (cdr #{exps\ 2420}#))
8489 (car #{exps\ 2420}#)
8490 (#{make-sequence\ 254}#
8491 #{src\ 2419}#
8492 #{exps\ 2420}#))))
8493 (#{build-data\ 322}#
8494 (lambda (#{src\ 2423}# #{exp\ 2424}#)
8495 (#{make-const\ 232}# #{src\ 2423}# #{exp\ 2424}#)))
8496 (#{build-primref\ 320}#
8497 (lambda (#{src\ 2427}# #{name\ 2428}#)
8498 (if (equal?
8499 (module-name (current-module))
8500 '(guile))
8501 (#{make-toplevel-ref\ 244}#
8502 #{src\ 2427}#
8503 #{name\ 2428}#)
8504 (#{make-module-ref\ 240}#
8505 #{src\ 2427}#
8506 '(guile)
8507 #{name\ 2428}#
8508 #f))))
8509 (#{build-lambda-case\ 318}#
8510 (lambda (#{src\ 2431}#
8511 #{req\ 2432}#
8512 #{opt\ 2433}#
8513 #{rest\ 2434}#
8514 #{kw\ 2435}#
8515 #{inits\ 2436}#
8516 #{vars\ 2437}#
8517 #{body\ 2438}#
8518 #{else-case\ 2439}#)
8519 (#{make-lambda-case\ 258}#
8520 #{src\ 2431}#
8521 #{req\ 2432}#
8522 #{opt\ 2433}#
8523 #{rest\ 2434}#
8524 #{kw\ 2435}#
8525 #{inits\ 2436}#
8526 #{vars\ 2437}#
8527 #{body\ 2438}#
8528 #{else-case\ 2439}#)))
8529 (#{build-case-lambda\ 316}#
8530 (lambda (#{src\ 2449}# #{meta\ 2450}# #{body\ 2451}#)
8531 (#{make-lambda\ 256}#
8532 #{src\ 2449}#
8533 #{meta\ 2450}#
8534 #{body\ 2451}#)))
8535 (#{build-simple-lambda\ 314}#
8536 (lambda (#{src\ 2455}#
8537 #{req\ 2456}#
8538 #{rest\ 2457}#
8539 #{vars\ 2458}#
8540 #{meta\ 2459}#
8541 #{exp\ 2460}#)
8542 (#{make-lambda\ 256}#
8543 #{src\ 2455}#
8544 #{meta\ 2459}#
8545 (#{make-lambda-case\ 258}#
8546 #{src\ 2455}#
8547 #{req\ 2456}#
8548 #f
8549 #{rest\ 2457}#
8550 #f
8551 '()
8552 #{vars\ 2458}#
8553 #{exp\ 2460}#
8554 #f))))
8555 (#{build-global-definition\ 312}#
8556 (lambda (#{source\ 2467}# #{var\ 2468}# #{exp\ 2469}#)
8557 (begin
8558 (#{maybe-name-value!\ 310}#
8559 #{var\ 2468}#
8560 #{exp\ 2469}#)
8561 (#{make-toplevel-define\ 248}#
8562 #{source\ 2467}#
8563 #{var\ 2468}#
8564 #{exp\ 2469}#))))
8565 (#{maybe-name-value!\ 310}#
8566 (lambda (#{name\ 2473}# #{val\ 2474}#)
8567 (if (#{lambda?\ 267}# #{val\ 2474}#)
8568 (let ((#{meta\ 2478}#
8569 (#{lambda-meta\ 269}# #{val\ 2474}#)))
8570 (if (not (assq (quote name) #{meta\ 2478}#))
8571 (#{set-lambda-meta!\ 271}#
8572 #{val\ 2474}#
8573 (acons 'name
8574 #{name\ 2473}#
8575 #{meta\ 2478}#)))))))
8576 (#{build-global-assignment\ 308}#
8577 (lambda (#{source\ 2479}#
8578 #{var\ 2480}#
8579 #{exp\ 2481}#
8580 #{mod\ 2482}#)
8581 (#{analyze-variable\ 304}#
8582 #{mod\ 2482}#
8583 #{var\ 2480}#
8584 (lambda (#{mod\ 2487}# #{var\ 2488}# #{public?\ 2489}#)
8585 (#{make-module-set\ 242}#
8586 #{source\ 2479}#
8587 #{mod\ 2487}#
8588 #{var\ 2488}#
8589 #{public?\ 2489}#
8590 #{exp\ 2481}#))
8591 (lambda (#{var\ 2493}#)
8592 (#{make-toplevel-set\ 246}#
8593 #{source\ 2479}#
8594 #{var\ 2493}#
8595 #{exp\ 2481}#)))))
8596 (#{build-global-reference\ 306}#
8597 (lambda (#{source\ 2495}# #{var\ 2496}# #{mod\ 2497}#)
8598 (#{analyze-variable\ 304}#
8599 #{mod\ 2497}#
8600 #{var\ 2496}#
8601 (lambda (#{mod\ 2501}# #{var\ 2502}# #{public?\ 2503}#)
8602 (#{make-module-ref\ 240}#
8603 #{source\ 2495}#
8604 #{mod\ 2501}#
8605 #{var\ 2502}#
8606 #{public?\ 2503}#))
8607 (lambda (#{var\ 2507}#)
8608 (#{make-toplevel-ref\ 244}#
8609 #{source\ 2495}#
8610 #{var\ 2507}#)))))
8611 (#{analyze-variable\ 304}#
8612 (lambda (#{mod\ 2509}#
8613 #{var\ 2510}#
8614 #{modref-cont\ 2511}#
8615 #{bare-cont\ 2512}#)
8616 (if (not #{mod\ 2509}#)
8617 (#{bare-cont\ 2512}# #{var\ 2510}#)
8618 (let ((#{kind\ 2519}# (car #{mod\ 2509}#))
8619 (#{mod\ 2520}# (cdr #{mod\ 2509}#)))
8620 (if (memv #{kind\ 2519}# (quote (public)))
8621 (#{modref-cont\ 2511}#
8622 #{mod\ 2520}#
8623 #{var\ 2510}#
8624 #t)
8625 (if (memv #{kind\ 2519}# (quote (private)))
8626 (if (not (equal?
8627 #{mod\ 2520}#
8628 (module-name (current-module))))
8629 (#{modref-cont\ 2511}#
8630 #{mod\ 2520}#
8631 #{var\ 2510}#
8632 #f)
8633 (#{bare-cont\ 2512}# #{var\ 2510}#))
8634 (if (memv #{kind\ 2519}# (quote (bare)))
8635 (#{bare-cont\ 2512}# #{var\ 2510}#)
8636 (if (memv #{kind\ 2519}# (quote (hygiene)))
8637 (if (if (not (equal?
8638 #{mod\ 2520}#
8639 (module-name (current-module))))
8640 (module-variable
8641 (resolve-module #{mod\ 2520}#)
8642 #{var\ 2510}#)
8643 #f)
8644 (#{modref-cont\ 2511}#
8645 #{mod\ 2520}#
8646 #{var\ 2510}#
8647 #f)
8648 (#{bare-cont\ 2512}# #{var\ 2510}#))
8649 (syntax-violation
8650 #f
8651 "bad module kind"
8652 #{var\ 2510}#
8653 #{mod\ 2520}#)))))))))
8654 (#{build-lexical-assignment\ 302}#
8655 (lambda (#{source\ 2528}#
8656 #{name\ 2529}#
8657 #{var\ 2530}#
8658 #{exp\ 2531}#)
8659 (#{make-lexical-set\ 238}#
8660 #{source\ 2528}#
8661 #{name\ 2529}#
8662 #{var\ 2530}#
8663 #{exp\ 2531}#)))
8664 (#{build-lexical-reference\ 300}#
8665 (lambda (#{type\ 2536}#
8666 #{source\ 2537}#
8667 #{name\ 2538}#
8668 #{var\ 2539}#)
8669 (#{make-lexical-ref\ 236}#
8670 #{source\ 2537}#
8671 #{name\ 2538}#
8672 #{var\ 2539}#)))
8673 (#{build-dynlet\ 298}#
8674 (lambda (#{source\ 2544}#
8675 #{fluids\ 2545}#
8676 #{vals\ 2546}#
8677 #{body\ 2547}#)
8678 (#{make-dynlet\ 264}#
8679 #{source\ 2544}#
8680 #{fluids\ 2545}#
8681 #{vals\ 2546}#
8682 #{body\ 2547}#)))
8683 (#{build-conditional\ 296}#
8684 (lambda (#{source\ 2552}#
8685 #{test-exp\ 2553}#
8686 #{then-exp\ 2554}#
8687 #{else-exp\ 2555}#)
8688 (#{make-conditional\ 250}#
8689 #{source\ 2552}#
8690 #{test-exp\ 2553}#
8691 #{then-exp\ 2554}#
8692 #{else-exp\ 2555}#)))
8693 (#{build-application\ 294}#
8694 (lambda (#{source\ 2560}#
8695 #{fun-exp\ 2561}#
8696 #{arg-exps\ 2562}#)
8697 (#{make-application\ 252}#
8698 #{source\ 2560}#
8699 #{fun-exp\ 2561}#
8700 #{arg-exps\ 2562}#)))
8701 (#{build-void\ 292}#
8702 (lambda (#{source\ 2566}#)
8703 (#{make-void\ 230}# #{source\ 2566}#)))
8704 (#{decorate-source\ 290}#
8705 (lambda (#{e\ 2568}# #{s\ 2569}#)
8706 (begin
8707 (if (if (pair? #{e\ 2568}#) #{s\ 2569}# #f)
8708 (set-source-properties! #{e\ 2568}# #{s\ 2569}#))
8709 #{e\ 2568}#)))
8710 (#{get-global-definition-hook\ 288}#
8711 (lambda (#{symbol\ 2574}# #{module\ 2575}#)
8712 (begin
8713 (if (if (not #{module\ 2575}#) (current-module) #f)
8714 (warn "module system is booted, we should have a module"
8715 #{symbol\ 2574}#))
8716 (let ((#{v\ 2581}#
8717 (module-variable
8718 (if #{module\ 2575}#
8719 (resolve-module (cdr #{module\ 2575}#))
8720 (current-module))
8721 #{symbol\ 2574}#)))
8722 (if #{v\ 2581}#
8723 (if (variable-bound? #{v\ 2581}#)
8724 (let ((#{val\ 2586}# (variable-ref #{v\ 2581}#)))
8725 (if (macro? #{val\ 2586}#)
8726 (if (macro-type #{val\ 2586}#)
8727 (cons (macro-type #{val\ 2586}#)
8728 (macro-binding #{val\ 2586}#))
8729 #f)
8730 #f))
8731 #f)
8732 #f)))))
8733 (#{put-global-definition-hook\ 286}#
8734 (lambda (#{symbol\ 2590}# #{type\ 2591}# #{val\ 2592}#)
8735 (module-define!
8736 (current-module)
8737 #{symbol\ 2590}#
8738 (make-syntax-transformer
8739 #{symbol\ 2590}#
8740 #{type\ 2591}#
8741 #{val\ 2592}#))))
8742 (#{local-eval-hook\ 283}#
8743 (lambda (#{x\ 2596}# #{mod\ 2597}#)
8744 (primitive-eval #{x\ 2596}#)))
8745 (#{top-level-eval-hook\ 281}#
8746 (lambda (#{x\ 2600}# #{mod\ 2601}#)
8747 (primitive-eval #{x\ 2600}#)))
8748 (#{fx<\ 279}# <)
8749 (#{fx=\ 277}# =)
8750 (#{fx-\ 275}# -)
8751 (#{fx+\ 273}# +)
8752 (#{set-lambda-meta!\ 271}#
8753 (lambda (#{x\ 2604}# #{v\ 2605}#)
8754 (struct-set! #{x\ 2604}# 1 #{v\ 2605}#)))
8755 (#{lambda-meta\ 269}#
8756 (lambda (#{x\ 2608}#) (struct-ref #{x\ 2608}# 1)))
8757 (#{lambda?\ 267}#
8758 (lambda (#{x\ 2610}#)
8759 (if (struct? #{x\ 2610}#)
8760 (eq? (struct-vtable #{x\ 2610}#)
8761 (vector-ref %expanded-vtables 13))
8762 #f)))
8763 (#{make-dynlet\ 264}#
8764 (lambda (#{src\ 2614}#
8765 #{fluids\ 2615}#
8766 #{vals\ 2616}#
8767 #{body\ 2617}#)
8768 (make-struct
8769 (vector-ref %expanded-vtables 17)
8770 0
8771 #{src\ 2614}#
8772 #{fluids\ 2615}#
8773 #{vals\ 2616}#
8774 #{body\ 2617}#)))
8775 (#{make-letrec\ 262}#
8776 (lambda (#{src\ 2622}#
8777 #{names\ 2623}#
8778 #{gensyms\ 2624}#
8779 #{vals\ 2625}#
8780 #{body\ 2626}#)
8781 (make-struct
8782 (vector-ref %expanded-vtables 16)
8783 0
8784 #{src\ 2622}#
8785 #{names\ 2623}#
8786 #{gensyms\ 2624}#
8787 #{vals\ 2625}#
8788 #{body\ 2626}#)))
8789 (#{make-let\ 260}#
8790 (lambda (#{src\ 2632}#
8791 #{names\ 2633}#
8792 #{gensyms\ 2634}#
8793 #{vals\ 2635}#
8794 #{body\ 2636}#)
8795 (make-struct
8796 (vector-ref %expanded-vtables 15)
8797 0
8798 #{src\ 2632}#
8799 #{names\ 2633}#
8800 #{gensyms\ 2634}#
8801 #{vals\ 2635}#
8802 #{body\ 2636}#)))
8803 (#{make-lambda-case\ 258}#
8804 (lambda (#{src\ 2642}#
8805 #{req\ 2643}#
8806 #{opt\ 2644}#
8807 #{rest\ 2645}#
8808 #{kw\ 2646}#
8809 #{inits\ 2647}#
8810 #{gensyms\ 2648}#
8811 #{body\ 2649}#
8812 #{alternate\ 2650}#)
8813 (make-struct
8814 (vector-ref %expanded-vtables 14)
8815 0
8816 #{src\ 2642}#
8817 #{req\ 2643}#
8818 #{opt\ 2644}#
8819 #{rest\ 2645}#
8820 #{kw\ 2646}#
8821 #{inits\ 2647}#
8822 #{gensyms\ 2648}#
8823 #{body\ 2649}#
8824 #{alternate\ 2650}#)))
8825 (#{make-lambda\ 256}#
8826 (lambda (#{src\ 2660}# #{meta\ 2661}# #{body\ 2662}#)
8827 (make-struct
8828 (vector-ref %expanded-vtables 13)
8829 0
8830 #{src\ 2660}#
8831 #{meta\ 2661}#
8832 #{body\ 2662}#)))
8833 (#{make-sequence\ 254}#
8834 (lambda (#{src\ 2666}# #{exps\ 2667}#)
8835 (make-struct
8836 (vector-ref %expanded-vtables 12)
8837 0
8838 #{src\ 2666}#
8839 #{exps\ 2667}#)))
8840 (#{make-application\ 252}#
8841 (lambda (#{src\ 2670}# #{proc\ 2671}# #{args\ 2672}#)
8842 (make-struct
8843 (vector-ref %expanded-vtables 11)
8844 0
8845 #{src\ 2670}#
8846 #{proc\ 2671}#
8847 #{args\ 2672}#)))
8848 (#{make-conditional\ 250}#
8849 (lambda (#{src\ 2676}#
8850 #{test\ 2677}#
8851 #{consequent\ 2678}#
8852 #{alternate\ 2679}#)
8853 (make-struct
8854 (vector-ref %expanded-vtables 10)
8855 0
8856 #{src\ 2676}#
8857 #{test\ 2677}#
8858 #{consequent\ 2678}#
8859 #{alternate\ 2679}#)))
8860 (#{make-toplevel-define\ 248}#
8861 (lambda (#{src\ 2684}# #{name\ 2685}# #{exp\ 2686}#)
8862 (make-struct
8863 (vector-ref %expanded-vtables 9)
8864 0
8865 #{src\ 2684}#
8866 #{name\ 2685}#
8867 #{exp\ 2686}#)))
8868 (#{make-toplevel-set\ 246}#
8869 (lambda (#{src\ 2690}# #{name\ 2691}# #{exp\ 2692}#)
8870 (make-struct
8871 (vector-ref %expanded-vtables 8)
8872 0
8873 #{src\ 2690}#
8874 #{name\ 2691}#
8875 #{exp\ 2692}#)))
8876 (#{make-toplevel-ref\ 244}#
8877 (lambda (#{src\ 2696}# #{name\ 2697}#)
8878 (make-struct
8879 (vector-ref %expanded-vtables 7)
8880 0
8881 #{src\ 2696}#
8882 #{name\ 2697}#)))
8883 (#{make-module-set\ 242}#
8884 (lambda (#{src\ 2700}#
8885 #{mod\ 2701}#
8886 #{name\ 2702}#
8887 #{public?\ 2703}#
8888 #{exp\ 2704}#)
8889 (make-struct
8890 (vector-ref %expanded-vtables 6)
8891 0
8892 #{src\ 2700}#
8893 #{mod\ 2701}#
8894 #{name\ 2702}#
8895 #{public?\ 2703}#
8896 #{exp\ 2704}#)))
8897 (#{make-module-ref\ 240}#
8898 (lambda (#{src\ 2710}#
8899 #{mod\ 2711}#
8900 #{name\ 2712}#
8901 #{public?\ 2713}#)
8902 (make-struct
8903 (vector-ref %expanded-vtables 5)
8904 0
8905 #{src\ 2710}#
8906 #{mod\ 2711}#
8907 #{name\ 2712}#
8908 #{public?\ 2713}#)))
8909 (#{make-lexical-set\ 238}#
8910 (lambda (#{src\ 2718}#
8911 #{name\ 2719}#
8912 #{gensym\ 2720}#
8913 #{exp\ 2721}#)
8914 (make-struct
8915 (vector-ref %expanded-vtables 4)
8916 0
8917 #{src\ 2718}#
8918 #{name\ 2719}#
8919 #{gensym\ 2720}#
8920 #{exp\ 2721}#)))
8921 (#{make-lexical-ref\ 236}#
8922 (lambda (#{src\ 2726}# #{name\ 2727}# #{gensym\ 2728}#)
8923 (make-struct
8924 (vector-ref %expanded-vtables 3)
8925 0
8926 #{src\ 2726}#
8927 #{name\ 2727}#
8928 #{gensym\ 2728}#)))
8929 (#{make-primitive-ref\ 234}#
8930 (lambda (#{src\ 2732}# #{name\ 2733}#)
8931 (make-struct
8932 (vector-ref %expanded-vtables 2)
8933 0
8934 #{src\ 2732}#
8935 #{name\ 2733}#)))
8936 (#{make-const\ 232}#
8937 (lambda (#{src\ 2736}# #{exp\ 2737}#)
8938 (make-struct
8939 (vector-ref %expanded-vtables 1)
8940 0
8941 #{src\ 2736}#
8942 #{exp\ 2737}#)))
8943 (#{make-void\ 230}#
8944 (lambda (#{src\ 2740}#)
8945 (make-struct
8946 (vector-ref %expanded-vtables 0)
8947 0
8948 #{src\ 2740}#))))
8949 (begin
8950 (#{global-extend\ 368}#
8951 'local-syntax
8952 'letrec-syntax
8953 #t)
8954 (#{global-extend\ 368}#
8955 'local-syntax
8956 'let-syntax
8957 #f)
8958 (#{global-extend\ 368}#
8959 'core
8960 'fluid-let-syntax
8961 (lambda (#{e\ 2742}#
8962 #{r\ 2743}#
8963 #{w\ 2744}#
8964 #{s\ 2745}#
8965 #{mod\ 2746}#)
8966 ((lambda (#{tmp\ 2752}#)
8967 ((lambda (#{tmp\ 2753}#)
8968 (if (if #{tmp\ 2753}#
8969 (apply (lambda (#{_\ 2759}#
8970 #{var\ 2760}#
8971 #{val\ 2761}#
8972 #{e1\ 2762}#
8973 #{e2\ 2763}#)
8974 (#{valid-bound-ids?\ 435}# #{var\ 2760}#))
8975 #{tmp\ 2753}#)
8976 #f)
8977 (apply (lambda (#{_\ 2770}#
8978 #{var\ 2771}#
8979 #{val\ 2772}#
8980 #{e1\ 2773}#
8981 #{e2\ 2774}#)
8982 (let ((#{names\ 2776}#
8983 (map (lambda (#{x\ 2777}#)
8984 (#{id-var-name\ 429}#
8985 #{x\ 2777}#
8986 #{w\ 2744}#))
8987 #{var\ 2771}#)))
8988 (begin
8989 (for-each
8990 (lambda (#{id\ 2780}# #{n\ 2781}#)
8991 (let ((#{atom-key\ 2786}#
8992 (#{binding-type\ 355}#
8993 (#{lookup\ 366}#
8994 #{n\ 2781}#
8995 #{r\ 2743}#
8996 #{mod\ 2746}#))))
8997 (if (memv #{atom-key\ 2786}#
8998 '(displaced-lexical))
8999 (syntax-violation
9000 'fluid-let-syntax
9001 "identifier out of context"
9002 #{e\ 2742}#
9003 (#{source-wrap\ 443}#
9004 #{id\ 2780}#
9005 #{w\ 2744}#
9006 #{s\ 2745}#
9007 #{mod\ 2746}#)))))
9008 #{var\ 2771}#
9009 #{names\ 2776}#)
9010 (#{chi-body\ 465}#
9011 (cons #{e1\ 2773}# #{e2\ 2774}#)
9012 (#{source-wrap\ 443}#
9013 #{e\ 2742}#
9014 #{w\ 2744}#
9015 #{s\ 2745}#
9016 #{mod\ 2746}#)
9017 (#{extend-env\ 360}#
9018 #{names\ 2776}#
9019 (let ((#{trans-r\ 2791}#
9020 (#{macros-only-env\ 364}#
9021 #{r\ 2743}#)))
9022 (map (lambda (#{x\ 2792}#)
9023 (cons 'macro
9024 (#{eval-local-transformer\ 469}#
9025 (#{chi\ 457}#
9026 #{x\ 2792}#
9027 #{trans-r\ 2791}#
9028 #{w\ 2744}#
9029 #{mod\ 2746}#)
9030 #{mod\ 2746}#)))
9031 #{val\ 2772}#))
9032 #{r\ 2743}#)
9033 #{w\ 2744}#
9034 #{mod\ 2746}#))))
9035 #{tmp\ 2753}#)
9036 ((lambda (#{_\ 2797}#)
9037 (syntax-violation
9038 'fluid-let-syntax
9039 "bad syntax"
9040 (#{source-wrap\ 443}#
9041 #{e\ 2742}#
9042 #{w\ 2744}#
9043 #{s\ 2745}#
9044 #{mod\ 2746}#)))
9045 #{tmp\ 2752}#)))
9046 ($sc-dispatch
9047 #{tmp\ 2752}#
9048 '(any #(each (any any)) any . each-any))))
9049 #{e\ 2742}#)))
9050 (#{global-extend\ 368}#
9051 'core
9052 'quote
9053 (lambda (#{e\ 2798}#
9054 #{r\ 2799}#
9055 #{w\ 2800}#
9056 #{s\ 2801}#
9057 #{mod\ 2802}#)
9058 ((lambda (#{tmp\ 2808}#)
9059 ((lambda (#{tmp\ 2809}#)
9060 (if #{tmp\ 2809}#
9061 (apply (lambda (#{_\ 2812}# #{e\ 2813}#)
9062 (#{build-data\ 322}#
9063 #{s\ 2801}#
9064 (#{strip\ 483}# #{e\ 2813}# #{w\ 2800}#)))
9065 #{tmp\ 2809}#)
9066 ((lambda (#{_\ 2815}#)
9067 (syntax-violation
9068 'quote
9069 "bad syntax"
9070 (#{source-wrap\ 443}#
9071 #{e\ 2798}#
9072 #{w\ 2800}#
9073 #{s\ 2801}#
9074 #{mod\ 2802}#)))
9075 #{tmp\ 2808}#)))
9076 ($sc-dispatch #{tmp\ 2808}# (quote (any any)))))
9077 #{e\ 2798}#)))
9078 (#{global-extend\ 368}#
9079 'core
9080 'syntax
9081 (letrec ((#{regen\ 2831}#
9082 (lambda (#{x\ 2832}#)
9083 (let ((#{atom-key\ 2836}# (car #{x\ 2832}#)))
9084 (if (memv #{atom-key\ 2836}# (quote (ref)))
9085 (#{build-lexical-reference\ 300}#
9086 'value
9087 #f
9088 (cadr #{x\ 2832}#)
9089 (cadr #{x\ 2832}#))
9090 (if (memv #{atom-key\ 2836}# (quote (primitive)))
9091 (#{build-primref\ 320}# #f (cadr #{x\ 2832}#))
9092 (if (memv #{atom-key\ 2836}# (quote (quote)))
9093 (#{build-data\ 322}# #f (cadr #{x\ 2832}#))
9094 (if (memv #{atom-key\ 2836}# (quote (lambda)))
9095 (if (list? (cadr #{x\ 2832}#))
9096 (#{build-simple-lambda\ 314}#
9097 #f
9098 (cadr #{x\ 2832}#)
9099 #f
9100 (cadr #{x\ 2832}#)
9101 '()
9102 (#{regen\ 2831}# (caddr #{x\ 2832}#)))
9103 (error "how did we get here" #{x\ 2832}#))
9104 (#{build-application\ 294}#
9105 #f
9106 (#{build-primref\ 320}# #f (car #{x\ 2832}#))
9107 (map #{regen\ 2831}#
9108 (cdr #{x\ 2832}#))))))))))
9109 (#{gen-vector\ 2829}#
9110 (lambda (#{x\ 2848}#)
9111 (if (eq? (car #{x\ 2848}#) (quote list))
9112 (cons (quote vector) (cdr #{x\ 2848}#))
9113 (if (eq? (car #{x\ 2848}#) (quote quote))
9114 (list 'quote
9115 (list->vector (cadr #{x\ 2848}#)))
9116 (list (quote list->vector) #{x\ 2848}#)))))
9117 (#{gen-append\ 2827}#
9118 (lambda (#{x\ 2858}# #{y\ 2859}#)
9119 (if (equal? #{y\ 2859}# (quote (quote ())))
9120 #{x\ 2858}#
9121 (list (quote append) #{x\ 2858}# #{y\ 2859}#))))
9122 (#{gen-cons\ 2825}#
9123 (lambda (#{x\ 2863}# #{y\ 2864}#)
9124 (let ((#{atom-key\ 2869}# (car #{y\ 2864}#)))
9125 (if (memv #{atom-key\ 2869}# (quote (quote)))
9126 (if (eq? (car #{x\ 2863}#) (quote quote))
9127 (list 'quote
9128 (cons (cadr #{x\ 2863}#) (cadr #{y\ 2864}#)))
9129 (if (eq? (cadr #{y\ 2864}#) (quote ()))
9130 (list (quote list) #{x\ 2863}#)
9131 (list (quote cons) #{x\ 2863}# #{y\ 2864}#)))
9132 (if (memv #{atom-key\ 2869}# (quote (list)))
9133 (cons 'list
9134 (cons #{x\ 2863}# (cdr #{y\ 2864}#)))
9135 (list (quote cons) #{x\ 2863}# #{y\ 2864}#))))))
9136 (#{gen-map\ 2823}#
9137 (lambda (#{e\ 2878}# #{map-env\ 2879}#)
9138 (let ((#{formals\ 2884}# (map cdr #{map-env\ 2879}#))
9139 (#{actuals\ 2885}#
9140 (map (lambda (#{x\ 2886}#)
9141 (list (quote ref) (car #{x\ 2886}#)))
9142 #{map-env\ 2879}#)))
9143 (if (eq? (car #{e\ 2878}#) (quote ref))
9144 (car #{actuals\ 2885}#)
9145 (if (and-map
9146 (lambda (#{x\ 2893}#)
9147 (if (eq? (car #{x\ 2893}#) (quote ref))
9148 (memq (cadr #{x\ 2893}#) #{formals\ 2884}#)
9149 #f))
9150 (cdr #{e\ 2878}#))
9151 (cons 'map
9152 (cons (list 'primitive
9153 (car #{e\ 2878}#))
9154 (map (let ((#{r\ 2899}#
9155 (map cons
9156 #{formals\ 2884}#
9157 #{actuals\ 2885}#)))
9158 (lambda (#{x\ 2900}#)
9159 (cdr (assq (cadr #{x\ 2900}#)
9160 #{r\ 2899}#))))
9161 (cdr #{e\ 2878}#))))
9162 (cons 'map
9163 (cons (list 'lambda
9164 #{formals\ 2884}#
9165 #{e\ 2878}#)
9166 #{actuals\ 2885}#)))))))
9167 (#{gen-mappend\ 2821}#
9168 (lambda (#{e\ 2904}# #{map-env\ 2905}#)
9169 (list 'apply
9170 '(primitive append)
9171 (#{gen-map\ 2823}# #{e\ 2904}# #{map-env\ 2905}#))))
9172 (#{gen-ref\ 2819}#
9173 (lambda (#{src\ 2909}#
9174 #{var\ 2910}#
9175 #{level\ 2911}#
9176 #{maps\ 2912}#)
9177 (if (#{fx=\ 277}# #{level\ 2911}# 0)
9178 (values #{var\ 2910}# #{maps\ 2912}#)
9179 (if (null? #{maps\ 2912}#)
9180 (syntax-violation
9181 'syntax
9182 "missing ellipsis"
9183 #{src\ 2909}#)
9184 (call-with-values
9185 (lambda ()
9186 (#{gen-ref\ 2819}#
9187 #{src\ 2909}#
9188 #{var\ 2910}#
9189 (#{fx-\ 275}# #{level\ 2911}# 1)
9190 (cdr #{maps\ 2912}#)))
9191 (lambda (#{outer-var\ 2917}# #{outer-maps\ 2918}#)
9192 (let ((#{b\ 2922}#
9193 (assq #{outer-var\ 2917}#
9194 (car #{maps\ 2912}#))))
9195 (if #{b\ 2922}#
9196 (values (cdr #{b\ 2922}#) #{maps\ 2912}#)
9197 (let ((#{inner-var\ 2924}#
9198 (#{gen-var\ 485}# (quote tmp))))
9199 (values
9200 #{inner-var\ 2924}#
9201 (cons (cons (cons #{outer-var\ 2917}#
9202 #{inner-var\ 2924}#)
9203 (car #{maps\ 2912}#))
9204 #{outer-maps\ 2918}#)))))))))))
9205 (#{gen-syntax\ 2817}#
9206 (lambda (#{src\ 2925}#
9207 #{e\ 2926}#
9208 #{r\ 2927}#
9209 #{maps\ 2928}#
9210 #{ellipsis?\ 2929}#
9211 #{mod\ 2930}#)
9212 (if (#{id?\ 372}# #{e\ 2926}#)
9213 (let ((#{label\ 2938}#
9214 (#{id-var-name\ 429}#
9215 #{e\ 2926}#
9216 '(()))))
9217 (let ((#{b\ 2941}#
9218 (#{lookup\ 366}#
9219 #{label\ 2938}#
9220 #{r\ 2927}#
9221 #{mod\ 2930}#)))
9222 (if (eq? (#{binding-type\ 355}# #{b\ 2941}#)
9223 'syntax)
9224 (call-with-values
9225 (lambda ()
9226 (let ((#{var.lev\ 2943}#
9227 (#{binding-value\ 357}# #{b\ 2941}#)))
9228 (#{gen-ref\ 2819}#
9229 #{src\ 2925}#
9230 (car #{var.lev\ 2943}#)
9231 (cdr #{var.lev\ 2943}#)
9232 #{maps\ 2928}#)))
9233 (lambda (#{var\ 2944}# #{maps\ 2945}#)
9234 (values
9235 (list (quote ref) #{var\ 2944}#)
9236 #{maps\ 2945}#)))
9237 (if (#{ellipsis?\ 2929}# #{e\ 2926}#)
9238 (syntax-violation
9239 'syntax
9240 "misplaced ellipsis"
9241 #{src\ 2925}#)
9242 (values
9243 (list (quote quote) #{e\ 2926}#)
9244 #{maps\ 2928}#)))))
9245 ((lambda (#{tmp\ 2950}#)
9246 ((lambda (#{tmp\ 2951}#)
9247 (if (if #{tmp\ 2951}#
9248 (apply (lambda (#{dots\ 2954}# #{e\ 2955}#)
9249 (#{ellipsis?\ 2929}#
9250 #{dots\ 2954}#))
9251 #{tmp\ 2951}#)
9252 #f)
9253 (apply (lambda (#{dots\ 2958}# #{e\ 2959}#)
9254 (#{gen-syntax\ 2817}#
9255 #{src\ 2925}#
9256 #{e\ 2959}#
9257 #{r\ 2927}#
9258 #{maps\ 2928}#
9259 (lambda (#{x\ 2960}#) #f)
9260 #{mod\ 2930}#))
9261 #{tmp\ 2951}#)
9262 ((lambda (#{tmp\ 2962}#)
9263 (if (if #{tmp\ 2962}#
9264 (apply (lambda (#{x\ 2966}#
9265 #{dots\ 2967}#
9266 #{y\ 2968}#)
9267 (#{ellipsis?\ 2929}#
9268 #{dots\ 2967}#))
9269 #{tmp\ 2962}#)
9270 #f)
9271 (apply (lambda (#{x\ 2972}#
9272 #{dots\ 2973}#
9273 #{y\ 2974}#)
9274 (letrec ((#{f\ 2978}#
9275 (lambda (#{y\ 2979}#
9276 #{k\ 2980}#)
9277 ((lambda (#{tmp\ 2987}#)
9278 ((lambda (#{tmp\ 2988}#)
9279 (if (if #{tmp\ 2988}#
9280 (apply (lambda (#{dots\ 2991}#
9281 #{y\ 2992}#)
9282 (#{ellipsis?\ 2929}#
9283 #{dots\ 2991}#))
9284 #{tmp\ 2988}#)
9285 #f)
9286 (apply (lambda (#{dots\ 2995}#
9287 #{y\ 2996}#)
9288 (#{f\ 2978}#
9289 #{y\ 2996}#
9290 (lambda (#{maps\ 2997}#)
9291 (call-with-values
9292 (lambda ()
9293 (#{k\ 2980}#
9294 (cons '()
9295 #{maps\ 2997}#)))
9296 (lambda (#{x\ 2999}#
9297 #{maps\ 3000}#)
9298 (if (null? (car #{maps\ 3000}#))
9299 (syntax-violation
9300 'syntax
9301 "extra ellipsis"
9302 #{src\ 2925}#)
9303 (values
9304 (#{gen-mappend\ 2821}#
9305 #{x\ 2999}#
9306 (car #{maps\ 3000}#))
9307 (cdr #{maps\ 3000}#))))))))
9308 #{tmp\ 2988}#)
9309 ((lambda (#{_\ 3004}#)
9310 (call-with-values
9311 (lambda ()
9312 (#{gen-syntax\ 2817}#
9313 #{src\ 2925}#
9314 #{y\ 2979}#
9315 #{r\ 2927}#
9316 #{maps\ 2928}#
9317 #{ellipsis?\ 2929}#
9318 #{mod\ 2930}#))
9319 (lambda (#{y\ 3005}#
9320 #{maps\ 3006}#)
9321 (call-with-values
9322 (lambda ()
9323 (#{k\ 2980}#
9324 #{maps\ 3006}#))
9325 (lambda (#{x\ 3009}#
9326 #{maps\ 3010}#)
9327 (values
9328 (#{gen-append\ 2827}#
9329 #{x\ 3009}#
9330 #{y\ 3005}#)
9331 #{maps\ 3010}#))))))
9332 #{tmp\ 2987}#)))
9333 ($sc-dispatch
9334 #{tmp\ 2987}#
9335 '(any . any))))
9336 #{y\ 2979}#))))
9337 (#{f\ 2978}#
9338 #{y\ 2974}#
9339 (lambda (#{maps\ 2981}#)
9340 (call-with-values
9341 (lambda ()
9342 (#{gen-syntax\ 2817}#
9343 #{src\ 2925}#
9344 #{x\ 2972}#
9345 #{r\ 2927}#
9346 (cons '()
9347 #{maps\ 2981}#)
9348 #{ellipsis?\ 2929}#
9349 #{mod\ 2930}#))
9350 (lambda (#{x\ 2983}#
9351 #{maps\ 2984}#)
9352 (if (null? (car #{maps\ 2984}#))
9353 (syntax-violation
9354 'syntax
9355 "extra ellipsis"
9356 #{src\ 2925}#)
9357 (values
9358 (#{gen-map\ 2823}#
9359 #{x\ 2983}#
9360 (car #{maps\ 2984}#))
9361 (cdr #{maps\ 2984}#)))))))))
9362 #{tmp\ 2962}#)
9363 ((lambda (#{tmp\ 3013}#)
9364 (if #{tmp\ 3013}#
9365 (apply (lambda (#{x\ 3016}#
9366 #{y\ 3017}#)
9367 (call-with-values
9368 (lambda ()
9369 (#{gen-syntax\ 2817}#
9370 #{src\ 2925}#
9371 #{x\ 3016}#
9372 #{r\ 2927}#
9373 #{maps\ 2928}#
9374 #{ellipsis?\ 2929}#
9375 #{mod\ 2930}#))
9376 (lambda (#{x\ 3018}#
9377 #{maps\ 3019}#)
9378 (call-with-values
9379 (lambda ()
9380 (#{gen-syntax\ 2817}#
9381 #{src\ 2925}#
9382 #{y\ 3017}#
9383 #{r\ 2927}#
9384 #{maps\ 3019}#
9385 #{ellipsis?\ 2929}#
9386 #{mod\ 2930}#))
9387 (lambda (#{y\ 3022}#
9388 #{maps\ 3023}#)
9389 (values
9390 (#{gen-cons\ 2825}#
9391 #{x\ 3018}#
9392 #{y\ 3022}#)
9393 #{maps\ 3023}#))))))
9394 #{tmp\ 3013}#)
9395 ((lambda (#{tmp\ 3026}#)
9396 (if #{tmp\ 3026}#
9397 (apply (lambda (#{e1\ 3029}#
9398 #{e2\ 3030}#)
9399 (call-with-values
9400 (lambda ()
9401 (#{gen-syntax\ 2817}#
9402 #{src\ 2925}#
9403 (cons #{e1\ 3029}#
9404 #{e2\ 3030}#)
9405 #{r\ 2927}#
9406 #{maps\ 2928}#
9407 #{ellipsis?\ 2929}#
9408 #{mod\ 2930}#))
9409 (lambda (#{e\ 3032}#
9410 #{maps\ 3033}#)
9411 (values
9412 (#{gen-vector\ 2829}#
9413 #{e\ 3032}#)
9414 #{maps\ 3033}#))))
9415 #{tmp\ 3026}#)
9416 ((lambda (#{_\ 3037}#)
9417 (values
9418 (list 'quote
9419 #{e\ 2926}#)
9420 #{maps\ 2928}#))
9421 #{tmp\ 2950}#)))
9422 ($sc-dispatch
9423 #{tmp\ 2950}#
9424 '#(vector (any . each-any))))))
9425 ($sc-dispatch
9426 #{tmp\ 2950}#
9427 '(any . any)))))
9428 ($sc-dispatch
9429 #{tmp\ 2950}#
9430 '(any any . any)))))
9431 ($sc-dispatch #{tmp\ 2950}# (quote (any any)))))
9432 #{e\ 2926}#)))))
9433 (lambda (#{e\ 3039}#
9434 #{r\ 3040}#
9435 #{w\ 3041}#
9436 #{s\ 3042}#
9437 #{mod\ 3043}#)
9438 (let ((#{e\ 3050}#
9439 (#{source-wrap\ 443}#
9440 #{e\ 3039}#
9441 #{w\ 3041}#
9442 #{s\ 3042}#
9443 #{mod\ 3043}#)))
9444 ((lambda (#{tmp\ 3051}#)
9445 ((lambda (#{tmp\ 3052}#)
9446 (if #{tmp\ 3052}#
9447 (apply (lambda (#{_\ 3055}# #{x\ 3056}#)
9448 (call-with-values
9449 (lambda ()
9450 (#{gen-syntax\ 2817}#
9451 #{e\ 3050}#
9452 #{x\ 3056}#
9453 #{r\ 3040}#
9454 '()
9455 #{ellipsis?\ 473}#
9456 #{mod\ 3043}#))
9457 (lambda (#{e\ 3057}# #{maps\ 3058}#)
9458 (#{regen\ 2831}# #{e\ 3057}#))))
9459 #{tmp\ 3052}#)
9460 ((lambda (#{_\ 3062}#)
9461 (syntax-violation
9462 'syntax
9463 "bad `syntax' form"
9464 #{e\ 3050}#))
9465 #{tmp\ 3051}#)))
9466 ($sc-dispatch #{tmp\ 3051}# (quote (any any)))))
9467 #{e\ 3050}#)))))
9468 (#{global-extend\ 368}#
9469 'core
9470 'lambda
9471 (lambda (#{e\ 3063}#
9472 #{r\ 3064}#
9473 #{w\ 3065}#
9474 #{s\ 3066}#
9475 #{mod\ 3067}#)
9476 ((lambda (#{tmp\ 3073}#)
9477 ((lambda (#{tmp\ 3074}#)
9478 (if #{tmp\ 3074}#
9479 (apply (lambda (#{_\ 3079}#
9480 #{args\ 3080}#
9481 #{e1\ 3081}#
9482 #{e2\ 3082}#)
9483 (call-with-values
9484 (lambda ()
9485 (#{lambda-formals\ 475}# #{args\ 3080}#))
9486 (lambda (#{req\ 3083}#
9487 #{opt\ 3084}#
9488 #{rest\ 3085}#
9489 #{kw\ 3086}#)
9490 (letrec ((#{lp\ 3094}#
9491 (lambda (#{body\ 3095}#
9492 #{meta\ 3096}#)
9493 ((lambda (#{tmp\ 3098}#)
9494 ((lambda (#{tmp\ 3099}#)
9495 (if (if #{tmp\ 3099}#
9496 (apply (lambda (#{docstring\ 3103}#
9497 #{e1\ 3104}#
9498 #{e2\ 3105}#)
9499 (string?
9500 (syntax->datum
9501 #{docstring\ 3103}#)))
9502 #{tmp\ 3099}#)
9503 #f)
9504 (apply (lambda (#{docstring\ 3109}#
9505 #{e1\ 3110}#
9506 #{e2\ 3111}#)
9507 (#{lp\ 3094}#
9508 (cons #{e1\ 3110}#
9509 #{e2\ 3111}#)
9510 (append
9511 #{meta\ 3096}#
9512 (list (cons 'documentation
9513 (syntax->datum
9514 #{docstring\ 3109}#))))))
9515 #{tmp\ 3099}#)
9516 ((lambda (#{tmp\ 3114}#)
9517 (if #{tmp\ 3114}#
9518 (apply (lambda (#{k\ 3119}#
9519 #{v\ 3120}#
9520 #{e1\ 3121}#
9521 #{e2\ 3122}#)
9522 (#{lp\ 3094}#
9523 (cons #{e1\ 3121}#
9524 #{e2\ 3122}#)
9525 (append
9526 #{meta\ 3096}#
9527 (syntax->datum
9528 (map cons
9529 #{k\ 3119}#
9530 #{v\ 3120}#)))))
9531 #{tmp\ 3114}#)
9532 ((lambda (#{_\ 3127}#)
9533 (#{chi-simple-lambda\ 477}#
9534 #{e\ 3063}#
9535 #{r\ 3064}#
9536 #{w\ 3065}#
9537 #{s\ 3066}#
9538 #{mod\ 3067}#
9539 #{req\ 3083}#
9540 #{rest\ 3085}#
9541 #{meta\ 3096}#
9542 #{body\ 3095}#))
9543 #{tmp\ 3098}#)))
9544 ($sc-dispatch
9545 #{tmp\ 3098}#
9546 '(#(vector
9547 #(each (any . any)))
9548 any
9549 .
9550 each-any)))))
9551 ($sc-dispatch
9552 #{tmp\ 3098}#
9553 '(any any . each-any))))
9554 #{body\ 3095}#))))
9555 (#{lp\ 3094}#
9556 (cons #{e1\ 3081}# #{e2\ 3082}#)
9557 '())))))
9558 #{tmp\ 3074}#)
9559 ((lambda (#{_\ 3129}#)
9560 (syntax-violation
9561 'lambda
9562 "bad lambda"
9563 #{e\ 3063}#))
9564 #{tmp\ 3073}#)))
9565 ($sc-dispatch
9566 #{tmp\ 3073}#
9567 '(any any any . each-any))))
9568 #{e\ 3063}#)))
9569 (#{global-extend\ 368}#
9570 'core
9571 'lambda*
9572 (lambda (#{e\ 3130}#
9573 #{r\ 3131}#
9574 #{w\ 3132}#
9575 #{s\ 3133}#
9576 #{mod\ 3134}#)
9577 ((lambda (#{tmp\ 3140}#)
9578 ((lambda (#{tmp\ 3141}#)
9579 (if #{tmp\ 3141}#
9580 (apply (lambda (#{_\ 3146}#
9581 #{args\ 3147}#
9582 #{e1\ 3148}#
9583 #{e2\ 3149}#)
9584 (call-with-values
9585 (lambda ()
9586 (#{chi-lambda-case\ 481}#
9587 #{e\ 3130}#
9588 #{r\ 3131}#
9589 #{w\ 3132}#
9590 #{s\ 3133}#
9591 #{mod\ 3134}#
9592 #{lambda*-formals\ 479}#
9593 (list (cons #{args\ 3147}#
9594 (cons #{e1\ 3148}#
9595 #{e2\ 3149}#)))))
9596 (lambda (#{meta\ 3151}# #{lcase\ 3152}#)
9597 (#{build-case-lambda\ 316}#
9598 #{s\ 3133}#
9599 #{meta\ 3151}#
9600 #{lcase\ 3152}#))))
9601 #{tmp\ 3141}#)
9602 ((lambda (#{_\ 3156}#)
9603 (syntax-violation
9604 'lambda
9605 "bad lambda*"
9606 #{e\ 3130}#))
9607 #{tmp\ 3140}#)))
9608 ($sc-dispatch
9609 #{tmp\ 3140}#
9610 '(any any any . each-any))))
9611 #{e\ 3130}#)))
9612 (#{global-extend\ 368}#
9613 'core
9614 'case-lambda
9615 (lambda (#{e\ 3157}#
9616 #{r\ 3158}#
9617 #{w\ 3159}#
9618 #{s\ 3160}#
9619 #{mod\ 3161}#)
9620 ((lambda (#{tmp\ 3167}#)
9621 ((lambda (#{tmp\ 3168}#)
9622 (if #{tmp\ 3168}#
9623 (apply (lambda (#{_\ 3176}#
9624 #{args\ 3177}#
9625 #{e1\ 3178}#
9626 #{e2\ 3179}#
9627 #{args*\ 3180}#
9628 #{e1*\ 3181}#
9629 #{e2*\ 3182}#)
9630 (call-with-values
9631 (lambda ()
9632 (#{chi-lambda-case\ 481}#
9633 #{e\ 3157}#
9634 #{r\ 3158}#
9635 #{w\ 3159}#
9636 #{s\ 3160}#
9637 #{mod\ 3161}#
9638 #{lambda-formals\ 475}#
9639 (cons (cons #{args\ 3177}#
9640 (cons #{e1\ 3178}# #{e2\ 3179}#))
9641 (map (lambda (#{tmp\ 3186}#
9642 #{tmp\ 3185}#
9643 #{tmp\ 3184}#)
9644 (cons #{tmp\ 3184}#
9645 (cons #{tmp\ 3185}#
9646 #{tmp\ 3186}#)))
9647 #{e2*\ 3182}#
9648 #{e1*\ 3181}#
9649 #{args*\ 3180}#))))
9650 (lambda (#{meta\ 3188}# #{lcase\ 3189}#)
9651 (#{build-case-lambda\ 316}#
9652 #{s\ 3160}#
9653 #{meta\ 3188}#
9654 #{lcase\ 3189}#))))
9655 #{tmp\ 3168}#)
9656 ((lambda (#{_\ 3193}#)
9657 (syntax-violation
9658 'case-lambda
9659 "bad case-lambda"
9660 #{e\ 3157}#))
9661 #{tmp\ 3167}#)))
9662 ($sc-dispatch
9663 #{tmp\ 3167}#
9664 '(any (any any . each-any)
9665 .
9666 #(each (any any . each-any))))))
9667 #{e\ 3157}#)))
9668 (#{global-extend\ 368}#
9669 'core
9670 'case-lambda*
9671 (lambda (#{e\ 3194}#
9672 #{r\ 3195}#
9673 #{w\ 3196}#
9674 #{s\ 3197}#
9675 #{mod\ 3198}#)
9676 ((lambda (#{tmp\ 3204}#)
9677 ((lambda (#{tmp\ 3205}#)
9678 (if #{tmp\ 3205}#
9679 (apply (lambda (#{_\ 3213}#
9680 #{args\ 3214}#
9681 #{e1\ 3215}#
9682 #{e2\ 3216}#
9683 #{args*\ 3217}#
9684 #{e1*\ 3218}#
9685 #{e2*\ 3219}#)
9686 (call-with-values
9687 (lambda ()
9688 (#{chi-lambda-case\ 481}#
9689 #{e\ 3194}#
9690 #{r\ 3195}#
9691 #{w\ 3196}#
9692 #{s\ 3197}#
9693 #{mod\ 3198}#
9694 #{lambda*-formals\ 479}#
9695 (cons (cons #{args\ 3214}#
9696 (cons #{e1\ 3215}# #{e2\ 3216}#))
9697 (map (lambda (#{tmp\ 3223}#
9698 #{tmp\ 3222}#
9699 #{tmp\ 3221}#)
9700 (cons #{tmp\ 3221}#
9701 (cons #{tmp\ 3222}#
9702 #{tmp\ 3223}#)))
9703 #{e2*\ 3219}#
9704 #{e1*\ 3218}#
9705 #{args*\ 3217}#))))
9706 (lambda (#{meta\ 3225}# #{lcase\ 3226}#)
9707 (#{build-case-lambda\ 316}#
9708 #{s\ 3197}#
9709 #{meta\ 3225}#
9710 #{lcase\ 3226}#))))
9711 #{tmp\ 3205}#)
9712 ((lambda (#{_\ 3230}#)
9713 (syntax-violation
9714 'case-lambda
9715 "bad case-lambda*"
9716 #{e\ 3194}#))
9717 #{tmp\ 3204}#)))
9718 ($sc-dispatch
9719 #{tmp\ 3204}#
9720 '(any (any any . each-any)
9721 .
9722 #(each (any any . each-any))))))
9723 #{e\ 3194}#)))
9724 (#{global-extend\ 368}#
9725 'core
9726 'let
9727 (letrec ((#{chi-let\ 3232}#
9728 (lambda (#{e\ 3233}#
9729 #{r\ 3234}#
9730 #{w\ 3235}#
9731 #{s\ 3236}#
9732 #{mod\ 3237}#
9733 #{constructor\ 3238}#
9734 #{ids\ 3239}#
9735 #{vals\ 3240}#
9736 #{exps\ 3241}#)
9737 (if (not (#{valid-bound-ids?\ 435}# #{ids\ 3239}#))
9738 (syntax-violation
9739 'let
9740 "duplicate bound variable"
9741 #{e\ 3233}#)
9742 (let ((#{labels\ 3253}#
9743 (#{gen-labels\ 390}# #{ids\ 3239}#))
9744 (#{new-vars\ 3254}#
9745 (map #{gen-var\ 485}# #{ids\ 3239}#)))
9746 (let ((#{nw\ 3257}#
9747 (#{make-binding-wrap\ 419}#
9748 #{ids\ 3239}#
9749 #{labels\ 3253}#
9750 #{w\ 3235}#))
9751 (#{nr\ 3258}#
9752 (#{extend-var-env\ 362}#
9753 #{labels\ 3253}#
9754 #{new-vars\ 3254}#
9755 #{r\ 3234}#)))
9756 (#{constructor\ 3238}#
9757 #{s\ 3236}#
9758 (map syntax->datum #{ids\ 3239}#)
9759 #{new-vars\ 3254}#
9760 (map (lambda (#{x\ 3259}#)
9761 (#{chi\ 457}#
9762 #{x\ 3259}#
9763 #{r\ 3234}#
9764 #{w\ 3235}#
9765 #{mod\ 3237}#))
9766 #{vals\ 3240}#)
9767 (#{chi-body\ 465}#
9768 #{exps\ 3241}#
9769 (#{source-wrap\ 443}#
9770 #{e\ 3233}#
9771 #{nw\ 3257}#
9772 #{s\ 3236}#
9773 #{mod\ 3237}#)
9774 #{nr\ 3258}#
9775 #{nw\ 3257}#
9776 #{mod\ 3237}#))))))))
9777 (lambda (#{e\ 3261}#
9778 #{r\ 3262}#
9779 #{w\ 3263}#
9780 #{s\ 3264}#
9781 #{mod\ 3265}#)
9782 ((lambda (#{tmp\ 3271}#)
9783 ((lambda (#{tmp\ 3272}#)
9784 (if (if #{tmp\ 3272}#
9785 (apply (lambda (#{_\ 3278}#
9786 #{id\ 3279}#
9787 #{val\ 3280}#
9788 #{e1\ 3281}#
9789 #{e2\ 3282}#)
9790 (and-map #{id?\ 372}# #{id\ 3279}#))
9791 #{tmp\ 3272}#)
9792 #f)
9793 (apply (lambda (#{_\ 3289}#
9794 #{id\ 3290}#
9795 #{val\ 3291}#
9796 #{e1\ 3292}#
9797 #{e2\ 3293}#)
9798 (#{chi-let\ 3232}#
9799 #{e\ 3261}#
9800 #{r\ 3262}#
9801 #{w\ 3263}#
9802 #{s\ 3264}#
9803 #{mod\ 3265}#
9804 #{build-let\ 326}#
9805 #{id\ 3290}#
9806 #{val\ 3291}#
9807 (cons #{e1\ 3292}# #{e2\ 3293}#)))
9808 #{tmp\ 3272}#)
9809 ((lambda (#{tmp\ 3297}#)
9810 (if (if #{tmp\ 3297}#
9811 (apply (lambda (#{_\ 3304}#
9812 #{f\ 3305}#
9813 #{id\ 3306}#
9814 #{val\ 3307}#
9815 #{e1\ 3308}#
9816 #{e2\ 3309}#)
9817 (if (#{id?\ 372}# #{f\ 3305}#)
9818 (and-map #{id?\ 372}# #{id\ 3306}#)
9819 #f))
9820 #{tmp\ 3297}#)
9821 #f)
9822 (apply (lambda (#{_\ 3319}#
9823 #{f\ 3320}#
9824 #{id\ 3321}#
9825 #{val\ 3322}#
9826 #{e1\ 3323}#
9827 #{e2\ 3324}#)
9828 (#{chi-let\ 3232}#
9829 #{e\ 3261}#
9830 #{r\ 3262}#
9831 #{w\ 3263}#
9832 #{s\ 3264}#
9833 #{mod\ 3265}#
9834 #{build-named-let\ 328}#
9835 (cons #{f\ 3320}# #{id\ 3321}#)
9836 #{val\ 3322}#
9837 (cons #{e1\ 3323}# #{e2\ 3324}#)))
9838 #{tmp\ 3297}#)
9839 ((lambda (#{_\ 3329}#)
9840 (syntax-violation
9841 'let
9842 "bad let"
9843 (#{source-wrap\ 443}#
9844 #{e\ 3261}#
9845 #{w\ 3263}#
9846 #{s\ 3264}#
9847 #{mod\ 3265}#)))
9848 #{tmp\ 3271}#)))
9849 ($sc-dispatch
9850 #{tmp\ 3271}#
9851 '(any any #(each (any any)) any . each-any)))))
9852 ($sc-dispatch
9853 #{tmp\ 3271}#
9854 '(any #(each (any any)) any . each-any))))
9855 #{e\ 3261}#))))
9856 (#{global-extend\ 368}#
9857 'core
9858 'letrec
9859 (lambda (#{e\ 3330}#
9860 #{r\ 3331}#
9861 #{w\ 3332}#
9862 #{s\ 3333}#
9863 #{mod\ 3334}#)
9864 ((lambda (#{tmp\ 3340}#)
9865 ((lambda (#{tmp\ 3341}#)
9866 (if (if #{tmp\ 3341}#
9867 (apply (lambda (#{_\ 3347}#
9868 #{id\ 3348}#
9869 #{val\ 3349}#
9870 #{e1\ 3350}#
9871 #{e2\ 3351}#)
9872 (and-map #{id?\ 372}# #{id\ 3348}#))
9873 #{tmp\ 3341}#)
9874 #f)
9875 (apply (lambda (#{_\ 3358}#
9876 #{id\ 3359}#
9877 #{val\ 3360}#
9878 #{e1\ 3361}#
9879 #{e2\ 3362}#)
9880 (let ((#{ids\ 3364}# #{id\ 3359}#))
9881 (if (not (#{valid-bound-ids?\ 435}#
9882 #{ids\ 3364}#))
9883 (syntax-violation
9884 'letrec
9885 "duplicate bound variable"
9886 #{e\ 3330}#)
9887 (let ((#{labels\ 3368}#
9888 (#{gen-labels\ 390}# #{ids\ 3364}#))
9889 (#{new-vars\ 3369}#
9890 (map #{gen-var\ 485}# #{ids\ 3364}#)))
9891 (let ((#{w\ 3372}#
9892 (#{make-binding-wrap\ 419}#
9893 #{ids\ 3364}#
9894 #{labels\ 3368}#
9895 #{w\ 3332}#))
9896 (#{r\ 3373}#
9897 (#{extend-var-env\ 362}#
9898 #{labels\ 3368}#
9899 #{new-vars\ 3369}#
9900 #{r\ 3331}#)))
9901 (#{build-letrec\ 330}#
9902 #{s\ 3333}#
9903 (map syntax->datum #{ids\ 3364}#)
9904 #{new-vars\ 3369}#
9905 (map (lambda (#{x\ 3374}#)
9906 (#{chi\ 457}#
9907 #{x\ 3374}#
9908 #{r\ 3373}#
9909 #{w\ 3372}#
9910 #{mod\ 3334}#))
9911 #{val\ 3360}#)
9912 (#{chi-body\ 465}#
9913 (cons #{e1\ 3361}# #{e2\ 3362}#)
9914 (#{source-wrap\ 443}#
9915 #{e\ 3330}#
9916 #{w\ 3372}#
9917 #{s\ 3333}#
9918 #{mod\ 3334}#)
9919 #{r\ 3373}#
9920 #{w\ 3372}#
9921 #{mod\ 3334}#)))))))
9922 #{tmp\ 3341}#)
9923 ((lambda (#{_\ 3379}#)
9924 (syntax-violation
9925 'letrec
9926 "bad letrec"
9927 (#{source-wrap\ 443}#
9928 #{e\ 3330}#
9929 #{w\ 3332}#
9930 #{s\ 3333}#
9931 #{mod\ 3334}#)))
9932 #{tmp\ 3340}#)))
9933 ($sc-dispatch
9934 #{tmp\ 3340}#
9935 '(any #(each (any any)) any . each-any))))
9936 #{e\ 3330}#)))
9937 (#{global-extend\ 368}#
9938 'core
9939 'set!
9940 (lambda (#{e\ 3380}#
9941 #{r\ 3381}#
9942 #{w\ 3382}#
9943 #{s\ 3383}#
9944 #{mod\ 3384}#)
9945 ((lambda (#{tmp\ 3390}#)
9946 ((lambda (#{tmp\ 3391}#)
9947 (if (if #{tmp\ 3391}#
9948 (apply (lambda (#{_\ 3395}# #{id\ 3396}# #{val\ 3397}#)
9949 (#{id?\ 372}# #{id\ 3396}#))
9950 #{tmp\ 3391}#)
9951 #f)
9952 (apply (lambda (#{_\ 3401}# #{id\ 3402}# #{val\ 3403}#)
9953 (let ((#{val\ 3406}#
9954 (#{chi\ 457}#
9955 #{val\ 3403}#
9956 #{r\ 3381}#
9957 #{w\ 3382}#
9958 #{mod\ 3384}#))
9959 (#{n\ 3407}#
9960 (#{id-var-name\ 429}#
9961 #{id\ 3402}#
9962 #{w\ 3382}#)))
9963 (let ((#{b\ 3409}#
9964 (#{lookup\ 366}#
9965 #{n\ 3407}#
9966 #{r\ 3381}#
9967 #{mod\ 3384}#)))
9968 (let ((#{atom-key\ 3412}#
9969 (#{binding-type\ 355}# #{b\ 3409}#)))
9970 (if (memv #{atom-key\ 3412}#
9971 '(lexical))
9972 (#{build-lexical-assignment\ 302}#
9973 #{s\ 3383}#
9974 (syntax->datum #{id\ 3402}#)
9975 (#{binding-value\ 357}# #{b\ 3409}#)
9976 #{val\ 3406}#)
9977 (if (memv #{atom-key\ 3412}#
9978 '(global))
9979 (#{build-global-assignment\ 308}#
9980 #{s\ 3383}#
9981 #{n\ 3407}#
9982 #{val\ 3406}#
9983 #{mod\ 3384}#)
9984 (if (memv #{atom-key\ 3412}#
9985 '(displaced-lexical))
9986 (syntax-violation
9987 'set!
9988 "identifier out of context"
9989 (#{wrap\ 441}#
9990 #{id\ 3402}#
9991 #{w\ 3382}#
9992 #{mod\ 3384}#))
9993 (syntax-violation
9994 'set!
9995 "bad set!"
9996 (#{source-wrap\ 443}#
9997 #{e\ 3380}#
9998 #{w\ 3382}#
9999 #{s\ 3383}#
10000 #{mod\ 3384}#)))))))))
10001 #{tmp\ 3391}#)
10002 ((lambda (#{tmp\ 3417}#)
10003 (if #{tmp\ 3417}#
10004 (apply (lambda (#{_\ 3422}#
10005 #{head\ 3423}#
10006 #{tail\ 3424}#
10007 #{val\ 3425}#)
10008 (call-with-values
10009 (lambda ()
10010 (#{syntax-type\ 453}#
10011 #{head\ 3423}#
10012 #{r\ 3381}#
10013 '(())
10014 #f
10015 #f
10016 #{mod\ 3384}#
10017 #t))
10018 (lambda (#{type\ 3428}#
10019 #{value\ 3429}#
10020 #{ee\ 3430}#
10021 #{ww\ 3431}#
10022 #{ss\ 3432}#
10023 #{modmod\ 3433}#)
10024 (if (memv #{type\ 3428}#
10025 '(module-ref))
10026 (let ((#{val\ 3442}#
10027 (#{chi\ 457}#
10028 #{val\ 3425}#
10029 #{r\ 3381}#
10030 #{w\ 3382}#
10031 #{mod\ 3384}#)))
10032 (call-with-values
10033 (lambda ()
10034 (#{value\ 3429}#
10035 (cons #{head\ 3423}#
10036 #{tail\ 3424}#)
10037 #{r\ 3381}#
10038 #{w\ 3382}#))
10039 (lambda (#{e\ 3444}#
10040 #{r\ 3445}#
10041 #{w\ 3446}#
10042 #{s*\ 3447}#
10043 #{mod\ 3448}#)
10044 ((lambda (#{tmp\ 3454}#)
10045 ((lambda (#{tmp\ 3455}#)
10046 (if (if #{tmp\ 3455}#
10047 (apply (lambda (#{e\ 3457}#)
10048 (#{id?\ 372}#
10049 #{e\ 3457}#))
10050 #{tmp\ 3455}#)
10051 #f)
10052 (apply (lambda (#{e\ 3459}#)
10053 (#{build-global-assignment\ 308}#
10054 #{s\ 3383}#
10055 (syntax->datum
10056 #{e\ 3459}#)
10057 #{val\ 3442}#
10058 #{mod\ 3448}#))
10059 #{tmp\ 3455}#)
10060 (syntax-violation
10061 #f
10062 "source expression failed to match any pattern"
10063 #{tmp\ 3454}#)))
10064 (list #{tmp\ 3454}#)))
10065 #{e\ 3444}#))))
10066 (#{build-application\ 294}#
10067 #{s\ 3383}#
10068 (#{chi\ 457}#
10069 (list '#(syntax-object
10070 setter
10071 ((top)
10072 #(ribcage () () ())
10073 #(ribcage () () ())
10074 #(ribcage
10075 #(type
10076 value
10077 ee
10078 ww
10079 ss
10080 modmod)
10081 #((top)
10082 (top)
10083 (top)
10084 (top)
10085 (top)
10086 (top))
10087 #("i3434"
10088 "i3435"
10089 "i3436"
10090 "i3437"
10091 "i3438"
10092 "i3439"))
10093 #(ribcage
10094 #(_ head tail val)
10095 #((top)
10096 (top)
10097 (top)
10098 (top))
10099 #("i3418"
10100 "i3419"
10101 "i3420"
10102 "i3421"))
10103 #(ribcage () () ())
10104 #(ribcage
10105 #(e r w s mod)
10106 #((top)
10107 (top)
10108 (top)
10109 (top)
10110 (top))
10111 #("i3385"
10112 "i3386"
10113 "i3387"
10114 "i3388"
10115 "i3389"))
10116 #(ribcage
10117 (lambda-var-list
10118 gen-var
10119 strip
10120 chi-lambda-case
10121 lambda*-formals
10122 chi-simple-lambda
10123 lambda-formals
10124 ellipsis?
10125 chi-void
10126 eval-local-transformer
10127 chi-local-syntax
10128 chi-body
10129 chi-macro
10130 chi-application
10131 chi-expr
10132 chi
10133 chi-top
10134 syntax-type
10135 chi-when-list
10136 chi-install-global
10137 chi-top-sequence
10138 chi-sequence
10139 source-wrap
10140 wrap
10141 bound-id-member?
10142 distinct-bound-ids?
10143 valid-bound-ids?
10144 bound-id=?
10145 free-id=?
10146 id-var-name
10147 same-marks?
10148 join-marks
10149 join-wraps
10150 smart-append
10151 make-binding-wrap
10152 extend-ribcage!
10153 make-empty-ribcage
10154 new-mark
10155 anti-mark
10156 the-anti-mark
10157 top-marked?
10158 top-wrap
10159 empty-wrap
10160 set-ribcage-labels!
10161 set-ribcage-marks!
10162 set-ribcage-symnames!
10163 ribcage-labels
10164 ribcage-marks
10165 ribcage-symnames
10166 ribcage?
10167 make-ribcage
10168 gen-labels
10169 gen-label
10170 make-rename
10171 rename-marks
10172 rename-new
10173 rename-old
10174 subst-rename?
10175 wrap-subst
10176 wrap-marks
10177 make-wrap
10178 id-sym-name&marks
10179 id-sym-name
10180 id?
10181 nonsymbol-id?
10182 global-extend
10183 lookup
10184 macros-only-env
10185 extend-var-env
10186 extend-env
10187 null-env
10188 binding-value
10189 binding-type
10190 make-binding
10191 arg-check
10192 source-annotation
10193 no-source
10194 set-syntax-object-module!
10195 set-syntax-object-wrap!
10196 set-syntax-object-expression!
10197 syntax-object-module
10198 syntax-object-wrap
10199 syntax-object-expression
10200 syntax-object?
10201 make-syntax-object
10202 build-lexical-var
10203 build-letrec
10204 build-named-let
10205 build-let
10206 build-sequence
10207 build-data
10208 build-primref
10209 build-lambda-case
10210 build-case-lambda
10211 build-simple-lambda
10212 build-global-definition
10213 maybe-name-value!
10214 build-global-assignment
10215 build-global-reference
10216 analyze-variable
10217 build-lexical-assignment
10218 build-lexical-reference
10219 build-dynlet
10220 build-conditional
10221 build-application
10222 build-void
10223 decorate-source
10224 get-global-definition-hook
10225 put-global-definition-hook
10226 gensym-hook
10227 local-eval-hook
10228 top-level-eval-hook
10229 fx<
10230 fx=
10231 fx-
10232 fx+
10233 set-lambda-meta!
10234 lambda-meta
10235 lambda?
10236 make-dynlet
10237 make-letrec
10238 make-let
10239 make-lambda-case
10240 make-lambda
10241 make-sequence
10242 make-application
10243 make-conditional
10244 make-toplevel-define
10245 make-toplevel-set
10246 make-toplevel-ref
10247 make-module-set
10248 make-module-ref
10249 make-lexical-set
10250 make-lexical-ref
10251 make-primitive-ref
10252 make-const
10253 make-void)
10254 ((top)
10255 (top)
10256 (top)
10257 (top)
10258 (top)
10259 (top)
10260 (top)
10261 (top)
10262 (top)
10263 (top)
10264 (top)
10265 (top)
10266 (top)
10267 (top)
10268 (top)
10269 (top)
10270 (top)
10271 (top)
10272 (top)
10273 (top)
10274 (top)
10275 (top)
10276 (top)
10277 (top)
10278 (top)
10279 (top)
10280 (top)
10281 (top)
10282 (top)
10283 (top)
10284 (top)
10285 (top)
10286 (top)
10287 (top)
10288 (top)
10289 (top)
10290 (top)
10291 (top)
10292 (top)
10293 (top)
10294 (top)
10295 (top)
10296 (top)
10297 (top)
10298 (top)
10299 (top)
10300 (top)
10301 (top)
10302 (top)
10303 (top)
10304 (top)
10305 (top)
10306 (top)
10307 (top)
10308 (top)
10309 (top)
10310 (top)
10311 (top)
10312 (top)
10313 (top)
10314 (top)
10315 (top)
10316 (top)
10317 (top)
10318 (top)
10319 (top)
10320 (top)
10321 (top)
10322 (top)
10323 (top)
10324 (top)
10325 (top)
10326 (top)
10327 (top)
10328 (top)
10329 (top)
10330 (top)
10331 (top)
10332 (top)
10333 (top)
10334 (top)
10335 (top)
10336 (top)
10337 (top)
10338 (top)
10339 (top)
10340 (top)
10341 (top)
10342 (top)
10343 (top)
10344 (top)
10345 (top)
10346 (top)
10347 (top)
10348 (top)
10349 (top)
10350 (top)
10351 (top)
10352 (top)
10353 (top)
10354 (top)
10355 (top)
10356 (top)
10357 (top)
10358 (top)
10359 (top)
10360 (top)
10361 (top)
10362 (top)
10363 (top)
10364 (top)
10365 (top)
10366 (top)
10367 (top)
10368 (top)
10369 (top)
10370 (top)
10371 (top)
10372 (top)
10373 (top)
10374 (top)
10375 (top)
10376 (top)
10377 (top)
10378 (top)
10379 (top)
10380 (top)
10381 (top)
10382 (top)
10383 (top)
10384 (top)
10385 (top)
10386 (top)
10387 (top)
10388 (top)
10389 (top)
10390 (top))
10391 ("i486"
10392 "i484"
10393 "i482"
10394 "i480"
10395 "i478"
10396 "i476"
10397 "i474"
10398 "i472"
10399 "i470"
10400 "i468"
10401 "i466"
10402 "i464"
10403 "i462"
10404 "i460"
10405 "i458"
10406 "i456"
10407 "i454"
10408 "i452"
10409 "i450"
10410 "i448"
10411 "i446"
10412 "i444"
10413 "i442"
10414 "i440"
10415 "i438"
10416 "i436"
10417 "i434"
10418 "i432"
10419 "i430"
10420 "i428"
10421 "i426"
10422 "i424"
10423 "i422"
10424 "i420"
10425 "i418"
10426 "i416"
10427 "i415"
10428 "i414"
10429 "i412"
10430 "i411"
10431 "i410"
10432 "i409"
10433 "i408"
10434 "i406"
10435 "i404"
10436 "i402"
10437 "i400"
10438 "i398"
10439 "i396"
10440 "i394"
10441 "i392"
10442 "i389"
10443 "i387"
10444 "i386"
10445 "i385"
10446 "i384"
10447 "i383"
10448 "i382"
10449 "i380"
10450 "i378"
10451 "i376"
10452 "i374"
10453 "i373"
10454 "i371"
10455 "i369"
10456 "i367"
10457 "i365"
10458 "i363"
10459 "i361"
10460 "i359"
10461 "i358"
10462 "i356"
10463 "i354"
10464 "i353"
10465 "i352"
10466 "i350"
10467 "i349"
10468 "i347"
10469 "i345"
10470 "i343"
10471 "i341"
10472 "i339"
10473 "i337"
10474 "i335"
10475 "i333"
10476 "i331"
10477 "i329"
10478 "i327"
10479 "i325"
10480 "i323"
10481 "i321"
10482 "i319"
10483 "i317"
10484 "i315"
10485 "i313"
10486 "i311"
10487 "i309"
10488 "i307"
10489 "i305"
10490 "i303"
10491 "i301"
10492 "i299"
10493 "i297"
10494 "i295"
10495 "i293"
10496 "i291"
10497 "i289"
10498 "i287"
10499 "i285"
10500 "i284"
10501 "i282"
10502 "i280"
10503 "i278"
10504 "i276"
10505 "i274"
10506 "i272"
10507 "i270"
10508 "i268"
10509 "i266"
10510 "i263"
10511 "i261"
10512 "i259"
10513 "i257"
10514 "i255"
10515 "i253"
10516 "i251"
10517 "i249"
10518 "i247"
10519 "i245"
10520 "i243"
10521 "i241"
10522 "i239"
10523 "i237"
10524 "i235"
10525 "i233"
10526 "i231"
10527 "i229"))
10528 #(ribcage
10529 (define-structure
10530 define-expansion-accessors
10531 define-expansion-constructors
10532 and-map*)
10533 ((top) (top) (top) (top))
10534 ("i23"
10535 "i22"
10536 "i21"
10537 "i19")))
10538 (hygiene guile))
10539 #{head\ 3423}#)
10540 #{r\ 3381}#
10541 #{w\ 3382}#
10542 #{mod\ 3384}#)
10543 (map (lambda (#{e\ 3461}#)
10544 (#{chi\ 457}#
10545 #{e\ 3461}#
10546 #{r\ 3381}#
10547 #{w\ 3382}#
10548 #{mod\ 3384}#))
10549 (append
10550 #{tail\ 3424}#
10551 (list #{val\ 3425}#))))))))
10552 #{tmp\ 3417}#)
10553 ((lambda (#{_\ 3465}#)
10554 (syntax-violation
10555 'set!
10556 "bad set!"
10557 (#{source-wrap\ 443}#
10558 #{e\ 3380}#
10559 #{w\ 3382}#
10560 #{s\ 3383}#
10561 #{mod\ 3384}#)))
10562 #{tmp\ 3390}#)))
10563 ($sc-dispatch
10564 #{tmp\ 3390}#
10565 '(any (any . each-any) any)))))
10566 ($sc-dispatch
10567 #{tmp\ 3390}#
10568 '(any any any))))
10569 #{e\ 3380}#)))
10570 (#{global-extend\ 368}#
10571 'module-ref
10572 '@
10573 (lambda (#{e\ 3466}# #{r\ 3467}# #{w\ 3468}#)
10574 ((lambda (#{tmp\ 3472}#)
10575 ((lambda (#{tmp\ 3473}#)
10576 (if (if #{tmp\ 3473}#
10577 (apply (lambda (#{_\ 3477}# #{mod\ 3478}# #{id\ 3479}#)
10578 (if (and-map #{id?\ 372}# #{mod\ 3478}#)
10579 (#{id?\ 372}# #{id\ 3479}#)
10580 #f))
10581 #{tmp\ 3473}#)
10582 #f)
10583 (apply (lambda (#{_\ 3486}# #{mod\ 3487}# #{id\ 3488}#)
10584 (values
10585 (syntax->datum #{id\ 3488}#)
10586 #{r\ 3467}#
10587 #{w\ 3468}#
10588 #f
10589 (syntax->datum
10590 (cons '#(syntax-object
10591 public
10592 ((top)
10593 #(ribcage
10594 #(_ mod id)
10595 #((top) (top) (top))
10596 #("i3483" "i3484" "i3485"))
10597 #(ribcage () () ())
10598 #(ribcage
10599 #(e r w)
10600 #((top) (top) (top))
10601 #("i3469" "i3470" "i3471"))
10602 #(ribcage
10603 (lambda-var-list
10604 gen-var
10605 strip
10606 chi-lambda-case
10607 lambda*-formals
10608 chi-simple-lambda
10609 lambda-formals
10610 ellipsis?
10611 chi-void
10612 eval-local-transformer
10613 chi-local-syntax
10614 chi-body
10615 chi-macro
10616 chi-application
10617 chi-expr
10618 chi
10619 chi-top
10620 syntax-type
10621 chi-when-list
10622 chi-install-global
10623 chi-top-sequence
10624 chi-sequence
10625 source-wrap
10626 wrap
10627 bound-id-member?
10628 distinct-bound-ids?
10629 valid-bound-ids?
10630 bound-id=?
10631 free-id=?
10632 id-var-name
10633 same-marks?
10634 join-marks
10635 join-wraps
10636 smart-append
10637 make-binding-wrap
10638 extend-ribcage!
10639 make-empty-ribcage
10640 new-mark
10641 anti-mark
10642 the-anti-mark
10643 top-marked?
10644 top-wrap
10645 empty-wrap
10646 set-ribcage-labels!
10647 set-ribcage-marks!
10648 set-ribcage-symnames!
10649 ribcage-labels
10650 ribcage-marks
10651 ribcage-symnames
10652 ribcage?
10653 make-ribcage
10654 gen-labels
10655 gen-label
10656 make-rename
10657 rename-marks
10658 rename-new
10659 rename-old
10660 subst-rename?
10661 wrap-subst
10662 wrap-marks
10663 make-wrap
10664 id-sym-name&marks
10665 id-sym-name
10666 id?
10667 nonsymbol-id?
10668 global-extend
10669 lookup
10670 macros-only-env
10671 extend-var-env
10672 extend-env
10673 null-env
10674 binding-value
10675 binding-type
10676 make-binding
10677 arg-check
10678 source-annotation
10679 no-source
10680 set-syntax-object-module!
10681 set-syntax-object-wrap!
10682 set-syntax-object-expression!
10683 syntax-object-module
10684 syntax-object-wrap
10685 syntax-object-expression
10686 syntax-object?
10687 make-syntax-object
10688 build-lexical-var
10689 build-letrec
10690 build-named-let
10691 build-let
10692 build-sequence
10693 build-data
10694 build-primref
10695 build-lambda-case
10696 build-case-lambda
10697 build-simple-lambda
10698 build-global-definition
10699 maybe-name-value!
10700 build-global-assignment
10701 build-global-reference
10702 analyze-variable
10703 build-lexical-assignment
10704 build-lexical-reference
10705 build-dynlet
10706 build-conditional
10707 build-application
10708 build-void
10709 decorate-source
10710 get-global-definition-hook
10711 put-global-definition-hook
10712 gensym-hook
10713 local-eval-hook
10714 top-level-eval-hook
10715 fx<
10716 fx=
10717 fx-
10718 fx+
10719 set-lambda-meta!
10720 lambda-meta
10721 lambda?
10722 make-dynlet
10723 make-letrec
10724 make-let
10725 make-lambda-case
10726 make-lambda
10727 make-sequence
10728 make-application
10729 make-conditional
10730 make-toplevel-define
10731 make-toplevel-set
10732 make-toplevel-ref
10733 make-module-set
10734 make-module-ref
10735 make-lexical-set
10736 make-lexical-ref
10737 make-primitive-ref
10738 make-const
10739 make-void)
10740 ((top)
10741 (top)
10742 (top)
10743 (top)
10744 (top)
10745 (top)
10746 (top)
10747 (top)
10748 (top)
10749 (top)
10750 (top)
10751 (top)
10752 (top)
10753 (top)
10754 (top)
10755 (top)
10756 (top)
10757 (top)
10758 (top)
10759 (top)
10760 (top)
10761 (top)
10762 (top)
10763 (top)
10764 (top)
10765 (top)
10766 (top)
10767 (top)
10768 (top)
10769 (top)
10770 (top)
10771 (top)
10772 (top)
10773 (top)
10774 (top)
10775 (top)
10776 (top)
10777 (top)
10778 (top)
10779 (top)
10780 (top)
10781 (top)
10782 (top)
10783 (top)
10784 (top)
10785 (top)
10786 (top)
10787 (top)
10788 (top)
10789 (top)
10790 (top)
10791 (top)
10792 (top)
10793 (top)
10794 (top)
10795 (top)
10796 (top)
10797 (top)
10798 (top)
10799 (top)
10800 (top)
10801 (top)
10802 (top)
10803 (top)
10804 (top)
10805 (top)
10806 (top)
10807 (top)
10808 (top)
10809 (top)
10810 (top)
10811 (top)
10812 (top)
10813 (top)
10814 (top)
10815 (top)
10816 (top)
10817 (top)
10818 (top)
10819 (top)
10820 (top)
10821 (top)
10822 (top)
10823 (top)
10824 (top)
10825 (top)
10826 (top)
10827 (top)
10828 (top)
10829 (top)
10830 (top)
10831 (top)
10832 (top)
10833 (top)
10834 (top)
10835 (top)
10836 (top)
10837 (top)
10838 (top)
10839 (top)
10840 (top)
10841 (top)
10842 (top)
10843 (top)
10844 (top)
10845 (top)
10846 (top)
10847 (top)
10848 (top)
10849 (top)
10850 (top)
10851 (top)
10852 (top)
10853 (top)
10854 (top)
10855 (top)
10856 (top)
10857 (top)
10858 (top)
10859 (top)
10860 (top)
10861 (top)
10862 (top)
10863 (top)
10864 (top)
10865 (top)
10866 (top)
10867 (top)
10868 (top)
10869 (top)
10870 (top)
10871 (top)
10872 (top)
10873 (top)
10874 (top)
10875 (top)
10876 (top))
10877 ("i486"
10878 "i484"
10879 "i482"
10880 "i480"
10881 "i478"
10882 "i476"
10883 "i474"
10884 "i472"
10885 "i470"
10886 "i468"
10887 "i466"
10888 "i464"
10889 "i462"
10890 "i460"
10891 "i458"
10892 "i456"
10893 "i454"
10894 "i452"
10895 "i450"
10896 "i448"
10897 "i446"
10898 "i444"
10899 "i442"
10900 "i440"
10901 "i438"
10902 "i436"
10903 "i434"
10904 "i432"
10905 "i430"
10906 "i428"
10907 "i426"
10908 "i424"
10909 "i422"
10910 "i420"
10911 "i418"
10912 "i416"
10913 "i415"
10914 "i414"
10915 "i412"
10916 "i411"
10917 "i410"
10918 "i409"
10919 "i408"
10920 "i406"
10921 "i404"
10922 "i402"
10923 "i400"
10924 "i398"
10925 "i396"
10926 "i394"
10927 "i392"
10928 "i389"
10929 "i387"
10930 "i386"
10931 "i385"
10932 "i384"
10933 "i383"
10934 "i382"
10935 "i380"
10936 "i378"
10937 "i376"
10938 "i374"
10939 "i373"
10940 "i371"
10941 "i369"
10942 "i367"
10943 "i365"
10944 "i363"
10945 "i361"
10946 "i359"
10947 "i358"
10948 "i356"
10949 "i354"
10950 "i353"
10951 "i352"
10952 "i350"
10953 "i349"
10954 "i347"
10955 "i345"
10956 "i343"
10957 "i341"
10958 "i339"
10959 "i337"
10960 "i335"
10961 "i333"
10962 "i331"
10963 "i329"
10964 "i327"
10965 "i325"
10966 "i323"
10967 "i321"
10968 "i319"
10969 "i317"
10970 "i315"
10971 "i313"
10972 "i311"
10973 "i309"
10974 "i307"
10975 "i305"
10976 "i303"
10977 "i301"
10978 "i299"
10979 "i297"
10980 "i295"
10981 "i293"
10982 "i291"
10983 "i289"
10984 "i287"
10985 "i285"
10986 "i284"
10987 "i282"
10988 "i280"
10989 "i278"
10990 "i276"
10991 "i274"
10992 "i272"
10993 "i270"
10994 "i268"
10995 "i266"
10996 "i263"
10997 "i261"
10998 "i259"
10999 "i257"
11000 "i255"
11001 "i253"
11002 "i251"
11003 "i249"
11004 "i247"
11005 "i245"
11006 "i243"
11007 "i241"
11008 "i239"
11009 "i237"
11010 "i235"
11011 "i233"
11012 "i231"
11013 "i229"))
11014 #(ribcage
11015 (define-structure
11016 define-expansion-accessors
11017 define-expansion-constructors
11018 and-map*)
11019 ((top) (top) (top) (top))
11020 ("i23" "i22" "i21" "i19")))
11021 (hygiene guile))
11022 #{mod\ 3487}#))))
11023 #{tmp\ 3473}#)
11024 (syntax-violation
11025 #f
11026 "source expression failed to match any pattern"
11027 #{tmp\ 3472}#)))
11028 ($sc-dispatch
11029 #{tmp\ 3472}#
11030 '(any each-any any))))
11031 #{e\ 3466}#)))
11032 (#{global-extend\ 368}#
11033 'module-ref
11034 '@@
11035 (lambda (#{e\ 3490}# #{r\ 3491}# #{w\ 3492}#)
11036 (letrec ((#{remodulate\ 3497}#
11037 (lambda (#{x\ 3498}# #{mod\ 3499}#)
11038 (if (pair? #{x\ 3498}#)
11039 (cons (#{remodulate\ 3497}#
11040 (car #{x\ 3498}#)
11041 #{mod\ 3499}#)
11042 (#{remodulate\ 3497}#
11043 (cdr #{x\ 3498}#)
11044 #{mod\ 3499}#))
11045 (if (#{syntax-object?\ 336}# #{x\ 3498}#)
11046 (#{make-syntax-object\ 334}#
11047 (#{remodulate\ 3497}#
11048 (#{syntax-object-expression\ 338}# #{x\ 3498}#)
11049 #{mod\ 3499}#)
11050 (#{syntax-object-wrap\ 340}# #{x\ 3498}#)
11051 #{mod\ 3499}#)
11052 (if (vector? #{x\ 3498}#)
11053 (let ((#{n\ 3510}# (vector-length #{x\ 3498}#)))
11054 (let ((#{v\ 3512}# (make-vector #{n\ 3510}#)))
11055 (letrec ((#{loop\ 3515}#
11056 (lambda (#{i\ 3516}#)
11057 (if (#{fx=\ 277}#
11058 #{i\ 3516}#
11059 #{n\ 3510}#)
11060 (begin (if #f #f) #{v\ 3512}#)
11061 (begin
11062 (vector-set!
11063 #{v\ 3512}#
11064 #{i\ 3516}#
11065 (#{remodulate\ 3497}#
11066 (vector-ref
11067 #{x\ 3498}#
11068 #{i\ 3516}#)
11069 #{mod\ 3499}#))
11070 (#{loop\ 3515}#
11071 (#{fx+\ 273}#
11072 #{i\ 3516}#
11073 1)))))))
11074 (#{loop\ 3515}# 0))))
11075 #{x\ 3498}#))))))
11076 ((lambda (#{tmp\ 3520}#)
11077 ((lambda (#{tmp\ 3521}#)
11078 (if (if #{tmp\ 3521}#
11079 (apply (lambda (#{_\ 3525}#
11080 #{mod\ 3526}#
11081 #{exp\ 3527}#)
11082 (and-map #{id?\ 372}# #{mod\ 3526}#))
11083 #{tmp\ 3521}#)
11084 #f)
11085 (apply (lambda (#{_\ 3532}# #{mod\ 3533}# #{exp\ 3534}#)
11086 (let ((#{mod\ 3536}#
11087 (syntax->datum
11088 (cons '#(syntax-object
11089 private
11090 ((top)
11091 #(ribcage
11092 #(_ mod exp)
11093 #((top) (top) (top))
11094 #("i3529" "i3530" "i3531"))
11095 #(ribcage
11096 (remodulate)
11097 ((top))
11098 ("i3496"))
11099 #(ribcage
11100 #(e r w)
11101 #((top) (top) (top))
11102 #("i3493" "i3494" "i3495"))
11103 #(ribcage
11104 (lambda-var-list
11105 gen-var
11106 strip
11107 chi-lambda-case
11108 lambda*-formals
11109 chi-simple-lambda
11110 lambda-formals
11111 ellipsis?
11112 chi-void
11113 eval-local-transformer
11114 chi-local-syntax
11115 chi-body
11116 chi-macro
11117 chi-application
11118 chi-expr
11119 chi
11120 chi-top
11121 syntax-type
11122 chi-when-list
11123 chi-install-global
11124 chi-top-sequence
11125 chi-sequence
11126 source-wrap
11127 wrap
11128 bound-id-member?
11129 distinct-bound-ids?
11130 valid-bound-ids?
11131 bound-id=?
11132 free-id=?
11133 id-var-name
11134 same-marks?
11135 join-marks
11136 join-wraps
11137 smart-append
11138 make-binding-wrap
11139 extend-ribcage!
11140 make-empty-ribcage
11141 new-mark
11142 anti-mark
11143 the-anti-mark
11144 top-marked?
11145 top-wrap
11146 empty-wrap
11147 set-ribcage-labels!
11148 set-ribcage-marks!
11149 set-ribcage-symnames!
11150 ribcage-labels
11151 ribcage-marks
11152 ribcage-symnames
11153 ribcage?
11154 make-ribcage
11155 gen-labels
11156 gen-label
11157 make-rename
11158 rename-marks
11159 rename-new
11160 rename-old
11161 subst-rename?
11162 wrap-subst
11163 wrap-marks
11164 make-wrap
11165 id-sym-name&marks
11166 id-sym-name
11167 id?
11168 nonsymbol-id?
11169 global-extend
11170 lookup
11171 macros-only-env
11172 extend-var-env
11173 extend-env
11174 null-env
11175 binding-value
11176 binding-type
11177 make-binding
11178 arg-check
11179 source-annotation
11180 no-source
11181 set-syntax-object-module!
11182 set-syntax-object-wrap!
11183 set-syntax-object-expression!
11184 syntax-object-module
11185 syntax-object-wrap
11186 syntax-object-expression
11187 syntax-object?
11188 make-syntax-object
11189 build-lexical-var
11190 build-letrec
11191 build-named-let
11192 build-let
11193 build-sequence
11194 build-data
11195 build-primref
11196 build-lambda-case
11197 build-case-lambda
11198 build-simple-lambda
11199 build-global-definition
11200 maybe-name-value!
11201 build-global-assignment
11202 build-global-reference
11203 analyze-variable
11204 build-lexical-assignment
11205 build-lexical-reference
11206 build-dynlet
11207 build-conditional
11208 build-application
11209 build-void
11210 decorate-source
11211 get-global-definition-hook
11212 put-global-definition-hook
11213 gensym-hook
11214 local-eval-hook
11215 top-level-eval-hook
11216 fx<
11217 fx=
11218 fx-
11219 fx+
11220 set-lambda-meta!
11221 lambda-meta
11222 lambda?
11223 make-dynlet
11224 make-letrec
11225 make-let
11226 make-lambda-case
11227 make-lambda
11228 make-sequence
11229 make-application
11230 make-conditional
11231 make-toplevel-define
11232 make-toplevel-set
11233 make-toplevel-ref
11234 make-module-set
11235 make-module-ref
11236 make-lexical-set
11237 make-lexical-ref
11238 make-primitive-ref
11239 make-const
11240 make-void)
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 (top)
11274 (top)
11275 (top)
11276 (top)
11277 (top)
11278 (top)
11279 (top)
11280 (top)
11281 (top)
11282 (top)
11283 (top)
11284 (top)
11285 (top)
11286 (top)
11287 (top)
11288 (top)
11289 (top)
11290 (top)
11291 (top)
11292 (top)
11293 (top)
11294 (top)
11295 (top)
11296 (top)
11297 (top)
11298 (top)
11299 (top)
11300 (top)
11301 (top)
11302 (top)
11303 (top)
11304 (top)
11305 (top)
11306 (top)
11307 (top)
11308 (top)
11309 (top)
11310 (top)
11311 (top)
11312 (top)
11313 (top)
11314 (top)
11315 (top)
11316 (top)
11317 (top)
11318 (top)
11319 (top)
11320 (top)
11321 (top)
11322 (top)
11323 (top)
11324 (top)
11325 (top)
11326 (top)
11327 (top)
11328 (top)
11329 (top)
11330 (top)
11331 (top)
11332 (top)
11333 (top)
11334 (top)
11335 (top)
11336 (top)
11337 (top)
11338 (top)
11339 (top)
11340 (top)
11341 (top)
11342 (top)
11343 (top)
11344 (top)
11345 (top)
11346 (top)
11347 (top)
11348 (top)
11349 (top)
11350 (top)
11351 (top)
11352 (top)
11353 (top)
11354 (top)
11355 (top)
11356 (top)
11357 (top)
11358 (top)
11359 (top)
11360 (top)
11361 (top)
11362 (top)
11363 (top)
11364 (top)
11365 (top)
11366 (top)
11367 (top)
11368 (top)
11369 (top)
11370 (top)
11371 (top)
11372 (top)
11373 (top)
11374 (top)
11375 (top)
11376 (top)
11377 (top))
11378 ("i486"
11379 "i484"
11380 "i482"
11381 "i480"
11382 "i478"
11383 "i476"
11384 "i474"
11385 "i472"
11386 "i470"
11387 "i468"
11388 "i466"
11389 "i464"
11390 "i462"
11391 "i460"
11392 "i458"
11393 "i456"
11394 "i454"
11395 "i452"
11396 "i450"
11397 "i448"
11398 "i446"
11399 "i444"
11400 "i442"
11401 "i440"
11402 "i438"
11403 "i436"
11404 "i434"
11405 "i432"
11406 "i430"
11407 "i428"
11408 "i426"
11409 "i424"
11410 "i422"
11411 "i420"
11412 "i418"
11413 "i416"
11414 "i415"
11415 "i414"
11416 "i412"
11417 "i411"
11418 "i410"
11419 "i409"
11420 "i408"
11421 "i406"
11422 "i404"
11423 "i402"
11424 "i400"
11425 "i398"
11426 "i396"
11427 "i394"
11428 "i392"
11429 "i389"
11430 "i387"
11431 "i386"
11432 "i385"
11433 "i384"
11434 "i383"
11435 "i382"
11436 "i380"
11437 "i378"
11438 "i376"
11439 "i374"
11440 "i373"
11441 "i371"
11442 "i369"
11443 "i367"
11444 "i365"
11445 "i363"
11446 "i361"
11447 "i359"
11448 "i358"
11449 "i356"
11450 "i354"
11451 "i353"
11452 "i352"
11453 "i350"
11454 "i349"
11455 "i347"
11456 "i345"
11457 "i343"
11458 "i341"
11459 "i339"
11460 "i337"
11461 "i335"
11462 "i333"
11463 "i331"
11464 "i329"
11465 "i327"
11466 "i325"
11467 "i323"
11468 "i321"
11469 "i319"
11470 "i317"
11471 "i315"
11472 "i313"
11473 "i311"
11474 "i309"
11475 "i307"
11476 "i305"
11477 "i303"
11478 "i301"
11479 "i299"
11480 "i297"
11481 "i295"
11482 "i293"
11483 "i291"
11484 "i289"
11485 "i287"
11486 "i285"
11487 "i284"
11488 "i282"
11489 "i280"
11490 "i278"
11491 "i276"
11492 "i274"
11493 "i272"
11494 "i270"
11495 "i268"
11496 "i266"
11497 "i263"
11498 "i261"
11499 "i259"
11500 "i257"
11501 "i255"
11502 "i253"
11503 "i251"
11504 "i249"
11505 "i247"
11506 "i245"
11507 "i243"
11508 "i241"
11509 "i239"
11510 "i237"
11511 "i235"
11512 "i233"
11513 "i231"
11514 "i229"))
11515 #(ribcage
11516 (define-structure
11517 define-expansion-accessors
11518 define-expansion-constructors
11519 and-map*)
11520 ((top) (top) (top) (top))
11521 ("i23" "i22" "i21" "i19")))
11522 (hygiene guile))
11523 #{mod\ 3533}#))))
11524 (values
11525 (#{remodulate\ 3497}#
11526 #{exp\ 3534}#
11527 #{mod\ 3536}#)
11528 #{r\ 3491}#
11529 #{w\ 3492}#
11530 (#{source-annotation\ 351}# #{exp\ 3534}#)
11531 #{mod\ 3536}#)))
11532 #{tmp\ 3521}#)
11533 (syntax-violation
11534 #f
11535 "source expression failed to match any pattern"
11536 #{tmp\ 3520}#)))
11537 ($sc-dispatch
11538 #{tmp\ 3520}#
11539 '(any each-any any))))
11540 #{e\ 3490}#))))
11541 (#{global-extend\ 368}#
11542 'core
11543 'if
11544 (lambda (#{e\ 3538}#
11545 #{r\ 3539}#
11546 #{w\ 3540}#
11547 #{s\ 3541}#
11548 #{mod\ 3542}#)
11549 ((lambda (#{tmp\ 3548}#)
11550 ((lambda (#{tmp\ 3549}#)
11551 (if #{tmp\ 3549}#
11552 (apply (lambda (#{_\ 3553}# #{test\ 3554}# #{then\ 3555}#)
11553 (#{build-conditional\ 296}#
11554 #{s\ 3541}#
11555 (#{chi\ 457}#
11556 #{test\ 3554}#
11557 #{r\ 3539}#
11558 #{w\ 3540}#
11559 #{mod\ 3542}#)
11560 (#{chi\ 457}#
11561 #{then\ 3555}#
11562 #{r\ 3539}#
11563 #{w\ 3540}#
11564 #{mod\ 3542}#)
11565 (#{build-void\ 292}# #f)))
11566 #{tmp\ 3549}#)
11567 ((lambda (#{tmp\ 3557}#)
11568 (if #{tmp\ 3557}#
11569 (apply (lambda (#{_\ 3562}#
11570 #{test\ 3563}#
11571 #{then\ 3564}#
11572 #{else\ 3565}#)
11573 (#{build-conditional\ 296}#
11574 #{s\ 3541}#
11575 (#{chi\ 457}#
11576 #{test\ 3563}#
11577 #{r\ 3539}#
11578 #{w\ 3540}#
11579 #{mod\ 3542}#)
11580 (#{chi\ 457}#
11581 #{then\ 3564}#
11582 #{r\ 3539}#
11583 #{w\ 3540}#
11584 #{mod\ 3542}#)
11585 (#{chi\ 457}#
11586 #{else\ 3565}#
11587 #{r\ 3539}#
11588 #{w\ 3540}#
11589 #{mod\ 3542}#)))
11590 #{tmp\ 3557}#)
11591 (syntax-violation
11592 #f
11593 "source expression failed to match any pattern"
11594 #{tmp\ 3548}#)))
11595 ($sc-dispatch
11596 #{tmp\ 3548}#
11597 '(any any any any)))))
11598 ($sc-dispatch
11599 #{tmp\ 3548}#
11600 '(any any any))))
11601 #{e\ 3538}#)))
11602 (#{global-extend\ 368}#
11603 'core
11604 'with-fluids
11605 (lambda (#{e\ 3566}#
11606 #{r\ 3567}#
11607 #{w\ 3568}#
11608 #{s\ 3569}#
11609 #{mod\ 3570}#)
11610 ((lambda (#{tmp\ 3576}#)
11611 ((lambda (#{tmp\ 3577}#)
11612 (if #{tmp\ 3577}#
11613 (apply (lambda (#{_\ 3583}#
11614 #{fluid\ 3584}#
11615 #{val\ 3585}#
11616 #{b\ 3586}#
11617 #{b*\ 3587}#)
11618 (#{build-dynlet\ 298}#
11619 #{s\ 3569}#
11620 (map (lambda (#{x\ 3588}#)
11621 (#{chi\ 457}#
11622 #{x\ 3588}#
11623 #{r\ 3567}#
11624 #{w\ 3568}#
11625 #{mod\ 3570}#))
11626 #{fluid\ 3584}#)
11627 (map (lambda (#{x\ 3591}#)
11628 (#{chi\ 457}#
11629 #{x\ 3591}#
11630 #{r\ 3567}#
11631 #{w\ 3568}#
11632 #{mod\ 3570}#))
11633 #{val\ 3585}#)
11634 (#{chi-body\ 465}#
11635 (cons #{b\ 3586}# #{b*\ 3587}#)
11636 (#{source-wrap\ 443}#
11637 #{e\ 3566}#
11638 #{w\ 3568}#
11639 #{s\ 3569}#
11640 #{mod\ 3570}#)
11641 #{r\ 3567}#
11642 #{w\ 3568}#
11643 #{mod\ 3570}#)))
11644 #{tmp\ 3577}#)
11645 (syntax-violation
11646 #f
11647 "source expression failed to match any pattern"
11648 #{tmp\ 3576}#)))
11649 ($sc-dispatch
11650 #{tmp\ 3576}#
11651 '(any #(each (any any)) any . each-any))))
11652 #{e\ 3566}#)))
11653 (#{global-extend\ 368}#
11654 'begin
11655 'begin
11656 '())
11657 (#{global-extend\ 368}#
11658 'define
11659 'define
11660 '())
11661 (#{global-extend\ 368}#
11662 'define-syntax
11663 'define-syntax
11664 '())
11665 (#{global-extend\ 368}#
11666 'eval-when
11667 'eval-when
11668 '())
11669 (#{global-extend\ 368}#
11670 'core
11671 'syntax-case
11672 (letrec ((#{gen-syntax-case\ 3602}#
11673 (lambda (#{x\ 3603}#
11674 #{keys\ 3604}#
11675 #{clauses\ 3605}#
11676 #{r\ 3606}#
11677 #{mod\ 3607}#)
11678 (if (null? #{clauses\ 3605}#)
11679 (#{build-application\ 294}#
11680 #f
11681 (#{build-primref\ 320}#
11682 #f
11683 'syntax-violation)
11684 (list (#{build-data\ 322}# #f #f)
11685 (#{build-data\ 322}#
11686 #f
11687 "source expression failed to match any pattern")
11688 #{x\ 3603}#))
11689 ((lambda (#{tmp\ 3617}#)
11690 ((lambda (#{tmp\ 3618}#)
11691 (if #{tmp\ 3618}#
11692 (apply (lambda (#{pat\ 3621}# #{exp\ 3622}#)
11693 (if (if (#{id?\ 372}# #{pat\ 3621}#)
11694 (and-map
11695 (lambda (#{x\ 3625}#)
11696 (not (#{free-id=?\ 431}#
11697 #{pat\ 3621}#
11698 #{x\ 3625}#)))
11699 (cons '#(syntax-object
11700 ...
11701 ((top)
11702 #(ribcage
11703 #(pat exp)
11704 #((top) (top))
11705 #("i3619" "i3620"))
11706 #(ribcage () () ())
11707 #(ribcage
11708 #(x
11709 keys
11710 clauses
11711 r
11712 mod)
11713 #((top)
11714 (top)
11715 (top)
11716 (top)
11717 (top))
11718 #("i3608"
11719 "i3609"
11720 "i3610"
11721 "i3611"
11722 "i3612"))
11723 #(ribcage
11724 (gen-syntax-case
11725 gen-clause
11726 build-dispatch-call
11727 convert-pattern)
11728 ((top)
11729 (top)
11730 (top)
11731 (top))
11732 ("i3601"
11733 "i3599"
11734 "i3597"
11735 "i3595"))
11736 #(ribcage
11737 (lambda-var-list
11738 gen-var
11739 strip
11740 chi-lambda-case
11741 lambda*-formals
11742 chi-simple-lambda
11743 lambda-formals
11744 ellipsis?
11745 chi-void
11746 eval-local-transformer
11747 chi-local-syntax
11748 chi-body
11749 chi-macro
11750 chi-application
11751 chi-expr
11752 chi
11753 chi-top
11754 syntax-type
11755 chi-when-list
11756 chi-install-global
11757 chi-top-sequence
11758 chi-sequence
11759 source-wrap
11760 wrap
11761 bound-id-member?
11762 distinct-bound-ids?
11763 valid-bound-ids?
11764 bound-id=?
11765 free-id=?
11766 id-var-name
11767 same-marks?
11768 join-marks
11769 join-wraps
11770 smart-append
11771 make-binding-wrap
11772 extend-ribcage!
11773 make-empty-ribcage
11774 new-mark
11775 anti-mark
11776 the-anti-mark
11777 top-marked?
11778 top-wrap
11779 empty-wrap
11780 set-ribcage-labels!
11781 set-ribcage-marks!
11782 set-ribcage-symnames!
11783 ribcage-labels
11784 ribcage-marks
11785 ribcage-symnames
11786 ribcage?
11787 make-ribcage
11788 gen-labels
11789 gen-label
11790 make-rename
11791 rename-marks
11792 rename-new
11793 rename-old
11794 subst-rename?
11795 wrap-subst
11796 wrap-marks
11797 make-wrap
11798 id-sym-name&marks
11799 id-sym-name
11800 id?
11801 nonsymbol-id?
11802 global-extend
11803 lookup
11804 macros-only-env
11805 extend-var-env
11806 extend-env
11807 null-env
11808 binding-value
11809 binding-type
11810 make-binding
11811 arg-check
11812 source-annotation
11813 no-source
11814 set-syntax-object-module!
11815 set-syntax-object-wrap!
11816 set-syntax-object-expression!
11817 syntax-object-module
11818 syntax-object-wrap
11819 syntax-object-expression
11820 syntax-object?
11821 make-syntax-object
11822 build-lexical-var
11823 build-letrec
11824 build-named-let
11825 build-let
11826 build-sequence
11827 build-data
11828 build-primref
11829 build-lambda-case
11830 build-case-lambda
11831 build-simple-lambda
11832 build-global-definition
11833 maybe-name-value!
11834 build-global-assignment
11835 build-global-reference
11836 analyze-variable
11837 build-lexical-assignment
11838 build-lexical-reference
11839 build-dynlet
11840 build-conditional
11841 build-application
11842 build-void
11843 decorate-source
11844 get-global-definition-hook
11845 put-global-definition-hook
11846 gensym-hook
11847 local-eval-hook
11848 top-level-eval-hook
11849 fx<
11850 fx=
11851 fx-
11852 fx+
11853 set-lambda-meta!
11854 lambda-meta
11855 lambda?
11856 make-dynlet
11857 make-letrec
11858 make-let
11859 make-lambda-case
11860 make-lambda
11861 make-sequence
11862 make-application
11863 make-conditional
11864 make-toplevel-define
11865 make-toplevel-set
11866 make-toplevel-ref
11867 make-module-set
11868 make-module-ref
11869 make-lexical-set
11870 make-lexical-ref
11871 make-primitive-ref
11872 make-const
11873 make-void)
11874 ((top)
11875 (top)
11876 (top)
11877 (top)
11878 (top)
11879 (top)
11880 (top)
11881 (top)
11882 (top)
11883 (top)
11884 (top)
11885 (top)
11886 (top)
11887 (top)
11888 (top)
11889 (top)
11890 (top)
11891 (top)
11892 (top)
11893 (top)
11894 (top)
11895 (top)
11896 (top)
11897 (top)
11898 (top)
11899 (top)
11900 (top)
11901 (top)
11902 (top)
11903 (top)
11904 (top)
11905 (top)
11906 (top)
11907 (top)
11908 (top)
11909 (top)
11910 (top)
11911 (top)
11912 (top)
11913 (top)
11914 (top)
11915 (top)
11916 (top)
11917 (top)
11918 (top)
11919 (top)
11920 (top)
11921 (top)
11922 (top)
11923 (top)
11924 (top)
11925 (top)
11926 (top)
11927 (top)
11928 (top)
11929 (top)
11930 (top)
11931 (top)
11932 (top)
11933 (top)
11934 (top)
11935 (top)
11936 (top)
11937 (top)
11938 (top)
11939 (top)
11940 (top)
11941 (top)
11942 (top)
11943 (top)
11944 (top)
11945 (top)
11946 (top)
11947 (top)
11948 (top)
11949 (top)
11950 (top)
11951 (top)
11952 (top)
11953 (top)
11954 (top)
11955 (top)
11956 (top)
11957 (top)
11958 (top)
11959 (top)
11960 (top)
11961 (top)
11962 (top)
11963 (top)
11964 (top)
11965 (top)
11966 (top)
11967 (top)
11968 (top)
11969 (top)
11970 (top)
11971 (top)
11972 (top)
11973 (top)
11974 (top)
11975 (top)
11976 (top)
11977 (top)
11978 (top)
11979 (top)
11980 (top)
11981 (top)
11982 (top)
11983 (top)
11984 (top)
11985 (top)
11986 (top)
11987 (top)
11988 (top)
11989 (top)
11990 (top)
11991 (top)
11992 (top)
11993 (top)
11994 (top)
11995 (top)
11996 (top)
11997 (top)
11998 (top)
11999 (top)
12000 (top)
12001 (top)
12002 (top)
12003 (top)
12004 (top)
12005 (top)
12006 (top)
12007 (top)
12008 (top)
12009 (top)
12010 (top))
12011 ("i486"
12012 "i484"
12013 "i482"
12014 "i480"
12015 "i478"
12016 "i476"
12017 "i474"
12018 "i472"
12019 "i470"
12020 "i468"
12021 "i466"
12022 "i464"
12023 "i462"
12024 "i460"
12025 "i458"
12026 "i456"
12027 "i454"
12028 "i452"
12029 "i450"
12030 "i448"
12031 "i446"
12032 "i444"
12033 "i442"
12034 "i440"
12035 "i438"
12036 "i436"
12037 "i434"
12038 "i432"
12039 "i430"
12040 "i428"
12041 "i426"
12042 "i424"
12043 "i422"
12044 "i420"
12045 "i418"
12046 "i416"
12047 "i415"
12048 "i414"
12049 "i412"
12050 "i411"
12051 "i410"
12052 "i409"
12053 "i408"
12054 "i406"
12055 "i404"
12056 "i402"
12057 "i400"
12058 "i398"
12059 "i396"
12060 "i394"
12061 "i392"
12062 "i389"
12063 "i387"
12064 "i386"
12065 "i385"
12066 "i384"
12067 "i383"
12068 "i382"
12069 "i380"
12070 "i378"
12071 "i376"
12072 "i374"
12073 "i373"
12074 "i371"
12075 "i369"
12076 "i367"
12077 "i365"
12078 "i363"
12079 "i361"
12080 "i359"
12081 "i358"
12082 "i356"
12083 "i354"
12084 "i353"
12085 "i352"
12086 "i350"
12087 "i349"
12088 "i347"
12089 "i345"
12090 "i343"
12091 "i341"
12092 "i339"
12093 "i337"
12094 "i335"
12095 "i333"
12096 "i331"
12097 "i329"
12098 "i327"
12099 "i325"
12100 "i323"
12101 "i321"
12102 "i319"
12103 "i317"
12104 "i315"
12105 "i313"
12106 "i311"
12107 "i309"
12108 "i307"
12109 "i305"
12110 "i303"
12111 "i301"
12112 "i299"
12113 "i297"
12114 "i295"
12115 "i293"
12116 "i291"
12117 "i289"
12118 "i287"
12119 "i285"
12120 "i284"
12121 "i282"
12122 "i280"
12123 "i278"
12124 "i276"
12125 "i274"
12126 "i272"
12127 "i270"
12128 "i268"
12129 "i266"
12130 "i263"
12131 "i261"
12132 "i259"
12133 "i257"
12134 "i255"
12135 "i253"
12136 "i251"
12137 "i249"
12138 "i247"
12139 "i245"
12140 "i243"
12141 "i241"
12142 "i239"
12143 "i237"
12144 "i235"
12145 "i233"
12146 "i231"
12147 "i229"))
12148 #(ribcage
12149 (define-structure
12150 define-expansion-accessors
12151 define-expansion-constructors
12152 and-map*)
12153 ((top)
12154 (top)
12155 (top)
12156 (top))
12157 ("i23"
12158 "i22"
12159 "i21"
12160 "i19")))
12161 (hygiene guile))
12162 #{keys\ 3604}#))
12163 #f)
12164 (let ((#{labels\ 3629}#
12165 (list (#{gen-label\ 388}#)))
12166 (#{var\ 3630}#
12167 (#{gen-var\ 485}#
12168 #{pat\ 3621}#)))
12169 (#{build-application\ 294}#
12170 #f
12171 (#{build-simple-lambda\ 314}#
12172 #f
12173 (list (syntax->datum
12174 #{pat\ 3621}#))
12175 #f
12176 (list #{var\ 3630}#)
12177 '()
12178 (#{chi\ 457}#
12179 #{exp\ 3622}#
12180 (#{extend-env\ 360}#
12181 #{labels\ 3629}#
12182 (list (cons 'syntax
12183 (cons #{var\ 3630}#
12184 0)))
12185 #{r\ 3606}#)
12186 (#{make-binding-wrap\ 419}#
12187 (list #{pat\ 3621}#)
12188 #{labels\ 3629}#
12189 '(()))
12190 #{mod\ 3607}#))
12191 (list #{x\ 3603}#)))
12192 (#{gen-clause\ 3600}#
12193 #{x\ 3603}#
12194 #{keys\ 3604}#
12195 (cdr #{clauses\ 3605}#)
12196 #{r\ 3606}#
12197 #{pat\ 3621}#
12198 #t
12199 #{exp\ 3622}#
12200 #{mod\ 3607}#)))
12201 #{tmp\ 3618}#)
12202 ((lambda (#{tmp\ 3636}#)
12203 (if #{tmp\ 3636}#
12204 (apply (lambda (#{pat\ 3640}#
12205 #{fender\ 3641}#
12206 #{exp\ 3642}#)
12207 (#{gen-clause\ 3600}#
12208 #{x\ 3603}#
12209 #{keys\ 3604}#
12210 (cdr #{clauses\ 3605}#)
12211 #{r\ 3606}#
12212 #{pat\ 3640}#
12213 #{fender\ 3641}#
12214 #{exp\ 3642}#
12215 #{mod\ 3607}#))
12216 #{tmp\ 3636}#)
12217 ((lambda (#{_\ 3644}#)
12218 (syntax-violation
12219 'syntax-case
12220 "invalid clause"
12221 (car #{clauses\ 3605}#)))
12222 #{tmp\ 3617}#)))
12223 ($sc-dispatch
12224 #{tmp\ 3617}#
12225 '(any any any)))))
12226 ($sc-dispatch #{tmp\ 3617}# (quote (any any)))))
12227 (car #{clauses\ 3605}#)))))
12228 (#{gen-clause\ 3600}#
12229 (lambda (#{x\ 3645}#
12230 #{keys\ 3646}#
12231 #{clauses\ 3647}#
12232 #{r\ 3648}#
12233 #{pat\ 3649}#
12234 #{fender\ 3650}#
12235 #{exp\ 3651}#
12236 #{mod\ 3652}#)
12237 (call-with-values
12238 (lambda ()
12239 (#{convert-pattern\ 3596}#
12240 #{pat\ 3649}#
12241 #{keys\ 3646}#))
12242 (lambda (#{p\ 3661}# #{pvars\ 3662}#)
12243 (if (not (#{distinct-bound-ids?\ 437}#
12244 (map car #{pvars\ 3662}#)))
12245 (syntax-violation
12246 'syntax-case
12247 "duplicate pattern variable"
12248 #{pat\ 3649}#)
12249 (if (not (and-map
12250 (lambda (#{x\ 3669}#)
12251 (not (#{ellipsis?\ 473}#
12252 (car #{x\ 3669}#))))
12253 #{pvars\ 3662}#))
12254 (syntax-violation
12255 'syntax-case
12256 "misplaced ellipsis"
12257 #{pat\ 3649}#)
12258 (let ((#{y\ 3673}#
12259 (#{gen-var\ 485}# (quote tmp))))
12260 (#{build-application\ 294}#
12261 #f
12262 (#{build-simple-lambda\ 314}#
12263 #f
12264 (list (quote tmp))
12265 #f
12266 (list #{y\ 3673}#)
12267 '()
12268 (let ((#{y\ 3677}#
12269 (#{build-lexical-reference\ 300}#
12270 'value
12271 #f
12272 'tmp
12273 #{y\ 3673}#)))
12274 (#{build-conditional\ 296}#
12275 #f
12276 ((lambda (#{tmp\ 3680}#)
12277 ((lambda (#{tmp\ 3681}#)
12278 (if #{tmp\ 3681}#
12279 (apply (lambda () #{y\ 3677}#)
12280 #{tmp\ 3681}#)
12281 ((lambda (#{_\ 3683}#)
12282 (#{build-conditional\ 296}#
12283 #f
12284 #{y\ 3677}#
12285 (#{build-dispatch-call\ 3598}#
12286 #{pvars\ 3662}#
12287 #{fender\ 3650}#
12288 #{y\ 3677}#
12289 #{r\ 3648}#
12290 #{mod\ 3652}#)
12291 (#{build-data\ 322}#
12292 #f
12293 #f)))
12294 #{tmp\ 3680}#)))
12295 ($sc-dispatch
12296 #{tmp\ 3680}#
12297 '#(atom #t))))
12298 #{fender\ 3650}#)
12299 (#{build-dispatch-call\ 3598}#
12300 #{pvars\ 3662}#
12301 #{exp\ 3651}#
12302 #{y\ 3677}#
12303 #{r\ 3648}#
12304 #{mod\ 3652}#)
12305 (#{gen-syntax-case\ 3602}#
12306 #{x\ 3645}#
12307 #{keys\ 3646}#
12308 #{clauses\ 3647}#
12309 #{r\ 3648}#
12310 #{mod\ 3652}#))))
12311 (list (if (eq? #{p\ 3661}# (quote any))
12312 (#{build-application\ 294}#
12313 #f
12314 (#{build-primref\ 320}#
12315 #f
12316 'list)
12317 (list #{x\ 3645}#))
12318 (#{build-application\ 294}#
12319 #f
12320 (#{build-primref\ 320}#
12321 #f
12322 '$sc-dispatch)
12323 (list #{x\ 3645}#
12324 (#{build-data\ 322}#
12325 #f
12326 #{p\ 3661}#)))))))))))))
12327 (#{build-dispatch-call\ 3598}#
12328 (lambda (#{pvars\ 3691}#
12329 #{exp\ 3692}#
12330 #{y\ 3693}#
12331 #{r\ 3694}#
12332 #{mod\ 3695}#)
12333 (let ((#{ids\ 3703}# (map car #{pvars\ 3691}#))
12334 (#{levels\ 3704}# (map cdr #{pvars\ 3691}#)))
12335 (let ((#{labels\ 3707}#
12336 (#{gen-labels\ 390}# #{ids\ 3703}#))
12337 (#{new-vars\ 3708}#
12338 (map #{gen-var\ 485}# #{ids\ 3703}#)))
12339 (#{build-application\ 294}#
12340 #f
12341 (#{build-primref\ 320}# #f (quote apply))
12342 (list (#{build-simple-lambda\ 314}#
12343 #f
12344 (map syntax->datum #{ids\ 3703}#)
12345 #f
12346 #{new-vars\ 3708}#
12347 '()
12348 (#{chi\ 457}#
12349 #{exp\ 3692}#
12350 (#{extend-env\ 360}#
12351 #{labels\ 3707}#
12352 (map (lambda (#{var\ 3712}#
12353 #{level\ 3713}#)
12354 (cons 'syntax
12355 (cons #{var\ 3712}#
12356 #{level\ 3713}#)))
12357 #{new-vars\ 3708}#
12358 (map cdr #{pvars\ 3691}#))
12359 #{r\ 3694}#)
12360 (#{make-binding-wrap\ 419}#
12361 #{ids\ 3703}#
12362 #{labels\ 3707}#
12363 '(()))
12364 #{mod\ 3695}#))
12365 #{y\ 3693}#))))))
12366 (#{convert-pattern\ 3596}#
12367 (lambda (#{pattern\ 3719}# #{keys\ 3720}#)
12368 (letrec ((#{cvt\ 3726}#
12369 (lambda (#{p\ 3727}# #{n\ 3728}# #{ids\ 3729}#)
12370 (if (#{id?\ 372}# #{p\ 3727}#)
12371 (if (#{bound-id-member?\ 439}#
12372 #{p\ 3727}#
12373 #{keys\ 3720}#)
12374 (values
12375 (vector (quote free-id) #{p\ 3727}#)
12376 #{ids\ 3729}#)
12377 (values
12378 'any
12379 (cons (cons #{p\ 3727}# #{n\ 3728}#)
12380 #{ids\ 3729}#)))
12381 ((lambda (#{tmp\ 3733}#)
12382 ((lambda (#{tmp\ 3734}#)
12383 (if (if #{tmp\ 3734}#
12384 (apply (lambda (#{x\ 3737}#
12385 #{dots\ 3738}#)
12386 (#{ellipsis?\ 473}#
12387 #{dots\ 3738}#))
12388 #{tmp\ 3734}#)
12389 #f)
12390 (apply (lambda (#{x\ 3741}#
12391 #{dots\ 3742}#)
12392 (call-with-values
12393 (lambda ()
12394 (#{cvt\ 3726}#
12395 #{x\ 3741}#
12396 (#{fx+\ 273}#
12397 #{n\ 3728}#
12398 1)
12399 #{ids\ 3729}#))
12400 (lambda (#{p\ 3743}#
12401 #{ids\ 3744}#)
12402 (values
12403 (if (eq? #{p\ 3743}#
12404 'any)
12405 'each-any
12406 (vector
12407 'each
12408 #{p\ 3743}#))
12409 #{ids\ 3744}#))))
12410 #{tmp\ 3734}#)
12411 ((lambda (#{tmp\ 3747}#)
12412 (if (if #{tmp\ 3747}#
12413 (apply (lambda (#{x\ 3751}#
12414 #{dots\ 3752}#
12415 #{ys\ 3753}#)
12416 (#{ellipsis?\ 473}#
12417 #{dots\ 3752}#))
12418 #{tmp\ 3747}#)
12419 #f)
12420 (apply (lambda (#{x\ 3757}#
12421 #{dots\ 3758}#
12422 #{ys\ 3759}#)
12423 (call-with-values
12424 (lambda ()
12425 (#{cvt*\ 3724}#
12426 #{ys\ 3759}#
12427 #{n\ 3728}#
12428 #{ids\ 3729}#))
12429 (lambda (#{ys\ 3761}#
12430 #{ids\ 3762}#)
12431 (call-with-values
12432 (lambda ()
12433 (#{cvt\ 3726}#
12434 #{x\ 3757}#
12435 (+ #{n\ 3728}#
12436 1)
12437 #{ids\ 3762}#))
12438 (lambda (#{x\ 3765}#
12439 #{ids\ 3766}#)
12440 (values
12441 (list->vector
12442 (cons 'each+
12443 (cons #{x\ 3765}#
12444 (cons (reverse
12445 #{ys\ 3761}#)
12446 '(())))))
12447 #{ids\ 3766}#))))))
12448 #{tmp\ 3747}#)
12449 ((lambda (#{tmp\ 3770}#)
12450 (if #{tmp\ 3770}#
12451 (apply (lambda (#{x\ 3773}#
12452 #{y\ 3774}#)
12453 (call-with-values
12454 (lambda ()
12455 (#{cvt\ 3726}#
12456 #{y\ 3774}#
12457 #{n\ 3728}#
12458 #{ids\ 3729}#))
12459 (lambda (#{y\ 3775}#
12460 #{ids\ 3776}#)
12461 (call-with-values
12462 (lambda ()
12463 (#{cvt\ 3726}#
12464 #{x\ 3773}#
12465 #{n\ 3728}#
12466 #{ids\ 3776}#))
12467 (lambda (#{x\ 3779}#
12468 #{ids\ 3780}#)
12469 (values
12470 (cons #{x\ 3779}#
12471 #{y\ 3775}#)
12472 #{ids\ 3780}#))))))
12473 #{tmp\ 3770}#)
12474 ((lambda (#{tmp\ 3783}#)
12475 (if #{tmp\ 3783}#
12476 (apply (lambda ()
12477 (values
12478 '()
12479 #{ids\ 3729}#))
12480 #{tmp\ 3783}#)
12481 ((lambda (#{tmp\ 3784}#)
12482 (if #{tmp\ 3784}#
12483 (apply (lambda (#{x\ 3786}#)
12484 (call-with-values
12485 (lambda ()
12486 (#{cvt\ 3726}#
12487 #{x\ 3786}#
12488 #{n\ 3728}#
12489 #{ids\ 3729}#))
12490 (lambda (#{p\ 3788}#
12491 #{ids\ 3789}#)
12492 (values
12493 (vector
12494 'vector
12495 #{p\ 3788}#)
12496 #{ids\ 3789}#))))
12497 #{tmp\ 3784}#)
12498 ((lambda (#{x\ 3793}#)
12499 (values
12500 (vector
12501 'atom
12502 (#{strip\ 483}#
12503 #{p\ 3727}#
12504 '(())))
12505 #{ids\ 3729}#))
12506 #{tmp\ 3733}#)))
12507 ($sc-dispatch
12508 #{tmp\ 3733}#
12509 '#(vector
12510 each-any)))))
12511 ($sc-dispatch
12512 #{tmp\ 3733}#
12513 '()))))
12514 ($sc-dispatch
12515 #{tmp\ 3733}#
12516 '(any . any)))))
12517 ($sc-dispatch
12518 #{tmp\ 3733}#
12519 '(any any . each-any)))))
12520 ($sc-dispatch
12521 #{tmp\ 3733}#
12522 '(any any))))
12523 #{p\ 3727}#))))
12524 (#{cvt*\ 3724}#
12525 (lambda (#{p*\ 3795}#
12526 #{n\ 3796}#
12527 #{ids\ 3797}#)
12528 (if (null? #{p*\ 3795}#)
12529 (values (quote ()) #{ids\ 3797}#)
12530 (call-with-values
12531 (lambda ()
12532 (#{cvt*\ 3724}#
12533 (cdr #{p*\ 3795}#)
12534 #{n\ 3796}#
12535 #{ids\ 3797}#))
12536 (lambda (#{y\ 3801}# #{ids\ 3802}#)
12537 (call-with-values
12538 (lambda ()
12539 (#{cvt\ 3726}#
12540 (car #{p*\ 3795}#)
12541 #{n\ 3796}#
12542 #{ids\ 3802}#))
12543 (lambda (#{x\ 3805}# #{ids\ 3806}#)
12544 (values
12545 (cons #{x\ 3805}# #{y\ 3801}#)
12546 #{ids\ 3806}#)))))))))
12547 (#{cvt\ 3726}# #{pattern\ 3719}# 0 (quote ()))))))
12548 (lambda (#{e\ 3809}#
12549 #{r\ 3810}#
12550 #{w\ 3811}#
12551 #{s\ 3812}#
12552 #{mod\ 3813}#)
12553 (let ((#{e\ 3820}#
12554 (#{source-wrap\ 443}#
12555 #{e\ 3809}#
12556 #{w\ 3811}#
12557 #{s\ 3812}#
12558 #{mod\ 3813}#)))
12559 ((lambda (#{tmp\ 3821}#)
12560 ((lambda (#{tmp\ 3822}#)
12561 (if #{tmp\ 3822}#
12562 (apply (lambda (#{_\ 3827}#
12563 #{val\ 3828}#
12564 #{key\ 3829}#
12565 #{m\ 3830}#)
12566 (if (and-map
12567 (lambda (#{x\ 3831}#)
12568 (if (#{id?\ 372}# #{x\ 3831}#)
12569 (not (#{ellipsis?\ 473}# #{x\ 3831}#))
12570 #f))
12571 #{key\ 3829}#)
12572 (let ((#{x\ 3837}#
12573 (#{gen-var\ 485}# (quote tmp))))
12574 (#{build-application\ 294}#
12575 #{s\ 3812}#
12576 (#{build-simple-lambda\ 314}#
12577 #f
12578 (list (quote tmp))
12579 #f
12580 (list #{x\ 3837}#)
12581 '()
12582 (#{gen-syntax-case\ 3602}#
12583 (#{build-lexical-reference\ 300}#
12584 'value
12585 #f
12586 'tmp
12587 #{x\ 3837}#)
12588 #{key\ 3829}#
12589 #{m\ 3830}#
12590 #{r\ 3810}#
12591 #{mod\ 3813}#))
12592 (list (#{chi\ 457}#
12593 #{val\ 3828}#
12594 #{r\ 3810}#
12595 '(())
12596 #{mod\ 3813}#))))
12597 (syntax-violation
12598 'syntax-case
12599 "invalid literals list"
12600 #{e\ 3820}#)))
12601 #{tmp\ 3822}#)
12602 (syntax-violation
12603 #f
12604 "source expression failed to match any pattern"
12605 #{tmp\ 3821}#)))
12606 ($sc-dispatch
12607 #{tmp\ 3821}#
12608 '(any any each-any . each-any))))
12609 #{e\ 3820}#)))))
12610 (set! macroexpand
12611 (lambda*
12612 (#{x\ 3843}#
12613 #:optional
12614 (#{m\ 3845}# (quote e))
12615 (#{esew\ 3847}# (quote (eval))))
12616 (#{chi-top\ 455}#
12617 #{x\ 3843}#
12618 '()
12619 '((top))
12620 #{m\ 3845}#
12621 #{esew\ 3847}#
12622 (cons 'hygiene
12623 (module-name (current-module))))))
12624 (set! identifier?
12625 (lambda (#{x\ 3851}#)
12626 (#{nonsymbol-id?\ 370}# #{x\ 3851}#)))
12627 (set! datum->syntax
12628 (lambda (#{id\ 3853}# #{datum\ 3854}#)
12629 (#{make-syntax-object\ 334}#
12630 #{datum\ 3854}#
12631 (#{syntax-object-wrap\ 340}# #{id\ 3853}#)
12632 (#{syntax-object-module\ 342}# #{id\ 3853}#))))
12633 (set! syntax->datum
12634 (lambda (#{x\ 3857}#)
12635 (#{strip\ 483}# #{x\ 3857}# (quote (())))))
12636 (set! syntax-source
12637 (lambda (#{x\ 3860}#)
12638 (#{source-annotation\ 351}# #{x\ 3860}#)))
12639 (set! generate-temporaries
12640 (lambda (#{ls\ 3862}#)
12641 (begin
12642 (let ((#{x\ 3866}# #{ls\ 3862}#))
12643 (if (not (list? #{x\ 3866}#))
12644 (syntax-violation
12645 'generate-temporaries
12646 "invalid argument"
12647 #{x\ 3866}#)))
12648 (map (lambda (#{x\ 3867}#)
12649 (#{wrap\ 441}# (gensym) (quote ((top))) #f))
12650 #{ls\ 3862}#))))
12651 (set! free-identifier=?
12652 (lambda (#{x\ 3871}# #{y\ 3872}#)
12653 (begin
12654 (let ((#{x\ 3877}# #{x\ 3871}#))
12655 (if (not (#{nonsymbol-id?\ 370}# #{x\ 3877}#))
12656 (syntax-violation
12657 'free-identifier=?
12658 "invalid argument"
12659 #{x\ 3877}#)))
12660 (let ((#{x\ 3880}# #{y\ 3872}#))
12661 (if (not (#{nonsymbol-id?\ 370}# #{x\ 3880}#))
12662 (syntax-violation
12663 'free-identifier=?
12664 "invalid argument"
12665 #{x\ 3880}#)))
12666 (#{free-id=?\ 431}# #{x\ 3871}# #{y\ 3872}#))))
12667 (set! bound-identifier=?
12668 (lambda (#{x\ 3881}# #{y\ 3882}#)
12669 (begin
12670 (let ((#{x\ 3887}# #{x\ 3881}#))
12671 (if (not (#{nonsymbol-id?\ 370}# #{x\ 3887}#))
12672 (syntax-violation
12673 'bound-identifier=?
12674 "invalid argument"
12675 #{x\ 3887}#)))
12676 (let ((#{x\ 3890}# #{y\ 3882}#))
12677 (if (not (#{nonsymbol-id?\ 370}# #{x\ 3890}#))
12678 (syntax-violation
12679 'bound-identifier=?
12680 "invalid argument"
12681 #{x\ 3890}#)))
12682 (#{bound-id=?\ 433}# #{x\ 3881}# #{y\ 3882}#))))
12683 (set! syntax-violation
12684 (lambda (#{who\ 3891}#
12685 #{message\ 3892}#
12686 #{form\ 3893}#
12687 .
12688 #{subform\ 3894}#)
12689 (begin
12690 (let ((#{x\ 3901}# #{who\ 3891}#))
12691 (if (not ((lambda (#{x\ 3902}#)
12692 (let ((#{t\ 3906}# (not #{x\ 3902}#)))
12693 (if #{t\ 3906}#
12694 #{t\ 3906}#
12695 (let ((#{t\ 3909}# (string? #{x\ 3902}#)))
12696 (if #{t\ 3909}#
12697 #{t\ 3909}#
12698 (symbol? #{x\ 3902}#))))))
12699 #{x\ 3901}#))
12700 (syntax-violation
12701 'syntax-violation
12702 "invalid argument"
12703 #{x\ 3901}#)))
12704 (let ((#{x\ 3913}# #{message\ 3892}#))
12705 (if (not (string? #{x\ 3913}#))
12706 (syntax-violation
12707 'syntax-violation
12708 "invalid argument"
12709 #{x\ 3913}#)))
12710 (scm-error
12711 'syntax-error
12712 'macroexpand
12713 (string-append
12714 (if #{who\ 3891}# "~a: " "")
12715 "~a "
12716 (if (null? #{subform\ 3894}#)
12717 "in ~a"
12718 "in subform `~s' of `~s'"))
12719 (let ((#{tail\ 3915}#
12720 (cons #{message\ 3892}#
12721 (map (lambda (#{x\ 3916}#)
12722 (#{strip\ 483}# #{x\ 3916}# (quote (()))))
12723 (append
12724 #{subform\ 3894}#
12725 (list #{form\ 3893}#))))))
12726 (if #{who\ 3891}#
12727 (cons #{who\ 3891}# #{tail\ 3915}#)
12728 #{tail\ 3915}#))
12729 #f))))
12730 (letrec ((#{match\ 3932}#
12731 (lambda (#{e\ 3933}#
12732 #{p\ 3934}#
12733 #{w\ 3935}#
12734 #{r\ 3936}#
12735 #{mod\ 3937}#)
12736 (if (not #{r\ 3936}#)
12737 #f
12738 (if (eq? #{p\ 3934}# (quote any))
12739 (cons (#{wrap\ 441}#
12740 #{e\ 3933}#
12741 #{w\ 3935}#
12742 #{mod\ 3937}#)
12743 #{r\ 3936}#)
12744 (if (#{syntax-object?\ 336}# #{e\ 3933}#)
12745 (#{match*\ 3930}#
12746 (#{syntax-object-expression\ 338}# #{e\ 3933}#)
12747 #{p\ 3934}#
12748 (#{join-wraps\ 423}#
12749 #{w\ 3935}#
12750 (#{syntax-object-wrap\ 340}# #{e\ 3933}#))
12751 #{r\ 3936}#
12752 (#{syntax-object-module\ 342}# #{e\ 3933}#))
12753 (#{match*\ 3930}#
12754 #{e\ 3933}#
12755 #{p\ 3934}#
12756 #{w\ 3935}#
12757 #{r\ 3936}#
12758 #{mod\ 3937}#))))))
12759 (#{match*\ 3930}#
12760 (lambda (#{e\ 3950}#
12761 #{p\ 3951}#
12762 #{w\ 3952}#
12763 #{r\ 3953}#
12764 #{mod\ 3954}#)
12765 (if (null? #{p\ 3951}#)
12766 (if (null? #{e\ 3950}#) #{r\ 3953}# #f)
12767 (if (pair? #{p\ 3951}#)
12768 (if (pair? #{e\ 3950}#)
12769 (#{match\ 3932}#
12770 (car #{e\ 3950}#)
12771 (car #{p\ 3951}#)
12772 #{w\ 3952}#
12773 (#{match\ 3932}#
12774 (cdr #{e\ 3950}#)
12775 (cdr #{p\ 3951}#)
12776 #{w\ 3952}#
12777 #{r\ 3953}#
12778 #{mod\ 3954}#)
12779 #{mod\ 3954}#)
12780 #f)
12781 (if (eq? #{p\ 3951}# (quote each-any))
12782 (let ((#{l\ 3971}#
12783 (#{match-each-any\ 3924}#
12784 #{e\ 3950}#
12785 #{w\ 3952}#
12786 #{mod\ 3954}#)))
12787 (if #{l\ 3971}#
12788 (cons #{l\ 3971}# #{r\ 3953}#)
12789 #f))
12790 (let ((#{atom-key\ 3977}# (vector-ref #{p\ 3951}# 0)))
12791 (if (memv #{atom-key\ 3977}# (quote (each)))
12792 (if (null? #{e\ 3950}#)
12793 (#{match-empty\ 3926}#
12794 (vector-ref #{p\ 3951}# 1)
12795 #{r\ 3953}#)
12796 (let ((#{l\ 3980}#
12797 (#{match-each\ 3920}#
12798 #{e\ 3950}#
12799 (vector-ref #{p\ 3951}# 1)
12800 #{w\ 3952}#
12801 #{mod\ 3954}#)))
12802 (if #{l\ 3980}#
12803 (letrec ((#{collect\ 3985}#
12804 (lambda (#{l\ 3986}#)
12805 (if (null? (car #{l\ 3986}#))
12806 #{r\ 3953}#
12807 (cons (map car #{l\ 3986}#)
12808 (#{collect\ 3985}#
12809 (map cdr
12810 #{l\ 3986}#)))))))
12811 (#{collect\ 3985}# #{l\ 3980}#))
12812 #f)))
12813 (if (memv #{atom-key\ 3977}# (quote (each+)))
12814 (call-with-values
12815 (lambda ()
12816 (#{match-each+\ 3922}#
12817 #{e\ 3950}#
12818 (vector-ref #{p\ 3951}# 1)
12819 (vector-ref #{p\ 3951}# 2)
12820 (vector-ref #{p\ 3951}# 3)
12821 #{w\ 3952}#
12822 #{r\ 3953}#
12823 #{mod\ 3954}#))
12824 (lambda (#{xr*\ 3988}#
12825 #{y-pat\ 3989}#
12826 #{r\ 3990}#)
12827 (if #{r\ 3990}#
12828 (if (null? #{y-pat\ 3989}#)
12829 (if (null? #{xr*\ 3988}#)
12830 (#{match-empty\ 3926}#
12831 (vector-ref #{p\ 3951}# 1)
12832 #{r\ 3990}#)
12833 (#{combine\ 3928}#
12834 #{xr*\ 3988}#
12835 #{r\ 3990}#))
12836 #f)
12837 #f)))
12838 (if (memv #{atom-key\ 3977}# (quote (free-id)))
12839 (if (#{id?\ 372}# #{e\ 3950}#)
12840 (if (#{free-id=?\ 431}#
12841 (#{wrap\ 441}#
12842 #{e\ 3950}#
12843 #{w\ 3952}#
12844 #{mod\ 3954}#)
12845 (vector-ref #{p\ 3951}# 1))
12846 #{r\ 3953}#
12847 #f)
12848 #f)
12849 (if (memv #{atom-key\ 3977}# (quote (atom)))
12850 (if (equal?
12851 (vector-ref #{p\ 3951}# 1)
12852 (#{strip\ 483}#
12853 #{e\ 3950}#
12854 #{w\ 3952}#))
12855 #{r\ 3953}#
12856 #f)
12857 (if (memv #{atom-key\ 3977}#
12858 '(vector))
12859 (if (vector? #{e\ 3950}#)
12860 (#{match\ 3932}#
12861 (vector->list #{e\ 3950}#)
12862 (vector-ref #{p\ 3951}# 1)
12863 #{w\ 3952}#
12864 #{r\ 3953}#
12865 #{mod\ 3954}#)
12866 #f))))))))))))
12867 (#{combine\ 3928}#
12868 (lambda (#{r*\ 4007}# #{r\ 4008}#)
12869 (if (null? (car #{r*\ 4007}#))
12870 #{r\ 4008}#
12871 (cons (map car #{r*\ 4007}#)
12872 (#{combine\ 3928}#
12873 (map cdr #{r*\ 4007}#)
12874 #{r\ 4008}#)))))
12875 (#{match-empty\ 3926}#
12876 (lambda (#{p\ 4011}# #{r\ 4012}#)
12877 (if (null? #{p\ 4011}#)
12878 #{r\ 4012}#
12879 (if (eq? #{p\ 4011}# (quote any))
12880 (cons (quote ()) #{r\ 4012}#)
12881 (if (pair? #{p\ 4011}#)
12882 (#{match-empty\ 3926}#
12883 (car #{p\ 4011}#)
12884 (#{match-empty\ 3926}#
12885 (cdr #{p\ 4011}#)
12886 #{r\ 4012}#))
12887 (if (eq? #{p\ 4011}# (quote each-any))
12888 (cons (quote ()) #{r\ 4012}#)
12889 (let ((#{atom-key\ 4026}#
12890 (vector-ref #{p\ 4011}# 0)))
12891 (if (memv #{atom-key\ 4026}# (quote (each)))
12892 (#{match-empty\ 3926}#
12893 (vector-ref #{p\ 4011}# 1)
12894 #{r\ 4012}#)
12895 (if (memv #{atom-key\ 4026}# (quote (each+)))
12896 (#{match-empty\ 3926}#
12897 (vector-ref #{p\ 4011}# 1)
12898 (#{match-empty\ 3926}#
12899 (reverse (vector-ref #{p\ 4011}# 2))
12900 (#{match-empty\ 3926}#
12901 (vector-ref #{p\ 4011}# 3)
12902 #{r\ 4012}#)))
12903 (if (memv #{atom-key\ 4026}#
12904 '(free-id atom))
12905 #{r\ 4012}#
12906 (if (memv #{atom-key\ 4026}#
12907 '(vector))
12908 (#{match-empty\ 3926}#
12909 (vector-ref #{p\ 4011}# 1)
12910 #{r\ 4012}#))))))))))))
12911 (#{match-each-any\ 3924}#
12912 (lambda (#{e\ 4031}# #{w\ 4032}# #{mod\ 4033}#)
12913 (if (pair? #{e\ 4031}#)
12914 (let ((#{l\ 4040}#
12915 (#{match-each-any\ 3924}#
12916 (cdr #{e\ 4031}#)
12917 #{w\ 4032}#
12918 #{mod\ 4033}#)))
12919 (if #{l\ 4040}#
12920 (cons (#{wrap\ 441}#
12921 (car #{e\ 4031}#)
12922 #{w\ 4032}#
12923 #{mod\ 4033}#)
12924 #{l\ 4040}#)
12925 #f))
12926 (if (null? #{e\ 4031}#)
12927 '()
12928 (if (#{syntax-object?\ 336}# #{e\ 4031}#)
12929 (#{match-each-any\ 3924}#
12930 (#{syntax-object-expression\ 338}# #{e\ 4031}#)
12931 (#{join-wraps\ 423}#
12932 #{w\ 4032}#
12933 (#{syntax-object-wrap\ 340}# #{e\ 4031}#))
12934 #{mod\ 4033}#)
12935 #f)))))
12936 (#{match-each+\ 3922}#
12937 (lambda (#{e\ 4048}#
12938 #{x-pat\ 4049}#
12939 #{y-pat\ 4050}#
12940 #{z-pat\ 4051}#
12941 #{w\ 4052}#
12942 #{r\ 4053}#
12943 #{mod\ 4054}#)
12944 (letrec ((#{f\ 4065}#
12945 (lambda (#{e\ 4066}# #{w\ 4067}#)
12946 (if (pair? #{e\ 4066}#)
12947 (call-with-values
12948 (lambda ()
12949 (#{f\ 4065}#
12950 (cdr #{e\ 4066}#)
12951 #{w\ 4067}#))
12952 (lambda (#{xr*\ 4070}#
12953 #{y-pat\ 4071}#
12954 #{r\ 4072}#)
12955 (if #{r\ 4072}#
12956 (if (null? #{y-pat\ 4071}#)
12957 (let ((#{xr\ 4077}#
12958 (#{match\ 3932}#
12959 (car #{e\ 4066}#)
12960 #{x-pat\ 4049}#
12961 #{w\ 4067}#
12962 '()
12963 #{mod\ 4054}#)))
12964 (if #{xr\ 4077}#
12965 (values
12966 (cons #{xr\ 4077}#
12967 #{xr*\ 4070}#)
12968 #{y-pat\ 4071}#
12969 #{r\ 4072}#)
12970 (values #f #f #f)))
12971 (values
12972 '()
12973 (cdr #{y-pat\ 4071}#)
12974 (#{match\ 3932}#
12975 (car #{e\ 4066}#)
12976 (car #{y-pat\ 4071}#)
12977 #{w\ 4067}#
12978 #{r\ 4072}#
12979 #{mod\ 4054}#)))
12980 (values #f #f #f))))
12981 (if (#{syntax-object?\ 336}# #{e\ 4066}#)
12982 (#{f\ 4065}#
12983 (#{syntax-object-expression\ 338}#
12984 #{e\ 4066}#)
12985 (#{join-wraps\ 423}#
12986 #{w\ 4067}#
12987 #{e\ 4066}#))
12988 (values
12989 '()
12990 #{y-pat\ 4050}#
12991 (#{match\ 3932}#
12992 #{e\ 4066}#
12993 #{z-pat\ 4051}#
12994 #{w\ 4067}#
12995 #{r\ 4053}#
12996 #{mod\ 4054}#)))))))
12997 (#{f\ 4065}# #{e\ 4048}# #{w\ 4052}#))))
12998 (#{match-each\ 3920}#
12999 (lambda (#{e\ 4081}#
13000 #{p\ 4082}#
13001 #{w\ 4083}#
13002 #{mod\ 4084}#)
13003 (if (pair? #{e\ 4081}#)
13004 (let ((#{first\ 4092}#
13005 (#{match\ 3932}#
13006 (car #{e\ 4081}#)
13007 #{p\ 4082}#
13008 #{w\ 4083}#
13009 '()
13010 #{mod\ 4084}#)))
13011 (if #{first\ 4092}#
13012 (let ((#{rest\ 4096}#
13013 (#{match-each\ 3920}#
13014 (cdr #{e\ 4081}#)
13015 #{p\ 4082}#
13016 #{w\ 4083}#
13017 #{mod\ 4084}#)))
13018 (if #{rest\ 4096}#
13019 (cons #{first\ 4092}# #{rest\ 4096}#)
13020 #f))
13021 #f))
13022 (if (null? #{e\ 4081}#)
13023 '()
13024 (if (#{syntax-object?\ 336}# #{e\ 4081}#)
13025 (#{match-each\ 3920}#
13026 (#{syntax-object-expression\ 338}# #{e\ 4081}#)
13027 #{p\ 4082}#
13028 (#{join-wraps\ 423}#
13029 #{w\ 4083}#
13030 (#{syntax-object-wrap\ 340}# #{e\ 4081}#))
13031 (#{syntax-object-module\ 342}# #{e\ 4081}#))
13032 #f))))))
13033 (set! $sc-dispatch
13034 (lambda (#{e\ 4104}# #{p\ 4105}#)
13035 (if (eq? #{p\ 4105}# (quote any))
13036 (list #{e\ 4104}#)
13037 (if (#{syntax-object?\ 336}# #{e\ 4104}#)
13038 (#{match*\ 3930}#
13039 (#{syntax-object-expression\ 338}# #{e\ 4104}#)
13040 #{p\ 4105}#
13041 (#{syntax-object-wrap\ 340}# #{e\ 4104}#)
13042 '()
13043 (#{syntax-object-module\ 342}# #{e\ 4104}#))
13044 (#{match*\ 3930}#
13045 #{e\ 4104}#
13046 #{p\ 4105}#
13047 '(())
13048 '()
13049 #f)))))))))
13050
13051 (define with-syntax
13052 (make-syntax-transformer
13053 'with-syntax
13054 'macro
13055 (lambda (#{x\ 4114}#)
13056 ((lambda (#{tmp\ 4116}#)
13057 ((lambda (#{tmp\ 4117}#)
13058 (if #{tmp\ 4117}#
13059 (apply (lambda (#{_\ 4121}# #{e1\ 4122}# #{e2\ 4123}#)
13060 (cons '#(syntax-object
13061 begin
13062 ((top)
13063 #(ribcage
13064 #(_ e1 e2)
13065 #((top) (top) (top))
13066 #("i4118" "i4119" "i4120"))
13067 #(ribcage () () ())
13068 #(ribcage #(x) #((top)) #("i4115")))
13069 (hygiene guile))
13070 (cons #{e1\ 4122}# #{e2\ 4123}#)))
13071 #{tmp\ 4117}#)
13072 ((lambda (#{tmp\ 4125}#)
13073 (if #{tmp\ 4125}#
13074 (apply (lambda (#{_\ 4131}#
13075 #{out\ 4132}#
13076 #{in\ 4133}#
13077 #{e1\ 4134}#
13078 #{e2\ 4135}#)
13079 (list '#(syntax-object
13080 syntax-case
13081 ((top)
13082 #(ribcage
13083 #(_ out in e1 e2)
13084 #((top) (top) (top) (top) (top))
13085 #("i4126"
13086 "i4127"
13087 "i4128"
13088 "i4129"
13089 "i4130"))
13090 #(ribcage () () ())
13091 #(ribcage #(x) #((top)) #("i4115")))
13092 (hygiene guile))
13093 #{in\ 4133}#
13094 '()
13095 (list #{out\ 4132}#
13096 (cons '#(syntax-object
13097 begin
13098 ((top)
13099 #(ribcage
13100 #(_ out in e1 e2)
13101 #((top)
13102 (top)
13103 (top)
13104 (top)
13105 (top))
13106 #("i4126"
13107 "i4127"
13108 "i4128"
13109 "i4129"
13110 "i4130"))
13111 #(ribcage () () ())
13112 #(ribcage
13113 #(x)
13114 #((top))
13115 #("i4115")))
13116 (hygiene guile))
13117 (cons #{e1\ 4134}#
13118 #{e2\ 4135}#)))))
13119 #{tmp\ 4125}#)
13120 ((lambda (#{tmp\ 4137}#)
13121 (if #{tmp\ 4137}#
13122 (apply (lambda (#{_\ 4143}#
13123 #{out\ 4144}#
13124 #{in\ 4145}#
13125 #{e1\ 4146}#
13126 #{e2\ 4147}#)
13127 (list '#(syntax-object
13128 syntax-case
13129 ((top)
13130 #(ribcage
13131 #(_ out in e1 e2)
13132 #((top) (top) (top) (top) (top))
13133 #("i4138"
13134 "i4139"
13135 "i4140"
13136 "i4141"
13137 "i4142"))
13138 #(ribcage () () ())
13139 #(ribcage #(x) #((top)) #("i4115")))
13140 (hygiene guile))
13141 (cons '#(syntax-object
13142 list
13143 ((top)
13144 #(ribcage
13145 #(_ out in e1 e2)
13146 #((top)
13147 (top)
13148 (top)
13149 (top)
13150 (top))
13151 #("i4138"
13152 "i4139"
13153 "i4140"
13154 "i4141"
13155 "i4142"))
13156 #(ribcage () () ())
13157 #(ribcage
13158 #(x)
13159 #((top))
13160 #("i4115")))
13161 (hygiene guile))
13162 #{in\ 4145}#)
13163 '()
13164 (list #{out\ 4144}#
13165 (cons '#(syntax-object
13166 begin
13167 ((top)
13168 #(ribcage
13169 #(_ out in e1 e2)
13170 #((top)
13171 (top)
13172 (top)
13173 (top)
13174 (top))
13175 #("i4138"
13176 "i4139"
13177 "i4140"
13178 "i4141"
13179 "i4142"))
13180 #(ribcage () () ())
13181 #(ribcage
13182 #(x)
13183 #((top))
13184 #("i4115")))
13185 (hygiene guile))
13186 (cons #{e1\ 4146}#
13187 #{e2\ 4147}#)))))
13188 #{tmp\ 4137}#)
13189 (syntax-violation
13190 #f
13191 "source expression failed to match any pattern"
13192 #{tmp\ 4116}#)))
13193 ($sc-dispatch
13194 #{tmp\ 4116}#
13195 '(any #(each (any any)) any . each-any)))))
13196 ($sc-dispatch
13197 #{tmp\ 4116}#
13198 '(any ((any any)) any . each-any)))))
13199 ($sc-dispatch
13200 #{tmp\ 4116}#
13201 '(any () any . each-any))))
13202 #{x\ 4114}#))))
13203
13204 (define syntax-rules
13205 (make-syntax-transformer
13206 'syntax-rules
13207 'macro
13208 (lambda (#{x\ 4151}#)
13209 ((lambda (#{tmp\ 4153}#)
13210 ((lambda (#{tmp\ 4154}#)
13211 (if #{tmp\ 4154}#
13212 (apply (lambda (#{_\ 4160}#
13213 #{k\ 4161}#
13214 #{keyword\ 4162}#
13215 #{pattern\ 4163}#
13216 #{template\ 4164}#)
13217 (list '#(syntax-object
13218 lambda
13219 ((top)
13220 #(ribcage
13221 #(_ k keyword pattern template)
13222 #((top) (top) (top) (top) (top))
13223 #("i4155" "i4156" "i4157" "i4158" "i4159"))
13224 #(ribcage () () ())
13225 #(ribcage #(x) #((top)) #("i4152")))
13226 (hygiene guile))
13227 '(#(syntax-object
13228 x
13229 ((top)
13230 #(ribcage
13231 #(_ k keyword pattern template)
13232 #((top) (top) (top) (top) (top))
13233 #("i4155" "i4156" "i4157" "i4158" "i4159"))
13234 #(ribcage () () ())
13235 #(ribcage #(x) #((top)) #("i4152")))
13236 (hygiene guile)))
13237 (vector
13238 '(#(syntax-object
13239 macro-type
13240 ((top)
13241 #(ribcage
13242 #(_ k keyword pattern template)
13243 #((top) (top) (top) (top) (top))
13244 #("i4155"
13245 "i4156"
13246 "i4157"
13247 "i4158"
13248 "i4159"))
13249 #(ribcage () () ())
13250 #(ribcage #(x) #((top)) #("i4152")))
13251 (hygiene guile))
13252 .
13253 #(syntax-object
13254 syntax-rules
13255 ((top)
13256 #(ribcage
13257 #(_ k keyword pattern template)
13258 #((top) (top) (top) (top) (top))
13259 #("i4155"
13260 "i4156"
13261 "i4157"
13262 "i4158"
13263 "i4159"))
13264 #(ribcage () () ())
13265 #(ribcage #(x) #((top)) #("i4152")))
13266 (hygiene guile)))
13267 (cons '#(syntax-object
13268 patterns
13269 ((top)
13270 #(ribcage
13271 #(_ k keyword pattern template)
13272 #((top) (top) (top) (top) (top))
13273 #("i4155"
13274 "i4156"
13275 "i4157"
13276 "i4158"
13277 "i4159"))
13278 #(ribcage () () ())
13279 #(ribcage #(x) #((top)) #("i4152")))
13280 (hygiene guile))
13281 #{pattern\ 4163}#))
13282 (cons '#(syntax-object
13283 syntax-case
13284 ((top)
13285 #(ribcage
13286 #(_ k keyword pattern template)
13287 #((top) (top) (top) (top) (top))
13288 #("i4155"
13289 "i4156"
13290 "i4157"
13291 "i4158"
13292 "i4159"))
13293 #(ribcage () () ())
13294 #(ribcage #(x) #((top)) #("i4152")))
13295 (hygiene guile))
13296 (cons '#(syntax-object
13297 x
13298 ((top)
13299 #(ribcage
13300 #(_ k keyword pattern template)
13301 #((top) (top) (top) (top) (top))
13302 #("i4155"
13303 "i4156"
13304 "i4157"
13305 "i4158"
13306 "i4159"))
13307 #(ribcage () () ())
13308 #(ribcage
13309 #(x)
13310 #((top))
13311 #("i4152")))
13312 (hygiene guile))
13313 (cons #{k\ 4161}#
13314 (map (lambda (#{tmp\ 4168}#
13315 #{tmp\ 4167}#)
13316 (list (cons '#(syntax-object
13317 dummy
13318 ((top)
13319 #(ribcage
13320 #(_
13321 k
13322 keyword
13323 pattern
13324 template)
13325 #((top)
13326 (top)
13327 (top)
13328 (top)
13329 (top))
13330 #("i4155"
13331 "i4156"
13332 "i4157"
13333 "i4158"
13334 "i4159"))
13335 #(ribcage
13336 ()
13337 ()
13338 ())
13339 #(ribcage
13340 #(x)
13341 #((top))
13342 #("i4152")))
13343 (hygiene
13344 guile))
13345 #{tmp\ 4167}#)
13346 (list '#(syntax-object
13347 syntax
13348 ((top)
13349 #(ribcage
13350 #(_
13351 k
13352 keyword
13353 pattern
13354 template)
13355 #((top)
13356 (top)
13357 (top)
13358 (top)
13359 (top))
13360 #("i4155"
13361 "i4156"
13362 "i4157"
13363 "i4158"
13364 "i4159"))
13365 #(ribcage
13366 ()
13367 ()
13368 ())
13369 #(ribcage
13370 #(x)
13371 #((top))
13372 #("i4152")))
13373 (hygiene
13374 guile))
13375 #{tmp\ 4168}#)))
13376 #{template\ 4164}#
13377 #{pattern\ 4163}#))))))
13378 #{tmp\ 4154}#)
13379 (syntax-violation
13380 #f
13381 "source expression failed to match any pattern"
13382 #{tmp\ 4153}#)))
13383 ($sc-dispatch
13384 #{tmp\ 4153}#
13385 '(any each-any . #(each ((any . any) any))))))
13386 #{x\ 4151}#))))
13387
13388 (define let*
13389 (make-syntax-transformer
13390 'let*
13391 'macro
13392 (lambda (#{x\ 4169}#)
13393 ((lambda (#{tmp\ 4171}#)
13394 ((lambda (#{tmp\ 4172}#)
13395 (if (if #{tmp\ 4172}#
13396 (apply (lambda (#{let*\ 4178}#
13397 #{x\ 4179}#
13398 #{v\ 4180}#
13399 #{e1\ 4181}#
13400 #{e2\ 4182}#)
13401 (and-map identifier? #{x\ 4179}#))
13402 #{tmp\ 4172}#)
13403 #f)
13404 (apply (lambda (#{let*\ 4189}#
13405 #{x\ 4190}#
13406 #{v\ 4191}#
13407 #{e1\ 4192}#
13408 #{e2\ 4193}#)
13409 (letrec ((#{f\ 4196}#
13410 (lambda (#{bindings\ 4197}#)
13411 (if (null? #{bindings\ 4197}#)
13412 (cons '#(syntax-object
13413 let
13414 ((top)
13415 #(ribcage () () ())
13416 #(ribcage
13417 #(f bindings)
13418 #((top) (top))
13419 #("i4194" "i4195"))
13420 #(ribcage
13421 #(let* x v e1 e2)
13422 #((top)
13423 (top)
13424 (top)
13425 (top)
13426 (top))
13427 #("i4184"
13428 "i4185"
13429 "i4186"
13430 "i4187"
13431 "i4188"))
13432 #(ribcage () () ())
13433 #(ribcage
13434 #(x)
13435 #((top))
13436 #("i4170")))
13437 (hygiene guile))
13438 (cons '()
13439 (cons #{e1\ 4192}#
13440 #{e2\ 4193}#)))
13441 ((lambda (#{tmp\ 4202}#)
13442 ((lambda (#{tmp\ 4203}#)
13443 (if #{tmp\ 4203}#
13444 (apply (lambda (#{body\ 4206}#
13445 #{binding\ 4207}#)
13446 (list '#(syntax-object
13447 let
13448 ((top)
13449 #(ribcage
13450 #(body
13451 binding)
13452 #((top)
13453 (top))
13454 #("i4204"
13455 "i4205"))
13456 #(ribcage
13457 ()
13458 ()
13459 ())
13460 #(ribcage
13461 #(f
13462 bindings)
13463 #((top)
13464 (top))
13465 #("i4194"
13466 "i4195"))
13467 #(ribcage
13468 #(let*
13469 x
13470 v
13471 e1
13472 e2)
13473 #((top)
13474 (top)
13475 (top)
13476 (top)
13477 (top))
13478 #("i4184"
13479 "i4185"
13480 "i4186"
13481 "i4187"
13482 "i4188"))
13483 #(ribcage
13484 ()
13485 ()
13486 ())
13487 #(ribcage
13488 #(x)
13489 #((top))
13490 #("i4170")))
13491 (hygiene
13492 guile))
13493 (list #{binding\ 4207}#)
13494 #{body\ 4206}#))
13495 #{tmp\ 4203}#)
13496 (syntax-violation
13497 #f
13498 "source expression failed to match any pattern"
13499 #{tmp\ 4202}#)))
13500 ($sc-dispatch
13501 #{tmp\ 4202}#
13502 '(any any))))
13503 (list (#{f\ 4196}#
13504 (cdr #{bindings\ 4197}#))
13505 (car #{bindings\ 4197}#)))))))
13506 (#{f\ 4196}# (map list #{x\ 4190}# #{v\ 4191}#))))
13507 #{tmp\ 4172}#)
13508 (syntax-violation
13509 #f
13510 "source expression failed to match any pattern"
13511 #{tmp\ 4171}#)))
13512 ($sc-dispatch
13513 #{tmp\ 4171}#
13514 '(any #(each (any any)) any . each-any))))
13515 #{x\ 4169}#))))
13516
13517 (define do
13518 (make-syntax-transformer
13519 'do
13520 'macro
13521 (lambda (#{orig-x\ 4208}#)
13522 ((lambda (#{tmp\ 4210}#)
13523 ((lambda (#{tmp\ 4211}#)
13524 (if #{tmp\ 4211}#
13525 (apply (lambda (#{_\ 4219}#
13526 #{var\ 4220}#
13527 #{init\ 4221}#
13528 #{step\ 4222}#
13529 #{e0\ 4223}#
13530 #{e1\ 4224}#
13531 #{c\ 4225}#)
13532 ((lambda (#{tmp\ 4227}#)
13533 ((lambda (#{tmp\ 4228}#)
13534 (if #{tmp\ 4228}#
13535 (apply (lambda (#{step\ 4230}#)
13536 ((lambda (#{tmp\ 4231}#)
13537 ((lambda (#{tmp\ 4232}#)
13538 (if #{tmp\ 4232}#
13539 (apply (lambda ()
13540 (list '#(syntax-object
13541 let
13542 ((top)
13543 #(ribcage
13544 #(step)
13545 #((top))
13546 #("i4229"))
13547 #(ribcage
13548 #(_
13549 var
13550 init
13551 step
13552 e0
13553 e1
13554 c)
13555 #((top)
13556 (top)
13557 (top)
13558 (top)
13559 (top)
13560 (top)
13561 (top))
13562 #("i4212"
13563 "i4213"
13564 "i4214"
13565 "i4215"
13566 "i4216"
13567 "i4217"
13568 "i4218"))
13569 #(ribcage
13570 ()
13571 ()
13572 ())
13573 #(ribcage
13574 #(orig-x)
13575 #((top))
13576 #("i4209")))
13577 (hygiene
13578 guile))
13579 '#(syntax-object
13580 doloop
13581 ((top)
13582 #(ribcage
13583 #(step)
13584 #((top))
13585 #("i4229"))
13586 #(ribcage
13587 #(_
13588 var
13589 init
13590 step
13591 e0
13592 e1
13593 c)
13594 #((top)
13595 (top)
13596 (top)
13597 (top)
13598 (top)
13599 (top)
13600 (top))
13601 #("i4212"
13602 "i4213"
13603 "i4214"
13604 "i4215"
13605 "i4216"
13606 "i4217"
13607 "i4218"))
13608 #(ribcage
13609 ()
13610 ()
13611 ())
13612 #(ribcage
13613 #(orig-x)
13614 #((top))
13615 #("i4209")))
13616 (hygiene
13617 guile))
13618 (map list
13619 #{var\ 4220}#
13620 #{init\ 4221}#)
13621 (list '#(syntax-object
13622 if
13623 ((top)
13624 #(ribcage
13625 #(step)
13626 #((top))
13627 #("i4229"))
13628 #(ribcage
13629 #(_
13630 var
13631 init
13632 step
13633 e0
13634 e1
13635 c)
13636 #((top)
13637 (top)
13638 (top)
13639 (top)
13640 (top)
13641 (top)
13642 (top))
13643 #("i4212"
13644 "i4213"
13645 "i4214"
13646 "i4215"
13647 "i4216"
13648 "i4217"
13649 "i4218"))
13650 #(ribcage
13651 ()
13652 ()
13653 ())
13654 #(ribcage
13655 #(orig-x)
13656 #((top))
13657 #("i4209")))
13658 (hygiene
13659 guile))
13660 (list '#(syntax-object
13661 not
13662 ((top)
13663 #(ribcage
13664 #(step)
13665 #((top))
13666 #("i4229"))
13667 #(ribcage
13668 #(_
13669 var
13670 init
13671 step
13672 e0
13673 e1
13674 c)
13675 #((top)
13676 (top)
13677 (top)
13678 (top)
13679 (top)
13680 (top)
13681 (top))
13682 #("i4212"
13683 "i4213"
13684 "i4214"
13685 "i4215"
13686 "i4216"
13687 "i4217"
13688 "i4218"))
13689 #(ribcage
13690 ()
13691 ()
13692 ())
13693 #(ribcage
13694 #(orig-x)
13695 #((top))
13696 #("i4209")))
13697 (hygiene
13698 guile))
13699 #{e0\ 4223}#)
13700 (cons '#(syntax-object
13701 begin
13702 ((top)
13703 #(ribcage
13704 #(step)
13705 #((top))
13706 #("i4229"))
13707 #(ribcage
13708 #(_
13709 var
13710 init
13711 step
13712 e0
13713 e1
13714 c)
13715 #((top)
13716 (top)
13717 (top)
13718 (top)
13719 (top)
13720 (top)
13721 (top))
13722 #("i4212"
13723 "i4213"
13724 "i4214"
13725 "i4215"
13726 "i4216"
13727 "i4217"
13728 "i4218"))
13729 #(ribcage
13730 ()
13731 ()
13732 ())
13733 #(ribcage
13734 #(orig-x)
13735 #((top))
13736 #("i4209")))
13737 (hygiene
13738 guile))
13739 (append
13740 #{c\ 4225}#
13741 (list (cons '#(syntax-object
13742 doloop
13743 ((top)
13744 #(ribcage
13745 #(step)
13746 #((top))
13747 #("i4229"))
13748 #(ribcage
13749 #(_
13750 var
13751 init
13752 step
13753 e0
13754 e1
13755 c)
13756 #((top)
13757 (top)
13758 (top)
13759 (top)
13760 (top)
13761 (top)
13762 (top))
13763 #("i4212"
13764 "i4213"
13765 "i4214"
13766 "i4215"
13767 "i4216"
13768 "i4217"
13769 "i4218"))
13770 #(ribcage
13771 ()
13772 ()
13773 ())
13774 #(ribcage
13775 #(orig-x)
13776 #((top))
13777 #("i4209")))
13778 (hygiene
13779 guile))
13780 #{step\ 4230}#)))))))
13781 #{tmp\ 4232}#)
13782 ((lambda (#{tmp\ 4237}#)
13783 (if #{tmp\ 4237}#
13784 (apply (lambda (#{e1\ 4240}#
13785 #{e2\ 4241}#)
13786 (list '#(syntax-object
13787 let
13788 ((top)
13789 #(ribcage
13790 #(e1
13791 e2)
13792 #((top)
13793 (top))
13794 #("i4238"
13795 "i4239"))
13796 #(ribcage
13797 #(step)
13798 #((top))
13799 #("i4229"))
13800 #(ribcage
13801 #(_
13802 var
13803 init
13804 step
13805 e0
13806 e1
13807 c)
13808 #((top)
13809 (top)
13810 (top)
13811 (top)
13812 (top)
13813 (top)
13814 (top))
13815 #("i4212"
13816 "i4213"
13817 "i4214"
13818 "i4215"
13819 "i4216"
13820 "i4217"
13821 "i4218"))
13822 #(ribcage
13823 ()
13824 ()
13825 ())
13826 #(ribcage
13827 #(orig-x)
13828 #((top))
13829 #("i4209")))
13830 (hygiene
13831 guile))
13832 '#(syntax-object
13833 doloop
13834 ((top)
13835 #(ribcage
13836 #(e1
13837 e2)
13838 #((top)
13839 (top))
13840 #("i4238"
13841 "i4239"))
13842 #(ribcage
13843 #(step)
13844 #((top))
13845 #("i4229"))
13846 #(ribcage
13847 #(_
13848 var
13849 init
13850 step
13851 e0
13852 e1
13853 c)
13854 #((top)
13855 (top)
13856 (top)
13857 (top)
13858 (top)
13859 (top)
13860 (top))
13861 #("i4212"
13862 "i4213"
13863 "i4214"
13864 "i4215"
13865 "i4216"
13866 "i4217"
13867 "i4218"))
13868 #(ribcage
13869 ()
13870 ()
13871 ())
13872 #(ribcage
13873 #(orig-x)
13874 #((top))
13875 #("i4209")))
13876 (hygiene
13877 guile))
13878 (map list
13879 #{var\ 4220}#
13880 #{init\ 4221}#)
13881 (list '#(syntax-object
13882 if
13883 ((top)
13884 #(ribcage
13885 #(e1
13886 e2)
13887 #((top)
13888 (top))
13889 #("i4238"
13890 "i4239"))
13891 #(ribcage
13892 #(step)
13893 #((top))
13894 #("i4229"))
13895 #(ribcage
13896 #(_
13897 var
13898 init
13899 step
13900 e0
13901 e1
13902 c)
13903 #((top)
13904 (top)
13905 (top)
13906 (top)
13907 (top)
13908 (top)
13909 (top))
13910 #("i4212"
13911 "i4213"
13912 "i4214"
13913 "i4215"
13914 "i4216"
13915 "i4217"
13916 "i4218"))
13917 #(ribcage
13918 ()
13919 ()
13920 ())
13921 #(ribcage
13922 #(orig-x)
13923 #((top))
13924 #("i4209")))
13925 (hygiene
13926 guile))
13927 #{e0\ 4223}#
13928 (cons '#(syntax-object
13929 begin
13930 ((top)
13931 #(ribcage
13932 #(e1
13933 e2)
13934 #((top)
13935 (top))
13936 #("i4238"
13937 "i4239"))
13938 #(ribcage
13939 #(step)
13940 #((top))
13941 #("i4229"))
13942 #(ribcage
13943 #(_
13944 var
13945 init
13946 step
13947 e0
13948 e1
13949 c)
13950 #((top)
13951 (top)
13952 (top)
13953 (top)
13954 (top)
13955 (top)
13956 (top))
13957 #("i4212"
13958 "i4213"
13959 "i4214"
13960 "i4215"
13961 "i4216"
13962 "i4217"
13963 "i4218"))
13964 #(ribcage
13965 ()
13966 ()
13967 ())
13968 #(ribcage
13969 #(orig-x)
13970 #((top))
13971 #("i4209")))
13972 (hygiene
13973 guile))
13974 (cons #{e1\ 4240}#
13975 #{e2\ 4241}#))
13976 (cons '#(syntax-object
13977 begin
13978 ((top)
13979 #(ribcage
13980 #(e1
13981 e2)
13982 #((top)
13983 (top))
13984 #("i4238"
13985 "i4239"))
13986 #(ribcage
13987 #(step)
13988 #((top))
13989 #("i4229"))
13990 #(ribcage
13991 #(_
13992 var
13993 init
13994 step
13995 e0
13996 e1
13997 c)
13998 #((top)
13999 (top)
14000 (top)
14001 (top)
14002 (top)
14003 (top)
14004 (top))
14005 #("i4212"
14006 "i4213"
14007 "i4214"
14008 "i4215"
14009 "i4216"
14010 "i4217"
14011 "i4218"))
14012 #(ribcage
14013 ()
14014 ()
14015 ())
14016 #(ribcage
14017 #(orig-x)
14018 #((top))
14019 #("i4209")))
14020 (hygiene
14021 guile))
14022 (append
14023 #{c\ 4225}#
14024 (list (cons '#(syntax-object
14025 doloop
14026 ((top)
14027 #(ribcage
14028 #(e1
14029 e2)
14030 #((top)
14031 (top))
14032 #("i4238"
14033 "i4239"))
14034 #(ribcage
14035 #(step)
14036 #((top))
14037 #("i4229"))
14038 #(ribcage
14039 #(_
14040 var
14041 init
14042 step
14043 e0
14044 e1
14045 c)
14046 #((top)
14047 (top)
14048 (top)
14049 (top)
14050 (top)
14051 (top)
14052 (top))
14053 #("i4212"
14054 "i4213"
14055 "i4214"
14056 "i4215"
14057 "i4216"
14058 "i4217"
14059 "i4218"))
14060 #(ribcage
14061 ()
14062 ()
14063 ())
14064 #(ribcage
14065 #(orig-x)
14066 #((top))
14067 #("i4209")))
14068 (hygiene
14069 guile))
14070 #{step\ 4230}#)))))))
14071 #{tmp\ 4237}#)
14072 (syntax-violation
14073 #f
14074 "source expression failed to match any pattern"
14075 #{tmp\ 4231}#)))
14076 ($sc-dispatch
14077 #{tmp\ 4231}#
14078 '(any . each-any)))))
14079 ($sc-dispatch
14080 #{tmp\ 4231}#
14081 '())))
14082 #{e1\ 4224}#))
14083 #{tmp\ 4228}#)
14084 (syntax-violation
14085 #f
14086 "source expression failed to match any pattern"
14087 #{tmp\ 4227}#)))
14088 ($sc-dispatch #{tmp\ 4227}# (quote each-any))))
14089 (map (lambda (#{v\ 4248}# #{s\ 4249}#)
14090 ((lambda (#{tmp\ 4252}#)
14091 ((lambda (#{tmp\ 4253}#)
14092 (if #{tmp\ 4253}#
14093 (apply (lambda () #{v\ 4248}#)
14094 #{tmp\ 4253}#)
14095 ((lambda (#{tmp\ 4254}#)
14096 (if #{tmp\ 4254}#
14097 (apply (lambda (#{e\ 4256}#)
14098 #{e\ 4256}#)
14099 #{tmp\ 4254}#)
14100 ((lambda (#{_\ 4258}#)
14101 (syntax-violation
14102 'do
14103 "bad step expression"
14104 #{orig-x\ 4208}#
14105 #{s\ 4249}#))
14106 #{tmp\ 4252}#)))
14107 ($sc-dispatch
14108 #{tmp\ 4252}#
14109 '(any)))))
14110 ($sc-dispatch #{tmp\ 4252}# (quote ()))))
14111 #{s\ 4249}#))
14112 #{var\ 4220}#
14113 #{step\ 4222}#)))
14114 #{tmp\ 4211}#)
14115 (syntax-violation
14116 #f
14117 "source expression failed to match any pattern"
14118 #{tmp\ 4210}#)))
14119 ($sc-dispatch
14120 #{tmp\ 4210}#
14121 '(any #(each (any any . any))
14122 (any . each-any)
14123 .
14124 each-any))))
14125 #{orig-x\ 4208}#))))
14126
14127 (define quasiquote
14128 (make-syntax-transformer
14129 'quasiquote
14130 'macro
14131 (letrec ((#{quasicons\ 4265}#
14132 (lambda (#{x\ 4269}# #{y\ 4270}#)
14133 ((lambda (#{tmp\ 4274}#)
14134 ((lambda (#{tmp\ 4275}#)
14135 (if #{tmp\ 4275}#
14136 (apply (lambda (#{x\ 4278}# #{y\ 4279}#)
14137 ((lambda (#{tmp\ 4280}#)
14138 ((lambda (#{tmp\ 4281}#)
14139 (if #{tmp\ 4281}#
14140 (apply (lambda (#{dy\ 4283}#)
14141 ((lambda (#{tmp\ 4284}#)
14142 ((lambda (#{tmp\ 4285}#)
14143 (if #{tmp\ 4285}#
14144 (apply (lambda (#{dx\ 4287}#)
14145 (list '#(syntax-object
14146 quote
14147 ((top)
14148 #(ribcage
14149 #(dx)
14150 #((top))
14151 #("i4286"))
14152 #(ribcage
14153 #(dy)
14154 #((top))
14155 #("i4282"))
14156 #(ribcage
14157 #(x
14158 y)
14159 #((top)
14160 (top))
14161 #("i4276"
14162 "i4277"))
14163 #(ribcage
14164 ()
14165 ()
14166 ())
14167 #(ribcage
14168 ()
14169 ()
14170 ())
14171 #(ribcage
14172 #(x
14173 y)
14174 #((top)
14175 (top))
14176 #("i4271"
14177 "i4272"))
14178 #(ribcage
14179 #(quasicons
14180 quasiappend
14181 quasivector
14182 quasi)
14183 #((top)
14184 (top)
14185 (top)
14186 (top))
14187 #("i4261"
14188 "i4262"
14189 "i4263"
14190 "i4264")))
14191 (hygiene
14192 guile))
14193 (cons #{dx\ 4287}#
14194 #{dy\ 4283}#)))
14195 #{tmp\ 4285}#)
14196 ((lambda (#{_\ 4289}#)
14197 (if (null? #{dy\ 4283}#)
14198 (list '#(syntax-object
14199 list
14200 ((top)
14201 #(ribcage
14202 #(_)
14203 #((top))
14204 #("i4288"))
14205 #(ribcage
14206 #(dy)
14207 #((top))
14208 #("i4282"))
14209 #(ribcage
14210 #(x
14211 y)
14212 #((top)
14213 (top))
14214 #("i4276"
14215 "i4277"))
14216 #(ribcage
14217 ()
14218 ()
14219 ())
14220 #(ribcage
14221 ()
14222 ()
14223 ())
14224 #(ribcage
14225 #(x
14226 y)
14227 #((top)
14228 (top))
14229 #("i4271"
14230 "i4272"))
14231 #(ribcage
14232 #(quasicons
14233 quasiappend
14234 quasivector
14235 quasi)
14236 #((top)
14237 (top)
14238 (top)
14239 (top))
14240 #("i4261"
14241 "i4262"
14242 "i4263"
14243 "i4264")))
14244 (hygiene
14245 guile))
14246 #{x\ 4278}#)
14247 (list '#(syntax-object
14248 cons
14249 ((top)
14250 #(ribcage
14251 #(_)
14252 #((top))
14253 #("i4288"))
14254 #(ribcage
14255 #(dy)
14256 #((top))
14257 #("i4282"))
14258 #(ribcage
14259 #(x
14260 y)
14261 #((top)
14262 (top))
14263 #("i4276"
14264 "i4277"))
14265 #(ribcage
14266 ()
14267 ()
14268 ())
14269 #(ribcage
14270 ()
14271 ()
14272 ())
14273 #(ribcage
14274 #(x
14275 y)
14276 #((top)
14277 (top))
14278 #("i4271"
14279 "i4272"))
14280 #(ribcage
14281 #(quasicons
14282 quasiappend
14283 quasivector
14284 quasi)
14285 #((top)
14286 (top)
14287 (top)
14288 (top))
14289 #("i4261"
14290 "i4262"
14291 "i4263"
14292 "i4264")))
14293 (hygiene
14294 guile))
14295 #{x\ 4278}#
14296 #{y\ 4279}#)))
14297 #{tmp\ 4284}#)))
14298 ($sc-dispatch
14299 #{tmp\ 4284}#
14300 '(#(free-id
14301 #(syntax-object
14302 quote
14303 ((top)
14304 #(ribcage
14305 #(dy)
14306 #((top))
14307 #("i4282"))
14308 #(ribcage
14309 #(x y)
14310 #((top)
14311 (top))
14312 #("i4276"
14313 "i4277"))
14314 #(ribcage
14315 ()
14316 ()
14317 ())
14318 #(ribcage
14319 ()
14320 ()
14321 ())
14322 #(ribcage
14323 #(x y)
14324 #((top)
14325 (top))
14326 #("i4271"
14327 "i4272"))
14328 #(ribcage
14329 #(quasicons
14330 quasiappend
14331 quasivector
14332 quasi)
14333 #((top)
14334 (top)
14335 (top)
14336 (top))
14337 #("i4261"
14338 "i4262"
14339 "i4263"
14340 "i4264")))
14341 (hygiene
14342 guile)))
14343 any))))
14344 #{x\ 4278}#))
14345 #{tmp\ 4281}#)
14346 ((lambda (#{tmp\ 4290}#)
14347 (if #{tmp\ 4290}#
14348 (apply (lambda (#{stuff\ 4292}#)
14349 (cons '#(syntax-object
14350 list
14351 ((top)
14352 #(ribcage
14353 #(stuff)
14354 #((top))
14355 #("i4291"))
14356 #(ribcage
14357 #(x y)
14358 #((top)
14359 (top))
14360 #("i4276"
14361 "i4277"))
14362 #(ribcage
14363 ()
14364 ()
14365 ())
14366 #(ribcage
14367 ()
14368 ()
14369 ())
14370 #(ribcage
14371 #(x y)
14372 #((top)
14373 (top))
14374 #("i4271"
14375 "i4272"))
14376 #(ribcage
14377 #(quasicons
14378 quasiappend
14379 quasivector
14380 quasi)
14381 #((top)
14382 (top)
14383 (top)
14384 (top))
14385 #("i4261"
14386 "i4262"
14387 "i4263"
14388 "i4264")))
14389 (hygiene
14390 guile))
14391 (cons #{x\ 4278}#
14392 #{stuff\ 4292}#)))
14393 #{tmp\ 4290}#)
14394 ((lambda (#{else\ 4294}#)
14395 (list '#(syntax-object
14396 cons
14397 ((top)
14398 #(ribcage
14399 #(else)
14400 #((top))
14401 #("i4293"))
14402 #(ribcage
14403 #(x y)
14404 #((top) (top))
14405 #("i4276"
14406 "i4277"))
14407 #(ribcage () () ())
14408 #(ribcage () () ())
14409 #(ribcage
14410 #(x y)
14411 #((top) (top))
14412 #("i4271"
14413 "i4272"))
14414 #(ribcage
14415 #(quasicons
14416 quasiappend
14417 quasivector
14418 quasi)
14419 #((top)
14420 (top)
14421 (top)
14422 (top))
14423 #("i4261"
14424 "i4262"
14425 "i4263"
14426 "i4264")))
14427 (hygiene guile))
14428 #{x\ 4278}#
14429 #{y\ 4279}#))
14430 #{tmp\ 4280}#)))
14431 ($sc-dispatch
14432 #{tmp\ 4280}#
14433 '(#(free-id
14434 #(syntax-object
14435 list
14436 ((top)
14437 #(ribcage
14438 #(x y)
14439 #((top) (top))
14440 #("i4276" "i4277"))
14441 #(ribcage () () ())
14442 #(ribcage () () ())
14443 #(ribcage
14444 #(x y)
14445 #((top) (top))
14446 #("i4271" "i4272"))
14447 #(ribcage
14448 #(quasicons
14449 quasiappend
14450 quasivector
14451 quasi)
14452 #((top)
14453 (top)
14454 (top)
14455 (top))
14456 #("i4261"
14457 "i4262"
14458 "i4263"
14459 "i4264")))
14460 (hygiene guile)))
14461 .
14462 any)))))
14463 ($sc-dispatch
14464 #{tmp\ 4280}#
14465 '(#(free-id
14466 #(syntax-object
14467 quote
14468 ((top)
14469 #(ribcage
14470 #(x y)
14471 #((top) (top))
14472 #("i4276" "i4277"))
14473 #(ribcage () () ())
14474 #(ribcage () () ())
14475 #(ribcage
14476 #(x y)
14477 #((top) (top))
14478 #("i4271" "i4272"))
14479 #(ribcage
14480 #(quasicons
14481 quasiappend
14482 quasivector
14483 quasi)
14484 #((top) (top) (top) (top))
14485 #("i4261"
14486 "i4262"
14487 "i4263"
14488 "i4264")))
14489 (hygiene guile)))
14490 any))))
14491 #{y\ 4279}#))
14492 #{tmp\ 4275}#)
14493 (syntax-violation
14494 #f
14495 "source expression failed to match any pattern"
14496 #{tmp\ 4274}#)))
14497 ($sc-dispatch #{tmp\ 4274}# (quote (any any)))))
14498 (list #{x\ 4269}# #{y\ 4270}#))))
14499 (#{quasiappend\ 4266}#
14500 (lambda (#{x\ 4295}# #{y\ 4296}#)
14501 ((lambda (#{tmp\ 4300}#)
14502 ((lambda (#{tmp\ 4301}#)
14503 (if #{tmp\ 4301}#
14504 (apply (lambda (#{x\ 4304}# #{y\ 4305}#)
14505 ((lambda (#{tmp\ 4306}#)
14506 ((lambda (#{tmp\ 4307}#)
14507 (if #{tmp\ 4307}#
14508 (apply (lambda () #{x\ 4304}#)
14509 #{tmp\ 4307}#)
14510 ((lambda (#{_\ 4309}#)
14511 (list '#(syntax-object
14512 append
14513 ((top)
14514 #(ribcage
14515 #(_)
14516 #((top))
14517 #("i4308"))
14518 #(ribcage
14519 #(x y)
14520 #((top) (top))
14521 #("i4302" "i4303"))
14522 #(ribcage () () ())
14523 #(ribcage () () ())
14524 #(ribcage
14525 #(x y)
14526 #((top) (top))
14527 #("i4297" "i4298"))
14528 #(ribcage
14529 #(quasicons
14530 quasiappend
14531 quasivector
14532 quasi)
14533 #((top)
14534 (top)
14535 (top)
14536 (top))
14537 #("i4261"
14538 "i4262"
14539 "i4263"
14540 "i4264")))
14541 (hygiene guile))
14542 #{x\ 4304}#
14543 #{y\ 4305}#))
14544 #{tmp\ 4306}#)))
14545 ($sc-dispatch
14546 #{tmp\ 4306}#
14547 '(#(free-id
14548 #(syntax-object
14549 quote
14550 ((top)
14551 #(ribcage
14552 #(x y)
14553 #((top) (top))
14554 #("i4302" "i4303"))
14555 #(ribcage () () ())
14556 #(ribcage () () ())
14557 #(ribcage
14558 #(x y)
14559 #((top) (top))
14560 #("i4297" "i4298"))
14561 #(ribcage
14562 #(quasicons
14563 quasiappend
14564 quasivector
14565 quasi)
14566 #((top) (top) (top) (top))
14567 #("i4261"
14568 "i4262"
14569 "i4263"
14570 "i4264")))
14571 (hygiene guile)))
14572 ()))))
14573 #{y\ 4305}#))
14574 #{tmp\ 4301}#)
14575 (syntax-violation
14576 #f
14577 "source expression failed to match any pattern"
14578 #{tmp\ 4300}#)))
14579 ($sc-dispatch #{tmp\ 4300}# (quote (any any)))))
14580 (list #{x\ 4295}# #{y\ 4296}#))))
14581 (#{quasivector\ 4267}#
14582 (lambda (#{x\ 4310}#)
14583 ((lambda (#{tmp\ 4313}#)
14584 ((lambda (#{x\ 4315}#)
14585 ((lambda (#{tmp\ 4316}#)
14586 ((lambda (#{tmp\ 4317}#)
14587 (if #{tmp\ 4317}#
14588 (apply (lambda (#{x\ 4319}#)
14589 (list '#(syntax-object
14590 quote
14591 ((top)
14592 #(ribcage
14593 #(x)
14594 #((top))
14595 #("i4318"))
14596 #(ribcage
14597 #(x)
14598 #((top))
14599 #("i4314"))
14600 #(ribcage () () ())
14601 #(ribcage () () ())
14602 #(ribcage
14603 #(x)
14604 #((top))
14605 #("i4311"))
14606 #(ribcage
14607 #(quasicons
14608 quasiappend
14609 quasivector
14610 quasi)
14611 #((top) (top) (top) (top))
14612 #("i4261"
14613 "i4262"
14614 "i4263"
14615 "i4264")))
14616 (hygiene guile))
14617 (list->vector #{x\ 4319}#)))
14618 #{tmp\ 4317}#)
14619 ((lambda (#{tmp\ 4321}#)
14620 (if #{tmp\ 4321}#
14621 (apply (lambda (#{x\ 4323}#)
14622 (cons '#(syntax-object
14623 vector
14624 ((top)
14625 #(ribcage
14626 #(x)
14627 #((top))
14628 #("i4322"))
14629 #(ribcage
14630 #(x)
14631 #((top))
14632 #("i4314"))
14633 #(ribcage () () ())
14634 #(ribcage () () ())
14635 #(ribcage
14636 #(x)
14637 #((top))
14638 #("i4311"))
14639 #(ribcage
14640 #(quasicons
14641 quasiappend
14642 quasivector
14643 quasi)
14644 #((top)
14645 (top)
14646 (top)
14647 (top))
14648 #("i4261"
14649 "i4262"
14650 "i4263"
14651 "i4264")))
14652 (hygiene guile))
14653 #{x\ 4323}#))
14654 #{tmp\ 4321}#)
14655 ((lambda (#{_\ 4326}#)
14656 (list '#(syntax-object
14657 list->vector
14658 ((top)
14659 #(ribcage
14660 #(_)
14661 #((top))
14662 #("i4325"))
14663 #(ribcage
14664 #(x)
14665 #((top))
14666 #("i4314"))
14667 #(ribcage () () ())
14668 #(ribcage () () ())
14669 #(ribcage
14670 #(x)
14671 #((top))
14672 #("i4311"))
14673 #(ribcage
14674 #(quasicons
14675 quasiappend
14676 quasivector
14677 quasi)
14678 #((top) (top) (top) (top))
14679 #("i4261"
14680 "i4262"
14681 "i4263"
14682 "i4264")))
14683 (hygiene guile))
14684 #{x\ 4315}#))
14685 #{tmp\ 4316}#)))
14686 ($sc-dispatch
14687 #{tmp\ 4316}#
14688 '(#(free-id
14689 #(syntax-object
14690 list
14691 ((top)
14692 #(ribcage #(x) #((top)) #("i4314"))
14693 #(ribcage () () ())
14694 #(ribcage () () ())
14695 #(ribcage #(x) #((top)) #("i4311"))
14696 #(ribcage
14697 #(quasicons
14698 quasiappend
14699 quasivector
14700 quasi)
14701 #((top) (top) (top) (top))
14702 #("i4261" "i4262" "i4263" "i4264")))
14703 (hygiene guile)))
14704 .
14705 each-any)))))
14706 ($sc-dispatch
14707 #{tmp\ 4316}#
14708 '(#(free-id
14709 #(syntax-object
14710 quote
14711 ((top)
14712 #(ribcage #(x) #((top)) #("i4314"))
14713 #(ribcage () () ())
14714 #(ribcage () () ())
14715 #(ribcage #(x) #((top)) #("i4311"))
14716 #(ribcage
14717 #(quasicons
14718 quasiappend
14719 quasivector
14720 quasi)
14721 #((top) (top) (top) (top))
14722 #("i4261" "i4262" "i4263" "i4264")))
14723 (hygiene guile)))
14724 each-any))))
14725 #{x\ 4315}#))
14726 #{tmp\ 4313}#))
14727 #{x\ 4310}#)))
14728 (#{quasi\ 4268}#
14729 (lambda (#{p\ 4327}# #{lev\ 4328}#)
14730 ((lambda (#{tmp\ 4331}#)
14731 ((lambda (#{tmp\ 4332}#)
14732 (if #{tmp\ 4332}#
14733 (apply (lambda (#{p\ 4334}#)
14734 (if (= #{lev\ 4328}# 0)
14735 #{p\ 4334}#
14736 (#{quasicons\ 4265}#
14737 '(#(syntax-object
14738 quote
14739 ((top)
14740 #(ribcage #(p) #((top)) #("i4333"))
14741 #(ribcage () () ())
14742 #(ribcage
14743 #(p lev)
14744 #((top) (top))
14745 #("i4329" "i4330"))
14746 #(ribcage
14747 #(quasicons
14748 quasiappend
14749 quasivector
14750 quasi)
14751 #((top) (top) (top) (top))
14752 #("i4261"
14753 "i4262"
14754 "i4263"
14755 "i4264")))
14756 (hygiene guile))
14757 #(syntax-object
14758 unquote
14759 ((top)
14760 #(ribcage #(p) #((top)) #("i4333"))
14761 #(ribcage () () ())
14762 #(ribcage
14763 #(p lev)
14764 #((top) (top))
14765 #("i4329" "i4330"))
14766 #(ribcage
14767 #(quasicons
14768 quasiappend
14769 quasivector
14770 quasi)
14771 #((top) (top) (top) (top))
14772 #("i4261"
14773 "i4262"
14774 "i4263"
14775 "i4264")))
14776 (hygiene guile)))
14777 (#{quasi\ 4268}#
14778 (list #{p\ 4334}#)
14779 (- #{lev\ 4328}# 1)))))
14780 #{tmp\ 4332}#)
14781 ((lambda (#{tmp\ 4335}#)
14782 (if (if #{tmp\ 4335}#
14783 (apply (lambda (#{args\ 4337}#)
14784 (= #{lev\ 4328}# 0))
14785 #{tmp\ 4335}#)
14786 #f)
14787 (apply (lambda (#{args\ 4339}#)
14788 (syntax-violation
14789 'unquote
14790 "unquote takes exactly one argument"
14791 #{p\ 4327}#
14792 (cons '#(syntax-object
14793 unquote
14794 ((top)
14795 #(ribcage
14796 #(args)
14797 #((top))
14798 #("i4338"))
14799 #(ribcage () () ())
14800 #(ribcage
14801 #(p lev)
14802 #((top) (top))
14803 #("i4329" "i4330"))
14804 #(ribcage
14805 #(quasicons
14806 quasiappend
14807 quasivector
14808 quasi)
14809 #((top) (top) (top) (top))
14810 #("i4261"
14811 "i4262"
14812 "i4263"
14813 "i4264")))
14814 (hygiene guile))
14815 #{args\ 4339}#)))
14816 #{tmp\ 4335}#)
14817 ((lambda (#{tmp\ 4340}#)
14818 (if #{tmp\ 4340}#
14819 (apply (lambda (#{p\ 4343}# #{q\ 4344}#)
14820 (if (= #{lev\ 4328}# 0)
14821 (#{quasiappend\ 4266}#
14822 #{p\ 4343}#
14823 (#{quasi\ 4268}#
14824 #{q\ 4344}#
14825 #{lev\ 4328}#))
14826 (#{quasicons\ 4265}#
14827 (#{quasicons\ 4265}#
14828 '(#(syntax-object
14829 quote
14830 ((top)
14831 #(ribcage
14832 #(p q)
14833 #((top) (top))
14834 #("i4341" "i4342"))
14835 #(ribcage () () ())
14836 #(ribcage
14837 #(p lev)
14838 #((top) (top))
14839 #("i4329" "i4330"))
14840 #(ribcage
14841 #(quasicons
14842 quasiappend
14843 quasivector
14844 quasi)
14845 #((top)
14846 (top)
14847 (top)
14848 (top))
14849 #("i4261"
14850 "i4262"
14851 "i4263"
14852 "i4264")))
14853 (hygiene guile))
14854 #(syntax-object
14855 unquote-splicing
14856 ((top)
14857 #(ribcage
14858 #(p q)
14859 #((top) (top))
14860 #("i4341" "i4342"))
14861 #(ribcage () () ())
14862 #(ribcage
14863 #(p lev)
14864 #((top) (top))
14865 #("i4329" "i4330"))
14866 #(ribcage
14867 #(quasicons
14868 quasiappend
14869 quasivector
14870 quasi)
14871 #((top)
14872 (top)
14873 (top)
14874 (top))
14875 #("i4261"
14876 "i4262"
14877 "i4263"
14878 "i4264")))
14879 (hygiene guile)))
14880 (#{quasi\ 4268}#
14881 (list #{p\ 4343}#)
14882 (- #{lev\ 4328}# 1)))
14883 (#{quasi\ 4268}#
14884 #{q\ 4344}#
14885 #{lev\ 4328}#))))
14886 #{tmp\ 4340}#)
14887 ((lambda (#{tmp\ 4345}#)
14888 (if (if #{tmp\ 4345}#
14889 (apply (lambda (#{args\ 4348}#
14890 #{q\ 4349}#)
14891 (= #{lev\ 4328}# 0))
14892 #{tmp\ 4345}#)
14893 #f)
14894 (apply (lambda (#{args\ 4352}#
14895 #{q\ 4353}#)
14896 (syntax-violation
14897 'unquote-splicing
14898 "unquote-splicing takes exactly one argument"
14899 #{p\ 4327}#
14900 (cons '#(syntax-object
14901 unquote-splicing
14902 ((top)
14903 #(ribcage
14904 #(args q)
14905 #((top) (top))
14906 #("i4350"
14907 "i4351"))
14908 #(ribcage
14909 ()
14910 ()
14911 ())
14912 #(ribcage
14913 #(p lev)
14914 #((top) (top))
14915 #("i4329"
14916 "i4330"))
14917 #(ribcage
14918 #(quasicons
14919 quasiappend
14920 quasivector
14921 quasi)
14922 #((top)
14923 (top)
14924 (top)
14925 (top))
14926 #("i4261"
14927 "i4262"
14928 "i4263"
14929 "i4264")))
14930 (hygiene guile))
14931 #{args\ 4352}#)))
14932 #{tmp\ 4345}#)
14933 ((lambda (#{tmp\ 4354}#)
14934 (if #{tmp\ 4354}#
14935 (apply (lambda (#{p\ 4356}#)
14936 (#{quasicons\ 4265}#
14937 '(#(syntax-object
14938 quote
14939 ((top)
14940 #(ribcage
14941 #(p)
14942 #((top))
14943 #("i4355"))
14944 #(ribcage
14945 ()
14946 ()
14947 ())
14948 #(ribcage
14949 #(p lev)
14950 #((top) (top))
14951 #("i4329"
14952 "i4330"))
14953 #(ribcage
14954 #(quasicons
14955 quasiappend
14956 quasivector
14957 quasi)
14958 #((top)
14959 (top)
14960 (top)
14961 (top))
14962 #("i4261"
14963 "i4262"
14964 "i4263"
14965 "i4264")))
14966 (hygiene guile))
14967 #(syntax-object
14968 quasiquote
14969 ((top)
14970 #(ribcage
14971 #(p)
14972 #((top))
14973 #("i4355"))
14974 #(ribcage
14975 ()
14976 ()
14977 ())
14978 #(ribcage
14979 #(p lev)
14980 #((top) (top))
14981 #("i4329"
14982 "i4330"))
14983 #(ribcage
14984 #(quasicons
14985 quasiappend
14986 quasivector
14987 quasi)
14988 #((top)
14989 (top)
14990 (top)
14991 (top))
14992 #("i4261"
14993 "i4262"
14994 "i4263"
14995 "i4264")))
14996 (hygiene guile)))
14997 (#{quasi\ 4268}#
14998 (list #{p\ 4356}#)
14999 (+ #{lev\ 4328}#
15000 1))))
15001 #{tmp\ 4354}#)
15002 ((lambda (#{tmp\ 4357}#)
15003 (if #{tmp\ 4357}#
15004 (apply (lambda (#{p\ 4360}#
15005 #{q\ 4361}#)
15006 (#{quasicons\ 4265}#
15007 (#{quasi\ 4268}#
15008 #{p\ 4360}#
15009 #{lev\ 4328}#)
15010 (#{quasi\ 4268}#
15011 #{q\ 4361}#
15012 #{lev\ 4328}#)))
15013 #{tmp\ 4357}#)
15014 ((lambda (#{tmp\ 4362}#)
15015 (if #{tmp\ 4362}#
15016 (apply (lambda (#{x\ 4364}#)
15017 (#{quasivector\ 4267}#
15018 (#{quasi\ 4268}#
15019 #{x\ 4364}#
15020 #{lev\ 4328}#)))
15021 #{tmp\ 4362}#)
15022 ((lambda (#{p\ 4367}#)
15023 (list '#(syntax-object
15024 quote
15025 ((top)
15026 #(ribcage
15027 #(p)
15028 #((top))
15029 #("i4366"))
15030 #(ribcage
15031 ()
15032 ()
15033 ())
15034 #(ribcage
15035 #(p lev)
15036 #((top)
15037 (top))
15038 #("i4329"
15039 "i4330"))
15040 #(ribcage
15041 #(quasicons
15042 quasiappend
15043 quasivector
15044 quasi)
15045 #((top)
15046 (top)
15047 (top)
15048 (top))
15049 #("i4261"
15050 "i4262"
15051 "i4263"
15052 "i4264")))
15053 (hygiene
15054 guile))
15055 #{p\ 4367}#))
15056 #{tmp\ 4331}#)))
15057 ($sc-dispatch
15058 #{tmp\ 4331}#
15059 '#(vector each-any)))))
15060 ($sc-dispatch
15061 #{tmp\ 4331}#
15062 '(any . any)))))
15063 ($sc-dispatch
15064 #{tmp\ 4331}#
15065 '(#(free-id
15066 #(syntax-object
15067 quasiquote
15068 ((top)
15069 #(ribcage () () ())
15070 #(ribcage
15071 #(p lev)
15072 #((top) (top))
15073 #("i4329" "i4330"))
15074 #(ribcage
15075 #(quasicons
15076 quasiappend
15077 quasivector
15078 quasi)
15079 #((top) (top) (top) (top))
15080 #("i4261"
15081 "i4262"
15082 "i4263"
15083 "i4264")))
15084 (hygiene guile)))
15085 any)))))
15086 ($sc-dispatch
15087 #{tmp\ 4331}#
15088 '((#(free-id
15089 #(syntax-object
15090 unquote-splicing
15091 ((top)
15092 #(ribcage () () ())
15093 #(ribcage
15094 #(p lev)
15095 #((top) (top))
15096 #("i4329" "i4330"))
15097 #(ribcage
15098 #(quasicons
15099 quasiappend
15100 quasivector
15101 quasi)
15102 #((top) (top) (top) (top))
15103 #("i4261"
15104 "i4262"
15105 "i4263"
15106 "i4264")))
15107 (hygiene guile)))
15108 .
15109 any)
15110 .
15111 any)))))
15112 ($sc-dispatch
15113 #{tmp\ 4331}#
15114 '((#(free-id
15115 #(syntax-object
15116 unquote-splicing
15117 ((top)
15118 #(ribcage () () ())
15119 #(ribcage
15120 #(p lev)
15121 #((top) (top))
15122 #("i4329" "i4330"))
15123 #(ribcage
15124 #(quasicons
15125 quasiappend
15126 quasivector
15127 quasi)
15128 #((top) (top) (top) (top))
15129 #("i4261" "i4262" "i4263" "i4264")))
15130 (hygiene guile)))
15131 any)
15132 .
15133 any)))))
15134 ($sc-dispatch
15135 #{tmp\ 4331}#
15136 '(#(free-id
15137 #(syntax-object
15138 unquote
15139 ((top)
15140 #(ribcage () () ())
15141 #(ribcage
15142 #(p lev)
15143 #((top) (top))
15144 #("i4329" "i4330"))
15145 #(ribcage
15146 #(quasicons quasiappend quasivector quasi)
15147 #((top) (top) (top) (top))
15148 #("i4261" "i4262" "i4263" "i4264")))
15149 (hygiene guile)))
15150 .
15151 any)))))
15152 ($sc-dispatch
15153 #{tmp\ 4331}#
15154 '(#(free-id
15155 #(syntax-object
15156 unquote
15157 ((top)
15158 #(ribcage () () ())
15159 #(ribcage
15160 #(p lev)
15161 #((top) (top))
15162 #("i4329" "i4330"))
15163 #(ribcage
15164 #(quasicons quasiappend quasivector quasi)
15165 #((top) (top) (top) (top))
15166 #("i4261" "i4262" "i4263" "i4264")))
15167 (hygiene guile)))
15168 any))))
15169 #{p\ 4327}#))))
15170 (lambda (#{x\ 4368}#)
15171 ((lambda (#{tmp\ 4370}#)
15172 ((lambda (#{tmp\ 4371}#)
15173 (if #{tmp\ 4371}#
15174 (apply (lambda (#{_\ 4374}# #{e\ 4375}#)
15175 (#{quasi\ 4268}# #{e\ 4375}# 0))
15176 #{tmp\ 4371}#)
15177 (syntax-violation
15178 #f
15179 "source expression failed to match any pattern"
15180 #{tmp\ 4370}#)))
15181 ($sc-dispatch #{tmp\ 4370}# (quote (any any)))))
15182 #{x\ 4368}#)))))
15183
15184 (define include
15185 (make-syntax-transformer
15186 'include
15187 'macro
15188 (lambda (#{x\ 4376}#)
15189 (letrec ((#{read-file\ 4379}#
15190 (lambda (#{fn\ 4380}# #{k\ 4381}#)
15191 (let ((#{p\ 4385}# (open-input-file #{fn\ 4380}#)))
15192 (letrec ((#{f\ 4389}#
15193 (lambda (#{x\ 4390}# #{result\ 4391}#)
15194 (if (eof-object? #{x\ 4390}#)
15195 (begin
15196 (close-input-port #{p\ 4385}#)
15197 (reverse #{result\ 4391}#))
15198 (#{f\ 4389}#
15199 (read #{p\ 4385}#)
15200 (cons (datum->syntax
15201 #{k\ 4381}#
15202 #{x\ 4390}#)
15203 #{result\ 4391}#))))))
15204 (#{f\ 4389}# (read #{p\ 4385}#) (quote ())))))))
15205 ((lambda (#{tmp\ 4392}#)
15206 ((lambda (#{tmp\ 4393}#)
15207 (if #{tmp\ 4393}#
15208 (apply (lambda (#{k\ 4396}# #{filename\ 4397}#)
15209 (let ((#{fn\ 4399}#
15210 (syntax->datum #{filename\ 4397}#)))
15211 ((lambda (#{tmp\ 4401}#)
15212 ((lambda (#{tmp\ 4402}#)
15213 (if #{tmp\ 4402}#
15214 (apply (lambda (#{exp\ 4404}#)
15215 (cons '#(syntax-object
15216 begin
15217 ((top)
15218 #(ribcage
15219 #(exp)
15220 #((top))
15221 #("i4403"))
15222 #(ribcage () () ())
15223 #(ribcage () () ())
15224 #(ribcage
15225 #(fn)
15226 #((top))
15227 #("i4398"))
15228 #(ribcage
15229 #(k filename)
15230 #((top) (top))
15231 #("i4394" "i4395"))
15232 #(ribcage
15233 (read-file)
15234 ((top))
15235 ("i4378"))
15236 #(ribcage
15237 #(x)
15238 #((top))
15239 #("i4377")))
15240 (hygiene guile))
15241 #{exp\ 4404}#))
15242 #{tmp\ 4402}#)
15243 (syntax-violation
15244 #f
15245 "source expression failed to match any pattern"
15246 #{tmp\ 4401}#)))
15247 ($sc-dispatch #{tmp\ 4401}# (quote each-any))))
15248 (#{read-file\ 4379}#
15249 #{fn\ 4399}#
15250 #{filename\ 4397}#))))
15251 #{tmp\ 4393}#)
15252 (syntax-violation
15253 #f
15254 "source expression failed to match any pattern"
15255 #{tmp\ 4392}#)))
15256 ($sc-dispatch #{tmp\ 4392}# (quote (any any)))))
15257 #{x\ 4376}#)))))
15258
15259 (define include-from-path
15260 (make-syntax-transformer
15261 'include-from-path
15262 'macro
15263 (lambda (#{x\ 4406}#)
15264 ((lambda (#{tmp\ 4408}#)
15265 ((lambda (#{tmp\ 4409}#)
15266 (if #{tmp\ 4409}#
15267 (apply (lambda (#{k\ 4412}# #{filename\ 4413}#)
15268 (let ((#{fn\ 4415}# (syntax->datum #{filename\ 4413}#)))
15269 ((lambda (#{tmp\ 4417}#)
15270 ((lambda (#{fn\ 4419}#)
15271 (list '#(syntax-object
15272 include
15273 ((top)
15274 #(ribcage #(fn) #((top)) #("i4418"))
15275 #(ribcage () () ())
15276 #(ribcage () () ())
15277 #(ribcage #(fn) #((top)) #("i4414"))
15278 #(ribcage
15279 #(k filename)
15280 #((top) (top))
15281 #("i4410" "i4411"))
15282 #(ribcage () () ())
15283 #(ribcage #(x) #((top)) #("i4407")))
15284 (hygiene guile))
15285 #{fn\ 4419}#))
15286 #{tmp\ 4417}#))
15287 (datum->syntax
15288 #{filename\ 4413}#
15289 (let ((#{t\ 4422}#
15290 (%search-load-path #{fn\ 4415}#)))
15291 (if #{t\ 4422}#
15292 #{t\ 4422}#
15293 (syntax-violation
15294 'include-from-path
15295 "file not found in path"
15296 #{x\ 4406}#
15297 #{filename\ 4413}#)))))))
15298 #{tmp\ 4409}#)
15299 (syntax-violation
15300 #f
15301 "source expression failed to match any pattern"
15302 #{tmp\ 4408}#)))
15303 ($sc-dispatch #{tmp\ 4408}# (quote (any any)))))
15304 #{x\ 4406}#))))
15305
15306 (define unquote
15307 (make-syntax-transformer
15308 'unquote
15309 'macro
15310 (lambda (#{x\ 4424}#)
15311 ((lambda (#{tmp\ 4426}#)
15312 ((lambda (#{tmp\ 4427}#)
15313 (if #{tmp\ 4427}#
15314 (apply (lambda (#{_\ 4430}# #{e\ 4431}#)
15315 (syntax-violation
15316 'unquote
15317 "expression not valid outside of quasiquote"
15318 #{x\ 4424}#))
15319 #{tmp\ 4427}#)
15320 (syntax-violation
15321 #f
15322 "source expression failed to match any pattern"
15323 #{tmp\ 4426}#)))
15324 ($sc-dispatch #{tmp\ 4426}# (quote (any any)))))
15325 #{x\ 4424}#))))
15326
15327 (define unquote-splicing
15328 (make-syntax-transformer
15329 'unquote-splicing
15330 'macro
15331 (lambda (#{x\ 4432}#)
15332 ((lambda (#{tmp\ 4434}#)
15333 ((lambda (#{tmp\ 4435}#)
15334 (if #{tmp\ 4435}#
15335 (apply (lambda (#{_\ 4438}# #{e\ 4439}#)
15336 (syntax-violation
15337 'unquote-splicing
15338 "expression not valid outside of quasiquote"
15339 #{x\ 4432}#))
15340 #{tmp\ 4435}#)
15341 (syntax-violation
15342 #f
15343 "source expression failed to match any pattern"
15344 #{tmp\ 4434}#)))
15345 ($sc-dispatch #{tmp\ 4434}# (quote (any any)))))
15346 #{x\ 4432}#))))
15347
15348 (define case
15349 (make-syntax-transformer
15350 'case
15351 'macro
15352 (lambda (#{x\ 4440}#)
15353 ((lambda (#{tmp\ 4442}#)
15354 ((lambda (#{tmp\ 4443}#)
15355 (if #{tmp\ 4443}#
15356 (apply (lambda (#{_\ 4448}#
15357 #{e\ 4449}#
15358 #{m1\ 4450}#
15359 #{m2\ 4451}#)
15360 ((lambda (#{tmp\ 4453}#)
15361 ((lambda (#{body\ 4455}#)
15362 (list '#(syntax-object
15363 let
15364 ((top)
15365 #(ribcage #(body) #((top)) #("i4454"))
15366 #(ribcage
15367 #(_ e m1 m2)
15368 #((top) (top) (top) (top))
15369 #("i4444" "i4445" "i4446" "i4447"))
15370 #(ribcage () () ())
15371 #(ribcage #(x) #((top)) #("i4441")))
15372 (hygiene guile))
15373 (list (list '#(syntax-object
15374 t
15375 ((top)
15376 #(ribcage
15377 #(body)
15378 #((top))
15379 #("i4454"))
15380 #(ribcage
15381 #(_ e m1 m2)
15382 #((top) (top) (top) (top))
15383 #("i4444"
15384 "i4445"
15385 "i4446"
15386 "i4447"))
15387 #(ribcage () () ())
15388 #(ribcage
15389 #(x)
15390 #((top))
15391 #("i4441")))
15392 (hygiene guile))
15393 #{e\ 4449}#))
15394 #{body\ 4455}#))
15395 #{tmp\ 4453}#))
15396 (letrec ((#{f\ 4459}#
15397 (lambda (#{clause\ 4460}# #{clauses\ 4461}#)
15398 (if (null? #{clauses\ 4461}#)
15399 ((lambda (#{tmp\ 4463}#)
15400 ((lambda (#{tmp\ 4464}#)
15401 (if #{tmp\ 4464}#
15402 (apply (lambda (#{e1\ 4467}#
15403 #{e2\ 4468}#)
15404 (cons '#(syntax-object
15405 begin
15406 ((top)
15407 #(ribcage
15408 #(e1 e2)
15409 #((top)
15410 (top))
15411 #("i4465"
15412 "i4466"))
15413 #(ribcage
15414 ()
15415 ()
15416 ())
15417 #(ribcage
15418 #(f
15419 clause
15420 clauses)
15421 #((top)
15422 (top)
15423 (top))
15424 #("i4456"
15425 "i4457"
15426 "i4458"))
15427 #(ribcage
15428 #(_
15429 e
15430 m1
15431 m2)
15432 #((top)
15433 (top)
15434 (top)
15435 (top))
15436 #("i4444"
15437 "i4445"
15438 "i4446"
15439 "i4447"))
15440 #(ribcage
15441 ()
15442 ()
15443 ())
15444 #(ribcage
15445 #(x)
15446 #((top))
15447 #("i4441")))
15448 (hygiene
15449 guile))
15450 (cons #{e1\ 4467}#
15451 #{e2\ 4468}#)))
15452 #{tmp\ 4464}#)
15453 ((lambda (#{tmp\ 4470}#)
15454 (if #{tmp\ 4470}#
15455 (apply (lambda (#{k\ 4474}#
15456 #{e1\ 4475}#
15457 #{e2\ 4476}#)
15458 (list '#(syntax-object
15459 if
15460 ((top)
15461 #(ribcage
15462 #(k
15463 e1
15464 e2)
15465 #((top)
15466 (top)
15467 (top))
15468 #("i4471"
15469 "i4472"
15470 "i4473"))
15471 #(ribcage
15472 ()
15473 ()
15474 ())
15475 #(ribcage
15476 #(f
15477 clause
15478 clauses)
15479 #((top)
15480 (top)
15481 (top))
15482 #("i4456"
15483 "i4457"
15484 "i4458"))
15485 #(ribcage
15486 #(_
15487 e
15488 m1
15489 m2)
15490 #((top)
15491 (top)
15492 (top)
15493 (top))
15494 #("i4444"
15495 "i4445"
15496 "i4446"
15497 "i4447"))
15498 #(ribcage
15499 ()
15500 ()
15501 ())
15502 #(ribcage
15503 #(x)
15504 #((top))
15505 #("i4441")))
15506 (hygiene
15507 guile))
15508 (list '#(syntax-object
15509 memv
15510 ((top)
15511 #(ribcage
15512 #(k
15513 e1
15514 e2)
15515 #((top)
15516 (top)
15517 (top))
15518 #("i4471"
15519 "i4472"
15520 "i4473"))
15521 #(ribcage
15522 ()
15523 ()
15524 ())
15525 #(ribcage
15526 #(f
15527 clause
15528 clauses)
15529 #((top)
15530 (top)
15531 (top))
15532 #("i4456"
15533 "i4457"
15534 "i4458"))
15535 #(ribcage
15536 #(_
15537 e
15538 m1
15539 m2)
15540 #((top)
15541 (top)
15542 (top)
15543 (top))
15544 #("i4444"
15545 "i4445"
15546 "i4446"
15547 "i4447"))
15548 #(ribcage
15549 ()
15550 ()
15551 ())
15552 #(ribcage
15553 #(x)
15554 #((top))
15555 #("i4441")))
15556 (hygiene
15557 guile))
15558 '#(syntax-object
15559 t
15560 ((top)
15561 #(ribcage
15562 #(k
15563 e1
15564 e2)
15565 #((top)
15566 (top)
15567 (top))
15568 #("i4471"
15569 "i4472"
15570 "i4473"))
15571 #(ribcage
15572 ()
15573 ()
15574 ())
15575 #(ribcage
15576 #(f
15577 clause
15578 clauses)
15579 #((top)
15580 (top)
15581 (top))
15582 #("i4456"
15583 "i4457"
15584 "i4458"))
15585 #(ribcage
15586 #(_
15587 e
15588 m1
15589 m2)
15590 #((top)
15591 (top)
15592 (top)
15593 (top))
15594 #("i4444"
15595 "i4445"
15596 "i4446"
15597 "i4447"))
15598 #(ribcage
15599 ()
15600 ()
15601 ())
15602 #(ribcage
15603 #(x)
15604 #((top))
15605 #("i4441")))
15606 (hygiene
15607 guile))
15608 (list '#(syntax-object
15609 quote
15610 ((top)
15611 #(ribcage
15612 #(k
15613 e1
15614 e2)
15615 #((top)
15616 (top)
15617 (top))
15618 #("i4471"
15619 "i4472"
15620 "i4473"))
15621 #(ribcage
15622 ()
15623 ()
15624 ())
15625 #(ribcage
15626 #(f
15627 clause
15628 clauses)
15629 #((top)
15630 (top)
15631 (top))
15632 #("i4456"
15633 "i4457"
15634 "i4458"))
15635 #(ribcage
15636 #(_
15637 e
15638 m1
15639 m2)
15640 #((top)
15641 (top)
15642 (top)
15643 (top))
15644 #("i4444"
15645 "i4445"
15646 "i4446"
15647 "i4447"))
15648 #(ribcage
15649 ()
15650 ()
15651 ())
15652 #(ribcage
15653 #(x)
15654 #((top))
15655 #("i4441")))
15656 (hygiene
15657 guile))
15658 #{k\ 4474}#))
15659 (cons '#(syntax-object
15660 begin
15661 ((top)
15662 #(ribcage
15663 #(k
15664 e1
15665 e2)
15666 #((top)
15667 (top)
15668 (top))
15669 #("i4471"
15670 "i4472"
15671 "i4473"))
15672 #(ribcage
15673 ()
15674 ()
15675 ())
15676 #(ribcage
15677 #(f
15678 clause
15679 clauses)
15680 #((top)
15681 (top)
15682 (top))
15683 #("i4456"
15684 "i4457"
15685 "i4458"))
15686 #(ribcage
15687 #(_
15688 e
15689 m1
15690 m2)
15691 #((top)
15692 (top)
15693 (top)
15694 (top))
15695 #("i4444"
15696 "i4445"
15697 "i4446"
15698 "i4447"))
15699 #(ribcage
15700 ()
15701 ()
15702 ())
15703 #(ribcage
15704 #(x)
15705 #((top))
15706 #("i4441")))
15707 (hygiene
15708 guile))
15709 (cons #{e1\ 4475}#
15710 #{e2\ 4476}#))))
15711 #{tmp\ 4470}#)
15712 ((lambda (#{_\ 4480}#)
15713 (syntax-violation
15714 'case
15715 "bad clause"
15716 #{x\ 4440}#
15717 #{clause\ 4460}#))
15718 #{tmp\ 4463}#)))
15719 ($sc-dispatch
15720 #{tmp\ 4463}#
15721 '(each-any
15722 any
15723 .
15724 each-any)))))
15725 ($sc-dispatch
15726 #{tmp\ 4463}#
15727 '(#(free-id
15728 #(syntax-object
15729 else
15730 ((top)
15731 #(ribcage () () ())
15732 #(ribcage
15733 #(f clause clauses)
15734 #((top) (top) (top))
15735 #("i4456"
15736 "i4457"
15737 "i4458"))
15738 #(ribcage
15739 #(_ e m1 m2)
15740 #((top)
15741 (top)
15742 (top)
15743 (top))
15744 #("i4444"
15745 "i4445"
15746 "i4446"
15747 "i4447"))
15748 #(ribcage () () ())
15749 #(ribcage
15750 #(x)
15751 #((top))
15752 #("i4441")))
15753 (hygiene guile)))
15754 any
15755 .
15756 each-any))))
15757 #{clause\ 4460}#)
15758 ((lambda (#{tmp\ 4482}#)
15759 ((lambda (#{rest\ 4484}#)
15760 ((lambda (#{tmp\ 4485}#)
15761 ((lambda (#{tmp\ 4486}#)
15762 (if #{tmp\ 4486}#
15763 (apply (lambda (#{k\ 4490}#
15764 #{e1\ 4491}#
15765 #{e2\ 4492}#)
15766 (list '#(syntax-object
15767 if
15768 ((top)
15769 #(ribcage
15770 #(k
15771 e1
15772 e2)
15773 #((top)
15774 (top)
15775 (top))
15776 #("i4487"
15777 "i4488"
15778 "i4489"))
15779 #(ribcage
15780 #(rest)
15781 #((top))
15782 #("i4483"))
15783 #(ribcage
15784 ()
15785 ()
15786 ())
15787 #(ribcage
15788 #(f
15789 clause
15790 clauses)
15791 #((top)
15792 (top)
15793 (top))
15794 #("i4456"
15795 "i4457"
15796 "i4458"))
15797 #(ribcage
15798 #(_
15799 e
15800 m1
15801 m2)
15802 #((top)
15803 (top)
15804 (top)
15805 (top))
15806 #("i4444"
15807 "i4445"
15808 "i4446"
15809 "i4447"))
15810 #(ribcage
15811 ()
15812 ()
15813 ())
15814 #(ribcage
15815 #(x)
15816 #((top))
15817 #("i4441")))
15818 (hygiene
15819 guile))
15820 (list '#(syntax-object
15821 memv
15822 ((top)
15823 #(ribcage
15824 #(k
15825 e1
15826 e2)
15827 #((top)
15828 (top)
15829 (top))
15830 #("i4487"
15831 "i4488"
15832 "i4489"))
15833 #(ribcage
15834 #(rest)
15835 #((top))
15836 #("i4483"))
15837 #(ribcage
15838 ()
15839 ()
15840 ())
15841 #(ribcage
15842 #(f
15843 clause
15844 clauses)
15845 #((top)
15846 (top)
15847 (top))
15848 #("i4456"
15849 "i4457"
15850 "i4458"))
15851 #(ribcage
15852 #(_
15853 e
15854 m1
15855 m2)
15856 #((top)
15857 (top)
15858 (top)
15859 (top))
15860 #("i4444"
15861 "i4445"
15862 "i4446"
15863 "i4447"))
15864 #(ribcage
15865 ()
15866 ()
15867 ())
15868 #(ribcage
15869 #(x)
15870 #((top))
15871 #("i4441")))
15872 (hygiene
15873 guile))
15874 '#(syntax-object
15875 t
15876 ((top)
15877 #(ribcage
15878 #(k
15879 e1
15880 e2)
15881 #((top)
15882 (top)
15883 (top))
15884 #("i4487"
15885 "i4488"
15886 "i4489"))
15887 #(ribcage
15888 #(rest)
15889 #((top))
15890 #("i4483"))
15891 #(ribcage
15892 ()
15893 ()
15894 ())
15895 #(ribcage
15896 #(f
15897 clause
15898 clauses)
15899 #((top)
15900 (top)
15901 (top))
15902 #("i4456"
15903 "i4457"
15904 "i4458"))
15905 #(ribcage
15906 #(_
15907 e
15908 m1
15909 m2)
15910 #((top)
15911 (top)
15912 (top)
15913 (top))
15914 #("i4444"
15915 "i4445"
15916 "i4446"
15917 "i4447"))
15918 #(ribcage
15919 ()
15920 ()
15921 ())
15922 #(ribcage
15923 #(x)
15924 #((top))
15925 #("i4441")))
15926 (hygiene
15927 guile))
15928 (list '#(syntax-object
15929 quote
15930 ((top)
15931 #(ribcage
15932 #(k
15933 e1
15934 e2)
15935 #((top)
15936 (top)
15937 (top))
15938 #("i4487"
15939 "i4488"
15940 "i4489"))
15941 #(ribcage
15942 #(rest)
15943 #((top))
15944 #("i4483"))
15945 #(ribcage
15946 ()
15947 ()
15948 ())
15949 #(ribcage
15950 #(f
15951 clause
15952 clauses)
15953 #((top)
15954 (top)
15955 (top))
15956 #("i4456"
15957 "i4457"
15958 "i4458"))
15959 #(ribcage
15960 #(_
15961 e
15962 m1
15963 m2)
15964 #((top)
15965 (top)
15966 (top)
15967 (top))
15968 #("i4444"
15969 "i4445"
15970 "i4446"
15971 "i4447"))
15972 #(ribcage
15973 ()
15974 ()
15975 ())
15976 #(ribcage
15977 #(x)
15978 #((top))
15979 #("i4441")))
15980 (hygiene
15981 guile))
15982 #{k\ 4490}#))
15983 (cons '#(syntax-object
15984 begin
15985 ((top)
15986 #(ribcage
15987 #(k
15988 e1
15989 e2)
15990 #((top)
15991 (top)
15992 (top))
15993 #("i4487"
15994 "i4488"
15995 "i4489"))
15996 #(ribcage
15997 #(rest)
15998 #((top))
15999 #("i4483"))
16000 #(ribcage
16001 ()
16002 ()
16003 ())
16004 #(ribcage
16005 #(f
16006 clause
16007 clauses)
16008 #((top)
16009 (top)
16010 (top))
16011 #("i4456"
16012 "i4457"
16013 "i4458"))
16014 #(ribcage
16015 #(_
16016 e
16017 m1
16018 m2)
16019 #((top)
16020 (top)
16021 (top)
16022 (top))
16023 #("i4444"
16024 "i4445"
16025 "i4446"
16026 "i4447"))
16027 #(ribcage
16028 ()
16029 ()
16030 ())
16031 #(ribcage
16032 #(x)
16033 #((top))
16034 #("i4441")))
16035 (hygiene
16036 guile))
16037 (cons #{e1\ 4491}#
16038 #{e2\ 4492}#))
16039 #{rest\ 4484}#))
16040 #{tmp\ 4486}#)
16041 ((lambda (#{_\ 4496}#)
16042 (syntax-violation
16043 'case
16044 "bad clause"
16045 #{x\ 4440}#
16046 #{clause\ 4460}#))
16047 #{tmp\ 4485}#)))
16048 ($sc-dispatch
16049 #{tmp\ 4485}#
16050 '(each-any
16051 any
16052 .
16053 each-any))))
16054 #{clause\ 4460}#))
16055 #{tmp\ 4482}#))
16056 (#{f\ 4459}#
16057 (car #{clauses\ 4461}#)
16058 (cdr #{clauses\ 4461}#)))))))
16059 (#{f\ 4459}# #{m1\ 4450}# #{m2\ 4451}#))))
16060 #{tmp\ 4443}#)
16061 (syntax-violation
16062 #f
16063 "source expression failed to match any pattern"
16064 #{tmp\ 4442}#)))
16065 ($sc-dispatch
16066 #{tmp\ 4442}#
16067 '(any any any . each-any))))
16068 #{x\ 4440}#))))
16069
16070 (define identifier-syntax
16071 (make-syntax-transformer
16072 'identifier-syntax
16073 'macro
16074 (lambda (#{x\ 4497}#)
16075 ((lambda (#{tmp\ 4499}#)
16076 ((lambda (#{tmp\ 4500}#)
16077 (if #{tmp\ 4500}#
16078 (apply (lambda (#{_\ 4503}# #{e\ 4504}#)
16079 (list '#(syntax-object
16080 lambda
16081 ((top)
16082 #(ribcage
16083 #(_ e)
16084 #((top) (top))
16085 #("i4501" "i4502"))
16086 #(ribcage () () ())
16087 #(ribcage #(x) #((top)) #("i4498")))
16088 (hygiene guile))
16089 '(#(syntax-object
16090 x
16091 ((top)
16092 #(ribcage
16093 #(_ e)
16094 #((top) (top))
16095 #("i4501" "i4502"))
16096 #(ribcage () () ())
16097 #(ribcage #(x) #((top)) #("i4498")))
16098 (hygiene guile)))
16099 '#((#(syntax-object
16100 macro-type
16101 ((top)
16102 #(ribcage
16103 #(_ e)
16104 #((top) (top))
16105 #("i4501" "i4502"))
16106 #(ribcage () () ())
16107 #(ribcage #(x) #((top)) #("i4498")))
16108 (hygiene guile))
16109 .
16110 #(syntax-object
16111 identifier-syntax
16112 ((top)
16113 #(ribcage
16114 #(_ e)
16115 #((top) (top))
16116 #("i4501" "i4502"))
16117 #(ribcage () () ())
16118 #(ribcage #(x) #((top)) #("i4498")))
16119 (hygiene guile))))
16120 (list '#(syntax-object
16121 syntax-case
16122 ((top)
16123 #(ribcage
16124 #(_ e)
16125 #((top) (top))
16126 #("i4501" "i4502"))
16127 #(ribcage () () ())
16128 #(ribcage #(x) #((top)) #("i4498")))
16129 (hygiene guile))
16130 '#(syntax-object
16131 x
16132 ((top)
16133 #(ribcage
16134 #(_ e)
16135 #((top) (top))
16136 #("i4501" "i4502"))
16137 #(ribcage () () ())
16138 #(ribcage #(x) #((top)) #("i4498")))
16139 (hygiene guile))
16140 '()
16141 (list '#(syntax-object
16142 id
16143 ((top)
16144 #(ribcage
16145 #(_ e)
16146 #((top) (top))
16147 #("i4501" "i4502"))
16148 #(ribcage () () ())
16149 #(ribcage
16150 #(x)
16151 #((top))
16152 #("i4498")))
16153 (hygiene guile))
16154 '(#(syntax-object
16155 identifier?
16156 ((top)
16157 #(ribcage
16158 #(_ e)
16159 #((top) (top))
16160 #("i4501" "i4502"))
16161 #(ribcage () () ())
16162 #(ribcage
16163 #(x)
16164 #((top))
16165 #("i4498")))
16166 (hygiene guile))
16167 (#(syntax-object
16168 syntax
16169 ((top)
16170 #(ribcage
16171 #(_ e)
16172 #((top) (top))
16173 #("i4501" "i4502"))
16174 #(ribcage () () ())
16175 #(ribcage
16176 #(x)
16177 #((top))
16178 #("i4498")))
16179 (hygiene guile))
16180 #(syntax-object
16181 id
16182 ((top)
16183 #(ribcage
16184 #(_ e)
16185 #((top) (top))
16186 #("i4501" "i4502"))
16187 #(ribcage () () ())
16188 #(ribcage
16189 #(x)
16190 #((top))
16191 #("i4498")))
16192 (hygiene guile))))
16193 (list '#(syntax-object
16194 syntax
16195 ((top)
16196 #(ribcage
16197 #(_ e)
16198 #((top) (top))
16199 #("i4501" "i4502"))
16200 #(ribcage () () ())
16201 #(ribcage
16202 #(x)
16203 #((top))
16204 #("i4498")))
16205 (hygiene guile))
16206 #{e\ 4504}#))
16207 (list (cons #{_\ 4503}#
16208 '(#(syntax-object
16209 x
16210 ((top)
16211 #(ribcage
16212 #(_ e)
16213 #((top) (top))
16214 #("i4501" "i4502"))
16215 #(ribcage () () ())
16216 #(ribcage
16217 #(x)
16218 #((top))
16219 #("i4498")))
16220 (hygiene guile))
16221 #(syntax-object
16222 ...
16223 ((top)
16224 #(ribcage
16225 #(_ e)
16226 #((top) (top))
16227 #("i4501" "i4502"))
16228 #(ribcage () () ())
16229 #(ribcage
16230 #(x)
16231 #((top))
16232 #("i4498")))
16233 (hygiene guile))))
16234 (list '#(syntax-object
16235 syntax
16236 ((top)
16237 #(ribcage
16238 #(_ e)
16239 #((top) (top))
16240 #("i4501" "i4502"))
16241 #(ribcage () () ())
16242 #(ribcage
16243 #(x)
16244 #((top))
16245 #("i4498")))
16246 (hygiene guile))
16247 (cons #{e\ 4504}#
16248 '(#(syntax-object
16249 x
16250 ((top)
16251 #(ribcage
16252 #(_ e)
16253 #((top) (top))
16254 #("i4501" "i4502"))
16255 #(ribcage () () ())
16256 #(ribcage
16257 #(x)
16258 #((top))
16259 #("i4498")))
16260 (hygiene guile))
16261 #(syntax-object
16262 ...
16263 ((top)
16264 #(ribcage
16265 #(_ e)
16266 #((top) (top))
16267 #("i4501" "i4502"))
16268 #(ribcage () () ())
16269 #(ribcage
16270 #(x)
16271 #((top))
16272 #("i4498")))
16273 (hygiene
16274 guile)))))))))
16275 #{tmp\ 4500}#)
16276 (syntax-violation
16277 #f
16278 "source expression failed to match any pattern"
16279 #{tmp\ 4499}#)))
16280 ($sc-dispatch #{tmp\ 4499}# (quote (any any)))))
16281 #{x\ 4497}#))))
16282
16283 (define define*
16284 (make-syntax-transformer
16285 'define*
16286 'macro
16287 (lambda (#{x\ 4505}#)
16288 ((lambda (#{tmp\ 4507}#)
16289 ((lambda (#{tmp\ 4508}#)
16290 (if #{tmp\ 4508}#
16291 (apply (lambda (#{_\ 4514}#
16292 #{id\ 4515}#
16293 #{args\ 4516}#
16294 #{b0\ 4517}#
16295 #{b1\ 4518}#)
16296 (list '#(syntax-object
16297 define
16298 ((top)
16299 #(ribcage
16300 #(_ id args b0 b1)
16301 #((top) (top) (top) (top) (top))
16302 #("i4509" "i4510" "i4511" "i4512" "i4513"))
16303 #(ribcage () () ())
16304 #(ribcage #(x) #((top)) #("i4506")))
16305 (hygiene guile))
16306 #{id\ 4515}#
16307 (cons '#(syntax-object
16308 lambda*
16309 ((top)
16310 #(ribcage
16311 #(_ id args b0 b1)
16312 #((top) (top) (top) (top) (top))
16313 #("i4509"
16314 "i4510"
16315 "i4511"
16316 "i4512"
16317 "i4513"))
16318 #(ribcage () () ())
16319 #(ribcage #(x) #((top)) #("i4506")))
16320 (hygiene guile))
16321 (cons #{args\ 4516}#
16322 (cons #{b0\ 4517}# #{b1\ 4518}#)))))
16323 #{tmp\ 4508}#)
16324 ((lambda (#{tmp\ 4520}#)
16325 (if (if #{tmp\ 4520}#
16326 (apply (lambda (#{_\ 4524}# #{id\ 4525}# #{val\ 4526}#)
16327 (identifier?
16328 '#(syntax-object
16329 x
16330 ((top)
16331 #(ribcage
16332 #(_ id val)
16333 #((top) (top) (top))
16334 #("i4521" "i4522" "i4523"))
16335 #(ribcage () () ())
16336 #(ribcage #(x) #((top)) #("i4506")))
16337 (hygiene guile))))
16338 #{tmp\ 4520}#)
16339 #f)
16340 (apply (lambda (#{_\ 4530}# #{id\ 4531}# #{val\ 4532}#)
16341 (list '#(syntax-object
16342 define
16343 ((top)
16344 #(ribcage
16345 #(_ id val)
16346 #((top) (top) (top))
16347 #("i4527" "i4528" "i4529"))
16348 #(ribcage () () ())
16349 #(ribcage #(x) #((top)) #("i4506")))
16350 (hygiene guile))
16351 #{id\ 4531}#
16352 #{val\ 4532}#))
16353 #{tmp\ 4520}#)
16354 (syntax-violation
16355 #f
16356 "source expression failed to match any pattern"
16357 #{tmp\ 4507}#)))
16358 ($sc-dispatch
16359 #{tmp\ 4507}#
16360 '(any any any)))))
16361 ($sc-dispatch
16362 #{tmp\ 4507}#
16363 '(any (any . any) any . each-any))))
16364 #{x\ 4505}#))))
16365
Unnamed repository; edit this file 'description' to name the repository.