HCoop / bpt / guile.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
really boot primitive-eval from scheme.
[bpt/guile.git] / module / ice-9 / psyntax-pp.scm
1 (eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
2 (if #f #f)
3
4 (letrec ((#{and-map*\ 3695}#
5 (lambda (#{f\ 3733}# #{first\ 3734}# . #{rest\ 3735}#)
6 (let ((#{t\ 3736}# (null? #{first\ 3734}#)))
7 (if #{t\ 3736}#
8 #{t\ 3736}#
9 (if (null? #{rest\ 3735}#)
10 (letrec ((#{andmap\ 3737}#
11 (lambda (#{first\ 3738}#)
12 (let ((#{x\ 3739}# (car #{first\ 3738}#))
13 (#{first\ 3740}# (cdr #{first\ 3738}#)))
14 (if (null? #{first\ 3740}#)
15 (#{f\ 3733}# #{x\ 3739}#)
16 (if (#{f\ 3733}# #{x\ 3739}#)
17 (#{andmap\ 3737}# #{first\ 3740}#)
18 #f))))))
19 (#{andmap\ 3737}# #{first\ 3734}#))
20 (letrec ((#{andmap\ 3741}#
21 (lambda (#{first\ 3742}# #{rest\ 3743}#)
22 (let ((#{x\ 3744}# (car #{first\ 3742}#))
23 (#{xr\ 3745}# (map car #{rest\ 3743}#))
24 (#{first\ 3746}# (cdr #{first\ 3742}#))
25 (#{rest\ 3747}#
26 (map cdr #{rest\ 3743}#)))
27 (if (null? #{first\ 3746}#)
28 (apply #{f\ 3733}#
29 (cons #{x\ 3744}# #{xr\ 3745}#))
30 (if (apply #{f\ 3733}#
31 (cons #{x\ 3744}# #{xr\ 3745}#))
32 (#{andmap\ 3741}#
33 #{first\ 3746}#
34 #{rest\ 3747}#)
35 #f))))))
36 (#{andmap\ 3741}# #{first\ 3734}# #{rest\ 3735}#))))))))
37 (letrec ((#{lambda-var-list\ 3846}#
38 (lambda (#{vars\ 3970}#)
39 (letrec ((#{lvl\ 3971}#
40 (lambda (#{vars\ 3972}# #{ls\ 3973}# #{w\ 3974}#)
41 (if (pair? #{vars\ 3972}#)
42 (#{lvl\ 3971}#
43 (cdr #{vars\ 3972}#)
44 (cons (#{wrap\ 3823}#
45 (car #{vars\ 3972}#)
46 #{w\ 3974}#
47 #f)
48 #{ls\ 3973}#)
49 #{w\ 3974}#)
50 (if (#{id?\ 3795}# #{vars\ 3972}#)
51 (cons (#{wrap\ 3823}#
52 #{vars\ 3972}#
53 #{w\ 3974}#
54 #f)
55 #{ls\ 3973}#)
56 (if (null? #{vars\ 3972}#)
57 #{ls\ 3973}#
58 (if (#{syntax-object?\ 3779}# #{vars\ 3972}#)
59 (#{lvl\ 3971}#
60 (#{syntax-object-expression\ 3780}#
61 #{vars\ 3972}#)
62 #{ls\ 3973}#
63 (#{join-wraps\ 3814}#
64 #{w\ 3974}#
65 (#{syntax-object-wrap\ 3781}#
66 #{vars\ 3972}#)))
67 (cons #{vars\ 3972}# #{ls\ 3973}#))))))))
68 (#{lvl\ 3971}#
69 #{vars\ 3970}#
70 '()
71 '(())))))
72 (#{gen-var\ 3845}#
73 (lambda (#{id\ 3975}#)
74 (let ((#{id\ 3976}#
75 (if (#{syntax-object?\ 3779}# #{id\ 3975}#)
76 (#{syntax-object-expression\ 3780}# #{id\ 3975}#)
77 #{id\ 3975}#)))
78 (gensym
79 (string-append (symbol->string #{id\ 3976}#) " ")))))
80 (#{strip\ 3844}#
81 (lambda (#{x\ 3977}# #{w\ 3978}#)
82 (if (memq 'top
83 (#{wrap-marks\ 3798}# #{w\ 3978}#))
84 #{x\ 3977}#
85 (letrec ((#{f\ 3979}#
86 (lambda (#{x\ 3980}#)
87 (if (#{syntax-object?\ 3779}# #{x\ 3980}#)
88 (#{strip\ 3844}#
89 (#{syntax-object-expression\ 3780}#
90 #{x\ 3980}#)
91 (#{syntax-object-wrap\ 3781}# #{x\ 3980}#))
92 (if (pair? #{x\ 3980}#)
93 (let ((#{a\ 3981}#
94 (#{f\ 3979}# (car #{x\ 3980}#)))
95 (#{d\ 3982}#
96 (#{f\ 3979}# (cdr #{x\ 3980}#))))
97 (if (if (eq? #{a\ 3981}# (car #{x\ 3980}#))
98 (eq? #{d\ 3982}# (cdr #{x\ 3980}#))
99 #f)
100 #{x\ 3980}#
101 (cons #{a\ 3981}# #{d\ 3982}#)))
102 (if (vector? #{x\ 3980}#)
103 (let ((#{old\ 3983}#
104 (vector->list #{x\ 3980}#)))
105 (let ((#{new\ 3984}#
106 (map #{f\ 3979}# #{old\ 3983}#)))
107 (if (#{and-map*\ 3695}#
108 eq?
109 #{old\ 3983}#
110 #{new\ 3984}#)
111 #{x\ 3980}#
112 (list->vector #{new\ 3984}#))))
113 #{x\ 3980}#))))))
114 (#{f\ 3979}# #{x\ 3977}#)))))
115 (#{chi-lambda-case\ 3843}#
116 (lambda (#{e\ 3985}#
117 #{r\ 3986}#
118 #{w\ 3987}#
119 #{s\ 3988}#
120 #{mod\ 3989}#
121 #{get-formals\ 3990}#
122 #{clauses\ 3991}#)
123 (letrec ((#{expand-body\ 3995}#
124 (lambda (#{req\ 3996}#
125 #{opt\ 3997}#
126 #{rest\ 3998}#
127 #{kw\ 3999}#
128 #{body\ 4000}#
129 #{vars\ 4001}#
130 #{r*\ 4002}#
131 #{w*\ 4003}#
132 #{inits\ 4004}#)
133 ((lambda (#{tmp\ 4005}#)
134 ((lambda (#{tmp\ 4006}#)
135 (if (if #{tmp\ 4006}#
136 (apply (lambda (#{docstring\ 4007}#
137 #{e1\ 4008}#
138 #{e2\ 4009}#)
139 (string?
140 (syntax->datum
141 #{docstring\ 4007}#)))
142 #{tmp\ 4006}#)
143 #f)
144 (apply (lambda (#{docstring\ 4010}#
145 #{e1\ 4011}#
146 #{e2\ 4012}#)
147 (values
148 (syntax->datum
149 #{docstring\ 4010}#)
150 #{req\ 3996}#
151 #{opt\ 3997}#
152 #{rest\ 3998}#
153 #{kw\ 3999}#
154 #{inits\ 4004}#
155 #{vars\ 4001}#
156 (#{chi-body\ 3835}#
157 (cons #{e1\ 4011}#
158 #{e2\ 4012}#)
159 (#{source-wrap\ 3824}#
160 #{e\ 3985}#
161 #{w\ 3987}#
162 #{s\ 3988}#
163 #{mod\ 3989}#)
164 #{r*\ 4002}#
165 #{w*\ 4003}#
166 #{mod\ 3989}#)))
167 #{tmp\ 4006}#)
168 ((lambda (#{tmp\ 4014}#)
169 (if #{tmp\ 4014}#
170 (apply (lambda (#{e1\ 4015}#
171 #{e2\ 4016}#)
172 (values
173 #f
174 #{req\ 3996}#
175 #{opt\ 3997}#
176 #{rest\ 3998}#
177 #{kw\ 3999}#
178 #{inits\ 4004}#
179 #{vars\ 4001}#
180 (#{chi-body\ 3835}#
181 (cons #{e1\ 4015}#
182 #{e2\ 4016}#)
183 (#{source-wrap\ 3824}#
184 #{e\ 3985}#
185 #{w\ 3987}#
186 #{s\ 3988}#
187 #{mod\ 3989}#)
188 #{r*\ 4002}#
189 #{w*\ 4003}#
190 #{mod\ 3989}#)))
191 #{tmp\ 4014}#)
192 (syntax-violation
193 #f
194 "source expression failed to match any pattern"
195 #{tmp\ 4005}#)))
196 ($sc-dispatch
197 #{tmp\ 4005}#
198 '(any . each-any)))))
199 ($sc-dispatch
200 #{tmp\ 4005}#
201 '(any any . each-any))))
202 #{body\ 4000}#)))
203 (#{expand-kw\ 3994}#
204 (lambda (#{req\ 4018}#
205 #{opt\ 4019}#
206 #{rest\ 4020}#
207 #{kw\ 4021}#
208 #{body\ 4022}#
209 #{vars\ 4023}#
210 #{r*\ 4024}#
211 #{w*\ 4025}#
212 #{aok\ 4026}#
213 #{out\ 4027}#
214 #{inits\ 4028}#)
215 (if (pair? #{kw\ 4021}#)
216 ((lambda (#{tmp\ 4029}#)
217 ((lambda (#{tmp\ 4030}#)
218 (if #{tmp\ 4030}#
219 (apply (lambda (#{k\ 4031}#
220 #{id\ 4032}#
221 #{i\ 4033}#)
222 (let ((#{v\ 4034}#
223 (#{gen-var\ 3845}#
224 #{id\ 4032}#)))
225 (let ((#{l\ 4035}#
226 (#{gen-labels\ 3801}#
227 (list #{v\ 4034}#))))
228 (let ((#{r**\ 4036}#
229 (#{extend-var-env\ 3790}#
230 #{l\ 4035}#
231 (list #{v\ 4034}#)
232 #{r*\ 4024}#)))
233 (let ((#{w**\ 4037}#
234 (#{make-binding-wrap\ 3812}#
235 (list #{id\ 4032}#)
236 #{l\ 4035}#
237 #{w*\ 4025}#)))
238 (#{expand-kw\ 3994}#
239 #{req\ 4018}#
240 #{opt\ 4019}#
241 #{rest\ 4020}#
242 (cdr #{kw\ 4021}#)
243 #{body\ 4022}#
244 (cons #{v\ 4034}#
245 #{vars\ 4023}#)
246 #{r**\ 4036}#
247 #{w**\ 4037}#
248 #{aok\ 4026}#
249 (cons (list (syntax->datum
250 #{k\ 4031}#)
251 (syntax->datum
252 #{id\ 4032}#)
253 #{v\ 4034}#)
254 #{out\ 4027}#)
255 (cons (#{chi\ 3831}#
256 #{i\ 4033}#
257 #{r*\ 4024}#
258 #{w*\ 4025}#
259 #{mod\ 3989}#)
260 #{inits\ 4028}#)))))))
261 #{tmp\ 4030}#)
262 (syntax-violation
263 #f
264 "source expression failed to match any pattern"
265 #{tmp\ 4029}#)))
266 ($sc-dispatch
267 #{tmp\ 4029}#
268 '(any any any))))
269 (car #{kw\ 4021}#))
270 (#{expand-body\ 3995}#
271 #{req\ 4018}#
272 #{opt\ 4019}#
273 #{rest\ 4020}#
274 (if (let ((#{t\ 4038}# #{aok\ 4026}#))
275 (if #{t\ 4038}#
276 #{t\ 4038}#
277 (pair? #{out\ 4027}#)))
278 (cons #{aok\ 4026}# (reverse #{out\ 4027}#))
279 #f)
280 #{body\ 4022}#
281 (reverse #{vars\ 4023}#)
282 #{r*\ 4024}#
283 #{w*\ 4025}#
284 (reverse #{inits\ 4028}#)))))
285 (#{expand-opt\ 3993}#
286 (lambda (#{req\ 4039}#
287 #{opt\ 4040}#
288 #{rest\ 4041}#
289 #{kw\ 4042}#
290 #{body\ 4043}#
291 #{vars\ 4044}#
292 #{r*\ 4045}#
293 #{w*\ 4046}#
294 #{out\ 4047}#
295 #{inits\ 4048}#)
296 (if (pair? #{opt\ 4040}#)
297 ((lambda (#{tmp\ 4049}#)
298 ((lambda (#{tmp\ 4050}#)
299 (if #{tmp\ 4050}#
300 (apply (lambda (#{id\ 4051}# #{i\ 4052}#)
301 (let ((#{v\ 4053}#
302 (#{gen-var\ 3845}#
303 #{id\ 4051}#)))
304 (let ((#{l\ 4054}#
305 (#{gen-labels\ 3801}#
306 (list #{v\ 4053}#))))
307 (let ((#{r**\ 4055}#
308 (#{extend-var-env\ 3790}#
309 #{l\ 4054}#
310 (list #{v\ 4053}#)
311 #{r*\ 4045}#)))
312 (let ((#{w**\ 4056}#
313 (#{make-binding-wrap\ 3812}#
314 (list #{id\ 4051}#)
315 #{l\ 4054}#
316 #{w*\ 4046}#)))
317 (#{expand-opt\ 3993}#
318 #{req\ 4039}#
319 (cdr #{opt\ 4040}#)
320 #{rest\ 4041}#
321 #{kw\ 4042}#
322 #{body\ 4043}#
323 (cons #{v\ 4053}#
324 #{vars\ 4044}#)
325 #{r**\ 4055}#
326 #{w**\ 4056}#
327 (cons (syntax->datum
328 #{id\ 4051}#)
329 #{out\ 4047}#)
330 (cons (#{chi\ 3831}#
331 #{i\ 4052}#
332 #{r*\ 4045}#
333 #{w*\ 4046}#
334 #{mod\ 3989}#)
335 #{inits\ 4048}#)))))))
336 #{tmp\ 4050}#)
337 (syntax-violation
338 #f
339 "source expression failed to match any pattern"
340 #{tmp\ 4049}#)))
341 ($sc-dispatch
342 #{tmp\ 4049}#
343 '(any any))))
344 (car #{opt\ 4040}#))
345 (if #{rest\ 4041}#
346 (let ((#{v\ 4057}#
347 (#{gen-var\ 3845}# #{rest\ 4041}#)))
348 (let ((#{l\ 4058}#
349 (#{gen-labels\ 3801}#
350 (list #{v\ 4057}#))))
351 (let ((#{r*\ 4059}#
352 (#{extend-var-env\ 3790}#
353 #{l\ 4058}#
354 (list #{v\ 4057}#)
355 #{r*\ 4045}#)))
356 (let ((#{w*\ 4060}#
357 (#{make-binding-wrap\ 3812}#
358 (list #{rest\ 4041}#)
359 #{l\ 4058}#
360 #{w*\ 4046}#)))
361 (#{expand-kw\ 3994}#
362 #{req\ 4039}#
363 (if (pair? #{out\ 4047}#)
364 (reverse #{out\ 4047}#)
365 #f)
366 (syntax->datum #{rest\ 4041}#)
367 (if (pair? #{kw\ 4042}#)
368 (cdr #{kw\ 4042}#)
369 #{kw\ 4042}#)
370 #{body\ 4043}#
371 (cons #{v\ 4057}# #{vars\ 4044}#)
372 #{r*\ 4059}#
373 #{w*\ 4060}#
374 (if (pair? #{kw\ 4042}#)
375 (car #{kw\ 4042}#)
376 #f)
377 '()
378 #{inits\ 4048}#)))))
379 (#{expand-kw\ 3994}#
380 #{req\ 4039}#
381 (if (pair? #{out\ 4047}#)
382 (reverse #{out\ 4047}#)
383 #f)
384 #f
385 (if (pair? #{kw\ 4042}#)
386 (cdr #{kw\ 4042}#)
387 #{kw\ 4042}#)
388 #{body\ 4043}#
389 #{vars\ 4044}#
390 #{r*\ 4045}#
391 #{w*\ 4046}#
392 (if (pair? #{kw\ 4042}#)
393 (car #{kw\ 4042}#)
394 #f)
395 '()
396 #{inits\ 4048}#)))))
397 (#{expand-req\ 3992}#
398 (lambda (#{req\ 4061}#
399 #{opt\ 4062}#
400 #{rest\ 4063}#
401 #{kw\ 4064}#
402 #{body\ 4065}#)
403 (let ((#{vars\ 4066}#
404 (map #{gen-var\ 3845}# #{req\ 4061}#))
405 (#{labels\ 4067}#
406 (#{gen-labels\ 3801}# #{req\ 4061}#)))
407 (let ((#{r*\ 4068}#
408 (#{extend-var-env\ 3790}#
409 #{labels\ 4067}#
410 #{vars\ 4066}#
411 #{r\ 3986}#))
412 (#{w*\ 4069}#
413 (#{make-binding-wrap\ 3812}#
414 #{req\ 4061}#
415 #{labels\ 4067}#
416 #{w\ 3987}#)))
417 (#{expand-opt\ 3993}#
418 (map syntax->datum #{req\ 4061}#)
419 #{opt\ 4062}#
420 #{rest\ 4063}#
421 #{kw\ 4064}#
422 #{body\ 4065}#
423 (reverse #{vars\ 4066}#)
424 #{r*\ 4068}#
425 #{w*\ 4069}#
426 '()
427 '()))))))
428 ((lambda (#{tmp\ 4070}#)
429 ((lambda (#{tmp\ 4071}#)
430 (if #{tmp\ 4071}#
431 (apply (lambda () (values #f #f)) #{tmp\ 4071}#)
432 ((lambda (#{tmp\ 4072}#)
433 (if #{tmp\ 4072}#
434 (apply (lambda (#{args\ 4073}#
435 #{e1\ 4074}#
436 #{e2\ 4075}#
437 #{args*\ 4076}#
438 #{e1*\ 4077}#
439 #{e2*\ 4078}#)
440 (call-with-values
441 (lambda ()
442 (#{get-formals\ 3990}#
443 #{args\ 4073}#))
444 (lambda (#{req\ 4079}#
445 #{opt\ 4080}#
446 #{rest\ 4081}#
447 #{kw\ 4082}#)
448 (call-with-values
449 (lambda ()
450 (#{expand-req\ 3992}#
451 #{req\ 4079}#
452 #{opt\ 4080}#
453 #{rest\ 4081}#
454 #{kw\ 4082}#
455 (cons #{e1\ 4074}#
456 #{e2\ 4075}#)))
457 (lambda (#{docstring\ 4084}#
458 #{req\ 4085}#
459 #{opt\ 4086}#
460 #{rest\ 4087}#
461 #{kw\ 4088}#
462 #{inits\ 4089}#
463 #{vars\ 4090}#
464 #{body\ 4091}#)
465 (call-with-values
466 (lambda ()
467 (#{chi-lambda-case\ 3843}#
468 #{e\ 3985}#
469 #{r\ 3986}#
470 #{w\ 3987}#
471 #{s\ 3988}#
472 #{mod\ 3989}#
473 #{get-formals\ 3990}#
474 (map (lambda (#{tmp\ 4094}#
475 #{tmp\ 4093}#
476 #{tmp\ 4092}#)
477 (cons #{tmp\ 4092}#
478 (cons #{tmp\ 4093}#
479 #{tmp\ 4094}#)))
480 #{e2*\ 4078}#
481 #{e1*\ 4077}#
482 #{args*\ 4076}#)))
483 (lambda (#{docstring*\ 4096}#
484 #{else*\ 4097}#)
485 (values
486 (let ((#{t\ 4098}#
487 #{docstring\ 4084}#))
488 (if #{t\ 4098}#
489 #{t\ 4098}#
490 #{docstring*\ 4096}#))
491 (#{build-lambda-case\ 3771}#
492 #{s\ 3988}#
493 #{req\ 4085}#
494 #{opt\ 4086}#
495 #{rest\ 4087}#
496 #{kw\ 4088}#
497 #{inits\ 4089}#
498 #{vars\ 4090}#
499 #{body\ 4091}#
500 #{else*\ 4097}#)))))))))
501 #{tmp\ 4072}#)
502 (syntax-violation
503 #f
504 "source expression failed to match any pattern"
505 #{tmp\ 4070}#)))
506 ($sc-dispatch
507 #{tmp\ 4070}#
508 '((any any . each-any)
509 .
510 #(each (any any . each-any)))))))
511 ($sc-dispatch #{tmp\ 4070}# (quote ()))))
512 #{clauses\ 3991}#))))
513 (#{lambda*-formals\ 3842}#
514 (lambda (#{orig-args\ 4099}#)
515 (letrec ((#{check\ 4104}#
516 (lambda (#{req\ 4105}#
517 #{opt\ 4106}#
518 #{rest\ 4107}#
519 #{kw\ 4108}#)
520 (if (#{distinct-bound-ids?\ 3821}#
521 (append
522 #{req\ 4105}#
523 (map car #{opt\ 4106}#)
524 (if #{rest\ 4107}#
525 (list #{rest\ 4107}#)
526 '())
527 (if (pair? #{kw\ 4108}#)
528 (map cadr (cdr #{kw\ 4108}#))
529 '())))
530 (values
531 #{req\ 4105}#
532 #{opt\ 4106}#
533 #{rest\ 4107}#
534 #{kw\ 4108}#)
535 (syntax-violation
536 'lambda*
537 "duplicate identifier in argument list"
538 #{orig-args\ 4099}#))))
539 (#{rest\ 4103}#
540 (lambda (#{args\ 4109}#
541 #{req\ 4110}#
542 #{opt\ 4111}#
543 #{kw\ 4112}#)
544 ((lambda (#{tmp\ 4113}#)
545 ((lambda (#{tmp\ 4114}#)
546 (if (if #{tmp\ 4114}#
547 (apply (lambda (#{r\ 4115}#)
548 (#{id?\ 3795}# #{r\ 4115}#))
549 #{tmp\ 4114}#)
550 #f)
551 (apply (lambda (#{r\ 4116}#)
552 (#{check\ 4104}#
553 #{req\ 4110}#
554 #{opt\ 4111}#
555 #{r\ 4116}#
556 #{kw\ 4112}#))
557 #{tmp\ 4114}#)
558 ((lambda (#{else\ 4117}#)
559 (syntax-violation
560 'lambda*
561 "invalid rest argument"
562 #{orig-args\ 4099}#
563 #{args\ 4109}#))
564 #{tmp\ 4113}#)))
565 (list #{tmp\ 4113}#)))
566 #{args\ 4109}#)))
567 (#{key\ 4102}#
568 (lambda (#{args\ 4118}#
569 #{req\ 4119}#
570 #{opt\ 4120}#
571 #{rkey\ 4121}#)
572 ((lambda (#{tmp\ 4122}#)
573 ((lambda (#{tmp\ 4123}#)
574 (if #{tmp\ 4123}#
575 (apply (lambda ()
576 (#{check\ 4104}#
577 #{req\ 4119}#
578 #{opt\ 4120}#
579 #f
580 (cons #f
581 (reverse
582 #{rkey\ 4121}#))))
583 #{tmp\ 4123}#)
584 ((lambda (#{tmp\ 4124}#)
585 (if (if #{tmp\ 4124}#
586 (apply (lambda (#{a\ 4125}#
587 #{b\ 4126}#)
588 (#{id?\ 3795}#
589 #{a\ 4125}#))
590 #{tmp\ 4124}#)
591 #f)
592 (apply (lambda (#{a\ 4127}#
593 #{b\ 4128}#)
594 ((lambda (#{tmp\ 4129}#)
595 ((lambda (#{k\ 4130}#)
596 (#{key\ 4102}#
597 #{b\ 4128}#
598 #{req\ 4119}#
599 #{opt\ 4120}#
600 (cons (cons #{k\ 4130}#
601 (cons #{a\ 4127}#
602 '(#(syntax-object
603 #f
604 ((top)
605 #(ribcage
606 #(k)
607 #((top))
608 #("i"))
609 #(ribcage
610 #(a
611 b)
612 #((top)
613 (top))
614 #("i"
615 "i"))
616 #(ribcage
617 ()
618 ()
619 ())
620 #(ribcage
621 #(args
622 req
623 opt
624 rkey)
625 #((top)
626 (top)
627 (top)
628 (top))
629 #("i"
630 "i"
631 "i"
632 "i"))
633 #(ribcage
634 (check rest
635 key
636 opt
637 req)
638 ((top)
639 (top)
640 (top)
641 (top)
642 (top))
643 ("i"
644 "i"
645 "i"
646 "i"
647 "i"))
648 #(ribcage
649 #(orig-args)
650 #((top))
651 #("i"))
652 #(ribcage
653 (lambda-var-list
654 gen-var
655 strip
656 chi-lambda-case
657 lambda*-formals
658 chi-simple-lambda
659 lambda-formals
660 ellipsis?
661 chi-void
662 eval-local-transformer
663 chi-local-syntax
664 chi-body
665 chi-macro
666 chi-application
667 chi-expr
668 chi
669 chi-top
670 syntax-type
671 chi-when-list
672 chi-install-global
673 chi-top-sequence
674 chi-sequence
675 source-wrap
676 wrap
677 bound-id-member?
678 distinct-bound-ids?
679 valid-bound-ids?
680 bound-id=?
681 free-id=?
682 id-var-name
683 same-marks?
684 join-marks
685 join-wraps
686 smart-append
687 make-binding-wrap
688 extend-ribcage!
689 make-empty-ribcage
690 new-mark
691 anti-mark
692 the-anti-mark
693 top-marked?
694 top-wrap
695 empty-wrap
696 set-ribcage-labels!
697 set-ribcage-marks!
698 set-ribcage-symnames!
699 ribcage-labels
700 ribcage-marks
701 ribcage-symnames
702 ribcage?
703 make-ribcage
704 gen-labels
705 gen-label
706 make-rename
707 rename-marks
708 rename-new
709 rename-old
710 subst-rename?
711 wrap-subst
712 wrap-marks
713 make-wrap
714 id-sym-name&marks
715 id-sym-name
716 id?
717 nonsymbol-id?
718 global-extend
719 lookup
720 macros-only-env
721 extend-var-env
722 extend-env
723 null-env
724 binding-value
725 binding-type
726 make-binding
727 arg-check
728 source-annotation
729 no-source
730 set-syntax-object-module!
731 set-syntax-object-wrap!
732 set-syntax-object-expression!
733 syntax-object-module
734 syntax-object-wrap
735 syntax-object-expression
736 syntax-object?
737 make-syntax-object
738 build-lexical-var
739 build-letrec
740 build-named-let
741 build-let
742 build-sequence
743 build-data
744 build-primref
745 build-lambda-case
746 build-case-lambda
747 build-simple-lambda
748 build-global-definition
749 maybe-name-value!
750 build-global-assignment
751 build-global-reference
752 analyze-variable
753 build-lexical-assignment
754 build-lexical-reference
755 build-conditional
756 build-application
757 build-void
758 decorate-source
759 get-global-definition-hook
760 put-global-definition-hook
761 gensym-hook
762 local-eval-hook
763 top-level-eval-hook
764 fx<
765 fx=
766 fx-
767 fx+
768 *mode*
769 noexpand)
770 ((top)
771 (top)
772 (top)
773 (top)
774 (top)
775 (top)
776 (top)
777 (top)
778 (top)
779 (top)
780 (top)
781 (top)
782 (top)
783 (top)
784 (top)
785 (top)
786 (top)
787 (top)
788 (top)
789 (top)
790 (top)
791 (top)
792 (top)
793 (top)
794 (top)
795 (top)
796 (top)
797 (top)
798 (top)
799 (top)
800 (top)
801 (top)
802 (top)
803 (top)
804 (top)
805 (top)
806 (top)
807 (top)
808 (top)
809 (top)
810 (top)
811 (top)
812 (top)
813 (top)
814 (top)
815 (top)
816 (top)
817 (top)
818 (top)
819 (top)
820 (top)
821 (top)
822 (top)
823 (top)
824 (top)
825 (top)
826 (top)
827 (top)
828 (top)
829 (top)
830 (top)
831 (top)
832 (top)
833 (top)
834 (top)
835 (top)
836 (top)
837 (top)
838 (top)
839 (top)
840 (top)
841 (top)
842 (top)
843 (top)
844 (top)
845 (top)
846 (top)
847 (top)
848 (top)
849 (top)
850 (top)
851 (top)
852 (top)
853 (top)
854 (top)
855 (top)
856 (top)
857 (top)
858 (top)
859 (top)
860 (top)
861 (top)
862 (top)
863 (top)
864 (top)
865 (top)
866 (top)
867 (top)
868 (top)
869 (top)
870 (top)
871 (top)
872 (top)
873 (top)
874 (top)
875 (top)
876 (top)
877 (top)
878 (top)
879 (top)
880 (top)
881 (top)
882 (top)
883 (top)
884 (top)
885 (top)
886 (top))
887 ("i"
888 "i"
889 "i"
890 "i"
891 "i"
892 "i"
893 "i"
894 "i"
895 "i"
896 "i"
897 "i"
898 "i"
899 "i"
900 "i"
901 "i"
902 "i"
903 "i"
904 "i"
905 "i"
906 "i"
907 "i"
908 "i"
909 "i"
910 "i"
911 "i"
912 "i"
913 "i"
914 "i"
915 "i"
916 "i"
917 "i"
918 "i"
919 "i"
920 "i"
921 "i"
922 "i"
923 "i"
924 "i"
925 "i"
926 "i"
927 "i"
928 "i"
929 "i"
930 "i"
931 "i"
932 "i"
933 "i"
934 "i"
935 "i"
936 "i"
937 "i"
938 "i"
939 "i"
940 "i"
941 "i"
942 "i"
943 "i"
944 "i"
945 "i"
946 "i"
947 "i"
948 "i"
949 "i"
950 "i"
951 "i"
952 "i"
953 "i"
954 "i"
955 "i"
956 "i"
957 "i"
958 "i"
959 "i"
960 "i"
961 "i"
962 "i"
963 "i"
964 "i"
965 "i"
966 "i"
967 "i"
968 "i"
969 "i"
970 "i"
971 "i"
972 "i"
973 "i"
974 "i"
975 "i"
976 "i"
977 "i"
978 "i"
979 "i"
980 "i"
981 "i"
982 "i"
983 "i"
984 "i"
985 "i"
986 "i"
987 "i"
988 "i"
989 "i"
990 "i"
991 "i"
992 "i"
993 "i"
994 "i"
995 "i"
996 "i"
997 "i"
998 "i"
999 "i"
1000 "i"
1001 "i"
1002 "i"
1003 "i"))
1004 #(ribcage
1005 (define-structure
1006 and-map*)
1007 ((top)
1008 (top))
1009 ("i"
1010 "i")))
1011 (hygiene
1012 guile)))))
1013 #{rkey\ 4121}#)))
1014 #{tmp\ 4129}#))
1015 (symbol->keyword
1016 (syntax->datum
1017 #{a\ 4127}#))))
1018 #{tmp\ 4124}#)
1019 ((lambda (#{tmp\ 4131}#)
1020 (if (if #{tmp\ 4131}#
1021 (apply (lambda (#{a\ 4132}#
1022 #{init\ 4133}#
1023 #{b\ 4134}#)
1024 (#{id?\ 3795}#
1025 #{a\ 4132}#))
1026 #{tmp\ 4131}#)
1027 #f)
1028 (apply (lambda (#{a\ 4135}#
1029 #{init\ 4136}#
1030 #{b\ 4137}#)
1031 ((lambda (#{tmp\ 4138}#)
1032 ((lambda (#{k\ 4139}#)
1033 (#{key\ 4102}#
1034 #{b\ 4137}#
1035 #{req\ 4119}#
1036 #{opt\ 4120}#
1037 (cons (list #{k\ 4139}#
1038 #{a\ 4135}#
1039 #{init\ 4136}#)
1040 #{rkey\ 4121}#)))
1041 #{tmp\ 4138}#))
1042 (symbol->keyword
1043 (syntax->datum
1044 #{a\ 4135}#))))
1045 #{tmp\ 4131}#)
1046 ((lambda (#{tmp\ 4140}#)
1047 (if (if #{tmp\ 4140}#
1048 (apply (lambda (#{a\ 4141}#
1049 #{init\ 4142}#
1050 #{k\ 4143}#
1051 #{b\ 4144}#)
1052 (if (#{id?\ 3795}#
1053 #{a\ 4141}#)
1054 (keyword?
1055 (syntax->datum
1056 #{k\ 4143}#))
1057 #f))
1058 #{tmp\ 4140}#)
1059 #f)
1060 (apply (lambda (#{a\ 4145}#
1061 #{init\ 4146}#
1062 #{k\ 4147}#
1063 #{b\ 4148}#)
1064 (#{key\ 4102}#
1065 #{b\ 4148}#
1066 #{req\ 4119}#
1067 #{opt\ 4120}#
1068 (cons (list #{k\ 4147}#
1069 #{a\ 4145}#
1070 #{init\ 4146}#)
1071 #{rkey\ 4121}#)))
1072 #{tmp\ 4140}#)
1073 ((lambda (#{tmp\ 4149}#)
1074 (if (if #{tmp\ 4149}#
1075 (apply (lambda (#{aok\ 4150}#)
1076 (eq? (syntax->datum
1077 #{aok\ 4150}#)
1078 #:allow-other-keys))
1079 #{tmp\ 4149}#)
1080 #f)
1081 (apply (lambda (#{aok\ 4151}#)
1082 (#{check\ 4104}#
1083 #{req\ 4119}#
1084 #{opt\ 4120}#
1085 #f
1086 (cons #t
1087 (reverse
1088 #{rkey\ 4121}#))))
1089 #{tmp\ 4149}#)
1090 ((lambda (#{tmp\ 4152}#)
1091 (if (if #{tmp\ 4152}#
1092 (apply (lambda (#{aok\ 4153}#
1093 #{a\ 4154}#
1094 #{b\ 4155}#)
1095 (if (eq? (syntax->datum
1096 #{aok\ 4153}#)
1097 #:allow-other-keys)
1098 (eq? (syntax->datum
1099 #{a\ 4154}#)
1100 #:rest)
1101 #f))
1102 #{tmp\ 4152}#)
1103 #f)
1104 (apply (lambda (#{aok\ 4156}#
1105 #{a\ 4157}#
1106 #{b\ 4158}#)
1107 (#{rest\ 4103}#
1108 #{b\ 4158}#
1109 #{req\ 4119}#
1110 #{opt\ 4120}#
1111 (cons #t
1112 (reverse
1113 #{rkey\ 4121}#))))
1114 #{tmp\ 4152}#)
1115 ((lambda (#{tmp\ 4159}#)
1116 (if (if #{tmp\ 4159}#
1117 (apply (lambda (#{aok\ 4160}#
1118 #{r\ 4161}#)
1119 (if (eq? (syntax->datum
1120 #{aok\ 4160}#)
1121 #:allow-other-keys)
1122 (#{id?\ 3795}#
1123 #{r\ 4161}#)
1124 #f))
1125 #{tmp\ 4159}#)
1126 #f)
1127 (apply (lambda (#{aok\ 4162}#
1128 #{r\ 4163}#)
1129 (#{rest\ 4103}#
1130 #{r\ 4163}#
1131 #{req\ 4119}#
1132 #{opt\ 4120}#
1133 (cons #t
1134 (reverse
1135 #{rkey\ 4121}#))))
1136 #{tmp\ 4159}#)
1137 ((lambda (#{tmp\ 4164}#)
1138 (if (if #{tmp\ 4164}#
1139 (apply (lambda (#{a\ 4165}#
1140 #{b\ 4166}#)
1141 (eq? (syntax->datum
1142 #{a\ 4165}#)
1143 #:rest))
1144 #{tmp\ 4164}#)
1145 #f)
1146 (apply (lambda (#{a\ 4167}#
1147 #{b\ 4168}#)
1148 (#{rest\ 4103}#
1149 #{b\ 4168}#
1150 #{req\ 4119}#
1151 #{opt\ 4120}#
1152 (cons #f
1153 (reverse
1154 #{rkey\ 4121}#))))
1155 #{tmp\ 4164}#)
1156 ((lambda (#{tmp\ 4169}#)
1157 (if (if #{tmp\ 4169}#
1158 (apply (lambda (#{r\ 4170}#)
1159 (#{id?\ 3795}#
1160 #{r\ 4170}#))
1161 #{tmp\ 4169}#)
1162 #f)
1163 (apply (lambda (#{r\ 4171}#)
1164 (#{rest\ 4103}#
1165 #{r\ 4171}#
1166 #{req\ 4119}#
1167 #{opt\ 4120}#
1168 (cons #f
1169 (reverse
1170 #{rkey\ 4121}#))))
1171 #{tmp\ 4169}#)
1172 ((lambda (#{else\ 4172}#)
1173 (syntax-violation
1174 'lambda*
1175 "invalid keyword argument list"
1176 #{orig-args\ 4099}#
1177 #{args\ 4118}#))
1178 #{tmp\ 4122}#)))
1179 (list #{tmp\ 4122}#))))
1180 ($sc-dispatch
1181 #{tmp\ 4122}#
1182 '(any any)))))
1183 ($sc-dispatch
1184 #{tmp\ 4122}#
1185 '(any .
1186 any)))))
1187 ($sc-dispatch
1188 #{tmp\ 4122}#
1189 '(any any any)))))
1190 ($sc-dispatch
1191 #{tmp\ 4122}#
1192 '(any)))))
1193 ($sc-dispatch
1194 #{tmp\ 4122}#
1195 '((any any any) . any)))))
1196 ($sc-dispatch
1197 #{tmp\ 4122}#
1198 '((any any) . any)))))
1199 ($sc-dispatch
1200 #{tmp\ 4122}#
1201 '(any . any)))))
1202 ($sc-dispatch #{tmp\ 4122}# (quote ()))))
1203 #{args\ 4118}#)))
1204 (#{opt\ 4101}#
1205 (lambda (#{args\ 4173}# #{req\ 4174}# #{ropt\ 4175}#)
1206 ((lambda (#{tmp\ 4176}#)
1207 ((lambda (#{tmp\ 4177}#)
1208 (if #{tmp\ 4177}#
1209 (apply (lambda ()
1210 (#{check\ 4104}#
1211 #{req\ 4174}#
1212 (reverse #{ropt\ 4175}#)
1213 #f
1214 '()))
1215 #{tmp\ 4177}#)
1216 ((lambda (#{tmp\ 4178}#)
1217 (if (if #{tmp\ 4178}#
1218 (apply (lambda (#{a\ 4179}#
1219 #{b\ 4180}#)
1220 (#{id?\ 3795}#
1221 #{a\ 4179}#))
1222 #{tmp\ 4178}#)
1223 #f)
1224 (apply (lambda (#{a\ 4181}#
1225 #{b\ 4182}#)
1226 (#{opt\ 4101}#
1227 #{b\ 4182}#
1228 #{req\ 4174}#
1229 (cons (cons #{a\ 4181}#
1230 '(#(syntax-object
1231 #f
1232 ((top)
1233 #(ribcage
1234 #(a b)
1235 #((top)
1236 (top))
1237 #("i"
1238 "i"))
1239 #(ribcage
1240 ()
1241 ()
1242 ())
1243 #(ribcage
1244 #(args
1245 req
1246 ropt)
1247 #((top)
1248 (top)
1249 (top))
1250 #("i"
1251 "i"
1252 "i"))
1253 #(ribcage
1254 (check rest
1255 key
1256 opt
1257 req)
1258 ((top)
1259 (top)
1260 (top)
1261 (top)
1262 (top))
1263 ("i"
1264 "i"
1265 "i"
1266 "i"
1267 "i"))
1268 #(ribcage
1269 #(orig-args)
1270 #((top))
1271 #("i"))
1272 #(ribcage
1273 (lambda-var-list
1274 gen-var
1275 strip
1276 chi-lambda-case
1277 lambda*-formals
1278 chi-simple-lambda
1279 lambda-formals
1280 ellipsis?
1281 chi-void
1282 eval-local-transformer
1283 chi-local-syntax
1284 chi-body
1285 chi-macro
1286 chi-application
1287 chi-expr
1288 chi
1289 chi-top
1290 syntax-type
1291 chi-when-list
1292 chi-install-global
1293 chi-top-sequence
1294 chi-sequence
1295 source-wrap
1296 wrap
1297 bound-id-member?
1298 distinct-bound-ids?
1299 valid-bound-ids?
1300 bound-id=?
1301 free-id=?
1302 id-var-name
1303 same-marks?
1304 join-marks
1305 join-wraps
1306 smart-append
1307 make-binding-wrap
1308 extend-ribcage!
1309 make-empty-ribcage
1310 new-mark
1311 anti-mark
1312 the-anti-mark
1313 top-marked?
1314 top-wrap
1315 empty-wrap
1316 set-ribcage-labels!
1317 set-ribcage-marks!
1318 set-ribcage-symnames!
1319 ribcage-labels
1320 ribcage-marks
1321 ribcage-symnames
1322 ribcage?
1323 make-ribcage
1324 gen-labels
1325 gen-label
1326 make-rename
1327 rename-marks
1328 rename-new
1329 rename-old
1330 subst-rename?
1331 wrap-subst
1332 wrap-marks
1333 make-wrap
1334 id-sym-name&marks
1335 id-sym-name
1336 id?
1337 nonsymbol-id?
1338 global-extend
1339 lookup
1340 macros-only-env
1341 extend-var-env
1342 extend-env
1343 null-env
1344 binding-value
1345 binding-type
1346 make-binding
1347 arg-check
1348 source-annotation
1349 no-source
1350 set-syntax-object-module!
1351 set-syntax-object-wrap!
1352 set-syntax-object-expression!
1353 syntax-object-module
1354 syntax-object-wrap
1355 syntax-object-expression
1356 syntax-object?
1357 make-syntax-object
1358 build-lexical-var
1359 build-letrec
1360 build-named-let
1361 build-let
1362 build-sequence
1363 build-data
1364 build-primref
1365 build-lambda-case
1366 build-case-lambda
1367 build-simple-lambda
1368 build-global-definition
1369 maybe-name-value!
1370 build-global-assignment
1371 build-global-reference
1372 analyze-variable
1373 build-lexical-assignment
1374 build-lexical-reference
1375 build-conditional
1376 build-application
1377 build-void
1378 decorate-source
1379 get-global-definition-hook
1380 put-global-definition-hook
1381 gensym-hook
1382 local-eval-hook
1383 top-level-eval-hook
1384 fx<
1385 fx=
1386 fx-
1387 fx+
1388 *mode*
1389 noexpand)
1390 ((top)
1391 (top)
1392 (top)
1393 (top)
1394 (top)
1395 (top)
1396 (top)
1397 (top)
1398 (top)
1399 (top)
1400 (top)
1401 (top)
1402 (top)
1403 (top)
1404 (top)
1405 (top)
1406 (top)
1407 (top)
1408 (top)
1409 (top)
1410 (top)
1411 (top)
1412 (top)
1413 (top)
1414 (top)
1415 (top)
1416 (top)
1417 (top)
1418 (top)
1419 (top)
1420 (top)
1421 (top)
1422 (top)
1423 (top)
1424 (top)
1425 (top)
1426 (top)
1427 (top)
1428 (top)
1429 (top)
1430 (top)
1431 (top)
1432 (top)
1433 (top)
1434 (top)
1435 (top)
1436 (top)
1437 (top)
1438 (top)
1439 (top)
1440 (top)
1441 (top)
1442 (top)
1443 (top)
1444 (top)
1445 (top)
1446 (top)
1447 (top)
1448 (top)
1449 (top)
1450 (top)
1451 (top)
1452 (top)
1453 (top)
1454 (top)
1455 (top)
1456 (top)
1457 (top)
1458 (top)
1459 (top)
1460 (top)
1461 (top)
1462 (top)
1463 (top)
1464 (top)
1465 (top)
1466 (top)
1467 (top)
1468 (top)
1469 (top)
1470 (top)
1471 (top)
1472 (top)
1473 (top)
1474 (top)
1475 (top)
1476 (top)
1477 (top)
1478 (top)
1479 (top)
1480 (top)
1481 (top)
1482 (top)
1483 (top)
1484 (top)
1485 (top)
1486 (top)
1487 (top)
1488 (top)
1489 (top)
1490 (top)
1491 (top)
1492 (top)
1493 (top)
1494 (top)
1495 (top)
1496 (top)
1497 (top)
1498 (top)
1499 (top)
1500 (top)
1501 (top)
1502 (top)
1503 (top)
1504 (top)
1505 (top)
1506 (top))
1507 ("i"
1508 "i"
1509 "i"
1510 "i"
1511 "i"
1512 "i"
1513 "i"
1514 "i"
1515 "i"
1516 "i"
1517 "i"
1518 "i"
1519 "i"
1520 "i"
1521 "i"
1522 "i"
1523 "i"
1524 "i"
1525 "i"
1526 "i"
1527 "i"
1528 "i"
1529 "i"
1530 "i"
1531 "i"
1532 "i"
1533 "i"
1534 "i"
1535 "i"
1536 "i"
1537 "i"
1538 "i"
1539 "i"
1540 "i"
1541 "i"
1542 "i"
1543 "i"
1544 "i"
1545 "i"
1546 "i"
1547 "i"
1548 "i"
1549 "i"
1550 "i"
1551 "i"
1552 "i"
1553 "i"
1554 "i"
1555 "i"
1556 "i"
1557 "i"
1558 "i"
1559 "i"
1560 "i"
1561 "i"
1562 "i"
1563 "i"
1564 "i"
1565 "i"
1566 "i"
1567 "i"
1568 "i"
1569 "i"
1570 "i"
1571 "i"
1572 "i"
1573 "i"
1574 "i"
1575 "i"
1576 "i"
1577 "i"
1578 "i"
1579 "i"
1580 "i"
1581 "i"
1582 "i"
1583 "i"
1584 "i"
1585 "i"
1586 "i"
1587 "i"
1588 "i"
1589 "i"
1590 "i"
1591 "i"
1592 "i"
1593 "i"
1594 "i"
1595 "i"
1596 "i"
1597 "i"
1598 "i"
1599 "i"
1600 "i"
1601 "i"
1602 "i"
1603 "i"
1604 "i"
1605 "i"
1606 "i"
1607 "i"
1608 "i"
1609 "i"
1610 "i"
1611 "i"
1612 "i"
1613 "i"
1614 "i"
1615 "i"
1616 "i"
1617 "i"
1618 "i"
1619 "i"
1620 "i"
1621 "i"
1622 "i"
1623 "i"))
1624 #(ribcage
1625 (define-structure
1626 and-map*)
1627 ((top)
1628 (top))
1629 ("i"
1630 "i")))
1631 (hygiene
1632 guile))))
1633 #{ropt\ 4175}#)))
1634 #{tmp\ 4178}#)
1635 ((lambda (#{tmp\ 4183}#)
1636 (if (if #{tmp\ 4183}#
1637 (apply (lambda (#{a\ 4184}#
1638 #{init\ 4185}#
1639 #{b\ 4186}#)
1640 (#{id?\ 3795}#
1641 #{a\ 4184}#))
1642 #{tmp\ 4183}#)
1643 #f)
1644 (apply (lambda (#{a\ 4187}#
1645 #{init\ 4188}#
1646 #{b\ 4189}#)
1647 (#{opt\ 4101}#
1648 #{b\ 4189}#
1649 #{req\ 4174}#
1650 (cons (list #{a\ 4187}#
1651 #{init\ 4188}#)
1652 #{ropt\ 4175}#)))
1653 #{tmp\ 4183}#)
1654 ((lambda (#{tmp\ 4190}#)
1655 (if (if #{tmp\ 4190}#
1656 (apply (lambda (#{a\ 4191}#
1657 #{b\ 4192}#)
1658 (eq? (syntax->datum
1659 #{a\ 4191}#)
1660 #:key))
1661 #{tmp\ 4190}#)
1662 #f)
1663 (apply (lambda (#{a\ 4193}#
1664 #{b\ 4194}#)
1665 (#{key\ 4102}#
1666 #{b\ 4194}#
1667 #{req\ 4174}#
1668 (reverse
1669 #{ropt\ 4175}#)
1670 '()))
1671 #{tmp\ 4190}#)
1672 ((lambda (#{tmp\ 4195}#)
1673 (if (if #{tmp\ 4195}#
1674 (apply (lambda (#{a\ 4196}#
1675 #{b\ 4197}#)
1676 (eq? (syntax->datum
1677 #{a\ 4196}#)
1678 #:rest))
1679 #{tmp\ 4195}#)
1680 #f)
1681 (apply (lambda (#{a\ 4198}#
1682 #{b\ 4199}#)
1683 (#{rest\ 4103}#
1684 #{b\ 4199}#
1685 #{req\ 4174}#
1686 (reverse
1687 #{ropt\ 4175}#)
1688 '()))
1689 #{tmp\ 4195}#)
1690 ((lambda (#{tmp\ 4200}#)
1691 (if (if #{tmp\ 4200}#
1692 (apply (lambda (#{r\ 4201}#)
1693 (#{id?\ 3795}#
1694 #{r\ 4201}#))
1695 #{tmp\ 4200}#)
1696 #f)
1697 (apply (lambda (#{r\ 4202}#)
1698 (#{rest\ 4103}#
1699 #{r\ 4202}#
1700 #{req\ 4174}#
1701 (reverse
1702 #{ropt\ 4175}#)
1703 '()))
1704 #{tmp\ 4200}#)
1705 ((lambda (#{else\ 4203}#)
1706 (syntax-violation
1707 'lambda*
1708 "invalid optional argument list"
1709 #{orig-args\ 4099}#
1710 #{args\ 4173}#))
1711 #{tmp\ 4176}#)))
1712 (list #{tmp\ 4176}#))))
1713 ($sc-dispatch
1714 #{tmp\ 4176}#
1715 '(any any)))))
1716 ($sc-dispatch
1717 #{tmp\ 4176}#
1718 '(any . any)))))
1719 ($sc-dispatch
1720 #{tmp\ 4176}#
1721 '((any any) . any)))))
1722 ($sc-dispatch
1723 #{tmp\ 4176}#
1724 '(any . any)))))
1725 ($sc-dispatch #{tmp\ 4176}# (quote ()))))
1726 #{args\ 4173}#)))
1727 (#{req\ 4100}#
1728 (lambda (#{args\ 4204}# #{rreq\ 4205}#)
1729 ((lambda (#{tmp\ 4206}#)
1730 ((lambda (#{tmp\ 4207}#)
1731 (if #{tmp\ 4207}#
1732 (apply (lambda ()
1733 (#{check\ 4104}#
1734 (reverse #{rreq\ 4205}#)
1735 '()
1736 #f
1737 '()))
1738 #{tmp\ 4207}#)
1739 ((lambda (#{tmp\ 4208}#)
1740 (if (if #{tmp\ 4208}#
1741 (apply (lambda (#{a\ 4209}#
1742 #{b\ 4210}#)
1743 (#{id?\ 3795}#
1744 #{a\ 4209}#))
1745 #{tmp\ 4208}#)
1746 #f)
1747 (apply (lambda (#{a\ 4211}#
1748 #{b\ 4212}#)
1749 (#{req\ 4100}#
1750 #{b\ 4212}#
1751 (cons #{a\ 4211}#
1752 #{rreq\ 4205}#)))
1753 #{tmp\ 4208}#)
1754 ((lambda (#{tmp\ 4213}#)
1755 (if (if #{tmp\ 4213}#
1756 (apply (lambda (#{a\ 4214}#
1757 #{b\ 4215}#)
1758 (eq? (syntax->datum
1759 #{a\ 4214}#)
1760 #:optional))
1761 #{tmp\ 4213}#)
1762 #f)
1763 (apply (lambda (#{a\ 4216}#
1764 #{b\ 4217}#)
1765 (#{opt\ 4101}#
1766 #{b\ 4217}#
1767 (reverse
1768 #{rreq\ 4205}#)
1769 '()))
1770 #{tmp\ 4213}#)
1771 ((lambda (#{tmp\ 4218}#)
1772 (if (if #{tmp\ 4218}#
1773 (apply (lambda (#{a\ 4219}#
1774 #{b\ 4220}#)
1775 (eq? (syntax->datum
1776 #{a\ 4219}#)
1777 #:key))
1778 #{tmp\ 4218}#)
1779 #f)
1780 (apply (lambda (#{a\ 4221}#
1781 #{b\ 4222}#)
1782 (#{key\ 4102}#
1783 #{b\ 4222}#
1784 (reverse
1785 #{rreq\ 4205}#)
1786 '()
1787 '()))
1788 #{tmp\ 4218}#)
1789 ((lambda (#{tmp\ 4223}#)
1790 (if (if #{tmp\ 4223}#
1791 (apply (lambda (#{a\ 4224}#
1792 #{b\ 4225}#)
1793 (eq? (syntax->datum
1794 #{a\ 4224}#)
1795 #:rest))
1796 #{tmp\ 4223}#)
1797 #f)
1798 (apply (lambda (#{a\ 4226}#
1799 #{b\ 4227}#)
1800 (#{rest\ 4103}#
1801 #{b\ 4227}#
1802 (reverse
1803 #{rreq\ 4205}#)
1804 '()
1805 '()))
1806 #{tmp\ 4223}#)
1807 ((lambda (#{tmp\ 4228}#)
1808 (if (if #{tmp\ 4228}#
1809 (apply (lambda (#{r\ 4229}#)
1810 (#{id?\ 3795}#
1811 #{r\ 4229}#))
1812 #{tmp\ 4228}#)
1813 #f)
1814 (apply (lambda (#{r\ 4230}#)
1815 (#{rest\ 4103}#
1816 #{r\ 4230}#
1817 (reverse
1818 #{rreq\ 4205}#)
1819 '()
1820 '()))
1821 #{tmp\ 4228}#)
1822 ((lambda (#{else\ 4231}#)
1823 (syntax-violation
1824 'lambda*
1825 "invalid argument list"
1826 #{orig-args\ 4099}#
1827 #{args\ 4204}#))
1828 #{tmp\ 4206}#)))
1829 (list #{tmp\ 4206}#))))
1830 ($sc-dispatch
1831 #{tmp\ 4206}#
1832 '(any any)))))
1833 ($sc-dispatch
1834 #{tmp\ 4206}#
1835 '(any . any)))))
1836 ($sc-dispatch
1837 #{tmp\ 4206}#
1838 '(any . any)))))
1839 ($sc-dispatch
1840 #{tmp\ 4206}#
1841 '(any . any)))))
1842 ($sc-dispatch #{tmp\ 4206}# (quote ()))))
1843 #{args\ 4204}#))))
1844 (#{req\ 4100}# #{orig-args\ 4099}# (quote ())))))
1845 (#{chi-simple-lambda\ 3841}#
1846 (lambda (#{e\ 4232}#
1847 #{r\ 4233}#
1848 #{w\ 4234}#
1849 #{s\ 4235}#
1850 #{mod\ 4236}#
1851 #{req\ 4237}#
1852 #{rest\ 4238}#
1853 #{docstring\ 4239}#
1854 #{body\ 4240}#)
1855 (let ((#{ids\ 4241}#
1856 (if #{rest\ 4238}#
1857 (append #{req\ 4237}# (list #{rest\ 4238}#))
1858 #{req\ 4237}#)))
1859 (let ((#{vars\ 4242}#
1860 (map #{gen-var\ 3845}# #{ids\ 4241}#)))
1861 (let ((#{labels\ 4243}#
1862 (#{gen-labels\ 3801}# #{ids\ 4241}#)))
1863 (#{build-simple-lambda\ 3769}#
1864 #{s\ 4235}#
1865 (map syntax->datum #{req\ 4237}#)
1866 (if #{rest\ 4238}#
1867 (syntax->datum #{rest\ 4238}#)
1868 #f)
1869 #{vars\ 4242}#
1870 #{docstring\ 4239}#
1871 (#{chi-body\ 3835}#
1872 #{body\ 4240}#
1873 (#{source-wrap\ 3824}#
1874 #{e\ 4232}#
1875 #{w\ 4234}#
1876 #{s\ 4235}#
1877 #{mod\ 4236}#)
1878 (#{extend-var-env\ 3790}#
1879 #{labels\ 4243}#
1880 #{vars\ 4242}#
1881 #{r\ 4233}#)
1882 (#{make-binding-wrap\ 3812}#
1883 #{ids\ 4241}#
1884 #{labels\ 4243}#
1885 #{w\ 4234}#)
1886 #{mod\ 4236}#)))))))
1887 (#{lambda-formals\ 3840}#
1888 (lambda (#{orig-args\ 4244}#)
1889 (letrec ((#{check\ 4246}#
1890 (lambda (#{req\ 4247}# #{rest\ 4248}#)
1891 (if (#{distinct-bound-ids?\ 3821}#
1892 (if #{rest\ 4248}#
1893 (cons #{rest\ 4248}# #{req\ 4247}#)
1894 #{req\ 4247}#))
1895 (values #{req\ 4247}# #f #{rest\ 4248}# #f)
1896 (syntax-violation
1897 'lambda
1898 "duplicate identifier in argument list"
1899 #{orig-args\ 4244}#))))
1900 (#{req\ 4245}#
1901 (lambda (#{args\ 4249}# #{rreq\ 4250}#)
1902 ((lambda (#{tmp\ 4251}#)
1903 ((lambda (#{tmp\ 4252}#)
1904 (if #{tmp\ 4252}#
1905 (apply (lambda ()
1906 (#{check\ 4246}#
1907 (reverse #{rreq\ 4250}#)
1908 #f))
1909 #{tmp\ 4252}#)
1910 ((lambda (#{tmp\ 4253}#)
1911 (if (if #{tmp\ 4253}#
1912 (apply (lambda (#{a\ 4254}#
1913 #{b\ 4255}#)
1914 (#{id?\ 3795}#
1915 #{a\ 4254}#))
1916 #{tmp\ 4253}#)
1917 #f)
1918 (apply (lambda (#{a\ 4256}#
1919 #{b\ 4257}#)
1920 (#{req\ 4245}#
1921 #{b\ 4257}#
1922 (cons #{a\ 4256}#
1923 #{rreq\ 4250}#)))
1924 #{tmp\ 4253}#)
1925 ((lambda (#{tmp\ 4258}#)
1926 (if (if #{tmp\ 4258}#
1927 (apply (lambda (#{r\ 4259}#)
1928 (#{id?\ 3795}#
1929 #{r\ 4259}#))
1930 #{tmp\ 4258}#)
1931 #f)
1932 (apply (lambda (#{r\ 4260}#)
1933 (#{check\ 4246}#
1934 (reverse
1935 #{rreq\ 4250}#)
1936 #{r\ 4260}#))
1937 #{tmp\ 4258}#)
1938 ((lambda (#{else\ 4261}#)
1939 (syntax-violation
1940 'lambda
1941 "invalid argument list"
1942 #{orig-args\ 4244}#
1943 #{args\ 4249}#))
1944 #{tmp\ 4251}#)))
1945 (list #{tmp\ 4251}#))))
1946 ($sc-dispatch
1947 #{tmp\ 4251}#
1948 '(any . any)))))
1949 ($sc-dispatch #{tmp\ 4251}# (quote ()))))
1950 #{args\ 4249}#))))
1951 (#{req\ 4245}# #{orig-args\ 4244}# (quote ())))))
1952 (#{ellipsis?\ 3839}#
1953 (lambda (#{x\ 4262}#)
1954 (if (#{nonsymbol-id?\ 3794}# #{x\ 4262}#)
1955 (#{free-id=?\ 3818}#
1956 #{x\ 4262}#
1957 '#(syntax-object
1958 ...
1959 ((top)
1960 #(ribcage () () ())
1961 #(ribcage () () ())
1962 #(ribcage #(x) #((top)) #("i"))
1963 #(ribcage
1964 (lambda-var-list
1965 gen-var
1966 strip
1967 chi-lambda-case
1968 lambda*-formals
1969 chi-simple-lambda
1970 lambda-formals
1971 ellipsis?
1972 chi-void
1973 eval-local-transformer
1974 chi-local-syntax
1975 chi-body
1976 chi-macro
1977 chi-application
1978 chi-expr
1979 chi
1980 chi-top
1981 syntax-type
1982 chi-when-list
1983 chi-install-global
1984 chi-top-sequence
1985 chi-sequence
1986 source-wrap
1987 wrap
1988 bound-id-member?
1989 distinct-bound-ids?
1990 valid-bound-ids?
1991 bound-id=?
1992 free-id=?
1993 id-var-name
1994 same-marks?
1995 join-marks
1996 join-wraps
1997 smart-append
1998 make-binding-wrap
1999 extend-ribcage!
2000 make-empty-ribcage
2001 new-mark
2002 anti-mark
2003 the-anti-mark
2004 top-marked?
2005 top-wrap
2006 empty-wrap
2007 set-ribcage-labels!
2008 set-ribcage-marks!
2009 set-ribcage-symnames!
2010 ribcage-labels
2011 ribcage-marks
2012 ribcage-symnames
2013 ribcage?
2014 make-ribcage
2015 gen-labels
2016 gen-label
2017 make-rename
2018 rename-marks
2019 rename-new
2020 rename-old
2021 subst-rename?
2022 wrap-subst
2023 wrap-marks
2024 make-wrap
2025 id-sym-name&marks
2026 id-sym-name
2027 id?
2028 nonsymbol-id?
2029 global-extend
2030 lookup
2031 macros-only-env
2032 extend-var-env
2033 extend-env
2034 null-env
2035 binding-value
2036 binding-type
2037 make-binding
2038 arg-check
2039 source-annotation
2040 no-source
2041 set-syntax-object-module!
2042 set-syntax-object-wrap!
2043 set-syntax-object-expression!
2044 syntax-object-module
2045 syntax-object-wrap
2046 syntax-object-expression
2047 syntax-object?
2048 make-syntax-object
2049 build-lexical-var
2050 build-letrec
2051 build-named-let
2052 build-let
2053 build-sequence
2054 build-data
2055 build-primref
2056 build-lambda-case
2057 build-case-lambda
2058 build-simple-lambda
2059 build-global-definition
2060 maybe-name-value!
2061 build-global-assignment
2062 build-global-reference
2063 analyze-variable
2064 build-lexical-assignment
2065 build-lexical-reference
2066 build-conditional
2067 build-application
2068 build-void
2069 decorate-source
2070 get-global-definition-hook
2071 put-global-definition-hook
2072 gensym-hook
2073 local-eval-hook
2074 top-level-eval-hook
2075 fx<
2076 fx=
2077 fx-
2078 fx+
2079 *mode*
2080 noexpand)
2081 ((top)
2082 (top)
2083 (top)
2084 (top)
2085 (top)
2086 (top)
2087 (top)
2088 (top)
2089 (top)
2090 (top)
2091 (top)
2092 (top)
2093 (top)
2094 (top)
2095 (top)
2096 (top)
2097 (top)
2098 (top)
2099 (top)
2100 (top)
2101 (top)
2102 (top)
2103 (top)
2104 (top)
2105 (top)
2106 (top)
2107 (top)
2108 (top)
2109 (top)
2110 (top)
2111 (top)
2112 (top)
2113 (top)
2114 (top)
2115 (top)
2116 (top)
2117 (top)
2118 (top)
2119 (top)
2120 (top)
2121 (top)
2122 (top)
2123 (top)
2124 (top)
2125 (top)
2126 (top)
2127 (top)
2128 (top)
2129 (top)
2130 (top)
2131 (top)
2132 (top)
2133 (top)
2134 (top)
2135 (top)
2136 (top)
2137 (top)
2138 (top)
2139 (top)
2140 (top)
2141 (top)
2142 (top)
2143 (top)
2144 (top)
2145 (top)
2146 (top)
2147 (top)
2148 (top)
2149 (top)
2150 (top)
2151 (top)
2152 (top)
2153 (top)
2154 (top)
2155 (top)
2156 (top)
2157 (top)
2158 (top)
2159 (top)
2160 (top)
2161 (top)
2162 (top)
2163 (top)
2164 (top)
2165 (top)
2166 (top)
2167 (top)
2168 (top)
2169 (top)
2170 (top)
2171 (top)
2172 (top)
2173 (top)
2174 (top)
2175 (top)
2176 (top)
2177 (top)
2178 (top)
2179 (top)
2180 (top)
2181 (top)
2182 (top)
2183 (top)
2184 (top)
2185 (top)
2186 (top)
2187 (top)
2188 (top)
2189 (top)
2190 (top)
2191 (top)
2192 (top)
2193 (top)
2194 (top)
2195 (top)
2196 (top)
2197 (top))
2198 ("i"
2199 "i"
2200 "i"
2201 "i"
2202 "i"
2203 "i"
2204 "i"
2205 "i"
2206 "i"
2207 "i"
2208 "i"
2209 "i"
2210 "i"
2211 "i"
2212 "i"
2213 "i"
2214 "i"
2215 "i"
2216 "i"
2217 "i"
2218 "i"
2219 "i"
2220 "i"
2221 "i"
2222 "i"
2223 "i"
2224 "i"
2225 "i"
2226 "i"
2227 "i"
2228 "i"
2229 "i"
2230 "i"
2231 "i"
2232 "i"
2233 "i"
2234 "i"
2235 "i"
2236 "i"
2237 "i"
2238 "i"
2239 "i"
2240 "i"
2241 "i"
2242 "i"
2243 "i"
2244 "i"
2245 "i"
2246 "i"
2247 "i"
2248 "i"
2249 "i"
2250 "i"
2251 "i"
2252 "i"
2253 "i"
2254 "i"
2255 "i"
2256 "i"
2257 "i"
2258 "i"
2259 "i"
2260 "i"
2261 "i"
2262 "i"
2263 "i"
2264 "i"
2265 "i"
2266 "i"
2267 "i"
2268 "i"
2269 "i"
2270 "i"
2271 "i"
2272 "i"
2273 "i"
2274 "i"
2275 "i"
2276 "i"
2277 "i"
2278 "i"
2279 "i"
2280 "i"
2281 "i"
2282 "i"
2283 "i"
2284 "i"
2285 "i"
2286 "i"
2287 "i"
2288 "i"
2289 "i"
2290 "i"
2291 "i"
2292 "i"
2293 "i"
2294 "i"
2295 "i"
2296 "i"
2297 "i"
2298 "i"
2299 "i"
2300 "i"
2301 "i"
2302 "i"
2303 "i"
2304 "i"
2305 "i"
2306 "i"
2307 "i"
2308 "i"
2309 "i"
2310 "i"
2311 "i"
2312 "i"
2313 "i"
2314 "i"))
2315 #(ribcage
2316 (define-structure and-map*)
2317 ((top) (top))
2318 ("i" "i")))
2319 (hygiene guile)))
2320 #f)))
2321 (#{chi-void\ 3838}#
2322 (lambda () (#{build-void\ 3759}# #f)))
2323 (#{eval-local-transformer\ 3837}#
2324 (lambda (#{expanded\ 4263}# #{mod\ 4264}#)
2325 (let ((#{p\ 4265}#
2326 (#{local-eval-hook\ 3755}#
2327 #{expanded\ 4263}#
2328 #{mod\ 4264}#)))
2329 (if (procedure? #{p\ 4265}#)
2330 (cons #{p\ 4265}# (module-name (current-module)))
2331 (syntax-violation
2332 #f
2333 "nonprocedure transformer"
2334 #{p\ 4265}#)))))
2335 (#{chi-local-syntax\ 3836}#
2336 (lambda (#{rec?\ 4266}#
2337 #{e\ 4267}#
2338 #{r\ 4268}#
2339 #{w\ 4269}#
2340 #{s\ 4270}#
2341 #{mod\ 4271}#
2342 #{k\ 4272}#)
2343 ((lambda (#{tmp\ 4273}#)
2344 ((lambda (#{tmp\ 4274}#)
2345 (if #{tmp\ 4274}#
2346 (apply (lambda (#{_\ 4275}#
2347 #{id\ 4276}#
2348 #{val\ 4277}#
2349 #{e1\ 4278}#
2350 #{e2\ 4279}#)
2351 (let ((#{ids\ 4280}# #{id\ 4276}#))
2352 (if (not (#{valid-bound-ids?\ 3820}#
2353 #{ids\ 4280}#))
2354 (syntax-violation
2355 #f
2356 "duplicate bound keyword"
2357 #{e\ 4267}#)
2358 (let ((#{labels\ 4282}#
2359 (#{gen-labels\ 3801}#
2360 #{ids\ 4280}#)))
2361 (let ((#{new-w\ 4283}#
2362 (#{make-binding-wrap\ 3812}#
2363 #{ids\ 4280}#
2364 #{labels\ 4282}#
2365 #{w\ 4269}#)))
2366 (#{k\ 4272}#
2367 (cons #{e1\ 4278}# #{e2\ 4279}#)
2368 (#{extend-env\ 3789}#
2369 #{labels\ 4282}#
2370 (let ((#{w\ 4285}#
2371 (if #{rec?\ 4266}#
2372 #{new-w\ 4283}#
2373 #{w\ 4269}#))
2374 (#{trans-r\ 4286}#
2375 (#{macros-only-env\ 3791}#
2376 #{r\ 4268}#)))
2377 (map (lambda (#{x\ 4287}#)
2378 (cons 'macro
2379 (#{eval-local-transformer\ 3837}#
2380 (#{chi\ 3831}#
2381 #{x\ 4287}#
2382 #{trans-r\ 4286}#
2383 #{w\ 4285}#
2384 #{mod\ 4271}#)
2385 #{mod\ 4271}#)))
2386 #{val\ 4277}#))
2387 #{r\ 4268}#)
2388 #{new-w\ 4283}#
2389 #{s\ 4270}#
2390 #{mod\ 4271}#))))))
2391 #{tmp\ 4274}#)
2392 ((lambda (#{_\ 4289}#)
2393 (syntax-violation
2394 #f
2395 "bad local syntax definition"
2396 (#{source-wrap\ 3824}#
2397 #{e\ 4267}#
2398 #{w\ 4269}#
2399 #{s\ 4270}#
2400 #{mod\ 4271}#)))
2401 #{tmp\ 4273}#)))
2402 ($sc-dispatch
2403 #{tmp\ 4273}#
2404 '(any #(each (any any)) any . each-any))))
2405 #{e\ 4267}#)))
2406 (#{chi-body\ 3835}#
2407 (lambda (#{body\ 4290}#
2408 #{outer-form\ 4291}#
2409 #{r\ 4292}#
2410 #{w\ 4293}#
2411 #{mod\ 4294}#)
2412 (let ((#{r\ 4295}#
2413 (cons '("placeholder" placeholder)
2414 #{r\ 4292}#)))
2415 (let ((#{ribcage\ 4296}#
2416 (#{make-ribcage\ 3802}#
2417 '()
2418 '()
2419 '())))
2420 (let ((#{w\ 4297}#
2421 (#{make-wrap\ 3797}#
2422 (#{wrap-marks\ 3798}# #{w\ 4293}#)
2423 (cons #{ribcage\ 4296}#
2424 (#{wrap-subst\ 3799}# #{w\ 4293}#)))))
2425 (letrec ((#{parse\ 4298}#
2426 (lambda (#{body\ 4299}#
2427 #{ids\ 4300}#
2428 #{labels\ 4301}#
2429 #{var-ids\ 4302}#
2430 #{vars\ 4303}#
2431 #{vals\ 4304}#
2432 #{bindings\ 4305}#)
2433 (if (null? #{body\ 4299}#)
2434 (syntax-violation
2435 #f
2436 "no expressions in body"
2437 #{outer-form\ 4291}#)
2438 (let ((#{e\ 4307}# (cdar #{body\ 4299}#))
2439 (#{er\ 4308}# (caar #{body\ 4299}#)))
2440 (call-with-values
2441 (lambda ()
2442 (#{syntax-type\ 3829}#
2443 #{e\ 4307}#
2444 #{er\ 4308}#
2445 '(())
2446 (#{source-annotation\ 3786}#
2447 #{er\ 4308}#)
2448 #{ribcage\ 4296}#
2449 #{mod\ 4294}#
2450 #f))
2451 (lambda (#{type\ 4309}#
2452 #{value\ 4310}#
2453 #{e\ 4311}#
2454 #{w\ 4312}#
2455 #{s\ 4313}#
2456 #{mod\ 4314}#)
2457 (if (memv #{type\ 4309}#
2458 '(define-form))
2459 (let ((#{id\ 4315}#
2460 (#{wrap\ 3823}#
2461 #{value\ 4310}#
2462 #{w\ 4312}#
2463 #{mod\ 4314}#))
2464 (#{label\ 4316}#
2465 (#{gen-label\ 3800}#)))
2466 (let ((#{var\ 4317}#
2467 (#{gen-var\ 3845}#
2468 #{id\ 4315}#)))
2469 (begin
2470 (#{extend-ribcage!\ 3811}#
2471 #{ribcage\ 4296}#
2472 #{id\ 4315}#
2473 #{label\ 4316}#)
2474 (#{parse\ 4298}#
2475 (cdr #{body\ 4299}#)
2476 (cons #{id\ 4315}#
2477 #{ids\ 4300}#)
2478 (cons #{label\ 4316}#
2479 #{labels\ 4301}#)
2480 (cons #{id\ 4315}#
2481 #{var-ids\ 4302}#)
2482 (cons #{var\ 4317}#
2483 #{vars\ 4303}#)
2484 (cons (cons #{er\ 4308}#
2485 (#{wrap\ 3823}#
2486 #{e\ 4311}#
2487 #{w\ 4312}#
2488 #{mod\ 4314}#))
2489 #{vals\ 4304}#)
2490 (cons (cons 'lexical
2491 #{var\ 4317}#)
2492 #{bindings\ 4305}#)))))
2493 (if (memv #{type\ 4309}#
2494 '(define-syntax-form))
2495 (let ((#{id\ 4318}#
2496 (#{wrap\ 3823}#
2497 #{value\ 4310}#
2498 #{w\ 4312}#
2499 #{mod\ 4314}#))
2500 (#{label\ 4319}#
2501 (#{gen-label\ 3800}#)))
2502 (begin
2503 (#{extend-ribcage!\ 3811}#
2504 #{ribcage\ 4296}#
2505 #{id\ 4318}#
2506 #{label\ 4319}#)
2507 (#{parse\ 4298}#
2508 (cdr #{body\ 4299}#)
2509 (cons #{id\ 4318}#
2510 #{ids\ 4300}#)
2511 (cons #{label\ 4319}#
2512 #{labels\ 4301}#)
2513 #{var-ids\ 4302}#
2514 #{vars\ 4303}#
2515 #{vals\ 4304}#
2516 (cons (cons 'macro
2517 (cons #{er\ 4308}#
2518 (#{wrap\ 3823}#
2519 #{e\ 4311}#
2520 #{w\ 4312}#
2521 #{mod\ 4314}#)))
2522 #{bindings\ 4305}#))))
2523 (if (memv #{type\ 4309}#
2524 '(begin-form))
2525 ((lambda (#{tmp\ 4320}#)
2526 ((lambda (#{tmp\ 4321}#)
2527 (if #{tmp\ 4321}#
2528 (apply (lambda (#{_\ 4322}#
2529 #{e1\ 4323}#)
2530 (#{parse\ 4298}#
2531 (letrec ((#{f\ 4324}#
2532 (lambda (#{forms\ 4325}#)
2533 (if (null? #{forms\ 4325}#)
2534 (cdr #{body\ 4299}#)
2535 (cons (cons #{er\ 4308}#
2536 (#{wrap\ 3823}#
2537 (car #{forms\ 4325}#)
2538 #{w\ 4312}#
2539 #{mod\ 4314}#))
2540 (#{f\ 4324}#
2541 (cdr #{forms\ 4325}#)))))))
2542 (#{f\ 4324}#
2543 #{e1\ 4323}#))
2544 #{ids\ 4300}#
2545 #{labels\ 4301}#
2546 #{var-ids\ 4302}#
2547 #{vars\ 4303}#
2548 #{vals\ 4304}#
2549 #{bindings\ 4305}#))
2550 #{tmp\ 4321}#)
2551 (syntax-violation
2552 #f
2553 "source expression failed to match any pattern"
2554 #{tmp\ 4320}#)))
2555 ($sc-dispatch
2556 #{tmp\ 4320}#
2557 '(any . each-any))))
2558 #{e\ 4311}#)
2559 (if (memv #{type\ 4309}#
2560 '(local-syntax-form))
2561 (#{chi-local-syntax\ 3836}#
2562 #{value\ 4310}#
2563 #{e\ 4311}#
2564 #{er\ 4308}#
2565 #{w\ 4312}#
2566 #{s\ 4313}#
2567 #{mod\ 4314}#
2568 (lambda (#{forms\ 4327}#
2569 #{er\ 4328}#
2570 #{w\ 4329}#
2571 #{s\ 4330}#
2572 #{mod\ 4331}#)
2573 (#{parse\ 4298}#
2574 (letrec ((#{f\ 4332}#
2575 (lambda (#{forms\ 4333}#)
2576 (if (null? #{forms\ 4333}#)
2577 (cdr #{body\ 4299}#)
2578 (cons (cons #{er\ 4328}#
2579 (#{wrap\ 3823}#
2580 (car #{forms\ 4333}#)
2581 #{w\ 4329}#
2582 #{mod\ 4331}#))
2583 (#{f\ 4332}#
2584 (cdr #{forms\ 4333}#)))))))
2585 (#{f\ 4332}#
2586 #{forms\ 4327}#))
2587 #{ids\ 4300}#
2588 #{labels\ 4301}#
2589 #{var-ids\ 4302}#
2590 #{vars\ 4303}#
2591 #{vals\ 4304}#
2592 #{bindings\ 4305}#)))
2593 (if (null? #{ids\ 4300}#)
2594 (#{build-sequence\ 3774}#
2595 #f
2596 (map (lambda (#{x\ 4334}#)
2597 (#{chi\ 3831}#
2598 (cdr #{x\ 4334}#)
2599 (car #{x\ 4334}#)
2600 '(())
2601 #{mod\ 4314}#))
2602 (cons (cons #{er\ 4308}#
2603 (#{source-wrap\ 3824}#
2604 #{e\ 4311}#
2605 #{w\ 4312}#
2606 #{s\ 4313}#
2607 #{mod\ 4314}#))
2608 (cdr #{body\ 4299}#))))
2609 (begin
2610 (if (not (#{valid-bound-ids?\ 3820}#
2611 #{ids\ 4300}#))
2612 (syntax-violation
2613 #f
2614 "invalid or duplicate identifier in definition"
2615 #{outer-form\ 4291}#))
2616 (letrec ((#{loop\ 4335}#
2617 (lambda (#{bs\ 4336}#
2618 #{er-cache\ 4337}#
2619 #{r-cache\ 4338}#)
2620 (if (not (null? #{bs\ 4336}#))
2621 (let ((#{b\ 4339}#
2622 (car #{bs\ 4336}#)))
2623 (if (eq? (car #{b\ 4339}#)
2624 'macro)
2625 (let ((#{er\ 4340}#
2626 (cadr #{b\ 4339}#)))
2627 (let ((#{r-cache\ 4341}#
2628 (if (eq? #{er\ 4340}#
2629 #{er-cache\ 4337}#)
2630 #{r-cache\ 4338}#
2631 (#{macros-only-env\ 3791}#
2632 #{er\ 4340}#))))
2633 (begin
2634 (set-cdr!
2635 #{b\ 4339}#
2636 (#{eval-local-transformer\ 3837}#
2637 (#{chi\ 3831}#
2638 (cddr #{b\ 4339}#)
2639 #{r-cache\ 4341}#
2640 '(())
2641 #{mod\ 4314}#)
2642 #{mod\ 4314}#))
2643 (#{loop\ 4335}#
2644 (cdr #{bs\ 4336}#)
2645 #{er\ 4340}#
2646 #{r-cache\ 4341}#))))
2647 (#{loop\ 4335}#
2648 (cdr #{bs\ 4336}#)
2649 #{er-cache\ 4337}#
2650 #{r-cache\ 4338}#)))))))
2651 (#{loop\ 4335}#
2652 #{bindings\ 4305}#
2653 #f
2654 #f))
2655 (set-cdr!
2656 #{r\ 4295}#
2657 (#{extend-env\ 3789}#
2658 #{labels\ 4301}#
2659 #{bindings\ 4305}#
2660 (cdr #{r\ 4295}#)))
2661 (#{build-letrec\ 3777}#
2662 #f
2663 (map syntax->datum
2664 #{var-ids\ 4302}#)
2665 #{vars\ 4303}#
2666 (map (lambda (#{x\ 4342}#)
2667 (#{chi\ 3831}#
2668 (cdr #{x\ 4342}#)
2669 (car #{x\ 4342}#)
2670 '(())
2671 #{mod\ 4314}#))
2672 #{vals\ 4304}#)
2673 (#{build-sequence\ 3774}#
2674 #f
2675 (map (lambda (#{x\ 4343}#)
2676 (#{chi\ 3831}#
2677 (cdr #{x\ 4343}#)
2678 (car #{x\ 4343}#)
2679 '(())
2680 #{mod\ 4314}#))
2681 (cons (cons #{er\ 4308}#
2682 (#{source-wrap\ 3824}#
2683 #{e\ 4311}#
2684 #{w\ 4312}#
2685 #{s\ 4313}#
2686 #{mod\ 4314}#))
2687 (cdr #{body\ 4299}#))))))))))))))))))
2688 (#{parse\ 4298}#
2689 (map (lambda (#{x\ 4306}#)
2690 (cons #{r\ 4295}#
2691 (#{wrap\ 3823}#
2692 #{x\ 4306}#
2693 #{w\ 4297}#
2694 #{mod\ 4294}#)))
2695 #{body\ 4290}#)
2696 '()
2697 '()
2698 '()
2699 '()
2700 '()
2701 '())))))))
2702 (#{chi-macro\ 3834}#
2703 (lambda (#{p\ 4344}#
2704 #{e\ 4345}#
2705 #{r\ 4346}#
2706 #{w\ 4347}#
2707 #{rib\ 4348}#
2708 #{mod\ 4349}#)
2709 (letrec ((#{rebuild-macro-output\ 4350}#
2710 (lambda (#{x\ 4351}# #{m\ 4352}#)
2711 (if (pair? #{x\ 4351}#)
2712 (cons (#{rebuild-macro-output\ 4350}#
2713 (car #{x\ 4351}#)
2714 #{m\ 4352}#)
2715 (#{rebuild-macro-output\ 4350}#
2716 (cdr #{x\ 4351}#)
2717 #{m\ 4352}#))
2718 (if (#{syntax-object?\ 3779}# #{x\ 4351}#)
2719 (let ((#{w\ 4353}#
2720 (#{syntax-object-wrap\ 3781}#
2721 #{x\ 4351}#)))
2722 (let ((#{ms\ 4354}#
2723 (#{wrap-marks\ 3798}# #{w\ 4353}#))
2724 (#{s\ 4355}#
2725 (#{wrap-subst\ 3799}# #{w\ 4353}#)))
2726 (if (if (pair? #{ms\ 4354}#)
2727 (eq? (car #{ms\ 4354}#) #f)
2728 #f)
2729 (#{make-syntax-object\ 3778}#
2730 (#{syntax-object-expression\ 3780}#
2731 #{x\ 4351}#)
2732 (#{make-wrap\ 3797}#
2733 (cdr #{ms\ 4354}#)
2734 (if #{rib\ 4348}#
2735 (cons #{rib\ 4348}#
2736 (cdr #{s\ 4355}#))
2737 (cdr #{s\ 4355}#)))
2738 (#{syntax-object-module\ 3782}#
2739 #{x\ 4351}#))
2740 (#{make-syntax-object\ 3778}#
2741 (#{syntax-object-expression\ 3780}#
2742 #{x\ 4351}#)
2743 (#{make-wrap\ 3797}#
2744 (cons #{m\ 4352}# #{ms\ 4354}#)
2745 (if #{rib\ 4348}#
2746 (cons #{rib\ 4348}#
2747 (cons 'shift
2748 #{s\ 4355}#))
2749 (cons (quote shift) #{s\ 4355}#)))
2750 (cons 'hygiene
2751 (cdr #{p\ 4344}#))))))
2752 (if (vector? #{x\ 4351}#)
2753 (let ((#{n\ 4356}#
2754 (vector-length #{x\ 4351}#)))
2755 (let ((#{v\ 4357}#
2756 (make-vector #{n\ 4356}#)))
2757 (letrec ((#{loop\ 4358}#
2758 (lambda (#{i\ 4359}#)
2759 (if (#{fx=\ 3752}#
2760 #{i\ 4359}#
2761 #{n\ 4356}#)
2762 (begin
2763 (if #f #f)
2764 #{v\ 4357}#)
2765 (begin
2766 (vector-set!
2767 #{v\ 4357}#
2768 #{i\ 4359}#
2769 (#{rebuild-macro-output\ 4350}#
2770 (vector-ref
2771 #{x\ 4351}#
2772 #{i\ 4359}#)
2773 #{m\ 4352}#))
2774 (#{loop\ 4358}#
2775 (#{fx+\ 3750}#
2776 #{i\ 4359}#
2777 1)))))))
2778 (#{loop\ 4358}# 0))))
2779 (if (symbol? #{x\ 4351}#)
2780 (syntax-violation
2781 #f
2782 "encountered raw symbol in macro output"
2783 (#{source-wrap\ 3824}#
2784 #{e\ 4345}#
2785 #{w\ 4347}#
2786 (#{wrap-subst\ 3799}# #{w\ 4347}#)
2787 #{mod\ 4349}#)
2788 #{x\ 4351}#)
2789 #{x\ 4351}#)))))))
2790 (#{rebuild-macro-output\ 4350}#
2791 ((car #{p\ 4344}#)
2792 (#{wrap\ 3823}#
2793 #{e\ 4345}#
2794 (#{anti-mark\ 3810}# #{w\ 4347}#)
2795 #{mod\ 4349}#))
2796 (string #\m)))))
2797 (#{chi-application\ 3833}#
2798 (lambda (#{x\ 4360}#
2799 #{e\ 4361}#
2800 #{r\ 4362}#
2801 #{w\ 4363}#
2802 #{s\ 4364}#
2803 #{mod\ 4365}#)
2804 ((lambda (#{tmp\ 4366}#)
2805 ((lambda (#{tmp\ 4367}#)
2806 (if #{tmp\ 4367}#
2807 (apply (lambda (#{e0\ 4368}# #{e1\ 4369}#)
2808 (#{build-application\ 3760}#
2809 #{s\ 4364}#
2810 #{x\ 4360}#
2811 (map (lambda (#{e\ 4370}#)
2812 (#{chi\ 3831}#
2813 #{e\ 4370}#
2814 #{r\ 4362}#
2815 #{w\ 4363}#
2816 #{mod\ 4365}#))
2817 #{e1\ 4369}#)))
2818 #{tmp\ 4367}#)
2819 (syntax-violation
2820 #f
2821 "source expression failed to match any pattern"
2822 #{tmp\ 4366}#)))
2823 ($sc-dispatch
2824 #{tmp\ 4366}#
2825 '(any . each-any))))
2826 #{e\ 4361}#)))
2827 (#{chi-expr\ 3832}#
2828 (lambda (#{type\ 4372}#
2829 #{value\ 4373}#
2830 #{e\ 4374}#
2831 #{r\ 4375}#
2832 #{w\ 4376}#
2833 #{s\ 4377}#
2834 #{mod\ 4378}#)
2835 (if (memv #{type\ 4372}# (quote (lexical)))
2836 (#{build-lexical-reference\ 3762}#
2837 'value
2838 #{s\ 4377}#
2839 #{e\ 4374}#
2840 #{value\ 4373}#)
2841 (if (memv #{type\ 4372}# (quote (core core-form)))
2842 (#{value\ 4373}#
2843 #{e\ 4374}#
2844 #{r\ 4375}#
2845 #{w\ 4376}#
2846 #{s\ 4377}#
2847 #{mod\ 4378}#)
2848 (if (memv #{type\ 4372}# (quote (module-ref)))
2849 (call-with-values
2850 (lambda () (#{value\ 4373}# #{e\ 4374}#))
2851 (lambda (#{id\ 4379}# #{mod\ 4380}#)
2852 (#{build-global-reference\ 3765}#
2853 #{s\ 4377}#
2854 #{id\ 4379}#
2855 #{mod\ 4380}#)))
2856 (if (memv #{type\ 4372}# (quote (lexical-call)))
2857 (#{chi-application\ 3833}#
2858 (#{build-lexical-reference\ 3762}#
2859 'fun
2860 (#{source-annotation\ 3786}# (car #{e\ 4374}#))
2861 (car #{e\ 4374}#)
2862 #{value\ 4373}#)
2863 #{e\ 4374}#
2864 #{r\ 4375}#
2865 #{w\ 4376}#
2866 #{s\ 4377}#
2867 #{mod\ 4378}#)
2868 (if (memv #{type\ 4372}# (quote (global-call)))
2869 (#{chi-application\ 3833}#
2870 (#{build-global-reference\ 3765}#
2871 (#{source-annotation\ 3786}# (car #{e\ 4374}#))
2872 (if (#{syntax-object?\ 3779}# #{value\ 4373}#)
2873 (#{syntax-object-expression\ 3780}#
2874 #{value\ 4373}#)
2875 #{value\ 4373}#)
2876 (if (#{syntax-object?\ 3779}# #{value\ 4373}#)
2877 (#{syntax-object-module\ 3782}# #{value\ 4373}#)
2878 #{mod\ 4378}#))
2879 #{e\ 4374}#
2880 #{r\ 4375}#
2881 #{w\ 4376}#
2882 #{s\ 4377}#
2883 #{mod\ 4378}#)
2884 (if (memv #{type\ 4372}# (quote (constant)))
2885 (#{build-data\ 3773}#
2886 #{s\ 4377}#
2887 (#{strip\ 3844}#
2888 (#{source-wrap\ 3824}#
2889 #{e\ 4374}#
2890 #{w\ 4376}#
2891 #{s\ 4377}#
2892 #{mod\ 4378}#)
2893 '(())))
2894 (if (memv #{type\ 4372}# (quote (global)))
2895 (#{build-global-reference\ 3765}#
2896 #{s\ 4377}#
2897 #{value\ 4373}#
2898 #{mod\ 4378}#)
2899 (if (memv #{type\ 4372}# (quote (call)))
2900 (#{chi-application\ 3833}#
2901 (#{chi\ 3831}#
2902 (car #{e\ 4374}#)
2903 #{r\ 4375}#
2904 #{w\ 4376}#
2905 #{mod\ 4378}#)
2906 #{e\ 4374}#
2907 #{r\ 4375}#
2908 #{w\ 4376}#
2909 #{s\ 4377}#
2910 #{mod\ 4378}#)
2911 (if (memv #{type\ 4372}# (quote (begin-form)))
2912 ((lambda (#{tmp\ 4381}#)
2913 ((lambda (#{tmp\ 4382}#)
2914 (if #{tmp\ 4382}#
2915 (apply (lambda (#{_\ 4383}#
2916 #{e1\ 4384}#
2917 #{e2\ 4385}#)
2918 (#{chi-sequence\ 3825}#
2919 (cons #{e1\ 4384}#
2920 #{e2\ 4385}#)
2921 #{r\ 4375}#
2922 #{w\ 4376}#
2923 #{s\ 4377}#
2924 #{mod\ 4378}#))
2925 #{tmp\ 4382}#)
2926 (syntax-violation
2927 #f
2928 "source expression failed to match any pattern"
2929 #{tmp\ 4381}#)))
2930 ($sc-dispatch
2931 #{tmp\ 4381}#
2932 '(any any . each-any))))
2933 #{e\ 4374}#)
2934 (if (memv #{type\ 4372}#
2935 '(local-syntax-form))
2936 (#{chi-local-syntax\ 3836}#
2937 #{value\ 4373}#
2938 #{e\ 4374}#
2939 #{r\ 4375}#
2940 #{w\ 4376}#
2941 #{s\ 4377}#
2942 #{mod\ 4378}#
2943 #{chi-sequence\ 3825}#)
2944 (if (memv #{type\ 4372}#
2945 '(eval-when-form))
2946 ((lambda (#{tmp\ 4387}#)
2947 ((lambda (#{tmp\ 4388}#)
2948 (if #{tmp\ 4388}#
2949 (apply (lambda (#{_\ 4389}#
2950 #{x\ 4390}#
2951 #{e1\ 4391}#
2952 #{e2\ 4392}#)
2953 (let ((#{when-list\ 4393}#
2954 (#{chi-when-list\ 3828}#
2955 #{e\ 4374}#
2956 #{x\ 4390}#
2957 #{w\ 4376}#)))
2958 (if (memq 'eval
2959 #{when-list\ 4393}#)
2960 (#{chi-sequence\ 3825}#
2961 (cons #{e1\ 4391}#
2962 #{e2\ 4392}#)
2963 #{r\ 4375}#
2964 #{w\ 4376}#
2965 #{s\ 4377}#
2966 #{mod\ 4378}#)
2967 (#{chi-void\ 3838}#))))
2968 #{tmp\ 4388}#)
2969 (syntax-violation
2970 #f
2971 "source expression failed to match any pattern"
2972 #{tmp\ 4387}#)))
2973 ($sc-dispatch
2974 #{tmp\ 4387}#
2975 '(any each-any any . each-any))))
2976 #{e\ 4374}#)
2977 (if (memv #{type\ 4372}#
2978 '(define-form
2979 define-syntax-form))
2980 (syntax-violation
2981 #f
2982 "definition in expression context"
2983 #{e\ 4374}#
2984 (#{wrap\ 3823}#
2985 #{value\ 4373}#
2986 #{w\ 4376}#
2987 #{mod\ 4378}#))
2988 (if (memv #{type\ 4372}#
2989 '(syntax))
2990 (syntax-violation
2991 #f
2992 "reference to pattern variable outside syntax form"
2993 (#{source-wrap\ 3824}#
2994 #{e\ 4374}#
2995 #{w\ 4376}#
2996 #{s\ 4377}#
2997 #{mod\ 4378}#))
2998 (if (memv #{type\ 4372}#
2999 '(displaced-lexical))
3000 (syntax-violation
3001 #f
3002 "reference to identifier outside its scope"
3003 (#{source-wrap\ 3824}#
3004 #{e\ 4374}#
3005 #{w\ 4376}#
3006 #{s\ 4377}#
3007 #{mod\ 4378}#))
3008 (syntax-violation
3009 #f
3010 "unexpected syntax"
3011 (#{source-wrap\ 3824}#
3012 #{e\ 4374}#
3013 #{w\ 4376}#
3014 #{s\ 4377}#
3015 #{mod\ 4378}#))))))))))))))))))
3016 (#{chi\ 3831}#
3017 (lambda (#{e\ 4396}#
3018 #{r\ 4397}#
3019 #{w\ 4398}#
3020 #{mod\ 4399}#)
3021 (call-with-values
3022 (lambda ()
3023 (#{syntax-type\ 3829}#
3024 #{e\ 4396}#
3025 #{r\ 4397}#
3026 #{w\ 4398}#
3027 (#{source-annotation\ 3786}# #{e\ 4396}#)
3028 #f
3029 #{mod\ 4399}#
3030 #f))
3031 (lambda (#{type\ 4400}#
3032 #{value\ 4401}#
3033 #{e\ 4402}#
3034 #{w\ 4403}#
3035 #{s\ 4404}#
3036 #{mod\ 4405}#)
3037 (#{chi-expr\ 3832}#
3038 #{type\ 4400}#
3039 #{value\ 4401}#
3040 #{e\ 4402}#
3041 #{r\ 4397}#
3042 #{w\ 4403}#
3043 #{s\ 4404}#
3044 #{mod\ 4405}#)))))
3045 (#{chi-top\ 3830}#
3046 (lambda (#{e\ 4406}#
3047 #{r\ 4407}#
3048 #{w\ 4408}#
3049 #{m\ 4409}#
3050 #{esew\ 4410}#
3051 #{mod\ 4411}#)
3052 (call-with-values
3053 (lambda ()
3054 (#{syntax-type\ 3829}#
3055 #{e\ 4406}#
3056 #{r\ 4407}#
3057 #{w\ 4408}#
3058 (#{source-annotation\ 3786}# #{e\ 4406}#)
3059 #f
3060 #{mod\ 4411}#
3061 #f))
3062 (lambda (#{type\ 4419}#
3063 #{value\ 4420}#
3064 #{e\ 4421}#
3065 #{w\ 4422}#
3066 #{s\ 4423}#
3067 #{mod\ 4424}#)
3068 (if (memv #{type\ 4419}# (quote (begin-form)))
3069 ((lambda (#{tmp\ 4425}#)
3070 ((lambda (#{tmp\ 4426}#)
3071 (if #{tmp\ 4426}#
3072 (apply (lambda (#{_\ 4427}#) (#{chi-void\ 3838}#))
3073 #{tmp\ 4426}#)
3074 ((lambda (#{tmp\ 4428}#)
3075 (if #{tmp\ 4428}#
3076 (apply (lambda (#{_\ 4429}#
3077 #{e1\ 4430}#
3078 #{e2\ 4431}#)
3079 (#{chi-top-sequence\ 3826}#
3080 (cons #{e1\ 4430}# #{e2\ 4431}#)
3081 #{r\ 4407}#
3082 #{w\ 4422}#
3083 #{s\ 4423}#
3084 #{m\ 4409}#
3085 #{esew\ 4410}#
3086 #{mod\ 4424}#))
3087 #{tmp\ 4428}#)
3088 (syntax-violation
3089 #f
3090 "source expression failed to match any pattern"
3091 #{tmp\ 4425}#)))
3092 ($sc-dispatch
3093 #{tmp\ 4425}#
3094 '(any any . each-any)))))
3095 ($sc-dispatch #{tmp\ 4425}# (quote (any)))))
3096 #{e\ 4421}#)
3097 (if (memv #{type\ 4419}# (quote (local-syntax-form)))
3098 (#{chi-local-syntax\ 3836}#
3099 #{value\ 4420}#
3100 #{e\ 4421}#
3101 #{r\ 4407}#
3102 #{w\ 4422}#
3103 #{s\ 4423}#
3104 #{mod\ 4424}#
3105 (lambda (#{body\ 4433}#
3106 #{r\ 4434}#
3107 #{w\ 4435}#
3108 #{s\ 4436}#
3109 #{mod\ 4437}#)
3110 (#{chi-top-sequence\ 3826}#
3111 #{body\ 4433}#
3112 #{r\ 4434}#
3113 #{w\ 4435}#
3114 #{s\ 4436}#
3115 #{m\ 4409}#
3116 #{esew\ 4410}#
3117 #{mod\ 4437}#)))
3118 (if (memv #{type\ 4419}# (quote (eval-when-form)))
3119 ((lambda (#{tmp\ 4438}#)
3120 ((lambda (#{tmp\ 4439}#)
3121 (if #{tmp\ 4439}#
3122 (apply (lambda (#{_\ 4440}#
3123 #{x\ 4441}#
3124 #{e1\ 4442}#
3125 #{e2\ 4443}#)
3126 (let ((#{when-list\ 4444}#
3127 (#{chi-when-list\ 3828}#
3128 #{e\ 4421}#
3129 #{x\ 4441}#
3130 #{w\ 4422}#))
3131 (#{body\ 4445}#
3132 (cons #{e1\ 4442}#
3133 #{e2\ 4443}#)))
3134 (if (eq? #{m\ 4409}# (quote e))
3135 (if (memq 'eval
3136 #{when-list\ 4444}#)
3137 (#{chi-top-sequence\ 3826}#
3138 #{body\ 4445}#
3139 #{r\ 4407}#
3140 #{w\ 4422}#
3141 #{s\ 4423}#
3142 'e
3143 '(eval)
3144 #{mod\ 4424}#)
3145 (#{chi-void\ 3838}#))
3146 (if (memq 'load
3147 #{when-list\ 4444}#)
3148 (if (let ((#{t\ 4448}#
3149 (memq 'compile
3150 #{when-list\ 4444}#)))
3151 (if #{t\ 4448}#
3152 #{t\ 4448}#
3153 (if (eq? #{m\ 4409}#
3154 'c&e)
3155 (memq 'eval
3156 #{when-list\ 4444}#)
3157 #f)))
3158 (#{chi-top-sequence\ 3826}#
3159 #{body\ 4445}#
3160 #{r\ 4407}#
3161 #{w\ 4422}#
3162 #{s\ 4423}#
3163 'c&e
3164 '(compile load)
3165 #{mod\ 4424}#)
3166 (if (memq #{m\ 4409}#
3167 '(c c&e))
3168 (#{chi-top-sequence\ 3826}#
3169 #{body\ 4445}#
3170 #{r\ 4407}#
3171 #{w\ 4422}#
3172 #{s\ 4423}#
3173 'c
3174 '(load)
3175 #{mod\ 4424}#)
3176 (#{chi-void\ 3838}#)))
3177 (if (let ((#{t\ 4449}#
3178 (memq 'compile
3179 #{when-list\ 4444}#)))
3180 (if #{t\ 4449}#
3181 #{t\ 4449}#
3182 (if (eq? #{m\ 4409}#
3183 'c&e)
3184 (memq 'eval
3185 #{when-list\ 4444}#)
3186 #f)))
3187 (begin
3188 (#{top-level-eval-hook\ 3754}#
3189 (#{chi-top-sequence\ 3826}#
3190 #{body\ 4445}#
3191 #{r\ 4407}#
3192 #{w\ 4422}#
3193 #{s\ 4423}#
3194 'e
3195 '(eval)
3196 #{mod\ 4424}#)
3197 #{mod\ 4424}#)
3198 (#{chi-void\ 3838}#))
3199 (#{chi-void\ 3838}#))))))
3200 #{tmp\ 4439}#)
3201 (syntax-violation
3202 #f
3203 "source expression failed to match any pattern"
3204 #{tmp\ 4438}#)))
3205 ($sc-dispatch
3206 #{tmp\ 4438}#
3207 '(any each-any any . each-any))))
3208 #{e\ 4421}#)
3209 (if (memv #{type\ 4419}#
3210 '(define-syntax-form))
3211 (let ((#{n\ 4450}#
3212 (#{id-var-name\ 3817}#
3213 #{value\ 4420}#
3214 #{w\ 4422}#))
3215 (#{r\ 4451}#
3216 (#{macros-only-env\ 3791}# #{r\ 4407}#)))
3217 (if (memv #{m\ 4409}# (quote (c)))
3218 (if (memq (quote compile) #{esew\ 4410}#)
3219 (let ((#{e\ 4452}#
3220 (#{chi-install-global\ 3827}#
3221 #{n\ 4450}#
3222 (#{chi\ 3831}#
3223 #{e\ 4421}#
3224 #{r\ 4451}#
3225 #{w\ 4422}#
3226 #{mod\ 4424}#))))
3227 (begin
3228 (#{top-level-eval-hook\ 3754}#
3229 #{e\ 4452}#
3230 #{mod\ 4424}#)
3231 (if (memq (quote load) #{esew\ 4410}#)
3232 #{e\ 4452}#
3233 (#{chi-void\ 3838}#))))
3234 (if (memq (quote load) #{esew\ 4410}#)
3235 (#{chi-install-global\ 3827}#
3236 #{n\ 4450}#
3237 (#{chi\ 3831}#
3238 #{e\ 4421}#
3239 #{r\ 4451}#
3240 #{w\ 4422}#
3241 #{mod\ 4424}#))
3242 (#{chi-void\ 3838}#)))
3243 (if (memv #{m\ 4409}# (quote (c&e)))
3244 (let ((#{e\ 4453}#
3245 (#{chi-install-global\ 3827}#
3246 #{n\ 4450}#
3247 (#{chi\ 3831}#
3248 #{e\ 4421}#
3249 #{r\ 4451}#
3250 #{w\ 4422}#
3251 #{mod\ 4424}#))))
3252 (begin
3253 (#{top-level-eval-hook\ 3754}#
3254 #{e\ 4453}#
3255 #{mod\ 4424}#)
3256 #{e\ 4453}#))
3257 (begin
3258 (if (memq (quote eval) #{esew\ 4410}#)
3259 (#{top-level-eval-hook\ 3754}#
3260 (#{chi-install-global\ 3827}#
3261 #{n\ 4450}#
3262 (#{chi\ 3831}#
3263 #{e\ 4421}#
3264 #{r\ 4451}#
3265 #{w\ 4422}#
3266 #{mod\ 4424}#))
3267 #{mod\ 4424}#))
3268 (#{chi-void\ 3838}#)))))
3269 (if (memv #{type\ 4419}# (quote (define-form)))
3270 (let ((#{n\ 4454}#
3271 (#{id-var-name\ 3817}#
3272 #{value\ 4420}#
3273 #{w\ 4422}#)))
3274 (let ((#{type\ 4455}#
3275 (#{binding-type\ 3787}#
3276 (#{lookup\ 3792}#
3277 #{n\ 4454}#
3278 #{r\ 4407}#
3279 #{mod\ 4424}#))))
3280 (if (memv #{type\ 4455}#
3281 '(global core macro module-ref))
3282 (begin
3283 (if (if (not (module-local-variable
3284 (current-module)
3285 #{n\ 4454}#))
3286 (current-module)
3287 #f)
3288 (let ((#{old\ 4456}#
3289 (module-variable
3290 (current-module)
3291 #{n\ 4454}#)))
3292 (module-define!
3293 (current-module)
3294 #{n\ 4454}#
3295 (if (variable? #{old\ 4456}#)
3296 (variable-ref #{old\ 4456}#)
3297 #f))))
3298 (let ((#{x\ 4457}#
3299 (#{build-global-definition\ 3768}#
3300 #{s\ 4423}#
3301 #{n\ 4454}#
3302 (#{chi\ 3831}#
3303 #{e\ 4421}#
3304 #{r\ 4407}#
3305 #{w\ 4422}#
3306 #{mod\ 4424}#))))
3307 (begin
3308 (if (eq? #{m\ 4409}# (quote c&e))
3309 (#{top-level-eval-hook\ 3754}#
3310 #{x\ 4457}#
3311 #{mod\ 4424}#))
3312 #{x\ 4457}#)))
3313 (if (memv #{type\ 4455}#
3314 '(displaced-lexical))
3315 (syntax-violation
3316 #f
3317 "identifier out of context"
3318 #{e\ 4421}#
3319 (#{wrap\ 3823}#
3320 #{value\ 4420}#
3321 #{w\ 4422}#
3322 #{mod\ 4424}#))
3323 (syntax-violation
3324 #f
3325 "cannot define keyword at top level"
3326 #{e\ 4421}#
3327 (#{wrap\ 3823}#
3328 #{value\ 4420}#
3329 #{w\ 4422}#
3330 #{mod\ 4424}#))))))
3331 (let ((#{x\ 4458}#
3332 (#{chi-expr\ 3832}#
3333 #{type\ 4419}#
3334 #{value\ 4420}#
3335 #{e\ 4421}#
3336 #{r\ 4407}#
3337 #{w\ 4422}#
3338 #{s\ 4423}#
3339 #{mod\ 4424}#)))
3340 (begin
3341 (if (eq? #{m\ 4409}# (quote c&e))
3342 (#{top-level-eval-hook\ 3754}#
3343 #{x\ 4458}#
3344 #{mod\ 4424}#))
3345 #{x\ 4458}#)))))))))))
3346 (#{syntax-type\ 3829}#
3347 (lambda (#{e\ 4459}#
3348 #{r\ 4460}#
3349 #{w\ 4461}#
3350 #{s\ 4462}#
3351 #{rib\ 4463}#
3352 #{mod\ 4464}#
3353 #{for-car?\ 4465}#)
3354 (if (symbol? #{e\ 4459}#)
3355 (let ((#{n\ 4466}#
3356 (#{id-var-name\ 3817}# #{e\ 4459}# #{w\ 4461}#)))
3357 (let ((#{b\ 4467}#
3358 (#{lookup\ 3792}#
3359 #{n\ 4466}#
3360 #{r\ 4460}#
3361 #{mod\ 4464}#)))
3362 (let ((#{type\ 4468}#
3363 (#{binding-type\ 3787}# #{b\ 4467}#)))
3364 (if (memv #{type\ 4468}# (quote (lexical)))
3365 (values
3366 #{type\ 4468}#
3367 (#{binding-value\ 3788}# #{b\ 4467}#)
3368 #{e\ 4459}#
3369 #{w\ 4461}#
3370 #{s\ 4462}#
3371 #{mod\ 4464}#)
3372 (if (memv #{type\ 4468}# (quote (global)))
3373 (values
3374 #{type\ 4468}#
3375 #{n\ 4466}#
3376 #{e\ 4459}#
3377 #{w\ 4461}#
3378 #{s\ 4462}#
3379 #{mod\ 4464}#)
3380 (if (memv #{type\ 4468}# (quote (macro)))
3381 (if #{for-car?\ 4465}#
3382 (values
3383 #{type\ 4468}#
3384 (#{binding-value\ 3788}# #{b\ 4467}#)
3385 #{e\ 4459}#
3386 #{w\ 4461}#
3387 #{s\ 4462}#
3388 #{mod\ 4464}#)
3389 (#{syntax-type\ 3829}#
3390 (#{chi-macro\ 3834}#
3391 (#{binding-value\ 3788}# #{b\ 4467}#)
3392 #{e\ 4459}#
3393 #{r\ 4460}#
3394 #{w\ 4461}#
3395 #{rib\ 4463}#
3396 #{mod\ 4464}#)
3397 #{r\ 4460}#
3398 '(())
3399 #{s\ 4462}#
3400 #{rib\ 4463}#
3401 #{mod\ 4464}#
3402 #f))
3403 (values
3404 #{type\ 4468}#
3405 (#{binding-value\ 3788}# #{b\ 4467}#)
3406 #{e\ 4459}#
3407 #{w\ 4461}#
3408 #{s\ 4462}#
3409 #{mod\ 4464}#)))))))
3410 (if (pair? #{e\ 4459}#)
3411 (let ((#{first\ 4469}# (car #{e\ 4459}#)))
3412 (call-with-values
3413 (lambda ()
3414 (#{syntax-type\ 3829}#
3415 #{first\ 4469}#
3416 #{r\ 4460}#
3417 #{w\ 4461}#
3418 #{s\ 4462}#
3419 #{rib\ 4463}#
3420 #{mod\ 4464}#
3421 #t))
3422 (lambda (#{ftype\ 4470}#
3423 #{fval\ 4471}#
3424 #{fe\ 4472}#
3425 #{fw\ 4473}#
3426 #{fs\ 4474}#
3427 #{fmod\ 4475}#)
3428 (if (memv #{ftype\ 4470}# (quote (lexical)))
3429 (values
3430 'lexical-call
3431 #{fval\ 4471}#
3432 #{e\ 4459}#
3433 #{w\ 4461}#
3434 #{s\ 4462}#
3435 #{mod\ 4464}#)
3436 (if (memv #{ftype\ 4470}# (quote (global)))
3437 (values
3438 'global-call
3439 (#{make-syntax-object\ 3778}#
3440 #{fval\ 4471}#
3441 #{w\ 4461}#
3442 #{fmod\ 4475}#)
3443 #{e\ 4459}#
3444 #{w\ 4461}#
3445 #{s\ 4462}#
3446 #{mod\ 4464}#)
3447 (if (memv #{ftype\ 4470}# (quote (macro)))
3448 (#{syntax-type\ 3829}#
3449 (#{chi-macro\ 3834}#
3450 #{fval\ 4471}#
3451 #{e\ 4459}#
3452 #{r\ 4460}#
3453 #{w\ 4461}#
3454 #{rib\ 4463}#
3455 #{mod\ 4464}#)
3456 #{r\ 4460}#
3457 '(())
3458 #{s\ 4462}#
3459 #{rib\ 4463}#
3460 #{mod\ 4464}#
3461 #{for-car?\ 4465}#)
3462 (if (memv #{ftype\ 4470}# (quote (module-ref)))
3463 (call-with-values
3464 (lambda () (#{fval\ 4471}# #{e\ 4459}#))
3465 (lambda (#{sym\ 4476}# #{mod\ 4477}#)
3466 (#{syntax-type\ 3829}#
3467 #{sym\ 4476}#
3468 #{r\ 4460}#
3469 #{w\ 4461}#
3470 #{s\ 4462}#
3471 #{rib\ 4463}#
3472 #{mod\ 4477}#
3473 #{for-car?\ 4465}#)))
3474 (if (memv #{ftype\ 4470}# (quote (core)))
3475 (values
3476 'core-form
3477 #{fval\ 4471}#
3478 #{e\ 4459}#
3479 #{w\ 4461}#
3480 #{s\ 4462}#
3481 #{mod\ 4464}#)
3482 (if (memv #{ftype\ 4470}#
3483 '(local-syntax))
3484 (values
3485 'local-syntax-form
3486 #{fval\ 4471}#
3487 #{e\ 4459}#
3488 #{w\ 4461}#
3489 #{s\ 4462}#
3490 #{mod\ 4464}#)
3491 (if (memv #{ftype\ 4470}# (quote (begin)))
3492 (values
3493 'begin-form
3494 #f
3495 #{e\ 4459}#
3496 #{w\ 4461}#
3497 #{s\ 4462}#
3498 #{mod\ 4464}#)
3499 (if (memv #{ftype\ 4470}#
3500 '(eval-when))
3501 (values
3502 'eval-when-form
3503 #f
3504 #{e\ 4459}#
3505 #{w\ 4461}#
3506 #{s\ 4462}#
3507 #{mod\ 4464}#)
3508 (if (memv #{ftype\ 4470}#
3509 '(define))
3510 ((lambda (#{tmp\ 4478}#)
3511 ((lambda (#{tmp\ 4479}#)
3512 (if (if #{tmp\ 4479}#
3513 (apply (lambda (#{_\ 4480}#
3514 #{name\ 4481}#
3515 #{val\ 4482}#)
3516 (#{id?\ 3795}#
3517 #{name\ 4481}#))
3518 #{tmp\ 4479}#)
3519 #f)
3520 (apply (lambda (#{_\ 4483}#
3521 #{name\ 4484}#
3522 #{val\ 4485}#)
3523 (values
3524 'define-form
3525 #{name\ 4484}#
3526 #{val\ 4485}#
3527 #{w\ 4461}#
3528 #{s\ 4462}#
3529 #{mod\ 4464}#))
3530 #{tmp\ 4479}#)
3531 ((lambda (#{tmp\ 4486}#)
3532 (if (if #{tmp\ 4486}#
3533 (apply (lambda (#{_\ 4487}#
3534 #{name\ 4488}#
3535 #{args\ 4489}#
3536 #{e1\ 4490}#
3537 #{e2\ 4491}#)
3538 (if (#{id?\ 3795}#
3539 #{name\ 4488}#)
3540 (#{valid-bound-ids?\ 3820}#
3541 (#{lambda-var-list\ 3846}#
3542 #{args\ 4489}#))
3543 #f))
3544 #{tmp\ 4486}#)
3545 #f)
3546 (apply (lambda (#{_\ 4492}#
3547 #{name\ 4493}#
3548 #{args\ 4494}#
3549 #{e1\ 4495}#
3550 #{e2\ 4496}#)
3551 (values
3552 'define-form
3553 (#{wrap\ 3823}#
3554 #{name\ 4493}#
3555 #{w\ 4461}#
3556 #{mod\ 4464}#)
3557 (#{decorate-source\ 3758}#
3558 (cons '#(syntax-object
3559 lambda
3560 ((top)
3561 #(ribcage
3562 #(_
3563 name
3564 args
3565 e1
3566 e2)
3567 #((top)
3568 (top)
3569 (top)
3570 (top)
3571 (top))
3572 #("i"
3573 "i"
3574 "i"
3575 "i"
3576 "i"))
3577 #(ribcage
3578 ()
3579 ()
3580 ())
3581 #(ribcage
3582 ()
3583 ()
3584 ())
3585 #(ribcage
3586 #(ftype
3587 fval
3588 fe
3589 fw
3590 fs
3591 fmod)
3592 #((top)
3593 (top)
3594 (top)
3595 (top)
3596 (top)
3597 (top))
3598 #("i"
3599 "i"
3600 "i"
3601 "i"
3602 "i"
3603 "i"))
3604 #(ribcage
3605 ()
3606 ()
3607 ())
3608 #(ribcage
3609 #(first)
3610 #((top))
3611 #("i"))
3612 #(ribcage
3613 ()
3614 ()
3615 ())
3616 #(ribcage
3617 ()
3618 ()
3619 ())
3620 #(ribcage
3621 ()
3622 ()
3623 ())
3624 #(ribcage
3625 #(e
3626 r
3627 w
3628 s
3629 rib
3630 mod
3631 for-car?)
3632 #((top)
3633 (top)
3634 (top)
3635 (top)
3636 (top)
3637 (top)
3638 (top))
3639 #("i"
3640 "i"
3641 "i"
3642 "i"
3643 "i"
3644 "i"
3645 "i"))
3646 #(ribcage
3647 (lambda-var-list
3648 gen-var
3649 strip
3650 chi-lambda-case
3651 lambda*-formals
3652 chi-simple-lambda
3653 lambda-formals
3654 ellipsis?
3655 chi-void
3656 eval-local-transformer
3657 chi-local-syntax
3658 chi-body
3659 chi-macro
3660 chi-application
3661 chi-expr
3662 chi
3663 chi-top
3664 syntax-type
3665 chi-when-list
3666 chi-install-global
3667 chi-top-sequence
3668 chi-sequence
3669 source-wrap
3670 wrap
3671 bound-id-member?
3672 distinct-bound-ids?
3673 valid-bound-ids?
3674 bound-id=?
3675 free-id=?
3676 id-var-name
3677 same-marks?
3678 join-marks
3679 join-wraps
3680 smart-append
3681 make-binding-wrap
3682 extend-ribcage!
3683 make-empty-ribcage
3684 new-mark
3685 anti-mark
3686 the-anti-mark
3687 top-marked?
3688 top-wrap
3689 empty-wrap
3690 set-ribcage-labels!
3691 set-ribcage-marks!
3692 set-ribcage-symnames!
3693 ribcage-labels
3694 ribcage-marks
3695 ribcage-symnames
3696 ribcage?
3697 make-ribcage
3698 gen-labels
3699 gen-label
3700 make-rename
3701 rename-marks
3702 rename-new
3703 rename-old
3704 subst-rename?
3705 wrap-subst
3706 wrap-marks
3707 make-wrap
3708 id-sym-name&marks
3709 id-sym-name
3710 id?
3711 nonsymbol-id?
3712 global-extend
3713 lookup
3714 macros-only-env
3715 extend-var-env
3716 extend-env
3717 null-env
3718 binding-value
3719 binding-type
3720 make-binding
3721 arg-check
3722 source-annotation
3723 no-source
3724 set-syntax-object-module!
3725 set-syntax-object-wrap!
3726 set-syntax-object-expression!
3727 syntax-object-module
3728 syntax-object-wrap
3729 syntax-object-expression
3730 syntax-object?
3731 make-syntax-object
3732 build-lexical-var
3733 build-letrec
3734 build-named-let
3735 build-let
3736 build-sequence
3737 build-data
3738 build-primref
3739 build-lambda-case
3740 build-case-lambda
3741 build-simple-lambda
3742 build-global-definition
3743 maybe-name-value!
3744 build-global-assignment
3745 build-global-reference
3746 analyze-variable
3747 build-lexical-assignment
3748 build-lexical-reference
3749 build-conditional
3750 build-application
3751 build-void
3752 decorate-source
3753 get-global-definition-hook
3754 put-global-definition-hook
3755 gensym-hook
3756 local-eval-hook
3757 top-level-eval-hook
3758 fx<
3759 fx=
3760 fx-
3761 fx+
3762 *mode*
3763 noexpand)
3764 ((top)
3765 (top)
3766 (top)
3767 (top)
3768 (top)
3769 (top)
3770 (top)
3771 (top)
3772 (top)
3773 (top)
3774 (top)
3775 (top)
3776 (top)
3777 (top)
3778 (top)
3779 (top)
3780 (top)
3781 (top)
3782 (top)
3783 (top)
3784 (top)
3785 (top)
3786 (top)
3787 (top)
3788 (top)
3789 (top)
3790 (top)
3791 (top)
3792 (top)
3793 (top)
3794 (top)
3795 (top)
3796 (top)
3797 (top)
3798 (top)
3799 (top)
3800 (top)
3801 (top)
3802 (top)
3803 (top)
3804 (top)
3805 (top)
3806 (top)
3807 (top)
3808 (top)
3809 (top)
3810 (top)
3811 (top)
3812 (top)
3813 (top)
3814 (top)
3815 (top)
3816 (top)
3817 (top)
3818 (top)
3819 (top)
3820 (top)
3821 (top)
3822 (top)
3823 (top)
3824 (top)
3825 (top)
3826 (top)
3827 (top)
3828 (top)
3829 (top)
3830 (top)
3831 (top)
3832 (top)
3833 (top)
3834 (top)
3835 (top)
3836 (top)
3837 (top)
3838 (top)
3839 (top)
3840 (top)
3841 (top)
3842 (top)
3843 (top)
3844 (top)
3845 (top)
3846 (top)
3847 (top)
3848 (top)
3849 (top)
3850 (top)
3851 (top)
3852 (top)
3853 (top)
3854 (top)
3855 (top)
3856 (top)
3857 (top)
3858 (top)
3859 (top)
3860 (top)
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 ("i"
3882 "i"
3883 "i"
3884 "i"
3885 "i"
3886 "i"
3887 "i"
3888 "i"
3889 "i"
3890 "i"
3891 "i"
3892 "i"
3893 "i"
3894 "i"
3895 "i"
3896 "i"
3897 "i"
3898 "i"
3899 "i"
3900 "i"
3901 "i"
3902 "i"
3903 "i"
3904 "i"
3905 "i"
3906 "i"
3907 "i"
3908 "i"
3909 "i"
3910 "i"
3911 "i"
3912 "i"
3913 "i"
3914 "i"
3915 "i"
3916 "i"
3917 "i"
3918 "i"
3919 "i"
3920 "i"
3921 "i"
3922 "i"
3923 "i"
3924 "i"
3925 "i"
3926 "i"
3927 "i"
3928 "i"
3929 "i"
3930 "i"
3931 "i"
3932 "i"
3933 "i"
3934 "i"
3935 "i"
3936 "i"
3937 "i"
3938 "i"
3939 "i"
3940 "i"
3941 "i"
3942 "i"
3943 "i"
3944 "i"
3945 "i"
3946 "i"
3947 "i"
3948 "i"
3949 "i"
3950 "i"
3951 "i"
3952 "i"
3953 "i"
3954 "i"
3955 "i"
3956 "i"
3957 "i"
3958 "i"
3959 "i"
3960 "i"
3961 "i"
3962 "i"
3963 "i"
3964 "i"
3965 "i"
3966 "i"
3967 "i"
3968 "i"
3969 "i"
3970 "i"
3971 "i"
3972 "i"
3973 "i"
3974 "i"
3975 "i"
3976 "i"
3977 "i"
3978 "i"
3979 "i"
3980 "i"
3981 "i"
3982 "i"
3983 "i"
3984 "i"
3985 "i"
3986 "i"
3987 "i"
3988 "i"
3989 "i"
3990 "i"
3991 "i"
3992 "i"
3993 "i"
3994 "i"
3995 "i"
3996 "i"
3997 "i"))
3998 #(ribcage
3999 (define-structure
4000 and-map*)
4001 ((top)
4002 (top))
4003 ("i"
4004 "i")))
4005 (hygiene
4006 guile))
4007 (#{wrap\ 3823}#
4008 (cons #{args\ 4494}#
4009 (cons #{e1\ 4495}#
4010 #{e2\ 4496}#))
4011 #{w\ 4461}#
4012 #{mod\ 4464}#))
4013 #{s\ 4462}#)
4014 '(())
4015 #{s\ 4462}#
4016 #{mod\ 4464}#))
4017 #{tmp\ 4486}#)
4018 ((lambda (#{tmp\ 4498}#)
4019 (if (if #{tmp\ 4498}#
4020 (apply (lambda (#{_\ 4499}#
4021 #{name\ 4500}#)
4022 (#{id?\ 3795}#
4023 #{name\ 4500}#))
4024 #{tmp\ 4498}#)
4025 #f)
4026 (apply (lambda (#{_\ 4501}#
4027 #{name\ 4502}#)
4028 (values
4029 'define-form
4030 (#{wrap\ 3823}#
4031 #{name\ 4502}#
4032 #{w\ 4461}#
4033 #{mod\ 4464}#)
4034 '(#(syntax-object
4035 if
4036 ((top)
4037 #(ribcage
4038 #(_
4039 name)
4040 #((top)
4041 (top))
4042 #("i"
4043 "i"))
4044 #(ribcage
4045 ()
4046 ()
4047 ())
4048 #(ribcage
4049 ()
4050 ()
4051 ())
4052 #(ribcage
4053 #(ftype
4054 fval
4055 fe
4056 fw
4057 fs
4058 fmod)
4059 #((top)
4060 (top)
4061 (top)
4062 (top)
4063 (top)
4064 (top))
4065 #("i"
4066 "i"
4067 "i"
4068 "i"
4069 "i"
4070 "i"))
4071 #(ribcage
4072 ()
4073 ()
4074 ())
4075 #(ribcage
4076 #(first)
4077 #((top))
4078 #("i"))
4079 #(ribcage
4080 ()
4081 ()
4082 ())
4083 #(ribcage
4084 ()
4085 ()
4086 ())
4087 #(ribcage
4088 ()
4089 ()
4090 ())
4091 #(ribcage
4092 #(e
4093 r
4094 w
4095 s
4096 rib
4097 mod
4098 for-car?)
4099 #((top)
4100 (top)
4101 (top)
4102 (top)
4103 (top)
4104 (top)
4105 (top))
4106 #("i"
4107 "i"
4108 "i"
4109 "i"
4110 "i"
4111 "i"
4112 "i"))
4113 #(ribcage
4114 (lambda-var-list
4115 gen-var
4116 strip
4117 chi-lambda-case
4118 lambda*-formals
4119 chi-simple-lambda
4120 lambda-formals
4121 ellipsis?
4122 chi-void
4123 eval-local-transformer
4124 chi-local-syntax
4125 chi-body
4126 chi-macro
4127 chi-application
4128 chi-expr
4129 chi
4130 chi-top
4131 syntax-type
4132 chi-when-list
4133 chi-install-global
4134 chi-top-sequence
4135 chi-sequence
4136 source-wrap
4137 wrap
4138 bound-id-member?
4139 distinct-bound-ids?
4140 valid-bound-ids?
4141 bound-id=?
4142 free-id=?
4143 id-var-name
4144 same-marks?
4145 join-marks
4146 join-wraps
4147 smart-append
4148 make-binding-wrap
4149 extend-ribcage!
4150 make-empty-ribcage
4151 new-mark
4152 anti-mark
4153 the-anti-mark
4154 top-marked?
4155 top-wrap
4156 empty-wrap
4157 set-ribcage-labels!
4158 set-ribcage-marks!
4159 set-ribcage-symnames!
4160 ribcage-labels
4161 ribcage-marks
4162 ribcage-symnames
4163 ribcage?
4164 make-ribcage
4165 gen-labels
4166 gen-label
4167 make-rename
4168 rename-marks
4169 rename-new
4170 rename-old
4171 subst-rename?
4172 wrap-subst
4173 wrap-marks
4174 make-wrap
4175 id-sym-name&marks
4176 id-sym-name
4177 id?
4178 nonsymbol-id?
4179 global-extend
4180 lookup
4181 macros-only-env
4182 extend-var-env
4183 extend-env
4184 null-env
4185 binding-value
4186 binding-type
4187 make-binding
4188 arg-check
4189 source-annotation
4190 no-source
4191 set-syntax-object-module!
4192 set-syntax-object-wrap!
4193 set-syntax-object-expression!
4194 syntax-object-module
4195 syntax-object-wrap
4196 syntax-object-expression
4197 syntax-object?
4198 make-syntax-object
4199 build-lexical-var
4200 build-letrec
4201 build-named-let
4202 build-let
4203 build-sequence
4204 build-data
4205 build-primref
4206 build-lambda-case
4207 build-case-lambda
4208 build-simple-lambda
4209 build-global-definition
4210 maybe-name-value!
4211 build-global-assignment
4212 build-global-reference
4213 analyze-variable
4214 build-lexical-assignment
4215 build-lexical-reference
4216 build-conditional
4217 build-application
4218 build-void
4219 decorate-source
4220 get-global-definition-hook
4221 put-global-definition-hook
4222 gensym-hook
4223 local-eval-hook
4224 top-level-eval-hook
4225 fx<
4226 fx=
4227 fx-
4228 fx+
4229 *mode*
4230 noexpand)
4231 ((top)
4232 (top)
4233 (top)
4234 (top)
4235 (top)
4236 (top)
4237 (top)
4238 (top)
4239 (top)
4240 (top)
4241 (top)
4242 (top)
4243 (top)
4244 (top)
4245 (top)
4246 (top)
4247 (top)
4248 (top)
4249 (top)
4250 (top)
4251 (top)
4252 (top)
4253 (top)
4254 (top)
4255 (top)
4256 (top)
4257 (top)
4258 (top)
4259 (top)
4260 (top)
4261 (top)
4262 (top)
4263 (top)
4264 (top)
4265 (top)
4266 (top)
4267 (top)
4268 (top)
4269 (top)
4270 (top)
4271 (top)
4272 (top)
4273 (top)
4274 (top)
4275 (top)
4276 (top)
4277 (top)
4278 (top)
4279 (top)
4280 (top)
4281 (top)
4282 (top)
4283 (top)
4284 (top)
4285 (top)
4286 (top)
4287 (top)
4288 (top)
4289 (top)
4290 (top)
4291 (top)
4292 (top)
4293 (top)
4294 (top)
4295 (top)
4296 (top)
4297 (top)
4298 (top)
4299 (top)
4300 (top)
4301 (top)
4302 (top)
4303 (top)
4304 (top)
4305 (top)
4306 (top)
4307 (top)
4308 (top)
4309 (top)
4310 (top)
4311 (top)
4312 (top)
4313 (top)
4314 (top)
4315 (top)
4316 (top)
4317 (top)
4318 (top)
4319 (top)
4320 (top)
4321 (top)
4322 (top)
4323 (top)
4324 (top)
4325 (top)
4326 (top)
4327 (top)
4328 (top)
4329 (top)
4330 (top)
4331 (top)
4332 (top)
4333 (top)
4334 (top)
4335 (top)
4336 (top)
4337 (top)
4338 (top)
4339 (top)
4340 (top)
4341 (top)
4342 (top)
4343 (top)
4344 (top)
4345 (top)
4346 (top)
4347 (top))
4348 ("i"
4349 "i"
4350 "i"
4351 "i"
4352 "i"
4353 "i"
4354 "i"
4355 "i"
4356 "i"
4357 "i"
4358 "i"
4359 "i"
4360 "i"
4361 "i"
4362 "i"
4363 "i"
4364 "i"
4365 "i"
4366 "i"
4367 "i"
4368 "i"
4369 "i"
4370 "i"
4371 "i"
4372 "i"
4373 "i"
4374 "i"
4375 "i"
4376 "i"
4377 "i"
4378 "i"
4379 "i"
4380 "i"
4381 "i"
4382 "i"
4383 "i"
4384 "i"
4385 "i"
4386 "i"
4387 "i"
4388 "i"
4389 "i"
4390 "i"
4391 "i"
4392 "i"
4393 "i"
4394 "i"
4395 "i"
4396 "i"
4397 "i"
4398 "i"
4399 "i"
4400 "i"
4401 "i"
4402 "i"
4403 "i"
4404 "i"
4405 "i"
4406 "i"
4407 "i"
4408 "i"
4409 "i"
4410 "i"
4411 "i"
4412 "i"
4413 "i"
4414 "i"
4415 "i"
4416 "i"
4417 "i"
4418 "i"
4419 "i"
4420 "i"
4421 "i"
4422 "i"
4423 "i"
4424 "i"
4425 "i"
4426 "i"
4427 "i"
4428 "i"
4429 "i"
4430 "i"
4431 "i"
4432 "i"
4433 "i"
4434 "i"
4435 "i"
4436 "i"
4437 "i"
4438 "i"
4439 "i"
4440 "i"
4441 "i"
4442 "i"
4443 "i"
4444 "i"
4445 "i"
4446 "i"
4447 "i"
4448 "i"
4449 "i"
4450 "i"
4451 "i"
4452 "i"
4453 "i"
4454 "i"
4455 "i"
4456 "i"
4457 "i"
4458 "i"
4459 "i"
4460 "i"
4461 "i"
4462 "i"
4463 "i"
4464 "i"))
4465 #(ribcage
4466 (define-structure
4467 and-map*)
4468 ((top)
4469 (top))
4470 ("i"
4471 "i")))
4472 (hygiene
4473 guile))
4474 #(syntax-object
4475 #f
4476 ((top)
4477 #(ribcage
4478 #(_
4479 name)
4480 #((top)
4481 (top))
4482 #("i"
4483 "i"))
4484 #(ribcage
4485 ()
4486 ()
4487 ())
4488 #(ribcage
4489 ()
4490 ()
4491 ())
4492 #(ribcage
4493 #(ftype
4494 fval
4495 fe
4496 fw
4497 fs
4498 fmod)
4499 #((top)
4500 (top)
4501 (top)
4502 (top)
4503 (top)
4504 (top))
4505 #("i"
4506 "i"
4507 "i"
4508 "i"
4509 "i"
4510 "i"))
4511 #(ribcage
4512 ()
4513 ()
4514 ())
4515 #(ribcage
4516 #(first)
4517 #((top))
4518 #("i"))
4519 #(ribcage
4520 ()
4521 ()
4522 ())
4523 #(ribcage
4524 ()
4525 ()
4526 ())
4527 #(ribcage
4528 ()
4529 ()
4530 ())
4531 #(ribcage
4532 #(e
4533 r
4534 w
4535 s
4536 rib
4537 mod
4538 for-car?)
4539 #((top)
4540 (top)
4541 (top)
4542 (top)
4543 (top)
4544 (top)
4545 (top))
4546 #("i"
4547 "i"
4548 "i"
4549 "i"
4550 "i"
4551 "i"
4552 "i"))
4553 #(ribcage
4554 (lambda-var-list
4555 gen-var
4556 strip
4557 chi-lambda-case
4558 lambda*-formals
4559 chi-simple-lambda
4560 lambda-formals
4561 ellipsis?
4562 chi-void
4563 eval-local-transformer
4564 chi-local-syntax
4565 chi-body
4566 chi-macro
4567 chi-application
4568 chi-expr
4569 chi
4570 chi-top
4571 syntax-type
4572 chi-when-list
4573 chi-install-global
4574 chi-top-sequence
4575 chi-sequence
4576 source-wrap
4577 wrap
4578 bound-id-member?
4579 distinct-bound-ids?
4580 valid-bound-ids?
4581 bound-id=?
4582 free-id=?
4583 id-var-name
4584 same-marks?
4585 join-marks
4586 join-wraps
4587 smart-append
4588 make-binding-wrap
4589 extend-ribcage!
4590 make-empty-ribcage
4591 new-mark
4592 anti-mark
4593 the-anti-mark
4594 top-marked?
4595 top-wrap
4596 empty-wrap
4597 set-ribcage-labels!
4598 set-ribcage-marks!
4599 set-ribcage-symnames!
4600 ribcage-labels
4601 ribcage-marks
4602 ribcage-symnames
4603 ribcage?
4604 make-ribcage
4605 gen-labels
4606 gen-label
4607 make-rename
4608 rename-marks
4609 rename-new
4610 rename-old
4611 subst-rename?
4612 wrap-subst
4613 wrap-marks
4614 make-wrap
4615 id-sym-name&marks
4616 id-sym-name
4617 id?
4618 nonsymbol-id?
4619 global-extend
4620 lookup
4621 macros-only-env
4622 extend-var-env
4623 extend-env
4624 null-env
4625 binding-value
4626 binding-type
4627 make-binding
4628 arg-check
4629 source-annotation
4630 no-source
4631 set-syntax-object-module!
4632 set-syntax-object-wrap!
4633 set-syntax-object-expression!
4634 syntax-object-module
4635 syntax-object-wrap
4636 syntax-object-expression
4637 syntax-object?
4638 make-syntax-object
4639 build-lexical-var
4640 build-letrec
4641 build-named-let
4642 build-let
4643 build-sequence
4644 build-data
4645 build-primref
4646 build-lambda-case
4647 build-case-lambda
4648 build-simple-lambda
4649 build-global-definition
4650 maybe-name-value!
4651 build-global-assignment
4652 build-global-reference
4653 analyze-variable
4654 build-lexical-assignment
4655 build-lexical-reference
4656 build-conditional
4657 build-application
4658 build-void
4659 decorate-source
4660 get-global-definition-hook
4661 put-global-definition-hook
4662 gensym-hook
4663 local-eval-hook
4664 top-level-eval-hook
4665 fx<
4666 fx=
4667 fx-
4668 fx+
4669 *mode*
4670 noexpand)
4671 ((top)
4672 (top)
4673 (top)
4674 (top)
4675 (top)
4676 (top)
4677 (top)
4678 (top)
4679 (top)
4680 (top)
4681 (top)
4682 (top)
4683 (top)
4684 (top)
4685 (top)
4686 (top)
4687 (top)
4688 (top)
4689 (top)
4690 (top)
4691 (top)
4692 (top)
4693 (top)
4694 (top)
4695 (top)
4696 (top)
4697 (top)
4698 (top)
4699 (top)
4700 (top)
4701 (top)
4702 (top)
4703 (top)
4704 (top)
4705 (top)
4706 (top)
4707 (top)
4708 (top)
4709 (top)
4710 (top)
4711 (top)
4712 (top)
4713 (top)
4714 (top)
4715 (top)
4716 (top)
4717 (top)
4718 (top)
4719 (top)
4720 (top)
4721 (top)
4722 (top)
4723 (top)
4724 (top)
4725 (top)
4726 (top)
4727 (top)
4728 (top)
4729 (top)
4730 (top)
4731 (top)
4732 (top)
4733 (top)
4734 (top)
4735 (top)
4736 (top)
4737 (top)
4738 (top)
4739 (top)
4740 (top)
4741 (top)
4742 (top)
4743 (top)
4744 (top)
4745 (top)
4746 (top)
4747 (top)
4748 (top)
4749 (top)
4750 (top)
4751 (top)
4752 (top)
4753 (top)
4754 (top)
4755 (top)
4756 (top)
4757 (top)
4758 (top)
4759 (top)
4760 (top)
4761 (top)
4762 (top)
4763 (top)
4764 (top)
4765 (top)
4766 (top)
4767 (top)
4768 (top)
4769 (top)
4770 (top)
4771 (top)
4772 (top)
4773 (top)
4774 (top)
4775 (top)
4776 (top)
4777 (top)
4778 (top)
4779 (top)
4780 (top)
4781 (top)
4782 (top)
4783 (top)
4784 (top)
4785 (top)
4786 (top)
4787 (top))
4788 ("i"
4789 "i"
4790 "i"
4791 "i"
4792 "i"
4793 "i"
4794 "i"
4795 "i"
4796 "i"
4797 "i"
4798 "i"
4799 "i"
4800 "i"
4801 "i"
4802 "i"
4803 "i"
4804 "i"
4805 "i"
4806 "i"
4807 "i"
4808 "i"
4809 "i"
4810 "i"
4811 "i"
4812 "i"
4813 "i"
4814 "i"
4815 "i"
4816 "i"
4817 "i"
4818 "i"
4819 "i"
4820 "i"
4821 "i"
4822 "i"
4823 "i"
4824 "i"
4825 "i"
4826 "i"
4827 "i"
4828 "i"
4829 "i"
4830 "i"
4831 "i"
4832 "i"
4833 "i"
4834 "i"
4835 "i"
4836 "i"
4837 "i"
4838 "i"
4839 "i"
4840 "i"
4841 "i"
4842 "i"
4843 "i"
4844 "i"
4845 "i"
4846 "i"
4847 "i"
4848 "i"
4849 "i"
4850 "i"
4851 "i"
4852 "i"
4853 "i"
4854 "i"
4855 "i"
4856 "i"
4857 "i"
4858 "i"
4859 "i"
4860 "i"
4861 "i"
4862 "i"
4863 "i"
4864 "i"
4865 "i"
4866 "i"
4867 "i"
4868 "i"
4869 "i"
4870 "i"
4871 "i"
4872 "i"
4873 "i"
4874 "i"
4875 "i"
4876 "i"
4877 "i"
4878 "i"
4879 "i"
4880 "i"
4881 "i"
4882 "i"
4883 "i"
4884 "i"
4885 "i"
4886 "i"
4887 "i"
4888 "i"
4889 "i"
4890 "i"
4891 "i"
4892 "i"
4893 "i"
4894 "i"
4895 "i"
4896 "i"
4897 "i"
4898 "i"
4899 "i"
4900 "i"
4901 "i"
4902 "i"
4903 "i"
4904 "i"))
4905 #(ribcage
4906 (define-structure
4907 and-map*)
4908 ((top)
4909 (top))
4910 ("i"
4911 "i")))
4912 (hygiene
4913 guile))
4914 #(syntax-object
4915 #f
4916 ((top)
4917 #(ribcage
4918 #(_
4919 name)
4920 #((top)
4921 (top))
4922 #("i"
4923 "i"))
4924 #(ribcage
4925 ()
4926 ()
4927 ())
4928 #(ribcage
4929 ()
4930 ()
4931 ())
4932 #(ribcage
4933 #(ftype
4934 fval
4935 fe
4936 fw
4937 fs
4938 fmod)
4939 #((top)
4940 (top)
4941 (top)
4942 (top)
4943 (top)
4944 (top))
4945 #("i"
4946 "i"
4947 "i"
4948 "i"
4949 "i"
4950 "i"))
4951 #(ribcage
4952 ()
4953 ()
4954 ())
4955 #(ribcage
4956 #(first)
4957 #((top))
4958 #("i"))
4959 #(ribcage
4960 ()
4961 ()
4962 ())
4963 #(ribcage
4964 ()
4965 ()
4966 ())
4967 #(ribcage
4968 ()
4969 ()
4970 ())
4971 #(ribcage
4972 #(e
4973 r
4974 w
4975 s
4976 rib
4977 mod
4978 for-car?)
4979 #((top)
4980 (top)
4981 (top)
4982 (top)
4983 (top)
4984 (top)
4985 (top))
4986 #("i"
4987 "i"
4988 "i"
4989 "i"
4990 "i"
4991 "i"
4992 "i"))
4993 #(ribcage
4994 (lambda-var-list
4995 gen-var
4996 strip
4997 chi-lambda-case
4998 lambda*-formals
4999 chi-simple-lambda
5000 lambda-formals
5001 ellipsis?
5002 chi-void
5003 eval-local-transformer
5004 chi-local-syntax
5005 chi-body
5006 chi-macro
5007 chi-application
5008 chi-expr
5009 chi
5010 chi-top
5011 syntax-type
5012 chi-when-list
5013 chi-install-global
5014 chi-top-sequence
5015 chi-sequence
5016 source-wrap
5017 wrap
5018 bound-id-member?
5019 distinct-bound-ids?
5020 valid-bound-ids?
5021 bound-id=?
5022 free-id=?
5023 id-var-name
5024 same-marks?
5025 join-marks
5026 join-wraps
5027 smart-append
5028 make-binding-wrap
5029 extend-ribcage!
5030 make-empty-ribcage
5031 new-mark
5032 anti-mark
5033 the-anti-mark
5034 top-marked?
5035 top-wrap
5036 empty-wrap
5037 set-ribcage-labels!
5038 set-ribcage-marks!
5039 set-ribcage-symnames!
5040 ribcage-labels
5041 ribcage-marks
5042 ribcage-symnames
5043 ribcage?
5044 make-ribcage
5045 gen-labels
5046 gen-label
5047 make-rename
5048 rename-marks
5049 rename-new
5050 rename-old
5051 subst-rename?
5052 wrap-subst
5053 wrap-marks
5054 make-wrap
5055 id-sym-name&marks
5056 id-sym-name
5057 id?
5058 nonsymbol-id?
5059 global-extend
5060 lookup
5061 macros-only-env
5062 extend-var-env
5063 extend-env
5064 null-env
5065 binding-value
5066 binding-type
5067 make-binding
5068 arg-check
5069 source-annotation
5070 no-source
5071 set-syntax-object-module!
5072 set-syntax-object-wrap!
5073 set-syntax-object-expression!
5074 syntax-object-module
5075 syntax-object-wrap
5076 syntax-object-expression
5077 syntax-object?
5078 make-syntax-object
5079 build-lexical-var
5080 build-letrec
5081 build-named-let
5082 build-let
5083 build-sequence
5084 build-data
5085 build-primref
5086 build-lambda-case
5087 build-case-lambda
5088 build-simple-lambda
5089 build-global-definition
5090 maybe-name-value!
5091 build-global-assignment
5092 build-global-reference
5093 analyze-variable
5094 build-lexical-assignment
5095 build-lexical-reference
5096 build-conditional
5097 build-application
5098 build-void
5099 decorate-source
5100 get-global-definition-hook
5101 put-global-definition-hook
5102 gensym-hook
5103 local-eval-hook
5104 top-level-eval-hook
5105 fx<
5106 fx=
5107 fx-
5108 fx+
5109 *mode*
5110 noexpand)
5111 ((top)
5112 (top)
5113 (top)
5114 (top)
5115 (top)
5116 (top)
5117 (top)
5118 (top)
5119 (top)
5120 (top)
5121 (top)
5122 (top)
5123 (top)
5124 (top)
5125 (top)
5126 (top)
5127 (top)
5128 (top)
5129 (top)
5130 (top)
5131 (top)
5132 (top)
5133 (top)
5134 (top)
5135 (top)
5136 (top)
5137 (top)
5138 (top)
5139 (top)
5140 (top)
5141 (top)
5142 (top)
5143 (top)
5144 (top)
5145 (top)
5146 (top)
5147 (top)
5148 (top)
5149 (top)
5150 (top)
5151 (top)
5152 (top)
5153 (top)
5154 (top)
5155 (top)
5156 (top)
5157 (top)
5158 (top)
5159 (top)
5160 (top)
5161 (top)
5162 (top)
5163 (top)
5164 (top)
5165 (top)
5166 (top)
5167 (top)
5168 (top)
5169 (top)
5170 (top)
5171 (top)
5172 (top)
5173 (top)
5174 (top)
5175 (top)
5176 (top)
5177 (top)
5178 (top)
5179 (top)
5180 (top)
5181 (top)
5182 (top)
5183 (top)
5184 (top)
5185 (top)
5186 (top)
5187 (top)
5188 (top)
5189 (top)
5190 (top)
5191 (top)
5192 (top)
5193 (top)
5194 (top)
5195 (top)
5196 (top)
5197 (top)
5198 (top)
5199 (top)
5200 (top)
5201 (top)
5202 (top)
5203 (top)
5204 (top)
5205 (top)
5206 (top)
5207 (top)
5208 (top)
5209 (top)
5210 (top)
5211 (top)
5212 (top)
5213 (top)
5214 (top)
5215 (top)
5216 (top)
5217 (top)
5218 (top)
5219 (top)
5220 (top)
5221 (top)
5222 (top)
5223 (top)
5224 (top)
5225 (top)
5226 (top)
5227 (top))
5228 ("i"
5229 "i"
5230 "i"
5231 "i"
5232 "i"
5233 "i"
5234 "i"
5235 "i"
5236 "i"
5237 "i"
5238 "i"
5239 "i"
5240 "i"
5241 "i"
5242 "i"
5243 "i"
5244 "i"
5245 "i"
5246 "i"
5247 "i"
5248 "i"
5249 "i"
5250 "i"
5251 "i"
5252 "i"
5253 "i"
5254 "i"
5255 "i"
5256 "i"
5257 "i"
5258 "i"
5259 "i"
5260 "i"
5261 "i"
5262 "i"
5263 "i"
5264 "i"
5265 "i"
5266 "i"
5267 "i"
5268 "i"
5269 "i"
5270 "i"
5271 "i"
5272 "i"
5273 "i"
5274 "i"
5275 "i"
5276 "i"
5277 "i"
5278 "i"
5279 "i"
5280 "i"
5281 "i"
5282 "i"
5283 "i"
5284 "i"
5285 "i"
5286 "i"
5287 "i"
5288 "i"
5289 "i"
5290 "i"
5291 "i"
5292 "i"
5293 "i"
5294 "i"
5295 "i"
5296 "i"
5297 "i"
5298 "i"
5299 "i"
5300 "i"
5301 "i"
5302 "i"
5303 "i"
5304 "i"
5305 "i"
5306 "i"
5307 "i"
5308 "i"
5309 "i"
5310 "i"
5311 "i"
5312 "i"
5313 "i"
5314 "i"
5315 "i"
5316 "i"
5317 "i"
5318 "i"
5319 "i"
5320 "i"
5321 "i"
5322 "i"
5323 "i"
5324 "i"
5325 "i"
5326 "i"
5327 "i"
5328 "i"
5329 "i"
5330 "i"
5331 "i"
5332 "i"
5333 "i"
5334 "i"
5335 "i"
5336 "i"
5337 "i"
5338 "i"
5339 "i"
5340 "i"
5341 "i"
5342 "i"
5343 "i"
5344 "i"))
5345 #(ribcage
5346 (define-structure
5347 and-map*)
5348 ((top)
5349 (top))
5350 ("i"
5351 "i")))
5352 (hygiene
5353 guile)))
5354 '(())
5355 #{s\ 4462}#
5356 #{mod\ 4464}#))
5357 #{tmp\ 4498}#)
5358 (syntax-violation
5359 #f
5360 "source expression failed to match any pattern"
5361 #{tmp\ 4478}#)))
5362 ($sc-dispatch
5363 #{tmp\ 4478}#
5364 '(any any)))))
5365 ($sc-dispatch
5366 #{tmp\ 4478}#
5367 '(any (any . any)
5368 any
5369 .
5370 each-any)))))
5371 ($sc-dispatch
5372 #{tmp\ 4478}#
5373 '(any any any))))
5374 #{e\ 4459}#)
5375 (if (memv #{ftype\ 4470}#
5376 '(define-syntax))
5377 ((lambda (#{tmp\ 4503}#)
5378 ((lambda (#{tmp\ 4504}#)
5379 (if (if #{tmp\ 4504}#
5380 (apply (lambda (#{_\ 4505}#
5381 #{name\ 4506}#
5382 #{val\ 4507}#)
5383 (#{id?\ 3795}#
5384 #{name\ 4506}#))
5385 #{tmp\ 4504}#)
5386 #f)
5387 (apply (lambda (#{_\ 4508}#
5388 #{name\ 4509}#
5389 #{val\ 4510}#)
5390 (values
5391 'define-syntax-form
5392 #{name\ 4509}#
5393 #{val\ 4510}#
5394 #{w\ 4461}#
5395 #{s\ 4462}#
5396 #{mod\ 4464}#))
5397 #{tmp\ 4504}#)
5398 (syntax-violation
5399 #f
5400 "source expression failed to match any pattern"
5401 #{tmp\ 4503}#)))
5402 ($sc-dispatch
5403 #{tmp\ 4503}#
5404 '(any any any))))
5405 #{e\ 4459}#)
5406 (values
5407 'call
5408 #f
5409 #{e\ 4459}#
5410 #{w\ 4461}#
5411 #{s\ 4462}#
5412 #{mod\ 4464}#))))))))))))))
5413 (if (#{syntax-object?\ 3779}# #{e\ 4459}#)
5414 (#{syntax-type\ 3829}#
5415 (#{syntax-object-expression\ 3780}# #{e\ 4459}#)
5416 #{r\ 4460}#
5417 (#{join-wraps\ 3814}#
5418 #{w\ 4461}#
5419 (#{syntax-object-wrap\ 3781}# #{e\ 4459}#))
5420 #{s\ 4462}#
5421 #{rib\ 4463}#
5422 (let ((#{t\ 4511}#
5423 (#{syntax-object-module\ 3782}# #{e\ 4459}#)))
5424 (if #{t\ 4511}# #{t\ 4511}# #{mod\ 4464}#))
5425 #{for-car?\ 4465}#)
5426 (if (self-evaluating? #{e\ 4459}#)
5427 (values
5428 'constant
5429 #f
5430 #{e\ 4459}#
5431 #{w\ 4461}#
5432 #{s\ 4462}#
5433 #{mod\ 4464}#)
5434 (values
5435 'other
5436 #f
5437 #{e\ 4459}#
5438 #{w\ 4461}#
5439 #{s\ 4462}#
5440 #{mod\ 4464}#)))))))
5441 (#{chi-when-list\ 3828}#
5442 (lambda (#{e\ 4512}# #{when-list\ 4513}# #{w\ 4514}#)
5443 (letrec ((#{f\ 4515}#
5444 (lambda (#{when-list\ 4516}# #{situations\ 4517}#)
5445 (if (null? #{when-list\ 4516}#)
5446 #{situations\ 4517}#
5447 (#{f\ 4515}#
5448 (cdr #{when-list\ 4516}#)
5449 (cons (let ((#{x\ 4518}#
5450 (car #{when-list\ 4516}#)))
5451 (if (#{free-id=?\ 3818}#
5452 #{x\ 4518}#
5453 '#(syntax-object
5454 compile
5455 ((top)
5456 #(ribcage () () ())
5457 #(ribcage () () ())
5458 #(ribcage () () ())
5459 #(ribcage
5460 #(x)
5461 #((top))
5462 #("i"))
5463 #(ribcage () () ())
5464 #(ribcage
5465 #(f when-list situations)
5466 #((top) (top) (top))
5467 #("i" "i" "i"))
5468 #(ribcage () () ())
5469 #(ribcage
5470 #(e when-list w)
5471 #((top) (top) (top))
5472 #("i" "i" "i"))
5473 #(ribcage
5474 (lambda-var-list
5475 gen-var
5476 strip
5477 chi-lambda-case
5478 lambda*-formals
5479 chi-simple-lambda
5480 lambda-formals
5481 ellipsis?
5482 chi-void
5483 eval-local-transformer
5484 chi-local-syntax
5485 chi-body
5486 chi-macro
5487 chi-application
5488 chi-expr
5489 chi
5490 chi-top
5491 syntax-type
5492 chi-when-list
5493 chi-install-global
5494 chi-top-sequence
5495 chi-sequence
5496 source-wrap
5497 wrap
5498 bound-id-member?
5499 distinct-bound-ids?
5500 valid-bound-ids?
5501 bound-id=?
5502 free-id=?
5503 id-var-name
5504 same-marks?
5505 join-marks
5506 join-wraps
5507 smart-append
5508 make-binding-wrap
5509 extend-ribcage!
5510 make-empty-ribcage
5511 new-mark
5512 anti-mark
5513 the-anti-mark
5514 top-marked?
5515 top-wrap
5516 empty-wrap
5517 set-ribcage-labels!
5518 set-ribcage-marks!
5519 set-ribcage-symnames!
5520 ribcage-labels
5521 ribcage-marks
5522 ribcage-symnames
5523 ribcage?
5524 make-ribcage
5525 gen-labels
5526 gen-label
5527 make-rename
5528 rename-marks
5529 rename-new
5530 rename-old
5531 subst-rename?
5532 wrap-subst
5533 wrap-marks
5534 make-wrap
5535 id-sym-name&marks
5536 id-sym-name
5537 id?
5538 nonsymbol-id?
5539 global-extend
5540 lookup
5541 macros-only-env
5542 extend-var-env
5543 extend-env
5544 null-env
5545 binding-value
5546 binding-type
5547 make-binding
5548 arg-check
5549 source-annotation
5550 no-source
5551 set-syntax-object-module!
5552 set-syntax-object-wrap!
5553 set-syntax-object-expression!
5554 syntax-object-module
5555 syntax-object-wrap
5556 syntax-object-expression
5557 syntax-object?
5558 make-syntax-object
5559 build-lexical-var
5560 build-letrec
5561 build-named-let
5562 build-let
5563 build-sequence
5564 build-data
5565 build-primref
5566 build-lambda-case
5567 build-case-lambda
5568 build-simple-lambda
5569 build-global-definition
5570 maybe-name-value!
5571 build-global-assignment
5572 build-global-reference
5573 analyze-variable
5574 build-lexical-assignment
5575 build-lexical-reference
5576 build-conditional
5577 build-application
5578 build-void
5579 decorate-source
5580 get-global-definition-hook
5581 put-global-definition-hook
5582 gensym-hook
5583 local-eval-hook
5584 top-level-eval-hook
5585 fx<
5586 fx=
5587 fx-
5588 fx+
5589 *mode*
5590 noexpand)
5591 ((top)
5592 (top)
5593 (top)
5594 (top)
5595 (top)
5596 (top)
5597 (top)
5598 (top)
5599 (top)
5600 (top)
5601 (top)
5602 (top)
5603 (top)
5604 (top)
5605 (top)
5606 (top)
5607 (top)
5608 (top)
5609 (top)
5610 (top)
5611 (top)
5612 (top)
5613 (top)
5614 (top)
5615 (top)
5616 (top)
5617 (top)
5618 (top)
5619 (top)
5620 (top)
5621 (top)
5622 (top)
5623 (top)
5624 (top)
5625 (top)
5626 (top)
5627 (top)
5628 (top)
5629 (top)
5630 (top)
5631 (top)
5632 (top)
5633 (top)
5634 (top)
5635 (top)
5636 (top)
5637 (top)
5638 (top)
5639 (top)
5640 (top)
5641 (top)
5642 (top)
5643 (top)
5644 (top)
5645 (top)
5646 (top)
5647 (top)
5648 (top)
5649 (top)
5650 (top)
5651 (top)
5652 (top)
5653 (top)
5654 (top)
5655 (top)
5656 (top)
5657 (top)
5658 (top)
5659 (top)
5660 (top)
5661 (top)
5662 (top)
5663 (top)
5664 (top)
5665 (top)
5666 (top)
5667 (top)
5668 (top)
5669 (top)
5670 (top)
5671 (top)
5672 (top)
5673 (top)
5674 (top)
5675 (top)
5676 (top)
5677 (top)
5678 (top)
5679 (top)
5680 (top)
5681 (top)
5682 (top)
5683 (top)
5684 (top)
5685 (top)
5686 (top)
5687 (top)
5688 (top)
5689 (top)
5690 (top)
5691 (top)
5692 (top)
5693 (top)
5694 (top)
5695 (top)
5696 (top)
5697 (top)
5698 (top)
5699 (top)
5700 (top)
5701 (top)
5702 (top)
5703 (top)
5704 (top)
5705 (top)
5706 (top)
5707 (top))
5708 ("i"
5709 "i"
5710 "i"
5711 "i"
5712 "i"
5713 "i"
5714 "i"
5715 "i"
5716 "i"
5717 "i"
5718 "i"
5719 "i"
5720 "i"
5721 "i"
5722 "i"
5723 "i"
5724 "i"
5725 "i"
5726 "i"
5727 "i"
5728 "i"
5729 "i"
5730 "i"
5731 "i"
5732 "i"
5733 "i"
5734 "i"
5735 "i"
5736 "i"
5737 "i"
5738 "i"
5739 "i"
5740 "i"
5741 "i"
5742 "i"
5743 "i"
5744 "i"
5745 "i"
5746 "i"
5747 "i"
5748 "i"
5749 "i"
5750 "i"
5751 "i"
5752 "i"
5753 "i"
5754 "i"
5755 "i"
5756 "i"
5757 "i"
5758 "i"
5759 "i"
5760 "i"
5761 "i"
5762 "i"
5763 "i"
5764 "i"
5765 "i"
5766 "i"
5767 "i"
5768 "i"
5769 "i"
5770 "i"
5771 "i"
5772 "i"
5773 "i"
5774 "i"
5775 "i"
5776 "i"
5777 "i"
5778 "i"
5779 "i"
5780 "i"
5781 "i"
5782 "i"
5783 "i"
5784 "i"
5785 "i"
5786 "i"
5787 "i"
5788 "i"
5789 "i"
5790 "i"
5791 "i"
5792 "i"
5793 "i"
5794 "i"
5795 "i"
5796 "i"
5797 "i"
5798 "i"
5799 "i"
5800 "i"
5801 "i"
5802 "i"
5803 "i"
5804 "i"
5805 "i"
5806 "i"
5807 "i"
5808 "i"
5809 "i"
5810 "i"
5811 "i"
5812 "i"
5813 "i"
5814 "i"
5815 "i"
5816 "i"
5817 "i"
5818 "i"
5819 "i"
5820 "i"
5821 "i"
5822 "i"
5823 "i"
5824 "i"))
5825 #(ribcage
5826 (define-structure and-map*)
5827 ((top) (top))
5828 ("i" "i")))
5829 (hygiene guile)))
5830 'compile
5831 (if (#{free-id=?\ 3818}#
5832 #{x\ 4518}#
5833 '#(syntax-object
5834 load
5835 ((top)
5836 #(ribcage () () ())
5837 #(ribcage () () ())
5838 #(ribcage () () ())
5839 #(ribcage
5840 #(x)
5841 #((top))
5842 #("i"))
5843 #(ribcage () () ())
5844 #(ribcage
5845 #(f when-list situations)
5846 #((top) (top) (top))
5847 #("i" "i" "i"))
5848 #(ribcage () () ())
5849 #(ribcage
5850 #(e when-list w)
5851 #((top) (top) (top))
5852 #("i" "i" "i"))
5853 #(ribcage
5854 (lambda-var-list
5855 gen-var
5856 strip
5857 chi-lambda-case
5858 lambda*-formals
5859 chi-simple-lambda
5860 lambda-formals
5861 ellipsis?
5862 chi-void
5863 eval-local-transformer
5864 chi-local-syntax
5865 chi-body
5866 chi-macro
5867 chi-application
5868 chi-expr
5869 chi
5870 chi-top
5871 syntax-type
5872 chi-when-list
5873 chi-install-global
5874 chi-top-sequence
5875 chi-sequence
5876 source-wrap
5877 wrap
5878 bound-id-member?
5879 distinct-bound-ids?
5880 valid-bound-ids?
5881 bound-id=?
5882 free-id=?
5883 id-var-name
5884 same-marks?
5885 join-marks
5886 join-wraps
5887 smart-append
5888 make-binding-wrap
5889 extend-ribcage!
5890 make-empty-ribcage
5891 new-mark
5892 anti-mark
5893 the-anti-mark
5894 top-marked?
5895 top-wrap
5896 empty-wrap
5897 set-ribcage-labels!
5898 set-ribcage-marks!
5899 set-ribcage-symnames!
5900 ribcage-labels
5901 ribcage-marks
5902 ribcage-symnames
5903 ribcage?
5904 make-ribcage
5905 gen-labels
5906 gen-label
5907 make-rename
5908 rename-marks
5909 rename-new
5910 rename-old
5911 subst-rename?
5912 wrap-subst
5913 wrap-marks
5914 make-wrap
5915 id-sym-name&marks
5916 id-sym-name
5917 id?
5918 nonsymbol-id?
5919 global-extend
5920 lookup
5921 macros-only-env
5922 extend-var-env
5923 extend-env
5924 null-env
5925 binding-value
5926 binding-type
5927 make-binding
5928 arg-check
5929 source-annotation
5930 no-source
5931 set-syntax-object-module!
5932 set-syntax-object-wrap!
5933 set-syntax-object-expression!
5934 syntax-object-module
5935 syntax-object-wrap
5936 syntax-object-expression
5937 syntax-object?
5938 make-syntax-object
5939 build-lexical-var
5940 build-letrec
5941 build-named-let
5942 build-let
5943 build-sequence
5944 build-data
5945 build-primref
5946 build-lambda-case
5947 build-case-lambda
5948 build-simple-lambda
5949 build-global-definition
5950 maybe-name-value!
5951 build-global-assignment
5952 build-global-reference
5953 analyze-variable
5954 build-lexical-assignment
5955 build-lexical-reference
5956 build-conditional
5957 build-application
5958 build-void
5959 decorate-source
5960 get-global-definition-hook
5961 put-global-definition-hook
5962 gensym-hook
5963 local-eval-hook
5964 top-level-eval-hook
5965 fx<
5966 fx=
5967 fx-
5968 fx+
5969 *mode*
5970 noexpand)
5971 ((top)
5972 (top)
5973 (top)
5974 (top)
5975 (top)
5976 (top)
5977 (top)
5978 (top)
5979 (top)
5980 (top)
5981 (top)
5982 (top)
5983 (top)
5984 (top)
5985 (top)
5986 (top)
5987 (top)
5988 (top)
5989 (top)
5990 (top)
5991 (top)
5992 (top)
5993 (top)
5994 (top)
5995 (top)
5996 (top)
5997 (top)
5998 (top)
5999 (top)
6000 (top)
6001 (top)
6002 (top)
6003 (top)
6004 (top)
6005 (top)
6006 (top)
6007 (top)
6008 (top)
6009 (top)
6010 (top)
6011 (top)
6012 (top)
6013 (top)
6014 (top)
6015 (top)
6016 (top)
6017 (top)
6018 (top)
6019 (top)
6020 (top)
6021 (top)
6022 (top)
6023 (top)
6024 (top)
6025 (top)
6026 (top)
6027 (top)
6028 (top)
6029 (top)
6030 (top)
6031 (top)
6032 (top)
6033 (top)
6034 (top)
6035 (top)
6036 (top)
6037 (top)
6038 (top)
6039 (top)
6040 (top)
6041 (top)
6042 (top)
6043 (top)
6044 (top)
6045 (top)
6046 (top)
6047 (top)
6048 (top)
6049 (top)
6050 (top)
6051 (top)
6052 (top)
6053 (top)
6054 (top)
6055 (top)
6056 (top)
6057 (top)
6058 (top)
6059 (top)
6060 (top)
6061 (top)
6062 (top)
6063 (top)
6064 (top)
6065 (top)
6066 (top)
6067 (top)
6068 (top)
6069 (top)
6070 (top)
6071 (top)
6072 (top)
6073 (top)
6074 (top)
6075 (top)
6076 (top)
6077 (top)
6078 (top)
6079 (top)
6080 (top)
6081 (top)
6082 (top)
6083 (top)
6084 (top)
6085 (top)
6086 (top)
6087 (top))
6088 ("i"
6089 "i"
6090 "i"
6091 "i"
6092 "i"
6093 "i"
6094 "i"
6095 "i"
6096 "i"
6097 "i"
6098 "i"
6099 "i"
6100 "i"
6101 "i"
6102 "i"
6103 "i"
6104 "i"
6105 "i"
6106 "i"
6107 "i"
6108 "i"
6109 "i"
6110 "i"
6111 "i"
6112 "i"
6113 "i"
6114 "i"
6115 "i"
6116 "i"
6117 "i"
6118 "i"
6119 "i"
6120 "i"
6121 "i"
6122 "i"
6123 "i"
6124 "i"
6125 "i"
6126 "i"
6127 "i"
6128 "i"
6129 "i"
6130 "i"
6131 "i"
6132 "i"
6133 "i"
6134 "i"
6135 "i"
6136 "i"
6137 "i"
6138 "i"
6139 "i"
6140 "i"
6141 "i"
6142 "i"
6143 "i"
6144 "i"
6145 "i"
6146 "i"
6147 "i"
6148 "i"
6149 "i"
6150 "i"
6151 "i"
6152 "i"
6153 "i"
6154 "i"
6155 "i"
6156 "i"
6157 "i"
6158 "i"
6159 "i"
6160 "i"
6161 "i"
6162 "i"
6163 "i"
6164 "i"
6165 "i"
6166 "i"
6167 "i"
6168 "i"
6169 "i"
6170 "i"
6171 "i"
6172 "i"
6173 "i"
6174 "i"
6175 "i"
6176 "i"
6177 "i"
6178 "i"
6179 "i"
6180 "i"
6181 "i"
6182 "i"
6183 "i"
6184 "i"
6185 "i"
6186 "i"
6187 "i"
6188 "i"
6189 "i"
6190 "i"
6191 "i"
6192 "i"
6193 "i"
6194 "i"
6195 "i"
6196 "i"
6197 "i"
6198 "i"
6199 "i"
6200 "i"
6201 "i"
6202 "i"
6203 "i"
6204 "i"))
6205 #(ribcage
6206 (define-structure
6207 and-map*)
6208 ((top) (top))
6209 ("i" "i")))
6210 (hygiene guile)))
6211 'load
6212 (if (#{free-id=?\ 3818}#
6213 #{x\ 4518}#
6214 '#(syntax-object
6215 eval
6216 ((top)
6217 #(ribcage () () ())
6218 #(ribcage () () ())
6219 #(ribcage () () ())
6220 #(ribcage
6221 #(x)
6222 #((top))
6223 #("i"))
6224 #(ribcage () () ())
6225 #(ribcage
6226 #(f
6227 when-list
6228 situations)
6229 #((top) (top) (top))
6230 #("i" "i" "i"))
6231 #(ribcage () () ())
6232 #(ribcage
6233 #(e when-list w)
6234 #((top) (top) (top))
6235 #("i" "i" "i"))
6236 #(ribcage
6237 (lambda-var-list
6238 gen-var
6239 strip
6240 chi-lambda-case
6241 lambda*-formals
6242 chi-simple-lambda
6243 lambda-formals
6244 ellipsis?
6245 chi-void
6246 eval-local-transformer
6247 chi-local-syntax
6248 chi-body
6249 chi-macro
6250 chi-application
6251 chi-expr
6252 chi
6253 chi-top
6254 syntax-type
6255 chi-when-list
6256 chi-install-global
6257 chi-top-sequence
6258 chi-sequence
6259 source-wrap
6260 wrap
6261 bound-id-member?
6262 distinct-bound-ids?
6263 valid-bound-ids?
6264 bound-id=?
6265 free-id=?
6266 id-var-name
6267 same-marks?
6268 join-marks
6269 join-wraps
6270 smart-append
6271 make-binding-wrap
6272 extend-ribcage!
6273 make-empty-ribcage
6274 new-mark
6275 anti-mark
6276 the-anti-mark
6277 top-marked?
6278 top-wrap
6279 empty-wrap
6280 set-ribcage-labels!
6281 set-ribcage-marks!
6282 set-ribcage-symnames!
6283 ribcage-labels
6284 ribcage-marks
6285 ribcage-symnames
6286 ribcage?
6287 make-ribcage
6288 gen-labels
6289 gen-label
6290 make-rename
6291 rename-marks
6292 rename-new
6293 rename-old
6294 subst-rename?
6295 wrap-subst
6296 wrap-marks
6297 make-wrap
6298 id-sym-name&marks
6299 id-sym-name
6300 id?
6301 nonsymbol-id?
6302 global-extend
6303 lookup
6304 macros-only-env
6305 extend-var-env
6306 extend-env
6307 null-env
6308 binding-value
6309 binding-type
6310 make-binding
6311 arg-check
6312 source-annotation
6313 no-source
6314 set-syntax-object-module!
6315 set-syntax-object-wrap!
6316 set-syntax-object-expression!
6317 syntax-object-module
6318 syntax-object-wrap
6319 syntax-object-expression
6320 syntax-object?
6321 make-syntax-object
6322 build-lexical-var
6323 build-letrec
6324 build-named-let
6325 build-let
6326 build-sequence
6327 build-data
6328 build-primref
6329 build-lambda-case
6330 build-case-lambda
6331 build-simple-lambda
6332 build-global-definition
6333 maybe-name-value!
6334 build-global-assignment
6335 build-global-reference
6336 analyze-variable
6337 build-lexical-assignment
6338 build-lexical-reference
6339 build-conditional
6340 build-application
6341 build-void
6342 decorate-source
6343 get-global-definition-hook
6344 put-global-definition-hook
6345 gensym-hook
6346 local-eval-hook
6347 top-level-eval-hook
6348 fx<
6349 fx=
6350 fx-
6351 fx+
6352 *mode*
6353 noexpand)
6354 ((top)
6355 (top)
6356 (top)
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 ("i"
6472 "i"
6473 "i"
6474 "i"
6475 "i"
6476 "i"
6477 "i"
6478 "i"
6479 "i"
6480 "i"
6481 "i"
6482 "i"
6483 "i"
6484 "i"
6485 "i"
6486 "i"
6487 "i"
6488 "i"
6489 "i"
6490 "i"
6491 "i"
6492 "i"
6493 "i"
6494 "i"
6495 "i"
6496 "i"
6497 "i"
6498 "i"
6499 "i"
6500 "i"
6501 "i"
6502 "i"
6503 "i"
6504 "i"
6505 "i"
6506 "i"
6507 "i"
6508 "i"
6509 "i"
6510 "i"
6511 "i"
6512 "i"
6513 "i"
6514 "i"
6515 "i"
6516 "i"
6517 "i"
6518 "i"
6519 "i"
6520 "i"
6521 "i"
6522 "i"
6523 "i"
6524 "i"
6525 "i"
6526 "i"
6527 "i"
6528 "i"
6529 "i"
6530 "i"
6531 "i"
6532 "i"
6533 "i"
6534 "i"
6535 "i"
6536 "i"
6537 "i"
6538 "i"
6539 "i"
6540 "i"
6541 "i"
6542 "i"
6543 "i"
6544 "i"
6545 "i"
6546 "i"
6547 "i"
6548 "i"
6549 "i"
6550 "i"
6551 "i"
6552 "i"
6553 "i"
6554 "i"
6555 "i"
6556 "i"
6557 "i"
6558 "i"
6559 "i"
6560 "i"
6561 "i"
6562 "i"
6563 "i"
6564 "i"
6565 "i"
6566 "i"
6567 "i"
6568 "i"
6569 "i"
6570 "i"
6571 "i"
6572 "i"
6573 "i"
6574 "i"
6575 "i"
6576 "i"
6577 "i"
6578 "i"
6579 "i"
6580 "i"
6581 "i"
6582 "i"
6583 "i"
6584 "i"
6585 "i"
6586 "i"
6587 "i"))
6588 #(ribcage
6589 (define-structure
6590 and-map*)
6591 ((top) (top))
6592 ("i" "i")))
6593 (hygiene guile)))
6594 'eval
6595 (syntax-violation
6596 'eval-when
6597 "invalid situation"
6598 #{e\ 4512}#
6599 (#{wrap\ 3823}#
6600 #{x\ 4518}#
6601 #{w\ 4514}#
6602 #f))))))
6603 #{situations\ 4517}#))))))
6604 (#{f\ 4515}# #{when-list\ 4513}# (quote ())))))
6605 (#{chi-install-global\ 3827}#
6606 (lambda (#{name\ 4519}# #{e\ 4520}#)
6607 (#{build-global-definition\ 3768}#
6608 #f
6609 #{name\ 4519}#
6610 (if (let ((#{v\ 4521}#
6611 (module-variable
6612 (current-module)
6613 #{name\ 4519}#)))
6614 (if #{v\ 4521}#
6615 (if (variable-bound? #{v\ 4521}#)
6616 (if (macro? (variable-ref #{v\ 4521}#))
6617 (not (eq? (macro-type (variable-ref #{v\ 4521}#))
6618 'syncase-macro))
6619 #f)
6620 #f)
6621 #f))
6622 (#{build-application\ 3760}#
6623 #f
6624 (#{build-primref\ 3772}#
6625 #f
6626 'make-extended-syncase-macro)
6627 (list (#{build-application\ 3760}#
6628 #f
6629 (#{build-primref\ 3772}# #f (quote module-ref))
6630 (list (#{build-application\ 3760}#
6631 #f
6632 (#{build-primref\ 3772}#
6633 #f
6634 'current-module)
6635 '())
6636 (#{build-data\ 3773}# #f #{name\ 4519}#)))
6637 (#{build-data\ 3773}# #f (quote macro))
6638 (#{build-application\ 3760}#
6639 #f
6640 (#{build-primref\ 3772}# #f (quote cons))
6641 (list #{e\ 4520}#
6642 (#{build-application\ 3760}#
6643 #f
6644 (#{build-primref\ 3772}#
6645 #f
6646 'module-name)
6647 (list (#{build-application\ 3760}#
6648 #f
6649 (#{build-primref\ 3772}#
6650 #f
6651 'current-module)
6652 '())))))))
6653 (#{build-application\ 3760}#
6654 #f
6655 (#{build-primref\ 3772}#
6656 #f
6657 'make-syncase-macro)
6658 (list (#{build-data\ 3773}# #f (quote macro))
6659 (#{build-application\ 3760}#
6660 #f
6661 (#{build-primref\ 3772}# #f (quote cons))
6662 (list #{e\ 4520}#
6663 (#{build-application\ 3760}#
6664 #f
6665 (#{build-primref\ 3772}#
6666 #f
6667 'module-name)
6668 (list (#{build-application\ 3760}#
6669 #f
6670 (#{build-primref\ 3772}#
6671 #f
6672 'current-module)
6673 '())))))))))))
6674 (#{chi-top-sequence\ 3826}#
6675 (lambda (#{body\ 4522}#
6676 #{r\ 4523}#
6677 #{w\ 4524}#
6678 #{s\ 4525}#
6679 #{m\ 4526}#
6680 #{esew\ 4527}#
6681 #{mod\ 4528}#)
6682 (#{build-sequence\ 3774}#
6683 #{s\ 4525}#
6684 (letrec ((#{dobody\ 4529}#
6685 (lambda (#{body\ 4530}#
6686 #{r\ 4531}#
6687 #{w\ 4532}#
6688 #{m\ 4533}#
6689 #{esew\ 4534}#
6690 #{mod\ 4535}#)
6691 (if (null? #{body\ 4530}#)
6692 '()
6693 (let ((#{first\ 4536}#
6694 (#{chi-top\ 3830}#
6695 (car #{body\ 4530}#)
6696 #{r\ 4531}#
6697 #{w\ 4532}#
6698 #{m\ 4533}#
6699 #{esew\ 4534}#
6700 #{mod\ 4535}#)))
6701 (cons #{first\ 4536}#
6702 (#{dobody\ 4529}#
6703 (cdr #{body\ 4530}#)
6704 #{r\ 4531}#
6705 #{w\ 4532}#
6706 #{m\ 4533}#
6707 #{esew\ 4534}#
6708 #{mod\ 4535}#)))))))
6709 (#{dobody\ 4529}#
6710 #{body\ 4522}#
6711 #{r\ 4523}#
6712 #{w\ 4524}#
6713 #{m\ 4526}#
6714 #{esew\ 4527}#
6715 #{mod\ 4528}#)))))
6716 (#{chi-sequence\ 3825}#
6717 (lambda (#{body\ 4537}#
6718 #{r\ 4538}#
6719 #{w\ 4539}#
6720 #{s\ 4540}#
6721 #{mod\ 4541}#)
6722 (#{build-sequence\ 3774}#
6723 #{s\ 4540}#
6724 (letrec ((#{dobody\ 4542}#
6725 (lambda (#{body\ 4543}#
6726 #{r\ 4544}#
6727 #{w\ 4545}#
6728 #{mod\ 4546}#)
6729 (if (null? #{body\ 4543}#)
6730 '()
6731 (let ((#{first\ 4547}#
6732 (#{chi\ 3831}#
6733 (car #{body\ 4543}#)
6734 #{r\ 4544}#
6735 #{w\ 4545}#
6736 #{mod\ 4546}#)))
6737 (cons #{first\ 4547}#
6738 (#{dobody\ 4542}#
6739 (cdr #{body\ 4543}#)
6740 #{r\ 4544}#
6741 #{w\ 4545}#
6742 #{mod\ 4546}#)))))))
6743 (#{dobody\ 4542}#
6744 #{body\ 4537}#
6745 #{r\ 4538}#
6746 #{w\ 4539}#
6747 #{mod\ 4541}#)))))
6748 (#{source-wrap\ 3824}#
6749 (lambda (#{x\ 4548}#
6750 #{w\ 4549}#
6751 #{s\ 4550}#
6752 #{defmod\ 4551}#)
6753 (#{wrap\ 3823}#
6754 (#{decorate-source\ 3758}#
6755 #{x\ 4548}#
6756 #{s\ 4550}#)
6757 #{w\ 4549}#
6758 #{defmod\ 4551}#)))
6759 (#{wrap\ 3823}#
6760 (lambda (#{x\ 4552}# #{w\ 4553}# #{defmod\ 4554}#)
6761 (if (if (null? (#{wrap-marks\ 3798}# #{w\ 4553}#))
6762 (null? (#{wrap-subst\ 3799}# #{w\ 4553}#))
6763 #f)
6764 #{x\ 4552}#
6765 (if (#{syntax-object?\ 3779}# #{x\ 4552}#)
6766 (#{make-syntax-object\ 3778}#
6767 (#{syntax-object-expression\ 3780}# #{x\ 4552}#)
6768 (#{join-wraps\ 3814}#
6769 #{w\ 4553}#
6770 (#{syntax-object-wrap\ 3781}# #{x\ 4552}#))
6771 (#{syntax-object-module\ 3782}# #{x\ 4552}#))
6772 (if (null? #{x\ 4552}#)
6773 #{x\ 4552}#
6774 (#{make-syntax-object\ 3778}#
6775 #{x\ 4552}#
6776 #{w\ 4553}#
6777 #{defmod\ 4554}#))))))
6778 (#{bound-id-member?\ 3822}#
6779 (lambda (#{x\ 4555}# #{list\ 4556}#)
6780 (if (not (null? #{list\ 4556}#))
6781 (let ((#{t\ 4557}#
6782 (#{bound-id=?\ 3819}#
6783 #{x\ 4555}#
6784 (car #{list\ 4556}#))))
6785 (if #{t\ 4557}#
6786 #{t\ 4557}#
6787 (#{bound-id-member?\ 3822}#
6788 #{x\ 4555}#
6789 (cdr #{list\ 4556}#))))
6790 #f)))
6791 (#{distinct-bound-ids?\ 3821}#
6792 (lambda (#{ids\ 4558}#)
6793 (letrec ((#{distinct?\ 4559}#
6794 (lambda (#{ids\ 4560}#)
6795 (let ((#{t\ 4561}# (null? #{ids\ 4560}#)))
6796 (if #{t\ 4561}#
6797 #{t\ 4561}#
6798 (if (not (#{bound-id-member?\ 3822}#
6799 (car #{ids\ 4560}#)
6800 (cdr #{ids\ 4560}#)))
6801 (#{distinct?\ 4559}# (cdr #{ids\ 4560}#))
6802 #f))))))
6803 (#{distinct?\ 4559}# #{ids\ 4558}#))))
6804 (#{valid-bound-ids?\ 3820}#
6805 (lambda (#{ids\ 4562}#)
6806 (if (letrec ((#{all-ids?\ 4563}#
6807 (lambda (#{ids\ 4564}#)
6808 (let ((#{t\ 4565}# (null? #{ids\ 4564}#)))
6809 (if #{t\ 4565}#
6810 #{t\ 4565}#
6811 (if (#{id?\ 3795}# (car #{ids\ 4564}#))
6812 (#{all-ids?\ 4563}# (cdr #{ids\ 4564}#))
6813 #f))))))
6814 (#{all-ids?\ 4563}# #{ids\ 4562}#))
6815 (#{distinct-bound-ids?\ 3821}# #{ids\ 4562}#)
6816 #f)))
6817 (#{bound-id=?\ 3819}#
6818 (lambda (#{i\ 4566}# #{j\ 4567}#)
6819 (if (if (#{syntax-object?\ 3779}# #{i\ 4566}#)
6820 (#{syntax-object?\ 3779}# #{j\ 4567}#)
6821 #f)
6822 (if (eq? (#{syntax-object-expression\ 3780}# #{i\ 4566}#)
6823 (#{syntax-object-expression\ 3780}# #{j\ 4567}#))
6824 (#{same-marks?\ 3816}#
6825 (#{wrap-marks\ 3798}#
6826 (#{syntax-object-wrap\ 3781}# #{i\ 4566}#))
6827 (#{wrap-marks\ 3798}#
6828 (#{syntax-object-wrap\ 3781}# #{j\ 4567}#)))
6829 #f)
6830 (eq? #{i\ 4566}# #{j\ 4567}#))))
6831 (#{free-id=?\ 3818}#
6832 (lambda (#{i\ 4568}# #{j\ 4569}#)
6833 (if (eq? (let ((#{x\ 4570}# #{i\ 4568}#))
6834 (if (#{syntax-object?\ 3779}# #{x\ 4570}#)
6835 (#{syntax-object-expression\ 3780}# #{x\ 4570}#)
6836 #{x\ 4570}#))
6837 (let ((#{x\ 4571}# #{j\ 4569}#))
6838 (if (#{syntax-object?\ 3779}# #{x\ 4571}#)
6839 (#{syntax-object-expression\ 3780}# #{x\ 4571}#)
6840 #{x\ 4571}#)))
6841 (eq? (#{id-var-name\ 3817}# #{i\ 4568}# (quote (())))
6842 (#{id-var-name\ 3817}# #{j\ 4569}# (quote (()))))
6843 #f)))
6844 (#{id-var-name\ 3817}#
6845 (lambda (#{id\ 4572}# #{w\ 4573}#)
6846 (letrec ((#{search-vector-rib\ 4576}#
6847 (lambda (#{sym\ 4582}#
6848 #{subst\ 4583}#
6849 #{marks\ 4584}#
6850 #{symnames\ 4585}#
6851 #{ribcage\ 4586}#)
6852 (let ((#{n\ 4587}#
6853 (vector-length #{symnames\ 4585}#)))
6854 (letrec ((#{f\ 4588}#
6855 (lambda (#{i\ 4589}#)
6856 (if (#{fx=\ 3752}#
6857 #{i\ 4589}#
6858 #{n\ 4587}#)
6859 (#{search\ 4574}#
6860 #{sym\ 4582}#
6861 (cdr #{subst\ 4583}#)
6862 #{marks\ 4584}#)
6863 (if (if (eq? (vector-ref
6864 #{symnames\ 4585}#
6865 #{i\ 4589}#)
6866 #{sym\ 4582}#)
6867 (#{same-marks?\ 3816}#
6868 #{marks\ 4584}#
6869 (vector-ref
6870 (#{ribcage-marks\ 3805}#
6871 #{ribcage\ 4586}#)
6872 #{i\ 4589}#))
6873 #f)
6874 (values
6875 (vector-ref
6876 (#{ribcage-labels\ 3806}#
6877 #{ribcage\ 4586}#)
6878 #{i\ 4589}#)
6879 #{marks\ 4584}#)
6880 (#{f\ 4588}#
6881 (#{fx+\ 3750}#
6882 #{i\ 4589}#
6883 1)))))))
6884 (#{f\ 4588}# 0)))))
6885 (#{search-list-rib\ 4575}#
6886 (lambda (#{sym\ 4590}#
6887 #{subst\ 4591}#
6888 #{marks\ 4592}#
6889 #{symnames\ 4593}#
6890 #{ribcage\ 4594}#)
6891 (letrec ((#{f\ 4595}#
6892 (lambda (#{symnames\ 4596}# #{i\ 4597}#)
6893 (if (null? #{symnames\ 4596}#)
6894 (#{search\ 4574}#
6895 #{sym\ 4590}#
6896 (cdr #{subst\ 4591}#)
6897 #{marks\ 4592}#)
6898 (if (if (eq? (car #{symnames\ 4596}#)
6899 #{sym\ 4590}#)
6900 (#{same-marks?\ 3816}#
6901 #{marks\ 4592}#
6902 (list-ref
6903 (#{ribcage-marks\ 3805}#
6904 #{ribcage\ 4594}#)
6905 #{i\ 4597}#))
6906 #f)
6907 (values
6908 (list-ref
6909 (#{ribcage-labels\ 3806}#
6910 #{ribcage\ 4594}#)
6911 #{i\ 4597}#)
6912 #{marks\ 4592}#)
6913 (#{f\ 4595}#
6914 (cdr #{symnames\ 4596}#)
6915 (#{fx+\ 3750}#
6916 #{i\ 4597}#
6917 1)))))))
6918 (#{f\ 4595}# #{symnames\ 4593}# 0))))
6919 (#{search\ 4574}#
6920 (lambda (#{sym\ 4598}#
6921 #{subst\ 4599}#
6922 #{marks\ 4600}#)
6923 (if (null? #{subst\ 4599}#)
6924 (values #f #{marks\ 4600}#)
6925 (let ((#{fst\ 4601}# (car #{subst\ 4599}#)))
6926 (if (eq? #{fst\ 4601}# (quote shift))
6927 (#{search\ 4574}#
6928 #{sym\ 4598}#
6929 (cdr #{subst\ 4599}#)
6930 (cdr #{marks\ 4600}#))
6931 (let ((#{symnames\ 4602}#
6932 (#{ribcage-symnames\ 3804}#
6933 #{fst\ 4601}#)))
6934 (if (vector? #{symnames\ 4602}#)
6935 (#{search-vector-rib\ 4576}#
6936 #{sym\ 4598}#
6937 #{subst\ 4599}#
6938 #{marks\ 4600}#
6939 #{symnames\ 4602}#
6940 #{fst\ 4601}#)
6941 (#{search-list-rib\ 4575}#
6942 #{sym\ 4598}#
6943 #{subst\ 4599}#
6944 #{marks\ 4600}#
6945 #{symnames\ 4602}#
6946 #{fst\ 4601}#)))))))))
6947 (if (symbol? #{id\ 4572}#)
6948 (let ((#{t\ 4603}#
6949 (call-with-values
6950 (lambda ()
6951 (#{search\ 4574}#
6952 #{id\ 4572}#
6953 (#{wrap-subst\ 3799}# #{w\ 4573}#)
6954 (#{wrap-marks\ 3798}# #{w\ 4573}#)))
6955 (lambda (#{x\ 4604}# . #{ignore\ 4605}#)
6956 #{x\ 4604}#))))
6957 (if #{t\ 4603}# #{t\ 4603}# #{id\ 4572}#))
6958 (if (#{syntax-object?\ 3779}# #{id\ 4572}#)
6959 (let ((#{id\ 4606}#
6960 (#{syntax-object-expression\ 3780}# #{id\ 4572}#))
6961 (#{w1\ 4607}#
6962 (#{syntax-object-wrap\ 3781}# #{id\ 4572}#)))
6963 (let ((#{marks\ 4608}#
6964 (#{join-marks\ 3815}#
6965 (#{wrap-marks\ 3798}# #{w\ 4573}#)
6966 (#{wrap-marks\ 3798}# #{w1\ 4607}#))))
6967 (call-with-values
6968 (lambda ()
6969 (#{search\ 4574}#
6970 #{id\ 4606}#
6971 (#{wrap-subst\ 3799}# #{w\ 4573}#)
6972 #{marks\ 4608}#))
6973 (lambda (#{new-id\ 4609}# #{marks\ 4610}#)
6974 (let ((#{t\ 4611}# #{new-id\ 4609}#))
6975 (if #{t\ 4611}#
6976 #{t\ 4611}#
6977 (let ((#{t\ 4612}#
6978 (call-with-values
6979 (lambda ()
6980 (#{search\ 4574}#
6981 #{id\ 4606}#
6982 (#{wrap-subst\ 3799}#
6983 #{w1\ 4607}#)
6984 #{marks\ 4610}#))
6985 (lambda (#{x\ 4613}#
6986 .
6987 #{ignore\ 4614}#)
6988 #{x\ 4613}#))))
6989 (if #{t\ 4612}#
6990 #{t\ 4612}#
6991 #{id\ 4606}#))))))))
6992 (syntax-violation
6993 'id-var-name
6994 "invalid id"
6995 #{id\ 4572}#))))))
6996 (#{same-marks?\ 3816}#
6997 (lambda (#{x\ 4615}# #{y\ 4616}#)
6998 (let ((#{t\ 4617}# (eq? #{x\ 4615}# #{y\ 4616}#)))
6999 (if #{t\ 4617}#
7000 #{t\ 4617}#
7001 (if (not (null? #{x\ 4615}#))
7002 (if (not (null? #{y\ 4616}#))
7003 (if (eq? (car #{x\ 4615}#) (car #{y\ 4616}#))
7004 (#{same-marks?\ 3816}#
7005 (cdr #{x\ 4615}#)
7006 (cdr #{y\ 4616}#))
7007 #f)
7008 #f)
7009 #f)))))
7010 (#{join-marks\ 3815}#
7011 (lambda (#{m1\ 4618}# #{m2\ 4619}#)
7012 (#{smart-append\ 3813}#
7013 #{m1\ 4618}#
7014 #{m2\ 4619}#)))
7015 (#{join-wraps\ 3814}#
7016 (lambda (#{w1\ 4620}# #{w2\ 4621}#)
7017 (let ((#{m1\ 4622}#
7018 (#{wrap-marks\ 3798}# #{w1\ 4620}#))
7019 (#{s1\ 4623}#
7020 (#{wrap-subst\ 3799}# #{w1\ 4620}#)))
7021 (if (null? #{m1\ 4622}#)
7022 (if (null? #{s1\ 4623}#)
7023 #{w2\ 4621}#
7024 (#{make-wrap\ 3797}#
7025 (#{wrap-marks\ 3798}# #{w2\ 4621}#)
7026 (#{smart-append\ 3813}#
7027 #{s1\ 4623}#
7028 (#{wrap-subst\ 3799}# #{w2\ 4621}#))))
7029 (#{make-wrap\ 3797}#
7030 (#{smart-append\ 3813}#
7031 #{m1\ 4622}#
7032 (#{wrap-marks\ 3798}# #{w2\ 4621}#))
7033 (#{smart-append\ 3813}#
7034 #{s1\ 4623}#
7035 (#{wrap-subst\ 3799}# #{w2\ 4621}#)))))))
7036 (#{smart-append\ 3813}#
7037 (lambda (#{m1\ 4624}# #{m2\ 4625}#)
7038 (if (null? #{m2\ 4625}#)
7039 #{m1\ 4624}#
7040 (append #{m1\ 4624}# #{m2\ 4625}#))))
7041 (#{make-binding-wrap\ 3812}#
7042 (lambda (#{ids\ 4626}# #{labels\ 4627}# #{w\ 4628}#)
7043 (if (null? #{ids\ 4626}#)
7044 #{w\ 4628}#
7045 (#{make-wrap\ 3797}#
7046 (#{wrap-marks\ 3798}# #{w\ 4628}#)
7047 (cons (let ((#{labelvec\ 4629}#
7048 (list->vector #{labels\ 4627}#)))
7049 (let ((#{n\ 4630}#
7050 (vector-length #{labelvec\ 4629}#)))
7051 (let ((#{symnamevec\ 4631}#
7052 (make-vector #{n\ 4630}#))
7053 (#{marksvec\ 4632}#
7054 (make-vector #{n\ 4630}#)))
7055 (begin
7056 (letrec ((#{f\ 4633}#
7057 (lambda (#{ids\ 4634}# #{i\ 4635}#)
7058 (if (not (null? #{ids\ 4634}#))
7059 (call-with-values
7060 (lambda ()
7061 (#{id-sym-name&marks\ 3796}#
7062 (car #{ids\ 4634}#)
7063 #{w\ 4628}#))
7064 (lambda (#{symname\ 4636}#
7065 #{marks\ 4637}#)
7066 (begin
7067 (vector-set!
7068 #{symnamevec\ 4631}#
7069 #{i\ 4635}#
7070 #{symname\ 4636}#)
7071 (vector-set!
7072 #{marksvec\ 4632}#
7073 #{i\ 4635}#
7074 #{marks\ 4637}#)
7075 (#{f\ 4633}#
7076 (cdr #{ids\ 4634}#)
7077 (#{fx+\ 3750}#
7078 #{i\ 4635}#
7079 1)))))))))
7080 (#{f\ 4633}# #{ids\ 4626}# 0))
7081 (#{make-ribcage\ 3802}#
7082 #{symnamevec\ 4631}#
7083 #{marksvec\ 4632}#
7084 #{labelvec\ 4629}#)))))
7085 (#{wrap-subst\ 3799}# #{w\ 4628}#))))))
7086 (#{extend-ribcage!\ 3811}#
7087 (lambda (#{ribcage\ 4638}# #{id\ 4639}# #{label\ 4640}#)
7088 (begin
7089 (#{set-ribcage-symnames!\ 3807}#
7090 #{ribcage\ 4638}#
7091 (cons (#{syntax-object-expression\ 3780}# #{id\ 4639}#)
7092 (#{ribcage-symnames\ 3804}# #{ribcage\ 4638}#)))
7093 (#{set-ribcage-marks!\ 3808}#
7094 #{ribcage\ 4638}#
7095 (cons (#{wrap-marks\ 3798}#
7096 (#{syntax-object-wrap\ 3781}# #{id\ 4639}#))
7097 (#{ribcage-marks\ 3805}# #{ribcage\ 4638}#)))
7098 (#{set-ribcage-labels!\ 3809}#
7099 #{ribcage\ 4638}#
7100 (cons #{label\ 4640}#
7101 (#{ribcage-labels\ 3806}# #{ribcage\ 4638}#))))))
7102 (#{anti-mark\ 3810}#
7103 (lambda (#{w\ 4641}#)
7104 (#{make-wrap\ 3797}#
7105 (cons #f (#{wrap-marks\ 3798}# #{w\ 4641}#))
7106 (cons 'shift
7107 (#{wrap-subst\ 3799}# #{w\ 4641}#)))))
7108 (#{set-ribcage-labels!\ 3809}#
7109 (lambda (#{x\ 4642}# #{update\ 4643}#)
7110 (vector-set! #{x\ 4642}# 3 #{update\ 4643}#)))
7111 (#{set-ribcage-marks!\ 3808}#
7112 (lambda (#{x\ 4644}# #{update\ 4645}#)
7113 (vector-set! #{x\ 4644}# 2 #{update\ 4645}#)))
7114 (#{set-ribcage-symnames!\ 3807}#
7115 (lambda (#{x\ 4646}# #{update\ 4647}#)
7116 (vector-set! #{x\ 4646}# 1 #{update\ 4647}#)))
7117 (#{ribcage-labels\ 3806}#
7118 (lambda (#{x\ 4648}#) (vector-ref #{x\ 4648}# 3)))
7119 (#{ribcage-marks\ 3805}#
7120 (lambda (#{x\ 4649}#) (vector-ref #{x\ 4649}# 2)))
7121 (#{ribcage-symnames\ 3804}#
7122 (lambda (#{x\ 4650}#) (vector-ref #{x\ 4650}# 1)))
7123 (#{ribcage?\ 3803}#
7124 (lambda (#{x\ 4651}#)
7125 (if (vector? #{x\ 4651}#)
7126 (if (= (vector-length #{x\ 4651}#) 4)
7127 (eq? (vector-ref #{x\ 4651}# 0) (quote ribcage))
7128 #f)
7129 #f)))
7130 (#{make-ribcage\ 3802}#
7131 (lambda (#{symnames\ 4652}#
7132 #{marks\ 4653}#
7133 #{labels\ 4654}#)
7134 (vector
7135 'ribcage
7136 #{symnames\ 4652}#
7137 #{marks\ 4653}#
7138 #{labels\ 4654}#)))
7139 (#{gen-labels\ 3801}#
7140 (lambda (#{ls\ 4655}#)
7141 (if (null? #{ls\ 4655}#)
7142 '()
7143 (cons (#{gen-label\ 3800}#)
7144 (#{gen-labels\ 3801}# (cdr #{ls\ 4655}#))))))
7145 (#{gen-label\ 3800}# (lambda () (string #\i)))
7146 (#{wrap-subst\ 3799}# cdr)
7147 (#{wrap-marks\ 3798}# car)
7148 (#{make-wrap\ 3797}# cons)
7149 (#{id-sym-name&marks\ 3796}#
7150 (lambda (#{x\ 4656}# #{w\ 4657}#)
7151 (if (#{syntax-object?\ 3779}# #{x\ 4656}#)
7152 (values
7153 (#{syntax-object-expression\ 3780}# #{x\ 4656}#)
7154 (#{join-marks\ 3815}#
7155 (#{wrap-marks\ 3798}# #{w\ 4657}#)
7156 (#{wrap-marks\ 3798}#
7157 (#{syntax-object-wrap\ 3781}# #{x\ 4656}#))))
7158 (values
7159 #{x\ 4656}#
7160 (#{wrap-marks\ 3798}# #{w\ 4657}#)))))
7161 (#{id?\ 3795}#
7162 (lambda (#{x\ 4658}#)
7163 (if (symbol? #{x\ 4658}#)
7164 #t
7165 (if (#{syntax-object?\ 3779}# #{x\ 4658}#)
7166 (symbol?
7167 (#{syntax-object-expression\ 3780}# #{x\ 4658}#))
7168 #f))))
7169 (#{nonsymbol-id?\ 3794}#
7170 (lambda (#{x\ 4659}#)
7171 (if (#{syntax-object?\ 3779}# #{x\ 4659}#)
7172 (symbol?
7173 (#{syntax-object-expression\ 3780}# #{x\ 4659}#))
7174 #f)))
7175 (#{global-extend\ 3793}#
7176 (lambda (#{type\ 4660}# #{sym\ 4661}# #{val\ 4662}#)
7177 (#{put-global-definition-hook\ 3756}#
7178 #{sym\ 4661}#
7179 #{type\ 4660}#
7180 #{val\ 4662}#)))
7181 (#{lookup\ 3792}#
7182 (lambda (#{x\ 4663}# #{r\ 4664}# #{mod\ 4665}#)
7183 (let ((#{t\ 4666}# (assq #{x\ 4663}# #{r\ 4664}#)))
7184 (if #{t\ 4666}#
7185 (cdr #{t\ 4666}#)
7186 (if (symbol? #{x\ 4663}#)
7187 (let ((#{t\ 4667}#
7188 (#{get-global-definition-hook\ 3757}#
7189 #{x\ 4663}#
7190 #{mod\ 4665}#)))
7191 (if #{t\ 4667}# #{t\ 4667}# (quote (global))))
7192 '(displaced-lexical))))))
7193 (#{macros-only-env\ 3791}#
7194 (lambda (#{r\ 4668}#)
7195 (if (null? #{r\ 4668}#)
7196 '()
7197 (let ((#{a\ 4669}# (car #{r\ 4668}#)))
7198 (if (eq? (cadr #{a\ 4669}#) (quote macro))
7199 (cons #{a\ 4669}#
7200 (#{macros-only-env\ 3791}# (cdr #{r\ 4668}#)))
7201 (#{macros-only-env\ 3791}# (cdr #{r\ 4668}#)))))))
7202 (#{extend-var-env\ 3790}#
7203 (lambda (#{labels\ 4670}# #{vars\ 4671}# #{r\ 4672}#)
7204 (if (null? #{labels\ 4670}#)
7205 #{r\ 4672}#
7206 (#{extend-var-env\ 3790}#
7207 (cdr #{labels\ 4670}#)
7208 (cdr #{vars\ 4671}#)
7209 (cons (cons (car #{labels\ 4670}#)
7210 (cons (quote lexical) (car #{vars\ 4671}#)))
7211 #{r\ 4672}#)))))
7212 (#{extend-env\ 3789}#
7213 (lambda (#{labels\ 4673}# #{bindings\ 4674}# #{r\ 4675}#)
7214 (if (null? #{labels\ 4673}#)
7215 #{r\ 4675}#
7216 (#{extend-env\ 3789}#
7217 (cdr #{labels\ 4673}#)
7218 (cdr #{bindings\ 4674}#)
7219 (cons (cons (car #{labels\ 4673}#)
7220 (car #{bindings\ 4674}#))
7221 #{r\ 4675}#)))))
7222 (#{binding-value\ 3788}# cdr)
7223 (#{binding-type\ 3787}# car)
7224 (#{source-annotation\ 3786}#
7225 (lambda (#{x\ 4676}#)
7226 (if (#{syntax-object?\ 3779}# #{x\ 4676}#)
7227 (#{source-annotation\ 3786}#
7228 (#{syntax-object-expression\ 3780}# #{x\ 4676}#))
7229 (if (pair? #{x\ 4676}#)
7230 (let ((#{props\ 4677}# (source-properties #{x\ 4676}#)))
7231 (if (pair? #{props\ 4677}#) #{props\ 4677}# #f))
7232 #f))))
7233 (#{set-syntax-object-module!\ 3785}#
7234 (lambda (#{x\ 4678}# #{update\ 4679}#)
7235 (vector-set! #{x\ 4678}# 3 #{update\ 4679}#)))
7236 (#{set-syntax-object-wrap!\ 3784}#
7237 (lambda (#{x\ 4680}# #{update\ 4681}#)
7238 (vector-set! #{x\ 4680}# 2 #{update\ 4681}#)))
7239 (#{set-syntax-object-expression!\ 3783}#
7240 (lambda (#{x\ 4682}# #{update\ 4683}#)
7241 (vector-set! #{x\ 4682}# 1 #{update\ 4683}#)))
7242 (#{syntax-object-module\ 3782}#
7243 (lambda (#{x\ 4684}#) (vector-ref #{x\ 4684}# 3)))
7244 (#{syntax-object-wrap\ 3781}#
7245 (lambda (#{x\ 4685}#) (vector-ref #{x\ 4685}# 2)))
7246 (#{syntax-object-expression\ 3780}#
7247 (lambda (#{x\ 4686}#) (vector-ref #{x\ 4686}# 1)))
7248 (#{syntax-object?\ 3779}#
7249 (lambda (#{x\ 4687}#)
7250 (if (vector? #{x\ 4687}#)
7251 (if (= (vector-length #{x\ 4687}#) 4)
7252 (eq? (vector-ref #{x\ 4687}# 0)
7253 'syntax-object)
7254 #f)
7255 #f)))
7256 (#{make-syntax-object\ 3778}#
7257 (lambda (#{expression\ 4688}#
7258 #{wrap\ 4689}#
7259 #{module\ 4690}#)
7260 (vector
7261 'syntax-object
7262 #{expression\ 4688}#
7263 #{wrap\ 4689}#
7264 #{module\ 4690}#)))
7265 (#{build-letrec\ 3777}#
7266 (lambda (#{src\ 4691}#
7267 #{ids\ 4692}#
7268 #{vars\ 4693}#
7269 #{val-exps\ 4694}#
7270 #{body-exp\ 4695}#)
7271 (if (null? #{vars\ 4693}#)
7272 #{body-exp\ 4695}#
7273 (let ((#{atom-key\ 4696}# (fluid-ref #{*mode*\ 3749}#)))
7274 (if (memv #{atom-key\ 4696}# (quote (c)))
7275 (begin
7276 (for-each
7277 #{maybe-name-value!\ 3767}#
7278 #{ids\ 4692}#
7279 #{val-exps\ 4694}#)
7280 ((@ (language tree-il) make-letrec)
7281 #{src\ 4691}#
7282 #{ids\ 4692}#
7283 #{vars\ 4693}#
7284 #{val-exps\ 4694}#
7285 #{body-exp\ 4695}#))
7286 (#{decorate-source\ 3758}#
7287 (list 'letrec
7288 (map list #{vars\ 4693}# #{val-exps\ 4694}#)
7289 #{body-exp\ 4695}#)
7290 #{src\ 4691}#))))))
7291 (#{build-named-let\ 3776}#
7292 (lambda (#{src\ 4697}#
7293 #{ids\ 4698}#
7294 #{vars\ 4699}#
7295 #{val-exps\ 4700}#
7296 #{body-exp\ 4701}#)
7297 (let ((#{f\ 4702}# (car #{vars\ 4699}#))
7298 (#{f-name\ 4703}# (car #{ids\ 4698}#))
7299 (#{vars\ 4704}# (cdr #{vars\ 4699}#))
7300 (#{ids\ 4705}# (cdr #{ids\ 4698}#)))
7301 (let ((#{atom-key\ 4706}# (fluid-ref #{*mode*\ 3749}#)))
7302 (if (memv #{atom-key\ 4706}# (quote (c)))
7303 (let ((#{proc\ 4707}#
7304 (#{build-simple-lambda\ 3769}#
7305 #{src\ 4697}#
7306 #{ids\ 4705}#
7307 #f
7308 #{vars\ 4704}#
7309 #f
7310 #{body-exp\ 4701}#)))
7311 (begin
7312 (#{maybe-name-value!\ 3767}#
7313 #{f-name\ 4703}#
7314 #{proc\ 4707}#)
7315 (for-each
7316 #{maybe-name-value!\ 3767}#
7317 #{ids\ 4705}#
7318 #{val-exps\ 4700}#)
7319 ((@ (language tree-il) make-letrec)
7320 #{src\ 4697}#
7321 (list #{f-name\ 4703}#)
7322 (list #{f\ 4702}#)
7323 (list #{proc\ 4707}#)
7324 (#{build-application\ 3760}#
7325 #{src\ 4697}#
7326 (#{build-lexical-reference\ 3762}#
7327 'fun
7328 #{src\ 4697}#
7329 #{f-name\ 4703}#
7330 #{f\ 4702}#)
7331 #{val-exps\ 4700}#))))
7332 (#{decorate-source\ 3758}#
7333 (list 'letrec
7334 (list (list #{f\ 4702}#
7335 (list 'lambda
7336 #{vars\ 4704}#
7337 #{body-exp\ 4701}#)))
7338 (cons #{f\ 4702}# #{val-exps\ 4700}#))
7339 #{src\ 4697}#))))))
7340 (#{build-let\ 3775}#
7341 (lambda (#{src\ 4708}#
7342 #{ids\ 4709}#
7343 #{vars\ 4710}#
7344 #{val-exps\ 4711}#
7345 #{body-exp\ 4712}#)
7346 (if (null? #{vars\ 4710}#)
7347 #{body-exp\ 4712}#
7348 (let ((#{atom-key\ 4713}# (fluid-ref #{*mode*\ 3749}#)))
7349 (if (memv #{atom-key\ 4713}# (quote (c)))
7350 (begin
7351 (for-each
7352 #{maybe-name-value!\ 3767}#
7353 #{ids\ 4709}#
7354 #{val-exps\ 4711}#)
7355 ((@ (language tree-il) make-let)
7356 #{src\ 4708}#
7357 #{ids\ 4709}#
7358 #{vars\ 4710}#
7359 #{val-exps\ 4711}#
7360 #{body-exp\ 4712}#))
7361 (#{decorate-source\ 3758}#
7362 (list 'let
7363 (map list #{vars\ 4710}# #{val-exps\ 4711}#)
7364 #{body-exp\ 4712}#)
7365 #{src\ 4708}#))))))
7366 (#{build-sequence\ 3774}#
7367 (lambda (#{src\ 4714}# #{exps\ 4715}#)
7368 (if (null? (cdr #{exps\ 4715}#))
7369 (car #{exps\ 4715}#)
7370 (let ((#{atom-key\ 4716}# (fluid-ref #{*mode*\ 3749}#)))
7371 (if (memv #{atom-key\ 4716}# (quote (c)))
7372 ((@ (language tree-il) make-sequence)
7373 #{src\ 4714}#
7374 #{exps\ 4715}#)
7375 (#{decorate-source\ 3758}#
7376 (cons (quote begin) #{exps\ 4715}#)
7377 #{src\ 4714}#))))))
7378 (#{build-data\ 3773}#
7379 (lambda (#{src\ 4717}# #{exp\ 4718}#)
7380 (let ((#{atom-key\ 4719}# (fluid-ref #{*mode*\ 3749}#)))
7381 (if (memv #{atom-key\ 4719}# (quote (c)))
7382 ((@ (language tree-il) make-const)
7383 #{src\ 4717}#
7384 #{exp\ 4718}#)
7385 (#{decorate-source\ 3758}#
7386 (if (if (self-evaluating? #{exp\ 4718}#)
7387 (not (vector? #{exp\ 4718}#))
7388 #f)
7389 #{exp\ 4718}#
7390 (list (quote quote) #{exp\ 4718}#))
7391 #{src\ 4717}#)))))
7392 (#{build-primref\ 3772}#
7393 (lambda (#{src\ 4720}# #{name\ 4721}#)
7394 (if (equal?
7395 (module-name (current-module))
7396 '(guile))
7397 (let ((#{atom-key\ 4722}# (fluid-ref #{*mode*\ 3749}#)))
7398 (if (memv #{atom-key\ 4722}# (quote (c)))
7399 ((@ (language tree-il) make-toplevel-ref)
7400 #{src\ 4720}#
7401 #{name\ 4721}#)
7402 (#{decorate-source\ 3758}#
7403 #{name\ 4721}#
7404 #{src\ 4720}#)))
7405 (let ((#{atom-key\ 4723}# (fluid-ref #{*mode*\ 3749}#)))
7406 (if (memv #{atom-key\ 4723}# (quote (c)))
7407 ((@ (language tree-il) make-module-ref)
7408 #{src\ 4720}#
7409 '(guile)
7410 #{name\ 4721}#
7411 #f)
7412 (#{decorate-source\ 3758}#
7413 (list (quote @@) (quote (guile)) #{name\ 4721}#)
7414 #{src\ 4720}#))))))
7415 (#{build-lambda-case\ 3771}#
7416 (lambda (#{src\ 4724}#
7417 #{req\ 4725}#
7418 #{opt\ 4726}#
7419 #{rest\ 4727}#
7420 #{kw\ 4728}#
7421 #{inits\ 4729}#
7422 #{vars\ 4730}#
7423 #{body\ 4731}#
7424 #{else-case\ 4732}#)
7425 (let ((#{atom-key\ 4733}# (fluid-ref #{*mode*\ 3749}#)))
7426 (if (memv #{atom-key\ 4733}# (quote (c)))
7427 ((@ (language tree-il) make-lambda-case)
7428 #{src\ 4724}#
7429 #{req\ 4725}#
7430 #{opt\ 4726}#
7431 #{rest\ 4727}#
7432 #{kw\ 4728}#
7433 #{inits\ 4729}#
7434 #{vars\ 4730}#
7435 #{body\ 4731}#
7436 #{else-case\ 4732}#)
7437 (let ((#{nreq\ 4734}# (length #{req\ 4725}#)))
7438 (let ((#{nopt\ 4735}#
7439 (if #{opt\ 4726}# (length #{opt\ 4726}#) 0)))
7440 (let ((#{rest-idx\ 4736}#
7441 (if #{rest\ 4727}#
7442 (+ #{nreq\ 4734}# #{nopt\ 4735}#)
7443 #f)))
7444 (let ((#{allow-other-keys?\ 4737}#
7445 (if #{kw\ 4728}# (car #{kw\ 4728}#) #f)))
7446 (let ((#{kw-indices\ 4738}#
7447 (map (lambda (#{x\ 4739}#)
7448 (cons (car #{x\ 4739}#)
7449 (list-index
7450 #{vars\ 4730}#
7451 (caddr #{x\ 4739}#))))
7452 (if #{kw\ 4728}#
7453 (cdr #{kw\ 4728}#)
7454 '()))))
7455 (let ((#{nargs\ 4740}#
7456 (apply max
7457 (+ #{nreq\ 4734}#
7458 #{nopt\ 4735}#
7459 (if #{rest\ 4727}# 1 0))
7460 (map 1+
7461 (map cdr
7462 #{kw-indices\ 4738}#)))))
7463 (begin
7464 (let ((#{t\ 4741}#
7465 (= #{nargs\ 4740}#
7466 (length #{vars\ 4730}#)
7467 (+ #{nreq\ 4734}#
7468 (length #{inits\ 4729}#)
7469 (if #{rest\ 4727}# 1 0)))))
7470 (if #{t\ 4741}#
7471 #{t\ 4741}#
7472 (error "something went wrong"
7473 #{req\ 4725}#
7474 #{opt\ 4726}#
7475 #{rest\ 4727}#
7476 #{kw\ 4728}#
7477 #{inits\ 4729}#
7478 #{vars\ 4730}#
7479 #{nreq\ 4734}#
7480 #{nopt\ 4735}#
7481 #{kw-indices\ 4738}#
7482 #{nargs\ 4740}#)))
7483 (#{decorate-source\ 3758}#
7484 (cons (list (cons '(@@ (ice-9 optargs)
7485 parse-lambda-case)
7486 (cons (list 'quote
7487 (list #{nreq\ 4734}#
7488 #{nopt\ 4735}#
7489 #{rest-idx\ 4736}#
7490 #{nargs\ 4740}#
7491 #{allow-other-keys?\ 4737}#
7492 #{kw-indices\ 4738}#))
7493 (cons (cons 'list
7494 (map (lambda (#{i\ 4742}#)
7495 (list 'lambda
7496 #{vars\ 4730}#
7497 #{i\ 4742}#))
7498 #{inits\ 4729}#))
7499 '(%%args))))
7500 '=>
7501 (list 'lambda
7502 '(%%%args . _)
7503 (cons 'apply
7504 (cons (list 'lambda
7505 #{vars\ 4730}#
7506 #{body\ 4731}#)
7507 '(%%%args)))))
7508 (let ((#{t\ 4743}#
7509 #{else-case\ 4732}#))
7510 (if #{t\ 4743}#
7511 #{t\ 4743}#
7512 '((%%args
7513 (error "wrong number of arguments"
7514 %%args))))))
7515 #{src\ 4724}#))))))))))))
7516 (#{build-case-lambda\ 3770}#
7517 (lambda (#{src\ 4744}#
7518 #{docstring\ 4745}#
7519 #{body\ 4746}#)
7520 (let ((#{atom-key\ 4747}# (fluid-ref #{*mode*\ 3749}#)))
7521 (if (memv #{atom-key\ 4747}# (quote (c)))
7522 ((@ (language tree-il) make-lambda)
7523 #{src\ 4744}#
7524 (if #{docstring\ 4745}#
7525 (list (cons (quote documentation) #{docstring\ 4745}#))
7526 '())
7527 #{body\ 4746}#)
7528 (#{decorate-source\ 3758}#
7529 (cons 'lambda
7530 (cons '%%args
7531 (append
7532 (if #{docstring\ 4745}#
7533 (list #{docstring\ 4745}#)
7534 '())
7535 (list (cons (quote cond) #{body\ 4746}#)))))
7536 #{src\ 4744}#)))))
7537 (#{build-simple-lambda\ 3769}#
7538 (lambda (#{src\ 4748}#
7539 #{req\ 4749}#
7540 #{rest\ 4750}#
7541 #{vars\ 4751}#
7542 #{docstring\ 4752}#
7543 #{exp\ 4753}#)
7544 (let ((#{atom-key\ 4754}# (fluid-ref #{*mode*\ 3749}#)))
7545 (if (memv #{atom-key\ 4754}# (quote (c)))
7546 ((@ (language tree-il) make-lambda)
7547 #{src\ 4748}#
7548 (if #{docstring\ 4752}#
7549 (list (cons (quote documentation) #{docstring\ 4752}#))
7550 '())
7551 ((@ (language tree-il) make-lambda-case)
7552 #{src\ 4748}#
7553 #{req\ 4749}#
7554 #f
7555 #{rest\ 4750}#
7556 #f
7557 '()
7558 #{vars\ 4751}#
7559 #{exp\ 4753}#
7560 #f))
7561 (#{decorate-source\ 3758}#
7562 (cons 'lambda
7563 (cons (if #{rest\ 4750}#
7564 (apply cons* #{vars\ 4751}#)
7565 #{vars\ 4751}#)
7566 (append
7567 (if #{docstring\ 4752}#
7568 (list #{docstring\ 4752}#)
7569 '())
7570 (list #{exp\ 4753}#))))
7571 #{src\ 4748}#)))))
7572 (#{build-global-definition\ 3768}#
7573 (lambda (#{source\ 4755}# #{var\ 4756}# #{exp\ 4757}#)
7574 (let ((#{atom-key\ 4758}# (fluid-ref #{*mode*\ 3749}#)))
7575 (if (memv #{atom-key\ 4758}# (quote (c)))
7576 (begin
7577 (#{maybe-name-value!\ 3767}#
7578 #{var\ 4756}#
7579 #{exp\ 4757}#)
7580 ((@ (language tree-il) make-toplevel-define)
7581 #{source\ 4755}#
7582 #{var\ 4756}#
7583 #{exp\ 4757}#))
7584 (#{decorate-source\ 3758}#
7585 (list (quote define) #{var\ 4756}# #{exp\ 4757}#)
7586 #{source\ 4755}#)))))
7587 (#{maybe-name-value!\ 3767}#
7588 (lambda (#{name\ 4759}# #{val\ 4760}#)
7589 (if ((@ (language tree-il) lambda?) #{val\ 4760}#)
7590 (let ((#{meta\ 4761}#
7591 ((@ (language tree-il) lambda-meta)
7592 #{val\ 4760}#)))
7593 (if (not (assq (quote name) #{meta\ 4761}#))
7594 ((setter (@ (language tree-il) lambda-meta))
7595 #{val\ 4760}#
7596 (acons 'name
7597 #{name\ 4759}#
7598 #{meta\ 4761}#)))))))
7599 (#{build-global-assignment\ 3766}#
7600 (lambda (#{source\ 4762}#
7601 #{var\ 4763}#
7602 #{exp\ 4764}#
7603 #{mod\ 4765}#)
7604 (#{analyze-variable\ 3764}#
7605 #{mod\ 4765}#
7606 #{var\ 4763}#
7607 (lambda (#{mod\ 4766}# #{var\ 4767}# #{public?\ 4768}#)
7608 (let ((#{atom-key\ 4769}# (fluid-ref #{*mode*\ 3749}#)))
7609 (if (memv #{atom-key\ 4769}# (quote (c)))
7610 ((@ (language tree-il) make-module-set)
7611 #{source\ 4762}#
7612 #{mod\ 4766}#
7613 #{var\ 4767}#
7614 #{public?\ 4768}#
7615 #{exp\ 4764}#)
7616 (#{decorate-source\ 3758}#
7617 (list 'set!
7618 (list (if #{public?\ 4768}#
7619 '@
7620 '@@)
7621 #{mod\ 4766}#
7622 #{var\ 4767}#)
7623 #{exp\ 4764}#)
7624 #{source\ 4762}#))))
7625 (lambda (#{var\ 4770}#)
7626 (let ((#{atom-key\ 4771}# (fluid-ref #{*mode*\ 3749}#)))
7627 (if (memv #{atom-key\ 4771}# (quote (c)))
7628 ((@ (language tree-il) make-toplevel-set)
7629 #{source\ 4762}#
7630 #{var\ 4770}#
7631 #{exp\ 4764}#)
7632 (#{decorate-source\ 3758}#
7633 (list (quote set!) #{var\ 4770}# #{exp\ 4764}#)
7634 #{source\ 4762}#)))))))
7635 (#{build-global-reference\ 3765}#
7636 (lambda (#{source\ 4772}# #{var\ 4773}# #{mod\ 4774}#)
7637 (#{analyze-variable\ 3764}#
7638 #{mod\ 4774}#
7639 #{var\ 4773}#
7640 (lambda (#{mod\ 4775}# #{var\ 4776}# #{public?\ 4777}#)
7641 (let ((#{atom-key\ 4778}# (fluid-ref #{*mode*\ 3749}#)))
7642 (if (memv #{atom-key\ 4778}# (quote (c)))
7643 ((@ (language tree-il) make-module-ref)
7644 #{source\ 4772}#
7645 #{mod\ 4775}#
7646 #{var\ 4776}#
7647 #{public?\ 4777}#)
7648 (#{decorate-source\ 3758}#
7649 (list (if #{public?\ 4777}# (quote @) (quote @@))
7650 #{mod\ 4775}#
7651 #{var\ 4776}#)
7652 #{source\ 4772}#))))
7653 (lambda (#{var\ 4779}#)
7654 (let ((#{atom-key\ 4780}# (fluid-ref #{*mode*\ 3749}#)))
7655 (if (memv #{atom-key\ 4780}# (quote (c)))
7656 ((@ (language tree-il) make-toplevel-ref)
7657 #{source\ 4772}#
7658 #{var\ 4779}#)
7659 (#{decorate-source\ 3758}#
7660 #{var\ 4779}#
7661 #{source\ 4772}#)))))))
7662 (#{analyze-variable\ 3764}#
7663 (lambda (#{mod\ 4781}#
7664 #{var\ 4782}#
7665 #{modref-cont\ 4783}#
7666 #{bare-cont\ 4784}#)
7667 (if (not #{mod\ 4781}#)
7668 (#{bare-cont\ 4784}# #{var\ 4782}#)
7669 (let ((#{kind\ 4785}# (car #{mod\ 4781}#))
7670 (#{mod\ 4786}# (cdr #{mod\ 4781}#)))
7671 (if (memv #{kind\ 4785}# (quote (public)))
7672 (#{modref-cont\ 4783}#
7673 #{mod\ 4786}#
7674 #{var\ 4782}#
7675 #t)
7676 (if (memv #{kind\ 4785}# (quote (private)))
7677 (if (not (equal?
7678 #{mod\ 4786}#
7679 (module-name (current-module))))
7680 (#{modref-cont\ 4783}#
7681 #{mod\ 4786}#
7682 #{var\ 4782}#
7683 #f)
7684 (#{bare-cont\ 4784}# #{var\ 4782}#))
7685 (if (memv #{kind\ 4785}# (quote (bare)))
7686 (#{bare-cont\ 4784}# #{var\ 4782}#)
7687 (if (memv #{kind\ 4785}# (quote (hygiene)))
7688 (if (if (not (equal?
7689 #{mod\ 4786}#
7690 (module-name (current-module))))
7691 (module-variable
7692 (resolve-module #{mod\ 4786}#)
7693 #{var\ 4782}#)
7694 #f)
7695 (#{modref-cont\ 4783}#
7696 #{mod\ 4786}#
7697 #{var\ 4782}#
7698 #f)
7699 (#{bare-cont\ 4784}# #{var\ 4782}#))
7700 (syntax-violation
7701 #f
7702 "bad module kind"
7703 #{var\ 4782}#
7704 #{mod\ 4786}#)))))))))
7705 (#{build-lexical-assignment\ 3763}#
7706 (lambda (#{source\ 4787}#
7707 #{name\ 4788}#
7708 #{var\ 4789}#
7709 #{exp\ 4790}#)
7710 (let ((#{atom-key\ 4791}# (fluid-ref #{*mode*\ 3749}#)))
7711 (if (memv #{atom-key\ 4791}# (quote (c)))
7712 ((@ (language tree-il) make-lexical-set)
7713 #{source\ 4787}#
7714 #{name\ 4788}#
7715 #{var\ 4789}#
7716 #{exp\ 4790}#)
7717 (#{decorate-source\ 3758}#
7718 (list (quote set!) #{var\ 4789}# #{exp\ 4790}#)
7719 #{source\ 4787}#)))))
7720 (#{build-lexical-reference\ 3762}#
7721 (lambda (#{type\ 4792}#
7722 #{source\ 4793}#
7723 #{name\ 4794}#
7724 #{var\ 4795}#)
7725 (let ((#{atom-key\ 4796}# (fluid-ref #{*mode*\ 3749}#)))
7726 (if (memv #{atom-key\ 4796}# (quote (c)))
7727 ((@ (language tree-il) make-lexical-ref)
7728 #{source\ 4793}#
7729 #{name\ 4794}#
7730 #{var\ 4795}#)
7731 (#{decorate-source\ 3758}#
7732 #{var\ 4795}#
7733 #{source\ 4793}#)))))
7734 (#{build-conditional\ 3761}#
7735 (lambda (#{source\ 4797}#
7736 #{test-exp\ 4798}#
7737 #{then-exp\ 4799}#
7738 #{else-exp\ 4800}#)
7739 (let ((#{atom-key\ 4801}# (fluid-ref #{*mode*\ 3749}#)))
7740 (if (memv #{atom-key\ 4801}# (quote (c)))
7741 ((@ (language tree-il) make-conditional)
7742 #{source\ 4797}#
7743 #{test-exp\ 4798}#
7744 #{then-exp\ 4799}#
7745 #{else-exp\ 4800}#)
7746 (#{decorate-source\ 3758}#
7747 (if (equal? #{else-exp\ 4800}# (quote (if #f #f)))
7748 (list 'if
7749 #{test-exp\ 4798}#
7750 #{then-exp\ 4799}#)
7751 (list 'if
7752 #{test-exp\ 4798}#
7753 #{then-exp\ 4799}#
7754 #{else-exp\ 4800}#))
7755 #{source\ 4797}#)))))
7756 (#{build-application\ 3760}#
7757 (lambda (#{source\ 4802}#
7758 #{fun-exp\ 4803}#
7759 #{arg-exps\ 4804}#)
7760 (let ((#{atom-key\ 4805}# (fluid-ref #{*mode*\ 3749}#)))
7761 (if (memv #{atom-key\ 4805}# (quote (c)))
7762 ((@ (language tree-il) make-application)
7763 #{source\ 4802}#
7764 #{fun-exp\ 4803}#
7765 #{arg-exps\ 4804}#)
7766 (#{decorate-source\ 3758}#
7767 (cons #{fun-exp\ 4803}# #{arg-exps\ 4804}#)
7768 #{source\ 4802}#)))))
7769 (#{build-void\ 3759}#
7770 (lambda (#{source\ 4806}#)
7771 (let ((#{atom-key\ 4807}# (fluid-ref #{*mode*\ 3749}#)))
7772 (if (memv #{atom-key\ 4807}# (quote (c)))
7773 ((@ (language tree-il) make-void)
7774 #{source\ 4806}#)
7775 (#{decorate-source\ 3758}#
7776 '(if #f #f)
7777 #{source\ 4806}#)))))
7778 (#{decorate-source\ 3758}#
7779 (lambda (#{e\ 4808}# #{s\ 4809}#)
7780 (begin
7781 (if (if (pair? #{e\ 4808}#) #{s\ 4809}# #f)
7782 (set-source-properties! #{e\ 4808}# #{s\ 4809}#))
7783 #{e\ 4808}#)))
7784 (#{get-global-definition-hook\ 3757}#
7785 (lambda (#{symbol\ 4810}# #{module\ 4811}#)
7786 (begin
7787 (if (if (not #{module\ 4811}#) (current-module) #f)
7788 (warn "module system is booted, we should have a module"
7789 #{symbol\ 4810}#))
7790 (let ((#{v\ 4812}#
7791 (module-variable
7792 (if #{module\ 4811}#
7793 (resolve-module (cdr #{module\ 4811}#))
7794 (current-module))
7795 #{symbol\ 4810}#)))
7796 (if #{v\ 4812}#
7797 (if (variable-bound? #{v\ 4812}#)
7798 (let ((#{val\ 4813}# (variable-ref #{v\ 4812}#)))
7799 (if (macro? #{val\ 4813}#)
7800 (if (syncase-macro-type #{val\ 4813}#)
7801 (cons (syncase-macro-type #{val\ 4813}#)
7802 (syncase-macro-binding #{val\ 4813}#))
7803 #f)
7804 #f))
7805 #f)
7806 #f)))))
7807 (#{put-global-definition-hook\ 3756}#
7808 (lambda (#{symbol\ 4814}# #{type\ 4815}# #{val\ 4816}#)
7809 (let ((#{existing\ 4817}#
7810 (let ((#{v\ 4818}#
7811 (module-variable
7812 (current-module)
7813 #{symbol\ 4814}#)))
7814 (if #{v\ 4818}#
7815 (if (variable-bound? #{v\ 4818}#)
7816 (let ((#{val\ 4819}# (variable-ref #{v\ 4818}#)))
7817 (if (macro? #{val\ 4819}#)
7818 (if (not (syncase-macro-type #{val\ 4819}#))
7819 #{val\ 4819}#
7820 #f)
7821 #f))
7822 #f)
7823 #f))))
7824 (module-define!
7825 (current-module)
7826 #{symbol\ 4814}#
7827 (if #{existing\ 4817}#
7828 (make-extended-syncase-macro
7829 #{existing\ 4817}#
7830 #{type\ 4815}#
7831 #{val\ 4816}#)
7832 (make-syncase-macro #{type\ 4815}# #{val\ 4816}#))))))
7833 (#{local-eval-hook\ 3755}#
7834 (lambda (#{x\ 4820}# #{mod\ 4821}#)
7835 (primitive-eval
7836 (list #{noexpand\ 3748}#
7837 (let ((#{atom-key\ 4822}# (fluid-ref #{*mode*\ 3749}#)))
7838 (if (memv #{atom-key\ 4822}# (quote (c)))
7839 ((@ (language tree-il) tree-il->scheme)
7840 #{x\ 4820}#)
7841 #{x\ 4820}#))))))
7842 (#{top-level-eval-hook\ 3754}#
7843 (lambda (#{x\ 4823}# #{mod\ 4824}#)
7844 (primitive-eval
7845 (list #{noexpand\ 3748}#
7846 (let ((#{atom-key\ 4825}# (fluid-ref #{*mode*\ 3749}#)))
7847 (if (memv #{atom-key\ 4825}# (quote (c)))
7848 ((@ (language tree-il) tree-il->scheme)
7849 #{x\ 4823}#)
7850 #{x\ 4823}#))))))
7851 (#{fx<\ 3753}# <)
7852 (#{fx=\ 3752}# =)
7853 (#{fx-\ 3751}# -)
7854 (#{fx+\ 3750}# +)
7855 (#{*mode*\ 3749}# (make-fluid))
7856 (#{noexpand\ 3748}# "noexpand"))
7857 (begin
7858 (#{global-extend\ 3793}#
7859 'local-syntax
7860 'letrec-syntax
7861 #t)
7862 (#{global-extend\ 3793}#
7863 'local-syntax
7864 'let-syntax
7865 #f)
7866 (#{global-extend\ 3793}#
7867 'core
7868 'fluid-let-syntax
7869 (lambda (#{e\ 4826}#
7870 #{r\ 4827}#
7871 #{w\ 4828}#
7872 #{s\ 4829}#
7873 #{mod\ 4830}#)
7874 ((lambda (#{tmp\ 4831}#)
7875 ((lambda (#{tmp\ 4832}#)
7876 (if (if #{tmp\ 4832}#
7877 (apply (lambda (#{_\ 4833}#
7878 #{var\ 4834}#
7879 #{val\ 4835}#
7880 #{e1\ 4836}#
7881 #{e2\ 4837}#)
7882 (#{valid-bound-ids?\ 3820}# #{var\ 4834}#))
7883 #{tmp\ 4832}#)
7884 #f)
7885 (apply (lambda (#{_\ 4839}#
7886 #{var\ 4840}#
7887 #{val\ 4841}#
7888 #{e1\ 4842}#
7889 #{e2\ 4843}#)
7890 (let ((#{names\ 4844}#
7891 (map (lambda (#{x\ 4845}#)
7892 (#{id-var-name\ 3817}#
7893 #{x\ 4845}#
7894 #{w\ 4828}#))
7895 #{var\ 4840}#)))
7896 (begin
7897 (for-each
7898 (lambda (#{id\ 4847}# #{n\ 4848}#)
7899 (let ((#{atom-key\ 4849}#
7900 (#{binding-type\ 3787}#
7901 (#{lookup\ 3792}#
7902 #{n\ 4848}#
7903 #{r\ 4827}#
7904 #{mod\ 4830}#))))
7905 (if (memv #{atom-key\ 4849}#
7906 '(displaced-lexical))
7907 (syntax-violation
7908 'fluid-let-syntax
7909 "identifier out of context"
7910 #{e\ 4826}#
7911 (#{source-wrap\ 3824}#
7912 #{id\ 4847}#
7913 #{w\ 4828}#
7914 #{s\ 4829}#
7915 #{mod\ 4830}#)))))
7916 #{var\ 4840}#
7917 #{names\ 4844}#)
7918 (#{chi-body\ 3835}#
7919 (cons #{e1\ 4842}# #{e2\ 4843}#)
7920 (#{source-wrap\ 3824}#
7921 #{e\ 4826}#
7922 #{w\ 4828}#
7923 #{s\ 4829}#
7924 #{mod\ 4830}#)
7925 (#{extend-env\ 3789}#
7926 #{names\ 4844}#
7927 (let ((#{trans-r\ 4852}#
7928 (#{macros-only-env\ 3791}#
7929 #{r\ 4827}#)))
7930 (map (lambda (#{x\ 4853}#)
7931 (cons 'macro
7932 (#{eval-local-transformer\ 3837}#
7933 (#{chi\ 3831}#
7934 #{x\ 4853}#
7935 #{trans-r\ 4852}#
7936 #{w\ 4828}#
7937 #{mod\ 4830}#)
7938 #{mod\ 4830}#)))
7939 #{val\ 4841}#))
7940 #{r\ 4827}#)
7941 #{w\ 4828}#
7942 #{mod\ 4830}#))))
7943 #{tmp\ 4832}#)
7944 ((lambda (#{_\ 4855}#)
7945 (syntax-violation
7946 'fluid-let-syntax
7947 "bad syntax"
7948 (#{source-wrap\ 3824}#
7949 #{e\ 4826}#
7950 #{w\ 4828}#
7951 #{s\ 4829}#
7952 #{mod\ 4830}#)))
7953 #{tmp\ 4831}#)))
7954 ($sc-dispatch
7955 #{tmp\ 4831}#
7956 '(any #(each (any any)) any . each-any))))
7957 #{e\ 4826}#)))
7958 (#{global-extend\ 3793}#
7959 'core
7960 'quote
7961 (lambda (#{e\ 4856}#
7962 #{r\ 4857}#
7963 #{w\ 4858}#
7964 #{s\ 4859}#
7965 #{mod\ 4860}#)
7966 ((lambda (#{tmp\ 4861}#)
7967 ((lambda (#{tmp\ 4862}#)
7968 (if #{tmp\ 4862}#
7969 (apply (lambda (#{_\ 4863}# #{e\ 4864}#)
7970 (#{build-data\ 3773}#
7971 #{s\ 4859}#
7972 (#{strip\ 3844}# #{e\ 4864}# #{w\ 4858}#)))
7973 #{tmp\ 4862}#)
7974 ((lambda (#{_\ 4865}#)
7975 (syntax-violation
7976 'quote
7977 "bad syntax"
7978 (#{source-wrap\ 3824}#
7979 #{e\ 4856}#
7980 #{w\ 4858}#
7981 #{s\ 4859}#
7982 #{mod\ 4860}#)))
7983 #{tmp\ 4861}#)))
7984 ($sc-dispatch #{tmp\ 4861}# (quote (any any)))))
7985 #{e\ 4856}#)))
7986 (#{global-extend\ 3793}#
7987 'core
7988 'syntax
7989 (letrec ((#{regen\ 4873}#
7990 (lambda (#{x\ 4874}#)
7991 (let ((#{atom-key\ 4875}# (car #{x\ 4874}#)))
7992 (if (memv #{atom-key\ 4875}# (quote (ref)))
7993 (#{build-lexical-reference\ 3762}#
7994 'value
7995 #f
7996 (cadr #{x\ 4874}#)
7997 (cadr #{x\ 4874}#))
7998 (if (memv #{atom-key\ 4875}# (quote (primitive)))
7999 (#{build-primref\ 3772}# #f (cadr #{x\ 4874}#))
8000 (if (memv #{atom-key\ 4875}# (quote (quote)))
8001 (#{build-data\ 3773}# #f (cadr #{x\ 4874}#))
8002 (if (memv #{atom-key\ 4875}# (quote (lambda)))
8003 (if (list? (cadr #{x\ 4874}#))
8004 (#{build-simple-lambda\ 3769}#
8005 #f
8006 (cadr #{x\ 4874}#)
8007 #f
8008 (cadr #{x\ 4874}#)
8009 #f
8010 (#{regen\ 4873}# (caddr #{x\ 4874}#)))
8011 (error "how did we get here" #{x\ 4874}#))
8012 (#{build-application\ 3760}#
8013 #f
8014 (#{build-primref\ 3772}# #f (car #{x\ 4874}#))
8015 (map #{regen\ 4873}#
8016 (cdr #{x\ 4874}#))))))))))
8017 (#{gen-vector\ 4872}#
8018 (lambda (#{x\ 4876}#)
8019 (if (eq? (car #{x\ 4876}#) (quote list))
8020 (cons (quote vector) (cdr #{x\ 4876}#))
8021 (if (eq? (car #{x\ 4876}#) (quote quote))
8022 (list 'quote
8023 (list->vector (cadr #{x\ 4876}#)))
8024 (list (quote list->vector) #{x\ 4876}#)))))
8025 (#{gen-append\ 4871}#
8026 (lambda (#{x\ 4877}# #{y\ 4878}#)
8027 (if (equal? #{y\ 4878}# (quote (quote ())))
8028 #{x\ 4877}#
8029 (list (quote append) #{x\ 4877}# #{y\ 4878}#))))
8030 (#{gen-cons\ 4870}#
8031 (lambda (#{x\ 4879}# #{y\ 4880}#)
8032 (let ((#{atom-key\ 4881}# (car #{y\ 4880}#)))
8033 (if (memv #{atom-key\ 4881}# (quote (quote)))
8034 (if (eq? (car #{x\ 4879}#) (quote quote))
8035 (list 'quote
8036 (cons (cadr #{x\ 4879}#) (cadr #{y\ 4880}#)))
8037 (if (eq? (cadr #{y\ 4880}#) (quote ()))
8038 (list (quote list) #{x\ 4879}#)
8039 (list (quote cons) #{x\ 4879}# #{y\ 4880}#)))
8040 (if (memv #{atom-key\ 4881}# (quote (list)))
8041 (cons 'list
8042 (cons #{x\ 4879}# (cdr #{y\ 4880}#)))
8043 (list (quote cons) #{x\ 4879}# #{y\ 4880}#))))))
8044 (#{gen-map\ 4869}#
8045 (lambda (#{e\ 4882}# #{map-env\ 4883}#)
8046 (let ((#{formals\ 4884}# (map cdr #{map-env\ 4883}#))
8047 (#{actuals\ 4885}#
8048 (map (lambda (#{x\ 4886}#)
8049 (list (quote ref) (car #{x\ 4886}#)))
8050 #{map-env\ 4883}#)))
8051 (if (eq? (car #{e\ 4882}#) (quote ref))
8052 (car #{actuals\ 4885}#)
8053 (if (and-map
8054 (lambda (#{x\ 4887}#)
8055 (if (eq? (car #{x\ 4887}#) (quote ref))
8056 (memq (cadr #{x\ 4887}#) #{formals\ 4884}#)
8057 #f))
8058 (cdr #{e\ 4882}#))
8059 (cons 'map
8060 (cons (list 'primitive
8061 (car #{e\ 4882}#))
8062 (map (let ((#{r\ 4888}#
8063 (map cons
8064 #{formals\ 4884}#
8065 #{actuals\ 4885}#)))
8066 (lambda (#{x\ 4889}#)
8067 (cdr (assq (cadr #{x\ 4889}#)
8068 #{r\ 4888}#))))
8069 (cdr #{e\ 4882}#))))
8070 (cons 'map
8071 (cons (list 'lambda
8072 #{formals\ 4884}#
8073 #{e\ 4882}#)
8074 #{actuals\ 4885}#)))))))
8075 (#{gen-mappend\ 4868}#
8076 (lambda (#{e\ 4890}# #{map-env\ 4891}#)
8077 (list 'apply
8078 '(primitive append)
8079 (#{gen-map\ 4869}# #{e\ 4890}# #{map-env\ 4891}#))))
8080 (#{gen-ref\ 4867}#
8081 (lambda (#{src\ 4892}#
8082 #{var\ 4893}#
8083 #{level\ 4894}#
8084 #{maps\ 4895}#)
8085 (if (#{fx=\ 3752}# #{level\ 4894}# 0)
8086 (values #{var\ 4893}# #{maps\ 4895}#)
8087 (if (null? #{maps\ 4895}#)
8088 (syntax-violation
8089 'syntax
8090 "missing ellipsis"
8091 #{src\ 4892}#)
8092 (call-with-values
8093 (lambda ()
8094 (#{gen-ref\ 4867}#
8095 #{src\ 4892}#
8096 #{var\ 4893}#
8097 (#{fx-\ 3751}# #{level\ 4894}# 1)
8098 (cdr #{maps\ 4895}#)))
8099 (lambda (#{outer-var\ 4896}# #{outer-maps\ 4897}#)
8100 (let ((#{b\ 4898}#
8101 (assq #{outer-var\ 4896}#
8102 (car #{maps\ 4895}#))))
8103 (if #{b\ 4898}#
8104 (values (cdr #{b\ 4898}#) #{maps\ 4895}#)
8105 (let ((#{inner-var\ 4899}#
8106 (#{gen-var\ 3845}# (quote tmp))))
8107 (values
8108 #{inner-var\ 4899}#
8109 (cons (cons (cons #{outer-var\ 4896}#
8110 #{inner-var\ 4899}#)
8111 (car #{maps\ 4895}#))
8112 #{outer-maps\ 4897}#)))))))))))
8113 (#{gen-syntax\ 4866}#
8114 (lambda (#{src\ 4900}#
8115 #{e\ 4901}#
8116 #{r\ 4902}#
8117 #{maps\ 4903}#
8118 #{ellipsis?\ 4904}#
8119 #{mod\ 4905}#)
8120 (if (#{id?\ 3795}# #{e\ 4901}#)
8121 (let ((#{label\ 4906}#
8122 (#{id-var-name\ 3817}#
8123 #{e\ 4901}#
8124 '(()))))
8125 (let ((#{b\ 4907}#
8126 (#{lookup\ 3792}#
8127 #{label\ 4906}#
8128 #{r\ 4902}#
8129 #{mod\ 4905}#)))
8130 (if (eq? (#{binding-type\ 3787}# #{b\ 4907}#)
8131 'syntax)
8132 (call-with-values
8133 (lambda ()
8134 (let ((#{var.lev\ 4908}#
8135 (#{binding-value\ 3788}#
8136 #{b\ 4907}#)))
8137 (#{gen-ref\ 4867}#
8138 #{src\ 4900}#
8139 (car #{var.lev\ 4908}#)
8140 (cdr #{var.lev\ 4908}#)
8141 #{maps\ 4903}#)))
8142 (lambda (#{var\ 4909}# #{maps\ 4910}#)
8143 (values
8144 (list (quote ref) #{var\ 4909}#)
8145 #{maps\ 4910}#)))
8146 (if (#{ellipsis?\ 4904}# #{e\ 4901}#)
8147 (syntax-violation
8148 'syntax
8149 "misplaced ellipsis"
8150 #{src\ 4900}#)
8151 (values
8152 (list (quote quote) #{e\ 4901}#)
8153 #{maps\ 4903}#)))))
8154 ((lambda (#{tmp\ 4911}#)
8155 ((lambda (#{tmp\ 4912}#)
8156 (if (if #{tmp\ 4912}#
8157 (apply (lambda (#{dots\ 4913}# #{e\ 4914}#)
8158 (#{ellipsis?\ 4904}#
8159 #{dots\ 4913}#))
8160 #{tmp\ 4912}#)
8161 #f)
8162 (apply (lambda (#{dots\ 4915}# #{e\ 4916}#)
8163 (#{gen-syntax\ 4866}#
8164 #{src\ 4900}#
8165 #{e\ 4916}#
8166 #{r\ 4902}#
8167 #{maps\ 4903}#
8168 (lambda (#{x\ 4917}#) #f)
8169 #{mod\ 4905}#))
8170 #{tmp\ 4912}#)
8171 ((lambda (#{tmp\ 4918}#)
8172 (if (if #{tmp\ 4918}#
8173 (apply (lambda (#{x\ 4919}#
8174 #{dots\ 4920}#
8175 #{y\ 4921}#)
8176 (#{ellipsis?\ 4904}#
8177 #{dots\ 4920}#))
8178 #{tmp\ 4918}#)
8179 #f)
8180 (apply (lambda (#{x\ 4922}#
8181 #{dots\ 4923}#
8182 #{y\ 4924}#)
8183 (letrec ((#{f\ 4925}#
8184 (lambda (#{y\ 4926}#
8185 #{k\ 4927}#)
8186 ((lambda (#{tmp\ 4931}#)
8187 ((lambda (#{tmp\ 4932}#)
8188 (if (if #{tmp\ 4932}#
8189 (apply (lambda (#{dots\ 4933}#
8190 #{y\ 4934}#)
8191 (#{ellipsis?\ 4904}#
8192 #{dots\ 4933}#))
8193 #{tmp\ 4932}#)
8194 #f)
8195 (apply (lambda (#{dots\ 4935}#
8196 #{y\ 4936}#)
8197 (#{f\ 4925}#
8198 #{y\ 4936}#
8199 (lambda (#{maps\ 4937}#)
8200 (call-with-values
8201 (lambda ()
8202 (#{k\ 4927}#
8203 (cons '()
8204 #{maps\ 4937}#)))
8205 (lambda (#{x\ 4938}#
8206 #{maps\ 4939}#)
8207 (if (null? (car #{maps\ 4939}#))
8208 (syntax-violation
8209 'syntax
8210 "extra ellipsis"
8211 #{src\ 4900}#)
8212 (values
8213 (#{gen-mappend\ 4868}#
8214 #{x\ 4938}#
8215 (car #{maps\ 4939}#))
8216 (cdr #{maps\ 4939}#))))))))
8217 #{tmp\ 4932}#)
8218 ((lambda (#{_\ 4940}#)
8219 (call-with-values
8220 (lambda ()
8221 (#{gen-syntax\ 4866}#
8222 #{src\ 4900}#
8223 #{y\ 4926}#
8224 #{r\ 4902}#
8225 #{maps\ 4903}#
8226 #{ellipsis?\ 4904}#
8227 #{mod\ 4905}#))
8228 (lambda (#{y\ 4941}#
8229 #{maps\ 4942}#)
8230 (call-with-values
8231 (lambda ()
8232 (#{k\ 4927}#
8233 #{maps\ 4942}#))
8234 (lambda (#{x\ 4943}#
8235 #{maps\ 4944}#)
8236 (values
8237 (#{gen-append\ 4871}#
8238 #{x\ 4943}#
8239 #{y\ 4941}#)
8240 #{maps\ 4944}#))))))
8241 #{tmp\ 4931}#)))
8242 ($sc-dispatch
8243 #{tmp\ 4931}#
8244 '(any . any))))
8245 #{y\ 4926}#))))
8246 (#{f\ 4925}#
8247 #{y\ 4924}#
8248 (lambda (#{maps\ 4928}#)
8249 (call-with-values
8250 (lambda ()
8251 (#{gen-syntax\ 4866}#
8252 #{src\ 4900}#
8253 #{x\ 4922}#
8254 #{r\ 4902}#
8255 (cons '()
8256 #{maps\ 4928}#)
8257 #{ellipsis?\ 4904}#
8258 #{mod\ 4905}#))
8259 (lambda (#{x\ 4929}#
8260 #{maps\ 4930}#)
8261 (if (null? (car #{maps\ 4930}#))
8262 (syntax-violation
8263 'syntax
8264 "extra ellipsis"
8265 #{src\ 4900}#)
8266 (values
8267 (#{gen-map\ 4869}#
8268 #{x\ 4929}#
8269 (car #{maps\ 4930}#))
8270 (cdr #{maps\ 4930}#)))))))))
8271 #{tmp\ 4918}#)
8272 ((lambda (#{tmp\ 4945}#)
8273 (if #{tmp\ 4945}#
8274 (apply (lambda (#{x\ 4946}#
8275 #{y\ 4947}#)
8276 (call-with-values
8277 (lambda ()
8278 (#{gen-syntax\ 4866}#
8279 #{src\ 4900}#
8280 #{x\ 4946}#
8281 #{r\ 4902}#
8282 #{maps\ 4903}#
8283 #{ellipsis?\ 4904}#
8284 #{mod\ 4905}#))
8285 (lambda (#{x\ 4948}#
8286 #{maps\ 4949}#)
8287 (call-with-values
8288 (lambda ()
8289 (#{gen-syntax\ 4866}#
8290 #{src\ 4900}#
8291 #{y\ 4947}#
8292 #{r\ 4902}#
8293 #{maps\ 4949}#
8294 #{ellipsis?\ 4904}#
8295 #{mod\ 4905}#))
8296 (lambda (#{y\ 4950}#
8297 #{maps\ 4951}#)
8298 (values
8299 (#{gen-cons\ 4870}#
8300 #{x\ 4948}#
8301 #{y\ 4950}#)
8302 #{maps\ 4951}#))))))
8303 #{tmp\ 4945}#)
8304 ((lambda (#{tmp\ 4952}#)
8305 (if #{tmp\ 4952}#
8306 (apply (lambda (#{e1\ 4953}#
8307 #{e2\ 4954}#)
8308 (call-with-values
8309 (lambda ()
8310 (#{gen-syntax\ 4866}#
8311 #{src\ 4900}#
8312 (cons #{e1\ 4953}#
8313 #{e2\ 4954}#)
8314 #{r\ 4902}#
8315 #{maps\ 4903}#
8316 #{ellipsis?\ 4904}#
8317 #{mod\ 4905}#))
8318 (lambda (#{e\ 4956}#
8319 #{maps\ 4957}#)
8320 (values
8321 (#{gen-vector\ 4872}#
8322 #{e\ 4956}#)
8323 #{maps\ 4957}#))))
8324 #{tmp\ 4952}#)
8325 ((lambda (#{_\ 4958}#)
8326 (values
8327 (list 'quote
8328 #{e\ 4901}#)
8329 #{maps\ 4903}#))
8330 #{tmp\ 4911}#)))
8331 ($sc-dispatch
8332 #{tmp\ 4911}#
8333 '#(vector (any . each-any))))))
8334 ($sc-dispatch
8335 #{tmp\ 4911}#
8336 '(any . any)))))
8337 ($sc-dispatch
8338 #{tmp\ 4911}#
8339 '(any any . any)))))
8340 ($sc-dispatch #{tmp\ 4911}# (quote (any any)))))
8341 #{e\ 4901}#)))))
8342 (lambda (#{e\ 4959}#
8343 #{r\ 4960}#
8344 #{w\ 4961}#
8345 #{s\ 4962}#
8346 #{mod\ 4963}#)
8347 (let ((#{e\ 4964}#
8348 (#{source-wrap\ 3824}#
8349 #{e\ 4959}#
8350 #{w\ 4961}#
8351 #{s\ 4962}#
8352 #{mod\ 4963}#)))
8353 ((lambda (#{tmp\ 4965}#)
8354 ((lambda (#{tmp\ 4966}#)
8355 (if #{tmp\ 4966}#
8356 (apply (lambda (#{_\ 4967}# #{x\ 4968}#)
8357 (call-with-values
8358 (lambda ()
8359 (#{gen-syntax\ 4866}#
8360 #{e\ 4964}#
8361 #{x\ 4968}#
8362 #{r\ 4960}#
8363 '()
8364 #{ellipsis?\ 3839}#
8365 #{mod\ 4963}#))
8366 (lambda (#{e\ 4969}# #{maps\ 4970}#)
8367 (#{regen\ 4873}# #{e\ 4969}#))))
8368 #{tmp\ 4966}#)
8369 ((lambda (#{_\ 4971}#)
8370 (syntax-violation
8371 'syntax
8372 "bad `syntax' form"
8373 #{e\ 4964}#))
8374 #{tmp\ 4965}#)))
8375 ($sc-dispatch #{tmp\ 4965}# (quote (any any)))))
8376 #{e\ 4964}#)))))
8377 (#{global-extend\ 3793}#
8378 'core
8379 'lambda
8380 (lambda (#{e\ 4972}#
8381 #{r\ 4973}#
8382 #{w\ 4974}#
8383 #{s\ 4975}#
8384 #{mod\ 4976}#)
8385 ((lambda (#{tmp\ 4977}#)
8386 ((lambda (#{tmp\ 4978}#)
8387 (if (if #{tmp\ 4978}#
8388 (apply (lambda (#{_\ 4979}#
8389 #{args\ 4980}#
8390 #{docstring\ 4981}#
8391 #{e1\ 4982}#
8392 #{e2\ 4983}#)
8393 (string? (syntax->datum #{docstring\ 4981}#)))
8394 #{tmp\ 4978}#)
8395 #f)
8396 (apply (lambda (#{_\ 4984}#
8397 #{args\ 4985}#
8398 #{docstring\ 4986}#
8399 #{e1\ 4987}#
8400 #{e2\ 4988}#)
8401 (call-with-values
8402 (lambda ()
8403 (#{lambda-formals\ 3840}# #{args\ 4985}#))
8404 (lambda (#{req\ 4989}#
8405 #{opt\ 4990}#
8406 #{rest\ 4991}#
8407 #{kw\ 4992}#)
8408 (#{chi-simple-lambda\ 3841}#
8409 #{e\ 4972}#
8410 #{r\ 4973}#
8411 #{w\ 4974}#
8412 #{s\ 4975}#
8413 #{mod\ 4976}#
8414 #{req\ 4989}#
8415 #{rest\ 4991}#
8416 (syntax->datum #{docstring\ 4986}#)
8417 (cons #{e1\ 4987}# #{e2\ 4988}#)))))
8418 #{tmp\ 4978}#)
8419 ((lambda (#{tmp\ 4994}#)
8420 (if #{tmp\ 4994}#
8421 (apply (lambda (#{_\ 4995}#
8422 #{args\ 4996}#
8423 #{e1\ 4997}#
8424 #{e2\ 4998}#)
8425 (call-with-values
8426 (lambda ()
8427 (#{lambda-formals\ 3840}# #{args\ 4996}#))
8428 (lambda (#{req\ 4999}#
8429 #{opt\ 5000}#
8430 #{rest\ 5001}#
8431 #{kw\ 5002}#)
8432 (#{chi-simple-lambda\ 3841}#
8433 #{e\ 4972}#
8434 #{r\ 4973}#
8435 #{w\ 4974}#
8436 #{s\ 4975}#
8437 #{mod\ 4976}#
8438 #{req\ 4999}#
8439 #{rest\ 5001}#
8440 #f
8441 (cons #{e1\ 4997}# #{e2\ 4998}#)))))
8442 #{tmp\ 4994}#)
8443 ((lambda (#{_\ 5004}#)
8444 (syntax-violation
8445 'lambda
8446 "bad lambda"
8447 #{e\ 4972}#))
8448 #{tmp\ 4977}#)))
8449 ($sc-dispatch
8450 #{tmp\ 4977}#
8451 '(any any any . each-any)))))
8452 ($sc-dispatch
8453 #{tmp\ 4977}#
8454 '(any any any any . each-any))))
8455 #{e\ 4972}#)))
8456 (#{global-extend\ 3793}#
8457 'core
8458 'lambda*
8459 (lambda (#{e\ 5005}#
8460 #{r\ 5006}#
8461 #{w\ 5007}#
8462 #{s\ 5008}#
8463 #{mod\ 5009}#)
8464 ((lambda (#{tmp\ 5010}#)
8465 ((lambda (#{tmp\ 5011}#)
8466 (if #{tmp\ 5011}#
8467 (apply (lambda (#{_\ 5012}#
8468 #{args\ 5013}#
8469 #{e1\ 5014}#
8470 #{e2\ 5015}#)
8471 (call-with-values
8472 (lambda ()
8473 (#{chi-lambda-case\ 3843}#
8474 #{e\ 5005}#
8475 #{r\ 5006}#
8476 #{w\ 5007}#
8477 #{s\ 5008}#
8478 #{mod\ 5009}#
8479 #{lambda*-formals\ 3842}#
8480 (list (cons #{args\ 5013}#
8481 (cons #{e1\ 5014}#
8482 #{e2\ 5015}#)))))
8483 (lambda (#{docstring\ 5017}# #{lcase\ 5018}#)
8484 (#{build-case-lambda\ 3770}#
8485 #{s\ 5008}#
8486 #{docstring\ 5017}#
8487 #{lcase\ 5018}#))))
8488 #{tmp\ 5011}#)
8489 ((lambda (#{_\ 5019}#)
8490 (syntax-violation
8491 'lambda
8492 "bad lambda*"
8493 #{e\ 5005}#))
8494 #{tmp\ 5010}#)))
8495 ($sc-dispatch
8496 #{tmp\ 5010}#
8497 '(any any any . each-any))))
8498 #{e\ 5005}#)))
8499 (#{global-extend\ 3793}#
8500 'core
8501 'case-lambda
8502 (lambda (#{e\ 5020}#
8503 #{r\ 5021}#
8504 #{w\ 5022}#
8505 #{s\ 5023}#
8506 #{mod\ 5024}#)
8507 ((lambda (#{tmp\ 5025}#)
8508 ((lambda (#{tmp\ 5026}#)
8509 (if #{tmp\ 5026}#
8510 (apply (lambda (#{_\ 5027}#
8511 #{args\ 5028}#
8512 #{e1\ 5029}#
8513 #{e2\ 5030}#
8514 #{args*\ 5031}#
8515 #{e1*\ 5032}#
8516 #{e2*\ 5033}#)
8517 (call-with-values
8518 (lambda ()
8519 (#{chi-lambda-case\ 3843}#
8520 #{e\ 5020}#
8521 #{r\ 5021}#
8522 #{w\ 5022}#
8523 #{s\ 5023}#
8524 #{mod\ 5024}#
8525 #{lambda-formals\ 3840}#
8526 (cons (cons #{args\ 5028}#
8527 (cons #{e1\ 5029}# #{e2\ 5030}#))
8528 (map (lambda (#{tmp\ 5037}#
8529 #{tmp\ 5036}#
8530 #{tmp\ 5035}#)
8531 (cons #{tmp\ 5035}#
8532 (cons #{tmp\ 5036}#
8533 #{tmp\ 5037}#)))
8534 #{e2*\ 5033}#
8535 #{e1*\ 5032}#
8536 #{args*\ 5031}#))))
8537 (lambda (#{docstring\ 5039}# #{lcase\ 5040}#)
8538 (#{build-case-lambda\ 3770}#
8539 #{s\ 5023}#
8540 #{docstring\ 5039}#
8541 #{lcase\ 5040}#))))
8542 #{tmp\ 5026}#)
8543 ((lambda (#{_\ 5041}#)
8544 (syntax-violation
8545 'case-lambda
8546 "bad case-lambda"
8547 #{e\ 5020}#))
8548 #{tmp\ 5025}#)))
8549 ($sc-dispatch
8550 #{tmp\ 5025}#
8551 '(any (any any . each-any)
8552 .
8553 #(each (any any . each-any))))))
8554 #{e\ 5020}#)))
8555 (#{global-extend\ 3793}#
8556 'core
8557 'case-lambda*
8558 (lambda (#{e\ 5042}#
8559 #{r\ 5043}#
8560 #{w\ 5044}#
8561 #{s\ 5045}#
8562 #{mod\ 5046}#)
8563 ((lambda (#{tmp\ 5047}#)
8564 ((lambda (#{tmp\ 5048}#)
8565 (if #{tmp\ 5048}#
8566 (apply (lambda (#{_\ 5049}#
8567 #{args\ 5050}#
8568 #{e1\ 5051}#
8569 #{e2\ 5052}#
8570 #{args*\ 5053}#
8571 #{e1*\ 5054}#
8572 #{e2*\ 5055}#)
8573 (call-with-values
8574 (lambda ()
8575 (#{chi-lambda-case\ 3843}#
8576 #{e\ 5042}#
8577 #{r\ 5043}#
8578 #{w\ 5044}#
8579 #{s\ 5045}#
8580 #{mod\ 5046}#
8581 #{lambda*-formals\ 3842}#
8582 (cons (cons #{args\ 5050}#
8583 (cons #{e1\ 5051}# #{e2\ 5052}#))
8584 (map (lambda (#{tmp\ 5059}#
8585 #{tmp\ 5058}#
8586 #{tmp\ 5057}#)
8587 (cons #{tmp\ 5057}#
8588 (cons #{tmp\ 5058}#
8589 #{tmp\ 5059}#)))
8590 #{e2*\ 5055}#
8591 #{e1*\ 5054}#
8592 #{args*\ 5053}#))))
8593 (lambda (#{docstring\ 5061}# #{lcase\ 5062}#)
8594 (#{build-case-lambda\ 3770}#
8595 #{s\ 5045}#
8596 #{docstring\ 5061}#
8597 #{lcase\ 5062}#))))
8598 #{tmp\ 5048}#)
8599 ((lambda (#{_\ 5063}#)
8600 (syntax-violation
8601 'case-lambda
8602 "bad case-lambda*"
8603 #{e\ 5042}#))
8604 #{tmp\ 5047}#)))
8605 ($sc-dispatch
8606 #{tmp\ 5047}#
8607 '(any (any any . each-any)
8608 .
8609 #(each (any any . each-any))))))
8610 #{e\ 5042}#)))
8611 (#{global-extend\ 3793}#
8612 'core
8613 'let
8614 (letrec ((#{chi-let\ 5064}#
8615 (lambda (#{e\ 5065}#
8616 #{r\ 5066}#
8617 #{w\ 5067}#
8618 #{s\ 5068}#
8619 #{mod\ 5069}#
8620 #{constructor\ 5070}#
8621 #{ids\ 5071}#
8622 #{vals\ 5072}#
8623 #{exps\ 5073}#)
8624 (if (not (#{valid-bound-ids?\ 3820}# #{ids\ 5071}#))
8625 (syntax-violation
8626 'let
8627 "duplicate bound variable"
8628 #{e\ 5065}#)
8629 (let ((#{labels\ 5074}#
8630 (#{gen-labels\ 3801}# #{ids\ 5071}#))
8631 (#{new-vars\ 5075}#
8632 (map #{gen-var\ 3845}# #{ids\ 5071}#)))
8633 (let ((#{nw\ 5076}#
8634 (#{make-binding-wrap\ 3812}#
8635 #{ids\ 5071}#
8636 #{labels\ 5074}#
8637 #{w\ 5067}#))
8638 (#{nr\ 5077}#
8639 (#{extend-var-env\ 3790}#
8640 #{labels\ 5074}#
8641 #{new-vars\ 5075}#
8642 #{r\ 5066}#)))
8643 (#{constructor\ 5070}#
8644 #{s\ 5068}#
8645 (map syntax->datum #{ids\ 5071}#)
8646 #{new-vars\ 5075}#
8647 (map (lambda (#{x\ 5078}#)
8648 (#{chi\ 3831}#
8649 #{x\ 5078}#
8650 #{r\ 5066}#
8651 #{w\ 5067}#
8652 #{mod\ 5069}#))
8653 #{vals\ 5072}#)
8654 (#{chi-body\ 3835}#
8655 #{exps\ 5073}#
8656 (#{source-wrap\ 3824}#
8657 #{e\ 5065}#
8658 #{nw\ 5076}#
8659 #{s\ 5068}#
8660 #{mod\ 5069}#)
8661 #{nr\ 5077}#
8662 #{nw\ 5076}#
8663 #{mod\ 5069}#))))))))
8664 (lambda (#{e\ 5079}#
8665 #{r\ 5080}#
8666 #{w\ 5081}#
8667 #{s\ 5082}#
8668 #{mod\ 5083}#)
8669 ((lambda (#{tmp\ 5084}#)
8670 ((lambda (#{tmp\ 5085}#)
8671 (if (if #{tmp\ 5085}#
8672 (apply (lambda (#{_\ 5086}#
8673 #{id\ 5087}#
8674 #{val\ 5088}#
8675 #{e1\ 5089}#
8676 #{e2\ 5090}#)
8677 (and-map #{id?\ 3795}# #{id\ 5087}#))
8678 #{tmp\ 5085}#)
8679 #f)
8680 (apply (lambda (#{_\ 5092}#
8681 #{id\ 5093}#
8682 #{val\ 5094}#
8683 #{e1\ 5095}#
8684 #{e2\ 5096}#)
8685 (#{chi-let\ 5064}#
8686 #{e\ 5079}#
8687 #{r\ 5080}#
8688 #{w\ 5081}#
8689 #{s\ 5082}#
8690 #{mod\ 5083}#
8691 #{build-let\ 3775}#
8692 #{id\ 5093}#
8693 #{val\ 5094}#
8694 (cons #{e1\ 5095}# #{e2\ 5096}#)))
8695 #{tmp\ 5085}#)
8696 ((lambda (#{tmp\ 5100}#)
8697 (if (if #{tmp\ 5100}#
8698 (apply (lambda (#{_\ 5101}#
8699 #{f\ 5102}#
8700 #{id\ 5103}#
8701 #{val\ 5104}#
8702 #{e1\ 5105}#
8703 #{e2\ 5106}#)
8704 (if (#{id?\ 3795}# #{f\ 5102}#)
8705 (and-map #{id?\ 3795}# #{id\ 5103}#)
8706 #f))
8707 #{tmp\ 5100}#)
8708 #f)
8709 (apply (lambda (#{_\ 5108}#
8710 #{f\ 5109}#
8711 #{id\ 5110}#
8712 #{val\ 5111}#
8713 #{e1\ 5112}#
8714 #{e2\ 5113}#)
8715 (#{chi-let\ 5064}#
8716 #{e\ 5079}#
8717 #{r\ 5080}#
8718 #{w\ 5081}#
8719 #{s\ 5082}#
8720 #{mod\ 5083}#
8721 #{build-named-let\ 3776}#
8722 (cons #{f\ 5109}# #{id\ 5110}#)
8723 #{val\ 5111}#
8724 (cons #{e1\ 5112}# #{e2\ 5113}#)))
8725 #{tmp\ 5100}#)
8726 ((lambda (#{_\ 5117}#)
8727 (syntax-violation
8728 'let
8729 "bad let"
8730 (#{source-wrap\ 3824}#
8731 #{e\ 5079}#
8732 #{w\ 5081}#
8733 #{s\ 5082}#
8734 #{mod\ 5083}#)))
8735 #{tmp\ 5084}#)))
8736 ($sc-dispatch
8737 #{tmp\ 5084}#
8738 '(any any #(each (any any)) any . each-any)))))
8739 ($sc-dispatch
8740 #{tmp\ 5084}#
8741 '(any #(each (any any)) any . each-any))))
8742 #{e\ 5079}#))))
8743 (#{global-extend\ 3793}#
8744 'core
8745 'letrec
8746 (lambda (#{e\ 5118}#
8747 #{r\ 5119}#
8748 #{w\ 5120}#
8749 #{s\ 5121}#
8750 #{mod\ 5122}#)
8751 ((lambda (#{tmp\ 5123}#)
8752 ((lambda (#{tmp\ 5124}#)
8753 (if (if #{tmp\ 5124}#
8754 (apply (lambda (#{_\ 5125}#
8755 #{id\ 5126}#
8756 #{val\ 5127}#
8757 #{e1\ 5128}#
8758 #{e2\ 5129}#)
8759 (and-map #{id?\ 3795}# #{id\ 5126}#))
8760 #{tmp\ 5124}#)
8761 #f)
8762 (apply (lambda (#{_\ 5131}#
8763 #{id\ 5132}#
8764 #{val\ 5133}#
8765 #{e1\ 5134}#
8766 #{e2\ 5135}#)
8767 (let ((#{ids\ 5136}# #{id\ 5132}#))
8768 (if (not (#{valid-bound-ids?\ 3820}#
8769 #{ids\ 5136}#))
8770 (syntax-violation
8771 'letrec
8772 "duplicate bound variable"
8773 #{e\ 5118}#)
8774 (let ((#{labels\ 5138}#
8775 (#{gen-labels\ 3801}# #{ids\ 5136}#))
8776 (#{new-vars\ 5139}#
8777 (map #{gen-var\ 3845}# #{ids\ 5136}#)))
8778 (let ((#{w\ 5140}#
8779 (#{make-binding-wrap\ 3812}#
8780 #{ids\ 5136}#
8781 #{labels\ 5138}#
8782 #{w\ 5120}#))
8783 (#{r\ 5141}#
8784 (#{extend-var-env\ 3790}#
8785 #{labels\ 5138}#
8786 #{new-vars\ 5139}#
8787 #{r\ 5119}#)))
8788 (#{build-letrec\ 3777}#
8789 #{s\ 5121}#
8790 (map syntax->datum #{ids\ 5136}#)
8791 #{new-vars\ 5139}#
8792 (map (lambda (#{x\ 5142}#)
8793 (#{chi\ 3831}#
8794 #{x\ 5142}#
8795 #{r\ 5141}#
8796 #{w\ 5140}#
8797 #{mod\ 5122}#))
8798 #{val\ 5133}#)
8799 (#{chi-body\ 3835}#
8800 (cons #{e1\ 5134}# #{e2\ 5135}#)
8801 (#{source-wrap\ 3824}#
8802 #{e\ 5118}#
8803 #{w\ 5140}#
8804 #{s\ 5121}#
8805 #{mod\ 5122}#)
8806 #{r\ 5141}#
8807 #{w\ 5140}#
8808 #{mod\ 5122}#)))))))
8809 #{tmp\ 5124}#)
8810 ((lambda (#{_\ 5145}#)
8811 (syntax-violation
8812 'letrec
8813 "bad letrec"
8814 (#{source-wrap\ 3824}#
8815 #{e\ 5118}#
8816 #{w\ 5120}#
8817 #{s\ 5121}#
8818 #{mod\ 5122}#)))
8819 #{tmp\ 5123}#)))
8820 ($sc-dispatch
8821 #{tmp\ 5123}#
8822 '(any #(each (any any)) any . each-any))))
8823 #{e\ 5118}#)))
8824 (#{global-extend\ 3793}#
8825 'core
8826 'set!
8827 (lambda (#{e\ 5146}#
8828 #{r\ 5147}#
8829 #{w\ 5148}#
8830 #{s\ 5149}#
8831 #{mod\ 5150}#)
8832 ((lambda (#{tmp\ 5151}#)
8833 ((lambda (#{tmp\ 5152}#)
8834 (if (if #{tmp\ 5152}#
8835 (apply (lambda (#{_\ 5153}# #{id\ 5154}# #{val\ 5155}#)
8836 (#{id?\ 3795}# #{id\ 5154}#))
8837 #{tmp\ 5152}#)
8838 #f)
8839 (apply (lambda (#{_\ 5156}# #{id\ 5157}# #{val\ 5158}#)
8840 (let ((#{val\ 5159}#
8841 (#{chi\ 3831}#
8842 #{val\ 5158}#
8843 #{r\ 5147}#
8844 #{w\ 5148}#
8845 #{mod\ 5150}#))
8846 (#{n\ 5160}#
8847 (#{id-var-name\ 3817}#
8848 #{id\ 5157}#
8849 #{w\ 5148}#)))
8850 (let ((#{b\ 5161}#
8851 (#{lookup\ 3792}#
8852 #{n\ 5160}#
8853 #{r\ 5147}#
8854 #{mod\ 5150}#)))
8855 (let ((#{atom-key\ 5162}#
8856 (#{binding-type\ 3787}# #{b\ 5161}#)))
8857 (if (memv #{atom-key\ 5162}#
8858 '(lexical))
8859 (#{build-lexical-assignment\ 3763}#
8860 #{s\ 5149}#
8861 (syntax->datum #{id\ 5157}#)
8862 (#{binding-value\ 3788}# #{b\ 5161}#)
8863 #{val\ 5159}#)
8864 (if (memv #{atom-key\ 5162}#
8865 '(global))
8866 (#{build-global-assignment\ 3766}#
8867 #{s\ 5149}#
8868 #{n\ 5160}#
8869 #{val\ 5159}#
8870 #{mod\ 5150}#)
8871 (if (memv #{atom-key\ 5162}#
8872 '(displaced-lexical))
8873 (syntax-violation
8874 'set!
8875 "identifier out of context"
8876 (#{wrap\ 3823}#
8877 #{id\ 5157}#
8878 #{w\ 5148}#
8879 #{mod\ 5150}#))
8880 (syntax-violation
8881 'set!
8882 "bad set!"
8883 (#{source-wrap\ 3824}#
8884 #{e\ 5146}#
8885 #{w\ 5148}#
8886 #{s\ 5149}#
8887 #{mod\ 5150}#)))))))))
8888 #{tmp\ 5152}#)
8889 ((lambda (#{tmp\ 5163}#)
8890 (if #{tmp\ 5163}#
8891 (apply (lambda (#{_\ 5164}#
8892 #{head\ 5165}#
8893 #{tail\ 5166}#
8894 #{val\ 5167}#)
8895 (call-with-values
8896 (lambda ()
8897 (#{syntax-type\ 3829}#
8898 #{head\ 5165}#
8899 #{r\ 5147}#
8900 '(())
8901 #f
8902 #f
8903 #{mod\ 5150}#
8904 #t))
8905 (lambda (#{type\ 5168}#
8906 #{value\ 5169}#
8907 #{ee\ 5170}#
8908 #{ww\ 5171}#
8909 #{ss\ 5172}#
8910 #{modmod\ 5173}#)
8911 (if (memv #{type\ 5168}#
8912 '(module-ref))
8913 (let ((#{val\ 5174}#
8914 (#{chi\ 3831}#
8915 #{val\ 5167}#
8916 #{r\ 5147}#
8917 #{w\ 5148}#
8918 #{mod\ 5150}#)))
8919 (call-with-values
8920 (lambda ()
8921 (#{value\ 5169}#
8922 (cons #{head\ 5165}#
8923 #{tail\ 5166}#)))
8924 (lambda (#{id\ 5176}# #{mod\ 5177}#)
8925 (#{build-global-assignment\ 3766}#
8926 #{s\ 5149}#
8927 #{id\ 5176}#
8928 #{val\ 5174}#
8929 #{mod\ 5177}#))))
8930 (#{build-application\ 3760}#
8931 #{s\ 5149}#
8932 (#{chi\ 3831}#
8933 (list '#(syntax-object
8934 setter
8935 ((top)
8936 #(ribcage () () ())
8937 #(ribcage () () ())
8938 #(ribcage
8939 #(type
8940 value
8941 ee
8942 ww
8943 ss
8944 modmod)
8945 #((top)
8946 (top)
8947 (top)
8948 (top)
8949 (top)
8950 (top))
8951 #("i"
8952 "i"
8953 "i"
8954 "i"
8955 "i"
8956 "i"))
8957 #(ribcage
8958 #(_ head tail val)
8959 #((top)
8960 (top)
8961 (top)
8962 (top))
8963 #("i" "i" "i" "i"))
8964 #(ribcage () () ())
8965 #(ribcage
8966 #(e r w s mod)
8967 #((top)
8968 (top)
8969 (top)
8970 (top)
8971 (top))
8972 #("i" "i" "i" "i" "i"))
8973 #(ribcage
8974 (lambda-var-list
8975 gen-var
8976 strip
8977 chi-lambda-case
8978 lambda*-formals
8979 chi-simple-lambda
8980 lambda-formals
8981 ellipsis?
8982 chi-void
8983 eval-local-transformer
8984 chi-local-syntax
8985 chi-body
8986 chi-macro
8987 chi-application
8988 chi-expr
8989 chi
8990 chi-top
8991 syntax-type
8992 chi-when-list
8993 chi-install-global
8994 chi-top-sequence
8995 chi-sequence
8996 source-wrap
8997 wrap
8998 bound-id-member?
8999 distinct-bound-ids?
9000 valid-bound-ids?
9001 bound-id=?
9002 free-id=?
9003 id-var-name
9004 same-marks?
9005 join-marks
9006 join-wraps
9007 smart-append
9008 make-binding-wrap
9009 extend-ribcage!
9010 make-empty-ribcage
9011 new-mark
9012 anti-mark
9013 the-anti-mark
9014 top-marked?
9015 top-wrap
9016 empty-wrap
9017 set-ribcage-labels!
9018 set-ribcage-marks!
9019 set-ribcage-symnames!
9020 ribcage-labels
9021 ribcage-marks
9022 ribcage-symnames
9023 ribcage?
9024 make-ribcage
9025 gen-labels
9026 gen-label
9027 make-rename
9028 rename-marks
9029 rename-new
9030 rename-old
9031 subst-rename?
9032 wrap-subst
9033 wrap-marks
9034 make-wrap
9035 id-sym-name&marks
9036 id-sym-name
9037 id?
9038 nonsymbol-id?
9039 global-extend
9040 lookup
9041 macros-only-env
9042 extend-var-env
9043 extend-env
9044 null-env
9045 binding-value
9046 binding-type
9047 make-binding
9048 arg-check
9049 source-annotation
9050 no-source
9051 set-syntax-object-module!
9052 set-syntax-object-wrap!
9053 set-syntax-object-expression!
9054 syntax-object-module
9055 syntax-object-wrap
9056 syntax-object-expression
9057 syntax-object?
9058 make-syntax-object
9059 build-lexical-var
9060 build-letrec
9061 build-named-let
9062 build-let
9063 build-sequence
9064 build-data
9065 build-primref
9066 build-lambda-case
9067 build-case-lambda
9068 build-simple-lambda
9069 build-global-definition
9070 maybe-name-value!
9071 build-global-assignment
9072 build-global-reference
9073 analyze-variable
9074 build-lexical-assignment
9075 build-lexical-reference
9076 build-conditional
9077 build-application
9078 build-void
9079 decorate-source
9080 get-global-definition-hook
9081 put-global-definition-hook
9082 gensym-hook
9083 local-eval-hook
9084 top-level-eval-hook
9085 fx<
9086 fx=
9087 fx-
9088 fx+
9089 *mode*
9090 noexpand)
9091 ((top)
9092 (top)
9093 (top)
9094 (top)
9095 (top)
9096 (top)
9097 (top)
9098 (top)
9099 (top)
9100 (top)
9101 (top)
9102 (top)
9103 (top)
9104 (top)
9105 (top)
9106 (top)
9107 (top)
9108 (top)
9109 (top)
9110 (top)
9111 (top)
9112 (top)
9113 (top)
9114 (top)
9115 (top)
9116 (top)
9117 (top)
9118 (top)
9119 (top)
9120 (top)
9121 (top)
9122 (top)
9123 (top)
9124 (top)
9125 (top)
9126 (top)
9127 (top)
9128 (top)
9129 (top)
9130 (top)
9131 (top)
9132 (top)
9133 (top)
9134 (top)
9135 (top)
9136 (top)
9137 (top)
9138 (top)
9139 (top)
9140 (top)
9141 (top)
9142 (top)
9143 (top)
9144 (top)
9145 (top)
9146 (top)
9147 (top)
9148 (top)
9149 (top)
9150 (top)
9151 (top)
9152 (top)
9153 (top)
9154 (top)
9155 (top)
9156 (top)
9157 (top)
9158 (top)
9159 (top)
9160 (top)
9161 (top)
9162 (top)
9163 (top)
9164 (top)
9165 (top)
9166 (top)
9167 (top)
9168 (top)
9169 (top)
9170 (top)
9171 (top)
9172 (top)
9173 (top)
9174 (top)
9175 (top)
9176 (top)
9177 (top)
9178 (top)
9179 (top)
9180 (top)
9181 (top)
9182 (top)
9183 (top)
9184 (top)
9185 (top)
9186 (top)
9187 (top)
9188 (top)
9189 (top)
9190 (top)
9191 (top)
9192 (top)
9193 (top)
9194 (top)
9195 (top)
9196 (top)
9197 (top)
9198 (top)
9199 (top)
9200 (top)
9201 (top)
9202 (top)
9203 (top)
9204 (top)
9205 (top)
9206 (top)
9207 (top))
9208 ("i"
9209 "i"
9210 "i"
9211 "i"
9212 "i"
9213 "i"
9214 "i"
9215 "i"
9216 "i"
9217 "i"
9218 "i"
9219 "i"
9220 "i"
9221 "i"
9222 "i"
9223 "i"
9224 "i"
9225 "i"
9226 "i"
9227 "i"
9228 "i"
9229 "i"
9230 "i"
9231 "i"
9232 "i"
9233 "i"
9234 "i"
9235 "i"
9236 "i"
9237 "i"
9238 "i"
9239 "i"
9240 "i"
9241 "i"
9242 "i"
9243 "i"
9244 "i"
9245 "i"
9246 "i"
9247 "i"
9248 "i"
9249 "i"
9250 "i"
9251 "i"
9252 "i"
9253 "i"
9254 "i"
9255 "i"
9256 "i"
9257 "i"
9258 "i"
9259 "i"
9260 "i"
9261 "i"
9262 "i"
9263 "i"
9264 "i"
9265 "i"
9266 "i"
9267 "i"
9268 "i"
9269 "i"
9270 "i"
9271 "i"
9272 "i"
9273 "i"
9274 "i"
9275 "i"
9276 "i"
9277 "i"
9278 "i"
9279 "i"
9280 "i"
9281 "i"
9282 "i"
9283 "i"
9284 "i"
9285 "i"
9286 "i"
9287 "i"
9288 "i"
9289 "i"
9290 "i"
9291 "i"
9292 "i"
9293 "i"
9294 "i"
9295 "i"
9296 "i"
9297 "i"
9298 "i"
9299 "i"
9300 "i"
9301 "i"
9302 "i"
9303 "i"
9304 "i"
9305 "i"
9306 "i"
9307 "i"
9308 "i"
9309 "i"
9310 "i"
9311 "i"
9312 "i"
9313 "i"
9314 "i"
9315 "i"
9316 "i"
9317 "i"
9318 "i"
9319 "i"
9320 "i"
9321 "i"
9322 "i"
9323 "i"
9324 "i"))
9325 #(ribcage
9326 (define-structure
9327 and-map*)
9328 ((top) (top))
9329 ("i" "i")))
9330 (hygiene guile))
9331 #{head\ 5165}#)
9332 #{r\ 5147}#
9333 #{w\ 5148}#
9334 #{mod\ 5150}#)
9335 (map (lambda (#{e\ 5178}#)
9336 (#{chi\ 3831}#
9337 #{e\ 5178}#
9338 #{r\ 5147}#
9339 #{w\ 5148}#
9340 #{mod\ 5150}#))
9341 (append
9342 #{tail\ 5166}#
9343 (list #{val\ 5167}#))))))))
9344 #{tmp\ 5163}#)
9345 ((lambda (#{_\ 5180}#)
9346 (syntax-violation
9347 'set!
9348 "bad set!"
9349 (#{source-wrap\ 3824}#
9350 #{e\ 5146}#
9351 #{w\ 5148}#
9352 #{s\ 5149}#
9353 #{mod\ 5150}#)))
9354 #{tmp\ 5151}#)))
9355 ($sc-dispatch
9356 #{tmp\ 5151}#
9357 '(any (any . each-any) any)))))
9358 ($sc-dispatch
9359 #{tmp\ 5151}#
9360 '(any any any))))
9361 #{e\ 5146}#)))
9362 (#{global-extend\ 3793}#
9363 'module-ref
9364 '@
9365 (lambda (#{e\ 5181}#)
9366 ((lambda (#{tmp\ 5182}#)
9367 ((lambda (#{tmp\ 5183}#)
9368 (if (if #{tmp\ 5183}#
9369 (apply (lambda (#{_\ 5184}# #{mod\ 5185}# #{id\ 5186}#)
9370 (if (and-map #{id?\ 3795}# #{mod\ 5185}#)
9371 (#{id?\ 3795}# #{id\ 5186}#)
9372 #f))
9373 #{tmp\ 5183}#)
9374 #f)
9375 (apply (lambda (#{_\ 5188}# #{mod\ 5189}# #{id\ 5190}#)
9376 (values
9377 (syntax->datum #{id\ 5190}#)
9378 (syntax->datum
9379 (cons '#(syntax-object
9380 public
9381 ((top)
9382 #(ribcage
9383 #(_ mod id)
9384 #((top) (top) (top))
9385 #("i" "i" "i"))
9386 #(ribcage () () ())
9387 #(ribcage #(e) #((top)) #("i"))
9388 #(ribcage
9389 (lambda-var-list
9390 gen-var
9391 strip
9392 chi-lambda-case
9393 lambda*-formals
9394 chi-simple-lambda
9395 lambda-formals
9396 ellipsis?
9397 chi-void
9398 eval-local-transformer
9399 chi-local-syntax
9400 chi-body
9401 chi-macro
9402 chi-application
9403 chi-expr
9404 chi
9405 chi-top
9406 syntax-type
9407 chi-when-list
9408 chi-install-global
9409 chi-top-sequence
9410 chi-sequence
9411 source-wrap
9412 wrap
9413 bound-id-member?
9414 distinct-bound-ids?
9415 valid-bound-ids?
9416 bound-id=?
9417 free-id=?
9418 id-var-name
9419 same-marks?
9420 join-marks
9421 join-wraps
9422 smart-append
9423 make-binding-wrap
9424 extend-ribcage!
9425 make-empty-ribcage
9426 new-mark
9427 anti-mark
9428 the-anti-mark
9429 top-marked?
9430 top-wrap
9431 empty-wrap
9432 set-ribcage-labels!
9433 set-ribcage-marks!
9434 set-ribcage-symnames!
9435 ribcage-labels
9436 ribcage-marks
9437 ribcage-symnames
9438 ribcage?
9439 make-ribcage
9440 gen-labels
9441 gen-label
9442 make-rename
9443 rename-marks
9444 rename-new
9445 rename-old
9446 subst-rename?
9447 wrap-subst
9448 wrap-marks
9449 make-wrap
9450 id-sym-name&marks
9451 id-sym-name
9452 id?
9453 nonsymbol-id?
9454 global-extend
9455 lookup
9456 macros-only-env
9457 extend-var-env
9458 extend-env
9459 null-env
9460 binding-value
9461 binding-type
9462 make-binding
9463 arg-check
9464 source-annotation
9465 no-source
9466 set-syntax-object-module!
9467 set-syntax-object-wrap!
9468 set-syntax-object-expression!
9469 syntax-object-module
9470 syntax-object-wrap
9471 syntax-object-expression
9472 syntax-object?
9473 make-syntax-object
9474 build-lexical-var
9475 build-letrec
9476 build-named-let
9477 build-let
9478 build-sequence
9479 build-data
9480 build-primref
9481 build-lambda-case
9482 build-case-lambda
9483 build-simple-lambda
9484 build-global-definition
9485 maybe-name-value!
9486 build-global-assignment
9487 build-global-reference
9488 analyze-variable
9489 build-lexical-assignment
9490 build-lexical-reference
9491 build-conditional
9492 build-application
9493 build-void
9494 decorate-source
9495 get-global-definition-hook
9496 put-global-definition-hook
9497 gensym-hook
9498 local-eval-hook
9499 top-level-eval-hook
9500 fx<
9501 fx=
9502 fx-
9503 fx+
9504 *mode*
9505 noexpand)
9506 ((top)
9507 (top)
9508 (top)
9509 (top)
9510 (top)
9511 (top)
9512 (top)
9513 (top)
9514 (top)
9515 (top)
9516 (top)
9517 (top)
9518 (top)
9519 (top)
9520 (top)
9521 (top)
9522 (top)
9523 (top)
9524 (top)
9525 (top)
9526 (top)
9527 (top)
9528 (top)
9529 (top)
9530 (top)
9531 (top)
9532 (top)
9533 (top)
9534 (top)
9535 (top)
9536 (top)
9537 (top)
9538 (top)
9539 (top)
9540 (top)
9541 (top)
9542 (top)
9543 (top)
9544 (top)
9545 (top)
9546 (top)
9547 (top)
9548 (top)
9549 (top)
9550 (top)
9551 (top)
9552 (top)
9553 (top)
9554 (top)
9555 (top)
9556 (top)
9557 (top)
9558 (top)
9559 (top)
9560 (top)
9561 (top)
9562 (top)
9563 (top)
9564 (top)
9565 (top)
9566 (top)
9567 (top)
9568 (top)
9569 (top)
9570 (top)
9571 (top)
9572 (top)
9573 (top)
9574 (top)
9575 (top)
9576 (top)
9577 (top)
9578 (top)
9579 (top)
9580 (top)
9581 (top)
9582 (top)
9583 (top)
9584 (top)
9585 (top)
9586 (top)
9587 (top)
9588 (top)
9589 (top)
9590 (top)
9591 (top)
9592 (top)
9593 (top)
9594 (top)
9595 (top)
9596 (top)
9597 (top)
9598 (top)
9599 (top)
9600 (top)
9601 (top)
9602 (top)
9603 (top)
9604 (top)
9605 (top)
9606 (top)
9607 (top)
9608 (top)
9609 (top)
9610 (top)
9611 (top)
9612 (top)
9613 (top)
9614 (top)
9615 (top)
9616 (top)
9617 (top)
9618 (top)
9619 (top)
9620 (top)
9621 (top)
9622 (top))
9623 ("i"
9624 "i"
9625 "i"
9626 "i"
9627 "i"
9628 "i"
9629 "i"
9630 "i"
9631 "i"
9632 "i"
9633 "i"
9634 "i"
9635 "i"
9636 "i"
9637 "i"
9638 "i"
9639 "i"
9640 "i"
9641 "i"
9642 "i"
9643 "i"
9644 "i"
9645 "i"
9646 "i"
9647 "i"
9648 "i"
9649 "i"
9650 "i"
9651 "i"
9652 "i"
9653 "i"
9654 "i"
9655 "i"
9656 "i"
9657 "i"
9658 "i"
9659 "i"
9660 "i"
9661 "i"
9662 "i"
9663 "i"
9664 "i"
9665 "i"
9666 "i"
9667 "i"
9668 "i"
9669 "i"
9670 "i"
9671 "i"
9672 "i"
9673 "i"
9674 "i"
9675 "i"
9676 "i"
9677 "i"
9678 "i"
9679 "i"
9680 "i"
9681 "i"
9682 "i"
9683 "i"
9684 "i"
9685 "i"
9686 "i"
9687 "i"
9688 "i"
9689 "i"
9690 "i"
9691 "i"
9692 "i"
9693 "i"
9694 "i"
9695 "i"
9696 "i"
9697 "i"
9698 "i"
9699 "i"
9700 "i"
9701 "i"
9702 "i"
9703 "i"
9704 "i"
9705 "i"
9706 "i"
9707 "i"
9708 "i"
9709 "i"
9710 "i"
9711 "i"
9712 "i"
9713 "i"
9714 "i"
9715 "i"
9716 "i"
9717 "i"
9718 "i"
9719 "i"
9720 "i"
9721 "i"
9722 "i"
9723 "i"
9724 "i"
9725 "i"
9726 "i"
9727 "i"
9728 "i"
9729 "i"
9730 "i"
9731 "i"
9732 "i"
9733 "i"
9734 "i"
9735 "i"
9736 "i"
9737 "i"
9738 "i"
9739 "i"))
9740 #(ribcage
9741 (define-structure and-map*)
9742 ((top) (top))
9743 ("i" "i")))
9744 (hygiene guile))
9745 #{mod\ 5189}#))))
9746 #{tmp\ 5183}#)
9747 (syntax-violation
9748 #f
9749 "source expression failed to match any pattern"
9750 #{tmp\ 5182}#)))
9751 ($sc-dispatch
9752 #{tmp\ 5182}#
9753 '(any each-any any))))
9754 #{e\ 5181}#)))
9755 (#{global-extend\ 3793}#
9756 'module-ref
9757 '@@
9758 (lambda (#{e\ 5192}#)
9759 ((lambda (#{tmp\ 5193}#)
9760 ((lambda (#{tmp\ 5194}#)
9761 (if (if #{tmp\ 5194}#
9762 (apply (lambda (#{_\ 5195}# #{mod\ 5196}# #{id\ 5197}#)
9763 (if (and-map #{id?\ 3795}# #{mod\ 5196}#)
9764 (#{id?\ 3795}# #{id\ 5197}#)
9765 #f))
9766 #{tmp\ 5194}#)
9767 #f)
9768 (apply (lambda (#{_\ 5199}# #{mod\ 5200}# #{id\ 5201}#)
9769 (values
9770 (syntax->datum #{id\ 5201}#)
9771 (syntax->datum
9772 (cons '#(syntax-object
9773 private
9774 ((top)
9775 #(ribcage
9776 #(_ mod id)
9777 #((top) (top) (top))
9778 #("i" "i" "i"))
9779 #(ribcage () () ())
9780 #(ribcage #(e) #((top)) #("i"))
9781 #(ribcage
9782 (lambda-var-list
9783 gen-var
9784 strip
9785 chi-lambda-case
9786 lambda*-formals
9787 chi-simple-lambda
9788 lambda-formals
9789 ellipsis?
9790 chi-void
9791 eval-local-transformer
9792 chi-local-syntax
9793 chi-body
9794 chi-macro
9795 chi-application
9796 chi-expr
9797 chi
9798 chi-top
9799 syntax-type
9800 chi-when-list
9801 chi-install-global
9802 chi-top-sequence
9803 chi-sequence
9804 source-wrap
9805 wrap
9806 bound-id-member?
9807 distinct-bound-ids?
9808 valid-bound-ids?
9809 bound-id=?
9810 free-id=?
9811 id-var-name
9812 same-marks?
9813 join-marks
9814 join-wraps
9815 smart-append
9816 make-binding-wrap
9817 extend-ribcage!
9818 make-empty-ribcage
9819 new-mark
9820 anti-mark
9821 the-anti-mark
9822 top-marked?
9823 top-wrap
9824 empty-wrap
9825 set-ribcage-labels!
9826 set-ribcage-marks!
9827 set-ribcage-symnames!
9828 ribcage-labels
9829 ribcage-marks
9830 ribcage-symnames
9831 ribcage?
9832 make-ribcage
9833 gen-labels
9834 gen-label
9835 make-rename
9836 rename-marks
9837 rename-new
9838 rename-old
9839 subst-rename?
9840 wrap-subst
9841 wrap-marks
9842 make-wrap
9843 id-sym-name&marks
9844 id-sym-name
9845 id?
9846 nonsymbol-id?
9847 global-extend
9848 lookup
9849 macros-only-env
9850 extend-var-env
9851 extend-env
9852 null-env
9853 binding-value
9854 binding-type
9855 make-binding
9856 arg-check
9857 source-annotation
9858 no-source
9859 set-syntax-object-module!
9860 set-syntax-object-wrap!
9861 set-syntax-object-expression!
9862 syntax-object-module
9863 syntax-object-wrap
9864 syntax-object-expression
9865 syntax-object?
9866 make-syntax-object
9867 build-lexical-var
9868 build-letrec
9869 build-named-let
9870 build-let
9871 build-sequence
9872 build-data
9873 build-primref
9874 build-lambda-case
9875 build-case-lambda
9876 build-simple-lambda
9877 build-global-definition
9878 maybe-name-value!
9879 build-global-assignment
9880 build-global-reference
9881 analyze-variable
9882 build-lexical-assignment
9883 build-lexical-reference
9884 build-conditional
9885 build-application
9886 build-void
9887 decorate-source
9888 get-global-definition-hook
9889 put-global-definition-hook
9890 gensym-hook
9891 local-eval-hook
9892 top-level-eval-hook
9893 fx<
9894 fx=
9895 fx-
9896 fx+
9897 *mode*
9898 noexpand)
9899 ((top)
9900 (top)
9901 (top)
9902 (top)
9903 (top)
9904 (top)
9905 (top)
9906 (top)
9907 (top)
9908 (top)
9909 (top)
9910 (top)
9911 (top)
9912 (top)
9913 (top)
9914 (top)
9915 (top)
9916 (top)
9917 (top)
9918 (top)
9919 (top)
9920 (top)
9921 (top)
9922 (top)
9923 (top)
9924 (top)
9925 (top)
9926 (top)
9927 (top)
9928 (top)
9929 (top)
9930 (top)
9931 (top)
9932 (top)
9933 (top)
9934 (top)
9935 (top)
9936 (top)
9937 (top)
9938 (top)
9939 (top)
9940 (top)
9941 (top)
9942 (top)
9943 (top)
9944 (top)
9945 (top)
9946 (top)
9947 (top)
9948 (top)
9949 (top)
9950 (top)
9951 (top)
9952 (top)
9953 (top)
9954 (top)
9955 (top)
9956 (top)
9957 (top)
9958 (top)
9959 (top)
9960 (top)
9961 (top)
9962 (top)
9963 (top)
9964 (top)
9965 (top)
9966 (top)
9967 (top)
9968 (top)
9969 (top)
9970 (top)
9971 (top)
9972 (top)
9973 (top)
9974 (top)
9975 (top)
9976 (top)
9977 (top)
9978 (top)
9979 (top)
9980 (top)
9981 (top)
9982 (top)
9983 (top)
9984 (top)
9985 (top)
9986 (top)
9987 (top)
9988 (top)
9989 (top)
9990 (top)
9991 (top)
9992 (top)
9993 (top)
9994 (top)
9995 (top)
9996 (top)
9997 (top)
9998 (top)
9999 (top)
10000 (top)
10001 (top)
10002 (top)
10003 (top)
10004 (top)
10005 (top)
10006 (top)
10007 (top)
10008 (top)
10009 (top)
10010 (top)
10011 (top)
10012 (top)
10013 (top)
10014 (top)
10015 (top))
10016 ("i"
10017 "i"
10018 "i"
10019 "i"
10020 "i"
10021 "i"
10022 "i"
10023 "i"
10024 "i"
10025 "i"
10026 "i"
10027 "i"
10028 "i"
10029 "i"
10030 "i"
10031 "i"
10032 "i"
10033 "i"
10034 "i"
10035 "i"
10036 "i"
10037 "i"
10038 "i"
10039 "i"
10040 "i"
10041 "i"
10042 "i"
10043 "i"
10044 "i"
10045 "i"
10046 "i"
10047 "i"
10048 "i"
10049 "i"
10050 "i"
10051 "i"
10052 "i"
10053 "i"
10054 "i"
10055 "i"
10056 "i"
10057 "i"
10058 "i"
10059 "i"
10060 "i"
10061 "i"
10062 "i"
10063 "i"
10064 "i"
10065 "i"
10066 "i"
10067 "i"
10068 "i"
10069 "i"
10070 "i"
10071 "i"
10072 "i"
10073 "i"
10074 "i"
10075 "i"
10076 "i"
10077 "i"
10078 "i"
10079 "i"
10080 "i"
10081 "i"
10082 "i"
10083 "i"
10084 "i"
10085 "i"
10086 "i"
10087 "i"
10088 "i"
10089 "i"
10090 "i"
10091 "i"
10092 "i"
10093 "i"
10094 "i"
10095 "i"
10096 "i"
10097 "i"
10098 "i"
10099 "i"
10100 "i"
10101 "i"
10102 "i"
10103 "i"
10104 "i"
10105 "i"
10106 "i"
10107 "i"
10108 "i"
10109 "i"
10110 "i"
10111 "i"
10112 "i"
10113 "i"
10114 "i"
10115 "i"
10116 "i"
10117 "i"
10118 "i"
10119 "i"
10120 "i"
10121 "i"
10122 "i"
10123 "i"
10124 "i"
10125 "i"
10126 "i"
10127 "i"
10128 "i"
10129 "i"
10130 "i"
10131 "i"
10132 "i"))
10133 #(ribcage
10134 (define-structure and-map*)
10135 ((top) (top))
10136 ("i" "i")))
10137 (hygiene guile))
10138 #{mod\ 5200}#))))
10139 #{tmp\ 5194}#)
10140 (syntax-violation
10141 #f
10142 "source expression failed to match any pattern"
10143 #{tmp\ 5193}#)))
10144 ($sc-dispatch
10145 #{tmp\ 5193}#
10146 '(any each-any any))))
10147 #{e\ 5192}#)))
10148 (#{global-extend\ 3793}#
10149 'core
10150 'if
10151 (lambda (#{e\ 5203}#
10152 #{r\ 5204}#
10153 #{w\ 5205}#
10154 #{s\ 5206}#
10155 #{mod\ 5207}#)
10156 ((lambda (#{tmp\ 5208}#)
10157 ((lambda (#{tmp\ 5209}#)
10158 (if #{tmp\ 5209}#
10159 (apply (lambda (#{_\ 5210}# #{test\ 5211}# #{then\ 5212}#)
10160 (#{build-conditional\ 3761}#
10161 #{s\ 5206}#
10162 (#{chi\ 3831}#
10163 #{test\ 5211}#
10164 #{r\ 5204}#
10165 #{w\ 5205}#
10166 #{mod\ 5207}#)
10167 (#{chi\ 3831}#
10168 #{then\ 5212}#
10169 #{r\ 5204}#
10170 #{w\ 5205}#
10171 #{mod\ 5207}#)
10172 (#{build-void\ 3759}# #f)))
10173 #{tmp\ 5209}#)
10174 ((lambda (#{tmp\ 5213}#)
10175 (if #{tmp\ 5213}#
10176 (apply (lambda (#{_\ 5214}#
10177 #{test\ 5215}#
10178 #{then\ 5216}#
10179 #{else\ 5217}#)
10180 (#{build-conditional\ 3761}#
10181 #{s\ 5206}#
10182 (#{chi\ 3831}#
10183 #{test\ 5215}#
10184 #{r\ 5204}#
10185 #{w\ 5205}#
10186 #{mod\ 5207}#)
10187 (#{chi\ 3831}#
10188 #{then\ 5216}#
10189 #{r\ 5204}#
10190 #{w\ 5205}#
10191 #{mod\ 5207}#)
10192 (#{chi\ 3831}#
10193 #{else\ 5217}#
10194 #{r\ 5204}#
10195 #{w\ 5205}#
10196 #{mod\ 5207}#)))
10197 #{tmp\ 5213}#)
10198 (syntax-violation
10199 #f
10200 "source expression failed to match any pattern"
10201 #{tmp\ 5208}#)))
10202 ($sc-dispatch
10203 #{tmp\ 5208}#
10204 '(any any any any)))))
10205 ($sc-dispatch
10206 #{tmp\ 5208}#
10207 '(any any any))))
10208 #{e\ 5203}#)))
10209 (#{global-extend\ 3793}#
10210 'begin
10211 'begin
10212 '())
10213 (#{global-extend\ 3793}#
10214 'define
10215 'define
10216 '())
10217 (#{global-extend\ 3793}#
10218 'define-syntax
10219 'define-syntax
10220 '())
10221 (#{global-extend\ 3793}#
10222 'eval-when
10223 'eval-when
10224 '())
10225 (#{global-extend\ 3793}#
10226 'core
10227 'syntax-case
10228 (letrec ((#{gen-syntax-case\ 5221}#
10229 (lambda (#{x\ 5222}#
10230 #{keys\ 5223}#
10231 #{clauses\ 5224}#
10232 #{r\ 5225}#
10233 #{mod\ 5226}#)
10234 (if (null? #{clauses\ 5224}#)
10235 (#{build-application\ 3760}#
10236 #f
10237 (#{build-primref\ 3772}#
10238 #f
10239 'syntax-violation)
10240 (list (#{build-data\ 3773}# #f #f)
10241 (#{build-data\ 3773}#
10242 #f
10243 "source expression failed to match any pattern")
10244 #{x\ 5222}#))
10245 ((lambda (#{tmp\ 5227}#)
10246 ((lambda (#{tmp\ 5228}#)
10247 (if #{tmp\ 5228}#
10248 (apply (lambda (#{pat\ 5229}# #{exp\ 5230}#)
10249 (if (if (#{id?\ 3795}# #{pat\ 5229}#)
10250 (and-map
10251 (lambda (#{x\ 5231}#)
10252 (not (#{free-id=?\ 3818}#
10253 #{pat\ 5229}#
10254 #{x\ 5231}#)))
10255 (cons '#(syntax-object
10256 ...
10257 ((top)
10258 #(ribcage
10259 #(pat exp)
10260 #((top) (top))
10261 #("i" "i"))
10262 #(ribcage () () ())
10263 #(ribcage
10264 #(x
10265 keys
10266 clauses
10267 r
10268 mod)
10269 #((top)
10270 (top)
10271 (top)
10272 (top)
10273 (top))
10274 #("i"
10275 "i"
10276 "i"
10277 "i"
10278 "i"))
10279 #(ribcage
10280 (gen-syntax-case
10281 gen-clause
10282 build-dispatch-call
10283 convert-pattern)
10284 ((top)
10285 (top)
10286 (top)
10287 (top))
10288 ("i" "i" "i" "i"))
10289 #(ribcage
10290 (lambda-var-list
10291 gen-var
10292 strip
10293 chi-lambda-case
10294 lambda*-formals
10295 chi-simple-lambda
10296 lambda-formals
10297 ellipsis?
10298 chi-void
10299 eval-local-transformer
10300 chi-local-syntax
10301 chi-body
10302 chi-macro
10303 chi-application
10304 chi-expr
10305 chi
10306 chi-top
10307 syntax-type
10308 chi-when-list
10309 chi-install-global
10310 chi-top-sequence
10311 chi-sequence
10312 source-wrap
10313 wrap
10314 bound-id-member?
10315 distinct-bound-ids?
10316 valid-bound-ids?
10317 bound-id=?
10318 free-id=?
10319 id-var-name
10320 same-marks?
10321 join-marks
10322 join-wraps
10323 smart-append
10324 make-binding-wrap
10325 extend-ribcage!
10326 make-empty-ribcage
10327 new-mark
10328 anti-mark
10329 the-anti-mark
10330 top-marked?
10331 top-wrap
10332 empty-wrap
10333 set-ribcage-labels!
10334 set-ribcage-marks!
10335 set-ribcage-symnames!
10336 ribcage-labels
10337 ribcage-marks
10338 ribcage-symnames
10339 ribcage?
10340 make-ribcage
10341 gen-labels
10342 gen-label
10343 make-rename
10344 rename-marks
10345 rename-new
10346 rename-old
10347 subst-rename?
10348 wrap-subst
10349 wrap-marks
10350 make-wrap
10351 id-sym-name&marks
10352 id-sym-name
10353 id?
10354 nonsymbol-id?
10355 global-extend
10356 lookup
10357 macros-only-env
10358 extend-var-env
10359 extend-env
10360 null-env
10361 binding-value
10362 binding-type
10363 make-binding
10364 arg-check
10365 source-annotation
10366 no-source
10367 set-syntax-object-module!
10368 set-syntax-object-wrap!
10369 set-syntax-object-expression!
10370 syntax-object-module
10371 syntax-object-wrap
10372 syntax-object-expression
10373 syntax-object?
10374 make-syntax-object
10375 build-lexical-var
10376 build-letrec
10377 build-named-let
10378 build-let
10379 build-sequence
10380 build-data
10381 build-primref
10382 build-lambda-case
10383 build-case-lambda
10384 build-simple-lambda
10385 build-global-definition
10386 maybe-name-value!
10387 build-global-assignment
10388 build-global-reference
10389 analyze-variable
10390 build-lexical-assignment
10391 build-lexical-reference
10392 build-conditional
10393 build-application
10394 build-void
10395 decorate-source
10396 get-global-definition-hook
10397 put-global-definition-hook
10398 gensym-hook
10399 local-eval-hook
10400 top-level-eval-hook
10401 fx<
10402 fx=
10403 fx-
10404 fx+
10405 *mode*
10406 noexpand)
10407 ((top)
10408 (top)
10409 (top)
10410 (top)
10411 (top)
10412 (top)
10413 (top)
10414 (top)
10415 (top)
10416 (top)
10417 (top)
10418 (top)
10419 (top)
10420 (top)
10421 (top)
10422 (top)
10423 (top)
10424 (top)
10425 (top)
10426 (top)
10427 (top)
10428 (top)
10429 (top)
10430 (top)
10431 (top)
10432 (top)
10433 (top)
10434 (top)
10435 (top)
10436 (top)
10437 (top)
10438 (top)
10439 (top)
10440 (top)
10441 (top)
10442 (top)
10443 (top)
10444 (top)
10445 (top)
10446 (top)
10447 (top)
10448 (top)
10449 (top)
10450 (top)
10451 (top)
10452 (top)
10453 (top)
10454 (top)
10455 (top)
10456 (top)
10457 (top)
10458 (top)
10459 (top)
10460 (top)
10461 (top)
10462 (top)
10463 (top)
10464 (top)
10465 (top)
10466 (top)
10467 (top)
10468 (top)
10469 (top)
10470 (top)
10471 (top)
10472 (top)
10473 (top)
10474 (top)
10475 (top)
10476 (top)
10477 (top)
10478 (top)
10479 (top)
10480 (top)
10481 (top)
10482 (top)
10483 (top)
10484 (top)
10485 (top)
10486 (top)
10487 (top)
10488 (top)
10489 (top)
10490 (top)
10491 (top)
10492 (top)
10493 (top)
10494 (top)
10495 (top)
10496 (top)
10497 (top)
10498 (top)
10499 (top)
10500 (top)
10501 (top)
10502 (top)
10503 (top)
10504 (top)
10505 (top)
10506 (top)
10507 (top)
10508 (top)
10509 (top)
10510 (top)
10511 (top)
10512 (top)
10513 (top)
10514 (top)
10515 (top)
10516 (top)
10517 (top)
10518 (top)
10519 (top)
10520 (top)
10521 (top)
10522 (top)
10523 (top))
10524 ("i"
10525 "i"
10526 "i"
10527 "i"
10528 "i"
10529 "i"
10530 "i"
10531 "i"
10532 "i"
10533 "i"
10534 "i"
10535 "i"
10536 "i"
10537 "i"
10538 "i"
10539 "i"
10540 "i"
10541 "i"
10542 "i"
10543 "i"
10544 "i"
10545 "i"
10546 "i"
10547 "i"
10548 "i"
10549 "i"
10550 "i"
10551 "i"
10552 "i"
10553 "i"
10554 "i"
10555 "i"
10556 "i"
10557 "i"
10558 "i"
10559 "i"
10560 "i"
10561 "i"
10562 "i"
10563 "i"
10564 "i"
10565 "i"
10566 "i"
10567 "i"
10568 "i"
10569 "i"
10570 "i"
10571 "i"
10572 "i"
10573 "i"
10574 "i"
10575 "i"
10576 "i"
10577 "i"
10578 "i"
10579 "i"
10580 "i"
10581 "i"
10582 "i"
10583 "i"
10584 "i"
10585 "i"
10586 "i"
10587 "i"
10588 "i"
10589 "i"
10590 "i"
10591 "i"
10592 "i"
10593 "i"
10594 "i"
10595 "i"
10596 "i"
10597 "i"
10598 "i"
10599 "i"
10600 "i"
10601 "i"
10602 "i"
10603 "i"
10604 "i"
10605 "i"
10606 "i"
10607 "i"
10608 "i"
10609 "i"
10610 "i"
10611 "i"
10612 "i"
10613 "i"
10614 "i"
10615 "i"
10616 "i"
10617 "i"
10618 "i"
10619 "i"
10620 "i"
10621 "i"
10622 "i"
10623 "i"
10624 "i"
10625 "i"
10626 "i"
10627 "i"
10628 "i"
10629 "i"
10630 "i"
10631 "i"
10632 "i"
10633 "i"
10634 "i"
10635 "i"
10636 "i"
10637 "i"
10638 "i"
10639 "i"
10640 "i"))
10641 #(ribcage
10642 (define-structure
10643 and-map*)
10644 ((top) (top))
10645 ("i" "i")))
10646 (hygiene guile))
10647 #{keys\ 5223}#))
10648 #f)
10649 (let ((#{labels\ 5232}#
10650 (list (#{gen-label\ 3800}#)))
10651 (#{var\ 5233}#
10652 (#{gen-var\ 3845}#
10653 #{pat\ 5229}#)))
10654 (#{build-application\ 3760}#
10655 #f
10656 (#{build-simple-lambda\ 3769}#
10657 #f
10658 (list (syntax->datum
10659 #{pat\ 5229}#))
10660 #f
10661 (list #{var\ 5233}#)
10662 #f
10663 (#{chi\ 3831}#
10664 #{exp\ 5230}#
10665 (#{extend-env\ 3789}#
10666 #{labels\ 5232}#
10667 (list (cons 'syntax
10668 (cons #{var\ 5233}#
10669 0)))
10670 #{r\ 5225}#)
10671 (#{make-binding-wrap\ 3812}#
10672 (list #{pat\ 5229}#)
10673 #{labels\ 5232}#
10674 '(()))
10675 #{mod\ 5226}#))
10676 (list #{x\ 5222}#)))
10677 (#{gen-clause\ 5220}#
10678 #{x\ 5222}#
10679 #{keys\ 5223}#
10680 (cdr #{clauses\ 5224}#)
10681 #{r\ 5225}#
10682 #{pat\ 5229}#
10683 #t
10684 #{exp\ 5230}#
10685 #{mod\ 5226}#)))
10686 #{tmp\ 5228}#)
10687 ((lambda (#{tmp\ 5234}#)
10688 (if #{tmp\ 5234}#
10689 (apply (lambda (#{pat\ 5235}#
10690 #{fender\ 5236}#
10691 #{exp\ 5237}#)
10692 (#{gen-clause\ 5220}#
10693 #{x\ 5222}#
10694 #{keys\ 5223}#
10695 (cdr #{clauses\ 5224}#)
10696 #{r\ 5225}#
10697 #{pat\ 5235}#
10698 #{fender\ 5236}#
10699 #{exp\ 5237}#
10700 #{mod\ 5226}#))
10701 #{tmp\ 5234}#)
10702 ((lambda (#{_\ 5238}#)
10703 (syntax-violation
10704 'syntax-case
10705 "invalid clause"
10706 (car #{clauses\ 5224}#)))
10707 #{tmp\ 5227}#)))
10708 ($sc-dispatch
10709 #{tmp\ 5227}#
10710 '(any any any)))))
10711 ($sc-dispatch #{tmp\ 5227}# (quote (any any)))))
10712 (car #{clauses\ 5224}#)))))
10713 (#{gen-clause\ 5220}#
10714 (lambda (#{x\ 5239}#
10715 #{keys\ 5240}#
10716 #{clauses\ 5241}#
10717 #{r\ 5242}#
10718 #{pat\ 5243}#
10719 #{fender\ 5244}#
10720 #{exp\ 5245}#
10721 #{mod\ 5246}#)
10722 (call-with-values
10723 (lambda ()
10724 (#{convert-pattern\ 5218}#
10725 #{pat\ 5243}#
10726 #{keys\ 5240}#))
10727 (lambda (#{p\ 5247}# #{pvars\ 5248}#)
10728 (if (not (#{distinct-bound-ids?\ 3821}#
10729 (map car #{pvars\ 5248}#)))
10730 (syntax-violation
10731 'syntax-case
10732 "duplicate pattern variable"
10733 #{pat\ 5243}#)
10734 (if (not (and-map
10735 (lambda (#{x\ 5249}#)
10736 (not (#{ellipsis?\ 3839}#
10737 (car #{x\ 5249}#))))
10738 #{pvars\ 5248}#))
10739 (syntax-violation
10740 'syntax-case
10741 "misplaced ellipsis"
10742 #{pat\ 5243}#)
10743 (let ((#{y\ 5250}#
10744 (#{gen-var\ 3845}# (quote tmp))))
10745 (#{build-application\ 3760}#
10746 #f
10747 (#{build-simple-lambda\ 3769}#
10748 #f
10749 (list (quote tmp))
10750 #f
10751 (list #{y\ 5250}#)
10752 #f
10753 (let ((#{y\ 5251}#
10754 (#{build-lexical-reference\ 3762}#
10755 'value
10756 #f
10757 'tmp
10758 #{y\ 5250}#)))
10759 (#{build-conditional\ 3761}#
10760 #f
10761 ((lambda (#{tmp\ 5252}#)
10762 ((lambda (#{tmp\ 5253}#)
10763 (if #{tmp\ 5253}#
10764 (apply (lambda () #{y\ 5251}#)
10765 #{tmp\ 5253}#)
10766 ((lambda (#{_\ 5254}#)
10767 (#{build-conditional\ 3761}#
10768 #f
10769 #{y\ 5251}#
10770 (#{build-dispatch-call\ 5219}#
10771 #{pvars\ 5248}#
10772 #{fender\ 5244}#
10773 #{y\ 5251}#
10774 #{r\ 5242}#
10775 #{mod\ 5246}#)
10776 (#{build-data\ 3773}#
10777 #f
10778 #f)))
10779 #{tmp\ 5252}#)))
10780 ($sc-dispatch
10781 #{tmp\ 5252}#
10782 '#(atom #t))))
10783 #{fender\ 5244}#)
10784 (#{build-dispatch-call\ 5219}#
10785 #{pvars\ 5248}#
10786 #{exp\ 5245}#
10787 #{y\ 5251}#
10788 #{r\ 5242}#
10789 #{mod\ 5246}#)
10790 (#{gen-syntax-case\ 5221}#
10791 #{x\ 5239}#
10792 #{keys\ 5240}#
10793 #{clauses\ 5241}#
10794 #{r\ 5242}#
10795 #{mod\ 5246}#))))
10796 (list (if (eq? #{p\ 5247}# (quote any))
10797 (#{build-application\ 3760}#
10798 #f
10799 (#{build-primref\ 3772}#
10800 #f
10801 'list)
10802 (list #{x\ 5239}#))
10803 (#{build-application\ 3760}#
10804 #f
10805 (#{build-primref\ 3772}#
10806 #f
10807 '$sc-dispatch)
10808 (list #{x\ 5239}#
10809 (#{build-data\ 3773}#
10810 #f
10811 #{p\ 5247}#)))))))))))))
10812 (#{build-dispatch-call\ 5219}#
10813 (lambda (#{pvars\ 5255}#
10814 #{exp\ 5256}#
10815 #{y\ 5257}#
10816 #{r\ 5258}#
10817 #{mod\ 5259}#)
10818 (let ((#{ids\ 5260}# (map car #{pvars\ 5255}#))
10819 (#{levels\ 5261}# (map cdr #{pvars\ 5255}#)))
10820 (let ((#{labels\ 5262}#
10821 (#{gen-labels\ 3801}# #{ids\ 5260}#))
10822 (#{new-vars\ 5263}#
10823 (map #{gen-var\ 3845}# #{ids\ 5260}#)))
10824 (#{build-application\ 3760}#
10825 #f
10826 (#{build-primref\ 3772}# #f (quote apply))
10827 (list (#{build-simple-lambda\ 3769}#
10828 #f
10829 (map syntax->datum #{ids\ 5260}#)
10830 #f
10831 #{new-vars\ 5263}#
10832 #f
10833 (#{chi\ 3831}#
10834 #{exp\ 5256}#
10835 (#{extend-env\ 3789}#
10836 #{labels\ 5262}#
10837 (map (lambda (#{var\ 5264}#
10838 #{level\ 5265}#)
10839 (cons 'syntax
10840 (cons #{var\ 5264}#
10841 #{level\ 5265}#)))
10842 #{new-vars\ 5263}#
10843 (map cdr #{pvars\ 5255}#))
10844 #{r\ 5258}#)
10845 (#{make-binding-wrap\ 3812}#
10846 #{ids\ 5260}#
10847 #{labels\ 5262}#
10848 '(()))
10849 #{mod\ 5259}#))
10850 #{y\ 5257}#))))))
10851 (#{convert-pattern\ 5218}#
10852 (lambda (#{pattern\ 5266}# #{keys\ 5267}#)
10853 (letrec ((#{cvt\ 5268}#
10854 (lambda (#{p\ 5269}# #{n\ 5270}# #{ids\ 5271}#)
10855 (if (#{id?\ 3795}# #{p\ 5269}#)
10856 (if (#{bound-id-member?\ 3822}#
10857 #{p\ 5269}#
10858 #{keys\ 5267}#)
10859 (values
10860 (vector (quote free-id) #{p\ 5269}#)
10861 #{ids\ 5271}#)
10862 (values
10863 'any
10864 (cons (cons #{p\ 5269}# #{n\ 5270}#)
10865 #{ids\ 5271}#)))
10866 ((lambda (#{tmp\ 5272}#)
10867 ((lambda (#{tmp\ 5273}#)
10868 (if (if #{tmp\ 5273}#
10869 (apply (lambda (#{x\ 5274}#
10870 #{dots\ 5275}#)
10871 (#{ellipsis?\ 3839}#
10872 #{dots\ 5275}#))
10873 #{tmp\ 5273}#)
10874 #f)
10875 (apply (lambda (#{x\ 5276}#
10876 #{dots\ 5277}#)
10877 (call-with-values
10878 (lambda ()
10879 (#{cvt\ 5268}#
10880 #{x\ 5276}#
10881 (#{fx+\ 3750}#
10882 #{n\ 5270}#
10883 1)
10884 #{ids\ 5271}#))
10885 (lambda (#{p\ 5278}#
10886 #{ids\ 5279}#)
10887 (values
10888 (if (eq? #{p\ 5278}#
10889 'any)
10890 'each-any
10891 (vector
10892 'each
10893 #{p\ 5278}#))
10894 #{ids\ 5279}#))))
10895 #{tmp\ 5273}#)
10896 ((lambda (#{tmp\ 5280}#)
10897 (if #{tmp\ 5280}#
10898 (apply (lambda (#{x\ 5281}#
10899 #{y\ 5282}#)
10900 (call-with-values
10901 (lambda ()
10902 (#{cvt\ 5268}#
10903 #{y\ 5282}#
10904 #{n\ 5270}#
10905 #{ids\ 5271}#))
10906 (lambda (#{y\ 5283}#
10907 #{ids\ 5284}#)
10908 (call-with-values
10909 (lambda ()
10910 (#{cvt\ 5268}#
10911 #{x\ 5281}#
10912 #{n\ 5270}#
10913 #{ids\ 5284}#))
10914 (lambda (#{x\ 5285}#
10915 #{ids\ 5286}#)
10916 (values
10917 (cons #{x\ 5285}#
10918 #{y\ 5283}#)
10919 #{ids\ 5286}#))))))
10920 #{tmp\ 5280}#)
10921 ((lambda (#{tmp\ 5287}#)
10922 (if #{tmp\ 5287}#
10923 (apply (lambda ()
10924 (values
10925 '()
10926 #{ids\ 5271}#))
10927 #{tmp\ 5287}#)
10928 ((lambda (#{tmp\ 5288}#)
10929 (if #{tmp\ 5288}#
10930 (apply (lambda (#{x\ 5289}#)
10931 (call-with-values
10932 (lambda ()
10933 (#{cvt\ 5268}#
10934 #{x\ 5289}#
10935 #{n\ 5270}#
10936 #{ids\ 5271}#))
10937 (lambda (#{p\ 5291}#
10938 #{ids\ 5292}#)
10939 (values
10940 (vector
10941 'vector
10942 #{p\ 5291}#)
10943 #{ids\ 5292}#))))
10944 #{tmp\ 5288}#)
10945 ((lambda (#{x\ 5293}#)
10946 (values
10947 (vector
10948 'atom
10949 (#{strip\ 3844}#
10950 #{p\ 5269}#
10951 '(())))
10952 #{ids\ 5271}#))
10953 #{tmp\ 5272}#)))
10954 ($sc-dispatch
10955 #{tmp\ 5272}#
10956 '#(vector
10957 each-any)))))
10958 ($sc-dispatch
10959 #{tmp\ 5272}#
10960 '()))))
10961 ($sc-dispatch
10962 #{tmp\ 5272}#
10963 '(any . any)))))
10964 ($sc-dispatch
10965 #{tmp\ 5272}#
10966 '(any any))))
10967 #{p\ 5269}#)))))
10968 (#{cvt\ 5268}# #{pattern\ 5266}# 0 (quote ()))))))
10969 (lambda (#{e\ 5294}#
10970 #{r\ 5295}#
10971 #{w\ 5296}#
10972 #{s\ 5297}#
10973 #{mod\ 5298}#)
10974 (let ((#{e\ 5299}#
10975 (#{source-wrap\ 3824}#
10976 #{e\ 5294}#
10977 #{w\ 5296}#
10978 #{s\ 5297}#
10979 #{mod\ 5298}#)))
10980 ((lambda (#{tmp\ 5300}#)
10981 ((lambda (#{tmp\ 5301}#)
10982 (if #{tmp\ 5301}#
10983 (apply (lambda (#{_\ 5302}#
10984 #{val\ 5303}#
10985 #{key\ 5304}#
10986 #{m\ 5305}#)
10987 (if (and-map
10988 (lambda (#{x\ 5306}#)
10989 (if (#{id?\ 3795}# #{x\ 5306}#)
10990 (not (#{ellipsis?\ 3839}#
10991 #{x\ 5306}#))
10992 #f))
10993 #{key\ 5304}#)
10994 (let ((#{x\ 5308}#
10995 (#{gen-var\ 3845}# (quote tmp))))
10996 (#{build-application\ 3760}#
10997 #{s\ 5297}#
10998 (#{build-simple-lambda\ 3769}#
10999 #f
11000 (list (quote tmp))
11001 #f
11002 (list #{x\ 5308}#)
11003 #f
11004 (#{gen-syntax-case\ 5221}#
11005 (#{build-lexical-reference\ 3762}#
11006 'value
11007 #f
11008 'tmp
11009 #{x\ 5308}#)
11010 #{key\ 5304}#
11011 #{m\ 5305}#
11012 #{r\ 5295}#
11013 #{mod\ 5298}#))
11014 (list (#{chi\ 3831}#
11015 #{val\ 5303}#
11016 #{r\ 5295}#
11017 '(())
11018 #{mod\ 5298}#))))
11019 (syntax-violation
11020 'syntax-case
11021 "invalid literals list"
11022 #{e\ 5299}#)))
11023 #{tmp\ 5301}#)
11024 (syntax-violation
11025 #f
11026 "source expression failed to match any pattern"
11027 #{tmp\ 5300}#)))
11028 ($sc-dispatch
11029 #{tmp\ 5300}#
11030 '(any any each-any . each-any))))
11031 #{e\ 5299}#)))))
11032 (set! sc-expand
11033 (lambda (#{x\ 5311}# . #{rest\ 5312}#)
11034 (if (if (pair? #{x\ 5311}#)
11035 (equal? (car #{x\ 5311}#) #{noexpand\ 3748}#)
11036 #f)
11037 (cadr #{x\ 5311}#)
11038 (let ((#{m\ 5313}#
11039 (if (null? #{rest\ 5312}#)
11040 'e
11041 (car #{rest\ 5312}#)))
11042 (#{esew\ 5314}#
11043 (if (let ((#{t\ 5315}# (null? #{rest\ 5312}#)))
11044 (if #{t\ 5315}#
11045 #{t\ 5315}#
11046 (null? (cdr #{rest\ 5312}#))))
11047 '(eval)
11048 (cadr #{rest\ 5312}#))))
11049 (with-fluid*
11050 #{*mode*\ 3749}#
11051 #{m\ 5313}#
11052 (lambda ()
11053 (#{chi-top\ 3830}#
11054 #{x\ 5311}#
11055 '()
11056 '((top))
11057 #{m\ 5313}#
11058 #{esew\ 5314}#
11059 (cons 'hygiene
11060 (module-name (current-module))))))))))
11061 (set! identifier?
11062 (lambda (#{x\ 5316}#)
11063 (#{nonsymbol-id?\ 3794}# #{x\ 5316}#)))
11064 (set! datum->syntax
11065 (lambda (#{id\ 5317}# #{datum\ 5318}#)
11066 (#{make-syntax-object\ 3778}#
11067 #{datum\ 5318}#
11068 (#{syntax-object-wrap\ 3781}# #{id\ 5317}#)
11069 #f)))
11070 (set! syntax->datum
11071 (lambda (#{x\ 5319}#)
11072 (#{strip\ 3844}# #{x\ 5319}# (quote (())))))
11073 (set! generate-temporaries
11074 (lambda (#{ls\ 5320}#)
11075 (begin
11076 (let ((#{x\ 5321}# #{ls\ 5320}#))
11077 (if (not (list? #{x\ 5321}#))
11078 (syntax-violation
11079 'generate-temporaries
11080 "invalid argument"
11081 #{x\ 5321}#)))
11082 (map (lambda (#{x\ 5322}#)
11083 (#{wrap\ 3823}# (gensym) (quote ((top))) #f))
11084 #{ls\ 5320}#))))
11085 (set! free-identifier=?
11086 (lambda (#{x\ 5323}# #{y\ 5324}#)
11087 (begin
11088 (let ((#{x\ 5325}# #{x\ 5323}#))
11089 (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5325}#))
11090 (syntax-violation
11091 'free-identifier=?
11092 "invalid argument"
11093 #{x\ 5325}#)))
11094 (let ((#{x\ 5326}# #{y\ 5324}#))
11095 (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5326}#))
11096 (syntax-violation
11097 'free-identifier=?
11098 "invalid argument"
11099 #{x\ 5326}#)))
11100 (#{free-id=?\ 3818}# #{x\ 5323}# #{y\ 5324}#))))
11101 (set! bound-identifier=?
11102 (lambda (#{x\ 5327}# #{y\ 5328}#)
11103 (begin
11104 (let ((#{x\ 5329}# #{x\ 5327}#))
11105 (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5329}#))
11106 (syntax-violation
11107 'bound-identifier=?
11108 "invalid argument"
11109 #{x\ 5329}#)))
11110 (let ((#{x\ 5330}# #{y\ 5328}#))
11111 (if (not (#{nonsymbol-id?\ 3794}# #{x\ 5330}#))
11112 (syntax-violation
11113 'bound-identifier=?
11114 "invalid argument"
11115 #{x\ 5330}#)))
11116 (#{bound-id=?\ 3819}# #{x\ 5327}# #{y\ 5328}#))))
11117 (set! syntax-violation
11118 (lambda (#{who\ 5331}#
11119 #{message\ 5332}#
11120 #{form\ 5333}#
11121 .
11122 #{subform\ 5334}#)
11123 (begin
11124 (let ((#{x\ 5335}# #{who\ 5331}#))
11125 (if (not ((lambda (#{x\ 5336}#)
11126 (let ((#{t\ 5337}# (not #{x\ 5336}#)))
11127 (if #{t\ 5337}#
11128 #{t\ 5337}#
11129 (let ((#{t\ 5338}# (string? #{x\ 5336}#)))
11130 (if #{t\ 5338}#
11131 #{t\ 5338}#
11132 (symbol? #{x\ 5336}#))))))
11133 #{x\ 5335}#))
11134 (syntax-violation
11135 'syntax-violation
11136 "invalid argument"
11137 #{x\ 5335}#)))
11138 (let ((#{x\ 5339}# #{message\ 5332}#))
11139 (if (not (string? #{x\ 5339}#))
11140 (syntax-violation
11141 'syntax-violation
11142 "invalid argument"
11143 #{x\ 5339}#)))
11144 (scm-error
11145 'syntax-error
11146 'sc-expand
11147 (string-append
11148 (if #{who\ 5331}# "~a: " "")
11149 "~a "
11150 (if (null? #{subform\ 5334}#)
11151 "in ~a"
11152 "in subform `~s' of `~s'"))
11153 (let ((#{tail\ 5340}#
11154 (cons #{message\ 5332}#
11155 (map (lambda (#{x\ 5341}#)
11156 (#{strip\ 3844}# #{x\ 5341}# (quote (()))))
11157 (append
11158 #{subform\ 5334}#
11159 (list #{form\ 5333}#))))))
11160 (if #{who\ 5331}#
11161 (cons #{who\ 5331}# #{tail\ 5340}#)
11162 #{tail\ 5340}#))
11163 #f))))
11164 (letrec ((#{match\ 5346}#
11165 (lambda (#{e\ 5347}#
11166 #{p\ 5348}#
11167 #{w\ 5349}#
11168 #{r\ 5350}#
11169 #{mod\ 5351}#)
11170 (if (not #{r\ 5350}#)
11171 #f
11172 (if (eq? #{p\ 5348}# (quote any))
11173 (cons (#{wrap\ 3823}#
11174 #{e\ 5347}#
11175 #{w\ 5349}#
11176 #{mod\ 5351}#)
11177 #{r\ 5350}#)
11178 (if (#{syntax-object?\ 3779}# #{e\ 5347}#)
11179 (#{match*\ 5345}#
11180 (#{syntax-object-expression\ 3780}# #{e\ 5347}#)
11181 #{p\ 5348}#
11182 (#{join-wraps\ 3814}#
11183 #{w\ 5349}#
11184 (#{syntax-object-wrap\ 3781}# #{e\ 5347}#))
11185 #{r\ 5350}#
11186 (#{syntax-object-module\ 3782}# #{e\ 5347}#))
11187 (#{match*\ 5345}#
11188 #{e\ 5347}#
11189 #{p\ 5348}#
11190 #{w\ 5349}#
11191 #{r\ 5350}#
11192 #{mod\ 5351}#))))))
11193 (#{match*\ 5345}#
11194 (lambda (#{e\ 5352}#
11195 #{p\ 5353}#
11196 #{w\ 5354}#
11197 #{r\ 5355}#
11198 #{mod\ 5356}#)
11199 (if (null? #{p\ 5353}#)
11200 (if (null? #{e\ 5352}#) #{r\ 5355}# #f)
11201 (if (pair? #{p\ 5353}#)
11202 (if (pair? #{e\ 5352}#)
11203 (#{match\ 5346}#
11204 (car #{e\ 5352}#)
11205 (car #{p\ 5353}#)
11206 #{w\ 5354}#
11207 (#{match\ 5346}#
11208 (cdr #{e\ 5352}#)
11209 (cdr #{p\ 5353}#)
11210 #{w\ 5354}#
11211 #{r\ 5355}#
11212 #{mod\ 5356}#)
11213 #{mod\ 5356}#)
11214 #f)
11215 (if (eq? #{p\ 5353}# (quote each-any))
11216 (let ((#{l\ 5357}#
11217 (#{match-each-any\ 5343}#
11218 #{e\ 5352}#
11219 #{w\ 5354}#
11220 #{mod\ 5356}#)))
11221 (if #{l\ 5357}#
11222 (cons #{l\ 5357}# #{r\ 5355}#)
11223 #f))
11224 (let ((#{atom-key\ 5358}# (vector-ref #{p\ 5353}# 0)))
11225 (if (memv #{atom-key\ 5358}# (quote (each)))
11226 (if (null? #{e\ 5352}#)
11227 (#{match-empty\ 5344}#
11228 (vector-ref #{p\ 5353}# 1)
11229 #{r\ 5355}#)
11230 (let ((#{l\ 5359}#
11231 (#{match-each\ 5342}#
11232 #{e\ 5352}#
11233 (vector-ref #{p\ 5353}# 1)
11234 #{w\ 5354}#
11235 #{mod\ 5356}#)))
11236 (if #{l\ 5359}#
11237 (letrec ((#{collect\ 5360}#
11238 (lambda (#{l\ 5361}#)
11239 (if (null? (car #{l\ 5361}#))
11240 #{r\ 5355}#
11241 (cons (map car #{l\ 5361}#)
11242 (#{collect\ 5360}#
11243 (map cdr
11244 #{l\ 5361}#)))))))
11245 (#{collect\ 5360}# #{l\ 5359}#))
11246 #f)))
11247 (if (memv #{atom-key\ 5358}# (quote (free-id)))
11248 (if (#{id?\ 3795}# #{e\ 5352}#)
11249 (if (#{free-id=?\ 3818}#
11250 (#{wrap\ 3823}#
11251 #{e\ 5352}#
11252 #{w\ 5354}#
11253 #{mod\ 5356}#)
11254 (vector-ref #{p\ 5353}# 1))
11255 #{r\ 5355}#
11256 #f)
11257 #f)
11258 (if (memv #{atom-key\ 5358}# (quote (atom)))
11259 (if (equal?
11260 (vector-ref #{p\ 5353}# 1)
11261 (#{strip\ 3844}#
11262 #{e\ 5352}#
11263 #{w\ 5354}#))
11264 #{r\ 5355}#
11265 #f)
11266 (if (memv #{atom-key\ 5358}# (quote (vector)))
11267 (if (vector? #{e\ 5352}#)
11268 (#{match\ 5346}#
11269 (vector->list #{e\ 5352}#)
11270 (vector-ref #{p\ 5353}# 1)
11271 #{w\ 5354}#
11272 #{r\ 5355}#
11273 #{mod\ 5356}#)
11274 #f)))))))))))
11275 (#{match-empty\ 5344}#
11276 (lambda (#{p\ 5362}# #{r\ 5363}#)
11277 (if (null? #{p\ 5362}#)
11278 #{r\ 5363}#
11279 (if (eq? #{p\ 5362}# (quote any))
11280 (cons (quote ()) #{r\ 5363}#)
11281 (if (pair? #{p\ 5362}#)
11282 (#{match-empty\ 5344}#
11283 (car #{p\ 5362}#)
11284 (#{match-empty\ 5344}#
11285 (cdr #{p\ 5362}#)
11286 #{r\ 5363}#))
11287 (if (eq? #{p\ 5362}# (quote each-any))
11288 (cons (quote ()) #{r\ 5363}#)
11289 (let ((#{atom-key\ 5364}#
11290 (vector-ref #{p\ 5362}# 0)))
11291 (if (memv #{atom-key\ 5364}# (quote (each)))
11292 (#{match-empty\ 5344}#
11293 (vector-ref #{p\ 5362}# 1)
11294 #{r\ 5363}#)
11295 (if (memv #{atom-key\ 5364}#
11296 '(free-id atom))
11297 #{r\ 5363}#
11298 (if (memv #{atom-key\ 5364}# (quote (vector)))
11299 (#{match-empty\ 5344}#
11300 (vector-ref #{p\ 5362}# 1)
11301 #{r\ 5363}#)))))))))))
11302 (#{match-each-any\ 5343}#
11303 (lambda (#{e\ 5365}# #{w\ 5366}# #{mod\ 5367}#)
11304 (if (pair? #{e\ 5365}#)
11305 (let ((#{l\ 5368}#
11306 (#{match-each-any\ 5343}#
11307 (cdr #{e\ 5365}#)
11308 #{w\ 5366}#
11309 #{mod\ 5367}#)))
11310 (if #{l\ 5368}#
11311 (cons (#{wrap\ 3823}#
11312 (car #{e\ 5365}#)
11313 #{w\ 5366}#
11314 #{mod\ 5367}#)
11315 #{l\ 5368}#)
11316 #f))
11317 (if (null? #{e\ 5365}#)
11318 '()
11319 (if (#{syntax-object?\ 3779}# #{e\ 5365}#)
11320 (#{match-each-any\ 5343}#
11321 (#{syntax-object-expression\ 3780}# #{e\ 5365}#)
11322 (#{join-wraps\ 3814}#
11323 #{w\ 5366}#
11324 (#{syntax-object-wrap\ 3781}# #{e\ 5365}#))
11325 #{mod\ 5367}#)
11326 #f)))))
11327 (#{match-each\ 5342}#
11328 (lambda (#{e\ 5369}#
11329 #{p\ 5370}#
11330 #{w\ 5371}#
11331 #{mod\ 5372}#)
11332 (if (pair? #{e\ 5369}#)
11333 (let ((#{first\ 5373}#
11334 (#{match\ 5346}#
11335 (car #{e\ 5369}#)
11336 #{p\ 5370}#
11337 #{w\ 5371}#
11338 '()
11339 #{mod\ 5372}#)))
11340 (if #{first\ 5373}#
11341 (let ((#{rest\ 5374}#
11342 (#{match-each\ 5342}#
11343 (cdr #{e\ 5369}#)
11344 #{p\ 5370}#
11345 #{w\ 5371}#
11346 #{mod\ 5372}#)))
11347 (if #{rest\ 5374}#
11348 (cons #{first\ 5373}# #{rest\ 5374}#)
11349 #f))
11350 #f))
11351 (if (null? #{e\ 5369}#)
11352 '()
11353 (if (#{syntax-object?\ 3779}# #{e\ 5369}#)
11354 (#{match-each\ 5342}#
11355 (#{syntax-object-expression\ 3780}# #{e\ 5369}#)
11356 #{p\ 5370}#
11357 (#{join-wraps\ 3814}#
11358 #{w\ 5371}#
11359 (#{syntax-object-wrap\ 3781}# #{e\ 5369}#))
11360 (#{syntax-object-module\ 3782}# #{e\ 5369}#))
11361 #f))))))
11362 (set! $sc-dispatch
11363 (lambda (#{e\ 5375}# #{p\ 5376}#)
11364 (if (eq? #{p\ 5376}# (quote any))
11365 (list #{e\ 5375}#)
11366 (if (#{syntax-object?\ 3779}# #{e\ 5375}#)
11367 (#{match*\ 5345}#
11368 (#{syntax-object-expression\ 3780}# #{e\ 5375}#)
11369 #{p\ 5376}#
11370 (#{syntax-object-wrap\ 3781}# #{e\ 5375}#)
11371 '()
11372 (#{syntax-object-module\ 3782}# #{e\ 5375}#))
11373 (#{match*\ 5345}#
11374 #{e\ 5375}#
11375 #{p\ 5376}#
11376 '(())
11377 '()
11378 #f)))))))))
11379
11380 (define with-syntax
11381 (make-syncase-macro
11382 'macro
11383 (cons (lambda (#{x\ 5377}#)
11384 ((lambda (#{tmp\ 5378}#)
11385 ((lambda (#{tmp\ 5379}#)
11386 (if #{tmp\ 5379}#
11387 (apply (lambda (#{_\ 5380}# #{e1\ 5381}# #{e2\ 5382}#)
11388 (cons '#(syntax-object
11389 begin
11390 ((top)
11391 #(ribcage
11392 #(_ e1 e2)
11393 #((top) (top) (top))
11394 #("i" "i" "i"))
11395 #(ribcage () () ())
11396 #(ribcage #(x) #((top)) #("i")))
11397 (hygiene guile))
11398 (cons #{e1\ 5381}# #{e2\ 5382}#)))
11399 #{tmp\ 5379}#)
11400 ((lambda (#{tmp\ 5384}#)
11401 (if #{tmp\ 5384}#
11402 (apply (lambda (#{_\ 5385}#
11403 #{out\ 5386}#
11404 #{in\ 5387}#
11405 #{e1\ 5388}#
11406 #{e2\ 5389}#)
11407 (list '#(syntax-object
11408 syntax-case
11409 ((top)
11410 #(ribcage
11411 #(_ out in e1 e2)
11412 #((top) (top) (top) (top) (top))
11413 #("i" "i" "i" "i" "i"))
11414 #(ribcage () () ())
11415 #(ribcage #(x) #((top)) #("i")))
11416 (hygiene guile))
11417 #{in\ 5387}#
11418 '()
11419 (list #{out\ 5386}#
11420 (cons '#(syntax-object
11421 begin
11422 ((top)
11423 #(ribcage
11424 #(_ out in e1 e2)
11425 #((top)
11426 (top)
11427 (top)
11428 (top)
11429 (top))
11430 #("i"
11431 "i"
11432 "i"
11433 "i"
11434 "i"))
11435 #(ribcage () () ())
11436 #(ribcage
11437 #(x)
11438 #((top))
11439 #("i")))
11440 (hygiene guile))
11441 (cons #{e1\ 5388}#
11442 #{e2\ 5389}#)))))
11443 #{tmp\ 5384}#)
11444 ((lambda (#{tmp\ 5391}#)
11445 (if #{tmp\ 5391}#
11446 (apply (lambda (#{_\ 5392}#
11447 #{out\ 5393}#
11448 #{in\ 5394}#
11449 #{e1\ 5395}#
11450 #{e2\ 5396}#)
11451 (list '#(syntax-object
11452 syntax-case
11453 ((top)
11454 #(ribcage
11455 #(_ out in e1 e2)
11456 #((top)
11457 (top)
11458 (top)
11459 (top)
11460 (top))
11461 #("i" "i" "i" "i" "i"))
11462 #(ribcage () () ())
11463 #(ribcage
11464 #(x)
11465 #((top))
11466 #("i")))
11467 (hygiene guile))
11468 (cons '#(syntax-object
11469 list
11470 ((top)
11471 #(ribcage
11472 #(_ out in e1 e2)
11473 #((top)
11474 (top)
11475 (top)
11476 (top)
11477 (top))
11478 #("i"
11479 "i"
11480 "i"
11481 "i"
11482 "i"))
11483 #(ribcage () () ())
11484 #(ribcage
11485 #(x)
11486 #((top))
11487 #("i")))
11488 (hygiene guile))
11489 #{in\ 5394}#)
11490 '()
11491 (list #{out\ 5393}#
11492 (cons '#(syntax-object
11493 begin
11494 ((top)
11495 #(ribcage
11496 #(_
11497 out
11498 in
11499 e1
11500 e2)
11501 #((top)
11502 (top)
11503 (top)
11504 (top)
11505 (top))
11506 #("i"
11507 "i"
11508 "i"
11509 "i"
11510 "i"))
11511 #(ribcage
11512 ()
11513 ()
11514 ())
11515 #(ribcage
11516 #(x)
11517 #((top))
11518 #("i")))
11519 (hygiene guile))
11520 (cons #{e1\ 5395}#
11521 #{e2\ 5396}#)))))
11522 #{tmp\ 5391}#)
11523 (syntax-violation
11524 #f
11525 "source expression failed to match any pattern"
11526 #{tmp\ 5378}#)))
11527 ($sc-dispatch
11528 #{tmp\ 5378}#
11529 '(any #(each (any any)) any . each-any)))))
11530 ($sc-dispatch
11531 #{tmp\ 5378}#
11532 '(any ((any any)) any . each-any)))))
11533 ($sc-dispatch
11534 #{tmp\ 5378}#
11535 '(any () any . each-any))))
11536 #{x\ 5377}#))
11537 (module-name (current-module)))))
11538
11539 (define syntax-rules
11540 (make-syncase-macro
11541 'macro
11542 (cons (lambda (#{x\ 5400}#)
11543 ((lambda (#{tmp\ 5401}#)
11544 ((lambda (#{tmp\ 5402}#)
11545 (if #{tmp\ 5402}#
11546 (apply (lambda (#{_\ 5403}#
11547 #{k\ 5404}#
11548 #{keyword\ 5405}#
11549 #{pattern\ 5406}#
11550 #{template\ 5407}#)
11551 (list '#(syntax-object
11552 lambda
11553 ((top)
11554 #(ribcage
11555 #(_ k keyword pattern template)
11556 #((top) (top) (top) (top) (top))
11557 #("i" "i" "i" "i" "i"))
11558 #(ribcage () () ())
11559 #(ribcage #(x) #((top)) #("i")))
11560 (hygiene guile))
11561 '(#(syntax-object
11562 x
11563 ((top)
11564 #(ribcage
11565 #(_ k keyword pattern template)
11566 #((top) (top) (top) (top) (top))
11567 #("i" "i" "i" "i" "i"))
11568 #(ribcage () () ())
11569 #(ribcage #(x) #((top)) #("i")))
11570 (hygiene guile)))
11571 (cons '#(syntax-object
11572 syntax-case
11573 ((top)
11574 #(ribcage
11575 #(_ k keyword pattern template)
11576 #((top) (top) (top) (top) (top))
11577 #("i" "i" "i" "i" "i"))
11578 #(ribcage () () ())
11579 #(ribcage #(x) #((top)) #("i")))
11580 (hygiene guile))
11581 (cons '#(syntax-object
11582 x
11583 ((top)
11584 #(ribcage
11585 #(_
11586 k
11587 keyword
11588 pattern
11589 template)
11590 #((top)
11591 (top)
11592 (top)
11593 (top)
11594 (top))
11595 #("i" "i" "i" "i" "i"))
11596 #(ribcage () () ())
11597 #(ribcage
11598 #(x)
11599 #((top))
11600 #("i")))
11601 (hygiene guile))
11602 (cons #{k\ 5404}#
11603 (map (lambda (#{tmp\ 5410}#
11604 #{tmp\ 5409}#)
11605 (list (cons '#(syntax-object
11606 dummy
11607 ((top)
11608 #(ribcage
11609 #(_
11610 k
11611 keyword
11612 pattern
11613 template)
11614 #((top)
11615 (top)
11616 (top)
11617 (top)
11618 (top))
11619 #("i"
11620 "i"
11621 "i"
11622 "i"
11623 "i"))
11624 #(ribcage
11625 ()
11626 ()
11627 ())
11628 #(ribcage
11629 #(x)
11630 #((top))
11631 #("i")))
11632 (hygiene
11633 guile))
11634 #{tmp\ 5409}#)
11635 (list '#(syntax-object
11636 syntax
11637 ((top)
11638 #(ribcage
11639 #(_
11640 k
11641 keyword
11642 pattern
11643 template)
11644 #((top)
11645 (top)
11646 (top)
11647 (top)
11648 (top))
11649 #("i"
11650 "i"
11651 "i"
11652 "i"
11653 "i"))
11654 #(ribcage
11655 ()
11656 ()
11657 ())
11658 #(ribcage
11659 #(x)
11660 #((top))
11661 #("i")))
11662 (hygiene
11663 guile))
11664 #{tmp\ 5410}#)))
11665 #{template\ 5407}#
11666 #{pattern\ 5406}#))))))
11667 #{tmp\ 5402}#)
11668 (syntax-violation
11669 #f
11670 "source expression failed to match any pattern"
11671 #{tmp\ 5401}#)))
11672 ($sc-dispatch
11673 #{tmp\ 5401}#
11674 '(any each-any . #(each ((any . any) any))))))
11675 #{x\ 5400}#))
11676 (module-name (current-module)))))
11677
11678 (define let*
11679 (make-extended-syncase-macro
11680 (module-ref (current-module) (quote let*))
11681 'macro
11682 (cons (lambda (#{x\ 5411}#)
11683 ((lambda (#{tmp\ 5412}#)
11684 ((lambda (#{tmp\ 5413}#)
11685 (if (if #{tmp\ 5413}#
11686 (apply (lambda (#{let*\ 5414}#
11687 #{x\ 5415}#
11688 #{v\ 5416}#
11689 #{e1\ 5417}#
11690 #{e2\ 5418}#)
11691 (and-map identifier? #{x\ 5415}#))
11692 #{tmp\ 5413}#)
11693 #f)
11694 (apply (lambda (#{let*\ 5420}#
11695 #{x\ 5421}#
11696 #{v\ 5422}#
11697 #{e1\ 5423}#
11698 #{e2\ 5424}#)
11699 (letrec ((#{f\ 5425}#
11700 (lambda (#{bindings\ 5426}#)
11701 (if (null? #{bindings\ 5426}#)
11702 (cons '#(syntax-object
11703 let
11704 ((top)
11705 #(ribcage () () ())
11706 #(ribcage
11707 #(f bindings)
11708 #((top) (top))
11709 #("i" "i"))
11710 #(ribcage
11711 #(let* x v e1 e2)
11712 #((top)
11713 (top)
11714 (top)
11715 (top)
11716 (top))
11717 #("i" "i" "i" "i" "i"))
11718 #(ribcage () () ())
11719 #(ribcage
11720 #(x)
11721 #((top))
11722 #("i")))
11723 (hygiene guile))
11724 (cons '()
11725 (cons #{e1\ 5423}#
11726 #{e2\ 5424}#)))
11727 ((lambda (#{tmp\ 5430}#)
11728 ((lambda (#{tmp\ 5431}#)
11729 (if #{tmp\ 5431}#
11730 (apply (lambda (#{body\ 5432}#
11731 #{binding\ 5433}#)
11732 (list '#(syntax-object
11733 let
11734 ((top)
11735 #(ribcage
11736 #(body
11737 binding)
11738 #((top)
11739 (top))
11740 #("i"
11741 "i"))
11742 #(ribcage
11743 ()
11744 ()
11745 ())
11746 #(ribcage
11747 #(f
11748 bindings)
11749 #((top)
11750 (top))
11751 #("i"
11752 "i"))
11753 #(ribcage
11754 #(let*
11755 x
11756 v
11757 e1
11758 e2)
11759 #((top)
11760 (top)
11761 (top)
11762 (top)
11763 (top))
11764 #("i"
11765 "i"
11766 "i"
11767 "i"
11768 "i"))
11769 #(ribcage
11770 ()
11771 ()
11772 ())
11773 #(ribcage
11774 #(x)
11775 #((top))
11776 #("i")))
11777 (hygiene
11778 guile))
11779 (list #{binding\ 5433}#)
11780 #{body\ 5432}#))
11781 #{tmp\ 5431}#)
11782 (syntax-violation
11783 #f
11784 "source expression failed to match any pattern"
11785 #{tmp\ 5430}#)))
11786 ($sc-dispatch
11787 #{tmp\ 5430}#
11788 '(any any))))
11789 (list (#{f\ 5425}#
11790 (cdr #{bindings\ 5426}#))
11791 (car #{bindings\ 5426}#)))))))
11792 (#{f\ 5425}#
11793 (map list #{x\ 5421}# #{v\ 5422}#))))
11794 #{tmp\ 5413}#)
11795 (syntax-violation
11796 #f
11797 "source expression failed to match any pattern"
11798 #{tmp\ 5412}#)))
11799 ($sc-dispatch
11800 #{tmp\ 5412}#
11801 '(any #(each (any any)) any . each-any))))
11802 #{x\ 5411}#))
11803 (module-name (current-module)))))
11804
11805 (define do
11806 (make-syncase-macro
11807 'macro
11808 (cons (lambda (#{orig-x\ 5434}#)
11809 ((lambda (#{tmp\ 5435}#)
11810 ((lambda (#{tmp\ 5436}#)
11811 (if #{tmp\ 5436}#
11812 (apply (lambda (#{_\ 5437}#
11813 #{var\ 5438}#
11814 #{init\ 5439}#
11815 #{step\ 5440}#
11816 #{e0\ 5441}#
11817 #{e1\ 5442}#
11818 #{c\ 5443}#)
11819 ((lambda (#{tmp\ 5444}#)
11820 ((lambda (#{tmp\ 5445}#)
11821 (if #{tmp\ 5445}#
11822 (apply (lambda (#{step\ 5446}#)
11823 ((lambda (#{tmp\ 5447}#)
11824 ((lambda (#{tmp\ 5448}#)
11825 (if #{tmp\ 5448}#
11826 (apply (lambda ()
11827 (list '#(syntax-object
11828 let
11829 ((top)
11830 #(ribcage
11831 #(step)
11832 #((top))
11833 #("i"))
11834 #(ribcage
11835 #(_
11836 var
11837 init
11838 step
11839 e0
11840 e1
11841 c)
11842 #((top)
11843 (top)
11844 (top)
11845 (top)
11846 (top)
11847 (top)
11848 (top))
11849 #("i"
11850 "i"
11851 "i"
11852 "i"
11853 "i"
11854 "i"
11855 "i"))
11856 #(ribcage
11857 ()
11858 ()
11859 ())
11860 #(ribcage
11861 #(orig-x)
11862 #((top))
11863 #("i")))
11864 (hygiene
11865 guile))
11866 '#(syntax-object
11867 doloop
11868 ((top)
11869 #(ribcage
11870 #(step)
11871 #((top))
11872 #("i"))
11873 #(ribcage
11874 #(_
11875 var
11876 init
11877 step
11878 e0
11879 e1
11880 c)
11881 #((top)
11882 (top)
11883 (top)
11884 (top)
11885 (top)
11886 (top)
11887 (top))
11888 #("i"
11889 "i"
11890 "i"
11891 "i"
11892 "i"
11893 "i"
11894 "i"))
11895 #(ribcage
11896 ()
11897 ()
11898 ())
11899 #(ribcage
11900 #(orig-x)
11901 #((top))
11902 #("i")))
11903 (hygiene
11904 guile))
11905 (map list
11906 #{var\ 5438}#
11907 #{init\ 5439}#)
11908 (list '#(syntax-object
11909 if
11910 ((top)
11911 #(ribcage
11912 #(step)
11913 #((top))
11914 #("i"))
11915 #(ribcage
11916 #(_
11917 var
11918 init
11919 step
11920 e0
11921 e1
11922 c)
11923 #((top)
11924 (top)
11925 (top)
11926 (top)
11927 (top)
11928 (top)
11929 (top))
11930 #("i"
11931 "i"
11932 "i"
11933 "i"
11934 "i"
11935 "i"
11936 "i"))
11937 #(ribcage
11938 ()
11939 ()
11940 ())
11941 #(ribcage
11942 #(orig-x)
11943 #((top))
11944 #("i")))
11945 (hygiene
11946 guile))
11947 (list '#(syntax-object
11948 not
11949 ((top)
11950 #(ribcage
11951 #(step)
11952 #((top))
11953 #("i"))
11954 #(ribcage
11955 #(_
11956 var
11957 init
11958 step
11959 e0
11960 e1
11961 c)
11962 #((top)
11963 (top)
11964 (top)
11965 (top)
11966 (top)
11967 (top)
11968 (top))
11969 #("i"
11970 "i"
11971 "i"
11972 "i"
11973 "i"
11974 "i"
11975 "i"))
11976 #(ribcage
11977 ()
11978 ()
11979 ())
11980 #(ribcage
11981 #(orig-x)
11982 #((top))
11983 #("i")))
11984 (hygiene
11985 guile))
11986 #{e0\ 5441}#)
11987 (cons '#(syntax-object
11988 begin
11989 ((top)
11990 #(ribcage
11991 #(step)
11992 #((top))
11993 #("i"))
11994 #(ribcage
11995 #(_
11996 var
11997 init
11998 step
11999 e0
12000 e1
12001 c)
12002 #((top)
12003 (top)
12004 (top)
12005 (top)
12006 (top)
12007 (top)
12008 (top))
12009 #("i"
12010 "i"
12011 "i"
12012 "i"
12013 "i"
12014 "i"
12015 "i"))
12016 #(ribcage
12017 ()
12018 ()
12019 ())
12020 #(ribcage
12021 #(orig-x)
12022 #((top))
12023 #("i")))
12024 (hygiene
12025 guile))
12026 (append
12027 #{c\ 5443}#
12028 (list (cons '#(syntax-object
12029 doloop
12030 ((top)
12031 #(ribcage
12032 #(step)
12033 #((top))
12034 #("i"))
12035 #(ribcage
12036 #(_
12037 var
12038 init
12039 step
12040 e0
12041 e1
12042 c)
12043 #((top)
12044 (top)
12045 (top)
12046 (top)
12047 (top)
12048 (top)
12049 (top))
12050 #("i"
12051 "i"
12052 "i"
12053 "i"
12054 "i"
12055 "i"
12056 "i"))
12057 #(ribcage
12058 ()
12059 ()
12060 ())
12061 #(ribcage
12062 #(orig-x)
12063 #((top))
12064 #("i")))
12065 (hygiene
12066 guile))
12067 #{step\ 5446}#)))))))
12068 #{tmp\ 5448}#)
12069 ((lambda (#{tmp\ 5453}#)
12070 (if #{tmp\ 5453}#
12071 (apply (lambda (#{e1\ 5454}#
12072 #{e2\ 5455}#)
12073 (list '#(syntax-object
12074 let
12075 ((top)
12076 #(ribcage
12077 #(e1
12078 e2)
12079 #((top)
12080 (top))
12081 #("i"
12082 "i"))
12083 #(ribcage
12084 #(step)
12085 #((top))
12086 #("i"))
12087 #(ribcage
12088 #(_
12089 var
12090 init
12091 step
12092 e0
12093 e1
12094 c)
12095 #((top)
12096 (top)
12097 (top)
12098 (top)
12099 (top)
12100 (top)
12101 (top))
12102 #("i"
12103 "i"
12104 "i"
12105 "i"
12106 "i"
12107 "i"
12108 "i"))
12109 #(ribcage
12110 ()
12111 ()
12112 ())
12113 #(ribcage
12114 #(orig-x)
12115 #((top))
12116 #("i")))
12117 (hygiene
12118 guile))
12119 '#(syntax-object
12120 doloop
12121 ((top)
12122 #(ribcage
12123 #(e1
12124 e2)
12125 #((top)
12126 (top))
12127 #("i"
12128 "i"))
12129 #(ribcage
12130 #(step)
12131 #((top))
12132 #("i"))
12133 #(ribcage
12134 #(_
12135 var
12136 init
12137 step
12138 e0
12139 e1
12140 c)
12141 #((top)
12142 (top)
12143 (top)
12144 (top)
12145 (top)
12146 (top)
12147 (top))
12148 #("i"
12149 "i"
12150 "i"
12151 "i"
12152 "i"
12153 "i"
12154 "i"))
12155 #(ribcage
12156 ()
12157 ()
12158 ())
12159 #(ribcage
12160 #(orig-x)
12161 #((top))
12162 #("i")))
12163 (hygiene
12164 guile))
12165 (map list
12166 #{var\ 5438}#
12167 #{init\ 5439}#)
12168 (list '#(syntax-object
12169 if
12170 ((top)
12171 #(ribcage
12172 #(e1
12173 e2)
12174 #((top)
12175 (top))
12176 #("i"
12177 "i"))
12178 #(ribcage
12179 #(step)
12180 #((top))
12181 #("i"))
12182 #(ribcage
12183 #(_
12184 var
12185 init
12186 step
12187 e0
12188 e1
12189 c)
12190 #((top)
12191 (top)
12192 (top)
12193 (top)
12194 (top)
12195 (top)
12196 (top))
12197 #("i"
12198 "i"
12199 "i"
12200 "i"
12201 "i"
12202 "i"
12203 "i"))
12204 #(ribcage
12205 ()
12206 ()
12207 ())
12208 #(ribcage
12209 #(orig-x)
12210 #((top))
12211 #("i")))
12212 (hygiene
12213 guile))
12214 #{e0\ 5441}#
12215 (cons '#(syntax-object
12216 begin
12217 ((top)
12218 #(ribcage
12219 #(e1
12220 e2)
12221 #((top)
12222 (top))
12223 #("i"
12224 "i"))
12225 #(ribcage
12226 #(step)
12227 #((top))
12228 #("i"))
12229 #(ribcage
12230 #(_
12231 var
12232 init
12233 step
12234 e0
12235 e1
12236 c)
12237 #((top)
12238 (top)
12239 (top)
12240 (top)
12241 (top)
12242 (top)
12243 (top))
12244 #("i"
12245 "i"
12246 "i"
12247 "i"
12248 "i"
12249 "i"
12250 "i"))
12251 #(ribcage
12252 ()
12253 ()
12254 ())
12255 #(ribcage
12256 #(orig-x)
12257 #((top))
12258 #("i")))
12259 (hygiene
12260 guile))
12261 (cons #{e1\ 5454}#
12262 #{e2\ 5455}#))
12263 (cons '#(syntax-object
12264 begin
12265 ((top)
12266 #(ribcage
12267 #(e1
12268 e2)
12269 #((top)
12270 (top))
12271 #("i"
12272 "i"))
12273 #(ribcage
12274 #(step)
12275 #((top))
12276 #("i"))
12277 #(ribcage
12278 #(_
12279 var
12280 init
12281 step
12282 e0
12283 e1
12284 c)
12285 #((top)
12286 (top)
12287 (top)
12288 (top)
12289 (top)
12290 (top)
12291 (top))
12292 #("i"
12293 "i"
12294 "i"
12295 "i"
12296 "i"
12297 "i"
12298 "i"))
12299 #(ribcage
12300 ()
12301 ()
12302 ())
12303 #(ribcage
12304 #(orig-x)
12305 #((top))
12306 #("i")))
12307 (hygiene
12308 guile))
12309 (append
12310 #{c\ 5443}#
12311 (list (cons '#(syntax-object
12312 doloop
12313 ((top)
12314 #(ribcage
12315 #(e1
12316 e2)
12317 #((top)
12318 (top))
12319 #("i"
12320 "i"))
12321 #(ribcage
12322 #(step)
12323 #((top))
12324 #("i"))
12325 #(ribcage
12326 #(_
12327 var
12328 init
12329 step
12330 e0
12331 e1
12332 c)
12333 #((top)
12334 (top)
12335 (top)
12336 (top)
12337 (top)
12338 (top)
12339 (top))
12340 #("i"
12341 "i"
12342 "i"
12343 "i"
12344 "i"
12345 "i"
12346 "i"))
12347 #(ribcage
12348 ()
12349 ()
12350 ())
12351 #(ribcage
12352 #(orig-x)
12353 #((top))
12354 #("i")))
12355 (hygiene
12356 guile))
12357 #{step\ 5446}#)))))))
12358 #{tmp\ 5453}#)
12359 (syntax-violation
12360 #f
12361 "source expression failed to match any pattern"
12362 #{tmp\ 5447}#)))
12363 ($sc-dispatch
12364 #{tmp\ 5447}#
12365 '(any . each-any)))))
12366 ($sc-dispatch
12367 #{tmp\ 5447}#
12368 '())))
12369 #{e1\ 5442}#))
12370 #{tmp\ 5445}#)
12371 (syntax-violation
12372 #f
12373 "source expression failed to match any pattern"
12374 #{tmp\ 5444}#)))
12375 ($sc-dispatch
12376 #{tmp\ 5444}#
12377 'each-any)))
12378 (map (lambda (#{v\ 5462}# #{s\ 5463}#)
12379 ((lambda (#{tmp\ 5464}#)
12380 ((lambda (#{tmp\ 5465}#)
12381 (if #{tmp\ 5465}#
12382 (apply (lambda () #{v\ 5462}#)
12383 #{tmp\ 5465}#)
12384 ((lambda (#{tmp\ 5466}#)
12385 (if #{tmp\ 5466}#
12386 (apply (lambda (#{e\ 5467}#)
12387 #{e\ 5467}#)
12388 #{tmp\ 5466}#)
12389 ((lambda (#{_\ 5468}#)
12390 (syntax-violation
12391 'do
12392 "bad step expression"
12393 #{orig-x\ 5434}#
12394 #{s\ 5463}#))
12395 #{tmp\ 5464}#)))
12396 ($sc-dispatch
12397 #{tmp\ 5464}#
12398 '(any)))))
12399 ($sc-dispatch
12400 #{tmp\ 5464}#
12401 '())))
12402 #{s\ 5463}#))
12403 #{var\ 5438}#
12404 #{step\ 5440}#)))
12405 #{tmp\ 5436}#)
12406 (syntax-violation
12407 #f
12408 "source expression failed to match any pattern"
12409 #{tmp\ 5435}#)))
12410 ($sc-dispatch
12411 #{tmp\ 5435}#
12412 '(any #(each (any any . any))
12413 (any . each-any)
12414 .
12415 each-any))))
12416 #{orig-x\ 5434}#))
12417 (module-name (current-module)))))
12418
12419 (define quasiquote
12420 (make-syncase-macro
12421 'macro
12422 (cons (letrec ((#{quasicons\ 5471}#
12423 (lambda (#{x\ 5475}# #{y\ 5476}#)
12424 ((lambda (#{tmp\ 5477}#)
12425 ((lambda (#{tmp\ 5478}#)
12426 (if #{tmp\ 5478}#
12427 (apply (lambda (#{x\ 5479}# #{y\ 5480}#)
12428 ((lambda (#{tmp\ 5481}#)
12429 ((lambda (#{tmp\ 5482}#)
12430 (if #{tmp\ 5482}#
12431 (apply (lambda (#{dy\ 5483}#)
12432 ((lambda (#{tmp\ 5484}#)
12433 ((lambda (#{tmp\ 5485}#)
12434 (if #{tmp\ 5485}#
12435 (apply (lambda (#{dx\ 5486}#)
12436 (list '#(syntax-object
12437 quote
12438 ((top)
12439 #(ribcage
12440 #(dx)
12441 #((top))
12442 #("i"))
12443 #(ribcage
12444 #(dy)
12445 #((top))
12446 #("i"))
12447 #(ribcage
12448 #(x
12449 y)
12450 #((top)
12451 (top))
12452 #("i"
12453 "i"))
12454 #(ribcage
12455 ()
12456 ()
12457 ())
12458 #(ribcage
12459 ()
12460 ()
12461 ())
12462 #(ribcage
12463 #(x
12464 y)
12465 #((top)
12466 (top))
12467 #("i"
12468 "i"))
12469 #(ribcage
12470 #(quasicons
12471 quasiappend
12472 quasivector
12473 quasi)
12474 #((top)
12475 (top)
12476 (top)
12477 (top))
12478 #("i"
12479 "i"
12480 "i"
12481 "i")))
12482 (hygiene
12483 guile))
12484 (cons #{dx\ 5486}#
12485 #{dy\ 5483}#)))
12486 #{tmp\ 5485}#)
12487 ((lambda (#{_\ 5487}#)
12488 (if (null? #{dy\ 5483}#)
12489 (list '#(syntax-object
12490 list
12491 ((top)
12492 #(ribcage
12493 #(_)
12494 #((top))
12495 #("i"))
12496 #(ribcage
12497 #(dy)
12498 #((top))
12499 #("i"))
12500 #(ribcage
12501 #(x
12502 y)
12503 #((top)
12504 (top))
12505 #("i"
12506 "i"))
12507 #(ribcage
12508 ()
12509 ()
12510 ())
12511 #(ribcage
12512 ()
12513 ()
12514 ())
12515 #(ribcage
12516 #(x
12517 y)
12518 #((top)
12519 (top))
12520 #("i"
12521 "i"))
12522 #(ribcage
12523 #(quasicons
12524 quasiappend
12525 quasivector
12526 quasi)
12527 #((top)
12528 (top)
12529 (top)
12530 (top))
12531 #("i"
12532 "i"
12533 "i"
12534 "i")))
12535 (hygiene
12536 guile))
12537 #{x\ 5479}#)
12538 (list '#(syntax-object
12539 cons
12540 ((top)
12541 #(ribcage
12542 #(_)
12543 #((top))
12544 #("i"))
12545 #(ribcage
12546 #(dy)
12547 #((top))
12548 #("i"))
12549 #(ribcage
12550 #(x
12551 y)
12552 #((top)
12553 (top))
12554 #("i"
12555 "i"))
12556 #(ribcage
12557 ()
12558 ()
12559 ())
12560 #(ribcage
12561 ()
12562 ()
12563 ())
12564 #(ribcage
12565 #(x
12566 y)
12567 #((top)
12568 (top))
12569 #("i"
12570 "i"))
12571 #(ribcage
12572 #(quasicons
12573 quasiappend
12574 quasivector
12575 quasi)
12576 #((top)
12577 (top)
12578 (top)
12579 (top))
12580 #("i"
12581 "i"
12582 "i"
12583 "i")))
12584 (hygiene
12585 guile))
12586 #{x\ 5479}#
12587 #{y\ 5480}#)))
12588 #{tmp\ 5484}#)))
12589 ($sc-dispatch
12590 #{tmp\ 5484}#
12591 '(#(free-id
12592 #(syntax-object
12593 quote
12594 ((top)
12595 #(ribcage
12596 #(dy)
12597 #((top))
12598 #("i"))
12599 #(ribcage
12600 #(x y)
12601 #((top)
12602 (top))
12603 #("i"
12604 "i"))
12605 #(ribcage
12606 ()
12607 ()
12608 ())
12609 #(ribcage
12610 ()
12611 ()
12612 ())
12613 #(ribcage
12614 #(x y)
12615 #((top)
12616 (top))
12617 #("i"
12618 "i"))
12619 #(ribcage
12620 #(quasicons
12621 quasiappend
12622 quasivector
12623 quasi)
12624 #((top)
12625 (top)
12626 (top)
12627 (top))
12628 #("i"
12629 "i"
12630 "i"
12631 "i")))
12632 (hygiene
12633 guile)))
12634 any))))
12635 #{x\ 5479}#))
12636 #{tmp\ 5482}#)
12637 ((lambda (#{tmp\ 5488}#)
12638 (if #{tmp\ 5488}#
12639 (apply (lambda (#{stuff\ 5489}#)
12640 (cons '#(syntax-object
12641 list
12642 ((top)
12643 #(ribcage
12644 #(stuff)
12645 #((top))
12646 #("i"))
12647 #(ribcage
12648 #(x
12649 y)
12650 #((top)
12651 (top))
12652 #("i"
12653 "i"))
12654 #(ribcage
12655 ()
12656 ()
12657 ())
12658 #(ribcage
12659 ()
12660 ()
12661 ())
12662 #(ribcage
12663 #(x
12664 y)
12665 #((top)
12666 (top))
12667 #("i"
12668 "i"))
12669 #(ribcage
12670 #(quasicons
12671 quasiappend
12672 quasivector
12673 quasi)
12674 #((top)
12675 (top)
12676 (top)
12677 (top))
12678 #("i"
12679 "i"
12680 "i"
12681 "i")))
12682 (hygiene
12683 guile))
12684 (cons #{x\ 5479}#
12685 #{stuff\ 5489}#)))
12686 #{tmp\ 5488}#)
12687 ((lambda (#{else\ 5490}#)
12688 (list '#(syntax-object
12689 cons
12690 ((top)
12691 #(ribcage
12692 #(else)
12693 #((top))
12694 #("i"))
12695 #(ribcage
12696 #(x y)
12697 #((top)
12698 (top))
12699 #("i" "i"))
12700 #(ribcage
12701 ()
12702 ()
12703 ())
12704 #(ribcage
12705 ()
12706 ()
12707 ())
12708 #(ribcage
12709 #(x y)
12710 #((top)
12711 (top))
12712 #("i" "i"))
12713 #(ribcage
12714 #(quasicons
12715 quasiappend
12716 quasivector
12717 quasi)
12718 #((top)
12719 (top)
12720 (top)
12721 (top))
12722 #("i"
12723 "i"
12724 "i"
12725 "i")))
12726 (hygiene
12727 guile))
12728 #{x\ 5479}#
12729 #{y\ 5480}#))
12730 #{tmp\ 5481}#)))
12731 ($sc-dispatch
12732 #{tmp\ 5481}#
12733 '(#(free-id
12734 #(syntax-object
12735 list
12736 ((top)
12737 #(ribcage
12738 #(x y)
12739 #((top) (top))
12740 #("i" "i"))
12741 #(ribcage () () ())
12742 #(ribcage () () ())
12743 #(ribcage
12744 #(x y)
12745 #((top) (top))
12746 #("i" "i"))
12747 #(ribcage
12748 #(quasicons
12749 quasiappend
12750 quasivector
12751 quasi)
12752 #((top)
12753 (top)
12754 (top)
12755 (top))
12756 #("i"
12757 "i"
12758 "i"
12759 "i")))
12760 (hygiene guile)))
12761 .
12762 any)))))
12763 ($sc-dispatch
12764 #{tmp\ 5481}#
12765 '(#(free-id
12766 #(syntax-object
12767 quote
12768 ((top)
12769 #(ribcage
12770 #(x y)
12771 #((top) (top))
12772 #("i" "i"))
12773 #(ribcage () () ())
12774 #(ribcage () () ())
12775 #(ribcage
12776 #(x y)
12777 #((top) (top))
12778 #("i" "i"))
12779 #(ribcage
12780 #(quasicons
12781 quasiappend
12782 quasivector
12783 quasi)
12784 #((top)
12785 (top)
12786 (top)
12787 (top))
12788 #("i" "i" "i" "i")))
12789 (hygiene guile)))
12790 any))))
12791 #{y\ 5480}#))
12792 #{tmp\ 5478}#)
12793 (syntax-violation
12794 #f
12795 "source expression failed to match any pattern"
12796 #{tmp\ 5477}#)))
12797 ($sc-dispatch #{tmp\ 5477}# (quote (any any)))))
12798 (list #{x\ 5475}# #{y\ 5476}#))))
12799 (#{quasiappend\ 5472}#
12800 (lambda (#{x\ 5491}# #{y\ 5492}#)
12801 ((lambda (#{tmp\ 5493}#)
12802 ((lambda (#{tmp\ 5494}#)
12803 (if #{tmp\ 5494}#
12804 (apply (lambda (#{x\ 5495}# #{y\ 5496}#)
12805 ((lambda (#{tmp\ 5497}#)
12806 ((lambda (#{tmp\ 5498}#)
12807 (if #{tmp\ 5498}#
12808 (apply (lambda () #{x\ 5495}#)
12809 #{tmp\ 5498}#)
12810 ((lambda (#{_\ 5499}#)
12811 (list '#(syntax-object
12812 append
12813 ((top)
12814 #(ribcage
12815 #(_)
12816 #((top))
12817 #("i"))
12818 #(ribcage
12819 #(x y)
12820 #((top) (top))
12821 #("i" "i"))
12822 #(ribcage
12823 ()
12824 ()
12825 ())
12826 #(ribcage
12827 ()
12828 ()
12829 ())
12830 #(ribcage
12831 #(x y)
12832 #((top) (top))
12833 #("i" "i"))
12834 #(ribcage
12835 #(quasicons
12836 quasiappend
12837 quasivector
12838 quasi)
12839 #((top)
12840 (top)
12841 (top)
12842 (top))
12843 #("i"
12844 "i"
12845 "i"
12846 "i")))
12847 (hygiene guile))
12848 #{x\ 5495}#
12849 #{y\ 5496}#))
12850 #{tmp\ 5497}#)))
12851 ($sc-dispatch
12852 #{tmp\ 5497}#
12853 '(#(free-id
12854 #(syntax-object
12855 quote
12856 ((top)
12857 #(ribcage
12858 #(x y)
12859 #((top) (top))
12860 #("i" "i"))
12861 #(ribcage () () ())
12862 #(ribcage () () ())
12863 #(ribcage
12864 #(x y)
12865 #((top) (top))
12866 #("i" "i"))
12867 #(ribcage
12868 #(quasicons
12869 quasiappend
12870 quasivector
12871 quasi)
12872 #((top)
12873 (top)
12874 (top)
12875 (top))
12876 #("i" "i" "i" "i")))
12877 (hygiene guile)))
12878 ()))))
12879 #{y\ 5496}#))
12880 #{tmp\ 5494}#)
12881 (syntax-violation
12882 #f
12883 "source expression failed to match any pattern"
12884 #{tmp\ 5493}#)))
12885 ($sc-dispatch #{tmp\ 5493}# (quote (any any)))))
12886 (list #{x\ 5491}# #{y\ 5492}#))))
12887 (#{quasivector\ 5473}#
12888 (lambda (#{x\ 5500}#)
12889 ((lambda (#{tmp\ 5501}#)
12890 ((lambda (#{x\ 5502}#)
12891 ((lambda (#{tmp\ 5503}#)
12892 ((lambda (#{tmp\ 5504}#)
12893 (if #{tmp\ 5504}#
12894 (apply (lambda (#{x\ 5505}#)
12895 (list '#(syntax-object
12896 quote
12897 ((top)
12898 #(ribcage
12899 #(x)
12900 #((top))
12901 #("i"))
12902 #(ribcage
12903 #(x)
12904 #((top))
12905 #("i"))
12906 #(ribcage () () ())
12907 #(ribcage () () ())
12908 #(ribcage
12909 #(x)
12910 #((top))
12911 #("i"))
12912 #(ribcage
12913 #(quasicons
12914 quasiappend
12915 quasivector
12916 quasi)
12917 #((top)
12918 (top)
12919 (top)
12920 (top))
12921 #("i" "i" "i" "i")))
12922 (hygiene guile))
12923 (list->vector
12924 #{x\ 5505}#)))
12925 #{tmp\ 5504}#)
12926 ((lambda (#{tmp\ 5507}#)
12927 (if #{tmp\ 5507}#
12928 (apply (lambda (#{x\ 5508}#)
12929 (cons '#(syntax-object
12930 vector
12931 ((top)
12932 #(ribcage
12933 #(x)
12934 #((top))
12935 #("i"))
12936 #(ribcage
12937 #(x)
12938 #((top))
12939 #("i"))
12940 #(ribcage
12941 ()
12942 ()
12943 ())
12944 #(ribcage
12945 ()
12946 ()
12947 ())
12948 #(ribcage
12949 #(x)
12950 #((top))
12951 #("i"))
12952 #(ribcage
12953 #(quasicons
12954 quasiappend
12955 quasivector
12956 quasi)
12957 #((top)
12958 (top)
12959 (top)
12960 (top))
12961 #("i"
12962 "i"
12963 "i"
12964 "i")))
12965 (hygiene guile))
12966 #{x\ 5508}#))
12967 #{tmp\ 5507}#)
12968 ((lambda (#{_\ 5510}#)
12969 (list '#(syntax-object
12970 list->vector
12971 ((top)
12972 #(ribcage
12973 #(_)
12974 #((top))
12975 #("i"))
12976 #(ribcage
12977 #(x)
12978 #((top))
12979 #("i"))
12980 #(ribcage () () ())
12981 #(ribcage () () ())
12982 #(ribcage
12983 #(x)
12984 #((top))
12985 #("i"))
12986 #(ribcage
12987 #(quasicons
12988 quasiappend
12989 quasivector
12990 quasi)
12991 #((top)
12992 (top)
12993 (top)
12994 (top))
12995 #("i" "i" "i" "i")))
12996 (hygiene guile))
12997 #{x\ 5502}#))
12998 #{tmp\ 5503}#)))
12999 ($sc-dispatch
13000 #{tmp\ 5503}#
13001 '(#(free-id
13002 #(syntax-object
13003 list
13004 ((top)
13005 #(ribcage #(x) #((top)) #("i"))
13006 #(ribcage () () ())
13007 #(ribcage () () ())
13008 #(ribcage #(x) #((top)) #("i"))
13009 #(ribcage
13010 #(quasicons
13011 quasiappend
13012 quasivector
13013 quasi)
13014 #((top) (top) (top) (top))
13015 #("i" "i" "i" "i")))
13016 (hygiene guile)))
13017 .
13018 each-any)))))
13019 ($sc-dispatch
13020 #{tmp\ 5503}#
13021 '(#(free-id
13022 #(syntax-object
13023 quote
13024 ((top)
13025 #(ribcage #(x) #((top)) #("i"))
13026 #(ribcage () () ())
13027 #(ribcage () () ())
13028 #(ribcage #(x) #((top)) #("i"))
13029 #(ribcage
13030 #(quasicons
13031 quasiappend
13032 quasivector
13033 quasi)
13034 #((top) (top) (top) (top))
13035 #("i" "i" "i" "i")))
13036 (hygiene guile)))
13037 each-any))))
13038 #{x\ 5502}#))
13039 #{tmp\ 5501}#))
13040 #{x\ 5500}#)))
13041 (#{quasi\ 5474}#
13042 (lambda (#{p\ 5511}# #{lev\ 5512}#)
13043 ((lambda (#{tmp\ 5513}#)
13044 ((lambda (#{tmp\ 5514}#)
13045 (if #{tmp\ 5514}#
13046 (apply (lambda (#{p\ 5515}#)
13047 (if (= #{lev\ 5512}# 0)
13048 #{p\ 5515}#
13049 (#{quasicons\ 5471}#
13050 '(#(syntax-object
13051 quote
13052 ((top)
13053 #(ribcage
13054 #(p)
13055 #((top))
13056 #("i"))
13057 #(ribcage () () ())
13058 #(ribcage
13059 #(p lev)
13060 #((top) (top))
13061 #("i" "i"))
13062 #(ribcage
13063 #(quasicons
13064 quasiappend
13065 quasivector
13066 quasi)
13067 #((top) (top) (top) (top))
13068 #("i" "i" "i" "i")))
13069 (hygiene guile))
13070 #(syntax-object
13071 unquote
13072 ((top)
13073 #(ribcage
13074 #(p)
13075 #((top))
13076 #("i"))
13077 #(ribcage () () ())
13078 #(ribcage
13079 #(p lev)
13080 #((top) (top))
13081 #("i" "i"))
13082 #(ribcage
13083 #(quasicons
13084 quasiappend
13085 quasivector
13086 quasi)
13087 #((top) (top) (top) (top))
13088 #("i" "i" "i" "i")))
13089 (hygiene guile)))
13090 (#{quasi\ 5474}#
13091 (list #{p\ 5515}#)
13092 (- #{lev\ 5512}# 1)))))
13093 #{tmp\ 5514}#)
13094 ((lambda (#{tmp\ 5516}#)
13095 (if (if #{tmp\ 5516}#
13096 (apply (lambda (#{args\ 5517}#)
13097 (= #{lev\ 5512}# 0))
13098 #{tmp\ 5516}#)
13099 #f)
13100 (apply (lambda (#{args\ 5518}#)
13101 (syntax-violation
13102 'unquote
13103 "unquote takes exactly one argument"
13104 #{p\ 5511}#
13105 (cons '#(syntax-object
13106 unquote
13107 ((top)
13108 #(ribcage
13109 #(args)
13110 #((top))
13111 #("i"))
13112 #(ribcage () () ())
13113 #(ribcage
13114 #(p lev)
13115 #((top) (top))
13116 #("i" "i"))
13117 #(ribcage
13118 #(quasicons
13119 quasiappend
13120 quasivector
13121 quasi)
13122 #((top)
13123 (top)
13124 (top)
13125 (top))
13126 #("i" "i" "i" "i")))
13127 (hygiene guile))
13128 #{args\ 5518}#)))
13129 #{tmp\ 5516}#)
13130 ((lambda (#{tmp\ 5519}#)
13131 (if #{tmp\ 5519}#
13132 (apply (lambda (#{p\ 5520}#
13133 #{q\ 5521}#)
13134 (if (= #{lev\ 5512}# 0)
13135 (#{quasiappend\ 5472}#
13136 #{p\ 5520}#
13137 (#{quasi\ 5474}#
13138 #{q\ 5521}#
13139 #{lev\ 5512}#))
13140 (#{quasicons\ 5471}#
13141 (#{quasicons\ 5471}#
13142 '(#(syntax-object
13143 quote
13144 ((top)
13145 #(ribcage
13146 #(p q)
13147 #((top) (top))
13148 #("i" "i"))
13149 #(ribcage
13150 ()
13151 ()
13152 ())
13153 #(ribcage
13154 #(p lev)
13155 #((top) (top))
13156 #("i" "i"))
13157 #(ribcage
13158 #(quasicons
13159 quasiappend
13160 quasivector
13161 quasi)
13162 #((top)
13163 (top)
13164 (top)
13165 (top))
13166 #("i"
13167 "i"
13168 "i"
13169 "i")))
13170 (hygiene guile))
13171 #(syntax-object
13172 unquote-splicing
13173 ((top)
13174 #(ribcage
13175 #(p q)
13176 #((top) (top))
13177 #("i" "i"))
13178 #(ribcage
13179 ()
13180 ()
13181 ())
13182 #(ribcage
13183 #(p lev)
13184 #((top) (top))
13185 #("i" "i"))
13186 #(ribcage
13187 #(quasicons
13188 quasiappend
13189 quasivector
13190 quasi)
13191 #((top)
13192 (top)
13193 (top)
13194 (top))
13195 #("i"
13196 "i"
13197 "i"
13198 "i")))
13199 (hygiene guile)))
13200 (#{quasi\ 5474}#
13201 (list #{p\ 5520}#)
13202 (- #{lev\ 5512}# 1)))
13203 (#{quasi\ 5474}#
13204 #{q\ 5521}#
13205 #{lev\ 5512}#))))
13206 #{tmp\ 5519}#)
13207 ((lambda (#{tmp\ 5522}#)
13208 (if (if #{tmp\ 5522}#
13209 (apply (lambda (#{args\ 5523}#
13210 #{q\ 5524}#)
13211 (= #{lev\ 5512}# 0))
13212 #{tmp\ 5522}#)
13213 #f)
13214 (apply (lambda (#{args\ 5525}#
13215 #{q\ 5526}#)
13216 (syntax-violation
13217 'unquote-splicing
13218 "unquote-splicing takes exactly one argument"
13219 #{p\ 5511}#
13220 (cons '#(syntax-object
13221 unquote-splicing
13222 ((top)
13223 #(ribcage
13224 #(args q)
13225 #((top)
13226 (top))
13227 #("i"
13228 "i"))
13229 #(ribcage
13230 ()
13231 ()
13232 ())
13233 #(ribcage
13234 #(p lev)
13235 #((top)
13236 (top))
13237 #("i"
13238 "i"))
13239 #(ribcage
13240 #(quasicons
13241 quasiappend
13242 quasivector
13243 quasi)
13244 #((top)
13245 (top)
13246 (top)
13247 (top))
13248 #("i"
13249 "i"
13250 "i"
13251 "i")))
13252 (hygiene
13253 guile))
13254 #{args\ 5525}#)))
13255 #{tmp\ 5522}#)
13256 ((lambda (#{tmp\ 5527}#)
13257 (if #{tmp\ 5527}#
13258 (apply (lambda (#{p\ 5528}#)
13259 (#{quasicons\ 5471}#
13260 '(#(syntax-object
13261 quote
13262 ((top)
13263 #(ribcage
13264 #(p)
13265 #((top))
13266 #("i"))
13267 #(ribcage
13268 ()
13269 ()
13270 ())
13271 #(ribcage
13272 #(p lev)
13273 #((top)
13274 (top))
13275 #("i"
13276 "i"))
13277 #(ribcage
13278 #(quasicons
13279 quasiappend
13280 quasivector
13281 quasi)
13282 #((top)
13283 (top)
13284 (top)
13285 (top))
13286 #("i"
13287 "i"
13288 "i"
13289 "i")))
13290 (hygiene
13291 guile))
13292 #(syntax-object
13293 quasiquote
13294 ((top)
13295 #(ribcage
13296 #(p)
13297 #((top))
13298 #("i"))
13299 #(ribcage
13300 ()
13301 ()
13302 ())
13303 #(ribcage
13304 #(p lev)
13305 #((top)
13306 (top))
13307 #("i"
13308 "i"))
13309 #(ribcage
13310 #(quasicons
13311 quasiappend
13312 quasivector
13313 quasi)
13314 #((top)
13315 (top)
13316 (top)
13317 (top))
13318 #("i"
13319 "i"
13320 "i"
13321 "i")))
13322 (hygiene
13323 guile)))
13324 (#{quasi\ 5474}#
13325 (list #{p\ 5528}#)
13326 (+ #{lev\ 5512}#
13327 1))))
13328 #{tmp\ 5527}#)
13329 ((lambda (#{tmp\ 5529}#)
13330 (if #{tmp\ 5529}#
13331 (apply (lambda (#{p\ 5530}#
13332 #{q\ 5531}#)
13333 (#{quasicons\ 5471}#
13334 (#{quasi\ 5474}#
13335 #{p\ 5530}#
13336 #{lev\ 5512}#)
13337 (#{quasi\ 5474}#
13338 #{q\ 5531}#
13339 #{lev\ 5512}#)))
13340 #{tmp\ 5529}#)
13341 ((lambda (#{tmp\ 5532}#)
13342 (if #{tmp\ 5532}#
13343 (apply (lambda (#{x\ 5533}#)
13344 (#{quasivector\ 5473}#
13345 (#{quasi\ 5474}#
13346 #{x\ 5533}#
13347 #{lev\ 5512}#)))
13348 #{tmp\ 5532}#)
13349 ((lambda (#{p\ 5535}#)
13350 (list '#(syntax-object
13351 quote
13352 ((top)
13353 #(ribcage
13354 #(p)
13355 #((top))
13356 #("i"))
13357 #(ribcage
13358 ()
13359 ()
13360 ())
13361 #(ribcage
13362 #(p
13363 lev)
13364 #((top)
13365 (top))
13366 #("i"
13367 "i"))
13368 #(ribcage
13369 #(quasicons
13370 quasiappend
13371 quasivector
13372 quasi)
13373 #((top)
13374 (top)
13375 (top)
13376 (top))
13377 #("i"
13378 "i"
13379 "i"
13380 "i")))
13381 (hygiene
13382 guile))
13383 #{p\ 5535}#))
13384 #{tmp\ 5513}#)))
13385 ($sc-dispatch
13386 #{tmp\ 5513}#
13387 '#(vector
13388 each-any)))))
13389 ($sc-dispatch
13390 #{tmp\ 5513}#
13391 '(any . any)))))
13392 ($sc-dispatch
13393 #{tmp\ 5513}#
13394 '(#(free-id
13395 #(syntax-object
13396 quasiquote
13397 ((top)
13398 #(ribcage () () ())
13399 #(ribcage
13400 #(p lev)
13401 #((top) (top))
13402 #("i" "i"))
13403 #(ribcage
13404 #(quasicons
13405 quasiappend
13406 quasivector
13407 quasi)
13408 #((top)
13409 (top)
13410 (top)
13411 (top))
13412 #("i" "i" "i" "i")))
13413 (hygiene guile)))
13414 any)))))
13415 ($sc-dispatch
13416 #{tmp\ 5513}#
13417 '((#(free-id
13418 #(syntax-object
13419 unquote-splicing
13420 ((top)
13421 #(ribcage () () ())
13422 #(ribcage
13423 #(p lev)
13424 #((top) (top))
13425 #("i" "i"))
13426 #(ribcage
13427 #(quasicons
13428 quasiappend
13429 quasivector
13430 quasi)
13431 #((top)
13432 (top)
13433 (top)
13434 (top))
13435 #("i" "i" "i" "i")))
13436 (hygiene guile)))
13437 .
13438 any)
13439 .
13440 any)))))
13441 ($sc-dispatch
13442 #{tmp\ 5513}#
13443 '((#(free-id
13444 #(syntax-object
13445 unquote-splicing
13446 ((top)
13447 #(ribcage () () ())
13448 #(ribcage
13449 #(p lev)
13450 #((top) (top))
13451 #("i" "i"))
13452 #(ribcage
13453 #(quasicons
13454 quasiappend
13455 quasivector
13456 quasi)
13457 #((top) (top) (top) (top))
13458 #("i" "i" "i" "i")))
13459 (hygiene guile)))
13460 any)
13461 .
13462 any)))))
13463 ($sc-dispatch
13464 #{tmp\ 5513}#
13465 '(#(free-id
13466 #(syntax-object
13467 unquote
13468 ((top)
13469 #(ribcage () () ())
13470 #(ribcage
13471 #(p lev)
13472 #((top) (top))
13473 #("i" "i"))
13474 #(ribcage
13475 #(quasicons
13476 quasiappend
13477 quasivector
13478 quasi)
13479 #((top) (top) (top) (top))
13480 #("i" "i" "i" "i")))
13481 (hygiene guile)))
13482 .
13483 any)))))
13484 ($sc-dispatch
13485 #{tmp\ 5513}#
13486 '(#(free-id
13487 #(syntax-object
13488 unquote
13489 ((top)
13490 #(ribcage () () ())
13491 #(ribcage
13492 #(p lev)
13493 #((top) (top))
13494 #("i" "i"))
13495 #(ribcage
13496 #(quasicons
13497 quasiappend
13498 quasivector
13499 quasi)
13500 #((top) (top) (top) (top))
13501 #("i" "i" "i" "i")))
13502 (hygiene guile)))
13503 any))))
13504 #{p\ 5511}#))))
13505 (lambda (#{x\ 5536}#)
13506 ((lambda (#{tmp\ 5537}#)
13507 ((lambda (#{tmp\ 5538}#)
13508 (if #{tmp\ 5538}#
13509 (apply (lambda (#{_\ 5539}# #{e\ 5540}#)
13510 (#{quasi\ 5474}# #{e\ 5540}# 0))
13511 #{tmp\ 5538}#)
13512 (syntax-violation
13513 #f
13514 "source expression failed to match any pattern"
13515 #{tmp\ 5537}#)))
13516 ($sc-dispatch #{tmp\ 5537}# (quote (any any)))))
13517 #{x\ 5536}#)))
13518 (module-name (current-module)))))
13519
13520 (define include
13521 (make-syncase-macro
13522 'macro
13523 (cons (lambda (#{x\ 5541}#)
13524 (letrec ((#{read-file\ 5542}#
13525 (lambda (#{fn\ 5543}# #{k\ 5544}#)
13526 (let ((#{p\ 5545}# (open-input-file #{fn\ 5543}#)))
13527 (letrec ((#{f\ 5546}#
13528 (lambda (#{x\ 5547}#)
13529 (if (eof-object? #{x\ 5547}#)
13530 (begin
13531 (close-input-port #{p\ 5545}#)
13532 '())
13533 (cons (datum->syntax
13534 #{k\ 5544}#
13535 #{x\ 5547}#)
13536 (#{f\ 5546}#
13537 (read #{p\ 5545}#)))))))
13538 (#{f\ 5546}# (read #{p\ 5545}#)))))))
13539 ((lambda (#{tmp\ 5548}#)
13540 ((lambda (#{tmp\ 5549}#)
13541 (if #{tmp\ 5549}#
13542 (apply (lambda (#{k\ 5550}# #{filename\ 5551}#)
13543 (let ((#{fn\ 5552}#
13544 (syntax->datum #{filename\ 5551}#)))
13545 ((lambda (#{tmp\ 5553}#)
13546 ((lambda (#{tmp\ 5554}#)
13547 (if #{tmp\ 5554}#
13548 (apply (lambda (#{exp\ 5555}#)
13549 (cons '#(syntax-object
13550 begin
13551 ((top)
13552 #(ribcage
13553 #(exp)
13554 #((top))
13555 #("i"))
13556 #(ribcage () () ())
13557 #(ribcage () () ())
13558 #(ribcage
13559 #(fn)
13560 #((top))
13561 #("i"))
13562 #(ribcage
13563 #(k filename)
13564 #((top) (top))
13565 #("i" "i"))
13566 #(ribcage
13567 (read-file)
13568 ((top))
13569 ("i"))
13570 #(ribcage
13571 #(x)
13572 #((top))
13573 #("i")))
13574 (hygiene guile))
13575 #{exp\ 5555}#))
13576 #{tmp\ 5554}#)
13577 (syntax-violation
13578 #f
13579 "source expression failed to match any pattern"
13580 #{tmp\ 5553}#)))
13581 ($sc-dispatch
13582 #{tmp\ 5553}#
13583 'each-any)))
13584 (#{read-file\ 5542}#
13585 #{fn\ 5552}#
13586 #{k\ 5550}#))))
13587 #{tmp\ 5549}#)
13588 (syntax-violation
13589 #f
13590 "source expression failed to match any pattern"
13591 #{tmp\ 5548}#)))
13592 ($sc-dispatch #{tmp\ 5548}# (quote (any any)))))
13593 #{x\ 5541}#)))
13594 (module-name (current-module)))))
13595
13596 (define include-from-path
13597 (make-syncase-macro
13598 'macro
13599 (cons (lambda (#{x\ 5557}#)
13600 ((lambda (#{tmp\ 5558}#)
13601 ((lambda (#{tmp\ 5559}#)
13602 (if #{tmp\ 5559}#
13603 (apply (lambda (#{k\ 5560}# #{filename\ 5561}#)
13604 (let ((#{fn\ 5562}#
13605 (syntax->datum #{filename\ 5561}#)))
13606 ((lambda (#{tmp\ 5563}#)
13607 ((lambda (#{fn\ 5564}#)
13608 (list '#(syntax-object
13609 include
13610 ((top)
13611 #(ribcage #(fn) #((top)) #("i"))
13612 #(ribcage () () ())
13613 #(ribcage () () ())
13614 #(ribcage #(fn) #((top)) #("i"))
13615 #(ribcage
13616 #(k filename)
13617 #((top) (top))
13618 #("i" "i"))
13619 #(ribcage () () ())
13620 #(ribcage #(x) #((top)) #("i")))
13621 (hygiene guile))
13622 #{fn\ 5564}#))
13623 #{tmp\ 5563}#))
13624 (let ((#{t\ 5565}#
13625 (%search-load-path #{fn\ 5562}#)))
13626 (if #{t\ 5565}#
13627 #{t\ 5565}#
13628 (syntax-violation
13629 'include-from-path
13630 "file not found in path"
13631 #{x\ 5557}#
13632 #{filename\ 5561}#))))))
13633 #{tmp\ 5559}#)
13634 (syntax-violation
13635 #f
13636 "source expression failed to match any pattern"
13637 #{tmp\ 5558}#)))
13638 ($sc-dispatch #{tmp\ 5558}# (quote (any any)))))
13639 #{x\ 5557}#))
13640 (module-name (current-module)))))
13641
13642 (define unquote
13643 (make-syncase-macro
13644 'macro
13645 (cons (lambda (#{x\ 5566}#)
13646 ((lambda (#{tmp\ 5567}#)
13647 ((lambda (#{tmp\ 5568}#)
13648 (if #{tmp\ 5568}#
13649 (apply (lambda (#{_\ 5569}# #{e\ 5570}#)
13650 (syntax-violation
13651 'unquote
13652 "expression not valid outside of quasiquote"
13653 #{x\ 5566}#))
13654 #{tmp\ 5568}#)
13655 (syntax-violation
13656 #f
13657 "source expression failed to match any pattern"
13658 #{tmp\ 5567}#)))
13659 ($sc-dispatch #{tmp\ 5567}# (quote (any any)))))
13660 #{x\ 5566}#))
13661 (module-name (current-module)))))
13662
13663 (define unquote-splicing
13664 (make-syncase-macro
13665 'macro
13666 (cons (lambda (#{x\ 5571}#)
13667 ((lambda (#{tmp\ 5572}#)
13668 ((lambda (#{tmp\ 5573}#)
13669 (if #{tmp\ 5573}#
13670 (apply (lambda (#{_\ 5574}# #{e\ 5575}#)
13671 (syntax-violation
13672 'unquote-splicing
13673 "expression not valid outside of quasiquote"
13674 #{x\ 5571}#))
13675 #{tmp\ 5573}#)
13676 (syntax-violation
13677 #f
13678 "source expression failed to match any pattern"
13679 #{tmp\ 5572}#)))
13680 ($sc-dispatch #{tmp\ 5572}# (quote (any any)))))
13681 #{x\ 5571}#))
13682 (module-name (current-module)))))
13683
13684 (define case
13685 (make-syncase-macro
13686 'macro
13687 (cons (lambda (#{x\ 5576}#)
13688 ((lambda (#{tmp\ 5577}#)
13689 ((lambda (#{tmp\ 5578}#)
13690 (if #{tmp\ 5578}#
13691 (apply (lambda (#{_\ 5579}#
13692 #{e\ 5580}#
13693 #{m1\ 5581}#
13694 #{m2\ 5582}#)
13695 ((lambda (#{tmp\ 5583}#)
13696 ((lambda (#{body\ 5584}#)
13697 (list '#(syntax-object
13698 let
13699 ((top)
13700 #(ribcage #(body) #((top)) #("i"))
13701 #(ribcage
13702 #(_ e m1 m2)
13703 #((top) (top) (top) (top))
13704 #("i" "i" "i" "i"))
13705 #(ribcage () () ())
13706 #(ribcage #(x) #((top)) #("i")))
13707 (hygiene guile))
13708 (list (list '#(syntax-object
13709 t
13710 ((top)
13711 #(ribcage
13712 #(body)
13713 #((top))
13714 #("i"))
13715 #(ribcage
13716 #(_ e m1 m2)
13717 #((top)
13718 (top)
13719 (top)
13720 (top))
13721 #("i" "i" "i" "i"))
13722 #(ribcage () () ())
13723 #(ribcage
13724 #(x)
13725 #((top))
13726 #("i")))
13727 (hygiene guile))
13728 #{e\ 5580}#))
13729 #{body\ 5584}#))
13730 #{tmp\ 5583}#))
13731 (letrec ((#{f\ 5585}#
13732 (lambda (#{clause\ 5586}#
13733 #{clauses\ 5587}#)
13734 (if (null? #{clauses\ 5587}#)
13735 ((lambda (#{tmp\ 5589}#)
13736 ((lambda (#{tmp\ 5590}#)
13737 (if #{tmp\ 5590}#
13738 (apply (lambda (#{e1\ 5591}#
13739 #{e2\ 5592}#)
13740 (cons '#(syntax-object
13741 begin
13742 ((top)
13743 #(ribcage
13744 #(e1
13745 e2)
13746 #((top)
13747 (top))
13748 #("i"
13749 "i"))
13750 #(ribcage
13751 ()
13752 ()
13753 ())
13754 #(ribcage
13755 #(f
13756 clause
13757 clauses)
13758 #((top)
13759 (top)
13760 (top))
13761 #("i"
13762 "i"
13763 "i"))
13764 #(ribcage
13765 #(_
13766 e
13767 m1
13768 m2)
13769 #((top)
13770 (top)
13771 (top)
13772 (top))
13773 #("i"
13774 "i"
13775 "i"
13776 "i"))
13777 #(ribcage
13778 ()
13779 ()
13780 ())
13781 #(ribcage
13782 #(x)
13783 #((top))
13784 #("i")))
13785 (hygiene
13786 guile))
13787 (cons #{e1\ 5591}#
13788 #{e2\ 5592}#)))
13789 #{tmp\ 5590}#)
13790 ((lambda (#{tmp\ 5594}#)
13791 (if #{tmp\ 5594}#
13792 (apply (lambda (#{k\ 5595}#
13793 #{e1\ 5596}#
13794 #{e2\ 5597}#)
13795 (list '#(syntax-object
13796 if
13797 ((top)
13798 #(ribcage
13799 #(k
13800 e1
13801 e2)
13802 #((top)
13803 (top)
13804 (top))
13805 #("i"
13806 "i"
13807 "i"))
13808 #(ribcage
13809 ()
13810 ()
13811 ())
13812 #(ribcage
13813 #(f
13814 clause
13815 clauses)
13816 #((top)
13817 (top)
13818 (top))
13819 #("i"
13820 "i"
13821 "i"))
13822 #(ribcage
13823 #(_
13824 e
13825 m1
13826 m2)
13827 #((top)
13828 (top)
13829 (top)
13830 (top))
13831 #("i"
13832 "i"
13833 "i"
13834 "i"))
13835 #(ribcage
13836 ()
13837 ()
13838 ())
13839 #(ribcage
13840 #(x)
13841 #((top))
13842 #("i")))
13843 (hygiene
13844 guile))
13845 (list '#(syntax-object
13846 memv
13847 ((top)
13848 #(ribcage
13849 #(k
13850 e1
13851 e2)
13852 #((top)
13853 (top)
13854 (top))
13855 #("i"
13856 "i"
13857 "i"))
13858 #(ribcage
13859 ()
13860 ()
13861 ())
13862 #(ribcage
13863 #(f
13864 clause
13865 clauses)
13866 #((top)
13867 (top)
13868 (top))
13869 #("i"
13870 "i"
13871 "i"))
13872 #(ribcage
13873 #(_
13874 e
13875 m1
13876 m2)
13877 #((top)
13878 (top)
13879 (top)
13880 (top))
13881 #("i"
13882 "i"
13883 "i"
13884 "i"))
13885 #(ribcage
13886 ()
13887 ()
13888 ())
13889 #(ribcage
13890 #(x)
13891 #((top))
13892 #("i")))
13893 (hygiene
13894 guile))
13895 '#(syntax-object
13896 t
13897 ((top)
13898 #(ribcage
13899 #(k
13900 e1
13901 e2)
13902 #((top)
13903 (top)
13904 (top))
13905 #("i"
13906 "i"
13907 "i"))
13908 #(ribcage
13909 ()
13910 ()
13911 ())
13912 #(ribcage
13913 #(f
13914 clause
13915 clauses)
13916 #((top)
13917 (top)
13918 (top))
13919 #("i"
13920 "i"
13921 "i"))
13922 #(ribcage
13923 #(_
13924 e
13925 m1
13926 m2)
13927 #((top)
13928 (top)
13929 (top)
13930 (top))
13931 #("i"
13932 "i"
13933 "i"
13934 "i"))
13935 #(ribcage
13936 ()
13937 ()
13938 ())
13939 #(ribcage
13940 #(x)
13941 #((top))
13942 #("i")))
13943 (hygiene
13944 guile))
13945 (list '#(syntax-object
13946 quote
13947 ((top)
13948 #(ribcage
13949 #(k
13950 e1
13951 e2)
13952 #((top)
13953 (top)
13954 (top))
13955 #("i"
13956 "i"
13957 "i"))
13958 #(ribcage
13959 ()
13960 ()
13961 ())
13962 #(ribcage
13963 #(f
13964 clause
13965 clauses)
13966 #((top)
13967 (top)
13968 (top))
13969 #("i"
13970 "i"
13971 "i"))
13972 #(ribcage
13973 #(_
13974 e
13975 m1
13976 m2)
13977 #((top)
13978 (top)
13979 (top)
13980 (top))
13981 #("i"
13982 "i"
13983 "i"
13984 "i"))
13985 #(ribcage
13986 ()
13987 ()
13988 ())
13989 #(ribcage
13990 #(x)
13991 #((top))
13992 #("i")))
13993 (hygiene
13994 guile))
13995 #{k\ 5595}#))
13996 (cons '#(syntax-object
13997 begin
13998 ((top)
13999 #(ribcage
14000 #(k
14001 e1
14002 e2)
14003 #((top)
14004 (top)
14005 (top))
14006 #("i"
14007 "i"
14008 "i"))
14009 #(ribcage
14010 ()
14011 ()
14012 ())
14013 #(ribcage
14014 #(f
14015 clause
14016 clauses)
14017 #((top)
14018 (top)
14019 (top))
14020 #("i"
14021 "i"
14022 "i"))
14023 #(ribcage
14024 #(_
14025 e
14026 m1
14027 m2)
14028 #((top)
14029 (top)
14030 (top)
14031 (top))
14032 #("i"
14033 "i"
14034 "i"
14035 "i"))
14036 #(ribcage
14037 ()
14038 ()
14039 ())
14040 #(ribcage
14041 #(x)
14042 #((top))
14043 #("i")))
14044 (hygiene
14045 guile))
14046 (cons #{e1\ 5596}#
14047 #{e2\ 5597}#))))
14048 #{tmp\ 5594}#)
14049 ((lambda (#{_\ 5600}#)
14050 (syntax-violation
14051 'case
14052 "bad clause"
14053 #{x\ 5576}#
14054 #{clause\ 5586}#))
14055 #{tmp\ 5589}#)))
14056 ($sc-dispatch
14057 #{tmp\ 5589}#
14058 '(each-any
14059 any
14060 .
14061 each-any)))))
14062 ($sc-dispatch
14063 #{tmp\ 5589}#
14064 '(#(free-id
14065 #(syntax-object
14066 else
14067 ((top)
14068 #(ribcage () () ())
14069 #(ribcage
14070 #(f clause clauses)
14071 #((top)
14072 (top)
14073 (top))
14074 #("i" "i" "i"))
14075 #(ribcage
14076 #(_ e m1 m2)
14077 #((top)
14078 (top)
14079 (top)
14080 (top))
14081 #("i" "i" "i" "i"))
14082 #(ribcage () () ())
14083 #(ribcage
14084 #(x)
14085 #((top))
14086 #("i")))
14087 (hygiene guile)))
14088 any
14089 .
14090 each-any))))
14091 #{clause\ 5586}#)
14092 ((lambda (#{tmp\ 5601}#)
14093 ((lambda (#{rest\ 5602}#)
14094 ((lambda (#{tmp\ 5603}#)
14095 ((lambda (#{tmp\ 5604}#)
14096 (if #{tmp\ 5604}#
14097 (apply (lambda (#{k\ 5605}#
14098 #{e1\ 5606}#
14099 #{e2\ 5607}#)
14100 (list '#(syntax-object
14101 if
14102 ((top)
14103 #(ribcage
14104 #(k
14105 e1
14106 e2)
14107 #((top)
14108 (top)
14109 (top))
14110 #("i"
14111 "i"
14112 "i"))
14113 #(ribcage
14114 #(rest)
14115 #((top))
14116 #("i"))
14117 #(ribcage
14118 ()
14119 ()
14120 ())
14121 #(ribcage
14122 #(f
14123 clause
14124 clauses)
14125 #((top)
14126 (top)
14127 (top))
14128 #("i"
14129 "i"
14130 "i"))
14131 #(ribcage
14132 #(_
14133 e
14134 m1
14135 m2)
14136 #((top)
14137 (top)
14138 (top)
14139 (top))
14140 #("i"
14141 "i"
14142 "i"
14143 "i"))
14144 #(ribcage
14145 ()
14146 ()
14147 ())
14148 #(ribcage
14149 #(x)
14150 #((top))
14151 #("i")))
14152 (hygiene
14153 guile))
14154 (list '#(syntax-object
14155 memv
14156 ((top)
14157 #(ribcage
14158 #(k
14159 e1
14160 e2)
14161 #((top)
14162 (top)
14163 (top))
14164 #("i"
14165 "i"
14166 "i"))
14167 #(ribcage
14168 #(rest)
14169 #((top))
14170 #("i"))
14171 #(ribcage
14172 ()
14173 ()
14174 ())
14175 #(ribcage
14176 #(f
14177 clause
14178 clauses)
14179 #((top)
14180 (top)
14181 (top))
14182 #("i"
14183 "i"
14184 "i"))
14185 #(ribcage
14186 #(_
14187 e
14188 m1
14189 m2)
14190 #((top)
14191 (top)
14192 (top)
14193 (top))
14194 #("i"
14195 "i"
14196 "i"
14197 "i"))
14198 #(ribcage
14199 ()
14200 ()
14201 ())
14202 #(ribcage
14203 #(x)
14204 #((top))
14205 #("i")))
14206 (hygiene
14207 guile))
14208 '#(syntax-object
14209 t
14210 ((top)
14211 #(ribcage
14212 #(k
14213 e1
14214 e2)
14215 #((top)
14216 (top)
14217 (top))
14218 #("i"
14219 "i"
14220 "i"))
14221 #(ribcage
14222 #(rest)
14223 #((top))
14224 #("i"))
14225 #(ribcage
14226 ()
14227 ()
14228 ())
14229 #(ribcage
14230 #(f
14231 clause
14232 clauses)
14233 #((top)
14234 (top)
14235 (top))
14236 #("i"
14237 "i"
14238 "i"))
14239 #(ribcage
14240 #(_
14241 e
14242 m1
14243 m2)
14244 #((top)
14245 (top)
14246 (top)
14247 (top))
14248 #("i"
14249 "i"
14250 "i"
14251 "i"))
14252 #(ribcage
14253 ()
14254 ()
14255 ())
14256 #(ribcage
14257 #(x)
14258 #((top))
14259 #("i")))
14260 (hygiene
14261 guile))
14262 (list '#(syntax-object
14263 quote
14264 ((top)
14265 #(ribcage
14266 #(k
14267 e1
14268 e2)
14269 #((top)
14270 (top)
14271 (top))
14272 #("i"
14273 "i"
14274 "i"))
14275 #(ribcage
14276 #(rest)
14277 #((top))
14278 #("i"))
14279 #(ribcage
14280 ()
14281 ()
14282 ())
14283 #(ribcage
14284 #(f
14285 clause
14286 clauses)
14287 #((top)
14288 (top)
14289 (top))
14290 #("i"
14291 "i"
14292 "i"))
14293 #(ribcage
14294 #(_
14295 e
14296 m1
14297 m2)
14298 #((top)
14299 (top)
14300 (top)
14301 (top))
14302 #("i"
14303 "i"
14304 "i"
14305 "i"))
14306 #(ribcage
14307 ()
14308 ()
14309 ())
14310 #(ribcage
14311 #(x)
14312 #((top))
14313 #("i")))
14314 (hygiene
14315 guile))
14316 #{k\ 5605}#))
14317 (cons '#(syntax-object
14318 begin
14319 ((top)
14320 #(ribcage
14321 #(k
14322 e1
14323 e2)
14324 #((top)
14325 (top)
14326 (top))
14327 #("i"
14328 "i"
14329 "i"))
14330 #(ribcage
14331 #(rest)
14332 #((top))
14333 #("i"))
14334 #(ribcage
14335 ()
14336 ()
14337 ())
14338 #(ribcage
14339 #(f
14340 clause
14341 clauses)
14342 #((top)
14343 (top)
14344 (top))
14345 #("i"
14346 "i"
14347 "i"))
14348 #(ribcage
14349 #(_
14350 e
14351 m1
14352 m2)
14353 #((top)
14354 (top)
14355 (top)
14356 (top))
14357 #("i"
14358 "i"
14359 "i"
14360 "i"))
14361 #(ribcage
14362 ()
14363 ()
14364 ())
14365 #(ribcage
14366 #(x)
14367 #((top))
14368 #("i")))
14369 (hygiene
14370 guile))
14371 (cons #{e1\ 5606}#
14372 #{e2\ 5607}#))
14373 #{rest\ 5602}#))
14374 #{tmp\ 5604}#)
14375 ((lambda (#{_\ 5610}#)
14376 (syntax-violation
14377 'case
14378 "bad clause"
14379 #{x\ 5576}#
14380 #{clause\ 5586}#))
14381 #{tmp\ 5603}#)))
14382 ($sc-dispatch
14383 #{tmp\ 5603}#
14384 '(each-any
14385 any
14386 .
14387 each-any))))
14388 #{clause\ 5586}#))
14389 #{tmp\ 5601}#))
14390 (#{f\ 5585}#
14391 (car #{clauses\ 5587}#)
14392 (cdr #{clauses\ 5587}#)))))))
14393 (#{f\ 5585}# #{m1\ 5581}# #{m2\ 5582}#))))
14394 #{tmp\ 5578}#)
14395 (syntax-violation
14396 #f
14397 "source expression failed to match any pattern"
14398 #{tmp\ 5577}#)))
14399 ($sc-dispatch
14400 #{tmp\ 5577}#
14401 '(any any any . each-any))))
14402 #{x\ 5576}#))
14403 (module-name (current-module)))))
14404
14405 (define identifier-syntax
14406 (make-syncase-macro
14407 'macro
14408 (cons (lambda (#{x\ 5611}#)
14409 ((lambda (#{tmp\ 5612}#)
14410 ((lambda (#{tmp\ 5613}#)
14411 (if #{tmp\ 5613}#
14412 (apply (lambda (#{_\ 5614}# #{e\ 5615}#)
14413 (list '#(syntax-object
14414 lambda
14415 ((top)
14416 #(ribcage
14417 #(_ e)
14418 #((top) (top))
14419 #("i" "i"))
14420 #(ribcage () () ())
14421 #(ribcage #(x) #((top)) #("i")))
14422 (hygiene guile))
14423 '(#(syntax-object
14424 x
14425 ((top)
14426 #(ribcage
14427 #(_ e)
14428 #((top) (top))
14429 #("i" "i"))
14430 #(ribcage () () ())
14431 #(ribcage #(x) #((top)) #("i")))
14432 (hygiene guile)))
14433 (list '#(syntax-object
14434 syntax-case
14435 ((top)
14436 #(ribcage
14437 #(_ e)
14438 #((top) (top))
14439 #("i" "i"))
14440 #(ribcage () () ())
14441 #(ribcage #(x) #((top)) #("i")))
14442 (hygiene guile))
14443 '#(syntax-object
14444 x
14445 ((top)
14446 #(ribcage
14447 #(_ e)
14448 #((top) (top))
14449 #("i" "i"))
14450 #(ribcage () () ())
14451 #(ribcage #(x) #((top)) #("i")))
14452 (hygiene guile))
14453 '()
14454 (list '#(syntax-object
14455 id
14456 ((top)
14457 #(ribcage
14458 #(_ e)
14459 #((top) (top))
14460 #("i" "i"))
14461 #(ribcage () () ())
14462 #(ribcage
14463 #(x)
14464 #((top))
14465 #("i")))
14466 (hygiene guile))
14467 '(#(syntax-object
14468 identifier?
14469 ((top)
14470 #(ribcage
14471 #(_ e)
14472 #((top) (top))
14473 #("i" "i"))
14474 #(ribcage () () ())
14475 #(ribcage
14476 #(x)
14477 #((top))
14478 #("i")))
14479 (hygiene guile))
14480 (#(syntax-object
14481 syntax
14482 ((top)
14483 #(ribcage
14484 #(_ e)
14485 #((top) (top))
14486 #("i" "i"))
14487 #(ribcage () () ())
14488 #(ribcage
14489 #(x)
14490 #((top))
14491 #("i")))
14492 (hygiene guile))
14493 #(syntax-object
14494 id
14495 ((top)
14496 #(ribcage
14497 #(_ e)
14498 #((top) (top))
14499 #("i" "i"))
14500 #(ribcage () () ())
14501 #(ribcage
14502 #(x)
14503 #((top))
14504 #("i")))
14505 (hygiene guile))))
14506 (list '#(syntax-object
14507 syntax
14508 ((top)
14509 #(ribcage
14510 #(_ e)
14511 #((top) (top))
14512 #("i" "i"))
14513 #(ribcage () () ())
14514 #(ribcage
14515 #(x)
14516 #((top))
14517 #("i")))
14518 (hygiene guile))
14519 #{e\ 5615}#))
14520 (list (cons #{_\ 5614}#
14521 '(#(syntax-object
14522 x
14523 ((top)
14524 #(ribcage
14525 #(_ e)
14526 #((top) (top))
14527 #("i" "i"))
14528 #(ribcage () () ())
14529 #(ribcage
14530 #(x)
14531 #((top))
14532 #("i")))
14533 (hygiene guile))
14534 #(syntax-object
14535 ...
14536 ((top)
14537 #(ribcage
14538 #(_ e)
14539 #((top) (top))
14540 #("i" "i"))
14541 #(ribcage () () ())
14542 #(ribcage
14543 #(x)
14544 #((top))
14545 #("i")))
14546 (hygiene guile))))
14547 (list '#(syntax-object
14548 syntax
14549 ((top)
14550 #(ribcage
14551 #(_ e)
14552 #((top) (top))
14553 #("i" "i"))
14554 #(ribcage () () ())
14555 #(ribcage
14556 #(x)
14557 #((top))
14558 #("i")))
14559 (hygiene guile))
14560 (cons #{e\ 5615}#
14561 '(#(syntax-object
14562 x
14563 ((top)
14564 #(ribcage
14565 #(_ e)
14566 #((top)
14567 (top))
14568 #("i" "i"))
14569 #(ribcage
14570 ()
14571 ()
14572 ())
14573 #(ribcage
14574 #(x)
14575 #((top))
14576 #("i")))
14577 (hygiene guile))
14578 #(syntax-object
14579 ...
14580 ((top)
14581 #(ribcage
14582 #(_ e)
14583 #((top)
14584 (top))
14585 #("i" "i"))
14586 #(ribcage
14587 ()
14588 ()
14589 ())
14590 #(ribcage
14591 #(x)
14592 #((top))
14593 #("i")))
14594 (hygiene
14595 guile)))))))))
14596 #{tmp\ 5613}#)
14597 (syntax-violation
14598 #f
14599 "source expression failed to match any pattern"
14600 #{tmp\ 5612}#)))
14601 ($sc-dispatch #{tmp\ 5612}# (quote (any any)))))
14602 #{x\ 5611}#))
14603 (module-name (current-module)))))
14604
14605 (define define*
14606 (make-syncase-macro
14607 'macro
14608 (cons (lambda (#{x\ 5616}#)
14609 ((lambda (#{tmp\ 5617}#)
14610 ((lambda (#{tmp\ 5618}#)
14611 (if #{tmp\ 5618}#
14612 (apply (lambda (#{dummy\ 5619}#
14613 #{id\ 5620}#
14614 #{args\ 5621}#
14615 #{b0\ 5622}#
14616 #{b1\ 5623}#)
14617 (list '#(syntax-object
14618 define
14619 ((top)
14620 #(ribcage
14621 #(dummy id args b0 b1)
14622 #(("m" top) (top) (top) (top) (top))
14623 #("i" "i" "i" "i" "i"))
14624 #(ribcage () () ())
14625 #(ribcage #(x) #(("m" top)) #("i")))
14626 (hygiene guile))
14627 #{id\ 5620}#
14628 (cons '#(syntax-object
14629 lambda*
14630 ((top)
14631 #(ribcage
14632 #(dummy id args b0 b1)
14633 #(("m" top)
14634 (top)
14635 (top)
14636 (top)
14637 (top))
14638 #("i" "i" "i" "i" "i"))
14639 #(ribcage () () ())
14640 #(ribcage
14641 #(x)
14642 #(("m" top))
14643 #("i")))
14644 (hygiene guile))
14645 (cons #{args\ 5621}#
14646 (cons #{b0\ 5622}#
14647 #{b1\ 5623}#)))))
14648 #{tmp\ 5618}#)
14649 (syntax-violation
14650 #f
14651 "source expression failed to match any pattern"
14652 #{tmp\ 5617}#)))
14653 ($sc-dispatch
14654 #{tmp\ 5617}#
14655 '(any (any . any) any . each-any))))
14656 #{x\ 5616}#))
14657 (module-name (current-module)))))
14658
Unnamed repository; edit this file 'description' to name the repository.