1 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
4 (let ((#{session-id 4447}# (if #f #f))
5 (#{transformer-environment 4508}# (if #f #f)))
7 ((#{top-level-eval-hook 4445}#
8 (lambda (#{x 27176}# #{mod 27177}#)
9 (primitive-eval #{x 27176}#)))
10 (#{get-global-definition-hook 4449}#
11 (lambda (#{symbol 15643}# #{module 15644}#)
13 (if (if (not #{module 15644}#) (current-module) #f)
14 (warn "module system is booted, we should have a module"
19 (resolve-module (cdr #{module 15644}#))
23 (if (variable-bound? #{v 15645}#)
24 (let ((#{val 15647}# (variable-ref #{v 15645}#)))
25 (if (macro? #{val 15647}#)
26 (if (macro-type #{val 15647}#)
27 (cons (macro-type #{val 15647}#)
28 (macro-binding #{val 15647}#))
33 (#{maybe-name-value! 4451}#
34 (lambda (#{name 15924}# #{val 15925}#)
35 (if (if (struct? #{val 15925}#)
36 (eq? (struct-vtable #{val 15925}#)
37 (vector-ref %expanded-vtables 13))
39 (let ((#{meta 15932}# (struct-ref #{val 15925}# 1)))
40 (if (not (assq 'name #{meta 15932}#))
42 (cons (cons 'name #{name 15924}#) #{meta 15932}#)))
43 (struct-set! #{val 15925}# 1 #{v 15937}#)))))))
44 (#{build-application 4453}#
45 (lambda (#{source 15649}#
49 (vector-ref %expanded-vtables 11)
53 (#{build-conditional 4454}#
54 (lambda (#{source 15657}#
59 (vector-ref %expanded-vtables 10)
64 (#{build-dynlet 4455}#
65 (lambda (#{source 15667}#
70 (vector-ref %expanded-vtables 17)
75 (#{build-lexical-reference 4456}#
76 (lambda (#{type 27178}#
81 (vector-ref %expanded-vtables 3)
85 (#{build-lexical-assignment 4457}#
86 (lambda (#{source 15677}#
91 (if (if (struct? #{exp 15680}#)
92 (eq? (struct-vtable #{exp 15680}#)
93 (vector-ref %expanded-vtables 13))
95 (let ((#{meta 15696}# (struct-ref #{exp 15680}# 1)))
96 (if (not (assq 'name #{meta 15696}#))
98 (cons (cons 'name #{name 15678}#) #{meta 15696}#)))
99 (struct-set! #{exp 15680}# 1 #{v 15703}#)))))
101 (vector-ref %expanded-vtables 4)
106 (#{analyze-variable 4458}#
107 (lambda (#{mod 27187}#
109 #{modref-cont 27189}#
111 (if (not #{mod 27187}#)
112 (#{bare-cont 27190}# #{var 27188}#)
113 (let ((#{kind 27191}# (car #{mod 27187}#))
114 (#{mod 27192}# (cdr #{mod 27187}#)))
115 (if (eqv? #{kind 27191}# 'public)
116 (#{modref-cont 27189}#
120 (if (eqv? #{kind 27191}# 'private)
123 (module-name (current-module))))
124 (#{modref-cont 27189}#
128 (#{bare-cont 27190}# #{var 27188}#))
129 (if (eqv? #{kind 27191}# 'bare)
130 (#{bare-cont 27190}# #{var 27188}#)
131 (if (eqv? #{kind 27191}# 'hygiene)
134 (module-name (current-module))))
136 (resolve-module #{mod 27192}#)
139 (#{modref-cont 27189}#
143 (#{bare-cont 27190}# #{var 27188}#))
148 #{mod 27192}#)))))))))
149 (#{build-global-reference 4459}#
150 (lambda (#{source 27207}# #{var 27208}# #{mod 27209}#)
151 (#{analyze-variable 4458}#
154 (lambda (#{mod 27212}# #{var 27213}# #{public? 27214}#)
156 (vector-ref %expanded-vtables 5)
161 (lambda (#{var 27222}#)
163 (vector-ref %expanded-vtables 7)
166 (#{build-global-assignment 4460}#
167 (lambda (#{source 15712}#
172 (if (if (struct? #{exp 15714}#)
173 (eq? (struct-vtable #{exp 15714}#)
174 (vector-ref %expanded-vtables 13))
176 (let ((#{meta 15731}# (struct-ref #{exp 15714}# 1)))
177 (if (not (assq 'name #{meta 15731}#))
179 (cons (cons 'name #{var 15713}#) #{meta 15731}#)))
180 (struct-set! #{exp 15714}# 1 #{v 15738}#)))))
181 (#{analyze-variable 4458}#
184 (lambda (#{mod 15743}# #{var 15744}# #{public? 15745}#)
186 (vector-ref %expanded-vtables 6)
192 (lambda (#{var 15753}#)
194 (vector-ref %expanded-vtables 8)
198 (#{build-global-definition 4461}#
199 (lambda (#{source 27228}# #{var 27229}# #{exp 27230}#)
201 (if (if (struct? #{exp 27230}#)
202 (eq? (struct-vtable #{exp 27230}#)
203 (vector-ref %expanded-vtables 13))
205 (let ((#{meta 27246}# (struct-ref #{exp 27230}# 1)))
206 (if (not (assq 'name #{meta 27246}#))
208 (cons (cons 'name #{var 27229}#) #{meta 27246}#)))
209 (struct-set! #{exp 27230}# 1 #{v 27253}#)))))
211 (vector-ref %expanded-vtables 9)
215 (#{build-simple-lambda 4462}#
216 (lambda (#{src 15759}#
222 (let ((#{body 15770}#
224 (vector-ref %expanded-vtables 14)
235 (vector-ref %expanded-vtables 13)
239 (#{build-sequence 4467}#
240 (lambda (#{src 27261}# #{exps 27262}#)
241 (if (null? (cdr #{exps 27262}#))
244 (vector-ref %expanded-vtables 12)
248 (lambda (#{src 15782}#
255 #{maybe-name-value! 4451}#
258 (if (null? #{vars 15784}#)
261 (vector-ref %expanded-vtables 15)
266 #{body-exp 15786}#)))))
267 (#{build-named-let 4469}#
268 (lambda (#{src 15810}#
273 (let ((#{f 15815}# (car #{vars 15812}#))
274 (#{f-name 15816}# (car #{ids 15811}#))
275 (#{vars 15817}# (cdr #{vars 15812}#))
276 (#{ids 15818}# (cdr #{ids 15811}#)))
277 (let ((#{proc 15819}#
278 (let ((#{body 15839}#
280 (vector-ref %expanded-vtables 14)
291 (vector-ref %expanded-vtables 13)
296 (if (if (struct? #{proc 15819}#)
297 (eq? (struct-vtable #{proc 15819}#)
298 (vector-ref %expanded-vtables 13))
300 (let ((#{meta 15863}# (struct-ref #{proc 15819}# 1)))
301 (if (not (assq 'name #{meta 15863}#))
303 (cons (cons 'name #{f-name 15816}#)
305 (struct-set! #{proc 15819}# 1 #{v 15870}#)))))
307 #{maybe-name-value! 4451}#
310 (let ((#{names 15894}# (list #{f-name 15816}#))
311 (#{gensyms 15895}# (list #{f 15815}#))
312 (#{vals 15896}# (list #{proc 15819}#))
314 (let ((#{fun-exp 15901}#
316 (vector-ref %expanded-vtables 3)
321 (vector-ref %expanded-vtables 11)
324 #{val-exps 15813}#))))
326 (vector-ref %expanded-vtables 16)
332 #{body 15897}#)))))))
333 (#{build-letrec 4470}#
334 (lambda (#{src 15917}#
340 (if (null? #{vars 15920}#)
344 #{maybe-name-value! 4451}#
348 (vector-ref %expanded-vtables 16)
354 #{body-exp 15922}#)))))
355 (#{source-annotation 4479}#
356 (lambda (#{x 15948}#)
357 (if (if (vector? #{x 15948}#)
358 (if (= (vector-length #{x 15948}#) 4)
359 (eq? (vector-ref #{x 15948}# 0) 'syntax-object)
362 (#{source-annotation 4479}#
363 (vector-ref #{x 15948}# 1))
364 (if (pair? #{x 15948}#)
365 (let ((#{props 15963}# (source-properties #{x 15948}#)))
366 (if (pair? #{props 15963}#) #{props 15963}# #f))
369 (lambda (#{labels 15965}# #{bindings 15966}# #{r 15967}#)
370 (if (null? #{labels 15965}#)
373 (cdr #{labels 15965}#)
374 (cdr #{bindings 15966}#)
375 (cons (cons (car #{labels 15965}#)
376 (car #{bindings 15966}#))
378 (#{extend-var-env 4481}#
379 (lambda (#{labels 15968}# #{vars 15969}# #{r 15970}#)
380 (if (null? #{labels 15968}#)
382 (#{extend-var-env 4481}#
383 (cdr #{labels 15968}#)
385 (cons (cons (car #{labels 15968}#)
386 (cons 'lexical (car #{vars 15969}#)))
388 (#{macros-only-env 4482}#
389 (lambda (#{r 15971}#)
390 (if (null? #{r 15971}#)
392 (let ((#{a 15972}# (car #{r 15971}#)))
393 (if (eq? (car (cdr #{a 15972}#)) 'macro)
395 (#{macros-only-env 4482}# (cdr #{r 15971}#)))
396 (#{macros-only-env 4482}# (cdr #{r 15971}#)))))))
397 (#{global-extend 4484}#
398 (lambda (#{type 15974}# #{sym 15975}# #{val 15976}#)
402 (make-syntax-transformer
408 (if (symbol? #{x 9787}#)
410 (if (if (vector? #{x 9787}#)
411 (if (= (vector-length #{x 9787}#) 4)
412 (eq? (vector-ref #{x 9787}# 0) 'syntax-object)
415 (symbol? (vector-ref #{x 9787}# 1))
418 (lambda (#{ls 15986}#)
419 (if (null? #{ls 15986}#)
423 (#{session-id 4447}#)
424 (symbol->string (gensym "-")))
425 (#{gen-labels 4489}# (cdr #{ls 15986}#))))))
426 (#{make-binding-wrap 4500}#
427 (lambda (#{ids 15990}# #{labels 15991}# #{w 15992}#)
428 (if (null? #{ids 15990}#)
430 (cons (car #{w 15992}#)
431 (cons (let ((#{labelvec 15993}#
432 (list->vector #{labels 15991}#)))
434 (vector-length #{labelvec 15993}#)))
435 (let ((#{symnamevec 15995}#
436 (make-vector #{n 15994}#))
438 (make-vector #{n 15994}#)))
442 (lambda (#{ids 16000}# #{i 16001}#)
443 (if (not (null? #{ids 16000}#))
447 (car #{ids 16000}#)))
448 (if (if (vector? #{x 16004}#)
449 (if (= (vector-length
459 (vector-ref #{x 16004}# 1)
466 (if (null? #{m2 16021}#)
473 (car #{w 15992}#)))))
474 (lambda (#{symname 16041}#
487 (#{1+}# #{i 16001}#)))))))))
488 (#{f 15997}# #{ids 15990}# 0))
493 #{labelvec 15993}#)))))
494 (cdr #{w 15992}#))))))
496 (lambda (#{w1 16051}# #{w2 16052}#)
497 (let ((#{m1 16053}# (car #{w1 16051}#))
498 (#{s1 16054}# (cdr #{w1 16051}#)))
499 (if (null? #{m1 16053}#)
500 (if (null? #{s1 16054}#)
502 (cons (car #{w2 16052}#)
503 (let ((#{m2 16061}# (cdr #{w2 16052}#)))
504 (if (null? #{m2 16061}#)
506 (append #{s1 16054}# #{m2 16061}#)))))
507 (cons (let ((#{m2 16070}# (car #{w2 16052}#)))
508 (if (null? #{m2 16070}#)
510 (append #{m1 16053}# #{m2 16070}#)))
511 (let ((#{m2 16079}# (cdr #{w2 16052}#)))
512 (if (null? #{m2 16079}#)
514 (append #{s1 16054}# #{m2 16079}#))))))))
515 (#{same-marks? 4504}#
516 (lambda (#{x 16084}# #{y 16085}#)
517 (if (eq? #{x 16084}# #{y 16085}#)
518 (eq? #{x 16084}# #{y 16085}#)
519 (if (not (null? #{x 16084}#))
520 (if (not (null? #{y 16085}#))
521 (if (eq? (car #{x 16084}#) (car #{y 16085}#))
522 (#{same-marks? 4504}#
528 (#{id-var-name 4505}#
529 (lambda (#{id 16093}# #{w 16094}#)
532 (lambda (#{sym 16156}# #{subst 16157}# #{marks 16158}#)
533 (if (null? #{subst 16157}#)
534 (values #f #{marks 16158}#)
535 (let ((#{fst 16159}# (car #{subst 16157}#)))
536 (if (eq? #{fst 16159}# 'shift)
539 (cdr #{subst 16157}#)
540 (cdr #{marks 16158}#))
541 (let ((#{symnames 16161}# (vector-ref #{fst 16159}# 1)))
542 (if (vector? #{symnames 16161}#)
544 (vector-length #{symnames 16161}#)))
547 (lambda (#{i 16176}#)
548 (if (= #{i 16176}# #{n 16173}#)
551 (cdr #{subst 16157}#)
553 (if (if (eq? (vector-ref
557 (#{same-marks? 4504}#
560 (vector-ref #{fst 16159}# 2)
565 (vector-ref #{fst 16159}# 3)
568 (#{f 16174}# (#{1+}# #{i 16176}#)))))))
572 (lambda (#{symnames 16211}# #{i 16212}#)
573 (if (null? #{symnames 16211}#)
576 (cdr #{subst 16157}#)
578 (if (if (eq? (car #{symnames 16211}#)
580 (#{same-marks? 4504}#
583 (vector-ref #{fst 16159}# 2)
588 (vector-ref #{fst 16159}# 3)
592 (cdr #{symnames 16211}#)
593 (#{1+}# #{i 16212}#)))))))
594 (#{f 16209}# #{symnames 16161}# 0))))))))))
595 (if (symbol? #{id 16093}#)
601 (if #{t 16098}# #{t 16098}# #{id 16093}#))
602 (if (if (vector? #{id 16093}#)
603 (if (= (vector-length #{id 16093}#) 4)
604 (eq? (vector-ref #{id 16093}# 0) 'syntax-object)
607 (let ((#{id 16113}# (vector-ref #{id 16093}# 1))
608 (#{w1 16114}# (vector-ref #{id 16093}# 2)))
609 (let ((#{marks 16115}#
610 (let ((#{m1 16125}# (car #{w 16094}#))
611 (#{m2 16126}# (car #{w1 16114}#)))
612 (if (null? #{m2 16126}#)
614 (append #{m1 16125}# #{m2 16126}#)))))
621 (lambda (#{new-id 16142}# #{marks 16143}#)
629 (if #{t 16151}# #{t 16151}# #{id 16113}#)))))))
634 (#{locally-bound-identifiers 4506}#
635 (lambda (#{w 16234}# #{mod 16235}#)
638 (lambda (#{subst 16241}# #{results 16242}#)
639 (if (null? #{subst 16241}#)
641 (let ((#{fst 16243}# (car #{subst 16241}#)))
642 (if (eq? #{fst 16243}# 'shift)
644 (cdr #{subst 16241}#)
646 (let ((#{symnames 16245}# (vector-ref #{fst 16243}# 1))
647 (#{marks 16246}# (vector-ref #{fst 16243}# 2)))
648 (if (vector? #{symnames 16245}#)
649 (#{scan-vector-rib 16238}#
654 (#{scan-list-rib 16237}#
658 #{results 16242}#))))))))
659 (#{scan-list-rib 16237}#
660 (lambda (#{subst 16344}#
666 (lambda (#{symnames 16448}#
669 (if (null? #{symnames 16448}#)
671 (cdr #{subst 16344}#)
674 (cdr #{symnames 16448}#)
675 (cdr #{marks 16449}#)
677 (car #{symnames 16448}#)
679 (cons (car #{marks 16449}#)
681 (cons (cons #f (car #{w 16458}#))
682 (cons 'shift (cdr #{w 16458}#))))
684 #{results 16450}#))))))
688 #{results 16347}#))))
689 (#{scan-vector-rib 16238}#
690 (lambda (#{subst 16459}#
694 (let ((#{n 16463}# (vector-length #{symnames 16460}#)))
697 (lambda (#{i 16547}# #{results 16548}#)
698 (if (= #{i 16547}# #{n 16463}#)
700 (cdr #{subst 16459}#)
713 (cons (cons #f (car #{w 16556}#))
714 (cons 'shift (cdr #{w 16556}#))))
716 #{results 16548}#))))))
717 (#{f 16464}# 0 #{results 16462}#))))))
718 (#{scan 16236}# (cdr #{w 16234}#) '()))))
719 (#{valid-bound-ids? 4512}#
720 (lambda (#{ids 16557}#)
723 (lambda (#{ids 16720}#)
724 (if (null? #{ids 16720}#)
725 (null? #{ids 16720}#)
726 (if (let ((#{x 16731}# (car #{ids 16720}#)))
727 (if (symbol? #{x 16731}#)
729 (if (if (vector? #{x 16731}#)
730 (if (= (vector-length #{x 16731}#) 4)
731 (eq? (vector-ref #{x 16731}# 0)
735 (symbol? (vector-ref #{x 16731}# 1))
737 (#{all-ids? 16558}# (cdr #{ids 16720}#))
739 (#{all-ids? 16558}# #{ids 16557}#))
740 (#{distinct-bound-ids? 4513}# #{ids 16557}#)
742 (#{distinct-bound-ids? 4513}#
743 (lambda (#{ids 16859}#)
745 ((#{distinct? 16860}#
746 (lambda (#{ids 16972}#)
747 (if (null? #{ids 16972}#)
748 (null? #{ids 16972}#)
749 (if (not (#{bound-id-member? 4514}#
751 (cdr #{ids 16972}#)))
752 (#{distinct? 16860}# (cdr #{ids 16972}#))
754 (#{distinct? 16860}# #{ids 16859}#))))
755 (#{bound-id-member? 4514}#
756 (lambda (#{x 17182}# #{list 17183}#)
757 (if (not (null? #{list 17183}#))
759 (let ((#{j 17265}# (car #{list 17183}#)))
760 (if (if (if (vector? #{x 17182}#)
761 (if (= (vector-length #{x 17182}#) 4)
762 (eq? (vector-ref #{x 17182}# 0)
766 (if (vector? #{j 17265}#)
767 (if (= (vector-length #{j 17265}#) 4)
768 (eq? (vector-ref #{j 17265}# 0) 'syntax-object)
772 (if (eq? (vector-ref #{x 17182}# 1)
773 (vector-ref #{j 17265}# 1))
774 (#{same-marks? 4504}#
775 (car (vector-ref #{x 17182}# 2))
776 (car (vector-ref #{j 17265}# 2)))
778 (eq? #{x 17182}# #{j 17265}#)))))
781 (#{bound-id-member? 4514}#
783 (cdr #{list 17183}#))))
786 (lambda (#{x 17309}# #{w 17310}# #{defmod 17311}#)
787 (if (if (null? (car #{w 17310}#))
788 (null? (cdr #{w 17310}#))
791 (if (if (vector? #{x 17309}#)
792 (if (= (vector-length #{x 17309}#) 4)
793 (eq? (vector-ref #{x 17309}# 0) 'syntax-object)
796 (let ((#{expression 17325}# (vector-ref #{x 17309}# 1))
800 (vector-ref #{x 17309}# 2)))
801 (#{module 17327}# (vector-ref #{x 17309}# 3)))
807 (if (null? #{x 17309}#)
813 #{defmod 17311}#))))))
814 (#{source-wrap 4516}#
821 (if (if (pair? #{x 17344}#) #{s 17346}# #f)
822 (set-source-properties! #{x 17344}# #{s 17346}#))
826 (#{expand-sequence 4517}#
827 (lambda (#{body 27267}#
832 (#{build-sequence 4467}#
836 (lambda (#{body 27701}#
840 (if (null? #{body 27701}#)
842 (let ((#{first 27705}#
843 (let ((#{e 27709}# (car #{body 27701}#)))
846 (#{syntax-type 4521}#
850 (#{source-annotation 4479}# #{e 27709}#)
854 (lambda (#{type 27716}#
860 (#{expand-expr 4523}#
868 (cons #{first 27705}#
879 (#{expand-top-sequence 4518}#
880 (lambda (#{body 17365}#
889 (lambda (#{body 17503}#
897 (if (null? #{body 17503}#)
903 (let ((#{e 17511}# (car #{body 17503}#)))
904 (#{syntax-type 4521}#
909 (#{source-annotation 4479}#
911 (if #{t 17515}# #{t 17515}# #{s 17506}#))
915 (lambda (#{type 17750}#
921 (if (eqv? #{type 17750}# 'begin-form)
923 ($sc-dispatch #{e 17752}# '(_))))
926 (lambda () #{exps 17510}#)
931 '(_ any . each-any))))
934 (lambda (#{e1 17768}# #{e2 17769}#)
936 (cons #{e1 17768}# #{e2 17769}#)
947 "source expression failed to match any pattern"
949 (if (eqv? #{type 17750}# 'local-syntax-form)
950 (#{expand-local-syntax 4527}#
957 (lambda (#{body 17784}#
971 (if (eqv? #{type 17750}# 'eval-when-form)
975 '(_ each-any any . each-any))))
981 (let ((#{when-list 17800}#
982 (#{parse-when-list 4520}#
988 (if (eq? #{m 17507}# 'e)
1005 #{when-list 17800}#)
1007 (#{expand-top-sequence 4518}#
1019 #{when-list 17800}#)
1020 (if (let ((#{t 17904}#
1022 #{when-list 17800}#)))
1027 #{when-list 17800}#)))
1030 (if (eq? #{m 17507}#
1033 #{when-list 17800}#)
1044 (if (if (eq? #{m 17507}# 'c)
1046 (eq? #{m 17507}# 'c&e))
1057 (if (let ((#{t 18082}#
1059 #{when-list 17800}#)))
1064 #{when-list 17800}#)))
1067 (if (eq? #{m 17507}#
1070 #{when-list 17800}#)
1074 (#{expand-top-sequence 4518}#
1089 "source expression failed to match any pattern"
1091 (if (if (eqv? #{type 17750}#
1092 'define-syntax-form)
1094 (eqv? #{type 17750}#
1095 'define-syntax-parameter-form))
1097 (#{id-var-name 4505}#
1101 (#{macros-only-env 4482}#
1103 (if (eqv? #{m 17507}# 'c)
1104 (if (memq 'compile #{esew 17508}#)
1106 (#{expand-install-global 4519}#
1114 (#{top-level-eval-hook 4445}#
1117 (if (memq 'load #{esew 17508}#)
1118 (cons #{e 18306}# #{exps 17510}#)
1120 (if (memq 'load #{esew 17508}#)
1121 (cons (#{expand-install-global 4519}#
1130 (if (eqv? #{m 17507}# 'c&e)
1132 (#{expand-install-global 4519}#
1140 (#{top-level-eval-hook 4445}#
1143 (cons #{e 18948}# #{exps 17510}#)))
1145 (if (memq 'eval #{esew 17508}#)
1146 (#{top-level-eval-hook 4445}#
1147 (#{expand-install-global 4519}#
1156 (if (eqv? #{type 17750}# 'define-form)
1158 (#{id-var-name 4505}#
1161 (let ((#{type 19623}#
1162 (car (let ((#{t 19630}#
1170 (#{get-global-definition-hook 4449}#
1176 '(displaced-lexical)))))))
1177 (if (if (eqv? #{type 19623}# 'global)
1179 (if (eqv? #{type 19623}# 'core)
1181 (if (eqv? #{type 19623}#
1184 (eqv? #{type 19623}#
1187 (if (if (if (eq? #{m 17507}# 'c)
1189 (eq? #{m 17507}# 'c&e))
1190 (if (not (module-local-variable
1196 (let ((#{old 19667}#
1213 (make-undefined-variable)))))
1214 (cons (if (eq? #{m 17507}# 'c&e)
1216 (#{build-global-definition 4461}#
1225 (#{top-level-eval-hook 4445}#
1230 (#{build-global-definition 4461}#
1239 (if (eqv? #{type 19623}#
1243 "identifier out of context"
1251 "cannot define keyword at top level"
1257 (cons (if (eq? #{m 17507}# 'c&e)
1259 (#{expand-expr 4523}#
1268 (primitive-eval #{x 20563}#)
1271 (#{expand-expr 4523}#
1279 #{exps 17510}#)))))))))
1280 (lambda (#{exps 20568}#)
1282 (cdr #{body 17503}#)
1289 #{exps 20568}#)))))))
1301 (lambda (#{exps 17375}#)
1302 (if (null? #{exps 17375}#)
1303 (make-struct/no-tail
1304 (vector-ref %expanded-vtables 0)
1306 (#{build-sequence 4467}#
1310 (lambda (#{in 17499}# #{out 17500}#)
1311 (if (null? #{in 17499}#)
1313 (let ((#{e 17501}# (car #{in 17499}#)))
1316 (cons (if (procedure? #{e 17501}#)
1319 #{out 17500}#)))))))
1320 (#{lp 17415}# #{exps 17375}# '())))))))))
1321 (#{expand-install-global 4519}#
1322 (lambda (#{name 20569}# #{e 20570}#)
1323 (let ((#{exp 20576}#
1324 (let ((#{fun-exp 20586}#
1325 (if (equal? (module-name (current-module)) '(guile))
1326 (make-struct/no-tail
1327 (vector-ref %expanded-vtables 7)
1329 'make-syntax-transformer)
1330 (make-struct/no-tail
1331 (vector-ref %expanded-vtables 5)
1334 'make-syntax-transformer
1337 (list (make-struct/no-tail
1338 (vector-ref %expanded-vtables 1)
1341 (make-struct/no-tail
1342 (vector-ref %expanded-vtables 1)
1346 (make-struct/no-tail
1347 (vector-ref %expanded-vtables 11)
1350 #{arg-exps 20587}#))))
1352 (if (if (struct? #{exp 20576}#)
1353 (eq? (struct-vtable #{exp 20576}#)
1354 (vector-ref %expanded-vtables 13))
1356 (let ((#{meta 20628}# (struct-ref #{exp 20576}# 1)))
1357 (if (not (assq 'name #{meta 20628}#))
1359 (cons (cons 'name #{name 20569}#) #{meta 20628}#)))
1360 (struct-set! #{exp 20576}# 1 #{v 20635}#)))))
1361 (make-struct/no-tail
1362 (vector-ref %expanded-vtables 9)
1366 (#{parse-when-list 4520}#
1367 (lambda (#{e 20646}# #{when-list 20647}#)
1368 (let ((#{result 20648}#
1369 (#{strip 4535}# #{when-list 20647}# '(()))))
1372 (lambda (#{l 20703}#)
1373 (if (null? #{l 20703}#)
1375 (if (let ((#{t 20705}# (car #{l 20703}#)))
1376 (if (eq? #{t 20705}# 'compile)
1378 (if (eq? #{t 20705}# 'load)
1380 (if (eq? #{t 20705}# 'eval)
1382 (eq? #{t 20705}# 'expand)))))
1383 (#{lp 20649}# (cdr #{l 20703}#))
1388 (car #{l 20703}#)))))))
1389 (#{lp 20649}# #{result 20648}#)))))
1390 (#{syntax-type 4521}#
1391 (lambda (#{e 20707}#
1398 (if (symbol? #{e 20707}#)
1400 (#{id-var-name 4505}# #{e 20707}# #{w 20709}#)))
1402 (let ((#{t 20723}# (assq #{n 20714}# #{r 20708}#)))
1405 (if (symbol? #{n 20714}#)
1407 (#{get-global-definition-hook 4449}#
1410 (if #{t 20729}# #{t 20729}# '(global)))
1411 '(displaced-lexical))))))
1412 (let ((#{type 20716}# (car #{b 20715}#)))
1413 (if (eqv? #{type 20716}# 'lexical)
1421 (if (eqv? #{type 20716}# 'global)
1429 (if (eqv? #{type 20716}# 'macro)
1430 (if #{for-car? 20713}#
1438 (#{syntax-type 4521}#
1439 (#{expand-macro 4525}#
1459 #{mod 20712}#)))))))
1460 (if (pair? #{e 20707}#)
1461 (let ((#{first 20749}# (car #{e 20707}#)))
1464 (#{syntax-type 4521}#
1472 (lambda (#{ftype 20751}#
1478 (if (eqv? #{ftype 20751}# 'lexical)
1486 (if (eqv? #{ftype 20751}# 'global)
1498 (if (eqv? #{ftype 20751}# 'macro)
1499 (#{syntax-type 4521}#
1500 (#{expand-macro 4525}#
1514 (if (eqv? #{ftype 20751}# 'module-ref)
1521 (lambda (#{e 20777}#
1526 (#{syntax-type 4521}#
1533 #{for-car? 20713}#)))
1534 (if (eqv? #{ftype 20751}# 'core)
1542 (if (eqv? #{ftype 20751}# 'local-syntax)
1550 (if (eqv? #{ftype 20751}# 'begin)
1558 (if (eqv? #{ftype 20751}# 'eval-when)
1566 (if (eqv? #{ftype 20751}# 'define)
1567 (let ((#{tmp 20798}#
1571 (if (if #{tmp 20798}#
1573 (lambda (#{name 20802}#
1575 (if (symbol? #{name 20802}#)
1579 (if (= (vector-length
1596 (lambda (#{name 20830}#
1606 (let ((#{tmp 20832}#
1613 (if (if #{tmp 20832}#
1615 (lambda (#{name 20836}#
1624 (if (= (vector-length
1638 (#{valid-bound-ids? 4512}#
1641 (lambda (#{vars 20990}#
1644 (if (pair? #{vars 20990}#)
1646 (cdr #{vars 20990}#)
1647 (cons (#{wrap 4515}#
1648 (car #{vars 20990}#)
1658 (if (= (vector-length
1672 (cons (#{wrap 4515}#
1677 (if (null? #{vars 20990}#)
1681 (if (= (vector-length
1695 (#{join-wraps 4502}#
1700 (cons #{vars 20990}#
1701 #{ls 20991}#))))))))
1710 (lambda (#{name 21036}#
1721 (cons '#(syntax-object
1812 expand-simple-lambda
1816 eval-local-transformer
1825 expand-install-global
1835 with-transformer-environment
1836 transformer-environment
1838 locally-bound-identifiers
1855 set-ribcage-symnames!
1887 set-syntax-object-module!
1888 set-syntax-object-wrap!
1889 set-syntax-object-expression!
1890 syntax-object-module
1892 syntax-object-expression
1905 build-global-definition
1906 build-global-assignment
1907 build-global-reference
1909 build-lexical-assignment
1910 build-lexical-reference
1917 get-global-definition-hook
1918 put-global-definition-hook
1937 make-toplevel-define
2229 define-expansion-accessors
2230 define-expansion-constructors)
2240 (cons #{args 21037}#
2246 (if (if (pair? #{e 21045}#)
2249 (set-source-properties!
2257 (let ((#{tmp 21052}#
2261 (if (if #{tmp 21052}#
2263 (lambda (#{name 21056}#)
2269 (if (= (vector-length
2286 (lambda (#{name 21083}#)
2357 expand-simple-lambda
2361 eval-local-transformer
2370 expand-install-global
2380 with-transformer-environment
2381 transformer-environment
2383 locally-bound-identifiers
2400 set-ribcage-symnames!
2432 set-syntax-object-module!
2433 set-syntax-object-wrap!
2434 set-syntax-object-expression!
2435 syntax-object-module
2437 syntax-object-expression
2450 build-global-definition
2451 build-global-assignment
2452 build-global-reference
2454 build-lexical-assignment
2455 build-lexical-reference
2462 get-global-definition-hook
2463 put-global-definition-hook
2482 make-toplevel-define
2774 define-expansion-accessors
2775 define-expansion-constructors)
2847 expand-simple-lambda
2851 eval-local-transformer
2860 expand-install-global
2870 with-transformer-environment
2871 transformer-environment
2873 locally-bound-identifiers
2890 set-ribcage-symnames!
2922 set-syntax-object-module!
2923 set-syntax-object-wrap!
2924 set-syntax-object-expression!
2925 syntax-object-module
2927 syntax-object-expression
2940 build-global-definition
2941 build-global-assignment
2942 build-global-reference
2944 build-lexical-assignment
2945 build-lexical-reference
2952 get-global-definition-hook
2953 put-global-definition-hook
2972 make-toplevel-define
3264 define-expansion-accessors
3265 define-expansion-constructors)
3337 expand-simple-lambda
3341 eval-local-transformer
3350 expand-install-global
3360 with-transformer-environment
3361 transformer-environment
3363 locally-bound-identifiers
3380 set-ribcage-symnames!
3412 set-syntax-object-module!
3413 set-syntax-object-wrap!
3414 set-syntax-object-expression!
3415 syntax-object-module
3417 syntax-object-expression
3430 build-global-definition
3431 build-global-assignment
3432 build-global-reference
3434 build-lexical-assignment
3435 build-lexical-reference
3442 get-global-definition-hook
3443 put-global-definition-hook
3462 make-toplevel-define
3754 define-expansion-accessors
3755 define-expansion-constructors)
3769 "source expression failed to match any pattern"
3771 (if (eqv? #{ftype 20751}# 'define-syntax)
3772 (let ((#{tmp 21102}#
3776 (if (if #{tmp 21102}#
3778 (lambda (#{name 21106}#
3780 (if (symbol? #{name 21106}#)
3784 (if (= (vector-length
3801 (lambda (#{name 21134}#
3813 "source expression failed to match any pattern"
3815 (if (eqv? #{ftype 20751}#
3816 'define-syntax-parameter)
3817 (let ((#{tmp 21146}#
3821 (if (if #{tmp 21146}#
3823 (lambda (#{name 21150}#
3830 (if (= (vector-length
3847 (lambda (#{name 21178}#
3850 'define-syntax-parameter-form
3859 "source expression failed to match any pattern"
3867 #{mod 20712}#)))))))))))))))
3868 (if (if (vector? #{e 20707}#)
3869 (if (= (vector-length #{e 20707}#) 4)
3870 (eq? (vector-ref #{e 20707}# 0) 'syntax-object)
3873 (#{syntax-type 4521}#
3874 (vector-ref #{e 20707}# 1)
3876 (#{join-wraps 4502}#
3878 (vector-ref #{e 20707}# 2))
3880 (#{source-annotation 4479}# #{e 20707}#)))
3881 (if #{t 21206}# #{t 21206}# #{s 20710}#))
3883 (let ((#{t 21441}# (vector-ref #{e 20707}# 3)))
3884 (if #{t 21441}# #{t 21441}# #{mod 20712}#))
3886 (if (self-evaluating? #{e 20707}#)
3900 #{mod 20712}#)))))))
3902 (lambda (#{e 21450}#
3908 (#{syntax-type 4521}#
3912 (#{source-annotation 4479}# #{e 21450}#)
3916 (lambda (#{type 21608}#
3922 (#{expand-expr 4523}#
3930 (#{expand-expr 4523}#
3931 (lambda (#{type 21616}#
3938 (if (eqv? #{type 21616}# 'lexical)
3939 (make-struct/no-tail
3940 (vector-ref %expanded-vtables 3)
3944 (if (if (eqv? #{type 21616}# 'core)
3946 (eqv? #{type 21616}# 'core-form))
3953 (if (eqv? #{type 21616}# 'module-ref)
3960 (lambda (#{e 21648}#
3970 (if (eqv? #{type 21616}# 'lexical-call)
3971 (#{expand-application 4524}#
3972 (let ((#{id 21727}# (car #{e 21618}#)))
3973 (#{build-lexical-reference 4456}#
3975 (#{source-annotation 4479}# #{id 21727}#)
3976 (if (if (vector? #{id 21727}#)
3977 (if (= (vector-length #{id 21727}#) 4)
3978 (eq? (vector-ref #{id 21727}# 0) 'syntax-object)
3981 (syntax->datum #{id 21727}#)
3989 (if (eqv? #{type 21616}# 'global-call)
3990 (#{expand-application 4524}#
3991 (#{build-global-reference 4459}#
3992 (#{source-annotation 4479}# (car #{e 21618}#))
3993 (if (if (vector? #{value 21617}#)
3994 (if (= (vector-length #{value 21617}#) 4)
3995 (eq? (vector-ref #{value 21617}# 0)
3999 (vector-ref #{value 21617}# 1)
4001 (if (if (vector? #{value 21617}#)
4002 (if (= (vector-length #{value 21617}#) 4)
4003 (eq? (vector-ref #{value 21617}# 0)
4007 (vector-ref #{value 21617}# 3)
4014 (if (eqv? #{type 21616}# 'constant)
4015 (let ((#{exp 22064}#
4019 (if (if (pair? #{e 21618}#) #{s 21621}# #f)
4020 (set-source-properties!
4027 (make-struct/no-tail
4028 (vector-ref %expanded-vtables 1)
4031 (if (eqv? #{type 21616}# 'global)
4032 (#{analyze-variable 4458}#
4035 (lambda (#{mod 22100}#
4038 (make-struct/no-tail
4039 (vector-ref %expanded-vtables 5)
4044 (lambda (#{var 22111}#)
4045 (make-struct/no-tail
4046 (vector-ref %expanded-vtables 7)
4049 (if (eqv? #{type 21616}# 'call)
4050 (#{expand-application 4524}#
4061 (if (eqv? #{type 21616}# 'begin-form)
4062 (let ((#{tmp 22186}#
4065 '(_ any . each-any))))
4068 (lambda (#{e1 22190}# #{e2 22191}#)
4069 (#{expand-sequence 4517}#
4070 (cons #{e1 22190}# #{e2 22191}#)
4076 (let ((#{tmp 22278}#
4077 ($sc-dispatch #{e 21618}# '(_))))
4081 (if (include-deprecated-features)
4083 (issue-deprecation-warning
4084 "Sequences of zero expressions are deprecated. Use *unspecified*.")
4085 (make-struct/no-tail
4086 (vector-ref %expanded-vtables 0)
4090 "sequence of zero expressions"
4093 (if (if (pair? #{e 21618}#)
4096 (set-source-properties!
4105 "source expression failed to match any pattern"
4107 (if (eqv? #{type 21616}# 'local-syntax-form)
4108 (#{expand-local-syntax 4527}#
4115 #{expand-sequence 4517}#)
4116 (if (eqv? #{type 21616}# 'eval-when-form)
4117 (let ((#{tmp 22389}#
4120 '(_ each-any any . each-any))))
4123 (lambda (#{x 22393}#
4126 (let ((#{when-list 22396}#
4127 (#{parse-when-list 4520}#
4130 (if (memq 'eval #{when-list 22396}#)
4131 (#{expand-sequence 4517}#
4132 (cons #{e1 22394}# #{e2 22395}#)
4137 (make-struct/no-tail
4138 (vector-ref %expanded-vtables 0)
4143 "source expression failed to match any pattern"
4145 (if (if (eqv? #{type 21616}# 'define-form)
4147 (if (eqv? #{type 21616}#
4148 'define-syntax-form)
4150 (eqv? #{type 21616}#
4151 'define-syntax-parameter-form)))
4154 "definition in expression context"
4160 (if (eqv? #{type 21616}# 'syntax)
4163 "reference to pattern variable outside syntax form"
4166 (if (if (pair? #{e 21618}#)
4169 (set-source-properties!
4175 (if (eqv? #{type 21616}# 'displaced-lexical)
4178 "reference to identifier outside its scope"
4181 (if (if (pair? #{e 21618}#)
4184 (set-source-properties!
4195 (if (if (pair? #{e 21618}#)
4198 (set-source-properties!
4203 #{mod 21622}#))))))))))))))))))
4204 (#{expand-application 4524}#
4205 (lambda (#{x 22636}#
4211 (let ((#{tmp 22643}#
4212 ($sc-dispatch #{e 22637}# '(any . each-any))))
4215 (lambda (#{e0 22647}# #{e1 22648}#)
4216 (#{build-application 4453}#
4219 (map (lambda (#{e 22728}#)
4229 "source expression failed to match any pattern"
4231 (#{expand-macro 4525}#
4232 (lambda (#{p 22804}#
4240 ((#{rebuild-macro-output 22811}#
4241 (lambda (#{x 22844}# #{m 22845}#)
4242 (if (pair? #{x 22844}#)
4244 (cons (#{rebuild-macro-output 22811}#
4247 (#{rebuild-macro-output 22811}#
4251 (if (if (pair? #{e 22849}#) #{s 22808}# #f)
4252 (set-source-properties! #{e 22849}# #{s 22808}#))
4254 (if (if (vector? #{x 22844}#)
4255 (if (= (vector-length #{x 22844}#) 4)
4256 (eq? (vector-ref #{x 22844}# 0) 'syntax-object)
4259 (let ((#{w 22865}# (vector-ref #{x 22844}# 2)))
4260 (let ((#{ms 22866}# (car #{w 22865}#))
4261 (#{s 22867}# (cdr #{w 22865}#)))
4262 (if (if (pair? #{ms 22866}#)
4263 (eq? (car #{ms 22866}#) #f)
4265 (let ((#{expression 22875}#
4266 (vector-ref #{x 22844}# 1))
4268 (cons (cdr #{ms 22866}#)
4272 (cdr #{s 22867}#))))
4273 (#{module 22877}# (vector-ref #{x 22844}# 3)))
4276 #{expression 22875}#
4279 (let ((#{expression 22887}#
4281 (vector-ref #{x 22844}# 1)))
4283 (if (if (pair? #{e 22892}#)
4286 (set-source-properties!
4291 (cons (cons #{m 22845}# #{ms 22866}#)
4294 (cons 'shift #{s 22867}#))
4295 (cons 'shift #{s 22867}#))))
4296 (#{module 22889}# (vector-ref #{x 22844}# 3)))
4299 #{expression 22887}#
4301 #{module 22889}#)))))
4302 (if (vector? #{x 22844}#)
4303 (let ((#{n 22904}# (vector-length #{x 22844}#)))
4305 (let ((#{e 22913}# (make-vector #{n 22904}#)))
4307 (if (if (pair? #{e 22913}#) #{x 22844}# #f)
4308 (set-source-properties!
4314 (lambda (#{i 22958}#)
4315 (if (= #{i 22958}# #{n 22904}#)
4321 (#{rebuild-macro-output 22811}#
4322 (vector-ref #{x 22844}# #{i 22958}#)
4324 (#{loop 22906}# (#{1+}# #{i 22958}#)))))))
4325 (#{loop 22906}# 0))))
4326 (if (symbol? #{x 22844}#)
4329 "encountered raw symbol in macro output"
4330 (let ((#{s 22964}# (cdr #{w 22807}#)))
4333 (if (if (pair? #{e 22805}#) #{s 22964}# #f)
4334 (set-source-properties!
4342 (if (if (pair? #{x 22844}#) #{s 22808}# #f)
4343 (set-source-properties! #{x 22844}# #{s 22808}#))
4346 ((#{transformer-environment 4508}#
4347 (lambda (#{k 22812}#)
4355 (#{rebuild-macro-output 22811}#
4358 (cons (cons #f (car #{w 22807}#))
4359 (cons 'shift (cdr #{w 22807}#)))))
4362 (if (if (pair? #{e 22805}#) #{s 22808}# #f)
4363 (set-source-properties! #{e 22805}# #{s 22808}#))
4368 (string-append "m-" (#{session-id 4447}#) "-")))))))
4369 (#{expand-body 4526}#
4370 (lambda (#{body 22996}#
4371 #{outer-form 22997}#
4376 (cons '("placeholder" placeholder) #{r 22998}#)))
4377 (let ((#{ribcage 23002}# (vector 'ribcage '() '() '())))
4379 (cons (car #{w 22999}#)
4380 (cons #{ribcage 23002}# (cdr #{w 22999}#)))))
4383 (lambda (#{body 23017}#
4390 (if (null? #{body 23017}#)
4393 "no expressions in body"
4394 #{outer-form 22997}#)
4395 (let ((#{e 23024}# (cdr (car #{body 23017}#)))
4396 (#{er 23025}# (car (car #{body 23017}#))))
4399 (#{syntax-type 4521}#
4403 (#{source-annotation 4479}# #{er 23025}#)
4407 (lambda (#{type 23182}#
4413 (if (eqv? #{type 23182}# 'define-form)
4422 (#{session-id 4447}#)
4423 (symbol->string (gensym "-")))))
4424 (let ((#{var 23193}#
4428 (if (= (vector-length
4437 (vector-ref #{id 23191}# 1)
4441 (symbol->string #{id 23253}#)
4444 (let ((#{update 23243}#
4445 (cons (vector-ref #{id 23191}# 1)
4453 (let ((#{update 23245}#
4454 (cons (car (vector-ref
4464 (let ((#{update 23247}#
4465 (cons #{label 23192}#
4474 (cdr #{body 23017}#)
4475 (cons #{id 23191}# #{ids 23018}#)
4476 (cons #{label 23192}# #{labels 23019}#)
4477 (cons #{id 23191}# #{var-ids 23020}#)
4478 (cons #{var 23193}# #{vars 23021}#)
4479 (cons (cons #{er 23025}#
4485 (cons (cons 'lexical #{var 23193}#)
4486 #{bindings 23023}#)))))
4487 (if (if (eqv? #{type 23182}#
4488 'define-syntax-form)
4490 (eqv? #{type 23182}#
4491 'define-syntax-parameter-form))
4500 (#{session-id 4447}#)
4501 (symbol->string (gensym "-")))))
4503 (let ((#{update 23337}#
4504 (cons (vector-ref #{id 23286}# 1)
4512 (let ((#{update 23339}#
4513 (cons (car (vector-ref
4523 (let ((#{update 23341}#
4524 (cons #{label 23287}#
4533 (cdr #{body 23017}#)
4534 (cons #{id 23286}# #{ids 23018}#)
4535 (cons #{label 23287}# #{labels 23019}#)
4545 #{bindings 23023}#))))
4546 (if (eqv? #{type 23182}# 'begin-form)
4547 (let ((#{tmp 23349}#
4553 (lambda (#{e1 23353}#)
4557 (lambda (#{forms 23417}#)
4558 (if (null? #{forms 23417}#)
4559 (cdr #{body 23017}#)
4560 (cons (cons #{er 23025}#
4562 (car #{forms 23417}#)
4566 (cdr #{forms 23417}#)))))))
4567 (#{f 23354}# #{e1 23353}#))
4573 #{bindings 23023}#))
4577 "source expression failed to match any pattern"
4579 (if (eqv? #{type 23182}#
4581 (#{expand-local-syntax 4527}#
4588 (lambda (#{forms 23431}#
4596 (lambda (#{forms 23499}#)
4597 (if (null? #{forms 23499}#)
4598 (cdr #{body 23017}#)
4599 (cons (cons #{er 23432}#
4601 (car #{forms 23499}#)
4605 (cdr #{forms 23499}#)))))))
4606 (#{f 23436}# #{forms 23431}#))
4612 #{bindings 23023}#)))
4613 (if (null? #{ids 23018}#)
4614 (#{build-sequence 4467}#
4616 (map (lambda (#{x 23564}#)
4623 (#{syntax-type 4521}#
4627 (#{source-annotation 4479}#
4632 (lambda (#{type 23573}#
4638 (#{expand-expr 4523}#
4646 (cons (cons #{er 23025}#
4649 (if (if (pair? #{e 23184}#)
4652 (set-source-properties!
4658 (cdr #{body 23017}#))))
4660 (if (not (#{valid-bound-ids? 4512}#
4664 "invalid or duplicate identifier in definition"
4665 #{outer-form 22997}#))
4668 (lambda (#{bs 23682}#
4671 (if (not (null? #{bs 23682}#))
4673 (car #{bs 23682}#)))
4674 (if (eq? (car #{b 23685}#)
4677 (car (cdr #{b 23685}#))))
4678 (let ((#{r-cache 23688}#
4679 (if (eq? #{er 23687}#
4682 (#{macros-only-env 4482}#
4687 (#{eval-local-transformer 4528}#
4689 (cdr (cdr #{b 23685}#))
4697 #{r-cache 23688}#))))
4701 #{r-cache 23684}#)))))))
4708 (#{extend-env 4480}#
4712 (#{build-letrec 4470}#
4718 (reverse #{vars 23021}#)
4719 (map (lambda (#{x 24031}#)
4726 (#{syntax-type 4521}#
4730 (#{source-annotation 4479}#
4735 (lambda (#{type 24040}#
4741 (#{expand-expr 4523}#
4749 (reverse #{vals 23022}#))
4750 (let ((#{exps 24051}#
4751 (map (lambda (#{x 24052}#)
4758 (#{syntax-type 4521}#
4762 (#{source-annotation 4479}#
4767 (lambda (#{type 24060}#
4773 (#{expand-expr 4523}#
4781 (cons (cons #{er 23025}#
4784 (if (if (pair? #{e 23184}#)
4787 (set-source-properties!
4793 (cdr #{body 23017}#)))))
4794 (if (null? (cdr #{exps 24051}#))
4795 (car #{exps 24051}#)
4796 (make-struct/no-tail
4801 #{exps 24051}#)))))))))))))))))
4803 (map (lambda (#{x 23007}#)
4816 (#{expand-local-syntax 4527}#
4817 (lambda (#{rec? 24091}#
4824 (let ((#{tmp 24099}#
4827 '(_ #(each (any any)) any . each-any))))
4830 (lambda (#{id 24103}#
4834 (if (not (#{valid-bound-ids? 4512}# #{id 24103}#))
4837 "duplicate bound keyword"
4839 (let ((#{labels 24196}#
4840 (#{gen-labels 4489}# #{id 24103}#)))
4841 (let ((#{new-w 24197}#
4842 (#{make-binding-wrap 4500}#
4847 (cons #{e1 24105}# #{e2 24106}#)
4848 (#{extend-env 4480}#
4850 (let ((#{trans-r 24233}#
4851 (#{macros-only-env 4482}# #{r 24093}#)))
4853 (if #{rec? 24091}# #{new-w 24197}# #{w 24094}#)
4854 (map (lambda (#{x 24234}#)
4856 (#{eval-local-transformer 4528}#
4874 "bad local syntax definition"
4877 (if (if (pair? #{e 24092}#) #{s 24095}# #f)
4878 (set-source-properties! #{e 24092}# #{s 24095}#))
4882 (#{eval-local-transformer 4528}#
4883 (lambda (#{expanded 24514}# #{mod 24515}#)
4884 (let ((#{p 24516}# (primitive-eval #{expanded 24514}#)))
4885 (if (procedure? #{p 24516}#)
4889 "nonprocedure transformer"
4892 (lambda (#{x 5191}#)
4893 (if (if (if (vector? #{x 5191}#)
4894 (if (= (vector-length #{x 5191}#) 4)
4895 (eq? (vector-ref #{x 5191}# 0) 'syntax-object)
4898 (symbol? (vector-ref #{x 5191}# 1))
4900 (if (eq? (if (if (vector? #{x 5191}#)
4901 (if (= (vector-length #{x 5191}#) 4)
4902 (eq? (vector-ref #{x 5191}# 0) 'syntax-object)
4905 (vector-ref #{x 5191}# 1)
4907 (if (if (= (vector-length
4913 #(ribcage #(x) #((top)) #("l-*-2343"))
4920 expand-simple-lambda
4924 eval-local-transformer
4933 expand-install-global
4943 with-transformer-environment
4944 transformer-environment
4946 locally-bound-identifiers
4963 set-ribcage-symnames!
4995 set-syntax-object-module!
4996 set-syntax-object-wrap!
4997 set-syntax-object-expression!
4998 syntax-object-module
5000 syntax-object-expression
5013 build-global-definition
5014 build-global-assignment
5015 build-global-reference
5017 build-lexical-assignment
5018 build-lexical-reference
5025 get-global-definition-hook
5026 put-global-definition-hook
5045 make-toplevel-define
5337 define-expansion-accessors
5338 define-expansion-constructors)
5340 ("l-*-47" "l-*-46" "l-*-45")))
5351 #(ribcage #(x) #((top)) #("l-*-2343"))
5358 expand-simple-lambda
5362 eval-local-transformer
5371 expand-install-global
5381 with-transformer-environment
5382 transformer-environment
5384 locally-bound-identifiers
5401 set-ribcage-symnames!
5433 set-syntax-object-module!
5434 set-syntax-object-wrap!
5435 set-syntax-object-expression!
5436 syntax-object-module
5438 syntax-object-expression
5451 build-global-definition
5452 build-global-assignment
5453 build-global-reference
5455 build-lexical-assignment
5456 build-lexical-reference
5463 get-global-definition-hook
5464 put-global-definition-hook
5483 make-toplevel-define
5775 define-expansion-accessors
5776 define-expansion-constructors)
5778 ("l-*-47" "l-*-46" "l-*-45")))
5780 (eq? (#{id-var-name 4505}# #{x 5191}# '(()))
5781 (#{id-var-name 4505}#
5787 #(ribcage #(x) #((top)) #("l-*-2343"))
5794 expand-simple-lambda
5798 eval-local-transformer
5807 expand-install-global
5817 with-transformer-environment
5818 transformer-environment
5820 locally-bound-identifiers
5837 set-ribcage-symnames!
5869 set-syntax-object-module!
5870 set-syntax-object-wrap!
5871 set-syntax-object-expression!
5872 syntax-object-module
5874 syntax-object-expression
5887 build-global-definition
5888 build-global-assignment
5889 build-global-reference
5891 build-lexical-assignment
5892 build-lexical-reference
5899 get-global-definition-hook
5900 put-global-definition-hook
5919 make-toplevel-define
6211 define-expansion-accessors
6212 define-expansion-constructors)
6214 ("l-*-47" "l-*-46" "l-*-45")))
6219 (#{lambda-formals 4531}#
6220 (lambda (#{orig-args 24521}#)
6223 (lambda (#{args 24526}# #{rreq 24527}#)
6224 (let ((#{tmp 24529}# ($sc-dispatch #{args 24526}# '())))
6228 (#{check 24523}# (reverse #{rreq 24527}#) #f))
6230 (let ((#{tmp 24652}#
6231 ($sc-dispatch #{args 24526}# '(any . any))))
6232 (if (if #{tmp 24652}#
6234 (lambda (#{a 24656}# #{b 24657}#)
6235 (if (symbol? #{a 24656}#)
6237 (if (if (vector? #{a 24656}#)
6238 (if (= (vector-length #{a 24656}#) 4)
6239 (eq? (vector-ref #{a 24656}# 0)
6243 (symbol? (vector-ref #{a 24656}# 1))
6248 (lambda (#{a 24684}# #{b 24685}#)
6251 (cons #{a 24684}# #{rreq 24527}#)))
6253 (let ((#{tmp 24686}# (list #{args 24526}#)))
6255 (lambda (#{r 24688}#)
6256 (if (symbol? #{r 24688}#)
6258 (if (if (vector? #{r 24688}#)
6259 (if (= (vector-length #{r 24688}#) 4)
6260 (eq? (vector-ref #{r 24688}# 0)
6264 (symbol? (vector-ref #{r 24688}# 1))
6268 (lambda (#{r 24718}#)
6270 (reverse #{rreq 24527}#)
6275 "invalid argument list"
6277 #{args 24526}#)))))))))
6279 (lambda (#{req 24849}# #{rest 24850}#)
6280 (if (#{distinct-bound-ids? 4513}#
6282 (cons #{rest 24850}# #{req 24849}#)
6284 (values #{req 24849}# #f #{rest 24850}# #f)
6287 "duplicate identifier in argument list"
6288 #{orig-args 24521}#)))))
6289 (#{req 24522}# #{orig-args 24521}# '()))))
6290 (#{expand-simple-lambda 4532}#
6291 (lambda (#{e 24966}#
6300 (let ((#{ids 24975}#
6302 (append #{req 24971}# (list #{rest 24972}#))
6304 (let ((#{vars 24976}#
6305 (map #{gen-var 4536}# #{ids 24975}#)))
6306 (let ((#{labels 24977}#
6307 (#{gen-labels 4489}# #{ids 24975}#)))
6308 (#{build-simple-lambda 4462}#
6310 (map syntax->datum #{req 24971}#)
6312 (syntax->datum #{rest 24972}#)
6316 (#{expand-body 4526}#
6320 (if (if (pair? #{e 24966}#) #{s 24969}# #f)
6321 (set-source-properties! #{e 24966}# #{s 24969}#))
6325 (#{extend-var-env 4481}#
6329 (#{make-binding-wrap 4500}#
6333 #{mod 24970}#)))))))
6334 (#{lambda*-formals 4533}#
6335 (lambda (#{orig-args 25257}#)
6338 (lambda (#{args 25265}# #{rreq 25266}#)
6339 (let ((#{tmp 25268}# ($sc-dispatch #{args 25265}# '())))
6344 (reverse #{rreq 25266}#)
6349 (let ((#{tmp 25274}#
6350 ($sc-dispatch #{args 25265}# '(any . any))))
6351 (if (if #{tmp 25274}#
6353 (lambda (#{a 25278}# #{b 25279}#)
6354 (if (symbol? #{a 25278}#)
6356 (if (if (vector? #{a 25278}#)
6357 (if (= (vector-length #{a 25278}#) 4)
6358 (eq? (vector-ref #{a 25278}# 0)
6362 (symbol? (vector-ref #{a 25278}# 1))
6367 (lambda (#{a 25306}# #{b 25307}#)
6370 (cons #{a 25306}# #{rreq 25266}#)))
6372 (let ((#{tmp 25308}#
6373 ($sc-dispatch #{args 25265}# '(any . any))))
6374 (if (if #{tmp 25308}#
6376 (lambda (#{a 25312}# #{b 25313}#)
6377 (eq? (syntax->datum #{a 25312}#)
6382 (lambda (#{a 25314}# #{b 25315}#)
6385 (reverse #{rreq 25266}#)
6388 (let ((#{tmp 25318}#
6392 (if (if #{tmp 25318}#
6394 (lambda (#{a 25322}# #{b 25323}#)
6395 (eq? (syntax->datum #{a 25322}#)
6400 (lambda (#{a 25324}# #{b 25325}#)
6403 (reverse #{rreq 25266}#)
6407 (let ((#{tmp 25328}#
6411 (if (if #{tmp 25328}#
6413 (lambda (#{a 25332}# #{b 25333}#)
6414 (eq? (syntax->datum #{a 25332}#)
6419 (lambda (#{a 25334}# #{b 25335}#)
6422 (reverse #{rreq 25266}#)
6426 (let ((#{tmp 25338}#
6427 (list #{args 25265}#)))
6429 (lambda (#{r 25340}#)
6430 (if (symbol? #{r 25340}#)
6432 (if (if (vector? #{r 25340}#)
6433 (if (= (vector-length
6443 (vector-ref #{r 25340}# 1))
6447 (lambda (#{r 25370}#)
6450 (reverse #{rreq 25266}#)
6456 "invalid argument list"
6458 #{args 25265}#)))))))))))))))
6460 (lambda (#{args 25389}# #{req 25390}# #{ropt 25391}#)
6461 (let ((#{tmp 25393}# ($sc-dispatch #{args 25389}# '())))
6467 (reverse #{ropt 25391}#)
6471 (let ((#{tmp 25399}#
6472 ($sc-dispatch #{args 25389}# '(any . any))))
6473 (if (if #{tmp 25399}#
6475 (lambda (#{a 25403}# #{b 25404}#)
6476 (if (symbol? #{a 25403}#)
6478 (if (if (vector? #{a 25403}#)
6479 (if (= (vector-length #{a 25403}#) 4)
6480 (eq? (vector-ref #{a 25403}# 0)
6484 (symbol? (vector-ref #{a 25403}# 1))
6489 (lambda (#{a 25431}# #{b 25432}#)
6493 (cons (cons #{a 25431}#
6500 #("l-*-2482" "l-*-2483"))
6504 #((top) (top) (top))
6509 (check rest key opt req)
6530 expand-simple-lambda
6534 eval-local-transformer
6543 expand-install-global
6553 with-transformer-environment
6554 transformer-environment
6556 locally-bound-identifiers
6573 set-ribcage-symnames!
6605 set-syntax-object-module!
6606 set-syntax-object-wrap!
6607 set-syntax-object-expression!
6608 syntax-object-module
6610 syntax-object-expression
6623 build-global-definition
6624 build-global-assignment
6625 build-global-reference
6627 build-lexical-assignment
6628 build-lexical-reference
6635 get-global-definition-hook
6636 put-global-definition-hook
6655 make-toplevel-define
6947 define-expansion-accessors
6948 define-expansion-constructors)
6950 ("l-*-47" "l-*-46" "l-*-45")))
6954 (let ((#{tmp 25433}#
6957 '((any any) . any))))
6958 (if (if #{tmp 25433}#
6960 (lambda (#{a 25437}#
6963 (if (symbol? #{a 25437}#)
6965 (if (if (vector? #{a 25437}#)
6966 (if (= (vector-length #{a 25437}#)
6968 (eq? (vector-ref #{a 25437}# 0)
6972 (symbol? (vector-ref #{a 25437}# 1))
6977 (lambda (#{a 25466}# #{init 25467}# #{b 25468}#)
6981 (cons (list #{a 25466}# #{init 25467}#)
6984 (let ((#{tmp 25469}#
6988 (if (if #{tmp 25469}#
6990 (lambda (#{a 25473}# #{b 25474}#)
6991 (eq? (syntax->datum #{a 25473}#)
6996 (lambda (#{a 25475}# #{b 25476}#)
7000 (reverse #{ropt 25391}#)
7003 (let ((#{tmp 25479}#
7007 (if (if #{tmp 25479}#
7009 (lambda (#{a 25483}# #{b 25484}#)
7010 (eq? (syntax->datum #{a 25483}#)
7015 (lambda (#{a 25485}# #{b 25486}#)
7019 (reverse #{ropt 25391}#)
7022 (let ((#{tmp 25489}#
7023 (list #{args 25389}#)))
7025 (lambda (#{r 25491}#)
7026 (if (symbol? #{r 25491}#)
7028 (if (if (vector? #{r 25491}#)
7029 (if (= (vector-length
7039 (vector-ref #{r 25491}# 1))
7043 (lambda (#{r 25521}#)
7047 (reverse #{ropt 25391}#)
7052 "invalid optional argument list"
7054 #{args 25389}#)))))))))))))))
7056 (lambda (#{args 25540}#
7060 (let ((#{tmp 25545}# ($sc-dispatch #{args 25540}# '())))
7068 (cons #f (reverse #{rkey 25543}#))))
7070 (let ((#{tmp 25551}#
7071 ($sc-dispatch #{args 25540}# '(any . any))))
7072 (if (if #{tmp 25551}#
7074 (lambda (#{a 25555}# #{b 25556}#)
7075 (if (symbol? #{a 25555}#)
7077 (if (if (vector? #{a 25555}#)
7078 (if (= (vector-length #{a 25555}#) 4)
7079 (eq? (vector-ref #{a 25555}# 0)
7083 (symbol? (vector-ref #{a 25555}# 1))
7088 (lambda (#{a 25583}# #{b 25584}#)
7089 (let ((#{tmp 25585}#
7091 (syntax->datum #{a 25583}#))))
7096 (cons (cons #{tmp 25585}#
7113 #(args req opt rkey)
7147 expand-simple-lambda
7151 eval-local-transformer
7160 expand-install-global
7170 with-transformer-environment
7171 transformer-environment
7173 locally-bound-identifiers
7190 set-ribcage-symnames!
7222 set-syntax-object-module!
7223 set-syntax-object-wrap!
7224 set-syntax-object-expression!
7225 syntax-object-module
7227 syntax-object-expression
7240 build-global-definition
7241 build-global-assignment
7242 build-global-reference
7244 build-lexical-assignment
7245 build-lexical-reference
7252 get-global-definition-hook
7253 put-global-definition-hook
7272 make-toplevel-define
7564 define-expansion-accessors
7565 define-expansion-constructors)
7573 (let ((#{tmp 25588}#
7576 '((any any) . any))))
7577 (if (if #{tmp 25588}#
7579 (lambda (#{a 25592}#
7582 (if (symbol? #{a 25592}#)
7584 (if (if (vector? #{a 25592}#)
7585 (if (= (vector-length #{a 25592}#)
7587 (eq? (vector-ref #{a 25592}# 0)
7591 (symbol? (vector-ref #{a 25592}# 1))
7596 (lambda (#{a 25621}# #{init 25622}# #{b 25623}#)
7597 (let ((#{tmp 25624}#
7599 (syntax->datum #{a 25621}#))))
7604 (cons (list #{tmp 25624}#
7609 (let ((#{tmp 25627}#
7612 '((any any any) . any))))
7613 (if (if #{tmp 25627}#
7615 (lambda (#{a 25631}#
7619 (if (if (symbol? #{a 25631}#)
7621 (if (if (vector? #{a 25631}#)
7622 (if (= (vector-length
7632 (vector-ref #{a 25631}# 1))
7635 (syntax->datum #{k 25633}#))
7640 (lambda (#{a 25661}#
7648 (cons (list #{k 25663}#
7653 (let ((#{tmp 25665}#
7654 ($sc-dispatch #{args 25540}# '(any))))
7655 (if (if #{tmp 25665}#
7657 (lambda (#{aok 25669}#)
7658 (eq? (syntax->datum #{aok 25669}#)
7659 #:allow-other-keys))
7663 (lambda (#{aok 25670}#)
7668 (cons #t (reverse #{rkey 25543}#))))
7670 (let ((#{tmp 25673}#
7674 (if (if #{tmp 25673}#
7676 (lambda (#{aok 25677}#
7679 (if (eq? (syntax->datum
7689 (lambda (#{aok 25680}#
7697 (reverse #{rkey 25543}#))))
7699 (let ((#{tmp 25685}#
7703 (if (if #{tmp 25685}#
7705 (lambda (#{aok 25689}#
7707 (if (eq? (syntax->datum
7710 (if (symbol? #{r 25690}#)
7714 (if (= (vector-length
7732 (lambda (#{aok 25717}#
7742 (let ((#{tmp 25721}#
7746 (if (if #{tmp 25721}#
7748 (lambda (#{a 25725}#
7756 (lambda (#{a 25727}#
7766 (let ((#{tmp 25731}#
7767 (list #{args 25540}#)))
7769 (lambda (#{r 25733}#)
7775 (if (= (vector-length
7791 (lambda (#{r 25763}#)
7802 "invalid keyword argument list"
7804 #{args 25540}#)))))))))))))))))))))
7806 (lambda (#{args 25791}#
7810 (let ((#{tmp 25796}# (list #{args 25791}#)))
7812 (lambda (#{r 25798}#)
7813 (if (symbol? #{r 25798}#)
7815 (if (if (vector? #{r 25798}#)
7816 (if (= (vector-length #{r 25798}#) 4)
7817 (eq? (vector-ref #{r 25798}# 0)
7821 (symbol? (vector-ref #{r 25798}# 1))
7825 (lambda (#{r 25828}#)
7834 "invalid rest argument"
7838 (lambda (#{req 25832}#
7842 (if (#{distinct-bound-ids? 4513}#
7845 (map car #{opt 25833}#)
7846 (if #{rest 25834}# (list #{rest 25834}#) '())
7847 (if (pair? #{kw 25835}#)
7848 (map cadr (cdr #{kw 25835}#))
7857 "duplicate identifier in argument list"
7858 #{orig-args 25257}#)))))
7859 (#{req 25258}# #{orig-args 25257}# '()))))
7860 (#{expand-lambda-case 4534}#
7861 (lambda (#{e 25951}#
7866 #{get-formals 25956}#
7869 ((#{parse-req 25958}#
7870 (lambda (#{req 26089}#
7875 (let ((#{vars 26094}#
7876 (map #{gen-var 4536}# #{req 26089}#))
7878 (#{gen-labels 4489}# #{req 26089}#)))
7880 (#{extend-var-env 4481}#
7885 (#{make-binding-wrap 4500}#
7889 (#{parse-opt 25959}#
7890 (map syntax->datum #{req 26089}#)
7895 (reverse #{vars 26094}#)
7900 (#{parse-opt 25959}#
7901 (lambda (#{req 26283}#
7911 (if (pair? #{opt 26284}#)
7912 (let ((#{tmp 26293}# (car #{opt 26284}#)))
7913 (let ((#{tmp 26294}#
7914 ($sc-dispatch #{tmp 26293}# '(any any))))
7917 (lambda (#{id 26296}# #{i 26297}#)
7920 (if (if (vector? #{id 26296}#)
7921 (if (= (vector-length
7930 (vector-ref #{id 26296}# 1)
7934 (symbol->string #{id 26306}#)
7937 (#{gen-labels 4489}#
7938 (list #{v 26298}#))))
7939 (let ((#{r** 26300}#
7940 (#{extend-var-env 4481}#
7944 (let ((#{w** 26301}#
7945 (#{make-binding-wrap 4500}#
7949 (#{parse-opt 25959}#
7955 (cons #{v 26298}# #{vars 26288}#)
7958 (cons (syntax->datum #{id 26296}#)
7960 (cons (#{expand 4522}#
7965 #{inits 26292}#)))))))
7969 "source expression failed to match any pattern"
7974 (if (if (vector? #{rest 26285}#)
7975 (if (= (vector-length #{rest 26285}#)
7977 (eq? (vector-ref #{rest 26285}# 0)
7981 (vector-ref #{rest 26285}# 1)
7985 (symbol->string #{id 26554}#)
7988 (#{gen-labels 4489}# (list #{v 26544}#))))
7990 (#{extend-var-env 4481}#
7995 (#{make-binding-wrap 4500}#
7996 (list #{rest 26285}#)
8001 (if (pair? #{out 26291}#)
8002 (reverse #{out 26291}#)
8004 (syntax->datum #{rest 26285}#)
8005 (if (pair? #{kw 26286}#)
8009 (cons #{v 26544}# #{vars 26288}#)
8012 (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f)
8014 #{inits 26292}#)))))
8017 (if (pair? #{out 26291}#)
8018 (reverse #{out 26291}#)
8021 (if (pair? #{kw 26286}#)
8028 (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f)
8030 #{inits 26292}#)))))
8032 (lambda (#{req 26725}#
8043 (if (pair? #{kw 26728}#)
8044 (let ((#{tmp 26736}# (car #{kw 26728}#)))
8045 (let ((#{tmp 26737}#
8046 ($sc-dispatch #{tmp 26736}# '(any any any))))
8049 (lambda (#{k 26739}# #{id 26740}# #{i 26741}#)
8052 (if (if (vector? #{id 26740}#)
8053 (if (= (vector-length
8062 (vector-ref #{id 26740}# 1)
8066 (symbol->string #{id 26750}#)
8069 (#{gen-labels 4489}#
8070 (list #{v 26742}#))))
8071 (let ((#{r** 26744}#
8072 (#{extend-var-env 4481}#
8076 (let ((#{w** 26745}#
8077 (#{make-binding-wrap 4500}#
8087 (cons #{v 26742}# #{vars 26730}#)
8091 (cons (list (syntax->datum #{k 26739}#)
8092 (syntax->datum #{id 26740}#)
8095 (cons (#{expand 4522}#
8100 #{inits 26735}#)))))))
8104 "source expression failed to match any pattern"
8106 (#{parse-body 25961}#
8110 (if (if #{aok 26733}#
8112 (pair? #{out 26734}#))
8113 (cons #{aok 26733}# (reverse #{out 26734}#))
8116 (reverse #{vars 26730}#)
8119 (reverse #{inits 26735}#)
8121 (#{parse-body 25961}#
8122 (lambda (#{req 26997}#
8132 (let ((#{tmp 27008}#
8135 '(any any . each-any))))
8136 (if (if #{tmp 27008}#
8138 (lambda (#{docstring 27012}#
8141 (string? (syntax->datum #{docstring 27012}#)))
8145 (lambda (#{docstring 27015}# #{e1 27016}# #{e2 27017}#)
8146 (#{parse-body 25961}#
8151 (cons #{e1 27016}# #{e2 27017}#)
8158 (list (cons 'documentation
8160 #{docstring 27015}#))))))
8162 (let ((#{tmp 27018}#
8165 '(#(vector #(each (any . any)))
8171 (lambda (#{k 27022}#
8175 (#{parse-body 25961}#
8180 (cons #{e1 27024}# #{e2 27025}#)
8188 (map cons #{k 27022}# #{v 27023}#)))))
8190 (let ((#{tmp 27026}#
8193 '(any . each-any))))
8196 (lambda (#{e1 27030}# #{e2 27031}#)
8205 (#{expand-body 4526}#
8206 (cons #{e1 27030}# #{e2 27031}#)
8209 (if (if (pair? #{e 25951}#)
8212 (set-source-properties!
8224 "source expression failed to match any pattern"
8225 #{body 27001}#))))))))))
8226 (let ((#{tmp 25963}#
8227 ($sc-dispatch #{clauses 25957}# '())))
8230 (lambda () (values '() #f))
8232 (let ((#{tmp 25967}#
8235 '((any any . each-any)
8237 #(each (any any . each-any))))))
8240 (lambda (#{args 25971}#
8248 (#{get-formals 25956}# #{args 25971}#))
8249 (lambda (#{req 25977}#
8255 (#{parse-req 25958}#
8260 (cons #{e1 25972}# #{e2 25973}#)))
8261 (lambda (#{meta 26045}#
8271 (#{expand-lambda-case 4534}#
8277 #{get-formals 25956}#
8278 (map (lambda (#{tmp-2888 26053}#
8281 (cons #{tmp-2886 26055}#
8282 (cons #{tmp-2887 26054}#
8283 #{tmp-2888 26053}#)))
8287 (lambda (#{meta* 26056}# #{else* 26057}#)
8289 (append #{meta 26045}# #{meta* 26056}#)
8290 (make-struct/no-tail
8291 (vector-ref %expanded-vtables 14)
8300 #{else* 26057}#)))))))))
8304 "source expression failed to match any pattern"
8305 #{clauses 25957}#))))))))
8307 (lambda (#{x 27068}# #{w 27069}#)
8308 (if (memq 'top (car #{w 27069}#))
8312 (lambda (#{x 27073}#)
8313 (if (if (vector? #{x 27073}#)
8314 (if (= (vector-length #{x 27073}#) 4)
8315 (eq? (vector-ref #{x 27073}# 0) 'syntax-object)
8319 (vector-ref #{x 27073}# 1)
8320 (vector-ref #{x 27073}# 2))
8321 (if (pair? #{x 27073}#)
8322 (let ((#{a 27092}# (#{f 27070}# (car #{x 27073}#)))
8323 (#{d 27093}# (#{f 27070}# (cdr #{x 27073}#))))
8324 (if (if (eq? #{a 27092}# (car #{x 27073}#))
8325 (eq? #{d 27093}# (cdr #{x 27073}#))
8328 (cons #{a 27092}# #{d 27093}#)))
8329 (if (vector? #{x 27073}#)
8330 (let ((#{old 27096}# (vector->list #{x 27073}#)))
8331 (let ((#{new 27097}#
8332 (map #{f 27070}# #{old 27096}#)))
8335 (lambda (#{l1 27174}# #{l2 27175}#)
8336 (if (null? #{l1 27174}#)
8338 (if (eq? (car #{l1 27174}#)
8343 (list->vector #{new 27097}#))))))
8344 (#{lp 27098}# #{old 27096}# #{new 27097}#))))
8346 (#{f 27070}# #{x 27068}#)))))
8348 (lambda (#{id 26101}#)
8350 (if (if (vector? #{id 26101}#)
8351 (if (= (vector-length #{id 26101}#) 4)
8352 (eq? (vector-ref #{id 26101}# 0) 'syntax-object)
8355 (vector-ref #{id 26101}# 1)
8358 (string-append (symbol->string #{id 26102}#) "-"))))))
8360 (set! #{session-id 4447}#
8364 'syntax-session-id)))
8365 (lambda () ((variable-ref #{v 15641}#)))))
8366 (set! #{transformer-environment 4508}#
8368 (lambda (#{k 14684}#)
8369 (error "called outside the dynamic extent of a syntax transformer"))))
8373 (make-syntax-transformer
8380 (make-syntax-transformer
8384 (#{global-extend 4484}#
8386 'syntax-parameterize
8395 '(_ #(each (any any)) any . each-any))))
8396 (if (if #{tmp 4663}#
8398 (lambda (#{var 4667}#
8402 (#{valid-bound-ids? 4512}# #{var 4667}#))
8406 (lambda (#{var 4748}#
8410 (let ((#{names 4752}#
8411 (map (lambda (#{x 4802}#)
8412 (#{id-var-name 4505}# #{x 4802}# #{w 4659}#))
8416 (lambda (#{id 4753}# #{n 4754}#)
8417 (let ((#{atom-key 4755}#
8418 (car (let ((#{t 4762}#
8419 (assq #{n 4754}# #{r 4658}#)))
8422 (if (symbol? #{n 4754}#)
8424 (#{get-global-definition-hook 4449}#
8430 '(displaced-lexical)))))))
8431 (if (eqv? #{atom-key 4755}# 'displaced-lexical)
8433 'syntax-parameterize
8434 "identifier out of context"
8438 (if (if (pair? #{id 4753}#) #{s 4660}# #f)
8439 (set-source-properties!
8447 (#{expand-body 4526}#
8448 (cons #{e1 4750}# #{e2 4751}#)
8451 (if (if (pair? #{e 4657}#) #{s 4660}# #f)
8452 (set-source-properties! #{e 4657}# #{s 4660}#))
8456 (#{extend-env 4480}#
8458 (let ((#{trans-r 4888}#
8459 (#{macros-only-env 4482}# #{r 4658}#)))
8460 (map (lambda (#{x 4889}#)
8462 (#{eval-local-transformer 4528}#
8475 'syntax-parameterize
8479 (if (if (pair? #{e 4657}#) #{s 4660}# #f)
8480 (set-source-properties! #{e 4657}# #{s 4660}#))
8487 (make-syntax-transformer
8495 (let ((#{tmp 5104}# ($sc-dispatch #{e 5098}# '(_ any))))
8498 (lambda (#{e 5107}#)
8500 (#{strip 4535}# #{e 5107}# #{w 5100}#)))
8501 (make-struct/no-tail
8502 (vector-ref %expanded-vtables 1)
8511 (if (if (pair? #{e 5098}#) #{s 5101}# #f)
8512 (set-source-properties! #{e 5098}# #{s 5101}#))
8516 (#{global-extend 4484}#
8520 ((#{gen-syntax 5331}#
8521 (lambda (#{src 5433}#
8527 (if (if (symbol? #{e 5434}#)
8529 (if (if (vector? #{e 5434}#)
8530 (if (= (vector-length #{e 5434}#) 4)
8531 (eq? (vector-ref #{e 5434}# 0) 'syntax-object)
8534 (symbol? (vector-ref #{e 5434}# 1))
8536 (let ((#{label 5465}#
8537 (#{id-var-name 4505}# #{e 5434}# '(()))))
8539 (let ((#{t 5473}# (assq #{label 5465}# #{r 5435}#)))
8542 (if (symbol? #{label 5465}#)
8544 (#{get-global-definition-hook 4449}#
8547 (if #{t 5479}# #{t 5479}# '(global)))
8548 '(displaced-lexical))))))
8549 (if (eq? (car #{b 5466}#) 'syntax)
8552 (let ((#{var.lev 5488}# (cdr #{b 5466}#)))
8555 (car #{var.lev 5488}#)
8556 (cdr #{var.lev 5488}#)
8558 (lambda (#{var 5492}# #{maps 5493}#)
8559 (values (list 'ref #{var 5492}#) #{maps 5493}#)))
8560 (if (#{ellipsis? 5437}# #{e 5434}#)
8563 "misplaced ellipsis"
8565 (values (list 'quote #{e 5434}#) #{maps 5436}#)))))
8567 ($sc-dispatch #{e 5434}# '(any any))))
8568 (if (if #{tmp 5495}#
8570 (lambda (#{dots 5499}# #{e 5500}#)
8571 (#{ellipsis? 5437}# #{dots 5499}#))
8575 (lambda (#{dots 5501}# #{e 5502}#)
8576 (#{gen-syntax 5331}#
8581 (lambda (#{x 5503}#) #f)
8585 ($sc-dispatch #{e 5434}# '(any any . any))))
8586 (if (if #{tmp 5504}#
8588 (lambda (#{x 5508}# #{dots 5509}# #{y 5510}#)
8589 (#{ellipsis? 5437}# #{dots 5509}#))
8593 (lambda (#{x 5511}# #{dots 5512}# #{y 5513}#)
8596 (lambda (#{y 5522}# #{k 5523}#)
8601 (if (if #{tmp 5525}#
8603 (lambda (#{dots 5529}#
8610 (lambda (#{dots 5531}# #{y 5532}#)
8613 (lambda (#{maps 5533}#)
8621 (if (null? (car #{maps 5535}#))
8627 (let ((#{map-env 5539}#
8628 (car #{maps 5535}#)))
8635 (cdr #{maps 5535}#))))))))
8639 (#{gen-syntax 5331}#
8646 (lambda (#{y 5542}# #{maps 5543}#)
8649 (#{k 5523}# #{maps 5543}#))
8653 (if (equal? #{y 5542}# ''())
8658 #{maps 5545}#))))))))))
8661 (lambda (#{maps 5517}#)
8664 (#{gen-syntax 5331}#
8668 (cons '() #{maps 5517}#)
8671 (lambda (#{x 5518}# #{maps 5519}#)
8672 (if (null? (car #{maps 5519}#))
8680 (car #{maps 5519}#))
8681 (cdr #{maps 5519}#)))))))))
8684 ($sc-dispatch #{e 5434}# '(any . any))))
8687 (lambda (#{x 5565}# #{y 5566}#)
8690 (#{gen-syntax 5331}#
8697 (lambda (#{x 5567}# #{maps 5568}#)
8700 (#{gen-syntax 5331}#
8707 (lambda (#{y 5569}# #{maps 5570}#)
8709 (let ((#{atom-key 5575}#
8711 (if (eqv? #{atom-key 5575}#
8713 (if (eq? (car #{x 5567}#)
8716 (cons (car (cdr #{x 5567}#))
8717 (car (cdr #{y 5569}#))))
8718 (if (eq? (car (cdr #{y 5569}#))
8720 (list 'list #{x 5567}#)
8724 (if (eqv? #{atom-key 5575}#
8737 '#(vector (any . each-any)))))
8740 (lambda (#{e1 5608}# #{e2 5609}#)
8743 (#{gen-syntax 5331}#
8745 (cons #{e1 5608}# #{e2 5609}#)
8750 (lambda (#{e 5610}# #{maps 5611}#)
8752 (if (eq? (car #{e 5610}#) 'list)
8753 (cons 'vector (cdr #{e 5610}#))
8754 (if (eq? (car #{e 5610}#) 'quote)
8757 (car (cdr #{e 5610}#))))
8763 (list 'quote #{e 5434}#)
8764 #{maps 5436}#))))))))))))
8766 (lambda (#{src 5638}#
8770 (if (= #{level 5640}# 0)
8771 (values #{var 5639}# #{maps 5641}#)
8772 (if (null? #{maps 5641}#)
8782 (#{1-}# #{level 5640}#)
8783 (cdr #{maps 5641}#)))
8784 (lambda (#{outer-var 5642}# #{outer-maps 5643}#)
8786 (assq #{outer-var 5642}# (car #{maps 5641}#))))
8788 (values (cdr #{b 5644}#) #{maps 5641}#)
8789 (let ((#{inner-var 5646}#
8792 (symbol->string 'tmp)
8796 (cons (cons (cons #{outer-var 5642}#
8798 (car #{maps 5641}#))
8799 #{outer-maps 5643}#)))))))))))
8801 (lambda (#{e 5660}# #{map-env 5661}#)
8802 (let ((#{formals 5662}# (map cdr #{map-env 5661}#))
8804 (map (lambda (#{x 5665}#)
8805 (list 'ref (car #{x 5665}#)))
8807 (if (eq? (car #{e 5660}#) 'ref)
8808 (car #{actuals 5663}#)
8810 (lambda (#{x 5666}#)
8811 (if (eq? (car #{x 5666}#) 'ref)
8812 (memq (car (cdr #{x 5666}#)) #{formals 5662}#)
8816 (cons (list 'primitive (car #{e 5660}#))
8817 (map (let ((#{r 5668}#
8821 (lambda (#{x 5669}#)
8822 (cdr (assq (car (cdr #{x 5669}#))
8826 (cons (list 'lambda #{formals 5662}# #{e 5660}#)
8827 #{actuals 5663}#)))))))
8829 (lambda (#{x 5671}#)
8830 (let ((#{atom-key 5672}# (car #{x 5671}#)))
8831 (if (eqv? #{atom-key 5672}# 'ref)
8832 (let ((#{name 5682}# (car (cdr #{x 5671}#)))
8833 (#{var 5683}# (car (cdr #{x 5671}#))))
8834 (make-struct/no-tail
8835 (vector-ref %expanded-vtables 3)
8839 (if (eqv? #{atom-key 5672}# 'primitive)
8840 (let ((#{name 5695}# (car (cdr #{x 5671}#))))
8841 (if (equal? (module-name (current-module)) '(guile))
8842 (make-struct/no-tail
8843 (vector-ref %expanded-vtables 7)
8846 (make-struct/no-tail
8847 (vector-ref %expanded-vtables 5)
8852 (if (eqv? #{atom-key 5672}# 'quote)
8853 (let ((#{exp 5713}# (car (cdr #{x 5671}#))))
8854 (make-struct/no-tail
8855 (vector-ref %expanded-vtables 1)
8858 (if (eqv? #{atom-key 5672}# 'lambda)
8859 (if (list? (car (cdr #{x 5671}#)))
8860 (let ((#{req 5724}# (car (cdr #{x 5671}#)))
8861 (#{vars 5726}# (car (cdr #{x 5671}#)))
8864 (car (cdr (cdr #{x 5671}#))))))
8865 (let ((#{body 5733}#
8866 (make-struct/no-tail
8867 (vector-ref %expanded-vtables 14)
8877 (make-struct/no-tail
8878 (vector-ref %expanded-vtables 13)
8882 (error "how did we get here" #{x 5671}#))
8883 (let ((#{fun-exp 5749}#
8884 (let ((#{name 5758}# (car #{x 5671}#)))
8886 (module-name (current-module))
8888 (make-struct/no-tail
8889 (vector-ref %expanded-vtables 7)
8892 (make-struct/no-tail
8893 (vector-ref %expanded-vtables 5)
8899 (map #{regen 5338}# (cdr #{x 5671}#))))
8900 (make-struct/no-tail
8901 (vector-ref %expanded-vtables 11)
8904 #{arg-exps 5750}#))))))))))
8913 (if (if (pair? #{e 5339}#) #{s 5342}# #f)
8914 (set-source-properties! #{e 5339}# #{s 5342}#))
8918 (let ((#{tmp 5346}# ($sc-dispatch #{e 5344}# '(_ any))))
8921 (lambda (#{x 5371}#)
8924 (#{gen-syntax 5331}#
8931 (lambda (#{e 5425}# #{maps 5426}#)
8932 (#{regen 5338}# #{e 5425}#))))
8938 (#{global-extend 4484}#
8947 ($sc-dispatch #{e 5946}# '(_ any any . each-any))))
8950 (lambda (#{args 5956}# #{e1 5957}# #{e2 5958}#)
8953 (#{lambda-formals 4531}# #{args 5956}#))
8954 (lambda (#{req 5961}#
8960 (lambda (#{body 5968}# #{meta 5969}#)
8964 '(any any . each-any))))
8965 (if (if #{tmp 5971}#
8967 (lambda (#{docstring 5975}#
8971 (syntax->datum #{docstring 5975}#)))
8975 (lambda (#{docstring 5978}#
8979 (cons #{e1 5979}# #{e2 5980}#)
8982 (list (cons 'documentation
8984 #{docstring 5978}#))))))
8989 '(#(vector #(each (any . any)))
9000 (cons #{e1 5987}# #{e2 5988}#)
9008 (#{expand-simple-lambda 4532}#
9017 #{body 5968}#))))))))
9018 (#{lp 5965}# (cons #{e1 5957}# #{e2 5958}#) '())))))
9024 (#{global-extend 4484}#
9033 ($sc-dispatch #{e 6277}# '(_ any any . each-any))))
9036 (lambda (#{args 6287}# #{e1 6288}# #{e2 6289}#)
9039 (#{expand-lambda-case 4534}#
9045 #{lambda*-formals 4533}#
9046 (list (cons #{args 6287}#
9047 (cons #{e1 6288}# #{e2 6289}#)))))
9048 (lambda (#{meta 6292}# #{lcase 6293}#)
9049 (make-struct/no-tail
9050 (vector-ref %expanded-vtables 13)
9059 (#{global-extend 4484}#
9070 '(_ (any any . each-any)
9072 #(each (any any . each-any))))))
9075 (lambda (#{args 6473}#
9083 (#{expand-lambda-case 4534}#
9089 #{lambda-formals 4531}#
9090 (cons (cons #{args 6473}#
9091 (cons #{e1 6474}# #{e2 6475}#))
9092 (map (lambda (#{tmp-3387 6481}#
9095 (cons #{tmp-3385 6483}#
9096 (cons #{tmp-3386 6482}#
9097 #{tmp-3387 6481}#)))
9101 (lambda (#{meta 6484}# #{lcase 6485}#)
9102 (make-struct/no-tail
9103 (vector-ref %expanded-vtables 13)
9112 (#{global-extend 4484}#
9123 '(_ (any any . each-any)
9125 #(each (any any . each-any))))))
9128 (lambda (#{args 6657}#
9136 (#{expand-lambda-case 4534}#
9142 #{lambda*-formals 4533}#
9143 (cons (cons #{args 6657}#
9144 (cons #{e1 6658}# #{e2 6659}#))
9145 (map (lambda (#{tmp-3422 6665}#
9148 (cons #{tmp-3420 6667}#
9149 (cons #{tmp-3421 6666}#
9150 #{tmp-3422 6665}#)))
9154 (lambda (#{meta 6668}# #{lcase 6669}#)
9155 (make-struct/no-tail
9156 (vector-ref %expanded-vtables 13)
9165 (#{global-extend 4484}#
9169 ((#{expand-let 6860}#
9175 #{constructor 7014}#
9179 (if (not (#{valid-bound-ids? 4512}# #{ids 7015}#))
9182 "duplicate bound variable"
9184 (let ((#{labels 7095}#
9185 (#{gen-labels 4489}# #{ids 7015}#))
9187 (map #{gen-var 4536}# #{ids 7015}#)))
9189 (#{make-binding-wrap 4500}#
9194 (#{extend-var-env 4481}#
9198 (#{constructor 7014}#
9200 (map syntax->datum #{ids 7015}#)
9202 (map (lambda (#{x 7115}#)
9209 (#{expand-body 4526}#
9211 (#{source-wrap 4516}#
9218 #{mod 7013}#))))))))
9227 '(_ #(each (any any)) any . each-any))))
9228 (if (if #{tmp 6867}#
9230 (lambda (#{id 6871}#
9234 (and-map #{id? 4486}# #{id 6871}#))
9238 (lambda (#{id 6890}#
9242 (#{expand-let 6860}#
9251 (cons #{e1 6892}# #{e2 6893}#)))
9256 '(_ any #(each (any any)) any . each-any))))
9257 (if (if #{tmp 6923}#
9264 (if (if (symbol? #{f 6927}#)
9266 (if (if (vector? #{f 6927}#)
9267 (if (= (vector-length #{f 6927}#) 4)
9268 (eq? (vector-ref #{f 6927}# 0)
9272 (symbol? (vector-ref #{f 6927}# 1))
9274 (and-map #{id? 4486}# #{id 6928}#)
9284 (#{expand-let 6860}#
9290 #{build-named-let 4469}#
9291 (cons #{f 6973}# #{id 6974}#)
9293 (cons #{e1 6976}# #{e2 6977}#)))
9300 (if (if (pair? #{e 6861}#) #{s 6864}# #f)
9301 (set-source-properties! #{e 6861}# #{s 6864}#))
9304 #{mod 6865}#)))))))))
9305 (#{global-extend 4484}#
9316 '(_ #(each (any any)) any . each-any))))
9317 (if (if #{tmp 7533}#
9319 (lambda (#{id 7537}#
9323 (and-map #{id? 4486}# #{id 7537}#))
9327 (lambda (#{id 7556}#
9331 (if (not (#{valid-bound-ids? 4512}# #{id 7556}#))
9334 "duplicate bound variable"
9336 (let ((#{labels 7649}#
9337 (#{gen-labels 4489}# #{id 7556}#))
9339 (map #{gen-var 4536}# #{id 7556}#)))
9341 (#{make-binding-wrap 4500}#
9346 (#{extend-var-env 4481}#
9350 (#{build-letrec 4470}#
9353 (map syntax->datum #{id 7556}#)
9355 (map (lambda (#{x 7737}#)
9362 (#{expand-body 4526}#
9363 (cons #{e1 7558}# #{e2 7559}#)
9366 (if (if (pair? #{e 7527}#) #{s 7530}# #f)
9367 (set-source-properties!
9382 (if (if (pair? #{e 7527}#) #{s 7530}# #f)
9383 (set-source-properties! #{e 7527}# #{s 7530}#))
9387 (#{global-extend 4484}#
9398 '(_ #(each (any any)) any . each-any))))
9399 (if (if #{tmp 8138}#
9401 (lambda (#{id 8142}#
9405 (and-map #{id? 4486}# #{id 8142}#))
9409 (lambda (#{id 8161}#
9413 (if (not (#{valid-bound-ids? 4512}# #{id 8161}#))
9416 "duplicate bound variable"
9418 (let ((#{labels 8254}#
9419 (#{gen-labels 4489}# #{id 8161}#))
9421 (map #{gen-var 4536}# #{id 8161}#)))
9423 (#{make-binding-wrap 4500}#
9428 (#{extend-var-env 4481}#
9432 (#{build-letrec 4470}#
9435 (map syntax->datum #{id 8161}#)
9437 (map (lambda (#{x 8342}#)
9444 (#{expand-body 4526}#
9445 (cons #{e1 8163}# #{e2 8164}#)
9448 (if (if (pair? #{e 8132}#) #{s 8135}# #f)
9449 (set-source-properties!
9464 (if (if (pair? #{e 8132}#) #{s 8135}# #f)
9465 (set-source-properties! #{e 8132}# #{s 8135}#))
9469 (#{global-extend 4484}#
9478 ($sc-dispatch #{e 8776}# '(_ any any))))
9479 (if (if #{tmp 8782}#
9481 (lambda (#{id 8786}# #{val 8787}#)
9482 (if (symbol? #{id 8786}#)
9484 (if (if (vector? #{id 8786}#)
9485 (if (= (vector-length #{id 8786}#) 4)
9486 (eq? (vector-ref #{id 8786}# 0) 'syntax-object)
9489 (symbol? (vector-ref #{id 8786}# 1))
9494 (lambda (#{id 8814}# #{val 8815}#)
9496 (#{id-var-name 4505}# #{id 8814}# #{w 8778}#))
9498 (if (if (vector? #{id 8814}#)
9499 (if (= (vector-length #{id 8814}#) 4)
9500 (eq? (vector-ref #{id 8814}# 0)
9504 (vector-ref #{id 8814}# 3)
9507 (let ((#{t 8859}# (assq #{n 8816}# #{r 8777}#)))
9510 (if (symbol? #{n 8816}#)
9512 (#{get-global-definition-hook 4449}#
9515 (if #{t 8864}# #{t 8864}# '(global)))
9516 '(displaced-lexical))))))
9517 (let ((#{atom-key 8819}# (car #{b 8818}#)))
9518 (if (eqv? #{atom-key 8819}# 'lexical)
9519 (#{build-lexical-assignment 4457}#
9521 (syntax->datum #{id 8814}#)
9528 (if (eqv? #{atom-key 8819}# 'global)
9529 (#{build-global-assignment 4460}#
9538 (if (eqv? #{atom-key 8819}# 'macro)
9539 (let ((#{p 9178}# (cdr #{b 8818}#)))
9540 (if (procedure-property
9542 'variable-transformer)
9544 (#{expand-macro 4525}#
9557 "not a variable transformer"
9566 (if (eqv? #{atom-key 8819}# 'displaced-lexical)
9569 "identifier out of context"
9579 (if (if (pair? #{e 8776}#) #{s 8779}# #f)
9580 (set-source-properties!
9585 #{mod 8780}#))))))))))
9590 '(_ (any . each-any) any))))
9593 (lambda (#{head 9277}# #{tail 9278}# #{val 9279}#)
9596 (#{syntax-type 4521}#
9604 (lambda (#{type 9282}#
9610 (if (eqv? #{type 9282}# 'module-ref)
9620 (cons #{head 9277}# #{tail 9278}#)
9628 (let ((#{tmp 9298}# (list #{e 9292}#)))
9630 (lambda (#{e 9300}#)
9631 (if (symbol? #{e 9300}#)
9633 (if (if (vector? #{e 9300}#)
9634 (if (= (vector-length
9644 (vector-ref #{e 9300}# 1))
9648 (lambda (#{e 9330}#)
9649 (#{build-global-assignment 4460}#
9651 (syntax->datum #{e 9330}#)
9657 "source expression failed to match any pattern"
9659 (#{build-application 4453}#
9662 (list '#(syntax-object
9668 #(type value ee ww ss modmod)
9683 #((top) (top) (top))
9706 expand-simple-lambda
9710 eval-local-transformer
9719 expand-install-global
9729 with-transformer-environment
9730 transformer-environment
9732 locally-bound-identifiers
9749 set-ribcage-symnames!
9781 set-syntax-object-module!
9782 set-syntax-object-wrap!
9783 set-syntax-object-expression!
9784 syntax-object-module
9786 syntax-object-expression
9799 build-global-definition
9800 build-global-assignment
9801 build-global-reference
9803 build-lexical-assignment
9804 build-lexical-reference
9811 get-global-definition-hook
9812 put-global-definition-hook
9831 make-toplevel-define
10123 define-expansion-accessors
10124 define-expansion-constructors)
10125 ((top) (top) (top))
10133 (#{syntax-type 4521}#
10137 (#{source-annotation 4479}# #{e 9555}#)
10141 (lambda (#{type 9562}#
10147 (#{expand-expr 4523}#
10155 (map (lambda (#{e 9571}#)
10158 (#{syntax-type 4521}#
10162 (#{source-annotation 4479}#
10167 (lambda (#{type 9586}#
10173 (#{expand-expr 4523}#
10183 (list #{val 9279}#))))))))
10190 (if (if (pair? #{e 8776}#) #{s 8779}# #f)
10191 (set-source-properties! #{e 8776}# #{s 8779}#))
10194 #{mod 8780}#))))))))
10198 (make-syntax-transformer
10201 (lambda (#{e 9634}# #{r 9635}# #{w 9636}#)
10202 (let ((#{tmp 9638}#
10203 ($sc-dispatch #{e 9634}# '(_ each-any any))))
10204 (if (if #{tmp 9638}#
10206 (lambda (#{mod 9641}# #{id 9642}#)
10207 (if (and-map #{id? 4486}# #{mod 9641}#)
10208 (if (symbol? #{id 9642}#)
10210 (if (if (vector? #{id 9642}#)
10211 (if (= (vector-length #{id 9642}#) 4)
10212 (eq? (vector-ref #{id 9642}# 0)
10216 (symbol? (vector-ref #{id 9642}# 1))
10222 (lambda (#{mod 9682}# #{id 9683}#)
10224 (syntax->datum #{id 9683}#)
10229 (cons '#(syntax-object
10235 #("l-*-3715" "l-*-3716"))
10236 #(ribcage () () ())
10239 #((top) (top) (top))
10240 #("l-*-3703" "l-*-3704" "l-*-3705"))
10247 expand-simple-lambda
10251 eval-local-transformer
10252 expand-local-syntax
10260 expand-install-global
10261 expand-top-sequence
10266 distinct-bound-ids?
10270 with-transformer-environment
10271 transformer-environment
10273 locally-bound-identifiers
10288 set-ribcage-labels!
10290 set-ribcage-symnames!
10322 set-syntax-object-module!
10323 set-syntax-object-wrap!
10324 set-syntax-object-expression!
10325 syntax-object-module
10327 syntax-object-expression
10339 build-simple-lambda
10340 build-global-definition
10341 build-global-assignment
10342 build-global-reference
10344 build-lexical-assignment
10345 build-lexical-reference
10352 get-global-definition-hook
10353 put-global-definition-hook
10356 top-level-eval-hook
10372 make-toplevel-define
10664 define-expansion-accessors
10665 define-expansion-constructors)
10666 ((top) (top) (top))
10667 ("l-*-47" "l-*-46" "l-*-45")))
10673 "source expression failed to match any pattern"
10675 (#{global-extend 4484}#
10678 (lambda (#{e 9775}# #{r 9776}# #{w 9777}#)
10680 ((#{remodulate 9778}#
10681 (lambda (#{x 9813}# #{mod 9814}#)
10682 (if (pair? #{x 9813}#)
10683 (cons (#{remodulate 9778}#
10686 (#{remodulate 9778}#
10689 (if (if (vector? #{x 9813}#)
10690 (if (= (vector-length #{x 9813}#) 4)
10691 (eq? (vector-ref #{x 9813}# 0) 'syntax-object)
10694 (let ((#{expression 9828}#
10695 (#{remodulate 9778}#
10696 (vector-ref #{x 9813}# 1)
10698 (#{wrap 9829}# (vector-ref #{x 9813}# 2)))
10701 #{expression 9828}#
10704 (if (vector? #{x 9813}#)
10705 (let ((#{n 9837}# (vector-length #{x 9813}#)))
10706 (let ((#{v 9838}# (make-vector #{n 9837}#)))
10709 (lambda (#{i 9886}#)
10710 (if (= #{i 9886}# #{n 9837}#)
10716 (#{remodulate 9778}#
10717 (vector-ref #{x 9813}# #{i 9886}#)
10719 (#{loop 9839}# (#{1+}# #{i 9886}#)))))))
10720 (#{loop 9839}# 0))))
10722 (let ((#{tmp 9780}#
10723 ($sc-dispatch #{e 9775}# '(_ each-any any))))
10724 (if (if #{tmp 9780}#
10726 (lambda (#{mod 9784}# #{exp 9785}#)
10727 (and-map #{id? 4486}# #{mod 9784}#))
10731 (lambda (#{mod 9801}# #{exp 9802}#)
10732 (let ((#{mod 9803}#
10734 (cons '#(syntax-object
10740 #("l-*-3759" "l-*-3760"))
10747 #((top) (top) (top))
10748 #("l-*-3723" "l-*-3724" "l-*-3725"))
10755 expand-simple-lambda
10759 eval-local-transformer
10760 expand-local-syntax
10768 expand-install-global
10769 expand-top-sequence
10774 distinct-bound-ids?
10778 with-transformer-environment
10779 transformer-environment
10781 locally-bound-identifiers
10796 set-ribcage-labels!
10798 set-ribcage-symnames!
10830 set-syntax-object-module!
10831 set-syntax-object-wrap!
10832 set-syntax-object-expression!
10833 syntax-object-module
10835 syntax-object-expression
10847 build-simple-lambda
10848 build-global-definition
10849 build-global-assignment
10850 build-global-reference
10852 build-lexical-assignment
10853 build-lexical-reference
10860 get-global-definition-hook
10861 put-global-definition-hook
10864 top-level-eval-hook
10880 make-toplevel-define
11172 define-expansion-accessors
11173 define-expansion-constructors)
11174 ((top) (top) (top))
11175 ("l-*-47" "l-*-46" "l-*-45")))
11179 (#{remodulate 9778}# #{exp 9802}# #{mod 9803}#)
11182 (#{source-annotation 4479}# #{exp 9802}#)
11187 "source expression failed to match any pattern"
11189 (#{global-extend 4484}#
11192 (lambda (#{e 9987}#
11197 (let ((#{tmp 9993}#
11198 ($sc-dispatch #{e 9987}# '(_ any any))))
11201 (lambda (#{test 9997}# #{then 9998}#)
11202 (#{build-conditional 4454}#
11214 (make-struct/no-tail
11215 (vector-ref %expanded-vtables 0)
11218 (let ((#{tmp 10223}#
11219 ($sc-dispatch #{e 9987}# '(_ any any any))))
11222 (lambda (#{test 10227}# #{then 10228}# #{else 10229}#)
11223 (#{build-conditional 4454}#
11243 "source expression failed to match any pattern"
11245 (#{global-extend 4484}#
11248 (lambda (#{e 10628}#
11253 (let ((#{tmp 10634}#
11256 '(_ #(each (any any)) any . each-any))))
11259 (lambda (#{fluid 10638}#
11263 (#{build-dynlet 4455}#
11265 (map (lambda (#{x 10722}#)
11272 (map (lambda (#{x 10792}#)
11279 (#{expand-body 4526}#
11280 (cons #{b 10640}# #{b* 10641}#)
11283 (if (if (pair? #{e 10628}#) #{s 10631}# #f)
11284 (set-source-properties! #{e 10628}# #{s 10631}#))
11294 "source expression failed to match any pattern"
11299 (make-syntax-transformer 'begin 'begin '()))
11303 (make-syntax-transformer 'define 'define '()))
11307 (make-syntax-transformer
11313 'define-syntax-parameter
11314 (make-syntax-transformer
11315 'define-syntax-parameter
11316 'define-syntax-parameter
11321 (make-syntax-transformer
11325 (#{global-extend 4484}#
11329 ((#{convert-pattern 11160}#
11330 (lambda (#{pattern 12757}# #{keys 12758}#)
11333 (lambda (#{p* 13383}# #{n 13384}# #{ids 13385}#)
11334 (if (not (pair? #{p* 13383}#))
11345 (lambda (#{y 13388}# #{ids 13389}#)
11352 (lambda (#{x 13392}# #{ids 13393}#)
11354 (cons #{x 13392}# #{y 13388}#)
11355 #{ids 13393}#))))))))
11356 (#{v-reverse 12760}#
11357 (lambda (#{x 13394}#)
11360 (lambda (#{r 13475}# #{x 13476}#)
11361 (if (not (pair? #{x 13476}#))
11362 (values #{r 13475}# #{x 13476}#)
11364 (cons (car #{x 13476}#) #{r 13475}#)
11365 (cdr #{x 13476}#))))))
11366 (#{loop 13395}# '() #{x 13394}#))))
11368 (lambda (#{p 12764}# #{n 12765}# #{ids 12766}#)
11369 (if (if (symbol? #{p 12764}#)
11371 (if (if (vector? #{p 12764}#)
11372 (if (= (vector-length #{p 12764}#) 4)
11373 (eq? (vector-ref #{p 12764}# 0)
11377 (symbol? (vector-ref #{p 12764}# 1))
11379 (if (#{bound-id-member? 4514}#
11383 (vector 'free-id #{p 12764}#)
11385 (if (if (eq? (if (if (vector? #{p 12764}#)
11386 (if (= (vector-length #{p 12764}#)
11388 (eq? (vector-ref #{p 12764}# 0)
11392 (vector-ref #{p 12764}# 1)
11394 (if (if (= (vector-length
11398 #(ribcage () () ())
11401 #((top) (top) (top))
11406 (cvt v-reverse cvt*)
11407 ((top) (top) (top))
11419 build-dispatch-call
11435 expand-simple-lambda
11439 eval-local-transformer
11440 expand-local-syntax
11448 expand-install-global
11449 expand-top-sequence
11454 distinct-bound-ids?
11458 with-transformer-environment
11459 transformer-environment
11461 locally-bound-identifiers
11476 set-ribcage-labels!
11478 set-ribcage-symnames!
11510 set-syntax-object-module!
11511 set-syntax-object-wrap!
11512 set-syntax-object-expression!
11513 syntax-object-module
11515 syntax-object-expression
11527 build-simple-lambda
11528 build-global-definition
11529 build-global-assignment
11530 build-global-reference
11532 build-lexical-assignment
11533 build-lexical-reference
11540 get-global-definition-hook
11541 put-global-definition-hook
11544 top-level-eval-hook
11560 make-toplevel-define
11852 define-expansion-accessors
11853 define-expansion-constructors)
11854 ((top) (top) (top))
11866 #(ribcage () () ())
11869 #((top) (top) (top))
11874 (cvt v-reverse cvt*)
11875 ((top) (top) (top))
11882 #("l-*-3827" "l-*-3828"))
11886 build-dispatch-call
11888 ((top) (top) (top) (top))
11899 expand-simple-lambda
11903 eval-local-transformer
11904 expand-local-syntax
11912 expand-install-global
11913 expand-top-sequence
11918 distinct-bound-ids?
11922 with-transformer-environment
11923 transformer-environment
11925 locally-bound-identifiers
11940 set-ribcage-labels!
11942 set-ribcage-symnames!
11974 set-syntax-object-module!
11975 set-syntax-object-wrap!
11976 set-syntax-object-expression!
11977 syntax-object-module
11979 syntax-object-expression
11991 build-simple-lambda
11992 build-global-definition
11993 build-global-assignment
11994 build-global-reference
11996 build-lexical-assignment
11997 build-lexical-reference
12004 get-global-definition-hook
12005 put-global-definition-hook
12008 top-level-eval-hook
12024 make-toplevel-define
12316 define-expansion-accessors
12317 define-expansion-constructors)
12318 ((top) (top) (top))
12319 ("l-*-47" "l-*-46" "l-*-45")))
12321 (eq? (#{id-var-name 4505}# #{p 12764}# '(()))
12322 (#{id-var-name 4505}#
12326 #(ribcage () () ())
12329 #((top) (top) (top))
12334 (cvt v-reverse cvt*)
12335 ((top) (top) (top))
12342 #("l-*-3827" "l-*-3828"))
12346 build-dispatch-call
12348 ((top) (top) (top) (top))
12359 expand-simple-lambda
12363 eval-local-transformer
12364 expand-local-syntax
12372 expand-install-global
12373 expand-top-sequence
12378 distinct-bound-ids?
12382 with-transformer-environment
12383 transformer-environment
12385 locally-bound-identifiers
12400 set-ribcage-labels!
12402 set-ribcage-symnames!
12434 set-syntax-object-module!
12435 set-syntax-object-wrap!
12436 set-syntax-object-expression!
12437 syntax-object-module
12439 syntax-object-expression
12451 build-simple-lambda
12452 build-global-definition
12453 build-global-assignment
12454 build-global-reference
12456 build-lexical-assignment
12457 build-lexical-reference
12464 get-global-definition-hook
12465 put-global-definition-hook
12468 top-level-eval-hook
12484 make-toplevel-define
12776 define-expansion-accessors
12777 define-expansion-constructors)
12778 ((top) (top) (top))
12779 ("l-*-47" "l-*-46" "l-*-45")))
12783 (values '_ #{ids 12766}#)
12786 (cons (cons #{p 12764}# #{n 12765}#)
12788 (let ((#{tmp 13086}#
12789 ($sc-dispatch #{p 12764}# '(any any))))
12790 (if (if #{tmp 13086}#
12792 (lambda (#{x 13090}# #{dots 13091}#)
12793 (if (if (if (vector? #{dots 13091}#)
12794 (if (= (vector-length
12804 (vector-ref #{dots 13091}# 1))
12806 (if (eq? (if (if (vector? #{dots 13091}#)
12807 (if (= (vector-length
12816 (vector-ref #{dots 13091}# 1)
12818 (if (if (= (vector-length
12840 expand-simple-lambda
12844 eval-local-transformer
12845 expand-local-syntax
12853 expand-install-global
12854 expand-top-sequence
12859 distinct-bound-ids?
12863 with-transformer-environment
12864 transformer-environment
12866 locally-bound-identifiers
12881 set-ribcage-labels!
12883 set-ribcage-symnames!
12915 set-syntax-object-module!
12916 set-syntax-object-wrap!
12917 set-syntax-object-expression!
12918 syntax-object-module
12920 syntax-object-expression
12932 build-simple-lambda
12933 build-global-definition
12934 build-global-assignment
12935 build-global-reference
12937 build-lexical-assignment
12938 build-lexical-reference
12945 get-global-definition-hook
12946 put-global-definition-hook
12949 top-level-eval-hook
12965 make-toplevel-define
13257 define-expansion-accessors
13258 define-expansion-constructors)
13274 #(ribcage () () ())
13275 #(ribcage () () ())
13286 expand-simple-lambda
13290 eval-local-transformer
13291 expand-local-syntax
13299 expand-install-global
13300 expand-top-sequence
13305 distinct-bound-ids?
13309 with-transformer-environment
13310 transformer-environment
13312 locally-bound-identifiers
13327 set-ribcage-labels!
13329 set-ribcage-symnames!
13361 set-syntax-object-module!
13362 set-syntax-object-wrap!
13363 set-syntax-object-expression!
13364 syntax-object-module
13366 syntax-object-expression
13378 build-simple-lambda
13379 build-global-definition
13380 build-global-assignment
13381 build-global-reference
13383 build-lexical-assignment
13384 build-lexical-reference
13391 get-global-definition-hook
13392 put-global-definition-hook
13395 top-level-eval-hook
13411 make-toplevel-define
13703 define-expansion-accessors
13704 define-expansion-constructors)
13705 ((top) (top) (top))
13710 (eq? (#{id-var-name 4505}#
13713 (#{id-var-name 4505}#
13717 #(ribcage () () ())
13718 #(ribcage () () ())
13729 expand-simple-lambda
13733 eval-local-transformer
13734 expand-local-syntax
13742 expand-install-global
13743 expand-top-sequence
13748 distinct-bound-ids?
13752 with-transformer-environment
13753 transformer-environment
13755 locally-bound-identifiers
13770 set-ribcage-labels!
13772 set-ribcage-symnames!
13804 set-syntax-object-module!
13805 set-syntax-object-wrap!
13806 set-syntax-object-expression!
13807 syntax-object-module
13809 syntax-object-expression
13821 build-simple-lambda
13822 build-global-definition
13823 build-global-assignment
13824 build-global-reference
13826 build-lexical-assignment
13827 build-lexical-reference
13834 get-global-definition-hook
13835 put-global-definition-hook
13838 top-level-eval-hook
13854 make-toplevel-define
14146 define-expansion-accessors
14147 define-expansion-constructors)
14148 ((top) (top) (top))
14159 (lambda (#{x 13191}# #{dots 13192}#)
14164 (#{1+}# #{n 12765}#)
14166 (lambda (#{p 13193}# #{ids 13194}#)
14168 (if (eq? #{p 13193}# 'any)
14170 (vector 'each #{p 13193}#))
14173 (let ((#{tmp 13195}#
14176 '(any any . any))))
14177 (if (if #{tmp 13195}#
14179 (lambda (#{x 13199}#
14182 (if (if (if (vector? #{dots 13200}#)
14183 (if (= (vector-length
14193 (vector-ref #{dots 13200}# 1))
14195 (if (eq? (if (if (vector?
14197 (if (= (vector-length
14210 (if (if (= (vector-length
14232 expand-simple-lambda
14236 eval-local-transformer
14237 expand-local-syntax
14245 expand-install-global
14246 expand-top-sequence
14251 distinct-bound-ids?
14255 with-transformer-environment
14256 transformer-environment
14258 locally-bound-identifiers
14273 set-ribcage-labels!
14275 set-ribcage-symnames!
14307 set-syntax-object-module!
14308 set-syntax-object-wrap!
14309 set-syntax-object-expression!
14310 syntax-object-module
14312 syntax-object-expression
14324 build-simple-lambda
14325 build-global-definition
14326 build-global-assignment
14327 build-global-reference
14329 build-lexical-assignment
14330 build-lexical-reference
14337 get-global-definition-hook
14338 put-global-definition-hook
14341 top-level-eval-hook
14357 make-toplevel-define
14649 define-expansion-accessors
14650 define-expansion-constructors)
14666 #(ribcage () () ())
14667 #(ribcage () () ())
14678 expand-simple-lambda
14682 eval-local-transformer
14683 expand-local-syntax
14691 expand-install-global
14692 expand-top-sequence
14697 distinct-bound-ids?
14701 with-transformer-environment
14702 transformer-environment
14704 locally-bound-identifiers
14719 set-ribcage-labels!
14721 set-ribcage-symnames!
14753 set-syntax-object-module!
14754 set-syntax-object-wrap!
14755 set-syntax-object-expression!
14756 syntax-object-module
14758 syntax-object-expression
14770 build-simple-lambda
14771 build-global-definition
14772 build-global-assignment
14773 build-global-reference
14775 build-lexical-assignment
14776 build-lexical-reference
14783 get-global-definition-hook
14784 put-global-definition-hook
14787 top-level-eval-hook
14803 make-toplevel-define
15095 define-expansion-accessors
15096 define-expansion-constructors)
15097 ((top) (top) (top))
15102 (eq? (#{id-var-name 4505}#
15105 (#{id-var-name 4505}#
15109 #(ribcage () () ())
15110 #(ribcage () () ())
15121 expand-simple-lambda
15125 eval-local-transformer
15126 expand-local-syntax
15134 expand-install-global
15135 expand-top-sequence
15140 distinct-bound-ids?
15144 with-transformer-environment
15145 transformer-environment
15147 locally-bound-identifiers
15162 set-ribcage-labels!
15164 set-ribcage-symnames!
15196 set-syntax-object-module!
15197 set-syntax-object-wrap!
15198 set-syntax-object-expression!
15199 syntax-object-module
15201 syntax-object-expression
15213 build-simple-lambda
15214 build-global-definition
15215 build-global-assignment
15216 build-global-reference
15218 build-lexical-assignment
15219 build-lexical-reference
15226 get-global-definition-hook
15227 put-global-definition-hook
15230 top-level-eval-hook
15246 make-toplevel-define
15538 define-expansion-accessors
15539 define-expansion-constructors)
15540 ((top) (top) (top))
15551 (lambda (#{x 13301}#
15560 (lambda (#{ys 13306}# #{ids 13307}#)
15565 (#{1+}# #{n 12765}#)
15567 (lambda (#{x 13308}# #{ids 13309}#)
15570 (#{v-reverse 12760}#
15572 (lambda (#{ys 13342}#
15580 #{ids 13309}#))))))))
15582 (let ((#{tmp 13344}#
15588 (lambda (#{x 13348}# #{y 13349}#)
15595 (lambda (#{y 13350}# #{ids 13351}#)
15602 (lambda (#{x 13352}#
15607 #{ids 13353}#))))))
15609 (let ((#{tmp 13354}#
15610 ($sc-dispatch #{p 12764}# '())))
15614 (values '() #{ids 12766}#))
15616 (let ((#{tmp 13358}#
15619 '#(vector each-any))))
15622 (lambda (#{x 13362}#)
15629 (lambda (#{p 13363}#
15643 #{ids 12766}#)))))))))))))))
15644 (#{cvt 12761}# #{pattern 12757}# 0 '()))))
15645 (#{build-dispatch-call 11161}#
15646 (lambda (#{pvars 13477}#
15651 (let ((#{ids 13482}# (map car #{pvars 13477}#)))
15653 (map cdr #{pvars 13477}#)
15654 (let ((#{labels 13484}#
15655 (#{gen-labels 4489}# #{ids 13482}#))
15656 (#{new-vars 13485}#
15657 (map #{gen-var 4536}# #{ids 13482}#)))
15658 (#{build-application 4453}#
15660 (if (equal? (module-name (current-module)) '(guile))
15661 (make-struct/no-tail
15662 (vector-ref %expanded-vtables 7)
15665 (make-struct/no-tail
15666 (vector-ref %expanded-vtables 5)
15671 (list (#{build-simple-lambda 4462}#
15673 (map syntax->datum #{ids 13482}#)
15679 (#{extend-env 4480}#
15681 (map (lambda (#{var 13808}# #{level 13809}#)
15683 (cons #{var 13808}#
15686 (map cdr #{pvars 13477}#))
15688 (#{make-binding-wrap 4500}#
15694 (#{gen-clause 11162}#
15695 (lambda (#{x 12129}#
15705 (#{convert-pattern 11160}#
15708 (lambda (#{p 12291}# #{pvars 12292}#)
15709 (if (not (#{distinct-bound-ids? 4513}#
15710 (map car #{pvars 12292}#)))
15713 "duplicate pattern variable"
15716 (lambda (#{x 12408}#)
15717 (not (let ((#{x 12412}# (car #{x 12408}#)))
15718 (if (if (if (vector? #{x 12412}#)
15719 (if (= (vector-length
15729 (vector-ref #{x 12412}# 1))
15731 (if (eq? (if (if (vector?
15733 (if (= (vector-length
15746 (if (if (= (vector-length
15768 expand-simple-lambda
15772 eval-local-transformer
15773 expand-local-syntax
15781 expand-install-global
15782 expand-top-sequence
15787 distinct-bound-ids?
15791 with-transformer-environment
15792 transformer-environment
15794 locally-bound-identifiers
15809 set-ribcage-labels!
15811 set-ribcage-symnames!
15843 set-syntax-object-module!
15844 set-syntax-object-wrap!
15845 set-syntax-object-expression!
15846 syntax-object-module
15848 syntax-object-expression
15860 build-simple-lambda
15861 build-global-definition
15862 build-global-assignment
15863 build-global-reference
15865 build-lexical-assignment
15866 build-lexical-reference
15873 get-global-definition-hook
15874 put-global-definition-hook
15877 top-level-eval-hook
15893 make-toplevel-define
16185 define-expansion-accessors
16186 define-expansion-constructors)
16202 #(ribcage () () ())
16203 #(ribcage () () ())
16214 expand-simple-lambda
16218 eval-local-transformer
16219 expand-local-syntax
16227 expand-install-global
16228 expand-top-sequence
16233 distinct-bound-ids?
16237 with-transformer-environment
16238 transformer-environment
16240 locally-bound-identifiers
16255 set-ribcage-labels!
16257 set-ribcage-symnames!
16289 set-syntax-object-module!
16290 set-syntax-object-wrap!
16291 set-syntax-object-expression!
16292 syntax-object-module
16294 syntax-object-expression
16306 build-simple-lambda
16307 build-global-definition
16308 build-global-assignment
16309 build-global-reference
16311 build-lexical-assignment
16312 build-lexical-reference
16319 get-global-definition-hook
16320 put-global-definition-hook
16323 top-level-eval-hook
16339 make-toplevel-define
16631 define-expansion-accessors
16632 define-expansion-constructors)
16633 ((top) (top) (top))
16638 (eq? (#{id-var-name 4505}#
16641 (#{id-var-name 4505}#
16645 #(ribcage () () ())
16646 #(ribcage () () ())
16657 expand-simple-lambda
16661 eval-local-transformer
16662 expand-local-syntax
16670 expand-install-global
16671 expand-top-sequence
16676 distinct-bound-ids?
16680 with-transformer-environment
16681 transformer-environment
16683 locally-bound-identifiers
16698 set-ribcage-labels!
16700 set-ribcage-symnames!
16732 set-syntax-object-module!
16733 set-syntax-object-wrap!
16734 set-syntax-object-expression!
16735 syntax-object-module
16737 syntax-object-expression
16749 build-simple-lambda
16750 build-global-definition
16751 build-global-assignment
16752 build-global-reference
16754 build-lexical-assignment
16755 build-lexical-reference
16762 get-global-definition-hook
16763 put-global-definition-hook
16766 top-level-eval-hook
16782 make-toplevel-define
17074 define-expansion-accessors
17075 define-expansion-constructors)
17076 ((top) (top) (top))
17087 "misplaced ellipsis"
17091 (string-append (symbol->string 'tmp) "-"))))
17092 (#{build-application 4453}#
17094 (let ((#{req 12631}# (list 'tmp))
17095 (#{vars 12633}# (list #{y 12488}#))
17098 (make-struct/no-tail
17099 (vector-ref %expanded-vtables 3)
17103 (let ((#{test-exp 12656}#
17104 (let ((#{tmp 12665}#
17110 (lambda () #{y 12652}#)
17112 (let ((#{then-exp 12683}#
17113 (#{build-dispatch-call 11161}#
17119 (#{else-exp 12684}#
17120 (make-struct/no-tail
17126 (make-struct/no-tail
17133 #{else-exp 12684}#)))))
17134 (#{then-exp 12657}#
17135 (#{build-dispatch-call 11161}#
17141 (#{else-exp 12658}#
17142 (#{gen-syntax-case 11163}#
17148 (make-struct/no-tail
17149 (vector-ref %expanded-vtables 10)
17153 #{else-exp 12658}#)))))
17154 (let ((#{body 12640}#
17155 (make-struct/no-tail
17156 (vector-ref %expanded-vtables 14)
17166 (make-struct/no-tail
17167 (vector-ref %expanded-vtables 13)
17171 (list (if (eq? #{p 12291}# 'any)
17172 (let ((#{fun-exp 12706}#
17174 (module-name (current-module))
17176 (make-struct/no-tail
17177 (vector-ref %expanded-vtables 7)
17180 (make-struct/no-tail
17181 (vector-ref %expanded-vtables 5)
17186 (#{arg-exps 12707}#
17187 (list #{x 12129}#)))
17188 (make-struct/no-tail
17189 (vector-ref %expanded-vtables 11)
17192 #{arg-exps 12707}#))
17193 (let ((#{fun-exp 12730}#
17195 (module-name (current-module))
17197 (make-struct/no-tail
17198 (vector-ref %expanded-vtables 7)
17201 (make-struct/no-tail
17202 (vector-ref %expanded-vtables 5)
17207 (#{arg-exps 12731}#
17209 (make-struct/no-tail
17215 (make-struct/no-tail
17216 (vector-ref %expanded-vtables 11)
17219 #{arg-exps 12731}#))))))))))))
17220 (#{gen-syntax-case 11163}#
17221 (lambda (#{x 11562}#
17226 (if (null? #{clauses 11564}#)
17227 (let ((#{fun-exp 11571}#
17228 (if (equal? (module-name (current-module)) '(guile))
17229 (make-struct/no-tail
17230 (vector-ref %expanded-vtables 7)
17233 (make-struct/no-tail
17234 (vector-ref %expanded-vtables 5)
17239 (#{arg-exps 11572}#
17240 (list (make-struct/no-tail
17241 (vector-ref %expanded-vtables 1)
17244 (make-struct/no-tail
17245 (vector-ref %expanded-vtables 1)
17247 "source expression failed to match any pattern")
17249 (make-struct/no-tail
17250 (vector-ref %expanded-vtables 11)
17253 #{arg-exps 11572}#))
17254 (let ((#{tmp 11605}# (car #{clauses 11564}#)))
17255 (let ((#{tmp 11606}#
17256 ($sc-dispatch #{tmp 11605}# '(any any))))
17259 (lambda (#{pat 11608}# #{exp 11609}#)
17260 (if (if (if (symbol? #{pat 11608}#)
17262 (if (if (vector? #{pat 11608}#)
17263 (if (= (vector-length #{pat 11608}#)
17265 (eq? (vector-ref #{pat 11608}# 0)
17269 (symbol? (vector-ref #{pat 11608}# 1))
17272 (lambda (#{x 11636}#)
17273 (not (if (eq? (if (if (vector?
17275 (if (= (vector-length
17290 (if (= (vector-length
17299 (vector-ref #{x 11636}# 1)
17301 (eq? (#{id-var-name 4505}#
17304 (#{id-var-name 4505}#
17308 (cons '#(syntax-object
17314 #("l-*-4024" "l-*-4025"))
17315 #(ribcage () () ())
17317 #(x keys clauses r mod)
17318 #((top) (top) (top) (top) (top))
17327 build-dispatch-call
17329 ((top) (top) (top) (top))
17340 expand-simple-lambda
17344 eval-local-transformer
17345 expand-local-syntax
17353 expand-install-global
17354 expand-top-sequence
17359 distinct-bound-ids?
17363 with-transformer-environment
17364 transformer-environment
17366 locally-bound-identifiers
17381 set-ribcage-labels!
17383 set-ribcage-symnames!
17415 set-syntax-object-module!
17416 set-syntax-object-wrap!
17417 set-syntax-object-expression!
17418 syntax-object-module
17420 syntax-object-expression
17432 build-simple-lambda
17433 build-global-definition
17434 build-global-assignment
17435 build-global-reference
17437 build-lexical-assignment
17438 build-lexical-reference
17445 get-global-definition-hook
17446 put-global-definition-hook
17449 top-level-eval-hook
17465 make-toplevel-define
17757 define-expansion-accessors
17758 define-expansion-constructors)
17759 ((top) (top) (top))
17760 ("l-*-47" "l-*-46" "l-*-45")))
17764 (if (if (eq? (if (if (= (vector-length
17773 #(ribcage () () ())
17793 build-dispatch-call
17809 expand-simple-lambda
17813 eval-local-transformer
17814 expand-local-syntax
17822 expand-install-global
17823 expand-top-sequence
17828 distinct-bound-ids?
17832 with-transformer-environment
17833 transformer-environment
17835 locally-bound-identifiers
17850 set-ribcage-labels!
17852 set-ribcage-symnames!
17884 set-syntax-object-module!
17885 set-syntax-object-wrap!
17886 set-syntax-object-expression!
17887 syntax-object-module
17889 syntax-object-expression
17901 build-simple-lambda
17902 build-global-definition
17903 build-global-assignment
17904 build-global-reference
17906 build-lexical-assignment
17907 build-lexical-reference
17914 get-global-definition-hook
17915 put-global-definition-hook
17918 top-level-eval-hook
17934 make-toplevel-define
18226 define-expansion-accessors
18227 define-expansion-constructors)
18245 #("l-*-4024" "l-*-4025"))
18246 #(ribcage () () ())
18248 #(x keys clauses r mod)
18262 build-dispatch-call
18264 ((top) (top) (top) (top))
18275 expand-simple-lambda
18279 eval-local-transformer
18280 expand-local-syntax
18288 expand-install-global
18289 expand-top-sequence
18294 distinct-bound-ids?
18298 with-transformer-environment
18299 transformer-environment
18301 locally-bound-identifiers
18316 set-ribcage-labels!
18318 set-ribcage-symnames!
18350 set-syntax-object-module!
18351 set-syntax-object-wrap!
18352 set-syntax-object-expression!
18353 syntax-object-module
18355 syntax-object-expression
18367 build-simple-lambda
18368 build-global-definition
18369 build-global-assignment
18370 build-global-reference
18372 build-lexical-assignment
18373 build-lexical-reference
18380 get-global-definition-hook
18381 put-global-definition-hook
18384 top-level-eval-hook
18400 make-toplevel-define
18692 define-expansion-accessors
18693 define-expansion-constructors)
18694 ((top) (top) (top))
18699 (if (if (= (vector-length
18708 #(ribcage () () ())
18728 build-dispatch-call
18744 expand-simple-lambda
18748 eval-local-transformer
18749 expand-local-syntax
18757 expand-install-global
18758 expand-top-sequence
18763 distinct-bound-ids?
18767 with-transformer-environment
18768 transformer-environment
18770 locally-bound-identifiers
18785 set-ribcage-labels!
18787 set-ribcage-symnames!
18819 set-syntax-object-module!
18820 set-syntax-object-wrap!
18821 set-syntax-object-expression!
18822 syntax-object-module
18824 syntax-object-expression
18836 build-simple-lambda
18837 build-global-definition
18838 build-global-assignment
18839 build-global-reference
18841 build-lexical-assignment
18842 build-lexical-reference
18849 get-global-definition-hook
18850 put-global-definition-hook
18853 top-level-eval-hook
18869 make-toplevel-define
19161 define-expansion-accessors
19162 define-expansion-constructors)
19180 #("l-*-4024" "l-*-4025"))
19181 #(ribcage () () ())
19183 #(x keys clauses r mod)
19197 build-dispatch-call
19199 ((top) (top) (top) (top))
19210 expand-simple-lambda
19214 eval-local-transformer
19215 expand-local-syntax
19223 expand-install-global
19224 expand-top-sequence
19229 distinct-bound-ids?
19233 with-transformer-environment
19234 transformer-environment
19236 locally-bound-identifiers
19251 set-ribcage-labels!
19253 set-ribcage-symnames!
19285 set-syntax-object-module!
19286 set-syntax-object-wrap!
19287 set-syntax-object-expression!
19288 syntax-object-module
19290 syntax-object-expression
19302 build-simple-lambda
19303 build-global-definition
19304 build-global-assignment
19305 build-global-reference
19307 build-lexical-assignment
19308 build-lexical-reference
19315 get-global-definition-hook
19316 put-global-definition-hook
19319 top-level-eval-hook
19335 make-toplevel-define
19627 define-expansion-accessors
19628 define-expansion-constructors)
19629 ((top) (top) (top))
19634 (eq? (#{id-var-name 4505}#
19641 #("l-*-4024" "l-*-4025"))
19642 #(ribcage () () ())
19644 #(x keys clauses r mod)
19658 build-dispatch-call
19660 ((top) (top) (top) (top))
19671 expand-simple-lambda
19675 eval-local-transformer
19676 expand-local-syntax
19684 expand-install-global
19685 expand-top-sequence
19690 distinct-bound-ids?
19694 with-transformer-environment
19695 transformer-environment
19697 locally-bound-identifiers
19712 set-ribcage-labels!
19714 set-ribcage-symnames!
19746 set-syntax-object-module!
19747 set-syntax-object-wrap!
19748 set-syntax-object-expression!
19749 syntax-object-module
19751 syntax-object-expression
19763 build-simple-lambda
19764 build-global-definition
19765 build-global-assignment
19766 build-global-reference
19768 build-lexical-assignment
19769 build-lexical-reference
19776 get-global-definition-hook
19777 put-global-definition-hook
19780 top-level-eval-hook
19796 make-toplevel-define
20088 define-expansion-accessors
20089 define-expansion-constructors)
20090 ((top) (top) (top))
20091 ("l-*-47" "l-*-46" "l-*-45")))
20094 (#{id-var-name 4505}#
20101 #("l-*-4024" "l-*-4025"))
20102 #(ribcage () () ())
20104 #(x keys clauses r mod)
20118 build-dispatch-call
20120 ((top) (top) (top) (top))
20131 expand-simple-lambda
20135 eval-local-transformer
20136 expand-local-syntax
20144 expand-install-global
20145 expand-top-sequence
20150 distinct-bound-ids?
20154 with-transformer-environment
20155 transformer-environment
20157 locally-bound-identifiers
20172 set-ribcage-labels!
20174 set-ribcage-symnames!
20206 set-syntax-object-module!
20207 set-syntax-object-wrap!
20208 set-syntax-object-expression!
20209 syntax-object-module
20211 syntax-object-expression
20223 build-simple-lambda
20224 build-global-definition
20225 build-global-assignment
20226 build-global-reference
20228 build-lexical-assignment
20229 build-lexical-reference
20236 get-global-definition-hook
20237 put-global-definition-hook
20240 top-level-eval-hook
20256 make-toplevel-define
20548 define-expansion-accessors
20549 define-expansion-constructors)
20550 ((top) (top) (top))
20551 ("l-*-47" "l-*-46" "l-*-45")))
20560 (let ((#{labels 11812}#
20561 (list (string-append
20563 (#{session-id 4447}#)
20564 (symbol->string (gensym "-")))))
20566 (let ((#{id 11851}#
20567 (if (if (vector? #{pat 11608}#)
20568 (if (= (vector-length
20577 (vector-ref #{pat 11608}# 1)
20581 (symbol->string #{id 11851}#)
20583 (#{build-application 4453}#
20585 (#{build-simple-lambda 4462}#
20587 (list (syntax->datum #{pat 11608}#))
20589 (list #{var 11813}#)
20593 (#{extend-env 4480}#
20595 (list (cons 'syntax
20596 (cons #{var 11813}# 0)))
20598 (#{make-binding-wrap 4500}#
20599 (list #{pat 11608}#)
20603 (list #{x 11562}#))))
20604 (#{gen-clause 11162}#
20607 (cdr #{clauses 11564}#)
20614 (let ((#{tmp 12121}#
20615 ($sc-dispatch #{tmp 11605}# '(any any any))))
20618 (lambda (#{pat 12123}#
20621 (#{gen-clause 11162}#
20624 (cdr #{clauses 11564}#)
20634 (car #{clauses 11564}#)))))))))))
20635 (lambda (#{e 11164}#
20643 (if (if (pair? #{e 11164}#) #{s 11167}# #f)
20644 (set-source-properties! #{e 11164}# #{s 11167}#))
20648 (let ((#{tmp 11171}#
20651 '(_ any each-any . each-any))))
20654 (lambda (#{val 11196}# #{key 11197}# #{m 11198}#)
20656 (lambda (#{x 11199}#)
20657 (if (if (symbol? #{x 11199}#)
20659 (if (if (vector? #{x 11199}#)
20660 (if (= (vector-length #{x 11199}#) 4)
20661 (eq? (vector-ref #{x 11199}# 0)
20665 (symbol? (vector-ref #{x 11199}# 1))
20667 (not (if (if (if (vector? #{x 11199}#)
20668 (if (= (vector-length
20677 (symbol? (vector-ref #{x 11199}# 1))
20679 (if (eq? (if (if (vector? #{x 11199}#)
20680 (if (= (vector-length
20689 (vector-ref #{x 11199}# 1)
20691 (if (if (= (vector-length
20713 expand-simple-lambda
20717 eval-local-transformer
20718 expand-local-syntax
20726 expand-install-global
20727 expand-top-sequence
20732 distinct-bound-ids?
20736 with-transformer-environment
20737 transformer-environment
20739 locally-bound-identifiers
20754 set-ribcage-labels!
20756 set-ribcage-symnames!
20788 set-syntax-object-module!
20789 set-syntax-object-wrap!
20790 set-syntax-object-expression!
20791 syntax-object-module
20793 syntax-object-expression
20805 build-simple-lambda
20806 build-global-definition
20807 build-global-assignment
20808 build-global-reference
20810 build-lexical-assignment
20811 build-lexical-reference
20818 get-global-definition-hook
20819 put-global-definition-hook
20822 top-level-eval-hook
20838 make-toplevel-define
21130 define-expansion-accessors
21131 define-expansion-constructors)
21147 #(ribcage () () ())
21148 #(ribcage () () ())
21159 expand-simple-lambda
21163 eval-local-transformer
21164 expand-local-syntax
21172 expand-install-global
21173 expand-top-sequence
21178 distinct-bound-ids?
21182 with-transformer-environment
21183 transformer-environment
21185 locally-bound-identifiers
21200 set-ribcage-labels!
21202 set-ribcage-symnames!
21234 set-syntax-object-module!
21235 set-syntax-object-wrap!
21236 set-syntax-object-expression!
21237 syntax-object-module
21239 syntax-object-expression
21251 build-simple-lambda
21252 build-global-definition
21253 build-global-assignment
21254 build-global-reference
21256 build-lexical-assignment
21257 build-lexical-reference
21264 get-global-definition-hook
21265 put-global-definition-hook
21268 top-level-eval-hook
21284 make-toplevel-define
21576 define-expansion-accessors
21577 define-expansion-constructors)
21578 ((top) (top) (top))
21583 (eq? (#{id-var-name 4505}#
21586 (#{id-var-name 4505}#
21590 #(ribcage () () ())
21591 #(ribcage () () ())
21602 expand-simple-lambda
21606 eval-local-transformer
21607 expand-local-syntax
21615 expand-install-global
21616 expand-top-sequence
21621 distinct-bound-ids?
21625 with-transformer-environment
21626 transformer-environment
21628 locally-bound-identifiers
21643 set-ribcage-labels!
21645 set-ribcage-symnames!
21677 set-syntax-object-module!
21678 set-syntax-object-wrap!
21679 set-syntax-object-expression!
21680 syntax-object-module
21682 syntax-object-expression
21694 build-simple-lambda
21695 build-global-definition
21696 build-global-assignment
21697 build-global-reference
21699 build-lexical-assignment
21700 build-lexical-reference
21707 get-global-definition-hook
21708 put-global-definition-hook
21711 top-level-eval-hook
21727 make-toplevel-define
22019 define-expansion-accessors
22020 define-expansion-constructors)
22021 ((top) (top) (top))
22033 (string-append (symbol->string 'tmp) "-"))))
22034 (#{build-application 4453}#
22036 (let ((#{req 11455}# (list 'tmp))
22037 (#{vars 11457}# (list #{x 11325}#))
22039 (#{gen-syntax-case 11163}#
22040 (make-struct/no-tail
22041 (vector-ref %expanded-vtables 3)
22049 (let ((#{body 11464}#
22050 (make-struct/no-tail
22051 (vector-ref %expanded-vtables 14)
22061 (make-struct/no-tail
22062 (vector-ref %expanded-vtables 13)
22066 (list (#{expand 4522}#
22073 "invalid literals list"
22078 "source expression failed to match any pattern"
22085 (#{esew 13884}# '(eval)))
22086 (#{expand-top-sequence 4518}#
22093 (cons 'hygiene (module-name (current-module))))))
22095 (lambda (#{x 13887}#)
22096 (if (if (vector? #{x 13887}#)
22097 (if (= (vector-length #{x 13887}#) 4)
22098 (eq? (vector-ref #{x 13887}# 0) 'syntax-object)
22101 (symbol? (vector-ref #{x 13887}# 1))
22103 (set! datum->syntax
22104 (lambda (#{id 13912}# #{datum 13913}#)
22105 (let ((#{wrap 13918}# (vector-ref #{id 13912}# 2))
22106 (#{module 13919}# (vector-ref #{id 13912}# 3)))
22111 #{module 13919}#))))
22112 (set! syntax->datum
22113 (lambda (#{x 13926}#)
22114 (#{strip 4535}# #{x 13926}# '(()))))
22115 (set! syntax-source
22116 (lambda (#{x 13929}#)
22117 (#{source-annotation 4479}# #{x 13929}#)))
22118 (set! generate-temporaries
22119 (lambda (#{ls 14082}#)
22121 (if (not (list? #{ls 14082}#))
22123 'generate-temporaries
22126 (let ((#{mod 14090}#
22127 (cons 'hygiene (module-name (current-module)))))
22128 (map (lambda (#{x 14091}#)
22134 (set! free-identifier=?
22135 (lambda (#{x 14095}# #{y 14096}#)
22137 (if (not (if (if (vector? #{x 14095}#)
22138 (if (= (vector-length #{x 14095}#) 4)
22139 (eq? (vector-ref #{x 14095}# 0) 'syntax-object)
22142 (symbol? (vector-ref #{x 14095}# 1))
22148 (if (not (if (if (vector? #{y 14096}#)
22149 (if (= (vector-length #{y 14096}#) 4)
22150 (eq? (vector-ref #{y 14096}# 0) 'syntax-object)
22153 (symbol? (vector-ref #{y 14096}# 1))
22159 (if (eq? (if (if (vector? #{x 14095}#)
22160 (if (= (vector-length #{x 14095}#) 4)
22161 (eq? (vector-ref #{x 14095}# 0) 'syntax-object)
22164 (vector-ref #{x 14095}# 1)
22166 (if (if (vector? #{y 14096}#)
22167 (if (= (vector-length #{y 14096}#) 4)
22168 (eq? (vector-ref #{y 14096}# 0) 'syntax-object)
22171 (vector-ref #{y 14096}# 1)
22173 (eq? (#{id-var-name 4505}# #{x 14095}# '(()))
22174 (#{id-var-name 4505}# #{y 14096}# '(())))
22176 (set! bound-identifier=?
22177 (lambda (#{x 14246}# #{y 14247}#)
22179 (if (not (if (if (vector? #{x 14246}#)
22180 (if (= (vector-length #{x 14246}#) 4)
22181 (eq? (vector-ref #{x 14246}# 0) 'syntax-object)
22184 (symbol? (vector-ref #{x 14246}# 1))
22187 'bound-identifier=?
22190 (if (not (if (if (vector? #{y 14247}#)
22191 (if (= (vector-length #{y 14247}#) 4)
22192 (eq? (vector-ref #{y 14247}# 0) 'syntax-object)
22195 (symbol? (vector-ref #{y 14247}# 1))
22198 'bound-identifier=?
22201 (if (if (if (vector? #{x 14246}#)
22202 (if (= (vector-length #{x 14246}#) 4)
22203 (eq? (vector-ref #{x 14246}# 0) 'syntax-object)
22206 (if (vector? #{y 14247}#)
22207 (if (= (vector-length #{y 14247}#) 4)
22208 (eq? (vector-ref #{y 14247}# 0) 'syntax-object)
22212 (if (eq? (vector-ref #{x 14246}# 1)
22213 (vector-ref #{y 14247}# 1))
22214 (#{same-marks? 4504}#
22215 (car (vector-ref #{x 14246}# 2))
22216 (car (vector-ref #{y 14247}# 2)))
22218 (eq? #{x 14246}# #{y 14247}#)))))
22219 (set! syntax-violation
22225 (#{subform 14383}# #f))
22227 (if (not (if (not #{who 14380}#)
22228 (not #{who 14380}#)
22229 (let ((#{t 14401}# (string? #{who 14380}#)))
22232 (symbol? #{who 14380}#)))))
22237 (if (not (string? #{message 14381}#))
22241 #{message 14381}#))
22242 (throw 'syntax-error
22245 (#{source-annotation 4479}#
22248 #{subform 14383}#))
22249 (#{strip 4535}# #{form 14382}# '(()))
22250 (if #{subform 14383}#
22251 (#{strip 4535}# #{subform 14383}# '(()))
22254 ((#{syntax-local-binding 14605}#
22255 (lambda (#{id 14738}#)
22257 (if (not (if (if (vector? #{id 14738}#)
22258 (if (= (vector-length #{id 14738}#) 4)
22259 (eq? (vector-ref #{id 14738}# 0)
22263 (symbol? (vector-ref #{id 14738}# 1))
22266 'syntax-local-binding
22269 ((fluid-ref #{transformer-environment 4508}#)
22270 (lambda (#{e 14778}#
22278 (let ((#{id 14786}# (vector-ref #{id 14738}# 1))
22280 (let ((#{w 14798}# (vector-ref #{id 14738}# 2)))
22281 (let ((#{ms 14799}# (car #{w 14798}#))
22282 (#{s 14800}# (cdr #{w 14798}#)))
22283 (if (if (pair? #{ms 14799}#)
22284 (eq? (car #{ms 14799}#) #f)
22286 (cons (cdr #{ms 14799}#)
22288 (cons #{rib 14782}#
22290 (cdr #{s 14800}#)))
22293 (cons #{rib 14782}# #{s 14800}#)
22295 (#{mod 14789}# (vector-ref #{id 14738}# 3)))
22297 (#{id-var-name 4505}#
22300 (if (symbol? #{n 14792}#)
22301 (let ((#{mod 14806}#
22302 (if (if (vector? #{id 14786}#)
22303 (if (= (vector-length #{id 14786}#)
22305 (eq? (vector-ref #{id 14786}# 0)
22309 (vector-ref #{id 14786}# 3)
22313 (#{get-global-definition-hook 4449}#
22319 (if (eq? (car #{b 14807}#) 'global)
22320 (values 'global #{n 14792}# #{mod 14806}#)
22325 (if (string? #{n 14792}#)
22326 (let ((#{mod 14834}#
22327 (if (if (vector? #{id 14786}#)
22328 (if (= (vector-length #{id 14786}#)
22330 (eq? (vector-ref #{id 14786}# 0)
22334 (vector-ref #{id 14786}# 3)
22343 '(displaced-lexical)))))
22348 (error "unexpected id-var-name"
22352 (lambda (#{type 14849}# #{value 14850}# #{mod 14851}#)
22353 (if (eqv? #{type 14849}# 'lexical)
22354 (values 'lexical #{value 14850}#)
22355 (if (eqv? #{type 14849}# 'macro)
22356 (values 'macro #{value 14850}#)
22357 (if (eqv? #{type 14849}# 'syntax)
22358 (values 'pattern-variable #{value 14850}#)
22359 (if (eqv? #{type 14849}# 'displaced-lexical)
22360 (values 'displaced-lexical #f)
22361 (if (eqv? #{type 14849}# 'global)
22364 (cons #{value 14850}# (cdr #{mod 14851}#)))
22365 (values 'other #f)))))))))))))
22366 (#{syntax-locally-bound-identifiers 14606}#
22367 (lambda (#{id 14862}#)
22369 (if (not (if (if (vector? #{id 14862}#)
22370 (if (= (vector-length #{id 14862}#) 4)
22371 (eq? (vector-ref #{id 14862}# 0)
22375 (symbol? (vector-ref #{id 14862}# 1))
22378 'syntax-locally-bound-identifiers
22381 (#{locally-bound-identifiers 4506}#
22382 (vector-ref #{id 14862}# 2)
22383 (vector-ref #{id 14862}# 3))))))
22387 (lambda (#{id 14608}#)
22389 (if (not (if (if (vector? #{id 14608}#)
22390 (if (= (vector-length #{id 14608}#) 4)
22391 (eq? (vector-ref #{id 14608}# 0)
22395 (symbol? (vector-ref #{id 14608}# 1))
22401 (cdr (vector-ref #{id 14608}# 3)))))
22403 'syntax-local-binding
22404 #{syntax-local-binding 14605}#)
22406 'syntax-locally-bound-identifiers
22407 #{syntax-locally-bound-identifiers 14606}#)))
22409 ((#{match-each 14969}#
22410 (lambda (#{e 15556}#
22414 (if (pair? #{e 15556}#)
22415 (let ((#{first 15560}#
22422 (if #{first 15560}#
22423 (let ((#{rest 15563}#
22424 (#{match-each 14969}#
22430 (cons #{first 15560}# #{rest 15563}#)
22433 (if (null? #{e 15556}#)
22435 (if (if (vector? #{e 15556}#)
22436 (if (= (vector-length #{e 15556}#) 4)
22437 (eq? (vector-ref #{e 15556}# 0) 'syntax-object)
22440 (#{match-each 14969}#
22441 (vector-ref #{e 15556}# 1)
22443 (#{join-wraps 4502}#
22445 (vector-ref #{e 15556}# 2))
22446 (vector-ref #{e 15556}# 3))
22448 (#{match-each-any 14971}#
22449 (lambda (#{e 15591}# #{w 15592}# #{mod 15593}#)
22450 (if (pair? #{e 15591}#)
22452 (#{match-each-any 14971}#
22457 (cons (#{wrap 4515}#
22463 (if (null? #{e 15591}#)
22465 (if (if (vector? #{e 15591}#)
22466 (if (= (vector-length #{e 15591}#) 4)
22467 (eq? (vector-ref #{e 15591}# 0) 'syntax-object)
22470 (#{match-each-any 14971}#
22471 (vector-ref #{e 15591}# 1)
22472 (#{join-wraps 4502}#
22474 (vector-ref #{e 15591}# 2))
22477 (#{match-empty 14972}#
22478 (lambda (#{p 15618}# #{r 15619}#)
22479 (if (null? #{p 15618}#)
22481 (if (eq? #{p 15618}# '_)
22483 (if (eq? #{p 15618}# 'any)
22484 (cons '() #{r 15619}#)
22485 (if (pair? #{p 15618}#)
22486 (#{match-empty 14972}#
22488 (#{match-empty 14972}#
22491 (if (eq? #{p 15618}# 'each-any)
22492 (cons '() #{r 15619}#)
22493 (let ((#{atom-key 15620}# (vector-ref #{p 15618}# 0)))
22494 (if (eqv? #{atom-key 15620}# 'each)
22495 (#{match-empty 14972}#
22496 (vector-ref #{p 15618}# 1)
22498 (if (eqv? #{atom-key 15620}# 'each+)
22499 (#{match-empty 14972}#
22500 (vector-ref #{p 15618}# 1)
22501 (#{match-empty 14972}#
22502 (reverse (vector-ref #{p 15618}# 2))
22503 (#{match-empty 14972}#
22504 (vector-ref #{p 15618}# 3)
22506 (if (if (eqv? #{atom-key 15620}# 'free-id)
22508 (eqv? #{atom-key 15620}# 'atom))
22510 (if (eqv? #{atom-key 15620}# 'vector)
22511 (#{match-empty 14972}#
22512 (vector-ref #{p 15618}# 1)
22513 #{r 15619}#)))))))))))))
22515 (lambda (#{r* 15639}# #{r 15640}#)
22516 (if (null? (car #{r* 15639}#))
22518 (cons (map car #{r* 15639}#)
22520 (map cdr #{r* 15639}#)
22523 (lambda (#{e 15004}#
22528 (if (null? #{p 15005}#)
22529 (if (null? #{e 15004}#) #{r 15007}# #f)
22530 (if (pair? #{p 15005}#)
22531 (if (pair? #{e 15004}#)
22544 (if (eq? #{p 15005}# 'each-any)
22546 (#{match-each-any 14971}#
22551 (cons #{l 15013}# #{r 15007}#)
22553 (let ((#{atom-key 15018}# (vector-ref #{p 15005}# 0)))
22554 (if (eqv? #{atom-key 15018}# 'each)
22555 (if (null? #{e 15004}#)
22556 (#{match-empty 14972}#
22557 (vector-ref #{p 15005}# 1)
22560 (#{match-each 14969}#
22562 (vector-ref #{p 15005}# 1)
22567 ((#{collect 15028}#
22568 (lambda (#{l 15079}#)
22569 (if (null? (car #{l 15079}#))
22571 (cons (map car #{l 15079}#)
22573 (map cdr #{l 15079}#)))))))
22574 (#{collect 15028}# #{l 15025}#))
22576 (if (eqv? #{atom-key 15018}# 'each+)
22579 (let ((#{x-pat 15088}# (vector-ref #{p 15005}# 1))
22580 (#{y-pat 15089}# (vector-ref #{p 15005}# 2))
22582 (vector-ref #{p 15005}# 3)))
22585 (lambda (#{e 15096}# #{w 15097}#)
22586 (if (pair? #{e 15096}#)
22592 (lambda (#{xr* 15098}#
22596 (if (null? #{y-pat 15099}#)
22597 (let ((#{xr 15101}#
22610 (values #f #f #f)))
22613 (cdr #{y-pat 15099}#)
22616 (car #{y-pat 15099}#)
22620 (values #f #f #f))))
22621 (if (if (vector? #{e 15096}#)
22622 (if (= (vector-length
22625 (eq? (vector-ref #{e 15096}# 0)
22630 (vector-ref #{e 15096}# 1)
22631 (#{join-wraps 4502}#
22642 #{mod 15008}#)))))))
22643 (#{f 15094}# #{e 15004}# #{w 15006}#))))
22644 (lambda (#{xr* 15127}# #{y-pat 15128}# #{r 15129}#)
22646 (if (null? #{y-pat 15128}#)
22647 (if (null? #{xr* 15127}#)
22648 (#{match-empty 14972}#
22649 (vector-ref #{p 15005}# 1)
22656 (if (eqv? #{atom-key 15018}# 'free-id)
22657 (if (if (symbol? #{e 15004}#)
22659 (if (if (vector? #{e 15004}#)
22660 (if (= (vector-length #{e 15004}#) 4)
22661 (eq? (vector-ref #{e 15004}# 0)
22665 (symbol? (vector-ref #{e 15004}# 1))
22667 (if (let ((#{i 15460}#
22673 (vector-ref #{p 15005}# 1)))
22674 (if (eq? (if (if (vector? #{i 15460}#)
22675 (if (= (vector-length
22684 (vector-ref #{i 15460}# 1)
22686 (if (if (vector? #{j 15461}#)
22687 (if (= (vector-length
22696 (vector-ref #{j 15461}# 1)
22698 (eq? (#{id-var-name 4505}#
22701 (#{id-var-name 4505}#
22708 (if (eqv? #{atom-key 15018}# 'atom)
22710 (vector-ref #{p 15005}# 1)
22711 (#{strip 4535}# #{e 15004}# #{w 15006}#))
22714 (if (eqv? #{atom-key 15018}# 'vector)
22715 (if (vector? #{e 15004}#)
22717 (vector->list #{e 15004}#)
22718 (vector-ref #{p 15005}# 1)
22724 (lambda (#{e 15521}#
22729 (if (not #{r 15524}#)
22731 (if (eq? #{p 15522}# '_)
22733 (if (eq? #{p 15522}# 'any)
22734 (cons (#{wrap 4515}#
22739 (if (if (vector? #{e 15521}#)
22740 (if (= (vector-length #{e 15521}#) 4)
22741 (eq? (vector-ref #{e 15521}# 0) 'syntax-object)
22745 (vector-ref #{e 15521}# 1)
22747 (#{join-wraps 4502}#
22749 (vector-ref #{e 15521}# 2))
22751 (vector-ref #{e 15521}# 3))
22757 #{mod 15525}#))))))))
22759 (lambda (#{e 14976}# #{p 14977}#)
22760 (if (eq? #{p 14977}# 'any)
22762 (if (eq? #{p 14977}# '_)
22764 (if (if (vector? #{e 14976}#)
22765 (if (= (vector-length #{e 14976}#) 4)
22766 (eq? (vector-ref #{e 14976}# 0) 'syntax-object)
22770 (vector-ref #{e 14976}# 1)
22772 (vector-ref #{e 14976}# 2)
22774 (vector-ref #{e 14976}# 3))
22782 (define with-syntax
22783 (make-syntax-transformer
22786 (lambda (#{x 27756}#)
22787 (let ((#{tmp 27758}#
22788 ($sc-dispatch #{x 27756}# '(_ () any . each-any))))
22791 (lambda (#{e1 27762}# #{e2 27763}#)
22792 (cons '#(syntax-object
22798 #("l-*-27729" "l-*-27730"))
22799 #(ribcage () () ())
22800 #(ribcage #(x) #((top)) #("l-*-27726")))
22802 (cons '() (cons #{e1 27762}# #{e2 27763}#))))
22804 (let ((#{tmp 27764}#
22807 '(_ ((any any)) any . each-any))))
22810 (lambda (#{out 27768}#
22814 (list '#(syntax-object
22819 #((top) (top) (top) (top))
22824 #(ribcage () () ())
22825 #(ribcage #(x) #((top)) #("l-*-27726")))
22829 (list #{out 27768}#
22830 (cons '#(syntax-object
22835 #((top) (top) (top) (top))
22840 #(ribcage () () ())
22847 (cons #{e1 27770}# #{e2 27771}#))))))
22849 (let ((#{tmp 27772}#
22852 '(_ #(each (any any)) any . each-any))))
22855 (lambda (#{out 27776}#
22859 (list '#(syntax-object
22864 #((top) (top) (top) (top))
22869 #(ribcage () () ())
22870 #(ribcage #(x) #((top)) #("l-*-27726")))
22872 (cons '#(syntax-object
22877 #((top) (top) (top) (top))
22882 #(ribcage () () ())
22883 #(ribcage #(x) #((top)) #("l-*-27726")))
22887 (list #{out 27776}#
22888 (cons '#(syntax-object
22893 #((top) (top) (top) (top))
22898 #(ribcage () () ())
22910 "source expression failed to match any pattern"
22911 #{x 27756}#))))))))))
22913 (define syntax-rules
22914 (make-syntax-transformer
22917 (lambda (#{x 27833}#)
22918 (let ((#{tmp 27835}#
22921 '(_ each-any . #(each ((any . any) any))))))
22924 (lambda (#{k 27839}#
22927 #{template 27842}#)
22928 (list '#(syntax-object
22932 #(k keyword pattern template)
22933 #((top) (top) (top) (top))
22938 #(ribcage () () ())
22939 #(ribcage #(x) #((top)) #("l-*-27793")))
22945 #(k keyword pattern template)
22946 #((top) (top) (top) (top))
22951 #(ribcage () () ())
22952 #(ribcage #(x) #((top)) #("l-*-27793")))
22959 #(k keyword pattern template)
22960 #((top) (top) (top) (top))
22965 #(ribcage () () ())
22966 #(ribcage #(x) #((top)) #("l-*-27793")))
22973 #(k keyword pattern template)
22974 #((top) (top) (top) (top))
22979 #(ribcage () () ())
22980 #(ribcage #(x) #((top)) #("l-*-27793")))
22982 (cons '#(syntax-object
22986 #(k keyword pattern template)
22987 #((top) (top) (top) (top))
22992 #(ribcage () () ())
22993 #(ribcage #(x) #((top)) #("l-*-27793")))
22995 #{pattern 27841}#))
22996 (cons '#(syntax-object
23000 #(k keyword pattern template)
23001 #((top) (top) (top) (top))
23006 #(ribcage () () ())
23007 #(ribcage #(x) #((top)) #("l-*-27793")))
23009 (cons '#(syntax-object
23013 #(k keyword pattern template)
23014 #((top) (top) (top) (top))
23019 #(ribcage () () ())
23020 #(ribcage #(x) #((top)) #("l-*-27793")))
23023 (map (lambda (#{tmp-27807 27843}#
23024 #{tmp-27806 27844}#)
23025 (list (cons '#(syntax-object
23050 #{tmp-27806 27844}#)
23051 (list '#(syntax-object
23076 #{tmp-27807 27843}#)))
23078 #{pattern 27841}#))))))
23080 (let ((#{tmp 27845}#
23083 '(_ each-any any . #(each ((any . any) any))))))
23084 (if (if #{tmp 27845}#
23086 (lambda (#{k 27849}#
23087 #{docstring 27850}#
23090 #{template 27853}#)
23091 (string? (syntax->datum #{docstring 27850}#)))
23095 (lambda (#{k 27854}#
23096 #{docstring 27855}#
23099 #{template 27858}#)
23100 (list '#(syntax-object
23104 #(k docstring keyword pattern template)
23105 #((top) (top) (top) (top) (top))
23111 #(ribcage () () ())
23112 #(ribcage #(x) #((top)) #("l-*-27793")))
23118 #(k docstring keyword pattern template)
23119 #((top) (top) (top) (top) (top))
23125 #(ribcage () () ())
23126 #(ribcage #(x) #((top)) #("l-*-27793")))
23128 #{docstring 27855}#
23134 #(k docstring keyword pattern template)
23135 #((top) (top) (top) (top) (top))
23141 #(ribcage () () ())
23142 #(ribcage #(x) #((top)) #("l-*-27793")))
23149 #(k docstring keyword pattern template)
23150 #((top) (top) (top) (top) (top))
23156 #(ribcage () () ())
23157 #(ribcage #(x) #((top)) #("l-*-27793")))
23159 (cons '#(syntax-object
23163 #(k docstring keyword pattern template)
23164 #((top) (top) (top) (top) (top))
23170 #(ribcage () () ())
23171 #(ribcage #(x) #((top)) #("l-*-27793")))
23173 #{pattern 27857}#))
23174 (cons '#(syntax-object
23178 #(k docstring keyword pattern template)
23179 #((top) (top) (top) (top) (top))
23185 #(ribcage () () ())
23186 #(ribcage #(x) #((top)) #("l-*-27793")))
23188 (cons '#(syntax-object
23197 #((top) (top) (top) (top) (top))
23203 #(ribcage () () ())
23210 (map (lambda (#{tmp-27832 27859}#
23211 #{tmp-27831 27860}#)
23212 (list (cons '#(syntax-object
23241 #{tmp-27831 27860}#)
23242 (list '#(syntax-object
23271 #{tmp-27832 27859}#)))
23273 #{pattern 27857}#))))))
23277 "source expression failed to match any pattern"
23278 #{x 27833}#))))))))
23280 (define define-syntax-rule
23281 (make-syntax-transformer
23282 'define-syntax-rule
23284 (lambda (#{x 27897}#)
23285 (let ((#{tmp 27899}#
23286 ($sc-dispatch #{x 27897}# '(_ (any . any) any))))
23289 (lambda (#{name 27903}#
23291 #{template 27905}#)
23292 (list '#(syntax-object
23296 #(name pattern template)
23297 #((top) (top) (top))
23298 #("l-*-27874" "l-*-27875" "l-*-27876"))
23299 #(ribcage () () ())
23300 #(ribcage #(x) #((top)) #("l-*-27871")))
23303 (list '#(syntax-object
23307 #(name pattern template)
23308 #((top) (top) (top))
23309 #("l-*-27874" "l-*-27875" "l-*-27876"))
23310 #(ribcage () () ())
23311 #(ribcage #(x) #((top)) #("l-*-27871")))
23314 (list (cons '#(syntax-object
23318 #(name pattern template)
23319 #((top) (top) (top))
23323 #(ribcage () () ())
23330 #{template 27905}#))))
23332 (let ((#{tmp 27906}#
23335 '(_ (any . any) any any))))
23336 (if (if #{tmp 27906}#
23338 (lambda (#{name 27910}#
23340 #{docstring 27912}#
23341 #{template 27913}#)
23342 (string? (syntax->datum #{docstring 27912}#)))
23346 (lambda (#{name 27914}#
23348 #{docstring 27916}#
23349 #{template 27917}#)
23350 (list '#(syntax-object
23354 #(name pattern docstring template)
23355 #((top) (top) (top) (top))
23360 #(ribcage () () ())
23361 #(ribcage #(x) #((top)) #("l-*-27871")))
23364 (list '#(syntax-object
23368 #(name pattern docstring template)
23369 #((top) (top) (top) (top))
23374 #(ribcage () () ())
23375 #(ribcage #(x) #((top)) #("l-*-27871")))
23378 #{docstring 27916}#
23379 (list (cons '#(syntax-object
23387 #((top) (top) (top) (top))
23392 #(ribcage () () ())
23399 #{template 27917}#))))
23403 "source expression failed to match any pattern"
23404 #{x 27897}#))))))))
23407 (make-syntax-transformer
23410 (lambda (#{x 27966}#)
23411 (let ((#{tmp 27968}#
23414 '(any #(each (any any)) any . each-any))))
23415 (if (if #{tmp 27968}#
23417 (lambda (#{let* 27972}#
23422 (and-map identifier? #{x 27973}#))
23426 (lambda (#{let* 27977}#
23433 (lambda (#{bindings 27985}#)
23434 (if (null? #{bindings 27985}#)
23435 (cons '#(syntax-object
23438 #(ribcage () () ())
23442 #("l-*-27952" "l-*-27953"))
23445 #((top) (top) (top) (top) (top))
23451 #(ribcage () () ())
23452 #(ribcage #(x) #((top)) #("l-*-27928")))
23454 (cons '() (cons #{e1 27980}# #{e2 27981}#)))
23455 (let ((#{tmp 27986}#
23456 (list (#{f 27982}# (cdr #{bindings 27985}#))
23457 (car #{bindings 27985}#))))
23458 (let ((#{tmp 27987}#
23459 ($sc-dispatch #{tmp 27986}# '(any any))))
23462 (lambda (#{body 27989}# #{binding 27990}#)
23463 (list '#(syntax-object
23466 #(ribcage () () ())
23470 #("l-*-27962" "l-*-27963"))
23471 #(ribcage () () ())
23475 #("l-*-27952" "l-*-27953"))
23478 #((top) (top) (top) (top) (top))
23484 #(ribcage () () ())
23490 (list #{binding 27990}#)
23495 "source expression failed to match any pattern"
23496 #{tmp 27986}#))))))))
23497 (#{f 27982}# (map list #{x 27978}# #{v 27979}#))))
23501 "source expression failed to match any pattern"
23505 (make-syntax-transformer
23508 (lambda (#{orig-x 28048}#)
23509 (let ((#{tmp 28050}#
23512 '(_ #(each (any any . any))
23518 (lambda (#{var 28054}#
23524 (let ((#{tmp 28060}#
23525 (map (lambda (#{v 28063}# #{s 28064}#)
23526 (let ((#{tmp 28066}#
23527 ($sc-dispatch #{s 28064}# '())))
23529 (@apply (lambda () #{v 28063}#) #{tmp 28066}#)
23530 (let ((#{tmp 28069}#
23531 ($sc-dispatch #{s 28064}# '(any))))
23534 (lambda (#{e 28072}#) #{e 28072}#)
23538 "bad step expression"
23543 (let ((#{tmp 28061}#
23544 ($sc-dispatch #{tmp 28060}# 'each-any)))
23547 (lambda (#{step 28078}#)
23548 (let ((#{tmp 28080}# ($sc-dispatch #{e1 28058}# '())))
23552 (list '#(syntax-object
23555 #(ribcage () () ())
23561 #(var init step e0 e1 c)
23574 #(ribcage () () ())
23583 #(ribcage () () ())
23589 #(var init step e0 e1 c)
23602 #(ribcage () () ())
23608 (map list #{var 28054}# #{init 28055}#)
23609 (list '#(syntax-object
23612 #(ribcage () () ())
23618 #(var init step e0 e1 c)
23631 #(ribcage () () ())
23637 (list '#(syntax-object
23640 #(ribcage () () ())
23664 #(ribcage () () ())
23671 (cons '#(syntax-object
23674 #(ribcage () () ())
23698 #(ribcage () () ())
23706 (list (cons '#(syntax-object
23746 #{step 28078}#)))))))
23748 (let ((#{tmp 28084}#
23751 '(any . each-any))))
23754 (lambda (#{e1 28088}# #{e2 28089}#)
23755 (list '#(syntax-object
23761 #("l-*-28025" "l-*-28026"))
23762 #(ribcage () () ())
23768 #(var init step e0 e1 c)
23781 #(ribcage () () ())
23793 #("l-*-28025" "l-*-28026"))
23794 #(ribcage () () ())
23800 #(var init step e0 e1 c)
23813 #(ribcage () () ())
23822 (list '#(syntax-object
23830 #(ribcage () () ())
23836 #(var init step e0 e1 c)
23849 #(ribcage () () ())
23856 (cons '#(syntax-object
23864 #(ribcage () () ())
23888 #(ribcage () () ())
23896 (cons '#(syntax-object
23904 #(ribcage () () ())
23928 #(ribcage () () ())
23936 (list (cons '#(syntax-object
23983 #{step 28078}#)))))))
23987 "source expression failed to match any pattern"
23992 "source expression failed to match any pattern"
23997 "source expression failed to match any pattern"
23998 #{orig-x 28048}#))))))
24001 (make-syntax-transformer
24006 (lambda (#{p 28399}# #{lev 28400}#)
24007 (let ((#{tmp 28402}#
24014 #(ribcage () () ())
24018 #("l-*-28121" "l-*-28122"))
24026 ((top) (top) (top) (top) (top) (top) (top))
24038 (lambda (#{p 28406}#)
24039 (if (= #{lev 28400}# 0)
24040 (list '#(syntax-object
24043 #(ribcage #(p) #((top)) #("l-*-28125"))
24044 #(ribcage () () ())
24048 #("l-*-28121" "l-*-28122"))
24056 ((top) (top) (top) (top) (top) (top) (top))
24066 (#{quasicons 28377}#
24070 #(ribcage #(p) #((top)) #("l-*-28125"))
24071 #(ribcage () () ())
24075 #("l-*-28121" "l-*-28122"))
24083 ((top) (top) (top) (top) (top) (top) (top))
24095 #(ribcage #(p) #((top)) #("l-*-28125"))
24096 #(ribcage () () ())
24100 #("l-*-28121" "l-*-28122"))
24108 ((top) (top) (top) (top) (top) (top) (top))
24119 (#{1-}# #{lev 28400}#)))))
24121 (let ((#{tmp 28409}#
24128 #(ribcage () () ())
24132 #("l-*-28121" "l-*-28122"))
24140 ((top) (top) (top) (top) (top) (top) (top))
24152 (lambda (#{p 28413}#)
24153 (#{quasicons 28377}#
24157 #(ribcage #(p) #((top)) #("l-*-28128"))
24158 #(ribcage () () ())
24162 #("l-*-28121" "l-*-28122"))
24170 ((top) (top) (top) (top) (top) (top) (top))
24182 #(ribcage #(p) #((top)) #("l-*-28128"))
24183 #(ribcage () () ())
24187 #("l-*-28121" "l-*-28122"))
24195 ((top) (top) (top) (top) (top) (top) (top))
24206 (#{1+}# #{lev 28400}#))))
24208 (let ((#{tmp 28416}#
24209 ($sc-dispatch #{p 28399}# '(any . any))))
24212 (lambda (#{p 28420}# #{q 28421}#)
24213 (let ((#{tmp 28423}#
24223 #("l-*-28131" "l-*-28132"))
24224 #(ribcage () () ())
24228 #("l-*-28121" "l-*-28122"))
24255 (lambda (#{p 28427}#)
24256 (if (= #{lev 28400}# 0)
24257 (#{quasilist* 28379}#
24258 (map (lambda (#{tmp-28139 28463}#)
24259 (list '#(syntax-object
24271 #(ribcage () () ())
24299 #{tmp-28139 28463}#))
24304 (#{quasicons 28377}#
24305 (#{quasicons 28377}#
24316 #("l-*-28131" "l-*-28132"))
24317 #(ribcage () () ())
24321 #("l-*-28121" "l-*-28122"))
24354 #("l-*-28131" "l-*-28132"))
24355 #(ribcage () () ())
24359 #("l-*-28121" "l-*-28122"))
24384 (#{1-}# #{lev 28400}#)))
24389 (let ((#{tmp 28468}#
24399 #("l-*-28131" "l-*-28132"))
24400 #(ribcage () () ())
24404 #("l-*-28121" "l-*-28122"))
24431 (lambda (#{p 28472}#)
24432 (if (= #{lev 28400}# 0)
24433 (#{quasiappend 28378}#
24434 (map (lambda (#{tmp-28144 28475}#)
24435 (list '#(syntax-object
24447 #(ribcage () () ())
24475 #{tmp-28144 28475}#))
24480 (#{quasicons 28377}#
24481 (#{quasicons 28377}#
24492 #("l-*-28131" "l-*-28132"))
24493 #(ribcage () () ())
24497 #("l-*-28121" "l-*-28122"))
24530 #("l-*-28131" "l-*-28132"))
24531 #(ribcage () () ())
24535 #("l-*-28121" "l-*-28122"))
24560 (#{1-}# #{lev 28400}#)))
24565 (#{quasicons 28377}#
24571 #{lev 28400}#)))))))
24573 (let ((#{tmp 28489}#
24574 ($sc-dispatch #{p 28399}# '#(vector each-any))))
24577 (lambda (#{x 28493}#)
24582 (let ((#{tmp 28498}#
24585 '(#(atom "quote") each-any))))
24588 (lambda (#{x 28502}#)
24589 (list '#(syntax-object
24596 #(ribcage () () ())
24623 (list->vector #{x 28502}#)))
24627 (lambda (#{y 28516}# #{k 28517}#)
24628 (let ((#{tmp 28519}#
24635 (lambda (#{y 28522}#)
24637 (map (lambda (#{tmp-28274 28523}#)
24638 (list '#(syntax-object
24694 #{tmp-28274 28523}#))
24697 (let ((#{tmp 28524}#
24705 (lambda (#{y 28527}#)
24709 (let ((#{tmp 28528}#
24720 (lambda (#{y 28531}#
24724 (lambda (#{ls 28533}#)
24730 (list '#(syntax-object
24793 #{x 28496}#))))))))))
24796 (lambda (#{ls 28506}#)
24797 (let ((#{tmp 28508}#
24803 (lambda (#{t-28262 28511}#)
24804 (cons '#(syntax-object
24866 #{t-28262 28511}#))
24870 "source expression failed to match any pattern"
24871 #{ls 28506}#))))))))))
24873 (list '#(syntax-object
24876 #(ribcage #(p) #((top)) #("l-*-28152"))
24877 #(ribcage () () ())
24881 #("l-*-28121" "l-*-28122"))
24904 #{p 28399}#)))))))))))
24906 (lambda (#{p 28561}# #{lev 28562}#)
24907 (let ((#{tmp 28564}#
24908 ($sc-dispatch #{p 28561}# '(any . any))))
24911 (lambda (#{p 28568}# #{q 28569}#)
24912 (let ((#{tmp 28571}#
24922 #("l-*-28160" "l-*-28161"))
24923 #(ribcage () () ())
24927 #("l-*-28156" "l-*-28157"))
24954 (lambda (#{p 28575}#)
24955 (if (= #{lev 28562}# 0)
24956 (#{quasilist* 28379}#
24957 (map (lambda (#{tmp-28168 28611}#)
24958 (list '#(syntax-object
24968 #("l-*-28160" "l-*-28161"))
24969 #(ribcage () () ())
24973 #("l-*-28156" "l-*-28157"))
24996 #{tmp-28168 28611}#))
24998 (#{vquasi 28376}# #{q 28569}# #{lev 28562}#))
24999 (#{quasicons 28377}#
25000 (#{quasicons 28377}#
25004 #(ribcage #(p) #((top)) #("l-*-28166"))
25008 #("l-*-28160" "l-*-28161"))
25009 #(ribcage () () ())
25013 #("l-*-28156" "l-*-28157"))
25039 #(ribcage #(p) #((top)) #("l-*-28166"))
25043 #("l-*-28160" "l-*-28161"))
25044 #(ribcage () () ())
25048 #("l-*-28156" "l-*-28157"))
25073 (#{1-}# #{lev 28562}#)))
25074 (#{vquasi 28376}# #{q 28569}# #{lev 28562}#))))
25076 (let ((#{tmp 28618}#
25086 #("l-*-28160" "l-*-28161"))
25087 #(ribcage () () ())
25091 #("l-*-28156" "l-*-28157"))
25118 (lambda (#{p 28622}#)
25119 (if (= #{lev 28562}# 0)
25120 (#{quasiappend 28378}#
25121 (map (lambda (#{tmp-28173 28625}#)
25122 (list '#(syntax-object
25134 #(ribcage () () ())
25162 #{tmp-28173 28625}#))
25167 (#{quasicons 28377}#
25168 (#{quasicons 28377}#
25179 #("l-*-28160" "l-*-28161"))
25180 #(ribcage () () ())
25184 #("l-*-28156" "l-*-28157"))
25217 #("l-*-28160" "l-*-28161"))
25218 #(ribcage () () ())
25222 #("l-*-28156" "l-*-28157"))
25247 (#{1-}# #{lev 28562}#)))
25252 (#{quasicons 28377}#
25253 (#{quasi 28375}# #{p 28568}# #{lev 28562}#)
25254 (#{vquasi 28376}# #{q 28569}# #{lev 28562}#)))))))
25256 (let ((#{tmp 28643}# ($sc-dispatch #{p 28561}# '())))
25263 #(ribcage () () ())
25267 #("l-*-28156" "l-*-28157"))
25275 ((top) (top) (top) (top) (top) (top) (top))
25288 "source expression failed to match any pattern"
25290 (#{quasicons 28377}#
25291 (lambda (#{x 28656}# #{y 28657}#)
25292 (let ((#{tmp 28658}# (list #{x 28656}# #{y 28657}#)))
25293 (let ((#{tmp 28659}#
25294 ($sc-dispatch #{tmp 28658}# '(any any))))
25297 (lambda (#{x 28661}# #{y 28662}#)
25298 (let ((#{tmp 28664}#
25301 '(#(atom "quote") any))))
25304 (lambda (#{dy 28668}#)
25305 (let ((#{tmp 28670}#
25308 '(#(atom "quote") any))))
25311 (lambda (#{dx 28674}#)
25312 (list '#(syntax-object
25323 #(ribcage () () ())
25327 #("l-*-28185" "l-*-28186"))
25328 #(ribcage () () ())
25329 #(ribcage () () ())
25333 #("l-*-28180" "l-*-28181"))
25356 (cons #{dx 28674}# #{dy 28668}#)))
25358 (if (null? #{dy 28668}#)
25359 (list '#(syntax-object
25370 #(ribcage () () ())
25374 #("l-*-28185" "l-*-28186"))
25375 #(ribcage () () ())
25376 #(ribcage () () ())
25380 #("l-*-28180" "l-*-28181"))
25404 (list '#(syntax-object
25415 #(ribcage () () ())
25419 #("l-*-28185" "l-*-28186"))
25420 #(ribcage () () ())
25421 #(ribcage () () ())
25425 #("l-*-28180" "l-*-28181"))
25451 (let ((#{tmp 28679}#
25454 '(#(atom "list") . any))))
25457 (lambda (#{stuff 28683}#)
25458 (cons '#(syntax-object
25465 #(ribcage () () ())
25469 #("l-*-28185" "l-*-28186"))
25470 #(ribcage () () ())
25471 #(ribcage () () ())
25475 #("l-*-28180" "l-*-28181"))
25498 (cons #{x 28661}# #{stuff 28683}#)))
25500 (let ((#{tmp 28684}#
25503 '(#(atom "list*") . any))))
25506 (lambda (#{stuff 28688}#)
25507 (cons '#(syntax-object
25514 #(ribcage () () ())
25518 #("l-*-28185" "l-*-28186"))
25519 #(ribcage () () ())
25520 #(ribcage () () ())
25524 #("l-*-28180" "l-*-28181"))
25547 (cons #{x 28661}# #{stuff 28688}#)))
25549 (list '#(syntax-object
25556 #(ribcage () () ())
25560 #("l-*-28185" "l-*-28186"))
25561 #(ribcage () () ())
25562 #(ribcage () () ())
25566 #("l-*-28180" "l-*-28181"))
25590 #{y 28662}#))))))))
25594 "source expression failed to match any pattern"
25595 #{tmp 28658}#))))))
25596 (#{quasiappend 28378}#
25597 (lambda (#{x 28699}# #{y 28700}#)
25598 (let ((#{tmp 28702}#
25599 ($sc-dispatch #{y 28700}# '(#(atom "quote") ()))))
25603 (if (null? #{x 28699}#)
25607 #(ribcage () () ())
25611 #("l-*-28209" "l-*-28210"))
25619 ((top) (top) (top) (top) (top) (top) (top))
25629 (if (null? (cdr #{x 28699}#))
25631 (let ((#{tmp 28707}#
25632 ($sc-dispatch #{x 28699}# 'each-any)))
25635 (lambda (#{p 28711}#)
25636 (cons '#(syntax-object
25639 #(ribcage () () ())
25644 #(ribcage () () ())
25648 #("l-*-28209" "l-*-28210"))
25675 "source expression failed to match any pattern"
25678 (if (null? #{x 28699}#)
25680 (let ((#{tmp 28719}# (list #{x 28699}# #{y 28700}#)))
25681 (let ((#{tmp 28720}#
25682 ($sc-dispatch #{tmp 28719}# '(each-any any))))
25685 (lambda (#{p 28722}# #{y 28723}#)
25686 (cons '#(syntax-object
25689 #(ribcage () () ())
25693 #("l-*-28232" "l-*-28233"))
25694 #(ribcage #(_) #((top)) #("l-*-28224"))
25695 #(ribcage () () ())
25699 #("l-*-28209" "l-*-28210"))
25722 (append #{p 28722}# (list #{y 28723}#))))
25726 "source expression failed to match any pattern"
25727 #{tmp 28719}#)))))))))
25728 (#{quasilist* 28379}#
25729 (lambda (#{x 28727}# #{y 28728}#)
25732 (lambda (#{x 28818}#)
25733 (if (null? #{x 28818}#)
25735 (#{quasicons 28377}#
25737 (#{f 28729}# (cdr #{x 28818}#)))))))
25738 (#{f 28729}# #{x 28727}#))))
25740 (lambda (#{x 28821}#)
25741 (let ((#{tmp 28823}#
25742 ($sc-dispatch #{x 28821}# '(#(atom "quote") any))))
25745 (lambda (#{x 28827}#)
25746 (list '#(syntax-object
25749 #(ribcage #(x) #((top)) #("l-*-28299"))
25750 #(ribcage () () ())
25751 #(ribcage #(x) #((top)) #("l-*-28296"))
25759 ((top) (top) (top) (top) (top) (top) (top))
25770 (let ((#{tmp 28828}#
25773 '(#(atom "list") . each-any))))
25776 (lambda (#{x 28832}#)
25777 (let ((#{tmp 28833}# (map #{emit 28381}# #{x 28832}#)))
25778 (let ((#{tmp 28834}#
25779 ($sc-dispatch #{tmp 28833}# 'each-any)))
25782 (lambda (#{t-28304 28836}#)
25783 (cons '#(syntax-object
25786 #(ribcage () () ())
25795 #(ribcage () () ())
25822 #{t-28304 28836}#))
25826 "source expression failed to match any pattern"
25829 (let ((#{tmp 28837}#
25832 '(#(atom "list*") . #(each+ any (any) ())))))
25835 (lambda (#{x 28841}# #{y 28842}#)
25838 (lambda (#{x* 28846}#)
25839 (if (null? #{x* 28846}#)
25840 (#{emit 28381}# #{y 28842}#)
25841 (let ((#{tmp 28847}#
25842 (list (#{emit 28381}#
25843 (car #{x* 28846}#))
25845 (cdr #{x* 28846}#)))))
25846 (let ((#{tmp 28848}#
25852 (lambda (#{t-28324 28850}#
25854 (list '#(syntax-object
25857 #(ribcage () () ())
25864 #(ribcage () () ())
25875 #(ribcage () () ())
25903 #{t-28323 28851}#))
25907 "source expression failed to match any pattern"
25908 #{tmp 28847}#))))))))
25909 (#{f 28843}# #{x 28841}#)))
25911 (let ((#{tmp 28852}#
25914 '(#(atom "append") . each-any))))
25917 (lambda (#{x 28856}#)
25918 (let ((#{tmp 28857}#
25919 (map #{emit 28381}# #{x 28856}#)))
25920 (let ((#{tmp 28858}#
25926 (lambda (#{t-28336 28860}#)
25927 (cons '#(syntax-object
25930 #(ribcage () () ())
25939 #(ribcage () () ())
25966 #{t-28336 28860}#))
25970 "source expression failed to match any pattern"
25973 (let ((#{tmp 28861}#
25976 '(#(atom "vector") . each-any))))
25979 (lambda (#{x 28865}#)
25980 (let ((#{tmp 28866}#
25981 (map #{emit 28381}# #{x 28865}#)))
25982 (let ((#{tmp 28867}#
25988 (lambda (#{t-28348 28869}#)
25989 (cons '#(syntax-object
25992 #(ribcage () () ())
26001 #(ribcage () () ())
26028 #{t-28348 28869}#))
26032 "source expression failed to match any pattern"
26035 (let ((#{tmp 28870}#
26038 '(#(atom "list->vector") any))))
26041 (lambda (#{x 28874}#)
26042 (let ((#{tmp 28875}#
26043 (#{emit 28381}# #{x 28874}#)))
26044 (list '#(syntax-object
26047 #(ribcage () () ())
26056 #(ribcage () () ())
26085 (let ((#{tmp 28878}#
26088 '(#(atom "value") any))))
26091 (lambda (#{x 28882}#) #{x 28882}#)
26095 "source expression failed to match any pattern"
26096 #{x 28821}#))))))))))))))))))
26097 (lambda (#{x 28382}#)
26098 (let ((#{tmp 28384}#
26099 ($sc-dispatch #{x 28382}# '(_ any))))
26102 (lambda (#{e 28388}#)
26103 (#{emit 28381}# (#{quasi 28375}# #{e 28388}# 0)))
26107 "source expression failed to match any pattern"
26111 (make-syntax-transformer
26114 (lambda (#{x 28937}#)
26116 ((#{read-file 28938}#
26117 (lambda (#{fn 29047}# #{k 29048}#)
26118 (let ((#{p 29049}# (open-input-file #{fn 29047}#)))
26121 (lambda (#{x 29104}# #{result 29105}#)
26122 (if (eof-object? #{x 29104}#)
26124 (close-input-port #{p 29049}#)
26125 (reverse #{result 29105}#))
26128 (cons (datum->syntax #{k 29048}# #{x 29104}#)
26129 #{result 29105}#))))))
26130 (#{f 29050}# (read #{p 29049}#) '()))))))
26131 (let ((#{tmp 28940}#
26132 ($sc-dispatch #{x 28937}# '(any any))))
26135 (lambda (#{k 28944}# #{filename 28945}#)
26136 (let ((#{fn 28946}# (syntax->datum #{filename 28945}#)))
26137 (let ((#{tmp 28947}#
26138 (#{read-file 28938}#
26140 #{filename 28945}#)))
26141 (let ((#{tmp 28948}#
26142 ($sc-dispatch #{tmp 28947}# 'each-any)))
26145 (lambda (#{exp 28966}#)
26146 (cons '#(syntax-object
26149 #(ribcage () () ())
26150 #(ribcage #(exp) #((top)) #("l-*-28934"))
26151 #(ribcage () () ())
26152 #(ribcage () () ())
26153 #(ribcage #(fn) #((top)) #("l-*-28929"))
26157 #("l-*-28925" "l-*-28926"))
26162 #(ribcage #(x) #((top)) #("l-*-28908")))
26168 "source expression failed to match any pattern"
26169 #{tmp 28947}#))))))
26173 "source expression failed to match any pattern"
26176 (define include-from-path
26177 (make-syntax-transformer
26180 (lambda (#{x 29124}#)
26181 (let ((#{tmp 29126}#
26182 ($sc-dispatch #{x 29124}# '(any any))))
26185 (lambda (#{k 29130}# #{filename 29131}#)
26186 (let ((#{fn 29132}# (syntax->datum #{filename 29131}#)))
26187 (let ((#{tmp 29133}#
26190 (let ((#{t 29136}# (%search-load-path #{fn 29132}#)))
26195 "file not found in path"
26197 #{filename 29131}#))))))
26198 (list '#(syntax-object
26201 #(ribcage () () ())
26202 #(ribcage #(fn) #((top)) #("l-*-29118"))
26203 #(ribcage () () ())
26204 #(ribcage () () ())
26205 #(ribcage #(fn) #((top)) #("l-*-29114"))
26209 #("l-*-29110" "l-*-29111"))
26210 #(ribcage () () ())
26211 #(ribcage #(x) #((top)) #("l-*-29107")))
26217 "source expression failed to match any pattern"
26221 (make-syntax-transformer
26224 (lambda (#{x 29145}#)
26227 "expression not valid outside of quasiquote"
26230 (define unquote-splicing
26231 (make-syntax-transformer
26234 (lambda (#{x 29148}#)
26237 "expression not valid outside of quasiquote"
26241 (make-syntax-transformer
26244 (lambda (#{x 29204}#)
26245 (let ((#{tmp 29206}#
26248 '(_ any any . each-any))))
26251 (lambda (#{e 29210}# #{m1 29211}# #{m2 29212}#)
26252 (let ((#{tmp 29213}#
26255 (lambda (#{clause 29258}# #{clauses 29259}#)
26256 (if (null? #{clauses 29259}#)
26257 (let ((#{tmp 29261}#
26264 #(ribcage () () ())
26266 #(f clause clauses)
26267 #((top) (top) (top))
26273 #((top) (top) (top))
26277 #(ribcage () () ())
26288 (lambda (#{e1 29265}# #{e2 29266}#)
26289 (cons '#(syntax-object
26295 #("l-*-29172" "l-*-29173"))
26296 #(ribcage () () ())
26298 #(f clause clauses)
26299 #((top) (top) (top))
26305 #((top) (top) (top))
26309 #(ribcage () () ())
26315 (cons #{e1 29265}# #{e2 29266}#)))
26317 (let ((#{tmp 29267}#
26320 '(each-any any . each-any))))
26323 (lambda (#{k 29271}#
26326 (list '#(syntax-object
26331 #((top) (top) (top))
26335 #(ribcage () () ())
26337 #(f clause clauses)
26338 #((top) (top) (top))
26344 #((top) (top) (top))
26348 #(ribcage () () ())
26354 (list '#(syntax-object
26365 #(ribcage () () ())
26384 #(ribcage () () ())
26401 #(ribcage () () ())
26420 #(ribcage () () ())
26426 (list '#(syntax-object
26470 (cons '#(syntax-object
26481 #(ribcage () () ())
26500 #(ribcage () () ())
26513 #{clause 29258}#)))))
26514 (let ((#{tmp 29281}#
26516 (car #{clauses 29259}#)
26517 (cdr #{clauses 29259}#))))
26518 (let ((#{tmp 29284}#
26521 '(each-any any . each-any))))
26524 (lambda (#{k 29288}#
26527 (list '#(syntax-object
26532 #((top) (top) (top))
26536 #(ribcage () () ())
26541 #(ribcage () () ())
26543 #(f clause clauses)
26544 #((top) (top) (top))
26550 #((top) (top) (top))
26554 #(ribcage () () ())
26560 (list '#(syntax-object
26565 #((top) (top) (top))
26569 #(ribcage () () ())
26574 #(ribcage () () ())
26576 #(f clause clauses)
26577 #((top) (top) (top))
26583 #((top) (top) (top))
26587 #(ribcage () () ())
26598 #((top) (top) (top))
26602 #(ribcage () () ())
26607 #(ribcage () () ())
26609 #(f clause clauses)
26610 #((top) (top) (top))
26616 #((top) (top) (top))
26620 #(ribcage () () ())
26626 (list '#(syntax-object
26677 (cons '#(syntax-object
26682 #((top) (top) (top))
26686 #(ribcage () () ())
26691 #(ribcage () () ())
26693 #(f clause clauses)
26694 #((top) (top) (top))
26700 #((top) (top) (top))
26704 #(ribcage () () ())
26718 #{clause 29258}#))))))))
26719 (#{f 29255}# #{m1 29211}# #{m2 29212}#))))
26720 (let ((#{body 29214}# #{tmp 29213}#))
26721 (list '#(syntax-object
26724 #(ribcage () () ())
26725 #(ribcage #(body) #((top)) #("l-*-29161"))
26728 #((top) (top) (top))
26729 #("l-*-29153" "l-*-29154" "l-*-29155"))
26730 #(ribcage () () ())
26731 #(ribcage #(x) #((top)) #("l-*-29150")))
26733 (list (list '#(syntax-object
26736 #(ribcage () () ())
26743 #((top) (top) (top))
26747 #(ribcage () () ())
26758 "source expression failed to match any pattern"
26761 (define make-variable-transformer
26762 (lambda (#{proc 29308}#)
26763 (if (procedure? #{proc 29308}#)
26766 (lambda (#{x 29315}#)
26767 (#{proc 29308}# #{x 29315}#))))
26769 (set-procedure-property!
26771 'variable-transformer
26774 (error "variable transformer not a procedure"
26777 (define identifier-syntax
26778 (make-syntax-transformer
26781 (lambda (#{x 29347}#)
26782 (let ((#{tmp 29349}#
26783 ($sc-dispatch #{x 29347}# '(_ any))))
26786 (lambda (#{e 29353}#)
26787 (list '#(syntax-object
26790 #(ribcage #(e) #((top)) #("l-*-29322"))
26791 #(ribcage () () ())
26792 #(ribcage #(x) #((top)) #("l-*-29319")))
26797 #(ribcage #(e) #((top)) #("l-*-29322"))
26798 #(ribcage () () ())
26799 #(ribcage #(x) #((top)) #("l-*-29319")))
26801 '#((#(syntax-object
26804 #(ribcage #(e) #((top)) #("l-*-29322"))
26805 #(ribcage () () ())
26806 #(ribcage #(x) #((top)) #("l-*-29319")))
26812 #(ribcage #(e) #((top)) #("l-*-29322"))
26813 #(ribcage () () ())
26814 #(ribcage #(x) #((top)) #("l-*-29319")))
26816 (list '#(syntax-object
26819 #(ribcage #(e) #((top)) #("l-*-29322"))
26820 #(ribcage () () ())
26821 #(ribcage #(x) #((top)) #("l-*-29319")))
26826 #(ribcage #(e) #((top)) #("l-*-29322"))
26827 #(ribcage () () ())
26828 #(ribcage #(x) #((top)) #("l-*-29319")))
26831 (list '#(syntax-object
26834 #(ribcage #(e) #((top)) #("l-*-29322"))
26835 #(ribcage () () ())
26836 #(ribcage #(x) #((top)) #("l-*-29319")))
26841 #(ribcage #(e) #((top)) #("l-*-29322"))
26842 #(ribcage () () ())
26843 #(ribcage #(x) #((top)) #("l-*-29319")))
26848 #(ribcage #(e) #((top)) #("l-*-29322"))
26849 #(ribcage () () ())
26850 #(ribcage #(x) #((top)) #("l-*-29319")))
26855 #(ribcage #(e) #((top)) #("l-*-29322"))
26856 #(ribcage () () ())
26857 #(ribcage #(x) #((top)) #("l-*-29319")))
26859 (list '#(syntax-object
26866 #(ribcage () () ())
26873 (list '(#(syntax-object
26876 #(ribcage #(e) #((top)) #("l-*-29322"))
26877 #(ribcage () () ())
26878 #(ribcage #(x) #((top)) #("l-*-29319")))
26883 #(ribcage #(e) #((top)) #("l-*-29322"))
26884 #(ribcage () () ())
26885 #(ribcage #(x) #((top)) #("l-*-29319")))
26890 #(ribcage #(e) #((top)) #("l-*-29322"))
26891 #(ribcage () () ())
26892 #(ribcage #(x) #((top)) #("l-*-29319")))
26894 (list '#(syntax-object
26901 #(ribcage () () ())
26915 #(ribcage () () ())
26928 #(ribcage () () ())
26933 (hygiene guile)))))))))
26935 (let ((#{tmp 29354}#
26943 #(ribcage () () ())
26944 #(ribcage #(x) #((top)) #("l-*-29319")))
26949 (if (if #{tmp 29354}#
26951 (lambda (#{id 29358}#
26956 (if (identifier? #{id 29358}#)
26957 (identifier? #{var 29360}#)
26962 (lambda (#{id 29363}#
26967 (list '#(syntax-object
26968 make-variable-transformer
26971 #(id exp1 var val exp2)
26972 #((top) (top) (top) (top) (top))
26978 #(ribcage () () ())
26979 #(ribcage #(x) #((top)) #("l-*-29319")))
26981 (list '#(syntax-object
26985 #(id exp1 var val exp2)
26986 #((top) (top) (top) (top) (top))
26992 #(ribcage () () ())
26993 #(ribcage #(x) #((top)) #("l-*-29319")))
26999 #(id exp1 var val exp2)
27000 #((top) (top) (top) (top) (top))
27006 #(ribcage () () ())
27007 #(ribcage #(x) #((top)) #("l-*-29319")))
27009 '#((#(syntax-object
27013 #(id exp1 var val exp2)
27014 #((top) (top) (top) (top) (top))
27020 #(ribcage () () ())
27021 #(ribcage #(x) #((top)) #("l-*-29319")))
27025 variable-transformer
27028 #(id exp1 var val exp2)
27029 #((top) (top) (top) (top) (top))
27035 #(ribcage () () ())
27036 #(ribcage #(x) #((top)) #("l-*-29319")))
27038 (list '#(syntax-object
27042 #(id exp1 var val exp2)
27043 #((top) (top) (top) (top) (top))
27049 #(ribcage () () ())
27059 #(id exp1 var val exp2)
27060 #((top) (top) (top) (top) (top))
27066 #(ribcage () () ())
27076 #(id exp1 var val exp2)
27077 #((top) (top) (top) (top) (top))
27083 #(ribcage () () ())
27089 (list (list '#(syntax-object
27093 #(id exp1 var val exp2)
27104 #(ribcage () () ())
27112 (list '#(syntax-object
27116 #(id exp1 var val exp2)
27127 #(ribcage () () ())
27134 (list (cons #{id 29363}#
27139 #(id exp1 var val exp2)
27150 #(ribcage () () ())
27160 #(id exp1 var val exp2)
27171 #(ribcage () () ())
27177 (list '#(syntax-object
27181 #(id exp1 var val exp2)
27192 #(ribcage () () ())
27198 (cons #{exp1 29364}#
27218 #(ribcage () () ())
27243 #(ribcage () () ())
27248 (hygiene guile))))))
27250 (list '#(syntax-object
27254 #(id exp1 var val exp2)
27265 #(ribcage () () ())
27271 (list '#(syntax-object
27290 #(ribcage () () ())
27297 (list '#(syntax-object
27301 #(id exp1 var val exp2)
27312 #(ribcage () () ())
27318 #{exp1 29364}#))))))
27322 "source expression failed to match any pattern"
27323 #{x 29347}#))))))))
27326 (make-syntax-transformer
27329 (lambda (#{x 29399}#)
27330 (let ((#{tmp 29401}#
27333 '(_ (any . any) any . each-any))))
27336 (lambda (#{id 29405}#
27340 (list '#(syntax-object
27345 #((top) (top) (top) (top))
27350 #(ribcage () () ())
27351 #(ribcage #(x) #((top)) #("l-*-29378")))
27354 (cons '#(syntax-object
27359 #((top) (top) (top) (top))
27364 #(ribcage () () ())
27365 #(ribcage #(x) #((top)) #("l-*-29378")))
27367 (cons #{args 29406}#
27368 (cons #{b0 29407}# #{b1 29408}#)))))
27370 (let ((#{tmp 29409}#
27371 ($sc-dispatch #{x 29399}# '(_ any any))))
27372 (if (if #{tmp 29409}#
27374 (lambda (#{id 29413}# #{val 29414}#)
27382 #("l-*-29391" "l-*-29392"))
27383 #(ribcage () () ())
27384 #(ribcage #(x) #((top)) #("l-*-29378")))
27389 (lambda (#{id 29415}# #{val 29416}#)
27390 (list '#(syntax-object
27396 #("l-*-29395" "l-*-29396"))
27397 #(ribcage () () ())
27398 #(ribcage #(x) #((top)) #("l-*-29378")))
27405 "source expression failed to match any pattern"
27406 #{x 29399}#))))))))