1 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
5 ((#{top-level-eval-hook 4370}#
6 (lambda (#{x 35759}# #{mod 35760}#)
7 (primitive-eval #{x 35759}#)))
8 (#{maybe-name-value! 4375}#
9 (lambda (#{name 18991}# #{val 18992}#)
10 (if (if (struct? #{val 18992}#)
11 (eq? (struct-vtable #{val 18992}#)
12 (vector-ref %expanded-vtables 14))
14 (let ((#{meta 18999}# (struct-ref #{val 18992}# 1)))
15 (if (not (assq 'name #{meta 18999}#))
17 (cons (cons 'name #{name 18991}#) #{meta 18999}#)))
18 (struct-set! #{val 18992}# 1 #{v 19004}#)))))))
20 (lambda (#{source 18736}#
24 (vector-ref %expanded-vtables 11)
28 (#{build-conditional 4378}#
29 (lambda (#{source 18744}#
34 (vector-ref %expanded-vtables 10)
39 (#{build-dynlet 4379}#
40 (lambda (#{source 18754}#
45 (vector-ref %expanded-vtables 18)
50 (#{build-lexical-reference 4380}#
51 (lambda (#{type 35761}#
56 (vector-ref %expanded-vtables 3)
60 (#{build-lexical-assignment 4381}#
61 (lambda (#{source 18764}#
66 (if (if (struct? #{exp 18767}#)
67 (eq? (struct-vtable #{exp 18767}#)
68 (vector-ref %expanded-vtables 14))
70 (let ((#{meta 18783}# (struct-ref #{exp 18767}# 1)))
71 (if (not (assq 'name #{meta 18783}#))
73 (cons (cons 'name #{name 18765}#) #{meta 18783}#)))
74 (struct-set! #{exp 18767}# 1 #{v 18790}#)))))
76 (vector-ref %expanded-vtables 4)
81 (#{analyze-variable 4382}#
82 (lambda (#{mod 35770}#
86 (if (not #{mod 35770}#)
87 (#{bare-cont 35773}# #{var 35771}#)
88 (let ((#{kind 35774}# (car #{mod 35770}#))
89 (#{mod 35775}# (cdr #{mod 35770}#)))
90 (if (eqv? #{kind 35774}# 'public)
91 (#{modref-cont 35772}#
95 (if (eqv? #{kind 35774}# 'private)
98 (module-name (current-module))))
99 (#{modref-cont 35772}#
103 (#{bare-cont 35773}# #{var 35771}#))
104 (if (eqv? #{kind 35774}# 'bare)
105 (#{bare-cont 35773}# #{var 35771}#)
106 (if (eqv? #{kind 35774}# 'hygiene)
109 (module-name (current-module))))
111 (resolve-module #{mod 35775}#)
114 (#{modref-cont 35772}#
118 (#{bare-cont 35773}# #{var 35771}#))
123 #{mod 35775}#)))))))))
124 (#{build-global-reference 4383}#
125 (lambda (#{source 35790}# #{var 35791}# #{mod 35792}#)
126 (#{analyze-variable 4382}#
129 (lambda (#{mod 35795}# #{var 35796}# #{public? 35797}#)
131 (vector-ref %expanded-vtables 5)
136 (lambda (#{var 35804}#)
138 (vector-ref %expanded-vtables 7)
141 (#{build-global-assignment 4384}#
142 (lambda (#{source 18799}#
147 (if (if (struct? #{exp 18801}#)
148 (eq? (struct-vtable #{exp 18801}#)
149 (vector-ref %expanded-vtables 14))
151 (let ((#{meta 18818}# (struct-ref #{exp 18801}# 1)))
152 (if (not (assq 'name #{meta 18818}#))
154 (cons (cons 'name #{var 18800}#) #{meta 18818}#)))
155 (struct-set! #{exp 18801}# 1 #{v 18825}#)))))
156 (#{analyze-variable 4382}#
159 (lambda (#{mod 18830}# #{var 18831}# #{public? 18832}#)
161 (vector-ref %expanded-vtables 6)
167 (lambda (#{var 18840}#)
169 (vector-ref %expanded-vtables 8)
173 (#{build-global-definition 4385}#
174 (lambda (#{source 35809}# #{var 35810}# #{exp 35811}#)
176 (if (if (struct? #{exp 35811}#)
177 (eq? (struct-vtable #{exp 35811}#)
178 (vector-ref %expanded-vtables 14))
180 (let ((#{meta 35827}# (struct-ref #{exp 35811}# 1)))
181 (if (not (assq 'name #{meta 35827}#))
183 (cons (cons 'name #{var 35810}#) #{meta 35827}#)))
184 (struct-set! #{exp 35811}# 1 #{v 35834}#)))))
186 (vector-ref %expanded-vtables 9)
190 (#{build-simple-lambda 4386}#
191 (lambda (#{src 18846}#
197 (let ((#{body 18857}#
199 (vector-ref %expanded-vtables 15)
210 (vector-ref %expanded-vtables 14)
214 (#{build-primcall 4389}#
215 (lambda (#{src 18869}# #{name 18870}# #{args 18871}#)
217 (vector-ref %expanded-vtables 12)
221 (#{build-sequence 4392}#
222 (lambda (#{src 35842}# #{exps 35843}#)
223 (if (null? (cdr #{exps 35843}#))
225 (let ((#{head 35847}# (car #{exps 35843}#))
227 (#{build-sequence 4392}# #f (cdr #{exps 35843}#))))
229 (vector-ref %expanded-vtables 13)
233 (#{build-named-let 4394}#
234 (lambda (#{src 18877}#
239 (let ((#{f 18882}# (car #{vars 18879}#))
240 (#{f-name 18883}# (car #{ids 18878}#))
241 (#{vars 18884}# (cdr #{vars 18879}#))
242 (#{ids 18885}# (cdr #{ids 18878}#)))
243 (let ((#{proc 18886}#
244 (let ((#{body 18906}#
246 (vector-ref %expanded-vtables 15)
257 (vector-ref %expanded-vtables 14)
262 (if (if (struct? #{proc 18886}#)
263 (eq? (struct-vtable #{proc 18886}#)
264 (vector-ref %expanded-vtables 14))
266 (let ((#{meta 18930}# (struct-ref #{proc 18886}# 1)))
267 (if (not (assq 'name #{meta 18930}#))
269 (cons (cons 'name #{f-name 18883}#)
271 (struct-set! #{proc 18886}# 1 #{v 18937}#)))))
273 #{maybe-name-value! 4375}#
276 (let ((#{names 18961}# (list #{f-name 18883}#))
277 (#{gensyms 18962}# (list #{f 18882}#))
278 (#{vals 18963}# (list #{proc 18886}#))
280 (let ((#{fun-exp 18968}#
282 (vector-ref %expanded-vtables 3)
287 (vector-ref %expanded-vtables 11)
290 #{val-exps 18880}#))))
292 (vector-ref %expanded-vtables 17)
298 #{body 18964}#)))))))
299 (#{build-letrec 4395}#
300 (lambda (#{src 18984}#
306 (if (null? #{vars 18987}#)
310 #{maybe-name-value! 4375}#
314 (vector-ref %expanded-vtables 17)
320 #{body-exp 18989}#)))))
321 (#{source-annotation 4404}#
322 (lambda (#{x 19015}#)
323 (if (if (vector? #{x 19015}#)
324 (if (= (vector-length #{x 19015}#) 4)
325 (eq? (vector-ref #{x 19015}# 0) 'syntax-object)
328 (#{source-annotation 4404}#
329 (vector-ref #{x 19015}# 1))
330 (if (pair? #{x 19015}#)
331 (let ((#{props 19030}# (source-properties #{x 19015}#)))
332 (if (pair? #{props 19030}#) #{props 19030}# #f))
335 (lambda (#{labels 19032}# #{bindings 19033}# #{r 19034}#)
336 (if (null? #{labels 19032}#)
339 (cdr #{labels 19032}#)
340 (cdr #{bindings 19033}#)
341 (cons (cons (car #{labels 19032}#)
342 (car #{bindings 19033}#))
344 (#{extend-var-env 4406}#
345 (lambda (#{labels 19035}# #{vars 19036}# #{r 19037}#)
346 (if (null? #{labels 19035}#)
348 (#{extend-var-env 4406}#
349 (cdr #{labels 19035}#)
351 (cons (cons (car #{labels 19035}#)
352 (cons 'lexical (car #{vars 19036}#)))
354 (#{macros-only-env 4407}#
355 (lambda (#{r 19038}#)
356 (if (null? #{r 19038}#)
358 (let ((#{a 19039}# (car #{r 19038}#)))
359 (if (let ((#{t 19042}# (car (cdr #{a 19039}#))))
360 (if (eq? #{t 19042}# 'macro)
362 (eq? #{t 19042}# 'syntax-parameter)))
364 (#{macros-only-env 4407}# (cdr #{r 19038}#)))
365 (#{macros-only-env 4407}# (cdr #{r 19038}#)))))))
366 (#{global-extend 4408}#
367 (lambda (#{type 19044}# #{sym 19045}# #{val 19046}#)
371 (make-syntax-transformer
376 (lambda (#{x 11968}#)
377 (if (symbol? #{x 11968}#)
379 (if (if (vector? #{x 11968}#)
380 (if (= (vector-length #{x 11968}#) 4)
381 (eq? (vector-ref #{x 11968}# 0) 'syntax-object)
384 (symbol? (vector-ref #{x 11968}# 1))
387 (lambda (#{ls 19056}#)
388 (if (null? #{ls 19056}#)
390 (cons (symbol->string (gensym "i"))
391 (#{gen-labels 4413}# (cdr #{ls 19056}#))))))
392 (#{make-binding-wrap 4424}#
393 (lambda (#{ids 19060}# #{labels 19061}# #{w 19062}#)
394 (if (null? #{ids 19060}#)
396 (cons (car #{w 19062}#)
397 (cons (let ((#{labelvec 19063}#
398 (list->vector #{labels 19061}#)))
399 (let ((#{n 19064}# (vector-length #{labelvec 19063}#)))
400 (let ((#{symnamevec 19065}# (make-vector #{n 19064}#))
401 (#{marksvec 19066}# (make-vector #{n 19064}#)))
405 (lambda (#{ids 19266}# #{i 19267}#)
406 (if (not (null? #{ids 19266}#))
410 (car #{ids 19266}#)))
411 (if (if (vector? #{x 19270}#)
412 (if (= (vector-length
422 (vector-ref #{x 19270}# 1)
429 (if (null? #{m2 19287}#)
436 (car #{w 19062}#)))))
437 (lambda (#{symname 19307}#
450 (#{1+}# #{i 19267}#)))))))))
451 (#{f 19067}# #{ids 19060}# 0))
456 #{labelvec 19063}#)))))
457 (cdr #{w 19062}#))))))
458 (#{same-marks? 4428}#
459 (lambda (#{x 35849}# #{y 35850}#)
460 (if (eq? #{x 35849}# #{y 35850}#)
461 (eq? #{x 35849}# #{y 35850}#)
462 (if (not (null? #{x 35849}#))
463 (if (not (null? #{y 35850}#))
464 (if (eq? (car #{x 35849}#) (car #{y 35850}#))
465 (#{same-marks? 4428}#
471 (#{id-var-name 4429}#
472 (lambda (#{id 35858}# #{w 35859}# #{mod 35860}#)
475 (lambda (#{sym 35927}#
479 (if (null? #{subst 35928}#)
480 (values #f #{marks 35929}#)
481 (let ((#{fst 35931}# (car #{subst 35928}#)))
482 (if (eq? #{fst 35931}# 'shift)
485 (cdr #{subst 35928}#)
486 (cdr #{marks 35929}#)
488 (let ((#{symnames 35933}# (vector-ref #{fst 35931}# 1)))
489 (if (vector? #{symnames 35933}#)
490 (#{search-vector-rib 35863}#
497 (#{search-list-rib 35862}#
503 #{mod 35930}#))))))))
504 (#{search-list-rib 35862}#
505 (lambda (#{sym 36108}#
513 (lambda (#{symnames 36117}# #{i 36118}#)
514 (if (null? #{symnames 36117}#)
517 (cdr #{subst 36109}#)
520 (if (if (eq? (car #{symnames 36117}#) #{sym 36108}#)
521 (#{same-marks? 4428}#
524 (vector-ref #{ribcage 36112}# 2)
529 (vector-ref #{ribcage 36112}# 3)
531 (if (pair? #{n 36264}#)
532 (if (equal? #{mod 36113}# (car #{n 36264}#))
533 (values (cdr #{n 36264}#) #{marks 36110}#)
535 (cdr #{symnames 36117}#)
536 (#{1+}# #{i 36118}#)))
537 (values #{n 36264}# #{marks 36110}#)))
539 (cdr #{symnames 36117}#)
540 (#{1+}# #{i 36118}#)))))))
541 (#{f 36114}# #{symnames 36111}# 0))))
542 (#{search-vector-rib 35863}#
543 (lambda (#{sym 36269}#
549 (let ((#{n 36275}# (vector-length #{symnames 36272}#)))
552 (lambda (#{i 36279}#)
553 (if (= #{i 36279}# #{n 36275}#)
556 (cdr #{subst 36270}#)
559 (if (if (eq? (vector-ref
563 (#{same-marks? 4428}#
566 (vector-ref #{ribcage 36273}# 2)
571 (vector-ref #{ribcage 36273}# 3)
573 (if (pair? #{n 36426}#)
574 (if (equal? #{mod 36274}# (car #{n 36426}#))
575 (values (cdr #{n 36426}#) #{marks 36271}#)
576 (#{f 36276}# (#{1+}# #{i 36279}#)))
577 (values #{n 36426}# #{marks 36271}#)))
578 (#{f 36276}# (#{1+}# #{i 36279}#)))))))
580 (if (symbol? #{id 35858}#)
587 (if #{t 35864}# #{t 35864}# #{id 35858}#))
588 (if (if (vector? #{id 35858}#)
589 (if (= (vector-length #{id 35858}#) 4)
590 (eq? (vector-ref #{id 35858}# 0) 'syntax-object)
593 (let ((#{id 35879}# (vector-ref #{id 35858}# 1))
594 (#{w1 35880}# (vector-ref #{id 35858}# 2))
595 (#{mod 35881}# (vector-ref #{id 35858}# 3)))
596 (let ((#{marks 35882}#
597 (let ((#{m1 35892}# (car #{w 35859}#))
598 (#{m2 35893}# (car #{w1 35880}#)))
599 (if (null? #{m2 35893}#)
601 (append #{m1 35892}# #{m2 35893}#)))))
609 (lambda (#{new-id 35913}# #{marks 35914}#)
618 (if #{t 35922}# #{t 35922}# #{id 35879}#)))))))
623 (#{resolve-identifier 4430}#
624 (lambda (#{id 19315}#
628 #{resolve-syntax-parameters? 19319}#)
630 (#{id-var-name 4429}#
634 (if (if (vector? #{n 19323}#)
635 (if (= (vector-length #{n 19323}#) 4)
636 (eq? (vector-ref #{n 19323}# 0) 'syntax-object)
639 (#{resolve-identifier 4430}#
644 #{resolve-syntax-parameters? 19319}#)
645 (if (symbol? #{n 19323}#)
647 (if (if (vector? #{id 19315}#)
648 (if (= (vector-length #{id 19315}#) 4)
649 (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
652 (vector-ref #{id 19315}# 3)
658 (if (if (not #{mod 19338}#)
661 (warn "module system is booted, we should have a module"
671 (if (variable-bound? #{v 19392}#)
675 (if (macro? #{val 19401}#)
686 (if #{t 19343}# #{t 19343}# '(global)))))
687 (if (if #{resolve-syntax-parameters? 19319}#
688 (eq? (car #{b 19342}#) 'syntax-parameter)
691 (assq-ref #{r 19317}# (cdr #{b 19342}#))))
694 (cons 'macro (car (cdr #{b 19342}#)))))
696 (if (eq? (car #{b 19339}#) 'global)
697 (values 'global #{n 19323}# #{mod 19338}#)
702 (if (string? #{n 19323}#)
704 (if (if (vector? #{id 19315}#)
705 (if (= (vector-length #{id 19315}#) 4)
706 (eq? (vector-ref #{id 19315}# 0) 'syntax-object)
709 (vector-ref #{id 19315}# 3)
714 (assq-ref #{r 19317}# #{n 19323}#)))
717 '(displaced-lexical)))))
718 (if (if #{resolve-syntax-parameters? 19319}#
719 (eq? (car #{b 19420}#) 'syntax-parameter)
722 (assq-ref #{r 19317}# (cdr #{b 19420}#))))
725 (cons 'macro (car (cdr #{b 19420}#)))))
731 (error "unexpected id-var-name"
736 (lambda (#{i 19435}# #{j 19436}#)
738 (if (if (vector? #{i 19435}#)
739 (if (= (vector-length #{i 19435}#) 4)
740 (eq? (vector-ref #{i 19435}# 0) 'syntax-object)
743 (vector-ref #{i 19435}# 3)
746 (if (if (vector? #{j 19436}#)
747 (if (= (vector-length #{j 19436}#) 4)
748 (eq? (vector-ref #{j 19436}# 0) 'syntax-object)
751 (vector-ref #{j 19436}# 3)
754 (#{id-var-name 4429}#
759 (#{id-var-name 4429}#
763 (if (if (vector? #{ni 19439}#)
764 (if (= (vector-length #{ni 19439}#) 4)
765 (eq? (vector-ref #{ni 19439}# 0) 'syntax-object)
768 (#{free-id=? 4431}# #{ni 19439}# #{j 19436}#)
769 (if (if (vector? #{nj 19440}#)
770 (if (= (vector-length #{nj 19440}#) 4)
771 (eq? (vector-ref #{nj 19440}# 0) 'syntax-object)
774 (#{free-id=? 4431}# #{i 19435}# #{nj 19440}#)
775 (if (symbol? #{ni 19439}#)
776 (if (eq? #{nj 19440}#
777 (if (if (vector? #{j 19436}#)
778 (if (= (vector-length #{j 19436}#) 4)
779 (eq? (vector-ref #{j 19436}# 0)
783 (vector-ref #{j 19436}# 1)
785 (if (let ((#{bi 19512}#
788 (resolve-module (cdr #{mi 19437}#))
790 (if (if (vector? #{i 19435}#)
791 (if (= (vector-length #{i 19435}#)
793 (eq? (vector-ref #{i 19435}# 0)
797 (vector-ref #{i 19435}# 1)
803 (resolve-module (cdr #{mj 19438}#))
805 (if (if (vector? #{j 19436}#)
806 (if (= (vector-length #{j 19436}#)
808 (eq? (vector-ref #{j 19436}# 0)
812 (vector-ref #{j 19436}# 1)
814 (if (not (module-variable
816 (resolve-module (cdr #{mj 19438}#))
818 (if (if (vector? #{j 19436}#)
819 (if (= (vector-length
828 (vector-ref #{j 19436}# 1)
830 (eq? #{ni 19439}# #{nj 19440}#)
832 (eq? (module-variable
834 (resolve-module (cdr #{mi 19437}#))
836 (if (if (vector? #{i 19435}#)
837 (if (= (vector-length #{i 19435}#) 4)
838 (eq? (vector-ref #{i 19435}# 0)
842 (vector-ref #{i 19435}# 1)
846 (resolve-module (cdr #{mj 19438}#))
848 (if (if (vector? #{j 19436}#)
849 (if (= (vector-length #{j 19436}#) 4)
850 (eq? (vector-ref #{j 19436}# 0)
854 (vector-ref #{j 19436}# 1)
858 (equal? #{ni 19439}# #{nj 19440}#))))))))))
860 (lambda (#{i 19705}# #{j 19706}#)
861 (if (if (if (vector? #{i 19705}#)
862 (if (= (vector-length #{i 19705}#) 4)
863 (eq? (vector-ref #{i 19705}# 0) 'syntax-object)
866 (if (vector? #{j 19706}#)
867 (if (= (vector-length #{j 19706}#) 4)
868 (eq? (vector-ref #{j 19706}# 0) 'syntax-object)
872 (if (eq? (vector-ref #{i 19705}# 1)
873 (vector-ref #{j 19706}# 1))
874 (#{same-marks? 4428}#
875 (car (vector-ref #{i 19705}# 2))
876 (car (vector-ref #{j 19706}# 2)))
878 (eq? #{i 19705}# #{j 19706}#))))
879 (#{valid-bound-ids? 4433}#
880 (lambda (#{ids 19875}#)
883 (lambda (#{ids 20073}#)
884 (if (null? #{ids 20073}#)
885 (null? #{ids 20073}#)
886 (if (let ((#{x 20084}# (car #{ids 20073}#)))
887 (if (symbol? #{x 20084}#)
889 (if (if (vector? #{x 20084}#)
890 (if (= (vector-length #{x 20084}#) 4)
891 (eq? (vector-ref #{x 20084}# 0)
895 (symbol? (vector-ref #{x 20084}# 1))
897 (#{all-ids? 19876}# (cdr #{ids 20073}#))
899 (#{all-ids? 19876}# #{ids 19875}#))
900 (#{distinct-bound-ids? 4434}# #{ids 19875}#)
902 (#{distinct-bound-ids? 4434}#
903 (lambda (#{ids 20205}#)
905 ((#{distinct? 20206}#
906 (lambda (#{ids 20311}#)
907 (if (null? #{ids 20311}#)
908 (null? #{ids 20311}#)
909 (if (not (#{bound-id-member? 4435}#
911 (cdr #{ids 20311}#)))
912 (#{distinct? 20206}# (cdr #{ids 20311}#))
914 (#{distinct? 20206}# #{ids 20205}#))))
915 (#{bound-id-member? 4435}#
916 (lambda (#{x 20407}# #{list 20408}#)
917 (if (not (null? #{list 20408}#))
921 (car #{list 20408}#))))
924 (#{bound-id-member? 4435}#
926 (cdr #{list 20408}#))))
928 (#{source-wrap 4437}#
935 (if (if (pair? #{x 20587}#) #{s 20589}# #f)
936 (set-source-properties! #{x 20587}# #{s 20589}#))
938 (if (if (null? (car #{w 20588}#))
939 (null? (cdr #{w 20588}#))
942 (if (if (vector? #{x 20594}#)
943 (if (= (vector-length #{x 20594}#) 4)
944 (eq? (vector-ref #{x 20594}# 0) 'syntax-object)
947 (let ((#{expression 20626}# (vector-ref #{x 20594}# 1))
949 (let ((#{w2 20635}# (vector-ref #{x 20594}# 2)))
950 (let ((#{m1 20636}# (car #{w 20588}#))
951 (#{s1 20637}# (cdr #{w 20588}#)))
952 (if (null? #{m1 20636}#)
953 (if (null? #{s1 20637}#)
955 (cons (car #{w2 20635}#)
956 (let ((#{m2 20652}# (cdr #{w2 20635}#)))
957 (if (null? #{m2 20652}#)
959 (append #{s1 20637}# #{m2 20652}#)))))
960 (cons (let ((#{m2 20660}# (car #{w2 20635}#)))
961 (if (null? #{m2 20660}#)
963 (append #{m1 20636}# #{m2 20660}#)))
964 (let ((#{m2 20668}# (cdr #{w2 20635}#)))
965 (if (null? #{m2 20668}#)
967 (append #{s1 20637}# #{m2 20668}#))))))))
968 (#{module 20628}# (vector-ref #{x 20594}# 3)))
974 (if (null? #{x 20594}#)
980 #{defmod 20590}#)))))))
981 (#{expand-sequence 4438}#
982 (lambda (#{body 36431}#
987 (#{build-sequence 4392}#
991 (lambda (#{body 36614}#
995 (if (null? #{body 36614}#)
997 (let ((#{first 36618}#
1003 (cons #{first 36618}#
1005 (cdr #{body 36614}#)
1008 #{mod 36617}#)))))))
1014 (#{expand-top-sequence 4439}#
1015 (lambda (#{body 20683}#
1023 (cons '("placeholder" placeholder) #{r 20684}#)))
1024 (let ((#{ribcage 20691}# (vector 'ribcage '() '() '())))
1026 (cons (car #{w 20685}#)
1027 (cons #{ribcage 20691}# (cdr #{w 20685}#)))))
1029 ((#{record-definition! 20693}#
1030 (lambda (#{id 24185}# #{var 24186}#)
1031 (let ((#{mod 24187}#
1032 (cons 'hygiene (module-name (current-module)))))
1033 (let ((#{label 24193}#
1034 (cons (vector-ref #{id 24185}# 3)
1035 (if (if (vector? #{var 24186}#)
1036 (if (= (vector-length #{var 24186}#)
1038 (eq? (vector-ref #{var 24186}# 0)
1042 (let ((#{expression 24255}#
1043 (vector-ref #{var 24186}# 1))
1049 (cons (let ((#{m2 24273}#
1050 (car #{w2 24266}#)))
1051 (if (null? #{m2 24273}#)
1057 (cdr #{w2 24266}#)))
1058 (if (null? #{m2 24282}#)
1064 (vector-ref #{var 24186}# 3)))
1067 #{expression 24255}#
1070 (if (null? #{var 24186}#)
1078 (let ((#{update 24196}#
1079 (cons (vector-ref #{id 24185}# 1)
1080 (vector-ref #{ribcage 20691}# 1))))
1085 (let ((#{update 24211}#
1086 (cons (car (vector-ref #{id 24185}# 2))
1087 (vector-ref #{ribcage 20691}# 2))))
1092 (let ((#{update 24226}#
1093 (cons #{label 24193}#
1094 (vector-ref #{ribcage 20691}# 3))))
1098 #{update 24226}#)))))))
1100 (lambda (#{body 20901}#
1109 (lambda (#{body 20995}# #{exps 20996}#)
1110 (if (null? #{body 20995}#)
1113 (cdr #{body 20995}#)
1116 (car #{body 20995}#)
1123 #{exps 20996}#))))))
1124 (#{lp 20908}# #{body 20901}# '()))))
1126 (lambda (#{x 21070}#
1135 (#{syntax-type 4442}#
1139 (#{source-annotation 4404}# #{x 21070}#)
1143 (lambda (#{type 21280}#
1149 (if (eqv? #{type 21280}# 'define-form)
1151 (if (if (null? (car #{w 21283}#))
1152 (null? (cdr #{w 21283}#))
1155 (if (if (vector? #{value 21281}#)
1156 (if (= (vector-length
1159 (eq? (vector-ref #{value 21281}# 0)
1163 (let ((#{expression 21339}#
1164 (vector-ref #{value 21281}# 1))
1174 (if (null? #{m1 21351}#)
1175 (if (null? #{s1 21352}#)
1177 (cons (car #{w2 21350}#)
1179 (cdr #{w2 21350}#)))
1180 (if (null? #{m2 21369}#)
1185 (cons (let ((#{m2 21377}#
1186 (car #{w2 21350}#)))
1187 (if (null? #{m2 21377}#)
1193 (cdr #{w2 21350}#)))
1194 (if (null? #{m2 21385}#)
1198 #{m2 21385}#))))))))
1200 (vector-ref #{value 21281}# 3)))
1203 #{expression 21339}#
1206 (if (null? #{value 21281}#)
1214 (symbol->string (gensym "i"))
1215 (let ((#{var 21291}#
1222 (vector-ref #{id 21289}# 1)
1226 (hash (syntax->datum #{x 21070}#)
1227 most-positive-fixnum)
1229 (vector-ref #{id 21289}# 1))))
1231 (#{record-definition! 20693}#
1234 (list (if (eq? #{m 21074}# 'c&e)
1236 (#{build-global-definition 4385}#
1245 (#{top-level-eval-hook 4370}#
1248 (lambda () #{x 21516}#)))
1250 (#{build-global-definition 4385}#
1257 #{mod 21285}#)))))))))
1258 (if (if (eqv? #{type 21280}# 'define-syntax-form)
1260 (eqv? #{type 21280}#
1261 'define-syntax-parameter-form))
1263 (if (if (null? (car #{w 21283}#))
1264 (null? (cdr #{w 21283}#))
1267 (if (if (vector? #{value 21281}#)
1268 (if (= (vector-length
1277 (let ((#{expression 22082}#
1278 (vector-ref #{value 21281}# 1))
1288 (if (null? #{m1 22094}#)
1289 (if (null? #{s1 22095}#)
1291 (cons (car #{w2 22093}#)
1293 (cdr #{w2 22093}#)))
1294 (if (null? #{m2 22112}#)
1299 (cons (let ((#{m2 22120}#
1300 (car #{w2 22093}#)))
1301 (if (null? #{m2 22120}#)
1307 (cdr #{w2 22093}#)))
1308 (if (null? #{m2 22128}#)
1312 #{m2 22128}#))))))))
1319 #{expression 22082}#
1322 (if (null? #{value 21281}#)
1330 (symbol->string (gensym "i"))
1331 (let ((#{var 22034}#
1338 (vector-ref #{id 22032}# 1)
1342 (hash (syntax->datum
1344 most-positive-fixnum)
1346 (vector-ref #{id 22032}# 1))))
1348 (#{record-definition! 20693}#
1351 (if (eqv? #{m 21074}# 'c)
1352 (if (memq 'compile #{esew 21075}#)
1354 (#{expand-install-global 4440}#
1363 (#{top-level-eval-hook 4370}#
1366 (if (memq 'load #{esew 21075}#)
1367 (list (lambda () #{e 22262}#))
1369 (if (memq 'load #{esew 21075}#)
1371 (#{expand-install-global 4440}#
1380 (if (eqv? #{m 21074}# 'c&e)
1382 (#{expand-install-global 4440}#
1391 (#{top-level-eval-hook 4370}#
1394 (list (lambda () #{e 22782}#))))
1396 (if (memq 'eval #{esew 21075}#)
1397 (#{top-level-eval-hook 4370}#
1398 (#{expand-install-global 4440}#
1408 (if (eqv? #{type 21280}# 'begin-form)
1409 (let ((#{tmp 23411}#
1415 (lambda (#{e1 23415}#)
1427 "source expression failed to match any pattern"
1429 (if (eqv? #{type 21280}# 'local-syntax-form)
1430 (#{expand-local-syntax 4448}#
1437 (lambda (#{forms 23461}#
1450 (if (eqv? #{type 21280}# 'eval-when-form)
1451 (let ((#{tmp 23504}#
1454 '(_ each-any any . each-any))))
1457 (lambda (#{x 23508}#
1460 (let ((#{when-list 23511}#
1461 (#{parse-when-list 4441}#
1469 (lambda (#{m 24102}#
1479 (if (eq? #{m 21074}# 'e)
1481 #{when-list 23511}#)
1484 #{when-list 23511}#)
1490 #{when-list 23511}#)
1492 (#{expand-top-sequence 4439}#
1504 #{when-list 23511}#)
1505 (if (let ((#{t 23649}#
1507 #{when-list 23511}#)))
1512 #{when-list 23511}#)))
1515 (if (eq? #{m 21074}#
1518 #{when-list 23511}#)
1523 (if (if (eq? #{m 21074}#
1532 (if (let ((#{t 23913}#
1534 #{when-list 23511}#)))
1539 #{when-list 23511}#)))
1542 (if (eq? #{m 21074}#
1545 #{when-list 23511}#)
1549 (#{expand-top-sequence 4439}#
1564 "source expression failed to match any pattern"
1566 (list (if (eq? #{m 21074}# 'c&e)
1568 (#{expand-expr 4444}#
1577 (primitive-eval #{x 24176}#)
1578 (lambda () #{x 24176}#)))
1580 (#{expand-expr 4444}#
1587 #{mod 21285}#))))))))))))))
1588 (let ((#{exps 20698}#
1589 (map (lambda (#{x 20829}#) (#{x 20829}#))
1599 (if (null? #{exps 20698}#)
1600 (make-struct/no-tail
1601 (vector-ref %expanded-vtables 0)
1603 (#{build-sequence 4392}#
1605 #{exps 20698}#)))))))))
1606 (#{expand-install-global 4440}#
1607 (lambda (#{name 24304}# #{type 24305}# #{e 24306}#)
1608 (let ((#{exp 24312}#
1609 (let ((#{args 24323}#
1610 (if (eq? #{type 24305}#
1611 'define-syntax-parameter-form)
1612 (list (make-struct/no-tail
1613 (vector-ref %expanded-vtables 1)
1616 (make-struct/no-tail
1617 (vector-ref %expanded-vtables 1)
1620 (let ((#{args 24346}# (list #{e 24306}#)))
1621 (make-struct/no-tail
1622 (vector-ref %expanded-vtables 12)
1626 (list (make-struct/no-tail
1627 (vector-ref %expanded-vtables 1)
1630 (make-struct/no-tail
1631 (vector-ref %expanded-vtables 1)
1635 (make-struct/no-tail
1636 (vector-ref %expanded-vtables 12)
1638 'make-syntax-transformer
1641 (if (if (struct? #{exp 24312}#)
1642 (eq? (struct-vtable #{exp 24312}#)
1643 (vector-ref %expanded-vtables 14))
1645 (let ((#{meta 24373}# (struct-ref #{exp 24312}# 1)))
1646 (if (not (assq 'name #{meta 24373}#))
1648 (cons (cons 'name #{name 24304}#) #{meta 24373}#)))
1649 (struct-set! #{exp 24312}# 1 #{v 24380}#)))))
1650 (make-struct/no-tail
1651 (vector-ref %expanded-vtables 9)
1655 (#{parse-when-list 4441}#
1656 (lambda (#{e 24391}# #{when-list 24392}#)
1657 (let ((#{result 24393}#
1658 (#{strip 4456}# #{when-list 24392}# '(()))))
1661 (lambda (#{l 24460}#)
1662 (if (null? #{l 24460}#)
1664 (if (let ((#{t 24462}# (car #{l 24460}#)))
1665 (if (eq? #{t 24462}# 'compile)
1667 (if (eq? #{t 24462}# 'load)
1669 (if (eq? #{t 24462}# 'eval)
1671 (eq? #{t 24462}# 'expand)))))
1672 (#{lp 24394}# (cdr #{l 24460}#))
1677 (car #{l 24460}#)))))))
1678 (#{lp 24394}# #{result 24393}#)))))
1679 (#{syntax-type 4442}#
1680 (lambda (#{e 24464}#
1687 (if (symbol? #{e 24464}#)
1690 (#{resolve-identifier 4430}#
1696 (lambda (#{type 24473}# #{value 24474}# #{mod* 24475}#)
1697 (if (eqv? #{type 24473}# 'macro)
1698 (if #{for-car? 24470}#
1706 (#{syntax-type 4442}#
1707 (#{expand-macro 4446}#
1721 (if (eqv? #{type 24473}# 'global)
1736 (if (pair? #{e 24464}#)
1737 (let ((#{first 24484}# (car #{e 24464}#)))
1740 (#{syntax-type 4442}#
1748 (lambda (#{ftype 24486}#
1754 (if (eqv? #{ftype 24486}# 'lexical)
1762 (if (eqv? #{ftype 24486}# 'global)
1774 (if (eqv? #{ftype 24486}# 'macro)
1775 (#{syntax-type 4442}#
1776 (#{expand-macro 4446}#
1790 (if (eqv? #{ftype 24486}# 'module-ref)
1797 (lambda (#{e 24512}#
1802 (#{syntax-type 4442}#
1809 #{for-car? 24470}#)))
1810 (if (eqv? #{ftype 24486}# 'core)
1818 (if (eqv? #{ftype 24486}# 'local-syntax)
1826 (if (eqv? #{ftype 24486}# 'begin)
1834 (if (eqv? #{ftype 24486}# 'eval-when)
1842 (if (eqv? #{ftype 24486}# 'define)
1843 (let ((#{tmp 24533}#
1847 (if (if #{tmp 24533}#
1849 (lambda (#{name 24537}#
1851 (if (symbol? #{name 24537}#)
1855 (if (= (vector-length
1872 (lambda (#{name 24565}# #{val 24566}#)
1881 (let ((#{tmp 24567}#
1888 (if (if #{tmp 24567}#
1890 (lambda (#{name 24571}#
1899 (if (= (vector-length
1913 (#{valid-bound-ids? 4433}#
1914 (#{lambda-var-list 4458}#
1920 (lambda (#{name 25055}#
1926 (if (if (null? (car #{w 24466}#))
1927 (null? (cdr #{w 24466}#))
1932 (if (= (vector-length
1941 (let ((#{expression 25088}#
1954 (if (null? #{m1 25100}#)
1955 (if (null? #{s1 25101}#)
1957 (cons (car #{w2 25099}#)
1959 (cdr #{w2 25099}#)))
1960 (if (null? #{m2 25118}#)
1965 (cons (let ((#{m2 25126}#
1966 (car #{w2 25099}#)))
1967 (if (null? #{m2 25126}#)
1973 (cdr #{w2 25099}#)))
1974 (if (null? #{m2 25134}#)
1978 #{m2 25134}#))))))))
1985 #{expression 25088}#
1988 (if (null? #{name 25055}#)
1996 (cons '#(syntax-object
2087 expand-simple-lambda
2091 eval-local-transformer
2100 expand-install-global
2127 set-ribcage-symnames!
2158 set-syntax-object-module!
2159 set-syntax-object-wrap!
2160 set-syntax-object-expression!
2161 syntax-object-module
2163 syntax-object-expression
2177 build-global-definition
2178 build-global-assignment
2179 build-global-reference
2181 build-lexical-assignment
2182 build-lexical-reference
2189 get-global-definition-hook
2190 put-global-definition-hook
2210 make-toplevel-define
2498 define-expansion-accessors
2499 define-expansion-constructors)
2513 (cons #{args 25056}#
2516 (if (if (null? (car #{w 24466}#))
2517 (null? (cdr #{w 24466}#))
2522 (if (= (vector-length
2531 (let ((#{expression 25182}#
2544 (if (null? #{m1 25192}#)
2545 (if (null? #{s1 25193}#)
2547 (cons (car #{w2 25191}#)
2549 (cdr #{w2 25191}#)))
2550 (if (null? #{m2 25208}#)
2555 (cons (let ((#{m2 25216}#
2556 (car #{w2 25191}#)))
2557 (if (null? #{m2 25216}#)
2563 (cdr #{w2 25191}#)))
2564 (if (null? #{m2 25224}#)
2568 #{m2 25224}#))))))))
2575 #{expression 25182}#
2578 (if (null? #{x 25164}#)
2584 #{mod 24469}#))))))))
2586 (if (if (pair? #{e 25160}#)
2589 (set-source-properties!
2597 (let ((#{tmp 25243}#
2601 (if (if #{tmp 25243}#
2603 (lambda (#{name 25247}#)
2609 (if (= (vector-length
2626 (lambda (#{name 25274}#)
2629 (if (if (null? (car #{w 24466}#))
2630 (null? (cdr #{w 24466}#))
2635 (if (= (vector-length
2644 (let ((#{expression 25304}#
2657 (if (null? #{m1 25316}#)
2658 (if (null? #{s1 25317}#)
2660 (cons (car #{w2 25315}#)
2662 (cdr #{w2 25315}#)))
2663 (if (null? #{m2 25334}#)
2668 (cons (let ((#{m2 25342}#
2669 (car #{w2 25315}#)))
2670 (if (null? #{m2 25342}#)
2676 (cdr #{w2 25315}#)))
2677 (if (null? #{m2 25350}#)
2681 #{m2 25350}#))))))))
2688 #{expression 25304}#
2691 (if (null? #{name 25274}#)
2762 expand-simple-lambda
2766 eval-local-transformer
2775 expand-install-global
2802 set-ribcage-symnames!
2833 set-syntax-object-module!
2834 set-syntax-object-wrap!
2835 set-syntax-object-expression!
2836 syntax-object-module
2838 syntax-object-expression
2852 build-global-definition
2853 build-global-assignment
2854 build-global-reference
2856 build-lexical-assignment
2857 build-lexical-reference
2864 get-global-definition-hook
2865 put-global-definition-hook
2885 make-toplevel-define
3173 define-expansion-accessors
3174 define-expansion-constructors)
3179 #(ribcage () () ()))
3245 expand-simple-lambda
3249 eval-local-transformer
3258 expand-install-global
3285 set-ribcage-symnames!
3316 set-syntax-object-module!
3317 set-syntax-object-wrap!
3318 set-syntax-object-expression!
3319 syntax-object-module
3321 syntax-object-expression
3335 build-global-definition
3336 build-global-assignment
3337 build-global-reference
3339 build-lexical-assignment
3340 build-lexical-reference
3347 get-global-definition-hook
3348 put-global-definition-hook
3368 make-toplevel-define
3656 define-expansion-accessors
3657 define-expansion-constructors)
3662 #(ribcage () () ()))
3728 expand-simple-lambda
3732 eval-local-transformer
3741 expand-install-global
3768 set-ribcage-symnames!
3799 set-syntax-object-module!
3800 set-syntax-object-wrap!
3801 set-syntax-object-expression!
3802 syntax-object-module
3804 syntax-object-expression
3818 build-global-definition
3819 build-global-assignment
3820 build-global-reference
3822 build-lexical-assignment
3823 build-lexical-reference
3830 get-global-definition-hook
3831 put-global-definition-hook
3851 make-toplevel-define
4139 define-expansion-accessors
4140 define-expansion-constructors)
4145 #(ribcage () () ()))
4153 "source expression failed to match any pattern"
4155 (if (eqv? #{ftype 24486}# 'define-syntax)
4156 (let ((#{tmp 25389}#
4160 (if (if #{tmp 25389}#
4162 (lambda (#{name 25393}#
4164 (if (symbol? #{name 25393}#)
4168 (if (= (vector-length
4185 (lambda (#{name 25421}#
4197 "source expression failed to match any pattern"
4199 (if (eqv? #{ftype 24486}#
4200 'define-syntax-parameter)
4201 (let ((#{tmp 25433}#
4205 (if (if #{tmp 25433}#
4207 (lambda (#{name 25437}#
4209 (if (symbol? #{name 25437}#)
4213 (if (= (vector-length
4230 (lambda (#{name 25465}#
4233 'define-syntax-parameter-form
4242 "source expression failed to match any pattern"
4250 #{mod 24469}#)))))))))))))))
4251 (if (if (vector? #{e 24464}#)
4252 (if (= (vector-length #{e 24464}#) 4)
4253 (eq? (vector-ref #{e 24464}# 0) 'syntax-object)
4256 (#{syntax-type 4442}#
4257 (vector-ref #{e 24464}# 1)
4259 (let ((#{w2 25491}# (vector-ref #{e 24464}# 2)))
4260 (let ((#{m1 25492}# (car #{w 24466}#))
4261 (#{s1 25493}# (cdr #{w 24466}#)))
4262 (if (null? #{m1 25492}#)
4263 (if (null? #{s1 25493}#)
4265 (cons (car #{w2 25491}#)
4266 (let ((#{m2 25504}# (cdr #{w2 25491}#)))
4267 (if (null? #{m2 25504}#)
4269 (append #{s1 25493}# #{m2 25504}#)))))
4270 (cons (let ((#{m2 25512}# (car #{w2 25491}#)))
4271 (if (null? #{m2 25512}#)
4273 (append #{m1 25492}# #{m2 25512}#)))
4274 (let ((#{m2 25520}# (cdr #{w2 25491}#)))
4275 (if (null? #{m2 25520}#)
4277 (append #{s1 25493}# #{m2 25520}#)))))))
4279 (#{source-annotation 4404}# #{e 24464}#)))
4280 (if #{t 25525}# #{t 25525}# #{s 24467}#))
4282 (let ((#{t 25823}# (vector-ref #{e 24464}# 3)))
4283 (if #{t 25823}# #{t 25823}# #{mod 24469}#))
4285 (if (self-evaluating? #{e 24464}#)
4299 #{mod 24469}#)))))))
4301 (lambda (#{e 25832}#
4307 (#{syntax-type 4442}#
4311 (#{source-annotation 4404}# #{e 25832}#)
4315 (lambda (#{type 26039}#
4321 (#{expand-expr 4444}#
4329 (#{expand-expr 4444}#
4330 (lambda (#{type 26047}#
4337 (if (eqv? #{type 26047}# 'lexical)
4338 (make-struct/no-tail
4339 (vector-ref %expanded-vtables 3)
4343 (if (if (eqv? #{type 26047}# 'core)
4345 (eqv? #{type 26047}# 'core-form))
4352 (if (eqv? #{type 26047}# 'module-ref)
4359 (lambda (#{e 26079}#
4369 (if (eqv? #{type 26047}# 'lexical-call)
4370 (#{expand-call 4445}#
4371 (let ((#{id 26264}# (car #{e 26049}#)))
4372 (#{build-lexical-reference 4380}#
4374 (#{source-annotation 4404}# #{id 26264}#)
4375 (if (if (vector? #{id 26264}#)
4376 (if (= (vector-length #{id 26264}#) 4)
4377 (eq? (vector-ref #{id 26264}# 0) 'syntax-object)
4380 (syntax->datum #{id 26264}#)
4388 (if (eqv? #{type 26047}# 'global-call)
4389 (#{expand-call 4445}#
4390 (#{build-global-reference 4383}#
4391 (#{source-annotation 4404}# (car #{e 26049}#))
4392 (if (if (vector? #{value 26048}#)
4393 (if (= (vector-length #{value 26048}#) 4)
4394 (eq? (vector-ref #{value 26048}# 0)
4398 (vector-ref #{value 26048}# 1)
4400 (if (if (vector? #{value 26048}#)
4401 (if (= (vector-length #{value 26048}#) 4)
4402 (eq? (vector-ref #{value 26048}# 0)
4406 (vector-ref #{value 26048}# 3)
4413 (if (eqv? #{type 26047}# 'constant)
4414 (let ((#{exp 26986}#
4418 (if (if (pair? #{e 26049}#)
4421 (set-source-properties!
4425 (if (if (null? (car #{w 26051}#))
4426 (null? (cdr #{w 26051}#))
4429 (if (if (vector? #{x 26999}#)
4430 (if (= (vector-length #{x 26999}#) 4)
4431 (eq? (vector-ref #{x 26999}# 0)
4435 (let ((#{expression 27031}#
4436 (vector-ref #{x 26999}# 1))
4439 (vector-ref #{x 26999}# 2)))
4444 (if (null? #{m1 27041}#)
4445 (if (null? #{s1 27042}#)
4447 (cons (car #{w2 27040}#)
4449 (cdr #{w2 27040}#)))
4450 (if (null? #{m2 27057}#)
4455 (cons (let ((#{m2 27065}#
4456 (car #{w2 27040}#)))
4457 (if (null? #{m2 27065}#)
4463 (cdr #{w2 27040}#)))
4464 (if (null? #{m2 27073}#)
4468 #{m2 27073}#))))))))
4470 (vector-ref #{x 26999}# 3)))
4473 #{expression 27031}#
4476 (if (null? #{x 26999}#)
4484 (make-struct/no-tail
4485 (vector-ref %expanded-vtables 1)
4488 (if (eqv? #{type 26047}# 'global)
4489 (#{analyze-variable 4382}#
4492 (lambda (#{mod 27098}# #{var 27099}# #{public? 27100}#)
4493 (make-struct/no-tail
4494 (vector-ref %expanded-vtables 5)
4499 (lambda (#{var 27108}#)
4500 (make-struct/no-tail
4501 (vector-ref %expanded-vtables 7)
4504 (if (eqv? #{type 26047}# 'call)
4505 (#{expand-call 4445}#
4516 (if (eqv? #{type 26047}# 'begin-form)
4517 (let ((#{tmp 27286}#
4520 '(_ any . each-any))))
4523 (lambda (#{e1 27290}# #{e2 27291}#)
4524 (#{expand-sequence 4438}#
4525 (cons #{e1 27290}# #{e2 27291}#)
4533 "source expression failed to match any pattern"
4535 (if (eqv? #{type 26047}# 'local-syntax-form)
4536 (#{expand-local-syntax 4448}#
4543 #{expand-sequence 4438}#)
4544 (if (eqv? #{type 26047}# 'eval-when-form)
4545 (let ((#{tmp 27471}#
4548 '(_ each-any any . each-any))))
4551 (lambda (#{x 27475}#
4554 (let ((#{when-list 27478}#
4555 (#{parse-when-list 4441}#
4558 (if (memq 'eval #{when-list 27478}#)
4559 (#{expand-sequence 4438}#
4560 (cons #{e1 27476}# #{e2 27477}#)
4565 (make-struct/no-tail
4566 (vector-ref %expanded-vtables 0)
4571 "source expression failed to match any pattern"
4573 (if (if (eqv? #{type 26047}# 'define-form)
4575 (if (eqv? #{type 26047}#
4576 'define-syntax-form)
4578 (eqv? #{type 26047}#
4579 'define-syntax-parameter-form)))
4582 "definition in expression context"
4584 (if (if (null? (car #{w 26051}#))
4585 (null? (cdr #{w 26051}#))
4588 (if (if (vector? #{value 26048}#)
4589 (if (= (vector-length #{value 26048}#)
4591 (eq? (vector-ref #{value 26048}# 0)
4595 (let ((#{expression 27688}#
4596 (vector-ref #{value 26048}# 1))
4606 (if (null? #{m1 27700}#)
4607 (if (null? #{s1 27701}#)
4609 (cons (car #{w2 27699}#)
4611 (cdr #{w2 27699}#)))
4612 (if (null? #{m2 27718}#)
4617 (cons (let ((#{m2 27726}#
4618 (car #{w2 27699}#)))
4619 (if (null? #{m2 27726}#)
4625 (cdr #{w2 27699}#)))
4626 (if (null? #{m2 27734}#)
4630 #{m2 27734}#))))))))
4632 (vector-ref #{value 26048}# 3)))
4635 #{expression 27688}#
4638 (if (null? #{value 26048}#)
4645 (if (eqv? #{type 26047}# 'syntax)
4648 "reference to pattern variable outside syntax form"
4651 (if (if (pair? #{e 26049}#)
4654 (set-source-properties!
4658 (if (if (null? (car #{w 26051}#))
4659 (null? (cdr #{w 26051}#))
4662 (if (if (vector? #{x 27769}#)
4663 (if (= (vector-length #{x 27769}#)
4665 (eq? (vector-ref #{x 27769}# 0)
4669 (let ((#{expression 27801}#
4670 (vector-ref #{x 27769}# 1))
4680 (if (null? #{m1 27811}#)
4681 (if (null? #{s1 27812}#)
4683 (cons (car #{w2 27810}#)
4685 (cdr #{w2 27810}#)))
4686 (if (null? #{m2 27827}#)
4691 (cons (let ((#{m2 27835}#
4692 (car #{w2 27810}#)))
4693 (if (null? #{m2 27835}#)
4699 (cdr #{w2 27810}#)))
4700 (if (null? #{m2 27843}#)
4704 #{m2 27843}#))))))))
4706 (vector-ref #{x 27769}# 3)))
4709 #{expression 27801}#
4712 (if (null? #{x 27769}#)
4719 (if (eqv? #{type 26047}# 'displaced-lexical)
4722 "reference to identifier outside its scope"
4725 (if (if (pair? #{e 26049}#)
4728 (set-source-properties!
4732 (if (if (null? (car #{w 26051}#))
4733 (null? (cdr #{w 26051}#))
4736 (if (if (vector? #{x 27870}#)
4737 (if (= (vector-length
4746 (let ((#{expression 27902}#
4747 (vector-ref #{x 27870}# 1))
4757 (if (null? #{m1 27912}#)
4758 (if (null? #{s1 27913}#)
4760 (cons (car #{w2 27911}#)
4762 (cdr #{w2 27911}#)))
4763 (if (null? #{m2 27928}#)
4768 (cons (let ((#{m2 27936}#
4769 (car #{w2 27911}#)))
4770 (if (null? #{m2 27936}#)
4776 (cdr #{w2 27911}#)))
4777 (if (null? #{m2 27944}#)
4781 #{m2 27944}#))))))))
4783 (vector-ref #{x 27870}# 3)))
4786 #{expression 27902}#
4789 (if (null? #{x 27870}#)
4801 (if (if (pair? #{e 26049}#)
4804 (set-source-properties!
4808 (if (if (null? (car #{w 26051}#))
4809 (null? (cdr #{w 26051}#))
4812 (if (if (vector? #{x 27968}#)
4813 (if (= (vector-length
4822 (let ((#{expression 28000}#
4823 (vector-ref #{x 27968}# 1))
4833 (if (null? #{m1 28010}#)
4834 (if (null? #{s1 28011}#)
4836 (cons (car #{w2 28009}#)
4838 (cdr #{w2 28009}#)))
4839 (if (null? #{m2 28026}#)
4844 (cons (let ((#{m2 28034}#
4845 (car #{w2 28009}#)))
4846 (if (null? #{m2 28034}#)
4852 (cdr #{w2 28009}#)))
4853 (if (null? #{m2 28042}#)
4857 #{m2 28042}#))))))))
4859 (vector-ref #{x 27968}# 3)))
4862 #{expression 28000}#
4865 (if (null? #{x 27968}#)
4871 #{mod 26053}#))))))))))))))))))))))
4872 (#{expand-call 4445}#
4873 (lambda (#{x 28057}#
4879 (let ((#{tmp 28064}#
4880 ($sc-dispatch #{e 28058}# '(any . each-any))))
4883 (lambda (#{e0 28068}# #{e1 28069}#)
4884 (#{build-call 4377}#
4887 (map (lambda (#{e 28161}#)
4897 "source expression failed to match any pattern"
4899 (#{expand-macro 4446}#
4900 (lambda (#{p 28249}#
4908 ((#{rebuild-macro-output 28256}#
4909 (lambda (#{x 28363}# #{m 28364}#)
4910 (if (pair? #{x 28363}#)
4912 (cons (#{rebuild-macro-output 28256}#
4915 (#{rebuild-macro-output 28256}#
4919 (if (if (pair? #{e 28368}#) #{s 28253}# #f)
4920 (set-source-properties! #{e 28368}# #{s 28253}#))
4922 (if (if (vector? #{x 28363}#)
4923 (if (= (vector-length #{x 28363}#) 4)
4924 (eq? (vector-ref #{x 28363}# 0) 'syntax-object)
4927 (let ((#{w 28384}# (vector-ref #{x 28363}# 2)))
4928 (let ((#{ms 28385}# (car #{w 28384}#))
4929 (#{s 28386}# (cdr #{w 28384}#)))
4930 (if (if (pair? #{ms 28385}#)
4931 (eq? (car #{ms 28385}#) #f)
4933 (let ((#{expression 28394}# (vector-ref #{x 28363}# 1))
4935 (cons (cdr #{ms 28385}#)
4937 (cons #{rib 28254}# (cdr #{s 28386}#))
4938 (cdr #{s 28386}#))))
4939 (#{module 28396}# (vector-ref #{x 28363}# 3)))
4942 #{expression 28394}#
4945 (let ((#{expression 28406}#
4946 (let ((#{e 28411}# (vector-ref #{x 28363}# 1)))
4948 (if (if (pair? #{e 28411}#) #{s 28386}# #f)
4949 (set-source-properties!
4954 (cons (cons #{m 28364}# #{ms 28385}#)
4957 (cons 'shift #{s 28386}#))
4958 (cons 'shift #{s 28386}#))))
4959 (#{module 28408}# (vector-ref #{x 28363}# 3)))
4962 #{expression 28406}#
4964 #{module 28408}#)))))
4965 (if (vector? #{x 28363}#)
4966 (let ((#{n 28423}# (vector-length #{x 28363}#)))
4968 (let ((#{e 28432}# (make-vector #{n 28423}#)))
4970 (if (if (pair? #{e 28432}#) #{x 28363}# #f)
4971 (set-source-properties!
4977 (lambda (#{i 28486}#)
4978 (if (= #{i 28486}# #{n 28423}#)
4984 (#{rebuild-macro-output 28256}#
4985 (vector-ref #{x 28363}# #{i 28486}#)
4987 (#{loop 28425}# (#{1+}# #{i 28486}#)))))))
4988 (#{loop 28425}# 0))))
4989 (if (symbol? #{x 28363}#)
4992 "encountered raw symbol in macro output"
4993 (let ((#{s 28492}# (cdr #{w 28252}#)))
4996 (if (if (pair? #{e 28250}#) #{s 28492}# #f)
4997 (set-source-properties!
5001 (if (if (null? (car #{w 28252}#))
5002 (null? (cdr #{w 28252}#))
5005 (if (if (vector? #{x 28496}#)
5006 (if (= (vector-length #{x 28496}#) 4)
5007 (eq? (vector-ref #{x 28496}# 0)
5011 (let ((#{expression 28528}#
5012 (vector-ref #{x 28496}# 1))
5015 (vector-ref #{x 28496}# 2)))
5020 (if (null? #{m1 28538}#)
5021 (if (null? #{s1 28539}#)
5023 (cons (car #{w2 28537}#)
5025 (cdr #{w2 28537}#)))
5026 (if (null? #{m2 28554}#)
5031 (cons (let ((#{m2 28562}#
5032 (car #{w2 28537}#)))
5033 (if (null? #{m2 28562}#)
5039 (cdr #{w2 28537}#)))
5040 (if (null? #{m2 28570}#)
5044 #{m2 28570}#))))))))
5046 (vector-ref #{x 28496}# 3)))
5049 #{expression 28528}#
5052 (if (null? #{x 28496}#)
5061 (if (if (pair? #{x 28363}#) #{s 28253}# #f)
5062 (set-source-properties! #{x 28363}# #{s 28253}#))
5064 (#{rebuild-macro-output 28256}#
5067 (cons (cons #f (car #{w 28252}#))
5068 (cons 'shift (cdr #{w 28252}#)))))
5071 (if (if (pair? #{e 28250}#) #{s 28253}# #f)
5072 (set-source-properties! #{e 28250}# #{s 28253}#))
5074 (if (if (null? (car #{w 28263}#))
5075 (null? (cdr #{w 28263}#))
5078 (if (if (vector? #{x 28268}#)
5079 (if (= (vector-length #{x 28268}#) 4)
5080 (eq? (vector-ref #{x 28268}# 0) 'syntax-object)
5083 (let ((#{expression 28306}# (vector-ref #{x 28268}# 1))
5085 (let ((#{w2 28315}# (vector-ref #{x 28268}# 2)))
5086 (let ((#{m1 28316}# (car #{w 28263}#))
5087 (#{s1 28317}# (cdr #{w 28263}#)))
5088 (if (null? #{m1 28316}#)
5089 (if (null? #{s1 28317}#)
5091 (cons (car #{w2 28315}#)
5093 (cdr #{w2 28315}#)))
5094 (if (null? #{m2 28332}#)
5099 (cons (let ((#{m2 28340}#
5100 (car #{w2 28315}#)))
5101 (if (null? #{m2 28340}#)
5107 (cdr #{w2 28315}#)))
5108 (if (null? #{m2 28348}#)
5112 #{m2 28348}#))))))))
5113 (#{module 28308}# (vector-ref #{x 28268}# 3)))
5116 #{expression 28306}#
5119 (if (null? #{x 28268}#)
5125 #{mod 28255}#)))))))
5127 (#{expand-body 4447}#
5128 (lambda (#{body 28600}#
5129 #{outer-form 28601}#
5134 (cons '("placeholder" placeholder) #{r 28602}#)))
5135 (let ((#{ribcage 28606}# (vector 'ribcage '() '() '())))
5137 (cons (car #{w 28603}#)
5138 (cons #{ribcage 28606}# (cdr #{w 28603}#)))))
5141 (lambda (#{body 28716}#
5148 (if (null? #{body 28716}#)
5151 "no expressions in body"
5152 #{outer-form 28601}#)
5153 (let ((#{e 28723}# (cdr (car #{body 28716}#)))
5154 (#{er 28724}# (car (car #{body 28716}#))))
5157 (#{syntax-type 4442}#
5161 (#{source-annotation 4404}# #{er 28724}#)
5165 (lambda (#{type 28930}#
5171 (if (eqv? #{type 28930}# 'define-form)
5173 (if (if (null? (car #{w 28933}#))
5174 (null? (cdr #{w 28933}#))
5177 (if (if (vector? #{value 28931}#)
5178 (if (= (vector-length
5187 (let ((#{expression 28984}#
5200 (if (null? #{m1 28996}#)
5201 (if (null? #{s1 28997}#)
5203 (cons (car #{w2 28995}#)
5205 (cdr #{w2 28995}#)))
5206 (if (null? #{m2 29014}#)
5211 (cons (let ((#{m2 29022}#
5212 (car #{w2 28995}#)))
5213 (if (null? #{m2 29022}#)
5219 (cdr #{w2 28995}#)))
5220 (if (null? #{m2 29030}#)
5224 #{m2 29030}#))))))))
5231 #{expression 28984}#
5234 (if (null? #{value 28931}#)
5242 (symbol->string (gensym "i"))))
5243 (let ((#{var 28941}#
5245 (if (if (vector? #{id 28939}#)
5246 (if (= (vector-length
5255 (vector-ref #{id 28939}# 1)
5259 (symbol->string #{id 29091}#)
5263 (let ((#{update 28950}#
5264 (cons (vector-ref #{id 28939}# 1)
5272 (let ((#{update 29062}#
5273 (cons (car (vector-ref
5283 (let ((#{update 29077}#
5284 (cons #{label 28940}#
5293 (cdr #{body 28716}#)
5294 (cons #{id 28939}# #{ids 28717}#)
5295 (cons #{label 28940}# #{labels 28718}#)
5296 (cons #{id 28939}# #{var-ids 28719}#)
5297 (cons #{var 28941}# #{vars 28720}#)
5298 (cons (cons #{er 28724}#
5299 (if (if (null? (car #{w 28933}#))
5300 (null? (cdr #{w 28933}#))
5305 (if (= (vector-length
5314 (let ((#{expression 29143}#
5327 (if (null? #{m1 29155}#)
5328 (if (null? #{s1 29156}#)
5330 (cons (car #{w2 29154}#)
5332 (cdr #{w2 29154}#)))
5333 (if (null? #{m2 29173}#)
5338 (cons (let ((#{m2 29181}#
5339 (car #{w2 29154}#)))
5340 (if (null? #{m2 29181}#)
5346 (cdr #{w2 29154}#)))
5347 (if (null? #{m2 29189}#)
5351 #{m2 29189}#))))))))
5358 #{expression 29143}#
5361 (if (null? #{e 28932}#)
5369 (cons (cons 'lexical #{var 28941}#)
5370 #{bindings 28722}#)))))
5371 (if (if (eqv? #{type 28930}# 'define-syntax-form)
5373 (eqv? #{type 28930}#
5374 'define-syntax-parameter-form))
5376 (if (if (null? (car #{w 28933}#))
5377 (null? (cdr #{w 28933}#))
5380 (if (if (vector? #{value 28931}#)
5381 (if (= (vector-length
5390 (let ((#{expression 29264}#
5403 (if (null? #{m1 29276}#)
5404 (if (null? #{s1 29277}#)
5406 (cons (car #{w2 29275}#)
5408 (cdr #{w2 29275}#)))
5409 (if (null? #{m2 29294}#)
5414 (cons (let ((#{m2 29302}#
5415 (car #{w2 29275}#)))
5416 (if (null? #{m2 29302}#)
5422 (cdr #{w2 29275}#)))
5423 (if (null? #{m2 29310}#)
5427 #{m2 29310}#))))))))
5434 #{expression 29264}#
5437 (if (null? #{value 28931}#)
5445 (symbol->string (gensym "i"))))
5448 (let ((#{update 29230}#
5449 (cons (vector-ref #{id 29220}# 1)
5457 (let ((#{update 29342}#
5458 (cons (car (vector-ref
5468 (let ((#{update 29357}#
5469 (cons #{label 29221}#
5478 (cdr #{body 28716}#)
5479 (cons #{id 29220}# #{ids 28717}#)
5480 (cons #{label 29221}# #{labels 28718}#)
5484 (cons (cons (if (eq? #{type 28930}#
5485 'define-syntax-parameter-form)
5489 (if (if (null? (car #{w 28933}#))
5490 (null? (cdr #{w 28933}#))
5495 (if (= (vector-length
5504 (let ((#{expression 29396}#
5517 (if (null? #{m1 29408}#)
5518 (if (null? #{s1 29409}#)
5520 (cons (car #{w2 29407}#)
5522 (cdr #{w2 29407}#)))
5523 (if (null? #{m2 29426}#)
5528 (cons (let ((#{m2 29434}#
5529 (car #{w2 29407}#)))
5530 (if (null? #{m2 29434}#)
5536 (cdr #{w2 29407}#)))
5537 (if (null? #{m2 29442}#)
5541 #{m2 29442}#))))))))
5548 #{expression 29396}#
5551 (if (null? #{e 28932}#)
5558 #{bindings 28722}#))))
5559 (if (eqv? #{type 28930}# 'begin-form)
5560 (let ((#{tmp 29469}#
5566 (lambda (#{e1 29473}#)
5570 (lambda (#{forms 29690}#)
5571 (if (null? #{forms 29690}#)
5572 (cdr #{body 28716}#)
5573 (cons (cons #{er 28724}#
5575 (car #{forms 29690}#)))
5576 (if (if (null? (car #{w 28933}#))
5577 (null? (cdr #{w 28933}#))
5582 (if (= (vector-length
5591 (let ((#{expression 29712}#
5604 (if (null? #{m1 29722}#)
5605 (if (null? #{s1 29723}#)
5607 (cons (car #{w2 29721}#)
5609 (cdr #{w2 29721}#)))
5610 (if (null? #{m2 29738}#)
5615 (cons (let ((#{m2 29746}#
5616 (car #{w2 29721}#)))
5617 (if (null? #{m2 29746}#)
5623 (cdr #{w2 29721}#)))
5624 (if (null? #{m2 29754}#)
5628 #{m2 29754}#))))))))
5635 #{expression 29712}#
5638 (if (null? #{x 29694}#)
5646 (cdr #{forms 29690}#)))))))
5647 (#{f 29474}# #{e1 29473}#))
5653 #{bindings 28722}#))
5657 "source expression failed to match any pattern"
5659 (if (eqv? #{type 28930}# 'local-syntax-form)
5660 (#{expand-local-syntax 4448}#
5667 (lambda (#{forms 29780}#
5675 (lambda (#{forms 30001}#)
5676 (if (null? #{forms 30001}#)
5677 (cdr #{body 28716}#)
5678 (cons (cons #{er 29781}#
5680 (car #{forms 30001}#)))
5681 (if (if (null? (car #{w 29782}#))
5682 (null? (cdr #{w 29782}#))
5687 (if (= (vector-length
5696 (let ((#{expression 30023}#
5709 (if (null? #{m1 30033}#)
5710 (if (null? #{s1 30034}#)
5712 (cons (car #{w2 30032}#)
5714 (cdr #{w2 30032}#)))
5715 (if (null? #{m2 30049}#)
5720 (cons (let ((#{m2 30057}#
5721 (car #{w2 30032}#)))
5722 (if (null? #{m2 30057}#)
5728 (cdr #{w2 30032}#)))
5729 (if (null? #{m2 30065}#)
5733 #{m2 30065}#))))))))
5740 #{expression 30023}#
5743 (if (null? #{x 30005}#)
5751 (cdr #{forms 30001}#)))))))
5752 (#{f 29785}# #{forms 29780}#))
5758 #{bindings 28722}#)))
5759 (if (null? #{ids 28717}#)
5760 (#{build-sequence 4392}#
5762 (map (lambda (#{x 30154}#)
5768 (cons (cons #{er 28724}#
5771 (if (if (pair? #{e 28932}#)
5774 (set-source-properties!
5778 (if (if (null? (car #{w 28933}#))
5779 (null? (cdr #{w 28933}#))
5784 (if (= (vector-length
5793 (let ((#{expression 30265}#
5806 (if (null? #{m1 30275}#)
5807 (if (null? #{s1 30276}#)
5809 (cons (car #{w2 30274}#)
5811 (cdr #{w2 30274}#)))
5812 (if (null? #{m2 30291}#)
5817 (cons (let ((#{m2 30299}#
5818 (car #{w2 30274}#)))
5819 (if (null? #{m2 30299}#)
5825 (cdr #{w2 30274}#)))
5826 (if (null? #{m2 30307}#)
5830 #{m2 30307}#))))))))
5837 #{expression 30265}#
5840 (if (null? #{x 30233}#)
5847 (cdr #{body 28716}#))))
5849 (if (not (#{valid-bound-ids? 4433}#
5853 "invalid or duplicate identifier in definition"
5854 #{outer-form 28601}#))
5857 (lambda (#{bs 30409}#
5860 (if (not (null? #{bs 30409}#))
5862 (car #{bs 30409}#)))
5863 (if (let ((#{t 30415}#
5865 (if (eq? #{t 30415}#
5869 'syntax-parameter)))
5871 (car (cdr #{b 30412}#))))
5872 (let ((#{r-cache 30418}#
5873 (if (eq? #{er 30417}#
5876 (#{macros-only-env 4407}#
5881 (#{eval-local-transformer 4449}#
5883 (cdr (cdr #{b 30412}#))
5888 (if (eq? (car #{b 30412}#)
5892 (list (cdr #{b 30412}#))))
5896 #{r-cache 30418}#))))
5900 #{r-cache 30411}#)))))))
5907 (#{extend-env 4405}#
5911 (#{build-letrec 4395}#
5917 (reverse #{vars 28720}#)
5918 (map (lambda (#{x 30846}#)
5924 (reverse #{vals 28721}#))
5925 (#{build-sequence 4392}#
5927 (map (lambda (#{x 30990}#)
5933 (cons (cons #{er 28724}#
5936 (if (if (pair? #{e 28932}#)
5939 (set-source-properties!
5943 (if (if (null? (car #{w 28933}#))
5944 (null? (cdr #{w 28933}#))
5949 (if (= (vector-length
5958 (let ((#{expression 31101}#
5971 (if (null? #{m1 31111}#)
5972 (if (null? #{s1 31112}#)
5974 (cons (car #{w2 31110}#)
5976 (cdr #{w2 31110}#)))
5977 (if (null? #{m2 31127}#)
5982 (cons (let ((#{m2 31135}#
5983 (car #{w2 31110}#)))
5984 (if (null? #{m2 31135}#)
5990 (cdr #{w2 31110}#)))
5991 (if (null? #{m2 31143}#)
5995 #{m2 31143}#))))))))
6002 #{expression 31101}#
6005 (if (null? #{x 31069}#)
6012 (cdr #{body 28716}#))))))))))))))))))
6014 (map (lambda (#{x 28611}#)
6016 (if (if (null? (car #{w 28607}#))
6017 (null? (cdr #{w 28607}#))
6020 (if (if (vector? #{x 28611}#)
6021 (if (= (vector-length #{x 28611}#) 4)
6022 (eq? (vector-ref #{x 28611}# 0)
6026 (let ((#{expression 28647}#
6027 (vector-ref #{x 28611}# 1))
6030 (vector-ref #{x 28611}# 2)))
6035 (if (null? #{m1 28659}#)
6036 (if (null? #{s1 28660}#)
6038 (cons (car #{w2 28658}#)
6040 (cdr #{w2 28658}#)))
6041 (if (null? #{m2 28677}#)
6046 (cons (let ((#{m2 28685}#
6047 (car #{w2 28658}#)))
6048 (if (null? #{m2 28685}#)
6054 (cdr #{w2 28658}#)))
6055 (if (null? #{m2 28693}#)
6059 #{m2 28693}#))))))))
6061 (vector-ref #{x 28611}# 3)))
6064 #{expression 28647}#
6067 (if (null? #{x 28611}#)
6081 (#{expand-local-syntax 4448}#
6082 (lambda (#{rec? 31158}#
6089 (let ((#{tmp 31166}#
6092 '(_ #(each (any any)) any . each-any))))
6095 (lambda (#{id 31170}#
6099 (if (not (#{valid-bound-ids? 4433}# #{id 31170}#))
6102 "duplicate bound keyword"
6104 (let ((#{labels 31270}#
6105 (#{gen-labels 4413}# #{id 31170}#)))
6106 (let ((#{new-w 31271}#
6107 (#{make-binding-wrap 4424}#
6112 (cons #{e1 31172}# #{e2 31173}#)
6113 (#{extend-env 4405}#
6115 (let ((#{trans-r 31311}#
6116 (#{macros-only-env 4407}# #{r 31160}#)))
6118 (if #{rec? 31158}# (if #f #f))
6119 (map (lambda (#{x 31312}#)
6121 (#{eval-local-transformer 4449}#
6138 "bad local syntax definition"
6141 (if (if (pair? #{e 31159}#) #{s 31162}# #f)
6142 (set-source-properties! #{e 31159}# #{s 31162}#))
6144 (if (if (null? (car #{w 31161}#))
6145 (null? (cdr #{w 31161}#))
6148 (if (if (vector? #{x 31645}#)
6149 (if (= (vector-length #{x 31645}#) 4)
6150 (eq? (vector-ref #{x 31645}# 0) 'syntax-object)
6153 (let ((#{expression 31677}# (vector-ref #{x 31645}# 1))
6155 (let ((#{w2 31686}# (vector-ref #{x 31645}# 2)))
6156 (let ((#{m1 31687}# (car #{w 31161}#))
6157 (#{s1 31688}# (cdr #{w 31161}#)))
6158 (if (null? #{m1 31687}#)
6159 (if (null? #{s1 31688}#)
6161 (cons (car #{w2 31686}#)
6163 (cdr #{w2 31686}#)))
6164 (if (null? #{m2 31703}#)
6169 (cons (let ((#{m2 31711}# (car #{w2 31686}#)))
6170 (if (null? #{m2 31711}#)
6172 (append #{m1 31687}# #{m2 31711}#)))
6173 (let ((#{m2 31719}# (cdr #{w2 31686}#)))
6174 (if (null? #{m2 31719}#)
6178 #{m2 31719}#))))))))
6179 (#{module 31679}# (vector-ref #{x 31645}# 3)))
6182 #{expression 31677}#
6185 (if (null? #{x 31645}#)
6191 #{mod 31163}#))))))))))
6192 (#{eval-local-transformer 4449}#
6193 (lambda (#{expanded 31737}# #{mod 31738}#)
6194 (let ((#{p 31739}# (primitive-eval #{expanded 31737}#)))
6195 (if (procedure? #{p 31739}#)
6199 "nonprocedure transformer"
6202 (lambda (#{x 6020}#)
6203 (if (if (if (vector? #{x 6020}#)
6204 (if (= (vector-length #{x 6020}#) 4)
6205 (eq? (vector-ref #{x 6020}# 0) 'syntax-object)
6208 (symbol? (vector-ref #{x 6020}# 1))
6217 #(ribcage #(x) #((top)) #("i2338"))
6224 expand-simple-lambda
6228 eval-local-transformer
6237 expand-install-global
6264 set-ribcage-symnames!
6295 set-syntax-object-module!
6296 set-syntax-object-wrap!
6297 set-syntax-object-expression!
6298 syntax-object-module
6300 syntax-object-expression
6314 build-global-definition
6315 build-global-assignment
6316 build-global-reference
6318 build-lexical-assignment
6319 build-lexical-reference
6326 get-global-definition-hook
6327 put-global-definition-hook
6347 make-toplevel-define
6635 define-expansion-accessors
6636 define-expansion-constructors)
6638 ("i46" "i45" "i44"))
6639 #(ribcage () () ()))
6642 (#{lambda-formals 4452}#
6643 (lambda (#{orig-args 31744}#)
6646 (lambda (#{args 31749}# #{rreq 31750}#)
6647 (let ((#{tmp 31752}# ($sc-dispatch #{args 31749}# '())))
6651 (#{check 31746}# (reverse #{rreq 31750}#) #f))
6653 (let ((#{tmp 31868}#
6654 ($sc-dispatch #{args 31749}# '(any . any))))
6655 (if (if #{tmp 31868}#
6657 (lambda (#{a 31872}# #{b 31873}#)
6658 (if (symbol? #{a 31872}#)
6660 (if (if (vector? #{a 31872}#)
6661 (if (= (vector-length #{a 31872}#) 4)
6662 (eq? (vector-ref #{a 31872}# 0)
6666 (symbol? (vector-ref #{a 31872}# 1))
6671 (lambda (#{a 31900}# #{b 31901}#)
6674 (cons #{a 31900}# #{rreq 31750}#)))
6676 (let ((#{tmp 31902}# (list #{args 31749}#)))
6678 (lambda (#{r 31904}#)
6679 (if (symbol? #{r 31904}#)
6681 (if (if (vector? #{r 31904}#)
6682 (if (= (vector-length #{r 31904}#) 4)
6683 (eq? (vector-ref #{r 31904}# 0)
6687 (symbol? (vector-ref #{r 31904}# 1))
6691 (lambda (#{r 31934}#)
6693 (reverse #{rreq 31750}#)
6698 "invalid argument list"
6700 #{args 31749}#)))))))))
6702 (lambda (#{req 32058}# #{rest 32059}#)
6703 (if (#{distinct-bound-ids? 4434}#
6705 (cons #{rest 32059}# #{req 32058}#)
6707 (values #{req 32058}# #f #{rest 32059}# #f)
6710 "duplicate identifier in argument list"
6711 #{orig-args 31744}#)))))
6712 (#{req 31745}# #{orig-args 31744}# '()))))
6713 (#{expand-simple-lambda 4453}#
6714 (lambda (#{e 32168}#
6723 (let ((#{ids 32177}#
6725 (append #{req 32173}# (list #{rest 32174}#))
6727 (let ((#{vars 32178}#
6728 (map #{gen-var 4457}# #{ids 32177}#)))
6729 (let ((#{labels 32179}#
6730 (#{gen-labels 4413}# #{ids 32177}#)))
6731 (#{build-simple-lambda 4386}#
6733 (map syntax->datum #{req 32173}#)
6735 (syntax->datum #{rest 32174}#)
6739 (#{expand-body 4447}#
6743 (if (if (pair? #{e 32168}#) #{s 32171}# #f)
6744 (set-source-properties! #{e 32168}# #{s 32171}#))
6746 (if (if (null? (car #{w 32170}#))
6747 (null? (cdr #{w 32170}#))
6750 (if (if (vector? #{x 32368}#)
6751 (if (= (vector-length #{x 32368}#) 4)
6752 (eq? (vector-ref #{x 32368}# 0) 'syntax-object)
6755 (let ((#{expression 32400}# (vector-ref #{x 32368}# 1))
6757 (let ((#{w2 32409}# (vector-ref #{x 32368}# 2)))
6758 (let ((#{m1 32410}# (car #{w 32170}#))
6759 (#{s1 32411}# (cdr #{w 32170}#)))
6760 (if (null? #{m1 32410}#)
6761 (if (null? #{s1 32411}#)
6763 (cons (car #{w2 32409}#)
6765 (cdr #{w2 32409}#)))
6766 (if (null? #{m2 32426}#)
6771 (cons (let ((#{m2 32434}#
6772 (car #{w2 32409}#)))
6773 (if (null? #{m2 32434}#)
6779 (cdr #{w2 32409}#)))
6780 (if (null? #{m2 32442}#)
6784 #{m2 32442}#))))))))
6785 (#{module 32402}# (vector-ref #{x 32368}# 3)))
6788 #{expression 32400}#
6791 (if (null? #{x 32368}#)
6798 (#{extend-var-env 4406}#
6802 (#{make-binding-wrap 4424}#
6806 #{mod 32172}#)))))))
6807 (#{lambda*-formals 4454}#
6808 (lambda (#{orig-args 32673}#)
6811 (lambda (#{args 32681}# #{rreq 32682}#)
6812 (let ((#{tmp 32684}# ($sc-dispatch #{args 32681}# '())))
6817 (reverse #{rreq 32682}#)
6822 (let ((#{tmp 32803}#
6823 ($sc-dispatch #{args 32681}# '(any . any))))
6824 (if (if #{tmp 32803}#
6826 (lambda (#{a 32807}# #{b 32808}#)
6827 (if (symbol? #{a 32807}#)
6829 (if (if (vector? #{a 32807}#)
6830 (if (= (vector-length #{a 32807}#) 4)
6831 (eq? (vector-ref #{a 32807}# 0)
6835 (symbol? (vector-ref #{a 32807}# 1))
6840 (lambda (#{a 32835}# #{b 32836}#)
6843 (cons #{a 32835}# #{rreq 32682}#)))
6845 (let ((#{tmp 32837}#
6846 ($sc-dispatch #{args 32681}# '(any . any))))
6847 (if (if #{tmp 32837}#
6849 (lambda (#{a 32841}# #{b 32842}#)
6850 (eq? (syntax->datum #{a 32841}#) #:optional))
6854 (lambda (#{a 32843}# #{b 32844}#)
6857 (reverse #{rreq 32682}#)
6860 (let ((#{tmp 32847}#
6861 ($sc-dispatch #{args 32681}# '(any . any))))
6862 (if (if #{tmp 32847}#
6864 (lambda (#{a 32851}# #{b 32852}#)
6865 (eq? (syntax->datum #{a 32851}#) #:key))
6869 (lambda (#{a 32853}# #{b 32854}#)
6872 (reverse #{rreq 32682}#)
6876 (let ((#{tmp 32857}#
6880 (if (if #{tmp 32857}#
6882 (lambda (#{a 32861}# #{b 32862}#)
6883 (eq? (syntax->datum #{a 32861}#)
6888 (lambda (#{a 32863}# #{b 32864}#)
6891 (reverse #{rreq 32682}#)
6895 (let ((#{tmp 32867}# (list #{args 32681}#)))
6897 (lambda (#{r 32869}#)
6898 (if (symbol? #{r 32869}#)
6900 (if (if (vector? #{r 32869}#)
6901 (if (= (vector-length
6911 (vector-ref #{r 32869}# 1))
6915 (lambda (#{r 32899}#)
6918 (reverse #{rreq 32682}#)
6924 "invalid argument list"
6926 #{args 32681}#)))))))))))))))
6928 (lambda (#{args 32918}# #{req 32919}# #{ropt 32920}#)
6929 (let ((#{tmp 32922}# ($sc-dispatch #{args 32918}# '())))
6935 (reverse #{ropt 32920}#)
6939 (let ((#{tmp 33043}#
6940 ($sc-dispatch #{args 32918}# '(any . any))))
6941 (if (if #{tmp 33043}#
6943 (lambda (#{a 33047}# #{b 33048}#)
6944 (if (symbol? #{a 33047}#)
6946 (if (if (vector? #{a 33047}#)
6947 (if (= (vector-length #{a 33047}#) 4)
6948 (eq? (vector-ref #{a 33047}# 0)
6952 (symbol? (vector-ref #{a 33047}# 1))
6957 (lambda (#{a 33075}# #{b 33076}#)
6961 (cons (cons #{a 33075}#
6972 #((top) (top) (top))
6973 #("i2467" "i2468" "i2469"))
6975 (check rest key opt req)
6976 ((top) (top) (top) (top) (top))
6992 expand-simple-lambda
6996 eval-local-transformer
7005 expand-install-global
7032 set-ribcage-symnames!
7063 set-syntax-object-module!
7064 set-syntax-object-wrap!
7065 set-syntax-object-expression!
7066 syntax-object-module
7068 syntax-object-expression
7082 build-global-definition
7083 build-global-assignment
7084 build-global-reference
7086 build-lexical-assignment
7087 build-lexical-reference
7094 get-global-definition-hook
7095 put-global-definition-hook
7115 make-toplevel-define
7403 define-expansion-accessors
7404 define-expansion-constructors)
7406 ("i46" "i45" "i44"))
7407 #(ribcage () () ()))
7411 (let ((#{tmp 33077}#
7414 '((any any) . any))))
7415 (if (if #{tmp 33077}#
7417 (lambda (#{a 33081}#
7420 (if (symbol? #{a 33081}#)
7422 (if (if (vector? #{a 33081}#)
7423 (if (= (vector-length #{a 33081}#) 4)
7424 (eq? (vector-ref #{a 33081}# 0)
7428 (symbol? (vector-ref #{a 33081}# 1))
7433 (lambda (#{a 33110}# #{init 33111}# #{b 33112}#)
7437 (cons (list #{a 33110}# #{init 33111}#)
7440 (let ((#{tmp 33113}#
7441 ($sc-dispatch #{args 32918}# '(any . any))))
7442 (if (if #{tmp 33113}#
7444 (lambda (#{a 33117}# #{b 33118}#)
7445 (eq? (syntax->datum #{a 33117}#) #:key))
7449 (lambda (#{a 33119}# #{b 33120}#)
7453 (reverse #{ropt 32920}#)
7456 (let ((#{tmp 33123}#
7460 (if (if #{tmp 33123}#
7462 (lambda (#{a 33127}# #{b 33128}#)
7463 (eq? (syntax->datum #{a 33127}#)
7468 (lambda (#{a 33129}# #{b 33130}#)
7472 (reverse #{ropt 32920}#)
7475 (let ((#{tmp 33133}# (list #{args 32918}#)))
7477 (lambda (#{r 33135}#)
7478 (if (symbol? #{r 33135}#)
7480 (if (if (vector? #{r 33135}#)
7481 (if (= (vector-length
7491 (vector-ref #{r 33135}# 1))
7495 (lambda (#{r 33165}#)
7499 (reverse #{ropt 32920}#)
7504 "invalid optional argument list"
7506 #{args 32918}#)))))))))))))))
7508 (lambda (#{args 33184}#
7512 (let ((#{tmp 33189}# ($sc-dispatch #{args 33184}# '())))
7520 (cons #f (reverse #{rkey 33187}#))))
7522 (let ((#{tmp 33311}#
7523 ($sc-dispatch #{args 33184}# '(any . any))))
7524 (if (if #{tmp 33311}#
7526 (lambda (#{a 33315}# #{b 33316}#)
7527 (if (symbol? #{a 33315}#)
7529 (if (if (vector? #{a 33315}#)
7530 (if (= (vector-length #{a 33315}#) 4)
7531 (eq? (vector-ref #{a 33315}# 0)
7535 (symbol? (vector-ref #{a 33315}# 1))
7540 (lambda (#{a 33343}# #{b 33344}#)
7541 (let ((#{tmp 33345}#
7543 (syntax->datum #{a 33343}#))))
7548 (cons (cons #{tmp 33345}#
7564 #(args req opt rkey)
7574 (check rest key opt req)
7595 expand-simple-lambda
7599 eval-local-transformer
7608 expand-install-global
7635 set-ribcage-symnames!
7666 set-syntax-object-module!
7667 set-syntax-object-wrap!
7668 set-syntax-object-expression!
7669 syntax-object-module
7671 syntax-object-expression
7685 build-global-definition
7686 build-global-assignment
7687 build-global-reference
7689 build-lexical-assignment
7690 build-lexical-reference
7697 get-global-definition-hook
7698 put-global-definition-hook
7718 make-toplevel-define
8006 define-expansion-accessors
8007 define-expansion-constructors)
8009 ("i46" "i45" "i44"))
8010 #(ribcage () () ()))
8014 (let ((#{tmp 33348}#
8017 '((any any) . any))))
8018 (if (if #{tmp 33348}#
8020 (lambda (#{a 33352}#
8023 (if (symbol? #{a 33352}#)
8025 (if (if (vector? #{a 33352}#)
8026 (if (= (vector-length #{a 33352}#) 4)
8027 (eq? (vector-ref #{a 33352}# 0)
8031 (symbol? (vector-ref #{a 33352}# 1))
8036 (lambda (#{a 33381}# #{init 33382}# #{b 33383}#)
8037 (let ((#{tmp 33384}#
8039 (syntax->datum #{a 33381}#))))
8044 (cons (list #{tmp 33384}#
8049 (let ((#{tmp 33387}#
8052 '((any any any) . any))))
8053 (if (if #{tmp 33387}#
8055 (lambda (#{a 33391}#
8059 (if (if (symbol? #{a 33391}#)
8061 (if (if (vector? #{a 33391}#)
8062 (if (= (vector-length
8072 (vector-ref #{a 33391}# 1))
8074 (keyword? (syntax->datum #{k 33393}#))
8079 (lambda (#{a 33421}#
8087 (cons (list #{k 33423}#
8092 (let ((#{tmp 33425}#
8093 ($sc-dispatch #{args 33184}# '(any))))
8094 (if (if #{tmp 33425}#
8096 (lambda (#{aok 33429}#)
8097 (eq? (syntax->datum #{aok 33429}#)
8098 #:allow-other-keys))
8102 (lambda (#{aok 33430}#)
8107 (cons #t (reverse #{rkey 33187}#))))
8109 (let ((#{tmp 33549}#
8113 (if (if #{tmp 33549}#
8115 (lambda (#{aok 33553}#
8118 (if (eq? (syntax->datum
8128 (lambda (#{aok 33556}#
8136 (reverse #{rkey 33187}#))))
8138 (let ((#{tmp 33561}#
8142 (if (if #{tmp 33561}#
8144 (lambda (#{aok 33565}#
8146 (if (eq? (syntax->datum
8149 (if (symbol? #{r 33566}#)
8153 (if (= (vector-length
8171 (lambda (#{aok 33593}# #{r 33594}#)
8180 (let ((#{tmp 33597}#
8184 (if (if #{tmp 33597}#
8186 (lambda (#{a 33601}#
8194 (lambda (#{a 33603}#
8204 (let ((#{tmp 33607}#
8205 (list #{args 33184}#)))
8207 (lambda (#{r 33609}#)
8213 (if (= (vector-length
8229 (lambda (#{r 33639}#)
8240 "invalid keyword argument list"
8242 #{args 33184}#)))))))))))))))))))))
8244 (lambda (#{args 33667}#
8248 (let ((#{tmp 33672}# (list #{args 33667}#)))
8250 (lambda (#{r 33674}#)
8251 (if (symbol? #{r 33674}#)
8253 (if (if (vector? #{r 33674}#)
8254 (if (= (vector-length #{r 33674}#) 4)
8255 (eq? (vector-ref #{r 33674}# 0)
8259 (symbol? (vector-ref #{r 33674}# 1))
8263 (lambda (#{r 33704}#)
8272 "invalid rest argument"
8276 (lambda (#{req 33832}#
8280 (if (#{distinct-bound-ids? 4434}#
8283 (map car #{opt 33833}#)
8284 (if #{rest 33834}# (list #{rest 33834}#) '())
8285 (if (pair? #{kw 33835}#)
8286 (map cadr (cdr #{kw 33835}#))
8295 "duplicate identifier in argument list"
8296 #{orig-args 32673}#)))))
8297 (#{req 32674}# #{orig-args 32673}# '()))))
8298 (#{expand-lambda-case 4455}#
8299 (lambda (#{e 33944}#
8304 #{get-formals 33949}#
8307 ((#{parse-req 33951}#
8308 (lambda (#{req 34087}#
8313 (let ((#{vars 34092}#
8314 (map #{gen-var 4457}# #{req 34087}#))
8316 (#{gen-labels 4413}# #{req 34087}#)))
8318 (#{extend-var-env 4406}#
8323 (#{make-binding-wrap 4424}#
8327 (#{parse-opt 33952}#
8328 (map syntax->datum #{req 34087}#)
8333 (reverse #{vars 34092}#)
8338 (#{parse-opt 33952}#
8339 (lambda (#{req 34331}#
8349 (if (pair? #{opt 34332}#)
8350 (let ((#{tmp 34341}# (car #{opt 34332}#)))
8351 (let ((#{tmp 34342}#
8352 ($sc-dispatch #{tmp 34341}# '(any any))))
8355 (lambda (#{id 34344}# #{i 34345}#)
8358 (if (if (vector? #{id 34344}#)
8359 (if (= (vector-length
8368 (vector-ref #{id 34344}# 1)
8372 (symbol->string #{id 34354}#)
8375 (#{gen-labels 4413}# (list #{v 34346}#))))
8376 (let ((#{r** 34348}#
8377 (#{extend-var-env 4406}#
8381 (let ((#{w** 34349}#
8382 (#{make-binding-wrap 4424}#
8386 (#{parse-opt 33952}#
8392 (cons #{v 34346}# #{vars 34336}#)
8395 (cons (syntax->datum #{id 34344}#)
8397 (cons (#{expand 4443}#
8402 #{inits 34340}#)))))))
8406 "source expression failed to match any pattern"
8411 (if (if (vector? #{rest 34333}#)
8412 (if (= (vector-length #{rest 34333}#)
8414 (eq? (vector-ref #{rest 34333}# 0)
8418 (vector-ref #{rest 34333}# 1)
8422 (symbol->string #{id 34665}#)
8425 (#{gen-labels 4413}# (list #{v 34655}#))))
8427 (#{extend-var-env 4406}#
8432 (#{make-binding-wrap 4424}#
8433 (list #{rest 34333}#)
8438 (if (pair? #{out 34339}#)
8439 (reverse #{out 34339}#)
8441 (syntax->datum #{rest 34333}#)
8442 (if (pair? #{kw 34334}#)
8446 (cons #{v 34655}# #{vars 34336}#)
8449 (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
8451 #{inits 34340}#)))))
8454 (if (pair? #{out 34339}#)
8455 (reverse #{out 34339}#)
8458 (if (pair? #{kw 34334}#)
8465 (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f)
8467 #{inits 34340}#)))))
8469 (lambda (#{req 34887}#
8480 (if (pair? #{kw 34890}#)
8481 (let ((#{tmp 34898}# (car #{kw 34890}#)))
8482 (let ((#{tmp 34899}#
8483 ($sc-dispatch #{tmp 34898}# '(any any any))))
8486 (lambda (#{k 34901}# #{id 34902}# #{i 34903}#)
8489 (if (if (vector? #{id 34902}#)
8490 (if (= (vector-length
8499 (vector-ref #{id 34902}# 1)
8503 (symbol->string #{id 34912}#)
8506 (#{gen-labels 4413}# (list #{v 34904}#))))
8507 (let ((#{r** 34906}#
8508 (#{extend-var-env 4406}#
8512 (let ((#{w** 34907}#
8513 (#{make-binding-wrap 4424}#
8523 (cons #{v 34904}# #{vars 34892}#)
8527 (cons (list (syntax->datum #{k 34901}#)
8528 (syntax->datum #{id 34902}#)
8531 (cons (#{expand 4443}#
8536 #{inits 34897}#)))))))
8540 "source expression failed to match any pattern"
8542 (#{parse-body 33954}#
8546 (if (if #{aok 34895}#
8548 (pair? #{out 34896}#))
8549 (cons #{aok 34895}# (reverse #{out 34896}#))
8552 (reverse #{vars 34892}#)
8555 (reverse #{inits 34897}#)
8557 (#{parse-body 33954}#
8558 (lambda (#{req 35222}#
8568 (let ((#{tmp 35233}#
8571 '(any any . each-any))))
8572 (if (if #{tmp 35233}#
8574 (lambda (#{docstring 35237}# #{e1 35238}# #{e2 35239}#)
8575 (string? (syntax->datum #{docstring 35237}#)))
8579 (lambda (#{docstring 35240}# #{e1 35241}# #{e2 35242}#)
8580 (#{parse-body 33954}#
8585 (cons #{e1 35241}# #{e2 35242}#)
8592 (list (cons 'documentation
8593 (syntax->datum #{docstring 35240}#))))))
8595 (let ((#{tmp 35243}#
8598 '(#(vector #(each (any . any))) any . each-any))))
8601 (lambda (#{k 35247}#
8605 (#{parse-body 33954}#
8610 (cons #{e1 35249}# #{e2 35250}#)
8618 (map cons #{k 35247}# #{v 35248}#)))))
8620 (let ((#{tmp 35251}#
8621 ($sc-dispatch #{body 35226}# '(any . each-any))))
8624 (lambda (#{e1 35255}# #{e2 35256}#)
8633 (#{expand-body 4447}#
8634 (cons #{e1 35255}# #{e2 35256}#)
8637 (if (if (pair? #{e 33944}#)
8640 (set-source-properties!
8644 (if (if (null? (car #{w 33946}#))
8645 (null? (cdr #{w 33946}#))
8648 (if (if (vector? #{x 35268}#)
8649 (if (= (vector-length #{x 35268}#)
8651 (eq? (vector-ref #{x 35268}# 0)
8655 (let ((#{expression 35300}#
8656 (vector-ref #{x 35268}# 1))
8666 (if (null? #{m1 35310}#)
8667 (if (null? #{s1 35311}#)
8669 (cons (car #{w2 35309}#)
8671 (cdr #{w2 35309}#)))
8672 (if (null? #{m2 35326}#)
8677 (cons (let ((#{m2 35334}#
8678 (car #{w2 35309}#)))
8679 (if (null? #{m2 35334}#)
8685 (cdr #{w2 35309}#)))
8686 (if (null? #{m2 35342}#)
8690 #{m2 35342}#))))))))
8692 (vector-ref #{x 35268}# 3)))
8695 #{expression 35300}#
8698 (if (null? #{x 35268}#)
8711 "source expression failed to match any pattern"
8712 #{body 35226}#))))))))))
8713 (let ((#{tmp 33956}#
8714 ($sc-dispatch #{clauses 33950}# '())))
8717 (lambda () (values '() #f))
8719 (let ((#{tmp 33961}#
8722 '((any any . each-any)
8724 #(each (any any . each-any))))))
8727 (lambda (#{args 33965}#
8735 (#{get-formals 33949}# #{args 33965}#))
8736 (lambda (#{req 33971}#
8742 (#{parse-req 33951}#
8747 (cons #{e1 33966}# #{e2 33967}#)))
8748 (lambda (#{meta 34043}#
8758 (#{expand-lambda-case 4455}#
8764 #{get-formals 33949}#
8765 (map (lambda (#{tmp 2883 34051}#
8768 (cons #{tmp 2881 34053}#
8769 (cons #{tmp 2882 34052}#
8770 #{tmp 2883 34051}#)))
8774 (lambda (#{meta* 34054}# #{else* 34055}#)
8776 (append #{meta 34043}# #{meta* 34054}#)
8777 (make-struct/no-tail
8778 (vector-ref %expanded-vtables 15)
8787 #{else* 34055}#)))))))))
8791 "source expression failed to match any pattern"
8792 #{clauses 33950}#))))))))
8794 (lambda (#{x 35369}# #{w 35370}#)
8795 (if (memq 'top (car #{w 35370}#))
8799 (lambda (#{x 35374}#)
8800 (if (if (vector? #{x 35374}#)
8801 (if (= (vector-length #{x 35374}#) 4)
8802 (eq? (vector-ref #{x 35374}# 0) 'syntax-object)
8806 (vector-ref #{x 35374}# 1)
8807 (vector-ref #{x 35374}# 2))
8808 (if (pair? #{x 35374}#)
8809 (let ((#{a 35393}# (#{f 35371}# (car #{x 35374}#)))
8810 (#{d 35394}# (#{f 35371}# (cdr #{x 35374}#))))
8811 (if (if (eq? #{a 35393}# (car #{x 35374}#))
8812 (eq? #{d 35394}# (cdr #{x 35374}#))
8815 (cons #{a 35393}# #{d 35394}#)))
8816 (if (vector? #{x 35374}#)
8817 (let ((#{old 35397}# (vector->list #{x 35374}#)))
8818 (let ((#{new 35398}# (map #{f 35371}# #{old 35397}#)))
8821 (lambda (#{l1 35496}# #{l2 35497}#)
8822 (if (null? #{l1 35496}#)
8824 (if (eq? (car #{l1 35496}#)
8829 (list->vector #{new 35398}#))))))
8830 (#{lp 35399}# #{old 35397}# #{new 35398}#))))
8832 (#{f 35371}# #{x 35369}#)))))
8834 (lambda (#{id 34099}#)
8836 (if (if (vector? #{id 34099}#)
8837 (if (= (vector-length #{id 34099}#) 4)
8838 (eq? (vector-ref #{id 34099}# 0) 'syntax-object)
8841 (vector-ref #{id 34099}# 1)
8844 (string-append (symbol->string #{id 34100}#) " ")))))
8845 (#{lambda-var-list 4458}#
8846 (lambda (#{vars 35498}#)
8849 (lambda (#{vars 35502}# #{ls 35503}# #{w 35504}#)
8850 (if (pair? #{vars 35502}#)
8852 (cdr #{vars 35502}#)
8853 (cons (let ((#{x 35508}# (car #{vars 35502}#)))
8854 (if (if (null? (car #{w 35504}#))
8855 (null? (cdr #{w 35504}#))
8858 (if (if (vector? #{x 35508}#)
8859 (if (= (vector-length #{x 35508}#) 4)
8860 (eq? (vector-ref #{x 35508}# 0)
8864 (let ((#{expression 35526}#
8865 (vector-ref #{x 35508}# 1))
8868 (vector-ref #{x 35508}# 2)))
8869 (let ((#{m1 35536}# (car #{w 35504}#))
8870 (#{s1 35537}# (cdr #{w 35504}#)))
8871 (if (null? #{m1 35536}#)
8872 (if (null? #{s1 35537}#)
8874 (cons (car #{w2 35535}#)
8876 (cdr #{w2 35535}#)))
8877 (if (null? #{m2 35552}#)
8882 (cons (let ((#{m2 35560}#
8883 (car #{w2 35535}#)))
8884 (if (null? #{m2 35560}#)
8890 (cdr #{w2 35535}#)))
8891 (if (null? #{m2 35568}#)
8895 #{m2 35568}#))))))))
8897 (vector-ref #{x 35508}# 3)))
8900 #{expression 35526}#
8903 (if (null? #{x 35508}#)
8912 (if (if (symbol? #{vars 35502}#)
8914 (if (if (vector? #{vars 35502}#)
8915 (if (= (vector-length #{vars 35502}#) 4)
8916 (eq? (vector-ref #{vars 35502}# 0)
8920 (symbol? (vector-ref #{vars 35502}# 1))
8922 (cons (if (if (null? (car #{w 35504}#))
8923 (null? (cdr #{w 35504}#))
8926 (if (if (vector? #{vars 35502}#)
8927 (if (= (vector-length #{vars 35502}#) 4)
8928 (eq? (vector-ref #{vars 35502}# 0)
8932 (let ((#{expression 35638}#
8933 (vector-ref #{vars 35502}# 1))
8936 (vector-ref #{vars 35502}# 2)))
8937 (let ((#{m1 35650}# (car #{w 35504}#))
8938 (#{s1 35651}# (cdr #{w 35504}#)))
8939 (if (null? #{m1 35650}#)
8940 (if (null? #{s1 35651}#)
8942 (cons (car #{w2 35649}#)
8944 (cdr #{w2 35649}#)))
8945 (if (null? #{m2 35668}#)
8950 (cons (let ((#{m2 35676}#
8951 (car #{w2 35649}#)))
8952 (if (null? #{m2 35676}#)
8958 (cdr #{w2 35649}#)))
8959 (if (null? #{m2 35684}#)
8963 #{m2 35684}#))))))))
8965 (vector-ref #{vars 35502}# 3)))
8968 #{expression 35638}#
8971 (if (null? #{vars 35502}#)
8979 (if (null? #{vars 35502}#)
8981 (if (if (vector? #{vars 35502}#)
8982 (if (= (vector-length #{vars 35502}#) 4)
8983 (eq? (vector-ref #{vars 35502}# 0)
8988 (vector-ref #{vars 35502}# 1)
8990 (let ((#{w2 35725}# (vector-ref #{vars 35502}# 2)))
8991 (let ((#{m1 35726}# (car #{w 35504}#))
8992 (#{s1 35727}# (cdr #{w 35504}#)))
8993 (if (null? #{m1 35726}#)
8994 (if (null? #{s1 35727}#)
8996 (cons (car #{w2 35725}#)
8997 (let ((#{m2 35738}# (cdr #{w2 35725}#)))
8998 (if (null? #{m2 35738}#)
9003 (cons (let ((#{m2 35746}# (car #{w2 35725}#)))
9004 (if (null? #{m2 35746}#)
9006 (append #{m1 35726}# #{m2 35746}#)))
9007 (let ((#{m2 35754}# (cdr #{w2 35725}#)))
9008 (if (null? #{m2 35754}#)
9012 #{m2 35754}#))))))))
9013 (cons #{vars 35502}# #{ls 35503}#))))))))
9014 (#{lvl 35499}# #{vars 35498}# '() '(()))))))
9019 (make-syntax-transformer
9026 (make-syntax-transformer
9030 (#{global-extend 4408}#
9032 'syntax-parameterize
9041 '(_ #(each (any any)) any . each-any))))
9042 (if (if #{tmp 4591}#
9044 (lambda (#{var 4595}#
9048 (#{valid-bound-ids? 4433}# #{var 4595}#))
9052 (lambda (#{var 4683}#
9056 (let ((#{names 4687}#
9057 (map (lambda (#{x 5036}#)
9060 (#{resolve-identifier 4430}#
9066 (lambda (#{type 5039}#
9069 (if (eqv? #{type 5039}# 'displaced-lexical)
9071 'syntax-parameterize
9072 "identifier out of context"
9076 (if (if (pair? #{x 5036}#)
9079 (set-source-properties!
9083 (if (if (null? (car #{w 4587}#))
9084 (null? (cdr #{w 4587}#))
9087 (if (if (vector? #{x 5054}#)
9088 (if (= (vector-length
9097 (let ((#{expression 5086}#
9098 (vector-ref #{x 5054}# 1))
9108 (if (null? #{m1 5096}#)
9109 (if (null? #{s1 5097}#)
9111 (cons (car #{w2 5095}#)
9114 (if (null? #{m2 5112}#)
9119 (cons (let ((#{m2 5120}#
9121 (if (null? #{m2 5120}#)
9128 (if (null? #{m2 5128}#)
9142 (if (null? #{x 5054}#)
9149 (if (eqv? #{type 5039}# 'syntax-parameter)
9152 'syntax-parameterize
9153 "invalid syntax parameter"
9157 (if (if (pair? #{x 5036}#)
9160 (set-source-properties!
9164 (if (if (null? (car #{w 4587}#))
9165 (null? (cdr #{w 4587}#))
9168 (if (if (vector? #{x 5155}#)
9169 (if (= (vector-length
9178 (let ((#{expression 5187}#
9191 (if (null? #{m1 5197}#)
9192 (if (null? #{s1 5198}#)
9194 (cons (car #{w2 5196}#)
9197 (if (null? #{m2 5213}#)
9202 (cons (let ((#{m2 5221}#
9204 (if (null? #{m2 5221}#)
9211 (if (null? #{m2 5229}#)
9225 (if (null? #{x 5155}#)
9231 #{mod 5041}#)))))))))))
9234 (let ((#{trans-r 5244}#
9235 (#{macros-only-env 4407}# #{r 4586}#)))
9236 (map (lambda (#{x 5245}#)
9238 (#{eval-local-transformer 4449}#
9246 (#{expand-body 4447}#
9247 (cons #{e1 4685}# #{e2 4686}#)
9250 (if (if (pair? #{e 4585}#) #{s 4588}# #f)
9251 (set-source-properties! #{e 4585}# #{s 4588}#))
9253 (if (if (null? (car #{w 4587}#))
9254 (null? (cdr #{w 4587}#))
9257 (if (if (vector? #{x 4700}#)
9258 (if (= (vector-length #{x 4700}#) 4)
9259 (eq? (vector-ref #{x 4700}# 0) 'syntax-object)
9262 (let ((#{expression 4732}# (vector-ref #{x 4700}# 1))
9265 (vector-ref #{x 4700}# 2)))
9266 (let ((#{m1 4742}# (car #{w 4587}#))
9267 (#{s1 4743}# (cdr #{w 4587}#)))
9268 (if (null? #{m1 4742}#)
9269 (if (null? #{s1 4743}#)
9271 (cons (car #{w2 4741}#)
9274 (if (null? #{m2 4758}#)
9279 (cons (let ((#{m2 4766}#
9281 (if (null? #{m2 4766}#)
9288 (if (null? #{m2 4774}#)
9293 (#{module 4734}# (vector-ref #{x 4700}# 3)))
9299 (if (null? #{x 4700}#)
9306 (#{extend-env 4405}#
9314 'syntax-parameterize
9318 (if (if (pair? #{e 4585}#) #{s 4588}# #f)
9319 (set-source-properties! #{e 4585}# #{s 4588}#))
9321 (if (if (null? (car #{w 4587}#))
9322 (null? (cdr #{w 4587}#))
9325 (if (if (vector? #{x 5469}#)
9326 (if (= (vector-length #{x 5469}#) 4)
9327 (eq? (vector-ref #{x 5469}# 0) 'syntax-object)
9330 (let ((#{expression 5501}# (vector-ref #{x 5469}# 1))
9332 (let ((#{w2 5510}# (vector-ref #{x 5469}# 2)))
9333 (let ((#{m1 5511}# (car #{w 4587}#))
9334 (#{s1 5512}# (cdr #{w 4587}#)))
9335 (if (null? #{m1 5511}#)
9336 (if (null? #{s1 5512}#)
9338 (cons (car #{w2 5510}#)
9341 (if (null? #{m2 5527}#)
9346 (cons (let ((#{m2 5535}# (car #{w2 5510}#)))
9347 (if (null? #{m2 5535}#)
9349 (append #{m1 5511}# #{m2 5535}#)))
9350 (let ((#{m2 5543}# (cdr #{w2 5510}#)))
9351 (if (null? #{m2 5543}#)
9356 (#{module 5503}# (vector-ref #{x 5469}# 3)))
9362 (if (null? #{x 5469}#)
9368 #{mod 4589}#))))))))))
9372 (make-syntax-transformer
9380 (let ((#{tmp 5577}# ($sc-dispatch #{e 5571}# '(_ any))))
9383 (lambda (#{e 5580}#)
9385 (#{strip 4456}# #{e 5580}# #{w 5573}#)))
9386 (make-struct/no-tail
9387 (vector-ref %expanded-vtables 1)
9396 (if (if (pair? #{e 5571}#) #{s 5574}# #f)
9397 (set-source-properties! #{e 5571}# #{s 5574}#))
9399 (if (if (null? (car #{w 5573}#))
9400 (null? (cdr #{w 5573}#))
9403 (if (if (vector? #{x 5598}#)
9404 (if (= (vector-length #{x 5598}#) 4)
9405 (eq? (vector-ref #{x 5598}# 0) 'syntax-object)
9408 (let ((#{expression 5630}# (vector-ref #{x 5598}# 1))
9410 (let ((#{w2 5639}# (vector-ref #{x 5598}# 2)))
9411 (let ((#{m1 5640}# (car #{w 5573}#))
9412 (#{s1 5641}# (cdr #{w 5573}#)))
9413 (if (null? #{m1 5640}#)
9414 (if (null? #{s1 5641}#)
9416 (cons (car #{w2 5639}#)
9419 (if (null? #{m2 5656}#)
9424 (cons (let ((#{m2 5664}#
9426 (if (null? #{m2 5664}#)
9433 (if (null? #{m2 5672}#)
9438 (#{module 5632}# (vector-ref #{x 5598}# 3)))
9444 (if (null? #{x 5598}#)
9450 #{mod 5575}#)))))))))))
9451 (#{global-extend 4408}#
9455 ((#{gen-syntax 5896}#
9456 (lambda (#{src 6359}#
9462 (if (if (symbol? #{e 6360}#)
9464 (if (if (vector? #{e 6360}#)
9465 (if (= (vector-length #{e 6360}#) 4)
9466 (eq? (vector-ref #{e 6360}# 0) 'syntax-object)
9469 (symbol? (vector-ref #{e 6360}# 1))
9473 (#{resolve-identifier 4430}#
9479 (lambda (#{type 6393}# #{value 6394}# #{mod 6395}#)
9480 (if (eqv? #{type 6393}# 'syntax)
9485 (car #{value 6394}#)
9486 (cdr #{value 6394}#)
9488 (lambda (#{var 6401}# #{maps 6402}#)
9489 (values (list 'ref #{var 6401}#) #{maps 6402}#)))
9490 (if (#{ellipsis? 6363}# #{e 6360}#)
9493 "misplaced ellipsis"
9495 (values (list 'quote #{e 6360}#) #{maps 6362}#)))))
9497 ($sc-dispatch #{e 6360}# '(any any))))
9498 (if (if #{tmp 6404}#
9500 (lambda (#{dots 6408}# #{e 6409}#)
9501 (#{ellipsis? 6363}# #{dots 6408}#))
9505 (lambda (#{dots 6410}# #{e 6411}#)
9506 (#{gen-syntax 5896}#
9511 (lambda (#{x 6412}#) #f)
9515 ($sc-dispatch #{e 6360}# '(any any . any))))
9516 (if (if #{tmp 6413}#
9518 (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#)
9519 (#{ellipsis? 6363}# #{dots 6418}#))
9523 (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#)
9526 (lambda (#{y 6431}# #{k 6432}#)
9531 (if (if #{tmp 6434}#
9533 (lambda (#{dots 6438}# #{y 6439}#)
9539 (lambda (#{dots 6440}# #{y 6441}#)
9542 (lambda (#{maps 6442}#)
9546 (cons '() #{maps 6442}#)))
9549 (if (null? (car #{maps 6444}#))
9555 (let ((#{map-env 6448}#
9556 (car #{maps 6444}#)))
9563 (cdr #{maps 6444}#))))))))
9567 (#{gen-syntax 5896}#
9574 (lambda (#{y 6451}# #{maps 6452}#)
9577 (#{k 6432}# #{maps 6452}#))
9578 (lambda (#{x 6453}# #{maps 6454}#)
9580 (if (equal? #{y 6451}# ''())
9585 #{maps 6454}#))))))))))
9588 (lambda (#{maps 6426}#)
9591 (#{gen-syntax 5896}#
9595 (cons '() #{maps 6426}#)
9598 (lambda (#{x 6427}# #{maps 6428}#)
9599 (if (null? (car #{maps 6428}#))
9607 (car #{maps 6428}#))
9608 (cdr #{maps 6428}#)))))))))
9611 ($sc-dispatch #{e 6360}# '(any . any))))
9614 (lambda (#{x 6474}# #{y 6475}#)
9617 (#{gen-syntax 5896}#
9624 (lambda (#{x 6476}# #{maps 6477}#)
9627 (#{gen-syntax 5896}#
9634 (lambda (#{y 6478}# #{maps 6479}#)
9636 (let ((#{atom-key 6484}#
9638 (if (eqv? #{atom-key 6484}# 'quote)
9639 (if (eq? (car #{x 6476}#) 'quote)
9641 (cons (car (cdr #{x 6476}#))
9642 (car (cdr #{y 6478}#))))
9643 (if (eq? (car (cdr #{y 6478}#))
9645 (list 'list #{x 6476}#)
9649 (if (eqv? #{atom-key 6484}# 'list)
9661 '#(vector (any . each-any)))))
9664 (lambda (#{e1 6517}# #{e2 6518}#)
9667 (#{gen-syntax 5896}#
9669 (cons #{e1 6517}# #{e2 6518}#)
9674 (lambda (#{e 6519}# #{maps 6520}#)
9676 (if (eq? (car #{e 6519}#) 'list)
9677 (cons 'vector (cdr #{e 6519}#))
9678 (if (eq? (car #{e 6519}#) 'quote)
9681 (car (cdr #{e 6519}#))))
9682 (list 'list->vector #{e 6519}#)))
9686 (list 'quote #{e 6360}#)
9687 #{maps 6362}#))))))))))))
9689 (lambda (#{src 6547}#
9693 (if (= #{level 6549}# 0)
9694 (values #{var 6548}# #{maps 6550}#)
9695 (if (null? #{maps 6550}#)
9705 (#{1-}# #{level 6549}#)
9706 (cdr #{maps 6550}#)))
9707 (lambda (#{outer-var 6551}# #{outer-maps 6552}#)
9709 (assq #{outer-var 6551}# (car #{maps 6550}#))))
9711 (values (cdr #{b 6553}#) #{maps 6550}#)
9712 (let ((#{inner-var 6555}#
9714 (string-append (symbol->string 'tmp) " "))))
9717 (cons (cons (cons #{outer-var 6551}#
9719 (car #{maps 6550}#))
9720 #{outer-maps 6552}#)))))))))))
9722 (lambda (#{e 6569}# #{map-env 6570}#)
9723 (let ((#{formals 6571}# (map cdr #{map-env 6570}#))
9725 (map (lambda (#{x 6574}#)
9726 (list 'ref (car #{x 6574}#)))
9728 (if (eq? (car #{e 6569}#) 'ref)
9729 (car #{actuals 6572}#)
9731 (lambda (#{x 6575}#)
9732 (if (eq? (car #{x 6575}#) 'ref)
9733 (memq (car (cdr #{x 6575}#)) #{formals 6571}#)
9737 (cons (list 'primitive (car #{e 6569}#))
9738 (map (let ((#{r 6577}#
9742 (lambda (#{x 6578}#)
9743 (cdr (assq (car (cdr #{x 6578}#))
9747 (cons (list 'lambda #{formals 6571}# #{e 6569}#)
9748 #{actuals 6572}#)))))))
9750 (lambda (#{x 6580}#)
9751 (let ((#{atom-key 6581}# (car #{x 6580}#)))
9752 (if (eqv? #{atom-key 6581}# 'ref)
9753 (let ((#{name 6591}# (car (cdr #{x 6580}#)))
9754 (#{var 6592}# (car (cdr #{x 6580}#))))
9755 (make-struct/no-tail
9756 (vector-ref %expanded-vtables 3)
9760 (if (eqv? #{atom-key 6581}# 'primitive)
9761 (let ((#{name 6603}# (car (cdr #{x 6580}#))))
9762 (make-struct/no-tail
9763 (vector-ref %expanded-vtables 2)
9766 (if (eqv? #{atom-key 6581}# 'quote)
9767 (let ((#{exp 6614}# (car (cdr #{x 6580}#))))
9768 (make-struct/no-tail
9769 (vector-ref %expanded-vtables 1)
9772 (if (eqv? #{atom-key 6581}# 'lambda)
9773 (if (list? (car (cdr #{x 6580}#)))
9774 (let ((#{req 6625}# (car (cdr #{x 6580}#)))
9775 (#{vars 6627}# (car (cdr #{x 6580}#)))
9778 (car (cdr (cdr #{x 6580}#))))))
9779 (let ((#{body 6634}#
9780 (make-struct/no-tail
9781 (vector-ref %expanded-vtables 15)
9791 (make-struct/no-tail
9792 (vector-ref %expanded-vtables 14)
9796 (error "how did we get here" #{x 6580}#))
9797 (let ((#{name 6650}# (car #{x 6580}#))
9799 (map #{regen 5903}# (cdr #{x 6580}#))))
9800 (make-struct/no-tail
9801 (vector-ref %expanded-vtables 12)
9804 #{args 6651}#))))))))))
9813 (if (if (pair? #{e 5904}#) #{s 5907}# #f)
9814 (set-source-properties! #{e 5904}# #{s 5907}#))
9816 (if (if (null? (car #{w 5906}#))
9817 (null? (cdr #{w 5906}#))
9820 (if (if (vector? #{x 6270}#)
9821 (if (= (vector-length #{x 6270}#) 4)
9822 (eq? (vector-ref #{x 6270}# 0) 'syntax-object)
9825 (let ((#{expression 6302}# (vector-ref #{x 6270}# 1))
9827 (let ((#{w2 6311}# (vector-ref #{x 6270}# 2)))
9828 (let ((#{m1 6312}# (car #{w 5906}#))
9829 (#{s1 6313}# (cdr #{w 5906}#)))
9830 (if (null? #{m1 6312}#)
9831 (if (null? #{s1 6313}#)
9833 (cons (car #{w2 6311}#)
9836 (if (null? #{m2 6328}#)
9841 (cons (let ((#{m2 6336}#
9843 (if (null? #{m2 6336}#)
9850 (if (null? #{m2 6344}#)
9855 (#{module 6304}# (vector-ref #{x 6270}# 3)))
9861 (if (null? #{x 6270}#)
9868 (let ((#{tmp 5910}# #{e 5909}#))
9870 ($sc-dispatch #{tmp 5910}# '(_ any))))
9873 (lambda (#{x 5963}#)
9876 (#{gen-syntax 5896}#
9883 (lambda (#{e 6046}# #{maps 6047}#)
9884 (#{regen 5903}# #{e 6046}#))))
9890 (#{global-extend 4408}#
9899 ($sc-dispatch #{e 6887}# '(_ any any . each-any))))
9902 (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#)
9905 (#{lambda-formals 4452}# #{args 6897}#))
9906 (lambda (#{req 6902}#
9912 (lambda (#{body 6909}# #{meta 6910}#)
9916 '(any any . each-any))))
9917 (if (if #{tmp 6912}#
9919 (lambda (#{docstring 6916}#
9923 (syntax->datum #{docstring 6916}#)))
9927 (lambda (#{docstring 6919}#
9931 (cons #{e1 6920}# #{e2 6921}#)
9934 (list (cons 'documentation
9936 #{docstring 6919}#))))))
9941 '(#(vector #(each (any . any)))
9952 (cons #{e1 6928}# #{e2 6929}#)
9960 (#{expand-simple-lambda 4453}#
9969 #{body 6909}#))))))))
9970 (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '())))))
9976 (#{global-extend 4408}#
9985 ($sc-dispatch #{e 7313}# '(_ any any . each-any))))
9988 (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#)
9991 (#{expand-lambda-case 4455}#
9997 #{lambda*-formals 4454}#
9998 (list (cons #{args 7323}#
9999 (cons #{e1 7324}# #{e2 7325}#)))))
10000 (lambda (#{meta 7328}# #{lcase 7329}#)
10001 (make-struct/no-tail
10002 (vector-ref %expanded-vtables 14)
10011 (#{global-extend 4408}#
10014 (lambda (#{e 7492}#
10019 (let ((#{tmp 7498}#
10022 '(_ (any any . each-any)
10024 #(each (any any . each-any))))))
10027 (lambda (#{args 7502}#
10035 (#{expand-lambda-case 4455}#
10041 #{lambda-formals 4452}#
10042 (cons (cons #{args 7502}#
10043 (cons #{e1 7503}# #{e2 7504}#))
10044 (map (lambda (#{tmp 3382 7510}#
10047 (cons #{tmp 3380 7512}#
10048 (cons #{tmp 3381 7511}#
10049 #{tmp 3382 7510}#)))
10053 (lambda (#{meta 7513}# #{lcase 7514}#)
10054 (make-struct/no-tail
10055 (vector-ref %expanded-vtables 14)
10064 (#{global-extend 4408}#
10067 (lambda (#{e 7683}#
10072 (let ((#{tmp 7689}#
10075 '(_ (any any . each-any)
10077 #(each (any any . each-any))))))
10080 (lambda (#{args 7693}#
10088 (#{expand-lambda-case 4455}#
10094 #{lambda*-formals 4454}#
10095 (cons (cons #{args 7693}#
10096 (cons #{e1 7694}# #{e2 7695}#))
10097 (map (lambda (#{tmp 3417 7701}#
10100 (cons #{tmp 3415 7703}#
10101 (cons #{tmp 3416 7702}#
10102 #{tmp 3417 7701}#)))
10106 (lambda (#{meta 7704}# #{lcase 7705}#)
10107 (make-struct/no-tail
10108 (vector-ref %expanded-vtables 14)
10117 (#{global-extend 4408}#
10121 ((#{expand-let 7914}#
10122 (lambda (#{e 8124}#
10127 #{constructor 8129}#
10131 (if (not (#{valid-bound-ids? 4433}# #{ids 8130}#))
10134 "duplicate bound variable"
10136 (let ((#{labels 8217}#
10137 (#{gen-labels 4413}# #{ids 8130}#))
10139 (map #{gen-var 4457}# #{ids 8130}#)))
10141 (#{make-binding-wrap 4424}#
10146 (#{extend-var-env 4406}#
10150 (#{constructor 8129}#
10152 (map syntax->datum #{ids 8130}#)
10154 (map (lambda (#{x 8237}#)
10161 (#{expand-body 4447}#
10163 (#{source-wrap 4437}#
10170 #{mod 8128}#))))))))
10171 (lambda (#{e 7915}#
10176 (let ((#{tmp 7921}#
10179 '(_ #(each (any any)) any . each-any))))
10180 (if (if #{tmp 7921}#
10182 (lambda (#{id 7925}#
10186 (and-map #{id? 4410}# #{id 7925}#))
10190 (lambda (#{id 7944}#
10194 (#{expand-let 7914}#
10200 (lambda (#{src 7951}#
10207 #{maybe-name-value! 4375}#
10210 (if (null? #{vars 7953}#)
10212 (make-struct/no-tail
10213 (vector-ref %expanded-vtables 16)
10218 #{body-exp 7955}#))))
10221 (cons #{e1 7946}# #{e2 7947}#)))
10223 (let ((#{tmp 7962}#
10226 '(_ any #(each (any any)) any . each-any))))
10227 (if (if #{tmp 7962}#
10229 (lambda (#{f 7966}#
10234 (if (if (symbol? #{f 7966}#)
10236 (if (if (vector? #{f 7966}#)
10237 (if (= (vector-length #{f 7966}#) 4)
10238 (eq? (vector-ref #{f 7966}# 0)
10242 (symbol? (vector-ref #{f 7966}# 1))
10244 (and-map #{id? 4410}# #{id 7967}#)
10249 (lambda (#{f 8012}#
10254 (#{expand-let 7914}#
10260 #{build-named-let 4394}#
10261 (cons #{f 8012}# #{id 8013}#)
10263 (cons #{e1 8015}# #{e2 8016}#)))
10270 (if (if (pair? #{e 7915}#) #{s 7918}# #f)
10271 (set-source-properties! #{e 7915}# #{s 7918}#))
10273 (if (if (null? (car #{w 7917}#))
10274 (null? (cdr #{w 7917}#))
10277 (if (if (vector? #{x 8029}#)
10278 (if (= (vector-length #{x 8029}#) 4)
10279 (eq? (vector-ref #{x 8029}# 0) 'syntax-object)
10282 (let ((#{expression 8061}# (vector-ref #{x 8029}# 1))
10285 (vector-ref #{x 8029}# 2)))
10286 (let ((#{m1 8071}# (car #{w 7917}#))
10287 (#{s1 8072}# (cdr #{w 7917}#)))
10288 (if (null? #{m1 8071}#)
10289 (if (null? #{s1 8072}#)
10291 (cons (car #{w2 8070}#)
10293 (cdr #{w2 8070}#)))
10294 (if (null? #{m2 8087}#)
10299 (cons (let ((#{m2 8095}#
10300 (car #{w2 8070}#)))
10301 (if (null? #{m2 8095}#)
10307 (cdr #{w2 8070}#)))
10308 (if (null? #{m2 8103}#)
10312 #{m2 8103}#))))))))
10313 (#{module 8063}# (vector-ref #{x 8029}# 3)))
10316 #{expression 8061}#
10319 (if (null? #{x 8029}#)
10325 #{mod 7919}#)))))))))))))
10326 (#{global-extend 4408}#
10329 (lambda (#{e 8714}#
10334 (let ((#{tmp 8720}#
10337 '(_ #(each (any any)) any . each-any))))
10338 (if (if #{tmp 8720}#
10340 (lambda (#{id 8724}#
10344 (and-map #{id? 4410}# #{id 8724}#))
10348 (lambda (#{id 8743}#
10352 (if (not (#{valid-bound-ids? 4433}# #{id 8743}#))
10355 "duplicate bound variable"
10357 (let ((#{labels 8843}#
10358 (#{gen-labels 4413}# #{id 8743}#))
10360 (map #{gen-var 4457}# #{id 8743}#)))
10362 (#{make-binding-wrap 4424}#
10367 (#{extend-var-env 4406}#
10371 (#{build-letrec 4395}#
10374 (map syntax->datum #{id 8743}#)
10376 (map (lambda (#{x 8925}#)
10383 (#{expand-body 4447}#
10384 (cons #{e1 8745}# #{e2 8746}#)
10387 (if (if (pair? #{e 8714}#) #{s 8717}# #f)
10388 (set-source-properties!
10392 (if (if (null? (car #{w 8845}#))
10393 (null? (cdr #{w 8845}#))
10396 (if (if (vector? #{x 8987}#)
10397 (if (= (vector-length #{x 8987}#) 4)
10398 (eq? (vector-ref #{x 8987}# 0)
10402 (let ((#{expression 9019}#
10403 (vector-ref #{x 8987}# 1))
10406 (vector-ref #{x 8987}# 2)))
10407 (let ((#{m1 9029}# (car #{w 8845}#))
10408 (#{s1 9030}# (cdr #{w 8845}#)))
10409 (if (null? #{m1 9029}#)
10410 (if (null? #{s1 9030}#)
10412 (cons (car #{w2 9028}#)
10414 (cdr #{w2 9028}#)))
10415 (if (null? #{m2 9045}#)
10420 (cons (let ((#{m2 9053}#
10421 (car #{w2 9028}#)))
10422 (if (null? #{m2 9053}#)
10428 (cdr #{w2 9028}#)))
10429 (if (null? #{m2 9061}#)
10433 #{m2 9061}#))))))))
10435 (vector-ref #{x 8987}# 3)))
10438 #{expression 9019}#
10441 (if (null? #{x 8987}#)
10457 (if (if (pair? #{e 8714}#) #{s 8717}# #f)
10458 (set-source-properties! #{e 8714}# #{s 8717}#))
10460 (if (if (null? (car #{w 8716}#))
10461 (null? (cdr #{w 8716}#))
10464 (if (if (vector? #{x 9301}#)
10465 (if (= (vector-length #{x 9301}#) 4)
10466 (eq? (vector-ref #{x 9301}# 0) 'syntax-object)
10469 (let ((#{expression 9333}# (vector-ref #{x 9301}# 1))
10471 (let ((#{w2 9342}# (vector-ref #{x 9301}# 2)))
10472 (let ((#{m1 9343}# (car #{w 8716}#))
10473 (#{s1 9344}# (cdr #{w 8716}#)))
10474 (if (null? #{m1 9343}#)
10475 (if (null? #{s1 9344}#)
10477 (cons (car #{w2 9342}#)
10479 (cdr #{w2 9342}#)))
10480 (if (null? #{m2 9359}#)
10485 (cons (let ((#{m2 9367}# (car #{w2 9342}#)))
10486 (if (null? #{m2 9367}#)
10488 (append #{m1 9343}# #{m2 9367}#)))
10489 (let ((#{m2 9375}# (cdr #{w2 9342}#)))
10490 (if (null? #{m2 9375}#)
10494 #{m2 9375}#))))))))
10495 (#{module 9335}# (vector-ref #{x 9301}# 3)))
10498 #{expression 9333}#
10501 (if (null? #{x 9301}#)
10507 #{mod 8718}#))))))))))
10508 (#{global-extend 4408}#
10511 (lambda (#{e 9526}#
10516 (let ((#{tmp 9532}#
10519 '(_ #(each (any any)) any . each-any))))
10520 (if (if #{tmp 9532}#
10522 (lambda (#{id 9536}#
10526 (and-map #{id? 4410}# #{id 9536}#))
10530 (lambda (#{id 9555}#
10534 (if (not (#{valid-bound-ids? 4433}# #{id 9555}#))
10537 "duplicate bound variable"
10539 (let ((#{labels 9655}#
10540 (#{gen-labels 4413}# #{id 9555}#))
10542 (map #{gen-var 4457}# #{id 9555}#)))
10544 (#{make-binding-wrap 4424}#
10549 (#{extend-var-env 4406}#
10553 (#{build-letrec 4395}#
10556 (map syntax->datum #{id 9555}#)
10558 (map (lambda (#{x 9737}#)
10565 (#{expand-body 4447}#
10566 (cons #{e1 9557}# #{e2 9558}#)
10569 (if (if (pair? #{e 9526}#) #{s 9529}# #f)
10570 (set-source-properties!
10574 (if (if (null? (car #{w 9657}#))
10575 (null? (cdr #{w 9657}#))
10578 (if (if (vector? #{x 9799}#)
10579 (if (= (vector-length #{x 9799}#) 4)
10580 (eq? (vector-ref #{x 9799}# 0)
10584 (let ((#{expression 9831}#
10585 (vector-ref #{x 9799}# 1))
10588 (vector-ref #{x 9799}# 2)))
10589 (let ((#{m1 9841}# (car #{w 9657}#))
10590 (#{s1 9842}# (cdr #{w 9657}#)))
10591 (if (null? #{m1 9841}#)
10592 (if (null? #{s1 9842}#)
10594 (cons (car #{w2 9840}#)
10596 (cdr #{w2 9840}#)))
10597 (if (null? #{m2 9857}#)
10602 (cons (let ((#{m2 9865}#
10603 (car #{w2 9840}#)))
10604 (if (null? #{m2 9865}#)
10610 (cdr #{w2 9840}#)))
10611 (if (null? #{m2 9873}#)
10615 #{m2 9873}#))))))))
10617 (vector-ref #{x 9799}# 3)))
10620 #{expression 9831}#
10623 (if (null? #{x 9799}#)
10639 (if (if (pair? #{e 9526}#) #{s 9529}# #f)
10640 (set-source-properties! #{e 9526}# #{s 9529}#))
10642 (if (if (null? (car #{w 9528}#))
10643 (null? (cdr #{w 9528}#))
10646 (if (if (vector? #{x 10113}#)
10647 (if (= (vector-length #{x 10113}#) 4)
10648 (eq? (vector-ref #{x 10113}# 0) 'syntax-object)
10651 (let ((#{expression 10145}# (vector-ref #{x 10113}# 1))
10653 (let ((#{w2 10154}# (vector-ref #{x 10113}# 2)))
10654 (let ((#{m1 10155}# (car #{w 9528}#))
10655 (#{s1 10156}# (cdr #{w 9528}#)))
10656 (if (null? #{m1 10155}#)
10657 (if (null? #{s1 10156}#)
10659 (cons (car #{w2 10154}#)
10660 (let ((#{m2 10171}#
10661 (cdr #{w2 10154}#)))
10662 (if (null? #{m2 10171}#)
10667 (cons (let ((#{m2 10179}#
10668 (car #{w2 10154}#)))
10669 (if (null? #{m2 10179}#)
10674 (let ((#{m2 10187}#
10675 (cdr #{w2 10154}#)))
10676 (if (null? #{m2 10187}#)
10680 #{m2 10187}#))))))))
10681 (#{module 10147}# (vector-ref #{x 10113}# 3)))
10684 #{expression 10145}#
10687 (if (null? #{x 10113}#)
10693 #{mod 9530}#))))))))))
10694 (#{global-extend 4408}#
10697 (lambda (#{e 10350}#
10702 (let ((#{tmp 10356}#
10703 ($sc-dispatch #{e 10350}# '(_ any any))))
10704 (if (if #{tmp 10356}#
10706 (lambda (#{id 10360}# #{val 10361}#)
10707 (if (symbol? #{id 10360}#)
10709 (if (if (vector? #{id 10360}#)
10710 (if (= (vector-length #{id 10360}#) 4)
10711 (eq? (vector-ref #{id 10360}# 0) 'syntax-object)
10714 (symbol? (vector-ref #{id 10360}# 1))
10719 (lambda (#{id 10388}# #{val 10389}#)
10722 (#{resolve-identifier 4430}#
10728 (lambda (#{type 10392}# #{value 10393}# #{id-mod 10394}#)
10729 (if (eqv? #{type 10392}# 'lexical)
10730 (#{build-lexical-assignment 4381}#
10732 (syntax->datum #{id 10388}#)
10739 (if (eqv? #{type 10392}# 'global)
10740 (#{build-global-assignment 4384}#
10749 (if (eqv? #{type 10392}# 'macro)
10750 (if (procedure-property
10752 'variable-transformer)
10754 (#{expand-macro 4446}#
10767 "not a variable transformer"
10768 (if (if (null? (car #{w 10352}#))
10769 (null? (cdr #{w 10352}#))
10772 (if (if (vector? #{e 10350}#)
10773 (if (= (vector-length #{e 10350}#) 4)
10774 (eq? (vector-ref #{e 10350}# 0)
10778 (let ((#{expression 10854}#
10779 (vector-ref #{e 10350}# 1))
10781 (let ((#{w2 10865}#
10782 (vector-ref #{e 10350}# 2)))
10783 (let ((#{m1 10866}#
10786 (cdr #{w 10352}#)))
10787 (if (null? #{m1 10866}#)
10788 (if (null? #{s1 10867}#)
10790 (cons (car #{w2 10865}#)
10791 (let ((#{m2 10884}#
10792 (cdr #{w2 10865}#)))
10793 (if (null? #{m2 10884}#)
10798 (cons (let ((#{m2 10892}#
10799 (car #{w2 10865}#)))
10800 (if (null? #{m2 10892}#)
10805 (let ((#{m2 10900}#
10806 (cdr #{w2 10865}#)))
10807 (if (null? #{m2 10900}#)
10811 #{m2 10900}#))))))))
10813 (vector-ref #{e 10350}# 3)))
10816 #{expression 10854}#
10819 (if (null? #{e 10350}#)
10826 (if (if (null? (car #{w 10352}#))
10827 (null? (cdr #{w 10352}#))
10830 (if (if (vector? #{id 10388}#)
10831 (if (= (vector-length #{id 10388}#) 4)
10832 (eq? (vector-ref #{id 10388}# 0)
10836 (let ((#{expression 10952}#
10837 (vector-ref #{id 10388}# 1))
10839 (let ((#{w2 10963}#
10840 (vector-ref #{id 10388}# 2)))
10841 (let ((#{m1 10964}#
10844 (cdr #{w 10352}#)))
10845 (if (null? #{m1 10964}#)
10846 (if (null? #{s1 10965}#)
10848 (cons (car #{w2 10963}#)
10849 (let ((#{m2 10982}#
10850 (cdr #{w2 10963}#)))
10851 (if (null? #{m2 10982}#)
10856 (cons (let ((#{m2 10990}#
10857 (car #{w2 10963}#)))
10858 (if (null? #{m2 10990}#)
10863 (let ((#{m2 10998}#
10864 (cdr #{w2 10963}#)))
10865 (if (null? #{m2 10998}#)
10869 #{m2 10998}#))))))))
10871 (vector-ref #{id 10388}# 3)))
10874 #{expression 10952}#
10877 (if (null? #{id 10388}#)
10883 #{id-mod 10394}#))))))
10884 (if (eqv? #{type 10392}# 'displaced-lexical)
10887 "identifier out of context"
10888 (if (if (null? (car #{w 10352}#))
10889 (null? (cdr #{w 10352}#))
10892 (if (if (vector? #{id 10388}#)
10893 (if (= (vector-length #{id 10388}#) 4)
10894 (eq? (vector-ref #{id 10388}# 0)
10898 (let ((#{expression 11053}#
10899 (vector-ref #{id 10388}# 1))
10901 (let ((#{w2 11064}#
10902 (vector-ref #{id 10388}# 2)))
10903 (let ((#{m1 11065}#
10906 (cdr #{w 10352}#)))
10907 (if (null? #{m1 11065}#)
10908 (if (null? #{s1 11066}#)
10910 (cons (car #{w2 11064}#)
10911 (let ((#{m2 11083}#
10912 (cdr #{w2 11064}#)))
10913 (if (null? #{m2 11083}#)
10918 (cons (let ((#{m2 11091}#
10919 (car #{w2 11064}#)))
10920 (if (null? #{m2 11091}#)
10925 (let ((#{m2 11099}#
10926 (cdr #{w2 11064}#)))
10927 (if (null? #{m2 11099}#)
10931 #{m2 11099}#))))))))
10933 (vector-ref #{id 10388}# 3)))
10936 #{expression 11053}#
10939 (if (null? #{id 10388}#)
10951 (if (if (pair? #{e 10350}#)
10954 (set-source-properties!
10958 (if (if (null? (car #{w 10352}#))
10959 (null? (cdr #{w 10352}#))
10962 (if (if (vector? #{x 11131}#)
10963 (if (= (vector-length #{x 11131}#) 4)
10964 (eq? (vector-ref #{x 11131}# 0)
10968 (let ((#{expression 11163}#
10969 (vector-ref #{x 11131}# 1))
10971 (let ((#{w2 11172}#
10975 (let ((#{m1 11173}#
10978 (cdr #{w 10352}#)))
10979 (if (null? #{m1 11173}#)
10980 (if (null? #{s1 11174}#)
10982 (cons (car #{w2 11172}#)
10983 (let ((#{m2 11189}#
10984 (cdr #{w2 11172}#)))
10985 (if (null? #{m2 11189}#)
10990 (cons (let ((#{m2 11197}#
10991 (car #{w2 11172}#)))
10992 (if (null? #{m2 11197}#)
10997 (let ((#{m2 11205}#
10998 (cdr #{w2 11172}#)))
10999 (if (null? #{m2 11205}#)
11003 #{m2 11205}#))))))))
11005 (vector-ref #{x 11131}# 3)))
11008 #{expression 11163}#
11011 (if (null? #{x 11131}#)
11017 #{mod 10354}#)))))))))))))
11019 (let ((#{tmp 11220}#
11022 '(_ (any . each-any) any))))
11025 (lambda (#{head 11224}# #{tail 11225}# #{val 11226}#)
11028 (#{syntax-type 4442}#
11036 (lambda (#{type 11229}#
11042 (if (eqv? #{type 11229}# 'module-ref)
11043 (let ((#{val 11238}#
11052 (cons #{head 11224}# #{tail 11225}#)
11055 (lambda (#{e 11239}#
11060 (let ((#{tmp 11245}# (list #{e 11239}#)))
11062 (lambda (#{e 11247}#)
11063 (if (symbol? #{e 11247}#)
11065 (if (if (vector? #{e 11247}#)
11066 (if (= (vector-length
11076 (vector-ref #{e 11247}# 1))
11080 (lambda (#{e 11277}#)
11081 (#{build-global-assignment 4384}#
11083 (syntax->datum #{e 11277}#)
11089 "source expression failed to match any pattern"
11091 (#{build-call 4377}#
11094 (list '#(syntax-object
11097 #(ribcage () () ())
11098 #(ribcage () () ())
11100 #(type value ee ww ss modmod)
11115 #((top) (top) (top))
11116 #("i3641" "i3642" "i3643"))
11117 #(ribcage () () ())
11120 #((top) (top) (top) (top) (top))
11132 expand-simple-lambda
11136 eval-local-transformer
11137 expand-local-syntax
11145 expand-install-global
11146 expand-top-sequence
11151 distinct-bound-ids?
11170 set-ribcage-labels!
11172 set-ribcage-symnames!
11203 set-syntax-object-module!
11204 set-syntax-object-wrap!
11205 set-syntax-object-expression!
11206 syntax-object-module
11208 syntax-object-expression
11221 build-simple-lambda
11222 build-global-definition
11223 build-global-assignment
11224 build-global-reference
11226 build-lexical-assignment
11227 build-lexical-reference
11234 get-global-definition-hook
11235 put-global-definition-hook
11238 top-level-eval-hook
11255 make-toplevel-define
11543 define-expansion-accessors
11544 define-expansion-constructors)
11545 ((top) (top) (top))
11546 ("i46" "i45" "i44"))
11547 #(ribcage () () ()))
11553 (map (lambda (#{e 11606}#)
11561 (list #{val 11226}#))))))))
11568 (if (if (pair? #{e 10350}#) #{s 10353}# #f)
11569 (set-source-properties! #{e 10350}# #{s 10353}#))
11571 (if (if (null? (car #{w 10352}#))
11572 (null? (cdr #{w 10352}#))
11575 (if (if (vector? #{x 11698}#)
11576 (if (= (vector-length #{x 11698}#) 4)
11577 (eq? (vector-ref #{x 11698}# 0) 'syntax-object)
11580 (let ((#{expression 11730}# (vector-ref #{x 11698}# 1))
11582 (let ((#{w2 11739}#
11583 (vector-ref #{x 11698}# 2)))
11584 (let ((#{m1 11740}# (car #{w 10352}#))
11585 (#{s1 11741}# (cdr #{w 10352}#)))
11586 (if (null? #{m1 11740}#)
11587 (if (null? #{s1 11741}#)
11589 (cons (car #{w2 11739}#)
11590 (let ((#{m2 11756}#
11591 (cdr #{w2 11739}#)))
11592 (if (null? #{m2 11756}#)
11597 (cons (let ((#{m2 11764}#
11598 (car #{w2 11739}#)))
11599 (if (null? #{m2 11764}#)
11604 (let ((#{m2 11772}#
11605 (cdr #{w2 11739}#)))
11606 (if (null? #{m2 11772}#)
11610 #{m2 11772}#))))))))
11611 (#{module 11732}# (vector-ref #{x 11698}# 3)))
11614 #{expression 11730}#
11617 (if (null? #{x 11698}#)
11623 #{mod 10354}#))))))))))))
11627 (make-syntax-transformer
11630 (lambda (#{e 11803}# #{r 11804}# #{w 11805}#)
11631 (let ((#{tmp 11807}#
11632 ($sc-dispatch #{e 11803}# '(_ each-any any))))
11633 (if (if #{tmp 11807}#
11635 (lambda (#{mod 11810}# #{id 11811}#)
11636 (if (and-map #{id? 4410}# #{mod 11810}#)
11637 (if (symbol? #{id 11811}#)
11639 (if (if (vector? #{id 11811}#)
11640 (if (= (vector-length #{id 11811}#) 4)
11641 (eq? (vector-ref #{id 11811}# 0)
11645 (symbol? (vector-ref #{id 11811}# 1))
11651 (lambda (#{mod 11851}# #{id 11852}#)
11653 (syntax->datum #{id 11852}#)
11658 (cons '#(syntax-object
11664 #("i3702" "i3703"))
11665 #(ribcage () () ())
11668 #((top) (top) (top))
11669 #("i3690" "i3691" "i3692"))
11676 expand-simple-lambda
11680 eval-local-transformer
11681 expand-local-syntax
11689 expand-install-global
11690 expand-top-sequence
11695 distinct-bound-ids?
11714 set-ribcage-labels!
11716 set-ribcage-symnames!
11747 set-syntax-object-module!
11748 set-syntax-object-wrap!
11749 set-syntax-object-expression!
11750 syntax-object-module
11752 syntax-object-expression
11765 build-simple-lambda
11766 build-global-definition
11767 build-global-assignment
11768 build-global-reference
11770 build-lexical-assignment
11771 build-lexical-reference
11778 get-global-definition-hook
11779 put-global-definition-hook
11782 top-level-eval-hook
11799 make-toplevel-define
12087 define-expansion-accessors
12088 define-expansion-constructors)
12089 ((top) (top) (top))
12090 ("i46" "i45" "i44"))
12091 #(ribcage () () ()))
12097 "source expression failed to match any pattern"
12099 (#{global-extend 4408}#
12102 (lambda (#{e 11956}# #{r 11957}# #{w 11958}#)
12104 ((#{remodulate 11959}#
12105 (lambda (#{x 12195}# #{mod 12196}#)
12106 (if (pair? #{x 12195}#)
12107 (cons (#{remodulate 11959}#
12110 (#{remodulate 11959}#
12113 (if (if (vector? #{x 12195}#)
12114 (if (= (vector-length #{x 12195}#) 4)
12115 (eq? (vector-ref #{x 12195}# 0) 'syntax-object)
12118 (let ((#{expression 12210}#
12119 (#{remodulate 11959}#
12120 (vector-ref #{x 12195}# 1)
12122 (#{wrap 12211}# (vector-ref #{x 12195}# 2)))
12125 #{expression 12210}#
12128 (if (vector? #{x 12195}#)
12129 (let ((#{n 12219}# (vector-length #{x 12195}#)))
12130 (let ((#{v 12220}# (make-vector #{n 12219}#)))
12133 (lambda (#{i 12276}#)
12134 (if (= #{i 12276}# #{n 12219}#)
12140 (#{remodulate 11959}#
12141 (vector-ref #{x 12195}# #{i 12276}#)
12143 (#{loop 12221}# (#{1+}# #{i 12276}#)))))))
12144 (#{loop 12221}# 0))))
12146 (let ((#{tmp 11961}#
12147 ($sc-dispatch #{e 11956}# '(_ each-any any))))
12148 (if (if #{tmp 11961}#
12150 (lambda (#{mod 11965}# #{exp 11966}#)
12151 (and-map #{id? 4410}# #{mod 11965}#))
12155 (lambda (#{mod 11982}# #{exp 11983}#)
12156 (let ((#{mod 11984}#
12158 (cons '#(syntax-object
12164 #("i3746" "i3747"))
12165 #(ribcage (remodulate) ((top)) ("i3713"))
12168 #((top) (top) (top))
12169 #("i3710" "i3711" "i3712"))
12176 expand-simple-lambda
12180 eval-local-transformer
12181 expand-local-syntax
12189 expand-install-global
12190 expand-top-sequence
12195 distinct-bound-ids?
12214 set-ribcage-labels!
12216 set-ribcage-symnames!
12247 set-syntax-object-module!
12248 set-syntax-object-wrap!
12249 set-syntax-object-expression!
12250 syntax-object-module
12252 syntax-object-expression
12265 build-simple-lambda
12266 build-global-definition
12267 build-global-assignment
12268 build-global-reference
12270 build-lexical-assignment
12271 build-lexical-reference
12278 get-global-definition-hook
12279 put-global-definition-hook
12282 top-level-eval-hook
12299 make-toplevel-define
12587 define-expansion-accessors
12588 define-expansion-constructors)
12589 ((top) (top) (top))
12590 ("i46" "i45" "i44"))
12591 #(ribcage () () ()))
12595 (#{remodulate 11959}#
12600 (#{source-annotation 4404}# #{exp 11983}#)
12605 "source expression failed to match any pattern"
12607 (#{global-extend 4408}#
12610 (lambda (#{e 12389}#
12615 (let ((#{tmp 12395}#
12616 ($sc-dispatch #{e 12389}# '(_ any any))))
12619 (lambda (#{test 12399}# #{then 12400}#)
12620 (#{build-conditional 4378}#
12632 (make-struct/no-tail
12633 (vector-ref %expanded-vtables 0)
12636 (let ((#{tmp 12661}#
12637 ($sc-dispatch #{e 12389}# '(_ any any any))))
12640 (lambda (#{test 12665}# #{then 12666}# #{else 12667}#)
12641 (#{build-conditional 4378}#
12661 "source expression failed to match any pattern"
12663 (#{global-extend 4408}#
12666 (lambda (#{e 13126}#
12671 (let ((#{tmp 13132}#
12674 '(_ #(each (any any)) any . each-any))))
12677 (lambda (#{fluid 13136}#
12681 (#{build-dynlet 4379}#
12683 (map (lambda (#{x 13232}#)
12690 (map (lambda (#{x 13314}#)
12697 (#{expand-body 4447}#
12698 (cons #{b 13138}# #{b* 13139}#)
12701 (if (if (pair? #{e 13126}#) #{s 13129}# #f)
12702 (set-source-properties!
12706 (if (if (null? (car #{w 13128}#))
12707 (null? (cdr #{w 13128}#))
12710 (if (if (vector? #{x 13407}#)
12711 (if (= (vector-length #{x 13407}#) 4)
12712 (eq? (vector-ref #{x 13407}# 0) 'syntax-object)
12715 (let ((#{expression 13439}#
12716 (vector-ref #{x 13407}# 1))
12718 (let ((#{w2 13448}#
12719 (vector-ref #{x 13407}# 2)))
12720 (let ((#{m1 13449}# (car #{w 13128}#))
12721 (#{s1 13450}# (cdr #{w 13128}#)))
12722 (if (null? #{m1 13449}#)
12723 (if (null? #{s1 13450}#)
12725 (cons (car #{w2 13448}#)
12726 (let ((#{m2 13465}#
12727 (cdr #{w2 13448}#)))
12728 (if (null? #{m2 13465}#)
12733 (cons (let ((#{m2 13473}#
12734 (car #{w2 13448}#)))
12735 (if (null? #{m2 13473}#)
12740 (let ((#{m2 13481}#
12741 (cdr #{w2 13448}#)))
12742 (if (null? #{m2 13481}#)
12746 #{m2 13481}#))))))))
12747 (#{module 13441}# (vector-ref #{x 13407}# 3)))
12750 #{expression 13439}#
12753 (if (null? #{x 13407}#)
12766 "source expression failed to match any pattern"
12771 (make-syntax-transformer 'begin 'begin '()))
12775 (make-syntax-transformer 'define 'define '()))
12779 (make-syntax-transformer
12785 'define-syntax-parameter
12786 (make-syntax-transformer
12787 'define-syntax-parameter
12788 'define-syntax-parameter
12793 (make-syntax-transformer
12797 (#{global-extend 4408}#
12801 ((#{convert-pattern 13785}#
12802 (lambda (#{pattern 15441}# #{keys 15442}#)
12805 (lambda (#{p* 16242}# #{n 16243}# #{ids 16244}#)
12806 (if (not (pair? #{p* 16242}#))
12817 (lambda (#{y 16247}# #{ids 16248}#)
12824 (lambda (#{x 16251}# #{ids 16252}#)
12826 (cons #{x 16251}# #{y 16247}#)
12827 #{ids 16252}#))))))))
12828 (#{v-reverse 15444}#
12829 (lambda (#{x 16253}#)
12832 (lambda (#{r 16355}# #{x 16356}#)
12833 (if (not (pair? #{x 16356}#))
12834 (values #{r 16355}# #{x 16356}#)
12836 (cons (car #{x 16356}#) #{r 16355}#)
12837 (cdr #{x 16356}#))))))
12838 (#{loop 16254}# '() #{x 16253}#))))
12840 (lambda (#{p 15448}# #{n 15449}# #{ids 15450}#)
12841 (if (if (symbol? #{p 15448}#)
12843 (if (if (vector? #{p 15448}#)
12844 (if (= (vector-length #{p 15448}#) 4)
12845 (eq? (vector-ref #{p 15448}# 0)
12849 (symbol? (vector-ref #{p 15448}# 1))
12851 (if (#{bound-id-member? 4435}#
12855 (vector 'free-id #{p 15448}#)
12857 (if (#{free-id=? 4431}#
12862 #(ribcage () () ())
12865 #((top) (top) (top))
12866 #("i3847" "i3848" "i3849"))
12868 (cvt v-reverse cvt*)
12869 ((top) (top) (top))
12870 ("i3820" "i3818" "i3816"))
12874 #("i3814" "i3815"))
12878 build-dispatch-call
12880 ((top) (top) (top) (top))
12881 ("i3810" "i3808" "i3806" "i3804"))
12888 expand-simple-lambda
12892 eval-local-transformer
12893 expand-local-syntax
12901 expand-install-global
12902 expand-top-sequence
12907 distinct-bound-ids?
12926 set-ribcage-labels!
12928 set-ribcage-symnames!
12959 set-syntax-object-module!
12960 set-syntax-object-wrap!
12961 set-syntax-object-expression!
12962 syntax-object-module
12964 syntax-object-expression
12977 build-simple-lambda
12978 build-global-definition
12979 build-global-assignment
12980 build-global-reference
12982 build-lexical-assignment
12983 build-lexical-reference
12990 get-global-definition-hook
12991 put-global-definition-hook
12994 top-level-eval-hook
13011 make-toplevel-define
13299 define-expansion-accessors
13300 define-expansion-constructors)
13301 ((top) (top) (top))
13302 ("i46" "i45" "i44"))
13303 #(ribcage () () ()))
13305 (values '_ #{ids 15450}#)
13308 (cons (cons #{p 15448}# #{n 15449}#)
13310 (let ((#{tmp 15582}#
13311 ($sc-dispatch #{p 15448}# '(any any))))
13312 (if (if #{tmp 15582}#
13314 (lambda (#{x 15586}# #{dots 15587}#)
13315 (if (if (if (vector? #{dots 15587}#)
13316 (if (= (vector-length
13325 (symbol? (vector-ref #{dots 15587}# 1))
13327 (#{free-id=? 4431}#
13332 #(ribcage () () ())
13333 #(ribcage () () ())
13334 #(ribcage #(x) #((top)) #("i2338"))
13341 expand-simple-lambda
13345 eval-local-transformer
13346 expand-local-syntax
13354 expand-install-global
13355 expand-top-sequence
13360 distinct-bound-ids?
13379 set-ribcage-labels!
13381 set-ribcage-symnames!
13412 set-syntax-object-module!
13413 set-syntax-object-wrap!
13414 set-syntax-object-expression!
13415 syntax-object-module
13417 syntax-object-expression
13430 build-simple-lambda
13431 build-global-definition
13432 build-global-assignment
13433 build-global-reference
13435 build-lexical-assignment
13436 build-lexical-reference
13443 get-global-definition-hook
13444 put-global-definition-hook
13447 top-level-eval-hook
13464 make-toplevel-define
13752 define-expansion-accessors
13753 define-expansion-constructors)
13754 ((top) (top) (top))
13755 ("i46" "i45" "i44"))
13756 #(ribcage () () ()))
13762 (lambda (#{x 15626}# #{dots 15627}#)
13767 (#{1+}# #{n 15449}#)
13769 (lambda (#{p 15628}# #{ids 15629}#)
13771 (if (eq? #{p 15628}# 'any)
13773 (vector 'each #{p 15628}#))
13776 (let ((#{tmp 15630}#
13777 ($sc-dispatch #{p 15448}# '(any any . any))))
13778 (if (if #{tmp 15630}#
13780 (lambda (#{x 15634}#
13783 (if (if (if (vector? #{dots 15635}#)
13784 (if (= (vector-length
13794 (vector-ref #{dots 15635}# 1))
13796 (#{free-id=? 4431}#
13801 #(ribcage () () ())
13802 #(ribcage () () ())
13813 expand-simple-lambda
13817 eval-local-transformer
13818 expand-local-syntax
13826 expand-install-global
13827 expand-top-sequence
13832 distinct-bound-ids?
13851 set-ribcage-labels!
13853 set-ribcage-symnames!
13884 set-syntax-object-module!
13885 set-syntax-object-wrap!
13886 set-syntax-object-expression!
13887 syntax-object-module
13889 syntax-object-expression
13902 build-simple-lambda
13903 build-global-definition
13904 build-global-assignment
13905 build-global-reference
13907 build-lexical-assignment
13908 build-lexical-reference
13915 get-global-definition-hook
13916 put-global-definition-hook
13919 top-level-eval-hook
13936 make-toplevel-define
14224 define-expansion-accessors
14225 define-expansion-constructors)
14226 ((top) (top) (top))
14227 ("i46" "i45" "i44"))
14228 #(ribcage () () ()))
14234 (lambda (#{x 15675}#
14243 (lambda (#{ys 16162}# #{ids 16163}#)
14248 (#{1+}# #{n 15449}#)
14250 (lambda (#{x 16164}# #{ids 16165}#)
14253 (#{v-reverse 15444}#
14255 (lambda (#{ys 16201}# #{e 16202}#)
14262 #{ids 16165}#))))))))
14264 (let ((#{tmp 16203}#
14265 ($sc-dispatch #{p 15448}# '(any . any))))
14268 (lambda (#{x 16207}# #{y 16208}#)
14275 (lambda (#{y 16209}# #{ids 16210}#)
14282 (lambda (#{x 16211}# #{ids 16212}#)
14284 (cons #{x 16211}# #{y 16209}#)
14285 #{ids 16212}#))))))
14287 (let ((#{tmp 16213}#
14288 ($sc-dispatch #{p 15448}# '())))
14291 (lambda () (values '() #{ids 15450}#))
14293 (let ((#{tmp 16217}#
14296 '#(vector each-any))))
14299 (lambda (#{x 16221}#)
14306 (lambda (#{p 16222}#
14320 #{ids 15450}#)))))))))))))))
14321 (#{cvt 15445}# #{pattern 15441}# 0 '()))))
14322 (#{build-dispatch-call 13786}#
14323 (lambda (#{pvars 16357}#
14328 (let ((#{ids 16362}# (map car #{pvars 16357}#)))
14330 (map cdr #{pvars 16357}#)
14331 (let ((#{labels 16364}#
14332 (#{gen-labels 4413}# #{ids 16362}#))
14333 (#{new-vars 16365}#
14334 (map #{gen-var 4457}# #{ids 16362}#)))
14335 (#{build-primcall 4389}#
14338 (list (#{build-simple-lambda 4386}#
14340 (map syntax->datum #{ids 16362}#)
14346 (#{extend-env 4405}#
14348 (map (lambda (#{var 16697}# #{level 16698}#)
14350 (cons #{var 16697}#
14353 (map cdr #{pvars 16357}#))
14355 (#{make-binding-wrap 4424}#
14361 (#{gen-clause 13787}#
14362 (lambda (#{x 15035}#
14372 (#{convert-pattern 13785}#
14375 (lambda (#{p 15180}# #{pvars 15181}#)
14376 (if (not (#{distinct-bound-ids? 4434}#
14377 (map car #{pvars 15181}#)))
14380 "duplicate pattern variable"
14383 (lambda (#{x 15290}#)
14384 (not (let ((#{x 15294}# (car #{x 15290}#)))
14385 (if (if (if (vector? #{x 15294}#)
14386 (if (= (vector-length
14396 (vector-ref #{x 15294}# 1))
14398 (#{free-id=? 4431}#
14403 #(ribcage () () ())
14404 #(ribcage () () ())
14415 expand-simple-lambda
14419 eval-local-transformer
14420 expand-local-syntax
14428 expand-install-global
14429 expand-top-sequence
14434 distinct-bound-ids?
14453 set-ribcage-labels!
14455 set-ribcage-symnames!
14486 set-syntax-object-module!
14487 set-syntax-object-wrap!
14488 set-syntax-object-expression!
14489 syntax-object-module
14491 syntax-object-expression
14504 build-simple-lambda
14505 build-global-definition
14506 build-global-assignment
14507 build-global-reference
14509 build-lexical-assignment
14510 build-lexical-reference
14517 get-global-definition-hook
14518 put-global-definition-hook
14521 top-level-eval-hook
14538 make-toplevel-define
14826 define-expansion-accessors
14827 define-expansion-constructors)
14828 ((top) (top) (top))
14829 ("i46" "i45" "i44"))
14830 #(ribcage () () ()))
14836 "misplaced ellipsis"
14840 (string-append (symbol->string 'tmp) " "))))
14841 (let ((#{fun-exp 15324}#
14842 (let ((#{req 15333}# (list 'tmp))
14843 (#{vars 15335}# (list #{y 15319}#))
14846 (make-struct/no-tail
14853 (let ((#{test-exp 15370}#
14854 (let ((#{tmp 15379}#
14860 (lambda () #{y 15366}#)
14862 (let ((#{then-exp 15397}#
14863 (#{build-dispatch-call 13786}#
14869 (#{else-exp 15398}#
14870 (make-struct/no-tail
14876 (make-struct/no-tail
14883 #{else-exp 15398}#)))))
14884 (#{then-exp 15371}#
14885 (#{build-dispatch-call 13786}#
14891 (#{else-exp 15372}#
14892 (#{gen-syntax-case 13788}#
14898 (make-struct/no-tail
14899 (vector-ref %expanded-vtables 10)
14903 #{else-exp 15372}#)))))
14904 (let ((#{body 15342}#
14905 (make-struct/no-tail
14906 (vector-ref %expanded-vtables 15)
14916 (make-struct/no-tail
14917 (vector-ref %expanded-vtables 14)
14921 (#{arg-exps 15325}#
14922 (list (if (eq? #{p 15180}# 'any)
14923 (let ((#{args 15420}#
14924 (list #{x 15035}#)))
14925 (make-struct/no-tail
14926 (vector-ref %expanded-vtables 12)
14930 (let ((#{args 15429}#
14932 (make-struct/no-tail
14938 (make-struct/no-tail
14939 (vector-ref %expanded-vtables 12)
14942 #{args 15429}#))))))
14943 (make-struct/no-tail
14944 (vector-ref %expanded-vtables 11)
14947 #{arg-exps 15325}#)))))))))
14948 (#{gen-syntax-case 13788}#
14949 (lambda (#{x 14532}#
14954 (if (null? #{clauses 14534}#)
14955 (let ((#{args 14542}#
14956 (list (make-struct/no-tail
14957 (vector-ref %expanded-vtables 1)
14960 (make-struct/no-tail
14961 (vector-ref %expanded-vtables 1)
14963 "source expression failed to match any pattern")
14965 (make-struct/no-tail
14966 (vector-ref %expanded-vtables 12)
14970 (let ((#{tmp 14561}# (car #{clauses 14534}#)))
14971 (let ((#{tmp 14562}#
14972 ($sc-dispatch #{tmp 14561}# '(any any))))
14975 (lambda (#{pat 14564}# #{exp 14565}#)
14976 (if (if (if (symbol? #{pat 14564}#)
14978 (if (if (vector? #{pat 14564}#)
14979 (if (= (vector-length #{pat 14564}#)
14981 (eq? (vector-ref #{pat 14564}# 0)
14985 (symbol? (vector-ref #{pat 14564}# 1))
14988 (lambda (#{x 14592}#)
14989 (not (#{free-id=? 4431}#
14992 (cons '#(syntax-object
14998 #("i4007" "i4008"))
14999 #(ribcage () () ())
15001 #(x keys clauses r mod)
15002 #((top) (top) (top) (top) (top))
15011 build-dispatch-call
15013 ((top) (top) (top) (top))
15014 ("i3810" "i3808" "i3806" "i3804"))
15021 expand-simple-lambda
15025 eval-local-transformer
15026 expand-local-syntax
15034 expand-install-global
15035 expand-top-sequence
15040 distinct-bound-ids?
15059 set-ribcage-labels!
15061 set-ribcage-symnames!
15092 set-syntax-object-module!
15093 set-syntax-object-wrap!
15094 set-syntax-object-expression!
15095 syntax-object-module
15097 syntax-object-expression
15110 build-simple-lambda
15111 build-global-definition
15112 build-global-assignment
15113 build-global-reference
15115 build-lexical-assignment
15116 build-lexical-reference
15123 get-global-definition-hook
15124 put-global-definition-hook
15127 top-level-eval-hook
15144 make-toplevel-define
15432 define-expansion-accessors
15433 define-expansion-constructors)
15434 ((top) (top) (top))
15435 ("i46" "i45" "i44"))
15436 #(ribcage () () ()))
15440 (if (#{free-id=? 4431}#
15447 #("i4007" "i4008"))
15448 #(ribcage () () ())
15450 #(x keys clauses r mod)
15451 #((top) (top) (top) (top) (top))
15460 build-dispatch-call
15462 ((top) (top) (top) (top))
15463 ("i3810" "i3808" "i3806" "i3804"))
15470 expand-simple-lambda
15474 eval-local-transformer
15475 expand-local-syntax
15483 expand-install-global
15484 expand-top-sequence
15489 distinct-bound-ids?
15508 set-ribcage-labels!
15510 set-ribcage-symnames!
15541 set-syntax-object-module!
15542 set-syntax-object-wrap!
15543 set-syntax-object-expression!
15544 syntax-object-module
15546 syntax-object-expression
15559 build-simple-lambda
15560 build-global-definition
15561 build-global-assignment
15562 build-global-reference
15564 build-lexical-assignment
15565 build-lexical-reference
15572 get-global-definition-hook
15573 put-global-definition-hook
15576 top-level-eval-hook
15593 make-toplevel-define
15881 define-expansion-accessors
15882 define-expansion-constructors)
15883 ((top) (top) (top))
15884 ("i46" "i45" "i44"))
15885 #(ribcage () () ()))
15893 #("i4007" "i4008"))
15894 #(ribcage () () ())
15896 #(x keys clauses r mod)
15897 #((top) (top) (top) (top) (top))
15906 build-dispatch-call
15908 ((top) (top) (top) (top))
15909 ("i3810" "i3808" "i3806" "i3804"))
15916 expand-simple-lambda
15920 eval-local-transformer
15921 expand-local-syntax
15929 expand-install-global
15930 expand-top-sequence
15935 distinct-bound-ids?
15954 set-ribcage-labels!
15956 set-ribcage-symnames!
15987 set-syntax-object-module!
15988 set-syntax-object-wrap!
15989 set-syntax-object-expression!
15990 syntax-object-module
15992 syntax-object-expression
16005 build-simple-lambda
16006 build-global-definition
16007 build-global-assignment
16008 build-global-reference
16010 build-lexical-assignment
16011 build-lexical-reference
16018 get-global-definition-hook
16019 put-global-definition-hook
16022 top-level-eval-hook
16039 make-toplevel-define
16327 define-expansion-accessors
16328 define-expansion-constructors)
16329 ((top) (top) (top))
16330 ("i46" "i45" "i44"))
16331 #(ribcage () () ()))
16338 (let ((#{labels 14678}#
16339 (list (symbol->string (gensym "i"))))
16341 (let ((#{id 14717}#
16342 (if (if (vector? #{pat 14564}#)
16343 (if (= (vector-length
16352 (vector-ref #{pat 14564}# 1)
16356 (symbol->string #{id 14717}#)
16358 (#{build-call 4377}#
16360 (#{build-simple-lambda 4386}#
16362 (list (syntax->datum #{pat 14564}#))
16364 (list #{var 14679}#)
16368 (#{extend-env 4405}#
16370 (list (cons 'syntax
16371 (cons #{var 14679}# 0)))
16373 (#{make-binding-wrap 4424}#
16374 (list #{pat 14564}#)
16378 (list #{x 14532}#))))
16379 (#{gen-clause 13787}#
16382 (cdr #{clauses 14534}#)
16389 (let ((#{tmp 15027}#
16390 ($sc-dispatch #{tmp 14561}# '(any any any))))
16393 (lambda (#{pat 15029}#
16396 (#{gen-clause 13787}#
16399 (cdr #{clauses 14534}#)
16409 (car #{clauses 14534}#)))))))))))
16410 (lambda (#{e 13789}#
16418 (if (if (pair? #{e 13789}#) #{s 13792}# #f)
16419 (set-source-properties! #{e 13789}# #{s 13792}#))
16421 (if (if (null? (car #{w 13791}#))
16422 (null? (cdr #{w 13791}#))
16425 (if (if (vector? #{x 14443}#)
16426 (if (= (vector-length #{x 14443}#) 4)
16427 (eq? (vector-ref #{x 14443}# 0) 'syntax-object)
16430 (let ((#{expression 14475}# (vector-ref #{x 14443}# 1))
16432 (let ((#{w2 14484}#
16433 (vector-ref #{x 14443}# 2)))
16434 (let ((#{m1 14485}# (car #{w 13791}#))
16435 (#{s1 14486}# (cdr #{w 13791}#)))
16436 (if (null? #{m1 14485}#)
16437 (if (null? #{s1 14486}#)
16439 (cons (car #{w2 14484}#)
16440 (let ((#{m2 14501}#
16441 (cdr #{w2 14484}#)))
16442 (if (null? #{m2 14501}#)
16447 (cons (let ((#{m2 14509}#
16448 (car #{w2 14484}#)))
16449 (if (null? #{m2 14509}#)
16454 (let ((#{m2 14517}#
16455 (cdr #{w2 14484}#)))
16456 (if (null? #{m2 14517}#)
16460 #{m2 14517}#))))))))
16461 (#{module 14477}# (vector-ref #{x 14443}# 3)))
16464 #{expression 14475}#
16467 (if (null? #{x 14443}#)
16473 #{mod 13793}#)))))))
16474 (let ((#{tmp 13795}# #{e 13794}#))
16475 (let ((#{tmp 13796}#
16478 '(_ any each-any . each-any))))
16481 (lambda (#{val 13848}# #{key 13849}# #{m 13850}#)
16483 (lambda (#{x 13851}#)
16484 (if (if (symbol? #{x 13851}#)
16486 (if (if (vector? #{x 13851}#)
16487 (if (= (vector-length #{x 13851}#) 4)
16488 (eq? (vector-ref #{x 13851}# 0)
16492 (symbol? (vector-ref #{x 13851}# 1))
16494 (not (if (if (if (vector? #{x 13851}#)
16495 (if (= (vector-length
16504 (symbol? (vector-ref #{x 13851}# 1))
16506 (#{free-id=? 4431}#
16511 #(ribcage () () ())
16512 #(ribcage () () ())
16523 expand-simple-lambda
16527 eval-local-transformer
16528 expand-local-syntax
16536 expand-install-global
16537 expand-top-sequence
16542 distinct-bound-ids?
16561 set-ribcage-labels!
16563 set-ribcage-symnames!
16594 set-syntax-object-module!
16595 set-syntax-object-wrap!
16596 set-syntax-object-expression!
16597 syntax-object-module
16599 syntax-object-expression
16612 build-simple-lambda
16613 build-global-definition
16614 build-global-assignment
16615 build-global-reference
16617 build-lexical-assignment
16618 build-lexical-reference
16625 get-global-definition-hook
16626 put-global-definition-hook
16629 top-level-eval-hook
16646 make-toplevel-define
16934 define-expansion-accessors
16935 define-expansion-constructors)
16936 ((top) (top) (top))
16937 ("i46" "i45" "i44"))
16938 #(ribcage () () ()))
16945 (string-append (symbol->string 'tmp) " "))))
16946 (#{build-call 4377}#
16948 (let ((#{req 14058}# (list 'tmp))
16949 (#{vars 14060}# (list #{x 13916}#))
16951 (#{gen-syntax-case 13788}#
16952 (make-struct/no-tail
16953 (vector-ref %expanded-vtables 3)
16961 (let ((#{body 14067}#
16962 (make-struct/no-tail
16963 (vector-ref %expanded-vtables 15)
16973 (make-struct/no-tail
16974 (vector-ref %expanded-vtables 14)
16978 (list (#{expand 4443}#
16985 "invalid literals list"
16990 "source expression failed to match any pattern"
16991 #{tmp 13795}#))))))))
16997 (#{esew 16801}# '(eval)))
16998 (#{expand-top-sequence 4439}#
17005 (cons 'hygiene (module-name (current-module))))))
17007 (lambda (#{x 16804}#)
17008 (if (if (vector? #{x 16804}#)
17009 (if (= (vector-length #{x 16804}#) 4)
17010 (eq? (vector-ref #{x 16804}# 0) 'syntax-object)
17013 (symbol? (vector-ref #{x 16804}# 1))
17015 (set! datum->syntax
17016 (lambda (#{id 16829}# #{datum 16830}#)
17017 (let ((#{wrap 16835}# (vector-ref #{id 16829}# 2))
17018 (#{module 16836}# (vector-ref #{id 16829}# 3)))
17023 #{module 16836}#))))
17024 (set! syntax->datum
17025 (lambda (#{x 16843}#)
17026 (#{strip 4456}# #{x 16843}# '(()))))
17027 (set! syntax-source
17028 (lambda (#{x 16846}#)
17029 (#{source-annotation 4404}# #{x 16846}#)))
17030 (set! generate-temporaries
17031 (lambda (#{ls 17048}#)
17033 (if (not (list? #{ls 17048}#))
17035 'generate-temporaries
17038 (let ((#{mod 17056}#
17039 (cons 'hygiene (module-name (current-module)))))
17040 (map (lambda (#{x 17057}#)
17041 (let ((#{x 17061}# (gensym)))
17042 (if (if (vector? #{x 17061}#)
17043 (if (= (vector-length #{x 17061}#) 4)
17044 (eq? (vector-ref #{x 17061}# 0) 'syntax-object)
17047 (let ((#{expression 17076}# (vector-ref #{x 17061}# 1))
17049 (let ((#{w2 17085}# (vector-ref #{x 17061}# 2)))
17050 (cons (let ((#{m2 17092}# (car #{w2 17085}#)))
17051 (if (null? #{m2 17092}#)
17053 (append '(top) #{m2 17092}#)))
17054 (let ((#{m2 17099}# (cdr #{w2 17085}#)))
17055 (if (null? #{m2 17099}#)
17057 (append '() #{m2 17099}#))))))
17058 (#{module 17078}# (vector-ref #{x 17061}# 3)))
17061 #{expression 17076}#
17064 (if (null? #{x 17061}#)
17072 (set! free-identifier=?
17073 (lambda (#{x 17108}# #{y 17109}#)
17075 (if (not (if (if (vector? #{x 17108}#)
17076 (if (= (vector-length #{x 17108}#) 4)
17077 (eq? (vector-ref #{x 17108}# 0) 'syntax-object)
17080 (symbol? (vector-ref #{x 17108}# 1))
17086 (if (not (if (if (vector? #{y 17109}#)
17087 (if (= (vector-length #{y 17109}#) 4)
17088 (eq? (vector-ref #{y 17109}# 0) 'syntax-object)
17091 (symbol? (vector-ref #{y 17109}# 1))
17097 (#{free-id=? 4431}# #{x 17108}# #{y 17109}#))))
17098 (set! bound-identifier=?
17099 (lambda (#{x 17184}# #{y 17185}#)
17101 (if (not (if (if (vector? #{x 17184}#)
17102 (if (= (vector-length #{x 17184}#) 4)
17103 (eq? (vector-ref #{x 17184}# 0) 'syntax-object)
17106 (symbol? (vector-ref #{x 17184}# 1))
17109 'bound-identifier=?
17112 (if (not (if (if (vector? #{y 17185}#)
17113 (if (= (vector-length #{y 17185}#) 4)
17114 (eq? (vector-ref #{y 17185}# 0) 'syntax-object)
17117 (symbol? (vector-ref #{y 17185}# 1))
17120 'bound-identifier=?
17123 (#{bound-id=? 4432}# #{x 17184}# #{y 17185}#))))
17124 (set! syntax-violation
17130 (#{subform 17354}# #f))
17132 (if (not (if (not #{who 17351}#)
17133 (not #{who 17351}#)
17134 (let ((#{t 17372}# (string? #{who 17351}#)))
17137 (symbol? #{who 17351}#)))))
17142 (if (not (string? #{message 17352}#))
17146 #{message 17352}#))
17147 (throw 'syntax-error
17150 (#{source-annotation 4404}#
17153 #{subform 17354}#))
17154 (#{strip 4456}# #{form 17353}# '(()))
17155 (if #{subform 17354}#
17156 (#{strip 4456}# #{subform 17354}# '(()))
17159 ((#{match-each 17623}#
17160 (lambda (#{e 18511}#
17164 (if (pair? #{e 18511}#)
17165 (let ((#{first 18515}#
17172 (if #{first 18515}#
17173 (let ((#{rest 18518}#
17174 (#{match-each 17623}#
17180 (cons #{first 18515}# #{rest 18518}#)
17183 (if (null? #{e 18511}#)
17185 (if (if (vector? #{e 18511}#)
17186 (if (= (vector-length #{e 18511}#) 4)
17187 (eq? (vector-ref #{e 18511}# 0) 'syntax-object)
17190 (#{match-each 17623}#
17191 (vector-ref #{e 18511}# 1)
17193 (let ((#{w2 18540}# (vector-ref #{e 18511}# 2)))
17194 (let ((#{m1 18541}# (car #{w 18513}#))
17195 (#{s1 18542}# (cdr #{w 18513}#)))
17196 (if (null? #{m1 18541}#)
17197 (if (null? #{s1 18542}#)
17199 (cons (car #{w2 18540}#)
17200 (let ((#{m2 18553}# (cdr #{w2 18540}#)))
17201 (if (null? #{m2 18553}#)
17203 (append #{s1 18542}# #{m2 18553}#)))))
17204 (cons (let ((#{m2 18561}# (car #{w2 18540}#)))
17205 (if (null? #{m2 18561}#)
17207 (append #{m1 18541}# #{m2 18561}#)))
17208 (let ((#{m2 18569}# (cdr #{w2 18540}#)))
17209 (if (null? #{m2 18569}#)
17211 (append #{s1 18542}# #{m2 18569}#)))))))
17212 (vector-ref #{e 18511}# 3))
17214 (#{match-each-any 17625}#
17215 (lambda (#{e 18578}# #{w 18579}# #{mod 18580}#)
17216 (if (pair? #{e 18578}#)
17218 (#{match-each-any 17625}#
17223 (cons (let ((#{x 18586}# (car #{e 18578}#)))
17224 (if (if (null? (car #{w 18579}#))
17225 (null? (cdr #{w 18579}#))
17228 (if (if (vector? #{x 18586}#)
17229 (if (= (vector-length #{x 18586}#) 4)
17230 (eq? (vector-ref #{x 18586}# 0)
17234 (let ((#{expression 18604}#
17235 (vector-ref #{x 18586}# 1))
17237 (let ((#{w2 18613}#
17238 (vector-ref #{x 18586}# 2)))
17239 (let ((#{m1 18614}# (car #{w 18579}#))
17240 (#{s1 18615}# (cdr #{w 18579}#)))
17241 (if (null? #{m1 18614}#)
17242 (if (null? #{s1 18615}#)
17244 (cons (car #{w2 18613}#)
17245 (let ((#{m2 18630}#
17246 (cdr #{w2 18613}#)))
17247 (if (null? #{m2 18630}#)
17252 (cons (let ((#{m2 18638}#
17253 (car #{w2 18613}#)))
17254 (if (null? #{m2 18638}#)
17259 (let ((#{m2 18646}#
17260 (cdr #{w2 18613}#)))
17261 (if (null? #{m2 18646}#)
17265 #{m2 18646}#))))))))
17267 (vector-ref #{x 18586}# 3)))
17270 #{expression 18604}#
17273 (if (null? #{x 18586}#)
17282 (if (null? #{e 18578}#)
17284 (if (if (vector? #{e 18578}#)
17285 (if (= (vector-length #{e 18578}#) 4)
17286 (eq? (vector-ref #{e 18578}# 0) 'syntax-object)
17289 (#{match-each-any 17625}#
17290 (vector-ref #{e 18578}# 1)
17291 (let ((#{w2 18679}# (vector-ref #{e 18578}# 2)))
17292 (let ((#{m1 18680}# (car #{w 18579}#))
17293 (#{s1 18681}# (cdr #{w 18579}#)))
17294 (if (null? #{m1 18680}#)
17295 (if (null? #{s1 18681}#)
17297 (cons (car #{w2 18679}#)
17298 (let ((#{m2 18692}# (cdr #{w2 18679}#)))
17299 (if (null? #{m2 18692}#)
17301 (append #{s1 18681}# #{m2 18692}#)))))
17302 (cons (let ((#{m2 18700}# (car #{w2 18679}#)))
17303 (if (null? #{m2 18700}#)
17305 (append #{m1 18680}# #{m2 18700}#)))
17306 (let ((#{m2 18708}# (cdr #{w2 18679}#)))
17307 (if (null? #{m2 18708}#)
17309 (append #{s1 18681}# #{m2 18708}#)))))))
17312 (#{match-empty 17626}#
17313 (lambda (#{p 18713}# #{r 18714}#)
17314 (if (null? #{p 18713}#)
17316 (if (eq? #{p 18713}# '_)
17318 (if (eq? #{p 18713}# 'any)
17319 (cons '() #{r 18714}#)
17320 (if (pair? #{p 18713}#)
17321 (#{match-empty 17626}#
17323 (#{match-empty 17626}#
17326 (if (eq? #{p 18713}# 'each-any)
17327 (cons '() #{r 18714}#)
17328 (let ((#{atom-key 18715}# (vector-ref #{p 18713}# 0)))
17329 (if (eqv? #{atom-key 18715}# 'each)
17330 (#{match-empty 17626}#
17331 (vector-ref #{p 18713}# 1)
17333 (if (eqv? #{atom-key 18715}# 'each+)
17334 (#{match-empty 17626}#
17335 (vector-ref #{p 18713}# 1)
17336 (#{match-empty 17626}#
17337 (reverse (vector-ref #{p 18713}# 2))
17338 (#{match-empty 17626}#
17339 (vector-ref #{p 18713}# 3)
17341 (if (if (eqv? #{atom-key 18715}# 'free-id)
17343 (eqv? #{atom-key 18715}# 'atom))
17345 (if (eqv? #{atom-key 18715}# 'vector)
17346 (#{match-empty 17626}#
17347 (vector-ref #{p 18713}# 1)
17348 #{r 18714}#)))))))))))))
17350 (lambda (#{r* 18734}# #{r 18735}#)
17351 (if (null? (car #{r* 18734}#))
17353 (cons (map car #{r* 18734}#)
17355 (map cdr #{r* 18734}#)
17358 (lambda (#{e 17658}#
17363 (if (null? #{p 17659}#)
17364 (if (null? #{e 17658}#) #{r 17661}# #f)
17365 (if (pair? #{p 17659}#)
17366 (if (pair? #{e 17658}#)
17379 (if (eq? #{p 17659}# 'each-any)
17381 (#{match-each-any 17625}#
17386 (cons #{l 17667}# #{r 17661}#)
17388 (let ((#{atom-key 17672}# (vector-ref #{p 17659}# 0)))
17389 (if (eqv? #{atom-key 17672}# 'each)
17390 (if (null? #{e 17658}#)
17391 (#{match-empty 17626}#
17392 (vector-ref #{p 17659}# 1)
17395 (#{match-each 17623}#
17397 (vector-ref #{p 17659}# 1)
17402 ((#{collect 17682}#
17403 (lambda (#{l 17743}#)
17404 (if (null? (car #{l 17743}#))
17406 (cons (map car #{l 17743}#)
17408 (map cdr #{l 17743}#)))))))
17409 (#{collect 17682}# #{l 17679}#))
17411 (if (eqv? #{atom-key 17672}# 'each+)
17414 (let ((#{x-pat 17752}# (vector-ref #{p 17659}# 1))
17415 (#{y-pat 17753}# (vector-ref #{p 17659}# 2))
17416 (#{z-pat 17754}# (vector-ref #{p 17659}# 3)))
17419 (lambda (#{e 17760}# #{w 17761}#)
17420 (if (pair? #{e 17760}#)
17426 (lambda (#{xr* 17762}#
17430 (if (null? #{y-pat 17763}#)
17431 (let ((#{xr 17765}#
17444 (values #f #f #f)))
17447 (cdr #{y-pat 17763}#)
17450 (car #{y-pat 17763}#)
17454 (values #f #f #f))))
17455 (if (if (vector? #{e 17760}#)
17456 (if (= (vector-length #{e 17760}#)
17458 (eq? (vector-ref #{e 17760}# 0)
17463 (vector-ref #{e 17760}# 1)
17464 (let ((#{m1 17793}#
17467 (cdr #{w 17761}#)))
17468 (if (null? #{m1 17793}#)
17469 (if (null? #{s1 17794}#)
17471 (cons (car #{e 17760}#)
17472 (let ((#{m2 17806}#
17473 (cdr #{e 17760}#)))
17474 (if (null? #{m2 17806}#)
17479 (cons (let ((#{m2 17816}#
17480 (car #{e 17760}#)))
17481 (if (null? #{m2 17816}#)
17486 (let ((#{m2 17826}#
17487 (cdr #{e 17760}#)))
17488 (if (null? #{m2 17826}#)
17492 #{m2 17826}#)))))))
17501 #{mod 17662}#)))))))
17502 (#{f 17758}# #{e 17658}# #{w 17660}#))))
17503 (lambda (#{xr* 17836}# #{y-pat 17837}# #{r 17838}#)
17505 (if (null? #{y-pat 17837}#)
17506 (if (null? #{xr* 17836}#)
17507 (#{match-empty 17626}#
17508 (vector-ref #{p 17659}# 1)
17510 (#{combine 17627}# #{xr* 17836}# #{r 17838}#))
17513 (if (eqv? #{atom-key 17672}# 'free-id)
17514 (if (if (symbol? #{e 17658}#)
17516 (if (if (vector? #{e 17658}#)
17517 (if (= (vector-length #{e 17658}#) 4)
17518 (eq? (vector-ref #{e 17658}# 0)
17522 (symbol? (vector-ref #{e 17658}# 1))
17524 (if (#{free-id=? 4431}#
17525 (if (if (null? (car #{w 17660}#))
17526 (null? (cdr #{w 17660}#))
17529 (if (if (vector? #{e 17658}#)
17530 (if (= (vector-length #{e 17658}#) 4)
17531 (eq? (vector-ref #{e 17658}# 0)
17535 (let ((#{expression 18269}#
17536 (vector-ref #{e 17658}# 1))
17538 (let ((#{w2 18280}#
17542 (let ((#{m1 18281}#
17545 (cdr #{w 17660}#)))
17546 (if (null? #{m1 18281}#)
17547 (if (null? #{s1 18282}#)
17549 (cons (car #{w2 18280}#)
17550 (let ((#{m2 18299}#
17551 (cdr #{w2 18280}#)))
17552 (if (null? #{m2 18299}#)
17557 (cons (let ((#{m2 18307}#
17558 (car #{w2 18280}#)))
17559 (if (null? #{m2 18307}#)
17564 (let ((#{m2 18315}#
17565 (cdr #{w2 18280}#)))
17566 (if (null? #{m2 18315}#)
17570 #{m2 18315}#))))))))
17572 (vector-ref #{e 17658}# 3)))
17575 #{expression 18269}#
17578 (if (null? #{e 17658}#)
17585 (vector-ref #{p 17659}# 1))
17589 (if (eqv? #{atom-key 17672}# 'atom)
17591 (vector-ref #{p 17659}# 1)
17592 (#{strip 4456}# #{e 17658}# #{w 17660}#))
17595 (if (eqv? #{atom-key 17672}# 'vector)
17596 (if (vector? #{e 17658}#)
17598 (vector->list #{e 17658}#)
17599 (vector-ref #{p 17659}# 1)
17605 (lambda (#{e 18348}#
17610 (if (not #{r 18351}#)
17612 (if (eq? #{p 18349}# '_)
17614 (if (eq? #{p 18349}# 'any)
17615 (cons (if (if (null? (car #{w 18350}#))
17616 (null? (cdr #{w 18350}#))
17619 (if (if (vector? #{e 18348}#)
17620 (if (= (vector-length #{e 18348}#) 4)
17621 (eq? (vector-ref #{e 18348}# 0)
17625 (let ((#{expression 18382}#
17626 (vector-ref #{e 18348}# 1))
17628 (let ((#{w2 18393}#
17629 (vector-ref #{e 18348}# 2)))
17630 (let ((#{m1 18394}# (car #{w 18350}#))
17631 (#{s1 18395}# (cdr #{w 18350}#)))
17632 (if (null? #{m1 18394}#)
17633 (if (null? #{s1 18395}#)
17635 (cons (car #{w2 18393}#)
17636 (let ((#{m2 18412}#
17637 (cdr #{w2 18393}#)))
17638 (if (null? #{m2 18412}#)
17643 (cons (let ((#{m2 18420}#
17644 (car #{w2 18393}#)))
17645 (if (null? #{m2 18420}#)
17650 (let ((#{m2 18428}#
17651 (cdr #{w2 18393}#)))
17652 (if (null? #{m2 18428}#)
17656 #{m2 18428}#))))))))
17657 (#{module 18384}# (vector-ref #{e 18348}# 3)))
17660 #{expression 18382}#
17663 (if (null? #{e 18348}#)
17671 (if (if (vector? #{e 18348}#)
17672 (if (= (vector-length #{e 18348}#) 4)
17673 (eq? (vector-ref #{e 18348}# 0) 'syntax-object)
17677 (vector-ref #{e 18348}# 1)
17679 (let ((#{w2 18471}# (vector-ref #{e 18348}# 2)))
17680 (let ((#{m1 18472}# (car #{w 18350}#))
17681 (#{s1 18473}# (cdr #{w 18350}#)))
17682 (if (null? #{m1 18472}#)
17683 (if (null? #{s1 18473}#)
17685 (cons (car #{w2 18471}#)
17686 (let ((#{m2 18484}# (cdr #{w2 18471}#)))
17687 (if (null? #{m2 18484}#)
17689 (append #{s1 18473}# #{m2 18484}#)))))
17690 (cons (let ((#{m2 18492}# (car #{w2 18471}#)))
17691 (if (null? #{m2 18492}#)
17693 (append #{m1 18472}# #{m2 18492}#)))
17694 (let ((#{m2 18500}# (cdr #{w2 18471}#)))
17695 (if (null? #{m2 18500}#)
17697 (append #{s1 18473}# #{m2 18500}#)))))))
17699 (vector-ref #{e 18348}# 3))
17705 #{mod 18352}#))))))))
17707 (lambda (#{e 17630}# #{p 17631}#)
17708 (if (eq? #{p 17631}# 'any)
17710 (if (eq? #{p 17631}# '_)
17712 (if (if (vector? #{e 17630}#)
17713 (if (= (vector-length #{e 17630}#) 4)
17714 (eq? (vector-ref #{e 17630}# 0) 'syntax-object)
17718 (vector-ref #{e 17630}# 1)
17720 (vector-ref #{e 17630}# 2)
17722 (vector-ref #{e 17630}# 3))
17730 (define with-syntax
17731 (make-syntax-transformer
17734 (lambda (#{x 36772}#)
17735 (let ((#{tmp 36774}#
17736 ($sc-dispatch #{x 36772}# '(_ () any . each-any))))
17739 (lambda (#{e1 36778}# #{e2 36779}#)
17740 (cons '#(syntax-object
17746 #("i36745" "i36746"))
17747 #(ribcage () () ())
17748 #(ribcage #(x) #((top)) #("i36742"))
17757 (hygiene guile))))))
17759 (cons '() (cons #{e1 36778}# #{e2 36779}#))))
17761 (let ((#{tmp 36780}#
17764 '(_ ((any any)) any . each-any))))
17767 (lambda (#{out 36784}#
17771 (list '#(syntax-object
17776 #((top) (top) (top) (top))
17777 #("i36751" "i36752" "i36753" "i36754"))
17778 #(ribcage () () ())
17779 #(ribcage #(x) #((top)) #("i36742"))
17788 (hygiene guile))))))
17792 (list #{out 36784}#
17793 (cons '#(syntax-object
17798 #((top) (top) (top) (top))
17803 #(ribcage () () ())
17804 #(ribcage #(x) #((top)) #("i36742"))
17813 (hygiene guile))))))
17816 (cons #{e1 36786}# #{e2 36787}#))))))
17818 (let ((#{tmp 36788}#
17821 '(_ #(each (any any)) any . each-any))))
17824 (lambda (#{out 36792}#
17828 (list '#(syntax-object
17833 #((top) (top) (top) (top))
17834 #("i36761" "i36762" "i36763" "i36764"))
17835 #(ribcage () () ())
17836 #(ribcage #(x) #((top)) #("i36742"))
17845 (hygiene guile))))))
17847 (cons '#(syntax-object
17852 #((top) (top) (top) (top))
17853 #("i36761" "i36762" "i36763" "i36764"))
17854 #(ribcage () () ())
17855 #(ribcage #(x) #((top)) #("i36742"))
17864 (hygiene guile))))))
17868 (list #{out 36792}#
17869 (cons '#(syntax-object
17874 #((top) (top) (top) (top))
17879 #(ribcage () () ())
17892 (hygiene guile))))))
17900 "source expression failed to match any pattern"
17901 #{x 36772}#))))))))))
17903 (define syntax-rules
17904 (make-syntax-transformer
17907 (lambda (#{x 36850}#)
17908 (let ((#{tmp 36852}#
17911 '(_ each-any . #(each ((any . any) any))))))
17914 (lambda (#{k 36856}#
17917 #{template 36859}#)
17918 (list '#(syntax-object
17922 #(k keyword pattern template)
17923 #((top) (top) (top) (top))
17924 #("i36813" "i36814" "i36815" "i36816"))
17925 #(ribcage () () ())
17926 #(ribcage #(x) #((top)) #("i36810"))
17935 (hygiene guile))))))
17941 #(k keyword pattern template)
17942 #((top) (top) (top) (top))
17943 #("i36813" "i36814" "i36815" "i36816"))
17944 #(ribcage () () ())
17945 #(ribcage #(x) #((top)) #("i36810"))
17954 (hygiene guile))))))
17961 #(k keyword pattern template)
17962 #((top) (top) (top) (top))
17963 #("i36813" "i36814" "i36815" "i36816"))
17964 #(ribcage () () ())
17965 #(ribcage #(x) #((top)) #("i36810"))
17974 (hygiene guile))))))
17981 #(k keyword pattern template)
17982 #((top) (top) (top) (top))
17983 #("i36813" "i36814" "i36815" "i36816"))
17984 #(ribcage () () ())
17985 #(ribcage #(x) #((top)) #("i36810"))
17994 (hygiene guile))))))
17996 (cons '#(syntax-object
18000 #(k keyword pattern template)
18001 #((top) (top) (top) (top))
18002 #("i36813" "i36814" "i36815" "i36816"))
18003 #(ribcage () () ())
18004 #(ribcage #(x) #((top)) #("i36810"))
18013 (hygiene guile))))))
18015 #{pattern 36858}#))
18016 (cons '#(syntax-object
18020 #(k keyword pattern template)
18021 #((top) (top) (top) (top))
18022 #("i36813" "i36814" "i36815" "i36816"))
18023 #(ribcage () () ())
18024 #(ribcage #(x) #((top)) #("i36810"))
18033 (hygiene guile))))))
18035 (cons '#(syntax-object
18039 #(k keyword pattern template)
18040 #((top) (top) (top) (top))
18041 #("i36813" "i36814" "i36815" "i36816"))
18042 #(ribcage () () ())
18043 #(ribcage #(x) #((top)) #("i36810"))
18052 (hygiene guile))))))
18055 (map (lambda (#{tmp 36824 36860}#
18056 #{tmp 36823 36861}#)
18057 (list (cons '#(syntax-object
18093 #{tmp 36823 36861}#)
18094 (list '#(syntax-object
18130 #{tmp 36824 36860}#)))
18132 #{pattern 36858}#))))))
18134 (let ((#{tmp 36862}#
18137 '(_ each-any any . #(each ((any . any) any))))))
18138 (if (if #{tmp 36862}#
18140 (lambda (#{k 36866}#
18141 #{docstring 36867}#
18144 #{template 36870}#)
18145 (string? (syntax->datum #{docstring 36867}#)))
18149 (lambda (#{k 36871}#
18150 #{docstring 36872}#
18153 #{template 36875}#)
18154 (list '#(syntax-object
18158 #(k docstring keyword pattern template)
18159 #((top) (top) (top) (top) (top))
18160 #("i36836" "i36837" "i36838" "i36839" "i36840"))
18161 #(ribcage () () ())
18162 #(ribcage #(x) #((top)) #("i36810"))
18171 (hygiene guile))))))
18177 #(k docstring keyword pattern template)
18178 #((top) (top) (top) (top) (top))
18179 #("i36836" "i36837" "i36838" "i36839" "i36840"))
18180 #(ribcage () () ())
18181 #(ribcage #(x) #((top)) #("i36810"))
18190 (hygiene guile))))))
18192 #{docstring 36872}#
18198 #(k docstring keyword pattern template)
18199 #((top) (top) (top) (top) (top))
18205 #(ribcage () () ())
18206 #(ribcage #(x) #((top)) #("i36810"))
18215 (hygiene guile))))))
18222 #(k docstring keyword pattern template)
18223 #((top) (top) (top) (top) (top))
18229 #(ribcage () () ())
18230 #(ribcage #(x) #((top)) #("i36810"))
18239 (hygiene guile))))))
18241 (cons '#(syntax-object
18245 #(k docstring keyword pattern template)
18246 #((top) (top) (top) (top) (top))
18252 #(ribcage () () ())
18253 #(ribcage #(x) #((top)) #("i36810"))
18262 (hygiene guile))))))
18264 #{pattern 36874}#))
18265 (cons '#(syntax-object
18269 #(k docstring keyword pattern template)
18270 #((top) (top) (top) (top) (top))
18276 #(ribcage () () ())
18277 #(ribcage #(x) #((top)) #("i36810"))
18286 (hygiene guile))))))
18288 (cons '#(syntax-object
18297 #((top) (top) (top) (top) (top))
18303 #(ribcage () () ())
18304 #(ribcage #(x) #((top)) #("i36810"))
18313 (hygiene guile))))))
18316 (map (lambda (#{tmp 36849 36876}#
18317 #{tmp 36848 36877}#)
18318 (list (cons '#(syntax-object
18358 #{tmp 36848 36877}#)
18359 (list '#(syntax-object
18399 #{tmp 36849 36876}#)))
18401 #{pattern 36874}#))))))
18405 "source expression failed to match any pattern"
18406 #{x 36850}#))))))))
18408 (define define-syntax-rule
18409 (make-syntax-transformer
18410 'define-syntax-rule
18412 (lambda (#{x 36915}#)
18413 (let ((#{tmp 36917}#
18414 ($sc-dispatch #{x 36915}# '(_ (any . any) any))))
18417 (lambda (#{name 36921}#
18419 #{template 36923}#)
18420 (list '#(syntax-object
18424 #(name pattern template)
18425 #((top) (top) (top))
18426 #("i36892" "i36893" "i36894"))
18427 #(ribcage () () ())
18428 #(ribcage #(x) #((top)) #("i36889"))
18430 (define-syntax-rule)
18437 (hygiene guile))))))
18440 (list '#(syntax-object
18444 #(name pattern template)
18445 #((top) (top) (top))
18446 #("i36892" "i36893" "i36894"))
18447 #(ribcage () () ())
18448 #(ribcage #(x) #((top)) #("i36889"))
18450 (define-syntax-rule)
18457 (hygiene guile))))))
18460 (list (cons '#(syntax-object
18464 #(name pattern template)
18465 #((top) (top) (top))
18466 #("i36892" "i36893" "i36894"))
18467 #(ribcage () () ())
18468 #(ribcage #(x) #((top)) #("i36889"))
18470 (define-syntax-rule)
18477 (hygiene guile))))))
18480 #{template 36923}#))))
18482 (let ((#{tmp 36924}#
18485 '(_ (any . any) any any))))
18486 (if (if #{tmp 36924}#
18488 (lambda (#{name 36928}#
18490 #{docstring 36930}#
18491 #{template 36931}#)
18492 (string? (syntax->datum #{docstring 36930}#)))
18496 (lambda (#{name 36932}#
18498 #{docstring 36934}#
18499 #{template 36935}#)
18500 (list '#(syntax-object
18504 #(name pattern docstring template)
18505 #((top) (top) (top) (top))
18506 #("i36907" "i36908" "i36909" "i36910"))
18507 #(ribcage () () ())
18508 #(ribcage #(x) #((top)) #("i36889"))
18510 (define-syntax-rule)
18517 (hygiene guile))))))
18520 (list '#(syntax-object
18524 #(name pattern docstring template)
18525 #((top) (top) (top) (top))
18526 #("i36907" "i36908" "i36909" "i36910"))
18527 #(ribcage () () ())
18528 #(ribcage #(x) #((top)) #("i36889"))
18530 (define-syntax-rule)
18537 (hygiene guile))))))
18540 #{docstring 36934}#
18541 (list (cons '#(syntax-object
18549 #((top) (top) (top) (top))
18554 #(ribcage () () ())
18560 (define-syntax-rule)
18567 (hygiene guile))))))
18570 #{template 36935}#))))
18574 "source expression failed to match any pattern"
18575 #{x 36915}#))))))))
18578 (make-syntax-transformer
18581 (lambda (#{x 36985}#)
18582 (let ((#{tmp 36987}#
18585 '(any #(each (any any)) any . each-any))))
18586 (if (if #{tmp 36987}#
18588 (lambda (#{let* 36991}#
18593 (and-map identifier? #{x 36992}#))
18597 (lambda (#{let* 36996}#
18604 (lambda (#{bindings 37004}#)
18605 (if (null? #{bindings 37004}#)
18606 (cons '#(syntax-object
18609 #(ribcage () () ())
18613 #("i36971" "i36972"))
18616 #((top) (top) (top) (top) (top))
18622 #(ribcage () () ())
18623 #(ribcage #(x) #((top)) #("i36947"))
18632 (hygiene guile))))))
18634 (cons '() (cons #{e1 36999}# #{e2 37000}#)))
18635 (let ((#{tmp 37005}#
18636 (list (#{f 37001}# (cdr #{bindings 37004}#))
18637 (car #{bindings 37004}#))))
18638 (let ((#{tmp 37006}#
18639 ($sc-dispatch #{tmp 37005}# '(any any))))
18642 (lambda (#{body 37008}# #{binding 37009}#)
18643 (list '#(syntax-object
18646 #(ribcage () () ())
18650 #("i36981" "i36982"))
18651 #(ribcage () () ())
18655 #("i36971" "i36972"))
18658 #((top) (top) (top) (top) (top))
18664 #(ribcage () () ())
18665 #(ribcage #(x) #((top)) #("i36947"))
18674 (hygiene guile))))))
18676 (list #{binding 37009}#)
18681 "source expression failed to match any pattern"
18682 #{tmp 37005}#))))))))
18683 (#{f 37001}# (map list #{x 36997}# #{v 36998}#))))
18687 "source expression failed to match any pattern"
18691 (make-syntax-transformer
18694 (lambda (#{orig-x 37068}#)
18695 (let ((#{tmp 37070}#
18698 '(_ #(each (any any . any))
18704 (lambda (#{var 37074}#
18710 (let ((#{tmp 37080}#
18711 (map (lambda (#{v 37083}# #{s 37084}#)
18712 (let ((#{tmp 37086}#
18713 ($sc-dispatch #{s 37084}# '())))
18715 (@apply (lambda () #{v 37083}#) #{tmp 37086}#)
18716 (let ((#{tmp 37089}#
18717 ($sc-dispatch #{s 37084}# '(any))))
18720 (lambda (#{e 37092}#) #{e 37092}#)
18724 "bad step expression"
18729 (let ((#{tmp 37081}#
18730 ($sc-dispatch #{tmp 37080}# 'each-any)))
18733 (lambda (#{step 37098}#)
18734 (let ((#{tmp 37100}# ($sc-dispatch #{e1 37078}# '())))
18738 (list '#(syntax-object
18741 #(ribcage () () ())
18747 #(var init step e0 e1 c)
18760 #(ribcage () () ())
18773 (hygiene guile))))))
18778 #(ribcage () () ())
18784 #(var init step e0 e1 c)
18797 #(ribcage () () ())
18810 (hygiene guile))))))
18812 (map list #{var 37074}# #{init 37075}#)
18813 (list '#(syntax-object
18816 #(ribcage () () ())
18822 #(var init step e0 e1 c)
18835 #(ribcage () () ())
18848 (hygiene guile))))))
18850 (list '#(syntax-object
18853 #(ribcage () () ())
18877 #(ribcage () () ())
18894 (cons '#(syntax-object
18897 #(ribcage () () ())
18921 #(ribcage () () ())
18939 (list (cons '#(syntax-object
18990 #{step 37098}#)))))))
18992 (let ((#{tmp 37104}#
18995 '(any . each-any))))
18998 (lambda (#{e1 37108}# #{e2 37109}#)
18999 (list '#(syntax-object
19005 #("i37045" "i37046"))
19006 #(ribcage () () ())
19012 #(var init step e0 e1 c)
19025 #(ribcage () () ())
19038 (hygiene guile))))))
19046 #("i37045" "i37046"))
19047 #(ribcage () () ())
19053 #(var init step e0 e1 c)
19066 #(ribcage () () ())
19079 (hygiene guile))))))
19084 (list '#(syntax-object
19090 #("i37045" "i37046"))
19091 #(ribcage () () ())
19097 #(var init step e0 e1 c)
19110 #(ribcage () () ())
19123 (hygiene guile))))))
19126 (cons '#(syntax-object
19134 #(ribcage () () ())
19158 #(ribcage () () ())
19176 (cons '#(syntax-object
19184 #(ribcage () () ())
19208 #(ribcage () () ())
19226 (list (cons '#(syntax-object
19284 #{step 37098}#)))))))
19288 "source expression failed to match any pattern"
19293 "source expression failed to match any pattern"
19298 "source expression failed to match any pattern"
19299 #{orig-x 37068}#))))))
19302 (make-syntax-transformer
19307 (lambda (#{p 37420}# #{lev 37421}#)
19308 (let ((#{tmp 37423}#
19315 #(ribcage () () ())
19319 #("i37142" "i37143"))
19327 ((top) (top) (top) (top) (top) (top) (top))
19343 (hygiene guile))))))
19348 (lambda (#{p 37427}#)
19349 (if (= #{lev 37421}# 0)
19350 (list '#(syntax-object
19353 #(ribcage #(p) #((top)) #("i37146"))
19354 #(ribcage () () ())
19358 #("i37142" "i37143"))
19366 ((top) (top) (top) (top) (top) (top) (top))
19382 (hygiene guile))))))
19385 (#{quasicons 37398}#
19389 #(ribcage #(p) #((top)) #("i37146"))
19390 #(ribcage () () ())
19394 #("i37142" "i37143"))
19402 ((top) (top) (top) (top) (top) (top) (top))
19418 (hygiene guile))))))
19423 #(ribcage #(p) #((top)) #("i37146"))
19424 #(ribcage () () ())
19428 #("i37142" "i37143"))
19436 ((top) (top) (top) (top) (top) (top) (top))
19452 (hygiene guile))))))
19456 (#{1-}# #{lev 37421}#)))))
19458 (let ((#{tmp 37430}#
19465 #(ribcage () () ())
19469 #("i37142" "i37143"))
19477 ((top) (top) (top) (top) (top) (top) (top))
19493 (hygiene guile))))))
19498 (lambda (#{p 37434}#)
19499 (#{quasicons 37398}#
19503 #(ribcage #(p) #((top)) #("i37149"))
19504 #(ribcage () () ())
19508 #("i37142" "i37143"))
19516 ((top) (top) (top) (top) (top) (top) (top))
19532 (hygiene guile))))))
19537 #(ribcage #(p) #((top)) #("i37149"))
19538 #(ribcage () () ())
19542 #("i37142" "i37143"))
19550 ((top) (top) (top) (top) (top) (top) (top))
19566 (hygiene guile))))))
19570 (#{1+}# #{lev 37421}#))))
19572 (let ((#{tmp 37437}#
19573 ($sc-dispatch #{p 37420}# '(any . any))))
19576 (lambda (#{p 37441}# #{q 37442}#)
19577 (let ((#{tmp 37444}#
19587 #("i37152" "i37153"))
19588 #(ribcage () () ())
19592 #("i37142" "i37143"))
19622 (hygiene guile))))))
19628 (lambda (#{p 37448}#)
19629 (if (= #{lev 37421}# 0)
19630 (#{quasilist* 37400}#
19631 (map (lambda (#{tmp 37160 37487}#)
19632 (list '#(syntax-object
19642 #("i37152" "i37153"))
19643 #(ribcage () () ())
19647 #("i37142" "i37143"))
19680 #{tmp 37160 37487}#))
19685 (#{quasicons 37398}#
19686 (#{quasicons 37398}#
19697 #("i37152" "i37153"))
19698 #(ribcage () () ())
19702 #("i37142" "i37143"))
19732 (hygiene guile))))))
19744 #("i37152" "i37153"))
19745 #(ribcage () () ())
19749 #("i37142" "i37143"))
19779 (hygiene guile))))))
19783 (#{1-}# #{lev 37421}#)))
19788 (let ((#{tmp 37492}#
19798 #("i37152" "i37153"))
19799 #(ribcage () () ())
19803 #("i37142" "i37143"))
19833 (hygiene guile))))))
19839 (lambda (#{p 37496}#)
19840 (if (= #{lev 37421}# 0)
19841 (#{quasiappend 37399}#
19842 (map (lambda (#{tmp 37165 37499}#)
19843 (list '#(syntax-object
19855 #(ribcage () () ())
19893 #{tmp 37165 37499}#))
19898 (#{quasicons 37398}#
19899 (#{quasicons 37398}#
19910 #("i37152" "i37153"))
19911 #(ribcage () () ())
19915 #("i37142" "i37143"))
19945 (hygiene guile))))))
19957 #("i37152" "i37153"))
19958 #(ribcage () () ())
19962 #("i37142" "i37143"))
19992 (hygiene guile))))))
19996 (#{1-}# #{lev 37421}#)))
20001 (#{quasicons 37398}#
20007 #{lev 37421}#)))))))
20009 (let ((#{tmp 37513}#
20010 ($sc-dispatch #{p 37420}# '#(vector each-any))))
20013 (lambda (#{x 37517}#)
20018 (let ((#{tmp 37522}#
20021 '(#(atom "quote") each-any))))
20024 (lambda (#{x 37526}#)
20025 (list '#(syntax-object
20032 #(ribcage () () ())
20066 (hygiene guile))))))
20068 (list->vector #{x 37526}#)))
20072 (lambda (#{y 37540}# #{k 37541}#)
20073 (let ((#{tmp 37543}#
20080 (lambda (#{y 37546}#)
20082 (map (lambda (#{tmp 37295 37547}#)
20083 (list '#(syntax-object
20150 #{tmp 37295 37547}#))
20153 (let ((#{tmp 37548}#
20161 (lambda (#{y 37551}#)
20165 (let ((#{tmp 37552}#
20176 (lambda (#{y 37555}#
20180 (lambda (#{ls 37557}#)
20186 (list '#(syntax-object
20260 #{x 37520}#))))))))))
20263 (lambda (#{ls 37530}#)
20264 (let ((#{tmp 37532}#
20270 (lambda (#{ g37283 37535}#)
20271 (cons '#(syntax-object
20343 #{ g37283 37535}#))
20347 "source expression failed to match any pattern"
20348 #{ls 37530}#))))))))))
20350 (list '#(syntax-object
20353 #(ribcage #(p) #((top)) #("i37173"))
20354 #(ribcage () () ())
20358 #("i37142" "i37143"))
20388 (hygiene guile))))))
20390 #{p 37420}#)))))))))))
20392 (lambda (#{p 37585}# #{lev 37586}#)
20393 (let ((#{tmp 37588}#
20394 ($sc-dispatch #{p 37585}# '(any . any))))
20397 (lambda (#{p 37592}# #{q 37593}#)
20398 (let ((#{tmp 37595}#
20408 #("i37181" "i37182"))
20409 #(ribcage () () ())
20413 #("i37177" "i37178"))
20443 (hygiene guile))))))
20449 (lambda (#{p 37599}#)
20450 (if (= #{lev 37586}# 0)
20451 (#{quasilist* 37400}#
20452 (map (lambda (#{tmp 37189 37638}#)
20453 (list '#(syntax-object
20463 #("i37181" "i37182"))
20464 #(ribcage () () ())
20468 #("i37177" "i37178"))
20498 (hygiene guile))))))
20500 #{tmp 37189 37638}#))
20502 (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))
20503 (#{quasicons 37398}#
20504 (#{quasicons 37398}#
20508 #(ribcage #(p) #((top)) #("i37187"))
20512 #("i37181" "i37182"))
20513 #(ribcage () () ())
20517 #("i37177" "i37178"))
20547 (hygiene guile))))))
20552 #(ribcage #(p) #((top)) #("i37187"))
20556 #("i37181" "i37182"))
20557 #(ribcage () () ())
20561 #("i37177" "i37178"))
20591 (hygiene guile))))))
20595 (#{1-}# #{lev 37586}#)))
20596 (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))))
20598 (let ((#{tmp 37645}#
20608 #("i37181" "i37182"))
20609 #(ribcage () () ())
20613 #("i37177" "i37178"))
20643 (hygiene guile))))))
20649 (lambda (#{p 37649}#)
20650 (if (= #{lev 37586}# 0)
20651 (#{quasiappend 37399}#
20652 (map (lambda (#{tmp 37194 37652}#)
20653 (list '#(syntax-object
20663 #("i37181" "i37182"))
20664 #(ribcage () () ())
20668 #("i37177" "i37178"))
20698 (hygiene guile))))))
20700 #{tmp 37194 37652}#))
20705 (#{quasicons 37398}#
20706 (#{quasicons 37398}#
20710 #(ribcage #(p) #((top)) #("i37192"))
20714 #("i37181" "i37182"))
20715 #(ribcage () () ())
20719 #("i37177" "i37178"))
20749 (hygiene guile))))))
20754 #(ribcage #(p) #((top)) #("i37192"))
20758 #("i37181" "i37182"))
20759 #(ribcage () () ())
20763 #("i37177" "i37178"))
20793 (hygiene guile))))))
20797 (#{1-}# #{lev 37586}#)))
20802 (#{quasicons 37398}#
20803 (#{quasi 37396}# #{p 37592}# #{lev 37586}#)
20804 (#{vquasi 37397}# #{q 37593}# #{lev 37586}#)))))))
20806 (let ((#{tmp 37670}# ($sc-dispatch #{p 37585}# '())))
20813 #(ribcage () () ())
20817 #("i37177" "i37178"))
20825 ((top) (top) (top) (top) (top) (top) (top))
20841 (hygiene guile))))))
20847 "source expression failed to match any pattern"
20849 (#{quasicons 37398}#
20850 (lambda (#{x 37683}# #{y 37684}#)
20851 (let ((#{tmp 37685}# (list #{x 37683}# #{y 37684}#)))
20852 (let ((#{tmp 37686}#
20853 ($sc-dispatch #{tmp 37685}# '(any any))))
20856 (lambda (#{x 37688}# #{y 37689}#)
20857 (let ((#{tmp 37691}#
20860 '(#(atom "quote") any))))
20863 (lambda (#{dy 37695}#)
20864 (let ((#{tmp 37697}#
20867 '(#(atom "quote") any))))
20870 (lambda (#{dx 37701}#)
20871 (list '#(syntax-object
20882 #(ribcage () () ())
20886 #("i37206" "i37207"))
20887 #(ribcage () () ())
20888 #(ribcage () () ())
20892 #("i37201" "i37202"))
20922 (hygiene guile))))))
20924 (cons #{dx 37701}# #{dy 37695}#)))
20926 (if (null? #{dy 37695}#)
20927 (list '#(syntax-object
20938 #(ribcage () () ())
20942 #("i37206" "i37207"))
20943 #(ribcage () () ())
20944 #(ribcage () () ())
20948 #("i37201" "i37202"))
20978 (hygiene guile))))))
20981 (list '#(syntax-object
20992 #(ribcage () () ())
20996 #("i37206" "i37207"))
20997 #(ribcage () () ())
20998 #(ribcage () () ())
21002 #("i37201" "i37202"))
21032 (hygiene guile))))))
21037 (let ((#{tmp 37706}#
21040 '(#(atom "list") . any))))
21043 (lambda (#{stuff 37710}#)
21044 (cons '#(syntax-object
21051 #(ribcage () () ())
21055 #("i37206" "i37207"))
21056 #(ribcage () () ())
21057 #(ribcage () () ())
21061 #("i37201" "i37202"))
21091 (hygiene guile))))))
21093 (cons #{x 37688}# #{stuff 37710}#)))
21095 (let ((#{tmp 37711}#
21098 '(#(atom "list*") . any))))
21101 (lambda (#{stuff 37715}#)
21102 (cons '#(syntax-object
21109 #(ribcage () () ())
21113 #("i37206" "i37207"))
21114 #(ribcage () () ())
21115 #(ribcage () () ())
21119 #("i37201" "i37202"))
21149 (hygiene guile))))))
21151 (cons #{x 37688}# #{stuff 37715}#)))
21153 (list '#(syntax-object
21156 #(ribcage #(_) #((top)) #("i37226"))
21157 #(ribcage () () ())
21161 #("i37206" "i37207"))
21162 #(ribcage () () ())
21163 #(ribcage () () ())
21167 #("i37201" "i37202"))
21197 (hygiene guile))))))
21200 #{y 37689}#))))))))
21204 "source expression failed to match any pattern"
21205 #{tmp 37685}#))))))
21206 (#{quasiappend 37399}#
21207 (lambda (#{x 37726}# #{y 37727}#)
21208 (let ((#{tmp 37729}#
21209 ($sc-dispatch #{y 37727}# '(#(atom "quote") ()))))
21213 (if (null? #{x 37726}#)
21217 #(ribcage () () ())
21221 #("i37230" "i37231"))
21229 ((top) (top) (top) (top) (top) (top) (top))
21245 (hygiene guile))))))
21248 (if (null? (cdr #{x 37726}#))
21250 (let ((#{tmp 37734}#
21251 ($sc-dispatch #{x 37726}# 'each-any)))
21254 (lambda (#{p 37738}#)
21255 (cons '#(syntax-object
21258 #(ribcage () () ())
21259 #(ribcage #(p) #((top)) #("i37242"))
21260 #(ribcage () () ())
21264 #("i37230" "i37231"))
21294 (hygiene guile))))))
21300 "source expression failed to match any pattern"
21303 (if (null? #{x 37726}#)
21305 (let ((#{tmp 37746}# (list #{x 37726}# #{y 37727}#)))
21306 (let ((#{tmp 37747}#
21307 ($sc-dispatch #{tmp 37746}# '(each-any any))))
21310 (lambda (#{p 37749}# #{y 37750}#)
21311 (cons '#(syntax-object
21314 #(ribcage () () ())
21318 #("i37253" "i37254"))
21319 #(ribcage #(_) #((top)) #("i37245"))
21320 #(ribcage () () ())
21324 #("i37230" "i37231"))
21354 (hygiene guile))))))
21356 (append #{p 37749}# (list #{y 37750}#))))
21360 "source expression failed to match any pattern"
21361 #{tmp 37746}#)))))))))
21362 (#{quasilist* 37400}#
21363 (lambda (#{x 37754}# #{y 37755}#)
21366 (lambda (#{x 37860}#)
21367 (if (null? #{x 37860}#)
21369 (#{quasicons 37398}#
21371 (#{f 37756}# (cdr #{x 37860}#)))))))
21372 (#{f 37756}# #{x 37754}#))))
21374 (lambda (#{x 37863}#)
21375 (let ((#{tmp 37865}#
21376 ($sc-dispatch #{x 37863}# '(#(atom "quote") any))))
21379 (lambda (#{x 37869}#)
21380 (list '#(syntax-object
21383 #(ribcage #(x) #((top)) #("i37320"))
21384 #(ribcage () () ())
21385 #(ribcage #(x) #((top)) #("i37317"))
21393 ((top) (top) (top) (top) (top) (top) (top))
21409 (hygiene guile))))))
21413 (let ((#{tmp 37870}#
21416 '(#(atom "list") . each-any))))
21419 (lambda (#{x 37874}#)
21420 (let ((#{tmp 37875}# (map #{emit 37402}# #{x 37874}#)))
21421 (let ((#{tmp 37876}#
21422 ($sc-dispatch #{tmp 37875}# 'each-any)))
21425 (lambda (#{ g37325 37878}#)
21426 (cons '#(syntax-object
21429 #(ribcage () () ())
21434 #(ribcage #(x) #((top)) #("i37323"))
21435 #(ribcage () () ())
21436 #(ribcage #(x) #((top)) #("i37317"))
21466 (hygiene guile))))))
21468 #{ g37325 37878}#))
21472 "source expression failed to match any pattern"
21475 (let ((#{tmp 37879}#
21478 '(#(atom "list*") . #(each+ any (any) ())))))
21481 (lambda (#{x 37883}# #{y 37884}#)
21484 (lambda (#{x* 37888}#)
21485 (if (null? #{x* 37888}#)
21486 (#{emit 37402}# #{y 37884}#)
21487 (let ((#{tmp 37889}#
21488 (list (#{emit 37402}#
21489 (car #{x* 37888}#))
21491 (cdr #{x* 37888}#)))))
21492 (let ((#{tmp 37890}#
21498 (lambda (#{ g37345 37892}#
21500 (list '#(syntax-object
21503 #(ribcage () () ())
21509 #("i37350" "i37351"))
21510 #(ribcage () () ())
21514 #("i37339" "i37340"))
21518 #("i37335" "i37336"))
21519 #(ribcage () () ())
21557 #{ g37344 37893}#))
21561 "source expression failed to match any pattern"
21562 #{tmp 37889}#))))))))
21563 (#{f 37885}# #{x 37883}#)))
21565 (let ((#{tmp 37894}#
21568 '(#(atom "append") . each-any))))
21571 (lambda (#{x 37898}#)
21572 (let ((#{tmp 37899}#
21573 (map #{emit 37402}# #{x 37898}#)))
21574 (let ((#{tmp 37900}#
21580 (lambda (#{ g37357 37902}#)
21581 (cons '#(syntax-object
21584 #(ribcage () () ())
21593 #(ribcage () () ())
21627 (hygiene guile))))))
21629 #{ g37357 37902}#))
21633 "source expression failed to match any pattern"
21636 (let ((#{tmp 37903}#
21639 '(#(atom "vector") . each-any))))
21642 (lambda (#{x 37907}#)
21643 (let ((#{tmp 37908}#
21644 (map #{emit 37402}# #{x 37907}#)))
21645 (let ((#{tmp 37909}#
21651 (lambda (#{ g37369 37911}#)
21652 (cons '#(syntax-object
21655 #(ribcage () () ())
21664 #(ribcage () () ())
21701 #{ g37369 37911}#))
21705 "source expression failed to match any pattern"
21708 (let ((#{tmp 37912}#
21711 '(#(atom "list->vector") any))))
21714 (lambda (#{x 37916}#)
21715 (let ((#{tmp 37917}#
21716 (#{emit 37402}# #{x 37916}#)))
21717 (list '#(syntax-object
21720 #(ribcage () () ())
21729 #(ribcage () () ())
21763 (hygiene guile))))))
21767 (let ((#{tmp 37920}#
21770 '(#(atom "value") any))))
21773 (lambda (#{x 37924}#) #{x 37924}#)
21777 "source expression failed to match any pattern"
21778 #{x 37863}#))))))))))))))))))
21779 (lambda (#{x 37403}#)
21780 (let ((#{tmp 37405}#
21781 ($sc-dispatch #{x 37403}# '(_ any))))
21784 (lambda (#{e 37409}#)
21785 (#{emit 37402}# (#{quasi 37396}# #{e 37409}# 0)))
21789 "source expression failed to match any pattern"
21793 (make-syntax-transformer
21796 (lambda (#{x 37980}#)
21798 ((#{read-file 37981}#
21799 (lambda (#{fn 38097}# #{k 38098}#)
21800 (let ((#{p 38099}# (open-input-file #{fn 38097}#)))
21803 (lambda (#{x 38157}# #{result 38158}#)
21804 (if (eof-object? #{x 38157}#)
21806 (close-input-port #{p 38099}#)
21807 (reverse #{result 38158}#))
21810 (cons (datum->syntax #{k 38098}# #{x 38157}#)
21811 #{result 38158}#))))))
21812 (#{f 38100}# (read #{p 38099}#) '()))))))
21813 (let ((#{tmp 37983}#
21814 ($sc-dispatch #{x 37980}# '(any any))))
21817 (lambda (#{k 37987}# #{filename 37988}#)
21818 (let ((#{fn 37989}# (syntax->datum #{filename 37988}#)))
21819 (let ((#{tmp 37990}#
21820 (#{read-file 37981}#
21822 #{filename 37988}#)))
21823 (let ((#{tmp 37991}#
21824 ($sc-dispatch #{tmp 37990}# 'each-any)))
21827 (lambda (#{exp 38009}#)
21828 (cons '#(syntax-object
21831 #(ribcage () () ())
21832 #(ribcage #(exp) #((top)) #("i37977"))
21833 #(ribcage () () ())
21834 #(ribcage () () ())
21835 #(ribcage #(fn) #((top)) #("i37972"))
21839 #("i37968" "i37969"))
21840 #(ribcage (read-file) ((top)) ("i37952"))
21841 #(ribcage #(x) #((top)) #("i37951"))
21850 (hygiene guile))))))
21856 "source expression failed to match any pattern"
21857 #{tmp 37990}#))))))
21861 "source expression failed to match any pattern"
21864 (define include-from-path
21865 (make-syntax-transformer
21868 (lambda (#{x 38178}#)
21869 (let ((#{tmp 38180}#
21870 ($sc-dispatch #{x 38178}# '(any any))))
21873 (lambda (#{k 38184}# #{filename 38185}#)
21874 (let ((#{fn 38186}# (syntax->datum #{filename 38185}#)))
21875 (let ((#{tmp 38187}#
21878 (let ((#{t 38190}# (%search-load-path #{fn 38186}#)))
21883 "file not found in path"
21885 #{filename 38185}#))))))
21886 (list '#(syntax-object
21889 #(ribcage () () ())
21890 #(ribcage #(fn) #((top)) #("i38172"))
21891 #(ribcage () () ())
21892 #(ribcage () () ())
21893 #(ribcage #(fn) #((top)) #("i38168"))
21897 #("i38164" "i38165"))
21898 #(ribcage () () ())
21899 #(ribcage #(x) #((top)) #("i38161"))
21901 (include-from-path)
21908 (hygiene guile))))))
21914 "source expression failed to match any pattern"
21918 (make-syntax-transformer
21921 (lambda (#{x 38200}#)
21924 "expression not valid outside of quasiquote"
21927 (define unquote-splicing
21928 (make-syntax-transformer
21931 (lambda (#{x 38204}#)
21934 "expression not valid outside of quasiquote"
21938 (make-syntax-transformer
21941 (lambda (#{x 38261}#)
21942 (let ((#{tmp 38263}#
21945 '(_ any any . each-any))))
21948 (lambda (#{e 38267}# #{m1 38268}# #{m2 38269}#)
21949 (let ((#{tmp 38270}#
21952 (lambda (#{clause 38334}# #{clauses 38335}#)
21953 (if (null? #{clauses 38335}#)
21954 (let ((#{tmp 38337}#
21961 #(ribcage () () ())
21963 #(f clause clauses)
21964 #((top) (top) (top))
21970 #((top) (top) (top))
21974 #(ribcage () () ())
21987 (hygiene guile))))))
21994 (lambda (#{e1 38341}# #{e2 38342}#)
21995 (cons '#(syntax-object
22001 #("i38229" "i38230"))
22002 #(ribcage () () ())
22004 #(f clause clauses)
22005 #((top) (top) (top))
22011 #((top) (top) (top))
22015 #(ribcage () () ())
22028 (hygiene guile))))))
22030 (cons #{e1 38341}# #{e2 38342}#)))
22032 (let ((#{tmp 38343}#
22035 '(each-any any . each-any))))
22038 (lambda (#{k 38347}#
22041 (list '#(syntax-object
22046 #((top) (top) (top))
22050 #(ribcage () () ())
22052 #(f clause clauses)
22053 #((top) (top) (top))
22059 #((top) (top) (top))
22063 #(ribcage () () ())
22076 (hygiene guile))))))
22078 (list '#(syntax-object
22089 #(ribcage () () ())
22108 #(ribcage () () ())
22135 #(ribcage () () ())
22154 #(ribcage () () ())
22170 (list '#(syntax-object
22225 (cons '#(syntax-object
22236 #(ribcage () () ())
22255 #(ribcage () () ())
22278 #{clause 38334}#)))))
22279 (let ((#{tmp 38357}#
22281 (car #{clauses 38335}#)
22282 (cdr #{clauses 38335}#))))
22283 (let ((#{tmp 38360}#
22286 '(each-any any . each-any))))
22289 (lambda (#{k 38364}#
22292 (list '#(syntax-object
22297 #((top) (top) (top))
22301 #(ribcage () () ())
22306 #(ribcage () () ())
22308 #(f clause clauses)
22309 #((top) (top) (top))
22315 #((top) (top) (top))
22319 #(ribcage () () ())
22332 (hygiene guile))))))
22334 (list '#(syntax-object
22339 #((top) (top) (top))
22343 #(ribcage () () ())
22348 #(ribcage () () ())
22350 #(f clause clauses)
22351 #((top) (top) (top))
22357 #((top) (top) (top))
22361 #(ribcage () () ())
22382 #((top) (top) (top))
22386 #(ribcage () () ())
22391 #(ribcage () () ())
22393 #(f clause clauses)
22394 #((top) (top) (top))
22400 #((top) (top) (top))
22404 #(ribcage () () ())
22420 (list '#(syntax-object
22482 (cons '#(syntax-object
22487 #((top) (top) (top))
22491 #(ribcage () () ())
22496 #(ribcage () () ())
22498 #(f clause clauses)
22499 #((top) (top) (top))
22505 #((top) (top) (top))
22509 #(ribcage () () ())
22533 #{clause 38334}#))))))))
22534 (#{f 38331}# #{m1 38268}# #{m2 38269}#))))
22535 (let ((#{body 38271}# #{tmp 38270}#))
22536 (list '#(syntax-object
22539 #(ribcage () () ())
22540 #(ribcage #(body) #((top)) #("i38218"))
22543 #((top) (top) (top))
22544 #("i38210" "i38211" "i38212"))
22545 #(ribcage () () ())
22546 #(ribcage #(x) #((top)) #("i38207"))
22555 (hygiene guile))))))
22557 (list (list '#(syntax-object
22560 #(ribcage () () ())
22561 #(ribcage #(body) #((top)) #("i38218"))
22564 #((top) (top) (top))
22565 #("i38210" "i38211" "i38212"))
22566 #(ribcage () () ())
22567 #(ribcage #(x) #((top)) #("i38207"))
22576 (hygiene guile))))))
22583 "source expression failed to match any pattern"
22586 (define make-variable-transformer
22587 (lambda (#{proc 38385}#)
22588 (if (procedure? #{proc 38385}#)
22591 (lambda (#{x 38392}#)
22592 (#{proc 38385}# #{x 38392}#))))
22594 (set-procedure-property!
22596 'variable-transformer
22599 (error "variable transformer not a procedure"
22602 (define identifier-syntax
22603 (make-syntax-transformer
22606 (lambda (#{x 38425}#)
22607 (let ((#{tmp 38427}#
22608 ($sc-dispatch #{x 38425}# '(_ any))))
22611 (lambda (#{e 38431}#)
22612 (list '#(syntax-object
22615 #(ribcage #(e) #((top)) #("i38400"))
22616 #(ribcage () () ())
22617 #(ribcage #(x) #((top)) #("i38397"))
22619 (identifier-syntax)
22626 (hygiene guile))))))
22631 #(ribcage #(e) #((top)) #("i38400"))
22632 #(ribcage () () ())
22633 #(ribcage #(x) #((top)) #("i38397"))
22635 (identifier-syntax)
22642 (hygiene guile))))))
22644 '#((#(syntax-object
22647 #(ribcage #(e) #((top)) #("i38400"))
22648 #(ribcage () () ())
22649 #(ribcage #(x) #((top)) #("i38397"))
22651 (identifier-syntax)
22658 (hygiene guile))))))
22664 #(ribcage #(e) #((top)) #("i38400"))
22665 #(ribcage () () ())
22666 #(ribcage #(x) #((top)) #("i38397"))
22668 (identifier-syntax)
22675 (hygiene guile))))))
22677 (list '#(syntax-object
22680 #(ribcage #(e) #((top)) #("i38400"))
22681 #(ribcage () () ())
22682 #(ribcage #(x) #((top)) #("i38397"))
22684 (identifier-syntax)
22691 (hygiene guile))))))
22696 #(ribcage #(e) #((top)) #("i38400"))
22697 #(ribcage () () ())
22698 #(ribcage #(x) #((top)) #("i38397"))
22700 (identifier-syntax)
22707 (hygiene guile))))))
22710 (list '#(syntax-object
22713 #(ribcage #(e) #((top)) #("i38400"))
22714 #(ribcage () () ())
22715 #(ribcage #(x) #((top)) #("i38397"))
22717 (identifier-syntax)
22724 (hygiene guile))))))
22729 #(ribcage #(e) #((top)) #("i38400"))
22730 #(ribcage () () ())
22731 #(ribcage #(x) #((top)) #("i38397"))
22733 (identifier-syntax)
22740 (hygiene guile))))))
22745 #(ribcage #(e) #((top)) #("i38400"))
22746 #(ribcage () () ())
22747 #(ribcage #(x) #((top)) #("i38397"))
22749 (identifier-syntax)
22756 (hygiene guile))))))
22761 #(ribcage #(e) #((top)) #("i38400"))
22762 #(ribcage () () ())
22763 #(ribcage #(x) #((top)) #("i38397"))
22765 (identifier-syntax)
22772 (hygiene guile))))))
22774 (list '#(syntax-object
22777 #(ribcage #(e) #((top)) #("i38400"))
22778 #(ribcage () () ())
22779 #(ribcage #(x) #((top)) #("i38397"))
22781 (identifier-syntax)
22788 (hygiene guile))))))
22791 (list '(#(syntax-object
22794 #(ribcage #(e) #((top)) #("i38400"))
22795 #(ribcage () () ())
22796 #(ribcage #(x) #((top)) #("i38397"))
22798 (identifier-syntax)
22805 (hygiene guile))))))
22810 #(ribcage #(e) #((top)) #("i38400"))
22811 #(ribcage () () ())
22812 #(ribcage #(x) #((top)) #("i38397"))
22814 (identifier-syntax)
22821 (hygiene guile))))))
22826 #(ribcage #(e) #((top)) #("i38400"))
22827 #(ribcage () () ())
22828 #(ribcage #(x) #((top)) #("i38397"))
22830 (identifier-syntax)
22837 (hygiene guile))))))
22839 (list '#(syntax-object
22842 #(ribcage #(e) #((top)) #("i38400"))
22843 #(ribcage () () ())
22844 #(ribcage #(x) #((top)) #("i38397"))
22846 (identifier-syntax)
22853 (hygiene guile))))))
22863 #(ribcage () () ())
22869 (identifier-syntax)
22876 (hygiene guile))))))
22885 #(ribcage () () ())
22891 (identifier-syntax)
22898 (hygiene guile))))))
22899 (hygiene guile)))))))))
22901 (let ((#{tmp 38432}#
22909 #(ribcage () () ())
22910 #(ribcage #(x) #((top)) #("i38397"))
22912 (identifier-syntax)
22919 (hygiene guile))))))
22924 (if (if #{tmp 38432}#
22926 (lambda (#{id 38436}#
22931 (if (identifier? #{id 38436}#)
22932 (identifier? #{var 38438}#)
22937 (lambda (#{id 38441}#
22942 (list '#(syntax-object
22943 make-variable-transformer
22946 #(id exp1 var val exp2)
22947 #((top) (top) (top) (top) (top))
22948 #("i38415" "i38416" "i38417" "i38418" "i38419"))
22949 #(ribcage () () ())
22950 #(ribcage #(x) #((top)) #("i38397"))
22952 (identifier-syntax)
22959 (hygiene guile))))))
22961 (list '#(syntax-object
22965 #(id exp1 var val exp2)
22966 #((top) (top) (top) (top) (top))
22972 #(ribcage () () ())
22973 #(ribcage #(x) #((top)) #("i38397"))
22975 (identifier-syntax)
22982 (hygiene guile))))))
22988 #(id exp1 var val exp2)
22989 #((top) (top) (top) (top) (top))
22995 #(ribcage () () ())
22996 #(ribcage #(x) #((top)) #("i38397"))
22998 (identifier-syntax)
23005 (hygiene guile))))))
23007 '#((#(syntax-object
23011 #(id exp1 var val exp2)
23012 #((top) (top) (top) (top) (top))
23018 #(ribcage () () ())
23019 #(ribcage #(x) #((top)) #("i38397"))
23021 (identifier-syntax)
23028 (hygiene guile))))))
23032 variable-transformer
23035 #(id exp1 var val exp2)
23036 #((top) (top) (top) (top) (top))
23042 #(ribcage () () ())
23043 #(ribcage #(x) #((top)) #("i38397"))
23045 (identifier-syntax)
23052 (hygiene guile))))))
23054 (list '#(syntax-object
23058 #(id exp1 var val exp2)
23059 #((top) (top) (top) (top) (top))
23065 #(ribcage () () ())
23066 #(ribcage #(x) #((top)) #("i38397"))
23068 (identifier-syntax)
23075 (hygiene guile))))))
23081 #(id exp1 var val exp2)
23082 #((top) (top) (top) (top) (top))
23088 #(ribcage () () ())
23089 #(ribcage #(x) #((top)) #("i38397"))
23091 (identifier-syntax)
23098 (hygiene guile))))))
23104 #(id exp1 var val exp2)
23105 #((top) (top) (top) (top) (top))
23111 #(ribcage () () ())
23112 #(ribcage #(x) #((top)) #("i38397"))
23114 (identifier-syntax)
23121 (hygiene guile))))))
23123 (list (list '#(syntax-object
23127 #(id exp1 var val exp2)
23138 #(ribcage () () ())
23144 (identifier-syntax)
23151 (hygiene guile))))))
23155 (list '#(syntax-object
23159 #(id exp1 var val exp2)
23170 #(ribcage () () ())
23176 (identifier-syntax)
23183 (hygiene guile))))))
23186 (list (cons #{id 38441}#
23191 #(id exp1 var val exp2)
23202 #(ribcage () () ())
23208 (identifier-syntax)
23215 (hygiene guile))))))
23221 #(id exp1 var val exp2)
23232 #(ribcage () () ())
23238 (identifier-syntax)
23245 (hygiene guile))))))
23247 (list '#(syntax-object
23251 #(id exp1 var val exp2)
23262 #(ribcage () () ())
23268 (identifier-syntax)
23275 (hygiene guile))))))
23277 (cons #{exp1 38442}#
23297 #(ribcage () () ())
23303 (identifier-syntax)
23332 #(ribcage () () ())
23338 (identifier-syntax)
23347 (hygiene guile))))))
23349 (list '#(syntax-object
23353 #(id exp1 var val exp2)
23364 #(ribcage () () ())
23370 (identifier-syntax)
23377 (hygiene guile))))))
23379 (list '#(syntax-object
23398 #(ribcage () () ())
23404 (identifier-syntax)
23415 (list '#(syntax-object
23419 #(id exp1 var val exp2)
23430 #(ribcage () () ())
23436 (identifier-syntax)
23443 (hygiene guile))))))
23445 #{exp1 38442}#))))))
23449 "source expression failed to match any pattern"
23450 #{x 38425}#))))))))
23453 (make-syntax-transformer
23456 (lambda (#{x 38478}#)
23457 (let ((#{tmp 38480}#
23460 '(_ (any . any) any . each-any))))
23463 (lambda (#{id 38484}#
23467 (list '#(syntax-object
23472 #((top) (top) (top) (top))
23473 #("i38460" "i38461" "i38462" "i38463"))
23474 #(ribcage () () ())
23475 #(ribcage #(x) #((top)) #("i38457"))
23484 (hygiene guile))))))
23487 (cons '#(syntax-object
23492 #((top) (top) (top) (top))
23493 #("i38460" "i38461" "i38462" "i38463"))
23494 #(ribcage () () ())
23495 #(ribcage #(x) #((top)) #("i38457"))
23504 (hygiene guile))))))
23506 (cons #{args 38485}#
23507 (cons #{b0 38486}# #{b1 38487}#)))))
23509 (let ((#{tmp 38488}#
23510 ($sc-dispatch #{x 38478}# '(_ any any))))
23511 (if (if #{tmp 38488}#
23513 (lambda (#{id 38492}# #{val 38493}#)
23521 #("i38470" "i38471"))
23522 #(ribcage () () ())
23523 #(ribcage #(x) #((top)) #("i38457"))
23532 (hygiene guile))))))
23537 (lambda (#{id 38494}# #{val 38495}#)
23538 (list '#(syntax-object
23544 #("i38474" "i38475"))
23545 #(ribcage () () ())
23546 #(ribcage #(x) #((top)) #("i38457"))
23555 (hygiene guile))))))
23562 "source expression failed to match any pattern"
23563 #{x 38478}#))))))))