Commit | Line | Data |
---|---|---|
9c35c579 | 1 | (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) |
41af2381 | 2 | (if #f #f) |
65dd9e38 | 3 | |
0f2b9f62 | 4 | (letrec* |
b2208d2e AW |
5 | ((#{top-level-eval-hook 4370}# |
6 | (lambda (#{x 35759}# #{mod 35760}#) | |
7 | (primitive-eval #{x 35759}#))) | |
8 | (#{maybe-name-value! 4375}# | |
9 | (lambda (#{name 18991}# #{val 18992}#) | |
10 | (if (if (struct? #{val 18992}#) | |
11 | (eq? (struct-vtable #{val 18992}#) | |
46e372ef AW |
12 | (vector-ref %expanded-vtables 14)) |
13 | #f) | |
b2208d2e AW |
14 | (let ((#{meta 18999}# (struct-ref #{val 18992}# 1))) |
15 | (if (not (assq 'name #{meta 18999}#)) | |
16 | (let ((#{v 19004}# | |
17 | (cons (cons 'name #{name 18991}#) #{meta 18999}#))) | |
18 | (struct-set! #{val 18992}# 1 #{v 19004}#))))))) | |
19 | (#{build-call 4377}# | |
20 | (lambda (#{source 18736}# | |
21 | #{fun-exp 18737}# | |
22 | #{arg-exps 18738}#) | |
e2ccab57 AW |
23 | (make-struct/no-tail |
24 | (vector-ref %expanded-vtables 11) | |
b2208d2e AW |
25 | #{source 18736}# |
26 | #{fun-exp 18737}# | |
27 | #{arg-exps 18738}#))) | |
28 | (#{build-conditional 4378}# | |
29 | (lambda (#{source 18744}# | |
30 | #{test-exp 18745}# | |
31 | #{then-exp 18746}# | |
32 | #{else-exp 18747}#) | |
e2ccab57 | 33 | (make-struct/no-tail |
46e372ef | 34 | (vector-ref %expanded-vtables 10) |
b2208d2e AW |
35 | #{source 18744}# |
36 | #{test-exp 18745}# | |
37 | #{then-exp 18746}# | |
38 | #{else-exp 18747}#))) | |
39 | (#{build-dynlet 4379}# | |
40 | (lambda (#{source 18754}# | |
41 | #{fluids 18755}# | |
42 | #{vals 18756}# | |
43 | #{body 18757}#) | |
a881a4ae AW |
44 | (make-struct/no-tail |
45 | (vector-ref %expanded-vtables 18) | |
b2208d2e AW |
46 | #{source 18754}# |
47 | #{fluids 18755}# | |
48 | #{vals 18756}# | |
49 | #{body 18757}#))) | |
50 | (#{build-lexical-reference 4380}# | |
51 | (lambda (#{type 35761}# | |
52 | #{source 35762}# | |
53 | #{name 35763}# | |
54 | #{var 35764}#) | |
46e372ef AW |
55 | (make-struct/no-tail |
56 | (vector-ref %expanded-vtables 3) | |
b2208d2e AW |
57 | #{source 35762}# |
58 | #{name 35763}# | |
59 | #{var 35764}#))) | |
60 | (#{build-lexical-assignment 4381}# | |
61 | (lambda (#{source 18764}# | |
62 | #{name 18765}# | |
63 | #{var 18766}# | |
64 | #{exp 18767}#) | |
417ee098 | 65 | (begin |
b2208d2e AW |
66 | (if (if (struct? #{exp 18767}#) |
67 | (eq? (struct-vtable #{exp 18767}#) | |
46e372ef | 68 | (vector-ref %expanded-vtables 14)) |
25711fa4 | 69 | #f) |
b2208d2e AW |
70 | (let ((#{meta 18783}# (struct-ref #{exp 18767}# 1))) |
71 | (if (not (assq 'name #{meta 18783}#)) | |
72 | (let ((#{v 18790}# | |
73 | (cons (cons 'name #{name 18765}#) #{meta 18783}#))) | |
74 | (struct-set! #{exp 18767}# 1 #{v 18790}#))))) | |
46e372ef AW |
75 | (make-struct/no-tail |
76 | (vector-ref %expanded-vtables 4) | |
b2208d2e AW |
77 | #{source 18764}# |
78 | #{name 18765}# | |
79 | #{var 18766}# | |
80 | #{exp 18767}#)))) | |
81 | (#{analyze-variable 4382}# | |
82 | (lambda (#{mod 35770}# | |
83 | #{var 35771}# | |
84 | #{modref-cont 35772}# | |
85 | #{bare-cont 35773}#) | |
86 | (if (not #{mod 35770}#) | |
87 | (#{bare-cont 35773}# #{var 35771}#) | |
88 | (let ((#{kind 35774}# (car #{mod 35770}#)) | |
89 | (#{mod 35775}# (cdr #{mod 35770}#))) | |
90 | (if (eqv? #{kind 35774}# 'public) | |
91 | (#{modref-cont 35772}# | |
92 | #{mod 35775}# | |
93 | #{var 35771}# | |
840cf0d1 | 94 | #t) |
b2208d2e | 95 | (if (eqv? #{kind 35774}# 'private) |
25711fa4 | 96 | (if (not (equal? |
b2208d2e | 97 | #{mod 35775}# |
25711fa4 | 98 | (module-name (current-module)))) |
b2208d2e AW |
99 | (#{modref-cont 35772}# |
100 | #{mod 35775}# | |
101 | #{var 35771}# | |
840cf0d1 | 102 | #f) |
b2208d2e AW |
103 | (#{bare-cont 35773}# #{var 35771}#)) |
104 | (if (eqv? #{kind 35774}# 'bare) | |
105 | (#{bare-cont 35773}# #{var 35771}#) | |
106 | (if (eqv? #{kind 35774}# 'hygiene) | |
25711fa4 | 107 | (if (if (not (equal? |
b2208d2e | 108 | #{mod 35775}# |
25711fa4 AW |
109 | (module-name (current-module)))) |
110 | (module-variable | |
b2208d2e AW |
111 | (resolve-module #{mod 35775}#) |
112 | #{var 35771}#) | |
25711fa4 | 113 | #f) |
b2208d2e AW |
114 | (#{modref-cont 35772}# |
115 | #{mod 35775}# | |
116 | #{var 35771}# | |
840cf0d1 | 117 | #f) |
b2208d2e | 118 | (#{bare-cont 35773}# #{var 35771}#)) |
25711fa4 AW |
119 | (syntax-violation |
120 | #f | |
121 | "bad module kind" | |
b2208d2e AW |
122 | #{var 35771}# |
123 | #{mod 35775}#))))))))) | |
124 | (#{build-global-reference 4383}# | |
125 | (lambda (#{source 35790}# #{var 35791}# #{mod 35792}#) | |
126 | (#{analyze-variable 4382}# | |
127 | #{mod 35792}# | |
128 | #{var 35791}# | |
129 | (lambda (#{mod 35795}# #{var 35796}# #{public? 35797}#) | |
46e372ef AW |
130 | (make-struct/no-tail |
131 | (vector-ref %expanded-vtables 5) | |
b2208d2e AW |
132 | #{source 35790}# |
133 | #{mod 35795}# | |
134 | #{var 35796}# | |
135 | #{public? 35797}#)) | |
136 | (lambda (#{var 35804}#) | |
46e372ef AW |
137 | (make-struct/no-tail |
138 | (vector-ref %expanded-vtables 7) | |
b2208d2e AW |
139 | #{source 35790}# |
140 | #{var 35804}#))))) | |
141 | (#{build-global-assignment 4384}# | |
142 | (lambda (#{source 18799}# | |
143 | #{var 18800}# | |
144 | #{exp 18801}# | |
145 | #{mod 18802}#) | |
e2ccab57 | 146 | (begin |
b2208d2e AW |
147 | (if (if (struct? #{exp 18801}#) |
148 | (eq? (struct-vtable #{exp 18801}#) | |
46e372ef AW |
149 | (vector-ref %expanded-vtables 14)) |
150 | #f) | |
b2208d2e AW |
151 | (let ((#{meta 18818}# (struct-ref #{exp 18801}# 1))) |
152 | (if (not (assq 'name #{meta 18818}#)) | |
153 | (let ((#{v 18825}# | |
154 | (cons (cons 'name #{var 18800}#) #{meta 18818}#))) | |
155 | (struct-set! #{exp 18801}# 1 #{v 18825}#))))) | |
156 | (#{analyze-variable 4382}# | |
157 | #{mod 18802}# | |
158 | #{var 18800}# | |
159 | (lambda (#{mod 18830}# #{var 18831}# #{public? 18832}#) | |
46e372ef AW |
160 | (make-struct/no-tail |
161 | (vector-ref %expanded-vtables 6) | |
b2208d2e AW |
162 | #{source 18799}# |
163 | #{mod 18830}# | |
164 | #{var 18831}# | |
165 | #{public? 18832}# | |
166 | #{exp 18801}#)) | |
167 | (lambda (#{var 18840}#) | |
46e372ef AW |
168 | (make-struct/no-tail |
169 | (vector-ref %expanded-vtables 8) | |
b2208d2e AW |
170 | #{source 18799}# |
171 | #{var 18840}# | |
172 | #{exp 18801}#)))))) | |
173 | (#{build-global-definition 4385}# | |
174 | (lambda (#{source 35809}# #{var 35810}# #{exp 35811}#) | |
e2ccab57 | 175 | (begin |
b2208d2e AW |
176 | (if (if (struct? #{exp 35811}#) |
177 | (eq? (struct-vtable #{exp 35811}#) | |
46e372ef AW |
178 | (vector-ref %expanded-vtables 14)) |
179 | #f) | |
b2208d2e AW |
180 | (let ((#{meta 35827}# (struct-ref #{exp 35811}# 1))) |
181 | (if (not (assq 'name #{meta 35827}#)) | |
182 | (let ((#{v 35834}# | |
183 | (cons (cons 'name #{var 35810}#) #{meta 35827}#))) | |
184 | (struct-set! #{exp 35811}# 1 #{v 35834}#))))) | |
46e372ef AW |
185 | (make-struct/no-tail |
186 | (vector-ref %expanded-vtables 9) | |
b2208d2e AW |
187 | #{source 35809}# |
188 | #{var 35810}# | |
189 | #{exp 35811}#)))) | |
190 | (#{build-simple-lambda 4386}# | |
191 | (lambda (#{src 18846}# | |
192 | #{req 18847}# | |
193 | #{rest 18848}# | |
194 | #{vars 18849}# | |
195 | #{meta 18850}# | |
196 | #{exp 18851}#) | |
197 | (let ((#{body 18857}# | |
46e372ef AW |
198 | (make-struct/no-tail |
199 | (vector-ref %expanded-vtables 15) | |
b2208d2e AW |
200 | #{src 18846}# |
201 | #{req 18847}# | |
46e372ef | 202 | #f |
b2208d2e | 203 | #{rest 18848}# |
46e372ef AW |
204 | #f |
205 | '() | |
b2208d2e AW |
206 | #{vars 18849}# |
207 | #{exp 18851}# | |
46e372ef AW |
208 | #f))) |
209 | (make-struct/no-tail | |
210 | (vector-ref %expanded-vtables 14) | |
b2208d2e AW |
211 | #{src 18846}# |
212 | #{meta 18850}# | |
213 | #{body 18857}#)))) | |
214 | (#{build-primcall 4389}# | |
215 | (lambda (#{src 18869}# #{name 18870}# #{args 18871}#) | |
46e372ef AW |
216 | (make-struct/no-tail |
217 | (vector-ref %expanded-vtables 12) | |
b2208d2e AW |
218 | #{src 18869}# |
219 | #{name 18870}# | |
220 | #{args 18871}#))) | |
221 | (#{build-sequence 4392}# | |
222 | (lambda (#{src 35842}# #{exps 35843}#) | |
223 | (if (null? (cdr #{exps 35843}#)) | |
224 | (car #{exps 35843}#) | |
225 | (let ((#{head 35847}# (car #{exps 35843}#)) | |
226 | (#{tail 35848}# | |
227 | (#{build-sequence 4392}# #f (cdr #{exps 35843}#)))) | |
46e372ef AW |
228 | (make-struct/no-tail |
229 | (vector-ref %expanded-vtables 13) | |
b2208d2e AW |
230 | #{src 35842}# |
231 | #{head 35847}# | |
232 | #{tail 35848}#))))) | |
233 | (#{build-named-let 4394}# | |
234 | (lambda (#{src 18877}# | |
235 | #{ids 18878}# | |
236 | #{vars 18879}# | |
237 | #{val-exps 18880}# | |
238 | #{body-exp 18881}#) | |
239 | (let ((#{f 18882}# (car #{vars 18879}#)) | |
240 | (#{f-name 18883}# (car #{ids 18878}#)) | |
241 | (#{vars 18884}# (cdr #{vars 18879}#)) | |
242 | (#{ids 18885}# (cdr #{ids 18878}#))) | |
243 | (let ((#{proc 18886}# | |
244 | (let ((#{body 18906}# | |
46e372ef AW |
245 | (make-struct/no-tail |
246 | (vector-ref %expanded-vtables 15) | |
b2208d2e AW |
247 | #{src 18877}# |
248 | #{ids 18885}# | |
46e372ef AW |
249 | #f |
250 | #f | |
251 | #f | |
252 | '() | |
b2208d2e AW |
253 | #{vars 18884}# |
254 | #{body-exp 18881}# | |
46e372ef AW |
255 | #f))) |
256 | (make-struct/no-tail | |
257 | (vector-ref %expanded-vtables 14) | |
b2208d2e | 258 | #{src 18877}# |
46e372ef | 259 | '() |
b2208d2e | 260 | #{body 18906}#)))) |
46e372ef | 261 | (begin |
b2208d2e AW |
262 | (if (if (struct? #{proc 18886}#) |
263 | (eq? (struct-vtable #{proc 18886}#) | |
46e372ef AW |
264 | (vector-ref %expanded-vtables 14)) |
265 | #f) | |
b2208d2e AW |
266 | (let ((#{meta 18930}# (struct-ref #{proc 18886}# 1))) |
267 | (if (not (assq 'name #{meta 18930}#)) | |
268 | (let ((#{v 18937}# | |
269 | (cons (cons 'name #{f-name 18883}#) | |
270 | #{meta 18930}#))) | |
271 | (struct-set! #{proc 18886}# 1 #{v 18937}#))))) | |
46e372ef | 272 | (for-each |
b2208d2e AW |
273 | #{maybe-name-value! 4375}# |
274 | #{ids 18885}# | |
275 | #{val-exps 18880}#) | |
276 | (let ((#{names 18961}# (list #{f-name 18883}#)) | |
277 | (#{gensyms 18962}# (list #{f 18882}#)) | |
278 | (#{vals 18963}# (list #{proc 18886}#)) | |
279 | (#{body 18964}# | |
280 | (let ((#{fun-exp 18968}# | |
46e372ef AW |
281 | (make-struct/no-tail |
282 | (vector-ref %expanded-vtables 3) | |
b2208d2e AW |
283 | #{src 18877}# |
284 | #{f-name 18883}# | |
285 | #{f 18882}#))) | |
46e372ef AW |
286 | (make-struct/no-tail |
287 | (vector-ref %expanded-vtables 11) | |
b2208d2e AW |
288 | #{src 18877}# |
289 | #{fun-exp 18968}# | |
290 | #{val-exps 18880}#)))) | |
46e372ef AW |
291 | (make-struct/no-tail |
292 | (vector-ref %expanded-vtables 17) | |
b2208d2e | 293 | #{src 18877}# |
46e372ef | 294 | #f |
b2208d2e AW |
295 | #{names 18961}# |
296 | #{gensyms 18962}# | |
297 | #{vals 18963}# | |
298 | #{body 18964}#))))))) | |
299 | (#{build-letrec 4395}# | |
300 | (lambda (#{src 18984}# | |
301 | #{in-order? 18985}# | |
302 | #{ids 18986}# | |
303 | #{vars 18987}# | |
304 | #{val-exps 18988}# | |
305 | #{body-exp 18989}#) | |
306 | (if (null? #{vars 18987}#) | |
307 | #{body-exp 18989}# | |
e2ccab57 AW |
308 | (begin |
309 | (for-each | |
b2208d2e AW |
310 | #{maybe-name-value! 4375}# |
311 | #{ids 18986}# | |
312 | #{val-exps 18988}#) | |
46e372ef AW |
313 | (make-struct/no-tail |
314 | (vector-ref %expanded-vtables 17) | |
b2208d2e AW |
315 | #{src 18984}# |
316 | #{in-order? 18985}# | |
317 | #{ids 18986}# | |
318 | #{vars 18987}# | |
319 | #{val-exps 18988}# | |
320 | #{body-exp 18989}#))))) | |
321 | (#{source-annotation 4404}# | |
322 | (lambda (#{x 19015}#) | |
323 | (if (if (vector? #{x 19015}#) | |
324 | (if (= (vector-length #{x 19015}#) 4) | |
325 | (eq? (vector-ref #{x 19015}# 0) 'syntax-object) | |
46e372ef AW |
326 | #f) |
327 | #f) | |
b2208d2e AW |
328 | (#{source-annotation 4404}# |
329 | (vector-ref #{x 19015}# 1)) | |
330 | (if (pair? #{x 19015}#) | |
331 | (let ((#{props 19030}# (source-properties #{x 19015}#))) | |
332 | (if (pair? #{props 19030}#) #{props 19030}# #f)) | |
e2ccab57 | 333 | #f)))) |
b2208d2e AW |
334 | (#{extend-env 4405}# |
335 | (lambda (#{labels 19032}# #{bindings 19033}# #{r 19034}#) | |
336 | (if (null? #{labels 19032}#) | |
337 | #{r 19034}# | |
338 | (#{extend-env 4405}# | |
339 | (cdr #{labels 19032}#) | |
340 | (cdr #{bindings 19033}#) | |
341 | (cons (cons (car #{labels 19032}#) | |
342 | (car #{bindings 19033}#)) | |
343 | #{r 19034}#))))) | |
344 | (#{extend-var-env 4406}# | |
345 | (lambda (#{labels 19035}# #{vars 19036}# #{r 19037}#) | |
0f9f51a1 AW |
346 | (if (null? #{labels 19035}#) |
347 | #{r 19037}# | |
b2208d2e | 348 | (#{extend-var-env 4406}# |
0f9f51a1 | 349 | (cdr #{labels 19035}#) |
b2208d2e | 350 | (cdr #{vars 19036}#) |
0f9f51a1 | 351 | (cons (cons (car #{labels 19035}#) |
b2208d2e | 352 | (cons 'lexical (car #{vars 19036}#))) |
0f9f51a1 | 353 | #{r 19037}#))))) |
b2208d2e AW |
354 | (#{macros-only-env 4407}# |
355 | (lambda (#{r 19038}#) | |
356 | (if (null? #{r 19038}#) | |
e2ccab57 | 357 | '() |
b2208d2e AW |
358 | (let ((#{a 19039}# (car #{r 19038}#))) |
359 | (if (let ((#{t 19042}# (car (cdr #{a 19039}#)))) | |
360 | (if (eq? #{t 19042}# 'macro) | |
0f9f51a1 | 361 | #t |
b2208d2e AW |
362 | (eq? #{t 19042}# 'syntax-parameter))) |
363 | (cons #{a 19039}# | |
364 | (#{macros-only-env 4407}# (cdr #{r 19038}#))) | |
365 | (#{macros-only-env 4407}# (cdr #{r 19038}#))))))) | |
366 | (#{global-extend 4408}# | |
367 | (lambda (#{type 19044}# #{sym 19045}# #{val 19046}#) | |
46e372ef AW |
368 | (module-define! |
369 | (current-module) | |
b2208d2e | 370 | #{sym 19045}# |
46e372ef | 371 | (make-syntax-transformer |
b2208d2e AW |
372 | #{sym 19045}# |
373 | #{type 19044}# | |
374 | #{val 19046}#)))) | |
375 | (#{id? 4410}# | |
376 | (lambda (#{x 11968}#) | |
377 | (if (symbol? #{x 11968}#) | |
e2ccab57 | 378 | #t |
b2208d2e AW |
379 | (if (if (vector? #{x 11968}#) |
380 | (if (= (vector-length #{x 11968}#) 4) | |
381 | (eq? (vector-ref #{x 11968}# 0) 'syntax-object) | |
46e372ef AW |
382 | #f) |
383 | #f) | |
b2208d2e | 384 | (symbol? (vector-ref #{x 11968}# 1)) |
e2ccab57 | 385 | #f)))) |
b2208d2e AW |
386 | (#{gen-labels 4413}# |
387 | (lambda (#{ls 19056}#) | |
388 | (if (null? #{ls 19056}#) | |
e2ccab57 | 389 | '() |
46e372ef | 390 | (cons (symbol->string (gensym "i")) |
b2208d2e AW |
391 | (#{gen-labels 4413}# (cdr #{ls 19056}#)))))) |
392 | (#{make-binding-wrap 4424}# | |
393 | (lambda (#{ids 19060}# #{labels 19061}# #{w 19062}#) | |
394 | (if (null? #{ids 19060}#) | |
395 | #{w 19062}# | |
396 | (cons (car #{w 19062}#) | |
397 | (cons (let ((#{labelvec 19063}# | |
398 | (list->vector #{labels 19061}#))) | |
399 | (let ((#{n 19064}# (vector-length #{labelvec 19063}#))) | |
400 | (let ((#{symnamevec 19065}# (make-vector #{n 19064}#)) | |
401 | (#{marksvec 19066}# (make-vector #{n 19064}#))) | |
25711fa4 AW |
402 | (begin |
403 | (letrec* | |
b2208d2e AW |
404 | ((#{f 19067}# |
405 | (lambda (#{ids 19266}# #{i 19267}#) | |
406 | (if (not (null? #{ids 19266}#)) | |
25711fa4 AW |
407 | (call-with-values |
408 | (lambda () | |
b2208d2e AW |
409 | (let ((#{x 19270}# |
410 | (car #{ids 19266}#))) | |
411 | (if (if (vector? #{x 19270}#) | |
46e372ef | 412 | (if (= (vector-length |
b2208d2e | 413 | #{x 19270}#) |
46e372ef AW |
414 | 4) |
415 | (eq? (vector-ref | |
b2208d2e | 416 | #{x 19270}# |
46e372ef AW |
417 | 0) |
418 | 'syntax-object) | |
419 | #f) | |
420 | #f) | |
421 | (values | |
b2208d2e AW |
422 | (vector-ref #{x 19270}# 1) |
423 | (let ((#{m1 19286}# | |
424 | (car #{w 19062}#)) | |
425 | (#{m2 19287}# | |
46e372ef | 426 | (car (vector-ref |
b2208d2e | 427 | #{x 19270}# |
46e372ef | 428 | 2)))) |
b2208d2e AW |
429 | (if (null? #{m2 19287}#) |
430 | #{m1 19286}# | |
46e372ef | 431 | (append |
b2208d2e AW |
432 | #{m1 19286}# |
433 | #{m2 19287}#)))) | |
46e372ef | 434 | (values |
b2208d2e AW |
435 | #{x 19270}# |
436 | (car #{w 19062}#))))) | |
437 | (lambda (#{symname 19307}# | |
438 | #{marks 19308}#) | |
25711fa4 AW |
439 | (begin |
440 | (vector-set! | |
b2208d2e AW |
441 | #{symnamevec 19065}# |
442 | #{i 19267}# | |
443 | #{symname 19307}#) | |
25711fa4 | 444 | (vector-set! |
b2208d2e AW |
445 | #{marksvec 19066}# |
446 | #{i 19267}# | |
447 | #{marks 19308}#) | |
448 | (#{f 19067}# | |
449 | (cdr #{ids 19266}#) | |
450 | (#{1+}# #{i 19267}#))))))))) | |
451 | (#{f 19067}# #{ids 19060}# 0)) | |
46e372ef AW |
452 | (vector |
453 | 'ribcage | |
b2208d2e AW |
454 | #{symnamevec 19065}# |
455 | #{marksvec 19066}# | |
456 | #{labelvec 19063}#))))) | |
457 | (cdr #{w 19062}#)))))) | |
458 | (#{same-marks? 4428}# | |
459 | (lambda (#{x 35849}# #{y 35850}#) | |
460 | (if (eq? #{x 35849}# #{y 35850}#) | |
461 | (eq? #{x 35849}# #{y 35850}#) | |
462 | (if (not (null? #{x 35849}#)) | |
463 | (if (not (null? #{y 35850}#)) | |
464 | (if (eq? (car #{x 35849}#) (car #{y 35850}#)) | |
465 | (#{same-marks? 4428}# | |
466 | (cdr #{x 35849}#) | |
467 | (cdr #{y 35850}#)) | |
25711fa4 | 468 | #f) |
840cf0d1 AW |
469 | #f) |
470 | #f)))) | |
b2208d2e AW |
471 | (#{id-var-name 4429}# |
472 | (lambda (#{id 35858}# #{w 35859}# #{mod 35860}#) | |
e2ccab57 | 473 | (letrec* |
b2208d2e AW |
474 | ((#{search 35861}# |
475 | (lambda (#{sym 35927}# | |
476 | #{subst 35928}# | |
477 | #{marks 35929}# | |
478 | #{mod 35930}#) | |
479 | (if (null? #{subst 35928}#) | |
480 | (values #f #{marks 35929}#) | |
481 | (let ((#{fst 35931}# (car #{subst 35928}#))) | |
482 | (if (eq? #{fst 35931}# 'shift) | |
483 | (#{search 35861}# | |
484 | #{sym 35927}# | |
485 | (cdr #{subst 35928}#) | |
486 | (cdr #{marks 35929}#) | |
487 | #{mod 35930}#) | |
488 | (let ((#{symnames 35933}# (vector-ref #{fst 35931}# 1))) | |
489 | (if (vector? #{symnames 35933}#) | |
490 | (#{search-vector-rib 35863}# | |
491 | #{sym 35927}# | |
492 | #{subst 35928}# | |
493 | #{marks 35929}# | |
494 | #{symnames 35933}# | |
495 | #{fst 35931}# | |
496 | #{mod 35930}#) | |
497 | (#{search-list-rib 35862}# | |
498 | #{sym 35927}# | |
499 | #{subst 35928}# | |
500 | #{marks 35929}# | |
501 | #{symnames 35933}# | |
502 | #{fst 35931}# | |
503 | #{mod 35930}#)))))))) | |
504 | (#{search-list-rib 35862}# | |
505 | (lambda (#{sym 36108}# | |
506 | #{subst 36109}# | |
507 | #{marks 36110}# | |
508 | #{symnames 36111}# | |
509 | #{ribcage 36112}# | |
510 | #{mod 36113}#) | |
e2ccab57 | 511 | (letrec* |
b2208d2e AW |
512 | ((#{f 36114}# |
513 | (lambda (#{symnames 36117}# #{i 36118}#) | |
514 | (if (null? #{symnames 36117}#) | |
515 | (#{search 35861}# | |
516 | #{sym 36108}# | |
517 | (cdr #{subst 36109}#) | |
518 | #{marks 36110}# | |
519 | #{mod 36113}#) | |
520 | (if (if (eq? (car #{symnames 36117}#) #{sym 36108}#) | |
521 | (#{same-marks? 4428}# | |
522 | #{marks 36110}# | |
e2ccab57 | 523 | (list-ref |
b2208d2e AW |
524 | (vector-ref #{ribcage 36112}# 2) |
525 | #{i 36118}#)) | |
e2ccab57 | 526 | #f) |
b2208d2e | 527 | (let ((#{n 36264}# |
0f9f51a1 | 528 | (list-ref |
b2208d2e AW |
529 | (vector-ref #{ribcage 36112}# 3) |
530 | #{i 36118}#))) | |
531 | (if (pair? #{n 36264}#) | |
532 | (if (equal? #{mod 36113}# (car #{n 36264}#)) | |
533 | (values (cdr #{n 36264}#) #{marks 36110}#) | |
534 | (#{f 36114}# | |
535 | (cdr #{symnames 36117}#) | |
536 | (#{1+}# #{i 36118}#))) | |
537 | (values #{n 36264}# #{marks 36110}#))) | |
538 | (#{f 36114}# | |
539 | (cdr #{symnames 36117}#) | |
540 | (#{1+}# #{i 36118}#))))))) | |
541 | (#{f 36114}# #{symnames 36111}# 0)))) | |
542 | (#{search-vector-rib 35863}# | |
543 | (lambda (#{sym 36269}# | |
544 | #{subst 36270}# | |
545 | #{marks 36271}# | |
546 | #{symnames 36272}# | |
547 | #{ribcage 36273}# | |
548 | #{mod 36274}#) | |
549 | (let ((#{n 36275}# (vector-length #{symnames 36272}#))) | |
25711fa4 | 550 | (letrec* |
b2208d2e AW |
551 | ((#{f 36276}# |
552 | (lambda (#{i 36279}#) | |
553 | (if (= #{i 36279}# #{n 36275}#) | |
554 | (#{search 35861}# | |
555 | #{sym 36269}# | |
556 | (cdr #{subst 36270}#) | |
557 | #{marks 36271}# | |
558 | #{mod 36274}#) | |
46e372ef | 559 | (if (if (eq? (vector-ref |
b2208d2e AW |
560 | #{symnames 36272}# |
561 | #{i 36279}#) | |
562 | #{sym 36269}#) | |
563 | (#{same-marks? 4428}# | |
564 | #{marks 36271}# | |
25711fa4 | 565 | (vector-ref |
b2208d2e AW |
566 | (vector-ref #{ribcage 36273}# 2) |
567 | #{i 36279}#)) | |
25711fa4 | 568 | #f) |
b2208d2e | 569 | (let ((#{n 36426}# |
0f9f51a1 | 570 | (vector-ref |
b2208d2e AW |
571 | (vector-ref #{ribcage 36273}# 3) |
572 | #{i 36279}#))) | |
573 | (if (pair? #{n 36426}#) | |
574 | (if (equal? #{mod 36274}# (car #{n 36426}#)) | |
575 | (values (cdr #{n 36426}#) #{marks 36271}#) | |
576 | (#{f 36276}# (#{1+}# #{i 36279}#))) | |
577 | (values #{n 36426}# #{marks 36271}#))) | |
578 | (#{f 36276}# (#{1+}# #{i 36279}#))))))) | |
579 | (#{f 36276}# 0)))))) | |
580 | (if (symbol? #{id 35858}#) | |
581 | (let ((#{t 35864}# | |
582 | (#{search 35861}# | |
583 | #{id 35858}# | |
584 | (cdr #{w 35859}#) | |
585 | (car #{w 35859}#) | |
586 | #{mod 35860}#))) | |
587 | (if #{t 35864}# #{t 35864}# #{id 35858}#)) | |
588 | (if (if (vector? #{id 35858}#) | |
589 | (if (= (vector-length #{id 35858}#) 4) | |
590 | (eq? (vector-ref #{id 35858}# 0) 'syntax-object) | |
46e372ef AW |
591 | #f) |
592 | #f) | |
b2208d2e AW |
593 | (let ((#{id 35879}# (vector-ref #{id 35858}# 1)) |
594 | (#{w1 35880}# (vector-ref #{id 35858}# 2)) | |
595 | (#{mod 35881}# (vector-ref #{id 35858}# 3))) | |
596 | (let ((#{marks 35882}# | |
597 | (let ((#{m1 35892}# (car #{w 35859}#)) | |
598 | (#{m2 35893}# (car #{w1 35880}#))) | |
599 | (if (null? #{m2 35893}#) | |
600 | #{m1 35892}# | |
601 | (append #{m1 35892}# #{m2 35893}#))))) | |
25711fa4 AW |
602 | (call-with-values |
603 | (lambda () | |
b2208d2e AW |
604 | (#{search 35861}# |
605 | #{id 35879}# | |
606 | (cdr #{w 35859}#) | |
607 | #{marks 35882}# | |
608 | #{mod 35881}#)) | |
609 | (lambda (#{new-id 35913}# #{marks 35914}#) | |
610 | (if #{new-id 35913}# | |
611 | #{new-id 35913}# | |
612 | (let ((#{t 35922}# | |
613 | (#{search 35861}# | |
614 | #{id 35879}# | |
615 | (cdr #{w1 35880}#) | |
616 | #{marks 35914}# | |
617 | #{mod 35881}#))) | |
618 | (if #{t 35922}# #{t 35922}# #{id 35879}#))))))) | |
25711fa4 AW |
619 | (syntax-violation |
620 | 'id-var-name | |
621 | "invalid id" | |
b2208d2e AW |
622 | #{id 35858}#)))))) |
623 | (#{resolve-identifier 4430}# | |
624 | (lambda (#{id 19315}# | |
625 | #{w 19316}# | |
626 | #{r 19317}# | |
627 | #{mod 19318}# | |
628 | #{resolve-syntax-parameters? 19319}#) | |
629 | (let ((#{n 19323}# | |
630 | (#{id-var-name 4429}# | |
631 | #{id 19315}# | |
632 | #{w 19316}# | |
633 | #{mod 19318}#))) | |
634 | (if (if (vector? #{n 19323}#) | |
635 | (if (= (vector-length #{n 19323}#) 4) | |
636 | (eq? (vector-ref #{n 19323}# 0) 'syntax-object) | |
0f9f51a1 AW |
637 | #f) |
638 | #f) | |
b2208d2e AW |
639 | (#{resolve-identifier 4430}# |
640 | #{n 19323}# | |
641 | #{w 19316}# | |
642 | #{r 19317}# | |
643 | #{mod 19318}# | |
644 | #{resolve-syntax-parameters? 19319}#) | |
645 | (if (symbol? #{n 19323}#) | |
646 | (let ((#{mod 19338}# | |
647 | (if (if (vector? #{id 19315}#) | |
648 | (if (= (vector-length #{id 19315}#) 4) | |
649 | (eq? (vector-ref #{id 19315}# 0) 'syntax-object) | |
0f9f51a1 AW |
650 | #f) |
651 | #f) | |
b2208d2e AW |
652 | (vector-ref #{id 19315}# 3) |
653 | #{mod 19318}#))) | |
654 | (let ((#{b 19339}# | |
655 | (let ((#{b 19342}# | |
656 | (let ((#{t 19343}# | |
0f9f51a1 | 657 | (begin |
b2208d2e | 658 | (if (if (not #{mod 19338}#) |
0f9f51a1 AW |
659 | (current-module) |
660 | #f) | |
661 | (warn "module system is booted, we should have a module" | |
b2208d2e AW |
662 | #{n 19323}#)) |
663 | (let ((#{v 19392}# | |
0f9f51a1 | 664 | (module-variable |
b2208d2e | 665 | (if #{mod 19338}# |
0f9f51a1 | 666 | (resolve-module |
b2208d2e | 667 | (cdr #{mod 19338}#)) |
0f9f51a1 | 668 | (current-module)) |
b2208d2e AW |
669 | #{n 19323}#))) |
670 | (if #{v 19392}# | |
671 | (if (variable-bound? #{v 19392}#) | |
672 | (let ((#{val 19401}# | |
0f9f51a1 | 673 | (variable-ref |
b2208d2e AW |
674 | #{v 19392}#))) |
675 | (if (macro? #{val 19401}#) | |
0f9f51a1 | 676 | (if (macro-type |
b2208d2e | 677 | #{val 19401}#) |
0f9f51a1 | 678 | (cons (macro-type |
b2208d2e | 679 | #{val 19401}#) |
0f9f51a1 | 680 | (macro-binding |
b2208d2e | 681 | #{val 19401}#)) |
0f9f51a1 AW |
682 | #f) |
683 | #f)) | |
684 | #f) | |
685 | #f))))) | |
b2208d2e AW |
686 | (if #{t 19343}# #{t 19343}# '(global))))) |
687 | (if (if #{resolve-syntax-parameters? 19319}# | |
688 | (eq? (car #{b 19342}#) 'syntax-parameter) | |
0f9f51a1 | 689 | #f) |
b2208d2e AW |
690 | (let ((#{t 19410}# |
691 | (assq-ref #{r 19317}# (cdr #{b 19342}#)))) | |
692 | (if #{t 19410}# | |
693 | #{t 19410}# | |
694 | (cons 'macro (car (cdr #{b 19342}#))))) | |
695 | #{b 19342}#)))) | |
696 | (if (eq? (car #{b 19339}#) 'global) | |
697 | (values 'global #{n 19323}# #{mod 19338}#) | |
0f9f51a1 | 698 | (values |
b2208d2e AW |
699 | (car #{b 19339}#) |
700 | (cdr #{b 19339}#) | |
701 | #{mod 19338}#)))) | |
702 | (if (string? #{n 19323}#) | |
703 | (let ((#{mod 19416}# | |
704 | (if (if (vector? #{id 19315}#) | |
705 | (if (= (vector-length #{id 19315}#) 4) | |
706 | (eq? (vector-ref #{id 19315}# 0) 'syntax-object) | |
0f9f51a1 AW |
707 | #f) |
708 | #f) | |
b2208d2e AW |
709 | (vector-ref #{id 19315}# 3) |
710 | #{mod 19318}#))) | |
711 | (let ((#{b 19417}# | |
712 | (let ((#{b 19420}# | |
713 | (let ((#{t 19421}# | |
714 | (assq-ref #{r 19317}# #{n 19323}#))) | |
715 | (if #{t 19421}# | |
716 | #{t 19421}# | |
0f9f51a1 | 717 | '(displaced-lexical))))) |
b2208d2e AW |
718 | (if (if #{resolve-syntax-parameters? 19319}# |
719 | (eq? (car #{b 19420}#) 'syntax-parameter) | |
0f9f51a1 | 720 | #f) |
b2208d2e AW |
721 | (let ((#{t 19422}# |
722 | (assq-ref #{r 19317}# (cdr #{b 19420}#)))) | |
723 | (if #{t 19422}# | |
724 | #{t 19422}# | |
725 | (cons 'macro (car (cdr #{b 19420}#))))) | |
726 | #{b 19420}#)))) | |
0f9f51a1 | 727 | (values |
b2208d2e AW |
728 | (car #{b 19417}#) |
729 | (cdr #{b 19417}#) | |
730 | #{mod 19416}#))) | |
0f9f51a1 | 731 | (error "unexpected id-var-name" |
b2208d2e AW |
732 | #{id 19315}# |
733 | #{w 19316}# | |
734 | #{n 19323}#))))))) | |
735 | (#{free-id=? 4431}# | |
736 | (lambda (#{i 19435}# #{j 19436}#) | |
737 | (let ((#{mi 19437}# | |
738 | (if (if (vector? #{i 19435}#) | |
739 | (if (= (vector-length #{i 19435}#) 4) | |
740 | (eq? (vector-ref #{i 19435}# 0) 'syntax-object) | |
0f9f51a1 AW |
741 | #f) |
742 | #f) | |
b2208d2e | 743 | (vector-ref #{i 19435}# 3) |
0f9f51a1 | 744 | #f))) |
b2208d2e AW |
745 | (let ((#{mj 19438}# |
746 | (if (if (vector? #{j 19436}#) | |
747 | (if (= (vector-length #{j 19436}#) 4) | |
748 | (eq? (vector-ref #{j 19436}# 0) 'syntax-object) | |
0f9f51a1 AW |
749 | #f) |
750 | #f) | |
b2208d2e | 751 | (vector-ref #{j 19436}# 3) |
0f9f51a1 | 752 | #f))) |
b2208d2e AW |
753 | (let ((#{ni 19439}# |
754 | (#{id-var-name 4429}# | |
755 | #{i 19435}# | |
0f9f51a1 | 756 | '(()) |
b2208d2e AW |
757 | #{mi 19437}#))) |
758 | (let ((#{nj 19440}# | |
759 | (#{id-var-name 4429}# | |
760 | #{j 19436}# | |
0f9f51a1 | 761 | '(()) |
b2208d2e AW |
762 | #{mj 19438}#))) |
763 | (if (if (vector? #{ni 19439}#) | |
764 | (if (= (vector-length #{ni 19439}#) 4) | |
765 | (eq? (vector-ref #{ni 19439}# 0) 'syntax-object) | |
0f9f51a1 AW |
766 | #f) |
767 | #f) | |
b2208d2e AW |
768 | (#{free-id=? 4431}# #{ni 19439}# #{j 19436}#) |
769 | (if (if (vector? #{nj 19440}#) | |
770 | (if (= (vector-length #{nj 19440}#) 4) | |
771 | (eq? (vector-ref #{nj 19440}# 0) 'syntax-object) | |
0f9f51a1 AW |
772 | #f) |
773 | #f) | |
b2208d2e AW |
774 | (#{free-id=? 4431}# #{i 19435}# #{nj 19440}#) |
775 | (if (symbol? #{ni 19439}#) | |
776 | (if (eq? #{nj 19440}# | |
777 | (if (if (vector? #{j 19436}#) | |
778 | (if (= (vector-length #{j 19436}#) 4) | |
779 | (eq? (vector-ref #{j 19436}# 0) | |
46e372ef AW |
780 | 'syntax-object) |
781 | #f) | |
782 | #f) | |
b2208d2e AW |
783 | (vector-ref #{j 19436}# 1) |
784 | #{j 19436}#)) | |
785 | (if (let ((#{bi 19512}# | |
0f9f51a1 | 786 | (module-variable |
b2208d2e AW |
787 | (if #{mi 19437}# |
788 | (resolve-module (cdr #{mi 19437}#)) | |
0f9f51a1 | 789 | (current-module)) |
b2208d2e AW |
790 | (if (if (vector? #{i 19435}#) |
791 | (if (= (vector-length #{i 19435}#) | |
0f9f51a1 | 792 | 4) |
b2208d2e | 793 | (eq? (vector-ref #{i 19435}# 0) |
0f9f51a1 AW |
794 | 'syntax-object) |
795 | #f) | |
796 | #f) | |
b2208d2e AW |
797 | (vector-ref #{i 19435}# 1) |
798 | #{i 19435}#)))) | |
799 | (if #{bi 19512}# | |
800 | (eq? #{bi 19512}# | |
0f9f51a1 | 801 | (module-variable |
b2208d2e AW |
802 | (if #{mj 19438}# |
803 | (resolve-module (cdr #{mj 19438}#)) | |
0f9f51a1 | 804 | (current-module)) |
b2208d2e AW |
805 | (if (if (vector? #{j 19436}#) |
806 | (if (= (vector-length #{j 19436}#) | |
46e372ef | 807 | 4) |
b2208d2e | 808 | (eq? (vector-ref #{j 19436}# 0) |
46e372ef AW |
809 | 'syntax-object) |
810 | #f) | |
811 | #f) | |
b2208d2e AW |
812 | (vector-ref #{j 19436}# 1) |
813 | #{j 19436}#))) | |
0f9f51a1 | 814 | (if (not (module-variable |
b2208d2e AW |
815 | (if #{mj 19438}# |
816 | (resolve-module (cdr #{mj 19438}#)) | |
0f9f51a1 | 817 | (current-module)) |
b2208d2e | 818 | (if (if (vector? #{j 19436}#) |
0f9f51a1 | 819 | (if (= (vector-length |
b2208d2e | 820 | #{j 19436}#) |
0f9f51a1 AW |
821 | 4) |
822 | (eq? (vector-ref | |
b2208d2e | 823 | #{j 19436}# |
0f9f51a1 AW |
824 | 0) |
825 | 'syntax-object) | |
826 | #f) | |
827 | #f) | |
b2208d2e AW |
828 | (vector-ref #{j 19436}# 1) |
829 | #{j 19436}#))) | |
830 | (eq? #{ni 19439}# #{nj 19440}#) | |
0f9f51a1 AW |
831 | #f))) |
832 | (eq? (module-variable | |
b2208d2e AW |
833 | (if #{mi 19437}# |
834 | (resolve-module (cdr #{mi 19437}#)) | |
0f9f51a1 | 835 | (current-module)) |
b2208d2e AW |
836 | (if (if (vector? #{i 19435}#) |
837 | (if (= (vector-length #{i 19435}#) 4) | |
838 | (eq? (vector-ref #{i 19435}# 0) | |
0f9f51a1 | 839 | 'syntax-object) |
46e372ef | 840 | #f) |
0f9f51a1 | 841 | #f) |
b2208d2e AW |
842 | (vector-ref #{i 19435}# 1) |
843 | #{i 19435}#)) | |
0f9f51a1 | 844 | (module-variable |
b2208d2e AW |
845 | (if #{mj 19438}# |
846 | (resolve-module (cdr #{mj 19438}#)) | |
0f9f51a1 | 847 | (current-module)) |
b2208d2e AW |
848 | (if (if (vector? #{j 19436}#) |
849 | (if (= (vector-length #{j 19436}#) 4) | |
850 | (eq? (vector-ref #{j 19436}# 0) | |
0f9f51a1 AW |
851 | 'syntax-object) |
852 | #f) | |
853 | #f) | |
b2208d2e AW |
854 | (vector-ref #{j 19436}# 1) |
855 | #{j 19436}#))) | |
0f9f51a1 AW |
856 | #f) |
857 | #f) | |
b2208d2e AW |
858 | (equal? #{ni 19439}# #{nj 19440}#)))))))))) |
859 | (#{bound-id=? 4432}# | |
860 | (lambda (#{i 19705}# #{j 19706}#) | |
861 | (if (if (if (vector? #{i 19705}#) | |
862 | (if (= (vector-length #{i 19705}#) 4) | |
863 | (eq? (vector-ref #{i 19705}# 0) 'syntax-object) | |
46e372ef AW |
864 | #f) |
865 | #f) | |
b2208d2e AW |
866 | (if (vector? #{j 19706}#) |
867 | (if (= (vector-length #{j 19706}#) 4) | |
868 | (eq? (vector-ref #{j 19706}# 0) 'syntax-object) | |
46e372ef AW |
869 | #f) |
870 | #f) | |
840cf0d1 | 871 | #f) |
b2208d2e AW |
872 | (if (eq? (vector-ref #{i 19705}# 1) |
873 | (vector-ref #{j 19706}# 1)) | |
874 | (#{same-marks? 4428}# | |
875 | (car (vector-ref #{i 19705}# 2)) | |
876 | (car (vector-ref #{j 19706}# 2))) | |
26c81c7f | 877 | #f) |
b2208d2e AW |
878 | (eq? #{i 19705}# #{j 19706}#)))) |
879 | (#{valid-bound-ids? 4433}# | |
880 | (lambda (#{ids 19875}#) | |
26c81c7f | 881 | (if (letrec* |
b2208d2e AW |
882 | ((#{all-ids? 19876}# |
883 | (lambda (#{ids 20073}#) | |
884 | (if (null? #{ids 20073}#) | |
885 | (null? #{ids 20073}#) | |
886 | (if (let ((#{x 20084}# (car #{ids 20073}#))) | |
887 | (if (symbol? #{x 20084}#) | |
46e372ef | 888 | #t |
b2208d2e AW |
889 | (if (if (vector? #{x 20084}#) |
890 | (if (= (vector-length #{x 20084}#) 4) | |
891 | (eq? (vector-ref #{x 20084}# 0) | |
46e372ef AW |
892 | 'syntax-object) |
893 | #f) | |
894 | #f) | |
b2208d2e | 895 | (symbol? (vector-ref #{x 20084}# 1)) |
46e372ef | 896 | #f))) |
b2208d2e | 897 | (#{all-ids? 19876}# (cdr #{ids 20073}#)) |
840cf0d1 | 898 | #f))))) |
b2208d2e AW |
899 | (#{all-ids? 19876}# #{ids 19875}#)) |
900 | (#{distinct-bound-ids? 4434}# #{ids 19875}#) | |
26c81c7f | 901 | #f))) |
b2208d2e AW |
902 | (#{distinct-bound-ids? 4434}# |
903 | (lambda (#{ids 20205}#) | |
26c81c7f | 904 | (letrec* |
b2208d2e AW |
905 | ((#{distinct? 20206}# |
906 | (lambda (#{ids 20311}#) | |
907 | (if (null? #{ids 20311}#) | |
908 | (null? #{ids 20311}#) | |
909 | (if (not (#{bound-id-member? 4435}# | |
910 | (car #{ids 20311}#) | |
911 | (cdr #{ids 20311}#))) | |
912 | (#{distinct? 20206}# (cdr #{ids 20311}#)) | |
840cf0d1 | 913 | #f))))) |
b2208d2e AW |
914 | (#{distinct? 20206}# #{ids 20205}#)))) |
915 | (#{bound-id-member? 4435}# | |
916 | (lambda (#{x 20407}# #{list 20408}#) | |
917 | (if (not (null? #{list 20408}#)) | |
918 | (let ((#{t 20409}# | |
919 | (#{bound-id=? 4432}# | |
920 | #{x 20407}# | |
921 | (car #{list 20408}#)))) | |
922 | (if #{t 20409}# | |
923 | #{t 20409}# | |
924 | (#{bound-id-member? 4435}# | |
925 | #{x 20407}# | |
926 | (cdr #{list 20408}#)))) | |
26c81c7f | 927 | #f))) |
b2208d2e AW |
928 | (#{source-wrap 4437}# |
929 | (lambda (#{x 20587}# | |
930 | #{w 20588}# | |
931 | #{s 20589}# | |
932 | #{defmod 20590}#) | |
933 | (let ((#{x 20594}# | |
46e372ef | 934 | (begin |
b2208d2e AW |
935 | (if (if (pair? #{x 20587}#) #{s 20589}# #f) |
936 | (set-source-properties! #{x 20587}# #{s 20589}#)) | |
937 | #{x 20587}#))) | |
938 | (if (if (null? (car #{w 20588}#)) | |
939 | (null? (cdr #{w 20588}#)) | |
46e372ef | 940 | #f) |
b2208d2e AW |
941 | #{x 20594}# |
942 | (if (if (vector? #{x 20594}#) | |
943 | (if (= (vector-length #{x 20594}#) 4) | |
944 | (eq? (vector-ref #{x 20594}# 0) 'syntax-object) | |
46e372ef AW |
945 | #f) |
946 | #f) | |
b2208d2e AW |
947 | (let ((#{expression 20626}# (vector-ref #{x 20594}# 1)) |
948 | (#{wrap 20627}# | |
949 | (let ((#{w2 20635}# (vector-ref #{x 20594}# 2))) | |
950 | (let ((#{m1 20636}# (car #{w 20588}#)) | |
951 | (#{s1 20637}# (cdr #{w 20588}#))) | |
952 | (if (null? #{m1 20636}#) | |
953 | (if (null? #{s1 20637}#) | |
954 | #{w2 20635}# | |
955 | (cons (car #{w2 20635}#) | |
956 | (let ((#{m2 20652}# (cdr #{w2 20635}#))) | |
957 | (if (null? #{m2 20652}#) | |
958 | #{s1 20637}# | |
959 | (append #{s1 20637}# #{m2 20652}#))))) | |
960 | (cons (let ((#{m2 20660}# (car #{w2 20635}#))) | |
961 | (if (null? #{m2 20660}#) | |
962 | #{m1 20636}# | |
963 | (append #{m1 20636}# #{m2 20660}#))) | |
964 | (let ((#{m2 20668}# (cdr #{w2 20635}#))) | |
965 | (if (null? #{m2 20668}#) | |
966 | #{s1 20637}# | |
967 | (append #{s1 20637}# #{m2 20668}#)))))))) | |
968 | (#{module 20628}# (vector-ref #{x 20594}# 3))) | |
46e372ef AW |
969 | (vector |
970 | 'syntax-object | |
b2208d2e AW |
971 | #{expression 20626}# |
972 | #{wrap 20627}# | |
973 | #{module 20628}#)) | |
974 | (if (null? #{x 20594}#) | |
975 | #{x 20594}# | |
46e372ef AW |
976 | (vector |
977 | 'syntax-object | |
b2208d2e AW |
978 | #{x 20594}# |
979 | #{w 20588}# | |
980 | #{defmod 20590}#))))))) | |
981 | (#{expand-sequence 4438}# | |
982 | (lambda (#{body 36431}# | |
983 | #{r 36432}# | |
984 | #{w 36433}# | |
985 | #{s 36434}# | |
986 | #{mod 36435}#) | |
987 | (#{build-sequence 4392}# | |
988 | #{s 36434}# | |
26c81c7f | 989 | (letrec* |
b2208d2e AW |
990 | ((#{dobody 36527}# |
991 | (lambda (#{body 36614}# | |
992 | #{r 36615}# | |
993 | #{w 36616}# | |
994 | #{mod 36617}#) | |
995 | (if (null? #{body 36614}#) | |
26c81c7f | 996 | '() |
b2208d2e AW |
997 | (let ((#{first 36618}# |
998 | (#{expand 4443}# | |
999 | (car #{body 36614}#) | |
1000 | #{r 36615}# | |
1001 | #{w 36616}# | |
1002 | #{mod 36617}#))) | |
1003 | (cons #{first 36618}# | |
1004 | (#{dobody 36527}# | |
1005 | (cdr #{body 36614}#) | |
1006 | #{r 36615}# | |
1007 | #{w 36616}# | |
1008 | #{mod 36617}#))))))) | |
1009 | (#{dobody 36527}# | |
1010 | #{body 36431}# | |
1011 | #{r 36432}# | |
1012 | #{w 36433}# | |
1013 | #{mod 36435}#))))) | |
1014 | (#{expand-top-sequence 4439}# | |
1015 | (lambda (#{body 20683}# | |
1016 | #{r 20684}# | |
1017 | #{w 20685}# | |
1018 | #{s 20686}# | |
1019 | #{m 20687}# | |
1020 | #{esew 20688}# | |
1021 | #{mod 20689}#) | |
1022 | (let ((#{r 20690}# | |
1023 | (cons '("placeholder" placeholder) #{r 20684}#))) | |
1024 | (let ((#{ribcage 20691}# (vector 'ribcage '() '() '()))) | |
1025 | (let ((#{w 20692}# | |
1026 | (cons (car #{w 20685}#) | |
1027 | (cons #{ribcage 20691}# (cdr #{w 20685}#))))) | |
0f9f51a1 | 1028 | (letrec* |
b2208d2e AW |
1029 | ((#{record-definition! 20693}# |
1030 | (lambda (#{id 24185}# #{var 24186}#) | |
1031 | (let ((#{mod 24187}# | |
0f9f51a1 | 1032 | (cons 'hygiene (module-name (current-module))))) |
b2208d2e AW |
1033 | (let ((#{label 24193}# |
1034 | (cons (vector-ref #{id 24185}# 3) | |
1035 | (if (if (vector? #{var 24186}#) | |
1036 | (if (= (vector-length #{var 24186}#) | |
0f9f51a1 | 1037 | 4) |
b2208d2e | 1038 | (eq? (vector-ref #{var 24186}# 0) |
0f9f51a1 AW |
1039 | 'syntax-object) |
1040 | #f) | |
1041 | #f) | |
b2208d2e AW |
1042 | (let ((#{expression 24255}# |
1043 | (vector-ref #{var 24186}# 1)) | |
1044 | (#{wrap 24256}# | |
1045 | (let ((#{w2 24266}# | |
148dfc24 | 1046 | (vector-ref |
b2208d2e | 1047 | #{var 24186}# |
0f9f51a1 | 1048 | 2))) |
b2208d2e AW |
1049 | (cons (let ((#{m2 24273}# |
1050 | (car #{w2 24266}#))) | |
1051 | (if (null? #{m2 24273}#) | |
0f9f51a1 AW |
1052 | '(top) |
1053 | (append | |
1054 | '(top) | |
b2208d2e AW |
1055 | #{m2 24273}#))) |
1056 | (let ((#{m2 24282}# | |
1057 | (cdr #{w2 24266}#))) | |
1058 | (if (null? #{m2 24282}#) | |
0f9f51a1 AW |
1059 | '() |
1060 | (append | |
1061 | '() | |
b2208d2e AW |
1062 | #{m2 24282}#)))))) |
1063 | (#{module 24257}# | |
1064 | (vector-ref #{var 24186}# 3))) | |
0f9f51a1 AW |
1065 | (vector |
1066 | 'syntax-object | |
b2208d2e AW |
1067 | #{expression 24255}# |
1068 | #{wrap 24256}# | |
1069 | #{module 24257}#)) | |
1070 | (if (null? #{var 24186}#) | |
1071 | #{var 24186}# | |
0f9f51a1 AW |
1072 | (vector |
1073 | 'syntax-object | |
b2208d2e | 1074 | #{var 24186}# |
0f9f51a1 | 1075 | '((top)) |
b2208d2e | 1076 | #{mod 24187}#)))))) |
0f9f51a1 | 1077 | (begin |
b2208d2e AW |
1078 | (let ((#{update 24196}# |
1079 | (cons (vector-ref #{id 24185}# 1) | |
1080 | (vector-ref #{ribcage 20691}# 1)))) | |
0f9f51a1 | 1081 | (vector-set! |
b2208d2e | 1082 | #{ribcage 20691}# |
0f9f51a1 | 1083 | 1 |
b2208d2e AW |
1084 | #{update 24196}#)) |
1085 | (let ((#{update 24211}# | |
1086 | (cons (car (vector-ref #{id 24185}# 2)) | |
1087 | (vector-ref #{ribcage 20691}# 2)))) | |
0f9f51a1 | 1088 | (vector-set! |
b2208d2e | 1089 | #{ribcage 20691}# |
0f9f51a1 | 1090 | 2 |
b2208d2e AW |
1091 | #{update 24211}#)) |
1092 | (let ((#{update 24226}# | |
1093 | (cons #{label 24193}# | |
1094 | (vector-ref #{ribcage 20691}# 3)))) | |
0f9f51a1 | 1095 | (vector-set! |
b2208d2e | 1096 | #{ribcage 20691}# |
0f9f51a1 | 1097 | 3 |
b2208d2e AW |
1098 | #{update 24226}#))))))) |
1099 | (#{parse 20696}# | |
1100 | (lambda (#{body 20901}# | |
1101 | #{r 20902}# | |
1102 | #{w 20903}# | |
1103 | #{s 20904}# | |
1104 | #{m 20905}# | |
1105 | #{esew 20906}# | |
1106 | #{mod 20907}#) | |
0f9f51a1 | 1107 | (letrec* |
b2208d2e AW |
1108 | ((#{lp 20908}# |
1109 | (lambda (#{body 20995}# #{exps 20996}#) | |
1110 | (if (null? #{body 20995}#) | |
1111 | #{exps 20996}# | |
1112 | (#{lp 20908}# | |
1113 | (cdr #{body 20995}#) | |
0f9f51a1 | 1114 | (append |
b2208d2e AW |
1115 | (#{parse1 20697}# |
1116 | (car #{body 20995}#) | |
1117 | #{r 20902}# | |
1118 | #{w 20903}# | |
1119 | #{s 20904}# | |
1120 | #{m 20905}# | |
1121 | #{esew 20906}# | |
1122 | #{mod 20907}#) | |
1123 | #{exps 20996}#)))))) | |
1124 | (#{lp 20908}# #{body 20901}# '())))) | |
1125 | (#{parse1 20697}# | |
1126 | (lambda (#{x 21070}# | |
1127 | #{r 21071}# | |
1128 | #{w 21072}# | |
1129 | #{s 21073}# | |
1130 | #{m 21074}# | |
1131 | #{esew 21075}# | |
1132 | #{mod 21076}#) | |
0f9f51a1 AW |
1133 | (call-with-values |
1134 | (lambda () | |
b2208d2e AW |
1135 | (#{syntax-type 4442}# |
1136 | #{x 21070}# | |
1137 | #{r 21071}# | |
1138 | #{w 21072}# | |
1139 | (#{source-annotation 4404}# #{x 21070}#) | |
1140 | #{ribcage 20691}# | |
1141 | #{mod 21076}# | |
0f9f51a1 | 1142 | #f)) |
b2208d2e AW |
1143 | (lambda (#{type 21280}# |
1144 | #{value 21281}# | |
1145 | #{e 21282}# | |
1146 | #{w 21283}# | |
1147 | #{s 21284}# | |
1148 | #{mod 21285}#) | |
1149 | (if (eqv? #{type 21280}# 'define-form) | |
1150 | (let ((#{id 21289}# | |
1151 | (if (if (null? (car #{w 21283}#)) | |
1152 | (null? (cdr #{w 21283}#)) | |
0f9f51a1 | 1153 | #f) |
b2208d2e AW |
1154 | #{value 21281}# |
1155 | (if (if (vector? #{value 21281}#) | |
0f9f51a1 | 1156 | (if (= (vector-length |
b2208d2e | 1157 | #{value 21281}#) |
0f9f51a1 | 1158 | 4) |
b2208d2e | 1159 | (eq? (vector-ref #{value 21281}# 0) |
0f9f51a1 AW |
1160 | 'syntax-object) |
1161 | #f) | |
1162 | #f) | |
b2208d2e AW |
1163 | (let ((#{expression 21339}# |
1164 | (vector-ref #{value 21281}# 1)) | |
1165 | (#{wrap 21340}# | |
1166 | (let ((#{w2 21350}# | |
148dfc24 | 1167 | (vector-ref |
b2208d2e | 1168 | #{value 21281}# |
0f9f51a1 | 1169 | 2))) |
b2208d2e AW |
1170 | (let ((#{m1 21351}# |
1171 | (car #{w 21283}#)) | |
1172 | (#{s1 21352}# | |
1173 | (cdr #{w 21283}#))) | |
1174 | (if (null? #{m1 21351}#) | |
1175 | (if (null? #{s1 21352}#) | |
1176 | #{w2 21350}# | |
1177 | (cons (car #{w2 21350}#) | |
1178 | (let ((#{m2 21369}# | |
1179 | (cdr #{w2 21350}#))) | |
1180 | (if (null? #{m2 21369}#) | |
1181 | #{s1 21352}# | |
0f9f51a1 | 1182 | (append |
b2208d2e AW |
1183 | #{s1 21352}# |
1184 | #{m2 21369}#))))) | |
1185 | (cons (let ((#{m2 21377}# | |
1186 | (car #{w2 21350}#))) | |
1187 | (if (null? #{m2 21377}#) | |
1188 | #{m1 21351}# | |
0f9f51a1 | 1189 | (append |
b2208d2e AW |
1190 | #{m1 21351}# |
1191 | #{m2 21377}#))) | |
1192 | (let ((#{m2 21385}# | |
1193 | (cdr #{w2 21350}#))) | |
1194 | (if (null? #{m2 21385}#) | |
1195 | #{s1 21352}# | |
0f9f51a1 | 1196 | (append |
b2208d2e AW |
1197 | #{s1 21352}# |
1198 | #{m2 21385}#)))))))) | |
1199 | (#{module 21341}# | |
1200 | (vector-ref #{value 21281}# 3))) | |
0f9f51a1 AW |
1201 | (vector |
1202 | 'syntax-object | |
b2208d2e AW |
1203 | #{expression 21339}# |
1204 | #{wrap 21340}# | |
1205 | #{module 21341}#)) | |
1206 | (if (null? #{value 21281}#) | |
1207 | #{value 21281}# | |
0f9f51a1 AW |
1208 | (vector |
1209 | 'syntax-object | |
b2208d2e AW |
1210 | #{value 21281}# |
1211 | #{w 21283}# | |
1212 | #{mod 21285}#)))))) | |
0f9f51a1 AW |
1213 | (begin |
1214 | (symbol->string (gensym "i")) | |
b2208d2e | 1215 | (let ((#{var 21291}# |
0f9f51a1 AW |
1216 | (if (not (equal? |
1217 | (car (vector-ref | |
b2208d2e | 1218 | #{id 21289}# |
0f9f51a1 AW |
1219 | 2)) |
1220 | '(top))) | |
1221 | (symbol-append | |
b2208d2e | 1222 | (vector-ref #{id 21289}# 1) |
0f9f51a1 AW |
1223 | '- |
1224 | (string->symbol | |
1225 | (number->string | |
b2208d2e | 1226 | (hash (syntax->datum #{x 21070}#) |
0f9f51a1 AW |
1227 | most-positive-fixnum) |
1228 | 16))) | |
b2208d2e | 1229 | (vector-ref #{id 21289}# 1)))) |
0f9f51a1 | 1230 | (begin |
b2208d2e AW |
1231 | (#{record-definition! 20693}# |
1232 | #{id 21289}# | |
1233 | #{var 21291}#) | |
1234 | (list (if (eq? #{m 21074}# 'c&e) | |
1235 | (let ((#{x 21516}# | |
1236 | (#{build-global-definition 4385}# | |
1237 | #{s 21284}# | |
1238 | #{var 21291}# | |
1239 | (#{expand 4443}# | |
1240 | #{e 21282}# | |
1241 | #{r 21071}# | |
1242 | #{w 21283}# | |
1243 | #{mod 21285}#)))) | |
0f9f51a1 | 1244 | (begin |
b2208d2e AW |
1245 | (#{top-level-eval-hook 4370}# |
1246 | #{x 21516}# | |
1247 | #{mod 21285}#) | |
1248 | (lambda () #{x 21516}#))) | |
0f9f51a1 | 1249 | (lambda () |
b2208d2e AW |
1250 | (#{build-global-definition 4385}# |
1251 | #{s 21284}# | |
1252 | #{var 21291}# | |
1253 | (#{expand 4443}# | |
1254 | #{e 21282}# | |
1255 | #{r 21071}# | |
1256 | #{w 21283}# | |
1257 | #{mod 21285}#))))))))) | |
1258 | (if (if (eqv? #{type 21280}# 'define-syntax-form) | |
0f9f51a1 | 1259 | #t |
b2208d2e | 1260 | (eqv? #{type 21280}# |
0f9f51a1 | 1261 | 'define-syntax-parameter-form)) |
b2208d2e AW |
1262 | (let ((#{id 22032}# |
1263 | (if (if (null? (car #{w 21283}#)) | |
1264 | (null? (cdr #{w 21283}#)) | |
0f9f51a1 | 1265 | #f) |
b2208d2e AW |
1266 | #{value 21281}# |
1267 | (if (if (vector? #{value 21281}#) | |
0f9f51a1 | 1268 | (if (= (vector-length |
b2208d2e | 1269 | #{value 21281}#) |
0f9f51a1 AW |
1270 | 4) |
1271 | (eq? (vector-ref | |
b2208d2e | 1272 | #{value 21281}# |
0f9f51a1 AW |
1273 | 0) |
1274 | 'syntax-object) | |
1275 | #f) | |
1276 | #f) | |
b2208d2e AW |
1277 | (let ((#{expression 22082}# |
1278 | (vector-ref #{value 21281}# 1)) | |
1279 | (#{wrap 22083}# | |
1280 | (let ((#{w2 22093}# | |
0f9f51a1 | 1281 | (vector-ref |
b2208d2e | 1282 | #{value 21281}# |
0f9f51a1 | 1283 | 2))) |
b2208d2e AW |
1284 | (let ((#{m1 22094}# |
1285 | (car #{w 21283}#)) | |
1286 | (#{s1 22095}# | |
1287 | (cdr #{w 21283}#))) | |
1288 | (if (null? #{m1 22094}#) | |
1289 | (if (null? #{s1 22095}#) | |
1290 | #{w2 22093}# | |
1291 | (cons (car #{w2 22093}#) | |
1292 | (let ((#{m2 22112}# | |
1293 | (cdr #{w2 22093}#))) | |
1294 | (if (null? #{m2 22112}#) | |
1295 | #{s1 22095}# | |
0f9f51a1 | 1296 | (append |
b2208d2e AW |
1297 | #{s1 22095}# |
1298 | #{m2 22112}#))))) | |
1299 | (cons (let ((#{m2 22120}# | |
1300 | (car #{w2 22093}#))) | |
1301 | (if (null? #{m2 22120}#) | |
1302 | #{m1 22094}# | |
0f9f51a1 | 1303 | (append |
b2208d2e AW |
1304 | #{m1 22094}# |
1305 | #{m2 22120}#))) | |
1306 | (let ((#{m2 22128}# | |
1307 | (cdr #{w2 22093}#))) | |
1308 | (if (null? #{m2 22128}#) | |
1309 | #{s1 22095}# | |
0f9f51a1 | 1310 | (append |
b2208d2e AW |
1311 | #{s1 22095}# |
1312 | #{m2 22128}#)))))))) | |
1313 | (#{module 22084}# | |
0f9f51a1 | 1314 | (vector-ref |
b2208d2e | 1315 | #{value 21281}# |
0f9f51a1 AW |
1316 | 3))) |
1317 | (vector | |
1318 | 'syntax-object | |
b2208d2e AW |
1319 | #{expression 22082}# |
1320 | #{wrap 22083}# | |
1321 | #{module 22084}#)) | |
1322 | (if (null? #{value 21281}#) | |
1323 | #{value 21281}# | |
0f9f51a1 AW |
1324 | (vector |
1325 | 'syntax-object | |
b2208d2e AW |
1326 | #{value 21281}# |
1327 | #{w 21283}# | |
1328 | #{mod 21285}#)))))) | |
0f9f51a1 AW |
1329 | (begin |
1330 | (symbol->string (gensym "i")) | |
b2208d2e | 1331 | (let ((#{var 22034}# |
0f9f51a1 AW |
1332 | (if (not (equal? |
1333 | (car (vector-ref | |
b2208d2e | 1334 | #{id 22032}# |
0f9f51a1 AW |
1335 | 2)) |
1336 | '(top))) | |
1337 | (symbol-append | |
b2208d2e | 1338 | (vector-ref #{id 22032}# 1) |
0f9f51a1 AW |
1339 | '- |
1340 | (string->symbol | |
1341 | (number->string | |
1342 | (hash (syntax->datum | |
b2208d2e | 1343 | #{x 21070}#) |
0f9f51a1 AW |
1344 | most-positive-fixnum) |
1345 | 16))) | |
b2208d2e | 1346 | (vector-ref #{id 22032}# 1)))) |
0f9f51a1 | 1347 | (begin |
b2208d2e AW |
1348 | (#{record-definition! 20693}# |
1349 | #{id 22032}# | |
1350 | #{var 22034}#) | |
1351 | (if (eqv? #{m 21074}# 'c) | |
1352 | (if (memq 'compile #{esew 21075}#) | |
1353 | (let ((#{e 22262}# | |
1354 | (#{expand-install-global 4440}# | |
1355 | #{var 22034}# | |
1356 | #{type 21280}# | |
1357 | (#{expand 4443}# | |
1358 | #{e 21282}# | |
1359 | #{r 21071}# | |
1360 | #{w 21283}# | |
1361 | #{mod 21285}#)))) | |
148dfc24 | 1362 | (begin |
b2208d2e AW |
1363 | (#{top-level-eval-hook 4370}# |
1364 | #{e 22262}# | |
1365 | #{mod 21285}#) | |
1366 | (if (memq 'load #{esew 21075}#) | |
1367 | (list (lambda () #{e 22262}#)) | |
0f9f51a1 | 1368 | '()))) |
b2208d2e | 1369 | (if (memq 'load #{esew 21075}#) |
0f9f51a1 | 1370 | (list (lambda () |
b2208d2e AW |
1371 | (#{expand-install-global 4440}# |
1372 | #{var 22034}# | |
1373 | #{type 21280}# | |
1374 | (#{expand 4443}# | |
1375 | #{e 21282}# | |
1376 | #{r 21071}# | |
1377 | #{w 21283}# | |
1378 | #{mod 21285}#)))) | |
0f9f51a1 | 1379 | '())) |
b2208d2e AW |
1380 | (if (eqv? #{m 21074}# 'c&e) |
1381 | (let ((#{e 22782}# | |
1382 | (#{expand-install-global 4440}# | |
1383 | #{var 22034}# | |
1384 | #{type 21280}# | |
1385 | (#{expand 4443}# | |
1386 | #{e 21282}# | |
1387 | #{r 21071}# | |
1388 | #{w 21283}# | |
1389 | #{mod 21285}#)))) | |
0f9f51a1 | 1390 | (begin |
b2208d2e AW |
1391 | (#{top-level-eval-hook 4370}# |
1392 | #{e 22782}# | |
1393 | #{mod 21285}#) | |
1394 | (list (lambda () #{e 22782}#)))) | |
0f9f51a1 | 1395 | (begin |
b2208d2e AW |
1396 | (if (memq 'eval #{esew 21075}#) |
1397 | (#{top-level-eval-hook 4370}# | |
1398 | (#{expand-install-global 4440}# | |
1399 | #{var 22034}# | |
1400 | #{type 21280}# | |
1401 | (#{expand 4443}# | |
1402 | #{e 21282}# | |
1403 | #{r 21071}# | |
1404 | #{w 21283}# | |
1405 | #{mod 21285}#)) | |
1406 | #{mod 21285}#)) | |
0f9f51a1 | 1407 | '()))))))) |
b2208d2e AW |
1408 | (if (eqv? #{type 21280}# 'begin-form) |
1409 | (let ((#{tmp 23411}# | |
0f9f51a1 | 1410 | ($sc-dispatch |
b2208d2e | 1411 | #{e 21282}# |
0f9f51a1 | 1412 | '(_ . each-any)))) |
b2208d2e | 1413 | (if #{tmp 23411}# |
0f9f51a1 | 1414 | (@apply |
b2208d2e AW |
1415 | (lambda (#{e1 23415}#) |
1416 | (#{parse 20696}# | |
1417 | #{e1 23415}# | |
1418 | #{r 21071}# | |
1419 | #{w 21283}# | |
1420 | #{s 21284}# | |
1421 | #{m 21074}# | |
1422 | #{esew 21075}# | |
1423 | #{mod 21285}#)) | |
1424 | #{tmp 23411}#) | |
0f9f51a1 AW |
1425 | (syntax-violation |
1426 | #f | |
1427 | "source expression failed to match any pattern" | |
b2208d2e AW |
1428 | #{e 21282}#))) |
1429 | (if (eqv? #{type 21280}# 'local-syntax-form) | |
1430 | (#{expand-local-syntax 4448}# | |
1431 | #{value 21281}# | |
1432 | #{e 21282}# | |
1433 | #{r 21071}# | |
1434 | #{w 21283}# | |
1435 | #{s 21284}# | |
1436 | #{mod 21285}# | |
1437 | (lambda (#{forms 23461}# | |
1438 | #{r 23462}# | |
1439 | #{w 23463}# | |
1440 | #{s 23464}# | |
1441 | #{mod 23465}#) | |
1442 | (#{parse 20696}# | |
1443 | #{forms 23461}# | |
1444 | #{r 23462}# | |
1445 | #{w 23463}# | |
1446 | #{s 23464}# | |
1447 | #{m 21074}# | |
1448 | #{esew 21075}# | |
1449 | #{mod 23465}#))) | |
1450 | (if (eqv? #{type 21280}# 'eval-when-form) | |
1451 | (let ((#{tmp 23504}# | |
0f9f51a1 | 1452 | ($sc-dispatch |
b2208d2e | 1453 | #{e 21282}# |
0f9f51a1 | 1454 | '(_ each-any any . each-any)))) |
b2208d2e | 1455 | (if #{tmp 23504}# |
0f9f51a1 | 1456 | (@apply |
b2208d2e AW |
1457 | (lambda (#{x 23508}# |
1458 | #{e1 23509}# | |
1459 | #{e2 23510}#) | |
1460 | (let ((#{when-list 23511}# | |
1461 | (#{parse-when-list 4441}# | |
1462 | #{e 21282}# | |
1463 | #{x 23508}#)) | |
1464 | (#{body 23512}# | |
1465 | (cons #{e1 23509}# | |
1466 | #{e2 23510}#))) | |
0f9f51a1 | 1467 | (letrec* |
b2208d2e AW |
1468 | ((#{recurse 23513}# |
1469 | (lambda (#{m 24102}# | |
1470 | #{esew 24103}#) | |
1471 | (#{parse 20696}# | |
1472 | #{body 23512}# | |
1473 | #{r 21071}# | |
1474 | #{w 21283}# | |
1475 | #{s 21284}# | |
1476 | #{m 24102}# | |
1477 | #{esew 24103}# | |
1478 | #{mod 21285}#)))) | |
1479 | (if (eq? #{m 21074}# 'e) | |
0f9f51a1 | 1480 | (if (memq 'eval |
b2208d2e AW |
1481 | #{when-list 23511}#) |
1482 | (#{recurse 23513}# | |
0f9f51a1 | 1483 | (if (memq 'expand |
b2208d2e | 1484 | #{when-list 23511}#) |
0f9f51a1 AW |
1485 | 'c&e |
1486 | 'e) | |
1487 | '(eval)) | |
1488 | (begin | |
1489 | (if (memq 'expand | |
b2208d2e AW |
1490 | #{when-list 23511}#) |
1491 | (let ((#{x 23621}# | |
1492 | (#{expand-top-sequence 4439}# | |
1493 | #{body 23512}# | |
1494 | #{r 21071}# | |
1495 | #{w 21283}# | |
1496 | #{s 21284}# | |
0f9f51a1 AW |
1497 | 'e |
1498 | '(eval) | |
b2208d2e | 1499 | #{mod 21285}#))) |
0f9f51a1 | 1500 | (primitive-eval |
b2208d2e | 1501 | #{x 23621}#))) |
0f9f51a1 AW |
1502 | '())) |
1503 | (if (memq 'load | |
b2208d2e AW |
1504 | #{when-list 23511}#) |
1505 | (if (let ((#{t 23649}# | |
0f9f51a1 | 1506 | (memq 'compile |
b2208d2e AW |
1507 | #{when-list 23511}#))) |
1508 | (if #{t 23649}# | |
1509 | #{t 23649}# | |
1510 | (let ((#{t 23702}# | |
0f9f51a1 | 1511 | (memq 'expand |
b2208d2e AW |
1512 | #{when-list 23511}#))) |
1513 | (if #{t 23702}# | |
1514 | #{t 23702}# | |
1515 | (if (eq? #{m 21074}# | |
0f9f51a1 AW |
1516 | 'c&e) |
1517 | (memq 'eval | |
b2208d2e | 1518 | #{when-list 23511}#) |
0f9f51a1 | 1519 | #f))))) |
b2208d2e | 1520 | (#{recurse 23513}# |
0f9f51a1 AW |
1521 | 'c&e |
1522 | '(compile load)) | |
b2208d2e | 1523 | (if (if (eq? #{m 21074}# |
0f9f51a1 AW |
1524 | 'c) |
1525 | #t | |
b2208d2e | 1526 | (eq? #{m 21074}# |
0f9f51a1 | 1527 | 'c&e)) |
b2208d2e | 1528 | (#{recurse 23513}# |
0f9f51a1 AW |
1529 | 'c |
1530 | '(load)) | |
1531 | '())) | |
b2208d2e | 1532 | (if (let ((#{t 23913}# |
0f9f51a1 | 1533 | (memq 'compile |
b2208d2e AW |
1534 | #{when-list 23511}#))) |
1535 | (if #{t 23913}# | |
1536 | #{t 23913}# | |
1537 | (let ((#{t 23966}# | |
0f9f51a1 | 1538 | (memq 'expand |
b2208d2e AW |
1539 | #{when-list 23511}#))) |
1540 | (if #{t 23966}# | |
1541 | #{t 23966}# | |
1542 | (if (eq? #{m 21074}# | |
0f9f51a1 AW |
1543 | 'c&e) |
1544 | (memq 'eval | |
b2208d2e | 1545 | #{when-list 23511}#) |
0f9f51a1 AW |
1546 | #f))))) |
1547 | (begin | |
b2208d2e AW |
1548 | (let ((#{x 24100}# |
1549 | (#{expand-top-sequence 4439}# | |
1550 | #{body 23512}# | |
1551 | #{r 21071}# | |
1552 | #{w 21283}# | |
1553 | #{s 21284}# | |
0f9f51a1 AW |
1554 | 'e |
1555 | '(eval) | |
b2208d2e | 1556 | #{mod 21285}#))) |
0f9f51a1 | 1557 | (primitive-eval |
b2208d2e | 1558 | #{x 24100}#)) |
0f9f51a1 AW |
1559 | '()) |
1560 | '())))))) | |
b2208d2e | 1561 | #{tmp 23504}#) |
0f9f51a1 AW |
1562 | (syntax-violation |
1563 | #f | |
1564 | "source expression failed to match any pattern" | |
b2208d2e AW |
1565 | #{e 21282}#))) |
1566 | (list (if (eq? #{m 21074}# 'c&e) | |
1567 | (let ((#{x 24176}# | |
1568 | (#{expand-expr 4444}# | |
1569 | #{type 21280}# | |
1570 | #{value 21281}# | |
1571 | #{e 21282}# | |
1572 | #{r 21071}# | |
1573 | #{w 21283}# | |
1574 | #{s 21284}# | |
1575 | #{mod 21285}#))) | |
0f9f51a1 | 1576 | (begin |
b2208d2e AW |
1577 | (primitive-eval #{x 24176}#) |
1578 | (lambda () #{x 24176}#))) | |
0f9f51a1 | 1579 | (lambda () |
b2208d2e AW |
1580 | (#{expand-expr 4444}# |
1581 | #{type 21280}# | |
1582 | #{value 21281}# | |
1583 | #{e 21282}# | |
1584 | #{r 21071}# | |
1585 | #{w 21283}# | |
1586 | #{s 21284}# | |
1587 | #{mod 21285}#)))))))))))))) | |
1588 | (let ((#{exps 20698}# | |
1589 | (map (lambda (#{x 20829}#) (#{x 20829}#)) | |
0f9f51a1 | 1590 | (reverse |
b2208d2e AW |
1591 | (#{parse 20696}# |
1592 | #{body 20683}# | |
1593 | #{r 20690}# | |
1594 | #{w 20692}# | |
1595 | #{s 20686}# | |
1596 | #{m 20687}# | |
1597 | #{esew 20688}# | |
1598 | #{mod 20689}#))))) | |
1599 | (if (null? #{exps 20698}#) | |
0f9f51a1 AW |
1600 | (make-struct/no-tail |
1601 | (vector-ref %expanded-vtables 0) | |
b2208d2e AW |
1602 | #{s 20686}#) |
1603 | (#{build-sequence 4392}# | |
1604 | #{s 20686}# | |
1605 | #{exps 20698}#))))))))) | |
1606 | (#{expand-install-global 4440}# | |
1607 | (lambda (#{name 24304}# #{type 24305}# #{e 24306}#) | |
1608 | (let ((#{exp 24312}# | |
1609 | (let ((#{args 24323}# | |
1610 | (if (eq? #{type 24305}# | |
0f9f51a1 AW |
1611 | 'define-syntax-parameter-form) |
1612 | (list (make-struct/no-tail | |
1613 | (vector-ref %expanded-vtables 1) | |
1614 | #f | |
b2208d2e | 1615 | #{name 24304}#) |
0f9f51a1 AW |
1616 | (make-struct/no-tail |
1617 | (vector-ref %expanded-vtables 1) | |
1618 | #f | |
1619 | 'syntax-parameter) | |
b2208d2e | 1620 | (let ((#{args 24346}# (list #{e 24306}#))) |
0f9f51a1 AW |
1621 | (make-struct/no-tail |
1622 | (vector-ref %expanded-vtables 12) | |
1623 | #f | |
1624 | 'list | |
b2208d2e | 1625 | #{args 24346}#))) |
0f9f51a1 AW |
1626 | (list (make-struct/no-tail |
1627 | (vector-ref %expanded-vtables 1) | |
1628 | #f | |
b2208d2e | 1629 | #{name 24304}#) |
0f9f51a1 AW |
1630 | (make-struct/no-tail |
1631 | (vector-ref %expanded-vtables 1) | |
1632 | #f | |
1633 | 'macro) | |
b2208d2e | 1634 | #{e 24306}#)))) |
46e372ef AW |
1635 | (make-struct/no-tail |
1636 | (vector-ref %expanded-vtables 12) | |
1637 | #f | |
1638 | 'make-syntax-transformer | |
b2208d2e | 1639 | #{args 24323}#)))) |
46e372ef | 1640 | (begin |
b2208d2e AW |
1641 | (if (if (struct? #{exp 24312}#) |
1642 | (eq? (struct-vtable #{exp 24312}#) | |
46e372ef AW |
1643 | (vector-ref %expanded-vtables 14)) |
1644 | #f) | |
b2208d2e AW |
1645 | (let ((#{meta 24373}# (struct-ref #{exp 24312}# 1))) |
1646 | (if (not (assq 'name #{meta 24373}#)) | |
1647 | (let ((#{v 24380}# | |
1648 | (cons (cons 'name #{name 24304}#) #{meta 24373}#))) | |
1649 | (struct-set! #{exp 24312}# 1 #{v 24380}#))))) | |
46e372ef AW |
1650 | (make-struct/no-tail |
1651 | (vector-ref %expanded-vtables 9) | |
1652 | #f | |
b2208d2e AW |
1653 | #{name 24304}# |
1654 | #{exp 24312}#))))) | |
1655 | (#{parse-when-list 4441}# | |
1656 | (lambda (#{e 24391}# #{when-list 24392}#) | |
1657 | (let ((#{result 24393}# | |
1658 | (#{strip 4456}# #{when-list 24392}# '(())))) | |
440ac793 | 1659 | (letrec* |
b2208d2e AW |
1660 | ((#{lp 24394}# |
1661 | (lambda (#{l 24460}#) | |
1662 | (if (null? #{l 24460}#) | |
1663 | #{result 24393}# | |
1664 | (if (let ((#{t 24462}# (car #{l 24460}#))) | |
1665 | (if (eq? #{t 24462}# 'compile) | |
440ac793 | 1666 | #t |
b2208d2e | 1667 | (if (eq? #{t 24462}# 'load) |
440ac793 | 1668 | #t |
b2208d2e | 1669 | (if (eq? #{t 24462}# 'eval) |
440ac793 | 1670 | #t |
b2208d2e AW |
1671 | (eq? #{t 24462}# 'expand))))) |
1672 | (#{lp 24394}# (cdr #{l 24460}#)) | |
440ac793 AW |
1673 | (syntax-violation |
1674 | 'eval-when | |
1675 | "invalid situation" | |
b2208d2e AW |
1676 | #{e 24391}# |
1677 | (car #{l 24460}#))))))) | |
1678 | (#{lp 24394}# #{result 24393}#))))) | |
1679 | (#{syntax-type 4442}# | |
1680 | (lambda (#{e 24464}# | |
1681 | #{r 24465}# | |
1682 | #{w 24466}# | |
1683 | #{s 24467}# | |
1684 | #{rib 24468}# | |
1685 | #{mod 24469}# | |
1686 | #{for-car? 24470}#) | |
1687 | (if (symbol? #{e 24464}#) | |
0f9f51a1 AW |
1688 | (call-with-values |
1689 | (lambda () | |
b2208d2e AW |
1690 | (#{resolve-identifier 4430}# |
1691 | #{e 24464}# | |
1692 | #{w 24466}# | |
1693 | #{r 24465}# | |
1694 | #{mod 24469}# | |
0f9f51a1 | 1695 | #t)) |
b2208d2e AW |
1696 | (lambda (#{type 24473}# #{value 24474}# #{mod* 24475}#) |
1697 | (if (eqv? #{type 24473}# 'macro) | |
1698 | (if #{for-car? 24470}# | |
25711fa4 | 1699 | (values |
b2208d2e AW |
1700 | #{type 24473}# |
1701 | #{value 24474}# | |
1702 | #{e 24464}# | |
1703 | #{w 24466}# | |
1704 | #{s 24467}# | |
1705 | #{mod 24469}#) | |
1706 | (#{syntax-type 4442}# | |
1707 | (#{expand-macro 4446}# | |
1708 | #{value 24474}# | |
1709 | #{e 24464}# | |
1710 | #{r 24465}# | |
1711 | #{w 24466}# | |
1712 | #{s 24467}# | |
1713 | #{rib 24468}# | |
1714 | #{mod 24469}#) | |
1715 | #{r 24465}# | |
0f9f51a1 | 1716 | '(()) |
b2208d2e AW |
1717 | #{s 24467}# |
1718 | #{rib 24468}# | |
1719 | #{mod 24469}# | |
0f9f51a1 | 1720 | #f)) |
b2208d2e | 1721 | (if (eqv? #{type 24473}# 'global) |
0f9f51a1 | 1722 | (values |
b2208d2e AW |
1723 | #{type 24473}# |
1724 | #{value 24474}# | |
1725 | #{value 24474}# | |
1726 | #{w 24466}# | |
1727 | #{s 24467}# | |
1728 | #{mod* 24475}#) | |
0f9f51a1 | 1729 | (values |
b2208d2e AW |
1730 | #{type 24473}# |
1731 | #{value 24474}# | |
1732 | #{e 24464}# | |
1733 | #{w 24466}# | |
1734 | #{s 24467}# | |
1735 | #{mod 24469}#))))) | |
1736 | (if (pair? #{e 24464}#) | |
1737 | (let ((#{first 24484}# (car #{e 24464}#))) | |
25711fa4 AW |
1738 | (call-with-values |
1739 | (lambda () | |
b2208d2e AW |
1740 | (#{syntax-type 4442}# |
1741 | #{first 24484}# | |
1742 | #{r 24465}# | |
1743 | #{w 24466}# | |
1744 | #{s 24467}# | |
1745 | #{rib 24468}# | |
1746 | #{mod 24469}# | |
25711fa4 | 1747 | #t)) |
b2208d2e AW |
1748 | (lambda (#{ftype 24486}# |
1749 | #{fval 24487}# | |
1750 | #{fe 24488}# | |
1751 | #{fw 24489}# | |
1752 | #{fs 24490}# | |
1753 | #{fmod 24491}#) | |
1754 | (if (eqv? #{ftype 24486}# 'lexical) | |
25711fa4 AW |
1755 | (values |
1756 | 'lexical-call | |
b2208d2e AW |
1757 | #{fval 24487}# |
1758 | #{e 24464}# | |
1759 | #{w 24466}# | |
1760 | #{s 24467}# | |
1761 | #{mod 24469}#) | |
1762 | (if (eqv? #{ftype 24486}# 'global) | |
25711fa4 AW |
1763 | (values |
1764 | 'global-call | |
46e372ef AW |
1765 | (vector |
1766 | 'syntax-object | |
b2208d2e AW |
1767 | #{fval 24487}# |
1768 | #{w 24466}# | |
1769 | #{fmod 24491}#) | |
1770 | #{e 24464}# | |
1771 | #{w 24466}# | |
1772 | #{s 24467}# | |
1773 | #{mod 24469}#) | |
1774 | (if (eqv? #{ftype 24486}# 'macro) | |
1775 | (#{syntax-type 4442}# | |
1776 | (#{expand-macro 4446}# | |
1777 | #{fval 24487}# | |
1778 | #{e 24464}# | |
1779 | #{r 24465}# | |
1780 | #{w 24466}# | |
1781 | #{s 24467}# | |
1782 | #{rib 24468}# | |
1783 | #{mod 24469}#) | |
1784 | #{r 24465}# | |
25711fa4 | 1785 | '(()) |
b2208d2e AW |
1786 | #{s 24467}# |
1787 | #{rib 24468}# | |
1788 | #{mod 24469}# | |
1789 | #{for-car? 24470}#) | |
1790 | (if (eqv? #{ftype 24486}# 'module-ref) | |
25711fa4 AW |
1791 | (call-with-values |
1792 | (lambda () | |
b2208d2e AW |
1793 | (#{fval 24487}# |
1794 | #{e 24464}# | |
1795 | #{r 24465}# | |
1796 | #{w 24466}#)) | |
1797 | (lambda (#{e 24512}# | |
1798 | #{r 24513}# | |
1799 | #{w 24514}# | |
1800 | #{s 24515}# | |
1801 | #{mod 24516}#) | |
1802 | (#{syntax-type 4442}# | |
1803 | #{e 24512}# | |
1804 | #{r 24513}# | |
1805 | #{w 24514}# | |
1806 | #{s 24515}# | |
1807 | #{rib 24468}# | |
1808 | #{mod 24516}# | |
1809 | #{for-car? 24470}#))) | |
1810 | (if (eqv? #{ftype 24486}# 'core) | |
25711fa4 AW |
1811 | (values |
1812 | 'core-form | |
b2208d2e AW |
1813 | #{fval 24487}# |
1814 | #{e 24464}# | |
1815 | #{w 24466}# | |
1816 | #{s 24467}# | |
1817 | #{mod 24469}#) | |
1818 | (if (eqv? #{ftype 24486}# 'local-syntax) | |
25711fa4 AW |
1819 | (values |
1820 | 'local-syntax-form | |
b2208d2e AW |
1821 | #{fval 24487}# |
1822 | #{e 24464}# | |
1823 | #{w 24466}# | |
1824 | #{s 24467}# | |
1825 | #{mod 24469}#) | |
1826 | (if (eqv? #{ftype 24486}# 'begin) | |
25711fa4 AW |
1827 | (values |
1828 | 'begin-form | |
1829 | #f | |
b2208d2e AW |
1830 | #{e 24464}# |
1831 | #{w 24466}# | |
1832 | #{s 24467}# | |
1833 | #{mod 24469}#) | |
1834 | (if (eqv? #{ftype 24486}# 'eval-when) | |
25711fa4 AW |
1835 | (values |
1836 | 'eval-when-form | |
1837 | #f | |
b2208d2e AW |
1838 | #{e 24464}# |
1839 | #{w 24466}# | |
1840 | #{s 24467}# | |
1841 | #{mod 24469}#) | |
1842 | (if (eqv? #{ftype 24486}# 'define) | |
1843 | (let ((#{tmp 24533}# | |
840cf0d1 | 1844 | ($sc-dispatch |
b2208d2e | 1845 | #{e 24464}# |
840cf0d1 | 1846 | '(_ any any)))) |
b2208d2e | 1847 | (if (if #{tmp 24533}# |
840cf0d1 | 1848 | (@apply |
b2208d2e AW |
1849 | (lambda (#{name 24537}# |
1850 | #{val 24538}#) | |
1851 | (if (symbol? #{name 24537}#) | |
46e372ef AW |
1852 | #t |
1853 | (if (if (vector? | |
b2208d2e | 1854 | #{name 24537}#) |
46e372ef | 1855 | (if (= (vector-length |
b2208d2e | 1856 | #{name 24537}#) |
46e372ef AW |
1857 | 4) |
1858 | (eq? (vector-ref | |
b2208d2e | 1859 | #{name 24537}# |
46e372ef AW |
1860 | 0) |
1861 | 'syntax-object) | |
1862 | #f) | |
1863 | #f) | |
1864 | (symbol? | |
1865 | (vector-ref | |
b2208d2e | 1866 | #{name 24537}# |
46e372ef AW |
1867 | 1)) |
1868 | #f))) | |
b2208d2e | 1869 | #{tmp 24533}#) |
840cf0d1 AW |
1870 | #f) |
1871 | (@apply | |
b2208d2e | 1872 | (lambda (#{name 24565}# #{val 24566}#) |
840cf0d1 AW |
1873 | (values |
1874 | 'define-form | |
b2208d2e AW |
1875 | #{name 24565}# |
1876 | #{val 24566}# | |
1877 | #{w 24466}# | |
1878 | #{s 24467}# | |
1879 | #{mod 24469}#)) | |
1880 | #{tmp 24533}#) | |
1881 | (let ((#{tmp 24567}# | |
840cf0d1 | 1882 | ($sc-dispatch |
b2208d2e | 1883 | #{e 24464}# |
840cf0d1 AW |
1884 | '(_ (any . any) |
1885 | any | |
1886 | . | |
1887 | each-any)))) | |
b2208d2e | 1888 | (if (if #{tmp 24567}# |
840cf0d1 | 1889 | (@apply |
b2208d2e AW |
1890 | (lambda (#{name 24571}# |
1891 | #{args 24572}# | |
1892 | #{e1 24573}# | |
1893 | #{e2 24574}#) | |
46e372ef | 1894 | (if (if (symbol? |
b2208d2e | 1895 | #{name 24571}#) |
46e372ef AW |
1896 | #t |
1897 | (if (if (vector? | |
b2208d2e | 1898 | #{name 24571}#) |
46e372ef | 1899 | (if (= (vector-length |
b2208d2e | 1900 | #{name 24571}#) |
46e372ef AW |
1901 | 4) |
1902 | (eq? (vector-ref | |
b2208d2e | 1903 | #{name 24571}# |
46e372ef AW |
1904 | 0) |
1905 | 'syntax-object) | |
1906 | #f) | |
1907 | #f) | |
1908 | (symbol? | |
1909 | (vector-ref | |
b2208d2e | 1910 | #{name 24571}# |
46e372ef AW |
1911 | 1)) |
1912 | #f)) | |
b2208d2e AW |
1913 | (#{valid-bound-ids? 4433}# |
1914 | (#{lambda-var-list 4458}# | |
1915 | #{args 24572}#)) | |
840cf0d1 | 1916 | #f)) |
b2208d2e | 1917 | #{tmp 24567}#) |
840cf0d1 AW |
1918 | #f) |
1919 | (@apply | |
b2208d2e AW |
1920 | (lambda (#{name 25055}# |
1921 | #{args 25056}# | |
1922 | #{e1 25057}# | |
1923 | #{e2 25058}#) | |
840cf0d1 AW |
1924 | (values |
1925 | 'define-form | |
b2208d2e AW |
1926 | (if (if (null? (car #{w 24466}#)) |
1927 | (null? (cdr #{w 24466}#)) | |
46e372ef | 1928 | #f) |
b2208d2e | 1929 | #{name 25055}# |
46e372ef | 1930 | (if (if (vector? |
b2208d2e | 1931 | #{name 25055}#) |
46e372ef | 1932 | (if (= (vector-length |
b2208d2e | 1933 | #{name 25055}#) |
46e372ef AW |
1934 | 4) |
1935 | (eq? (vector-ref | |
b2208d2e | 1936 | #{name 25055}# |
46e372ef AW |
1937 | 0) |
1938 | 'syntax-object) | |
1939 | #f) | |
1940 | #f) | |
b2208d2e | 1941 | (let ((#{expression 25088}# |
46e372ef | 1942 | (vector-ref |
b2208d2e | 1943 | #{name 25055}# |
46e372ef | 1944 | 1)) |
b2208d2e AW |
1945 | (#{wrap 25089}# |
1946 | (let ((#{w2 25099}# | |
46e372ef | 1947 | (vector-ref |
b2208d2e | 1948 | #{name 25055}# |
46e372ef | 1949 | 2))) |
b2208d2e AW |
1950 | (let ((#{m1 25100}# |
1951 | (car #{w 24466}#)) | |
1952 | (#{s1 25101}# | |
1953 | (cdr #{w 24466}#))) | |
1954 | (if (null? #{m1 25100}#) | |
1955 | (if (null? #{s1 25101}#) | |
1956 | #{w2 25099}# | |
1957 | (cons (car #{w2 25099}#) | |
1958 | (let ((#{m2 25118}# | |
1959 | (cdr #{w2 25099}#))) | |
1960 | (if (null? #{m2 25118}#) | |
1961 | #{s1 25101}# | |
46e372ef | 1962 | (append |
b2208d2e AW |
1963 | #{s1 25101}# |
1964 | #{m2 25118}#))))) | |
1965 | (cons (let ((#{m2 25126}# | |
1966 | (car #{w2 25099}#))) | |
1967 | (if (null? #{m2 25126}#) | |
1968 | #{m1 25100}# | |
46e372ef | 1969 | (append |
b2208d2e AW |
1970 | #{m1 25100}# |
1971 | #{m2 25126}#))) | |
1972 | (let ((#{m2 25134}# | |
1973 | (cdr #{w2 25099}#))) | |
1974 | (if (null? #{m2 25134}#) | |
1975 | #{s1 25101}# | |
46e372ef | 1976 | (append |
b2208d2e AW |
1977 | #{s1 25101}# |
1978 | #{m2 25134}#)))))))) | |
1979 | (#{module 25090}# | |
46e372ef | 1980 | (vector-ref |
b2208d2e | 1981 | #{name 25055}# |
46e372ef AW |
1982 | 3))) |
1983 | (vector | |
1984 | 'syntax-object | |
b2208d2e AW |
1985 | #{expression 25088}# |
1986 | #{wrap 25089}# | |
1987 | #{module 25090}#)) | |
1988 | (if (null? #{name 25055}#) | |
1989 | #{name 25055}# | |
46e372ef AW |
1990 | (vector |
1991 | 'syntax-object | |
b2208d2e AW |
1992 | #{name 25055}# |
1993 | #{w 24466}# | |
1994 | #{mod 24469}#)))) | |
1995 | (let ((#{e 25160}# | |
46e372ef AW |
1996 | (cons '#(syntax-object |
1997 | lambda | |
1998 | ((top) | |
1999 | #(ribcage | |
2000 | #(name | |
2001 | args | |
2002 | e1 | |
2003 | e2) | |
2004 | #((top) | |
2005 | (top) | |
2006 | (top) | |
2007 | (top)) | |
b2208d2e AW |
2008 | #("i1952" |
2009 | "i1953" | |
2010 | "i1954" | |
2011 | "i1955")) | |
46e372ef AW |
2012 | #(ribcage |
2013 | () | |
2014 | () | |
2015 | ()) | |
2016 | #(ribcage | |
2017 | () | |
2018 | () | |
2019 | ()) | |
2020 | #(ribcage | |
2021 | #(ftype | |
2022 | fval | |
2023 | fe | |
2024 | fw | |
2025 | fs | |
2026 | fmod) | |
2027 | #((top) | |
2028 | (top) | |
2029 | (top) | |
2030 | (top) | |
2031 | (top) | |
2032 | (top)) | |
b2208d2e AW |
2033 | #("i1905" |
2034 | "i1906" | |
2035 | "i1907" | |
2036 | "i1908" | |
0f9f51a1 | 2037 | "i1909" |
b2208d2e | 2038 | "i1910")) |
46e372ef AW |
2039 | #(ribcage |
2040 | () | |
2041 | () | |
2042 | ()) | |
2043 | #(ribcage | |
2044 | #(first) | |
2045 | #((top)) | |
b2208d2e | 2046 | #("i1897")) |
46e372ef AW |
2047 | #(ribcage |
2048 | () | |
2049 | () | |
2050 | ()) | |
2051 | #(ribcage | |
2052 | () | |
2053 | () | |
2054 | ()) | |
2055 | #(ribcage | |
2056 | () | |
2057 | () | |
2058 | ()) | |
2059 | #(ribcage | |
2060 | #(e | |
2061 | r | |
2062 | w | |
2063 | s | |
2064 | rib | |
2065 | mod | |
2066 | for-car?) | |
2067 | #((top) | |
2068 | (top) | |
2069 | (top) | |
2070 | (top) | |
2071 | (top) | |
2072 | (top) | |
2073 | (top)) | |
b2208d2e AW |
2074 | #("i1876" |
2075 | "i1877" | |
2076 | "i1878" | |
2077 | "i1879" | |
0f9f51a1 AW |
2078 | "i1880" |
2079 | "i1881" | |
b2208d2e | 2080 | "i1882")) |
46e372ef AW |
2081 | #(ribcage |
2082 | (lambda-var-list | |
2083 | gen-var | |
2084 | strip | |
78a47455 | 2085 | expand-lambda-case |
46e372ef | 2086 | lambda*-formals |
78a47455 | 2087 | expand-simple-lambda |
46e372ef AW |
2088 | lambda-formals |
2089 | ellipsis? | |
78a47455 | 2090 | expand-void |
46e372ef | 2091 | eval-local-transformer |
78a47455 AW |
2092 | expand-local-syntax |
2093 | expand-body | |
2094 | expand-macro | |
b2208d2e | 2095 | expand-call |
78a47455 AW |
2096 | expand-expr |
2097 | expand | |
46e372ef | 2098 | syntax-type |
440ac793 | 2099 | parse-when-list |
78a47455 AW |
2100 | expand-install-global |
2101 | expand-top-sequence | |
2102 | expand-sequence | |
46e372ef AW |
2103 | source-wrap |
2104 | wrap | |
2105 | bound-id-member? | |
2106 | distinct-bound-ids? | |
2107 | valid-bound-ids? | |
2108 | bound-id=? | |
2109 | free-id=? | |
0f9f51a1 | 2110 | resolve-identifier |
46e372ef AW |
2111 | id-var-name |
2112 | same-marks? | |
2113 | join-marks | |
2114 | join-wraps | |
2115 | smart-append | |
2116 | make-binding-wrap | |
2117 | extend-ribcage! | |
2118 | make-empty-ribcage | |
2119 | new-mark | |
2120 | anti-mark | |
2121 | the-anti-mark | |
2122 | top-marked? | |
2123 | top-wrap | |
2124 | empty-wrap | |
2125 | set-ribcage-labels! | |
2126 | set-ribcage-marks! | |
2127 | set-ribcage-symnames! | |
2128 | ribcage-labels | |
2129 | ribcage-marks | |
2130 | ribcage-symnames | |
2131 | ribcage? | |
2132 | make-ribcage | |
2133 | gen-labels | |
2134 | gen-label | |
2135 | make-rename | |
2136 | rename-marks | |
2137 | rename-new | |
2138 | rename-old | |
2139 | subst-rename? | |
2140 | wrap-subst | |
2141 | wrap-marks | |
2142 | make-wrap | |
2143 | id-sym-name&marks | |
2144 | id-sym-name | |
2145 | id? | |
2146 | nonsymbol-id? | |
2147 | global-extend | |
46e372ef AW |
2148 | macros-only-env |
2149 | extend-var-env | |
2150 | extend-env | |
2151 | null-env | |
2152 | binding-value | |
2153 | binding-type | |
2154 | make-binding | |
2155 | arg-check | |
2156 | source-annotation | |
2157 | no-source | |
2158 | set-syntax-object-module! | |
2159 | set-syntax-object-wrap! | |
2160 | set-syntax-object-expression! | |
2161 | syntax-object-module | |
2162 | syntax-object-wrap | |
2163 | syntax-object-expression | |
2164 | syntax-object? | |
2165 | make-syntax-object | |
2166 | build-lexical-var | |
2167 | build-letrec | |
2168 | build-named-let | |
2169 | build-let | |
2170 | build-sequence | |
2171 | build-data | |
2172 | build-primref | |
2173 | build-primcall | |
2174 | build-lambda-case | |
2175 | build-case-lambda | |
2176 | build-simple-lambda | |
2177 | build-global-definition | |
2178 | build-global-assignment | |
2179 | build-global-reference | |
2180 | analyze-variable | |
2181 | build-lexical-assignment | |
2182 | build-lexical-reference | |
2183 | build-dynlet | |
2184 | build-conditional | |
2185 | build-call | |
2186 | build-void | |
2187 | maybe-name-value! | |
2188 | decorate-source | |
2189 | get-global-definition-hook | |
2190 | put-global-definition-hook | |
2191 | gensym-hook | |
2192 | local-eval-hook | |
2193 | top-level-eval-hook | |
2194 | fx< | |
2195 | fx= | |
2196 | fx- | |
2197 | fx+ | |
2198 | set-lambda-meta! | |
2199 | lambda-meta | |
2200 | lambda? | |
2201 | make-dynlet | |
2202 | make-letrec | |
2203 | make-let | |
2204 | make-lambda-case | |
2205 | make-lambda | |
2206 | make-seq | |
2207 | make-primcall | |
2208 | make-call | |
2209 | make-conditional | |
2210 | make-toplevel-define | |
2211 | make-toplevel-set | |
2212 | make-toplevel-ref | |
2213 | make-module-set | |
2214 | make-module-ref | |
2215 | make-lexical-set | |
2216 | make-lexical-ref | |
2217 | make-primitive-ref | |
2218 | make-const | |
2219 | make-void) | |
2220 | ((top) | |
2221 | (top) | |
2222 | (top) | |
2223 | (top) | |
2224 | (top) | |
2225 | (top) | |
2226 | (top) | |
2227 | (top) | |
2228 | (top) | |
2229 | (top) | |
2230 | (top) | |
2231 | (top) | |
2232 | (top) | |
2233 | (top) | |
2234 | (top) | |
2235 | (top) | |
2236 | (top) | |
2237 | (top) | |
2238 | (top) | |
2239 | (top) | |
2240 | (top) | |
2241 | (top) | |
2242 | (top) | |
2243 | (top) | |
2244 | (top) | |
2245 | (top) | |
2246 | (top) | |
2247 | (top) | |
2248 | (top) | |
2249 | (top) | |
2250 | (top) | |
2251 | (top) | |
2252 | (top) | |
2253 | (top) | |
2254 | (top) | |
2255 | (top) | |
2256 | (top) | |
2257 | (top) | |
2258 | (top) | |
2259 | (top) | |
2260 | (top) | |
2261 | (top) | |
2262 | (top) | |
2263 | (top) | |
2264 | (top) | |
2265 | (top) | |
2266 | (top) | |
2267 | (top) | |
2268 | (top) | |
2269 | (top) | |
2270 | (top) | |
2271 | (top) | |
2272 | (top) | |
2273 | (top) | |
2274 | (top) | |
2275 | (top) | |
2276 | (top) | |
2277 | (top) | |
2278 | (top) | |
2279 | (top) | |
2280 | (top) | |
2281 | (top) | |
2282 | (top) | |
2283 | (top) | |
2284 | (top) | |
2285 | (top) | |
2286 | (top) | |
2287 | (top) | |
2288 | (top) | |
2289 | (top) | |
2290 | (top) | |
2291 | (top) | |
2292 | (top) | |
2293 | (top) | |
2294 | (top) | |
2295 | (top) | |
2296 | (top) | |
2297 | (top) | |
2298 | (top) | |
2299 | (top) | |
2300 | (top) | |
2301 | (top) | |
2302 | (top) | |
2303 | (top) | |
2304 | (top) | |
2305 | (top) | |
2306 | (top) | |
2307 | (top) | |
2308 | (top) | |
2309 | (top) | |
2310 | (top) | |
2311 | (top) | |
2312 | (top) | |
2313 | (top) | |
2314 | (top) | |
2315 | (top) | |
2316 | (top) | |
2317 | (top) | |
2318 | (top) | |
2319 | (top) | |
2320 | (top) | |
2321 | (top) | |
2322 | (top) | |
2323 | (top) | |
2324 | (top) | |
2325 | (top) | |
2326 | (top) | |
2327 | (top) | |
2328 | (top) | |
2329 | (top) | |
2330 | (top) | |
2331 | (top) | |
2332 | (top) | |
2333 | (top) | |
2334 | (top) | |
2335 | (top) | |
2336 | (top) | |
2337 | (top) | |
2338 | (top) | |
2339 | (top) | |
2340 | (top) | |
2341 | (top) | |
2342 | (top) | |
2343 | (top) | |
2344 | (top) | |
2345 | (top) | |
2346 | (top) | |
2347 | (top) | |
2348 | (top) | |
2349 | (top) | |
2350 | (top) | |
2351 | (top) | |
2352 | (top) | |
2353 | (top) | |
2354 | (top) | |
2355 | (top) | |
2356 | (top) | |
2357 | (top)) | |
2358 | ("i471" | |
2359 | "i469" | |
2360 | "i467" | |
2361 | "i465" | |
2362 | "i463" | |
2363 | "i461" | |
2364 | "i459" | |
2365 | "i457" | |
2366 | "i455" | |
2367 | "i453" | |
2368 | "i451" | |
2369 | "i449" | |
2370 | "i447" | |
2371 | "i445" | |
2372 | "i443" | |
2373 | "i441" | |
2374 | "i439" | |
2375 | "i437" | |
2376 | "i435" | |
2377 | "i433" | |
2378 | "i431" | |
2379 | "i429" | |
2380 | "i427" | |
2381 | "i425" | |
2382 | "i423" | |
2383 | "i421" | |
2384 | "i419" | |
2385 | "i417" | |
2386 | "i415" | |
2387 | "i413" | |
2388 | "i411" | |
2389 | "i409" | |
2390 | "i407" | |
2391 | "i405" | |
2392 | "i403" | |
0f9f51a1 | 2393 | "i401" |
46e372ef | 2394 | "i400" |
0f9f51a1 | 2395 | "i398" |
46e372ef | 2396 | "i395" |
0f9f51a1 | 2397 | "i394" |
46e372ef | 2398 | "i393" |
0f9f51a1 | 2399 | "i391" |
46e372ef AW |
2400 | "i390" |
2401 | "i388" | |
2402 | "i386" | |
2403 | "i384" | |
2404 | "i382" | |
2405 | "i380" | |
2406 | "i378" | |
2407 | "i376" | |
0f9f51a1 | 2408 | "i374" |
46e372ef | 2409 | "i371" |
0f9f51a1 | 2410 | "i369" |
46e372ef AW |
2411 | "i368" |
2412 | "i366" | |
2413 | "i364" | |
2414 | "i362" | |
46e372ef AW |
2415 | "i360" |
2416 | "i359" | |
0f9f51a1 | 2417 | "i358" |
46e372ef | 2418 | "i357" |
0f9f51a1 AW |
2419 | "i355" |
2420 | "i354" | |
46e372ef AW |
2421 | "i351" |
2422 | "i349" | |
2423 | "i347" | |
2424 | "i345" | |
2425 | "i343" | |
2426 | "i341" | |
2427 | "i340" | |
2428 | "i339" | |
2429 | "i337" | |
2430 | "i335" | |
2431 | "i334" | |
2432 | "i331" | |
2433 | "i330" | |
2434 | "i328" | |
2435 | "i326" | |
2436 | "i324" | |
2437 | "i322" | |
2438 | "i320" | |
2439 | "i318" | |
2440 | "i316" | |
2441 | "i314" | |
2442 | "i312" | |
2443 | "i309" | |
2444 | "i307" | |
2445 | "i305" | |
2446 | "i303" | |
2447 | "i301" | |
2448 | "i299" | |
2449 | "i297" | |
2450 | "i295" | |
2451 | "i293" | |
2452 | "i291" | |
2453 | "i289" | |
2454 | "i287" | |
2455 | "i285" | |
2456 | "i283" | |
2457 | "i281" | |
2458 | "i279" | |
2459 | "i277" | |
2460 | "i275" | |
2461 | "i273" | |
2462 | "i271" | |
2463 | "i269" | |
2464 | "i267" | |
2465 | "i265" | |
2466 | "i263" | |
2467 | "i262" | |
2468 | "i259" | |
2469 | "i257" | |
2470 | "i256" | |
2471 | "i255" | |
2472 | "i254" | |
2473 | "i253" | |
2474 | "i251" | |
2475 | "i249" | |
2476 | "i247" | |
2477 | "i244" | |
2478 | "i242" | |
2479 | "i240" | |
2480 | "i238" | |
2481 | "i236" | |
2482 | "i234" | |
2483 | "i232" | |
2484 | "i230" | |
2485 | "i228" | |
2486 | "i226" | |
2487 | "i224" | |
2488 | "i222" | |
2489 | "i220" | |
2490 | "i218" | |
2491 | "i216" | |
2492 | "i214" | |
2493 | "i212" | |
2494 | "i210" | |
2495 | "i208")) | |
2496 | #(ribcage | |
2497 | (define-structure | |
2498 | define-expansion-accessors | |
2499 | define-expansion-constructors) | |
2500 | ((top) | |
2501 | (top) | |
2502 | (top)) | |
2503 | ("i46" | |
2504 | "i45" | |
0f9f51a1 AW |
2505 | "i44")) |
2506 | #(ribcage | |
2507 | () | |
2508 | () | |
2509 | ())) | |
46e372ef AW |
2510 | (hygiene |
2511 | guile)) | |
b2208d2e AW |
2512 | (let ((#{x 25164}# |
2513 | (cons #{args 25056}# | |
2514 | (cons #{e1 25057}# | |
2515 | #{e2 25058}#)))) | |
2516 | (if (if (null? (car #{w 24466}#)) | |
2517 | (null? (cdr #{w 24466}#)) | |
46e372ef | 2518 | #f) |
b2208d2e | 2519 | #{x 25164}# |
46e372ef | 2520 | (if (if (vector? |
b2208d2e | 2521 | #{x 25164}#) |
46e372ef | 2522 | (if (= (vector-length |
b2208d2e | 2523 | #{x 25164}#) |
46e372ef AW |
2524 | 4) |
2525 | (eq? (vector-ref | |
b2208d2e | 2526 | #{x 25164}# |
46e372ef AW |
2527 | 0) |
2528 | 'syntax-object) | |
2529 | #f) | |
2530 | #f) | |
b2208d2e | 2531 | (let ((#{expression 25182}# |
46e372ef | 2532 | (vector-ref |
b2208d2e | 2533 | #{x 25164}# |
46e372ef | 2534 | 1)) |
b2208d2e AW |
2535 | (#{wrap 25183}# |
2536 | (let ((#{w2 25191}# | |
46e372ef | 2537 | (vector-ref |
b2208d2e | 2538 | #{x 25164}# |
46e372ef | 2539 | 2))) |
b2208d2e AW |
2540 | (let ((#{m1 25192}# |
2541 | (car #{w 24466}#)) | |
2542 | (#{s1 25193}# | |
2543 | (cdr #{w 24466}#))) | |
2544 | (if (null? #{m1 25192}#) | |
2545 | (if (null? #{s1 25193}#) | |
2546 | #{w2 25191}# | |
2547 | (cons (car #{w2 25191}#) | |
2548 | (let ((#{m2 25208}# | |
2549 | (cdr #{w2 25191}#))) | |
2550 | (if (null? #{m2 25208}#) | |
2551 | #{s1 25193}# | |
46e372ef | 2552 | (append |
b2208d2e AW |
2553 | #{s1 25193}# |
2554 | #{m2 25208}#))))) | |
2555 | (cons (let ((#{m2 25216}# | |
2556 | (car #{w2 25191}#))) | |
2557 | (if (null? #{m2 25216}#) | |
2558 | #{m1 25192}# | |
46e372ef | 2559 | (append |
b2208d2e AW |
2560 | #{m1 25192}# |
2561 | #{m2 25216}#))) | |
2562 | (let ((#{m2 25224}# | |
2563 | (cdr #{w2 25191}#))) | |
2564 | (if (null? #{m2 25224}#) | |
2565 | #{s1 25193}# | |
46e372ef | 2566 | (append |
b2208d2e AW |
2567 | #{s1 25193}# |
2568 | #{m2 25224}#)))))))) | |
2569 | (#{module 25184}# | |
46e372ef | 2570 | (vector-ref |
b2208d2e | 2571 | #{x 25164}# |
46e372ef AW |
2572 | 3))) |
2573 | (vector | |
2574 | 'syntax-object | |
b2208d2e AW |
2575 | #{expression 25182}# |
2576 | #{wrap 25183}# | |
2577 | #{module 25184}#)) | |
2578 | (if (null? #{x 25164}#) | |
2579 | #{x 25164}# | |
46e372ef AW |
2580 | (vector |
2581 | 'syntax-object | |
b2208d2e AW |
2582 | #{x 25164}# |
2583 | #{w 24466}# | |
2584 | #{mod 24469}#)))))))) | |
46e372ef | 2585 | (begin |
b2208d2e AW |
2586 | (if (if (pair? #{e 25160}#) |
2587 | #{s 24467}# | |
46e372ef AW |
2588 | #f) |
2589 | (set-source-properties! | |
b2208d2e AW |
2590 | #{e 25160}# |
2591 | #{s 24467}#)) | |
2592 | #{e 25160}#)) | |
840cf0d1 | 2593 | '(()) |
b2208d2e AW |
2594 | #{s 24467}# |
2595 | #{mod 24469}#)) | |
2596 | #{tmp 24567}#) | |
2597 | (let ((#{tmp 25243}# | |
840cf0d1 | 2598 | ($sc-dispatch |
b2208d2e | 2599 | #{e 24464}# |
840cf0d1 | 2600 | '(_ any)))) |
b2208d2e | 2601 | (if (if #{tmp 25243}# |
840cf0d1 | 2602 | (@apply |
b2208d2e | 2603 | (lambda (#{name 25247}#) |
46e372ef | 2604 | (if (symbol? |
b2208d2e | 2605 | #{name 25247}#) |
46e372ef AW |
2606 | #t |
2607 | (if (if (vector? | |
b2208d2e | 2608 | #{name 25247}#) |
46e372ef | 2609 | (if (= (vector-length |
b2208d2e | 2610 | #{name 25247}#) |
46e372ef AW |
2611 | 4) |
2612 | (eq? (vector-ref | |
b2208d2e | 2613 | #{name 25247}# |
46e372ef AW |
2614 | 0) |
2615 | 'syntax-object) | |
2616 | #f) | |
2617 | #f) | |
2618 | (symbol? | |
2619 | (vector-ref | |
b2208d2e | 2620 | #{name 25247}# |
46e372ef AW |
2621 | 1)) |
2622 | #f))) | |
b2208d2e | 2623 | #{tmp 25243}#) |
840cf0d1 | 2624 | #f) |
25711fa4 | 2625 | (@apply |
b2208d2e | 2626 | (lambda (#{name 25274}#) |
840cf0d1 AW |
2627 | (values |
2628 | 'define-form | |
b2208d2e AW |
2629 | (if (if (null? (car #{w 24466}#)) |
2630 | (null? (cdr #{w 24466}#)) | |
46e372ef | 2631 | #f) |
b2208d2e | 2632 | #{name 25274}# |
46e372ef | 2633 | (if (if (vector? |
b2208d2e | 2634 | #{name 25274}#) |
46e372ef | 2635 | (if (= (vector-length |
b2208d2e | 2636 | #{name 25274}#) |
46e372ef AW |
2637 | 4) |
2638 | (eq? (vector-ref | |
b2208d2e | 2639 | #{name 25274}# |
46e372ef AW |
2640 | 0) |
2641 | 'syntax-object) | |
2642 | #f) | |
2643 | #f) | |
b2208d2e | 2644 | (let ((#{expression 25304}# |
46e372ef | 2645 | (vector-ref |
b2208d2e | 2646 | #{name 25274}# |
46e372ef | 2647 | 1)) |
b2208d2e AW |
2648 | (#{wrap 25305}# |
2649 | (let ((#{w2 25315}# | |
46e372ef | 2650 | (vector-ref |
b2208d2e | 2651 | #{name 25274}# |
46e372ef | 2652 | 2))) |
b2208d2e AW |
2653 | (let ((#{m1 25316}# |
2654 | (car #{w 24466}#)) | |
2655 | (#{s1 25317}# | |
2656 | (cdr #{w 24466}#))) | |
2657 | (if (null? #{m1 25316}#) | |
2658 | (if (null? #{s1 25317}#) | |
2659 | #{w2 25315}# | |
2660 | (cons (car #{w2 25315}#) | |
2661 | (let ((#{m2 25334}# | |
2662 | (cdr #{w2 25315}#))) | |
2663 | (if (null? #{m2 25334}#) | |
2664 | #{s1 25317}# | |
46e372ef | 2665 | (append |
b2208d2e AW |
2666 | #{s1 25317}# |
2667 | #{m2 25334}#))))) | |
2668 | (cons (let ((#{m2 25342}# | |
2669 | (car #{w2 25315}#))) | |
2670 | (if (null? #{m2 25342}#) | |
2671 | #{m1 25316}# | |
46e372ef | 2672 | (append |
b2208d2e AW |
2673 | #{m1 25316}# |
2674 | #{m2 25342}#))) | |
2675 | (let ((#{m2 25350}# | |
2676 | (cdr #{w2 25315}#))) | |
2677 | (if (null? #{m2 25350}#) | |
2678 | #{s1 25317}# | |
46e372ef | 2679 | (append |
b2208d2e AW |
2680 | #{s1 25317}# |
2681 | #{m2 25350}#)))))))) | |
2682 | (#{module 25306}# | |
46e372ef | 2683 | (vector-ref |
b2208d2e | 2684 | #{name 25274}# |
46e372ef AW |
2685 | 3))) |
2686 | (vector | |
2687 | 'syntax-object | |
b2208d2e AW |
2688 | #{expression 25304}# |
2689 | #{wrap 25305}# | |
2690 | #{module 25306}#)) | |
2691 | (if (null? #{name 25274}#) | |
2692 | #{name 25274}# | |
46e372ef AW |
2693 | (vector |
2694 | 'syntax-object | |
b2208d2e AW |
2695 | #{name 25274}# |
2696 | #{w 24466}# | |
2697 | #{mod 24469}#)))) | |
840cf0d1 AW |
2698 | '(#(syntax-object |
2699 | if | |
2700 | ((top) | |
2701 | #(ribcage | |
2702 | #(name) | |
2703 | #((top)) | |
b2208d2e | 2704 | #("i1965")) |
840cf0d1 AW |
2705 | #(ribcage () () ()) |
2706 | #(ribcage () () ()) | |
2707 | #(ribcage | |
2708 | #(ftype | |
2709 | fval | |
2710 | fe | |
2711 | fw | |
2712 | fs | |
2713 | fmod) | |
2714 | #((top) | |
2715 | (top) | |
2716 | (top) | |
2717 | (top) | |
2718 | (top) | |
2719 | (top)) | |
b2208d2e AW |
2720 | #("i1905" |
2721 | "i1906" | |
2722 | "i1907" | |
2723 | "i1908" | |
0f9f51a1 | 2724 | "i1909" |
b2208d2e | 2725 | "i1910")) |
840cf0d1 AW |
2726 | #(ribcage () () ()) |
2727 | #(ribcage | |
2728 | #(first) | |
2729 | #((top)) | |
b2208d2e | 2730 | #("i1897")) |
840cf0d1 AW |
2731 | #(ribcage () () ()) |
2732 | #(ribcage () () ()) | |
2733 | #(ribcage () () ()) | |
2734 | #(ribcage | |
2735 | #(e | |
2736 | r | |
2737 | w | |
2738 | s | |
2739 | rib | |
2740 | mod | |
2741 | for-car?) | |
2742 | #((top) | |
2743 | (top) | |
2744 | (top) | |
2745 | (top) | |
2746 | (top) | |
2747 | (top) | |
2748 | (top)) | |
b2208d2e AW |
2749 | #("i1876" |
2750 | "i1877" | |
2751 | "i1878" | |
2752 | "i1879" | |
0f9f51a1 AW |
2753 | "i1880" |
2754 | "i1881" | |
b2208d2e | 2755 | "i1882")) |
840cf0d1 AW |
2756 | #(ribcage |
2757 | (lambda-var-list | |
2758 | gen-var | |
2759 | strip | |
78a47455 | 2760 | expand-lambda-case |
840cf0d1 | 2761 | lambda*-formals |
78a47455 | 2762 | expand-simple-lambda |
840cf0d1 AW |
2763 | lambda-formals |
2764 | ellipsis? | |
78a47455 | 2765 | expand-void |
840cf0d1 | 2766 | eval-local-transformer |
78a47455 AW |
2767 | expand-local-syntax |
2768 | expand-body | |
2769 | expand-macro | |
b2208d2e | 2770 | expand-call |
78a47455 AW |
2771 | expand-expr |
2772 | expand | |
840cf0d1 | 2773 | syntax-type |
440ac793 | 2774 | parse-when-list |
78a47455 AW |
2775 | expand-install-global |
2776 | expand-top-sequence | |
2777 | expand-sequence | |
840cf0d1 AW |
2778 | source-wrap |
2779 | wrap | |
2780 | bound-id-member? | |
2781 | distinct-bound-ids? | |
2782 | valid-bound-ids? | |
2783 | bound-id=? | |
2784 | free-id=? | |
0f9f51a1 | 2785 | resolve-identifier |
840cf0d1 AW |
2786 | id-var-name |
2787 | same-marks? | |
2788 | join-marks | |
2789 | join-wraps | |
2790 | smart-append | |
2791 | make-binding-wrap | |
2792 | extend-ribcage! | |
2793 | make-empty-ribcage | |
2794 | new-mark | |
2795 | anti-mark | |
2796 | the-anti-mark | |
2797 | top-marked? | |
2798 | top-wrap | |
2799 | empty-wrap | |
2800 | set-ribcage-labels! | |
2801 | set-ribcage-marks! | |
2802 | set-ribcage-symnames! | |
2803 | ribcage-labels | |
2804 | ribcage-marks | |
2805 | ribcage-symnames | |
2806 | ribcage? | |
2807 | make-ribcage | |
2808 | gen-labels | |
2809 | gen-label | |
2810 | make-rename | |
2811 | rename-marks | |
2812 | rename-new | |
2813 | rename-old | |
2814 | subst-rename? | |
2815 | wrap-subst | |
2816 | wrap-marks | |
2817 | make-wrap | |
2818 | id-sym-name&marks | |
2819 | id-sym-name | |
2820 | id? | |
2821 | nonsymbol-id? | |
2822 | global-extend | |
840cf0d1 AW |
2823 | macros-only-env |
2824 | extend-var-env | |
2825 | extend-env | |
2826 | null-env | |
2827 | binding-value | |
2828 | binding-type | |
2829 | make-binding | |
2830 | arg-check | |
2831 | source-annotation | |
2832 | no-source | |
2833 | set-syntax-object-module! | |
2834 | set-syntax-object-wrap! | |
2835 | set-syntax-object-expression! | |
2836 | syntax-object-module | |
2837 | syntax-object-wrap | |
2838 | syntax-object-expression | |
2839 | syntax-object? | |
2840 | make-syntax-object | |
2841 | build-lexical-var | |
2842 | build-letrec | |
2843 | build-named-let | |
2844 | build-let | |
2845 | build-sequence | |
2846 | build-data | |
2847 | build-primref | |
2848 | build-primcall | |
2849 | build-lambda-case | |
2850 | build-case-lambda | |
2851 | build-simple-lambda | |
2852 | build-global-definition | |
2853 | build-global-assignment | |
2854 | build-global-reference | |
2855 | analyze-variable | |
2856 | build-lexical-assignment | |
2857 | build-lexical-reference | |
2858 | build-dynlet | |
2859 | build-conditional | |
2860 | build-call | |
2861 | build-void | |
2862 | maybe-name-value! | |
2863 | decorate-source | |
2864 | get-global-definition-hook | |
2865 | put-global-definition-hook | |
2866 | gensym-hook | |
2867 | local-eval-hook | |
2868 | top-level-eval-hook | |
2869 | fx< | |
2870 | fx= | |
2871 | fx- | |
2872 | fx+ | |
2873 | set-lambda-meta! | |
2874 | lambda-meta | |
2875 | lambda? | |
2876 | make-dynlet | |
2877 | make-letrec | |
2878 | make-let | |
2879 | make-lambda-case | |
2880 | make-lambda | |
2881 | make-seq | |
2882 | make-primcall | |
2883 | make-call | |
2884 | make-conditional | |
2885 | make-toplevel-define | |
2886 | make-toplevel-set | |
2887 | make-toplevel-ref | |
2888 | make-module-set | |
2889 | make-module-ref | |
2890 | make-lexical-set | |
2891 | make-lexical-ref | |
2892 | make-primitive-ref | |
2893 | make-const | |
2894 | make-void) | |
2895 | ((top) | |
2896 | (top) | |
2897 | (top) | |
2898 | (top) | |
2899 | (top) | |
2900 | (top) | |
2901 | (top) | |
2902 | (top) | |
2903 | (top) | |
2904 | (top) | |
2905 | (top) | |
2906 | (top) | |
2907 | (top) | |
2908 | (top) | |
2909 | (top) | |
2910 | (top) | |
2911 | (top) | |
2912 | (top) | |
2913 | (top) | |
2914 | (top) | |
2915 | (top) | |
2916 | (top) | |
2917 | (top) | |
2918 | (top) | |
2919 | (top) | |
2920 | (top) | |
2921 | (top) | |
2922 | (top) | |
2923 | (top) | |
2924 | (top) | |
2925 | (top) | |
2926 | (top) | |
2927 | (top) | |
2928 | (top) | |
2929 | (top) | |
2930 | (top) | |
2931 | (top) | |
2932 | (top) | |
2933 | (top) | |
2934 | (top) | |
2935 | (top) | |
2936 | (top) | |
2937 | (top) | |
2938 | (top) | |
2939 | (top) | |
2940 | (top) | |
2941 | (top) | |
2942 | (top) | |
2943 | (top) | |
2944 | (top) | |
2945 | (top) | |
2946 | (top) | |
2947 | (top) | |
2948 | (top) | |
2949 | (top) | |
2950 | (top) | |
2951 | (top) | |
2952 | (top) | |
2953 | (top) | |
2954 | (top) | |
2955 | (top) | |
2956 | (top) | |
2957 | (top) | |
2958 | (top) | |
2959 | (top) | |
2960 | (top) | |
2961 | (top) | |
2962 | (top) | |
2963 | (top) | |
2964 | (top) | |
2965 | (top) | |
2966 | (top) | |
2967 | (top) | |
2968 | (top) | |
2969 | (top) | |
2970 | (top) | |
2971 | (top) | |
2972 | (top) | |
2973 | (top) | |
2974 | (top) | |
2975 | (top) | |
2976 | (top) | |
2977 | (top) | |
2978 | (top) | |
2979 | (top) | |
2980 | (top) | |
2981 | (top) | |
2982 | (top) | |
2983 | (top) | |
2984 | (top) | |
2985 | (top) | |
2986 | (top) | |
2987 | (top) | |
2988 | (top) | |
2989 | (top) | |
2990 | (top) | |
2991 | (top) | |
2992 | (top) | |
2993 | (top) | |
2994 | (top) | |
2995 | (top) | |
2996 | (top) | |
2997 | (top) | |
2998 | (top) | |
2999 | (top) | |
3000 | (top) | |
3001 | (top) | |
3002 | (top) | |
3003 | (top) | |
3004 | (top) | |
3005 | (top) | |
3006 | (top) | |
3007 | (top) | |
3008 | (top) | |
3009 | (top) | |
3010 | (top) | |
3011 | (top) | |
3012 | (top) | |
3013 | (top) | |
3014 | (top) | |
3015 | (top) | |
3016 | (top) | |
3017 | (top) | |
3018 | (top) | |
3019 | (top) | |
3020 | (top) | |
3021 | (top) | |
3022 | (top) | |
3023 | (top) | |
3024 | (top) | |
3025 | (top) | |
3026 | (top) | |
3027 | (top) | |
3028 | (top) | |
3029 | (top) | |
3030 | (top) | |
3031 | (top) | |
3032 | (top)) | |
46e372ef AW |
3033 | ("i471" |
3034 | "i469" | |
3035 | "i467" | |
3036 | "i465" | |
3037 | "i463" | |
3038 | "i461" | |
3039 | "i459" | |
3040 | "i457" | |
3041 | "i455" | |
3042 | "i453" | |
3043 | "i451" | |
3044 | "i449" | |
3045 | "i447" | |
3046 | "i445" | |
3047 | "i443" | |
3048 | "i441" | |
3049 | "i439" | |
3050 | "i437" | |
3051 | "i435" | |
3052 | "i433" | |
3053 | "i431" | |
3054 | "i429" | |
3055 | "i427" | |
3056 | "i425" | |
3057 | "i423" | |
3058 | "i421" | |
3059 | "i419" | |
3060 | "i417" | |
3061 | "i415" | |
3062 | "i413" | |
3063 | "i411" | |
3064 | "i409" | |
3065 | "i407" | |
3066 | "i405" | |
3067 | "i403" | |
0f9f51a1 | 3068 | "i401" |
46e372ef | 3069 | "i400" |
0f9f51a1 | 3070 | "i398" |
840cf0d1 | 3071 | "i395" |
0f9f51a1 | 3072 | "i394" |
46e372ef | 3073 | "i393" |
0f9f51a1 | 3074 | "i391" |
46e372ef AW |
3075 | "i390" |
3076 | "i388" | |
3077 | "i386" | |
3078 | "i384" | |
3079 | "i382" | |
3080 | "i380" | |
3081 | "i378" | |
3082 | "i376" | |
0f9f51a1 | 3083 | "i374" |
46e372ef | 3084 | "i371" |
0f9f51a1 | 3085 | "i369" |
46e372ef AW |
3086 | "i368" |
3087 | "i366" | |
3088 | "i364" | |
3089 | "i362" | |
840cf0d1 AW |
3090 | "i360" |
3091 | "i359" | |
0f9f51a1 | 3092 | "i358" |
46e372ef | 3093 | "i357" |
0f9f51a1 AW |
3094 | "i355" |
3095 | "i354" | |
46e372ef AW |
3096 | "i351" |
3097 | "i349" | |
3098 | "i347" | |
3099 | "i345" | |
3100 | "i343" | |
3101 | "i341" | |
840cf0d1 AW |
3102 | "i340" |
3103 | "i339" | |
46e372ef AW |
3104 | "i337" |
3105 | "i335" | |
840cf0d1 | 3106 | "i334" |
46e372ef | 3107 | "i331" |
840cf0d1 | 3108 | "i330" |
46e372ef AW |
3109 | "i328" |
3110 | "i326" | |
3111 | "i324" | |
3112 | "i322" | |
3113 | "i320" | |
3114 | "i318" | |
3115 | "i316" | |
3116 | "i314" | |
3117 | "i312" | |
3118 | "i309" | |
3119 | "i307" | |
3120 | "i305" | |
3121 | "i303" | |
3122 | "i301" | |
3123 | "i299" | |
3124 | "i297" | |
3125 | "i295" | |
3126 | "i293" | |
3127 | "i291" | |
3128 | "i289" | |
3129 | "i287" | |
3130 | "i285" | |
3131 | "i283" | |
3132 | "i281" | |
3133 | "i279" | |
3134 | "i277" | |
3135 | "i275" | |
3136 | "i273" | |
3137 | "i271" | |
3138 | "i269" | |
3139 | "i267" | |
3140 | "i265" | |
3141 | "i263" | |
840cf0d1 | 3142 | "i262" |
46e372ef AW |
3143 | "i259" |
3144 | "i257" | |
840cf0d1 AW |
3145 | "i256" |
3146 | "i255" | |
3147 | "i254" | |
3148 | "i253" | |
46e372ef AW |
3149 | "i251" |
3150 | "i249" | |
3151 | "i247" | |
3152 | "i244" | |
3153 | "i242" | |
3154 | "i240" | |
3155 | "i238" | |
3156 | "i236" | |
3157 | "i234" | |
3158 | "i232" | |
3159 | "i230" | |
3160 | "i228" | |
3161 | "i226" | |
3162 | "i224" | |
3163 | "i222" | |
3164 | "i220" | |
3165 | "i218" | |
3166 | "i216" | |
3167 | "i214" | |
3168 | "i212" | |
3169 | "i210" | |
3170 | "i208")) | |
840cf0d1 AW |
3171 | #(ribcage |
3172 | (define-structure | |
3173 | define-expansion-accessors | |
3174 | define-expansion-constructors) | |
3175 | ((top) (top) (top)) | |
46e372ef AW |
3176 | ("i46" |
3177 | "i45" | |
0f9f51a1 AW |
3178 | "i44")) |
3179 | #(ribcage () () ())) | |
840cf0d1 AW |
3180 | (hygiene guile)) |
3181 | #(syntax-object | |
3182 | #f | |
3183 | ((top) | |
3184 | #(ribcage | |
3185 | #(name) | |
3186 | #((top)) | |
b2208d2e | 3187 | #("i1965")) |
840cf0d1 AW |
3188 | #(ribcage () () ()) |
3189 | #(ribcage () () ()) | |
3190 | #(ribcage | |
3191 | #(ftype | |
3192 | fval | |
3193 | fe | |
3194 | fw | |
3195 | fs | |
3196 | fmod) | |
3197 | #((top) | |
3198 | (top) | |
3199 | (top) | |
3200 | (top) | |
3201 | (top) | |
3202 | (top)) | |
b2208d2e AW |
3203 | #("i1905" |
3204 | "i1906" | |
3205 | "i1907" | |
3206 | "i1908" | |
0f9f51a1 | 3207 | "i1909" |
b2208d2e | 3208 | "i1910")) |
840cf0d1 AW |
3209 | #(ribcage () () ()) |
3210 | #(ribcage | |
3211 | #(first) | |
3212 | #((top)) | |
b2208d2e | 3213 | #("i1897")) |
840cf0d1 AW |
3214 | #(ribcage () () ()) |
3215 | #(ribcage () () ()) | |
3216 | #(ribcage () () ()) | |
3217 | #(ribcage | |
3218 | #(e | |
3219 | r | |
3220 | w | |
3221 | s | |
3222 | rib | |
3223 | mod | |
3224 | for-car?) | |
3225 | #((top) | |
3226 | (top) | |
3227 | (top) | |
3228 | (top) | |
3229 | (top) | |
3230 | (top) | |
3231 | (top)) | |
b2208d2e AW |
3232 | #("i1876" |
3233 | "i1877" | |
3234 | "i1878" | |
3235 | "i1879" | |
0f9f51a1 AW |
3236 | "i1880" |
3237 | "i1881" | |
b2208d2e | 3238 | "i1882")) |
840cf0d1 AW |
3239 | #(ribcage |
3240 | (lambda-var-list | |
3241 | gen-var | |
3242 | strip | |
78a47455 | 3243 | expand-lambda-case |
840cf0d1 | 3244 | lambda*-formals |
78a47455 | 3245 | expand-simple-lambda |
840cf0d1 AW |
3246 | lambda-formals |
3247 | ellipsis? | |
78a47455 | 3248 | expand-void |
840cf0d1 | 3249 | eval-local-transformer |
78a47455 AW |
3250 | expand-local-syntax |
3251 | expand-body | |
3252 | expand-macro | |
b2208d2e | 3253 | expand-call |
78a47455 AW |
3254 | expand-expr |
3255 | expand | |
840cf0d1 | 3256 | syntax-type |
440ac793 | 3257 | parse-when-list |
78a47455 AW |
3258 | expand-install-global |
3259 | expand-top-sequence | |
3260 | expand-sequence | |
840cf0d1 AW |
3261 | source-wrap |
3262 | wrap | |
3263 | bound-id-member? | |
3264 | distinct-bound-ids? | |
3265 | valid-bound-ids? | |
3266 | bound-id=? | |
3267 | free-id=? | |
0f9f51a1 | 3268 | resolve-identifier |
840cf0d1 AW |
3269 | id-var-name |
3270 | same-marks? | |
3271 | join-marks | |
3272 | join-wraps | |
3273 | smart-append | |
3274 | make-binding-wrap | |
3275 | extend-ribcage! | |
3276 | make-empty-ribcage | |
3277 | new-mark | |
3278 | anti-mark | |
3279 | the-anti-mark | |
3280 | top-marked? | |
3281 | top-wrap | |
3282 | empty-wrap | |
3283 | set-ribcage-labels! | |
3284 | set-ribcage-marks! | |
3285 | set-ribcage-symnames! | |
3286 | ribcage-labels | |
3287 | ribcage-marks | |
3288 | ribcage-symnames | |
3289 | ribcage? | |
3290 | make-ribcage | |
3291 | gen-labels | |
3292 | gen-label | |
3293 | make-rename | |
3294 | rename-marks | |
3295 | rename-new | |
3296 | rename-old | |
3297 | subst-rename? | |
3298 | wrap-subst | |
3299 | wrap-marks | |
3300 | make-wrap | |
3301 | id-sym-name&marks | |
3302 | id-sym-name | |
3303 | id? | |
3304 | nonsymbol-id? | |
3305 | global-extend | |
840cf0d1 AW |
3306 | macros-only-env |
3307 | extend-var-env | |
3308 | extend-env | |
3309 | null-env | |
3310 | binding-value | |
3311 | binding-type | |
3312 | make-binding | |
3313 | arg-check | |
3314 | source-annotation | |
3315 | no-source | |
3316 | set-syntax-object-module! | |
3317 | set-syntax-object-wrap! | |
3318 | set-syntax-object-expression! | |
3319 | syntax-object-module | |
3320 | syntax-object-wrap | |
3321 | syntax-object-expression | |
3322 | syntax-object? | |
3323 | make-syntax-object | |
3324 | build-lexical-var | |
3325 | build-letrec | |
3326 | build-named-let | |
3327 | build-let | |
3328 | build-sequence | |
3329 | build-data | |
3330 | build-primref | |
3331 | build-primcall | |
3332 | build-lambda-case | |
3333 | build-case-lambda | |
3334 | build-simple-lambda | |
3335 | build-global-definition | |
3336 | build-global-assignment | |
3337 | build-global-reference | |
3338 | analyze-variable | |
3339 | build-lexical-assignment | |
3340 | build-lexical-reference | |
3341 | build-dynlet | |
3342 | build-conditional | |
3343 | build-call | |
3344 | build-void | |
3345 | maybe-name-value! | |
3346 | decorate-source | |
3347 | get-global-definition-hook | |
3348 | put-global-definition-hook | |
3349 | gensym-hook | |
3350 | local-eval-hook | |
3351 | top-level-eval-hook | |
3352 | fx< | |
3353 | fx= | |
3354 | fx- | |
3355 | fx+ | |
3356 | set-lambda-meta! | |
3357 | lambda-meta | |
3358 | lambda? | |
3359 | make-dynlet | |
3360 | make-letrec | |
3361 | make-let | |
3362 | make-lambda-case | |
3363 | make-lambda | |
3364 | make-seq | |
3365 | make-primcall | |
3366 | make-call | |
3367 | make-conditional | |
3368 | make-toplevel-define | |
3369 | make-toplevel-set | |
3370 | make-toplevel-ref | |
3371 | make-module-set | |
3372 | make-module-ref | |
3373 | make-lexical-set | |
3374 | make-lexical-ref | |
3375 | make-primitive-ref | |
3376 | make-const | |
3377 | make-void) | |
3378 | ((top) | |
3379 | (top) | |
3380 | (top) | |
3381 | (top) | |
3382 | (top) | |
3383 | (top) | |
3384 | (top) | |
3385 | (top) | |
3386 | (top) | |
3387 | (top) | |
3388 | (top) | |
3389 | (top) | |
3390 | (top) | |
3391 | (top) | |
3392 | (top) | |
3393 | (top) | |
3394 | (top) | |
3395 | (top) | |
3396 | (top) | |
3397 | (top) | |
3398 | (top) | |
3399 | (top) | |
3400 | (top) | |
3401 | (top) | |
3402 | (top) | |
3403 | (top) | |
3404 | (top) | |
3405 | (top) | |
3406 | (top) | |
3407 | (top) | |
3408 | (top) | |
3409 | (top) | |
3410 | (top) | |
3411 | (top) | |
3412 | (top) | |
3413 | (top) | |
3414 | (top) | |
3415 | (top) | |
3416 | (top) | |
3417 | (top) | |
3418 | (top) | |
3419 | (top) | |
3420 | (top) | |
3421 | (top) | |
3422 | (top) | |
3423 | (top) | |
3424 | (top) | |
3425 | (top) | |
3426 | (top) | |
3427 | (top) | |
3428 | (top) | |
3429 | (top) | |
3430 | (top) | |
3431 | (top) | |
3432 | (top) | |
3433 | (top) | |
3434 | (top) | |
3435 | (top) | |
3436 | (top) | |
3437 | (top) | |
3438 | (top) | |
3439 | (top) | |
3440 | (top) | |
3441 | (top) | |
3442 | (top) | |
3443 | (top) | |
3444 | (top) | |
3445 | (top) | |
3446 | (top) | |
3447 | (top) | |
3448 | (top) | |
3449 | (top) | |
3450 | (top) | |
3451 | (top) | |
3452 | (top) | |
3453 | (top) | |
3454 | (top) | |
3455 | (top) | |
3456 | (top) | |
3457 | (top) | |
3458 | (top) | |
3459 | (top) | |
3460 | (top) | |
3461 | (top) | |
3462 | (top) | |
3463 | (top) | |
3464 | (top) | |
3465 | (top) | |
3466 | (top) | |
3467 | (top) | |
3468 | (top) | |
3469 | (top) | |
3470 | (top) | |
3471 | (top) | |
3472 | (top) | |
3473 | (top) | |
3474 | (top) | |
3475 | (top) | |
3476 | (top) | |
3477 | (top) | |
3478 | (top) | |
3479 | (top) | |
3480 | (top) | |
3481 | (top) | |
3482 | (top) | |
3483 | (top) | |
3484 | (top) | |
3485 | (top) | |
3486 | (top) | |
3487 | (top) | |
3488 | (top) | |
3489 | (top) | |
3490 | (top) | |
3491 | (top) | |
3492 | (top) | |
3493 | (top) | |
3494 | (top) | |
3495 | (top) | |
3496 | (top) | |
3497 | (top) | |
3498 | (top) | |
3499 | (top) | |
3500 | (top) | |
3501 | (top) | |
3502 | (top) | |
3503 | (top) | |
3504 | (top) | |
3505 | (top) | |
3506 | (top) | |
3507 | (top) | |
3508 | (top) | |
3509 | (top) | |
3510 | (top) | |
3511 | (top) | |
3512 | (top) | |
3513 | (top) | |
3514 | (top) | |
3515 | (top)) | |
46e372ef AW |
3516 | ("i471" |
3517 | "i469" | |
3518 | "i467" | |
3519 | "i465" | |
3520 | "i463" | |
3521 | "i461" | |
3522 | "i459" | |
3523 | "i457" | |
3524 | "i455" | |
3525 | "i453" | |
3526 | "i451" | |
3527 | "i449" | |
3528 | "i447" | |
3529 | "i445" | |
3530 | "i443" | |
3531 | "i441" | |
3532 | "i439" | |
3533 | "i437" | |
3534 | "i435" | |
3535 | "i433" | |
3536 | "i431" | |
3537 | "i429" | |
3538 | "i427" | |
3539 | "i425" | |
3540 | "i423" | |
3541 | "i421" | |
3542 | "i419" | |
3543 | "i417" | |
3544 | "i415" | |
3545 | "i413" | |
3546 | "i411" | |
3547 | "i409" | |
3548 | "i407" | |
3549 | "i405" | |
3550 | "i403" | |
0f9f51a1 | 3551 | "i401" |
46e372ef | 3552 | "i400" |
0f9f51a1 | 3553 | "i398" |
840cf0d1 | 3554 | "i395" |
0f9f51a1 | 3555 | "i394" |
46e372ef | 3556 | "i393" |
0f9f51a1 | 3557 | "i391" |
46e372ef AW |
3558 | "i390" |
3559 | "i388" | |
3560 | "i386" | |
3561 | "i384" | |
3562 | "i382" | |
3563 | "i380" | |
3564 | "i378" | |
3565 | "i376" | |
0f9f51a1 | 3566 | "i374" |
46e372ef | 3567 | "i371" |
0f9f51a1 | 3568 | "i369" |
46e372ef AW |
3569 | "i368" |
3570 | "i366" | |
3571 | "i364" | |
3572 | "i362" | |
840cf0d1 AW |
3573 | "i360" |
3574 | "i359" | |
0f9f51a1 | 3575 | "i358" |
46e372ef | 3576 | "i357" |
0f9f51a1 AW |
3577 | "i355" |
3578 | "i354" | |
46e372ef AW |
3579 | "i351" |
3580 | "i349" | |
3581 | "i347" | |
3582 | "i345" | |
3583 | "i343" | |
3584 | "i341" | |
840cf0d1 AW |
3585 | "i340" |
3586 | "i339" | |
46e372ef AW |
3587 | "i337" |
3588 | "i335" | |
840cf0d1 | 3589 | "i334" |
46e372ef | 3590 | "i331" |
840cf0d1 | 3591 | "i330" |
46e372ef AW |
3592 | "i328" |
3593 | "i326" | |
3594 | "i324" | |
3595 | "i322" | |
3596 | "i320" | |
3597 | "i318" | |
3598 | "i316" | |
3599 | "i314" | |
3600 | "i312" | |
3601 | "i309" | |
3602 | "i307" | |
3603 | "i305" | |
3604 | "i303" | |
3605 | "i301" | |
3606 | "i299" | |
3607 | "i297" | |
3608 | "i295" | |
3609 | "i293" | |
3610 | "i291" | |
3611 | "i289" | |
3612 | "i287" | |
3613 | "i285" | |
3614 | "i283" | |
3615 | "i281" | |
3616 | "i279" | |
3617 | "i277" | |
3618 | "i275" | |
3619 | "i273" | |
3620 | "i271" | |
3621 | "i269" | |
3622 | "i267" | |
3623 | "i265" | |
3624 | "i263" | |
840cf0d1 | 3625 | "i262" |
46e372ef AW |
3626 | "i259" |
3627 | "i257" | |
840cf0d1 AW |
3628 | "i256" |
3629 | "i255" | |
3630 | "i254" | |
3631 | "i253" | |
46e372ef AW |
3632 | "i251" |
3633 | "i249" | |
3634 | "i247" | |
3635 | "i244" | |
3636 | "i242" | |
3637 | "i240" | |
3638 | "i238" | |
3639 | "i236" | |
3640 | "i234" | |
3641 | "i232" | |
3642 | "i230" | |
3643 | "i228" | |
3644 | "i226" | |
3645 | "i224" | |
3646 | "i222" | |
3647 | "i220" | |
3648 | "i218" | |
3649 | "i216" | |
3650 | "i214" | |
3651 | "i212" | |
3652 | "i210" | |
3653 | "i208")) | |
840cf0d1 AW |
3654 | #(ribcage |
3655 | (define-structure | |
3656 | define-expansion-accessors | |
3657 | define-expansion-constructors) | |
3658 | ((top) (top) (top)) | |
46e372ef AW |
3659 | ("i46" |
3660 | "i45" | |
0f9f51a1 AW |
3661 | "i44")) |
3662 | #(ribcage () () ())) | |
840cf0d1 AW |
3663 | (hygiene guile)) |
3664 | #(syntax-object | |
3665 | #f | |
3666 | ((top) | |
3667 | #(ribcage | |
3668 | #(name) | |
3669 | #((top)) | |
b2208d2e | 3670 | #("i1965")) |
840cf0d1 AW |
3671 | #(ribcage () () ()) |
3672 | #(ribcage () () ()) | |
3673 | #(ribcage | |
3674 | #(ftype | |
3675 | fval | |
3676 | fe | |
3677 | fw | |
3678 | fs | |
3679 | fmod) | |
3680 | #((top) | |
3681 | (top) | |
3682 | (top) | |
3683 | (top) | |
3684 | (top) | |
3685 | (top)) | |
b2208d2e AW |
3686 | #("i1905" |
3687 | "i1906" | |
3688 | "i1907" | |
3689 | "i1908" | |
0f9f51a1 | 3690 | "i1909" |
b2208d2e | 3691 | "i1910")) |
840cf0d1 AW |
3692 | #(ribcage () () ()) |
3693 | #(ribcage | |
3694 | #(first) | |
3695 | #((top)) | |
b2208d2e | 3696 | #("i1897")) |
840cf0d1 AW |
3697 | #(ribcage () () ()) |
3698 | #(ribcage () () ()) | |
3699 | #(ribcage () () ()) | |
3700 | #(ribcage | |
3701 | #(e | |
3702 | r | |
3703 | w | |
3704 | s | |
3705 | rib | |
3706 | mod | |
3707 | for-car?) | |
3708 | #((top) | |
3709 | (top) | |
3710 | (top) | |
3711 | (top) | |
3712 | (top) | |
3713 | (top) | |
3714 | (top)) | |
b2208d2e AW |
3715 | #("i1876" |
3716 | "i1877" | |
3717 | "i1878" | |
3718 | "i1879" | |
0f9f51a1 AW |
3719 | "i1880" |
3720 | "i1881" | |
b2208d2e | 3721 | "i1882")) |
840cf0d1 AW |
3722 | #(ribcage |
3723 | (lambda-var-list | |
3724 | gen-var | |
3725 | strip | |
78a47455 | 3726 | expand-lambda-case |
840cf0d1 | 3727 | lambda*-formals |
78a47455 | 3728 | expand-simple-lambda |
840cf0d1 AW |
3729 | lambda-formals |
3730 | ellipsis? | |
78a47455 | 3731 | expand-void |
840cf0d1 | 3732 | eval-local-transformer |
78a47455 AW |
3733 | expand-local-syntax |
3734 | expand-body | |
3735 | expand-macro | |
b2208d2e | 3736 | expand-call |
78a47455 AW |
3737 | expand-expr |
3738 | expand | |
840cf0d1 | 3739 | syntax-type |
440ac793 | 3740 | parse-when-list |
78a47455 AW |
3741 | expand-install-global |
3742 | expand-top-sequence | |
3743 | expand-sequence | |
840cf0d1 AW |
3744 | source-wrap |
3745 | wrap | |
3746 | bound-id-member? | |
3747 | distinct-bound-ids? | |
3748 | valid-bound-ids? | |
3749 | bound-id=? | |
3750 | free-id=? | |
0f9f51a1 | 3751 | resolve-identifier |
840cf0d1 AW |
3752 | id-var-name |
3753 | same-marks? | |
3754 | join-marks | |
3755 | join-wraps | |
3756 | smart-append | |
3757 | make-binding-wrap | |
3758 | extend-ribcage! | |
3759 | make-empty-ribcage | |
3760 | new-mark | |
3761 | anti-mark | |
3762 | the-anti-mark | |
3763 | top-marked? | |
3764 | top-wrap | |
3765 | empty-wrap | |
3766 | set-ribcage-labels! | |
3767 | set-ribcage-marks! | |
3768 | set-ribcage-symnames! | |
3769 | ribcage-labels | |
3770 | ribcage-marks | |
3771 | ribcage-symnames | |
3772 | ribcage? | |
3773 | make-ribcage | |
3774 | gen-labels | |
3775 | gen-label | |
3776 | make-rename | |
3777 | rename-marks | |
3778 | rename-new | |
3779 | rename-old | |
3780 | subst-rename? | |
3781 | wrap-subst | |
3782 | wrap-marks | |
3783 | make-wrap | |
3784 | id-sym-name&marks | |
3785 | id-sym-name | |
3786 | id? | |
3787 | nonsymbol-id? | |
3788 | global-extend | |
840cf0d1 AW |
3789 | macros-only-env |
3790 | extend-var-env | |
3791 | extend-env | |
3792 | null-env | |
3793 | binding-value | |
3794 | binding-type | |
3795 | make-binding | |
3796 | arg-check | |
3797 | source-annotation | |
3798 | no-source | |
3799 | set-syntax-object-module! | |
3800 | set-syntax-object-wrap! | |
3801 | set-syntax-object-expression! | |
3802 | syntax-object-module | |
3803 | syntax-object-wrap | |
3804 | syntax-object-expression | |
3805 | syntax-object? | |
3806 | make-syntax-object | |
3807 | build-lexical-var | |
3808 | build-letrec | |
3809 | build-named-let | |
3810 | build-let | |
3811 | build-sequence | |
3812 | build-data | |
3813 | build-primref | |
3814 | build-primcall | |
3815 | build-lambda-case | |
3816 | build-case-lambda | |
3817 | build-simple-lambda | |
3818 | build-global-definition | |
3819 | build-global-assignment | |
3820 | build-global-reference | |
3821 | analyze-variable | |
3822 | build-lexical-assignment | |
3823 | build-lexical-reference | |
3824 | build-dynlet | |
3825 | build-conditional | |
3826 | build-call | |
3827 | build-void | |
3828 | maybe-name-value! | |
3829 | decorate-source | |
3830 | get-global-definition-hook | |
3831 | put-global-definition-hook | |
3832 | gensym-hook | |
3833 | local-eval-hook | |
3834 | top-level-eval-hook | |
3835 | fx< | |
3836 | fx= | |
3837 | fx- | |
3838 | fx+ | |
3839 | set-lambda-meta! | |
3840 | lambda-meta | |
3841 | lambda? | |
3842 | make-dynlet | |
3843 | make-letrec | |
3844 | make-let | |
3845 | make-lambda-case | |
3846 | make-lambda | |
3847 | make-seq | |
3848 | make-primcall | |
3849 | make-call | |
3850 | make-conditional | |
3851 | make-toplevel-define | |
3852 | make-toplevel-set | |
3853 | make-toplevel-ref | |
3854 | make-module-set | |
3855 | make-module-ref | |
3856 | make-lexical-set | |
3857 | make-lexical-ref | |
3858 | make-primitive-ref | |
3859 | make-const | |
3860 | make-void) | |
3861 | ((top) | |
3862 | (top) | |
3863 | (top) | |
3864 | (top) | |
3865 | (top) | |
3866 | (top) | |
3867 | (top) | |
3868 | (top) | |
3869 | (top) | |
3870 | (top) | |
3871 | (top) | |
3872 | (top) | |
3873 | (top) | |
3874 | (top) | |
3875 | (top) | |
3876 | (top) | |
3877 | (top) | |
3878 | (top) | |
3879 | (top) | |
3880 | (top) | |
3881 | (top) | |
3882 | (top) | |
3883 | (top) | |
3884 | (top) | |
3885 | (top) | |
3886 | (top) | |
3887 | (top) | |
3888 | (top) | |
3889 | (top) | |
3890 | (top) | |
3891 | (top) | |
3892 | (top) | |
3893 | (top) | |
3894 | (top) | |
3895 | (top) | |
3896 | (top) | |
3897 | (top) | |
3898 | (top) | |
3899 | (top) | |
3900 | (top) | |
3901 | (top) | |
3902 | (top) | |
3903 | (top) | |
3904 | (top) | |
3905 | (top) | |
3906 | (top) | |
3907 | (top) | |
3908 | (top) | |
3909 | (top) | |
3910 | (top) | |
3911 | (top) | |
3912 | (top) | |
3913 | (top) | |
3914 | (top) | |
3915 | (top) | |
3916 | (top) | |
3917 | (top) | |
3918 | (top) | |
3919 | (top) | |
3920 | (top) | |
3921 | (top) | |
3922 | (top) | |
3923 | (top) | |
3924 | (top) | |
3925 | (top) | |
3926 | (top) | |
3927 | (top) | |
3928 | (top) | |
3929 | (top) | |
3930 | (top) | |
3931 | (top) | |
3932 | (top) | |
3933 | (top) | |
3934 | (top) | |
3935 | (top) | |
3936 | (top) | |
3937 | (top) | |
3938 | (top) | |
3939 | (top) | |
3940 | (top) | |
3941 | (top) | |
3942 | (top) | |
3943 | (top) | |
3944 | (top) | |
3945 | (top) | |
3946 | (top) | |
3947 | (top) | |
3948 | (top) | |
3949 | (top) | |
3950 | (top) | |
3951 | (top) | |
3952 | (top) | |
3953 | (top) | |
3954 | (top) | |
3955 | (top) | |
3956 | (top) | |
3957 | (top) | |
3958 | (top) | |
3959 | (top) | |
3960 | (top) | |
3961 | (top) | |
3962 | (top) | |
3963 | (top) | |
3964 | (top) | |
3965 | (top) | |
3966 | (top) | |
3967 | (top) | |
3968 | (top) | |
3969 | (top) | |
3970 | (top) | |
3971 | (top) | |
3972 | (top) | |
3973 | (top) | |
3974 | (top) | |
3975 | (top) | |
3976 | (top) | |
3977 | (top) | |
3978 | (top) | |
3979 | (top) | |
3980 | (top) | |
3981 | (top) | |
3982 | (top) | |
3983 | (top) | |
3984 | (top) | |
3985 | (top) | |
3986 | (top) | |
3987 | (top) | |
3988 | (top) | |
3989 | (top) | |
3990 | (top) | |
3991 | (top) | |
3992 | (top) | |
3993 | (top) | |
3994 | (top) | |
3995 | (top) | |
3996 | (top) | |
3997 | (top) | |
3998 | (top)) | |
46e372ef AW |
3999 | ("i471" |
4000 | "i469" | |
4001 | "i467" | |
4002 | "i465" | |
4003 | "i463" | |
4004 | "i461" | |
4005 | "i459" | |
4006 | "i457" | |
4007 | "i455" | |
4008 | "i453" | |
4009 | "i451" | |
4010 | "i449" | |
4011 | "i447" | |
4012 | "i445" | |
4013 | "i443" | |
4014 | "i441" | |
4015 | "i439" | |
4016 | "i437" | |
4017 | "i435" | |
4018 | "i433" | |
4019 | "i431" | |
4020 | "i429" | |
4021 | "i427" | |
4022 | "i425" | |
4023 | "i423" | |
4024 | "i421" | |
4025 | "i419" | |
4026 | "i417" | |
4027 | "i415" | |
4028 | "i413" | |
4029 | "i411" | |
4030 | "i409" | |
4031 | "i407" | |
4032 | "i405" | |
4033 | "i403" | |
0f9f51a1 | 4034 | "i401" |
46e372ef | 4035 | "i400" |
0f9f51a1 | 4036 | "i398" |
840cf0d1 | 4037 | "i395" |
0f9f51a1 | 4038 | "i394" |
46e372ef | 4039 | "i393" |
0f9f51a1 | 4040 | "i391" |
46e372ef AW |
4041 | "i390" |
4042 | "i388" | |
4043 | "i386" | |
4044 | "i384" | |
4045 | "i382" | |
4046 | "i380" | |
4047 | "i378" | |
4048 | "i376" | |
0f9f51a1 | 4049 | "i374" |
46e372ef | 4050 | "i371" |
0f9f51a1 | 4051 | "i369" |
46e372ef AW |
4052 | "i368" |
4053 | "i366" | |
4054 | "i364" | |
4055 | "i362" | |
840cf0d1 AW |
4056 | "i360" |
4057 | "i359" | |
0f9f51a1 | 4058 | "i358" |
46e372ef | 4059 | "i357" |
0f9f51a1 AW |
4060 | "i355" |
4061 | "i354" | |
46e372ef AW |
4062 | "i351" |
4063 | "i349" | |
4064 | "i347" | |
4065 | "i345" | |
4066 | "i343" | |
4067 | "i341" | |
840cf0d1 AW |
4068 | "i340" |
4069 | "i339" | |
46e372ef AW |
4070 | "i337" |
4071 | "i335" | |
840cf0d1 | 4072 | "i334" |
46e372ef | 4073 | "i331" |
840cf0d1 | 4074 | "i330" |
46e372ef AW |
4075 | "i328" |
4076 | "i326" | |
4077 | "i324" | |
4078 | "i322" | |
4079 | "i320" | |
4080 | "i318" | |
4081 | "i316" | |
4082 | "i314" | |
4083 | "i312" | |
4084 | "i309" | |
4085 | "i307" | |
4086 | "i305" | |
4087 | "i303" | |
4088 | "i301" | |
4089 | "i299" | |
4090 | "i297" | |
4091 | "i295" | |
4092 | "i293" | |
4093 | "i291" | |
4094 | "i289" | |
4095 | "i287" | |
4096 | "i285" | |
4097 | "i283" | |
4098 | "i281" | |
4099 | "i279" | |
4100 | "i277" | |
4101 | "i275" | |
4102 | "i273" | |
4103 | "i271" | |
4104 | "i269" | |
4105 | "i267" | |
4106 | "i265" | |
4107 | "i263" | |
840cf0d1 | 4108 | "i262" |
46e372ef AW |
4109 | "i259" |
4110 | "i257" | |
840cf0d1 AW |
4111 | "i256" |
4112 | "i255" | |
4113 | "i254" | |
4114 | "i253" | |
46e372ef AW |
4115 | "i251" |
4116 | "i249" | |
4117 | "i247" | |
4118 | "i244" | |
4119 | "i242" | |
4120 | "i240" | |
4121 | "i238" | |
4122 | "i236" | |
4123 | "i234" | |
4124 | "i232" | |
4125 | "i230" | |
4126 | "i228" | |
4127 | "i226" | |
4128 | "i224" | |
4129 | "i222" | |
4130 | "i220" | |
4131 | "i218" | |
4132 | "i216" | |
4133 | "i214" | |
4134 | "i212" | |
4135 | "i210" | |
4136 | "i208")) | |
840cf0d1 AW |
4137 | #(ribcage |
4138 | (define-structure | |
4139 | define-expansion-accessors | |
4140 | define-expansion-constructors) | |
4141 | ((top) (top) (top)) | |
46e372ef AW |
4142 | ("i46" |
4143 | "i45" | |
0f9f51a1 AW |
4144 | "i44")) |
4145 | #(ribcage () () ())) | |
840cf0d1 AW |
4146 | (hygiene guile))) |
4147 | '(()) | |
b2208d2e AW |
4148 | #{s 24467}# |
4149 | #{mod 24469}#)) | |
4150 | #{tmp 25243}#) | |
840cf0d1 AW |
4151 | (syntax-violation |
4152 | #f | |
4153 | "source expression failed to match any pattern" | |
b2208d2e AW |
4154 | #{e 24464}#))))))) |
4155 | (if (eqv? #{ftype 24486}# 'define-syntax) | |
4156 | (let ((#{tmp 25389}# | |
840cf0d1 | 4157 | ($sc-dispatch |
b2208d2e | 4158 | #{e 24464}# |
840cf0d1 | 4159 | '(_ any any)))) |
b2208d2e | 4160 | (if (if #{tmp 25389}# |
840cf0d1 | 4161 | (@apply |
b2208d2e AW |
4162 | (lambda (#{name 25393}# |
4163 | #{val 25394}#) | |
4164 | (if (symbol? #{name 25393}#) | |
46e372ef AW |
4165 | #t |
4166 | (if (if (vector? | |
b2208d2e | 4167 | #{name 25393}#) |
46e372ef | 4168 | (if (= (vector-length |
b2208d2e | 4169 | #{name 25393}#) |
46e372ef AW |
4170 | 4) |
4171 | (eq? (vector-ref | |
b2208d2e | 4172 | #{name 25393}# |
46e372ef AW |
4173 | 0) |
4174 | 'syntax-object) | |
4175 | #f) | |
4176 | #f) | |
4177 | (symbol? | |
4178 | (vector-ref | |
b2208d2e | 4179 | #{name 25393}# |
46e372ef AW |
4180 | 1)) |
4181 | #f))) | |
b2208d2e | 4182 | #{tmp 25389}#) |
840cf0d1 AW |
4183 | #f) |
4184 | (@apply | |
b2208d2e AW |
4185 | (lambda (#{name 25421}# |
4186 | #{val 25422}#) | |
840cf0d1 AW |
4187 | (values |
4188 | 'define-syntax-form | |
b2208d2e AW |
4189 | #{name 25421}# |
4190 | #{val 25422}# | |
4191 | #{w 24466}# | |
4192 | #{s 24467}# | |
4193 | #{mod 24469}#)) | |
4194 | #{tmp 25389}#) | |
840cf0d1 AW |
4195 | (syntax-violation |
4196 | #f | |
4197 | "source expression failed to match any pattern" | |
b2208d2e AW |
4198 | #{e 24464}#))) |
4199 | (if (eqv? #{ftype 24486}# | |
0f9f51a1 | 4200 | 'define-syntax-parameter) |
b2208d2e | 4201 | (let ((#{tmp 25433}# |
0f9f51a1 | 4202 | ($sc-dispatch |
b2208d2e | 4203 | #{e 24464}# |
0f9f51a1 | 4204 | '(_ any any)))) |
b2208d2e | 4205 | (if (if #{tmp 25433}# |
0f9f51a1 | 4206 | (@apply |
b2208d2e AW |
4207 | (lambda (#{name 25437}# |
4208 | #{val 25438}#) | |
4209 | (if (symbol? #{name 25437}#) | |
0f9f51a1 AW |
4210 | #t |
4211 | (if (if (vector? | |
b2208d2e | 4212 | #{name 25437}#) |
0f9f51a1 | 4213 | (if (= (vector-length |
b2208d2e | 4214 | #{name 25437}#) |
0f9f51a1 AW |
4215 | 4) |
4216 | (eq? (vector-ref | |
b2208d2e | 4217 | #{name 25437}# |
0f9f51a1 AW |
4218 | 0) |
4219 | 'syntax-object) | |
4220 | #f) | |
4221 | #f) | |
4222 | (symbol? | |
4223 | (vector-ref | |
b2208d2e | 4224 | #{name 25437}# |
0f9f51a1 AW |
4225 | 1)) |
4226 | #f))) | |
b2208d2e | 4227 | #{tmp 25433}#) |
0f9f51a1 AW |
4228 | #f) |
4229 | (@apply | |
b2208d2e AW |
4230 | (lambda (#{name 25465}# |
4231 | #{val 25466}#) | |
0f9f51a1 AW |
4232 | (values |
4233 | 'define-syntax-parameter-form | |
b2208d2e AW |
4234 | #{name 25465}# |
4235 | #{val 25466}# | |
4236 | #{w 24466}# | |
4237 | #{s 24467}# | |
4238 | #{mod 24469}#)) | |
4239 | #{tmp 25433}#) | |
0f9f51a1 AW |
4240 | (syntax-violation |
4241 | #f | |
4242 | "source expression failed to match any pattern" | |
b2208d2e | 4243 | #{e 24464}#))) |
0f9f51a1 AW |
4244 | (values |
4245 | 'call | |
4246 | #f | |
b2208d2e AW |
4247 | #{e 24464}# |
4248 | #{w 24466}# | |
4249 | #{s 24467}# | |
4250 | #{mod 24469}#))))))))))))))) | |
4251 | (if (if (vector? #{e 24464}#) | |
4252 | (if (= (vector-length #{e 24464}#) 4) | |
4253 | (eq? (vector-ref #{e 24464}# 0) 'syntax-object) | |
46e372ef AW |
4254 | #f) |
4255 | #f) | |
b2208d2e AW |
4256 | (#{syntax-type 4442}# |
4257 | (vector-ref #{e 24464}# 1) | |
4258 | #{r 24465}# | |
4259 | (let ((#{w2 25491}# (vector-ref #{e 24464}# 2))) | |
4260 | (let ((#{m1 25492}# (car #{w 24466}#)) | |
4261 | (#{s1 25493}# (cdr #{w 24466}#))) | |
4262 | (if (null? #{m1 25492}#) | |
4263 | (if (null? #{s1 25493}#) | |
4264 | #{w2 25491}# | |
4265 | (cons (car #{w2 25491}#) | |
4266 | (let ((#{m2 25504}# (cdr #{w2 25491}#))) | |
4267 | (if (null? #{m2 25504}#) | |
4268 | #{s1 25493}# | |
4269 | (append #{s1 25493}# #{m2 25504}#))))) | |
4270 | (cons (let ((#{m2 25512}# (car #{w2 25491}#))) | |
4271 | (if (null? #{m2 25512}#) | |
4272 | #{m1 25492}# | |
4273 | (append #{m1 25492}# #{m2 25512}#))) | |
4274 | (let ((#{m2 25520}# (cdr #{w2 25491}#))) | |
4275 | (if (null? #{m2 25520}#) | |
4276 | #{s1 25493}# | |
4277 | (append #{s1 25493}# #{m2 25520}#))))))) | |
4278 | (let ((#{t 25525}# | |
4279 | (#{source-annotation 4404}# #{e 24464}#))) | |
4280 | (if #{t 25525}# #{t 25525}# #{s 24467}#)) | |
4281 | #{rib 24468}# | |
4282 | (let ((#{t 25823}# (vector-ref #{e 24464}# 3))) | |
4283 | (if #{t 25823}# #{t 25823}# #{mod 24469}#)) | |
4284 | #{for-car? 24470}#) | |
4285 | (if (self-evaluating? #{e 24464}#) | |
840cf0d1 AW |
4286 | (values |
4287 | 'constant | |
4288 | #f | |
b2208d2e AW |
4289 | #{e 24464}# |
4290 | #{w 24466}# | |
4291 | #{s 24467}# | |
4292 | #{mod 24469}#) | |
840cf0d1 AW |
4293 | (values |
4294 | 'other | |
4295 | #f | |
b2208d2e AW |
4296 | #{e 24464}# |
4297 | #{w 24466}# | |
4298 | #{s 24467}# | |
4299 | #{mod 24469}#))))))) | |
4300 | (#{expand 4443}# | |
4301 | (lambda (#{e 25832}# | |
4302 | #{r 25833}# | |
4303 | #{w 25834}# | |
4304 | #{mod 25835}#) | |
840cf0d1 AW |
4305 | (call-with-values |
4306 | (lambda () | |
b2208d2e AW |
4307 | (#{syntax-type 4442}# |
4308 | #{e 25832}# | |
4309 | #{r 25833}# | |
4310 | #{w 25834}# | |
4311 | (#{source-annotation 4404}# #{e 25832}#) | |
840cf0d1 | 4312 | #f |
b2208d2e | 4313 | #{mod 25835}# |
840cf0d1 | 4314 | #f)) |
b2208d2e AW |
4315 | (lambda (#{type 26039}# |
4316 | #{value 26040}# | |
4317 | #{e 26041}# | |
4318 | #{w 26042}# | |
4319 | #{s 26043}# | |
4320 | #{mod 26044}#) | |
4321 | (#{expand-expr 4444}# | |
4322 | #{type 26039}# | |
4323 | #{value 26040}# | |
4324 | #{e 26041}# | |
4325 | #{r 25833}# | |
4326 | #{w 26042}# | |
4327 | #{s 26043}# | |
4328 | #{mod 26044}#))))) | |
4329 | (#{expand-expr 4444}# | |
4330 | (lambda (#{type 26047}# | |
4331 | #{value 26048}# | |
4332 | #{e 26049}# | |
4333 | #{r 26050}# | |
4334 | #{w 26051}# | |
4335 | #{s 26052}# | |
4336 | #{mod 26053}#) | |
4337 | (if (eqv? #{type 26047}# 'lexical) | |
46e372ef AW |
4338 | (make-struct/no-tail |
4339 | (vector-ref %expanded-vtables 3) | |
b2208d2e AW |
4340 | #{s 26052}# |
4341 | #{e 26049}# | |
4342 | #{value 26048}#) | |
4343 | (if (if (eqv? #{type 26047}# 'core) | |
46e372ef | 4344 | #t |
b2208d2e AW |
4345 | (eqv? #{type 26047}# 'core-form)) |
4346 | (#{value 26048}# | |
4347 | #{e 26049}# | |
4348 | #{r 26050}# | |
4349 | #{w 26051}# | |
4350 | #{s 26052}# | |
4351 | #{mod 26053}#) | |
4352 | (if (eqv? #{type 26047}# 'module-ref) | |
840cf0d1 AW |
4353 | (call-with-values |
4354 | (lambda () | |
b2208d2e AW |
4355 | (#{value 26048}# |
4356 | #{e 26049}# | |
4357 | #{r 26050}# | |
4358 | #{w 26051}#)) | |
4359 | (lambda (#{e 26079}# | |
4360 | #{r 26080}# | |
4361 | #{w 26081}# | |
4362 | #{s 26082}# | |
4363 | #{mod 26083}#) | |
4364 | (#{expand 4443}# | |
4365 | #{e 26079}# | |
4366 | #{r 26080}# | |
4367 | #{w 26081}# | |
4368 | #{mod 26083}#))) | |
4369 | (if (eqv? #{type 26047}# 'lexical-call) | |
4370 | (#{expand-call 4445}# | |
4371 | (let ((#{id 26264}# (car #{e 26049}#))) | |
4372 | (#{build-lexical-reference 4380}# | |
840cf0d1 | 4373 | 'fun |
b2208d2e AW |
4374 | (#{source-annotation 4404}# #{id 26264}#) |
4375 | (if (if (vector? #{id 26264}#) | |
4376 | (if (= (vector-length #{id 26264}#) 4) | |
4377 | (eq? (vector-ref #{id 26264}# 0) 'syntax-object) | |
46e372ef AW |
4378 | #f) |
4379 | #f) | |
b2208d2e AW |
4380 | (syntax->datum #{id 26264}#) |
4381 | #{id 26264}#) | |
4382 | #{value 26048}#)) | |
4383 | #{e 26049}# | |
4384 | #{r 26050}# | |
4385 | #{w 26051}# | |
4386 | #{s 26052}# | |
4387 | #{mod 26053}#) | |
4388 | (if (eqv? #{type 26047}# 'global-call) | |
4389 | (#{expand-call 4445}# | |
4390 | (#{build-global-reference 4383}# | |
4391 | (#{source-annotation 4404}# (car #{e 26049}#)) | |
4392 | (if (if (vector? #{value 26048}#) | |
4393 | (if (= (vector-length #{value 26048}#) 4) | |
4394 | (eq? (vector-ref #{value 26048}# 0) | |
46e372ef AW |
4395 | 'syntax-object) |
4396 | #f) | |
4397 | #f) | |
b2208d2e AW |
4398 | (vector-ref #{value 26048}# 1) |
4399 | #{value 26048}#) | |
4400 | (if (if (vector? #{value 26048}#) | |
4401 | (if (= (vector-length #{value 26048}#) 4) | |
4402 | (eq? (vector-ref #{value 26048}# 0) | |
46e372ef AW |
4403 | 'syntax-object) |
4404 | #f) | |
4405 | #f) | |
b2208d2e AW |
4406 | (vector-ref #{value 26048}# 3) |
4407 | #{mod 26053}#)) | |
4408 | #{e 26049}# | |
4409 | #{r 26050}# | |
4410 | #{w 26051}# | |
4411 | #{s 26052}# | |
4412 | #{mod 26053}#) | |
4413 | (if (eqv? #{type 26047}# 'constant) | |
4414 | (let ((#{exp 26986}# | |
4415 | (#{strip 4456}# | |
4416 | (let ((#{x 26999}# | |
46e372ef | 4417 | (begin |
b2208d2e AW |
4418 | (if (if (pair? #{e 26049}#) |
4419 | #{s 26052}# | |
46e372ef AW |
4420 | #f) |
4421 | (set-source-properties! | |
b2208d2e AW |
4422 | #{e 26049}# |
4423 | #{s 26052}#)) | |
4424 | #{e 26049}#))) | |
4425 | (if (if (null? (car #{w 26051}#)) | |
4426 | (null? (cdr #{w 26051}#)) | |
46e372ef | 4427 | #f) |
b2208d2e AW |
4428 | #{x 26999}# |
4429 | (if (if (vector? #{x 26999}#) | |
4430 | (if (= (vector-length #{x 26999}#) 4) | |
4431 | (eq? (vector-ref #{x 26999}# 0) | |
46e372ef AW |
4432 | 'syntax-object) |
4433 | #f) | |
4434 | #f) | |
b2208d2e AW |
4435 | (let ((#{expression 27031}# |
4436 | (vector-ref #{x 26999}# 1)) | |
4437 | (#{wrap 27032}# | |
4438 | (let ((#{w2 27040}# | |
4439 | (vector-ref #{x 26999}# 2))) | |
4440 | (let ((#{m1 27041}# | |
4441 | (car #{w 26051}#)) | |
4442 | (#{s1 27042}# | |
4443 | (cdr #{w 26051}#))) | |
4444 | (if (null? #{m1 27041}#) | |
4445 | (if (null? #{s1 27042}#) | |
4446 | #{w2 27040}# | |
4447 | (cons (car #{w2 27040}#) | |
4448 | (let ((#{m2 27057}# | |
4449 | (cdr #{w2 27040}#))) | |
4450 | (if (null? #{m2 27057}#) | |
4451 | #{s1 27042}# | |
46e372ef | 4452 | (append |
b2208d2e AW |
4453 | #{s1 27042}# |
4454 | #{m2 27057}#))))) | |
4455 | (cons (let ((#{m2 27065}# | |
4456 | (car #{w2 27040}#))) | |
4457 | (if (null? #{m2 27065}#) | |
4458 | #{m1 27041}# | |
46e372ef | 4459 | (append |
b2208d2e AW |
4460 | #{m1 27041}# |
4461 | #{m2 27065}#))) | |
4462 | (let ((#{m2 27073}# | |
4463 | (cdr #{w2 27040}#))) | |
4464 | (if (null? #{m2 27073}#) | |
4465 | #{s1 27042}# | |
46e372ef | 4466 | (append |
b2208d2e AW |
4467 | #{s1 27042}# |
4468 | #{m2 27073}#)))))))) | |
4469 | (#{module 27033}# | |
4470 | (vector-ref #{x 26999}# 3))) | |
46e372ef AW |
4471 | (vector |
4472 | 'syntax-object | |
b2208d2e AW |
4473 | #{expression 27031}# |
4474 | #{wrap 27032}# | |
4475 | #{module 27033}#)) | |
4476 | (if (null? #{x 26999}#) | |
4477 | #{x 26999}# | |
46e372ef AW |
4478 | (vector |
4479 | 'syntax-object | |
b2208d2e AW |
4480 | #{x 26999}# |
4481 | #{w 26051}# | |
4482 | #{mod 26053}#))))) | |
46e372ef AW |
4483 | '(())))) |
4484 | (make-struct/no-tail | |
4485 | (vector-ref %expanded-vtables 1) | |
b2208d2e AW |
4486 | #{s 26052}# |
4487 | #{exp 26986}#)) | |
4488 | (if (eqv? #{type 26047}# 'global) | |
4489 | (#{analyze-variable 4382}# | |
4490 | #{mod 26053}# | |
4491 | #{value 26048}# | |
4492 | (lambda (#{mod 27098}# #{var 27099}# #{public? 27100}#) | |
46e372ef AW |
4493 | (make-struct/no-tail |
4494 | (vector-ref %expanded-vtables 5) | |
b2208d2e AW |
4495 | #{s 26052}# |
4496 | #{mod 27098}# | |
4497 | #{var 27099}# | |
4498 | #{public? 27100}#)) | |
4499 | (lambda (#{var 27108}#) | |
46e372ef AW |
4500 | (make-struct/no-tail |
4501 | (vector-ref %expanded-vtables 7) | |
b2208d2e AW |
4502 | #{s 26052}# |
4503 | #{var 27108}#))) | |
4504 | (if (eqv? #{type 26047}# 'call) | |
4505 | (#{expand-call 4445}# | |
4506 | (#{expand 4443}# | |
4507 | (car #{e 26049}#) | |
4508 | #{r 26050}# | |
4509 | #{w 26051}# | |
4510 | #{mod 26053}#) | |
4511 | #{e 26049}# | |
4512 | #{r 26050}# | |
4513 | #{w 26051}# | |
4514 | #{s 26052}# | |
4515 | #{mod 26053}#) | |
4516 | (if (eqv? #{type 26047}# 'begin-form) | |
4517 | (let ((#{tmp 27286}# | |
840cf0d1 | 4518 | ($sc-dispatch |
b2208d2e | 4519 | #{e 26049}# |
840cf0d1 | 4520 | '(_ any . each-any)))) |
b2208d2e | 4521 | (if #{tmp 27286}# |
840cf0d1 | 4522 | (@apply |
b2208d2e AW |
4523 | (lambda (#{e1 27290}# #{e2 27291}#) |
4524 | (#{expand-sequence 4438}# | |
4525 | (cons #{e1 27290}# #{e2 27291}#) | |
4526 | #{r 26050}# | |
4527 | #{w 26051}# | |
4528 | #{s 26052}# | |
4529 | #{mod 26053}#)) | |
4530 | #{tmp 27286}#) | |
840cf0d1 AW |
4531 | (syntax-violation |
4532 | #f | |
4533 | "source expression failed to match any pattern" | |
b2208d2e AW |
4534 | #{e 26049}#))) |
4535 | (if (eqv? #{type 26047}# 'local-syntax-form) | |
4536 | (#{expand-local-syntax 4448}# | |
4537 | #{value 26048}# | |
4538 | #{e 26049}# | |
4539 | #{r 26050}# | |
4540 | #{w 26051}# | |
4541 | #{s 26052}# | |
4542 | #{mod 26053}# | |
4543 | #{expand-sequence 4438}#) | |
4544 | (if (eqv? #{type 26047}# 'eval-when-form) | |
4545 | (let ((#{tmp 27471}# | |
840cf0d1 | 4546 | ($sc-dispatch |
b2208d2e | 4547 | #{e 26049}# |
840cf0d1 | 4548 | '(_ each-any any . each-any)))) |
b2208d2e | 4549 | (if #{tmp 27471}# |
840cf0d1 | 4550 | (@apply |
b2208d2e AW |
4551 | (lambda (#{x 27475}# |
4552 | #{e1 27476}# | |
4553 | #{e2 27477}#) | |
4554 | (let ((#{when-list 27478}# | |
4555 | (#{parse-when-list 4441}# | |
4556 | #{e 26049}# | |
4557 | #{x 27475}#))) | |
4558 | (if (memq 'eval #{when-list 27478}#) | |
4559 | (#{expand-sequence 4438}# | |
4560 | (cons #{e1 27476}# #{e2 27477}#) | |
4561 | #{r 26050}# | |
4562 | #{w 26051}# | |
4563 | #{s 26052}# | |
4564 | #{mod 26053}#) | |
46e372ef AW |
4565 | (make-struct/no-tail |
4566 | (vector-ref %expanded-vtables 0) | |
4567 | #f)))) | |
b2208d2e | 4568 | #{tmp 27471}#) |
840cf0d1 | 4569 | (syntax-violation |
25711fa4 | 4570 | #f |
840cf0d1 | 4571 | "source expression failed to match any pattern" |
b2208d2e AW |
4572 | #{e 26049}#))) |
4573 | (if (if (eqv? #{type 26047}# 'define-form) | |
46e372ef | 4574 | #t |
b2208d2e | 4575 | (if (eqv? #{type 26047}# |
0f9f51a1 AW |
4576 | 'define-syntax-form) |
4577 | #t | |
b2208d2e | 4578 | (eqv? #{type 26047}# |
0f9f51a1 | 4579 | 'define-syntax-parameter-form))) |
840cf0d1 AW |
4580 | (syntax-violation |
4581 | #f | |
4582 | "definition in expression context" | |
b2208d2e AW |
4583 | #{e 26049}# |
4584 | (if (if (null? (car #{w 26051}#)) | |
4585 | (null? (cdr #{w 26051}#)) | |
46e372ef | 4586 | #f) |
b2208d2e AW |
4587 | #{value 26048}# |
4588 | (if (if (vector? #{value 26048}#) | |
4589 | (if (= (vector-length #{value 26048}#) | |
46e372ef | 4590 | 4) |
b2208d2e | 4591 | (eq? (vector-ref #{value 26048}# 0) |
46e372ef AW |
4592 | 'syntax-object) |
4593 | #f) | |
4594 | #f) | |
b2208d2e AW |
4595 | (let ((#{expression 27688}# |
4596 | (vector-ref #{value 26048}# 1)) | |
4597 | (#{wrap 27689}# | |
4598 | (let ((#{w2 27699}# | |
46e372ef | 4599 | (vector-ref |
b2208d2e | 4600 | #{value 26048}# |
46e372ef | 4601 | 2))) |
b2208d2e AW |
4602 | (let ((#{m1 27700}# |
4603 | (car #{w 26051}#)) | |
4604 | (#{s1 27701}# | |
4605 | (cdr #{w 26051}#))) | |
4606 | (if (null? #{m1 27700}#) | |
4607 | (if (null? #{s1 27701}#) | |
4608 | #{w2 27699}# | |
4609 | (cons (car #{w2 27699}#) | |
4610 | (let ((#{m2 27718}# | |
4611 | (cdr #{w2 27699}#))) | |
4612 | (if (null? #{m2 27718}#) | |
4613 | #{s1 27701}# | |
46e372ef | 4614 | (append |
b2208d2e AW |
4615 | #{s1 27701}# |
4616 | #{m2 27718}#))))) | |
4617 | (cons (let ((#{m2 27726}# | |
4618 | (car #{w2 27699}#))) | |
4619 | (if (null? #{m2 27726}#) | |
4620 | #{m1 27700}# | |
46e372ef | 4621 | (append |
b2208d2e AW |
4622 | #{m1 27700}# |
4623 | #{m2 27726}#))) | |
4624 | (let ((#{m2 27734}# | |
4625 | (cdr #{w2 27699}#))) | |
4626 | (if (null? #{m2 27734}#) | |
4627 | #{s1 27701}# | |
46e372ef | 4628 | (append |
b2208d2e AW |
4629 | #{s1 27701}# |
4630 | #{m2 27734}#)))))))) | |
4631 | (#{module 27690}# | |
4632 | (vector-ref #{value 26048}# 3))) | |
46e372ef AW |
4633 | (vector |
4634 | 'syntax-object | |
b2208d2e AW |
4635 | #{expression 27688}# |
4636 | #{wrap 27689}# | |
4637 | #{module 27690}#)) | |
4638 | (if (null? #{value 26048}#) | |
4639 | #{value 26048}# | |
46e372ef AW |
4640 | (vector |
4641 | 'syntax-object | |
b2208d2e AW |
4642 | #{value 26048}# |
4643 | #{w 26051}# | |
4644 | #{mod 26053}#))))) | |
4645 | (if (eqv? #{type 26047}# 'syntax) | |
840cf0d1 | 4646 | (syntax-violation |
25711fa4 | 4647 | #f |
840cf0d1 | 4648 | "reference to pattern variable outside syntax form" |
b2208d2e | 4649 | (let ((#{x 27769}# |
46e372ef | 4650 | (begin |
b2208d2e AW |
4651 | (if (if (pair? #{e 26049}#) |
4652 | #{s 26052}# | |
46e372ef AW |
4653 | #f) |
4654 | (set-source-properties! | |
b2208d2e AW |
4655 | #{e 26049}# |
4656 | #{s 26052}#)) | |
4657 | #{e 26049}#))) | |
4658 | (if (if (null? (car #{w 26051}#)) | |
4659 | (null? (cdr #{w 26051}#)) | |
46e372ef | 4660 | #f) |
b2208d2e AW |
4661 | #{x 27769}# |
4662 | (if (if (vector? #{x 27769}#) | |
4663 | (if (= (vector-length #{x 27769}#) | |
46e372ef | 4664 | 4) |
b2208d2e | 4665 | (eq? (vector-ref #{x 27769}# 0) |
46e372ef AW |
4666 | 'syntax-object) |
4667 | #f) | |
4668 | #f) | |
b2208d2e AW |
4669 | (let ((#{expression 27801}# |
4670 | (vector-ref #{x 27769}# 1)) | |
4671 | (#{wrap 27802}# | |
4672 | (let ((#{w2 27810}# | |
46e372ef | 4673 | (vector-ref |
b2208d2e | 4674 | #{x 27769}# |
46e372ef | 4675 | 2))) |
b2208d2e AW |
4676 | (let ((#{m1 27811}# |
4677 | (car #{w 26051}#)) | |
4678 | (#{s1 27812}# | |
4679 | (cdr #{w 26051}#))) | |
4680 | (if (null? #{m1 27811}#) | |
4681 | (if (null? #{s1 27812}#) | |
4682 | #{w2 27810}# | |
4683 | (cons (car #{w2 27810}#) | |
4684 | (let ((#{m2 27827}# | |
4685 | (cdr #{w2 27810}#))) | |
4686 | (if (null? #{m2 27827}#) | |
4687 | #{s1 27812}# | |
46e372ef | 4688 | (append |
b2208d2e AW |
4689 | #{s1 27812}# |
4690 | #{m2 27827}#))))) | |
4691 | (cons (let ((#{m2 27835}# | |
4692 | (car #{w2 27810}#))) | |
4693 | (if (null? #{m2 27835}#) | |
4694 | #{m1 27811}# | |
46e372ef | 4695 | (append |
b2208d2e AW |
4696 | #{m1 27811}# |
4697 | #{m2 27835}#))) | |
4698 | (let ((#{m2 27843}# | |
4699 | (cdr #{w2 27810}#))) | |
4700 | (if (null? #{m2 27843}#) | |
4701 | #{s1 27812}# | |
46e372ef | 4702 | (append |
b2208d2e AW |
4703 | #{s1 27812}# |
4704 | #{m2 27843}#)))))))) | |
4705 | (#{module 27803}# | |
4706 | (vector-ref #{x 27769}# 3))) | |
46e372ef AW |
4707 | (vector |
4708 | 'syntax-object | |
b2208d2e AW |
4709 | #{expression 27801}# |
4710 | #{wrap 27802}# | |
4711 | #{module 27803}#)) | |
4712 | (if (null? #{x 27769}#) | |
4713 | #{x 27769}# | |
46e372ef AW |
4714 | (vector |
4715 | 'syntax-object | |
b2208d2e AW |
4716 | #{x 27769}# |
4717 | #{w 26051}# | |
4718 | #{mod 26053}#)))))) | |
4719 | (if (eqv? #{type 26047}# 'displaced-lexical) | |
840cf0d1 AW |
4720 | (syntax-violation |
4721 | #f | |
4722 | "reference to identifier outside its scope" | |
b2208d2e | 4723 | (let ((#{x 27870}# |
46e372ef | 4724 | (begin |
b2208d2e AW |
4725 | (if (if (pair? #{e 26049}#) |
4726 | #{s 26052}# | |
46e372ef AW |
4727 | #f) |
4728 | (set-source-properties! | |
b2208d2e AW |
4729 | #{e 26049}# |
4730 | #{s 26052}#)) | |
4731 | #{e 26049}#))) | |
4732 | (if (if (null? (car #{w 26051}#)) | |
4733 | (null? (cdr #{w 26051}#)) | |
46e372ef | 4734 | #f) |
b2208d2e AW |
4735 | #{x 27870}# |
4736 | (if (if (vector? #{x 27870}#) | |
46e372ef | 4737 | (if (= (vector-length |
b2208d2e | 4738 | #{x 27870}#) |
46e372ef AW |
4739 | 4) |
4740 | (eq? (vector-ref | |
b2208d2e | 4741 | #{x 27870}# |
46e372ef AW |
4742 | 0) |
4743 | 'syntax-object) | |
4744 | #f) | |
4745 | #f) | |
b2208d2e AW |
4746 | (let ((#{expression 27902}# |
4747 | (vector-ref #{x 27870}# 1)) | |
4748 | (#{wrap 27903}# | |
4749 | (let ((#{w2 27911}# | |
46e372ef | 4750 | (vector-ref |
b2208d2e | 4751 | #{x 27870}# |
46e372ef | 4752 | 2))) |
b2208d2e AW |
4753 | (let ((#{m1 27912}# |
4754 | (car #{w 26051}#)) | |
4755 | (#{s1 27913}# | |
4756 | (cdr #{w 26051}#))) | |
4757 | (if (null? #{m1 27912}#) | |
4758 | (if (null? #{s1 27913}#) | |
4759 | #{w2 27911}# | |
4760 | (cons (car #{w2 27911}#) | |
4761 | (let ((#{m2 27928}# | |
4762 | (cdr #{w2 27911}#))) | |
4763 | (if (null? #{m2 27928}#) | |
4764 | #{s1 27913}# | |
46e372ef | 4765 | (append |
b2208d2e AW |
4766 | #{s1 27913}# |
4767 | #{m2 27928}#))))) | |
4768 | (cons (let ((#{m2 27936}# | |
4769 | (car #{w2 27911}#))) | |
4770 | (if (null? #{m2 27936}#) | |
4771 | #{m1 27912}# | |
46e372ef | 4772 | (append |
b2208d2e AW |
4773 | #{m1 27912}# |
4774 | #{m2 27936}#))) | |
4775 | (let ((#{m2 27944}# | |
4776 | (cdr #{w2 27911}#))) | |
4777 | (if (null? #{m2 27944}#) | |
4778 | #{s1 27913}# | |
46e372ef | 4779 | (append |
b2208d2e AW |
4780 | #{s1 27913}# |
4781 | #{m2 27944}#)))))))) | |
4782 | (#{module 27904}# | |
4783 | (vector-ref #{x 27870}# 3))) | |
46e372ef AW |
4784 | (vector |
4785 | 'syntax-object | |
b2208d2e AW |
4786 | #{expression 27902}# |
4787 | #{wrap 27903}# | |
4788 | #{module 27904}#)) | |
4789 | (if (null? #{x 27870}#) | |
4790 | #{x 27870}# | |
46e372ef AW |
4791 | (vector |
4792 | 'syntax-object | |
b2208d2e AW |
4793 | #{x 27870}# |
4794 | #{w 26051}# | |
4795 | #{mod 26053}#)))))) | |
840cf0d1 AW |
4796 | (syntax-violation |
4797 | #f | |
4798 | "unexpected syntax" | |
b2208d2e | 4799 | (let ((#{x 27968}# |
46e372ef | 4800 | (begin |
b2208d2e AW |
4801 | (if (if (pair? #{e 26049}#) |
4802 | #{s 26052}# | |
46e372ef AW |
4803 | #f) |
4804 | (set-source-properties! | |
b2208d2e AW |
4805 | #{e 26049}# |
4806 | #{s 26052}#)) | |
4807 | #{e 26049}#))) | |
4808 | (if (if (null? (car #{w 26051}#)) | |
4809 | (null? (cdr #{w 26051}#)) | |
46e372ef | 4810 | #f) |
b2208d2e AW |
4811 | #{x 27968}# |
4812 | (if (if (vector? #{x 27968}#) | |
46e372ef | 4813 | (if (= (vector-length |
b2208d2e | 4814 | #{x 27968}#) |
46e372ef AW |
4815 | 4) |
4816 | (eq? (vector-ref | |
b2208d2e | 4817 | #{x 27968}# |
46e372ef AW |
4818 | 0) |
4819 | 'syntax-object) | |
4820 | #f) | |
4821 | #f) | |
b2208d2e AW |
4822 | (let ((#{expression 28000}# |
4823 | (vector-ref #{x 27968}# 1)) | |
4824 | (#{wrap 28001}# | |
4825 | (let ((#{w2 28009}# | |
46e372ef | 4826 | (vector-ref |
b2208d2e | 4827 | #{x 27968}# |
46e372ef | 4828 | 2))) |
b2208d2e AW |
4829 | (let ((#{m1 28010}# |
4830 | (car #{w 26051}#)) | |
4831 | (#{s1 28011}# | |
4832 | (cdr #{w 26051}#))) | |
4833 | (if (null? #{m1 28010}#) | |
4834 | (if (null? #{s1 28011}#) | |
4835 | #{w2 28009}# | |
4836 | (cons (car #{w2 28009}#) | |
4837 | (let ((#{m2 28026}# | |
4838 | (cdr #{w2 28009}#))) | |
4839 | (if (null? #{m2 28026}#) | |
4840 | #{s1 28011}# | |
46e372ef | 4841 | (append |
b2208d2e AW |
4842 | #{s1 28011}# |
4843 | #{m2 28026}#))))) | |
4844 | (cons (let ((#{m2 28034}# | |
4845 | (car #{w2 28009}#))) | |
4846 | (if (null? #{m2 28034}#) | |
4847 | #{m1 28010}# | |
46e372ef | 4848 | (append |
b2208d2e AW |
4849 | #{m1 28010}# |
4850 | #{m2 28034}#))) | |
4851 | (let ((#{m2 28042}# | |
4852 | (cdr #{w2 28009}#))) | |
4853 | (if (null? #{m2 28042}#) | |
4854 | #{s1 28011}# | |
46e372ef | 4855 | (append |
b2208d2e AW |
4856 | #{s1 28011}# |
4857 | #{m2 28042}#)))))))) | |
4858 | (#{module 28002}# | |
4859 | (vector-ref #{x 27968}# 3))) | |
46e372ef AW |
4860 | (vector |
4861 | 'syntax-object | |
b2208d2e AW |
4862 | #{expression 28000}# |
4863 | #{wrap 28001}# | |
4864 | #{module 28002}#)) | |
4865 | (if (null? #{x 27968}#) | |
4866 | #{x 27968}# | |
46e372ef AW |
4867 | (vector |
4868 | 'syntax-object | |
b2208d2e AW |
4869 | #{x 27968}# |
4870 | #{w 26051}# | |
4871 | #{mod 26053}#)))))))))))))))))))))) | |
4872 | (#{expand-call 4445}# | |
4873 | (lambda (#{x 28057}# | |
4874 | #{e 28058}# | |
4875 | #{r 28059}# | |
4876 | #{w 28060}# | |
4877 | #{s 28061}# | |
4878 | #{mod 28062}#) | |
4879 | (let ((#{tmp 28064}# | |
4880 | ($sc-dispatch #{e 28058}# '(any . each-any)))) | |
4881 | (if #{tmp 28064}# | |
840cf0d1 | 4882 | (@apply |
b2208d2e AW |
4883 | (lambda (#{e0 28068}# #{e1 28069}#) |
4884 | (#{build-call 4377}# | |
4885 | #{s 28061}# | |
4886 | #{x 28057}# | |
4887 | (map (lambda (#{e 28161}#) | |
4888 | (#{expand 4443}# | |
4889 | #{e 28161}# | |
4890 | #{r 28059}# | |
4891 | #{w 28060}# | |
4892 | #{mod 28062}#)) | |
4893 | #{e1 28069}#))) | |
4894 | #{tmp 28064}#) | |
840cf0d1 AW |
4895 | (syntax-violation |
4896 | #f | |
4897 | "source expression failed to match any pattern" | |
b2208d2e AW |
4898 | #{e 28058}#))))) |
4899 | (#{expand-macro 4446}# | |
4900 | (lambda (#{p 28249}# | |
4901 | #{e 28250}# | |
4902 | #{r 28251}# | |
4903 | #{w 28252}# | |
4904 | #{s 28253}# | |
4905 | #{rib 28254}# | |
4906 | #{mod 28255}#) | |
840cf0d1 | 4907 | (letrec* |
b2208d2e AW |
4908 | ((#{rebuild-macro-output 28256}# |
4909 | (lambda (#{x 28363}# #{m 28364}#) | |
4910 | (if (pair? #{x 28363}#) | |
4911 | (let ((#{e 28368}# | |
4912 | (cons (#{rebuild-macro-output 28256}# | |
4913 | (car #{x 28363}#) | |
4914 | #{m 28364}#) | |
4915 | (#{rebuild-macro-output 28256}# | |
4916 | (cdr #{x 28363}#) | |
4917 | #{m 28364}#)))) | |
46e372ef | 4918 | (begin |
b2208d2e AW |
4919 | (if (if (pair? #{e 28368}#) #{s 28253}# #f) |
4920 | (set-source-properties! #{e 28368}# #{s 28253}#)) | |
4921 | #{e 28368}#)) | |
4922 | (if (if (vector? #{x 28363}#) | |
4923 | (if (= (vector-length #{x 28363}#) 4) | |
4924 | (eq? (vector-ref #{x 28363}# 0) 'syntax-object) | |
46e372ef AW |
4925 | #f) |
4926 | #f) | |
b2208d2e AW |
4927 | (let ((#{w 28384}# (vector-ref #{x 28363}# 2))) |
4928 | (let ((#{ms 28385}# (car #{w 28384}#)) | |
4929 | (#{s 28386}# (cdr #{w 28384}#))) | |
4930 | (if (if (pair? #{ms 28385}#) | |
4931 | (eq? (car #{ms 28385}#) #f) | |
840cf0d1 | 4932 | #f) |
b2208d2e AW |
4933 | (let ((#{expression 28394}# (vector-ref #{x 28363}# 1)) |
4934 | (#{wrap 28395}# | |
4935 | (cons (cdr #{ms 28385}#) | |
4936 | (if #{rib 28254}# | |
4937 | (cons #{rib 28254}# (cdr #{s 28386}#)) | |
4938 | (cdr #{s 28386}#)))) | |
4939 | (#{module 28396}# (vector-ref #{x 28363}# 3))) | |
46e372ef AW |
4940 | (vector |
4941 | 'syntax-object | |
b2208d2e AW |
4942 | #{expression 28394}# |
4943 | #{wrap 28395}# | |
4944 | #{module 28396}#)) | |
4945 | (let ((#{expression 28406}# | |
4946 | (let ((#{e 28411}# (vector-ref #{x 28363}# 1))) | |
46e372ef | 4947 | (begin |
b2208d2e | 4948 | (if (if (pair? #{e 28411}#) #{s 28386}# #f) |
46e372ef | 4949 | (set-source-properties! |
b2208d2e AW |
4950 | #{e 28411}# |
4951 | #{s 28386}#)) | |
4952 | #{e 28411}#))) | |
4953 | (#{wrap 28407}# | |
4954 | (cons (cons #{m 28364}# #{ms 28385}#) | |
4955 | (if #{rib 28254}# | |
4956 | (cons #{rib 28254}# | |
4957 | (cons 'shift #{s 28386}#)) | |
4958 | (cons 'shift #{s 28386}#)))) | |
4959 | (#{module 28408}# (vector-ref #{x 28363}# 3))) | |
46e372ef AW |
4960 | (vector |
4961 | 'syntax-object | |
b2208d2e AW |
4962 | #{expression 28406}# |
4963 | #{wrap 28407}# | |
4964 | #{module 28408}#))))) | |
4965 | (if (vector? #{x 28363}#) | |
4966 | (let ((#{n 28423}# (vector-length #{x 28363}#))) | |
4967 | (let ((#{v 28424}# | |
4968 | (let ((#{e 28432}# (make-vector #{n 28423}#))) | |
46e372ef | 4969 | (begin |
b2208d2e | 4970 | (if (if (pair? #{e 28432}#) #{x 28363}# #f) |
46e372ef | 4971 | (set-source-properties! |
b2208d2e AW |
4972 | #{e 28432}# |
4973 | #{x 28363}#)) | |
4974 | #{e 28432}#)))) | |
840cf0d1 | 4975 | (letrec* |
b2208d2e AW |
4976 | ((#{loop 28425}# |
4977 | (lambda (#{i 28486}#) | |
4978 | (if (= #{i 28486}# #{n 28423}#) | |
4979 | #{v 28424}# | |
840cf0d1 AW |
4980 | (begin |
4981 | (vector-set! | |
b2208d2e AW |
4982 | #{v 28424}# |
4983 | #{i 28486}# | |
4984 | (#{rebuild-macro-output 28256}# | |
4985 | (vector-ref #{x 28363}# #{i 28486}#) | |
4986 | #{m 28364}#)) | |
4987 | (#{loop 28425}# (#{1+}# #{i 28486}#))))))) | |
4988 | (#{loop 28425}# 0)))) | |
4989 | (if (symbol? #{x 28363}#) | |
840cf0d1 AW |
4990 | (syntax-violation |
4991 | #f | |
4992 | "encountered raw symbol in macro output" | |
b2208d2e AW |
4993 | (let ((#{s 28492}# (cdr #{w 28252}#))) |
4994 | (let ((#{x 28496}# | |
46e372ef | 4995 | (begin |
b2208d2e | 4996 | (if (if (pair? #{e 28250}#) #{s 28492}# #f) |
46e372ef | 4997 | (set-source-properties! |
b2208d2e AW |
4998 | #{e 28250}# |
4999 | #{s 28492}#)) | |
5000 | #{e 28250}#))) | |
5001 | (if (if (null? (car #{w 28252}#)) | |
5002 | (null? (cdr #{w 28252}#)) | |
46e372ef | 5003 | #f) |
b2208d2e AW |
5004 | #{x 28496}# |
5005 | (if (if (vector? #{x 28496}#) | |
5006 | (if (= (vector-length #{x 28496}#) 4) | |
5007 | (eq? (vector-ref #{x 28496}# 0) | |
46e372ef AW |
5008 | 'syntax-object) |
5009 | #f) | |
5010 | #f) | |
b2208d2e AW |
5011 | (let ((#{expression 28528}# |
5012 | (vector-ref #{x 28496}# 1)) | |
5013 | (#{wrap 28529}# | |
5014 | (let ((#{w2 28537}# | |
5015 | (vector-ref #{x 28496}# 2))) | |
5016 | (let ((#{m1 28538}# | |
5017 | (car #{w 28252}#)) | |
5018 | (#{s1 28539}# | |
5019 | (cdr #{w 28252}#))) | |
5020 | (if (null? #{m1 28538}#) | |
5021 | (if (null? #{s1 28539}#) | |
5022 | #{w2 28537}# | |
5023 | (cons (car #{w2 28537}#) | |
5024 | (let ((#{m2 28554}# | |
5025 | (cdr #{w2 28537}#))) | |
5026 | (if (null? #{m2 28554}#) | |
5027 | #{s1 28539}# | |
46e372ef | 5028 | (append |
b2208d2e AW |
5029 | #{s1 28539}# |
5030 | #{m2 28554}#))))) | |
5031 | (cons (let ((#{m2 28562}# | |
5032 | (car #{w2 28537}#))) | |
5033 | (if (null? #{m2 28562}#) | |
5034 | #{m1 28538}# | |
46e372ef | 5035 | (append |
b2208d2e AW |
5036 | #{m1 28538}# |
5037 | #{m2 28562}#))) | |
5038 | (let ((#{m2 28570}# | |
5039 | (cdr #{w2 28537}#))) | |
5040 | (if (null? #{m2 28570}#) | |
5041 | #{s1 28539}# | |
46e372ef | 5042 | (append |
b2208d2e AW |
5043 | #{s1 28539}# |
5044 | #{m2 28570}#)))))))) | |
5045 | (#{module 28530}# | |
5046 | (vector-ref #{x 28496}# 3))) | |
46e372ef AW |
5047 | (vector |
5048 | 'syntax-object | |
b2208d2e AW |
5049 | #{expression 28528}# |
5050 | #{wrap 28529}# | |
5051 | #{module 28530}#)) | |
5052 | (if (null? #{x 28496}#) | |
5053 | #{x 28496}# | |
46e372ef AW |
5054 | (vector |
5055 | 'syntax-object | |
b2208d2e AW |
5056 | #{x 28496}# |
5057 | #{w 28252}# | |
5058 | #{mod 28255}#)))))) | |
5059 | #{x 28363}#) | |
46e372ef | 5060 | (begin |
b2208d2e AW |
5061 | (if (if (pair? #{x 28363}#) #{s 28253}# #f) |
5062 | (set-source-properties! #{x 28363}# #{s 28253}#)) | |
5063 | #{x 28363}#)))))))) | |
5064 | (#{rebuild-macro-output 28256}# | |
5065 | (#{p 28249}# | |
5066 | (let ((#{w 28263}# | |
5067 | (cons (cons #f (car #{w 28252}#)) | |
5068 | (cons 'shift (cdr #{w 28252}#))))) | |
5069 | (let ((#{x 28268}# | |
46e372ef | 5070 | (begin |
b2208d2e AW |
5071 | (if (if (pair? #{e 28250}#) #{s 28253}# #f) |
5072 | (set-source-properties! #{e 28250}# #{s 28253}#)) | |
5073 | #{e 28250}#))) | |
5074 | (if (if (null? (car #{w 28263}#)) | |
5075 | (null? (cdr #{w 28263}#)) | |
46e372ef | 5076 | #f) |
b2208d2e AW |
5077 | #{x 28268}# |
5078 | (if (if (vector? #{x 28268}#) | |
5079 | (if (= (vector-length #{x 28268}#) 4) | |
5080 | (eq? (vector-ref #{x 28268}# 0) 'syntax-object) | |
46e372ef AW |
5081 | #f) |
5082 | #f) | |
b2208d2e AW |
5083 | (let ((#{expression 28306}# (vector-ref #{x 28268}# 1)) |
5084 | (#{wrap 28307}# | |
5085 | (let ((#{w2 28315}# (vector-ref #{x 28268}# 2))) | |
5086 | (let ((#{m1 28316}# (car #{w 28263}#)) | |
5087 | (#{s1 28317}# (cdr #{w 28263}#))) | |
5088 | (if (null? #{m1 28316}#) | |
5089 | (if (null? #{s1 28317}#) | |
5090 | #{w2 28315}# | |
5091 | (cons (car #{w2 28315}#) | |
5092 | (let ((#{m2 28332}# | |
5093 | (cdr #{w2 28315}#))) | |
5094 | (if (null? #{m2 28332}#) | |
5095 | #{s1 28317}# | |
46e372ef | 5096 | (append |
b2208d2e AW |
5097 | #{s1 28317}# |
5098 | #{m2 28332}#))))) | |
5099 | (cons (let ((#{m2 28340}# | |
5100 | (car #{w2 28315}#))) | |
5101 | (if (null? #{m2 28340}#) | |
5102 | #{m1 28316}# | |
46e372ef | 5103 | (append |
b2208d2e AW |
5104 | #{m1 28316}# |
5105 | #{m2 28340}#))) | |
5106 | (let ((#{m2 28348}# | |
5107 | (cdr #{w2 28315}#))) | |
5108 | (if (null? #{m2 28348}#) | |
5109 | #{s1 28317}# | |
46e372ef | 5110 | (append |
b2208d2e AW |
5111 | #{s1 28317}# |
5112 | #{m2 28348}#)))))))) | |
5113 | (#{module 28308}# (vector-ref #{x 28268}# 3))) | |
46e372ef AW |
5114 | (vector |
5115 | 'syntax-object | |
b2208d2e AW |
5116 | #{expression 28306}# |
5117 | #{wrap 28307}# | |
5118 | #{module 28308}#)) | |
5119 | (if (null? #{x 28268}#) | |
5120 | #{x 28268}# | |
46e372ef AW |
5121 | (vector |
5122 | 'syntax-object | |
b2208d2e AW |
5123 | #{x 28268}# |
5124 | #{w 28263}# | |
5125 | #{mod 28255}#))))))) | |
840cf0d1 | 5126 | (gensym "m"))))) |
b2208d2e AW |
5127 | (#{expand-body 4447}# |
5128 | (lambda (#{body 28600}# | |
5129 | #{outer-form 28601}# | |
5130 | #{r 28602}# | |
5131 | #{w 28603}# | |
5132 | #{mod 28604}#) | |
5133 | (let ((#{r 28605}# | |
5134 | (cons '("placeholder" placeholder) #{r 28602}#))) | |
5135 | (let ((#{ribcage 28606}# (vector 'ribcage '() '() '()))) | |
5136 | (let ((#{w 28607}# | |
5137 | (cons (car #{w 28603}#) | |
5138 | (cons #{ribcage 28606}# (cdr #{w 28603}#))))) | |
840cf0d1 | 5139 | (letrec* |
b2208d2e AW |
5140 | ((#{parse 28608}# |
5141 | (lambda (#{body 28716}# | |
5142 | #{ids 28717}# | |
5143 | #{labels 28718}# | |
5144 | #{var-ids 28719}# | |
5145 | #{vars 28720}# | |
5146 | #{vals 28721}# | |
5147 | #{bindings 28722}#) | |
5148 | (if (null? #{body 28716}#) | |
840cf0d1 AW |
5149 | (syntax-violation |
5150 | #f | |
5151 | "no expressions in body" | |
b2208d2e AW |
5152 | #{outer-form 28601}#) |
5153 | (let ((#{e 28723}# (cdr (car #{body 28716}#))) | |
5154 | (#{er 28724}# (car (car #{body 28716}#)))) | |
840cf0d1 AW |
5155 | (call-with-values |
5156 | (lambda () | |
b2208d2e AW |
5157 | (#{syntax-type 4442}# |
5158 | #{e 28723}# | |
5159 | #{er 28724}# | |
840cf0d1 | 5160 | '(()) |
b2208d2e AW |
5161 | (#{source-annotation 4404}# #{er 28724}#) |
5162 | #{ribcage 28606}# | |
5163 | #{mod 28604}# | |
840cf0d1 | 5164 | #f)) |
b2208d2e AW |
5165 | (lambda (#{type 28930}# |
5166 | #{value 28931}# | |
5167 | #{e 28932}# | |
5168 | #{w 28933}# | |
5169 | #{s 28934}# | |
5170 | #{mod 28935}#) | |
5171 | (if (eqv? #{type 28930}# 'define-form) | |
5172 | (let ((#{id 28939}# | |
5173 | (if (if (null? (car #{w 28933}#)) | |
5174 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5175 | #f) |
b2208d2e AW |
5176 | #{value 28931}# |
5177 | (if (if (vector? #{value 28931}#) | |
46e372ef | 5178 | (if (= (vector-length |
b2208d2e | 5179 | #{value 28931}#) |
46e372ef AW |
5180 | 4) |
5181 | (eq? (vector-ref | |
b2208d2e | 5182 | #{value 28931}# |
46e372ef AW |
5183 | 0) |
5184 | 'syntax-object) | |
5185 | #f) | |
5186 | #f) | |
b2208d2e | 5187 | (let ((#{expression 28984}# |
46e372ef | 5188 | (vector-ref |
b2208d2e | 5189 | #{value 28931}# |
46e372ef | 5190 | 1)) |
b2208d2e AW |
5191 | (#{wrap 28985}# |
5192 | (let ((#{w2 28995}# | |
46e372ef | 5193 | (vector-ref |
b2208d2e | 5194 | #{value 28931}# |
46e372ef | 5195 | 2))) |
b2208d2e AW |
5196 | (let ((#{m1 28996}# |
5197 | (car #{w 28933}#)) | |
5198 | (#{s1 28997}# | |
5199 | (cdr #{w 28933}#))) | |
5200 | (if (null? #{m1 28996}#) | |
5201 | (if (null? #{s1 28997}#) | |
5202 | #{w2 28995}# | |
5203 | (cons (car #{w2 28995}#) | |
5204 | (let ((#{m2 29014}# | |
5205 | (cdr #{w2 28995}#))) | |
5206 | (if (null? #{m2 29014}#) | |
5207 | #{s1 28997}# | |
46e372ef | 5208 | (append |
b2208d2e AW |
5209 | #{s1 28997}# |
5210 | #{m2 29014}#))))) | |
5211 | (cons (let ((#{m2 29022}# | |
5212 | (car #{w2 28995}#))) | |
5213 | (if (null? #{m2 29022}#) | |
5214 | #{m1 28996}# | |
46e372ef | 5215 | (append |
b2208d2e AW |
5216 | #{m1 28996}# |
5217 | #{m2 29022}#))) | |
5218 | (let ((#{m2 29030}# | |
5219 | (cdr #{w2 28995}#))) | |
5220 | (if (null? #{m2 29030}#) | |
5221 | #{s1 28997}# | |
46e372ef | 5222 | (append |
b2208d2e AW |
5223 | #{s1 28997}# |
5224 | #{m2 29030}#)))))))) | |
5225 | (#{module 28986}# | |
46e372ef | 5226 | (vector-ref |
b2208d2e | 5227 | #{value 28931}# |
46e372ef AW |
5228 | 3))) |
5229 | (vector | |
5230 | 'syntax-object | |
b2208d2e AW |
5231 | #{expression 28984}# |
5232 | #{wrap 28985}# | |
5233 | #{module 28986}#)) | |
5234 | (if (null? #{value 28931}#) | |
5235 | #{value 28931}# | |
46e372ef AW |
5236 | (vector |
5237 | 'syntax-object | |
b2208d2e AW |
5238 | #{value 28931}# |
5239 | #{w 28933}# | |
5240 | #{mod 28935}#))))) | |
5241 | (#{label 28940}# | |
46e372ef | 5242 | (symbol->string (gensym "i")))) |
b2208d2e AW |
5243 | (let ((#{var 28941}# |
5244 | (let ((#{id 29091}# | |
5245 | (if (if (vector? #{id 28939}#) | |
46e372ef | 5246 | (if (= (vector-length |
b2208d2e | 5247 | #{id 28939}#) |
46e372ef AW |
5248 | 4) |
5249 | (eq? (vector-ref | |
b2208d2e | 5250 | #{id 28939}# |
46e372ef AW |
5251 | 0) |
5252 | 'syntax-object) | |
5253 | #f) | |
5254 | #f) | |
b2208d2e AW |
5255 | (vector-ref #{id 28939}# 1) |
5256 | #{id 28939}#))) | |
46e372ef AW |
5257 | (gensym |
5258 | (string-append | |
b2208d2e | 5259 | (symbol->string #{id 29091}#) |
46e372ef | 5260 | " "))))) |
840cf0d1 | 5261 | (begin |
46e372ef | 5262 | (begin |
b2208d2e AW |
5263 | (let ((#{update 28950}# |
5264 | (cons (vector-ref #{id 28939}# 1) | |
46e372ef | 5265 | (vector-ref |
b2208d2e | 5266 | #{ribcage 28606}# |
46e372ef AW |
5267 | 1)))) |
5268 | (vector-set! | |
b2208d2e | 5269 | #{ribcage 28606}# |
46e372ef | 5270 | 1 |
b2208d2e AW |
5271 | #{update 28950}#)) |
5272 | (let ((#{update 29062}# | |
46e372ef | 5273 | (cons (car (vector-ref |
b2208d2e | 5274 | #{id 28939}# |
46e372ef AW |
5275 | 2)) |
5276 | (vector-ref | |
b2208d2e | 5277 | #{ribcage 28606}# |
46e372ef AW |
5278 | 2)))) |
5279 | (vector-set! | |
b2208d2e | 5280 | #{ribcage 28606}# |
46e372ef | 5281 | 2 |
b2208d2e AW |
5282 | #{update 29062}#)) |
5283 | (let ((#{update 29077}# | |
5284 | (cons #{label 28940}# | |
46e372ef | 5285 | (vector-ref |
b2208d2e | 5286 | #{ribcage 28606}# |
46e372ef AW |
5287 | 3)))) |
5288 | (vector-set! | |
b2208d2e | 5289 | #{ribcage 28606}# |
46e372ef | 5290 | 3 |
b2208d2e AW |
5291 | #{update 29077}#))) |
5292 | (#{parse 28608}# | |
5293 | (cdr #{body 28716}#) | |
5294 | (cons #{id 28939}# #{ids 28717}#) | |
5295 | (cons #{label 28940}# #{labels 28718}#) | |
5296 | (cons #{id 28939}# #{var-ids 28719}#) | |
5297 | (cons #{var 28941}# #{vars 28720}#) | |
5298 | (cons (cons #{er 28724}# | |
5299 | (if (if (null? (car #{w 28933}#)) | |
5300 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5301 | #f) |
b2208d2e | 5302 | #{e 28932}# |
46e372ef | 5303 | (if (if (vector? |
b2208d2e | 5304 | #{e 28932}#) |
46e372ef | 5305 | (if (= (vector-length |
b2208d2e | 5306 | #{e 28932}#) |
46e372ef AW |
5307 | 4) |
5308 | (eq? (vector-ref | |
b2208d2e | 5309 | #{e 28932}# |
46e372ef AW |
5310 | 0) |
5311 | 'syntax-object) | |
5312 | #f) | |
5313 | #f) | |
b2208d2e | 5314 | (let ((#{expression 29143}# |
46e372ef | 5315 | (vector-ref |
b2208d2e | 5316 | #{e 28932}# |
46e372ef | 5317 | 1)) |
b2208d2e AW |
5318 | (#{wrap 29144}# |
5319 | (let ((#{w2 29154}# | |
46e372ef | 5320 | (vector-ref |
b2208d2e | 5321 | #{e 28932}# |
46e372ef | 5322 | 2))) |
b2208d2e AW |
5323 | (let ((#{m1 29155}# |
5324 | (car #{w 28933}#)) | |
5325 | (#{s1 29156}# | |
5326 | (cdr #{w 28933}#))) | |
5327 | (if (null? #{m1 29155}#) | |
5328 | (if (null? #{s1 29156}#) | |
5329 | #{w2 29154}# | |
5330 | (cons (car #{w2 29154}#) | |
5331 | (let ((#{m2 29173}# | |
5332 | (cdr #{w2 29154}#))) | |
5333 | (if (null? #{m2 29173}#) | |
5334 | #{s1 29156}# | |
46e372ef | 5335 | (append |
b2208d2e AW |
5336 | #{s1 29156}# |
5337 | #{m2 29173}#))))) | |
5338 | (cons (let ((#{m2 29181}# | |
5339 | (car #{w2 29154}#))) | |
5340 | (if (null? #{m2 29181}#) | |
5341 | #{m1 29155}# | |
46e372ef | 5342 | (append |
b2208d2e AW |
5343 | #{m1 29155}# |
5344 | #{m2 29181}#))) | |
5345 | (let ((#{m2 29189}# | |
5346 | (cdr #{w2 29154}#))) | |
5347 | (if (null? #{m2 29189}#) | |
5348 | #{s1 29156}# | |
46e372ef | 5349 | (append |
b2208d2e AW |
5350 | #{s1 29156}# |
5351 | #{m2 29189}#)))))))) | |
5352 | (#{module 29145}# | |
46e372ef | 5353 | (vector-ref |
b2208d2e | 5354 | #{e 28932}# |
46e372ef AW |
5355 | 3))) |
5356 | (vector | |
5357 | 'syntax-object | |
b2208d2e AW |
5358 | #{expression 29143}# |
5359 | #{wrap 29144}# | |
5360 | #{module 29145}#)) | |
5361 | (if (null? #{e 28932}#) | |
5362 | #{e 28932}# | |
46e372ef AW |
5363 | (vector |
5364 | 'syntax-object | |
b2208d2e AW |
5365 | #{e 28932}# |
5366 | #{w 28933}# | |
5367 | #{mod 28935}#))))) | |
5368 | #{vals 28721}#) | |
5369 | (cons (cons 'lexical #{var 28941}#) | |
5370 | #{bindings 28722}#))))) | |
5371 | (if (if (eqv? #{type 28930}# 'define-syntax-form) | |
0f9f51a1 | 5372 | #t |
b2208d2e | 5373 | (eqv? #{type 28930}# |
0f9f51a1 | 5374 | 'define-syntax-parameter-form)) |
b2208d2e AW |
5375 | (let ((#{id 29220}# |
5376 | (if (if (null? (car #{w 28933}#)) | |
5377 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5378 | #f) |
b2208d2e AW |
5379 | #{value 28931}# |
5380 | (if (if (vector? #{value 28931}#) | |
46e372ef | 5381 | (if (= (vector-length |
b2208d2e | 5382 | #{value 28931}#) |
46e372ef AW |
5383 | 4) |
5384 | (eq? (vector-ref | |
b2208d2e | 5385 | #{value 28931}# |
46e372ef AW |
5386 | 0) |
5387 | 'syntax-object) | |
5388 | #f) | |
5389 | #f) | |
b2208d2e | 5390 | (let ((#{expression 29264}# |
46e372ef | 5391 | (vector-ref |
b2208d2e | 5392 | #{value 28931}# |
46e372ef | 5393 | 1)) |
b2208d2e AW |
5394 | (#{wrap 29265}# |
5395 | (let ((#{w2 29275}# | |
46e372ef | 5396 | (vector-ref |
b2208d2e | 5397 | #{value 28931}# |
46e372ef | 5398 | 2))) |
b2208d2e AW |
5399 | (let ((#{m1 29276}# |
5400 | (car #{w 28933}#)) | |
5401 | (#{s1 29277}# | |
5402 | (cdr #{w 28933}#))) | |
5403 | (if (null? #{m1 29276}#) | |
5404 | (if (null? #{s1 29277}#) | |
5405 | #{w2 29275}# | |
5406 | (cons (car #{w2 29275}#) | |
5407 | (let ((#{m2 29294}# | |
5408 | (cdr #{w2 29275}#))) | |
5409 | (if (null? #{m2 29294}#) | |
5410 | #{s1 29277}# | |
46e372ef | 5411 | (append |
b2208d2e AW |
5412 | #{s1 29277}# |
5413 | #{m2 29294}#))))) | |
5414 | (cons (let ((#{m2 29302}# | |
5415 | (car #{w2 29275}#))) | |
5416 | (if (null? #{m2 29302}#) | |
5417 | #{m1 29276}# | |
46e372ef | 5418 | (append |
b2208d2e AW |
5419 | #{m1 29276}# |
5420 | #{m2 29302}#))) | |
5421 | (let ((#{m2 29310}# | |
5422 | (cdr #{w2 29275}#))) | |
5423 | (if (null? #{m2 29310}#) | |
5424 | #{s1 29277}# | |
46e372ef | 5425 | (append |
b2208d2e AW |
5426 | #{s1 29277}# |
5427 | #{m2 29310}#)))))))) | |
5428 | (#{module 29266}# | |
46e372ef | 5429 | (vector-ref |
b2208d2e | 5430 | #{value 28931}# |
46e372ef AW |
5431 | 3))) |
5432 | (vector | |
5433 | 'syntax-object | |
b2208d2e AW |
5434 | #{expression 29264}# |
5435 | #{wrap 29265}# | |
5436 | #{module 29266}#)) | |
5437 | (if (null? #{value 28931}#) | |
5438 | #{value 28931}# | |
46e372ef AW |
5439 | (vector |
5440 | 'syntax-object | |
b2208d2e AW |
5441 | #{value 28931}# |
5442 | #{w 28933}# | |
5443 | #{mod 28935}#))))) | |
5444 | (#{label 29221}# | |
46e372ef | 5445 | (symbol->string (gensym "i")))) |
840cf0d1 | 5446 | (begin |
46e372ef | 5447 | (begin |
b2208d2e AW |
5448 | (let ((#{update 29230}# |
5449 | (cons (vector-ref #{id 29220}# 1) | |
46e372ef | 5450 | (vector-ref |
b2208d2e | 5451 | #{ribcage 28606}# |
46e372ef AW |
5452 | 1)))) |
5453 | (vector-set! | |
b2208d2e | 5454 | #{ribcage 28606}# |
46e372ef | 5455 | 1 |
b2208d2e AW |
5456 | #{update 29230}#)) |
5457 | (let ((#{update 29342}# | |
46e372ef | 5458 | (cons (car (vector-ref |
b2208d2e | 5459 | #{id 29220}# |
46e372ef AW |
5460 | 2)) |
5461 | (vector-ref | |
b2208d2e | 5462 | #{ribcage 28606}# |
46e372ef AW |
5463 | 2)))) |
5464 | (vector-set! | |
b2208d2e | 5465 | #{ribcage 28606}# |
46e372ef | 5466 | 2 |
b2208d2e AW |
5467 | #{update 29342}#)) |
5468 | (let ((#{update 29357}# | |
5469 | (cons #{label 29221}# | |
46e372ef | 5470 | (vector-ref |
b2208d2e | 5471 | #{ribcage 28606}# |
46e372ef AW |
5472 | 3)))) |
5473 | (vector-set! | |
b2208d2e | 5474 | #{ribcage 28606}# |
46e372ef | 5475 | 3 |
b2208d2e AW |
5476 | #{update 29357}#))) |
5477 | (#{parse 28608}# | |
5478 | (cdr #{body 28716}#) | |
5479 | (cons #{id 29220}# #{ids 28717}#) | |
5480 | (cons #{label 29221}# #{labels 28718}#) | |
5481 | #{var-ids 28719}# | |
5482 | #{vars 28720}# | |
5483 | #{vals 28721}# | |
5484 | (cons (cons (if (eq? #{type 28930}# | |
0f9f51a1 AW |
5485 | 'define-syntax-parameter-form) |
5486 | 'syntax-parameter | |
5487 | 'macro) | |
b2208d2e AW |
5488 | (cons #{er 28724}# |
5489 | (if (if (null? (car #{w 28933}#)) | |
5490 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5491 | #f) |
b2208d2e | 5492 | #{e 28932}# |
46e372ef | 5493 | (if (if (vector? |
b2208d2e | 5494 | #{e 28932}#) |
46e372ef | 5495 | (if (= (vector-length |
b2208d2e | 5496 | #{e 28932}#) |
46e372ef AW |
5497 | 4) |
5498 | (eq? (vector-ref | |
b2208d2e | 5499 | #{e 28932}# |
46e372ef AW |
5500 | 0) |
5501 | 'syntax-object) | |
5502 | #f) | |
5503 | #f) | |
b2208d2e | 5504 | (let ((#{expression 29396}# |
46e372ef | 5505 | (vector-ref |
b2208d2e | 5506 | #{e 28932}# |
46e372ef | 5507 | 1)) |
b2208d2e AW |
5508 | (#{wrap 29397}# |
5509 | (let ((#{w2 29407}# | |
46e372ef | 5510 | (vector-ref |
b2208d2e | 5511 | #{e 28932}# |
46e372ef | 5512 | 2))) |
b2208d2e AW |
5513 | (let ((#{m1 29408}# |
5514 | (car #{w 28933}#)) | |
5515 | (#{s1 29409}# | |
5516 | (cdr #{w 28933}#))) | |
5517 | (if (null? #{m1 29408}#) | |
5518 | (if (null? #{s1 29409}#) | |
5519 | #{w2 29407}# | |
5520 | (cons (car #{w2 29407}#) | |
5521 | (let ((#{m2 29426}# | |
5522 | (cdr #{w2 29407}#))) | |
5523 | (if (null? #{m2 29426}#) | |
5524 | #{s1 29409}# | |
46e372ef | 5525 | (append |
b2208d2e AW |
5526 | #{s1 29409}# |
5527 | #{m2 29426}#))))) | |
5528 | (cons (let ((#{m2 29434}# | |
5529 | (car #{w2 29407}#))) | |
5530 | (if (null? #{m2 29434}#) | |
5531 | #{m1 29408}# | |
46e372ef | 5532 | (append |
b2208d2e AW |
5533 | #{m1 29408}# |
5534 | #{m2 29434}#))) | |
5535 | (let ((#{m2 29442}# | |
5536 | (cdr #{w2 29407}#))) | |
5537 | (if (null? #{m2 29442}#) | |
5538 | #{s1 29409}# | |
46e372ef | 5539 | (append |
b2208d2e AW |
5540 | #{s1 29409}# |
5541 | #{m2 29442}#)))))))) | |
5542 | (#{module 29398}# | |
46e372ef | 5543 | (vector-ref |
b2208d2e | 5544 | #{e 28932}# |
46e372ef AW |
5545 | 3))) |
5546 | (vector | |
5547 | 'syntax-object | |
b2208d2e AW |
5548 | #{expression 29396}# |
5549 | #{wrap 29397}# | |
5550 | #{module 29398}#)) | |
5551 | (if (null? #{e 28932}#) | |
5552 | #{e 28932}# | |
46e372ef AW |
5553 | (vector |
5554 | 'syntax-object | |
b2208d2e AW |
5555 | #{e 28932}# |
5556 | #{w 28933}# | |
5557 | #{mod 28935}#)))))) | |
5558 | #{bindings 28722}#)))) | |
5559 | (if (eqv? #{type 28930}# 'begin-form) | |
5560 | (let ((#{tmp 29469}# | |
840cf0d1 | 5561 | ($sc-dispatch |
b2208d2e | 5562 | #{e 28932}# |
840cf0d1 | 5563 | '(_ . each-any)))) |
b2208d2e | 5564 | (if #{tmp 29469}# |
840cf0d1 | 5565 | (@apply |
b2208d2e AW |
5566 | (lambda (#{e1 29473}#) |
5567 | (#{parse 28608}# | |
840cf0d1 | 5568 | (letrec* |
b2208d2e AW |
5569 | ((#{f 29474}# |
5570 | (lambda (#{forms 29690}#) | |
5571 | (if (null? #{forms 29690}#) | |
5572 | (cdr #{body 28716}#) | |
5573 | (cons (cons #{er 28724}# | |
5574 | (let ((#{x 29694}# | |
5575 | (car #{forms 29690}#))) | |
5576 | (if (if (null? (car #{w 28933}#)) | |
5577 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5578 | #f) |
b2208d2e | 5579 | #{x 29694}# |
46e372ef | 5580 | (if (if (vector? |
b2208d2e | 5581 | #{x 29694}#) |
46e372ef | 5582 | (if (= (vector-length |
b2208d2e | 5583 | #{x 29694}#) |
46e372ef AW |
5584 | 4) |
5585 | (eq? (vector-ref | |
b2208d2e | 5586 | #{x 29694}# |
46e372ef AW |
5587 | 0) |
5588 | 'syntax-object) | |
5589 | #f) | |
5590 | #f) | |
b2208d2e | 5591 | (let ((#{expression 29712}# |
46e372ef | 5592 | (vector-ref |
b2208d2e | 5593 | #{x 29694}# |
46e372ef | 5594 | 1)) |
b2208d2e AW |
5595 | (#{wrap 29713}# |
5596 | (let ((#{w2 29721}# | |
46e372ef | 5597 | (vector-ref |
b2208d2e | 5598 | #{x 29694}# |
46e372ef | 5599 | 2))) |
b2208d2e AW |
5600 | (let ((#{m1 29722}# |
5601 | (car #{w 28933}#)) | |
5602 | (#{s1 29723}# | |
5603 | (cdr #{w 28933}#))) | |
5604 | (if (null? #{m1 29722}#) | |
5605 | (if (null? #{s1 29723}#) | |
5606 | #{w2 29721}# | |
5607 | (cons (car #{w2 29721}#) | |
5608 | (let ((#{m2 29738}# | |
5609 | (cdr #{w2 29721}#))) | |
5610 | (if (null? #{m2 29738}#) | |
5611 | #{s1 29723}# | |
46e372ef | 5612 | (append |
b2208d2e AW |
5613 | #{s1 29723}# |
5614 | #{m2 29738}#))))) | |
5615 | (cons (let ((#{m2 29746}# | |
5616 | (car #{w2 29721}#))) | |
5617 | (if (null? #{m2 29746}#) | |
5618 | #{m1 29722}# | |
46e372ef | 5619 | (append |
b2208d2e AW |
5620 | #{m1 29722}# |
5621 | #{m2 29746}#))) | |
5622 | (let ((#{m2 29754}# | |
5623 | (cdr #{w2 29721}#))) | |
5624 | (if (null? #{m2 29754}#) | |
5625 | #{s1 29723}# | |
46e372ef | 5626 | (append |
b2208d2e AW |
5627 | #{s1 29723}# |
5628 | #{m2 29754}#)))))))) | |
5629 | (#{module 29714}# | |
46e372ef | 5630 | (vector-ref |
b2208d2e | 5631 | #{x 29694}# |
46e372ef AW |
5632 | 3))) |
5633 | (vector | |
5634 | 'syntax-object | |
b2208d2e AW |
5635 | #{expression 29712}# |
5636 | #{wrap 29713}# | |
5637 | #{module 29714}#)) | |
5638 | (if (null? #{x 29694}#) | |
5639 | #{x 29694}# | |
46e372ef AW |
5640 | (vector |
5641 | 'syntax-object | |
b2208d2e AW |
5642 | #{x 29694}# |
5643 | #{w 28933}# | |
5644 | #{mod 28935}#)))))) | |
5645 | (#{f 29474}# | |
5646 | (cdr #{forms 29690}#))))))) | |
5647 | (#{f 29474}# #{e1 29473}#)) | |
5648 | #{ids 28717}# | |
5649 | #{labels 28718}# | |
5650 | #{var-ids 28719}# | |
5651 | #{vars 28720}# | |
5652 | #{vals 28721}# | |
5653 | #{bindings 28722}#)) | |
5654 | #{tmp 29469}#) | |
840cf0d1 AW |
5655 | (syntax-violation |
5656 | #f | |
5657 | "source expression failed to match any pattern" | |
b2208d2e AW |
5658 | #{e 28932}#))) |
5659 | (if (eqv? #{type 28930}# 'local-syntax-form) | |
5660 | (#{expand-local-syntax 4448}# | |
5661 | #{value 28931}# | |
5662 | #{e 28932}# | |
5663 | #{er 28724}# | |
5664 | #{w 28933}# | |
5665 | #{s 28934}# | |
5666 | #{mod 28935}# | |
5667 | (lambda (#{forms 29780}# | |
5668 | #{er 29781}# | |
5669 | #{w 29782}# | |
5670 | #{s 29783}# | |
5671 | #{mod 29784}#) | |
5672 | (#{parse 28608}# | |
840cf0d1 | 5673 | (letrec* |
b2208d2e AW |
5674 | ((#{f 29785}# |
5675 | (lambda (#{forms 30001}#) | |
5676 | (if (null? #{forms 30001}#) | |
5677 | (cdr #{body 28716}#) | |
5678 | (cons (cons #{er 29781}# | |
5679 | (let ((#{x 30005}# | |
5680 | (car #{forms 30001}#))) | |
5681 | (if (if (null? (car #{w 29782}#)) | |
5682 | (null? (cdr #{w 29782}#)) | |
46e372ef | 5683 | #f) |
b2208d2e | 5684 | #{x 30005}# |
46e372ef | 5685 | (if (if (vector? |
b2208d2e | 5686 | #{x 30005}#) |
46e372ef | 5687 | (if (= (vector-length |
b2208d2e | 5688 | #{x 30005}#) |
46e372ef AW |
5689 | 4) |
5690 | (eq? (vector-ref | |
b2208d2e | 5691 | #{x 30005}# |
46e372ef AW |
5692 | 0) |
5693 | 'syntax-object) | |
5694 | #f) | |
5695 | #f) | |
b2208d2e | 5696 | (let ((#{expression 30023}# |
46e372ef | 5697 | (vector-ref |
b2208d2e | 5698 | #{x 30005}# |
46e372ef | 5699 | 1)) |
b2208d2e AW |
5700 | (#{wrap 30024}# |
5701 | (let ((#{w2 30032}# | |
46e372ef | 5702 | (vector-ref |
b2208d2e | 5703 | #{x 30005}# |
46e372ef | 5704 | 2))) |
b2208d2e AW |
5705 | (let ((#{m1 30033}# |
5706 | (car #{w 29782}#)) | |
5707 | (#{s1 30034}# | |
5708 | (cdr #{w 29782}#))) | |
5709 | (if (null? #{m1 30033}#) | |
5710 | (if (null? #{s1 30034}#) | |
5711 | #{w2 30032}# | |
5712 | (cons (car #{w2 30032}#) | |
5713 | (let ((#{m2 30049}# | |
5714 | (cdr #{w2 30032}#))) | |
5715 | (if (null? #{m2 30049}#) | |
5716 | #{s1 30034}# | |
46e372ef | 5717 | (append |
b2208d2e AW |
5718 | #{s1 30034}# |
5719 | #{m2 30049}#))))) | |
5720 | (cons (let ((#{m2 30057}# | |
5721 | (car #{w2 30032}#))) | |
5722 | (if (null? #{m2 30057}#) | |
5723 | #{m1 30033}# | |
46e372ef | 5724 | (append |
b2208d2e AW |
5725 | #{m1 30033}# |
5726 | #{m2 30057}#))) | |
5727 | (let ((#{m2 30065}# | |
5728 | (cdr #{w2 30032}#))) | |
5729 | (if (null? #{m2 30065}#) | |
5730 | #{s1 30034}# | |
46e372ef | 5731 | (append |
b2208d2e AW |
5732 | #{s1 30034}# |
5733 | #{m2 30065}#)))))))) | |
5734 | (#{module 30025}# | |
46e372ef | 5735 | (vector-ref |
b2208d2e | 5736 | #{x 30005}# |
46e372ef AW |
5737 | 3))) |
5738 | (vector | |
5739 | 'syntax-object | |
b2208d2e AW |
5740 | #{expression 30023}# |
5741 | #{wrap 30024}# | |
5742 | #{module 30025}#)) | |
5743 | (if (null? #{x 30005}#) | |
5744 | #{x 30005}# | |
46e372ef AW |
5745 | (vector |
5746 | 'syntax-object | |
b2208d2e AW |
5747 | #{x 30005}# |
5748 | #{w 29782}# | |
5749 | #{mod 29784}#)))))) | |
5750 | (#{f 29785}# | |
5751 | (cdr #{forms 30001}#))))))) | |
5752 | (#{f 29785}# #{forms 29780}#)) | |
5753 | #{ids 28717}# | |
5754 | #{labels 28718}# | |
5755 | #{var-ids 28719}# | |
5756 | #{vars 28720}# | |
5757 | #{vals 28721}# | |
5758 | #{bindings 28722}#))) | |
5759 | (if (null? #{ids 28717}#) | |
5760 | (#{build-sequence 4392}# | |
840cf0d1 | 5761 | #f |
b2208d2e AW |
5762 | (map (lambda (#{x 30154}#) |
5763 | (#{expand 4443}# | |
5764 | (cdr #{x 30154}#) | |
5765 | (car #{x 30154}#) | |
840cf0d1 | 5766 | '(()) |
b2208d2e AW |
5767 | #{mod 28935}#)) |
5768 | (cons (cons #{er 28724}# | |
5769 | (let ((#{x 30233}# | |
46e372ef | 5770 | (begin |
b2208d2e AW |
5771 | (if (if (pair? #{e 28932}#) |
5772 | #{s 28934}# | |
46e372ef AW |
5773 | #f) |
5774 | (set-source-properties! | |
b2208d2e AW |
5775 | #{e 28932}# |
5776 | #{s 28934}#)) | |
5777 | #{e 28932}#))) | |
5778 | (if (if (null? (car #{w 28933}#)) | |
5779 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5780 | #f) |
b2208d2e | 5781 | #{x 30233}# |
46e372ef | 5782 | (if (if (vector? |
b2208d2e | 5783 | #{x 30233}#) |
46e372ef | 5784 | (if (= (vector-length |
b2208d2e | 5785 | #{x 30233}#) |
46e372ef AW |
5786 | 4) |
5787 | (eq? (vector-ref | |
b2208d2e | 5788 | #{x 30233}# |
46e372ef AW |
5789 | 0) |
5790 | 'syntax-object) | |
5791 | #f) | |
5792 | #f) | |
b2208d2e | 5793 | (let ((#{expression 30265}# |
46e372ef | 5794 | (vector-ref |
b2208d2e | 5795 | #{x 30233}# |
46e372ef | 5796 | 1)) |
b2208d2e AW |
5797 | (#{wrap 30266}# |
5798 | (let ((#{w2 30274}# | |
46e372ef | 5799 | (vector-ref |
b2208d2e | 5800 | #{x 30233}# |
46e372ef | 5801 | 2))) |
b2208d2e AW |
5802 | (let ((#{m1 30275}# |
5803 | (car #{w 28933}#)) | |
5804 | (#{s1 30276}# | |
5805 | (cdr #{w 28933}#))) | |
5806 | (if (null? #{m1 30275}#) | |
5807 | (if (null? #{s1 30276}#) | |
5808 | #{w2 30274}# | |
5809 | (cons (car #{w2 30274}#) | |
5810 | (let ((#{m2 30291}# | |
5811 | (cdr #{w2 30274}#))) | |
5812 | (if (null? #{m2 30291}#) | |
5813 | #{s1 30276}# | |
46e372ef | 5814 | (append |
b2208d2e AW |
5815 | #{s1 30276}# |
5816 | #{m2 30291}#))))) | |
5817 | (cons (let ((#{m2 30299}# | |
5818 | (car #{w2 30274}#))) | |
5819 | (if (null? #{m2 30299}#) | |
5820 | #{m1 30275}# | |
46e372ef | 5821 | (append |
b2208d2e AW |
5822 | #{m1 30275}# |
5823 | #{m2 30299}#))) | |
5824 | (let ((#{m2 30307}# | |
5825 | (cdr #{w2 30274}#))) | |
5826 | (if (null? #{m2 30307}#) | |
5827 | #{s1 30276}# | |
46e372ef | 5828 | (append |
b2208d2e AW |
5829 | #{s1 30276}# |
5830 | #{m2 30307}#)))))))) | |
5831 | (#{module 30267}# | |
46e372ef | 5832 | (vector-ref |
b2208d2e | 5833 | #{x 30233}# |
46e372ef AW |
5834 | 3))) |
5835 | (vector | |
5836 | 'syntax-object | |
b2208d2e AW |
5837 | #{expression 30265}# |
5838 | #{wrap 30266}# | |
5839 | #{module 30267}#)) | |
5840 | (if (null? #{x 30233}#) | |
5841 | #{x 30233}# | |
46e372ef AW |
5842 | (vector |
5843 | 'syntax-object | |
b2208d2e AW |
5844 | #{x 30233}# |
5845 | #{w 28933}# | |
5846 | #{mod 28935}#)))))) | |
5847 | (cdr #{body 28716}#)))) | |
840cf0d1 | 5848 | (begin |
b2208d2e AW |
5849 | (if (not (#{valid-bound-ids? 4433}# |
5850 | #{ids 28717}#)) | |
840cf0d1 AW |
5851 | (syntax-violation |
5852 | #f | |
5853 | "invalid or duplicate identifier in definition" | |
b2208d2e | 5854 | #{outer-form 28601}#)) |
840cf0d1 | 5855 | (letrec* |
b2208d2e AW |
5856 | ((#{loop 30406}# |
5857 | (lambda (#{bs 30409}# | |
5858 | #{er-cache 30410}# | |
5859 | #{r-cache 30411}#) | |
5860 | (if (not (null? #{bs 30409}#)) | |
5861 | (let ((#{b 30412}# | |
5862 | (car #{bs 30409}#))) | |
5863 | (if (let ((#{t 30415}# | |
5864 | (car #{b 30412}#))) | |
5865 | (if (eq? #{t 30415}# | |
0f9f51a1 AW |
5866 | 'macro) |
5867 | #t | |
b2208d2e | 5868 | (eq? #{t 30415}# |
0f9f51a1 | 5869 | 'syntax-parameter))) |
b2208d2e AW |
5870 | (let ((#{er 30417}# |
5871 | (car (cdr #{b 30412}#)))) | |
5872 | (let ((#{r-cache 30418}# | |
5873 | (if (eq? #{er 30417}# | |
5874 | #{er-cache 30410}#) | |
5875 | #{r-cache 30411}# | |
5876 | (#{macros-only-env 4407}# | |
5877 | #{er 30417}#)))) | |
840cf0d1 AW |
5878 | (begin |
5879 | (set-cdr! | |
b2208d2e AW |
5880 | #{b 30412}# |
5881 | (#{eval-local-transformer 4449}# | |
5882 | (#{expand 4443}# | |
5883 | (cdr (cdr #{b 30412}#)) | |
5884 | #{r-cache 30418}# | |
840cf0d1 | 5885 | '(()) |
b2208d2e AW |
5886 | #{mod 28935}#) |
5887 | #{mod 28935}#)) | |
5888 | (if (eq? (car #{b 30412}#) | |
0f9f51a1 AW |
5889 | 'syntax-parameter) |
5890 | (set-cdr! | |
b2208d2e AW |
5891 | #{b 30412}# |
5892 | (list (cdr #{b 30412}#)))) | |
5893 | (#{loop 30406}# | |
5894 | (cdr #{bs 30409}#) | |
5895 | #{er 30417}# | |
5896 | #{r-cache 30418}#)))) | |
5897 | (#{loop 30406}# | |
5898 | (cdr #{bs 30409}#) | |
5899 | #{er-cache 30410}# | |
5900 | #{r-cache 30411}#))))))) | |
5901 | (#{loop 30406}# | |
5902 | #{bindings 28722}# | |
840cf0d1 AW |
5903 | #f |
5904 | #f)) | |
5905 | (set-cdr! | |
b2208d2e AW |
5906 | #{r 28605}# |
5907 | (#{extend-env 4405}# | |
5908 | #{labels 28718}# | |
5909 | #{bindings 28722}# | |
5910 | (cdr #{r 28605}#))) | |
5911 | (#{build-letrec 4395}# | |
840cf0d1 AW |
5912 | #f |
5913 | #t | |
5914 | (reverse | |
5915 | (map syntax->datum | |
b2208d2e AW |
5916 | #{var-ids 28719}#)) |
5917 | (reverse #{vars 28720}#) | |
5918 | (map (lambda (#{x 30846}#) | |
5919 | (#{expand 4443}# | |
5920 | (cdr #{x 30846}#) | |
5921 | (car #{x 30846}#) | |
840cf0d1 | 5922 | '(()) |
b2208d2e AW |
5923 | #{mod 28935}#)) |
5924 | (reverse #{vals 28721}#)) | |
5925 | (#{build-sequence 4392}# | |
840cf0d1 | 5926 | #f |
b2208d2e AW |
5927 | (map (lambda (#{x 30990}#) |
5928 | (#{expand 4443}# | |
5929 | (cdr #{x 30990}#) | |
5930 | (car #{x 30990}#) | |
840cf0d1 | 5931 | '(()) |
b2208d2e AW |
5932 | #{mod 28935}#)) |
5933 | (cons (cons #{er 28724}# | |
5934 | (let ((#{x 31069}# | |
46e372ef | 5935 | (begin |
b2208d2e AW |
5936 | (if (if (pair? #{e 28932}#) |
5937 | #{s 28934}# | |
46e372ef AW |
5938 | #f) |
5939 | (set-source-properties! | |
b2208d2e AW |
5940 | #{e 28932}# |
5941 | #{s 28934}#)) | |
5942 | #{e 28932}#))) | |
5943 | (if (if (null? (car #{w 28933}#)) | |
5944 | (null? (cdr #{w 28933}#)) | |
46e372ef | 5945 | #f) |
b2208d2e | 5946 | #{x 31069}# |
46e372ef | 5947 | (if (if (vector? |
b2208d2e | 5948 | #{x 31069}#) |
46e372ef | 5949 | (if (= (vector-length |
b2208d2e | 5950 | #{x 31069}#) |
46e372ef AW |
5951 | 4) |
5952 | (eq? (vector-ref | |
b2208d2e | 5953 | #{x 31069}# |
46e372ef AW |
5954 | 0) |
5955 | 'syntax-object) | |
5956 | #f) | |
5957 | #f) | |
b2208d2e | 5958 | (let ((#{expression 31101}# |
46e372ef | 5959 | (vector-ref |
b2208d2e | 5960 | #{x 31069}# |
46e372ef | 5961 | 1)) |
b2208d2e AW |
5962 | (#{wrap 31102}# |
5963 | (let ((#{w2 31110}# | |
46e372ef | 5964 | (vector-ref |
b2208d2e | 5965 | #{x 31069}# |
46e372ef | 5966 | 2))) |
b2208d2e AW |
5967 | (let ((#{m1 31111}# |
5968 | (car #{w 28933}#)) | |
5969 | (#{s1 31112}# | |
5970 | (cdr #{w 28933}#))) | |
5971 | (if (null? #{m1 31111}#) | |
5972 | (if (null? #{s1 31112}#) | |
5973 | #{w2 31110}# | |
5974 | (cons (car #{w2 31110}#) | |
5975 | (let ((#{m2 31127}# | |
5976 | (cdr #{w2 31110}#))) | |
5977 | (if (null? #{m2 31127}#) | |
5978 | #{s1 31112}# | |
46e372ef | 5979 | (append |
b2208d2e AW |
5980 | #{s1 31112}# |
5981 | #{m2 31127}#))))) | |
5982 | (cons (let ((#{m2 31135}# | |
5983 | (car #{w2 31110}#))) | |
5984 | (if (null? #{m2 31135}#) | |
5985 | #{m1 31111}# | |
46e372ef | 5986 | (append |
b2208d2e AW |
5987 | #{m1 31111}# |
5988 | #{m2 31135}#))) | |
5989 | (let ((#{m2 31143}# | |
5990 | (cdr #{w2 31110}#))) | |
5991 | (if (null? #{m2 31143}#) | |
5992 | #{s1 31112}# | |
46e372ef | 5993 | (append |
b2208d2e AW |
5994 | #{s1 31112}# |
5995 | #{m2 31143}#)))))))) | |
5996 | (#{module 31103}# | |
46e372ef | 5997 | (vector-ref |
b2208d2e | 5998 | #{x 31069}# |
46e372ef AW |
5999 | 3))) |
6000 | (vector | |
6001 | 'syntax-object | |
b2208d2e AW |
6002 | #{expression 31101}# |
6003 | #{wrap 31102}# | |
6004 | #{module 31103}#)) | |
6005 | (if (null? #{x 31069}#) | |
6006 | #{x 31069}# | |
46e372ef AW |
6007 | (vector |
6008 | 'syntax-object | |
b2208d2e AW |
6009 | #{x 31069}# |
6010 | #{w 28933}# | |
6011 | #{mod 28935}#)))))) | |
6012 | (cdr #{body 28716}#)))))))))))))))))) | |
6013 | (#{parse 28608}# | |
6014 | (map (lambda (#{x 28611}#) | |
6015 | (cons #{r 28605}# | |
6016 | (if (if (null? (car #{w 28607}#)) | |
6017 | (null? (cdr #{w 28607}#)) | |
46e372ef | 6018 | #f) |
b2208d2e AW |
6019 | #{x 28611}# |
6020 | (if (if (vector? #{x 28611}#) | |
6021 | (if (= (vector-length #{x 28611}#) 4) | |
6022 | (eq? (vector-ref #{x 28611}# 0) | |
46e372ef AW |
6023 | 'syntax-object) |
6024 | #f) | |
6025 | #f) | |
b2208d2e AW |
6026 | (let ((#{expression 28647}# |
6027 | (vector-ref #{x 28611}# 1)) | |
6028 | (#{wrap 28648}# | |
6029 | (let ((#{w2 28658}# | |
6030 | (vector-ref #{x 28611}# 2))) | |
6031 | (let ((#{m1 28659}# | |
6032 | (car #{w 28607}#)) | |
6033 | (#{s1 28660}# | |
6034 | (cdr #{w 28607}#))) | |
6035 | (if (null? #{m1 28659}#) | |
6036 | (if (null? #{s1 28660}#) | |
6037 | #{w2 28658}# | |
6038 | (cons (car #{w2 28658}#) | |
6039 | (let ((#{m2 28677}# | |
6040 | (cdr #{w2 28658}#))) | |
6041 | (if (null? #{m2 28677}#) | |
6042 | #{s1 28660}# | |
46e372ef | 6043 | (append |
b2208d2e AW |
6044 | #{s1 28660}# |
6045 | #{m2 28677}#))))) | |
6046 | (cons (let ((#{m2 28685}# | |
6047 | (car #{w2 28658}#))) | |
6048 | (if (null? #{m2 28685}#) | |
6049 | #{m1 28659}# | |
46e372ef | 6050 | (append |
b2208d2e AW |
6051 | #{m1 28659}# |
6052 | #{m2 28685}#))) | |
6053 | (let ((#{m2 28693}# | |
6054 | (cdr #{w2 28658}#))) | |
6055 | (if (null? #{m2 28693}#) | |
6056 | #{s1 28660}# | |
46e372ef | 6057 | (append |
b2208d2e AW |
6058 | #{s1 28660}# |
6059 | #{m2 28693}#)))))))) | |
6060 | (#{module 28649}# | |
6061 | (vector-ref #{x 28611}# 3))) | |
46e372ef AW |
6062 | (vector |
6063 | 'syntax-object | |
b2208d2e AW |
6064 | #{expression 28647}# |
6065 | #{wrap 28648}# | |
6066 | #{module 28649}#)) | |
6067 | (if (null? #{x 28611}#) | |
6068 | #{x 28611}# | |
46e372ef AW |
6069 | (vector |
6070 | 'syntax-object | |
b2208d2e AW |
6071 | #{x 28611}# |
6072 | #{w 28607}# | |
6073 | #{mod 28604}#)))))) | |
6074 | #{body 28600}#) | |
840cf0d1 AW |
6075 | '() |
6076 | '() | |
6077 | '() | |
6078 | '() | |
6079 | '() | |
6080 | '()))))))) | |
b2208d2e AW |
6081 | (#{expand-local-syntax 4448}# |
6082 | (lambda (#{rec? 31158}# | |
6083 | #{e 31159}# | |
6084 | #{r 31160}# | |
6085 | #{w 31161}# | |
6086 | #{s 31162}# | |
6087 | #{mod 31163}# | |
6088 | #{k 31164}#) | |
6089 | (let ((#{tmp 31166}# | |
840cf0d1 | 6090 | ($sc-dispatch |
b2208d2e | 6091 | #{e 31159}# |
840cf0d1 | 6092 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 6093 | (if #{tmp 31166}# |
840cf0d1 | 6094 | (@apply |
b2208d2e AW |
6095 | (lambda (#{id 31170}# |
6096 | #{val 31171}# | |
6097 | #{e1 31172}# | |
6098 | #{e2 31173}#) | |
6099 | (if (not (#{valid-bound-ids? 4433}# #{id 31170}#)) | |
840cf0d1 AW |
6100 | (syntax-violation |
6101 | #f | |
6102 | "duplicate bound keyword" | |
b2208d2e AW |
6103 | #{e 31159}#) |
6104 | (let ((#{labels 31270}# | |
6105 | (#{gen-labels 4413}# #{id 31170}#))) | |
6106 | (let ((#{new-w 31271}# | |
6107 | (#{make-binding-wrap 4424}# | |
6108 | #{id 31170}# | |
6109 | #{labels 31270}# | |
6110 | #{w 31161}#))) | |
6111 | (#{k 31164}# | |
6112 | (cons #{e1 31172}# #{e2 31173}#) | |
6113 | (#{extend-env 4405}# | |
6114 | #{labels 31270}# | |
6115 | (let ((#{trans-r 31311}# | |
6116 | (#{macros-only-env 4407}# #{r 31160}#))) | |
840cf0d1 | 6117 | (begin |
b2208d2e AW |
6118 | (if #{rec? 31158}# (if #f #f)) |
6119 | (map (lambda (#{x 31312}#) | |
840cf0d1 | 6120 | (cons 'macro |
b2208d2e AW |
6121 | (#{eval-local-transformer 4449}# |
6122 | (#{expand 4443}# | |
6123 | #{x 31312}# | |
6124 | #{trans-r 31311}# | |
6125 | (if #{rec? 31158}# | |
6126 | #{new-w 31271}# | |
6127 | #{w 31161}#) | |
6128 | #{mod 31163}#) | |
6129 | #{mod 31163}#))) | |
6130 | #{val 31171}#))) | |
6131 | #{r 31160}#) | |
6132 | #{new-w 31271}# | |
6133 | #{s 31162}# | |
6134 | #{mod 31163}#))))) | |
6135 | #{tmp 31166}#) | |
840cf0d1 AW |
6136 | (syntax-violation |
6137 | #f | |
6138 | "bad local syntax definition" | |
b2208d2e | 6139 | (let ((#{x 31645}# |
46e372ef | 6140 | (begin |
b2208d2e AW |
6141 | (if (if (pair? #{e 31159}#) #{s 31162}# #f) |
6142 | (set-source-properties! #{e 31159}# #{s 31162}#)) | |
6143 | #{e 31159}#))) | |
6144 | (if (if (null? (car #{w 31161}#)) | |
6145 | (null? (cdr #{w 31161}#)) | |
46e372ef | 6146 | #f) |
b2208d2e AW |
6147 | #{x 31645}# |
6148 | (if (if (vector? #{x 31645}#) | |
6149 | (if (= (vector-length #{x 31645}#) 4) | |
6150 | (eq? (vector-ref #{x 31645}# 0) 'syntax-object) | |
46e372ef AW |
6151 | #f) |
6152 | #f) | |
b2208d2e AW |
6153 | (let ((#{expression 31677}# (vector-ref #{x 31645}# 1)) |
6154 | (#{wrap 31678}# | |
6155 | (let ((#{w2 31686}# (vector-ref #{x 31645}# 2))) | |
6156 | (let ((#{m1 31687}# (car #{w 31161}#)) | |
6157 | (#{s1 31688}# (cdr #{w 31161}#))) | |
6158 | (if (null? #{m1 31687}#) | |
6159 | (if (null? #{s1 31688}#) | |
6160 | #{w2 31686}# | |
6161 | (cons (car #{w2 31686}#) | |
6162 | (let ((#{m2 31703}# | |
6163 | (cdr #{w2 31686}#))) | |
6164 | (if (null? #{m2 31703}#) | |
6165 | #{s1 31688}# | |
46e372ef | 6166 | (append |
b2208d2e AW |
6167 | #{s1 31688}# |
6168 | #{m2 31703}#))))) | |
6169 | (cons (let ((#{m2 31711}# (car #{w2 31686}#))) | |
6170 | (if (null? #{m2 31711}#) | |
6171 | #{m1 31687}# | |
6172 | (append #{m1 31687}# #{m2 31711}#))) | |
6173 | (let ((#{m2 31719}# (cdr #{w2 31686}#))) | |
6174 | (if (null? #{m2 31719}#) | |
6175 | #{s1 31688}# | |
46e372ef | 6176 | (append |
b2208d2e AW |
6177 | #{s1 31688}# |
6178 | #{m2 31719}#)))))))) | |
6179 | (#{module 31679}# (vector-ref #{x 31645}# 3))) | |
46e372ef AW |
6180 | (vector |
6181 | 'syntax-object | |
b2208d2e AW |
6182 | #{expression 31677}# |
6183 | #{wrap 31678}# | |
6184 | #{module 31679}#)) | |
6185 | (if (null? #{x 31645}#) | |
6186 | #{x 31645}# | |
46e372ef AW |
6187 | (vector |
6188 | 'syntax-object | |
b2208d2e AW |
6189 | #{x 31645}# |
6190 | #{w 31161}# | |
6191 | #{mod 31163}#)))))))))) | |
6192 | (#{eval-local-transformer 4449}# | |
6193 | (lambda (#{expanded 31737}# #{mod 31738}#) | |
6194 | (let ((#{p 31739}# (primitive-eval #{expanded 31737}#))) | |
6195 | (if (procedure? #{p 31739}#) | |
6196 | #{p 31739}# | |
840cf0d1 AW |
6197 | (syntax-violation |
6198 | #f | |
6199 | "nonprocedure transformer" | |
b2208d2e AW |
6200 | #{p 31739}#))))) |
6201 | (#{ellipsis? 4451}# | |
6202 | (lambda (#{x 6020}#) | |
6203 | (if (if (if (vector? #{x 6020}#) | |
6204 | (if (= (vector-length #{x 6020}#) 4) | |
6205 | (eq? (vector-ref #{x 6020}# 0) 'syntax-object) | |
46e372ef AW |
6206 | #f) |
6207 | #f) | |
b2208d2e | 6208 | (symbol? (vector-ref #{x 6020}# 1)) |
46e372ef | 6209 | #f) |
b2208d2e AW |
6210 | (#{free-id=? 4431}# |
6211 | #{x 6020}# | |
840cf0d1 AW |
6212 | '#(syntax-object |
6213 | ... | |
6214 | ((top) | |
6215 | #(ribcage () () ()) | |
6216 | #(ribcage () () ()) | |
b2208d2e | 6217 | #(ribcage #(x) #((top)) #("i2338")) |
840cf0d1 AW |
6218 | #(ribcage |
6219 | (lambda-var-list | |
6220 | gen-var | |
6221 | strip | |
b2208d2e | 6222 | expand-lambda-case |
840cf0d1 | 6223 | lambda*-formals |
b2208d2e | 6224 | expand-simple-lambda |
840cf0d1 AW |
6225 | lambda-formals |
6226 | ellipsis? | |
b2208d2e | 6227 | expand-void |
840cf0d1 | 6228 | eval-local-transformer |
b2208d2e AW |
6229 | expand-local-syntax |
6230 | expand-body | |
6231 | expand-macro | |
6232 | expand-call | |
6233 | expand-expr | |
6234 | expand | |
840cf0d1 | 6235 | syntax-type |
b2208d2e AW |
6236 | parse-when-list |
6237 | expand-install-global | |
6238 | expand-top-sequence | |
6239 | expand-sequence | |
840cf0d1 AW |
6240 | source-wrap |
6241 | wrap | |
6242 | bound-id-member? | |
6243 | distinct-bound-ids? | |
6244 | valid-bound-ids? | |
6245 | bound-id=? | |
6246 | free-id=? | |
0f9f51a1 | 6247 | resolve-identifier |
840cf0d1 AW |
6248 | id-var-name |
6249 | same-marks? | |
6250 | join-marks | |
6251 | join-wraps | |
6252 | smart-append | |
6253 | make-binding-wrap | |
6254 | extend-ribcage! | |
6255 | make-empty-ribcage | |
6256 | new-mark | |
6257 | anti-mark | |
6258 | the-anti-mark | |
6259 | top-marked? | |
6260 | top-wrap | |
6261 | empty-wrap | |
6262 | set-ribcage-labels! | |
6263 | set-ribcage-marks! | |
6264 | set-ribcage-symnames! | |
6265 | ribcage-labels | |
6266 | ribcage-marks | |
6267 | ribcage-symnames | |
6268 | ribcage? | |
6269 | make-ribcage | |
6270 | gen-labels | |
6271 | gen-label | |
6272 | make-rename | |
6273 | rename-marks | |
6274 | rename-new | |
6275 | rename-old | |
6276 | subst-rename? | |
6277 | wrap-subst | |
6278 | wrap-marks | |
6279 | make-wrap | |
6280 | id-sym-name&marks | |
6281 | id-sym-name | |
6282 | id? | |
6283 | nonsymbol-id? | |
6284 | global-extend | |
840cf0d1 AW |
6285 | macros-only-env |
6286 | extend-var-env | |
6287 | extend-env | |
6288 | null-env | |
6289 | binding-value | |
6290 | binding-type | |
6291 | make-binding | |
6292 | arg-check | |
6293 | source-annotation | |
6294 | no-source | |
6295 | set-syntax-object-module! | |
6296 | set-syntax-object-wrap! | |
6297 | set-syntax-object-expression! | |
6298 | syntax-object-module | |
6299 | syntax-object-wrap | |
6300 | syntax-object-expression | |
6301 | syntax-object? | |
6302 | make-syntax-object | |
6303 | build-lexical-var | |
6304 | build-letrec | |
6305 | build-named-let | |
6306 | build-let | |
6307 | build-sequence | |
6308 | build-data | |
6309 | build-primref | |
6310 | build-primcall | |
6311 | build-lambda-case | |
6312 | build-case-lambda | |
6313 | build-simple-lambda | |
6314 | build-global-definition | |
6315 | build-global-assignment | |
6316 | build-global-reference | |
6317 | analyze-variable | |
6318 | build-lexical-assignment | |
6319 | build-lexical-reference | |
6320 | build-dynlet | |
6321 | build-conditional | |
6322 | build-call | |
6323 | build-void | |
6324 | maybe-name-value! | |
6325 | decorate-source | |
6326 | get-global-definition-hook | |
6327 | put-global-definition-hook | |
6328 | gensym-hook | |
6329 | local-eval-hook | |
6330 | top-level-eval-hook | |
6331 | fx< | |
6332 | fx= | |
6333 | fx- | |
6334 | fx+ | |
6335 | set-lambda-meta! | |
6336 | lambda-meta | |
6337 | lambda? | |
6338 | make-dynlet | |
6339 | make-letrec | |
6340 | make-let | |
6341 | make-lambda-case | |
6342 | make-lambda | |
6343 | make-seq | |
6344 | make-primcall | |
6345 | make-call | |
6346 | make-conditional | |
6347 | make-toplevel-define | |
6348 | make-toplevel-set | |
6349 | make-toplevel-ref | |
6350 | make-module-set | |
6351 | make-module-ref | |
6352 | make-lexical-set | |
6353 | make-lexical-ref | |
6354 | make-primitive-ref | |
6355 | make-const | |
6356 | make-void) | |
6357 | ((top) | |
6358 | (top) | |
6359 | (top) | |
6360 | (top) | |
6361 | (top) | |
6362 | (top) | |
6363 | (top) | |
6364 | (top) | |
6365 | (top) | |
6366 | (top) | |
6367 | (top) | |
6368 | (top) | |
6369 | (top) | |
6370 | (top) | |
6371 | (top) | |
6372 | (top) | |
6373 | (top) | |
6374 | (top) | |
6375 | (top) | |
6376 | (top) | |
6377 | (top) | |
6378 | (top) | |
6379 | (top) | |
6380 | (top) | |
6381 | (top) | |
6382 | (top) | |
6383 | (top) | |
6384 | (top) | |
6385 | (top) | |
6386 | (top) | |
6387 | (top) | |
6388 | (top) | |
6389 | (top) | |
6390 | (top) | |
6391 | (top) | |
6392 | (top) | |
6393 | (top) | |
6394 | (top) | |
6395 | (top) | |
6396 | (top) | |
6397 | (top) | |
6398 | (top) | |
6399 | (top) | |
6400 | (top) | |
6401 | (top) | |
6402 | (top) | |
6403 | (top) | |
6404 | (top) | |
6405 | (top) | |
6406 | (top) | |
6407 | (top) | |
6408 | (top) | |
6409 | (top) | |
6410 | (top) | |
6411 | (top) | |
6412 | (top) | |
6413 | (top) | |
6414 | (top) | |
6415 | (top) | |
6416 | (top) | |
6417 | (top) | |
6418 | (top) | |
6419 | (top) | |
6420 | (top) | |
6421 | (top) | |
6422 | (top) | |
6423 | (top) | |
6424 | (top) | |
6425 | (top) | |
6426 | (top) | |
6427 | (top) | |
6428 | (top) | |
6429 | (top) | |
6430 | (top) | |
6431 | (top) | |
6432 | (top) | |
6433 | (top) | |
6434 | (top) | |
6435 | (top) | |
6436 | (top) | |
6437 | (top) | |
6438 | (top) | |
6439 | (top) | |
6440 | (top) | |
6441 | (top) | |
6442 | (top) | |
6443 | (top) | |
6444 | (top) | |
6445 | (top) | |
6446 | (top) | |
6447 | (top) | |
6448 | (top) | |
6449 | (top) | |
6450 | (top) | |
6451 | (top) | |
6452 | (top) | |
6453 | (top) | |
6454 | (top) | |
6455 | (top) | |
6456 | (top) | |
6457 | (top) | |
6458 | (top) | |
6459 | (top) | |
6460 | (top) | |
6461 | (top) | |
6462 | (top) | |
6463 | (top) | |
6464 | (top) | |
6465 | (top) | |
6466 | (top) | |
6467 | (top) | |
6468 | (top) | |
6469 | (top) | |
6470 | (top) | |
6471 | (top) | |
6472 | (top) | |
6473 | (top) | |
6474 | (top) | |
6475 | (top) | |
6476 | (top) | |
6477 | (top) | |
6478 | (top) | |
6479 | (top) | |
6480 | (top) | |
6481 | (top) | |
6482 | (top) | |
6483 | (top) | |
6484 | (top) | |
6485 | (top) | |
6486 | (top) | |
6487 | (top) | |
6488 | (top) | |
6489 | (top) | |
6490 | (top) | |
6491 | (top) | |
6492 | (top) | |
6493 | (top) | |
6494 | (top)) | |
46e372ef AW |
6495 | ("i471" |
6496 | "i469" | |
6497 | "i467" | |
6498 | "i465" | |
6499 | "i463" | |
6500 | "i461" | |
6501 | "i459" | |
6502 | "i457" | |
6503 | "i455" | |
6504 | "i453" | |
6505 | "i451" | |
6506 | "i449" | |
6507 | "i447" | |
6508 | "i445" | |
6509 | "i443" | |
6510 | "i441" | |
6511 | "i439" | |
6512 | "i437" | |
6513 | "i435" | |
6514 | "i433" | |
6515 | "i431" | |
6516 | "i429" | |
6517 | "i427" | |
6518 | "i425" | |
6519 | "i423" | |
6520 | "i421" | |
6521 | "i419" | |
6522 | "i417" | |
6523 | "i415" | |
6524 | "i413" | |
6525 | "i411" | |
6526 | "i409" | |
6527 | "i407" | |
6528 | "i405" | |
6529 | "i403" | |
0f9f51a1 | 6530 | "i401" |
46e372ef | 6531 | "i400" |
0f9f51a1 | 6532 | "i398" |
840cf0d1 | 6533 | "i395" |
0f9f51a1 | 6534 | "i394" |
46e372ef | 6535 | "i393" |
0f9f51a1 | 6536 | "i391" |
46e372ef AW |
6537 | "i390" |
6538 | "i388" | |
6539 | "i386" | |
6540 | "i384" | |
6541 | "i382" | |
6542 | "i380" | |
6543 | "i378" | |
6544 | "i376" | |
0f9f51a1 | 6545 | "i374" |
46e372ef | 6546 | "i371" |
0f9f51a1 | 6547 | "i369" |
46e372ef AW |
6548 | "i368" |
6549 | "i366" | |
6550 | "i364" | |
6551 | "i362" | |
840cf0d1 AW |
6552 | "i360" |
6553 | "i359" | |
0f9f51a1 | 6554 | "i358" |
46e372ef | 6555 | "i357" |
0f9f51a1 AW |
6556 | "i355" |
6557 | "i354" | |
46e372ef AW |
6558 | "i351" |
6559 | "i349" | |
6560 | "i347" | |
6561 | "i345" | |
6562 | "i343" | |
6563 | "i341" | |
840cf0d1 AW |
6564 | "i340" |
6565 | "i339" | |
46e372ef AW |
6566 | "i337" |
6567 | "i335" | |
840cf0d1 | 6568 | "i334" |
46e372ef | 6569 | "i331" |
840cf0d1 | 6570 | "i330" |
46e372ef AW |
6571 | "i328" |
6572 | "i326" | |
6573 | "i324" | |
6574 | "i322" | |
6575 | "i320" | |
6576 | "i318" | |
6577 | "i316" | |
6578 | "i314" | |
6579 | "i312" | |
6580 | "i309" | |
6581 | "i307" | |
6582 | "i305" | |
6583 | "i303" | |
6584 | "i301" | |
6585 | "i299" | |
6586 | "i297" | |
6587 | "i295" | |
6588 | "i293" | |
6589 | "i291" | |
6590 | "i289" | |
6591 | "i287" | |
6592 | "i285" | |
6593 | "i283" | |
6594 | "i281" | |
6595 | "i279" | |
6596 | "i277" | |
6597 | "i275" | |
6598 | "i273" | |
6599 | "i271" | |
6600 | "i269" | |
6601 | "i267" | |
6602 | "i265" | |
6603 | "i263" | |
840cf0d1 | 6604 | "i262" |
46e372ef AW |
6605 | "i259" |
6606 | "i257" | |
840cf0d1 AW |
6607 | "i256" |
6608 | "i255" | |
6609 | "i254" | |
6610 | "i253" | |
46e372ef AW |
6611 | "i251" |
6612 | "i249" | |
6613 | "i247" | |
6614 | "i244" | |
6615 | "i242" | |
6616 | "i240" | |
6617 | "i238" | |
6618 | "i236" | |
6619 | "i234" | |
6620 | "i232" | |
6621 | "i230" | |
6622 | "i228" | |
6623 | "i226" | |
6624 | "i224" | |
6625 | "i222" | |
6626 | "i220" | |
6627 | "i218" | |
6628 | "i216" | |
6629 | "i214" | |
6630 | "i212" | |
6631 | "i210" | |
6632 | "i208")) | |
840cf0d1 AW |
6633 | #(ribcage |
6634 | (define-structure | |
6635 | define-expansion-accessors | |
6636 | define-expansion-constructors) | |
6637 | ((top) (top) (top)) | |
0f9f51a1 AW |
6638 | ("i46" "i45" "i44")) |
6639 | #(ribcage () () ())) | |
840cf0d1 AW |
6640 | (hygiene guile))) |
6641 | #f))) | |
b2208d2e AW |
6642 | (#{lambda-formals 4452}# |
6643 | (lambda (#{orig-args 31744}#) | |
840cf0d1 | 6644 | (letrec* |
b2208d2e AW |
6645 | ((#{req 31745}# |
6646 | (lambda (#{args 31749}# #{rreq 31750}#) | |
6647 | (let ((#{tmp 31752}# ($sc-dispatch #{args 31749}# '()))) | |
6648 | (if #{tmp 31752}# | |
840cf0d1 AW |
6649 | (@apply |
6650 | (lambda () | |
b2208d2e AW |
6651 | (#{check 31746}# (reverse #{rreq 31750}#) #f)) |
6652 | #{tmp 31752}#) | |
6653 | (let ((#{tmp 31868}# | |
6654 | ($sc-dispatch #{args 31749}# '(any . any)))) | |
6655 | (if (if #{tmp 31868}# | |
840cf0d1 | 6656 | (@apply |
b2208d2e AW |
6657 | (lambda (#{a 31872}# #{b 31873}#) |
6658 | (if (symbol? #{a 31872}#) | |
46e372ef | 6659 | #t |
b2208d2e AW |
6660 | (if (if (vector? #{a 31872}#) |
6661 | (if (= (vector-length #{a 31872}#) 4) | |
6662 | (eq? (vector-ref #{a 31872}# 0) | |
46e372ef AW |
6663 | 'syntax-object) |
6664 | #f) | |
6665 | #f) | |
b2208d2e | 6666 | (symbol? (vector-ref #{a 31872}# 1)) |
46e372ef | 6667 | #f))) |
b2208d2e | 6668 | #{tmp 31868}#) |
840cf0d1 AW |
6669 | #f) |
6670 | (@apply | |
b2208d2e AW |
6671 | (lambda (#{a 31900}# #{b 31901}#) |
6672 | (#{req 31745}# | |
6673 | #{b 31901}# | |
6674 | (cons #{a 31900}# #{rreq 31750}#))) | |
6675 | #{tmp 31868}#) | |
6676 | (let ((#{tmp 31902}# (list #{args 31749}#))) | |
46e372ef | 6677 | (if (@apply |
b2208d2e AW |
6678 | (lambda (#{r 31904}#) |
6679 | (if (symbol? #{r 31904}#) | |
46e372ef | 6680 | #t |
b2208d2e AW |
6681 | (if (if (vector? #{r 31904}#) |
6682 | (if (= (vector-length #{r 31904}#) 4) | |
6683 | (eq? (vector-ref #{r 31904}# 0) | |
46e372ef AW |
6684 | 'syntax-object) |
6685 | #f) | |
6686 | #f) | |
b2208d2e | 6687 | (symbol? (vector-ref #{r 31904}# 1)) |
46e372ef | 6688 | #f))) |
b2208d2e | 6689 | #{tmp 31902}#) |
840cf0d1 | 6690 | (@apply |
b2208d2e AW |
6691 | (lambda (#{r 31934}#) |
6692 | (#{check 31746}# | |
6693 | (reverse #{rreq 31750}#) | |
6694 | #{r 31934}#)) | |
6695 | #{tmp 31902}#) | |
840cf0d1 AW |
6696 | (syntax-violation |
6697 | 'lambda | |
6698 | "invalid argument list" | |
b2208d2e AW |
6699 | #{orig-args 31744}# |
6700 | #{args 31749}#))))))))) | |
6701 | (#{check 31746}# | |
6702 | (lambda (#{req 32058}# #{rest 32059}#) | |
6703 | (if (#{distinct-bound-ids? 4434}# | |
6704 | (if #{rest 32059}# | |
6705 | (cons #{rest 32059}# #{req 32058}#) | |
6706 | #{req 32058}#)) | |
6707 | (values #{req 32058}# #f #{rest 32059}# #f) | |
840cf0d1 AW |
6708 | (syntax-violation |
6709 | 'lambda | |
6710 | "duplicate identifier in argument list" | |
b2208d2e AW |
6711 | #{orig-args 31744}#))))) |
6712 | (#{req 31745}# #{orig-args 31744}# '())))) | |
6713 | (#{expand-simple-lambda 4453}# | |
6714 | (lambda (#{e 32168}# | |
6715 | #{r 32169}# | |
6716 | #{w 32170}# | |
6717 | #{s 32171}# | |
6718 | #{mod 32172}# | |
6719 | #{req 32173}# | |
6720 | #{rest 32174}# | |
6721 | #{meta 32175}# | |
6722 | #{body 32176}#) | |
6723 | (let ((#{ids 32177}# | |
6724 | (if #{rest 32174}# | |
6725 | (append #{req 32173}# (list #{rest 32174}#)) | |
6726 | #{req 32173}#))) | |
6727 | (let ((#{vars 32178}# | |
6728 | (map #{gen-var 4457}# #{ids 32177}#))) | |
6729 | (let ((#{labels 32179}# | |
6730 | (#{gen-labels 4413}# #{ids 32177}#))) | |
6731 | (#{build-simple-lambda 4386}# | |
6732 | #{s 32171}# | |
6733 | (map syntax->datum #{req 32173}#) | |
6734 | (if #{rest 32174}# | |
6735 | (syntax->datum #{rest 32174}#) | |
46e372ef | 6736 | #f) |
b2208d2e AW |
6737 | #{vars 32178}# |
6738 | #{meta 32175}# | |
6739 | (#{expand-body 4447}# | |
6740 | #{body 32176}# | |
6741 | (let ((#{x 32368}# | |
46e372ef | 6742 | (begin |
b2208d2e AW |
6743 | (if (if (pair? #{e 32168}#) #{s 32171}# #f) |
6744 | (set-source-properties! #{e 32168}# #{s 32171}#)) | |
6745 | #{e 32168}#))) | |
6746 | (if (if (null? (car #{w 32170}#)) | |
6747 | (null? (cdr #{w 32170}#)) | |
46e372ef | 6748 | #f) |
b2208d2e AW |
6749 | #{x 32368}# |
6750 | (if (if (vector? #{x 32368}#) | |
6751 | (if (= (vector-length #{x 32368}#) 4) | |
6752 | (eq? (vector-ref #{x 32368}# 0) 'syntax-object) | |
46e372ef AW |
6753 | #f) |
6754 | #f) | |
b2208d2e AW |
6755 | (let ((#{expression 32400}# (vector-ref #{x 32368}# 1)) |
6756 | (#{wrap 32401}# | |
6757 | (let ((#{w2 32409}# (vector-ref #{x 32368}# 2))) | |
6758 | (let ((#{m1 32410}# (car #{w 32170}#)) | |
6759 | (#{s1 32411}# (cdr #{w 32170}#))) | |
6760 | (if (null? #{m1 32410}#) | |
6761 | (if (null? #{s1 32411}#) | |
6762 | #{w2 32409}# | |
6763 | (cons (car #{w2 32409}#) | |
6764 | (let ((#{m2 32426}# | |
6765 | (cdr #{w2 32409}#))) | |
6766 | (if (null? #{m2 32426}#) | |
6767 | #{s1 32411}# | |
46e372ef | 6768 | (append |
b2208d2e AW |
6769 | #{s1 32411}# |
6770 | #{m2 32426}#))))) | |
6771 | (cons (let ((#{m2 32434}# | |
6772 | (car #{w2 32409}#))) | |
6773 | (if (null? #{m2 32434}#) | |
6774 | #{m1 32410}# | |
46e372ef | 6775 | (append |
b2208d2e AW |
6776 | #{m1 32410}# |
6777 | #{m2 32434}#))) | |
6778 | (let ((#{m2 32442}# | |
6779 | (cdr #{w2 32409}#))) | |
6780 | (if (null? #{m2 32442}#) | |
6781 | #{s1 32411}# | |
46e372ef | 6782 | (append |
b2208d2e AW |
6783 | #{s1 32411}# |
6784 | #{m2 32442}#)))))))) | |
6785 | (#{module 32402}# (vector-ref #{x 32368}# 3))) | |
46e372ef AW |
6786 | (vector |
6787 | 'syntax-object | |
b2208d2e AW |
6788 | #{expression 32400}# |
6789 | #{wrap 32401}# | |
6790 | #{module 32402}#)) | |
6791 | (if (null? #{x 32368}#) | |
6792 | #{x 32368}# | |
46e372ef AW |
6793 | (vector |
6794 | 'syntax-object | |
b2208d2e AW |
6795 | #{x 32368}# |
6796 | #{w 32170}# | |
6797 | #{mod 32172}#))))) | |
6798 | (#{extend-var-env 4406}# | |
6799 | #{labels 32179}# | |
6800 | #{vars 32178}# | |
6801 | #{r 32169}#) | |
6802 | (#{make-binding-wrap 4424}# | |
6803 | #{ids 32177}# | |
6804 | #{labels 32179}# | |
6805 | #{w 32170}#) | |
6806 | #{mod 32172}#))))))) | |
6807 | (#{lambda*-formals 4454}# | |
6808 | (lambda (#{orig-args 32673}#) | |
840cf0d1 | 6809 | (letrec* |
b2208d2e AW |
6810 | ((#{req 32674}# |
6811 | (lambda (#{args 32681}# #{rreq 32682}#) | |
6812 | (let ((#{tmp 32684}# ($sc-dispatch #{args 32681}# '()))) | |
6813 | (if #{tmp 32684}# | |
840cf0d1 AW |
6814 | (@apply |
6815 | (lambda () | |
b2208d2e AW |
6816 | (#{check 32678}# |
6817 | (reverse #{rreq 32682}#) | |
840cf0d1 AW |
6818 | '() |
6819 | #f | |
6820 | '())) | |
b2208d2e AW |
6821 | #{tmp 32684}#) |
6822 | (let ((#{tmp 32803}# | |
6823 | ($sc-dispatch #{args 32681}# '(any . any)))) | |
6824 | (if (if #{tmp 32803}# | |
840cf0d1 | 6825 | (@apply |
b2208d2e AW |
6826 | (lambda (#{a 32807}# #{b 32808}#) |
6827 | (if (symbol? #{a 32807}#) | |
46e372ef | 6828 | #t |
b2208d2e AW |
6829 | (if (if (vector? #{a 32807}#) |
6830 | (if (= (vector-length #{a 32807}#) 4) | |
6831 | (eq? (vector-ref #{a 32807}# 0) | |
46e372ef AW |
6832 | 'syntax-object) |
6833 | #f) | |
6834 | #f) | |
b2208d2e | 6835 | (symbol? (vector-ref #{a 32807}# 1)) |
46e372ef | 6836 | #f))) |
b2208d2e | 6837 | #{tmp 32803}#) |
840cf0d1 AW |
6838 | #f) |
6839 | (@apply | |
b2208d2e AW |
6840 | (lambda (#{a 32835}# #{b 32836}#) |
6841 | (#{req 32674}# | |
6842 | #{b 32836}# | |
6843 | (cons #{a 32835}# #{rreq 32682}#))) | |
6844 | #{tmp 32803}#) | |
6845 | (let ((#{tmp 32837}# | |
6846 | ($sc-dispatch #{args 32681}# '(any . any)))) | |
6847 | (if (if #{tmp 32837}# | |
840cf0d1 | 6848 | (@apply |
b2208d2e AW |
6849 | (lambda (#{a 32841}# #{b 32842}#) |
6850 | (eq? (syntax->datum #{a 32841}#) #:optional)) | |
6851 | #{tmp 32837}#) | |
840cf0d1 AW |
6852 | #f) |
6853 | (@apply | |
b2208d2e AW |
6854 | (lambda (#{a 32843}# #{b 32844}#) |
6855 | (#{opt 32675}# | |
6856 | #{b 32844}# | |
6857 | (reverse #{rreq 32682}#) | |
840cf0d1 | 6858 | '())) |
b2208d2e AW |
6859 | #{tmp 32837}#) |
6860 | (let ((#{tmp 32847}# | |
6861 | ($sc-dispatch #{args 32681}# '(any . any)))) | |
6862 | (if (if #{tmp 32847}# | |
840cf0d1 | 6863 | (@apply |
b2208d2e AW |
6864 | (lambda (#{a 32851}# #{b 32852}#) |
6865 | (eq? (syntax->datum #{a 32851}#) #:key)) | |
6866 | #{tmp 32847}#) | |
840cf0d1 AW |
6867 | #f) |
6868 | (@apply | |
b2208d2e AW |
6869 | (lambda (#{a 32853}# #{b 32854}#) |
6870 | (#{key 32676}# | |
6871 | #{b 32854}# | |
6872 | (reverse #{rreq 32682}#) | |
840cf0d1 AW |
6873 | '() |
6874 | '())) | |
b2208d2e AW |
6875 | #{tmp 32847}#) |
6876 | (let ((#{tmp 32857}# | |
46e372ef | 6877 | ($sc-dispatch |
b2208d2e | 6878 | #{args 32681}# |
46e372ef | 6879 | '(any any)))) |
b2208d2e | 6880 | (if (if #{tmp 32857}# |
840cf0d1 | 6881 | (@apply |
b2208d2e AW |
6882 | (lambda (#{a 32861}# #{b 32862}#) |
6883 | (eq? (syntax->datum #{a 32861}#) | |
840cf0d1 | 6884 | #:rest)) |
b2208d2e | 6885 | #{tmp 32857}#) |
840cf0d1 AW |
6886 | #f) |
6887 | (@apply | |
b2208d2e AW |
6888 | (lambda (#{a 32863}# #{b 32864}#) |
6889 | (#{rest 32677}# | |
6890 | #{b 32864}# | |
6891 | (reverse #{rreq 32682}#) | |
840cf0d1 AW |
6892 | '() |
6893 | '())) | |
b2208d2e AW |
6894 | #{tmp 32857}#) |
6895 | (let ((#{tmp 32867}# (list #{args 32681}#))) | |
46e372ef | 6896 | (if (@apply |
b2208d2e AW |
6897 | (lambda (#{r 32869}#) |
6898 | (if (symbol? #{r 32869}#) | |
46e372ef | 6899 | #t |
b2208d2e | 6900 | (if (if (vector? #{r 32869}#) |
46e372ef | 6901 | (if (= (vector-length |
b2208d2e | 6902 | #{r 32869}#) |
46e372ef AW |
6903 | 4) |
6904 | (eq? (vector-ref | |
b2208d2e | 6905 | #{r 32869}# |
46e372ef AW |
6906 | 0) |
6907 | 'syntax-object) | |
6908 | #f) | |
6909 | #f) | |
6910 | (symbol? | |
b2208d2e | 6911 | (vector-ref #{r 32869}# 1)) |
46e372ef | 6912 | #f))) |
b2208d2e | 6913 | #{tmp 32867}#) |
840cf0d1 | 6914 | (@apply |
b2208d2e AW |
6915 | (lambda (#{r 32899}#) |
6916 | (#{rest 32677}# | |
6917 | #{r 32899}# | |
6918 | (reverse #{rreq 32682}#) | |
840cf0d1 AW |
6919 | '() |
6920 | '())) | |
b2208d2e | 6921 | #{tmp 32867}#) |
840cf0d1 AW |
6922 | (syntax-violation |
6923 | 'lambda* | |
6924 | "invalid argument list" | |
b2208d2e AW |
6925 | #{orig-args 32673}# |
6926 | #{args 32681}#))))))))))))))) | |
6927 | (#{opt 32675}# | |
6928 | (lambda (#{args 32918}# #{req 32919}# #{ropt 32920}#) | |
6929 | (let ((#{tmp 32922}# ($sc-dispatch #{args 32918}# '()))) | |
6930 | (if #{tmp 32922}# | |
840cf0d1 AW |
6931 | (@apply |
6932 | (lambda () | |
b2208d2e AW |
6933 | (#{check 32678}# |
6934 | #{req 32919}# | |
6935 | (reverse #{ropt 32920}#) | |
840cf0d1 AW |
6936 | #f |
6937 | '())) | |
b2208d2e AW |
6938 | #{tmp 32922}#) |
6939 | (let ((#{tmp 33043}# | |
6940 | ($sc-dispatch #{args 32918}# '(any . any)))) | |
6941 | (if (if #{tmp 33043}# | |
840cf0d1 | 6942 | (@apply |
b2208d2e AW |
6943 | (lambda (#{a 33047}# #{b 33048}#) |
6944 | (if (symbol? #{a 33047}#) | |
46e372ef | 6945 | #t |
b2208d2e AW |
6946 | (if (if (vector? #{a 33047}#) |
6947 | (if (= (vector-length #{a 33047}#) 4) | |
6948 | (eq? (vector-ref #{a 33047}# 0) | |
46e372ef AW |
6949 | 'syntax-object) |
6950 | #f) | |
6951 | #f) | |
b2208d2e | 6952 | (symbol? (vector-ref #{a 33047}# 1)) |
46e372ef | 6953 | #f))) |
b2208d2e | 6954 | #{tmp 33043}#) |
840cf0d1 AW |
6955 | #f) |
6956 | (@apply | |
b2208d2e AW |
6957 | (lambda (#{a 33075}# #{b 33076}#) |
6958 | (#{opt 32675}# | |
6959 | #{b 33076}# | |
6960 | #{req 32919}# | |
6961 | (cons (cons #{a 33075}# | |
840cf0d1 AW |
6962 | '(#(syntax-object |
6963 | #f | |
6964 | ((top) | |
6965 | #(ribcage | |
6966 | #(a b) | |
6967 | #((top) (top)) | |
b2208d2e | 6968 | #("i2477" "i2478")) |
840cf0d1 AW |
6969 | #(ribcage () () ()) |
6970 | #(ribcage | |
6971 | #(args req ropt) | |
6972 | #((top) (top) (top)) | |
b2208d2e | 6973 | #("i2467" "i2468" "i2469")) |
840cf0d1 AW |
6974 | #(ribcage |
6975 | (check rest key opt req) | |
6976 | ((top) (top) (top) (top) (top)) | |
b2208d2e AW |
6977 | ("i2413" |
6978 | "i2411" | |
6979 | "i2409" | |
6980 | "i2407" | |
6981 | "i2405")) | |
840cf0d1 AW |
6982 | #(ribcage |
6983 | #(orig-args) | |
6984 | #((top)) | |
b2208d2e | 6985 | #("i2404")) |
840cf0d1 AW |
6986 | #(ribcage |
6987 | (lambda-var-list | |
6988 | gen-var | |
6989 | strip | |
78a47455 | 6990 | expand-lambda-case |
840cf0d1 | 6991 | lambda*-formals |
78a47455 | 6992 | expand-simple-lambda |
840cf0d1 AW |
6993 | lambda-formals |
6994 | ellipsis? | |
78a47455 | 6995 | expand-void |
840cf0d1 | 6996 | eval-local-transformer |
78a47455 AW |
6997 | expand-local-syntax |
6998 | expand-body | |
6999 | expand-macro | |
b2208d2e | 7000 | expand-call |
78a47455 AW |
7001 | expand-expr |
7002 | expand | |
840cf0d1 | 7003 | syntax-type |
440ac793 | 7004 | parse-when-list |
78a47455 AW |
7005 | expand-install-global |
7006 | expand-top-sequence | |
7007 | expand-sequence | |
840cf0d1 AW |
7008 | source-wrap |
7009 | wrap | |
7010 | bound-id-member? | |
7011 | distinct-bound-ids? | |
7012 | valid-bound-ids? | |
7013 | bound-id=? | |
7014 | free-id=? | |
0f9f51a1 | 7015 | resolve-identifier |
840cf0d1 AW |
7016 | id-var-name |
7017 | same-marks? | |
7018 | join-marks | |
7019 | join-wraps | |
7020 | smart-append | |
7021 | make-binding-wrap | |
7022 | extend-ribcage! | |
7023 | make-empty-ribcage | |
7024 | new-mark | |
7025 | anti-mark | |
7026 | the-anti-mark | |
7027 | top-marked? | |
7028 | top-wrap | |
7029 | empty-wrap | |
7030 | set-ribcage-labels! | |
7031 | set-ribcage-marks! | |
7032 | set-ribcage-symnames! | |
7033 | ribcage-labels | |
7034 | ribcage-marks | |
7035 | ribcage-symnames | |
7036 | ribcage? | |
7037 | make-ribcage | |
7038 | gen-labels | |
7039 | gen-label | |
7040 | make-rename | |
7041 | rename-marks | |
7042 | rename-new | |
7043 | rename-old | |
7044 | subst-rename? | |
7045 | wrap-subst | |
7046 | wrap-marks | |
7047 | make-wrap | |
7048 | id-sym-name&marks | |
7049 | id-sym-name | |
7050 | id? | |
7051 | nonsymbol-id? | |
7052 | global-extend | |
840cf0d1 AW |
7053 | macros-only-env |
7054 | extend-var-env | |
7055 | extend-env | |
7056 | null-env | |
7057 | binding-value | |
7058 | binding-type | |
7059 | make-binding | |
7060 | arg-check | |
7061 | source-annotation | |
7062 | no-source | |
7063 | set-syntax-object-module! | |
7064 | set-syntax-object-wrap! | |
7065 | set-syntax-object-expression! | |
7066 | syntax-object-module | |
7067 | syntax-object-wrap | |
7068 | syntax-object-expression | |
7069 | syntax-object? | |
7070 | make-syntax-object | |
7071 | build-lexical-var | |
7072 | build-letrec | |
7073 | build-named-let | |
7074 | build-let | |
7075 | build-sequence | |
7076 | build-data | |
7077 | build-primref | |
7078 | build-primcall | |
7079 | build-lambda-case | |
7080 | build-case-lambda | |
7081 | build-simple-lambda | |
7082 | build-global-definition | |
7083 | build-global-assignment | |
7084 | build-global-reference | |
7085 | analyze-variable | |
7086 | build-lexical-assignment | |
7087 | build-lexical-reference | |
7088 | build-dynlet | |
7089 | build-conditional | |
7090 | build-call | |
7091 | build-void | |
7092 | maybe-name-value! | |
7093 | decorate-source | |
7094 | get-global-definition-hook | |
7095 | put-global-definition-hook | |
7096 | gensym-hook | |
7097 | local-eval-hook | |
7098 | top-level-eval-hook | |
7099 | fx< | |
7100 | fx= | |
7101 | fx- | |
7102 | fx+ | |
7103 | set-lambda-meta! | |
7104 | lambda-meta | |
7105 | lambda? | |
7106 | make-dynlet | |
7107 | make-letrec | |
7108 | make-let | |
7109 | make-lambda-case | |
7110 | make-lambda | |
7111 | make-seq | |
7112 | make-primcall | |
7113 | make-call | |
7114 | make-conditional | |
7115 | make-toplevel-define | |
7116 | make-toplevel-set | |
7117 | make-toplevel-ref | |
7118 | make-module-set | |
7119 | make-module-ref | |
7120 | make-lexical-set | |
7121 | make-lexical-ref | |
7122 | make-primitive-ref | |
7123 | make-const | |
7124 | make-void) | |
7125 | ((top) | |
7126 | (top) | |
7127 | (top) | |
7128 | (top) | |
7129 | (top) | |
7130 | (top) | |
7131 | (top) | |
7132 | (top) | |
7133 | (top) | |
7134 | (top) | |
7135 | (top) | |
7136 | (top) | |
7137 | (top) | |
7138 | (top) | |
7139 | (top) | |
7140 | (top) | |
7141 | (top) | |
7142 | (top) | |
7143 | (top) | |
7144 | (top) | |
7145 | (top) | |
7146 | (top) | |
7147 | (top) | |
7148 | (top) | |
7149 | (top) | |
7150 | (top) | |
7151 | (top) | |
7152 | (top) | |
7153 | (top) | |
7154 | (top) | |
7155 | (top) | |
7156 | (top) | |
7157 | (top) | |
7158 | (top) | |
7159 | (top) | |
7160 | (top) | |
7161 | (top) | |
7162 | (top) | |
7163 | (top) | |
7164 | (top) | |
7165 | (top) | |
7166 | (top) | |
7167 | (top) | |
7168 | (top) | |
7169 | (top) | |
7170 | (top) | |
7171 | (top) | |
7172 | (top) | |
7173 | (top) | |
7174 | (top) | |
7175 | (top) | |
7176 | (top) | |
7177 | (top) | |
7178 | (top) | |
7179 | (top) | |
7180 | (top) | |
7181 | (top) | |
7182 | (top) | |
7183 | (top) | |
7184 | (top) | |
7185 | (top) | |
7186 | (top) | |
7187 | (top) | |
7188 | (top) | |
7189 | (top) | |
7190 | (top) | |
7191 | (top) | |
7192 | (top) | |
7193 | (top) | |
7194 | (top) | |
7195 | (top) | |
7196 | (top) | |
7197 | (top) | |
7198 | (top) | |
7199 | (top) | |
7200 | (top) | |
7201 | (top) | |
7202 | (top) | |
7203 | (top) | |
7204 | (top) | |
7205 | (top) | |
7206 | (top) | |
7207 | (top) | |
7208 | (top) | |
7209 | (top) | |
7210 | (top) | |
7211 | (top) | |
7212 | (top) | |
7213 | (top) | |
7214 | (top) | |
7215 | (top) | |
7216 | (top) | |
7217 | (top) | |
7218 | (top) | |
7219 | (top) | |
7220 | (top) | |
7221 | (top) | |
7222 | (top) | |
7223 | (top) | |
7224 | (top) | |
7225 | (top) | |
7226 | (top) | |
7227 | (top) | |
7228 | (top) | |
7229 | (top) | |
7230 | (top) | |
7231 | (top) | |
7232 | (top) | |
7233 | (top) | |
7234 | (top) | |
7235 | (top) | |
7236 | (top) | |
7237 | (top) | |
7238 | (top) | |
7239 | (top) | |
7240 | (top) | |
7241 | (top) | |
7242 | (top) | |
7243 | (top) | |
7244 | (top) | |
7245 | (top) | |
7246 | (top) | |
7247 | (top) | |
7248 | (top) | |
7249 | (top) | |
7250 | (top) | |
7251 | (top) | |
7252 | (top) | |
7253 | (top) | |
7254 | (top) | |
7255 | (top) | |
7256 | (top) | |
7257 | (top) | |
7258 | (top) | |
7259 | (top) | |
7260 | (top) | |
7261 | (top) | |
7262 | (top)) | |
46e372ef AW |
7263 | ("i471" |
7264 | "i469" | |
7265 | "i467" | |
7266 | "i465" | |
7267 | "i463" | |
7268 | "i461" | |
7269 | "i459" | |
7270 | "i457" | |
7271 | "i455" | |
7272 | "i453" | |
7273 | "i451" | |
7274 | "i449" | |
7275 | "i447" | |
7276 | "i445" | |
7277 | "i443" | |
7278 | "i441" | |
7279 | "i439" | |
7280 | "i437" | |
7281 | "i435" | |
7282 | "i433" | |
7283 | "i431" | |
7284 | "i429" | |
7285 | "i427" | |
7286 | "i425" | |
7287 | "i423" | |
7288 | "i421" | |
7289 | "i419" | |
7290 | "i417" | |
7291 | "i415" | |
7292 | "i413" | |
7293 | "i411" | |
7294 | "i409" | |
7295 | "i407" | |
7296 | "i405" | |
7297 | "i403" | |
0f9f51a1 | 7298 | "i401" |
46e372ef | 7299 | "i400" |
0f9f51a1 | 7300 | "i398" |
840cf0d1 | 7301 | "i395" |
0f9f51a1 | 7302 | "i394" |
46e372ef | 7303 | "i393" |
0f9f51a1 | 7304 | "i391" |
46e372ef AW |
7305 | "i390" |
7306 | "i388" | |
7307 | "i386" | |
7308 | "i384" | |
7309 | "i382" | |
7310 | "i380" | |
7311 | "i378" | |
7312 | "i376" | |
0f9f51a1 | 7313 | "i374" |
46e372ef | 7314 | "i371" |
0f9f51a1 | 7315 | "i369" |
46e372ef AW |
7316 | "i368" |
7317 | "i366" | |
7318 | "i364" | |
7319 | "i362" | |
840cf0d1 AW |
7320 | "i360" |
7321 | "i359" | |
0f9f51a1 | 7322 | "i358" |
46e372ef | 7323 | "i357" |
0f9f51a1 AW |
7324 | "i355" |
7325 | "i354" | |
46e372ef AW |
7326 | "i351" |
7327 | "i349" | |
7328 | "i347" | |
7329 | "i345" | |
7330 | "i343" | |
7331 | "i341" | |
840cf0d1 AW |
7332 | "i340" |
7333 | "i339" | |
46e372ef AW |
7334 | "i337" |
7335 | "i335" | |
840cf0d1 | 7336 | "i334" |
46e372ef | 7337 | "i331" |
840cf0d1 | 7338 | "i330" |
46e372ef AW |
7339 | "i328" |
7340 | "i326" | |
7341 | "i324" | |
7342 | "i322" | |
7343 | "i320" | |
7344 | "i318" | |
7345 | "i316" | |
7346 | "i314" | |
7347 | "i312" | |
7348 | "i309" | |
7349 | "i307" | |
7350 | "i305" | |
7351 | "i303" | |
7352 | "i301" | |
7353 | "i299" | |
7354 | "i297" | |
7355 | "i295" | |
7356 | "i293" | |
7357 | "i291" | |
7358 | "i289" | |
7359 | "i287" | |
7360 | "i285" | |
7361 | "i283" | |
7362 | "i281" | |
7363 | "i279" | |
7364 | "i277" | |
7365 | "i275" | |
7366 | "i273" | |
7367 | "i271" | |
7368 | "i269" | |
7369 | "i267" | |
7370 | "i265" | |
7371 | "i263" | |
840cf0d1 | 7372 | "i262" |
46e372ef AW |
7373 | "i259" |
7374 | "i257" | |
840cf0d1 AW |
7375 | "i256" |
7376 | "i255" | |
7377 | "i254" | |
7378 | "i253" | |
46e372ef AW |
7379 | "i251" |
7380 | "i249" | |
7381 | "i247" | |
7382 | "i244" | |
7383 | "i242" | |
7384 | "i240" | |
7385 | "i238" | |
7386 | "i236" | |
7387 | "i234" | |
7388 | "i232" | |
7389 | "i230" | |
7390 | "i228" | |
7391 | "i226" | |
7392 | "i224" | |
7393 | "i222" | |
7394 | "i220" | |
7395 | "i218" | |
7396 | "i216" | |
7397 | "i214" | |
7398 | "i212" | |
7399 | "i210" | |
7400 | "i208")) | |
840cf0d1 AW |
7401 | #(ribcage |
7402 | (define-structure | |
7403 | define-expansion-accessors | |
7404 | define-expansion-constructors) | |
7405 | ((top) (top) (top)) | |
0f9f51a1 AW |
7406 | ("i46" "i45" "i44")) |
7407 | #(ribcage () () ())) | |
840cf0d1 | 7408 | (hygiene guile)))) |
b2208d2e AW |
7409 | #{ropt 32920}#))) |
7410 | #{tmp 33043}#) | |
7411 | (let ((#{tmp 33077}# | |
46e372ef | 7412 | ($sc-dispatch |
b2208d2e | 7413 | #{args 32918}# |
46e372ef | 7414 | '((any any) . any)))) |
b2208d2e | 7415 | (if (if #{tmp 33077}# |
840cf0d1 | 7416 | (@apply |
b2208d2e AW |
7417 | (lambda (#{a 33081}# |
7418 | #{init 33082}# | |
7419 | #{b 33083}#) | |
7420 | (if (symbol? #{a 33081}#) | |
46e372ef | 7421 | #t |
b2208d2e AW |
7422 | (if (if (vector? #{a 33081}#) |
7423 | (if (= (vector-length #{a 33081}#) 4) | |
7424 | (eq? (vector-ref #{a 33081}# 0) | |
46e372ef AW |
7425 | 'syntax-object) |
7426 | #f) | |
7427 | #f) | |
b2208d2e | 7428 | (symbol? (vector-ref #{a 33081}# 1)) |
46e372ef | 7429 | #f))) |
b2208d2e | 7430 | #{tmp 33077}#) |
840cf0d1 AW |
7431 | #f) |
7432 | (@apply | |
b2208d2e AW |
7433 | (lambda (#{a 33110}# #{init 33111}# #{b 33112}#) |
7434 | (#{opt 32675}# | |
7435 | #{b 33112}# | |
7436 | #{req 32919}# | |
7437 | (cons (list #{a 33110}# #{init 33111}#) | |
7438 | #{ropt 32920}#))) | |
7439 | #{tmp 33077}#) | |
7440 | (let ((#{tmp 33113}# | |
7441 | ($sc-dispatch #{args 32918}# '(any . any)))) | |
7442 | (if (if #{tmp 33113}# | |
840cf0d1 | 7443 | (@apply |
b2208d2e AW |
7444 | (lambda (#{a 33117}# #{b 33118}#) |
7445 | (eq? (syntax->datum #{a 33117}#) #:key)) | |
7446 | #{tmp 33113}#) | |
840cf0d1 AW |
7447 | #f) |
7448 | (@apply | |
b2208d2e AW |
7449 | (lambda (#{a 33119}# #{b 33120}#) |
7450 | (#{key 32676}# | |
7451 | #{b 33120}# | |
7452 | #{req 32919}# | |
7453 | (reverse #{ropt 32920}#) | |
840cf0d1 | 7454 | '())) |
b2208d2e AW |
7455 | #{tmp 33113}#) |
7456 | (let ((#{tmp 33123}# | |
46e372ef | 7457 | ($sc-dispatch |
b2208d2e | 7458 | #{args 32918}# |
46e372ef | 7459 | '(any any)))) |
b2208d2e | 7460 | (if (if #{tmp 33123}# |
840cf0d1 | 7461 | (@apply |
b2208d2e AW |
7462 | (lambda (#{a 33127}# #{b 33128}#) |
7463 | (eq? (syntax->datum #{a 33127}#) | |
840cf0d1 | 7464 | #:rest)) |
b2208d2e | 7465 | #{tmp 33123}#) |
840cf0d1 AW |
7466 | #f) |
7467 | (@apply | |
b2208d2e AW |
7468 | (lambda (#{a 33129}# #{b 33130}#) |
7469 | (#{rest 32677}# | |
7470 | #{b 33130}# | |
7471 | #{req 32919}# | |
7472 | (reverse #{ropt 32920}#) | |
840cf0d1 | 7473 | '())) |
b2208d2e AW |
7474 | #{tmp 33123}#) |
7475 | (let ((#{tmp 33133}# (list #{args 32918}#))) | |
46e372ef | 7476 | (if (@apply |
b2208d2e AW |
7477 | (lambda (#{r 33135}#) |
7478 | (if (symbol? #{r 33135}#) | |
46e372ef | 7479 | #t |
b2208d2e | 7480 | (if (if (vector? #{r 33135}#) |
46e372ef | 7481 | (if (= (vector-length |
b2208d2e | 7482 | #{r 33135}#) |
46e372ef AW |
7483 | 4) |
7484 | (eq? (vector-ref | |
b2208d2e | 7485 | #{r 33135}# |
46e372ef AW |
7486 | 0) |
7487 | 'syntax-object) | |
7488 | #f) | |
7489 | #f) | |
7490 | (symbol? | |
b2208d2e | 7491 | (vector-ref #{r 33135}# 1)) |
46e372ef | 7492 | #f))) |
b2208d2e | 7493 | #{tmp 33133}#) |
840cf0d1 | 7494 | (@apply |
b2208d2e AW |
7495 | (lambda (#{r 33165}#) |
7496 | (#{rest 32677}# | |
7497 | #{r 33165}# | |
7498 | #{req 32919}# | |
7499 | (reverse #{ropt 32920}#) | |
840cf0d1 | 7500 | '())) |
b2208d2e | 7501 | #{tmp 33133}#) |
840cf0d1 AW |
7502 | (syntax-violation |
7503 | 'lambda* | |
7504 | "invalid optional argument list" | |
b2208d2e AW |
7505 | #{orig-args 32673}# |
7506 | #{args 32918}#))))))))))))))) | |
7507 | (#{key 32676}# | |
7508 | (lambda (#{args 33184}# | |
7509 | #{req 33185}# | |
7510 | #{opt 33186}# | |
7511 | #{rkey 33187}#) | |
7512 | (let ((#{tmp 33189}# ($sc-dispatch #{args 33184}# '()))) | |
7513 | (if #{tmp 33189}# | |
840cf0d1 AW |
7514 | (@apply |
7515 | (lambda () | |
b2208d2e AW |
7516 | (#{check 32678}# |
7517 | #{req 33185}# | |
7518 | #{opt 33186}# | |
840cf0d1 | 7519 | #f |
b2208d2e AW |
7520 | (cons #f (reverse #{rkey 33187}#)))) |
7521 | #{tmp 33189}#) | |
7522 | (let ((#{tmp 33311}# | |
7523 | ($sc-dispatch #{args 33184}# '(any . any)))) | |
7524 | (if (if #{tmp 33311}# | |
840cf0d1 | 7525 | (@apply |
b2208d2e AW |
7526 | (lambda (#{a 33315}# #{b 33316}#) |
7527 | (if (symbol? #{a 33315}#) | |
46e372ef | 7528 | #t |
b2208d2e AW |
7529 | (if (if (vector? #{a 33315}#) |
7530 | (if (= (vector-length #{a 33315}#) 4) | |
7531 | (eq? (vector-ref #{a 33315}# 0) | |
46e372ef AW |
7532 | 'syntax-object) |
7533 | #f) | |
7534 | #f) | |
b2208d2e | 7535 | (symbol? (vector-ref #{a 33315}# 1)) |
46e372ef | 7536 | #f))) |
b2208d2e | 7537 | #{tmp 33311}#) |
840cf0d1 AW |
7538 | #f) |
7539 | (@apply | |
b2208d2e AW |
7540 | (lambda (#{a 33343}# #{b 33344}#) |
7541 | (let ((#{tmp 33345}# | |
840cf0d1 | 7542 | (symbol->keyword |
b2208d2e AW |
7543 | (syntax->datum #{a 33343}#)))) |
7544 | (#{key 32676}# | |
7545 | #{b 33344}# | |
7546 | #{req 33185}# | |
7547 | #{opt 33186}# | |
7548 | (cons (cons #{tmp 33345}# | |
7549 | (cons #{a 33343}# | |
840cf0d1 AW |
7550 | '(#(syntax-object |
7551 | #f | |
7552 | ((top) | |
7553 | #(ribcage () () ()) | |
7554 | #(ribcage | |
7555 | #(k) | |
7556 | #((top)) | |
b2208d2e | 7557 | #("i2540")) |
840cf0d1 AW |
7558 | #(ribcage |
7559 | #(a b) | |
7560 | #((top) (top)) | |
b2208d2e | 7561 | #("i2534" "i2535")) |
840cf0d1 AW |
7562 | #(ribcage () () ()) |
7563 | #(ribcage | |
7564 | #(args req opt rkey) | |
7565 | #((top) | |
7566 | (top) | |
7567 | (top) | |
7568 | (top)) | |
b2208d2e AW |
7569 | #("i2523" |
7570 | "i2524" | |
7571 | "i2525" | |
7572 | "i2526")) | |
840cf0d1 AW |
7573 | #(ribcage |
7574 | (check rest key opt req) | |
7575 | ((top) | |
7576 | (top) | |
7577 | (top) | |
7578 | (top) | |
7579 | (top)) | |
b2208d2e AW |
7580 | ("i2413" |
7581 | "i2411" | |
7582 | "i2409" | |
7583 | "i2407" | |
7584 | "i2405")) | |
840cf0d1 AW |
7585 | #(ribcage |
7586 | #(orig-args) | |
7587 | #((top)) | |
b2208d2e | 7588 | #("i2404")) |
840cf0d1 AW |
7589 | #(ribcage |
7590 | (lambda-var-list | |
7591 | gen-var | |
7592 | strip | |
78a47455 | 7593 | expand-lambda-case |
840cf0d1 | 7594 | lambda*-formals |
78a47455 | 7595 | expand-simple-lambda |
840cf0d1 AW |
7596 | lambda-formals |
7597 | ellipsis? | |
78a47455 | 7598 | expand-void |
840cf0d1 | 7599 | eval-local-transformer |
78a47455 AW |
7600 | expand-local-syntax |
7601 | expand-body | |
7602 | expand-macro | |
b2208d2e | 7603 | expand-call |
78a47455 AW |
7604 | expand-expr |
7605 | expand | |
840cf0d1 | 7606 | syntax-type |
440ac793 | 7607 | parse-when-list |
78a47455 AW |
7608 | expand-install-global |
7609 | expand-top-sequence | |
7610 | expand-sequence | |
840cf0d1 AW |
7611 | source-wrap |
7612 | wrap | |
7613 | bound-id-member? | |
7614 | distinct-bound-ids? | |
7615 | valid-bound-ids? | |
7616 | bound-id=? | |
7617 | free-id=? | |
0f9f51a1 | 7618 | resolve-identifier |
840cf0d1 AW |
7619 | id-var-name |
7620 | same-marks? | |
7621 | join-marks | |
7622 | join-wraps | |
7623 | smart-append | |
7624 | make-binding-wrap | |
7625 | extend-ribcage! | |
7626 | make-empty-ribcage | |
7627 | new-mark | |
7628 | anti-mark | |
7629 | the-anti-mark | |
7630 | top-marked? | |
7631 | top-wrap | |
7632 | empty-wrap | |
7633 | set-ribcage-labels! | |
7634 | set-ribcage-marks! | |
7635 | set-ribcage-symnames! | |
7636 | ribcage-labels | |
7637 | ribcage-marks | |
7638 | ribcage-symnames | |
7639 | ribcage? | |
7640 | make-ribcage | |
7641 | gen-labels | |
7642 | gen-label | |
7643 | make-rename | |
7644 | rename-marks | |
7645 | rename-new | |
7646 | rename-old | |
7647 | subst-rename? | |
7648 | wrap-subst | |
7649 | wrap-marks | |
7650 | make-wrap | |
7651 | id-sym-name&marks | |
7652 | id-sym-name | |
7653 | id? | |
7654 | nonsymbol-id? | |
7655 | global-extend | |
840cf0d1 AW |
7656 | macros-only-env |
7657 | extend-var-env | |
7658 | extend-env | |
7659 | null-env | |
7660 | binding-value | |
7661 | binding-type | |
7662 | make-binding | |
7663 | arg-check | |
7664 | source-annotation | |
7665 | no-source | |
7666 | set-syntax-object-module! | |
7667 | set-syntax-object-wrap! | |
7668 | set-syntax-object-expression! | |
7669 | syntax-object-module | |
7670 | syntax-object-wrap | |
7671 | syntax-object-expression | |
7672 | syntax-object? | |
7673 | make-syntax-object | |
7674 | build-lexical-var | |
7675 | build-letrec | |
7676 | build-named-let | |
7677 | build-let | |
7678 | build-sequence | |
7679 | build-data | |
7680 | build-primref | |
7681 | build-primcall | |
7682 | build-lambda-case | |
7683 | build-case-lambda | |
7684 | build-simple-lambda | |
7685 | build-global-definition | |
7686 | build-global-assignment | |
7687 | build-global-reference | |
7688 | analyze-variable | |
7689 | build-lexical-assignment | |
7690 | build-lexical-reference | |
7691 | build-dynlet | |
7692 | build-conditional | |
7693 | build-call | |
7694 | build-void | |
7695 | maybe-name-value! | |
7696 | decorate-source | |
7697 | get-global-definition-hook | |
7698 | put-global-definition-hook | |
7699 | gensym-hook | |
7700 | local-eval-hook | |
7701 | top-level-eval-hook | |
7702 | fx< | |
7703 | fx= | |
7704 | fx- | |
7705 | fx+ | |
7706 | set-lambda-meta! | |
7707 | lambda-meta | |
7708 | lambda? | |
7709 | make-dynlet | |
7710 | make-letrec | |
7711 | make-let | |
7712 | make-lambda-case | |
7713 | make-lambda | |
7714 | make-seq | |
7715 | make-primcall | |
7716 | make-call | |
7717 | make-conditional | |
7718 | make-toplevel-define | |
7719 | make-toplevel-set | |
7720 | make-toplevel-ref | |
7721 | make-module-set | |
7722 | make-module-ref | |
7723 | make-lexical-set | |
7724 | make-lexical-ref | |
7725 | make-primitive-ref | |
7726 | make-const | |
7727 | make-void) | |
7728 | ((top) | |
7729 | (top) | |
7730 | (top) | |
7731 | (top) | |
7732 | (top) | |
7733 | (top) | |
7734 | (top) | |
7735 | (top) | |
7736 | (top) | |
7737 | (top) | |
7738 | (top) | |
7739 | (top) | |
7740 | (top) | |
7741 | (top) | |
7742 | (top) | |
7743 | (top) | |
7744 | (top) | |
7745 | (top) | |
7746 | (top) | |
7747 | (top) | |
7748 | (top) | |
7749 | (top) | |
7750 | (top) | |
7751 | (top) | |
7752 | (top) | |
7753 | (top) | |
7754 | (top) | |
7755 | (top) | |
7756 | (top) | |
7757 | (top) | |
7758 | (top) | |
7759 | (top) | |
7760 | (top) | |
7761 | (top) | |
7762 | (top) | |
7763 | (top) | |
7764 | (top) | |
7765 | (top) | |
7766 | (top) | |
7767 | (top) | |
7768 | (top) | |
7769 | (top) | |
7770 | (top) | |
7771 | (top) | |
7772 | (top) | |
7773 | (top) | |
7774 | (top) | |
7775 | (top) | |
7776 | (top) | |
7777 | (top) | |
7778 | (top) | |
7779 | (top) | |
7780 | (top) | |
7781 | (top) | |
7782 | (top) | |
7783 | (top) | |
7784 | (top) | |
7785 | (top) | |
7786 | (top) | |
7787 | (top) | |
7788 | (top) | |
7789 | (top) | |
7790 | (top) | |
7791 | (top) | |
7792 | (top) | |
7793 | (top) | |
7794 | (top) | |
7795 | (top) | |
7796 | (top) | |
7797 | (top) | |
7798 | (top) | |
7799 | (top) | |
7800 | (top) | |
7801 | (top) | |
7802 | (top) | |
7803 | (top) | |
7804 | (top) | |
7805 | (top) | |
7806 | (top) | |
7807 | (top) | |
7808 | (top) | |
7809 | (top) | |
7810 | (top) | |
7811 | (top) | |
7812 | (top) | |
7813 | (top) | |
7814 | (top) | |
7815 | (top) | |
7816 | (top) | |
7817 | (top) | |
7818 | (top) | |
7819 | (top) | |
7820 | (top) | |
7821 | (top) | |
7822 | (top) | |
7823 | (top) | |
7824 | (top) | |
7825 | (top) | |
7826 | (top) | |
7827 | (top) | |
7828 | (top) | |
7829 | (top) | |
7830 | (top) | |
7831 | (top) | |
7832 | (top) | |
7833 | (top) | |
7834 | (top) | |
7835 | (top) | |
7836 | (top) | |
7837 | (top) | |
7838 | (top) | |
7839 | (top) | |
7840 | (top) | |
7841 | (top) | |
7842 | (top) | |
7843 | (top) | |
7844 | (top) | |
7845 | (top) | |
7846 | (top) | |
7847 | (top) | |
7848 | (top) | |
7849 | (top) | |
7850 | (top) | |
7851 | (top) | |
7852 | (top) | |
7853 | (top) | |
7854 | (top) | |
7855 | (top) | |
7856 | (top) | |
7857 | (top) | |
7858 | (top) | |
7859 | (top) | |
7860 | (top) | |
7861 | (top) | |
7862 | (top) | |
7863 | (top) | |
7864 | (top) | |
7865 | (top)) | |
46e372ef AW |
7866 | ("i471" |
7867 | "i469" | |
7868 | "i467" | |
7869 | "i465" | |
7870 | "i463" | |
7871 | "i461" | |
7872 | "i459" | |
7873 | "i457" | |
7874 | "i455" | |
7875 | "i453" | |
7876 | "i451" | |
7877 | "i449" | |
7878 | "i447" | |
7879 | "i445" | |
7880 | "i443" | |
7881 | "i441" | |
7882 | "i439" | |
7883 | "i437" | |
7884 | "i435" | |
7885 | "i433" | |
7886 | "i431" | |
7887 | "i429" | |
7888 | "i427" | |
7889 | "i425" | |
7890 | "i423" | |
7891 | "i421" | |
7892 | "i419" | |
7893 | "i417" | |
7894 | "i415" | |
7895 | "i413" | |
7896 | "i411" | |
7897 | "i409" | |
7898 | "i407" | |
7899 | "i405" | |
7900 | "i403" | |
0f9f51a1 | 7901 | "i401" |
46e372ef | 7902 | "i400" |
0f9f51a1 | 7903 | "i398" |
840cf0d1 | 7904 | "i395" |
0f9f51a1 | 7905 | "i394" |
46e372ef | 7906 | "i393" |
0f9f51a1 | 7907 | "i391" |
46e372ef AW |
7908 | "i390" |
7909 | "i388" | |
7910 | "i386" | |
7911 | "i384" | |
7912 | "i382" | |
7913 | "i380" | |
7914 | "i378" | |
7915 | "i376" | |
0f9f51a1 | 7916 | "i374" |
46e372ef | 7917 | "i371" |
0f9f51a1 | 7918 | "i369" |
46e372ef AW |
7919 | "i368" |
7920 | "i366" | |
7921 | "i364" | |
7922 | "i362" | |
840cf0d1 AW |
7923 | "i360" |
7924 | "i359" | |
0f9f51a1 | 7925 | "i358" |
46e372ef | 7926 | "i357" |
0f9f51a1 AW |
7927 | "i355" |
7928 | "i354" | |
46e372ef AW |
7929 | "i351" |
7930 | "i349" | |
7931 | "i347" | |
7932 | "i345" | |
7933 | "i343" | |
7934 | "i341" | |
840cf0d1 AW |
7935 | "i340" |
7936 | "i339" | |
46e372ef AW |
7937 | "i337" |
7938 | "i335" | |
840cf0d1 | 7939 | "i334" |
46e372ef | 7940 | "i331" |
840cf0d1 | 7941 | "i330" |
46e372ef AW |
7942 | "i328" |
7943 | "i326" | |
7944 | "i324" | |
7945 | "i322" | |
7946 | "i320" | |
7947 | "i318" | |
7948 | "i316" | |
7949 | "i314" | |
7950 | "i312" | |
7951 | "i309" | |
7952 | "i307" | |
7953 | "i305" | |
7954 | "i303" | |
7955 | "i301" | |
7956 | "i299" | |
7957 | "i297" | |
7958 | "i295" | |
7959 | "i293" | |
7960 | "i291" | |
7961 | "i289" | |
7962 | "i287" | |
7963 | "i285" | |
7964 | "i283" | |
7965 | "i281" | |
7966 | "i279" | |
7967 | "i277" | |
7968 | "i275" | |
7969 | "i273" | |
7970 | "i271" | |
7971 | "i269" | |
7972 | "i267" | |
7973 | "i265" | |
7974 | "i263" | |
840cf0d1 | 7975 | "i262" |
46e372ef AW |
7976 | "i259" |
7977 | "i257" | |
840cf0d1 AW |
7978 | "i256" |
7979 | "i255" | |
7980 | "i254" | |
7981 | "i253" | |
46e372ef AW |
7982 | "i251" |
7983 | "i249" | |
7984 | "i247" | |
7985 | "i244" | |
7986 | "i242" | |
7987 | "i240" | |
7988 | "i238" | |
7989 | "i236" | |
7990 | "i234" | |
7991 | "i232" | |
7992 | "i230" | |
7993 | "i228" | |
7994 | "i226" | |
7995 | "i224" | |
7996 | "i222" | |
7997 | "i220" | |
7998 | "i218" | |
7999 | "i216" | |
8000 | "i214" | |
8001 | "i212" | |
8002 | "i210" | |
8003 | "i208")) | |
840cf0d1 AW |
8004 | #(ribcage |
8005 | (define-structure | |
8006 | define-expansion-accessors | |
8007 | define-expansion-constructors) | |
8008 | ((top) (top) (top)) | |
0f9f51a1 AW |
8009 | ("i46" "i45" "i44")) |
8010 | #(ribcage () () ())) | |
840cf0d1 | 8011 | (hygiene guile))))) |
b2208d2e AW |
8012 | #{rkey 33187}#)))) |
8013 | #{tmp 33311}#) | |
8014 | (let ((#{tmp 33348}# | |
46e372ef | 8015 | ($sc-dispatch |
b2208d2e | 8016 | #{args 33184}# |
46e372ef | 8017 | '((any any) . any)))) |
b2208d2e | 8018 | (if (if #{tmp 33348}# |
840cf0d1 | 8019 | (@apply |
b2208d2e AW |
8020 | (lambda (#{a 33352}# |
8021 | #{init 33353}# | |
8022 | #{b 33354}#) | |
8023 | (if (symbol? #{a 33352}#) | |
46e372ef | 8024 | #t |
b2208d2e AW |
8025 | (if (if (vector? #{a 33352}#) |
8026 | (if (= (vector-length #{a 33352}#) 4) | |
8027 | (eq? (vector-ref #{a 33352}# 0) | |
46e372ef AW |
8028 | 'syntax-object) |
8029 | #f) | |
8030 | #f) | |
b2208d2e | 8031 | (symbol? (vector-ref #{a 33352}# 1)) |
46e372ef | 8032 | #f))) |
b2208d2e | 8033 | #{tmp 33348}#) |
840cf0d1 AW |
8034 | #f) |
8035 | (@apply | |
b2208d2e AW |
8036 | (lambda (#{a 33381}# #{init 33382}# #{b 33383}#) |
8037 | (let ((#{tmp 33384}# | |
840cf0d1 | 8038 | (symbol->keyword |
b2208d2e AW |
8039 | (syntax->datum #{a 33381}#)))) |
8040 | (#{key 32676}# | |
8041 | #{b 33383}# | |
8042 | #{req 33185}# | |
8043 | #{opt 33186}# | |
8044 | (cons (list #{tmp 33384}# | |
8045 | #{a 33381}# | |
8046 | #{init 33382}#) | |
8047 | #{rkey 33187}#)))) | |
8048 | #{tmp 33348}#) | |
8049 | (let ((#{tmp 33387}# | |
840cf0d1 | 8050 | ($sc-dispatch |
b2208d2e | 8051 | #{args 33184}# |
840cf0d1 | 8052 | '((any any any) . any)))) |
b2208d2e | 8053 | (if (if #{tmp 33387}# |
840cf0d1 | 8054 | (@apply |
b2208d2e AW |
8055 | (lambda (#{a 33391}# |
8056 | #{init 33392}# | |
8057 | #{k 33393}# | |
8058 | #{b 33394}#) | |
8059 | (if (if (symbol? #{a 33391}#) | |
46e372ef | 8060 | #t |
b2208d2e | 8061 | (if (if (vector? #{a 33391}#) |
46e372ef | 8062 | (if (= (vector-length |
b2208d2e | 8063 | #{a 33391}#) |
46e372ef AW |
8064 | 4) |
8065 | (eq? (vector-ref | |
b2208d2e | 8066 | #{a 33391}# |
46e372ef AW |
8067 | 0) |
8068 | 'syntax-object) | |
8069 | #f) | |
8070 | #f) | |
8071 | (symbol? | |
b2208d2e | 8072 | (vector-ref #{a 33391}# 1)) |
46e372ef | 8073 | #f)) |
b2208d2e | 8074 | (keyword? (syntax->datum #{k 33393}#)) |
840cf0d1 | 8075 | #f)) |
b2208d2e | 8076 | #{tmp 33387}#) |
840cf0d1 AW |
8077 | #f) |
8078 | (@apply | |
b2208d2e AW |
8079 | (lambda (#{a 33421}# |
8080 | #{init 33422}# | |
8081 | #{k 33423}# | |
8082 | #{b 33424}#) | |
8083 | (#{key 32676}# | |
8084 | #{b 33424}# | |
8085 | #{req 33185}# | |
8086 | #{opt 33186}# | |
8087 | (cons (list #{k 33423}# | |
8088 | #{a 33421}# | |
8089 | #{init 33422}#) | |
8090 | #{rkey 33187}#))) | |
8091 | #{tmp 33387}#) | |
8092 | (let ((#{tmp 33425}# | |
8093 | ($sc-dispatch #{args 33184}# '(any)))) | |
8094 | (if (if #{tmp 33425}# | |
840cf0d1 | 8095 | (@apply |
b2208d2e AW |
8096 | (lambda (#{aok 33429}#) |
8097 | (eq? (syntax->datum #{aok 33429}#) | |
840cf0d1 | 8098 | #:allow-other-keys)) |
b2208d2e | 8099 | #{tmp 33425}#) |
840cf0d1 AW |
8100 | #f) |
8101 | (@apply | |
b2208d2e AW |
8102 | (lambda (#{aok 33430}#) |
8103 | (#{check 32678}# | |
8104 | #{req 33185}# | |
8105 | #{opt 33186}# | |
840cf0d1 | 8106 | #f |
b2208d2e AW |
8107 | (cons #t (reverse #{rkey 33187}#)))) |
8108 | #{tmp 33425}#) | |
8109 | (let ((#{tmp 33549}# | |
840cf0d1 | 8110 | ($sc-dispatch |
b2208d2e | 8111 | #{args 33184}# |
840cf0d1 | 8112 | '(any any any)))) |
b2208d2e | 8113 | (if (if #{tmp 33549}# |
840cf0d1 | 8114 | (@apply |
b2208d2e AW |
8115 | (lambda (#{aok 33553}# |
8116 | #{a 33554}# | |
8117 | #{b 33555}#) | |
840cf0d1 | 8118 | (if (eq? (syntax->datum |
b2208d2e | 8119 | #{aok 33553}#) |
840cf0d1 | 8120 | #:allow-other-keys) |
46e372ef | 8121 | (eq? (syntax->datum |
b2208d2e | 8122 | #{a 33554}#) |
840cf0d1 AW |
8123 | #:rest) |
8124 | #f)) | |
b2208d2e | 8125 | #{tmp 33549}#) |
840cf0d1 AW |
8126 | #f) |
8127 | (@apply | |
b2208d2e AW |
8128 | (lambda (#{aok 33556}# |
8129 | #{a 33557}# | |
8130 | #{b 33558}#) | |
8131 | (#{rest 32677}# | |
8132 | #{b 33558}# | |
8133 | #{req 33185}# | |
8134 | #{opt 33186}# | |
46e372ef | 8135 | (cons #t |
b2208d2e AW |
8136 | (reverse #{rkey 33187}#)))) |
8137 | #{tmp 33549}#) | |
8138 | (let ((#{tmp 33561}# | |
840cf0d1 | 8139 | ($sc-dispatch |
b2208d2e | 8140 | #{args 33184}# |
840cf0d1 | 8141 | '(any . any)))) |
b2208d2e | 8142 | (if (if #{tmp 33561}# |
840cf0d1 | 8143 | (@apply |
b2208d2e AW |
8144 | (lambda (#{aok 33565}# |
8145 | #{r 33566}#) | |
840cf0d1 | 8146 | (if (eq? (syntax->datum |
b2208d2e | 8147 | #{aok 33565}#) |
840cf0d1 | 8148 | #:allow-other-keys) |
b2208d2e | 8149 | (if (symbol? #{r 33566}#) |
46e372ef AW |
8150 | #t |
8151 | (if (if (vector? | |
b2208d2e | 8152 | #{r 33566}#) |
46e372ef | 8153 | (if (= (vector-length |
b2208d2e | 8154 | #{r 33566}#) |
46e372ef AW |
8155 | 4) |
8156 | (eq? (vector-ref | |
b2208d2e | 8157 | #{r 33566}# |
46e372ef AW |
8158 | 0) |
8159 | 'syntax-object) | |
8160 | #f) | |
8161 | #f) | |
8162 | (symbol? | |
8163 | (vector-ref | |
b2208d2e | 8164 | #{r 33566}# |
46e372ef AW |
8165 | 1)) |
8166 | #f)) | |
840cf0d1 | 8167 | #f)) |
b2208d2e | 8168 | #{tmp 33561}#) |
840cf0d1 AW |
8169 | #f) |
8170 | (@apply | |
b2208d2e AW |
8171 | (lambda (#{aok 33593}# #{r 33594}#) |
8172 | (#{rest 32677}# | |
8173 | #{r 33594}# | |
8174 | #{req 33185}# | |
8175 | #{opt 33186}# | |
840cf0d1 AW |
8176 | (cons #t |
8177 | (reverse | |
b2208d2e AW |
8178 | #{rkey 33187}#)))) |
8179 | #{tmp 33561}#) | |
8180 | (let ((#{tmp 33597}# | |
840cf0d1 | 8181 | ($sc-dispatch |
b2208d2e | 8182 | #{args 33184}# |
840cf0d1 | 8183 | '(any any)))) |
b2208d2e | 8184 | (if (if #{tmp 33597}# |
840cf0d1 | 8185 | (@apply |
b2208d2e AW |
8186 | (lambda (#{a 33601}# |
8187 | #{b 33602}#) | |
840cf0d1 | 8188 | (eq? (syntax->datum |
b2208d2e | 8189 | #{a 33601}#) |
840cf0d1 | 8190 | #:rest)) |
b2208d2e | 8191 | #{tmp 33597}#) |
840cf0d1 AW |
8192 | #f) |
8193 | (@apply | |
b2208d2e AW |
8194 | (lambda (#{a 33603}# |
8195 | #{b 33604}#) | |
8196 | (#{rest 32677}# | |
8197 | #{b 33604}# | |
8198 | #{req 33185}# | |
8199 | #{opt 33186}# | |
840cf0d1 AW |
8200 | (cons #f |
8201 | (reverse | |
b2208d2e AW |
8202 | #{rkey 33187}#)))) |
8203 | #{tmp 33597}#) | |
8204 | (let ((#{tmp 33607}# | |
8205 | (list #{args 33184}#))) | |
46e372ef | 8206 | (if (@apply |
b2208d2e | 8207 | (lambda (#{r 33609}#) |
46e372ef | 8208 | (if (symbol? |
b2208d2e | 8209 | #{r 33609}#) |
46e372ef AW |
8210 | #t |
8211 | (if (if (vector? | |
b2208d2e | 8212 | #{r 33609}#) |
46e372ef | 8213 | (if (= (vector-length |
b2208d2e | 8214 | #{r 33609}#) |
46e372ef AW |
8215 | 4) |
8216 | (eq? (vector-ref | |
b2208d2e | 8217 | #{r 33609}# |
46e372ef AW |
8218 | 0) |
8219 | 'syntax-object) | |
8220 | #f) | |
8221 | #f) | |
8222 | (symbol? | |
8223 | (vector-ref | |
b2208d2e | 8224 | #{r 33609}# |
46e372ef AW |
8225 | 1)) |
8226 | #f))) | |
b2208d2e | 8227 | #{tmp 33607}#) |
840cf0d1 | 8228 | (@apply |
b2208d2e AW |
8229 | (lambda (#{r 33639}#) |
8230 | (#{rest 32677}# | |
8231 | #{r 33639}# | |
8232 | #{req 33185}# | |
8233 | #{opt 33186}# | |
840cf0d1 AW |
8234 | (cons #f |
8235 | (reverse | |
b2208d2e AW |
8236 | #{rkey 33187}#)))) |
8237 | #{tmp 33607}#) | |
840cf0d1 AW |
8238 | (syntax-violation |
8239 | 'lambda* | |
8240 | "invalid keyword argument list" | |
b2208d2e AW |
8241 | #{orig-args 32673}# |
8242 | #{args 33184}#))))))))))))))))))))) | |
8243 | (#{rest 32677}# | |
8244 | (lambda (#{args 33667}# | |
8245 | #{req 33668}# | |
8246 | #{opt 33669}# | |
8247 | #{kw 33670}#) | |
8248 | (let ((#{tmp 33672}# (list #{args 33667}#))) | |
46e372ef | 8249 | (if (@apply |
b2208d2e AW |
8250 | (lambda (#{r 33674}#) |
8251 | (if (symbol? #{r 33674}#) | |
46e372ef | 8252 | #t |
b2208d2e AW |
8253 | (if (if (vector? #{r 33674}#) |
8254 | (if (= (vector-length #{r 33674}#) 4) | |
8255 | (eq? (vector-ref #{r 33674}# 0) | |
46e372ef AW |
8256 | 'syntax-object) |
8257 | #f) | |
8258 | #f) | |
b2208d2e | 8259 | (symbol? (vector-ref #{r 33674}# 1)) |
46e372ef | 8260 | #f))) |
b2208d2e | 8261 | #{tmp 33672}#) |
840cf0d1 | 8262 | (@apply |
b2208d2e AW |
8263 | (lambda (#{r 33704}#) |
8264 | (#{check 32678}# | |
8265 | #{req 33668}# | |
8266 | #{opt 33669}# | |
8267 | #{r 33704}# | |
8268 | #{kw 33670}#)) | |
8269 | #{tmp 33672}#) | |
840cf0d1 AW |
8270 | (syntax-violation |
8271 | 'lambda* | |
8272 | "invalid rest argument" | |
b2208d2e AW |
8273 | #{orig-args 32673}# |
8274 | #{args 33667}#))))) | |
8275 | (#{check 32678}# | |
8276 | (lambda (#{req 33832}# | |
8277 | #{opt 33833}# | |
8278 | #{rest 33834}# | |
8279 | #{kw 33835}#) | |
8280 | (if (#{distinct-bound-ids? 4434}# | |
840cf0d1 | 8281 | (append |
b2208d2e AW |
8282 | #{req 33832}# |
8283 | (map car #{opt 33833}#) | |
8284 | (if #{rest 33834}# (list #{rest 33834}#) '()) | |
8285 | (if (pair? #{kw 33835}#) | |
8286 | (map cadr (cdr #{kw 33835}#)) | |
840cf0d1 AW |
8287 | '()))) |
8288 | (values | |
b2208d2e AW |
8289 | #{req 33832}# |
8290 | #{opt 33833}# | |
8291 | #{rest 33834}# | |
8292 | #{kw 33835}#) | |
840cf0d1 AW |
8293 | (syntax-violation |
8294 | 'lambda* | |
8295 | "duplicate identifier in argument list" | |
b2208d2e AW |
8296 | #{orig-args 32673}#))))) |
8297 | (#{req 32674}# #{orig-args 32673}# '())))) | |
8298 | (#{expand-lambda-case 4455}# | |
8299 | (lambda (#{e 33944}# | |
8300 | #{r 33945}# | |
8301 | #{w 33946}# | |
8302 | #{s 33947}# | |
8303 | #{mod 33948}# | |
8304 | #{get-formals 33949}# | |
8305 | #{clauses 33950}#) | |
840cf0d1 | 8306 | (letrec* |
b2208d2e AW |
8307 | ((#{parse-req 33951}# |
8308 | (lambda (#{req 34087}# | |
8309 | #{opt 34088}# | |
8310 | #{rest 34089}# | |
8311 | #{kw 34090}# | |
8312 | #{body 34091}#) | |
8313 | (let ((#{vars 34092}# | |
8314 | (map #{gen-var 4457}# #{req 34087}#)) | |
8315 | (#{labels 34093}# | |
8316 | (#{gen-labels 4413}# #{req 34087}#))) | |
8317 | (let ((#{r* 34094}# | |
8318 | (#{extend-var-env 4406}# | |
8319 | #{labels 34093}# | |
8320 | #{vars 34092}# | |
8321 | #{r 33945}#)) | |
8322 | (#{w* 34095}# | |
8323 | (#{make-binding-wrap 4424}# | |
8324 | #{req 34087}# | |
8325 | #{labels 34093}# | |
8326 | #{w 33946}#))) | |
8327 | (#{parse-opt 33952}# | |
8328 | (map syntax->datum #{req 34087}#) | |
8329 | #{opt 34088}# | |
8330 | #{rest 34089}# | |
8331 | #{kw 34090}# | |
8332 | #{body 34091}# | |
8333 | (reverse #{vars 34092}#) | |
8334 | #{r* 34094}# | |
8335 | #{w* 34095}# | |
46e372ef AW |
8336 | '() |
8337 | '()))))) | |
b2208d2e AW |
8338 | (#{parse-opt 33952}# |
8339 | (lambda (#{req 34331}# | |
8340 | #{opt 34332}# | |
8341 | #{rest 34333}# | |
8342 | #{kw 34334}# | |
8343 | #{body 34335}# | |
8344 | #{vars 34336}# | |
8345 | #{r* 34337}# | |
8346 | #{w* 34338}# | |
8347 | #{out 34339}# | |
8348 | #{inits 34340}#) | |
8349 | (if (pair? #{opt 34332}#) | |
8350 | (let ((#{tmp 34341}# (car #{opt 34332}#))) | |
8351 | (let ((#{tmp 34342}# | |
8352 | ($sc-dispatch #{tmp 34341}# '(any any)))) | |
8353 | (if #{tmp 34342}# | |
840cf0d1 | 8354 | (@apply |
b2208d2e AW |
8355 | (lambda (#{id 34344}# #{i 34345}#) |
8356 | (let ((#{v 34346}# | |
8357 | (let ((#{id 34354}# | |
8358 | (if (if (vector? #{id 34344}#) | |
46e372ef | 8359 | (if (= (vector-length |
b2208d2e | 8360 | #{id 34344}#) |
46e372ef AW |
8361 | 4) |
8362 | (eq? (vector-ref | |
b2208d2e | 8363 | #{id 34344}# |
46e372ef AW |
8364 | 0) |
8365 | 'syntax-object) | |
8366 | #f) | |
8367 | #f) | |
b2208d2e AW |
8368 | (vector-ref #{id 34344}# 1) |
8369 | #{id 34344}#))) | |
46e372ef AW |
8370 | (gensym |
8371 | (string-append | |
b2208d2e | 8372 | (symbol->string #{id 34354}#) |
46e372ef | 8373 | " "))))) |
b2208d2e AW |
8374 | (let ((#{l 34347}# |
8375 | (#{gen-labels 4413}# (list #{v 34346}#)))) | |
8376 | (let ((#{r** 34348}# | |
8377 | (#{extend-var-env 4406}# | |
8378 | #{l 34347}# | |
8379 | (list #{v 34346}#) | |
8380 | #{r* 34337}#))) | |
8381 | (let ((#{w** 34349}# | |
8382 | (#{make-binding-wrap 4424}# | |
8383 | (list #{id 34344}#) | |
8384 | #{l 34347}# | |
8385 | #{w* 34338}#))) | |
8386 | (#{parse-opt 33952}# | |
8387 | #{req 34331}# | |
8388 | (cdr #{opt 34332}#) | |
8389 | #{rest 34333}# | |
8390 | #{kw 34334}# | |
8391 | #{body 34335}# | |
8392 | (cons #{v 34346}# #{vars 34336}#) | |
8393 | #{r** 34348}# | |
8394 | #{w** 34349}# | |
8395 | (cons (syntax->datum #{id 34344}#) | |
8396 | #{out 34339}#) | |
8397 | (cons (#{expand 4443}# | |
8398 | #{i 34345}# | |
8399 | #{r* 34337}# | |
8400 | #{w* 34338}# | |
8401 | #{mod 33948}#) | |
8402 | #{inits 34340}#))))))) | |
8403 | #{tmp 34342}#) | |
840cf0d1 AW |
8404 | (syntax-violation |
8405 | #f | |
8406 | "source expression failed to match any pattern" | |
b2208d2e AW |
8407 | #{tmp 34341}#)))) |
8408 | (if #{rest 34333}# | |
8409 | (let ((#{v 34655}# | |
8410 | (let ((#{id 34665}# | |
8411 | (if (if (vector? #{rest 34333}#) | |
8412 | (if (= (vector-length #{rest 34333}#) | |
46e372ef | 8413 | 4) |
b2208d2e | 8414 | (eq? (vector-ref #{rest 34333}# 0) |
46e372ef AW |
8415 | 'syntax-object) |
8416 | #f) | |
8417 | #f) | |
b2208d2e AW |
8418 | (vector-ref #{rest 34333}# 1) |
8419 | #{rest 34333}#))) | |
46e372ef AW |
8420 | (gensym |
8421 | (string-append | |
b2208d2e | 8422 | (symbol->string #{id 34665}#) |
46e372ef | 8423 | " "))))) |
b2208d2e AW |
8424 | (let ((#{l 34656}# |
8425 | (#{gen-labels 4413}# (list #{v 34655}#)))) | |
8426 | (let ((#{r* 34657}# | |
8427 | (#{extend-var-env 4406}# | |
8428 | #{l 34656}# | |
8429 | (list #{v 34655}#) | |
8430 | #{r* 34337}#))) | |
8431 | (let ((#{w* 34658}# | |
8432 | (#{make-binding-wrap 4424}# | |
8433 | (list #{rest 34333}#) | |
8434 | #{l 34656}# | |
8435 | #{w* 34338}#))) | |
8436 | (#{parse-kw 33953}# | |
8437 | #{req 34331}# | |
8438 | (if (pair? #{out 34339}#) | |
8439 | (reverse #{out 34339}#) | |
840cf0d1 | 8440 | #f) |
b2208d2e AW |
8441 | (syntax->datum #{rest 34333}#) |
8442 | (if (pair? #{kw 34334}#) | |
8443 | (cdr #{kw 34334}#) | |
8444 | #{kw 34334}#) | |
8445 | #{body 34335}# | |
8446 | (cons #{v 34655}# #{vars 34336}#) | |
8447 | #{r* 34657}# | |
8448 | #{w* 34658}# | |
8449 | (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f) | |
840cf0d1 | 8450 | '() |
b2208d2e AW |
8451 | #{inits 34340}#))))) |
8452 | (#{parse-kw 33953}# | |
8453 | #{req 34331}# | |
8454 | (if (pair? #{out 34339}#) | |
8455 | (reverse #{out 34339}#) | |
840cf0d1 AW |
8456 | #f) |
8457 | #f | |
b2208d2e AW |
8458 | (if (pair? #{kw 34334}#) |
8459 | (cdr #{kw 34334}#) | |
8460 | #{kw 34334}#) | |
8461 | #{body 34335}# | |
8462 | #{vars 34336}# | |
8463 | #{r* 34337}# | |
8464 | #{w* 34338}# | |
8465 | (if (pair? #{kw 34334}#) (car #{kw 34334}#) #f) | |
840cf0d1 | 8466 | '() |
b2208d2e AW |
8467 | #{inits 34340}#))))) |
8468 | (#{parse-kw 33953}# | |
8469 | (lambda (#{req 34887}# | |
8470 | #{opt 34888}# | |
8471 | #{rest 34889}# | |
8472 | #{kw 34890}# | |
8473 | #{body 34891}# | |
8474 | #{vars 34892}# | |
8475 | #{r* 34893}# | |
8476 | #{w* 34894}# | |
8477 | #{aok 34895}# | |
8478 | #{out 34896}# | |
8479 | #{inits 34897}#) | |
8480 | (if (pair? #{kw 34890}#) | |
8481 | (let ((#{tmp 34898}# (car #{kw 34890}#))) | |
8482 | (let ((#{tmp 34899}# | |
8483 | ($sc-dispatch #{tmp 34898}# '(any any any)))) | |
8484 | (if #{tmp 34899}# | |
840cf0d1 | 8485 | (@apply |
b2208d2e AW |
8486 | (lambda (#{k 34901}# #{id 34902}# #{i 34903}#) |
8487 | (let ((#{v 34904}# | |
8488 | (let ((#{id 34912}# | |
8489 | (if (if (vector? #{id 34902}#) | |
46e372ef | 8490 | (if (= (vector-length |
b2208d2e | 8491 | #{id 34902}#) |
46e372ef AW |
8492 | 4) |
8493 | (eq? (vector-ref | |
b2208d2e | 8494 | #{id 34902}# |
46e372ef AW |
8495 | 0) |
8496 | 'syntax-object) | |
8497 | #f) | |
8498 | #f) | |
b2208d2e AW |
8499 | (vector-ref #{id 34902}# 1) |
8500 | #{id 34902}#))) | |
46e372ef AW |
8501 | (gensym |
8502 | (string-append | |
b2208d2e | 8503 | (symbol->string #{id 34912}#) |
46e372ef | 8504 | " "))))) |
b2208d2e AW |
8505 | (let ((#{l 34905}# |
8506 | (#{gen-labels 4413}# (list #{v 34904}#)))) | |
8507 | (let ((#{r** 34906}# | |
8508 | (#{extend-var-env 4406}# | |
8509 | #{l 34905}# | |
8510 | (list #{v 34904}#) | |
8511 | #{r* 34893}#))) | |
8512 | (let ((#{w** 34907}# | |
8513 | (#{make-binding-wrap 4424}# | |
8514 | (list #{id 34902}#) | |
8515 | #{l 34905}# | |
8516 | #{w* 34894}#))) | |
8517 | (#{parse-kw 33953}# | |
8518 | #{req 34887}# | |
8519 | #{opt 34888}# | |
8520 | #{rest 34889}# | |
8521 | (cdr #{kw 34890}#) | |
8522 | #{body 34891}# | |
8523 | (cons #{v 34904}# #{vars 34892}#) | |
8524 | #{r** 34906}# | |
8525 | #{w** 34907}# | |
8526 | #{aok 34895}# | |
8527 | (cons (list (syntax->datum #{k 34901}#) | |
8528 | (syntax->datum #{id 34902}#) | |
8529 | #{v 34904}#) | |
8530 | #{out 34896}#) | |
8531 | (cons (#{expand 4443}# | |
8532 | #{i 34903}# | |
8533 | #{r* 34893}# | |
8534 | #{w* 34894}# | |
8535 | #{mod 33948}#) | |
8536 | #{inits 34897}#))))))) | |
8537 | #{tmp 34899}#) | |
840cf0d1 AW |
8538 | (syntax-violation |
8539 | #f | |
8540 | "source expression failed to match any pattern" | |
b2208d2e AW |
8541 | #{tmp 34898}#)))) |
8542 | (#{parse-body 33954}# | |
8543 | #{req 34887}# | |
8544 | #{opt 34888}# | |
8545 | #{rest 34889}# | |
8546 | (if (if #{aok 34895}# | |
8547 | #{aok 34895}# | |
8548 | (pair? #{out 34896}#)) | |
8549 | (cons #{aok 34895}# (reverse #{out 34896}#)) | |
840cf0d1 | 8550 | #f) |
b2208d2e AW |
8551 | #{body 34891}# |
8552 | (reverse #{vars 34892}#) | |
8553 | #{r* 34893}# | |
8554 | #{w* 34894}# | |
8555 | (reverse #{inits 34897}#) | |
840cf0d1 | 8556 | '())))) |
b2208d2e AW |
8557 | (#{parse-body 33954}# |
8558 | (lambda (#{req 35222}# | |
8559 | #{opt 35223}# | |
8560 | #{rest 35224}# | |
8561 | #{kw 35225}# | |
8562 | #{body 35226}# | |
8563 | #{vars 35227}# | |
8564 | #{r* 35228}# | |
8565 | #{w* 35229}# | |
8566 | #{inits 35230}# | |
8567 | #{meta 35231}#) | |
8568 | (let ((#{tmp 35233}# | |
840cf0d1 | 8569 | ($sc-dispatch |
b2208d2e | 8570 | #{body 35226}# |
840cf0d1 | 8571 | '(any any . each-any)))) |
b2208d2e | 8572 | (if (if #{tmp 35233}# |
840cf0d1 | 8573 | (@apply |
b2208d2e AW |
8574 | (lambda (#{docstring 35237}# #{e1 35238}# #{e2 35239}#) |
8575 | (string? (syntax->datum #{docstring 35237}#))) | |
8576 | #{tmp 35233}#) | |
840cf0d1 AW |
8577 | #f) |
8578 | (@apply | |
b2208d2e AW |
8579 | (lambda (#{docstring 35240}# #{e1 35241}# #{e2 35242}#) |
8580 | (#{parse-body 33954}# | |
8581 | #{req 35222}# | |
8582 | #{opt 35223}# | |
8583 | #{rest 35224}# | |
8584 | #{kw 35225}# | |
8585 | (cons #{e1 35241}# #{e2 35242}#) | |
8586 | #{vars 35227}# | |
8587 | #{r* 35228}# | |
8588 | #{w* 35229}# | |
8589 | #{inits 35230}# | |
840cf0d1 | 8590 | (append |
b2208d2e | 8591 | #{meta 35231}# |
840cf0d1 | 8592 | (list (cons 'documentation |
b2208d2e AW |
8593 | (syntax->datum #{docstring 35240}#)))))) |
8594 | #{tmp 35233}#) | |
8595 | (let ((#{tmp 35243}# | |
840cf0d1 | 8596 | ($sc-dispatch |
b2208d2e | 8597 | #{body 35226}# |
840cf0d1 | 8598 | '(#(vector #(each (any . any))) any . each-any)))) |
b2208d2e | 8599 | (if #{tmp 35243}# |
840cf0d1 | 8600 | (@apply |
b2208d2e AW |
8601 | (lambda (#{k 35247}# |
8602 | #{v 35248}# | |
8603 | #{e1 35249}# | |
8604 | #{e2 35250}#) | |
8605 | (#{parse-body 33954}# | |
8606 | #{req 35222}# | |
8607 | #{opt 35223}# | |
8608 | #{rest 35224}# | |
8609 | #{kw 35225}# | |
8610 | (cons #{e1 35249}# #{e2 35250}#) | |
8611 | #{vars 35227}# | |
8612 | #{r* 35228}# | |
8613 | #{w* 35229}# | |
8614 | #{inits 35230}# | |
840cf0d1 | 8615 | (append |
b2208d2e | 8616 | #{meta 35231}# |
840cf0d1 | 8617 | (syntax->datum |
b2208d2e AW |
8618 | (map cons #{k 35247}# #{v 35248}#))))) |
8619 | #{tmp 35243}#) | |
8620 | (let ((#{tmp 35251}# | |
8621 | ($sc-dispatch #{body 35226}# '(any . each-any)))) | |
8622 | (if #{tmp 35251}# | |
840cf0d1 | 8623 | (@apply |
b2208d2e | 8624 | (lambda (#{e1 35255}# #{e2 35256}#) |
840cf0d1 | 8625 | (values |
b2208d2e AW |
8626 | #{meta 35231}# |
8627 | #{req 35222}# | |
8628 | #{opt 35223}# | |
8629 | #{rest 35224}# | |
8630 | #{kw 35225}# | |
8631 | #{inits 35230}# | |
8632 | #{vars 35227}# | |
8633 | (#{expand-body 4447}# | |
8634 | (cons #{e1 35255}# #{e2 35256}#) | |
8635 | (let ((#{x 35268}# | |
46e372ef | 8636 | (begin |
b2208d2e AW |
8637 | (if (if (pair? #{e 33944}#) |
8638 | #{s 33947}# | |
46e372ef AW |
8639 | #f) |
8640 | (set-source-properties! | |
b2208d2e AW |
8641 | #{e 33944}# |
8642 | #{s 33947}#)) | |
8643 | #{e 33944}#))) | |
8644 | (if (if (null? (car #{w 33946}#)) | |
8645 | (null? (cdr #{w 33946}#)) | |
46e372ef | 8646 | #f) |
b2208d2e AW |
8647 | #{x 35268}# |
8648 | (if (if (vector? #{x 35268}#) | |
8649 | (if (= (vector-length #{x 35268}#) | |
46e372ef | 8650 | 4) |
b2208d2e | 8651 | (eq? (vector-ref #{x 35268}# 0) |
46e372ef AW |
8652 | 'syntax-object) |
8653 | #f) | |
8654 | #f) | |
b2208d2e AW |
8655 | (let ((#{expression 35300}# |
8656 | (vector-ref #{x 35268}# 1)) | |
8657 | (#{wrap 35301}# | |
8658 | (let ((#{w2 35309}# | |
46e372ef | 8659 | (vector-ref |
b2208d2e | 8660 | #{x 35268}# |
46e372ef | 8661 | 2))) |
b2208d2e AW |
8662 | (let ((#{m1 35310}# |
8663 | (car #{w 33946}#)) | |
8664 | (#{s1 35311}# | |
8665 | (cdr #{w 33946}#))) | |
8666 | (if (null? #{m1 35310}#) | |
8667 | (if (null? #{s1 35311}#) | |
8668 | #{w2 35309}# | |
8669 | (cons (car #{w2 35309}#) | |
8670 | (let ((#{m2 35326}# | |
8671 | (cdr #{w2 35309}#))) | |
8672 | (if (null? #{m2 35326}#) | |
8673 | #{s1 35311}# | |
46e372ef | 8674 | (append |
b2208d2e AW |
8675 | #{s1 35311}# |
8676 | #{m2 35326}#))))) | |
8677 | (cons (let ((#{m2 35334}# | |
8678 | (car #{w2 35309}#))) | |
8679 | (if (null? #{m2 35334}#) | |
8680 | #{m1 35310}# | |
46e372ef | 8681 | (append |
b2208d2e AW |
8682 | #{m1 35310}# |
8683 | #{m2 35334}#))) | |
8684 | (let ((#{m2 35342}# | |
8685 | (cdr #{w2 35309}#))) | |
8686 | (if (null? #{m2 35342}#) | |
8687 | #{s1 35311}# | |
46e372ef | 8688 | (append |
b2208d2e AW |
8689 | #{s1 35311}# |
8690 | #{m2 35342}#)))))))) | |
8691 | (#{module 35302}# | |
8692 | (vector-ref #{x 35268}# 3))) | |
46e372ef AW |
8693 | (vector |
8694 | 'syntax-object | |
b2208d2e AW |
8695 | #{expression 35300}# |
8696 | #{wrap 35301}# | |
8697 | #{module 35302}#)) | |
8698 | (if (null? #{x 35268}#) | |
8699 | #{x 35268}# | |
46e372ef AW |
8700 | (vector |
8701 | 'syntax-object | |
b2208d2e AW |
8702 | #{x 35268}# |
8703 | #{w 33946}# | |
8704 | #{mod 33948}#))))) | |
8705 | #{r* 35228}# | |
8706 | #{w* 35229}# | |
8707 | #{mod 33948}#))) | |
8708 | #{tmp 35251}#) | |
840cf0d1 AW |
8709 | (syntax-violation |
8710 | #f | |
8711 | "source expression failed to match any pattern" | |
b2208d2e AW |
8712 | #{body 35226}#)))))))))) |
8713 | (let ((#{tmp 33956}# | |
8714 | ($sc-dispatch #{clauses 33950}# '()))) | |
8715 | (if #{tmp 33956}# | |
46e372ef AW |
8716 | (@apply |
8717 | (lambda () (values '() #f)) | |
b2208d2e AW |
8718 | #{tmp 33956}#) |
8719 | (let ((#{tmp 33961}# | |
840cf0d1 | 8720 | ($sc-dispatch |
b2208d2e | 8721 | #{clauses 33950}# |
840cf0d1 AW |
8722 | '((any any . each-any) |
8723 | . | |
8724 | #(each (any any . each-any)))))) | |
b2208d2e | 8725 | (if #{tmp 33961}# |
840cf0d1 | 8726 | (@apply |
b2208d2e AW |
8727 | (lambda (#{args 33965}# |
8728 | #{e1 33966}# | |
8729 | #{e2 33967}# | |
8730 | #{args* 33968}# | |
8731 | #{e1* 33969}# | |
8732 | #{e2* 33970}#) | |
840cf0d1 | 8733 | (call-with-values |
46e372ef | 8734 | (lambda () |
b2208d2e AW |
8735 | (#{get-formals 33949}# #{args 33965}#)) |
8736 | (lambda (#{req 33971}# | |
8737 | #{opt 33972}# | |
8738 | #{rest 33973}# | |
8739 | #{kw 33974}#) | |
840cf0d1 AW |
8740 | (call-with-values |
8741 | (lambda () | |
b2208d2e AW |
8742 | (#{parse-req 33951}# |
8743 | #{req 33971}# | |
8744 | #{opt 33972}# | |
8745 | #{rest 33973}# | |
8746 | #{kw 33974}# | |
8747 | (cons #{e1 33966}# #{e2 33967}#))) | |
8748 | (lambda (#{meta 34043}# | |
8749 | #{req 34044}# | |
8750 | #{opt 34045}# | |
8751 | #{rest 34046}# | |
8752 | #{kw 34047}# | |
8753 | #{inits 34048}# | |
8754 | #{vars 34049}# | |
8755 | #{body 34050}#) | |
840cf0d1 AW |
8756 | (call-with-values |
8757 | (lambda () | |
b2208d2e AW |
8758 | (#{expand-lambda-case 4455}# |
8759 | #{e 33944}# | |
8760 | #{r 33945}# | |
8761 | #{w 33946}# | |
8762 | #{s 33947}# | |
8763 | #{mod 33948}# | |
8764 | #{get-formals 33949}# | |
8765 | (map (lambda (#{tmp 2883 34051}# | |
8766 | #{tmp 2882 34052}# | |
8767 | #{tmp 2881 34053}#) | |
8768 | (cons #{tmp 2881 34053}# | |
8769 | (cons #{tmp 2882 34052}# | |
8770 | #{tmp 2883 34051}#))) | |
8771 | #{e2* 33970}# | |
8772 | #{e1* 33969}# | |
8773 | #{args* 33968}#))) | |
8774 | (lambda (#{meta* 34054}# #{else* 34055}#) | |
840cf0d1 | 8775 | (values |
b2208d2e | 8776 | (append #{meta 34043}# #{meta* 34054}#) |
46e372ef AW |
8777 | (make-struct/no-tail |
8778 | (vector-ref %expanded-vtables 15) | |
b2208d2e AW |
8779 | #{s 33947}# |
8780 | #{req 34044}# | |
8781 | #{opt 34045}# | |
8782 | #{rest 34046}# | |
8783 | #{kw 34047}# | |
8784 | #{inits 34048}# | |
8785 | #{vars 34049}# | |
8786 | #{body 34050}# | |
8787 | #{else* 34055}#))))))))) | |
8788 | #{tmp 33961}#) | |
840cf0d1 AW |
8789 | (syntax-violation |
8790 | #f | |
8791 | "source expression failed to match any pattern" | |
b2208d2e AW |
8792 | #{clauses 33950}#)))))))) |
8793 | (#{strip 4456}# | |
8794 | (lambda (#{x 35369}# #{w 35370}#) | |
8795 | (if (memq 'top (car #{w 35370}#)) | |
8796 | #{x 35369}# | |
840cf0d1 | 8797 | (letrec* |
b2208d2e AW |
8798 | ((#{f 35371}# |
8799 | (lambda (#{x 35374}#) | |
8800 | (if (if (vector? #{x 35374}#) | |
8801 | (if (= (vector-length #{x 35374}#) 4) | |
8802 | (eq? (vector-ref #{x 35374}# 0) 'syntax-object) | |
46e372ef AW |
8803 | #f) |
8804 | #f) | |
b2208d2e AW |
8805 | (#{strip 4456}# |
8806 | (vector-ref #{x 35374}# 1) | |
8807 | (vector-ref #{x 35374}# 2)) | |
8808 | (if (pair? #{x 35374}#) | |
8809 | (let ((#{a 35393}# (#{f 35371}# (car #{x 35374}#))) | |
8810 | (#{d 35394}# (#{f 35371}# (cdr #{x 35374}#)))) | |
8811 | (if (if (eq? #{a 35393}# (car #{x 35374}#)) | |
8812 | (eq? #{d 35394}# (cdr #{x 35374}#)) | |
840cf0d1 | 8813 | #f) |
b2208d2e AW |
8814 | #{x 35374}# |
8815 | (cons #{a 35393}# #{d 35394}#))) | |
8816 | (if (vector? #{x 35374}#) | |
8817 | (let ((#{old 35397}# (vector->list #{x 35374}#))) | |
8818 | (let ((#{new 35398}# (map #{f 35371}# #{old 35397}#))) | |
840cf0d1 | 8819 | (letrec* |
b2208d2e AW |
8820 | ((#{lp 35399}# |
8821 | (lambda (#{l1 35496}# #{l2 35497}#) | |
8822 | (if (null? #{l1 35496}#) | |
8823 | #{x 35374}# | |
8824 | (if (eq? (car #{l1 35496}#) | |
8825 | (car #{l2 35497}#)) | |
8826 | (#{lp 35399}# | |
8827 | (cdr #{l1 35496}#) | |
8828 | (cdr #{l2 35497}#)) | |
8829 | (list->vector #{new 35398}#)))))) | |
8830 | (#{lp 35399}# #{old 35397}# #{new 35398}#)))) | |
8831 | #{x 35374}#)))))) | |
8832 | (#{f 35371}# #{x 35369}#))))) | |
8833 | (#{gen-var 4457}# | |
8834 | (lambda (#{id 34099}#) | |
8835 | (let ((#{id 34100}# | |
8836 | (if (if (vector? #{id 34099}#) | |
8837 | (if (= (vector-length #{id 34099}#) 4) | |
8838 | (eq? (vector-ref #{id 34099}# 0) 'syntax-object) | |
46e372ef AW |
8839 | #f) |
8840 | #f) | |
b2208d2e AW |
8841 | (vector-ref #{id 34099}# 1) |
8842 | #{id 34099}#))) | |
840cf0d1 | 8843 | (gensym |
b2208d2e AW |
8844 | (string-append (symbol->string #{id 34100}#) " "))))) |
8845 | (#{lambda-var-list 4458}# | |
8846 | (lambda (#{vars 35498}#) | |
840cf0d1 | 8847 | (letrec* |
b2208d2e AW |
8848 | ((#{lvl 35499}# |
8849 | (lambda (#{vars 35502}# #{ls 35503}# #{w 35504}#) | |
8850 | (if (pair? #{vars 35502}#) | |
8851 | (#{lvl 35499}# | |
8852 | (cdr #{vars 35502}#) | |
8853 | (cons (let ((#{x 35508}# (car #{vars 35502}#))) | |
8854 | (if (if (null? (car #{w 35504}#)) | |
8855 | (null? (cdr #{w 35504}#)) | |
46e372ef | 8856 | #f) |
b2208d2e AW |
8857 | #{x 35508}# |
8858 | (if (if (vector? #{x 35508}#) | |
8859 | (if (= (vector-length #{x 35508}#) 4) | |
8860 | (eq? (vector-ref #{x 35508}# 0) | |
46e372ef AW |
8861 | 'syntax-object) |
8862 | #f) | |
8863 | #f) | |
b2208d2e AW |
8864 | (let ((#{expression 35526}# |
8865 | (vector-ref #{x 35508}# 1)) | |
8866 | (#{wrap 35527}# | |
8867 | (let ((#{w2 35535}# | |
8868 | (vector-ref #{x 35508}# 2))) | |
8869 | (let ((#{m1 35536}# (car #{w 35504}#)) | |
8870 | (#{s1 35537}# (cdr #{w 35504}#))) | |
8871 | (if (null? #{m1 35536}#) | |
8872 | (if (null? #{s1 35537}#) | |
8873 | #{w2 35535}# | |
8874 | (cons (car #{w2 35535}#) | |
8875 | (let ((#{m2 35552}# | |
8876 | (cdr #{w2 35535}#))) | |
8877 | (if (null? #{m2 35552}#) | |
8878 | #{s1 35537}# | |
46e372ef | 8879 | (append |
b2208d2e AW |
8880 | #{s1 35537}# |
8881 | #{m2 35552}#))))) | |
8882 | (cons (let ((#{m2 35560}# | |
8883 | (car #{w2 35535}#))) | |
8884 | (if (null? #{m2 35560}#) | |
8885 | #{m1 35536}# | |
46e372ef | 8886 | (append |
b2208d2e AW |
8887 | #{m1 35536}# |
8888 | #{m2 35560}#))) | |
8889 | (let ((#{m2 35568}# | |
8890 | (cdr #{w2 35535}#))) | |
8891 | (if (null? #{m2 35568}#) | |
8892 | #{s1 35537}# | |
46e372ef | 8893 | (append |
b2208d2e AW |
8894 | #{s1 35537}# |
8895 | #{m2 35568}#)))))))) | |
8896 | (#{module 35528}# | |
8897 | (vector-ref #{x 35508}# 3))) | |
46e372ef AW |
8898 | (vector |
8899 | 'syntax-object | |
b2208d2e AW |
8900 | #{expression 35526}# |
8901 | #{wrap 35527}# | |
8902 | #{module 35528}#)) | |
8903 | (if (null? #{x 35508}#) | |
8904 | #{x 35508}# | |
46e372ef AW |
8905 | (vector |
8906 | 'syntax-object | |
b2208d2e AW |
8907 | #{x 35508}# |
8908 | #{w 35504}# | |
46e372ef | 8909 | #f))))) |
b2208d2e AW |
8910 | #{ls 35503}#) |
8911 | #{w 35504}#) | |
8912 | (if (if (symbol? #{vars 35502}#) | |
46e372ef | 8913 | #t |
b2208d2e AW |
8914 | (if (if (vector? #{vars 35502}#) |
8915 | (if (= (vector-length #{vars 35502}#) 4) | |
8916 | (eq? (vector-ref #{vars 35502}# 0) | |
46e372ef AW |
8917 | 'syntax-object) |
8918 | #f) | |
8919 | #f) | |
b2208d2e | 8920 | (symbol? (vector-ref #{vars 35502}# 1)) |
46e372ef | 8921 | #f)) |
b2208d2e AW |
8922 | (cons (if (if (null? (car #{w 35504}#)) |
8923 | (null? (cdr #{w 35504}#)) | |
46e372ef | 8924 | #f) |
b2208d2e AW |
8925 | #{vars 35502}# |
8926 | (if (if (vector? #{vars 35502}#) | |
8927 | (if (= (vector-length #{vars 35502}#) 4) | |
8928 | (eq? (vector-ref #{vars 35502}# 0) | |
46e372ef AW |
8929 | 'syntax-object) |
8930 | #f) | |
8931 | #f) | |
b2208d2e AW |
8932 | (let ((#{expression 35638}# |
8933 | (vector-ref #{vars 35502}# 1)) | |
8934 | (#{wrap 35639}# | |
8935 | (let ((#{w2 35649}# | |
8936 | (vector-ref #{vars 35502}# 2))) | |
8937 | (let ((#{m1 35650}# (car #{w 35504}#)) | |
8938 | (#{s1 35651}# (cdr #{w 35504}#))) | |
8939 | (if (null? #{m1 35650}#) | |
8940 | (if (null? #{s1 35651}#) | |
8941 | #{w2 35649}# | |
8942 | (cons (car #{w2 35649}#) | |
8943 | (let ((#{m2 35668}# | |
8944 | (cdr #{w2 35649}#))) | |
8945 | (if (null? #{m2 35668}#) | |
8946 | #{s1 35651}# | |
46e372ef | 8947 | (append |
b2208d2e AW |
8948 | #{s1 35651}# |
8949 | #{m2 35668}#))))) | |
8950 | (cons (let ((#{m2 35676}# | |
8951 | (car #{w2 35649}#))) | |
8952 | (if (null? #{m2 35676}#) | |
8953 | #{m1 35650}# | |
46e372ef | 8954 | (append |
b2208d2e AW |
8955 | #{m1 35650}# |
8956 | #{m2 35676}#))) | |
8957 | (let ((#{m2 35684}# | |
8958 | (cdr #{w2 35649}#))) | |
8959 | (if (null? #{m2 35684}#) | |
8960 | #{s1 35651}# | |
46e372ef | 8961 | (append |
b2208d2e AW |
8962 | #{s1 35651}# |
8963 | #{m2 35684}#)))))))) | |
8964 | (#{module 35640}# | |
8965 | (vector-ref #{vars 35502}# 3))) | |
46e372ef AW |
8966 | (vector |
8967 | 'syntax-object | |
b2208d2e AW |
8968 | #{expression 35638}# |
8969 | #{wrap 35639}# | |
8970 | #{module 35640}#)) | |
8971 | (if (null? #{vars 35502}#) | |
8972 | #{vars 35502}# | |
46e372ef AW |
8973 | (vector |
8974 | 'syntax-object | |
b2208d2e AW |
8975 | #{vars 35502}# |
8976 | #{w 35504}# | |
46e372ef | 8977 | #f)))) |
b2208d2e AW |
8978 | #{ls 35503}#) |
8979 | (if (null? #{vars 35502}#) | |
8980 | #{ls 35503}# | |
8981 | (if (if (vector? #{vars 35502}#) | |
8982 | (if (= (vector-length #{vars 35502}#) 4) | |
8983 | (eq? (vector-ref #{vars 35502}# 0) | |
46e372ef AW |
8984 | 'syntax-object) |
8985 | #f) | |
8986 | #f) | |
b2208d2e AW |
8987 | (#{lvl 35499}# |
8988 | (vector-ref #{vars 35502}# 1) | |
8989 | #{ls 35503}# | |
8990 | (let ((#{w2 35725}# (vector-ref #{vars 35502}# 2))) | |
8991 | (let ((#{m1 35726}# (car #{w 35504}#)) | |
8992 | (#{s1 35727}# (cdr #{w 35504}#))) | |
8993 | (if (null? #{m1 35726}#) | |
8994 | (if (null? #{s1 35727}#) | |
8995 | #{w2 35725}# | |
8996 | (cons (car #{w2 35725}#) | |
8997 | (let ((#{m2 35738}# (cdr #{w2 35725}#))) | |
8998 | (if (null? #{m2 35738}#) | |
8999 | #{s1 35727}# | |
46e372ef | 9000 | (append |
b2208d2e AW |
9001 | #{s1 35727}# |
9002 | #{m2 35738}#))))) | |
9003 | (cons (let ((#{m2 35746}# (car #{w2 35725}#))) | |
9004 | (if (null? #{m2 35746}#) | |
9005 | #{m1 35726}# | |
9006 | (append #{m1 35726}# #{m2 35746}#))) | |
9007 | (let ((#{m2 35754}# (cdr #{w2 35725}#))) | |
9008 | (if (null? #{m2 35754}#) | |
9009 | #{s1 35727}# | |
46e372ef | 9010 | (append |
b2208d2e AW |
9011 | #{s1 35727}# |
9012 | #{m2 35754}#)))))))) | |
9013 | (cons #{vars 35502}# #{ls 35503}#)))))))) | |
9014 | (#{lvl 35499}# #{vars 35498}# '() '(())))))) | |
840cf0d1 | 9015 | (begin |
840cf0d1 AW |
9016 | (module-define! |
9017 | (current-module) | |
9018 | 'letrec-syntax | |
9019 | (make-syntax-transformer | |
9020 | 'letrec-syntax | |
9021 | 'local-syntax | |
9022 | #t)) | |
9023 | (module-define! | |
9024 | (current-module) | |
9025 | 'let-syntax | |
9026 | (make-syntax-transformer | |
9027 | 'let-syntax | |
9028 | 'local-syntax | |
9029 | #f)) | |
b2208d2e | 9030 | (#{global-extend 4408}# |
840cf0d1 | 9031 | 'core |
0f9f51a1 | 9032 | 'syntax-parameterize |
b2208d2e AW |
9033 | (lambda (#{e 4585}# |
9034 | #{r 4586}# | |
9035 | #{w 4587}# | |
9036 | #{s 4588}# | |
9037 | #{mod 4589}#) | |
9038 | (let ((#{tmp 4591}# | |
840cf0d1 | 9039 | ($sc-dispatch |
b2208d2e | 9040 | #{e 4585}# |
840cf0d1 | 9041 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 9042 | (if (if #{tmp 4591}# |
840cf0d1 | 9043 | (@apply |
b2208d2e AW |
9044 | (lambda (#{var 4595}# |
9045 | #{val 4596}# | |
9046 | #{e1 4597}# | |
9047 | #{e2 4598}#) | |
9048 | (#{valid-bound-ids? 4433}# #{var 4595}#)) | |
9049 | #{tmp 4591}#) | |
840cf0d1 AW |
9050 | #f) |
9051 | (@apply | |
b2208d2e AW |
9052 | (lambda (#{var 4683}# |
9053 | #{val 4684}# | |
9054 | #{e1 4685}# | |
9055 | #{e2 4686}#) | |
9056 | (let ((#{names 4687}# | |
9057 | (map (lambda (#{x 5036}#) | |
0f9f51a1 AW |
9058 | (call-with-values |
9059 | (lambda () | |
b2208d2e AW |
9060 | (#{resolve-identifier 4430}# |
9061 | #{x 5036}# | |
9062 | #{w 4587}# | |
9063 | #{r 4586}# | |
9064 | #{mod 4589}# | |
0f9f51a1 | 9065 | #f)) |
b2208d2e AW |
9066 | (lambda (#{type 5039}# |
9067 | #{value 5040}# | |
9068 | #{mod 5041}#) | |
9069 | (if (eqv? #{type 5039}# 'displaced-lexical) | |
0f9f51a1 AW |
9070 | (syntax-violation |
9071 | 'syntax-parameterize | |
9072 | "identifier out of context" | |
b2208d2e AW |
9073 | #{e 4585}# |
9074 | (let ((#{x 5054}# | |
0f9f51a1 | 9075 | (begin |
b2208d2e AW |
9076 | (if (if (pair? #{x 5036}#) |
9077 | #{s 4588}# | |
0f9f51a1 AW |
9078 | #f) |
9079 | (set-source-properties! | |
b2208d2e AW |
9080 | #{x 5036}# |
9081 | #{s 4588}#)) | |
9082 | #{x 5036}#))) | |
9083 | (if (if (null? (car #{w 4587}#)) | |
9084 | (null? (cdr #{w 4587}#)) | |
0f9f51a1 | 9085 | #f) |
b2208d2e AW |
9086 | #{x 5054}# |
9087 | (if (if (vector? #{x 5054}#) | |
0f9f51a1 | 9088 | (if (= (vector-length |
b2208d2e | 9089 | #{x 5054}#) |
0f9f51a1 AW |
9090 | 4) |
9091 | (eq? (vector-ref | |
b2208d2e | 9092 | #{x 5054}# |
0f9f51a1 AW |
9093 | 0) |
9094 | 'syntax-object) | |
9095 | #f) | |
9096 | #f) | |
b2208d2e AW |
9097 | (let ((#{expression 5086}# |
9098 | (vector-ref #{x 5054}# 1)) | |
9099 | (#{wrap 5087}# | |
9100 | (let ((#{w2 5095}# | |
0f9f51a1 | 9101 | (vector-ref |
b2208d2e | 9102 | #{x 5054}# |
0f9f51a1 | 9103 | 2))) |
b2208d2e AW |
9104 | (let ((#{m1 5096}# |
9105 | (car #{w 4587}#)) | |
9106 | (#{s1 5097}# | |
9107 | (cdr #{w 4587}#))) | |
9108 | (if (null? #{m1 5096}#) | |
9109 | (if (null? #{s1 5097}#) | |
9110 | #{w2 5095}# | |
9111 | (cons (car #{w2 5095}#) | |
9112 | (let ((#{m2 5112}# | |
9113 | (cdr #{w2 5095}#))) | |
9114 | (if (null? #{m2 5112}#) | |
9115 | #{s1 5097}# | |
0f9f51a1 | 9116 | (append |
b2208d2e AW |
9117 | #{s1 5097}# |
9118 | #{m2 5112}#))))) | |
9119 | (cons (let ((#{m2 5120}# | |
9120 | (car #{w2 5095}#))) | |
9121 | (if (null? #{m2 5120}#) | |
9122 | #{m1 5096}# | |
0f9f51a1 | 9123 | (append |
b2208d2e AW |
9124 | #{m1 5096}# |
9125 | #{m2 5120}#))) | |
9126 | (let ((#{m2 5128}# | |
9127 | (cdr #{w2 5095}#))) | |
9128 | (if (null? #{m2 5128}#) | |
9129 | #{s1 5097}# | |
0f9f51a1 | 9130 | (append |
b2208d2e AW |
9131 | #{s1 5097}# |
9132 | #{m2 5128}#)))))))) | |
9133 | (#{module 5088}# | |
0f9f51a1 | 9134 | (vector-ref |
b2208d2e | 9135 | #{x 5054}# |
0f9f51a1 AW |
9136 | 3))) |
9137 | (vector | |
9138 | 'syntax-object | |
b2208d2e AW |
9139 | #{expression 5086}# |
9140 | #{wrap 5087}# | |
9141 | #{module 5088}#)) | |
9142 | (if (null? #{x 5054}#) | |
9143 | #{x 5054}# | |
0f9f51a1 AW |
9144 | (vector |
9145 | 'syntax-object | |
b2208d2e AW |
9146 | #{x 5054}# |
9147 | #{w 4587}# | |
9148 | #{mod 5041}#)))))) | |
9149 | (if (eqv? #{type 5039}# 'syntax-parameter) | |
9150 | #{value 5040}# | |
0f9f51a1 AW |
9151 | (syntax-violation |
9152 | 'syntax-parameterize | |
9153 | "invalid syntax parameter" | |
b2208d2e AW |
9154 | #{e 4585}# |
9155 | (let ((#{x 5155}# | |
0f9f51a1 | 9156 | (begin |
b2208d2e AW |
9157 | (if (if (pair? #{x 5036}#) |
9158 | #{s 4588}# | |
0f9f51a1 AW |
9159 | #f) |
9160 | (set-source-properties! | |
b2208d2e AW |
9161 | #{x 5036}# |
9162 | #{s 4588}#)) | |
9163 | #{x 5036}#))) | |
9164 | (if (if (null? (car #{w 4587}#)) | |
9165 | (null? (cdr #{w 4587}#)) | |
0f9f51a1 | 9166 | #f) |
b2208d2e AW |
9167 | #{x 5155}# |
9168 | (if (if (vector? #{x 5155}#) | |
0f9f51a1 | 9169 | (if (= (vector-length |
b2208d2e | 9170 | #{x 5155}#) |
0f9f51a1 AW |
9171 | 4) |
9172 | (eq? (vector-ref | |
b2208d2e | 9173 | #{x 5155}# |
0f9f51a1 AW |
9174 | 0) |
9175 | 'syntax-object) | |
9176 | #f) | |
9177 | #f) | |
b2208d2e | 9178 | (let ((#{expression 5187}# |
0f9f51a1 | 9179 | (vector-ref |
b2208d2e | 9180 | #{x 5155}# |
0f9f51a1 | 9181 | 1)) |
b2208d2e AW |
9182 | (#{wrap 5188}# |
9183 | (let ((#{w2 5196}# | |
0f9f51a1 | 9184 | (vector-ref |
b2208d2e | 9185 | #{x 5155}# |
0f9f51a1 | 9186 | 2))) |
b2208d2e AW |
9187 | (let ((#{m1 5197}# |
9188 | (car #{w 4587}#)) | |
9189 | (#{s1 5198}# | |
9190 | (cdr #{w 4587}#))) | |
9191 | (if (null? #{m1 5197}#) | |
9192 | (if (null? #{s1 5198}#) | |
9193 | #{w2 5196}# | |
9194 | (cons (car #{w2 5196}#) | |
9195 | (let ((#{m2 5213}# | |
9196 | (cdr #{w2 5196}#))) | |
9197 | (if (null? #{m2 5213}#) | |
9198 | #{s1 5198}# | |
0f9f51a1 | 9199 | (append |
b2208d2e AW |
9200 | #{s1 5198}# |
9201 | #{m2 5213}#))))) | |
9202 | (cons (let ((#{m2 5221}# | |
9203 | (car #{w2 5196}#))) | |
9204 | (if (null? #{m2 5221}#) | |
9205 | #{m1 5197}# | |
0f9f51a1 | 9206 | (append |
b2208d2e AW |
9207 | #{m1 5197}# |
9208 | #{m2 5221}#))) | |
9209 | (let ((#{m2 5229}# | |
9210 | (cdr #{w2 5196}#))) | |
9211 | (if (null? #{m2 5229}#) | |
9212 | #{s1 5198}# | |
0f9f51a1 | 9213 | (append |
b2208d2e AW |
9214 | #{s1 5198}# |
9215 | #{m2 5229}#)))))))) | |
9216 | (#{module 5189}# | |
0f9f51a1 | 9217 | (vector-ref |
b2208d2e | 9218 | #{x 5155}# |
0f9f51a1 AW |
9219 | 3))) |
9220 | (vector | |
9221 | 'syntax-object | |
b2208d2e AW |
9222 | #{expression 5187}# |
9223 | #{wrap 5188}# | |
9224 | #{module 5189}#)) | |
9225 | (if (null? #{x 5155}#) | |
9226 | #{x 5155}# | |
0f9f51a1 AW |
9227 | (vector |
9228 | 'syntax-object | |
b2208d2e AW |
9229 | #{x 5155}# |
9230 | #{w 4587}# | |
9231 | #{mod 5041}#))))))))))) | |
9232 | #{var 4683}#)) | |
9233 | (#{bindings 4688}# | |
9234 | (let ((#{trans-r 5244}# | |
9235 | (#{macros-only-env 4407}# #{r 4586}#))) | |
9236 | (map (lambda (#{x 5245}#) | |
0f9f51a1 | 9237 | (cons 'macro |
b2208d2e AW |
9238 | (#{eval-local-transformer 4449}# |
9239 | (#{expand 4443}# | |
9240 | #{x 5245}# | |
9241 | #{trans-r 5244}# | |
9242 | #{w 4587}# | |
9243 | #{mod 4589}#) | |
9244 | #{mod 4589}#))) | |
9245 | #{val 4684}#)))) | |
9246 | (#{expand-body 4447}# | |
9247 | (cons #{e1 4685}# #{e2 4686}#) | |
9248 | (let ((#{x 4700}# | |
0f9f51a1 | 9249 | (begin |
b2208d2e AW |
9250 | (if (if (pair? #{e 4585}#) #{s 4588}# #f) |
9251 | (set-source-properties! #{e 4585}# #{s 4588}#)) | |
9252 | #{e 4585}#))) | |
9253 | (if (if (null? (car #{w 4587}#)) | |
9254 | (null? (cdr #{w 4587}#)) | |
0f9f51a1 | 9255 | #f) |
b2208d2e AW |
9256 | #{x 4700}# |
9257 | (if (if (vector? #{x 4700}#) | |
9258 | (if (= (vector-length #{x 4700}#) 4) | |
9259 | (eq? (vector-ref #{x 4700}# 0) 'syntax-object) | |
840cf0d1 | 9260 | #f) |
0f9f51a1 | 9261 | #f) |
b2208d2e AW |
9262 | (let ((#{expression 4732}# (vector-ref #{x 4700}# 1)) |
9263 | (#{wrap 4733}# | |
9264 | (let ((#{w2 4741}# | |
9265 | (vector-ref #{x 4700}# 2))) | |
9266 | (let ((#{m1 4742}# (car #{w 4587}#)) | |
9267 | (#{s1 4743}# (cdr #{w 4587}#))) | |
9268 | (if (null? #{m1 4742}#) | |
9269 | (if (null? #{s1 4743}#) | |
9270 | #{w2 4741}# | |
9271 | (cons (car #{w2 4741}#) | |
9272 | (let ((#{m2 4758}# | |
9273 | (cdr #{w2 4741}#))) | |
9274 | (if (null? #{m2 4758}#) | |
9275 | #{s1 4743}# | |
840cf0d1 | 9276 | (append |
b2208d2e AW |
9277 | #{s1 4743}# |
9278 | #{m2 4758}#))))) | |
9279 | (cons (let ((#{m2 4766}# | |
9280 | (car #{w2 4741}#))) | |
9281 | (if (null? #{m2 4766}#) | |
9282 | #{m1 4742}# | |
0f9f51a1 | 9283 | (append |
b2208d2e AW |
9284 | #{m1 4742}# |
9285 | #{m2 4766}#))) | |
9286 | (let ((#{m2 4774}# | |
9287 | (cdr #{w2 4741}#))) | |
9288 | (if (null? #{m2 4774}#) | |
9289 | #{s1 4743}# | |
0f9f51a1 | 9290 | (append |
b2208d2e AW |
9291 | #{s1 4743}# |
9292 | #{m2 4774}#)))))))) | |
9293 | (#{module 4734}# (vector-ref #{x 4700}# 3))) | |
0f9f51a1 AW |
9294 | (vector |
9295 | 'syntax-object | |
b2208d2e AW |
9296 | #{expression 4732}# |
9297 | #{wrap 4733}# | |
9298 | #{module 4734}#)) | |
9299 | (if (null? #{x 4700}#) | |
9300 | #{x 4700}# | |
0f9f51a1 AW |
9301 | (vector |
9302 | 'syntax-object | |
b2208d2e AW |
9303 | #{x 4700}# |
9304 | #{w 4587}# | |
9305 | #{mod 4589}#))))) | |
9306 | (#{extend-env 4405}# | |
9307 | #{names 4687}# | |
9308 | #{bindings 4688}# | |
9309 | #{r 4586}#) | |
9310 | #{w 4587}# | |
9311 | #{mod 4589}#))) | |
9312 | #{tmp 4591}#) | |
840cf0d1 | 9313 | (syntax-violation |
0f9f51a1 | 9314 | 'syntax-parameterize |
840cf0d1 | 9315 | "bad syntax" |
b2208d2e | 9316 | (let ((#{x 5469}# |
840cf0d1 | 9317 | (begin |
b2208d2e AW |
9318 | (if (if (pair? #{e 4585}#) #{s 4588}# #f) |
9319 | (set-source-properties! #{e 4585}# #{s 4588}#)) | |
9320 | #{e 4585}#))) | |
9321 | (if (if (null? (car #{w 4587}#)) | |
9322 | (null? (cdr #{w 4587}#)) | |
840cf0d1 | 9323 | #f) |
b2208d2e AW |
9324 | #{x 5469}# |
9325 | (if (if (vector? #{x 5469}#) | |
9326 | (if (= (vector-length #{x 5469}#) 4) | |
9327 | (eq? (vector-ref #{x 5469}# 0) 'syntax-object) | |
840cf0d1 AW |
9328 | #f) |
9329 | #f) | |
b2208d2e AW |
9330 | (let ((#{expression 5501}# (vector-ref #{x 5469}# 1)) |
9331 | (#{wrap 5502}# | |
9332 | (let ((#{w2 5510}# (vector-ref #{x 5469}# 2))) | |
9333 | (let ((#{m1 5511}# (car #{w 4587}#)) | |
9334 | (#{s1 5512}# (cdr #{w 4587}#))) | |
9335 | (if (null? #{m1 5511}#) | |
9336 | (if (null? #{s1 5512}#) | |
9337 | #{w2 5510}# | |
9338 | (cons (car #{w2 5510}#) | |
9339 | (let ((#{m2 5527}# | |
9340 | (cdr #{w2 5510}#))) | |
9341 | (if (null? #{m2 5527}#) | |
9342 | #{s1 5512}# | |
840cf0d1 | 9343 | (append |
b2208d2e AW |
9344 | #{s1 5512}# |
9345 | #{m2 5527}#))))) | |
9346 | (cons (let ((#{m2 5535}# (car #{w2 5510}#))) | |
9347 | (if (null? #{m2 5535}#) | |
9348 | #{m1 5511}# | |
9349 | (append #{m1 5511}# #{m2 5535}#))) | |
9350 | (let ((#{m2 5543}# (cdr #{w2 5510}#))) | |
9351 | (if (null? #{m2 5543}#) | |
9352 | #{s1 5512}# | |
840cf0d1 | 9353 | (append |
b2208d2e AW |
9354 | #{s1 5512}# |
9355 | #{m2 5543}#)))))))) | |
9356 | (#{module 5503}# (vector-ref #{x 5469}# 3))) | |
840cf0d1 AW |
9357 | (vector |
9358 | 'syntax-object | |
b2208d2e AW |
9359 | #{expression 5501}# |
9360 | #{wrap 5502}# | |
9361 | #{module 5503}#)) | |
9362 | (if (null? #{x 5469}#) | |
9363 | #{x 5469}# | |
840cf0d1 AW |
9364 | (vector |
9365 | 'syntax-object | |
b2208d2e AW |
9366 | #{x 5469}# |
9367 | #{w 4587}# | |
9368 | #{mod 4589}#)))))))))) | |
840cf0d1 AW |
9369 | (module-define! |
9370 | (current-module) | |
9371 | 'quote | |
9372 | (make-syntax-transformer | |
9373 | 'quote | |
9374 | 'core | |
b2208d2e AW |
9375 | (lambda (#{e 5571}# |
9376 | #{r 5572}# | |
9377 | #{w 5573}# | |
9378 | #{s 5574}# | |
9379 | #{mod 5575}#) | |
9380 | (let ((#{tmp 5577}# ($sc-dispatch #{e 5571}# '(_ any)))) | |
9381 | (if #{tmp 5577}# | |
840cf0d1 | 9382 | (@apply |
b2208d2e AW |
9383 | (lambda (#{e 5580}#) |
9384 | (let ((#{exp 5584}# | |
9385 | (#{strip 4456}# #{e 5580}# #{w 5573}#))) | |
840cf0d1 AW |
9386 | (make-struct/no-tail |
9387 | (vector-ref %expanded-vtables 1) | |
b2208d2e AW |
9388 | #{s 5574}# |
9389 | #{exp 5584}#))) | |
9390 | #{tmp 5577}#) | |
840cf0d1 AW |
9391 | (syntax-violation |
9392 | 'quote | |
9393 | "bad syntax" | |
b2208d2e | 9394 | (let ((#{x 5598}# |
840cf0d1 | 9395 | (begin |
b2208d2e AW |
9396 | (if (if (pair? #{e 5571}#) #{s 5574}# #f) |
9397 | (set-source-properties! #{e 5571}# #{s 5574}#)) | |
9398 | #{e 5571}#))) | |
9399 | (if (if (null? (car #{w 5573}#)) | |
9400 | (null? (cdr #{w 5573}#)) | |
840cf0d1 | 9401 | #f) |
b2208d2e AW |
9402 | #{x 5598}# |
9403 | (if (if (vector? #{x 5598}#) | |
9404 | (if (= (vector-length #{x 5598}#) 4) | |
9405 | (eq? (vector-ref #{x 5598}# 0) 'syntax-object) | |
840cf0d1 AW |
9406 | #f) |
9407 | #f) | |
b2208d2e AW |
9408 | (let ((#{expression 5630}# (vector-ref #{x 5598}# 1)) |
9409 | (#{wrap 5631}# | |
9410 | (let ((#{w2 5639}# (vector-ref #{x 5598}# 2))) | |
9411 | (let ((#{m1 5640}# (car #{w 5573}#)) | |
9412 | (#{s1 5641}# (cdr #{w 5573}#))) | |
9413 | (if (null? #{m1 5640}#) | |
9414 | (if (null? #{s1 5641}#) | |
9415 | #{w2 5639}# | |
9416 | (cons (car #{w2 5639}#) | |
9417 | (let ((#{m2 5656}# | |
9418 | (cdr #{w2 5639}#))) | |
9419 | (if (null? #{m2 5656}#) | |
9420 | #{s1 5641}# | |
840cf0d1 | 9421 | (append |
b2208d2e AW |
9422 | #{s1 5641}# |
9423 | #{m2 5656}#))))) | |
9424 | (cons (let ((#{m2 5664}# | |
9425 | (car #{w2 5639}#))) | |
9426 | (if (null? #{m2 5664}#) | |
9427 | #{m1 5640}# | |
840cf0d1 | 9428 | (append |
b2208d2e AW |
9429 | #{m1 5640}# |
9430 | #{m2 5664}#))) | |
9431 | (let ((#{m2 5672}# | |
9432 | (cdr #{w2 5639}#))) | |
9433 | (if (null? #{m2 5672}#) | |
9434 | #{s1 5641}# | |
840cf0d1 | 9435 | (append |
b2208d2e AW |
9436 | #{s1 5641}# |
9437 | #{m2 5672}#)))))))) | |
9438 | (#{module 5632}# (vector-ref #{x 5598}# 3))) | |
840cf0d1 AW |
9439 | (vector |
9440 | 'syntax-object | |
b2208d2e AW |
9441 | #{expression 5630}# |
9442 | #{wrap 5631}# | |
9443 | #{module 5632}#)) | |
9444 | (if (null? #{x 5598}#) | |
9445 | #{x 5598}# | |
840cf0d1 AW |
9446 | (vector |
9447 | 'syntax-object | |
b2208d2e AW |
9448 | #{x 5598}# |
9449 | #{w 5573}# | |
9450 | #{mod 5575}#))))))))))) | |
9451 | (#{global-extend 4408}# | |
840cf0d1 AW |
9452 | 'core |
9453 | 'syntax | |
9454 | (letrec* | |
b2208d2e AW |
9455 | ((#{gen-syntax 5896}# |
9456 | (lambda (#{src 6359}# | |
9457 | #{e 6360}# | |
9458 | #{r 6361}# | |
9459 | #{maps 6362}# | |
9460 | #{ellipsis? 6363}# | |
9461 | #{mod 6364}#) | |
9462 | (if (if (symbol? #{e 6360}#) | |
840cf0d1 | 9463 | #t |
b2208d2e AW |
9464 | (if (if (vector? #{e 6360}#) |
9465 | (if (= (vector-length #{e 6360}#) 4) | |
9466 | (eq? (vector-ref #{e 6360}# 0) 'syntax-object) | |
840cf0d1 AW |
9467 | #f) |
9468 | #f) | |
b2208d2e | 9469 | (symbol? (vector-ref #{e 6360}# 1)) |
840cf0d1 | 9470 | #f)) |
0f9f51a1 AW |
9471 | (call-with-values |
9472 | (lambda () | |
b2208d2e AW |
9473 | (#{resolve-identifier 4430}# |
9474 | #{e 6360}# | |
0f9f51a1 | 9475 | '(()) |
b2208d2e AW |
9476 | #{r 6361}# |
9477 | #{mod 6364}# | |
0f9f51a1 | 9478 | #f)) |
b2208d2e AW |
9479 | (lambda (#{type 6393}# #{value 6394}# #{mod 6395}#) |
9480 | (if (eqv? #{type 6393}# 'syntax) | |
840cf0d1 AW |
9481 | (call-with-values |
9482 | (lambda () | |
b2208d2e AW |
9483 | (#{gen-ref 5897}# |
9484 | #{src 6359}# | |
9485 | (car #{value 6394}#) | |
9486 | (cdr #{value 6394}#) | |
9487 | #{maps 6362}#)) | |
9488 | (lambda (#{var 6401}# #{maps 6402}#) | |
9489 | (values (list 'ref #{var 6401}#) #{maps 6402}#))) | |
9490 | (if (#{ellipsis? 6363}# #{e 6360}#) | |
840cf0d1 AW |
9491 | (syntax-violation |
9492 | 'syntax | |
9493 | "misplaced ellipsis" | |
b2208d2e AW |
9494 | #{src 6359}#) |
9495 | (values (list 'quote #{e 6360}#) #{maps 6362}#))))) | |
9496 | (let ((#{tmp 6404}# | |
9497 | ($sc-dispatch #{e 6360}# '(any any)))) | |
9498 | (if (if #{tmp 6404}# | |
840cf0d1 | 9499 | (@apply |
b2208d2e AW |
9500 | (lambda (#{dots 6408}# #{e 6409}#) |
9501 | (#{ellipsis? 6363}# #{dots 6408}#)) | |
9502 | #{tmp 6404}#) | |
840cf0d1 AW |
9503 | #f) |
9504 | (@apply | |
b2208d2e AW |
9505 | (lambda (#{dots 6410}# #{e 6411}#) |
9506 | (#{gen-syntax 5896}# | |
9507 | #{src 6359}# | |
9508 | #{e 6411}# | |
9509 | #{r 6361}# | |
9510 | #{maps 6362}# | |
9511 | (lambda (#{x 6412}#) #f) | |
9512 | #{mod 6364}#)) | |
9513 | #{tmp 6404}#) | |
9514 | (let ((#{tmp 6413}# | |
9515 | ($sc-dispatch #{e 6360}# '(any any . any)))) | |
9516 | (if (if #{tmp 6413}# | |
840cf0d1 | 9517 | (@apply |
b2208d2e AW |
9518 | (lambda (#{x 6417}# #{dots 6418}# #{y 6419}#) |
9519 | (#{ellipsis? 6363}# #{dots 6418}#)) | |
9520 | #{tmp 6413}#) | |
840cf0d1 AW |
9521 | #f) |
9522 | (@apply | |
b2208d2e | 9523 | (lambda (#{x 6420}# #{dots 6421}# #{y 6422}#) |
840cf0d1 | 9524 | (letrec* |
b2208d2e AW |
9525 | ((#{f 6423}# |
9526 | (lambda (#{y 6431}# #{k 6432}#) | |
9527 | (let ((#{tmp 6434}# | |
840cf0d1 | 9528 | ($sc-dispatch |
b2208d2e | 9529 | #{y 6431}# |
840cf0d1 | 9530 | '(any . any)))) |
b2208d2e | 9531 | (if (if #{tmp 6434}# |
840cf0d1 | 9532 | (@apply |
b2208d2e AW |
9533 | (lambda (#{dots 6438}# #{y 6439}#) |
9534 | (#{ellipsis? 6363}# | |
9535 | #{dots 6438}#)) | |
9536 | #{tmp 6434}#) | |
840cf0d1 AW |
9537 | #f) |
9538 | (@apply | |
b2208d2e AW |
9539 | (lambda (#{dots 6440}# #{y 6441}#) |
9540 | (#{f 6423}# | |
9541 | #{y 6441}# | |
9542 | (lambda (#{maps 6442}#) | |
840cf0d1 AW |
9543 | (call-with-values |
9544 | (lambda () | |
b2208d2e AW |
9545 | (#{k 6432}# |
9546 | (cons '() #{maps 6442}#))) | |
9547 | (lambda (#{x 6443}# | |
9548 | #{maps 6444}#) | |
9549 | (if (null? (car #{maps 6444}#)) | |
840cf0d1 AW |
9550 | (syntax-violation |
9551 | 'syntax | |
9552 | "extra ellipsis" | |
b2208d2e | 9553 | #{src 6359}#) |
840cf0d1 | 9554 | (values |
b2208d2e AW |
9555 | (let ((#{map-env 6448}# |
9556 | (car #{maps 6444}#))) | |
46e372ef AW |
9557 | (list 'apply |
9558 | '(primitive | |
9559 | append) | |
b2208d2e AW |
9560 | (#{gen-map 5899}# |
9561 | #{x 6443}# | |
9562 | #{map-env 6448}#))) | |
9563 | (cdr #{maps 6444}#)))))))) | |
9564 | #{tmp 6434}#) | |
840cf0d1 AW |
9565 | (call-with-values |
9566 | (lambda () | |
b2208d2e AW |
9567 | (#{gen-syntax 5896}# |
9568 | #{src 6359}# | |
9569 | #{y 6431}# | |
9570 | #{r 6361}# | |
9571 | #{maps 6362}# | |
9572 | #{ellipsis? 6363}# | |
9573 | #{mod 6364}#)) | |
9574 | (lambda (#{y 6451}# #{maps 6452}#) | |
840cf0d1 AW |
9575 | (call-with-values |
9576 | (lambda () | |
b2208d2e AW |
9577 | (#{k 6432}# #{maps 6452}#)) |
9578 | (lambda (#{x 6453}# #{maps 6454}#) | |
840cf0d1 | 9579 | (values |
b2208d2e AW |
9580 | (if (equal? #{y 6451}# ''()) |
9581 | #{x 6453}# | |
46e372ef | 9582 | (list 'append |
b2208d2e AW |
9583 | #{x 6453}# |
9584 | #{y 6451}#)) | |
9585 | #{maps 6454}#)))))))))) | |
9586 | (#{f 6423}# | |
9587 | #{y 6422}# | |
9588 | (lambda (#{maps 6426}#) | |
840cf0d1 AW |
9589 | (call-with-values |
9590 | (lambda () | |
b2208d2e AW |
9591 | (#{gen-syntax 5896}# |
9592 | #{src 6359}# | |
9593 | #{x 6420}# | |
9594 | #{r 6361}# | |
9595 | (cons '() #{maps 6426}#) | |
9596 | #{ellipsis? 6363}# | |
9597 | #{mod 6364}#)) | |
9598 | (lambda (#{x 6427}# #{maps 6428}#) | |
9599 | (if (null? (car #{maps 6428}#)) | |
840cf0d1 AW |
9600 | (syntax-violation |
9601 | 'syntax | |
9602 | "extra ellipsis" | |
b2208d2e | 9603 | #{src 6359}#) |
840cf0d1 | 9604 | (values |
b2208d2e AW |
9605 | (#{gen-map 5899}# |
9606 | #{x 6427}# | |
9607 | (car #{maps 6428}#)) | |
9608 | (cdr #{maps 6428}#))))))))) | |
9609 | #{tmp 6413}#) | |
9610 | (let ((#{tmp 6470}# | |
9611 | ($sc-dispatch #{e 6360}# '(any . any)))) | |
9612 | (if #{tmp 6470}# | |
840cf0d1 | 9613 | (@apply |
b2208d2e | 9614 | (lambda (#{x 6474}# #{y 6475}#) |
840cf0d1 AW |
9615 | (call-with-values |
9616 | (lambda () | |
b2208d2e AW |
9617 | (#{gen-syntax 5896}# |
9618 | #{src 6359}# | |
9619 | #{x 6474}# | |
9620 | #{r 6361}# | |
9621 | #{maps 6362}# | |
9622 | #{ellipsis? 6363}# | |
9623 | #{mod 6364}#)) | |
9624 | (lambda (#{x 6476}# #{maps 6477}#) | |
840cf0d1 AW |
9625 | (call-with-values |
9626 | (lambda () | |
b2208d2e AW |
9627 | (#{gen-syntax 5896}# |
9628 | #{src 6359}# | |
9629 | #{y 6475}# | |
9630 | #{r 6361}# | |
9631 | #{maps 6477}# | |
9632 | #{ellipsis? 6363}# | |
9633 | #{mod 6364}#)) | |
9634 | (lambda (#{y 6478}# #{maps 6479}#) | |
840cf0d1 | 9635 | (values |
b2208d2e AW |
9636 | (let ((#{atom-key 6484}# |
9637 | (car #{y 6478}#))) | |
9638 | (if (eqv? #{atom-key 6484}# 'quote) | |
9639 | (if (eq? (car #{x 6476}#) 'quote) | |
46e372ef | 9640 | (list 'quote |
b2208d2e AW |
9641 | (cons (car (cdr #{x 6476}#)) |
9642 | (car (cdr #{y 6478}#)))) | |
9643 | (if (eq? (car (cdr #{y 6478}#)) | |
46e372ef | 9644 | '()) |
b2208d2e | 9645 | (list 'list #{x 6476}#) |
46e372ef | 9646 | (list 'cons |
b2208d2e AW |
9647 | #{x 6476}# |
9648 | #{y 6478}#))) | |
9649 | (if (eqv? #{atom-key 6484}# 'list) | |
46e372ef | 9650 | (cons 'list |
b2208d2e AW |
9651 | (cons #{x 6476}# |
9652 | (cdr #{y 6478}#))) | |
46e372ef | 9653 | (list 'cons |
b2208d2e AW |
9654 | #{x 6476}# |
9655 | #{y 6478}#)))) | |
9656 | #{maps 6479}#)))))) | |
9657 | #{tmp 6470}#) | |
9658 | (let ((#{tmp 6513}# | |
840cf0d1 | 9659 | ($sc-dispatch |
b2208d2e | 9660 | #{e 6360}# |
840cf0d1 | 9661 | '#(vector (any . each-any))))) |
b2208d2e | 9662 | (if #{tmp 6513}# |
840cf0d1 | 9663 | (@apply |
b2208d2e | 9664 | (lambda (#{e1 6517}# #{e2 6518}#) |
840cf0d1 AW |
9665 | (call-with-values |
9666 | (lambda () | |
b2208d2e AW |
9667 | (#{gen-syntax 5896}# |
9668 | #{src 6359}# | |
9669 | (cons #{e1 6517}# #{e2 6518}#) | |
9670 | #{r 6361}# | |
9671 | #{maps 6362}# | |
9672 | #{ellipsis? 6363}# | |
9673 | #{mod 6364}#)) | |
9674 | (lambda (#{e 6519}# #{maps 6520}#) | |
840cf0d1 | 9675 | (values |
b2208d2e AW |
9676 | (if (eq? (car #{e 6519}#) 'list) |
9677 | (cons 'vector (cdr #{e 6519}#)) | |
9678 | (if (eq? (car #{e 6519}#) 'quote) | |
46e372ef AW |
9679 | (list 'quote |
9680 | (list->vector | |
b2208d2e AW |
9681 | (car (cdr #{e 6519}#)))) |
9682 | (list 'list->vector #{e 6519}#))) | |
9683 | #{maps 6520}#)))) | |
9684 | #{tmp 6513}#) | |
840cf0d1 | 9685 | (values |
b2208d2e AW |
9686 | (list 'quote #{e 6360}#) |
9687 | #{maps 6362}#)))))))))))) | |
9688 | (#{gen-ref 5897}# | |
9689 | (lambda (#{src 6547}# | |
9690 | #{var 6548}# | |
9691 | #{level 6549}# | |
9692 | #{maps 6550}#) | |
9693 | (if (= #{level 6549}# 0) | |
9694 | (values #{var 6548}# #{maps 6550}#) | |
9695 | (if (null? #{maps 6550}#) | |
840cf0d1 AW |
9696 | (syntax-violation |
9697 | 'syntax | |
9698 | "missing ellipsis" | |
b2208d2e | 9699 | #{src 6547}#) |
840cf0d1 AW |
9700 | (call-with-values |
9701 | (lambda () | |
b2208d2e AW |
9702 | (#{gen-ref 5897}# |
9703 | #{src 6547}# | |
9704 | #{var 6548}# | |
9705 | (#{1-}# #{level 6549}#) | |
9706 | (cdr #{maps 6550}#))) | |
9707 | (lambda (#{outer-var 6551}# #{outer-maps 6552}#) | |
9708 | (let ((#{b 6553}# | |
9709 | (assq #{outer-var 6551}# (car #{maps 6550}#)))) | |
9710 | (if #{b 6553}# | |
9711 | (values (cdr #{b 6553}#) #{maps 6550}#) | |
9712 | (let ((#{inner-var 6555}# | |
840cf0d1 AW |
9713 | (gensym |
9714 | (string-append (symbol->string 'tmp) " ")))) | |
9715 | (values | |
b2208d2e AW |
9716 | #{inner-var 6555}# |
9717 | (cons (cons (cons #{outer-var 6551}# | |
9718 | #{inner-var 6555}#) | |
9719 | (car #{maps 6550}#)) | |
9720 | #{outer-maps 6552}#))))))))))) | |
9721 | (#{gen-map 5899}# | |
9722 | (lambda (#{e 6569}# #{map-env 6570}#) | |
9723 | (let ((#{formals 6571}# (map cdr #{map-env 6570}#)) | |
9724 | (#{actuals 6572}# | |
9725 | (map (lambda (#{x 6574}#) | |
9726 | (list 'ref (car #{x 6574}#))) | |
9727 | #{map-env 6570}#))) | |
9728 | (if (eq? (car #{e 6569}#) 'ref) | |
9729 | (car #{actuals 6572}#) | |
840cf0d1 | 9730 | (if (and-map |
b2208d2e AW |
9731 | (lambda (#{x 6575}#) |
9732 | (if (eq? (car #{x 6575}#) 'ref) | |
9733 | (memq (car (cdr #{x 6575}#)) #{formals 6571}#) | |
840cf0d1 | 9734 | #f)) |
b2208d2e | 9735 | (cdr #{e 6569}#)) |
840cf0d1 | 9736 | (cons 'map |
b2208d2e AW |
9737 | (cons (list 'primitive (car #{e 6569}#)) |
9738 | (map (let ((#{r 6577}# | |
840cf0d1 | 9739 | (map cons |
b2208d2e AW |
9740 | #{formals 6571}# |
9741 | #{actuals 6572}#))) | |
9742 | (lambda (#{x 6578}#) | |
9743 | (cdr (assq (car (cdr #{x 6578}#)) | |
9744 | #{r 6577}#)))) | |
9745 | (cdr #{e 6569}#)))) | |
840cf0d1 | 9746 | (cons 'map |
b2208d2e AW |
9747 | (cons (list 'lambda #{formals 6571}# #{e 6569}#) |
9748 | #{actuals 6572}#))))))) | |
9749 | (#{regen 5903}# | |
9750 | (lambda (#{x 6580}#) | |
9751 | (let ((#{atom-key 6581}# (car #{x 6580}#))) | |
9752 | (if (eqv? #{atom-key 6581}# 'ref) | |
9753 | (let ((#{name 6591}# (car (cdr #{x 6580}#))) | |
9754 | (#{var 6592}# (car (cdr #{x 6580}#)))) | |
840cf0d1 AW |
9755 | (make-struct/no-tail |
9756 | (vector-ref %expanded-vtables 3) | |
9757 | #f | |
b2208d2e AW |
9758 | #{name 6591}# |
9759 | #{var 6592}#)) | |
9760 | (if (eqv? #{atom-key 6581}# 'primitive) | |
9761 | (let ((#{name 6603}# (car (cdr #{x 6580}#)))) | |
840cf0d1 AW |
9762 | (make-struct/no-tail |
9763 | (vector-ref %expanded-vtables 2) | |
9764 | #f | |
b2208d2e AW |
9765 | #{name 6603}#)) |
9766 | (if (eqv? #{atom-key 6581}# 'quote) | |
9767 | (let ((#{exp 6614}# (car (cdr #{x 6580}#)))) | |
840cf0d1 AW |
9768 | (make-struct/no-tail |
9769 | (vector-ref %expanded-vtables 1) | |
9770 | #f | |
b2208d2e AW |
9771 | #{exp 6614}#)) |
9772 | (if (eqv? #{atom-key 6581}# 'lambda) | |
9773 | (if (list? (car (cdr #{x 6580}#))) | |
9774 | (let ((#{req 6625}# (car (cdr #{x 6580}#))) | |
9775 | (#{vars 6627}# (car (cdr #{x 6580}#))) | |
9776 | (#{exp 6629}# | |
9777 | (#{regen 5903}# | |
9778 | (car (cdr (cdr #{x 6580}#)))))) | |
9779 | (let ((#{body 6634}# | |
840cf0d1 AW |
9780 | (make-struct/no-tail |
9781 | (vector-ref %expanded-vtables 15) | |
9782 | #f | |
b2208d2e | 9783 | #{req 6625}# |
840cf0d1 AW |
9784 | #f |
9785 | #f | |
9786 | #f | |
9787 | '() | |
b2208d2e AW |
9788 | #{vars 6627}# |
9789 | #{exp 6629}# | |
840cf0d1 AW |
9790 | #f))) |
9791 | (make-struct/no-tail | |
9792 | (vector-ref %expanded-vtables 14) | |
9793 | #f | |
9794 | '() | |
b2208d2e AW |
9795 | #{body 6634}#))) |
9796 | (error "how did we get here" #{x 6580}#)) | |
9797 | (let ((#{name 6650}# (car #{x 6580}#)) | |
9798 | (#{args 6651}# | |
9799 | (map #{regen 5903}# (cdr #{x 6580}#)))) | |
840cf0d1 AW |
9800 | (make-struct/no-tail |
9801 | (vector-ref %expanded-vtables 12) | |
9802 | #f | |
b2208d2e AW |
9803 | #{name 6650}# |
9804 | #{args 6651}#)))))))))) | |
9805 | (lambda (#{e 5904}# | |
9806 | #{r 5905}# | |
9807 | #{w 5906}# | |
9808 | #{s 5907}# | |
9809 | #{mod 5908}#) | |
9810 | (let ((#{e 5909}# | |
9811 | (let ((#{x 6270}# | |
840cf0d1 | 9812 | (begin |
b2208d2e AW |
9813 | (if (if (pair? #{e 5904}#) #{s 5907}# #f) |
9814 | (set-source-properties! #{e 5904}# #{s 5907}#)) | |
9815 | #{e 5904}#))) | |
9816 | (if (if (null? (car #{w 5906}#)) | |
9817 | (null? (cdr #{w 5906}#)) | |
840cf0d1 | 9818 | #f) |
b2208d2e AW |
9819 | #{x 6270}# |
9820 | (if (if (vector? #{x 6270}#) | |
9821 | (if (= (vector-length #{x 6270}#) 4) | |
9822 | (eq? (vector-ref #{x 6270}# 0) 'syntax-object) | |
840cf0d1 AW |
9823 | #f) |
9824 | #f) | |
b2208d2e AW |
9825 | (let ((#{expression 6302}# (vector-ref #{x 6270}# 1)) |
9826 | (#{wrap 6303}# | |
9827 | (let ((#{w2 6311}# (vector-ref #{x 6270}# 2))) | |
9828 | (let ((#{m1 6312}# (car #{w 5906}#)) | |
9829 | (#{s1 6313}# (cdr #{w 5906}#))) | |
9830 | (if (null? #{m1 6312}#) | |
9831 | (if (null? #{s1 6313}#) | |
9832 | #{w2 6311}# | |
9833 | (cons (car #{w2 6311}#) | |
9834 | (let ((#{m2 6328}# | |
9835 | (cdr #{w2 6311}#))) | |
9836 | (if (null? #{m2 6328}#) | |
9837 | #{s1 6313}# | |
840cf0d1 | 9838 | (append |
b2208d2e AW |
9839 | #{s1 6313}# |
9840 | #{m2 6328}#))))) | |
9841 | (cons (let ((#{m2 6336}# | |
9842 | (car #{w2 6311}#))) | |
9843 | (if (null? #{m2 6336}#) | |
9844 | #{m1 6312}# | |
840cf0d1 | 9845 | (append |
b2208d2e AW |
9846 | #{m1 6312}# |
9847 | #{m2 6336}#))) | |
9848 | (let ((#{m2 6344}# | |
9849 | (cdr #{w2 6311}#))) | |
9850 | (if (null? #{m2 6344}#) | |
9851 | #{s1 6313}# | |
840cf0d1 | 9852 | (append |
b2208d2e AW |
9853 | #{s1 6313}# |
9854 | #{m2 6344}#)))))))) | |
9855 | (#{module 6304}# (vector-ref #{x 6270}# 3))) | |
840cf0d1 AW |
9856 | (vector |
9857 | 'syntax-object | |
b2208d2e AW |
9858 | #{expression 6302}# |
9859 | #{wrap 6303}# | |
9860 | #{module 6304}#)) | |
9861 | (if (null? #{x 6270}#) | |
9862 | #{x 6270}# | |
840cf0d1 AW |
9863 | (vector |
9864 | 'syntax-object | |
b2208d2e AW |
9865 | #{x 6270}# |
9866 | #{w 5906}# | |
9867 | #{mod 5908}#))))))) | |
9868 | (let ((#{tmp 5910}# #{e 5909}#)) | |
9869 | (let ((#{tmp 5911}# | |
9870 | ($sc-dispatch #{tmp 5910}# '(_ any)))) | |
9871 | (if #{tmp 5911}# | |
46e372ef | 9872 | (@apply |
b2208d2e | 9873 | (lambda (#{x 5963}#) |
46e372ef AW |
9874 | (call-with-values |
9875 | (lambda () | |
b2208d2e AW |
9876 | (#{gen-syntax 5896}# |
9877 | #{e 5909}# | |
9878 | #{x 5963}# | |
9879 | #{r 5905}# | |
46e372ef | 9880 | '() |
b2208d2e AW |
9881 | #{ellipsis? 4451}# |
9882 | #{mod 5908}#)) | |
9883 | (lambda (#{e 6046}# #{maps 6047}#) | |
9884 | (#{regen 5903}# #{e 6046}#)))) | |
9885 | #{tmp 5911}#) | |
46e372ef AW |
9886 | (syntax-violation |
9887 | 'syntax | |
9888 | "bad `syntax' form" | |
b2208d2e AW |
9889 | #{e 5909}#)))))))) |
9890 | (#{global-extend 4408}# | |
840cf0d1 AW |
9891 | 'core |
9892 | 'lambda | |
b2208d2e AW |
9893 | (lambda (#{e 6887}# |
9894 | #{r 6888}# | |
9895 | #{w 6889}# | |
9896 | #{s 6890}# | |
9897 | #{mod 6891}#) | |
9898 | (let ((#{tmp 6893}# | |
9899 | ($sc-dispatch #{e 6887}# '(_ any any . each-any)))) | |
9900 | (if #{tmp 6893}# | |
840cf0d1 | 9901 | (@apply |
b2208d2e | 9902 | (lambda (#{args 6897}# #{e1 6898}# #{e2 6899}#) |
840cf0d1 AW |
9903 | (call-with-values |
9904 | (lambda () | |
b2208d2e AW |
9905 | (#{lambda-formals 4452}# #{args 6897}#)) |
9906 | (lambda (#{req 6902}# | |
9907 | #{opt 6903}# | |
9908 | #{rest 6904}# | |
9909 | #{kw 6905}#) | |
840cf0d1 | 9910 | (letrec* |
b2208d2e AW |
9911 | ((#{lp 6906}# |
9912 | (lambda (#{body 6909}# #{meta 6910}#) | |
9913 | (let ((#{tmp 6912}# | |
840cf0d1 | 9914 | ($sc-dispatch |
b2208d2e | 9915 | #{body 6909}# |
840cf0d1 | 9916 | '(any any . each-any)))) |
b2208d2e | 9917 | (if (if #{tmp 6912}# |
840cf0d1 | 9918 | (@apply |
b2208d2e AW |
9919 | (lambda (#{docstring 6916}# |
9920 | #{e1 6917}# | |
9921 | #{e2 6918}#) | |
840cf0d1 | 9922 | (string? |
b2208d2e AW |
9923 | (syntax->datum #{docstring 6916}#))) |
9924 | #{tmp 6912}#) | |
840cf0d1 AW |
9925 | #f) |
9926 | (@apply | |
b2208d2e AW |
9927 | (lambda (#{docstring 6919}# |
9928 | #{e1 6920}# | |
9929 | #{e2 6921}#) | |
9930 | (#{lp 6906}# | |
9931 | (cons #{e1 6920}# #{e2 6921}#) | |
840cf0d1 | 9932 | (append |
b2208d2e | 9933 | #{meta 6910}# |
840cf0d1 AW |
9934 | (list (cons 'documentation |
9935 | (syntax->datum | |
b2208d2e AW |
9936 | #{docstring 6919}#)))))) |
9937 | #{tmp 6912}#) | |
9938 | (let ((#{tmp 6922}# | |
840cf0d1 | 9939 | ($sc-dispatch |
b2208d2e | 9940 | #{body 6909}# |
840cf0d1 AW |
9941 | '(#(vector #(each (any . any))) |
9942 | any | |
9943 | . | |
9944 | each-any)))) | |
b2208d2e | 9945 | (if #{tmp 6922}# |
840cf0d1 | 9946 | (@apply |
b2208d2e AW |
9947 | (lambda (#{k 6926}# |
9948 | #{v 6927}# | |
9949 | #{e1 6928}# | |
9950 | #{e2 6929}#) | |
9951 | (#{lp 6906}# | |
9952 | (cons #{e1 6928}# #{e2 6929}#) | |
840cf0d1 | 9953 | (append |
b2208d2e | 9954 | #{meta 6910}# |
840cf0d1 AW |
9955 | (syntax->datum |
9956 | (map cons | |
b2208d2e AW |
9957 | #{k 6926}# |
9958 | #{v 6927}#))))) | |
9959 | #{tmp 6922}#) | |
9960 | (#{expand-simple-lambda 4453}# | |
9961 | #{e 6887}# | |
9962 | #{r 6888}# | |
9963 | #{w 6889}# | |
9964 | #{s 6890}# | |
9965 | #{mod 6891}# | |
9966 | #{req 6902}# | |
9967 | #{rest 6904}# | |
9968 | #{meta 6910}# | |
9969 | #{body 6909}#)))))))) | |
9970 | (#{lp 6906}# (cons #{e1 6898}# #{e2 6899}#) '()))))) | |
9971 | #{tmp 6893}#) | |
840cf0d1 AW |
9972 | (syntax-violation |
9973 | 'lambda | |
9974 | "bad lambda" | |
b2208d2e AW |
9975 | #{e 6887}#))))) |
9976 | (#{global-extend 4408}# | |
46e372ef | 9977 | 'core |
840cf0d1 | 9978 | 'lambda* |
b2208d2e AW |
9979 | (lambda (#{e 7313}# |
9980 | #{r 7314}# | |
9981 | #{w 7315}# | |
9982 | #{s 7316}# | |
9983 | #{mod 7317}#) | |
9984 | (let ((#{tmp 7319}# | |
9985 | ($sc-dispatch #{e 7313}# '(_ any any . each-any)))) | |
9986 | (if #{tmp 7319}# | |
46e372ef | 9987 | (@apply |
b2208d2e | 9988 | (lambda (#{args 7323}# #{e1 7324}# #{e2 7325}#) |
46e372ef AW |
9989 | (call-with-values |
9990 | (lambda () | |
b2208d2e AW |
9991 | (#{expand-lambda-case 4455}# |
9992 | #{e 7313}# | |
9993 | #{r 7314}# | |
9994 | #{w 7315}# | |
9995 | #{s 7316}# | |
9996 | #{mod 7317}# | |
9997 | #{lambda*-formals 4454}# | |
9998 | (list (cons #{args 7323}# | |
9999 | (cons #{e1 7324}# #{e2 7325}#))))) | |
10000 | (lambda (#{meta 7328}# #{lcase 7329}#) | |
46e372ef AW |
10001 | (make-struct/no-tail |
10002 | (vector-ref %expanded-vtables 14) | |
b2208d2e AW |
10003 | #{s 7316}# |
10004 | #{meta 7328}# | |
10005 | #{lcase 7329}#)))) | |
10006 | #{tmp 7319}#) | |
46e372ef AW |
10007 | (syntax-violation |
10008 | 'lambda | |
10009 | "bad lambda*" | |
b2208d2e AW |
10010 | #{e 7313}#))))) |
10011 | (#{global-extend 4408}# | |
46e372ef | 10012 | 'core |
840cf0d1 | 10013 | 'case-lambda |
b2208d2e AW |
10014 | (lambda (#{e 7492}# |
10015 | #{r 7493}# | |
10016 | #{w 7494}# | |
10017 | #{s 7495}# | |
10018 | #{mod 7496}#) | |
10019 | (let ((#{tmp 7498}# | |
46e372ef | 10020 | ($sc-dispatch |
b2208d2e | 10021 | #{e 7492}# |
46e372ef AW |
10022 | '(_ (any any . each-any) |
10023 | . | |
10024 | #(each (any any . each-any)))))) | |
b2208d2e | 10025 | (if #{tmp 7498}# |
46e372ef | 10026 | (@apply |
b2208d2e AW |
10027 | (lambda (#{args 7502}# |
10028 | #{e1 7503}# | |
10029 | #{e2 7504}# | |
10030 | #{args* 7505}# | |
10031 | #{e1* 7506}# | |
10032 | #{e2* 7507}#) | |
46e372ef AW |
10033 | (call-with-values |
10034 | (lambda () | |
b2208d2e AW |
10035 | (#{expand-lambda-case 4455}# |
10036 | #{e 7492}# | |
10037 | #{r 7493}# | |
10038 | #{w 7494}# | |
10039 | #{s 7495}# | |
10040 | #{mod 7496}# | |
10041 | #{lambda-formals 4452}# | |
10042 | (cons (cons #{args 7502}# | |
10043 | (cons #{e1 7503}# #{e2 7504}#)) | |
10044 | (map (lambda (#{tmp 3382 7510}# | |
10045 | #{tmp 3381 7511}# | |
10046 | #{tmp 3380 7512}#) | |
10047 | (cons #{tmp 3380 7512}# | |
10048 | (cons #{tmp 3381 7511}# | |
10049 | #{tmp 3382 7510}#))) | |
10050 | #{e2* 7507}# | |
10051 | #{e1* 7506}# | |
10052 | #{args* 7505}#)))) | |
10053 | (lambda (#{meta 7513}# #{lcase 7514}#) | |
46e372ef AW |
10054 | (make-struct/no-tail |
10055 | (vector-ref %expanded-vtables 14) | |
b2208d2e AW |
10056 | #{s 7495}# |
10057 | #{meta 7513}# | |
10058 | #{lcase 7514}#)))) | |
10059 | #{tmp 7498}#) | |
46e372ef AW |
10060 | (syntax-violation |
10061 | 'case-lambda | |
10062 | "bad case-lambda" | |
b2208d2e AW |
10063 | #{e 7492}#))))) |
10064 | (#{global-extend 4408}# | |
46e372ef | 10065 | 'core |
840cf0d1 | 10066 | 'case-lambda* |
b2208d2e AW |
10067 | (lambda (#{e 7683}# |
10068 | #{r 7684}# | |
10069 | #{w 7685}# | |
10070 | #{s 7686}# | |
10071 | #{mod 7687}#) | |
10072 | (let ((#{tmp 7689}# | |
46e372ef | 10073 | ($sc-dispatch |
b2208d2e | 10074 | #{e 7683}# |
46e372ef AW |
10075 | '(_ (any any . each-any) |
10076 | . | |
10077 | #(each (any any . each-any)))))) | |
b2208d2e | 10078 | (if #{tmp 7689}# |
46e372ef | 10079 | (@apply |
b2208d2e AW |
10080 | (lambda (#{args 7693}# |
10081 | #{e1 7694}# | |
10082 | #{e2 7695}# | |
10083 | #{args* 7696}# | |
10084 | #{e1* 7697}# | |
10085 | #{e2* 7698}#) | |
46e372ef AW |
10086 | (call-with-values |
10087 | (lambda () | |
b2208d2e AW |
10088 | (#{expand-lambda-case 4455}# |
10089 | #{e 7683}# | |
10090 | #{r 7684}# | |
10091 | #{w 7685}# | |
10092 | #{s 7686}# | |
10093 | #{mod 7687}# | |
10094 | #{lambda*-formals 4454}# | |
10095 | (cons (cons #{args 7693}# | |
10096 | (cons #{e1 7694}# #{e2 7695}#)) | |
10097 | (map (lambda (#{tmp 3417 7701}# | |
10098 | #{tmp 3416 7702}# | |
10099 | #{tmp 3415 7703}#) | |
10100 | (cons #{tmp 3415 7703}# | |
10101 | (cons #{tmp 3416 7702}# | |
10102 | #{tmp 3417 7701}#))) | |
10103 | #{e2* 7698}# | |
10104 | #{e1* 7697}# | |
10105 | #{args* 7696}#)))) | |
10106 | (lambda (#{meta 7704}# #{lcase 7705}#) | |
46e372ef AW |
10107 | (make-struct/no-tail |
10108 | (vector-ref %expanded-vtables 14) | |
b2208d2e AW |
10109 | #{s 7686}# |
10110 | #{meta 7704}# | |
10111 | #{lcase 7705}#)))) | |
10112 | #{tmp 7689}#) | |
46e372ef AW |
10113 | (syntax-violation |
10114 | 'case-lambda | |
10115 | "bad case-lambda*" | |
b2208d2e AW |
10116 | #{e 7683}#))))) |
10117 | (#{global-extend 4408}# | |
840cf0d1 AW |
10118 | 'core |
10119 | 'let | |
10120 | (letrec* | |
b2208d2e AW |
10121 | ((#{expand-let 7914}# |
10122 | (lambda (#{e 8124}# | |
10123 | #{r 8125}# | |
10124 | #{w 8126}# | |
10125 | #{s 8127}# | |
10126 | #{mod 8128}# | |
10127 | #{constructor 8129}# | |
10128 | #{ids 8130}# | |
10129 | #{vals 8131}# | |
10130 | #{exps 8132}#) | |
10131 | (if (not (#{valid-bound-ids? 4433}# #{ids 8130}#)) | |
840cf0d1 AW |
10132 | (syntax-violation |
10133 | 'let | |
10134 | "duplicate bound variable" | |
b2208d2e AW |
10135 | #{e 8124}#) |
10136 | (let ((#{labels 8217}# | |
10137 | (#{gen-labels 4413}# #{ids 8130}#)) | |
10138 | (#{new-vars 8218}# | |
10139 | (map #{gen-var 4457}# #{ids 8130}#))) | |
10140 | (let ((#{nw 8219}# | |
10141 | (#{make-binding-wrap 4424}# | |
10142 | #{ids 8130}# | |
10143 | #{labels 8217}# | |
10144 | #{w 8126}#)) | |
10145 | (#{nr 8220}# | |
10146 | (#{extend-var-env 4406}# | |
10147 | #{labels 8217}# | |
10148 | #{new-vars 8218}# | |
10149 | #{r 8125}#))) | |
10150 | (#{constructor 8129}# | |
10151 | #{s 8127}# | |
10152 | (map syntax->datum #{ids 8130}#) | |
10153 | #{new-vars 8218}# | |
10154 | (map (lambda (#{x 8237}#) | |
10155 | (#{expand 4443}# | |
10156 | #{x 8237}# | |
10157 | #{r 8125}# | |
10158 | #{w 8126}# | |
10159 | #{mod 8128}#)) | |
10160 | #{vals 8131}#) | |
10161 | (#{expand-body 4447}# | |
10162 | #{exps 8132}# | |
10163 | (#{source-wrap 4437}# | |
10164 | #{e 8124}# | |
10165 | #{nw 8219}# | |
10166 | #{s 8127}# | |
10167 | #{mod 8128}#) | |
10168 | #{nr 8220}# | |
10169 | #{nw 8219}# | |
10170 | #{mod 8128}#)))))))) | |
10171 | (lambda (#{e 7915}# | |
10172 | #{r 7916}# | |
10173 | #{w 7917}# | |
10174 | #{s 7918}# | |
10175 | #{mod 7919}#) | |
10176 | (let ((#{tmp 7921}# | |
840cf0d1 | 10177 | ($sc-dispatch |
b2208d2e | 10178 | #{e 7915}# |
840cf0d1 | 10179 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 10180 | (if (if #{tmp 7921}# |
840cf0d1 | 10181 | (@apply |
b2208d2e AW |
10182 | (lambda (#{id 7925}# |
10183 | #{val 7926}# | |
10184 | #{e1 7927}# | |
10185 | #{e2 7928}#) | |
10186 | (and-map #{id? 4410}# #{id 7925}#)) | |
10187 | #{tmp 7921}#) | |
840cf0d1 AW |
10188 | #f) |
10189 | (@apply | |
b2208d2e AW |
10190 | (lambda (#{id 7944}# |
10191 | #{val 7945}# | |
10192 | #{e1 7946}# | |
10193 | #{e2 7947}#) | |
10194 | (#{expand-let 7914}# | |
10195 | #{e 7915}# | |
10196 | #{r 7916}# | |
10197 | #{w 7917}# | |
10198 | #{s 7918}# | |
10199 | #{mod 7919}# | |
10200 | (lambda (#{src 7951}# | |
10201 | #{ids 7952}# | |
10202 | #{vars 7953}# | |
10203 | #{val-exps 7954}# | |
10204 | #{body-exp 7955}#) | |
840cf0d1 AW |
10205 | (begin |
10206 | (for-each | |
b2208d2e AW |
10207 | #{maybe-name-value! 4375}# |
10208 | #{ids 7952}# | |
10209 | #{val-exps 7954}#) | |
10210 | (if (null? #{vars 7953}#) | |
10211 | #{body-exp 7955}# | |
46e372ef AW |
10212 | (make-struct/no-tail |
10213 | (vector-ref %expanded-vtables 16) | |
b2208d2e AW |
10214 | #{src 7951}# |
10215 | #{ids 7952}# | |
10216 | #{vars 7953}# | |
10217 | #{val-exps 7954}# | |
10218 | #{body-exp 7955}#)))) | |
10219 | #{id 7944}# | |
10220 | #{val 7945}# | |
10221 | (cons #{e1 7946}# #{e2 7947}#))) | |
10222 | #{tmp 7921}#) | |
10223 | (let ((#{tmp 7962}# | |
25711fa4 | 10224 | ($sc-dispatch |
b2208d2e | 10225 | #{e 7915}# |
840cf0d1 | 10226 | '(_ any #(each (any any)) any . each-any)))) |
b2208d2e | 10227 | (if (if #{tmp 7962}# |
840cf0d1 | 10228 | (@apply |
b2208d2e AW |
10229 | (lambda (#{f 7966}# |
10230 | #{id 7967}# | |
10231 | #{val 7968}# | |
10232 | #{e1 7969}# | |
10233 | #{e2 7970}#) | |
10234 | (if (if (symbol? #{f 7966}#) | |
840cf0d1 | 10235 | #t |
b2208d2e AW |
10236 | (if (if (vector? #{f 7966}#) |
10237 | (if (= (vector-length #{f 7966}#) 4) | |
10238 | (eq? (vector-ref #{f 7966}# 0) | |
840cf0d1 AW |
10239 | 'syntax-object) |
10240 | #f) | |
10241 | #f) | |
b2208d2e | 10242 | (symbol? (vector-ref #{f 7966}# 1)) |
840cf0d1 | 10243 | #f)) |
b2208d2e | 10244 | (and-map #{id? 4410}# #{id 7967}#) |
840cf0d1 | 10245 | #f)) |
b2208d2e | 10246 | #{tmp 7962}#) |
840cf0d1 AW |
10247 | #f) |
10248 | (@apply | |
b2208d2e AW |
10249 | (lambda (#{f 8012}# |
10250 | #{id 8013}# | |
10251 | #{val 8014}# | |
10252 | #{e1 8015}# | |
10253 | #{e2 8016}#) | |
10254 | (#{expand-let 7914}# | |
10255 | #{e 7915}# | |
10256 | #{r 7916}# | |
10257 | #{w 7917}# | |
10258 | #{s 7918}# | |
10259 | #{mod 7919}# | |
10260 | #{build-named-let 4394}# | |
10261 | (cons #{f 8012}# #{id 8013}#) | |
10262 | #{val 8014}# | |
10263 | (cons #{e1 8015}# #{e2 8016}#))) | |
10264 | #{tmp 7962}#) | |
840cf0d1 AW |
10265 | (syntax-violation |
10266 | 'let | |
10267 | "bad let" | |
b2208d2e | 10268 | (let ((#{x 8029}# |
840cf0d1 | 10269 | (begin |
b2208d2e AW |
10270 | (if (if (pair? #{e 7915}#) #{s 7918}# #f) |
10271 | (set-source-properties! #{e 7915}# #{s 7918}#)) | |
10272 | #{e 7915}#))) | |
10273 | (if (if (null? (car #{w 7917}#)) | |
10274 | (null? (cdr #{w 7917}#)) | |
840cf0d1 | 10275 | #f) |
b2208d2e AW |
10276 | #{x 8029}# |
10277 | (if (if (vector? #{x 8029}#) | |
10278 | (if (= (vector-length #{x 8029}#) 4) | |
10279 | (eq? (vector-ref #{x 8029}# 0) 'syntax-object) | |
840cf0d1 AW |
10280 | #f) |
10281 | #f) | |
b2208d2e AW |
10282 | (let ((#{expression 8061}# (vector-ref #{x 8029}# 1)) |
10283 | (#{wrap 8062}# | |
10284 | (let ((#{w2 8070}# | |
10285 | (vector-ref #{x 8029}# 2))) | |
10286 | (let ((#{m1 8071}# (car #{w 7917}#)) | |
10287 | (#{s1 8072}# (cdr #{w 7917}#))) | |
10288 | (if (null? #{m1 8071}#) | |
10289 | (if (null? #{s1 8072}#) | |
10290 | #{w2 8070}# | |
10291 | (cons (car #{w2 8070}#) | |
10292 | (let ((#{m2 8087}# | |
10293 | (cdr #{w2 8070}#))) | |
10294 | (if (null? #{m2 8087}#) | |
10295 | #{s1 8072}# | |
840cf0d1 | 10296 | (append |
b2208d2e AW |
10297 | #{s1 8072}# |
10298 | #{m2 8087}#))))) | |
10299 | (cons (let ((#{m2 8095}# | |
10300 | (car #{w2 8070}#))) | |
10301 | (if (null? #{m2 8095}#) | |
10302 | #{m1 8071}# | |
840cf0d1 | 10303 | (append |
b2208d2e AW |
10304 | #{m1 8071}# |
10305 | #{m2 8095}#))) | |
10306 | (let ((#{m2 8103}# | |
10307 | (cdr #{w2 8070}#))) | |
10308 | (if (null? #{m2 8103}#) | |
10309 | #{s1 8072}# | |
840cf0d1 | 10310 | (append |
b2208d2e AW |
10311 | #{s1 8072}# |
10312 | #{m2 8103}#)))))))) | |
10313 | (#{module 8063}# (vector-ref #{x 8029}# 3))) | |
840cf0d1 AW |
10314 | (vector |
10315 | 'syntax-object | |
b2208d2e AW |
10316 | #{expression 8061}# |
10317 | #{wrap 8062}# | |
10318 | #{module 8063}#)) | |
10319 | (if (null? #{x 8029}#) | |
10320 | #{x 8029}# | |
840cf0d1 AW |
10321 | (vector |
10322 | 'syntax-object | |
b2208d2e AW |
10323 | #{x 8029}# |
10324 | #{w 7917}# | |
10325 | #{mod 7919}#))))))))))))) | |
10326 | (#{global-extend 4408}# | |
840cf0d1 AW |
10327 | 'core |
10328 | 'letrec | |
b2208d2e AW |
10329 | (lambda (#{e 8714}# |
10330 | #{r 8715}# | |
10331 | #{w 8716}# | |
10332 | #{s 8717}# | |
10333 | #{mod 8718}#) | |
10334 | (let ((#{tmp 8720}# | |
840cf0d1 | 10335 | ($sc-dispatch |
b2208d2e | 10336 | #{e 8714}# |
840cf0d1 | 10337 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 10338 | (if (if #{tmp 8720}# |
840cf0d1 | 10339 | (@apply |
b2208d2e AW |
10340 | (lambda (#{id 8724}# |
10341 | #{val 8725}# | |
10342 | #{e1 8726}# | |
10343 | #{e2 8727}#) | |
10344 | (and-map #{id? 4410}# #{id 8724}#)) | |
10345 | #{tmp 8720}#) | |
840cf0d1 AW |
10346 | #f) |
10347 | (@apply | |
b2208d2e AW |
10348 | (lambda (#{id 8743}# |
10349 | #{val 8744}# | |
10350 | #{e1 8745}# | |
10351 | #{e2 8746}#) | |
10352 | (if (not (#{valid-bound-ids? 4433}# #{id 8743}#)) | |
840cf0d1 AW |
10353 | (syntax-violation |
10354 | 'letrec | |
10355 | "duplicate bound variable" | |
b2208d2e AW |
10356 | #{e 8714}#) |
10357 | (let ((#{labels 8843}# | |
10358 | (#{gen-labels 4413}# #{id 8743}#)) | |
10359 | (#{new-vars 8844}# | |
10360 | (map #{gen-var 4457}# #{id 8743}#))) | |
10361 | (let ((#{w 8845}# | |
10362 | (#{make-binding-wrap 4424}# | |
10363 | #{id 8743}# | |
10364 | #{labels 8843}# | |
10365 | #{w 8716}#)) | |
10366 | (#{r 8846}# | |
10367 | (#{extend-var-env 4406}# | |
10368 | #{labels 8843}# | |
10369 | #{new-vars 8844}# | |
10370 | #{r 8715}#))) | |
10371 | (#{build-letrec 4395}# | |
10372 | #{s 8717}# | |
840cf0d1 | 10373 | #f |
b2208d2e AW |
10374 | (map syntax->datum #{id 8743}#) |
10375 | #{new-vars 8844}# | |
10376 | (map (lambda (#{x 8925}#) | |
10377 | (#{expand 4443}# | |
10378 | #{x 8925}# | |
10379 | #{r 8846}# | |
10380 | #{w 8845}# | |
10381 | #{mod 8718}#)) | |
10382 | #{val 8744}#) | |
10383 | (#{expand-body 4447}# | |
10384 | (cons #{e1 8745}# #{e2 8746}#) | |
10385 | (let ((#{x 8987}# | |
840cf0d1 | 10386 | (begin |
b2208d2e | 10387 | (if (if (pair? #{e 8714}#) #{s 8717}# #f) |
840cf0d1 | 10388 | (set-source-properties! |
b2208d2e AW |
10389 | #{e 8714}# |
10390 | #{s 8717}#)) | |
10391 | #{e 8714}#))) | |
10392 | (if (if (null? (car #{w 8845}#)) | |
10393 | (null? (cdr #{w 8845}#)) | |
840cf0d1 | 10394 | #f) |
b2208d2e AW |
10395 | #{x 8987}# |
10396 | (if (if (vector? #{x 8987}#) | |
10397 | (if (= (vector-length #{x 8987}#) 4) | |
10398 | (eq? (vector-ref #{x 8987}# 0) | |
840cf0d1 AW |
10399 | 'syntax-object) |
10400 | #f) | |
10401 | #f) | |
b2208d2e AW |
10402 | (let ((#{expression 9019}# |
10403 | (vector-ref #{x 8987}# 1)) | |
10404 | (#{wrap 9020}# | |
10405 | (let ((#{w2 9028}# | |
10406 | (vector-ref #{x 8987}# 2))) | |
10407 | (let ((#{m1 9029}# (car #{w 8845}#)) | |
10408 | (#{s1 9030}# (cdr #{w 8845}#))) | |
10409 | (if (null? #{m1 9029}#) | |
10410 | (if (null? #{s1 9030}#) | |
10411 | #{w2 9028}# | |
10412 | (cons (car #{w2 9028}#) | |
10413 | (let ((#{m2 9045}# | |
10414 | (cdr #{w2 9028}#))) | |
10415 | (if (null? #{m2 9045}#) | |
10416 | #{s1 9030}# | |
840cf0d1 | 10417 | (append |
b2208d2e AW |
10418 | #{s1 9030}# |
10419 | #{m2 9045}#))))) | |
10420 | (cons (let ((#{m2 9053}# | |
10421 | (car #{w2 9028}#))) | |
10422 | (if (null? #{m2 9053}#) | |
10423 | #{m1 9029}# | |
840cf0d1 | 10424 | (append |
b2208d2e AW |
10425 | #{m1 9029}# |
10426 | #{m2 9053}#))) | |
10427 | (let ((#{m2 9061}# | |
10428 | (cdr #{w2 9028}#))) | |
10429 | (if (null? #{m2 9061}#) | |
10430 | #{s1 9030}# | |
840cf0d1 | 10431 | (append |
b2208d2e AW |
10432 | #{s1 9030}# |
10433 | #{m2 9061}#)))))))) | |
10434 | (#{module 9021}# | |
10435 | (vector-ref #{x 8987}# 3))) | |
840cf0d1 AW |
10436 | (vector |
10437 | 'syntax-object | |
b2208d2e AW |
10438 | #{expression 9019}# |
10439 | #{wrap 9020}# | |
10440 | #{module 9021}#)) | |
10441 | (if (null? #{x 8987}#) | |
10442 | #{x 8987}# | |
840cf0d1 AW |
10443 | (vector |
10444 | 'syntax-object | |
b2208d2e AW |
10445 | #{x 8987}# |
10446 | #{w 8845}# | |
10447 | #{mod 8718}#))))) | |
10448 | #{r 8846}# | |
10449 | #{w 8845}# | |
10450 | #{mod 8718}#)))))) | |
10451 | #{tmp 8720}#) | |
840cf0d1 AW |
10452 | (syntax-violation |
10453 | 'letrec | |
10454 | "bad letrec" | |
b2208d2e | 10455 | (let ((#{x 9301}# |
840cf0d1 | 10456 | (begin |
b2208d2e AW |
10457 | (if (if (pair? #{e 8714}#) #{s 8717}# #f) |
10458 | (set-source-properties! #{e 8714}# #{s 8717}#)) | |
10459 | #{e 8714}#))) | |
10460 | (if (if (null? (car #{w 8716}#)) | |
10461 | (null? (cdr #{w 8716}#)) | |
840cf0d1 | 10462 | #f) |
b2208d2e AW |
10463 | #{x 9301}# |
10464 | (if (if (vector? #{x 9301}#) | |
10465 | (if (= (vector-length #{x 9301}#) 4) | |
10466 | (eq? (vector-ref #{x 9301}# 0) 'syntax-object) | |
840cf0d1 AW |
10467 | #f) |
10468 | #f) | |
b2208d2e AW |
10469 | (let ((#{expression 9333}# (vector-ref #{x 9301}# 1)) |
10470 | (#{wrap 9334}# | |
10471 | (let ((#{w2 9342}# (vector-ref #{x 9301}# 2))) | |
10472 | (let ((#{m1 9343}# (car #{w 8716}#)) | |
10473 | (#{s1 9344}# (cdr #{w 8716}#))) | |
10474 | (if (null? #{m1 9343}#) | |
10475 | (if (null? #{s1 9344}#) | |
10476 | #{w2 9342}# | |
10477 | (cons (car #{w2 9342}#) | |
10478 | (let ((#{m2 9359}# | |
10479 | (cdr #{w2 9342}#))) | |
10480 | (if (null? #{m2 9359}#) | |
10481 | #{s1 9344}# | |
840cf0d1 | 10482 | (append |
b2208d2e AW |
10483 | #{s1 9344}# |
10484 | #{m2 9359}#))))) | |
10485 | (cons (let ((#{m2 9367}# (car #{w2 9342}#))) | |
10486 | (if (null? #{m2 9367}#) | |
10487 | #{m1 9343}# | |
10488 | (append #{m1 9343}# #{m2 9367}#))) | |
10489 | (let ((#{m2 9375}# (cdr #{w2 9342}#))) | |
10490 | (if (null? #{m2 9375}#) | |
10491 | #{s1 9344}# | |
840cf0d1 | 10492 | (append |
b2208d2e AW |
10493 | #{s1 9344}# |
10494 | #{m2 9375}#)))))))) | |
10495 | (#{module 9335}# (vector-ref #{x 9301}# 3))) | |
840cf0d1 AW |
10496 | (vector |
10497 | 'syntax-object | |
b2208d2e AW |
10498 | #{expression 9333}# |
10499 | #{wrap 9334}# | |
10500 | #{module 9335}#)) | |
10501 | (if (null? #{x 9301}#) | |
10502 | #{x 9301}# | |
840cf0d1 AW |
10503 | (vector |
10504 | 'syntax-object | |
b2208d2e AW |
10505 | #{x 9301}# |
10506 | #{w 8716}# | |
10507 | #{mod 8718}#)))))))))) | |
10508 | (#{global-extend 4408}# | |
840cf0d1 AW |
10509 | 'core |
10510 | 'letrec* | |
b2208d2e AW |
10511 | (lambda (#{e 9526}# |
10512 | #{r 9527}# | |
10513 | #{w 9528}# | |
10514 | #{s 9529}# | |
10515 | #{mod 9530}#) | |
10516 | (let ((#{tmp 9532}# | |
840cf0d1 | 10517 | ($sc-dispatch |
b2208d2e | 10518 | #{e 9526}# |
840cf0d1 | 10519 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 10520 | (if (if #{tmp 9532}# |
840cf0d1 | 10521 | (@apply |
b2208d2e AW |
10522 | (lambda (#{id 9536}# |
10523 | #{val 9537}# | |
10524 | #{e1 9538}# | |
10525 | #{e2 9539}#) | |
10526 | (and-map #{id? 4410}# #{id 9536}#)) | |
10527 | #{tmp 9532}#) | |
840cf0d1 AW |
10528 | #f) |
10529 | (@apply | |
b2208d2e AW |
10530 | (lambda (#{id 9555}# |
10531 | #{val 9556}# | |
10532 | #{e1 9557}# | |
10533 | #{e2 9558}#) | |
10534 | (if (not (#{valid-bound-ids? 4433}# #{id 9555}#)) | |
840cf0d1 AW |
10535 | (syntax-violation |
10536 | 'letrec* | |
10537 | "duplicate bound variable" | |
b2208d2e AW |
10538 | #{e 9526}#) |
10539 | (let ((#{labels 9655}# | |
10540 | (#{gen-labels 4413}# #{id 9555}#)) | |
10541 | (#{new-vars 9656}# | |
10542 | (map #{gen-var 4457}# #{id 9555}#))) | |
10543 | (let ((#{w 9657}# | |
10544 | (#{make-binding-wrap 4424}# | |
10545 | #{id 9555}# | |
10546 | #{labels 9655}# | |
10547 | #{w 9528}#)) | |
10548 | (#{r 9658}# | |
10549 | (#{extend-var-env 4406}# | |
10550 | #{labels 9655}# | |
10551 | #{new-vars 9656}# | |
10552 | #{r 9527}#))) | |
10553 | (#{build-letrec 4395}# | |
10554 | #{s 9529}# | |
840cf0d1 | 10555 | #t |
b2208d2e AW |
10556 | (map syntax->datum #{id 9555}#) |
10557 | #{new-vars 9656}# | |
10558 | (map (lambda (#{x 9737}#) | |
10559 | (#{expand 4443}# | |
10560 | #{x 9737}# | |
10561 | #{r 9658}# | |
10562 | #{w 9657}# | |
10563 | #{mod 9530}#)) | |
10564 | #{val 9556}#) | |
10565 | (#{expand-body 4447}# | |
10566 | (cons #{e1 9557}# #{e2 9558}#) | |
10567 | (let ((#{x 9799}# | |
840cf0d1 | 10568 | (begin |
b2208d2e | 10569 | (if (if (pair? #{e 9526}#) #{s 9529}# #f) |
840cf0d1 | 10570 | (set-source-properties! |
b2208d2e AW |
10571 | #{e 9526}# |
10572 | #{s 9529}#)) | |
10573 | #{e 9526}#))) | |
10574 | (if (if (null? (car #{w 9657}#)) | |
10575 | (null? (cdr #{w 9657}#)) | |
840cf0d1 | 10576 | #f) |
b2208d2e AW |
10577 | #{x 9799}# |
10578 | (if (if (vector? #{x 9799}#) | |
10579 | (if (= (vector-length #{x 9799}#) 4) | |
10580 | (eq? (vector-ref #{x 9799}# 0) | |
840cf0d1 AW |
10581 | 'syntax-object) |
10582 | #f) | |
10583 | #f) | |
b2208d2e AW |
10584 | (let ((#{expression 9831}# |
10585 | (vector-ref #{x 9799}# 1)) | |
10586 | (#{wrap 9832}# | |
10587 | (let ((#{w2 9840}# | |
10588 | (vector-ref #{x 9799}# 2))) | |
10589 | (let ((#{m1 9841}# (car #{w 9657}#)) | |
10590 | (#{s1 9842}# (cdr #{w 9657}#))) | |
10591 | (if (null? #{m1 9841}#) | |
10592 | (if (null? #{s1 9842}#) | |
10593 | #{w2 9840}# | |
10594 | (cons (car #{w2 9840}#) | |
10595 | (let ((#{m2 9857}# | |
10596 | (cdr #{w2 9840}#))) | |
10597 | (if (null? #{m2 9857}#) | |
10598 | #{s1 9842}# | |
840cf0d1 | 10599 | (append |
b2208d2e AW |
10600 | #{s1 9842}# |
10601 | #{m2 9857}#))))) | |
10602 | (cons (let ((#{m2 9865}# | |
10603 | (car #{w2 9840}#))) | |
10604 | (if (null? #{m2 9865}#) | |
10605 | #{m1 9841}# | |
840cf0d1 | 10606 | (append |
b2208d2e AW |
10607 | #{m1 9841}# |
10608 | #{m2 9865}#))) | |
10609 | (let ((#{m2 9873}# | |
10610 | (cdr #{w2 9840}#))) | |
10611 | (if (null? #{m2 9873}#) | |
10612 | #{s1 9842}# | |
840cf0d1 | 10613 | (append |
b2208d2e AW |
10614 | #{s1 9842}# |
10615 | #{m2 9873}#)))))))) | |
10616 | (#{module 9833}# | |
10617 | (vector-ref #{x 9799}# 3))) | |
840cf0d1 AW |
10618 | (vector |
10619 | 'syntax-object | |
b2208d2e AW |
10620 | #{expression 9831}# |
10621 | #{wrap 9832}# | |
10622 | #{module 9833}#)) | |
10623 | (if (null? #{x 9799}#) | |
10624 | #{x 9799}# | |
840cf0d1 AW |
10625 | (vector |
10626 | 'syntax-object | |
b2208d2e AW |
10627 | #{x 9799}# |
10628 | #{w 9657}# | |
10629 | #{mod 9530}#))))) | |
10630 | #{r 9658}# | |
10631 | #{w 9657}# | |
10632 | #{mod 9530}#)))))) | |
10633 | #{tmp 9532}#) | |
840cf0d1 AW |
10634 | (syntax-violation |
10635 | 'letrec* | |
10636 | "bad letrec*" | |
b2208d2e | 10637 | (let ((#{x 10113}# |
840cf0d1 | 10638 | (begin |
b2208d2e AW |
10639 | (if (if (pair? #{e 9526}#) #{s 9529}# #f) |
10640 | (set-source-properties! #{e 9526}# #{s 9529}#)) | |
10641 | #{e 9526}#))) | |
10642 | (if (if (null? (car #{w 9528}#)) | |
10643 | (null? (cdr #{w 9528}#)) | |
840cf0d1 | 10644 | #f) |
b2208d2e AW |
10645 | #{x 10113}# |
10646 | (if (if (vector? #{x 10113}#) | |
10647 | (if (= (vector-length #{x 10113}#) 4) | |
10648 | (eq? (vector-ref #{x 10113}# 0) 'syntax-object) | |
840cf0d1 AW |
10649 | #f) |
10650 | #f) | |
b2208d2e AW |
10651 | (let ((#{expression 10145}# (vector-ref #{x 10113}# 1)) |
10652 | (#{wrap 10146}# | |
10653 | (let ((#{w2 10154}# (vector-ref #{x 10113}# 2))) | |
10654 | (let ((#{m1 10155}# (car #{w 9528}#)) | |
10655 | (#{s1 10156}# (cdr #{w 9528}#))) | |
10656 | (if (null? #{m1 10155}#) | |
10657 | (if (null? #{s1 10156}#) | |
10658 | #{w2 10154}# | |
10659 | (cons (car #{w2 10154}#) | |
10660 | (let ((#{m2 10171}# | |
10661 | (cdr #{w2 10154}#))) | |
10662 | (if (null? #{m2 10171}#) | |
10663 | #{s1 10156}# | |
840cf0d1 | 10664 | (append |
b2208d2e AW |
10665 | #{s1 10156}# |
10666 | #{m2 10171}#))))) | |
10667 | (cons (let ((#{m2 10179}# | |
10668 | (car #{w2 10154}#))) | |
10669 | (if (null? #{m2 10179}#) | |
10670 | #{m1 10155}# | |
840cf0d1 | 10671 | (append |
b2208d2e AW |
10672 | #{m1 10155}# |
10673 | #{m2 10179}#))) | |
10674 | (let ((#{m2 10187}# | |
10675 | (cdr #{w2 10154}#))) | |
10676 | (if (null? #{m2 10187}#) | |
10677 | #{s1 10156}# | |
46e372ef | 10678 | (append |
b2208d2e AW |
10679 | #{s1 10156}# |
10680 | #{m2 10187}#)))))))) | |
10681 | (#{module 10147}# (vector-ref #{x 10113}# 3))) | |
840cf0d1 AW |
10682 | (vector |
10683 | 'syntax-object | |
b2208d2e AW |
10684 | #{expression 10145}# |
10685 | #{wrap 10146}# | |
10686 | #{module 10147}#)) | |
10687 | (if (null? #{x 10113}#) | |
10688 | #{x 10113}# | |
840cf0d1 AW |
10689 | (vector |
10690 | 'syntax-object | |
b2208d2e AW |
10691 | #{x 10113}# |
10692 | #{w 9528}# | |
10693 | #{mod 9530}#)))))))))) | |
10694 | (#{global-extend 4408}# | |
840cf0d1 AW |
10695 | 'core |
10696 | 'set! | |
b2208d2e AW |
10697 | (lambda (#{e 10350}# |
10698 | #{r 10351}# | |
10699 | #{w 10352}# | |
10700 | #{s 10353}# | |
10701 | #{mod 10354}#) | |
10702 | (let ((#{tmp 10356}# | |
10703 | ($sc-dispatch #{e 10350}# '(_ any any)))) | |
10704 | (if (if #{tmp 10356}# | |
840cf0d1 | 10705 | (@apply |
b2208d2e AW |
10706 | (lambda (#{id 10360}# #{val 10361}#) |
10707 | (if (symbol? #{id 10360}#) | |
840cf0d1 | 10708 | #t |
b2208d2e AW |
10709 | (if (if (vector? #{id 10360}#) |
10710 | (if (= (vector-length #{id 10360}#) 4) | |
10711 | (eq? (vector-ref #{id 10360}# 0) 'syntax-object) | |
840cf0d1 AW |
10712 | #f) |
10713 | #f) | |
b2208d2e | 10714 | (symbol? (vector-ref #{id 10360}# 1)) |
840cf0d1 | 10715 | #f))) |
b2208d2e | 10716 | #{tmp 10356}#) |
840cf0d1 AW |
10717 | #f) |
10718 | (@apply | |
b2208d2e | 10719 | (lambda (#{id 10388}# #{val 10389}#) |
0f9f51a1 AW |
10720 | (call-with-values |
10721 | (lambda () | |
b2208d2e AW |
10722 | (#{resolve-identifier 4430}# |
10723 | #{id 10388}# | |
10724 | #{w 10352}# | |
10725 | #{r 10351}# | |
10726 | #{mod 10354}# | |
0f9f51a1 | 10727 | #t)) |
b2208d2e AW |
10728 | (lambda (#{type 10392}# #{value 10393}# #{id-mod 10394}#) |
10729 | (if (eqv? #{type 10392}# 'lexical) | |
10730 | (#{build-lexical-assignment 4381}# | |
10731 | #{s 10353}# | |
10732 | (syntax->datum #{id 10388}#) | |
10733 | #{value 10393}# | |
10734 | (#{expand 4443}# | |
10735 | #{val 10389}# | |
10736 | #{r 10351}# | |
10737 | #{w 10352}# | |
10738 | #{mod 10354}#)) | |
10739 | (if (eqv? #{type 10392}# 'global) | |
10740 | (#{build-global-assignment 4384}# | |
10741 | #{s 10353}# | |
10742 | #{value 10393}# | |
10743 | (#{expand 4443}# | |
10744 | #{val 10389}# | |
10745 | #{r 10351}# | |
10746 | #{w 10352}# | |
10747 | #{mod 10354}#) | |
10748 | #{id-mod 10394}#) | |
10749 | (if (eqv? #{type 10392}# 'macro) | |
0f9f51a1 | 10750 | (if (procedure-property |
b2208d2e | 10751 | #{value 10393}# |
0f9f51a1 | 10752 | 'variable-transformer) |
b2208d2e AW |
10753 | (#{expand 4443}# |
10754 | (#{expand-macro 4446}# | |
10755 | #{value 10393}# | |
10756 | #{e 10350}# | |
10757 | #{r 10351}# | |
10758 | #{w 10352}# | |
10759 | #{s 10353}# | |
0f9f51a1 | 10760 | #f |
b2208d2e AW |
10761 | #{mod 10354}#) |
10762 | #{r 10351}# | |
0f9f51a1 | 10763 | '(()) |
b2208d2e | 10764 | #{mod 10354}#) |
0f9f51a1 AW |
10765 | (syntax-violation |
10766 | 'set! | |
10767 | "not a variable transformer" | |
b2208d2e AW |
10768 | (if (if (null? (car #{w 10352}#)) |
10769 | (null? (cdr #{w 10352}#)) | |
0f9f51a1 | 10770 | #f) |
b2208d2e AW |
10771 | #{e 10350}# |
10772 | (if (if (vector? #{e 10350}#) | |
10773 | (if (= (vector-length #{e 10350}#) 4) | |
10774 | (eq? (vector-ref #{e 10350}# 0) | |
0f9f51a1 | 10775 | 'syntax-object) |
840cf0d1 | 10776 | #f) |
0f9f51a1 | 10777 | #f) |
b2208d2e AW |
10778 | (let ((#{expression 10854}# |
10779 | (vector-ref #{e 10350}# 1)) | |
10780 | (#{wrap 10855}# | |
10781 | (let ((#{w2 10865}# | |
10782 | (vector-ref #{e 10350}# 2))) | |
10783 | (let ((#{m1 10866}# | |
10784 | (car #{w 10352}#)) | |
10785 | (#{s1 10867}# | |
10786 | (cdr #{w 10352}#))) | |
10787 | (if (null? #{m1 10866}#) | |
10788 | (if (null? #{s1 10867}#) | |
10789 | #{w2 10865}# | |
10790 | (cons (car #{w2 10865}#) | |
10791 | (let ((#{m2 10884}# | |
10792 | (cdr #{w2 10865}#))) | |
10793 | (if (null? #{m2 10884}#) | |
10794 | #{s1 10867}# | |
0f9f51a1 | 10795 | (append |
b2208d2e AW |
10796 | #{s1 10867}# |
10797 | #{m2 10884}#))))) | |
10798 | (cons (let ((#{m2 10892}# | |
10799 | (car #{w2 10865}#))) | |
10800 | (if (null? #{m2 10892}#) | |
10801 | #{m1 10866}# | |
0f9f51a1 | 10802 | (append |
b2208d2e AW |
10803 | #{m1 10866}# |
10804 | #{m2 10892}#))) | |
10805 | (let ((#{m2 10900}# | |
10806 | (cdr #{w2 10865}#))) | |
10807 | (if (null? #{m2 10900}#) | |
10808 | #{s1 10867}# | |
0f9f51a1 | 10809 | (append |
b2208d2e AW |
10810 | #{s1 10867}# |
10811 | #{m2 10900}#)))))))) | |
10812 | (#{module 10856}# | |
10813 | (vector-ref #{e 10350}# 3))) | |
0f9f51a1 AW |
10814 | (vector |
10815 | 'syntax-object | |
b2208d2e AW |
10816 | #{expression 10854}# |
10817 | #{wrap 10855}# | |
10818 | #{module 10856}#)) | |
10819 | (if (null? #{e 10350}#) | |
10820 | #{e 10350}# | |
0f9f51a1 AW |
10821 | (vector |
10822 | 'syntax-object | |
b2208d2e AW |
10823 | #{e 10350}# |
10824 | #{w 10352}# | |
10825 | #{mod 10354}#)))) | |
10826 | (if (if (null? (car #{w 10352}#)) | |
10827 | (null? (cdr #{w 10352}#)) | |
0f9f51a1 | 10828 | #f) |
b2208d2e AW |
10829 | #{id 10388}# |
10830 | (if (if (vector? #{id 10388}#) | |
10831 | (if (= (vector-length #{id 10388}#) 4) | |
10832 | (eq? (vector-ref #{id 10388}# 0) | |
0f9f51a1 | 10833 | 'syntax-object) |
840cf0d1 | 10834 | #f) |
840cf0d1 | 10835 | #f) |
b2208d2e AW |
10836 | (let ((#{expression 10952}# |
10837 | (vector-ref #{id 10388}# 1)) | |
10838 | (#{wrap 10953}# | |
10839 | (let ((#{w2 10963}# | |
10840 | (vector-ref #{id 10388}# 2))) | |
10841 | (let ((#{m1 10964}# | |
10842 | (car #{w 10352}#)) | |
10843 | (#{s1 10965}# | |
10844 | (cdr #{w 10352}#))) | |
10845 | (if (null? #{m1 10964}#) | |
10846 | (if (null? #{s1 10965}#) | |
10847 | #{w2 10963}# | |
10848 | (cons (car #{w2 10963}#) | |
10849 | (let ((#{m2 10982}# | |
10850 | (cdr #{w2 10963}#))) | |
10851 | (if (null? #{m2 10982}#) | |
10852 | #{s1 10965}# | |
0f9f51a1 | 10853 | (append |
b2208d2e AW |
10854 | #{s1 10965}# |
10855 | #{m2 10982}#))))) | |
10856 | (cons (let ((#{m2 10990}# | |
10857 | (car #{w2 10963}#))) | |
10858 | (if (null? #{m2 10990}#) | |
10859 | #{m1 10964}# | |
0f9f51a1 | 10860 | (append |
b2208d2e AW |
10861 | #{m1 10964}# |
10862 | #{m2 10990}#))) | |
10863 | (let ((#{m2 10998}# | |
10864 | (cdr #{w2 10963}#))) | |
10865 | (if (null? #{m2 10998}#) | |
10866 | #{s1 10965}# | |
0f9f51a1 | 10867 | (append |
b2208d2e AW |
10868 | #{s1 10965}# |
10869 | #{m2 10998}#)))))))) | |
10870 | (#{module 10954}# | |
10871 | (vector-ref #{id 10388}# 3))) | |
0f9f51a1 AW |
10872 | (vector |
10873 | 'syntax-object | |
b2208d2e AW |
10874 | #{expression 10952}# |
10875 | #{wrap 10953}# | |
10876 | #{module 10954}#)) | |
10877 | (if (null? #{id 10388}#) | |
10878 | #{id 10388}# | |
0f9f51a1 AW |
10879 | (vector |
10880 | 'syntax-object | |
b2208d2e AW |
10881 | #{id 10388}# |
10882 | #{w 10352}# | |
10883 | #{id-mod 10394}#)))))) | |
10884 | (if (eqv? #{type 10392}# 'displaced-lexical) | |
0f9f51a1 AW |
10885 | (syntax-violation |
10886 | 'set! | |
10887 | "identifier out of context" | |
b2208d2e AW |
10888 | (if (if (null? (car #{w 10352}#)) |
10889 | (null? (cdr #{w 10352}#)) | |
0f9f51a1 | 10890 | #f) |
b2208d2e AW |
10891 | #{id 10388}# |
10892 | (if (if (vector? #{id 10388}#) | |
10893 | (if (= (vector-length #{id 10388}#) 4) | |
10894 | (eq? (vector-ref #{id 10388}# 0) | |
0f9f51a1 AW |
10895 | 'syntax-object) |
10896 | #f) | |
10897 | #f) | |
b2208d2e AW |
10898 | (let ((#{expression 11053}# |
10899 | (vector-ref #{id 10388}# 1)) | |
10900 | (#{wrap 11054}# | |
10901 | (let ((#{w2 11064}# | |
10902 | (vector-ref #{id 10388}# 2))) | |
10903 | (let ((#{m1 11065}# | |
10904 | (car #{w 10352}#)) | |
10905 | (#{s1 11066}# | |
10906 | (cdr #{w 10352}#))) | |
10907 | (if (null? #{m1 11065}#) | |
10908 | (if (null? #{s1 11066}#) | |
10909 | #{w2 11064}# | |
10910 | (cons (car #{w2 11064}#) | |
10911 | (let ((#{m2 11083}# | |
10912 | (cdr #{w2 11064}#))) | |
10913 | (if (null? #{m2 11083}#) | |
10914 | #{s1 11066}# | |
0f9f51a1 | 10915 | (append |
b2208d2e AW |
10916 | #{s1 11066}# |
10917 | #{m2 11083}#))))) | |
10918 | (cons (let ((#{m2 11091}# | |
10919 | (car #{w2 11064}#))) | |
10920 | (if (null? #{m2 11091}#) | |
10921 | #{m1 11065}# | |
0f9f51a1 | 10922 | (append |
b2208d2e AW |
10923 | #{m1 11065}# |
10924 | #{m2 11091}#))) | |
10925 | (let ((#{m2 11099}# | |
10926 | (cdr #{w2 11064}#))) | |
10927 | (if (null? #{m2 11099}#) | |
10928 | #{s1 11066}# | |
0f9f51a1 | 10929 | (append |
b2208d2e AW |
10930 | #{s1 11066}# |
10931 | #{m2 11099}#)))))))) | |
10932 | (#{module 11055}# | |
10933 | (vector-ref #{id 10388}# 3))) | |
0f9f51a1 AW |
10934 | (vector |
10935 | 'syntax-object | |
b2208d2e AW |
10936 | #{expression 11053}# |
10937 | #{wrap 11054}# | |
10938 | #{module 11055}#)) | |
10939 | (if (null? #{id 10388}#) | |
10940 | #{id 10388}# | |
0f9f51a1 AW |
10941 | (vector |
10942 | 'syntax-object | |
b2208d2e AW |
10943 | #{id 10388}# |
10944 | #{w 10352}# | |
10945 | #{mod 10354}#))))) | |
0f9f51a1 AW |
10946 | (syntax-violation |
10947 | 'set! | |
10948 | "bad set!" | |
b2208d2e | 10949 | (let ((#{x 11131}# |
0f9f51a1 | 10950 | (begin |
b2208d2e AW |
10951 | (if (if (pair? #{e 10350}#) |
10952 | #{s 10353}# | |
0f9f51a1 AW |
10953 | #f) |
10954 | (set-source-properties! | |
b2208d2e AW |
10955 | #{e 10350}# |
10956 | #{s 10353}#)) | |
10957 | #{e 10350}#))) | |
10958 | (if (if (null? (car #{w 10352}#)) | |
10959 | (null? (cdr #{w 10352}#)) | |
0f9f51a1 | 10960 | #f) |
b2208d2e AW |
10961 | #{x 11131}# |
10962 | (if (if (vector? #{x 11131}#) | |
10963 | (if (= (vector-length #{x 11131}#) 4) | |
10964 | (eq? (vector-ref #{x 11131}# 0) | |
840cf0d1 AW |
10965 | 'syntax-object) |
10966 | #f) | |
10967 | #f) | |
b2208d2e AW |
10968 | (let ((#{expression 11163}# |
10969 | (vector-ref #{x 11131}# 1)) | |
10970 | (#{wrap 11164}# | |
10971 | (let ((#{w2 11172}# | |
840cf0d1 | 10972 | (vector-ref |
b2208d2e | 10973 | #{x 11131}# |
840cf0d1 | 10974 | 2))) |
b2208d2e AW |
10975 | (let ((#{m1 11173}# |
10976 | (car #{w 10352}#)) | |
10977 | (#{s1 11174}# | |
10978 | (cdr #{w 10352}#))) | |
10979 | (if (null? #{m1 11173}#) | |
10980 | (if (null? #{s1 11174}#) | |
10981 | #{w2 11172}# | |
10982 | (cons (car #{w2 11172}#) | |
10983 | (let ((#{m2 11189}# | |
10984 | (cdr #{w2 11172}#))) | |
10985 | (if (null? #{m2 11189}#) | |
10986 | #{s1 11174}# | |
840cf0d1 | 10987 | (append |
b2208d2e AW |
10988 | #{s1 11174}# |
10989 | #{m2 11189}#))))) | |
10990 | (cons (let ((#{m2 11197}# | |
10991 | (car #{w2 11172}#))) | |
10992 | (if (null? #{m2 11197}#) | |
10993 | #{m1 11173}# | |
840cf0d1 | 10994 | (append |
b2208d2e AW |
10995 | #{m1 11173}# |
10996 | #{m2 11197}#))) | |
10997 | (let ((#{m2 11205}# | |
10998 | (cdr #{w2 11172}#))) | |
10999 | (if (null? #{m2 11205}#) | |
11000 | #{s1 11174}# | |
840cf0d1 | 11001 | (append |
b2208d2e AW |
11002 | #{s1 11174}# |
11003 | #{m2 11205}#)))))))) | |
11004 | (#{module 11165}# | |
11005 | (vector-ref #{x 11131}# 3))) | |
840cf0d1 AW |
11006 | (vector |
11007 | 'syntax-object | |
b2208d2e AW |
11008 | #{expression 11163}# |
11009 | #{wrap 11164}# | |
11010 | #{module 11165}#)) | |
11011 | (if (null? #{x 11131}#) | |
11012 | #{x 11131}# | |
840cf0d1 AW |
11013 | (vector |
11014 | 'syntax-object | |
b2208d2e AW |
11015 | #{x 11131}# |
11016 | #{w 10352}# | |
11017 | #{mod 10354}#))))))))))))) | |
11018 | #{tmp 10356}#) | |
11019 | (let ((#{tmp 11220}# | |
840cf0d1 | 11020 | ($sc-dispatch |
b2208d2e | 11021 | #{e 10350}# |
840cf0d1 | 11022 | '(_ (any . each-any) any)))) |
b2208d2e | 11023 | (if #{tmp 11220}# |
840cf0d1 | 11024 | (@apply |
b2208d2e | 11025 | (lambda (#{head 11224}# #{tail 11225}# #{val 11226}#) |
840cf0d1 AW |
11026 | (call-with-values |
11027 | (lambda () | |
b2208d2e AW |
11028 | (#{syntax-type 4442}# |
11029 | #{head 11224}# | |
11030 | #{r 10351}# | |
840cf0d1 AW |
11031 | '(()) |
11032 | #f | |
11033 | #f | |
b2208d2e | 11034 | #{mod 10354}# |
840cf0d1 | 11035 | #t)) |
b2208d2e AW |
11036 | (lambda (#{type 11229}# |
11037 | #{value 11230}# | |
11038 | #{ee 11231}# | |
11039 | #{ww 11232}# | |
11040 | #{ss 11233}# | |
11041 | #{modmod 11234}#) | |
11042 | (if (eqv? #{type 11229}# 'module-ref) | |
11043 | (let ((#{val 11238}# | |
11044 | (#{expand 4443}# | |
11045 | #{val 11226}# | |
11046 | #{r 10351}# | |
11047 | #{w 10352}# | |
11048 | #{mod 10354}#))) | |
840cf0d1 AW |
11049 | (call-with-values |
11050 | (lambda () | |
b2208d2e AW |
11051 | (#{value 11230}# |
11052 | (cons #{head 11224}# #{tail 11225}#) | |
11053 | #{r 10351}# | |
11054 | #{w 10352}#)) | |
11055 | (lambda (#{e 11239}# | |
11056 | #{r 11240}# | |
11057 | #{w 11241}# | |
11058 | #{s* 11242}# | |
11059 | #{mod 11243}#) | |
11060 | (let ((#{tmp 11245}# (list #{e 11239}#))) | |
46e372ef | 11061 | (if (@apply |
b2208d2e AW |
11062 | (lambda (#{e 11247}#) |
11063 | (if (symbol? #{e 11247}#) | |
46e372ef | 11064 | #t |
b2208d2e | 11065 | (if (if (vector? #{e 11247}#) |
46e372ef | 11066 | (if (= (vector-length |
b2208d2e | 11067 | #{e 11247}#) |
46e372ef AW |
11068 | 4) |
11069 | (eq? (vector-ref | |
b2208d2e | 11070 | #{e 11247}# |
46e372ef AW |
11071 | 0) |
11072 | 'syntax-object) | |
840cf0d1 | 11073 | #f) |
840cf0d1 | 11074 | #f) |
46e372ef | 11075 | (symbol? |
b2208d2e | 11076 | (vector-ref #{e 11247}# 1)) |
46e372ef | 11077 | #f))) |
b2208d2e | 11078 | #{tmp 11245}#) |
46e372ef | 11079 | (@apply |
b2208d2e AW |
11080 | (lambda (#{e 11277}#) |
11081 | (#{build-global-assignment 4384}# | |
11082 | #{s 10353}# | |
11083 | (syntax->datum #{e 11277}#) | |
11084 | #{val 11238}# | |
11085 | #{mod 11243}#)) | |
11086 | #{tmp 11245}#) | |
840cf0d1 AW |
11087 | (syntax-violation |
11088 | #f | |
11089 | "source expression failed to match any pattern" | |
b2208d2e AW |
11090 | #{e 11239}#)))))) |
11091 | (#{build-call 4377}# | |
11092 | #{s 10353}# | |
11093 | (#{expand 4443}# | |
840cf0d1 AW |
11094 | (list '#(syntax-object |
11095 | setter | |
11096 | ((top) | |
11097 | #(ribcage () () ()) | |
11098 | #(ribcage () () ()) | |
11099 | #(ribcage | |
11100 | #(type value ee ww ss modmod) | |
11101 | #((top) | |
11102 | (top) | |
11103 | (top) | |
11104 | (top) | |
11105 | (top) | |
11106 | (top)) | |
b2208d2e AW |
11107 | #("i3655" |
11108 | "i3656" | |
11109 | "i3657" | |
11110 | "i3658" | |
0f9f51a1 | 11111 | "i3659" |
b2208d2e | 11112 | "i3660")) |
840cf0d1 AW |
11113 | #(ribcage |
11114 | #(head tail val) | |
11115 | #((top) (top) (top)) | |
b2208d2e | 11116 | #("i3641" "i3642" "i3643")) |
840cf0d1 AW |
11117 | #(ribcage () () ()) |
11118 | #(ribcage | |
11119 | #(e r w s mod) | |
11120 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
11121 | #("i3613" |
11122 | "i3614" | |
11123 | "i3615" | |
11124 | "i3616" | |
11125 | "i3617")) | |
840cf0d1 AW |
11126 | #(ribcage |
11127 | (lambda-var-list | |
11128 | gen-var | |
11129 | strip | |
78a47455 | 11130 | expand-lambda-case |
840cf0d1 | 11131 | lambda*-formals |
78a47455 | 11132 | expand-simple-lambda |
840cf0d1 AW |
11133 | lambda-formals |
11134 | ellipsis? | |
78a47455 | 11135 | expand-void |
840cf0d1 | 11136 | eval-local-transformer |
78a47455 AW |
11137 | expand-local-syntax |
11138 | expand-body | |
11139 | expand-macro | |
b2208d2e | 11140 | expand-call |
78a47455 AW |
11141 | expand-expr |
11142 | expand | |
840cf0d1 | 11143 | syntax-type |
440ac793 | 11144 | parse-when-list |
78a47455 AW |
11145 | expand-install-global |
11146 | expand-top-sequence | |
11147 | expand-sequence | |
840cf0d1 AW |
11148 | source-wrap |
11149 | wrap | |
11150 | bound-id-member? | |
11151 | distinct-bound-ids? | |
11152 | valid-bound-ids? | |
11153 | bound-id=? | |
11154 | free-id=? | |
0f9f51a1 | 11155 | resolve-identifier |
840cf0d1 AW |
11156 | id-var-name |
11157 | same-marks? | |
11158 | join-marks | |
11159 | join-wraps | |
11160 | smart-append | |
11161 | make-binding-wrap | |
11162 | extend-ribcage! | |
11163 | make-empty-ribcage | |
11164 | new-mark | |
11165 | anti-mark | |
11166 | the-anti-mark | |
11167 | top-marked? | |
11168 | top-wrap | |
11169 | empty-wrap | |
11170 | set-ribcage-labels! | |
11171 | set-ribcage-marks! | |
11172 | set-ribcage-symnames! | |
11173 | ribcage-labels | |
11174 | ribcage-marks | |
11175 | ribcage-symnames | |
11176 | ribcage? | |
11177 | make-ribcage | |
11178 | gen-labels | |
11179 | gen-label | |
11180 | make-rename | |
11181 | rename-marks | |
11182 | rename-new | |
11183 | rename-old | |
11184 | subst-rename? | |
11185 | wrap-subst | |
11186 | wrap-marks | |
11187 | make-wrap | |
11188 | id-sym-name&marks | |
11189 | id-sym-name | |
11190 | id? | |
11191 | nonsymbol-id? | |
11192 | global-extend | |
840cf0d1 AW |
11193 | macros-only-env |
11194 | extend-var-env | |
11195 | extend-env | |
11196 | null-env | |
11197 | binding-value | |
11198 | binding-type | |
11199 | make-binding | |
11200 | arg-check | |
11201 | source-annotation | |
11202 | no-source | |
11203 | set-syntax-object-module! | |
11204 | set-syntax-object-wrap! | |
11205 | set-syntax-object-expression! | |
11206 | syntax-object-module | |
11207 | syntax-object-wrap | |
11208 | syntax-object-expression | |
11209 | syntax-object? | |
11210 | make-syntax-object | |
11211 | build-lexical-var | |
11212 | build-letrec | |
11213 | build-named-let | |
11214 | build-let | |
11215 | build-sequence | |
11216 | build-data | |
11217 | build-primref | |
11218 | build-primcall | |
11219 | build-lambda-case | |
11220 | build-case-lambda | |
11221 | build-simple-lambda | |
11222 | build-global-definition | |
11223 | build-global-assignment | |
11224 | build-global-reference | |
11225 | analyze-variable | |
11226 | build-lexical-assignment | |
11227 | build-lexical-reference | |
11228 | build-dynlet | |
11229 | build-conditional | |
11230 | build-call | |
11231 | build-void | |
11232 | maybe-name-value! | |
11233 | decorate-source | |
11234 | get-global-definition-hook | |
11235 | put-global-definition-hook | |
11236 | gensym-hook | |
11237 | local-eval-hook | |
11238 | top-level-eval-hook | |
11239 | fx< | |
11240 | fx= | |
11241 | fx- | |
11242 | fx+ | |
11243 | set-lambda-meta! | |
11244 | lambda-meta | |
11245 | lambda? | |
11246 | make-dynlet | |
11247 | make-letrec | |
11248 | make-let | |
11249 | make-lambda-case | |
11250 | make-lambda | |
11251 | make-seq | |
11252 | make-primcall | |
11253 | make-call | |
11254 | make-conditional | |
11255 | make-toplevel-define | |
11256 | make-toplevel-set | |
11257 | make-toplevel-ref | |
11258 | make-module-set | |
11259 | make-module-ref | |
11260 | make-lexical-set | |
11261 | make-lexical-ref | |
11262 | make-primitive-ref | |
11263 | make-const | |
11264 | make-void) | |
11265 | ((top) | |
11266 | (top) | |
11267 | (top) | |
11268 | (top) | |
11269 | (top) | |
11270 | (top) | |
11271 | (top) | |
11272 | (top) | |
11273 | (top) | |
11274 | (top) | |
11275 | (top) | |
11276 | (top) | |
11277 | (top) | |
11278 | (top) | |
11279 | (top) | |
11280 | (top) | |
11281 | (top) | |
11282 | (top) | |
11283 | (top) | |
11284 | (top) | |
11285 | (top) | |
11286 | (top) | |
11287 | (top) | |
11288 | (top) | |
11289 | (top) | |
11290 | (top) | |
11291 | (top) | |
11292 | (top) | |
11293 | (top) | |
11294 | (top) | |
11295 | (top) | |
11296 | (top) | |
11297 | (top) | |
11298 | (top) | |
11299 | (top) | |
11300 | (top) | |
11301 | (top) | |
11302 | (top) | |
11303 | (top) | |
11304 | (top) | |
11305 | (top) | |
11306 | (top) | |
11307 | (top) | |
11308 | (top) | |
11309 | (top) | |
11310 | (top) | |
11311 | (top) | |
11312 | (top) | |
11313 | (top) | |
11314 | (top) | |
11315 | (top) | |
11316 | (top) | |
11317 | (top) | |
11318 | (top) | |
11319 | (top) | |
11320 | (top) | |
11321 | (top) | |
11322 | (top) | |
11323 | (top) | |
11324 | (top) | |
11325 | (top) | |
11326 | (top) | |
11327 | (top) | |
11328 | (top) | |
11329 | (top) | |
11330 | (top) | |
11331 | (top) | |
11332 | (top) | |
11333 | (top) | |
11334 | (top) | |
11335 | (top) | |
11336 | (top) | |
11337 | (top) | |
11338 | (top) | |
11339 | (top) | |
11340 | (top) | |
11341 | (top) | |
11342 | (top) | |
11343 | (top) | |
11344 | (top) | |
11345 | (top) | |
11346 | (top) | |
11347 | (top) | |
11348 | (top) | |
11349 | (top) | |
11350 | (top) | |
11351 | (top) | |
11352 | (top) | |
11353 | (top) | |
11354 | (top) | |
11355 | (top) | |
11356 | (top) | |
11357 | (top) | |
11358 | (top) | |
11359 | (top) | |
11360 | (top) | |
11361 | (top) | |
11362 | (top) | |
11363 | (top) | |
11364 | (top) | |
11365 | (top) | |
11366 | (top) | |
11367 | (top) | |
11368 | (top) | |
11369 | (top) | |
11370 | (top) | |
11371 | (top) | |
11372 | (top) | |
11373 | (top) | |
11374 | (top) | |
11375 | (top) | |
11376 | (top) | |
11377 | (top) | |
11378 | (top) | |
11379 | (top) | |
11380 | (top) | |
11381 | (top) | |
11382 | (top) | |
11383 | (top) | |
11384 | (top) | |
11385 | (top) | |
11386 | (top) | |
11387 | (top) | |
11388 | (top) | |
11389 | (top) | |
11390 | (top) | |
11391 | (top) | |
11392 | (top) | |
11393 | (top) | |
11394 | (top) | |
11395 | (top) | |
11396 | (top) | |
11397 | (top) | |
11398 | (top) | |
11399 | (top) | |
11400 | (top) | |
11401 | (top) | |
11402 | (top)) | |
46e372ef AW |
11403 | ("i471" |
11404 | "i469" | |
11405 | "i467" | |
11406 | "i465" | |
11407 | "i463" | |
11408 | "i461" | |
11409 | "i459" | |
11410 | "i457" | |
11411 | "i455" | |
11412 | "i453" | |
11413 | "i451" | |
11414 | "i449" | |
11415 | "i447" | |
11416 | "i445" | |
11417 | "i443" | |
11418 | "i441" | |
11419 | "i439" | |
11420 | "i437" | |
11421 | "i435" | |
11422 | "i433" | |
11423 | "i431" | |
11424 | "i429" | |
11425 | "i427" | |
11426 | "i425" | |
11427 | "i423" | |
11428 | "i421" | |
11429 | "i419" | |
11430 | "i417" | |
11431 | "i415" | |
11432 | "i413" | |
11433 | "i411" | |
11434 | "i409" | |
11435 | "i407" | |
11436 | "i405" | |
11437 | "i403" | |
0f9f51a1 | 11438 | "i401" |
46e372ef | 11439 | "i400" |
0f9f51a1 | 11440 | "i398" |
840cf0d1 | 11441 | "i395" |
0f9f51a1 | 11442 | "i394" |
46e372ef | 11443 | "i393" |
0f9f51a1 | 11444 | "i391" |
46e372ef AW |
11445 | "i390" |
11446 | "i388" | |
11447 | "i386" | |
11448 | "i384" | |
11449 | "i382" | |
11450 | "i380" | |
11451 | "i378" | |
11452 | "i376" | |
0f9f51a1 | 11453 | "i374" |
46e372ef | 11454 | "i371" |
0f9f51a1 | 11455 | "i369" |
46e372ef AW |
11456 | "i368" |
11457 | "i366" | |
11458 | "i364" | |
11459 | "i362" | |
840cf0d1 AW |
11460 | "i360" |
11461 | "i359" | |
0f9f51a1 | 11462 | "i358" |
46e372ef | 11463 | "i357" |
0f9f51a1 AW |
11464 | "i355" |
11465 | "i354" | |
46e372ef AW |
11466 | "i351" |
11467 | "i349" | |
11468 | "i347" | |
11469 | "i345" | |
11470 | "i343" | |
11471 | "i341" | |
840cf0d1 AW |
11472 | "i340" |
11473 | "i339" | |
46e372ef AW |
11474 | "i337" |
11475 | "i335" | |
840cf0d1 | 11476 | "i334" |
46e372ef | 11477 | "i331" |
840cf0d1 | 11478 | "i330" |
46e372ef AW |
11479 | "i328" |
11480 | "i326" | |
11481 | "i324" | |
11482 | "i322" | |
11483 | "i320" | |
11484 | "i318" | |
11485 | "i316" | |
11486 | "i314" | |
11487 | "i312" | |
11488 | "i309" | |
11489 | "i307" | |
11490 | "i305" | |
11491 | "i303" | |
11492 | "i301" | |
11493 | "i299" | |
11494 | "i297" | |
11495 | "i295" | |
11496 | "i293" | |
11497 | "i291" | |
11498 | "i289" | |
11499 | "i287" | |
11500 | "i285" | |
11501 | "i283" | |
11502 | "i281" | |
11503 | "i279" | |
11504 | "i277" | |
11505 | "i275" | |
11506 | "i273" | |
11507 | "i271" | |
11508 | "i269" | |
11509 | "i267" | |
11510 | "i265" | |
11511 | "i263" | |
840cf0d1 | 11512 | "i262" |
46e372ef AW |
11513 | "i259" |
11514 | "i257" | |
840cf0d1 AW |
11515 | "i256" |
11516 | "i255" | |
11517 | "i254" | |
11518 | "i253" | |
46e372ef AW |
11519 | "i251" |
11520 | "i249" | |
11521 | "i247" | |
11522 | "i244" | |
11523 | "i242" | |
11524 | "i240" | |
11525 | "i238" | |
11526 | "i236" | |
11527 | "i234" | |
11528 | "i232" | |
11529 | "i230" | |
11530 | "i228" | |
11531 | "i226" | |
11532 | "i224" | |
11533 | "i222" | |
11534 | "i220" | |
11535 | "i218" | |
11536 | "i216" | |
11537 | "i214" | |
11538 | "i212" | |
11539 | "i210" | |
11540 | "i208")) | |
840cf0d1 AW |
11541 | #(ribcage |
11542 | (define-structure | |
11543 | define-expansion-accessors | |
11544 | define-expansion-constructors) | |
11545 | ((top) (top) (top)) | |
0f9f51a1 AW |
11546 | ("i46" "i45" "i44")) |
11547 | #(ribcage () () ())) | |
840cf0d1 | 11548 | (hygiene guile)) |
b2208d2e AW |
11549 | #{head 11224}#) |
11550 | #{r 10351}# | |
11551 | #{w 10352}# | |
11552 | #{mod 10354}#) | |
11553 | (map (lambda (#{e 11606}#) | |
11554 | (#{expand 4443}# | |
11555 | #{e 11606}# | |
11556 | #{r 10351}# | |
11557 | #{w 10352}# | |
11558 | #{mod 10354}#)) | |
840cf0d1 | 11559 | (append |
b2208d2e AW |
11560 | #{tail 11225}# |
11561 | (list #{val 11226}#)))))))) | |
11562 | #{tmp 11220}#) | |
840cf0d1 AW |
11563 | (syntax-violation |
11564 | 'set! | |
11565 | "bad set!" | |
b2208d2e | 11566 | (let ((#{x 11698}# |
840cf0d1 | 11567 | (begin |
b2208d2e AW |
11568 | (if (if (pair? #{e 10350}#) #{s 10353}# #f) |
11569 | (set-source-properties! #{e 10350}# #{s 10353}#)) | |
11570 | #{e 10350}#))) | |
11571 | (if (if (null? (car #{w 10352}#)) | |
11572 | (null? (cdr #{w 10352}#)) | |
840cf0d1 | 11573 | #f) |
b2208d2e AW |
11574 | #{x 11698}# |
11575 | (if (if (vector? #{x 11698}#) | |
11576 | (if (= (vector-length #{x 11698}#) 4) | |
11577 | (eq? (vector-ref #{x 11698}# 0) 'syntax-object) | |
840cf0d1 AW |
11578 | #f) |
11579 | #f) | |
b2208d2e AW |
11580 | (let ((#{expression 11730}# (vector-ref #{x 11698}# 1)) |
11581 | (#{wrap 11731}# | |
11582 | (let ((#{w2 11739}# | |
11583 | (vector-ref #{x 11698}# 2))) | |
11584 | (let ((#{m1 11740}# (car #{w 10352}#)) | |
11585 | (#{s1 11741}# (cdr #{w 10352}#))) | |
11586 | (if (null? #{m1 11740}#) | |
11587 | (if (null? #{s1 11741}#) | |
11588 | #{w2 11739}# | |
11589 | (cons (car #{w2 11739}#) | |
11590 | (let ((#{m2 11756}# | |
11591 | (cdr #{w2 11739}#))) | |
11592 | (if (null? #{m2 11756}#) | |
11593 | #{s1 11741}# | |
840cf0d1 | 11594 | (append |
b2208d2e AW |
11595 | #{s1 11741}# |
11596 | #{m2 11756}#))))) | |
11597 | (cons (let ((#{m2 11764}# | |
11598 | (car #{w2 11739}#))) | |
11599 | (if (null? #{m2 11764}#) | |
11600 | #{m1 11740}# | |
840cf0d1 | 11601 | (append |
b2208d2e AW |
11602 | #{m1 11740}# |
11603 | #{m2 11764}#))) | |
11604 | (let ((#{m2 11772}# | |
11605 | (cdr #{w2 11739}#))) | |
11606 | (if (null? #{m2 11772}#) | |
11607 | #{s1 11741}# | |
840cf0d1 | 11608 | (append |
b2208d2e AW |
11609 | #{s1 11741}# |
11610 | #{m2 11772}#)))))))) | |
11611 | (#{module 11732}# (vector-ref #{x 11698}# 3))) | |
840cf0d1 AW |
11612 | (vector |
11613 | 'syntax-object | |
b2208d2e AW |
11614 | #{expression 11730}# |
11615 | #{wrap 11731}# | |
11616 | #{module 11732}#)) | |
11617 | (if (null? #{x 11698}#) | |
11618 | #{x 11698}# | |
840cf0d1 AW |
11619 | (vector |
11620 | 'syntax-object | |
b2208d2e AW |
11621 | #{x 11698}# |
11622 | #{w 10352}# | |
11623 | #{mod 10354}#)))))))))))) | |
840cf0d1 AW |
11624 | (module-define! |
11625 | (current-module) | |
11626 | '@ | |
11627 | (make-syntax-transformer | |
11628 | '@ | |
11629 | 'module-ref | |
b2208d2e AW |
11630 | (lambda (#{e 11803}# #{r 11804}# #{w 11805}#) |
11631 | (let ((#{tmp 11807}# | |
11632 | ($sc-dispatch #{e 11803}# '(_ each-any any)))) | |
11633 | (if (if #{tmp 11807}# | |
25711fa4 | 11634 | (@apply |
b2208d2e AW |
11635 | (lambda (#{mod 11810}# #{id 11811}#) |
11636 | (if (and-map #{id? 4410}# #{mod 11810}#) | |
11637 | (if (symbol? #{id 11811}#) | |
840cf0d1 | 11638 | #t |
b2208d2e AW |
11639 | (if (if (vector? #{id 11811}#) |
11640 | (if (= (vector-length #{id 11811}#) 4) | |
11641 | (eq? (vector-ref #{id 11811}# 0) | |
840cf0d1 AW |
11642 | 'syntax-object) |
11643 | #f) | |
11644 | #f) | |
b2208d2e | 11645 | (symbol? (vector-ref #{id 11811}# 1)) |
840cf0d1 AW |
11646 | #f)) |
11647 | #f)) | |
b2208d2e | 11648 | #{tmp 11807}#) |
840cf0d1 AW |
11649 | #f) |
11650 | (@apply | |
b2208d2e | 11651 | (lambda (#{mod 11851}# #{id 11852}#) |
840cf0d1 | 11652 | (values |
b2208d2e AW |
11653 | (syntax->datum #{id 11852}#) |
11654 | #{r 11804}# | |
11655 | #{w 11805}# | |
25711fa4 | 11656 | #f |
840cf0d1 AW |
11657 | (syntax->datum |
11658 | (cons '#(syntax-object | |
11659 | public | |
11660 | ((top) | |
11661 | #(ribcage | |
11662 | #(mod id) | |
11663 | #((top) (top)) | |
b2208d2e | 11664 | #("i3702" "i3703")) |
840cf0d1 AW |
11665 | #(ribcage () () ()) |
11666 | #(ribcage | |
11667 | #(e r w) | |
11668 | #((top) (top) (top)) | |
b2208d2e | 11669 | #("i3690" "i3691" "i3692")) |
840cf0d1 AW |
11670 | #(ribcage |
11671 | (lambda-var-list | |
11672 | gen-var | |
11673 | strip | |
78a47455 | 11674 | expand-lambda-case |
840cf0d1 | 11675 | lambda*-formals |
78a47455 | 11676 | expand-simple-lambda |
840cf0d1 AW |
11677 | lambda-formals |
11678 | ellipsis? | |
78a47455 | 11679 | expand-void |
840cf0d1 | 11680 | eval-local-transformer |
78a47455 AW |
11681 | expand-local-syntax |
11682 | expand-body | |
11683 | expand-macro | |
b2208d2e | 11684 | expand-call |
78a47455 AW |
11685 | expand-expr |
11686 | expand | |
840cf0d1 | 11687 | syntax-type |
440ac793 | 11688 | parse-when-list |
78a47455 AW |
11689 | expand-install-global |
11690 | expand-top-sequence | |
11691 | expand-sequence | |
840cf0d1 AW |
11692 | source-wrap |
11693 | wrap | |
11694 | bound-id-member? | |
11695 | distinct-bound-ids? | |
11696 | valid-bound-ids? | |
11697 | bound-id=? | |
11698 | free-id=? | |
0f9f51a1 | 11699 | resolve-identifier |
840cf0d1 AW |
11700 | id-var-name |
11701 | same-marks? | |
11702 | join-marks | |
11703 | join-wraps | |
11704 | smart-append | |
11705 | make-binding-wrap | |
11706 | extend-ribcage! | |
11707 | make-empty-ribcage | |
11708 | new-mark | |
11709 | anti-mark | |
11710 | the-anti-mark | |
11711 | top-marked? | |
11712 | top-wrap | |
11713 | empty-wrap | |
11714 | set-ribcage-labels! | |
11715 | set-ribcage-marks! | |
11716 | set-ribcage-symnames! | |
11717 | ribcage-labels | |
11718 | ribcage-marks | |
11719 | ribcage-symnames | |
11720 | ribcage? | |
11721 | make-ribcage | |
11722 | gen-labels | |
11723 | gen-label | |
11724 | make-rename | |
11725 | rename-marks | |
11726 | rename-new | |
11727 | rename-old | |
11728 | subst-rename? | |
11729 | wrap-subst | |
11730 | wrap-marks | |
11731 | make-wrap | |
11732 | id-sym-name&marks | |
11733 | id-sym-name | |
11734 | id? | |
11735 | nonsymbol-id? | |
11736 | global-extend | |
840cf0d1 AW |
11737 | macros-only-env |
11738 | extend-var-env | |
11739 | extend-env | |
11740 | null-env | |
11741 | binding-value | |
11742 | binding-type | |
11743 | make-binding | |
11744 | arg-check | |
11745 | source-annotation | |
11746 | no-source | |
11747 | set-syntax-object-module! | |
11748 | set-syntax-object-wrap! | |
11749 | set-syntax-object-expression! | |
11750 | syntax-object-module | |
11751 | syntax-object-wrap | |
11752 | syntax-object-expression | |
11753 | syntax-object? | |
11754 | make-syntax-object | |
11755 | build-lexical-var | |
11756 | build-letrec | |
11757 | build-named-let | |
11758 | build-let | |
11759 | build-sequence | |
11760 | build-data | |
11761 | build-primref | |
11762 | build-primcall | |
11763 | build-lambda-case | |
11764 | build-case-lambda | |
11765 | build-simple-lambda | |
11766 | build-global-definition | |
11767 | build-global-assignment | |
11768 | build-global-reference | |
11769 | analyze-variable | |
11770 | build-lexical-assignment | |
11771 | build-lexical-reference | |
11772 | build-dynlet | |
11773 | build-conditional | |
11774 | build-call | |
11775 | build-void | |
11776 | maybe-name-value! | |
11777 | decorate-source | |
11778 | get-global-definition-hook | |
11779 | put-global-definition-hook | |
11780 | gensym-hook | |
11781 | local-eval-hook | |
11782 | top-level-eval-hook | |
11783 | fx< | |
11784 | fx= | |
11785 | fx- | |
11786 | fx+ | |
11787 | set-lambda-meta! | |
11788 | lambda-meta | |
11789 | lambda? | |
11790 | make-dynlet | |
11791 | make-letrec | |
11792 | make-let | |
11793 | make-lambda-case | |
11794 | make-lambda | |
11795 | make-seq | |
11796 | make-primcall | |
11797 | make-call | |
11798 | make-conditional | |
11799 | make-toplevel-define | |
11800 | make-toplevel-set | |
11801 | make-toplevel-ref | |
11802 | make-module-set | |
11803 | make-module-ref | |
11804 | make-lexical-set | |
11805 | make-lexical-ref | |
11806 | make-primitive-ref | |
11807 | make-const | |
11808 | make-void) | |
11809 | ((top) | |
11810 | (top) | |
11811 | (top) | |
11812 | (top) | |
11813 | (top) | |
11814 | (top) | |
11815 | (top) | |
11816 | (top) | |
11817 | (top) | |
11818 | (top) | |
11819 | (top) | |
11820 | (top) | |
11821 | (top) | |
11822 | (top) | |
11823 | (top) | |
11824 | (top) | |
11825 | (top) | |
11826 | (top) | |
11827 | (top) | |
11828 | (top) | |
11829 | (top) | |
11830 | (top) | |
11831 | (top) | |
11832 | (top) | |
11833 | (top) | |
11834 | (top) | |
11835 | (top) | |
11836 | (top) | |
11837 | (top) | |
11838 | (top) | |
11839 | (top) | |
11840 | (top) | |
11841 | (top) | |
11842 | (top) | |
11843 | (top) | |
11844 | (top) | |
11845 | (top) | |
11846 | (top) | |
11847 | (top) | |
11848 | (top) | |
11849 | (top) | |
11850 | (top) | |
11851 | (top) | |
11852 | (top) | |
11853 | (top) | |
11854 | (top) | |
11855 | (top) | |
11856 | (top) | |
11857 | (top) | |
11858 | (top) | |
11859 | (top) | |
11860 | (top) | |
11861 | (top) | |
11862 | (top) | |
11863 | (top) | |
11864 | (top) | |
11865 | (top) | |
11866 | (top) | |
11867 | (top) | |
11868 | (top) | |
11869 | (top) | |
11870 | (top) | |
11871 | (top) | |
11872 | (top) | |
11873 | (top) | |
11874 | (top) | |
11875 | (top) | |
11876 | (top) | |
11877 | (top) | |
11878 | (top) | |
11879 | (top) | |
11880 | (top) | |
11881 | (top) | |
11882 | (top) | |
11883 | (top) | |
11884 | (top) | |
11885 | (top) | |
11886 | (top) | |
11887 | (top) | |
11888 | (top) | |
11889 | (top) | |
11890 | (top) | |
11891 | (top) | |
11892 | (top) | |
11893 | (top) | |
11894 | (top) | |
11895 | (top) | |
11896 | (top) | |
11897 | (top) | |
11898 | (top) | |
11899 | (top) | |
11900 | (top) | |
11901 | (top) | |
11902 | (top) | |
11903 | (top) | |
11904 | (top) | |
11905 | (top) | |
11906 | (top) | |
11907 | (top) | |
11908 | (top) | |
11909 | (top) | |
11910 | (top) | |
11911 | (top) | |
11912 | (top) | |
11913 | (top) | |
11914 | (top) | |
11915 | (top) | |
11916 | (top) | |
11917 | (top) | |
11918 | (top) | |
11919 | (top) | |
11920 | (top) | |
11921 | (top) | |
11922 | (top) | |
11923 | (top) | |
11924 | (top) | |
11925 | (top) | |
11926 | (top) | |
11927 | (top) | |
11928 | (top) | |
11929 | (top) | |
11930 | (top) | |
11931 | (top) | |
11932 | (top) | |
11933 | (top) | |
11934 | (top) | |
11935 | (top) | |
11936 | (top) | |
11937 | (top) | |
11938 | (top) | |
11939 | (top) | |
11940 | (top) | |
11941 | (top) | |
11942 | (top) | |
11943 | (top) | |
11944 | (top) | |
11945 | (top) | |
11946 | (top)) | |
46e372ef AW |
11947 | ("i471" |
11948 | "i469" | |
11949 | "i467" | |
11950 | "i465" | |
11951 | "i463" | |
11952 | "i461" | |
11953 | "i459" | |
11954 | "i457" | |
11955 | "i455" | |
11956 | "i453" | |
11957 | "i451" | |
11958 | "i449" | |
11959 | "i447" | |
11960 | "i445" | |
11961 | "i443" | |
11962 | "i441" | |
11963 | "i439" | |
11964 | "i437" | |
11965 | "i435" | |
11966 | "i433" | |
11967 | "i431" | |
11968 | "i429" | |
11969 | "i427" | |
11970 | "i425" | |
11971 | "i423" | |
11972 | "i421" | |
11973 | "i419" | |
11974 | "i417" | |
11975 | "i415" | |
11976 | "i413" | |
11977 | "i411" | |
11978 | "i409" | |
11979 | "i407" | |
11980 | "i405" | |
11981 | "i403" | |
0f9f51a1 | 11982 | "i401" |
46e372ef | 11983 | "i400" |
0f9f51a1 | 11984 | "i398" |
840cf0d1 | 11985 | "i395" |
0f9f51a1 | 11986 | "i394" |
46e372ef | 11987 | "i393" |
0f9f51a1 | 11988 | "i391" |
46e372ef AW |
11989 | "i390" |
11990 | "i388" | |
11991 | "i386" | |
11992 | "i384" | |
11993 | "i382" | |
11994 | "i380" | |
11995 | "i378" | |
11996 | "i376" | |
0f9f51a1 | 11997 | "i374" |
46e372ef | 11998 | "i371" |
0f9f51a1 | 11999 | "i369" |
46e372ef AW |
12000 | "i368" |
12001 | "i366" | |
12002 | "i364" | |
12003 | "i362" | |
840cf0d1 AW |
12004 | "i360" |
12005 | "i359" | |
0f9f51a1 | 12006 | "i358" |
46e372ef | 12007 | "i357" |
0f9f51a1 AW |
12008 | "i355" |
12009 | "i354" | |
46e372ef AW |
12010 | "i351" |
12011 | "i349" | |
12012 | "i347" | |
12013 | "i345" | |
12014 | "i343" | |
12015 | "i341" | |
840cf0d1 AW |
12016 | "i340" |
12017 | "i339" | |
46e372ef AW |
12018 | "i337" |
12019 | "i335" | |
840cf0d1 | 12020 | "i334" |
46e372ef | 12021 | "i331" |
840cf0d1 | 12022 | "i330" |
46e372ef AW |
12023 | "i328" |
12024 | "i326" | |
12025 | "i324" | |
12026 | "i322" | |
12027 | "i320" | |
12028 | "i318" | |
12029 | "i316" | |
12030 | "i314" | |
12031 | "i312" | |
12032 | "i309" | |
12033 | "i307" | |
12034 | "i305" | |
12035 | "i303" | |
12036 | "i301" | |
12037 | "i299" | |
12038 | "i297" | |
12039 | "i295" | |
12040 | "i293" | |
12041 | "i291" | |
12042 | "i289" | |
12043 | "i287" | |
12044 | "i285" | |
12045 | "i283" | |
12046 | "i281" | |
12047 | "i279" | |
12048 | "i277" | |
12049 | "i275" | |
12050 | "i273" | |
12051 | "i271" | |
12052 | "i269" | |
12053 | "i267" | |
12054 | "i265" | |
12055 | "i263" | |
840cf0d1 | 12056 | "i262" |
46e372ef AW |
12057 | "i259" |
12058 | "i257" | |
840cf0d1 AW |
12059 | "i256" |
12060 | "i255" | |
12061 | "i254" | |
12062 | "i253" | |
46e372ef AW |
12063 | "i251" |
12064 | "i249" | |
12065 | "i247" | |
12066 | "i244" | |
12067 | "i242" | |
12068 | "i240" | |
12069 | "i238" | |
12070 | "i236" | |
12071 | "i234" | |
12072 | "i232" | |
12073 | "i230" | |
12074 | "i228" | |
12075 | "i226" | |
12076 | "i224" | |
12077 | "i222" | |
12078 | "i220" | |
12079 | "i218" | |
12080 | "i216" | |
12081 | "i214" | |
12082 | "i212" | |
12083 | "i210" | |
12084 | "i208")) | |
840cf0d1 AW |
12085 | #(ribcage |
12086 | (define-structure | |
12087 | define-expansion-accessors | |
12088 | define-expansion-constructors) | |
12089 | ((top) (top) (top)) | |
0f9f51a1 AW |
12090 | ("i46" "i45" "i44")) |
12091 | #(ribcage () () ())) | |
840cf0d1 | 12092 | (hygiene guile)) |
b2208d2e AW |
12093 | #{mod 11851}#)))) |
12094 | #{tmp 11807}#) | |
25711fa4 | 12095 | (syntax-violation |
840cf0d1 AW |
12096 | #f |
12097 | "source expression failed to match any pattern" | |
b2208d2e AW |
12098 | #{e 11803}#)))))) |
12099 | (#{global-extend 4408}# | |
840cf0d1 AW |
12100 | 'module-ref |
12101 | '@@ | |
b2208d2e | 12102 | (lambda (#{e 11956}# #{r 11957}# #{w 11958}#) |
840cf0d1 | 12103 | (letrec* |
b2208d2e AW |
12104 | ((#{remodulate 11959}# |
12105 | (lambda (#{x 12195}# #{mod 12196}#) | |
12106 | (if (pair? #{x 12195}#) | |
12107 | (cons (#{remodulate 11959}# | |
12108 | (car #{x 12195}#) | |
12109 | #{mod 12196}#) | |
12110 | (#{remodulate 11959}# | |
12111 | (cdr #{x 12195}#) | |
12112 | #{mod 12196}#)) | |
12113 | (if (if (vector? #{x 12195}#) | |
12114 | (if (= (vector-length #{x 12195}#) 4) | |
12115 | (eq? (vector-ref #{x 12195}# 0) 'syntax-object) | |
840cf0d1 AW |
12116 | #f) |
12117 | #f) | |
b2208d2e AW |
12118 | (let ((#{expression 12210}# |
12119 | (#{remodulate 11959}# | |
12120 | (vector-ref #{x 12195}# 1) | |
12121 | #{mod 12196}#)) | |
12122 | (#{wrap 12211}# (vector-ref #{x 12195}# 2))) | |
840cf0d1 AW |
12123 | (vector |
12124 | 'syntax-object | |
b2208d2e AW |
12125 | #{expression 12210}# |
12126 | #{wrap 12211}# | |
12127 | #{mod 12196}#)) | |
12128 | (if (vector? #{x 12195}#) | |
12129 | (let ((#{n 12219}# (vector-length #{x 12195}#))) | |
12130 | (let ((#{v 12220}# (make-vector #{n 12219}#))) | |
840cf0d1 | 12131 | (letrec* |
b2208d2e AW |
12132 | ((#{loop 12221}# |
12133 | (lambda (#{i 12276}#) | |
12134 | (if (= #{i 12276}# #{n 12219}#) | |
12135 | #{v 12220}# | |
840cf0d1 AW |
12136 | (begin |
12137 | (vector-set! | |
b2208d2e AW |
12138 | #{v 12220}# |
12139 | #{i 12276}# | |
12140 | (#{remodulate 11959}# | |
12141 | (vector-ref #{x 12195}# #{i 12276}#) | |
12142 | #{mod 12196}#)) | |
12143 | (#{loop 12221}# (#{1+}# #{i 12276}#))))))) | |
12144 | (#{loop 12221}# 0)))) | |
12145 | #{x 12195}#)))))) | |
12146 | (let ((#{tmp 11961}# | |
12147 | ($sc-dispatch #{e 11956}# '(_ each-any any)))) | |
12148 | (if (if #{tmp 11961}# | |
840cf0d1 | 12149 | (@apply |
b2208d2e AW |
12150 | (lambda (#{mod 11965}# #{exp 11966}#) |
12151 | (and-map #{id? 4410}# #{mod 11965}#)) | |
12152 | #{tmp 11961}#) | |
840cf0d1 AW |
12153 | #f) |
12154 | (@apply | |
b2208d2e AW |
12155 | (lambda (#{mod 11982}# #{exp 11983}#) |
12156 | (let ((#{mod 11984}# | |
840cf0d1 AW |
12157 | (syntax->datum |
12158 | (cons '#(syntax-object | |
12159 | private | |
12160 | ((top) | |
12161 | #(ribcage | |
12162 | #(mod exp) | |
12163 | #((top) (top)) | |
b2208d2e AW |
12164 | #("i3746" "i3747")) |
12165 | #(ribcage (remodulate) ((top)) ("i3713")) | |
840cf0d1 AW |
12166 | #(ribcage |
12167 | #(e r w) | |
12168 | #((top) (top) (top)) | |
b2208d2e | 12169 | #("i3710" "i3711" "i3712")) |
840cf0d1 AW |
12170 | #(ribcage |
12171 | (lambda-var-list | |
12172 | gen-var | |
12173 | strip | |
78a47455 | 12174 | expand-lambda-case |
840cf0d1 | 12175 | lambda*-formals |
78a47455 | 12176 | expand-simple-lambda |
840cf0d1 AW |
12177 | lambda-formals |
12178 | ellipsis? | |
78a47455 | 12179 | expand-void |
840cf0d1 | 12180 | eval-local-transformer |
78a47455 AW |
12181 | expand-local-syntax |
12182 | expand-body | |
12183 | expand-macro | |
b2208d2e | 12184 | expand-call |
78a47455 AW |
12185 | expand-expr |
12186 | expand | |
840cf0d1 | 12187 | syntax-type |
440ac793 | 12188 | parse-when-list |
78a47455 AW |
12189 | expand-install-global |
12190 | expand-top-sequence | |
12191 | expand-sequence | |
840cf0d1 AW |
12192 | source-wrap |
12193 | wrap | |
12194 | bound-id-member? | |
12195 | distinct-bound-ids? | |
12196 | valid-bound-ids? | |
12197 | bound-id=? | |
12198 | free-id=? | |
0f9f51a1 | 12199 | resolve-identifier |
840cf0d1 AW |
12200 | id-var-name |
12201 | same-marks? | |
12202 | join-marks | |
12203 | join-wraps | |
12204 | smart-append | |
12205 | make-binding-wrap | |
12206 | extend-ribcage! | |
12207 | make-empty-ribcage | |
12208 | new-mark | |
12209 | anti-mark | |
12210 | the-anti-mark | |
12211 | top-marked? | |
12212 | top-wrap | |
12213 | empty-wrap | |
12214 | set-ribcage-labels! | |
12215 | set-ribcage-marks! | |
12216 | set-ribcage-symnames! | |
12217 | ribcage-labels | |
12218 | ribcage-marks | |
12219 | ribcage-symnames | |
12220 | ribcage? | |
12221 | make-ribcage | |
12222 | gen-labels | |
12223 | gen-label | |
12224 | make-rename | |
12225 | rename-marks | |
12226 | rename-new | |
12227 | rename-old | |
12228 | subst-rename? | |
12229 | wrap-subst | |
12230 | wrap-marks | |
12231 | make-wrap | |
12232 | id-sym-name&marks | |
12233 | id-sym-name | |
12234 | id? | |
12235 | nonsymbol-id? | |
12236 | global-extend | |
840cf0d1 AW |
12237 | macros-only-env |
12238 | extend-var-env | |
12239 | extend-env | |
12240 | null-env | |
12241 | binding-value | |
12242 | binding-type | |
12243 | make-binding | |
12244 | arg-check | |
12245 | source-annotation | |
12246 | no-source | |
12247 | set-syntax-object-module! | |
12248 | set-syntax-object-wrap! | |
12249 | set-syntax-object-expression! | |
12250 | syntax-object-module | |
12251 | syntax-object-wrap | |
12252 | syntax-object-expression | |
12253 | syntax-object? | |
12254 | make-syntax-object | |
12255 | build-lexical-var | |
12256 | build-letrec | |
12257 | build-named-let | |
12258 | build-let | |
12259 | build-sequence | |
12260 | build-data | |
12261 | build-primref | |
12262 | build-primcall | |
12263 | build-lambda-case | |
12264 | build-case-lambda | |
12265 | build-simple-lambda | |
12266 | build-global-definition | |
12267 | build-global-assignment | |
12268 | build-global-reference | |
12269 | analyze-variable | |
12270 | build-lexical-assignment | |
12271 | build-lexical-reference | |
12272 | build-dynlet | |
12273 | build-conditional | |
12274 | build-call | |
12275 | build-void | |
12276 | maybe-name-value! | |
12277 | decorate-source | |
12278 | get-global-definition-hook | |
12279 | put-global-definition-hook | |
12280 | gensym-hook | |
12281 | local-eval-hook | |
12282 | top-level-eval-hook | |
12283 | fx< | |
12284 | fx= | |
12285 | fx- | |
12286 | fx+ | |
12287 | set-lambda-meta! | |
12288 | lambda-meta | |
12289 | lambda? | |
12290 | make-dynlet | |
12291 | make-letrec | |
12292 | make-let | |
12293 | make-lambda-case | |
12294 | make-lambda | |
12295 | make-seq | |
12296 | make-primcall | |
12297 | make-call | |
12298 | make-conditional | |
12299 | make-toplevel-define | |
12300 | make-toplevel-set | |
12301 | make-toplevel-ref | |
12302 | make-module-set | |
12303 | make-module-ref | |
12304 | make-lexical-set | |
12305 | make-lexical-ref | |
12306 | make-primitive-ref | |
12307 | make-const | |
12308 | make-void) | |
12309 | ((top) | |
12310 | (top) | |
12311 | (top) | |
12312 | (top) | |
12313 | (top) | |
12314 | (top) | |
12315 | (top) | |
12316 | (top) | |
12317 | (top) | |
12318 | (top) | |
12319 | (top) | |
12320 | (top) | |
12321 | (top) | |
12322 | (top) | |
12323 | (top) | |
12324 | (top) | |
12325 | (top) | |
12326 | (top) | |
12327 | (top) | |
12328 | (top) | |
12329 | (top) | |
12330 | (top) | |
12331 | (top) | |
12332 | (top) | |
12333 | (top) | |
12334 | (top) | |
12335 | (top) | |
12336 | (top) | |
12337 | (top) | |
12338 | (top) | |
12339 | (top) | |
12340 | (top) | |
12341 | (top) | |
12342 | (top) | |
12343 | (top) | |
12344 | (top) | |
12345 | (top) | |
12346 | (top) | |
12347 | (top) | |
12348 | (top) | |
12349 | (top) | |
12350 | (top) | |
12351 | (top) | |
12352 | (top) | |
12353 | (top) | |
12354 | (top) | |
12355 | (top) | |
12356 | (top) | |
12357 | (top) | |
12358 | (top) | |
12359 | (top) | |
12360 | (top) | |
12361 | (top) | |
12362 | (top) | |
12363 | (top) | |
12364 | (top) | |
12365 | (top) | |
12366 | (top) | |
12367 | (top) | |
12368 | (top) | |
12369 | (top) | |
12370 | (top) | |
12371 | (top) | |
12372 | (top) | |
12373 | (top) | |
12374 | (top) | |
12375 | (top) | |
12376 | (top) | |
12377 | (top) | |
12378 | (top) | |
12379 | (top) | |
12380 | (top) | |
12381 | (top) | |
12382 | (top) | |
12383 | (top) | |
12384 | (top) | |
12385 | (top) | |
12386 | (top) | |
12387 | (top) | |
12388 | (top) | |
12389 | (top) | |
12390 | (top) | |
12391 | (top) | |
12392 | (top) | |
12393 | (top) | |
12394 | (top) | |
12395 | (top) | |
12396 | (top) | |
12397 | (top) | |
12398 | (top) | |
12399 | (top) | |
12400 | (top) | |
12401 | (top) | |
12402 | (top) | |
12403 | (top) | |
12404 | (top) | |
12405 | (top) | |
12406 | (top) | |
12407 | (top) | |
12408 | (top) | |
12409 | (top) | |
12410 | (top) | |
12411 | (top) | |
12412 | (top) | |
12413 | (top) | |
12414 | (top) | |
12415 | (top) | |
12416 | (top) | |
12417 | (top) | |
12418 | (top) | |
12419 | (top) | |
12420 | (top) | |
12421 | (top) | |
12422 | (top) | |
12423 | (top) | |
12424 | (top) | |
12425 | (top) | |
12426 | (top) | |
12427 | (top) | |
12428 | (top) | |
12429 | (top) | |
12430 | (top) | |
12431 | (top) | |
12432 | (top) | |
12433 | (top) | |
12434 | (top) | |
12435 | (top) | |
12436 | (top) | |
12437 | (top) | |
12438 | (top) | |
12439 | (top) | |
12440 | (top) | |
12441 | (top) | |
12442 | (top) | |
12443 | (top) | |
12444 | (top) | |
12445 | (top) | |
12446 | (top)) | |
46e372ef AW |
12447 | ("i471" |
12448 | "i469" | |
12449 | "i467" | |
12450 | "i465" | |
12451 | "i463" | |
12452 | "i461" | |
12453 | "i459" | |
12454 | "i457" | |
12455 | "i455" | |
12456 | "i453" | |
12457 | "i451" | |
12458 | "i449" | |
12459 | "i447" | |
12460 | "i445" | |
12461 | "i443" | |
12462 | "i441" | |
12463 | "i439" | |
12464 | "i437" | |
12465 | "i435" | |
12466 | "i433" | |
12467 | "i431" | |
12468 | "i429" | |
12469 | "i427" | |
12470 | "i425" | |
12471 | "i423" | |
12472 | "i421" | |
12473 | "i419" | |
12474 | "i417" | |
12475 | "i415" | |
12476 | "i413" | |
12477 | "i411" | |
12478 | "i409" | |
12479 | "i407" | |
12480 | "i405" | |
12481 | "i403" | |
0f9f51a1 | 12482 | "i401" |
46e372ef | 12483 | "i400" |
0f9f51a1 | 12484 | "i398" |
840cf0d1 | 12485 | "i395" |
0f9f51a1 | 12486 | "i394" |
46e372ef | 12487 | "i393" |
0f9f51a1 | 12488 | "i391" |
46e372ef AW |
12489 | "i390" |
12490 | "i388" | |
12491 | "i386" | |
12492 | "i384" | |
12493 | "i382" | |
12494 | "i380" | |
12495 | "i378" | |
12496 | "i376" | |
0f9f51a1 | 12497 | "i374" |
46e372ef | 12498 | "i371" |
0f9f51a1 | 12499 | "i369" |
46e372ef AW |
12500 | "i368" |
12501 | "i366" | |
12502 | "i364" | |
12503 | "i362" | |
840cf0d1 AW |
12504 | "i360" |
12505 | "i359" | |
0f9f51a1 | 12506 | "i358" |
46e372ef | 12507 | "i357" |
0f9f51a1 AW |
12508 | "i355" |
12509 | "i354" | |
46e372ef AW |
12510 | "i351" |
12511 | "i349" | |
12512 | "i347" | |
12513 | "i345" | |
12514 | "i343" | |
12515 | "i341" | |
840cf0d1 AW |
12516 | "i340" |
12517 | "i339" | |
46e372ef AW |
12518 | "i337" |
12519 | "i335" | |
840cf0d1 | 12520 | "i334" |
46e372ef | 12521 | "i331" |
840cf0d1 | 12522 | "i330" |
46e372ef AW |
12523 | "i328" |
12524 | "i326" | |
12525 | "i324" | |
12526 | "i322" | |
12527 | "i320" | |
12528 | "i318" | |
12529 | "i316" | |
12530 | "i314" | |
12531 | "i312" | |
12532 | "i309" | |
12533 | "i307" | |
12534 | "i305" | |
12535 | "i303" | |
12536 | "i301" | |
12537 | "i299" | |
12538 | "i297" | |
12539 | "i295" | |
12540 | "i293" | |
12541 | "i291" | |
12542 | "i289" | |
12543 | "i287" | |
12544 | "i285" | |
12545 | "i283" | |
12546 | "i281" | |
12547 | "i279" | |
12548 | "i277" | |
12549 | "i275" | |
12550 | "i273" | |
12551 | "i271" | |
12552 | "i269" | |
12553 | "i267" | |
12554 | "i265" | |
12555 | "i263" | |
840cf0d1 | 12556 | "i262" |
46e372ef AW |
12557 | "i259" |
12558 | "i257" | |
840cf0d1 AW |
12559 | "i256" |
12560 | "i255" | |
12561 | "i254" | |
12562 | "i253" | |
46e372ef AW |
12563 | "i251" |
12564 | "i249" | |
12565 | "i247" | |
12566 | "i244" | |
12567 | "i242" | |
12568 | "i240" | |
12569 | "i238" | |
12570 | "i236" | |
12571 | "i234" | |
12572 | "i232" | |
12573 | "i230" | |
12574 | "i228" | |
12575 | "i226" | |
12576 | "i224" | |
12577 | "i222" | |
12578 | "i220" | |
12579 | "i218" | |
12580 | "i216" | |
12581 | "i214" | |
12582 | "i212" | |
12583 | "i210" | |
12584 | "i208")) | |
840cf0d1 AW |
12585 | #(ribcage |
12586 | (define-structure | |
12587 | define-expansion-accessors | |
12588 | define-expansion-constructors) | |
12589 | ((top) (top) (top)) | |
0f9f51a1 AW |
12590 | ("i46" "i45" "i44")) |
12591 | #(ribcage () () ())) | |
840cf0d1 | 12592 | (hygiene guile)) |
b2208d2e | 12593 | #{mod 11982}#)))) |
840cf0d1 | 12594 | (values |
b2208d2e AW |
12595 | (#{remodulate 11959}# |
12596 | #{exp 11983}# | |
12597 | #{mod 11984}#) | |
12598 | #{r 11957}# | |
12599 | #{w 11958}# | |
12600 | (#{source-annotation 4404}# #{exp 11983}#) | |
12601 | #{mod 11984}#))) | |
12602 | #{tmp 11961}#) | |
25711fa4 | 12603 | (syntax-violation |
840cf0d1 AW |
12604 | #f |
12605 | "source expression failed to match any pattern" | |
b2208d2e AW |
12606 | #{e 11956}#)))))) |
12607 | (#{global-extend 4408}# | |
840cf0d1 AW |
12608 | 'core |
12609 | 'if | |
b2208d2e AW |
12610 | (lambda (#{e 12389}# |
12611 | #{r 12390}# | |
12612 | #{w 12391}# | |
12613 | #{s 12392}# | |
12614 | #{mod 12393}#) | |
12615 | (let ((#{tmp 12395}# | |
12616 | ($sc-dispatch #{e 12389}# '(_ any any)))) | |
12617 | (if #{tmp 12395}# | |
840cf0d1 | 12618 | (@apply |
b2208d2e AW |
12619 | (lambda (#{test 12399}# #{then 12400}#) |
12620 | (#{build-conditional 4378}# | |
12621 | #{s 12392}# | |
12622 | (#{expand 4443}# | |
12623 | #{test 12399}# | |
12624 | #{r 12390}# | |
12625 | #{w 12391}# | |
12626 | #{mod 12393}#) | |
12627 | (#{expand 4443}# | |
12628 | #{then 12400}# | |
12629 | #{r 12390}# | |
12630 | #{w 12391}# | |
12631 | #{mod 12393}#) | |
840cf0d1 AW |
12632 | (make-struct/no-tail |
12633 | (vector-ref %expanded-vtables 0) | |
12634 | #f))) | |
b2208d2e AW |
12635 | #{tmp 12395}#) |
12636 | (let ((#{tmp 12661}# | |
12637 | ($sc-dispatch #{e 12389}# '(_ any any any)))) | |
12638 | (if #{tmp 12661}# | |
840cf0d1 | 12639 | (@apply |
b2208d2e AW |
12640 | (lambda (#{test 12665}# #{then 12666}# #{else 12667}#) |
12641 | (#{build-conditional 4378}# | |
12642 | #{s 12392}# | |
12643 | (#{expand 4443}# | |
12644 | #{test 12665}# | |
12645 | #{r 12390}# | |
12646 | #{w 12391}# | |
12647 | #{mod 12393}#) | |
12648 | (#{expand 4443}# | |
12649 | #{then 12666}# | |
12650 | #{r 12390}# | |
12651 | #{w 12391}# | |
12652 | #{mod 12393}#) | |
12653 | (#{expand 4443}# | |
12654 | #{else 12667}# | |
12655 | #{r 12390}# | |
12656 | #{w 12391}# | |
12657 | #{mod 12393}#))) | |
12658 | #{tmp 12661}#) | |
840cf0d1 AW |
12659 | (syntax-violation |
12660 | #f | |
12661 | "source expression failed to match any pattern" | |
b2208d2e AW |
12662 | #{e 12389}#))))))) |
12663 | (#{global-extend 4408}# | |
840cf0d1 AW |
12664 | 'core |
12665 | 'with-fluids | |
b2208d2e AW |
12666 | (lambda (#{e 13126}# |
12667 | #{r 13127}# | |
12668 | #{w 13128}# | |
12669 | #{s 13129}# | |
12670 | #{mod 13130}#) | |
12671 | (let ((#{tmp 13132}# | |
840cf0d1 | 12672 | ($sc-dispatch |
b2208d2e | 12673 | #{e 13126}# |
840cf0d1 | 12674 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 12675 | (if #{tmp 13132}# |
840cf0d1 | 12676 | (@apply |
b2208d2e AW |
12677 | (lambda (#{fluid 13136}# |
12678 | #{val 13137}# | |
12679 | #{b 13138}# | |
12680 | #{b* 13139}#) | |
12681 | (#{build-dynlet 4379}# | |
12682 | #{s 13129}# | |
12683 | (map (lambda (#{x 13232}#) | |
12684 | (#{expand 4443}# | |
12685 | #{x 13232}# | |
12686 | #{r 13127}# | |
12687 | #{w 13128}# | |
12688 | #{mod 13130}#)) | |
12689 | #{fluid 13136}#) | |
12690 | (map (lambda (#{x 13314}#) | |
12691 | (#{expand 4443}# | |
12692 | #{x 13314}# | |
12693 | #{r 13127}# | |
12694 | #{w 13128}# | |
12695 | #{mod 13130}#)) | |
12696 | #{val 13137}#) | |
12697 | (#{expand-body 4447}# | |
12698 | (cons #{b 13138}# #{b* 13139}#) | |
12699 | (let ((#{x 13407}# | |
46e372ef | 12700 | (begin |
b2208d2e | 12701 | (if (if (pair? #{e 13126}#) #{s 13129}# #f) |
46e372ef | 12702 | (set-source-properties! |
b2208d2e AW |
12703 | #{e 13126}# |
12704 | #{s 13129}#)) | |
12705 | #{e 13126}#))) | |
12706 | (if (if (null? (car #{w 13128}#)) | |
12707 | (null? (cdr #{w 13128}#)) | |
46e372ef | 12708 | #f) |
b2208d2e AW |
12709 | #{x 13407}# |
12710 | (if (if (vector? #{x 13407}#) | |
12711 | (if (= (vector-length #{x 13407}#) 4) | |
12712 | (eq? (vector-ref #{x 13407}# 0) 'syntax-object) | |
46e372ef AW |
12713 | #f) |
12714 | #f) | |
b2208d2e AW |
12715 | (let ((#{expression 13439}# |
12716 | (vector-ref #{x 13407}# 1)) | |
12717 | (#{wrap 13440}# | |
12718 | (let ((#{w2 13448}# | |
12719 | (vector-ref #{x 13407}# 2))) | |
12720 | (let ((#{m1 13449}# (car #{w 13128}#)) | |
12721 | (#{s1 13450}# (cdr #{w 13128}#))) | |
12722 | (if (null? #{m1 13449}#) | |
12723 | (if (null? #{s1 13450}#) | |
12724 | #{w2 13448}# | |
12725 | (cons (car #{w2 13448}#) | |
12726 | (let ((#{m2 13465}# | |
12727 | (cdr #{w2 13448}#))) | |
12728 | (if (null? #{m2 13465}#) | |
12729 | #{s1 13450}# | |
46e372ef | 12730 | (append |
b2208d2e AW |
12731 | #{s1 13450}# |
12732 | #{m2 13465}#))))) | |
12733 | (cons (let ((#{m2 13473}# | |
12734 | (car #{w2 13448}#))) | |
12735 | (if (null? #{m2 13473}#) | |
12736 | #{m1 13449}# | |
46e372ef | 12737 | (append |
b2208d2e AW |
12738 | #{m1 13449}# |
12739 | #{m2 13473}#))) | |
12740 | (let ((#{m2 13481}# | |
12741 | (cdr #{w2 13448}#))) | |
12742 | (if (null? #{m2 13481}#) | |
12743 | #{s1 13450}# | |
46e372ef | 12744 | (append |
b2208d2e AW |
12745 | #{s1 13450}# |
12746 | #{m2 13481}#)))))))) | |
12747 | (#{module 13441}# (vector-ref #{x 13407}# 3))) | |
46e372ef AW |
12748 | (vector |
12749 | 'syntax-object | |
b2208d2e AW |
12750 | #{expression 13439}# |
12751 | #{wrap 13440}# | |
12752 | #{module 13441}#)) | |
12753 | (if (null? #{x 13407}#) | |
12754 | #{x 13407}# | |
46e372ef AW |
12755 | (vector |
12756 | 'syntax-object | |
b2208d2e AW |
12757 | #{x 13407}# |
12758 | #{w 13128}# | |
12759 | #{mod 13130}#))))) | |
12760 | #{r 13127}# | |
12761 | #{w 13128}# | |
12762 | #{mod 13130}#))) | |
12763 | #{tmp 13132}#) | |
840cf0d1 AW |
12764 | (syntax-violation |
12765 | #f | |
12766 | "source expression failed to match any pattern" | |
b2208d2e | 12767 | #{e 13126}#))))) |
840cf0d1 AW |
12768 | (module-define! |
12769 | (current-module) | |
12770 | 'begin | |
12771 | (make-syntax-transformer 'begin 'begin '())) | |
12772 | (module-define! | |
12773 | (current-module) | |
12774 | 'define | |
12775 | (make-syntax-transformer 'define 'define '())) | |
12776 | (module-define! | |
12777 | (current-module) | |
12778 | 'define-syntax | |
12779 | (make-syntax-transformer | |
12780 | 'define-syntax | |
12781 | 'define-syntax | |
12782 | '())) | |
0f9f51a1 AW |
12783 | (module-define! |
12784 | (current-module) | |
12785 | 'define-syntax-parameter | |
12786 | (make-syntax-transformer | |
12787 | 'define-syntax-parameter | |
12788 | 'define-syntax-parameter | |
12789 | '())) | |
840cf0d1 AW |
12790 | (module-define! |
12791 | (current-module) | |
12792 | 'eval-when | |
12793 | (make-syntax-transformer | |
12794 | 'eval-when | |
12795 | 'eval-when | |
12796 | '())) | |
b2208d2e | 12797 | (#{global-extend 4408}# |
840cf0d1 AW |
12798 | 'core |
12799 | 'syntax-case | |
12800 | (letrec* | |
b2208d2e AW |
12801 | ((#{convert-pattern 13785}# |
12802 | (lambda (#{pattern 15441}# #{keys 15442}#) | |
840cf0d1 | 12803 | (letrec* |
b2208d2e AW |
12804 | ((#{cvt* 15443}# |
12805 | (lambda (#{p* 16242}# #{n 16243}# #{ids 16244}#) | |
12806 | (if (not (pair? #{p* 16242}#)) | |
12807 | (#{cvt 15445}# | |
12808 | #{p* 16242}# | |
12809 | #{n 16243}# | |
12810 | #{ids 16244}#) | |
840cf0d1 AW |
12811 | (call-with-values |
12812 | (lambda () | |
b2208d2e AW |
12813 | (#{cvt* 15443}# |
12814 | (cdr #{p* 16242}#) | |
12815 | #{n 16243}# | |
12816 | #{ids 16244}#)) | |
12817 | (lambda (#{y 16247}# #{ids 16248}#) | |
840cf0d1 AW |
12818 | (call-with-values |
12819 | (lambda () | |
b2208d2e AW |
12820 | (#{cvt 15445}# |
12821 | (car #{p* 16242}#) | |
12822 | #{n 16243}# | |
12823 | #{ids 16248}#)) | |
12824 | (lambda (#{x 16251}# #{ids 16252}#) | |
840cf0d1 | 12825 | (values |
b2208d2e AW |
12826 | (cons #{x 16251}# #{y 16247}#) |
12827 | #{ids 16252}#)))))))) | |
12828 | (#{v-reverse 15444}# | |
12829 | (lambda (#{x 16253}#) | |
840cf0d1 | 12830 | (letrec* |
b2208d2e AW |
12831 | ((#{loop 16254}# |
12832 | (lambda (#{r 16355}# #{x 16356}#) | |
12833 | (if (not (pair? #{x 16356}#)) | |
12834 | (values #{r 16355}# #{x 16356}#) | |
12835 | (#{loop 16254}# | |
12836 | (cons (car #{x 16356}#) #{r 16355}#) | |
12837 | (cdr #{x 16356}#)))))) | |
12838 | (#{loop 16254}# '() #{x 16253}#)))) | |
12839 | (#{cvt 15445}# | |
12840 | (lambda (#{p 15448}# #{n 15449}# #{ids 15450}#) | |
12841 | (if (if (symbol? #{p 15448}#) | |
840cf0d1 | 12842 | #t |
b2208d2e AW |
12843 | (if (if (vector? #{p 15448}#) |
12844 | (if (= (vector-length #{p 15448}#) 4) | |
12845 | (eq? (vector-ref #{p 15448}# 0) | |
840cf0d1 AW |
12846 | 'syntax-object) |
12847 | #f) | |
12848 | #f) | |
b2208d2e | 12849 | (symbol? (vector-ref #{p 15448}# 1)) |
840cf0d1 | 12850 | #f)) |
b2208d2e AW |
12851 | (if (#{bound-id-member? 4435}# |
12852 | #{p 15448}# | |
12853 | #{keys 15442}#) | |
840cf0d1 | 12854 | (values |
b2208d2e AW |
12855 | (vector 'free-id #{p 15448}#) |
12856 | #{ids 15450}#) | |
12857 | (if (#{free-id=? 4431}# | |
12858 | #{p 15448}# | |
840cf0d1 AW |
12859 | '#(syntax-object |
12860 | _ | |
12861 | ((top) | |
12862 | #(ribcage () () ()) | |
12863 | #(ribcage | |
12864 | #(p n ids) | |
12865 | #((top) (top) (top)) | |
b2208d2e | 12866 | #("i3847" "i3848" "i3849")) |
840cf0d1 AW |
12867 | #(ribcage |
12868 | (cvt v-reverse cvt*) | |
12869 | ((top) (top) (top)) | |
b2208d2e | 12870 | ("i3820" "i3818" "i3816")) |
840cf0d1 AW |
12871 | #(ribcage |
12872 | #(pattern keys) | |
12873 | #((top) (top)) | |
b2208d2e | 12874 | #("i3814" "i3815")) |
840cf0d1 AW |
12875 | #(ribcage |
12876 | (gen-syntax-case | |
12877 | gen-clause | |
12878 | build-dispatch-call | |
12879 | convert-pattern) | |
12880 | ((top) (top) (top) (top)) | |
b2208d2e | 12881 | ("i3810" "i3808" "i3806" "i3804")) |
840cf0d1 AW |
12882 | #(ribcage |
12883 | (lambda-var-list | |
12884 | gen-var | |
12885 | strip | |
b2208d2e | 12886 | expand-lambda-case |
840cf0d1 | 12887 | lambda*-formals |
b2208d2e | 12888 | expand-simple-lambda |
840cf0d1 AW |
12889 | lambda-formals |
12890 | ellipsis? | |
b2208d2e | 12891 | expand-void |
840cf0d1 | 12892 | eval-local-transformer |
b2208d2e AW |
12893 | expand-local-syntax |
12894 | expand-body | |
12895 | expand-macro | |
12896 | expand-call | |
12897 | expand-expr | |
12898 | expand | |
840cf0d1 | 12899 | syntax-type |
b2208d2e AW |
12900 | parse-when-list |
12901 | expand-install-global | |
12902 | expand-top-sequence | |
12903 | expand-sequence | |
840cf0d1 AW |
12904 | source-wrap |
12905 | wrap | |
12906 | bound-id-member? | |
12907 | distinct-bound-ids? | |
12908 | valid-bound-ids? | |
12909 | bound-id=? | |
12910 | free-id=? | |
0f9f51a1 | 12911 | resolve-identifier |
840cf0d1 AW |
12912 | id-var-name |
12913 | same-marks? | |
12914 | join-marks | |
12915 | join-wraps | |
12916 | smart-append | |
12917 | make-binding-wrap | |
12918 | extend-ribcage! | |
12919 | make-empty-ribcage | |
12920 | new-mark | |
12921 | anti-mark | |
12922 | the-anti-mark | |
12923 | top-marked? | |
12924 | top-wrap | |
12925 | empty-wrap | |
12926 | set-ribcage-labels! | |
12927 | set-ribcage-marks! | |
12928 | set-ribcage-symnames! | |
12929 | ribcage-labels | |
12930 | ribcage-marks | |
12931 | ribcage-symnames | |
12932 | ribcage? | |
12933 | make-ribcage | |
12934 | gen-labels | |
12935 | gen-label | |
12936 | make-rename | |
12937 | rename-marks | |
12938 | rename-new | |
12939 | rename-old | |
12940 | subst-rename? | |
12941 | wrap-subst | |
12942 | wrap-marks | |
12943 | make-wrap | |
12944 | id-sym-name&marks | |
12945 | id-sym-name | |
12946 | id? | |
12947 | nonsymbol-id? | |
12948 | global-extend | |
840cf0d1 AW |
12949 | macros-only-env |
12950 | extend-var-env | |
12951 | extend-env | |
12952 | null-env | |
12953 | binding-value | |
12954 | binding-type | |
12955 | make-binding | |
12956 | arg-check | |
12957 | source-annotation | |
12958 | no-source | |
12959 | set-syntax-object-module! | |
12960 | set-syntax-object-wrap! | |
12961 | set-syntax-object-expression! | |
12962 | syntax-object-module | |
12963 | syntax-object-wrap | |
12964 | syntax-object-expression | |
12965 | syntax-object? | |
12966 | make-syntax-object | |
12967 | build-lexical-var | |
12968 | build-letrec | |
12969 | build-named-let | |
12970 | build-let | |
12971 | build-sequence | |
12972 | build-data | |
12973 | build-primref | |
12974 | build-primcall | |
12975 | build-lambda-case | |
12976 | build-case-lambda | |
12977 | build-simple-lambda | |
12978 | build-global-definition | |
12979 | build-global-assignment | |
12980 | build-global-reference | |
12981 | analyze-variable | |
12982 | build-lexical-assignment | |
12983 | build-lexical-reference | |
12984 | build-dynlet | |
12985 | build-conditional | |
12986 | build-call | |
12987 | build-void | |
12988 | maybe-name-value! | |
12989 | decorate-source | |
12990 | get-global-definition-hook | |
12991 | put-global-definition-hook | |
12992 | gensym-hook | |
12993 | local-eval-hook | |
12994 | top-level-eval-hook | |
12995 | fx< | |
12996 | fx= | |
12997 | fx- | |
12998 | fx+ | |
12999 | set-lambda-meta! | |
13000 | lambda-meta | |
13001 | lambda? | |
13002 | make-dynlet | |
13003 | make-letrec | |
13004 | make-let | |
13005 | make-lambda-case | |
13006 | make-lambda | |
13007 | make-seq | |
13008 | make-primcall | |
13009 | make-call | |
13010 | make-conditional | |
13011 | make-toplevel-define | |
13012 | make-toplevel-set | |
13013 | make-toplevel-ref | |
13014 | make-module-set | |
13015 | make-module-ref | |
13016 | make-lexical-set | |
13017 | make-lexical-ref | |
13018 | make-primitive-ref | |
13019 | make-const | |
13020 | make-void) | |
13021 | ((top) | |
13022 | (top) | |
13023 | (top) | |
13024 | (top) | |
13025 | (top) | |
13026 | (top) | |
13027 | (top) | |
13028 | (top) | |
13029 | (top) | |
13030 | (top) | |
13031 | (top) | |
13032 | (top) | |
13033 | (top) | |
13034 | (top) | |
13035 | (top) | |
13036 | (top) | |
13037 | (top) | |
13038 | (top) | |
13039 | (top) | |
13040 | (top) | |
13041 | (top) | |
13042 | (top) | |
13043 | (top) | |
13044 | (top) | |
13045 | (top) | |
13046 | (top) | |
13047 | (top) | |
13048 | (top) | |
13049 | (top) | |
13050 | (top) | |
13051 | (top) | |
13052 | (top) | |
13053 | (top) | |
13054 | (top) | |
13055 | (top) | |
13056 | (top) | |
13057 | (top) | |
13058 | (top) | |
13059 | (top) | |
13060 | (top) | |
13061 | (top) | |
13062 | (top) | |
13063 | (top) | |
13064 | (top) | |
13065 | (top) | |
13066 | (top) | |
13067 | (top) | |
13068 | (top) | |
13069 | (top) | |
13070 | (top) | |
13071 | (top) | |
13072 | (top) | |
13073 | (top) | |
13074 | (top) | |
13075 | (top) | |
13076 | (top) | |
13077 | (top) | |
13078 | (top) | |
13079 | (top) | |
13080 | (top) | |
13081 | (top) | |
13082 | (top) | |
13083 | (top) | |
13084 | (top) | |
13085 | (top) | |
13086 | (top) | |
13087 | (top) | |
13088 | (top) | |
13089 | (top) | |
13090 | (top) | |
13091 | (top) | |
13092 | (top) | |
13093 | (top) | |
13094 | (top) | |
13095 | (top) | |
13096 | (top) | |
13097 | (top) | |
13098 | (top) | |
13099 | (top) | |
13100 | (top) | |
13101 | (top) | |
13102 | (top) | |
13103 | (top) | |
13104 | (top) | |
13105 | (top) | |
13106 | (top) | |
13107 | (top) | |
13108 | (top) | |
13109 | (top) | |
13110 | (top) | |
13111 | (top) | |
13112 | (top) | |
13113 | (top) | |
13114 | (top) | |
13115 | (top) | |
13116 | (top) | |
13117 | (top) | |
13118 | (top) | |
13119 | (top) | |
13120 | (top) | |
13121 | (top) | |
13122 | (top) | |
13123 | (top) | |
13124 | (top) | |
13125 | (top) | |
13126 | (top) | |
13127 | (top) | |
13128 | (top) | |
13129 | (top) | |
13130 | (top) | |
13131 | (top) | |
13132 | (top) | |
13133 | (top) | |
13134 | (top) | |
13135 | (top) | |
13136 | (top) | |
13137 | (top) | |
13138 | (top) | |
13139 | (top) | |
13140 | (top) | |
13141 | (top) | |
13142 | (top) | |
13143 | (top) | |
13144 | (top) | |
13145 | (top) | |
13146 | (top) | |
13147 | (top) | |
13148 | (top) | |
13149 | (top) | |
13150 | (top) | |
13151 | (top) | |
13152 | (top) | |
13153 | (top) | |
13154 | (top) | |
13155 | (top) | |
13156 | (top) | |
13157 | (top) | |
13158 | (top)) | |
46e372ef AW |
13159 | ("i471" |
13160 | "i469" | |
13161 | "i467" | |
13162 | "i465" | |
13163 | "i463" | |
13164 | "i461" | |
13165 | "i459" | |
13166 | "i457" | |
13167 | "i455" | |
13168 | "i453" | |
13169 | "i451" | |
13170 | "i449" | |
13171 | "i447" | |
13172 | "i445" | |
13173 | "i443" | |
13174 | "i441" | |
13175 | "i439" | |
13176 | "i437" | |
13177 | "i435" | |
13178 | "i433" | |
13179 | "i431" | |
13180 | "i429" | |
13181 | "i427" | |
13182 | "i425" | |
13183 | "i423" | |
13184 | "i421" | |
13185 | "i419" | |
13186 | "i417" | |
13187 | "i415" | |
13188 | "i413" | |
13189 | "i411" | |
13190 | "i409" | |
13191 | "i407" | |
13192 | "i405" | |
13193 | "i403" | |
0f9f51a1 | 13194 | "i401" |
46e372ef | 13195 | "i400" |
0f9f51a1 | 13196 | "i398" |
840cf0d1 | 13197 | "i395" |
0f9f51a1 | 13198 | "i394" |
46e372ef | 13199 | "i393" |
0f9f51a1 | 13200 | "i391" |
46e372ef AW |
13201 | "i390" |
13202 | "i388" | |
13203 | "i386" | |
13204 | "i384" | |
13205 | "i382" | |
13206 | "i380" | |
13207 | "i378" | |
13208 | "i376" | |
0f9f51a1 | 13209 | "i374" |
46e372ef | 13210 | "i371" |
0f9f51a1 | 13211 | "i369" |
46e372ef AW |
13212 | "i368" |
13213 | "i366" | |
13214 | "i364" | |
13215 | "i362" | |
840cf0d1 AW |
13216 | "i360" |
13217 | "i359" | |
0f9f51a1 | 13218 | "i358" |
46e372ef | 13219 | "i357" |
0f9f51a1 AW |
13220 | "i355" |
13221 | "i354" | |
46e372ef AW |
13222 | "i351" |
13223 | "i349" | |
13224 | "i347" | |
13225 | "i345" | |
13226 | "i343" | |
13227 | "i341" | |
840cf0d1 AW |
13228 | "i340" |
13229 | "i339" | |
46e372ef AW |
13230 | "i337" |
13231 | "i335" | |
840cf0d1 | 13232 | "i334" |
46e372ef | 13233 | "i331" |
840cf0d1 | 13234 | "i330" |
46e372ef AW |
13235 | "i328" |
13236 | "i326" | |
13237 | "i324" | |
13238 | "i322" | |
13239 | "i320" | |
13240 | "i318" | |
13241 | "i316" | |
13242 | "i314" | |
13243 | "i312" | |
13244 | "i309" | |
13245 | "i307" | |
13246 | "i305" | |
13247 | "i303" | |
13248 | "i301" | |
13249 | "i299" | |
13250 | "i297" | |
13251 | "i295" | |
13252 | "i293" | |
13253 | "i291" | |
13254 | "i289" | |
13255 | "i287" | |
13256 | "i285" | |
13257 | "i283" | |
13258 | "i281" | |
13259 | "i279" | |
13260 | "i277" | |
13261 | "i275" | |
13262 | "i273" | |
13263 | "i271" | |
13264 | "i269" | |
13265 | "i267" | |
13266 | "i265" | |
13267 | "i263" | |
840cf0d1 | 13268 | "i262" |
46e372ef AW |
13269 | "i259" |
13270 | "i257" | |
840cf0d1 AW |
13271 | "i256" |
13272 | "i255" | |
13273 | "i254" | |
13274 | "i253" | |
46e372ef AW |
13275 | "i251" |
13276 | "i249" | |
13277 | "i247" | |
13278 | "i244" | |
13279 | "i242" | |
13280 | "i240" | |
13281 | "i238" | |
13282 | "i236" | |
13283 | "i234" | |
13284 | "i232" | |
13285 | "i230" | |
13286 | "i228" | |
13287 | "i226" | |
13288 | "i224" | |
13289 | "i222" | |
13290 | "i220" | |
13291 | "i218" | |
13292 | "i216" | |
13293 | "i214" | |
13294 | "i212" | |
13295 | "i210" | |
13296 | "i208")) | |
840cf0d1 AW |
13297 | #(ribcage |
13298 | (define-structure | |
13299 | define-expansion-accessors | |
13300 | define-expansion-constructors) | |
13301 | ((top) (top) (top)) | |
0f9f51a1 AW |
13302 | ("i46" "i45" "i44")) |
13303 | #(ribcage () () ())) | |
840cf0d1 | 13304 | (hygiene guile))) |
b2208d2e | 13305 | (values '_ #{ids 15450}#) |
840cf0d1 AW |
13306 | (values |
13307 | 'any | |
b2208d2e AW |
13308 | (cons (cons #{p 15448}# #{n 15449}#) |
13309 | #{ids 15450}#)))) | |
13310 | (let ((#{tmp 15582}# | |
13311 | ($sc-dispatch #{p 15448}# '(any any)))) | |
13312 | (if (if #{tmp 15582}# | |
840cf0d1 | 13313 | (@apply |
b2208d2e AW |
13314 | (lambda (#{x 15586}# #{dots 15587}#) |
13315 | (if (if (if (vector? #{dots 15587}#) | |
840cf0d1 | 13316 | (if (= (vector-length |
b2208d2e | 13317 | #{dots 15587}#) |
840cf0d1 | 13318 | 4) |
46e372ef | 13319 | (eq? (vector-ref |
b2208d2e | 13320 | #{dots 15587}# |
46e372ef | 13321 | 0) |
840cf0d1 AW |
13322 | 'syntax-object) |
13323 | #f) | |
13324 | #f) | |
b2208d2e | 13325 | (symbol? (vector-ref #{dots 15587}# 1)) |
840cf0d1 | 13326 | #f) |
b2208d2e AW |
13327 | (#{free-id=? 4431}# |
13328 | #{dots 15587}# | |
840cf0d1 AW |
13329 | '#(syntax-object |
13330 | ... | |
13331 | ((top) | |
13332 | #(ribcage () () ()) | |
13333 | #(ribcage () () ()) | |
b2208d2e | 13334 | #(ribcage #(x) #((top)) #("i2338")) |
840cf0d1 AW |
13335 | #(ribcage |
13336 | (lambda-var-list | |
13337 | gen-var | |
13338 | strip | |
b2208d2e | 13339 | expand-lambda-case |
840cf0d1 | 13340 | lambda*-formals |
b2208d2e | 13341 | expand-simple-lambda |
840cf0d1 AW |
13342 | lambda-formals |
13343 | ellipsis? | |
b2208d2e | 13344 | expand-void |
840cf0d1 | 13345 | eval-local-transformer |
b2208d2e AW |
13346 | expand-local-syntax |
13347 | expand-body | |
13348 | expand-macro | |
13349 | expand-call | |
13350 | expand-expr | |
13351 | expand | |
840cf0d1 | 13352 | syntax-type |
b2208d2e AW |
13353 | parse-when-list |
13354 | expand-install-global | |
13355 | expand-top-sequence | |
13356 | expand-sequence | |
840cf0d1 AW |
13357 | source-wrap |
13358 | wrap | |
13359 | bound-id-member? | |
13360 | distinct-bound-ids? | |
13361 | valid-bound-ids? | |
13362 | bound-id=? | |
13363 | free-id=? | |
0f9f51a1 | 13364 | resolve-identifier |
840cf0d1 AW |
13365 | id-var-name |
13366 | same-marks? | |
13367 | join-marks | |
13368 | join-wraps | |
13369 | smart-append | |
13370 | make-binding-wrap | |
13371 | extend-ribcage! | |
13372 | make-empty-ribcage | |
13373 | new-mark | |
13374 | anti-mark | |
13375 | the-anti-mark | |
13376 | top-marked? | |
13377 | top-wrap | |
13378 | empty-wrap | |
13379 | set-ribcage-labels! | |
13380 | set-ribcage-marks! | |
13381 | set-ribcage-symnames! | |
13382 | ribcage-labels | |
13383 | ribcage-marks | |
13384 | ribcage-symnames | |
13385 | ribcage? | |
13386 | make-ribcage | |
13387 | gen-labels | |
13388 | gen-label | |
13389 | make-rename | |
13390 | rename-marks | |
13391 | rename-new | |
13392 | rename-old | |
13393 | subst-rename? | |
13394 | wrap-subst | |
13395 | wrap-marks | |
13396 | make-wrap | |
13397 | id-sym-name&marks | |
13398 | id-sym-name | |
13399 | id? | |
13400 | nonsymbol-id? | |
13401 | global-extend | |
840cf0d1 AW |
13402 | macros-only-env |
13403 | extend-var-env | |
13404 | extend-env | |
13405 | null-env | |
13406 | binding-value | |
13407 | binding-type | |
13408 | make-binding | |
13409 | arg-check | |
13410 | source-annotation | |
13411 | no-source | |
13412 | set-syntax-object-module! | |
13413 | set-syntax-object-wrap! | |
13414 | set-syntax-object-expression! | |
13415 | syntax-object-module | |
13416 | syntax-object-wrap | |
13417 | syntax-object-expression | |
13418 | syntax-object? | |
13419 | make-syntax-object | |
13420 | build-lexical-var | |
13421 | build-letrec | |
13422 | build-named-let | |
13423 | build-let | |
13424 | build-sequence | |
13425 | build-data | |
13426 | build-primref | |
13427 | build-primcall | |
13428 | build-lambda-case | |
13429 | build-case-lambda | |
13430 | build-simple-lambda | |
13431 | build-global-definition | |
13432 | build-global-assignment | |
13433 | build-global-reference | |
13434 | analyze-variable | |
13435 | build-lexical-assignment | |
13436 | build-lexical-reference | |
13437 | build-dynlet | |
13438 | build-conditional | |
13439 | build-call | |
13440 | build-void | |
13441 | maybe-name-value! | |
13442 | decorate-source | |
13443 | get-global-definition-hook | |
13444 | put-global-definition-hook | |
13445 | gensym-hook | |
13446 | local-eval-hook | |
13447 | top-level-eval-hook | |
13448 | fx< | |
13449 | fx= | |
13450 | fx- | |
13451 | fx+ | |
13452 | set-lambda-meta! | |
13453 | lambda-meta | |
13454 | lambda? | |
13455 | make-dynlet | |
13456 | make-letrec | |
13457 | make-let | |
13458 | make-lambda-case | |
13459 | make-lambda | |
13460 | make-seq | |
13461 | make-primcall | |
13462 | make-call | |
13463 | make-conditional | |
13464 | make-toplevel-define | |
13465 | make-toplevel-set | |
13466 | make-toplevel-ref | |
13467 | make-module-set | |
13468 | make-module-ref | |
13469 | make-lexical-set | |
13470 | make-lexical-ref | |
13471 | make-primitive-ref | |
13472 | make-const | |
13473 | make-void) | |
13474 | ((top) | |
13475 | (top) | |
13476 | (top) | |
13477 | (top) | |
13478 | (top) | |
13479 | (top) | |
13480 | (top) | |
13481 | (top) | |
13482 | (top) | |
13483 | (top) | |
13484 | (top) | |
13485 | (top) | |
13486 | (top) | |
13487 | (top) | |
13488 | (top) | |
13489 | (top) | |
13490 | (top) | |
13491 | (top) | |
13492 | (top) | |
13493 | (top) | |
13494 | (top) | |
13495 | (top) | |
13496 | (top) | |
13497 | (top) | |
13498 | (top) | |
13499 | (top) | |
13500 | (top) | |
13501 | (top) | |
13502 | (top) | |
13503 | (top) | |
13504 | (top) | |
13505 | (top) | |
13506 | (top) | |
13507 | (top) | |
13508 | (top) | |
13509 | (top) | |
13510 | (top) | |
13511 | (top) | |
13512 | (top) | |
13513 | (top) | |
13514 | (top) | |
13515 | (top) | |
13516 | (top) | |
13517 | (top) | |
13518 | (top) | |
13519 | (top) | |
13520 | (top) | |
13521 | (top) | |
13522 | (top) | |
13523 | (top) | |
13524 | (top) | |
13525 | (top) | |
13526 | (top) | |
13527 | (top) | |
13528 | (top) | |
13529 | (top) | |
13530 | (top) | |
13531 | (top) | |
13532 | (top) | |
13533 | (top) | |
13534 | (top) | |
13535 | (top) | |
13536 | (top) | |
13537 | (top) | |
13538 | (top) | |
13539 | (top) | |
13540 | (top) | |
13541 | (top) | |
13542 | (top) | |
13543 | (top) | |
13544 | (top) | |
13545 | (top) | |
13546 | (top) | |
13547 | (top) | |
13548 | (top) | |
13549 | (top) | |
13550 | (top) | |
13551 | (top) | |
13552 | (top) | |
13553 | (top) | |
13554 | (top) | |
13555 | (top) | |
13556 | (top) | |
13557 | (top) | |
13558 | (top) | |
13559 | (top) | |
13560 | (top) | |
13561 | (top) | |
13562 | (top) | |
13563 | (top) | |
13564 | (top) | |
13565 | (top) | |
13566 | (top) | |
13567 | (top) | |
13568 | (top) | |
13569 | (top) | |
13570 | (top) | |
13571 | (top) | |
13572 | (top) | |
13573 | (top) | |
13574 | (top) | |
13575 | (top) | |
13576 | (top) | |
13577 | (top) | |
13578 | (top) | |
13579 | (top) | |
13580 | (top) | |
13581 | (top) | |
13582 | (top) | |
13583 | (top) | |
13584 | (top) | |
13585 | (top) | |
13586 | (top) | |
13587 | (top) | |
13588 | (top) | |
13589 | (top) | |
13590 | (top) | |
13591 | (top) | |
13592 | (top) | |
13593 | (top) | |
13594 | (top) | |
13595 | (top) | |
13596 | (top) | |
13597 | (top) | |
13598 | (top) | |
13599 | (top) | |
13600 | (top) | |
13601 | (top) | |
13602 | (top) | |
13603 | (top) | |
13604 | (top) | |
13605 | (top) | |
13606 | (top) | |
13607 | (top) | |
13608 | (top) | |
13609 | (top) | |
13610 | (top) | |
13611 | (top)) | |
46e372ef AW |
13612 | ("i471" |
13613 | "i469" | |
13614 | "i467" | |
13615 | "i465" | |
13616 | "i463" | |
13617 | "i461" | |
13618 | "i459" | |
13619 | "i457" | |
13620 | "i455" | |
13621 | "i453" | |
13622 | "i451" | |
13623 | "i449" | |
13624 | "i447" | |
13625 | "i445" | |
13626 | "i443" | |
13627 | "i441" | |
13628 | "i439" | |
13629 | "i437" | |
13630 | "i435" | |
13631 | "i433" | |
13632 | "i431" | |
13633 | "i429" | |
13634 | "i427" | |
13635 | "i425" | |
13636 | "i423" | |
13637 | "i421" | |
13638 | "i419" | |
13639 | "i417" | |
13640 | "i415" | |
13641 | "i413" | |
13642 | "i411" | |
13643 | "i409" | |
13644 | "i407" | |
13645 | "i405" | |
13646 | "i403" | |
0f9f51a1 | 13647 | "i401" |
46e372ef | 13648 | "i400" |
0f9f51a1 | 13649 | "i398" |
840cf0d1 | 13650 | "i395" |
0f9f51a1 | 13651 | "i394" |
46e372ef | 13652 | "i393" |
0f9f51a1 | 13653 | "i391" |
46e372ef AW |
13654 | "i390" |
13655 | "i388" | |
13656 | "i386" | |
13657 | "i384" | |
13658 | "i382" | |
13659 | "i380" | |
13660 | "i378" | |
13661 | "i376" | |
0f9f51a1 | 13662 | "i374" |
46e372ef | 13663 | "i371" |
0f9f51a1 | 13664 | "i369" |
46e372ef AW |
13665 | "i368" |
13666 | "i366" | |
13667 | "i364" | |
13668 | "i362" | |
840cf0d1 AW |
13669 | "i360" |
13670 | "i359" | |
0f9f51a1 | 13671 | "i358" |
46e372ef | 13672 | "i357" |
0f9f51a1 AW |
13673 | "i355" |
13674 | "i354" | |
46e372ef AW |
13675 | "i351" |
13676 | "i349" | |
13677 | "i347" | |
13678 | "i345" | |
13679 | "i343" | |
13680 | "i341" | |
840cf0d1 AW |
13681 | "i340" |
13682 | "i339" | |
46e372ef AW |
13683 | "i337" |
13684 | "i335" | |
840cf0d1 | 13685 | "i334" |
46e372ef | 13686 | "i331" |
840cf0d1 | 13687 | "i330" |
46e372ef AW |
13688 | "i328" |
13689 | "i326" | |
13690 | "i324" | |
13691 | "i322" | |
13692 | "i320" | |
13693 | "i318" | |
13694 | "i316" | |
13695 | "i314" | |
13696 | "i312" | |
13697 | "i309" | |
13698 | "i307" | |
13699 | "i305" | |
13700 | "i303" | |
13701 | "i301" | |
13702 | "i299" | |
13703 | "i297" | |
13704 | "i295" | |
13705 | "i293" | |
13706 | "i291" | |
13707 | "i289" | |
13708 | "i287" | |
13709 | "i285" | |
13710 | "i283" | |
13711 | "i281" | |
13712 | "i279" | |
13713 | "i277" | |
13714 | "i275" | |
13715 | "i273" | |
13716 | "i271" | |
13717 | "i269" | |
13718 | "i267" | |
13719 | "i265" | |
13720 | "i263" | |
840cf0d1 | 13721 | "i262" |
46e372ef AW |
13722 | "i259" |
13723 | "i257" | |
840cf0d1 AW |
13724 | "i256" |
13725 | "i255" | |
13726 | "i254" | |
13727 | "i253" | |
46e372ef AW |
13728 | "i251" |
13729 | "i249" | |
13730 | "i247" | |
13731 | "i244" | |
13732 | "i242" | |
13733 | "i240" | |
13734 | "i238" | |
13735 | "i236" | |
13736 | "i234" | |
13737 | "i232" | |
13738 | "i230" | |
13739 | "i228" | |
13740 | "i226" | |
13741 | "i224" | |
13742 | "i222" | |
13743 | "i220" | |
13744 | "i218" | |
13745 | "i216" | |
13746 | "i214" | |
13747 | "i212" | |
13748 | "i210" | |
13749 | "i208")) | |
840cf0d1 AW |
13750 | #(ribcage |
13751 | (define-structure | |
13752 | define-expansion-accessors | |
13753 | define-expansion-constructors) | |
13754 | ((top) (top) (top)) | |
0f9f51a1 AW |
13755 | ("i46" "i45" "i44")) |
13756 | #(ribcage () () ())) | |
840cf0d1 AW |
13757 | (hygiene guile))) |
13758 | #f)) | |
b2208d2e | 13759 | #{tmp 15582}#) |
840cf0d1 AW |
13760 | #f) |
13761 | (@apply | |
b2208d2e | 13762 | (lambda (#{x 15626}# #{dots 15627}#) |
840cf0d1 AW |
13763 | (call-with-values |
13764 | (lambda () | |
b2208d2e AW |
13765 | (#{cvt 15445}# |
13766 | #{x 15626}# | |
13767 | (#{1+}# #{n 15449}#) | |
13768 | #{ids 15450}#)) | |
13769 | (lambda (#{p 15628}# #{ids 15629}#) | |
840cf0d1 | 13770 | (values |
b2208d2e | 13771 | (if (eq? #{p 15628}# 'any) |
840cf0d1 | 13772 | 'each-any |
b2208d2e AW |
13773 | (vector 'each #{p 15628}#)) |
13774 | #{ids 15629}#)))) | |
13775 | #{tmp 15582}#) | |
13776 | (let ((#{tmp 15630}# | |
13777 | ($sc-dispatch #{p 15448}# '(any any . any)))) | |
13778 | (if (if #{tmp 15630}# | |
840cf0d1 | 13779 | (@apply |
b2208d2e AW |
13780 | (lambda (#{x 15634}# |
13781 | #{dots 15635}# | |
13782 | #{ys 15636}#) | |
13783 | (if (if (if (vector? #{dots 15635}#) | |
840cf0d1 | 13784 | (if (= (vector-length |
b2208d2e | 13785 | #{dots 15635}#) |
840cf0d1 AW |
13786 | 4) |
13787 | (eq? (vector-ref | |
b2208d2e | 13788 | #{dots 15635}# |
840cf0d1 AW |
13789 | 0) |
13790 | 'syntax-object) | |
13791 | #f) | |
13792 | #f) | |
13793 | (symbol? | |
b2208d2e | 13794 | (vector-ref #{dots 15635}# 1)) |
840cf0d1 | 13795 | #f) |
b2208d2e AW |
13796 | (#{free-id=? 4431}# |
13797 | #{dots 15635}# | |
840cf0d1 AW |
13798 | '#(syntax-object |
13799 | ... | |
13800 | ((top) | |
13801 | #(ribcage () () ()) | |
13802 | #(ribcage () () ()) | |
13803 | #(ribcage | |
13804 | #(x) | |
13805 | #((top)) | |
b2208d2e | 13806 | #("i2338")) |
840cf0d1 AW |
13807 | #(ribcage |
13808 | (lambda-var-list | |
13809 | gen-var | |
13810 | strip | |
b2208d2e | 13811 | expand-lambda-case |
840cf0d1 | 13812 | lambda*-formals |
b2208d2e | 13813 | expand-simple-lambda |
840cf0d1 AW |
13814 | lambda-formals |
13815 | ellipsis? | |
b2208d2e | 13816 | expand-void |
840cf0d1 | 13817 | eval-local-transformer |
b2208d2e AW |
13818 | expand-local-syntax |
13819 | expand-body | |
13820 | expand-macro | |
13821 | expand-call | |
13822 | expand-expr | |
13823 | expand | |
840cf0d1 | 13824 | syntax-type |
b2208d2e AW |
13825 | parse-when-list |
13826 | expand-install-global | |
13827 | expand-top-sequence | |
13828 | expand-sequence | |
840cf0d1 AW |
13829 | source-wrap |
13830 | wrap | |
13831 | bound-id-member? | |
13832 | distinct-bound-ids? | |
13833 | valid-bound-ids? | |
13834 | bound-id=? | |
13835 | free-id=? | |
0f9f51a1 | 13836 | resolve-identifier |
840cf0d1 AW |
13837 | id-var-name |
13838 | same-marks? | |
13839 | join-marks | |
13840 | join-wraps | |
13841 | smart-append | |
13842 | make-binding-wrap | |
13843 | extend-ribcage! | |
13844 | make-empty-ribcage | |
13845 | new-mark | |
13846 | anti-mark | |
13847 | the-anti-mark | |
13848 | top-marked? | |
13849 | top-wrap | |
13850 | empty-wrap | |
13851 | set-ribcage-labels! | |
13852 | set-ribcage-marks! | |
13853 | set-ribcage-symnames! | |
13854 | ribcage-labels | |
13855 | ribcage-marks | |
13856 | ribcage-symnames | |
13857 | ribcage? | |
13858 | make-ribcage | |
13859 | gen-labels | |
13860 | gen-label | |
13861 | make-rename | |
13862 | rename-marks | |
13863 | rename-new | |
13864 | rename-old | |
13865 | subst-rename? | |
13866 | wrap-subst | |
13867 | wrap-marks | |
13868 | make-wrap | |
13869 | id-sym-name&marks | |
13870 | id-sym-name | |
13871 | id? | |
13872 | nonsymbol-id? | |
13873 | global-extend | |
840cf0d1 AW |
13874 | macros-only-env |
13875 | extend-var-env | |
13876 | extend-env | |
13877 | null-env | |
13878 | binding-value | |
13879 | binding-type | |
13880 | make-binding | |
13881 | arg-check | |
13882 | source-annotation | |
13883 | no-source | |
13884 | set-syntax-object-module! | |
13885 | set-syntax-object-wrap! | |
13886 | set-syntax-object-expression! | |
13887 | syntax-object-module | |
13888 | syntax-object-wrap | |
13889 | syntax-object-expression | |
13890 | syntax-object? | |
13891 | make-syntax-object | |
13892 | build-lexical-var | |
13893 | build-letrec | |
13894 | build-named-let | |
13895 | build-let | |
13896 | build-sequence | |
13897 | build-data | |
13898 | build-primref | |
13899 | build-primcall | |
13900 | build-lambda-case | |
13901 | build-case-lambda | |
13902 | build-simple-lambda | |
13903 | build-global-definition | |
13904 | build-global-assignment | |
13905 | build-global-reference | |
13906 | analyze-variable | |
13907 | build-lexical-assignment | |
13908 | build-lexical-reference | |
13909 | build-dynlet | |
13910 | build-conditional | |
13911 | build-call | |
13912 | build-void | |
13913 | maybe-name-value! | |
13914 | decorate-source | |
13915 | get-global-definition-hook | |
13916 | put-global-definition-hook | |
13917 | gensym-hook | |
13918 | local-eval-hook | |
13919 | top-level-eval-hook | |
13920 | fx< | |
13921 | fx= | |
13922 | fx- | |
13923 | fx+ | |
13924 | set-lambda-meta! | |
13925 | lambda-meta | |
13926 | lambda? | |
13927 | make-dynlet | |
13928 | make-letrec | |
13929 | make-let | |
13930 | make-lambda-case | |
13931 | make-lambda | |
13932 | make-seq | |
13933 | make-primcall | |
13934 | make-call | |
13935 | make-conditional | |
13936 | make-toplevel-define | |
13937 | make-toplevel-set | |
13938 | make-toplevel-ref | |
13939 | make-module-set | |
13940 | make-module-ref | |
13941 | make-lexical-set | |
13942 | make-lexical-ref | |
13943 | make-primitive-ref | |
13944 | make-const | |
13945 | make-void) | |
13946 | ((top) | |
13947 | (top) | |
13948 | (top) | |
13949 | (top) | |
13950 | (top) | |
13951 | (top) | |
13952 | (top) | |
13953 | (top) | |
13954 | (top) | |
13955 | (top) | |
13956 | (top) | |
13957 | (top) | |
13958 | (top) | |
13959 | (top) | |
13960 | (top) | |
13961 | (top) | |
13962 | (top) | |
13963 | (top) | |
13964 | (top) | |
13965 | (top) | |
13966 | (top) | |
13967 | (top) | |
13968 | (top) | |
13969 | (top) | |
13970 | (top) | |
13971 | (top) | |
13972 | (top) | |
13973 | (top) | |
13974 | (top) | |
13975 | (top) | |
13976 | (top) | |
13977 | (top) | |
13978 | (top) | |
13979 | (top) | |
13980 | (top) | |
13981 | (top) | |
13982 | (top) | |
13983 | (top) | |
13984 | (top) | |
13985 | (top) | |
13986 | (top) | |
13987 | (top) | |
13988 | (top) | |
13989 | (top) | |
13990 | (top) | |
13991 | (top) | |
13992 | (top) | |
13993 | (top) | |
13994 | (top) | |
13995 | (top) | |
13996 | (top) | |
13997 | (top) | |
13998 | (top) | |
13999 | (top) | |
14000 | (top) | |
14001 | (top) | |
14002 | (top) | |
14003 | (top) | |
14004 | (top) | |
14005 | (top) | |
14006 | (top) | |
14007 | (top) | |
14008 | (top) | |
14009 | (top) | |
14010 | (top) | |
14011 | (top) | |
14012 | (top) | |
14013 | (top) | |
14014 | (top) | |
14015 | (top) | |
14016 | (top) | |
14017 | (top) | |
14018 | (top) | |
14019 | (top) | |
14020 | (top) | |
14021 | (top) | |
14022 | (top) | |
14023 | (top) | |
14024 | (top) | |
14025 | (top) | |
14026 | (top) | |
14027 | (top) | |
14028 | (top) | |
14029 | (top) | |
14030 | (top) | |
14031 | (top) | |
14032 | (top) | |
14033 | (top) | |
14034 | (top) | |
14035 | (top) | |
14036 | (top) | |
14037 | (top) | |
14038 | (top) | |
14039 | (top) | |
14040 | (top) | |
14041 | (top) | |
14042 | (top) | |
14043 | (top) | |
14044 | (top) | |
14045 | (top) | |
14046 | (top) | |
14047 | (top) | |
14048 | (top) | |
14049 | (top) | |
14050 | (top) | |
14051 | (top) | |
14052 | (top) | |
14053 | (top) | |
14054 | (top) | |
14055 | (top) | |
14056 | (top) | |
14057 | (top) | |
14058 | (top) | |
14059 | (top) | |
14060 | (top) | |
14061 | (top) | |
14062 | (top) | |
14063 | (top) | |
14064 | (top) | |
14065 | (top) | |
14066 | (top) | |
14067 | (top) | |
14068 | (top) | |
14069 | (top) | |
14070 | (top) | |
14071 | (top) | |
14072 | (top) | |
14073 | (top) | |
14074 | (top) | |
14075 | (top) | |
14076 | (top) | |
14077 | (top) | |
14078 | (top) | |
14079 | (top) | |
14080 | (top) | |
14081 | (top) | |
14082 | (top) | |
14083 | (top)) | |
46e372ef AW |
14084 | ("i471" |
14085 | "i469" | |
14086 | "i467" | |
14087 | "i465" | |
14088 | "i463" | |
14089 | "i461" | |
14090 | "i459" | |
14091 | "i457" | |
14092 | "i455" | |
14093 | "i453" | |
14094 | "i451" | |
14095 | "i449" | |
14096 | "i447" | |
14097 | "i445" | |
14098 | "i443" | |
14099 | "i441" | |
14100 | "i439" | |
14101 | "i437" | |
14102 | "i435" | |
14103 | "i433" | |
14104 | "i431" | |
14105 | "i429" | |
14106 | "i427" | |
14107 | "i425" | |
14108 | "i423" | |
14109 | "i421" | |
14110 | "i419" | |
14111 | "i417" | |
14112 | "i415" | |
14113 | "i413" | |
14114 | "i411" | |
14115 | "i409" | |
14116 | "i407" | |
14117 | "i405" | |
14118 | "i403" | |
0f9f51a1 | 14119 | "i401" |
46e372ef | 14120 | "i400" |
0f9f51a1 | 14121 | "i398" |
840cf0d1 | 14122 | "i395" |
0f9f51a1 | 14123 | "i394" |
46e372ef | 14124 | "i393" |
0f9f51a1 | 14125 | "i391" |
46e372ef AW |
14126 | "i390" |
14127 | "i388" | |
14128 | "i386" | |
14129 | "i384" | |
14130 | "i382" | |
14131 | "i380" | |
14132 | "i378" | |
14133 | "i376" | |
0f9f51a1 | 14134 | "i374" |
46e372ef | 14135 | "i371" |
0f9f51a1 | 14136 | "i369" |
46e372ef AW |
14137 | "i368" |
14138 | "i366" | |
14139 | "i364" | |
14140 | "i362" | |
840cf0d1 AW |
14141 | "i360" |
14142 | "i359" | |
0f9f51a1 | 14143 | "i358" |
46e372ef | 14144 | "i357" |
0f9f51a1 AW |
14145 | "i355" |
14146 | "i354" | |
46e372ef AW |
14147 | "i351" |
14148 | "i349" | |
14149 | "i347" | |
14150 | "i345" | |
14151 | "i343" | |
14152 | "i341" | |
840cf0d1 AW |
14153 | "i340" |
14154 | "i339" | |
46e372ef AW |
14155 | "i337" |
14156 | "i335" | |
840cf0d1 | 14157 | "i334" |
46e372ef | 14158 | "i331" |
840cf0d1 | 14159 | "i330" |
46e372ef AW |
14160 | "i328" |
14161 | "i326" | |
14162 | "i324" | |
14163 | "i322" | |
14164 | "i320" | |
14165 | "i318" | |
14166 | "i316" | |
14167 | "i314" | |
14168 | "i312" | |
14169 | "i309" | |
14170 | "i307" | |
14171 | "i305" | |
14172 | "i303" | |
14173 | "i301" | |
14174 | "i299" | |
14175 | "i297" | |
14176 | "i295" | |
14177 | "i293" | |
14178 | "i291" | |
14179 | "i289" | |
14180 | "i287" | |
14181 | "i285" | |
14182 | "i283" | |
14183 | "i281" | |
14184 | "i279" | |
14185 | "i277" | |
14186 | "i275" | |
14187 | "i273" | |
14188 | "i271" | |
14189 | "i269" | |
14190 | "i267" | |
14191 | "i265" | |
14192 | "i263" | |
840cf0d1 | 14193 | "i262" |
46e372ef AW |
14194 | "i259" |
14195 | "i257" | |
840cf0d1 AW |
14196 | "i256" |
14197 | "i255" | |
14198 | "i254" | |
14199 | "i253" | |
46e372ef AW |
14200 | "i251" |
14201 | "i249" | |
14202 | "i247" | |
14203 | "i244" | |
14204 | "i242" | |
14205 | "i240" | |
14206 | "i238" | |
14207 | "i236" | |
14208 | "i234" | |
14209 | "i232" | |
14210 | "i230" | |
14211 | "i228" | |
14212 | "i226" | |
14213 | "i224" | |
14214 | "i222" | |
14215 | "i220" | |
14216 | "i218" | |
14217 | "i216" | |
14218 | "i214" | |
14219 | "i212" | |
14220 | "i210" | |
14221 | "i208")) | |
840cf0d1 AW |
14222 | #(ribcage |
14223 | (define-structure | |
14224 | define-expansion-accessors | |
14225 | define-expansion-constructors) | |
14226 | ((top) (top) (top)) | |
0f9f51a1 AW |
14227 | ("i46" "i45" "i44")) |
14228 | #(ribcage () () ())) | |
840cf0d1 AW |
14229 | (hygiene guile))) |
14230 | #f)) | |
b2208d2e | 14231 | #{tmp 15630}#) |
840cf0d1 AW |
14232 | #f) |
14233 | (@apply | |
b2208d2e AW |
14234 | (lambda (#{x 15675}# |
14235 | #{dots 15676}# | |
14236 | #{ys 15677}#) | |
840cf0d1 AW |
14237 | (call-with-values |
14238 | (lambda () | |
b2208d2e AW |
14239 | (#{cvt* 15443}# |
14240 | #{ys 15677}# | |
14241 | #{n 15449}# | |
14242 | #{ids 15450}#)) | |
14243 | (lambda (#{ys 16162}# #{ids 16163}#) | |
840cf0d1 AW |
14244 | (call-with-values |
14245 | (lambda () | |
b2208d2e AW |
14246 | (#{cvt 15445}# |
14247 | #{x 15675}# | |
14248 | (#{1+}# #{n 15449}#) | |
14249 | #{ids 16163}#)) | |
14250 | (lambda (#{x 16164}# #{ids 16165}#) | |
840cf0d1 AW |
14251 | (call-with-values |
14252 | (lambda () | |
b2208d2e AW |
14253 | (#{v-reverse 15444}# |
14254 | #{ys 16162}#)) | |
14255 | (lambda (#{ys 16201}# #{e 16202}#) | |
840cf0d1 AW |
14256 | (values |
14257 | (vector | |
14258 | 'each+ | |
b2208d2e AW |
14259 | #{x 16164}# |
14260 | #{ys 16201}# | |
14261 | #{e 16202}#) | |
14262 | #{ids 16165}#)))))))) | |
14263 | #{tmp 15630}#) | |
14264 | (let ((#{tmp 16203}# | |
14265 | ($sc-dispatch #{p 15448}# '(any . any)))) | |
14266 | (if #{tmp 16203}# | |
840cf0d1 | 14267 | (@apply |
b2208d2e | 14268 | (lambda (#{x 16207}# #{y 16208}#) |
840cf0d1 AW |
14269 | (call-with-values |
14270 | (lambda () | |
b2208d2e AW |
14271 | (#{cvt 15445}# |
14272 | #{y 16208}# | |
14273 | #{n 15449}# | |
14274 | #{ids 15450}#)) | |
14275 | (lambda (#{y 16209}# #{ids 16210}#) | |
840cf0d1 AW |
14276 | (call-with-values |
14277 | (lambda () | |
b2208d2e AW |
14278 | (#{cvt 15445}# |
14279 | #{x 16207}# | |
14280 | #{n 15449}# | |
14281 | #{ids 16210}#)) | |
14282 | (lambda (#{x 16211}# #{ids 16212}#) | |
840cf0d1 | 14283 | (values |
b2208d2e AW |
14284 | (cons #{x 16211}# #{y 16209}#) |
14285 | #{ids 16212}#)))))) | |
14286 | #{tmp 16203}#) | |
14287 | (let ((#{tmp 16213}# | |
14288 | ($sc-dispatch #{p 15448}# '()))) | |
14289 | (if #{tmp 16213}# | |
840cf0d1 | 14290 | (@apply |
b2208d2e AW |
14291 | (lambda () (values '() #{ids 15450}#)) |
14292 | #{tmp 16213}#) | |
14293 | (let ((#{tmp 16217}# | |
840cf0d1 | 14294 | ($sc-dispatch |
b2208d2e | 14295 | #{p 15448}# |
840cf0d1 | 14296 | '#(vector each-any)))) |
b2208d2e | 14297 | (if #{tmp 16217}# |
840cf0d1 | 14298 | (@apply |
b2208d2e | 14299 | (lambda (#{x 16221}#) |
840cf0d1 AW |
14300 | (call-with-values |
14301 | (lambda () | |
b2208d2e AW |
14302 | (#{cvt 15445}# |
14303 | #{x 16221}# | |
14304 | #{n 15449}# | |
14305 | #{ids 15450}#)) | |
14306 | (lambda (#{p 16222}# | |
14307 | #{ids 16223}#) | |
840cf0d1 | 14308 | (values |
46e372ef AW |
14309 | (vector |
14310 | 'vector | |
b2208d2e AW |
14311 | #{p 16222}#) |
14312 | #{ids 16223}#)))) | |
14313 | #{tmp 16217}#) | |
840cf0d1 AW |
14314 | (values |
14315 | (vector | |
14316 | 'atom | |
b2208d2e AW |
14317 | (#{strip 4456}# |
14318 | #{p 15448}# | |
46e372ef | 14319 | '(()))) |
b2208d2e AW |
14320 | #{ids 15450}#))))))))))))))) |
14321 | (#{cvt 15445}# #{pattern 15441}# 0 '())))) | |
14322 | (#{build-dispatch-call 13786}# | |
14323 | (lambda (#{pvars 16357}# | |
14324 | #{exp 16358}# | |
14325 | #{y 16359}# | |
14326 | #{r 16360}# | |
14327 | #{mod 16361}#) | |
14328 | (let ((#{ids 16362}# (map car #{pvars 16357}#))) | |
840cf0d1 | 14329 | (begin |
b2208d2e AW |
14330 | (map cdr #{pvars 16357}#) |
14331 | (let ((#{labels 16364}# | |
14332 | (#{gen-labels 4413}# #{ids 16362}#)) | |
14333 | (#{new-vars 16365}# | |
14334 | (map #{gen-var 4457}# #{ids 16362}#))) | |
14335 | (#{build-primcall 4389}# | |
840cf0d1 AW |
14336 | #f |
14337 | 'apply | |
b2208d2e | 14338 | (list (#{build-simple-lambda 4386}# |
840cf0d1 | 14339 | #f |
b2208d2e | 14340 | (map syntax->datum #{ids 16362}#) |
840cf0d1 | 14341 | #f |
b2208d2e | 14342 | #{new-vars 16365}# |
840cf0d1 | 14343 | '() |
b2208d2e AW |
14344 | (#{expand 4443}# |
14345 | #{exp 16358}# | |
14346 | (#{extend-env 4405}# | |
14347 | #{labels 16364}# | |
14348 | (map (lambda (#{var 16697}# #{level 16698}#) | |
840cf0d1 | 14349 | (cons 'syntax |
b2208d2e AW |
14350 | (cons #{var 16697}# |
14351 | #{level 16698}#))) | |
14352 | #{new-vars 16365}# | |
14353 | (map cdr #{pvars 16357}#)) | |
14354 | #{r 16360}#) | |
14355 | (#{make-binding-wrap 4424}# | |
14356 | #{ids 16362}# | |
14357 | #{labels 16364}# | |
840cf0d1 | 14358 | '(())) |
b2208d2e AW |
14359 | #{mod 16361}#)) |
14360 | #{y 16359}#))))))) | |
14361 | (#{gen-clause 13787}# | |
14362 | (lambda (#{x 15035}# | |
14363 | #{keys 15036}# | |
14364 | #{clauses 15037}# | |
14365 | #{r 15038}# | |
14366 | #{pat 15039}# | |
14367 | #{fender 15040}# | |
14368 | #{exp 15041}# | |
14369 | #{mod 15042}#) | |
840cf0d1 AW |
14370 | (call-with-values |
14371 | (lambda () | |
b2208d2e AW |
14372 | (#{convert-pattern 13785}# |
14373 | #{pat 15039}# | |
14374 | #{keys 15036}#)) | |
14375 | (lambda (#{p 15180}# #{pvars 15181}#) | |
14376 | (if (not (#{distinct-bound-ids? 4434}# | |
14377 | (map car #{pvars 15181}#))) | |
840cf0d1 AW |
14378 | (syntax-violation |
14379 | 'syntax-case | |
14380 | "duplicate pattern variable" | |
b2208d2e | 14381 | #{pat 15039}#) |
840cf0d1 | 14382 | (if (not (and-map |
b2208d2e AW |
14383 | (lambda (#{x 15290}#) |
14384 | (not (let ((#{x 15294}# (car #{x 15290}#))) | |
14385 | (if (if (if (vector? #{x 15294}#) | |
840cf0d1 | 14386 | (if (= (vector-length |
b2208d2e | 14387 | #{x 15294}#) |
840cf0d1 AW |
14388 | 4) |
14389 | (eq? (vector-ref | |
b2208d2e | 14390 | #{x 15294}# |
840cf0d1 AW |
14391 | 0) |
14392 | 'syntax-object) | |
14393 | #f) | |
14394 | #f) | |
14395 | (symbol? | |
b2208d2e | 14396 | (vector-ref #{x 15294}# 1)) |
840cf0d1 | 14397 | #f) |
b2208d2e AW |
14398 | (#{free-id=? 4431}# |
14399 | #{x 15294}# | |
840cf0d1 AW |
14400 | '#(syntax-object |
14401 | ... | |
14402 | ((top) | |
14403 | #(ribcage () () ()) | |
14404 | #(ribcage () () ()) | |
14405 | #(ribcage | |
14406 | #(x) | |
14407 | #((top)) | |
b2208d2e | 14408 | #("i2338")) |
840cf0d1 AW |
14409 | #(ribcage |
14410 | (lambda-var-list | |
14411 | gen-var | |
14412 | strip | |
b2208d2e | 14413 | expand-lambda-case |
840cf0d1 | 14414 | lambda*-formals |
b2208d2e | 14415 | expand-simple-lambda |
840cf0d1 AW |
14416 | lambda-formals |
14417 | ellipsis? | |
b2208d2e | 14418 | expand-void |
840cf0d1 | 14419 | eval-local-transformer |
b2208d2e AW |
14420 | expand-local-syntax |
14421 | expand-body | |
14422 | expand-macro | |
14423 | expand-call | |
14424 | expand-expr | |
14425 | expand | |
840cf0d1 | 14426 | syntax-type |
b2208d2e AW |
14427 | parse-when-list |
14428 | expand-install-global | |
14429 | expand-top-sequence | |
14430 | expand-sequence | |
840cf0d1 AW |
14431 | source-wrap |
14432 | wrap | |
14433 | bound-id-member? | |
14434 | distinct-bound-ids? | |
14435 | valid-bound-ids? | |
14436 | bound-id=? | |
14437 | free-id=? | |
0f9f51a1 | 14438 | resolve-identifier |
840cf0d1 AW |
14439 | id-var-name |
14440 | same-marks? | |
14441 | join-marks | |
14442 | join-wraps | |
14443 | smart-append | |
14444 | make-binding-wrap | |
14445 | extend-ribcage! | |
14446 | make-empty-ribcage | |
14447 | new-mark | |
14448 | anti-mark | |
14449 | the-anti-mark | |
14450 | top-marked? | |
14451 | top-wrap | |
14452 | empty-wrap | |
14453 | set-ribcage-labels! | |
14454 | set-ribcage-marks! | |
14455 | set-ribcage-symnames! | |
14456 | ribcage-labels | |
14457 | ribcage-marks | |
14458 | ribcage-symnames | |
14459 | ribcage? | |
14460 | make-ribcage | |
14461 | gen-labels | |
14462 | gen-label | |
14463 | make-rename | |
14464 | rename-marks | |
14465 | rename-new | |
14466 | rename-old | |
14467 | subst-rename? | |
14468 | wrap-subst | |
14469 | wrap-marks | |
14470 | make-wrap | |
14471 | id-sym-name&marks | |
14472 | id-sym-name | |
14473 | id? | |
14474 | nonsymbol-id? | |
14475 | global-extend | |
840cf0d1 AW |
14476 | macros-only-env |
14477 | extend-var-env | |
14478 | extend-env | |
14479 | null-env | |
14480 | binding-value | |
14481 | binding-type | |
14482 | make-binding | |
14483 | arg-check | |
14484 | source-annotation | |
14485 | no-source | |
14486 | set-syntax-object-module! | |
14487 | set-syntax-object-wrap! | |
14488 | set-syntax-object-expression! | |
14489 | syntax-object-module | |
14490 | syntax-object-wrap | |
14491 | syntax-object-expression | |
14492 | syntax-object? | |
14493 | make-syntax-object | |
14494 | build-lexical-var | |
14495 | build-letrec | |
14496 | build-named-let | |
14497 | build-let | |
14498 | build-sequence | |
14499 | build-data | |
14500 | build-primref | |
14501 | build-primcall | |
14502 | build-lambda-case | |
14503 | build-case-lambda | |
14504 | build-simple-lambda | |
14505 | build-global-definition | |
14506 | build-global-assignment | |
14507 | build-global-reference | |
14508 | analyze-variable | |
14509 | build-lexical-assignment | |
14510 | build-lexical-reference | |
14511 | build-dynlet | |
14512 | build-conditional | |
14513 | build-call | |
14514 | build-void | |
14515 | maybe-name-value! | |
14516 | decorate-source | |
14517 | get-global-definition-hook | |
14518 | put-global-definition-hook | |
14519 | gensym-hook | |
14520 | local-eval-hook | |
14521 | top-level-eval-hook | |
14522 | fx< | |
14523 | fx= | |
14524 | fx- | |
14525 | fx+ | |
14526 | set-lambda-meta! | |
14527 | lambda-meta | |
14528 | lambda? | |
14529 | make-dynlet | |
14530 | make-letrec | |
14531 | make-let | |
14532 | make-lambda-case | |
14533 | make-lambda | |
14534 | make-seq | |
14535 | make-primcall | |
14536 | make-call | |
14537 | make-conditional | |
14538 | make-toplevel-define | |
14539 | make-toplevel-set | |
14540 | make-toplevel-ref | |
14541 | make-module-set | |
14542 | make-module-ref | |
14543 | make-lexical-set | |
14544 | make-lexical-ref | |
14545 | make-primitive-ref | |
14546 | make-const | |
14547 | make-void) | |
14548 | ((top) | |
14549 | (top) | |
14550 | (top) | |
14551 | (top) | |
14552 | (top) | |
14553 | (top) | |
14554 | (top) | |
14555 | (top) | |
14556 | (top) | |
14557 | (top) | |
14558 | (top) | |
14559 | (top) | |
14560 | (top) | |
14561 | (top) | |
14562 | (top) | |
14563 | (top) | |
14564 | (top) | |
14565 | (top) | |
14566 | (top) | |
14567 | (top) | |
14568 | (top) | |
14569 | (top) | |
14570 | (top) | |
14571 | (top) | |
14572 | (top) | |
14573 | (top) | |
14574 | (top) | |
14575 | (top) | |
14576 | (top) | |
14577 | (top) | |
14578 | (top) | |
14579 | (top) | |
14580 | (top) | |
14581 | (top) | |
14582 | (top) | |
14583 | (top) | |
14584 | (top) | |
14585 | (top) | |
14586 | (top) | |
14587 | (top) | |
14588 | (top) | |
14589 | (top) | |
14590 | (top) | |
14591 | (top) | |
14592 | (top) | |
14593 | (top) | |
14594 | (top) | |
14595 | (top) | |
14596 | (top) | |
14597 | (top) | |
14598 | (top) | |
14599 | (top) | |
14600 | (top) | |
14601 | (top) | |
14602 | (top) | |
14603 | (top) | |
14604 | (top) | |
14605 | (top) | |
14606 | (top) | |
14607 | (top) | |
14608 | (top) | |
14609 | (top) | |
14610 | (top) | |
14611 | (top) | |
14612 | (top) | |
14613 | (top) | |
14614 | (top) | |
14615 | (top) | |
14616 | (top) | |
14617 | (top) | |
14618 | (top) | |
14619 | (top) | |
14620 | (top) | |
14621 | (top) | |
14622 | (top) | |
14623 | (top) | |
14624 | (top) | |
14625 | (top) | |
14626 | (top) | |
14627 | (top) | |
14628 | (top) | |
14629 | (top) | |
14630 | (top) | |
14631 | (top) | |
14632 | (top) | |
14633 | (top) | |
14634 | (top) | |
14635 | (top) | |
14636 | (top) | |
14637 | (top) | |
14638 | (top) | |
14639 | (top) | |
14640 | (top) | |
14641 | (top) | |
14642 | (top) | |
14643 | (top) | |
14644 | (top) | |
14645 | (top) | |
14646 | (top) | |
14647 | (top) | |
14648 | (top) | |
14649 | (top) | |
14650 | (top) | |
14651 | (top) | |
14652 | (top) | |
14653 | (top) | |
14654 | (top) | |
14655 | (top) | |
14656 | (top) | |
14657 | (top) | |
14658 | (top) | |
14659 | (top) | |
14660 | (top) | |
14661 | (top) | |
14662 | (top) | |
14663 | (top) | |
14664 | (top) | |
14665 | (top) | |
14666 | (top) | |
14667 | (top) | |
14668 | (top) | |
14669 | (top) | |
14670 | (top) | |
14671 | (top) | |
14672 | (top) | |
14673 | (top) | |
14674 | (top) | |
14675 | (top) | |
14676 | (top) | |
14677 | (top) | |
14678 | (top) | |
14679 | (top) | |
14680 | (top) | |
14681 | (top) | |
14682 | (top) | |
14683 | (top) | |
14684 | (top) | |
14685 | (top)) | |
46e372ef AW |
14686 | ("i471" |
14687 | "i469" | |
14688 | "i467" | |
14689 | "i465" | |
14690 | "i463" | |
14691 | "i461" | |
14692 | "i459" | |
14693 | "i457" | |
14694 | "i455" | |
14695 | "i453" | |
14696 | "i451" | |
14697 | "i449" | |
14698 | "i447" | |
14699 | "i445" | |
14700 | "i443" | |
14701 | "i441" | |
14702 | "i439" | |
14703 | "i437" | |
14704 | "i435" | |
14705 | "i433" | |
14706 | "i431" | |
14707 | "i429" | |
14708 | "i427" | |
14709 | "i425" | |
14710 | "i423" | |
14711 | "i421" | |
14712 | "i419" | |
14713 | "i417" | |
14714 | "i415" | |
14715 | "i413" | |
14716 | "i411" | |
14717 | "i409" | |
14718 | "i407" | |
14719 | "i405" | |
14720 | "i403" | |
0f9f51a1 | 14721 | "i401" |
46e372ef | 14722 | "i400" |
0f9f51a1 | 14723 | "i398" |
840cf0d1 | 14724 | "i395" |
0f9f51a1 | 14725 | "i394" |
46e372ef | 14726 | "i393" |
0f9f51a1 | 14727 | "i391" |
46e372ef AW |
14728 | "i390" |
14729 | "i388" | |
14730 | "i386" | |
14731 | "i384" | |
14732 | "i382" | |
14733 | "i380" | |
14734 | "i378" | |
14735 | "i376" | |
0f9f51a1 | 14736 | "i374" |
46e372ef | 14737 | "i371" |
0f9f51a1 | 14738 | "i369" |
46e372ef AW |
14739 | "i368" |
14740 | "i366" | |
14741 | "i364" | |
14742 | "i362" | |
840cf0d1 AW |
14743 | "i360" |
14744 | "i359" | |
0f9f51a1 | 14745 | "i358" |
46e372ef | 14746 | "i357" |
0f9f51a1 AW |
14747 | "i355" |
14748 | "i354" | |
46e372ef AW |
14749 | "i351" |
14750 | "i349" | |
14751 | "i347" | |
14752 | "i345" | |
14753 | "i343" | |
14754 | "i341" | |
840cf0d1 AW |
14755 | "i340" |
14756 | "i339" | |
46e372ef AW |
14757 | "i337" |
14758 | "i335" | |
840cf0d1 | 14759 | "i334" |
46e372ef | 14760 | "i331" |
840cf0d1 | 14761 | "i330" |
46e372ef AW |
14762 | "i328" |
14763 | "i326" | |
14764 | "i324" | |
14765 | "i322" | |
14766 | "i320" | |
14767 | "i318" | |
14768 | "i316" | |
14769 | "i314" | |
14770 | "i312" | |
14771 | "i309" | |
14772 | "i307" | |
14773 | "i305" | |
14774 | "i303" | |
14775 | "i301" | |
14776 | "i299" | |
14777 | "i297" | |
14778 | "i295" | |
14779 | "i293" | |
14780 | "i291" | |
14781 | "i289" | |
14782 | "i287" | |
14783 | "i285" | |
14784 | "i283" | |
14785 | "i281" | |
14786 | "i279" | |
14787 | "i277" | |
14788 | "i275" | |
14789 | "i273" | |
14790 | "i271" | |
14791 | "i269" | |
14792 | "i267" | |
14793 | "i265" | |
14794 | "i263" | |
840cf0d1 | 14795 | "i262" |
46e372ef AW |
14796 | "i259" |
14797 | "i257" | |
840cf0d1 AW |
14798 | "i256" |
14799 | "i255" | |
14800 | "i254" | |
14801 | "i253" | |
46e372ef AW |
14802 | "i251" |
14803 | "i249" | |
14804 | "i247" | |
14805 | "i244" | |
14806 | "i242" | |
14807 | "i240" | |
14808 | "i238" | |
14809 | "i236" | |
14810 | "i234" | |
14811 | "i232" | |
14812 | "i230" | |
14813 | "i228" | |
14814 | "i226" | |
14815 | "i224" | |
14816 | "i222" | |
14817 | "i220" | |
14818 | "i218" | |
14819 | "i216" | |
14820 | "i214" | |
14821 | "i212" | |
14822 | "i210" | |
14823 | "i208")) | |
840cf0d1 AW |
14824 | #(ribcage |
14825 | (define-structure | |
14826 | define-expansion-accessors | |
14827 | define-expansion-constructors) | |
14828 | ((top) (top) (top)) | |
0f9f51a1 AW |
14829 | ("i46" "i45" "i44")) |
14830 | #(ribcage () () ())) | |
840cf0d1 AW |
14831 | (hygiene guile))) |
14832 | #f)))) | |
b2208d2e | 14833 | #{pvars 15181}#)) |
840cf0d1 AW |
14834 | (syntax-violation |
14835 | 'syntax-case | |
14836 | "misplaced ellipsis" | |
b2208d2e AW |
14837 | #{pat 15039}#) |
14838 | (let ((#{y 15319}# | |
840cf0d1 AW |
14839 | (gensym |
14840 | (string-append (symbol->string 'tmp) " ")))) | |
b2208d2e AW |
14841 | (let ((#{fun-exp 15324}# |
14842 | (let ((#{req 15333}# (list 'tmp)) | |
14843 | (#{vars 15335}# (list #{y 15319}#)) | |
14844 | (#{exp 15337}# | |
14845 | (let ((#{y 15366}# | |
840cf0d1 AW |
14846 | (make-struct/no-tail |
14847 | (vector-ref | |
14848 | %expanded-vtables | |
14849 | 3) | |
14850 | #f | |
14851 | 'tmp | |
b2208d2e AW |
14852 | #{y 15319}#))) |
14853 | (let ((#{test-exp 15370}# | |
14854 | (let ((#{tmp 15379}# | |
840cf0d1 | 14855 | ($sc-dispatch |
b2208d2e | 14856 | #{fender 15040}# |
840cf0d1 | 14857 | '#(atom #t)))) |
b2208d2e | 14858 | (if #{tmp 15379}# |
840cf0d1 | 14859 | (@apply |
b2208d2e AW |
14860 | (lambda () #{y 15366}#) |
14861 | #{tmp 15379}#) | |
14862 | (let ((#{then-exp 15397}# | |
14863 | (#{build-dispatch-call 13786}# | |
14864 | #{pvars 15181}# | |
14865 | #{fender 15040}# | |
14866 | #{y 15366}# | |
14867 | #{r 15038}# | |
14868 | #{mod 15042}#)) | |
14869 | (#{else-exp 15398}# | |
840cf0d1 AW |
14870 | (make-struct/no-tail |
14871 | (vector-ref | |
14872 | %expanded-vtables | |
14873 | 1) | |
14874 | #f | |
14875 | #f))) | |
14876 | (make-struct/no-tail | |
14877 | (vector-ref | |
14878 | %expanded-vtables | |
14879 | 10) | |
14880 | #f | |
b2208d2e AW |
14881 | #{y 15366}# |
14882 | #{then-exp 15397}# | |
14883 | #{else-exp 15398}#))))) | |
14884 | (#{then-exp 15371}# | |
14885 | (#{build-dispatch-call 13786}# | |
14886 | #{pvars 15181}# | |
14887 | #{exp 15041}# | |
14888 | #{y 15366}# | |
14889 | #{r 15038}# | |
14890 | #{mod 15042}#)) | |
14891 | (#{else-exp 15372}# | |
14892 | (#{gen-syntax-case 13788}# | |
14893 | #{x 15035}# | |
14894 | #{keys 15036}# | |
14895 | #{clauses 15037}# | |
14896 | #{r 15038}# | |
14897 | #{mod 15042}#))) | |
840cf0d1 AW |
14898 | (make-struct/no-tail |
14899 | (vector-ref %expanded-vtables 10) | |
14900 | #f | |
b2208d2e AW |
14901 | #{test-exp 15370}# |
14902 | #{then-exp 15371}# | |
14903 | #{else-exp 15372}#))))) | |
14904 | (let ((#{body 15342}# | |
840cf0d1 AW |
14905 | (make-struct/no-tail |
14906 | (vector-ref %expanded-vtables 15) | |
14907 | #f | |
b2208d2e | 14908 | #{req 15333}# |
840cf0d1 AW |
14909 | #f |
14910 | #f | |
14911 | #f | |
14912 | '() | |
b2208d2e AW |
14913 | #{vars 15335}# |
14914 | #{exp 15337}# | |
840cf0d1 AW |
14915 | #f))) |
14916 | (make-struct/no-tail | |
14917 | (vector-ref %expanded-vtables 14) | |
14918 | #f | |
14919 | '() | |
b2208d2e AW |
14920 | #{body 15342}#)))) |
14921 | (#{arg-exps 15325}# | |
14922 | (list (if (eq? #{p 15180}# 'any) | |
14923 | (let ((#{args 15420}# | |
14924 | (list #{x 15035}#))) | |
840cf0d1 AW |
14925 | (make-struct/no-tail |
14926 | (vector-ref %expanded-vtables 12) | |
14927 | #f | |
14928 | 'list | |
b2208d2e AW |
14929 | #{args 15420}#)) |
14930 | (let ((#{args 15429}# | |
14931 | (list #{x 15035}# | |
840cf0d1 AW |
14932 | (make-struct/no-tail |
14933 | (vector-ref | |
14934 | %expanded-vtables | |
14935 | 1) | |
14936 | #f | |
b2208d2e | 14937 | #{p 15180}#)))) |
840cf0d1 AW |
14938 | (make-struct/no-tail |
14939 | (vector-ref %expanded-vtables 12) | |
14940 | #f | |
14941 | '$sc-dispatch | |
b2208d2e | 14942 | #{args 15429}#)))))) |
840cf0d1 AW |
14943 | (make-struct/no-tail |
14944 | (vector-ref %expanded-vtables 11) | |
14945 | #f | |
b2208d2e AW |
14946 | #{fun-exp 15324}# |
14947 | #{arg-exps 15325}#))))))))) | |
14948 | (#{gen-syntax-case 13788}# | |
14949 | (lambda (#{x 14532}# | |
14950 | #{keys 14533}# | |
14951 | #{clauses 14534}# | |
14952 | #{r 14535}# | |
14953 | #{mod 14536}#) | |
14954 | (if (null? #{clauses 14534}#) | |
14955 | (let ((#{args 14542}# | |
840cf0d1 AW |
14956 | (list (make-struct/no-tail |
14957 | (vector-ref %expanded-vtables 1) | |
14958 | #f | |
14959 | #f) | |
14960 | (make-struct/no-tail | |
14961 | (vector-ref %expanded-vtables 1) | |
14962 | #f | |
14963 | "source expression failed to match any pattern") | |
b2208d2e | 14964 | #{x 14532}#))) |
840cf0d1 AW |
14965 | (make-struct/no-tail |
14966 | (vector-ref %expanded-vtables 12) | |
14967 | #f | |
14968 | 'syntax-violation | |
b2208d2e AW |
14969 | #{args 14542}#)) |
14970 | (let ((#{tmp 14561}# (car #{clauses 14534}#))) | |
14971 | (let ((#{tmp 14562}# | |
14972 | ($sc-dispatch #{tmp 14561}# '(any any)))) | |
14973 | (if #{tmp 14562}# | |
840cf0d1 | 14974 | (@apply |
b2208d2e AW |
14975 | (lambda (#{pat 14564}# #{exp 14565}#) |
14976 | (if (if (if (symbol? #{pat 14564}#) | |
840cf0d1 | 14977 | #t |
b2208d2e AW |
14978 | (if (if (vector? #{pat 14564}#) |
14979 | (if (= (vector-length #{pat 14564}#) | |
46e372ef | 14980 | 4) |
b2208d2e | 14981 | (eq? (vector-ref #{pat 14564}# 0) |
840cf0d1 AW |
14982 | 'syntax-object) |
14983 | #f) | |
14984 | #f) | |
b2208d2e | 14985 | (symbol? (vector-ref #{pat 14564}# 1)) |
840cf0d1 AW |
14986 | #f)) |
14987 | (and-map | |
b2208d2e AW |
14988 | (lambda (#{x 14592}#) |
14989 | (not (#{free-id=? 4431}# | |
14990 | #{pat 14564}# | |
14991 | #{x 14592}#))) | |
840cf0d1 AW |
14992 | (cons '#(syntax-object |
14993 | ... | |
14994 | ((top) | |
14995 | #(ribcage | |
14996 | #(pat exp) | |
14997 | #((top) (top)) | |
b2208d2e | 14998 | #("i4007" "i4008")) |
840cf0d1 AW |
14999 | #(ribcage () () ()) |
15000 | #(ribcage | |
15001 | #(x keys clauses r mod) | |
15002 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
15003 | #("i3997" |
15004 | "i3998" | |
15005 | "i3999" | |
15006 | "i4000" | |
15007 | "i4001")) | |
840cf0d1 AW |
15008 | #(ribcage |
15009 | (gen-syntax-case | |
15010 | gen-clause | |
15011 | build-dispatch-call | |
15012 | convert-pattern) | |
15013 | ((top) (top) (top) (top)) | |
b2208d2e | 15014 | ("i3810" "i3808" "i3806" "i3804")) |
840cf0d1 AW |
15015 | #(ribcage |
15016 | (lambda-var-list | |
15017 | gen-var | |
15018 | strip | |
b2208d2e | 15019 | expand-lambda-case |
840cf0d1 | 15020 | lambda*-formals |
b2208d2e | 15021 | expand-simple-lambda |
840cf0d1 AW |
15022 | lambda-formals |
15023 | ellipsis? | |
b2208d2e | 15024 | expand-void |
840cf0d1 | 15025 | eval-local-transformer |
b2208d2e AW |
15026 | expand-local-syntax |
15027 | expand-body | |
15028 | expand-macro | |
15029 | expand-call | |
15030 | expand-expr | |
15031 | expand | |
840cf0d1 | 15032 | syntax-type |
b2208d2e AW |
15033 | parse-when-list |
15034 | expand-install-global | |
15035 | expand-top-sequence | |
15036 | expand-sequence | |
840cf0d1 AW |
15037 | source-wrap |
15038 | wrap | |
15039 | bound-id-member? | |
15040 | distinct-bound-ids? | |
15041 | valid-bound-ids? | |
15042 | bound-id=? | |
15043 | free-id=? | |
0f9f51a1 | 15044 | resolve-identifier |
840cf0d1 AW |
15045 | id-var-name |
15046 | same-marks? | |
15047 | join-marks | |
15048 | join-wraps | |
15049 | smart-append | |
15050 | make-binding-wrap | |
15051 | extend-ribcage! | |
15052 | make-empty-ribcage | |
15053 | new-mark | |
15054 | anti-mark | |
15055 | the-anti-mark | |
15056 | top-marked? | |
15057 | top-wrap | |
15058 | empty-wrap | |
15059 | set-ribcage-labels! | |
15060 | set-ribcage-marks! | |
15061 | set-ribcage-symnames! | |
15062 | ribcage-labels | |
15063 | ribcage-marks | |
15064 | ribcage-symnames | |
15065 | ribcage? | |
15066 | make-ribcage | |
15067 | gen-labels | |
15068 | gen-label | |
15069 | make-rename | |
15070 | rename-marks | |
15071 | rename-new | |
15072 | rename-old | |
15073 | subst-rename? | |
15074 | wrap-subst | |
15075 | wrap-marks | |
15076 | make-wrap | |
15077 | id-sym-name&marks | |
15078 | id-sym-name | |
15079 | id? | |
15080 | nonsymbol-id? | |
15081 | global-extend | |
840cf0d1 AW |
15082 | macros-only-env |
15083 | extend-var-env | |
15084 | extend-env | |
15085 | null-env | |
15086 | binding-value | |
15087 | binding-type | |
15088 | make-binding | |
15089 | arg-check | |
15090 | source-annotation | |
15091 | no-source | |
15092 | set-syntax-object-module! | |
15093 | set-syntax-object-wrap! | |
15094 | set-syntax-object-expression! | |
15095 | syntax-object-module | |
15096 | syntax-object-wrap | |
15097 | syntax-object-expression | |
15098 | syntax-object? | |
15099 | make-syntax-object | |
15100 | build-lexical-var | |
15101 | build-letrec | |
15102 | build-named-let | |
15103 | build-let | |
15104 | build-sequence | |
15105 | build-data | |
15106 | build-primref | |
15107 | build-primcall | |
15108 | build-lambda-case | |
15109 | build-case-lambda | |
15110 | build-simple-lambda | |
15111 | build-global-definition | |
15112 | build-global-assignment | |
15113 | build-global-reference | |
15114 | analyze-variable | |
15115 | build-lexical-assignment | |
15116 | build-lexical-reference | |
15117 | build-dynlet | |
15118 | build-conditional | |
15119 | build-call | |
15120 | build-void | |
15121 | maybe-name-value! | |
15122 | decorate-source | |
15123 | get-global-definition-hook | |
15124 | put-global-definition-hook | |
15125 | gensym-hook | |
15126 | local-eval-hook | |
15127 | top-level-eval-hook | |
15128 | fx< | |
15129 | fx= | |
15130 | fx- | |
15131 | fx+ | |
15132 | set-lambda-meta! | |
15133 | lambda-meta | |
15134 | lambda? | |
15135 | make-dynlet | |
15136 | make-letrec | |
15137 | make-let | |
15138 | make-lambda-case | |
15139 | make-lambda | |
15140 | make-seq | |
15141 | make-primcall | |
15142 | make-call | |
15143 | make-conditional | |
15144 | make-toplevel-define | |
15145 | make-toplevel-set | |
15146 | make-toplevel-ref | |
15147 | make-module-set | |
15148 | make-module-ref | |
15149 | make-lexical-set | |
15150 | make-lexical-ref | |
15151 | make-primitive-ref | |
15152 | make-const | |
15153 | make-void) | |
15154 | ((top) | |
15155 | (top) | |
15156 | (top) | |
15157 | (top) | |
15158 | (top) | |
15159 | (top) | |
15160 | (top) | |
15161 | (top) | |
15162 | (top) | |
15163 | (top) | |
15164 | (top) | |
15165 | (top) | |
15166 | (top) | |
15167 | (top) | |
15168 | (top) | |
15169 | (top) | |
15170 | (top) | |
15171 | (top) | |
15172 | (top) | |
15173 | (top) | |
15174 | (top) | |
15175 | (top) | |
15176 | (top) | |
15177 | (top) | |
15178 | (top) | |
15179 | (top) | |
15180 | (top) | |
15181 | (top) | |
15182 | (top) | |
15183 | (top) | |
15184 | (top) | |
15185 | (top) | |
15186 | (top) | |
15187 | (top) | |
15188 | (top) | |
15189 | (top) | |
15190 | (top) | |
15191 | (top) | |
15192 | (top) | |
15193 | (top) | |
15194 | (top) | |
15195 | (top) | |
15196 | (top) | |
15197 | (top) | |
15198 | (top) | |
15199 | (top) | |
15200 | (top) | |
15201 | (top) | |
15202 | (top) | |
15203 | (top) | |
15204 | (top) | |
15205 | (top) | |
15206 | (top) | |
15207 | (top) | |
15208 | (top) | |
15209 | (top) | |
15210 | (top) | |
15211 | (top) | |
15212 | (top) | |
15213 | (top) | |
15214 | (top) | |
15215 | (top) | |
15216 | (top) | |
15217 | (top) | |
15218 | (top) | |
15219 | (top) | |
15220 | (top) | |
15221 | (top) | |
15222 | (top) | |
15223 | (top) | |
15224 | (top) | |
15225 | (top) | |
15226 | (top) | |
15227 | (top) | |
15228 | (top) | |
15229 | (top) | |
15230 | (top) | |
15231 | (top) | |
15232 | (top) | |
15233 | (top) | |
15234 | (top) | |
15235 | (top) | |
15236 | (top) | |
15237 | (top) | |
15238 | (top) | |
15239 | (top) | |
15240 | (top) | |
15241 | (top) | |
15242 | (top) | |
15243 | (top) | |
15244 | (top) | |
15245 | (top) | |
15246 | (top) | |
15247 | (top) | |
15248 | (top) | |
15249 | (top) | |
15250 | (top) | |
15251 | (top) | |
15252 | (top) | |
15253 | (top) | |
15254 | (top) | |
15255 | (top) | |
15256 | (top) | |
15257 | (top) | |
15258 | (top) | |
15259 | (top) | |
15260 | (top) | |
15261 | (top) | |
15262 | (top) | |
15263 | (top) | |
15264 | (top) | |
15265 | (top) | |
15266 | (top) | |
15267 | (top) | |
15268 | (top) | |
15269 | (top) | |
15270 | (top) | |
15271 | (top) | |
15272 | (top) | |
15273 | (top) | |
15274 | (top) | |
15275 | (top) | |
15276 | (top) | |
15277 | (top) | |
15278 | (top) | |
15279 | (top) | |
15280 | (top) | |
15281 | (top) | |
15282 | (top) | |
15283 | (top) | |
15284 | (top) | |
15285 | (top) | |
15286 | (top) | |
15287 | (top) | |
15288 | (top) | |
15289 | (top) | |
15290 | (top) | |
15291 | (top)) | |
46e372ef AW |
15292 | ("i471" |
15293 | "i469" | |
15294 | "i467" | |
15295 | "i465" | |
15296 | "i463" | |
15297 | "i461" | |
15298 | "i459" | |
15299 | "i457" | |
15300 | "i455" | |
15301 | "i453" | |
15302 | "i451" | |
15303 | "i449" | |
15304 | "i447" | |
15305 | "i445" | |
15306 | "i443" | |
15307 | "i441" | |
15308 | "i439" | |
15309 | "i437" | |
15310 | "i435" | |
15311 | "i433" | |
15312 | "i431" | |
15313 | "i429" | |
15314 | "i427" | |
15315 | "i425" | |
15316 | "i423" | |
15317 | "i421" | |
15318 | "i419" | |
15319 | "i417" | |
15320 | "i415" | |
15321 | "i413" | |
15322 | "i411" | |
15323 | "i409" | |
15324 | "i407" | |
15325 | "i405" | |
15326 | "i403" | |
0f9f51a1 | 15327 | "i401" |
46e372ef | 15328 | "i400" |
0f9f51a1 | 15329 | "i398" |
840cf0d1 | 15330 | "i395" |
0f9f51a1 | 15331 | "i394" |
46e372ef | 15332 | "i393" |
0f9f51a1 | 15333 | "i391" |
46e372ef AW |
15334 | "i390" |
15335 | "i388" | |
15336 | "i386" | |
15337 | "i384" | |
15338 | "i382" | |
15339 | "i380" | |
15340 | "i378" | |
15341 | "i376" | |
0f9f51a1 | 15342 | "i374" |
46e372ef | 15343 | "i371" |
0f9f51a1 | 15344 | "i369" |
46e372ef AW |
15345 | "i368" |
15346 | "i366" | |
15347 | "i364" | |
15348 | "i362" | |
840cf0d1 AW |
15349 | "i360" |
15350 | "i359" | |
0f9f51a1 | 15351 | "i358" |
46e372ef | 15352 | "i357" |
0f9f51a1 AW |
15353 | "i355" |
15354 | "i354" | |
46e372ef AW |
15355 | "i351" |
15356 | "i349" | |
15357 | "i347" | |
15358 | "i345" | |
15359 | "i343" | |
15360 | "i341" | |
840cf0d1 AW |
15361 | "i340" |
15362 | "i339" | |
46e372ef AW |
15363 | "i337" |
15364 | "i335" | |
840cf0d1 | 15365 | "i334" |
46e372ef | 15366 | "i331" |
840cf0d1 | 15367 | "i330" |
46e372ef AW |
15368 | "i328" |
15369 | "i326" | |
15370 | "i324" | |
15371 | "i322" | |
15372 | "i320" | |
15373 | "i318" | |
15374 | "i316" | |
15375 | "i314" | |
15376 | "i312" | |
15377 | "i309" | |
15378 | "i307" | |
15379 | "i305" | |
15380 | "i303" | |
15381 | "i301" | |
15382 | "i299" | |
15383 | "i297" | |
15384 | "i295" | |
15385 | "i293" | |
15386 | "i291" | |
15387 | "i289" | |
15388 | "i287" | |
15389 | "i285" | |
15390 | "i283" | |
15391 | "i281" | |
15392 | "i279" | |
15393 | "i277" | |
15394 | "i275" | |
15395 | "i273" | |
15396 | "i271" | |
15397 | "i269" | |
15398 | "i267" | |
15399 | "i265" | |
15400 | "i263" | |
840cf0d1 | 15401 | "i262" |
46e372ef AW |
15402 | "i259" |
15403 | "i257" | |
840cf0d1 AW |
15404 | "i256" |
15405 | "i255" | |
15406 | "i254" | |
15407 | "i253" | |
46e372ef AW |
15408 | "i251" |
15409 | "i249" | |
15410 | "i247" | |
15411 | "i244" | |
15412 | "i242" | |
15413 | "i240" | |
15414 | "i238" | |
15415 | "i236" | |
15416 | "i234" | |
15417 | "i232" | |
15418 | "i230" | |
15419 | "i228" | |
15420 | "i226" | |
15421 | "i224" | |
15422 | "i222" | |
15423 | "i220" | |
15424 | "i218" | |
15425 | "i216" | |
15426 | "i214" | |
15427 | "i212" | |
15428 | "i210" | |
15429 | "i208")) | |
840cf0d1 AW |
15430 | #(ribcage |
15431 | (define-structure | |
15432 | define-expansion-accessors | |
15433 | define-expansion-constructors) | |
15434 | ((top) (top) (top)) | |
0f9f51a1 AW |
15435 | ("i46" "i45" "i44")) |
15436 | #(ribcage () () ())) | |
840cf0d1 | 15437 | (hygiene guile)) |
b2208d2e | 15438 | #{keys 14533}#)) |
e2ccab57 | 15439 | #f) |
b2208d2e | 15440 | (if (#{free-id=? 4431}# |
840cf0d1 AW |
15441 | '#(syntax-object |
15442 | pad | |
15443 | ((top) | |
15444 | #(ribcage | |
15445 | #(pat exp) | |
15446 | #((top) (top)) | |
b2208d2e | 15447 | #("i4007" "i4008")) |
840cf0d1 AW |
15448 | #(ribcage () () ()) |
15449 | #(ribcage | |
15450 | #(x keys clauses r mod) | |
15451 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
15452 | #("i3997" |
15453 | "i3998" | |
15454 | "i3999" | |
15455 | "i4000" | |
15456 | "i4001")) | |
840cf0d1 AW |
15457 | #(ribcage |
15458 | (gen-syntax-case | |
15459 | gen-clause | |
15460 | build-dispatch-call | |
15461 | convert-pattern) | |
15462 | ((top) (top) (top) (top)) | |
b2208d2e | 15463 | ("i3810" "i3808" "i3806" "i3804")) |
840cf0d1 AW |
15464 | #(ribcage |
15465 | (lambda-var-list | |
15466 | gen-var | |
15467 | strip | |
b2208d2e | 15468 | expand-lambda-case |
840cf0d1 | 15469 | lambda*-formals |
b2208d2e | 15470 | expand-simple-lambda |
840cf0d1 AW |
15471 | lambda-formals |
15472 | ellipsis? | |
b2208d2e | 15473 | expand-void |
840cf0d1 | 15474 | eval-local-transformer |
b2208d2e AW |
15475 | expand-local-syntax |
15476 | expand-body | |
15477 | expand-macro | |
15478 | expand-call | |
15479 | expand-expr | |
15480 | expand | |
840cf0d1 | 15481 | syntax-type |
b2208d2e AW |
15482 | parse-when-list |
15483 | expand-install-global | |
15484 | expand-top-sequence | |
15485 | expand-sequence | |
840cf0d1 AW |
15486 | source-wrap |
15487 | wrap | |
15488 | bound-id-member? | |
15489 | distinct-bound-ids? | |
15490 | valid-bound-ids? | |
15491 | bound-id=? | |
15492 | free-id=? | |
0f9f51a1 | 15493 | resolve-identifier |
840cf0d1 AW |
15494 | id-var-name |
15495 | same-marks? | |
15496 | join-marks | |
15497 | join-wraps | |
15498 | smart-append | |
15499 | make-binding-wrap | |
15500 | extend-ribcage! | |
15501 | make-empty-ribcage | |
15502 | new-mark | |
15503 | anti-mark | |
15504 | the-anti-mark | |
15505 | top-marked? | |
15506 | top-wrap | |
15507 | empty-wrap | |
15508 | set-ribcage-labels! | |
15509 | set-ribcage-marks! | |
15510 | set-ribcage-symnames! | |
15511 | ribcage-labels | |
15512 | ribcage-marks | |
15513 | ribcage-symnames | |
15514 | ribcage? | |
15515 | make-ribcage | |
15516 | gen-labels | |
15517 | gen-label | |
15518 | make-rename | |
15519 | rename-marks | |
15520 | rename-new | |
15521 | rename-old | |
15522 | subst-rename? | |
15523 | wrap-subst | |
15524 | wrap-marks | |
15525 | make-wrap | |
15526 | id-sym-name&marks | |
15527 | id-sym-name | |
15528 | id? | |
15529 | nonsymbol-id? | |
15530 | global-extend | |
840cf0d1 AW |
15531 | macros-only-env |
15532 | extend-var-env | |
15533 | extend-env | |
15534 | null-env | |
15535 | binding-value | |
15536 | binding-type | |
15537 | make-binding | |
15538 | arg-check | |
15539 | source-annotation | |
15540 | no-source | |
15541 | set-syntax-object-module! | |
15542 | set-syntax-object-wrap! | |
15543 | set-syntax-object-expression! | |
15544 | syntax-object-module | |
15545 | syntax-object-wrap | |
15546 | syntax-object-expression | |
15547 | syntax-object? | |
15548 | make-syntax-object | |
15549 | build-lexical-var | |
15550 | build-letrec | |
15551 | build-named-let | |
15552 | build-let | |
15553 | build-sequence | |
15554 | build-data | |
15555 | build-primref | |
15556 | build-primcall | |
15557 | build-lambda-case | |
15558 | build-case-lambda | |
15559 | build-simple-lambda | |
15560 | build-global-definition | |
15561 | build-global-assignment | |
15562 | build-global-reference | |
15563 | analyze-variable | |
15564 | build-lexical-assignment | |
15565 | build-lexical-reference | |
15566 | build-dynlet | |
15567 | build-conditional | |
15568 | build-call | |
15569 | build-void | |
15570 | maybe-name-value! | |
15571 | decorate-source | |
15572 | get-global-definition-hook | |
15573 | put-global-definition-hook | |
15574 | gensym-hook | |
15575 | local-eval-hook | |
15576 | top-level-eval-hook | |
15577 | fx< | |
15578 | fx= | |
15579 | fx- | |
15580 | fx+ | |
15581 | set-lambda-meta! | |
15582 | lambda-meta | |
15583 | lambda? | |
15584 | make-dynlet | |
15585 | make-letrec | |
15586 | make-let | |
15587 | make-lambda-case | |
15588 | make-lambda | |
15589 | make-seq | |
15590 | make-primcall | |
15591 | make-call | |
15592 | make-conditional | |
15593 | make-toplevel-define | |
15594 | make-toplevel-set | |
15595 | make-toplevel-ref | |
15596 | make-module-set | |
15597 | make-module-ref | |
15598 | make-lexical-set | |
15599 | make-lexical-ref | |
15600 | make-primitive-ref | |
15601 | make-const | |
15602 | make-void) | |
417ee098 | 15603 | ((top) |
840cf0d1 AW |
15604 | (top) |
15605 | (top) | |
15606 | (top) | |
15607 | (top) | |
15608 | (top) | |
15609 | (top) | |
15610 | (top) | |
15611 | (top) | |
15612 | (top) | |
15613 | (top) | |
15614 | (top) | |
15615 | (top) | |
15616 | (top) | |
15617 | (top) | |
15618 | (top) | |
15619 | (top) | |
15620 | (top) | |
15621 | (top) | |
15622 | (top) | |
15623 | (top) | |
15624 | (top) | |
15625 | (top) | |
15626 | (top) | |
15627 | (top) | |
15628 | (top) | |
15629 | (top) | |
15630 | (top) | |
15631 | (top) | |
15632 | (top) | |
15633 | (top) | |
15634 | (top) | |
15635 | (top) | |
15636 | (top) | |
15637 | (top) | |
15638 | (top) | |
15639 | (top) | |
15640 | (top) | |
15641 | (top) | |
15642 | (top) | |
15643 | (top) | |
15644 | (top) | |
15645 | (top) | |
15646 | (top) | |
15647 | (top) | |
15648 | (top) | |
15649 | (top) | |
15650 | (top) | |
15651 | (top) | |
15652 | (top) | |
15653 | (top) | |
15654 | (top) | |
15655 | (top) | |
15656 | (top) | |
15657 | (top) | |
15658 | (top) | |
15659 | (top) | |
15660 | (top) | |
15661 | (top) | |
15662 | (top) | |
15663 | (top) | |
15664 | (top) | |
15665 | (top) | |
15666 | (top) | |
15667 | (top) | |
15668 | (top) | |
15669 | (top) | |
15670 | (top) | |
15671 | (top) | |
15672 | (top) | |
15673 | (top) | |
15674 | (top) | |
15675 | (top) | |
15676 | (top) | |
15677 | (top) | |
15678 | (top) | |
15679 | (top) | |
15680 | (top) | |
15681 | (top) | |
15682 | (top) | |
15683 | (top) | |
15684 | (top) | |
15685 | (top) | |
15686 | (top) | |
15687 | (top) | |
15688 | (top) | |
15689 | (top) | |
15690 | (top) | |
15691 | (top) | |
15692 | (top) | |
15693 | (top) | |
15694 | (top) | |
15695 | (top) | |
15696 | (top) | |
15697 | (top) | |
15698 | (top) | |
15699 | (top) | |
15700 | (top) | |
15701 | (top) | |
15702 | (top) | |
15703 | (top) | |
15704 | (top) | |
15705 | (top) | |
15706 | (top) | |
15707 | (top) | |
15708 | (top) | |
15709 | (top) | |
15710 | (top) | |
15711 | (top) | |
15712 | (top) | |
15713 | (top) | |
15714 | (top) | |
15715 | (top) | |
15716 | (top) | |
15717 | (top) | |
15718 | (top) | |
15719 | (top) | |
15720 | (top) | |
15721 | (top) | |
15722 | (top) | |
15723 | (top) | |
15724 | (top) | |
15725 | (top) | |
15726 | (top) | |
15727 | (top) | |
15728 | (top) | |
15729 | (top) | |
15730 | (top) | |
15731 | (top) | |
15732 | (top) | |
15733 | (top) | |
15734 | (top) | |
15735 | (top) | |
15736 | (top) | |
15737 | (top) | |
15738 | (top) | |
15739 | (top) | |
15740 | (top)) | |
46e372ef AW |
15741 | ("i471" |
15742 | "i469" | |
15743 | "i467" | |
15744 | "i465" | |
15745 | "i463" | |
15746 | "i461" | |
15747 | "i459" | |
15748 | "i457" | |
15749 | "i455" | |
15750 | "i453" | |
15751 | "i451" | |
15752 | "i449" | |
15753 | "i447" | |
15754 | "i445" | |
15755 | "i443" | |
15756 | "i441" | |
15757 | "i439" | |
15758 | "i437" | |
15759 | "i435" | |
15760 | "i433" | |
15761 | "i431" | |
15762 | "i429" | |
15763 | "i427" | |
15764 | "i425" | |
15765 | "i423" | |
15766 | "i421" | |
15767 | "i419" | |
15768 | "i417" | |
15769 | "i415" | |
15770 | "i413" | |
15771 | "i411" | |
15772 | "i409" | |
15773 | "i407" | |
15774 | "i405" | |
15775 | "i403" | |
0f9f51a1 | 15776 | "i401" |
46e372ef | 15777 | "i400" |
0f9f51a1 | 15778 | "i398" |
840cf0d1 | 15779 | "i395" |
0f9f51a1 | 15780 | "i394" |
46e372ef | 15781 | "i393" |
0f9f51a1 | 15782 | "i391" |
46e372ef AW |
15783 | "i390" |
15784 | "i388" | |
15785 | "i386" | |
15786 | "i384" | |
15787 | "i382" | |
15788 | "i380" | |
15789 | "i378" | |
15790 | "i376" | |
0f9f51a1 | 15791 | "i374" |
46e372ef | 15792 | "i371" |
0f9f51a1 | 15793 | "i369" |
46e372ef AW |
15794 | "i368" |
15795 | "i366" | |
15796 | "i364" | |
15797 | "i362" | |
840cf0d1 AW |
15798 | "i360" |
15799 | "i359" | |
0f9f51a1 | 15800 | "i358" |
46e372ef | 15801 | "i357" |
0f9f51a1 AW |
15802 | "i355" |
15803 | "i354" | |
46e372ef AW |
15804 | "i351" |
15805 | "i349" | |
15806 | "i347" | |
15807 | "i345" | |
15808 | "i343" | |
15809 | "i341" | |
840cf0d1 AW |
15810 | "i340" |
15811 | "i339" | |
46e372ef AW |
15812 | "i337" |
15813 | "i335" | |
840cf0d1 | 15814 | "i334" |
46e372ef | 15815 | "i331" |
840cf0d1 | 15816 | "i330" |
46e372ef AW |
15817 | "i328" |
15818 | "i326" | |
15819 | "i324" | |
15820 | "i322" | |
15821 | "i320" | |
15822 | "i318" | |
15823 | "i316" | |
15824 | "i314" | |
15825 | "i312" | |
15826 | "i309" | |
15827 | "i307" | |
15828 | "i305" | |
15829 | "i303" | |
15830 | "i301" | |
15831 | "i299" | |
15832 | "i297" | |
15833 | "i295" | |
15834 | "i293" | |
15835 | "i291" | |
15836 | "i289" | |
15837 | "i287" | |
15838 | "i285" | |
15839 | "i283" | |
15840 | "i281" | |
15841 | "i279" | |
15842 | "i277" | |
15843 | "i275" | |
15844 | "i273" | |
15845 | "i271" | |
15846 | "i269" | |
15847 | "i267" | |
15848 | "i265" | |
15849 | "i263" | |
840cf0d1 | 15850 | "i262" |
46e372ef AW |
15851 | "i259" |
15852 | "i257" | |
840cf0d1 AW |
15853 | "i256" |
15854 | "i255" | |
15855 | "i254" | |
15856 | "i253" | |
46e372ef AW |
15857 | "i251" |
15858 | "i249" | |
15859 | "i247" | |
15860 | "i244" | |
15861 | "i242" | |
15862 | "i240" | |
15863 | "i238" | |
15864 | "i236" | |
15865 | "i234" | |
15866 | "i232" | |
15867 | "i230" | |
15868 | "i228" | |
15869 | "i226" | |
15870 | "i224" | |
15871 | "i222" | |
15872 | "i220" | |
15873 | "i218" | |
15874 | "i216" | |
15875 | "i214" | |
15876 | "i212" | |
15877 | "i210" | |
15878 | "i208")) | |
840cf0d1 AW |
15879 | #(ribcage |
15880 | (define-structure | |
15881 | define-expansion-accessors | |
15882 | define-expansion-constructors) | |
15883 | ((top) (top) (top)) | |
0f9f51a1 AW |
15884 | ("i46" "i45" "i44")) |
15885 | #(ribcage () () ())) | |
840cf0d1 AW |
15886 | (hygiene guile)) |
15887 | '#(syntax-object | |
15888 | _ | |
15889 | ((top) | |
15890 | #(ribcage | |
15891 | #(pat exp) | |
15892 | #((top) (top)) | |
b2208d2e | 15893 | #("i4007" "i4008")) |
840cf0d1 AW |
15894 | #(ribcage () () ()) |
15895 | #(ribcage | |
15896 | #(x keys clauses r mod) | |
15897 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
15898 | #("i3997" |
15899 | "i3998" | |
15900 | "i3999" | |
15901 | "i4000" | |
15902 | "i4001")) | |
840cf0d1 AW |
15903 | #(ribcage |
15904 | (gen-syntax-case | |
15905 | gen-clause | |
15906 | build-dispatch-call | |
15907 | convert-pattern) | |
15908 | ((top) (top) (top) (top)) | |
b2208d2e | 15909 | ("i3810" "i3808" "i3806" "i3804")) |
840cf0d1 AW |
15910 | #(ribcage |
15911 | (lambda-var-list | |
15912 | gen-var | |
15913 | strip | |
b2208d2e | 15914 | expand-lambda-case |
840cf0d1 | 15915 | lambda*-formals |
b2208d2e | 15916 | expand-simple-lambda |
840cf0d1 AW |
15917 | lambda-formals |
15918 | ellipsis? | |
b2208d2e | 15919 | expand-void |
840cf0d1 | 15920 | eval-local-transformer |
b2208d2e AW |
15921 | expand-local-syntax |
15922 | expand-body | |
15923 | expand-macro | |
15924 | expand-call | |
15925 | expand-expr | |
15926 | expand | |
840cf0d1 | 15927 | syntax-type |
b2208d2e AW |
15928 | parse-when-list |
15929 | expand-install-global | |
15930 | expand-top-sequence | |
15931 | expand-sequence | |
840cf0d1 AW |
15932 | source-wrap |
15933 | wrap | |
15934 | bound-id-member? | |
15935 | distinct-bound-ids? | |
15936 | valid-bound-ids? | |
15937 | bound-id=? | |
15938 | free-id=? | |
0f9f51a1 | 15939 | resolve-identifier |
840cf0d1 AW |
15940 | id-var-name |
15941 | same-marks? | |
15942 | join-marks | |
15943 | join-wraps | |
15944 | smart-append | |
15945 | make-binding-wrap | |
15946 | extend-ribcage! | |
15947 | make-empty-ribcage | |
15948 | new-mark | |
15949 | anti-mark | |
15950 | the-anti-mark | |
15951 | top-marked? | |
15952 | top-wrap | |
15953 | empty-wrap | |
15954 | set-ribcage-labels! | |
15955 | set-ribcage-marks! | |
15956 | set-ribcage-symnames! | |
15957 | ribcage-labels | |
15958 | ribcage-marks | |
15959 | ribcage-symnames | |
15960 | ribcage? | |
15961 | make-ribcage | |
15962 | gen-labels | |
15963 | gen-label | |
15964 | make-rename | |
15965 | rename-marks | |
15966 | rename-new | |
15967 | rename-old | |
15968 | subst-rename? | |
15969 | wrap-subst | |
15970 | wrap-marks | |
15971 | make-wrap | |
15972 | id-sym-name&marks | |
15973 | id-sym-name | |
15974 | id? | |
15975 | nonsymbol-id? | |
15976 | global-extend | |
840cf0d1 AW |
15977 | macros-only-env |
15978 | extend-var-env | |
15979 | extend-env | |
15980 | null-env | |
15981 | binding-value | |
15982 | binding-type | |
15983 | make-binding | |
15984 | arg-check | |
15985 | source-annotation | |
15986 | no-source | |
15987 | set-syntax-object-module! | |
15988 | set-syntax-object-wrap! | |
15989 | set-syntax-object-expression! | |
15990 | syntax-object-module | |
15991 | syntax-object-wrap | |
15992 | syntax-object-expression | |
15993 | syntax-object? | |
15994 | make-syntax-object | |
15995 | build-lexical-var | |
15996 | build-letrec | |
15997 | build-named-let | |
15998 | build-let | |
15999 | build-sequence | |
16000 | build-data | |
16001 | build-primref | |
16002 | build-primcall | |
16003 | build-lambda-case | |
16004 | build-case-lambda | |
16005 | build-simple-lambda | |
16006 | build-global-definition | |
16007 | build-global-assignment | |
16008 | build-global-reference | |
16009 | analyze-variable | |
16010 | build-lexical-assignment | |
16011 | build-lexical-reference | |
16012 | build-dynlet | |
16013 | build-conditional | |
16014 | build-call | |
16015 | build-void | |
16016 | maybe-name-value! | |
16017 | decorate-source | |
16018 | get-global-definition-hook | |
16019 | put-global-definition-hook | |
16020 | gensym-hook | |
16021 | local-eval-hook | |
16022 | top-level-eval-hook | |
16023 | fx< | |
16024 | fx= | |
16025 | fx- | |
16026 | fx+ | |
16027 | set-lambda-meta! | |
16028 | lambda-meta | |
16029 | lambda? | |
16030 | make-dynlet | |
16031 | make-letrec | |
16032 | make-let | |
16033 | make-lambda-case | |
16034 | make-lambda | |
16035 | make-seq | |
16036 | make-primcall | |
16037 | make-call | |
16038 | make-conditional | |
16039 | make-toplevel-define | |
16040 | make-toplevel-set | |
16041 | make-toplevel-ref | |
16042 | make-module-set | |
16043 | make-module-ref | |
16044 | make-lexical-set | |
16045 | make-lexical-ref | |
16046 | make-primitive-ref | |
16047 | make-const | |
16048 | make-void) | |
16049 | ((top) | |
16050 | (top) | |
16051 | (top) | |
16052 | (top) | |
16053 | (top) | |
16054 | (top) | |
16055 | (top) | |
16056 | (top) | |
16057 | (top) | |
16058 | (top) | |
16059 | (top) | |
16060 | (top) | |
16061 | (top) | |
16062 | (top) | |
16063 | (top) | |
16064 | (top) | |
16065 | (top) | |
16066 | (top) | |
16067 | (top) | |
16068 | (top) | |
16069 | (top) | |
16070 | (top) | |
16071 | (top) | |
16072 | (top) | |
16073 | (top) | |
16074 | (top) | |
16075 | (top) | |
16076 | (top) | |
16077 | (top) | |
16078 | (top) | |
16079 | (top) | |
16080 | (top) | |
16081 | (top) | |
16082 | (top) | |
16083 | (top) | |
16084 | (top) | |
16085 | (top) | |
16086 | (top) | |
16087 | (top) | |
16088 | (top) | |
16089 | (top) | |
16090 | (top) | |
16091 | (top) | |
16092 | (top) | |
16093 | (top) | |
16094 | (top) | |
16095 | (top) | |
16096 | (top) | |
16097 | (top) | |
16098 | (top) | |
16099 | (top) | |
16100 | (top) | |
16101 | (top) | |
16102 | (top) | |
16103 | (top) | |
16104 | (top) | |
16105 | (top) | |
16106 | (top) | |
16107 | (top) | |
16108 | (top) | |
16109 | (top) | |
16110 | (top) | |
16111 | (top) | |
16112 | (top) | |
16113 | (top) | |
16114 | (top) | |
16115 | (top) | |
16116 | (top) | |
16117 | (top) | |
16118 | (top) | |
16119 | (top) | |
16120 | (top) | |
16121 | (top) | |
16122 | (top) | |
16123 | (top) | |
16124 | (top) | |
16125 | (top) | |
16126 | (top) | |
16127 | (top) | |
16128 | (top) | |
16129 | (top) | |
16130 | (top) | |
16131 | (top) | |
16132 | (top) | |
16133 | (top) | |
16134 | (top) | |
16135 | (top) | |
16136 | (top) | |
16137 | (top) | |
16138 | (top) | |
16139 | (top) | |
16140 | (top) | |
16141 | (top) | |
16142 | (top) | |
16143 | (top) | |
16144 | (top) | |
16145 | (top) | |
16146 | (top) | |
16147 | (top) | |
16148 | (top) | |
16149 | (top) | |
16150 | (top) | |
16151 | (top) | |
16152 | (top) | |
16153 | (top) | |
16154 | (top) | |
16155 | (top) | |
16156 | (top) | |
16157 | (top) | |
16158 | (top) | |
16159 | (top) | |
16160 | (top) | |
16161 | (top) | |
16162 | (top) | |
16163 | (top) | |
16164 | (top) | |
16165 | (top) | |
16166 | (top) | |
16167 | (top) | |
16168 | (top) | |
16169 | (top) | |
16170 | (top) | |
16171 | (top) | |
16172 | (top) | |
16173 | (top) | |
16174 | (top) | |
16175 | (top) | |
16176 | (top) | |
16177 | (top) | |
16178 | (top) | |
16179 | (top) | |
16180 | (top) | |
16181 | (top) | |
16182 | (top) | |
16183 | (top) | |
16184 | (top) | |
16185 | (top) | |
16186 | (top)) | |
46e372ef AW |
16187 | ("i471" |
16188 | "i469" | |
16189 | "i467" | |
16190 | "i465" | |
16191 | "i463" | |
16192 | "i461" | |
16193 | "i459" | |
16194 | "i457" | |
16195 | "i455" | |
16196 | "i453" | |
16197 | "i451" | |
16198 | "i449" | |
16199 | "i447" | |
16200 | "i445" | |
16201 | "i443" | |
16202 | "i441" | |
16203 | "i439" | |
16204 | "i437" | |
16205 | "i435" | |
16206 | "i433" | |
16207 | "i431" | |
16208 | "i429" | |
16209 | "i427" | |
16210 | "i425" | |
16211 | "i423" | |
16212 | "i421" | |
16213 | "i419" | |
16214 | "i417" | |
16215 | "i415" | |
16216 | "i413" | |
16217 | "i411" | |
16218 | "i409" | |
16219 | "i407" | |
16220 | "i405" | |
16221 | "i403" | |
0f9f51a1 | 16222 | "i401" |
46e372ef | 16223 | "i400" |
0f9f51a1 | 16224 | "i398" |
840cf0d1 | 16225 | "i395" |
0f9f51a1 | 16226 | "i394" |
46e372ef | 16227 | "i393" |
0f9f51a1 | 16228 | "i391" |
46e372ef AW |
16229 | "i390" |
16230 | "i388" | |
16231 | "i386" | |
16232 | "i384" | |
16233 | "i382" | |
16234 | "i380" | |
16235 | "i378" | |
16236 | "i376" | |
0f9f51a1 | 16237 | "i374" |
46e372ef | 16238 | "i371" |
0f9f51a1 | 16239 | "i369" |
46e372ef AW |
16240 | "i368" |
16241 | "i366" | |
16242 | "i364" | |
16243 | "i362" | |
840cf0d1 AW |
16244 | "i360" |
16245 | "i359" | |
0f9f51a1 | 16246 | "i358" |
46e372ef | 16247 | "i357" |
0f9f51a1 AW |
16248 | "i355" |
16249 | "i354" | |
46e372ef AW |
16250 | "i351" |
16251 | "i349" | |
16252 | "i347" | |
16253 | "i345" | |
16254 | "i343" | |
16255 | "i341" | |
840cf0d1 AW |
16256 | "i340" |
16257 | "i339" | |
46e372ef AW |
16258 | "i337" |
16259 | "i335" | |
840cf0d1 | 16260 | "i334" |
46e372ef | 16261 | "i331" |
840cf0d1 | 16262 | "i330" |
46e372ef AW |
16263 | "i328" |
16264 | "i326" | |
16265 | "i324" | |
16266 | "i322" | |
16267 | "i320" | |
16268 | "i318" | |
16269 | "i316" | |
16270 | "i314" | |
16271 | "i312" | |
16272 | "i309" | |
16273 | "i307" | |
16274 | "i305" | |
16275 | "i303" | |
16276 | "i301" | |
16277 | "i299" | |
16278 | "i297" | |
16279 | "i295" | |
16280 | "i293" | |
16281 | "i291" | |
16282 | "i289" | |
16283 | "i287" | |
16284 | "i285" | |
16285 | "i283" | |
16286 | "i281" | |
16287 | "i279" | |
16288 | "i277" | |
16289 | "i275" | |
16290 | "i273" | |
16291 | "i271" | |
16292 | "i269" | |
16293 | "i267" | |
16294 | "i265" | |
16295 | "i263" | |
840cf0d1 | 16296 | "i262" |
46e372ef AW |
16297 | "i259" |
16298 | "i257" | |
840cf0d1 AW |
16299 | "i256" |
16300 | "i255" | |
16301 | "i254" | |
16302 | "i253" | |
46e372ef AW |
16303 | "i251" |
16304 | "i249" | |
16305 | "i247" | |
16306 | "i244" | |
16307 | "i242" | |
16308 | "i240" | |
16309 | "i238" | |
16310 | "i236" | |
16311 | "i234" | |
16312 | "i232" | |
16313 | "i230" | |
16314 | "i228" | |
16315 | "i226" | |
16316 | "i224" | |
16317 | "i222" | |
16318 | "i220" | |
16319 | "i218" | |
16320 | "i216" | |
16321 | "i214" | |
16322 | "i212" | |
16323 | "i210" | |
16324 | "i208")) | |
840cf0d1 AW |
16325 | #(ribcage |
16326 | (define-structure | |
16327 | define-expansion-accessors | |
16328 | define-expansion-constructors) | |
16329 | ((top) (top) (top)) | |
0f9f51a1 AW |
16330 | ("i46" "i45" "i44")) |
16331 | #(ribcage () () ())) | |
840cf0d1 | 16332 | (hygiene guile))) |
b2208d2e AW |
16333 | (#{expand 4443}# |
16334 | #{exp 14565}# | |
16335 | #{r 14535}# | |
840cf0d1 | 16336 | '(()) |
b2208d2e AW |
16337 | #{mod 14536}#) |
16338 | (let ((#{labels 14678}# | |
840cf0d1 | 16339 | (list (symbol->string (gensym "i")))) |
b2208d2e AW |
16340 | (#{var 14679}# |
16341 | (let ((#{id 14717}# | |
16342 | (if (if (vector? #{pat 14564}#) | |
840cf0d1 | 16343 | (if (= (vector-length |
b2208d2e | 16344 | #{pat 14564}#) |
840cf0d1 AW |
16345 | 4) |
16346 | (eq? (vector-ref | |
b2208d2e | 16347 | #{pat 14564}# |
840cf0d1 AW |
16348 | 0) |
16349 | 'syntax-object) | |
16350 | #f) | |
16351 | #f) | |
b2208d2e AW |
16352 | (vector-ref #{pat 14564}# 1) |
16353 | #{pat 14564}#))) | |
840cf0d1 AW |
16354 | (gensym |
16355 | (string-append | |
b2208d2e | 16356 | (symbol->string #{id 14717}#) |
840cf0d1 | 16357 | " "))))) |
b2208d2e | 16358 | (#{build-call 4377}# |
417ee098 | 16359 | #f |
b2208d2e | 16360 | (#{build-simple-lambda 4386}# |
840cf0d1 | 16361 | #f |
b2208d2e | 16362 | (list (syntax->datum #{pat 14564}#)) |
840cf0d1 | 16363 | #f |
b2208d2e | 16364 | (list #{var 14679}#) |
840cf0d1 | 16365 | '() |
b2208d2e AW |
16366 | (#{expand 4443}# |
16367 | #{exp 14565}# | |
16368 | (#{extend-env 4405}# | |
16369 | #{labels 14678}# | |
840cf0d1 | 16370 | (list (cons 'syntax |
b2208d2e AW |
16371 | (cons #{var 14679}# 0))) |
16372 | #{r 14535}#) | |
16373 | (#{make-binding-wrap 4424}# | |
16374 | (list #{pat 14564}#) | |
16375 | #{labels 14678}# | |
840cf0d1 | 16376 | '(())) |
b2208d2e AW |
16377 | #{mod 14536}#)) |
16378 | (list #{x 14532}#)))) | |
16379 | (#{gen-clause 13787}# | |
16380 | #{x 14532}# | |
16381 | #{keys 14533}# | |
16382 | (cdr #{clauses 14534}#) | |
16383 | #{r 14535}# | |
16384 | #{pat 14564}# | |
840cf0d1 | 16385 | #t |
b2208d2e AW |
16386 | #{exp 14565}# |
16387 | #{mod 14536}#))) | |
16388 | #{tmp 14562}#) | |
16389 | (let ((#{tmp 15027}# | |
16390 | ($sc-dispatch #{tmp 14561}# '(any any any)))) | |
16391 | (if #{tmp 15027}# | |
840cf0d1 | 16392 | (@apply |
b2208d2e AW |
16393 | (lambda (#{pat 15029}# |
16394 | #{fender 15030}# | |
16395 | #{exp 15031}#) | |
16396 | (#{gen-clause 13787}# | |
16397 | #{x 14532}# | |
16398 | #{keys 14533}# | |
16399 | (cdr #{clauses 14534}#) | |
16400 | #{r 14535}# | |
16401 | #{pat 15029}# | |
16402 | #{fender 15030}# | |
16403 | #{exp 15031}# | |
16404 | #{mod 14536}#)) | |
16405 | #{tmp 15027}#) | |
840cf0d1 AW |
16406 | (syntax-violation |
16407 | 'syntax-case | |
16408 | "invalid clause" | |
b2208d2e AW |
16409 | (car #{clauses 14534}#))))))))))) |
16410 | (lambda (#{e 13789}# | |
16411 | #{r 13790}# | |
16412 | #{w 13791}# | |
16413 | #{s 13792}# | |
16414 | #{mod 13793}#) | |
16415 | (let ((#{e 13794}# | |
16416 | (let ((#{x 14443}# | |
840cf0d1 | 16417 | (begin |
b2208d2e AW |
16418 | (if (if (pair? #{e 13789}#) #{s 13792}# #f) |
16419 | (set-source-properties! #{e 13789}# #{s 13792}#)) | |
16420 | #{e 13789}#))) | |
16421 | (if (if (null? (car #{w 13791}#)) | |
16422 | (null? (cdr #{w 13791}#)) | |
840cf0d1 | 16423 | #f) |
b2208d2e AW |
16424 | #{x 14443}# |
16425 | (if (if (vector? #{x 14443}#) | |
16426 | (if (= (vector-length #{x 14443}#) 4) | |
16427 | (eq? (vector-ref #{x 14443}# 0) 'syntax-object) | |
840cf0d1 AW |
16428 | #f) |
16429 | #f) | |
b2208d2e AW |
16430 | (let ((#{expression 14475}# (vector-ref #{x 14443}# 1)) |
16431 | (#{wrap 14476}# | |
16432 | (let ((#{w2 14484}# | |
16433 | (vector-ref #{x 14443}# 2))) | |
16434 | (let ((#{m1 14485}# (car #{w 13791}#)) | |
16435 | (#{s1 14486}# (cdr #{w 13791}#))) | |
16436 | (if (null? #{m1 14485}#) | |
16437 | (if (null? #{s1 14486}#) | |
16438 | #{w2 14484}# | |
16439 | (cons (car #{w2 14484}#) | |
16440 | (let ((#{m2 14501}# | |
16441 | (cdr #{w2 14484}#))) | |
16442 | (if (null? #{m2 14501}#) | |
16443 | #{s1 14486}# | |
840cf0d1 | 16444 | (append |
b2208d2e AW |
16445 | #{s1 14486}# |
16446 | #{m2 14501}#))))) | |
16447 | (cons (let ((#{m2 14509}# | |
16448 | (car #{w2 14484}#))) | |
16449 | (if (null? #{m2 14509}#) | |
16450 | #{m1 14485}# | |
840cf0d1 | 16451 | (append |
b2208d2e AW |
16452 | #{m1 14485}# |
16453 | #{m2 14509}#))) | |
16454 | (let ((#{m2 14517}# | |
16455 | (cdr #{w2 14484}#))) | |
16456 | (if (null? #{m2 14517}#) | |
16457 | #{s1 14486}# | |
840cf0d1 | 16458 | (append |
b2208d2e AW |
16459 | #{s1 14486}# |
16460 | #{m2 14517}#)))))))) | |
16461 | (#{module 14477}# (vector-ref #{x 14443}# 3))) | |
840cf0d1 AW |
16462 | (vector |
16463 | 'syntax-object | |
b2208d2e AW |
16464 | #{expression 14475}# |
16465 | #{wrap 14476}# | |
16466 | #{module 14477}#)) | |
16467 | (if (null? #{x 14443}#) | |
16468 | #{x 14443}# | |
840cf0d1 AW |
16469 | (vector |
16470 | 'syntax-object | |
b2208d2e AW |
16471 | #{x 14443}# |
16472 | #{w 13791}# | |
16473 | #{mod 13793}#))))))) | |
16474 | (let ((#{tmp 13795}# #{e 13794}#)) | |
16475 | (let ((#{tmp 13796}# | |
46e372ef | 16476 | ($sc-dispatch |
b2208d2e | 16477 | #{tmp 13795}# |
46e372ef | 16478 | '(_ any each-any . each-any)))) |
b2208d2e | 16479 | (if #{tmp 13796}# |
46e372ef | 16480 | (@apply |
b2208d2e | 16481 | (lambda (#{val 13848}# #{key 13849}# #{m 13850}#) |
46e372ef | 16482 | (if (and-map |
b2208d2e AW |
16483 | (lambda (#{x 13851}#) |
16484 | (if (if (symbol? #{x 13851}#) | |
46e372ef | 16485 | #t |
b2208d2e AW |
16486 | (if (if (vector? #{x 13851}#) |
16487 | (if (= (vector-length #{x 13851}#) 4) | |
16488 | (eq? (vector-ref #{x 13851}# 0) | |
46e372ef AW |
16489 | 'syntax-object) |
16490 | #f) | |
840cf0d1 | 16491 | #f) |
b2208d2e | 16492 | (symbol? (vector-ref #{x 13851}# 1)) |
46e372ef | 16493 | #f)) |
b2208d2e | 16494 | (not (if (if (if (vector? #{x 13851}#) |
46e372ef | 16495 | (if (= (vector-length |
b2208d2e | 16496 | #{x 13851}#) |
46e372ef AW |
16497 | 4) |
16498 | (eq? (vector-ref | |
b2208d2e | 16499 | #{x 13851}# |
46e372ef AW |
16500 | 0) |
16501 | 'syntax-object) | |
16502 | #f) | |
840cf0d1 | 16503 | #f) |
b2208d2e | 16504 | (symbol? (vector-ref #{x 13851}# 1)) |
46e372ef | 16505 | #f) |
b2208d2e AW |
16506 | (#{free-id=? 4431}# |
16507 | #{x 13851}# | |
46e372ef AW |
16508 | '#(syntax-object |
16509 | ... | |
16510 | ((top) | |
16511 | #(ribcage () () ()) | |
16512 | #(ribcage () () ()) | |
16513 | #(ribcage | |
16514 | #(x) | |
16515 | #((top)) | |
b2208d2e | 16516 | #("i2338")) |
46e372ef AW |
16517 | #(ribcage |
16518 | (lambda-var-list | |
16519 | gen-var | |
16520 | strip | |
b2208d2e | 16521 | expand-lambda-case |
46e372ef | 16522 | lambda*-formals |
b2208d2e | 16523 | expand-simple-lambda |
46e372ef AW |
16524 | lambda-formals |
16525 | ellipsis? | |
b2208d2e | 16526 | expand-void |
46e372ef | 16527 | eval-local-transformer |
b2208d2e AW |
16528 | expand-local-syntax |
16529 | expand-body | |
16530 | expand-macro | |
16531 | expand-call | |
16532 | expand-expr | |
16533 | expand | |
46e372ef | 16534 | syntax-type |
b2208d2e AW |
16535 | parse-when-list |
16536 | expand-install-global | |
16537 | expand-top-sequence | |
16538 | expand-sequence | |
46e372ef AW |
16539 | source-wrap |
16540 | wrap | |
16541 | bound-id-member? | |
16542 | distinct-bound-ids? | |
16543 | valid-bound-ids? | |
16544 | bound-id=? | |
16545 | free-id=? | |
0f9f51a1 | 16546 | resolve-identifier |
46e372ef AW |
16547 | id-var-name |
16548 | same-marks? | |
16549 | join-marks | |
16550 | join-wraps | |
16551 | smart-append | |
16552 | make-binding-wrap | |
16553 | extend-ribcage! | |
16554 | make-empty-ribcage | |
16555 | new-mark | |
16556 | anti-mark | |
16557 | the-anti-mark | |
16558 | top-marked? | |
16559 | top-wrap | |
16560 | empty-wrap | |
16561 | set-ribcage-labels! | |
16562 | set-ribcage-marks! | |
16563 | set-ribcage-symnames! | |
16564 | ribcage-labels | |
16565 | ribcage-marks | |
16566 | ribcage-symnames | |
16567 | ribcage? | |
16568 | make-ribcage | |
16569 | gen-labels | |
16570 | gen-label | |
16571 | make-rename | |
16572 | rename-marks | |
16573 | rename-new | |
16574 | rename-old | |
16575 | subst-rename? | |
16576 | wrap-subst | |
16577 | wrap-marks | |
16578 | make-wrap | |
16579 | id-sym-name&marks | |
16580 | id-sym-name | |
16581 | id? | |
16582 | nonsymbol-id? | |
16583 | global-extend | |
46e372ef AW |
16584 | macros-only-env |
16585 | extend-var-env | |
16586 | extend-env | |
16587 | null-env | |
16588 | binding-value | |
16589 | binding-type | |
16590 | make-binding | |
16591 | arg-check | |
16592 | source-annotation | |
16593 | no-source | |
16594 | set-syntax-object-module! | |
16595 | set-syntax-object-wrap! | |
16596 | set-syntax-object-expression! | |
16597 | syntax-object-module | |
16598 | syntax-object-wrap | |
16599 | syntax-object-expression | |
16600 | syntax-object? | |
16601 | make-syntax-object | |
16602 | build-lexical-var | |
16603 | build-letrec | |
16604 | build-named-let | |
16605 | build-let | |
16606 | build-sequence | |
16607 | build-data | |
16608 | build-primref | |
16609 | build-primcall | |
16610 | build-lambda-case | |
16611 | build-case-lambda | |
16612 | build-simple-lambda | |
16613 | build-global-definition | |
16614 | build-global-assignment | |
16615 | build-global-reference | |
16616 | analyze-variable | |
16617 | build-lexical-assignment | |
16618 | build-lexical-reference | |
16619 | build-dynlet | |
16620 | build-conditional | |
16621 | build-call | |
16622 | build-void | |
16623 | maybe-name-value! | |
16624 | decorate-source | |
16625 | get-global-definition-hook | |
16626 | put-global-definition-hook | |
16627 | gensym-hook | |
16628 | local-eval-hook | |
16629 | top-level-eval-hook | |
16630 | fx< | |
16631 | fx= | |
16632 | fx- | |
16633 | fx+ | |
16634 | set-lambda-meta! | |
16635 | lambda-meta | |
16636 | lambda? | |
16637 | make-dynlet | |
16638 | make-letrec | |
16639 | make-let | |
16640 | make-lambda-case | |
16641 | make-lambda | |
16642 | make-seq | |
16643 | make-primcall | |
16644 | make-call | |
16645 | make-conditional | |
16646 | make-toplevel-define | |
16647 | make-toplevel-set | |
16648 | make-toplevel-ref | |
16649 | make-module-set | |
16650 | make-module-ref | |
16651 | make-lexical-set | |
16652 | make-lexical-ref | |
16653 | make-primitive-ref | |
16654 | make-const | |
16655 | make-void) | |
16656 | ((top) | |
16657 | (top) | |
16658 | (top) | |
16659 | (top) | |
16660 | (top) | |
16661 | (top) | |
16662 | (top) | |
16663 | (top) | |
16664 | (top) | |
16665 | (top) | |
16666 | (top) | |
16667 | (top) | |
16668 | (top) | |
16669 | (top) | |
16670 | (top) | |
16671 | (top) | |
16672 | (top) | |
16673 | (top) | |
16674 | (top) | |
16675 | (top) | |
16676 | (top) | |
16677 | (top) | |
16678 | (top) | |
16679 | (top) | |
16680 | (top) | |
16681 | (top) | |
16682 | (top) | |
16683 | (top) | |
16684 | (top) | |
16685 | (top) | |
16686 | (top) | |
16687 | (top) | |
16688 | (top) | |
16689 | (top) | |
16690 | (top) | |
16691 | (top) | |
16692 | (top) | |
16693 | (top) | |
16694 | (top) | |
16695 | (top) | |
16696 | (top) | |
16697 | (top) | |
16698 | (top) | |
16699 | (top) | |
16700 | (top) | |
16701 | (top) | |
16702 | (top) | |
16703 | (top) | |
16704 | (top) | |
16705 | (top) | |
16706 | (top) | |
16707 | (top) | |
16708 | (top) | |
16709 | (top) | |
16710 | (top) | |
16711 | (top) | |
16712 | (top) | |
16713 | (top) | |
16714 | (top) | |
16715 | (top) | |
16716 | (top) | |
16717 | (top) | |
16718 | (top) | |
16719 | (top) | |
16720 | (top) | |
16721 | (top) | |
16722 | (top) | |
16723 | (top) | |
16724 | (top) | |
16725 | (top) | |
16726 | (top) | |
16727 | (top) | |
16728 | (top) | |
16729 | (top) | |
16730 | (top) | |
16731 | (top) | |
16732 | (top) | |
16733 | (top) | |
16734 | (top) | |
16735 | (top) | |
16736 | (top) | |
16737 | (top) | |
16738 | (top) | |
16739 | (top) | |
16740 | (top) | |
16741 | (top) | |
16742 | (top) | |
16743 | (top) | |
16744 | (top) | |
16745 | (top) | |
16746 | (top) | |
16747 | (top) | |
16748 | (top) | |
16749 | (top) | |
16750 | (top) | |
16751 | (top) | |
16752 | (top) | |
16753 | (top) | |
16754 | (top) | |
16755 | (top) | |
16756 | (top) | |
16757 | (top) | |
16758 | (top) | |
16759 | (top) | |
16760 | (top) | |
16761 | (top) | |
16762 | (top) | |
16763 | (top) | |
16764 | (top) | |
16765 | (top) | |
16766 | (top) | |
16767 | (top) | |
16768 | (top) | |
16769 | (top) | |
16770 | (top) | |
16771 | (top) | |
16772 | (top) | |
16773 | (top) | |
16774 | (top) | |
16775 | (top) | |
16776 | (top) | |
16777 | (top) | |
16778 | (top) | |
16779 | (top) | |
16780 | (top) | |
16781 | (top) | |
16782 | (top) | |
16783 | (top) | |
16784 | (top) | |
16785 | (top) | |
16786 | (top) | |
16787 | (top) | |
16788 | (top) | |
16789 | (top) | |
16790 | (top) | |
16791 | (top) | |
16792 | (top) | |
16793 | (top)) | |
16794 | ("i471" | |
16795 | "i469" | |
16796 | "i467" | |
16797 | "i465" | |
16798 | "i463" | |
16799 | "i461" | |
16800 | "i459" | |
16801 | "i457" | |
16802 | "i455" | |
16803 | "i453" | |
16804 | "i451" | |
16805 | "i449" | |
16806 | "i447" | |
16807 | "i445" | |
16808 | "i443" | |
16809 | "i441" | |
16810 | "i439" | |
16811 | "i437" | |
16812 | "i435" | |
16813 | "i433" | |
16814 | "i431" | |
16815 | "i429" | |
16816 | "i427" | |
16817 | "i425" | |
16818 | "i423" | |
16819 | "i421" | |
16820 | "i419" | |
16821 | "i417" | |
16822 | "i415" | |
16823 | "i413" | |
16824 | "i411" | |
16825 | "i409" | |
16826 | "i407" | |
16827 | "i405" | |
16828 | "i403" | |
0f9f51a1 | 16829 | "i401" |
46e372ef | 16830 | "i400" |
0f9f51a1 | 16831 | "i398" |
46e372ef | 16832 | "i395" |
0f9f51a1 | 16833 | "i394" |
46e372ef | 16834 | "i393" |
0f9f51a1 | 16835 | "i391" |
46e372ef AW |
16836 | "i390" |
16837 | "i388" | |
16838 | "i386" | |
16839 | "i384" | |
16840 | "i382" | |
16841 | "i380" | |
16842 | "i378" | |
16843 | "i376" | |
0f9f51a1 | 16844 | "i374" |
46e372ef | 16845 | "i371" |
0f9f51a1 | 16846 | "i369" |
46e372ef AW |
16847 | "i368" |
16848 | "i366" | |
16849 | "i364" | |
16850 | "i362" | |
46e372ef AW |
16851 | "i360" |
16852 | "i359" | |
0f9f51a1 | 16853 | "i358" |
46e372ef | 16854 | "i357" |
0f9f51a1 AW |
16855 | "i355" |
16856 | "i354" | |
46e372ef AW |
16857 | "i351" |
16858 | "i349" | |
16859 | "i347" | |
16860 | "i345" | |
16861 | "i343" | |
16862 | "i341" | |
16863 | "i340" | |
16864 | "i339" | |
16865 | "i337" | |
16866 | "i335" | |
16867 | "i334" | |
16868 | "i331" | |
16869 | "i330" | |
16870 | "i328" | |
16871 | "i326" | |
16872 | "i324" | |
16873 | "i322" | |
16874 | "i320" | |
16875 | "i318" | |
16876 | "i316" | |
16877 | "i314" | |
16878 | "i312" | |
16879 | "i309" | |
16880 | "i307" | |
16881 | "i305" | |
16882 | "i303" | |
16883 | "i301" | |
16884 | "i299" | |
16885 | "i297" | |
16886 | "i295" | |
16887 | "i293" | |
16888 | "i291" | |
16889 | "i289" | |
16890 | "i287" | |
16891 | "i285" | |
16892 | "i283" | |
16893 | "i281" | |
16894 | "i279" | |
16895 | "i277" | |
16896 | "i275" | |
16897 | "i273" | |
16898 | "i271" | |
16899 | "i269" | |
16900 | "i267" | |
16901 | "i265" | |
16902 | "i263" | |
16903 | "i262" | |
16904 | "i259" | |
16905 | "i257" | |
16906 | "i256" | |
16907 | "i255" | |
16908 | "i254" | |
16909 | "i253" | |
16910 | "i251" | |
16911 | "i249" | |
16912 | "i247" | |
16913 | "i244" | |
16914 | "i242" | |
16915 | "i240" | |
16916 | "i238" | |
16917 | "i236" | |
16918 | "i234" | |
16919 | "i232" | |
16920 | "i230" | |
16921 | "i228" | |
16922 | "i226" | |
16923 | "i224" | |
16924 | "i222" | |
16925 | "i220" | |
16926 | "i218" | |
16927 | "i216" | |
16928 | "i214" | |
16929 | "i212" | |
16930 | "i210" | |
16931 | "i208")) | |
16932 | #(ribcage | |
16933 | (define-structure | |
16934 | define-expansion-accessors | |
16935 | define-expansion-constructors) | |
16936 | ((top) (top) (top)) | |
0f9f51a1 AW |
16937 | ("i46" "i45" "i44")) |
16938 | #(ribcage () () ())) | |
46e372ef AW |
16939 | (hygiene guile))) |
16940 | #f)) | |
16941 | #f)) | |
b2208d2e AW |
16942 | #{key 13849}#) |
16943 | (let ((#{x 13916}# | |
46e372ef AW |
16944 | (gensym |
16945 | (string-append (symbol->string 'tmp) " ")))) | |
b2208d2e AW |
16946 | (#{build-call 4377}# |
16947 | #{s 13792}# | |
16948 | (let ((#{req 14058}# (list 'tmp)) | |
16949 | (#{vars 14060}# (list #{x 13916}#)) | |
16950 | (#{exp 14062}# | |
16951 | (#{gen-syntax-case 13788}# | |
46e372ef AW |
16952 | (make-struct/no-tail |
16953 | (vector-ref %expanded-vtables 3) | |
16954 | #f | |
16955 | 'tmp | |
b2208d2e AW |
16956 | #{x 13916}#) |
16957 | #{key 13849}# | |
16958 | #{m 13850}# | |
16959 | #{r 13790}# | |
16960 | #{mod 13793}#))) | |
16961 | (let ((#{body 14067}# | |
46e372ef AW |
16962 | (make-struct/no-tail |
16963 | (vector-ref %expanded-vtables 15) | |
16964 | #f | |
b2208d2e | 16965 | #{req 14058}# |
46e372ef AW |
16966 | #f |
16967 | #f | |
16968 | #f | |
16969 | '() | |
b2208d2e AW |
16970 | #{vars 14060}# |
16971 | #{exp 14062}# | |
46e372ef AW |
16972 | #f))) |
16973 | (make-struct/no-tail | |
16974 | (vector-ref %expanded-vtables 14) | |
16975 | #f | |
16976 | '() | |
b2208d2e AW |
16977 | #{body 14067}#))) |
16978 | (list (#{expand 4443}# | |
16979 | #{val 13848}# | |
16980 | #{r 13790}# | |
46e372ef | 16981 | '(()) |
b2208d2e | 16982 | #{mod 13793}#)))) |
46e372ef AW |
16983 | (syntax-violation |
16984 | 'syntax-case | |
16985 | "invalid literals list" | |
b2208d2e AW |
16986 | #{e 13794}#))) |
16987 | #{tmp 13796}#) | |
46e372ef AW |
16988 | (syntax-violation |
16989 | #f | |
16990 | "source expression failed to match any pattern" | |
b2208d2e | 16991 | #{tmp 13795}#)))))))) |
840cf0d1 AW |
16992 | (set! macroexpand |
16993 | (lambda* | |
b2208d2e | 16994 | (#{x 16799}# |
840cf0d1 | 16995 | #:optional |
b2208d2e AW |
16996 | (#{m 16800}# 'e) |
16997 | (#{esew 16801}# '(eval))) | |
16998 | (#{expand-top-sequence 4439}# | |
16999 | (list #{x 16799}#) | |
840cf0d1 AW |
17000 | '() |
17001 | '((top)) | |
17002 | #f | |
b2208d2e AW |
17003 | #{m 16800}# |
17004 | #{esew 16801}# | |
840cf0d1 AW |
17005 | (cons 'hygiene (module-name (current-module)))))) |
17006 | (set! identifier? | |
b2208d2e AW |
17007 | (lambda (#{x 16804}#) |
17008 | (if (if (vector? #{x 16804}#) | |
17009 | (if (= (vector-length #{x 16804}#) 4) | |
17010 | (eq? (vector-ref #{x 16804}# 0) 'syntax-object) | |
840cf0d1 AW |
17011 | #f) |
17012 | #f) | |
b2208d2e | 17013 | (symbol? (vector-ref #{x 16804}# 1)) |
840cf0d1 AW |
17014 | #f))) |
17015 | (set! datum->syntax | |
b2208d2e AW |
17016 | (lambda (#{id 16829}# #{datum 16830}#) |
17017 | (let ((#{wrap 16835}# (vector-ref #{id 16829}# 2)) | |
17018 | (#{module 16836}# (vector-ref #{id 16829}# 3))) | |
840cf0d1 AW |
17019 | (vector |
17020 | 'syntax-object | |
b2208d2e AW |
17021 | #{datum 16830}# |
17022 | #{wrap 16835}# | |
17023 | #{module 16836}#)))) | |
840cf0d1 | 17024 | (set! syntax->datum |
b2208d2e AW |
17025 | (lambda (#{x 16843}#) |
17026 | (#{strip 4456}# #{x 16843}# '(())))) | |
840cf0d1 | 17027 | (set! syntax-source |
b2208d2e AW |
17028 | (lambda (#{x 16846}#) |
17029 | (#{source-annotation 4404}# #{x 16846}#))) | |
840cf0d1 | 17030 | (set! generate-temporaries |
b2208d2e | 17031 | (lambda (#{ls 17048}#) |
840cf0d1 | 17032 | (begin |
b2208d2e | 17033 | (if (not (list? #{ls 17048}#)) |
417ee098 | 17034 | (syntax-violation |
840cf0d1 AW |
17035 | 'generate-temporaries |
17036 | "invalid argument" | |
b2208d2e AW |
17037 | #{ls 17048}#)) |
17038 | (let ((#{mod 17056}# | |
840cf0d1 | 17039 | (cons 'hygiene (module-name (current-module))))) |
b2208d2e AW |
17040 | (map (lambda (#{x 17057}#) |
17041 | (let ((#{x 17061}# (gensym))) | |
17042 | (if (if (vector? #{x 17061}#) | |
17043 | (if (= (vector-length #{x 17061}#) 4) | |
17044 | (eq? (vector-ref #{x 17061}# 0) 'syntax-object) | |
840cf0d1 AW |
17045 | #f) |
17046 | #f) | |
b2208d2e AW |
17047 | (let ((#{expression 17076}# (vector-ref #{x 17061}# 1)) |
17048 | (#{wrap 17077}# | |
17049 | (let ((#{w2 17085}# (vector-ref #{x 17061}# 2))) | |
17050 | (cons (let ((#{m2 17092}# (car #{w2 17085}#))) | |
17051 | (if (null? #{m2 17092}#) | |
840cf0d1 | 17052 | '(top) |
b2208d2e AW |
17053 | (append '(top) #{m2 17092}#))) |
17054 | (let ((#{m2 17099}# (cdr #{w2 17085}#))) | |
17055 | (if (null? #{m2 17099}#) | |
840cf0d1 | 17056 | '() |
b2208d2e AW |
17057 | (append '() #{m2 17099}#)))))) |
17058 | (#{module 17078}# (vector-ref #{x 17061}# 3))) | |
840cf0d1 AW |
17059 | (vector |
17060 | 'syntax-object | |
b2208d2e AW |
17061 | #{expression 17076}# |
17062 | #{wrap 17077}# | |
17063 | #{module 17078}#)) | |
17064 | (if (null? #{x 17061}#) | |
17065 | #{x 17061}# | |
840cf0d1 AW |
17066 | (vector |
17067 | 'syntax-object | |
b2208d2e | 17068 | #{x 17061}# |
840cf0d1 | 17069 | '((top)) |
b2208d2e AW |
17070 | #{mod 17056}#))))) |
17071 | #{ls 17048}#))))) | |
840cf0d1 | 17072 | (set! free-identifier=? |
b2208d2e | 17073 | (lambda (#{x 17108}# #{y 17109}#) |
840cf0d1 | 17074 | (begin |
b2208d2e AW |
17075 | (if (not (if (if (vector? #{x 17108}#) |
17076 | (if (= (vector-length #{x 17108}#) 4) | |
17077 | (eq? (vector-ref #{x 17108}# 0) 'syntax-object) | |
840cf0d1 AW |
17078 | #f) |
17079 | #f) | |
b2208d2e | 17080 | (symbol? (vector-ref #{x 17108}# 1)) |
840cf0d1 AW |
17081 | #f)) |
17082 | (syntax-violation | |
17083 | 'free-identifier=? | |
17084 | "invalid argument" | |
b2208d2e AW |
17085 | #{x 17108}#)) |
17086 | (if (not (if (if (vector? #{y 17109}#) | |
17087 | (if (= (vector-length #{y 17109}#) 4) | |
17088 | (eq? (vector-ref #{y 17109}# 0) 'syntax-object) | |
840cf0d1 AW |
17089 | #f) |
17090 | #f) | |
b2208d2e | 17091 | (symbol? (vector-ref #{y 17109}# 1)) |
840cf0d1 AW |
17092 | #f)) |
17093 | (syntax-violation | |
17094 | 'free-identifier=? | |
17095 | "invalid argument" | |
b2208d2e AW |
17096 | #{y 17109}#)) |
17097 | (#{free-id=? 4431}# #{x 17108}# #{y 17109}#)))) | |
840cf0d1 | 17098 | (set! bound-identifier=? |
b2208d2e | 17099 | (lambda (#{x 17184}# #{y 17185}#) |
840cf0d1 | 17100 | (begin |
b2208d2e AW |
17101 | (if (not (if (if (vector? #{x 17184}#) |
17102 | (if (= (vector-length #{x 17184}#) 4) | |
17103 | (eq? (vector-ref #{x 17184}# 0) 'syntax-object) | |
840cf0d1 AW |
17104 | #f) |
17105 | #f) | |
b2208d2e | 17106 | (symbol? (vector-ref #{x 17184}# 1)) |
840cf0d1 AW |
17107 | #f)) |
17108 | (syntax-violation | |
17109 | 'bound-identifier=? | |
17110 | "invalid argument" | |
b2208d2e AW |
17111 | #{x 17184}#)) |
17112 | (if (not (if (if (vector? #{y 17185}#) | |
17113 | (if (= (vector-length #{y 17185}#) 4) | |
17114 | (eq? (vector-ref #{y 17185}# 0) 'syntax-object) | |
840cf0d1 AW |
17115 | #f) |
17116 | #f) | |
b2208d2e | 17117 | (symbol? (vector-ref #{y 17185}# 1)) |
840cf0d1 AW |
17118 | #f)) |
17119 | (syntax-violation | |
17120 | 'bound-identifier=? | |
17121 | "invalid argument" | |
b2208d2e AW |
17122 | #{y 17185}#)) |
17123 | (#{bound-id=? 4432}# #{x 17184}# #{y 17185}#)))) | |
840cf0d1 AW |
17124 | (set! syntax-violation |
17125 | (lambda* | |
b2208d2e AW |
17126 | (#{who 17351}# |
17127 | #{message 17352}# | |
17128 | #{form 17353}# | |
840cf0d1 | 17129 | #:optional |
b2208d2e | 17130 | (#{subform 17354}# #f)) |
840cf0d1 | 17131 | (begin |
b2208d2e AW |
17132 | (if (not (if (not #{who 17351}#) |
17133 | (not #{who 17351}#) | |
17134 | (let ((#{t 17372}# (string? #{who 17351}#))) | |
17135 | (if #{t 17372}# | |
17136 | #{t 17372}# | |
17137 | (symbol? #{who 17351}#))))) | |
840cf0d1 AW |
17138 | (syntax-violation |
17139 | 'syntax-violation | |
17140 | "invalid argument" | |
b2208d2e AW |
17141 | #{who 17351}#)) |
17142 | (if (not (string? #{message 17352}#)) | |
840cf0d1 AW |
17143 | (syntax-violation |
17144 | 'syntax-violation | |
17145 | "invalid argument" | |
b2208d2e | 17146 | #{message 17352}#)) |
840cf0d1 | 17147 | (throw 'syntax-error |
b2208d2e AW |
17148 | #{who 17351}# |
17149 | #{message 17352}# | |
17150 | (#{source-annotation 4404}# | |
17151 | (if #{form 17353}# | |
17152 | #{form 17353}# | |
17153 | #{subform 17354}#)) | |
17154 | (#{strip 4456}# #{form 17353}# '(())) | |
17155 | (if #{subform 17354}# | |
17156 | (#{strip 4456}# #{subform 17354}# '(())) | |
840cf0d1 | 17157 | #f))))) |
417ee098 | 17158 | (letrec* |
b2208d2e AW |
17159 | ((#{match-each 17623}# |
17160 | (lambda (#{e 18511}# | |
17161 | #{p 18512}# | |
17162 | #{w 18513}# | |
17163 | #{mod 18514}#) | |
17164 | (if (pair? #{e 18511}#) | |
17165 | (let ((#{first 18515}# | |
17166 | (#{match 17629}# | |
17167 | (car #{e 18511}#) | |
17168 | #{p 18512}# | |
17169 | #{w 18513}# | |
840cf0d1 | 17170 | '() |
b2208d2e AW |
17171 | #{mod 18514}#))) |
17172 | (if #{first 18515}# | |
17173 | (let ((#{rest 18518}# | |
17174 | (#{match-each 17623}# | |
17175 | (cdr #{e 18511}#) | |
17176 | #{p 18512}# | |
17177 | #{w 18513}# | |
17178 | #{mod 18514}#))) | |
17179 | (if #{rest 18518}# | |
17180 | (cons #{first 18515}# #{rest 18518}#) | |
840cf0d1 AW |
17181 | #f)) |
17182 | #f)) | |
b2208d2e | 17183 | (if (null? #{e 18511}#) |
840cf0d1 | 17184 | '() |
b2208d2e AW |
17185 | (if (if (vector? #{e 18511}#) |
17186 | (if (= (vector-length #{e 18511}#) 4) | |
17187 | (eq? (vector-ref #{e 18511}# 0) 'syntax-object) | |
840cf0d1 AW |
17188 | #f) |
17189 | #f) | |
b2208d2e AW |
17190 | (#{match-each 17623}# |
17191 | (vector-ref #{e 18511}# 1) | |
17192 | #{p 18512}# | |
17193 | (let ((#{w2 18540}# (vector-ref #{e 18511}# 2))) | |
17194 | (let ((#{m1 18541}# (car #{w 18513}#)) | |
17195 | (#{s1 18542}# (cdr #{w 18513}#))) | |
17196 | (if (null? #{m1 18541}#) | |
17197 | (if (null? #{s1 18542}#) | |
17198 | #{w2 18540}# | |
17199 | (cons (car #{w2 18540}#) | |
17200 | (let ((#{m2 18553}# (cdr #{w2 18540}#))) | |
17201 | (if (null? #{m2 18553}#) | |
17202 | #{s1 18542}# | |
17203 | (append #{s1 18542}# #{m2 18553}#))))) | |
17204 | (cons (let ((#{m2 18561}# (car #{w2 18540}#))) | |
17205 | (if (null? #{m2 18561}#) | |
17206 | #{m1 18541}# | |
17207 | (append #{m1 18541}# #{m2 18561}#))) | |
17208 | (let ((#{m2 18569}# (cdr #{w2 18540}#))) | |
17209 | (if (null? #{m2 18569}#) | |
17210 | #{s1 18542}# | |
17211 | (append #{s1 18542}# #{m2 18569}#))))))) | |
17212 | (vector-ref #{e 18511}# 3)) | |
840cf0d1 | 17213 | #f))))) |
b2208d2e AW |
17214 | (#{match-each-any 17625}# |
17215 | (lambda (#{e 18578}# #{w 18579}# #{mod 18580}#) | |
17216 | (if (pair? #{e 18578}#) | |
17217 | (let ((#{l 18581}# | |
17218 | (#{match-each-any 17625}# | |
17219 | (cdr #{e 18578}#) | |
17220 | #{w 18579}# | |
17221 | #{mod 18580}#))) | |
17222 | (if #{l 18581}# | |
17223 | (cons (let ((#{x 18586}# (car #{e 18578}#))) | |
17224 | (if (if (null? (car #{w 18579}#)) | |
17225 | (null? (cdr #{w 18579}#)) | |
840cf0d1 | 17226 | #f) |
b2208d2e AW |
17227 | #{x 18586}# |
17228 | (if (if (vector? #{x 18586}#) | |
17229 | (if (= (vector-length #{x 18586}#) 4) | |
17230 | (eq? (vector-ref #{x 18586}# 0) | |
840cf0d1 AW |
17231 | 'syntax-object) |
17232 | #f) | |
17233 | #f) | |
b2208d2e AW |
17234 | (let ((#{expression 18604}# |
17235 | (vector-ref #{x 18586}# 1)) | |
17236 | (#{wrap 18605}# | |
17237 | (let ((#{w2 18613}# | |
17238 | (vector-ref #{x 18586}# 2))) | |
17239 | (let ((#{m1 18614}# (car #{w 18579}#)) | |
17240 | (#{s1 18615}# (cdr #{w 18579}#))) | |
17241 | (if (null? #{m1 18614}#) | |
17242 | (if (null? #{s1 18615}#) | |
17243 | #{w2 18613}# | |
17244 | (cons (car #{w2 18613}#) | |
17245 | (let ((#{m2 18630}# | |
17246 | (cdr #{w2 18613}#))) | |
17247 | (if (null? #{m2 18630}#) | |
17248 | #{s1 18615}# | |
840cf0d1 | 17249 | (append |
b2208d2e AW |
17250 | #{s1 18615}# |
17251 | #{m2 18630}#))))) | |
17252 | (cons (let ((#{m2 18638}# | |
17253 | (car #{w2 18613}#))) | |
17254 | (if (null? #{m2 18638}#) | |
17255 | #{m1 18614}# | |
840cf0d1 | 17256 | (append |
b2208d2e AW |
17257 | #{m1 18614}# |
17258 | #{m2 18638}#))) | |
17259 | (let ((#{m2 18646}# | |
17260 | (cdr #{w2 18613}#))) | |
17261 | (if (null? #{m2 18646}#) | |
17262 | #{s1 18615}# | |
840cf0d1 | 17263 | (append |
b2208d2e AW |
17264 | #{s1 18615}# |
17265 | #{m2 18646}#)))))))) | |
17266 | (#{module 18606}# | |
17267 | (vector-ref #{x 18586}# 3))) | |
840cf0d1 AW |
17268 | (vector |
17269 | 'syntax-object | |
b2208d2e AW |
17270 | #{expression 18604}# |
17271 | #{wrap 18605}# | |
17272 | #{module 18606}#)) | |
17273 | (if (null? #{x 18586}#) | |
17274 | #{x 18586}# | |
840cf0d1 AW |
17275 | (vector |
17276 | 'syntax-object | |
b2208d2e AW |
17277 | #{x 18586}# |
17278 | #{w 18579}# | |
17279 | #{mod 18580}#))))) | |
17280 | #{l 18581}#) | |
840cf0d1 | 17281 | #f)) |
b2208d2e | 17282 | (if (null? #{e 18578}#) |
840cf0d1 | 17283 | '() |
b2208d2e AW |
17284 | (if (if (vector? #{e 18578}#) |
17285 | (if (= (vector-length #{e 18578}#) 4) | |
17286 | (eq? (vector-ref #{e 18578}# 0) 'syntax-object) | |
840cf0d1 AW |
17287 | #f) |
17288 | #f) | |
b2208d2e AW |
17289 | (#{match-each-any 17625}# |
17290 | (vector-ref #{e 18578}# 1) | |
17291 | (let ((#{w2 18679}# (vector-ref #{e 18578}# 2))) | |
17292 | (let ((#{m1 18680}# (car #{w 18579}#)) | |
17293 | (#{s1 18681}# (cdr #{w 18579}#))) | |
17294 | (if (null? #{m1 18680}#) | |
17295 | (if (null? #{s1 18681}#) | |
17296 | #{w2 18679}# | |
17297 | (cons (car #{w2 18679}#) | |
17298 | (let ((#{m2 18692}# (cdr #{w2 18679}#))) | |
17299 | (if (null? #{m2 18692}#) | |
17300 | #{s1 18681}# | |
17301 | (append #{s1 18681}# #{m2 18692}#))))) | |
17302 | (cons (let ((#{m2 18700}# (car #{w2 18679}#))) | |
17303 | (if (null? #{m2 18700}#) | |
17304 | #{m1 18680}# | |
17305 | (append #{m1 18680}# #{m2 18700}#))) | |
17306 | (let ((#{m2 18708}# (cdr #{w2 18679}#))) | |
17307 | (if (null? #{m2 18708}#) | |
17308 | #{s1 18681}# | |
17309 | (append #{s1 18681}# #{m2 18708}#))))))) | |
17310 | #{mod 18580}#) | |
840cf0d1 | 17311 | #f))))) |
b2208d2e AW |
17312 | (#{match-empty 17626}# |
17313 | (lambda (#{p 18713}# #{r 18714}#) | |
17314 | (if (null? #{p 18713}#) | |
17315 | #{r 18714}# | |
17316 | (if (eq? #{p 18713}# '_) | |
17317 | #{r 18714}# | |
17318 | (if (eq? #{p 18713}# 'any) | |
17319 | (cons '() #{r 18714}#) | |
17320 | (if (pair? #{p 18713}#) | |
17321 | (#{match-empty 17626}# | |
17322 | (car #{p 18713}#) | |
17323 | (#{match-empty 17626}# | |
17324 | (cdr #{p 18713}#) | |
17325 | #{r 18714}#)) | |
17326 | (if (eq? #{p 18713}# 'each-any) | |
17327 | (cons '() #{r 18714}#) | |
17328 | (let ((#{atom-key 18715}# (vector-ref #{p 18713}# 0))) | |
17329 | (if (eqv? #{atom-key 18715}# 'each) | |
17330 | (#{match-empty 17626}# | |
17331 | (vector-ref #{p 18713}# 1) | |
17332 | #{r 18714}#) | |
17333 | (if (eqv? #{atom-key 18715}# 'each+) | |
17334 | (#{match-empty 17626}# | |
17335 | (vector-ref #{p 18713}# 1) | |
17336 | (#{match-empty 17626}# | |
17337 | (reverse (vector-ref #{p 18713}# 2)) | |
17338 | (#{match-empty 17626}# | |
17339 | (vector-ref #{p 18713}# 3) | |
17340 | #{r 18714}#))) | |
17341 | (if (if (eqv? #{atom-key 18715}# 'free-id) | |
46e372ef | 17342 | #t |
b2208d2e AW |
17343 | (eqv? #{atom-key 18715}# 'atom)) |
17344 | #{r 18714}# | |
17345 | (if (eqv? #{atom-key 18715}# 'vector) | |
17346 | (#{match-empty 17626}# | |
17347 | (vector-ref #{p 18713}# 1) | |
17348 | #{r 18714}#))))))))))))) | |
17349 | (#{combine 17627}# | |
17350 | (lambda (#{r* 18734}# #{r 18735}#) | |
17351 | (if (null? (car #{r* 18734}#)) | |
17352 | #{r 18735}# | |
17353 | (cons (map car #{r* 18734}#) | |
17354 | (#{combine 17627}# | |
17355 | (map cdr #{r* 18734}#) | |
17356 | #{r 18735}#))))) | |
17357 | (#{match* 17628}# | |
17358 | (lambda (#{e 17658}# | |
17359 | #{p 17659}# | |
17360 | #{w 17660}# | |
17361 | #{r 17661}# | |
17362 | #{mod 17662}#) | |
17363 | (if (null? #{p 17659}#) | |
17364 | (if (null? #{e 17658}#) #{r 17661}# #f) | |
17365 | (if (pair? #{p 17659}#) | |
17366 | (if (pair? #{e 17658}#) | |
17367 | (#{match 17629}# | |
17368 | (car #{e 17658}#) | |
17369 | (car #{p 17659}#) | |
17370 | #{w 17660}# | |
17371 | (#{match 17629}# | |
17372 | (cdr #{e 17658}#) | |
17373 | (cdr #{p 17659}#) | |
17374 | #{w 17660}# | |
17375 | #{r 17661}# | |
17376 | #{mod 17662}#) | |
17377 | #{mod 17662}#) | |
840cf0d1 | 17378 | #f) |
b2208d2e AW |
17379 | (if (eq? #{p 17659}# 'each-any) |
17380 | (let ((#{l 17667}# | |
17381 | (#{match-each-any 17625}# | |
17382 | #{e 17658}# | |
17383 | #{w 17660}# | |
17384 | #{mod 17662}#))) | |
17385 | (if #{l 17667}# | |
17386 | (cons #{l 17667}# #{r 17661}#) | |
46e372ef | 17387 | #f)) |
b2208d2e AW |
17388 | (let ((#{atom-key 17672}# (vector-ref #{p 17659}# 0))) |
17389 | (if (eqv? #{atom-key 17672}# 'each) | |
17390 | (if (null? #{e 17658}#) | |
17391 | (#{match-empty 17626}# | |
17392 | (vector-ref #{p 17659}# 1) | |
17393 | #{r 17661}#) | |
17394 | (let ((#{l 17679}# | |
17395 | (#{match-each 17623}# | |
17396 | #{e 17658}# | |
17397 | (vector-ref #{p 17659}# 1) | |
17398 | #{w 17660}# | |
17399 | #{mod 17662}#))) | |
17400 | (if #{l 17679}# | |
840cf0d1 | 17401 | (letrec* |
b2208d2e AW |
17402 | ((#{collect 17682}# |
17403 | (lambda (#{l 17743}#) | |
17404 | (if (null? (car #{l 17743}#)) | |
17405 | #{r 17661}# | |
17406 | (cons (map car #{l 17743}#) | |
17407 | (#{collect 17682}# | |
17408 | (map cdr #{l 17743}#))))))) | |
17409 | (#{collect 17682}# #{l 17679}#)) | |
840cf0d1 | 17410 | #f))) |
b2208d2e | 17411 | (if (eqv? #{atom-key 17672}# 'each+) |
840cf0d1 AW |
17412 | (call-with-values |
17413 | (lambda () | |
b2208d2e AW |
17414 | (let ((#{x-pat 17752}# (vector-ref #{p 17659}# 1)) |
17415 | (#{y-pat 17753}# (vector-ref #{p 17659}# 2)) | |
17416 | (#{z-pat 17754}# (vector-ref #{p 17659}# 3))) | |
46e372ef | 17417 | (letrec* |
b2208d2e AW |
17418 | ((#{f 17758}# |
17419 | (lambda (#{e 17760}# #{w 17761}#) | |
17420 | (if (pair? #{e 17760}#) | |
46e372ef AW |
17421 | (call-with-values |
17422 | (lambda () | |
b2208d2e AW |
17423 | (#{f 17758}# |
17424 | (cdr #{e 17760}#) | |
17425 | #{w 17761}#)) | |
17426 | (lambda (#{xr* 17762}# | |
17427 | #{y-pat 17763}# | |
17428 | #{r 17764}#) | |
17429 | (if #{r 17764}# | |
17430 | (if (null? #{y-pat 17763}#) | |
17431 | (let ((#{xr 17765}# | |
17432 | (#{match 17629}# | |
17433 | (car #{e 17760}#) | |
17434 | #{x-pat 17752}# | |
17435 | #{w 17761}# | |
46e372ef | 17436 | '() |
b2208d2e AW |
17437 | #{mod 17662}#))) |
17438 | (if #{xr 17765}# | |
46e372ef | 17439 | (values |
b2208d2e AW |
17440 | (cons #{xr 17765}# |
17441 | #{xr* 17762}#) | |
17442 | #{y-pat 17763}# | |
17443 | #{r 17764}#) | |
46e372ef AW |
17444 | (values #f #f #f))) |
17445 | (values | |
17446 | '() | |
b2208d2e AW |
17447 | (cdr #{y-pat 17763}#) |
17448 | (#{match 17629}# | |
17449 | (car #{e 17760}#) | |
17450 | (car #{y-pat 17763}#) | |
17451 | #{w 17761}# | |
17452 | #{r 17764}# | |
17453 | #{mod 17662}#))) | |
46e372ef | 17454 | (values #f #f #f)))) |
b2208d2e AW |
17455 | (if (if (vector? #{e 17760}#) |
17456 | (if (= (vector-length #{e 17760}#) | |
46e372ef | 17457 | 4) |
b2208d2e | 17458 | (eq? (vector-ref #{e 17760}# 0) |
46e372ef AW |
17459 | 'syntax-object) |
17460 | #f) | |
17461 | #f) | |
b2208d2e AW |
17462 | (#{f 17758}# |
17463 | (vector-ref #{e 17760}# 1) | |
17464 | (let ((#{m1 17793}# | |
17465 | (car #{w 17761}#)) | |
17466 | (#{s1 17794}# | |
17467 | (cdr #{w 17761}#))) | |
17468 | (if (null? #{m1 17793}#) | |
17469 | (if (null? #{s1 17794}#) | |
17470 | #{e 17760}# | |
17471 | (cons (car #{e 17760}#) | |
17472 | (let ((#{m2 17806}# | |
17473 | (cdr #{e 17760}#))) | |
17474 | (if (null? #{m2 17806}#) | |
17475 | #{s1 17794}# | |
46e372ef | 17476 | (append |
b2208d2e AW |
17477 | #{s1 17794}# |
17478 | #{m2 17806}#))))) | |
17479 | (cons (let ((#{m2 17816}# | |
17480 | (car #{e 17760}#))) | |
17481 | (if (null? #{m2 17816}#) | |
17482 | #{m1 17793}# | |
46e372ef | 17483 | (append |
b2208d2e AW |
17484 | #{m1 17793}# |
17485 | #{m2 17816}#))) | |
17486 | (let ((#{m2 17826}# | |
17487 | (cdr #{e 17760}#))) | |
17488 | (if (null? #{m2 17826}#) | |
17489 | #{s1 17794}# | |
46e372ef | 17490 | (append |
b2208d2e AW |
17491 | #{s1 17794}# |
17492 | #{m2 17826}#))))))) | |
46e372ef AW |
17493 | (values |
17494 | '() | |
b2208d2e AW |
17495 | #{y-pat 17753}# |
17496 | (#{match 17629}# | |
17497 | #{e 17760}# | |
17498 | #{z-pat 17754}# | |
17499 | #{w 17761}# | |
17500 | #{r 17661}# | |
17501 | #{mod 17662}#))))))) | |
17502 | (#{f 17758}# #{e 17658}# #{w 17660}#)))) | |
17503 | (lambda (#{xr* 17836}# #{y-pat 17837}# #{r 17838}#) | |
17504 | (if #{r 17838}# | |
17505 | (if (null? #{y-pat 17837}#) | |
17506 | (if (null? #{xr* 17836}#) | |
17507 | (#{match-empty 17626}# | |
17508 | (vector-ref #{p 17659}# 1) | |
17509 | #{r 17838}#) | |
17510 | (#{combine 17627}# #{xr* 17836}# #{r 17838}#)) | |
840cf0d1 AW |
17511 | #f) |
17512 | #f))) | |
b2208d2e AW |
17513 | (if (eqv? #{atom-key 17672}# 'free-id) |
17514 | (if (if (symbol? #{e 17658}#) | |
840cf0d1 | 17515 | #t |
b2208d2e AW |
17516 | (if (if (vector? #{e 17658}#) |
17517 | (if (= (vector-length #{e 17658}#) 4) | |
17518 | (eq? (vector-ref #{e 17658}# 0) | |
840cf0d1 AW |
17519 | 'syntax-object) |
17520 | #f) | |
17521 | #f) | |
b2208d2e | 17522 | (symbol? (vector-ref #{e 17658}# 1)) |
840cf0d1 | 17523 | #f)) |
b2208d2e AW |
17524 | (if (#{free-id=? 4431}# |
17525 | (if (if (null? (car #{w 17660}#)) | |
17526 | (null? (cdr #{w 17660}#)) | |
840cf0d1 | 17527 | #f) |
b2208d2e AW |
17528 | #{e 17658}# |
17529 | (if (if (vector? #{e 17658}#) | |
17530 | (if (= (vector-length #{e 17658}#) 4) | |
17531 | (eq? (vector-ref #{e 17658}# 0) | |
840cf0d1 AW |
17532 | 'syntax-object) |
17533 | #f) | |
17534 | #f) | |
b2208d2e AW |
17535 | (let ((#{expression 18269}# |
17536 | (vector-ref #{e 17658}# 1)) | |
17537 | (#{wrap 18270}# | |
17538 | (let ((#{w2 18280}# | |
840cf0d1 | 17539 | (vector-ref |
b2208d2e | 17540 | #{e 17658}# |
840cf0d1 | 17541 | 2))) |
b2208d2e AW |
17542 | (let ((#{m1 18281}# |
17543 | (car #{w 17660}#)) | |
17544 | (#{s1 18282}# | |
17545 | (cdr #{w 17660}#))) | |
17546 | (if (null? #{m1 18281}#) | |
17547 | (if (null? #{s1 18282}#) | |
17548 | #{w2 18280}# | |
17549 | (cons (car #{w2 18280}#) | |
17550 | (let ((#{m2 18299}# | |
17551 | (cdr #{w2 18280}#))) | |
17552 | (if (null? #{m2 18299}#) | |
17553 | #{s1 18282}# | |
840cf0d1 | 17554 | (append |
b2208d2e AW |
17555 | #{s1 18282}# |
17556 | #{m2 18299}#))))) | |
17557 | (cons (let ((#{m2 18307}# | |
17558 | (car #{w2 18280}#))) | |
17559 | (if (null? #{m2 18307}#) | |
17560 | #{m1 18281}# | |
840cf0d1 | 17561 | (append |
b2208d2e AW |
17562 | #{m1 18281}# |
17563 | #{m2 18307}#))) | |
17564 | (let ((#{m2 18315}# | |
17565 | (cdr #{w2 18280}#))) | |
17566 | (if (null? #{m2 18315}#) | |
17567 | #{s1 18282}# | |
840cf0d1 | 17568 | (append |
b2208d2e AW |
17569 | #{s1 18282}# |
17570 | #{m2 18315}#)))))))) | |
17571 | (#{module 18271}# | |
17572 | (vector-ref #{e 17658}# 3))) | |
840cf0d1 AW |
17573 | (vector |
17574 | 'syntax-object | |
b2208d2e AW |
17575 | #{expression 18269}# |
17576 | #{wrap 18270}# | |
17577 | #{module 18271}#)) | |
17578 | (if (null? #{e 17658}#) | |
17579 | #{e 17658}# | |
840cf0d1 AW |
17580 | (vector |
17581 | 'syntax-object | |
b2208d2e AW |
17582 | #{e 17658}# |
17583 | #{w 17660}# | |
17584 | #{mod 17662}#)))) | |
17585 | (vector-ref #{p 17659}# 1)) | |
17586 | #{r 17661}# | |
840cf0d1 AW |
17587 | #f) |
17588 | #f) | |
b2208d2e | 17589 | (if (eqv? #{atom-key 17672}# 'atom) |
840cf0d1 | 17590 | (if (equal? |
b2208d2e AW |
17591 | (vector-ref #{p 17659}# 1) |
17592 | (#{strip 4456}# #{e 17658}# #{w 17660}#)) | |
17593 | #{r 17661}# | |
840cf0d1 | 17594 | #f) |
b2208d2e AW |
17595 | (if (eqv? #{atom-key 17672}# 'vector) |
17596 | (if (vector? #{e 17658}#) | |
17597 | (#{match 17629}# | |
17598 | (vector->list #{e 17658}#) | |
17599 | (vector-ref #{p 17659}# 1) | |
17600 | #{w 17660}# | |
17601 | #{r 17661}# | |
17602 | #{mod 17662}#) | |
840cf0d1 | 17603 | #f)))))))))))) |
b2208d2e AW |
17604 | (#{match 17629}# |
17605 | (lambda (#{e 18348}# | |
17606 | #{p 18349}# | |
17607 | #{w 18350}# | |
17608 | #{r 18351}# | |
17609 | #{mod 18352}#) | |
17610 | (if (not #{r 18351}#) | |
840cf0d1 | 17611 | #f |
b2208d2e AW |
17612 | (if (eq? #{p 18349}# '_) |
17613 | #{r 18351}# | |
17614 | (if (eq? #{p 18349}# 'any) | |
17615 | (cons (if (if (null? (car #{w 18350}#)) | |
17616 | (null? (cdr #{w 18350}#)) | |
840cf0d1 | 17617 | #f) |
b2208d2e AW |
17618 | #{e 18348}# |
17619 | (if (if (vector? #{e 18348}#) | |
17620 | (if (= (vector-length #{e 18348}#) 4) | |
17621 | (eq? (vector-ref #{e 18348}# 0) | |
46e372ef | 17622 | 'syntax-object) |
840cf0d1 AW |
17623 | #f) |
17624 | #f) | |
b2208d2e AW |
17625 | (let ((#{expression 18382}# |
17626 | (vector-ref #{e 18348}# 1)) | |
17627 | (#{wrap 18383}# | |
17628 | (let ((#{w2 18393}# | |
17629 | (vector-ref #{e 18348}# 2))) | |
17630 | (let ((#{m1 18394}# (car #{w 18350}#)) | |
17631 | (#{s1 18395}# (cdr #{w 18350}#))) | |
17632 | (if (null? #{m1 18394}#) | |
17633 | (if (null? #{s1 18395}#) | |
17634 | #{w2 18393}# | |
17635 | (cons (car #{w2 18393}#) | |
17636 | (let ((#{m2 18412}# | |
17637 | (cdr #{w2 18393}#))) | |
17638 | (if (null? #{m2 18412}#) | |
17639 | #{s1 18395}# | |
840cf0d1 | 17640 | (append |
b2208d2e AW |
17641 | #{s1 18395}# |
17642 | #{m2 18412}#))))) | |
17643 | (cons (let ((#{m2 18420}# | |
17644 | (car #{w2 18393}#))) | |
17645 | (if (null? #{m2 18420}#) | |
17646 | #{m1 18394}# | |
840cf0d1 | 17647 | (append |
b2208d2e AW |
17648 | #{m1 18394}# |
17649 | #{m2 18420}#))) | |
17650 | (let ((#{m2 18428}# | |
17651 | (cdr #{w2 18393}#))) | |
17652 | (if (null? #{m2 18428}#) | |
17653 | #{s1 18395}# | |
840cf0d1 | 17654 | (append |
b2208d2e AW |
17655 | #{s1 18395}# |
17656 | #{m2 18428}#)))))))) | |
17657 | (#{module 18384}# (vector-ref #{e 18348}# 3))) | |
840cf0d1 AW |
17658 | (vector |
17659 | 'syntax-object | |
b2208d2e AW |
17660 | #{expression 18382}# |
17661 | #{wrap 18383}# | |
17662 | #{module 18384}#)) | |
17663 | (if (null? #{e 18348}#) | |
17664 | #{e 18348}# | |
840cf0d1 AW |
17665 | (vector |
17666 | 'syntax-object | |
b2208d2e AW |
17667 | #{e 18348}# |
17668 | #{w 18350}# | |
17669 | #{mod 18352}#)))) | |
17670 | #{r 18351}#) | |
17671 | (if (if (vector? #{e 18348}#) | |
17672 | (if (= (vector-length #{e 18348}#) 4) | |
17673 | (eq? (vector-ref #{e 18348}# 0) 'syntax-object) | |
840cf0d1 AW |
17674 | #f) |
17675 | #f) | |
b2208d2e AW |
17676 | (#{match* 17628}# |
17677 | (vector-ref #{e 18348}# 1) | |
17678 | #{p 18349}# | |
17679 | (let ((#{w2 18471}# (vector-ref #{e 18348}# 2))) | |
17680 | (let ((#{m1 18472}# (car #{w 18350}#)) | |
17681 | (#{s1 18473}# (cdr #{w 18350}#))) | |
17682 | (if (null? #{m1 18472}#) | |
17683 | (if (null? #{s1 18473}#) | |
17684 | #{w2 18471}# | |
17685 | (cons (car #{w2 18471}#) | |
17686 | (let ((#{m2 18484}# (cdr #{w2 18471}#))) | |
17687 | (if (null? #{m2 18484}#) | |
17688 | #{s1 18473}# | |
17689 | (append #{s1 18473}# #{m2 18484}#))))) | |
17690 | (cons (let ((#{m2 18492}# (car #{w2 18471}#))) | |
17691 | (if (null? #{m2 18492}#) | |
17692 | #{m1 18472}# | |
17693 | (append #{m1 18472}# #{m2 18492}#))) | |
17694 | (let ((#{m2 18500}# (cdr #{w2 18471}#))) | |
17695 | (if (null? #{m2 18500}#) | |
17696 | #{s1 18473}# | |
17697 | (append #{s1 18473}# #{m2 18500}#))))))) | |
17698 | #{r 18351}# | |
17699 | (vector-ref #{e 18348}# 3)) | |
17700 | (#{match* 17628}# | |
17701 | #{e 18348}# | |
17702 | #{p 18349}# | |
17703 | #{w 18350}# | |
17704 | #{r 18351}# | |
17705 | #{mod 18352}#)))))))) | |
840cf0d1 | 17706 | (set! $sc-dispatch |
b2208d2e AW |
17707 | (lambda (#{e 17630}# #{p 17631}#) |
17708 | (if (eq? #{p 17631}# 'any) | |
17709 | (list #{e 17630}#) | |
17710 | (if (eq? #{p 17631}# '_) | |
840cf0d1 | 17711 | '() |
b2208d2e AW |
17712 | (if (if (vector? #{e 17630}#) |
17713 | (if (= (vector-length #{e 17630}#) 4) | |
17714 | (eq? (vector-ref #{e 17630}# 0) 'syntax-object) | |
840cf0d1 AW |
17715 | #f) |
17716 | #f) | |
b2208d2e AW |
17717 | (#{match* 17628}# |
17718 | (vector-ref #{e 17630}# 1) | |
17719 | #{p 17631}# | |
17720 | (vector-ref #{e 17630}# 2) | |
840cf0d1 | 17721 | '() |
b2208d2e AW |
17722 | (vector-ref #{e 17630}# 3)) |
17723 | (#{match* 17628}# | |
17724 | #{e 17630}# | |
17725 | #{p 17631}# | |
840cf0d1 AW |
17726 | '(()) |
17727 | '() | |
17728 | #f))))))))) | |
17729 | ||
17730 | (define with-syntax | |
17731 | (make-syntax-transformer | |
17732 | 'with-syntax | |
17733 | 'macro | |
b2208d2e AW |
17734 | (lambda (#{x 36772}#) |
17735 | (let ((#{tmp 36774}# | |
17736 | ($sc-dispatch #{x 36772}# '(_ () any . each-any)))) | |
17737 | (if #{tmp 36774}# | |
840cf0d1 | 17738 | (@apply |
b2208d2e | 17739 | (lambda (#{e1 36778}# #{e2 36779}#) |
840cf0d1 AW |
17740 | (cons '#(syntax-object |
17741 | let | |
17742 | ((top) | |
17743 | #(ribcage | |
17744 | #(e1 e2) | |
17745 | #((top) (top)) | |
b2208d2e | 17746 | #("i36745" "i36746")) |
840cf0d1 | 17747 | #(ribcage () () ()) |
b2208d2e | 17748 | #(ribcage #(x) #((top)) #("i36742")) |
0f9f51a1 AW |
17749 | #(ribcage |
17750 | (with-syntax) | |
17751 | ((top)) | |
17752 | (((hygiene guile) | |
17753 | . | |
17754 | #(syntax-object | |
17755 | with-syntax | |
17756 | ((top)) | |
17757 | (hygiene guile)))))) | |
840cf0d1 | 17758 | (hygiene guile)) |
b2208d2e AW |
17759 | (cons '() (cons #{e1 36778}# #{e2 36779}#)))) |
17760 | #{tmp 36774}#) | |
17761 | (let ((#{tmp 36780}# | |
840cf0d1 | 17762 | ($sc-dispatch |
b2208d2e | 17763 | #{x 36772}# |
840cf0d1 | 17764 | '(_ ((any any)) any . each-any)))) |
b2208d2e | 17765 | (if #{tmp 36780}# |
840cf0d1 | 17766 | (@apply |
b2208d2e AW |
17767 | (lambda (#{out 36784}# |
17768 | #{in 36785}# | |
17769 | #{e1 36786}# | |
17770 | #{e2 36787}#) | |
840cf0d1 AW |
17771 | (list '#(syntax-object |
17772 | syntax-case | |
17773 | ((top) | |
17774 | #(ribcage | |
17775 | #(out in e1 e2) | |
17776 | #((top) (top) (top) (top)) | |
b2208d2e | 17777 | #("i36751" "i36752" "i36753" "i36754")) |
840cf0d1 | 17778 | #(ribcage () () ()) |
b2208d2e | 17779 | #(ribcage #(x) #((top)) #("i36742")) |
0f9f51a1 AW |
17780 | #(ribcage |
17781 | (with-syntax) | |
17782 | ((top)) | |
17783 | (((hygiene guile) | |
17784 | . | |
17785 | #(syntax-object | |
17786 | with-syntax | |
17787 | ((top)) | |
17788 | (hygiene guile)))))) | |
840cf0d1 | 17789 | (hygiene guile)) |
b2208d2e | 17790 | #{in 36785}# |
840cf0d1 | 17791 | '() |
b2208d2e | 17792 | (list #{out 36784}# |
840cf0d1 AW |
17793 | (cons '#(syntax-object |
17794 | let | |
17795 | ((top) | |
17796 | #(ribcage | |
17797 | #(out in e1 e2) | |
17798 | #((top) (top) (top) (top)) | |
b2208d2e AW |
17799 | #("i36751" |
17800 | "i36752" | |
17801 | "i36753" | |
17802 | "i36754")) | |
840cf0d1 | 17803 | #(ribcage () () ()) |
b2208d2e | 17804 | #(ribcage #(x) #((top)) #("i36742")) |
0f9f51a1 AW |
17805 | #(ribcage |
17806 | (with-syntax) | |
17807 | ((top)) | |
17808 | (((hygiene guile) | |
17809 | . | |
17810 | #(syntax-object | |
17811 | with-syntax | |
17812 | ((top)) | |
17813 | (hygiene guile)))))) | |
840cf0d1 AW |
17814 | (hygiene guile)) |
17815 | (cons '() | |
b2208d2e AW |
17816 | (cons #{e1 36786}# #{e2 36787}#)))))) |
17817 | #{tmp 36780}#) | |
17818 | (let ((#{tmp 36788}# | |
840cf0d1 | 17819 | ($sc-dispatch |
b2208d2e | 17820 | #{x 36772}# |
840cf0d1 | 17821 | '(_ #(each (any any)) any . each-any)))) |
b2208d2e | 17822 | (if #{tmp 36788}# |
840cf0d1 | 17823 | (@apply |
b2208d2e AW |
17824 | (lambda (#{out 36792}# |
17825 | #{in 36793}# | |
17826 | #{e1 36794}# | |
17827 | #{e2 36795}#) | |
840cf0d1 AW |
17828 | (list '#(syntax-object |
17829 | syntax-case | |
0f550375 | 17830 | ((top) |
0f550375 | 17831 | #(ribcage |
840cf0d1 AW |
17832 | #(out in e1 e2) |
17833 | #((top) (top) (top) (top)) | |
b2208d2e | 17834 | #("i36761" "i36762" "i36763" "i36764")) |
0f550375 | 17835 | #(ribcage () () ()) |
b2208d2e | 17836 | #(ribcage #(x) #((top)) #("i36742")) |
0f9f51a1 AW |
17837 | #(ribcage |
17838 | (with-syntax) | |
17839 | ((top)) | |
17840 | (((hygiene guile) | |
17841 | . | |
17842 | #(syntax-object | |
17843 | with-syntax | |
17844 | ((top)) | |
17845 | (hygiene guile)))))) | |
840cf0d1 AW |
17846 | (hygiene guile)) |
17847 | (cons '#(syntax-object | |
17848 | list | |
17849 | ((top) | |
17850 | #(ribcage | |
17851 | #(out in e1 e2) | |
17852 | #((top) (top) (top) (top)) | |
b2208d2e | 17853 | #("i36761" "i36762" "i36763" "i36764")) |
840cf0d1 | 17854 | #(ribcage () () ()) |
b2208d2e | 17855 | #(ribcage #(x) #((top)) #("i36742")) |
0f9f51a1 AW |
17856 | #(ribcage |
17857 | (with-syntax) | |
17858 | ((top)) | |
17859 | (((hygiene guile) | |
17860 | . | |
17861 | #(syntax-object | |
17862 | with-syntax | |
17863 | ((top)) | |
17864 | (hygiene guile)))))) | |
840cf0d1 | 17865 | (hygiene guile)) |
b2208d2e | 17866 | #{in 36793}#) |
840cf0d1 | 17867 | '() |
b2208d2e | 17868 | (list #{out 36792}# |
840cf0d1 AW |
17869 | (cons '#(syntax-object |
17870 | let | |
17871 | ((top) | |
17872 | #(ribcage | |
17873 | #(out in e1 e2) | |
17874 | #((top) (top) (top) (top)) | |
b2208d2e AW |
17875 | #("i36761" |
17876 | "i36762" | |
17877 | "i36763" | |
17878 | "i36764")) | |
840cf0d1 AW |
17879 | #(ribcage () () ()) |
17880 | #(ribcage | |
17881 | #(x) | |
17882 | #((top)) | |
b2208d2e | 17883 | #("i36742")) |
0f9f51a1 AW |
17884 | #(ribcage |
17885 | (with-syntax) | |
17886 | ((top)) | |
17887 | (((hygiene guile) | |
17888 | . | |
17889 | #(syntax-object | |
17890 | with-syntax | |
17891 | ((top)) | |
17892 | (hygiene guile)))))) | |
840cf0d1 AW |
17893 | (hygiene guile)) |
17894 | (cons '() | |
b2208d2e AW |
17895 | (cons #{e1 36794}# |
17896 | #{e2 36795}#)))))) | |
17897 | #{tmp 36788}#) | |
840cf0d1 AW |
17898 | (syntax-violation |
17899 | #f | |
17900 | "source expression failed to match any pattern" | |
b2208d2e | 17901 | #{x 36772}#)))))))))) |
840cf0d1 AW |
17902 | |
17903 | (define syntax-rules | |
17904 | (make-syntax-transformer | |
17905 | 'syntax-rules | |
17906 | 'macro | |
b2208d2e AW |
17907 | (lambda (#{x 36850}#) |
17908 | (let ((#{tmp 36852}# | |
840cf0d1 | 17909 | ($sc-dispatch |
b2208d2e | 17910 | #{x 36850}# |
840cf0d1 | 17911 | '(_ each-any . #(each ((any . any) any)))))) |
b2208d2e | 17912 | (if #{tmp 36852}# |
840cf0d1 | 17913 | (@apply |
b2208d2e AW |
17914 | (lambda (#{k 36856}# |
17915 | #{keyword 36857}# | |
17916 | #{pattern 36858}# | |
17917 | #{template 36859}#) | |
840cf0d1 AW |
17918 | (list '#(syntax-object |
17919 | lambda | |
17920 | ((top) | |
17921 | #(ribcage | |
17922 | #(k keyword pattern template) | |
17923 | #((top) (top) (top) (top)) | |
b2208d2e | 17924 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 17925 | #(ribcage () () ()) |
b2208d2e | 17926 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
17927 | #(ribcage |
17928 | (syntax-rules) | |
17929 | ((top)) | |
17930 | (((hygiene guile) | |
17931 | . | |
17932 | #(syntax-object | |
17933 | syntax-rules | |
17934 | ((top)) | |
17935 | (hygiene guile)))))) | |
840cf0d1 AW |
17936 | (hygiene guile)) |
17937 | '(#(syntax-object | |
17938 | x | |
17939 | ((top) | |
17940 | #(ribcage | |
17941 | #(k keyword pattern template) | |
17942 | #((top) (top) (top) (top)) | |
b2208d2e | 17943 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 17944 | #(ribcage () () ()) |
b2208d2e | 17945 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
17946 | #(ribcage |
17947 | (syntax-rules) | |
17948 | ((top)) | |
17949 | (((hygiene guile) | |
17950 | . | |
17951 | #(syntax-object | |
17952 | syntax-rules | |
17953 | ((top)) | |
17954 | (hygiene guile)))))) | |
840cf0d1 AW |
17955 | (hygiene guile))) |
17956 | (vector | |
17957 | '(#(syntax-object | |
17958 | macro-type | |
17959 | ((top) | |
17960 | #(ribcage | |
17961 | #(k keyword pattern template) | |
17962 | #((top) (top) (top) (top)) | |
b2208d2e | 17963 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 17964 | #(ribcage () () ()) |
b2208d2e | 17965 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
17966 | #(ribcage |
17967 | (syntax-rules) | |
17968 | ((top)) | |
17969 | (((hygiene guile) | |
17970 | . | |
17971 | #(syntax-object | |
17972 | syntax-rules | |
17973 | ((top)) | |
17974 | (hygiene guile)))))) | |
840cf0d1 AW |
17975 | (hygiene guile)) |
17976 | . | |
17977 | #(syntax-object | |
17978 | syntax-rules | |
17979 | ((top) | |
17980 | #(ribcage | |
17981 | #(k keyword pattern template) | |
17982 | #((top) (top) (top) (top)) | |
b2208d2e | 17983 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 17984 | #(ribcage () () ()) |
b2208d2e | 17985 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
17986 | #(ribcage |
17987 | (syntax-rules) | |
17988 | ((top)) | |
17989 | (((hygiene guile) | |
17990 | . | |
17991 | #(syntax-object | |
17992 | syntax-rules | |
17993 | ((top)) | |
17994 | (hygiene guile)))))) | |
840cf0d1 AW |
17995 | (hygiene guile))) |
17996 | (cons '#(syntax-object | |
17997 | patterns | |
17998 | ((top) | |
17999 | #(ribcage | |
18000 | #(k keyword pattern template) | |
18001 | #((top) (top) (top) (top)) | |
b2208d2e | 18002 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 18003 | #(ribcage () () ()) |
b2208d2e | 18004 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18005 | #(ribcage |
18006 | (syntax-rules) | |
18007 | ((top)) | |
18008 | (((hygiene guile) | |
18009 | . | |
18010 | #(syntax-object | |
18011 | syntax-rules | |
18012 | ((top)) | |
18013 | (hygiene guile)))))) | |
840cf0d1 | 18014 | (hygiene guile)) |
b2208d2e | 18015 | #{pattern 36858}#)) |
840cf0d1 AW |
18016 | (cons '#(syntax-object |
18017 | syntax-case | |
18018 | ((top) | |
18019 | #(ribcage | |
18020 | #(k keyword pattern template) | |
18021 | #((top) (top) (top) (top)) | |
b2208d2e | 18022 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 18023 | #(ribcage () () ()) |
b2208d2e | 18024 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18025 | #(ribcage |
18026 | (syntax-rules) | |
18027 | ((top)) | |
18028 | (((hygiene guile) | |
18029 | . | |
18030 | #(syntax-object | |
18031 | syntax-rules | |
18032 | ((top)) | |
18033 | (hygiene guile)))))) | |
840cf0d1 AW |
18034 | (hygiene guile)) |
18035 | (cons '#(syntax-object | |
18036 | x | |
18037 | ((top) | |
18038 | #(ribcage | |
18039 | #(k keyword pattern template) | |
18040 | #((top) (top) (top) (top)) | |
b2208d2e | 18041 | #("i36813" "i36814" "i36815" "i36816")) |
840cf0d1 | 18042 | #(ribcage () () ()) |
b2208d2e | 18043 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18044 | #(ribcage |
18045 | (syntax-rules) | |
18046 | ((top)) | |
18047 | (((hygiene guile) | |
18048 | . | |
18049 | #(syntax-object | |
18050 | syntax-rules | |
18051 | ((top)) | |
18052 | (hygiene guile)))))) | |
840cf0d1 | 18053 | (hygiene guile)) |
b2208d2e AW |
18054 | (cons #{k 36856}# |
18055 | (map (lambda (#{tmp 36824 36860}# | |
18056 | #{tmp 36823 36861}#) | |
840cf0d1 | 18057 | (list (cons '#(syntax-object |
0f9f51a1 | 18058 | _ |
840cf0d1 AW |
18059 | ((top) |
18060 | #(ribcage | |
18061 | #(k | |
18062 | keyword | |
18063 | pattern | |
18064 | template) | |
18065 | #((top) | |
18066 | (top) | |
18067 | (top) | |
18068 | (top)) | |
b2208d2e AW |
18069 | #("i36813" |
18070 | "i36814" | |
18071 | "i36815" | |
18072 | "i36816")) | |
840cf0d1 AW |
18073 | #(ribcage |
18074 | () | |
18075 | () | |
18076 | ()) | |
18077 | #(ribcage | |
18078 | #(x) | |
18079 | #((top)) | |
b2208d2e | 18080 | #("i36810")) |
0f9f51a1 AW |
18081 | #(ribcage |
18082 | (syntax-rules) | |
18083 | ((top)) | |
18084 | (((hygiene | |
18085 | guile) | |
18086 | . | |
18087 | #(syntax-object | |
18088 | syntax-rules | |
18089 | ((top)) | |
18090 | (hygiene | |
18091 | guile)))))) | |
840cf0d1 | 18092 | (hygiene guile)) |
b2208d2e | 18093 | #{tmp 36823 36861}#) |
840cf0d1 AW |
18094 | (list '#(syntax-object |
18095 | syntax | |
18096 | ((top) | |
18097 | #(ribcage | |
18098 | #(k | |
18099 | keyword | |
18100 | pattern | |
18101 | template) | |
18102 | #((top) | |
18103 | (top) | |
18104 | (top) | |
18105 | (top)) | |
b2208d2e AW |
18106 | #("i36813" |
18107 | "i36814" | |
18108 | "i36815" | |
18109 | "i36816")) | |
840cf0d1 AW |
18110 | #(ribcage |
18111 | () | |
18112 | () | |
18113 | ()) | |
18114 | #(ribcage | |
18115 | #(x) | |
18116 | #((top)) | |
b2208d2e | 18117 | #("i36810")) |
0f9f51a1 AW |
18118 | #(ribcage |
18119 | (syntax-rules) | |
18120 | ((top)) | |
18121 | (((hygiene | |
18122 | guile) | |
18123 | . | |
18124 | #(syntax-object | |
18125 | syntax-rules | |
18126 | ((top)) | |
18127 | (hygiene | |
18128 | guile)))))) | |
840cf0d1 | 18129 | (hygiene guile)) |
b2208d2e AW |
18130 | #{tmp 36824 36860}#))) |
18131 | #{template 36859}# | |
18132 | #{pattern 36858}#)))))) | |
18133 | #{tmp 36852}#) | |
18134 | (let ((#{tmp 36862}# | |
840cf0d1 | 18135 | ($sc-dispatch |
b2208d2e | 18136 | #{x 36850}# |
840cf0d1 | 18137 | '(_ each-any any . #(each ((any . any) any)))))) |
b2208d2e | 18138 | (if (if #{tmp 36862}# |
840cf0d1 | 18139 | (@apply |
b2208d2e AW |
18140 | (lambda (#{k 36866}# |
18141 | #{docstring 36867}# | |
18142 | #{keyword 36868}# | |
18143 | #{pattern 36869}# | |
18144 | #{template 36870}#) | |
18145 | (string? (syntax->datum #{docstring 36867}#))) | |
18146 | #{tmp 36862}#) | |
840cf0d1 AW |
18147 | #f) |
18148 | (@apply | |
b2208d2e AW |
18149 | (lambda (#{k 36871}# |
18150 | #{docstring 36872}# | |
18151 | #{keyword 36873}# | |
18152 | #{pattern 36874}# | |
18153 | #{template 36875}#) | |
840cf0d1 AW |
18154 | (list '#(syntax-object |
18155 | lambda | |
18156 | ((top) | |
18157 | #(ribcage | |
18158 | #(k docstring keyword pattern template) | |
18159 | #((top) (top) (top) (top) (top)) | |
b2208d2e | 18160 | #("i36836" "i36837" "i36838" "i36839" "i36840")) |
840cf0d1 | 18161 | #(ribcage () () ()) |
b2208d2e | 18162 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18163 | #(ribcage |
18164 | (syntax-rules) | |
18165 | ((top)) | |
18166 | (((hygiene guile) | |
18167 | . | |
18168 | #(syntax-object | |
18169 | syntax-rules | |
18170 | ((top)) | |
18171 | (hygiene guile)))))) | |
840cf0d1 AW |
18172 | (hygiene guile)) |
18173 | '(#(syntax-object | |
18174 | x | |
18175 | ((top) | |
18176 | #(ribcage | |
18177 | #(k docstring keyword pattern template) | |
18178 | #((top) (top) (top) (top) (top)) | |
b2208d2e | 18179 | #("i36836" "i36837" "i36838" "i36839" "i36840")) |
840cf0d1 | 18180 | #(ribcage () () ()) |
b2208d2e | 18181 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18182 | #(ribcage |
18183 | (syntax-rules) | |
18184 | ((top)) | |
18185 | (((hygiene guile) | |
18186 | . | |
18187 | #(syntax-object | |
18188 | syntax-rules | |
18189 | ((top)) | |
18190 | (hygiene guile)))))) | |
840cf0d1 | 18191 | (hygiene guile))) |
b2208d2e | 18192 | #{docstring 36872}# |
840cf0d1 AW |
18193 | (vector |
18194 | '(#(syntax-object | |
18195 | macro-type | |
18196 | ((top) | |
18197 | #(ribcage | |
18198 | #(k docstring keyword pattern template) | |
18199 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18200 | #("i36836" |
18201 | "i36837" | |
18202 | "i36838" | |
18203 | "i36839" | |
18204 | "i36840")) | |
840cf0d1 | 18205 | #(ribcage () () ()) |
b2208d2e | 18206 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18207 | #(ribcage |
18208 | (syntax-rules) | |
18209 | ((top)) | |
18210 | (((hygiene guile) | |
18211 | . | |
18212 | #(syntax-object | |
18213 | syntax-rules | |
18214 | ((top)) | |
18215 | (hygiene guile)))))) | |
840cf0d1 AW |
18216 | (hygiene guile)) |
18217 | . | |
18218 | #(syntax-object | |
18219 | syntax-rules | |
18220 | ((top) | |
18221 | #(ribcage | |
18222 | #(k docstring keyword pattern template) | |
18223 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18224 | #("i36836" |
18225 | "i36837" | |
18226 | "i36838" | |
18227 | "i36839" | |
18228 | "i36840")) | |
840cf0d1 | 18229 | #(ribcage () () ()) |
b2208d2e | 18230 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18231 | #(ribcage |
18232 | (syntax-rules) | |
18233 | ((top)) | |
18234 | (((hygiene guile) | |
18235 | . | |
18236 | #(syntax-object | |
18237 | syntax-rules | |
18238 | ((top)) | |
18239 | (hygiene guile)))))) | |
840cf0d1 AW |
18240 | (hygiene guile))) |
18241 | (cons '#(syntax-object | |
18242 | patterns | |
18243 | ((top) | |
18244 | #(ribcage | |
18245 | #(k docstring keyword pattern template) | |
18246 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18247 | #("i36836" |
18248 | "i36837" | |
18249 | "i36838" | |
18250 | "i36839" | |
18251 | "i36840")) | |
840cf0d1 | 18252 | #(ribcage () () ()) |
b2208d2e | 18253 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18254 | #(ribcage |
18255 | (syntax-rules) | |
18256 | ((top)) | |
18257 | (((hygiene guile) | |
18258 | . | |
18259 | #(syntax-object | |
18260 | syntax-rules | |
18261 | ((top)) | |
18262 | (hygiene guile)))))) | |
840cf0d1 | 18263 | (hygiene guile)) |
b2208d2e | 18264 | #{pattern 36874}#)) |
840cf0d1 AW |
18265 | (cons '#(syntax-object |
18266 | syntax-case | |
18267 | ((top) | |
18268 | #(ribcage | |
18269 | #(k docstring keyword pattern template) | |
18270 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18271 | #("i36836" |
18272 | "i36837" | |
18273 | "i36838" | |
18274 | "i36839" | |
18275 | "i36840")) | |
840cf0d1 | 18276 | #(ribcage () () ()) |
b2208d2e | 18277 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18278 | #(ribcage |
18279 | (syntax-rules) | |
18280 | ((top)) | |
18281 | (((hygiene guile) | |
18282 | . | |
18283 | #(syntax-object | |
18284 | syntax-rules | |
18285 | ((top)) | |
18286 | (hygiene guile)))))) | |
840cf0d1 AW |
18287 | (hygiene guile)) |
18288 | (cons '#(syntax-object | |
18289 | x | |
417ee098 AW |
18290 | ((top) |
18291 | #(ribcage | |
840cf0d1 AW |
18292 | #(k |
18293 | docstring | |
18294 | keyword | |
18295 | pattern | |
18296 | template) | |
18297 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18298 | #("i36836" |
18299 | "i36837" | |
18300 | "i36838" | |
18301 | "i36839" | |
18302 | "i36840")) | |
417ee098 | 18303 | #(ribcage () () ()) |
b2208d2e | 18304 | #(ribcage #(x) #((top)) #("i36810")) |
0f9f51a1 AW |
18305 | #(ribcage |
18306 | (syntax-rules) | |
18307 | ((top)) | |
18308 | (((hygiene guile) | |
18309 | . | |
18310 | #(syntax-object | |
18311 | syntax-rules | |
18312 | ((top)) | |
18313 | (hygiene guile)))))) | |
840cf0d1 | 18314 | (hygiene guile)) |
b2208d2e AW |
18315 | (cons #{k 36871}# |
18316 | (map (lambda (#{tmp 36849 36876}# | |
18317 | #{tmp 36848 36877}#) | |
840cf0d1 | 18318 | (list (cons '#(syntax-object |
0f9f51a1 | 18319 | _ |
840cf0d1 AW |
18320 | ((top) |
18321 | #(ribcage | |
18322 | #(k | |
18323 | docstring | |
18324 | keyword | |
18325 | pattern | |
18326 | template) | |
18327 | #((top) | |
18328 | (top) | |
18329 | (top) | |
18330 | (top) | |
18331 | (top)) | |
b2208d2e AW |
18332 | #("i36836" |
18333 | "i36837" | |
18334 | "i36838" | |
18335 | "i36839" | |
18336 | "i36840")) | |
840cf0d1 AW |
18337 | #(ribcage |
18338 | () | |
18339 | () | |
18340 | ()) | |
18341 | #(ribcage | |
18342 | #(x) | |
18343 | #((top)) | |
b2208d2e | 18344 | #("i36810")) |
0f9f51a1 AW |
18345 | #(ribcage |
18346 | (syntax-rules) | |
18347 | ((top)) | |
18348 | (((hygiene | |
18349 | guile) | |
18350 | . | |
18351 | #(syntax-object | |
18352 | syntax-rules | |
18353 | ((top)) | |
18354 | (hygiene | |
18355 | guile)))))) | |
840cf0d1 AW |
18356 | (hygiene |
18357 | guile)) | |
b2208d2e | 18358 | #{tmp 36848 36877}#) |
840cf0d1 AW |
18359 | (list '#(syntax-object |
18360 | syntax | |
18361 | ((top) | |
18362 | #(ribcage | |
18363 | #(k | |
18364 | docstring | |
18365 | keyword | |
18366 | pattern | |
18367 | template) | |
18368 | #((top) | |
18369 | (top) | |
18370 | (top) | |
18371 | (top) | |
18372 | (top)) | |
b2208d2e AW |
18373 | #("i36836" |
18374 | "i36837" | |
18375 | "i36838" | |
18376 | "i36839" | |
18377 | "i36840")) | |
840cf0d1 AW |
18378 | #(ribcage |
18379 | () | |
18380 | () | |
18381 | ()) | |
18382 | #(ribcage | |
18383 | #(x) | |
18384 | #((top)) | |
b2208d2e | 18385 | #("i36810")) |
0f9f51a1 AW |
18386 | #(ribcage |
18387 | (syntax-rules) | |
18388 | ((top)) | |
18389 | (((hygiene | |
18390 | guile) | |
18391 | . | |
18392 | #(syntax-object | |
18393 | syntax-rules | |
18394 | ((top)) | |
18395 | (hygiene | |
18396 | guile)))))) | |
840cf0d1 AW |
18397 | (hygiene |
18398 | guile)) | |
b2208d2e AW |
18399 | #{tmp 36849 36876}#))) |
18400 | #{template 36875}# | |
18401 | #{pattern 36874}#)))))) | |
18402 | #{tmp 36862}#) | |
840cf0d1 AW |
18403 | (syntax-violation |
18404 | #f | |
18405 | "source expression failed to match any pattern" | |
b2208d2e | 18406 | #{x 36850}#)))))))) |
840cf0d1 AW |
18407 | |
18408 | (define define-syntax-rule | |
18409 | (make-syntax-transformer | |
18410 | 'define-syntax-rule | |
18411 | 'macro | |
b2208d2e AW |
18412 | (lambda (#{x 36915}#) |
18413 | (let ((#{tmp 36917}# | |
18414 | ($sc-dispatch #{x 36915}# '(_ (any . any) any)))) | |
18415 | (if #{tmp 36917}# | |
840cf0d1 | 18416 | (@apply |
b2208d2e AW |
18417 | (lambda (#{name 36921}# |
18418 | #{pattern 36922}# | |
18419 | #{template 36923}#) | |
840cf0d1 AW |
18420 | (list '#(syntax-object |
18421 | define-syntax | |
18422 | ((top) | |
18423 | #(ribcage | |
18424 | #(name pattern template) | |
18425 | #((top) (top) (top)) | |
b2208d2e | 18426 | #("i36892" "i36893" "i36894")) |
840cf0d1 | 18427 | #(ribcage () () ()) |
b2208d2e | 18428 | #(ribcage #(x) #((top)) #("i36889")) |
0f9f51a1 AW |
18429 | #(ribcage |
18430 | (define-syntax-rule) | |
18431 | ((top)) | |
18432 | (((hygiene guile) | |
18433 | . | |
18434 | #(syntax-object | |
18435 | define-syntax-rule | |
18436 | ((top)) | |
18437 | (hygiene guile)))))) | |
840cf0d1 | 18438 | (hygiene guile)) |
b2208d2e | 18439 | #{name 36921}# |
840cf0d1 AW |
18440 | (list '#(syntax-object |
18441 | syntax-rules | |
18442 | ((top) | |
18443 | #(ribcage | |
18444 | #(name pattern template) | |
18445 | #((top) (top) (top)) | |
b2208d2e | 18446 | #("i36892" "i36893" "i36894")) |
840cf0d1 | 18447 | #(ribcage () () ()) |
b2208d2e | 18448 | #(ribcage #(x) #((top)) #("i36889")) |
0f9f51a1 AW |
18449 | #(ribcage |
18450 | (define-syntax-rule) | |
18451 | ((top)) | |
18452 | (((hygiene guile) | |
18453 | . | |
18454 | #(syntax-object | |
18455 | define-syntax-rule | |
18456 | ((top)) | |
18457 | (hygiene guile)))))) | |
840cf0d1 AW |
18458 | (hygiene guile)) |
18459 | '() | |
18460 | (list (cons '#(syntax-object | |
18461 | _ | |
18462 | ((top) | |
18463 | #(ribcage | |
18464 | #(name pattern template) | |
18465 | #((top) (top) (top)) | |
b2208d2e | 18466 | #("i36892" "i36893" "i36894")) |
840cf0d1 | 18467 | #(ribcage () () ()) |
b2208d2e | 18468 | #(ribcage #(x) #((top)) #("i36889")) |
0f9f51a1 AW |
18469 | #(ribcage |
18470 | (define-syntax-rule) | |
18471 | ((top)) | |
18472 | (((hygiene guile) | |
18473 | . | |
18474 | #(syntax-object | |
18475 | define-syntax-rule | |
18476 | ((top)) | |
18477 | (hygiene guile)))))) | |
840cf0d1 | 18478 | (hygiene guile)) |
b2208d2e AW |
18479 | #{pattern 36922}#) |
18480 | #{template 36923}#)))) | |
18481 | #{tmp 36917}#) | |
18482 | (let ((#{tmp 36924}# | |
840cf0d1 | 18483 | ($sc-dispatch |
b2208d2e | 18484 | #{x 36915}# |
840cf0d1 | 18485 | '(_ (any . any) any any)))) |
b2208d2e | 18486 | (if (if #{tmp 36924}# |
840cf0d1 | 18487 | (@apply |
b2208d2e AW |
18488 | (lambda (#{name 36928}# |
18489 | #{pattern 36929}# | |
18490 | #{docstring 36930}# | |
18491 | #{template 36931}#) | |
18492 | (string? (syntax->datum #{docstring 36930}#))) | |
18493 | #{tmp 36924}#) | |
840cf0d1 AW |
18494 | #f) |
18495 | (@apply | |
b2208d2e AW |
18496 | (lambda (#{name 36932}# |
18497 | #{pattern 36933}# | |
18498 | #{docstring 36934}# | |
18499 | #{template 36935}#) | |
840cf0d1 AW |
18500 | (list '#(syntax-object |
18501 | define-syntax | |
18502 | ((top) | |
18503 | #(ribcage | |
18504 | #(name pattern docstring template) | |
18505 | #((top) (top) (top) (top)) | |
b2208d2e | 18506 | #("i36907" "i36908" "i36909" "i36910")) |
840cf0d1 | 18507 | #(ribcage () () ()) |
b2208d2e | 18508 | #(ribcage #(x) #((top)) #("i36889")) |
0f9f51a1 AW |
18509 | #(ribcage |
18510 | (define-syntax-rule) | |
18511 | ((top)) | |
18512 | (((hygiene guile) | |
18513 | . | |
18514 | #(syntax-object | |
18515 | define-syntax-rule | |
18516 | ((top)) | |
18517 | (hygiene guile)))))) | |
840cf0d1 | 18518 | (hygiene guile)) |
b2208d2e | 18519 | #{name 36932}# |
840cf0d1 AW |
18520 | (list '#(syntax-object |
18521 | syntax-rules | |
18522 | ((top) | |
18523 | #(ribcage | |
18524 | #(name pattern docstring template) | |
18525 | #((top) (top) (top) (top)) | |
b2208d2e | 18526 | #("i36907" "i36908" "i36909" "i36910")) |
840cf0d1 | 18527 | #(ribcage () () ()) |
b2208d2e | 18528 | #(ribcage #(x) #((top)) #("i36889")) |
0f9f51a1 AW |
18529 | #(ribcage |
18530 | (define-syntax-rule) | |
18531 | ((top)) | |
18532 | (((hygiene guile) | |
18533 | . | |
18534 | #(syntax-object | |
18535 | define-syntax-rule | |
18536 | ((top)) | |
18537 | (hygiene guile)))))) | |
840cf0d1 AW |
18538 | (hygiene guile)) |
18539 | '() | |
b2208d2e | 18540 | #{docstring 36934}# |
840cf0d1 AW |
18541 | (list (cons '#(syntax-object |
18542 | _ | |
18543 | ((top) | |
18544 | #(ribcage | |
18545 | #(name | |
18546 | pattern | |
18547 | docstring | |
18548 | template) | |
18549 | #((top) (top) (top) (top)) | |
b2208d2e AW |
18550 | #("i36907" |
18551 | "i36908" | |
18552 | "i36909" | |
18553 | "i36910")) | |
840cf0d1 AW |
18554 | #(ribcage () () ()) |
18555 | #(ribcage | |
18556 | #(x) | |
18557 | #((top)) | |
b2208d2e | 18558 | #("i36889")) |
0f9f51a1 AW |
18559 | #(ribcage |
18560 | (define-syntax-rule) | |
18561 | ((top)) | |
18562 | (((hygiene guile) | |
18563 | . | |
18564 | #(syntax-object | |
18565 | define-syntax-rule | |
18566 | ((top)) | |
18567 | (hygiene guile)))))) | |
840cf0d1 | 18568 | (hygiene guile)) |
b2208d2e AW |
18569 | #{pattern 36933}#) |
18570 | #{template 36935}#)))) | |
18571 | #{tmp 36924}#) | |
840cf0d1 AW |
18572 | (syntax-violation |
18573 | #f | |
18574 | "source expression failed to match any pattern" | |
b2208d2e | 18575 | #{x 36915}#)))))))) |
840cf0d1 AW |
18576 | |
18577 | (define let* | |
18578 | (make-syntax-transformer | |
18579 | 'let* | |
18580 | 'macro | |
b2208d2e AW |
18581 | (lambda (#{x 36985}#) |
18582 | (let ((#{tmp 36987}# | |
840cf0d1 | 18583 | ($sc-dispatch |
b2208d2e | 18584 | #{x 36985}# |
840cf0d1 | 18585 | '(any #(each (any any)) any . each-any)))) |
b2208d2e | 18586 | (if (if #{tmp 36987}# |
840cf0d1 | 18587 | (@apply |
b2208d2e AW |
18588 | (lambda (#{let* 36991}# |
18589 | #{x 36992}# | |
18590 | #{v 36993}# | |
18591 | #{e1 36994}# | |
18592 | #{e2 36995}#) | |
18593 | (and-map identifier? #{x 36992}#)) | |
18594 | #{tmp 36987}#) | |
840cf0d1 AW |
18595 | #f) |
18596 | (@apply | |
b2208d2e AW |
18597 | (lambda (#{let* 36996}# |
18598 | #{x 36997}# | |
18599 | #{v 36998}# | |
18600 | #{e1 36999}# | |
18601 | #{e2 37000}#) | |
840cf0d1 | 18602 | (letrec* |
b2208d2e AW |
18603 | ((#{f 37001}# |
18604 | (lambda (#{bindings 37004}#) | |
18605 | (if (null? #{bindings 37004}#) | |
840cf0d1 AW |
18606 | (cons '#(syntax-object |
18607 | let | |
18608 | ((top) | |
18609 | #(ribcage () () ()) | |
18610 | #(ribcage | |
18611 | #(f bindings) | |
18612 | #((top) (top)) | |
b2208d2e | 18613 | #("i36971" "i36972")) |
840cf0d1 AW |
18614 | #(ribcage |
18615 | #(let* x v e1 e2) | |
18616 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18617 | #("i36961" |
18618 | "i36962" | |
18619 | "i36963" | |
18620 | "i36964" | |
18621 | "i36965")) | |
840cf0d1 | 18622 | #(ribcage () () ()) |
b2208d2e | 18623 | #(ribcage #(x) #((top)) #("i36947")) |
0f9f51a1 AW |
18624 | #(ribcage |
18625 | (let*) | |
18626 | ((top)) | |
18627 | (((hygiene guile) | |
18628 | . | |
18629 | #(syntax-object | |
18630 | let* | |
18631 | ((top)) | |
18632 | (hygiene guile)))))) | |
840cf0d1 | 18633 | (hygiene guile)) |
b2208d2e AW |
18634 | (cons '() (cons #{e1 36999}# #{e2 37000}#))) |
18635 | (let ((#{tmp 37005}# | |
18636 | (list (#{f 37001}# (cdr #{bindings 37004}#)) | |
18637 | (car #{bindings 37004}#)))) | |
18638 | (let ((#{tmp 37006}# | |
18639 | ($sc-dispatch #{tmp 37005}# '(any any)))) | |
18640 | (if #{tmp 37006}# | |
840cf0d1 | 18641 | (@apply |
b2208d2e | 18642 | (lambda (#{body 37008}# #{binding 37009}#) |
840cf0d1 AW |
18643 | (list '#(syntax-object |
18644 | let | |
0f550375 | 18645 | ((top) |
840cf0d1 AW |
18646 | #(ribcage () () ()) |
18647 | #(ribcage | |
18648 | #(body binding) | |
18649 | #((top) (top)) | |
b2208d2e | 18650 | #("i36981" "i36982")) |
840cf0d1 AW |
18651 | #(ribcage () () ()) |
18652 | #(ribcage | |
18653 | #(f bindings) | |
18654 | #((top) (top)) | |
b2208d2e | 18655 | #("i36971" "i36972")) |
840cf0d1 AW |
18656 | #(ribcage |
18657 | #(let* x v e1 e2) | |
18658 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
18659 | #("i36961" |
18660 | "i36962" | |
18661 | "i36963" | |
18662 | "i36964" | |
18663 | "i36965")) | |
840cf0d1 | 18664 | #(ribcage () () ()) |
b2208d2e | 18665 | #(ribcage #(x) #((top)) #("i36947")) |
840cf0d1 | 18666 | #(ribcage |
0f9f51a1 AW |
18667 | (let*) |
18668 | ((top)) | |
18669 | (((hygiene guile) | |
18670 | . | |
18671 | #(syntax-object | |
18672 | let* | |
18673 | ((top)) | |
18674 | (hygiene guile)))))) | |
840cf0d1 | 18675 | (hygiene guile)) |
b2208d2e AW |
18676 | (list #{binding 37009}#) |
18677 | #{body 37008}#)) | |
18678 | #{tmp 37006}#) | |
840cf0d1 AW |
18679 | (syntax-violation |
18680 | #f | |
18681 | "source expression failed to match any pattern" | |
b2208d2e AW |
18682 | #{tmp 37005}#)))))))) |
18683 | (#{f 37001}# (map list #{x 36997}# #{v 36998}#)))) | |
18684 | #{tmp 36987}#) | |
840cf0d1 AW |
18685 | (syntax-violation |
18686 | #f | |
18687 | "source expression failed to match any pattern" | |
b2208d2e | 18688 | #{x 36985}#)))))) |
840cf0d1 AW |
18689 | |
18690 | (define do | |
18691 | (make-syntax-transformer | |
18692 | 'do | |
18693 | 'macro | |
b2208d2e AW |
18694 | (lambda (#{orig-x 37068}#) |
18695 | (let ((#{tmp 37070}# | |
840cf0d1 | 18696 | ($sc-dispatch |
b2208d2e | 18697 | #{orig-x 37068}# |
840cf0d1 AW |
18698 | '(_ #(each (any any . any)) |
18699 | (any . each-any) | |
18700 | . | |
18701 | each-any)))) | |
b2208d2e | 18702 | (if #{tmp 37070}# |
840cf0d1 | 18703 | (@apply |
b2208d2e AW |
18704 | (lambda (#{var 37074}# |
18705 | #{init 37075}# | |
18706 | #{step 37076}# | |
18707 | #{e0 37077}# | |
18708 | #{e1 37078}# | |
18709 | #{c 37079}#) | |
18710 | (let ((#{tmp 37080}# | |
18711 | (map (lambda (#{v 37083}# #{s 37084}#) | |
18712 | (let ((#{tmp 37086}# | |
18713 | ($sc-dispatch #{s 37084}# '()))) | |
18714 | (if #{tmp 37086}# | |
18715 | (@apply (lambda () #{v 37083}#) #{tmp 37086}#) | |
18716 | (let ((#{tmp 37089}# | |
18717 | ($sc-dispatch #{s 37084}# '(any)))) | |
18718 | (if #{tmp 37089}# | |
840cf0d1 | 18719 | (@apply |
b2208d2e AW |
18720 | (lambda (#{e 37092}#) #{e 37092}#) |
18721 | #{tmp 37089}#) | |
840cf0d1 AW |
18722 | (syntax-violation |
18723 | 'do | |
18724 | "bad step expression" | |
b2208d2e AW |
18725 | #{orig-x 37068}# |
18726 | #{s 37084}#)))))) | |
18727 | #{var 37074}# | |
18728 | #{step 37076}#))) | |
18729 | (let ((#{tmp 37081}# | |
18730 | ($sc-dispatch #{tmp 37080}# 'each-any))) | |
18731 | (if #{tmp 37081}# | |
840cf0d1 | 18732 | (@apply |
b2208d2e AW |
18733 | (lambda (#{step 37098}#) |
18734 | (let ((#{tmp 37100}# ($sc-dispatch #{e1 37078}# '()))) | |
18735 | (if #{tmp 37100}# | |
840cf0d1 AW |
18736 | (@apply |
18737 | (lambda () | |
18738 | (list '#(syntax-object | |
18739 | let | |
0f550375 | 18740 | ((top) |
0f550375 AW |
18741 | #(ribcage () () ()) |
18742 | #(ribcage | |
840cf0d1 AW |
18743 | #(step) |
18744 | #((top)) | |
b2208d2e | 18745 | #("i37036")) |
0f550375 | 18746 | #(ribcage |
840cf0d1 AW |
18747 | #(var init step e0 e1 c) |
18748 | #((top) | |
18749 | (top) | |
18750 | (top) | |
18751 | (top) | |
18752 | (top) | |
18753 | (top)) | |
b2208d2e AW |
18754 | #("i37021" |
18755 | "i37022" | |
18756 | "i37023" | |
18757 | "i37024" | |
18758 | "i37025" | |
18759 | "i37026")) | |
840cf0d1 AW |
18760 | #(ribcage () () ()) |
18761 | #(ribcage | |
18762 | #(orig-x) | |
18763 | #((top)) | |
b2208d2e | 18764 | #("i37018")) |
0f9f51a1 AW |
18765 | #(ribcage |
18766 | (do) | |
18767 | ((top)) | |
18768 | (((hygiene guile) | |
18769 | . | |
18770 | #(syntax-object | |
18771 | do | |
18772 | ((top)) | |
18773 | (hygiene guile)))))) | |
0f550375 | 18774 | (hygiene guile)) |
840cf0d1 AW |
18775 | '#(syntax-object |
18776 | doloop | |
0f550375 | 18777 | ((top) |
0f550375 AW |
18778 | #(ribcage () () ()) |
18779 | #(ribcage | |
840cf0d1 AW |
18780 | #(step) |
18781 | #((top)) | |
b2208d2e | 18782 | #("i37036")) |
0f550375 | 18783 | #(ribcage |
840cf0d1 AW |
18784 | #(var init step e0 e1 c) |
18785 | #((top) | |
18786 | (top) | |
18787 | (top) | |
18788 | (top) | |
18789 | (top) | |
18790 | (top)) | |
b2208d2e AW |
18791 | #("i37021" |
18792 | "i37022" | |
18793 | "i37023" | |
18794 | "i37024" | |
18795 | "i37025" | |
18796 | "i37026")) | |
840cf0d1 AW |
18797 | #(ribcage () () ()) |
18798 | #(ribcage | |
18799 | #(orig-x) | |
18800 | #((top)) | |
b2208d2e | 18801 | #("i37018")) |
0f9f51a1 AW |
18802 | #(ribcage |
18803 | (do) | |
18804 | ((top)) | |
18805 | (((hygiene guile) | |
18806 | . | |
18807 | #(syntax-object | |
18808 | do | |
18809 | ((top)) | |
18810 | (hygiene guile)))))) | |
840cf0d1 | 18811 | (hygiene guile)) |
b2208d2e | 18812 | (map list #{var 37074}# #{init 37075}#) |
840cf0d1 AW |
18813 | (list '#(syntax-object |
18814 | if | |
18815 | ((top) | |
18816 | #(ribcage () () ()) | |
18817 | #(ribcage | |
18818 | #(step) | |
18819 | #((top)) | |
b2208d2e | 18820 | #("i37036")) |
840cf0d1 AW |
18821 | #(ribcage |
18822 | #(var init step e0 e1 c) | |
18823 | #((top) | |
18824 | (top) | |
18825 | (top) | |
18826 | (top) | |
18827 | (top) | |
18828 | (top)) | |
b2208d2e AW |
18829 | #("i37021" |
18830 | "i37022" | |
18831 | "i37023" | |
18832 | "i37024" | |
18833 | "i37025" | |
18834 | "i37026")) | |
840cf0d1 AW |
18835 | #(ribcage () () ()) |
18836 | #(ribcage | |
18837 | #(orig-x) | |
18838 | #((top)) | |
b2208d2e | 18839 | #("i37018")) |
0f9f51a1 AW |
18840 | #(ribcage |
18841 | (do) | |
18842 | ((top)) | |
18843 | (((hygiene guile) | |
18844 | . | |
18845 | #(syntax-object | |
18846 | do | |
18847 | ((top)) | |
18848 | (hygiene guile)))))) | |
840cf0d1 AW |
18849 | (hygiene guile)) |
18850 | (list '#(syntax-object | |
18851 | not | |
18852 | ((top) | |
18853 | #(ribcage () () ()) | |
18854 | #(ribcage | |
18855 | #(step) | |
18856 | #((top)) | |
b2208d2e | 18857 | #("i37036")) |
840cf0d1 AW |
18858 | #(ribcage |
18859 | #(var | |
18860 | init | |
18861 | step | |
18862 | e0 | |
18863 | e1 | |
18864 | c) | |
18865 | #((top) | |
18866 | (top) | |
18867 | (top) | |
18868 | (top) | |
18869 | (top) | |
18870 | (top)) | |
b2208d2e AW |
18871 | #("i37021" |
18872 | "i37022" | |
18873 | "i37023" | |
18874 | "i37024" | |
18875 | "i37025" | |
18876 | "i37026")) | |
840cf0d1 AW |
18877 | #(ribcage () () ()) |
18878 | #(ribcage | |
18879 | #(orig-x) | |
18880 | #((top)) | |
b2208d2e | 18881 | #("i37018")) |
0f9f51a1 AW |
18882 | #(ribcage |
18883 | (do) | |
18884 | ((top)) | |
18885 | (((hygiene guile) | |
18886 | . | |
18887 | #(syntax-object | |
18888 | do | |
18889 | ((top)) | |
18890 | (hygiene | |
18891 | guile)))))) | |
840cf0d1 | 18892 | (hygiene guile)) |
b2208d2e | 18893 | #{e0 37077}#) |
840cf0d1 AW |
18894 | (cons '#(syntax-object |
18895 | begin | |
18896 | ((top) | |
18897 | #(ribcage () () ()) | |
18898 | #(ribcage | |
18899 | #(step) | |
18900 | #((top)) | |
b2208d2e | 18901 | #("i37036")) |
840cf0d1 AW |
18902 | #(ribcage |
18903 | #(var | |
18904 | init | |
18905 | step | |
18906 | e0 | |
18907 | e1 | |
18908 | c) | |
18909 | #((top) | |
18910 | (top) | |
18911 | (top) | |
18912 | (top) | |
18913 | (top) | |
18914 | (top)) | |
b2208d2e AW |
18915 | #("i37021" |
18916 | "i37022" | |
18917 | "i37023" | |
18918 | "i37024" | |
18919 | "i37025" | |
18920 | "i37026")) | |
840cf0d1 AW |
18921 | #(ribcage () () ()) |
18922 | #(ribcage | |
18923 | #(orig-x) | |
18924 | #((top)) | |
b2208d2e | 18925 | #("i37018")) |
0f9f51a1 AW |
18926 | #(ribcage |
18927 | (do) | |
18928 | ((top)) | |
18929 | (((hygiene guile) | |
18930 | . | |
18931 | #(syntax-object | |
18932 | do | |
18933 | ((top)) | |
18934 | (hygiene | |
18935 | guile)))))) | |
840cf0d1 AW |
18936 | (hygiene guile)) |
18937 | (append | |
b2208d2e | 18938 | #{c 37079}# |
840cf0d1 AW |
18939 | (list (cons '#(syntax-object |
18940 | doloop | |
18941 | ((top) | |
18942 | #(ribcage | |
18943 | () | |
18944 | () | |
18945 | ()) | |
18946 | #(ribcage | |
18947 | #(step) | |
18948 | #((top)) | |
b2208d2e | 18949 | #("i37036")) |
840cf0d1 AW |
18950 | #(ribcage |
18951 | #(var | |
18952 | init | |
18953 | step | |
18954 | e0 | |
18955 | e1 | |
18956 | c) | |
18957 | #((top) | |
18958 | (top) | |
18959 | (top) | |
18960 | (top) | |
18961 | (top) | |
18962 | (top)) | |
b2208d2e AW |
18963 | #("i37021" |
18964 | "i37022" | |
18965 | "i37023" | |
18966 | "i37024" | |
18967 | "i37025" | |
18968 | "i37026")) | |
840cf0d1 AW |
18969 | #(ribcage |
18970 | () | |
18971 | () | |
18972 | ()) | |
18973 | #(ribcage | |
18974 | #(orig-x) | |
18975 | #((top)) | |
b2208d2e | 18976 | #("i37018")) |
0f9f51a1 AW |
18977 | #(ribcage |
18978 | (do) | |
18979 | ((top)) | |
18980 | (((hygiene | |
18981 | guile) | |
18982 | . | |
18983 | #(syntax-object | |
18984 | do | |
18985 | ((top)) | |
18986 | (hygiene | |
18987 | guile)))))) | |
840cf0d1 AW |
18988 | (hygiene |
18989 | guile)) | |
b2208d2e AW |
18990 | #{step 37098}#))))))) |
18991 | #{tmp 37100}#) | |
18992 | (let ((#{tmp 37104}# | |
840cf0d1 | 18993 | ($sc-dispatch |
b2208d2e | 18994 | #{e1 37078}# |
840cf0d1 | 18995 | '(any . each-any)))) |
b2208d2e | 18996 | (if #{tmp 37104}# |
840cf0d1 | 18997 | (@apply |
b2208d2e | 18998 | (lambda (#{e1 37108}# #{e2 37109}#) |
840cf0d1 AW |
18999 | (list '#(syntax-object |
19000 | let | |
19001 | ((top) | |
19002 | #(ribcage | |
19003 | #(e1 e2) | |
19004 | #((top) (top)) | |
b2208d2e | 19005 | #("i37045" "i37046")) |
840cf0d1 AW |
19006 | #(ribcage () () ()) |
19007 | #(ribcage | |
19008 | #(step) | |
19009 | #((top)) | |
b2208d2e | 19010 | #("i37036")) |
840cf0d1 AW |
19011 | #(ribcage |
19012 | #(var init step e0 e1 c) | |
19013 | #((top) | |
19014 | (top) | |
19015 | (top) | |
19016 | (top) | |
19017 | (top) | |
19018 | (top)) | |
b2208d2e AW |
19019 | #("i37021" |
19020 | "i37022" | |
19021 | "i37023" | |
19022 | "i37024" | |
19023 | "i37025" | |
19024 | "i37026")) | |
840cf0d1 AW |
19025 | #(ribcage () () ()) |
19026 | #(ribcage | |
19027 | #(orig-x) | |
19028 | #((top)) | |
b2208d2e | 19029 | #("i37018")) |
0f9f51a1 AW |
19030 | #(ribcage |
19031 | (do) | |
19032 | ((top)) | |
19033 | (((hygiene guile) | |
19034 | . | |
19035 | #(syntax-object | |
19036 | do | |
19037 | ((top)) | |
19038 | (hygiene guile)))))) | |
840cf0d1 AW |
19039 | (hygiene guile)) |
19040 | '#(syntax-object | |
19041 | doloop | |
19042 | ((top) | |
19043 | #(ribcage | |
19044 | #(e1 e2) | |
19045 | #((top) (top)) | |
b2208d2e | 19046 | #("i37045" "i37046")) |
840cf0d1 AW |
19047 | #(ribcage () () ()) |
19048 | #(ribcage | |
19049 | #(step) | |
19050 | #((top)) | |
b2208d2e | 19051 | #("i37036")) |
840cf0d1 AW |
19052 | #(ribcage |
19053 | #(var init step e0 e1 c) | |
19054 | #((top) | |
19055 | (top) | |
19056 | (top) | |
19057 | (top) | |
19058 | (top) | |
19059 | (top)) | |
b2208d2e AW |
19060 | #("i37021" |
19061 | "i37022" | |
19062 | "i37023" | |
19063 | "i37024" | |
19064 | "i37025" | |
19065 | "i37026")) | |
840cf0d1 AW |
19066 | #(ribcage () () ()) |
19067 | #(ribcage | |
19068 | #(orig-x) | |
19069 | #((top)) | |
b2208d2e | 19070 | #("i37018")) |
0f9f51a1 AW |
19071 | #(ribcage |
19072 | (do) | |
19073 | ((top)) | |
19074 | (((hygiene guile) | |
19075 | . | |
19076 | #(syntax-object | |
19077 | do | |
19078 | ((top)) | |
19079 | (hygiene guile)))))) | |
840cf0d1 AW |
19080 | (hygiene guile)) |
19081 | (map list | |
b2208d2e AW |
19082 | #{var 37074}# |
19083 | #{init 37075}#) | |
840cf0d1 AW |
19084 | (list '#(syntax-object |
19085 | if | |
19086 | ((top) | |
19087 | #(ribcage | |
19088 | #(e1 e2) | |
19089 | #((top) (top)) | |
b2208d2e | 19090 | #("i37045" "i37046")) |
840cf0d1 AW |
19091 | #(ribcage () () ()) |
19092 | #(ribcage | |
19093 | #(step) | |
19094 | #((top)) | |
b2208d2e | 19095 | #("i37036")) |
840cf0d1 AW |
19096 | #(ribcage |
19097 | #(var init step e0 e1 c) | |
19098 | #((top) | |
19099 | (top) | |
19100 | (top) | |
19101 | (top) | |
19102 | (top) | |
19103 | (top)) | |
b2208d2e AW |
19104 | #("i37021" |
19105 | "i37022" | |
19106 | "i37023" | |
19107 | "i37024" | |
19108 | "i37025" | |
19109 | "i37026")) | |
840cf0d1 AW |
19110 | #(ribcage () () ()) |
19111 | #(ribcage | |
19112 | #(orig-x) | |
19113 | #((top)) | |
b2208d2e | 19114 | #("i37018")) |
0f9f51a1 AW |
19115 | #(ribcage |
19116 | (do) | |
19117 | ((top)) | |
19118 | (((hygiene guile) | |
19119 | . | |
19120 | #(syntax-object | |
19121 | do | |
19122 | ((top)) | |
19123 | (hygiene guile)))))) | |
840cf0d1 | 19124 | (hygiene guile)) |
b2208d2e | 19125 | #{e0 37077}# |
840cf0d1 AW |
19126 | (cons '#(syntax-object |
19127 | begin | |
19128 | ((top) | |
19129 | #(ribcage | |
19130 | #(e1 e2) | |
19131 | #((top) (top)) | |
b2208d2e AW |
19132 | #("i37045" |
19133 | "i37046")) | |
840cf0d1 AW |
19134 | #(ribcage () () ()) |
19135 | #(ribcage | |
19136 | #(step) | |
19137 | #((top)) | |
b2208d2e | 19138 | #("i37036")) |
840cf0d1 AW |
19139 | #(ribcage |
19140 | #(var | |
19141 | init | |
19142 | step | |
19143 | e0 | |
19144 | e1 | |
19145 | c) | |
19146 | #((top) | |
19147 | (top) | |
19148 | (top) | |
19149 | (top) | |
19150 | (top) | |
19151 | (top)) | |
b2208d2e AW |
19152 | #("i37021" |
19153 | "i37022" | |
19154 | "i37023" | |
19155 | "i37024" | |
19156 | "i37025" | |
19157 | "i37026")) | |
840cf0d1 AW |
19158 | #(ribcage () () ()) |
19159 | #(ribcage | |
19160 | #(orig-x) | |
19161 | #((top)) | |
b2208d2e | 19162 | #("i37018")) |
0f9f51a1 AW |
19163 | #(ribcage |
19164 | (do) | |
19165 | ((top)) | |
19166 | (((hygiene guile) | |
19167 | . | |
19168 | #(syntax-object | |
19169 | do | |
19170 | ((top)) | |
19171 | (hygiene | |
19172 | guile)))))) | |
840cf0d1 | 19173 | (hygiene guile)) |
b2208d2e AW |
19174 | (cons #{e1 37108}# |
19175 | #{e2 37109}#)) | |
840cf0d1 AW |
19176 | (cons '#(syntax-object |
19177 | begin | |
19178 | ((top) | |
19179 | #(ribcage | |
19180 | #(e1 e2) | |
19181 | #((top) (top)) | |
b2208d2e AW |
19182 | #("i37045" |
19183 | "i37046")) | |
840cf0d1 AW |
19184 | #(ribcage () () ()) |
19185 | #(ribcage | |
19186 | #(step) | |
19187 | #((top)) | |
b2208d2e | 19188 | #("i37036")) |
840cf0d1 AW |
19189 | #(ribcage |
19190 | #(var | |
19191 | init | |
19192 | step | |
19193 | e0 | |
19194 | e1 | |
19195 | c) | |
19196 | #((top) | |
19197 | (top) | |
19198 | (top) | |
19199 | (top) | |
19200 | (top) | |
19201 | (top)) | |
b2208d2e AW |
19202 | #("i37021" |
19203 | "i37022" | |
19204 | "i37023" | |
19205 | "i37024" | |
19206 | "i37025" | |
19207 | "i37026")) | |
840cf0d1 AW |
19208 | #(ribcage () () ()) |
19209 | #(ribcage | |
19210 | #(orig-x) | |
19211 | #((top)) | |
b2208d2e | 19212 | #("i37018")) |
0f9f51a1 AW |
19213 | #(ribcage |
19214 | (do) | |
19215 | ((top)) | |
19216 | (((hygiene guile) | |
19217 | . | |
19218 | #(syntax-object | |
19219 | do | |
19220 | ((top)) | |
19221 | (hygiene | |
19222 | guile)))))) | |
840cf0d1 AW |
19223 | (hygiene guile)) |
19224 | (append | |
b2208d2e | 19225 | #{c 37079}# |
840cf0d1 AW |
19226 | (list (cons '#(syntax-object |
19227 | doloop | |
19228 | ((top) | |
19229 | #(ribcage | |
19230 | #(e1 | |
19231 | e2) | |
19232 | #((top) | |
19233 | (top)) | |
b2208d2e AW |
19234 | #("i37045" |
19235 | "i37046")) | |
840cf0d1 AW |
19236 | #(ribcage |
19237 | () | |
19238 | () | |
19239 | ()) | |
19240 | #(ribcage | |
19241 | #(step) | |
19242 | #((top)) | |
b2208d2e | 19243 | #("i37036")) |
840cf0d1 AW |
19244 | #(ribcage |
19245 | #(var | |
19246 | init | |
19247 | step | |
19248 | e0 | |
19249 | e1 | |
19250 | c) | |
19251 | #((top) | |
19252 | (top) | |
19253 | (top) | |
19254 | (top) | |
19255 | (top) | |
19256 | (top)) | |
b2208d2e AW |
19257 | #("i37021" |
19258 | "i37022" | |
19259 | "i37023" | |
19260 | "i37024" | |
19261 | "i37025" | |
19262 | "i37026")) | |
840cf0d1 AW |
19263 | #(ribcage |
19264 | () | |
19265 | () | |
19266 | ()) | |
19267 | #(ribcage | |
19268 | #(orig-x) | |
19269 | #((top)) | |
b2208d2e | 19270 | #("i37018")) |
0f9f51a1 AW |
19271 | #(ribcage |
19272 | (do) | |
19273 | ((top)) | |
19274 | (((hygiene | |
19275 | guile) | |
19276 | . | |
19277 | #(syntax-object | |
19278 | do | |
19279 | ((top)) | |
19280 | (hygiene | |
19281 | guile)))))) | |
840cf0d1 AW |
19282 | (hygiene |
19283 | guile)) | |
b2208d2e AW |
19284 | #{step 37098}#))))))) |
19285 | #{tmp 37104}#) | |
840cf0d1 AW |
19286 | (syntax-violation |
19287 | #f | |
19288 | "source expression failed to match any pattern" | |
b2208d2e AW |
19289 | #{e1 37078}#)))))) |
19290 | #{tmp 37081}#) | |
840cf0d1 AW |
19291 | (syntax-violation |
19292 | #f | |
19293 | "source expression failed to match any pattern" | |
b2208d2e AW |
19294 | #{tmp 37080}#))))) |
19295 | #{tmp 37070}#) | |
840cf0d1 AW |
19296 | (syntax-violation |
19297 | #f | |
19298 | "source expression failed to match any pattern" | |
b2208d2e | 19299 | #{orig-x 37068}#)))))) |
840cf0d1 AW |
19300 | |
19301 | (define quasiquote | |
19302 | (make-syntax-transformer | |
19303 | 'quasiquote | |
19304 | 'macro | |
19305 | (letrec* | |
b2208d2e AW |
19306 | ((#{quasi 37396}# |
19307 | (lambda (#{p 37420}# #{lev 37421}#) | |
19308 | (let ((#{tmp 37423}# | |
840cf0d1 | 19309 | ($sc-dispatch |
b2208d2e | 19310 | #{p 37420}# |
840cf0d1 AW |
19311 | '(#(free-id |
19312 | #(syntax-object | |
19313 | unquote | |
19314 | ((top) | |
19315 | #(ribcage () () ()) | |
19316 | #(ribcage | |
19317 | #(p lev) | |
19318 | #((top) (top)) | |
b2208d2e | 19319 | #("i37142" "i37143")) |
840cf0d1 AW |
19320 | #(ribcage |
19321 | (emit quasivector | |
19322 | quasilist* | |
19323 | quasiappend | |
19324 | quasicons | |
19325 | vquasi | |
19326 | quasi) | |
19327 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19328 | ("i37138" |
19329 | "i37136" | |
19330 | "i37134" | |
19331 | "i37132" | |
19332 | "i37130" | |
19333 | "i37128" | |
19334 | "i37126")) | |
0f9f51a1 AW |
19335 | #(ribcage |
19336 | (quasiquote) | |
19337 | ((top)) | |
19338 | (((hygiene guile) | |
19339 | . | |
19340 | #(syntax-object | |
19341 | quasiquote | |
19342 | ((top)) | |
19343 | (hygiene guile)))))) | |
840cf0d1 AW |
19344 | (hygiene guile))) |
19345 | any)))) | |
b2208d2e | 19346 | (if #{tmp 37423}# |
840cf0d1 | 19347 | (@apply |
b2208d2e AW |
19348 | (lambda (#{p 37427}#) |
19349 | (if (= #{lev 37421}# 0) | |
840cf0d1 AW |
19350 | (list '#(syntax-object |
19351 | "value" | |
19352 | ((top) | |
b2208d2e | 19353 | #(ribcage #(p) #((top)) #("i37146")) |
840cf0d1 AW |
19354 | #(ribcage () () ()) |
19355 | #(ribcage | |
19356 | #(p lev) | |
19357 | #((top) (top)) | |
b2208d2e | 19358 | #("i37142" "i37143")) |
840cf0d1 AW |
19359 | #(ribcage |
19360 | (emit quasivector | |
19361 | quasilist* | |
19362 | quasiappend | |
19363 | quasicons | |
19364 | vquasi | |
19365 | quasi) | |
19366 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19367 | ("i37138" |
19368 | "i37136" | |
19369 | "i37134" | |
19370 | "i37132" | |
19371 | "i37130" | |
19372 | "i37128" | |
19373 | "i37126")) | |
0f9f51a1 AW |
19374 | #(ribcage |
19375 | (quasiquote) | |
19376 | ((top)) | |
19377 | (((hygiene guile) | |
19378 | . | |
19379 | #(syntax-object | |
19380 | quasiquote | |
19381 | ((top)) | |
19382 | (hygiene guile)))))) | |
840cf0d1 | 19383 | (hygiene guile)) |
b2208d2e AW |
19384 | #{p 37427}#) |
19385 | (#{quasicons 37398}# | |
840cf0d1 AW |
19386 | '(#(syntax-object |
19387 | "quote" | |
19388 | ((top) | |
b2208d2e | 19389 | #(ribcage #(p) #((top)) #("i37146")) |
840cf0d1 AW |
19390 | #(ribcage () () ()) |
19391 | #(ribcage | |
19392 | #(p lev) | |
19393 | #((top) (top)) | |
b2208d2e | 19394 | #("i37142" "i37143")) |
840cf0d1 AW |
19395 | #(ribcage |
19396 | (emit quasivector | |
19397 | quasilist* | |
19398 | quasiappend | |
19399 | quasicons | |
19400 | vquasi | |
19401 | quasi) | |
19402 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19403 | ("i37138" |
19404 | "i37136" | |
19405 | "i37134" | |
19406 | "i37132" | |
19407 | "i37130" | |
19408 | "i37128" | |
19409 | "i37126")) | |
0f9f51a1 AW |
19410 | #(ribcage |
19411 | (quasiquote) | |
19412 | ((top)) | |
19413 | (((hygiene guile) | |
19414 | . | |
19415 | #(syntax-object | |
19416 | quasiquote | |
19417 | ((top)) | |
19418 | (hygiene guile)))))) | |
840cf0d1 AW |
19419 | (hygiene guile)) |
19420 | #(syntax-object | |
19421 | unquote | |
19422 | ((top) | |
b2208d2e | 19423 | #(ribcage #(p) #((top)) #("i37146")) |
840cf0d1 AW |
19424 | #(ribcage () () ()) |
19425 | #(ribcage | |
19426 | #(p lev) | |
19427 | #((top) (top)) | |
b2208d2e | 19428 | #("i37142" "i37143")) |
840cf0d1 AW |
19429 | #(ribcage |
19430 | (emit quasivector | |
19431 | quasilist* | |
19432 | quasiappend | |
19433 | quasicons | |
19434 | vquasi | |
19435 | quasi) | |
19436 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19437 | ("i37138" |
19438 | "i37136" | |
19439 | "i37134" | |
19440 | "i37132" | |
19441 | "i37130" | |
19442 | "i37128" | |
19443 | "i37126")) | |
0f9f51a1 AW |
19444 | #(ribcage |
19445 | (quasiquote) | |
19446 | ((top)) | |
19447 | (((hygiene guile) | |
19448 | . | |
19449 | #(syntax-object | |
19450 | quasiquote | |
19451 | ((top)) | |
19452 | (hygiene guile)))))) | |
840cf0d1 | 19453 | (hygiene guile))) |
b2208d2e AW |
19454 | (#{quasi 37396}# |
19455 | (list #{p 37427}#) | |
19456 | (#{1-}# #{lev 37421}#))))) | |
19457 | #{tmp 37423}#) | |
19458 | (let ((#{tmp 37430}# | |
840cf0d1 | 19459 | ($sc-dispatch |
b2208d2e | 19460 | #{p 37420}# |
840cf0d1 AW |
19461 | '(#(free-id |
19462 | #(syntax-object | |
19463 | quasiquote | |
19464 | ((top) | |
19465 | #(ribcage () () ()) | |
19466 | #(ribcage | |
19467 | #(p lev) | |
19468 | #((top) (top)) | |
b2208d2e | 19469 | #("i37142" "i37143")) |
840cf0d1 AW |
19470 | #(ribcage |
19471 | (emit quasivector | |
19472 | quasilist* | |
19473 | quasiappend | |
19474 | quasicons | |
19475 | vquasi | |
19476 | quasi) | |
19477 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19478 | ("i37138" |
19479 | "i37136" | |
19480 | "i37134" | |
19481 | "i37132" | |
19482 | "i37130" | |
19483 | "i37128" | |
19484 | "i37126")) | |
0f9f51a1 AW |
19485 | #(ribcage |
19486 | (quasiquote) | |
19487 | ((top)) | |
19488 | (((hygiene guile) | |
19489 | . | |
19490 | #(syntax-object | |
19491 | quasiquote | |
19492 | ((top)) | |
19493 | (hygiene guile)))))) | |
840cf0d1 AW |
19494 | (hygiene guile))) |
19495 | any)))) | |
b2208d2e | 19496 | (if #{tmp 37430}# |
840cf0d1 | 19497 | (@apply |
b2208d2e AW |
19498 | (lambda (#{p 37434}#) |
19499 | (#{quasicons 37398}# | |
840cf0d1 AW |
19500 | '(#(syntax-object |
19501 | "quote" | |
19502 | ((top) | |
b2208d2e | 19503 | #(ribcage #(p) #((top)) #("i37149")) |
840cf0d1 AW |
19504 | #(ribcage () () ()) |
19505 | #(ribcage | |
19506 | #(p lev) | |
19507 | #((top) (top)) | |
b2208d2e | 19508 | #("i37142" "i37143")) |
840cf0d1 AW |
19509 | #(ribcage |
19510 | (emit quasivector | |
19511 | quasilist* | |
19512 | quasiappend | |
19513 | quasicons | |
19514 | vquasi | |
19515 | quasi) | |
19516 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19517 | ("i37138" |
19518 | "i37136" | |
19519 | "i37134" | |
19520 | "i37132" | |
19521 | "i37130" | |
19522 | "i37128" | |
19523 | "i37126")) | |
0f9f51a1 AW |
19524 | #(ribcage |
19525 | (quasiquote) | |
19526 | ((top)) | |
19527 | (((hygiene guile) | |
19528 | . | |
19529 | #(syntax-object | |
19530 | quasiquote | |
19531 | ((top)) | |
19532 | (hygiene guile)))))) | |
840cf0d1 AW |
19533 | (hygiene guile)) |
19534 | #(syntax-object | |
19535 | quasiquote | |
19536 | ((top) | |
b2208d2e | 19537 | #(ribcage #(p) #((top)) #("i37149")) |
840cf0d1 AW |
19538 | #(ribcage () () ()) |
19539 | #(ribcage | |
19540 | #(p lev) | |
19541 | #((top) (top)) | |
b2208d2e | 19542 | #("i37142" "i37143")) |
840cf0d1 AW |
19543 | #(ribcage |
19544 | (emit quasivector | |
19545 | quasilist* | |
19546 | quasiappend | |
19547 | quasicons | |
19548 | vquasi | |
19549 | quasi) | |
19550 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
19551 | ("i37138" |
19552 | "i37136" | |
19553 | "i37134" | |
19554 | "i37132" | |
19555 | "i37130" | |
19556 | "i37128" | |
19557 | "i37126")) | |
0f9f51a1 AW |
19558 | #(ribcage |
19559 | (quasiquote) | |
19560 | ((top)) | |
19561 | (((hygiene guile) | |
19562 | . | |
19563 | #(syntax-object | |
19564 | quasiquote | |
19565 | ((top)) | |
19566 | (hygiene guile)))))) | |
840cf0d1 | 19567 | (hygiene guile))) |
b2208d2e AW |
19568 | (#{quasi 37396}# |
19569 | (list #{p 37434}#) | |
19570 | (#{1+}# #{lev 37421}#)))) | |
19571 | #{tmp 37430}#) | |
19572 | (let ((#{tmp 37437}# | |
19573 | ($sc-dispatch #{p 37420}# '(any . any)))) | |
19574 | (if #{tmp 37437}# | |
840cf0d1 | 19575 | (@apply |
b2208d2e AW |
19576 | (lambda (#{p 37441}# #{q 37442}#) |
19577 | (let ((#{tmp 37444}# | |
0f550375 | 19578 | ($sc-dispatch |
b2208d2e | 19579 | #{p 37441}# |
0f550375 AW |
19580 | '(#(free-id |
19581 | #(syntax-object | |
840cf0d1 | 19582 | unquote |
0f550375 AW |
19583 | ((top) |
19584 | #(ribcage | |
19585 | #(p q) | |
19586 | #((top) (top)) | |
b2208d2e | 19587 | #("i37152" "i37153")) |
0f550375 AW |
19588 | #(ribcage () () ()) |
19589 | #(ribcage | |
19590 | #(p lev) | |
19591 | #((top) (top)) | |
b2208d2e | 19592 | #("i37142" "i37143")) |
0f550375 AW |
19593 | #(ribcage |
19594 | (emit quasivector | |
19595 | quasilist* | |
19596 | quasiappend | |
19597 | quasicons | |
19598 | vquasi | |
19599 | quasi) | |
19600 | ((top) | |
19601 | (top) | |
19602 | (top) | |
19603 | (top) | |
19604 | (top) | |
19605 | (top) | |
19606 | (top)) | |
b2208d2e AW |
19607 | ("i37138" |
19608 | "i37136" | |
19609 | "i37134" | |
19610 | "i37132" | |
19611 | "i37130" | |
19612 | "i37128" | |
19613 | "i37126")) | |
0f9f51a1 AW |
19614 | #(ribcage |
19615 | (quasiquote) | |
19616 | ((top)) | |
19617 | (((hygiene guile) | |
19618 | . | |
19619 | #(syntax-object | |
19620 | quasiquote | |
19621 | ((top)) | |
19622 | (hygiene guile)))))) | |
0f550375 AW |
19623 | (hygiene guile))) |
19624 | . | |
19625 | each-any)))) | |
b2208d2e | 19626 | (if #{tmp 37444}# |
0f550375 | 19627 | (@apply |
b2208d2e AW |
19628 | (lambda (#{p 37448}#) |
19629 | (if (= #{lev 37421}# 0) | |
19630 | (#{quasilist* 37400}# | |
19631 | (map (lambda (#{tmp 37160 37487}#) | |
0f550375 AW |
19632 | (list '#(syntax-object |
19633 | "value" | |
19634 | ((top) | |
19635 | #(ribcage | |
19636 | #(p) | |
19637 | #((top)) | |
b2208d2e | 19638 | #("i37158")) |
0f550375 AW |
19639 | #(ribcage |
19640 | #(p q) | |
19641 | #((top) (top)) | |
b2208d2e | 19642 | #("i37152" "i37153")) |
0f550375 AW |
19643 | #(ribcage () () ()) |
19644 | #(ribcage | |
19645 | #(p lev) | |
19646 | #((top) (top)) | |
b2208d2e | 19647 | #("i37142" "i37143")) |
0f550375 AW |
19648 | #(ribcage |
19649 | (emit quasivector | |
19650 | quasilist* | |
19651 | quasiappend | |
19652 | quasicons | |
19653 | vquasi | |
19654 | quasi) | |
19655 | ((top) | |
19656 | (top) | |
19657 | (top) | |
19658 | (top) | |
19659 | (top) | |
19660 | (top) | |
19661 | (top)) | |
b2208d2e AW |
19662 | ("i37138" |
19663 | "i37136" | |
19664 | "i37134" | |
19665 | "i37132" | |
19666 | "i37130" | |
19667 | "i37128" | |
19668 | "i37126")) | |
0f9f51a1 AW |
19669 | #(ribcage |
19670 | (quasiquote) | |
19671 | ((top)) | |
19672 | (((hygiene guile) | |
19673 | . | |
19674 | #(syntax-object | |
19675 | quasiquote | |
19676 | ((top)) | |
19677 | (hygiene | |
19678 | guile)))))) | |
0f550375 | 19679 | (hygiene guile)) |
b2208d2e AW |
19680 | #{tmp 37160 37487}#)) |
19681 | #{p 37448}#) | |
19682 | (#{quasi 37396}# | |
19683 | #{q 37442}# | |
19684 | #{lev 37421}#)) | |
19685 | (#{quasicons 37398}# | |
19686 | (#{quasicons 37398}# | |
0f550375 AW |
19687 | '(#(syntax-object |
19688 | "quote" | |
19689 | ((top) | |
19690 | #(ribcage | |
19691 | #(p) | |
19692 | #((top)) | |
b2208d2e | 19693 | #("i37158")) |
0f550375 AW |
19694 | #(ribcage |
19695 | #(p q) | |
19696 | #((top) (top)) | |
b2208d2e | 19697 | #("i37152" "i37153")) |
0f550375 AW |
19698 | #(ribcage () () ()) |
19699 | #(ribcage | |
19700 | #(p lev) | |
19701 | #((top) (top)) | |
b2208d2e | 19702 | #("i37142" "i37143")) |
0f550375 AW |
19703 | #(ribcage |
19704 | (emit quasivector | |
19705 | quasilist* | |
19706 | quasiappend | |
19707 | quasicons | |
19708 | vquasi | |
19709 | quasi) | |
19710 | ((top) | |
19711 | (top) | |
19712 | (top) | |
19713 | (top) | |
19714 | (top) | |
19715 | (top) | |
19716 | (top)) | |
b2208d2e AW |
19717 | ("i37138" |
19718 | "i37136" | |
19719 | "i37134" | |
19720 | "i37132" | |
19721 | "i37130" | |
19722 | "i37128" | |
19723 | "i37126")) | |
0f9f51a1 AW |
19724 | #(ribcage |
19725 | (quasiquote) | |
19726 | ((top)) | |
19727 | (((hygiene guile) | |
19728 | . | |
19729 | #(syntax-object | |
19730 | quasiquote | |
19731 | ((top)) | |
19732 | (hygiene guile)))))) | |
0f550375 AW |
19733 | (hygiene guile)) |
19734 | #(syntax-object | |
840cf0d1 | 19735 | unquote |
0f550375 AW |
19736 | ((top) |
19737 | #(ribcage | |
19738 | #(p) | |
19739 | #((top)) | |
b2208d2e | 19740 | #("i37158")) |
0f550375 AW |
19741 | #(ribcage |
19742 | #(p q) | |
19743 | #((top) (top)) | |
b2208d2e | 19744 | #("i37152" "i37153")) |
0f550375 AW |
19745 | #(ribcage () () ()) |
19746 | #(ribcage | |
19747 | #(p lev) | |
19748 | #((top) (top)) | |
b2208d2e | 19749 | #("i37142" "i37143")) |
0f550375 AW |
19750 | #(ribcage |
19751 | (emit quasivector | |
19752 | quasilist* | |
19753 | quasiappend | |
19754 | quasicons | |
19755 | vquasi | |
19756 | quasi) | |
19757 | ((top) | |
19758 | (top) | |
19759 | (top) | |
19760 | (top) | |
19761 | (top) | |
19762 | (top) | |
19763 | (top)) | |
b2208d2e AW |
19764 | ("i37138" |
19765 | "i37136" | |
19766 | "i37134" | |
19767 | "i37132" | |
19768 | "i37130" | |
19769 | "i37128" | |
19770 | "i37126")) | |
0f9f51a1 AW |
19771 | #(ribcage |
19772 | (quasiquote) | |
19773 | ((top)) | |
19774 | (((hygiene guile) | |
19775 | . | |
19776 | #(syntax-object | |
19777 | quasiquote | |
19778 | ((top)) | |
19779 | (hygiene guile)))))) | |
0f550375 | 19780 | (hygiene guile))) |
b2208d2e AW |
19781 | (#{quasi 37396}# |
19782 | #{p 37448}# | |
19783 | (#{1-}# #{lev 37421}#))) | |
19784 | (#{quasi 37396}# | |
19785 | #{q 37442}# | |
19786 | #{lev 37421}#)))) | |
19787 | #{tmp 37444}#) | |
19788 | (let ((#{tmp 37492}# | |
840cf0d1 | 19789 | ($sc-dispatch |
b2208d2e | 19790 | #{p 37441}# |
840cf0d1 AW |
19791 | '(#(free-id |
19792 | #(syntax-object | |
19793 | unquote-splicing | |
19794 | ((top) | |
19795 | #(ribcage | |
19796 | #(p q) | |
19797 | #((top) (top)) | |
b2208d2e | 19798 | #("i37152" "i37153")) |
840cf0d1 AW |
19799 | #(ribcage () () ()) |
19800 | #(ribcage | |
19801 | #(p lev) | |
19802 | #((top) (top)) | |
b2208d2e | 19803 | #("i37142" "i37143")) |
840cf0d1 AW |
19804 | #(ribcage |
19805 | (emit quasivector | |
19806 | quasilist* | |
19807 | quasiappend | |
19808 | quasicons | |
19809 | vquasi | |
19810 | quasi) | |
19811 | ((top) | |
19812 | (top) | |
19813 | (top) | |
19814 | (top) | |
19815 | (top) | |
19816 | (top) | |
19817 | (top)) | |
b2208d2e AW |
19818 | ("i37138" |
19819 | "i37136" | |
19820 | "i37134" | |
19821 | "i37132" | |
19822 | "i37130" | |
19823 | "i37128" | |
19824 | "i37126")) | |
0f9f51a1 AW |
19825 | #(ribcage |
19826 | (quasiquote) | |
19827 | ((top)) | |
19828 | (((hygiene guile) | |
19829 | . | |
19830 | #(syntax-object | |
19831 | quasiquote | |
19832 | ((top)) | |
19833 | (hygiene guile)))))) | |
840cf0d1 AW |
19834 | (hygiene guile))) |
19835 | . | |
19836 | each-any)))) | |
b2208d2e | 19837 | (if #{tmp 37492}# |
840cf0d1 | 19838 | (@apply |
b2208d2e AW |
19839 | (lambda (#{p 37496}#) |
19840 | (if (= #{lev 37421}# 0) | |
19841 | (#{quasiappend 37399}# | |
19842 | (map (lambda (#{tmp 37165 37499}#) | |
840cf0d1 AW |
19843 | (list '#(syntax-object |
19844 | "value" | |
19845 | ((top) | |
19846 | #(ribcage | |
19847 | #(p) | |
19848 | #((top)) | |
b2208d2e | 19849 | #("i37163")) |
840cf0d1 AW |
19850 | #(ribcage |
19851 | #(p q) | |
19852 | #((top) (top)) | |
b2208d2e AW |
19853 | #("i37152" |
19854 | "i37153")) | |
840cf0d1 AW |
19855 | #(ribcage () () ()) |
19856 | #(ribcage | |
19857 | #(p lev) | |
19858 | #((top) (top)) | |
b2208d2e AW |
19859 | #("i37142" |
19860 | "i37143")) | |
840cf0d1 AW |
19861 | #(ribcage |
19862 | (emit quasivector | |
19863 | quasilist* | |
19864 | quasiappend | |
19865 | quasicons | |
19866 | vquasi | |
19867 | quasi) | |
19868 | ((top) | |
19869 | (top) | |
19870 | (top) | |
19871 | (top) | |
19872 | (top) | |
19873 | (top) | |
19874 | (top)) | |
b2208d2e AW |
19875 | ("i37138" |
19876 | "i37136" | |
19877 | "i37134" | |
19878 | "i37132" | |
19879 | "i37130" | |
19880 | "i37128" | |
19881 | "i37126")) | |
0f9f51a1 AW |
19882 | #(ribcage |
19883 | (quasiquote) | |
19884 | ((top)) | |
19885 | (((hygiene guile) | |
19886 | . | |
19887 | #(syntax-object | |
19888 | quasiquote | |
19889 | ((top)) | |
19890 | (hygiene | |
19891 | guile)))))) | |
840cf0d1 | 19892 | (hygiene guile)) |
b2208d2e AW |
19893 | #{tmp 37165 37499}#)) |
19894 | #{p 37496}#) | |
19895 | (#{quasi 37396}# | |
19896 | #{q 37442}# | |
19897 | #{lev 37421}#)) | |
19898 | (#{quasicons 37398}# | |
19899 | (#{quasicons 37398}# | |
840cf0d1 AW |
19900 | '(#(syntax-object |
19901 | "quote" | |
19902 | ((top) | |
19903 | #(ribcage | |
19904 | #(p) | |
19905 | #((top)) | |
b2208d2e | 19906 | #("i37163")) |
840cf0d1 AW |
19907 | #(ribcage |
19908 | #(p q) | |
19909 | #((top) (top)) | |
b2208d2e | 19910 | #("i37152" "i37153")) |
840cf0d1 AW |
19911 | #(ribcage () () ()) |
19912 | #(ribcage | |
19913 | #(p lev) | |
19914 | #((top) (top)) | |
b2208d2e | 19915 | #("i37142" "i37143")) |
840cf0d1 AW |
19916 | #(ribcage |
19917 | (emit quasivector | |
19918 | quasilist* | |
19919 | quasiappend | |
19920 | quasicons | |
19921 | vquasi | |
19922 | quasi) | |
19923 | ((top) | |
19924 | (top) | |
19925 | (top) | |
19926 | (top) | |
19927 | (top) | |
19928 | (top) | |
19929 | (top)) | |
b2208d2e AW |
19930 | ("i37138" |
19931 | "i37136" | |
19932 | "i37134" | |
19933 | "i37132" | |
19934 | "i37130" | |
19935 | "i37128" | |
19936 | "i37126")) | |
0f9f51a1 AW |
19937 | #(ribcage |
19938 | (quasiquote) | |
19939 | ((top)) | |
19940 | (((hygiene guile) | |
19941 | . | |
19942 | #(syntax-object | |
19943 | quasiquote | |
19944 | ((top)) | |
19945 | (hygiene guile)))))) | |
840cf0d1 AW |
19946 | (hygiene guile)) |
19947 | #(syntax-object | |
19948 | unquote-splicing | |
19949 | ((top) | |
19950 | #(ribcage | |
19951 | #(p) | |
19952 | #((top)) | |
b2208d2e | 19953 | #("i37163")) |
840cf0d1 AW |
19954 | #(ribcage |
19955 | #(p q) | |
19956 | #((top) (top)) | |
b2208d2e | 19957 | #("i37152" "i37153")) |
840cf0d1 AW |
19958 | #(ribcage () () ()) |
19959 | #(ribcage | |
19960 | #(p lev) | |
19961 | #((top) (top)) | |
b2208d2e | 19962 | #("i37142" "i37143")) |
840cf0d1 AW |
19963 | #(ribcage |
19964 | (emit quasivector | |
19965 | quasilist* | |
19966 | quasiappend | |
19967 | quasicons | |
19968 | vquasi | |
19969 | quasi) | |
19970 | ((top) | |
19971 | (top) | |
19972 | (top) | |
19973 | (top) | |
19974 | (top) | |
19975 | (top) | |
19976 | (top)) | |
b2208d2e AW |
19977 | ("i37138" |
19978 | "i37136" | |
19979 | "i37134" | |
19980 | "i37132" | |
19981 | "i37130" | |
19982 | "i37128" | |
19983 | "i37126")) | |
0f9f51a1 AW |
19984 | #(ribcage |
19985 | (quasiquote) | |
19986 | ((top)) | |
19987 | (((hygiene guile) | |
19988 | . | |
19989 | #(syntax-object | |
19990 | quasiquote | |
19991 | ((top)) | |
19992 | (hygiene guile)))))) | |
840cf0d1 | 19993 | (hygiene guile))) |
b2208d2e AW |
19994 | (#{quasi 37396}# |
19995 | #{p 37496}# | |
19996 | (#{1-}# #{lev 37421}#))) | |
19997 | (#{quasi 37396}# | |
19998 | #{q 37442}# | |
19999 | #{lev 37421}#)))) | |
20000 | #{tmp 37492}#) | |
20001 | (#{quasicons 37398}# | |
20002 | (#{quasi 37396}# | |
20003 | #{p 37441}# | |
20004 | #{lev 37421}#) | |
20005 | (#{quasi 37396}# | |
20006 | #{q 37442}# | |
20007 | #{lev 37421}#))))))) | |
20008 | #{tmp 37437}#) | |
20009 | (let ((#{tmp 37513}# | |
20010 | ($sc-dispatch #{p 37420}# '#(vector each-any)))) | |
20011 | (if #{tmp 37513}# | |
840cf0d1 | 20012 | (@apply |
b2208d2e AW |
20013 | (lambda (#{x 37517}#) |
20014 | (let ((#{x 37520}# | |
20015 | (#{vquasi 37397}# | |
20016 | #{x 37517}# | |
20017 | #{lev 37421}#))) | |
20018 | (let ((#{tmp 37522}# | |
46e372ef | 20019 | ($sc-dispatch |
b2208d2e | 20020 | #{x 37520}# |
46e372ef | 20021 | '(#(atom "quote") each-any)))) |
b2208d2e | 20022 | (if #{tmp 37522}# |
46e372ef | 20023 | (@apply |
b2208d2e | 20024 | (lambda (#{x 37526}#) |
46e372ef AW |
20025 | (list '#(syntax-object |
20026 | "quote" | |
20027 | ((top) | |
20028 | #(ribcage | |
20029 | #(x) | |
20030 | #((top)) | |
b2208d2e | 20031 | #("i37270")) |
46e372ef AW |
20032 | #(ribcage () () ()) |
20033 | #(ribcage | |
20034 | #(x) | |
20035 | #((top)) | |
b2208d2e | 20036 | #("i37267")) |
46e372ef AW |
20037 | #(ribcage |
20038 | (emit quasivector | |
20039 | quasilist* | |
20040 | quasiappend | |
20041 | quasicons | |
20042 | vquasi | |
20043 | quasi) | |
20044 | ((top) | |
20045 | (top) | |
20046 | (top) | |
20047 | (top) | |
20048 | (top) | |
20049 | (top) | |
20050 | (top)) | |
b2208d2e AW |
20051 | ("i37138" |
20052 | "i37136" | |
20053 | "i37134" | |
20054 | "i37132" | |
20055 | "i37130" | |
20056 | "i37128" | |
20057 | "i37126")) | |
0f9f51a1 AW |
20058 | #(ribcage |
20059 | (quasiquote) | |
20060 | ((top)) | |
20061 | (((hygiene guile) | |
20062 | . | |
20063 | #(syntax-object | |
20064 | quasiquote | |
20065 | ((top)) | |
20066 | (hygiene guile)))))) | |
46e372ef | 20067 | (hygiene guile)) |
b2208d2e AW |
20068 | (list->vector #{x 37526}#))) |
20069 | #{tmp 37522}#) | |
46e372ef | 20070 | (letrec* |
b2208d2e AW |
20071 | ((#{f 37528}# |
20072 | (lambda (#{y 37540}# #{k 37541}#) | |
20073 | (let ((#{tmp 37543}# | |
46e372ef | 20074 | ($sc-dispatch |
b2208d2e | 20075 | #{y 37540}# |
46e372ef AW |
20076 | '(#(atom "quote") |
20077 | each-any)))) | |
b2208d2e | 20078 | (if #{tmp 37543}# |
46e372ef | 20079 | (@apply |
b2208d2e AW |
20080 | (lambda (#{y 37546}#) |
20081 | (#{k 37541}# | |
20082 | (map (lambda (#{tmp 37295 37547}#) | |
46e372ef AW |
20083 | (list '#(syntax-object |
20084 | "quote" | |
20085 | ((top) | |
20086 | #(ribcage | |
20087 | #(y) | |
20088 | #((top)) | |
b2208d2e | 20089 | #("i37293")) |
46e372ef AW |
20090 | #(ribcage |
20091 | () | |
20092 | () | |
20093 | ()) | |
20094 | #(ribcage | |
20095 | #(f | |
20096 | y | |
20097 | k) | |
20098 | #((top) | |
20099 | (top) | |
20100 | (top)) | |
b2208d2e AW |
20101 | #("i37275" |
20102 | "i37276" | |
20103 | "i37277")) | |
46e372ef AW |
20104 | #(ribcage |
20105 | #(_) | |
20106 | #((top)) | |
b2208d2e | 20107 | #("i37273")) |
46e372ef AW |
20108 | #(ribcage |
20109 | () | |
20110 | () | |
20111 | ()) | |
20112 | #(ribcage | |
20113 | #(x) | |
20114 | #((top)) | |
b2208d2e | 20115 | #("i37267")) |
46e372ef AW |
20116 | #(ribcage |
20117 | (emit quasivector | |
20118 | quasilist* | |
20119 | quasiappend | |
20120 | quasicons | |
20121 | vquasi | |
20122 | quasi) | |
20123 | ((top) | |
20124 | (top) | |
20125 | (top) | |
20126 | (top) | |
20127 | (top) | |
20128 | (top) | |
20129 | (top)) | |
b2208d2e AW |
20130 | ("i37138" |
20131 | "i37136" | |
20132 | "i37134" | |
20133 | "i37132" | |
20134 | "i37130" | |
20135 | "i37128" | |
20136 | "i37126")) | |
0f9f51a1 AW |
20137 | #(ribcage |
20138 | (quasiquote) | |
20139 | ((top)) | |
20140 | (((hygiene | |
20141 | guile) | |
20142 | . | |
20143 | #(syntax-object | |
20144 | quasiquote | |
20145 | ((top)) | |
20146 | (hygiene | |
20147 | guile)))))) | |
46e372ef AW |
20148 | (hygiene |
20149 | guile)) | |
b2208d2e AW |
20150 | #{tmp 37295 37547}#)) |
20151 | #{y 37546}#))) | |
20152 | #{tmp 37543}#) | |
20153 | (let ((#{tmp 37548}# | |
46e372ef | 20154 | ($sc-dispatch |
b2208d2e | 20155 | #{y 37540}# |
46e372ef AW |
20156 | '(#(atom "list") |
20157 | . | |
20158 | each-any)))) | |
b2208d2e | 20159 | (if #{tmp 37548}# |
46e372ef | 20160 | (@apply |
b2208d2e AW |
20161 | (lambda (#{y 37551}#) |
20162 | (#{k 37541}# | |
20163 | #{y 37551}#)) | |
20164 | #{tmp 37548}#) | |
20165 | (let ((#{tmp 37552}# | |
46e372ef | 20166 | ($sc-dispatch |
b2208d2e | 20167 | #{y 37540}# |
46e372ef AW |
20168 | '(#(atom "list*") |
20169 | . | |
20170 | #(each+ | |
20171 | any | |
20172 | (any) | |
20173 | ()))))) | |
b2208d2e | 20174 | (if #{tmp 37552}# |
46e372ef | 20175 | (@apply |
b2208d2e AW |
20176 | (lambda (#{y 37555}# |
20177 | #{z 37556}#) | |
20178 | (#{f 37528}# | |
20179 | #{z 37556}# | |
20180 | (lambda (#{ls 37557}#) | |
20181 | (#{k 37541}# | |
46e372ef | 20182 | (append |
b2208d2e AW |
20183 | #{y 37555}# |
20184 | #{ls 37557}#))))) | |
20185 | #{tmp 37552}#) | |
46e372ef AW |
20186 | (list '#(syntax-object |
20187 | "list->vector" | |
20188 | ((top) | |
20189 | #(ribcage | |
20190 | () | |
20191 | () | |
20192 | ()) | |
20193 | #(ribcage | |
b2208d2e AW |
20194 | #(#{ g37310}#) |
20195 | #((m37311 | |
46e372ef | 20196 | top)) |
b2208d2e | 20197 | #("i37314")) |
46e372ef AW |
20198 | #(ribcage |
20199 | #(else) | |
20200 | #((top)) | |
b2208d2e | 20201 | #("i37308")) |
46e372ef AW |
20202 | #(ribcage |
20203 | () | |
20204 | () | |
20205 | ()) | |
20206 | #(ribcage | |
20207 | #(f y k) | |
20208 | #((top) | |
20209 | (top) | |
20210 | (top)) | |
b2208d2e AW |
20211 | #("i37275" |
20212 | "i37276" | |
20213 | "i37277")) | |
46e372ef AW |
20214 | #(ribcage |
20215 | #(_) | |
20216 | #((top)) | |
b2208d2e | 20217 | #("i37273")) |
46e372ef AW |
20218 | #(ribcage |
20219 | () | |
20220 | () | |
20221 | ()) | |
20222 | #(ribcage | |
20223 | #(x) | |
20224 | #((top)) | |
b2208d2e | 20225 | #("i37267")) |
46e372ef AW |
20226 | #(ribcage |
20227 | (emit quasivector | |
20228 | quasilist* | |
20229 | quasiappend | |
20230 | quasicons | |
20231 | vquasi | |
20232 | quasi) | |
20233 | ((top) | |
20234 | (top) | |
20235 | (top) | |
20236 | (top) | |
20237 | (top) | |
20238 | (top) | |
20239 | (top)) | |
b2208d2e AW |
20240 | ("i37138" |
20241 | "i37136" | |
20242 | "i37134" | |
20243 | "i37132" | |
20244 | "i37130" | |
20245 | "i37128" | |
20246 | "i37126")) | |
0f9f51a1 AW |
20247 | #(ribcage |
20248 | (quasiquote) | |
20249 | ((top)) | |
20250 | (((hygiene | |
20251 | guile) | |
20252 | . | |
20253 | #(syntax-object | |
20254 | quasiquote | |
20255 | ((top)) | |
20256 | (hygiene | |
20257 | guile)))))) | |
46e372ef AW |
20258 | (hygiene |
20259 | guile)) | |
b2208d2e AW |
20260 | #{x 37520}#)))))))))) |
20261 | (#{f 37528}# | |
20262 | #{x 37520}# | |
20263 | (lambda (#{ls 37530}#) | |
20264 | (let ((#{tmp 37532}# | |
46e372ef | 20265 | ($sc-dispatch |
b2208d2e | 20266 | #{ls 37530}# |
46e372ef | 20267 | 'each-any))) |
b2208d2e | 20268 | (if #{tmp 37532}# |
46e372ef | 20269 | (@apply |
b2208d2e | 20270 | (lambda (#{ g37283 37535}#) |
46e372ef AW |
20271 | (cons '#(syntax-object |
20272 | "vector" | |
20273 | ((top) | |
20274 | #(ribcage | |
20275 | () | |
20276 | () | |
20277 | ()) | |
20278 | #(ribcage | |
b2208d2e AW |
20279 | #(#{ g37283}#) |
20280 | #((m37284 top)) | |
20281 | #("i37288")) | |
46e372ef AW |
20282 | #(ribcage |
20283 | () | |
20284 | () | |
20285 | ()) | |
20286 | #(ribcage | |
20287 | () | |
20288 | () | |
20289 | ()) | |
20290 | #(ribcage | |
20291 | () | |
20292 | () | |
20293 | ()) | |
20294 | #(ribcage | |
20295 | #(ls) | |
20296 | #((top)) | |
b2208d2e | 20297 | #("i37282")) |
46e372ef AW |
20298 | #(ribcage |
20299 | #(_) | |
20300 | #((top)) | |
b2208d2e | 20301 | #("i37273")) |
46e372ef AW |
20302 | #(ribcage |
20303 | () | |
20304 | () | |
20305 | ()) | |
20306 | #(ribcage | |
20307 | #(x) | |
20308 | #((top)) | |
b2208d2e | 20309 | #("i37267")) |
46e372ef AW |
20310 | #(ribcage |
20311 | (emit quasivector | |
20312 | quasilist* | |
20313 | quasiappend | |
20314 | quasicons | |
20315 | vquasi | |
20316 | quasi) | |
20317 | ((top) | |
20318 | (top) | |
20319 | (top) | |
20320 | (top) | |
20321 | (top) | |
20322 | (top) | |
20323 | (top)) | |
b2208d2e AW |
20324 | ("i37138" |
20325 | "i37136" | |
20326 | "i37134" | |
20327 | "i37132" | |
20328 | "i37130" | |
20329 | "i37128" | |
20330 | "i37126")) | |
0f9f51a1 AW |
20331 | #(ribcage |
20332 | (quasiquote) | |
20333 | ((top)) | |
20334 | (((hygiene | |
20335 | guile) | |
20336 | . | |
20337 | #(syntax-object | |
20338 | quasiquote | |
20339 | ((top)) | |
20340 | (hygiene | |
20341 | guile)))))) | |
46e372ef | 20342 | (hygiene guile)) |
b2208d2e AW |
20343 | #{ g37283 37535}#)) |
20344 | #{tmp 37532}#) | |
46e372ef AW |
20345 | (syntax-violation |
20346 | #f | |
20347 | "source expression failed to match any pattern" | |
b2208d2e AW |
20348 | #{ls 37530}#)))))))))) |
20349 | #{tmp 37513}#) | |
840cf0d1 AW |
20350 | (list '#(syntax-object |
20351 | "quote" | |
20352 | ((top) | |
b2208d2e | 20353 | #(ribcage #(p) #((top)) #("i37173")) |
840cf0d1 AW |
20354 | #(ribcage () () ()) |
20355 | #(ribcage | |
20356 | #(p lev) | |
20357 | #((top) (top)) | |
b2208d2e | 20358 | #("i37142" "i37143")) |
840cf0d1 AW |
20359 | #(ribcage |
20360 | (emit quasivector | |
20361 | quasilist* | |
20362 | quasiappend | |
20363 | quasicons | |
20364 | vquasi | |
20365 | quasi) | |
20366 | ((top) | |
20367 | (top) | |
20368 | (top) | |
20369 | (top) | |
20370 | (top) | |
20371 | (top) | |
20372 | (top)) | |
b2208d2e AW |
20373 | ("i37138" |
20374 | "i37136" | |
20375 | "i37134" | |
20376 | "i37132" | |
20377 | "i37130" | |
20378 | "i37128" | |
20379 | "i37126")) | |
0f9f51a1 AW |
20380 | #(ribcage |
20381 | (quasiquote) | |
20382 | ((top)) | |
20383 | (((hygiene guile) | |
20384 | . | |
20385 | #(syntax-object | |
20386 | quasiquote | |
20387 | ((top)) | |
20388 | (hygiene guile)))))) | |
840cf0d1 | 20389 | (hygiene guile)) |
b2208d2e AW |
20390 | #{p 37420}#))))))))))) |
20391 | (#{vquasi 37397}# | |
20392 | (lambda (#{p 37585}# #{lev 37586}#) | |
20393 | (let ((#{tmp 37588}# | |
20394 | ($sc-dispatch #{p 37585}# '(any . any)))) | |
20395 | (if #{tmp 37588}# | |
840cf0d1 | 20396 | (@apply |
b2208d2e AW |
20397 | (lambda (#{p 37592}# #{q 37593}#) |
20398 | (let ((#{tmp 37595}# | |
840cf0d1 | 20399 | ($sc-dispatch |
b2208d2e | 20400 | #{p 37592}# |
840cf0d1 AW |
20401 | '(#(free-id |
20402 | #(syntax-object | |
20403 | unquote | |
20404 | ((top) | |
20405 | #(ribcage | |
20406 | #(p q) | |
20407 | #((top) (top)) | |
b2208d2e | 20408 | #("i37181" "i37182")) |
840cf0d1 AW |
20409 | #(ribcage () () ()) |
20410 | #(ribcage | |
20411 | #(p lev) | |
20412 | #((top) (top)) | |
b2208d2e | 20413 | #("i37177" "i37178")) |
840cf0d1 AW |
20414 | #(ribcage |
20415 | (emit quasivector | |
20416 | quasilist* | |
20417 | quasiappend | |
20418 | quasicons | |
20419 | vquasi | |
20420 | quasi) | |
20421 | ((top) | |
20422 | (top) | |
20423 | (top) | |
20424 | (top) | |
20425 | (top) | |
20426 | (top) | |
20427 | (top)) | |
b2208d2e AW |
20428 | ("i37138" |
20429 | "i37136" | |
20430 | "i37134" | |
20431 | "i37132" | |
20432 | "i37130" | |
20433 | "i37128" | |
20434 | "i37126")) | |
0f9f51a1 AW |
20435 | #(ribcage |
20436 | (quasiquote) | |
20437 | ((top)) | |
20438 | (((hygiene guile) | |
20439 | . | |
20440 | #(syntax-object | |
20441 | quasiquote | |
20442 | ((top)) | |
20443 | (hygiene guile)))))) | |
840cf0d1 AW |
20444 | (hygiene guile))) |
20445 | . | |
20446 | each-any)))) | |
b2208d2e | 20447 | (if #{tmp 37595}# |
840cf0d1 | 20448 | (@apply |
b2208d2e AW |
20449 | (lambda (#{p 37599}#) |
20450 | (if (= #{lev 37586}# 0) | |
20451 | (#{quasilist* 37400}# | |
20452 | (map (lambda (#{tmp 37189 37638}#) | |
840cf0d1 AW |
20453 | (list '#(syntax-object |
20454 | "value" | |
20455 | ((top) | |
20456 | #(ribcage | |
20457 | #(p) | |
20458 | #((top)) | |
b2208d2e | 20459 | #("i37187")) |
840cf0d1 AW |
20460 | #(ribcage |
20461 | #(p q) | |
20462 | #((top) (top)) | |
b2208d2e | 20463 | #("i37181" "i37182")) |
840cf0d1 AW |
20464 | #(ribcage () () ()) |
20465 | #(ribcage | |
20466 | #(p lev) | |
20467 | #((top) (top)) | |
b2208d2e | 20468 | #("i37177" "i37178")) |
840cf0d1 AW |
20469 | #(ribcage |
20470 | (emit quasivector | |
20471 | quasilist* | |
20472 | quasiappend | |
20473 | quasicons | |
20474 | vquasi | |
20475 | quasi) | |
20476 | ((top) | |
20477 | (top) | |
20478 | (top) | |
20479 | (top) | |
20480 | (top) | |
20481 | (top) | |
20482 | (top)) | |
b2208d2e AW |
20483 | ("i37138" |
20484 | "i37136" | |
20485 | "i37134" | |
20486 | "i37132" | |
20487 | "i37130" | |
20488 | "i37128" | |
20489 | "i37126")) | |
0f9f51a1 AW |
20490 | #(ribcage |
20491 | (quasiquote) | |
20492 | ((top)) | |
20493 | (((hygiene guile) | |
20494 | . | |
20495 | #(syntax-object | |
20496 | quasiquote | |
20497 | ((top)) | |
20498 | (hygiene guile)))))) | |
840cf0d1 | 20499 | (hygiene guile)) |
b2208d2e AW |
20500 | #{tmp 37189 37638}#)) |
20501 | #{p 37599}#) | |
20502 | (#{vquasi 37397}# #{q 37593}# #{lev 37586}#)) | |
20503 | (#{quasicons 37398}# | |
20504 | (#{quasicons 37398}# | |
840cf0d1 AW |
20505 | '(#(syntax-object |
20506 | "quote" | |
20507 | ((top) | |
b2208d2e | 20508 | #(ribcage #(p) #((top)) #("i37187")) |
840cf0d1 AW |
20509 | #(ribcage |
20510 | #(p q) | |
20511 | #((top) (top)) | |
b2208d2e | 20512 | #("i37181" "i37182")) |
840cf0d1 AW |
20513 | #(ribcage () () ()) |
20514 | #(ribcage | |
20515 | #(p lev) | |
20516 | #((top) (top)) | |
b2208d2e | 20517 | #("i37177" "i37178")) |
840cf0d1 AW |
20518 | #(ribcage |
20519 | (emit quasivector | |
20520 | quasilist* | |
20521 | quasiappend | |
20522 | quasicons | |
20523 | vquasi | |
20524 | quasi) | |
20525 | ((top) | |
20526 | (top) | |
20527 | (top) | |
20528 | (top) | |
20529 | (top) | |
20530 | (top) | |
20531 | (top)) | |
b2208d2e AW |
20532 | ("i37138" |
20533 | "i37136" | |
20534 | "i37134" | |
20535 | "i37132" | |
20536 | "i37130" | |
20537 | "i37128" | |
20538 | "i37126")) | |
0f9f51a1 AW |
20539 | #(ribcage |
20540 | (quasiquote) | |
20541 | ((top)) | |
20542 | (((hygiene guile) | |
20543 | . | |
20544 | #(syntax-object | |
20545 | quasiquote | |
20546 | ((top)) | |
20547 | (hygiene guile)))))) | |
840cf0d1 AW |
20548 | (hygiene guile)) |
20549 | #(syntax-object | |
20550 | unquote | |
20551 | ((top) | |
b2208d2e | 20552 | #(ribcage #(p) #((top)) #("i37187")) |
840cf0d1 AW |
20553 | #(ribcage |
20554 | #(p q) | |
20555 | #((top) (top)) | |
b2208d2e | 20556 | #("i37181" "i37182")) |
840cf0d1 AW |
20557 | #(ribcage () () ()) |
20558 | #(ribcage | |
20559 | #(p lev) | |
20560 | #((top) (top)) | |
b2208d2e | 20561 | #("i37177" "i37178")) |
840cf0d1 AW |
20562 | #(ribcage |
20563 | (emit quasivector | |
20564 | quasilist* | |
20565 | quasiappend | |
20566 | quasicons | |
20567 | vquasi | |
20568 | quasi) | |
20569 | ((top) | |
20570 | (top) | |
20571 | (top) | |
20572 | (top) | |
20573 | (top) | |
20574 | (top) | |
20575 | (top)) | |
b2208d2e AW |
20576 | ("i37138" |
20577 | "i37136" | |
20578 | "i37134" | |
20579 | "i37132" | |
20580 | "i37130" | |
20581 | "i37128" | |
20582 | "i37126")) | |
0f9f51a1 AW |
20583 | #(ribcage |
20584 | (quasiquote) | |
20585 | ((top)) | |
20586 | (((hygiene guile) | |
20587 | . | |
20588 | #(syntax-object | |
20589 | quasiquote | |
20590 | ((top)) | |
20591 | (hygiene guile)))))) | |
840cf0d1 | 20592 | (hygiene guile))) |
b2208d2e AW |
20593 | (#{quasi 37396}# |
20594 | #{p 37599}# | |
20595 | (#{1-}# #{lev 37586}#))) | |
20596 | (#{vquasi 37397}# #{q 37593}# #{lev 37586}#)))) | |
20597 | #{tmp 37595}#) | |
20598 | (let ((#{tmp 37645}# | |
0f550375 | 20599 | ($sc-dispatch |
b2208d2e | 20600 | #{p 37592}# |
840cf0d1 AW |
20601 | '(#(free-id |
20602 | #(syntax-object | |
20603 | unquote-splicing | |
20604 | ((top) | |
20605 | #(ribcage | |
20606 | #(p q) | |
20607 | #((top) (top)) | |
b2208d2e | 20608 | #("i37181" "i37182")) |
840cf0d1 AW |
20609 | #(ribcage () () ()) |
20610 | #(ribcage | |
20611 | #(p lev) | |
20612 | #((top) (top)) | |
b2208d2e | 20613 | #("i37177" "i37178")) |
840cf0d1 AW |
20614 | #(ribcage |
20615 | (emit quasivector | |
20616 | quasilist* | |
20617 | quasiappend | |
20618 | quasicons | |
20619 | vquasi | |
20620 | quasi) | |
20621 | ((top) | |
20622 | (top) | |
20623 | (top) | |
20624 | (top) | |
20625 | (top) | |
20626 | (top) | |
20627 | (top)) | |
b2208d2e AW |
20628 | ("i37138" |
20629 | "i37136" | |
20630 | "i37134" | |
20631 | "i37132" | |
20632 | "i37130" | |
20633 | "i37128" | |
20634 | "i37126")) | |
0f9f51a1 AW |
20635 | #(ribcage |
20636 | (quasiquote) | |
20637 | ((top)) | |
20638 | (((hygiene guile) | |
20639 | . | |
20640 | #(syntax-object | |
20641 | quasiquote | |
20642 | ((top)) | |
20643 | (hygiene guile)))))) | |
840cf0d1 AW |
20644 | (hygiene guile))) |
20645 | . | |
20646 | each-any)))) | |
b2208d2e | 20647 | (if #{tmp 37645}# |
417ee098 | 20648 | (@apply |
b2208d2e AW |
20649 | (lambda (#{p 37649}#) |
20650 | (if (= #{lev 37586}# 0) | |
20651 | (#{quasiappend 37399}# | |
20652 | (map (lambda (#{tmp 37194 37652}#) | |
840cf0d1 AW |
20653 | (list '#(syntax-object |
20654 | "value" | |
0f550375 | 20655 | ((top) |
840cf0d1 AW |
20656 | #(ribcage |
20657 | #(p) | |
20658 | #((top)) | |
b2208d2e | 20659 | #("i37192")) |
840cf0d1 AW |
20660 | #(ribcage |
20661 | #(p q) | |
20662 | #((top) (top)) | |
b2208d2e | 20663 | #("i37181" "i37182")) |
840cf0d1 AW |
20664 | #(ribcage () () ()) |
20665 | #(ribcage | |
20666 | #(p lev) | |
20667 | #((top) (top)) | |
b2208d2e | 20668 | #("i37177" "i37178")) |
840cf0d1 AW |
20669 | #(ribcage |
20670 | (emit quasivector | |
20671 | quasilist* | |
20672 | quasiappend | |
20673 | quasicons | |
20674 | vquasi | |
20675 | quasi) | |
20676 | ((top) | |
20677 | (top) | |
20678 | (top) | |
20679 | (top) | |
20680 | (top) | |
20681 | (top) | |
20682 | (top)) | |
b2208d2e AW |
20683 | ("i37138" |
20684 | "i37136" | |
20685 | "i37134" | |
20686 | "i37132" | |
20687 | "i37130" | |
20688 | "i37128" | |
20689 | "i37126")) | |
0f9f51a1 AW |
20690 | #(ribcage |
20691 | (quasiquote) | |
20692 | ((top)) | |
20693 | (((hygiene guile) | |
20694 | . | |
20695 | #(syntax-object | |
20696 | quasiquote | |
20697 | ((top)) | |
20698 | (hygiene guile)))))) | |
840cf0d1 | 20699 | (hygiene guile)) |
b2208d2e AW |
20700 | #{tmp 37194 37652}#)) |
20701 | #{p 37649}#) | |
20702 | (#{vquasi 37397}# | |
20703 | #{q 37593}# | |
20704 | #{lev 37586}#)) | |
20705 | (#{quasicons 37398}# | |
20706 | (#{quasicons 37398}# | |
840cf0d1 AW |
20707 | '(#(syntax-object |
20708 | "quote" | |
20709 | ((top) | |
b2208d2e | 20710 | #(ribcage #(p) #((top)) #("i37192")) |
840cf0d1 AW |
20711 | #(ribcage |
20712 | #(p q) | |
20713 | #((top) (top)) | |
b2208d2e | 20714 | #("i37181" "i37182")) |
840cf0d1 AW |
20715 | #(ribcage () () ()) |
20716 | #(ribcage | |
20717 | #(p lev) | |
20718 | #((top) (top)) | |
b2208d2e | 20719 | #("i37177" "i37178")) |
840cf0d1 AW |
20720 | #(ribcage |
20721 | (emit quasivector | |
20722 | quasilist* | |
20723 | quasiappend | |
20724 | quasicons | |
20725 | vquasi | |
20726 | quasi) | |
20727 | ((top) | |
20728 | (top) | |
20729 | (top) | |
20730 | (top) | |
20731 | (top) | |
20732 | (top) | |
20733 | (top)) | |
b2208d2e AW |
20734 | ("i37138" |
20735 | "i37136" | |
20736 | "i37134" | |
20737 | "i37132" | |
20738 | "i37130" | |
20739 | "i37128" | |
20740 | "i37126")) | |
0f9f51a1 AW |
20741 | #(ribcage |
20742 | (quasiquote) | |
20743 | ((top)) | |
20744 | (((hygiene guile) | |
20745 | . | |
20746 | #(syntax-object | |
20747 | quasiquote | |
20748 | ((top)) | |
20749 | (hygiene guile)))))) | |
840cf0d1 AW |
20750 | (hygiene guile)) |
20751 | #(syntax-object | |
20752 | unquote-splicing | |
20753 | ((top) | |
b2208d2e | 20754 | #(ribcage #(p) #((top)) #("i37192")) |
840cf0d1 AW |
20755 | #(ribcage |
20756 | #(p q) | |
20757 | #((top) (top)) | |
b2208d2e | 20758 | #("i37181" "i37182")) |
840cf0d1 AW |
20759 | #(ribcage () () ()) |
20760 | #(ribcage | |
20761 | #(p lev) | |
20762 | #((top) (top)) | |
b2208d2e | 20763 | #("i37177" "i37178")) |
840cf0d1 AW |
20764 | #(ribcage |
20765 | (emit quasivector | |
20766 | quasilist* | |
20767 | quasiappend | |
20768 | quasicons | |
20769 | vquasi | |
20770 | quasi) | |
20771 | ((top) | |
20772 | (top) | |
20773 | (top) | |
20774 | (top) | |
20775 | (top) | |
20776 | (top) | |
20777 | (top)) | |
b2208d2e AW |
20778 | ("i37138" |
20779 | "i37136" | |
20780 | "i37134" | |
20781 | "i37132" | |
20782 | "i37130" | |
20783 | "i37128" | |
20784 | "i37126")) | |
0f9f51a1 AW |
20785 | #(ribcage |
20786 | (quasiquote) | |
20787 | ((top)) | |
20788 | (((hygiene guile) | |
20789 | . | |
20790 | #(syntax-object | |
20791 | quasiquote | |
20792 | ((top)) | |
20793 | (hygiene guile)))))) | |
840cf0d1 | 20794 | (hygiene guile))) |
b2208d2e AW |
20795 | (#{quasi 37396}# |
20796 | #{p 37649}# | |
20797 | (#{1-}# #{lev 37586}#))) | |
20798 | (#{vquasi 37397}# | |
20799 | #{q 37593}# | |
20800 | #{lev 37586}#)))) | |
20801 | #{tmp 37645}#) | |
20802 | (#{quasicons 37398}# | |
20803 | (#{quasi 37396}# #{p 37592}# #{lev 37586}#) | |
20804 | (#{vquasi 37397}# #{q 37593}# #{lev 37586}#))))))) | |
20805 | #{tmp 37588}#) | |
20806 | (let ((#{tmp 37670}# ($sc-dispatch #{p 37585}# '()))) | |
20807 | (if #{tmp 37670}# | |
840cf0d1 AW |
20808 | (@apply |
20809 | (lambda () | |
20810 | '(#(syntax-object | |
20811 | "quote" | |
20812 | ((top) | |
20813 | #(ribcage () () ()) | |
20814 | #(ribcage | |
20815 | #(p lev) | |
20816 | #((top) (top)) | |
b2208d2e | 20817 | #("i37177" "i37178")) |
840cf0d1 AW |
20818 | #(ribcage |
20819 | (emit quasivector | |
20820 | quasilist* | |
20821 | quasiappend | |
20822 | quasicons | |
20823 | vquasi | |
20824 | quasi) | |
20825 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
20826 | ("i37138" |
20827 | "i37136" | |
20828 | "i37134" | |
20829 | "i37132" | |
20830 | "i37130" | |
20831 | "i37128" | |
20832 | "i37126")) | |
0f9f51a1 AW |
20833 | #(ribcage |
20834 | (quasiquote) | |
20835 | ((top)) | |
20836 | (((hygiene guile) | |
20837 | . | |
20838 | #(syntax-object | |
20839 | quasiquote | |
20840 | ((top)) | |
20841 | (hygiene guile)))))) | |
840cf0d1 AW |
20842 | (hygiene guile)) |
20843 | ())) | |
b2208d2e | 20844 | #{tmp 37670}#) |
840cf0d1 AW |
20845 | (syntax-violation |
20846 | #f | |
20847 | "source expression failed to match any pattern" | |
b2208d2e AW |
20848 | #{p 37585}#))))))) |
20849 | (#{quasicons 37398}# | |
20850 | (lambda (#{x 37683}# #{y 37684}#) | |
20851 | (let ((#{tmp 37685}# (list #{x 37683}# #{y 37684}#))) | |
20852 | (let ((#{tmp 37686}# | |
20853 | ($sc-dispatch #{tmp 37685}# '(any any)))) | |
20854 | (if #{tmp 37686}# | |
840cf0d1 | 20855 | (@apply |
b2208d2e AW |
20856 | (lambda (#{x 37688}# #{y 37689}#) |
20857 | (let ((#{tmp 37691}# | |
840cf0d1 | 20858 | ($sc-dispatch |
b2208d2e | 20859 | #{y 37689}# |
840cf0d1 | 20860 | '(#(atom "quote") any)))) |
b2208d2e | 20861 | (if #{tmp 37691}# |
840cf0d1 | 20862 | (@apply |
b2208d2e AW |
20863 | (lambda (#{dy 37695}#) |
20864 | (let ((#{tmp 37697}# | |
840cf0d1 | 20865 | ($sc-dispatch |
b2208d2e | 20866 | #{x 37688}# |
840cf0d1 | 20867 | '(#(atom "quote") any)))) |
b2208d2e | 20868 | (if #{tmp 37697}# |
840cf0d1 | 20869 | (@apply |
b2208d2e | 20870 | (lambda (#{dx 37701}#) |
0f550375 | 20871 | (list '#(syntax-object |
840cf0d1 | 20872 | "quote" |
0f550375 AW |
20873 | ((top) |
20874 | #(ribcage | |
840cf0d1 | 20875 | #(dx) |
0f550375 | 20876 | #((top)) |
b2208d2e | 20877 | #("i37216")) |
840cf0d1 AW |
20878 | #(ribcage |
20879 | #(dy) | |
20880 | #((top)) | |
b2208d2e | 20881 | #("i37212")) |
f929b9e5 | 20882 | #(ribcage () () ()) |
0f550375 AW |
20883 | #(ribcage |
20884 | #(x y) | |
20885 | #((top) (top)) | |
b2208d2e | 20886 | #("i37206" "i37207")) |
0f550375 AW |
20887 | #(ribcage () () ()) |
20888 | #(ribcage () () ()) | |
20889 | #(ribcage | |
20890 | #(x y) | |
20891 | #((top) (top)) | |
b2208d2e | 20892 | #("i37201" "i37202")) |
0f550375 AW |
20893 | #(ribcage |
20894 | (emit quasivector | |
20895 | quasilist* | |
20896 | quasiappend | |
20897 | quasicons | |
20898 | vquasi | |
20899 | quasi) | |
20900 | ((top) | |
20901 | (top) | |
20902 | (top) | |
20903 | (top) | |
20904 | (top) | |
20905 | (top) | |
20906 | (top)) | |
b2208d2e AW |
20907 | ("i37138" |
20908 | "i37136" | |
20909 | "i37134" | |
20910 | "i37132" | |
20911 | "i37130" | |
20912 | "i37128" | |
20913 | "i37126")) | |
0f9f51a1 AW |
20914 | #(ribcage |
20915 | (quasiquote) | |
20916 | ((top)) | |
20917 | (((hygiene guile) | |
20918 | . | |
20919 | #(syntax-object | |
20920 | quasiquote | |
20921 | ((top)) | |
20922 | (hygiene guile)))))) | |
0f550375 | 20923 | (hygiene guile)) |
b2208d2e AW |
20924 | (cons #{dx 37701}# #{dy 37695}#))) |
20925 | #{tmp 37697}#) | |
20926 | (if (null? #{dy 37695}#) | |
840cf0d1 AW |
20927 | (list '#(syntax-object |
20928 | "list" | |
417ee098 AW |
20929 | ((top) |
20930 | #(ribcage | |
840cf0d1 AW |
20931 | #(_) |
20932 | #((top)) | |
b2208d2e | 20933 | #("i37218")) |
840cf0d1 AW |
20934 | #(ribcage |
20935 | #(dy) | |
0f550375 | 20936 | #((top)) |
b2208d2e | 20937 | #("i37212")) |
417ee098 AW |
20938 | #(ribcage () () ()) |
20939 | #(ribcage | |
0f550375 | 20940 | #(x y) |
417ee098 | 20941 | #((top) (top)) |
b2208d2e | 20942 | #("i37206" "i37207")) |
25711fa4 | 20943 | #(ribcage () () ()) |
25711fa4 AW |
20944 | #(ribcage () () ()) |
20945 | #(ribcage | |
840cf0d1 AW |
20946 | #(x y) |
20947 | #((top) (top)) | |
b2208d2e | 20948 | #("i37201" "i37202")) |
840cf0d1 AW |
20949 | #(ribcage |
20950 | (emit quasivector | |
20951 | quasilist* | |
20952 | quasiappend | |
20953 | quasicons | |
20954 | vquasi | |
20955 | quasi) | |
20956 | ((top) | |
20957 | (top) | |
20958 | (top) | |
20959 | (top) | |
20960 | (top) | |
20961 | (top) | |
20962 | (top)) | |
b2208d2e AW |
20963 | ("i37138" |
20964 | "i37136" | |
20965 | "i37134" | |
20966 | "i37132" | |
20967 | "i37130" | |
20968 | "i37128" | |
20969 | "i37126")) | |
0f9f51a1 AW |
20970 | #(ribcage |
20971 | (quasiquote) | |
20972 | ((top)) | |
20973 | (((hygiene guile) | |
20974 | . | |
20975 | #(syntax-object | |
20976 | quasiquote | |
20977 | ((top)) | |
20978 | (hygiene guile)))))) | |
840cf0d1 | 20979 | (hygiene guile)) |
b2208d2e | 20980 | #{x 37688}#) |
840cf0d1 AW |
20981 | (list '#(syntax-object |
20982 | "list*" | |
0f550375 AW |
20983 | ((top) |
20984 | #(ribcage | |
840cf0d1 AW |
20985 | #(_) |
20986 | #((top)) | |
b2208d2e | 20987 | #("i37218")) |
0f550375 | 20988 | #(ribcage |
840cf0d1 | 20989 | #(dy) |
0f550375 | 20990 | #((top)) |
b2208d2e | 20991 | #("i37212")) |
0f550375 AW |
20992 | #(ribcage () () ()) |
20993 | #(ribcage | |
840cf0d1 AW |
20994 | #(x y) |
20995 | #((top) (top)) | |
b2208d2e | 20996 | #("i37206" "i37207")) |
840cf0d1 AW |
20997 | #(ribcage () () ()) |
20998 | #(ribcage () () ()) | |
20999 | #(ribcage | |
21000 | #(x y) | |
21001 | #((top) (top)) | |
b2208d2e | 21002 | #("i37201" "i37202")) |
0f550375 AW |
21003 | #(ribcage |
21004 | (emit quasivector | |
21005 | quasilist* | |
21006 | quasiappend | |
21007 | quasicons | |
21008 | vquasi | |
21009 | quasi) | |
21010 | ((top) | |
21011 | (top) | |
21012 | (top) | |
21013 | (top) | |
21014 | (top) | |
21015 | (top) | |
21016 | (top)) | |
b2208d2e AW |
21017 | ("i37138" |
21018 | "i37136" | |
21019 | "i37134" | |
21020 | "i37132" | |
21021 | "i37130" | |
21022 | "i37128" | |
21023 | "i37126")) | |
0f9f51a1 AW |
21024 | #(ribcage |
21025 | (quasiquote) | |
21026 | ((top)) | |
21027 | (((hygiene guile) | |
21028 | . | |
21029 | #(syntax-object | |
21030 | quasiquote | |
21031 | ((top)) | |
21032 | (hygiene guile)))))) | |
0f550375 | 21033 | (hygiene guile)) |
b2208d2e AW |
21034 | #{x 37688}# |
21035 | #{y 37689}#))))) | |
21036 | #{tmp 37691}#) | |
21037 | (let ((#{tmp 37706}# | |
0f550375 | 21038 | ($sc-dispatch |
b2208d2e | 21039 | #{y 37689}# |
840cf0d1 | 21040 | '(#(atom "list") . any)))) |
b2208d2e | 21041 | (if #{tmp 37706}# |
0f550375 | 21042 | (@apply |
b2208d2e | 21043 | (lambda (#{stuff 37710}#) |
840cf0d1 AW |
21044 | (cons '#(syntax-object |
21045 | "list" | |
21046 | ((top) | |
21047 | #(ribcage | |
21048 | #(stuff) | |
21049 | #((top)) | |
b2208d2e | 21050 | #("i37221")) |
840cf0d1 AW |
21051 | #(ribcage () () ()) |
21052 | #(ribcage | |
21053 | #(x y) | |
21054 | #((top) (top)) | |
b2208d2e | 21055 | #("i37206" "i37207")) |
840cf0d1 AW |
21056 | #(ribcage () () ()) |
21057 | #(ribcage () () ()) | |
21058 | #(ribcage | |
21059 | #(x y) | |
21060 | #((top) (top)) | |
b2208d2e | 21061 | #("i37201" "i37202")) |
840cf0d1 AW |
21062 | #(ribcage |
21063 | (emit quasivector | |
21064 | quasilist* | |
21065 | quasiappend | |
21066 | quasicons | |
21067 | vquasi | |
21068 | quasi) | |
21069 | ((top) | |
21070 | (top) | |
21071 | (top) | |
21072 | (top) | |
21073 | (top) | |
21074 | (top) | |
21075 | (top)) | |
b2208d2e AW |
21076 | ("i37138" |
21077 | "i37136" | |
21078 | "i37134" | |
21079 | "i37132" | |
21080 | "i37130" | |
21081 | "i37128" | |
21082 | "i37126")) | |
0f9f51a1 AW |
21083 | #(ribcage |
21084 | (quasiquote) | |
21085 | ((top)) | |
21086 | (((hygiene guile) | |
21087 | . | |
21088 | #(syntax-object | |
21089 | quasiquote | |
21090 | ((top)) | |
21091 | (hygiene guile)))))) | |
840cf0d1 | 21092 | (hygiene guile)) |
b2208d2e AW |
21093 | (cons #{x 37688}# #{stuff 37710}#))) |
21094 | #{tmp 37706}#) | |
21095 | (let ((#{tmp 37711}# | |
840cf0d1 | 21096 | ($sc-dispatch |
b2208d2e | 21097 | #{y 37689}# |
840cf0d1 | 21098 | '(#(atom "list*") . any)))) |
b2208d2e | 21099 | (if #{tmp 37711}# |
840cf0d1 | 21100 | (@apply |
b2208d2e | 21101 | (lambda (#{stuff 37715}#) |
840cf0d1 AW |
21102 | (cons '#(syntax-object |
21103 | "list*" | |
21104 | ((top) | |
21105 | #(ribcage | |
21106 | #(stuff) | |
21107 | #((top)) | |
b2208d2e | 21108 | #("i37224")) |
840cf0d1 AW |
21109 | #(ribcage () () ()) |
21110 | #(ribcage | |
21111 | #(x y) | |
21112 | #((top) (top)) | |
b2208d2e | 21113 | #("i37206" "i37207")) |
840cf0d1 AW |
21114 | #(ribcage () () ()) |
21115 | #(ribcage () () ()) | |
21116 | #(ribcage | |
21117 | #(x y) | |
21118 | #((top) (top)) | |
b2208d2e | 21119 | #("i37201" "i37202")) |
840cf0d1 AW |
21120 | #(ribcage |
21121 | (emit quasivector | |
21122 | quasilist* | |
21123 | quasiappend | |
21124 | quasicons | |
21125 | vquasi | |
21126 | quasi) | |
21127 | ((top) | |
21128 | (top) | |
21129 | (top) | |
21130 | (top) | |
21131 | (top) | |
21132 | (top) | |
21133 | (top)) | |
b2208d2e AW |
21134 | ("i37138" |
21135 | "i37136" | |
21136 | "i37134" | |
21137 | "i37132" | |
21138 | "i37130" | |
21139 | "i37128" | |
21140 | "i37126")) | |
0f9f51a1 AW |
21141 | #(ribcage |
21142 | (quasiquote) | |
21143 | ((top)) | |
21144 | (((hygiene guile) | |
21145 | . | |
21146 | #(syntax-object | |
21147 | quasiquote | |
21148 | ((top)) | |
21149 | (hygiene guile)))))) | |
840cf0d1 | 21150 | (hygiene guile)) |
b2208d2e AW |
21151 | (cons #{x 37688}# #{stuff 37715}#))) |
21152 | #{tmp 37711}#) | |
840cf0d1 AW |
21153 | (list '#(syntax-object |
21154 | "list*" | |
21155 | ((top) | |
b2208d2e | 21156 | #(ribcage #(_) #((top)) #("i37226")) |
840cf0d1 AW |
21157 | #(ribcage () () ()) |
21158 | #(ribcage | |
21159 | #(x y) | |
21160 | #((top) (top)) | |
b2208d2e | 21161 | #("i37206" "i37207")) |
840cf0d1 AW |
21162 | #(ribcage () () ()) |
21163 | #(ribcage () () ()) | |
21164 | #(ribcage | |
21165 | #(x y) | |
21166 | #((top) (top)) | |
b2208d2e | 21167 | #("i37201" "i37202")) |
840cf0d1 AW |
21168 | #(ribcage |
21169 | (emit quasivector | |
21170 | quasilist* | |
21171 | quasiappend | |
21172 | quasicons | |
21173 | vquasi | |
21174 | quasi) | |
21175 | ((top) | |
21176 | (top) | |
21177 | (top) | |
21178 | (top) | |
21179 | (top) | |
21180 | (top) | |
21181 | (top)) | |
b2208d2e AW |
21182 | ("i37138" |
21183 | "i37136" | |
21184 | "i37134" | |
21185 | "i37132" | |
21186 | "i37130" | |
21187 | "i37128" | |
21188 | "i37126")) | |
0f9f51a1 AW |
21189 | #(ribcage |
21190 | (quasiquote) | |
21191 | ((top)) | |
21192 | (((hygiene guile) | |
21193 | . | |
21194 | #(syntax-object | |
21195 | quasiquote | |
21196 | ((top)) | |
21197 | (hygiene guile)))))) | |
840cf0d1 | 21198 | (hygiene guile)) |
b2208d2e AW |
21199 | #{x 37688}# |
21200 | #{y 37689}#)))))))) | |
21201 | #{tmp 37686}#) | |
840cf0d1 AW |
21202 | (syntax-violation |
21203 | #f | |
21204 | "source expression failed to match any pattern" | |
b2208d2e AW |
21205 | #{tmp 37685}#)))))) |
21206 | (#{quasiappend 37399}# | |
21207 | (lambda (#{x 37726}# #{y 37727}#) | |
21208 | (let ((#{tmp 37729}# | |
21209 | ($sc-dispatch #{y 37727}# '(#(atom "quote") ())))) | |
21210 | (if #{tmp 37729}# | |
840cf0d1 AW |
21211 | (@apply |
21212 | (lambda () | |
b2208d2e | 21213 | (if (null? #{x 37726}#) |
840cf0d1 AW |
21214 | '(#(syntax-object |
21215 | "quote" | |
21216 | ((top) | |
21217 | #(ribcage () () ()) | |
21218 | #(ribcage | |
21219 | #(x y) | |
21220 | #((top) (top)) | |
b2208d2e | 21221 | #("i37230" "i37231")) |
840cf0d1 AW |
21222 | #(ribcage |
21223 | (emit quasivector | |
21224 | quasilist* | |
21225 | quasiappend | |
21226 | quasicons | |
21227 | vquasi | |
21228 | quasi) | |
21229 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
21230 | ("i37138" |
21231 | "i37136" | |
21232 | "i37134" | |
21233 | "i37132" | |
21234 | "i37130" | |
21235 | "i37128" | |
21236 | "i37126")) | |
0f9f51a1 AW |
21237 | #(ribcage |
21238 | (quasiquote) | |
21239 | ((top)) | |
21240 | (((hygiene guile) | |
21241 | . | |
21242 | #(syntax-object | |
21243 | quasiquote | |
21244 | ((top)) | |
21245 | (hygiene guile)))))) | |
840cf0d1 AW |
21246 | (hygiene guile)) |
21247 | ()) | |
b2208d2e AW |
21248 | (if (null? (cdr #{x 37726}#)) |
21249 | (car #{x 37726}#) | |
21250 | (let ((#{tmp 37734}# | |
21251 | ($sc-dispatch #{x 37726}# 'each-any))) | |
21252 | (if #{tmp 37734}# | |
840cf0d1 | 21253 | (@apply |
b2208d2e | 21254 | (lambda (#{p 37738}#) |
840cf0d1 AW |
21255 | (cons '#(syntax-object |
21256 | "append" | |
21257 | ((top) | |
21258 | #(ribcage () () ()) | |
b2208d2e | 21259 | #(ribcage #(p) #((top)) #("i37242")) |
840cf0d1 AW |
21260 | #(ribcage () () ()) |
21261 | #(ribcage | |
21262 | #(x y) | |
21263 | #((top) (top)) | |
b2208d2e | 21264 | #("i37230" "i37231")) |
840cf0d1 AW |
21265 | #(ribcage |
21266 | (emit quasivector | |
21267 | quasilist* | |
21268 | quasiappend | |
21269 | quasicons | |
21270 | vquasi | |
21271 | quasi) | |
21272 | ((top) | |
21273 | (top) | |
21274 | (top) | |
21275 | (top) | |
21276 | (top) | |
21277 | (top) | |
21278 | (top)) | |
b2208d2e AW |
21279 | ("i37138" |
21280 | "i37136" | |
21281 | "i37134" | |
21282 | "i37132" | |
21283 | "i37130" | |
21284 | "i37128" | |
21285 | "i37126")) | |
0f9f51a1 AW |
21286 | #(ribcage |
21287 | (quasiquote) | |
21288 | ((top)) | |
21289 | (((hygiene guile) | |
21290 | . | |
21291 | #(syntax-object | |
21292 | quasiquote | |
21293 | ((top)) | |
21294 | (hygiene guile)))))) | |
840cf0d1 | 21295 | (hygiene guile)) |
b2208d2e AW |
21296 | #{p 37738}#)) |
21297 | #{tmp 37734}#) | |
840cf0d1 AW |
21298 | (syntax-violation |
21299 | #f | |
21300 | "source expression failed to match any pattern" | |
b2208d2e AW |
21301 | #{x 37726}#)))))) |
21302 | #{tmp 37729}#) | |
21303 | (if (null? #{x 37726}#) | |
21304 | #{y 37727}# | |
21305 | (let ((#{tmp 37746}# (list #{x 37726}# #{y 37727}#))) | |
21306 | (let ((#{tmp 37747}# | |
21307 | ($sc-dispatch #{tmp 37746}# '(each-any any)))) | |
21308 | (if #{tmp 37747}# | |
840cf0d1 | 21309 | (@apply |
b2208d2e | 21310 | (lambda (#{p 37749}# #{y 37750}#) |
840cf0d1 AW |
21311 | (cons '#(syntax-object |
21312 | "append" | |
21313 | ((top) | |
21314 | #(ribcage () () ()) | |
21315 | #(ribcage | |
21316 | #(p y) | |
21317 | #((top) (top)) | |
b2208d2e AW |
21318 | #("i37253" "i37254")) |
21319 | #(ribcage #(_) #((top)) #("i37245")) | |
840cf0d1 AW |
21320 | #(ribcage () () ()) |
21321 | #(ribcage | |
21322 | #(x y) | |
21323 | #((top) (top)) | |
b2208d2e | 21324 | #("i37230" "i37231")) |
840cf0d1 AW |
21325 | #(ribcage |
21326 | (emit quasivector | |
21327 | quasilist* | |
21328 | quasiappend | |
21329 | quasicons | |
21330 | vquasi | |
21331 | quasi) | |
21332 | ((top) | |
21333 | (top) | |
21334 | (top) | |
21335 | (top) | |
21336 | (top) | |
21337 | (top) | |
21338 | (top)) | |
b2208d2e AW |
21339 | ("i37138" |
21340 | "i37136" | |
21341 | "i37134" | |
21342 | "i37132" | |
21343 | "i37130" | |
21344 | "i37128" | |
21345 | "i37126")) | |
0f9f51a1 AW |
21346 | #(ribcage |
21347 | (quasiquote) | |
21348 | ((top)) | |
21349 | (((hygiene guile) | |
21350 | . | |
21351 | #(syntax-object | |
21352 | quasiquote | |
21353 | ((top)) | |
21354 | (hygiene guile)))))) | |
840cf0d1 | 21355 | (hygiene guile)) |
b2208d2e AW |
21356 | (append #{p 37749}# (list #{y 37750}#)))) |
21357 | #{tmp 37747}#) | |
840cf0d1 AW |
21358 | (syntax-violation |
21359 | #f | |
21360 | "source expression failed to match any pattern" | |
b2208d2e AW |
21361 | #{tmp 37746}#))))))))) |
21362 | (#{quasilist* 37400}# | |
21363 | (lambda (#{x 37754}# #{y 37755}#) | |
840cf0d1 | 21364 | (letrec* |
b2208d2e AW |
21365 | ((#{f 37756}# |
21366 | (lambda (#{x 37860}#) | |
21367 | (if (null? #{x 37860}#) | |
21368 | #{y 37755}# | |
21369 | (#{quasicons 37398}# | |
21370 | (car #{x 37860}#) | |
21371 | (#{f 37756}# (cdr #{x 37860}#))))))) | |
21372 | (#{f 37756}# #{x 37754}#)))) | |
21373 | (#{emit 37402}# | |
21374 | (lambda (#{x 37863}#) | |
21375 | (let ((#{tmp 37865}# | |
21376 | ($sc-dispatch #{x 37863}# '(#(atom "quote") any)))) | |
21377 | (if #{tmp 37865}# | |
840cf0d1 | 21378 | (@apply |
b2208d2e | 21379 | (lambda (#{x 37869}#) |
840cf0d1 AW |
21380 | (list '#(syntax-object |
21381 | quote | |
21382 | ((top) | |
b2208d2e | 21383 | #(ribcage #(x) #((top)) #("i37320")) |
148dfc24 | 21384 | #(ribcage () () ()) |
b2208d2e | 21385 | #(ribcage #(x) #((top)) #("i37317")) |
840cf0d1 AW |
21386 | #(ribcage |
21387 | (emit quasivector | |
21388 | quasilist* | |
21389 | quasiappend | |
21390 | quasicons | |
21391 | vquasi | |
21392 | quasi) | |
21393 | ((top) (top) (top) (top) (top) (top) (top)) | |
b2208d2e AW |
21394 | ("i37138" |
21395 | "i37136" | |
21396 | "i37134" | |
21397 | "i37132" | |
21398 | "i37130" | |
21399 | "i37128" | |
21400 | "i37126")) | |
0f9f51a1 AW |
21401 | #(ribcage |
21402 | (quasiquote) | |
21403 | ((top)) | |
21404 | (((hygiene guile) | |
21405 | . | |
21406 | #(syntax-object | |
21407 | quasiquote | |
21408 | ((top)) | |
21409 | (hygiene guile)))))) | |
840cf0d1 | 21410 | (hygiene guile)) |
b2208d2e AW |
21411 | #{x 37869}#)) |
21412 | #{tmp 37865}#) | |
21413 | (let ((#{tmp 37870}# | |
840cf0d1 | 21414 | ($sc-dispatch |
b2208d2e | 21415 | #{x 37863}# |
840cf0d1 | 21416 | '(#(atom "list") . each-any)))) |
b2208d2e | 21417 | (if #{tmp 37870}# |
840cf0d1 | 21418 | (@apply |
b2208d2e AW |
21419 | (lambda (#{x 37874}#) |
21420 | (let ((#{tmp 37875}# (map #{emit 37402}# #{x 37874}#))) | |
21421 | (let ((#{tmp 37876}# | |
21422 | ($sc-dispatch #{tmp 37875}# 'each-any))) | |
21423 | (if #{tmp 37876}# | |
840cf0d1 | 21424 | (@apply |
b2208d2e | 21425 | (lambda (#{ g37325 37878}#) |
840cf0d1 AW |
21426 | (cons '#(syntax-object |
21427 | list | |
21428 | ((top) | |
21429 | #(ribcage () () ()) | |
21430 | #(ribcage | |
b2208d2e AW |
21431 | #(#{ g37325}#) |
21432 | #((m37326 top)) | |
21433 | #("i37330")) | |
21434 | #(ribcage #(x) #((top)) #("i37323")) | |
840cf0d1 | 21435 | #(ribcage () () ()) |
b2208d2e | 21436 | #(ribcage #(x) #((top)) #("i37317")) |
840cf0d1 AW |
21437 | #(ribcage |
21438 | (emit quasivector | |
21439 | quasilist* | |
21440 | quasiappend | |
21441 | quasicons | |
21442 | vquasi | |
21443 | quasi) | |
21444 | ((top) | |
21445 | (top) | |
21446 | (top) | |
21447 | (top) | |
21448 | (top) | |
21449 | (top) | |
21450 | (top)) | |
b2208d2e AW |
21451 | ("i37138" |
21452 | "i37136" | |
21453 | "i37134" | |
21454 | "i37132" | |
21455 | "i37130" | |
21456 | "i37128" | |
21457 | "i37126")) | |
0f9f51a1 AW |
21458 | #(ribcage |
21459 | (quasiquote) | |
21460 | ((top)) | |
21461 | (((hygiene guile) | |
21462 | . | |
21463 | #(syntax-object | |
21464 | quasiquote | |
21465 | ((top)) | |
21466 | (hygiene guile)))))) | |
840cf0d1 | 21467 | (hygiene guile)) |
b2208d2e AW |
21468 | #{ g37325 37878}#)) |
21469 | #{tmp 37876}#) | |
840cf0d1 AW |
21470 | (syntax-violation |
21471 | #f | |
21472 | "source expression failed to match any pattern" | |
b2208d2e AW |
21473 | #{tmp 37875}#))))) |
21474 | #{tmp 37870}#) | |
21475 | (let ((#{tmp 37879}# | |
840cf0d1 | 21476 | ($sc-dispatch |
b2208d2e | 21477 | #{x 37863}# |
840cf0d1 | 21478 | '(#(atom "list*") . #(each+ any (any) ()))))) |
b2208d2e | 21479 | (if #{tmp 37879}# |
840cf0d1 | 21480 | (@apply |
b2208d2e | 21481 | (lambda (#{x 37883}# #{y 37884}#) |
840cf0d1 | 21482 | (letrec* |
b2208d2e AW |
21483 | ((#{f 37885}# |
21484 | (lambda (#{x* 37888}#) | |
21485 | (if (null? #{x* 37888}#) | |
21486 | (#{emit 37402}# #{y 37884}#) | |
21487 | (let ((#{tmp 37889}# | |
21488 | (list (#{emit 37402}# | |
21489 | (car #{x* 37888}#)) | |
21490 | (#{f 37885}# | |
21491 | (cdr #{x* 37888}#))))) | |
21492 | (let ((#{tmp 37890}# | |
840cf0d1 | 21493 | ($sc-dispatch |
b2208d2e | 21494 | #{tmp 37889}# |
840cf0d1 | 21495 | '(any any)))) |
b2208d2e | 21496 | (if #{tmp 37890}# |
840cf0d1 | 21497 | (@apply |
b2208d2e AW |
21498 | (lambda (#{ g37345 37892}# |
21499 | #{ g37344 37893}#) | |
840cf0d1 AW |
21500 | (list '#(syntax-object |
21501 | cons | |
0f550375 | 21502 | ((top) |
840cf0d1 AW |
21503 | #(ribcage () () ()) |
21504 | #(ribcage | |
b2208d2e AW |
21505 | #(#{ g37345}# |
21506 | #{ g37344}#) | |
21507 | #((m37346 top) | |
21508 | (m37346 top)) | |
21509 | #("i37350" "i37351")) | |
840cf0d1 AW |
21510 | #(ribcage () () ()) |
21511 | #(ribcage | |
21512 | #(f x*) | |
21513 | #((top) (top)) | |
b2208d2e | 21514 | #("i37339" "i37340")) |
840cf0d1 AW |
21515 | #(ribcage |
21516 | #(x y) | |
21517 | #((top) (top)) | |
b2208d2e | 21518 | #("i37335" "i37336")) |
840cf0d1 AW |
21519 | #(ribcage () () ()) |
21520 | #(ribcage | |
21521 | #(x) | |
21522 | #((top)) | |
b2208d2e | 21523 | #("i37317")) |
840cf0d1 AW |
21524 | #(ribcage |
21525 | (emit quasivector | |
21526 | quasilist* | |
21527 | quasiappend | |
21528 | quasicons | |
21529 | vquasi | |
21530 | quasi) | |
21531 | ((top) | |
21532 | (top) | |
21533 | (top) | |
21534 | (top) | |
21535 | (top) | |
21536 | (top) | |
21537 | (top)) | |
b2208d2e AW |
21538 | ("i37138" |
21539 | "i37136" | |
21540 | "i37134" | |
21541 | "i37132" | |
21542 | "i37130" | |
21543 | "i37128" | |
21544 | "i37126")) | |
0f9f51a1 AW |
21545 | #(ribcage |
21546 | (quasiquote) | |
21547 | ((top)) | |
21548 | (((hygiene guile) | |
21549 | . | |
21550 | #(syntax-object | |
21551 | quasiquote | |
21552 | ((top)) | |
21553 | (hygiene | |
21554 | guile)))))) | |
840cf0d1 | 21555 | (hygiene guile)) |
b2208d2e AW |
21556 | #{ g37345 37892}# |
21557 | #{ g37344 37893}#)) | |
21558 | #{tmp 37890}#) | |
840cf0d1 AW |
21559 | (syntax-violation |
21560 | #f | |
21561 | "source expression failed to match any pattern" | |
b2208d2e AW |
21562 | #{tmp 37889}#)))))))) |
21563 | (#{f 37885}# #{x 37883}#))) | |
21564 | #{tmp 37879}#) | |
21565 | (let ((#{tmp 37894}# | |
840cf0d1 | 21566 | ($sc-dispatch |
b2208d2e | 21567 | #{x 37863}# |
840cf0d1 | 21568 | '(#(atom "append") . each-any)))) |
b2208d2e | 21569 | (if #{tmp 37894}# |
840cf0d1 | 21570 | (@apply |
b2208d2e AW |
21571 | (lambda (#{x 37898}#) |
21572 | (let ((#{tmp 37899}# | |
21573 | (map #{emit 37402}# #{x 37898}#))) | |
21574 | (let ((#{tmp 37900}# | |
0f550375 | 21575 | ($sc-dispatch |
b2208d2e | 21576 | #{tmp 37899}# |
840cf0d1 | 21577 | 'each-any))) |
b2208d2e | 21578 | (if #{tmp 37900}# |
0f550375 | 21579 | (@apply |
b2208d2e | 21580 | (lambda (#{ g37357 37902}#) |
840cf0d1 AW |
21581 | (cons '#(syntax-object |
21582 | append | |
21583 | ((top) | |
21584 | #(ribcage () () ()) | |
21585 | #(ribcage | |
b2208d2e AW |
21586 | #(#{ g37357}#) |
21587 | #((m37358 top)) | |
21588 | #("i37362")) | |
840cf0d1 AW |
21589 | #(ribcage |
21590 | #(x) | |
21591 | #((top)) | |
b2208d2e | 21592 | #("i37355")) |
840cf0d1 AW |
21593 | #(ribcage () () ()) |
21594 | #(ribcage | |
21595 | #(x) | |
21596 | #((top)) | |
b2208d2e | 21597 | #("i37317")) |
840cf0d1 AW |
21598 | #(ribcage |
21599 | (emit quasivector | |
21600 | quasilist* | |
21601 | quasiappend | |
21602 | quasicons | |
21603 | vquasi | |
21604 | quasi) | |
21605 | ((top) | |
21606 | (top) | |
21607 | (top) | |
21608 | (top) | |
21609 | (top) | |
21610 | (top) | |
21611 | (top)) | |
b2208d2e AW |
21612 | ("i37138" |
21613 | "i37136" | |
21614 | "i37134" | |
21615 | "i37132" | |
21616 | "i37130" | |
21617 | "i37128" | |
21618 | "i37126")) | |
0f9f51a1 AW |
21619 | #(ribcage |
21620 | (quasiquote) | |
21621 | ((top)) | |
21622 | (((hygiene guile) | |
21623 | . | |
21624 | #(syntax-object | |
21625 | quasiquote | |
21626 | ((top)) | |
21627 | (hygiene guile)))))) | |
840cf0d1 | 21628 | (hygiene guile)) |
b2208d2e AW |
21629 | #{ g37357 37902}#)) |
21630 | #{tmp 37900}#) | |
840cf0d1 AW |
21631 | (syntax-violation |
21632 | #f | |
21633 | "source expression failed to match any pattern" | |
b2208d2e AW |
21634 | #{tmp 37899}#))))) |
21635 | #{tmp 37894}#) | |
21636 | (let ((#{tmp 37903}# | |
840cf0d1 | 21637 | ($sc-dispatch |
b2208d2e | 21638 | #{x 37863}# |
840cf0d1 | 21639 | '(#(atom "vector") . each-any)))) |
b2208d2e | 21640 | (if #{tmp 37903}# |
840cf0d1 | 21641 | (@apply |
b2208d2e AW |
21642 | (lambda (#{x 37907}#) |
21643 | (let ((#{tmp 37908}# | |
21644 | (map #{emit 37402}# #{x 37907}#))) | |
21645 | (let ((#{tmp 37909}# | |
840cf0d1 | 21646 | ($sc-dispatch |
b2208d2e | 21647 | #{tmp 37908}# |
840cf0d1 | 21648 | 'each-any))) |
b2208d2e | 21649 | (if #{tmp 37909}# |
840cf0d1 | 21650 | (@apply |
b2208d2e | 21651 | (lambda (#{ g37369 37911}#) |
840cf0d1 AW |
21652 | (cons '#(syntax-object |
21653 | vector | |
0f550375 | 21654 | ((top) |
f929b9e5 | 21655 | #(ribcage () () ()) |
0f550375 | 21656 | #(ribcage |
b2208d2e AW |
21657 | #(#{ g37369}#) |
21658 | #((m37370 top)) | |
21659 | #("i37374")) | |
0f550375 AW |
21660 | #(ribcage |
21661 | #(x) | |
21662 | #((top)) | |
b2208d2e | 21663 | #("i37367")) |
0f550375 AW |
21664 | #(ribcage () () ()) |
21665 | #(ribcage | |
21666 | #(x) | |
21667 | #((top)) | |
b2208d2e | 21668 | #("i37317")) |
0f550375 AW |
21669 | #(ribcage |
21670 | (emit quasivector | |
21671 | quasilist* | |
21672 | quasiappend | |
21673 | quasicons | |
21674 | vquasi | |
21675 | quasi) | |
21676 | ((top) | |
21677 | (top) | |
21678 | (top) | |
21679 | (top) | |
21680 | (top) | |
21681 | (top) | |
21682 | (top)) | |
b2208d2e AW |
21683 | ("i37138" |
21684 | "i37136" | |
21685 | "i37134" | |
21686 | "i37132" | |
21687 | "i37130" | |
21688 | "i37128" | |
21689 | "i37126")) | |
0f9f51a1 AW |
21690 | #(ribcage |
21691 | (quasiquote) | |
21692 | ((top)) | |
21693 | (((hygiene guile) | |
21694 | . | |
21695 | #(syntax-object | |
21696 | quasiquote | |
21697 | ((top)) | |
21698 | (hygiene | |
21699 | guile)))))) | |
0f550375 | 21700 | (hygiene guile)) |
b2208d2e AW |
21701 | #{ g37369 37911}#)) |
21702 | #{tmp 37909}#) | |
0f550375 AW |
21703 | (syntax-violation |
21704 | #f | |
21705 | "source expression failed to match any pattern" | |
b2208d2e AW |
21706 | #{tmp 37908}#))))) |
21707 | #{tmp 37903}#) | |
21708 | (let ((#{tmp 37912}# | |
840cf0d1 | 21709 | ($sc-dispatch |
b2208d2e | 21710 | #{x 37863}# |
840cf0d1 | 21711 | '(#(atom "list->vector") any)))) |
b2208d2e | 21712 | (if #{tmp 37912}# |
840cf0d1 | 21713 | (@apply |
b2208d2e AW |
21714 | (lambda (#{x 37916}#) |
21715 | (let ((#{tmp 37917}# | |
21716 | (#{emit 37402}# #{x 37916}#))) | |
840cf0d1 AW |
21717 | (list '#(syntax-object |
21718 | list->vector | |
21719 | ((top) | |
21720 | #(ribcage () () ()) | |
21721 | #(ribcage | |
b2208d2e AW |
21722 | #(#{ g37381}#) |
21723 | #((m37382 top)) | |
21724 | #("i37385")) | |
840cf0d1 AW |
21725 | #(ribcage |
21726 | #(x) | |
21727 | #((top)) | |
b2208d2e | 21728 | #("i37379")) |
840cf0d1 AW |
21729 | #(ribcage () () ()) |
21730 | #(ribcage | |
21731 | #(x) | |
21732 | #((top)) | |
b2208d2e | 21733 | #("i37317")) |
840cf0d1 AW |
21734 | #(ribcage |
21735 | (emit quasivector | |
21736 | quasilist* | |
21737 | quasiappend | |
21738 | quasicons | |
21739 | vquasi | |
21740 | quasi) | |
21741 | ((top) | |
21742 | (top) | |
21743 | (top) | |
21744 | (top) | |
21745 | (top) | |
21746 | (top) | |
21747 | (top)) | |
b2208d2e AW |
21748 | ("i37138" |
21749 | "i37136" | |
21750 | "i37134" | |
21751 | "i37132" | |
21752 | "i37130" | |
21753 | "i37128" | |
21754 | "i37126")) | |
0f9f51a1 AW |
21755 | #(ribcage |
21756 | (quasiquote) | |
21757 | ((top)) | |
21758 | (((hygiene guile) | |
21759 | . | |
21760 | #(syntax-object | |
21761 | quasiquote | |
21762 | ((top)) | |
21763 | (hygiene guile)))))) | |
840cf0d1 | 21764 | (hygiene guile)) |
b2208d2e AW |
21765 | #{tmp 37917}#))) |
21766 | #{tmp 37912}#) | |
21767 | (let ((#{tmp 37920}# | |
840cf0d1 | 21768 | ($sc-dispatch |
b2208d2e | 21769 | #{x 37863}# |
840cf0d1 | 21770 | '(#(atom "value") any)))) |
b2208d2e | 21771 | (if #{tmp 37920}# |
840cf0d1 | 21772 | (@apply |
b2208d2e AW |
21773 | (lambda (#{x 37924}#) #{x 37924}#) |
21774 | #{tmp 37920}#) | |
840cf0d1 AW |
21775 | (syntax-violation |
21776 | #f | |
21777 | "source expression failed to match any pattern" | |
b2208d2e AW |
21778 | #{x 37863}#)))))))))))))))))) |
21779 | (lambda (#{x 37403}#) | |
21780 | (let ((#{tmp 37405}# | |
21781 | ($sc-dispatch #{x 37403}# '(_ any)))) | |
21782 | (if #{tmp 37405}# | |
840cf0d1 | 21783 | (@apply |
b2208d2e AW |
21784 | (lambda (#{e 37409}#) |
21785 | (#{emit 37402}# (#{quasi 37396}# #{e 37409}# 0))) | |
21786 | #{tmp 37405}#) | |
840cf0d1 AW |
21787 | (syntax-violation |
21788 | #f | |
21789 | "source expression failed to match any pattern" | |
b2208d2e | 21790 | #{x 37403}#))))))) |
65dd9e38 AW |
21791 | |
21792 | (define include | |
e809758a AW |
21793 | (make-syntax-transformer |
21794 | 'include | |
65dd9e38 | 21795 | 'macro |
b2208d2e | 21796 | (lambda (#{x 37980}#) |
46e372ef | 21797 | (letrec* |
b2208d2e AW |
21798 | ((#{read-file 37981}# |
21799 | (lambda (#{fn 38097}# #{k 38098}#) | |
21800 | (let ((#{p 38099}# (open-input-file #{fn 38097}#))) | |
46e372ef | 21801 | (letrec* |
b2208d2e AW |
21802 | ((#{f 38100}# |
21803 | (lambda (#{x 38157}# #{result 38158}#) | |
21804 | (if (eof-object? #{x 38157}#) | |
46e372ef | 21805 | (begin |
b2208d2e AW |
21806 | (close-input-port #{p 38099}#) |
21807 | (reverse #{result 38158}#)) | |
21808 | (#{f 38100}# | |
21809 | (read #{p 38099}#) | |
21810 | (cons (datum->syntax #{k 38098}# #{x 38157}#) | |
21811 | #{result 38158}#)))))) | |
21812 | (#{f 38100}# (read #{p 38099}#) '())))))) | |
21813 | (let ((#{tmp 37983}# | |
21814 | ($sc-dispatch #{x 37980}# '(any any)))) | |
21815 | (if #{tmp 37983}# | |
46e372ef | 21816 | (@apply |
b2208d2e AW |
21817 | (lambda (#{k 37987}# #{filename 37988}#) |
21818 | (let ((#{fn 37989}# (syntax->datum #{filename 37988}#))) | |
21819 | (let ((#{tmp 37990}# | |
21820 | (#{read-file 37981}# | |
21821 | #{fn 37989}# | |
21822 | #{filename 37988}#))) | |
21823 | (let ((#{tmp 37991}# | |
21824 | ($sc-dispatch #{tmp 37990}# 'each-any))) | |
21825 | (if #{tmp 37991}# | |
46e372ef | 21826 | (@apply |
b2208d2e | 21827 | (lambda (#{exp 38009}#) |
46e372ef AW |
21828 | (cons '#(syntax-object |
21829 | begin | |
21830 | ((top) | |
21831 | #(ribcage () () ()) | |
b2208d2e | 21832 | #(ribcage #(exp) #((top)) #("i37977")) |
46e372ef AW |
21833 | #(ribcage () () ()) |
21834 | #(ribcage () () ()) | |
b2208d2e | 21835 | #(ribcage #(fn) #((top)) #("i37972")) |
46e372ef AW |
21836 | #(ribcage |
21837 | #(k filename) | |
21838 | #((top) (top)) | |
b2208d2e AW |
21839 | #("i37968" "i37969")) |
21840 | #(ribcage (read-file) ((top)) ("i37952")) | |
21841 | #(ribcage #(x) #((top)) #("i37951")) | |
0f9f51a1 AW |
21842 | #(ribcage |
21843 | (include) | |
21844 | ((top)) | |
21845 | (((hygiene guile) | |
21846 | . | |
21847 | #(syntax-object | |
21848 | include | |
21849 | ((top)) | |
21850 | (hygiene guile)))))) | |
46e372ef | 21851 | (hygiene guile)) |
b2208d2e AW |
21852 | #{exp 38009}#)) |
21853 | #{tmp 37991}#) | |
46e372ef AW |
21854 | (syntax-violation |
21855 | #f | |
21856 | "source expression failed to match any pattern" | |
b2208d2e AW |
21857 | #{tmp 37990}#)))))) |
21858 | #{tmp 37983}#) | |
46e372ef AW |
21859 | (syntax-violation |
21860 | #f | |
21861 | "source expression failed to match any pattern" | |
b2208d2e | 21862 | #{x 37980}#))))))) |
417ee098 AW |
21863 | |
21864 | (define include-from-path | |
21865 | (make-syntax-transformer | |
21866 | 'include-from-path | |
21867 | 'macro | |
b2208d2e AW |
21868 | (lambda (#{x 38178}#) |
21869 | (let ((#{tmp 38180}# | |
21870 | ($sc-dispatch #{x 38178}# '(any any)))) | |
21871 | (if #{tmp 38180}# | |
840cf0d1 | 21872 | (@apply |
b2208d2e AW |
21873 | (lambda (#{k 38184}# #{filename 38185}#) |
21874 | (let ((#{fn 38186}# (syntax->datum #{filename 38185}#))) | |
21875 | (let ((#{tmp 38187}# | |
840cf0d1 | 21876 | (datum->syntax |
b2208d2e AW |
21877 | #{filename 38185}# |
21878 | (let ((#{t 38190}# (%search-load-path #{fn 38186}#))) | |
21879 | (if #{t 38190}# | |
21880 | #{t 38190}# | |
840cf0d1 AW |
21881 | (syntax-violation |
21882 | 'include-from-path | |
21883 | "file not found in path" | |
b2208d2e AW |
21884 | #{x 38178}# |
21885 | #{filename 38185}#)))))) | |
840cf0d1 AW |
21886 | (list '#(syntax-object |
21887 | include | |
21888 | ((top) | |
21889 | #(ribcage () () ()) | |
b2208d2e | 21890 | #(ribcage #(fn) #((top)) #("i38172")) |
840cf0d1 AW |
21891 | #(ribcage () () ()) |
21892 | #(ribcage () () ()) | |
b2208d2e | 21893 | #(ribcage #(fn) #((top)) #("i38168")) |
840cf0d1 AW |
21894 | #(ribcage |
21895 | #(k filename) | |
21896 | #((top) (top)) | |
b2208d2e | 21897 | #("i38164" "i38165")) |
840cf0d1 | 21898 | #(ribcage () () ()) |
b2208d2e | 21899 | #(ribcage #(x) #((top)) #("i38161")) |
0f9f51a1 AW |
21900 | #(ribcage |
21901 | (include-from-path) | |
21902 | ((top)) | |
21903 | (((hygiene guile) | |
21904 | . | |
21905 | #(syntax-object | |
21906 | include-from-path | |
21907 | ((top)) | |
21908 | (hygiene guile)))))) | |
840cf0d1 | 21909 | (hygiene guile)) |
b2208d2e AW |
21910 | #{tmp 38187}#)))) |
21911 | #{tmp 38180}#) | |
840cf0d1 AW |
21912 | (syntax-violation |
21913 | #f | |
21914 | "source expression failed to match any pattern" | |
b2208d2e | 21915 | #{x 38178}#)))))) |
417ee098 AW |
21916 | |
21917 | (define unquote | |
21918 | (make-syntax-transformer | |
21919 | 'unquote | |
21920 | 'macro | |
b2208d2e | 21921 | (lambda (#{x 38200}#) |
0f550375 AW |
21922 | (syntax-violation |
21923 | 'unquote | |
21924 | "expression not valid outside of quasiquote" | |
b2208d2e | 21925 | #{x 38200}#)))) |
417ee098 AW |
21926 | |
21927 | (define unquote-splicing | |
21928 | (make-syntax-transformer | |
21929 | 'unquote-splicing | |
21930 | 'macro | |
b2208d2e | 21931 | (lambda (#{x 38204}#) |
0f550375 AW |
21932 | (syntax-violation |
21933 | 'unquote-splicing | |
21934 | "expression not valid outside of quasiquote" | |
b2208d2e | 21935 | #{x 38204}#)))) |
417ee098 AW |
21936 | |
21937 | (define case | |
21938 | (make-syntax-transformer | |
21939 | 'case | |
21940 | 'macro | |
b2208d2e AW |
21941 | (lambda (#{x 38261}#) |
21942 | (let ((#{tmp 38263}# | |
840cf0d1 | 21943 | ($sc-dispatch |
b2208d2e | 21944 | #{x 38261}# |
840cf0d1 | 21945 | '(_ any any . each-any)))) |
b2208d2e | 21946 | (if #{tmp 38263}# |
840cf0d1 | 21947 | (@apply |
b2208d2e AW |
21948 | (lambda (#{e 38267}# #{m1 38268}# #{m2 38269}#) |
21949 | (let ((#{tmp 38270}# | |
840cf0d1 | 21950 | (letrec* |
b2208d2e AW |
21951 | ((#{f 38331}# |
21952 | (lambda (#{clause 38334}# #{clauses 38335}#) | |
21953 | (if (null? #{clauses 38335}#) | |
21954 | (let ((#{tmp 38337}# | |
840cf0d1 | 21955 | ($sc-dispatch |
b2208d2e | 21956 | #{clause 38334}# |
840cf0d1 AW |
21957 | '(#(free-id |
21958 | #(syntax-object | |
21959 | else | |
21960 | ((top) | |
21961 | #(ribcage () () ()) | |
21962 | #(ribcage | |
21963 | #(f clause clauses) | |
21964 | #((top) (top) (top)) | |
b2208d2e AW |
21965 | #("i38220" |
21966 | "i38221" | |
21967 | "i38222")) | |
840cf0d1 AW |
21968 | #(ribcage |
21969 | #(e m1 m2) | |
21970 | #((top) (top) (top)) | |
b2208d2e AW |
21971 | #("i38210" |
21972 | "i38211" | |
21973 | "i38212")) | |
840cf0d1 AW |
21974 | #(ribcage () () ()) |
21975 | #(ribcage | |
21976 | #(x) | |
21977 | #((top)) | |
b2208d2e | 21978 | #("i38207")) |
0f9f51a1 AW |
21979 | #(ribcage |
21980 | (case) | |
21981 | ((top)) | |
21982 | (((hygiene guile) | |
21983 | . | |
21984 | #(syntax-object | |
21985 | case | |
21986 | ((top)) | |
21987 | (hygiene guile)))))) | |
840cf0d1 AW |
21988 | (hygiene guile))) |
21989 | any | |
21990 | . | |
21991 | each-any)))) | |
b2208d2e | 21992 | (if #{tmp 38337}# |
840cf0d1 | 21993 | (@apply |
b2208d2e | 21994 | (lambda (#{e1 38341}# #{e2 38342}#) |
840cf0d1 AW |
21995 | (cons '#(syntax-object |
21996 | begin | |
21997 | ((top) | |
21998 | #(ribcage | |
21999 | #(e1 e2) | |
22000 | #((top) (top)) | |
b2208d2e | 22001 | #("i38229" "i38230")) |
840cf0d1 AW |
22002 | #(ribcage () () ()) |
22003 | #(ribcage | |
22004 | #(f clause clauses) | |
22005 | #((top) (top) (top)) | |
b2208d2e AW |
22006 | #("i38220" |
22007 | "i38221" | |
22008 | "i38222")) | |
840cf0d1 AW |
22009 | #(ribcage |
22010 | #(e m1 m2) | |
22011 | #((top) (top) (top)) | |
b2208d2e AW |
22012 | #("i38210" |
22013 | "i38211" | |
22014 | "i38212")) | |
840cf0d1 AW |
22015 | #(ribcage () () ()) |
22016 | #(ribcage | |
22017 | #(x) | |
22018 | #((top)) | |
b2208d2e | 22019 | #("i38207")) |
0f9f51a1 AW |
22020 | #(ribcage |
22021 | (case) | |
22022 | ((top)) | |
22023 | (((hygiene guile) | |
22024 | . | |
22025 | #(syntax-object | |
22026 | case | |
22027 | ((top)) | |
22028 | (hygiene guile)))))) | |
840cf0d1 | 22029 | (hygiene guile)) |
b2208d2e AW |
22030 | (cons #{e1 38341}# #{e2 38342}#))) |
22031 | #{tmp 38337}#) | |
22032 | (let ((#{tmp 38343}# | |
f42d8bd8 | 22033 | ($sc-dispatch |
b2208d2e | 22034 | #{clause 38334}# |
840cf0d1 | 22035 | '(each-any any . each-any)))) |
b2208d2e | 22036 | (if #{tmp 38343}# |
417ee098 | 22037 | (@apply |
b2208d2e AW |
22038 | (lambda (#{k 38347}# |
22039 | #{e1 38348}# | |
22040 | #{e2 38349}#) | |
840cf0d1 AW |
22041 | (list '#(syntax-object |
22042 | if | |
417ee098 AW |
22043 | ((top) |
22044 | #(ribcage | |
840cf0d1 AW |
22045 | #(k e1 e2) |
22046 | #((top) (top) (top)) | |
b2208d2e AW |
22047 | #("i38235" |
22048 | "i38236" | |
22049 | "i38237")) | |
417ee098 AW |
22050 | #(ribcage () () ()) |
22051 | #(ribcage | |
22052 | #(f clause clauses) | |
22053 | #((top) (top) (top)) | |
b2208d2e AW |
22054 | #("i38220" |
22055 | "i38221" | |
22056 | "i38222")) | |
417ee098 | 22057 | #(ribcage |
b78d91d5 AW |
22058 | #(e m1 m2) |
22059 | #((top) (top) (top)) | |
b2208d2e AW |
22060 | #("i38210" |
22061 | "i38211" | |
22062 | "i38212")) | |
417ee098 AW |
22063 | #(ribcage () () ()) |
22064 | #(ribcage | |
22065 | #(x) | |
22066 | #((top)) | |
b2208d2e | 22067 | #("i38207")) |
0f9f51a1 AW |
22068 | #(ribcage |
22069 | (case) | |
22070 | ((top)) | |
22071 | (((hygiene guile) | |
22072 | . | |
22073 | #(syntax-object | |
22074 | case | |
22075 | ((top)) | |
22076 | (hygiene guile)))))) | |
417ee098 | 22077 | (hygiene guile)) |
840cf0d1 AW |
22078 | (list '#(syntax-object |
22079 | memv | |
22080 | ((top) | |
22081 | #(ribcage | |
22082 | #(k e1 e2) | |
22083 | #((top) | |
22084 | (top) | |
22085 | (top)) | |
b2208d2e AW |
22086 | #("i38235" |
22087 | "i38236" | |
22088 | "i38237")) | |
840cf0d1 AW |
22089 | #(ribcage () () ()) |
22090 | #(ribcage | |
22091 | #(f | |
22092 | clause | |
22093 | clauses) | |
22094 | #((top) | |
22095 | (top) | |
22096 | (top)) | |
b2208d2e AW |
22097 | #("i38220" |
22098 | "i38221" | |
22099 | "i38222")) | |
840cf0d1 AW |
22100 | #(ribcage |
22101 | #(e m1 m2) | |
22102 | #((top) | |
22103 | (top) | |
22104 | (top)) | |
b2208d2e AW |
22105 | #("i38210" |
22106 | "i38211" | |
22107 | "i38212")) | |
840cf0d1 AW |
22108 | #(ribcage () () ()) |
22109 | #(ribcage | |
22110 | #(x) | |
22111 | #((top)) | |
b2208d2e | 22112 | #("i38207")) |
0f9f51a1 AW |
22113 | #(ribcage |
22114 | (case) | |
22115 | ((top)) | |
22116 | (((hygiene guile) | |
22117 | . | |
22118 | #(syntax-object | |
22119 | case | |
22120 | ((top)) | |
22121 | (hygiene | |
22122 | guile)))))) | |
840cf0d1 AW |
22123 | (hygiene guile)) |
22124 | '#(syntax-object | |
22125 | t | |
22126 | ((top) | |
22127 | #(ribcage | |
22128 | #(k e1 e2) | |
22129 | #((top) | |
22130 | (top) | |
22131 | (top)) | |
b2208d2e AW |
22132 | #("i38235" |
22133 | "i38236" | |
22134 | "i38237")) | |
840cf0d1 AW |
22135 | #(ribcage () () ()) |
22136 | #(ribcage | |
22137 | #(f | |
22138 | clause | |
22139 | clauses) | |
22140 | #((top) | |
22141 | (top) | |
22142 | (top)) | |
b2208d2e AW |
22143 | #("i38220" |
22144 | "i38221" | |
22145 | "i38222")) | |
840cf0d1 AW |
22146 | #(ribcage |
22147 | #(e m1 m2) | |
22148 | #((top) | |
22149 | (top) | |
22150 | (top)) | |
b2208d2e AW |
22151 | #("i38210" |
22152 | "i38211" | |
22153 | "i38212")) | |
840cf0d1 AW |
22154 | #(ribcage () () ()) |
22155 | #(ribcage | |
22156 | #(x) | |
22157 | #((top)) | |
b2208d2e | 22158 | #("i38207")) |
0f9f51a1 AW |
22159 | #(ribcage |
22160 | (case) | |
22161 | ((top)) | |
22162 | (((hygiene guile) | |
22163 | . | |
22164 | #(syntax-object | |
22165 | case | |
22166 | ((top)) | |
22167 | (hygiene | |
22168 | guile)))))) | |
840cf0d1 AW |
22169 | (hygiene guile)) |
22170 | (list '#(syntax-object | |
22171 | quote | |
22172 | ((top) | |
22173 | #(ribcage | |
22174 | #(k e1 e2) | |
22175 | #((top) | |
22176 | (top) | |
22177 | (top)) | |
b2208d2e AW |
22178 | #("i38235" |
22179 | "i38236" | |
22180 | "i38237")) | |
840cf0d1 AW |
22181 | #(ribcage |
22182 | () | |
22183 | () | |
22184 | ()) | |
22185 | #(ribcage | |
22186 | #(f | |
22187 | clause | |
22188 | clauses) | |
22189 | #((top) | |
22190 | (top) | |
22191 | (top)) | |
b2208d2e AW |
22192 | #("i38220" |
22193 | "i38221" | |
22194 | "i38222")) | |
840cf0d1 AW |
22195 | #(ribcage |
22196 | #(e m1 m2) | |
22197 | #((top) | |
22198 | (top) | |
22199 | (top)) | |
b2208d2e AW |
22200 | #("i38210" |
22201 | "i38211" | |
22202 | "i38212")) | |
840cf0d1 AW |
22203 | #(ribcage |
22204 | () | |
22205 | () | |
22206 | ()) | |
22207 | #(ribcage | |
22208 | #(x) | |
22209 | #((top)) | |
b2208d2e | 22210 | #("i38207")) |
0f9f51a1 AW |
22211 | #(ribcage |
22212 | (case) | |
22213 | ((top)) | |
22214 | (((hygiene | |
22215 | guile) | |
22216 | . | |
22217 | #(syntax-object | |
22218 | case | |
22219 | ((top)) | |
22220 | (hygiene | |
22221 | guile)))))) | |
840cf0d1 AW |
22222 | (hygiene |
22223 | guile)) | |
b2208d2e | 22224 | #{k 38347}#)) |
840cf0d1 AW |
22225 | (cons '#(syntax-object |
22226 | begin | |
22227 | ((top) | |
22228 | #(ribcage | |
22229 | #(k e1 e2) | |
22230 | #((top) | |
22231 | (top) | |
22232 | (top)) | |
b2208d2e AW |
22233 | #("i38235" |
22234 | "i38236" | |
22235 | "i38237")) | |
840cf0d1 AW |
22236 | #(ribcage () () ()) |
22237 | #(ribcage | |
22238 | #(f | |
22239 | clause | |
22240 | clauses) | |
22241 | #((top) | |
22242 | (top) | |
22243 | (top)) | |
b2208d2e AW |
22244 | #("i38220" |
22245 | "i38221" | |
22246 | "i38222")) | |
840cf0d1 AW |
22247 | #(ribcage |
22248 | #(e m1 m2) | |
22249 | #((top) | |
22250 | (top) | |
22251 | (top)) | |
b2208d2e AW |
22252 | #("i38210" |
22253 | "i38211" | |
22254 | "i38212")) | |
840cf0d1 AW |
22255 | #(ribcage () () ()) |
22256 | #(ribcage | |
22257 | #(x) | |
22258 | #((top)) | |
b2208d2e | 22259 | #("i38207")) |
0f9f51a1 AW |
22260 | #(ribcage |
22261 | (case) | |
22262 | ((top)) | |
22263 | (((hygiene guile) | |
22264 | . | |
22265 | #(syntax-object | |
22266 | case | |
22267 | ((top)) | |
22268 | (hygiene | |
22269 | guile)))))) | |
840cf0d1 | 22270 | (hygiene guile)) |
b2208d2e AW |
22271 | (cons #{e1 38348}# |
22272 | #{e2 38349}#)))) | |
22273 | #{tmp 38343}#) | |
840cf0d1 AW |
22274 | (syntax-violation |
22275 | 'case | |
22276 | "bad clause" | |
b2208d2e AW |
22277 | #{x 38261}# |
22278 | #{clause 38334}#))))) | |
22279 | (let ((#{tmp 38357}# | |
22280 | (#{f 38331}# | |
22281 | (car #{clauses 38335}#) | |
22282 | (cdr #{clauses 38335}#)))) | |
22283 | (let ((#{tmp 38360}# | |
840cf0d1 | 22284 | ($sc-dispatch |
b2208d2e | 22285 | #{clause 38334}# |
840cf0d1 | 22286 | '(each-any any . each-any)))) |
b2208d2e | 22287 | (if #{tmp 38360}# |
840cf0d1 | 22288 | (@apply |
b2208d2e AW |
22289 | (lambda (#{k 38364}# |
22290 | #{e1 38365}# | |
22291 | #{e2 38366}#) | |
840cf0d1 AW |
22292 | (list '#(syntax-object |
22293 | if | |
22294 | ((top) | |
22295 | #(ribcage | |
22296 | #(k e1 e2) | |
22297 | #((top) (top) (top)) | |
b2208d2e AW |
22298 | #("i38251" |
22299 | "i38252" | |
22300 | "i38253")) | |
840cf0d1 AW |
22301 | #(ribcage () () ()) |
22302 | #(ribcage | |
22303 | #(rest) | |
22304 | #((top)) | |
b2208d2e | 22305 | #("i38247")) |
840cf0d1 AW |
22306 | #(ribcage () () ()) |
22307 | #(ribcage | |
22308 | #(f clause clauses) | |
22309 | #((top) (top) (top)) | |
b2208d2e AW |
22310 | #("i38220" |
22311 | "i38221" | |
22312 | "i38222")) | |
840cf0d1 AW |
22313 | #(ribcage |
22314 | #(e m1 m2) | |
22315 | #((top) (top) (top)) | |
b2208d2e AW |
22316 | #("i38210" |
22317 | "i38211" | |
22318 | "i38212")) | |
840cf0d1 AW |
22319 | #(ribcage () () ()) |
22320 | #(ribcage | |
22321 | #(x) | |
22322 | #((top)) | |
b2208d2e | 22323 | #("i38207")) |
0f9f51a1 AW |
22324 | #(ribcage |
22325 | (case) | |
22326 | ((top)) | |
22327 | (((hygiene guile) | |
22328 | . | |
22329 | #(syntax-object | |
22330 | case | |
22331 | ((top)) | |
22332 | (hygiene guile)))))) | |
840cf0d1 | 22333 | (hygiene guile)) |
417ee098 | 22334 | (list '#(syntax-object |
840cf0d1 | 22335 | memv |
417ee098 AW |
22336 | ((top) |
22337 | #(ribcage | |
22338 | #(k e1 e2) | |
22339 | #((top) (top) (top)) | |
b2208d2e AW |
22340 | #("i38251" |
22341 | "i38252" | |
22342 | "i38253")) | |
840cf0d1 AW |
22343 | #(ribcage () () ()) |
22344 | #(ribcage | |
22345 | #(rest) | |
22346 | #((top)) | |
b2208d2e | 22347 | #("i38247")) |
417ee098 AW |
22348 | #(ribcage () () ()) |
22349 | #(ribcage | |
22350 | #(f clause clauses) | |
22351 | #((top) (top) (top)) | |
b2208d2e AW |
22352 | #("i38220" |
22353 | "i38221" | |
22354 | "i38222")) | |
417ee098 | 22355 | #(ribcage |
b78d91d5 AW |
22356 | #(e m1 m2) |
22357 | #((top) (top) (top)) | |
b2208d2e AW |
22358 | #("i38210" |
22359 | "i38211" | |
22360 | "i38212")) | |
417ee098 AW |
22361 | #(ribcage () () ()) |
22362 | #(ribcage | |
22363 | #(x) | |
22364 | #((top)) | |
b2208d2e | 22365 | #("i38207")) |
0f9f51a1 AW |
22366 | #(ribcage |
22367 | (case) | |
22368 | ((top)) | |
22369 | (((hygiene guile) | |
22370 | . | |
22371 | #(syntax-object | |
22372 | case | |
22373 | ((top)) | |
22374 | (hygiene | |
22375 | guile)))))) | |
417ee098 | 22376 | (hygiene guile)) |
840cf0d1 AW |
22377 | '#(syntax-object |
22378 | t | |
417ee098 AW |
22379 | ((top) |
22380 | #(ribcage | |
22381 | #(k e1 e2) | |
22382 | #((top) (top) (top)) | |
b2208d2e AW |
22383 | #("i38251" |
22384 | "i38252" | |
22385 | "i38253")) | |
f929b9e5 | 22386 | #(ribcage () () ()) |
417ee098 AW |
22387 | #(ribcage |
22388 | #(rest) | |
22389 | #((top)) | |
b2208d2e | 22390 | #("i38247")) |
417ee098 AW |
22391 | #(ribcage () () ()) |
22392 | #(ribcage | |
22393 | #(f clause clauses) | |
22394 | #((top) (top) (top)) | |
b2208d2e AW |
22395 | #("i38220" |
22396 | "i38221" | |
22397 | "i38222")) | |
417ee098 | 22398 | #(ribcage |
b78d91d5 AW |
22399 | #(e m1 m2) |
22400 | #((top) (top) (top)) | |
b2208d2e AW |
22401 | #("i38210" |
22402 | "i38211" | |
22403 | "i38212")) | |
417ee098 AW |
22404 | #(ribcage () () ()) |
22405 | #(ribcage | |
22406 | #(x) | |
22407 | #((top)) | |
b2208d2e | 22408 | #("i38207")) |
0f9f51a1 AW |
22409 | #(ribcage |
22410 | (case) | |
22411 | ((top)) | |
22412 | (((hygiene guile) | |
22413 | . | |
22414 | #(syntax-object | |
22415 | case | |
22416 | ((top)) | |
22417 | (hygiene | |
22418 | guile)))))) | |
417ee098 AW |
22419 | (hygiene guile)) |
22420 | (list '#(syntax-object | |
840cf0d1 | 22421 | quote |
417ee098 AW |
22422 | ((top) |
22423 | #(ribcage | |
22424 | #(k e1 e2) | |
22425 | #((top) | |
22426 | (top) | |
22427 | (top)) | |
b2208d2e AW |
22428 | #("i38251" |
22429 | "i38252" | |
22430 | "i38253")) | |
f929b9e5 AW |
22431 | #(ribcage |
22432 | () | |
22433 | () | |
22434 | ()) | |
417ee098 AW |
22435 | #(ribcage |
22436 | #(rest) | |
22437 | #((top)) | |
b2208d2e | 22438 | #("i38247")) |
417ee098 AW |
22439 | #(ribcage |
22440 | () | |
22441 | () | |
22442 | ()) | |
22443 | #(ribcage | |
22444 | #(f | |
22445 | clause | |
22446 | clauses) | |
22447 | #((top) | |
22448 | (top) | |
22449 | (top)) | |
b2208d2e AW |
22450 | #("i38220" |
22451 | "i38221" | |
22452 | "i38222")) | |
417ee098 | 22453 | #(ribcage |
b78d91d5 | 22454 | #(e m1 m2) |
417ee098 | 22455 | #((top) |
417ee098 AW |
22456 | (top) |
22457 | (top)) | |
b2208d2e AW |
22458 | #("i38210" |
22459 | "i38211" | |
22460 | "i38212")) | |
417ee098 AW |
22461 | #(ribcage |
22462 | () | |
22463 | () | |
22464 | ()) | |
22465 | #(ribcage | |
22466 | #(x) | |
22467 | #((top)) | |
b2208d2e | 22468 | #("i38207")) |
0f9f51a1 AW |
22469 | #(ribcage |
22470 | (case) | |
22471 | ((top)) | |
22472 | (((hygiene | |
22473 | guile) | |
22474 | . | |
22475 | #(syntax-object | |
22476 | case | |
22477 | ((top)) | |
22478 | (hygiene | |
22479 | guile)))))) | |
417ee098 | 22480 | (hygiene guile)) |
b2208d2e | 22481 | #{k 38364}#)) |
840cf0d1 AW |
22482 | (cons '#(syntax-object |
22483 | begin | |
22484 | ((top) | |
22485 | #(ribcage | |
22486 | #(k e1 e2) | |
22487 | #((top) (top) (top)) | |
b2208d2e AW |
22488 | #("i38251" |
22489 | "i38252" | |
22490 | "i38253")) | |
840cf0d1 AW |
22491 | #(ribcage () () ()) |
22492 | #(ribcage | |
22493 | #(rest) | |
22494 | #((top)) | |
b2208d2e | 22495 | #("i38247")) |
840cf0d1 AW |
22496 | #(ribcage () () ()) |
22497 | #(ribcage | |
22498 | #(f clause clauses) | |
22499 | #((top) (top) (top)) | |
b2208d2e AW |
22500 | #("i38220" |
22501 | "i38221" | |
22502 | "i38222")) | |
840cf0d1 AW |
22503 | #(ribcage |
22504 | #(e m1 m2) | |
22505 | #((top) (top) (top)) | |
b2208d2e AW |
22506 | #("i38210" |
22507 | "i38211" | |
22508 | "i38212")) | |
840cf0d1 AW |
22509 | #(ribcage () () ()) |
22510 | #(ribcage | |
22511 | #(x) | |
22512 | #((top)) | |
b2208d2e | 22513 | #("i38207")) |
0f9f51a1 AW |
22514 | #(ribcage |
22515 | (case) | |
22516 | ((top)) | |
22517 | (((hygiene guile) | |
22518 | . | |
22519 | #(syntax-object | |
22520 | case | |
22521 | ((top)) | |
22522 | (hygiene | |
22523 | guile)))))) | |
840cf0d1 | 22524 | (hygiene guile)) |
b2208d2e AW |
22525 | (cons #{e1 38365}# |
22526 | #{e2 38366}#)) | |
22527 | #{tmp 38357}#)) | |
22528 | #{tmp 38360}#) | |
840cf0d1 AW |
22529 | (syntax-violation |
22530 | 'case | |
22531 | "bad clause" | |
b2208d2e AW |
22532 | #{x 38261}# |
22533 | #{clause 38334}#)))))))) | |
22534 | (#{f 38331}# #{m1 38268}# #{m2 38269}#)))) | |
22535 | (let ((#{body 38271}# #{tmp 38270}#)) | |
46e372ef AW |
22536 | (list '#(syntax-object |
22537 | let | |
22538 | ((top) | |
22539 | #(ribcage () () ()) | |
b2208d2e | 22540 | #(ribcage #(body) #((top)) #("i38218")) |
46e372ef AW |
22541 | #(ribcage |
22542 | #(e m1 m2) | |
22543 | #((top) (top) (top)) | |
b2208d2e | 22544 | #("i38210" "i38211" "i38212")) |
46e372ef | 22545 | #(ribcage () () ()) |
b2208d2e | 22546 | #(ribcage #(x) #((top)) #("i38207")) |
0f9f51a1 AW |
22547 | #(ribcage |
22548 | (case) | |
22549 | ((top)) | |
22550 | (((hygiene guile) | |
22551 | . | |
22552 | #(syntax-object | |
22553 | case | |
22554 | ((top)) | |
22555 | (hygiene guile)))))) | |
46e372ef AW |
22556 | (hygiene guile)) |
22557 | (list (list '#(syntax-object | |
22558 | t | |
22559 | ((top) | |
22560 | #(ribcage () () ()) | |
b2208d2e | 22561 | #(ribcage #(body) #((top)) #("i38218")) |
46e372ef AW |
22562 | #(ribcage |
22563 | #(e m1 m2) | |
22564 | #((top) (top) (top)) | |
b2208d2e | 22565 | #("i38210" "i38211" "i38212")) |
46e372ef | 22566 | #(ribcage () () ()) |
b2208d2e | 22567 | #(ribcage #(x) #((top)) #("i38207")) |
0f9f51a1 AW |
22568 | #(ribcage |
22569 | (case) | |
22570 | ((top)) | |
22571 | (((hygiene guile) | |
22572 | . | |
22573 | #(syntax-object | |
22574 | case | |
22575 | ((top)) | |
22576 | (hygiene guile)))))) | |
46e372ef | 22577 | (hygiene guile)) |
b2208d2e AW |
22578 | #{e 38267}#)) |
22579 | #{body 38271}#)))) | |
22580 | #{tmp 38263}#) | |
840cf0d1 AW |
22581 | (syntax-violation |
22582 | #f | |
22583 | "source expression failed to match any pattern" | |
b2208d2e | 22584 | #{x 38261}#)))))) |
bfccdcd5 AW |
22585 | |
22586 | (define make-variable-transformer | |
b2208d2e AW |
22587 | (lambda (#{proc 38385}#) |
22588 | (if (procedure? #{proc 38385}#) | |
25711fa4 | 22589 | (letrec* |
b2208d2e AW |
22590 | ((#{trans 38386}# |
22591 | (lambda (#{x 38392}#) | |
22592 | (#{proc 38385}# #{x 38392}#)))) | |
25711fa4 AW |
22593 | (begin |
22594 | (set-procedure-property! | |
b2208d2e | 22595 | #{trans 38386}# |
25711fa4 AW |
22596 | 'variable-transformer |
22597 | #t) | |
b2208d2e | 22598 | #{trans 38386}#)) |
bfccdcd5 | 22599 | (error "variable transformer not a procedure" |
b2208d2e | 22600 | #{proc 38385}#)))) |
65dd9e38 AW |
22601 | |
22602 | (define identifier-syntax | |
e809758a AW |
22603 | (make-syntax-transformer |
22604 | 'identifier-syntax | |
65dd9e38 | 22605 | 'macro |
b2208d2e AW |
22606 | (lambda (#{x 38425}#) |
22607 | (let ((#{tmp 38427}# | |
22608 | ($sc-dispatch #{x 38425}# '(_ any)))) | |
22609 | (if #{tmp 38427}# | |
840cf0d1 | 22610 | (@apply |
b2208d2e | 22611 | (lambda (#{e 38431}#) |
840cf0d1 AW |
22612 | (list '#(syntax-object |
22613 | lambda | |
22614 | ((top) | |
b2208d2e | 22615 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22616 | #(ribcage () () ()) |
b2208d2e | 22617 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22618 | #(ribcage |
22619 | (identifier-syntax) | |
22620 | ((top)) | |
22621 | (((hygiene guile) | |
22622 | . | |
22623 | #(syntax-object | |
22624 | identifier-syntax | |
22625 | ((top)) | |
22626 | (hygiene guile)))))) | |
840cf0d1 AW |
22627 | (hygiene guile)) |
22628 | '(#(syntax-object | |
22629 | x | |
22630 | ((top) | |
b2208d2e | 22631 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22632 | #(ribcage () () ()) |
b2208d2e | 22633 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22634 | #(ribcage |
22635 | (identifier-syntax) | |
22636 | ((top)) | |
22637 | (((hygiene guile) | |
22638 | . | |
22639 | #(syntax-object | |
22640 | identifier-syntax | |
22641 | ((top)) | |
22642 | (hygiene guile)))))) | |
840cf0d1 AW |
22643 | (hygiene guile))) |
22644 | '#((#(syntax-object | |
22645 | macro-type | |
22646 | ((top) | |
b2208d2e | 22647 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22648 | #(ribcage () () ()) |
b2208d2e | 22649 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22650 | #(ribcage |
22651 | (identifier-syntax) | |
22652 | ((top)) | |
22653 | (((hygiene guile) | |
22654 | . | |
22655 | #(syntax-object | |
22656 | identifier-syntax | |
22657 | ((top)) | |
22658 | (hygiene guile)))))) | |
840cf0d1 AW |
22659 | (hygiene guile)) |
22660 | . | |
22661 | #(syntax-object | |
22662 | identifier-syntax | |
22663 | ((top) | |
b2208d2e | 22664 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22665 | #(ribcage () () ()) |
b2208d2e | 22666 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22667 | #(ribcage |
22668 | (identifier-syntax) | |
22669 | ((top)) | |
22670 | (((hygiene guile) | |
22671 | . | |
22672 | #(syntax-object | |
22673 | identifier-syntax | |
22674 | ((top)) | |
22675 | (hygiene guile)))))) | |
840cf0d1 AW |
22676 | (hygiene guile)))) |
22677 | (list '#(syntax-object | |
22678 | syntax-case | |
22679 | ((top) | |
b2208d2e | 22680 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22681 | #(ribcage () () ()) |
b2208d2e | 22682 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22683 | #(ribcage |
22684 | (identifier-syntax) | |
22685 | ((top)) | |
22686 | (((hygiene guile) | |
22687 | . | |
22688 | #(syntax-object | |
22689 | identifier-syntax | |
22690 | ((top)) | |
22691 | (hygiene guile)))))) | |
840cf0d1 | 22692 | (hygiene guile)) |
417ee098 AW |
22693 | '#(syntax-object |
22694 | x | |
22695 | ((top) | |
b2208d2e | 22696 | #(ribcage #(e) #((top)) #("i38400")) |
417ee098 | 22697 | #(ribcage () () ()) |
b2208d2e | 22698 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22699 | #(ribcage |
22700 | (identifier-syntax) | |
22701 | ((top)) | |
22702 | (((hygiene guile) | |
22703 | . | |
22704 | #(syntax-object | |
22705 | identifier-syntax | |
22706 | ((top)) | |
22707 | (hygiene guile)))))) | |
840cf0d1 AW |
22708 | (hygiene guile)) |
22709 | '() | |
22710 | (list '#(syntax-object | |
22711 | id | |
22712 | ((top) | |
b2208d2e | 22713 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22714 | #(ribcage () () ()) |
b2208d2e | 22715 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22716 | #(ribcage |
22717 | (identifier-syntax) | |
22718 | ((top)) | |
22719 | (((hygiene guile) | |
22720 | . | |
22721 | #(syntax-object | |
22722 | identifier-syntax | |
22723 | ((top)) | |
22724 | (hygiene guile)))))) | |
840cf0d1 AW |
22725 | (hygiene guile)) |
22726 | '(#(syntax-object | |
22727 | identifier? | |
22728 | ((top) | |
b2208d2e | 22729 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22730 | #(ribcage () () ()) |
b2208d2e | 22731 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22732 | #(ribcage |
22733 | (identifier-syntax) | |
22734 | ((top)) | |
22735 | (((hygiene guile) | |
22736 | . | |
22737 | #(syntax-object | |
22738 | identifier-syntax | |
22739 | ((top)) | |
22740 | (hygiene guile)))))) | |
840cf0d1 AW |
22741 | (hygiene guile)) |
22742 | (#(syntax-object | |
22743 | syntax | |
22744 | ((top) | |
b2208d2e | 22745 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22746 | #(ribcage () () ()) |
b2208d2e | 22747 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22748 | #(ribcage |
22749 | (identifier-syntax) | |
22750 | ((top)) | |
22751 | (((hygiene guile) | |
22752 | . | |
22753 | #(syntax-object | |
22754 | identifier-syntax | |
22755 | ((top)) | |
22756 | (hygiene guile)))))) | |
840cf0d1 AW |
22757 | (hygiene guile)) |
22758 | #(syntax-object | |
22759 | id | |
22760 | ((top) | |
b2208d2e | 22761 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22762 | #(ribcage () () ()) |
b2208d2e | 22763 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22764 | #(ribcage |
22765 | (identifier-syntax) | |
22766 | ((top)) | |
22767 | (((hygiene guile) | |
22768 | . | |
22769 | #(syntax-object | |
22770 | identifier-syntax | |
22771 | ((top)) | |
22772 | (hygiene guile)))))) | |
840cf0d1 AW |
22773 | (hygiene guile)))) |
22774 | (list '#(syntax-object | |
22775 | syntax | |
22776 | ((top) | |
b2208d2e | 22777 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22778 | #(ribcage () () ()) |
b2208d2e | 22779 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22780 | #(ribcage |
22781 | (identifier-syntax) | |
22782 | ((top)) | |
22783 | (((hygiene guile) | |
22784 | . | |
22785 | #(syntax-object | |
22786 | identifier-syntax | |
22787 | ((top)) | |
22788 | (hygiene guile)))))) | |
840cf0d1 | 22789 | (hygiene guile)) |
b2208d2e | 22790 | #{e 38431}#)) |
840cf0d1 AW |
22791 | (list '(#(syntax-object |
22792 | _ | |
22793 | ((top) | |
b2208d2e | 22794 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22795 | #(ribcage () () ()) |
b2208d2e | 22796 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22797 | #(ribcage |
22798 | (identifier-syntax) | |
22799 | ((top)) | |
22800 | (((hygiene guile) | |
22801 | . | |
22802 | #(syntax-object | |
22803 | identifier-syntax | |
22804 | ((top)) | |
22805 | (hygiene guile)))))) | |
840cf0d1 AW |
22806 | (hygiene guile)) |
22807 | #(syntax-object | |
22808 | x | |
22809 | ((top) | |
b2208d2e | 22810 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22811 | #(ribcage () () ()) |
b2208d2e | 22812 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22813 | #(ribcage |
22814 | (identifier-syntax) | |
22815 | ((top)) | |
22816 | (((hygiene guile) | |
22817 | . | |
22818 | #(syntax-object | |
22819 | identifier-syntax | |
22820 | ((top)) | |
22821 | (hygiene guile)))))) | |
840cf0d1 AW |
22822 | (hygiene guile)) |
22823 | #(syntax-object | |
22824 | ... | |
22825 | ((top) | |
b2208d2e | 22826 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22827 | #(ribcage () () ()) |
b2208d2e | 22828 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22829 | #(ribcage |
22830 | (identifier-syntax) | |
22831 | ((top)) | |
22832 | (((hygiene guile) | |
22833 | . | |
22834 | #(syntax-object | |
22835 | identifier-syntax | |
22836 | ((top)) | |
22837 | (hygiene guile)))))) | |
840cf0d1 AW |
22838 | (hygiene guile))) |
22839 | (list '#(syntax-object | |
22840 | syntax | |
22841 | ((top) | |
b2208d2e | 22842 | #(ribcage #(e) #((top)) #("i38400")) |
840cf0d1 | 22843 | #(ribcage () () ()) |
b2208d2e | 22844 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22845 | #(ribcage |
22846 | (identifier-syntax) | |
22847 | ((top)) | |
22848 | (((hygiene guile) | |
22849 | . | |
22850 | #(syntax-object | |
22851 | identifier-syntax | |
22852 | ((top)) | |
22853 | (hygiene guile)))))) | |
840cf0d1 | 22854 | (hygiene guile)) |
b2208d2e | 22855 | (cons #{e 38431}# |
840cf0d1 AW |
22856 | '(#(syntax-object |
22857 | x | |
22858 | ((top) | |
22859 | #(ribcage | |
22860 | #(e) | |
22861 | #((top)) | |
b2208d2e | 22862 | #("i38400")) |
840cf0d1 AW |
22863 | #(ribcage () () ()) |
22864 | #(ribcage | |
22865 | #(x) | |
22866 | #((top)) | |
b2208d2e | 22867 | #("i38397")) |
0f9f51a1 AW |
22868 | #(ribcage |
22869 | (identifier-syntax) | |
22870 | ((top)) | |
22871 | (((hygiene guile) | |
22872 | . | |
22873 | #(syntax-object | |
22874 | identifier-syntax | |
22875 | ((top)) | |
22876 | (hygiene guile)))))) | |
840cf0d1 AW |
22877 | (hygiene guile)) |
22878 | #(syntax-object | |
22879 | ... | |
22880 | ((top) | |
22881 | #(ribcage | |
22882 | #(e) | |
22883 | #((top)) | |
b2208d2e | 22884 | #("i38400")) |
840cf0d1 AW |
22885 | #(ribcage () () ()) |
22886 | #(ribcage | |
22887 | #(x) | |
22888 | #((top)) | |
b2208d2e | 22889 | #("i38397")) |
0f9f51a1 AW |
22890 | #(ribcage |
22891 | (identifier-syntax) | |
22892 | ((top)) | |
22893 | (((hygiene guile) | |
22894 | . | |
22895 | #(syntax-object | |
22896 | identifier-syntax | |
22897 | ((top)) | |
22898 | (hygiene guile)))))) | |
840cf0d1 | 22899 | (hygiene guile))))))))) |
b2208d2e AW |
22900 | #{tmp 38427}#) |
22901 | (let ((#{tmp 38432}# | |
840cf0d1 | 22902 | ($sc-dispatch |
b2208d2e | 22903 | #{x 38425}# |
840cf0d1 AW |
22904 | '(_ (any any) |
22905 | ((#(free-id | |
22906 | #(syntax-object | |
22907 | set! | |
22908 | ((top) | |
22909 | #(ribcage () () ()) | |
b2208d2e | 22910 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22911 | #(ribcage |
22912 | (identifier-syntax) | |
22913 | ((top)) | |
22914 | (((hygiene guile) | |
22915 | . | |
22916 | #(syntax-object | |
22917 | identifier-syntax | |
22918 | ((top)) | |
22919 | (hygiene guile)))))) | |
840cf0d1 AW |
22920 | (hygiene guile))) |
22921 | any | |
22922 | any) | |
22923 | any))))) | |
b2208d2e | 22924 | (if (if #{tmp 38432}# |
840cf0d1 | 22925 | (@apply |
b2208d2e AW |
22926 | (lambda (#{id 38436}# |
22927 | #{exp1 38437}# | |
22928 | #{var 38438}# | |
22929 | #{val 38439}# | |
22930 | #{exp2 38440}#) | |
22931 | (if (identifier? #{id 38436}#) | |
22932 | (identifier? #{var 38438}#) | |
840cf0d1 | 22933 | #f)) |
b2208d2e | 22934 | #{tmp 38432}#) |
840cf0d1 AW |
22935 | #f) |
22936 | (@apply | |
b2208d2e AW |
22937 | (lambda (#{id 38441}# |
22938 | #{exp1 38442}# | |
22939 | #{var 38443}# | |
22940 | #{val 38444}# | |
22941 | #{exp2 38445}#) | |
840cf0d1 AW |
22942 | (list '#(syntax-object |
22943 | make-variable-transformer | |
22944 | ((top) | |
22945 | #(ribcage | |
22946 | #(id exp1 var val exp2) | |
22947 | #((top) (top) (top) (top) (top)) | |
b2208d2e | 22948 | #("i38415" "i38416" "i38417" "i38418" "i38419")) |
840cf0d1 | 22949 | #(ribcage () () ()) |
b2208d2e | 22950 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22951 | #(ribcage |
22952 | (identifier-syntax) | |
22953 | ((top)) | |
22954 | (((hygiene guile) | |
22955 | . | |
22956 | #(syntax-object | |
22957 | identifier-syntax | |
22958 | ((top)) | |
22959 | (hygiene guile)))))) | |
840cf0d1 AW |
22960 | (hygiene guile)) |
22961 | (list '#(syntax-object | |
22962 | lambda | |
22963 | ((top) | |
22964 | #(ribcage | |
22965 | #(id exp1 var val exp2) | |
22966 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
22967 | #("i38415" |
22968 | "i38416" | |
22969 | "i38417" | |
22970 | "i38418" | |
22971 | "i38419")) | |
840cf0d1 | 22972 | #(ribcage () () ()) |
b2208d2e | 22973 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22974 | #(ribcage |
22975 | (identifier-syntax) | |
22976 | ((top)) | |
22977 | (((hygiene guile) | |
22978 | . | |
22979 | #(syntax-object | |
22980 | identifier-syntax | |
22981 | ((top)) | |
22982 | (hygiene guile)))))) | |
840cf0d1 AW |
22983 | (hygiene guile)) |
22984 | '(#(syntax-object | |
22985 | x | |
22986 | ((top) | |
22987 | #(ribcage | |
22988 | #(id exp1 var val exp2) | |
22989 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
22990 | #("i38415" |
22991 | "i38416" | |
22992 | "i38417" | |
22993 | "i38418" | |
22994 | "i38419")) | |
840cf0d1 | 22995 | #(ribcage () () ()) |
b2208d2e | 22996 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
22997 | #(ribcage |
22998 | (identifier-syntax) | |
22999 | ((top)) | |
23000 | (((hygiene guile) | |
23001 | . | |
23002 | #(syntax-object | |
23003 | identifier-syntax | |
23004 | ((top)) | |
23005 | (hygiene guile)))))) | |
840cf0d1 AW |
23006 | (hygiene guile))) |
23007 | '#((#(syntax-object | |
23008 | macro-type | |
23009 | ((top) | |
23010 | #(ribcage | |
23011 | #(id exp1 var val exp2) | |
23012 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
23013 | #("i38415" |
23014 | "i38416" | |
23015 | "i38417" | |
23016 | "i38418" | |
23017 | "i38419")) | |
840cf0d1 | 23018 | #(ribcage () () ()) |
b2208d2e | 23019 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
23020 | #(ribcage |
23021 | (identifier-syntax) | |
23022 | ((top)) | |
23023 | (((hygiene guile) | |
23024 | . | |
23025 | #(syntax-object | |
23026 | identifier-syntax | |
23027 | ((top)) | |
23028 | (hygiene guile)))))) | |
840cf0d1 AW |
23029 | (hygiene guile)) |
23030 | . | |
23031 | #(syntax-object | |
23032 | variable-transformer | |
23033 | ((top) | |
23034 | #(ribcage | |
23035 | #(id exp1 var val exp2) | |
23036 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
23037 | #("i38415" |
23038 | "i38416" | |
23039 | "i38417" | |
23040 | "i38418" | |
23041 | "i38419")) | |
840cf0d1 | 23042 | #(ribcage () () ()) |
b2208d2e | 23043 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
23044 | #(ribcage |
23045 | (identifier-syntax) | |
23046 | ((top)) | |
23047 | (((hygiene guile) | |
23048 | . | |
23049 | #(syntax-object | |
23050 | identifier-syntax | |
23051 | ((top)) | |
23052 | (hygiene guile)))))) | |
840cf0d1 AW |
23053 | (hygiene guile)))) |
23054 | (list '#(syntax-object | |
23055 | syntax-case | |
23056 | ((top) | |
23057 | #(ribcage | |
23058 | #(id exp1 var val exp2) | |
23059 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
23060 | #("i38415" |
23061 | "i38416" | |
23062 | "i38417" | |
23063 | "i38418" | |
23064 | "i38419")) | |
840cf0d1 | 23065 | #(ribcage () () ()) |
b2208d2e | 23066 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
23067 | #(ribcage |
23068 | (identifier-syntax) | |
23069 | ((top)) | |
23070 | (((hygiene guile) | |
23071 | . | |
23072 | #(syntax-object | |
23073 | identifier-syntax | |
23074 | ((top)) | |
23075 | (hygiene guile)))))) | |
840cf0d1 AW |
23076 | (hygiene guile)) |
23077 | '#(syntax-object | |
23078 | x | |
23079 | ((top) | |
23080 | #(ribcage | |
23081 | #(id exp1 var val exp2) | |
23082 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
23083 | #("i38415" |
23084 | "i38416" | |
23085 | "i38417" | |
23086 | "i38418" | |
23087 | "i38419")) | |
840cf0d1 | 23088 | #(ribcage () () ()) |
b2208d2e | 23089 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
23090 | #(ribcage |
23091 | (identifier-syntax) | |
23092 | ((top)) | |
23093 | (((hygiene guile) | |
23094 | . | |
23095 | #(syntax-object | |
23096 | identifier-syntax | |
23097 | ((top)) | |
23098 | (hygiene guile)))))) | |
840cf0d1 AW |
23099 | (hygiene guile)) |
23100 | '(#(syntax-object | |
23101 | set! | |
23102 | ((top) | |
23103 | #(ribcage | |
23104 | #(id exp1 var val exp2) | |
23105 | #((top) (top) (top) (top) (top)) | |
b2208d2e AW |
23106 | #("i38415" |
23107 | "i38416" | |
23108 | "i38417" | |
23109 | "i38418" | |
23110 | "i38419")) | |
840cf0d1 | 23111 | #(ribcage () () ()) |
b2208d2e | 23112 | #(ribcage #(x) #((top)) #("i38397")) |
0f9f51a1 AW |
23113 | #(ribcage |
23114 | (identifier-syntax) | |
23115 | ((top)) | |
23116 | (((hygiene guile) | |
23117 | . | |
23118 | #(syntax-object | |
23119 | identifier-syntax | |
23120 | ((top)) | |
23121 | (hygiene guile)))))) | |
840cf0d1 AW |
23122 | (hygiene guile))) |
23123 | (list (list '#(syntax-object | |
23124 | set! | |
23125 | ((top) | |
23126 | #(ribcage | |
23127 | #(id exp1 var val exp2) | |
23128 | #((top) | |
23129 | (top) | |
23130 | (top) | |
23131 | (top) | |
23132 | (top)) | |
b2208d2e AW |
23133 | #("i38415" |
23134 | "i38416" | |
23135 | "i38417" | |
23136 | "i38418" | |
23137 | "i38419")) | |
840cf0d1 AW |
23138 | #(ribcage () () ()) |
23139 | #(ribcage | |
23140 | #(x) | |
23141 | #((top)) | |
b2208d2e | 23142 | #("i38397")) |
0f9f51a1 AW |
23143 | #(ribcage |
23144 | (identifier-syntax) | |
23145 | ((top)) | |
23146 | (((hygiene guile) | |
23147 | . | |
23148 | #(syntax-object | |
23149 | identifier-syntax | |
23150 | ((top)) | |
23151 | (hygiene guile)))))) | |
840cf0d1 | 23152 | (hygiene guile)) |
b2208d2e AW |
23153 | #{var 38443}# |
23154 | #{val 38444}#) | |
840cf0d1 AW |
23155 | (list '#(syntax-object |
23156 | syntax | |
23157 | ((top) | |
23158 | #(ribcage | |
23159 | #(id exp1 var val exp2) | |
23160 | #((top) | |
23161 | (top) | |
23162 | (top) | |
23163 | (top) | |
23164 | (top)) | |
b2208d2e AW |
23165 | #("i38415" |
23166 | "i38416" | |
23167 | "i38417" | |
23168 | "i38418" | |
23169 | "i38419")) | |
840cf0d1 AW |
23170 | #(ribcage () () ()) |
23171 | #(ribcage | |
23172 | #(x) | |
23173 | #((top)) | |
b2208d2e | 23174 | #("i38397")) |
0f9f51a1 AW |
23175 | #(ribcage |
23176 | (identifier-syntax) | |
23177 | ((top)) | |
23178 | (((hygiene guile) | |
23179 | . | |
23180 | #(syntax-object | |
23181 | identifier-syntax | |
23182 | ((top)) | |
23183 | (hygiene guile)))))) | |
840cf0d1 | 23184 | (hygiene guile)) |
b2208d2e AW |
23185 | #{exp2 38445}#)) |
23186 | (list (cons #{id 38441}# | |
840cf0d1 AW |
23187 | '(#(syntax-object |
23188 | x | |
23189 | ((top) | |
23190 | #(ribcage | |
23191 | #(id exp1 var val exp2) | |
23192 | #((top) | |
23193 | (top) | |
23194 | (top) | |
23195 | (top) | |
23196 | (top)) | |
b2208d2e AW |
23197 | #("i38415" |
23198 | "i38416" | |
23199 | "i38417" | |
23200 | "i38418" | |
23201 | "i38419")) | |
840cf0d1 AW |
23202 | #(ribcage () () ()) |
23203 | #(ribcage | |
23204 | #(x) | |
23205 | #((top)) | |
b2208d2e | 23206 | #("i38397")) |
0f9f51a1 AW |
23207 | #(ribcage |
23208 | (identifier-syntax) | |
23209 | ((top)) | |
23210 | (((hygiene guile) | |
23211 | . | |
23212 | #(syntax-object | |
23213 | identifier-syntax | |
23214 | ((top)) | |
23215 | (hygiene guile)))))) | |
840cf0d1 AW |
23216 | (hygiene guile)) |
23217 | #(syntax-object | |
23218 | ... | |
23219 | ((top) | |
23220 | #(ribcage | |
23221 | #(id exp1 var val exp2) | |
23222 | #((top) | |
23223 | (top) | |
23224 | (top) | |
23225 | (top) | |
23226 | (top)) | |
b2208d2e AW |
23227 | #("i38415" |
23228 | "i38416" | |
23229 | "i38417" | |
23230 | "i38418" | |
23231 | "i38419")) | |
840cf0d1 AW |
23232 | #(ribcage () () ()) |
23233 | #(ribcage | |
23234 | #(x) | |
23235 | #((top)) | |
b2208d2e | 23236 | #("i38397")) |
0f9f51a1 AW |
23237 | #(ribcage |
23238 | (identifier-syntax) | |
23239 | ((top)) | |
23240 | (((hygiene guile) | |
23241 | . | |
23242 | #(syntax-object | |
23243 | identifier-syntax | |
23244 | ((top)) | |
23245 | (hygiene guile)))))) | |
840cf0d1 AW |
23246 | (hygiene guile)))) |
23247 | (list '#(syntax-object | |
23248 | syntax | |
23249 | ((top) | |
23250 | #(ribcage | |
23251 | #(id exp1 var val exp2) | |
23252 | #((top) | |
23253 | (top) | |
23254 | (top) | |
23255 | (top) | |
23256 | (top)) | |
b2208d2e AW |
23257 | #("i38415" |
23258 | "i38416" | |
23259 | "i38417" | |
23260 | "i38418" | |
23261 | "i38419")) | |
840cf0d1 AW |
23262 | #(ribcage () () ()) |
23263 | #(ribcage | |
23264 | #(x) | |
23265 | #((top)) | |
b2208d2e | 23266 | #("i38397")) |
0f9f51a1 AW |
23267 | #(ribcage |
23268 | (identifier-syntax) | |
23269 | ((top)) | |
23270 | (((hygiene guile) | |
23271 | . | |
23272 | #(syntax-object | |
23273 | identifier-syntax | |
23274 | ((top)) | |
23275 | (hygiene guile)))))) | |
840cf0d1 | 23276 | (hygiene guile)) |
b2208d2e | 23277 | (cons #{exp1 38442}# |
840cf0d1 AW |
23278 | '(#(syntax-object |
23279 | x | |
23280 | ((top) | |
23281 | #(ribcage | |
23282 | #(id | |
23283 | exp1 | |
23284 | var | |
23285 | val | |
23286 | exp2) | |
23287 | #((top) | |
23288 | (top) | |
23289 | (top) | |
23290 | (top) | |
23291 | (top)) | |
b2208d2e AW |
23292 | #("i38415" |
23293 | "i38416" | |
23294 | "i38417" | |
23295 | "i38418" | |
23296 | "i38419")) | |
840cf0d1 AW |
23297 | #(ribcage () () ()) |
23298 | #(ribcage | |
23299 | #(x) | |
23300 | #((top)) | |
b2208d2e | 23301 | #("i38397")) |
0f9f51a1 AW |
23302 | #(ribcage |
23303 | (identifier-syntax) | |
23304 | ((top)) | |
23305 | (((hygiene guile) | |
23306 | . | |
23307 | #(syntax-object | |
23308 | identifier-syntax | |
23309 | ((top)) | |
23310 | (hygiene | |
23311 | guile)))))) | |
840cf0d1 AW |
23312 | (hygiene guile)) |
23313 | #(syntax-object | |
23314 | ... | |
23315 | ((top) | |
23316 | #(ribcage | |
23317 | #(id | |
23318 | exp1 | |
23319 | var | |
23320 | val | |
23321 | exp2) | |
23322 | #((top) | |
23323 | (top) | |
23324 | (top) | |
23325 | (top) | |
23326 | (top)) | |
b2208d2e AW |
23327 | #("i38415" |
23328 | "i38416" | |
23329 | "i38417" | |
23330 | "i38418" | |
23331 | "i38419")) | |
840cf0d1 AW |
23332 | #(ribcage () () ()) |
23333 | #(ribcage | |
23334 | #(x) | |
23335 | #((top)) | |
b2208d2e | 23336 | #("i38397")) |
0f9f51a1 AW |
23337 | #(ribcage |
23338 | (identifier-syntax) | |
23339 | ((top)) | |
23340 | (((hygiene guile) | |
23341 | . | |
23342 | #(syntax-object | |
23343 | identifier-syntax | |
23344 | ((top)) | |
23345 | (hygiene | |
23346 | guile)))))) | |
840cf0d1 | 23347 | (hygiene guile)))))) |
b2208d2e | 23348 | (list #{id 38441}# |
840cf0d1 AW |
23349 | (list '#(syntax-object |
23350 | identifier? | |
23351 | ((top) | |
23352 | #(ribcage | |
23353 | #(id exp1 var val exp2) | |
23354 | #((top) | |
23355 | (top) | |
23356 | (top) | |
23357 | (top) | |
23358 | (top)) | |
b2208d2e AW |
23359 | #("i38415" |
23360 | "i38416" | |
23361 | "i38417" | |
23362 | "i38418" | |
23363 | "i38419")) | |
840cf0d1 AW |
23364 | #(ribcage () () ()) |
23365 | #(ribcage | |
23366 | #(x) | |
23367 | #((top)) | |
b2208d2e | 23368 | #("i38397")) |
0f9f51a1 AW |
23369 | #(ribcage |
23370 | (identifier-syntax) | |
23371 | ((top)) | |
23372 | (((hygiene guile) | |
23373 | . | |
23374 | #(syntax-object | |
23375 | identifier-syntax | |
23376 | ((top)) | |
23377 | (hygiene guile)))))) | |
840cf0d1 AW |
23378 | (hygiene guile)) |
23379 | (list '#(syntax-object | |
23380 | syntax | |
23381 | ((top) | |
23382 | #(ribcage | |
23383 | #(id | |
23384 | exp1 | |
23385 | var | |
23386 | val | |
23387 | exp2) | |
23388 | #((top) | |
23389 | (top) | |
23390 | (top) | |
23391 | (top) | |
23392 | (top)) | |
b2208d2e AW |
23393 | #("i38415" |
23394 | "i38416" | |
23395 | "i38417" | |
23396 | "i38418" | |
23397 | "i38419")) | |
840cf0d1 AW |
23398 | #(ribcage () () ()) |
23399 | #(ribcage | |
23400 | #(x) | |
23401 | #((top)) | |
b2208d2e | 23402 | #("i38397")) |
0f9f51a1 AW |
23403 | #(ribcage |
23404 | (identifier-syntax) | |
23405 | ((top)) | |
23406 | (((hygiene guile) | |
23407 | . | |
23408 | #(syntax-object | |
23409 | identifier-syntax | |
23410 | ((top)) | |
23411 | (hygiene | |
23412 | guile)))))) | |
840cf0d1 | 23413 | (hygiene guile)) |
b2208d2e | 23414 | #{id 38441}#)) |
840cf0d1 AW |
23415 | (list '#(syntax-object |
23416 | syntax | |
23417 | ((top) | |
23418 | #(ribcage | |
23419 | #(id exp1 var val exp2) | |
23420 | #((top) | |
23421 | (top) | |
23422 | (top) | |
23423 | (top) | |
23424 | (top)) | |
b2208d2e AW |
23425 | #("i38415" |
23426 | "i38416" | |
23427 | "i38417" | |
23428 | "i38418" | |
23429 | "i38419")) | |
840cf0d1 AW |
23430 | #(ribcage () () ()) |
23431 | #(ribcage | |
23432 | #(x) | |
23433 | #((top)) | |
b2208d2e | 23434 | #("i38397")) |
0f9f51a1 AW |
23435 | #(ribcage |
23436 | (identifier-syntax) | |
23437 | ((top)) | |
23438 | (((hygiene guile) | |
23439 | . | |
23440 | #(syntax-object | |
23441 | identifier-syntax | |
23442 | ((top)) | |
23443 | (hygiene guile)))))) | |
840cf0d1 | 23444 | (hygiene guile)) |
b2208d2e AW |
23445 | #{exp1 38442}#)))))) |
23446 | #{tmp 38432}#) | |
840cf0d1 AW |
23447 | (syntax-violation |
23448 | #f | |
23449 | "source expression failed to match any pattern" | |
b2208d2e | 23450 | #{x 38425}#)))))))) |
840cf0d1 AW |
23451 | |
23452 | (define define* | |
23453 | (make-syntax-transformer | |
23454 | 'define* | |
23455 | 'macro | |
b2208d2e AW |
23456 | (lambda (#{x 38478}#) |
23457 | (let ((#{tmp 38480}# | |
840cf0d1 | 23458 | ($sc-dispatch |
b2208d2e | 23459 | #{x 38478}# |
840cf0d1 | 23460 | '(_ (any . any) any . each-any)))) |
b2208d2e | 23461 | (if #{tmp 38480}# |
840cf0d1 | 23462 | (@apply |
b2208d2e AW |
23463 | (lambda (#{id 38484}# |
23464 | #{args 38485}# | |
23465 | #{b0 38486}# | |
23466 | #{b1 38487}#) | |
840cf0d1 AW |
23467 | (list '#(syntax-object |
23468 | define | |
23469 | ((top) | |
23470 | #(ribcage | |
23471 | #(id args b0 b1) | |
23472 | #((top) (top) (top) (top)) | |
b2208d2e | 23473 | #("i38460" "i38461" "i38462" "i38463")) |
840cf0d1 | 23474 | #(ribcage () () ()) |
b2208d2e | 23475 | #(ribcage #(x) #((top)) #("i38457")) |
0f9f51a1 AW |
23476 | #(ribcage |
23477 | (define*) | |
23478 | ((top)) | |
23479 | (((hygiene guile) | |
23480 | . | |
23481 | #(syntax-object | |
23482 | define* | |
23483 | ((top)) | |
23484 | (hygiene guile)))))) | |
840cf0d1 | 23485 | (hygiene guile)) |
b2208d2e | 23486 | #{id 38484}# |
840cf0d1 AW |
23487 | (cons '#(syntax-object |
23488 | lambda* | |
417ee098 AW |
23489 | ((top) |
23490 | #(ribcage | |
840cf0d1 AW |
23491 | #(id args b0 b1) |
23492 | #((top) (top) (top) (top)) | |
b2208d2e | 23493 | #("i38460" "i38461" "i38462" "i38463")) |
417ee098 | 23494 | #(ribcage () () ()) |
b2208d2e | 23495 | #(ribcage #(x) #((top)) #("i38457")) |
0f9f51a1 AW |
23496 | #(ribcage |
23497 | (define*) | |
23498 | ((top)) | |
23499 | (((hygiene guile) | |
23500 | . | |
23501 | #(syntax-object | |
23502 | define* | |
23503 | ((top)) | |
23504 | (hygiene guile)))))) | |
417ee098 | 23505 | (hygiene guile)) |
b2208d2e AW |
23506 | (cons #{args 38485}# |
23507 | (cons #{b0 38486}# #{b1 38487}#))))) | |
23508 | #{tmp 38480}#) | |
23509 | (let ((#{tmp 38488}# | |
23510 | ($sc-dispatch #{x 38478}# '(_ any any)))) | |
23511 | (if (if #{tmp 38488}# | |
840cf0d1 | 23512 | (@apply |
b2208d2e | 23513 | (lambda (#{id 38492}# #{val 38493}#) |
840cf0d1 AW |
23514 | (identifier? |
23515 | '#(syntax-object | |
23516 | x | |
23517 | ((top) | |
23518 | #(ribcage | |
23519 | #(id val) | |
23520 | #((top) (top)) | |
b2208d2e | 23521 | #("i38470" "i38471")) |
840cf0d1 | 23522 | #(ribcage () () ()) |
b2208d2e | 23523 | #(ribcage #(x) #((top)) #("i38457")) |
0f9f51a1 AW |
23524 | #(ribcage |
23525 | (define*) | |
23526 | ((top)) | |
23527 | (((hygiene guile) | |
23528 | . | |
23529 | #(syntax-object | |
23530 | define* | |
23531 | ((top)) | |
23532 | (hygiene guile)))))) | |
840cf0d1 | 23533 | (hygiene guile)))) |
b2208d2e | 23534 | #{tmp 38488}#) |
840cf0d1 AW |
23535 | #f) |
23536 | (@apply | |
b2208d2e | 23537 | (lambda (#{id 38494}# #{val 38495}#) |
840cf0d1 AW |
23538 | (list '#(syntax-object |
23539 | define | |
23540 | ((top) | |
23541 | #(ribcage | |
23542 | #(id val) | |
23543 | #((top) (top)) | |
b2208d2e | 23544 | #("i38474" "i38475")) |
840cf0d1 | 23545 | #(ribcage () () ()) |
b2208d2e | 23546 | #(ribcage #(x) #((top)) #("i38457")) |
0f9f51a1 AW |
23547 | #(ribcage |
23548 | (define*) | |
23549 | ((top)) | |
23550 | (((hygiene guile) | |
23551 | . | |
23552 | #(syntax-object | |
23553 | define* | |
23554 | ((top)) | |
23555 | (hygiene guile)))))) | |
840cf0d1 | 23556 | (hygiene guile)) |
b2208d2e AW |
23557 | #{id 38494}# |
23558 | #{val 38495}#)) | |
23559 | #{tmp 38488}#) | |
840cf0d1 AW |
23560 | (syntax-violation |
23561 | #f | |
23562 | "source expression failed to match any pattern" | |
b2208d2e | 23563 | #{x 38478}#)))))))) |
65dd9e38 | 23564 |