1 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
4 (let ((session-id-4511 (if #f #f))
5 (transformer-environment-4572 (if #f #f)))
7 ((top-level-eval-hook-4509
8 (lambda (x-36254 mod-36255)
9 (primitive-eval x-36254)))
10 (maybe-name-value!-4515
11 (lambda (name-19069 val-19070)
12 (if (if (struct? val-19070)
13 (eq? (struct-vtable val-19070)
14 (vector-ref %expanded-vtables 14))
16 (let ((meta-19077 (struct-ref val-19070 1)))
17 (if (not (assq 'name meta-19077))
19 (cons (cons 'name name-19069) meta-19077)))
20 (struct-set! val-19070 1 v-19082)))))))
22 (lambda (source-18814 fun-exp-18815 arg-exps-18816)
24 (vector-ref %expanded-vtables 11)
28 (build-conditional-4518
34 (vector-ref %expanded-vtables 10)
40 (lambda (source-18832 fluids-18833 vals-18834 body-18835)
42 (vector-ref %expanded-vtables 18)
47 (build-lexical-reference-4520
48 (lambda (type-36256 source-36257 name-36258 var-36259)
50 (vector-ref %expanded-vtables 3)
54 (build-lexical-assignment-4521
55 (lambda (source-18842 name-18843 var-18844 exp-18845)
57 (if (if (struct? exp-18845)
58 (eq? (struct-vtable exp-18845)
59 (vector-ref %expanded-vtables 14))
61 (let ((meta-18861 (struct-ref exp-18845 1)))
62 (if (not (assq 'name meta-18861))
64 (cons (cons 'name name-18843) meta-18861)))
65 (struct-set! exp-18845 1 v-18868)))))
67 (vector-ref %expanded-vtables 4)
72 (analyze-variable-4522
78 (bare-cont-36268 var-36266)
79 (let ((kind-36269 (car mod-36265))
80 (mod-36270 (cdr mod-36265)))
81 (if (eqv? kind-36269 'public)
82 (modref-cont-36267 mod-36270 var-36266 #t)
83 (if (eqv? kind-36269 'private)
84 (if (not (equal? mod-36270 (module-name (current-module))))
85 (modref-cont-36267 mod-36270 var-36266 #f)
86 (bare-cont-36268 var-36266))
87 (if (eqv? kind-36269 'bare)
88 (bare-cont-36268 var-36266)
89 (if (eqv? kind-36269 'hygiene)
92 (module-name (current-module))))
94 (resolve-module mod-36270)
97 (modref-cont-36267 mod-36270 var-36266 #f)
98 (bare-cont-36268 var-36266))
104 (build-global-reference-4523
105 (lambda (source-36285 var-36286 mod-36287)
106 (analyze-variable-4522
109 (lambda (mod-36290 var-36291 public?-36292)
111 (vector-ref %expanded-vtables 5)
118 (vector-ref %expanded-vtables 7)
121 (build-global-assignment-4524
122 (lambda (source-18877 var-18878 exp-18879 mod-18880)
124 (if (if (struct? exp-18879)
125 (eq? (struct-vtable exp-18879)
126 (vector-ref %expanded-vtables 14))
128 (let ((meta-18896 (struct-ref exp-18879 1)))
129 (if (not (assq 'name meta-18896))
131 (cons (cons 'name var-18878) meta-18896)))
132 (struct-set! exp-18879 1 v-18903)))))
133 (analyze-variable-4522
136 (lambda (mod-18908 var-18909 public?-18910)
138 (vector-ref %expanded-vtables 6)
146 (vector-ref %expanded-vtables 8)
150 (build-global-definition-4525
151 (lambda (source-36304 var-36305 exp-36306)
153 (if (if (struct? exp-36306)
154 (eq? (struct-vtable exp-36306)
155 (vector-ref %expanded-vtables 14))
157 (let ((meta-36322 (struct-ref exp-36306 1)))
158 (if (not (assq 'name meta-36322))
160 (cons (cons 'name var-36305) meta-36322)))
161 (struct-set! exp-36306 1 v-36329)))))
163 (vector-ref %expanded-vtables 9)
167 (build-simple-lambda-4526
176 (vector-ref %expanded-vtables 15)
187 (vector-ref %expanded-vtables 14)
192 (lambda (src-18947 name-18948 args-18949)
194 (vector-ref %expanded-vtables 12)
199 (lambda (src-36337 exps-36338)
200 (if (null? (cdr exps-36338))
202 (let ((head-36342 (car exps-36338))
204 (build-sequence-4532 #f (cdr exps-36338))))
206 (vector-ref %expanded-vtables 13)
210 (build-named-let-4534
216 (let ((f-18960 (car vars-18957))
217 (f-name-18961 (car ids-18956))
218 (vars-18962 (cdr vars-18957))
219 (ids-18963 (cdr ids-18956)))
223 (vector-ref %expanded-vtables 15)
234 (vector-ref %expanded-vtables 14)
239 (if (if (struct? proc-18964)
240 (eq? (struct-vtable proc-18964)
241 (vector-ref %expanded-vtables 14))
243 (let ((meta-19008 (struct-ref proc-18964 1)))
244 (if (not (assq 'name meta-19008))
246 (cons (cons 'name f-name-18961) meta-19008)))
247 (struct-set! proc-18964 1 v-19015)))))
249 maybe-name-value!-4515
252 (let ((names-19039 (list f-name-18961))
253 (gensyms-19040 (list f-18960))
254 (vals-19041 (list proc-18964))
258 (vector-ref %expanded-vtables 3)
263 (vector-ref %expanded-vtables 11)
268 (vector-ref %expanded-vtables 17)
282 (if (null? vars-19065)
286 maybe-name-value!-4515
290 (vector-ref %expanded-vtables 17)
297 (source-annotation-4544
299 (if (if (vector? x-19093)
300 (if (= (vector-length x-19093) 4)
301 (eq? (vector-ref x-19093 0) 'syntax-object)
304 (source-annotation-4544 (vector-ref x-19093 1))
306 (let ((props-19108 (source-properties x-19093)))
307 (if (pair? props-19108) props-19108 #f))
310 (lambda (labels-19110 bindings-19111 r-19112)
311 (if (null? labels-19110)
316 (cons (cons (car labels-19110) (car bindings-19111))
319 (lambda (labels-19113 vars-19114 r-19115)
320 (if (null? labels-19113)
325 (cons (cons (car labels-19113)
326 (cons 'lexical (car vars-19114)))
328 (macros-only-env-4547
332 (let ((a-19117 (car r-19116)))
333 (if (let ((t-19120 (car (cdr a-19117))))
334 (if (eq? t-19120 'macro)
336 (eq? t-19120 'syntax-parameter)))
338 (macros-only-env-4547 (cdr r-19116)))
339 (macros-only-env-4547 (cdr r-19116)))))))
341 (lambda (type-19122 sym-19123 val-19124)
345 (make-syntax-transformer
351 (if (symbol? x-11889)
353 (if (if (vector? x-11889)
354 (if (= (vector-length x-11889) 4)
355 (eq? (vector-ref x-11889 0) 'syntax-object)
358 (symbol? (vector-ref x-11889 1))
367 (symbol->string (gensym "-")))
368 (gen-labels-4553 (cdr ls-19134))))))
369 (make-binding-wrap-4564
370 (lambda (ids-19138 labels-19139 w-19140)
371 (if (null? ids-19138)
374 (cons (let ((labelvec-19141 (list->vector labels-19139)))
375 (let ((n-19142 (vector-length labelvec-19141)))
376 (let ((symnamevec-19143 (make-vector n-19142))
377 (marksvec-19144 (make-vector n-19142)))
381 (lambda (ids-19342 i-19343)
382 (if (not (null? ids-19342))
385 (let ((x-19346 (car ids-19342)))
386 (if (if (vector? x-19346)
387 (if (= (vector-length
397 (vector-ref x-19346 1)
412 (lambda (symname-19383 marks-19384)
424 (#{1+}# i-19343)))))))))
425 (f-19145 ids-19138 0))
433 (lambda (x-36344 y-36345)
434 (if (eq? x-36344 y-36345)
435 (eq? x-36344 y-36345)
436 (if (not (null? x-36344))
437 (if (not (null? y-36345))
438 (if (eq? (car x-36344) (car y-36345))
439 (same-marks?-4568 (cdr x-36344) (cdr y-36345))
444 (lambda (id-36353 w-36354 mod-36355)
447 (lambda (sym-36422 subst-36423 marks-36424 mod-36425)
448 (if (null? subst-36423)
449 (values #f marks-36424)
450 (let ((fst-36426 (car subst-36423)))
451 (if (eq? fst-36426 'shift)
457 (let ((symnames-36428 (vector-ref fst-36426 1)))
458 (if (vector? symnames-36428)
459 (search-vector-rib-36358
466 (search-list-rib-36357
473 (search-list-rib-36357
482 (lambda (symnames-36612 i-36613)
483 (if (null? symnames-36612)
489 (if (if (eq? (car symnames-36612) sym-36603)
493 (vector-ref ribcage-36607 2)
498 (vector-ref ribcage-36607 3)
501 (if (equal? mod-36608 (car n-36759))
502 (values (cdr n-36759) marks-36605)
506 (values n-36759 marks-36605)))
507 (f-36609 (cdr symnames-36612) (#{1+}# i-36613)))))))
508 (f-36609 symnames-36606 0))))
509 (search-vector-rib-36358
516 (let ((n-36770 (vector-length symnames-36767)))
520 (if (= i-36774 n-36770)
526 (if (if (eq? (vector-ref symnames-36767 i-36774)
531 (vector-ref ribcage-36768 2)
536 (vector-ref ribcage-36768 3)
539 (if (equal? mod-36769 (car n-36921))
540 (values (cdr n-36921) marks-36766)
541 (f-36771 (#{1+}# i-36774)))
542 (values n-36921 marks-36766)))
543 (f-36771 (#{1+}# i-36774)))))))
545 (if (symbol? id-36353)
552 (if t-36359 t-36359 id-36353))
553 (if (if (vector? id-36353)
554 (if (= (vector-length id-36353) 4)
555 (eq? (vector-ref id-36353 0) 'syntax-object)
558 (let ((id-36374 (vector-ref id-36353 1))
559 (w1-36375 (vector-ref id-36353 2))
560 (mod-36376 (vector-ref id-36353 3)))
562 (let ((m1-36387 (car w-36354))
563 (m2-36388 (car w1-36375)))
566 (append m1-36387 m2-36388)))))
574 (lambda (new-id-36408 marks-36409)
583 (if t-36417 t-36417 id-36374)))))))
588 (locally-bound-identifiers-4570
589 (lambda (w-19391 mod-19392)
592 (lambda (subst-19398 results-19399)
593 (if (null? subst-19398)
595 (let ((fst-19400 (car subst-19398)))
596 (if (eq? fst-19400 'shift)
597 (scan-19393 (cdr subst-19398) results-19399)
598 (let ((symnames-19402 (vector-ref fst-19400 1))
599 (marks-19403 (vector-ref fst-19400 2)))
600 (if (vector? symnames-19402)
601 (scan-vector-rib-19395
610 results-19399))))))))
618 (lambda (symnames-19709 marks-19710 results-19711)
619 (if (null? symnames-19709)
620 (scan-19393 (cdr subst-19520) results-19711)
624 (cons (let ((x-19717 (car symnames-19709))
627 (cons (car marks-19710)
629 (cons (cons #f (car w-19722))
632 (if (if (null? (car w-19718))
633 (null? (cdr w-19718))
636 (if (if (vector? x-19717)
637 (if (= (vector-length x-19717) 4)
638 (eq? (vector-ref x-19717 0)
642 (let ((expression-19734
643 (vector-ref x-19717 1))
646 (vector-ref x-19717 2)))
647 (let ((m1-19744 (car w-19718))
661 (cons (let ((m2-19764
676 (vector-ref x-19717 3)))
694 (scan-vector-rib-19395
699 (let ((n-19789 (vector-length symnames-19786)))
702 (lambda (i-19961 results-19962)
703 (if (= i-19961 n-19789)
704 (scan-19393 (cdr subst-19785) results-19962)
708 (vector-ref symnames-19786 i-19961))
715 (cons (cons #f (car w-19973))
718 (if (if (null? (car w-19969))
719 (null? (cdr w-19969))
722 (if (if (vector? x-19968)
723 (if (= (vector-length x-19968) 4)
724 (eq? (vector-ref x-19968 0)
728 (let ((expression-19985
729 (vector-ref x-19968 1))
750 (cons (let ((m2-20015
765 (vector-ref x-19968 3)))
779 (f-19790 0 results-19788))))))
780 (scan-19393 (cdr w-19391) '()))))
781 (resolve-identifier-4571
786 resolve-syntax-parameters?-20040)
788 (id-var-name-4569 id-20036 w-20037 mod-20039)))
789 (if (if (vector? n-20044)
790 (if (= (vector-length n-20044) 4)
791 (eq? (vector-ref n-20044 0) 'syntax-object)
794 (resolve-identifier-4571
799 resolve-syntax-parameters?-20040)
800 (if (symbol? n-20044)
802 (if (if (vector? id-20036)
803 (if (= (vector-length id-20036) 4)
804 (eq? (vector-ref id-20036 0) 'syntax-object)
807 (vector-ref id-20036 3)
813 (if (if (not mod-20059)
816 (warn "module system is booted, we should have a module"
826 (if (variable-bound? v-20113)
830 (if (macro? val-20122)
831 (if (macro-type val-20122)
840 (if t-20064 t-20064 '(global)))))
841 (if (if resolve-syntax-parameters?-20040
842 (eq? (car b-20063) 'syntax-parameter)
844 (let ((t-20131 (assq-ref r-20038 (cdr b-20063))))
847 (cons 'macro (car (cdr b-20063)))))
849 (if (eq? (car b-20060) 'global)
850 (values 'global n-20044 mod-20059)
851 (values (car b-20060) (cdr b-20060) mod-20059))))
852 (if (string? n-20044)
854 (if (if (vector? id-20036)
855 (if (= (vector-length id-20036) 4)
856 (eq? (vector-ref id-20036 0) 'syntax-object)
859 (vector-ref id-20036 3)
863 (let ((t-20142 (assq-ref r-20038 n-20044)))
866 '(displaced-lexical)))))
867 (if (if resolve-syntax-parameters?-20040
868 (eq? (car b-20141) 'syntax-parameter)
871 (assq-ref r-20038 (cdr b-20141))))
874 (cons 'macro (car (cdr b-20141)))))
876 (values (car b-20138) (cdr b-20138) mod-20137)))
877 (error "unexpected id-var-name"
882 (lambda (i-20156 j-20157)
884 (if (if (vector? i-20156)
885 (if (= (vector-length i-20156) 4)
886 (eq? (vector-ref i-20156 0) 'syntax-object)
889 (vector-ref i-20156 3)
892 (if (if (vector? j-20157)
893 (if (= (vector-length j-20157) 4)
894 (eq? (vector-ref j-20157 0) 'syntax-object)
897 (vector-ref j-20157 3)
900 (id-var-name-4569 i-20156 '(()) mi-20158)))
902 (id-var-name-4569 j-20157 '(()) mj-20159)))
903 (if (if (vector? ni-20160)
904 (if (= (vector-length ni-20160) 4)
905 (eq? (vector-ref ni-20160 0) 'syntax-object)
908 (free-id=?-4574 ni-20160 j-20157)
909 (if (if (vector? nj-20161)
910 (if (= (vector-length nj-20161) 4)
911 (eq? (vector-ref nj-20161 0) 'syntax-object)
914 (free-id=?-4574 i-20156 nj-20161)
915 (if (symbol? ni-20160)
917 (if (if (vector? j-20157)
918 (if (= (vector-length j-20157) 4)
919 (eq? (vector-ref j-20157 0)
923 (vector-ref j-20157 1)
928 (resolve-module (cdr mi-20158))
930 (if (if (vector? i-20156)
931 (if (= (vector-length i-20156) 4)
932 (eq? (vector-ref i-20156 0)
936 (vector-ref i-20156 1)
942 (resolve-module (cdr mj-20159))
944 (if (if (vector? j-20157)
945 (if (= (vector-length j-20157) 4)
946 (eq? (vector-ref j-20157 0)
950 (vector-ref j-20157 1)
952 (if (not (module-variable
954 (resolve-module (cdr mj-20159))
956 (if (if (vector? j-20157)
957 (if (= (vector-length
960 (eq? (vector-ref j-20157 0)
964 (vector-ref j-20157 1)
966 (eq? ni-20160 nj-20161)
968 (eq? (module-variable
970 (resolve-module (cdr mi-20158))
972 (if (if (vector? i-20156)
973 (if (= (vector-length i-20156) 4)
974 (eq? (vector-ref i-20156 0)
978 (vector-ref i-20156 1)
982 (resolve-module (cdr mj-20159))
984 (if (if (vector? j-20157)
985 (if (= (vector-length j-20157) 4)
986 (eq? (vector-ref j-20157 0)
990 (vector-ref j-20157 1)
994 (equal? ni-20160 nj-20161))))))))))
996 (lambda (i-20426 j-20427)
997 (if (if (if (vector? i-20426)
998 (if (= (vector-length i-20426) 4)
999 (eq? (vector-ref i-20426 0) 'syntax-object)
1002 (if (vector? j-20427)
1003 (if (= (vector-length j-20427) 4)
1004 (eq? (vector-ref j-20427 0) 'syntax-object)
1008 (if (eq? (vector-ref i-20426 1)
1009 (vector-ref j-20427 1))
1011 (car (vector-ref i-20426 2))
1012 (car (vector-ref j-20427 2)))
1014 (eq? i-20426 j-20427))))
1015 (valid-bound-ids?-4576
1020 (if (null? ids-20794)
1022 (if (let ((x-20805 (car ids-20794)))
1023 (if (symbol? x-20805)
1025 (if (if (vector? x-20805)
1026 (if (= (vector-length x-20805) 4)
1027 (eq? (vector-ref x-20805 0)
1031 (symbol? (vector-ref x-20805 1))
1033 (all-ids?-20597 (cdr ids-20794))
1035 (all-ids?-20597 ids-20596))
1036 (distinct-bound-ids?-4577 ids-20596)
1038 (distinct-bound-ids?-4577
1043 (if (null? ids-21032)
1045 (if (not (bound-id-member?-4578
1048 (distinct?-20927 (cdr ids-21032))
1050 (distinct?-20927 ids-20926))))
1051 (bound-id-member?-4578
1052 (lambda (x-21128 list-21129)
1053 (if (not (null? list-21129))
1055 (bound-id=?-4575 x-21128 (car list-21129))))
1058 (bound-id-member?-4578 x-21128 (cdr list-21129))))
1061 (lambda (x-21308 w-21309 s-21310 defmod-21311)
1064 (if (if (pair? x-21308) s-21310 #f)
1065 (set-source-properties! x-21308 s-21310))
1067 (if (if (null? (car w-21309))
1068 (null? (cdr w-21309))
1071 (if (if (vector? x-21315)
1072 (if (= (vector-length x-21315) 4)
1073 (eq? (vector-ref x-21315 0) 'syntax-object)
1076 (let ((expression-21347 (vector-ref x-21315 1))
1078 (let ((w2-21356 (vector-ref x-21315 2)))
1079 (let ((m1-21357 (car w-21309))
1080 (s1-21358 (cdr w-21309)))
1081 (if (null? m1-21357)
1082 (if (null? s1-21358)
1084 (cons (car w2-21356)
1085 (let ((m2-21373 (cdr w2-21356)))
1086 (if (null? m2-21373)
1088 (append s1-21358 m2-21373)))))
1089 (cons (let ((m2-21381 (car w2-21356)))
1090 (if (null? m2-21381)
1092 (append m1-21357 m2-21381)))
1093 (let ((m2-21389 (cdr w2-21356)))
1094 (if (null? m2-21389)
1096 (append s1-21358 m2-21389))))))))
1097 (module-21349 (vector-ref x-21315 3)))
1110 (expand-sequence-4581
1111 (lambda (body-36926 r-36927 w-36928 s-36929 mod-36930)
1112 (build-sequence-4532
1116 (lambda (body-37101 r-37102 w-37103 mod-37104)
1117 (if (null? body-37101)
1136 (expand-top-sequence-4582
1145 (cons '("placeholder" placeholder) r-21419)))
1146 (let ((ribcage-21426 (vector 'ribcage '() '() '())))
1149 (cons ribcage-21426 (cdr w-21420)))))
1151 ((record-definition!-21428
1152 (lambda (id-24805 var-24806)
1154 (cons 'hygiene (module-name (current-module)))))
1156 (cons (vector-ref id-24805 3)
1157 (if (if (vector? var-24806)
1158 (if (= (vector-length var-24806) 4)
1159 (eq? (vector-ref var-24806 0)
1163 (let ((expression-24875
1164 (vector-ref var-24806 1))
1170 (cons (let ((m2-24893
1172 (if (null? m2-24893)
1179 (if (null? m2-24902)
1185 (vector-ref var-24806 3)))
1191 (if (null? var-24806)
1200 (cons (vector-ref id-24805 1)
1201 (vector-ref ribcage-21426 1))))
1202 (vector-set! ribcage-21426 1 update-24816))
1204 (cons (car (vector-ref id-24805 2))
1205 (vector-ref ribcage-21426 2))))
1206 (vector-set! ribcage-21426 2 update-24831))
1209 (vector-ref ribcage-21426 3))))
1210 (vector-set! ribcage-21426 3 update-24846)))))))
1221 (lambda (body-21716 exps-21717)
1222 (if (null? body-21716)
1236 (lp-21633 body-21626 '()))))
1251 (source-annotation-4544 x-21787)
1262 (if (eqv? type-21979 'define-form)
1264 (if (if (null? (car w-21983))
1265 (null? (cdr w-21983))
1268 (if (if (vector? value-21980)
1269 (if (= (vector-length value-21980)
1271 (eq? (vector-ref value-21980 0)
1275 (let ((expression-22039
1276 (vector-ref value-21980 1))
1286 (if (null? m1-22051)
1287 (if (null? s1-22052)
1289 (cons (car w2-22050)
1292 (if (null? m2-22069)
1297 (cons (let ((m2-22077
1299 (if (null? m2-22077)
1306 (if (null? m2-22085)
1312 (vector-ref value-21980 3)))
1318 (if (null? value-21980)
1329 (symbol->string (gensym "-")))
1337 (vector-ref id-21989 1)
1341 (hash (syntax->datum x-21787)
1342 most-positive-fixnum)
1344 (vector-ref id-21989 1))))
1346 (record-definition!-21428
1349 (list (if (eq? m-21791 'c&e)
1351 (build-global-definition-4525
1360 (top-level-eval-hook-4509
1363 (lambda () x-22211)))
1365 (build-global-definition-4525
1373 (if (if (eqv? type-21979 'define-syntax-form)
1376 'define-syntax-parameter-form))
1378 (if (if (null? (car w-21983))
1379 (null? (cdr w-21983))
1382 (if (if (vector? value-21980)
1383 (if (= (vector-length
1386 (eq? (vector-ref value-21980 0)
1390 (let ((expression-22755
1391 (vector-ref value-21980 1))
1401 (if (null? m1-22767)
1402 (if (null? s1-22768)
1404 (cons (car w2-22766)
1407 (if (null? m2-22785)
1412 (cons (let ((m2-22793
1414 (if (null? m2-22793)
1421 (if (null? m2-22801)
1427 (vector-ref value-21980 3)))
1433 (if (null? value-21980)
1444 (symbol->string (gensym "-")))
1452 (vector-ref id-22705 1)
1456 (hash (syntax->datum x-21787)
1457 most-positive-fixnum)
1459 (vector-ref id-22705 1))))
1461 (record-definition!-21428
1464 (if (eqv? m-21791 'c)
1465 (if (memq 'compile esew-21792)
1467 (expand-install-global-4583
1476 (top-level-eval-hook-4509
1479 (if (memq 'load esew-21792)
1480 (list (lambda () e-22930))
1482 (if (memq 'load esew-21792)
1484 (expand-install-global-4583
1493 (if (eqv? m-21791 'c&e)
1495 (expand-install-global-4583
1504 (top-level-eval-hook-4509
1507 (list (lambda () e-23433))))
1509 (if (memq 'eval esew-21792)
1510 (top-level-eval-hook-4509
1511 (expand-install-global-4583
1521 (if (eqv? type-21979 'begin-form)
1540 "source expression failed to match any pattern"
1542 (if (eqv? type-21979 'local-syntax-form)
1543 (expand-local-syntax-4591
1550 (lambda (forms-24090
1563 (if (eqv? type-21979 'eval-when-form)
1567 '(_ each-any any . each-any))))
1570 (lambda (x-24134 e1-24135 e2-24136)
1571 (let ((when-list-24137
1572 (parse-when-list-4584
1576 (cons e1-24135 e2-24136)))
1579 (lambda (m-24725 esew-24726)
1588 (if (eq? m-21791 'e)
1601 (expand-top-sequence-4582
1632 (if (if (eq? m-21791 'c)
1656 (expand-top-sequence-4582
1671 "source expression failed to match any pattern"
1673 (list (if (eq? m-21791 'c&e)
1685 (primitive-eval x-24796)
1686 (lambda () x-24796)))
1696 mod-21985))))))))))))))
1698 (map (lambda (x-21556) (x-21556))
1708 (if (null? exps-21433)
1709 (make-struct/no-tail
1710 (vector-ref %expanded-vtables 0)
1712 (build-sequence-4532 s-21421 exps-21433)))))))))
1713 (expand-install-global-4583
1714 (lambda (name-24924 type-24925 e-24926)
1717 (if (eq? type-24925 'define-syntax-parameter-form)
1718 (list (make-struct/no-tail
1719 (vector-ref %expanded-vtables 1)
1722 (make-struct/no-tail
1723 (vector-ref %expanded-vtables 1)
1726 (let ((args-24966 (list e-24926)))
1727 (make-struct/no-tail
1728 (vector-ref %expanded-vtables 12)
1732 (list (make-struct/no-tail
1733 (vector-ref %expanded-vtables 1)
1736 (make-struct/no-tail
1737 (vector-ref %expanded-vtables 1)
1741 (make-struct/no-tail
1742 (vector-ref %expanded-vtables 12)
1744 'make-syntax-transformer
1747 (if (if (struct? exp-24932)
1748 (eq? (struct-vtable exp-24932)
1749 (vector-ref %expanded-vtables 14))
1751 (let ((meta-24993 (struct-ref exp-24932 1)))
1752 (if (not (assq 'name meta-24993))
1754 (cons (cons 'name name-24924) meta-24993)))
1755 (struct-set! exp-24932 1 v-25000)))))
1756 (make-struct/no-tail
1757 (vector-ref %expanded-vtables 9)
1761 (parse-when-list-4584
1762 (lambda (e-25011 when-list-25012)
1763 (let ((result-25013 (strip-4599 when-list-25012 '(()))))
1769 (if (let ((t-25082 (car l-25080)))
1770 (if (eq? t-25082 'compile)
1772 (if (eq? t-25082 'load)
1774 (if (eq? t-25082 'eval)
1776 (eq? t-25082 'expand)))))
1777 (lp-25014 (cdr l-25080))
1783 (lp-25014 result-25013)))))
1792 (if (symbol? e-25084)
1795 (resolve-identifier-4571
1801 (lambda (type-25093 value-25094 mod*-25095)
1802 (if (eqv? type-25093 'macro)
1827 (if (eqv? type-25093 'global)
1845 (let ((first-25104 (car e-25084)))
1856 (lambda (ftype-25106
1863 (if (eqv? ftype-25106 'lexical)
1872 (if (eqv? ftype-25106 'global)
1885 (if (eqv? ftype-25106 'macro)
1901 (if (eqv? ftype-25106 'module-ref)
1903 (lambda () (fval-25107 e-25084 r-25085 w-25086))
1917 (if (eqv? ftype-25106 'core)
1926 (if (eqv? ftype-25106 'local-syntax)
1935 (if (eqv? ftype-25106 'begin)
1944 (if (eqv? ftype-25106 'eval-when)
1953 (if (eqv? ftype-25106 'define)
1960 (lambda (name-25158 val-25159)
1961 (if (symbol? name-25158)
1963 (if (if (vector? name-25158)
1964 (if (= (vector-length
1981 (lambda (name-25186 val-25187)
2009 (if (= (vector-length
2023 (valid-bound-ids?-4576
2024 (lambda-var-list-4601
2036 (if (if (null? (car w-25086))
2037 (null? (cdr w-25086))
2042 (if (= (vector-length
2051 (let ((expression-25691
2064 (if (null? m1-25703)
2065 (if (null? s1-25704)
2067 (cons (car w2-25702)
2070 (if (null? m2-25721)
2075 (cons (let ((m2-25729
2077 (if (null? m2-25729)
2084 (if (null? m2-25737)
2098 (if (null? name-25658)
2105 (if (if (null? (car w-25086))
2106 (null? (cdr w-25086))
2109 (if (if (vector? e-25084)
2110 (if (= (vector-length
2119 (let ((expression-25789
2132 (if (null? m1-25801)
2133 (if (null? s1-25802)
2135 (cons (car w2-25800)
2138 (if (null? m2-25819)
2143 (cons (let ((m2-25827
2145 (if (null? m2-25827)
2152 (if (null? m2-25835)
2174 (cons '#(syntax-object
2268 expand-simple-lambda
2272 eval-local-transformer
2281 expand-install-global
2291 with-transformer-environment
2292 transformer-environment
2294 locally-bound-identifiers
2311 set-ribcage-symnames!
2342 set-syntax-object-module!
2343 set-syntax-object-wrap!
2344 set-syntax-object-expression!
2345 syntax-object-module
2347 syntax-object-expression
2361 build-global-definition
2362 build-global-assignment
2363 build-global-reference
2365 build-lexical-assignment
2366 build-lexical-reference
2373 get-global-definition-hook
2374 put-global-definition-hook
2394 make-toplevel-define
2688 define-expansion-accessors
2689 define-expansion-constructors)
2706 (if (if (null? (car w-25086))
2707 (null? (cdr w-25086))
2712 (if (= (vector-length
2721 (let ((expression-25883
2734 (if (null? m1-25893)
2735 (if (null? s1-25894)
2737 (cons (car w2-25892)
2740 (if (null? m2-25909)
2745 (cons (let ((m2-25917
2747 (if (null? m2-25917)
2754 (if (null? m2-25925)
2776 (if (if (pair? e-25861)
2779 (set-source-properties!
2793 (lambda (name-25948)
2799 (if (= (vector-length
2816 (lambda (name-25975)
2819 (if (if (null? (car w-25086))
2820 (null? (cdr w-25086))
2825 (if (= (vector-length
2834 (let ((expression-26005
2847 (if (null? m1-26017)
2848 (if (null? s1-26018)
2850 (cons (car w2-26016)
2853 (if (null? m2-26035)
2858 (cons (let ((m2-26043
2860 (if (null? m2-26043)
2867 (if (null? m2-26051)
2881 (if (null? name-25975)
2888 (if (if (null? (car w-25086))
2889 (null? (cdr w-25086))
2894 (if (= (vector-length
2903 (let ((expression-26103
2916 (if (null? m1-26115)
2917 (if (null? s1-26116)
2919 (cons (car w2-26114)
2922 (if (null? m2-26133)
2927 (cons (let ((m2-26141
2929 (if (null? m2-26141)
2936 (if (null? m2-26149)
3024 expand-simple-lambda
3028 eval-local-transformer
3037 expand-install-global
3047 with-transformer-environment
3048 transformer-environment
3050 locally-bound-identifiers
3067 set-ribcage-symnames!
3098 set-syntax-object-module!
3099 set-syntax-object-wrap!
3100 set-syntax-object-expression!
3101 syntax-object-module
3103 syntax-object-expression
3117 build-global-definition
3118 build-global-assignment
3119 build-global-reference
3121 build-lexical-assignment
3122 build-lexical-reference
3129 get-global-definition-hook
3130 put-global-definition-hook
3150 make-toplevel-define
3444 define-expansion-accessors
3445 define-expansion-constructors)
3524 expand-simple-lambda
3528 eval-local-transformer
3537 expand-install-global
3547 with-transformer-environment
3548 transformer-environment
3550 locally-bound-identifiers
3567 set-ribcage-symnames!
3598 set-syntax-object-module!
3599 set-syntax-object-wrap!
3600 set-syntax-object-expression!
3601 syntax-object-module
3603 syntax-object-expression
3617 build-global-definition
3618 build-global-assignment
3619 build-global-reference
3621 build-lexical-assignment
3622 build-lexical-reference
3629 get-global-definition-hook
3630 put-global-definition-hook
3650 make-toplevel-define
3944 define-expansion-accessors
3945 define-expansion-constructors)
4024 expand-simple-lambda
4028 eval-local-transformer
4037 expand-install-global
4047 with-transformer-environment
4048 transformer-environment
4050 locally-bound-identifiers
4067 set-ribcage-symnames!
4098 set-syntax-object-module!
4099 set-syntax-object-wrap!
4100 set-syntax-object-expression!
4101 syntax-object-module
4103 syntax-object-expression
4117 build-global-definition
4118 build-global-assignment
4119 build-global-reference
4121 build-lexical-assignment
4122 build-lexical-reference
4129 get-global-definition-hook
4130 put-global-definition-hook
4150 make-toplevel-define
4444 define-expansion-accessors
4445 define-expansion-constructors)
4463 "source expression failed to match any pattern"
4465 (if (eqv? ftype-25106 'define-syntax)
4472 (lambda (name-26192 val-26193)
4473 (if (symbol? name-26192)
4477 (if (= (vector-length
4494 (lambda (name-26220 val-26221)
4506 "source expression failed to match any pattern"
4508 (if (eqv? ftype-25106
4509 'define-syntax-parameter)
4518 (if (symbol? name-26236)
4522 (if (= (vector-length
4539 (lambda (name-26264 val-26265)
4541 'define-syntax-parameter-form
4551 "source expression failed to match any pattern"
4560 mod-25089)))))))))))))))
4561 (if (if (vector? e-25084)
4562 (if (= (vector-length e-25084) 4)
4563 (eq? (vector-ref e-25084 0) 'syntax-object)
4567 (vector-ref e-25084 1)
4569 (let ((w2-26290 (vector-ref e-25084 2)))
4570 (let ((m1-26291 (car w-25086))
4571 (s1-26292 (cdr w-25086)))
4572 (if (null? m1-26291)
4573 (if (null? s1-26292)
4575 (cons (car w2-26290)
4576 (let ((m2-26303 (cdr w2-26290)))
4577 (if (null? m2-26303)
4579 (append s1-26292 m2-26303)))))
4580 (cons (let ((m2-26311 (car w2-26290)))
4581 (if (null? m2-26311)
4583 (append m1-26291 m2-26311)))
4584 (let ((m2-26319 (cdr w2-26290)))
4585 (if (null? m2-26319)
4587 (append s1-26292 m2-26319)))))))
4588 (let ((t-26324 (source-annotation-4544 e-25084)))
4589 (if t-26324 t-26324 s-25087))
4591 (let ((t-26600 (vector-ref e-25084 3)))
4592 (if t-26600 t-26600 mod-25089))
4594 (if (self-evaluating? e-25084)
4612 (lambda (e-26609 r-26610 w-26611 mod-26612)
4619 (source-annotation-4544 e-26609)
4648 (if (eqv? type-26807 'lexical)
4649 (make-struct/no-tail
4650 (vector-ref %expanded-vtables 3)
4654 (if (if (eqv? type-26807 'core)
4656 (eqv? type-26807 'core-form))
4663 (if (eqv? type-26807 'module-ref)
4665 (lambda () (value-26808 e-26810 r-26811 w-26812))
4666 (lambda (e-26840 r-26841 w-26842 s-26843 mod-26844)
4667 (expand-4586 e-26840 r-26841 w-26842 mod-26844)))
4668 (if (eqv? type-26807 'lexical-call)
4670 (let ((id-27017 (car e-26810)))
4671 (build-lexical-reference-4520
4673 (source-annotation-4544 id-27017)
4674 (if (if (vector? id-27017)
4675 (if (= (vector-length id-27017) 4)
4676 (eq? (vector-ref id-27017 0) 'syntax-object)
4679 (syntax->datum id-27017)
4687 (if (eqv? type-26807 'global-call)
4689 (build-global-reference-4523
4690 (source-annotation-4544 (car e-26810))
4691 (if (if (vector? value-26808)
4692 (if (= (vector-length value-26808) 4)
4693 (eq? (vector-ref value-26808 0) 'syntax-object)
4696 (vector-ref value-26808 1)
4698 (if (if (vector? value-26808)
4699 (if (= (vector-length value-26808) 4)
4700 (eq? (vector-ref value-26808 0) 'syntax-object)
4703 (vector-ref value-26808 3)
4710 (if (eqv? type-26807 'constant)
4715 (if (if (pair? e-26810) s-26813 #f)
4716 (set-source-properties!
4720 (if (if (null? (car w-26812))
4721 (null? (cdr w-26812))
4724 (if (if (vector? x-27704)
4725 (if (= (vector-length x-27704) 4)
4726 (eq? (vector-ref x-27704 0)
4730 (let ((expression-27736
4731 (vector-ref x-27704 1))
4734 (vector-ref x-27704 2)))
4735 (let ((m1-27746 (car w-26812))
4736 (s1-27747 (cdr w-26812)))
4737 (if (null? m1-27746)
4738 (if (null? s1-27747)
4740 (cons (car w2-27745)
4743 (if (null? m2-27762)
4748 (cons (let ((m2-27770
4750 (if (null? m2-27770)
4757 (if (null? m2-27778)
4763 (vector-ref x-27704 3)))
4777 (make-struct/no-tail
4778 (vector-ref %expanded-vtables 1)
4781 (if (eqv? type-26807 'global)
4782 (analyze-variable-4522
4785 (lambda (mod-27803 var-27804 public?-27805)
4786 (make-struct/no-tail
4787 (vector-ref %expanded-vtables 5)
4793 (make-struct/no-tail
4794 (vector-ref %expanded-vtables 7)
4797 (if (eqv? type-26807 'call)
4809 (if (eqv? type-26807 'begin-form)
4811 ($sc-dispatch e-26810 '(_ any . each-any))))
4814 (lambda (e1-27987 e2-27988)
4815 (expand-sequence-4581
4816 (cons e1-27987 e2-27988)
4822 (let ((tmp-28083 ($sc-dispatch e-26810 '(_))))
4828 "sequence of zero expressions"
4831 (if (if (pair? e-26810)
4834 (set-source-properties!
4838 (if (if (null? (car w-26812))
4839 (null? (cdr w-26812))
4842 (if (if (vector? x-28096)
4843 (if (= (vector-length
4852 (let ((expression-28128
4853 (vector-ref x-28096 1))
4863 (if (null? m1-28138)
4864 (if (null? s1-28139)
4866 (cons (car w2-28137)
4869 (if (null? m2-28154)
4874 (cons (let ((m2-28162
4876 (if (null? m2-28162)
4883 (if (null? m2-28170)
4889 (vector-ref x-28096 3)))
4905 "source expression failed to match any pattern"
4907 (if (eqv? type-26807 'local-syntax-form)
4908 (expand-local-syntax-4591
4915 expand-sequence-4581)
4916 (if (eqv? type-26807 'eval-when-form)
4920 '(_ each-any any . each-any))))
4923 (lambda (x-28269 e1-28270 e2-28271)
4924 (let ((when-list-28272
4925 (parse-when-list-4584
4928 (if (memq 'eval when-list-28272)
4929 (expand-sequence-4581
4930 (cons e1-28270 e2-28271)
4935 (make-struct/no-tail
4936 (vector-ref %expanded-vtables 0)
4941 "source expression failed to match any pattern"
4943 (if (if (eqv? type-26807 'define-form)
4945 (if (eqv? type-26807 'define-syntax-form)
4948 'define-syntax-parameter-form)))
4951 "definition in expression context, where definitions are not allowed,"
4954 (if (if (pair? form-26809)
4957 (set-source-properties!
4961 (if (if (null? (car w-26812))
4962 (null? (cdr w-26812))
4965 (if (if (vector? x-28458)
4966 (if (= (vector-length x-28458) 4)
4967 (eq? (vector-ref x-28458 0)
4971 (let ((expression-28490
4972 (vector-ref x-28458 1))
4982 (if (null? m1-28500)
4983 (if (null? s1-28501)
4985 (cons (car w2-28499)
4988 (if (null? m2-28516)
4993 (cons (let ((m2-28524
4995 (if (null? m2-28524)
5002 (if (null? m2-28532)
5008 (vector-ref x-28458 3)))
5021 (if (eqv? type-26807 'syntax)
5024 "reference to pattern variable outside syntax form"
5027 (if (if (pair? e-26810)
5030 (set-source-properties!
5034 (if (if (null? (car w-26812))
5035 (null? (cdr w-26812))
5038 (if (if (vector? x-28559)
5039 (if (= (vector-length x-28559)
5041 (eq? (vector-ref x-28559 0)
5045 (let ((expression-28591
5046 (vector-ref x-28559 1))
5056 (if (null? m1-28601)
5057 (if (null? s1-28602)
5059 (cons (car w2-28600)
5062 (if (null? m2-28617)
5067 (cons (let ((m2-28625
5069 (if (null? m2-28625)
5076 (if (null? m2-28633)
5082 (vector-ref x-28559 3)))
5095 (if (eqv? type-26807 'displaced-lexical)
5098 "reference to identifier outside its scope"
5101 (if (if (pair? e-26810)
5104 (set-source-properties!
5108 (if (if (null? (car w-26812))
5109 (null? (cdr w-26812))
5112 (if (if (vector? x-28660)
5113 (if (= (vector-length x-28660)
5115 (eq? (vector-ref x-28660 0)
5119 (let ((expression-28692
5120 (vector-ref x-28660 1))
5130 (if (null? m1-28702)
5131 (if (null? s1-28703)
5133 (cons (car w2-28701)
5136 (if (null? m2-28718)
5141 (cons (let ((m2-28726
5143 (if (null? m2-28726)
5150 (if (null? m2-28734)
5156 (vector-ref x-28660 3)))
5174 (if (if (pair? e-26810)
5177 (set-source-properties!
5181 (if (if (null? (car w-26812))
5182 (null? (cdr w-26812))
5185 (if (if (vector? x-28758)
5186 (if (= (vector-length x-28758)
5188 (eq? (vector-ref x-28758 0)
5192 (let ((expression-28790
5193 (vector-ref x-28758 1))
5203 (if (null? m1-28800)
5204 (if (null? s1-28801)
5206 (cons (car w2-28799)
5209 (if (null? m2-28816)
5214 (cons (let ((m2-28824
5216 (if (null? m2-28824)
5223 (if (null? m2-28832)
5229 (vector-ref x-28758 3)))
5241 mod-26814))))))))))))))))))))))
5250 ($sc-dispatch e-28848 '(any . each-any))))
5253 (lambda (e0-28858 e1-28859)
5257 (map (lambda (e-28947)
5258 (expand-4586 e-28947 r-28849 w-28850 mod-28852))
5263 "source expression failed to match any pattern"
5274 ((rebuild-macro-output-29038
5275 (lambda (x-29147 m-29148)
5278 (cons (rebuild-macro-output-29038
5281 (rebuild-macro-output-29038
5285 (if (if (pair? e-29152) s-29035 #f)
5286 (set-source-properties! e-29152 s-29035))
5288 (if (if (vector? x-29147)
5289 (if (= (vector-length x-29147) 4)
5290 (eq? (vector-ref x-29147 0) 'syntax-object)
5293 (let ((w-29168 (vector-ref x-29147 2)))
5294 (let ((ms-29169 (car w-29168))
5295 (s-29170 (cdr w-29168)))
5296 (if (if (pair? ms-29169) (eq? (car ms-29169) #f) #f)
5297 (let ((expression-29178 (vector-ref x-29147 1))
5299 (cons (cdr ms-29169)
5301 (cons rib-29036 (cdr s-29170))
5303 (module-29180 (vector-ref x-29147 3)))
5309 (let ((expression-29190
5310 (let ((e-29195 (vector-ref x-29147 1)))
5312 (if (if (pair? e-29195) s-29170 #f)
5313 (set-source-properties!
5318 (cons (cons m-29148 ms-29169)
5321 (cons 'shift s-29170))
5322 (cons 'shift s-29170))))
5323 (module-29192 (vector-ref x-29147 3)))
5329 (if (vector? x-29147)
5330 (let ((n-29207 (vector-length x-29147)))
5332 (let ((e-29274 (make-vector n-29207)))
5334 (if (if (pair? e-29274) x-29147 #f)
5335 (set-source-properties! e-29274 x-29147))
5340 (if (= i-29270 n-29207)
5346 (rebuild-macro-output-29038
5347 (vector-ref x-29147 i-29270)
5349 (loop-29209 (#{1+}# i-29270)))))))
5351 (if (symbol? x-29147)
5354 "encountered raw symbol in macro output"
5355 (let ((s-29285 (cdr w-29034)))
5358 (if (if (pair? e-29032) s-29285 #f)
5359 (set-source-properties!
5363 (if (if (null? (car w-29034))
5364 (null? (cdr w-29034))
5367 (if (if (vector? x-29289)
5368 (if (= (vector-length x-29289) 4)
5369 (eq? (vector-ref x-29289 0)
5373 (let ((expression-29321
5374 (vector-ref x-29289 1))
5377 (vector-ref x-29289 2)))
5378 (let ((m1-29331 (car w-29034))
5379 (s1-29332 (cdr w-29034)))
5380 (if (null? m1-29331)
5381 (if (null? s1-29332)
5383 (cons (car w2-29330)
5386 (if (null? m2-29347)
5391 (cons (let ((m2-29355
5393 (if (null? m2-29355)
5400 (if (null? m2-29363)
5405 (module-29323 (vector-ref x-29289 3)))
5420 (if (if (pair? x-29147) s-29035 #f)
5421 (set-source-properties! x-29147 s-29035))
5424 ((transformer-environment-4572
5433 (rebuild-macro-output-29038
5436 (cons (cons #f (car w-29034))
5437 (cons 'shift (cdr w-29034)))))
5440 (if (if (pair? e-29032) s-29035 #f)
5441 (set-source-properties! e-29032 s-29035))
5443 (if (if (null? (car w-29046))
5444 (null? (cdr w-29046))
5447 (if (if (vector? x-29051)
5448 (if (= (vector-length x-29051) 4)
5449 (eq? (vector-ref x-29051 0) 'syntax-object)
5452 (let ((expression-29090 (vector-ref x-29051 1))
5454 (let ((w2-29099 (vector-ref x-29051 2)))
5455 (let ((m1-29100 (car w-29046))
5456 (s1-29101 (cdr w-29046)))
5457 (if (null? m1-29100)
5458 (if (null? s1-29101)
5460 (cons (car w2-29099)
5461 (let ((m2-29116 (cdr w2-29099)))
5462 (if (null? m2-29116)
5467 (cons (let ((m2-29124 (car w2-29099)))
5468 (if (null? m2-29124)
5470 (append m1-29100 m2-29124)))
5471 (let ((m2-29132 (cdr w2-29099)))
5472 (if (null? m2-29132)
5477 (module-29092 (vector-ref x-29051 3)))
5491 (string-append "m-" (session-id-4511) "-")))))))
5499 (cons '("placeholder" placeholder) r-29395)))
5500 (let ((ribcage-29399 (vector 'ribcage '() '() '())))
5503 (cons ribcage-29399 (cdr w-29396)))))
5513 (if (null? body-29509)
5516 "no expressions in body"
5518 (let ((e-29516 (cdr (car body-29509)))
5519 (er-29517 (car (car body-29509))))
5526 (source-annotation-4544 er-29517)
5537 (if (eqv? type-29705 'define-form)
5539 (if (if (null? (car w-29709))
5540 (null? (cdr w-29709))
5543 (if (if (vector? value-29706)
5544 (if (= (vector-length
5553 (let ((expression-29760
5554 (vector-ref value-29706 1))
5564 (if (null? m1-29772)
5565 (if (null? s1-29773)
5567 (cons (car w2-29771)
5570 (if (null? m2-29790)
5575 (cons (let ((m2-29798
5577 (if (null? m2-29798)
5584 (if (null? m2-29806)
5598 (if (null? value-29706)
5609 (symbol->string (gensym "-")))))
5612 (if (if (vector? id-29715)
5613 (if (= (vector-length
5622 (vector-ref id-29715 1)
5626 (symbol->string id-29867)
5631 (cons (vector-ref id-29715 1)
5640 (cons (car (vector-ref
5661 (cons id-29715 ids-29510)
5662 (cons label-29716 labels-29511)
5663 (cons id-29715 var-ids-29512)
5664 (cons var-29717 vars-29513)
5665 (cons (cons er-29517
5666 (if (if (null? (car w-29709))
5667 (null? (cdr w-29709))
5670 (if (if (vector? e-29708)
5671 (if (= (vector-length
5680 (let ((expression-29919
5693 (if (null? m1-29931)
5694 (if (null? s1-29932)
5696 (cons (car w2-29930)
5699 (if (null? m2-29949)
5704 (cons (let ((m2-29957
5706 (if (null? m2-29957)
5713 (if (null? m2-29965)
5735 (cons (cons 'lexical var-29717)
5737 (if (if (eqv? type-29705 'define-syntax-form)
5740 'define-syntax-parameter-form))
5742 (if (if (null? (car w-29709))
5743 (null? (cdr w-29709))
5746 (if (if (vector? value-29706)
5747 (if (= (vector-length
5756 (let ((expression-30040
5769 (if (null? m1-30052)
5770 (if (null? s1-30053)
5772 (cons (car w2-30051)
5775 (if (null? m2-30070)
5780 (cons (let ((m2-30078
5782 (if (null? m2-30078)
5789 (if (null? m2-30086)
5803 (if (null? value-29706)
5814 (symbol->string (gensym "-")))))
5818 (cons (vector-ref id-29996 1)
5827 (cons (car (vector-ref
5848 (cons id-29996 ids-29510)
5849 (cons label-29997 labels-29511)
5853 (cons (cons (if (eq? type-29705
5854 'define-syntax-parameter-form)
5858 (if (if (null? (car w-29709))
5859 (null? (cdr w-29709))
5864 (if (= (vector-length
5873 (let ((expression-30172
5886 (if (null? m1-30184)
5887 (if (null? s1-30185)
5889 (cons (car w2-30183)
5892 (if (null? m2-30202)
5897 (cons (let ((m2-30210
5899 (if (null? m2-30210)
5906 (if (null? m2-30218)
5928 (if (eqv? type-29705 'begin-form)
5939 (lambda (forms-30451)
5940 (if (null? forms-30451)
5942 (cons (cons er-29517
5945 (if (if (null? (car w-29709))
5946 (null? (cdr w-29709))
5951 (if (= (vector-length
5960 (let ((expression-30473
5973 (if (null? m1-30483)
5974 (if (null? s1-30484)
5976 (cons (car w2-30482)
5979 (if (null? m2-30499)
5984 (cons (let ((m2-30507
5986 (if (null? m2-30507)
5993 (if (null? m2-30515)
6015 (cdr forms-30451)))))))
6026 "source expression failed to match any pattern"
6028 (if (eqv? type-29705 'local-syntax-form)
6029 (expand-local-syntax-4591
6036 (lambda (forms-30541
6044 (lambda (forms-30747)
6045 (if (null? forms-30747)
6047 (cons (cons er-30542
6050 (if (if (null? (car w-30543))
6051 (null? (cdr w-30543))
6056 (if (= (vector-length
6065 (let ((expression-30769
6078 (if (null? m1-30779)
6079 (if (null? s1-30780)
6081 (cons (car w2-30778)
6084 (if (null? m2-30795)
6089 (cons (let ((m2-30803
6091 (if (null? m2-30803)
6098 (if (null? m2-30811)
6120 (cdr forms-30747)))))))
6121 (f-30546 forms-30541))
6128 (if (null? ids-29510)
6129 (build-sequence-4532
6131 (map (lambda (x-30896)
6137 (cons (cons er-29517
6140 (if (if (pair? e-29708)
6143 (set-source-properties!
6147 (if (if (null? (car w-29709))
6148 (null? (cdr w-29709))
6153 (if (= (vector-length
6162 (let ((expression-31003
6175 (if (null? m1-31013)
6176 (if (null? s1-31014)
6178 (cons (car w2-31012)
6181 (if (null? m2-31029)
6186 (cons (let ((m2-31037
6188 (if (null? m2-31037)
6195 (if (null? m2-31045)
6218 (if (not (valid-bound-ids?-4576
6222 "invalid or duplicate identifier in definition"
6229 (if (not (null? bs-31147))
6238 'syntax-parameter)))
6240 (car (cdr b-31150))))
6241 (let ((r-cache-31156
6245 (macros-only-env-4547
6250 (eval-local-transformer-4592
6257 (if (eq? (car b-31150)
6261 (list (cdr b-31150))))
6269 r-cache-31149)))))))
6270 (loop-31144 bindings-29515 #f #f))
6283 (reverse vars-29513)
6284 (map (lambda (x-31576)
6290 (reverse vals-29514))
6291 (build-sequence-4532
6293 (map (lambda (x-31712)
6299 (cons (cons er-29517
6302 (if (if (pair? e-29708)
6305 (set-source-properties!
6309 (if (if (null? (car w-29709))
6310 (null? (cdr w-29709))
6315 (if (= (vector-length
6324 (let ((expression-31819
6337 (if (null? m1-31829)
6338 (if (null? s1-31830)
6340 (cons (car w2-31828)
6343 (if (null? m2-31845)
6348 (cons (let ((m2-31853
6350 (if (null? m2-31853)
6357 (if (null? m2-31861)
6378 (cdr body-29509))))))))))))))))))
6380 (map (lambda (x-29404)
6382 (if (if (null? (car w-29400))
6383 (null? (cdr w-29400))
6386 (if (if (vector? x-29404)
6387 (if (= (vector-length x-29404) 4)
6388 (eq? (vector-ref x-29404 0)
6392 (let ((expression-29440
6393 (vector-ref x-29404 1))
6396 (vector-ref x-29404 2)))
6397 (let ((m1-29452 (car w-29400))
6398 (s1-29453 (cdr w-29400)))
6399 (if (null? m1-29452)
6400 (if (null? s1-29453)
6402 (cons (car w2-29451)
6405 (if (null? m2-29470)
6410 (cons (let ((m2-29478
6412 (if (null? m2-29478)
6419 (if (null? m2-29486)
6425 (vector-ref x-29404 3)))
6445 (expand-local-syntax-4591
6456 '(_ #(each (any any)) any . each-any))))
6459 (lambda (id-31888 val-31889 e1-31890 e2-31891)
6460 (if (not (valid-bound-ids?-4576 id-31888))
6463 "duplicate bound keyword"
6465 (let ((labels-31988 (gen-labels-4553 id-31888)))
6467 (make-binding-wrap-4564
6472 (cons e1-31890 e2-31891)
6475 (let ((trans-r-32027
6476 (macros-only-env-4547 r-31878)))
6478 (if rec?-31876 new-w-31989 w-31879)
6479 (map (lambda (x-32028)
6481 (eval-local-transformer-4592
6499 "bad local syntax definition"
6502 (if (if (pair? e-31877) s-31880 #f)
6503 (set-source-properties! e-31877 s-31880))
6505 (if (if (null? (car w-31879))
6506 (null? (cdr w-31879))
6509 (if (if (vector? x-32335)
6510 (if (= (vector-length x-32335) 4)
6511 (eq? (vector-ref x-32335 0) 'syntax-object)
6514 (let ((expression-32367 (vector-ref x-32335 1))
6516 (let ((w2-32376 (vector-ref x-32335 2)))
6517 (let ((m1-32377 (car w-31879))
6518 (s1-32378 (cdr w-31879)))
6519 (if (null? m1-32377)
6520 (if (null? s1-32378)
6522 (cons (car w2-32376)
6523 (let ((m2-32393 (cdr w2-32376)))
6524 (if (null? m2-32393)
6526 (append s1-32378 m2-32393)))))
6527 (cons (let ((m2-32401 (car w2-32376)))
6528 (if (null? m2-32401)
6530 (append m1-32377 m2-32401)))
6531 (let ((m2-32409 (cdr w2-32376)))
6532 (if (null? m2-32409)
6534 (append s1-32378 m2-32409))))))))
6535 (module-32369 (vector-ref x-32335 3)))
6548 (eval-local-transformer-4592
6549 (lambda (expanded-32427 mod-32428)
6550 (let ((p-32429 (primitive-eval expanded-32427)))
6551 (if (procedure? p-32429)
6555 "nonprocedure transformer"
6559 (if (if (if (vector? x-6134)
6560 (if (= (vector-length x-6134) 4)
6561 (eq? (vector-ref x-6134 0) 'syntax-object)
6564 (symbol? (vector-ref x-6134 1))
6573 #(ribcage #(x) #((top)) #("l-*-2416"))
6580 expand-simple-lambda
6584 eval-local-transformer
6593 expand-install-global
6603 with-transformer-environment
6604 transformer-environment
6606 locally-bound-identifiers
6623 set-ribcage-symnames!
6654 set-syntax-object-module!
6655 set-syntax-object-wrap!
6656 set-syntax-object-expression!
6657 syntax-object-module
6659 syntax-object-expression
6673 build-global-definition
6674 build-global-assignment
6675 build-global-reference
6677 build-lexical-assignment
6678 build-lexical-reference
6685 get-global-definition-hook
6686 put-global-definition-hook
6706 make-toplevel-define
7000 define-expansion-accessors
7001 define-expansion-constructors)
7003 ("l-*-47" "l-*-46" "l-*-45"))
7004 #(ribcage () () ()))
7007 (lambda-formals-4595
7008 (lambda (orig-args-32434)
7011 (lambda (args-32439 rreq-32440)
7012 (let ((tmp-32442 ($sc-dispatch args-32439 '())))
7015 (lambda () (check-32436 (reverse rreq-32440) #f))
7018 ($sc-dispatch args-32439 '(any . any))))
7021 (lambda (a-32562 b-32563)
7022 (if (symbol? a-32562)
7024 (if (if (vector? a-32562)
7025 (if (= (vector-length a-32562) 4)
7026 (eq? (vector-ref a-32562 0)
7030 (symbol? (vector-ref a-32562 1))
7035 (lambda (a-32590 b-32591)
7036 (req-32435 b-32591 (cons a-32590 rreq-32440)))
7038 (let ((tmp-32592 (list args-32439)))
7041 (if (symbol? r-32594)
7043 (if (if (vector? r-32594)
7044 (if (= (vector-length r-32594) 4)
7045 (eq? (vector-ref r-32594 0)
7049 (symbol? (vector-ref r-32594 1))
7054 (check-32436 (reverse rreq-32440) r-32624))
7058 "invalid argument list"
7062 (lambda (req-32748 rest-32749)
7063 (if (distinct-bound-ids?-4577
7065 (cons rest-32749 req-32748)
7067 (values req-32748 #f rest-32749 #f)
7070 "duplicate identifier in argument list"
7071 orig-args-32434)))))
7072 (req-32435 orig-args-32434 '()))))
7073 (expand-simple-lambda-4596
7085 (append req-32863 (list rest-32864))
7087 (let ((vars-32868 (map gen-var-4600 ids-32867)))
7088 (let ((labels-32869 (gen-labels-4553 ids-32867)))
7089 (build-simple-lambda-4526
7091 (map syntax->datum req-32863)
7092 (if rest-32864 (syntax->datum rest-32864) #f)
7099 (if (if (pair? e-32858) s-32861 #f)
7100 (set-source-properties! e-32858 s-32861))
7102 (if (if (null? (car w-32860))
7103 (null? (cdr w-32860))
7106 (if (if (vector? x-33052)
7107 (if (= (vector-length x-33052) 4)
7108 (eq? (vector-ref x-33052 0) 'syntax-object)
7111 (let ((expression-33084 (vector-ref x-33052 1))
7113 (let ((w2-33093 (vector-ref x-33052 2)))
7114 (let ((m1-33094 (car w-32860))
7115 (s1-33095 (cdr w-32860)))
7116 (if (null? m1-33094)
7117 (if (null? s1-33095)
7119 (cons (car w2-33093)
7120 (let ((m2-33110 (cdr w2-33093)))
7121 (if (null? m2-33110)
7126 (cons (let ((m2-33118 (car w2-33093)))
7127 (if (null? m2-33118)
7129 (append m1-33094 m2-33118)))
7130 (let ((m2-33126 (cdr w2-33093)))
7131 (if (null? m2-33126)
7136 (module-33086 (vector-ref x-33052 3)))
7149 (extend-var-env-4546
7153 (make-binding-wrap-4564
7158 (lambda*-formals-4597
7159 (lambda (orig-args-33335)
7162 (lambda (args-33343 rreq-33344)
7163 (let ((tmp-33346 ($sc-dispatch args-33343 '())))
7167 (check-33340 (reverse rreq-33344) '() #f '()))
7170 ($sc-dispatch args-33343 '(any . any))))
7173 (lambda (a-33469 b-33470)
7174 (if (symbol? a-33469)
7176 (if (if (vector? a-33469)
7177 (if (= (vector-length a-33469) 4)
7178 (eq? (vector-ref a-33469 0)
7182 (symbol? (vector-ref a-33469 1))
7187 (lambda (a-33497 b-33498)
7188 (req-33336 b-33498 (cons a-33497 rreq-33344)))
7191 ($sc-dispatch args-33343 '(any . any))))
7194 (lambda (a-33503 b-33504)
7195 (eq? (syntax->datum a-33503) #:optional))
7199 (lambda (a-33505 b-33506)
7200 (opt-33337 b-33506 (reverse rreq-33344) '()))
7203 ($sc-dispatch args-33343 '(any . any))))
7206 (lambda (a-33513 b-33514)
7207 (eq? (syntax->datum a-33513) #:key))
7211 (lambda (a-33515 b-33516)
7214 (reverse rreq-33344)
7219 ($sc-dispatch args-33343 '(any any))))
7222 (lambda (a-33523 b-33524)
7223 (eq? (syntax->datum a-33523)
7228 (lambda (a-33525 b-33526)
7231 (reverse rreq-33344)
7235 (let ((tmp-33529 (list args-33343)))
7238 (if (symbol? r-33531)
7240 (if (if (vector? r-33531)
7241 (if (= (vector-length
7251 (vector-ref r-33531 1))
7258 (reverse rreq-33344)
7264 "invalid argument list"
7266 args-33343)))))))))))))))
7268 (lambda (args-33580 req-33581 ropt-33582)
7269 (let ((tmp-33584 ($sc-dispatch args-33580 '())))
7275 (reverse ropt-33582)
7280 ($sc-dispatch args-33580 '(any . any))))
7283 (lambda (a-33709 b-33710)
7284 (if (symbol? a-33709)
7286 (if (if (vector? a-33709)
7287 (if (= (vector-length a-33709) 4)
7288 (eq? (vector-ref a-33709 0)
7292 (symbol? (vector-ref a-33709 1))
7297 (lambda (a-33737 b-33738)
7308 #("l-*-2555" "l-*-2556"))
7312 #((top) (top) (top))
7317 (check rest key opt req)
7338 expand-simple-lambda
7342 eval-local-transformer
7351 expand-install-global
7361 with-transformer-environment
7362 transformer-environment
7364 locally-bound-identifiers
7381 set-ribcage-symnames!
7412 set-syntax-object-module!
7413 set-syntax-object-wrap!
7414 set-syntax-object-expression!
7415 syntax-object-module
7417 syntax-object-expression
7431 build-global-definition
7432 build-global-assignment
7433 build-global-reference
7435 build-lexical-assignment
7436 build-lexical-reference
7443 get-global-definition-hook
7444 put-global-definition-hook
7464 make-toplevel-define
7758 define-expansion-accessors
7759 define-expansion-constructors)
7761 ("l-*-47" "l-*-46" "l-*-45"))
7762 #(ribcage () () ()))
7767 ($sc-dispatch args-33580 '((any any) . any))))
7770 (lambda (a-33743 init-33744 b-33745)
7771 (if (symbol? a-33743)
7773 (if (if (vector? a-33743)
7774 (if (= (vector-length a-33743) 4)
7775 (eq? (vector-ref a-33743 0)
7779 (symbol? (vector-ref a-33743 1))
7784 (lambda (a-33772 init-33773 b-33774)
7788 (cons (list a-33772 init-33773) ropt-33582)))
7791 ($sc-dispatch args-33580 '(any . any))))
7794 (lambda (a-33779 b-33780)
7795 (eq? (syntax->datum a-33779) #:key))
7799 (lambda (a-33781 b-33782)
7803 (reverse ropt-33582)
7807 ($sc-dispatch args-33580 '(any any))))
7810 (lambda (a-33789 b-33790)
7811 (eq? (syntax->datum a-33789)
7816 (lambda (a-33791 b-33792)
7820 (reverse ropt-33582)
7823 (let ((tmp-33795 (list args-33580)))
7826 (if (symbol? r-33797)
7828 (if (if (vector? r-33797)
7829 (if (= (vector-length
7839 (vector-ref r-33797 1))
7847 (reverse ropt-33582)
7852 "invalid optional argument list"
7854 args-33580)))))))))))))))
7856 (lambda (args-33846 req-33847 opt-33848 rkey-33849)
7857 (let ((tmp-33851 ($sc-dispatch args-33846 '())))
7865 (cons #f (reverse rkey-33849))))
7868 ($sc-dispatch args-33846 '(any . any))))
7871 (lambda (a-33977 b-33978)
7872 (if (symbol? a-33977)
7874 (if (if (vector? a-33977)
7875 (if (= (vector-length a-33977) 4)
7876 (eq? (vector-ref a-33977 0)
7880 (symbol? (vector-ref a-33977 1))
7885 (lambda (a-34005 b-34006)
7887 (symbol->keyword (syntax->datum a-34005))))
7892 (cons (cons tmp-34007
7909 #(args req opt rkey)
7943 expand-simple-lambda
7947 eval-local-transformer
7956 expand-install-global
7966 with-transformer-environment
7967 transformer-environment
7969 locally-bound-identifiers
7986 set-ribcage-symnames!
8017 set-syntax-object-module!
8018 set-syntax-object-wrap!
8019 set-syntax-object-expression!
8020 syntax-object-module
8022 syntax-object-expression
8036 build-global-definition
8037 build-global-assignment
8038 build-global-reference
8040 build-lexical-assignment
8041 build-lexical-reference
8048 get-global-definition-hook
8049 put-global-definition-hook
8069 make-toplevel-define
8363 define-expansion-accessors
8364 define-expansion-constructors)
8369 #(ribcage () () ()))
8374 ($sc-dispatch args-33846 '((any any) . any))))
8377 (lambda (a-34014 init-34015 b-34016)
8378 (if (symbol? a-34014)
8380 (if (if (vector? a-34014)
8381 (if (= (vector-length a-34014) 4)
8382 (eq? (vector-ref a-34014 0)
8386 (symbol? (vector-ref a-34014 1))
8391 (lambda (a-34043 init-34044 b-34045)
8394 (syntax->datum a-34043))))
8399 (cons (list tmp-34046 a-34043 init-34044)
8405 '((any any any) . any))))
8412 (if (if (symbol? a-34053)
8414 (if (if (vector? a-34053)
8415 (if (= (vector-length
8425 (vector-ref a-34053 1))
8427 (keyword? (syntax->datum k-34055))
8432 (lambda (a-34083 init-34084 k-34085 b-34086)
8437 (cons (list k-34085 a-34083 init-34084)
8441 ($sc-dispatch args-33846 '(any))))
8445 (eq? (syntax->datum aok-34091)
8446 #:allow-other-keys))
8455 (cons #t (reverse rkey-33849))))
8466 (if (eq? (syntax->datum
8469 (eq? (syntax->datum a-34216)
8475 (lambda (aok-34218 a-34219 b-34220)
8480 (cons #t (reverse rkey-33849))))
8488 (lambda (aok-34227 r-34228)
8489 (if (eq? (syntax->datum
8492 (if (symbol? r-34228)
8496 (if (= (vector-length
8514 (lambda (aok-34255 r-34256)
8520 (reverse rkey-33849))))
8528 (lambda (a-34263 b-34264)
8535 (lambda (a-34265 b-34266)
8548 (if (symbol? r-34271)
8552 (if (= (vector-length
8579 "invalid keyword argument list"
8581 args-33846)))))))))))))))))))))
8583 (lambda (args-34329 req-34330 opt-34331 kw-34332)
8584 (let ((tmp-34334 (list args-34329)))
8587 (if (symbol? r-34336)
8589 (if (if (vector? r-34336)
8590 (if (= (vector-length r-34336) 4)
8591 (eq? (vector-ref r-34336 0) 'syntax-object)
8594 (symbol? (vector-ref r-34336 1))
8607 "invalid rest argument"
8611 (lambda (req-34494 opt-34495 rest-34496 kw-34497)
8612 (if (distinct-bound-ids?-4577
8616 (if rest-34496 (list rest-34496) '())
8617 (if (pair? kw-34497)
8618 (map cadr (cdr kw-34497))
8620 (values req-34494 opt-34495 rest-34496 kw-34497)
8623 "duplicate identifier in argument list"
8624 orig-args-33335)))))
8625 (req-33336 orig-args-33335 '()))))
8626 (expand-lambda-case-4598
8641 (let ((vars-34751 (map gen-var-4600 req-34746))
8642 (labels-34752 (gen-labels-4553 req-34746)))
8644 (extend-var-env-4546
8649 (make-binding-wrap-4564
8654 (map syntax->datum req-34746)
8659 (reverse vars-34751)
8675 (if (pair? opt-34952)
8676 (let ((tmp-34961 (car opt-34952)))
8677 (let ((tmp-34962 ($sc-dispatch tmp-34961 '(any any))))
8680 (lambda (id-34964 i-34965)
8683 (if (if (vector? id-34964)
8684 (if (= (vector-length
8693 (vector-ref id-34964 1)
8697 (symbol->string id-34974)
8699 (let ((l-34967 (gen-labels-4553 (list v-34966))))
8701 (extend-var-env-4546
8706 (make-binding-wrap-4564
8716 (cons v-34966 vars-34956)
8719 (cons (syntax->datum id-34964) out-34959)
8729 "source expression failed to match any pattern"
8734 (if (if (vector? rest-34953)
8735 (if (= (vector-length rest-34953) 4)
8736 (eq? (vector-ref rest-34953 0)
8740 (vector-ref rest-34953 1)
8744 (symbol->string id-35242)
8746 (let ((l-35233 (gen-labels-4553 (list v-35232))))
8748 (extend-var-env-4546
8753 (make-binding-wrap-4564
8759 (if (pair? out-34959) (reverse out-34959) #f)
8760 (syntax->datum rest-34953)
8761 (if (pair? kw-34954) (cdr kw-34954) kw-34954)
8763 (cons v-35232 vars-34956)
8766 (if (pair? kw-34954) (car kw-34954) #f)
8771 (if (pair? out-34959) (reverse out-34959) #f)
8773 (if (pair? kw-34954) (cdr kw-34954) kw-34954)
8778 (if (pair? kw-34954) (car kw-34954) #f)
8793 (if (pair? kw-35428)
8794 (let ((tmp-35436 (car kw-35428)))
8796 ($sc-dispatch tmp-35436 '(any any any))))
8799 (lambda (k-35439 id-35440 i-35441)
8802 (if (if (vector? id-35440)
8803 (if (= (vector-length
8812 (vector-ref id-35440 1)
8816 (symbol->string id-35450)
8818 (let ((l-35443 (gen-labels-4553 (list v-35442))))
8820 (extend-var-env-4546
8825 (make-binding-wrap-4564
8835 (cons v-35442 vars-35430)
8839 (cons (list (syntax->datum k-35439)
8840 (syntax->datum id-35440)
8852 "source expression failed to match any pattern"
8858 (if (if aok-35433 aok-35433 (pair? out-35434))
8859 (cons aok-35433 (reverse out-35434))
8862 (reverse vars-35430)
8865 (reverse inits-35435)
8879 ($sc-dispatch body-35721 '(any any . each-any))))
8882 (lambda (docstring-35732 e1-35733 e2-35734)
8883 (string? (syntax->datum docstring-35732)))
8887 (lambda (docstring-35735 e1-35736 e2-35737)
8893 (cons e1-35736 e2-35737)
8900 (list (cons 'documentation
8901 (syntax->datum docstring-35735))))))
8906 '(#(vector #(each (any . any)))
8912 (lambda (k-35742 v-35743 e1-35744 e2-35745)
8918 (cons e1-35744 e2-35745)
8925 (syntax->datum (map cons k-35742 v-35743)))))
8928 ($sc-dispatch body-35721 '(any . each-any))))
8931 (lambda (e1-35750 e2-35751)
8941 (cons e1-35750 e2-35751)
8944 (if (if (pair? e-34606)
8947 (set-source-properties!
8951 (if (if (null? (car w-34608))
8952 (null? (cdr w-34608))
8955 (if (if (vector? x-35763)
8956 (if (= (vector-length x-35763) 4)
8957 (eq? (vector-ref x-35763 0)
8961 (let ((expression-35795
8962 (vector-ref x-35763 1))
8972 (if (null? m1-35805)
8973 (if (null? s1-35806)
8975 (cons (car w2-35804)
8978 (if (null? m2-35821)
8983 (cons (let ((m2-35829
8985 (if (null? m2-35829)
8992 (if (null? m2-35837)
8998 (vector-ref x-35763 3)))
9017 "source expression failed to match any pattern"
9018 body-35721))))))))))
9019 (let ((tmp-34618 ($sc-dispatch clauses-34612 '())))
9021 (@apply (lambda () (values '() #f)) tmp-34618)
9025 '((any any . each-any)
9027 #(each (any any . each-any))))))
9037 (lambda () (get-formals-34611 args-34626))
9038 (lambda (req-34632 opt-34633 rest-34634 kw-34635)
9046 (cons e1-34627 e2-34628)))
9057 (expand-lambda-case-4598
9064 (map (lambda (tmp-2961-34710
9067 (cons tmp-2959-34712
9068 (cons tmp-2960-34711
9073 (lambda (meta*-34713 else*-34714)
9075 (append meta-34702 meta*-34713)
9076 (make-struct/no-tail
9077 (vector-ref %expanded-vtables 15)
9086 else*-34714)))))))))
9090 "source expression failed to match any pattern"
9091 clauses-34612))))))))
9093 (lambda (x-35864 w-35865)
9094 (if (memq 'top (car w-35865))
9099 (if (if (vector? x-35869)
9100 (if (= (vector-length x-35869) 4)
9101 (eq? (vector-ref x-35869 0) 'syntax-object)
9105 (vector-ref x-35869 1)
9106 (vector-ref x-35869 2))
9108 (let ((a-35888 (f-35866 (car x-35869)))
9109 (d-35889 (f-35866 (cdr x-35869))))
9110 (if (if (eq? a-35888 (car x-35869))
9111 (eq? d-35889 (cdr x-35869))
9114 (cons a-35888 d-35889)))
9115 (if (vector? x-35869)
9116 (let ((old-35892 (vector->list x-35869)))
9117 (let ((new-35893 (map f-35866 old-35892)))
9120 (lambda (l1-35991 l2-35992)
9121 (if (null? l1-35991)
9123 (if (eq? (car l1-35991) (car l2-35992))
9124 (lp-35894 (cdr l1-35991) (cdr l2-35992))
9125 (list->vector new-35893))))))
9126 (lp-35894 old-35892 new-35893))))
9128 (f-35866 x-35864)))))
9132 (if (if (vector? id-34758)
9133 (if (= (vector-length id-34758) 4)
9134 (eq? (vector-ref id-34758 0) 'syntax-object)
9137 (vector-ref id-34758 1)
9140 (string-append (symbol->string id-34759) "-")))))
9141 (lambda-var-list-4601
9142 (lambda (vars-35993)
9145 (lambda (vars-35997 ls-35998 w-35999)
9146 (if (pair? vars-35997)
9149 (cons (let ((x-36003 (car vars-35997)))
9150 (if (if (null? (car w-35999))
9151 (null? (cdr w-35999))
9154 (if (if (vector? x-36003)
9155 (if (= (vector-length x-36003) 4)
9156 (eq? (vector-ref x-36003 0)
9160 (let ((expression-36021 (vector-ref x-36003 1))
9163 (vector-ref x-36003 2)))
9164 (let ((m1-36031 (car w-35999))
9165 (s1-36032 (cdr w-35999)))
9166 (if (null? m1-36031)
9167 (if (null? s1-36032)
9169 (cons (car w2-36030)
9172 (if (null? m2-36047)
9177 (cons (let ((m2-36055
9179 (if (null? m2-36055)
9186 (if (null? m2-36063)
9191 (module-36023 (vector-ref x-36003 3)))
9206 (if (if (symbol? vars-35997)
9208 (if (if (vector? vars-35997)
9209 (if (= (vector-length vars-35997) 4)
9210 (eq? (vector-ref vars-35997 0) 'syntax-object)
9213 (symbol? (vector-ref vars-35997 1))
9215 (cons (if (if (null? (car w-35999))
9216 (null? (cdr w-35999))
9219 (if (if (vector? vars-35997)
9220 (if (= (vector-length vars-35997) 4)
9221 (eq? (vector-ref vars-35997 0)
9225 (let ((expression-36133
9226 (vector-ref vars-35997 1))
9229 (vector-ref vars-35997 2)))
9230 (let ((m1-36145 (car w-35999))
9231 (s1-36146 (cdr w-35999)))
9232 (if (null? m1-36145)
9233 (if (null? s1-36146)
9235 (cons (car w2-36144)
9238 (if (null? m2-36163)
9243 (cons (let ((m2-36171
9245 (if (null? m2-36171)
9252 (if (null? m2-36179)
9257 (module-36135 (vector-ref vars-35997 3)))
9263 (if (null? vars-35997)
9271 (if (null? vars-35997)
9273 (if (if (vector? vars-35997)
9274 (if (= (vector-length vars-35997) 4)
9275 (eq? (vector-ref vars-35997 0) 'syntax-object)
9279 (vector-ref vars-35997 1)
9281 (let ((w2-36220 (vector-ref vars-35997 2)))
9282 (let ((m1-36221 (car w-35999))
9283 (s1-36222 (cdr w-35999)))
9284 (if (null? m1-36221)
9285 (if (null? s1-36222)
9287 (cons (car w2-36220)
9288 (let ((m2-36233 (cdr w2-36220)))
9289 (if (null? m2-36233)
9291 (append s1-36222 m2-36233)))))
9292 (cons (let ((m2-36241 (car w2-36220)))
9293 (if (null? m2-36241)
9295 (append m1-36221 m2-36241)))
9296 (let ((m2-36249 (cdr w2-36220)))
9297 (if (null? m2-36249)
9299 (append s1-36222 m2-36249))))))))
9300 (cons vars-35997 ls-35998))))))))
9301 (lvl-35994 vars-35993 '() '(()))))))
9303 (set! session-id-4511
9307 'syntax-session-id)))
9308 (lambda () ((variable-ref v-18812)))))
9309 (set! transformer-environment-4572
9312 (error "called outside the dynamic extent of a syntax transformer"))))
9316 (make-syntax-transformer
9323 (make-syntax-transformer
9329 'syntax-parameterize
9330 (lambda (e-4728 r-4729 w-4730 s-4731 mod-4732)
9334 '(_ #(each (any any)) any . each-any))))
9337 (lambda (var-4738 val-4739 e1-4740 e2-4741)
9338 (valid-bound-ids?-4576 var-4738))
9342 (lambda (var-4826 val-4827 e1-4828 e2-4829)
9344 (map (lambda (x-5170)
9347 (resolve-identifier-4571
9353 (lambda (type-5173 value-5174 mod-5175)
9354 (if (eqv? type-5173 'displaced-lexical)
9356 'syntax-parameterize
9357 "identifier out of context"
9361 (if (if (pair? x-5170)
9364 (set-source-properties!
9368 (if (if (null? (car w-4730))
9369 (null? (cdr w-4730))
9372 (if (if (vector? x-5188)
9373 (if (= (vector-length
9376 (eq? (vector-ref x-5188 0)
9380 (let ((expression-5220
9381 (vector-ref x-5188 1))
9402 (cons (let ((m2-5254
9417 (vector-ref x-5188 3)))
9430 (if (eqv? type-5173 'syntax-parameter)
9433 'syntax-parameterize
9434 "invalid syntax parameter"
9438 (if (if (pair? x-5170)
9441 (set-source-properties!
9445 (if (if (null? (car w-4730))
9446 (null? (cdr w-4730))
9449 (if (if (vector? x-5289)
9450 (if (= (vector-length
9459 (let ((expression-5321
9460 (vector-ref x-5289 1))
9481 (cons (let ((m2-5355
9513 (let ((trans-r-5378 (macros-only-env-4547 r-4729)))
9514 (map (lambda (x-5379)
9516 (eval-local-transformer-4592
9525 (cons e1-4828 e2-4829)
9528 (if (if (pair? e-4728) s-4731 #f)
9529 (set-source-properties! e-4728 s-4731))
9531 (if (if (null? (car w-4730)) (null? (cdr w-4730)) #f)
9533 (if (if (vector? x-4843)
9534 (if (= (vector-length x-4843) 4)
9535 (eq? (vector-ref x-4843 0) 'syntax-object)
9538 (let ((expression-4875 (vector-ref x-4843 1))
9540 (let ((w2-4884 (vector-ref x-4843 2)))
9541 (let ((m1-4885 (car w-4730))
9542 (s1-4886 (cdr w-4730)))
9554 (cons (let ((m2-4909 (car w2-4884)))
9557 (append m1-4885 m2-4909)))
9558 (let ((m2-4917 (cdr w2-4884)))
9564 (module-4877 (vector-ref x-4843 3)))
9577 (extend-env-4545 names-4830 bindings-4831 r-4729)
9582 'syntax-parameterize
9586 (if (if (pair? e-4728) s-4731 #f)
9587 (set-source-properties! e-4728 s-4731))
9589 (if (if (null? (car w-4730)) (null? (cdr w-4730)) #f)
9591 (if (if (vector? x-5599)
9592 (if (= (vector-length x-5599) 4)
9593 (eq? (vector-ref x-5599 0) 'syntax-object)
9596 (let ((expression-5631 (vector-ref x-5599 1))
9598 (let ((w2-5640 (vector-ref x-5599 2)))
9599 (let ((m1-5641 (car w-4730))
9600 (s1-5642 (cdr w-4730)))
9605 (let ((m2-5657 (cdr w2-5640)))
9608 (append s1-5642 m2-5657)))))
9609 (cons (let ((m2-5665 (car w2-5640)))
9612 (append m1-5641 m2-5665)))
9613 (let ((m2-5673 (cdr w2-5640)))
9616 (append s1-5642 m2-5673))))))))
9617 (module-5633 (vector-ref x-5599 3)))
9625 (vector 'syntax-object x-5599 w-4730 mod-4732))))))))))
9629 (make-syntax-transformer
9632 (lambda (e-5701 r-5702 w-5703 s-5704 mod-5705)
9633 (let ((tmp-5707 ($sc-dispatch e-5701 '(_ any))))
9637 (let ((exp-5714 (strip-4599 e-5710 w-5703)))
9638 (make-struct/no-tail
9639 (vector-ref %expanded-vtables 1)
9648 (if (if (pair? e-5701) s-5704 #f)
9649 (set-source-properties! e-5701 s-5704))
9651 (if (if (null? (car w-5703)) (null? (cdr w-5703)) #f)
9653 (if (if (vector? x-5728)
9654 (if (= (vector-length x-5728) 4)
9655 (eq? (vector-ref x-5728 0) 'syntax-object)
9658 (let ((expression-5760 (vector-ref x-5728 1))
9660 (let ((w2-5769 (vector-ref x-5728 2)))
9661 (let ((m1-5770 (car w-5703))
9662 (s1-5771 (cdr w-5703)))
9667 (let ((m2-5786 (cdr w2-5769)))
9670 (append s1-5771 m2-5786)))))
9671 (cons (let ((m2-5794 (car w2-5769)))
9674 (append m1-5770 m2-5794)))
9675 (let ((m2-5802 (cdr w2-5769)))
9678 (append s1-5771 m2-5802))))))))
9679 (module-5762 (vector-ref x-5728 3)))
9703 (if (if (symbol? e-6452)
9705 (if (if (vector? e-6452)
9706 (if (= (vector-length e-6452) 4)
9707 (eq? (vector-ref e-6452 0) 'syntax-object)
9710 (symbol? (vector-ref e-6452 1))
9714 (resolve-identifier-4571
9720 (lambda (type-6485 value-6486 mod-6487)
9721 (if (eqv? type-6485 'syntax)
9729 (lambda (var-6493 maps-6494)
9730 (values (list 'ref var-6493) maps-6494)))
9731 (if (ellipsis?-6455 e-6452)
9734 "misplaced ellipsis"
9736 (values (list 'quote e-6452) maps-6454)))))
9737 (let ((tmp-6496 ($sc-dispatch e-6452 '(any any))))
9740 (lambda (dots-6500 e-6501)
9741 (ellipsis?-6455 dots-6500))
9745 (lambda (dots-6502 e-6503)
9751 (lambda (x-6504) #f)
9754 (let ((tmp-6505 ($sc-dispatch e-6452 '(any any . any))))
9757 (lambda (x-6509 dots-6510 y-6511)
9758 (ellipsis?-6455 dots-6510))
9762 (lambda (x-6512 dots-6513 y-6514)
9765 (lambda (y-6523 k-6524)
9772 (lambda (dots-6530 y-6531)
9773 (ellipsis?-6455 dots-6530))
9777 (lambda (dots-6532 y-6533)
9784 (cons '() maps-6534)))
9785 (lambda (x-6535 maps-6536)
9786 (if (null? (car maps-6536))
9800 (cdr maps-6536))))))))
9811 (lambda (y-6543 maps-6544)
9813 (lambda () (k-6524 maps-6544))
9814 (lambda (x-6545 maps-6546)
9816 (if (equal? y-6543 ''())
9831 (cons '() maps-6518)
9834 (lambda (x-6519 maps-6520)
9835 (if (null? (car maps-6520))
9844 (cdr maps-6520)))))))))
9846 (let ((tmp-6562 ($sc-dispatch e-6452 '(any . any))))
9849 (lambda (x-6566 y-6567)
9859 (lambda (x-6568 maps-6569)
9869 (lambda (y-6570 maps-6571)
9871 (let ((atom-key-6576 (car y-6570)))
9872 (if (eqv? atom-key-6576 'quote)
9873 (if (eq? (car x-6568) 'quote)
9875 (cons (car (cdr x-6568))
9876 (car (cdr y-6570))))
9877 (if (eq? (car (cdr y-6570))
9880 (list 'cons x-6568 y-6570)))
9881 (if (eqv? atom-key-6576 'list)
9885 (list 'cons x-6568 y-6570))))
9891 '#(vector (any . each-any)))))
9894 (lambda (e1-6609 e2-6610)
9899 (cons e1-6609 e2-6610)
9904 (lambda (e-6611 maps-6612)
9906 (if (eq? (car e-6611) 'list)
9907 (cons 'vector (cdr e-6611))
9908 (if (eq? (car e-6611) 'quote)
9911 (car (cdr e-6611))))
9912 (list 'list->vector e-6611)))
9916 (list 'quote e-6452)
9917 maps-6454))))))))))))
9919 (lambda (src-6639 var-6640 level-6641 maps-6642)
9920 (if (= level-6641 0)
9921 (values var-6640 maps-6642)
9922 (if (null? maps-6642)
9934 (lambda (outer-var-6643 outer-maps-6644)
9935 (let ((b-6645 (assq outer-var-6643 (car maps-6642))))
9937 (values (cdr b-6645) maps-6642)
9938 (let ((inner-var-6647
9941 (symbol->string 'tmp)
9945 (cons (cons (cons outer-var-6643 inner-var-6647)
9947 outer-maps-6644)))))))))))
9949 (lambda (e-6661 map-env-6662)
9950 (let ((formals-6663 (map cdr map-env-6662))
9952 (map (lambda (x-6666) (list 'ref (car x-6666)))
9954 (if (eq? (car e-6661) 'ref)
9958 (if (eq? (car x-6667) 'ref)
9959 (memq (car (cdr x-6667)) formals-6663)
9963 (cons (list 'primitive (car e-6661))
9969 (cdr (assq (car (cdr x-6670))
9973 (cons (list 'lambda formals-6663 e-6661)
9977 (let ((atom-key-6673 (car x-6672)))
9978 (if (eqv? atom-key-6673 'ref)
9979 (let ((name-6683 (car (cdr x-6672)))
9980 (var-6684 (car (cdr x-6672))))
9981 (make-struct/no-tail
9982 (vector-ref %expanded-vtables 3)
9986 (if (eqv? atom-key-6673 'primitive)
9987 (let ((name-6695 (car (cdr x-6672))))
9988 (make-struct/no-tail
9989 (vector-ref %expanded-vtables 2)
9992 (if (eqv? atom-key-6673 'quote)
9993 (let ((exp-6706 (car (cdr x-6672))))
9994 (make-struct/no-tail
9995 (vector-ref %expanded-vtables 1)
9998 (if (eqv? atom-key-6673 'lambda)
9999 (if (list? (car (cdr x-6672)))
10000 (let ((req-6717 (car (cdr x-6672)))
10001 (vars-6719 (car (cdr x-6672)))
10003 (regen-6027 (car (cdr (cdr x-6672))))))
10005 (make-struct/no-tail
10006 (vector-ref %expanded-vtables 15)
10016 (make-struct/no-tail
10017 (vector-ref %expanded-vtables 14)
10021 (error "how did we get here" x-6672))
10022 (let ((name-6742 (car x-6672))
10023 (args-6743 (map regen-6027 (cdr x-6672))))
10024 (make-struct/no-tail
10025 (vector-ref %expanded-vtables 12)
10028 args-6743))))))))))
10029 (lambda (e-6028 r-6029 w-6030 s-6031 mod-6032)
10033 (if (if (pair? e-6028) s-6031 #f)
10034 (set-source-properties! e-6028 s-6031))
10036 (if (if (null? (car w-6030)) (null? (cdr w-6030)) #f)
10038 (if (if (vector? x-6362)
10039 (if (= (vector-length x-6362) 4)
10040 (eq? (vector-ref x-6362 0) 'syntax-object)
10043 (let ((expression-6394 (vector-ref x-6362 1))
10045 (let ((w2-6403 (vector-ref x-6362 2)))
10046 (let ((m1-6404 (car w-6030))
10047 (s1-6405 (cdr w-6030)))
10048 (if (null? m1-6404)
10049 (if (null? s1-6405)
10051 (cons (car w2-6403)
10052 (let ((m2-6420 (cdr w2-6403)))
10053 (if (null? m2-6420)
10058 (cons (let ((m2-6428 (car w2-6403)))
10059 (if (null? m2-6428)
10061 (append m1-6404 m2-6428)))
10062 (let ((m2-6436 (cdr w2-6403)))
10063 (if (null? m2-6436)
10068 (module-6396 (vector-ref x-6362 3)))
10081 (let ((tmp-6034 e-6033))
10082 (let ((tmp-6035 ($sc-dispatch tmp-6034 '(_ any))))
10095 (lambda (e-6160 maps-6161) (regen-6027 e-6160))))
10099 "bad `syntax' form"
10101 (global-extend-4548
10104 (lambda (e-6974 r-6975 w-6976 s-6977 mod-6978)
10106 ($sc-dispatch e-6974 '(_ any any . each-any))))
10109 (lambda (args-6984 e1-6985 e2-6986)
10111 (lambda () (lambda-formals-4595 args-6984))
10112 (lambda (req-6989 opt-6990 rest-6991 kw-6992)
10115 (lambda (body-6996 meta-6997)
10119 '(any any . each-any))))
10122 (lambda (docstring-7003 e1-7004 e2-7005)
10124 (syntax->datum docstring-7003)))
10128 (lambda (docstring-7006 e1-7007 e2-7008)
10130 (cons e1-7007 e2-7008)
10133 (list (cons 'documentation
10135 docstring-7006))))))
10140 '(#(vector #(each (any . any)))
10146 (lambda (k-7013 v-7014 e1-7015 e2-7016)
10148 (cons e1-7015 e2-7016)
10152 (map cons k-7013 v-7014)))))
10154 (expand-simple-lambda-4596
10164 (lp-6993 (cons e1-6985 e2-6986) '())))))
10166 (syntax-violation 'lambda "bad lambda" e-6974)))))
10167 (global-extend-4548
10170 (lambda (e-7391 r-7392 w-7393 s-7394 mod-7395)
10172 ($sc-dispatch e-7391 '(_ any any . each-any))))
10175 (lambda (args-7401 e1-7402 e2-7403)
10178 (expand-lambda-case-4598
10184 lambda*-formals-4597
10185 (list (cons args-7401 (cons e1-7402 e2-7403)))))
10186 (lambda (meta-7406 lcase-7407)
10187 (make-struct/no-tail
10188 (vector-ref %expanded-vtables 14)
10193 (syntax-violation 'lambda "bad lambda*" e-7391)))))
10194 (global-extend-4548
10197 (lambda (e-7570 r-7571 w-7572 s-7573 mod-7574)
10201 '(_ (any any . each-any)
10203 #(each (any any . each-any))))))
10214 (expand-lambda-case-4598
10220 lambda-formals-4595
10221 (cons (cons args-7580 (cons e1-7581 e2-7582))
10222 (map (lambda (tmp-3460-7588
10225 (cons tmp-3458-7590
10226 (cons tmp-3459-7589 tmp-3460-7588)))
10230 (lambda (meta-7591 lcase-7592)
10231 (make-struct/no-tail
10232 (vector-ref %expanded-vtables 14)
10241 (global-extend-4548
10244 (lambda (e-7761 r-7762 w-7763 s-7764 mod-7765)
10248 '(_ (any any . each-any)
10250 #(each (any any . each-any))))))
10261 (expand-lambda-case-4598
10267 lambda*-formals-4597
10268 (cons (cons args-7771 (cons e1-7772 e2-7773))
10269 (map (lambda (tmp-3495-7779
10272 (cons tmp-3493-7781
10273 (cons tmp-3494-7780 tmp-3495-7779)))
10277 (lambda (meta-7782 lcase-7783)
10278 (make-struct/no-tail
10279 (vector-ref %expanded-vtables 14)
10288 (global-extend-4548
10302 (if (not (valid-bound-ids?-4576 ids-8207))
10305 "duplicate bound variable"
10307 (let ((labels-8294 (gen-labels-4553 ids-8207))
10308 (new-vars-8295 (map gen-var-4600 ids-8207)))
10310 (make-binding-wrap-4564
10315 (extend-var-env-4546
10321 (map syntax->datum ids-8207)
10323 (map (lambda (x-8314)
10324 (expand-4586 x-8314 r-8202 w-8203 mod-8205))
10328 (source-wrap-4580 e-8201 nw-8296 s-8204 mod-8205)
10332 (lambda (e-7992 r-7993 w-7994 s-7995 mod-7996)
10336 '(_ #(each (any any)) any . each-any))))
10339 (lambda (id-8002 val-8003 e1-8004 e2-8005)
10340 (and-map id?-4550 id-8002))
10344 (lambda (id-8021 val-8022 e1-8023 e2-8024)
10358 maybe-name-value!-4515
10361 (if (null? vars-8030)
10363 (make-struct/no-tail
10364 (vector-ref %expanded-vtables 16)
10372 (cons e1-8023 e2-8024)))
10377 '(_ any #(each (any any)) any . each-any))))
10380 (lambda (f-8043 id-8044 val-8045 e1-8046 e2-8047)
10381 (if (if (symbol? f-8043)
10383 (if (if (vector? f-8043)
10384 (if (= (vector-length f-8043) 4)
10385 (eq? (vector-ref f-8043 0)
10389 (symbol? (vector-ref f-8043 1))
10391 (and-map id?-4550 id-8044)
10396 (lambda (f-8089 id-8090 val-8091 e1-8092 e2-8093)
10403 build-named-let-4534
10404 (cons f-8089 id-8090)
10406 (cons e1-8092 e2-8093)))
10413 (if (if (pair? e-7992) s-7995 #f)
10414 (set-source-properties! e-7992 s-7995))
10416 (if (if (null? (car w-7994)) (null? (cdr w-7994)) #f)
10418 (if (if (vector? x-8106)
10419 (if (= (vector-length x-8106) 4)
10420 (eq? (vector-ref x-8106 0) 'syntax-object)
10423 (let ((expression-8138 (vector-ref x-8106 1))
10425 (let ((w2-8147 (vector-ref x-8106 2)))
10426 (let ((m1-8148 (car w-7994))
10427 (s1-8149 (cdr w-7994)))
10428 (if (null? m1-8148)
10429 (if (null? s1-8149)
10431 (cons (car w2-8147)
10434 (if (null? m2-8164)
10439 (cons (let ((m2-8172 (car w2-8147)))
10440 (if (null? m2-8172)
10442 (append m1-8148 m2-8172)))
10443 (let ((m2-8180 (cdr w2-8147)))
10444 (if (null? m2-8180)
10449 (module-8140 (vector-ref x-8106 3)))
10461 mod-7996)))))))))))))
10462 (global-extend-4548
10465 (lambda (e-8744 r-8745 w-8746 s-8747 mod-8748)
10469 '(_ #(each (any any)) any . each-any))))
10472 (lambda (id-8754 val-8755 e1-8756 e2-8757)
10473 (and-map id?-4550 id-8754))
10477 (lambda (id-8773 val-8774 e1-8775 e2-8776)
10478 (if (not (valid-bound-ids?-4576 id-8773))
10481 "duplicate bound variable"
10483 (let ((labels-8873 (gen-labels-4553 id-8773))
10484 (new-vars-8874 (map gen-var-4600 id-8773)))
10486 (make-binding-wrap-4564
10491 (extend-var-env-4546
10498 (map syntax->datum id-8773)
10500 (map (lambda (x-8953)
10501 (expand-4586 x-8953 r-8876 w-8875 mod-8748))
10504 (cons e1-8775 e2-8776)
10507 (if (if (pair? e-8744) s-8747 #f)
10508 (set-source-properties! e-8744 s-8747))
10510 (if (if (null? (car w-8875))
10511 (null? (cdr w-8875))
10514 (if (if (vector? x-9015)
10515 (if (= (vector-length x-9015) 4)
10516 (eq? (vector-ref x-9015 0)
10520 (let ((expression-9047 (vector-ref x-9015 1))
10523 (vector-ref x-9015 2)))
10524 (let ((m1-9057 (car w-8875))
10525 (s1-9058 (cdr w-8875)))
10526 (if (null? m1-9057)
10527 (if (null? s1-9058)
10529 (cons (car w2-9056)
10532 (if (null? m2-9073)
10537 (cons (let ((m2-9081
10539 (if (null? m2-9081)
10546 (if (null? m2-9089)
10551 (module-9049 (vector-ref x-9015 3)))
10573 (if (if (pair? e-8744) s-8747 #f)
10574 (set-source-properties! e-8744 s-8747))
10576 (if (if (null? (car w-8746)) (null? (cdr w-8746)) #f)
10578 (if (if (vector? x-9300)
10579 (if (= (vector-length x-9300) 4)
10580 (eq? (vector-ref x-9300 0) 'syntax-object)
10583 (let ((expression-9332 (vector-ref x-9300 1))
10585 (let ((w2-9341 (vector-ref x-9300 2)))
10586 (let ((m1-9342 (car w-8746))
10587 (s1-9343 (cdr w-8746)))
10588 (if (null? m1-9342)
10589 (if (null? s1-9343)
10591 (cons (car w2-9341)
10592 (let ((m2-9358 (cdr w2-9341)))
10593 (if (null? m2-9358)
10595 (append s1-9343 m2-9358)))))
10596 (cons (let ((m2-9366 (car w2-9341)))
10597 (if (null? m2-9366)
10599 (append m1-9342 m2-9366)))
10600 (let ((m2-9374 (cdr w2-9341)))
10601 (if (null? m2-9374)
10603 (append s1-9343 m2-9374))))))))
10604 (module-9334 (vector-ref x-9300 3)))
10612 (vector 'syntax-object x-9300 w-8746 mod-8748))))))))))
10613 (global-extend-4548
10616 (lambda (e-9525 r-9526 w-9527 s-9528 mod-9529)
10620 '(_ #(each (any any)) any . each-any))))
10623 (lambda (id-9535 val-9536 e1-9537 e2-9538)
10624 (and-map id?-4550 id-9535))
10628 (lambda (id-9554 val-9555 e1-9556 e2-9557)
10629 (if (not (valid-bound-ids?-4576 id-9554))
10632 "duplicate bound variable"
10634 (let ((labels-9654 (gen-labels-4553 id-9554))
10635 (new-vars-9655 (map gen-var-4600 id-9554)))
10637 (make-binding-wrap-4564
10642 (extend-var-env-4546
10649 (map syntax->datum id-9554)
10651 (map (lambda (x-9734)
10652 (expand-4586 x-9734 r-9657 w-9656 mod-9529))
10655 (cons e1-9556 e2-9557)
10658 (if (if (pair? e-9525) s-9528 #f)
10659 (set-source-properties! e-9525 s-9528))
10661 (if (if (null? (car w-9656))
10662 (null? (cdr w-9656))
10665 (if (if (vector? x-9796)
10666 (if (= (vector-length x-9796) 4)
10667 (eq? (vector-ref x-9796 0)
10671 (let ((expression-9828 (vector-ref x-9796 1))
10674 (vector-ref x-9796 2)))
10675 (let ((m1-9838 (car w-9656))
10676 (s1-9839 (cdr w-9656)))
10677 (if (null? m1-9838)
10678 (if (null? s1-9839)
10680 (cons (car w2-9837)
10683 (if (null? m2-9854)
10688 (cons (let ((m2-9862
10690 (if (null? m2-9862)
10697 (if (null? m2-9870)
10702 (module-9830 (vector-ref x-9796 3)))
10724 (if (if (pair? e-9525) s-9528 #f)
10725 (set-source-properties! e-9525 s-9528))
10727 (if (if (null? (car w-9527)) (null? (cdr w-9527)) #f)
10729 (if (if (vector? x-10081)
10730 (if (= (vector-length x-10081) 4)
10731 (eq? (vector-ref x-10081 0) 'syntax-object)
10734 (let ((expression-10113 (vector-ref x-10081 1))
10736 (let ((w2-10122 (vector-ref x-10081 2)))
10737 (let ((m1-10123 (car w-9527))
10738 (s1-10124 (cdr w-9527)))
10739 (if (null? m1-10123)
10740 (if (null? s1-10124)
10742 (cons (car w2-10122)
10743 (let ((m2-10139 (cdr w2-10122)))
10744 (if (null? m2-10139)
10746 (append s1-10124 m2-10139)))))
10747 (cons (let ((m2-10147 (car w2-10122)))
10748 (if (null? m2-10147)
10750 (append m1-10123 m2-10147)))
10751 (let ((m2-10155 (cdr w2-10122)))
10752 (if (null? m2-10155)
10754 (append s1-10124 m2-10155))))))))
10755 (module-10115 (vector-ref x-10081 3)))
10761 (if (null? x-10081)
10768 (global-extend-4548
10771 (lambda (e-10314 r-10315 w-10316 s-10317 mod-10318)
10772 (let ((tmp-10320 ($sc-dispatch e-10314 '(_ any any))))
10775 (lambda (id-10324 val-10325)
10776 (if (symbol? id-10324)
10778 (if (if (vector? id-10324)
10779 (if (= (vector-length id-10324) 4)
10780 (eq? (vector-ref id-10324 0) 'syntax-object)
10783 (symbol? (vector-ref id-10324 1))
10788 (lambda (id-10352 val-10353)
10791 (resolve-identifier-4571
10797 (lambda (type-10356 value-10357 id-mod-10358)
10798 (if (eqv? type-10356 'lexical)
10799 (build-lexical-assignment-4521
10801 (syntax->datum id-10352)
10803 (expand-4586 val-10353 r-10315 w-10316 mod-10318))
10804 (if (eqv? type-10356 'global)
10805 (build-global-assignment-4524
10808 (expand-4586 val-10353 r-10315 w-10316 mod-10318)
10810 (if (eqv? type-10356 'macro)
10811 (if (procedure-property
10813 'variable-transformer)
10828 "not a variable transformer"
10829 (if (if (null? (car w-10316))
10830 (null? (cdr w-10316))
10833 (if (if (vector? e-10314)
10834 (if (= (vector-length e-10314) 4)
10835 (eq? (vector-ref e-10314 0)
10839 (let ((expression-10798
10840 (vector-ref e-10314 1))
10843 (vector-ref e-10314 2)))
10844 (let ((m1-10810 (car w-10316))
10845 (s1-10811 (cdr w-10316)))
10846 (if (null? m1-10810)
10847 (if (null? s1-10811)
10849 (cons (car w2-10809)
10852 (if (null? m2-10828)
10857 (cons (let ((m2-10836
10859 (if (null? m2-10836)
10866 (if (null? m2-10844)
10872 (vector-ref e-10314 3)))
10878 (if (null? e-10314)
10885 (if (if (null? (car w-10316))
10886 (null? (cdr w-10316))
10889 (if (if (vector? id-10352)
10890 (if (= (vector-length id-10352) 4)
10891 (eq? (vector-ref id-10352 0)
10895 (let ((expression-10896
10896 (vector-ref id-10352 1))
10899 (vector-ref id-10352 2)))
10900 (let ((m1-10908 (car w-10316))
10901 (s1-10909 (cdr w-10316)))
10902 (if (null? m1-10908)
10903 (if (null? s1-10909)
10905 (cons (car w2-10907)
10908 (if (null? m2-10926)
10913 (cons (let ((m2-10934
10915 (if (null? m2-10934)
10922 (if (null? m2-10942)
10928 (vector-ref id-10352 3)))
10934 (if (null? id-10352)
10941 (if (eqv? type-10356 'displaced-lexical)
10944 "identifier out of context"
10945 (if (if (null? (car w-10316))
10946 (null? (cdr w-10316))
10949 (if (if (vector? id-10352)
10950 (if (= (vector-length id-10352) 4)
10951 (eq? (vector-ref id-10352 0)
10955 (let ((expression-10997
10956 (vector-ref id-10352 1))
10959 (vector-ref id-10352 2)))
10960 (let ((m1-11009 (car w-10316))
10961 (s1-11010 (cdr w-10316)))
10962 (if (null? m1-11009)
10963 (if (null? s1-11010)
10965 (cons (car w2-11008)
10968 (if (null? m2-11027)
10973 (cons (let ((m2-11035
10975 (if (null? m2-11035)
10982 (if (null? m2-11043)
10988 (vector-ref id-10352 3)))
10994 (if (null? id-10352)
11006 (if (if (pair? e-10314) s-10317 #f)
11007 (set-source-properties!
11011 (if (if (null? (car w-10316))
11012 (null? (cdr w-10316))
11015 (if (if (vector? x-11075)
11016 (if (= (vector-length x-11075) 4)
11017 (eq? (vector-ref x-11075 0)
11021 (let ((expression-11107
11022 (vector-ref x-11075 1))
11025 (vector-ref x-11075 2)))
11026 (let ((m1-11117 (car w-10316))
11027 (s1-11118 (cdr w-10316)))
11028 (if (null? m1-11117)
11029 (if (null? s1-11118)
11031 (cons (car w2-11116)
11034 (if (null? m2-11133)
11039 (cons (let ((m2-11141
11041 (if (null? m2-11141)
11048 (if (null? m2-11149)
11054 (vector-ref x-11075 3)))
11060 (if (null? x-11075)
11066 mod-10318)))))))))))))
11069 ($sc-dispatch e-10314 '(_ (any . each-any) any))))
11072 (lambda (head-11168 tail-11169 val-11170)
11083 (lambda (type-11173
11090 (if (eqv? type-11173 'module-ref)
11100 (cons head-11168 tail-11169)
11108 (let ((tmp-11190 (list e-11184)))
11111 (if (symbol? e-11192)
11113 (if (if (vector? e-11192)
11114 (if (= (vector-length
11124 (vector-ref e-11192 1))
11129 (build-global-assignment-4524
11131 (syntax->datum e-11222)
11137 "source expression failed to match any pattern"
11142 (list '#(syntax-object
11145 #(ribcage () () ())
11146 #(ribcage () () ())
11148 #(type value ee* ee ww ss modmod)
11165 #((top) (top) (top))
11169 #(ribcage () () ())
11172 #((top) (top) (top) (top) (top))
11184 expand-simple-lambda
11188 eval-local-transformer
11189 expand-local-syntax
11197 expand-install-global
11198 expand-top-sequence
11203 distinct-bound-ids?
11207 with-transformer-environment
11208 transformer-environment
11210 locally-bound-identifiers
11225 set-ribcage-labels!
11227 set-ribcage-symnames!
11258 set-syntax-object-module!
11259 set-syntax-object-wrap!
11260 set-syntax-object-expression!
11261 syntax-object-module
11263 syntax-object-expression
11276 build-simple-lambda
11277 build-global-definition
11278 build-global-assignment
11279 build-global-reference
11281 build-lexical-assignment
11282 build-lexical-reference
11289 get-global-definition-hook
11290 put-global-definition-hook
11293 top-level-eval-hook
11310 make-toplevel-define
11604 define-expansion-accessors
11605 define-expansion-constructors)
11606 ((top) (top) (top))
11607 ("l-*-47" "l-*-46" "l-*-45"))
11608 #(ribcage () () ()))
11614 (map (lambda (e-11535)
11620 (append tail-11169 (list val-11170))))))))
11627 (if (if (pair? e-10314) s-10317 #f)
11628 (set-source-properties! e-10314 s-10317))
11630 (if (if (null? (car w-10316))
11631 (null? (cdr w-10316))
11634 (if (if (vector? x-11623)
11635 (if (= (vector-length x-11623) 4)
11636 (eq? (vector-ref x-11623 0) 'syntax-object)
11639 (let ((expression-11655 (vector-ref x-11623 1))
11641 (let ((w2-11664 (vector-ref x-11623 2)))
11642 (let ((m1-11665 (car w-10316))
11643 (s1-11666 (cdr w-10316)))
11644 (if (null? m1-11665)
11645 (if (null? s1-11666)
11647 (cons (car w2-11664)
11650 (if (null? m2-11681)
11655 (cons (let ((m2-11689 (car w2-11664)))
11656 (if (null? m2-11689)
11658 (append m1-11665 m2-11689)))
11659 (let ((m2-11697 (cdr w2-11664)))
11660 (if (null? m2-11697)
11665 (module-11657 (vector-ref x-11623 3)))
11671 (if (null? x-11623)
11677 mod-10318))))))))))))
11681 (make-syntax-transformer
11684 (lambda (e-11728 r-11729 w-11730)
11686 ($sc-dispatch e-11728 '(_ each-any any))))
11689 (lambda (mod-11735 id-11736)
11690 (if (and-map id?-4550 mod-11735)
11691 (if (symbol? id-11736)
11693 (if (if (vector? id-11736)
11694 (if (= (vector-length id-11736) 4)
11695 (eq? (vector-ref id-11736 0)
11699 (symbol? (vector-ref id-11736 1))
11705 (lambda (mod-11776 id-11777)
11707 (syntax->datum id-11777)
11712 (cons '#(syntax-object
11718 #("l-*-3782" "l-*-3783"))
11719 #(ribcage () () ())
11722 #((top) (top) (top))
11723 #("l-*-3770" "l-*-3771" "l-*-3772"))
11730 expand-simple-lambda
11734 eval-local-transformer
11735 expand-local-syntax
11743 expand-install-global
11744 expand-top-sequence
11749 distinct-bound-ids?
11753 with-transformer-environment
11754 transformer-environment
11756 locally-bound-identifiers
11771 set-ribcage-labels!
11773 set-ribcage-symnames!
11804 set-syntax-object-module!
11805 set-syntax-object-wrap!
11806 set-syntax-object-expression!
11807 syntax-object-module
11809 syntax-object-expression
11822 build-simple-lambda
11823 build-global-definition
11824 build-global-assignment
11825 build-global-reference
11827 build-lexical-assignment
11828 build-lexical-reference
11835 get-global-definition-hook
11836 put-global-definition-hook
11839 top-level-eval-hook
11856 make-toplevel-define
12150 define-expansion-accessors
12151 define-expansion-constructors)
12152 ((top) (top) (top))
12153 ("l-*-47" "l-*-46" "l-*-45"))
12154 #(ribcage () () ()))
12160 "source expression failed to match any pattern"
12162 (global-extend-4548
12165 (lambda (e-11877 r-11878 w-11879)
12168 (lambda (x-12098 mod-12099)
12169 (if (pair? x-12098)
12170 (cons (remodulate-11880 (car x-12098) mod-12099)
12171 (remodulate-11880 (cdr x-12098) mod-12099))
12172 (if (if (vector? x-12098)
12173 (if (= (vector-length x-12098) 4)
12174 (eq? (vector-ref x-12098 0) 'syntax-object)
12177 (let ((expression-12113
12179 (vector-ref x-12098 1)
12181 (wrap-12114 (vector-ref x-12098 2)))
12187 (if (vector? x-12098)
12188 (let ((n-12122 (vector-length x-12098)))
12189 (let ((v-12123 (make-vector n-12122)))
12193 (if (= i-12179 n-12122)
12200 (vector-ref x-12098 i-12179)
12202 (loop-12124 (#{1+}# i-12179)))))))
12206 ($sc-dispatch e-11877 '(_ each-any any))))
12209 (lambda (mod-11886 exp-11887)
12210 (and-map id?-4550 mod-11886))
12214 (lambda (mod-11903 exp-11904)
12217 (cons '#(syntax-object
12223 #("l-*-3826" "l-*-3827"))
12230 #((top) (top) (top))
12231 #("l-*-3790" "l-*-3791" "l-*-3792"))
12238 expand-simple-lambda
12242 eval-local-transformer
12243 expand-local-syntax
12251 expand-install-global
12252 expand-top-sequence
12257 distinct-bound-ids?
12261 with-transformer-environment
12262 transformer-environment
12264 locally-bound-identifiers
12279 set-ribcage-labels!
12281 set-ribcage-symnames!
12312 set-syntax-object-module!
12313 set-syntax-object-wrap!
12314 set-syntax-object-expression!
12315 syntax-object-module
12317 syntax-object-expression
12330 build-simple-lambda
12331 build-global-definition
12332 build-global-assignment
12333 build-global-reference
12335 build-lexical-assignment
12336 build-lexical-reference
12343 get-global-definition-hook
12344 put-global-definition-hook
12347 top-level-eval-hook
12364 make-toplevel-define
12658 define-expansion-accessors
12659 define-expansion-constructors)
12660 ((top) (top) (top))
12661 ("l-*-47" "l-*-46" "l-*-45"))
12662 #(ribcage () () ()))
12666 (remodulate-11880 exp-11904 mod-11905)
12669 (source-annotation-4544 exp-11904)
12674 "source expression failed to match any pattern"
12676 (global-extend-4548
12679 (lambda (e-12288 r-12289 w-12290 s-12291 mod-12292)
12680 (let ((tmp-12294 ($sc-dispatch e-12288 '(_ any any))))
12683 (lambda (test-12298 then-12299)
12684 (build-conditional-4518
12696 (make-struct/no-tail
12697 (vector-ref %expanded-vtables 0)
12701 ($sc-dispatch e-12288 '(_ any any any))))
12704 (lambda (test-12552 then-12553 else-12554)
12705 (build-conditional-4518
12725 "source expression failed to match any pattern"
12727 (global-extend-4548
12730 (lambda (e-12993 r-12994 w-12995 s-12996 mod-12997)
12734 '(_ #(each (any any)) any . each-any))))
12737 (lambda (fluid-13003 val-13004 b-13005 b*-13006)
12740 (map (lambda (x-13095)
12741 (expand-4586 x-13095 r-12994 w-12995 mod-12997))
12743 (map (lambda (x-13173)
12744 (expand-4586 x-13173 r-12994 w-12995 mod-12997))
12747 (cons b-13005 b*-13006)
12750 (if (if (pair? e-12993) s-12996 #f)
12751 (set-source-properties! e-12993 s-12996))
12753 (if (if (null? (car w-12995))
12754 (null? (cdr w-12995))
12757 (if (if (vector? x-13262)
12758 (if (= (vector-length x-13262) 4)
12759 (eq? (vector-ref x-13262 0) 'syntax-object)
12762 (let ((expression-13294 (vector-ref x-13262 1))
12764 (let ((w2-13303 (vector-ref x-13262 2)))
12765 (let ((m1-13304 (car w-12995))
12766 (s1-13305 (cdr w-12995)))
12767 (if (null? m1-13304)
12768 (if (null? s1-13305)
12770 (cons (car w2-13303)
12773 (if (null? m2-13320)
12778 (cons (let ((m2-13328
12780 (if (null? m2-13328)
12787 (if (null? m2-13336)
12792 (module-13296 (vector-ref x-13262 3)))
12798 (if (null? x-13262)
12811 "source expression failed to match any pattern"
12816 (make-syntax-transformer 'begin 'begin '()))
12820 (make-syntax-transformer 'define 'define '()))
12824 (make-syntax-transformer
12830 'define-syntax-parameter
12831 (make-syntax-transformer
12832 'define-syntax-parameter
12833 'define-syntax-parameter
12838 (make-syntax-transformer
12842 (global-extend-4548
12846 ((convert-pattern-13636
12847 (lambda (pattern-15258 keys-15259)
12850 (lambda (p*-16059 n-16060 ids-16061)
12851 (if (not (pair? p*-16059))
12852 (cvt-15262 p*-16059 n-16060 ids-16061)
12855 (cvt*-15260 (cdr p*-16059) n-16060 ids-16061))
12856 (lambda (y-16064 ids-16065)
12859 (cvt-15262 (car p*-16059) n-16060 ids-16065))
12860 (lambda (x-16068 ids-16069)
12862 (cons x-16068 y-16064)
12868 (lambda (r-16172 x-16173)
12869 (if (not (pair? x-16173))
12870 (values r-16172 x-16173)
12872 (cons (car x-16173) r-16172)
12874 (loop-16071 '() x-16070))))
12876 (lambda (p-15265 n-15266 ids-15267)
12877 (if (if (symbol? p-15265)
12879 (if (if (vector? p-15265)
12880 (if (= (vector-length p-15265) 4)
12881 (eq? (vector-ref p-15265 0) 'syntax-object)
12884 (symbol? (vector-ref p-15265 1))
12886 (if (bound-id-member?-4578 p-15265 keys-15259)
12887 (values (vector 'free-id p-15265) ids-15267)
12888 (if (free-id=?-4574
12893 #(ribcage () () ())
12896 #((top) (top) (top))
12897 #("l-*-3927" "l-*-3928" "l-*-3929"))
12899 (cvt v-reverse cvt*)
12900 ((top) (top) (top))
12901 ("l-*-3900" "l-*-3898" "l-*-3896"))
12905 #("l-*-3894" "l-*-3895"))
12909 build-dispatch-call
12911 ((top) (top) (top) (top))
12922 expand-simple-lambda
12926 eval-local-transformer
12927 expand-local-syntax
12935 expand-install-global
12936 expand-top-sequence
12941 distinct-bound-ids?
12945 with-transformer-environment
12946 transformer-environment
12948 locally-bound-identifiers
12963 set-ribcage-labels!
12965 set-ribcage-symnames!
12996 set-syntax-object-module!
12997 set-syntax-object-wrap!
12998 set-syntax-object-expression!
12999 syntax-object-module
13001 syntax-object-expression
13014 build-simple-lambda
13015 build-global-definition
13016 build-global-assignment
13017 build-global-reference
13019 build-lexical-assignment
13020 build-lexical-reference
13027 get-global-definition-hook
13028 put-global-definition-hook
13031 top-level-eval-hook
13048 make-toplevel-define
13342 define-expansion-accessors
13343 define-expansion-constructors)
13344 ((top) (top) (top))
13345 ("l-*-47" "l-*-46" "l-*-45"))
13346 #(ribcage () () ()))
13348 (values '_ ids-15267)
13351 (cons (cons p-15265 n-15266) ids-15267))))
13352 (let ((tmp-15399 ($sc-dispatch p-15265 '(any any))))
13355 (lambda (x-15403 dots-15404)
13356 (if (if (if (vector? dots-15404)
13357 (if (= (vector-length dots-15404)
13359 (eq? (vector-ref dots-15404 0)
13363 (symbol? (vector-ref dots-15404 1))
13370 #(ribcage () () ())
13371 #(ribcage () () ())
13382 expand-simple-lambda
13386 eval-local-transformer
13387 expand-local-syntax
13395 expand-install-global
13396 expand-top-sequence
13401 distinct-bound-ids?
13405 with-transformer-environment
13406 transformer-environment
13408 locally-bound-identifiers
13423 set-ribcage-labels!
13425 set-ribcage-symnames!
13456 set-syntax-object-module!
13457 set-syntax-object-wrap!
13458 set-syntax-object-expression!
13459 syntax-object-module
13461 syntax-object-expression
13474 build-simple-lambda
13475 build-global-definition
13476 build-global-assignment
13477 build-global-reference
13479 build-lexical-assignment
13480 build-lexical-reference
13487 get-global-definition-hook
13488 put-global-definition-hook
13491 top-level-eval-hook
13508 make-toplevel-define
13802 define-expansion-accessors
13803 define-expansion-constructors)
13804 ((top) (top) (top))
13805 ("l-*-47" "l-*-46" "l-*-45"))
13806 #(ribcage () () ()))
13812 (lambda (x-15443 dots-15444)
13819 (lambda (p-15445 ids-15446)
13821 (if (eq? p-15445 'any)
13823 (vector 'each p-15445))
13827 ($sc-dispatch p-15265 '(any any . any))))
13830 (lambda (x-15451 dots-15452 ys-15453)
13831 (if (if (if (vector? dots-15452)
13832 (if (= (vector-length
13842 (vector-ref dots-15452 1))
13849 #(ribcage () () ())
13850 #(ribcage () () ())
13861 expand-simple-lambda
13865 eval-local-transformer
13866 expand-local-syntax
13874 expand-install-global
13875 expand-top-sequence
13880 distinct-bound-ids?
13884 with-transformer-environment
13885 transformer-environment
13887 locally-bound-identifiers
13902 set-ribcage-labels!
13904 set-ribcage-symnames!
13935 set-syntax-object-module!
13936 set-syntax-object-wrap!
13937 set-syntax-object-expression!
13938 syntax-object-module
13940 syntax-object-expression
13953 build-simple-lambda
13954 build-global-definition
13955 build-global-assignment
13956 build-global-reference
13958 build-lexical-assignment
13959 build-lexical-reference
13966 get-global-definition-hook
13967 put-global-definition-hook
13970 top-level-eval-hook
13987 make-toplevel-define
14281 define-expansion-accessors
14282 define-expansion-constructors)
14283 ((top) (top) (top))
14284 ("l-*-47" "l-*-46" "l-*-45"))
14285 #(ribcage () () ()))
14291 (lambda (x-15492 dots-15493 ys-15494)
14298 (lambda (ys-15979 ids-15980)
14305 (lambda (x-15981 ids-15982)
14308 (v-reverse-15261 ys-15979))
14309 (lambda (ys-16018 e-16019)
14319 ($sc-dispatch p-15265 '(any . any))))
14322 (lambda (x-16024 y-16025)
14329 (lambda (y-16026 ids-16027)
14336 (lambda (x-16028 ids-16029)
14338 (cons x-16028 y-16026)
14342 ($sc-dispatch p-15265 '())))
14345 (lambda () (values '() ids-15267))
14350 '#(vector each-any))))
14360 (lambda (p-16039 ids-16040)
14362 (vector 'vector p-16039)
14368 (strip-4599 p-15265 '(())))
14369 ids-15267)))))))))))))))
14370 (cvt-15262 pattern-15258 0 '()))))
14371 (build-dispatch-call-13637
14372 (lambda (pvars-16174 exp-16175 y-16176 r-16177 mod-16178)
14373 (let ((ids-16179 (map car pvars-16174)))
14375 (map cdr pvars-16174)
14376 (let ((labels-16181 (gen-labels-4553 ids-16179))
14377 (new-vars-16182 (map gen-var-4600 ids-16179)))
14378 (build-primcall-4529
14381 (list (build-simple-lambda-4526
14383 (map syntax->datum ids-16179)
14391 (map (lambda (var-16510 level-16511)
14393 (cons var-16510 level-16511)))
14395 (map cdr pvars-16174))
14397 (make-binding-wrap-4564
14414 (convert-pattern-13636 pat-14846 keys-14843))
14415 (lambda (p-14987 pvars-14988)
14416 (if (not (distinct-bound-ids?-4577 (map car pvars-14988)))
14419 "duplicate pattern variable"
14423 (not (let ((x-15101 (car x-15097)))
14424 (if (if (if (vector? x-15101)
14425 (if (= (vector-length
14434 (symbol? (vector-ref x-15101 1))
14441 #(ribcage () () ())
14442 #(ribcage () () ())
14453 expand-simple-lambda
14457 eval-local-transformer
14458 expand-local-syntax
14466 expand-install-global
14467 expand-top-sequence
14472 distinct-bound-ids?
14476 with-transformer-environment
14477 transformer-environment
14479 locally-bound-identifiers
14494 set-ribcage-labels!
14496 set-ribcage-symnames!
14527 set-syntax-object-module!
14528 set-syntax-object-wrap!
14529 set-syntax-object-expression!
14530 syntax-object-module
14532 syntax-object-expression
14545 build-simple-lambda
14546 build-global-definition
14547 build-global-assignment
14548 build-global-reference
14550 build-lexical-assignment
14551 build-lexical-reference
14558 get-global-definition-hook
14559 put-global-definition-hook
14562 top-level-eval-hook
14579 make-toplevel-define
14873 define-expansion-accessors
14874 define-expansion-constructors)
14875 ((top) (top) (top))
14879 #(ribcage () () ()))
14885 "misplaced ellipsis"
14889 (string-append (symbol->string 'tmp) "-"))))
14890 (let ((fun-exp-15131
14891 (let ((req-15140 (list 'tmp))
14892 (vars-15142 (list y-15126))
14895 (make-struct/no-tail
14902 (let ((test-exp-15177
14909 (lambda () y-15173)
14911 (let ((then-exp-15204
14912 (build-dispatch-call-13637
14919 (make-struct/no-tail
14925 (make-struct/no-tail
14932 else-exp-15205)))))
14934 (build-dispatch-call-13637
14941 (gen-syntax-case-13639
14947 (make-struct/no-tail
14954 else-exp-15179)))))
14956 (make-struct/no-tail
14957 (vector-ref %expanded-vtables 15)
14967 (make-struct/no-tail
14968 (vector-ref %expanded-vtables 14)
14973 (list (if (eq? p-14987 'any)
14974 (let ((args-15237 (list x-14842)))
14975 (make-struct/no-tail
14976 (vector-ref %expanded-vtables 12)
14982 (make-struct/no-tail
14988 (make-struct/no-tail
14989 (vector-ref %expanded-vtables 12)
14993 (make-struct/no-tail
14994 (vector-ref %expanded-vtables 11)
14997 arg-exps-15132)))))))))
14998 (gen-syntax-case-13639
15004 (if (null? clauses-14345)
15006 (list (make-struct/no-tail
15007 (vector-ref %expanded-vtables 1)
15010 (make-struct/no-tail
15011 (vector-ref %expanded-vtables 1)
15013 "source expression failed to match any pattern")
15015 (make-struct/no-tail
15016 (vector-ref %expanded-vtables 12)
15020 (let ((tmp-14372 (car clauses-14345)))
15021 (let ((tmp-14373 ($sc-dispatch tmp-14372 '(any any))))
15024 (lambda (pat-14375 exp-14376)
15025 (if (if (if (symbol? pat-14375)
15027 (if (if (vector? pat-14375)
15028 (if (= (vector-length pat-14375) 4)
15029 (eq? (vector-ref pat-14375 0)
15033 (symbol? (vector-ref pat-14375 1))
15037 (not (free-id=?-4574 pat-14375 x-14403)))
15038 (cons '#(syntax-object
15044 #("l-*-4087" "l-*-4088"))
15045 #(ribcage () () ())
15047 #(x keys clauses r mod)
15048 #((top) (top) (top) (top) (top))
15057 build-dispatch-call
15059 ((top) (top) (top) (top))
15070 expand-simple-lambda
15074 eval-local-transformer
15075 expand-local-syntax
15083 expand-install-global
15084 expand-top-sequence
15089 distinct-bound-ids?
15093 with-transformer-environment
15094 transformer-environment
15096 locally-bound-identifiers
15111 set-ribcage-labels!
15113 set-ribcage-symnames!
15144 set-syntax-object-module!
15145 set-syntax-object-wrap!
15146 set-syntax-object-expression!
15147 syntax-object-module
15149 syntax-object-expression
15162 build-simple-lambda
15163 build-global-definition
15164 build-global-assignment
15165 build-global-reference
15167 build-lexical-assignment
15168 build-lexical-reference
15175 get-global-definition-hook
15176 put-global-definition-hook
15179 top-level-eval-hook
15196 make-toplevel-define
15490 define-expansion-accessors
15491 define-expansion-constructors)
15492 ((top) (top) (top))
15493 ("l-*-47" "l-*-46" "l-*-45"))
15494 #(ribcage () () ()))
15498 (if (free-id=?-4574
15505 #("l-*-4087" "l-*-4088"))
15506 #(ribcage () () ())
15508 #(x keys clauses r mod)
15509 #((top) (top) (top) (top) (top))
15518 build-dispatch-call
15520 ((top) (top) (top) (top))
15531 expand-simple-lambda
15535 eval-local-transformer
15536 expand-local-syntax
15544 expand-install-global
15545 expand-top-sequence
15550 distinct-bound-ids?
15554 with-transformer-environment
15555 transformer-environment
15557 locally-bound-identifiers
15572 set-ribcage-labels!
15574 set-ribcage-symnames!
15605 set-syntax-object-module!
15606 set-syntax-object-wrap!
15607 set-syntax-object-expression!
15608 syntax-object-module
15610 syntax-object-expression
15623 build-simple-lambda
15624 build-global-definition
15625 build-global-assignment
15626 build-global-reference
15628 build-lexical-assignment
15629 build-lexical-reference
15636 get-global-definition-hook
15637 put-global-definition-hook
15640 top-level-eval-hook
15657 make-toplevel-define
15951 define-expansion-accessors
15952 define-expansion-constructors)
15953 ((top) (top) (top))
15954 ("l-*-47" "l-*-46" "l-*-45"))
15955 #(ribcage () () ()))
15963 #("l-*-4087" "l-*-4088"))
15964 #(ribcage () () ())
15966 #(x keys clauses r mod)
15967 #((top) (top) (top) (top) (top))
15976 build-dispatch-call
15978 ((top) (top) (top) (top))
15989 expand-simple-lambda
15993 eval-local-transformer
15994 expand-local-syntax
16002 expand-install-global
16003 expand-top-sequence
16008 distinct-bound-ids?
16012 with-transformer-environment
16013 transformer-environment
16015 locally-bound-identifiers
16030 set-ribcage-labels!
16032 set-ribcage-symnames!
16063 set-syntax-object-module!
16064 set-syntax-object-wrap!
16065 set-syntax-object-expression!
16066 syntax-object-module
16068 syntax-object-expression
16081 build-simple-lambda
16082 build-global-definition
16083 build-global-assignment
16084 build-global-reference
16086 build-lexical-assignment
16087 build-lexical-reference
16094 get-global-definition-hook
16095 put-global-definition-hook
16098 top-level-eval-hook
16115 make-toplevel-define
16409 define-expansion-accessors
16410 define-expansion-constructors)
16411 ((top) (top) (top))
16412 ("l-*-47" "l-*-46" "l-*-45"))
16413 #(ribcage () () ()))
16415 (expand-4586 exp-14376 r-14346 '(()) mod-14347)
16416 (let ((labels-14485
16417 (list (string-append
16420 (symbol->string (gensym "-")))))
16423 (if (if (vector? pat-14375)
16424 (if (= (vector-length
16433 (vector-ref pat-14375 1)
16437 (symbol->string id-14524)
16441 (build-simple-lambda-4526
16443 (list (syntax->datum pat-14375))
16451 (list (cons 'syntax
16452 (cons var-14486 0)))
16454 (make-binding-wrap-4564
16463 (cdr clauses-14345)
16471 ($sc-dispatch tmp-14372 '(any any any))))
16474 (lambda (pat-14836 fender-14837 exp-14838)
16478 (cdr clauses-14345)
16488 (car clauses-14345)))))))))))
16489 (lambda (e-13640 r-13641 w-13642 s-13643 mod-13644)
16493 (if (if (pair? e-13640) s-13643 #f)
16494 (set-source-properties! e-13640 s-13643))
16496 (if (if (null? (car w-13642))
16497 (null? (cdr w-13642))
16500 (if (if (vector? x-14254)
16501 (if (= (vector-length x-14254) 4)
16502 (eq? (vector-ref x-14254 0) 'syntax-object)
16505 (let ((expression-14286 (vector-ref x-14254 1))
16507 (let ((w2-14295 (vector-ref x-14254 2)))
16508 (let ((m1-14296 (car w-13642))
16509 (s1-14297 (cdr w-13642)))
16510 (if (null? m1-14296)
16511 (if (null? s1-14297)
16513 (cons (car w2-14295)
16516 (if (null? m2-14312)
16521 (cons (let ((m2-14320 (car w2-14295)))
16522 (if (null? m2-14320)
16524 (append m1-14296 m2-14320)))
16525 (let ((m2-14328 (cdr w2-14295)))
16526 (if (null? m2-14328)
16531 (module-14288 (vector-ref x-14254 3)))
16537 (if (null? x-14254)
16544 (let ((tmp-13646 e-13645))
16548 '(_ any each-any . each-any))))
16551 (lambda (val-13695 key-13696 m-13697)
16554 (if (if (symbol? x-13698)
16556 (if (if (vector? x-13698)
16557 (if (= (vector-length x-13698) 4)
16558 (eq? (vector-ref x-13698 0)
16562 (symbol? (vector-ref x-13698 1))
16564 (not (if (if (if (vector? x-13698)
16565 (if (= (vector-length x-13698)
16567 (eq? (vector-ref x-13698 0)
16571 (symbol? (vector-ref x-13698 1))
16578 #(ribcage () () ())
16579 #(ribcage () () ())
16590 expand-simple-lambda
16594 eval-local-transformer
16595 expand-local-syntax
16603 expand-install-global
16604 expand-top-sequence
16609 distinct-bound-ids?
16613 with-transformer-environment
16614 transformer-environment
16616 locally-bound-identifiers
16631 set-ribcage-labels!
16633 set-ribcage-symnames!
16664 set-syntax-object-module!
16665 set-syntax-object-wrap!
16666 set-syntax-object-expression!
16667 syntax-object-module
16669 syntax-object-expression
16682 build-simple-lambda
16683 build-global-definition
16684 build-global-assignment
16685 build-global-reference
16687 build-lexical-assignment
16688 build-lexical-reference
16695 get-global-definition-hook
16696 put-global-definition-hook
16699 top-level-eval-hook
16716 make-toplevel-define
17010 define-expansion-accessors
17011 define-expansion-constructors)
17012 ((top) (top) (top))
17013 ("l-*-47" "l-*-46" "l-*-45"))
17014 #(ribcage () () ()))
17022 (symbol->string 'tmp)
17026 (let ((req-13901 (list 'tmp))
17027 (vars-13903 (list x-13763))
17029 (gen-syntax-case-13639
17030 (make-struct/no-tail
17031 (vector-ref %expanded-vtables 3)
17040 (make-struct/no-tail
17041 (vector-ref %expanded-vtables 15)
17051 (make-struct/no-tail
17052 (vector-ref %expanded-vtables 14)
17063 "invalid literals list"
17068 "source expression failed to match any pattern"
17075 (esew-16592 '(eval)))
17076 (expand-top-sequence-4582
17083 (cons 'hygiene (module-name (current-module))))))
17086 (if (if (vector? x-16595)
17087 (if (= (vector-length x-16595) 4)
17088 (eq? (vector-ref x-16595 0) 'syntax-object)
17091 (symbol? (vector-ref x-16595 1))
17093 (set! datum->syntax
17094 (lambda (id-16620 datum-16621)
17095 (let ((wrap-16626 (vector-ref id-16620 2))
17096 (module-16627 (vector-ref id-16620 3)))
17102 (set! syntax->datum
17103 (lambda (x-16634) (strip-4599 x-16634 '(()))))
17104 (set! syntax-source
17106 (source-annotation-4544 x-16637)))
17107 (set! generate-temporaries
17110 (if (not (list? ls-16821))
17112 'generate-temporaries
17116 (cons 'hygiene (module-name (current-module)))))
17117 (map (lambda (x-16830)
17118 (let ((x-16834 (gensym "t-")))
17119 (if (if (vector? x-16834)
17120 (if (= (vector-length x-16834) 4)
17121 (eq? (vector-ref x-16834 0) 'syntax-object)
17124 (let ((expression-16849 (vector-ref x-16834 1))
17126 (let ((w2-16858 (vector-ref x-16834 2)))
17127 (cons (let ((m2-16865 (car w2-16858)))
17128 (if (null? m2-16865)
17130 (append '(top) m2-16865)))
17131 (let ((m2-16872 (cdr w2-16858)))
17132 (if (null? m2-16872)
17134 (append '() m2-16872))))))
17135 (module-16851 (vector-ref x-16834 3)))
17141 (if (null? x-16834)
17149 (set! free-identifier=?
17150 (lambda (x-16881 y-16882)
17152 (if (not (if (if (vector? x-16881)
17153 (if (= (vector-length x-16881) 4)
17154 (eq? (vector-ref x-16881 0) 'syntax-object)
17157 (symbol? (vector-ref x-16881 1))
17163 (if (not (if (if (vector? y-16882)
17164 (if (= (vector-length y-16882) 4)
17165 (eq? (vector-ref y-16882 0) 'syntax-object)
17168 (symbol? (vector-ref y-16882 1))
17174 (free-id=?-4574 x-16881 y-16882))))
17175 (set! bound-identifier=?
17176 (lambda (x-16957 y-16958)
17178 (if (not (if (if (vector? x-16957)
17179 (if (= (vector-length x-16957) 4)
17180 (eq? (vector-ref x-16957 0) 'syntax-object)
17183 (symbol? (vector-ref x-16957 1))
17186 'bound-identifier=?
17189 (if (not (if (if (vector? y-16958)
17190 (if (= (vector-length y-16958) 4)
17191 (eq? (vector-ref y-16958 0) 'syntax-object)
17194 (symbol? (vector-ref y-16958 1))
17197 'bound-identifier=?
17200 (bound-id=?-4575 x-16957 y-16958))))
17201 (set! syntax-violation
17207 (subform-17127 #f))
17209 (if (not (if (not who-17124)
17211 (let ((t-17145 (string? who-17124)))
17212 (if t-17145 t-17145 (symbol? who-17124)))))
17217 (if (not (string? message-17125))
17222 (throw 'syntax-error
17225 (source-annotation-4544
17226 (if form-17126 form-17126 subform-17127))
17227 (strip-4599 form-17126 '(()))
17229 (strip-4599 subform-17127 '(()))
17232 ((syntax-local-binding-17377
17235 (if (not (if (if (vector? id-17517)
17236 (if (= (vector-length id-17517) 4)
17237 (eq? (vector-ref id-17517 0) 'syntax-object)
17240 (symbol? (vector-ref id-17517 1))
17243 'syntax-local-binding
17246 ((fluid-ref transformer-environment-4572)
17255 (resolve-identifier-4571
17256 (vector-ref id-17517 1)
17257 (let ((w-17569 (vector-ref id-17517 2)))
17258 (let ((ms-17570 (car w-17569))
17259 (s-17571 (cdr w-17569)))
17260 (if (if (pair? ms-17570)
17261 (eq? (car ms-17570) #f)
17263 (cons (cdr ms-17570)
17265 (cons rib-17561 (cdr s-17571))
17269 (cons rib-17561 s-17571)
17272 (vector-ref id-17517 3)
17274 (lambda (type-17578 value-17579 mod-17580)
17275 (if (eqv? type-17578 'lexical)
17276 (values 'lexical value-17579)
17277 (if (eqv? type-17578 'macro)
17278 (values 'macro value-17579)
17279 (if (eqv? type-17578 'syntax)
17280 (values 'pattern-variable value-17579)
17281 (if (eqv? type-17578 'displaced-lexical)
17282 (values 'displaced-lexical #f)
17283 (if (eqv? type-17578 'global)
17286 (cons value-17579 (cdr mod-17580)))
17287 (values 'other #f)))))))))))))
17288 (syntax-locally-bound-identifiers-17378
17291 (if (not (if (if (vector? id-17591)
17292 (if (= (vector-length id-17591) 4)
17293 (eq? (vector-ref id-17591 0) 'syntax-object)
17296 (symbol? (vector-ref id-17591 1))
17299 'syntax-locally-bound-identifiers
17302 (locally-bound-identifiers-4570
17303 (vector-ref id-17591 2)
17304 (vector-ref id-17591 3))))))
17310 (if (not (if (if (vector? id-17380)
17311 (if (= (vector-length id-17380) 4)
17312 (eq? (vector-ref id-17380 0) 'syntax-object)
17315 (symbol? (vector-ref id-17380 1))
17321 (cdr (vector-ref id-17380 3)))))
17323 'syntax-local-binding
17324 syntax-local-binding-17377)
17326 'syntax-locally-bound-identifiers
17327 syntax-locally-bound-identifiers-17378)))
17330 (lambda (e-18587 p-18588 w-18589 mod-18590)
17331 (if (pair? e-18587)
17346 (if rest-18594 (cons first-18591 rest-18594) #f))
17348 (if (null? e-18587)
17350 (if (if (vector? e-18587)
17351 (if (= (vector-length e-18587) 4)
17352 (eq? (vector-ref e-18587 0) 'syntax-object)
17356 (vector-ref e-18587 1)
17358 (let ((w2-18616 (vector-ref e-18587 2)))
17359 (let ((m1-18617 (car w-18589))
17360 (s1-18618 (cdr w-18589)))
17361 (if (null? m1-18617)
17362 (if (null? s1-18618)
17364 (cons (car w2-18616)
17365 (let ((m2-18629 (cdr w2-18616)))
17366 (if (null? m2-18629)
17368 (append s1-18618 m2-18629)))))
17369 (cons (let ((m2-18637 (car w2-18616)))
17370 (if (null? m2-18637)
17372 (append m1-18617 m2-18637)))
17373 (let ((m2-18645 (cdr w2-18616)))
17374 (if (null? m2-18645)
17376 (append s1-18618 m2-18645)))))))
17377 (vector-ref e-18587 3))
17379 (match-each-any-17710
17380 (lambda (e-18654 w-18655 mod-18656)
17381 (if (pair? e-18654)
17383 (match-each-any-17710
17388 (cons (let ((x-18662 (car e-18654)))
17389 (if (if (null? (car w-18655))
17390 (null? (cdr w-18655))
17393 (if (if (vector? x-18662)
17394 (if (= (vector-length x-18662) 4)
17395 (eq? (vector-ref x-18662 0)
17399 (let ((expression-18680 (vector-ref x-18662 1))
17401 (let ((w2-18689 (vector-ref x-18662 2)))
17402 (let ((m1-18690 (car w-18655))
17403 (s1-18691 (cdr w-18655)))
17404 (if (null? m1-18690)
17405 (if (null? s1-18691)
17407 (cons (car w2-18689)
17410 (if (null? m2-18706)
17415 (cons (let ((m2-18714
17417 (if (null? m2-18714)
17424 (if (null? m2-18722)
17429 (module-18682 (vector-ref x-18662 3)))
17435 (if (null? x-18662)
17444 (if (null? e-18654)
17446 (if (if (vector? e-18654)
17447 (if (= (vector-length e-18654) 4)
17448 (eq? (vector-ref e-18654 0) 'syntax-object)
17451 (match-each-any-17710
17452 (vector-ref e-18654 1)
17453 (let ((w2-18755 (vector-ref e-18654 2)))
17454 (let ((m1-18756 (car w-18655))
17455 (s1-18757 (cdr w-18655)))
17456 (if (null? m1-18756)
17457 (if (null? s1-18757)
17459 (cons (car w2-18755)
17460 (let ((m2-18768 (cdr w2-18755)))
17461 (if (null? m2-18768)
17463 (append s1-18757 m2-18768)))))
17464 (cons (let ((m2-18776 (car w2-18755)))
17465 (if (null? m2-18776)
17467 (append m1-18756 m2-18776)))
17468 (let ((m2-18784 (cdr w2-18755)))
17469 (if (null? m2-18784)
17471 (append s1-18757 m2-18784)))))))
17475 (lambda (p-18789 r-18790)
17476 (if (null? p-18789)
17478 (if (eq? p-18789 '_)
17480 (if (eq? p-18789 'any)
17482 (if (pair? p-18789)
17485 (match-empty-17711 (cdr p-18789) r-18790))
17486 (if (eq? p-18789 'each-any)
17488 (let ((atom-key-18791 (vector-ref p-18789 0)))
17489 (if (eqv? atom-key-18791 'each)
17491 (vector-ref p-18789 1)
17493 (if (eqv? atom-key-18791 'each+)
17495 (vector-ref p-18789 1)
17497 (reverse (vector-ref p-18789 2))
17499 (vector-ref p-18789 3)
17501 (if (if (eqv? atom-key-18791 'free-id)
17503 (eqv? atom-key-18791 'atom))
17505 (if (eqv? atom-key-18791 'vector)
17507 (vector-ref p-18789 1)
17508 r-18790)))))))))))))
17510 (lambda (r*-18810 r-18811)
17511 (if (null? (car r*-18810))
17513 (cons (map car r*-18810)
17514 (combine-17712 (map cdr r*-18810) r-18811)))))
17516 (lambda (e-17743 p-17744 w-17745 r-17746 mod-17747)
17517 (if (null? p-17744)
17518 (if (null? e-17743) r-17746 #f)
17519 (if (pair? p-17744)
17520 (if (pair? e-17743)
17533 (if (eq? p-17744 'each-any)
17535 (match-each-any-17710 e-17743 w-17745 mod-17747)))
17536 (if l-17752 (cons l-17752 r-17746) #f))
17537 (let ((atom-key-17757 (vector-ref p-17744 0)))
17538 (if (eqv? atom-key-17757 'each)
17539 (if (null? e-17743)
17541 (vector-ref p-17744 1)
17546 (vector-ref p-17744 1)
17553 (if (null? (car l-17824))
17555 (cons (map car l-17824)
17557 (map cdr l-17824)))))))
17558 (collect-17767 l-17764))
17560 (if (eqv? atom-key-17757 'each+)
17563 (let ((x-pat-17833 (vector-ref p-17744 1))
17564 (y-pat-17834 (vector-ref p-17744 2))
17565 (z-pat-17835 (vector-ref p-17744 3)))
17568 (lambda (e-17841 w-17842)
17569 (if (pair? e-17841)
17572 (f-17839 (cdr e-17841) w-17842))
17577 (if (null? y-pat-17844)
17587 (cons xr-17846 xr*-17843)
17590 (values #f #f #f)))
17600 (values #f #f #f))))
17601 (if (if (vector? e-17841)
17602 (if (= (vector-length e-17841) 4)
17603 (eq? (vector-ref e-17841 0)
17608 (vector-ref e-17841 1)
17609 (let ((m1-17872 (car w-17842))
17610 (s1-17873 (cdr w-17842)))
17611 (if (null? m1-17872)
17612 (if (null? s1-17873)
17614 (cons (car e-17841)
17617 (if (null? m2-17885)
17622 (cons (let ((m2-17895
17624 (if (null? m2-17895)
17631 (if (null? m2-17905)
17645 (f-17839 e-17743 w-17745))))
17646 (lambda (xr*-17915 y-pat-17916 r-17917)
17648 (if (null? y-pat-17916)
17649 (if (null? xr*-17915)
17651 (vector-ref p-17744 1)
17653 (combine-17712 xr*-17915 r-17917))
17656 (if (eqv? atom-key-17757 'free-id)
17657 (if (if (symbol? e-17743)
17659 (if (if (vector? e-17743)
17660 (if (= (vector-length e-17743) 4)
17661 (eq? (vector-ref e-17743 0)
17665 (symbol? (vector-ref e-17743 1))
17667 (if (free-id=?-4574
17668 (if (if (null? (car w-17745))
17669 (null? (cdr w-17745))
17672 (if (if (vector? e-17743)
17673 (if (= (vector-length e-17743) 4)
17674 (eq? (vector-ref e-17743 0)
17678 (let ((expression-18345
17679 (vector-ref e-17743 1))
17682 (vector-ref e-17743 2)))
17683 (let ((m1-18357 (car w-17745))
17686 (if (null? m1-18357)
17687 (if (null? s1-18358)
17689 (cons (car w2-18356)
17692 (if (null? m2-18375)
17697 (cons (let ((m2-18383
17699 (if (null? m2-18383)
17706 (if (null? m2-18391)
17712 (vector-ref e-17743 3)))
17718 (if (null? e-17743)
17725 (vector-ref p-17744 1))
17729 (if (eqv? atom-key-17757 'atom)
17731 (vector-ref p-17744 1)
17732 (strip-4599 e-17743 w-17745))
17735 (if (eqv? atom-key-17757 'vector)
17736 (if (vector? e-17743)
17738 (vector->list e-17743)
17739 (vector-ref p-17744 1)
17745 (lambda (e-18424 p-18425 w-18426 r-18427 mod-18428)
17748 (if (eq? p-18425 '_)
17750 (if (eq? p-18425 'any)
17751 (cons (if (if (null? (car w-18426))
17752 (null? (cdr w-18426))
17755 (if (if (vector? e-18424)
17756 (if (= (vector-length e-18424) 4)
17757 (eq? (vector-ref e-18424 0) 'syntax-object)
17760 (let ((expression-18458 (vector-ref e-18424 1))
17762 (let ((w2-18469 (vector-ref e-18424 2)))
17763 (let ((m1-18470 (car w-18426))
17764 (s1-18471 (cdr w-18426)))
17765 (if (null? m1-18470)
17766 (if (null? s1-18471)
17768 (cons (car w2-18469)
17771 (if (null? m2-18488)
17776 (cons (let ((m2-18496
17778 (if (null? m2-18496)
17785 (if (null? m2-18504)
17790 (module-18460 (vector-ref e-18424 3)))
17796 (if (null? e-18424)
17804 (if (if (vector? e-18424)
17805 (if (= (vector-length e-18424) 4)
17806 (eq? (vector-ref e-18424 0) 'syntax-object)
17810 (vector-ref e-18424 1)
17812 (let ((w2-18547 (vector-ref e-18424 2)))
17813 (let ((m1-18548 (car w-18426))
17814 (s1-18549 (cdr w-18426)))
17815 (if (null? m1-18548)
17816 (if (null? s1-18549)
17818 (cons (car w2-18547)
17819 (let ((m2-18560 (cdr w2-18547)))
17820 (if (null? m2-18560)
17822 (append s1-18549 m2-18560)))))
17823 (cons (let ((m2-18568 (car w2-18547)))
17824 (if (null? m2-18568)
17826 (append m1-18548 m2-18568)))
17827 (let ((m2-18576 (cdr w2-18547)))
17828 (if (null? m2-18576)
17830 (append s1-18549 m2-18576)))))))
17832 (vector-ref e-18424 3))
17840 (lambda (e-17715 p-17716)
17841 (if (eq? p-17716 'any)
17843 (if (eq? p-17716 '_)
17845 (if (if (vector? e-17715)
17846 (if (= (vector-length e-17715) 4)
17847 (eq? (vector-ref e-17715 0) 'syntax-object)
17851 (vector-ref e-17715 1)
17853 (vector-ref e-17715 2)
17855 (vector-ref e-17715 3))
17856 (match*-17713 e-17715 p-17716 '(()) '() #f))))))))))
17858 (define with-syntax
17859 (make-syntax-transformer
17864 ($sc-dispatch x-37252 '(_ () any . each-any))))
17867 (lambda (e1-37258 e2-37259)
17868 (cons '#(syntax-object
17874 #("l-*-37225" "l-*-37226"))
17875 #(ribcage () () ())
17876 #(ribcage #(x) #((top)) #("l-*-37222"))
17885 (hygiene guile))))))
17887 (cons '() (cons e1-37258 e2-37259))))
17892 '(_ ((any any)) any . each-any))))
17895 (lambda (out-37264 in-37265 e1-37266 e2-37267)
17896 (list '#(syntax-object
17901 #((top) (top) (top) (top))
17906 #(ribcage () () ())
17907 #(ribcage #(x) #((top)) #("l-*-37222"))
17916 (hygiene guile))))))
17921 (cons '#(syntax-object
17926 #((top) (top) (top) (top))
17931 #(ribcage () () ())
17932 #(ribcage #(x) #((top)) #("l-*-37222"))
17941 (hygiene guile))))))
17943 (cons '() (cons e1-37266 e2-37267))))))
17948 '(_ #(each (any any)) any . each-any))))
17951 (lambda (out-37272 in-37273 e1-37274 e2-37275)
17952 (list '#(syntax-object
17957 #((top) (top) (top) (top))
17962 #(ribcage () () ())
17963 #(ribcage #(x) #((top)) #("l-*-37222"))
17972 (hygiene guile))))))
17974 (cons '#(syntax-object
17979 #((top) (top) (top) (top))
17984 #(ribcage () () ())
17985 #(ribcage #(x) #((top)) #("l-*-37222"))
17994 (hygiene guile))))))
17999 (cons '#(syntax-object
18004 #((top) (top) (top) (top))
18009 #(ribcage () () ())
18022 (hygiene guile))))))
18024 (cons '() (cons e1-37274 e2-37275))))))
18028 "source expression failed to match any pattern"
18031 (define syntax-rules
18032 (make-syntax-transformer
18039 '(_ each-any . #(each ((any . any) any))))))
18046 (list '#(syntax-object
18050 #(k keyword pattern template)
18051 #((top) (top) (top) (top))
18056 #(ribcage () () ())
18057 #(ribcage #(x) #((top)) #("l-*-37290"))
18066 (hygiene guile))))))
18072 #(k keyword pattern template)
18073 #((top) (top) (top) (top))
18078 #(ribcage () () ())
18079 #(ribcage #(x) #((top)) #("l-*-37290"))
18088 (hygiene guile))))))
18095 #(k keyword pattern template)
18096 #((top) (top) (top) (top))
18101 #(ribcage () () ())
18102 #(ribcage #(x) #((top)) #("l-*-37290"))
18111 (hygiene guile))))))
18118 #(k keyword pattern template)
18119 #((top) (top) (top) (top))
18124 #(ribcage () () ())
18125 #(ribcage #(x) #((top)) #("l-*-37290"))
18134 (hygiene guile))))))
18136 (cons '#(syntax-object
18140 #(k keyword pattern template)
18141 #((top) (top) (top) (top))
18146 #(ribcage () () ())
18147 #(ribcage #(x) #((top)) #("l-*-37290"))
18156 (hygiene guile))))))
18159 (cons '#(syntax-object
18163 #(k keyword pattern template)
18164 #((top) (top) (top) (top))
18169 #(ribcage () () ())
18170 #(ribcage #(x) #((top)) #("l-*-37290"))
18179 (hygiene guile))))))
18181 (cons '#(syntax-object
18185 #(k keyword pattern template)
18186 #((top) (top) (top) (top))
18191 #(ribcage () () ())
18192 #(ribcage #(x) #((top)) #("l-*-37290"))
18201 (hygiene guile))))))
18204 (map (lambda (tmp-37304-37340
18206 (list (cons '#(syntax-object
18243 (list '#(syntax-object
18281 pattern-37338))))))
18286 '(_ each-any any . #(each ((any . any) any))))))
18294 (string? (syntax->datum docstring-37347)))
18303 (list '#(syntax-object
18307 #(k docstring keyword pattern template)
18308 #((top) (top) (top) (top) (top))
18314 #(ribcage () () ())
18315 #(ribcage #(x) #((top)) #("l-*-37290"))
18324 (hygiene guile))))))
18330 #(k docstring keyword pattern template)
18331 #((top) (top) (top) (top) (top))
18337 #(ribcage () () ())
18338 #(ribcage #(x) #((top)) #("l-*-37290"))
18347 (hygiene guile))))))
18355 #(k docstring keyword pattern template)
18356 #((top) (top) (top) (top) (top))
18362 #(ribcage () () ())
18363 #(ribcage #(x) #((top)) #("l-*-37290"))
18372 (hygiene guile))))))
18379 #(k docstring keyword pattern template)
18380 #((top) (top) (top) (top) (top))
18386 #(ribcage () () ())
18387 #(ribcage #(x) #((top)) #("l-*-37290"))
18396 (hygiene guile))))))
18398 (cons '#(syntax-object
18402 #(k docstring keyword pattern template)
18403 #((top) (top) (top) (top) (top))
18409 #(ribcage () () ())
18410 #(ribcage #(x) #((top)) #("l-*-37290"))
18419 (hygiene guile))))))
18422 (cons '#(syntax-object
18426 #(k docstring keyword pattern template)
18427 #((top) (top) (top) (top) (top))
18433 #(ribcage () () ())
18434 #(ribcage #(x) #((top)) #("l-*-37290"))
18443 (hygiene guile))))))
18445 (cons '#(syntax-object
18454 #((top) (top) (top) (top) (top))
18460 #(ribcage () () ())
18461 #(ribcage #(x) #((top)) #("l-*-37290"))
18470 (hygiene guile))))))
18473 (map (lambda (tmp-37329-37356
18475 (list (cons '#(syntax-object
18516 (list '#(syntax-object
18558 pattern-37354))))))
18562 "source expression failed to match any pattern"
18565 (define define-syntax-rule
18566 (make-syntax-transformer
18567 'define-syntax-rule
18571 ($sc-dispatch x-37395 '(_ (any . any) any))))
18574 (lambda (name-37401 pattern-37402 template-37403)
18575 (list '#(syntax-object
18579 #(name pattern template)
18580 #((top) (top) (top))
18581 #("l-*-37372" "l-*-37373" "l-*-37374"))
18582 #(ribcage () () ())
18583 #(ribcage #(x) #((top)) #("l-*-37369"))
18585 (define-syntax-rule)
18592 (hygiene guile))))))
18595 (list '#(syntax-object
18599 #(name pattern template)
18600 #((top) (top) (top))
18601 #("l-*-37372" "l-*-37373" "l-*-37374"))
18602 #(ribcage () () ())
18603 #(ribcage #(x) #((top)) #("l-*-37369"))
18605 (define-syntax-rule)
18612 (hygiene guile))))))
18615 (list (cons '#(syntax-object
18619 #(name pattern template)
18620 #((top) (top) (top))
18624 #(ribcage () () ())
18630 (define-syntax-rule)
18637 (hygiene guile))))))
18643 ($sc-dispatch x-37395 '(_ (any . any) any any))))
18646 (lambda (name-37408
18650 (string? (syntax->datum docstring-37410)))
18654 (lambda (name-37412
18658 (list '#(syntax-object
18662 #(name pattern docstring template)
18663 #((top) (top) (top) (top))
18668 #(ribcage () () ())
18669 #(ribcage #(x) #((top)) #("l-*-37369"))
18671 (define-syntax-rule)
18678 (hygiene guile))))))
18681 (list '#(syntax-object
18685 #(name pattern docstring template)
18686 #((top) (top) (top) (top))
18691 #(ribcage () () ())
18692 #(ribcage #(x) #((top)) #("l-*-37369"))
18694 (define-syntax-rule)
18701 (hygiene guile))))))
18705 (list (cons '#(syntax-object
18713 #((top) (top) (top) (top))
18718 #(ribcage () () ())
18724 (define-syntax-rule)
18731 (hygiene guile))))))
18738 "source expression failed to match any pattern"
18742 (make-syntax-transformer
18749 '(any #(each (any any)) any . each-any))))
18752 (lambda (let*-37471 x-37472 v-37473 e1-37474 e2-37475)
18753 (and-map identifier? x-37472))
18757 (lambda (let*-37476 x-37477 v-37478 e1-37479 e2-37480)
18760 (lambda (bindings-37484)
18761 (if (null? bindings-37484)
18762 (cons '#(syntax-object
18765 #(ribcage () () ())
18769 #("l-*-37451" "l-*-37452"))
18772 #((top) (top) (top) (top) (top))
18778 #(ribcage () () ())
18779 #(ribcage #(x) #((top)) #("l-*-37427"))
18788 (hygiene guile))))))
18790 (cons '() (cons e1-37479 e2-37480)))
18792 (list (f-37481 (cdr bindings-37484))
18793 (car bindings-37484))))
18794 (let ((tmp-37486 ($sc-dispatch tmp-37485 '(any any))))
18797 (lambda (body-37488 binding-37489)
18798 (list '#(syntax-object
18801 #(ribcage () () ())
18805 #("l-*-37461" "l-*-37462"))
18806 #(ribcage () () ())
18810 #("l-*-37451" "l-*-37452"))
18813 #((top) (top) (top) (top) (top))
18819 #(ribcage () () ())
18832 (hygiene guile))))))
18834 (list binding-37489)
18839 "source expression failed to match any pattern"
18841 (f-37481 (map list x-37477 v-37478))))
18845 "source expression failed to match any pattern"
18849 (make-syntax-transformer
18852 (lambda (orig-x-37548)
18856 '(_ #(each (any any . any))
18869 (map (lambda (v-37563 s-37564)
18870 (let ((tmp-37566 ($sc-dispatch s-37564 '())))
18872 (@apply (lambda () v-37563) tmp-37566)
18874 ($sc-dispatch s-37564 '(any))))
18877 (lambda (e-37572) e-37572)
18881 "bad step expression"
18886 (let ((tmp-37561 ($sc-dispatch tmp-37560 'each-any)))
18889 (lambda (step-37578)
18890 (let ((tmp-37580 ($sc-dispatch e1-37558 '())))
18894 (list '#(syntax-object
18897 #(ribcage () () ())
18903 #(var init step e0 e1 c)
18916 #(ribcage () () ())
18929 (hygiene guile))))))
18934 #(ribcage () () ())
18940 #(var init step e0 e1 c)
18953 #(ribcage () () ())
18966 (hygiene guile))))))
18968 (map list var-37554 init-37555)
18969 (list '#(syntax-object
18972 #(ribcage () () ())
18978 #(var init step e0 e1 c)
18991 #(ribcage () () ())
19004 (hygiene guile))))))
19006 (list '#(syntax-object
19009 #(ribcage () () ())
19033 #(ribcage () () ())
19050 (cons '#(syntax-object
19053 #(ribcage () () ())
19077 #(ribcage () () ())
19095 (list (cons '#(syntax-object
19149 ($sc-dispatch e1-37558 '(any . each-any))))
19152 (lambda (e1-37588 e2-37589)
19153 (list '#(syntax-object
19159 #("l-*-37525" "l-*-37526"))
19160 #(ribcage () () ())
19166 #(var init step e0 e1 c)
19179 #(ribcage () () ())
19192 (hygiene guile))))))
19200 #("l-*-37525" "l-*-37526"))
19201 #(ribcage () () ())
19207 #(var init step e0 e1 c)
19220 #(ribcage () () ())
19233 (hygiene guile))))))
19235 (map list var-37554 init-37555)
19236 (list '#(syntax-object
19244 #(ribcage () () ())
19250 #(var init step e0 e1 c)
19263 #(ribcage () () ())
19276 (hygiene guile))))))
19279 (cons '#(syntax-object
19287 #(ribcage () () ())
19311 #(ribcage () () ())
19327 (cons e1-37588 e2-37589))
19328 (cons '#(syntax-object
19336 #(ribcage () () ())
19360 #(ribcage () () ())
19378 (list (cons '#(syntax-object
19440 "source expression failed to match any pattern"
19445 "source expression failed to match any pattern"
19450 "source expression failed to match any pattern"
19454 (make-syntax-transformer
19459 (lambda (p-37900 lev-37901)
19467 #(ribcage () () ())
19471 #("l-*-37622" "l-*-37623"))
19479 ((top) (top) (top) (top) (top) (top) (top))
19495 (hygiene guile))))))
19501 (if (= lev-37901 0)
19502 (list '#(syntax-object
19505 #(ribcage #(p) #((top)) #("l-*-37626"))
19506 #(ribcage () () ())
19510 #("l-*-37622" "l-*-37623"))
19518 ((top) (top) (top) (top) (top) (top) (top))
19534 (hygiene guile))))))
19541 #(ribcage #(p) #((top)) #("l-*-37626"))
19542 #(ribcage () () ())
19546 #("l-*-37622" "l-*-37623"))
19554 ((top) (top) (top) (top) (top) (top) (top))
19570 (hygiene guile))))))
19575 #(ribcage #(p) #((top)) #("l-*-37626"))
19576 #(ribcage () () ())
19580 #("l-*-37622" "l-*-37623"))
19588 ((top) (top) (top) (top) (top) (top) (top))
19604 (hygiene guile))))))
19606 (quasi-37876 (list p-37907) (#{1-}# lev-37901)))))
19615 #(ribcage () () ())
19619 #("l-*-37622" "l-*-37623"))
19627 ((top) (top) (top) (top) (top) (top) (top))
19643 (hygiene guile))))))
19653 #(ribcage #(p) #((top)) #("l-*-37629"))
19654 #(ribcage () () ())
19658 #("l-*-37622" "l-*-37623"))
19666 ((top) (top) (top) (top) (top) (top) (top))
19682 (hygiene guile))))))
19687 #(ribcage #(p) #((top)) #("l-*-37629"))
19688 #(ribcage () () ())
19692 #("l-*-37622" "l-*-37623"))
19700 ((top) (top) (top) (top) (top) (top) (top))
19716 (hygiene guile))))))
19718 (quasi-37876 (list p-37914) (#{1+}# lev-37901))))
19720 (let ((tmp-37917 ($sc-dispatch p-37900 '(any . any))))
19723 (lambda (p-37921 q-37922)
19734 #("l-*-37632" "l-*-37633"))
19735 #(ribcage () () ())
19739 #("l-*-37622" "l-*-37623"))
19769 (hygiene guile))))))
19776 (if (= lev-37901 0)
19778 (map (lambda (tmp-37640-37967)
19779 (list '#(syntax-object
19791 #(ribcage () () ())
19831 (quasi-37876 q-37922 lev-37901))
19844 #("l-*-37632" "l-*-37633"))
19845 #(ribcage () () ())
19849 #("l-*-37622" "l-*-37623"))
19879 (hygiene guile))))))
19891 #("l-*-37632" "l-*-37633"))
19892 #(ribcage () () ())
19896 #("l-*-37622" "l-*-37623"))
19926 (hygiene guile))))))
19930 (#{1-}# lev-37901)))
19931 (quasi-37876 q-37922 lev-37901))))
19943 #("l-*-37632" "l-*-37633"))
19944 #(ribcage () () ())
19948 #("l-*-37622" "l-*-37623"))
19978 (hygiene guile))))))
19985 (if (= lev-37901 0)
19987 (map (lambda (tmp-37645-37979)
19988 (list '#(syntax-object
20000 #(ribcage () () ())
20040 (quasi-37876 q-37922 lev-37901))
20053 #("l-*-37632" "l-*-37633"))
20054 #(ribcage () () ())
20058 #("l-*-37622" "l-*-37623"))
20088 (hygiene guile))))))
20100 #("l-*-37632" "l-*-37633"))
20101 #(ribcage () () ())
20105 #("l-*-37622" "l-*-37623"))
20135 (hygiene guile))))))
20139 (#{1-}# lev-37901)))
20140 (quasi-37876 q-37922 lev-37901))))
20143 (quasi-37876 p-37921 lev-37901)
20144 (quasi-37876 q-37922 lev-37901)))))))
20147 ($sc-dispatch p-37900 '#(vector each-any))))
20152 (vquasi-37877 x-37997 lev-37901)))
20156 '(#(atom "quote") each-any))))
20160 (list '#(syntax-object
20167 #(ribcage () () ())
20201 (hygiene guile))))))
20203 (list->vector x-38006)))
20207 (lambda (y-38020 k-38021)
20217 (map (lambda (tmp-37775-38027)
20218 (list '#(syntax-object
20320 (list '#(syntax-object
20404 (lambda (t-37763-38015)
20405 (cons '#(syntax-object
20482 "source expression failed to match any pattern"
20485 (list '#(syntax-object
20488 #(ribcage #(p) #((top)) #("l-*-37653"))
20489 #(ribcage () () ())
20493 #("l-*-37622" "l-*-37623"))
20523 (hygiene guile))))))
20527 (lambda (p-38065 lev-38066)
20528 (let ((tmp-38068 ($sc-dispatch p-38065 '(any . any))))
20531 (lambda (p-38072 q-38073)
20542 #("l-*-37661" "l-*-37662"))
20543 #(ribcage () () ())
20547 #("l-*-37657" "l-*-37658"))
20577 (hygiene guile))))))
20584 (if (= lev-38066 0)
20586 (map (lambda (tmp-37669-38118)
20587 (list '#(syntax-object
20597 #("l-*-37661" "l-*-37662"))
20598 #(ribcage () () ())
20602 #("l-*-37657" "l-*-37658"))
20632 (hygiene guile))))))
20636 (vquasi-37877 q-38073 lev-38066))
20642 #(ribcage #(p) #((top)) #("l-*-37667"))
20646 #("l-*-37661" "l-*-37662"))
20647 #(ribcage () () ())
20651 #("l-*-37657" "l-*-37658"))
20681 (hygiene guile))))))
20686 #(ribcage #(p) #((top)) #("l-*-37667"))
20690 #("l-*-37661" "l-*-37662"))
20691 #(ribcage () () ())
20695 #("l-*-37657" "l-*-37658"))
20725 (hygiene guile))))))
20727 (quasi-37876 p-38079 (#{1-}# lev-38066)))
20728 (vquasi-37877 q-38073 lev-38066))))
20740 #("l-*-37661" "l-*-37662"))
20741 #(ribcage () () ())
20745 #("l-*-37657" "l-*-37658"))
20775 (hygiene guile))))))
20782 (if (= lev-38066 0)
20784 (map (lambda (tmp-37674-38132)
20785 (list '#(syntax-object
20797 #(ribcage () () ())
20832 (hygiene guile))))))
20836 (vquasi-37877 q-38073 lev-38066))
20849 #("l-*-37661" "l-*-37662"))
20850 #(ribcage () () ())
20854 #("l-*-37657" "l-*-37658"))
20884 (hygiene guile))))))
20896 #("l-*-37661" "l-*-37662"))
20897 #(ribcage () () ())
20901 #("l-*-37657" "l-*-37658"))
20931 (hygiene guile))))))
20933 (quasi-37876 p-38129 (#{1-}# lev-38066)))
20934 (vquasi-37877 q-38073 lev-38066))))
20937 (quasi-37876 p-38072 lev-38066)
20938 (vquasi-37877 q-38073 lev-38066)))))))
20940 (let ((tmp-38150 ($sc-dispatch p-38065 '())))
20947 #(ribcage () () ())
20951 #("l-*-37657" "l-*-37658"))
20959 ((top) (top) (top) (top) (top) (top) (top))
20975 (hygiene guile))))))
20981 "source expression failed to match any pattern"
20984 (lambda (x-38163 y-38164)
20985 (let ((tmp-38165 (list x-38163 y-38164)))
20986 (let ((tmp-38166 ($sc-dispatch tmp-38165 '(any any))))
20989 (lambda (x-38168 y-38169)
20991 ($sc-dispatch y-38169 '(#(atom "quote") any))))
20998 '(#(atom "quote") any))))
21002 (list '#(syntax-object
21013 #(ribcage () () ())
21017 #("l-*-37686" "l-*-37687"))
21018 #(ribcage () () ())
21019 #(ribcage () () ())
21023 #("l-*-37681" "l-*-37682"))
21053 (hygiene guile))))))
21055 (cons dx-38181 dy-38175)))
21057 (if (null? dy-38175)
21058 (list '#(syntax-object
21069 #(ribcage () () ())
21073 #("l-*-37686" "l-*-37687"))
21074 #(ribcage () () ())
21075 #(ribcage () () ())
21079 #("l-*-37681" "l-*-37682"))
21109 (hygiene guile))))))
21112 (list '#(syntax-object
21123 #(ribcage () () ())
21127 #("l-*-37686" "l-*-37687"))
21128 #(ribcage () () ())
21129 #(ribcage () () ())
21133 #("l-*-37681" "l-*-37682"))
21163 (hygiene guile))))))
21171 '(#(atom "list") . any))))
21174 (lambda (stuff-38190)
21175 (cons '#(syntax-object
21182 #(ribcage () () ())
21186 #("l-*-37686" "l-*-37687"))
21187 #(ribcage () () ())
21188 #(ribcage () () ())
21192 #("l-*-37681" "l-*-37682"))
21222 (hygiene guile))))))
21224 (cons x-38168 stuff-38190)))
21229 '(#(atom "list*") . any))))
21232 (lambda (stuff-38195)
21233 (cons '#(syntax-object
21240 #(ribcage () () ())
21244 #("l-*-37686" "l-*-37687"))
21245 #(ribcage () () ())
21246 #(ribcage () () ())
21250 #("l-*-37681" "l-*-37682"))
21280 (hygiene guile))))))
21282 (cons x-38168 stuff-38195)))
21284 (list '#(syntax-object
21291 #(ribcage () () ())
21295 #("l-*-37686" "l-*-37687"))
21296 #(ribcage () () ())
21297 #(ribcage () () ())
21301 #("l-*-37681" "l-*-37682"))
21331 (hygiene guile))))))
21338 "source expression failed to match any pattern"
21341 (lambda (x-38206 y-38207)
21343 ($sc-dispatch y-38207 '(#(atom "quote") ()))))
21347 (if (null? x-38206)
21351 #(ribcage () () ())
21355 #("l-*-37710" "l-*-37711"))
21363 ((top) (top) (top) (top) (top) (top) (top))
21379 (hygiene guile))))))
21382 (if (null? (cdr x-38206))
21384 (let ((tmp-38214 ($sc-dispatch x-38206 'each-any)))
21388 (cons '#(syntax-object
21391 #(ribcage () () ())
21396 #(ribcage () () ())
21400 #("l-*-37710" "l-*-37711"))
21430 (hygiene guile))))))
21436 "source expression failed to match any pattern"
21439 (if (null? x-38206)
21441 (let ((tmp-38226 (list x-38206 y-38207)))
21443 ($sc-dispatch tmp-38226 '(each-any any))))
21446 (lambda (p-38229 y-38230)
21447 (cons '#(syntax-object
21450 #(ribcage () () ())
21454 #("l-*-37733" "l-*-37734"))
21455 #(ribcage #(_) #((top)) #("l-*-37725"))
21456 #(ribcage () () ())
21460 #("l-*-37710" "l-*-37711"))
21490 (hygiene guile))))))
21492 (append p-38229 (list y-38230))))
21496 "source expression failed to match any pattern"
21499 (lambda (x-38234 y-38235)
21503 (if (null? x-38340)
21507 (f-38236 (cdr x-38340)))))))
21508 (f-38236 x-38234))))
21512 ($sc-dispatch x-38343 '(#(atom "quote") any))))
21516 (list '#(syntax-object
21519 #(ribcage #(x) #((top)) #("l-*-37800"))
21520 #(ribcage () () ())
21521 #(ribcage #(x) #((top)) #("l-*-37797"))
21529 ((top) (top) (top) (top) (top) (top) (top))
21545 (hygiene guile))))))
21552 '(#(atom "list") . each-any))))
21556 (let ((tmp-38355 (map emit-37882 x-38354)))
21557 (let ((tmp-38356 ($sc-dispatch tmp-38355 'each-any)))
21560 (lambda (t-37805-38358)
21561 (cons '#(syntax-object
21564 #(ribcage () () ())
21573 #(ribcage () () ())
21607 (hygiene guile))))))
21613 "source expression failed to match any pattern"
21619 '(#(atom "list*") . #(each+ any (any) ())))))
21622 (lambda (x-38363 y-38364)
21626 (if (null? x*-38368)
21627 (emit-37882 y-38364)
21629 (list (emit-37882 (car x*-38368))
21630 (f-38365 (cdr x*-38368)))))
21637 (lambda (t-37825-38372
21639 (list '#(syntax-object
21642 #(ribcage () () ())
21649 #(ribcage () () ())
21660 #(ribcage () () ())
21702 "source expression failed to match any pattern"
21704 (f-38365 x-38363)))
21709 '(#(atom "append") . each-any))))
21713 (let ((tmp-38379 (map emit-37882 x-38378)))
21715 ($sc-dispatch tmp-38379 'each-any)))
21718 (lambda (t-37837-38382)
21719 (cons '#(syntax-object
21722 #(ribcage () () ())
21731 #(ribcage () () ())
21765 (hygiene guile))))))
21771 "source expression failed to match any pattern"
21777 '(#(atom "vector") . each-any))))
21781 (let ((tmp-38388 (map emit-37882 x-38387)))
21788 (lambda (t-37849-38391)
21789 (cons '#(syntax-object
21792 #(ribcage () () ())
21801 #(ribcage () () ())
21842 "source expression failed to match any pattern"
21848 '(#(atom "list->vector") any))))
21852 (let ((tmp-38397 (emit-37882 x-38396)))
21853 (list '#(syntax-object
21856 #(ribcage () () ())
21865 #(ribcage () () ())
21899 (hygiene guile))))))
21906 '(#(atom "value") any))))
21909 (lambda (x-38404) x-38404)
21913 "source expression failed to match any pattern"
21914 x-38343))))))))))))))))))
21916 (let ((tmp-37885 ($sc-dispatch x-37883 '(_ any))))
21920 (emit-37882 (quasi-37876 e-37889 0)))
21924 "source expression failed to match any pattern"
21928 (make-syntax-transformer
21934 (lambda (fn-38570 k-38571)
21935 (let ((p-38572 (open-input-file fn-38570)))
21938 (lambda (x-38627 result-38628)
21939 (if (eof-object? x-38627)
21941 (close-input-port p-38572)
21942 (reverse result-38628))
21945 (cons (datum->syntax k-38571 x-38627)
21947 (f-38573 (read p-38572) '()))))))
21948 (let ((tmp-38463 ($sc-dispatch x-38460 '(any any))))
21951 (lambda (k-38467 filename-38468)
21952 (let ((fn-38469 (syntax->datum filename-38468)))
21954 (read-file-38461 fn-38469 filename-38468)))
21955 (let ((tmp-38471 ($sc-dispatch tmp-38470 'each-any)))
21958 (lambda (exp-38489)
21959 (cons '#(syntax-object
21962 #(ribcage () () ())
21963 #(ribcage #(exp) #((top)) #("l-*-38457"))
21964 #(ribcage () () ())
21965 #(ribcage () () ())
21966 #(ribcage #(fn) #((top)) #("l-*-38452"))
21970 #("l-*-38448" "l-*-38449"))
21975 #(ribcage #(x) #((top)) #("l-*-38431"))
21984 (hygiene guile))))))
21990 "source expression failed to match any pattern"
21995 "source expression failed to match any pattern"
21998 (define include-from-path
21999 (make-syntax-transformer
22003 (let ((tmp-38650 ($sc-dispatch x-38648 '(any any))))
22006 (lambda (k-38654 filename-38655)
22007 (let ((fn-38656 (syntax->datum filename-38655)))
22011 (let ((t-38660 (%search-load-path fn-38656)))
22016 "file not found in path"
22018 filename-38655))))))
22019 (list '#(syntax-object
22022 #(ribcage () () ())
22023 #(ribcage #(fn) #((top)) #("l-*-38642"))
22024 #(ribcage () () ())
22025 #(ribcage () () ())
22026 #(ribcage #(fn) #((top)) #("l-*-38638"))
22030 #("l-*-38634" "l-*-38635"))
22031 #(ribcage () () ())
22032 #(ribcage #(x) #((top)) #("l-*-38631"))
22034 (include-from-path)
22041 (hygiene guile))))))
22047 "source expression failed to match any pattern"
22051 (make-syntax-transformer
22057 "expression not valid outside of quasiquote"
22060 (define unquote-splicing
22061 (make-syntax-transformer
22067 "expression not valid outside of quasiquote"
22071 (make-syntax-transformer
22076 ($sc-dispatch x-38731 '(_ any any . each-any))))
22079 (lambda (e-38737 m1-38738 m2-38739)
22083 (lambda (clause-38797 clauses-38798)
22084 (if (null? clauses-38798)
22092 #(ribcage () () ())
22094 #(f clause clauses)
22095 #((top) (top) (top))
22101 #((top) (top) (top))
22105 #(ribcage () () ())
22118 (hygiene guile))))))
22125 (lambda (e1-38804 e2-38805)
22126 (cons '#(syntax-object
22132 #("l-*-38699" "l-*-38700"))
22133 #(ribcage () () ())
22135 #(f clause clauses)
22136 #((top) (top) (top))
22142 #((top) (top) (top))
22146 #(ribcage () () ())
22159 (hygiene guile))))))
22161 (cons e1-38804 e2-38805)))
22166 '(each-any any . each-any))))
22169 (lambda (k-38810 e1-38811 e2-38812)
22170 (list '#(syntax-object
22175 #((top) (top) (top))
22179 #(ribcage () () ())
22181 #(f clause clauses)
22182 #((top) (top) (top))
22188 #((top) (top) (top))
22192 #(ribcage () () ())
22205 (hygiene guile))))))
22207 (list '#(syntax-object
22218 #(ribcage () () ())
22237 #(ribcage () () ())
22264 #(ribcage () () ())
22283 #(ribcage () () ())
22299 (list '#(syntax-object
22354 (cons '#(syntax-object
22365 #(ribcage () () ())
22384 #(ribcage () () ())
22410 (car clauses-38798)
22411 (cdr clauses-38798))))
22415 '(each-any any . each-any))))
22418 (lambda (k-38827 e1-38828 e2-38829)
22419 (list '#(syntax-object
22424 #((top) (top) (top))
22428 #(ribcage () () ())
22433 #(ribcage () () ())
22435 #(f clause clauses)
22436 #((top) (top) (top))
22442 #((top) (top) (top))
22446 #(ribcage () () ())
22459 (hygiene guile))))))
22461 (list '#(syntax-object
22466 #((top) (top) (top))
22470 #(ribcage () () ())
22475 #(ribcage () () ())
22477 #(f clause clauses)
22478 #((top) (top) (top))
22484 #((top) (top) (top))
22488 #(ribcage () () ())
22509 #((top) (top) (top))
22513 #(ribcage () () ())
22518 #(ribcage () () ())
22520 #(f clause clauses)
22521 #((top) (top) (top))
22527 #((top) (top) (top))
22531 #(ribcage () () ())
22547 (list '#(syntax-object
22609 (cons '#(syntax-object
22614 #((top) (top) (top))
22618 #(ribcage () () ())
22623 #(ribcage () () ())
22625 #(f clause clauses)
22626 #((top) (top) (top))
22632 #((top) (top) (top))
22636 #(ribcage () () ())
22652 (cons e1-38828 e2-38829))
22659 clause-38797))))))))
22660 (f-38794 m1-38738 m2-38739))))
22661 (let ((body-38741 tmp-38740))
22662 (list '#(syntax-object
22665 #(ribcage () () ())
22666 #(ribcage #(body) #((top)) #("l-*-38688"))
22669 #((top) (top) (top))
22670 #("l-*-38680" "l-*-38681" "l-*-38682"))
22671 #(ribcage () () ())
22672 #(ribcage #(x) #((top)) #("l-*-38677"))
22681 (hygiene guile))))))
22683 (list (list '#(syntax-object
22686 #(ribcage () () ())
22693 #((top) (top) (top))
22697 #(ribcage () () ())
22698 #(ribcage #(x) #((top)) #("l-*-38677"))
22707 (hygiene guile))))))
22714 "source expression failed to match any pattern"
22717 (define make-variable-transformer
22718 (lambda (proc-38848)
22719 (if (procedure? proc-38848)
22722 (lambda (x-38851) (proc-38848 x-38851))))
22724 (set-procedure-property!
22726 'variable-transformer
22729 (error "variable transformer not a procedure"
22732 (define identifier-syntax
22733 (make-syntax-transformer
22737 (let ((tmp-38890 ($sc-dispatch x-38888 '(_ any))))
22741 (list '#(syntax-object
22744 #(ribcage #(e) #((top)) #("l-*-38863"))
22745 #(ribcage () () ())
22746 #(ribcage #(x) #((top)) #("l-*-38860"))
22748 (identifier-syntax)
22755 (hygiene guile))))))
22760 #(ribcage #(e) #((top)) #("l-*-38863"))
22761 #(ribcage () () ())
22762 #(ribcage #(x) #((top)) #("l-*-38860"))
22764 (identifier-syntax)
22771 (hygiene guile))))))
22773 '#((#(syntax-object
22776 #(ribcage #(e) #((top)) #("l-*-38863"))
22777 #(ribcage () () ())
22778 #(ribcage #(x) #((top)) #("l-*-38860"))
22780 (identifier-syntax)
22787 (hygiene guile))))))
22793 #(ribcage #(e) #((top)) #("l-*-38863"))
22794 #(ribcage () () ())
22795 #(ribcage #(x) #((top)) #("l-*-38860"))
22797 (identifier-syntax)
22804 (hygiene guile))))))
22806 (list '#(syntax-object
22809 #(ribcage #(e) #((top)) #("l-*-38863"))
22810 #(ribcage () () ())
22811 #(ribcage #(x) #((top)) #("l-*-38860"))
22813 (identifier-syntax)
22820 (hygiene guile))))))
22825 #(ribcage #(e) #((top)) #("l-*-38863"))
22826 #(ribcage () () ())
22827 #(ribcage #(x) #((top)) #("l-*-38860"))
22829 (identifier-syntax)
22836 (hygiene guile))))))
22839 (list '#(syntax-object
22842 #(ribcage #(e) #((top)) #("l-*-38863"))
22843 #(ribcage () () ())
22844 #(ribcage #(x) #((top)) #("l-*-38860"))
22846 (identifier-syntax)
22853 (hygiene guile))))))
22858 #(ribcage #(e) #((top)) #("l-*-38863"))
22859 #(ribcage () () ())
22860 #(ribcage #(x) #((top)) #("l-*-38860"))
22862 (identifier-syntax)
22869 (hygiene guile))))))
22874 #(ribcage #(e) #((top)) #("l-*-38863"))
22875 #(ribcage () () ())
22876 #(ribcage #(x) #((top)) #("l-*-38860"))
22878 (identifier-syntax)
22885 (hygiene guile))))))
22890 #(ribcage #(e) #((top)) #("l-*-38863"))
22891 #(ribcage () () ())
22892 #(ribcage #(x) #((top)) #("l-*-38860"))
22894 (identifier-syntax)
22901 (hygiene guile))))))
22903 (list '#(syntax-object
22910 #(ribcage () () ())
22916 (identifier-syntax)
22923 (hygiene guile))))))
22926 (list '(#(syntax-object
22929 #(ribcage #(e) #((top)) #("l-*-38863"))
22930 #(ribcage () () ())
22931 #(ribcage #(x) #((top)) #("l-*-38860"))
22933 (identifier-syntax)
22940 (hygiene guile))))))
22945 #(ribcage #(e) #((top)) #("l-*-38863"))
22946 #(ribcage () () ())
22947 #(ribcage #(x) #((top)) #("l-*-38860"))
22949 (identifier-syntax)
22956 (hygiene guile))))))
22961 #(ribcage #(e) #((top)) #("l-*-38863"))
22962 #(ribcage () () ())
22963 #(ribcage #(x) #((top)) #("l-*-38860"))
22965 (identifier-syntax)
22972 (hygiene guile))))))
22974 (list '#(syntax-object
22981 #(ribcage () () ())
22987 (identifier-syntax)
22994 (hygiene guile))))))
23004 #(ribcage () () ())
23010 (identifier-syntax)
23017 (hygiene guile))))))
23026 #(ribcage () () ())
23032 (identifier-syntax)
23039 (hygiene guile))))))
23040 (hygiene guile)))))))))
23050 #(ribcage () () ())
23051 #(ribcage #(x) #((top)) #("l-*-38860"))
23053 (identifier-syntax)
23060 (hygiene guile))))))
23072 (if (identifier? id-38899)
23073 (identifier? var-38901)
23083 (list '#(syntax-object
23084 make-variable-transformer
23087 #(id exp1 var val exp2)
23088 #((top) (top) (top) (top) (top))
23094 #(ribcage () () ())
23095 #(ribcage #(x) #((top)) #("l-*-38860"))
23097 (identifier-syntax)
23104 (hygiene guile))))))
23106 (list '#(syntax-object
23110 #(id exp1 var val exp2)
23111 #((top) (top) (top) (top) (top))
23117 #(ribcage () () ())
23118 #(ribcage #(x) #((top)) #("l-*-38860"))
23120 (identifier-syntax)
23127 (hygiene guile))))))
23133 #(id exp1 var val exp2)
23134 #((top) (top) (top) (top) (top))
23140 #(ribcage () () ())
23141 #(ribcage #(x) #((top)) #("l-*-38860"))
23143 (identifier-syntax)
23150 (hygiene guile))))))
23152 '#((#(syntax-object
23156 #(id exp1 var val exp2)
23157 #((top) (top) (top) (top) (top))
23163 #(ribcage () () ())
23164 #(ribcage #(x) #((top)) #("l-*-38860"))
23166 (identifier-syntax)
23173 (hygiene guile))))))
23177 variable-transformer
23180 #(id exp1 var val exp2)
23181 #((top) (top) (top) (top) (top))
23187 #(ribcage () () ())
23188 #(ribcage #(x) #((top)) #("l-*-38860"))
23190 (identifier-syntax)
23197 (hygiene guile))))))
23199 (list '#(syntax-object
23203 #(id exp1 var val exp2)
23204 #((top) (top) (top) (top) (top))
23210 #(ribcage () () ())
23211 #(ribcage #(x) #((top)) #("l-*-38860"))
23213 (identifier-syntax)
23220 (hygiene guile))))))
23226 #(id exp1 var val exp2)
23227 #((top) (top) (top) (top) (top))
23233 #(ribcage () () ())
23234 #(ribcage #(x) #((top)) #("l-*-38860"))
23236 (identifier-syntax)
23243 (hygiene guile))))))
23249 #(id exp1 var val exp2)
23250 #((top) (top) (top) (top) (top))
23256 #(ribcage () () ())
23262 (identifier-syntax)
23269 (hygiene guile))))))
23271 (list (list '#(syntax-object
23275 #(id exp1 var val exp2)
23286 #(ribcage () () ())
23292 (identifier-syntax)
23299 (hygiene guile))))))
23303 (list '#(syntax-object
23307 #(id exp1 var val exp2)
23318 #(ribcage () () ())
23324 (identifier-syntax)
23331 (hygiene guile))))))
23334 (list (cons id-38904
23339 #(id exp1 var val exp2)
23350 #(ribcage () () ())
23356 (identifier-syntax)
23363 (hygiene guile))))))
23369 #(id exp1 var val exp2)
23380 #(ribcage () () ())
23386 (identifier-syntax)
23393 (hygiene guile))))))
23395 (list '#(syntax-object
23399 #(id exp1 var val exp2)
23410 #(ribcage () () ())
23416 (identifier-syntax)
23423 (hygiene guile))))))
23445 #(ribcage () () ())
23451 (identifier-syntax)
23480 #(ribcage () () ())
23486 (identifier-syntax)
23495 (hygiene guile))))))
23497 (list '#(syntax-object
23501 #(id exp1 var val exp2)
23512 #(ribcage () () ())
23518 (identifier-syntax)
23525 (hygiene guile))))))
23527 (list '#(syntax-object
23546 #(ribcage () () ())
23552 (identifier-syntax)
23563 (list '#(syntax-object
23567 #(id exp1 var val exp2)
23578 #(ribcage () () ())
23584 (identifier-syntax)
23591 (hygiene guile))))))
23597 "source expression failed to match any pattern"
23601 (make-syntax-transformer
23608 '(_ (any . any) any . each-any))))
23611 (lambda (id-38947 args-38948 b0-38949 b1-38950)
23612 (list '#(syntax-object
23617 #((top) (top) (top) (top))
23622 #(ribcage () () ())
23623 #(ribcage #(x) #((top)) #("l-*-38920"))
23632 (hygiene guile))))))
23635 (cons '#(syntax-object
23640 #((top) (top) (top) (top))
23645 #(ribcage () () ())
23646 #(ribcage #(x) #((top)) #("l-*-38920"))
23655 (hygiene guile))))))
23657 (cons args-38948 (cons b0-38949 b1-38950)))))
23659 (let ((tmp-38951 ($sc-dispatch x-38941 '(_ any any))))
23662 (lambda (id-38955 val-38956)
23670 #("l-*-38933" "l-*-38934"))
23671 #(ribcage () () ())
23672 #(ribcage #(x) #((top)) #("l-*-38920"))
23681 (hygiene guile))))))
23686 (lambda (id-38957 val-38958)
23687 (list '#(syntax-object
23693 #("l-*-38937" "l-*-38938"))
23694 #(ribcage () () ())
23695 #(ribcage #(x) #((top)) #("l-*-38920"))
23704 (hygiene guile))))))
23711 "source expression failed to match any pattern"