1 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
5 ((#{top-level-eval-hook 4261}#
6 (lambda (#{x 28515}# #{mod 28516}#)
7 (primitive-eval #{x 28515}#)))
8 (#{maybe-name-value! 4266}#
9 (lambda (#{name 16653}# #{val 16654}#)
10 (if (if (struct? #{val 16654}#)
11 (eq? (struct-vtable #{val 16654}#)
12 (vector-ref %expanded-vtables 13))
14 (let ((#{meta 16661}# (struct-ref #{val 16654}# 1)))
15 (if (not (assq 'name #{meta 16661}#))
17 (cons (cons 'name #{name 16653}#) #{meta 16661}#)))
18 (struct-set! #{val 16654}# 1 #{v 16666}#)))))))
19 (#{build-application 4268}#
20 (lambda (#{source 16378}#
24 (vector-ref %expanded-vtables 11)
28 (#{build-conditional 4269}#
29 (lambda (#{source 16386}#
34 (vector-ref %expanded-vtables 10)
39 (#{build-dynlet 4270}#
40 (lambda (#{source 16396}#
45 (vector-ref %expanded-vtables 17)
50 (#{build-lexical-reference 4271}#
51 (lambda (#{type 28517}#
56 (vector-ref %expanded-vtables 3)
60 (#{build-lexical-assignment 4272}#
61 (lambda (#{source 16406}#
66 (if (if (struct? #{exp 16409}#)
67 (eq? (struct-vtable #{exp 16409}#)
68 (vector-ref %expanded-vtables 13))
70 (let ((#{meta 16425}# (struct-ref #{exp 16409}# 1)))
71 (if (not (assq 'name #{meta 16425}#))
73 (cons (cons 'name #{name 16407}#) #{meta 16425}#)))
74 (struct-set! #{exp 16409}# 1 #{v 16432}#)))))
76 (vector-ref %expanded-vtables 4)
81 (#{analyze-variable 4273}#
82 (lambda (#{mod 28526}#
86 (if (not #{mod 28526}#)
87 (#{bare-cont 28529}# #{var 28527}#)
88 (let ((#{kind 28530}# (car #{mod 28526}#))
89 (#{mod 28531}# (cdr #{mod 28526}#)))
90 (if (eqv? #{kind 28530}# 'public)
91 (#{modref-cont 28528}#
95 (if (eqv? #{kind 28530}# 'private)
98 (module-name (current-module))))
99 (#{modref-cont 28528}#
103 (#{bare-cont 28529}# #{var 28527}#))
104 (if (eqv? #{kind 28530}# 'bare)
105 (#{bare-cont 28529}# #{var 28527}#)
106 (if (eqv? #{kind 28530}# 'hygiene)
109 (module-name (current-module))))
111 (resolve-module #{mod 28531}#)
114 (#{modref-cont 28528}#
118 (#{bare-cont 28529}# #{var 28527}#))
123 #{mod 28531}#)))))))))
124 (#{build-global-reference 4274}#
125 (lambda (#{source 28546}# #{var 28547}# #{mod 28548}#)
126 (#{analyze-variable 4273}#
129 (lambda (#{mod 28551}# #{var 28552}# #{public? 28553}#)
131 (vector-ref %expanded-vtables 5)
136 (lambda (#{var 28561}#)
138 (vector-ref %expanded-vtables 7)
141 (#{build-global-assignment 4275}#
142 (lambda (#{source 16441}#
147 (if (if (struct? #{exp 16443}#)
148 (eq? (struct-vtable #{exp 16443}#)
149 (vector-ref %expanded-vtables 13))
151 (let ((#{meta 16460}# (struct-ref #{exp 16443}# 1)))
152 (if (not (assq 'name #{meta 16460}#))
154 (cons (cons 'name #{var 16442}#) #{meta 16460}#)))
155 (struct-set! #{exp 16443}# 1 #{v 16467}#)))))
156 (#{analyze-variable 4273}#
159 (lambda (#{mod 16472}# #{var 16473}# #{public? 16474}#)
161 (vector-ref %expanded-vtables 6)
167 (lambda (#{var 16482}#)
169 (vector-ref %expanded-vtables 8)
173 (#{build-global-definition 4276}#
174 (lambda (#{source 28567}# #{var 28568}# #{exp 28569}#)
176 (if (if (struct? #{exp 28569}#)
177 (eq? (struct-vtable #{exp 28569}#)
178 (vector-ref %expanded-vtables 13))
180 (let ((#{meta 28585}# (struct-ref #{exp 28569}# 1)))
181 (if (not (assq 'name #{meta 28585}#))
183 (cons (cons 'name #{var 28568}#) #{meta 28585}#)))
184 (struct-set! #{exp 28569}# 1 #{v 28592}#)))))
186 (vector-ref %expanded-vtables 9)
190 (#{build-simple-lambda 4277}#
191 (lambda (#{src 16488}#
197 (let ((#{body 16499}#
199 (vector-ref %expanded-vtables 14)
210 (vector-ref %expanded-vtables 13)
214 (#{build-sequence 4282}#
215 (lambda (#{src 28600}# #{exps 28601}#)
216 (if (null? (cdr #{exps 28601}#))
219 (vector-ref %expanded-vtables 12)
223 (lambda (#{src 16511}#
230 #{maybe-name-value! 4266}#
233 (if (null? #{vars 16513}#)
236 (vector-ref %expanded-vtables 15)
241 #{body-exp 16515}#)))))
242 (#{build-named-let 4284}#
243 (lambda (#{src 16539}#
248 (let ((#{f 16544}# (car #{vars 16541}#))
249 (#{f-name 16545}# (car #{ids 16540}#))
250 (#{vars 16546}# (cdr #{vars 16541}#))
251 (#{ids 16547}# (cdr #{ids 16540}#)))
252 (let ((#{proc 16548}#
253 (let ((#{body 16568}#
255 (vector-ref %expanded-vtables 14)
266 (vector-ref %expanded-vtables 13)
271 (if (if (struct? #{proc 16548}#)
272 (eq? (struct-vtable #{proc 16548}#)
273 (vector-ref %expanded-vtables 13))
275 (let ((#{meta 16592}# (struct-ref #{proc 16548}# 1)))
276 (if (not (assq 'name #{meta 16592}#))
278 (cons (cons 'name #{f-name 16545}#)
280 (struct-set! #{proc 16548}# 1 #{v 16599}#)))))
282 #{maybe-name-value! 4266}#
285 (let ((#{names 16623}# (list #{f-name 16545}#))
286 (#{gensyms 16624}# (list #{f 16544}#))
287 (#{vals 16625}# (list #{proc 16548}#))
289 (let ((#{fun-exp 16630}#
291 (vector-ref %expanded-vtables 3)
296 (vector-ref %expanded-vtables 11)
299 #{val-exps 16542}#))))
301 (vector-ref %expanded-vtables 16)
307 #{body 16626}#)))))))
308 (#{build-letrec 4285}#
309 (lambda (#{src 16646}#
315 (if (null? #{vars 16649}#)
319 #{maybe-name-value! 4266}#
323 (vector-ref %expanded-vtables 16)
329 #{body-exp 16651}#)))))
330 (#{source-annotation 4294}#
331 (lambda (#{x 16677}#)
332 (if (if (vector? #{x 16677}#)
333 (if (= (vector-length #{x 16677}#) 4)
334 (eq? (vector-ref #{x 16677}# 0) 'syntax-object)
337 (#{source-annotation 4294}#
338 (vector-ref #{x 16677}# 1))
339 (if (pair? #{x 16677}#)
340 (let ((#{props 16692}# (source-properties #{x 16677}#)))
341 (if (pair? #{props 16692}#) #{props 16692}# #f))
344 (lambda (#{labels 16694}# #{bindings 16695}# #{r 16696}#)
345 (if (null? #{labels 16694}#)
348 (cdr #{labels 16694}#)
349 (cdr #{bindings 16695}#)
350 (cons (cons (car #{labels 16694}#)
351 (car #{bindings 16695}#))
353 (#{extend-var-env 4296}#
354 (lambda (#{labels 16697}# #{vars 16698}# #{r 16699}#)
355 (if (null? #{labels 16697}#)
357 (#{extend-var-env 4296}#
358 (cdr #{labels 16697}#)
360 (cons (cons (car #{labels 16697}#)
361 (cons 'lexical (car #{vars 16698}#)))
363 (#{macros-only-env 4297}#
364 (lambda (#{r 16700}#)
365 (if (null? #{r 16700}#)
367 (let ((#{a 16701}# (car #{r 16700}#)))
368 (if (eq? (car (cdr #{a 16701}#)) 'macro)
370 (#{macros-only-env 4297}# (cdr #{r 16700}#)))
371 (#{macros-only-env 4297}# (cdr #{r 16700}#)))))))
372 (#{global-extend 4299}#
373 (lambda (#{type 16703}# #{sym 16704}# #{val 16705}#)
377 (make-syntax-transformer
382 (lambda (#{x 10537}#)
383 (if (symbol? #{x 10537}#)
385 (if (if (vector? #{x 10537}#)
386 (if (= (vector-length #{x 10537}#) 4)
387 (eq? (vector-ref #{x 10537}# 0) 'syntax-object)
390 (symbol? (vector-ref #{x 10537}# 1))
393 (lambda (#{ls 16715}#)
394 (if (null? #{ls 16715}#)
396 (cons (symbol->string (gensym "i"))
397 (#{gen-labels 4304}# (cdr #{ls 16715}#))))))
398 (#{make-binding-wrap 4315}#
399 (lambda (#{ids 16719}# #{labels 16720}# #{w 16721}#)
400 (if (null? #{ids 16719}#)
402 (cons (car #{w 16721}#)
403 (cons (let ((#{labelvec 16722}#
404 (list->vector #{labels 16720}#)))
405 (let ((#{n 16723}# (vector-length #{labelvec 16722}#)))
406 (let ((#{symnamevec 16724}# (make-vector #{n 16723}#))
407 (#{marksvec 16725}# (make-vector #{n 16723}#)))
411 (lambda (#{ids 16729}# #{i 16730}#)
412 (if (not (null? #{ids 16729}#))
416 (car #{ids 16729}#)))
417 (if (if (vector? #{x 16733}#)
418 (if (= (vector-length
428 (vector-ref #{x 16733}# 1)
435 (if (null? #{m2 16750}#)
442 (car #{w 16721}#)))))
443 (lambda (#{symname 16770}#
456 (#{1+}# #{i 16730}#)))))))))
457 (#{f 16726}# #{ids 16719}# 0))
462 #{labelvec 16722}#)))))
463 (cdr #{w 16721}#))))))
465 (lambda (#{w1 16780}# #{w2 16781}#)
466 (let ((#{m1 16782}# (car #{w1 16780}#))
467 (#{s1 16783}# (cdr #{w1 16780}#)))
468 (if (null? #{m1 16782}#)
469 (if (null? #{s1 16783}#)
471 (cons (car #{w2 16781}#)
472 (let ((#{m2 16790}# (cdr #{w2 16781}#)))
473 (if (null? #{m2 16790}#)
475 (append #{s1 16783}# #{m2 16790}#)))))
476 (cons (let ((#{m2 16799}# (car #{w2 16781}#)))
477 (if (null? #{m2 16799}#)
479 (append #{m1 16782}# #{m2 16799}#)))
480 (let ((#{m2 16808}# (cdr #{w2 16781}#)))
481 (if (null? #{m2 16808}#)
483 (append #{s1 16783}# #{m2 16808}#))))))))
484 (#{same-marks? 4319}#
485 (lambda (#{x 16813}# #{y 16814}#)
486 (if (eq? #{x 16813}# #{y 16814}#)
487 (eq? #{x 16813}# #{y 16814}#)
488 (if (not (null? #{x 16813}#))
489 (if (not (null? #{y 16814}#))
490 (if (eq? (car #{x 16813}#) (car #{y 16814}#))
491 (#{same-marks? 4319}#
497 (#{id-var-name 4320}#
498 (lambda (#{id 16822}# #{w 16823}#)
501 (lambda (#{sym 16885}# #{subst 16886}# #{marks 16887}#)
502 (if (null? #{subst 16886}#)
503 (values #f #{marks 16887}#)
504 (let ((#{fst 16888}# (car #{subst 16886}#)))
505 (if (eq? #{fst 16888}# 'shift)
508 (cdr #{subst 16886}#)
509 (cdr #{marks 16887}#))
510 (let ((#{symnames 16890}# (vector-ref #{fst 16888}# 1)))
511 (if (vector? #{symnames 16890}#)
512 (let ((#{n 16902}# (vector-length #{symnames 16890}#)))
515 (lambda (#{i 16905}#)
516 (if (= #{i 16905}# #{n 16902}#)
519 (cdr #{subst 16886}#)
521 (if (if (eq? (vector-ref
525 (#{same-marks? 4319}#
528 (vector-ref #{fst 16888}# 2)
533 (vector-ref #{fst 16888}# 3)
536 (#{f 16903}# (#{1+}# #{i 16905}#)))))))
540 (lambda (#{symnames 16940}# #{i 16941}#)
541 (if (null? #{symnames 16940}#)
544 (cdr #{subst 16886}#)
546 (if (if (eq? (car #{symnames 16940}#)
548 (#{same-marks? 4319}#
551 (vector-ref #{fst 16888}# 2)
556 (vector-ref #{fst 16888}# 3)
560 (cdr #{symnames 16940}#)
561 (#{1+}# #{i 16941}#)))))))
562 (#{f 16938}# #{symnames 16890}# 0))))))))))
563 (if (symbol? #{id 16822}#)
569 (if #{t 16827}# #{t 16827}# #{id 16822}#))
570 (if (if (vector? #{id 16822}#)
571 (if (= (vector-length #{id 16822}#) 4)
572 (eq? (vector-ref #{id 16822}# 0) 'syntax-object)
575 (let ((#{id 16842}# (vector-ref #{id 16822}# 1))
576 (#{w1 16843}# (vector-ref #{id 16822}# 2)))
577 (let ((#{marks 16844}#
578 (let ((#{m1 16854}# (car #{w 16823}#))
579 (#{m2 16855}# (car #{w1 16843}#)))
580 (if (null? #{m2 16855}#)
582 (append #{m1 16854}# #{m2 16855}#)))))
589 (lambda (#{new-id 16871}# #{marks 16872}#)
597 (if #{t 16880}# #{t 16880}# #{id 16842}#)))))))
602 (#{valid-bound-ids? 4323}#
603 (lambda (#{ids 16963}#)
606 (lambda (#{ids 17126}#)
607 (if (null? #{ids 17126}#)
608 (null? #{ids 17126}#)
609 (if (let ((#{x 17137}# (car #{ids 17126}#)))
610 (if (symbol? #{x 17137}#)
612 (if (if (vector? #{x 17137}#)
613 (if (= (vector-length #{x 17137}#) 4)
614 (eq? (vector-ref #{x 17137}# 0)
618 (symbol? (vector-ref #{x 17137}# 1))
620 (#{all-ids? 16964}# (cdr #{ids 17126}#))
622 (#{all-ids? 16964}# #{ids 16963}#))
623 (#{distinct-bound-ids? 4324}# #{ids 16963}#)
625 (#{distinct-bound-ids? 4324}#
626 (lambda (#{ids 17269}#)
628 ((#{distinct? 17270}#
629 (lambda (#{ids 17386}#)
630 (if (null? #{ids 17386}#)
631 (null? #{ids 17386}#)
632 (if (not (#{bound-id-member? 4325}#
634 (cdr #{ids 17386}#)))
635 (#{distinct? 17270}# (cdr #{ids 17386}#))
637 (#{distinct? 17270}# #{ids 17269}#))))
638 (#{bound-id-member? 4325}#
639 (lambda (#{x 17606}# #{list 17607}#)
640 (if (not (null? #{list 17607}#))
642 (let ((#{j 17689}# (car #{list 17607}#)))
643 (if (if (if (vector? #{x 17606}#)
644 (if (= (vector-length #{x 17606}#) 4)
645 (eq? (vector-ref #{x 17606}# 0) 'syntax-object)
648 (if (vector? #{j 17689}#)
649 (if (= (vector-length #{j 17689}#) 4)
650 (eq? (vector-ref #{j 17689}# 0) 'syntax-object)
654 (if (eq? (vector-ref #{x 17606}# 1)
655 (vector-ref #{j 17689}# 1))
656 (#{same-marks? 4319}#
657 (car (vector-ref #{x 17606}# 2))
658 (car (vector-ref #{j 17689}# 2)))
660 (eq? #{x 17606}# #{j 17689}#)))))
663 (#{bound-id-member? 4325}#
665 (cdr #{list 17607}#))))
668 (lambda (#{x 17733}# #{w 17734}# #{defmod 17735}#)
669 (if (if (null? (car #{w 17734}#))
670 (null? (cdr #{w 17734}#))
673 (if (if (vector? #{x 17733}#)
674 (if (= (vector-length #{x 17733}#) 4)
675 (eq? (vector-ref #{x 17733}# 0) 'syntax-object)
678 (let ((#{expression 17749}# (vector-ref #{x 17733}# 1))
682 (vector-ref #{x 17733}# 2)))
683 (#{module 17751}# (vector-ref #{x 17733}# 3)))
689 (if (null? #{x 17733}#)
695 #{defmod 17735}#))))))
696 (#{source-wrap 4327}#
703 (if (if (pair? #{x 17768}#) #{s 17770}# #f)
704 (set-source-properties! #{x 17768}# #{s 17770}#))
708 (#{expand-sequence 4328}#
709 (lambda (#{body 28606}#
714 (#{build-sequence 4282}#
718 (lambda (#{body 28775}#
722 (if (null? #{body 28775}#)
724 (let ((#{first 28779}#
730 (cons #{first 28779}#
741 (#{expand-top-sequence 4329}#
742 (lambda (#{body 17789}#
751 (lambda (#{body 17927}#
759 (if (null? #{body 17927}#)
765 (let ((#{e 17935}# (car #{body 17927}#)))
766 (#{syntax-type 4332}#
771 (#{source-annotation 4294}# #{e 17935}#)))
772 (if #{t 17939}# #{t 17939}# #{s 17930}#))
776 (lambda (#{type 18199}#
782 (if (eqv? #{type 18199}# 'begin-form)
784 ($sc-dispatch #{e 18201}# '(_))))
786 (@apply (lambda () #{exps 17934}#) #{tmp 18209}#)
790 '(_ any . each-any))))
793 (lambda (#{e1 18217}# #{e2 18218}#)
795 (cons #{e1 18217}# #{e2 18218}#)
806 "source expression failed to match any pattern"
808 (if (eqv? #{type 18199}# 'local-syntax-form)
809 (#{expand-local-syntax 4338}#
816 (lambda (#{body 18233}#
830 (if (eqv? #{type 18199}# 'eval-when-form)
834 '(_ each-any any . each-any))))
840 (let ((#{when-list 18249}#
841 (#{parse-when-list 4331}#
847 (if (eq? #{m 17931}# 'e)
848 (if (memq 'eval #{when-list 18249}#)
865 (#{expand-top-sequence 4329}#
875 (values #{exps 17934}#)))
876 (if (memq 'load #{when-list 18249}#)
877 (if (let ((#{t 18353}#
879 #{when-list 18249}#)))
884 #{when-list 18249}#)))
901 (if (if (eq? #{m 17931}# 'c)
903 (eq? #{m 17931}# 'c&e))
913 (values #{exps 17934}#)))
914 (if (let ((#{t 18531}#
916 #{when-list 18249}#)))
921 #{when-list 18249}#)))
931 (#{expand-top-sequence 4329}#
939 (primitive-eval #{x 18704}#))
940 (values #{exps 17934}#))
941 (values #{exps 17934}#))))))
945 "source expression failed to match any pattern"
947 (if (eqv? #{type 18199}# 'define-syntax-form)
949 (#{id-var-name 4320}#
953 (#{macros-only-env 4297}#
955 (if (eqv? #{m 17931}# 'c)
956 (if (memq 'compile #{esew 17932}#)
958 (#{expand-install-global 4330}#
966 (#{top-level-eval-hook 4261}#
969 (if (memq 'load #{esew 17932}#)
973 (values #{exps 17934}#))))
974 (if (memq 'load #{esew 17932}#)
976 (cons (#{expand-install-global 4330}#
984 (values #{exps 17934}#)))
985 (if (eqv? #{m 17931}# 'c&e)
987 (#{expand-install-global 4330}#
995 (#{top-level-eval-hook 4261}#
1002 (if (memq 'eval #{esew 17932}#)
1003 (#{top-level-eval-hook 4261}#
1004 (#{expand-install-global 4330}#
1012 (values #{exps 17934}#)))))
1013 (if (eqv? #{type 18199}# 'define-form)
1015 (#{id-var-name 4320}#
1018 (let ((#{type 19858}#
1019 (car (let ((#{t 20627}#
1024 (if (symbol? #{n 19857}#)
1027 (if (if (not #{mod 18204}#)
1030 (warn "module system is booted, we should have a module"
1036 (cdr #{mod 18204}#))
1040 (if (variable-bound?
1042 (let ((#{val 20678}#
1060 '(displaced-lexical)))))))
1061 (if (let ((#{t 19892}# #{type 19858}#))
1062 (if (eqv? #{t 19892}# 'global)
1064 (if (eqv? #{t 19892}# 'core)
1066 (if (eqv? #{t 19892}# 'macro)
1071 (if (if (if (eq? #{m 17931}# 'c)
1073 (eq? #{m 17931}# 'c&e))
1074 (if (not (module-local-variable
1080 (let ((#{old 20056}#
1084 (if (if (variable? #{old 20056}#)
1091 (variable-ref #{old 20056}#))
1095 (make-undefined-variable)))))
1097 (cons (if (eq? #{m 17931}# 'c&e)
1099 (#{build-global-definition 4276}#
1108 (#{top-level-eval-hook 4261}#
1113 (#{build-global-definition 4276}#
1122 (if (let ((#{t 20554}# #{type 19858}#))
1124 'displaced-lexical))
1127 "identifier out of context"
1135 "cannot define keyword at top level"
1142 (cons (if (eq? #{m 17931}# 'c&e)
1144 (#{expand-expr 4334}#
1153 (primitive-eval #{x 20689}#)
1156 (#{expand-expr 4334}#
1164 #{exps 17934}#))))))))))
1165 (lambda (#{exps 20698}#)
1167 (cdr #{body 17927}#)
1174 #{exps 20698}#)))))))
1186 (lambda (#{exps 17799}#)
1187 (if (null? #{exps 17799}#)
1188 (make-struct/no-tail
1189 (vector-ref %expanded-vtables 0)
1191 (#{build-sequence 4282}#
1195 (lambda (#{in 17923}# #{out 17924}#)
1196 (if (null? #{in 17923}#)
1198 (let ((#{e 17925}# (car #{in 17923}#)))
1201 (cons (if (procedure? #{e 17925}#)
1204 #{out 17924}#)))))))
1205 (#{lp 17839}# #{exps 17799}# '())))))))))
1206 (#{expand-install-global 4330}#
1207 (lambda (#{name 20699}# #{e 20700}#)
1208 (let ((#{exp 20706}#
1209 (let ((#{fun-exp 20716}#
1210 (if (equal? (module-name (current-module)) '(guile))
1211 (make-struct/no-tail
1212 (vector-ref %expanded-vtables 7)
1214 'make-syntax-transformer)
1215 (make-struct/no-tail
1216 (vector-ref %expanded-vtables 5)
1219 'make-syntax-transformer
1222 (list (make-struct/no-tail
1223 (vector-ref %expanded-vtables 1)
1226 (make-struct/no-tail
1227 (vector-ref %expanded-vtables 1)
1231 (make-struct/no-tail
1232 (vector-ref %expanded-vtables 11)
1235 #{arg-exps 20717}#))))
1237 (if (if (struct? #{exp 20706}#)
1238 (eq? (struct-vtable #{exp 20706}#)
1239 (vector-ref %expanded-vtables 13))
1241 (let ((#{meta 20758}# (struct-ref #{exp 20706}# 1)))
1242 (if (not (assq 'name #{meta 20758}#))
1244 (cons (cons 'name #{name 20699}#) #{meta 20758}#)))
1245 (struct-set! #{exp 20706}# 1 #{v 20765}#)))))
1246 (make-struct/no-tail
1247 (vector-ref %expanded-vtables 9)
1251 (#{parse-when-list 4331}#
1252 (lambda (#{e 20776}# #{when-list 20777}#)
1253 (let ((#{result 20778}#
1254 (#{strip 4346}# #{when-list 20777}# '(()))))
1257 (lambda (#{l 20833}#)
1258 (if (null? #{l 20833}#)
1260 (if (let ((#{t 20835}# (car #{l 20833}#)))
1261 (if (eq? #{t 20835}# 'compile)
1263 (if (eq? #{t 20835}# 'load)
1265 (if (eq? #{t 20835}# 'eval)
1267 (eq? #{t 20835}# 'expand)))))
1268 (#{lp 20779}# (cdr #{l 20833}#))
1273 (car #{l 20833}#)))))))
1274 (#{lp 20779}# #{result 20778}#)))))
1275 (#{syntax-type 4332}#
1276 (lambda (#{e 20837}#
1283 (if (symbol? #{e 20837}#)
1285 (#{id-var-name 4320}# #{e 20837}# #{w 20839}#)))
1287 (let ((#{t 21420}# (assq #{n 20844}# #{r 20838}#)))
1290 (if (symbol? #{n 20844}#)
1293 (if (if (not #{mod 20842}#)
1296 (warn "module system is booted, we should have a module"
1302 (cdr #{mod 20842}#))
1306 (if (variable-bound? #{v 21462}#)
1307 (let ((#{val 21471}#
1308 (variable-ref #{v 21462}#)))
1309 (if (macro? #{val 21471}#)
1310 (if (macro-type #{val 21471}#)
1311 (cons (macro-type #{val 21471}#)
1318 (if #{t 21425}# #{t 21425}# '(global)))
1319 '(displaced-lexical))))))
1320 (let ((#{type 20846}# (car #{b 20845}#)))
1321 (if (let ((#{t 20880}# #{type 20846}#))
1322 (eqv? #{t 20880}# 'lexical))
1330 (if (let ((#{t 21037}# #{type 20846}#))
1331 (eqv? #{t 21037}# 'global))
1339 (if (let ((#{t 21163}# #{type 20846}#))
1340 (eqv? #{t 21163}# 'macro))
1341 (if #{for-car? 20843}#
1349 (#{syntax-type 4332}#
1350 (#{expand-macro 4336}#
1370 #{mod 20842}#)))))))
1371 (if (pair? #{e 20837}#)
1372 (let ((#{first 21482}# (car #{e 20837}#)))
1375 (#{syntax-type 4332}#
1383 (lambda (#{ftype 21484}#
1389 (if (eqv? #{ftype 21484}# 'lexical)
1397 (if (eqv? #{ftype 21484}# 'global)
1409 (if (eqv? #{ftype 21484}# 'macro)
1410 (#{syntax-type 4332}#
1411 (#{expand-macro 4336}#
1425 (if (eqv? #{ftype 21484}# 'module-ref)
1432 (lambda (#{e 21510}#
1437 (#{syntax-type 4332}#
1444 #{for-car? 20843}#)))
1445 (if (eqv? #{ftype 21484}# 'core)
1453 (if (eqv? #{ftype 21484}# 'local-syntax)
1461 (if (eqv? #{ftype 21484}# 'begin)
1469 (if (eqv? #{ftype 21484}# 'eval-when)
1477 (if (eqv? #{ftype 21484}# 'define)
1478 (let ((#{tmp 21531}#
1482 (if (if #{tmp 21531}#
1484 (lambda (#{name 21535}#
1486 (if (symbol? #{name 21535}#)
1490 (if (= (vector-length
1507 (lambda (#{name 21563}# #{val 21564}#)
1516 (let ((#{tmp 21565}#
1523 (if (if #{tmp 21565}#
1525 (lambda (#{name 21569}#
1534 (if (= (vector-length
1548 (#{valid-bound-ids? 4323}#
1551 (lambda (#{vars 21723}#
1554 (if (pair? #{vars 21723}#)
1556 (cdr #{vars 21723}#)
1557 (cons (#{wrap 4326}#
1558 (car #{vars 21723}#)
1568 (if (= (vector-length
1582 (cons (#{wrap 4326}#
1587 (if (null? #{vars 21723}#)
1591 (if (= (vector-length
1605 (#{join-wraps 4317}#
1610 (cons #{vars 21723}#
1611 #{ls 21724}#))))))))
1620 (lambda (#{name 21769}#
1631 (cons '#(syntax-object
1722 expand-simple-lambda
1726 eval-local-transformer
1735 expand-install-global
1761 set-ribcage-symnames!
1793 set-syntax-object-module!
1794 set-syntax-object-wrap!
1795 set-syntax-object-expression!
1796 syntax-object-module
1798 syntax-object-expression
1811 build-global-definition
1812 build-global-assignment
1813 build-global-reference
1815 build-lexical-assignment
1816 build-lexical-reference
1823 get-global-definition-hook
1824 put-global-definition-hook
1843 make-toplevel-define
2127 define-expansion-accessors
2128 define-expansion-constructors)
2138 (cons #{args 21770}#
2144 (if (if (pair? #{e 21778}#)
2147 (set-source-properties!
2155 (let ((#{tmp 21785}#
2159 (if (if #{tmp 21785}#
2161 (lambda (#{name 21789}#)
2167 (if (= (vector-length
2184 (lambda (#{name 21816}#)
2255 expand-simple-lambda
2259 eval-local-transformer
2268 expand-install-global
2294 set-ribcage-symnames!
2326 set-syntax-object-module!
2327 set-syntax-object-wrap!
2328 set-syntax-object-expression!
2329 syntax-object-module
2331 syntax-object-expression
2344 build-global-definition
2345 build-global-assignment
2346 build-global-reference
2348 build-lexical-assignment
2349 build-lexical-reference
2356 get-global-definition-hook
2357 put-global-definition-hook
2376 make-toplevel-define
2660 define-expansion-accessors
2661 define-expansion-constructors)
2731 expand-simple-lambda
2735 eval-local-transformer
2744 expand-install-global
2770 set-ribcage-symnames!
2802 set-syntax-object-module!
2803 set-syntax-object-wrap!
2804 set-syntax-object-expression!
2805 syntax-object-module
2807 syntax-object-expression
2820 build-global-definition
2821 build-global-assignment
2822 build-global-reference
2824 build-lexical-assignment
2825 build-lexical-reference
2832 get-global-definition-hook
2833 put-global-definition-hook
2852 make-toplevel-define
3136 define-expansion-accessors
3137 define-expansion-constructors)
3207 expand-simple-lambda
3211 eval-local-transformer
3220 expand-install-global
3246 set-ribcage-symnames!
3278 set-syntax-object-module!
3279 set-syntax-object-wrap!
3280 set-syntax-object-expression!
3281 syntax-object-module
3283 syntax-object-expression
3296 build-global-definition
3297 build-global-assignment
3298 build-global-reference
3300 build-lexical-assignment
3301 build-lexical-reference
3308 get-global-definition-hook
3309 put-global-definition-hook
3328 make-toplevel-define
3612 define-expansion-accessors
3613 define-expansion-constructors)
3625 "source expression failed to match any pattern"
3627 (if (eqv? #{ftype 21484}# 'define-syntax)
3628 (let ((#{tmp 21835}#
3632 (if (if #{tmp 21835}#
3634 (lambda (#{name 21839}#
3636 (if (symbol? #{name 21839}#)
3640 (if (= (vector-length
3657 (lambda (#{name 21867}#
3669 "source expression failed to match any pattern"
3677 #{mod 20842}#))))))))))))))
3678 (if (if (vector? #{e 20837}#)
3679 (if (= (vector-length #{e 20837}#) 4)
3680 (eq? (vector-ref #{e 20837}# 0) 'syntax-object)
3683 (#{syntax-type 4332}#
3684 (vector-ref #{e 20837}# 1)
3686 (#{join-wraps 4317}#
3688 (vector-ref #{e 20837}# 2))
3690 (#{source-annotation 4294}# #{e 20837}#)))
3691 (if #{t 21895}# #{t 21895}# #{s 20840}#))
3693 (let ((#{t 22155}# (vector-ref #{e 20837}# 3)))
3694 (if #{t 22155}# #{t 22155}# #{mod 20842}#))
3696 (if (self-evaluating? #{e 20837}#)
3710 #{mod 20842}#)))))))
3712 (lambda (#{e 22164}#
3718 (#{syntax-type 4332}#
3722 (#{source-annotation 4294}# #{e 22164}#)
3726 (lambda (#{type 22341}#
3732 (#{expand-expr 4334}#
3740 (#{expand-expr 4334}#
3741 (lambda (#{type 22349}#
3748 (if (eqv? #{type 22349}# 'lexical)
3749 (make-struct/no-tail
3750 (vector-ref %expanded-vtables 3)
3754 (if (if (eqv? #{type 22349}# 'core)
3756 (eqv? #{type 22349}# 'core-form))
3763 (if (eqv? #{type 22349}# 'module-ref)
3770 (lambda (#{e 22381}#
3780 (if (eqv? #{type 22349}# 'lexical-call)
3781 (#{expand-application 4335}#
3782 (let ((#{id 22465}# (car #{e 22351}#)))
3783 (#{build-lexical-reference 4271}#
3785 (#{source-annotation 4294}# #{id 22465}#)
3786 (if (if (vector? #{id 22465}#)
3787 (if (= (vector-length #{id 22465}#) 4)
3788 (eq? (vector-ref #{id 22465}# 0) 'syntax-object)
3791 (syntax->datum #{id 22465}#)
3799 (if (eqv? #{type 22349}# 'global-call)
3800 (#{expand-application 4335}#
3801 (#{build-global-reference 4274}#
3802 (#{source-annotation 4294}# (car #{e 22351}#))
3803 (if (if (vector? #{value 22350}#)
3804 (if (= (vector-length #{value 22350}#) 4)
3805 (eq? (vector-ref #{value 22350}# 0)
3809 (vector-ref #{value 22350}# 1)
3811 (if (if (vector? #{value 22350}#)
3812 (if (= (vector-length #{value 22350}#) 4)
3813 (eq? (vector-ref #{value 22350}# 0)
3817 (vector-ref #{value 22350}# 3)
3824 (if (eqv? #{type 22349}# 'constant)
3825 (let ((#{exp 23001}#
3829 (if (if (pair? #{e 22351}#) #{s 22354}# #f)
3830 (set-source-properties!
3837 (make-struct/no-tail
3838 (vector-ref %expanded-vtables 1)
3841 (if (eqv? #{type 22349}# 'global)
3842 (#{analyze-variable 4273}#
3845 (lambda (#{mod 23037}# #{var 23038}# #{public? 23039}#)
3846 (make-struct/no-tail
3847 (vector-ref %expanded-vtables 5)
3852 (lambda (#{var 23048}#)
3853 (make-struct/no-tail
3854 (vector-ref %expanded-vtables 7)
3857 (if (eqv? #{type 22349}# 'call)
3858 (#{expand-application 4335}#
3869 (if (eqv? #{type 22349}# 'begin-form)
3870 (let ((#{tmp 23128}#
3873 '(_ any . each-any))))
3876 (lambda (#{e1 23132}# #{e2 23133}#)
3877 (#{expand-sequence 4328}#
3878 (cons #{e1 23132}# #{e2 23133}#)
3886 "source expression failed to match any pattern"
3888 (if (eqv? #{type 22349}# 'local-syntax-form)
3889 (#{expand-local-syntax 4338}#
3896 #{expand-sequence 4328}#)
3897 (if (eqv? #{type 22349}# 'eval-when-form)
3898 (let ((#{tmp 23299}#
3901 '(_ each-any any . each-any))))
3904 (lambda (#{x 23303}#
3907 (let ((#{when-list 23306}#
3908 (#{parse-when-list 4331}#
3911 (if (memq 'eval #{when-list 23306}#)
3912 (#{expand-sequence 4328}#
3913 (cons #{e1 23304}# #{e2 23305}#)
3918 (make-struct/no-tail
3919 (vector-ref %expanded-vtables 0)
3924 "source expression failed to match any pattern"
3926 (if (if (eqv? #{type 22349}# 'define-form)
3928 (eqv? #{type 22349}# 'define-syntax-form))
3931 "definition in expression context"
3937 (if (eqv? #{type 22349}# 'syntax)
3940 "reference to pattern variable outside syntax form"
3943 (if (if (pair? #{e 22351}#)
3946 (set-source-properties!
3952 (if (eqv? #{type 22349}# 'displaced-lexical)
3955 "reference to identifier outside its scope"
3958 (if (if (pair? #{e 22351}#)
3961 (set-source-properties!
3972 (if (if (pair? #{e 22351}#)
3975 (set-source-properties!
3980 #{mod 22355}#))))))))))))))))))
3981 (#{expand-application 4335}#
3982 (lambda (#{x 23547}#
3988 (let ((#{tmp 23554}#
3989 ($sc-dispatch #{e 23548}# '(any . each-any))))
3992 (lambda (#{e0 23558}# #{e1 23559}#)
3993 (#{build-application 4268}#
3996 (map (lambda (#{e 23644}#)
4006 "source expression failed to match any pattern"
4008 (#{expand-macro 4336}#
4009 (lambda (#{p 23725}#
4017 ((#{rebuild-macro-output 23732}#
4018 (lambda (#{x 23763}# #{m 23764}#)
4019 (if (pair? #{x 23763}#)
4021 (cons (#{rebuild-macro-output 23732}#
4024 (#{rebuild-macro-output 23732}#
4028 (if (if (pair? #{e 23768}#) #{s 23729}# #f)
4029 (set-source-properties! #{e 23768}# #{s 23729}#))
4031 (if (if (vector? #{x 23763}#)
4032 (if (= (vector-length #{x 23763}#) 4)
4033 (eq? (vector-ref #{x 23763}# 0) 'syntax-object)
4036 (let ((#{w 23784}# (vector-ref #{x 23763}# 2)))
4037 (let ((#{ms 23785}# (car #{w 23784}#))
4038 (#{s 23786}# (cdr #{w 23784}#)))
4039 (if (if (pair? #{ms 23785}#)
4040 (eq? (car #{ms 23785}#) #f)
4042 (let ((#{expression 23794}# (vector-ref #{x 23763}# 1))
4044 (cons (cdr #{ms 23785}#)
4046 (cons #{rib 23730}# (cdr #{s 23786}#))
4047 (cdr #{s 23786}#))))
4048 (#{module 23796}# (vector-ref #{x 23763}# 3)))
4051 #{expression 23794}#
4054 (let ((#{expression 23806}#
4055 (let ((#{e 23811}# (vector-ref #{x 23763}# 1)))
4057 (if (if (pair? #{e 23811}#) #{s 23786}# #f)
4058 (set-source-properties!
4063 (cons (cons #{m 23764}# #{ms 23785}#)
4066 (cons 'shift #{s 23786}#))
4067 (cons 'shift #{s 23786}#))))
4068 (#{module 23808}# (vector-ref #{x 23763}# 3)))
4071 #{expression 23806}#
4073 #{module 23808}#)))))
4074 (if (vector? #{x 23763}#)
4075 (let ((#{n 23823}# (vector-length #{x 23763}#)))
4077 (let ((#{e 23832}# (make-vector #{n 23823}#)))
4079 (if (if (pair? #{e 23832}#) #{x 23763}# #f)
4080 (set-source-properties!
4086 (lambda (#{i 23877}#)
4087 (if (= #{i 23877}# #{n 23823}#)
4093 (#{rebuild-macro-output 23732}#
4094 (vector-ref #{x 23763}# #{i 23877}#)
4096 (#{loop 23825}# (#{1+}# #{i 23877}#)))))))
4097 (#{loop 23825}# 0))))
4098 (if (symbol? #{x 23763}#)
4101 "encountered raw symbol in macro output"
4102 (let ((#{s 23883}# (cdr #{w 23728}#)))
4105 (if (if (pair? #{e 23726}#) #{s 23883}# #f)
4106 (set-source-properties!
4114 (if (if (pair? #{x 23763}#) #{s 23729}# #f)
4115 (set-source-properties! #{x 23763}# #{s 23729}#))
4117 (#{rebuild-macro-output 23732}#
4120 (cons (cons #f (car #{w 23728}#))
4121 (cons 'shift (cdr #{w 23728}#)))))
4124 (if (if (pair? #{e 23726}#) #{s 23729}# #f)
4125 (set-source-properties! #{e 23726}# #{s 23729}#))
4130 (#{expand-body 4337}#
4131 (lambda (#{body 23915}#
4132 #{outer-form 23916}#
4137 (cons '("placeholder" placeholder) #{r 23917}#)))
4138 (let ((#{ribcage 23921}# (vector 'ribcage '() '() '())))
4140 (cons (car #{w 23918}#)
4141 (cons #{ribcage 23921}# (cdr #{w 23918}#)))))
4144 (lambda (#{body 23936}#
4151 (if (null? #{body 23936}#)
4154 "no expressions in body"
4155 #{outer-form 23916}#)
4156 (let ((#{e 23943}# (cdr (car #{body 23936}#)))
4157 (#{er 23944}# (car (car #{body 23936}#))))
4160 (#{syntax-type 4332}#
4164 (#{source-annotation 4294}# #{er 23944}#)
4168 (lambda (#{type 24120}#
4174 (if (eqv? #{type 24120}# 'define-form)
4181 (symbol->string (gensym "i"))))
4182 (let ((#{var 24131}#
4184 (if (if (vector? #{id 24129}#)
4185 (if (= (vector-length
4194 (vector-ref #{id 24129}# 1)
4198 (symbol->string #{id 24191}#)
4201 (let ((#{update 24181}#
4202 (cons (vector-ref #{id 24129}# 1)
4210 (let ((#{update 24183}#
4211 (cons (car (vector-ref
4221 (let ((#{update 24185}#
4222 (cons #{label 24130}#
4231 (cdr #{body 23936}#)
4232 (cons #{id 24129}# #{ids 23937}#)
4233 (cons #{label 24130}# #{labels 23938}#)
4234 (cons #{id 24129}# #{var-ids 23939}#)
4235 (cons #{var 24131}# #{vars 23940}#)
4236 (cons (cons #{er 23944}#
4242 (cons (cons 'lexical #{var 24131}#)
4243 #{bindings 23942}#)))))
4244 (if (eqv? #{type 24120}# 'define-syntax-form)
4251 (symbol->string (gensym "i"))))
4253 (let ((#{update 24270}#
4254 (cons (vector-ref #{id 24219}# 1)
4262 (let ((#{update 24272}#
4263 (cons (car (vector-ref
4273 (let ((#{update 24274}#
4274 (cons #{label 24220}#
4283 (cdr #{body 23936}#)
4284 (cons #{id 24219}# #{ids 23937}#)
4285 (cons #{label 24220}# #{labels 23938}#)
4295 #{bindings 23942}#))))
4296 (if (eqv? #{type 24120}# 'begin-form)
4297 (let ((#{tmp 24282}#
4303 (lambda (#{e1 24286}#)
4307 (lambda (#{forms 24350}#)
4308 (if (null? #{forms 24350}#)
4309 (cdr #{body 23936}#)
4310 (cons (cons #{er 23944}#
4312 (car #{forms 24350}#)
4316 (cdr #{forms 24350}#)))))))
4317 (#{f 24287}# #{e1 24286}#))
4323 #{bindings 23942}#))
4327 "source expression failed to match any pattern"
4329 (if (eqv? #{type 24120}# 'local-syntax-form)
4330 (#{expand-local-syntax 4338}#
4337 (lambda (#{forms 24364}#
4345 (lambda (#{forms 24432}#)
4346 (if (null? #{forms 24432}#)
4347 (cdr #{body 23936}#)
4348 (cons (cons #{er 24365}#
4350 (car #{forms 24432}#)
4354 (cdr #{forms 24432}#)))))))
4355 (#{f 24369}# #{forms 24364}#))
4361 #{bindings 23942}#)))
4362 (if (null? #{ids 23937}#)
4363 (#{build-sequence 4282}#
4365 (map (lambda (#{x 24502}#)
4371 (cons (cons #{er 23944}#
4374 (if (if (pair? #{e 24122}#)
4377 (set-source-properties!
4383 (cdr #{body 23936}#))))
4385 (if (not (#{valid-bound-ids? 4323}#
4389 "invalid or duplicate identifier in definition"
4390 #{outer-form 23916}#))
4393 (lambda (#{bs 24667}#
4396 (if (not (null? #{bs 24667}#))
4398 (car #{bs 24667}#)))
4399 (if (eq? (car #{b 24670}#)
4402 (car (cdr #{b 24670}#))))
4403 (let ((#{r-cache 24673}#
4404 (if (eq? #{er 24672}#
4407 (#{macros-only-env 4297}#
4412 (#{eval-local-transformer 4339}#
4414 (cdr (cdr #{b 24670}#))
4422 #{r-cache 24673}#))))
4426 #{r-cache 24669}#)))))))
4433 (#{extend-env 4295}#
4437 (#{build-letrec 4285}#
4443 (reverse #{vars 23940}#)
4444 (map (lambda (#{x 25026}#)
4450 (reverse #{vals 23941}#))
4451 (#{build-sequence 4282}#
4453 (map (lambda (#{x 25156}#)
4459 (cons (cons #{er 23944}#
4462 (if (if (pair? #{e 24122}#)
4465 (set-source-properties!
4471 (cdr #{body 23936}#))))))))))))))))))
4473 (map (lambda (#{x 23926}#)
4486 (#{expand-local-syntax 4338}#
4487 (lambda (#{rec? 25241}#
4494 (let ((#{tmp 25249}#
4497 '(_ #(each (any any)) any . each-any))))
4500 (lambda (#{id 25253}#
4504 (if (not (#{valid-bound-ids? 4323}# #{id 25253}#))
4507 "duplicate bound keyword"
4509 (let ((#{labels 25346}#
4510 (#{gen-labels 4304}# #{id 25253}#)))
4511 (let ((#{new-w 25347}#
4512 (#{make-binding-wrap 4315}#
4517 (cons #{e1 25255}# #{e2 25256}#)
4518 (#{extend-env 4295}#
4520 (let ((#{trans-r 25385}#
4521 (#{macros-only-env 4297}# #{r 25243}#)))
4523 (if #{rec? 25241}# (if #f #f))
4524 (map (lambda (#{x 25386}#)
4526 (#{eval-local-transformer 4339}#
4543 "bad local syntax definition"
4546 (if (if (pair? #{e 25242}#) #{s 25245}# #f)
4547 (set-source-properties! #{e 25242}# #{s 25245}#))
4551 (#{eval-local-transformer 4339}#
4552 (lambda (#{expanded 25687}# #{mod 25688}#)
4553 (let ((#{p 25689}# (primitive-eval #{expanded 25687}#)))
4554 (if (procedure? #{p 25689}#)
4558 "nonprocedure transformer"
4561 (lambda (#{x 5147}#)
4562 (if (if (if (vector? #{x 5147}#)
4563 (if (= (vector-length #{x 5147}#) 4)
4564 (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
4567 (symbol? (vector-ref #{x 5147}# 1))
4569 (if (eq? (if (if (vector? #{x 5147}#)
4570 (if (= (vector-length #{x 5147}#) 4)
4571 (eq? (vector-ref #{x 5147}# 0) 'syntax-object)
4574 (vector-ref #{x 5147}# 1)
4576 (if (if (= (vector-length
4582 #(ribcage #(x) #((top)) #("i2218"))
4589 expand-simple-lambda
4593 eval-local-transformer
4602 expand-install-global
4628 set-ribcage-symnames!
4660 set-syntax-object-module!
4661 set-syntax-object-wrap!
4662 set-syntax-object-expression!
4663 syntax-object-module
4665 syntax-object-expression
4678 build-global-definition
4679 build-global-assignment
4680 build-global-reference
4682 build-lexical-assignment
4683 build-lexical-reference
4690 get-global-definition-hook
4691 put-global-definition-hook
4710 make-toplevel-define
4994 define-expansion-accessors
4995 define-expansion-constructors)
4997 ("i46" "i45" "i44")))
5008 #(ribcage #(x) #((top)) #("i2218"))
5015 expand-simple-lambda
5019 eval-local-transformer
5028 expand-install-global
5054 set-ribcage-symnames!
5086 set-syntax-object-module!
5087 set-syntax-object-wrap!
5088 set-syntax-object-expression!
5089 syntax-object-module
5091 syntax-object-expression
5104 build-global-definition
5105 build-global-assignment
5106 build-global-reference
5108 build-lexical-assignment
5109 build-lexical-reference
5116 get-global-definition-hook
5117 put-global-definition-hook
5136 make-toplevel-define
5420 define-expansion-accessors
5421 define-expansion-constructors)
5423 ("i46" "i45" "i44")))
5425 (eq? (#{id-var-name 4320}# #{x 5147}# '(()))
5426 (#{id-var-name 4320}#
5432 #(ribcage #(x) #((top)) #("i2218"))
5439 expand-simple-lambda
5443 eval-local-transformer
5452 expand-install-global
5478 set-ribcage-symnames!
5510 set-syntax-object-module!
5511 set-syntax-object-wrap!
5512 set-syntax-object-expression!
5513 syntax-object-module
5515 syntax-object-expression
5528 build-global-definition
5529 build-global-assignment
5530 build-global-reference
5532 build-lexical-assignment
5533 build-lexical-reference
5540 get-global-definition-hook
5541 put-global-definition-hook
5560 make-toplevel-define
5844 define-expansion-accessors
5845 define-expansion-constructors)
5847 ("i46" "i45" "i44")))
5852 (#{lambda-formals 4342}#
5853 (lambda (#{orig-args 25694}#)
5856 (lambda (#{args 25699}# #{rreq 25700}#)
5857 (let ((#{tmp 25702}# ($sc-dispatch #{args 25699}# '())))
5861 (#{check 25696}# (reverse #{rreq 25700}#) #f))
5863 (let ((#{tmp 25829}#
5864 ($sc-dispatch #{args 25699}# '(any . any))))
5865 (if (if #{tmp 25829}#
5867 (lambda (#{a 25833}# #{b 25834}#)
5868 (if (symbol? #{a 25833}#)
5870 (if (if (vector? #{a 25833}#)
5871 (if (= (vector-length #{a 25833}#) 4)
5872 (eq? (vector-ref #{a 25833}# 0)
5876 (symbol? (vector-ref #{a 25833}# 1))
5881 (lambda (#{a 25861}# #{b 25862}#)
5884 (cons #{a 25861}# #{rreq 25700}#)))
5886 (let ((#{tmp 25863}# (list #{args 25699}#)))
5888 (lambda (#{r 25865}#)
5889 (if (symbol? #{r 25865}#)
5891 (if (if (vector? #{r 25865}#)
5892 (if (= (vector-length #{r 25865}#) 4)
5893 (eq? (vector-ref #{r 25865}# 0)
5897 (symbol? (vector-ref #{r 25865}# 1))
5901 (lambda (#{r 25895}#)
5903 (reverse #{rreq 25700}#)
5908 "invalid argument list"
5910 #{args 25699}#)))))))))
5912 (lambda (#{req 26030}# #{rest 26031}#)
5913 (if (#{distinct-bound-ids? 4324}#
5915 (cons #{rest 26031}# #{req 26030}#)
5917 (values #{req 26030}# #f #{rest 26031}# #f)
5920 "duplicate identifier in argument list"
5921 #{orig-args 25694}#)))))
5922 (#{req 25695}# #{orig-args 25694}# '()))))
5923 (#{expand-simple-lambda 4343}#
5924 (lambda (#{e 26151}#
5933 (let ((#{ids 26160}#
5935 (append #{req 26156}# (list #{rest 26157}#))
5937 (let ((#{vars 26161}#
5938 (map #{gen-var 4347}# #{ids 26160}#)))
5939 (let ((#{labels 26162}#
5940 (#{gen-labels 4304}# #{ids 26160}#)))
5941 (#{build-simple-lambda 4277}#
5943 (map syntax->datum #{req 26156}#)
5945 (syntax->datum #{rest 26157}#)
5949 (#{expand-body 4337}#
5953 (if (if (pair? #{e 26151}#) #{s 26154}# #f)
5954 (set-source-properties! #{e 26151}# #{s 26154}#))
5958 (#{extend-var-env 4296}#
5962 (#{make-binding-wrap 4315}#
5966 #{mod 26155}#)))))))
5967 (#{lambda*-formals 4344}#
5968 (lambda (#{orig-args 26462}#)
5971 (lambda (#{args 26470}# #{rreq 26471}#)
5972 (let ((#{tmp 26473}# ($sc-dispatch #{args 26470}# '())))
5977 (reverse #{rreq 26471}#)
5982 (let ((#{tmp 26479}#
5983 ($sc-dispatch #{args 26470}# '(any . any))))
5984 (if (if #{tmp 26479}#
5986 (lambda (#{a 26483}# #{b 26484}#)
5987 (if (symbol? #{a 26483}#)
5989 (if (if (vector? #{a 26483}#)
5990 (if (= (vector-length #{a 26483}#) 4)
5991 (eq? (vector-ref #{a 26483}# 0)
5995 (symbol? (vector-ref #{a 26483}# 1))
6000 (lambda (#{a 26511}# #{b 26512}#)
6003 (cons #{a 26511}# #{rreq 26471}#)))
6005 (let ((#{tmp 26513}#
6006 ($sc-dispatch #{args 26470}# '(any . any))))
6007 (if (if #{tmp 26513}#
6009 (lambda (#{a 26517}# #{b 26518}#)
6010 (eq? (syntax->datum #{a 26517}#) #:optional))
6014 (lambda (#{a 26519}# #{b 26520}#)
6017 (reverse #{rreq 26471}#)
6020 (let ((#{tmp 26523}#
6021 ($sc-dispatch #{args 26470}# '(any . any))))
6022 (if (if #{tmp 26523}#
6024 (lambda (#{a 26527}# #{b 26528}#)
6025 (eq? (syntax->datum #{a 26527}#) #:key))
6029 (lambda (#{a 26529}# #{b 26530}#)
6032 (reverse #{rreq 26471}#)
6036 (let ((#{tmp 26533}#
6040 (if (if #{tmp 26533}#
6042 (lambda (#{a 26537}# #{b 26538}#)
6043 (eq? (syntax->datum #{a 26537}#)
6048 (lambda (#{a 26539}# #{b 26540}#)
6051 (reverse #{rreq 26471}#)
6055 (let ((#{tmp 26543}# (list #{args 26470}#)))
6057 (lambda (#{r 26545}#)
6058 (if (symbol? #{r 26545}#)
6060 (if (if (vector? #{r 26545}#)
6061 (if (= (vector-length
6071 (vector-ref #{r 26545}# 1))
6075 (lambda (#{r 26575}#)
6078 (reverse #{rreq 26471}#)
6084 "invalid argument list"
6086 #{args 26470}#)))))))))))))))
6088 (lambda (#{args 26594}# #{req 26595}# #{ropt 26596}#)
6089 (let ((#{tmp 26598}# ($sc-dispatch #{args 26594}# '())))
6095 (reverse #{ropt 26596}#)
6099 (let ((#{tmp 26604}#
6100 ($sc-dispatch #{args 26594}# '(any . any))))
6101 (if (if #{tmp 26604}#
6103 (lambda (#{a 26608}# #{b 26609}#)
6104 (if (symbol? #{a 26608}#)
6106 (if (if (vector? #{a 26608}#)
6107 (if (= (vector-length #{a 26608}#) 4)
6108 (eq? (vector-ref #{a 26608}# 0)
6112 (symbol? (vector-ref #{a 26608}# 1))
6117 (lambda (#{a 26636}# #{b 26637}#)
6121 (cons (cons #{a 26636}#
6132 #((top) (top) (top))
6133 #("i2347" "i2348" "i2349"))
6135 (check rest key opt req)
6136 ((top) (top) (top) (top) (top))
6152 expand-simple-lambda
6156 eval-local-transformer
6165 expand-install-global
6191 set-ribcage-symnames!
6223 set-syntax-object-module!
6224 set-syntax-object-wrap!
6225 set-syntax-object-expression!
6226 syntax-object-module
6228 syntax-object-expression
6241 build-global-definition
6242 build-global-assignment
6243 build-global-reference
6245 build-lexical-assignment
6246 build-lexical-reference
6253 get-global-definition-hook
6254 put-global-definition-hook
6273 make-toplevel-define
6557 define-expansion-accessors
6558 define-expansion-constructors)
6560 ("i46" "i45" "i44")))
6564 (let ((#{tmp 26638}#
6567 '((any any) . any))))
6568 (if (if #{tmp 26638}#
6570 (lambda (#{a 26642}#
6573 (if (symbol? #{a 26642}#)
6575 (if (if (vector? #{a 26642}#)
6576 (if (= (vector-length #{a 26642}#) 4)
6577 (eq? (vector-ref #{a 26642}# 0)
6581 (symbol? (vector-ref #{a 26642}# 1))
6586 (lambda (#{a 26671}# #{init 26672}# #{b 26673}#)
6590 (cons (list #{a 26671}# #{init 26672}#)
6593 (let ((#{tmp 26674}#
6594 ($sc-dispatch #{args 26594}# '(any . any))))
6595 (if (if #{tmp 26674}#
6597 (lambda (#{a 26678}# #{b 26679}#)
6598 (eq? (syntax->datum #{a 26678}#) #:key))
6602 (lambda (#{a 26680}# #{b 26681}#)
6606 (reverse #{ropt 26596}#)
6609 (let ((#{tmp 26684}#
6613 (if (if #{tmp 26684}#
6615 (lambda (#{a 26688}# #{b 26689}#)
6616 (eq? (syntax->datum #{a 26688}#)
6621 (lambda (#{a 26690}# #{b 26691}#)
6625 (reverse #{ropt 26596}#)
6628 (let ((#{tmp 26694}# (list #{args 26594}#)))
6630 (lambda (#{r 26696}#)
6631 (if (symbol? #{r 26696}#)
6633 (if (if (vector? #{r 26696}#)
6634 (if (= (vector-length
6644 (vector-ref #{r 26696}# 1))
6648 (lambda (#{r 26726}#)
6652 (reverse #{ropt 26596}#)
6657 "invalid optional argument list"
6659 #{args 26594}#)))))))))))))))
6661 (lambda (#{args 26745}#
6665 (let ((#{tmp 26750}# ($sc-dispatch #{args 26745}# '())))
6673 (cons #f (reverse #{rkey 26748}#))))
6675 (let ((#{tmp 26756}#
6676 ($sc-dispatch #{args 26745}# '(any . any))))
6677 (if (if #{tmp 26756}#
6679 (lambda (#{a 26760}# #{b 26761}#)
6680 (if (symbol? #{a 26760}#)
6682 (if (if (vector? #{a 26760}#)
6683 (if (= (vector-length #{a 26760}#) 4)
6684 (eq? (vector-ref #{a 26760}# 0)
6688 (symbol? (vector-ref #{a 26760}# 1))
6693 (lambda (#{a 26788}# #{b 26789}#)
6694 (let ((#{tmp 26790}#
6696 (syntax->datum #{a 26788}#))))
6701 (cons (cons #{tmp 26790}#
6717 #(args req opt rkey)
6727 (check rest key opt req)
6748 expand-simple-lambda
6752 eval-local-transformer
6761 expand-install-global
6787 set-ribcage-symnames!
6819 set-syntax-object-module!
6820 set-syntax-object-wrap!
6821 set-syntax-object-expression!
6822 syntax-object-module
6824 syntax-object-expression
6837 build-global-definition
6838 build-global-assignment
6839 build-global-reference
6841 build-lexical-assignment
6842 build-lexical-reference
6849 get-global-definition-hook
6850 put-global-definition-hook
6869 make-toplevel-define
7153 define-expansion-accessors
7154 define-expansion-constructors)
7156 ("i46" "i45" "i44")))
7160 (let ((#{tmp 26793}#
7163 '((any any) . any))))
7164 (if (if #{tmp 26793}#
7166 (lambda (#{a 26797}#
7169 (if (symbol? #{a 26797}#)
7171 (if (if (vector? #{a 26797}#)
7172 (if (= (vector-length #{a 26797}#) 4)
7173 (eq? (vector-ref #{a 26797}# 0)
7177 (symbol? (vector-ref #{a 26797}# 1))
7182 (lambda (#{a 26826}# #{init 26827}# #{b 26828}#)
7183 (let ((#{tmp 26829}#
7185 (syntax->datum #{a 26826}#))))
7190 (cons (list #{tmp 26829}#
7195 (let ((#{tmp 26832}#
7198 '((any any any) . any))))
7199 (if (if #{tmp 26832}#
7201 (lambda (#{a 26836}#
7205 (if (if (symbol? #{a 26836}#)
7207 (if (if (vector? #{a 26836}#)
7208 (if (= (vector-length
7218 (vector-ref #{a 26836}# 1))
7220 (keyword? (syntax->datum #{k 26838}#))
7225 (lambda (#{a 26866}#
7233 (cons (list #{k 26868}#
7238 (let ((#{tmp 26870}#
7239 ($sc-dispatch #{args 26745}# '(any))))
7240 (if (if #{tmp 26870}#
7242 (lambda (#{aok 26874}#)
7243 (eq? (syntax->datum #{aok 26874}#)
7244 #:allow-other-keys))
7248 (lambda (#{aok 26875}#)
7253 (cons #t (reverse #{rkey 26748}#))))
7255 (let ((#{tmp 26878}#
7259 (if (if #{tmp 26878}#
7261 (lambda (#{aok 26882}#
7264 (if (eq? (syntax->datum
7274 (lambda (#{aok 26885}#
7282 (reverse #{rkey 26748}#))))
7284 (let ((#{tmp 26890}#
7288 (if (if #{tmp 26890}#
7290 (lambda (#{aok 26894}#
7292 (if (eq? (syntax->datum
7295 (if (symbol? #{r 26895}#)
7299 (if (= (vector-length
7317 (lambda (#{aok 26922}# #{r 26923}#)
7326 (let ((#{tmp 26926}#
7330 (if (if #{tmp 26926}#
7332 (lambda (#{a 26930}#
7340 (lambda (#{a 26932}#
7350 (let ((#{tmp 26936}#
7351 (list #{args 26745}#)))
7353 (lambda (#{r 26938}#)
7359 (if (= (vector-length
7375 (lambda (#{r 26968}#)
7386 "invalid keyword argument list"
7388 #{args 26745}#)))))))))))))))))))))
7390 (lambda (#{args 26996}#
7394 (let ((#{tmp 27001}# (list #{args 26996}#)))
7396 (lambda (#{r 27003}#)
7397 (if (symbol? #{r 27003}#)
7399 (if (if (vector? #{r 27003}#)
7400 (if (= (vector-length #{r 27003}#) 4)
7401 (eq? (vector-ref #{r 27003}# 0)
7405 (symbol? (vector-ref #{r 27003}# 1))
7409 (lambda (#{r 27033}#)
7418 "invalid rest argument"
7422 (lambda (#{req 27037}#
7426 (if (#{distinct-bound-ids? 4324}#
7429 (map car #{opt 27038}#)
7430 (if #{rest 27039}# (list #{rest 27039}#) '())
7431 (if (pair? #{kw 27040}#)
7432 (map cadr (cdr #{kw 27040}#))
7441 "duplicate identifier in argument list"
7442 #{orig-args 26462}#)))))
7443 (#{req 26463}# #{orig-args 26462}# '()))))
7444 (#{expand-lambda-case 4345}#
7445 (lambda (#{e 27160}#
7450 #{get-formals 27165}#
7453 ((#{parse-req 27167}#
7454 (lambda (#{req 27301}#
7459 (let ((#{vars 27306}#
7460 (map #{gen-var 4347}# #{req 27301}#))
7462 (#{gen-labels 4304}# #{req 27301}#)))
7464 (#{extend-var-env 4296}#
7469 (#{make-binding-wrap 4315}#
7473 (#{parse-opt 27168}#
7474 (map syntax->datum #{req 27301}#)
7479 (reverse #{vars 27306}#)
7484 (#{parse-opt 27168}#
7485 (lambda (#{req 27525}#
7495 (if (pair? #{opt 27526}#)
7496 (let ((#{tmp 27535}# (car #{opt 27526}#)))
7497 (let ((#{tmp 27536}#
7498 ($sc-dispatch #{tmp 27535}# '(any any))))
7501 (lambda (#{id 27538}# #{i 27539}#)
7504 (if (if (vector? #{id 27538}#)
7505 (if (= (vector-length
7514 (vector-ref #{id 27538}# 1)
7518 (symbol->string #{id 27548}#)
7521 (#{gen-labels 4304}# (list #{v 27540}#))))
7522 (let ((#{r** 27542}#
7523 (#{extend-var-env 4296}#
7527 (let ((#{w** 27543}#
7528 (#{make-binding-wrap 4315}#
7532 (#{parse-opt 27168}#
7538 (cons #{v 27540}# #{vars 27530}#)
7541 (cons (syntax->datum #{id 27538}#)
7543 (cons (#{expand 4333}#
7548 #{inits 27534}#)))))))
7552 "source expression failed to match any pattern"
7557 (if (if (vector? #{rest 27527}#)
7558 (if (= (vector-length #{rest 27527}#)
7560 (eq? (vector-ref #{rest 27527}# 0)
7564 (vector-ref #{rest 27527}# 1)
7568 (symbol->string #{id 27830}#)
7571 (#{gen-labels 4304}# (list #{v 27820}#))))
7573 (#{extend-var-env 4296}#
7578 (#{make-binding-wrap 4315}#
7579 (list #{rest 27527}#)
7584 (if (pair? #{out 27533}#)
7585 (reverse #{out 27533}#)
7587 (syntax->datum #{rest 27527}#)
7588 (if (pair? #{kw 27528}#)
7592 (cons #{v 27820}# #{vars 27530}#)
7595 (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
7597 #{inits 27534}#)))))
7600 (if (pair? #{out 27533}#)
7601 (reverse #{out 27533}#)
7604 (if (pair? #{kw 27528}#)
7611 (if (pair? #{kw 27528}#) (car #{kw 27528}#) #f)
7613 #{inits 27534}#)))))
7615 (lambda (#{req 28030}#
7626 (if (pair? #{kw 28033}#)
7627 (let ((#{tmp 28041}# (car #{kw 28033}#)))
7628 (let ((#{tmp 28042}#
7629 ($sc-dispatch #{tmp 28041}# '(any any any))))
7632 (lambda (#{k 28044}# #{id 28045}# #{i 28046}#)
7635 (if (if (vector? #{id 28045}#)
7636 (if (= (vector-length
7645 (vector-ref #{id 28045}# 1)
7649 (symbol->string #{id 28055}#)
7652 (#{gen-labels 4304}# (list #{v 28047}#))))
7653 (let ((#{r** 28049}#
7654 (#{extend-var-env 4296}#
7658 (let ((#{w** 28050}#
7659 (#{make-binding-wrap 4315}#
7669 (cons #{v 28047}# #{vars 28035}#)
7673 (cons (list (syntax->datum #{k 28044}#)
7674 (syntax->datum #{id 28045}#)
7677 (cons (#{expand 4333}#
7682 #{inits 28040}#)))))))
7686 "source expression failed to match any pattern"
7688 (#{parse-body 27170}#
7692 (if (if #{aok 28038}#
7694 (pair? #{out 28039}#))
7695 (cons #{aok 28038}# (reverse #{out 28039}#))
7698 (reverse #{vars 28035}#)
7701 (reverse #{inits 28040}#)
7703 (#{parse-body 27170}#
7704 (lambda (#{req 28336}#
7714 (let ((#{tmp 28347}#
7717 '(any any . each-any))))
7718 (if (if #{tmp 28347}#
7720 (lambda (#{docstring 28351}# #{e1 28352}# #{e2 28353}#)
7721 (string? (syntax->datum #{docstring 28351}#)))
7725 (lambda (#{docstring 28354}# #{e1 28355}# #{e2 28356}#)
7726 (#{parse-body 27170}#
7731 (cons #{e1 28355}# #{e2 28356}#)
7738 (list (cons 'documentation
7739 (syntax->datum #{docstring 28354}#))))))
7741 (let ((#{tmp 28357}#
7744 '(#(vector #(each (any . any))) any . each-any))))
7747 (lambda (#{k 28361}#
7751 (#{parse-body 27170}#
7756 (cons #{e1 28363}# #{e2 28364}#)
7764 (map cons #{k 28361}# #{v 28362}#)))))
7766 (let ((#{tmp 28365}#
7767 ($sc-dispatch #{body 28340}# '(any . each-any))))
7770 (lambda (#{e1 28369}# #{e2 28370}#)
7779 (#{expand-body 4337}#
7780 (cons #{e1 28369}# #{e2 28370}#)
7783 (if (if (pair? #{e 27160}#)
7786 (set-source-properties!
7798 "source expression failed to match any pattern"
7799 #{body 28340}#))))))))))
7800 (let ((#{tmp 27172}#
7801 ($sc-dispatch #{clauses 27166}# '())))
7804 (lambda () (values '() #f))
7806 (let ((#{tmp 27177}#
7809 '((any any . each-any)
7811 #(each (any any . each-any))))))
7814 (lambda (#{args 27181}#
7822 (#{get-formals 27165}# #{args 27181}#))
7823 (lambda (#{req 27187}#
7829 (#{parse-req 27167}#
7834 (cons #{e1 27182}# #{e2 27183}#)))
7835 (lambda (#{meta 27257}#
7845 (#{expand-lambda-case 4345}#
7851 #{get-formals 27165}#
7852 (map (lambda (#{tmp 2763 27265}#
7855 (cons #{tmp 2761 27267}#
7856 (cons #{tmp 2762 27266}#
7857 #{tmp 2763 27265}#)))
7861 (lambda (#{meta* 27268}# #{else* 27269}#)
7863 (append #{meta 27257}# #{meta* 27268}#)
7864 (make-struct/no-tail
7865 (vector-ref %expanded-vtables 14)
7874 #{else* 27269}#)))))))))
7878 "source expression failed to match any pattern"
7879 #{clauses 27166}#))))))))
7881 (lambda (#{x 28407}# #{w 28408}#)
7882 (if (memq 'top (car #{w 28408}#))
7886 (lambda (#{x 28412}#)
7887 (if (if (vector? #{x 28412}#)
7888 (if (= (vector-length #{x 28412}#) 4)
7889 (eq? (vector-ref #{x 28412}# 0) 'syntax-object)
7893 (vector-ref #{x 28412}# 1)
7894 (vector-ref #{x 28412}# 2))
7895 (if (pair? #{x 28412}#)
7896 (let ((#{a 28431}# (#{f 28409}# (car #{x 28412}#)))
7897 (#{d 28432}# (#{f 28409}# (cdr #{x 28412}#))))
7898 (if (if (eq? #{a 28431}# (car #{x 28412}#))
7899 (eq? #{d 28432}# (cdr #{x 28412}#))
7902 (cons #{a 28431}# #{d 28432}#)))
7903 (if (vector? #{x 28412}#)
7904 (let ((#{old 28435}# (vector->list #{x 28412}#)))
7905 (let ((#{new 28436}# (map #{f 28409}# #{old 28435}#)))
7908 (lambda (#{l1 28513}# #{l2 28514}#)
7909 (if (null? #{l1 28513}#)
7911 (if (eq? (car #{l1 28513}#)
7916 (list->vector #{new 28436}#))))))
7917 (#{lp 28437}# #{old 28435}# #{new 28436}#))))
7919 (#{f 28409}# #{x 28407}#)))))
7921 (lambda (#{id 27313}#)
7923 (if (if (vector? #{id 27313}#)
7924 (if (= (vector-length #{id 27313}#) 4)
7925 (eq? (vector-ref #{id 27313}# 0) 'syntax-object)
7928 (vector-ref #{id 27313}# 1)
7931 (string-append (symbol->string #{id 27314}#) " "))))))
7936 (make-syntax-transformer
7943 (make-syntax-transformer
7947 (#{global-extend 4299}#
7958 '(_ #(each (any any)) any . each-any))))
7959 (if (if #{tmp 4474}#
7961 (lambda (#{var 4478}#
7965 (#{valid-bound-ids? 4323}# #{var 4478}#))
7969 (lambda (#{var 4559}#
7973 (let ((#{names 4563}#
7974 (map (lambda (#{x 4753}#)
7975 (#{id-var-name 4320}# #{x 4753}# #{w 4470}#))
7979 (lambda (#{id 4564}# #{n 4565}#)
7980 (let ((#{atom-key 4566}#
7981 (car (let ((#{t 4690}#
7982 (assq #{n 4565}# #{r 4469}#)))
7985 (if (symbol? #{n 4565}#)
7988 (if (if (not #{mod 4472}#)
7991 (warn "module system is booted, we should have a module"
8001 (if (variable-bound?
8021 '(displaced-lexical)))))))
8022 (if (let ((#{t 4599}# #{atom-key 4566}#))
8023 (eqv? #{t 4599}# 'displaced-lexical))
8026 "identifier out of context"
8030 (if (if (pair? #{id 4564}#) #{s 4471}# #f)
8031 (set-source-properties!
8039 (#{expand-body 4337}#
8040 (cons #{e1 4561}# #{e2 4562}#)
8043 (if (if (pair? #{e 4468}#) #{s 4471}# #f)
8044 (set-source-properties! #{e 4468}# #{s 4471}#))
8048 (#{extend-env 4295}#
8050 (let ((#{trans-r 4839}#
8051 (#{macros-only-env 4297}# #{r 4469}#)))
8052 (map (lambda (#{x 4840}#)
8054 (#{eval-local-transformer 4339}#
8071 (if (if (pair? #{e 4468}#) #{s 4471}# #f)
8072 (set-source-properties! #{e 4468}# #{s 4471}#))
8079 (make-syntax-transformer
8087 (let ((#{tmp 5060}# ($sc-dispatch #{e 5054}# '(_ any))))
8090 (lambda (#{e 5063}#)
8092 (#{strip 4346}# #{e 5063}# #{w 5056}#)))
8093 (make-struct/no-tail
8094 (vector-ref %expanded-vtables 1)
8103 (if (if (pair? #{e 5054}#) #{s 5057}# #f)
8104 (set-source-properties! #{e 5054}# #{s 5057}#))
8108 (#{global-extend 4299}#
8112 ((#{gen-syntax 5294}#
8113 (lambda (#{src 5396}#
8119 (if (if (symbol? #{e 5397}#)
8121 (if (if (vector? #{e 5397}#)
8122 (if (= (vector-length #{e 5397}#) 4)
8123 (eq? (vector-ref #{e 5397}# 0) 'syntax-object)
8126 (symbol? (vector-ref #{e 5397}# 1))
8128 (let ((#{label 5428}#
8129 (#{id-var-name 4320}# #{e 5397}# '(()))))
8131 (let ((#{t 5566}# (assq #{label 5428}# #{r 5398}#)))
8134 (if (symbol? #{label 5428}#)
8137 (if (if (not #{mod 5401}#)
8140 (warn "module system is booted, we should have a module"
8150 (if (variable-bound? #{v 5608}#)
8154 (if (macro? #{val 5617}#)
8165 (if #{t 5571}# #{t 5571}# '(global)))
8166 '(displaced-lexical))))))
8167 (if (eq? (car #{b 5429}#) 'syntax)
8170 (let ((#{var.lev 5462}# (cdr #{b 5429}#)))
8173 (car #{var.lev 5462}#)
8174 (cdr #{var.lev 5462}#)
8176 (lambda (#{var 5558}# #{maps 5559}#)
8177 (values (list 'ref #{var 5558}#) #{maps 5559}#)))
8178 (if (#{ellipsis? 5400}# #{e 5397}#)
8181 "misplaced ellipsis"
8183 (values (list 'quote #{e 5397}#) #{maps 5399}#)))))
8185 ($sc-dispatch #{e 5397}# '(any any))))
8186 (if (if #{tmp 5629}#
8188 (lambda (#{dots 5633}# #{e 5634}#)
8189 (#{ellipsis? 5400}# #{dots 5633}#))
8193 (lambda (#{dots 5635}# #{e 5636}#)
8194 (#{gen-syntax 5294}#
8199 (lambda (#{x 5637}#) #f)
8203 ($sc-dispatch #{e 5397}# '(any any . any))))
8204 (if (if #{tmp 5638}#
8206 (lambda (#{x 5642}# #{dots 5643}# #{y 5644}#)
8207 (#{ellipsis? 5400}# #{dots 5643}#))
8211 (lambda (#{x 5645}# #{dots 5646}# #{y 5647}#)
8214 (lambda (#{y 5656}# #{k 5657}#)
8219 (if (if #{tmp 5659}#
8221 (lambda (#{dots 5663}# #{y 5664}#)
8227 (lambda (#{dots 5665}# #{y 5666}#)
8230 (lambda (#{maps 5667}#)
8234 (cons '() #{maps 5667}#)))
8237 (if (null? (car #{maps 5669}#))
8243 (let ((#{map-env 5673}#
8244 (car #{maps 5669}#)))
8251 (cdr #{maps 5669}#))))))))
8255 (#{gen-syntax 5294}#
8262 (lambda (#{y 5676}# #{maps 5677}#)
8265 (#{k 5657}# #{maps 5677}#))
8266 (lambda (#{x 5678}# #{maps 5679}#)
8268 (if (equal? #{y 5676}# ''())
8273 #{maps 5679}#))))))))))
8276 (lambda (#{maps 5651}#)
8279 (#{gen-syntax 5294}#
8283 (cons '() #{maps 5651}#)
8286 (lambda (#{x 5652}# #{maps 5653}#)
8287 (if (null? (car #{maps 5653}#))
8295 (car #{maps 5653}#))
8296 (cdr #{maps 5653}#)))))))))
8299 ($sc-dispatch #{e 5397}# '(any . any))))
8302 (lambda (#{x 5699}# #{y 5700}#)
8305 (#{gen-syntax 5294}#
8312 (lambda (#{x 5701}# #{maps 5702}#)
8315 (#{gen-syntax 5294}#
8322 (lambda (#{y 5703}# #{maps 5704}#)
8324 (let ((#{atom-key 5709}#
8326 (if (eqv? #{atom-key 5709}# 'quote)
8327 (if (eq? (car #{x 5701}#) 'quote)
8329 (cons (car (cdr #{x 5701}#))
8330 (car (cdr #{y 5703}#))))
8331 (if (eq? (car (cdr #{y 5703}#))
8333 (list 'list #{x 5701}#)
8337 (if (eqv? #{atom-key 5709}# 'list)
8349 '#(vector (any . each-any)))))
8352 (lambda (#{e1 5742}# #{e2 5743}#)
8355 (#{gen-syntax 5294}#
8357 (cons #{e1 5742}# #{e2 5743}#)
8362 (lambda (#{e 5744}# #{maps 5745}#)
8364 (if (eq? (car #{e 5744}#) 'list)
8365 (cons 'vector (cdr #{e 5744}#))
8366 (if (eq? (car #{e 5744}#) 'quote)
8369 (car (cdr #{e 5744}#))))
8370 (list 'list->vector #{e 5744}#)))
8374 (list 'quote #{e 5397}#)
8375 #{maps 5399}#))))))))))))
8377 (lambda (#{src 5772}#
8381 (if (= #{level 5774}# 0)
8382 (values #{var 5773}# #{maps 5775}#)
8383 (if (null? #{maps 5775}#)
8393 (#{1-}# #{level 5774}#)
8394 (cdr #{maps 5775}#)))
8395 (lambda (#{outer-var 5776}# #{outer-maps 5777}#)
8397 (assq #{outer-var 5776}# (car #{maps 5775}#))))
8399 (values (cdr #{b 5778}#) #{maps 5775}#)
8400 (let ((#{inner-var 5780}#
8402 (string-append (symbol->string 'tmp) " "))))
8405 (cons (cons (cons #{outer-var 5776}#
8407 (car #{maps 5775}#))
8408 #{outer-maps 5777}#)))))))))))
8410 (lambda (#{e 5794}# #{map-env 5795}#)
8411 (let ((#{formals 5796}# (map cdr #{map-env 5795}#))
8413 (map (lambda (#{x 5799}#)
8414 (list 'ref (car #{x 5799}#)))
8416 (if (eq? (car #{e 5794}#) 'ref)
8417 (car #{actuals 5797}#)
8419 (lambda (#{x 5800}#)
8420 (if (eq? (car #{x 5800}#) 'ref)
8421 (memq (car (cdr #{x 5800}#)) #{formals 5796}#)
8425 (cons (list 'primitive (car #{e 5794}#))
8426 (map (let ((#{r 5802}#
8430 (lambda (#{x 5803}#)
8431 (cdr (assq (car (cdr #{x 5803}#))
8435 (cons (list 'lambda #{formals 5796}# #{e 5794}#)
8436 #{actuals 5797}#)))))))
8438 (lambda (#{x 5805}#)
8439 (let ((#{atom-key 5806}# (car #{x 5805}#)))
8440 (if (eqv? #{atom-key 5806}# 'ref)
8441 (let ((#{name 5816}# (car (cdr #{x 5805}#)))
8442 (#{var 5817}# (car (cdr #{x 5805}#))))
8443 (make-struct/no-tail
8444 (vector-ref %expanded-vtables 3)
8448 (if (eqv? #{atom-key 5806}# 'primitive)
8449 (let ((#{name 5829}# (car (cdr #{x 5805}#))))
8450 (if (equal? (module-name (current-module)) '(guile))
8451 (make-struct/no-tail
8452 (vector-ref %expanded-vtables 7)
8455 (make-struct/no-tail
8456 (vector-ref %expanded-vtables 5)
8461 (if (eqv? #{atom-key 5806}# 'quote)
8462 (let ((#{exp 5847}# (car (cdr #{x 5805}#))))
8463 (make-struct/no-tail
8464 (vector-ref %expanded-vtables 1)
8467 (if (eqv? #{atom-key 5806}# 'lambda)
8468 (if (list? (car (cdr #{x 5805}#)))
8469 (let ((#{req 5858}# (car (cdr #{x 5805}#)))
8470 (#{vars 5860}# (car (cdr #{x 5805}#)))
8473 (car (cdr (cdr #{x 5805}#))))))
8474 (let ((#{body 5867}#
8475 (make-struct/no-tail
8476 (vector-ref %expanded-vtables 14)
8486 (make-struct/no-tail
8487 (vector-ref %expanded-vtables 13)
8491 (error "how did we get here" #{x 5805}#))
8492 (let ((#{fun-exp 5883}#
8493 (let ((#{name 5892}# (car #{x 5805}#)))
8495 (module-name (current-module))
8497 (make-struct/no-tail
8498 (vector-ref %expanded-vtables 7)
8501 (make-struct/no-tail
8502 (vector-ref %expanded-vtables 5)
8508 (map #{regen 5301}# (cdr #{x 5805}#))))
8509 (make-struct/no-tail
8510 (vector-ref %expanded-vtables 11)
8513 #{arg-exps 5884}#))))))))))
8522 (if (if (pair? #{e 5302}#) #{s 5305}# #f)
8523 (set-source-properties! #{e 5302}# #{s 5305}#))
8527 (let ((#{tmp 5309}# ($sc-dispatch #{e 5307}# '(_ any))))
8530 (lambda (#{x 5334}#)
8533 (#{gen-syntax 5294}#
8540 (lambda (#{e 5388}# #{maps 5389}#)
8541 (#{regen 5301}# #{e 5388}#))))
8547 (#{global-extend 4299}#
8556 ($sc-dispatch #{e 6087}# '(_ any any . each-any))))
8559 (lambda (#{args 6097}# #{e1 6098}# #{e2 6099}#)
8562 (#{lambda-formals 4342}# #{args 6097}#))
8563 (lambda (#{req 6102}#
8569 (lambda (#{body 6109}# #{meta 6110}#)
8573 '(any any . each-any))))
8574 (if (if #{tmp 6112}#
8576 (lambda (#{docstring 6116}#
8580 (syntax->datum #{docstring 6116}#)))
8584 (lambda (#{docstring 6119}#
8588 (cons #{e1 6120}# #{e2 6121}#)
8591 (list (cons 'documentation
8593 #{docstring 6119}#))))))
8598 '(#(vector #(each (any . any)))
8609 (cons #{e1 6128}# #{e2 6129}#)
8617 (#{expand-simple-lambda 4343}#
8626 #{body 6109}#))))))))
8627 (#{lp 6106}# (cons #{e1 6098}# #{e2 6099}#) '())))))
8633 (#{global-extend 4299}#
8642 ($sc-dispatch #{e 6421}# '(_ any any . each-any))))
8645 (lambda (#{args 6431}# #{e1 6432}# #{e2 6433}#)
8648 (#{expand-lambda-case 4345}#
8654 #{lambda*-formals 4344}#
8655 (list (cons #{args 6431}#
8656 (cons #{e1 6432}# #{e2 6433}#)))))
8657 (lambda (#{meta 6436}# #{lcase 6437}#)
8658 (make-struct/no-tail
8659 (vector-ref %expanded-vtables 13)
8668 (#{global-extend 4299}#
8679 '(_ (any any . each-any)
8681 #(each (any any . each-any))))))
8684 (lambda (#{args 6621}#
8692 (#{expand-lambda-case 4345}#
8698 #{lambda-formals 4342}#
8699 (cons (cons #{args 6621}#
8700 (cons #{e1 6622}# #{e2 6623}#))
8701 (map (lambda (#{tmp 3262 6629}#
8704 (cons #{tmp 3260 6631}#
8705 (cons #{tmp 3261 6630}#
8706 #{tmp 3262 6629}#)))
8710 (lambda (#{meta 6632}# #{lcase 6633}#)
8711 (make-struct/no-tail
8712 (vector-ref %expanded-vtables 13)
8721 (#{global-extend 4299}#
8732 '(_ (any any . each-any)
8734 #(each (any any . each-any))))))
8737 (lambda (#{args 6806}#
8745 (#{expand-lambda-case 4345}#
8751 #{lambda*-formals 4344}#
8752 (cons (cons #{args 6806}#
8753 (cons #{e1 6807}# #{e2 6808}#))
8754 (map (lambda (#{tmp 3297 6814}#
8757 (cons #{tmp 3295 6816}#
8758 (cons #{tmp 3296 6815}#
8759 #{tmp 3297 6814}#)))
8763 (lambda (#{meta 6817}# #{lcase 6818}#)
8764 (make-struct/no-tail
8765 (vector-ref %expanded-vtables 13)
8774 (#{global-extend 4299}#
8778 ((#{expand-let 7010}#
8784 #{constructor 7164}#
8788 (if (not (#{valid-bound-ids? 4323}# #{ids 7165}#))
8791 "duplicate bound variable"
8793 (let ((#{labels 7245}#
8794 (#{gen-labels 4304}# #{ids 7165}#))
8796 (map #{gen-var 4347}# #{ids 7165}#)))
8798 (#{make-binding-wrap 4315}#
8803 (#{extend-var-env 4296}#
8807 (#{constructor 7164}#
8809 (map syntax->datum #{ids 7165}#)
8811 (map (lambda (#{x 7265}#)
8818 (#{expand-body 4337}#
8820 (#{source-wrap 4327}#
8827 #{mod 7163}#))))))))
8836 '(_ #(each (any any)) any . each-any))))
8837 (if (if #{tmp 7017}#
8839 (lambda (#{id 7021}#
8843 (and-map #{id? 4301}# #{id 7021}#))
8847 (lambda (#{id 7040}#
8851 (#{expand-let 7010}#
8860 (cons #{e1 7042}# #{e2 7043}#)))
8865 '(_ any #(each (any any)) any . each-any))))
8866 (if (if #{tmp 7073}#
8873 (if (if (symbol? #{f 7077}#)
8875 (if (if (vector? #{f 7077}#)
8876 (if (= (vector-length #{f 7077}#) 4)
8877 (eq? (vector-ref #{f 7077}# 0)
8881 (symbol? (vector-ref #{f 7077}# 1))
8883 (and-map #{id? 4301}# #{id 7078}#)
8893 (#{expand-let 7010}#
8899 #{build-named-let 4284}#
8900 (cons #{f 7123}# #{id 7124}#)
8902 (cons #{e1 7126}# #{e2 7127}#)))
8909 (if (if (pair? #{e 7011}#) #{s 7014}# #f)
8910 (set-source-properties! #{e 7011}# #{s 7014}#))
8913 #{mod 7015}#)))))))))
8914 (#{global-extend 4299}#
8925 '(_ #(each (any any)) any . each-any))))
8926 (if (if #{tmp 7720}#
8928 (lambda (#{id 7724}#
8932 (and-map #{id? 4301}# #{id 7724}#))
8936 (lambda (#{id 7743}#
8940 (if (not (#{valid-bound-ids? 4323}# #{id 7743}#))
8943 "duplicate bound variable"
8945 (let ((#{labels 7836}#
8946 (#{gen-labels 4304}# #{id 7743}#))
8948 (map #{gen-var 4347}# #{id 7743}#)))
8950 (#{make-binding-wrap 4315}#
8955 (#{extend-var-env 4296}#
8959 (#{build-letrec 4285}#
8962 (map syntax->datum #{id 7743}#)
8964 (map (lambda (#{x 7926}#)
8971 (#{expand-body 4337}#
8972 (cons #{e1 7745}# #{e2 7746}#)
8975 (if (if (pair? #{e 7714}#) #{s 7717}# #f)
8976 (set-source-properties! #{e 7714}# #{s 7717}#))
8989 (if (if (pair? #{e 7714}#) #{s 7717}# #f)
8990 (set-source-properties! #{e 7714}# #{s 7717}#))
8994 (#{global-extend 4299}#
9005 '(_ #(each (any any)) any . each-any))))
9006 (if (if #{tmp 8349}#
9008 (lambda (#{id 8353}#
9012 (and-map #{id? 4301}# #{id 8353}#))
9016 (lambda (#{id 8372}#
9020 (if (not (#{valid-bound-ids? 4323}# #{id 8372}#))
9023 "duplicate bound variable"
9025 (let ((#{labels 8465}#
9026 (#{gen-labels 4304}# #{id 8372}#))
9028 (map #{gen-var 4347}# #{id 8372}#)))
9030 (#{make-binding-wrap 4315}#
9035 (#{extend-var-env 4296}#
9039 (#{build-letrec 4285}#
9042 (map syntax->datum #{id 8372}#)
9044 (map (lambda (#{x 8555}#)
9051 (#{expand-body 4337}#
9052 (cons #{e1 8374}# #{e2 8375}#)
9055 (if (if (pair? #{e 8343}#) #{s 8346}# #f)
9056 (set-source-properties! #{e 8343}# #{s 8346}#))
9069 (if (if (pair? #{e 8343}#) #{s 8346}# #f)
9070 (set-source-properties! #{e 8343}# #{s 8346}#))
9074 (#{global-extend 4299}#
9083 ($sc-dispatch #{e 9026}# '(_ any any))))
9084 (if (if #{tmp 9032}#
9086 (lambda (#{id 9036}# #{val 9037}#)
9087 (if (symbol? #{id 9036}#)
9089 (if (if (vector? #{id 9036}#)
9090 (if (= (vector-length #{id 9036}#) 4)
9091 (eq? (vector-ref #{id 9036}# 0) 'syntax-object)
9094 (symbol? (vector-ref #{id 9036}# 1))
9099 (lambda (#{id 9064}# #{val 9065}#)
9101 (#{id-var-name 4320}# #{id 9064}# #{w 9028}#))
9103 (if (if (vector? #{id 9064}#)
9104 (if (= (vector-length #{id 9064}#) 4)
9105 (eq? (vector-ref #{id 9064}# 0) 'syntax-object)
9108 (vector-ref #{id 9064}# 3)
9111 (let ((#{t 9755}# (assq #{n 9066}# #{r 9027}#)))
9114 (if (symbol? #{n 9066}#)
9117 (if (if (not #{id-mod 9067}#)
9120 (warn "module system is booted, we should have a module"
9126 (cdr #{id-mod 9067}#))
9130 (if (variable-bound? #{v 9797}#)
9134 (if (macro? #{val 9806}#)
9145 (if #{t 9760}# #{t 9760}# '(global)))
9146 '(displaced-lexical))))))
9147 (let ((#{atom-key 9069}# (car #{b 9068}#)))
9148 (if (let ((#{t 9106}# #{atom-key 9069}#))
9149 (eqv? #{t 9106}# 'lexical))
9150 (#{build-lexical-assignment 4272}#
9152 (syntax->datum #{id 9064}#)
9159 (if (let ((#{t 9391}# #{atom-key 9069}#))
9160 (eqv? #{t 9391}# 'global))
9161 (#{build-global-assignment 4275}#
9170 (if (let ((#{t 9646}# #{atom-key 9069}#))
9171 (eqv? #{t 9646}# 'macro))
9172 (let ((#{p 9709}# (cdr #{b 9068}#)))
9173 (if (procedure-property
9175 'variable-transformer)
9177 (#{expand-macro 4336}#
9190 "not a variable transformer"
9199 (if (eqv? #{atom-key 9069}# 'displaced-lexical)
9202 "identifier out of context"
9212 (if (if (pair? #{e 9026}#) #{s 9029}# #f)
9213 (set-source-properties!
9218 #{mod 9030}#))))))))))
9223 '(_ (any . each-any) any))))
9226 (lambda (#{head 9911}# #{tail 9912}# #{val 9913}#)
9229 (#{syntax-type 4332}#
9237 (lambda (#{type 9916}#
9243 (if (eqv? #{type 9916}# 'module-ref)
9253 (cons #{head 9911}# #{tail 9912}#)
9261 (let ((#{tmp 9932}# (list #{e 9926}#)))
9263 (lambda (#{e 9934}#)
9264 (if (symbol? #{e 9934}#)
9266 (if (if (vector? #{e 9934}#)
9267 (if (= (vector-length
9277 (vector-ref #{e 9934}# 1))
9281 (lambda (#{e 9964}#)
9282 (#{build-global-assignment 4275}#
9284 (syntax->datum #{e 9964}#)
9290 "source expression failed to match any pattern"
9292 (#{build-application 4268}#
9295 (list '#(syntax-object
9301 #(type value ee ww ss modmod)
9316 #((top) (top) (top))
9317 #("i3529" "i3530" "i3531"))
9321 #((top) (top) (top) (top) (top))
9333 expand-simple-lambda
9337 eval-local-transformer
9346 expand-install-global
9372 set-ribcage-symnames!
9404 set-syntax-object-module!
9405 set-syntax-object-wrap!
9406 set-syntax-object-expression!
9407 syntax-object-module
9409 syntax-object-expression
9422 build-global-definition
9423 build-global-assignment
9424 build-global-reference
9426 build-lexical-assignment
9427 build-lexical-reference
9434 get-global-definition-hook
9435 put-global-definition-hook
9454 make-toplevel-define
9738 define-expansion-accessors
9739 define-expansion-constructors)
9741 ("i46" "i45" "i44")))
9747 (map (lambda (#{e 10265}#)
9755 (list #{val 9913}#))))))))
9762 (if (if (pair? #{e 9026}#) #{s 9029}# #f)
9763 (set-source-properties! #{e 9026}# #{s 9029}#))
9766 #{mod 9030}#))))))))
9770 (make-syntax-transformer
9773 (lambda (#{e 10379}# #{r 10380}# #{w 10381}#)
9774 (let ((#{tmp 10383}#
9775 ($sc-dispatch #{e 10379}# '(_ each-any any))))
9776 (if (if #{tmp 10383}#
9778 (lambda (#{mod 10386}# #{id 10387}#)
9779 (if (and-map #{id? 4301}# #{mod 10386}#)
9780 (if (symbol? #{id 10387}#)
9782 (if (if (vector? #{id 10387}#)
9783 (if (= (vector-length #{id 10387}#) 4)
9784 (eq? (vector-ref #{id 10387}# 0)
9788 (symbol? (vector-ref #{id 10387}# 1))
9794 (lambda (#{mod 10427}# #{id 10428}#)
9796 (syntax->datum #{id 10428}#)
9801 (cons '#(syntax-object
9811 #((top) (top) (top))
9812 #("i3578" "i3579" "i3580"))
9819 expand-simple-lambda
9823 eval-local-transformer
9832 expand-install-global
9858 set-ribcage-symnames!
9890 set-syntax-object-module!
9891 set-syntax-object-wrap!
9892 set-syntax-object-expression!
9893 syntax-object-module
9895 syntax-object-expression
9908 build-global-definition
9909 build-global-assignment
9910 build-global-reference
9912 build-lexical-assignment
9913 build-lexical-reference
9920 get-global-definition-hook
9921 put-global-definition-hook
9940 make-toplevel-define
10224 define-expansion-accessors
10225 define-expansion-constructors)
10226 ((top) (top) (top))
10227 ("i46" "i45" "i44")))
10233 "source expression failed to match any pattern"
10235 (#{global-extend 4299}#
10238 (lambda (#{e 10525}# #{r 10526}# #{w 10527}#)
10240 ((#{remodulate 10528}#
10241 (lambda (#{x 10734}# #{mod 10735}#)
10242 (if (pair? #{x 10734}#)
10243 (cons (#{remodulate 10528}#
10246 (#{remodulate 10528}#
10249 (if (if (vector? #{x 10734}#)
10250 (if (= (vector-length #{x 10734}#) 4)
10251 (eq? (vector-ref #{x 10734}# 0) 'syntax-object)
10254 (let ((#{expression 10749}#
10255 (#{remodulate 10528}#
10256 (vector-ref #{x 10734}# 1)
10258 (#{wrap 10750}# (vector-ref #{x 10734}# 2)))
10261 #{expression 10749}#
10264 (if (vector? #{x 10734}#)
10265 (let ((#{n 10758}# (vector-length #{x 10734}#)))
10266 (let ((#{v 10759}# (make-vector #{n 10758}#)))
10269 (lambda (#{i 10807}#)
10270 (if (= #{i 10807}# #{n 10758}#)
10276 (#{remodulate 10528}#
10277 (vector-ref #{x 10734}# #{i 10807}#)
10279 (#{loop 10760}# (#{1+}# #{i 10807}#)))))))
10280 (#{loop 10760}# 0))))
10282 (let ((#{tmp 10530}#
10283 ($sc-dispatch #{e 10525}# '(_ each-any any))))
10284 (if (if #{tmp 10530}#
10286 (lambda (#{mod 10534}# #{exp 10535}#)
10287 (and-map #{id? 4301}# #{mod 10534}#))
10291 (lambda (#{mod 10551}# #{exp 10552}#)
10292 (let ((#{mod 10553}#
10294 (cons '#(syntax-object
10300 #("i3634" "i3635"))
10301 #(ribcage (remodulate) ((top)) ("i3601"))
10304 #((top) (top) (top))
10305 #("i3598" "i3599" "i3600"))
10312 expand-simple-lambda
10316 eval-local-transformer
10317 expand-local-syntax
10325 expand-install-global
10326 expand-top-sequence
10331 distinct-bound-ids?
10349 set-ribcage-labels!
10351 set-ribcage-symnames!
10383 set-syntax-object-module!
10384 set-syntax-object-wrap!
10385 set-syntax-object-expression!
10386 syntax-object-module
10388 syntax-object-expression
10400 build-simple-lambda
10401 build-global-definition
10402 build-global-assignment
10403 build-global-reference
10405 build-lexical-assignment
10406 build-lexical-reference
10413 get-global-definition-hook
10414 put-global-definition-hook
10417 top-level-eval-hook
10433 make-toplevel-define
10717 define-expansion-accessors
10718 define-expansion-constructors)
10719 ((top) (top) (top))
10720 ("i46" "i45" "i44")))
10724 (#{remodulate 10528}#
10729 (#{source-annotation 4294}# #{exp 10552}#)
10734 "source expression failed to match any pattern"
10736 (#{global-extend 4299}#
10739 (lambda (#{e 10913}#
10744 (let ((#{tmp 10919}#
10745 ($sc-dispatch #{e 10913}# '(_ any any))))
10748 (lambda (#{test 10923}# #{then 10924}#)
10749 (#{build-conditional 4269}#
10761 (make-struct/no-tail
10762 (vector-ref %expanded-vtables 0)
10765 (let ((#{tmp 11164}#
10766 ($sc-dispatch #{e 10913}# '(_ any any any))))
10769 (lambda (#{test 11168}# #{then 11169}# #{else 11170}#)
10770 (#{build-conditional 4269}#
10790 "source expression failed to match any pattern"
10792 (#{global-extend 4299}#
10795 (lambda (#{e 11594}#
10800 (let ((#{tmp 11600}#
10803 '(_ #(each (any any)) any . each-any))))
10806 (lambda (#{fluid 11604}#
10810 (#{build-dynlet 4270}#
10812 (map (lambda (#{x 11693}#)
10819 (map (lambda (#{x 11768}#)
10826 (#{expand-body 4337}#
10827 (cons #{b 11606}# #{b* 11607}#)
10830 (if (if (pair? #{e 11594}#) #{s 11597}# #f)
10831 (set-source-properties! #{e 11594}# #{s 11597}#))
10841 "source expression failed to match any pattern"
10846 (make-syntax-transformer 'begin 'begin '()))
10850 (make-syntax-transformer 'define 'define '()))
10854 (make-syntax-transformer
10861 (make-syntax-transformer
10865 (#{global-extend 4299}#
10869 ((#{convert-pattern 12142}#
10870 (lambda (#{pattern 13765}# #{keys 13766}#)
10873 (lambda (#{p* 14393}# #{n 14394}# #{ids 14395}#)
10874 (if (not (pair? #{p* 14393}#))
10885 (lambda (#{y 14398}# #{ids 14399}#)
10892 (lambda (#{x 14402}# #{ids 14403}#)
10894 (cons #{x 14402}# #{y 14398}#)
10895 #{ids 14403}#))))))))
10896 (#{v-reverse 13768}#
10897 (lambda (#{x 14404}#)
10900 (lambda (#{r 14482}# #{x 14483}#)
10901 (if (not (pair? #{x 14483}#))
10902 (values #{r 14482}# #{x 14483}#)
10904 (cons (car #{x 14483}#) #{r 14482}#)
10905 (cdr #{x 14483}#))))))
10906 (#{loop 14405}# '() #{x 14404}#))))
10908 (lambda (#{p 13772}# #{n 13773}# #{ids 13774}#)
10909 (if (if (symbol? #{p 13772}#)
10911 (if (if (vector? #{p 13772}#)
10912 (if (= (vector-length #{p 13772}#) 4)
10913 (eq? (vector-ref #{p 13772}# 0)
10917 (symbol? (vector-ref #{p 13772}# 1))
10919 (if (#{bound-id-member? 4325}#
10923 (vector 'free-id #{p 13772}#)
10925 (if (if (eq? (if (if (vector? #{p 13772}#)
10926 (if (= (vector-length #{p 13772}#)
10928 (eq? (vector-ref #{p 13772}# 0)
10932 (vector-ref #{p 13772}# 1)
10934 (if (if (= (vector-length
10938 #(ribcage () () ())
10941 #((top) (top) (top))
10946 (cvt v-reverse cvt*)
10947 ((top) (top) (top))
10954 #("i3702" "i3703"))
10958 build-dispatch-call
10974 expand-simple-lambda
10978 eval-local-transformer
10979 expand-local-syntax
10987 expand-install-global
10988 expand-top-sequence
10993 distinct-bound-ids?
11011 set-ribcage-labels!
11013 set-ribcage-symnames!
11045 set-syntax-object-module!
11046 set-syntax-object-wrap!
11047 set-syntax-object-expression!
11048 syntax-object-module
11050 syntax-object-expression
11062 build-simple-lambda
11063 build-global-definition
11064 build-global-assignment
11065 build-global-reference
11067 build-lexical-assignment
11068 build-lexical-reference
11075 get-global-definition-hook
11076 put-global-definition-hook
11079 top-level-eval-hook
11095 make-toplevel-define
11379 define-expansion-accessors
11380 define-expansion-constructors)
11381 ((top) (top) (top))
11382 ("i46" "i45" "i44")))
11391 #(ribcage () () ())
11394 #((top) (top) (top))
11395 #("i3735" "i3736" "i3737"))
11397 (cvt v-reverse cvt*)
11398 ((top) (top) (top))
11399 ("i3708" "i3706" "i3704"))
11403 #("i3702" "i3703"))
11407 build-dispatch-call
11409 ((top) (top) (top) (top))
11410 ("i3698" "i3696" "i3694" "i3692"))
11417 expand-simple-lambda
11421 eval-local-transformer
11422 expand-local-syntax
11430 expand-install-global
11431 expand-top-sequence
11436 distinct-bound-ids?
11454 set-ribcage-labels!
11456 set-ribcage-symnames!
11488 set-syntax-object-module!
11489 set-syntax-object-wrap!
11490 set-syntax-object-expression!
11491 syntax-object-module
11493 syntax-object-expression
11505 build-simple-lambda
11506 build-global-definition
11507 build-global-assignment
11508 build-global-reference
11510 build-lexical-assignment
11511 build-lexical-reference
11518 get-global-definition-hook
11519 put-global-definition-hook
11522 top-level-eval-hook
11538 make-toplevel-define
11822 define-expansion-accessors
11823 define-expansion-constructors)
11824 ((top) (top) (top))
11825 ("i46" "i45" "i44")))
11827 (eq? (#{id-var-name 4320}# #{p 13772}# '(()))
11828 (#{id-var-name 4320}#
11832 #(ribcage () () ())
11835 #((top) (top) (top))
11836 #("i3735" "i3736" "i3737"))
11838 (cvt v-reverse cvt*)
11839 ((top) (top) (top))
11840 ("i3708" "i3706" "i3704"))
11844 #("i3702" "i3703"))
11848 build-dispatch-call
11850 ((top) (top) (top) (top))
11851 ("i3698" "i3696" "i3694" "i3692"))
11858 expand-simple-lambda
11862 eval-local-transformer
11863 expand-local-syntax
11871 expand-install-global
11872 expand-top-sequence
11877 distinct-bound-ids?
11895 set-ribcage-labels!
11897 set-ribcage-symnames!
11929 set-syntax-object-module!
11930 set-syntax-object-wrap!
11931 set-syntax-object-expression!
11932 syntax-object-module
11934 syntax-object-expression
11946 build-simple-lambda
11947 build-global-definition
11948 build-global-assignment
11949 build-global-reference
11951 build-lexical-assignment
11952 build-lexical-reference
11959 get-global-definition-hook
11960 put-global-definition-hook
11963 top-level-eval-hook
11979 make-toplevel-define
12263 define-expansion-accessors
12264 define-expansion-constructors)
12265 ((top) (top) (top))
12266 ("i46" "i45" "i44")))
12270 (values '_ #{ids 13774}#)
12273 (cons (cons #{p 13772}# #{n 13773}#)
12275 (let ((#{tmp 14096}#
12276 ($sc-dispatch #{p 13772}# '(any any))))
12277 (if (if #{tmp 14096}#
12279 (lambda (#{x 14100}# #{dots 14101}#)
12280 (if (if (if (vector? #{dots 14101}#)
12281 (if (= (vector-length
12290 (symbol? (vector-ref #{dots 14101}# 1))
12292 (if (eq? (if (if (vector? #{dots 14101}#)
12293 (if (= (vector-length
12302 (vector-ref #{dots 14101}# 1)
12304 (if (if (= (vector-length
12326 expand-simple-lambda
12330 eval-local-transformer
12331 expand-local-syntax
12339 expand-install-global
12340 expand-top-sequence
12345 distinct-bound-ids?
12363 set-ribcage-labels!
12365 set-ribcage-symnames!
12397 set-syntax-object-module!
12398 set-syntax-object-wrap!
12399 set-syntax-object-expression!
12400 syntax-object-module
12402 syntax-object-expression
12414 build-simple-lambda
12415 build-global-definition
12416 build-global-assignment
12417 build-global-reference
12419 build-lexical-assignment
12420 build-lexical-reference
12427 get-global-definition-hook
12428 put-global-definition-hook
12431 top-level-eval-hook
12447 make-toplevel-define
12731 define-expansion-accessors
12732 define-expansion-constructors)
12747 #(ribcage () () ())
12748 #(ribcage () () ())
12759 expand-simple-lambda
12763 eval-local-transformer
12764 expand-local-syntax
12772 expand-install-global
12773 expand-top-sequence
12778 distinct-bound-ids?
12796 set-ribcage-labels!
12798 set-ribcage-symnames!
12830 set-syntax-object-module!
12831 set-syntax-object-wrap!
12832 set-syntax-object-expression!
12833 syntax-object-module
12835 syntax-object-expression
12847 build-simple-lambda
12848 build-global-definition
12849 build-global-assignment
12850 build-global-reference
12852 build-lexical-assignment
12853 build-lexical-reference
12860 get-global-definition-hook
12861 put-global-definition-hook
12864 top-level-eval-hook
12880 make-toplevel-define
13164 define-expansion-accessors
13165 define-expansion-constructors)
13166 ((top) (top) (top))
13167 ("i46" "i45" "i44")))
13169 (eq? (#{id-var-name 4320}#
13172 (#{id-var-name 4320}#
13176 #(ribcage () () ())
13177 #(ribcage () () ())
13188 expand-simple-lambda
13192 eval-local-transformer
13193 expand-local-syntax
13201 expand-install-global
13202 expand-top-sequence
13207 distinct-bound-ids?
13225 set-ribcage-labels!
13227 set-ribcage-symnames!
13259 set-syntax-object-module!
13260 set-syntax-object-wrap!
13261 set-syntax-object-expression!
13262 syntax-object-module
13264 syntax-object-expression
13276 build-simple-lambda
13277 build-global-definition
13278 build-global-assignment
13279 build-global-reference
13281 build-lexical-assignment
13282 build-lexical-reference
13289 get-global-definition-hook
13290 put-global-definition-hook
13293 top-level-eval-hook
13309 make-toplevel-define
13593 define-expansion-accessors
13594 define-expansion-constructors)
13595 ((top) (top) (top))
13596 ("i46" "i45" "i44")))
13604 (lambda (#{x 14201}# #{dots 14202}#)
13609 (#{1+}# #{n 13773}#)
13611 (lambda (#{p 14203}# #{ids 14204}#)
13613 (if (eq? #{p 14203}# 'any)
13615 (vector 'each #{p 14203}#))
13618 (let ((#{tmp 14205}#
13619 ($sc-dispatch #{p 13772}# '(any any . any))))
13620 (if (if #{tmp 14205}#
13622 (lambda (#{x 14209}#
13625 (if (if (if (vector? #{dots 14210}#)
13626 (if (= (vector-length
13636 (vector-ref #{dots 14210}# 1))
13638 (if (eq? (if (if (vector?
13640 (if (= (vector-length
13653 (if (if (= (vector-length
13675 expand-simple-lambda
13679 eval-local-transformer
13680 expand-local-syntax
13688 expand-install-global
13689 expand-top-sequence
13694 distinct-bound-ids?
13712 set-ribcage-labels!
13714 set-ribcage-symnames!
13746 set-syntax-object-module!
13747 set-syntax-object-wrap!
13748 set-syntax-object-expression!
13749 syntax-object-module
13751 syntax-object-expression
13763 build-simple-lambda
13764 build-global-definition
13765 build-global-assignment
13766 build-global-reference
13768 build-lexical-assignment
13769 build-lexical-reference
13776 get-global-definition-hook
13777 put-global-definition-hook
13780 top-level-eval-hook
13796 make-toplevel-define
14080 define-expansion-accessors
14081 define-expansion-constructors)
14097 #(ribcage () () ())
14098 #(ribcage () () ())
14109 expand-simple-lambda
14113 eval-local-transformer
14114 expand-local-syntax
14122 expand-install-global
14123 expand-top-sequence
14128 distinct-bound-ids?
14146 set-ribcage-labels!
14148 set-ribcage-symnames!
14180 set-syntax-object-module!
14181 set-syntax-object-wrap!
14182 set-syntax-object-expression!
14183 syntax-object-module
14185 syntax-object-expression
14197 build-simple-lambda
14198 build-global-definition
14199 build-global-assignment
14200 build-global-reference
14202 build-lexical-assignment
14203 build-lexical-reference
14210 get-global-definition-hook
14211 put-global-definition-hook
14214 top-level-eval-hook
14230 make-toplevel-define
14514 define-expansion-accessors
14515 define-expansion-constructors)
14516 ((top) (top) (top))
14517 ("i46" "i45" "i44")))
14519 (eq? (#{id-var-name 4320}#
14522 (#{id-var-name 4320}#
14526 #(ribcage () () ())
14527 #(ribcage () () ())
14538 expand-simple-lambda
14542 eval-local-transformer
14543 expand-local-syntax
14551 expand-install-global
14552 expand-top-sequence
14557 distinct-bound-ids?
14575 set-ribcage-labels!
14577 set-ribcage-symnames!
14609 set-syntax-object-module!
14610 set-syntax-object-wrap!
14611 set-syntax-object-expression!
14612 syntax-object-module
14614 syntax-object-expression
14626 build-simple-lambda
14627 build-global-definition
14628 build-global-assignment
14629 build-global-reference
14631 build-lexical-assignment
14632 build-lexical-reference
14639 get-global-definition-hook
14640 put-global-definition-hook
14643 top-level-eval-hook
14659 make-toplevel-define
14943 define-expansion-accessors
14944 define-expansion-constructors)
14945 ((top) (top) (top))
14946 ("i46" "i45" "i44")))
14954 (lambda (#{x 14311}#
14963 (lambda (#{ys 14316}# #{ids 14317}#)
14968 (#{1+}# #{n 13773}#)
14970 (lambda (#{x 14318}# #{ids 14319}#)
14973 (#{v-reverse 13768}#
14975 (lambda (#{ys 14352}# #{e 14353}#)
14982 #{ids 14319}#))))))))
14984 (let ((#{tmp 14354}#
14985 ($sc-dispatch #{p 13772}# '(any . any))))
14988 (lambda (#{x 14358}# #{y 14359}#)
14995 (lambda (#{y 14360}# #{ids 14361}#)
15002 (lambda (#{x 14362}# #{ids 14363}#)
15004 (cons #{x 14362}# #{y 14360}#)
15005 #{ids 14363}#))))))
15007 (let ((#{tmp 14364}#
15008 ($sc-dispatch #{p 13772}# '())))
15011 (lambda () (values '() #{ids 13774}#))
15013 (let ((#{tmp 14368}#
15016 '#(vector each-any))))
15019 (lambda (#{x 14372}#)
15026 (lambda (#{p 14373}#
15040 #{ids 13774}#)))))))))))))))
15041 (#{cvt 13769}# #{pattern 13765}# 0 '()))))
15042 (#{build-dispatch-call 12143}#
15043 (lambda (#{pvars 14484}#
15048 (let ((#{ids 14489}# (map car #{pvars 14484}#)))
15050 (map cdr #{pvars 14484}#)
15051 (let ((#{labels 14491}#
15052 (#{gen-labels 4304}# #{ids 14489}#))
15053 (#{new-vars 14492}#
15054 (map #{gen-var 4347}# #{ids 14489}#)))
15055 (#{build-application 4268}#
15057 (if (equal? (module-name (current-module)) '(guile))
15058 (make-struct/no-tail
15059 (vector-ref %expanded-vtables 7)
15062 (make-struct/no-tail
15063 (vector-ref %expanded-vtables 5)
15068 (list (#{build-simple-lambda 4277}#
15070 (map syntax->datum #{ids 14489}#)
15076 (#{extend-env 4295}#
15078 (map (lambda (#{var 14817}# #{level 14818}#)
15080 (cons #{var 14817}#
15083 (map cdr #{pvars 14484}#))
15085 (#{make-binding-wrap 4315}#
15091 (#{gen-clause 12144}#
15092 (lambda (#{x 13126}#
15102 (#{convert-pattern 12142}#
15105 (lambda (#{p 13288}# #{pvars 13289}#)
15106 (if (not (#{distinct-bound-ids? 4324}#
15107 (map car #{pvars 13289}#)))
15110 "duplicate pattern variable"
15113 (lambda (#{x 13409}#)
15114 (not (let ((#{x 13413}# (car #{x 13409}#)))
15115 (if (if (if (vector? #{x 13413}#)
15116 (if (= (vector-length
15126 (vector-ref #{x 13413}# 1))
15128 (if (eq? (if (if (vector? #{x 13413}#)
15129 (if (= (vector-length
15138 (vector-ref #{x 13413}# 1)
15140 (if (if (= (vector-length
15162 expand-simple-lambda
15166 eval-local-transformer
15167 expand-local-syntax
15175 expand-install-global
15176 expand-top-sequence
15181 distinct-bound-ids?
15199 set-ribcage-labels!
15201 set-ribcage-symnames!
15233 set-syntax-object-module!
15234 set-syntax-object-wrap!
15235 set-syntax-object-expression!
15236 syntax-object-module
15238 syntax-object-expression
15250 build-simple-lambda
15251 build-global-definition
15252 build-global-assignment
15253 build-global-reference
15255 build-lexical-assignment
15256 build-lexical-reference
15263 get-global-definition-hook
15264 put-global-definition-hook
15267 top-level-eval-hook
15283 make-toplevel-define
15567 define-expansion-accessors
15568 define-expansion-constructors)
15584 #(ribcage () () ())
15585 #(ribcage () () ())
15596 expand-simple-lambda
15600 eval-local-transformer
15601 expand-local-syntax
15609 expand-install-global
15610 expand-top-sequence
15615 distinct-bound-ids?
15633 set-ribcage-labels!
15635 set-ribcage-symnames!
15667 set-syntax-object-module!
15668 set-syntax-object-wrap!
15669 set-syntax-object-expression!
15670 syntax-object-module
15672 syntax-object-expression
15684 build-simple-lambda
15685 build-global-definition
15686 build-global-assignment
15687 build-global-reference
15689 build-lexical-assignment
15690 build-lexical-reference
15697 get-global-definition-hook
15698 put-global-definition-hook
15701 top-level-eval-hook
15717 make-toplevel-define
16001 define-expansion-accessors
16002 define-expansion-constructors)
16003 ((top) (top) (top))
16004 ("i46" "i45" "i44")))
16006 (eq? (#{id-var-name 4320}#
16009 (#{id-var-name 4320}#
16013 #(ribcage () () ())
16014 #(ribcage () () ())
16025 expand-simple-lambda
16029 eval-local-transformer
16030 expand-local-syntax
16038 expand-install-global
16039 expand-top-sequence
16044 distinct-bound-ids?
16062 set-ribcage-labels!
16064 set-ribcage-symnames!
16096 set-syntax-object-module!
16097 set-syntax-object-wrap!
16098 set-syntax-object-expression!
16099 syntax-object-module
16101 syntax-object-expression
16113 build-simple-lambda
16114 build-global-definition
16115 build-global-assignment
16116 build-global-reference
16118 build-lexical-assignment
16119 build-lexical-reference
16126 get-global-definition-hook
16127 put-global-definition-hook
16130 top-level-eval-hook
16146 make-toplevel-define
16430 define-expansion-accessors
16431 define-expansion-constructors)
16432 ((top) (top) (top))
16433 ("i46" "i45" "i44")))
16441 "misplaced ellipsis"
16445 (string-append (symbol->string 'tmp) " "))))
16446 (#{build-application 4268}#
16448 (let ((#{req 13639}# (list 'tmp))
16449 (#{vars 13641}# (list #{y 13489}#))
16452 (make-struct/no-tail
16453 (vector-ref %expanded-vtables 3)
16457 (let ((#{test-exp 13664}#
16458 (let ((#{tmp 13673}#
16464 (lambda () #{y 13660}#)
16466 (let ((#{then-exp 13691}#
16467 (#{build-dispatch-call 12143}#
16473 (#{else-exp 13692}#
16474 (make-struct/no-tail
16480 (make-struct/no-tail
16487 #{else-exp 13692}#)))))
16488 (#{then-exp 13665}#
16489 (#{build-dispatch-call 12143}#
16495 (#{else-exp 13666}#
16496 (#{gen-syntax-case 12145}#
16502 (make-struct/no-tail
16503 (vector-ref %expanded-vtables 10)
16507 #{else-exp 13666}#)))))
16508 (let ((#{body 13648}#
16509 (make-struct/no-tail
16510 (vector-ref %expanded-vtables 14)
16520 (make-struct/no-tail
16521 (vector-ref %expanded-vtables 13)
16525 (list (if (eq? #{p 13288}# 'any)
16526 (let ((#{fun-exp 13714}#
16528 (module-name (current-module))
16530 (make-struct/no-tail
16531 (vector-ref %expanded-vtables 7)
16534 (make-struct/no-tail
16535 (vector-ref %expanded-vtables 5)
16540 (#{arg-exps 13715}# (list #{x 13126}#)))
16541 (make-struct/no-tail
16542 (vector-ref %expanded-vtables 11)
16545 #{arg-exps 13715}#))
16546 (let ((#{fun-exp 13738}#
16548 (module-name (current-module))
16550 (make-struct/no-tail
16551 (vector-ref %expanded-vtables 7)
16554 (make-struct/no-tail
16555 (vector-ref %expanded-vtables 5)
16560 (#{arg-exps 13739}#
16562 (make-struct/no-tail
16568 (make-struct/no-tail
16569 (vector-ref %expanded-vtables 11)
16572 #{arg-exps 13739}#))))))))))))
16573 (#{gen-syntax-case 12145}#
16574 (lambda (#{x 12554}#
16579 (if (null? #{clauses 12556}#)
16580 (let ((#{fun-exp 12563}#
16581 (if (equal? (module-name (current-module)) '(guile))
16582 (make-struct/no-tail
16583 (vector-ref %expanded-vtables 7)
16586 (make-struct/no-tail
16587 (vector-ref %expanded-vtables 5)
16592 (#{arg-exps 12564}#
16593 (list (make-struct/no-tail
16594 (vector-ref %expanded-vtables 1)
16597 (make-struct/no-tail
16598 (vector-ref %expanded-vtables 1)
16600 "source expression failed to match any pattern")
16602 (make-struct/no-tail
16603 (vector-ref %expanded-vtables 11)
16606 #{arg-exps 12564}#))
16607 (let ((#{tmp 12597}# (car #{clauses 12556}#)))
16608 (let ((#{tmp 12598}#
16609 ($sc-dispatch #{tmp 12597}# '(any any))))
16612 (lambda (#{pat 12600}# #{exp 12601}#)
16613 (if (if (if (symbol? #{pat 12600}#)
16615 (if (if (vector? #{pat 12600}#)
16616 (if (= (vector-length #{pat 12600}#)
16618 (eq? (vector-ref #{pat 12600}# 0)
16622 (symbol? (vector-ref #{pat 12600}# 1))
16625 (lambda (#{x 12628}#)
16626 (not (if (eq? (if (if (vector?
16628 (if (= (vector-length
16637 (vector-ref #{pat 12600}# 1)
16639 (if (if (vector? #{x 12628}#)
16640 (if (= (vector-length
16649 (vector-ref #{x 12628}# 1)
16651 (eq? (#{id-var-name 4320}#
16654 (#{id-var-name 4320}#
16658 (cons '#(syntax-object
16664 #("i3899" "i3900"))
16665 #(ribcage () () ())
16667 #(x keys clauses r mod)
16668 #((top) (top) (top) (top) (top))
16677 build-dispatch-call
16679 ((top) (top) (top) (top))
16680 ("i3698" "i3696" "i3694" "i3692"))
16687 expand-simple-lambda
16691 eval-local-transformer
16692 expand-local-syntax
16700 expand-install-global
16701 expand-top-sequence
16706 distinct-bound-ids?
16724 set-ribcage-labels!
16726 set-ribcage-symnames!
16758 set-syntax-object-module!
16759 set-syntax-object-wrap!
16760 set-syntax-object-expression!
16761 syntax-object-module
16763 syntax-object-expression
16775 build-simple-lambda
16776 build-global-definition
16777 build-global-assignment
16778 build-global-reference
16780 build-lexical-assignment
16781 build-lexical-reference
16788 get-global-definition-hook
16789 put-global-definition-hook
16792 top-level-eval-hook
16808 make-toplevel-define
17092 define-expansion-accessors
17093 define-expansion-constructors)
17094 ((top) (top) (top))
17095 ("i46" "i45" "i44")))
17099 (if (if (eq? (if (if (= (vector-length
17106 #("i3899" "i3900"))
17107 #(ribcage () () ())
17127 build-dispatch-call
17143 expand-simple-lambda
17147 eval-local-transformer
17148 expand-local-syntax
17156 expand-install-global
17157 expand-top-sequence
17162 distinct-bound-ids?
17180 set-ribcage-labels!
17182 set-ribcage-symnames!
17214 set-syntax-object-module!
17215 set-syntax-object-wrap!
17216 set-syntax-object-expression!
17217 syntax-object-module
17219 syntax-object-expression
17231 build-simple-lambda
17232 build-global-definition
17233 build-global-assignment
17234 build-global-reference
17236 build-lexical-assignment
17237 build-lexical-reference
17244 get-global-definition-hook
17245 put-global-definition-hook
17248 top-level-eval-hook
17264 make-toplevel-define
17548 define-expansion-accessors
17549 define-expansion-constructors)
17550 ((top) (top) (top))
17565 #("i3899" "i3900"))
17566 #(ribcage () () ())
17568 #(x keys clauses r mod)
17582 build-dispatch-call
17584 ((top) (top) (top) (top))
17595 expand-simple-lambda
17599 eval-local-transformer
17600 expand-local-syntax
17608 expand-install-global
17609 expand-top-sequence
17614 distinct-bound-ids?
17632 set-ribcage-labels!
17634 set-ribcage-symnames!
17666 set-syntax-object-module!
17667 set-syntax-object-wrap!
17668 set-syntax-object-expression!
17669 syntax-object-module
17671 syntax-object-expression
17683 build-simple-lambda
17684 build-global-definition
17685 build-global-assignment
17686 build-global-reference
17688 build-lexical-assignment
17689 build-lexical-reference
17696 get-global-definition-hook
17697 put-global-definition-hook
17700 top-level-eval-hook
17716 make-toplevel-define
18000 define-expansion-accessors
18001 define-expansion-constructors)
18002 ((top) (top) (top))
18003 ("i46" "i45" "i44")))
18005 (if (if (= (vector-length
18012 #("i3899" "i3900"))
18013 #(ribcage () () ())
18033 build-dispatch-call
18049 expand-simple-lambda
18053 eval-local-transformer
18054 expand-local-syntax
18062 expand-install-global
18063 expand-top-sequence
18068 distinct-bound-ids?
18086 set-ribcage-labels!
18088 set-ribcage-symnames!
18120 set-syntax-object-module!
18121 set-syntax-object-wrap!
18122 set-syntax-object-expression!
18123 syntax-object-module
18125 syntax-object-expression
18137 build-simple-lambda
18138 build-global-definition
18139 build-global-assignment
18140 build-global-reference
18142 build-lexical-assignment
18143 build-lexical-reference
18150 get-global-definition-hook
18151 put-global-definition-hook
18154 top-level-eval-hook
18170 make-toplevel-define
18454 define-expansion-accessors
18455 define-expansion-constructors)
18456 ((top) (top) (top))
18471 #("i3899" "i3900"))
18472 #(ribcage () () ())
18474 #(x keys clauses r mod)
18488 build-dispatch-call
18490 ((top) (top) (top) (top))
18501 expand-simple-lambda
18505 eval-local-transformer
18506 expand-local-syntax
18514 expand-install-global
18515 expand-top-sequence
18520 distinct-bound-ids?
18538 set-ribcage-labels!
18540 set-ribcage-symnames!
18572 set-syntax-object-module!
18573 set-syntax-object-wrap!
18574 set-syntax-object-expression!
18575 syntax-object-module
18577 syntax-object-expression
18589 build-simple-lambda
18590 build-global-definition
18591 build-global-assignment
18592 build-global-reference
18594 build-lexical-assignment
18595 build-lexical-reference
18602 get-global-definition-hook
18603 put-global-definition-hook
18606 top-level-eval-hook
18622 make-toplevel-define
18906 define-expansion-accessors
18907 define-expansion-constructors)
18908 ((top) (top) (top))
18909 ("i46" "i45" "i44")))
18911 (eq? (#{id-var-name 4320}#
18918 #("i3899" "i3900"))
18919 #(ribcage () () ())
18921 #(x keys clauses r mod)
18922 #((top) (top) (top) (top) (top))
18931 build-dispatch-call
18933 ((top) (top) (top) (top))
18944 expand-simple-lambda
18948 eval-local-transformer
18949 expand-local-syntax
18957 expand-install-global
18958 expand-top-sequence
18963 distinct-bound-ids?
18981 set-ribcage-labels!
18983 set-ribcage-symnames!
19015 set-syntax-object-module!
19016 set-syntax-object-wrap!
19017 set-syntax-object-expression!
19018 syntax-object-module
19020 syntax-object-expression
19032 build-simple-lambda
19033 build-global-definition
19034 build-global-assignment
19035 build-global-reference
19037 build-lexical-assignment
19038 build-lexical-reference
19045 get-global-definition-hook
19046 put-global-definition-hook
19049 top-level-eval-hook
19065 make-toplevel-define
19349 define-expansion-accessors
19350 define-expansion-constructors)
19351 ((top) (top) (top))
19352 ("i46" "i45" "i44")))
19355 (#{id-var-name 4320}#
19362 #("i3899" "i3900"))
19363 #(ribcage () () ())
19365 #(x keys clauses r mod)
19366 #((top) (top) (top) (top) (top))
19375 build-dispatch-call
19377 ((top) (top) (top) (top))
19388 expand-simple-lambda
19392 eval-local-transformer
19393 expand-local-syntax
19401 expand-install-global
19402 expand-top-sequence
19407 distinct-bound-ids?
19425 set-ribcage-labels!
19427 set-ribcage-symnames!
19459 set-syntax-object-module!
19460 set-syntax-object-wrap!
19461 set-syntax-object-expression!
19462 syntax-object-module
19464 syntax-object-expression
19476 build-simple-lambda
19477 build-global-definition
19478 build-global-assignment
19479 build-global-reference
19481 build-lexical-assignment
19482 build-lexical-reference
19489 get-global-definition-hook
19490 put-global-definition-hook
19493 top-level-eval-hook
19509 make-toplevel-define
19793 define-expansion-accessors
19794 define-expansion-constructors)
19795 ((top) (top) (top))
19796 ("i46" "i45" "i44")))
19805 (let ((#{labels 12809}#
19806 (list (symbol->string (gensym "i"))))
19808 (let ((#{id 12848}#
19809 (if (if (vector? #{pat 12600}#)
19810 (if (= (vector-length
19819 (vector-ref #{pat 12600}# 1)
19823 (symbol->string #{id 12848}#)
19825 (#{build-application 4268}#
19827 (#{build-simple-lambda 4277}#
19829 (list (syntax->datum #{pat 12600}#))
19831 (list #{var 12810}#)
19835 (#{extend-env 4295}#
19837 (list (cons 'syntax
19838 (cons #{var 12810}# 0)))
19840 (#{make-binding-wrap 4315}#
19841 (list #{pat 12600}#)
19845 (list #{x 12554}#))))
19846 (#{gen-clause 12144}#
19849 (cdr #{clauses 12556}#)
19856 (let ((#{tmp 13118}#
19857 ($sc-dispatch #{tmp 12597}# '(any any any))))
19860 (lambda (#{pat 13120}#
19863 (#{gen-clause 12144}#
19866 (cdr #{clauses 12556}#)
19876 (car #{clauses 12556}#)))))))))))
19877 (lambda (#{e 12146}#
19885 (if (if (pair? #{e 12146}#) #{s 12149}# #f)
19886 (set-source-properties! #{e 12146}# #{s 12149}#))
19890 (let ((#{tmp 12153}#
19893 '(_ any each-any . each-any))))
19896 (lambda (#{val 12178}# #{key 12179}# #{m 12180}#)
19898 (lambda (#{x 12181}#)
19899 (if (if (symbol? #{x 12181}#)
19901 (if (if (vector? #{x 12181}#)
19902 (if (= (vector-length #{x 12181}#) 4)
19903 (eq? (vector-ref #{x 12181}# 0)
19907 (symbol? (vector-ref #{x 12181}# 1))
19909 (not (if (if (if (vector? #{x 12181}#)
19910 (if (= (vector-length #{x 12181}#)
19912 (eq? (vector-ref #{x 12181}# 0)
19916 (symbol? (vector-ref #{x 12181}# 1))
19918 (if (eq? (if (if (vector? #{x 12181}#)
19919 (if (= (vector-length
19928 (vector-ref #{x 12181}# 1)
19930 (if (if (= (vector-length
19952 expand-simple-lambda
19956 eval-local-transformer
19957 expand-local-syntax
19965 expand-install-global
19966 expand-top-sequence
19971 distinct-bound-ids?
19989 set-ribcage-labels!
19991 set-ribcage-symnames!
20023 set-syntax-object-module!
20024 set-syntax-object-wrap!
20025 set-syntax-object-expression!
20026 syntax-object-module
20028 syntax-object-expression
20040 build-simple-lambda
20041 build-global-definition
20042 build-global-assignment
20043 build-global-reference
20045 build-lexical-assignment
20046 build-lexical-reference
20053 get-global-definition-hook
20054 put-global-definition-hook
20057 top-level-eval-hook
20073 make-toplevel-define
20357 define-expansion-accessors
20358 define-expansion-constructors)
20373 #(ribcage () () ())
20374 #(ribcage () () ())
20385 expand-simple-lambda
20389 eval-local-transformer
20390 expand-local-syntax
20398 expand-install-global
20399 expand-top-sequence
20404 distinct-bound-ids?
20422 set-ribcage-labels!
20424 set-ribcage-symnames!
20456 set-syntax-object-module!
20457 set-syntax-object-wrap!
20458 set-syntax-object-expression!
20459 syntax-object-module
20461 syntax-object-expression
20473 build-simple-lambda
20474 build-global-definition
20475 build-global-assignment
20476 build-global-reference
20478 build-lexical-assignment
20479 build-lexical-reference
20486 get-global-definition-hook
20487 put-global-definition-hook
20490 top-level-eval-hook
20506 make-toplevel-define
20790 define-expansion-accessors
20791 define-expansion-constructors)
20792 ((top) (top) (top))
20793 ("i46" "i45" "i44")))
20795 (eq? (#{id-var-name 4320}#
20798 (#{id-var-name 4320}#
20802 #(ribcage () () ())
20803 #(ribcage () () ())
20814 expand-simple-lambda
20818 eval-local-transformer
20819 expand-local-syntax
20827 expand-install-global
20828 expand-top-sequence
20833 distinct-bound-ids?
20851 set-ribcage-labels!
20853 set-ribcage-symnames!
20885 set-syntax-object-module!
20886 set-syntax-object-wrap!
20887 set-syntax-object-expression!
20888 syntax-object-module
20890 syntax-object-expression
20902 build-simple-lambda
20903 build-global-definition
20904 build-global-assignment
20905 build-global-reference
20907 build-lexical-assignment
20908 build-lexical-reference
20915 get-global-definition-hook
20916 put-global-definition-hook
20919 top-level-eval-hook
20935 make-toplevel-define
21219 define-expansion-accessors
21220 define-expansion-constructors)
21221 ((top) (top) (top))
21222 ("i46" "i45" "i44")))
21231 (string-append (symbol->string 'tmp) " "))))
21232 (#{build-application 4268}#
21234 (let ((#{req 12442}# (list 'tmp))
21235 (#{vars 12444}# (list #{x 12307}#))
21237 (#{gen-syntax-case 12145}#
21238 (make-struct/no-tail
21239 (vector-ref %expanded-vtables 3)
21247 (let ((#{body 12451}#
21248 (make-struct/no-tail
21249 (vector-ref %expanded-vtables 14)
21259 (make-struct/no-tail
21260 (vector-ref %expanded-vtables 13)
21264 (list (#{expand 4333}#
21271 "invalid literals list"
21276 "source expression failed to match any pattern"
21283 (#{esew 14911}# '(eval)))
21284 (#{expand-top-sequence 4329}#
21291 (cons 'hygiene (module-name (current-module))))))
21293 (lambda (#{x 14914}#)
21294 (if (if (vector? #{x 14914}#)
21295 (if (= (vector-length #{x 14914}#) 4)
21296 (eq? (vector-ref #{x 14914}# 0) 'syntax-object)
21299 (symbol? (vector-ref #{x 14914}# 1))
21301 (set! datum->syntax
21302 (lambda (#{id 14939}# #{datum 14940}#)
21303 (let ((#{wrap 14945}# (vector-ref #{id 14939}# 2))
21304 (#{module 14946}# (vector-ref #{id 14939}# 3)))
21309 #{module 14946}#))))
21310 (set! syntax->datum
21311 (lambda (#{x 14953}#)
21312 (#{strip 4346}# #{x 14953}# '(()))))
21313 (set! syntax-source
21314 (lambda (#{x 14956}#)
21315 (#{source-annotation 4294}# #{x 14956}#)))
21316 (set! generate-temporaries
21317 (lambda (#{ls 15128}#)
21319 (if (not (list? #{ls 15128}#))
21321 'generate-temporaries
21324 (let ((#{mod 15136}#
21325 (cons 'hygiene (module-name (current-module)))))
21326 (map (lambda (#{x 15137}#)
21327 (#{wrap 4326}# (gensym) '((top)) #{mod 15136}#))
21329 (set! free-identifier=?
21330 (lambda (#{x 15141}# #{y 15142}#)
21332 (if (not (if (if (vector? #{x 15141}#)
21333 (if (= (vector-length #{x 15141}#) 4)
21334 (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
21337 (symbol? (vector-ref #{x 15141}# 1))
21343 (if (not (if (if (vector? #{y 15142}#)
21344 (if (= (vector-length #{y 15142}#) 4)
21345 (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
21348 (symbol? (vector-ref #{y 15142}# 1))
21354 (if (eq? (if (if (vector? #{x 15141}#)
21355 (if (= (vector-length #{x 15141}#) 4)
21356 (eq? (vector-ref #{x 15141}# 0) 'syntax-object)
21359 (vector-ref #{x 15141}# 1)
21361 (if (if (vector? #{y 15142}#)
21362 (if (= (vector-length #{y 15142}#) 4)
21363 (eq? (vector-ref #{y 15142}# 0) 'syntax-object)
21366 (vector-ref #{y 15142}# 1)
21368 (eq? (#{id-var-name 4320}# #{x 15141}# '(()))
21369 (#{id-var-name 4320}# #{y 15142}# '(())))
21371 (set! bound-identifier=?
21372 (lambda (#{x 15292}# #{y 15293}#)
21374 (if (not (if (if (vector? #{x 15292}#)
21375 (if (= (vector-length #{x 15292}#) 4)
21376 (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
21379 (symbol? (vector-ref #{x 15292}# 1))
21382 'bound-identifier=?
21385 (if (not (if (if (vector? #{y 15293}#)
21386 (if (= (vector-length #{y 15293}#) 4)
21387 (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
21390 (symbol? (vector-ref #{y 15293}# 1))
21393 'bound-identifier=?
21396 (if (if (if (vector? #{x 15292}#)
21397 (if (= (vector-length #{x 15292}#) 4)
21398 (eq? (vector-ref #{x 15292}# 0) 'syntax-object)
21401 (if (vector? #{y 15293}#)
21402 (if (= (vector-length #{y 15293}#) 4)
21403 (eq? (vector-ref #{y 15293}# 0) 'syntax-object)
21407 (if (eq? (vector-ref #{x 15292}# 1)
21408 (vector-ref #{y 15293}# 1))
21409 (#{same-marks? 4319}#
21410 (car (vector-ref #{x 15292}# 2))
21411 (car (vector-ref #{y 15293}# 2)))
21413 (eq? #{x 15292}# #{y 15293}#)))))
21414 (set! syntax-violation
21420 (#{subform 15429}# #f))
21422 (if (not (if (not #{who 15426}#)
21423 (not #{who 15426}#)
21424 (let ((#{t 15447}# (string? #{who 15426}#)))
21427 (symbol? #{who 15426}#)))))
21432 (if (not (string? #{message 15427}#))
21436 #{message 15427}#))
21437 (throw 'syntax-error
21440 (#{source-annotation 4294}#
21443 #{subform 15429}#))
21444 (#{strip 4346}# #{form 15428}# '(()))
21445 (if #{subform 15429}#
21446 (#{strip 4346}# #{subform 15429}# '(()))
21449 ((#{match-each 15670}#
21450 (lambda (#{e 16293}#
21454 (if (pair? #{e 16293}#)
21455 (let ((#{first 16297}#
21462 (if #{first 16297}#
21463 (let ((#{rest 16300}#
21464 (#{match-each 15670}#
21470 (cons #{first 16297}# #{rest 16300}#)
21473 (if (null? #{e 16293}#)
21475 (if (if (vector? #{e 16293}#)
21476 (if (= (vector-length #{e 16293}#) 4)
21477 (eq? (vector-ref #{e 16293}# 0) 'syntax-object)
21480 (#{match-each 15670}#
21481 (vector-ref #{e 16293}# 1)
21483 (#{join-wraps 4317}#
21485 (vector-ref #{e 16293}# 2))
21486 (vector-ref #{e 16293}# 3))
21488 (#{match-each-any 15672}#
21489 (lambda (#{e 16328}# #{w 16329}# #{mod 16330}#)
21490 (if (pair? #{e 16328}#)
21492 (#{match-each-any 15672}#
21497 (cons (#{wrap 4326}#
21503 (if (null? #{e 16328}#)
21505 (if (if (vector? #{e 16328}#)
21506 (if (= (vector-length #{e 16328}#) 4)
21507 (eq? (vector-ref #{e 16328}# 0) 'syntax-object)
21510 (#{match-each-any 15672}#
21511 (vector-ref #{e 16328}# 1)
21512 (#{join-wraps 4317}#
21514 (vector-ref #{e 16328}# 2))
21517 (#{match-empty 15673}#
21518 (lambda (#{p 16355}# #{r 16356}#)
21519 (if (null? #{p 16355}#)
21521 (if (eq? #{p 16355}# '_)
21523 (if (eq? #{p 16355}# 'any)
21524 (cons '() #{r 16356}#)
21525 (if (pair? #{p 16355}#)
21526 (#{match-empty 15673}#
21528 (#{match-empty 15673}#
21531 (if (eq? #{p 16355}# 'each-any)
21532 (cons '() #{r 16356}#)
21533 (let ((#{atom-key 16357}# (vector-ref #{p 16355}# 0)))
21534 (if (eqv? #{atom-key 16357}# 'each)
21535 (#{match-empty 15673}#
21536 (vector-ref #{p 16355}# 1)
21538 (if (eqv? #{atom-key 16357}# 'each+)
21539 (#{match-empty 15673}#
21540 (vector-ref #{p 16355}# 1)
21541 (#{match-empty 15673}#
21542 (reverse (vector-ref #{p 16355}# 2))
21543 (#{match-empty 15673}#
21544 (vector-ref #{p 16355}# 3)
21546 (if (if (eqv? #{atom-key 16357}# 'free-id)
21548 (eqv? #{atom-key 16357}# 'atom))
21550 (if (eqv? #{atom-key 16357}# 'vector)
21551 (#{match-empty 15673}#
21552 (vector-ref #{p 16355}# 1)
21553 #{r 16356}#)))))))))))))
21555 (lambda (#{r* 16376}# #{r 16377}#)
21556 (if (null? (car #{r* 16376}#))
21558 (cons (map car #{r* 16376}#)
21560 (map cdr #{r* 16376}#)
21563 (lambda (#{e 15705}#
21568 (if (null? #{p 15706}#)
21569 (if (null? #{e 15705}#) #{r 15708}# #f)
21570 (if (pair? #{p 15706}#)
21571 (if (pair? #{e 15705}#)
21584 (if (eq? #{p 15706}# 'each-any)
21586 (#{match-each-any 15672}#
21591 (cons #{l 15714}# #{r 15708}#)
21593 (let ((#{atom-key 15719}# (vector-ref #{p 15706}# 0)))
21594 (if (eqv? #{atom-key 15719}# 'each)
21595 (if (null? #{e 15705}#)
21596 (#{match-empty 15673}#
21597 (vector-ref #{p 15706}# 1)
21600 (#{match-each 15670}#
21602 (vector-ref #{p 15706}# 1)
21607 ((#{collect 15729}#
21608 (lambda (#{l 15782}#)
21609 (if (null? (car #{l 15782}#))
21611 (cons (map car #{l 15782}#)
21613 (map cdr #{l 15782}#)))))))
21614 (#{collect 15729}# #{l 15726}#))
21616 (if (eqv? #{atom-key 15719}# 'each+)
21619 (let ((#{x-pat 15791}# (vector-ref #{p 15706}# 1))
21620 (#{y-pat 15792}# (vector-ref #{p 15706}# 2))
21621 (#{z-pat 15793}# (vector-ref #{p 15706}# 3)))
21624 (lambda (#{e 15799}# #{w 15800}#)
21625 (if (pair? #{e 15799}#)
21631 (lambda (#{xr* 15801}#
21635 (if (null? #{y-pat 15802}#)
21636 (let ((#{xr 15804}#
21649 (values #f #f #f)))
21652 (cdr #{y-pat 15802}#)
21655 (car #{y-pat 15802}#)
21659 (values #f #f #f))))
21660 (if (if (vector? #{e 15799}#)
21661 (if (= (vector-length #{e 15799}#)
21663 (eq? (vector-ref #{e 15799}# 0)
21668 (vector-ref #{e 15799}# 1)
21669 (#{join-wraps 4317}#
21680 #{mod 15709}#)))))))
21681 (#{f 15797}# #{e 15705}# #{w 15707}#))))
21682 (lambda (#{xr* 15832}# #{y-pat 15833}# #{r 15834}#)
21684 (if (null? #{y-pat 15833}#)
21685 (if (null? #{xr* 15832}#)
21686 (#{match-empty 15673}#
21687 (vector-ref #{p 15706}# 1)
21689 (#{combine 15674}# #{xr* 15832}# #{r 15834}#))
21692 (if (eqv? #{atom-key 15719}# 'free-id)
21693 (if (if (symbol? #{e 15705}#)
21695 (if (if (vector? #{e 15705}#)
21696 (if (= (vector-length #{e 15705}#) 4)
21697 (eq? (vector-ref #{e 15705}# 0)
21701 (symbol? (vector-ref #{e 15705}# 1))
21703 (if (let ((#{i 16197}#
21708 (#{j 16198}# (vector-ref #{p 15706}# 1)))
21709 (if (eq? (if (if (vector? #{i 16197}#)
21710 (if (= (vector-length
21719 (vector-ref #{i 16197}# 1)
21721 (if (if (vector? #{j 16198}#)
21722 (if (= (vector-length
21731 (vector-ref #{j 16198}# 1)
21733 (eq? (#{id-var-name 4320}#
21736 (#{id-var-name 4320}#
21743 (if (eqv? #{atom-key 15719}# 'atom)
21745 (vector-ref #{p 15706}# 1)
21746 (#{strip 4346}# #{e 15705}# #{w 15707}#))
21749 (if (eqv? #{atom-key 15719}# 'vector)
21750 (if (vector? #{e 15705}#)
21752 (vector->list #{e 15705}#)
21753 (vector-ref #{p 15706}# 1)
21759 (lambda (#{e 16258}#
21764 (if (not #{r 16261}#)
21766 (if (eq? #{p 16259}# '_)
21768 (if (eq? #{p 16259}# 'any)
21769 (cons (#{wrap 4326}#
21774 (if (if (vector? #{e 16258}#)
21775 (if (= (vector-length #{e 16258}#) 4)
21776 (eq? (vector-ref #{e 16258}# 0) 'syntax-object)
21780 (vector-ref #{e 16258}# 1)
21782 (#{join-wraps 4317}#
21784 (vector-ref #{e 16258}# 2))
21786 (vector-ref #{e 16258}# 3))
21792 #{mod 16262}#))))))))
21794 (lambda (#{e 15677}# #{p 15678}#)
21795 (if (eq? #{p 15678}# 'any)
21797 (if (eq? #{p 15678}# '_)
21799 (if (if (vector? #{e 15677}#)
21800 (if (= (vector-length #{e 15677}#) 4)
21801 (eq? (vector-ref #{e 15677}# 0) 'syntax-object)
21805 (vector-ref #{e 15677}# 1)
21807 (vector-ref #{e 15677}# 2)
21809 (vector-ref #{e 15677}# 3))
21817 (define with-syntax
21818 (make-syntax-transformer
21821 (lambda (#{x 28920}#)
21822 (let ((#{tmp 28922}#
21823 ($sc-dispatch #{x 28920}# '(_ () any . each-any))))
21826 (lambda (#{e1 28926}# #{e2 28927}#)
21827 (cons '#(syntax-object
21833 #("i28893" "i28894"))
21834 #(ribcage () () ())
21835 #(ribcage #(x) #((top)) #("i28890")))
21837 (cons '() (cons #{e1 28926}# #{e2 28927}#))))
21839 (let ((#{tmp 28928}#
21842 '(_ ((any any)) any . each-any))))
21845 (lambda (#{out 28932}#
21849 (list '#(syntax-object
21854 #((top) (top) (top) (top))
21855 #("i28899" "i28900" "i28901" "i28902"))
21856 #(ribcage () () ())
21857 #(ribcage #(x) #((top)) #("i28890")))
21861 (list #{out 28932}#
21862 (cons '#(syntax-object
21867 #((top) (top) (top) (top))
21872 #(ribcage () () ())
21873 #(ribcage #(x) #((top)) #("i28890")))
21876 (cons #{e1 28934}# #{e2 28935}#))))))
21878 (let ((#{tmp 28936}#
21881 '(_ #(each (any any)) any . each-any))))
21884 (lambda (#{out 28940}#
21888 (list '#(syntax-object
21893 #((top) (top) (top) (top))
21894 #("i28909" "i28910" "i28911" "i28912"))
21895 #(ribcage () () ())
21896 #(ribcage #(x) #((top)) #("i28890")))
21898 (cons '#(syntax-object
21903 #((top) (top) (top) (top))
21904 #("i28909" "i28910" "i28911" "i28912"))
21905 #(ribcage () () ())
21906 #(ribcage #(x) #((top)) #("i28890")))
21910 (list #{out 28940}#
21911 (cons '#(syntax-object
21916 #((top) (top) (top) (top))
21921 #(ribcage () () ())
21933 "source expression failed to match any pattern"
21934 #{x 28920}#))))))))))
21936 (define syntax-rules
21937 (make-syntax-transformer
21940 (lambda (#{x 28997}#)
21941 (let ((#{tmp 28999}#
21944 '(_ each-any . #(each ((any . any) any))))))
21947 (lambda (#{k 29003}#
21950 #{template 29006}#)
21951 (list '#(syntax-object
21955 #(k keyword pattern template)
21956 #((top) (top) (top) (top))
21957 #("i28960" "i28961" "i28962" "i28963"))
21958 #(ribcage () () ())
21959 #(ribcage #(x) #((top)) #("i28957")))
21965 #(k keyword pattern template)
21966 #((top) (top) (top) (top))
21967 #("i28960" "i28961" "i28962" "i28963"))
21968 #(ribcage () () ())
21969 #(ribcage #(x) #((top)) #("i28957")))
21976 #(k keyword pattern template)
21977 #((top) (top) (top) (top))
21978 #("i28960" "i28961" "i28962" "i28963"))
21979 #(ribcage () () ())
21980 #(ribcage #(x) #((top)) #("i28957")))
21987 #(k keyword pattern template)
21988 #((top) (top) (top) (top))
21989 #("i28960" "i28961" "i28962" "i28963"))
21990 #(ribcage () () ())
21991 #(ribcage #(x) #((top)) #("i28957")))
21993 (cons '#(syntax-object
21997 #(k keyword pattern template)
21998 #((top) (top) (top) (top))
21999 #("i28960" "i28961" "i28962" "i28963"))
22000 #(ribcage () () ())
22001 #(ribcage #(x) #((top)) #("i28957")))
22003 #{pattern 29005}#))
22004 (cons '#(syntax-object
22008 #(k keyword pattern template)
22009 #((top) (top) (top) (top))
22010 #("i28960" "i28961" "i28962" "i28963"))
22011 #(ribcage () () ())
22012 #(ribcage #(x) #((top)) #("i28957")))
22014 (cons '#(syntax-object
22018 #(k keyword pattern template)
22019 #((top) (top) (top) (top))
22020 #("i28960" "i28961" "i28962" "i28963"))
22021 #(ribcage () () ())
22022 #(ribcage #(x) #((top)) #("i28957")))
22025 (map (lambda (#{tmp 28971 29007}#
22026 #{tmp 28970 29008}#)
22027 (list (cons '#(syntax-object
22052 #{tmp 28970 29008}#)
22053 (list '#(syntax-object
22078 #{tmp 28971 29007}#)))
22080 #{pattern 29005}#))))))
22082 (let ((#{tmp 29009}#
22085 '(_ each-any any . #(each ((any . any) any))))))
22086 (if (if #{tmp 29009}#
22088 (lambda (#{k 29013}#
22089 #{docstring 29014}#
22092 #{template 29017}#)
22093 (string? (syntax->datum #{docstring 29014}#)))
22097 (lambda (#{k 29018}#
22098 #{docstring 29019}#
22101 #{template 29022}#)
22102 (list '#(syntax-object
22106 #(k docstring keyword pattern template)
22107 #((top) (top) (top) (top) (top))
22108 #("i28983" "i28984" "i28985" "i28986" "i28987"))
22109 #(ribcage () () ())
22110 #(ribcage #(x) #((top)) #("i28957")))
22116 #(k docstring keyword pattern template)
22117 #((top) (top) (top) (top) (top))
22118 #("i28983" "i28984" "i28985" "i28986" "i28987"))
22119 #(ribcage () () ())
22120 #(ribcage #(x) #((top)) #("i28957")))
22122 #{docstring 29019}#
22128 #(k docstring keyword pattern template)
22129 #((top) (top) (top) (top) (top))
22135 #(ribcage () () ())
22136 #(ribcage #(x) #((top)) #("i28957")))
22143 #(k docstring keyword pattern template)
22144 #((top) (top) (top) (top) (top))
22150 #(ribcage () () ())
22151 #(ribcage #(x) #((top)) #("i28957")))
22153 (cons '#(syntax-object
22157 #(k docstring keyword pattern template)
22158 #((top) (top) (top) (top) (top))
22164 #(ribcage () () ())
22165 #(ribcage #(x) #((top)) #("i28957")))
22167 #{pattern 29021}#))
22168 (cons '#(syntax-object
22172 #(k docstring keyword pattern template)
22173 #((top) (top) (top) (top) (top))
22179 #(ribcage () () ())
22180 #(ribcage #(x) #((top)) #("i28957")))
22182 (cons '#(syntax-object
22191 #((top) (top) (top) (top) (top))
22197 #(ribcage () () ())
22198 #(ribcage #(x) #((top)) #("i28957")))
22201 (map (lambda (#{tmp 28996 29023}#
22202 #{tmp 28995 29024}#)
22203 (list (cons '#(syntax-object
22232 #{tmp 28995 29024}#)
22233 (list '#(syntax-object
22262 #{tmp 28996 29023}#)))
22264 #{pattern 29021}#))))))
22268 "source expression failed to match any pattern"
22269 #{x 28997}#))))))))
22271 (define define-syntax-rule
22272 (make-syntax-transformer
22273 'define-syntax-rule
22275 (lambda (#{x 29061}#)
22276 (let ((#{tmp 29063}#
22277 ($sc-dispatch #{x 29061}# '(_ (any . any) any))))
22280 (lambda (#{name 29067}#
22282 #{template 29069}#)
22283 (list '#(syntax-object
22287 #(name pattern template)
22288 #((top) (top) (top))
22289 #("i29038" "i29039" "i29040"))
22290 #(ribcage () () ())
22291 #(ribcage #(x) #((top)) #("i29035")))
22294 (list '#(syntax-object
22298 #(name pattern template)
22299 #((top) (top) (top))
22300 #("i29038" "i29039" "i29040"))
22301 #(ribcage () () ())
22302 #(ribcage #(x) #((top)) #("i29035")))
22305 (list (cons '#(syntax-object
22309 #(name pattern template)
22310 #((top) (top) (top))
22311 #("i29038" "i29039" "i29040"))
22312 #(ribcage () () ())
22313 #(ribcage #(x) #((top)) #("i29035")))
22316 #{template 29069}#))))
22318 (let ((#{tmp 29070}#
22321 '(_ (any . any) any any))))
22322 (if (if #{tmp 29070}#
22324 (lambda (#{name 29074}#
22326 #{docstring 29076}#
22327 #{template 29077}#)
22328 (string? (syntax->datum #{docstring 29076}#)))
22332 (lambda (#{name 29078}#
22334 #{docstring 29080}#
22335 #{template 29081}#)
22336 (list '#(syntax-object
22340 #(name pattern docstring template)
22341 #((top) (top) (top) (top))
22342 #("i29053" "i29054" "i29055" "i29056"))
22343 #(ribcage () () ())
22344 #(ribcage #(x) #((top)) #("i29035")))
22347 (list '#(syntax-object
22351 #(name pattern docstring template)
22352 #((top) (top) (top) (top))
22353 #("i29053" "i29054" "i29055" "i29056"))
22354 #(ribcage () () ())
22355 #(ribcage #(x) #((top)) #("i29035")))
22358 #{docstring 29080}#
22359 (list (cons '#(syntax-object
22367 #((top) (top) (top) (top))
22372 #(ribcage () () ())
22379 #{template 29081}#))))
22383 "source expression failed to match any pattern"
22384 #{x 29061}#))))))))
22387 (make-syntax-transformer
22390 (lambda (#{x 29130}#)
22391 (let ((#{tmp 29132}#
22394 '(any #(each (any any)) any . each-any))))
22395 (if (if #{tmp 29132}#
22397 (lambda (#{let* 29136}#
22402 (and-map identifier? #{x 29137}#))
22406 (lambda (#{let* 29141}#
22413 (lambda (#{bindings 29149}#)
22414 (if (null? #{bindings 29149}#)
22415 (cons '#(syntax-object
22418 #(ribcage () () ())
22422 #("i29116" "i29117"))
22425 #((top) (top) (top) (top) (top))
22431 #(ribcage () () ())
22432 #(ribcage #(x) #((top)) #("i29092")))
22434 (cons '() (cons #{e1 29144}# #{e2 29145}#)))
22435 (let ((#{tmp 29150}#
22436 (list (#{f 29146}# (cdr #{bindings 29149}#))
22437 (car #{bindings 29149}#))))
22438 (let ((#{tmp 29151}#
22439 ($sc-dispatch #{tmp 29150}# '(any any))))
22442 (lambda (#{body 29153}# #{binding 29154}#)
22443 (list '#(syntax-object
22446 #(ribcage () () ())
22450 #("i29126" "i29127"))
22451 #(ribcage () () ())
22455 #("i29116" "i29117"))
22458 #((top) (top) (top) (top) (top))
22464 #(ribcage () () ())
22470 (list #{binding 29154}#)
22475 "source expression failed to match any pattern"
22476 #{tmp 29150}#))))))))
22477 (#{f 29146}# (map list #{x 29142}# #{v 29143}#))))
22481 "source expression failed to match any pattern"
22485 (make-syntax-transformer
22488 (lambda (#{orig-x 29212}#)
22489 (let ((#{tmp 29214}#
22492 '(_ #(each (any any . any))
22498 (lambda (#{var 29218}#
22504 (let ((#{tmp 29224}#
22505 (map (lambda (#{v 29227}# #{s 29228}#)
22506 (let ((#{tmp 29230}#
22507 ($sc-dispatch #{s 29228}# '())))
22509 (@apply (lambda () #{v 29227}#) #{tmp 29230}#)
22510 (let ((#{tmp 29233}#
22511 ($sc-dispatch #{s 29228}# '(any))))
22514 (lambda (#{e 29236}#) #{e 29236}#)
22518 "bad step expression"
22523 (let ((#{tmp 29225}#
22524 ($sc-dispatch #{tmp 29224}# 'each-any)))
22527 (lambda (#{step 29242}#)
22528 (let ((#{tmp 29244}# ($sc-dispatch #{e1 29222}# '())))
22532 (list '#(syntax-object
22535 #(ribcage () () ())
22541 #(var init step e0 e1 c)
22554 #(ribcage () () ())
22563 #(ribcage () () ())
22569 #(var init step e0 e1 c)
22582 #(ribcage () () ())
22588 (map list #{var 29218}# #{init 29219}#)
22589 (list '#(syntax-object
22592 #(ribcage () () ())
22598 #(var init step e0 e1 c)
22611 #(ribcage () () ())
22617 (list '#(syntax-object
22620 #(ribcage () () ())
22644 #(ribcage () () ())
22651 (cons '#(syntax-object
22654 #(ribcage () () ())
22678 #(ribcage () () ())
22686 (list (cons '#(syntax-object
22726 #{step 29242}#)))))))
22728 (let ((#{tmp 29248}#
22731 '(any . each-any))))
22734 (lambda (#{e1 29252}# #{e2 29253}#)
22735 (list '#(syntax-object
22741 #("i29189" "i29190"))
22742 #(ribcage () () ())
22748 #(var init step e0 e1 c)
22761 #(ribcage () () ())
22773 #("i29189" "i29190"))
22774 #(ribcage () () ())
22780 #(var init step e0 e1 c)
22793 #(ribcage () () ())
22802 (list '#(syntax-object
22808 #("i29189" "i29190"))
22809 #(ribcage () () ())
22815 #(var init step e0 e1 c)
22828 #(ribcage () () ())
22835 (cons '#(syntax-object
22843 #(ribcage () () ())
22867 #(ribcage () () ())
22875 (cons '#(syntax-object
22883 #(ribcage () () ())
22907 #(ribcage () () ())
22915 (list (cons '#(syntax-object
22962 #{step 29242}#)))))))
22966 "source expression failed to match any pattern"
22971 "source expression failed to match any pattern"
22976 "source expression failed to match any pattern"
22977 #{orig-x 29212}#))))))
22980 (make-syntax-transformer
22985 (lambda (#{p 29563}# #{lev 29564}#)
22986 (let ((#{tmp 29566}#
22993 #(ribcage () () ())
22997 #("i29285" "i29286"))
23005 ((top) (top) (top) (top) (top) (top) (top))
23017 (lambda (#{p 29570}#)
23018 (if (= #{lev 29564}# 0)
23019 (list '#(syntax-object
23022 #(ribcage #(p) #((top)) #("i29289"))
23023 #(ribcage () () ())
23027 #("i29285" "i29286"))
23035 ((top) (top) (top) (top) (top) (top) (top))
23045 (#{quasicons 29541}#
23049 #(ribcage #(p) #((top)) #("i29289"))
23050 #(ribcage () () ())
23054 #("i29285" "i29286"))
23062 ((top) (top) (top) (top) (top) (top) (top))
23074 #(ribcage #(p) #((top)) #("i29289"))
23075 #(ribcage () () ())
23079 #("i29285" "i29286"))
23087 ((top) (top) (top) (top) (top) (top) (top))
23098 (#{1-}# #{lev 29564}#)))))
23100 (let ((#{tmp 29573}#
23107 #(ribcage () () ())
23111 #("i29285" "i29286"))
23119 ((top) (top) (top) (top) (top) (top) (top))
23131 (lambda (#{p 29577}#)
23132 (#{quasicons 29541}#
23136 #(ribcage #(p) #((top)) #("i29292"))
23137 #(ribcage () () ())
23141 #("i29285" "i29286"))
23149 ((top) (top) (top) (top) (top) (top) (top))
23161 #(ribcage #(p) #((top)) #("i29292"))
23162 #(ribcage () () ())
23166 #("i29285" "i29286"))
23174 ((top) (top) (top) (top) (top) (top) (top))
23185 (#{1+}# #{lev 29564}#))))
23187 (let ((#{tmp 29580}#
23188 ($sc-dispatch #{p 29563}# '(any . any))))
23191 (lambda (#{p 29584}# #{q 29585}#)
23192 (let ((#{tmp 29587}#
23202 #("i29295" "i29296"))
23203 #(ribcage () () ())
23207 #("i29285" "i29286"))
23234 (lambda (#{p 29591}#)
23235 (if (= #{lev 29564}# 0)
23236 (#{quasilist* 29543}#
23237 (map (lambda (#{tmp 29303 29627}#)
23238 (list '#(syntax-object
23248 #("i29295" "i29296"))
23249 #(ribcage () () ())
23253 #("i29285" "i29286"))
23276 #{tmp 29303 29627}#))
23281 (#{quasicons 29541}#
23282 (#{quasicons 29541}#
23293 #("i29295" "i29296"))
23294 #(ribcage () () ())
23298 #("i29285" "i29286"))
23331 #("i29295" "i29296"))
23332 #(ribcage () () ())
23336 #("i29285" "i29286"))
23361 (#{1-}# #{lev 29564}#)))
23366 (let ((#{tmp 29632}#
23376 #("i29295" "i29296"))
23377 #(ribcage () () ())
23381 #("i29285" "i29286"))
23408 (lambda (#{p 29636}#)
23409 (if (= #{lev 29564}# 0)
23410 (#{quasiappend 29542}#
23411 (map (lambda (#{tmp 29308 29639}#)
23412 (list '#(syntax-object
23424 #(ribcage () () ())
23452 #{tmp 29308 29639}#))
23457 (#{quasicons 29541}#
23458 (#{quasicons 29541}#
23469 #("i29295" "i29296"))
23470 #(ribcage () () ())
23474 #("i29285" "i29286"))
23507 #("i29295" "i29296"))
23508 #(ribcage () () ())
23512 #("i29285" "i29286"))
23537 (#{1-}# #{lev 29564}#)))
23542 (#{quasicons 29541}#
23548 #{lev 29564}#)))))))
23550 (let ((#{tmp 29653}#
23551 ($sc-dispatch #{p 29563}# '#(vector each-any))))
23554 (lambda (#{x 29657}#)
23559 (let ((#{tmp 29662}#
23562 '(#(atom "quote") each-any))))
23565 (lambda (#{x 29666}#)
23566 (list '#(syntax-object
23573 #(ribcage () () ())
23600 (list->vector #{x 29666}#)))
23604 (lambda (#{y 29680}# #{k 29681}#)
23605 (let ((#{tmp 29683}#
23612 (lambda (#{y 29686}#)
23614 (map (lambda (#{tmp 29438 29687}#)
23615 (list '#(syntax-object
23671 #{tmp 29438 29687}#))
23674 (let ((#{tmp 29688}#
23682 (lambda (#{y 29691}#)
23686 (let ((#{tmp 29692}#
23697 (lambda (#{y 29695}#
23701 (lambda (#{ls 29697}#)
23707 (list '#(syntax-object
23770 #{x 29660}#))))))))))
23773 (lambda (#{ls 29670}#)
23774 (let ((#{tmp 29672}#
23780 (lambda (#{ g29426 29675}#)
23781 (cons '#(syntax-object
23842 #{ g29426 29675}#))
23846 "source expression failed to match any pattern"
23847 #{ls 29670}#))))))))))
23849 (list '#(syntax-object
23852 #(ribcage #(p) #((top)) #("i29316"))
23853 #(ribcage () () ())
23857 #("i29285" "i29286"))
23880 #{p 29563}#)))))))))))
23882 (lambda (#{p 29725}# #{lev 29726}#)
23883 (let ((#{tmp 29728}#
23884 ($sc-dispatch #{p 29725}# '(any . any))))
23887 (lambda (#{p 29732}# #{q 29733}#)
23888 (let ((#{tmp 29735}#
23898 #("i29324" "i29325"))
23899 #(ribcage () () ())
23903 #("i29320" "i29321"))
23930 (lambda (#{p 29739}#)
23931 (if (= #{lev 29726}# 0)
23932 (#{quasilist* 29543}#
23933 (map (lambda (#{tmp 29332 29775}#)
23934 (list '#(syntax-object
23944 #("i29324" "i29325"))
23945 #(ribcage () () ())
23949 #("i29320" "i29321"))
23972 #{tmp 29332 29775}#))
23974 (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))
23975 (#{quasicons 29541}#
23976 (#{quasicons 29541}#
23980 #(ribcage #(p) #((top)) #("i29330"))
23984 #("i29324" "i29325"))
23985 #(ribcage () () ())
23989 #("i29320" "i29321"))
24015 #(ribcage #(p) #((top)) #("i29330"))
24019 #("i29324" "i29325"))
24020 #(ribcage () () ())
24024 #("i29320" "i29321"))
24049 (#{1-}# #{lev 29726}#)))
24050 (#{vquasi 29540}# #{q 29733}# #{lev 29726}#))))
24052 (let ((#{tmp 29782}#
24062 #("i29324" "i29325"))
24063 #(ribcage () () ())
24067 #("i29320" "i29321"))
24094 (lambda (#{p 29786}#)
24095 (if (= #{lev 29726}# 0)
24096 (#{quasiappend 29542}#
24097 (map (lambda (#{tmp 29337 29789}#)
24098 (list '#(syntax-object
24108 #("i29324" "i29325"))
24109 #(ribcage () () ())
24113 #("i29320" "i29321"))
24136 #{tmp 29337 29789}#))
24141 (#{quasicons 29541}#
24142 (#{quasicons 29541}#
24146 #(ribcage #(p) #((top)) #("i29335"))
24150 #("i29324" "i29325"))
24151 #(ribcage () () ())
24155 #("i29320" "i29321"))
24181 #(ribcage #(p) #((top)) #("i29335"))
24185 #("i29324" "i29325"))
24186 #(ribcage () () ())
24190 #("i29320" "i29321"))
24215 (#{1-}# #{lev 29726}#)))
24220 (#{quasicons 29541}#
24221 (#{quasi 29539}# #{p 29732}# #{lev 29726}#)
24222 (#{vquasi 29540}# #{q 29733}# #{lev 29726}#)))))))
24224 (let ((#{tmp 29807}# ($sc-dispatch #{p 29725}# '())))
24231 #(ribcage () () ())
24235 #("i29320" "i29321"))
24243 ((top) (top) (top) (top) (top) (top) (top))
24256 "source expression failed to match any pattern"
24258 (#{quasicons 29541}#
24259 (lambda (#{x 29820}# #{y 29821}#)
24260 (let ((#{tmp 29822}# (list #{x 29820}# #{y 29821}#)))
24261 (let ((#{tmp 29823}#
24262 ($sc-dispatch #{tmp 29822}# '(any any))))
24265 (lambda (#{x 29825}# #{y 29826}#)
24266 (let ((#{tmp 29828}#
24269 '(#(atom "quote") any))))
24272 (lambda (#{dy 29832}#)
24273 (let ((#{tmp 29834}#
24276 '(#(atom "quote") any))))
24279 (lambda (#{dx 29838}#)
24280 (list '#(syntax-object
24291 #(ribcage () () ())
24295 #("i29349" "i29350"))
24296 #(ribcage () () ())
24297 #(ribcage () () ())
24301 #("i29344" "i29345"))
24324 (cons #{dx 29838}# #{dy 29832}#)))
24326 (if (null? #{dy 29832}#)
24327 (list '#(syntax-object
24338 #(ribcage () () ())
24342 #("i29349" "i29350"))
24343 #(ribcage () () ())
24344 #(ribcage () () ())
24348 #("i29344" "i29345"))
24372 (list '#(syntax-object
24383 #(ribcage () () ())
24387 #("i29349" "i29350"))
24388 #(ribcage () () ())
24389 #(ribcage () () ())
24393 #("i29344" "i29345"))
24419 (let ((#{tmp 29843}#
24422 '(#(atom "list") . any))))
24425 (lambda (#{stuff 29847}#)
24426 (cons '#(syntax-object
24433 #(ribcage () () ())
24437 #("i29349" "i29350"))
24438 #(ribcage () () ())
24439 #(ribcage () () ())
24443 #("i29344" "i29345"))
24466 (cons #{x 29825}# #{stuff 29847}#)))
24468 (let ((#{tmp 29848}#
24471 '(#(atom "list*") . any))))
24474 (lambda (#{stuff 29852}#)
24475 (cons '#(syntax-object
24482 #(ribcage () () ())
24486 #("i29349" "i29350"))
24487 #(ribcage () () ())
24488 #(ribcage () () ())
24492 #("i29344" "i29345"))
24515 (cons #{x 29825}# #{stuff 29852}#)))
24517 (list '#(syntax-object
24520 #(ribcage #(_) #((top)) #("i29369"))
24521 #(ribcage () () ())
24525 #("i29349" "i29350"))
24526 #(ribcage () () ())
24527 #(ribcage () () ())
24531 #("i29344" "i29345"))
24555 #{y 29826}#))))))))
24559 "source expression failed to match any pattern"
24560 #{tmp 29822}#))))))
24561 (#{quasiappend 29542}#
24562 (lambda (#{x 29863}# #{y 29864}#)
24563 (let ((#{tmp 29866}#
24564 ($sc-dispatch #{y 29864}# '(#(atom "quote") ()))))
24568 (if (null? #{x 29863}#)
24572 #(ribcage () () ())
24576 #("i29373" "i29374"))
24584 ((top) (top) (top) (top) (top) (top) (top))
24594 (if (null? (cdr #{x 29863}#))
24596 (let ((#{tmp 29871}#
24597 ($sc-dispatch #{x 29863}# 'each-any)))
24600 (lambda (#{p 29875}#)
24601 (cons '#(syntax-object
24604 #(ribcage () () ())
24605 #(ribcage #(p) #((top)) #("i29385"))
24606 #(ribcage () () ())
24610 #("i29373" "i29374"))
24637 "source expression failed to match any pattern"
24640 (if (null? #{x 29863}#)
24642 (let ((#{tmp 29883}# (list #{x 29863}# #{y 29864}#)))
24643 (let ((#{tmp 29884}#
24644 ($sc-dispatch #{tmp 29883}# '(each-any any))))
24647 (lambda (#{p 29886}# #{y 29887}#)
24648 (cons '#(syntax-object
24651 #(ribcage () () ())
24655 #("i29396" "i29397"))
24656 #(ribcage #(_) #((top)) #("i29388"))
24657 #(ribcage () () ())
24661 #("i29373" "i29374"))
24684 (append #{p 29886}# (list #{y 29887}#))))
24688 "source expression failed to match any pattern"
24689 #{tmp 29883}#)))))))))
24690 (#{quasilist* 29543}#
24691 (lambda (#{x 29891}# #{y 29892}#)
24694 (lambda (#{x 29982}#)
24695 (if (null? #{x 29982}#)
24697 (#{quasicons 29541}#
24699 (#{f 29893}# (cdr #{x 29982}#)))))))
24700 (#{f 29893}# #{x 29891}#))))
24702 (lambda (#{x 29985}#)
24703 (let ((#{tmp 29987}#
24704 ($sc-dispatch #{x 29985}# '(#(atom "quote") any))))
24707 (lambda (#{x 29991}#)
24708 (list '#(syntax-object
24711 #(ribcage #(x) #((top)) #("i29463"))
24712 #(ribcage () () ())
24713 #(ribcage #(x) #((top)) #("i29460"))
24721 ((top) (top) (top) (top) (top) (top) (top))
24732 (let ((#{tmp 29992}#
24735 '(#(atom "list") . each-any))))
24738 (lambda (#{x 29996}#)
24739 (let ((#{tmp 29997}# (map #{emit 29545}# #{x 29996}#)))
24740 (let ((#{tmp 29998}#
24741 ($sc-dispatch #{tmp 29997}# 'each-any)))
24744 (lambda (#{ g29468 30000}#)
24745 (cons '#(syntax-object
24748 #(ribcage () () ())
24753 #(ribcage #(x) #((top)) #("i29466"))
24754 #(ribcage () () ())
24755 #(ribcage #(x) #((top)) #("i29460"))
24778 #{ g29468 30000}#))
24782 "source expression failed to match any pattern"
24785 (let ((#{tmp 30001}#
24788 '(#(atom "list*") . #(each+ any (any) ())))))
24791 (lambda (#{x 30005}# #{y 30006}#)
24794 (lambda (#{x* 30010}#)
24795 (if (null? #{x* 30010}#)
24796 (#{emit 29545}# #{y 30006}#)
24797 (let ((#{tmp 30011}#
24798 (list (#{emit 29545}#
24799 (car #{x* 30010}#))
24801 (cdr #{x* 30010}#)))))
24802 (let ((#{tmp 30012}#
24808 (lambda (#{ g29488 30014}#
24810 (list '#(syntax-object
24813 #(ribcage () () ())
24819 #("i29493" "i29494"))
24820 #(ribcage () () ())
24824 #("i29482" "i29483"))
24828 #("i29478" "i29479"))
24829 #(ribcage () () ())
24857 #{ g29487 30015}#))
24861 "source expression failed to match any pattern"
24862 #{tmp 30011}#))))))))
24863 (#{f 30007}# #{x 30005}#)))
24865 (let ((#{tmp 30016}#
24868 '(#(atom "append") . each-any))))
24871 (lambda (#{x 30020}#)
24872 (let ((#{tmp 30021}#
24873 (map #{emit 29545}# #{x 30020}#)))
24874 (let ((#{tmp 30022}#
24880 (lambda (#{ g29500 30024}#)
24881 (cons '#(syntax-object
24884 #(ribcage () () ())
24893 #(ribcage () () ())
24920 #{ g29500 30024}#))
24924 "source expression failed to match any pattern"
24927 (let ((#{tmp 30025}#
24930 '(#(atom "vector") . each-any))))
24933 (lambda (#{x 30029}#)
24934 (let ((#{tmp 30030}#
24935 (map #{emit 29545}# #{x 30029}#)))
24936 (let ((#{tmp 30031}#
24942 (lambda (#{ g29512 30033}#)
24943 (cons '#(syntax-object
24946 #(ribcage () () ())
24955 #(ribcage () () ())
24982 #{ g29512 30033}#))
24986 "source expression failed to match any pattern"
24989 (let ((#{tmp 30034}#
24992 '(#(atom "list->vector") any))))
24995 (lambda (#{x 30038}#)
24996 (let ((#{tmp 30039}#
24997 (#{emit 29545}# #{x 30038}#)))
24998 (list '#(syntax-object
25001 #(ribcage () () ())
25010 #(ribcage () () ())
25039 (let ((#{tmp 30042}#
25042 '(#(atom "value") any))))
25045 (lambda (#{x 30046}#) #{x 30046}#)
25049 "source expression failed to match any pattern"
25050 #{x 29985}#))))))))))))))))))
25051 (lambda (#{x 29546}#)
25052 (let ((#{tmp 29548}#
25053 ($sc-dispatch #{x 29546}# '(_ any))))
25056 (lambda (#{e 29552}#)
25057 (#{emit 29545}# (#{quasi 29539}# #{e 29552}# 0)))
25061 "source expression failed to match any pattern"
25065 (make-syntax-transformer
25068 (lambda (#{x 30101}#)
25070 ((#{read-file 30102}#
25071 (lambda (#{fn 30213}# #{k 30214}#)
25072 (let ((#{p 30215}# (open-input-file #{fn 30213}#)))
25075 (lambda (#{x 30270}# #{result 30271}#)
25076 (if (eof-object? #{x 30270}#)
25078 (close-input-port #{p 30215}#)
25079 (reverse #{result 30271}#))
25082 (cons (datum->syntax #{k 30214}# #{x 30270}#)
25083 #{result 30271}#))))))
25084 (#{f 30216}# (read #{p 30215}#) '()))))))
25085 (let ((#{tmp 30104}#
25086 ($sc-dispatch #{x 30101}# '(any any))))
25089 (lambda (#{k 30108}# #{filename 30109}#)
25090 (let ((#{fn 30110}# (syntax->datum #{filename 30109}#)))
25091 (let ((#{tmp 30111}#
25092 (#{read-file 30102}#
25094 #{filename 30109}#)))
25095 (let ((#{tmp 30112}#
25096 ($sc-dispatch #{tmp 30111}# 'each-any)))
25099 (lambda (#{exp 30130}#)
25100 (cons '#(syntax-object
25103 #(ribcage () () ())
25104 #(ribcage #(exp) #((top)) #("i30098"))
25105 #(ribcage () () ())
25106 #(ribcage () () ())
25107 #(ribcage #(fn) #((top)) #("i30093"))
25111 #("i30089" "i30090"))
25112 #(ribcage (read-file) ((top)) ("i30073"))
25113 #(ribcage #(x) #((top)) #("i30072")))
25119 "source expression failed to match any pattern"
25120 #{tmp 30111}#))))))
25124 "source expression failed to match any pattern"
25127 (define include-from-path
25128 (make-syntax-transformer
25131 (lambda (#{x 30290}#)
25132 (let ((#{tmp 30292}#
25133 ($sc-dispatch #{x 30290}# '(any any))))
25136 (lambda (#{k 30296}# #{filename 30297}#)
25137 (let ((#{fn 30298}# (syntax->datum #{filename 30297}#)))
25138 (let ((#{tmp 30299}#
25141 (let ((#{t 30302}# (%search-load-path #{fn 30298}#)))
25146 "file not found in path"
25148 #{filename 30297}#))))))
25149 (list '#(syntax-object
25152 #(ribcage () () ())
25153 #(ribcage #(fn) #((top)) #("i30284"))
25154 #(ribcage () () ())
25155 #(ribcage () () ())
25156 #(ribcage #(fn) #((top)) #("i30280"))
25160 #("i30276" "i30277"))
25161 #(ribcage () () ())
25162 #(ribcage #(x) #((top)) #("i30273")))
25168 "source expression failed to match any pattern"
25172 (make-syntax-transformer
25175 (lambda (#{x 30311}#)
25178 "expression not valid outside of quasiquote"
25181 (define unquote-splicing
25182 (make-syntax-transformer
25185 (lambda (#{x 30314}#)
25188 "expression not valid outside of quasiquote"
25192 (make-syntax-transformer
25195 (lambda (#{x 30370}#)
25196 (let ((#{tmp 30372}#
25199 '(_ any any . each-any))))
25202 (lambda (#{e 30376}# #{m1 30377}# #{m2 30378}#)
25203 (let ((#{tmp 30379}#
25206 (lambda (#{clause 30428}# #{clauses 30429}#)
25207 (if (null? #{clauses 30429}#)
25208 (let ((#{tmp 30431}#
25215 #(ribcage () () ())
25217 #(f clause clauses)
25218 #((top) (top) (top))
25224 #((top) (top) (top))
25228 #(ribcage () () ())
25239 (lambda (#{e1 30435}# #{e2 30436}#)
25240 (cons '#(syntax-object
25246 #("i30338" "i30339"))
25247 #(ribcage () () ())
25249 #(f clause clauses)
25250 #((top) (top) (top))
25256 #((top) (top) (top))
25260 #(ribcage () () ())
25266 (cons #{e1 30435}# #{e2 30436}#)))
25268 (let ((#{tmp 30437}#
25271 '(each-any any . each-any))))
25274 (lambda (#{k 30441}#
25277 (list '#(syntax-object
25282 #((top) (top) (top))
25286 #(ribcage () () ())
25288 #(f clause clauses)
25289 #((top) (top) (top))
25295 #((top) (top) (top))
25299 #(ribcage () () ())
25305 (list '#(syntax-object
25316 #(ribcage () () ())
25335 #(ribcage () () ())
25352 #(ribcage () () ())
25371 #(ribcage () () ())
25377 (list '#(syntax-object
25421 (cons '#(syntax-object
25432 #(ribcage () () ())
25451 #(ribcage () () ())
25464 #{clause 30428}#)))))
25465 (let ((#{tmp 30451}#
25467 (car #{clauses 30429}#)
25468 (cdr #{clauses 30429}#))))
25469 (let ((#{tmp 30454}#
25472 '(each-any any . each-any))))
25475 (lambda (#{k 30458}#
25478 (list '#(syntax-object
25483 #((top) (top) (top))
25487 #(ribcage () () ())
25492 #(ribcage () () ())
25494 #(f clause clauses)
25495 #((top) (top) (top))
25501 #((top) (top) (top))
25505 #(ribcage () () ())
25511 (list '#(syntax-object
25516 #((top) (top) (top))
25520 #(ribcage () () ())
25525 #(ribcage () () ())
25527 #(f clause clauses)
25528 #((top) (top) (top))
25534 #((top) (top) (top))
25538 #(ribcage () () ())
25549 #((top) (top) (top))
25553 #(ribcage () () ())
25558 #(ribcage () () ())
25560 #(f clause clauses)
25561 #((top) (top) (top))
25567 #((top) (top) (top))
25571 #(ribcage () () ())
25577 (list '#(syntax-object
25628 (cons '#(syntax-object
25633 #((top) (top) (top))
25637 #(ribcage () () ())
25642 #(ribcage () () ())
25644 #(f clause clauses)
25645 #((top) (top) (top))
25651 #((top) (top) (top))
25655 #(ribcage () () ())
25669 #{clause 30428}#))))))))
25670 (#{f 30425}# #{m1 30377}# #{m2 30378}#))))
25671 (let ((#{body 30380}# #{tmp 30379}#))
25672 (list '#(syntax-object
25675 #(ribcage () () ())
25676 #(ribcage #(body) #((top)) #("i30327"))
25679 #((top) (top) (top))
25680 #("i30319" "i30320" "i30321"))
25681 #(ribcage () () ())
25682 #(ribcage #(x) #((top)) #("i30316")))
25684 (list (list '#(syntax-object
25687 #(ribcage () () ())
25688 #(ribcage #(body) #((top)) #("i30327"))
25691 #((top) (top) (top))
25692 #("i30319" "i30320" "i30321"))
25693 #(ribcage () () ())
25694 #(ribcage #(x) #((top)) #("i30316")))
25701 "source expression failed to match any pattern"
25704 (define make-variable-transformer
25705 (lambda (#{proc 30478}#)
25706 (if (procedure? #{proc 30478}#)
25709 (lambda (#{x 30485}#)
25710 (#{proc 30478}# #{x 30485}#))))
25712 (set-procedure-property!
25714 'variable-transformer
25717 (error "variable transformer not a procedure"
25720 (define identifier-syntax
25721 (make-syntax-transformer
25724 (lambda (#{x 30517}#)
25725 (let ((#{tmp 30519}#
25726 ($sc-dispatch #{x 30517}# '(_ any))))
25729 (lambda (#{e 30523}#)
25730 (list '#(syntax-object
25733 #(ribcage #(e) #((top)) #("i30492"))
25734 #(ribcage () () ())
25735 #(ribcage #(x) #((top)) #("i30489")))
25740 #(ribcage #(e) #((top)) #("i30492"))
25741 #(ribcage () () ())
25742 #(ribcage #(x) #((top)) #("i30489")))
25744 '#((#(syntax-object
25747 #(ribcage #(e) #((top)) #("i30492"))
25748 #(ribcage () () ())
25749 #(ribcage #(x) #((top)) #("i30489")))
25755 #(ribcage #(e) #((top)) #("i30492"))
25756 #(ribcage () () ())
25757 #(ribcage #(x) #((top)) #("i30489")))
25759 (list '#(syntax-object
25762 #(ribcage #(e) #((top)) #("i30492"))
25763 #(ribcage () () ())
25764 #(ribcage #(x) #((top)) #("i30489")))
25769 #(ribcage #(e) #((top)) #("i30492"))
25770 #(ribcage () () ())
25771 #(ribcage #(x) #((top)) #("i30489")))
25774 (list '#(syntax-object
25777 #(ribcage #(e) #((top)) #("i30492"))
25778 #(ribcage () () ())
25779 #(ribcage #(x) #((top)) #("i30489")))
25784 #(ribcage #(e) #((top)) #("i30492"))
25785 #(ribcage () () ())
25786 #(ribcage #(x) #((top)) #("i30489")))
25791 #(ribcage #(e) #((top)) #("i30492"))
25792 #(ribcage () () ())
25793 #(ribcage #(x) #((top)) #("i30489")))
25798 #(ribcage #(e) #((top)) #("i30492"))
25799 #(ribcage () () ())
25800 #(ribcage #(x) #((top)) #("i30489")))
25802 (list '#(syntax-object
25805 #(ribcage #(e) #((top)) #("i30492"))
25806 #(ribcage () () ())
25807 #(ribcage #(x) #((top)) #("i30489")))
25810 (list '(#(syntax-object
25813 #(ribcage #(e) #((top)) #("i30492"))
25814 #(ribcage () () ())
25815 #(ribcage #(x) #((top)) #("i30489")))
25820 #(ribcage #(e) #((top)) #("i30492"))
25821 #(ribcage () () ())
25822 #(ribcage #(x) #((top)) #("i30489")))
25827 #(ribcage #(e) #((top)) #("i30492"))
25828 #(ribcage () () ())
25829 #(ribcage #(x) #((top)) #("i30489")))
25831 (list '#(syntax-object
25834 #(ribcage #(e) #((top)) #("i30492"))
25835 #(ribcage () () ())
25836 #(ribcage #(x) #((top)) #("i30489")))
25846 #(ribcage () () ())
25859 #(ribcage () () ())
25864 (hygiene guile)))))))))
25866 (let ((#{tmp 30524}#
25874 #(ribcage () () ())
25875 #(ribcage #(x) #((top)) #("i30489")))
25880 (if (if #{tmp 30524}#
25882 (lambda (#{id 30528}#
25887 (if (identifier? #{id 30528}#)
25888 (identifier? #{var 30530}#)
25893 (lambda (#{id 30533}#
25898 (list '#(syntax-object
25899 make-variable-transformer
25902 #(id exp1 var val exp2)
25903 #((top) (top) (top) (top) (top))
25904 #("i30507" "i30508" "i30509" "i30510" "i30511"))
25905 #(ribcage () () ())
25906 #(ribcage #(x) #((top)) #("i30489")))
25908 (list '#(syntax-object
25912 #(id exp1 var val exp2)
25913 #((top) (top) (top) (top) (top))
25919 #(ribcage () () ())
25920 #(ribcage #(x) #((top)) #("i30489")))
25926 #(id exp1 var val exp2)
25927 #((top) (top) (top) (top) (top))
25933 #(ribcage () () ())
25934 #(ribcage #(x) #((top)) #("i30489")))
25936 '#((#(syntax-object
25940 #(id exp1 var val exp2)
25941 #((top) (top) (top) (top) (top))
25947 #(ribcage () () ())
25948 #(ribcage #(x) #((top)) #("i30489")))
25952 variable-transformer
25955 #(id exp1 var val exp2)
25956 #((top) (top) (top) (top) (top))
25962 #(ribcage () () ())
25963 #(ribcage #(x) #((top)) #("i30489")))
25965 (list '#(syntax-object
25969 #(id exp1 var val exp2)
25970 #((top) (top) (top) (top) (top))
25976 #(ribcage () () ())
25977 #(ribcage #(x) #((top)) #("i30489")))
25983 #(id exp1 var val exp2)
25984 #((top) (top) (top) (top) (top))
25990 #(ribcage () () ())
25991 #(ribcage #(x) #((top)) #("i30489")))
25997 #(id exp1 var val exp2)
25998 #((top) (top) (top) (top) (top))
26004 #(ribcage () () ())
26005 #(ribcage #(x) #((top)) #("i30489")))
26007 (list (list '#(syntax-object
26011 #(id exp1 var val exp2)
26022 #(ribcage () () ())
26030 (list '#(syntax-object
26034 #(id exp1 var val exp2)
26045 #(ribcage () () ())
26052 (list (cons #{id 30533}#
26057 #(id exp1 var val exp2)
26068 #(ribcage () () ())
26078 #(id exp1 var val exp2)
26089 #(ribcage () () ())
26095 (list '#(syntax-object
26099 #(id exp1 var val exp2)
26110 #(ribcage () () ())
26116 (cons #{exp1 30534}#
26136 #(ribcage () () ())
26161 #(ribcage () () ())
26166 (hygiene guile))))))
26168 (list '#(syntax-object
26172 #(id exp1 var val exp2)
26183 #(ribcage () () ())
26189 (list '#(syntax-object
26208 #(ribcage () () ())
26215 (list '#(syntax-object
26219 #(id exp1 var val exp2)
26230 #(ribcage () () ())
26236 #{exp1 30534}#))))))
26240 "source expression failed to match any pattern"
26241 #{x 30517}#))))))))
26244 (make-syntax-transformer
26247 (lambda (#{x 30569}#)
26248 (let ((#{tmp 30571}#
26251 '(_ (any . any) any . each-any))))
26254 (lambda (#{id 30575}#
26258 (list '#(syntax-object
26263 #((top) (top) (top) (top))
26264 #("i30551" "i30552" "i30553" "i30554"))
26265 #(ribcage () () ())
26266 #(ribcage #(x) #((top)) #("i30548")))
26269 (cons '#(syntax-object
26274 #((top) (top) (top) (top))
26275 #("i30551" "i30552" "i30553" "i30554"))
26276 #(ribcage () () ())
26277 #(ribcage #(x) #((top)) #("i30548")))
26279 (cons #{args 30576}#
26280 (cons #{b0 30577}# #{b1 30578}#)))))
26282 (let ((#{tmp 30579}#
26283 ($sc-dispatch #{x 30569}# '(_ any any))))
26284 (if (if #{tmp 30579}#
26286 (lambda (#{id 30583}# #{val 30584}#)
26294 #("i30561" "i30562"))
26295 #(ribcage () () ())
26296 #(ribcage #(x) #((top)) #("i30548")))
26301 (lambda (#{id 30585}# #{val 30586}#)
26302 (list '#(syntax-object
26308 #("i30565" "i30566"))
26309 #(ribcage () () ())
26310 #(ribcage #(x) #((top)) #("i30548")))
26317 "source expression failed to match any pattern"
26318 #{x 30569}#))))))))