Commit | Line | Data |
---|---|---|
9c35c579 | 1 | (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) |
41af2381 | 2 | (if #f #f) |
65dd9e38 | 3 | |
0f2b9f62 | 4 | (letrec* |
34c5fe83 | 5 | ((#{top-level-eval-hook 4273}# |
78a47455 AW |
6 | (lambda (#{x 28128}# #{mod 28129}#) |
7 | (primitive-eval #{x 28128}#))) | |
34c5fe83 | 8 | (#{maybe-name-value! 4278}# |
78a47455 AW |
9 | (lambda (#{name 16665}# #{val 16666}#) |
10 | (if (if (struct? #{val 16666}#) | |
11 | (eq? (struct-vtable #{val 16666}#) | |
34c5fe83 AW |
12 | (vector-ref %expanded-vtables 13)) |
13 | #f) | |
78a47455 AW |
14 | (let ((#{meta 16673}# (struct-ref #{val 16666}# 1))) |
15 | (if (not (assq 'name #{meta 16673}#)) | |
16 | (let ((#{v 16678}# | |
17 | (cons (cons 'name #{name 16665}#) #{meta 16673}#))) | |
18 | (struct-set! #{val 16666}# 1 #{v 16678}#))))))) | |
34c5fe83 | 19 | (#{build-application 4280}# |
78a47455 AW |
20 | (lambda (#{source 16390}# |
21 | #{fun-exp 16391}# | |
22 | #{arg-exps 16392}#) | |
e2ccab57 AW |
23 | (make-struct/no-tail |
24 | (vector-ref %expanded-vtables 11) | |
78a47455 AW |
25 | #{source 16390}# |
26 | #{fun-exp 16391}# | |
27 | #{arg-exps 16392}#))) | |
34c5fe83 | 28 | (#{build-conditional 4281}# |
78a47455 AW |
29 | (lambda (#{source 16398}# |
30 | #{test-exp 16399}# | |
31 | #{then-exp 16400}# | |
32 | #{else-exp 16401}#) | |
e2ccab57 | 33 | (make-struct/no-tail |
34c5fe83 | 34 | (vector-ref %expanded-vtables 10) |
78a47455 AW |
35 | #{source 16398}# |
36 | #{test-exp 16399}# | |
37 | #{then-exp 16400}# | |
38 | #{else-exp 16401}#))) | |
34c5fe83 | 39 | (#{build-dynlet 4282}# |
78a47455 AW |
40 | (lambda (#{source 16408}# |
41 | #{fluids 16409}# | |
42 | #{vals 16410}# | |
43 | #{body 16411}#) | |
e2ccab57 AW |
44 | (make-struct/no-tail |
45 | (vector-ref %expanded-vtables 17) | |
78a47455 AW |
46 | #{source 16408}# |
47 | #{fluids 16409}# | |
48 | #{vals 16410}# | |
49 | #{body 16411}#))) | |
34c5fe83 | 50 | (#{build-lexical-reference 4283}# |
78a47455 AW |
51 | (lambda (#{type 28130}# |
52 | #{source 28131}# | |
53 | #{name 28132}# | |
54 | #{var 28133}#) | |
34c5fe83 AW |
55 | (make-struct/no-tail |
56 | (vector-ref %expanded-vtables 3) | |
78a47455 AW |
57 | #{source 28131}# |
58 | #{name 28132}# | |
59 | #{var 28133}#))) | |
34c5fe83 | 60 | (#{build-lexical-assignment 4284}# |
78a47455 AW |
61 | (lambda (#{source 16418}# |
62 | #{name 16419}# | |
63 | #{var 16420}# | |
64 | #{exp 16421}#) | |
417ee098 | 65 | (begin |
78a47455 AW |
66 | (if (if (struct? #{exp 16421}#) |
67 | (eq? (struct-vtable #{exp 16421}#) | |
34c5fe83 | 68 | (vector-ref %expanded-vtables 13)) |
014de9e2 | 69 | #f) |
78a47455 AW |
70 | (let ((#{meta 16437}# (struct-ref #{exp 16421}# 1))) |
71 | (if (not (assq 'name #{meta 16437}#)) | |
72 | (let ((#{v 16444}# | |
73 | (cons (cons 'name #{name 16419}#) #{meta 16437}#))) | |
74 | (struct-set! #{exp 16421}# 1 #{v 16444}#))))) | |
34c5fe83 AW |
75 | (make-struct/no-tail |
76 | (vector-ref %expanded-vtables 4) | |
78a47455 AW |
77 | #{source 16418}# |
78 | #{name 16419}# | |
79 | #{var 16420}# | |
80 | #{exp 16421}#)))) | |
34c5fe83 | 81 | (#{analyze-variable 4285}# |
78a47455 AW |
82 | (lambda (#{mod 28139}# |
83 | #{var 28140}# | |
84 | #{modref-cont 28141}# | |
85 | #{bare-cont 28142}#) | |
86 | (if (not #{mod 28139}#) | |
87 | (#{bare-cont 28142}# #{var 28140}#) | |
88 | (let ((#{kind 28143}# (car #{mod 28139}#)) | |
89 | (#{mod 28144}# (cdr #{mod 28139}#))) | |
90 | (if (eqv? #{kind 28143}# 'public) | |
91 | (#{modref-cont 28141}# | |
92 | #{mod 28144}# | |
93 | #{var 28140}# | |
014de9e2 | 94 | #t) |
78a47455 | 95 | (if (eqv? #{kind 28143}# 'private) |
014de9e2 | 96 | (if (not (equal? |
78a47455 | 97 | #{mod 28144}# |
014de9e2 | 98 | (module-name (current-module)))) |
78a47455 AW |
99 | (#{modref-cont 28141}# |
100 | #{mod 28144}# | |
101 | #{var 28140}# | |
014de9e2 | 102 | #f) |
78a47455 AW |
103 | (#{bare-cont 28142}# #{var 28140}#)) |
104 | (if (eqv? #{kind 28143}# 'bare) | |
105 | (#{bare-cont 28142}# #{var 28140}#) | |
106 | (if (eqv? #{kind 28143}# 'hygiene) | |
014de9e2 | 107 | (if (if (not (equal? |
78a47455 | 108 | #{mod 28144}# |
014de9e2 AW |
109 | (module-name (current-module)))) |
110 | (module-variable | |
78a47455 AW |
111 | (resolve-module #{mod 28144}#) |
112 | #{var 28140}#) | |
df40b969 | 113 | #f) |
78a47455 AW |
114 | (#{modref-cont 28141}# |
115 | #{mod 28144}# | |
116 | #{var 28140}# | |
014de9e2 | 117 | #f) |
78a47455 | 118 | (#{bare-cont 28142}# #{var 28140}#)) |
014de9e2 AW |
119 | (syntax-violation |
120 | #f | |
121 | "bad module kind" | |
78a47455 AW |
122 | #{var 28140}# |
123 | #{mod 28144}#))))))))) | |
34c5fe83 | 124 | (#{build-global-reference 4286}# |
78a47455 | 125 | (lambda (#{source 28159}# #{var 28160}# #{mod 28161}#) |
34c5fe83 | 126 | (#{analyze-variable 4285}# |
78a47455 AW |
127 | #{mod 28161}# |
128 | #{var 28160}# | |
129 | (lambda (#{mod 28164}# #{var 28165}# #{public? 28166}#) | |
34c5fe83 AW |
130 | (make-struct/no-tail |
131 | (vector-ref %expanded-vtables 5) | |
78a47455 AW |
132 | #{source 28159}# |
133 | #{mod 28164}# | |
134 | #{var 28165}# | |
135 | #{public? 28166}#)) | |
136 | (lambda (#{var 28174}#) | |
34c5fe83 AW |
137 | (make-struct/no-tail |
138 | (vector-ref %expanded-vtables 7) | |
78a47455 AW |
139 | #{source 28159}# |
140 | #{var 28174}#))))) | |
34c5fe83 | 141 | (#{build-global-assignment 4287}# |
78a47455 AW |
142 | (lambda (#{source 16453}# |
143 | #{var 16454}# | |
144 | #{exp 16455}# | |
145 | #{mod 16456}#) | |
e2ccab57 | 146 | (begin |
78a47455 AW |
147 | (if (if (struct? #{exp 16455}#) |
148 | (eq? (struct-vtable #{exp 16455}#) | |
34c5fe83 AW |
149 | (vector-ref %expanded-vtables 13)) |
150 | #f) | |
78a47455 AW |
151 | (let ((#{meta 16472}# (struct-ref #{exp 16455}# 1))) |
152 | (if (not (assq 'name #{meta 16472}#)) | |
153 | (let ((#{v 16479}# | |
154 | (cons (cons 'name #{var 16454}#) #{meta 16472}#))) | |
155 | (struct-set! #{exp 16455}# 1 #{v 16479}#))))) | |
34c5fe83 | 156 | (#{analyze-variable 4285}# |
78a47455 AW |
157 | #{mod 16456}# |
158 | #{var 16454}# | |
159 | (lambda (#{mod 16484}# #{var 16485}# #{public? 16486}#) | |
34c5fe83 AW |
160 | (make-struct/no-tail |
161 | (vector-ref %expanded-vtables 6) | |
78a47455 AW |
162 | #{source 16453}# |
163 | #{mod 16484}# | |
164 | #{var 16485}# | |
165 | #{public? 16486}# | |
166 | #{exp 16455}#)) | |
167 | (lambda (#{var 16494}#) | |
34c5fe83 AW |
168 | (make-struct/no-tail |
169 | (vector-ref %expanded-vtables 8) | |
78a47455 AW |
170 | #{source 16453}# |
171 | #{var 16494}# | |
172 | #{exp 16455}#)))))) | |
34c5fe83 | 173 | (#{build-global-definition 4288}# |
78a47455 | 174 | (lambda (#{source 28180}# #{var 28181}# #{exp 28182}#) |
e2ccab57 | 175 | (begin |
78a47455 AW |
176 | (if (if (struct? #{exp 28182}#) |
177 | (eq? (struct-vtable #{exp 28182}#) | |
34c5fe83 AW |
178 | (vector-ref %expanded-vtables 13)) |
179 | #f) | |
78a47455 AW |
180 | (let ((#{meta 28198}# (struct-ref #{exp 28182}# 1))) |
181 | (if (not (assq 'name #{meta 28198}#)) | |
182 | (let ((#{v 28205}# | |
183 | (cons (cons 'name #{var 28181}#) #{meta 28198}#))) | |
184 | (struct-set! #{exp 28182}# 1 #{v 28205}#))))) | |
34c5fe83 AW |
185 | (make-struct/no-tail |
186 | (vector-ref %expanded-vtables 9) | |
78a47455 AW |
187 | #{source 28180}# |
188 | #{var 28181}# | |
189 | #{exp 28182}#)))) | |
34c5fe83 | 190 | (#{build-simple-lambda 4289}# |
78a47455 AW |
191 | (lambda (#{src 16500}# |
192 | #{req 16501}# | |
193 | #{rest 16502}# | |
194 | #{vars 16503}# | |
195 | #{meta 16504}# | |
196 | #{exp 16505}#) | |
197 | (let ((#{body 16511}# | |
34c5fe83 AW |
198 | (make-struct/no-tail |
199 | (vector-ref %expanded-vtables 14) | |
78a47455 AW |
200 | #{src 16500}# |
201 | #{req 16501}# | |
34c5fe83 | 202 | #f |
78a47455 | 203 | #{rest 16502}# |
34c5fe83 AW |
204 | #f |
205 | '() | |
78a47455 AW |
206 | #{vars 16503}# |
207 | #{exp 16505}# | |
34c5fe83 AW |
208 | #f))) |
209 | (make-struct/no-tail | |
210 | (vector-ref %expanded-vtables 13) | |
78a47455 AW |
211 | #{src 16500}# |
212 | #{meta 16504}# | |
213 | #{body 16511}#)))) | |
34c5fe83 | 214 | (#{build-sequence 4294}# |
78a47455 AW |
215 | (lambda (#{src 28213}# #{exps 28214}#) |
216 | (if (null? (cdr #{exps 28214}#)) | |
217 | (car #{exps 28214}#) | |
34c5fe83 AW |
218 | (make-struct/no-tail |
219 | (vector-ref %expanded-vtables 12) | |
78a47455 AW |
220 | #{src 28213}# |
221 | #{exps 28214}#)))) | |
34c5fe83 | 222 | (#{build-let 4295}# |
78a47455 AW |
223 | (lambda (#{src 16523}# |
224 | #{ids 16524}# | |
225 | #{vars 16525}# | |
226 | #{val-exps 16526}# | |
227 | #{body-exp 16527}#) | |
34c5fe83 AW |
228 | (begin |
229 | (for-each | |
230 | #{maybe-name-value! 4278}# | |
78a47455 AW |
231 | #{ids 16524}# |
232 | #{val-exps 16526}#) | |
233 | (if (null? #{vars 16525}#) | |
234 | #{body-exp 16527}# | |
34c5fe83 AW |
235 | (make-struct/no-tail |
236 | (vector-ref %expanded-vtables 15) | |
78a47455 AW |
237 | #{src 16523}# |
238 | #{ids 16524}# | |
239 | #{vars 16525}# | |
240 | #{val-exps 16526}# | |
241 | #{body-exp 16527}#))))) | |
34c5fe83 | 242 | (#{build-named-let 4296}# |
78a47455 AW |
243 | (lambda (#{src 16551}# |
244 | #{ids 16552}# | |
245 | #{vars 16553}# | |
246 | #{val-exps 16554}# | |
247 | #{body-exp 16555}#) | |
248 | (let ((#{f 16556}# (car #{vars 16553}#)) | |
249 | (#{f-name 16557}# (car #{ids 16552}#)) | |
250 | (#{vars 16558}# (cdr #{vars 16553}#)) | |
251 | (#{ids 16559}# (cdr #{ids 16552}#))) | |
252 | (let ((#{proc 16560}# | |
253 | (let ((#{body 16580}# | |
34c5fe83 AW |
254 | (make-struct/no-tail |
255 | (vector-ref %expanded-vtables 14) | |
78a47455 AW |
256 | #{src 16551}# |
257 | #{ids 16559}# | |
34c5fe83 AW |
258 | #f |
259 | #f | |
260 | #f | |
261 | '() | |
78a47455 AW |
262 | #{vars 16558}# |
263 | #{body-exp 16555}# | |
34c5fe83 AW |
264 | #f))) |
265 | (make-struct/no-tail | |
266 | (vector-ref %expanded-vtables 13) | |
78a47455 | 267 | #{src 16551}# |
34c5fe83 | 268 | '() |
78a47455 | 269 | #{body 16580}#)))) |
34c5fe83 | 270 | (begin |
78a47455 AW |
271 | (if (if (struct? #{proc 16560}#) |
272 | (eq? (struct-vtable #{proc 16560}#) | |
34c5fe83 AW |
273 | (vector-ref %expanded-vtables 13)) |
274 | #f) | |
78a47455 AW |
275 | (let ((#{meta 16604}# (struct-ref #{proc 16560}# 1))) |
276 | (if (not (assq 'name #{meta 16604}#)) | |
277 | (let ((#{v 16611}# | |
278 | (cons (cons 'name #{f-name 16557}#) | |
279 | #{meta 16604}#))) | |
280 | (struct-set! #{proc 16560}# 1 #{v 16611}#))))) | |
34c5fe83 AW |
281 | (for-each |
282 | #{maybe-name-value! 4278}# | |
78a47455 AW |
283 | #{ids 16559}# |
284 | #{val-exps 16554}#) | |
285 | (let ((#{names 16635}# (list #{f-name 16557}#)) | |
286 | (#{gensyms 16636}# (list #{f 16556}#)) | |
287 | (#{vals 16637}# (list #{proc 16560}#)) | |
288 | (#{body 16638}# | |
289 | (let ((#{fun-exp 16642}# | |
34c5fe83 AW |
290 | (make-struct/no-tail |
291 | (vector-ref %expanded-vtables 3) | |
78a47455 AW |
292 | #{src 16551}# |
293 | #{f-name 16557}# | |
294 | #{f 16556}#))) | |
34c5fe83 AW |
295 | (make-struct/no-tail |
296 | (vector-ref %expanded-vtables 11) | |
78a47455 AW |
297 | #{src 16551}# |
298 | #{fun-exp 16642}# | |
299 | #{val-exps 16554}#)))) | |
34c5fe83 AW |
300 | (make-struct/no-tail |
301 | (vector-ref %expanded-vtables 16) | |
78a47455 | 302 | #{src 16551}# |
34c5fe83 | 303 | #f |
78a47455 AW |
304 | #{names 16635}# |
305 | #{gensyms 16636}# | |
306 | #{vals 16637}# | |
307 | #{body 16638}#))))))) | |
34c5fe83 | 308 | (#{build-letrec 4297}# |
78a47455 AW |
309 | (lambda (#{src 16658}# |
310 | #{in-order? 16659}# | |
311 | #{ids 16660}# | |
312 | #{vars 16661}# | |
313 | #{val-exps 16662}# | |
314 | #{body-exp 16663}#) | |
315 | (if (null? #{vars 16661}#) | |
316 | #{body-exp 16663}# | |
e2ccab57 AW |
317 | (begin |
318 | (for-each | |
34c5fe83 | 319 | #{maybe-name-value! 4278}# |
78a47455 AW |
320 | #{ids 16660}# |
321 | #{val-exps 16662}#) | |
34c5fe83 AW |
322 | (make-struct/no-tail |
323 | (vector-ref %expanded-vtables 16) | |
78a47455 AW |
324 | #{src 16658}# |
325 | #{in-order? 16659}# | |
326 | #{ids 16660}# | |
327 | #{vars 16661}# | |
328 | #{val-exps 16662}# | |
329 | #{body-exp 16663}#))))) | |
34c5fe83 | 330 | (#{source-annotation 4306}# |
78a47455 AW |
331 | (lambda (#{x 16689}#) |
332 | (if (if (vector? #{x 16689}#) | |
333 | (if (= (vector-length #{x 16689}#) 4) | |
334 | (eq? (vector-ref #{x 16689}# 0) 'syntax-object) | |
34c5fe83 AW |
335 | #f) |
336 | #f) | |
337 | (#{source-annotation 4306}# | |
78a47455 AW |
338 | (vector-ref #{x 16689}# 1)) |
339 | (if (pair? #{x 16689}#) | |
340 | (let ((#{props 16704}# (source-properties #{x 16689}#))) | |
341 | (if (pair? #{props 16704}#) #{props 16704}# #f)) | |
e2ccab57 | 342 | #f)))) |
34c5fe83 | 343 | (#{extend-env 4307}# |
78a47455 AW |
344 | (lambda (#{labels 16706}# #{bindings 16707}# #{r 16708}#) |
345 | (if (null? #{labels 16706}#) | |
346 | #{r 16708}# | |
34c5fe83 | 347 | (#{extend-env 4307}# |
78a47455 AW |
348 | (cdr #{labels 16706}#) |
349 | (cdr #{bindings 16707}#) | |
350 | (cons (cons (car #{labels 16706}#) | |
351 | (car #{bindings 16707}#)) | |
352 | #{r 16708}#))))) | |
34c5fe83 | 353 | (#{extend-var-env 4308}# |
78a47455 AW |
354 | (lambda (#{labels 16709}# #{vars 16710}# #{r 16711}#) |
355 | (if (null? #{labels 16709}#) | |
356 | #{r 16711}# | |
34c5fe83 | 357 | (#{extend-var-env 4308}# |
78a47455 AW |
358 | (cdr #{labels 16709}#) |
359 | (cdr #{vars 16710}#) | |
360 | (cons (cons (car #{labels 16709}#) | |
361 | (cons 'lexical (car #{vars 16710}#))) | |
362 | #{r 16711}#))))) | |
34c5fe83 | 363 | (#{macros-only-env 4309}# |
78a47455 AW |
364 | (lambda (#{r 16712}#) |
365 | (if (null? #{r 16712}#) | |
e2ccab57 | 366 | '() |
78a47455 AW |
367 | (let ((#{a 16713}# (car #{r 16712}#))) |
368 | (if (eq? (car (cdr #{a 16713}#)) 'macro) | |
369 | (cons #{a 16713}# | |
370 | (#{macros-only-env 4309}# (cdr #{r 16712}#))) | |
371 | (#{macros-only-env 4309}# (cdr #{r 16712}#))))))) | |
34c5fe83 | 372 | (#{global-extend 4311}# |
78a47455 | 373 | (lambda (#{type 16715}# #{sym 16716}# #{val 16717}#) |
34c5fe83 AW |
374 | (module-define! |
375 | (current-module) | |
78a47455 | 376 | #{sym 16716}# |
34c5fe83 | 377 | (make-syntax-transformer |
78a47455 AW |
378 | #{sym 16716}# |
379 | #{type 16715}# | |
380 | #{val 16717}#)))) | |
34c5fe83 | 381 | (#{id? 4313}# |
78a47455 AW |
382 | (lambda (#{x 10549}#) |
383 | (if (symbol? #{x 10549}#) | |
e2ccab57 | 384 | #t |
78a47455 AW |
385 | (if (if (vector? #{x 10549}#) |
386 | (if (= (vector-length #{x 10549}#) 4) | |
387 | (eq? (vector-ref #{x 10549}# 0) 'syntax-object) | |
34c5fe83 AW |
388 | #f) |
389 | #f) | |
78a47455 | 390 | (symbol? (vector-ref #{x 10549}# 1)) |
e2ccab57 | 391 | #f)))) |
34c5fe83 | 392 | (#{gen-labels 4316}# |
78a47455 AW |
393 | (lambda (#{ls 16727}#) |
394 | (if (null? #{ls 16727}#) | |
e2ccab57 | 395 | '() |
34c5fe83 | 396 | (cons (symbol->string (gensym "i")) |
78a47455 | 397 | (#{gen-labels 4316}# (cdr #{ls 16727}#)))))) |
34c5fe83 | 398 | (#{make-binding-wrap 4327}# |
78a47455 AW |
399 | (lambda (#{ids 16731}# #{labels 16732}# #{w 16733}#) |
400 | (if (null? #{ids 16731}#) | |
401 | #{w 16733}# | |
402 | (cons (car #{w 16733}#) | |
403 | (cons (let ((#{labelvec 16734}# | |
404 | (list->vector #{labels 16732}#))) | |
405 | (let ((#{n 16735}# (vector-length #{labelvec 16734}#))) | |
406 | (let ((#{symnamevec 16736}# (make-vector #{n 16735}#)) | |
407 | (#{marksvec 16737}# (make-vector #{n 16735}#))) | |
014de9e2 AW |
408 | (begin |
409 | (letrec* | |
78a47455 AW |
410 | ((#{f 16738}# |
411 | (lambda (#{ids 16741}# #{i 16742}#) | |
412 | (if (not (null? #{ids 16741}#)) | |
014de9e2 AW |
413 | (call-with-values |
414 | (lambda () | |
78a47455 AW |
415 | (let ((#{x 16745}# |
416 | (car #{ids 16741}#))) | |
417 | (if (if (vector? #{x 16745}#) | |
34c5fe83 | 418 | (if (= (vector-length |
78a47455 | 419 | #{x 16745}#) |
34c5fe83 AW |
420 | 4) |
421 | (eq? (vector-ref | |
78a47455 | 422 | #{x 16745}# |
34c5fe83 AW |
423 | 0) |
424 | 'syntax-object) | |
425 | #f) | |
426 | #f) | |
427 | (values | |
78a47455 AW |
428 | (vector-ref #{x 16745}# 1) |
429 | (let ((#{m1 16761}# | |
430 | (car #{w 16733}#)) | |
431 | (#{m2 16762}# | |
34c5fe83 | 432 | (car (vector-ref |
78a47455 | 433 | #{x 16745}# |
34c5fe83 | 434 | 2)))) |
78a47455 AW |
435 | (if (null? #{m2 16762}#) |
436 | #{m1 16761}# | |
34c5fe83 | 437 | (append |
78a47455 AW |
438 | #{m1 16761}# |
439 | #{m2 16762}#)))) | |
34c5fe83 | 440 | (values |
78a47455 AW |
441 | #{x 16745}# |
442 | (car #{w 16733}#))))) | |
443 | (lambda (#{symname 16782}# | |
444 | #{marks 16783}#) | |
014de9e2 AW |
445 | (begin |
446 | (vector-set! | |
78a47455 AW |
447 | #{symnamevec 16736}# |
448 | #{i 16742}# | |
449 | #{symname 16782}#) | |
014de9e2 | 450 | (vector-set! |
78a47455 AW |
451 | #{marksvec 16737}# |
452 | #{i 16742}# | |
453 | #{marks 16783}#) | |
454 | (#{f 16738}# | |
455 | (cdr #{ids 16741}#) | |
456 | (#{1+}# #{i 16742}#))))))))) | |
457 | (#{f 16738}# #{ids 16731}# 0)) | |
34c5fe83 AW |
458 | (vector |
459 | 'ribcage | |
78a47455 AW |
460 | #{symnamevec 16736}# |
461 | #{marksvec 16737}# | |
462 | #{labelvec 16734}#))))) | |
463 | (cdr #{w 16733}#)))))) | |
34c5fe83 | 464 | (#{join-wraps 4329}# |
78a47455 AW |
465 | (lambda (#{w1 16792}# #{w2 16793}#) |
466 | (let ((#{m1 16794}# (car #{w1 16792}#)) | |
467 | (#{s1 16795}# (cdr #{w1 16792}#))) | |
468 | (if (null? #{m1 16794}#) | |
469 | (if (null? #{s1 16795}#) | |
470 | #{w2 16793}# | |
471 | (cons (car #{w2 16793}#) | |
472 | (let ((#{m2 16802}# (cdr #{w2 16793}#))) | |
473 | (if (null? #{m2 16802}#) | |
474 | #{s1 16795}# | |
475 | (append #{s1 16795}# #{m2 16802}#))))) | |
476 | (cons (let ((#{m2 16811}# (car #{w2 16793}#))) | |
477 | (if (null? #{m2 16811}#) | |
478 | #{m1 16794}# | |
479 | (append #{m1 16794}# #{m2 16811}#))) | |
480 | (let ((#{m2 16820}# (cdr #{w2 16793}#))) | |
481 | (if (null? #{m2 16820}#) | |
482 | #{s1 16795}# | |
483 | (append #{s1 16795}# #{m2 16820}#)))))))) | |
34c5fe83 | 484 | (#{same-marks? 4331}# |
78a47455 AW |
485 | (lambda (#{x 16825}# #{y 16826}#) |
486 | (if (eq? #{x 16825}# #{y 16826}#) | |
487 | (eq? #{x 16825}# #{y 16826}#) | |
488 | (if (not (null? #{x 16825}#)) | |
489 | (if (not (null? #{y 16826}#)) | |
490 | (if (eq? (car #{x 16825}#) (car #{y 16826}#)) | |
34c5fe83 | 491 | (#{same-marks? 4331}# |
78a47455 AW |
492 | (cdr #{x 16825}#) |
493 | (cdr #{y 16826}#)) | |
df40b969 AW |
494 | #f) |
495 | #f) | |
496 | #f)))) | |
34c5fe83 | 497 | (#{id-var-name 4332}# |
78a47455 | 498 | (lambda (#{id 16834}# #{w 16835}#) |
e2ccab57 | 499 | (letrec* |
78a47455 AW |
500 | ((#{search 16836}# |
501 | (lambda (#{sym 16897}# #{subst 16898}# #{marks 16899}#) | |
502 | (if (null? #{subst 16898}#) | |
503 | (values #f #{marks 16899}#) | |
504 | (let ((#{fst 16900}# (car #{subst 16898}#))) | |
505 | (if (eq? #{fst 16900}# 'shift) | |
506 | (#{search 16836}# | |
507 | #{sym 16897}# | |
508 | (cdr #{subst 16898}#) | |
509 | (cdr #{marks 16899}#)) | |
510 | (let ((#{symnames 16902}# (vector-ref #{fst 16900}# 1))) | |
511 | (if (vector? #{symnames 16902}#) | |
512 | (let ((#{n 16914}# (vector-length #{symnames 16902}#))) | |
34c5fe83 | 513 | (letrec* |
78a47455 AW |
514 | ((#{f 16915}# |
515 | (lambda (#{i 16917}#) | |
516 | (if (= #{i 16917}# #{n 16914}#) | |
517 | (#{search 16836}# | |
518 | #{sym 16897}# | |
519 | (cdr #{subst 16898}#) | |
520 | #{marks 16899}#) | |
34c5fe83 | 521 | (if (if (eq? (vector-ref |
78a47455 AW |
522 | #{symnames 16902}# |
523 | #{i 16917}#) | |
524 | #{sym 16897}#) | |
34c5fe83 | 525 | (#{same-marks? 4331}# |
78a47455 | 526 | #{marks 16899}# |
34c5fe83 | 527 | (vector-ref |
78a47455 AW |
528 | (vector-ref #{fst 16900}# 2) |
529 | #{i 16917}#)) | |
34c5fe83 AW |
530 | #f) |
531 | (values | |
532 | (vector-ref | |
78a47455 AW |
533 | (vector-ref #{fst 16900}# 3) |
534 | #{i 16917}#) | |
535 | #{marks 16899}#) | |
536 | (#{f 16915}# (#{1+}# #{i 16917}#))))))) | |
537 | (#{f 16915}# 0))) | |
34c5fe83 | 538 | (letrec* |
78a47455 AW |
539 | ((#{f 16950}# |
540 | (lambda (#{symnames 16952}# #{i 16953}#) | |
541 | (if (null? #{symnames 16952}#) | |
542 | (#{search 16836}# | |
543 | #{sym 16897}# | |
544 | (cdr #{subst 16898}#) | |
545 | #{marks 16899}#) | |
546 | (if (if (eq? (car #{symnames 16952}#) | |
547 | #{sym 16897}#) | |
34c5fe83 | 548 | (#{same-marks? 4331}# |
78a47455 | 549 | #{marks 16899}# |
34c5fe83 | 550 | (list-ref |
78a47455 AW |
551 | (vector-ref #{fst 16900}# 2) |
552 | #{i 16953}#)) | |
34c5fe83 AW |
553 | #f) |
554 | (values | |
555 | (list-ref | |
78a47455 AW |
556 | (vector-ref #{fst 16900}# 3) |
557 | #{i 16953}#) | |
558 | #{marks 16899}#) | |
559 | (#{f 16950}# | |
560 | (cdr #{symnames 16952}#) | |
561 | (#{1+}# #{i 16953}#))))))) | |
562 | (#{f 16950}# #{symnames 16902}# 0)))))))))) | |
563 | (if (symbol? #{id 16834}#) | |
564 | (let ((#{t 16839}# | |
565 | (#{search 16836}# | |
566 | #{id 16834}# | |
567 | (cdr #{w 16835}#) | |
568 | (car #{w 16835}#)))) | |
569 | (if #{t 16839}# #{t 16839}# #{id 16834}#)) | |
570 | (if (if (vector? #{id 16834}#) | |
571 | (if (= (vector-length #{id 16834}#) 4) | |
572 | (eq? (vector-ref #{id 16834}# 0) 'syntax-object) | |
34c5fe83 AW |
573 | #f) |
574 | #f) | |
78a47455 AW |
575 | (let ((#{id 16854}# (vector-ref #{id 16834}# 1)) |
576 | (#{w1 16855}# (vector-ref #{id 16834}# 2))) | |
577 | (let ((#{marks 16856}# | |
578 | (let ((#{m1 16866}# (car #{w 16835}#)) | |
579 | (#{m2 16867}# (car #{w1 16855}#))) | |
580 | (if (null? #{m2 16867}#) | |
581 | #{m1 16866}# | |
582 | (append #{m1 16866}# #{m2 16867}#))))) | |
014de9e2 AW |
583 | (call-with-values |
584 | (lambda () | |
78a47455 AW |
585 | (#{search 16836}# |
586 | #{id 16854}# | |
587 | (cdr #{w 16835}#) | |
588 | #{marks 16856}#)) | |
589 | (lambda (#{new-id 16883}# #{marks 16884}#) | |
590 | (if #{new-id 16883}# | |
591 | #{new-id 16883}# | |
592 | (let ((#{t 16892}# | |
593 | (#{search 16836}# | |
594 | #{id 16854}# | |
595 | (cdr #{w1 16855}#) | |
596 | #{marks 16884}#))) | |
597 | (if #{t 16892}# #{t 16892}# #{id 16854}#))))))) | |
014de9e2 AW |
598 | (syntax-violation |
599 | 'id-var-name | |
600 | "invalid id" | |
78a47455 | 601 | #{id 16834}#)))))) |
34c5fe83 | 602 | (#{valid-bound-ids? 4335}# |
78a47455 | 603 | (lambda (#{ids 16975}#) |
e2ccab57 | 604 | (if (letrec* |
78a47455 AW |
605 | ((#{all-ids? 16976}# |
606 | (lambda (#{ids 17138}#) | |
607 | (if (null? #{ids 17138}#) | |
608 | (null? #{ids 17138}#) | |
609 | (if (let ((#{x 17149}# (car #{ids 17138}#))) | |
610 | (if (symbol? #{x 17149}#) | |
34c5fe83 | 611 | #t |
78a47455 AW |
612 | (if (if (vector? #{x 17149}#) |
613 | (if (= (vector-length #{x 17149}#) 4) | |
614 | (eq? (vector-ref #{x 17149}# 0) | |
34c5fe83 AW |
615 | 'syntax-object) |
616 | #f) | |
617 | #f) | |
78a47455 | 618 | (symbol? (vector-ref #{x 17149}# 1)) |
34c5fe83 | 619 | #f))) |
78a47455 | 620 | (#{all-ids? 16976}# (cdr #{ids 17138}#)) |
df40b969 | 621 | #f))))) |
78a47455 AW |
622 | (#{all-ids? 16976}# #{ids 16975}#)) |
623 | (#{distinct-bound-ids? 4336}# #{ids 16975}#) | |
e2ccab57 | 624 | #f))) |
34c5fe83 | 625 | (#{distinct-bound-ids? 4336}# |
78a47455 | 626 | (lambda (#{ids 17281}#) |
e2ccab57 | 627 | (letrec* |
78a47455 AW |
628 | ((#{distinct? 17282}# |
629 | (lambda (#{ids 17398}#) | |
630 | (if (null? #{ids 17398}#) | |
631 | (null? #{ids 17398}#) | |
34c5fe83 | 632 | (if (not (#{bound-id-member? 4337}# |
78a47455 AW |
633 | (car #{ids 17398}#) |
634 | (cdr #{ids 17398}#))) | |
635 | (#{distinct? 17282}# (cdr #{ids 17398}#)) | |
df40b969 | 636 | #f))))) |
78a47455 | 637 | (#{distinct? 17282}# #{ids 17281}#)))) |
34c5fe83 | 638 | (#{bound-id-member? 4337}# |
78a47455 AW |
639 | (lambda (#{x 17618}# #{list 17619}#) |
640 | (if (not (null? #{list 17619}#)) | |
641 | (let ((#{t 17620}# | |
642 | (let ((#{j 17701}# (car #{list 17619}#))) | |
643 | (if (if (if (vector? #{x 17618}#) | |
644 | (if (= (vector-length #{x 17618}#) 4) | |
645 | (eq? (vector-ref #{x 17618}# 0) 'syntax-object) | |
34c5fe83 AW |
646 | #f) |
647 | #f) | |
78a47455 AW |
648 | (if (vector? #{j 17701}#) |
649 | (if (= (vector-length #{j 17701}#) 4) | |
650 | (eq? (vector-ref #{j 17701}# 0) 'syntax-object) | |
34c5fe83 AW |
651 | #f) |
652 | #f) | |
653 | #f) | |
78a47455 AW |
654 | (if (eq? (vector-ref #{x 17618}# 1) |
655 | (vector-ref #{j 17701}# 1)) | |
34c5fe83 | 656 | (#{same-marks? 4331}# |
78a47455 AW |
657 | (car (vector-ref #{x 17618}# 2)) |
658 | (car (vector-ref #{j 17701}# 2))) | |
34c5fe83 | 659 | #f) |
78a47455 AW |
660 | (eq? #{x 17618}# #{j 17701}#))))) |
661 | (if #{t 17620}# | |
662 | #{t 17620}# | |
34c5fe83 | 663 | (#{bound-id-member? 4337}# |
78a47455 AW |
664 | #{x 17618}# |
665 | (cdr #{list 17619}#)))) | |
e2ccab57 | 666 | #f))) |
34c5fe83 | 667 | (#{wrap 4338}# |
78a47455 AW |
668 | (lambda (#{x 17745}# #{w 17746}# #{defmod 17747}#) |
669 | (if (if (null? (car #{w 17746}#)) | |
670 | (null? (cdr #{w 17746}#)) | |
e2ccab57 | 671 | #f) |
78a47455 AW |
672 | #{x 17745}# |
673 | (if (if (vector? #{x 17745}#) | |
674 | (if (= (vector-length #{x 17745}#) 4) | |
675 | (eq? (vector-ref #{x 17745}# 0) 'syntax-object) | |
34c5fe83 AW |
676 | #f) |
677 | #f) | |
78a47455 AW |
678 | (let ((#{expression 17761}# (vector-ref #{x 17745}# 1)) |
679 | (#{wrap 17762}# | |
34c5fe83 | 680 | (#{join-wraps 4329}# |
78a47455 AW |
681 | #{w 17746}# |
682 | (vector-ref #{x 17745}# 2))) | |
683 | (#{module 17763}# (vector-ref #{x 17745}# 3))) | |
34c5fe83 AW |
684 | (vector |
685 | 'syntax-object | |
78a47455 AW |
686 | #{expression 17761}# |
687 | #{wrap 17762}# | |
688 | #{module 17763}#)) | |
689 | (if (null? #{x 17745}#) | |
690 | #{x 17745}# | |
34c5fe83 AW |
691 | (vector |
692 | 'syntax-object | |
78a47455 AW |
693 | #{x 17745}# |
694 | #{w 17746}# | |
695 | #{defmod 17747}#)))))) | |
34c5fe83 | 696 | (#{source-wrap 4339}# |
78a47455 AW |
697 | (lambda (#{x 17780}# |
698 | #{w 17781}# | |
699 | #{s 17782}# | |
700 | #{defmod 17783}#) | |
34c5fe83 AW |
701 | (#{wrap 4338}# |
702 | (begin | |
78a47455 AW |
703 | (if (if (pair? #{x 17780}#) #{s 17782}# #f) |
704 | (set-source-properties! #{x 17780}# #{s 17782}#)) | |
705 | #{x 17780}#) | |
706 | #{w 17781}# | |
707 | #{defmod 17783}#))) | |
708 | (#{expand-sequence 4340}# | |
709 | (lambda (#{body 28219}# | |
710 | #{r 28220}# | |
711 | #{w 28221}# | |
712 | #{s 28222}# | |
713 | #{mod 28223}#) | |
34c5fe83 | 714 | (#{build-sequence 4294}# |
78a47455 | 715 | #{s 28222}# |
e2ccab57 | 716 | (letrec* |
78a47455 AW |
717 | ((#{dobody 28308}# |
718 | (lambda (#{body 28388}# | |
719 | #{r 28389}# | |
720 | #{w 28390}# | |
721 | #{mod 28391}#) | |
722 | (if (null? #{body 28388}#) | |
e2ccab57 | 723 | '() |
78a47455 AW |
724 | (let ((#{first 28392}# |
725 | (#{expand 4345}# | |
726 | (car #{body 28388}#) | |
727 | #{r 28389}# | |
728 | #{w 28390}# | |
729 | #{mod 28391}#))) | |
730 | (cons #{first 28392}# | |
731 | (#{dobody 28308}# | |
732 | (cdr #{body 28388}#) | |
733 | #{r 28389}# | |
734 | #{w 28390}# | |
735 | #{mod 28391}#))))))) | |
736 | (#{dobody 28308}# | |
737 | #{body 28219}# | |
738 | #{r 28220}# | |
739 | #{w 28221}# | |
740 | #{mod 28223}#))))) | |
741 | (#{expand-top-sequence 4341}# | |
742 | (lambda (#{body 17801}# | |
743 | #{r 17802}# | |
744 | #{w 17803}# | |
745 | #{s 17804}# | |
746 | #{m 17805}# | |
747 | #{esew 17806}# | |
748 | #{mod 17807}#) | |
e2ccab57 | 749 | (letrec* |
78a47455 AW |
750 | ((#{scan 17808}# |
751 | (lambda (#{body 17939}# | |
752 | #{r 17940}# | |
753 | #{w 17941}# | |
754 | #{s 17942}# | |
755 | #{m 17943}# | |
756 | #{esew 17944}# | |
757 | #{mod 17945}# | |
758 | #{exps 17946}#) | |
759 | (if (null? #{body 17939}#) | |
760 | #{exps 17946}# | |
e2ccab57 AW |
761 | (call-with-values |
762 | (lambda () | |
d8f699e8 AW |
763 | (call-with-values |
764 | (lambda () | |
78a47455 | 765 | (let ((#{e 17947}# (car #{body 17939}#))) |
34c5fe83 | 766 | (#{syntax-type 4344}# |
78a47455 AW |
767 | #{e 17947}# |
768 | #{r 17940}# | |
769 | #{w 17941}# | |
770 | (let ((#{t 17951}# | |
771 | (#{source-annotation 4306}# #{e 17947}#))) | |
772 | (if #{t 17951}# #{t 17951}# #{s 17942}#)) | |
014de9e2 | 773 | #f |
78a47455 | 774 | #{mod 17945}# |
014de9e2 | 775 | #f))) |
78a47455 AW |
776 | (lambda (#{type 18211}# |
777 | #{value 18212}# | |
778 | #{e 18213}# | |
779 | #{w 18214}# | |
780 | #{s 18215}# | |
781 | #{mod 18216}#) | |
782 | (if (eqv? #{type 18211}# 'begin-form) | |
783 | (let ((#{tmp 18221}# | |
784 | ($sc-dispatch #{e 18213}# '(_)))) | |
785 | (if #{tmp 18221}# | |
786 | (@apply (lambda () #{exps 17946}#) #{tmp 18221}#) | |
787 | (let ((#{tmp 18225}# | |
014de9e2 | 788 | ($sc-dispatch |
78a47455 | 789 | #{e 18213}# |
014de9e2 | 790 | '(_ any . each-any)))) |
78a47455 | 791 | (if #{tmp 18225}# |
014de9e2 | 792 | (@apply |
78a47455 AW |
793 | (lambda (#{e1 18229}# #{e2 18230}#) |
794 | (#{scan 17808}# | |
795 | (cons #{e1 18229}# #{e2 18230}#) | |
796 | #{r 17940}# | |
797 | #{w 18214}# | |
798 | #{s 18215}# | |
799 | #{m 17943}# | |
800 | #{esew 17944}# | |
801 | #{mod 18216}# | |
802 | #{exps 17946}#)) | |
803 | #{tmp 18225}#) | |
014de9e2 AW |
804 | (syntax-violation |
805 | #f | |
806 | "source expression failed to match any pattern" | |
78a47455 AW |
807 | #{e 18213}#))))) |
808 | (if (eqv? #{type 18211}# 'local-syntax-form) | |
809 | (#{expand-local-syntax 4350}# | |
810 | #{value 18212}# | |
811 | #{e 18213}# | |
812 | #{r 17940}# | |
813 | #{w 18214}# | |
814 | #{s 18215}# | |
815 | #{mod 18216}# | |
816 | (lambda (#{body 18245}# | |
817 | #{r 18246}# | |
818 | #{w 18247}# | |
819 | #{s 18248}# | |
820 | #{mod 18249}#) | |
821 | (#{scan 17808}# | |
822 | #{body 18245}# | |
823 | #{r 18246}# | |
824 | #{w 18247}# | |
825 | #{s 18248}# | |
826 | #{m 17943}# | |
827 | #{esew 17944}# | |
828 | #{mod 18249}# | |
829 | #{exps 17946}#))) | |
830 | (if (eqv? #{type 18211}# 'eval-when-form) | |
831 | (let ((#{tmp 18254}# | |
014de9e2 | 832 | ($sc-dispatch |
78a47455 | 833 | #{e 18213}# |
014de9e2 | 834 | '(_ each-any any . each-any)))) |
78a47455 | 835 | (if #{tmp 18254}# |
014de9e2 | 836 | (@apply |
78a47455 AW |
837 | (lambda (#{x 18258}# |
838 | #{e1 18259}# | |
839 | #{e2 18260}#) | |
840 | (let ((#{when-list 18261}# | |
841 | (#{expand-when-list 4343}# | |
842 | #{e 18213}# | |
843 | #{x 18258}# | |
844 | #{w 18214}#)) | |
845 | (#{body 18262}# | |
846 | (cons #{e1 18259}# | |
847 | #{e2 18260}#))) | |
848 | (if (eq? #{m 17943}# 'e) | |
849 | (if (memq 'eval #{when-list 18261}#) | |
850 | (#{scan 17808}# | |
851 | #{body 18262}# | |
852 | #{r 17940}# | |
853 | #{w 18214}# | |
854 | #{s 18215}# | |
014de9e2 | 855 | (if (memq 'expand |
78a47455 | 856 | #{when-list 18261}#) |
014de9e2 AW |
857 | 'c&e |
858 | 'e) | |
859 | '(eval) | |
78a47455 AW |
860 | #{mod 18216}# |
861 | #{exps 17946}#) | |
d8f699e8 | 862 | (begin |
014de9e2 | 863 | (if (memq 'expand |
78a47455 AW |
864 | #{when-list 18261}#) |
865 | (let ((#{x 18269}# | |
866 | (#{expand-top-sequence 4341}# | |
867 | #{body 18262}# | |
868 | #{r 17940}# | |
869 | #{w 18214}# | |
870 | #{s 18215}# | |
34c5fe83 AW |
871 | 'e |
872 | '(eval) | |
78a47455 | 873 | #{mod 18216}#))) |
34c5fe83 | 874 | (primitive-eval |
78a47455 AW |
875 | #{x 18269}#))) |
876 | (values #{exps 17946}#))) | |
877 | (if (memq 'load #{when-list 18261}#) | |
878 | (if (let ((#{t 18271}# | |
014de9e2 | 879 | (memq 'compile |
78a47455 AW |
880 | #{when-list 18261}#))) |
881 | (if #{t 18271}# | |
882 | #{t 18271}# | |
883 | (let ((#{t 18273}# | |
014de9e2 | 884 | (memq 'expand |
78a47455 AW |
885 | #{when-list 18261}#))) |
886 | (if #{t 18273}# | |
887 | #{t 18273}# | |
888 | (if (eq? #{m 17943}# | |
014de9e2 AW |
889 | 'c&e) |
890 | (memq 'eval | |
78a47455 | 891 | #{when-list 18261}#) |
014de9e2 | 892 | #f))))) |
78a47455 AW |
893 | (#{scan 17808}# |
894 | #{body 18262}# | |
895 | #{r 17940}# | |
896 | #{w 18214}# | |
897 | #{s 18215}# | |
014de9e2 AW |
898 | 'c&e |
899 | '(compile load) | |
78a47455 AW |
900 | #{mod 18216}# |
901 | #{exps 17946}#) | |
902 | (if (if (eq? #{m 17943}# 'c) | |
34c5fe83 | 903 | #t |
78a47455 AW |
904 | (eq? #{m 17943}# 'c&e)) |
905 | (#{scan 17808}# | |
906 | #{body 18262}# | |
907 | #{r 17940}# | |
908 | #{w 18214}# | |
909 | #{s 18215}# | |
014de9e2 AW |
910 | 'c |
911 | '(load) | |
78a47455 AW |
912 | #{mod 18216}# |
913 | #{exps 17946}#) | |
914 | (values #{exps 17946}#))) | |
915 | (if (let ((#{t 18283}# | |
014de9e2 | 916 | (memq 'compile |
78a47455 AW |
917 | #{when-list 18261}#))) |
918 | (if #{t 18283}# | |
919 | #{t 18283}# | |
920 | (let ((#{t 18285}# | |
014de9e2 | 921 | (memq 'expand |
78a47455 AW |
922 | #{when-list 18261}#))) |
923 | (if #{t 18285}# | |
924 | #{t 18285}# | |
925 | (if (eq? #{m 17943}# | |
014de9e2 AW |
926 | 'c&e) |
927 | (memq 'eval | |
78a47455 | 928 | #{when-list 18261}#) |
014de9e2 AW |
929 | #f))))) |
930 | (begin | |
78a47455 AW |
931 | (let ((#{x 18290}# |
932 | (#{expand-top-sequence 4341}# | |
933 | #{body 18262}# | |
934 | #{r 17940}# | |
935 | #{w 18214}# | |
936 | #{s 18215}# | |
34c5fe83 AW |
937 | 'e |
938 | '(eval) | |
78a47455 AW |
939 | #{mod 18216}#))) |
940 | (primitive-eval #{x 18290}#)) | |
941 | (values #{exps 17946}#)) | |
942 | (values #{exps 17946}#)))))) | |
943 | #{tmp 18254}#) | |
014de9e2 AW |
944 | (syntax-violation |
945 | #f | |
946 | "source expression failed to match any pattern" | |
78a47455 AW |
947 | #{e 18213}#))) |
948 | (if (eqv? #{type 18211}# 'define-syntax-form) | |
949 | (let ((#{n 18301}# | |
34c5fe83 | 950 | (#{id-var-name 4332}# |
78a47455 AW |
951 | #{value 18212}# |
952 | #{w 18214}#)) | |
953 | (#{r 18302}# | |
34c5fe83 | 954 | (#{macros-only-env 4309}# |
78a47455 AW |
955 | #{r 17940}#))) |
956 | (if (eqv? #{m 17943}# 'c) | |
957 | (if (memq 'compile #{esew 17944}#) | |
958 | (let ((#{e 18306}# | |
959 | (#{expand-install-global 4342}# | |
960 | #{n 18301}# | |
961 | (#{expand 4345}# | |
962 | #{e 18213}# | |
963 | #{r 18302}# | |
964 | #{w 18214}# | |
965 | #{mod 18216}#)))) | |
e2ccab57 | 966 | (begin |
34c5fe83 | 967 | (#{top-level-eval-hook 4273}# |
78a47455 AW |
968 | #{e 18306}# |
969 | #{mod 18216}#) | |
970 | (if (memq 'load #{esew 17944}#) | |
014de9e2 | 971 | (values |
78a47455 AW |
972 | (cons #{e 18306}# |
973 | #{exps 17946}#)) | |
974 | (values #{exps 17946}#)))) | |
975 | (if (memq 'load #{esew 17944}#) | |
014de9e2 | 976 | (values |
78a47455 AW |
977 | (cons (#{expand-install-global 4342}# |
978 | #{n 18301}# | |
979 | (#{expand 4345}# | |
980 | #{e 18213}# | |
981 | #{r 18302}# | |
982 | #{w 18214}# | |
983 | #{mod 18216}#)) | |
984 | #{exps 17946}#)) | |
985 | (values #{exps 17946}#))) | |
986 | (if (eqv? #{m 17943}# 'c&e) | |
987 | (let ((#{e 18763}# | |
988 | (#{expand-install-global 4342}# | |
989 | #{n 18301}# | |
990 | (#{expand 4345}# | |
991 | #{e 18213}# | |
992 | #{r 18302}# | |
993 | #{w 18214}# | |
994 | #{mod 18216}#)))) | |
e2ccab57 | 995 | (begin |
34c5fe83 | 996 | (#{top-level-eval-hook 4273}# |
78a47455 AW |
997 | #{e 18763}# |
998 | #{mod 18216}#) | |
014de9e2 | 999 | (values |
78a47455 AW |
1000 | (cons #{e 18763}# |
1001 | #{exps 17946}#)))) | |
d8f699e8 | 1002 | (begin |
78a47455 | 1003 | (if (memq 'eval #{esew 17944}#) |
34c5fe83 | 1004 | (#{top-level-eval-hook 4273}# |
78a47455 AW |
1005 | (#{expand-install-global 4342}# |
1006 | #{n 18301}# | |
1007 | (#{expand 4345}# | |
1008 | #{e 18213}# | |
1009 | #{r 18302}# | |
1010 | #{w 18214}# | |
1011 | #{mod 18216}#)) | |
1012 | #{mod 18216}#)) | |
1013 | (values #{exps 17946}#))))) | |
1014 | (if (eqv? #{type 18211}# 'define-form) | |
1015 | (let ((#{n 19413}# | |
34c5fe83 | 1016 | (#{id-var-name 4332}# |
78a47455 AW |
1017 | #{value 18212}# |
1018 | #{w 18214}#))) | |
1019 | (let ((#{type 19414}# | |
1020 | (car (let ((#{t 20183}# | |
1021 | (assq #{n 19413}# | |
1022 | #{r 17940}#))) | |
1023 | (if #{t 20183}# | |
1024 | (cdr #{t 20183}#) | |
1025 | (if (symbol? #{n 19413}#) | |
1026 | (let ((#{t 20188}# | |
34c5fe83 | 1027 | (begin |
78a47455 | 1028 | (if (if (not #{mod 18216}#) |
34c5fe83 AW |
1029 | (current-module) |
1030 | #f) | |
1031 | (warn "module system is booted, we should have a module" | |
78a47455 AW |
1032 | #{n 19413}#)) |
1033 | (let ((#{v 20225}# | |
34c5fe83 | 1034 | (module-variable |
78a47455 | 1035 | (if #{mod 18216}# |
34c5fe83 | 1036 | (resolve-module |
78a47455 | 1037 | (cdr #{mod 18216}#)) |
34c5fe83 | 1038 | (current-module)) |
78a47455 AW |
1039 | #{n 19413}#))) |
1040 | (if #{v 20225}# | |
34c5fe83 | 1041 | (if (variable-bound? |
78a47455 AW |
1042 | #{v 20225}#) |
1043 | (let ((#{val 20234}# | |
34c5fe83 | 1044 | (variable-ref |
78a47455 | 1045 | #{v 20225}#))) |
34c5fe83 | 1046 | (if (macro? |
78a47455 | 1047 | #{val 20234}#) |
34c5fe83 | 1048 | (if (macro-type |
78a47455 | 1049 | #{val 20234}#) |
34c5fe83 | 1050 | (cons (macro-type |
78a47455 | 1051 | #{val 20234}#) |
34c5fe83 | 1052 | (macro-binding |
78a47455 | 1053 | #{val 20234}#)) |
34c5fe83 AW |
1054 | #f) |
1055 | #f)) | |
1056 | #f) | |
1057 | #f))))) | |
78a47455 AW |
1058 | (if #{t 20188}# |
1059 | #{t 20188}# | |
34c5fe83 AW |
1060 | '(global))) |
1061 | '(displaced-lexical))))))) | |
78a47455 AW |
1062 | (if (let ((#{t 19448}# #{type 19414}#)) |
1063 | (if (eqv? #{t 19448}# 'global) | |
34c5fe83 | 1064 | #t |
78a47455 | 1065 | (if (eqv? #{t 19448}# 'core) |
34c5fe83 | 1066 | #t |
78a47455 | 1067 | (if (eqv? #{t 19448}# 'macro) |
34c5fe83 | 1068 | #t |
78a47455 | 1069 | (eqv? #{t 19448}# |
34c5fe83 | 1070 | 'module-ref))))) |
014de9e2 | 1071 | (begin |
78a47455 | 1072 | (if (if (if (eq? #{m 17943}# 'c) |
34c5fe83 | 1073 | #t |
78a47455 | 1074 | (eq? #{m 17943}# 'c&e)) |
014de9e2 AW |
1075 | (if (not (module-local-variable |
1076 | (current-module) | |
78a47455 | 1077 | #{n 19413}#)) |
014de9e2 AW |
1078 | (current-module) |
1079 | #f) | |
1080 | #f) | |
78a47455 | 1081 | (let ((#{old 19612}# |
014de9e2 | 1082 | (module-variable |
e2ccab57 | 1083 | (current-module) |
78a47455 AW |
1084 | #{n 19413}#))) |
1085 | (if (if (variable? #{old 19612}#) | |
014de9e2 | 1086 | (variable-bound? |
78a47455 | 1087 | #{old 19612}#) |
e2ccab57 | 1088 | #f) |
014de9e2 AW |
1089 | (module-define! |
1090 | (current-module) | |
78a47455 AW |
1091 | #{n 19413}# |
1092 | (variable-ref #{old 19612}#)) | |
014de9e2 AW |
1093 | (module-add! |
1094 | (current-module) | |
78a47455 | 1095 | #{n 19413}# |
014de9e2 AW |
1096 | (make-undefined-variable))))) |
1097 | (values | |
78a47455 AW |
1098 | (cons (if (eq? #{m 17943}# 'c&e) |
1099 | (let ((#{x 19614}# | |
34c5fe83 | 1100 | (#{build-global-definition 4288}# |
78a47455 AW |
1101 | #{s 18215}# |
1102 | #{n 19413}# | |
1103 | (#{expand 4345}# | |
1104 | #{e 18213}# | |
1105 | #{r 17940}# | |
1106 | #{w 18214}# | |
1107 | #{mod 18216}#)))) | |
014de9e2 | 1108 | (begin |
34c5fe83 | 1109 | (#{top-level-eval-hook 4273}# |
78a47455 AW |
1110 | #{x 19614}# |
1111 | #{mod 18216}#) | |
1112 | #{x 19614}#)) | |
014de9e2 | 1113 | (lambda () |
34c5fe83 | 1114 | (#{build-global-definition 4288}# |
78a47455 AW |
1115 | #{s 18215}# |
1116 | #{n 19413}# | |
1117 | (#{expand 4345}# | |
1118 | #{e 18213}# | |
1119 | #{r 17940}# | |
1120 | #{w 18214}# | |
1121 | #{mod 18216}#)))) | |
1122 | #{exps 17946}#))) | |
1123 | (if (let ((#{t 20110}# #{type 19414}#)) | |
1124 | (eqv? #{t 20110}# | |
34c5fe83 | 1125 | 'displaced-lexical)) |
014de9e2 AW |
1126 | (syntax-violation |
1127 | #f | |
1128 | "identifier out of context" | |
78a47455 | 1129 | #{e 18213}# |
34c5fe83 | 1130 | (#{wrap 4338}# |
78a47455 AW |
1131 | #{value 18212}# |
1132 | #{w 18214}# | |
1133 | #{mod 18216}#)) | |
014de9e2 AW |
1134 | (syntax-violation |
1135 | #f | |
1136 | "cannot define keyword at top level" | |
78a47455 | 1137 | #{e 18213}# |
34c5fe83 | 1138 | (#{wrap 4338}# |
78a47455 AW |
1139 | #{value 18212}# |
1140 | #{w 18214}# | |
1141 | #{mod 18216}#)))))) | |
0ed9680f | 1142 | (values |
78a47455 AW |
1143 | (cons (if (eq? #{m 17943}# 'c&e) |
1144 | (let ((#{x 20245}# | |
1145 | (#{expand-expr 4346}# | |
1146 | #{type 18211}# | |
1147 | #{value 18212}# | |
1148 | #{e 18213}# | |
1149 | #{r 17940}# | |
1150 | #{w 18214}# | |
1151 | #{s 18215}# | |
1152 | #{mod 18216}#))) | |
014de9e2 | 1153 | (begin |
78a47455 AW |
1154 | (primitive-eval #{x 20245}#) |
1155 | #{x 20245}#)) | |
0ed9680f | 1156 | (lambda () |
78a47455 AW |
1157 | (#{expand-expr 4346}# |
1158 | #{type 18211}# | |
1159 | #{value 18212}# | |
1160 | #{e 18213}# | |
1161 | #{r 17940}# | |
1162 | #{w 18214}# | |
1163 | #{s 18215}# | |
1164 | #{mod 18216}#))) | |
1165 | #{exps 17946}#)))))))))) | |
1166 | (lambda (#{exps 20254}#) | |
1167 | (#{scan 17808}# | |
1168 | (cdr #{body 17939}#) | |
1169 | #{r 17940}# | |
1170 | #{w 17941}# | |
1171 | #{s 17942}# | |
1172 | #{m 17943}# | |
1173 | #{esew 17944}# | |
1174 | #{mod 17945}# | |
1175 | #{exps 20254}#))))))) | |
014de9e2 AW |
1176 | (call-with-values |
1177 | (lambda () | |
78a47455 AW |
1178 | (#{scan 17808}# |
1179 | #{body 17801}# | |
1180 | #{r 17802}# | |
1181 | #{w 17803}# | |
1182 | #{s 17804}# | |
1183 | #{m 17805}# | |
1184 | #{esew 17806}# | |
1185 | #{mod 17807}# | |
014de9e2 | 1186 | '())) |
78a47455 AW |
1187 | (lambda (#{exps 17811}#) |
1188 | (if (null? #{exps 17811}#) | |
34c5fe83 AW |
1189 | (make-struct/no-tail |
1190 | (vector-ref %expanded-vtables 0) | |
78a47455 | 1191 | #{s 17804}#) |
34c5fe83 | 1192 | (#{build-sequence 4294}# |
78a47455 | 1193 | #{s 17804}# |
014de9e2 | 1194 | (letrec* |
78a47455 AW |
1195 | ((#{lp 17851}# |
1196 | (lambda (#{in 17935}# #{out 17936}#) | |
1197 | (if (null? #{in 17935}#) | |
1198 | #{out 17936}# | |
1199 | (let ((#{e 17937}# (car #{in 17935}#))) | |
1200 | (#{lp 17851}# | |
1201 | (cdr #{in 17935}#) | |
1202 | (cons (if (procedure? #{e 17937}#) | |
1203 | (#{e 17937}#) | |
1204 | #{e 17937}#) | |
1205 | #{out 17936}#))))))) | |
1206 | (#{lp 17851}# #{exps 17811}# '()))))))))) | |
1207 | (#{expand-install-global 4342}# | |
1208 | (lambda (#{name 20255}# #{e 20256}#) | |
1209 | (let ((#{exp 20262}# | |
1210 | (let ((#{fun-exp 20272}# | |
34c5fe83 AW |
1211 | (if (equal? (module-name (current-module)) '(guile)) |
1212 | (make-struct/no-tail | |
1213 | (vector-ref %expanded-vtables 7) | |
1214 | #f | |
1215 | 'make-syntax-transformer) | |
1216 | (make-struct/no-tail | |
1217 | (vector-ref %expanded-vtables 5) | |
1218 | #f | |
1219 | '(guile) | |
1220 | 'make-syntax-transformer | |
1221 | #f))) | |
78a47455 | 1222 | (#{arg-exps 20273}# |
34c5fe83 AW |
1223 | (list (make-struct/no-tail |
1224 | (vector-ref %expanded-vtables 1) | |
1225 | #f | |
78a47455 | 1226 | #{name 20255}#) |
34c5fe83 AW |
1227 | (make-struct/no-tail |
1228 | (vector-ref %expanded-vtables 1) | |
1229 | #f | |
1230 | 'macro) | |
78a47455 | 1231 | #{e 20256}#))) |
34c5fe83 AW |
1232 | (make-struct/no-tail |
1233 | (vector-ref %expanded-vtables 11) | |
1234 | #f | |
78a47455 AW |
1235 | #{fun-exp 20272}# |
1236 | #{arg-exps 20273}#)))) | |
34c5fe83 | 1237 | (begin |
78a47455 AW |
1238 | (if (if (struct? #{exp 20262}#) |
1239 | (eq? (struct-vtable #{exp 20262}#) | |
34c5fe83 AW |
1240 | (vector-ref %expanded-vtables 13)) |
1241 | #f) | |
78a47455 AW |
1242 | (let ((#{meta 20314}# (struct-ref #{exp 20262}# 1))) |
1243 | (if (not (assq 'name #{meta 20314}#)) | |
1244 | (let ((#{v 20321}# | |
1245 | (cons (cons 'name #{name 20255}#) #{meta 20314}#))) | |
1246 | (struct-set! #{exp 20262}# 1 #{v 20321}#))))) | |
34c5fe83 AW |
1247 | (make-struct/no-tail |
1248 | (vector-ref %expanded-vtables 9) | |
d8f699e8 | 1249 | #f |
78a47455 AW |
1250 | #{name 20255}# |
1251 | #{exp 20262}#))))) | |
1252 | (#{expand-when-list 4343}# | |
1253 | (lambda (#{e 20332}# #{when-list 20333}# #{w 20334}#) | |
e2ccab57 | 1254 | (letrec* |
78a47455 AW |
1255 | ((#{f 20335}# |
1256 | (lambda (#{when-list 20338}# #{situations 20339}#) | |
1257 | (if (null? #{when-list 20338}#) | |
1258 | #{situations 20339}# | |
1259 | (#{f 20335}# | |
1260 | (cdr #{when-list 20338}#) | |
1261 | (cons (let ((#{x 20340}# (car #{when-list 20338}#))) | |
1262 | (if (if (eq? (if (if (vector? #{x 20340}#) | |
1263 | (if (= (vector-length #{x 20340}#) | |
34c5fe83 | 1264 | 4) |
78a47455 | 1265 | (eq? (vector-ref #{x 20340}# 0) |
34c5fe83 AW |
1266 | 'syntax-object) |
1267 | #f) | |
1268 | #f) | |
78a47455 AW |
1269 | (vector-ref #{x 20340}# 1) |
1270 | #{x 20340}#) | |
34c5fe83 AW |
1271 | (if (if (= (vector-length |
1272 | '#(syntax-object | |
1273 | compile | |
1274 | ((top) | |
1275 | #(ribcage () () ()) | |
1276 | #(ribcage () () ()) | |
1277 | #(ribcage () () ()) | |
1278 | #(ribcage | |
1279 | #(x) | |
1280 | #((top)) | |
1281 | #("i1754")) | |
1282 | #(ribcage () () ()) | |
1283 | #(ribcage | |
1284 | #(f | |
1285 | when-list | |
1286 | situations) | |
1287 | #((top) (top) (top)) | |
1288 | #("i1748" | |
1289 | "i1749" | |
1290 | "i1750")) | |
1291 | #(ribcage () () ()) | |
1292 | #(ribcage | |
1293 | #(e when-list w) | |
1294 | #((top) (top) (top)) | |
1295 | #("i1745" | |
1296 | "i1746" | |
1297 | "i1747")) | |
1298 | #(ribcage | |
1299 | (lambda-var-list | |
1300 | gen-var | |
1301 | strip | |
78a47455 | 1302 | expand-lambda-case |
34c5fe83 | 1303 | lambda*-formals |
78a47455 | 1304 | expand-simple-lambda |
34c5fe83 AW |
1305 | lambda-formals |
1306 | ellipsis? | |
78a47455 | 1307 | expand-void |
34c5fe83 | 1308 | eval-local-transformer |
78a47455 AW |
1309 | expand-local-syntax |
1310 | expand-body | |
1311 | expand-macro | |
1312 | expand-application | |
1313 | expand-expr | |
1314 | expand | |
34c5fe83 | 1315 | syntax-type |
78a47455 AW |
1316 | expand-when-list |
1317 | expand-install-global | |
1318 | expand-top-sequence | |
1319 | expand-sequence | |
34c5fe83 AW |
1320 | source-wrap |
1321 | wrap | |
1322 | bound-id-member? | |
1323 | distinct-bound-ids? | |
1324 | valid-bound-ids? | |
1325 | bound-id=? | |
1326 | free-id=? | |
1327 | id-var-name | |
1328 | same-marks? | |
1329 | join-marks | |
1330 | join-wraps | |
1331 | smart-append | |
1332 | make-binding-wrap | |
1333 | extend-ribcage! | |
1334 | make-empty-ribcage | |
1335 | new-mark | |
1336 | anti-mark | |
1337 | the-anti-mark | |
1338 | top-marked? | |
1339 | top-wrap | |
1340 | empty-wrap | |
1341 | set-ribcage-labels! | |
1342 | set-ribcage-marks! | |
1343 | set-ribcage-symnames! | |
1344 | ribcage-labels | |
1345 | ribcage-marks | |
1346 | ribcage-symnames | |
1347 | ribcage? | |
1348 | make-ribcage | |
1349 | gen-labels | |
1350 | gen-label | |
1351 | make-rename | |
1352 | rename-marks | |
1353 | rename-new | |
1354 | rename-old | |
1355 | subst-rename? | |
1356 | wrap-subst | |
1357 | wrap-marks | |
1358 | make-wrap | |
1359 | id-sym-name&marks | |
1360 | id-sym-name | |
1361 | id? | |
1362 | nonsymbol-id? | |
1363 | global-extend | |
1364 | lookup | |
1365 | macros-only-env | |
1366 | extend-var-env | |
1367 | extend-env | |
1368 | null-env | |
1369 | binding-value | |
1370 | binding-type | |
1371 | make-binding | |
1372 | arg-check | |
1373 | source-annotation | |
1374 | no-source | |
1375 | set-syntax-object-module! | |
1376 | set-syntax-object-wrap! | |
1377 | set-syntax-object-expression! | |
1378 | syntax-object-module | |
1379 | syntax-object-wrap | |
1380 | syntax-object-expression | |
1381 | syntax-object? | |
1382 | make-syntax-object | |
1383 | build-lexical-var | |
1384 | build-letrec | |
1385 | build-named-let | |
1386 | build-let | |
1387 | build-sequence | |
1388 | build-data | |
1389 | build-primref | |
1390 | build-lambda-case | |
1391 | build-case-lambda | |
1392 | build-simple-lambda | |
1393 | build-global-definition | |
1394 | build-global-assignment | |
1395 | build-global-reference | |
1396 | analyze-variable | |
1397 | build-lexical-assignment | |
1398 | build-lexical-reference | |
1399 | build-dynlet | |
1400 | build-conditional | |
1401 | build-application | |
1402 | build-void | |
1403 | maybe-name-value! | |
1404 | decorate-source | |
1405 | get-global-definition-hook | |
1406 | put-global-definition-hook | |
1407 | gensym-hook | |
1408 | local-eval-hook | |
1409 | top-level-eval-hook | |
1410 | fx< | |
1411 | fx= | |
1412 | fx- | |
1413 | fx+ | |
1414 | set-lambda-meta! | |
1415 | lambda-meta | |
1416 | lambda? | |
1417 | make-dynlet | |
1418 | make-letrec | |
1419 | make-let | |
1420 | make-lambda-case | |
1421 | make-lambda | |
1422 | make-sequence | |
1423 | make-application | |
1424 | make-conditional | |
1425 | make-toplevel-define | |
1426 | make-toplevel-set | |
1427 | make-toplevel-ref | |
1428 | make-module-set | |
1429 | make-module-ref | |
1430 | make-lexical-set | |
1431 | make-lexical-ref | |
1432 | make-primitive-ref | |
1433 | make-const | |
1434 | make-void) | |
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 | (top) | |
1508 | (top) | |
1509 | (top) | |
1510 | (top) | |
1511 | (top) | |
1512 | (top) | |
1513 | (top) | |
1514 | (top) | |
1515 | (top) | |
1516 | (top) | |
1517 | (top) | |
1518 | (top) | |
1519 | (top) | |
1520 | (top) | |
1521 | (top) | |
1522 | (top) | |
1523 | (top) | |
1524 | (top) | |
1525 | (top) | |
1526 | (top) | |
1527 | (top) | |
1528 | (top) | |
1529 | (top) | |
1530 | (top) | |
1531 | (top) | |
1532 | (top) | |
1533 | (top) | |
1534 | (top) | |
1535 | (top) | |
1536 | (top) | |
1537 | (top) | |
1538 | (top) | |
1539 | (top) | |
1540 | (top) | |
1541 | (top) | |
1542 | (top) | |
1543 | (top) | |
1544 | (top) | |
1545 | (top) | |
1546 | (top) | |
1547 | (top) | |
1548 | (top) | |
1549 | (top) | |
1550 | (top) | |
1551 | (top) | |
1552 | (top) | |
1553 | (top) | |
1554 | (top) | |
1555 | (top) | |
1556 | (top) | |
1557 | (top) | |
1558 | (top) | |
1559 | (top) | |
1560 | (top) | |
1561 | (top) | |
1562 | (top) | |
1563 | (top) | |
1564 | (top) | |
1565 | (top) | |
1566 | (top) | |
1567 | (top) | |
1568 | (top) | |
1569 | (top) | |
1570 | (top)) | |
1571 | ("i467" | |
1572 | "i465" | |
1573 | "i463" | |
1574 | "i461" | |
1575 | "i459" | |
1576 | "i457" | |
1577 | "i455" | |
1578 | "i453" | |
1579 | "i451" | |
1580 | "i449" | |
1581 | "i447" | |
1582 | "i445" | |
1583 | "i443" | |
1584 | "i441" | |
1585 | "i439" | |
1586 | "i437" | |
1587 | "i435" | |
1588 | "i433" | |
1589 | "i431" | |
1590 | "i429" | |
1591 | "i427" | |
1592 | "i425" | |
1593 | "i423" | |
1594 | "i421" | |
1595 | "i419" | |
1596 | "i417" | |
1597 | "i415" | |
1598 | "i413" | |
1599 | "i411" | |
1600 | "i409" | |
1601 | "i407" | |
1602 | "i405" | |
1603 | "i403" | |
1604 | "i401" | |
1605 | "i399" | |
1606 | "i398" | |
1607 | "i396" | |
1608 | "i393" | |
1609 | "i392" | |
1610 | "i391" | |
1611 | "i389" | |
1612 | "i388" | |
1613 | "i386" | |
1614 | "i384" | |
1615 | "i382" | |
1616 | "i380" | |
1617 | "i378" | |
1618 | "i376" | |
1619 | "i374" | |
1620 | "i372" | |
1621 | "i369" | |
1622 | "i367" | |
1623 | "i366" | |
1624 | "i364" | |
1625 | "i362" | |
1626 | "i360" | |
1627 | "i358" | |
1628 | "i357" | |
1629 | "i356" | |
1630 | "i355" | |
1631 | "i353" | |
1632 | "i352" | |
1633 | "i349" | |
1634 | "i347" | |
1635 | "i345" | |
1636 | "i343" | |
1637 | "i341" | |
1638 | "i339" | |
1639 | "i337" | |
1640 | "i336" | |
1641 | "i335" | |
1642 | "i333" | |
1643 | "i331" | |
1644 | "i330" | |
1645 | "i327" | |
1646 | "i326" | |
1647 | "i324" | |
1648 | "i322" | |
1649 | "i320" | |
1650 | "i318" | |
1651 | "i316" | |
1652 | "i314" | |
1653 | "i312" | |
1654 | "i310" | |
1655 | "i308" | |
1656 | "i305" | |
1657 | "i303" | |
1658 | "i301" | |
1659 | "i299" | |
1660 | "i297" | |
1661 | "i295" | |
1662 | "i293" | |
1663 | "i291" | |
1664 | "i289" | |
1665 | "i287" | |
1666 | "i285" | |
1667 | "i283" | |
1668 | "i281" | |
1669 | "i279" | |
1670 | "i277" | |
1671 | "i275" | |
1672 | "i273" | |
1673 | "i271" | |
1674 | "i269" | |
1675 | "i267" | |
1676 | "i265" | |
1677 | "i263" | |
1678 | "i261" | |
1679 | "i260" | |
1680 | "i257" | |
1681 | "i255" | |
1682 | "i254" | |
1683 | "i253" | |
1684 | "i252" | |
1685 | "i251" | |
1686 | "i249" | |
1687 | "i247" | |
1688 | "i245" | |
1689 | "i242" | |
1690 | "i240" | |
1691 | "i238" | |
1692 | "i236" | |
1693 | "i234" | |
1694 | "i232" | |
1695 | "i230" | |
1696 | "i228" | |
1697 | "i226" | |
1698 | "i224" | |
1699 | "i222" | |
1700 | "i220" | |
1701 | "i218" | |
1702 | "i216" | |
1703 | "i214" | |
1704 | "i212" | |
1705 | "i210" | |
1706 | "i208")) | |
1707 | #(ribcage | |
1708 | (define-structure | |
1709 | define-expansion-accessors | |
1710 | define-expansion-constructors) | |
1711 | ((top) (top) (top)) | |
1712 | ("i46" "i45" "i44"))) | |
1713 | (hygiene guile))) | |
1714 | 4) | |
78a47455 AW |
1715 | #t |
1716 | #f) | |
1717 | 'compile | |
1718 | '#(syntax-object | |
1719 | compile | |
1720 | ((top) | |
1721 | #(ribcage () () ()) | |
1722 | #(ribcage () () ()) | |
1723 | #(ribcage () () ()) | |
1724 | #(ribcage | |
1725 | #(x) | |
1726 | #((top)) | |
1727 | #("i1754")) | |
1728 | #(ribcage () () ()) | |
1729 | #(ribcage | |
1730 | #(f when-list situations) | |
1731 | #((top) (top) (top)) | |
1732 | #("i1748" "i1749" "i1750")) | |
1733 | #(ribcage () () ()) | |
1734 | #(ribcage | |
1735 | #(e when-list w) | |
1736 | #((top) (top) (top)) | |
1737 | #("i1745" "i1746" "i1747")) | |
1738 | #(ribcage | |
1739 | (lambda-var-list | |
1740 | gen-var | |
1741 | strip | |
1742 | expand-lambda-case | |
1743 | lambda*-formals | |
1744 | expand-simple-lambda | |
1745 | lambda-formals | |
1746 | ellipsis? | |
1747 | expand-void | |
1748 | eval-local-transformer | |
1749 | expand-local-syntax | |
1750 | expand-body | |
1751 | expand-macro | |
1752 | expand-application | |
1753 | expand-expr | |
1754 | expand | |
1755 | syntax-type | |
1756 | expand-when-list | |
1757 | expand-install-global | |
1758 | expand-top-sequence | |
1759 | expand-sequence | |
1760 | source-wrap | |
1761 | wrap | |
1762 | bound-id-member? | |
1763 | distinct-bound-ids? | |
1764 | valid-bound-ids? | |
1765 | bound-id=? | |
1766 | free-id=? | |
1767 | id-var-name | |
1768 | same-marks? | |
1769 | join-marks | |
1770 | join-wraps | |
1771 | smart-append | |
1772 | make-binding-wrap | |
1773 | extend-ribcage! | |
1774 | make-empty-ribcage | |
1775 | new-mark | |
1776 | anti-mark | |
1777 | the-anti-mark | |
1778 | top-marked? | |
1779 | top-wrap | |
1780 | empty-wrap | |
1781 | set-ribcage-labels! | |
1782 | set-ribcage-marks! | |
1783 | set-ribcage-symnames! | |
1784 | ribcage-labels | |
1785 | ribcage-marks | |
1786 | ribcage-symnames | |
1787 | ribcage? | |
1788 | make-ribcage | |
1789 | gen-labels | |
1790 | gen-label | |
1791 | make-rename | |
1792 | rename-marks | |
1793 | rename-new | |
1794 | rename-old | |
1795 | subst-rename? | |
1796 | wrap-subst | |
1797 | wrap-marks | |
1798 | make-wrap | |
1799 | id-sym-name&marks | |
1800 | id-sym-name | |
1801 | id? | |
1802 | nonsymbol-id? | |
1803 | global-extend | |
1804 | lookup | |
1805 | macros-only-env | |
1806 | extend-var-env | |
1807 | extend-env | |
1808 | null-env | |
1809 | binding-value | |
1810 | binding-type | |
1811 | make-binding | |
1812 | arg-check | |
1813 | source-annotation | |
1814 | no-source | |
1815 | set-syntax-object-module! | |
1816 | set-syntax-object-wrap! | |
1817 | set-syntax-object-expression! | |
1818 | syntax-object-module | |
1819 | syntax-object-wrap | |
1820 | syntax-object-expression | |
1821 | syntax-object? | |
1822 | make-syntax-object | |
1823 | build-lexical-var | |
1824 | build-letrec | |
1825 | build-named-let | |
1826 | build-let | |
1827 | build-sequence | |
1828 | build-data | |
1829 | build-primref | |
1830 | build-lambda-case | |
1831 | build-case-lambda | |
1832 | build-simple-lambda | |
1833 | build-global-definition | |
1834 | build-global-assignment | |
1835 | build-global-reference | |
1836 | analyze-variable | |
1837 | build-lexical-assignment | |
1838 | build-lexical-reference | |
1839 | build-dynlet | |
1840 | build-conditional | |
1841 | build-application | |
1842 | build-void | |
1843 | maybe-name-value! | |
1844 | decorate-source | |
1845 | get-global-definition-hook | |
1846 | put-global-definition-hook | |
1847 | gensym-hook | |
1848 | local-eval-hook | |
1849 | top-level-eval-hook | |
1850 | fx< | |
1851 | fx= | |
1852 | fx- | |
1853 | fx+ | |
1854 | set-lambda-meta! | |
1855 | lambda-meta | |
1856 | lambda? | |
1857 | make-dynlet | |
1858 | make-letrec | |
1859 | make-let | |
1860 | make-lambda-case | |
1861 | make-lambda | |
1862 | make-sequence | |
1863 | make-application | |
1864 | make-conditional | |
1865 | make-toplevel-define | |
1866 | make-toplevel-set | |
1867 | make-toplevel-ref | |
1868 | make-module-set | |
1869 | make-module-ref | |
1870 | make-lexical-set | |
1871 | make-lexical-ref | |
1872 | make-primitive-ref | |
1873 | make-const | |
1874 | make-void) | |
1875 | ((top) | |
1876 | (top) | |
1877 | (top) | |
1878 | (top) | |
1879 | (top) | |
1880 | (top) | |
1881 | (top) | |
1882 | (top) | |
1883 | (top) | |
1884 | (top) | |
1885 | (top) | |
1886 | (top) | |
1887 | (top) | |
1888 | (top) | |
1889 | (top) | |
1890 | (top) | |
1891 | (top) | |
1892 | (top) | |
1893 | (top) | |
1894 | (top) | |
1895 | (top) | |
1896 | (top) | |
1897 | (top) | |
1898 | (top) | |
1899 | (top) | |
1900 | (top) | |
1901 | (top) | |
1902 | (top) | |
1903 | (top) | |
1904 | (top) | |
1905 | (top) | |
1906 | (top) | |
1907 | (top) | |
1908 | (top) | |
1909 | (top) | |
1910 | (top) | |
1911 | (top) | |
1912 | (top) | |
1913 | (top) | |
1914 | (top) | |
1915 | (top) | |
1916 | (top) | |
1917 | (top) | |
1918 | (top) | |
1919 | (top) | |
1920 | (top) | |
1921 | (top) | |
1922 | (top) | |
1923 | (top) | |
1924 | (top) | |
1925 | (top) | |
1926 | (top) | |
1927 | (top) | |
1928 | (top) | |
1929 | (top) | |
1930 | (top) | |
1931 | (top) | |
1932 | (top) | |
1933 | (top) | |
1934 | (top) | |
1935 | (top) | |
1936 | (top) | |
1937 | (top) | |
1938 | (top) | |
1939 | (top) | |
1940 | (top) | |
1941 | (top) | |
1942 | (top) | |
1943 | (top) | |
1944 | (top) | |
1945 | (top) | |
1946 | (top) | |
1947 | (top) | |
1948 | (top) | |
1949 | (top) | |
1950 | (top) | |
1951 | (top) | |
1952 | (top) | |
1953 | (top) | |
1954 | (top) | |
1955 | (top) | |
1956 | (top) | |
1957 | (top) | |
1958 | (top) | |
1959 | (top) | |
1960 | (top) | |
1961 | (top) | |
1962 | (top) | |
1963 | (top) | |
1964 | (top) | |
1965 | (top) | |
1966 | (top) | |
1967 | (top) | |
1968 | (top) | |
1969 | (top) | |
1970 | (top) | |
1971 | (top) | |
1972 | (top) | |
1973 | (top) | |
1974 | (top) | |
1975 | (top) | |
1976 | (top) | |
1977 | (top) | |
1978 | (top) | |
1979 | (top) | |
1980 | (top) | |
1981 | (top) | |
1982 | (top) | |
1983 | (top) | |
1984 | (top) | |
1985 | (top) | |
1986 | (top) | |
1987 | (top) | |
1988 | (top) | |
1989 | (top) | |
1990 | (top) | |
1991 | (top) | |
1992 | (top) | |
1993 | (top) | |
1994 | (top) | |
1995 | (top) | |
1996 | (top) | |
1997 | (top) | |
1998 | (top) | |
1999 | (top) | |
2000 | (top) | |
2001 | (top) | |
2002 | (top) | |
2003 | (top) | |
2004 | (top) | |
2005 | (top) | |
2006 | (top) | |
2007 | (top) | |
2008 | (top) | |
2009 | (top) | |
2010 | (top)) | |
2011 | ("i467" | |
2012 | "i465" | |
2013 | "i463" | |
2014 | "i461" | |
2015 | "i459" | |
2016 | "i457" | |
2017 | "i455" | |
2018 | "i453" | |
2019 | "i451" | |
2020 | "i449" | |
2021 | "i447" | |
2022 | "i445" | |
2023 | "i443" | |
2024 | "i441" | |
2025 | "i439" | |
2026 | "i437" | |
2027 | "i435" | |
2028 | "i433" | |
2029 | "i431" | |
2030 | "i429" | |
2031 | "i427" | |
2032 | "i425" | |
2033 | "i423" | |
2034 | "i421" | |
2035 | "i419" | |
2036 | "i417" | |
2037 | "i415" | |
2038 | "i413" | |
2039 | "i411" | |
2040 | "i409" | |
2041 | "i407" | |
2042 | "i405" | |
2043 | "i403" | |
2044 | "i401" | |
2045 | "i399" | |
2046 | "i398" | |
2047 | "i396" | |
2048 | "i393" | |
2049 | "i392" | |
2050 | "i391" | |
2051 | "i389" | |
2052 | "i388" | |
2053 | "i386" | |
2054 | "i384" | |
2055 | "i382" | |
2056 | "i380" | |
2057 | "i378" | |
2058 | "i376" | |
2059 | "i374" | |
2060 | "i372" | |
2061 | "i369" | |
2062 | "i367" | |
2063 | "i366" | |
2064 | "i364" | |
2065 | "i362" | |
2066 | "i360" | |
2067 | "i358" | |
2068 | "i357" | |
2069 | "i356" | |
2070 | "i355" | |
2071 | "i353" | |
2072 | "i352" | |
2073 | "i349" | |
2074 | "i347" | |
2075 | "i345" | |
2076 | "i343" | |
2077 | "i341" | |
2078 | "i339" | |
2079 | "i337" | |
2080 | "i336" | |
2081 | "i335" | |
2082 | "i333" | |
2083 | "i331" | |
2084 | "i330" | |
2085 | "i327" | |
2086 | "i326" | |
2087 | "i324" | |
2088 | "i322" | |
2089 | "i320" | |
2090 | "i318" | |
2091 | "i316" | |
2092 | "i314" | |
2093 | "i312" | |
2094 | "i310" | |
2095 | "i308" | |
2096 | "i305" | |
2097 | "i303" | |
2098 | "i301" | |
2099 | "i299" | |
2100 | "i297" | |
2101 | "i295" | |
2102 | "i293" | |
2103 | "i291" | |
2104 | "i289" | |
2105 | "i287" | |
2106 | "i285" | |
2107 | "i283" | |
2108 | "i281" | |
2109 | "i279" | |
2110 | "i277" | |
2111 | "i275" | |
2112 | "i273" | |
2113 | "i271" | |
2114 | "i269" | |
2115 | "i267" | |
2116 | "i265" | |
2117 | "i263" | |
2118 | "i261" | |
2119 | "i260" | |
2120 | "i257" | |
2121 | "i255" | |
2122 | "i254" | |
2123 | "i253" | |
2124 | "i252" | |
2125 | "i251" | |
2126 | "i249" | |
2127 | "i247" | |
2128 | "i245" | |
2129 | "i242" | |
2130 | "i240" | |
2131 | "i238" | |
2132 | "i236" | |
2133 | "i234" | |
2134 | "i232" | |
2135 | "i230" | |
2136 | "i228" | |
2137 | "i226" | |
2138 | "i224" | |
2139 | "i222" | |
2140 | "i220" | |
2141 | "i218" | |
2142 | "i216" | |
2143 | "i214" | |
2144 | "i212" | |
2145 | "i210" | |
2146 | "i208")) | |
2147 | #(ribcage | |
2148 | (define-structure | |
2149 | define-expansion-accessors | |
2150 | define-expansion-constructors) | |
2151 | ((top) (top) (top)) | |
2152 | ("i46" "i45" "i44"))) | |
2153 | (hygiene guile)))) | |
2154 | (eq? (#{id-var-name 4332}# #{x 20340}# '(())) | |
2155 | (#{id-var-name 4332}# | |
2156 | '#(syntax-object | |
2157 | compile | |
2158 | ((top) | |
2159 | #(ribcage () () ()) | |
2160 | #(ribcage () () ()) | |
2161 | #(ribcage () () ()) | |
2162 | #(ribcage #(x) #((top)) #("i1754")) | |
2163 | #(ribcage () () ()) | |
2164 | #(ribcage | |
2165 | #(f when-list situations) | |
2166 | #((top) (top) (top)) | |
2167 | #("i1748" "i1749" "i1750")) | |
2168 | #(ribcage () () ()) | |
2169 | #(ribcage | |
2170 | #(e when-list w) | |
2171 | #((top) (top) (top)) | |
2172 | #("i1745" "i1746" "i1747")) | |
2173 | #(ribcage | |
2174 | (lambda-var-list | |
2175 | gen-var | |
2176 | strip | |
2177 | expand-lambda-case | |
2178 | lambda*-formals | |
2179 | expand-simple-lambda | |
2180 | lambda-formals | |
2181 | ellipsis? | |
2182 | expand-void | |
2183 | eval-local-transformer | |
2184 | expand-local-syntax | |
2185 | expand-body | |
2186 | expand-macro | |
2187 | expand-application | |
2188 | expand-expr | |
2189 | expand | |
2190 | syntax-type | |
2191 | expand-when-list | |
2192 | expand-install-global | |
2193 | expand-top-sequence | |
2194 | expand-sequence | |
2195 | source-wrap | |
2196 | wrap | |
2197 | bound-id-member? | |
2198 | distinct-bound-ids? | |
2199 | valid-bound-ids? | |
2200 | bound-id=? | |
2201 | free-id=? | |
2202 | id-var-name | |
2203 | same-marks? | |
2204 | join-marks | |
2205 | join-wraps | |
2206 | smart-append | |
2207 | make-binding-wrap | |
2208 | extend-ribcage! | |
2209 | make-empty-ribcage | |
2210 | new-mark | |
2211 | anti-mark | |
2212 | the-anti-mark | |
2213 | top-marked? | |
2214 | top-wrap | |
2215 | empty-wrap | |
2216 | set-ribcage-labels! | |
2217 | set-ribcage-marks! | |
2218 | set-ribcage-symnames! | |
2219 | ribcage-labels | |
2220 | ribcage-marks | |
2221 | ribcage-symnames | |
2222 | ribcage? | |
2223 | make-ribcage | |
2224 | gen-labels | |
2225 | gen-label | |
2226 | make-rename | |
2227 | rename-marks | |
2228 | rename-new | |
2229 | rename-old | |
2230 | subst-rename? | |
2231 | wrap-subst | |
2232 | wrap-marks | |
2233 | make-wrap | |
2234 | id-sym-name&marks | |
2235 | id-sym-name | |
2236 | id? | |
2237 | nonsymbol-id? | |
2238 | global-extend | |
2239 | lookup | |
2240 | macros-only-env | |
2241 | extend-var-env | |
2242 | extend-env | |
2243 | null-env | |
2244 | binding-value | |
2245 | binding-type | |
2246 | make-binding | |
2247 | arg-check | |
2248 | source-annotation | |
2249 | no-source | |
2250 | set-syntax-object-module! | |
2251 | set-syntax-object-wrap! | |
2252 | set-syntax-object-expression! | |
2253 | syntax-object-module | |
2254 | syntax-object-wrap | |
2255 | syntax-object-expression | |
2256 | syntax-object? | |
2257 | make-syntax-object | |
2258 | build-lexical-var | |
2259 | build-letrec | |
2260 | build-named-let | |
2261 | build-let | |
2262 | build-sequence | |
2263 | build-data | |
2264 | build-primref | |
2265 | build-lambda-case | |
2266 | build-case-lambda | |
2267 | build-simple-lambda | |
2268 | build-global-definition | |
2269 | build-global-assignment | |
2270 | build-global-reference | |
2271 | analyze-variable | |
2272 | build-lexical-assignment | |
2273 | build-lexical-reference | |
2274 | build-dynlet | |
2275 | build-conditional | |
2276 | build-application | |
2277 | build-void | |
2278 | maybe-name-value! | |
2279 | decorate-source | |
2280 | get-global-definition-hook | |
2281 | put-global-definition-hook | |
2282 | gensym-hook | |
2283 | local-eval-hook | |
2284 | top-level-eval-hook | |
2285 | fx< | |
2286 | fx= | |
2287 | fx- | |
2288 | fx+ | |
2289 | set-lambda-meta! | |
2290 | lambda-meta | |
2291 | lambda? | |
2292 | make-dynlet | |
2293 | make-letrec | |
2294 | make-let | |
2295 | make-lambda-case | |
2296 | make-lambda | |
2297 | make-sequence | |
2298 | make-application | |
2299 | make-conditional | |
2300 | make-toplevel-define | |
2301 | make-toplevel-set | |
2302 | make-toplevel-ref | |
2303 | make-module-set | |
2304 | make-module-ref | |
2305 | make-lexical-set | |
2306 | make-lexical-ref | |
2307 | make-primitive-ref | |
2308 | make-const | |
2309 | make-void) | |
2310 | ((top) | |
2311 | (top) | |
2312 | (top) | |
2313 | (top) | |
2314 | (top) | |
2315 | (top) | |
2316 | (top) | |
2317 | (top) | |
2318 | (top) | |
2319 | (top) | |
2320 | (top) | |
2321 | (top) | |
2322 | (top) | |
2323 | (top) | |
2324 | (top) | |
2325 | (top) | |
2326 | (top) | |
2327 | (top) | |
2328 | (top) | |
2329 | (top) | |
2330 | (top) | |
2331 | (top) | |
2332 | (top) | |
2333 | (top) | |
2334 | (top) | |
2335 | (top) | |
2336 | (top) | |
2337 | (top) | |
2338 | (top) | |
2339 | (top) | |
2340 | (top) | |
2341 | (top) | |
2342 | (top) | |
2343 | (top) | |
2344 | (top) | |
2345 | (top) | |
2346 | (top) | |
2347 | (top) | |
2348 | (top) | |
2349 | (top) | |
2350 | (top) | |
2351 | (top) | |
2352 | (top) | |
2353 | (top) | |
2354 | (top) | |
2355 | (top) | |
2356 | (top) | |
2357 | (top) | |
2358 | (top) | |
2359 | (top) | |
2360 | (top) | |
2361 | (top) | |
2362 | (top) | |
2363 | (top) | |
2364 | (top) | |
2365 | (top) | |
2366 | (top) | |
2367 | (top) | |
2368 | (top) | |
2369 | (top) | |
2370 | (top) | |
2371 | (top) | |
2372 | (top) | |
2373 | (top) | |
2374 | (top) | |
2375 | (top) | |
2376 | (top) | |
2377 | (top) | |
2378 | (top) | |
2379 | (top) | |
2380 | (top) | |
2381 | (top) | |
2382 | (top) | |
2383 | (top) | |
2384 | (top) | |
2385 | (top) | |
2386 | (top) | |
2387 | (top) | |
2388 | (top) | |
2389 | (top) | |
2390 | (top) | |
2391 | (top) | |
2392 | (top) | |
2393 | (top) | |
2394 | (top) | |
2395 | (top) | |
2396 | (top) | |
2397 | (top) | |
2398 | (top) | |
2399 | (top) | |
2400 | (top) | |
2401 | (top) | |
2402 | (top) | |
2403 | (top) | |
2404 | (top) | |
2405 | (top) | |
2406 | (top) | |
2407 | (top) | |
2408 | (top) | |
2409 | (top) | |
2410 | (top) | |
2411 | (top) | |
2412 | (top) | |
2413 | (top) | |
2414 | (top) | |
2415 | (top) | |
2416 | (top) | |
2417 | (top) | |
2418 | (top) | |
2419 | (top) | |
2420 | (top) | |
2421 | (top) | |
2422 | (top) | |
2423 | (top) | |
2424 | (top) | |
2425 | (top) | |
2426 | (top) | |
2427 | (top) | |
2428 | (top) | |
2429 | (top) | |
2430 | (top) | |
2431 | (top) | |
2432 | (top) | |
2433 | (top) | |
2434 | (top) | |
2435 | (top) | |
2436 | (top) | |
2437 | (top) | |
2438 | (top) | |
2439 | (top) | |
2440 | (top) | |
2441 | (top) | |
2442 | (top) | |
2443 | (top) | |
2444 | (top) | |
2445 | (top)) | |
2446 | ("i467" | |
2447 | "i465" | |
2448 | "i463" | |
2449 | "i461" | |
2450 | "i459" | |
2451 | "i457" | |
2452 | "i455" | |
2453 | "i453" | |
2454 | "i451" | |
2455 | "i449" | |
2456 | "i447" | |
2457 | "i445" | |
2458 | "i443" | |
2459 | "i441" | |
2460 | "i439" | |
2461 | "i437" | |
2462 | "i435" | |
2463 | "i433" | |
2464 | "i431" | |
2465 | "i429" | |
2466 | "i427" | |
2467 | "i425" | |
2468 | "i423" | |
2469 | "i421" | |
2470 | "i419" | |
2471 | "i417" | |
2472 | "i415" | |
2473 | "i413" | |
2474 | "i411" | |
2475 | "i409" | |
2476 | "i407" | |
2477 | "i405" | |
2478 | "i403" | |
2479 | "i401" | |
2480 | "i399" | |
2481 | "i398" | |
2482 | "i396" | |
2483 | "i393" | |
2484 | "i392" | |
2485 | "i391" | |
2486 | "i389" | |
2487 | "i388" | |
2488 | "i386" | |
2489 | "i384" | |
2490 | "i382" | |
2491 | "i380" | |
2492 | "i378" | |
2493 | "i376" | |
2494 | "i374" | |
2495 | "i372" | |
2496 | "i369" | |
2497 | "i367" | |
2498 | "i366" | |
2499 | "i364" | |
2500 | "i362" | |
2501 | "i360" | |
2502 | "i358" | |
2503 | "i357" | |
2504 | "i356" | |
2505 | "i355" | |
2506 | "i353" | |
2507 | "i352" | |
2508 | "i349" | |
2509 | "i347" | |
2510 | "i345" | |
2511 | "i343" | |
2512 | "i341" | |
2513 | "i339" | |
2514 | "i337" | |
2515 | "i336" | |
2516 | "i335" | |
2517 | "i333" | |
2518 | "i331" | |
2519 | "i330" | |
2520 | "i327" | |
2521 | "i326" | |
2522 | "i324" | |
2523 | "i322" | |
2524 | "i320" | |
2525 | "i318" | |
2526 | "i316" | |
2527 | "i314" | |
2528 | "i312" | |
2529 | "i310" | |
2530 | "i308" | |
2531 | "i305" | |
2532 | "i303" | |
2533 | "i301" | |
2534 | "i299" | |
2535 | "i297" | |
2536 | "i295" | |
2537 | "i293" | |
2538 | "i291" | |
2539 | "i289" | |
2540 | "i287" | |
2541 | "i285" | |
2542 | "i283" | |
2543 | "i281" | |
2544 | "i279" | |
2545 | "i277" | |
2546 | "i275" | |
2547 | "i273" | |
2548 | "i271" | |
2549 | "i269" | |
2550 | "i267" | |
2551 | "i265" | |
2552 | "i263" | |
2553 | "i261" | |
2554 | "i260" | |
2555 | "i257" | |
2556 | "i255" | |
2557 | "i254" | |
2558 | "i253" | |
2559 | "i252" | |
2560 | "i251" | |
2561 | "i249" | |
2562 | "i247" | |
2563 | "i245" | |
2564 | "i242" | |
2565 | "i240" | |
2566 | "i238" | |
2567 | "i236" | |
2568 | "i234" | |
2569 | "i232" | |
2570 | "i230" | |
2571 | "i228" | |
2572 | "i226" | |
2573 | "i224" | |
2574 | "i222" | |
2575 | "i220" | |
2576 | "i218" | |
2577 | "i216" | |
2578 | "i214" | |
2579 | "i212" | |
2580 | "i210" | |
2581 | "i208")) | |
2582 | #(ribcage | |
2583 | (define-structure | |
2584 | define-expansion-accessors | |
2585 | define-expansion-constructors) | |
2586 | ((top) (top) (top)) | |
2587 | ("i46" "i45" "i44"))) | |
2588 | (hygiene guile)) | |
2589 | '(()))) | |
2590 | #f) | |
2591 | 'compile | |
2592 | (if (if (eq? (if (if (vector? #{x 20340}#) | |
2593 | (if (= (vector-length | |
2594 | #{x 20340}#) | |
2595 | 4) | |
2596 | (eq? (vector-ref | |
2597 | #{x 20340}# | |
2598 | 0) | |
2599 | 'syntax-object) | |
2600 | #f) | |
2601 | #f) | |
2602 | (vector-ref #{x 20340}# 1) | |
2603 | #{x 20340}#) | |
2604 | (if (if (= (vector-length | |
2605 | '#(syntax-object | |
2606 | load | |
2607 | ((top) | |
2608 | #(ribcage () () ()) | |
2609 | #(ribcage () () ()) | |
2610 | #(ribcage () () ()) | |
2611 | #(ribcage | |
2612 | #(x) | |
2613 | #((top)) | |
2614 | #("i1754")) | |
2615 | #(ribcage () () ()) | |
2616 | #(ribcage | |
2617 | #(f | |
2618 | when-list | |
2619 | situations) | |
2620 | #((top) | |
2621 | (top) | |
2622 | (top)) | |
2623 | #("i1748" | |
2624 | "i1749" | |
2625 | "i1750")) | |
2626 | #(ribcage () () ()) | |
2627 | #(ribcage | |
2628 | #(e when-list w) | |
2629 | #((top) | |
2630 | (top) | |
2631 | (top)) | |
2632 | #("i1745" | |
2633 | "i1746" | |
2634 | "i1747")) | |
2635 | #(ribcage | |
2636 | (lambda-var-list | |
2637 | gen-var | |
2638 | strip | |
2639 | expand-lambda-case | |
2640 | lambda*-formals | |
2641 | expand-simple-lambda | |
2642 | lambda-formals | |
2643 | ellipsis? | |
2644 | expand-void | |
2645 | eval-local-transformer | |
2646 | expand-local-syntax | |
2647 | expand-body | |
2648 | expand-macro | |
2649 | expand-application | |
2650 | expand-expr | |
2651 | expand | |
2652 | syntax-type | |
2653 | expand-when-list | |
2654 | expand-install-global | |
2655 | expand-top-sequence | |
2656 | expand-sequence | |
2657 | source-wrap | |
2658 | wrap | |
2659 | bound-id-member? | |
2660 | distinct-bound-ids? | |
2661 | valid-bound-ids? | |
2662 | bound-id=? | |
2663 | free-id=? | |
2664 | id-var-name | |
2665 | same-marks? | |
2666 | join-marks | |
2667 | join-wraps | |
2668 | smart-append | |
2669 | make-binding-wrap | |
2670 | extend-ribcage! | |
2671 | make-empty-ribcage | |
2672 | new-mark | |
2673 | anti-mark | |
2674 | the-anti-mark | |
2675 | top-marked? | |
2676 | top-wrap | |
2677 | empty-wrap | |
2678 | set-ribcage-labels! | |
2679 | set-ribcage-marks! | |
2680 | set-ribcage-symnames! | |
2681 | ribcage-labels | |
2682 | ribcage-marks | |
2683 | ribcage-symnames | |
2684 | ribcage? | |
2685 | make-ribcage | |
2686 | gen-labels | |
2687 | gen-label | |
2688 | make-rename | |
2689 | rename-marks | |
2690 | rename-new | |
2691 | rename-old | |
2692 | subst-rename? | |
2693 | wrap-subst | |
2694 | wrap-marks | |
2695 | make-wrap | |
2696 | id-sym-name&marks | |
2697 | id-sym-name | |
2698 | id? | |
2699 | nonsymbol-id? | |
2700 | global-extend | |
2701 | lookup | |
2702 | macros-only-env | |
2703 | extend-var-env | |
2704 | extend-env | |
2705 | null-env | |
2706 | binding-value | |
2707 | binding-type | |
2708 | make-binding | |
2709 | arg-check | |
2710 | source-annotation | |
2711 | no-source | |
2712 | set-syntax-object-module! | |
2713 | set-syntax-object-wrap! | |
2714 | set-syntax-object-expression! | |
2715 | syntax-object-module | |
2716 | syntax-object-wrap | |
2717 | syntax-object-expression | |
2718 | syntax-object? | |
2719 | make-syntax-object | |
2720 | build-lexical-var | |
2721 | build-letrec | |
2722 | build-named-let | |
2723 | build-let | |
2724 | build-sequence | |
2725 | build-data | |
2726 | build-primref | |
2727 | build-lambda-case | |
2728 | build-case-lambda | |
2729 | build-simple-lambda | |
2730 | build-global-definition | |
2731 | build-global-assignment | |
2732 | build-global-reference | |
2733 | analyze-variable | |
2734 | build-lexical-assignment | |
2735 | build-lexical-reference | |
2736 | build-dynlet | |
2737 | build-conditional | |
2738 | build-application | |
2739 | build-void | |
2740 | maybe-name-value! | |
2741 | decorate-source | |
2742 | get-global-definition-hook | |
2743 | put-global-definition-hook | |
2744 | gensym-hook | |
2745 | local-eval-hook | |
2746 | top-level-eval-hook | |
2747 | fx< | |
2748 | fx= | |
2749 | fx- | |
2750 | fx+ | |
2751 | set-lambda-meta! | |
2752 | lambda-meta | |
2753 | lambda? | |
2754 | make-dynlet | |
2755 | make-letrec | |
2756 | make-let | |
2757 | make-lambda-case | |
2758 | make-lambda | |
2759 | make-sequence | |
2760 | make-application | |
2761 | make-conditional | |
2762 | make-toplevel-define | |
2763 | make-toplevel-set | |
2764 | make-toplevel-ref | |
2765 | make-module-set | |
2766 | make-module-ref | |
2767 | make-lexical-set | |
2768 | make-lexical-ref | |
2769 | make-primitive-ref | |
2770 | make-const | |
2771 | make-void) | |
2772 | ((top) | |
2773 | (top) | |
2774 | (top) | |
2775 | (top) | |
2776 | (top) | |
2777 | (top) | |
2778 | (top) | |
2779 | (top) | |
2780 | (top) | |
2781 | (top) | |
2782 | (top) | |
2783 | (top) | |
2784 | (top) | |
2785 | (top) | |
2786 | (top) | |
2787 | (top) | |
2788 | (top) | |
2789 | (top) | |
2790 | (top) | |
2791 | (top) | |
2792 | (top) | |
2793 | (top) | |
2794 | (top) | |
2795 | (top) | |
2796 | (top) | |
2797 | (top) | |
2798 | (top) | |
2799 | (top) | |
2800 | (top) | |
2801 | (top) | |
2802 | (top) | |
2803 | (top) | |
2804 | (top) | |
2805 | (top) | |
2806 | (top) | |
2807 | (top) | |
2808 | (top) | |
2809 | (top) | |
2810 | (top) | |
2811 | (top) | |
2812 | (top) | |
2813 | (top) | |
2814 | (top) | |
2815 | (top) | |
2816 | (top) | |
2817 | (top) | |
2818 | (top) | |
2819 | (top) | |
2820 | (top) | |
2821 | (top) | |
2822 | (top) | |
2823 | (top) | |
2824 | (top) | |
2825 | (top) | |
2826 | (top) | |
2827 | (top) | |
2828 | (top) | |
2829 | (top) | |
2830 | (top) | |
2831 | (top) | |
2832 | (top) | |
2833 | (top) | |
2834 | (top) | |
2835 | (top) | |
2836 | (top) | |
2837 | (top) | |
2838 | (top) | |
2839 | (top) | |
2840 | (top) | |
2841 | (top) | |
2842 | (top) | |
2843 | (top) | |
2844 | (top) | |
2845 | (top) | |
2846 | (top) | |
2847 | (top) | |
2848 | (top) | |
2849 | (top) | |
2850 | (top) | |
2851 | (top) | |
2852 | (top) | |
2853 | (top) | |
2854 | (top) | |
2855 | (top) | |
2856 | (top) | |
2857 | (top) | |
2858 | (top) | |
2859 | (top) | |
2860 | (top) | |
2861 | (top) | |
2862 | (top) | |
2863 | (top) | |
2864 | (top) | |
2865 | (top) | |
2866 | (top) | |
2867 | (top) | |
2868 | (top) | |
2869 | (top) | |
2870 | (top) | |
2871 | (top) | |
2872 | (top) | |
2873 | (top) | |
2874 | (top) | |
2875 | (top) | |
2876 | (top) | |
2877 | (top) | |
2878 | (top) | |
2879 | (top) | |
2880 | (top) | |
2881 | (top) | |
2882 | (top) | |
2883 | (top) | |
2884 | (top) | |
2885 | (top) | |
2886 | (top) | |
2887 | (top) | |
2888 | (top) | |
2889 | (top) | |
2890 | (top) | |
2891 | (top) | |
2892 | (top) | |
2893 | (top) | |
2894 | (top) | |
2895 | (top) | |
2896 | (top) | |
2897 | (top) | |
2898 | (top) | |
2899 | (top) | |
2900 | (top) | |
2901 | (top) | |
2902 | (top) | |
2903 | (top) | |
2904 | (top) | |
2905 | (top) | |
2906 | (top) | |
2907 | (top)) | |
2908 | ("i467" | |
2909 | "i465" | |
2910 | "i463" | |
2911 | "i461" | |
2912 | "i459" | |
2913 | "i457" | |
2914 | "i455" | |
2915 | "i453" | |
2916 | "i451" | |
2917 | "i449" | |
2918 | "i447" | |
2919 | "i445" | |
2920 | "i443" | |
2921 | "i441" | |
2922 | "i439" | |
2923 | "i437" | |
2924 | "i435" | |
2925 | "i433" | |
2926 | "i431" | |
2927 | "i429" | |
2928 | "i427" | |
2929 | "i425" | |
2930 | "i423" | |
2931 | "i421" | |
2932 | "i419" | |
2933 | "i417" | |
2934 | "i415" | |
2935 | "i413" | |
2936 | "i411" | |
2937 | "i409" | |
2938 | "i407" | |
2939 | "i405" | |
2940 | "i403" | |
2941 | "i401" | |
2942 | "i399" | |
2943 | "i398" | |
2944 | "i396" | |
2945 | "i393" | |
2946 | "i392" | |
2947 | "i391" | |
2948 | "i389" | |
2949 | "i388" | |
2950 | "i386" | |
2951 | "i384" | |
2952 | "i382" | |
2953 | "i380" | |
2954 | "i378" | |
2955 | "i376" | |
2956 | "i374" | |
2957 | "i372" | |
2958 | "i369" | |
2959 | "i367" | |
2960 | "i366" | |
2961 | "i364" | |
2962 | "i362" | |
2963 | "i360" | |
2964 | "i358" | |
2965 | "i357" | |
2966 | "i356" | |
2967 | "i355" | |
2968 | "i353" | |
2969 | "i352" | |
2970 | "i349" | |
2971 | "i347" | |
2972 | "i345" | |
2973 | "i343" | |
2974 | "i341" | |
2975 | "i339" | |
2976 | "i337" | |
2977 | "i336" | |
2978 | "i335" | |
2979 | "i333" | |
2980 | "i331" | |
2981 | "i330" | |
2982 | "i327" | |
2983 | "i326" | |
2984 | "i324" | |
2985 | "i322" | |
2986 | "i320" | |
2987 | "i318" | |
2988 | "i316" | |
2989 | "i314" | |
2990 | "i312" | |
2991 | "i310" | |
2992 | "i308" | |
2993 | "i305" | |
2994 | "i303" | |
2995 | "i301" | |
2996 | "i299" | |
2997 | "i297" | |
2998 | "i295" | |
2999 | "i293" | |
3000 | "i291" | |
3001 | "i289" | |
3002 | "i287" | |
3003 | "i285" | |
3004 | "i283" | |
3005 | "i281" | |
3006 | "i279" | |
3007 | "i277" | |
3008 | "i275" | |
3009 | "i273" | |
3010 | "i271" | |
3011 | "i269" | |
3012 | "i267" | |
3013 | "i265" | |
3014 | "i263" | |
3015 | "i261" | |
3016 | "i260" | |
3017 | "i257" | |
3018 | "i255" | |
3019 | "i254" | |
3020 | "i253" | |
3021 | "i252" | |
3022 | "i251" | |
3023 | "i249" | |
3024 | "i247" | |
3025 | "i245" | |
3026 | "i242" | |
3027 | "i240" | |
3028 | "i238" | |
3029 | "i236" | |
3030 | "i234" | |
3031 | "i232" | |
3032 | "i230" | |
3033 | "i228" | |
3034 | "i226" | |
3035 | "i224" | |
3036 | "i222" | |
3037 | "i220" | |
3038 | "i218" | |
3039 | "i216" | |
3040 | "i214" | |
3041 | "i212" | |
3042 | "i210" | |
3043 | "i208")) | |
3044 | #(ribcage | |
3045 | (define-structure | |
3046 | define-expansion-accessors | |
3047 | define-expansion-constructors) | |
3048 | ((top) (top) (top)) | |
3049 | ("i46" | |
3050 | "i45" | |
3051 | "i44"))) | |
3052 | (hygiene guile))) | |
3053 | 4) | |
3054 | #t | |
3055 | #f) | |
3056 | 'load | |
3057 | '#(syntax-object | |
3058 | load | |
3059 | ((top) | |
3060 | #(ribcage () () ()) | |
3061 | #(ribcage () () ()) | |
3062 | #(ribcage () () ()) | |
3063 | #(ribcage | |
3064 | #(x) | |
3065 | #((top)) | |
3066 | #("i1754")) | |
3067 | #(ribcage () () ()) | |
3068 | #(ribcage | |
3069 | #(f when-list situations) | |
3070 | #((top) (top) (top)) | |
3071 | #("i1748" "i1749" "i1750")) | |
3072 | #(ribcage () () ()) | |
3073 | #(ribcage | |
3074 | #(e when-list w) | |
3075 | #((top) (top) (top)) | |
3076 | #("i1745" "i1746" "i1747")) | |
3077 | #(ribcage | |
3078 | (lambda-var-list | |
3079 | gen-var | |
3080 | strip | |
3081 | expand-lambda-case | |
3082 | lambda*-formals | |
3083 | expand-simple-lambda | |
3084 | lambda-formals | |
3085 | ellipsis? | |
3086 | expand-void | |
3087 | eval-local-transformer | |
3088 | expand-local-syntax | |
3089 | expand-body | |
3090 | expand-macro | |
3091 | expand-application | |
3092 | expand-expr | |
3093 | expand | |
3094 | syntax-type | |
3095 | expand-when-list | |
3096 | expand-install-global | |
3097 | expand-top-sequence | |
3098 | expand-sequence | |
3099 | source-wrap | |
3100 | wrap | |
3101 | bound-id-member? | |
3102 | distinct-bound-ids? | |
3103 | valid-bound-ids? | |
3104 | bound-id=? | |
3105 | free-id=? | |
3106 | id-var-name | |
3107 | same-marks? | |
3108 | join-marks | |
3109 | join-wraps | |
3110 | smart-append | |
3111 | make-binding-wrap | |
3112 | extend-ribcage! | |
3113 | make-empty-ribcage | |
3114 | new-mark | |
3115 | anti-mark | |
3116 | the-anti-mark | |
3117 | top-marked? | |
3118 | top-wrap | |
3119 | empty-wrap | |
3120 | set-ribcage-labels! | |
3121 | set-ribcage-marks! | |
3122 | set-ribcage-symnames! | |
3123 | ribcage-labels | |
3124 | ribcage-marks | |
3125 | ribcage-symnames | |
3126 | ribcage? | |
3127 | make-ribcage | |
3128 | gen-labels | |
3129 | gen-label | |
3130 | make-rename | |
3131 | rename-marks | |
3132 | rename-new | |
3133 | rename-old | |
3134 | subst-rename? | |
3135 | wrap-subst | |
3136 | wrap-marks | |
3137 | make-wrap | |
3138 | id-sym-name&marks | |
3139 | id-sym-name | |
3140 | id? | |
3141 | nonsymbol-id? | |
3142 | global-extend | |
3143 | lookup | |
3144 | macros-only-env | |
3145 | extend-var-env | |
3146 | extend-env | |
3147 | null-env | |
3148 | binding-value | |
3149 | binding-type | |
3150 | make-binding | |
3151 | arg-check | |
3152 | source-annotation | |
3153 | no-source | |
3154 | set-syntax-object-module! | |
3155 | set-syntax-object-wrap! | |
3156 | set-syntax-object-expression! | |
3157 | syntax-object-module | |
3158 | syntax-object-wrap | |
3159 | syntax-object-expression | |
3160 | syntax-object? | |
3161 | make-syntax-object | |
3162 | build-lexical-var | |
3163 | build-letrec | |
3164 | build-named-let | |
3165 | build-let | |
3166 | build-sequence | |
3167 | build-data | |
3168 | build-primref | |
3169 | build-lambda-case | |
3170 | build-case-lambda | |
3171 | build-simple-lambda | |
3172 | build-global-definition | |
3173 | build-global-assignment | |
3174 | build-global-reference | |
3175 | analyze-variable | |
3176 | build-lexical-assignment | |
3177 | build-lexical-reference | |
3178 | build-dynlet | |
3179 | build-conditional | |
3180 | build-application | |
3181 | build-void | |
3182 | maybe-name-value! | |
3183 | decorate-source | |
3184 | get-global-definition-hook | |
3185 | put-global-definition-hook | |
3186 | gensym-hook | |
3187 | local-eval-hook | |
3188 | top-level-eval-hook | |
3189 | fx< | |
3190 | fx= | |
3191 | fx- | |
3192 | fx+ | |
3193 | set-lambda-meta! | |
3194 | lambda-meta | |
3195 | lambda? | |
3196 | make-dynlet | |
3197 | make-letrec | |
3198 | make-let | |
3199 | make-lambda-case | |
3200 | make-lambda | |
3201 | make-sequence | |
3202 | make-application | |
3203 | make-conditional | |
3204 | make-toplevel-define | |
3205 | make-toplevel-set | |
3206 | make-toplevel-ref | |
3207 | make-module-set | |
3208 | make-module-ref | |
3209 | make-lexical-set | |
3210 | make-lexical-ref | |
3211 | make-primitive-ref | |
3212 | make-const | |
3213 | make-void) | |
3214 | ((top) | |
3215 | (top) | |
3216 | (top) | |
3217 | (top) | |
3218 | (top) | |
3219 | (top) | |
3220 | (top) | |
3221 | (top) | |
3222 | (top) | |
3223 | (top) | |
3224 | (top) | |
3225 | (top) | |
3226 | (top) | |
3227 | (top) | |
3228 | (top) | |
3229 | (top) | |
3230 | (top) | |
3231 | (top) | |
3232 | (top) | |
3233 | (top) | |
3234 | (top) | |
3235 | (top) | |
3236 | (top) | |
3237 | (top) | |
3238 | (top) | |
3239 | (top) | |
3240 | (top) | |
3241 | (top) | |
3242 | (top) | |
3243 | (top) | |
3244 | (top) | |
3245 | (top) | |
3246 | (top) | |
3247 | (top) | |
3248 | (top) | |
3249 | (top) | |
3250 | (top) | |
3251 | (top) | |
3252 | (top) | |
3253 | (top) | |
3254 | (top) | |
3255 | (top) | |
3256 | (top) | |
3257 | (top) | |
3258 | (top) | |
3259 | (top) | |
3260 | (top) | |
3261 | (top) | |
3262 | (top) | |
3263 | (top) | |
3264 | (top) | |
3265 | (top) | |
3266 | (top) | |
3267 | (top) | |
3268 | (top) | |
3269 | (top) | |
3270 | (top) | |
3271 | (top) | |
3272 | (top) | |
3273 | (top) | |
3274 | (top) | |
3275 | (top) | |
3276 | (top) | |
3277 | (top) | |
3278 | (top) | |
3279 | (top) | |
3280 | (top) | |
3281 | (top) | |
3282 | (top) | |
3283 | (top) | |
3284 | (top) | |
3285 | (top) | |
3286 | (top) | |
3287 | (top) | |
3288 | (top) | |
3289 | (top) | |
3290 | (top) | |
3291 | (top) | |
3292 | (top) | |
3293 | (top) | |
3294 | (top) | |
3295 | (top) | |
3296 | (top) | |
3297 | (top) | |
3298 | (top) | |
3299 | (top) | |
3300 | (top) | |
3301 | (top) | |
3302 | (top) | |
3303 | (top) | |
3304 | (top) | |
3305 | (top) | |
3306 | (top) | |
3307 | (top) | |
3308 | (top) | |
3309 | (top) | |
3310 | (top) | |
3311 | (top) | |
3312 | (top) | |
3313 | (top) | |
3314 | (top) | |
3315 | (top) | |
3316 | (top) | |
3317 | (top) | |
3318 | (top) | |
3319 | (top) | |
3320 | (top) | |
3321 | (top) | |
3322 | (top) | |
3323 | (top) | |
3324 | (top) | |
3325 | (top) | |
3326 | (top) | |
3327 | (top) | |
3328 | (top) | |
3329 | (top) | |
3330 | (top) | |
3331 | (top) | |
3332 | (top) | |
3333 | (top) | |
3334 | (top) | |
3335 | (top) | |
3336 | (top) | |
3337 | (top) | |
3338 | (top) | |
3339 | (top) | |
3340 | (top) | |
3341 | (top) | |
3342 | (top) | |
3343 | (top) | |
3344 | (top) | |
3345 | (top) | |
3346 | (top) | |
3347 | (top) | |
3348 | (top) | |
3349 | (top)) | |
3350 | ("i467" | |
3351 | "i465" | |
3352 | "i463" | |
3353 | "i461" | |
3354 | "i459" | |
3355 | "i457" | |
3356 | "i455" | |
3357 | "i453" | |
3358 | "i451" | |
3359 | "i449" | |
3360 | "i447" | |
3361 | "i445" | |
3362 | "i443" | |
3363 | "i441" | |
3364 | "i439" | |
3365 | "i437" | |
3366 | "i435" | |
3367 | "i433" | |
3368 | "i431" | |
3369 | "i429" | |
3370 | "i427" | |
3371 | "i425" | |
3372 | "i423" | |
3373 | "i421" | |
3374 | "i419" | |
3375 | "i417" | |
3376 | "i415" | |
3377 | "i413" | |
3378 | "i411" | |
3379 | "i409" | |
3380 | "i407" | |
3381 | "i405" | |
3382 | "i403" | |
3383 | "i401" | |
3384 | "i399" | |
3385 | "i398" | |
3386 | "i396" | |
3387 | "i393" | |
3388 | "i392" | |
3389 | "i391" | |
3390 | "i389" | |
3391 | "i388" | |
3392 | "i386" | |
3393 | "i384" | |
3394 | "i382" | |
3395 | "i380" | |
3396 | "i378" | |
3397 | "i376" | |
3398 | "i374" | |
3399 | "i372" | |
3400 | "i369" | |
3401 | "i367" | |
3402 | "i366" | |
3403 | "i364" | |
3404 | "i362" | |
3405 | "i360" | |
3406 | "i358" | |
3407 | "i357" | |
3408 | "i356" | |
3409 | "i355" | |
3410 | "i353" | |
3411 | "i352" | |
3412 | "i349" | |
3413 | "i347" | |
3414 | "i345" | |
3415 | "i343" | |
3416 | "i341" | |
3417 | "i339" | |
3418 | "i337" | |
3419 | "i336" | |
3420 | "i335" | |
3421 | "i333" | |
3422 | "i331" | |
3423 | "i330" | |
3424 | "i327" | |
3425 | "i326" | |
3426 | "i324" | |
3427 | "i322" | |
3428 | "i320" | |
3429 | "i318" | |
3430 | "i316" | |
3431 | "i314" | |
3432 | "i312" | |
3433 | "i310" | |
3434 | "i308" | |
3435 | "i305" | |
3436 | "i303" | |
3437 | "i301" | |
3438 | "i299" | |
3439 | "i297" | |
3440 | "i295" | |
3441 | "i293" | |
3442 | "i291" | |
3443 | "i289" | |
3444 | "i287" | |
3445 | "i285" | |
3446 | "i283" | |
3447 | "i281" | |
3448 | "i279" | |
3449 | "i277" | |
3450 | "i275" | |
3451 | "i273" | |
3452 | "i271" | |
3453 | "i269" | |
3454 | "i267" | |
3455 | "i265" | |
3456 | "i263" | |
3457 | "i261" | |
3458 | "i260" | |
3459 | "i257" | |
3460 | "i255" | |
3461 | "i254" | |
3462 | "i253" | |
3463 | "i252" | |
3464 | "i251" | |
3465 | "i249" | |
3466 | "i247" | |
3467 | "i245" | |
3468 | "i242" | |
3469 | "i240" | |
3470 | "i238" | |
3471 | "i236" | |
3472 | "i234" | |
3473 | "i232" | |
3474 | "i230" | |
3475 | "i228" | |
3476 | "i226" | |
3477 | "i224" | |
3478 | "i222" | |
3479 | "i220" | |
3480 | "i218" | |
3481 | "i216" | |
3482 | "i214" | |
3483 | "i212" | |
3484 | "i210" | |
3485 | "i208")) | |
3486 | #(ribcage | |
3487 | (define-structure | |
3488 | define-expansion-accessors | |
3489 | define-expansion-constructors) | |
3490 | ((top) (top) (top)) | |
3491 | ("i46" "i45" "i44"))) | |
3492 | (hygiene guile)))) | |
3493 | (eq? (#{id-var-name 4332}# #{x 20340}# '(())) | |
3494 | (#{id-var-name 4332}# | |
3495 | '#(syntax-object | |
3496 | load | |
3497 | ((top) | |
3498 | #(ribcage () () ()) | |
3499 | #(ribcage () () ()) | |
3500 | #(ribcage () () ()) | |
3501 | #(ribcage | |
3502 | #(x) | |
3503 | #((top)) | |
3504 | #("i1754")) | |
3505 | #(ribcage () () ()) | |
3506 | #(ribcage | |
3507 | #(f when-list situations) | |
3508 | #((top) (top) (top)) | |
3509 | #("i1748" "i1749" "i1750")) | |
3510 | #(ribcage () () ()) | |
3511 | #(ribcage | |
3512 | #(e when-list w) | |
3513 | #((top) (top) (top)) | |
3514 | #("i1745" "i1746" "i1747")) | |
3515 | #(ribcage | |
3516 | (lambda-var-list | |
3517 | gen-var | |
3518 | strip | |
3519 | expand-lambda-case | |
3520 | lambda*-formals | |
3521 | expand-simple-lambda | |
3522 | lambda-formals | |
3523 | ellipsis? | |
3524 | expand-void | |
3525 | eval-local-transformer | |
3526 | expand-local-syntax | |
3527 | expand-body | |
3528 | expand-macro | |
3529 | expand-application | |
3530 | expand-expr | |
3531 | expand | |
3532 | syntax-type | |
3533 | expand-when-list | |
3534 | expand-install-global | |
3535 | expand-top-sequence | |
3536 | expand-sequence | |
3537 | source-wrap | |
3538 | wrap | |
3539 | bound-id-member? | |
3540 | distinct-bound-ids? | |
3541 | valid-bound-ids? | |
3542 | bound-id=? | |
3543 | free-id=? | |
3544 | id-var-name | |
3545 | same-marks? | |
3546 | join-marks | |
3547 | join-wraps | |
3548 | smart-append | |
3549 | make-binding-wrap | |
3550 | extend-ribcage! | |
3551 | make-empty-ribcage | |
3552 | new-mark | |
3553 | anti-mark | |
3554 | the-anti-mark | |
3555 | top-marked? | |
3556 | top-wrap | |
3557 | empty-wrap | |
3558 | set-ribcage-labels! | |
3559 | set-ribcage-marks! | |
3560 | set-ribcage-symnames! | |
3561 | ribcage-labels | |
3562 | ribcage-marks | |
3563 | ribcage-symnames | |
3564 | ribcage? | |
3565 | make-ribcage | |
3566 | gen-labels | |
3567 | gen-label | |
3568 | make-rename | |
3569 | rename-marks | |
3570 | rename-new | |
3571 | rename-old | |
3572 | subst-rename? | |
3573 | wrap-subst | |
3574 | wrap-marks | |
3575 | make-wrap | |
3576 | id-sym-name&marks | |
3577 | id-sym-name | |
3578 | id? | |
3579 | nonsymbol-id? | |
3580 | global-extend | |
3581 | lookup | |
3582 | macros-only-env | |
3583 | extend-var-env | |
3584 | extend-env | |
3585 | null-env | |
3586 | binding-value | |
3587 | binding-type | |
3588 | make-binding | |
3589 | arg-check | |
3590 | source-annotation | |
3591 | no-source | |
3592 | set-syntax-object-module! | |
3593 | set-syntax-object-wrap! | |
3594 | set-syntax-object-expression! | |
3595 | syntax-object-module | |
3596 | syntax-object-wrap | |
3597 | syntax-object-expression | |
3598 | syntax-object? | |
3599 | make-syntax-object | |
3600 | build-lexical-var | |
3601 | build-letrec | |
3602 | build-named-let | |
3603 | build-let | |
3604 | build-sequence | |
3605 | build-data | |
3606 | build-primref | |
3607 | build-lambda-case | |
3608 | build-case-lambda | |
3609 | build-simple-lambda | |
3610 | build-global-definition | |
3611 | build-global-assignment | |
3612 | build-global-reference | |
3613 | analyze-variable | |
3614 | build-lexical-assignment | |
3615 | build-lexical-reference | |
3616 | build-dynlet | |
3617 | build-conditional | |
3618 | build-application | |
3619 | build-void | |
3620 | maybe-name-value! | |
3621 | decorate-source | |
3622 | get-global-definition-hook | |
3623 | put-global-definition-hook | |
3624 | gensym-hook | |
3625 | local-eval-hook | |
3626 | top-level-eval-hook | |
3627 | fx< | |
3628 | fx= | |
3629 | fx- | |
3630 | fx+ | |
3631 | set-lambda-meta! | |
3632 | lambda-meta | |
3633 | lambda? | |
3634 | make-dynlet | |
3635 | make-letrec | |
3636 | make-let | |
3637 | make-lambda-case | |
3638 | make-lambda | |
3639 | make-sequence | |
3640 | make-application | |
3641 | make-conditional | |
3642 | make-toplevel-define | |
3643 | make-toplevel-set | |
3644 | make-toplevel-ref | |
3645 | make-module-set | |
3646 | make-module-ref | |
3647 | make-lexical-set | |
3648 | make-lexical-ref | |
3649 | make-primitive-ref | |
3650 | make-const | |
3651 | make-void) | |
3652 | ((top) | |
3653 | (top) | |
3654 | (top) | |
3655 | (top) | |
3656 | (top) | |
3657 | (top) | |
3658 | (top) | |
3659 | (top) | |
3660 | (top) | |
3661 | (top) | |
3662 | (top) | |
3663 | (top) | |
3664 | (top) | |
3665 | (top) | |
3666 | (top) | |
3667 | (top) | |
3668 | (top) | |
3669 | (top) | |
3670 | (top) | |
3671 | (top) | |
3672 | (top) | |
3673 | (top) | |
3674 | (top) | |
3675 | (top) | |
3676 | (top) | |
3677 | (top) | |
3678 | (top) | |
3679 | (top) | |
3680 | (top) | |
3681 | (top) | |
3682 | (top) | |
3683 | (top) | |
3684 | (top) | |
3685 | (top) | |
3686 | (top) | |
3687 | (top) | |
3688 | (top) | |
3689 | (top) | |
3690 | (top) | |
3691 | (top) | |
3692 | (top) | |
3693 | (top) | |
3694 | (top) | |
3695 | (top) | |
3696 | (top) | |
3697 | (top) | |
3698 | (top) | |
3699 | (top) | |
3700 | (top) | |
3701 | (top) | |
3702 | (top) | |
3703 | (top) | |
3704 | (top) | |
3705 | (top) | |
3706 | (top) | |
3707 | (top) | |
3708 | (top) | |
3709 | (top) | |
3710 | (top) | |
3711 | (top) | |
3712 | (top) | |
3713 | (top) | |
3714 | (top) | |
3715 | (top) | |
3716 | (top) | |
3717 | (top) | |
3718 | (top) | |
3719 | (top) | |
3720 | (top) | |
3721 | (top) | |
3722 | (top) | |
3723 | (top) | |
3724 | (top) | |
3725 | (top) | |
3726 | (top) | |
3727 | (top) | |
3728 | (top) | |
3729 | (top) | |
3730 | (top) | |
3731 | (top) | |
3732 | (top) | |
3733 | (top) | |
3734 | (top) | |
3735 | (top) | |
3736 | (top) | |
3737 | (top) | |
3738 | (top) | |
3739 | (top) | |
3740 | (top) | |
3741 | (top) | |
3742 | (top) | |
3743 | (top) | |
3744 | (top) | |
3745 | (top) | |
3746 | (top) | |
3747 | (top) | |
3748 | (top) | |
3749 | (top) | |
3750 | (top) | |
3751 | (top) | |
3752 | (top) | |
3753 | (top) | |
3754 | (top) | |
3755 | (top) | |
3756 | (top) | |
3757 | (top) | |
3758 | (top) | |
3759 | (top) | |
3760 | (top) | |
3761 | (top) | |
3762 | (top) | |
3763 | (top) | |
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 | ("i467" | |
3789 | "i465" | |
3790 | "i463" | |
3791 | "i461" | |
3792 | "i459" | |
3793 | "i457" | |
3794 | "i455" | |
3795 | "i453" | |
3796 | "i451" | |
3797 | "i449" | |
3798 | "i447" | |
3799 | "i445" | |
3800 | "i443" | |
3801 | "i441" | |
3802 | "i439" | |
3803 | "i437" | |
3804 | "i435" | |
3805 | "i433" | |
3806 | "i431" | |
3807 | "i429" | |
3808 | "i427" | |
3809 | "i425" | |
3810 | "i423" | |
3811 | "i421" | |
3812 | "i419" | |
3813 | "i417" | |
3814 | "i415" | |
3815 | "i413" | |
3816 | "i411" | |
3817 | "i409" | |
3818 | "i407" | |
3819 | "i405" | |
3820 | "i403" | |
3821 | "i401" | |
3822 | "i399" | |
3823 | "i398" | |
3824 | "i396" | |
3825 | "i393" | |
3826 | "i392" | |
3827 | "i391" | |
3828 | "i389" | |
3829 | "i388" | |
3830 | "i386" | |
3831 | "i384" | |
3832 | "i382" | |
3833 | "i380" | |
3834 | "i378" | |
3835 | "i376" | |
3836 | "i374" | |
3837 | "i372" | |
3838 | "i369" | |
3839 | "i367" | |
3840 | "i366" | |
3841 | "i364" | |
3842 | "i362" | |
3843 | "i360" | |
3844 | "i358" | |
3845 | "i357" | |
3846 | "i356" | |
3847 | "i355" | |
3848 | "i353" | |
3849 | "i352" | |
3850 | "i349" | |
3851 | "i347" | |
3852 | "i345" | |
3853 | "i343" | |
3854 | "i341" | |
3855 | "i339" | |
3856 | "i337" | |
3857 | "i336" | |
3858 | "i335" | |
3859 | "i333" | |
3860 | "i331" | |
3861 | "i330" | |
3862 | "i327" | |
3863 | "i326" | |
3864 | "i324" | |
3865 | "i322" | |
3866 | "i320" | |
3867 | "i318" | |
3868 | "i316" | |
3869 | "i314" | |
3870 | "i312" | |
3871 | "i310" | |
3872 | "i308" | |
3873 | "i305" | |
3874 | "i303" | |
3875 | "i301" | |
3876 | "i299" | |
3877 | "i297" | |
3878 | "i295" | |
3879 | "i293" | |
3880 | "i291" | |
3881 | "i289" | |
3882 | "i287" | |
3883 | "i285" | |
3884 | "i283" | |
3885 | "i281" | |
3886 | "i279" | |
3887 | "i277" | |
3888 | "i275" | |
3889 | "i273" | |
3890 | "i271" | |
3891 | "i269" | |
3892 | "i267" | |
3893 | "i265" | |
3894 | "i263" | |
3895 | "i261" | |
3896 | "i260" | |
3897 | "i257" | |
3898 | "i255" | |
3899 | "i254" | |
3900 | "i253" | |
3901 | "i252" | |
3902 | "i251" | |
3903 | "i249" | |
3904 | "i247" | |
3905 | "i245" | |
3906 | "i242" | |
3907 | "i240" | |
3908 | "i238" | |
3909 | "i236" | |
3910 | "i234" | |
3911 | "i232" | |
3912 | "i230" | |
3913 | "i228" | |
3914 | "i226" | |
3915 | "i224" | |
3916 | "i222" | |
3917 | "i220" | |
3918 | "i218" | |
3919 | "i216" | |
3920 | "i214" | |
3921 | "i212" | |
3922 | "i210" | |
3923 | "i208")) | |
3924 | #(ribcage | |
3925 | (define-structure | |
3926 | define-expansion-accessors | |
3927 | define-expansion-constructors) | |
3928 | ((top) (top) (top)) | |
3929 | ("i46" "i45" "i44"))) | |
3930 | (hygiene guile)) | |
3931 | '(()))) | |
3932 | #f) | |
3933 | 'load | |
3934 | (if (if (eq? (if (if (vector? #{x 20340}#) | |
3935 | (if (= (vector-length | |
3936 | #{x 20340}#) | |
3937 | 4) | |
3938 | (eq? (vector-ref | |
3939 | #{x 20340}# | |
3940 | 0) | |
3941 | 'syntax-object) | |
3942 | #f) | |
3943 | #f) | |
3944 | (vector-ref #{x 20340}# 1) | |
3945 | #{x 20340}#) | |
3946 | (if (if (= (vector-length | |
3947 | '#(syntax-object | |
3948 | eval | |
3949 | ((top) | |
3950 | #(ribcage () () ()) | |
3951 | #(ribcage () () ()) | |
3952 | #(ribcage () () ()) | |
3953 | #(ribcage | |
3954 | #(x) | |
3955 | #((top)) | |
3956 | #("i1754")) | |
3957 | #(ribcage () () ()) | |
3958 | #(ribcage | |
3959 | #(f | |
3960 | when-list | |
3961 | situations) | |
3962 | #((top) | |
3963 | (top) | |
3964 | (top)) | |
3965 | #("i1748" | |
3966 | "i1749" | |
3967 | "i1750")) | |
3968 | #(ribcage () () ()) | |
3969 | #(ribcage | |
3970 | #(e when-list w) | |
3971 | #((top) | |
3972 | (top) | |
3973 | (top)) | |
3974 | #("i1745" | |
3975 | "i1746" | |
3976 | "i1747")) | |
3977 | #(ribcage | |
3978 | (lambda-var-list | |
3979 | gen-var | |
3980 | strip | |
3981 | expand-lambda-case | |
3982 | lambda*-formals | |
3983 | expand-simple-lambda | |
3984 | lambda-formals | |
3985 | ellipsis? | |
3986 | expand-void | |
3987 | eval-local-transformer | |
3988 | expand-local-syntax | |
3989 | expand-body | |
3990 | expand-macro | |
3991 | expand-application | |
3992 | expand-expr | |
3993 | expand | |
3994 | syntax-type | |
3995 | expand-when-list | |
3996 | expand-install-global | |
3997 | expand-top-sequence | |
3998 | expand-sequence | |
3999 | source-wrap | |
4000 | wrap | |
4001 | bound-id-member? | |
4002 | distinct-bound-ids? | |
4003 | valid-bound-ids? | |
4004 | bound-id=? | |
4005 | free-id=? | |
4006 | id-var-name | |
4007 | same-marks? | |
4008 | join-marks | |
4009 | join-wraps | |
4010 | smart-append | |
4011 | make-binding-wrap | |
4012 | extend-ribcage! | |
4013 | make-empty-ribcage | |
4014 | new-mark | |
4015 | anti-mark | |
4016 | the-anti-mark | |
4017 | top-marked? | |
4018 | top-wrap | |
4019 | empty-wrap | |
4020 | set-ribcage-labels! | |
4021 | set-ribcage-marks! | |
4022 | set-ribcage-symnames! | |
4023 | ribcage-labels | |
4024 | ribcage-marks | |
4025 | ribcage-symnames | |
4026 | ribcage? | |
4027 | make-ribcage | |
4028 | gen-labels | |
4029 | gen-label | |
4030 | make-rename | |
4031 | rename-marks | |
4032 | rename-new | |
4033 | rename-old | |
4034 | subst-rename? | |
4035 | wrap-subst | |
4036 | wrap-marks | |
4037 | make-wrap | |
4038 | id-sym-name&marks | |
4039 | id-sym-name | |
4040 | id? | |
4041 | nonsymbol-id? | |
4042 | global-extend | |
4043 | lookup | |
4044 | macros-only-env | |
4045 | extend-var-env | |
4046 | extend-env | |
4047 | null-env | |
4048 | binding-value | |
4049 | binding-type | |
4050 | make-binding | |
4051 | arg-check | |
4052 | source-annotation | |
4053 | no-source | |
4054 | set-syntax-object-module! | |
4055 | set-syntax-object-wrap! | |
4056 | set-syntax-object-expression! | |
4057 | syntax-object-module | |
4058 | syntax-object-wrap | |
4059 | syntax-object-expression | |
4060 | syntax-object? | |
4061 | make-syntax-object | |
4062 | build-lexical-var | |
4063 | build-letrec | |
4064 | build-named-let | |
4065 | build-let | |
4066 | build-sequence | |
4067 | build-data | |
4068 | build-primref | |
4069 | build-lambda-case | |
4070 | build-case-lambda | |
4071 | build-simple-lambda | |
4072 | build-global-definition | |
4073 | build-global-assignment | |
4074 | build-global-reference | |
4075 | analyze-variable | |
4076 | build-lexical-assignment | |
4077 | build-lexical-reference | |
4078 | build-dynlet | |
4079 | build-conditional | |
4080 | build-application | |
4081 | build-void | |
4082 | maybe-name-value! | |
4083 | decorate-source | |
4084 | get-global-definition-hook | |
4085 | put-global-definition-hook | |
4086 | gensym-hook | |
4087 | local-eval-hook | |
4088 | top-level-eval-hook | |
4089 | fx< | |
4090 | fx= | |
4091 | fx- | |
4092 | fx+ | |
4093 | set-lambda-meta! | |
4094 | lambda-meta | |
4095 | lambda? | |
4096 | make-dynlet | |
4097 | make-letrec | |
4098 | make-let | |
4099 | make-lambda-case | |
4100 | make-lambda | |
4101 | make-sequence | |
4102 | make-application | |
4103 | make-conditional | |
4104 | make-toplevel-define | |
4105 | make-toplevel-set | |
4106 | make-toplevel-ref | |
4107 | make-module-set | |
4108 | make-module-ref | |
4109 | make-lexical-set | |
4110 | make-lexical-ref | |
4111 | make-primitive-ref | |
4112 | make-const | |
4113 | make-void) | |
4114 | ((top) | |
4115 | (top) | |
4116 | (top) | |
4117 | (top) | |
4118 | (top) | |
4119 | (top) | |
4120 | (top) | |
4121 | (top) | |
4122 | (top) | |
4123 | (top) | |
4124 | (top) | |
4125 | (top) | |
4126 | (top) | |
4127 | (top) | |
4128 | (top) | |
4129 | (top) | |
4130 | (top) | |
4131 | (top) | |
4132 | (top) | |
4133 | (top) | |
4134 | (top) | |
4135 | (top) | |
4136 | (top) | |
4137 | (top) | |
4138 | (top) | |
4139 | (top) | |
4140 | (top) | |
4141 | (top) | |
4142 | (top) | |
4143 | (top) | |
4144 | (top) | |
4145 | (top) | |
4146 | (top) | |
4147 | (top) | |
4148 | (top) | |
4149 | (top) | |
4150 | (top) | |
4151 | (top) | |
4152 | (top) | |
4153 | (top) | |
4154 | (top) | |
4155 | (top) | |
4156 | (top) | |
4157 | (top) | |
4158 | (top) | |
4159 | (top) | |
4160 | (top) | |
4161 | (top) | |
4162 | (top) | |
4163 | (top) | |
4164 | (top) | |
4165 | (top) | |
4166 | (top) | |
4167 | (top) | |
4168 | (top) | |
4169 | (top) | |
4170 | (top) | |
4171 | (top) | |
4172 | (top) | |
4173 | (top) | |
4174 | (top) | |
4175 | (top) | |
4176 | (top) | |
4177 | (top) | |
4178 | (top) | |
4179 | (top) | |
4180 | (top) | |
4181 | (top) | |
4182 | (top) | |
4183 | (top) | |
4184 | (top) | |
4185 | (top) | |
4186 | (top) | |
4187 | (top) | |
4188 | (top) | |
4189 | (top) | |
4190 | (top) | |
4191 | (top) | |
4192 | (top) | |
4193 | (top) | |
4194 | (top) | |
4195 | (top) | |
4196 | (top) | |
4197 | (top) | |
4198 | (top) | |
4199 | (top) | |
4200 | (top) | |
4201 | (top) | |
4202 | (top) | |
4203 | (top) | |
4204 | (top) | |
4205 | (top) | |
4206 | (top) | |
4207 | (top) | |
4208 | (top) | |
4209 | (top) | |
4210 | (top) | |
4211 | (top) | |
4212 | (top) | |
4213 | (top) | |
4214 | (top) | |
4215 | (top) | |
4216 | (top) | |
4217 | (top) | |
4218 | (top) | |
4219 | (top) | |
4220 | (top) | |
4221 | (top) | |
4222 | (top) | |
4223 | (top) | |
4224 | (top) | |
4225 | (top) | |
4226 | (top) | |
4227 | (top) | |
4228 | (top) | |
4229 | (top) | |
4230 | (top) | |
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 | ("i467" | |
4251 | "i465" | |
4252 | "i463" | |
4253 | "i461" | |
4254 | "i459" | |
4255 | "i457" | |
4256 | "i455" | |
4257 | "i453" | |
4258 | "i451" | |
4259 | "i449" | |
4260 | "i447" | |
4261 | "i445" | |
4262 | "i443" | |
4263 | "i441" | |
4264 | "i439" | |
4265 | "i437" | |
4266 | "i435" | |
4267 | "i433" | |
4268 | "i431" | |
4269 | "i429" | |
4270 | "i427" | |
4271 | "i425" | |
4272 | "i423" | |
4273 | "i421" | |
4274 | "i419" | |
4275 | "i417" | |
4276 | "i415" | |
4277 | "i413" | |
4278 | "i411" | |
4279 | "i409" | |
4280 | "i407" | |
4281 | "i405" | |
4282 | "i403" | |
4283 | "i401" | |
4284 | "i399" | |
4285 | "i398" | |
4286 | "i396" | |
4287 | "i393" | |
4288 | "i392" | |
4289 | "i391" | |
4290 | "i389" | |
4291 | "i388" | |
4292 | "i386" | |
4293 | "i384" | |
4294 | "i382" | |
4295 | "i380" | |
4296 | "i378" | |
4297 | "i376" | |
4298 | "i374" | |
4299 | "i372" | |
4300 | "i369" | |
4301 | "i367" | |
4302 | "i366" | |
4303 | "i364" | |
4304 | "i362" | |
4305 | "i360" | |
4306 | "i358" | |
4307 | "i357" | |
4308 | "i356" | |
4309 | "i355" | |
4310 | "i353" | |
4311 | "i352" | |
4312 | "i349" | |
4313 | "i347" | |
4314 | "i345" | |
4315 | "i343" | |
4316 | "i341" | |
4317 | "i339" | |
4318 | "i337" | |
4319 | "i336" | |
4320 | "i335" | |
4321 | "i333" | |
4322 | "i331" | |
4323 | "i330" | |
4324 | "i327" | |
4325 | "i326" | |
4326 | "i324" | |
4327 | "i322" | |
4328 | "i320" | |
4329 | "i318" | |
4330 | "i316" | |
4331 | "i314" | |
4332 | "i312" | |
4333 | "i310" | |
4334 | "i308" | |
4335 | "i305" | |
4336 | "i303" | |
4337 | "i301" | |
4338 | "i299" | |
4339 | "i297" | |
4340 | "i295" | |
4341 | "i293" | |
4342 | "i291" | |
4343 | "i289" | |
4344 | "i287" | |
4345 | "i285" | |
4346 | "i283" | |
4347 | "i281" | |
4348 | "i279" | |
4349 | "i277" | |
4350 | "i275" | |
4351 | "i273" | |
4352 | "i271" | |
4353 | "i269" | |
4354 | "i267" | |
4355 | "i265" | |
4356 | "i263" | |
4357 | "i261" | |
4358 | "i260" | |
4359 | "i257" | |
4360 | "i255" | |
4361 | "i254" | |
4362 | "i253" | |
4363 | "i252" | |
4364 | "i251" | |
4365 | "i249" | |
4366 | "i247" | |
4367 | "i245" | |
4368 | "i242" | |
4369 | "i240" | |
4370 | "i238" | |
4371 | "i236" | |
4372 | "i234" | |
4373 | "i232" | |
4374 | "i230" | |
4375 | "i228" | |
4376 | "i226" | |
4377 | "i224" | |
4378 | "i222" | |
4379 | "i220" | |
4380 | "i218" | |
4381 | "i216" | |
4382 | "i214" | |
4383 | "i212" | |
4384 | "i210" | |
4385 | "i208")) | |
4386 | #(ribcage | |
4387 | (define-structure | |
4388 | define-expansion-accessors | |
4389 | define-expansion-constructors) | |
4390 | ((top) | |
4391 | (top) | |
4392 | (top)) | |
4393 | ("i46" | |
4394 | "i45" | |
4395 | "i44"))) | |
4396 | (hygiene guile))) | |
4397 | 4) | |
4398 | #t | |
4399 | #f) | |
4400 | 'eval | |
4401 | '#(syntax-object | |
4402 | eval | |
4403 | ((top) | |
4404 | #(ribcage () () ()) | |
4405 | #(ribcage () () ()) | |
4406 | #(ribcage () () ()) | |
4407 | #(ribcage | |
4408 | #(x) | |
4409 | #((top)) | |
4410 | #("i1754")) | |
4411 | #(ribcage () () ()) | |
4412 | #(ribcage | |
4413 | #(f when-list situations) | |
4414 | #((top) (top) (top)) | |
4415 | #("i1748" "i1749" "i1750")) | |
4416 | #(ribcage () () ()) | |
4417 | #(ribcage | |
4418 | #(e when-list w) | |
4419 | #((top) (top) (top)) | |
4420 | #("i1745" "i1746" "i1747")) | |
4421 | #(ribcage | |
4422 | (lambda-var-list | |
4423 | gen-var | |
4424 | strip | |
4425 | expand-lambda-case | |
4426 | lambda*-formals | |
4427 | expand-simple-lambda | |
4428 | lambda-formals | |
4429 | ellipsis? | |
4430 | expand-void | |
4431 | eval-local-transformer | |
4432 | expand-local-syntax | |
4433 | expand-body | |
4434 | expand-macro | |
4435 | expand-application | |
4436 | expand-expr | |
4437 | expand | |
4438 | syntax-type | |
4439 | expand-when-list | |
4440 | expand-install-global | |
4441 | expand-top-sequence | |
4442 | expand-sequence | |
4443 | source-wrap | |
4444 | wrap | |
4445 | bound-id-member? | |
4446 | distinct-bound-ids? | |
4447 | valid-bound-ids? | |
4448 | bound-id=? | |
4449 | free-id=? | |
4450 | id-var-name | |
4451 | same-marks? | |
4452 | join-marks | |
4453 | join-wraps | |
4454 | smart-append | |
4455 | make-binding-wrap | |
4456 | extend-ribcage! | |
4457 | make-empty-ribcage | |
4458 | new-mark | |
4459 | anti-mark | |
4460 | the-anti-mark | |
4461 | top-marked? | |
4462 | top-wrap | |
4463 | empty-wrap | |
4464 | set-ribcage-labels! | |
4465 | set-ribcage-marks! | |
4466 | set-ribcage-symnames! | |
4467 | ribcage-labels | |
4468 | ribcage-marks | |
4469 | ribcage-symnames | |
4470 | ribcage? | |
4471 | make-ribcage | |
4472 | gen-labels | |
4473 | gen-label | |
4474 | make-rename | |
4475 | rename-marks | |
4476 | rename-new | |
4477 | rename-old | |
4478 | subst-rename? | |
4479 | wrap-subst | |
4480 | wrap-marks | |
4481 | make-wrap | |
4482 | id-sym-name&marks | |
4483 | id-sym-name | |
4484 | id? | |
4485 | nonsymbol-id? | |
4486 | global-extend | |
4487 | lookup | |
4488 | macros-only-env | |
4489 | extend-var-env | |
4490 | extend-env | |
4491 | null-env | |
4492 | binding-value | |
4493 | binding-type | |
4494 | make-binding | |
4495 | arg-check | |
4496 | source-annotation | |
4497 | no-source | |
4498 | set-syntax-object-module! | |
4499 | set-syntax-object-wrap! | |
4500 | set-syntax-object-expression! | |
4501 | syntax-object-module | |
4502 | syntax-object-wrap | |
4503 | syntax-object-expression | |
4504 | syntax-object? | |
4505 | make-syntax-object | |
4506 | build-lexical-var | |
4507 | build-letrec | |
4508 | build-named-let | |
4509 | build-let | |
4510 | build-sequence | |
4511 | build-data | |
4512 | build-primref | |
4513 | build-lambda-case | |
4514 | build-case-lambda | |
4515 | build-simple-lambda | |
4516 | build-global-definition | |
4517 | build-global-assignment | |
4518 | build-global-reference | |
4519 | analyze-variable | |
4520 | build-lexical-assignment | |
4521 | build-lexical-reference | |
4522 | build-dynlet | |
4523 | build-conditional | |
4524 | build-application | |
4525 | build-void | |
4526 | maybe-name-value! | |
4527 | decorate-source | |
4528 | get-global-definition-hook | |
4529 | put-global-definition-hook | |
4530 | gensym-hook | |
4531 | local-eval-hook | |
4532 | top-level-eval-hook | |
4533 | fx< | |
4534 | fx= | |
4535 | fx- | |
4536 | fx+ | |
4537 | set-lambda-meta! | |
4538 | lambda-meta | |
4539 | lambda? | |
4540 | make-dynlet | |
4541 | make-letrec | |
4542 | make-let | |
4543 | make-lambda-case | |
4544 | make-lambda | |
4545 | make-sequence | |
4546 | make-application | |
4547 | make-conditional | |
4548 | make-toplevel-define | |
4549 | make-toplevel-set | |
4550 | make-toplevel-ref | |
4551 | make-module-set | |
4552 | make-module-ref | |
4553 | make-lexical-set | |
4554 | make-lexical-ref | |
4555 | make-primitive-ref | |
4556 | make-const | |
4557 | make-void) | |
4558 | ((top) | |
4559 | (top) | |
4560 | (top) | |
4561 | (top) | |
4562 | (top) | |
4563 | (top) | |
4564 | (top) | |
4565 | (top) | |
4566 | (top) | |
4567 | (top) | |
4568 | (top) | |
4569 | (top) | |
4570 | (top) | |
4571 | (top) | |
4572 | (top) | |
4573 | (top) | |
4574 | (top) | |
4575 | (top) | |
4576 | (top) | |
4577 | (top) | |
4578 | (top) | |
4579 | (top) | |
4580 | (top) | |
4581 | (top) | |
4582 | (top) | |
4583 | (top) | |
4584 | (top) | |
4585 | (top) | |
4586 | (top) | |
4587 | (top) | |
4588 | (top) | |
4589 | (top) | |
4590 | (top) | |
4591 | (top) | |
4592 | (top) | |
4593 | (top) | |
4594 | (top) | |
4595 | (top) | |
4596 | (top) | |
4597 | (top) | |
4598 | (top) | |
4599 | (top) | |
4600 | (top) | |
4601 | (top) | |
4602 | (top) | |
4603 | (top) | |
4604 | (top) | |
4605 | (top) | |
4606 | (top) | |
4607 | (top) | |
4608 | (top) | |
4609 | (top) | |
4610 | (top) | |
4611 | (top) | |
4612 | (top) | |
4613 | (top) | |
4614 | (top) | |
4615 | (top) | |
4616 | (top) | |
4617 | (top) | |
4618 | (top) | |
4619 | (top) | |
4620 | (top) | |
4621 | (top) | |
4622 | (top) | |
4623 | (top) | |
4624 | (top) | |
4625 | (top) | |
4626 | (top) | |
4627 | (top) | |
4628 | (top) | |
4629 | (top) | |
4630 | (top) | |
4631 | (top) | |
4632 | (top) | |
4633 | (top) | |
4634 | (top) | |
4635 | (top) | |
4636 | (top) | |
4637 | (top) | |
4638 | (top) | |
4639 | (top) | |
4640 | (top) | |
4641 | (top) | |
4642 | (top) | |
4643 | (top) | |
4644 | (top) | |
4645 | (top) | |
4646 | (top) | |
4647 | (top) | |
4648 | (top) | |
4649 | (top) | |
4650 | (top) | |
4651 | (top) | |
4652 | (top) | |
4653 | (top) | |
4654 | (top) | |
4655 | (top) | |
4656 | (top) | |
4657 | (top) | |
4658 | (top) | |
4659 | (top) | |
4660 | (top) | |
4661 | (top) | |
4662 | (top) | |
4663 | (top) | |
4664 | (top) | |
4665 | (top) | |
4666 | (top) | |
4667 | (top) | |
4668 | (top) | |
4669 | (top) | |
4670 | (top) | |
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 | ("i467" | |
4695 | "i465" | |
4696 | "i463" | |
4697 | "i461" | |
4698 | "i459" | |
4699 | "i457" | |
4700 | "i455" | |
4701 | "i453" | |
4702 | "i451" | |
4703 | "i449" | |
4704 | "i447" | |
4705 | "i445" | |
4706 | "i443" | |
4707 | "i441" | |
4708 | "i439" | |
4709 | "i437" | |
4710 | "i435" | |
4711 | "i433" | |
4712 | "i431" | |
4713 | "i429" | |
4714 | "i427" | |
4715 | "i425" | |
4716 | "i423" | |
4717 | "i421" | |
4718 | "i419" | |
4719 | "i417" | |
4720 | "i415" | |
4721 | "i413" | |
4722 | "i411" | |
4723 | "i409" | |
4724 | "i407" | |
4725 | "i405" | |
4726 | "i403" | |
4727 | "i401" | |
4728 | "i399" | |
4729 | "i398" | |
4730 | "i396" | |
4731 | "i393" | |
4732 | "i392" | |
4733 | "i391" | |
4734 | "i389" | |
4735 | "i388" | |
4736 | "i386" | |
4737 | "i384" | |
4738 | "i382" | |
4739 | "i380" | |
4740 | "i378" | |
4741 | "i376" | |
4742 | "i374" | |
4743 | "i372" | |
4744 | "i369" | |
4745 | "i367" | |
4746 | "i366" | |
4747 | "i364" | |
4748 | "i362" | |
4749 | "i360" | |
4750 | "i358" | |
4751 | "i357" | |
4752 | "i356" | |
4753 | "i355" | |
4754 | "i353" | |
4755 | "i352" | |
4756 | "i349" | |
4757 | "i347" | |
4758 | "i345" | |
4759 | "i343" | |
4760 | "i341" | |
4761 | "i339" | |
4762 | "i337" | |
4763 | "i336" | |
4764 | "i335" | |
4765 | "i333" | |
4766 | "i331" | |
4767 | "i330" | |
4768 | "i327" | |
4769 | "i326" | |
4770 | "i324" | |
4771 | "i322" | |
4772 | "i320" | |
4773 | "i318" | |
4774 | "i316" | |
4775 | "i314" | |
4776 | "i312" | |
4777 | "i310" | |
4778 | "i308" | |
4779 | "i305" | |
4780 | "i303" | |
4781 | "i301" | |
4782 | "i299" | |
4783 | "i297" | |
4784 | "i295" | |
4785 | "i293" | |
4786 | "i291" | |
4787 | "i289" | |
4788 | "i287" | |
4789 | "i285" | |
4790 | "i283" | |
4791 | "i281" | |
4792 | "i279" | |
4793 | "i277" | |
4794 | "i275" | |
4795 | "i273" | |
4796 | "i271" | |
4797 | "i269" | |
4798 | "i267" | |
4799 | "i265" | |
4800 | "i263" | |
4801 | "i261" | |
4802 | "i260" | |
4803 | "i257" | |
4804 | "i255" | |
4805 | "i254" | |
4806 | "i253" | |
4807 | "i252" | |
4808 | "i251" | |
4809 | "i249" | |
4810 | "i247" | |
4811 | "i245" | |
4812 | "i242" | |
4813 | "i240" | |
4814 | "i238" | |
4815 | "i236" | |
4816 | "i234" | |
4817 | "i232" | |
4818 | "i230" | |
4819 | "i228" | |
4820 | "i226" | |
4821 | "i224" | |
4822 | "i222" | |
4823 | "i220" | |
4824 | "i218" | |
4825 | "i216" | |
4826 | "i214" | |
4827 | "i212" | |
4828 | "i210" | |
4829 | "i208")) | |
4830 | #(ribcage | |
4831 | (define-structure | |
4832 | define-expansion-accessors | |
4833 | define-expansion-constructors) | |
4834 | ((top) (top) (top)) | |
4835 | ("i46" "i45" "i44"))) | |
4836 | (hygiene guile)))) | |
4837 | (eq? (#{id-var-name 4332}# | |
4838 | #{x 20340}# | |
4839 | '(())) | |
4840 | (#{id-var-name 4332}# | |
4841 | '#(syntax-object | |
4842 | eval | |
4843 | ((top) | |
4844 | #(ribcage () () ()) | |
4845 | #(ribcage () () ()) | |
4846 | #(ribcage () () ()) | |
4847 | #(ribcage | |
4848 | #(x) | |
4849 | #((top)) | |
4850 | #("i1754")) | |
4851 | #(ribcage () () ()) | |
4852 | #(ribcage | |
4853 | #(f when-list situations) | |
4854 | #((top) (top) (top)) | |
4855 | #("i1748" "i1749" "i1750")) | |
4856 | #(ribcage () () ()) | |
4857 | #(ribcage | |
4858 | #(e when-list w) | |
4859 | #((top) (top) (top)) | |
4860 | #("i1745" "i1746" "i1747")) | |
4861 | #(ribcage | |
4862 | (lambda-var-list | |
4863 | gen-var | |
4864 | strip | |
4865 | expand-lambda-case | |
4866 | lambda*-formals | |
4867 | expand-simple-lambda | |
4868 | lambda-formals | |
4869 | ellipsis? | |
4870 | expand-void | |
4871 | eval-local-transformer | |
4872 | expand-local-syntax | |
4873 | expand-body | |
4874 | expand-macro | |
4875 | expand-application | |
4876 | expand-expr | |
4877 | expand | |
4878 | syntax-type | |
4879 | expand-when-list | |
4880 | expand-install-global | |
4881 | expand-top-sequence | |
4882 | expand-sequence | |
4883 | source-wrap | |
4884 | wrap | |
4885 | bound-id-member? | |
4886 | distinct-bound-ids? | |
4887 | valid-bound-ids? | |
4888 | bound-id=? | |
4889 | free-id=? | |
4890 | id-var-name | |
4891 | same-marks? | |
4892 | join-marks | |
4893 | join-wraps | |
4894 | smart-append | |
4895 | make-binding-wrap | |
4896 | extend-ribcage! | |
4897 | make-empty-ribcage | |
4898 | new-mark | |
4899 | anti-mark | |
4900 | the-anti-mark | |
4901 | top-marked? | |
4902 | top-wrap | |
4903 | empty-wrap | |
4904 | set-ribcage-labels! | |
4905 | set-ribcage-marks! | |
4906 | set-ribcage-symnames! | |
4907 | ribcage-labels | |
4908 | ribcage-marks | |
4909 | ribcage-symnames | |
4910 | ribcage? | |
4911 | make-ribcage | |
4912 | gen-labels | |
4913 | gen-label | |
4914 | make-rename | |
4915 | rename-marks | |
4916 | rename-new | |
4917 | rename-old | |
4918 | subst-rename? | |
4919 | wrap-subst | |
4920 | wrap-marks | |
4921 | make-wrap | |
4922 | id-sym-name&marks | |
4923 | id-sym-name | |
4924 | id? | |
4925 | nonsymbol-id? | |
4926 | global-extend | |
4927 | lookup | |
4928 | macros-only-env | |
4929 | extend-var-env | |
4930 | extend-env | |
4931 | null-env | |
4932 | binding-value | |
4933 | binding-type | |
4934 | make-binding | |
4935 | arg-check | |
4936 | source-annotation | |
4937 | no-source | |
4938 | set-syntax-object-module! | |
4939 | set-syntax-object-wrap! | |
4940 | set-syntax-object-expression! | |
4941 | syntax-object-module | |
4942 | syntax-object-wrap | |
4943 | syntax-object-expression | |
4944 | syntax-object? | |
4945 | make-syntax-object | |
4946 | build-lexical-var | |
4947 | build-letrec | |
4948 | build-named-let | |
4949 | build-let | |
4950 | build-sequence | |
4951 | build-data | |
4952 | build-primref | |
4953 | build-lambda-case | |
4954 | build-case-lambda | |
4955 | build-simple-lambda | |
4956 | build-global-definition | |
4957 | build-global-assignment | |
4958 | build-global-reference | |
4959 | analyze-variable | |
4960 | build-lexical-assignment | |
4961 | build-lexical-reference | |
4962 | build-dynlet | |
4963 | build-conditional | |
4964 | build-application | |
4965 | build-void | |
4966 | maybe-name-value! | |
4967 | decorate-source | |
4968 | get-global-definition-hook | |
4969 | put-global-definition-hook | |
4970 | gensym-hook | |
4971 | local-eval-hook | |
4972 | top-level-eval-hook | |
4973 | fx< | |
4974 | fx= | |
4975 | fx- | |
4976 | fx+ | |
4977 | set-lambda-meta! | |
4978 | lambda-meta | |
4979 | lambda? | |
4980 | make-dynlet | |
4981 | make-letrec | |
4982 | make-let | |
4983 | make-lambda-case | |
4984 | make-lambda | |
4985 | make-sequence | |
4986 | make-application | |
4987 | make-conditional | |
4988 | make-toplevel-define | |
4989 | make-toplevel-set | |
4990 | make-toplevel-ref | |
4991 | make-module-set | |
4992 | make-module-ref | |
4993 | make-lexical-set | |
4994 | make-lexical-ref | |
4995 | make-primitive-ref | |
4996 | make-const | |
4997 | make-void) | |
4998 | ((top) | |
4999 | (top) | |
5000 | (top) | |
5001 | (top) | |
5002 | (top) | |
5003 | (top) | |
5004 | (top) | |
5005 | (top) | |
5006 | (top) | |
5007 | (top) | |
5008 | (top) | |
5009 | (top) | |
5010 | (top) | |
5011 | (top) | |
5012 | (top) | |
5013 | (top) | |
5014 | (top) | |
5015 | (top) | |
5016 | (top) | |
5017 | (top) | |
5018 | (top) | |
5019 | (top) | |
5020 | (top) | |
5021 | (top) | |
5022 | (top) | |
5023 | (top) | |
5024 | (top) | |
5025 | (top) | |
5026 | (top) | |
5027 | (top) | |
5028 | (top) | |
5029 | (top) | |
5030 | (top) | |
5031 | (top) | |
5032 | (top) | |
5033 | (top) | |
5034 | (top) | |
5035 | (top) | |
5036 | (top) | |
5037 | (top) | |
5038 | (top) | |
5039 | (top) | |
5040 | (top) | |
5041 | (top) | |
5042 | (top) | |
5043 | (top) | |
5044 | (top) | |
5045 | (top) | |
5046 | (top) | |
5047 | (top) | |
5048 | (top) | |
5049 | (top) | |
5050 | (top) | |
5051 | (top) | |
5052 | (top) | |
5053 | (top) | |
5054 | (top) | |
5055 | (top) | |
5056 | (top) | |
5057 | (top) | |
5058 | (top) | |
5059 | (top) | |
5060 | (top) | |
5061 | (top) | |
5062 | (top) | |
5063 | (top) | |
5064 | (top) | |
5065 | (top) | |
5066 | (top) | |
5067 | (top) | |
5068 | (top) | |
5069 | (top) | |
5070 | (top) | |
5071 | (top) | |
5072 | (top) | |
5073 | (top) | |
5074 | (top) | |
5075 | (top) | |
5076 | (top) | |
5077 | (top) | |
5078 | (top) | |
5079 | (top) | |
5080 | (top) | |
5081 | (top) | |
5082 | (top) | |
5083 | (top) | |
5084 | (top) | |
5085 | (top) | |
5086 | (top) | |
5087 | (top) | |
5088 | (top) | |
5089 | (top) | |
5090 | (top) | |
5091 | (top) | |
5092 | (top) | |
5093 | (top) | |
5094 | (top) | |
5095 | (top) | |
5096 | (top) | |
5097 | (top) | |
5098 | (top) | |
5099 | (top) | |
5100 | (top) | |
5101 | (top) | |
5102 | (top) | |
5103 | (top) | |
5104 | (top) | |
5105 | (top) | |
5106 | (top) | |
5107 | (top) | |
5108 | (top) | |
5109 | (top) | |
5110 | (top) | |
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 | ("i467" | |
5135 | "i465" | |
5136 | "i463" | |
5137 | "i461" | |
5138 | "i459" | |
5139 | "i457" | |
5140 | "i455" | |
5141 | "i453" | |
5142 | "i451" | |
5143 | "i449" | |
5144 | "i447" | |
5145 | "i445" | |
5146 | "i443" | |
5147 | "i441" | |
5148 | "i439" | |
5149 | "i437" | |
5150 | "i435" | |
5151 | "i433" | |
5152 | "i431" | |
5153 | "i429" | |
5154 | "i427" | |
5155 | "i425" | |
5156 | "i423" | |
5157 | "i421" | |
5158 | "i419" | |
5159 | "i417" | |
5160 | "i415" | |
5161 | "i413" | |
5162 | "i411" | |
5163 | "i409" | |
5164 | "i407" | |
5165 | "i405" | |
5166 | "i403" | |
5167 | "i401" | |
5168 | "i399" | |
5169 | "i398" | |
5170 | "i396" | |
5171 | "i393" | |
5172 | "i392" | |
5173 | "i391" | |
5174 | "i389" | |
5175 | "i388" | |
5176 | "i386" | |
5177 | "i384" | |
5178 | "i382" | |
5179 | "i380" | |
5180 | "i378" | |
5181 | "i376" | |
5182 | "i374" | |
5183 | "i372" | |
5184 | "i369" | |
5185 | "i367" | |
5186 | "i366" | |
5187 | "i364" | |
5188 | "i362" | |
5189 | "i360" | |
5190 | "i358" | |
5191 | "i357" | |
5192 | "i356" | |
5193 | "i355" | |
5194 | "i353" | |
5195 | "i352" | |
5196 | "i349" | |
5197 | "i347" | |
5198 | "i345" | |
5199 | "i343" | |
5200 | "i341" | |
5201 | "i339" | |
5202 | "i337" | |
5203 | "i336" | |
5204 | "i335" | |
5205 | "i333" | |
5206 | "i331" | |
5207 | "i330" | |
5208 | "i327" | |
5209 | "i326" | |
5210 | "i324" | |
5211 | "i322" | |
5212 | "i320" | |
5213 | "i318" | |
5214 | "i316" | |
5215 | "i314" | |
5216 | "i312" | |
5217 | "i310" | |
5218 | "i308" | |
5219 | "i305" | |
5220 | "i303" | |
5221 | "i301" | |
5222 | "i299" | |
5223 | "i297" | |
5224 | "i295" | |
5225 | "i293" | |
5226 | "i291" | |
5227 | "i289" | |
5228 | "i287" | |
5229 | "i285" | |
5230 | "i283" | |
5231 | "i281" | |
5232 | "i279" | |
5233 | "i277" | |
5234 | "i275" | |
5235 | "i273" | |
5236 | "i271" | |
5237 | "i269" | |
5238 | "i267" | |
5239 | "i265" | |
5240 | "i263" | |
5241 | "i261" | |
5242 | "i260" | |
5243 | "i257" | |
5244 | "i255" | |
5245 | "i254" | |
5246 | "i253" | |
5247 | "i252" | |
5248 | "i251" | |
5249 | "i249" | |
5250 | "i247" | |
5251 | "i245" | |
5252 | "i242" | |
5253 | "i240" | |
5254 | "i238" | |
5255 | "i236" | |
5256 | "i234" | |
5257 | "i232" | |
5258 | "i230" | |
5259 | "i228" | |
5260 | "i226" | |
5261 | "i224" | |
5262 | "i222" | |
5263 | "i220" | |
5264 | "i218" | |
5265 | "i216" | |
5266 | "i214" | |
5267 | "i212" | |
5268 | "i210" | |
5269 | "i208")) | |
5270 | #(ribcage | |
5271 | (define-structure | |
5272 | define-expansion-accessors | |
5273 | define-expansion-constructors) | |
5274 | ((top) (top) (top)) | |
5275 | ("i46" "i45" "i44"))) | |
5276 | (hygiene guile)) | |
5277 | '(()))) | |
5278 | #f) | |
5279 | 'eval | |
5280 | (if (eq? (syntax->datum #{x 20340}#) 'expand) | |
5281 | 'expand | |
5282 | (syntax-violation | |
5283 | 'eval-when | |
5284 | "invalid situation" | |
5285 | #{e 20332}# | |
5286 | (#{wrap 4338}# | |
5287 | #{x 20340}# | |
5288 | #{w 20334}# | |
5289 | #f))))))) | |
5290 | #{situations 20339}#)))))) | |
5291 | (#{f 20335}# #{when-list 20333}# '())))) | |
5292 | (#{syntax-type 4344}# | |
5293 | (lambda (#{e 20502}# | |
5294 | #{r 20503}# | |
5295 | #{w 20504}# | |
5296 | #{s 20505}# | |
5297 | #{rib 20506}# | |
5298 | #{mod 20507}# | |
5299 | #{for-car? 20508}#) | |
5300 | (if (symbol? #{e 20502}#) | |
5301 | (let ((#{n 20509}# | |
5302 | (#{id-var-name 4332}# #{e 20502}# #{w 20504}#))) | |
5303 | (let ((#{b 20510}# | |
5304 | (let ((#{t 21085}# (assq #{n 20509}# #{r 20503}#))) | |
5305 | (if #{t 21085}# | |
5306 | (cdr #{t 21085}#) | |
5307 | (if (symbol? #{n 20509}#) | |
5308 | (let ((#{t 21090}# | |
5309 | (begin | |
5310 | (if (if (not #{mod 20507}#) | |
5311 | (current-module) | |
5312 | #f) | |
5313 | (warn "module system is booted, we should have a module" | |
5314 | #{n 20509}#)) | |
5315 | (let ((#{v 21127}# | |
5316 | (module-variable | |
5317 | (if #{mod 20507}# | |
5318 | (resolve-module | |
5319 | (cdr #{mod 20507}#)) | |
5320 | (current-module)) | |
5321 | #{n 20509}#))) | |
5322 | (if #{v 21127}# | |
5323 | (if (variable-bound? #{v 21127}#) | |
5324 | (let ((#{val 21136}# | |
5325 | (variable-ref #{v 21127}#))) | |
5326 | (if (macro? #{val 21136}#) | |
5327 | (if (macro-type #{val 21136}#) | |
5328 | (cons (macro-type #{val 21136}#) | |
5329 | (macro-binding | |
5330 | #{val 21136}#)) | |
5331 | #f) | |
5332 | #f)) | |
5333 | #f) | |
5334 | #f))))) | |
5335 | (if #{t 21090}# #{t 21090}# '(global))) | |
5336 | '(displaced-lexical)))))) | |
5337 | (let ((#{type 20511}# (car #{b 20510}#))) | |
5338 | (if (let ((#{t 20545}# #{type 20511}#)) | |
5339 | (eqv? #{t 20545}# 'lexical)) | |
5340 | (values | |
5341 | #{type 20511}# | |
5342 | (cdr #{b 20510}#) | |
5343 | #{e 20502}# | |
5344 | #{w 20504}# | |
5345 | #{s 20505}# | |
5346 | #{mod 20507}#) | |
5347 | (if (let ((#{t 20702}# #{type 20511}#)) | |
5348 | (eqv? #{t 20702}# 'global)) | |
5349 | (values | |
5350 | #{type 20511}# | |
5351 | #{n 20509}# | |
5352 | #{e 20502}# | |
5353 | #{w 20504}# | |
5354 | #{s 20505}# | |
5355 | #{mod 20507}#) | |
5356 | (if (let ((#{t 20828}# #{type 20511}#)) | |
5357 | (eqv? #{t 20828}# 'macro)) | |
5358 | (if #{for-car? 20508}# | |
5359 | (values | |
5360 | #{type 20511}# | |
5361 | (cdr #{b 20510}#) | |
5362 | #{e 20502}# | |
5363 | #{w 20504}# | |
5364 | #{s 20505}# | |
5365 | #{mod 20507}#) | |
5366 | (#{syntax-type 4344}# | |
5367 | (#{expand-macro 4348}# | |
5368 | (cdr #{b 20510}#) | |
5369 | #{e 20502}# | |
5370 | #{r 20503}# | |
5371 | #{w 20504}# | |
5372 | #{s 20505}# | |
5373 | #{rib 20506}# | |
5374 | #{mod 20507}#) | |
5375 | #{r 20503}# | |
5376 | '(()) | |
5377 | #{s 20505}# | |
5378 | #{rib 20506}# | |
5379 | #{mod 20507}# | |
5380 | #f)) | |
5381 | (values | |
5382 | #{type 20511}# | |
5383 | (cdr #{b 20510}#) | |
5384 | #{e 20502}# | |
5385 | #{w 20504}# | |
5386 | #{s 20505}# | |
5387 | #{mod 20507}#))))))) | |
5388 | (if (pair? #{e 20502}#) | |
5389 | (let ((#{first 21147}# (car #{e 20502}#))) | |
5390 | (call-with-values | |
5391 | (lambda () | |
5392 | (#{syntax-type 4344}# | |
5393 | #{first 21147}# | |
5394 | #{r 20503}# | |
5395 | #{w 20504}# | |
5396 | #{s 20505}# | |
5397 | #{rib 20506}# | |
5398 | #{mod 20507}# | |
5399 | #t)) | |
5400 | (lambda (#{ftype 21149}# | |
5401 | #{fval 21150}# | |
5402 | #{fe 21151}# | |
5403 | #{fw 21152}# | |
5404 | #{fs 21153}# | |
5405 | #{fmod 21154}#) | |
5406 | (if (eqv? #{ftype 21149}# 'lexical) | |
5407 | (values | |
5408 | 'lexical-call | |
5409 | #{fval 21150}# | |
5410 | #{e 20502}# | |
5411 | #{w 20504}# | |
5412 | #{s 20505}# | |
5413 | #{mod 20507}#) | |
5414 | (if (eqv? #{ftype 21149}# 'global) | |
5415 | (values | |
5416 | 'global-call | |
5417 | (vector | |
5418 | 'syntax-object | |
5419 | #{fval 21150}# | |
5420 | #{w 20504}# | |
5421 | #{fmod 21154}#) | |
5422 | #{e 20502}# | |
5423 | #{w 20504}# | |
5424 | #{s 20505}# | |
5425 | #{mod 20507}#) | |
5426 | (if (eqv? #{ftype 21149}# 'macro) | |
5427 | (#{syntax-type 4344}# | |
5428 | (#{expand-macro 4348}# | |
5429 | #{fval 21150}# | |
5430 | #{e 20502}# | |
5431 | #{r 20503}# | |
5432 | #{w 20504}# | |
5433 | #{s 20505}# | |
5434 | #{rib 20506}# | |
5435 | #{mod 20507}#) | |
5436 | #{r 20503}# | |
5437 | '(()) | |
5438 | #{s 20505}# | |
5439 | #{rib 20506}# | |
5440 | #{mod 20507}# | |
5441 | #{for-car? 20508}#) | |
5442 | (if (eqv? #{ftype 21149}# 'module-ref) | |
5443 | (call-with-values | |
5444 | (lambda () | |
5445 | (#{fval 21150}# | |
5446 | #{e 20502}# | |
5447 | #{r 20503}# | |
5448 | #{w 20504}#)) | |
5449 | (lambda (#{e 21175}# | |
5450 | #{r 21176}# | |
5451 | #{w 21177}# | |
5452 | #{s 21178}# | |
5453 | #{mod 21179}#) | |
5454 | (#{syntax-type 4344}# | |
5455 | #{e 21175}# | |
5456 | #{r 21176}# | |
5457 | #{w 21177}# | |
5458 | #{s 21178}# | |
5459 | #{rib 20506}# | |
5460 | #{mod 21179}# | |
5461 | #{for-car? 20508}#))) | |
5462 | (if (eqv? #{ftype 21149}# 'core) | |
5463 | (values | |
5464 | 'core-form | |
5465 | #{fval 21150}# | |
5466 | #{e 20502}# | |
5467 | #{w 20504}# | |
5468 | #{s 20505}# | |
5469 | #{mod 20507}#) | |
5470 | (if (eqv? #{ftype 21149}# 'local-syntax) | |
5471 | (values | |
5472 | 'local-syntax-form | |
5473 | #{fval 21150}# | |
5474 | #{e 20502}# | |
5475 | #{w 20504}# | |
5476 | #{s 20505}# | |
5477 | #{mod 20507}#) | |
5478 | (if (eqv? #{ftype 21149}# 'begin) | |
5479 | (values | |
5480 | 'begin-form | |
5481 | #f | |
5482 | #{e 20502}# | |
5483 | #{w 20504}# | |
5484 | #{s 20505}# | |
5485 | #{mod 20507}#) | |
5486 | (if (eqv? #{ftype 21149}# 'eval-when) | |
5487 | (values | |
5488 | 'eval-when-form | |
5489 | #f | |
5490 | #{e 20502}# | |
5491 | #{w 20504}# | |
5492 | #{s 20505}# | |
5493 | #{mod 20507}#) | |
5494 | (if (eqv? #{ftype 21149}# 'define) | |
5495 | (let ((#{tmp 21196}# | |
5496 | ($sc-dispatch | |
5497 | #{e 20502}# | |
5498 | '(_ any any)))) | |
5499 | (if (if #{tmp 21196}# | |
5500 | (@apply | |
5501 | (lambda (#{name 21200}# | |
5502 | #{val 21201}#) | |
5503 | (if (symbol? #{name 21200}#) | |
5504 | #t | |
5505 | (if (if (vector? | |
5506 | #{name 21200}#) | |
5507 | (if (= (vector-length | |
5508 | #{name 21200}#) | |
5509 | 4) | |
5510 | (eq? (vector-ref | |
5511 | #{name 21200}# | |
5512 | 0) | |
5513 | 'syntax-object) | |
5514 | #f) | |
5515 | #f) | |
5516 | (symbol? | |
5517 | (vector-ref | |
5518 | #{name 21200}# | |
5519 | 1)) | |
5520 | #f))) | |
5521 | #{tmp 21196}#) | |
5522 | #f) | |
5523 | (@apply | |
5524 | (lambda (#{name 21228}# #{val 21229}#) | |
5525 | (values | |
5526 | 'define-form | |
5527 | #{name 21228}# | |
5528 | #{val 21229}# | |
5529 | #{w 20504}# | |
5530 | #{s 20505}# | |
5531 | #{mod 20507}#)) | |
5532 | #{tmp 21196}#) | |
5533 | (let ((#{tmp 21230}# | |
5534 | ($sc-dispatch | |
5535 | #{e 20502}# | |
5536 | '(_ (any . any) | |
5537 | any | |
5538 | . | |
5539 | each-any)))) | |
5540 | (if (if #{tmp 21230}# | |
5541 | (@apply | |
5542 | (lambda (#{name 21234}# | |
5543 | #{args 21235}# | |
5544 | #{e1 21236}# | |
5545 | #{e2 21237}#) | |
5546 | (if (if (symbol? | |
5547 | #{name 21234}#) | |
5548 | #t | |
5549 | (if (if (vector? | |
5550 | #{name 21234}#) | |
5551 | (if (= (vector-length | |
5552 | #{name 21234}#) | |
5553 | 4) | |
5554 | (eq? (vector-ref | |
5555 | #{name 21234}# | |
5556 | 0) | |
5557 | 'syntax-object) | |
5558 | #f) | |
5559 | #f) | |
5560 | (symbol? | |
5561 | (vector-ref | |
5562 | #{name 21234}# | |
5563 | 1)) | |
5564 | #f)) | |
5565 | (#{valid-bound-ids? 4335}# | |
5566 | (letrec* | |
5567 | ((#{lvl 21386}# | |
5568 | (lambda (#{vars 21388}# | |
5569 | #{ls 21389}# | |
5570 | #{w 21390}#) | |
5571 | (if (pair? #{vars 21388}#) | |
5572 | (#{lvl 21386}# | |
5573 | (cdr #{vars 21388}#) | |
5574 | (cons (#{wrap 4338}# | |
5575 | (car #{vars 21388}#) | |
5576 | #{w 21390}# | |
5577 | #f) | |
5578 | #{ls 21389}#) | |
5579 | #{w 21390}#) | |
5580 | (if (if (symbol? | |
5581 | #{vars 21388}#) | |
5582 | #t | |
5583 | (if (if (vector? | |
5584 | #{vars 21388}#) | |
5585 | (if (= (vector-length | |
5586 | #{vars 21388}#) | |
5587 | 4) | |
5588 | (eq? (vector-ref | |
5589 | #{vars 21388}# | |
5590 | 0) | |
5591 | 'syntax-object) | |
5592 | #f) | |
5593 | #f) | |
5594 | (symbol? | |
5595 | (vector-ref | |
5596 | #{vars 21388}# | |
5597 | 1)) | |
5598 | #f)) | |
5599 | (cons (#{wrap 4338}# | |
5600 | #{vars 21388}# | |
5601 | #{w 21390}# | |
5602 | #f) | |
5603 | #{ls 21389}#) | |
5604 | (if (null? #{vars 21388}#) | |
5605 | #{ls 21389}# | |
5606 | (if (if (vector? | |
5607 | #{vars 21388}#) | |
5608 | (if (= (vector-length | |
5609 | #{vars 21388}#) | |
5610 | 4) | |
5611 | (eq? (vector-ref | |
5612 | #{vars 21388}# | |
5613 | 0) | |
5614 | 'syntax-object) | |
5615 | #f) | |
5616 | #f) | |
5617 | (#{lvl 21386}# | |
5618 | (vector-ref | |
5619 | #{vars 21388}# | |
5620 | 1) | |
5621 | #{ls 21389}# | |
5622 | (#{join-wraps 4329}# | |
5623 | #{w 21390}# | |
5624 | (vector-ref | |
5625 | #{vars 21388}# | |
5626 | 2))) | |
5627 | (cons #{vars 21388}# | |
5628 | #{ls 21389}#)))))))) | |
5629 | (#{lvl 21386}# | |
5630 | #{args 21235}# | |
5631 | '() | |
5632 | '(())))) | |
5633 | #f)) | |
5634 | #{tmp 21230}#) | |
5635 | #f) | |
5636 | (@apply | |
5637 | (lambda (#{name 21434}# | |
5638 | #{args 21435}# | |
5639 | #{e1 21436}# | |
5640 | #{e2 21437}#) | |
5641 | (values | |
5642 | 'define-form | |
5643 | (#{wrap 4338}# | |
5644 | #{name 21434}# | |
5645 | #{w 20504}# | |
5646 | #{mod 20507}#) | |
5647 | (let ((#{e 21443}# | |
5648 | (cons '#(syntax-object | |
5649 | lambda | |
5650 | ((top) | |
5651 | #(ribcage | |
5652 | #(name | |
5653 | args | |
5654 | e1 | |
5655 | e2) | |
5656 | #((top) | |
5657 | (top) | |
5658 | (top) | |
5659 | (top)) | |
5660 | #("i1855" | |
5661 | "i1856" | |
5662 | "i1857" | |
5663 | "i1858")) | |
5664 | #(ribcage | |
5665 | () | |
5666 | () | |
5667 | ()) | |
5668 | #(ribcage | |
5669 | () | |
5670 | () | |
5671 | ()) | |
5672 | #(ribcage | |
5673 | #(ftype | |
5674 | fval | |
5675 | fe | |
5676 | fw | |
5677 | fs | |
5678 | fmod) | |
5679 | #((top) | |
5680 | (top) | |
5681 | (top) | |
5682 | (top) | |
5683 | (top) | |
5684 | (top)) | |
5685 | #("i1808" | |
5686 | "i1809" | |
5687 | "i1810" | |
5688 | "i1811" | |
5689 | "i1812" | |
5690 | "i1813")) | |
5691 | #(ribcage | |
5692 | () | |
5693 | () | |
5694 | ()) | |
5695 | #(ribcage | |
5696 | #(first) | |
5697 | #((top)) | |
5698 | #("i1800")) | |
5699 | #(ribcage | |
5700 | () | |
5701 | () | |
5702 | ()) | |
5703 | #(ribcage | |
5704 | () | |
5705 | () | |
5706 | ()) | |
5707 | #(ribcage | |
5708 | () | |
5709 | () | |
5710 | ()) | |
5711 | #(ribcage | |
5712 | #(e | |
5713 | r | |
5714 | w | |
5715 | s | |
5716 | rib | |
5717 | mod | |
5718 | for-car?) | |
5719 | #((top) | |
5720 | (top) | |
5721 | (top) | |
5722 | (top) | |
5723 | (top) | |
5724 | (top) | |
5725 | (top)) | |
5726 | #("i1772" | |
5727 | "i1773" | |
5728 | "i1774" | |
5729 | "i1775" | |
5730 | "i1776" | |
5731 | "i1777" | |
5732 | "i1778")) | |
5733 | #(ribcage | |
5734 | (lambda-var-list | |
5735 | gen-var | |
5736 | strip | |
5737 | expand-lambda-case | |
5738 | lambda*-formals | |
5739 | expand-simple-lambda | |
5740 | lambda-formals | |
5741 | ellipsis? | |
5742 | expand-void | |
5743 | eval-local-transformer | |
5744 | expand-local-syntax | |
5745 | expand-body | |
5746 | expand-macro | |
5747 | expand-application | |
5748 | expand-expr | |
5749 | expand | |
5750 | syntax-type | |
5751 | expand-when-list | |
5752 | expand-install-global | |
5753 | expand-top-sequence | |
5754 | expand-sequence | |
5755 | source-wrap | |
5756 | wrap | |
5757 | bound-id-member? | |
5758 | distinct-bound-ids? | |
5759 | valid-bound-ids? | |
5760 | bound-id=? | |
5761 | free-id=? | |
5762 | id-var-name | |
5763 | same-marks? | |
5764 | join-marks | |
5765 | join-wraps | |
5766 | smart-append | |
5767 | make-binding-wrap | |
5768 | extend-ribcage! | |
5769 | make-empty-ribcage | |
5770 | new-mark | |
5771 | anti-mark | |
5772 | the-anti-mark | |
5773 | top-marked? | |
5774 | top-wrap | |
5775 | empty-wrap | |
5776 | set-ribcage-labels! | |
5777 | set-ribcage-marks! | |
5778 | set-ribcage-symnames! | |
5779 | ribcage-labels | |
5780 | ribcage-marks | |
5781 | ribcage-symnames | |
5782 | ribcage? | |
5783 | make-ribcage | |
5784 | gen-labels | |
5785 | gen-label | |
5786 | make-rename | |
5787 | rename-marks | |
5788 | rename-new | |
5789 | rename-old | |
5790 | subst-rename? | |
5791 | wrap-subst | |
5792 | wrap-marks | |
5793 | make-wrap | |
5794 | id-sym-name&marks | |
5795 | id-sym-name | |
5796 | id? | |
5797 | nonsymbol-id? | |
5798 | global-extend | |
5799 | lookup | |
5800 | macros-only-env | |
5801 | extend-var-env | |
5802 | extend-env | |
5803 | null-env | |
5804 | binding-value | |
5805 | binding-type | |
5806 | make-binding | |
5807 | arg-check | |
5808 | source-annotation | |
5809 | no-source | |
5810 | set-syntax-object-module! | |
5811 | set-syntax-object-wrap! | |
5812 | set-syntax-object-expression! | |
5813 | syntax-object-module | |
5814 | syntax-object-wrap | |
5815 | syntax-object-expression | |
5816 | syntax-object? | |
5817 | make-syntax-object | |
5818 | build-lexical-var | |
5819 | build-letrec | |
5820 | build-named-let | |
5821 | build-let | |
5822 | build-sequence | |
5823 | build-data | |
5824 | build-primref | |
5825 | build-lambda-case | |
5826 | build-case-lambda | |
5827 | build-simple-lambda | |
5828 | build-global-definition | |
5829 | build-global-assignment | |
5830 | build-global-reference | |
5831 | analyze-variable | |
5832 | build-lexical-assignment | |
5833 | build-lexical-reference | |
5834 | build-dynlet | |
5835 | build-conditional | |
5836 | build-application | |
5837 | build-void | |
5838 | maybe-name-value! | |
5839 | decorate-source | |
5840 | get-global-definition-hook | |
5841 | put-global-definition-hook | |
5842 | gensym-hook | |
5843 | local-eval-hook | |
5844 | top-level-eval-hook | |
5845 | fx< | |
5846 | fx= | |
5847 | fx- | |
5848 | fx+ | |
5849 | set-lambda-meta! | |
5850 | lambda-meta | |
5851 | lambda? | |
5852 | make-dynlet | |
5853 | make-letrec | |
5854 | make-let | |
5855 | make-lambda-case | |
5856 | make-lambda | |
5857 | make-sequence | |
5858 | make-application | |
5859 | make-conditional | |
5860 | make-toplevel-define | |
5861 | make-toplevel-set | |
5862 | make-toplevel-ref | |
5863 | make-module-set | |
5864 | make-module-ref | |
5865 | make-lexical-set | |
5866 | make-lexical-ref | |
5867 | make-primitive-ref | |
5868 | make-const | |
5869 | make-void) | |
5870 | ((top) | |
5871 | (top) | |
5872 | (top) | |
5873 | (top) | |
5874 | (top) | |
5875 | (top) | |
5876 | (top) | |
5877 | (top) | |
5878 | (top) | |
5879 | (top) | |
5880 | (top) | |
5881 | (top) | |
5882 | (top) | |
5883 | (top) | |
5884 | (top) | |
5885 | (top) | |
5886 | (top) | |
5887 | (top) | |
5888 | (top) | |
5889 | (top) | |
5890 | (top) | |
5891 | (top) | |
5892 | (top) | |
5893 | (top) | |
5894 | (top) | |
5895 | (top) | |
5896 | (top) | |
5897 | (top) | |
5898 | (top) | |
5899 | (top) | |
5900 | (top) | |
5901 | (top) | |
5902 | (top) | |
5903 | (top) | |
5904 | (top) | |
5905 | (top) | |
5906 | (top) | |
5907 | (top) | |
5908 | (top) | |
5909 | (top) | |
5910 | (top) | |
5911 | (top) | |
5912 | (top) | |
5913 | (top) | |
5914 | (top) | |
5915 | (top) | |
5916 | (top) | |
5917 | (top) | |
5918 | (top) | |
5919 | (top) | |
5920 | (top) | |
5921 | (top) | |
5922 | (top) | |
5923 | (top) | |
5924 | (top) | |
5925 | (top) | |
5926 | (top) | |
5927 | (top) | |
5928 | (top) | |
5929 | (top) | |
5930 | (top) | |
5931 | (top) | |
5932 | (top) | |
5933 | (top) | |
5934 | (top) | |
5935 | (top) | |
5936 | (top) | |
5937 | (top) | |
5938 | (top) | |
5939 | (top) | |
5940 | (top) | |
5941 | (top) | |
5942 | (top) | |
5943 | (top) | |
5944 | (top) | |
5945 | (top) | |
5946 | (top) | |
5947 | (top) | |
5948 | (top) | |
5949 | (top) | |
5950 | (top) | |
5951 | (top) | |
5952 | (top) | |
5953 | (top) | |
5954 | (top) | |
5955 | (top) | |
5956 | (top) | |
5957 | (top) | |
5958 | (top) | |
5959 | (top) | |
5960 | (top) | |
5961 | (top) | |
5962 | (top) | |
5963 | (top) | |
5964 | (top) | |
5965 | (top) | |
5966 | (top) | |
5967 | (top) | |
5968 | (top) | |
5969 | (top) | |
5970 | (top) | |
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 | ("i467" | |
6007 | "i465" | |
6008 | "i463" | |
6009 | "i461" | |
6010 | "i459" | |
6011 | "i457" | |
6012 | "i455" | |
6013 | "i453" | |
6014 | "i451" | |
6015 | "i449" | |
6016 | "i447" | |
6017 | "i445" | |
6018 | "i443" | |
6019 | "i441" | |
6020 | "i439" | |
6021 | "i437" | |
6022 | "i435" | |
6023 | "i433" | |
6024 | "i431" | |
6025 | "i429" | |
6026 | "i427" | |
6027 | "i425" | |
6028 | "i423" | |
6029 | "i421" | |
6030 | "i419" | |
6031 | "i417" | |
6032 | "i415" | |
6033 | "i413" | |
6034 | "i411" | |
6035 | "i409" | |
6036 | "i407" | |
6037 | "i405" | |
6038 | "i403" | |
6039 | "i401" | |
6040 | "i399" | |
6041 | "i398" | |
6042 | "i396" | |
6043 | "i393" | |
6044 | "i392" | |
6045 | "i391" | |
6046 | "i389" | |
6047 | "i388" | |
6048 | "i386" | |
6049 | "i384" | |
6050 | "i382" | |
6051 | "i380" | |
6052 | "i378" | |
6053 | "i376" | |
6054 | "i374" | |
6055 | "i372" | |
6056 | "i369" | |
6057 | "i367" | |
6058 | "i366" | |
6059 | "i364" | |
6060 | "i362" | |
6061 | "i360" | |
6062 | "i358" | |
6063 | "i357" | |
6064 | "i356" | |
6065 | "i355" | |
6066 | "i353" | |
6067 | "i352" | |
6068 | "i349" | |
6069 | "i347" | |
6070 | "i345" | |
6071 | "i343" | |
6072 | "i341" | |
6073 | "i339" | |
6074 | "i337" | |
6075 | "i336" | |
6076 | "i335" | |
6077 | "i333" | |
6078 | "i331" | |
6079 | "i330" | |
6080 | "i327" | |
6081 | "i326" | |
6082 | "i324" | |
6083 | "i322" | |
6084 | "i320" | |
6085 | "i318" | |
6086 | "i316" | |
6087 | "i314" | |
6088 | "i312" | |
6089 | "i310" | |
6090 | "i308" | |
6091 | "i305" | |
6092 | "i303" | |
6093 | "i301" | |
6094 | "i299" | |
6095 | "i297" | |
6096 | "i295" | |
6097 | "i293" | |
6098 | "i291" | |
6099 | "i289" | |
6100 | "i287" | |
6101 | "i285" | |
6102 | "i283" | |
6103 | "i281" | |
6104 | "i279" | |
6105 | "i277" | |
6106 | "i275" | |
6107 | "i273" | |
6108 | "i271" | |
6109 | "i269" | |
6110 | "i267" | |
6111 | "i265" | |
6112 | "i263" | |
6113 | "i261" | |
6114 | "i260" | |
6115 | "i257" | |
6116 | "i255" | |
6117 | "i254" | |
6118 | "i253" | |
6119 | "i252" | |
6120 | "i251" | |
6121 | "i249" | |
6122 | "i247" | |
6123 | "i245" | |
6124 | "i242" | |
6125 | "i240" | |
6126 | "i238" | |
6127 | "i236" | |
6128 | "i234" | |
6129 | "i232" | |
6130 | "i230" | |
6131 | "i228" | |
6132 | "i226" | |
6133 | "i224" | |
6134 | "i222" | |
6135 | "i220" | |
6136 | "i218" | |
6137 | "i216" | |
6138 | "i214" | |
6139 | "i212" | |
6140 | "i210" | |
6141 | "i208")) | |
6142 | #(ribcage | |
6143 | (define-structure | |
6144 | define-expansion-accessors | |
6145 | define-expansion-constructors) | |
6146 | ((top) | |
6147 | (top) | |
6148 | (top)) | |
6149 | ("i46" | |
6150 | "i45" | |
6151 | "i44"))) | |
6152 | (hygiene | |
6153 | guile)) | |
6154 | (#{wrap 4338}# | |
6155 | (cons #{args 21435}# | |
6156 | (cons #{e1 21436}# | |
6157 | #{e2 21437}#)) | |
6158 | #{w 20504}# | |
6159 | #{mod 20507}#)))) | |
6160 | (begin | |
6161 | (if (if (pair? #{e 21443}#) | |
6162 | #{s 20505}# | |
6163 | #f) | |
6164 | (set-source-properties! | |
6165 | #{e 21443}# | |
6166 | #{s 20505}#)) | |
6167 | #{e 21443}#)) | |
6168 | '(()) | |
6169 | #{s 20505}# | |
6170 | #{mod 20507}#)) | |
6171 | #{tmp 21230}#) | |
6172 | (let ((#{tmp 21450}# | |
6173 | ($sc-dispatch | |
6174 | #{e 20502}# | |
6175 | '(_ any)))) | |
6176 | (if (if #{tmp 21450}# | |
6177 | (@apply | |
6178 | (lambda (#{name 21454}#) | |
6179 | (if (symbol? | |
6180 | #{name 21454}#) | |
6181 | #t | |
6182 | (if (if (vector? | |
6183 | #{name 21454}#) | |
6184 | (if (= (vector-length | |
6185 | #{name 21454}#) | |
6186 | 4) | |
6187 | (eq? (vector-ref | |
6188 | #{name 21454}# | |
6189 | 0) | |
6190 | 'syntax-object) | |
6191 | #f) | |
6192 | #f) | |
6193 | (symbol? | |
6194 | (vector-ref | |
6195 | #{name 21454}# | |
6196 | 1)) | |
6197 | #f))) | |
6198 | #{tmp 21450}#) | |
6199 | #f) | |
6200 | (@apply | |
6201 | (lambda (#{name 21481}#) | |
6202 | (values | |
6203 | 'define-form | |
6204 | (#{wrap 4338}# | |
6205 | #{name 21481}# | |
6206 | #{w 20504}# | |
6207 | #{mod 20507}#) | |
6208 | '(#(syntax-object | |
6209 | if | |
6210 | ((top) | |
6211 | #(ribcage | |
6212 | #(name) | |
6213 | #((top)) | |
6214 | #("i1868")) | |
6215 | #(ribcage () () ()) | |
6216 | #(ribcage () () ()) | |
6217 | #(ribcage | |
6218 | #(ftype | |
6219 | fval | |
6220 | fe | |
6221 | fw | |
6222 | fs | |
6223 | fmod) | |
6224 | #((top) | |
6225 | (top) | |
6226 | (top) | |
6227 | (top) | |
6228 | (top) | |
6229 | (top)) | |
6230 | #("i1808" | |
6231 | "i1809" | |
6232 | "i1810" | |
6233 | "i1811" | |
6234 | "i1812" | |
6235 | "i1813")) | |
6236 | #(ribcage () () ()) | |
6237 | #(ribcage | |
6238 | #(first) | |
6239 | #((top)) | |
6240 | #("i1800")) | |
6241 | #(ribcage () () ()) | |
6242 | #(ribcage () () ()) | |
6243 | #(ribcage () () ()) | |
6244 | #(ribcage | |
6245 | #(e | |
6246 | r | |
6247 | w | |
6248 | s | |
6249 | rib | |
6250 | mod | |
6251 | for-car?) | |
6252 | #((top) | |
6253 | (top) | |
6254 | (top) | |
6255 | (top) | |
6256 | (top) | |
6257 | (top) | |
6258 | (top)) | |
6259 | #("i1772" | |
6260 | "i1773" | |
6261 | "i1774" | |
6262 | "i1775" | |
6263 | "i1776" | |
6264 | "i1777" | |
6265 | "i1778")) | |
6266 | #(ribcage | |
6267 | (lambda-var-list | |
6268 | gen-var | |
6269 | strip | |
6270 | expand-lambda-case | |
6271 | lambda*-formals | |
6272 | expand-simple-lambda | |
6273 | lambda-formals | |
6274 | ellipsis? | |
6275 | expand-void | |
6276 | eval-local-transformer | |
6277 | expand-local-syntax | |
6278 | expand-body | |
6279 | expand-macro | |
6280 | expand-application | |
6281 | expand-expr | |
6282 | expand | |
6283 | syntax-type | |
6284 | expand-when-list | |
6285 | expand-install-global | |
6286 | expand-top-sequence | |
6287 | expand-sequence | |
6288 | source-wrap | |
6289 | wrap | |
6290 | bound-id-member? | |
6291 | distinct-bound-ids? | |
6292 | valid-bound-ids? | |
6293 | bound-id=? | |
6294 | free-id=? | |
6295 | id-var-name | |
6296 | same-marks? | |
6297 | join-marks | |
6298 | join-wraps | |
6299 | smart-append | |
6300 | make-binding-wrap | |
6301 | extend-ribcage! | |
6302 | make-empty-ribcage | |
6303 | new-mark | |
6304 | anti-mark | |
6305 | the-anti-mark | |
6306 | top-marked? | |
6307 | top-wrap | |
6308 | empty-wrap | |
6309 | set-ribcage-labels! | |
6310 | set-ribcage-marks! | |
6311 | set-ribcage-symnames! | |
6312 | ribcage-labels | |
6313 | ribcage-marks | |
6314 | ribcage-symnames | |
6315 | ribcage? | |
6316 | make-ribcage | |
6317 | gen-labels | |
6318 | gen-label | |
6319 | make-rename | |
6320 | rename-marks | |
6321 | rename-new | |
6322 | rename-old | |
6323 | subst-rename? | |
6324 | wrap-subst | |
6325 | wrap-marks | |
6326 | make-wrap | |
6327 | id-sym-name&marks | |
6328 | id-sym-name | |
6329 | id? | |
6330 | nonsymbol-id? | |
6331 | global-extend | |
6332 | lookup | |
6333 | macros-only-env | |
6334 | extend-var-env | |
6335 | extend-env | |
6336 | null-env | |
6337 | binding-value | |
6338 | binding-type | |
6339 | make-binding | |
6340 | arg-check | |
6341 | source-annotation | |
6342 | no-source | |
6343 | set-syntax-object-module! | |
6344 | set-syntax-object-wrap! | |
6345 | set-syntax-object-expression! | |
6346 | syntax-object-module | |
6347 | syntax-object-wrap | |
6348 | syntax-object-expression | |
6349 | syntax-object? | |
6350 | make-syntax-object | |
6351 | build-lexical-var | |
6352 | build-letrec | |
6353 | build-named-let | |
6354 | build-let | |
6355 | build-sequence | |
6356 | build-data | |
6357 | build-primref | |
6358 | build-lambda-case | |
6359 | build-case-lambda | |
6360 | build-simple-lambda | |
6361 | build-global-definition | |
6362 | build-global-assignment | |
6363 | build-global-reference | |
6364 | analyze-variable | |
6365 | build-lexical-assignment | |
6366 | build-lexical-reference | |
6367 | build-dynlet | |
6368 | build-conditional | |
6369 | build-application | |
6370 | build-void | |
6371 | maybe-name-value! | |
6372 | decorate-source | |
6373 | get-global-definition-hook | |
6374 | put-global-definition-hook | |
6375 | gensym-hook | |
6376 | local-eval-hook | |
6377 | top-level-eval-hook | |
6378 | fx< | |
6379 | fx= | |
6380 | fx- | |
6381 | fx+ | |
6382 | set-lambda-meta! | |
6383 | lambda-meta | |
6384 | lambda? | |
6385 | make-dynlet | |
6386 | make-letrec | |
6387 | make-let | |
6388 | make-lambda-case | |
6389 | make-lambda | |
6390 | make-sequence | |
6391 | make-application | |
6392 | make-conditional | |
6393 | make-toplevel-define | |
6394 | make-toplevel-set | |
6395 | make-toplevel-ref | |
6396 | make-module-set | |
6397 | make-module-ref | |
6398 | make-lexical-set | |
6399 | make-lexical-ref | |
6400 | make-primitive-ref | |
6401 | make-const | |
6402 | make-void) | |
6403 | ((top) | |
6404 | (top) | |
6405 | (top) | |
6406 | (top) | |
6407 | (top) | |
6408 | (top) | |
6409 | (top) | |
6410 | (top) | |
6411 | (top) | |
6412 | (top) | |
6413 | (top) | |
6414 | (top) | |
6415 | (top) | |
6416 | (top) | |
6417 | (top) | |
6418 | (top) | |
6419 | (top) | |
6420 | (top) | |
6421 | (top) | |
6422 | (top) | |
6423 | (top) | |
6424 | (top) | |
6425 | (top) | |
6426 | (top) | |
6427 | (top) | |
6428 | (top) | |
6429 | (top) | |
6430 | (top) | |
6431 | (top) | |
6432 | (top) | |
6433 | (top) | |
6434 | (top) | |
6435 | (top) | |
6436 | (top) | |
6437 | (top) | |
6438 | (top) | |
6439 | (top) | |
6440 | (top) | |
6441 | (top) | |
6442 | (top) | |
6443 | (top) | |
6444 | (top) | |
6445 | (top) | |
6446 | (top) | |
6447 | (top) | |
6448 | (top) | |
6449 | (top) | |
6450 | (top) | |
6451 | (top) | |
6452 | (top) | |
6453 | (top) | |
6454 | (top) | |
6455 | (top) | |
6456 | (top) | |
6457 | (top) | |
6458 | (top) | |
6459 | (top) | |
6460 | (top) | |
6461 | (top) | |
6462 | (top) | |
6463 | (top) | |
6464 | (top) | |
6465 | (top) | |
6466 | (top) | |
6467 | (top) | |
6468 | (top) | |
6469 | (top) | |
6470 | (top) | |
6471 | (top) | |
6472 | (top) | |
6473 | (top) | |
6474 | (top) | |
6475 | (top) | |
6476 | (top) | |
6477 | (top) | |
6478 | (top) | |
6479 | (top) | |
6480 | (top) | |
6481 | (top) | |
6482 | (top) | |
6483 | (top) | |
6484 | (top) | |
6485 | (top) | |
6486 | (top) | |
6487 | (top) | |
6488 | (top) | |
6489 | (top) | |
6490 | (top) | |
6491 | (top) | |
6492 | (top) | |
6493 | (top) | |
6494 | (top) | |
6495 | (top) | |
6496 | (top) | |
6497 | (top) | |
6498 | (top) | |
6499 | (top) | |
6500 | (top) | |
6501 | (top) | |
6502 | (top) | |
6503 | (top) | |
6504 | (top) | |
6505 | (top) | |
6506 | (top) | |
6507 | (top) | |
6508 | (top) | |
6509 | (top) | |
6510 | (top) | |
6511 | (top) | |
6512 | (top) | |
6513 | (top) | |
6514 | (top) | |
6515 | (top) | |
6516 | (top) | |
6517 | (top) | |
6518 | (top) | |
6519 | (top) | |
6520 | (top) | |
6521 | (top) | |
6522 | (top) | |
6523 | (top) | |
6524 | (top) | |
6525 | (top) | |
6526 | (top) | |
6527 | (top) | |
6528 | (top) | |
6529 | (top) | |
6530 | (top) | |
6531 | (top) | |
6532 | (top) | |
6533 | (top) | |
6534 | (top) | |
6535 | (top) | |
6536 | (top) | |
6537 | (top) | |
6538 | (top)) | |
6539 | ("i467" | |
6540 | "i465" | |
6541 | "i463" | |
6542 | "i461" | |
6543 | "i459" | |
6544 | "i457" | |
6545 | "i455" | |
6546 | "i453" | |
6547 | "i451" | |
6548 | "i449" | |
6549 | "i447" | |
6550 | "i445" | |
6551 | "i443" | |
6552 | "i441" | |
6553 | "i439" | |
6554 | "i437" | |
6555 | "i435" | |
6556 | "i433" | |
6557 | "i431" | |
6558 | "i429" | |
6559 | "i427" | |
6560 | "i425" | |
6561 | "i423" | |
6562 | "i421" | |
6563 | "i419" | |
6564 | "i417" | |
6565 | "i415" | |
6566 | "i413" | |
6567 | "i411" | |
6568 | "i409" | |
6569 | "i407" | |
6570 | "i405" | |
6571 | "i403" | |
6572 | "i401" | |
6573 | "i399" | |
6574 | "i398" | |
6575 | "i396" | |
6576 | "i393" | |
6577 | "i392" | |
6578 | "i391" | |
6579 | "i389" | |
6580 | "i388" | |
6581 | "i386" | |
6582 | "i384" | |
6583 | "i382" | |
6584 | "i380" | |
6585 | "i378" | |
6586 | "i376" | |
6587 | "i374" | |
6588 | "i372" | |
6589 | "i369" | |
6590 | "i367" | |
6591 | "i366" | |
6592 | "i364" | |
6593 | "i362" | |
6594 | "i360" | |
6595 | "i358" | |
6596 | "i357" | |
6597 | "i356" | |
6598 | "i355" | |
6599 | "i353" | |
6600 | "i352" | |
6601 | "i349" | |
6602 | "i347" | |
6603 | "i345" | |
6604 | "i343" | |
6605 | "i341" | |
6606 | "i339" | |
6607 | "i337" | |
6608 | "i336" | |
6609 | "i335" | |
6610 | "i333" | |
6611 | "i331" | |
6612 | "i330" | |
6613 | "i327" | |
6614 | "i326" | |
6615 | "i324" | |
6616 | "i322" | |
6617 | "i320" | |
6618 | "i318" | |
6619 | "i316" | |
6620 | "i314" | |
6621 | "i312" | |
6622 | "i310" | |
6623 | "i308" | |
6624 | "i305" | |
6625 | "i303" | |
6626 | "i301" | |
6627 | "i299" | |
6628 | "i297" | |
6629 | "i295" | |
6630 | "i293" | |
6631 | "i291" | |
6632 | "i289" | |
6633 | "i287" | |
6634 | "i285" | |
6635 | "i283" | |
6636 | "i281" | |
6637 | "i279" | |
6638 | "i277" | |
6639 | "i275" | |
6640 | "i273" | |
6641 | "i271" | |
6642 | "i269" | |
6643 | "i267" | |
6644 | "i265" | |
6645 | "i263" | |
6646 | "i261" | |
6647 | "i260" | |
6648 | "i257" | |
6649 | "i255" | |
6650 | "i254" | |
6651 | "i253" | |
6652 | "i252" | |
6653 | "i251" | |
6654 | "i249" | |
6655 | "i247" | |
6656 | "i245" | |
6657 | "i242" | |
6658 | "i240" | |
6659 | "i238" | |
6660 | "i236" | |
6661 | "i234" | |
6662 | "i232" | |
6663 | "i230" | |
6664 | "i228" | |
6665 | "i226" | |
6666 | "i224" | |
6667 | "i222" | |
6668 | "i220" | |
6669 | "i218" | |
6670 | "i216" | |
6671 | "i214" | |
6672 | "i212" | |
6673 | "i210" | |
6674 | "i208")) | |
6675 | #(ribcage | |
6676 | (define-structure | |
6677 | define-expansion-accessors | |
6678 | define-expansion-constructors) | |
6679 | ((top) (top) (top)) | |
6680 | ("i46" | |
6681 | "i45" | |
6682 | "i44"))) | |
6683 | (hygiene guile)) | |
6684 | #(syntax-object | |
6685 | #f | |
6686 | ((top) | |
6687 | #(ribcage | |
6688 | #(name) | |
6689 | #((top)) | |
6690 | #("i1868")) | |
6691 | #(ribcage () () ()) | |
6692 | #(ribcage () () ()) | |
6693 | #(ribcage | |
6694 | #(ftype | |
6695 | fval | |
6696 | fe | |
6697 | fw | |
6698 | fs | |
6699 | fmod) | |
6700 | #((top) | |
6701 | (top) | |
6702 | (top) | |
6703 | (top) | |
6704 | (top) | |
6705 | (top)) | |
6706 | #("i1808" | |
6707 | "i1809" | |
6708 | "i1810" | |
6709 | "i1811" | |
6710 | "i1812" | |
6711 | "i1813")) | |
6712 | #(ribcage () () ()) | |
6713 | #(ribcage | |
6714 | #(first) | |
6715 | #((top)) | |
6716 | #("i1800")) | |
6717 | #(ribcage () () ()) | |
6718 | #(ribcage () () ()) | |
6719 | #(ribcage () () ()) | |
6720 | #(ribcage | |
6721 | #(e | |
6722 | r | |
6723 | w | |
6724 | s | |
6725 | rib | |
6726 | mod | |
6727 | for-car?) | |
6728 | #((top) | |
6729 | (top) | |
6730 | (top) | |
6731 | (top) | |
6732 | (top) | |
6733 | (top) | |
6734 | (top)) | |
6735 | #("i1772" | |
6736 | "i1773" | |
6737 | "i1774" | |
6738 | "i1775" | |
6739 | "i1776" | |
6740 | "i1777" | |
6741 | "i1778")) | |
6742 | #(ribcage | |
6743 | (lambda-var-list | |
6744 | gen-var | |
6745 | strip | |
6746 | expand-lambda-case | |
6747 | lambda*-formals | |
6748 | expand-simple-lambda | |
6749 | lambda-formals | |
6750 | ellipsis? | |
6751 | expand-void | |
6752 | eval-local-transformer | |
6753 | expand-local-syntax | |
6754 | expand-body | |
6755 | expand-macro | |
6756 | expand-application | |
6757 | expand-expr | |
6758 | expand | |
6759 | syntax-type | |
6760 | expand-when-list | |
6761 | expand-install-global | |
6762 | expand-top-sequence | |
6763 | expand-sequence | |
6764 | source-wrap | |
6765 | wrap | |
6766 | bound-id-member? | |
6767 | distinct-bound-ids? | |
6768 | valid-bound-ids? | |
6769 | bound-id=? | |
6770 | free-id=? | |
6771 | id-var-name | |
6772 | same-marks? | |
6773 | join-marks | |
6774 | join-wraps | |
6775 | smart-append | |
6776 | make-binding-wrap | |
6777 | extend-ribcage! | |
6778 | make-empty-ribcage | |
6779 | new-mark | |
6780 | anti-mark | |
6781 | the-anti-mark | |
6782 | top-marked? | |
6783 | top-wrap | |
6784 | empty-wrap | |
6785 | set-ribcage-labels! | |
6786 | set-ribcage-marks! | |
6787 | set-ribcage-symnames! | |
6788 | ribcage-labels | |
6789 | ribcage-marks | |
6790 | ribcage-symnames | |
6791 | ribcage? | |
6792 | make-ribcage | |
6793 | gen-labels | |
6794 | gen-label | |
6795 | make-rename | |
6796 | rename-marks | |
6797 | rename-new | |
6798 | rename-old | |
6799 | subst-rename? | |
6800 | wrap-subst | |
6801 | wrap-marks | |
6802 | make-wrap | |
6803 | id-sym-name&marks | |
6804 | id-sym-name | |
6805 | id? | |
6806 | nonsymbol-id? | |
6807 | global-extend | |
6808 | lookup | |
6809 | macros-only-env | |
6810 | extend-var-env | |
6811 | extend-env | |
6812 | null-env | |
6813 | binding-value | |
6814 | binding-type | |
6815 | make-binding | |
6816 | arg-check | |
6817 | source-annotation | |
6818 | no-source | |
6819 | set-syntax-object-module! | |
6820 | set-syntax-object-wrap! | |
6821 | set-syntax-object-expression! | |
6822 | syntax-object-module | |
6823 | syntax-object-wrap | |
6824 | syntax-object-expression | |
6825 | syntax-object? | |
6826 | make-syntax-object | |
6827 | build-lexical-var | |
6828 | build-letrec | |
6829 | build-named-let | |
6830 | build-let | |
6831 | build-sequence | |
6832 | build-data | |
6833 | build-primref | |
6834 | build-lambda-case | |
6835 | build-case-lambda | |
6836 | build-simple-lambda | |
6837 | build-global-definition | |
6838 | build-global-assignment | |
6839 | build-global-reference | |
6840 | analyze-variable | |
6841 | build-lexical-assignment | |
6842 | build-lexical-reference | |
6843 | build-dynlet | |
6844 | build-conditional | |
6845 | build-application | |
6846 | build-void | |
6847 | maybe-name-value! | |
6848 | decorate-source | |
6849 | get-global-definition-hook | |
6850 | put-global-definition-hook | |
6851 | gensym-hook | |
6852 | local-eval-hook | |
6853 | top-level-eval-hook | |
6854 | fx< | |
6855 | fx= | |
6856 | fx- | |
6857 | fx+ | |
6858 | set-lambda-meta! | |
6859 | lambda-meta | |
6860 | lambda? | |
6861 | make-dynlet | |
6862 | make-letrec | |
6863 | make-let | |
6864 | make-lambda-case | |
6865 | make-lambda | |
6866 | make-sequence | |
6867 | make-application | |
6868 | make-conditional | |
6869 | make-toplevel-define | |
6870 | make-toplevel-set | |
6871 | make-toplevel-ref | |
6872 | make-module-set | |
6873 | make-module-ref | |
6874 | make-lexical-set | |
6875 | make-lexical-ref | |
6876 | make-primitive-ref | |
6877 | make-const | |
6878 | make-void) | |
6879 | ((top) | |
6880 | (top) | |
6881 | (top) | |
6882 | (top) | |
6883 | (top) | |
6884 | (top) | |
6885 | (top) | |
6886 | (top) | |
6887 | (top) | |
6888 | (top) | |
6889 | (top) | |
6890 | (top) | |
6891 | (top) | |
6892 | (top) | |
6893 | (top) | |
6894 | (top) | |
6895 | (top) | |
6896 | (top) | |
6897 | (top) | |
6898 | (top) | |
6899 | (top) | |
6900 | (top) | |
6901 | (top) | |
6902 | (top) | |
6903 | (top) | |
6904 | (top) | |
6905 | (top) | |
6906 | (top) | |
6907 | (top) | |
6908 | (top) | |
6909 | (top) | |
6910 | (top) | |
6911 | (top) | |
6912 | (top) | |
6913 | (top) | |
6914 | (top) | |
6915 | (top) | |
6916 | (top) | |
6917 | (top) | |
6918 | (top) | |
6919 | (top) | |
6920 | (top) | |
6921 | (top) | |
6922 | (top) | |
6923 | (top) | |
6924 | (top) | |
6925 | (top) | |
6926 | (top) | |
6927 | (top) | |
6928 | (top) | |
6929 | (top) | |
6930 | (top) | |
6931 | (top) | |
6932 | (top) | |
6933 | (top) | |
6934 | (top) | |
6935 | (top) | |
6936 | (top) | |
6937 | (top) | |
6938 | (top) | |
6939 | (top) | |
6940 | (top) | |
6941 | (top) | |
6942 | (top) | |
6943 | (top) | |
6944 | (top) | |
6945 | (top) | |
6946 | (top) | |
6947 | (top) | |
6948 | (top) | |
6949 | (top) | |
6950 | (top) | |
6951 | (top) | |
6952 | (top) | |
6953 | (top) | |
6954 | (top) | |
6955 | (top) | |
6956 | (top) | |
6957 | (top) | |
6958 | (top) | |
6959 | (top) | |
6960 | (top) | |
6961 | (top) | |
6962 | (top) | |
6963 | (top) | |
6964 | (top) | |
6965 | (top) | |
6966 | (top) | |
6967 | (top) | |
6968 | (top) | |
6969 | (top) | |
6970 | (top) | |
6971 | (top) | |
6972 | (top) | |
6973 | (top) | |
6974 | (top) | |
6975 | (top) | |
6976 | (top) | |
6977 | (top) | |
6978 | (top) | |
6979 | (top) | |
6980 | (top) | |
6981 | (top) | |
6982 | (top) | |
6983 | (top) | |
6984 | (top) | |
6985 | (top) | |
6986 | (top) | |
6987 | (top) | |
6988 | (top) | |
6989 | (top) | |
6990 | (top) | |
6991 | (top) | |
6992 | (top) | |
6993 | (top) | |
6994 | (top) | |
6995 | (top) | |
6996 | (top) | |
6997 | (top) | |
6998 | (top) | |
6999 | (top) | |
7000 | (top) | |
7001 | (top) | |
7002 | (top) | |
7003 | (top) | |
7004 | (top) | |
7005 | (top) | |
7006 | (top) | |
7007 | (top) | |
7008 | (top) | |
7009 | (top) | |
7010 | (top) | |
7011 | (top) | |
7012 | (top) | |
7013 | (top) | |
7014 | (top)) | |
7015 | ("i467" | |
7016 | "i465" | |
7017 | "i463" | |
7018 | "i461" | |
7019 | "i459" | |
7020 | "i457" | |
7021 | "i455" | |
7022 | "i453" | |
7023 | "i451" | |
7024 | "i449" | |
7025 | "i447" | |
7026 | "i445" | |
7027 | "i443" | |
7028 | "i441" | |
7029 | "i439" | |
7030 | "i437" | |
7031 | "i435" | |
7032 | "i433" | |
7033 | "i431" | |
7034 | "i429" | |
7035 | "i427" | |
7036 | "i425" | |
7037 | "i423" | |
7038 | "i421" | |
7039 | "i419" | |
7040 | "i417" | |
7041 | "i415" | |
7042 | "i413" | |
7043 | "i411" | |
7044 | "i409" | |
7045 | "i407" | |
7046 | "i405" | |
7047 | "i403" | |
7048 | "i401" | |
7049 | "i399" | |
7050 | "i398" | |
7051 | "i396" | |
7052 | "i393" | |
7053 | "i392" | |
7054 | "i391" | |
7055 | "i389" | |
7056 | "i388" | |
7057 | "i386" | |
7058 | "i384" | |
7059 | "i382" | |
7060 | "i380" | |
7061 | "i378" | |
7062 | "i376" | |
7063 | "i374" | |
7064 | "i372" | |
7065 | "i369" | |
7066 | "i367" | |
7067 | "i366" | |
7068 | "i364" | |
7069 | "i362" | |
7070 | "i360" | |
7071 | "i358" | |
7072 | "i357" | |
7073 | "i356" | |
7074 | "i355" | |
7075 | "i353" | |
7076 | "i352" | |
7077 | "i349" | |
7078 | "i347" | |
7079 | "i345" | |
7080 | "i343" | |
7081 | "i341" | |
7082 | "i339" | |
7083 | "i337" | |
7084 | "i336" | |
7085 | "i335" | |
7086 | "i333" | |
7087 | "i331" | |
7088 | "i330" | |
7089 | "i327" | |
7090 | "i326" | |
7091 | "i324" | |
7092 | "i322" | |
7093 | "i320" | |
7094 | "i318" | |
7095 | "i316" | |
7096 | "i314" | |
7097 | "i312" | |
7098 | "i310" | |
7099 | "i308" | |
7100 | "i305" | |
7101 | "i303" | |
7102 | "i301" | |
7103 | "i299" | |
7104 | "i297" | |
7105 | "i295" | |
7106 | "i293" | |
7107 | "i291" | |
7108 | "i289" | |
7109 | "i287" | |
7110 | "i285" | |
7111 | "i283" | |
7112 | "i281" | |
7113 | "i279" | |
7114 | "i277" | |
7115 | "i275" | |
7116 | "i273" | |
7117 | "i271" | |
7118 | "i269" | |
7119 | "i267" | |
7120 | "i265" | |
7121 | "i263" | |
7122 | "i261" | |
7123 | "i260" | |
7124 | "i257" | |
7125 | "i255" | |
7126 | "i254" | |
7127 | "i253" | |
7128 | "i252" | |
7129 | "i251" | |
7130 | "i249" | |
7131 | "i247" | |
7132 | "i245" | |
7133 | "i242" | |
7134 | "i240" | |
7135 | "i238" | |
7136 | "i236" | |
7137 | "i234" | |
7138 | "i232" | |
7139 | "i230" | |
7140 | "i228" | |
7141 | "i226" | |
7142 | "i224" | |
7143 | "i222" | |
7144 | "i220" | |
7145 | "i218" | |
7146 | "i216" | |
7147 | "i214" | |
7148 | "i212" | |
7149 | "i210" | |
7150 | "i208")) | |
7151 | #(ribcage | |
7152 | (define-structure | |
7153 | define-expansion-accessors | |
7154 | define-expansion-constructors) | |
7155 | ((top) (top) (top)) | |
7156 | ("i46" | |
7157 | "i45" | |
7158 | "i44"))) | |
7159 | (hygiene guile)) | |
7160 | #(syntax-object | |
7161 | #f | |
7162 | ((top) | |
7163 | #(ribcage | |
7164 | #(name) | |
7165 | #((top)) | |
7166 | #("i1868")) | |
7167 | #(ribcage () () ()) | |
7168 | #(ribcage () () ()) | |
7169 | #(ribcage | |
7170 | #(ftype | |
7171 | fval | |
7172 | fe | |
7173 | fw | |
7174 | fs | |
7175 | fmod) | |
7176 | #((top) | |
7177 | (top) | |
7178 | (top) | |
7179 | (top) | |
7180 | (top) | |
7181 | (top)) | |
7182 | #("i1808" | |
7183 | "i1809" | |
7184 | "i1810" | |
7185 | "i1811" | |
7186 | "i1812" | |
7187 | "i1813")) | |
7188 | #(ribcage () () ()) | |
7189 | #(ribcage | |
7190 | #(first) | |
7191 | #((top)) | |
7192 | #("i1800")) | |
7193 | #(ribcage () () ()) | |
7194 | #(ribcage () () ()) | |
7195 | #(ribcage () () ()) | |
7196 | #(ribcage | |
7197 | #(e | |
7198 | r | |
7199 | w | |
7200 | s | |
7201 | rib | |
7202 | mod | |
7203 | for-car?) | |
7204 | #((top) | |
7205 | (top) | |
7206 | (top) | |
7207 | (top) | |
7208 | (top) | |
7209 | (top) | |
7210 | (top)) | |
7211 | #("i1772" | |
7212 | "i1773" | |
7213 | "i1774" | |
7214 | "i1775" | |
7215 | "i1776" | |
7216 | "i1777" | |
7217 | "i1778")) | |
7218 | #(ribcage | |
7219 | (lambda-var-list | |
7220 | gen-var | |
7221 | strip | |
7222 | expand-lambda-case | |
7223 | lambda*-formals | |
7224 | expand-simple-lambda | |
7225 | lambda-formals | |
7226 | ellipsis? | |
7227 | expand-void | |
7228 | eval-local-transformer | |
7229 | expand-local-syntax | |
7230 | expand-body | |
7231 | expand-macro | |
7232 | expand-application | |
7233 | expand-expr | |
7234 | expand | |
7235 | syntax-type | |
7236 | expand-when-list | |
7237 | expand-install-global | |
7238 | expand-top-sequence | |
7239 | expand-sequence | |
7240 | source-wrap | |
7241 | wrap | |
7242 | bound-id-member? | |
7243 | distinct-bound-ids? | |
7244 | valid-bound-ids? | |
7245 | bound-id=? | |
7246 | free-id=? | |
7247 | id-var-name | |
7248 | same-marks? | |
7249 | join-marks | |
7250 | join-wraps | |
7251 | smart-append | |
7252 | make-binding-wrap | |
7253 | extend-ribcage! | |
7254 | make-empty-ribcage | |
7255 | new-mark | |
7256 | anti-mark | |
7257 | the-anti-mark | |
7258 | top-marked? | |
7259 | top-wrap | |
7260 | empty-wrap | |
7261 | set-ribcage-labels! | |
7262 | set-ribcage-marks! | |
7263 | set-ribcage-symnames! | |
7264 | ribcage-labels | |
7265 | ribcage-marks | |
7266 | ribcage-symnames | |
7267 | ribcage? | |
7268 | make-ribcage | |
7269 | gen-labels | |
7270 | gen-label | |
7271 | make-rename | |
7272 | rename-marks | |
7273 | rename-new | |
7274 | rename-old | |
7275 | subst-rename? | |
7276 | wrap-subst | |
7277 | wrap-marks | |
7278 | make-wrap | |
7279 | id-sym-name&marks | |
7280 | id-sym-name | |
7281 | id? | |
7282 | nonsymbol-id? | |
7283 | global-extend | |
7284 | lookup | |
7285 | macros-only-env | |
7286 | extend-var-env | |
7287 | extend-env | |
7288 | null-env | |
7289 | binding-value | |
7290 | binding-type | |
7291 | make-binding | |
7292 | arg-check | |
7293 | source-annotation | |
7294 | no-source | |
7295 | set-syntax-object-module! | |
7296 | set-syntax-object-wrap! | |
7297 | set-syntax-object-expression! | |
7298 | syntax-object-module | |
7299 | syntax-object-wrap | |
7300 | syntax-object-expression | |
7301 | syntax-object? | |
7302 | make-syntax-object | |
7303 | build-lexical-var | |
7304 | build-letrec | |
7305 | build-named-let | |
7306 | build-let | |
7307 | build-sequence | |
7308 | build-data | |
7309 | build-primref | |
7310 | build-lambda-case | |
7311 | build-case-lambda | |
7312 | build-simple-lambda | |
7313 | build-global-definition | |
7314 | build-global-assignment | |
7315 | build-global-reference | |
7316 | analyze-variable | |
7317 | build-lexical-assignment | |
7318 | build-lexical-reference | |
7319 | build-dynlet | |
7320 | build-conditional | |
7321 | build-application | |
7322 | build-void | |
7323 | maybe-name-value! | |
7324 | decorate-source | |
7325 | get-global-definition-hook | |
7326 | put-global-definition-hook | |
7327 | gensym-hook | |
7328 | local-eval-hook | |
7329 | top-level-eval-hook | |
7330 | fx< | |
7331 | fx= | |
7332 | fx- | |
7333 | fx+ | |
7334 | set-lambda-meta! | |
7335 | lambda-meta | |
7336 | lambda? | |
7337 | make-dynlet | |
7338 | make-letrec | |
7339 | make-let | |
7340 | make-lambda-case | |
7341 | make-lambda | |
7342 | make-sequence | |
7343 | make-application | |
7344 | make-conditional | |
7345 | make-toplevel-define | |
7346 | make-toplevel-set | |
7347 | make-toplevel-ref | |
7348 | make-module-set | |
7349 | make-module-ref | |
7350 | make-lexical-set | |
7351 | make-lexical-ref | |
7352 | make-primitive-ref | |
7353 | make-const | |
7354 | make-void) | |
7355 | ((top) | |
7356 | (top) | |
7357 | (top) | |
7358 | (top) | |
7359 | (top) | |
7360 | (top) | |
7361 | (top) | |
7362 | (top) | |
7363 | (top) | |
7364 | (top) | |
7365 | (top) | |
7366 | (top) | |
7367 | (top) | |
7368 | (top) | |
7369 | (top) | |
7370 | (top) | |
7371 | (top) | |
7372 | (top) | |
7373 | (top) | |
7374 | (top) | |
7375 | (top) | |
7376 | (top) | |
7377 | (top) | |
7378 | (top) | |
7379 | (top) | |
7380 | (top) | |
7381 | (top) | |
7382 | (top) | |
7383 | (top) | |
7384 | (top) | |
7385 | (top) | |
7386 | (top) | |
7387 | (top) | |
7388 | (top) | |
7389 | (top) | |
7390 | (top) | |
7391 | (top) | |
7392 | (top) | |
7393 | (top) | |
7394 | (top) | |
7395 | (top) | |
7396 | (top) | |
7397 | (top) | |
7398 | (top) | |
7399 | (top) | |
7400 | (top) | |
7401 | (top) | |
7402 | (top) | |
7403 | (top) | |
7404 | (top) | |
7405 | (top) | |
7406 | (top) | |
7407 | (top) | |
7408 | (top) | |
7409 | (top) | |
7410 | (top) | |
7411 | (top) | |
7412 | (top) | |
7413 | (top) | |
7414 | (top) | |
7415 | (top) | |
7416 | (top) | |
7417 | (top) | |
7418 | (top) | |
7419 | (top) | |
7420 | (top) | |
7421 | (top) | |
7422 | (top) | |
7423 | (top) | |
7424 | (top) | |
7425 | (top) | |
7426 | (top) | |
7427 | (top) | |
7428 | (top) | |
7429 | (top) | |
7430 | (top) | |
7431 | (top) | |
7432 | (top) | |
7433 | (top) | |
7434 | (top) | |
7435 | (top) | |
7436 | (top) | |
7437 | (top) | |
7438 | (top) | |
7439 | (top) | |
7440 | (top) | |
7441 | (top) | |
7442 | (top) | |
7443 | (top) | |
7444 | (top) | |
7445 | (top) | |
7446 | (top) | |
7447 | (top) | |
7448 | (top) | |
7449 | (top) | |
7450 | (top) | |
7451 | (top) | |
7452 | (top) | |
7453 | (top) | |
7454 | (top) | |
7455 | (top) | |
7456 | (top) | |
7457 | (top) | |
7458 | (top) | |
7459 | (top) | |
7460 | (top) | |
7461 | (top) | |
7462 | (top) | |
7463 | (top) | |
7464 | (top) | |
7465 | (top) | |
7466 | (top) | |
7467 | (top) | |
7468 | (top) | |
7469 | (top) | |
7470 | (top) | |
7471 | (top) | |
7472 | (top) | |
7473 | (top) | |
7474 | (top) | |
7475 | (top) | |
7476 | (top) | |
7477 | (top) | |
7478 | (top) | |
7479 | (top) | |
7480 | (top) | |
7481 | (top) | |
7482 | (top) | |
7483 | (top) | |
7484 | (top) | |
7485 | (top) | |
7486 | (top) | |
7487 | (top) | |
7488 | (top) | |
7489 | (top) | |
7490 | (top)) | |
7491 | ("i467" | |
7492 | "i465" | |
7493 | "i463" | |
7494 | "i461" | |
7495 | "i459" | |
7496 | "i457" | |
7497 | "i455" | |
7498 | "i453" | |
7499 | "i451" | |
7500 | "i449" | |
7501 | "i447" | |
7502 | "i445" | |
7503 | "i443" | |
7504 | "i441" | |
7505 | "i439" | |
7506 | "i437" | |
7507 | "i435" | |
7508 | "i433" | |
7509 | "i431" | |
7510 | "i429" | |
7511 | "i427" | |
7512 | "i425" | |
7513 | "i423" | |
7514 | "i421" | |
7515 | "i419" | |
7516 | "i417" | |
7517 | "i415" | |
7518 | "i413" | |
7519 | "i411" | |
7520 | "i409" | |
7521 | "i407" | |
7522 | "i405" | |
7523 | "i403" | |
7524 | "i401" | |
7525 | "i399" | |
7526 | "i398" | |
7527 | "i396" | |
7528 | "i393" | |
7529 | "i392" | |
7530 | "i391" | |
7531 | "i389" | |
7532 | "i388" | |
7533 | "i386" | |
7534 | "i384" | |
7535 | "i382" | |
7536 | "i380" | |
7537 | "i378" | |
7538 | "i376" | |
7539 | "i374" | |
7540 | "i372" | |
7541 | "i369" | |
7542 | "i367" | |
7543 | "i366" | |
7544 | "i364" | |
7545 | "i362" | |
7546 | "i360" | |
7547 | "i358" | |
7548 | "i357" | |
7549 | "i356" | |
7550 | "i355" | |
7551 | "i353" | |
7552 | "i352" | |
7553 | "i349" | |
7554 | "i347" | |
7555 | "i345" | |
7556 | "i343" | |
7557 | "i341" | |
7558 | "i339" | |
7559 | "i337" | |
7560 | "i336" | |
7561 | "i335" | |
7562 | "i333" | |
7563 | "i331" | |
7564 | "i330" | |
7565 | "i327" | |
7566 | "i326" | |
7567 | "i324" | |
7568 | "i322" | |
7569 | "i320" | |
7570 | "i318" | |
7571 | "i316" | |
7572 | "i314" | |
7573 | "i312" | |
7574 | "i310" | |
7575 | "i308" | |
7576 | "i305" | |
7577 | "i303" | |
7578 | "i301" | |
7579 | "i299" | |
7580 | "i297" | |
7581 | "i295" | |
7582 | "i293" | |
7583 | "i291" | |
7584 | "i289" | |
7585 | "i287" | |
7586 | "i285" | |
7587 | "i283" | |
7588 | "i281" | |
7589 | "i279" | |
7590 | "i277" | |
7591 | "i275" | |
7592 | "i273" | |
7593 | "i271" | |
7594 | "i269" | |
7595 | "i267" | |
7596 | "i265" | |
7597 | "i263" | |
7598 | "i261" | |
7599 | "i260" | |
7600 | "i257" | |
7601 | "i255" | |
7602 | "i254" | |
7603 | "i253" | |
7604 | "i252" | |
7605 | "i251" | |
7606 | "i249" | |
7607 | "i247" | |
7608 | "i245" | |
7609 | "i242" | |
7610 | "i240" | |
7611 | "i238" | |
7612 | "i236" | |
7613 | "i234" | |
7614 | "i232" | |
7615 | "i230" | |
7616 | "i228" | |
7617 | "i226" | |
7618 | "i224" | |
7619 | "i222" | |
7620 | "i220" | |
7621 | "i218" | |
7622 | "i216" | |
7623 | "i214" | |
7624 | "i212" | |
7625 | "i210" | |
7626 | "i208")) | |
7627 | #(ribcage | |
7628 | (define-structure | |
7629 | define-expansion-accessors | |
7630 | define-expansion-constructors) | |
7631 | ((top) (top) (top)) | |
7632 | ("i46" | |
7633 | "i45" | |
7634 | "i44"))) | |
7635 | (hygiene guile))) | |
7636 | '(()) | |
7637 | #{s 20505}# | |
7638 | #{mod 20507}#)) | |
7639 | #{tmp 21450}#) | |
7640 | (syntax-violation | |
7641 | #f | |
7642 | "source expression failed to match any pattern" | |
7643 | #{e 20502}#))))))) | |
7644 | (if (eqv? #{ftype 21149}# 'define-syntax) | |
7645 | (let ((#{tmp 21500}# | |
7646 | ($sc-dispatch | |
7647 | #{e 20502}# | |
7648 | '(_ any any)))) | |
7649 | (if (if #{tmp 21500}# | |
7650 | (@apply | |
7651 | (lambda (#{name 21504}# | |
7652 | #{val 21505}#) | |
7653 | (if (symbol? #{name 21504}#) | |
7654 | #t | |
7655 | (if (if (vector? | |
7656 | #{name 21504}#) | |
7657 | (if (= (vector-length | |
7658 | #{name 21504}#) | |
7659 | 4) | |
7660 | (eq? (vector-ref | |
7661 | #{name 21504}# | |
7662 | 0) | |
7663 | 'syntax-object) | |
7664 | #f) | |
7665 | #f) | |
7666 | (symbol? | |
7667 | (vector-ref | |
7668 | #{name 21504}# | |
7669 | 1)) | |
7670 | #f))) | |
7671 | #{tmp 21500}#) | |
7672 | #f) | |
7673 | (@apply | |
7674 | (lambda (#{name 21532}# | |
7675 | #{val 21533}#) | |
7676 | (values | |
7677 | 'define-syntax-form | |
7678 | #{name 21532}# | |
7679 | #{val 21533}# | |
7680 | #{w 20504}# | |
7681 | #{s 20505}# | |
7682 | #{mod 20507}#)) | |
7683 | #{tmp 21500}#) | |
7684 | (syntax-violation | |
7685 | #f | |
7686 | "source expression failed to match any pattern" | |
7687 | #{e 20502}#))) | |
7688 | (values | |
7689 | 'call | |
7690 | #f | |
7691 | #{e 20502}# | |
7692 | #{w 20504}# | |
7693 | #{s 20505}# | |
7694 | #{mod 20507}#)))))))))))))) | |
7695 | (if (if (vector? #{e 20502}#) | |
7696 | (if (= (vector-length #{e 20502}#) 4) | |
7697 | (eq? (vector-ref #{e 20502}# 0) 'syntax-object) | |
7698 | #f) | |
7699 | #f) | |
7700 | (#{syntax-type 4344}# | |
7701 | (vector-ref #{e 20502}# 1) | |
7702 | #{r 20503}# | |
7703 | (#{join-wraps 4329}# | |
7704 | #{w 20504}# | |
7705 | (vector-ref #{e 20502}# 2)) | |
7706 | (let ((#{t 21560}# | |
7707 | (#{source-annotation 4306}# #{e 20502}#))) | |
7708 | (if #{t 21560}# #{t 21560}# #{s 20505}#)) | |
7709 | #{rib 20506}# | |
7710 | (let ((#{t 21820}# (vector-ref #{e 20502}# 3))) | |
7711 | (if #{t 21820}# #{t 21820}# #{mod 20507}#)) | |
7712 | #{for-car? 20508}#) | |
7713 | (if (self-evaluating? #{e 20502}#) | |
7714 | (values | |
7715 | 'constant | |
7716 | #f | |
7717 | #{e 20502}# | |
7718 | #{w 20504}# | |
7719 | #{s 20505}# | |
7720 | #{mod 20507}#) | |
7721 | (values | |
7722 | 'other | |
7723 | #f | |
7724 | #{e 20502}# | |
7725 | #{w 20504}# | |
7726 | #{s 20505}# | |
7727 | #{mod 20507}#))))))) | |
7728 | (#{expand 4345}# | |
7729 | (lambda (#{e 21829}# | |
7730 | #{r 21830}# | |
7731 | #{w 21831}# | |
7732 | #{mod 21832}#) | |
7733 | (call-with-values | |
7734 | (lambda () | |
7735 | (#{syntax-type 4344}# | |
7736 | #{e 21829}# | |
7737 | #{r 21830}# | |
7738 | #{w 21831}# | |
7739 | (#{source-annotation 4306}# #{e 21829}#) | |
7740 | #f | |
7741 | #{mod 21832}# | |
7742 | #f)) | |
7743 | (lambda (#{type 22006}# | |
7744 | #{value 22007}# | |
7745 | #{e 22008}# | |
7746 | #{w 22009}# | |
7747 | #{s 22010}# | |
7748 | #{mod 22011}#) | |
7749 | (#{expand-expr 4346}# | |
7750 | #{type 22006}# | |
7751 | #{value 22007}# | |
7752 | #{e 22008}# | |
7753 | #{r 21830}# | |
7754 | #{w 22009}# | |
7755 | #{s 22010}# | |
7756 | #{mod 22011}#))))) | |
7757 | (#{expand-expr 4346}# | |
7758 | (lambda (#{type 22014}# | |
7759 | #{value 22015}# | |
7760 | #{e 22016}# | |
7761 | #{r 22017}# | |
7762 | #{w 22018}# | |
7763 | #{s 22019}# | |
7764 | #{mod 22020}#) | |
7765 | (if (eqv? #{type 22014}# 'lexical) | |
7766 | (make-struct/no-tail | |
7767 | (vector-ref %expanded-vtables 3) | |
7768 | #{s 22019}# | |
7769 | #{e 22016}# | |
7770 | #{value 22015}#) | |
7771 | (if (if (eqv? #{type 22014}# 'core) | |
7772 | #t | |
7773 | (eqv? #{type 22014}# 'core-form)) | |
7774 | (#{value 22015}# | |
7775 | #{e 22016}# | |
7776 | #{r 22017}# | |
7777 | #{w 22018}# | |
7778 | #{s 22019}# | |
7779 | #{mod 22020}#) | |
7780 | (if (eqv? #{type 22014}# 'module-ref) | |
7781 | (call-with-values | |
7782 | (lambda () | |
7783 | (#{value 22015}# | |
7784 | #{e 22016}# | |
7785 | #{r 22017}# | |
7786 | #{w 22018}#)) | |
7787 | (lambda (#{e 22046}# | |
7788 | #{r 22047}# | |
7789 | #{w 22048}# | |
7790 | #{s 22049}# | |
7791 | #{mod 22050}#) | |
7792 | (#{expand 4345}# | |
7793 | #{e 22046}# | |
7794 | #{r 22047}# | |
7795 | #{w 22048}# | |
7796 | #{mod 22050}#))) | |
7797 | (if (eqv? #{type 22014}# 'lexical-call) | |
7798 | (#{expand-application 4347}# | |
7799 | (let ((#{id 22130}# (car #{e 22016}#))) | |
7800 | (#{build-lexical-reference 4283}# | |
7801 | 'fun | |
7802 | (#{source-annotation 4306}# #{id 22130}#) | |
7803 | (if (if (vector? #{id 22130}#) | |
7804 | (if (= (vector-length #{id 22130}#) 4) | |
7805 | (eq? (vector-ref #{id 22130}# 0) 'syntax-object) | |
7806 | #f) | |
7807 | #f) | |
7808 | (syntax->datum #{id 22130}#) | |
7809 | #{id 22130}#) | |
7810 | #{value 22015}#)) | |
7811 | #{e 22016}# | |
7812 | #{r 22017}# | |
7813 | #{w 22018}# | |
7814 | #{s 22019}# | |
7815 | #{mod 22020}#) | |
7816 | (if (eqv? #{type 22014}# 'global-call) | |
7817 | (#{expand-application 4347}# | |
7818 | (#{build-global-reference 4286}# | |
7819 | (#{source-annotation 4306}# (car #{e 22016}#)) | |
7820 | (if (if (vector? #{value 22015}#) | |
7821 | (if (= (vector-length #{value 22015}#) 4) | |
7822 | (eq? (vector-ref #{value 22015}# 0) | |
7823 | 'syntax-object) | |
7824 | #f) | |
7825 | #f) | |
7826 | (vector-ref #{value 22015}# 1) | |
7827 | #{value 22015}#) | |
7828 | (if (if (vector? #{value 22015}#) | |
7829 | (if (= (vector-length #{value 22015}#) 4) | |
7830 | (eq? (vector-ref #{value 22015}# 0) | |
7831 | 'syntax-object) | |
7832 | #f) | |
7833 | #f) | |
7834 | (vector-ref #{value 22015}# 3) | |
7835 | #{mod 22020}#)) | |
7836 | #{e 22016}# | |
7837 | #{r 22017}# | |
7838 | #{w 22018}# | |
7839 | #{s 22019}# | |
7840 | #{mod 22020}#) | |
7841 | (if (eqv? #{type 22014}# 'constant) | |
7842 | (let ((#{exp 22666}# | |
7843 | (#{strip 4358}# | |
7844 | (#{wrap 4338}# | |
7845 | (begin | |
7846 | (if (if (pair? #{e 22016}#) #{s 22019}# #f) | |
7847 | (set-source-properties! | |
7848 | #{e 22016}# | |
7849 | #{s 22019}#)) | |
7850 | #{e 22016}#) | |
7851 | #{w 22018}# | |
7852 | #{mod 22020}#) | |
7853 | '(())))) | |
7854 | (make-struct/no-tail | |
7855 | (vector-ref %expanded-vtables 1) | |
7856 | #{s 22019}# | |
7857 | #{exp 22666}#)) | |
7858 | (if (eqv? #{type 22014}# 'global) | |
7859 | (#{analyze-variable 4285}# | |
7860 | #{mod 22020}# | |
7861 | #{value 22015}# | |
7862 | (lambda (#{mod 22702}# #{var 22703}# #{public? 22704}#) | |
7863 | (make-struct/no-tail | |
7864 | (vector-ref %expanded-vtables 5) | |
7865 | #{s 22019}# | |
7866 | #{mod 22702}# | |
7867 | #{var 22703}# | |
7868 | #{public? 22704}#)) | |
7869 | (lambda (#{var 22713}#) | |
7870 | (make-struct/no-tail | |
7871 | (vector-ref %expanded-vtables 7) | |
7872 | #{s 22019}# | |
7873 | #{var 22713}#))) | |
7874 | (if (eqv? #{type 22014}# 'call) | |
7875 | (#{expand-application 4347}# | |
7876 | (#{expand 4345}# | |
7877 | (car #{e 22016}#) | |
7878 | #{r 22017}# | |
7879 | #{w 22018}# | |
7880 | #{mod 22020}#) | |
7881 | #{e 22016}# | |
7882 | #{r 22017}# | |
7883 | #{w 22018}# | |
7884 | #{s 22019}# | |
7885 | #{mod 22020}#) | |
7886 | (if (eqv? #{type 22014}# 'begin-form) | |
7887 | (let ((#{tmp 22793}# | |
7888 | ($sc-dispatch | |
7889 | #{e 22016}# | |
7890 | '(_ any . each-any)))) | |
7891 | (if #{tmp 22793}# | |
7892 | (@apply | |
7893 | (lambda (#{e1 22797}# #{e2 22798}#) | |
7894 | (#{expand-sequence 4340}# | |
7895 | (cons #{e1 22797}# #{e2 22798}#) | |
7896 | #{r 22017}# | |
7897 | #{w 22018}# | |
7898 | #{s 22019}# | |
7899 | #{mod 22020}#)) | |
7900 | #{tmp 22793}#) | |
7901 | (syntax-violation | |
7902 | #f | |
7903 | "source expression failed to match any pattern" | |
7904 | #{e 22016}#))) | |
7905 | (if (eqv? #{type 22014}# 'local-syntax-form) | |
7906 | (#{expand-local-syntax 4350}# | |
7907 | #{value 22015}# | |
7908 | #{e 22016}# | |
7909 | #{r 22017}# | |
7910 | #{w 22018}# | |
7911 | #{s 22019}# | |
7912 | #{mod 22020}# | |
7913 | #{expand-sequence 4340}#) | |
7914 | (if (eqv? #{type 22014}# 'eval-when-form) | |
7915 | (let ((#{tmp 22964}# | |
7916 | ($sc-dispatch | |
7917 | #{e 22016}# | |
7918 | '(_ each-any any . each-any)))) | |
7919 | (if #{tmp 22964}# | |
7920 | (@apply | |
7921 | (lambda (#{x 22968}# | |
7922 | #{e1 22969}# | |
7923 | #{e2 22970}#) | |
7924 | (let ((#{when-list 22971}# | |
7925 | (#{expand-when-list 4343}# | |
7926 | #{e 22016}# | |
7927 | #{x 22968}# | |
7928 | #{w 22018}#))) | |
7929 | (if (memq 'eval #{when-list 22971}#) | |
7930 | (#{expand-sequence 4340}# | |
7931 | (cons #{e1 22969}# #{e2 22970}#) | |
7932 | #{r 22017}# | |
7933 | #{w 22018}# | |
7934 | #{s 22019}# | |
7935 | #{mod 22020}#) | |
7936 | (make-struct/no-tail | |
7937 | (vector-ref %expanded-vtables 0) | |
7938 | #f)))) | |
7939 | #{tmp 22964}#) | |
7940 | (syntax-violation | |
7941 | #f | |
7942 | "source expression failed to match any pattern" | |
7943 | #{e 22016}#))) | |
7944 | (if (if (eqv? #{type 22014}# 'define-form) | |
7945 | #t | |
7946 | (eqv? #{type 22014}# 'define-syntax-form)) | |
7947 | (syntax-violation | |
7948 | #f | |
7949 | "definition in expression context" | |
7950 | #{e 22016}# | |
7951 | (#{wrap 4338}# | |
7952 | #{value 22015}# | |
7953 | #{w 22018}# | |
7954 | #{mod 22020}#)) | |
7955 | (if (eqv? #{type 22014}# 'syntax) | |
7956 | (syntax-violation | |
7957 | #f | |
7958 | "reference to pattern variable outside syntax form" | |
7959 | (#{wrap 4338}# | |
7960 | (begin | |
7961 | (if (if (pair? #{e 22016}#) | |
7962 | #{s 22019}# | |
7963 | #f) | |
7964 | (set-source-properties! | |
7965 | #{e 22016}# | |
7966 | #{s 22019}#)) | |
7967 | #{e 22016}#) | |
7968 | #{w 22018}# | |
7969 | #{mod 22020}#)) | |
7970 | (if (eqv? #{type 22014}# 'displaced-lexical) | |
7971 | (syntax-violation | |
7972 | #f | |
7973 | "reference to identifier outside its scope" | |
7974 | (#{wrap 4338}# | |
7975 | (begin | |
7976 | (if (if (pair? #{e 22016}#) | |
7977 | #{s 22019}# | |
7978 | #f) | |
7979 | (set-source-properties! | |
7980 | #{e 22016}# | |
7981 | #{s 22019}#)) | |
7982 | #{e 22016}#) | |
7983 | #{w 22018}# | |
7984 | #{mod 22020}#)) | |
7985 | (syntax-violation | |
7986 | #f | |
7987 | "unexpected syntax" | |
7988 | (#{wrap 4338}# | |
7989 | (begin | |
7990 | (if (if (pair? #{e 22016}#) | |
7991 | #{s 22019}# | |
7992 | #f) | |
7993 | (set-source-properties! | |
7994 | #{e 22016}# | |
7995 | #{s 22019}#)) | |
7996 | #{e 22016}#) | |
7997 | #{w 22018}# | |
7998 | #{mod 22020}#)))))))))))))))))) | |
7999 | (#{expand-application 4347}# | |
8000 | (lambda (#{x 23160}# | |
8001 | #{e 23161}# | |
8002 | #{r 23162}# | |
8003 | #{w 23163}# | |
8004 | #{s 23164}# | |
8005 | #{mod 23165}#) | |
8006 | (let ((#{tmp 23167}# | |
8007 | ($sc-dispatch #{e 23161}# '(any . each-any)))) | |
8008 | (if #{tmp 23167}# | |
8009 | (@apply | |
8010 | (lambda (#{e0 23171}# #{e1 23172}#) | |
8011 | (#{build-application 4280}# | |
8012 | #{s 23164}# | |
8013 | #{x 23160}# | |
8014 | (map (lambda (#{e 23257}#) | |
8015 | (#{expand 4345}# | |
8016 | #{e 23257}# | |
8017 | #{r 23162}# | |
8018 | #{w 23163}# | |
8019 | #{mod 23165}#)) | |
8020 | #{e1 23172}#))) | |
8021 | #{tmp 23167}#) | |
8022 | (syntax-violation | |
8023 | #f | |
8024 | "source expression failed to match any pattern" | |
8025 | #{e 23161}#))))) | |
8026 | (#{expand-macro 4348}# | |
8027 | (lambda (#{p 23338}# | |
8028 | #{e 23339}# | |
8029 | #{r 23340}# | |
8030 | #{w 23341}# | |
8031 | #{s 23342}# | |
8032 | #{rib 23343}# | |
8033 | #{mod 23344}#) | |
8034 | (letrec* | |
8035 | ((#{rebuild-macro-output 23345}# | |
8036 | (lambda (#{x 23376}# #{m 23377}#) | |
8037 | (if (pair? #{x 23376}#) | |
8038 | (let ((#{e 23381}# | |
8039 | (cons (#{rebuild-macro-output 23345}# | |
8040 | (car #{x 23376}#) | |
8041 | #{m 23377}#) | |
8042 | (#{rebuild-macro-output 23345}# | |
8043 | (cdr #{x 23376}#) | |
8044 | #{m 23377}#)))) | |
8045 | (begin | |
8046 | (if (if (pair? #{e 23381}#) #{s 23342}# #f) | |
8047 | (set-source-properties! #{e 23381}# #{s 23342}#)) | |
8048 | #{e 23381}#)) | |
8049 | (if (if (vector? #{x 23376}#) | |
8050 | (if (= (vector-length #{x 23376}#) 4) | |
8051 | (eq? (vector-ref #{x 23376}# 0) 'syntax-object) | |
8052 | #f) | |
8053 | #f) | |
8054 | (let ((#{w 23397}# (vector-ref #{x 23376}# 2))) | |
8055 | (let ((#{ms 23398}# (car #{w 23397}#)) | |
8056 | (#{s 23399}# (cdr #{w 23397}#))) | |
8057 | (if (if (pair? #{ms 23398}#) | |
8058 | (eq? (car #{ms 23398}#) #f) | |
8059 | #f) | |
8060 | (let ((#{expression 23407}# (vector-ref #{x 23376}# 1)) | |
8061 | (#{wrap 23408}# | |
8062 | (cons (cdr #{ms 23398}#) | |
8063 | (if #{rib 23343}# | |
8064 | (cons #{rib 23343}# (cdr #{s 23399}#)) | |
8065 | (cdr #{s 23399}#)))) | |
8066 | (#{module 23409}# (vector-ref #{x 23376}# 3))) | |
8067 | (vector | |
8068 | 'syntax-object | |
8069 | #{expression 23407}# | |
8070 | #{wrap 23408}# | |
8071 | #{module 23409}#)) | |
8072 | (let ((#{expression 23419}# | |
8073 | (let ((#{e 23424}# (vector-ref #{x 23376}# 1))) | |
8074 | (begin | |
8075 | (if (if (pair? #{e 23424}#) #{s 23399}# #f) | |
8076 | (set-source-properties! | |
8077 | #{e 23424}# | |
8078 | #{s 23399}#)) | |
8079 | #{e 23424}#))) | |
8080 | (#{wrap 23420}# | |
8081 | (cons (cons #{m 23377}# #{ms 23398}#) | |
8082 | (if #{rib 23343}# | |
8083 | (cons #{rib 23343}# | |
8084 | (cons 'shift #{s 23399}#)) | |
8085 | (cons 'shift #{s 23399}#)))) | |
8086 | (#{module 23421}# (vector-ref #{x 23376}# 3))) | |
8087 | (vector | |
8088 | 'syntax-object | |
8089 | #{expression 23419}# | |
8090 | #{wrap 23420}# | |
8091 | #{module 23421}#))))) | |
8092 | (if (vector? #{x 23376}#) | |
8093 | (let ((#{n 23436}# (vector-length #{x 23376}#))) | |
8094 | (let ((#{v 23437}# | |
8095 | (let ((#{e 23445}# (make-vector #{n 23436}#))) | |
8096 | (begin | |
8097 | (if (if (pair? #{e 23445}#) #{x 23376}# #f) | |
8098 | (set-source-properties! | |
8099 | #{e 23445}# | |
8100 | #{x 23376}#)) | |
8101 | #{e 23445}#)))) | |
8102 | (letrec* | |
8103 | ((#{loop 23438}# | |
8104 | (lambda (#{i 23490}#) | |
8105 | (if (= #{i 23490}# #{n 23436}#) | |
8106 | #{v 23437}# | |
8107 | (begin | |
8108 | (vector-set! | |
8109 | #{v 23437}# | |
8110 | #{i 23490}# | |
8111 | (#{rebuild-macro-output 23345}# | |
8112 | (vector-ref #{x 23376}# #{i 23490}#) | |
8113 | #{m 23377}#)) | |
8114 | (#{loop 23438}# (#{1+}# #{i 23490}#))))))) | |
8115 | (#{loop 23438}# 0)))) | |
8116 | (if (symbol? #{x 23376}#) | |
8117 | (syntax-violation | |
8118 | #f | |
8119 | "encountered raw symbol in macro output" | |
8120 | (let ((#{s 23496}# (cdr #{w 23341}#))) | |
8121 | (#{wrap 4338}# | |
8122 | (begin | |
8123 | (if (if (pair? #{e 23339}#) #{s 23496}# #f) | |
8124 | (set-source-properties! | |
8125 | #{e 23339}# | |
8126 | #{s 23496}#)) | |
8127 | #{e 23339}#) | |
8128 | #{w 23341}# | |
8129 | #{mod 23344}#)) | |
8130 | #{x 23376}#) | |
8131 | (begin | |
8132 | (if (if (pair? #{x 23376}#) #{s 23342}# #f) | |
8133 | (set-source-properties! #{x 23376}# #{s 23342}#)) | |
8134 | #{x 23376}#)))))))) | |
8135 | (#{rebuild-macro-output 23345}# | |
8136 | (#{p 23338}# | |
8137 | (let ((#{w 23352}# | |
8138 | (cons (cons #f (car #{w 23341}#)) | |
8139 | (cons 'shift (cdr #{w 23341}#))))) | |
8140 | (#{wrap 4338}# | |
8141 | (begin | |
8142 | (if (if (pair? #{e 23339}#) #{s 23342}# #f) | |
8143 | (set-source-properties! #{e 23339}# #{s 23342}#)) | |
8144 | #{e 23339}#) | |
8145 | #{w 23352}# | |
8146 | #{mod 23344}#))) | |
8147 | (gensym "m"))))) | |
8148 | (#{expand-body 4349}# | |
8149 | (lambda (#{body 23528}# | |
8150 | #{outer-form 23529}# | |
8151 | #{r 23530}# | |
8152 | #{w 23531}# | |
8153 | #{mod 23532}#) | |
8154 | (let ((#{r 23533}# | |
8155 | (cons '("placeholder" placeholder) #{r 23530}#))) | |
8156 | (let ((#{ribcage 23534}# (vector 'ribcage '() '() '()))) | |
8157 | (let ((#{w 23535}# | |
8158 | (cons (car #{w 23531}#) | |
8159 | (cons #{ribcage 23534}# (cdr #{w 23531}#))))) | |
8160 | (letrec* | |
8161 | ((#{parse 23536}# | |
8162 | (lambda (#{body 23549}# | |
8163 | #{ids 23550}# | |
8164 | #{labels 23551}# | |
8165 | #{var-ids 23552}# | |
8166 | #{vars 23553}# | |
8167 | #{vals 23554}# | |
8168 | #{bindings 23555}#) | |
8169 | (if (null? #{body 23549}#) | |
8170 | (syntax-violation | |
8171 | #f | |
8172 | "no expressions in body" | |
8173 | #{outer-form 23529}#) | |
8174 | (let ((#{e 23556}# (cdr (car #{body 23549}#))) | |
8175 | (#{er 23557}# (car (car #{body 23549}#)))) | |
8176 | (call-with-values | |
8177 | (lambda () | |
8178 | (#{syntax-type 4344}# | |
8179 | #{e 23556}# | |
8180 | #{er 23557}# | |
8181 | '(()) | |
8182 | (#{source-annotation 4306}# #{er 23557}#) | |
8183 | #{ribcage 23534}# | |
8184 | #{mod 23532}# | |
8185 | #f)) | |
8186 | (lambda (#{type 23733}# | |
8187 | #{value 23734}# | |
8188 | #{e 23735}# | |
8189 | #{w 23736}# | |
8190 | #{s 23737}# | |
8191 | #{mod 23738}#) | |
8192 | (if (eqv? #{type 23733}# 'define-form) | |
8193 | (let ((#{id 23742}# | |
8194 | (#{wrap 4338}# | |
8195 | #{value 23734}# | |
8196 | #{w 23736}# | |
8197 | #{mod 23738}#)) | |
8198 | (#{label 23743}# | |
8199 | (symbol->string (gensym "i")))) | |
8200 | (let ((#{var 23744}# | |
8201 | (let ((#{id 23804}# | |
8202 | (if (if (vector? #{id 23742}#) | |
8203 | (if (= (vector-length | |
8204 | #{id 23742}#) | |
8205 | 4) | |
8206 | (eq? (vector-ref | |
8207 | #{id 23742}# | |
8208 | 0) | |
8209 | 'syntax-object) | |
8210 | #f) | |
8211 | #f) | |
8212 | (vector-ref #{id 23742}# 1) | |
8213 | #{id 23742}#))) | |
8214 | (gensym | |
8215 | (string-append | |
8216 | (symbol->string #{id 23804}#) | |
8217 | " "))))) | |
8218 | (begin | |
8219 | (let ((#{update 23794}# | |
8220 | (cons (vector-ref #{id 23742}# 1) | |
8221 | (vector-ref | |
8222 | #{ribcage 23534}# | |
8223 | 1)))) | |
8224 | (vector-set! | |
8225 | #{ribcage 23534}# | |
8226 | 1 | |
8227 | #{update 23794}#)) | |
8228 | (let ((#{update 23796}# | |
8229 | (cons (car (vector-ref | |
8230 | #{id 23742}# | |
8231 | 2)) | |
8232 | (vector-ref | |
8233 | #{ribcage 23534}# | |
8234 | 2)))) | |
8235 | (vector-set! | |
8236 | #{ribcage 23534}# | |
8237 | 2 | |
8238 | #{update 23796}#)) | |
8239 | (let ((#{update 23798}# | |
8240 | (cons #{label 23743}# | |
8241 | (vector-ref | |
8242 | #{ribcage 23534}# | |
8243 | 3)))) | |
8244 | (vector-set! | |
8245 | #{ribcage 23534}# | |
8246 | 3 | |
8247 | #{update 23798}#)) | |
8248 | (#{parse 23536}# | |
8249 | (cdr #{body 23549}#) | |
8250 | (cons #{id 23742}# #{ids 23550}#) | |
8251 | (cons #{label 23743}# #{labels 23551}#) | |
8252 | (cons #{id 23742}# #{var-ids 23552}#) | |
8253 | (cons #{var 23744}# #{vars 23553}#) | |
8254 | (cons (cons #{er 23557}# | |
8255 | (#{wrap 4338}# | |
8256 | #{e 23735}# | |
8257 | #{w 23736}# | |
8258 | #{mod 23738}#)) | |
8259 | #{vals 23554}#) | |
8260 | (cons (cons 'lexical #{var 23744}#) | |
8261 | #{bindings 23555}#))))) | |
8262 | (if (eqv? #{type 23733}# 'define-syntax-form) | |
8263 | (let ((#{id 23832}# | |
8264 | (#{wrap 4338}# | |
8265 | #{value 23734}# | |
8266 | #{w 23736}# | |
8267 | #{mod 23738}#)) | |
8268 | (#{label 23833}# | |
8269 | (symbol->string (gensym "i")))) | |
8270 | (begin | |
8271 | (let ((#{update 23883}# | |
8272 | (cons (vector-ref #{id 23832}# 1) | |
8273 | (vector-ref | |
8274 | #{ribcage 23534}# | |
8275 | 1)))) | |
8276 | (vector-set! | |
8277 | #{ribcage 23534}# | |
8278 | 1 | |
8279 | #{update 23883}#)) | |
8280 | (let ((#{update 23885}# | |
8281 | (cons (car (vector-ref | |
8282 | #{id 23832}# | |
8283 | 2)) | |
8284 | (vector-ref | |
8285 | #{ribcage 23534}# | |
8286 | 2)))) | |
8287 | (vector-set! | |
8288 | #{ribcage 23534}# | |
8289 | 2 | |
8290 | #{update 23885}#)) | |
8291 | (let ((#{update 23887}# | |
8292 | (cons #{label 23833}# | |
8293 | (vector-ref | |
8294 | #{ribcage 23534}# | |
8295 | 3)))) | |
8296 | (vector-set! | |
8297 | #{ribcage 23534}# | |
8298 | 3 | |
8299 | #{update 23887}#)) | |
8300 | (#{parse 23536}# | |
8301 | (cdr #{body 23549}#) | |
8302 | (cons #{id 23832}# #{ids 23550}#) | |
8303 | (cons #{label 23833}# #{labels 23551}#) | |
8304 | #{var-ids 23552}# | |
8305 | #{vars 23553}# | |
8306 | #{vals 23554}# | |
8307 | (cons (cons 'macro | |
8308 | (cons #{er 23557}# | |
8309 | (#{wrap 4338}# | |
8310 | #{e 23735}# | |
8311 | #{w 23736}# | |
8312 | #{mod 23738}#))) | |
8313 | #{bindings 23555}#)))) | |
8314 | (if (eqv? #{type 23733}# 'begin-form) | |
8315 | (let ((#{tmp 23895}# | |
8316 | ($sc-dispatch | |
8317 | #{e 23735}# | |
8318 | '(_ . each-any)))) | |
8319 | (if #{tmp 23895}# | |
8320 | (@apply | |
8321 | (lambda (#{e1 23899}#) | |
8322 | (#{parse 23536}# | |
8323 | (letrec* | |
8324 | ((#{f 23900}# | |
8325 | (lambda (#{forms 23963}#) | |
8326 | (if (null? #{forms 23963}#) | |
8327 | (cdr #{body 23549}#) | |
8328 | (cons (cons #{er 23557}# | |
8329 | (#{wrap 4338}# | |
8330 | (car #{forms 23963}#) | |
8331 | #{w 23736}# | |
8332 | #{mod 23738}#)) | |
8333 | (#{f 23900}# | |
8334 | (cdr #{forms 23963}#))))))) | |
8335 | (#{f 23900}# #{e1 23899}#)) | |
8336 | #{ids 23550}# | |
8337 | #{labels 23551}# | |
8338 | #{var-ids 23552}# | |
8339 | #{vars 23553}# | |
8340 | #{vals 23554}# | |
8341 | #{bindings 23555}#)) | |
8342 | #{tmp 23895}#) | |
8343 | (syntax-violation | |
8344 | #f | |
8345 | "source expression failed to match any pattern" | |
8346 | #{e 23735}#))) | |
8347 | (if (eqv? #{type 23733}# 'local-syntax-form) | |
8348 | (#{expand-local-syntax 4350}# | |
8349 | #{value 23734}# | |
8350 | #{e 23735}# | |
8351 | #{er 23557}# | |
8352 | #{w 23736}# | |
8353 | #{s 23737}# | |
8354 | #{mod 23738}# | |
8355 | (lambda (#{forms 23977}# | |
8356 | #{er 23978}# | |
8357 | #{w 23979}# | |
8358 | #{s 23980}# | |
8359 | #{mod 23981}#) | |
8360 | (#{parse 23536}# | |
8361 | (letrec* | |
8362 | ((#{f 23982}# | |
8363 | (lambda (#{forms 24045}#) | |
8364 | (if (null? #{forms 24045}#) | |
8365 | (cdr #{body 23549}#) | |
8366 | (cons (cons #{er 23978}# | |
8367 | (#{wrap 4338}# | |
8368 | (car #{forms 24045}#) | |
8369 | #{w 23979}# | |
8370 | #{mod 23981}#)) | |
8371 | (#{f 23982}# | |
8372 | (cdr #{forms 24045}#))))))) | |
8373 | (#{f 23982}# #{forms 23977}#)) | |
8374 | #{ids 23550}# | |
8375 | #{labels 23551}# | |
8376 | #{var-ids 23552}# | |
8377 | #{vars 23553}# | |
8378 | #{vals 23554}# | |
8379 | #{bindings 23555}#))) | |
8380 | (if (null? #{ids 23550}#) | |
8381 | (#{build-sequence 4294}# | |
8382 | #f | |
8383 | (map (lambda (#{x 24115}#) | |
8384 | (#{expand 4345}# | |
8385 | (cdr #{x 24115}#) | |
8386 | (car #{x 24115}#) | |
8387 | '(()) | |
8388 | #{mod 23738}#)) | |
8389 | (cons (cons #{er 23557}# | |
8390 | (#{wrap 4338}# | |
8391 | (begin | |
8392 | (if (if (pair? #{e 23735}#) | |
8393 | #{s 23737}# | |
8394 | #f) | |
8395 | (set-source-properties! | |
8396 | #{e 23735}# | |
8397 | #{s 23737}#)) | |
8398 | #{e 23735}#) | |
8399 | #{w 23736}# | |
8400 | #{mod 23738}#)) | |
8401 | (cdr #{body 23549}#)))) | |
8402 | (begin | |
8403 | (if (not (#{valid-bound-ids? 4335}# | |
8404 | #{ids 23550}#)) | |
8405 | (syntax-violation | |
8406 | #f | |
8407 | "invalid or duplicate identifier in definition" | |
8408 | #{outer-form 23529}#)) | |
8409 | (letrec* | |
8410 | ((#{loop 24277}# | |
8411 | (lambda (#{bs 24280}# | |
8412 | #{er-cache 24281}# | |
8413 | #{r-cache 24282}#) | |
8414 | (if (not (null? #{bs 24280}#)) | |
8415 | (let ((#{b 24283}# | |
8416 | (car #{bs 24280}#))) | |
8417 | (if (eq? (car #{b 24283}#) | |
8418 | 'macro) | |
8419 | (let ((#{er 24285}# | |
8420 | (car (cdr #{b 24283}#)))) | |
8421 | (let ((#{r-cache 24286}# | |
8422 | (if (eq? #{er 24285}# | |
8423 | #{er-cache 24281}#) | |
8424 | #{r-cache 24282}# | |
8425 | (#{macros-only-env 4309}# | |
8426 | #{er 24285}#)))) | |
8427 | (begin | |
8428 | (set-cdr! | |
8429 | #{b 24283}# | |
8430 | (#{eval-local-transformer 4351}# | |
8431 | (#{expand 4345}# | |
8432 | (cdr (cdr #{b 24283}#)) | |
8433 | #{r-cache 24286}# | |
8434 | '(()) | |
8435 | #{mod 23738}#) | |
8436 | #{mod 23738}#)) | |
8437 | (#{loop 24277}# | |
8438 | (cdr #{bs 24280}#) | |
8439 | #{er 24285}# | |
8440 | #{r-cache 24286}#)))) | |
8441 | (#{loop 24277}# | |
8442 | (cdr #{bs 24280}#) | |
8443 | #{er-cache 24281}# | |
8444 | #{r-cache 24282}#))))))) | |
8445 | (#{loop 24277}# | |
8446 | #{bindings 23555}# | |
8447 | #f | |
8448 | #f)) | |
8449 | (set-cdr! | |
8450 | #{r 23533}# | |
8451 | (#{extend-env 4307}# | |
8452 | #{labels 23551}# | |
8453 | #{bindings 23555}# | |
8454 | (cdr #{r 23533}#))) | |
8455 | (#{build-letrec 4297}# | |
8456 | #f | |
8457 | #t | |
8458 | (reverse | |
8459 | (map syntax->datum | |
8460 | #{var-ids 23552}#)) | |
8461 | (reverse #{vars 23553}#) | |
8462 | (map (lambda (#{x 24639}#) | |
8463 | (#{expand 4345}# | |
8464 | (cdr #{x 24639}#) | |
8465 | (car #{x 24639}#) | |
8466 | '(()) | |
8467 | #{mod 23738}#)) | |
8468 | (reverse #{vals 23554}#)) | |
8469 | (#{build-sequence 4294}# | |
8470 | #f | |
8471 | (map (lambda (#{x 24769}#) | |
8472 | (#{expand 4345}# | |
8473 | (cdr #{x 24769}#) | |
8474 | (car #{x 24769}#) | |
8475 | '(()) | |
8476 | #{mod 23738}#)) | |
8477 | (cons (cons #{er 23557}# | |
8478 | (#{wrap 4338}# | |
8479 | (begin | |
8480 | (if (if (pair? #{e 23735}#) | |
8481 | #{s 23737}# | |
8482 | #f) | |
8483 | (set-source-properties! | |
8484 | #{e 23735}# | |
8485 | #{s 23737}#)) | |
8486 | #{e 23735}#) | |
8487 | #{w 23736}# | |
8488 | #{mod 23738}#)) | |
8489 | (cdr #{body 23549}#)))))))))))))))))) | |
8490 | (#{parse 23536}# | |
8491 | (map (lambda (#{x 23539}#) | |
8492 | (cons #{r 23533}# | |
8493 | (#{wrap 4338}# | |
8494 | #{x 23539}# | |
8495 | #{w 23535}# | |
8496 | #{mod 23532}#))) | |
8497 | #{body 23528}#) | |
8498 | '() | |
8499 | '() | |
8500 | '() | |
8501 | '() | |
8502 | '() | |
8503 | '()))))))) | |
8504 | (#{expand-local-syntax 4350}# | |
8505 | (lambda (#{rec? 24854}# | |
8506 | #{e 24855}# | |
8507 | #{r 24856}# | |
8508 | #{w 24857}# | |
8509 | #{s 24858}# | |
8510 | #{mod 24859}# | |
8511 | #{k 24860}#) | |
8512 | (let ((#{tmp 24862}# | |
8513 | ($sc-dispatch | |
8514 | #{e 24855}# | |
8515 | '(_ #(each (any any)) any . each-any)))) | |
8516 | (if #{tmp 24862}# | |
8517 | (@apply | |
8518 | (lambda (#{id 24866}# | |
8519 | #{val 24867}# | |
8520 | #{e1 24868}# | |
8521 | #{e2 24869}#) | |
8522 | (if (not (#{valid-bound-ids? 4335}# #{id 24866}#)) | |
8523 | (syntax-violation | |
8524 | #f | |
8525 | "duplicate bound keyword" | |
8526 | #{e 24855}#) | |
8527 | (let ((#{labels 24959}# | |
8528 | (#{gen-labels 4316}# #{id 24866}#))) | |
8529 | (let ((#{new-w 24960}# | |
8530 | (#{make-binding-wrap 4327}# | |
8531 | #{id 24866}# | |
8532 | #{labels 24959}# | |
8533 | #{w 24857}#))) | |
8534 | (#{k 24860}# | |
8535 | (cons #{e1 24868}# #{e2 24869}#) | |
8536 | (#{extend-env 4307}# | |
8537 | #{labels 24959}# | |
8538 | (let ((#{trans-r 24998}# | |
8539 | (#{macros-only-env 4309}# #{r 24856}#))) | |
8540 | (begin | |
8541 | (if #{rec? 24854}# (if #f #f)) | |
8542 | (map (lambda (#{x 24999}#) | |
8543 | (cons 'macro | |
8544 | (#{eval-local-transformer 4351}# | |
8545 | (#{expand 4345}# | |
8546 | #{x 24999}# | |
8547 | #{trans-r 24998}# | |
8548 | (if #{rec? 24854}# | |
8549 | #{new-w 24960}# | |
8550 | #{w 24857}#) | |
8551 | #{mod 24859}#) | |
8552 | #{mod 24859}#))) | |
8553 | #{val 24867}#))) | |
8554 | #{r 24856}#) | |
8555 | #{new-w 24960}# | |
8556 | #{s 24858}# | |
8557 | #{mod 24859}#))))) | |
8558 | #{tmp 24862}#) | |
8559 | (syntax-violation | |
8560 | #f | |
8561 | "bad local syntax definition" | |
8562 | (#{wrap 4338}# | |
8563 | (begin | |
8564 | (if (if (pair? #{e 24855}#) #{s 24858}# #f) | |
8565 | (set-source-properties! #{e 24855}# #{s 24858}#)) | |
8566 | #{e 24855}#) | |
8567 | #{w 24857}# | |
8568 | #{mod 24859}#)))))) | |
8569 | (#{eval-local-transformer 4351}# | |
8570 | (lambda (#{expanded 25300}# #{mod 25301}#) | |
8571 | (let ((#{p 25302}# (primitive-eval #{expanded 25300}#))) | |
8572 | (if (procedure? #{p 25302}#) | |
8573 | #{p 25302}# | |
8574 | (syntax-violation | |
8575 | #f | |
8576 | "nonprocedure transformer" | |
8577 | #{p 25302}#))))) | |
8578 | (#{ellipsis? 4353}# | |
8579 | (lambda (#{x 5159}#) | |
8580 | (if (if (if (vector? #{x 5159}#) | |
8581 | (if (= (vector-length #{x 5159}#) 4) | |
8582 | (eq? (vector-ref #{x 5159}# 0) 'syntax-object) | |
8583 | #f) | |
8584 | #f) | |
8585 | (symbol? (vector-ref #{x 5159}# 1)) | |
8586 | #f) | |
8587 | (if (eq? (if (if (vector? #{x 5159}#) | |
8588 | (if (= (vector-length #{x 5159}#) 4) | |
8589 | (eq? (vector-ref #{x 5159}# 0) 'syntax-object) | |
8590 | #f) | |
8591 | #f) | |
8592 | (vector-ref #{x 5159}# 1) | |
8593 | #{x 5159}#) | |
8594 | (if (if (= (vector-length | |
8595 | '#(syntax-object | |
8596 | ... | |
8597 | ((top) | |
8598 | #(ribcage () () ()) | |
8599 | #(ribcage () () ()) | |
8600 | #(ribcage #(x) #((top)) #("i2230")) | |
8601 | #(ribcage | |
8602 | (lambda-var-list | |
8603 | gen-var | |
8604 | strip | |
8605 | expand-lambda-case | |
8606 | lambda*-formals | |
8607 | expand-simple-lambda | |
8608 | lambda-formals | |
8609 | ellipsis? | |
8610 | expand-void | |
8611 | eval-local-transformer | |
8612 | expand-local-syntax | |
8613 | expand-body | |
8614 | expand-macro | |
8615 | expand-application | |
8616 | expand-expr | |
8617 | expand | |
8618 | syntax-type | |
8619 | expand-when-list | |
8620 | expand-install-global | |
8621 | expand-top-sequence | |
8622 | expand-sequence | |
8623 | source-wrap | |
8624 | wrap | |
8625 | bound-id-member? | |
8626 | distinct-bound-ids? | |
8627 | valid-bound-ids? | |
8628 | bound-id=? | |
8629 | free-id=? | |
8630 | id-var-name | |
8631 | same-marks? | |
8632 | join-marks | |
8633 | join-wraps | |
8634 | smart-append | |
8635 | make-binding-wrap | |
8636 | extend-ribcage! | |
8637 | make-empty-ribcage | |
8638 | new-mark | |
8639 | anti-mark | |
8640 | the-anti-mark | |
8641 | top-marked? | |
8642 | top-wrap | |
8643 | empty-wrap | |
8644 | set-ribcage-labels! | |
8645 | set-ribcage-marks! | |
8646 | set-ribcage-symnames! | |
8647 | ribcage-labels | |
8648 | ribcage-marks | |
8649 | ribcage-symnames | |
8650 | ribcage? | |
8651 | make-ribcage | |
8652 | gen-labels | |
8653 | gen-label | |
8654 | make-rename | |
8655 | rename-marks | |
8656 | rename-new | |
8657 | rename-old | |
8658 | subst-rename? | |
8659 | wrap-subst | |
8660 | wrap-marks | |
8661 | make-wrap | |
8662 | id-sym-name&marks | |
8663 | id-sym-name | |
8664 | id? | |
8665 | nonsymbol-id? | |
8666 | global-extend | |
8667 | lookup | |
8668 | macros-only-env | |
8669 | extend-var-env | |
8670 | extend-env | |
8671 | null-env | |
8672 | binding-value | |
8673 | binding-type | |
8674 | make-binding | |
8675 | arg-check | |
8676 | source-annotation | |
8677 | no-source | |
8678 | set-syntax-object-module! | |
8679 | set-syntax-object-wrap! | |
8680 | set-syntax-object-expression! | |
8681 | syntax-object-module | |
8682 | syntax-object-wrap | |
8683 | syntax-object-expression | |
8684 | syntax-object? | |
8685 | make-syntax-object | |
8686 | build-lexical-var | |
8687 | build-letrec | |
8688 | build-named-let | |
8689 | build-let | |
8690 | build-sequence | |
8691 | build-data | |
8692 | build-primref | |
8693 | build-lambda-case | |
8694 | build-case-lambda | |
8695 | build-simple-lambda | |
8696 | build-global-definition | |
8697 | build-global-assignment | |
8698 | build-global-reference | |
8699 | analyze-variable | |
8700 | build-lexical-assignment | |
8701 | build-lexical-reference | |
8702 | build-dynlet | |
8703 | build-conditional | |
8704 | build-application | |
8705 | build-void | |
8706 | maybe-name-value! | |
8707 | decorate-source | |
8708 | get-global-definition-hook | |
8709 | put-global-definition-hook | |
8710 | gensym-hook | |
8711 | local-eval-hook | |
8712 | top-level-eval-hook | |
8713 | fx< | |
8714 | fx= | |
8715 | fx- | |
8716 | fx+ | |
8717 | set-lambda-meta! | |
8718 | lambda-meta | |
8719 | lambda? | |
8720 | make-dynlet | |
8721 | make-letrec | |
8722 | make-let | |
8723 | make-lambda-case | |
8724 | make-lambda | |
8725 | make-sequence | |
8726 | make-application | |
8727 | make-conditional | |
8728 | make-toplevel-define | |
8729 | make-toplevel-set | |
8730 | make-toplevel-ref | |
8731 | make-module-set | |
8732 | make-module-ref | |
8733 | make-lexical-set | |
8734 | make-lexical-ref | |
8735 | make-primitive-ref | |
8736 | make-const | |
8737 | make-void) | |
8738 | ((top) | |
8739 | (top) | |
8740 | (top) | |
8741 | (top) | |
8742 | (top) | |
8743 | (top) | |
8744 | (top) | |
8745 | (top) | |
8746 | (top) | |
8747 | (top) | |
8748 | (top) | |
8749 | (top) | |
8750 | (top) | |
8751 | (top) | |
8752 | (top) | |
8753 | (top) | |
8754 | (top) | |
8755 | (top) | |
8756 | (top) | |
8757 | (top) | |
8758 | (top) | |
8759 | (top) | |
8760 | (top) | |
8761 | (top) | |
8762 | (top) | |
8763 | (top) | |
8764 | (top) | |
8765 | (top) | |
8766 | (top) | |
8767 | (top) | |
8768 | (top) | |
8769 | (top) | |
8770 | (top) | |
8771 | (top) | |
8772 | (top) | |
8773 | (top) | |
8774 | (top) | |
8775 | (top) | |
8776 | (top) | |
8777 | (top) | |
8778 | (top) | |
8779 | (top) | |
8780 | (top) | |
8781 | (top) | |
8782 | (top) | |
8783 | (top) | |
8784 | (top) | |
8785 | (top) | |
8786 | (top) | |
8787 | (top) | |
8788 | (top) | |
8789 | (top) | |
8790 | (top) | |
8791 | (top) | |
8792 | (top) | |
8793 | (top) | |
8794 | (top) | |
8795 | (top) | |
8796 | (top) | |
8797 | (top) | |
8798 | (top) | |
8799 | (top) | |
8800 | (top) | |
8801 | (top) | |
8802 | (top) | |
8803 | (top) | |
8804 | (top) | |
8805 | (top) | |
8806 | (top) | |
8807 | (top) | |
8808 | (top) | |
8809 | (top) | |
8810 | (top) | |
8811 | (top) | |
8812 | (top) | |
8813 | (top) | |
8814 | (top) | |
8815 | (top) | |
8816 | (top) | |
8817 | (top) | |
8818 | (top) | |
8819 | (top) | |
8820 | (top) | |
8821 | (top) | |
8822 | (top) | |
8823 | (top) | |
8824 | (top) | |
8825 | (top) | |
8826 | (top) | |
8827 | (top) | |
8828 | (top) | |
8829 | (top) | |
8830 | (top) | |
8831 | (top) | |
8832 | (top) | |
8833 | (top) | |
8834 | (top) | |
8835 | (top) | |
8836 | (top) | |
8837 | (top) | |
8838 | (top) | |
8839 | (top) | |
8840 | (top) | |
8841 | (top) | |
8842 | (top) | |
8843 | (top) | |
8844 | (top) | |
8845 | (top) | |
8846 | (top) | |
8847 | (top) | |
8848 | (top) | |
8849 | (top) | |
8850 | (top) | |
8851 | (top) | |
8852 | (top) | |
8853 | (top) | |
8854 | (top) | |
8855 | (top) | |
8856 | (top) | |
8857 | (top) | |
8858 | (top) | |
8859 | (top) | |
8860 | (top) | |
8861 | (top) | |
8862 | (top) | |
8863 | (top) | |
8864 | (top) | |
8865 | (top) | |
8866 | (top) | |
8867 | (top) | |
8868 | (top) | |
8869 | (top) | |
8870 | (top) | |
8871 | (top) | |
8872 | (top) | |
8873 | (top)) | |
8874 | ("i467" | |
8875 | "i465" | |
8876 | "i463" | |
8877 | "i461" | |
8878 | "i459" | |
8879 | "i457" | |
8880 | "i455" | |
8881 | "i453" | |
8882 | "i451" | |
8883 | "i449" | |
8884 | "i447" | |
8885 | "i445" | |
8886 | "i443" | |
8887 | "i441" | |
8888 | "i439" | |
8889 | "i437" | |
8890 | "i435" | |
8891 | "i433" | |
8892 | "i431" | |
8893 | "i429" | |
8894 | "i427" | |
8895 | "i425" | |
8896 | "i423" | |
8897 | "i421" | |
8898 | "i419" | |
8899 | "i417" | |
8900 | "i415" | |
8901 | "i413" | |
8902 | "i411" | |
8903 | "i409" | |
8904 | "i407" | |
8905 | "i405" | |
8906 | "i403" | |
8907 | "i401" | |
8908 | "i399" | |
8909 | "i398" | |
8910 | "i396" | |
8911 | "i393" | |
8912 | "i392" | |
8913 | "i391" | |
8914 | "i389" | |
8915 | "i388" | |
8916 | "i386" | |
8917 | "i384" | |
8918 | "i382" | |
8919 | "i380" | |
8920 | "i378" | |
8921 | "i376" | |
8922 | "i374" | |
8923 | "i372" | |
8924 | "i369" | |
8925 | "i367" | |
8926 | "i366" | |
8927 | "i364" | |
8928 | "i362" | |
8929 | "i360" | |
8930 | "i358" | |
8931 | "i357" | |
8932 | "i356" | |
8933 | "i355" | |
8934 | "i353" | |
8935 | "i352" | |
8936 | "i349" | |
8937 | "i347" | |
8938 | "i345" | |
8939 | "i343" | |
8940 | "i341" | |
8941 | "i339" | |
8942 | "i337" | |
8943 | "i336" | |
8944 | "i335" | |
8945 | "i333" | |
8946 | "i331" | |
8947 | "i330" | |
8948 | "i327" | |
8949 | "i326" | |
8950 | "i324" | |
8951 | "i322" | |
8952 | "i320" | |
8953 | "i318" | |
8954 | "i316" | |
8955 | "i314" | |
8956 | "i312" | |
8957 | "i310" | |
8958 | "i308" | |
8959 | "i305" | |
8960 | "i303" | |
8961 | "i301" | |
8962 | "i299" | |
8963 | "i297" | |
8964 | "i295" | |
8965 | "i293" | |
8966 | "i291" | |
8967 | "i289" | |
8968 | "i287" | |
8969 | "i285" | |
8970 | "i283" | |
8971 | "i281" | |
8972 | "i279" | |
8973 | "i277" | |
8974 | "i275" | |
8975 | "i273" | |
8976 | "i271" | |
8977 | "i269" | |
8978 | "i267" | |
8979 | "i265" | |
8980 | "i263" | |
8981 | "i261" | |
8982 | "i260" | |
8983 | "i257" | |
8984 | "i255" | |
8985 | "i254" | |
8986 | "i253" | |
8987 | "i252" | |
8988 | "i251" | |
8989 | "i249" | |
8990 | "i247" | |
8991 | "i245" | |
8992 | "i242" | |
8993 | "i240" | |
8994 | "i238" | |
8995 | "i236" | |
8996 | "i234" | |
8997 | "i232" | |
8998 | "i230" | |
8999 | "i228" | |
9000 | "i226" | |
9001 | "i224" | |
9002 | "i222" | |
9003 | "i220" | |
9004 | "i218" | |
9005 | "i216" | |
9006 | "i214" | |
9007 | "i212" | |
9008 | "i210" | |
9009 | "i208")) | |
9010 | #(ribcage | |
9011 | (define-structure | |
9012 | define-expansion-accessors | |
9013 | define-expansion-constructors) | |
9014 | ((top) (top) (top)) | |
9015 | ("i46" "i45" "i44"))) | |
9016 | (hygiene guile))) | |
9017 | 4) | |
9018 | #t | |
9019 | #f) | |
9020 | '... | |
9021 | '#(syntax-object | |
9022 | ... | |
9023 | ((top) | |
9024 | #(ribcage () () ()) | |
9025 | #(ribcage () () ()) | |
9026 | #(ribcage #(x) #((top)) #("i2230")) | |
9027 | #(ribcage | |
9028 | (lambda-var-list | |
9029 | gen-var | |
9030 | strip | |
9031 | expand-lambda-case | |
9032 | lambda*-formals | |
9033 | expand-simple-lambda | |
9034 | lambda-formals | |
9035 | ellipsis? | |
9036 | expand-void | |
9037 | eval-local-transformer | |
9038 | expand-local-syntax | |
9039 | expand-body | |
9040 | expand-macro | |
9041 | expand-application | |
9042 | expand-expr | |
9043 | expand | |
9044 | syntax-type | |
9045 | expand-when-list | |
9046 | expand-install-global | |
9047 | expand-top-sequence | |
9048 | expand-sequence | |
9049 | source-wrap | |
9050 | wrap | |
9051 | bound-id-member? | |
9052 | distinct-bound-ids? | |
9053 | valid-bound-ids? | |
9054 | bound-id=? | |
9055 | free-id=? | |
9056 | id-var-name | |
9057 | same-marks? | |
9058 | join-marks | |
9059 | join-wraps | |
9060 | smart-append | |
9061 | make-binding-wrap | |
9062 | extend-ribcage! | |
9063 | make-empty-ribcage | |
9064 | new-mark | |
9065 | anti-mark | |
9066 | the-anti-mark | |
9067 | top-marked? | |
9068 | top-wrap | |
9069 | empty-wrap | |
9070 | set-ribcage-labels! | |
9071 | set-ribcage-marks! | |
9072 | set-ribcage-symnames! | |
9073 | ribcage-labels | |
9074 | ribcage-marks | |
9075 | ribcage-symnames | |
9076 | ribcage? | |
9077 | make-ribcage | |
9078 | gen-labels | |
9079 | gen-label | |
9080 | make-rename | |
9081 | rename-marks | |
9082 | rename-new | |
9083 | rename-old | |
9084 | subst-rename? | |
9085 | wrap-subst | |
9086 | wrap-marks | |
9087 | make-wrap | |
9088 | id-sym-name&marks | |
9089 | id-sym-name | |
9090 | id? | |
9091 | nonsymbol-id? | |
9092 | global-extend | |
9093 | lookup | |
9094 | macros-only-env | |
9095 | extend-var-env | |
9096 | extend-env | |
9097 | null-env | |
9098 | binding-value | |
9099 | binding-type | |
9100 | make-binding | |
9101 | arg-check | |
9102 | source-annotation | |
9103 | no-source | |
9104 | set-syntax-object-module! | |
9105 | set-syntax-object-wrap! | |
9106 | set-syntax-object-expression! | |
9107 | syntax-object-module | |
9108 | syntax-object-wrap | |
9109 | syntax-object-expression | |
9110 | syntax-object? | |
9111 | make-syntax-object | |
9112 | build-lexical-var | |
9113 | build-letrec | |
9114 | build-named-let | |
9115 | build-let | |
9116 | build-sequence | |
9117 | build-data | |
9118 | build-primref | |
9119 | build-lambda-case | |
9120 | build-case-lambda | |
9121 | build-simple-lambda | |
9122 | build-global-definition | |
9123 | build-global-assignment | |
9124 | build-global-reference | |
9125 | analyze-variable | |
9126 | build-lexical-assignment | |
9127 | build-lexical-reference | |
9128 | build-dynlet | |
9129 | build-conditional | |
9130 | build-application | |
9131 | build-void | |
9132 | maybe-name-value! | |
9133 | decorate-source | |
9134 | get-global-definition-hook | |
9135 | put-global-definition-hook | |
9136 | gensym-hook | |
9137 | local-eval-hook | |
9138 | top-level-eval-hook | |
9139 | fx< | |
9140 | fx= | |
9141 | fx- | |
9142 | fx+ | |
9143 | set-lambda-meta! | |
9144 | lambda-meta | |
9145 | lambda? | |
9146 | make-dynlet | |
9147 | make-letrec | |
9148 | make-let | |
9149 | make-lambda-case | |
9150 | make-lambda | |
9151 | make-sequence | |
9152 | make-application | |
9153 | make-conditional | |
9154 | make-toplevel-define | |
9155 | make-toplevel-set | |
9156 | make-toplevel-ref | |
9157 | make-module-set | |
9158 | make-module-ref | |
9159 | make-lexical-set | |
9160 | make-lexical-ref | |
9161 | make-primitive-ref | |
9162 | make-const | |
9163 | make-void) | |
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 | (top) | |
9209 | (top) | |
9210 | (top) | |
9211 | (top) | |
9212 | (top) | |
9213 | (top) | |
9214 | (top) | |
9215 | (top) | |
9216 | (top) | |
9217 | (top) | |
9218 | (top) | |
9219 | (top) | |
9220 | (top) | |
9221 | (top) | |
9222 | (top) | |
9223 | (top) | |
9224 | (top) | |
9225 | (top) | |
9226 | (top) | |
9227 | (top) | |
9228 | (top) | |
9229 | (top) | |
9230 | (top) | |
9231 | (top) | |
9232 | (top) | |
9233 | (top) | |
9234 | (top) | |
9235 | (top) | |
9236 | (top) | |
9237 | (top) | |
9238 | (top) | |
9239 | (top) | |
9240 | (top) | |
9241 | (top) | |
9242 | (top) | |
9243 | (top) | |
9244 | (top) | |
9245 | (top) | |
9246 | (top) | |
9247 | (top) | |
9248 | (top) | |
9249 | (top) | |
9250 | (top) | |
9251 | (top) | |
9252 | (top) | |
9253 | (top) | |
9254 | (top) | |
9255 | (top) | |
9256 | (top) | |
9257 | (top) | |
9258 | (top) | |
9259 | (top) | |
9260 | (top) | |
9261 | (top) | |
9262 | (top) | |
9263 | (top) | |
9264 | (top) | |
9265 | (top) | |
9266 | (top) | |
9267 | (top) | |
9268 | (top) | |
9269 | (top) | |
9270 | (top) | |
9271 | (top) | |
9272 | (top) | |
9273 | (top) | |
9274 | (top) | |
9275 | (top) | |
9276 | (top) | |
9277 | (top) | |
9278 | (top) | |
9279 | (top) | |
9280 | (top) | |
9281 | (top) | |
9282 | (top) | |
9283 | (top) | |
9284 | (top) | |
9285 | (top) | |
9286 | (top) | |
9287 | (top) | |
9288 | (top) | |
9289 | (top) | |
9290 | (top) | |
9291 | (top) | |
9292 | (top) | |
9293 | (top) | |
9294 | (top) | |
9295 | (top) | |
9296 | (top) | |
9297 | (top) | |
9298 | (top) | |
9299 | (top)) | |
9300 | ("i467" | |
9301 | "i465" | |
9302 | "i463" | |
9303 | "i461" | |
9304 | "i459" | |
9305 | "i457" | |
9306 | "i455" | |
9307 | "i453" | |
9308 | "i451" | |
9309 | "i449" | |
9310 | "i447" | |
9311 | "i445" | |
9312 | "i443" | |
9313 | "i441" | |
9314 | "i439" | |
9315 | "i437" | |
9316 | "i435" | |
9317 | "i433" | |
9318 | "i431" | |
9319 | "i429" | |
9320 | "i427" | |
9321 | "i425" | |
9322 | "i423" | |
9323 | "i421" | |
9324 | "i419" | |
9325 | "i417" | |
9326 | "i415" | |
9327 | "i413" | |
9328 | "i411" | |
9329 | "i409" | |
9330 | "i407" | |
9331 | "i405" | |
9332 | "i403" | |
9333 | "i401" | |
9334 | "i399" | |
9335 | "i398" | |
9336 | "i396" | |
9337 | "i393" | |
9338 | "i392" | |
9339 | "i391" | |
9340 | "i389" | |
9341 | "i388" | |
9342 | "i386" | |
9343 | "i384" | |
9344 | "i382" | |
9345 | "i380" | |
9346 | "i378" | |
9347 | "i376" | |
9348 | "i374" | |
9349 | "i372" | |
9350 | "i369" | |
9351 | "i367" | |
9352 | "i366" | |
9353 | "i364" | |
9354 | "i362" | |
9355 | "i360" | |
9356 | "i358" | |
9357 | "i357" | |
9358 | "i356" | |
9359 | "i355" | |
9360 | "i353" | |
9361 | "i352" | |
9362 | "i349" | |
9363 | "i347" | |
9364 | "i345" | |
9365 | "i343" | |
9366 | "i341" | |
9367 | "i339" | |
9368 | "i337" | |
9369 | "i336" | |
9370 | "i335" | |
9371 | "i333" | |
9372 | "i331" | |
9373 | "i330" | |
9374 | "i327" | |
9375 | "i326" | |
9376 | "i324" | |
9377 | "i322" | |
9378 | "i320" | |
9379 | "i318" | |
9380 | "i316" | |
9381 | "i314" | |
9382 | "i312" | |
9383 | "i310" | |
9384 | "i308" | |
9385 | "i305" | |
9386 | "i303" | |
9387 | "i301" | |
9388 | "i299" | |
9389 | "i297" | |
9390 | "i295" | |
9391 | "i293" | |
9392 | "i291" | |
9393 | "i289" | |
9394 | "i287" | |
9395 | "i285" | |
9396 | "i283" | |
9397 | "i281" | |
9398 | "i279" | |
9399 | "i277" | |
9400 | "i275" | |
9401 | "i273" | |
9402 | "i271" | |
9403 | "i269" | |
9404 | "i267" | |
9405 | "i265" | |
9406 | "i263" | |
9407 | "i261" | |
9408 | "i260" | |
9409 | "i257" | |
9410 | "i255" | |
9411 | "i254" | |
9412 | "i253" | |
9413 | "i252" | |
9414 | "i251" | |
9415 | "i249" | |
9416 | "i247" | |
9417 | "i245" | |
9418 | "i242" | |
9419 | "i240" | |
9420 | "i238" | |
9421 | "i236" | |
9422 | "i234" | |
9423 | "i232" | |
9424 | "i230" | |
9425 | "i228" | |
9426 | "i226" | |
9427 | "i224" | |
9428 | "i222" | |
9429 | "i220" | |
9430 | "i218" | |
9431 | "i216" | |
9432 | "i214" | |
9433 | "i212" | |
9434 | "i210" | |
9435 | "i208")) | |
9436 | #(ribcage | |
9437 | (define-structure | |
9438 | define-expansion-accessors | |
9439 | define-expansion-constructors) | |
9440 | ((top) (top) (top)) | |
9441 | ("i46" "i45" "i44"))) | |
9442 | (hygiene guile)))) | |
9443 | (eq? (#{id-var-name 4332}# #{x 5159}# '(())) | |
9444 | (#{id-var-name 4332}# | |
9445 | '#(syntax-object | |
9446 | ... | |
9447 | ((top) | |
9448 | #(ribcage () () ()) | |
9449 | #(ribcage () () ()) | |
9450 | #(ribcage #(x) #((top)) #("i2230")) | |
9451 | #(ribcage | |
9452 | (lambda-var-list | |
9453 | gen-var | |
9454 | strip | |
9455 | expand-lambda-case | |
9456 | lambda*-formals | |
9457 | expand-simple-lambda | |
9458 | lambda-formals | |
9459 | ellipsis? | |
9460 | expand-void | |
9461 | eval-local-transformer | |
9462 | expand-local-syntax | |
9463 | expand-body | |
9464 | expand-macro | |
9465 | expand-application | |
9466 | expand-expr | |
9467 | expand | |
9468 | syntax-type | |
9469 | expand-when-list | |
9470 | expand-install-global | |
9471 | expand-top-sequence | |
9472 | expand-sequence | |
9473 | source-wrap | |
9474 | wrap | |
9475 | bound-id-member? | |
9476 | distinct-bound-ids? | |
9477 | valid-bound-ids? | |
9478 | bound-id=? | |
9479 | free-id=? | |
9480 | id-var-name | |
9481 | same-marks? | |
9482 | join-marks | |
9483 | join-wraps | |
9484 | smart-append | |
9485 | make-binding-wrap | |
9486 | extend-ribcage! | |
9487 | make-empty-ribcage | |
9488 | new-mark | |
9489 | anti-mark | |
9490 | the-anti-mark | |
9491 | top-marked? | |
9492 | top-wrap | |
9493 | empty-wrap | |
9494 | set-ribcage-labels! | |
9495 | set-ribcage-marks! | |
9496 | set-ribcage-symnames! | |
9497 | ribcage-labels | |
9498 | ribcage-marks | |
9499 | ribcage-symnames | |
9500 | ribcage? | |
9501 | make-ribcage | |
9502 | gen-labels | |
9503 | gen-label | |
9504 | make-rename | |
9505 | rename-marks | |
9506 | rename-new | |
9507 | rename-old | |
9508 | subst-rename? | |
9509 | wrap-subst | |
9510 | wrap-marks | |
9511 | make-wrap | |
9512 | id-sym-name&marks | |
9513 | id-sym-name | |
9514 | id? | |
9515 | nonsymbol-id? | |
9516 | global-extend | |
9517 | lookup | |
9518 | macros-only-env | |
9519 | extend-var-env | |
9520 | extend-env | |
9521 | null-env | |
9522 | binding-value | |
9523 | binding-type | |
9524 | make-binding | |
9525 | arg-check | |
9526 | source-annotation | |
9527 | no-source | |
9528 | set-syntax-object-module! | |
9529 | set-syntax-object-wrap! | |
9530 | set-syntax-object-expression! | |
9531 | syntax-object-module | |
9532 | syntax-object-wrap | |
9533 | syntax-object-expression | |
9534 | syntax-object? | |
9535 | make-syntax-object | |
9536 | build-lexical-var | |
9537 | build-letrec | |
9538 | build-named-let | |
9539 | build-let | |
9540 | build-sequence | |
9541 | build-data | |
9542 | build-primref | |
9543 | build-lambda-case | |
9544 | build-case-lambda | |
9545 | build-simple-lambda | |
9546 | build-global-definition | |
9547 | build-global-assignment | |
9548 | build-global-reference | |
9549 | analyze-variable | |
9550 | build-lexical-assignment | |
9551 | build-lexical-reference | |
9552 | build-dynlet | |
9553 | build-conditional | |
9554 | build-application | |
9555 | build-void | |
9556 | maybe-name-value! | |
9557 | decorate-source | |
9558 | get-global-definition-hook | |
9559 | put-global-definition-hook | |
9560 | gensym-hook | |
9561 | local-eval-hook | |
9562 | top-level-eval-hook | |
9563 | fx< | |
9564 | fx= | |
9565 | fx- | |
9566 | fx+ | |
9567 | set-lambda-meta! | |
9568 | lambda-meta | |
9569 | lambda? | |
9570 | make-dynlet | |
9571 | make-letrec | |
9572 | make-let | |
9573 | make-lambda-case | |
9574 | make-lambda | |
9575 | make-sequence | |
9576 | make-application | |
9577 | make-conditional | |
9578 | make-toplevel-define | |
9579 | make-toplevel-set | |
9580 | make-toplevel-ref | |
9581 | make-module-set | |
9582 | make-module-ref | |
9583 | make-lexical-set | |
9584 | make-lexical-ref | |
9585 | make-primitive-ref | |
9586 | make-const | |
9587 | make-void) | |
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 | (top) | |
9624 | (top) | |
9625 | (top) | |
9626 | (top) | |
9627 | (top) | |
9628 | (top) | |
9629 | (top) | |
9630 | (top) | |
9631 | (top) | |
9632 | (top) | |
9633 | (top) | |
9634 | (top) | |
9635 | (top) | |
9636 | (top) | |
9637 | (top) | |
9638 | (top) | |
9639 | (top) | |
9640 | (top) | |
9641 | (top) | |
9642 | (top) | |
9643 | (top) | |
9644 | (top) | |
9645 | (top) | |
9646 | (top) | |
9647 | (top) | |
9648 | (top) | |
9649 | (top) | |
9650 | (top) | |
9651 | (top) | |
9652 | (top) | |
9653 | (top) | |
9654 | (top) | |
9655 | (top) | |
9656 | (top) | |
9657 | (top) | |
9658 | (top) | |
9659 | (top) | |
9660 | (top) | |
9661 | (top) | |
9662 | (top) | |
9663 | (top) | |
9664 | (top) | |
9665 | (top) | |
9666 | (top) | |
9667 | (top) | |
9668 | (top) | |
9669 | (top) | |
9670 | (top) | |
9671 | (top) | |
9672 | (top) | |
9673 | (top) | |
9674 | (top) | |
9675 | (top) | |
9676 | (top) | |
9677 | (top) | |
9678 | (top) | |
9679 | (top) | |
9680 | (top) | |
9681 | (top) | |
9682 | (top) | |
9683 | (top) | |
9684 | (top) | |
9685 | (top) | |
9686 | (top) | |
9687 | (top) | |
9688 | (top) | |
9689 | (top) | |
9690 | (top) | |
9691 | (top) | |
9692 | (top) | |
9693 | (top) | |
9694 | (top) | |
9695 | (top) | |
9696 | (top) | |
9697 | (top) | |
9698 | (top) | |
9699 | (top) | |
9700 | (top) | |
9701 | (top) | |
9702 | (top) | |
9703 | (top) | |
9704 | (top) | |
9705 | (top) | |
9706 | (top) | |
9707 | (top) | |
9708 | (top) | |
9709 | (top) | |
9710 | (top) | |
9711 | (top) | |
9712 | (top) | |
9713 | (top) | |
9714 | (top) | |
9715 | (top) | |
9716 | (top) | |
9717 | (top) | |
9718 | (top) | |
9719 | (top) | |
9720 | (top) | |
9721 | (top) | |
9722 | (top) | |
9723 | (top)) | |
9724 | ("i467" | |
9725 | "i465" | |
9726 | "i463" | |
9727 | "i461" | |
9728 | "i459" | |
9729 | "i457" | |
9730 | "i455" | |
9731 | "i453" | |
9732 | "i451" | |
9733 | "i449" | |
9734 | "i447" | |
9735 | "i445" | |
9736 | "i443" | |
9737 | "i441" | |
9738 | "i439" | |
9739 | "i437" | |
9740 | "i435" | |
9741 | "i433" | |
9742 | "i431" | |
9743 | "i429" | |
9744 | "i427" | |
9745 | "i425" | |
9746 | "i423" | |
9747 | "i421" | |
9748 | "i419" | |
9749 | "i417" | |
9750 | "i415" | |
9751 | "i413" | |
9752 | "i411" | |
9753 | "i409" | |
9754 | "i407" | |
9755 | "i405" | |
9756 | "i403" | |
9757 | "i401" | |
9758 | "i399" | |
9759 | "i398" | |
9760 | "i396" | |
9761 | "i393" | |
9762 | "i392" | |
9763 | "i391" | |
9764 | "i389" | |
9765 | "i388" | |
9766 | "i386" | |
9767 | "i384" | |
9768 | "i382" | |
9769 | "i380" | |
9770 | "i378" | |
9771 | "i376" | |
9772 | "i374" | |
9773 | "i372" | |
9774 | "i369" | |
9775 | "i367" | |
9776 | "i366" | |
9777 | "i364" | |
9778 | "i362" | |
9779 | "i360" | |
9780 | "i358" | |
9781 | "i357" | |
9782 | "i356" | |
9783 | "i355" | |
9784 | "i353" | |
9785 | "i352" | |
9786 | "i349" | |
9787 | "i347" | |
9788 | "i345" | |
9789 | "i343" | |
9790 | "i341" | |
9791 | "i339" | |
9792 | "i337" | |
9793 | "i336" | |
9794 | "i335" | |
9795 | "i333" | |
9796 | "i331" | |
9797 | "i330" | |
9798 | "i327" | |
9799 | "i326" | |
9800 | "i324" | |
9801 | "i322" | |
9802 | "i320" | |
9803 | "i318" | |
9804 | "i316" | |
9805 | "i314" | |
9806 | "i312" | |
9807 | "i310" | |
9808 | "i308" | |
9809 | "i305" | |
9810 | "i303" | |
9811 | "i301" | |
9812 | "i299" | |
9813 | "i297" | |
9814 | "i295" | |
9815 | "i293" | |
9816 | "i291" | |
9817 | "i289" | |
9818 | "i287" | |
9819 | "i285" | |
9820 | "i283" | |
9821 | "i281" | |
9822 | "i279" | |
9823 | "i277" | |
9824 | "i275" | |
9825 | "i273" | |
9826 | "i271" | |
9827 | "i269" | |
9828 | "i267" | |
9829 | "i265" | |
9830 | "i263" | |
9831 | "i261" | |
9832 | "i260" | |
9833 | "i257" | |
9834 | "i255" | |
9835 | "i254" | |
9836 | "i253" | |
9837 | "i252" | |
9838 | "i251" | |
9839 | "i249" | |
9840 | "i247" | |
9841 | "i245" | |
9842 | "i242" | |
9843 | "i240" | |
9844 | "i238" | |
9845 | "i236" | |
9846 | "i234" | |
9847 | "i232" | |
9848 | "i230" | |
9849 | "i228" | |
9850 | "i226" | |
9851 | "i224" | |
9852 | "i222" | |
9853 | "i220" | |
9854 | "i218" | |
9855 | "i216" | |
9856 | "i214" | |
9857 | "i212" | |
9858 | "i210" | |
9859 | "i208")) | |
9860 | #(ribcage | |
9861 | (define-structure | |
9862 | define-expansion-accessors | |
9863 | define-expansion-constructors) | |
9864 | ((top) (top) (top)) | |
9865 | ("i46" "i45" "i44"))) | |
9866 | (hygiene guile)) | |
9867 | '(()))) | |
9868 | #f) | |
9869 | #f))) | |
9870 | (#{lambda-formals 4354}# | |
9871 | (lambda (#{orig-args 25307}#) | |
9872 | (letrec* | |
9873 | ((#{req 25308}# | |
9874 | (lambda (#{args 25312}# #{rreq 25313}#) | |
9875 | (let ((#{tmp 25315}# ($sc-dispatch #{args 25312}# '()))) | |
9876 | (if #{tmp 25315}# | |
9877 | (@apply | |
9878 | (lambda () | |
9879 | (#{check 25309}# (reverse #{rreq 25313}#) #f)) | |
9880 | #{tmp 25315}#) | |
9881 | (let ((#{tmp 25442}# | |
9882 | ($sc-dispatch #{args 25312}# '(any . any)))) | |
9883 | (if (if #{tmp 25442}# | |
9884 | (@apply | |
9885 | (lambda (#{a 25446}# #{b 25447}#) | |
9886 | (if (symbol? #{a 25446}#) | |
9887 | #t | |
9888 | (if (if (vector? #{a 25446}#) | |
9889 | (if (= (vector-length #{a 25446}#) 4) | |
9890 | (eq? (vector-ref #{a 25446}# 0) | |
9891 | 'syntax-object) | |
9892 | #f) | |
9893 | #f) | |
9894 | (symbol? (vector-ref #{a 25446}# 1)) | |
9895 | #f))) | |
9896 | #{tmp 25442}#) | |
9897 | #f) | |
9898 | (@apply | |
9899 | (lambda (#{a 25474}# #{b 25475}#) | |
9900 | (#{req 25308}# | |
9901 | #{b 25475}# | |
9902 | (cons #{a 25474}# #{rreq 25313}#))) | |
9903 | #{tmp 25442}#) | |
9904 | (let ((#{tmp 25476}# (list #{args 25312}#))) | |
9905 | (if (@apply | |
9906 | (lambda (#{r 25478}#) | |
9907 | (if (symbol? #{r 25478}#) | |
9908 | #t | |
9909 | (if (if (vector? #{r 25478}#) | |
9910 | (if (= (vector-length #{r 25478}#) 4) | |
9911 | (eq? (vector-ref #{r 25478}# 0) | |
9912 | 'syntax-object) | |
9913 | #f) | |
9914 | #f) | |
9915 | (symbol? (vector-ref #{r 25478}# 1)) | |
9916 | #f))) | |
9917 | #{tmp 25476}#) | |
9918 | (@apply | |
9919 | (lambda (#{r 25508}#) | |
9920 | (#{check 25309}# | |
9921 | (reverse #{rreq 25313}#) | |
9922 | #{r 25508}#)) | |
9923 | #{tmp 25476}#) | |
9924 | (syntax-violation | |
9925 | 'lambda | |
9926 | "invalid argument list" | |
9927 | #{orig-args 25307}# | |
9928 | #{args 25312}#))))))))) | |
9929 | (#{check 25309}# | |
9930 | (lambda (#{req 25643}# #{rest 25644}#) | |
9931 | (if (#{distinct-bound-ids? 4336}# | |
9932 | (if #{rest 25644}# | |
9933 | (cons #{rest 25644}# #{req 25643}#) | |
9934 | #{req 25643}#)) | |
9935 | (values #{req 25643}# #f #{rest 25644}# #f) | |
9936 | (syntax-violation | |
9937 | 'lambda | |
9938 | "duplicate identifier in argument list" | |
9939 | #{orig-args 25307}#))))) | |
9940 | (#{req 25308}# #{orig-args 25307}# '())))) | |
9941 | (#{expand-simple-lambda 4355}# | |
9942 | (lambda (#{e 25764}# | |
9943 | #{r 25765}# | |
9944 | #{w 25766}# | |
9945 | #{s 25767}# | |
9946 | #{mod 25768}# | |
9947 | #{req 25769}# | |
9948 | #{rest 25770}# | |
9949 | #{meta 25771}# | |
9950 | #{body 25772}#) | |
9951 | (let ((#{ids 25773}# | |
9952 | (if #{rest 25770}# | |
9953 | (append #{req 25769}# (list #{rest 25770}#)) | |
9954 | #{req 25769}#))) | |
9955 | (let ((#{vars 25774}# | |
9956 | (map #{gen-var 4359}# #{ids 25773}#))) | |
9957 | (let ((#{labels 25775}# | |
9958 | (#{gen-labels 4316}# #{ids 25773}#))) | |
9959 | (#{build-simple-lambda 4289}# | |
9960 | #{s 25767}# | |
9961 | (map syntax->datum #{req 25769}#) | |
9962 | (if #{rest 25770}# | |
9963 | (syntax->datum #{rest 25770}#) | |
9964 | #f) | |
9965 | #{vars 25774}# | |
9966 | #{meta 25771}# | |
9967 | (#{expand-body 4349}# | |
9968 | #{body 25772}# | |
9969 | (#{wrap 4338}# | |
9970 | (begin | |
9971 | (if (if (pair? #{e 25764}#) #{s 25767}# #f) | |
9972 | (set-source-properties! #{e 25764}# #{s 25767}#)) | |
9973 | #{e 25764}#) | |
9974 | #{w 25766}# | |
9975 | #{mod 25768}#) | |
9976 | (#{extend-var-env 4308}# | |
9977 | #{labels 25775}# | |
9978 | #{vars 25774}# | |
9979 | #{r 25765}#) | |
9980 | (#{make-binding-wrap 4327}# | |
9981 | #{ids 25773}# | |
9982 | #{labels 25775}# | |
9983 | #{w 25766}#) | |
9984 | #{mod 25768}#))))))) | |
9985 | (#{lambda*-formals 4356}# | |
9986 | (lambda (#{orig-args 26075}#) | |
9987 | (letrec* | |
9988 | ((#{req 26076}# | |
9989 | (lambda (#{args 26083}# #{rreq 26084}#) | |
9990 | (let ((#{tmp 26086}# ($sc-dispatch #{args 26083}# '()))) | |
9991 | (if #{tmp 26086}# | |
9992 | (@apply | |
9993 | (lambda () | |
9994 | (#{check 26080}# | |
9995 | (reverse #{rreq 26084}#) | |
9996 | '() | |
9997 | #f | |
9998 | '())) | |
9999 | #{tmp 26086}#) | |
10000 | (let ((#{tmp 26092}# | |
10001 | ($sc-dispatch #{args 26083}# '(any . any)))) | |
10002 | (if (if #{tmp 26092}# | |
10003 | (@apply | |
10004 | (lambda (#{a 26096}# #{b 26097}#) | |
10005 | (if (symbol? #{a 26096}#) | |
10006 | #t | |
10007 | (if (if (vector? #{a 26096}#) | |
10008 | (if (= (vector-length #{a 26096}#) 4) | |
10009 | (eq? (vector-ref #{a 26096}# 0) | |
10010 | 'syntax-object) | |
10011 | #f) | |
10012 | #f) | |
10013 | (symbol? (vector-ref #{a 26096}# 1)) | |
10014 | #f))) | |
10015 | #{tmp 26092}#) | |
10016 | #f) | |
10017 | (@apply | |
10018 | (lambda (#{a 26124}# #{b 26125}#) | |
10019 | (#{req 26076}# | |
10020 | #{b 26125}# | |
10021 | (cons #{a 26124}# #{rreq 26084}#))) | |
10022 | #{tmp 26092}#) | |
10023 | (let ((#{tmp 26126}# | |
10024 | ($sc-dispatch #{args 26083}# '(any . any)))) | |
10025 | (if (if #{tmp 26126}# | |
10026 | (@apply | |
10027 | (lambda (#{a 26130}# #{b 26131}#) | |
10028 | (eq? (syntax->datum #{a 26130}#) #:optional)) | |
10029 | #{tmp 26126}#) | |
10030 | #f) | |
10031 | (@apply | |
10032 | (lambda (#{a 26132}# #{b 26133}#) | |
10033 | (#{opt 26077}# | |
10034 | #{b 26133}# | |
10035 | (reverse #{rreq 26084}#) | |
10036 | '())) | |
10037 | #{tmp 26126}#) | |
10038 | (let ((#{tmp 26136}# | |
10039 | ($sc-dispatch #{args 26083}# '(any . any)))) | |
10040 | (if (if #{tmp 26136}# | |
10041 | (@apply | |
10042 | (lambda (#{a 26140}# #{b 26141}#) | |
10043 | (eq? (syntax->datum #{a 26140}#) #:key)) | |
10044 | #{tmp 26136}#) | |
10045 | #f) | |
10046 | (@apply | |
10047 | (lambda (#{a 26142}# #{b 26143}#) | |
10048 | (#{key 26078}# | |
10049 | #{b 26143}# | |
10050 | (reverse #{rreq 26084}#) | |
10051 | '() | |
10052 | '())) | |
10053 | #{tmp 26136}#) | |
10054 | (let ((#{tmp 26146}# | |
10055 | ($sc-dispatch | |
10056 | #{args 26083}# | |
10057 | '(any any)))) | |
10058 | (if (if #{tmp 26146}# | |
10059 | (@apply | |
10060 | (lambda (#{a 26150}# #{b 26151}#) | |
10061 | (eq? (syntax->datum #{a 26150}#) | |
10062 | #:rest)) | |
10063 | #{tmp 26146}#) | |
10064 | #f) | |
10065 | (@apply | |
10066 | (lambda (#{a 26152}# #{b 26153}#) | |
10067 | (#{rest 26079}# | |
10068 | #{b 26153}# | |
10069 | (reverse #{rreq 26084}#) | |
10070 | '() | |
10071 | '())) | |
10072 | #{tmp 26146}#) | |
10073 | (let ((#{tmp 26156}# (list #{args 26083}#))) | |
10074 | (if (@apply | |
10075 | (lambda (#{r 26158}#) | |
10076 | (if (symbol? #{r 26158}#) | |
10077 | #t | |
10078 | (if (if (vector? #{r 26158}#) | |
10079 | (if (= (vector-length | |
10080 | #{r 26158}#) | |
10081 | 4) | |
10082 | (eq? (vector-ref | |
10083 | #{r 26158}# | |
10084 | 0) | |
10085 | 'syntax-object) | |
10086 | #f) | |
10087 | #f) | |
10088 | (symbol? | |
10089 | (vector-ref #{r 26158}# 1)) | |
10090 | #f))) | |
10091 | #{tmp 26156}#) | |
10092 | (@apply | |
10093 | (lambda (#{r 26188}#) | |
10094 | (#{rest 26079}# | |
10095 | #{r 26188}# | |
10096 | (reverse #{rreq 26084}#) | |
10097 | '() | |
10098 | '())) | |
10099 | #{tmp 26156}#) | |
10100 | (syntax-violation | |
10101 | 'lambda* | |
10102 | "invalid argument list" | |
10103 | #{orig-args 26075}# | |
10104 | #{args 26083}#))))))))))))))) | |
10105 | (#{opt 26077}# | |
10106 | (lambda (#{args 26207}# #{req 26208}# #{ropt 26209}#) | |
10107 | (let ((#{tmp 26211}# ($sc-dispatch #{args 26207}# '()))) | |
10108 | (if #{tmp 26211}# | |
10109 | (@apply | |
10110 | (lambda () | |
10111 | (#{check 26080}# | |
10112 | #{req 26208}# | |
10113 | (reverse #{ropt 26209}#) | |
10114 | #f | |
10115 | '())) | |
10116 | #{tmp 26211}#) | |
10117 | (let ((#{tmp 26217}# | |
10118 | ($sc-dispatch #{args 26207}# '(any . any)))) | |
10119 | (if (if #{tmp 26217}# | |
10120 | (@apply | |
10121 | (lambda (#{a 26221}# #{b 26222}#) | |
10122 | (if (symbol? #{a 26221}#) | |
10123 | #t | |
10124 | (if (if (vector? #{a 26221}#) | |
10125 | (if (= (vector-length #{a 26221}#) 4) | |
10126 | (eq? (vector-ref #{a 26221}# 0) | |
10127 | 'syntax-object) | |
10128 | #f) | |
10129 | #f) | |
10130 | (symbol? (vector-ref #{a 26221}# 1)) | |
10131 | #f))) | |
10132 | #{tmp 26217}#) | |
10133 | #f) | |
10134 | (@apply | |
10135 | (lambda (#{a 26249}# #{b 26250}#) | |
10136 | (#{opt 26077}# | |
10137 | #{b 26250}# | |
10138 | #{req 26208}# | |
10139 | (cons (cons #{a 26249}# | |
10140 | '(#(syntax-object | |
10141 | #f | |
10142 | ((top) | |
10143 | #(ribcage | |
10144 | #(a b) | |
10145 | #((top) (top)) | |
10146 | #("i2369" "i2370")) | |
10147 | #(ribcage () () ()) | |
10148 | #(ribcage | |
10149 | #(args req ropt) | |
10150 | #((top) (top) (top)) | |
10151 | #("i2359" "i2360" "i2361")) | |
10152 | #(ribcage | |
10153 | (check rest key opt req) | |
10154 | ((top) (top) (top) (top) (top)) | |
10155 | ("i2305" | |
10156 | "i2303" | |
10157 | "i2301" | |
10158 | "i2299" | |
10159 | "i2297")) | |
10160 | #(ribcage | |
10161 | #(orig-args) | |
10162 | #((top)) | |
10163 | #("i2296")) | |
10164 | #(ribcage | |
10165 | (lambda-var-list | |
10166 | gen-var | |
10167 | strip | |
10168 | expand-lambda-case | |
10169 | lambda*-formals | |
10170 | expand-simple-lambda | |
10171 | lambda-formals | |
10172 | ellipsis? | |
10173 | expand-void | |
10174 | eval-local-transformer | |
10175 | expand-local-syntax | |
10176 | expand-body | |
10177 | expand-macro | |
10178 | expand-application | |
10179 | expand-expr | |
10180 | expand | |
10181 | syntax-type | |
10182 | expand-when-list | |
10183 | expand-install-global | |
10184 | expand-top-sequence | |
10185 | expand-sequence | |
10186 | source-wrap | |
10187 | wrap | |
10188 | bound-id-member? | |
10189 | distinct-bound-ids? | |
10190 | valid-bound-ids? | |
10191 | bound-id=? | |
10192 | free-id=? | |
10193 | id-var-name | |
10194 | same-marks? | |
10195 | join-marks | |
10196 | join-wraps | |
10197 | smart-append | |
10198 | make-binding-wrap | |
10199 | extend-ribcage! | |
10200 | make-empty-ribcage | |
10201 | new-mark | |
10202 | anti-mark | |
10203 | the-anti-mark | |
10204 | top-marked? | |
10205 | top-wrap | |
10206 | empty-wrap | |
10207 | set-ribcage-labels! | |
10208 | set-ribcage-marks! | |
10209 | set-ribcage-symnames! | |
10210 | ribcage-labels | |
10211 | ribcage-marks | |
10212 | ribcage-symnames | |
10213 | ribcage? | |
10214 | make-ribcage | |
10215 | gen-labels | |
10216 | gen-label | |
10217 | make-rename | |
10218 | rename-marks | |
10219 | rename-new | |
10220 | rename-old | |
10221 | subst-rename? | |
10222 | wrap-subst | |
10223 | wrap-marks | |
10224 | make-wrap | |
10225 | id-sym-name&marks | |
10226 | id-sym-name | |
10227 | id? | |
10228 | nonsymbol-id? | |
10229 | global-extend | |
10230 | lookup | |
10231 | macros-only-env | |
10232 | extend-var-env | |
10233 | extend-env | |
10234 | null-env | |
10235 | binding-value | |
10236 | binding-type | |
10237 | make-binding | |
10238 | arg-check | |
10239 | source-annotation | |
10240 | no-source | |
10241 | set-syntax-object-module! | |
10242 | set-syntax-object-wrap! | |
10243 | set-syntax-object-expression! | |
10244 | syntax-object-module | |
10245 | syntax-object-wrap | |
10246 | syntax-object-expression | |
10247 | syntax-object? | |
10248 | make-syntax-object | |
10249 | build-lexical-var | |
10250 | build-letrec | |
10251 | build-named-let | |
10252 | build-let | |
10253 | build-sequence | |
10254 | build-data | |
10255 | build-primref | |
10256 | build-lambda-case | |
10257 | build-case-lambda | |
10258 | build-simple-lambda | |
10259 | build-global-definition | |
10260 | build-global-assignment | |
10261 | build-global-reference | |
10262 | analyze-variable | |
10263 | build-lexical-assignment | |
10264 | build-lexical-reference | |
10265 | build-dynlet | |
10266 | build-conditional | |
10267 | build-application | |
10268 | build-void | |
10269 | maybe-name-value! | |
10270 | decorate-source | |
10271 | get-global-definition-hook | |
10272 | put-global-definition-hook | |
10273 | gensym-hook | |
10274 | local-eval-hook | |
10275 | top-level-eval-hook | |
10276 | fx< | |
10277 | fx= | |
10278 | fx- | |
10279 | fx+ | |
10280 | set-lambda-meta! | |
10281 | lambda-meta | |
10282 | lambda? | |
10283 | make-dynlet | |
10284 | make-letrec | |
10285 | make-let | |
10286 | make-lambda-case | |
10287 | make-lambda | |
10288 | make-sequence | |
10289 | make-application | |
10290 | make-conditional | |
10291 | make-toplevel-define | |
10292 | make-toplevel-set | |
10293 | make-toplevel-ref | |
10294 | make-module-set | |
10295 | make-module-ref | |
10296 | make-lexical-set | |
10297 | make-lexical-ref | |
10298 | make-primitive-ref | |
10299 | make-const | |
10300 | make-void) | |
10301 | ((top) | |
10302 | (top) | |
10303 | (top) | |
10304 | (top) | |
10305 | (top) | |
10306 | (top) | |
10307 | (top) | |
10308 | (top) | |
10309 | (top) | |
10310 | (top) | |
10311 | (top) | |
10312 | (top) | |
10313 | (top) | |
10314 | (top) | |
10315 | (top) | |
10316 | (top) | |
10317 | (top) | |
10318 | (top) | |
10319 | (top) | |
10320 | (top) | |
10321 | (top) | |
10322 | (top) | |
10323 | (top) | |
10324 | (top) | |
10325 | (top) | |
10326 | (top) | |
10327 | (top) | |
10328 | (top) | |
10329 | (top) | |
10330 | (top) | |
10331 | (top) | |
10332 | (top) | |
10333 | (top) | |
10334 | (top) | |
10335 | (top) | |
10336 | (top) | |
10337 | (top) | |
10338 | (top) | |
10339 | (top) | |
10340 | (top) | |
10341 | (top) | |
10342 | (top) | |
10343 | (top) | |
10344 | (top) | |
10345 | (top) | |
10346 | (top) | |
10347 | (top) | |
10348 | (top) | |
10349 | (top) | |
10350 | (top) | |
10351 | (top) | |
10352 | (top) | |
10353 | (top) | |
10354 | (top) | |
10355 | (top) | |
10356 | (top) | |
10357 | (top) | |
10358 | (top) | |
10359 | (top) | |
10360 | (top) | |
10361 | (top) | |
10362 | (top) | |
10363 | (top) | |
10364 | (top) | |
10365 | (top) | |
10366 | (top) | |
10367 | (top) | |
10368 | (top) | |
10369 | (top) | |
10370 | (top) | |
10371 | (top) | |
10372 | (top) | |
10373 | (top) | |
10374 | (top) | |
10375 | (top) | |
10376 | (top) | |
10377 | (top) | |
10378 | (top) | |
10379 | (top) | |
10380 | (top) | |
10381 | (top) | |
10382 | (top) | |
10383 | (top) | |
10384 | (top) | |
10385 | (top) | |
10386 | (top) | |
10387 | (top) | |
10388 | (top) | |
10389 | (top) | |
10390 | (top) | |
10391 | (top) | |
10392 | (top) | |
10393 | (top) | |
10394 | (top) | |
10395 | (top) | |
10396 | (top) | |
10397 | (top) | |
10398 | (top) | |
10399 | (top) | |
10400 | (top) | |
10401 | (top) | |
10402 | (top) | |
10403 | (top) | |
10404 | (top) | |
10405 | (top) | |
10406 | (top) | |
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 | ("i467" | |
10438 | "i465" | |
10439 | "i463" | |
10440 | "i461" | |
10441 | "i459" | |
10442 | "i457" | |
10443 | "i455" | |
10444 | "i453" | |
10445 | "i451" | |
10446 | "i449" | |
10447 | "i447" | |
10448 | "i445" | |
10449 | "i443" | |
10450 | "i441" | |
10451 | "i439" | |
10452 | "i437" | |
10453 | "i435" | |
10454 | "i433" | |
10455 | "i431" | |
10456 | "i429" | |
10457 | "i427" | |
10458 | "i425" | |
10459 | "i423" | |
10460 | "i421" | |
10461 | "i419" | |
10462 | "i417" | |
10463 | "i415" | |
10464 | "i413" | |
10465 | "i411" | |
10466 | "i409" | |
10467 | "i407" | |
10468 | "i405" | |
10469 | "i403" | |
10470 | "i401" | |
10471 | "i399" | |
10472 | "i398" | |
10473 | "i396" | |
10474 | "i393" | |
10475 | "i392" | |
10476 | "i391" | |
10477 | "i389" | |
10478 | "i388" | |
10479 | "i386" | |
10480 | "i384" | |
10481 | "i382" | |
10482 | "i380" | |
10483 | "i378" | |
10484 | "i376" | |
10485 | "i374" | |
10486 | "i372" | |
10487 | "i369" | |
10488 | "i367" | |
10489 | "i366" | |
10490 | "i364" | |
10491 | "i362" | |
10492 | "i360" | |
10493 | "i358" | |
10494 | "i357" | |
10495 | "i356" | |
10496 | "i355" | |
10497 | "i353" | |
10498 | "i352" | |
10499 | "i349" | |
10500 | "i347" | |
10501 | "i345" | |
10502 | "i343" | |
10503 | "i341" | |
10504 | "i339" | |
10505 | "i337" | |
10506 | "i336" | |
10507 | "i335" | |
10508 | "i333" | |
10509 | "i331" | |
10510 | "i330" | |
10511 | "i327" | |
10512 | "i326" | |
10513 | "i324" | |
10514 | "i322" | |
10515 | "i320" | |
10516 | "i318" | |
10517 | "i316" | |
10518 | "i314" | |
10519 | "i312" | |
10520 | "i310" | |
10521 | "i308" | |
10522 | "i305" | |
10523 | "i303" | |
10524 | "i301" | |
10525 | "i299" | |
10526 | "i297" | |
10527 | "i295" | |
10528 | "i293" | |
10529 | "i291" | |
10530 | "i289" | |
10531 | "i287" | |
10532 | "i285" | |
10533 | "i283" | |
10534 | "i281" | |
10535 | "i279" | |
10536 | "i277" | |
10537 | "i275" | |
10538 | "i273" | |
10539 | "i271" | |
10540 | "i269" | |
10541 | "i267" | |
10542 | "i265" | |
10543 | "i263" | |
10544 | "i261" | |
10545 | "i260" | |
10546 | "i257" | |
10547 | "i255" | |
10548 | "i254" | |
10549 | "i253" | |
10550 | "i252" | |
10551 | "i251" | |
10552 | "i249" | |
10553 | "i247" | |
10554 | "i245" | |
10555 | "i242" | |
10556 | "i240" | |
10557 | "i238" | |
10558 | "i236" | |
10559 | "i234" | |
10560 | "i232" | |
10561 | "i230" | |
10562 | "i228" | |
10563 | "i226" | |
10564 | "i224" | |
10565 | "i222" | |
10566 | "i220" | |
10567 | "i218" | |
10568 | "i216" | |
10569 | "i214" | |
10570 | "i212" | |
10571 | "i210" | |
10572 | "i208")) | |
10573 | #(ribcage | |
10574 | (define-structure | |
10575 | define-expansion-accessors | |
10576 | define-expansion-constructors) | |
10577 | ((top) (top) (top)) | |
10578 | ("i46" "i45" "i44"))) | |
10579 | (hygiene guile)))) | |
10580 | #{ropt 26209}#))) | |
10581 | #{tmp 26217}#) | |
10582 | (let ((#{tmp 26251}# | |
10583 | ($sc-dispatch | |
10584 | #{args 26207}# | |
10585 | '((any any) . any)))) | |
10586 | (if (if #{tmp 26251}# | |
10587 | (@apply | |
10588 | (lambda (#{a 26255}# | |
10589 | #{init 26256}# | |
10590 | #{b 26257}#) | |
10591 | (if (symbol? #{a 26255}#) | |
10592 | #t | |
10593 | (if (if (vector? #{a 26255}#) | |
10594 | (if (= (vector-length #{a 26255}#) 4) | |
10595 | (eq? (vector-ref #{a 26255}# 0) | |
10596 | 'syntax-object) | |
10597 | #f) | |
10598 | #f) | |
10599 | (symbol? (vector-ref #{a 26255}# 1)) | |
10600 | #f))) | |
10601 | #{tmp 26251}#) | |
10602 | #f) | |
10603 | (@apply | |
10604 | (lambda (#{a 26284}# #{init 26285}# #{b 26286}#) | |
10605 | (#{opt 26077}# | |
10606 | #{b 26286}# | |
10607 | #{req 26208}# | |
10608 | (cons (list #{a 26284}# #{init 26285}#) | |
10609 | #{ropt 26209}#))) | |
10610 | #{tmp 26251}#) | |
10611 | (let ((#{tmp 26287}# | |
10612 | ($sc-dispatch #{args 26207}# '(any . any)))) | |
10613 | (if (if #{tmp 26287}# | |
10614 | (@apply | |
10615 | (lambda (#{a 26291}# #{b 26292}#) | |
10616 | (eq? (syntax->datum #{a 26291}#) #:key)) | |
10617 | #{tmp 26287}#) | |
10618 | #f) | |
10619 | (@apply | |
10620 | (lambda (#{a 26293}# #{b 26294}#) | |
10621 | (#{key 26078}# | |
10622 | #{b 26294}# | |
10623 | #{req 26208}# | |
10624 | (reverse #{ropt 26209}#) | |
10625 | '())) | |
10626 | #{tmp 26287}#) | |
10627 | (let ((#{tmp 26297}# | |
10628 | ($sc-dispatch | |
10629 | #{args 26207}# | |
10630 | '(any any)))) | |
10631 | (if (if #{tmp 26297}# | |
10632 | (@apply | |
10633 | (lambda (#{a 26301}# #{b 26302}#) | |
10634 | (eq? (syntax->datum #{a 26301}#) | |
10635 | #:rest)) | |
10636 | #{tmp 26297}#) | |
10637 | #f) | |
10638 | (@apply | |
10639 | (lambda (#{a 26303}# #{b 26304}#) | |
10640 | (#{rest 26079}# | |
10641 | #{b 26304}# | |
10642 | #{req 26208}# | |
10643 | (reverse #{ropt 26209}#) | |
10644 | '())) | |
10645 | #{tmp 26297}#) | |
10646 | (let ((#{tmp 26307}# (list #{args 26207}#))) | |
10647 | (if (@apply | |
10648 | (lambda (#{r 26309}#) | |
10649 | (if (symbol? #{r 26309}#) | |
10650 | #t | |
10651 | (if (if (vector? #{r 26309}#) | |
10652 | (if (= (vector-length | |
10653 | #{r 26309}#) | |
10654 | 4) | |
10655 | (eq? (vector-ref | |
10656 | #{r 26309}# | |
10657 | 0) | |
10658 | 'syntax-object) | |
10659 | #f) | |
10660 | #f) | |
10661 | (symbol? | |
10662 | (vector-ref #{r 26309}# 1)) | |
10663 | #f))) | |
10664 | #{tmp 26307}#) | |
10665 | (@apply | |
10666 | (lambda (#{r 26339}#) | |
10667 | (#{rest 26079}# | |
10668 | #{r 26339}# | |
10669 | #{req 26208}# | |
10670 | (reverse #{ropt 26209}#) | |
10671 | '())) | |
10672 | #{tmp 26307}#) | |
10673 | (syntax-violation | |
10674 | 'lambda* | |
10675 | "invalid optional argument list" | |
10676 | #{orig-args 26075}# | |
10677 | #{args 26207}#))))))))))))))) | |
10678 | (#{key 26078}# | |
10679 | (lambda (#{args 26358}# | |
10680 | #{req 26359}# | |
10681 | #{opt 26360}# | |
10682 | #{rkey 26361}#) | |
10683 | (let ((#{tmp 26363}# ($sc-dispatch #{args 26358}# '()))) | |
10684 | (if #{tmp 26363}# | |
10685 | (@apply | |
10686 | (lambda () | |
10687 | (#{check 26080}# | |
10688 | #{req 26359}# | |
10689 | #{opt 26360}# | |
10690 | #f | |
10691 | (cons #f (reverse #{rkey 26361}#)))) | |
10692 | #{tmp 26363}#) | |
10693 | (let ((#{tmp 26369}# | |
10694 | ($sc-dispatch #{args 26358}# '(any . any)))) | |
10695 | (if (if #{tmp 26369}# | |
10696 | (@apply | |
10697 | (lambda (#{a 26373}# #{b 26374}#) | |
10698 | (if (symbol? #{a 26373}#) | |
10699 | #t | |
10700 | (if (if (vector? #{a 26373}#) | |
10701 | (if (= (vector-length #{a 26373}#) 4) | |
10702 | (eq? (vector-ref #{a 26373}# 0) | |
10703 | 'syntax-object) | |
10704 | #f) | |
10705 | #f) | |
10706 | (symbol? (vector-ref #{a 26373}# 1)) | |
10707 | #f))) | |
10708 | #{tmp 26369}#) | |
10709 | #f) | |
10710 | (@apply | |
10711 | (lambda (#{a 26401}# #{b 26402}#) | |
10712 | (let ((#{tmp 26403}# | |
10713 | (symbol->keyword | |
10714 | (syntax->datum #{a 26401}#)))) | |
10715 | (#{key 26078}# | |
10716 | #{b 26402}# | |
10717 | #{req 26359}# | |
10718 | #{opt 26360}# | |
10719 | (cons (cons #{tmp 26403}# | |
10720 | (cons #{a 26401}# | |
10721 | '(#(syntax-object | |
10722 | #f | |
10723 | ((top) | |
10724 | #(ribcage () () ()) | |
10725 | #(ribcage | |
10726 | #(k) | |
10727 | #((top)) | |
10728 | #("i2432")) | |
10729 | #(ribcage | |
10730 | #(a b) | |
10731 | #((top) (top)) | |
10732 | #("i2426" "i2427")) | |
10733 | #(ribcage () () ()) | |
10734 | #(ribcage | |
10735 | #(args req opt rkey) | |
10736 | #((top) | |
10737 | (top) | |
10738 | (top) | |
10739 | (top)) | |
10740 | #("i2415" | |
10741 | "i2416" | |
10742 | "i2417" | |
10743 | "i2418")) | |
10744 | #(ribcage | |
10745 | (check rest key opt req) | |
10746 | ((top) | |
10747 | (top) | |
10748 | (top) | |
10749 | (top) | |
10750 | (top)) | |
10751 | ("i2305" | |
10752 | "i2303" | |
10753 | "i2301" | |
10754 | "i2299" | |
10755 | "i2297")) | |
10756 | #(ribcage | |
10757 | #(orig-args) | |
10758 | #((top)) | |
10759 | #("i2296")) | |
10760 | #(ribcage | |
10761 | (lambda-var-list | |
10762 | gen-var | |
10763 | strip | |
10764 | expand-lambda-case | |
10765 | lambda*-formals | |
10766 | expand-simple-lambda | |
10767 | lambda-formals | |
10768 | ellipsis? | |
10769 | expand-void | |
10770 | eval-local-transformer | |
10771 | expand-local-syntax | |
10772 | expand-body | |
10773 | expand-macro | |
10774 | expand-application | |
10775 | expand-expr | |
10776 | expand | |
10777 | syntax-type | |
10778 | expand-when-list | |
10779 | expand-install-global | |
10780 | expand-top-sequence | |
10781 | expand-sequence | |
10782 | source-wrap | |
10783 | wrap | |
10784 | bound-id-member? | |
10785 | distinct-bound-ids? | |
10786 | valid-bound-ids? | |
10787 | bound-id=? | |
10788 | free-id=? | |
10789 | id-var-name | |
10790 | same-marks? | |
10791 | join-marks | |
10792 | join-wraps | |
10793 | smart-append | |
10794 | make-binding-wrap | |
10795 | extend-ribcage! | |
10796 | make-empty-ribcage | |
10797 | new-mark | |
10798 | anti-mark | |
10799 | the-anti-mark | |
10800 | top-marked? | |
10801 | top-wrap | |
10802 | empty-wrap | |
10803 | set-ribcage-labels! | |
10804 | set-ribcage-marks! | |
10805 | set-ribcage-symnames! | |
10806 | ribcage-labels | |
10807 | ribcage-marks | |
10808 | ribcage-symnames | |
10809 | ribcage? | |
10810 | make-ribcage | |
10811 | gen-labels | |
10812 | gen-label | |
10813 | make-rename | |
10814 | rename-marks | |
10815 | rename-new | |
10816 | rename-old | |
10817 | subst-rename? | |
10818 | wrap-subst | |
10819 | wrap-marks | |
10820 | make-wrap | |
10821 | id-sym-name&marks | |
10822 | id-sym-name | |
10823 | id? | |
10824 | nonsymbol-id? | |
10825 | global-extend | |
10826 | lookup | |
10827 | macros-only-env | |
10828 | extend-var-env | |
10829 | extend-env | |
10830 | null-env | |
10831 | binding-value | |
10832 | binding-type | |
10833 | make-binding | |
10834 | arg-check | |
10835 | source-annotation | |
10836 | no-source | |
10837 | set-syntax-object-module! | |
10838 | set-syntax-object-wrap! | |
10839 | set-syntax-object-expression! | |
10840 | syntax-object-module | |
10841 | syntax-object-wrap | |
10842 | syntax-object-expression | |
10843 | syntax-object? | |
10844 | make-syntax-object | |
10845 | build-lexical-var | |
10846 | build-letrec | |
10847 | build-named-let | |
10848 | build-let | |
10849 | build-sequence | |
10850 | build-data | |
10851 | build-primref | |
10852 | build-lambda-case | |
10853 | build-case-lambda | |
10854 | build-simple-lambda | |
10855 | build-global-definition | |
10856 | build-global-assignment | |
10857 | build-global-reference | |
10858 | analyze-variable | |
10859 | build-lexical-assignment | |
10860 | build-lexical-reference | |
10861 | build-dynlet | |
10862 | build-conditional | |
10863 | build-application | |
10864 | build-void | |
10865 | maybe-name-value! | |
10866 | decorate-source | |
10867 | get-global-definition-hook | |
10868 | put-global-definition-hook | |
10869 | gensym-hook | |
10870 | local-eval-hook | |
10871 | top-level-eval-hook | |
10872 | fx< | |
10873 | fx= | |
10874 | fx- | |
10875 | fx+ | |
10876 | set-lambda-meta! | |
10877 | lambda-meta | |
10878 | lambda? | |
10879 | make-dynlet | |
10880 | make-letrec | |
10881 | make-let | |
10882 | make-lambda-case | |
10883 | make-lambda | |
10884 | make-sequence | |
10885 | make-application | |
10886 | make-conditional | |
10887 | make-toplevel-define | |
10888 | make-toplevel-set | |
10889 | make-toplevel-ref | |
10890 | make-module-set | |
10891 | make-module-ref | |
10892 | make-lexical-set | |
10893 | make-lexical-ref | |
10894 | make-primitive-ref | |
10895 | make-const | |
10896 | make-void) | |
10897 | ((top) | |
10898 | (top) | |
10899 | (top) | |
10900 | (top) | |
10901 | (top) | |
10902 | (top) | |
10903 | (top) | |
10904 | (top) | |
10905 | (top) | |
10906 | (top) | |
10907 | (top) | |
10908 | (top) | |
10909 | (top) | |
10910 | (top) | |
10911 | (top) | |
10912 | (top) | |
10913 | (top) | |
10914 | (top) | |
10915 | (top) | |
10916 | (top) | |
10917 | (top) | |
10918 | (top) | |
10919 | (top) | |
10920 | (top) | |
10921 | (top) | |
10922 | (top) | |
10923 | (top) | |
10924 | (top) | |
10925 | (top) | |
10926 | (top) | |
10927 | (top) | |
10928 | (top) | |
10929 | (top) | |
10930 | (top) | |
10931 | (top) | |
10932 | (top) | |
10933 | (top) | |
10934 | (top) | |
10935 | (top) | |
10936 | (top) | |
10937 | (top) | |
10938 | (top) | |
10939 | (top) | |
10940 | (top) | |
10941 | (top) | |
10942 | (top) | |
10943 | (top) | |
10944 | (top) | |
10945 | (top) | |
10946 | (top) | |
10947 | (top) | |
10948 | (top) | |
10949 | (top) | |
10950 | (top) | |
10951 | (top) | |
10952 | (top) | |
10953 | (top) | |
10954 | (top) | |
10955 | (top) | |
10956 | (top) | |
10957 | (top) | |
10958 | (top) | |
10959 | (top) | |
10960 | (top) | |
10961 | (top) | |
10962 | (top) | |
10963 | (top) | |
10964 | (top) | |
10965 | (top) | |
10966 | (top) | |
10967 | (top) | |
10968 | (top) | |
10969 | (top) | |
10970 | (top) | |
10971 | (top) | |
10972 | (top) | |
10973 | (top) | |
10974 | (top) | |
10975 | (top) | |
10976 | (top) | |
10977 | (top) | |
10978 | (top) | |
10979 | (top) | |
10980 | (top) | |
10981 | (top) | |
10982 | (top) | |
10983 | (top) | |
10984 | (top) | |
10985 | (top) | |
10986 | (top) | |
10987 | (top) | |
10988 | (top) | |
10989 | (top) | |
10990 | (top) | |
10991 | (top) | |
10992 | (top) | |
10993 | (top) | |
10994 | (top) | |
10995 | (top) | |
10996 | (top) | |
10997 | (top) | |
10998 | (top) | |
10999 | (top) | |
11000 | (top) | |
11001 | (top) | |
11002 | (top) | |
11003 | (top) | |
11004 | (top) | |
11005 | (top) | |
11006 | (top) | |
11007 | (top) | |
11008 | (top) | |
11009 | (top) | |
11010 | (top) | |
11011 | (top) | |
11012 | (top) | |
11013 | (top) | |
11014 | (top) | |
11015 | (top) | |
11016 | (top) | |
11017 | (top) | |
11018 | (top) | |
11019 | (top) | |
11020 | (top) | |
11021 | (top) | |
11022 | (top) | |
11023 | (top) | |
11024 | (top) | |
11025 | (top) | |
11026 | (top) | |
11027 | (top) | |
11028 | (top) | |
11029 | (top) | |
11030 | (top) | |
11031 | (top) | |
11032 | (top)) | |
11033 | ("i467" | |
11034 | "i465" | |
11035 | "i463" | |
11036 | "i461" | |
11037 | "i459" | |
11038 | "i457" | |
11039 | "i455" | |
11040 | "i453" | |
11041 | "i451" | |
11042 | "i449" | |
11043 | "i447" | |
11044 | "i445" | |
11045 | "i443" | |
11046 | "i441" | |
11047 | "i439" | |
11048 | "i437" | |
11049 | "i435" | |
11050 | "i433" | |
11051 | "i431" | |
11052 | "i429" | |
11053 | "i427" | |
11054 | "i425" | |
11055 | "i423" | |
11056 | "i421" | |
11057 | "i419" | |
11058 | "i417" | |
11059 | "i415" | |
11060 | "i413" | |
11061 | "i411" | |
11062 | "i409" | |
11063 | "i407" | |
11064 | "i405" | |
11065 | "i403" | |
11066 | "i401" | |
11067 | "i399" | |
11068 | "i398" | |
11069 | "i396" | |
11070 | "i393" | |
11071 | "i392" | |
11072 | "i391" | |
11073 | "i389" | |
11074 | "i388" | |
11075 | "i386" | |
11076 | "i384" | |
11077 | "i382" | |
11078 | "i380" | |
11079 | "i378" | |
11080 | "i376" | |
11081 | "i374" | |
11082 | "i372" | |
11083 | "i369" | |
11084 | "i367" | |
11085 | "i366" | |
11086 | "i364" | |
11087 | "i362" | |
11088 | "i360" | |
11089 | "i358" | |
11090 | "i357" | |
11091 | "i356" | |
11092 | "i355" | |
11093 | "i353" | |
11094 | "i352" | |
11095 | "i349" | |
11096 | "i347" | |
11097 | "i345" | |
11098 | "i343" | |
11099 | "i341" | |
11100 | "i339" | |
11101 | "i337" | |
11102 | "i336" | |
11103 | "i335" | |
11104 | "i333" | |
11105 | "i331" | |
11106 | "i330" | |
11107 | "i327" | |
11108 | "i326" | |
11109 | "i324" | |
11110 | "i322" | |
11111 | "i320" | |
11112 | "i318" | |
11113 | "i316" | |
11114 | "i314" | |
11115 | "i312" | |
11116 | "i310" | |
11117 | "i308" | |
11118 | "i305" | |
11119 | "i303" | |
11120 | "i301" | |
11121 | "i299" | |
11122 | "i297" | |
11123 | "i295" | |
11124 | "i293" | |
11125 | "i291" | |
11126 | "i289" | |
11127 | "i287" | |
11128 | "i285" | |
11129 | "i283" | |
11130 | "i281" | |
11131 | "i279" | |
11132 | "i277" | |
11133 | "i275" | |
11134 | "i273" | |
11135 | "i271" | |
11136 | "i269" | |
11137 | "i267" | |
11138 | "i265" | |
11139 | "i263" | |
11140 | "i261" | |
11141 | "i260" | |
11142 | "i257" | |
11143 | "i255" | |
11144 | "i254" | |
11145 | "i253" | |
11146 | "i252" | |
11147 | "i251" | |
11148 | "i249" | |
11149 | "i247" | |
11150 | "i245" | |
11151 | "i242" | |
11152 | "i240" | |
11153 | "i238" | |
11154 | "i236" | |
11155 | "i234" | |
11156 | "i232" | |
11157 | "i230" | |
11158 | "i228" | |
11159 | "i226" | |
11160 | "i224" | |
11161 | "i222" | |
11162 | "i220" | |
11163 | "i218" | |
11164 | "i216" | |
11165 | "i214" | |
11166 | "i212" | |
11167 | "i210" | |
11168 | "i208")) | |
11169 | #(ribcage | |
11170 | (define-structure | |
11171 | define-expansion-accessors | |
11172 | define-expansion-constructors) | |
11173 | ((top) (top) (top)) | |
11174 | ("i46" "i45" "i44"))) | |
11175 | (hygiene guile))))) | |
11176 | #{rkey 26361}#)))) | |
11177 | #{tmp 26369}#) | |
11178 | (let ((#{tmp 26406}# | |
11179 | ($sc-dispatch | |
11180 | #{args 26358}# | |
11181 | '((any any) . any)))) | |
11182 | (if (if #{tmp 26406}# | |
11183 | (@apply | |
11184 | (lambda (#{a 26410}# | |
11185 | #{init 26411}# | |
11186 | #{b 26412}#) | |
11187 | (if (symbol? #{a 26410}#) | |
11188 | #t | |
11189 | (if (if (vector? #{a 26410}#) | |
11190 | (if (= (vector-length #{a 26410}#) 4) | |
11191 | (eq? (vector-ref #{a 26410}# 0) | |
11192 | 'syntax-object) | |
11193 | #f) | |
11194 | #f) | |
11195 | (symbol? (vector-ref #{a 26410}# 1)) | |
11196 | #f))) | |
11197 | #{tmp 26406}#) | |
11198 | #f) | |
11199 | (@apply | |
11200 | (lambda (#{a 26439}# #{init 26440}# #{b 26441}#) | |
11201 | (let ((#{tmp 26442}# | |
11202 | (symbol->keyword | |
11203 | (syntax->datum #{a 26439}#)))) | |
11204 | (#{key 26078}# | |
11205 | #{b 26441}# | |
11206 | #{req 26359}# | |
11207 | #{opt 26360}# | |
11208 | (cons (list #{tmp 26442}# | |
11209 | #{a 26439}# | |
11210 | #{init 26440}#) | |
11211 | #{rkey 26361}#)))) | |
11212 | #{tmp 26406}#) | |
11213 | (let ((#{tmp 26445}# | |
11214 | ($sc-dispatch | |
11215 | #{args 26358}# | |
11216 | '((any any any) . any)))) | |
11217 | (if (if #{tmp 26445}# | |
11218 | (@apply | |
11219 | (lambda (#{a 26449}# | |
11220 | #{init 26450}# | |
11221 | #{k 26451}# | |
11222 | #{b 26452}#) | |
11223 | (if (if (symbol? #{a 26449}#) | |
11224 | #t | |
11225 | (if (if (vector? #{a 26449}#) | |
11226 | (if (= (vector-length | |
11227 | #{a 26449}#) | |
11228 | 4) | |
11229 | (eq? (vector-ref | |
11230 | #{a 26449}# | |
11231 | 0) | |
11232 | 'syntax-object) | |
11233 | #f) | |
11234 | #f) | |
11235 | (symbol? | |
11236 | (vector-ref #{a 26449}# 1)) | |
11237 | #f)) | |
11238 | (keyword? (syntax->datum #{k 26451}#)) | |
11239 | #f)) | |
11240 | #{tmp 26445}#) | |
11241 | #f) | |
11242 | (@apply | |
11243 | (lambda (#{a 26479}# | |
11244 | #{init 26480}# | |
11245 | #{k 26481}# | |
11246 | #{b 26482}#) | |
11247 | (#{key 26078}# | |
11248 | #{b 26482}# | |
11249 | #{req 26359}# | |
11250 | #{opt 26360}# | |
11251 | (cons (list #{k 26481}# | |
11252 | #{a 26479}# | |
11253 | #{init 26480}#) | |
11254 | #{rkey 26361}#))) | |
11255 | #{tmp 26445}#) | |
11256 | (let ((#{tmp 26483}# | |
11257 | ($sc-dispatch #{args 26358}# '(any)))) | |
11258 | (if (if #{tmp 26483}# | |
11259 | (@apply | |
11260 | (lambda (#{aok 26487}#) | |
11261 | (eq? (syntax->datum #{aok 26487}#) | |
11262 | #:allow-other-keys)) | |
11263 | #{tmp 26483}#) | |
11264 | #f) | |
11265 | (@apply | |
11266 | (lambda (#{aok 26488}#) | |
11267 | (#{check 26080}# | |
11268 | #{req 26359}# | |
11269 | #{opt 26360}# | |
11270 | #f | |
11271 | (cons #t (reverse #{rkey 26361}#)))) | |
11272 | #{tmp 26483}#) | |
11273 | (let ((#{tmp 26491}# | |
11274 | ($sc-dispatch | |
11275 | #{args 26358}# | |
11276 | '(any any any)))) | |
11277 | (if (if #{tmp 26491}# | |
11278 | (@apply | |
11279 | (lambda (#{aok 26495}# | |
11280 | #{a 26496}# | |
11281 | #{b 26497}#) | |
11282 | (if (eq? (syntax->datum | |
11283 | #{aok 26495}#) | |
11284 | #:allow-other-keys) | |
11285 | (eq? (syntax->datum | |
11286 | #{a 26496}#) | |
11287 | #:rest) | |
11288 | #f)) | |
11289 | #{tmp 26491}#) | |
11290 | #f) | |
11291 | (@apply | |
11292 | (lambda (#{aok 26498}# | |
11293 | #{a 26499}# | |
11294 | #{b 26500}#) | |
11295 | (#{rest 26079}# | |
11296 | #{b 26500}# | |
11297 | #{req 26359}# | |
11298 | #{opt 26360}# | |
11299 | (cons #t | |
11300 | (reverse #{rkey 26361}#)))) | |
11301 | #{tmp 26491}#) | |
11302 | (let ((#{tmp 26503}# | |
11303 | ($sc-dispatch | |
11304 | #{args 26358}# | |
11305 | '(any . any)))) | |
11306 | (if (if #{tmp 26503}# | |
11307 | (@apply | |
11308 | (lambda (#{aok 26507}# | |
11309 | #{r 26508}#) | |
11310 | (if (eq? (syntax->datum | |
11311 | #{aok 26507}#) | |
11312 | #:allow-other-keys) | |
11313 | (if (symbol? #{r 26508}#) | |
11314 | #t | |
11315 | (if (if (vector? | |
11316 | #{r 26508}#) | |
11317 | (if (= (vector-length | |
11318 | #{r 26508}#) | |
11319 | 4) | |
11320 | (eq? (vector-ref | |
11321 | #{r 26508}# | |
11322 | 0) | |
11323 | 'syntax-object) | |
11324 | #f) | |
11325 | #f) | |
11326 | (symbol? | |
11327 | (vector-ref | |
11328 | #{r 26508}# | |
11329 | 1)) | |
11330 | #f)) | |
11331 | #f)) | |
11332 | #{tmp 26503}#) | |
11333 | #f) | |
11334 | (@apply | |
11335 | (lambda (#{aok 26535}# #{r 26536}#) | |
11336 | (#{rest 26079}# | |
11337 | #{r 26536}# | |
11338 | #{req 26359}# | |
11339 | #{opt 26360}# | |
11340 | (cons #t | |
11341 | (reverse | |
11342 | #{rkey 26361}#)))) | |
11343 | #{tmp 26503}#) | |
11344 | (let ((#{tmp 26539}# | |
11345 | ($sc-dispatch | |
11346 | #{args 26358}# | |
11347 | '(any any)))) | |
11348 | (if (if #{tmp 26539}# | |
11349 | (@apply | |
11350 | (lambda (#{a 26543}# | |
11351 | #{b 26544}#) | |
11352 | (eq? (syntax->datum | |
11353 | #{a 26543}#) | |
11354 | #:rest)) | |
11355 | #{tmp 26539}#) | |
11356 | #f) | |
11357 | (@apply | |
11358 | (lambda (#{a 26545}# | |
11359 | #{b 26546}#) | |
11360 | (#{rest 26079}# | |
11361 | #{b 26546}# | |
11362 | #{req 26359}# | |
11363 | #{opt 26360}# | |
11364 | (cons #f | |
11365 | (reverse | |
11366 | #{rkey 26361}#)))) | |
11367 | #{tmp 26539}#) | |
11368 | (let ((#{tmp 26549}# | |
11369 | (list #{args 26358}#))) | |
11370 | (if (@apply | |
11371 | (lambda (#{r 26551}#) | |
11372 | (if (symbol? | |
11373 | #{r 26551}#) | |
11374 | #t | |
11375 | (if (if (vector? | |
11376 | #{r 26551}#) | |
11377 | (if (= (vector-length | |
11378 | #{r 26551}#) | |
11379 | 4) | |
11380 | (eq? (vector-ref | |
11381 | #{r 26551}# | |
11382 | 0) | |
11383 | 'syntax-object) | |
11384 | #f) | |
11385 | #f) | |
11386 | (symbol? | |
11387 | (vector-ref | |
11388 | #{r 26551}# | |
11389 | 1)) | |
11390 | #f))) | |
11391 | #{tmp 26549}#) | |
11392 | (@apply | |
11393 | (lambda (#{r 26581}#) | |
11394 | (#{rest 26079}# | |
11395 | #{r 26581}# | |
11396 | #{req 26359}# | |
11397 | #{opt 26360}# | |
11398 | (cons #f | |
11399 | (reverse | |
11400 | #{rkey 26361}#)))) | |
11401 | #{tmp 26549}#) | |
11402 | (syntax-violation | |
11403 | 'lambda* | |
11404 | "invalid keyword argument list" | |
11405 | #{orig-args 26075}# | |
11406 | #{args 26358}#))))))))))))))))))))) | |
11407 | (#{rest 26079}# | |
11408 | (lambda (#{args 26609}# | |
11409 | #{req 26610}# | |
11410 | #{opt 26611}# | |
11411 | #{kw 26612}#) | |
11412 | (let ((#{tmp 26614}# (list #{args 26609}#))) | |
11413 | (if (@apply | |
11414 | (lambda (#{r 26616}#) | |
11415 | (if (symbol? #{r 26616}#) | |
11416 | #t | |
11417 | (if (if (vector? #{r 26616}#) | |
11418 | (if (= (vector-length #{r 26616}#) 4) | |
11419 | (eq? (vector-ref #{r 26616}# 0) | |
11420 | 'syntax-object) | |
11421 | #f) | |
11422 | #f) | |
11423 | (symbol? (vector-ref #{r 26616}# 1)) | |
11424 | #f))) | |
11425 | #{tmp 26614}#) | |
11426 | (@apply | |
11427 | (lambda (#{r 26646}#) | |
11428 | (#{check 26080}# | |
11429 | #{req 26610}# | |
11430 | #{opt 26611}# | |
11431 | #{r 26646}# | |
11432 | #{kw 26612}#)) | |
11433 | #{tmp 26614}#) | |
11434 | (syntax-violation | |
11435 | 'lambda* | |
11436 | "invalid rest argument" | |
11437 | #{orig-args 26075}# | |
11438 | #{args 26609}#))))) | |
11439 | (#{check 26080}# | |
11440 | (lambda (#{req 26650}# | |
11441 | #{opt 26651}# | |
11442 | #{rest 26652}# | |
11443 | #{kw 26653}#) | |
11444 | (if (#{distinct-bound-ids? 4336}# | |
11445 | (append | |
11446 | #{req 26650}# | |
11447 | (map car #{opt 26651}#) | |
11448 | (if #{rest 26652}# (list #{rest 26652}#) '()) | |
11449 | (if (pair? #{kw 26653}#) | |
11450 | (map cadr (cdr #{kw 26653}#)) | |
11451 | '()))) | |
11452 | (values | |
11453 | #{req 26650}# | |
11454 | #{opt 26651}# | |
11455 | #{rest 26652}# | |
11456 | #{kw 26653}#) | |
11457 | (syntax-violation | |
11458 | 'lambda* | |
11459 | "duplicate identifier in argument list" | |
11460 | #{orig-args 26075}#))))) | |
11461 | (#{req 26076}# #{orig-args 26075}# '())))) | |
11462 | (#{expand-lambda-case 4357}# | |
11463 | (lambda (#{e 26773}# | |
11464 | #{r 26774}# | |
11465 | #{w 26775}# | |
11466 | #{s 26776}# | |
11467 | #{mod 26777}# | |
11468 | #{get-formals 26778}# | |
11469 | #{clauses 26779}#) | |
11470 | (letrec* | |
11471 | ((#{parse-req 26780}# | |
11472 | (lambda (#{req 26914}# | |
11473 | #{opt 26915}# | |
11474 | #{rest 26916}# | |
11475 | #{kw 26917}# | |
11476 | #{body 26918}#) | |
11477 | (let ((#{vars 26919}# | |
11478 | (map #{gen-var 4359}# #{req 26914}#)) | |
11479 | (#{labels 26920}# | |
11480 | (#{gen-labels 4316}# #{req 26914}#))) | |
11481 | (let ((#{r* 26921}# | |
11482 | (#{extend-var-env 4308}# | |
11483 | #{labels 26920}# | |
11484 | #{vars 26919}# | |
11485 | #{r 26774}#)) | |
11486 | (#{w* 26922}# | |
11487 | (#{make-binding-wrap 4327}# | |
11488 | #{req 26914}# | |
11489 | #{labels 26920}# | |
11490 | #{w 26775}#))) | |
11491 | (#{parse-opt 26781}# | |
11492 | (map syntax->datum #{req 26914}#) | |
11493 | #{opt 26915}# | |
11494 | #{rest 26916}# | |
11495 | #{kw 26917}# | |
11496 | #{body 26918}# | |
11497 | (reverse #{vars 26919}#) | |
11498 | #{r* 26921}# | |
11499 | #{w* 26922}# | |
11500 | '() | |
11501 | '()))))) | |
11502 | (#{parse-opt 26781}# | |
11503 | (lambda (#{req 27138}# | |
11504 | #{opt 27139}# | |
11505 | #{rest 27140}# | |
11506 | #{kw 27141}# | |
11507 | #{body 27142}# | |
11508 | #{vars 27143}# | |
11509 | #{r* 27144}# | |
11510 | #{w* 27145}# | |
11511 | #{out 27146}# | |
11512 | #{inits 27147}#) | |
11513 | (if (pair? #{opt 27139}#) | |
11514 | (let ((#{tmp 27148}# (car #{opt 27139}#))) | |
11515 | (let ((#{tmp 27149}# | |
11516 | ($sc-dispatch #{tmp 27148}# '(any any)))) | |
11517 | (if #{tmp 27149}# | |
11518 | (@apply | |
11519 | (lambda (#{id 27151}# #{i 27152}#) | |
11520 | (let ((#{v 27153}# | |
11521 | (let ((#{id 27161}# | |
11522 | (if (if (vector? #{id 27151}#) | |
11523 | (if (= (vector-length | |
11524 | #{id 27151}#) | |
11525 | 4) | |
11526 | (eq? (vector-ref | |
11527 | #{id 27151}# | |
11528 | 0) | |
11529 | 'syntax-object) | |
11530 | #f) | |
11531 | #f) | |
11532 | (vector-ref #{id 27151}# 1) | |
11533 | #{id 27151}#))) | |
11534 | (gensym | |
11535 | (string-append | |
11536 | (symbol->string #{id 27161}#) | |
11537 | " "))))) | |
11538 | (let ((#{l 27154}# | |
11539 | (#{gen-labels 4316}# (list #{v 27153}#)))) | |
11540 | (let ((#{r** 27155}# | |
11541 | (#{extend-var-env 4308}# | |
11542 | #{l 27154}# | |
11543 | (list #{v 27153}#) | |
11544 | #{r* 27144}#))) | |
11545 | (let ((#{w** 27156}# | |
11546 | (#{make-binding-wrap 4327}# | |
11547 | (list #{id 27151}#) | |
11548 | #{l 27154}# | |
11549 | #{w* 27145}#))) | |
11550 | (#{parse-opt 26781}# | |
11551 | #{req 27138}# | |
11552 | (cdr #{opt 27139}#) | |
11553 | #{rest 27140}# | |
11554 | #{kw 27141}# | |
11555 | #{body 27142}# | |
11556 | (cons #{v 27153}# #{vars 27143}#) | |
11557 | #{r** 27155}# | |
11558 | #{w** 27156}# | |
11559 | (cons (syntax->datum #{id 27151}#) | |
11560 | #{out 27146}#) | |
11561 | (cons (#{expand 4345}# | |
11562 | #{i 27152}# | |
11563 | #{r* 27144}# | |
11564 | #{w* 27145}# | |
11565 | #{mod 26777}#) | |
11566 | #{inits 27147}#))))))) | |
11567 | #{tmp 27149}#) | |
11568 | (syntax-violation | |
11569 | #f | |
11570 | "source expression failed to match any pattern" | |
11571 | #{tmp 27148}#)))) | |
11572 | (if #{rest 27140}# | |
11573 | (let ((#{v 27433}# | |
11574 | (let ((#{id 27443}# | |
11575 | (if (if (vector? #{rest 27140}#) | |
11576 | (if (= (vector-length #{rest 27140}#) | |
11577 | 4) | |
11578 | (eq? (vector-ref #{rest 27140}# 0) | |
11579 | 'syntax-object) | |
11580 | #f) | |
11581 | #f) | |
11582 | (vector-ref #{rest 27140}# 1) | |
11583 | #{rest 27140}#))) | |
11584 | (gensym | |
11585 | (string-append | |
11586 | (symbol->string #{id 27443}#) | |
11587 | " "))))) | |
11588 | (let ((#{l 27434}# | |
11589 | (#{gen-labels 4316}# (list #{v 27433}#)))) | |
11590 | (let ((#{r* 27435}# | |
11591 | (#{extend-var-env 4308}# | |
11592 | #{l 27434}# | |
11593 | (list #{v 27433}#) | |
11594 | #{r* 27144}#))) | |
11595 | (let ((#{w* 27436}# | |
11596 | (#{make-binding-wrap 4327}# | |
11597 | (list #{rest 27140}#) | |
11598 | #{l 27434}# | |
11599 | #{w* 27145}#))) | |
11600 | (#{parse-kw 26782}# | |
11601 | #{req 27138}# | |
11602 | (if (pair? #{out 27146}#) | |
11603 | (reverse #{out 27146}#) | |
11604 | #f) | |
11605 | (syntax->datum #{rest 27140}#) | |
11606 | (if (pair? #{kw 27141}#) | |
11607 | (cdr #{kw 27141}#) | |
11608 | #{kw 27141}#) | |
11609 | #{body 27142}# | |
11610 | (cons #{v 27433}# #{vars 27143}#) | |
11611 | #{r* 27435}# | |
11612 | #{w* 27436}# | |
11613 | (if (pair? #{kw 27141}#) (car #{kw 27141}#) #f) | |
11614 | '() | |
11615 | #{inits 27147}#))))) | |
11616 | (#{parse-kw 26782}# | |
11617 | #{req 27138}# | |
11618 | (if (pair? #{out 27146}#) | |
11619 | (reverse #{out 27146}#) | |
11620 | #f) | |
11621 | #f | |
11622 | (if (pair? #{kw 27141}#) | |
11623 | (cdr #{kw 27141}#) | |
11624 | #{kw 27141}#) | |
11625 | #{body 27142}# | |
11626 | #{vars 27143}# | |
11627 | #{r* 27144}# | |
11628 | #{w* 27145}# | |
11629 | (if (pair? #{kw 27141}#) (car #{kw 27141}#) #f) | |
11630 | '() | |
11631 | #{inits 27147}#))))) | |
11632 | (#{parse-kw 26782}# | |
11633 | (lambda (#{req 27643}# | |
11634 | #{opt 27644}# | |
11635 | #{rest 27645}# | |
11636 | #{kw 27646}# | |
11637 | #{body 27647}# | |
11638 | #{vars 27648}# | |
11639 | #{r* 27649}# | |
11640 | #{w* 27650}# | |
11641 | #{aok 27651}# | |
11642 | #{out 27652}# | |
11643 | #{inits 27653}#) | |
11644 | (if (pair? #{kw 27646}#) | |
11645 | (let ((#{tmp 27654}# (car #{kw 27646}#))) | |
11646 | (let ((#{tmp 27655}# | |
11647 | ($sc-dispatch #{tmp 27654}# '(any any any)))) | |
11648 | (if #{tmp 27655}# | |
11649 | (@apply | |
11650 | (lambda (#{k 27657}# #{id 27658}# #{i 27659}#) | |
11651 | (let ((#{v 27660}# | |
11652 | (let ((#{id 27668}# | |
11653 | (if (if (vector? #{id 27658}#) | |
11654 | (if (= (vector-length | |
11655 | #{id 27658}#) | |
11656 | 4) | |
11657 | (eq? (vector-ref | |
11658 | #{id 27658}# | |
11659 | 0) | |
11660 | 'syntax-object) | |
11661 | #f) | |
11662 | #f) | |
11663 | (vector-ref #{id 27658}# 1) | |
11664 | #{id 27658}#))) | |
11665 | (gensym | |
11666 | (string-append | |
11667 | (symbol->string #{id 27668}#) | |
11668 | " "))))) | |
11669 | (let ((#{l 27661}# | |
11670 | (#{gen-labels 4316}# (list #{v 27660}#)))) | |
11671 | (let ((#{r** 27662}# | |
11672 | (#{extend-var-env 4308}# | |
11673 | #{l 27661}# | |
11674 | (list #{v 27660}#) | |
11675 | #{r* 27649}#))) | |
11676 | (let ((#{w** 27663}# | |
11677 | (#{make-binding-wrap 4327}# | |
11678 | (list #{id 27658}#) | |
11679 | #{l 27661}# | |
11680 | #{w* 27650}#))) | |
11681 | (#{parse-kw 26782}# | |
11682 | #{req 27643}# | |
11683 | #{opt 27644}# | |
11684 | #{rest 27645}# | |
11685 | (cdr #{kw 27646}#) | |
11686 | #{body 27647}# | |
11687 | (cons #{v 27660}# #{vars 27648}#) | |
11688 | #{r** 27662}# | |
11689 | #{w** 27663}# | |
11690 | #{aok 27651}# | |
11691 | (cons (list (syntax->datum #{k 27657}#) | |
11692 | (syntax->datum #{id 27658}#) | |
11693 | #{v 27660}#) | |
11694 | #{out 27652}#) | |
11695 | (cons (#{expand 4345}# | |
11696 | #{i 27659}# | |
11697 | #{r* 27649}# | |
11698 | #{w* 27650}# | |
11699 | #{mod 26777}#) | |
11700 | #{inits 27653}#))))))) | |
11701 | #{tmp 27655}#) | |
11702 | (syntax-violation | |
11703 | #f | |
11704 | "source expression failed to match any pattern" | |
11705 | #{tmp 27654}#)))) | |
11706 | (#{parse-body 26783}# | |
11707 | #{req 27643}# | |
11708 | #{opt 27644}# | |
11709 | #{rest 27645}# | |
11710 | (if (if #{aok 27651}# | |
11711 | #{aok 27651}# | |
11712 | (pair? #{out 27652}#)) | |
11713 | (cons #{aok 27651}# (reverse #{out 27652}#)) | |
11714 | #f) | |
11715 | #{body 27647}# | |
11716 | (reverse #{vars 27648}#) | |
11717 | #{r* 27649}# | |
11718 | #{w* 27650}# | |
11719 | (reverse #{inits 27653}#) | |
11720 | '())))) | |
11721 | (#{parse-body 26783}# | |
11722 | (lambda (#{req 27949}# | |
11723 | #{opt 27950}# | |
11724 | #{rest 27951}# | |
11725 | #{kw 27952}# | |
11726 | #{body 27953}# | |
11727 | #{vars 27954}# | |
11728 | #{r* 27955}# | |
11729 | #{w* 27956}# | |
11730 | #{inits 27957}# | |
11731 | #{meta 27958}#) | |
11732 | (let ((#{tmp 27960}# | |
11733 | ($sc-dispatch | |
11734 | #{body 27953}# | |
11735 | '(any any . each-any)))) | |
11736 | (if (if #{tmp 27960}# | |
11737 | (@apply | |
11738 | (lambda (#{docstring 27964}# #{e1 27965}# #{e2 27966}#) | |
11739 | (string? (syntax->datum #{docstring 27964}#))) | |
11740 | #{tmp 27960}#) | |
11741 | #f) | |
11742 | (@apply | |
11743 | (lambda (#{docstring 27967}# #{e1 27968}# #{e2 27969}#) | |
11744 | (#{parse-body 26783}# | |
11745 | #{req 27949}# | |
11746 | #{opt 27950}# | |
11747 | #{rest 27951}# | |
11748 | #{kw 27952}# | |
11749 | (cons #{e1 27968}# #{e2 27969}#) | |
11750 | #{vars 27954}# | |
11751 | #{r* 27955}# | |
11752 | #{w* 27956}# | |
11753 | #{inits 27957}# | |
11754 | (append | |
11755 | #{meta 27958}# | |
11756 | (list (cons 'documentation | |
11757 | (syntax->datum #{docstring 27967}#)))))) | |
11758 | #{tmp 27960}#) | |
11759 | (let ((#{tmp 27970}# | |
11760 | ($sc-dispatch | |
11761 | #{body 27953}# | |
11762 | '(#(vector #(each (any . any))) any . each-any)))) | |
11763 | (if #{tmp 27970}# | |
11764 | (@apply | |
11765 | (lambda (#{k 27974}# | |
11766 | #{v 27975}# | |
11767 | #{e1 27976}# | |
11768 | #{e2 27977}#) | |
11769 | (#{parse-body 26783}# | |
11770 | #{req 27949}# | |
11771 | #{opt 27950}# | |
11772 | #{rest 27951}# | |
11773 | #{kw 27952}# | |
11774 | (cons #{e1 27976}# #{e2 27977}#) | |
11775 | #{vars 27954}# | |
11776 | #{r* 27955}# | |
11777 | #{w* 27956}# | |
11778 | #{inits 27957}# | |
11779 | (append | |
11780 | #{meta 27958}# | |
11781 | (syntax->datum | |
11782 | (map cons #{k 27974}# #{v 27975}#))))) | |
11783 | #{tmp 27970}#) | |
11784 | (let ((#{tmp 27978}# | |
11785 | ($sc-dispatch #{body 27953}# '(any . each-any)))) | |
11786 | (if #{tmp 27978}# | |
11787 | (@apply | |
11788 | (lambda (#{e1 27982}# #{e2 27983}#) | |
11789 | (values | |
11790 | #{meta 27958}# | |
11791 | #{req 27949}# | |
11792 | #{opt 27950}# | |
11793 | #{rest 27951}# | |
11794 | #{kw 27952}# | |
11795 | #{inits 27957}# | |
11796 | #{vars 27954}# | |
11797 | (#{expand-body 4349}# | |
11798 | (cons #{e1 27982}# #{e2 27983}#) | |
11799 | (#{wrap 4338}# | |
11800 | (begin | |
11801 | (if (if (pair? #{e 26773}#) | |
11802 | #{s 26776}# | |
11803 | #f) | |
11804 | (set-source-properties! | |
11805 | #{e 26773}# | |
11806 | #{s 26776}#)) | |
11807 | #{e 26773}#) | |
11808 | #{w 26775}# | |
11809 | #{mod 26777}#) | |
11810 | #{r* 27955}# | |
11811 | #{w* 27956}# | |
11812 | #{mod 26777}#))) | |
11813 | #{tmp 27978}#) | |
11814 | (syntax-violation | |
11815 | #f | |
11816 | "source expression failed to match any pattern" | |
11817 | #{body 27953}#)))))))))) | |
11818 | (let ((#{tmp 26785}# | |
11819 | ($sc-dispatch #{clauses 26779}# '()))) | |
11820 | (if #{tmp 26785}# | |
11821 | (@apply | |
11822 | (lambda () (values '() #f)) | |
11823 | #{tmp 26785}#) | |
11824 | (let ((#{tmp 26790}# | |
11825 | ($sc-dispatch | |
11826 | #{clauses 26779}# | |
11827 | '((any any . each-any) | |
11828 | . | |
11829 | #(each (any any . each-any)))))) | |
11830 | (if #{tmp 26790}# | |
11831 | (@apply | |
11832 | (lambda (#{args 26794}# | |
11833 | #{e1 26795}# | |
11834 | #{e2 26796}# | |
11835 | #{args* 26797}# | |
11836 | #{e1* 26798}# | |
11837 | #{e2* 26799}#) | |
11838 | (call-with-values | |
11839 | (lambda () | |
11840 | (#{get-formals 26778}# #{args 26794}#)) | |
11841 | (lambda (#{req 26800}# | |
11842 | #{opt 26801}# | |
11843 | #{rest 26802}# | |
11844 | #{kw 26803}#) | |
11845 | (call-with-values | |
11846 | (lambda () | |
11847 | (#{parse-req 26780}# | |
11848 | #{req 26800}# | |
11849 | #{opt 26801}# | |
11850 | #{rest 26802}# | |
11851 | #{kw 26803}# | |
11852 | (cons #{e1 26795}# #{e2 26796}#))) | |
11853 | (lambda (#{meta 26870}# | |
11854 | #{req 26871}# | |
11855 | #{opt 26872}# | |
11856 | #{rest 26873}# | |
11857 | #{kw 26874}# | |
11858 | #{inits 26875}# | |
11859 | #{vars 26876}# | |
11860 | #{body 26877}#) | |
11861 | (call-with-values | |
11862 | (lambda () | |
11863 | (#{expand-lambda-case 4357}# | |
11864 | #{e 26773}# | |
11865 | #{r 26774}# | |
11866 | #{w 26775}# | |
11867 | #{s 26776}# | |
11868 | #{mod 26777}# | |
11869 | #{get-formals 26778}# | |
11870 | (map (lambda (#{tmp 2775 26878}# | |
11871 | #{tmp 2774 26879}# | |
11872 | #{tmp 2773 26880}#) | |
11873 | (cons #{tmp 2773 26880}# | |
11874 | (cons #{tmp 2774 26879}# | |
11875 | #{tmp 2775 26878}#))) | |
11876 | #{e2* 26799}# | |
11877 | #{e1* 26798}# | |
11878 | #{args* 26797}#))) | |
11879 | (lambda (#{meta* 26881}# #{else* 26882}#) | |
11880 | (values | |
11881 | (append #{meta 26870}# #{meta* 26881}#) | |
11882 | (make-struct/no-tail | |
11883 | (vector-ref %expanded-vtables 14) | |
11884 | #{s 26776}# | |
11885 | #{req 26871}# | |
11886 | #{opt 26872}# | |
11887 | #{rest 26873}# | |
11888 | #{kw 26874}# | |
11889 | #{inits 26875}# | |
11890 | #{vars 26876}# | |
11891 | #{body 26877}# | |
11892 | #{else* 26882}#))))))))) | |
11893 | #{tmp 26790}#) | |
11894 | (syntax-violation | |
11895 | #f | |
11896 | "source expression failed to match any pattern" | |
11897 | #{clauses 26779}#)))))))) | |
11898 | (#{strip 4358}# | |
11899 | (lambda (#{x 28020}# #{w 28021}#) | |
11900 | (if (memq 'top (car #{w 28021}#)) | |
11901 | #{x 28020}# | |
11902 | (letrec* | |
11903 | ((#{f 28022}# | |
11904 | (lambda (#{x 28025}#) | |
11905 | (if (if (vector? #{x 28025}#) | |
11906 | (if (= (vector-length #{x 28025}#) 4) | |
11907 | (eq? (vector-ref #{x 28025}# 0) 'syntax-object) | |
11908 | #f) | |
11909 | #f) | |
11910 | (#{strip 4358}# | |
11911 | (vector-ref #{x 28025}# 1) | |
11912 | (vector-ref #{x 28025}# 2)) | |
11913 | (if (pair? #{x 28025}#) | |
11914 | (let ((#{a 28044}# (#{f 28022}# (car #{x 28025}#))) | |
11915 | (#{d 28045}# (#{f 28022}# (cdr #{x 28025}#)))) | |
11916 | (if (if (eq? #{a 28044}# (car #{x 28025}#)) | |
11917 | (eq? #{d 28045}# (cdr #{x 28025}#)) | |
11918 | #f) | |
11919 | #{x 28025}# | |
11920 | (cons #{a 28044}# #{d 28045}#))) | |
11921 | (if (vector? #{x 28025}#) | |
11922 | (let ((#{old 28048}# (vector->list #{x 28025}#))) | |
11923 | (let ((#{new 28049}# (map #{f 28022}# #{old 28048}#))) | |
11924 | (letrec* | |
11925 | ((#{lp 28050}# | |
11926 | (lambda (#{l1 28126}# #{l2 28127}#) | |
11927 | (if (null? #{l1 28126}#) | |
11928 | #{x 28025}# | |
11929 | (if (eq? (car #{l1 28126}#) | |
11930 | (car #{l2 28127}#)) | |
11931 | (#{lp 28050}# | |
11932 | (cdr #{l1 28126}#) | |
11933 | (cdr #{l2 28127}#)) | |
11934 | (list->vector #{new 28049}#)))))) | |
11935 | (#{lp 28050}# #{old 28048}# #{new 28049}#)))) | |
11936 | #{x 28025}#)))))) | |
11937 | (#{f 28022}# #{x 28020}#))))) | |
11938 | (#{gen-var 4359}# | |
11939 | (lambda (#{id 26926}#) | |
11940 | (let ((#{id 26927}# | |
11941 | (if (if (vector? #{id 26926}#) | |
11942 | (if (= (vector-length #{id 26926}#) 4) | |
11943 | (eq? (vector-ref #{id 26926}# 0) 'syntax-object) | |
11944 | #f) | |
11945 | #f) | |
11946 | (vector-ref #{id 26926}# 1) | |
11947 | #{id 26926}#))) | |
11948 | (gensym | |
11949 | (string-append (symbol->string #{id 26927}#) " ")))))) | |
11950 | (begin | |
11951 | (module-define! | |
11952 | (current-module) | |
11953 | 'letrec-syntax | |
11954 | (make-syntax-transformer | |
11955 | 'letrec-syntax | |
11956 | 'local-syntax | |
11957 | #t)) | |
11958 | (module-define! | |
11959 | (current-module) | |
11960 | 'let-syntax | |
11961 | (make-syntax-transformer | |
11962 | 'let-syntax | |
11963 | 'local-syntax | |
11964 | #f)) | |
11965 | (#{global-extend 4311}# | |
11966 | 'core | |
11967 | 'fluid-let-syntax | |
11968 | (lambda (#{e 4480}# | |
11969 | #{r 4481}# | |
11970 | #{w 4482}# | |
11971 | #{s 4483}# | |
11972 | #{mod 4484}#) | |
11973 | (let ((#{tmp 4486}# | |
11974 | ($sc-dispatch | |
11975 | #{e 4480}# | |
11976 | '(_ #(each (any any)) any . each-any)))) | |
11977 | (if (if #{tmp 4486}# | |
11978 | (@apply | |
11979 | (lambda (#{var 4490}# | |
11980 | #{val 4491}# | |
11981 | #{e1 4492}# | |
11982 | #{e2 4493}#) | |
11983 | (#{valid-bound-ids? 4335}# #{var 4490}#)) | |
11984 | #{tmp 4486}#) | |
11985 | #f) | |
11986 | (@apply | |
11987 | (lambda (#{var 4571}# | |
11988 | #{val 4572}# | |
11989 | #{e1 4573}# | |
11990 | #{e2 4574}#) | |
11991 | (let ((#{names 4575}# | |
11992 | (map (lambda (#{x 4765}#) | |
11993 | (#{id-var-name 4332}# #{x 4765}# #{w 4482}#)) | |
11994 | #{var 4571}#))) | |
11995 | (begin | |
11996 | (for-each | |
11997 | (lambda (#{id 4576}# #{n 4577}#) | |
11998 | (let ((#{atom-key 4578}# | |
11999 | (car (let ((#{t 4702}# | |
12000 | (assq #{n 4577}# #{r 4481}#))) | |
12001 | (if #{t 4702}# | |
12002 | (cdr #{t 4702}#) | |
12003 | (if (symbol? #{n 4577}#) | |
12004 | (let ((#{t 4707}# | |
12005 | (begin | |
12006 | (if (if (not #{mod 4484}#) | |
12007 | (current-module) | |
12008 | #f) | |
12009 | (warn "module system is booted, we should have a module" | |
12010 | #{n 4577}#)) | |
12011 | (let ((#{v 4744}# | |
12012 | (module-variable | |
12013 | (if #{mod 4484}# | |
12014 | (resolve-module | |
12015 | (cdr #{mod 4484}#)) | |
12016 | (current-module)) | |
12017 | #{n 4577}#))) | |
12018 | (if #{v 4744}# | |
12019 | (if (variable-bound? | |
12020 | #{v 4744}#) | |
12021 | (let ((#{val 4753}# | |
12022 | (variable-ref | |
12023 | #{v 4744}#))) | |
12024 | (if (macro? | |
12025 | #{val 4753}#) | |
12026 | (if (macro-type | |
12027 | #{val 4753}#) | |
12028 | (cons (macro-type | |
12029 | #{val 4753}#) | |
12030 | (macro-binding | |
12031 | #{val 4753}#)) | |
12032 | #f) | |
12033 | #f)) | |
12034 | #f) | |
12035 | #f))))) | |
12036 | (if #{t 4707}# | |
12037 | #{t 4707}# | |
12038 | '(global))) | |
12039 | '(displaced-lexical))))))) | |
12040 | (if (let ((#{t 4611}# #{atom-key 4578}#)) | |
12041 | (eqv? #{t 4611}# 'displaced-lexical)) | |
12042 | (syntax-violation | |
12043 | 'fluid-let-syntax | |
12044 | "identifier out of context" | |
12045 | #{e 4480}# | |
12046 | (#{wrap 4338}# | |
12047 | (begin | |
12048 | (if (if (pair? #{id 4576}#) #{s 4483}# #f) | |
12049 | (set-source-properties! | |
12050 | #{id 4576}# | |
12051 | #{s 4483}#)) | |
12052 | #{id 4576}#) | |
12053 | #{w 4482}# | |
12054 | #{mod 4484}#))))) | |
12055 | #{var 4571}# | |
12056 | #{names 4575}#) | |
12057 | (#{expand-body 4349}# | |
12058 | (cons #{e1 4573}# #{e2 4574}#) | |
12059 | (#{wrap 4338}# | |
12060 | (begin | |
12061 | (if (if (pair? #{e 4480}#) #{s 4483}# #f) | |
12062 | (set-source-properties! #{e 4480}# #{s 4483}#)) | |
12063 | #{e 4480}#) | |
12064 | #{w 4482}# | |
12065 | #{mod 4484}#) | |
12066 | (#{extend-env 4307}# | |
12067 | #{names 4575}# | |
12068 | (let ((#{trans-r 4851}# | |
12069 | (#{macros-only-env 4309}# #{r 4481}#))) | |
12070 | (map (lambda (#{x 4852}#) | |
12071 | (cons 'macro | |
12072 | (#{eval-local-transformer 4351}# | |
12073 | (#{expand 4345}# | |
12074 | #{x 4852}# | |
12075 | #{trans-r 4851}# | |
12076 | #{w 4482}# | |
12077 | #{mod 4484}#) | |
12078 | #{mod 4484}#))) | |
12079 | #{val 4572}#)) | |
12080 | #{r 4481}#) | |
12081 | #{w 4482}# | |
12082 | #{mod 4484}#)))) | |
12083 | #{tmp 4486}#) | |
12084 | (syntax-violation | |
12085 | 'fluid-let-syntax | |
12086 | "bad syntax" | |
12087 | (#{wrap 4338}# | |
12088 | (begin | |
12089 | (if (if (pair? #{e 4480}#) #{s 4483}# #f) | |
12090 | (set-source-properties! #{e 4480}# #{s 4483}#)) | |
12091 | #{e 4480}#) | |
12092 | #{w 4482}# | |
12093 | #{mod 4484}#)))))) | |
12094 | (module-define! | |
12095 | (current-module) | |
12096 | 'quote | |
12097 | (make-syntax-transformer | |
12098 | 'quote | |
12099 | 'core | |
12100 | (lambda (#{e 5066}# | |
12101 | #{r 5067}# | |
12102 | #{w 5068}# | |
12103 | #{s 5069}# | |
12104 | #{mod 5070}#) | |
12105 | (let ((#{tmp 5072}# ($sc-dispatch #{e 5066}# '(_ any)))) | |
12106 | (if #{tmp 5072}# | |
12107 | (@apply | |
12108 | (lambda (#{e 5075}#) | |
12109 | (let ((#{exp 5079}# | |
12110 | (#{strip 4358}# #{e 5075}# #{w 5068}#))) | |
12111 | (make-struct/no-tail | |
12112 | (vector-ref %expanded-vtables 1) | |
12113 | #{s 5069}# | |
12114 | #{exp 5079}#))) | |
12115 | #{tmp 5072}#) | |
12116 | (syntax-violation | |
12117 | 'quote | |
12118 | "bad syntax" | |
12119 | (#{wrap 4338}# | |
12120 | (begin | |
12121 | (if (if (pair? #{e 5066}#) #{s 5069}# #f) | |
12122 | (set-source-properties! #{e 5066}# #{s 5069}#)) | |
12123 | #{e 5066}#) | |
12124 | #{w 5068}# | |
12125 | #{mod 5070}#))))))) | |
12126 | (#{global-extend 4311}# | |
12127 | 'core | |
12128 | 'syntax | |
12129 | (letrec* | |
12130 | ((#{gen-syntax 5306}# | |
12131 | (lambda (#{src 5408}# | |
12132 | #{e 5409}# | |
12133 | #{r 5410}# | |
12134 | #{maps 5411}# | |
12135 | #{ellipsis? 5412}# | |
12136 | #{mod 5413}#) | |
12137 | (if (if (symbol? #{e 5409}#) | |
12138 | #t | |
12139 | (if (if (vector? #{e 5409}#) | |
12140 | (if (= (vector-length #{e 5409}#) 4) | |
12141 | (eq? (vector-ref #{e 5409}# 0) 'syntax-object) | |
12142 | #f) | |
12143 | #f) | |
12144 | (symbol? (vector-ref #{e 5409}# 1)) | |
12145 | #f)) | |
12146 | (let ((#{label 5440}# | |
12147 | (#{id-var-name 4332}# #{e 5409}# '(())))) | |
12148 | (let ((#{b 5441}# | |
12149 | (let ((#{t 5578}# (assq #{label 5440}# #{r 5410}#))) | |
12150 | (if #{t 5578}# | |
12151 | (cdr #{t 5578}#) | |
12152 | (if (symbol? #{label 5440}#) | |
12153 | (let ((#{t 5583}# | |
12154 | (begin | |
12155 | (if (if (not #{mod 5413}#) | |
12156 | (current-module) | |
12157 | #f) | |
12158 | (warn "module system is booted, we should have a module" | |
12159 | #{label 5440}#)) | |
12160 | (let ((#{v 5620}# | |
12161 | (module-variable | |
12162 | (if #{mod 5413}# | |
12163 | (resolve-module | |
12164 | (cdr #{mod 5413}#)) | |
12165 | (current-module)) | |
12166 | #{label 5440}#))) | |
12167 | (if #{v 5620}# | |
12168 | (if (variable-bound? #{v 5620}#) | |
12169 | (let ((#{val 5629}# | |
12170 | (variable-ref | |
12171 | #{v 5620}#))) | |
12172 | (if (macro? #{val 5629}#) | |
12173 | (if (macro-type | |
12174 | #{val 5629}#) | |
12175 | (cons (macro-type | |
12176 | #{val 5629}#) | |
12177 | (macro-binding | |
12178 | #{val 5629}#)) | |
12179 | #f) | |
12180 | #f)) | |
12181 | #f) | |
12182 | #f))))) | |
12183 | (if #{t 5583}# #{t 5583}# '(global))) | |
12184 | '(displaced-lexical)))))) | |
12185 | (if (eq? (car #{b 5441}#) 'syntax) | |
12186 | (call-with-values | |
12187 | (lambda () | |
12188 | (let ((#{var.lev 5474}# (cdr #{b 5441}#))) | |
12189 | (#{gen-ref 5307}# | |
12190 | #{src 5408}# | |
12191 | (car #{var.lev 5474}#) | |
12192 | (cdr #{var.lev 5474}#) | |
12193 | #{maps 5411}#))) | |
12194 | (lambda (#{var 5570}# #{maps 5571}#) | |
12195 | (values (list 'ref #{var 5570}#) #{maps 5571}#))) | |
12196 | (if (#{ellipsis? 5412}# #{e 5409}#) | |
12197 | (syntax-violation | |
12198 | 'syntax | |
12199 | "misplaced ellipsis" | |
12200 | #{src 5408}#) | |
12201 | (values (list 'quote #{e 5409}#) #{maps 5411}#))))) | |
12202 | (let ((#{tmp 5641}# | |
12203 | ($sc-dispatch #{e 5409}# '(any any)))) | |
12204 | (if (if #{tmp 5641}# | |
12205 | (@apply | |
12206 | (lambda (#{dots 5645}# #{e 5646}#) | |
12207 | (#{ellipsis? 5412}# #{dots 5645}#)) | |
12208 | #{tmp 5641}#) | |
12209 | #f) | |
12210 | (@apply | |
12211 | (lambda (#{dots 5647}# #{e 5648}#) | |
12212 | (#{gen-syntax 5306}# | |
12213 | #{src 5408}# | |
12214 | #{e 5648}# | |
12215 | #{r 5410}# | |
12216 | #{maps 5411}# | |
12217 | (lambda (#{x 5649}#) #f) | |
12218 | #{mod 5413}#)) | |
12219 | #{tmp 5641}#) | |
12220 | (let ((#{tmp 5650}# | |
12221 | ($sc-dispatch #{e 5409}# '(any any . any)))) | |
12222 | (if (if #{tmp 5650}# | |
12223 | (@apply | |
12224 | (lambda (#{x 5654}# #{dots 5655}# #{y 5656}#) | |
12225 | (#{ellipsis? 5412}# #{dots 5655}#)) | |
12226 | #{tmp 5650}#) | |
12227 | #f) | |
12228 | (@apply | |
12229 | (lambda (#{x 5657}# #{dots 5658}# #{y 5659}#) | |
12230 | (letrec* | |
12231 | ((#{f 5660}# | |
12232 | (lambda (#{y 5668}# #{k 5669}#) | |
12233 | (let ((#{tmp 5671}# | |
12234 | ($sc-dispatch | |
12235 | #{y 5668}# | |
12236 | '(any . any)))) | |
12237 | (if (if #{tmp 5671}# | |
12238 | (@apply | |
12239 | (lambda (#{dots 5675}# #{y 5676}#) | |
12240 | (#{ellipsis? 5412}# | |
12241 | #{dots 5675}#)) | |
12242 | #{tmp 5671}#) | |
12243 | #f) | |
12244 | (@apply | |
12245 | (lambda (#{dots 5677}# #{y 5678}#) | |
12246 | (#{f 5660}# | |
12247 | #{y 5678}# | |
12248 | (lambda (#{maps 5679}#) | |
12249 | (call-with-values | |
12250 | (lambda () | |
12251 | (#{k 5669}# | |
12252 | (cons '() #{maps 5679}#))) | |
12253 | (lambda (#{x 5680}# | |
12254 | #{maps 5681}#) | |
12255 | (if (null? (car #{maps 5681}#)) | |
12256 | (syntax-violation | |
12257 | 'syntax | |
12258 | "extra ellipsis" | |
12259 | #{src 5408}#) | |
12260 | (values | |
12261 | (let ((#{map-env 5685}# | |
12262 | (car #{maps 5681}#))) | |
12263 | (list 'apply | |
12264 | '(primitive | |
12265 | append) | |
12266 | (#{gen-map 5309}# | |
12267 | #{x 5680}# | |
12268 | #{map-env 5685}#))) | |
12269 | (cdr #{maps 5681}#)))))))) | |
12270 | #{tmp 5671}#) | |
12271 | (call-with-values | |
12272 | (lambda () | |
12273 | (#{gen-syntax 5306}# | |
12274 | #{src 5408}# | |
12275 | #{y 5668}# | |
12276 | #{r 5410}# | |
12277 | #{maps 5411}# | |
12278 | #{ellipsis? 5412}# | |
12279 | #{mod 5413}#)) | |
12280 | (lambda (#{y 5688}# #{maps 5689}#) | |
12281 | (call-with-values | |
12282 | (lambda () | |
12283 | (#{k 5669}# #{maps 5689}#)) | |
12284 | (lambda (#{x 5690}# #{maps 5691}#) | |
12285 | (values | |
12286 | (if (equal? #{y 5688}# ''()) | |
12287 | #{x 5690}# | |
12288 | (list 'append | |
12289 | #{x 5690}# | |
12290 | #{y 5688}#)) | |
12291 | #{maps 5691}#)))))))))) | |
12292 | (#{f 5660}# | |
12293 | #{y 5659}# | |
12294 | (lambda (#{maps 5663}#) | |
12295 | (call-with-values | |
12296 | (lambda () | |
12297 | (#{gen-syntax 5306}# | |
12298 | #{src 5408}# | |
12299 | #{x 5657}# | |
12300 | #{r 5410}# | |
12301 | (cons '() #{maps 5663}#) | |
12302 | #{ellipsis? 5412}# | |
12303 | #{mod 5413}#)) | |
12304 | (lambda (#{x 5664}# #{maps 5665}#) | |
12305 | (if (null? (car #{maps 5665}#)) | |
12306 | (syntax-violation | |
12307 | 'syntax | |
12308 | "extra ellipsis" | |
12309 | #{src 5408}#) | |
12310 | (values | |
12311 | (#{gen-map 5309}# | |
12312 | #{x 5664}# | |
12313 | (car #{maps 5665}#)) | |
12314 | (cdr #{maps 5665}#))))))))) | |
12315 | #{tmp 5650}#) | |
12316 | (let ((#{tmp 5707}# | |
12317 | ($sc-dispatch #{e 5409}# '(any . any)))) | |
12318 | (if #{tmp 5707}# | |
12319 | (@apply | |
12320 | (lambda (#{x 5711}# #{y 5712}#) | |
12321 | (call-with-values | |
12322 | (lambda () | |
12323 | (#{gen-syntax 5306}# | |
12324 | #{src 5408}# | |
12325 | #{x 5711}# | |
12326 | #{r 5410}# | |
12327 | #{maps 5411}# | |
12328 | #{ellipsis? 5412}# | |
12329 | #{mod 5413}#)) | |
12330 | (lambda (#{x 5713}# #{maps 5714}#) | |
12331 | (call-with-values | |
12332 | (lambda () | |
12333 | (#{gen-syntax 5306}# | |
12334 | #{src 5408}# | |
12335 | #{y 5712}# | |
12336 | #{r 5410}# | |
12337 | #{maps 5714}# | |
12338 | #{ellipsis? 5412}# | |
12339 | #{mod 5413}#)) | |
12340 | (lambda (#{y 5715}# #{maps 5716}#) | |
12341 | (values | |
12342 | (let ((#{atom-key 5721}# | |
12343 | (car #{y 5715}#))) | |
12344 | (if (eqv? #{atom-key 5721}# 'quote) | |
12345 | (if (eq? (car #{x 5713}#) 'quote) | |
12346 | (list 'quote | |
12347 | (cons (car (cdr #{x 5713}#)) | |
12348 | (car (cdr #{y 5715}#)))) | |
12349 | (if (eq? (car (cdr #{y 5715}#)) | |
12350 | '()) | |
12351 | (list 'list #{x 5713}#) | |
12352 | (list 'cons | |
12353 | #{x 5713}# | |
12354 | #{y 5715}#))) | |
12355 | (if (eqv? #{atom-key 5721}# 'list) | |
12356 | (cons 'list | |
12357 | (cons #{x 5713}# | |
12358 | (cdr #{y 5715}#))) | |
12359 | (list 'cons | |
12360 | #{x 5713}# | |
12361 | #{y 5715}#)))) | |
12362 | #{maps 5716}#)))))) | |
12363 | #{tmp 5707}#) | |
12364 | (let ((#{tmp 5750}# | |
12365 | ($sc-dispatch | |
12366 | #{e 5409}# | |
12367 | '#(vector (any . each-any))))) | |
12368 | (if #{tmp 5750}# | |
12369 | (@apply | |
12370 | (lambda (#{e1 5754}# #{e2 5755}#) | |
12371 | (call-with-values | |
12372 | (lambda () | |
12373 | (#{gen-syntax 5306}# | |
12374 | #{src 5408}# | |
12375 | (cons #{e1 5754}# #{e2 5755}#) | |
12376 | #{r 5410}# | |
12377 | #{maps 5411}# | |
12378 | #{ellipsis? 5412}# | |
12379 | #{mod 5413}#)) | |
12380 | (lambda (#{e 5756}# #{maps 5757}#) | |
12381 | (values | |
12382 | (if (eq? (car #{e 5756}#) 'list) | |
12383 | (cons 'vector (cdr #{e 5756}#)) | |
12384 | (if (eq? (car #{e 5756}#) 'quote) | |
12385 | (list 'quote | |
12386 | (list->vector | |
12387 | (car (cdr #{e 5756}#)))) | |
12388 | (list 'list->vector #{e 5756}#))) | |
12389 | #{maps 5757}#)))) | |
12390 | #{tmp 5750}#) | |
12391 | (values | |
12392 | (list 'quote #{e 5409}#) | |
12393 | #{maps 5411}#)))))))))))) | |
12394 | (#{gen-ref 5307}# | |
12395 | (lambda (#{src 5784}# | |
12396 | #{var 5785}# | |
12397 | #{level 5786}# | |
12398 | #{maps 5787}#) | |
12399 | (if (= #{level 5786}# 0) | |
12400 | (values #{var 5785}# #{maps 5787}#) | |
12401 | (if (null? #{maps 5787}#) | |
12402 | (syntax-violation | |
12403 | 'syntax | |
12404 | "missing ellipsis" | |
12405 | #{src 5784}#) | |
12406 | (call-with-values | |
12407 | (lambda () | |
12408 | (#{gen-ref 5307}# | |
12409 | #{src 5784}# | |
12410 | #{var 5785}# | |
12411 | (#{1-}# #{level 5786}#) | |
12412 | (cdr #{maps 5787}#))) | |
12413 | (lambda (#{outer-var 5788}# #{outer-maps 5789}#) | |
12414 | (let ((#{b 5790}# | |
12415 | (assq #{outer-var 5788}# (car #{maps 5787}#)))) | |
12416 | (if #{b 5790}# | |
12417 | (values (cdr #{b 5790}#) #{maps 5787}#) | |
12418 | (let ((#{inner-var 5792}# | |
12419 | (gensym | |
12420 | (string-append (symbol->string 'tmp) " ")))) | |
12421 | (values | |
12422 | #{inner-var 5792}# | |
12423 | (cons (cons (cons #{outer-var 5788}# | |
12424 | #{inner-var 5792}#) | |
12425 | (car #{maps 5787}#)) | |
12426 | #{outer-maps 5789}#))))))))))) | |
12427 | (#{gen-map 5309}# | |
12428 | (lambda (#{e 5806}# #{map-env 5807}#) | |
12429 | (let ((#{formals 5808}# (map cdr #{map-env 5807}#)) | |
12430 | (#{actuals 5809}# | |
12431 | (map (lambda (#{x 5811}#) | |
12432 | (list 'ref (car #{x 5811}#))) | |
12433 | #{map-env 5807}#))) | |
12434 | (if (eq? (car #{e 5806}#) 'ref) | |
12435 | (car #{actuals 5809}#) | |
12436 | (if (and-map | |
12437 | (lambda (#{x 5812}#) | |
12438 | (if (eq? (car #{x 5812}#) 'ref) | |
12439 | (memq (car (cdr #{x 5812}#)) #{formals 5808}#) | |
12440 | #f)) | |
12441 | (cdr #{e 5806}#)) | |
12442 | (cons 'map | |
12443 | (cons (list 'primitive (car #{e 5806}#)) | |
12444 | (map (let ((#{r 5814}# | |
12445 | (map cons | |
12446 | #{formals 5808}# | |
12447 | #{actuals 5809}#))) | |
12448 | (lambda (#{x 5815}#) | |
12449 | (cdr (assq (car (cdr #{x 5815}#)) | |
12450 | #{r 5814}#)))) | |
12451 | (cdr #{e 5806}#)))) | |
12452 | (cons 'map | |
12453 | (cons (list 'lambda #{formals 5808}# #{e 5806}#) | |
12454 | #{actuals 5809}#))))))) | |
12455 | (#{regen 5313}# | |
12456 | (lambda (#{x 5817}#) | |
12457 | (let ((#{atom-key 5818}# (car #{x 5817}#))) | |
12458 | (if (eqv? #{atom-key 5818}# 'ref) | |
12459 | (let ((#{name 5828}# (car (cdr #{x 5817}#))) | |
12460 | (#{var 5829}# (car (cdr #{x 5817}#)))) | |
12461 | (make-struct/no-tail | |
12462 | (vector-ref %expanded-vtables 3) | |
12463 | #f | |
12464 | #{name 5828}# | |
12465 | #{var 5829}#)) | |
12466 | (if (eqv? #{atom-key 5818}# 'primitive) | |
12467 | (let ((#{name 5841}# (car (cdr #{x 5817}#)))) | |
12468 | (if (equal? (module-name (current-module)) '(guile)) | |
12469 | (make-struct/no-tail | |
12470 | (vector-ref %expanded-vtables 7) | |
12471 | #f | |
12472 | #{name 5841}#) | |
12473 | (make-struct/no-tail | |
12474 | (vector-ref %expanded-vtables 5) | |
12475 | #f | |
12476 | '(guile) | |
12477 | #{name 5841}# | |
12478 | #f))) | |
12479 | (if (eqv? #{atom-key 5818}# 'quote) | |
12480 | (let ((#{exp 5859}# (car (cdr #{x 5817}#)))) | |
12481 | (make-struct/no-tail | |
12482 | (vector-ref %expanded-vtables 1) | |
12483 | #f | |
12484 | #{exp 5859}#)) | |
12485 | (if (eqv? #{atom-key 5818}# 'lambda) | |
12486 | (if (list? (car (cdr #{x 5817}#))) | |
12487 | (let ((#{req 5870}# (car (cdr #{x 5817}#))) | |
12488 | (#{vars 5872}# (car (cdr #{x 5817}#))) | |
12489 | (#{exp 5874}# | |
12490 | (#{regen 5313}# | |
12491 | (car (cdr (cdr #{x 5817}#)))))) | |
12492 | (let ((#{body 5879}# | |
12493 | (make-struct/no-tail | |
12494 | (vector-ref %expanded-vtables 14) | |
12495 | #f | |
12496 | #{req 5870}# | |
12497 | #f | |
12498 | #f | |
12499 | #f | |
12500 | '() | |
12501 | #{vars 5872}# | |
12502 | #{exp 5874}# | |
12503 | #f))) | |
12504 | (make-struct/no-tail | |
12505 | (vector-ref %expanded-vtables 13) | |
12506 | #f | |
12507 | '() | |
12508 | #{body 5879}#))) | |
12509 | (error "how did we get here" #{x 5817}#)) | |
12510 | (let ((#{fun-exp 5895}# | |
12511 | (let ((#{name 5904}# (car #{x 5817}#))) | |
12512 | (if (equal? | |
12513 | (module-name (current-module)) | |
12514 | '(guile)) | |
12515 | (make-struct/no-tail | |
12516 | (vector-ref %expanded-vtables 7) | |
12517 | #f | |
12518 | #{name 5904}#) | |
12519 | (make-struct/no-tail | |
12520 | (vector-ref %expanded-vtables 5) | |
12521 | #f | |
12522 | '(guile) | |
12523 | #{name 5904}# | |
12524 | #f)))) | |
12525 | (#{arg-exps 5896}# | |
12526 | (map #{regen 5313}# (cdr #{x 5817}#)))) | |
12527 | (make-struct/no-tail | |
12528 | (vector-ref %expanded-vtables 11) | |
12529 | #f | |
12530 | #{fun-exp 5895}# | |
12531 | #{arg-exps 5896}#)))))))))) | |
12532 | (lambda (#{e 5314}# | |
12533 | #{r 5315}# | |
12534 | #{w 5316}# | |
12535 | #{s 5317}# | |
12536 | #{mod 5318}#) | |
12537 | (let ((#{e 5319}# | |
12538 | (#{wrap 4338}# | |
12539 | (begin | |
12540 | (if (if (pair? #{e 5314}#) #{s 5317}# #f) | |
12541 | (set-source-properties! #{e 5314}# #{s 5317}#)) | |
12542 | #{e 5314}#) | |
12543 | #{w 5316}# | |
12544 | #{mod 5318}#))) | |
12545 | (let ((#{tmp 5321}# ($sc-dispatch #{e 5319}# '(_ any)))) | |
12546 | (if #{tmp 5321}# | |
12547 | (@apply | |
12548 | (lambda (#{x 5346}#) | |
12549 | (call-with-values | |
12550 | (lambda () | |
12551 | (#{gen-syntax 5306}# | |
12552 | #{e 5319}# | |
12553 | #{x 5346}# | |
12554 | #{r 5315}# | |
12555 | '() | |
12556 | #{ellipsis? 4353}# | |
12557 | #{mod 5318}#)) | |
12558 | (lambda (#{e 5400}# #{maps 5401}#) | |
12559 | (#{regen 5313}# #{e 5400}#)))) | |
12560 | #{tmp 5321}#) | |
12561 | (syntax-violation | |
12562 | 'syntax | |
12563 | "bad `syntax' form" | |
12564 | #{e 5319}#))))))) | |
12565 | (#{global-extend 4311}# | |
12566 | 'core | |
12567 | 'lambda | |
12568 | (lambda (#{e 6099}# | |
12569 | #{r 6100}# | |
12570 | #{w 6101}# | |
12571 | #{s 6102}# | |
12572 | #{mod 6103}#) | |
12573 | (let ((#{tmp 6105}# | |
12574 | ($sc-dispatch #{e 6099}# '(_ any any . each-any)))) | |
12575 | (if #{tmp 6105}# | |
12576 | (@apply | |
12577 | (lambda (#{args 6109}# #{e1 6110}# #{e2 6111}#) | |
12578 | (call-with-values | |
12579 | (lambda () | |
12580 | (#{lambda-formals 4354}# #{args 6109}#)) | |
12581 | (lambda (#{req 6114}# | |
12582 | #{opt 6115}# | |
12583 | #{rest 6116}# | |
12584 | #{kw 6117}#) | |
12585 | (letrec* | |
12586 | ((#{lp 6118}# | |
12587 | (lambda (#{body 6121}# #{meta 6122}#) | |
12588 | (let ((#{tmp 6124}# | |
12589 | ($sc-dispatch | |
12590 | #{body 6121}# | |
12591 | '(any any . each-any)))) | |
12592 | (if (if #{tmp 6124}# | |
12593 | (@apply | |
12594 | (lambda (#{docstring 6128}# | |
12595 | #{e1 6129}# | |
12596 | #{e2 6130}#) | |
12597 | (string? | |
12598 | (syntax->datum #{docstring 6128}#))) | |
12599 | #{tmp 6124}#) | |
12600 | #f) | |
12601 | (@apply | |
12602 | (lambda (#{docstring 6131}# | |
12603 | #{e1 6132}# | |
12604 | #{e2 6133}#) | |
12605 | (#{lp 6118}# | |
12606 | (cons #{e1 6132}# #{e2 6133}#) | |
12607 | (append | |
12608 | #{meta 6122}# | |
12609 | (list (cons 'documentation | |
12610 | (syntax->datum | |
12611 | #{docstring 6131}#)))))) | |
12612 | #{tmp 6124}#) | |
12613 | (let ((#{tmp 6134}# | |
12614 | ($sc-dispatch | |
12615 | #{body 6121}# | |
12616 | '(#(vector #(each (any . any))) | |
12617 | any | |
12618 | . | |
12619 | each-any)))) | |
12620 | (if #{tmp 6134}# | |
12621 | (@apply | |
12622 | (lambda (#{k 6138}# | |
12623 | #{v 6139}# | |
12624 | #{e1 6140}# | |
12625 | #{e2 6141}#) | |
12626 | (#{lp 6118}# | |
12627 | (cons #{e1 6140}# #{e2 6141}#) | |
12628 | (append | |
12629 | #{meta 6122}# | |
12630 | (syntax->datum | |
12631 | (map cons | |
12632 | #{k 6138}# | |
12633 | #{v 6139}#))))) | |
12634 | #{tmp 6134}#) | |
12635 | (#{expand-simple-lambda 4355}# | |
12636 | #{e 6099}# | |
12637 | #{r 6100}# | |
12638 | #{w 6101}# | |
12639 | #{s 6102}# | |
12640 | #{mod 6103}# | |
12641 | #{req 6114}# | |
12642 | #{rest 6116}# | |
12643 | #{meta 6122}# | |
12644 | #{body 6121}#)))))))) | |
12645 | (#{lp 6118}# (cons #{e1 6110}# #{e2 6111}#) '()))))) | |
12646 | #{tmp 6105}#) | |
12647 | (syntax-violation | |
12648 | 'lambda | |
12649 | "bad lambda" | |
12650 | #{e 6099}#))))) | |
12651 | (#{global-extend 4311}# | |
12652 | 'core | |
12653 | 'lambda* | |
12654 | (lambda (#{e 6433}# | |
12655 | #{r 6434}# | |
12656 | #{w 6435}# | |
12657 | #{s 6436}# | |
12658 | #{mod 6437}#) | |
12659 | (let ((#{tmp 6439}# | |
12660 | ($sc-dispatch #{e 6433}# '(_ any any . each-any)))) | |
12661 | (if #{tmp 6439}# | |
12662 | (@apply | |
12663 | (lambda (#{args 6443}# #{e1 6444}# #{e2 6445}#) | |
12664 | (call-with-values | |
12665 | (lambda () | |
12666 | (#{expand-lambda-case 4357}# | |
12667 | #{e 6433}# | |
12668 | #{r 6434}# | |
12669 | #{w 6435}# | |
12670 | #{s 6436}# | |
12671 | #{mod 6437}# | |
12672 | #{lambda*-formals 4356}# | |
12673 | (list (cons #{args 6443}# | |
12674 | (cons #{e1 6444}# #{e2 6445}#))))) | |
12675 | (lambda (#{meta 6448}# #{lcase 6449}#) | |
12676 | (make-struct/no-tail | |
12677 | (vector-ref %expanded-vtables 13) | |
12678 | #{s 6436}# | |
12679 | #{meta 6448}# | |
12680 | #{lcase 6449}#)))) | |
12681 | #{tmp 6439}#) | |
12682 | (syntax-violation | |
12683 | 'lambda | |
12684 | "bad lambda*" | |
12685 | #{e 6433}#))))) | |
12686 | (#{global-extend 4311}# | |
12687 | 'core | |
12688 | 'case-lambda | |
12689 | (lambda (#{e 6623}# | |
12690 | #{r 6624}# | |
12691 | #{w 6625}# | |
12692 | #{s 6626}# | |
12693 | #{mod 6627}#) | |
12694 | (let ((#{tmp 6629}# | |
12695 | ($sc-dispatch | |
12696 | #{e 6623}# | |
12697 | '(_ (any any . each-any) | |
12698 | . | |
12699 | #(each (any any . each-any)))))) | |
12700 | (if #{tmp 6629}# | |
12701 | (@apply | |
12702 | (lambda (#{args 6633}# | |
12703 | #{e1 6634}# | |
12704 | #{e2 6635}# | |
12705 | #{args* 6636}# | |
12706 | #{e1* 6637}# | |
12707 | #{e2* 6638}#) | |
12708 | (call-with-values | |
12709 | (lambda () | |
12710 | (#{expand-lambda-case 4357}# | |
12711 | #{e 6623}# | |
12712 | #{r 6624}# | |
12713 | #{w 6625}# | |
12714 | #{s 6626}# | |
12715 | #{mod 6627}# | |
12716 | #{lambda-formals 4354}# | |
12717 | (cons (cons #{args 6633}# | |
12718 | (cons #{e1 6634}# #{e2 6635}#)) | |
12719 | (map (lambda (#{tmp 3274 6641}# | |
12720 | #{tmp 3273 6642}# | |
12721 | #{tmp 3272 6643}#) | |
12722 | (cons #{tmp 3272 6643}# | |
12723 | (cons #{tmp 3273 6642}# | |
12724 | #{tmp 3274 6641}#))) | |
12725 | #{e2* 6638}# | |
12726 | #{e1* 6637}# | |
12727 | #{args* 6636}#)))) | |
12728 | (lambda (#{meta 6644}# #{lcase 6645}#) | |
12729 | (make-struct/no-tail | |
12730 | (vector-ref %expanded-vtables 13) | |
12731 | #{s 6626}# | |
12732 | #{meta 6644}# | |
12733 | #{lcase 6645}#)))) | |
12734 | #{tmp 6629}#) | |
12735 | (syntax-violation | |
12736 | 'case-lambda | |
12737 | "bad case-lambda" | |
12738 | #{e 6623}#))))) | |
12739 | (#{global-extend 4311}# | |
12740 | 'core | |
12741 | 'case-lambda* | |
12742 | (lambda (#{e 6808}# | |
12743 | #{r 6809}# | |
12744 | #{w 6810}# | |
12745 | #{s 6811}# | |
12746 | #{mod 6812}#) | |
12747 | (let ((#{tmp 6814}# | |
12748 | ($sc-dispatch | |
12749 | #{e 6808}# | |
12750 | '(_ (any any . each-any) | |
12751 | . | |
12752 | #(each (any any . each-any)))))) | |
12753 | (if #{tmp 6814}# | |
12754 | (@apply | |
12755 | (lambda (#{args 6818}# | |
12756 | #{e1 6819}# | |
12757 | #{e2 6820}# | |
12758 | #{args* 6821}# | |
12759 | #{e1* 6822}# | |
12760 | #{e2* 6823}#) | |
12761 | (call-with-values | |
12762 | (lambda () | |
12763 | (#{expand-lambda-case 4357}# | |
12764 | #{e 6808}# | |
12765 | #{r 6809}# | |
12766 | #{w 6810}# | |
12767 | #{s 6811}# | |
12768 | #{mod 6812}# | |
12769 | #{lambda*-formals 4356}# | |
12770 | (cons (cons #{args 6818}# | |
12771 | (cons #{e1 6819}# #{e2 6820}#)) | |
12772 | (map (lambda (#{tmp 3309 6826}# | |
12773 | #{tmp 3308 6827}# | |
12774 | #{tmp 3307 6828}#) | |
12775 | (cons #{tmp 3307 6828}# | |
12776 | (cons #{tmp 3308 6827}# | |
12777 | #{tmp 3309 6826}#))) | |
12778 | #{e2* 6823}# | |
12779 | #{e1* 6822}# | |
12780 | #{args* 6821}#)))) | |
12781 | (lambda (#{meta 6829}# #{lcase 6830}#) | |
12782 | (make-struct/no-tail | |
12783 | (vector-ref %expanded-vtables 13) | |
12784 | #{s 6811}# | |
12785 | #{meta 6829}# | |
12786 | #{lcase 6830}#)))) | |
12787 | #{tmp 6814}#) | |
12788 | (syntax-violation | |
12789 | 'case-lambda | |
12790 | "bad case-lambda*" | |
12791 | #{e 6808}#))))) | |
12792 | (#{global-extend 4311}# | |
12793 | 'core | |
12794 | 'let | |
12795 | (letrec* | |
12796 | ((#{expand-let 7022}# | |
12797 | (lambda (#{e 7171}# | |
12798 | #{r 7172}# | |
12799 | #{w 7173}# | |
12800 | #{s 7174}# | |
12801 | #{mod 7175}# | |
12802 | #{constructor 7176}# | |
12803 | #{ids 7177}# | |
12804 | #{vals 7178}# | |
12805 | #{exps 7179}#) | |
12806 | (if (not (#{valid-bound-ids? 4335}# #{ids 7177}#)) | |
12807 | (syntax-violation | |
12808 | 'let | |
12809 | "duplicate bound variable" | |
12810 | #{e 7171}#) | |
12811 | (let ((#{labels 7257}# | |
12812 | (#{gen-labels 4316}# #{ids 7177}#)) | |
12813 | (#{new-vars 7258}# | |
12814 | (map #{gen-var 4359}# #{ids 7177}#))) | |
12815 | (let ((#{nw 7259}# | |
12816 | (#{make-binding-wrap 4327}# | |
12817 | #{ids 7177}# | |
12818 | #{labels 7257}# | |
12819 | #{w 7173}#)) | |
12820 | (#{nr 7260}# | |
12821 | (#{extend-var-env 4308}# | |
12822 | #{labels 7257}# | |
12823 | #{new-vars 7258}# | |
12824 | #{r 7172}#))) | |
12825 | (#{constructor 7176}# | |
12826 | #{s 7174}# | |
12827 | (map syntax->datum #{ids 7177}#) | |
12828 | #{new-vars 7258}# | |
12829 | (map (lambda (#{x 7277}#) | |
12830 | (#{expand 4345}# | |
12831 | #{x 7277}# | |
12832 | #{r 7172}# | |
12833 | #{w 7173}# | |
12834 | #{mod 7175}#)) | |
12835 | #{vals 7178}#) | |
12836 | (#{expand-body 4349}# | |
12837 | #{exps 7179}# | |
12838 | (#{source-wrap 4339}# | |
12839 | #{e 7171}# | |
12840 | #{nw 7259}# | |
12841 | #{s 7174}# | |
12842 | #{mod 7175}#) | |
12843 | #{nr 7260}# | |
12844 | #{nw 7259}# | |
12845 | #{mod 7175}#)))))))) | |
12846 | (lambda (#{e 7023}# | |
12847 | #{r 7024}# | |
12848 | #{w 7025}# | |
12849 | #{s 7026}# | |
12850 | #{mod 7027}#) | |
12851 | (let ((#{tmp 7029}# | |
12852 | ($sc-dispatch | |
12853 | #{e 7023}# | |
12854 | '(_ #(each (any any)) any . each-any)))) | |
12855 | (if (if #{tmp 7029}# | |
12856 | (@apply | |
12857 | (lambda (#{id 7033}# | |
12858 | #{val 7034}# | |
12859 | #{e1 7035}# | |
12860 | #{e2 7036}#) | |
12861 | (and-map #{id? 4313}# #{id 7033}#)) | |
12862 | #{tmp 7029}#) | |
12863 | #f) | |
12864 | (@apply | |
12865 | (lambda (#{id 7052}# | |
12866 | #{val 7053}# | |
12867 | #{e1 7054}# | |
12868 | #{e2 7055}#) | |
12869 | (#{expand-let 7022}# | |
12870 | #{e 7023}# | |
12871 | #{r 7024}# | |
12872 | #{w 7025}# | |
12873 | #{s 7026}# | |
12874 | #{mod 7027}# | |
12875 | #{build-let 4295}# | |
12876 | #{id 7052}# | |
12877 | #{val 7053}# | |
12878 | (cons #{e1 7054}# #{e2 7055}#))) | |
12879 | #{tmp 7029}#) | |
12880 | (let ((#{tmp 7085}# | |
12881 | ($sc-dispatch | |
12882 | #{e 7023}# | |
12883 | '(_ any #(each (any any)) any . each-any)))) | |
12884 | (if (if #{tmp 7085}# | |
12885 | (@apply | |
12886 | (lambda (#{f 7089}# | |
12887 | #{id 7090}# | |
12888 | #{val 7091}# | |
12889 | #{e1 7092}# | |
12890 | #{e2 7093}#) | |
12891 | (if (if (symbol? #{f 7089}#) | |
12892 | #t | |
12893 | (if (if (vector? #{f 7089}#) | |
12894 | (if (= (vector-length #{f 7089}#) 4) | |
12895 | (eq? (vector-ref #{f 7089}# 0) | |
12896 | 'syntax-object) | |
12897 | #f) | |
12898 | #f) | |
12899 | (symbol? (vector-ref #{f 7089}# 1)) | |
12900 | #f)) | |
12901 | (and-map #{id? 4313}# #{id 7090}#) | |
12902 | #f)) | |
12903 | #{tmp 7085}#) | |
12904 | #f) | |
12905 | (@apply | |
12906 | (lambda (#{f 7135}# | |
12907 | #{id 7136}# | |
12908 | #{val 7137}# | |
12909 | #{e1 7138}# | |
12910 | #{e2 7139}#) | |
12911 | (#{expand-let 7022}# | |
12912 | #{e 7023}# | |
12913 | #{r 7024}# | |
12914 | #{w 7025}# | |
12915 | #{s 7026}# | |
12916 | #{mod 7027}# | |
12917 | #{build-named-let 4296}# | |
12918 | (cons #{f 7135}# #{id 7136}#) | |
12919 | #{val 7137}# | |
12920 | (cons #{e1 7138}# #{e2 7139}#))) | |
12921 | #{tmp 7085}#) | |
12922 | (syntax-violation | |
12923 | 'let | |
12924 | "bad let" | |
12925 | (#{wrap 4338}# | |
12926 | (begin | |
12927 | (if (if (pair? #{e 7023}#) #{s 7026}# #f) | |
12928 | (set-source-properties! #{e 7023}# #{s 7026}#)) | |
12929 | #{e 7023}#) | |
12930 | #{w 7025}# | |
12931 | #{mod 7027}#))))))))) | |
12932 | (#{global-extend 4311}# | |
12933 | 'core | |
12934 | 'letrec | |
12935 | (lambda (#{e 7726}# | |
12936 | #{r 7727}# | |
12937 | #{w 7728}# | |
12938 | #{s 7729}# | |
12939 | #{mod 7730}#) | |
12940 | (let ((#{tmp 7732}# | |
12941 | ($sc-dispatch | |
12942 | #{e 7726}# | |
12943 | '(_ #(each (any any)) any . each-any)))) | |
12944 | (if (if #{tmp 7732}# | |
12945 | (@apply | |
12946 | (lambda (#{id 7736}# | |
12947 | #{val 7737}# | |
12948 | #{e1 7738}# | |
12949 | #{e2 7739}#) | |
12950 | (and-map #{id? 4313}# #{id 7736}#)) | |
12951 | #{tmp 7732}#) | |
12952 | #f) | |
12953 | (@apply | |
12954 | (lambda (#{id 7755}# | |
12955 | #{val 7756}# | |
12956 | #{e1 7757}# | |
12957 | #{e2 7758}#) | |
12958 | (if (not (#{valid-bound-ids? 4335}# #{id 7755}#)) | |
12959 | (syntax-violation | |
12960 | 'letrec | |
12961 | "duplicate bound variable" | |
12962 | #{e 7726}#) | |
12963 | (let ((#{labels 7848}# | |
12964 | (#{gen-labels 4316}# #{id 7755}#)) | |
12965 | (#{new-vars 7849}# | |
12966 | (map #{gen-var 4359}# #{id 7755}#))) | |
12967 | (let ((#{w 7850}# | |
12968 | (#{make-binding-wrap 4327}# | |
12969 | #{id 7755}# | |
12970 | #{labels 7848}# | |
12971 | #{w 7728}#)) | |
12972 | (#{r 7851}# | |
12973 | (#{extend-var-env 4308}# | |
12974 | #{labels 7848}# | |
12975 | #{new-vars 7849}# | |
12976 | #{r 7727}#))) | |
12977 | (#{build-letrec 4297}# | |
12978 | #{s 7729}# | |
12979 | #f | |
12980 | (map syntax->datum #{id 7755}#) | |
12981 | #{new-vars 7849}# | |
12982 | (map (lambda (#{x 7938}#) | |
12983 | (#{expand 4345}# | |
12984 | #{x 7938}# | |
12985 | #{r 7851}# | |
12986 | #{w 7850}# | |
12987 | #{mod 7730}#)) | |
12988 | #{val 7756}#) | |
12989 | (#{expand-body 4349}# | |
12990 | (cons #{e1 7757}# #{e2 7758}#) | |
12991 | (#{wrap 4338}# | |
12992 | (begin | |
12993 | (if (if (pair? #{e 7726}#) #{s 7729}# #f) | |
12994 | (set-source-properties! #{e 7726}# #{s 7729}#)) | |
12995 | #{e 7726}#) | |
12996 | #{w 7850}# | |
12997 | #{mod 7730}#) | |
12998 | #{r 7851}# | |
12999 | #{w 7850}# | |
13000 | #{mod 7730}#)))))) | |
13001 | #{tmp 7732}#) | |
13002 | (syntax-violation | |
13003 | 'letrec | |
13004 | "bad letrec" | |
13005 | (#{wrap 4338}# | |
13006 | (begin | |
13007 | (if (if (pair? #{e 7726}#) #{s 7729}# #f) | |
13008 | (set-source-properties! #{e 7726}# #{s 7729}#)) | |
13009 | #{e 7726}#) | |
13010 | #{w 7728}# | |
13011 | #{mod 7730}#)))))) | |
13012 | (#{global-extend 4311}# | |
13013 | 'core | |
13014 | 'letrec* | |
13015 | (lambda (#{e 8355}# | |
13016 | #{r 8356}# | |
13017 | #{w 8357}# | |
13018 | #{s 8358}# | |
13019 | #{mod 8359}#) | |
13020 | (let ((#{tmp 8361}# | |
13021 | ($sc-dispatch | |
13022 | #{e 8355}# | |
13023 | '(_ #(each (any any)) any . each-any)))) | |
13024 | (if (if #{tmp 8361}# | |
13025 | (@apply | |
13026 | (lambda (#{id 8365}# | |
13027 | #{val 8366}# | |
13028 | #{e1 8367}# | |
13029 | #{e2 8368}#) | |
13030 | (and-map #{id? 4313}# #{id 8365}#)) | |
13031 | #{tmp 8361}#) | |
13032 | #f) | |
13033 | (@apply | |
13034 | (lambda (#{id 8384}# | |
13035 | #{val 8385}# | |
13036 | #{e1 8386}# | |
13037 | #{e2 8387}#) | |
13038 | (if (not (#{valid-bound-ids? 4335}# #{id 8384}#)) | |
13039 | (syntax-violation | |
13040 | 'letrec* | |
13041 | "duplicate bound variable" | |
13042 | #{e 8355}#) | |
13043 | (let ((#{labels 8477}# | |
13044 | (#{gen-labels 4316}# #{id 8384}#)) | |
13045 | (#{new-vars 8478}# | |
13046 | (map #{gen-var 4359}# #{id 8384}#))) | |
13047 | (let ((#{w 8479}# | |
13048 | (#{make-binding-wrap 4327}# | |
13049 | #{id 8384}# | |
13050 | #{labels 8477}# | |
13051 | #{w 8357}#)) | |
13052 | (#{r 8480}# | |
13053 | (#{extend-var-env 4308}# | |
13054 | #{labels 8477}# | |
13055 | #{new-vars 8478}# | |
13056 | #{r 8356}#))) | |
13057 | (#{build-letrec 4297}# | |
13058 | #{s 8358}# | |
13059 | #t | |
13060 | (map syntax->datum #{id 8384}#) | |
13061 | #{new-vars 8478}# | |
13062 | (map (lambda (#{x 8567}#) | |
13063 | (#{expand 4345}# | |
13064 | #{x 8567}# | |
13065 | #{r 8480}# | |
13066 | #{w 8479}# | |
13067 | #{mod 8359}#)) | |
13068 | #{val 8385}#) | |
13069 | (#{expand-body 4349}# | |
13070 | (cons #{e1 8386}# #{e2 8387}#) | |
13071 | (#{wrap 4338}# | |
13072 | (begin | |
13073 | (if (if (pair? #{e 8355}#) #{s 8358}# #f) | |
13074 | (set-source-properties! #{e 8355}# #{s 8358}#)) | |
13075 | #{e 8355}#) | |
13076 | #{w 8479}# | |
13077 | #{mod 8359}#) | |
13078 | #{r 8480}# | |
13079 | #{w 8479}# | |
13080 | #{mod 8359}#)))))) | |
13081 | #{tmp 8361}#) | |
13082 | (syntax-violation | |
13083 | 'letrec* | |
13084 | "bad letrec*" | |
13085 | (#{wrap 4338}# | |
13086 | (begin | |
13087 | (if (if (pair? #{e 8355}#) #{s 8358}# #f) | |
13088 | (set-source-properties! #{e 8355}# #{s 8358}#)) | |
13089 | #{e 8355}#) | |
13090 | #{w 8357}# | |
13091 | #{mod 8359}#)))))) | |
13092 | (#{global-extend 4311}# | |
13093 | 'core | |
13094 | 'set! | |
13095 | (lambda (#{e 9038}# | |
13096 | #{r 9039}# | |
13097 | #{w 9040}# | |
13098 | #{s 9041}# | |
13099 | #{mod 9042}#) | |
13100 | (let ((#{tmp 9044}# | |
13101 | ($sc-dispatch #{e 9038}# '(_ any any)))) | |
13102 | (if (if #{tmp 9044}# | |
13103 | (@apply | |
13104 | (lambda (#{id 9048}# #{val 9049}#) | |
13105 | (if (symbol? #{id 9048}#) | |
13106 | #t | |
13107 | (if (if (vector? #{id 9048}#) | |
13108 | (if (= (vector-length #{id 9048}#) 4) | |
13109 | (eq? (vector-ref #{id 9048}# 0) 'syntax-object) | |
13110 | #f) | |
13111 | #f) | |
13112 | (symbol? (vector-ref #{id 9048}# 1)) | |
13113 | #f))) | |
13114 | #{tmp 9044}#) | |
13115 | #f) | |
13116 | (@apply | |
13117 | (lambda (#{id 9076}# #{val 9077}#) | |
13118 | (let ((#{n 9078}# | |
13119 | (#{id-var-name 4332}# #{id 9076}# #{w 9040}#)) | |
13120 | (#{id-mod 9079}# | |
13121 | (if (if (vector? #{id 9076}#) | |
13122 | (if (= (vector-length #{id 9076}#) 4) | |
13123 | (eq? (vector-ref #{id 9076}# 0) 'syntax-object) | |
13124 | #f) | |
13125 | #f) | |
13126 | (vector-ref #{id 9076}# 3) | |
13127 | #{mod 9042}#))) | |
13128 | (let ((#{b 9080}# | |
13129 | (let ((#{t 9767}# (assq #{n 9078}# #{r 9039}#))) | |
13130 | (if #{t 9767}# | |
13131 | (cdr #{t 9767}#) | |
13132 | (if (symbol? #{n 9078}#) | |
13133 | (let ((#{t 9772}# | |
13134 | (begin | |
13135 | (if (if (not #{id-mod 9079}#) | |
13136 | (current-module) | |
13137 | #f) | |
13138 | (warn "module system is booted, we should have a module" | |
13139 | #{n 9078}#)) | |
13140 | (let ((#{v 9809}# | |
13141 | (module-variable | |
13142 | (if #{id-mod 9079}# | |
13143 | (resolve-module | |
13144 | (cdr #{id-mod 9079}#)) | |
13145 | (current-module)) | |
13146 | #{n 9078}#))) | |
13147 | (if #{v 9809}# | |
13148 | (if (variable-bound? #{v 9809}#) | |
13149 | (let ((#{val 9818}# | |
13150 | (variable-ref | |
13151 | #{v 9809}#))) | |
13152 | (if (macro? #{val 9818}#) | |
13153 | (if (macro-type | |
13154 | #{val 9818}#) | |
13155 | (cons (macro-type | |
13156 | #{val 9818}#) | |
13157 | (macro-binding | |
13158 | #{val 9818}#)) | |
13159 | #f) | |
13160 | #f)) | |
13161 | #f) | |
13162 | #f))))) | |
13163 | (if #{t 9772}# #{t 9772}# '(global))) | |
13164 | '(displaced-lexical)))))) | |
13165 | (let ((#{atom-key 9081}# (car #{b 9080}#))) | |
13166 | (if (let ((#{t 9118}# #{atom-key 9081}#)) | |
13167 | (eqv? #{t 9118}# 'lexical)) | |
13168 | (#{build-lexical-assignment 4284}# | |
13169 | #{s 9041}# | |
13170 | (syntax->datum #{id 9076}#) | |
13171 | (cdr #{b 9080}#) | |
13172 | (#{expand 4345}# | |
13173 | #{val 9077}# | |
13174 | #{r 9039}# | |
13175 | #{w 9040}# | |
13176 | #{mod 9042}#)) | |
13177 | (if (let ((#{t 9403}# #{atom-key 9081}#)) | |
13178 | (eqv? #{t 9403}# 'global)) | |
13179 | (#{build-global-assignment 4287}# | |
13180 | #{s 9041}# | |
13181 | #{n 9078}# | |
13182 | (#{expand 4345}# | |
13183 | #{val 9077}# | |
13184 | #{r 9039}# | |
13185 | #{w 9040}# | |
13186 | #{mod 9042}#) | |
13187 | #{id-mod 9079}#) | |
13188 | (if (let ((#{t 9658}# #{atom-key 9081}#)) | |
13189 | (eqv? #{t 9658}# 'macro)) | |
13190 | (let ((#{p 9721}# (cdr #{b 9080}#))) | |
13191 | (if (procedure-property | |
13192 | #{p 9721}# | |
13193 | 'variable-transformer) | |
13194 | (#{expand 4345}# | |
13195 | (#{expand-macro 4348}# | |
13196 | #{p 9721}# | |
13197 | #{e 9038}# | |
13198 | #{r 9039}# | |
13199 | #{w 9040}# | |
13200 | #{s 9041}# | |
13201 | #f | |
13202 | #{mod 9042}#) | |
13203 | #{r 9039}# | |
13204 | '(()) | |
13205 | #{mod 9042}#) | |
13206 | (syntax-violation | |
13207 | 'set! | |
13208 | "not a variable transformer" | |
13209 | (#{wrap 4338}# | |
13210 | #{e 9038}# | |
13211 | #{w 9040}# | |
13212 | #{mod 9042}#) | |
13213 | (#{wrap 4338}# | |
13214 | #{id 9076}# | |
13215 | #{w 9040}# | |
13216 | #{id-mod 9079}#)))) | |
13217 | (if (eqv? #{atom-key 9081}# 'displaced-lexical) | |
13218 | (syntax-violation | |
13219 | 'set! | |
13220 | "identifier out of context" | |
13221 | (#{wrap 4338}# | |
13222 | #{id 9076}# | |
13223 | #{w 9040}# | |
13224 | #{mod 9042}#)) | |
13225 | (syntax-violation | |
13226 | 'set! | |
13227 | "bad set!" | |
13228 | (#{wrap 4338}# | |
13229 | (begin | |
13230 | (if (if (pair? #{e 9038}#) #{s 9041}# #f) | |
13231 | (set-source-properties! | |
13232 | #{e 9038}# | |
13233 | #{s 9041}#)) | |
13234 | #{e 9038}#) | |
13235 | #{w 9040}# | |
13236 | #{mod 9042}#)))))))))) | |
13237 | #{tmp 9044}#) | |
13238 | (let ((#{tmp 9919}# | |
13239 | ($sc-dispatch | |
13240 | #{e 9038}# | |
13241 | '(_ (any . each-any) any)))) | |
13242 | (if #{tmp 9919}# | |
13243 | (@apply | |
13244 | (lambda (#{head 9923}# #{tail 9924}# #{val 9925}#) | |
13245 | (call-with-values | |
13246 | (lambda () | |
13247 | (#{syntax-type 4344}# | |
13248 | #{head 9923}# | |
13249 | #{r 9039}# | |
13250 | '(()) | |
13251 | #f | |
13252 | #f | |
13253 | #{mod 9042}# | |
13254 | #t)) | |
13255 | (lambda (#{type 9928}# | |
13256 | #{value 9929}# | |
13257 | #{ee 9930}# | |
13258 | #{ww 9931}# | |
13259 | #{ss 9932}# | |
13260 | #{modmod 9933}#) | |
13261 | (if (eqv? #{type 9928}# 'module-ref) | |
13262 | (let ((#{val 9937}# | |
13263 | (#{expand 4345}# | |
13264 | #{val 9925}# | |
13265 | #{r 9039}# | |
13266 | #{w 9040}# | |
13267 | #{mod 9042}#))) | |
13268 | (call-with-values | |
13269 | (lambda () | |
13270 | (#{value 9929}# | |
13271 | (cons #{head 9923}# #{tail 9924}#) | |
13272 | #{r 9039}# | |
13273 | #{w 9040}#)) | |
13274 | (lambda (#{e 9938}# | |
13275 | #{r 9939}# | |
13276 | #{w 9940}# | |
13277 | #{s* 9941}# | |
13278 | #{mod 9942}#) | |
13279 | (let ((#{tmp 9944}# (list #{e 9938}#))) | |
13280 | (if (@apply | |
13281 | (lambda (#{e 9946}#) | |
13282 | (if (symbol? #{e 9946}#) | |
13283 | #t | |
13284 | (if (if (vector? #{e 9946}#) | |
13285 | (if (= (vector-length | |
13286 | #{e 9946}#) | |
13287 | 4) | |
13288 | (eq? (vector-ref | |
13289 | #{e 9946}# | |
13290 | 0) | |
13291 | 'syntax-object) | |
13292 | #f) | |
13293 | #f) | |
13294 | (symbol? | |
13295 | (vector-ref #{e 9946}# 1)) | |
13296 | #f))) | |
13297 | #{tmp 9944}#) | |
13298 | (@apply | |
13299 | (lambda (#{e 9976}#) | |
13300 | (#{build-global-assignment 4287}# | |
13301 | #{s 9041}# | |
13302 | (syntax->datum #{e 9976}#) | |
13303 | #{val 9937}# | |
13304 | #{mod 9942}#)) | |
13305 | #{tmp 9944}#) | |
13306 | (syntax-violation | |
13307 | #f | |
13308 | "source expression failed to match any pattern" | |
13309 | #{e 9938}#)))))) | |
13310 | (#{build-application 4280}# | |
13311 | #{s 9041}# | |
13312 | (#{expand 4345}# | |
13313 | (list '#(syntax-object | |
13314 | setter | |
13315 | ((top) | |
13316 | #(ribcage () () ()) | |
13317 | #(ribcage () () ()) | |
13318 | #(ribcage | |
13319 | #(type value ee ww ss modmod) | |
13320 | #((top) | |
13321 | (top) | |
13322 | (top) | |
13323 | (top) | |
13324 | (top) | |
13325 | (top)) | |
13326 | #("i3555" | |
13327 | "i3556" | |
13328 | "i3557" | |
13329 | "i3558" | |
13330 | "i3559" | |
13331 | "i3560")) | |
13332 | #(ribcage | |
13333 | #(head tail val) | |
13334 | #((top) (top) (top)) | |
13335 | #("i3541" "i3542" "i3543")) | |
13336 | #(ribcage () () ()) | |
13337 | #(ribcage | |
13338 | #(e r w s mod) | |
13339 | #((top) (top) (top) (top) (top)) | |
13340 | #("i3505" | |
13341 | "i3506" | |
13342 | "i3507" | |
13343 | "i3508" | |
13344 | "i3509")) | |
13345 | #(ribcage | |
13346 | (lambda-var-list | |
13347 | gen-var | |
13348 | strip | |
13349 | expand-lambda-case | |
13350 | lambda*-formals | |
13351 | expand-simple-lambda | |
13352 | lambda-formals | |
13353 | ellipsis? | |
13354 | expand-void | |
13355 | eval-local-transformer | |
13356 | expand-local-syntax | |
13357 | expand-body | |
13358 | expand-macro | |
13359 | expand-application | |
13360 | expand-expr | |
13361 | expand | |
13362 | syntax-type | |
13363 | expand-when-list | |
13364 | expand-install-global | |
13365 | expand-top-sequence | |
13366 | expand-sequence | |
13367 | source-wrap | |
13368 | wrap | |
13369 | bound-id-member? | |
13370 | distinct-bound-ids? | |
13371 | valid-bound-ids? | |
13372 | bound-id=? | |
13373 | free-id=? | |
13374 | id-var-name | |
13375 | same-marks? | |
13376 | join-marks | |
13377 | join-wraps | |
13378 | smart-append | |
13379 | make-binding-wrap | |
13380 | extend-ribcage! | |
13381 | make-empty-ribcage | |
13382 | new-mark | |
13383 | anti-mark | |
13384 | the-anti-mark | |
13385 | top-marked? | |
13386 | top-wrap | |
13387 | empty-wrap | |
13388 | set-ribcage-labels! | |
13389 | set-ribcage-marks! | |
13390 | set-ribcage-symnames! | |
13391 | ribcage-labels | |
13392 | ribcage-marks | |
13393 | ribcage-symnames | |
13394 | ribcage? | |
13395 | make-ribcage | |
13396 | gen-labels | |
13397 | gen-label | |
13398 | make-rename | |
13399 | rename-marks | |
13400 | rename-new | |
13401 | rename-old | |
13402 | subst-rename? | |
13403 | wrap-subst | |
13404 | wrap-marks | |
13405 | make-wrap | |
13406 | id-sym-name&marks | |
13407 | id-sym-name | |
13408 | id? | |
13409 | nonsymbol-id? | |
13410 | global-extend | |
13411 | lookup | |
13412 | macros-only-env | |
13413 | extend-var-env | |
13414 | extend-env | |
13415 | null-env | |
13416 | binding-value | |
13417 | binding-type | |
13418 | make-binding | |
13419 | arg-check | |
13420 | source-annotation | |
13421 | no-source | |
13422 | set-syntax-object-module! | |
13423 | set-syntax-object-wrap! | |
13424 | set-syntax-object-expression! | |
13425 | syntax-object-module | |
13426 | syntax-object-wrap | |
13427 | syntax-object-expression | |
13428 | syntax-object? | |
13429 | make-syntax-object | |
13430 | build-lexical-var | |
13431 | build-letrec | |
13432 | build-named-let | |
13433 | build-let | |
13434 | build-sequence | |
13435 | build-data | |
13436 | build-primref | |
13437 | build-lambda-case | |
13438 | build-case-lambda | |
13439 | build-simple-lambda | |
13440 | build-global-definition | |
13441 | build-global-assignment | |
13442 | build-global-reference | |
13443 | analyze-variable | |
13444 | build-lexical-assignment | |
13445 | build-lexical-reference | |
13446 | build-dynlet | |
13447 | build-conditional | |
13448 | build-application | |
13449 | build-void | |
13450 | maybe-name-value! | |
13451 | decorate-source | |
13452 | get-global-definition-hook | |
13453 | put-global-definition-hook | |
13454 | gensym-hook | |
13455 | local-eval-hook | |
13456 | top-level-eval-hook | |
13457 | fx< | |
13458 | fx= | |
13459 | fx- | |
13460 | fx+ | |
13461 | set-lambda-meta! | |
13462 | lambda-meta | |
13463 | lambda? | |
13464 | make-dynlet | |
13465 | make-letrec | |
13466 | make-let | |
13467 | make-lambda-case | |
13468 | make-lambda | |
13469 | make-sequence | |
13470 | make-application | |
13471 | make-conditional | |
13472 | make-toplevel-define | |
13473 | make-toplevel-set | |
13474 | make-toplevel-ref | |
13475 | make-module-set | |
13476 | make-module-ref | |
13477 | make-lexical-set | |
13478 | make-lexical-ref | |
13479 | make-primitive-ref | |
13480 | make-const | |
13481 | make-void) | |
13482 | ((top) | |
13483 | (top) | |
13484 | (top) | |
13485 | (top) | |
13486 | (top) | |
13487 | (top) | |
13488 | (top) | |
13489 | (top) | |
13490 | (top) | |
13491 | (top) | |
13492 | (top) | |
13493 | (top) | |
13494 | (top) | |
13495 | (top) | |
13496 | (top) | |
13497 | (top) | |
13498 | (top) | |
13499 | (top) | |
13500 | (top) | |
13501 | (top) | |
13502 | (top) | |
13503 | (top) | |
13504 | (top) | |
13505 | (top) | |
13506 | (top) | |
13507 | (top) | |
13508 | (top) | |
13509 | (top) | |
13510 | (top) | |
13511 | (top) | |
13512 | (top) | |
13513 | (top) | |
13514 | (top) | |
13515 | (top) | |
13516 | (top) | |
13517 | (top) | |
13518 | (top) | |
13519 | (top) | |
13520 | (top) | |
13521 | (top) | |
13522 | (top) | |
13523 | (top) | |
13524 | (top) | |
13525 | (top) | |
13526 | (top) | |
13527 | (top) | |
13528 | (top) | |
13529 | (top) | |
13530 | (top) | |
13531 | (top) | |
13532 | (top) | |
13533 | (top) | |
13534 | (top) | |
13535 | (top) | |
13536 | (top) | |
13537 | (top) | |
13538 | (top) | |
13539 | (top) | |
13540 | (top) | |
13541 | (top) | |
13542 | (top) | |
13543 | (top) | |
13544 | (top) | |
13545 | (top) | |
13546 | (top) | |
13547 | (top) | |
13548 | (top) | |
13549 | (top) | |
13550 | (top) | |
13551 | (top) | |
13552 | (top) | |
13553 | (top) | |
13554 | (top) | |
13555 | (top) | |
13556 | (top) | |
13557 | (top) | |
13558 | (top) | |
13559 | (top) | |
13560 | (top) | |
13561 | (top) | |
13562 | (top) | |
13563 | (top) | |
13564 | (top) | |
13565 | (top) | |
13566 | (top) | |
13567 | (top) | |
13568 | (top) | |
13569 | (top) | |
13570 | (top) | |
13571 | (top) | |
13572 | (top) | |
13573 | (top) | |
13574 | (top) | |
13575 | (top) | |
13576 | (top) | |
13577 | (top) | |
13578 | (top) | |
13579 | (top) | |
13580 | (top) | |
13581 | (top) | |
13582 | (top) | |
13583 | (top) | |
13584 | (top) | |
13585 | (top) | |
13586 | (top) | |
13587 | (top) | |
13588 | (top) | |
13589 | (top) | |
13590 | (top) | |
13591 | (top) | |
13592 | (top) | |
13593 | (top) | |
13594 | (top) | |
13595 | (top) | |
13596 | (top) | |
13597 | (top) | |
13598 | (top) | |
13599 | (top) | |
13600 | (top) | |
13601 | (top) | |
13602 | (top) | |
13603 | (top) | |
13604 | (top) | |
13605 | (top) | |
13606 | (top) | |
13607 | (top) | |
13608 | (top) | |
13609 | (top) | |
13610 | (top) | |
13611 | (top) | |
13612 | (top) | |
13613 | (top) | |
13614 | (top) | |
13615 | (top) | |
13616 | (top) | |
13617 | (top)) | |
13618 | ("i467" | |
13619 | "i465" | |
13620 | "i463" | |
13621 | "i461" | |
13622 | "i459" | |
13623 | "i457" | |
13624 | "i455" | |
13625 | "i453" | |
13626 | "i451" | |
13627 | "i449" | |
13628 | "i447" | |
13629 | "i445" | |
13630 | "i443" | |
13631 | "i441" | |
13632 | "i439" | |
13633 | "i437" | |
13634 | "i435" | |
13635 | "i433" | |
13636 | "i431" | |
13637 | "i429" | |
13638 | "i427" | |
13639 | "i425" | |
13640 | "i423" | |
13641 | "i421" | |
13642 | "i419" | |
13643 | "i417" | |
13644 | "i415" | |
13645 | "i413" | |
13646 | "i411" | |
13647 | "i409" | |
13648 | "i407" | |
13649 | "i405" | |
13650 | "i403" | |
13651 | "i401" | |
13652 | "i399" | |
13653 | "i398" | |
13654 | "i396" | |
13655 | "i393" | |
13656 | "i392" | |
13657 | "i391" | |
13658 | "i389" | |
13659 | "i388" | |
13660 | "i386" | |
13661 | "i384" | |
13662 | "i382" | |
13663 | "i380" | |
13664 | "i378" | |
13665 | "i376" | |
13666 | "i374" | |
13667 | "i372" | |
13668 | "i369" | |
13669 | "i367" | |
13670 | "i366" | |
13671 | "i364" | |
13672 | "i362" | |
13673 | "i360" | |
13674 | "i358" | |
13675 | "i357" | |
13676 | "i356" | |
13677 | "i355" | |
13678 | "i353" | |
13679 | "i352" | |
13680 | "i349" | |
13681 | "i347" | |
13682 | "i345" | |
13683 | "i343" | |
13684 | "i341" | |
13685 | "i339" | |
13686 | "i337" | |
13687 | "i336" | |
13688 | "i335" | |
13689 | "i333" | |
13690 | "i331" | |
13691 | "i330" | |
13692 | "i327" | |
13693 | "i326" | |
13694 | "i324" | |
13695 | "i322" | |
13696 | "i320" | |
13697 | "i318" | |
13698 | "i316" | |
13699 | "i314" | |
13700 | "i312" | |
13701 | "i310" | |
13702 | "i308" | |
13703 | "i305" | |
13704 | "i303" | |
13705 | "i301" | |
13706 | "i299" | |
13707 | "i297" | |
13708 | "i295" | |
13709 | "i293" | |
13710 | "i291" | |
13711 | "i289" | |
13712 | "i287" | |
13713 | "i285" | |
13714 | "i283" | |
13715 | "i281" | |
13716 | "i279" | |
13717 | "i277" | |
13718 | "i275" | |
13719 | "i273" | |
13720 | "i271" | |
13721 | "i269" | |
13722 | "i267" | |
13723 | "i265" | |
13724 | "i263" | |
13725 | "i261" | |
13726 | "i260" | |
13727 | "i257" | |
13728 | "i255" | |
13729 | "i254" | |
13730 | "i253" | |
13731 | "i252" | |
13732 | "i251" | |
13733 | "i249" | |
13734 | "i247" | |
13735 | "i245" | |
13736 | "i242" | |
13737 | "i240" | |
13738 | "i238" | |
13739 | "i236" | |
13740 | "i234" | |
13741 | "i232" | |
13742 | "i230" | |
13743 | "i228" | |
13744 | "i226" | |
13745 | "i224" | |
13746 | "i222" | |
13747 | "i220" | |
13748 | "i218" | |
13749 | "i216" | |
13750 | "i214" | |
13751 | "i212" | |
13752 | "i210" | |
13753 | "i208")) | |
13754 | #(ribcage | |
13755 | (define-structure | |
13756 | define-expansion-accessors | |
13757 | define-expansion-constructors) | |
13758 | ((top) (top) (top)) | |
13759 | ("i46" "i45" "i44"))) | |
13760 | (hygiene guile)) | |
13761 | #{head 9923}#) | |
13762 | #{r 9039}# | |
13763 | #{w 9040}# | |
13764 | #{mod 9042}#) | |
13765 | (map (lambda (#{e 10277}#) | |
13766 | (#{expand 4345}# | |
13767 | #{e 10277}# | |
13768 | #{r 9039}# | |
13769 | #{w 9040}# | |
13770 | #{mod 9042}#)) | |
13771 | (append | |
13772 | #{tail 9924}# | |
13773 | (list #{val 9925}#)))))))) | |
13774 | #{tmp 9919}#) | |
13775 | (syntax-violation | |
13776 | 'set! | |
13777 | "bad set!" | |
13778 | (#{wrap 4338}# | |
13779 | (begin | |
13780 | (if (if (pair? #{e 9038}#) #{s 9041}# #f) | |
13781 | (set-source-properties! #{e 9038}# #{s 9041}#)) | |
13782 | #{e 9038}#) | |
13783 | #{w 9040}# | |
13784 | #{mod 9042}#)))))))) | |
13785 | (module-define! | |
13786 | (current-module) | |
13787 | '@ | |
13788 | (make-syntax-transformer | |
13789 | '@ | |
13790 | 'module-ref | |
13791 | (lambda (#{e 10391}# #{r 10392}# #{w 10393}#) | |
13792 | (let ((#{tmp 10395}# | |
13793 | ($sc-dispatch #{e 10391}# '(_ each-any any)))) | |
13794 | (if (if #{tmp 10395}# | |
13795 | (@apply | |
13796 | (lambda (#{mod 10398}# #{id 10399}#) | |
13797 | (if (and-map #{id? 4313}# #{mod 10398}#) | |
13798 | (if (symbol? #{id 10399}#) | |
13799 | #t | |
13800 | (if (if (vector? #{id 10399}#) | |
13801 | (if (= (vector-length #{id 10399}#) 4) | |
13802 | (eq? (vector-ref #{id 10399}# 0) | |
13803 | 'syntax-object) | |
13804 | #f) | |
13805 | #f) | |
13806 | (symbol? (vector-ref #{id 10399}# 1)) | |
13807 | #f)) | |
13808 | #f)) | |
13809 | #{tmp 10395}#) | |
13810 | #f) | |
13811 | (@apply | |
13812 | (lambda (#{mod 10439}# #{id 10440}#) | |
13813 | (values | |
13814 | (syntax->datum #{id 10440}#) | |
13815 | #{r 10392}# | |
13816 | #{w 10393}# | |
13817 | #f | |
13818 | (syntax->datum | |
13819 | (cons '#(syntax-object | |
13820 | public | |
13821 | ((top) | |
13822 | #(ribcage | |
13823 | #(mod id) | |
13824 | #((top) (top)) | |
13825 | #("i3602" "i3603")) | |
13826 | #(ribcage () () ()) | |
13827 | #(ribcage | |
13828 | #(e r w) | |
13829 | #((top) (top) (top)) | |
13830 | #("i3590" "i3591" "i3592")) | |
13831 | #(ribcage | |
13832 | (lambda-var-list | |
13833 | gen-var | |
13834 | strip | |
13835 | expand-lambda-case | |
13836 | lambda*-formals | |
13837 | expand-simple-lambda | |
13838 | lambda-formals | |
13839 | ellipsis? | |
13840 | expand-void | |
13841 | eval-local-transformer | |
13842 | expand-local-syntax | |
13843 | expand-body | |
13844 | expand-macro | |
13845 | expand-application | |
13846 | expand-expr | |
13847 | expand | |
13848 | syntax-type | |
13849 | expand-when-list | |
13850 | expand-install-global | |
13851 | expand-top-sequence | |
13852 | expand-sequence | |
13853 | source-wrap | |
13854 | wrap | |
13855 | bound-id-member? | |
13856 | distinct-bound-ids? | |
13857 | valid-bound-ids? | |
13858 | bound-id=? | |
13859 | free-id=? | |
13860 | id-var-name | |
13861 | same-marks? | |
13862 | join-marks | |
13863 | join-wraps | |
13864 | smart-append | |
13865 | make-binding-wrap | |
13866 | extend-ribcage! | |
13867 | make-empty-ribcage | |
13868 | new-mark | |
13869 | anti-mark | |
13870 | the-anti-mark | |
13871 | top-marked? | |
13872 | top-wrap | |
13873 | empty-wrap | |
13874 | set-ribcage-labels! | |
13875 | set-ribcage-marks! | |
13876 | set-ribcage-symnames! | |
13877 | ribcage-labels | |
13878 | ribcage-marks | |
13879 | ribcage-symnames | |
13880 | ribcage? | |
13881 | make-ribcage | |
13882 | gen-labels | |
13883 | gen-label | |
13884 | make-rename | |
13885 | rename-marks | |
13886 | rename-new | |
13887 | rename-old | |
13888 | subst-rename? | |
13889 | wrap-subst | |
13890 | wrap-marks | |
13891 | make-wrap | |
13892 | id-sym-name&marks | |
13893 | id-sym-name | |
13894 | id? | |
13895 | nonsymbol-id? | |
13896 | global-extend | |
13897 | lookup | |
13898 | macros-only-env | |
13899 | extend-var-env | |
13900 | extend-env | |
13901 | null-env | |
13902 | binding-value | |
13903 | binding-type | |
13904 | make-binding | |
13905 | arg-check | |
13906 | source-annotation | |
13907 | no-source | |
13908 | set-syntax-object-module! | |
13909 | set-syntax-object-wrap! | |
13910 | set-syntax-object-expression! | |
13911 | syntax-object-module | |
13912 | syntax-object-wrap | |
13913 | syntax-object-expression | |
13914 | syntax-object? | |
13915 | make-syntax-object | |
13916 | build-lexical-var | |
13917 | build-letrec | |
13918 | build-named-let | |
13919 | build-let | |
13920 | build-sequence | |
13921 | build-data | |
13922 | build-primref | |
13923 | build-lambda-case | |
13924 | build-case-lambda | |
13925 | build-simple-lambda | |
13926 | build-global-definition | |
13927 | build-global-assignment | |
13928 | build-global-reference | |
13929 | analyze-variable | |
13930 | build-lexical-assignment | |
13931 | build-lexical-reference | |
13932 | build-dynlet | |
13933 | build-conditional | |
13934 | build-application | |
13935 | build-void | |
13936 | maybe-name-value! | |
13937 | decorate-source | |
13938 | get-global-definition-hook | |
13939 | put-global-definition-hook | |
13940 | gensym-hook | |
13941 | local-eval-hook | |
13942 | top-level-eval-hook | |
13943 | fx< | |
13944 | fx= | |
13945 | fx- | |
13946 | fx+ | |
13947 | set-lambda-meta! | |
13948 | lambda-meta | |
13949 | lambda? | |
13950 | make-dynlet | |
13951 | make-letrec | |
13952 | make-let | |
13953 | make-lambda-case | |
13954 | make-lambda | |
13955 | make-sequence | |
13956 | make-application | |
13957 | make-conditional | |
13958 | make-toplevel-define | |
13959 | make-toplevel-set | |
13960 | make-toplevel-ref | |
13961 | make-module-set | |
13962 | make-module-ref | |
13963 | make-lexical-set | |
13964 | make-lexical-ref | |
13965 | make-primitive-ref | |
13966 | make-const | |
13967 | make-void) | |
13968 | ((top) | |
13969 | (top) | |
13970 | (top) | |
13971 | (top) | |
13972 | (top) | |
13973 | (top) | |
13974 | (top) | |
13975 | (top) | |
13976 | (top) | |
13977 | (top) | |
13978 | (top) | |
13979 | (top) | |
13980 | (top) | |
13981 | (top) | |
13982 | (top) | |
13983 | (top) | |
13984 | (top) | |
13985 | (top) | |
13986 | (top) | |
13987 | (top) | |
13988 | (top) | |
13989 | (top) | |
13990 | (top) | |
13991 | (top) | |
13992 | (top) | |
13993 | (top) | |
13994 | (top) | |
13995 | (top) | |
13996 | (top) | |
13997 | (top) | |
13998 | (top) | |
13999 | (top) | |
14000 | (top) | |
14001 | (top) | |
14002 | (top) | |
14003 | (top) | |
14004 | (top) | |
14005 | (top) | |
14006 | (top) | |
14007 | (top) | |
14008 | (top) | |
14009 | (top) | |
14010 | (top) | |
14011 | (top) | |
14012 | (top) | |
14013 | (top) | |
14014 | (top) | |
14015 | (top) | |
14016 | (top) | |
14017 | (top) | |
14018 | (top) | |
14019 | (top) | |
14020 | (top) | |
14021 | (top) | |
14022 | (top) | |
14023 | (top) | |
14024 | (top) | |
14025 | (top) | |
14026 | (top) | |
14027 | (top) | |
14028 | (top) | |
14029 | (top) | |
14030 | (top) | |
14031 | (top) | |
14032 | (top) | |
14033 | (top) | |
14034 | (top) | |
14035 | (top) | |
14036 | (top) | |
14037 | (top) | |
14038 | (top) | |
14039 | (top) | |
14040 | (top) | |
14041 | (top) | |
14042 | (top) | |
14043 | (top) | |
14044 | (top) | |
14045 | (top) | |
14046 | (top) | |
14047 | (top) | |
14048 | (top) | |
14049 | (top) | |
14050 | (top) | |
14051 | (top) | |
14052 | (top) | |
14053 | (top) | |
14054 | (top) | |
14055 | (top) | |
14056 | (top) | |
14057 | (top) | |
14058 | (top) | |
14059 | (top) | |
14060 | (top) | |
14061 | (top) | |
14062 | (top) | |
14063 | (top) | |
14064 | (top) | |
14065 | (top) | |
14066 | (top) | |
14067 | (top) | |
14068 | (top) | |
14069 | (top) | |
14070 | (top) | |
14071 | (top) | |
14072 | (top) | |
14073 | (top) | |
14074 | (top) | |
14075 | (top) | |
14076 | (top) | |
14077 | (top) | |
14078 | (top) | |
14079 | (top) | |
14080 | (top) | |
14081 | (top) | |
14082 | (top) | |
14083 | (top) | |
14084 | (top) | |
14085 | (top) | |
14086 | (top) | |
14087 | (top) | |
14088 | (top) | |
14089 | (top) | |
14090 | (top) | |
14091 | (top) | |
14092 | (top) | |
14093 | (top) | |
14094 | (top) | |
14095 | (top) | |
14096 | (top) | |
14097 | (top) | |
14098 | (top) | |
14099 | (top) | |
14100 | (top) | |
14101 | (top) | |
14102 | (top) | |
14103 | (top)) | |
14104 | ("i467" | |
14105 | "i465" | |
14106 | "i463" | |
14107 | "i461" | |
14108 | "i459" | |
14109 | "i457" | |
14110 | "i455" | |
14111 | "i453" | |
14112 | "i451" | |
14113 | "i449" | |
14114 | "i447" | |
14115 | "i445" | |
14116 | "i443" | |
14117 | "i441" | |
14118 | "i439" | |
14119 | "i437" | |
14120 | "i435" | |
14121 | "i433" | |
14122 | "i431" | |
14123 | "i429" | |
14124 | "i427" | |
14125 | "i425" | |
14126 | "i423" | |
14127 | "i421" | |
14128 | "i419" | |
14129 | "i417" | |
14130 | "i415" | |
14131 | "i413" | |
14132 | "i411" | |
14133 | "i409" | |
14134 | "i407" | |
14135 | "i405" | |
14136 | "i403" | |
14137 | "i401" | |
14138 | "i399" | |
14139 | "i398" | |
14140 | "i396" | |
14141 | "i393" | |
14142 | "i392" | |
14143 | "i391" | |
14144 | "i389" | |
14145 | "i388" | |
14146 | "i386" | |
14147 | "i384" | |
14148 | "i382" | |
14149 | "i380" | |
14150 | "i378" | |
14151 | "i376" | |
14152 | "i374" | |
14153 | "i372" | |
14154 | "i369" | |
14155 | "i367" | |
14156 | "i366" | |
14157 | "i364" | |
14158 | "i362" | |
14159 | "i360" | |
14160 | "i358" | |
14161 | "i357" | |
14162 | "i356" | |
14163 | "i355" | |
14164 | "i353" | |
14165 | "i352" | |
14166 | "i349" | |
14167 | "i347" | |
14168 | "i345" | |
14169 | "i343" | |
14170 | "i341" | |
14171 | "i339" | |
14172 | "i337" | |
14173 | "i336" | |
14174 | "i335" | |
14175 | "i333" | |
14176 | "i331" | |
14177 | "i330" | |
14178 | "i327" | |
14179 | "i326" | |
14180 | "i324" | |
14181 | "i322" | |
14182 | "i320" | |
14183 | "i318" | |
14184 | "i316" | |
14185 | "i314" | |
14186 | "i312" | |
14187 | "i310" | |
14188 | "i308" | |
14189 | "i305" | |
14190 | "i303" | |
14191 | "i301" | |
14192 | "i299" | |
14193 | "i297" | |
14194 | "i295" | |
14195 | "i293" | |
14196 | "i291" | |
14197 | "i289" | |
14198 | "i287" | |
14199 | "i285" | |
14200 | "i283" | |
14201 | "i281" | |
14202 | "i279" | |
14203 | "i277" | |
14204 | "i275" | |
14205 | "i273" | |
14206 | "i271" | |
14207 | "i269" | |
14208 | "i267" | |
14209 | "i265" | |
14210 | "i263" | |
14211 | "i261" | |
14212 | "i260" | |
14213 | "i257" | |
14214 | "i255" | |
14215 | "i254" | |
14216 | "i253" | |
14217 | "i252" | |
14218 | "i251" | |
14219 | "i249" | |
14220 | "i247" | |
14221 | "i245" | |
14222 | "i242" | |
14223 | "i240" | |
14224 | "i238" | |
14225 | "i236" | |
14226 | "i234" | |
14227 | "i232" | |
14228 | "i230" | |
14229 | "i228" | |
14230 | "i226" | |
14231 | "i224" | |
14232 | "i222" | |
14233 | "i220" | |
14234 | "i218" | |
14235 | "i216" | |
14236 | "i214" | |
14237 | "i212" | |
14238 | "i210" | |
14239 | "i208")) | |
14240 | #(ribcage | |
14241 | (define-structure | |
14242 | define-expansion-accessors | |
14243 | define-expansion-constructors) | |
14244 | ((top) (top) (top)) | |
14245 | ("i46" "i45" "i44"))) | |
14246 | (hygiene guile)) | |
14247 | #{mod 10439}#)))) | |
14248 | #{tmp 10395}#) | |
14249 | (syntax-violation | |
14250 | #f | |
14251 | "source expression failed to match any pattern" | |
14252 | #{e 10391}#)))))) | |
14253 | (#{global-extend 4311}# | |
14254 | 'module-ref | |
14255 | '@@ | |
14256 | (lambda (#{e 10537}# #{r 10538}# #{w 10539}#) | |
14257 | (letrec* | |
14258 | ((#{remodulate 10540}# | |
14259 | (lambda (#{x 10746}# #{mod 10747}#) | |
14260 | (if (pair? #{x 10746}#) | |
14261 | (cons (#{remodulate 10540}# | |
14262 | (car #{x 10746}#) | |
14263 | #{mod 10747}#) | |
14264 | (#{remodulate 10540}# | |
14265 | (cdr #{x 10746}#) | |
14266 | #{mod 10747}#)) | |
14267 | (if (if (vector? #{x 10746}#) | |
14268 | (if (= (vector-length #{x 10746}#) 4) | |
14269 | (eq? (vector-ref #{x 10746}# 0) 'syntax-object) | |
14270 | #f) | |
14271 | #f) | |
14272 | (let ((#{expression 10761}# | |
14273 | (#{remodulate 10540}# | |
14274 | (vector-ref #{x 10746}# 1) | |
14275 | #{mod 10747}#)) | |
14276 | (#{wrap 10762}# (vector-ref #{x 10746}# 2))) | |
14277 | (vector | |
14278 | 'syntax-object | |
14279 | #{expression 10761}# | |
14280 | #{wrap 10762}# | |
14281 | #{mod 10747}#)) | |
14282 | (if (vector? #{x 10746}#) | |
14283 | (let ((#{n 10770}# (vector-length #{x 10746}#))) | |
14284 | (let ((#{v 10771}# (make-vector #{n 10770}#))) | |
14285 | (letrec* | |
14286 | ((#{loop 10772}# | |
14287 | (lambda (#{i 10819}#) | |
14288 | (if (= #{i 10819}# #{n 10770}#) | |
14289 | #{v 10771}# | |
14290 | (begin | |
14291 | (vector-set! | |
14292 | #{v 10771}# | |
14293 | #{i 10819}# | |
14294 | (#{remodulate 10540}# | |
14295 | (vector-ref #{x 10746}# #{i 10819}#) | |
14296 | #{mod 10747}#)) | |
14297 | (#{loop 10772}# (#{1+}# #{i 10819}#))))))) | |
14298 | (#{loop 10772}# 0)))) | |
14299 | #{x 10746}#)))))) | |
14300 | (let ((#{tmp 10542}# | |
14301 | ($sc-dispatch #{e 10537}# '(_ each-any any)))) | |
14302 | (if (if #{tmp 10542}# | |
14303 | (@apply | |
14304 | (lambda (#{mod 10546}# #{exp 10547}#) | |
14305 | (and-map #{id? 4313}# #{mod 10546}#)) | |
14306 | #{tmp 10542}#) | |
14307 | #f) | |
14308 | (@apply | |
14309 | (lambda (#{mod 10563}# #{exp 10564}#) | |
14310 | (let ((#{mod 10565}# | |
14311 | (syntax->datum | |
14312 | (cons '#(syntax-object | |
14313 | private | |
14314 | ((top) | |
14315 | #(ribcage | |
14316 | #(mod exp) | |
14317 | #((top) (top)) | |
14318 | #("i3646" "i3647")) | |
14319 | #(ribcage (remodulate) ((top)) ("i3613")) | |
14320 | #(ribcage | |
14321 | #(e r w) | |
14322 | #((top) (top) (top)) | |
14323 | #("i3610" "i3611" "i3612")) | |
14324 | #(ribcage | |
14325 | (lambda-var-list | |
14326 | gen-var | |
14327 | strip | |
14328 | expand-lambda-case | |
14329 | lambda*-formals | |
14330 | expand-simple-lambda | |
14331 | lambda-formals | |
14332 | ellipsis? | |
14333 | expand-void | |
14334 | eval-local-transformer | |
14335 | expand-local-syntax | |
14336 | expand-body | |
14337 | expand-macro | |
14338 | expand-application | |
14339 | expand-expr | |
14340 | expand | |
14341 | syntax-type | |
14342 | expand-when-list | |
14343 | expand-install-global | |
14344 | expand-top-sequence | |
14345 | expand-sequence | |
14346 | source-wrap | |
14347 | wrap | |
14348 | bound-id-member? | |
14349 | distinct-bound-ids? | |
14350 | valid-bound-ids? | |
14351 | bound-id=? | |
14352 | free-id=? | |
14353 | id-var-name | |
14354 | same-marks? | |
14355 | join-marks | |
14356 | join-wraps | |
14357 | smart-append | |
14358 | make-binding-wrap | |
14359 | extend-ribcage! | |
14360 | make-empty-ribcage | |
14361 | new-mark | |
14362 | anti-mark | |
14363 | the-anti-mark | |
14364 | top-marked? | |
14365 | top-wrap | |
14366 | empty-wrap | |
14367 | set-ribcage-labels! | |
14368 | set-ribcage-marks! | |
14369 | set-ribcage-symnames! | |
14370 | ribcage-labels | |
14371 | ribcage-marks | |
14372 | ribcage-symnames | |
14373 | ribcage? | |
14374 | make-ribcage | |
14375 | gen-labels | |
14376 | gen-label | |
14377 | make-rename | |
14378 | rename-marks | |
14379 | rename-new | |
14380 | rename-old | |
14381 | subst-rename? | |
14382 | wrap-subst | |
14383 | wrap-marks | |
14384 | make-wrap | |
14385 | id-sym-name&marks | |
14386 | id-sym-name | |
14387 | id? | |
14388 | nonsymbol-id? | |
14389 | global-extend | |
14390 | lookup | |
14391 | macros-only-env | |
14392 | extend-var-env | |
14393 | extend-env | |
14394 | null-env | |
14395 | binding-value | |
14396 | binding-type | |
14397 | make-binding | |
14398 | arg-check | |
14399 | source-annotation | |
14400 | no-source | |
14401 | set-syntax-object-module! | |
14402 | set-syntax-object-wrap! | |
14403 | set-syntax-object-expression! | |
14404 | syntax-object-module | |
14405 | syntax-object-wrap | |
14406 | syntax-object-expression | |
14407 | syntax-object? | |
14408 | make-syntax-object | |
14409 | build-lexical-var | |
14410 | build-letrec | |
14411 | build-named-let | |
14412 | build-let | |
14413 | build-sequence | |
14414 | build-data | |
14415 | build-primref | |
14416 | build-lambda-case | |
14417 | build-case-lambda | |
14418 | build-simple-lambda | |
14419 | build-global-definition | |
14420 | build-global-assignment | |
14421 | build-global-reference | |
14422 | analyze-variable | |
14423 | build-lexical-assignment | |
14424 | build-lexical-reference | |
14425 | build-dynlet | |
14426 | build-conditional | |
14427 | build-application | |
14428 | build-void | |
14429 | maybe-name-value! | |
14430 | decorate-source | |
14431 | get-global-definition-hook | |
14432 | put-global-definition-hook | |
14433 | gensym-hook | |
14434 | local-eval-hook | |
14435 | top-level-eval-hook | |
14436 | fx< | |
14437 | fx= | |
14438 | fx- | |
14439 | fx+ | |
14440 | set-lambda-meta! | |
14441 | lambda-meta | |
14442 | lambda? | |
14443 | make-dynlet | |
14444 | make-letrec | |
14445 | make-let | |
14446 | make-lambda-case | |
14447 | make-lambda | |
14448 | make-sequence | |
14449 | make-application | |
14450 | make-conditional | |
14451 | make-toplevel-define | |
14452 | make-toplevel-set | |
14453 | make-toplevel-ref | |
14454 | make-module-set | |
14455 | make-module-ref | |
14456 | make-lexical-set | |
14457 | make-lexical-ref | |
14458 | make-primitive-ref | |
14459 | make-const | |
14460 | make-void) | |
14461 | ((top) | |
14462 | (top) | |
14463 | (top) | |
14464 | (top) | |
14465 | (top) | |
14466 | (top) | |
14467 | (top) | |
14468 | (top) | |
14469 | (top) | |
14470 | (top) | |
14471 | (top) | |
14472 | (top) | |
14473 | (top) | |
14474 | (top) | |
14475 | (top) | |
14476 | (top) | |
14477 | (top) | |
14478 | (top) | |
14479 | (top) | |
14480 | (top) | |
14481 | (top) | |
14482 | (top) | |
14483 | (top) | |
14484 | (top) | |
14485 | (top) | |
14486 | (top) | |
14487 | (top) | |
14488 | (top) | |
14489 | (top) | |
14490 | (top) | |
14491 | (top) | |
14492 | (top) | |
14493 | (top) | |
14494 | (top) | |
14495 | (top) | |
14496 | (top) | |
14497 | (top) | |
14498 | (top) | |
14499 | (top) | |
14500 | (top) | |
14501 | (top) | |
14502 | (top) | |
14503 | (top) | |
14504 | (top) | |
14505 | (top) | |
14506 | (top) | |
14507 | (top) | |
14508 | (top) | |
14509 | (top) | |
14510 | (top) | |
14511 | (top) | |
14512 | (top) | |
14513 | (top) | |
14514 | (top) | |
14515 | (top) | |
14516 | (top) | |
14517 | (top) | |
14518 | (top) | |
14519 | (top) | |
14520 | (top) | |
14521 | (top) | |
14522 | (top) | |
14523 | (top) | |
14524 | (top) | |
14525 | (top) | |
14526 | (top) | |
14527 | (top) | |
14528 | (top) | |
14529 | (top) | |
14530 | (top) | |
14531 | (top) | |
14532 | (top) | |
14533 | (top) | |
14534 | (top) | |
14535 | (top) | |
14536 | (top) | |
14537 | (top) | |
14538 | (top) | |
14539 | (top) | |
14540 | (top) | |
14541 | (top) | |
14542 | (top) | |
14543 | (top) | |
14544 | (top) | |
14545 | (top) | |
14546 | (top) | |
14547 | (top) | |
14548 | (top) | |
14549 | (top) | |
14550 | (top) | |
14551 | (top) | |
14552 | (top) | |
14553 | (top) | |
14554 | (top) | |
14555 | (top) | |
14556 | (top) | |
14557 | (top) | |
14558 | (top) | |
14559 | (top) | |
14560 | (top) | |
14561 | (top) | |
14562 | (top) | |
14563 | (top) | |
14564 | (top) | |
14565 | (top) | |
14566 | (top) | |
14567 | (top) | |
14568 | (top) | |
14569 | (top) | |
14570 | (top) | |
14571 | (top) | |
14572 | (top) | |
14573 | (top) | |
14574 | (top) | |
14575 | (top) | |
14576 | (top) | |
14577 | (top) | |
14578 | (top) | |
14579 | (top) | |
14580 | (top) | |
14581 | (top) | |
14582 | (top) | |
14583 | (top) | |
14584 | (top) | |
14585 | (top) | |
14586 | (top) | |
14587 | (top) | |
14588 | (top) | |
14589 | (top) | |
14590 | (top) | |
14591 | (top) | |
14592 | (top) | |
14593 | (top) | |
14594 | (top) | |
14595 | (top) | |
14596 | (top)) | |
14597 | ("i467" | |
14598 | "i465" | |
14599 | "i463" | |
14600 | "i461" | |
14601 | "i459" | |
14602 | "i457" | |
14603 | "i455" | |
14604 | "i453" | |
14605 | "i451" | |
14606 | "i449" | |
14607 | "i447" | |
14608 | "i445" | |
14609 | "i443" | |
14610 | "i441" | |
14611 | "i439" | |
14612 | "i437" | |
14613 | "i435" | |
14614 | "i433" | |
14615 | "i431" | |
14616 | "i429" | |
14617 | "i427" | |
14618 | "i425" | |
14619 | "i423" | |
14620 | "i421" | |
14621 | "i419" | |
14622 | "i417" | |
14623 | "i415" | |
14624 | "i413" | |
14625 | "i411" | |
14626 | "i409" | |
14627 | "i407" | |
14628 | "i405" | |
14629 | "i403" | |
14630 | "i401" | |
14631 | "i399" | |
14632 | "i398" | |
14633 | "i396" | |
14634 | "i393" | |
14635 | "i392" | |
14636 | "i391" | |
14637 | "i389" | |
14638 | "i388" | |
14639 | "i386" | |
14640 | "i384" | |
14641 | "i382" | |
14642 | "i380" | |
14643 | "i378" | |
14644 | "i376" | |
14645 | "i374" | |
14646 | "i372" | |
14647 | "i369" | |
14648 | "i367" | |
14649 | "i366" | |
14650 | "i364" | |
14651 | "i362" | |
14652 | "i360" | |
14653 | "i358" | |
14654 | "i357" | |
14655 | "i356" | |
14656 | "i355" | |
14657 | "i353" | |
14658 | "i352" | |
14659 | "i349" | |
14660 | "i347" | |
14661 | "i345" | |
14662 | "i343" | |
14663 | "i341" | |
14664 | "i339" | |
14665 | "i337" | |
14666 | "i336" | |
14667 | "i335" | |
14668 | "i333" | |
14669 | "i331" | |
14670 | "i330" | |
14671 | "i327" | |
14672 | "i326" | |
14673 | "i324" | |
14674 | "i322" | |
14675 | "i320" | |
14676 | "i318" | |
14677 | "i316" | |
14678 | "i314" | |
14679 | "i312" | |
14680 | "i310" | |
14681 | "i308" | |
14682 | "i305" | |
14683 | "i303" | |
14684 | "i301" | |
14685 | "i299" | |
14686 | "i297" | |
14687 | "i295" | |
14688 | "i293" | |
14689 | "i291" | |
14690 | "i289" | |
14691 | "i287" | |
14692 | "i285" | |
14693 | "i283" | |
14694 | "i281" | |
14695 | "i279" | |
14696 | "i277" | |
14697 | "i275" | |
14698 | "i273" | |
14699 | "i271" | |
14700 | "i269" | |
14701 | "i267" | |
14702 | "i265" | |
14703 | "i263" | |
14704 | "i261" | |
14705 | "i260" | |
14706 | "i257" | |
14707 | "i255" | |
14708 | "i254" | |
14709 | "i253" | |
14710 | "i252" | |
14711 | "i251" | |
14712 | "i249" | |
14713 | "i247" | |
14714 | "i245" | |
14715 | "i242" | |
14716 | "i240" | |
14717 | "i238" | |
14718 | "i236" | |
14719 | "i234" | |
14720 | "i232" | |
14721 | "i230" | |
14722 | "i228" | |
14723 | "i226" | |
14724 | "i224" | |
14725 | "i222" | |
14726 | "i220" | |
14727 | "i218" | |
14728 | "i216" | |
14729 | "i214" | |
14730 | "i212" | |
14731 | "i210" | |
14732 | "i208")) | |
14733 | #(ribcage | |
14734 | (define-structure | |
14735 | define-expansion-accessors | |
14736 | define-expansion-constructors) | |
14737 | ((top) (top) (top)) | |
14738 | ("i46" "i45" "i44"))) | |
14739 | (hygiene guile)) | |
14740 | #{mod 10563}#)))) | |
14741 | (values | |
14742 | (#{remodulate 10540}# | |
14743 | #{exp 10564}# | |
14744 | #{mod 10565}#) | |
14745 | #{r 10538}# | |
14746 | #{w 10539}# | |
14747 | (#{source-annotation 4306}# #{exp 10564}#) | |
14748 | #{mod 10565}#))) | |
14749 | #{tmp 10542}#) | |
14750 | (syntax-violation | |
14751 | #f | |
14752 | "source expression failed to match any pattern" | |
14753 | #{e 10537}#)))))) | |
14754 | (#{global-extend 4311}# | |
14755 | 'core | |
14756 | 'if | |
14757 | (lambda (#{e 10925}# | |
14758 | #{r 10926}# | |
14759 | #{w 10927}# | |
14760 | #{s 10928}# | |
14761 | #{mod 10929}#) | |
14762 | (let ((#{tmp 10931}# | |
14763 | ($sc-dispatch #{e 10925}# '(_ any any)))) | |
14764 | (if #{tmp 10931}# | |
14765 | (@apply | |
14766 | (lambda (#{test 10935}# #{then 10936}#) | |
14767 | (#{build-conditional 4281}# | |
14768 | #{s 10928}# | |
14769 | (#{expand 4345}# | |
14770 | #{test 10935}# | |
14771 | #{r 10926}# | |
14772 | #{w 10927}# | |
14773 | #{mod 10929}#) | |
14774 | (#{expand 4345}# | |
14775 | #{then 10936}# | |
14776 | #{r 10926}# | |
14777 | #{w 10927}# | |
14778 | #{mod 10929}#) | |
14779 | (make-struct/no-tail | |
14780 | (vector-ref %expanded-vtables 0) | |
14781 | #f))) | |
14782 | #{tmp 10931}#) | |
14783 | (let ((#{tmp 11176}# | |
14784 | ($sc-dispatch #{e 10925}# '(_ any any any)))) | |
14785 | (if #{tmp 11176}# | |
14786 | (@apply | |
14787 | (lambda (#{test 11180}# #{then 11181}# #{else 11182}#) | |
14788 | (#{build-conditional 4281}# | |
14789 | #{s 10928}# | |
14790 | (#{expand 4345}# | |
14791 | #{test 11180}# | |
14792 | #{r 10926}# | |
14793 | #{w 10927}# | |
14794 | #{mod 10929}#) | |
14795 | (#{expand 4345}# | |
14796 | #{then 11181}# | |
14797 | #{r 10926}# | |
14798 | #{w 10927}# | |
14799 | #{mod 10929}#) | |
14800 | (#{expand 4345}# | |
14801 | #{else 11182}# | |
14802 | #{r 10926}# | |
14803 | #{w 10927}# | |
14804 | #{mod 10929}#))) | |
14805 | #{tmp 11176}#) | |
14806 | (syntax-violation | |
14807 | #f | |
14808 | "source expression failed to match any pattern" | |
14809 | #{e 10925}#))))))) | |
14810 | (#{global-extend 4311}# | |
14811 | 'core | |
14812 | 'with-fluids | |
14813 | (lambda (#{e 11606}# | |
14814 | #{r 11607}# | |
14815 | #{w 11608}# | |
14816 | #{s 11609}# | |
14817 | #{mod 11610}#) | |
14818 | (let ((#{tmp 11612}# | |
14819 | ($sc-dispatch | |
14820 | #{e 11606}# | |
14821 | '(_ #(each (any any)) any . each-any)))) | |
14822 | (if #{tmp 11612}# | |
14823 | (@apply | |
14824 | (lambda (#{fluid 11616}# | |
14825 | #{val 11617}# | |
14826 | #{b 11618}# | |
14827 | #{b* 11619}#) | |
14828 | (#{build-dynlet 4282}# | |
14829 | #{s 11609}# | |
14830 | (map (lambda (#{x 11705}#) | |
14831 | (#{expand 4345}# | |
14832 | #{x 11705}# | |
14833 | #{r 11607}# | |
14834 | #{w 11608}# | |
14835 | #{mod 11610}#)) | |
14836 | #{fluid 11616}#) | |
14837 | (map (lambda (#{x 11780}#) | |
14838 | (#{expand 4345}# | |
14839 | #{x 11780}# | |
14840 | #{r 11607}# | |
14841 | #{w 11608}# | |
14842 | #{mod 11610}#)) | |
14843 | #{val 11617}#) | |
14844 | (#{expand-body 4349}# | |
14845 | (cons #{b 11618}# #{b* 11619}#) | |
14846 | (#{wrap 4338}# | |
14847 | (begin | |
14848 | (if (if (pair? #{e 11606}#) #{s 11609}# #f) | |
14849 | (set-source-properties! #{e 11606}# #{s 11609}#)) | |
14850 | #{e 11606}#) | |
14851 | #{w 11608}# | |
14852 | #{mod 11610}#) | |
14853 | #{r 11607}# | |
14854 | #{w 11608}# | |
14855 | #{mod 11610}#))) | |
14856 | #{tmp 11612}#) | |
14857 | (syntax-violation | |
14858 | #f | |
14859 | "source expression failed to match any pattern" | |
14860 | #{e 11606}#))))) | |
14861 | (module-define! | |
14862 | (current-module) | |
14863 | 'begin | |
14864 | (make-syntax-transformer 'begin 'begin '())) | |
14865 | (module-define! | |
14866 | (current-module) | |
14867 | 'define | |
14868 | (make-syntax-transformer 'define 'define '())) | |
14869 | (module-define! | |
14870 | (current-module) | |
14871 | 'define-syntax | |
14872 | (make-syntax-transformer | |
14873 | 'define-syntax | |
14874 | 'define-syntax | |
14875 | '())) | |
14876 | (module-define! | |
14877 | (current-module) | |
14878 | 'eval-when | |
14879 | (make-syntax-transformer | |
14880 | 'eval-when | |
14881 | 'eval-when | |
14882 | '())) | |
14883 | (#{global-extend 4311}# | |
14884 | 'core | |
14885 | 'syntax-case | |
14886 | (letrec* | |
14887 | ((#{convert-pattern 12154}# | |
14888 | (lambda (#{pattern 13777}# #{keys 13778}#) | |
14889 | (letrec* | |
14890 | ((#{cvt* 13779}# | |
14891 | (lambda (#{p* 14405}# #{n 14406}# #{ids 14407}#) | |
14892 | (if (not (pair? #{p* 14405}#)) | |
14893 | (#{cvt 13781}# | |
14894 | #{p* 14405}# | |
14895 | #{n 14406}# | |
14896 | #{ids 14407}#) | |
14897 | (call-with-values | |
14898 | (lambda () | |
14899 | (#{cvt* 13779}# | |
14900 | (cdr #{p* 14405}#) | |
14901 | #{n 14406}# | |
14902 | #{ids 14407}#)) | |
14903 | (lambda (#{y 14410}# #{ids 14411}#) | |
14904 | (call-with-values | |
14905 | (lambda () | |
14906 | (#{cvt 13781}# | |
14907 | (car #{p* 14405}#) | |
14908 | #{n 14406}# | |
14909 | #{ids 14411}#)) | |
14910 | (lambda (#{x 14414}# #{ids 14415}#) | |
14911 | (values | |
14912 | (cons #{x 14414}# #{y 14410}#) | |
14913 | #{ids 14415}#)))))))) | |
14914 | (#{v-reverse 13780}# | |
14915 | (lambda (#{x 14416}#) | |
14916 | (letrec* | |
14917 | ((#{loop 14417}# | |
14918 | (lambda (#{r 14494}# #{x 14495}#) | |
14919 | (if (not (pair? #{x 14495}#)) | |
14920 | (values #{r 14494}# #{x 14495}#) | |
14921 | (#{loop 14417}# | |
14922 | (cons (car #{x 14495}#) #{r 14494}#) | |
14923 | (cdr #{x 14495}#)))))) | |
14924 | (#{loop 14417}# '() #{x 14416}#)))) | |
14925 | (#{cvt 13781}# | |
14926 | (lambda (#{p 13784}# #{n 13785}# #{ids 13786}#) | |
14927 | (if (if (symbol? #{p 13784}#) | |
14928 | #t | |
14929 | (if (if (vector? #{p 13784}#) | |
14930 | (if (= (vector-length #{p 13784}#) 4) | |
14931 | (eq? (vector-ref #{p 13784}# 0) | |
14932 | 'syntax-object) | |
14933 | #f) | |
14934 | #f) | |
14935 | (symbol? (vector-ref #{p 13784}# 1)) | |
14936 | #f)) | |
14937 | (if (#{bound-id-member? 4337}# | |
14938 | #{p 13784}# | |
14939 | #{keys 13778}#) | |
14940 | (values | |
14941 | (vector 'free-id #{p 13784}#) | |
14942 | #{ids 13786}#) | |
14943 | (if (if (eq? (if (if (vector? #{p 13784}#) | |
14944 | (if (= (vector-length #{p 13784}#) | |
14945 | 4) | |
14946 | (eq? (vector-ref #{p 13784}# 0) | |
14947 | 'syntax-object) | |
14948 | #f) | |
14949 | #f) | |
14950 | (vector-ref #{p 13784}# 1) | |
14951 | #{p 13784}#) | |
14952 | (if (if (= (vector-length | |
14953 | '#(syntax-object | |
14954 | _ | |
14955 | ((top) | |
14956 | #(ribcage () () ()) | |
14957 | #(ribcage | |
14958 | #(p n ids) | |
14959 | #((top) (top) (top)) | |
14960 | #("i3747" | |
14961 | "i3748" | |
14962 | "i3749")) | |
14963 | #(ribcage | |
14964 | (cvt v-reverse cvt*) | |
14965 | ((top) (top) (top)) | |
14966 | ("i3720" | |
14967 | "i3718" | |
14968 | "i3716")) | |
14969 | #(ribcage | |
14970 | #(pattern keys) | |
14971 | #((top) (top)) | |
14972 | #("i3714" "i3715")) | |
14973 | #(ribcage | |
14974 | (gen-syntax-case | |
14975 | gen-clause | |
14976 | build-dispatch-call | |
14977 | convert-pattern) | |
14978 | ((top) | |
14979 | (top) | |
14980 | (top) | |
14981 | (top)) | |
14982 | ("i3710" | |
14983 | "i3708" | |
14984 | "i3706" | |
14985 | "i3704")) | |
14986 | #(ribcage | |
14987 | (lambda-var-list | |
14988 | gen-var | |
14989 | strip | |
14990 | expand-lambda-case | |
14991 | lambda*-formals | |
14992 | expand-simple-lambda | |
14993 | lambda-formals | |
14994 | ellipsis? | |
14995 | expand-void | |
14996 | eval-local-transformer | |
14997 | expand-local-syntax | |
14998 | expand-body | |
14999 | expand-macro | |
15000 | expand-application | |
15001 | expand-expr | |
15002 | expand | |
15003 | syntax-type | |
15004 | expand-when-list | |
15005 | expand-install-global | |
15006 | expand-top-sequence | |
15007 | expand-sequence | |
15008 | source-wrap | |
15009 | wrap | |
15010 | bound-id-member? | |
15011 | distinct-bound-ids? | |
15012 | valid-bound-ids? | |
15013 | bound-id=? | |
15014 | free-id=? | |
15015 | id-var-name | |
15016 | same-marks? | |
15017 | join-marks | |
15018 | join-wraps | |
15019 | smart-append | |
15020 | make-binding-wrap | |
15021 | extend-ribcage! | |
15022 | make-empty-ribcage | |
15023 | new-mark | |
15024 | anti-mark | |
15025 | the-anti-mark | |
15026 | top-marked? | |
15027 | top-wrap | |
15028 | empty-wrap | |
15029 | set-ribcage-labels! | |
15030 | set-ribcage-marks! | |
15031 | set-ribcage-symnames! | |
15032 | ribcage-labels | |
15033 | ribcage-marks | |
15034 | ribcage-symnames | |
15035 | ribcage? | |
15036 | make-ribcage | |
15037 | gen-labels | |
15038 | gen-label | |
15039 | make-rename | |
15040 | rename-marks | |
15041 | rename-new | |
15042 | rename-old | |
15043 | subst-rename? | |
15044 | wrap-subst | |
15045 | wrap-marks | |
15046 | make-wrap | |
15047 | id-sym-name&marks | |
15048 | id-sym-name | |
15049 | id? | |
15050 | nonsymbol-id? | |
15051 | global-extend | |
15052 | lookup | |
15053 | macros-only-env | |
15054 | extend-var-env | |
15055 | extend-env | |
15056 | null-env | |
15057 | binding-value | |
15058 | binding-type | |
15059 | make-binding | |
15060 | arg-check | |
15061 | source-annotation | |
15062 | no-source | |
15063 | set-syntax-object-module! | |
15064 | set-syntax-object-wrap! | |
15065 | set-syntax-object-expression! | |
15066 | syntax-object-module | |
15067 | syntax-object-wrap | |
15068 | syntax-object-expression | |
15069 | syntax-object? | |
15070 | make-syntax-object | |
15071 | build-lexical-var | |
15072 | build-letrec | |
15073 | build-named-let | |
15074 | build-let | |
15075 | build-sequence | |
15076 | build-data | |
15077 | build-primref | |
15078 | build-lambda-case | |
15079 | build-case-lambda | |
15080 | build-simple-lambda | |
15081 | build-global-definition | |
15082 | build-global-assignment | |
15083 | build-global-reference | |
15084 | analyze-variable | |
15085 | build-lexical-assignment | |
15086 | build-lexical-reference | |
15087 | build-dynlet | |
15088 | build-conditional | |
15089 | build-application | |
15090 | build-void | |
15091 | maybe-name-value! | |
15092 | decorate-source | |
15093 | get-global-definition-hook | |
15094 | put-global-definition-hook | |
15095 | gensym-hook | |
15096 | local-eval-hook | |
15097 | top-level-eval-hook | |
15098 | fx< | |
15099 | fx= | |
15100 | fx- | |
15101 | fx+ | |
15102 | set-lambda-meta! | |
15103 | lambda-meta | |
15104 | lambda? | |
15105 | make-dynlet | |
15106 | make-letrec | |
15107 | make-let | |
15108 | make-lambda-case | |
15109 | make-lambda | |
15110 | make-sequence | |
15111 | make-application | |
15112 | make-conditional | |
15113 | make-toplevel-define | |
15114 | make-toplevel-set | |
15115 | make-toplevel-ref | |
15116 | make-module-set | |
15117 | make-module-ref | |
15118 | make-lexical-set | |
15119 | make-lexical-ref | |
15120 | make-primitive-ref | |
15121 | make-const | |
15122 | make-void) | |
15123 | ((top) | |
15124 | (top) | |
15125 | (top) | |
15126 | (top) | |
15127 | (top) | |
15128 | (top) | |
15129 | (top) | |
15130 | (top) | |
15131 | (top) | |
15132 | (top) | |
15133 | (top) | |
15134 | (top) | |
15135 | (top) | |
15136 | (top) | |
15137 | (top) | |
15138 | (top) | |
15139 | (top) | |
15140 | (top) | |
15141 | (top) | |
15142 | (top) | |
15143 | (top) | |
15144 | (top) | |
15145 | (top) | |
15146 | (top) | |
15147 | (top) | |
15148 | (top) | |
15149 | (top) | |
15150 | (top) | |
15151 | (top) | |
15152 | (top) | |
15153 | (top) | |
15154 | (top) | |
15155 | (top) | |
15156 | (top) | |
15157 | (top) | |
15158 | (top) | |
15159 | (top) | |
15160 | (top) | |
15161 | (top) | |
15162 | (top) | |
15163 | (top) | |
15164 | (top) | |
15165 | (top) | |
15166 | (top) | |
15167 | (top) | |
15168 | (top) | |
15169 | (top) | |
15170 | (top) | |
15171 | (top) | |
15172 | (top) | |
15173 | (top) | |
15174 | (top) | |
15175 | (top) | |
15176 | (top) | |
15177 | (top) | |
15178 | (top) | |
15179 | (top) | |
15180 | (top) | |
15181 | (top) | |
15182 | (top) | |
15183 | (top) | |
15184 | (top) | |
15185 | (top) | |
15186 | (top) | |
15187 | (top) | |
15188 | (top) | |
15189 | (top) | |
15190 | (top) | |
15191 | (top) | |
15192 | (top) | |
15193 | (top) | |
15194 | (top) | |
15195 | (top) | |
15196 | (top) | |
15197 | (top) | |
15198 | (top) | |
15199 | (top) | |
15200 | (top) | |
15201 | (top) | |
15202 | (top) | |
15203 | (top) | |
15204 | (top) | |
15205 | (top) | |
15206 | (top) | |
15207 | (top) | |
15208 | (top) | |
15209 | (top) | |
15210 | (top) | |
15211 | (top) | |
15212 | (top) | |
15213 | (top) | |
15214 | (top) | |
15215 | (top) | |
15216 | (top) | |
15217 | (top) | |
15218 | (top) | |
15219 | (top) | |
15220 | (top) | |
15221 | (top) | |
15222 | (top) | |
15223 | (top) | |
15224 | (top) | |
15225 | (top) | |
15226 | (top) | |
15227 | (top) | |
15228 | (top) | |
15229 | (top) | |
15230 | (top) | |
15231 | (top) | |
15232 | (top) | |
15233 | (top) | |
15234 | (top) | |
15235 | (top) | |
15236 | (top) | |
15237 | (top) | |
15238 | (top) | |
15239 | (top) | |
15240 | (top) | |
15241 | (top) | |
15242 | (top) | |
15243 | (top) | |
15244 | (top) | |
15245 | (top) | |
15246 | (top) | |
15247 | (top) | |
15248 | (top) | |
15249 | (top) | |
15250 | (top) | |
15251 | (top) | |
15252 | (top) | |
15253 | (top) | |
15254 | (top) | |
15255 | (top) | |
15256 | (top) | |
15257 | (top) | |
15258 | (top)) | |
15259 | ("i467" | |
15260 | "i465" | |
15261 | "i463" | |
15262 | "i461" | |
15263 | "i459" | |
15264 | "i457" | |
15265 | "i455" | |
15266 | "i453" | |
15267 | "i451" | |
15268 | "i449" | |
15269 | "i447" | |
15270 | "i445" | |
15271 | "i443" | |
15272 | "i441" | |
15273 | "i439" | |
15274 | "i437" | |
15275 | "i435" | |
15276 | "i433" | |
15277 | "i431" | |
15278 | "i429" | |
15279 | "i427" | |
15280 | "i425" | |
15281 | "i423" | |
15282 | "i421" | |
15283 | "i419" | |
15284 | "i417" | |
15285 | "i415" | |
15286 | "i413" | |
15287 | "i411" | |
15288 | "i409" | |
15289 | "i407" | |
15290 | "i405" | |
15291 | "i403" | |
15292 | "i401" | |
15293 | "i399" | |
15294 | "i398" | |
15295 | "i396" | |
15296 | "i393" | |
15297 | "i392" | |
15298 | "i391" | |
15299 | "i389" | |
15300 | "i388" | |
15301 | "i386" | |
15302 | "i384" | |
15303 | "i382" | |
15304 | "i380" | |
15305 | "i378" | |
15306 | "i376" | |
15307 | "i374" | |
15308 | "i372" | |
15309 | "i369" | |
15310 | "i367" | |
15311 | "i366" | |
15312 | "i364" | |
15313 | "i362" | |
15314 | "i360" | |
15315 | "i358" | |
15316 | "i357" | |
15317 | "i356" | |
15318 | "i355" | |
15319 | "i353" | |
15320 | "i352" | |
15321 | "i349" | |
15322 | "i347" | |
15323 | "i345" | |
15324 | "i343" | |
15325 | "i341" | |
15326 | "i339" | |
15327 | "i337" | |
15328 | "i336" | |
15329 | "i335" | |
15330 | "i333" | |
15331 | "i331" | |
15332 | "i330" | |
15333 | "i327" | |
15334 | "i326" | |
15335 | "i324" | |
15336 | "i322" | |
15337 | "i320" | |
15338 | "i318" | |
15339 | "i316" | |
15340 | "i314" | |
15341 | "i312" | |
15342 | "i310" | |
15343 | "i308" | |
15344 | "i305" | |
15345 | "i303" | |
15346 | "i301" | |
15347 | "i299" | |
15348 | "i297" | |
15349 | "i295" | |
15350 | "i293" | |
15351 | "i291" | |
15352 | "i289" | |
15353 | "i287" | |
15354 | "i285" | |
15355 | "i283" | |
15356 | "i281" | |
15357 | "i279" | |
15358 | "i277" | |
15359 | "i275" | |
15360 | "i273" | |
15361 | "i271" | |
15362 | "i269" | |
15363 | "i267" | |
15364 | "i265" | |
15365 | "i263" | |
15366 | "i261" | |
15367 | "i260" | |
15368 | "i257" | |
15369 | "i255" | |
15370 | "i254" | |
15371 | "i253" | |
15372 | "i252" | |
15373 | "i251" | |
15374 | "i249" | |
15375 | "i247" | |
15376 | "i245" | |
15377 | "i242" | |
15378 | "i240" | |
15379 | "i238" | |
15380 | "i236" | |
15381 | "i234" | |
15382 | "i232" | |
15383 | "i230" | |
15384 | "i228" | |
15385 | "i226" | |
15386 | "i224" | |
15387 | "i222" | |
15388 | "i220" | |
15389 | "i218" | |
15390 | "i216" | |
15391 | "i214" | |
15392 | "i212" | |
15393 | "i210" | |
15394 | "i208")) | |
15395 | #(ribcage | |
15396 | (define-structure | |
15397 | define-expansion-accessors | |
15398 | define-expansion-constructors) | |
15399 | ((top) (top) (top)) | |
15400 | ("i46" "i45" "i44"))) | |
15401 | (hygiene guile))) | |
15402 | 4) | |
15403 | #t | |
15404 | #f) | |
15405 | '_ | |
15406 | '#(syntax-object | |
15407 | _ | |
15408 | ((top) | |
15409 | #(ribcage () () ()) | |
15410 | #(ribcage | |
15411 | #(p n ids) | |
15412 | #((top) (top) (top)) | |
15413 | #("i3747" "i3748" "i3749")) | |
15414 | #(ribcage | |
15415 | (cvt v-reverse cvt*) | |
15416 | ((top) (top) (top)) | |
15417 | ("i3720" "i3718" "i3716")) | |
15418 | #(ribcage | |
15419 | #(pattern keys) | |
15420 | #((top) (top)) | |
15421 | #("i3714" "i3715")) | |
15422 | #(ribcage | |
15423 | (gen-syntax-case | |
15424 | gen-clause | |
15425 | build-dispatch-call | |
15426 | convert-pattern) | |
15427 | ((top) (top) (top) (top)) | |
15428 | ("i3710" "i3708" "i3706" "i3704")) | |
15429 | #(ribcage | |
15430 | (lambda-var-list | |
15431 | gen-var | |
15432 | strip | |
15433 | expand-lambda-case | |
15434 | lambda*-formals | |
15435 | expand-simple-lambda | |
15436 | lambda-formals | |
15437 | ellipsis? | |
15438 | expand-void | |
15439 | eval-local-transformer | |
15440 | expand-local-syntax | |
15441 | expand-body | |
15442 | expand-macro | |
15443 | expand-application | |
15444 | expand-expr | |
15445 | expand | |
15446 | syntax-type | |
15447 | expand-when-list | |
15448 | expand-install-global | |
15449 | expand-top-sequence | |
15450 | expand-sequence | |
15451 | source-wrap | |
15452 | wrap | |
15453 | bound-id-member? | |
15454 | distinct-bound-ids? | |
15455 | valid-bound-ids? | |
15456 | bound-id=? | |
15457 | free-id=? | |
15458 | id-var-name | |
15459 | same-marks? | |
15460 | join-marks | |
15461 | join-wraps | |
15462 | smart-append | |
15463 | make-binding-wrap | |
15464 | extend-ribcage! | |
15465 | make-empty-ribcage | |
15466 | new-mark | |
15467 | anti-mark | |
15468 | the-anti-mark | |
15469 | top-marked? | |
15470 | top-wrap | |
15471 | empty-wrap | |
15472 | set-ribcage-labels! | |
15473 | set-ribcage-marks! | |
15474 | set-ribcage-symnames! | |
15475 | ribcage-labels | |
15476 | ribcage-marks | |
15477 | ribcage-symnames | |
15478 | ribcage? | |
15479 | make-ribcage | |
15480 | gen-labels | |
15481 | gen-label | |
15482 | make-rename | |
15483 | rename-marks | |
15484 | rename-new | |
15485 | rename-old | |
15486 | subst-rename? | |
15487 | wrap-subst | |
15488 | wrap-marks | |
15489 | make-wrap | |
15490 | id-sym-name&marks | |
15491 | id-sym-name | |
15492 | id? | |
15493 | nonsymbol-id? | |
15494 | global-extend | |
15495 | lookup | |
15496 | macros-only-env | |
15497 | extend-var-env | |
15498 | extend-env | |
15499 | null-env | |
15500 | binding-value | |
15501 | binding-type | |
15502 | make-binding | |
15503 | arg-check | |
15504 | source-annotation | |
15505 | no-source | |
15506 | set-syntax-object-module! | |
15507 | set-syntax-object-wrap! | |
15508 | set-syntax-object-expression! | |
15509 | syntax-object-module | |
15510 | syntax-object-wrap | |
15511 | syntax-object-expression | |
15512 | syntax-object? | |
15513 | make-syntax-object | |
15514 | build-lexical-var | |
15515 | build-letrec | |
15516 | build-named-let | |
15517 | build-let | |
15518 | build-sequence | |
15519 | build-data | |
15520 | build-primref | |
15521 | build-lambda-case | |
15522 | build-case-lambda | |
15523 | build-simple-lambda | |
15524 | build-global-definition | |
15525 | build-global-assignment | |
15526 | build-global-reference | |
15527 | analyze-variable | |
15528 | build-lexical-assignment | |
15529 | build-lexical-reference | |
15530 | build-dynlet | |
15531 | build-conditional | |
15532 | build-application | |
15533 | build-void | |
15534 | maybe-name-value! | |
15535 | decorate-source | |
15536 | get-global-definition-hook | |
15537 | put-global-definition-hook | |
15538 | gensym-hook | |
15539 | local-eval-hook | |
15540 | top-level-eval-hook | |
15541 | fx< | |
15542 | fx= | |
15543 | fx- | |
15544 | fx+ | |
15545 | set-lambda-meta! | |
15546 | lambda-meta | |
15547 | lambda? | |
15548 | make-dynlet | |
15549 | make-letrec | |
15550 | make-let | |
15551 | make-lambda-case | |
15552 | make-lambda | |
15553 | make-sequence | |
15554 | make-application | |
15555 | make-conditional | |
15556 | make-toplevel-define | |
15557 | make-toplevel-set | |
15558 | make-toplevel-ref | |
15559 | make-module-set | |
15560 | make-module-ref | |
15561 | make-lexical-set | |
15562 | make-lexical-ref | |
15563 | make-primitive-ref | |
15564 | make-const | |
15565 | make-void) | |
15566 | ((top) | |
15567 | (top) | |
15568 | (top) | |
15569 | (top) | |
15570 | (top) | |
15571 | (top) | |
15572 | (top) | |
15573 | (top) | |
15574 | (top) | |
15575 | (top) | |
15576 | (top) | |
15577 | (top) | |
15578 | (top) | |
15579 | (top) | |
15580 | (top) | |
15581 | (top) | |
15582 | (top) | |
15583 | (top) | |
15584 | (top) | |
15585 | (top) | |
15586 | (top) | |
15587 | (top) | |
15588 | (top) | |
15589 | (top) | |
15590 | (top) | |
15591 | (top) | |
15592 | (top) | |
15593 | (top) | |
15594 | (top) | |
15595 | (top) | |
15596 | (top) | |
15597 | (top) | |
15598 | (top) | |
15599 | (top) | |
15600 | (top) | |
15601 | (top) | |
15602 | (top) | |
15603 | (top) | |
15604 | (top) | |
15605 | (top) | |
15606 | (top) | |
15607 | (top) | |
15608 | (top) | |
15609 | (top) | |
15610 | (top) | |
15611 | (top) | |
15612 | (top) | |
15613 | (top) | |
15614 | (top) | |
15615 | (top) | |
15616 | (top) | |
15617 | (top) | |
15618 | (top) | |
15619 | (top) | |
15620 | (top) | |
15621 | (top) | |
15622 | (top) | |
15623 | (top) | |
15624 | (top) | |
15625 | (top) | |
15626 | (top) | |
15627 | (top) | |
15628 | (top) | |
15629 | (top) | |
15630 | (top) | |
15631 | (top) | |
15632 | (top) | |
15633 | (top) | |
15634 | (top) | |
15635 | (top) | |
15636 | (top) | |
15637 | (top) | |
15638 | (top) | |
15639 | (top) | |
15640 | (top) | |
15641 | (top) | |
15642 | (top) | |
15643 | (top) | |
15644 | (top) | |
15645 | (top) | |
15646 | (top) | |
15647 | (top) | |
15648 | (top) | |
15649 | (top) | |
15650 | (top) | |
15651 | (top) | |
15652 | (top) | |
15653 | (top) | |
15654 | (top) | |
15655 | (top) | |
15656 | (top) | |
15657 | (top) | |
15658 | (top) | |
15659 | (top) | |
15660 | (top) | |
15661 | (top) | |
15662 | (top) | |
15663 | (top) | |
15664 | (top) | |
15665 | (top) | |
15666 | (top) | |
15667 | (top) | |
15668 | (top) | |
15669 | (top) | |
15670 | (top) | |
15671 | (top) | |
15672 | (top) | |
15673 | (top) | |
15674 | (top) | |
15675 | (top) | |
15676 | (top) | |
15677 | (top) | |
15678 | (top) | |
15679 | (top) | |
15680 | (top) | |
15681 | (top) | |
15682 | (top) | |
15683 | (top) | |
15684 | (top) | |
15685 | (top) | |
15686 | (top) | |
15687 | (top) | |
15688 | (top) | |
15689 | (top) | |
15690 | (top) | |
15691 | (top) | |
15692 | (top) | |
15693 | (top) | |
15694 | (top) | |
15695 | (top) | |
15696 | (top) | |
15697 | (top) | |
15698 | (top) | |
15699 | (top) | |
15700 | (top) | |
15701 | (top)) | |
15702 | ("i467" | |
15703 | "i465" | |
15704 | "i463" | |
15705 | "i461" | |
15706 | "i459" | |
15707 | "i457" | |
15708 | "i455" | |
15709 | "i453" | |
15710 | "i451" | |
15711 | "i449" | |
15712 | "i447" | |
15713 | "i445" | |
15714 | "i443" | |
15715 | "i441" | |
15716 | "i439" | |
15717 | "i437" | |
15718 | "i435" | |
15719 | "i433" | |
15720 | "i431" | |
15721 | "i429" | |
15722 | "i427" | |
15723 | "i425" | |
15724 | "i423" | |
15725 | "i421" | |
15726 | "i419" | |
15727 | "i417" | |
15728 | "i415" | |
15729 | "i413" | |
15730 | "i411" | |
15731 | "i409" | |
15732 | "i407" | |
15733 | "i405" | |
15734 | "i403" | |
15735 | "i401" | |
15736 | "i399" | |
15737 | "i398" | |
15738 | "i396" | |
15739 | "i393" | |
15740 | "i392" | |
15741 | "i391" | |
15742 | "i389" | |
15743 | "i388" | |
15744 | "i386" | |
15745 | "i384" | |
15746 | "i382" | |
15747 | "i380" | |
15748 | "i378" | |
15749 | "i376" | |
15750 | "i374" | |
15751 | "i372" | |
15752 | "i369" | |
15753 | "i367" | |
15754 | "i366" | |
15755 | "i364" | |
15756 | "i362" | |
15757 | "i360" | |
15758 | "i358" | |
15759 | "i357" | |
15760 | "i356" | |
15761 | "i355" | |
15762 | "i353" | |
15763 | "i352" | |
15764 | "i349" | |
15765 | "i347" | |
15766 | "i345" | |
15767 | "i343" | |
15768 | "i341" | |
15769 | "i339" | |
15770 | "i337" | |
15771 | "i336" | |
15772 | "i335" | |
15773 | "i333" | |
15774 | "i331" | |
15775 | "i330" | |
15776 | "i327" | |
15777 | "i326" | |
15778 | "i324" | |
15779 | "i322" | |
15780 | "i320" | |
15781 | "i318" | |
15782 | "i316" | |
15783 | "i314" | |
15784 | "i312" | |
15785 | "i310" | |
15786 | "i308" | |
15787 | "i305" | |
15788 | "i303" | |
15789 | "i301" | |
15790 | "i299" | |
15791 | "i297" | |
15792 | "i295" | |
15793 | "i293" | |
15794 | "i291" | |
15795 | "i289" | |
15796 | "i287" | |
15797 | "i285" | |
15798 | "i283" | |
15799 | "i281" | |
15800 | "i279" | |
15801 | "i277" | |
15802 | "i275" | |
15803 | "i273" | |
15804 | "i271" | |
15805 | "i269" | |
15806 | "i267" | |
15807 | "i265" | |
15808 | "i263" | |
15809 | "i261" | |
15810 | "i260" | |
15811 | "i257" | |
15812 | "i255" | |
15813 | "i254" | |
15814 | "i253" | |
15815 | "i252" | |
15816 | "i251" | |
15817 | "i249" | |
15818 | "i247" | |
15819 | "i245" | |
15820 | "i242" | |
15821 | "i240" | |
15822 | "i238" | |
15823 | "i236" | |
15824 | "i234" | |
15825 | "i232" | |
15826 | "i230" | |
15827 | "i228" | |
15828 | "i226" | |
15829 | "i224" | |
15830 | "i222" | |
15831 | "i220" | |
15832 | "i218" | |
15833 | "i216" | |
15834 | "i214" | |
15835 | "i212" | |
15836 | "i210" | |
15837 | "i208")) | |
15838 | #(ribcage | |
15839 | (define-structure | |
15840 | define-expansion-accessors | |
15841 | define-expansion-constructors) | |
15842 | ((top) (top) (top)) | |
15843 | ("i46" "i45" "i44"))) | |
15844 | (hygiene guile)))) | |
15845 | (eq? (#{id-var-name 4332}# #{p 13784}# '(())) | |
15846 | (#{id-var-name 4332}# | |
15847 | '#(syntax-object | |
15848 | _ | |
15849 | ((top) | |
15850 | #(ribcage () () ()) | |
15851 | #(ribcage | |
15852 | #(p n ids) | |
15853 | #((top) (top) (top)) | |
15854 | #("i3747" "i3748" "i3749")) | |
15855 | #(ribcage | |
15856 | (cvt v-reverse cvt*) | |
15857 | ((top) (top) (top)) | |
15858 | ("i3720" "i3718" "i3716")) | |
15859 | #(ribcage | |
15860 | #(pattern keys) | |
15861 | #((top) (top)) | |
15862 | #("i3714" "i3715")) | |
15863 | #(ribcage | |
15864 | (gen-syntax-case | |
15865 | gen-clause | |
15866 | build-dispatch-call | |
15867 | convert-pattern) | |
15868 | ((top) (top) (top) (top)) | |
15869 | ("i3710" "i3708" "i3706" "i3704")) | |
15870 | #(ribcage | |
15871 | (lambda-var-list | |
15872 | gen-var | |
15873 | strip | |
15874 | expand-lambda-case | |
15875 | lambda*-formals | |
15876 | expand-simple-lambda | |
15877 | lambda-formals | |
15878 | ellipsis? | |
15879 | expand-void | |
15880 | eval-local-transformer | |
15881 | expand-local-syntax | |
15882 | expand-body | |
15883 | expand-macro | |
15884 | expand-application | |
15885 | expand-expr | |
15886 | expand | |
15887 | syntax-type | |
15888 | expand-when-list | |
15889 | expand-install-global | |
15890 | expand-top-sequence | |
15891 | expand-sequence | |
15892 | source-wrap | |
15893 | wrap | |
15894 | bound-id-member? | |
15895 | distinct-bound-ids? | |
15896 | valid-bound-ids? | |
15897 | bound-id=? | |
15898 | free-id=? | |
15899 | id-var-name | |
15900 | same-marks? | |
15901 | join-marks | |
15902 | join-wraps | |
15903 | smart-append | |
15904 | make-binding-wrap | |
15905 | extend-ribcage! | |
15906 | make-empty-ribcage | |
15907 | new-mark | |
15908 | anti-mark | |
15909 | the-anti-mark | |
15910 | top-marked? | |
15911 | top-wrap | |
15912 | empty-wrap | |
15913 | set-ribcage-labels! | |
15914 | set-ribcage-marks! | |
15915 | set-ribcage-symnames! | |
15916 | ribcage-labels | |
15917 | ribcage-marks | |
15918 | ribcage-symnames | |
15919 | ribcage? | |
15920 | make-ribcage | |
15921 | gen-labels | |
15922 | gen-label | |
15923 | make-rename | |
15924 | rename-marks | |
15925 | rename-new | |
15926 | rename-old | |
15927 | subst-rename? | |
15928 | wrap-subst | |
15929 | wrap-marks | |
15930 | make-wrap | |
15931 | id-sym-name&marks | |
15932 | id-sym-name | |
15933 | id? | |
15934 | nonsymbol-id? | |
15935 | global-extend | |
15936 | lookup | |
15937 | macros-only-env | |
15938 | extend-var-env | |
15939 | extend-env | |
15940 | null-env | |
15941 | binding-value | |
15942 | binding-type | |
15943 | make-binding | |
15944 | arg-check | |
15945 | source-annotation | |
15946 | no-source | |
15947 | set-syntax-object-module! | |
15948 | set-syntax-object-wrap! | |
15949 | set-syntax-object-expression! | |
15950 | syntax-object-module | |
15951 | syntax-object-wrap | |
15952 | syntax-object-expression | |
15953 | syntax-object? | |
15954 | make-syntax-object | |
15955 | build-lexical-var | |
15956 | build-letrec | |
15957 | build-named-let | |
15958 | build-let | |
15959 | build-sequence | |
15960 | build-data | |
15961 | build-primref | |
15962 | build-lambda-case | |
15963 | build-case-lambda | |
15964 | build-simple-lambda | |
15965 | build-global-definition | |
15966 | build-global-assignment | |
15967 | build-global-reference | |
15968 | analyze-variable | |
15969 | build-lexical-assignment | |
15970 | build-lexical-reference | |
15971 | build-dynlet | |
15972 | build-conditional | |
15973 | build-application | |
15974 | build-void | |
15975 | maybe-name-value! | |
15976 | decorate-source | |
15977 | get-global-definition-hook | |
15978 | put-global-definition-hook | |
15979 | gensym-hook | |
15980 | local-eval-hook | |
15981 | top-level-eval-hook | |
15982 | fx< | |
15983 | fx= | |
15984 | fx- | |
15985 | fx+ | |
15986 | set-lambda-meta! | |
15987 | lambda-meta | |
15988 | lambda? | |
15989 | make-dynlet | |
15990 | make-letrec | |
15991 | make-let | |
15992 | make-lambda-case | |
15993 | make-lambda | |
15994 | make-sequence | |
15995 | make-application | |
15996 | make-conditional | |
15997 | make-toplevel-define | |
15998 | make-toplevel-set | |
15999 | make-toplevel-ref | |
16000 | make-module-set | |
16001 | make-module-ref | |
16002 | make-lexical-set | |
16003 | make-lexical-ref | |
16004 | make-primitive-ref | |
16005 | make-const | |
16006 | make-void) | |
16007 | ((top) | |
16008 | (top) | |
16009 | (top) | |
16010 | (top) | |
16011 | (top) | |
16012 | (top) | |
16013 | (top) | |
16014 | (top) | |
16015 | (top) | |
16016 | (top) | |
16017 | (top) | |
16018 | (top) | |
16019 | (top) | |
16020 | (top) | |
16021 | (top) | |
16022 | (top) | |
16023 | (top) | |
16024 | (top) | |
16025 | (top) | |
16026 | (top) | |
16027 | (top) | |
16028 | (top) | |
16029 | (top) | |
16030 | (top) | |
16031 | (top) | |
16032 | (top) | |
16033 | (top) | |
16034 | (top) | |
16035 | (top) | |
16036 | (top) | |
16037 | (top) | |
16038 | (top) | |
16039 | (top) | |
16040 | (top) | |
16041 | (top) | |
16042 | (top) | |
16043 | (top) | |
16044 | (top) | |
16045 | (top) | |
16046 | (top) | |
16047 | (top) | |
16048 | (top) | |
16049 | (top) | |
16050 | (top) | |
16051 | (top) | |
16052 | (top) | |
16053 | (top) | |
16054 | (top) | |
16055 | (top) | |
16056 | (top) | |
16057 | (top) | |
16058 | (top) | |
16059 | (top) | |
16060 | (top) | |
16061 | (top) | |
16062 | (top) | |
16063 | (top) | |
16064 | (top) | |
16065 | (top) | |
16066 | (top) | |
16067 | (top) | |
16068 | (top) | |
16069 | (top) | |
16070 | (top) | |
16071 | (top) | |
16072 | (top) | |
16073 | (top) | |
16074 | (top) | |
16075 | (top) | |
16076 | (top) | |
16077 | (top) | |
16078 | (top) | |
16079 | (top) | |
16080 | (top) | |
16081 | (top) | |
16082 | (top) | |
16083 | (top) | |
16084 | (top) | |
16085 | (top) | |
16086 | (top) | |
16087 | (top) | |
16088 | (top) | |
16089 | (top) | |
16090 | (top) | |
16091 | (top) | |
16092 | (top) | |
16093 | (top) | |
16094 | (top) | |
16095 | (top) | |
16096 | (top) | |
16097 | (top) | |
16098 | (top) | |
16099 | (top) | |
16100 | (top) | |
16101 | (top) | |
16102 | (top) | |
16103 | (top) | |
16104 | (top) | |
16105 | (top) | |
16106 | (top) | |
16107 | (top) | |
16108 | (top) | |
16109 | (top) | |
16110 | (top) | |
16111 | (top) | |
16112 | (top) | |
16113 | (top) | |
16114 | (top) | |
16115 | (top) | |
16116 | (top) | |
16117 | (top) | |
16118 | (top) | |
16119 | (top) | |
16120 | (top) | |
16121 | (top) | |
16122 | (top) | |
16123 | (top) | |
16124 | (top) | |
16125 | (top) | |
16126 | (top) | |
16127 | (top) | |
16128 | (top) | |
16129 | (top) | |
16130 | (top) | |
16131 | (top) | |
16132 | (top) | |
16133 | (top) | |
16134 | (top) | |
16135 | (top) | |
16136 | (top) | |
16137 | (top) | |
16138 | (top) | |
16139 | (top) | |
16140 | (top) | |
16141 | (top) | |
16142 | (top)) | |
16143 | ("i467" | |
16144 | "i465" | |
16145 | "i463" | |
16146 | "i461" | |
16147 | "i459" | |
16148 | "i457" | |
16149 | "i455" | |
16150 | "i453" | |
16151 | "i451" | |
16152 | "i449" | |
16153 | "i447" | |
16154 | "i445" | |
16155 | "i443" | |
16156 | "i441" | |
16157 | "i439" | |
16158 | "i437" | |
16159 | "i435" | |
16160 | "i433" | |
16161 | "i431" | |
16162 | "i429" | |
16163 | "i427" | |
16164 | "i425" | |
16165 | "i423" | |
16166 | "i421" | |
16167 | "i419" | |
16168 | "i417" | |
16169 | "i415" | |
16170 | "i413" | |
16171 | "i411" | |
16172 | "i409" | |
16173 | "i407" | |
16174 | "i405" | |
16175 | "i403" | |
16176 | "i401" | |
16177 | "i399" | |
16178 | "i398" | |
16179 | "i396" | |
16180 | "i393" | |
16181 | "i392" | |
16182 | "i391" | |
16183 | "i389" | |
16184 | "i388" | |
16185 | "i386" | |
16186 | "i384" | |
16187 | "i382" | |
16188 | "i380" | |
16189 | "i378" | |
16190 | "i376" | |
16191 | "i374" | |
16192 | "i372" | |
16193 | "i369" | |
16194 | "i367" | |
16195 | "i366" | |
16196 | "i364" | |
16197 | "i362" | |
16198 | "i360" | |
16199 | "i358" | |
16200 | "i357" | |
16201 | "i356" | |
16202 | "i355" | |
16203 | "i353" | |
16204 | "i352" | |
16205 | "i349" | |
16206 | "i347" | |
16207 | "i345" | |
16208 | "i343" | |
16209 | "i341" | |
16210 | "i339" | |
16211 | "i337" | |
16212 | "i336" | |
16213 | "i335" | |
16214 | "i333" | |
16215 | "i331" | |
16216 | "i330" | |
16217 | "i327" | |
16218 | "i326" | |
16219 | "i324" | |
16220 | "i322" | |
16221 | "i320" | |
16222 | "i318" | |
16223 | "i316" | |
16224 | "i314" | |
16225 | "i312" | |
16226 | "i310" | |
16227 | "i308" | |
16228 | "i305" | |
16229 | "i303" | |
16230 | "i301" | |
16231 | "i299" | |
16232 | "i297" | |
16233 | "i295" | |
16234 | "i293" | |
16235 | "i291" | |
16236 | "i289" | |
16237 | "i287" | |
16238 | "i285" | |
16239 | "i283" | |
16240 | "i281" | |
16241 | "i279" | |
16242 | "i277" | |
16243 | "i275" | |
16244 | "i273" | |
16245 | "i271" | |
16246 | "i269" | |
16247 | "i267" | |
16248 | "i265" | |
16249 | "i263" | |
16250 | "i261" | |
16251 | "i260" | |
16252 | "i257" | |
16253 | "i255" | |
16254 | "i254" | |
16255 | "i253" | |
16256 | "i252" | |
16257 | "i251" | |
16258 | "i249" | |
16259 | "i247" | |
16260 | "i245" | |
16261 | "i242" | |
16262 | "i240" | |
16263 | "i238" | |
16264 | "i236" | |
16265 | "i234" | |
16266 | "i232" | |
16267 | "i230" | |
16268 | "i228" | |
16269 | "i226" | |
16270 | "i224" | |
16271 | "i222" | |
16272 | "i220" | |
16273 | "i218" | |
16274 | "i216" | |
16275 | "i214" | |
16276 | "i212" | |
16277 | "i210" | |
16278 | "i208")) | |
16279 | #(ribcage | |
16280 | (define-structure | |
16281 | define-expansion-accessors | |
16282 | define-expansion-constructors) | |
16283 | ((top) (top) (top)) | |
16284 | ("i46" "i45" "i44"))) | |
16285 | (hygiene guile)) | |
16286 | '(()))) | |
16287 | #f) | |
16288 | (values '_ #{ids 13786}#) | |
16289 | (values | |
16290 | 'any | |
16291 | (cons (cons #{p 13784}# #{n 13785}#) | |
16292 | #{ids 13786}#)))) | |
16293 | (let ((#{tmp 14108}# | |
16294 | ($sc-dispatch #{p 13784}# '(any any)))) | |
16295 | (if (if #{tmp 14108}# | |
16296 | (@apply | |
16297 | (lambda (#{x 14112}# #{dots 14113}#) | |
16298 | (if (if (if (vector? #{dots 14113}#) | |
16299 | (if (= (vector-length | |
16300 | #{dots 14113}#) | |
16301 | 4) | |
16302 | (eq? (vector-ref | |
16303 | #{dots 14113}# | |
16304 | 0) | |
16305 | 'syntax-object) | |
16306 | #f) | |
16307 | #f) | |
16308 | (symbol? (vector-ref #{dots 14113}# 1)) | |
16309 | #f) | |
16310 | (if (eq? (if (if (vector? #{dots 14113}#) | |
16311 | (if (= (vector-length | |
16312 | #{dots 14113}#) | |
16313 | 4) | |
16314 | (eq? (vector-ref | |
16315 | #{dots 14113}# | |
16316 | 0) | |
16317 | 'syntax-object) | |
16318 | #f) | |
16319 | #f) | |
16320 | (vector-ref #{dots 14113}# 1) | |
16321 | #{dots 14113}#) | |
16322 | (if (if (= (vector-length | |
16323 | '#(syntax-object | |
16324 | ... | |
16325 | ((top) | |
16326 | #(ribcage | |
16327 | () | |
16328 | () | |
16329 | ()) | |
16330 | #(ribcage | |
16331 | () | |
16332 | () | |
16333 | ()) | |
16334 | #(ribcage | |
16335 | #(x) | |
16336 | #((top)) | |
16337 | #("i2230")) | |
16338 | #(ribcage | |
16339 | (lambda-var-list | |
16340 | gen-var | |
16341 | strip | |
16342 | expand-lambda-case | |
16343 | lambda*-formals | |
16344 | expand-simple-lambda | |
16345 | lambda-formals | |
16346 | ellipsis? | |
16347 | expand-void | |
16348 | eval-local-transformer | |
16349 | expand-local-syntax | |
16350 | expand-body | |
16351 | expand-macro | |
16352 | expand-application | |
16353 | expand-expr | |
16354 | expand | |
16355 | syntax-type | |
16356 | expand-when-list | |
16357 | expand-install-global | |
16358 | expand-top-sequence | |
16359 | expand-sequence | |
16360 | source-wrap | |
16361 | wrap | |
16362 | bound-id-member? | |
16363 | distinct-bound-ids? | |
16364 | valid-bound-ids? | |
16365 | bound-id=? | |
16366 | free-id=? | |
16367 | id-var-name | |
16368 | same-marks? | |
16369 | join-marks | |
16370 | join-wraps | |
16371 | smart-append | |
16372 | make-binding-wrap | |
16373 | extend-ribcage! | |
16374 | make-empty-ribcage | |
16375 | new-mark | |
16376 | anti-mark | |
16377 | the-anti-mark | |
16378 | top-marked? | |
16379 | top-wrap | |
16380 | empty-wrap | |
16381 | set-ribcage-labels! | |
16382 | set-ribcage-marks! | |
16383 | set-ribcage-symnames! | |
16384 | ribcage-labels | |
16385 | ribcage-marks | |
16386 | ribcage-symnames | |
16387 | ribcage? | |
16388 | make-ribcage | |
16389 | gen-labels | |
16390 | gen-label | |
16391 | make-rename | |
16392 | rename-marks | |
16393 | rename-new | |
16394 | rename-old | |
16395 | subst-rename? | |
16396 | wrap-subst | |
16397 | wrap-marks | |
16398 | make-wrap | |
16399 | id-sym-name&marks | |
16400 | id-sym-name | |
16401 | id? | |
16402 | nonsymbol-id? | |
16403 | global-extend | |
16404 | lookup | |
16405 | macros-only-env | |
16406 | extend-var-env | |
16407 | extend-env | |
16408 | null-env | |
16409 | binding-value | |
16410 | binding-type | |
16411 | make-binding | |
16412 | arg-check | |
16413 | source-annotation | |
16414 | no-source | |
16415 | set-syntax-object-module! | |
16416 | set-syntax-object-wrap! | |
16417 | set-syntax-object-expression! | |
16418 | syntax-object-module | |
16419 | syntax-object-wrap | |
16420 | syntax-object-expression | |
16421 | syntax-object? | |
16422 | make-syntax-object | |
16423 | build-lexical-var | |
16424 | build-letrec | |
16425 | build-named-let | |
16426 | build-let | |
16427 | build-sequence | |
16428 | build-data | |
16429 | build-primref | |
16430 | build-lambda-case | |
16431 | build-case-lambda | |
16432 | build-simple-lambda | |
16433 | build-global-definition | |
16434 | build-global-assignment | |
16435 | build-global-reference | |
16436 | analyze-variable | |
16437 | build-lexical-assignment | |
16438 | build-lexical-reference | |
16439 | build-dynlet | |
16440 | build-conditional | |
16441 | build-application | |
16442 | build-void | |
16443 | maybe-name-value! | |
16444 | decorate-source | |
16445 | get-global-definition-hook | |
16446 | put-global-definition-hook | |
16447 | gensym-hook | |
16448 | local-eval-hook | |
16449 | top-level-eval-hook | |
16450 | fx< | |
16451 | fx= | |
16452 | fx- | |
16453 | fx+ | |
16454 | set-lambda-meta! | |
16455 | lambda-meta | |
16456 | lambda? | |
16457 | make-dynlet | |
16458 | make-letrec | |
16459 | make-let | |
16460 | make-lambda-case | |
16461 | make-lambda | |
16462 | make-sequence | |
16463 | make-application | |
16464 | make-conditional | |
16465 | make-toplevel-define | |
16466 | make-toplevel-set | |
16467 | make-toplevel-ref | |
16468 | make-module-set | |
16469 | make-module-ref | |
16470 | make-lexical-set | |
16471 | make-lexical-ref | |
16472 | make-primitive-ref | |
16473 | make-const | |
16474 | make-void) | |
16475 | ((top) | |
16476 | (top) | |
16477 | (top) | |
16478 | (top) | |
16479 | (top) | |
16480 | (top) | |
16481 | (top) | |
16482 | (top) | |
16483 | (top) | |
16484 | (top) | |
16485 | (top) | |
16486 | (top) | |
16487 | (top) | |
16488 | (top) | |
16489 | (top) | |
16490 | (top) | |
16491 | (top) | |
16492 | (top) | |
16493 | (top) | |
16494 | (top) | |
16495 | (top) | |
16496 | (top) | |
16497 | (top) | |
16498 | (top) | |
16499 | (top) | |
16500 | (top) | |
16501 | (top) | |
16502 | (top) | |
16503 | (top) | |
16504 | (top) | |
16505 | (top) | |
16506 | (top) | |
16507 | (top) | |
16508 | (top) | |
16509 | (top) | |
16510 | (top) | |
16511 | (top) | |
16512 | (top) | |
16513 | (top) | |
16514 | (top) | |
16515 | (top) | |
16516 | (top) | |
16517 | (top) | |
16518 | (top) | |
16519 | (top) | |
16520 | (top) | |
16521 | (top) | |
16522 | (top) | |
16523 | (top) | |
16524 | (top) | |
16525 | (top) | |
16526 | (top) | |
16527 | (top) | |
16528 | (top) | |
16529 | (top) | |
16530 | (top) | |
16531 | (top) | |
16532 | (top) | |
16533 | (top) | |
16534 | (top) | |
16535 | (top) | |
16536 | (top) | |
16537 | (top) | |
16538 | (top) | |
16539 | (top) | |
16540 | (top) | |
16541 | (top) | |
16542 | (top) | |
16543 | (top) | |
16544 | (top) | |
16545 | (top) | |
16546 | (top) | |
16547 | (top) | |
16548 | (top) | |
16549 | (top) | |
16550 | (top) | |
16551 | (top) | |
16552 | (top) | |
16553 | (top) | |
16554 | (top) | |
16555 | (top) | |
16556 | (top) | |
16557 | (top) | |
16558 | (top) | |
16559 | (top) | |
16560 | (top) | |
16561 | (top) | |
16562 | (top) | |
16563 | (top) | |
16564 | (top) | |
16565 | (top) | |
16566 | (top) | |
16567 | (top) | |
16568 | (top) | |
16569 | (top) | |
16570 | (top) | |
16571 | (top) | |
16572 | (top) | |
16573 | (top) | |
16574 | (top) | |
16575 | (top) | |
16576 | (top) | |
16577 | (top) | |
16578 | (top) | |
16579 | (top) | |
16580 | (top) | |
16581 | (top) | |
16582 | (top) | |
16583 | (top) | |
16584 | (top) | |
16585 | (top) | |
16586 | (top) | |
16587 | (top) | |
16588 | (top) | |
16589 | (top) | |
16590 | (top) | |
16591 | (top) | |
16592 | (top) | |
16593 | (top) | |
16594 | (top) | |
16595 | (top) | |
16596 | (top) | |
16597 | (top) | |
16598 | (top) | |
16599 | (top) | |
16600 | (top) | |
16601 | (top) | |
16602 | (top) | |
16603 | (top) | |
16604 | (top) | |
16605 | (top) | |
16606 | (top) | |
16607 | (top) | |
16608 | (top) | |
16609 | (top) | |
16610 | (top)) | |
16611 | ("i467" | |
16612 | "i465" | |
16613 | "i463" | |
16614 | "i461" | |
16615 | "i459" | |
16616 | "i457" | |
16617 | "i455" | |
16618 | "i453" | |
16619 | "i451" | |
16620 | "i449" | |
16621 | "i447" | |
16622 | "i445" | |
16623 | "i443" | |
16624 | "i441" | |
16625 | "i439" | |
16626 | "i437" | |
16627 | "i435" | |
16628 | "i433" | |
16629 | "i431" | |
16630 | "i429" | |
16631 | "i427" | |
16632 | "i425" | |
16633 | "i423" | |
16634 | "i421" | |
16635 | "i419" | |
16636 | "i417" | |
16637 | "i415" | |
16638 | "i413" | |
16639 | "i411" | |
16640 | "i409" | |
16641 | "i407" | |
16642 | "i405" | |
16643 | "i403" | |
16644 | "i401" | |
16645 | "i399" | |
16646 | "i398" | |
16647 | "i396" | |
16648 | "i393" | |
16649 | "i392" | |
16650 | "i391" | |
16651 | "i389" | |
16652 | "i388" | |
16653 | "i386" | |
16654 | "i384" | |
16655 | "i382" | |
16656 | "i380" | |
16657 | "i378" | |
16658 | "i376" | |
16659 | "i374" | |
16660 | "i372" | |
16661 | "i369" | |
16662 | "i367" | |
16663 | "i366" | |
16664 | "i364" | |
16665 | "i362" | |
16666 | "i360" | |
16667 | "i358" | |
16668 | "i357" | |
16669 | "i356" | |
16670 | "i355" | |
16671 | "i353" | |
16672 | "i352" | |
16673 | "i349" | |
16674 | "i347" | |
16675 | "i345" | |
16676 | "i343" | |
16677 | "i341" | |
16678 | "i339" | |
16679 | "i337" | |
16680 | "i336" | |
16681 | "i335" | |
16682 | "i333" | |
16683 | "i331" | |
16684 | "i330" | |
16685 | "i327" | |
16686 | "i326" | |
16687 | "i324" | |
16688 | "i322" | |
16689 | "i320" | |
16690 | "i318" | |
16691 | "i316" | |
16692 | "i314" | |
16693 | "i312" | |
16694 | "i310" | |
16695 | "i308" | |
16696 | "i305" | |
16697 | "i303" | |
16698 | "i301" | |
16699 | "i299" | |
16700 | "i297" | |
16701 | "i295" | |
16702 | "i293" | |
16703 | "i291" | |
16704 | "i289" | |
16705 | "i287" | |
16706 | "i285" | |
16707 | "i283" | |
16708 | "i281" | |
16709 | "i279" | |
16710 | "i277" | |
16711 | "i275" | |
16712 | "i273" | |
16713 | "i271" | |
16714 | "i269" | |
16715 | "i267" | |
16716 | "i265" | |
16717 | "i263" | |
16718 | "i261" | |
16719 | "i260" | |
16720 | "i257" | |
16721 | "i255" | |
16722 | "i254" | |
16723 | "i253" | |
16724 | "i252" | |
16725 | "i251" | |
16726 | "i249" | |
16727 | "i247" | |
16728 | "i245" | |
16729 | "i242" | |
16730 | "i240" | |
16731 | "i238" | |
16732 | "i236" | |
16733 | "i234" | |
16734 | "i232" | |
16735 | "i230" | |
16736 | "i228" | |
16737 | "i226" | |
16738 | "i224" | |
16739 | "i222" | |
16740 | "i220" | |
16741 | "i218" | |
16742 | "i216" | |
16743 | "i214" | |
16744 | "i212" | |
16745 | "i210" | |
16746 | "i208")) | |
16747 | #(ribcage | |
16748 | (define-structure | |
16749 | define-expansion-accessors | |
16750 | define-expansion-constructors) | |
16751 | ((top) | |
16752 | (top) | |
16753 | (top)) | |
16754 | ("i46" | |
16755 | "i45" | |
16756 | "i44"))) | |
16757 | (hygiene guile))) | |
16758 | 4) | |
16759 | #t | |
16760 | #f) | |
16761 | '... | |
16762 | '#(syntax-object | |
16763 | ... | |
16764 | ((top) | |
16765 | #(ribcage () () ()) | |
16766 | #(ribcage () () ()) | |
16767 | #(ribcage | |
16768 | #(x) | |
16769 | #((top)) | |
16770 | #("i2230")) | |
16771 | #(ribcage | |
16772 | (lambda-var-list | |
16773 | gen-var | |
16774 | strip | |
16775 | expand-lambda-case | |
16776 | lambda*-formals | |
16777 | expand-simple-lambda | |
16778 | lambda-formals | |
16779 | ellipsis? | |
16780 | expand-void | |
16781 | eval-local-transformer | |
16782 | expand-local-syntax | |
16783 | expand-body | |
16784 | expand-macro | |
16785 | expand-application | |
16786 | expand-expr | |
16787 | expand | |
16788 | syntax-type | |
16789 | expand-when-list | |
16790 | expand-install-global | |
16791 | expand-top-sequence | |
16792 | expand-sequence | |
16793 | source-wrap | |
16794 | wrap | |
16795 | bound-id-member? | |
16796 | distinct-bound-ids? | |
16797 | valid-bound-ids? | |
16798 | bound-id=? | |
16799 | free-id=? | |
16800 | id-var-name | |
16801 | same-marks? | |
16802 | join-marks | |
16803 | join-wraps | |
16804 | smart-append | |
16805 | make-binding-wrap | |
16806 | extend-ribcage! | |
16807 | make-empty-ribcage | |
16808 | new-mark | |
16809 | anti-mark | |
16810 | the-anti-mark | |
16811 | top-marked? | |
16812 | top-wrap | |
16813 | empty-wrap | |
16814 | set-ribcage-labels! | |
16815 | set-ribcage-marks! | |
16816 | set-ribcage-symnames! | |
16817 | ribcage-labels | |
16818 | ribcage-marks | |
16819 | ribcage-symnames | |
16820 | ribcage? | |
16821 | make-ribcage | |
16822 | gen-labels | |
16823 | gen-label | |
16824 | make-rename | |
16825 | rename-marks | |
16826 | rename-new | |
16827 | rename-old | |
16828 | subst-rename? | |
16829 | wrap-subst | |
16830 | wrap-marks | |
16831 | make-wrap | |
16832 | id-sym-name&marks | |
16833 | id-sym-name | |
16834 | id? | |
16835 | nonsymbol-id? | |
16836 | global-extend | |
16837 | lookup | |
16838 | macros-only-env | |
16839 | extend-var-env | |
16840 | extend-env | |
16841 | null-env | |
16842 | binding-value | |
16843 | binding-type | |
16844 | make-binding | |
16845 | arg-check | |
16846 | source-annotation | |
16847 | no-source | |
16848 | set-syntax-object-module! | |
16849 | set-syntax-object-wrap! | |
16850 | set-syntax-object-expression! | |
16851 | syntax-object-module | |
16852 | syntax-object-wrap | |
16853 | syntax-object-expression | |
16854 | syntax-object? | |
16855 | make-syntax-object | |
16856 | build-lexical-var | |
16857 | build-letrec | |
16858 | build-named-let | |
16859 | build-let | |
16860 | build-sequence | |
16861 | build-data | |
16862 | build-primref | |
16863 | build-lambda-case | |
16864 | build-case-lambda | |
16865 | build-simple-lambda | |
16866 | build-global-definition | |
16867 | build-global-assignment | |
16868 | build-global-reference | |
16869 | analyze-variable | |
16870 | build-lexical-assignment | |
16871 | build-lexical-reference | |
16872 | build-dynlet | |
16873 | build-conditional | |
16874 | build-application | |
16875 | build-void | |
16876 | maybe-name-value! | |
16877 | decorate-source | |
16878 | get-global-definition-hook | |
16879 | put-global-definition-hook | |
16880 | gensym-hook | |
16881 | local-eval-hook | |
16882 | top-level-eval-hook | |
16883 | fx< | |
16884 | fx= | |
16885 | fx- | |
16886 | fx+ | |
16887 | set-lambda-meta! | |
16888 | lambda-meta | |
16889 | lambda? | |
16890 | make-dynlet | |
16891 | make-letrec | |
16892 | make-let | |
16893 | make-lambda-case | |
16894 | make-lambda | |
16895 | make-sequence | |
16896 | make-application | |
16897 | make-conditional | |
16898 | make-toplevel-define | |
16899 | make-toplevel-set | |
16900 | make-toplevel-ref | |
16901 | make-module-set | |
16902 | make-module-ref | |
16903 | make-lexical-set | |
16904 | make-lexical-ref | |
16905 | make-primitive-ref | |
16906 | make-const | |
16907 | make-void) | |
16908 | ((top) | |
16909 | (top) | |
16910 | (top) | |
16911 | (top) | |
16912 | (top) | |
16913 | (top) | |
16914 | (top) | |
16915 | (top) | |
16916 | (top) | |
16917 | (top) | |
16918 | (top) | |
16919 | (top) | |
16920 | (top) | |
16921 | (top) | |
16922 | (top) | |
16923 | (top) | |
16924 | (top) | |
16925 | (top) | |
16926 | (top) | |
16927 | (top) | |
16928 | (top) | |
16929 | (top) | |
16930 | (top) | |
16931 | (top) | |
16932 | (top) | |
16933 | (top) | |
16934 | (top) | |
16935 | (top) | |
16936 | (top) | |
16937 | (top) | |
16938 | (top) | |
16939 | (top) | |
16940 | (top) | |
16941 | (top) | |
16942 | (top) | |
16943 | (top) | |
16944 | (top) | |
16945 | (top) | |
16946 | (top) | |
16947 | (top) | |
16948 | (top) | |
16949 | (top) | |
16950 | (top) | |
16951 | (top) | |
16952 | (top) | |
16953 | (top) | |
16954 | (top) | |
16955 | (top) | |
16956 | (top) | |
16957 | (top) | |
16958 | (top) | |
16959 | (top) | |
16960 | (top) | |
16961 | (top) | |
16962 | (top) | |
16963 | (top) | |
16964 | (top) | |
16965 | (top) | |
16966 | (top) | |
16967 | (top) | |
16968 | (top) | |
16969 | (top) | |
16970 | (top) | |
16971 | (top) | |
16972 | (top) | |
16973 | (top) | |
16974 | (top) | |
16975 | (top) | |
16976 | (top) | |
16977 | (top) | |
16978 | (top) | |
16979 | (top) | |
16980 | (top) | |
16981 | (top) | |
16982 | (top) | |
16983 | (top) | |
16984 | (top) | |
16985 | (top) | |
16986 | (top) | |
16987 | (top) | |
16988 | (top) | |
16989 | (top) | |
16990 | (top) | |
16991 | (top) | |
16992 | (top) | |
16993 | (top) | |
16994 | (top) | |
16995 | (top) | |
16996 | (top) | |
16997 | (top) | |
16998 | (top) | |
16999 | (top) | |
17000 | (top) | |
17001 | (top) | |
17002 | (top) | |
17003 | (top) | |
17004 | (top) | |
17005 | (top) | |
17006 | (top) | |
17007 | (top) | |
17008 | (top) | |
17009 | (top) | |
17010 | (top) | |
17011 | (top) | |
17012 | (top) | |
17013 | (top) | |
17014 | (top) | |
17015 | (top) | |
17016 | (top) | |
17017 | (top) | |
17018 | (top) | |
17019 | (top) | |
17020 | (top) | |
17021 | (top) | |
17022 | (top) | |
17023 | (top) | |
17024 | (top) | |
17025 | (top) | |
17026 | (top) | |
17027 | (top) | |
17028 | (top) | |
17029 | (top) | |
17030 | (top) | |
17031 | (top) | |
17032 | (top) | |
17033 | (top) | |
17034 | (top) | |
17035 | (top) | |
17036 | (top) | |
17037 | (top) | |
17038 | (top) | |
17039 | (top) | |
17040 | (top) | |
17041 | (top) | |
17042 | (top) | |
17043 | (top)) | |
17044 | ("i467" | |
17045 | "i465" | |
17046 | "i463" | |
17047 | "i461" | |
17048 | "i459" | |
17049 | "i457" | |
17050 | "i455" | |
17051 | "i453" | |
17052 | "i451" | |
17053 | "i449" | |
17054 | "i447" | |
17055 | "i445" | |
17056 | "i443" | |
17057 | "i441" | |
17058 | "i439" | |
17059 | "i437" | |
17060 | "i435" | |
17061 | "i433" | |
17062 | "i431" | |
17063 | "i429" | |
17064 | "i427" | |
17065 | "i425" | |
17066 | "i423" | |
17067 | "i421" | |
17068 | "i419" | |
17069 | "i417" | |
17070 | "i415" | |
17071 | "i413" | |
17072 | "i411" | |
17073 | "i409" | |
17074 | "i407" | |
17075 | "i405" | |
17076 | "i403" | |
17077 | "i401" | |
17078 | "i399" | |
17079 | "i398" | |
17080 | "i396" | |
17081 | "i393" | |
17082 | "i392" | |
17083 | "i391" | |
17084 | "i389" | |
17085 | "i388" | |
17086 | "i386" | |
17087 | "i384" | |
17088 | "i382" | |
17089 | "i380" | |
17090 | "i378" | |
17091 | "i376" | |
17092 | "i374" | |
17093 | "i372" | |
17094 | "i369" | |
17095 | "i367" | |
17096 | "i366" | |
17097 | "i364" | |
17098 | "i362" | |
17099 | "i360" | |
17100 | "i358" | |
17101 | "i357" | |
17102 | "i356" | |
17103 | "i355" | |
17104 | "i353" | |
17105 | "i352" | |
17106 | "i349" | |
17107 | "i347" | |
17108 | "i345" | |
17109 | "i343" | |
17110 | "i341" | |
17111 | "i339" | |
17112 | "i337" | |
17113 | "i336" | |
17114 | "i335" | |
17115 | "i333" | |
17116 | "i331" | |
17117 | "i330" | |
17118 | "i327" | |
17119 | "i326" | |
17120 | "i324" | |
17121 | "i322" | |
17122 | "i320" | |
17123 | "i318" | |
17124 | "i316" | |
17125 | "i314" | |
17126 | "i312" | |
17127 | "i310" | |
17128 | "i308" | |
17129 | "i305" | |
17130 | "i303" | |
17131 | "i301" | |
17132 | "i299" | |
17133 | "i297" | |
17134 | "i295" | |
17135 | "i293" | |
17136 | "i291" | |
17137 | "i289" | |
17138 | "i287" | |
17139 | "i285" | |
17140 | "i283" | |
17141 | "i281" | |
17142 | "i279" | |
17143 | "i277" | |
17144 | "i275" | |
17145 | "i273" | |
17146 | "i271" | |
17147 | "i269" | |
17148 | "i267" | |
17149 | "i265" | |
17150 | "i263" | |
17151 | "i261" | |
17152 | "i260" | |
17153 | "i257" | |
17154 | "i255" | |
17155 | "i254" | |
17156 | "i253" | |
17157 | "i252" | |
17158 | "i251" | |
17159 | "i249" | |
17160 | "i247" | |
17161 | "i245" | |
17162 | "i242" | |
17163 | "i240" | |
17164 | "i238" | |
17165 | "i236" | |
17166 | "i234" | |
17167 | "i232" | |
17168 | "i230" | |
17169 | "i228" | |
17170 | "i226" | |
17171 | "i224" | |
17172 | "i222" | |
17173 | "i220" | |
17174 | "i218" | |
17175 | "i216" | |
17176 | "i214" | |
17177 | "i212" | |
17178 | "i210" | |
17179 | "i208")) | |
17180 | #(ribcage | |
17181 | (define-structure | |
17182 | define-expansion-accessors | |
17183 | define-expansion-constructors) | |
17184 | ((top) (top) (top)) | |
17185 | ("i46" "i45" "i44"))) | |
17186 | (hygiene guile)))) | |
17187 | (eq? (#{id-var-name 4332}# | |
17188 | #{dots 14113}# | |
17189 | '(())) | |
17190 | (#{id-var-name 4332}# | |
17191 | '#(syntax-object | |
17192 | ... | |
17193 | ((top) | |
17194 | #(ribcage () () ()) | |
17195 | #(ribcage () () ()) | |
17196 | #(ribcage | |
17197 | #(x) | |
17198 | #((top)) | |
17199 | #("i2230")) | |
17200 | #(ribcage | |
17201 | (lambda-var-list | |
17202 | gen-var | |
17203 | strip | |
17204 | expand-lambda-case | |
17205 | lambda*-formals | |
17206 | expand-simple-lambda | |
17207 | lambda-formals | |
17208 | ellipsis? | |
17209 | expand-void | |
17210 | eval-local-transformer | |
17211 | expand-local-syntax | |
17212 | expand-body | |
17213 | expand-macro | |
17214 | expand-application | |
17215 | expand-expr | |
17216 | expand | |
17217 | syntax-type | |
17218 | expand-when-list | |
17219 | expand-install-global | |
17220 | expand-top-sequence | |
17221 | expand-sequence | |
17222 | source-wrap | |
17223 | wrap | |
17224 | bound-id-member? | |
17225 | distinct-bound-ids? | |
17226 | valid-bound-ids? | |
17227 | bound-id=? | |
17228 | free-id=? | |
17229 | id-var-name | |
17230 | same-marks? | |
17231 | join-marks | |
17232 | join-wraps | |
17233 | smart-append | |
17234 | make-binding-wrap | |
17235 | extend-ribcage! | |
17236 | make-empty-ribcage | |
17237 | new-mark | |
17238 | anti-mark | |
17239 | the-anti-mark | |
17240 | top-marked? | |
17241 | top-wrap | |
17242 | empty-wrap | |
17243 | set-ribcage-labels! | |
17244 | set-ribcage-marks! | |
17245 | set-ribcage-symnames! | |
17246 | ribcage-labels | |
17247 | ribcage-marks | |
17248 | ribcage-symnames | |
17249 | ribcage? | |
17250 | make-ribcage | |
17251 | gen-labels | |
17252 | gen-label | |
17253 | make-rename | |
17254 | rename-marks | |
17255 | rename-new | |
17256 | rename-old | |
17257 | subst-rename? | |
17258 | wrap-subst | |
17259 | wrap-marks | |
17260 | make-wrap | |
17261 | id-sym-name&marks | |
17262 | id-sym-name | |
17263 | id? | |
17264 | nonsymbol-id? | |
17265 | global-extend | |
17266 | lookup | |
17267 | macros-only-env | |
17268 | extend-var-env | |
17269 | extend-env | |
17270 | null-env | |
17271 | binding-value | |
17272 | binding-type | |
17273 | make-binding | |
17274 | arg-check | |
17275 | source-annotation | |
17276 | no-source | |
17277 | set-syntax-object-module! | |
17278 | set-syntax-object-wrap! | |
17279 | set-syntax-object-expression! | |
17280 | syntax-object-module | |
17281 | syntax-object-wrap | |
17282 | syntax-object-expression | |
17283 | syntax-object? | |
17284 | make-syntax-object | |
17285 | build-lexical-var | |
17286 | build-letrec | |
17287 | build-named-let | |
17288 | build-let | |
17289 | build-sequence | |
17290 | build-data | |
17291 | build-primref | |
17292 | build-lambda-case | |
17293 | build-case-lambda | |
17294 | build-simple-lambda | |
17295 | build-global-definition | |
17296 | build-global-assignment | |
17297 | build-global-reference | |
17298 | analyze-variable | |
17299 | build-lexical-assignment | |
17300 | build-lexical-reference | |
17301 | build-dynlet | |
17302 | build-conditional | |
17303 | build-application | |
17304 | build-void | |
17305 | maybe-name-value! | |
17306 | decorate-source | |
17307 | get-global-definition-hook | |
17308 | put-global-definition-hook | |
17309 | gensym-hook | |
17310 | local-eval-hook | |
17311 | top-level-eval-hook | |
17312 | fx< | |
17313 | fx= | |
17314 | fx- | |
17315 | fx+ | |
17316 | set-lambda-meta! | |
17317 | lambda-meta | |
17318 | lambda? | |
17319 | make-dynlet | |
17320 | make-letrec | |
17321 | make-let | |
17322 | make-lambda-case | |
17323 | make-lambda | |
17324 | make-sequence | |
17325 | make-application | |
17326 | make-conditional | |
17327 | make-toplevel-define | |
17328 | make-toplevel-set | |
17329 | make-toplevel-ref | |
17330 | make-module-set | |
17331 | make-module-ref | |
17332 | make-lexical-set | |
17333 | make-lexical-ref | |
17334 | make-primitive-ref | |
17335 | make-const | |
17336 | make-void) | |
17337 | ((top) | |
17338 | (top) | |
17339 | (top) | |
17340 | (top) | |
17341 | (top) | |
17342 | (top) | |
17343 | (top) | |
17344 | (top) | |
17345 | (top) | |
17346 | (top) | |
17347 | (top) | |
17348 | (top) | |
17349 | (top) | |
17350 | (top) | |
17351 | (top) | |
17352 | (top) | |
17353 | (top) | |
17354 | (top) | |
17355 | (top) | |
17356 | (top) | |
17357 | (top) | |
17358 | (top) | |
17359 | (top) | |
17360 | (top) | |
17361 | (top) | |
17362 | (top) | |
17363 | (top) | |
17364 | (top) | |
17365 | (top) | |
17366 | (top) | |
17367 | (top) | |
17368 | (top) | |
17369 | (top) | |
17370 | (top) | |
17371 | (top) | |
17372 | (top) | |
17373 | (top) | |
17374 | (top) | |
17375 | (top) | |
17376 | (top) | |
17377 | (top) | |
17378 | (top) | |
17379 | (top) | |
17380 | (top) | |
17381 | (top) | |
17382 | (top) | |
17383 | (top) | |
17384 | (top) | |
17385 | (top) | |
17386 | (top) | |
17387 | (top) | |
17388 | (top) | |
17389 | (top) | |
17390 | (top) | |
17391 | (top) | |
17392 | (top) | |
17393 | (top) | |
17394 | (top) | |
17395 | (top) | |
17396 | (top) | |
17397 | (top) | |
17398 | (top) | |
17399 | (top) | |
17400 | (top) | |
17401 | (top) | |
17402 | (top) | |
17403 | (top) | |
17404 | (top) | |
17405 | (top) | |
17406 | (top) | |
17407 | (top) | |
17408 | (top) | |
17409 | (top) | |
17410 | (top) | |
17411 | (top) | |
17412 | (top) | |
17413 | (top) | |
17414 | (top) | |
17415 | (top) | |
17416 | (top) | |
17417 | (top) | |
17418 | (top) | |
17419 | (top) | |
17420 | (top) | |
17421 | (top) | |
17422 | (top) | |
17423 | (top) | |
17424 | (top) | |
17425 | (top) | |
17426 | (top) | |
17427 | (top) | |
17428 | (top) | |
17429 | (top) | |
17430 | (top) | |
17431 | (top) | |
17432 | (top) | |
17433 | (top) | |
17434 | (top) | |
17435 | (top) | |
17436 | (top) | |
17437 | (top) | |
17438 | (top) | |
17439 | (top) | |
17440 | (top) | |
17441 | (top) | |
17442 | (top) | |
17443 | (top) | |
17444 | (top) | |
17445 | (top) | |
17446 | (top) | |
17447 | (top) | |
17448 | (top) | |
17449 | (top) | |
17450 | (top) | |
17451 | (top) | |
17452 | (top) | |
17453 | (top) | |
17454 | (top) | |
17455 | (top) | |
17456 | (top) | |
17457 | (top) | |
17458 | (top) | |
17459 | (top) | |
17460 | (top) | |
17461 | (top) | |
17462 | (top) | |
17463 | (top) | |
17464 | (top) | |
17465 | (top) | |
17466 | (top) | |
17467 | (top) | |
17468 | (top) | |
17469 | (top) | |
17470 | (top) | |
17471 | (top) | |
17472 | (top)) | |
17473 | ("i467" | |
17474 | "i465" | |
17475 | "i463" | |
17476 | "i461" | |
17477 | "i459" | |
17478 | "i457" | |
17479 | "i455" | |
17480 | "i453" | |
17481 | "i451" | |
17482 | "i449" | |
17483 | "i447" | |
17484 | "i445" | |
17485 | "i443" | |
17486 | "i441" | |
17487 | "i439" | |
17488 | "i437" | |
17489 | "i435" | |
17490 | "i433" | |
17491 | "i431" | |
17492 | "i429" | |
17493 | "i427" | |
17494 | "i425" | |
17495 | "i423" | |
17496 | "i421" | |
17497 | "i419" | |
17498 | "i417" | |
17499 | "i415" | |
17500 | "i413" | |
17501 | "i411" | |
17502 | "i409" | |
17503 | "i407" | |
17504 | "i405" | |
17505 | "i403" | |
17506 | "i401" | |
17507 | "i399" | |
17508 | "i398" | |
17509 | "i396" | |
17510 | "i393" | |
17511 | "i392" | |
17512 | "i391" | |
17513 | "i389" | |
17514 | "i388" | |
17515 | "i386" | |
17516 | "i384" | |
17517 | "i382" | |
17518 | "i380" | |
17519 | "i378" | |
17520 | "i376" | |
17521 | "i374" | |
17522 | "i372" | |
17523 | "i369" | |
17524 | "i367" | |
17525 | "i366" | |
17526 | "i364" | |
17527 | "i362" | |
17528 | "i360" | |
17529 | "i358" | |
17530 | "i357" | |
17531 | "i356" | |
17532 | "i355" | |
17533 | "i353" | |
17534 | "i352" | |
17535 | "i349" | |
17536 | "i347" | |
17537 | "i345" | |
17538 | "i343" | |
17539 | "i341" | |
17540 | "i339" | |
17541 | "i337" | |
17542 | "i336" | |
17543 | "i335" | |
17544 | "i333" | |
17545 | "i331" | |
17546 | "i330" | |
17547 | "i327" | |
17548 | "i326" | |
17549 | "i324" | |
17550 | "i322" | |
17551 | "i320" | |
17552 | "i318" | |
17553 | "i316" | |
17554 | "i314" | |
17555 | "i312" | |
17556 | "i310" | |
17557 | "i308" | |
17558 | "i305" | |
17559 | "i303" | |
17560 | "i301" | |
17561 | "i299" | |
17562 | "i297" | |
17563 | "i295" | |
17564 | "i293" | |
17565 | "i291" | |
17566 | "i289" | |
17567 | "i287" | |
17568 | "i285" | |
17569 | "i283" | |
17570 | "i281" | |
17571 | "i279" | |
17572 | "i277" | |
17573 | "i275" | |
17574 | "i273" | |
17575 | "i271" | |
17576 | "i269" | |
17577 | "i267" | |
17578 | "i265" | |
17579 | "i263" | |
17580 | "i261" | |
17581 | "i260" | |
17582 | "i257" | |
17583 | "i255" | |
17584 | "i254" | |
17585 | "i253" | |
17586 | "i252" | |
17587 | "i251" | |
17588 | "i249" | |
17589 | "i247" | |
17590 | "i245" | |
17591 | "i242" | |
17592 | "i240" | |
17593 | "i238" | |
17594 | "i236" | |
17595 | "i234" | |
17596 | "i232" | |
17597 | "i230" | |
17598 | "i228" | |
17599 | "i226" | |
17600 | "i224" | |
17601 | "i222" | |
17602 | "i220" | |
17603 | "i218" | |
17604 | "i216" | |
17605 | "i214" | |
17606 | "i212" | |
17607 | "i210" | |
17608 | "i208")) | |
17609 | #(ribcage | |
17610 | (define-structure | |
17611 | define-expansion-accessors | |
17612 | define-expansion-constructors) | |
17613 | ((top) (top) (top)) | |
17614 | ("i46" "i45" "i44"))) | |
17615 | (hygiene guile)) | |
17616 | '(()))) | |
17617 | #f) | |
17618 | #f)) | |
17619 | #{tmp 14108}#) | |
17620 | #f) | |
17621 | (@apply | |
17622 | (lambda (#{x 14213}# #{dots 14214}#) | |
17623 | (call-with-values | |
17624 | (lambda () | |
17625 | (#{cvt 13781}# | |
17626 | #{x 14213}# | |
17627 | (#{1+}# #{n 13785}#) | |
17628 | #{ids 13786}#)) | |
17629 | (lambda (#{p 14215}# #{ids 14216}#) | |
17630 | (values | |
17631 | (if (eq? #{p 14215}# 'any) | |
17632 | 'each-any | |
17633 | (vector 'each #{p 14215}#)) | |
17634 | #{ids 14216}#)))) | |
17635 | #{tmp 14108}#) | |
17636 | (let ((#{tmp 14217}# | |
17637 | ($sc-dispatch #{p 13784}# '(any any . any)))) | |
17638 | (if (if #{tmp 14217}# | |
17639 | (@apply | |
17640 | (lambda (#{x 14221}# | |
17641 | #{dots 14222}# | |
17642 | #{ys 14223}#) | |
17643 | (if (if (if (vector? #{dots 14222}#) | |
17644 | (if (= (vector-length | |
17645 | #{dots 14222}#) | |
17646 | 4) | |
17647 | (eq? (vector-ref | |
17648 | #{dots 14222}# | |
17649 | 0) | |
17650 | 'syntax-object) | |
17651 | #f) | |
17652 | #f) | |
17653 | (symbol? | |
17654 | (vector-ref #{dots 14222}# 1)) | |
17655 | #f) | |
17656 | (if (eq? (if (if (vector? | |
17657 | #{dots 14222}#) | |
17658 | (if (= (vector-length | |
17659 | #{dots 14222}#) | |
17660 | 4) | |
17661 | (eq? (vector-ref | |
17662 | #{dots 14222}# | |
17663 | 0) | |
17664 | 'syntax-object) | |
17665 | #f) | |
17666 | #f) | |
17667 | (vector-ref | |
17668 | #{dots 14222}# | |
17669 | 1) | |
17670 | #{dots 14222}#) | |
17671 | (if (if (= (vector-length | |
17672 | '#(syntax-object | |
17673 | ... | |
014de9e2 | 17674 | ((top) |
78a47455 AW |
17675 | #(ribcage |
17676 | () | |
17677 | () | |
17678 | ()) | |
17679 | #(ribcage | |
17680 | () | |
17681 | () | |
17682 | ()) | |
17683 | #(ribcage | |
17684 | #(x) | |
17685 | #((top)) | |
17686 | #("i2230")) | |
17687 | #(ribcage | |
17688 | (lambda-var-list | |
17689 | gen-var | |
17690 | strip | |
17691 | expand-lambda-case | |
17692 | lambda*-formals | |
17693 | expand-simple-lambda | |
17694 | lambda-formals | |
17695 | ellipsis? | |
17696 | expand-void | |
17697 | eval-local-transformer | |
17698 | expand-local-syntax | |
17699 | expand-body | |
17700 | expand-macro | |
17701 | expand-application | |
17702 | expand-expr | |
17703 | expand | |
17704 | syntax-type | |
17705 | expand-when-list | |
17706 | expand-install-global | |
17707 | expand-top-sequence | |
17708 | expand-sequence | |
17709 | source-wrap | |
17710 | wrap | |
17711 | bound-id-member? | |
17712 | distinct-bound-ids? | |
17713 | valid-bound-ids? | |
17714 | bound-id=? | |
17715 | free-id=? | |
17716 | id-var-name | |
17717 | same-marks? | |
17718 | join-marks | |
17719 | join-wraps | |
17720 | smart-append | |
17721 | make-binding-wrap | |
17722 | extend-ribcage! | |
17723 | make-empty-ribcage | |
17724 | new-mark | |
17725 | anti-mark | |
17726 | the-anti-mark | |
17727 | top-marked? | |
17728 | top-wrap | |
17729 | empty-wrap | |
17730 | set-ribcage-labels! | |
17731 | set-ribcage-marks! | |
17732 | set-ribcage-symnames! | |
17733 | ribcage-labels | |
17734 | ribcage-marks | |
17735 | ribcage-symnames | |
17736 | ribcage? | |
17737 | make-ribcage | |
17738 | gen-labels | |
17739 | gen-label | |
17740 | make-rename | |
17741 | rename-marks | |
17742 | rename-new | |
17743 | rename-old | |
17744 | subst-rename? | |
17745 | wrap-subst | |
17746 | wrap-marks | |
17747 | make-wrap | |
17748 | id-sym-name&marks | |
17749 | id-sym-name | |
17750 | id? | |
17751 | nonsymbol-id? | |
17752 | global-extend | |
17753 | lookup | |
17754 | macros-only-env | |
17755 | extend-var-env | |
17756 | extend-env | |
17757 | null-env | |
17758 | binding-value | |
17759 | binding-type | |
17760 | make-binding | |
17761 | arg-check | |
17762 | source-annotation | |
17763 | no-source | |
17764 | set-syntax-object-module! | |
17765 | set-syntax-object-wrap! | |
17766 | set-syntax-object-expression! | |
17767 | syntax-object-module | |
17768 | syntax-object-wrap | |
17769 | syntax-object-expression | |
17770 | syntax-object? | |
17771 | make-syntax-object | |
17772 | build-lexical-var | |
17773 | build-letrec | |
17774 | build-named-let | |
17775 | build-let | |
17776 | build-sequence | |
17777 | build-data | |
17778 | build-primref | |
17779 | build-lambda-case | |
17780 | build-case-lambda | |
17781 | build-simple-lambda | |
17782 | build-global-definition | |
17783 | build-global-assignment | |
17784 | build-global-reference | |
17785 | analyze-variable | |
17786 | build-lexical-assignment | |
17787 | build-lexical-reference | |
17788 | build-dynlet | |
17789 | build-conditional | |
17790 | build-application | |
17791 | build-void | |
17792 | maybe-name-value! | |
17793 | decorate-source | |
17794 | get-global-definition-hook | |
17795 | put-global-definition-hook | |
17796 | gensym-hook | |
17797 | local-eval-hook | |
17798 | top-level-eval-hook | |
17799 | fx< | |
17800 | fx= | |
17801 | fx- | |
17802 | fx+ | |
17803 | set-lambda-meta! | |
17804 | lambda-meta | |
17805 | lambda? | |
17806 | make-dynlet | |
17807 | make-letrec | |
17808 | make-let | |
17809 | make-lambda-case | |
17810 | make-lambda | |
17811 | make-sequence | |
17812 | make-application | |
17813 | make-conditional | |
17814 | make-toplevel-define | |
17815 | make-toplevel-set | |
17816 | make-toplevel-ref | |
17817 | make-module-set | |
17818 | make-module-ref | |
17819 | make-lexical-set | |
17820 | make-lexical-ref | |
17821 | make-primitive-ref | |
17822 | make-const | |
17823 | make-void) | |
17824 | ((top) | |
17825 | (top) | |
17826 | (top) | |
17827 | (top) | |
17828 | (top) | |
17829 | (top) | |
17830 | (top) | |
17831 | (top) | |
17832 | (top) | |
17833 | (top) | |
17834 | (top) | |
17835 | (top) | |
17836 | (top) | |
17837 | (top) | |
17838 | (top) | |
17839 | (top) | |
17840 | (top) | |
17841 | (top) | |
17842 | (top) | |
17843 | (top) | |
17844 | (top) | |
17845 | (top) | |
17846 | (top) | |
17847 | (top) | |
17848 | (top) | |
17849 | (top) | |
17850 | (top) | |
17851 | (top) | |
17852 | (top) | |
17853 | (top) | |
17854 | (top) | |
17855 | (top) | |
17856 | (top) | |
17857 | (top) | |
17858 | (top) | |
17859 | (top) | |
17860 | (top) | |
17861 | (top) | |
17862 | (top) | |
17863 | (top) | |
17864 | (top) | |
17865 | (top) | |
17866 | (top) | |
17867 | (top) | |
17868 | (top) | |
17869 | (top) | |
17870 | (top) | |
17871 | (top) | |
17872 | (top) | |
17873 | (top) | |
17874 | (top) | |
17875 | (top) | |
17876 | (top) | |
17877 | (top) | |
17878 | (top) | |
17879 | (top) | |
17880 | (top) | |
17881 | (top) | |
17882 | (top) | |
17883 | (top) | |
17884 | (top) | |
17885 | (top) | |
17886 | (top) | |
17887 | (top) | |
17888 | (top) | |
17889 | (top) | |
17890 | (top) | |
17891 | (top) | |
17892 | (top) | |
17893 | (top) | |
17894 | (top) | |
17895 | (top) | |
17896 | (top) | |
17897 | (top) | |
17898 | (top) | |
17899 | (top) | |
17900 | (top) | |
17901 | (top) | |
17902 | (top) | |
17903 | (top) | |
17904 | (top) | |
17905 | (top) | |
17906 | (top) | |
17907 | (top) | |
17908 | (top) | |
17909 | (top) | |
17910 | (top) | |
17911 | (top) | |
17912 | (top) | |
17913 | (top) | |
17914 | (top) | |
17915 | (top) | |
17916 | (top) | |
17917 | (top) | |
17918 | (top) | |
17919 | (top) | |
17920 | (top) | |
17921 | (top) | |
17922 | (top) | |
17923 | (top) | |
17924 | (top) | |
17925 | (top) | |
17926 | (top) | |
17927 | (top) | |
17928 | (top) | |
17929 | (top) | |
17930 | (top) | |
17931 | (top) | |
17932 | (top) | |
17933 | (top) | |
17934 | (top) | |
17935 | (top) | |
17936 | (top) | |
17937 | (top) | |
17938 | (top) | |
17939 | (top) | |
17940 | (top) | |
17941 | (top) | |
17942 | (top) | |
17943 | (top) | |
17944 | (top) | |
17945 | (top) | |
17946 | (top) | |
17947 | (top) | |
17948 | (top) | |
17949 | (top) | |
17950 | (top) | |
17951 | (top) | |
17952 | (top) | |
17953 | (top) | |
17954 | (top) | |
17955 | (top) | |
17956 | (top) | |
17957 | (top) | |
17958 | (top) | |
17959 | (top)) | |
17960 | ("i467" | |
17961 | "i465" | |
17962 | "i463" | |
17963 | "i461" | |
17964 | "i459" | |
17965 | "i457" | |
17966 | "i455" | |
17967 | "i453" | |
17968 | "i451" | |
17969 | "i449" | |
17970 | "i447" | |
17971 | "i445" | |
17972 | "i443" | |
17973 | "i441" | |
17974 | "i439" | |
17975 | "i437" | |
17976 | "i435" | |
17977 | "i433" | |
17978 | "i431" | |
17979 | "i429" | |
17980 | "i427" | |
17981 | "i425" | |
17982 | "i423" | |
17983 | "i421" | |
17984 | "i419" | |
17985 | "i417" | |
17986 | "i415" | |
17987 | "i413" | |
17988 | "i411" | |
17989 | "i409" | |
17990 | "i407" | |
17991 | "i405" | |
17992 | "i403" | |
17993 | "i401" | |
17994 | "i399" | |
17995 | "i398" | |
17996 | "i396" | |
17997 | "i393" | |
17998 | "i392" | |
17999 | "i391" | |
18000 | "i389" | |
18001 | "i388" | |
18002 | "i386" | |
18003 | "i384" | |
18004 | "i382" | |
18005 | "i380" | |
18006 | "i378" | |
18007 | "i376" | |
18008 | "i374" | |
18009 | "i372" | |
18010 | "i369" | |
18011 | "i367" | |
18012 | "i366" | |
18013 | "i364" | |
18014 | "i362" | |
18015 | "i360" | |
18016 | "i358" | |
18017 | "i357" | |
18018 | "i356" | |
18019 | "i355" | |
18020 | "i353" | |
18021 | "i352" | |
18022 | "i349" | |
18023 | "i347" | |
18024 | "i345" | |
18025 | "i343" | |
18026 | "i341" | |
18027 | "i339" | |
18028 | "i337" | |
18029 | "i336" | |
18030 | "i335" | |
18031 | "i333" | |
18032 | "i331" | |
18033 | "i330" | |
18034 | "i327" | |
18035 | "i326" | |
18036 | "i324" | |
18037 | "i322" | |
18038 | "i320" | |
18039 | "i318" | |
18040 | "i316" | |
18041 | "i314" | |
18042 | "i312" | |
18043 | "i310" | |
18044 | "i308" | |
18045 | "i305" | |
18046 | "i303" | |
18047 | "i301" | |
18048 | "i299" | |
18049 | "i297" | |
18050 | "i295" | |
18051 | "i293" | |
18052 | "i291" | |
18053 | "i289" | |
18054 | "i287" | |
18055 | "i285" | |
18056 | "i283" | |
18057 | "i281" | |
18058 | "i279" | |
18059 | "i277" | |
18060 | "i275" | |
18061 | "i273" | |
18062 | "i271" | |
18063 | "i269" | |
18064 | "i267" | |
18065 | "i265" | |
18066 | "i263" | |
18067 | "i261" | |
18068 | "i260" | |
18069 | "i257" | |
18070 | "i255" | |
18071 | "i254" | |
18072 | "i253" | |
18073 | "i252" | |
18074 | "i251" | |
18075 | "i249" | |
18076 | "i247" | |
18077 | "i245" | |
18078 | "i242" | |
18079 | "i240" | |
18080 | "i238" | |
18081 | "i236" | |
18082 | "i234" | |
18083 | "i232" | |
18084 | "i230" | |
18085 | "i228" | |
18086 | "i226" | |
18087 | "i224" | |
18088 | "i222" | |
18089 | "i220" | |
18090 | "i218" | |
18091 | "i216" | |
18092 | "i214" | |
18093 | "i212" | |
18094 | "i210" | |
18095 | "i208")) | |
18096 | #(ribcage | |
18097 | (define-structure | |
18098 | define-expansion-accessors | |
18099 | define-expansion-constructors) | |
18100 | ((top) | |
18101 | (top) | |
18102 | (top)) | |
18103 | ("i46" | |
18104 | "i45" | |
18105 | "i44"))) | |
18106 | (hygiene | |
18107 | guile))) | |
18108 | 4) | |
18109 | #t | |
18110 | #f) | |
18111 | '... | |
18112 | '#(syntax-object | |
18113 | ... | |
18114 | ((top) | |
18115 | #(ribcage () () ()) | |
18116 | #(ribcage () () ()) | |
18117 | #(ribcage | |
18118 | #(x) | |
18119 | #((top)) | |
18120 | #("i2230")) | |
18121 | #(ribcage | |
18122 | (lambda-var-list | |
18123 | gen-var | |
18124 | strip | |
18125 | expand-lambda-case | |
18126 | lambda*-formals | |
18127 | expand-simple-lambda | |
18128 | lambda-formals | |
18129 | ellipsis? | |
18130 | expand-void | |
18131 | eval-local-transformer | |
18132 | expand-local-syntax | |
18133 | expand-body | |
18134 | expand-macro | |
18135 | expand-application | |
18136 | expand-expr | |
18137 | expand | |
18138 | syntax-type | |
18139 | expand-when-list | |
18140 | expand-install-global | |
18141 | expand-top-sequence | |
18142 | expand-sequence | |
18143 | source-wrap | |
18144 | wrap | |
18145 | bound-id-member? | |
18146 | distinct-bound-ids? | |
18147 | valid-bound-ids? | |
18148 | bound-id=? | |
18149 | free-id=? | |
18150 | id-var-name | |
18151 | same-marks? | |
18152 | join-marks | |
18153 | join-wraps | |
18154 | smart-append | |
18155 | make-binding-wrap | |
18156 | extend-ribcage! | |
18157 | make-empty-ribcage | |
18158 | new-mark | |
18159 | anti-mark | |
18160 | the-anti-mark | |
18161 | top-marked? | |
18162 | top-wrap | |
18163 | empty-wrap | |
18164 | set-ribcage-labels! | |
18165 | set-ribcage-marks! | |
18166 | set-ribcage-symnames! | |
18167 | ribcage-labels | |
18168 | ribcage-marks | |
18169 | ribcage-symnames | |
18170 | ribcage? | |
18171 | make-ribcage | |
18172 | gen-labels | |
18173 | gen-label | |
18174 | make-rename | |
18175 | rename-marks | |
18176 | rename-new | |
18177 | rename-old | |
18178 | subst-rename? | |
18179 | wrap-subst | |
18180 | wrap-marks | |
18181 | make-wrap | |
18182 | id-sym-name&marks | |
18183 | id-sym-name | |
18184 | id? | |
18185 | nonsymbol-id? | |
18186 | global-extend | |
18187 | lookup | |
18188 | macros-only-env | |
18189 | extend-var-env | |
18190 | extend-env | |
18191 | null-env | |
18192 | binding-value | |
18193 | binding-type | |
18194 | make-binding | |
18195 | arg-check | |
18196 | source-annotation | |
18197 | no-source | |
18198 | set-syntax-object-module! | |
18199 | set-syntax-object-wrap! | |
18200 | set-syntax-object-expression! | |
18201 | syntax-object-module | |
18202 | syntax-object-wrap | |
18203 | syntax-object-expression | |
18204 | syntax-object? | |
18205 | make-syntax-object | |
18206 | build-lexical-var | |
18207 | build-letrec | |
18208 | build-named-let | |
18209 | build-let | |
18210 | build-sequence | |
18211 | build-data | |
18212 | build-primref | |
18213 | build-lambda-case | |
18214 | build-case-lambda | |
18215 | build-simple-lambda | |
18216 | build-global-definition | |
18217 | build-global-assignment | |
18218 | build-global-reference | |
18219 | analyze-variable | |
18220 | build-lexical-assignment | |
18221 | build-lexical-reference | |
18222 | build-dynlet | |
18223 | build-conditional | |
18224 | build-application | |
18225 | build-void | |
18226 | maybe-name-value! | |
18227 | decorate-source | |
18228 | get-global-definition-hook | |
18229 | put-global-definition-hook | |
18230 | gensym-hook | |
18231 | local-eval-hook | |
18232 | top-level-eval-hook | |
18233 | fx< | |
18234 | fx= | |
18235 | fx- | |
18236 | fx+ | |
18237 | set-lambda-meta! | |
18238 | lambda-meta | |
18239 | lambda? | |
18240 | make-dynlet | |
18241 | make-letrec | |
18242 | make-let | |
18243 | make-lambda-case | |
18244 | make-lambda | |
18245 | make-sequence | |
18246 | make-application | |
18247 | make-conditional | |
18248 | make-toplevel-define | |
18249 | make-toplevel-set | |
18250 | make-toplevel-ref | |
18251 | make-module-set | |
18252 | make-module-ref | |
18253 | make-lexical-set | |
18254 | make-lexical-ref | |
18255 | make-primitive-ref | |
18256 | make-const | |
18257 | make-void) | |
18258 | ((top) | |
18259 | (top) | |
18260 | (top) | |
18261 | (top) | |
18262 | (top) | |
18263 | (top) | |
18264 | (top) | |
18265 | (top) | |
18266 | (top) | |
18267 | (top) | |
18268 | (top) | |
18269 | (top) | |
18270 | (top) | |
18271 | (top) | |
18272 | (top) | |
18273 | (top) | |
18274 | (top) | |
18275 | (top) | |
18276 | (top) | |
18277 | (top) | |
18278 | (top) | |
18279 | (top) | |
18280 | (top) | |
18281 | (top) | |
18282 | (top) | |
18283 | (top) | |
18284 | (top) | |
18285 | (top) | |
18286 | (top) | |
18287 | (top) | |
18288 | (top) | |
18289 | (top) | |
18290 | (top) | |
18291 | (top) | |
18292 | (top) | |
18293 | (top) | |
18294 | (top) | |
18295 | (top) | |
18296 | (top) | |
18297 | (top) | |
18298 | (top) | |
18299 | (top) | |
18300 | (top) | |
18301 | (top) | |
18302 | (top) | |
18303 | (top) | |
18304 | (top) | |
18305 | (top) | |
18306 | (top) | |
18307 | (top) | |
18308 | (top) | |
18309 | (top) | |
18310 | (top) | |
18311 | (top) | |
18312 | (top) | |
18313 | (top) | |
18314 | (top) | |
18315 | (top) | |
18316 | (top) | |
18317 | (top) | |
18318 | (top) | |
18319 | (top) | |
18320 | (top) | |
18321 | (top) | |
18322 | (top) | |
18323 | (top) | |
18324 | (top) | |
18325 | (top) | |
18326 | (top) | |
18327 | (top) | |
18328 | (top) | |
18329 | (top) | |
18330 | (top) | |
18331 | (top) | |
18332 | (top) | |
18333 | (top) | |
18334 | (top) | |
18335 | (top) | |
18336 | (top) | |
18337 | (top) | |
18338 | (top) | |
18339 | (top) | |
18340 | (top) | |
18341 | (top) | |
18342 | (top) | |
18343 | (top) | |
18344 | (top) | |
18345 | (top) | |
18346 | (top) | |
18347 | (top) | |
18348 | (top) | |
18349 | (top) | |
18350 | (top) | |
18351 | (top) | |
18352 | (top) | |
18353 | (top) | |
18354 | (top) | |
18355 | (top) | |
18356 | (top) | |
18357 | (top) | |
18358 | (top) | |
18359 | (top) | |
18360 | (top) | |
18361 | (top) | |
18362 | (top) | |
18363 | (top) | |
18364 | (top) | |
18365 | (top) | |
18366 | (top) | |
18367 | (top) | |
18368 | (top) | |
18369 | (top) | |
18370 | (top) | |
18371 | (top) | |
18372 | (top) | |
18373 | (top) | |
18374 | (top) | |
18375 | (top) | |
18376 | (top) | |
18377 | (top) | |
18378 | (top) | |
18379 | (top) | |
18380 | (top) | |
18381 | (top) | |
18382 | (top) | |
18383 | (top) | |
18384 | (top) | |
18385 | (top) | |
18386 | (top) | |
18387 | (top) | |
18388 | (top) | |
18389 | (top) | |
18390 | (top) | |
18391 | (top) | |
18392 | (top) | |
18393 | (top)) | |
18394 | ("i467" | |
18395 | "i465" | |
18396 | "i463" | |
18397 | "i461" | |
18398 | "i459" | |
18399 | "i457" | |
18400 | "i455" | |
18401 | "i453" | |
18402 | "i451" | |
18403 | "i449" | |
18404 | "i447" | |
18405 | "i445" | |
18406 | "i443" | |
18407 | "i441" | |
18408 | "i439" | |
18409 | "i437" | |
18410 | "i435" | |
18411 | "i433" | |
18412 | "i431" | |
18413 | "i429" | |
18414 | "i427" | |
18415 | "i425" | |
18416 | "i423" | |
18417 | "i421" | |
18418 | "i419" | |
18419 | "i417" | |
18420 | "i415" | |
18421 | "i413" | |
18422 | "i411" | |
18423 | "i409" | |
18424 | "i407" | |
18425 | "i405" | |
18426 | "i403" | |
18427 | "i401" | |
18428 | "i399" | |
18429 | "i398" | |
18430 | "i396" | |
18431 | "i393" | |
18432 | "i392" | |
18433 | "i391" | |
18434 | "i389" | |
18435 | "i388" | |
18436 | "i386" | |
18437 | "i384" | |
18438 | "i382" | |
18439 | "i380" | |
18440 | "i378" | |
18441 | "i376" | |
18442 | "i374" | |
18443 | "i372" | |
18444 | "i369" | |
18445 | "i367" | |
18446 | "i366" | |
18447 | "i364" | |
18448 | "i362" | |
18449 | "i360" | |
18450 | "i358" | |
18451 | "i357" | |
18452 | "i356" | |
18453 | "i355" | |
18454 | "i353" | |
18455 | "i352" | |
18456 | "i349" | |
18457 | "i347" | |
18458 | "i345" | |
18459 | "i343" | |
18460 | "i341" | |
18461 | "i339" | |
18462 | "i337" | |
18463 | "i336" | |
18464 | "i335" | |
18465 | "i333" | |
18466 | "i331" | |
18467 | "i330" | |
18468 | "i327" | |
18469 | "i326" | |
18470 | "i324" | |
18471 | "i322" | |
18472 | "i320" | |
18473 | "i318" | |
18474 | "i316" | |
18475 | "i314" | |
18476 | "i312" | |
18477 | "i310" | |
18478 | "i308" | |
18479 | "i305" | |
18480 | "i303" | |
18481 | "i301" | |
18482 | "i299" | |
18483 | "i297" | |
18484 | "i295" | |
18485 | "i293" | |
18486 | "i291" | |
18487 | "i289" | |
18488 | "i287" | |
18489 | "i285" | |
18490 | "i283" | |
18491 | "i281" | |
18492 | "i279" | |
18493 | "i277" | |
18494 | "i275" | |
18495 | "i273" | |
18496 | "i271" | |
18497 | "i269" | |
18498 | "i267" | |
18499 | "i265" | |
18500 | "i263" | |
18501 | "i261" | |
18502 | "i260" | |
18503 | "i257" | |
18504 | "i255" | |
18505 | "i254" | |
18506 | "i253" | |
18507 | "i252" | |
18508 | "i251" | |
18509 | "i249" | |
18510 | "i247" | |
18511 | "i245" | |
18512 | "i242" | |
18513 | "i240" | |
18514 | "i238" | |
18515 | "i236" | |
18516 | "i234" | |
18517 | "i232" | |
18518 | "i230" | |
18519 | "i228" | |
18520 | "i226" | |
18521 | "i224" | |
18522 | "i222" | |
18523 | "i220" | |
18524 | "i218" | |
18525 | "i216" | |
18526 | "i214" | |
18527 | "i212" | |
18528 | "i210" | |
18529 | "i208")) | |
18530 | #(ribcage | |
18531 | (define-structure | |
18532 | define-expansion-accessors | |
18533 | define-expansion-constructors) | |
18534 | ((top) (top) (top)) | |
18535 | ("i46" "i45" "i44"))) | |
18536 | (hygiene guile)))) | |
18537 | (eq? (#{id-var-name 4332}# | |
18538 | #{dots 14222}# | |
18539 | '(())) | |
18540 | (#{id-var-name 4332}# | |
18541 | '#(syntax-object | |
18542 | ... | |
18543 | ((top) | |
18544 | #(ribcage () () ()) | |
18545 | #(ribcage () () ()) | |
18546 | #(ribcage | |
18547 | #(x) | |
18548 | #((top)) | |
18549 | #("i2230")) | |
18550 | #(ribcage | |
18551 | (lambda-var-list | |
18552 | gen-var | |
18553 | strip | |
18554 | expand-lambda-case | |
18555 | lambda*-formals | |
18556 | expand-simple-lambda | |
18557 | lambda-formals | |
18558 | ellipsis? | |
18559 | expand-void | |
18560 | eval-local-transformer | |
18561 | expand-local-syntax | |
18562 | expand-body | |
18563 | expand-macro | |
18564 | expand-application | |
18565 | expand-expr | |
18566 | expand | |
18567 | syntax-type | |
18568 | expand-when-list | |
18569 | expand-install-global | |
18570 | expand-top-sequence | |
18571 | expand-sequence | |
18572 | source-wrap | |
18573 | wrap | |
18574 | bound-id-member? | |
18575 | distinct-bound-ids? | |
18576 | valid-bound-ids? | |
18577 | bound-id=? | |
18578 | free-id=? | |
18579 | id-var-name | |
18580 | same-marks? | |
18581 | join-marks | |
18582 | join-wraps | |
18583 | smart-append | |
18584 | make-binding-wrap | |
18585 | extend-ribcage! | |
18586 | make-empty-ribcage | |
18587 | new-mark | |
18588 | anti-mark | |
18589 | the-anti-mark | |
18590 | top-marked? | |
18591 | top-wrap | |
18592 | empty-wrap | |
18593 | set-ribcage-labels! | |
18594 | set-ribcage-marks! | |
18595 | set-ribcage-symnames! | |
18596 | ribcage-labels | |
18597 | ribcage-marks | |
18598 | ribcage-symnames | |
18599 | ribcage? | |
18600 | make-ribcage | |
18601 | gen-labels | |
18602 | gen-label | |
18603 | make-rename | |
18604 | rename-marks | |
18605 | rename-new | |
18606 | rename-old | |
18607 | subst-rename? | |
18608 | wrap-subst | |
18609 | wrap-marks | |
18610 | make-wrap | |
18611 | id-sym-name&marks | |
18612 | id-sym-name | |
18613 | id? | |
18614 | nonsymbol-id? | |
18615 | global-extend | |
18616 | lookup | |
18617 | macros-only-env | |
18618 | extend-var-env | |
18619 | extend-env | |
18620 | null-env | |
18621 | binding-value | |
18622 | binding-type | |
18623 | make-binding | |
18624 | arg-check | |
18625 | source-annotation | |
18626 | no-source | |
18627 | set-syntax-object-module! | |
18628 | set-syntax-object-wrap! | |
18629 | set-syntax-object-expression! | |
18630 | syntax-object-module | |
18631 | syntax-object-wrap | |
18632 | syntax-object-expression | |
18633 | syntax-object? | |
18634 | make-syntax-object | |
18635 | build-lexical-var | |
18636 | build-letrec | |
18637 | build-named-let | |
18638 | build-let | |
18639 | build-sequence | |
18640 | build-data | |
18641 | build-primref | |
18642 | build-lambda-case | |
18643 | build-case-lambda | |
18644 | build-simple-lambda | |
18645 | build-global-definition | |
18646 | build-global-assignment | |
18647 | build-global-reference | |
18648 | analyze-variable | |
18649 | build-lexical-assignment | |
18650 | build-lexical-reference | |
18651 | build-dynlet | |
18652 | build-conditional | |
18653 | build-application | |
18654 | build-void | |
18655 | maybe-name-value! | |
18656 | decorate-source | |
18657 | get-global-definition-hook | |
18658 | put-global-definition-hook | |
18659 | gensym-hook | |
18660 | local-eval-hook | |
18661 | top-level-eval-hook | |
18662 | fx< | |
18663 | fx= | |
18664 | fx- | |
18665 | fx+ | |
18666 | set-lambda-meta! | |
18667 | lambda-meta | |
18668 | lambda? | |
18669 | make-dynlet | |
18670 | make-letrec | |
18671 | make-let | |
18672 | make-lambda-case | |
18673 | make-lambda | |
18674 | make-sequence | |
18675 | make-application | |
18676 | make-conditional | |
18677 | make-toplevel-define | |
18678 | make-toplevel-set | |
18679 | make-toplevel-ref | |
18680 | make-module-set | |
18681 | make-module-ref | |
18682 | make-lexical-set | |
18683 | make-lexical-ref | |
18684 | make-primitive-ref | |
18685 | make-const | |
18686 | make-void) | |
18687 | ((top) | |
18688 | (top) | |
18689 | (top) | |
18690 | (top) | |
18691 | (top) | |
18692 | (top) | |
18693 | (top) | |
18694 | (top) | |
18695 | (top) | |
18696 | (top) | |
18697 | (top) | |
18698 | (top) | |
18699 | (top) | |
18700 | (top) | |
18701 | (top) | |
18702 | (top) | |
18703 | (top) | |
18704 | (top) | |
18705 | (top) | |
18706 | (top) | |
18707 | (top) | |
18708 | (top) | |
18709 | (top) | |
18710 | (top) | |
18711 | (top) | |
18712 | (top) | |
18713 | (top) | |
18714 | (top) | |
18715 | (top) | |
18716 | (top) | |
18717 | (top) | |
18718 | (top) | |
18719 | (top) | |
18720 | (top) | |
18721 | (top) | |
18722 | (top) | |
18723 | (top) | |
18724 | (top) | |
18725 | (top) | |
18726 | (top) | |
18727 | (top) | |
18728 | (top) | |
18729 | (top) | |
18730 | (top) | |
18731 | (top) | |
18732 | (top) | |
18733 | (top) | |
18734 | (top) | |
18735 | (top) | |
18736 | (top) | |
18737 | (top) | |
18738 | (top) | |
18739 | (top) | |
18740 | (top) | |
18741 | (top) | |
18742 | (top) | |
18743 | (top) | |
18744 | (top) | |
18745 | (top) | |
18746 | (top) | |
18747 | (top) | |
18748 | (top) | |
18749 | (top) | |
18750 | (top) | |
18751 | (top) | |
18752 | (top) | |
18753 | (top) | |
18754 | (top) | |
18755 | (top) | |
18756 | (top) | |
18757 | (top) | |
18758 | (top) | |
18759 | (top) | |
18760 | (top) | |
18761 | (top) | |
18762 | (top) | |
18763 | (top) | |
18764 | (top) | |
18765 | (top) | |
18766 | (top) | |
18767 | (top) | |
18768 | (top) | |
18769 | (top) | |
18770 | (top) | |
18771 | (top) | |
18772 | (top) | |
18773 | (top) | |
18774 | (top) | |
18775 | (top) | |
18776 | (top) | |
18777 | (top) | |
18778 | (top) | |
18779 | (top) | |
18780 | (top) | |
18781 | (top) | |
18782 | (top) | |
18783 | (top) | |
18784 | (top) | |
18785 | (top) | |
18786 | (top) | |
18787 | (top) | |
18788 | (top) | |
18789 | (top) | |
18790 | (top) | |
18791 | (top) | |
18792 | (top) | |
18793 | (top) | |
18794 | (top) | |
18795 | (top) | |
18796 | (top) | |
18797 | (top) | |
18798 | (top) | |
18799 | (top) | |
18800 | (top) | |
18801 | (top) | |
18802 | (top) | |
18803 | (top) | |
18804 | (top) | |
18805 | (top) | |
18806 | (top) | |
18807 | (top) | |
18808 | (top) | |
18809 | (top) | |
18810 | (top) | |
18811 | (top) | |
18812 | (top) | |
18813 | (top) | |
18814 | (top) | |
18815 | (top) | |
18816 | (top) | |
18817 | (top) | |
18818 | (top) | |
18819 | (top) | |
18820 | (top) | |
18821 | (top) | |
18822 | (top)) | |
18823 | ("i467" | |
18824 | "i465" | |
18825 | "i463" | |
18826 | "i461" | |
18827 | "i459" | |
18828 | "i457" | |
18829 | "i455" | |
18830 | "i453" | |
18831 | "i451" | |
18832 | "i449" | |
18833 | "i447" | |
18834 | "i445" | |
18835 | "i443" | |
18836 | "i441" | |
18837 | "i439" | |
18838 | "i437" | |
18839 | "i435" | |
18840 | "i433" | |
18841 | "i431" | |
18842 | "i429" | |
18843 | "i427" | |
18844 | "i425" | |
18845 | "i423" | |
18846 | "i421" | |
18847 | "i419" | |
18848 | "i417" | |
18849 | "i415" | |
18850 | "i413" | |
18851 | "i411" | |
18852 | "i409" | |
18853 | "i407" | |
18854 | "i405" | |
18855 | "i403" | |
18856 | "i401" | |
18857 | "i399" | |
18858 | "i398" | |
18859 | "i396" | |
18860 | "i393" | |
18861 | "i392" | |
18862 | "i391" | |
18863 | "i389" | |
18864 | "i388" | |
18865 | "i386" | |
18866 | "i384" | |
18867 | "i382" | |
18868 | "i380" | |
18869 | "i378" | |
18870 | "i376" | |
18871 | "i374" | |
18872 | "i372" | |
18873 | "i369" | |
18874 | "i367" | |
18875 | "i366" | |
18876 | "i364" | |
18877 | "i362" | |
18878 | "i360" | |
18879 | "i358" | |
18880 | "i357" | |
18881 | "i356" | |
18882 | "i355" | |
18883 | "i353" | |
18884 | "i352" | |
18885 | "i349" | |
18886 | "i347" | |
18887 | "i345" | |
18888 | "i343" | |
18889 | "i341" | |
18890 | "i339" | |
18891 | "i337" | |
18892 | "i336" | |
18893 | "i335" | |
18894 | "i333" | |
18895 | "i331" | |
18896 | "i330" | |
18897 | "i327" | |
18898 | "i326" | |
18899 | "i324" | |
18900 | "i322" | |
18901 | "i320" | |
18902 | "i318" | |
18903 | "i316" | |
18904 | "i314" | |
18905 | "i312" | |
18906 | "i310" | |
18907 | "i308" | |
18908 | "i305" | |
18909 | "i303" | |
18910 | "i301" | |
18911 | "i299" | |
18912 | "i297" | |
18913 | "i295" | |
18914 | "i293" | |
18915 | "i291" | |
18916 | "i289" | |
18917 | "i287" | |
18918 | "i285" | |
18919 | "i283" | |
18920 | "i281" | |
18921 | "i279" | |
18922 | "i277" | |
18923 | "i275" | |
18924 | "i273" | |
18925 | "i271" | |
18926 | "i269" | |
18927 | "i267" | |
18928 | "i265" | |
18929 | "i263" | |
18930 | "i261" | |
18931 | "i260" | |
18932 | "i257" | |
18933 | "i255" | |
18934 | "i254" | |
18935 | "i253" | |
18936 | "i252" | |
18937 | "i251" | |
18938 | "i249" | |
18939 | "i247" | |
18940 | "i245" | |
18941 | "i242" | |
18942 | "i240" | |
18943 | "i238" | |
18944 | "i236" | |
18945 | "i234" | |
18946 | "i232" | |
18947 | "i230" | |
18948 | "i228" | |
18949 | "i226" | |
18950 | "i224" | |
18951 | "i222" | |
18952 | "i220" | |
18953 | "i218" | |
18954 | "i216" | |
18955 | "i214" | |
18956 | "i212" | |
18957 | "i210" | |
18958 | "i208")) | |
18959 | #(ribcage | |
18960 | (define-structure | |
18961 | define-expansion-accessors | |
18962 | define-expansion-constructors) | |
18963 | ((top) (top) (top)) | |
18964 | ("i46" "i45" "i44"))) | |
18965 | (hygiene guile)) | |
18966 | '(()))) | |
18967 | #f) | |
18968 | #f)) | |
18969 | #{tmp 14217}#) | |
18970 | #f) | |
18971 | (@apply | |
18972 | (lambda (#{x 14323}# | |
18973 | #{dots 14324}# | |
18974 | #{ys 14325}#) | |
18975 | (call-with-values | |
18976 | (lambda () | |
18977 | (#{cvt* 13779}# | |
18978 | #{ys 14325}# | |
18979 | #{n 13785}# | |
18980 | #{ids 13786}#)) | |
18981 | (lambda (#{ys 14328}# #{ids 14329}#) | |
18982 | (call-with-values | |
18983 | (lambda () | |
18984 | (#{cvt 13781}# | |
18985 | #{x 14323}# | |
18986 | (#{1+}# #{n 13785}#) | |
18987 | #{ids 14329}#)) | |
18988 | (lambda (#{x 14330}# #{ids 14331}#) | |
18989 | (call-with-values | |
18990 | (lambda () | |
18991 | (#{v-reverse 13780}# | |
18992 | #{ys 14328}#)) | |
18993 | (lambda (#{ys 14364}# #{e 14365}#) | |
18994 | (values | |
18995 | (vector | |
18996 | 'each+ | |
18997 | #{x 14330}# | |
18998 | #{ys 14364}# | |
18999 | #{e 14365}#) | |
19000 | #{ids 14331}#)))))))) | |
19001 | #{tmp 14217}#) | |
19002 | (let ((#{tmp 14366}# | |
19003 | ($sc-dispatch #{p 13784}# '(any . any)))) | |
19004 | (if #{tmp 14366}# | |
19005 | (@apply | |
19006 | (lambda (#{x 14370}# #{y 14371}#) | |
19007 | (call-with-values | |
19008 | (lambda () | |
19009 | (#{cvt 13781}# | |
19010 | #{y 14371}# | |
19011 | #{n 13785}# | |
19012 | #{ids 13786}#)) | |
19013 | (lambda (#{y 14372}# #{ids 14373}#) | |
19014 | (call-with-values | |
19015 | (lambda () | |
19016 | (#{cvt 13781}# | |
19017 | #{x 14370}# | |
19018 | #{n 13785}# | |
19019 | #{ids 14373}#)) | |
19020 | (lambda (#{x 14374}# #{ids 14375}#) | |
19021 | (values | |
19022 | (cons #{x 14374}# #{y 14372}#) | |
19023 | #{ids 14375}#)))))) | |
19024 | #{tmp 14366}#) | |
19025 | (let ((#{tmp 14376}# | |
19026 | ($sc-dispatch #{p 13784}# '()))) | |
19027 | (if #{tmp 14376}# | |
19028 | (@apply | |
19029 | (lambda () (values '() #{ids 13786}#)) | |
19030 | #{tmp 14376}#) | |
19031 | (let ((#{tmp 14380}# | |
19032 | ($sc-dispatch | |
19033 | #{p 13784}# | |
19034 | '#(vector each-any)))) | |
19035 | (if #{tmp 14380}# | |
19036 | (@apply | |
19037 | (lambda (#{x 14384}#) | |
19038 | (call-with-values | |
19039 | (lambda () | |
19040 | (#{cvt 13781}# | |
19041 | #{x 14384}# | |
19042 | #{n 13785}# | |
19043 | #{ids 13786}#)) | |
19044 | (lambda (#{p 14385}# | |
19045 | #{ids 14386}#) | |
19046 | (values | |
19047 | (vector | |
19048 | 'vector | |
19049 | #{p 14385}#) | |
19050 | #{ids 14386}#)))) | |
19051 | #{tmp 14380}#) | |
19052 | (values | |
19053 | (vector | |
19054 | 'atom | |
19055 | (#{strip 4358}# | |
19056 | #{p 13784}# | |
19057 | '(()))) | |
19058 | #{ids 13786}#))))))))))))))) | |
19059 | (#{cvt 13781}# #{pattern 13777}# 0 '())))) | |
19060 | (#{build-dispatch-call 12155}# | |
19061 | (lambda (#{pvars 14496}# | |
19062 | #{exp 14497}# | |
19063 | #{y 14498}# | |
19064 | #{r 14499}# | |
19065 | #{mod 14500}#) | |
19066 | (let ((#{ids 14501}# (map car #{pvars 14496}#))) | |
19067 | (begin | |
19068 | (map cdr #{pvars 14496}#) | |
19069 | (let ((#{labels 14503}# | |
19070 | (#{gen-labels 4316}# #{ids 14501}#)) | |
19071 | (#{new-vars 14504}# | |
19072 | (map #{gen-var 4359}# #{ids 14501}#))) | |
19073 | (#{build-application 4280}# | |
19074 | #f | |
19075 | (if (equal? (module-name (current-module)) '(guile)) | |
19076 | (make-struct/no-tail | |
19077 | (vector-ref %expanded-vtables 7) | |
19078 | #f | |
19079 | 'apply) | |
19080 | (make-struct/no-tail | |
19081 | (vector-ref %expanded-vtables 5) | |
19082 | #f | |
19083 | '(guile) | |
19084 | 'apply | |
19085 | #f)) | |
19086 | (list (#{build-simple-lambda 4289}# | |
19087 | #f | |
19088 | (map syntax->datum #{ids 14501}#) | |
19089 | #f | |
19090 | #{new-vars 14504}# | |
19091 | '() | |
19092 | (#{expand 4345}# | |
19093 | #{exp 14497}# | |
19094 | (#{extend-env 4307}# | |
19095 | #{labels 14503}# | |
19096 | (map (lambda (#{var 14829}# #{level 14830}#) | |
19097 | (cons 'syntax | |
19098 | (cons #{var 14829}# | |
19099 | #{level 14830}#))) | |
19100 | #{new-vars 14504}# | |
19101 | (map cdr #{pvars 14496}#)) | |
19102 | #{r 14499}#) | |
19103 | (#{make-binding-wrap 4327}# | |
19104 | #{ids 14501}# | |
19105 | #{labels 14503}# | |
19106 | '(())) | |
19107 | #{mod 14500}#)) | |
19108 | #{y 14498}#))))))) | |
19109 | (#{gen-clause 12156}# | |
19110 | (lambda (#{x 13138}# | |
19111 | #{keys 13139}# | |
19112 | #{clauses 13140}# | |
19113 | #{r 13141}# | |
19114 | #{pat 13142}# | |
19115 | #{fender 13143}# | |
19116 | #{exp 13144}# | |
19117 | #{mod 13145}#) | |
19118 | (call-with-values | |
19119 | (lambda () | |
19120 | (#{convert-pattern 12154}# | |
19121 | #{pat 13142}# | |
19122 | #{keys 13139}#)) | |
19123 | (lambda (#{p 13300}# #{pvars 13301}#) | |
19124 | (if (not (#{distinct-bound-ids? 4336}# | |
19125 | (map car #{pvars 13301}#))) | |
19126 | (syntax-violation | |
19127 | 'syntax-case | |
19128 | "duplicate pattern variable" | |
19129 | #{pat 13142}#) | |
19130 | (if (not (and-map | |
19131 | (lambda (#{x 13421}#) | |
19132 | (not (let ((#{x 13425}# (car #{x 13421}#))) | |
19133 | (if (if (if (vector? #{x 13425}#) | |
19134 | (if (= (vector-length | |
19135 | #{x 13425}#) | |
19136 | 4) | |
19137 | (eq? (vector-ref | |
19138 | #{x 13425}# | |
19139 | 0) | |
19140 | 'syntax-object) | |
19141 | #f) | |
19142 | #f) | |
19143 | (symbol? | |
19144 | (vector-ref #{x 13425}# 1)) | |
19145 | #f) | |
19146 | (if (eq? (if (if (vector? #{x 13425}#) | |
19147 | (if (= (vector-length | |
19148 | #{x 13425}#) | |
19149 | 4) | |
19150 | (eq? (vector-ref | |
19151 | #{x 13425}# | |
19152 | 0) | |
19153 | 'syntax-object) | |
19154 | #f) | |
19155 | #f) | |
19156 | (vector-ref #{x 13425}# 1) | |
19157 | #{x 13425}#) | |
19158 | (if (if (= (vector-length | |
19159 | '#(syntax-object | |
19160 | ... | |
19161 | ((top) | |
19162 | #(ribcage | |
19163 | () | |
19164 | () | |
19165 | ()) | |
19166 | #(ribcage | |
19167 | () | |
19168 | () | |
19169 | ()) | |
19170 | #(ribcage | |
19171 | #(x) | |
19172 | #((top)) | |
19173 | #("i2230")) | |
19174 | #(ribcage | |
19175 | (lambda-var-list | |
19176 | gen-var | |
19177 | strip | |
19178 | expand-lambda-case | |
19179 | lambda*-formals | |
19180 | expand-simple-lambda | |
19181 | lambda-formals | |
19182 | ellipsis? | |
19183 | expand-void | |
19184 | eval-local-transformer | |
19185 | expand-local-syntax | |
19186 | expand-body | |
19187 | expand-macro | |
19188 | expand-application | |
19189 | expand-expr | |
19190 | expand | |
19191 | syntax-type | |
19192 | expand-when-list | |
19193 | expand-install-global | |
19194 | expand-top-sequence | |
19195 | expand-sequence | |
19196 | source-wrap | |
19197 | wrap | |
19198 | bound-id-member? | |
19199 | distinct-bound-ids? | |
19200 | valid-bound-ids? | |
19201 | bound-id=? | |
19202 | free-id=? | |
19203 | id-var-name | |
19204 | same-marks? | |
19205 | join-marks | |
19206 | join-wraps | |
19207 | smart-append | |
19208 | make-binding-wrap | |
19209 | extend-ribcage! | |
19210 | make-empty-ribcage | |
19211 | new-mark | |
19212 | anti-mark | |
19213 | the-anti-mark | |
19214 | top-marked? | |
19215 | top-wrap | |
19216 | empty-wrap | |
19217 | set-ribcage-labels! | |
19218 | set-ribcage-marks! | |
19219 | set-ribcage-symnames! | |
19220 | ribcage-labels | |
19221 | ribcage-marks | |
19222 | ribcage-symnames | |
19223 | ribcage? | |
19224 | make-ribcage | |
19225 | gen-labels | |
19226 | gen-label | |
19227 | make-rename | |
19228 | rename-marks | |
19229 | rename-new | |
19230 | rename-old | |
19231 | subst-rename? | |
19232 | wrap-subst | |
19233 | wrap-marks | |
19234 | make-wrap | |
19235 | id-sym-name&marks | |
19236 | id-sym-name | |
19237 | id? | |
19238 | nonsymbol-id? | |
19239 | global-extend | |
19240 | lookup | |
19241 | macros-only-env | |
19242 | extend-var-env | |
19243 | extend-env | |
19244 | null-env | |
19245 | binding-value | |
19246 | binding-type | |
19247 | make-binding | |
19248 | arg-check | |
19249 | source-annotation | |
19250 | no-source | |
19251 | set-syntax-object-module! | |
19252 | set-syntax-object-wrap! | |
19253 | set-syntax-object-expression! | |
19254 | syntax-object-module | |
19255 | syntax-object-wrap | |
19256 | syntax-object-expression | |
19257 | syntax-object? | |
19258 | make-syntax-object | |
19259 | build-lexical-var | |
19260 | build-letrec | |
19261 | build-named-let | |
19262 | build-let | |
19263 | build-sequence | |
19264 | build-data | |
19265 | build-primref | |
19266 | build-lambda-case | |
19267 | build-case-lambda | |
19268 | build-simple-lambda | |
19269 | build-global-definition | |
19270 | build-global-assignment | |
19271 | build-global-reference | |
19272 | analyze-variable | |
19273 | build-lexical-assignment | |
19274 | build-lexical-reference | |
19275 | build-dynlet | |
19276 | build-conditional | |
19277 | build-application | |
19278 | build-void | |
19279 | maybe-name-value! | |
19280 | decorate-source | |
19281 | get-global-definition-hook | |
19282 | put-global-definition-hook | |
19283 | gensym-hook | |
19284 | local-eval-hook | |
19285 | top-level-eval-hook | |
19286 | fx< | |
19287 | fx= | |
19288 | fx- | |
19289 | fx+ | |
19290 | set-lambda-meta! | |
19291 | lambda-meta | |
19292 | lambda? | |
19293 | make-dynlet | |
19294 | make-letrec | |
19295 | make-let | |
19296 | make-lambda-case | |
19297 | make-lambda | |
19298 | make-sequence | |
19299 | make-application | |
19300 | make-conditional | |
19301 | make-toplevel-define | |
19302 | make-toplevel-set | |
19303 | make-toplevel-ref | |
19304 | make-module-set | |
19305 | make-module-ref | |
19306 | make-lexical-set | |
19307 | make-lexical-ref | |
19308 | make-primitive-ref | |
19309 | make-const | |
19310 | make-void) | |
19311 | ((top) | |
19312 | (top) | |
19313 | (top) | |
19314 | (top) | |
19315 | (top) | |
19316 | (top) | |
19317 | (top) | |
19318 | (top) | |
19319 | (top) | |
19320 | (top) | |
19321 | (top) | |
19322 | (top) | |
19323 | (top) | |
19324 | (top) | |
19325 | (top) | |
19326 | (top) | |
19327 | (top) | |
19328 | (top) | |
19329 | (top) | |
19330 | (top) | |
19331 | (top) | |
19332 | (top) | |
19333 | (top) | |
19334 | (top) | |
19335 | (top) | |
19336 | (top) | |
19337 | (top) | |
19338 | (top) | |
19339 | (top) | |
19340 | (top) | |
19341 | (top) | |
19342 | (top) | |
19343 | (top) | |
19344 | (top) | |
19345 | (top) | |
19346 | (top) | |
19347 | (top) | |
19348 | (top) | |
19349 | (top) | |
19350 | (top) | |
19351 | (top) | |
19352 | (top) | |
19353 | (top) | |
19354 | (top) | |
19355 | (top) | |
19356 | (top) | |
19357 | (top) | |
19358 | (top) | |
19359 | (top) | |
19360 | (top) | |
19361 | (top) | |
19362 | (top) | |
19363 | (top) | |
19364 | (top) | |
19365 | (top) | |
19366 | (top) | |
19367 | (top) | |
19368 | (top) | |
19369 | (top) | |
19370 | (top) | |
19371 | (top) | |
19372 | (top) | |
19373 | (top) | |
19374 | (top) | |
19375 | (top) | |
19376 | (top) | |
19377 | (top) | |
19378 | (top) | |
19379 | (top) | |
19380 | (top) | |
19381 | (top) | |
19382 | (top) | |
19383 | (top) | |
19384 | (top) | |
19385 | (top) | |
19386 | (top) | |
19387 | (top) | |
19388 | (top) | |
19389 | (top) | |
19390 | (top) | |
19391 | (top) | |
19392 | (top) | |
19393 | (top) | |
19394 | (top) | |
19395 | (top) | |
19396 | (top) | |
19397 | (top) | |
19398 | (top) | |
19399 | (top) | |
19400 | (top) | |
19401 | (top) | |
19402 | (top) | |
19403 | (top) | |
19404 | (top) | |
19405 | (top) | |
19406 | (top) | |
19407 | (top) | |
19408 | (top) | |
19409 | (top) | |
19410 | (top) | |
19411 | (top) | |
19412 | (top) | |
19413 | (top) | |
19414 | (top) | |
19415 | (top) | |
19416 | (top) | |
19417 | (top) | |
19418 | (top) | |
19419 | (top) | |
19420 | (top) | |
19421 | (top) | |
19422 | (top) | |
19423 | (top) | |
19424 | (top) | |
19425 | (top) | |
19426 | (top) | |
19427 | (top) | |
19428 | (top) | |
19429 | (top) | |
19430 | (top) | |
19431 | (top) | |
19432 | (top) | |
19433 | (top) | |
19434 | (top) | |
19435 | (top) | |
19436 | (top) | |
19437 | (top) | |
19438 | (top) | |
19439 | (top) | |
19440 | (top) | |
19441 | (top) | |
19442 | (top) | |
19443 | (top) | |
19444 | (top) | |
19445 | (top) | |
19446 | (top)) | |
19447 | ("i467" | |
19448 | "i465" | |
19449 | "i463" | |
19450 | "i461" | |
19451 | "i459" | |
19452 | "i457" | |
19453 | "i455" | |
19454 | "i453" | |
19455 | "i451" | |
19456 | "i449" | |
19457 | "i447" | |
19458 | "i445" | |
19459 | "i443" | |
19460 | "i441" | |
19461 | "i439" | |
19462 | "i437" | |
19463 | "i435" | |
19464 | "i433" | |
19465 | "i431" | |
19466 | "i429" | |
19467 | "i427" | |
19468 | "i425" | |
19469 | "i423" | |
19470 | "i421" | |
19471 | "i419" | |
19472 | "i417" | |
19473 | "i415" | |
19474 | "i413" | |
19475 | "i411" | |
19476 | "i409" | |
19477 | "i407" | |
19478 | "i405" | |
19479 | "i403" | |
19480 | "i401" | |
19481 | "i399" | |
19482 | "i398" | |
19483 | "i396" | |
19484 | "i393" | |
19485 | "i392" | |
19486 | "i391" | |
19487 | "i389" | |
19488 | "i388" | |
19489 | "i386" | |
19490 | "i384" | |
19491 | "i382" | |
19492 | "i380" | |
19493 | "i378" | |
19494 | "i376" | |
19495 | "i374" | |
19496 | "i372" | |
19497 | "i369" | |
19498 | "i367" | |
19499 | "i366" | |
19500 | "i364" | |
19501 | "i362" | |
19502 | "i360" | |
19503 | "i358" | |
19504 | "i357" | |
19505 | "i356" | |
19506 | "i355" | |
19507 | "i353" | |
19508 | "i352" | |
19509 | "i349" | |
19510 | "i347" | |
19511 | "i345" | |
19512 | "i343" | |
19513 | "i341" | |
19514 | "i339" | |
19515 | "i337" | |
19516 | "i336" | |
19517 | "i335" | |
19518 | "i333" | |
19519 | "i331" | |
19520 | "i330" | |
19521 | "i327" | |
19522 | "i326" | |
19523 | "i324" | |
19524 | "i322" | |
19525 | "i320" | |
19526 | "i318" | |
19527 | "i316" | |
19528 | "i314" | |
19529 | "i312" | |
19530 | "i310" | |
19531 | "i308" | |
19532 | "i305" | |
19533 | "i303" | |
19534 | "i301" | |
19535 | "i299" | |
19536 | "i297" | |
19537 | "i295" | |
19538 | "i293" | |
19539 | "i291" | |
19540 | "i289" | |
19541 | "i287" | |
19542 | "i285" | |
19543 | "i283" | |
19544 | "i281" | |
19545 | "i279" | |
19546 | "i277" | |
19547 | "i275" | |
19548 | "i273" | |
19549 | "i271" | |
19550 | "i269" | |
19551 | "i267" | |
19552 | "i265" | |
19553 | "i263" | |
19554 | "i261" | |
19555 | "i260" | |
19556 | "i257" | |
19557 | "i255" | |
19558 | "i254" | |
19559 | "i253" | |
19560 | "i252" | |
19561 | "i251" | |
19562 | "i249" | |
19563 | "i247" | |
19564 | "i245" | |
19565 | "i242" | |
19566 | "i240" | |
19567 | "i238" | |
19568 | "i236" | |
19569 | "i234" | |
19570 | "i232" | |
19571 | "i230" | |
19572 | "i228" | |
19573 | "i226" | |
19574 | "i224" | |
19575 | "i222" | |
19576 | "i220" | |
19577 | "i218" | |
19578 | "i216" | |
19579 | "i214" | |
19580 | "i212" | |
19581 | "i210" | |
19582 | "i208")) | |
19583 | #(ribcage | |
19584 | (define-structure | |
19585 | define-expansion-accessors | |
19586 | define-expansion-constructors) | |
19587 | ((top) | |
19588 | (top) | |
19589 | (top)) | |
19590 | ("i46" | |
19591 | "i45" | |
19592 | "i44"))) | |
19593 | (hygiene | |
19594 | guile))) | |
19595 | 4) | |
19596 | #t | |
19597 | #f) | |
19598 | '... | |
19599 | '#(syntax-object | |
19600 | ... | |
19601 | ((top) | |
19602 | #(ribcage () () ()) | |
19603 | #(ribcage () () ()) | |
19604 | #(ribcage | |
19605 | #(x) | |
19606 | #((top)) | |
19607 | #("i2230")) | |
19608 | #(ribcage | |
19609 | (lambda-var-list | |
19610 | gen-var | |
19611 | strip | |
19612 | expand-lambda-case | |
19613 | lambda*-formals | |
19614 | expand-simple-lambda | |
19615 | lambda-formals | |
19616 | ellipsis? | |
19617 | expand-void | |
19618 | eval-local-transformer | |
19619 | expand-local-syntax | |
19620 | expand-body | |
19621 | expand-macro | |
19622 | expand-application | |
19623 | expand-expr | |
19624 | expand | |
19625 | syntax-type | |
19626 | expand-when-list | |
19627 | expand-install-global | |
19628 | expand-top-sequence | |
19629 | expand-sequence | |
19630 | source-wrap | |
19631 | wrap | |
19632 | bound-id-member? | |
19633 | distinct-bound-ids? | |
19634 | valid-bound-ids? | |
19635 | bound-id=? | |
19636 | free-id=? | |
19637 | id-var-name | |
19638 | same-marks? | |
19639 | join-marks | |
19640 | join-wraps | |
19641 | smart-append | |
19642 | make-binding-wrap | |
19643 | extend-ribcage! | |
19644 | make-empty-ribcage | |
19645 | new-mark | |
19646 | anti-mark | |
19647 | the-anti-mark | |
19648 | top-marked? | |
19649 | top-wrap | |
19650 | empty-wrap | |
19651 | set-ribcage-labels! | |
19652 | set-ribcage-marks! | |
19653 | set-ribcage-symnames! | |
19654 | ribcage-labels | |
19655 | ribcage-marks | |
19656 | ribcage-symnames | |
19657 | ribcage? | |
19658 | make-ribcage | |
19659 | gen-labels | |
19660 | gen-label | |
19661 | make-rename | |
19662 | rename-marks | |
19663 | rename-new | |
19664 | rename-old | |
19665 | subst-rename? | |
19666 | wrap-subst | |
19667 | wrap-marks | |
19668 | make-wrap | |
19669 | id-sym-name&marks | |
19670 | id-sym-name | |
19671 | id? | |
19672 | nonsymbol-id? | |
19673 | global-extend | |
19674 | lookup | |
19675 | macros-only-env | |
19676 | extend-var-env | |
19677 | extend-env | |
19678 | null-env | |
19679 | binding-value | |
19680 | binding-type | |
19681 | make-binding | |
19682 | arg-check | |
19683 | source-annotation | |
19684 | no-source | |
19685 | set-syntax-object-module! | |
19686 | set-syntax-object-wrap! | |
19687 | set-syntax-object-expression! | |
19688 | syntax-object-module | |
19689 | syntax-object-wrap | |
19690 | syntax-object-expression | |
19691 | syntax-object? | |
19692 | make-syntax-object | |
19693 | build-lexical-var | |
19694 | build-letrec | |
19695 | build-named-let | |
19696 | build-let | |
19697 | build-sequence | |
19698 | build-data | |
19699 | build-primref | |
19700 | build-lambda-case | |
19701 | build-case-lambda | |
19702 | build-simple-lambda | |
19703 | build-global-definition | |
19704 | build-global-assignment | |
19705 | build-global-reference | |
19706 | analyze-variable | |
19707 | build-lexical-assignment | |
19708 | build-lexical-reference | |
19709 | build-dynlet | |
19710 | build-conditional | |
19711 | build-application | |
19712 | build-void | |
19713 | maybe-name-value! | |
19714 | decorate-source | |
19715 | get-global-definition-hook | |
19716 | put-global-definition-hook | |
19717 | gensym-hook | |
19718 | local-eval-hook | |
19719 | top-level-eval-hook | |
19720 | fx< | |
19721 | fx= | |
19722 | fx- | |
19723 | fx+ | |
19724 | set-lambda-meta! | |
19725 | lambda-meta | |
19726 | lambda? | |
19727 | make-dynlet | |
19728 | make-letrec | |
19729 | make-let | |
19730 | make-lambda-case | |
19731 | make-lambda | |
19732 | make-sequence | |
19733 | make-application | |
19734 | make-conditional | |
19735 | make-toplevel-define | |
19736 | make-toplevel-set | |
19737 | make-toplevel-ref | |
19738 | make-module-set | |
19739 | make-module-ref | |
19740 | make-lexical-set | |
19741 | make-lexical-ref | |
19742 | make-primitive-ref | |
19743 | make-const | |
19744 | make-void) | |
19745 | ((top) | |
19746 | (top) | |
19747 | (top) | |
19748 | (top) | |
19749 | (top) | |
19750 | (top) | |
19751 | (top) | |
19752 | (top) | |
19753 | (top) | |
19754 | (top) | |
19755 | (top) | |
19756 | (top) | |
19757 | (top) | |
19758 | (top) | |
19759 | (top) | |
19760 | (top) | |
19761 | (top) | |
19762 | (top) | |
19763 | (top) | |
19764 | (top) | |
19765 | (top) | |
19766 | (top) | |
19767 | (top) | |
19768 | (top) | |
19769 | (top) | |
19770 | (top) | |
19771 | (top) | |
19772 | (top) | |
19773 | (top) | |
19774 | (top) | |
19775 | (top) | |
19776 | (top) | |
19777 | (top) | |
19778 | (top) | |
19779 | (top) | |
19780 | (top) | |
19781 | (top) | |
19782 | (top) | |
19783 | (top) | |
19784 | (top) | |
19785 | (top) | |
19786 | (top) | |
19787 | (top) | |
19788 | (top) | |
19789 | (top) | |
19790 | (top) | |
19791 | (top) | |
19792 | (top) | |
19793 | (top) | |
19794 | (top) | |
19795 | (top) | |
19796 | (top) | |
19797 | (top) | |
19798 | (top) | |
19799 | (top) | |
19800 | (top) | |
19801 | (top) | |
19802 | (top) | |
19803 | (top) | |
19804 | (top) | |
19805 | (top) | |
19806 | (top) | |
19807 | (top) | |
19808 | (top) | |
19809 | (top) | |
19810 | (top) | |
19811 | (top) | |
19812 | (top) | |
19813 | (top) | |
19814 | (top) | |
19815 | (top) | |
19816 | (top) | |
19817 | (top) | |
19818 | (top) | |
19819 | (top) | |
19820 | (top) | |
19821 | (top) | |
19822 | (top) | |
19823 | (top) | |
19824 | (top) | |
19825 | (top) | |
19826 | (top) | |
19827 | (top) | |
19828 | (top) | |
19829 | (top) | |
19830 | (top) | |
19831 | (top) | |
19832 | (top) | |
19833 | (top) | |
19834 | (top) | |
19835 | (top) | |
19836 | (top) | |
19837 | (top) | |
19838 | (top) | |
19839 | (top) | |
19840 | (top) | |
19841 | (top) | |
19842 | (top) | |
19843 | (top) | |
19844 | (top) | |
19845 | (top) | |
19846 | (top) | |
19847 | (top) | |
19848 | (top) | |
19849 | (top) | |
19850 | (top) | |
19851 | (top) | |
19852 | (top) | |
19853 | (top) | |
19854 | (top) | |
19855 | (top) | |
19856 | (top) | |
19857 | (top) | |
19858 | (top) | |
19859 | (top) | |
19860 | (top) | |
19861 | (top) | |
19862 | (top) | |
19863 | (top) | |
19864 | (top) | |
19865 | (top) | |
19866 | (top) | |
19867 | (top) | |
19868 | (top) | |
19869 | (top) | |
19870 | (top) | |
19871 | (top) | |
19872 | (top) | |
19873 | (top) | |
19874 | (top) | |
19875 | (top) | |
19876 | (top) | |
19877 | (top) | |
19878 | (top) | |
19879 | (top) | |
19880 | (top)) | |
19881 | ("i467" | |
19882 | "i465" | |
19883 | "i463" | |
19884 | "i461" | |
19885 | "i459" | |
19886 | "i457" | |
19887 | "i455" | |
19888 | "i453" | |
19889 | "i451" | |
19890 | "i449" | |
19891 | "i447" | |
19892 | "i445" | |
19893 | "i443" | |
19894 | "i441" | |
19895 | "i439" | |
19896 | "i437" | |
19897 | "i435" | |
19898 | "i433" | |
19899 | "i431" | |
19900 | "i429" | |
19901 | "i427" | |
19902 | "i425" | |
19903 | "i423" | |
19904 | "i421" | |
19905 | "i419" | |
19906 | "i417" | |
19907 | "i415" | |
19908 | "i413" | |
19909 | "i411" | |
19910 | "i409" | |
19911 | "i407" | |
19912 | "i405" | |
19913 | "i403" | |
19914 | "i401" | |
19915 | "i399" | |
19916 | "i398" | |
19917 | "i396" | |
19918 | "i393" | |
19919 | "i392" | |
19920 | "i391" | |
19921 | "i389" | |
19922 | "i388" | |
19923 | "i386" | |
19924 | "i384" | |
19925 | "i382" | |
19926 | "i380" | |
19927 | "i378" | |
19928 | "i376" | |
19929 | "i374" | |
19930 | "i372" | |
19931 | "i369" | |
19932 | "i367" | |
19933 | "i366" | |
19934 | "i364" | |
19935 | "i362" | |
19936 | "i360" | |
19937 | "i358" | |
19938 | "i357" | |
19939 | "i356" | |
19940 | "i355" | |
19941 | "i353" | |
19942 | "i352" | |
19943 | "i349" | |
19944 | "i347" | |
19945 | "i345" | |
19946 | "i343" | |
19947 | "i341" | |
19948 | "i339" | |
19949 | "i337" | |
19950 | "i336" | |
19951 | "i335" | |
19952 | "i333" | |
19953 | "i331" | |
19954 | "i330" | |
19955 | "i327" | |
19956 | "i326" | |
19957 | "i324" | |
19958 | "i322" | |
19959 | "i320" | |
19960 | "i318" | |
19961 | "i316" | |
19962 | "i314" | |
19963 | "i312" | |
19964 | "i310" | |
19965 | "i308" | |
19966 | "i305" | |
19967 | "i303" | |
19968 | "i301" | |
19969 | "i299" | |
19970 | "i297" | |
19971 | "i295" | |
19972 | "i293" | |
19973 | "i291" | |
19974 | "i289" | |
19975 | "i287" | |
19976 | "i285" | |
19977 | "i283" | |
19978 | "i281" | |
19979 | "i279" | |
19980 | "i277" | |
19981 | "i275" | |
19982 | "i273" | |
19983 | "i271" | |
19984 | "i269" | |
19985 | "i267" | |
19986 | "i265" | |
19987 | "i263" | |
19988 | "i261" | |
19989 | "i260" | |
19990 | "i257" | |
19991 | "i255" | |
19992 | "i254" | |
19993 | "i253" | |
19994 | "i252" | |
19995 | "i251" | |
19996 | "i249" | |
19997 | "i247" | |
19998 | "i245" | |
19999 | "i242" | |
20000 | "i240" | |
20001 | "i238" | |
20002 | "i236" | |
20003 | "i234" | |
20004 | "i232" | |
20005 | "i230" | |
20006 | "i228" | |
20007 | "i226" | |
20008 | "i224" | |
20009 | "i222" | |
20010 | "i220" | |
20011 | "i218" | |
20012 | "i216" | |
20013 | "i214" | |
20014 | "i212" | |
20015 | "i210" | |
20016 | "i208")) | |
20017 | #(ribcage | |
20018 | (define-structure | |
20019 | define-expansion-accessors | |
20020 | define-expansion-constructors) | |
20021 | ((top) (top) (top)) | |
20022 | ("i46" "i45" "i44"))) | |
20023 | (hygiene guile)))) | |
20024 | (eq? (#{id-var-name 4332}# | |
20025 | #{x 13425}# | |
20026 | '(())) | |
20027 | (#{id-var-name 4332}# | |
014de9e2 AW |
20028 | '#(syntax-object |
20029 | ... | |
20030 | ((top) | |
20031 | #(ribcage () () ()) | |
20032 | #(ribcage () () ()) | |
20033 | #(ribcage | |
20034 | #(x) | |
20035 | #((top)) | |
34c5fe83 | 20036 | #("i2230")) |
014de9e2 AW |
20037 | #(ribcage |
20038 | (lambda-var-list | |
20039 | gen-var | |
20040 | strip | |
78a47455 | 20041 | expand-lambda-case |
014de9e2 | 20042 | lambda*-formals |
78a47455 | 20043 | expand-simple-lambda |
014de9e2 AW |
20044 | lambda-formals |
20045 | ellipsis? | |
78a47455 | 20046 | expand-void |
014de9e2 | 20047 | eval-local-transformer |
78a47455 AW |
20048 | expand-local-syntax |
20049 | expand-body | |
20050 | expand-macro | |
20051 | expand-application | |
20052 | expand-expr | |
20053 | expand | |
014de9e2 | 20054 | syntax-type |
78a47455 AW |
20055 | expand-when-list |
20056 | expand-install-global | |
20057 | expand-top-sequence | |
20058 | expand-sequence | |
014de9e2 AW |
20059 | source-wrap |
20060 | wrap | |
20061 | bound-id-member? | |
20062 | distinct-bound-ids? | |
20063 | valid-bound-ids? | |
20064 | bound-id=? | |
20065 | free-id=? | |
20066 | id-var-name | |
20067 | same-marks? | |
20068 | join-marks | |
20069 | join-wraps | |
20070 | smart-append | |
20071 | make-binding-wrap | |
20072 | extend-ribcage! | |
20073 | make-empty-ribcage | |
20074 | new-mark | |
20075 | anti-mark | |
20076 | the-anti-mark | |
20077 | top-marked? | |
20078 | top-wrap | |
20079 | empty-wrap | |
20080 | set-ribcage-labels! | |
20081 | set-ribcage-marks! | |
20082 | set-ribcage-symnames! | |
20083 | ribcage-labels | |
20084 | ribcage-marks | |
20085 | ribcage-symnames | |
20086 | ribcage? | |
20087 | make-ribcage | |
20088 | gen-labels | |
20089 | gen-label | |
20090 | make-rename | |
20091 | rename-marks | |
20092 | rename-new | |
20093 | rename-old | |
20094 | subst-rename? | |
20095 | wrap-subst | |
20096 | wrap-marks | |
20097 | make-wrap | |
20098 | id-sym-name&marks | |
20099 | id-sym-name | |
20100 | id? | |
20101 | nonsymbol-id? | |
20102 | global-extend | |
20103 | lookup | |
20104 | macros-only-env | |
20105 | extend-var-env | |
20106 | extend-env | |
20107 | null-env | |
20108 | binding-value | |
20109 | binding-type | |
20110 | make-binding | |
20111 | arg-check | |
20112 | source-annotation | |
20113 | no-source | |
20114 | set-syntax-object-module! | |
20115 | set-syntax-object-wrap! | |
20116 | set-syntax-object-expression! | |
20117 | syntax-object-module | |
20118 | syntax-object-wrap | |
20119 | syntax-object-expression | |
20120 | syntax-object? | |
20121 | make-syntax-object | |
20122 | build-lexical-var | |
20123 | build-letrec | |
20124 | build-named-let | |
20125 | build-let | |
20126 | build-sequence | |
20127 | build-data | |
20128 | build-primref | |
20129 | build-lambda-case | |
20130 | build-case-lambda | |
20131 | build-simple-lambda | |
20132 | build-global-definition | |
20133 | build-global-assignment | |
20134 | build-global-reference | |
20135 | analyze-variable | |
20136 | build-lexical-assignment | |
20137 | build-lexical-reference | |
20138 | build-dynlet | |
20139 | build-conditional | |
20140 | build-application | |
20141 | build-void | |
20142 | maybe-name-value! | |
20143 | decorate-source | |
20144 | get-global-definition-hook | |
20145 | put-global-definition-hook | |
20146 | gensym-hook | |
20147 | local-eval-hook | |
20148 | top-level-eval-hook | |
20149 | fx< | |
20150 | fx= | |
20151 | fx- | |
20152 | fx+ | |
20153 | set-lambda-meta! | |
20154 | lambda-meta | |
20155 | lambda? | |
20156 | make-dynlet | |
20157 | make-letrec | |
20158 | make-let | |
20159 | make-lambda-case | |
20160 | make-lambda | |
20161 | make-sequence | |
20162 | make-application | |
20163 | make-conditional | |
20164 | make-toplevel-define | |
20165 | make-toplevel-set | |
20166 | make-toplevel-ref | |
20167 | make-module-set | |
20168 | make-module-ref | |
20169 | make-lexical-set | |
20170 | make-lexical-ref | |
20171 | make-primitive-ref | |
20172 | make-const | |
20173 | make-void) | |
20174 | ((top) | |
20175 | (top) | |
20176 | (top) | |
20177 | (top) | |
20178 | (top) | |
20179 | (top) | |
20180 | (top) | |
20181 | (top) | |
20182 | (top) | |
20183 | (top) | |
20184 | (top) | |
20185 | (top) | |
20186 | (top) | |
20187 | (top) | |
20188 | (top) | |
20189 | (top) | |
20190 | (top) | |
20191 | (top) | |
20192 | (top) | |
20193 | (top) | |
20194 | (top) | |
20195 | (top) | |
20196 | (top) | |
20197 | (top) | |
20198 | (top) | |
20199 | (top) | |
20200 | (top) | |
20201 | (top) | |
20202 | (top) | |
20203 | (top) | |
20204 | (top) | |
20205 | (top) | |
20206 | (top) | |
20207 | (top) | |
20208 | (top) | |
20209 | (top) | |
20210 | (top) | |
20211 | (top) | |
20212 | (top) | |
20213 | (top) | |
20214 | (top) | |
20215 | (top) | |
20216 | (top) | |
20217 | (top) | |
20218 | (top) | |
20219 | (top) | |
20220 | (top) | |
20221 | (top) | |
20222 | (top) | |
20223 | (top) | |
20224 | (top) | |
20225 | (top) | |
20226 | (top) | |
20227 | (top) | |
20228 | (top) | |
20229 | (top) | |
20230 | (top) | |
20231 | (top) | |
20232 | (top) | |
20233 | (top) | |
20234 | (top) | |
20235 | (top) | |
20236 | (top) | |
20237 | (top) | |
20238 | (top) | |
20239 | (top) | |
20240 | (top) | |
20241 | (top) | |
20242 | (top) | |
20243 | (top) | |
20244 | (top) | |
20245 | (top) | |
20246 | (top) | |
20247 | (top) | |
20248 | (top) | |
20249 | (top) | |
20250 | (top) | |
20251 | (top) | |
20252 | (top) | |
20253 | (top) | |
20254 | (top) | |
20255 | (top) | |
20256 | (top) | |
20257 | (top) | |
20258 | (top) | |
20259 | (top) | |
20260 | (top) | |
20261 | (top) | |
20262 | (top) | |
20263 | (top) | |
20264 | (top) | |
20265 | (top) | |
20266 | (top) | |
20267 | (top) | |
20268 | (top) | |
20269 | (top) | |
20270 | (top) | |
20271 | (top) | |
20272 | (top) | |
20273 | (top) | |
20274 | (top) | |
20275 | (top) | |
20276 | (top) | |
20277 | (top) | |
20278 | (top) | |
20279 | (top) | |
20280 | (top) | |
20281 | (top) | |
20282 | (top) | |
20283 | (top) | |
20284 | (top) | |
20285 | (top) | |
20286 | (top) | |
20287 | (top) | |
20288 | (top) | |
20289 | (top) | |
20290 | (top) | |
20291 | (top) | |
20292 | (top) | |
20293 | (top) | |
20294 | (top) | |
20295 | (top) | |
20296 | (top) | |
20297 | (top) | |
20298 | (top) | |
20299 | (top) | |
20300 | (top) | |
20301 | (top) | |
20302 | (top) | |
20303 | (top) | |
20304 | (top) | |
20305 | (top) | |
20306 | (top) | |
20307 | (top) | |
20308 | (top) | |
20309 | (top)) | |
34c5fe83 AW |
20310 | ("i467" |
20311 | "i465" | |
20312 | "i463" | |
20313 | "i461" | |
20314 | "i459" | |
20315 | "i457" | |
20316 | "i455" | |
20317 | "i453" | |
20318 | "i451" | |
20319 | "i449" | |
20320 | "i447" | |
20321 | "i445" | |
20322 | "i443" | |
20323 | "i441" | |
20324 | "i439" | |
20325 | "i437" | |
20326 | "i435" | |
20327 | "i433" | |
20328 | "i431" | |
20329 | "i429" | |
20330 | "i427" | |
20331 | "i425" | |
20332 | "i423" | |
20333 | "i421" | |
20334 | "i419" | |
20335 | "i417" | |
20336 | "i415" | |
20337 | "i413" | |
20338 | "i411" | |
20339 | "i409" | |
20340 | "i407" | |
20341 | "i405" | |
20342 | "i403" | |
20343 | "i401" | |
20344 | "i399" | |
014de9e2 | 20345 | "i398" |
34c5fe83 AW |
20346 | "i396" |
20347 | "i393" | |
014de9e2 AW |
20348 | "i392" |
20349 | "i391" | |
34c5fe83 | 20350 | "i389" |
014de9e2 | 20351 | "i388" |
34c5fe83 AW |
20352 | "i386" |
20353 | "i384" | |
20354 | "i382" | |
20355 | "i380" | |
20356 | "i378" | |
20357 | "i376" | |
20358 | "i374" | |
20359 | "i372" | |
20360 | "i369" | |
20361 | "i367" | |
014de9e2 | 20362 | "i366" |
34c5fe83 AW |
20363 | "i364" |
20364 | "i362" | |
20365 | "i360" | |
20366 | "i358" | |
014de9e2 AW |
20367 | "i357" |
20368 | "i356" | |
20369 | "i355" | |
34c5fe83 | 20370 | "i353" |
014de9e2 | 20371 | "i352" |
34c5fe83 AW |
20372 | "i349" |
20373 | "i347" | |
20374 | "i345" | |
20375 | "i343" | |
20376 | "i341" | |
20377 | "i339" | |
20378 | "i337" | |
014de9e2 AW |
20379 | "i336" |
20380 | "i335" | |
34c5fe83 AW |
20381 | "i333" |
20382 | "i331" | |
014de9e2 | 20383 | "i330" |
34c5fe83 | 20384 | "i327" |
014de9e2 | 20385 | "i326" |
34c5fe83 AW |
20386 | "i324" |
20387 | "i322" | |
20388 | "i320" | |
20389 | "i318" | |
20390 | "i316" | |
20391 | "i314" | |
20392 | "i312" | |
20393 | "i310" | |
20394 | "i308" | |
20395 | "i305" | |
20396 | "i303" | |
20397 | "i301" | |
20398 | "i299" | |
20399 | "i297" | |
20400 | "i295" | |
20401 | "i293" | |
20402 | "i291" | |
20403 | "i289" | |
20404 | "i287" | |
20405 | "i285" | |
20406 | "i283" | |
20407 | "i281" | |
20408 | "i279" | |
20409 | "i277" | |
20410 | "i275" | |
20411 | "i273" | |
20412 | "i271" | |
20413 | "i269" | |
20414 | "i267" | |
20415 | "i265" | |
20416 | "i263" | |
20417 | "i261" | |
014de9e2 | 20418 | "i260" |
34c5fe83 AW |
20419 | "i257" |
20420 | "i255" | |
014de9e2 AW |
20421 | "i254" |
20422 | "i253" | |
20423 | "i252" | |
20424 | "i251" | |
34c5fe83 AW |
20425 | "i249" |
20426 | "i247" | |
20427 | "i245" | |
20428 | "i242" | |
20429 | "i240" | |
20430 | "i238" | |
20431 | "i236" | |
20432 | "i234" | |
20433 | "i232" | |
20434 | "i230" | |
20435 | "i228" | |
20436 | "i226" | |
20437 | "i224" | |
20438 | "i222" | |
20439 | "i220" | |
20440 | "i218" | |
20441 | "i216" | |
20442 | "i214" | |
20443 | "i212" | |
20444 | "i210" | |
20445 | "i208")) | |
014de9e2 AW |
20446 | #(ribcage |
20447 | (define-structure | |
20448 | define-expansion-accessors | |
20449 | define-expansion-constructors) | |
20450 | ((top) (top) (top)) | |
34c5fe83 | 20451 | ("i46" "i45" "i44"))) |
014de9e2 | 20452 | (hygiene guile)) |
78a47455 AW |
20453 | '(()))) |
20454 | #f) | |
20455 | #f)))) | |
20456 | #{pvars 13301}#)) | |
20457 | (syntax-violation | |
20458 | 'syntax-case | |
20459 | "misplaced ellipsis" | |
20460 | #{pat 13142}#) | |
20461 | (let ((#{y 13501}# | |
20462 | (gensym | |
20463 | (string-append (symbol->string 'tmp) " ")))) | |
20464 | (#{build-application 4280}# | |
20465 | #f | |
20466 | (let ((#{req 13651}# (list 'tmp)) | |
20467 | (#{vars 13653}# (list #{y 13501}#)) | |
20468 | (#{exp 13655}# | |
20469 | (let ((#{y 13672}# | |
20470 | (make-struct/no-tail | |
20471 | (vector-ref %expanded-vtables 3) | |
20472 | #f | |
20473 | 'tmp | |
20474 | #{y 13501}#))) | |
20475 | (let ((#{test-exp 13676}# | |
20476 | (let ((#{tmp 13685}# | |
20477 | ($sc-dispatch | |
20478 | #{fender 13143}# | |
20479 | '#(atom #t)))) | |
20480 | (if #{tmp 13685}# | |
20481 | (@apply | |
20482 | (lambda () #{y 13672}#) | |
20483 | #{tmp 13685}#) | |
20484 | (let ((#{then-exp 13703}# | |
20485 | (#{build-dispatch-call 12155}# | |
20486 | #{pvars 13301}# | |
20487 | #{fender 13143}# | |
20488 | #{y 13672}# | |
20489 | #{r 13141}# | |
20490 | #{mod 13145}#)) | |
20491 | (#{else-exp 13704}# | |
20492 | (make-struct/no-tail | |
20493 | (vector-ref | |
20494 | %expanded-vtables | |
20495 | 1) | |
20496 | #f | |
20497 | #f))) | |
20498 | (make-struct/no-tail | |
20499 | (vector-ref | |
20500 | %expanded-vtables | |
20501 | 10) | |
20502 | #f | |
20503 | #{y 13672}# | |
20504 | #{then-exp 13703}# | |
20505 | #{else-exp 13704}#))))) | |
20506 | (#{then-exp 13677}# | |
20507 | (#{build-dispatch-call 12155}# | |
20508 | #{pvars 13301}# | |
20509 | #{exp 13144}# | |
20510 | #{y 13672}# | |
20511 | #{r 13141}# | |
20512 | #{mod 13145}#)) | |
20513 | (#{else-exp 13678}# | |
20514 | (#{gen-syntax-case 12157}# | |
20515 | #{x 13138}# | |
20516 | #{keys 13139}# | |
20517 | #{clauses 13140}# | |
20518 | #{r 13141}# | |
20519 | #{mod 13145}#))) | |
20520 | (make-struct/no-tail | |
20521 | (vector-ref %expanded-vtables 10) | |
20522 | #f | |
20523 | #{test-exp 13676}# | |
20524 | #{then-exp 13677}# | |
20525 | #{else-exp 13678}#))))) | |
20526 | (let ((#{body 13660}# | |
20527 | (make-struct/no-tail | |
20528 | (vector-ref %expanded-vtables 14) | |
20529 | #f | |
20530 | #{req 13651}# | |
20531 | #f | |
20532 | #f | |
20533 | #f | |
20534 | '() | |
20535 | #{vars 13653}# | |
20536 | #{exp 13655}# | |
20537 | #f))) | |
20538 | (make-struct/no-tail | |
20539 | (vector-ref %expanded-vtables 13) | |
20540 | #f | |
20541 | '() | |
20542 | #{body 13660}#))) | |
20543 | (list (if (eq? #{p 13300}# 'any) | |
20544 | (let ((#{fun-exp 13726}# | |
20545 | (if (equal? | |
20546 | (module-name (current-module)) | |
20547 | '(guile)) | |
20548 | (make-struct/no-tail | |
20549 | (vector-ref %expanded-vtables 7) | |
20550 | #f | |
20551 | 'list) | |
20552 | (make-struct/no-tail | |
20553 | (vector-ref %expanded-vtables 5) | |
20554 | #f | |
20555 | '(guile) | |
20556 | 'list | |
20557 | #f))) | |
20558 | (#{arg-exps 13727}# (list #{x 13138}#))) | |
20559 | (make-struct/no-tail | |
20560 | (vector-ref %expanded-vtables 11) | |
20561 | #f | |
20562 | #{fun-exp 13726}# | |
20563 | #{arg-exps 13727}#)) | |
20564 | (let ((#{fun-exp 13750}# | |
20565 | (if (equal? | |
20566 | (module-name (current-module)) | |
20567 | '(guile)) | |
20568 | (make-struct/no-tail | |
20569 | (vector-ref %expanded-vtables 7) | |
20570 | #f | |
20571 | '$sc-dispatch) | |
20572 | (make-struct/no-tail | |
20573 | (vector-ref %expanded-vtables 5) | |
20574 | #f | |
20575 | '(guile) | |
20576 | '$sc-dispatch | |
20577 | #f))) | |
20578 | (#{arg-exps 13751}# | |
20579 | (list #{x 13138}# | |
20580 | (make-struct/no-tail | |
20581 | (vector-ref | |
20582 | %expanded-vtables | |
20583 | 1) | |
20584 | #f | |
20585 | #{p 13300}#)))) | |
20586 | (make-struct/no-tail | |
20587 | (vector-ref %expanded-vtables 11) | |
20588 | #f | |
20589 | #{fun-exp 13750}# | |
20590 | #{arg-exps 13751}#)))))))))))) | |
20591 | (#{gen-syntax-case 12157}# | |
20592 | (lambda (#{x 12566}# | |
20593 | #{keys 12567}# | |
20594 | #{clauses 12568}# | |
20595 | #{r 12569}# | |
20596 | #{mod 12570}#) | |
20597 | (if (null? #{clauses 12568}#) | |
20598 | (let ((#{fun-exp 12575}# | |
20599 | (if (equal? (module-name (current-module)) '(guile)) | |
20600 | (make-struct/no-tail | |
20601 | (vector-ref %expanded-vtables 7) | |
20602 | #f | |
20603 | 'syntax-violation) | |
20604 | (make-struct/no-tail | |
20605 | (vector-ref %expanded-vtables 5) | |
20606 | #f | |
20607 | '(guile) | |
20608 | 'syntax-violation | |
20609 | #f))) | |
20610 | (#{arg-exps 12576}# | |
20611 | (list (make-struct/no-tail | |
20612 | (vector-ref %expanded-vtables 1) | |
20613 | #f | |
20614 | #f) | |
20615 | (make-struct/no-tail | |
20616 | (vector-ref %expanded-vtables 1) | |
20617 | #f | |
20618 | "source expression failed to match any pattern") | |
20619 | #{x 12566}#))) | |
20620 | (make-struct/no-tail | |
20621 | (vector-ref %expanded-vtables 11) | |
20622 | #f | |
20623 | #{fun-exp 12575}# | |
20624 | #{arg-exps 12576}#)) | |
20625 | (let ((#{tmp 12609}# (car #{clauses 12568}#))) | |
20626 | (let ((#{tmp 12610}# | |
20627 | ($sc-dispatch #{tmp 12609}# '(any any)))) | |
20628 | (if #{tmp 12610}# | |
20629 | (@apply | |
20630 | (lambda (#{pat 12612}# #{exp 12613}#) | |
20631 | (if (if (if (symbol? #{pat 12612}#) | |
20632 | #t | |
20633 | (if (if (vector? #{pat 12612}#) | |
20634 | (if (= (vector-length #{pat 12612}#) | |
20635 | 4) | |
20636 | (eq? (vector-ref #{pat 12612}# 0) | |
20637 | 'syntax-object) | |
20638 | #f) | |
20639 | #f) | |
20640 | (symbol? (vector-ref #{pat 12612}# 1)) | |
20641 | #f)) | |
20642 | (and-map | |
20643 | (lambda (#{x 12640}#) | |
20644 | (not (if (eq? (if (if (vector? | |
20645 | #{pat 12612}#) | |
20646 | (if (= (vector-length | |
20647 | #{pat 12612}#) | |
20648 | 4) | |
20649 | (eq? (vector-ref | |
20650 | #{pat 12612}# | |
20651 | 0) | |
20652 | 'syntax-object) | |
20653 | #f) | |
20654 | #f) | |
20655 | (vector-ref #{pat 12612}# 1) | |
20656 | #{pat 12612}#) | |
20657 | (if (if (vector? #{x 12640}#) | |
20658 | (if (= (vector-length | |
20659 | #{x 12640}#) | |
20660 | 4) | |
20661 | (eq? (vector-ref | |
20662 | #{x 12640}# | |
20663 | 0) | |
20664 | 'syntax-object) | |
20665 | #f) | |
20666 | #f) | |
20667 | (vector-ref #{x 12640}# 1) | |
20668 | #{x 12640}#)) | |
20669 | (eq? (#{id-var-name 4332}# | |
20670 | #{pat 12612}# | |
20671 | '(())) | |
20672 | (#{id-var-name 4332}# | |
20673 | #{x 12640}# | |
20674 | '(()))) | |
20675 | #f))) | |
20676 | (cons '#(syntax-object | |
20677 | ... | |
20678 | ((top) | |
20679 | #(ribcage | |
20680 | #(pat exp) | |
20681 | #((top) (top)) | |
20682 | #("i3911" "i3912")) | |
20683 | #(ribcage () () ()) | |
20684 | #(ribcage | |
20685 | #(x keys clauses r mod) | |
20686 | #((top) (top) (top) (top) (top)) | |
20687 | #("i3900" | |
20688 | "i3901" | |
20689 | "i3902" | |
20690 | "i3903" | |
20691 | "i3904")) | |
20692 | #(ribcage | |
20693 | (gen-syntax-case | |
20694 | gen-clause | |
20695 | build-dispatch-call | |
20696 | convert-pattern) | |
20697 | ((top) (top) (top) (top)) | |
20698 | ("i3710" "i3708" "i3706" "i3704")) | |
20699 | #(ribcage | |
20700 | (lambda-var-list | |
20701 | gen-var | |
20702 | strip | |
20703 | expand-lambda-case | |
20704 | lambda*-formals | |
20705 | expand-simple-lambda | |
20706 | lambda-formals | |
20707 | ellipsis? | |
20708 | expand-void | |
20709 | eval-local-transformer | |
20710 | expand-local-syntax | |
20711 | expand-body | |
20712 | expand-macro | |
20713 | expand-application | |
20714 | expand-expr | |
20715 | expand | |
20716 | syntax-type | |
20717 | expand-when-list | |
20718 | expand-install-global | |
20719 | expand-top-sequence | |
20720 | expand-sequence | |
20721 | source-wrap | |
20722 | wrap | |
20723 | bound-id-member? | |
20724 | distinct-bound-ids? | |
20725 | valid-bound-ids? | |
20726 | bound-id=? | |
20727 | free-id=? | |
20728 | id-var-name | |
20729 | same-marks? | |
20730 | join-marks | |
20731 | join-wraps | |
20732 | smart-append | |
20733 | make-binding-wrap | |
20734 | extend-ribcage! | |
20735 | make-empty-ribcage | |
20736 | new-mark | |
20737 | anti-mark | |
20738 | the-anti-mark | |
20739 | top-marked? | |
20740 | top-wrap | |
20741 | empty-wrap | |
20742 | set-ribcage-labels! | |
20743 | set-ribcage-marks! | |
20744 | set-ribcage-symnames! | |
20745 | ribcage-labels | |
20746 | ribcage-marks | |
20747 | ribcage-symnames | |
20748 | ribcage? | |
20749 | make-ribcage | |
20750 | gen-labels | |
20751 | gen-label | |
20752 | make-rename | |
20753 | rename-marks | |
20754 | rename-new | |
20755 | rename-old | |
20756 | subst-rename? | |
20757 | wrap-subst | |
20758 | wrap-marks | |
20759 | make-wrap | |
20760 | id-sym-name&marks | |
20761 | id-sym-name | |
20762 | id? | |
20763 | nonsymbol-id? | |
20764 | global-extend | |
20765 | lookup | |
20766 | macros-only-env | |
20767 | extend-var-env | |
20768 | extend-env | |
20769 | null-env | |
20770 | binding-value | |
20771 | binding-type | |
20772 | make-binding | |
20773 | arg-check | |
20774 | source-annotation | |
20775 | no-source | |
20776 | set-syntax-object-module! | |
20777 | set-syntax-object-wrap! | |
20778 | set-syntax-object-expression! | |
20779 | syntax-object-module | |
20780 | syntax-object-wrap | |
20781 | syntax-object-expression | |
20782 | syntax-object? | |
20783 | make-syntax-object | |
20784 | build-lexical-var | |
20785 | build-letrec | |
20786 | build-named-let | |
20787 | build-let | |
20788 | build-sequence | |
20789 | build-data | |
20790 | build-primref | |
20791 | build-lambda-case | |
20792 | build-case-lambda | |
20793 | build-simple-lambda | |
20794 | build-global-definition | |
20795 | build-global-assignment | |
20796 | build-global-reference | |
20797 | analyze-variable | |
20798 | build-lexical-assignment | |
20799 | build-lexical-reference | |
20800 | build-dynlet | |
20801 | build-conditional | |
20802 | build-application | |
20803 | build-void | |
20804 | maybe-name-value! | |
20805 | decorate-source | |
20806 | get-global-definition-hook | |
20807 | put-global-definition-hook | |
20808 | gensym-hook | |
20809 | local-eval-hook | |
20810 | top-level-eval-hook | |
20811 | fx< | |
20812 | fx= | |
20813 | fx- | |
20814 | fx+ | |
20815 | set-lambda-meta! | |
20816 | lambda-meta | |
20817 | lambda? | |
20818 | make-dynlet | |
20819 | make-letrec | |
20820 | make-let | |
20821 | make-lambda-case | |
20822 | make-lambda | |
20823 | make-sequence | |
20824 | make-application | |
20825 | make-conditional | |
20826 | make-toplevel-define | |
20827 | make-toplevel-set | |
20828 | make-toplevel-ref | |
20829 | make-module-set | |
20830 | make-module-ref | |
20831 | make-lexical-set | |
20832 | make-lexical-ref | |
20833 | make-primitive-ref | |
20834 | make-const | |
20835 | make-void) | |
20836 | ((top) | |
20837 | (top) | |
20838 | (top) | |
20839 | (top) | |
20840 | (top) | |
20841 | (top) | |
20842 | (top) | |
20843 | (top) | |
20844 | (top) | |
20845 | (top) | |
20846 | (top) | |
20847 | (top) | |
20848 | (top) | |
20849 | (top) | |
20850 | (top) | |
20851 | (top) | |
20852 | (top) | |
20853 | (top) | |
20854 | (top) | |
20855 | (top) | |
20856 | (top) | |
20857 | (top) | |
20858 | (top) | |
20859 | (top) | |
20860 | (top) | |
20861 | (top) | |
20862 | (top) | |
20863 | (top) | |
20864 | (top) | |
20865 | (top) | |
20866 | (top) | |
20867 | (top) | |
20868 | (top) | |
20869 | (top) | |
20870 | (top) | |
20871 | (top) | |
20872 | (top) | |
20873 | (top) | |
20874 | (top) | |
20875 | (top) | |
20876 | (top) | |
20877 | (top) | |
20878 | (top) | |
20879 | (top) | |
20880 | (top) | |
20881 | (top) | |
20882 | (top) | |
20883 | (top) | |
20884 | (top) | |
20885 | (top) | |
20886 | (top) | |
20887 | (top) | |
20888 | (top) | |
20889 | (top) | |
20890 | (top) | |
20891 | (top) | |
20892 | (top) | |
20893 | (top) | |
20894 | (top) | |
20895 | (top) | |
20896 | (top) | |
20897 | (top) | |
20898 | (top) | |
20899 | (top) | |
20900 | (top) | |
20901 | (top) | |
20902 | (top) | |
20903 | (top) | |
20904 | (top) | |
20905 | (top) | |
20906 | (top) | |
20907 | (top) | |
20908 | (top) | |
20909 | (top) | |
20910 | (top) | |
20911 | (top) | |
20912 | (top) | |
20913 | (top) | |
20914 | (top) | |
20915 | (top) | |
20916 | (top) | |
20917 | (top) | |
20918 | (top) | |
20919 | (top) | |
20920 | (top) | |
20921 | (top) | |
20922 | (top) | |
20923 | (top) | |
20924 | (top) | |
20925 | (top) | |
20926 | (top) | |
20927 | (top) | |
20928 | (top) | |
20929 | (top) | |
20930 | (top) | |
20931 | (top) | |
20932 | (top) | |
20933 | (top) | |
20934 | (top) | |
20935 | (top) | |
20936 | (top) | |
20937 | (top) | |
20938 | (top) | |
20939 | (top) | |
20940 | (top) | |
20941 | (top) | |
20942 | (top) | |
20943 | (top) | |
20944 | (top) | |
20945 | (top) | |
20946 | (top) | |
20947 | (top) | |
20948 | (top) | |
20949 | (top) | |
20950 | (top) | |
20951 | (top) | |
20952 | (top) | |
20953 | (top) | |
20954 | (top) | |
20955 | (top) | |
20956 | (top) | |
20957 | (top) | |
20958 | (top) | |
20959 | (top) | |
20960 | (top) | |
20961 | (top) | |
20962 | (top) | |
20963 | (top) | |
20964 | (top) | |
20965 | (top) | |
20966 | (top) | |
20967 | (top) | |
20968 | (top) | |
20969 | (top) | |
20970 | (top) | |
20971 | (top)) | |
20972 | ("i467" | |
20973 | "i465" | |
20974 | "i463" | |
20975 | "i461" | |
20976 | "i459" | |
20977 | "i457" | |
20978 | "i455" | |
20979 | "i453" | |
20980 | "i451" | |
20981 | "i449" | |
20982 | "i447" | |
20983 | "i445" | |
20984 | "i443" | |
20985 | "i441" | |
20986 | "i439" | |
20987 | "i437" | |
20988 | "i435" | |
20989 | "i433" | |
20990 | "i431" | |
20991 | "i429" | |
20992 | "i427" | |
20993 | "i425" | |
20994 | "i423" | |
20995 | "i421" | |
20996 | "i419" | |
20997 | "i417" | |
20998 | "i415" | |
20999 | "i413" | |
21000 | "i411" | |
21001 | "i409" | |
21002 | "i407" | |
21003 | "i405" | |
21004 | "i403" | |
21005 | "i401" | |
21006 | "i399" | |
21007 | "i398" | |
21008 | "i396" | |
21009 | "i393" | |
21010 | "i392" | |
21011 | "i391" | |
21012 | "i389" | |
21013 | "i388" | |
21014 | "i386" | |
21015 | "i384" | |
21016 | "i382" | |
21017 | "i380" | |
21018 | "i378" | |
21019 | "i376" | |
21020 | "i374" | |
21021 | "i372" | |
21022 | "i369" | |
21023 | "i367" | |
21024 | "i366" | |
21025 | "i364" | |
21026 | "i362" | |
21027 | "i360" | |
21028 | "i358" | |
21029 | "i357" | |
21030 | "i356" | |
21031 | "i355" | |
21032 | "i353" | |
21033 | "i352" | |
21034 | "i349" | |
21035 | "i347" | |
21036 | "i345" | |
21037 | "i343" | |
21038 | "i341" | |
21039 | "i339" | |
21040 | "i337" | |
21041 | "i336" | |
21042 | "i335" | |
21043 | "i333" | |
21044 | "i331" | |
21045 | "i330" | |
21046 | "i327" | |
21047 | "i326" | |
21048 | "i324" | |
21049 | "i322" | |
21050 | "i320" | |
21051 | "i318" | |
21052 | "i316" | |
21053 | "i314" | |
21054 | "i312" | |
21055 | "i310" | |
21056 | "i308" | |
21057 | "i305" | |
21058 | "i303" | |
21059 | "i301" | |
21060 | "i299" | |
21061 | "i297" | |
21062 | "i295" | |
21063 | "i293" | |
21064 | "i291" | |
21065 | "i289" | |
21066 | "i287" | |
21067 | "i285" | |
21068 | "i283" | |
21069 | "i281" | |
21070 | "i279" | |
21071 | "i277" | |
21072 | "i275" | |
21073 | "i273" | |
21074 | "i271" | |
21075 | "i269" | |
21076 | "i267" | |
21077 | "i265" | |
21078 | "i263" | |
21079 | "i261" | |
21080 | "i260" | |
21081 | "i257" | |
21082 | "i255" | |
21083 | "i254" | |
21084 | "i253" | |
21085 | "i252" | |
21086 | "i251" | |
21087 | "i249" | |
21088 | "i247" | |
21089 | "i245" | |
21090 | "i242" | |
21091 | "i240" | |
21092 | "i238" | |
21093 | "i236" | |
21094 | "i234" | |
21095 | "i232" | |
21096 | "i230" | |
21097 | "i228" | |
21098 | "i226" | |
21099 | "i224" | |
21100 | "i222" | |
21101 | "i220" | |
21102 | "i218" | |
21103 | "i216" | |
21104 | "i214" | |
21105 | "i212" | |
21106 | "i210" | |
21107 | "i208")) | |
21108 | #(ribcage | |
21109 | (define-structure | |
21110 | define-expansion-accessors | |
21111 | define-expansion-constructors) | |
21112 | ((top) (top) (top)) | |
21113 | ("i46" "i45" "i44"))) | |
21114 | (hygiene guile)) | |
21115 | #{keys 12567}#)) | |
21116 | #f) | |
21117 | (if (if (eq? (if (if (= (vector-length | |
21118 | '#(syntax-object | |
21119 | pad | |
21120 | ((top) | |
21121 | #(ribcage | |
21122 | #(pat exp) | |
21123 | #((top) (top)) | |
21124 | #("i3911" "i3912")) | |
21125 | #(ribcage () () ()) | |
21126 | #(ribcage | |
21127 | #(x | |
21128 | keys | |
21129 | clauses | |
21130 | r | |
21131 | mod) | |
21132 | #((top) | |
21133 | (top) | |
21134 | (top) | |
21135 | (top) | |
21136 | (top)) | |
21137 | #("i3900" | |
21138 | "i3901" | |
21139 | "i3902" | |
21140 | "i3903" | |
21141 | "i3904")) | |
21142 | #(ribcage | |
21143 | (gen-syntax-case | |
21144 | gen-clause | |
21145 | build-dispatch-call | |
21146 | convert-pattern) | |
21147 | ((top) | |
21148 | (top) | |
21149 | (top) | |
21150 | (top)) | |
21151 | ("i3710" | |
21152 | "i3708" | |
21153 | "i3706" | |
21154 | "i3704")) | |
21155 | #(ribcage | |
21156 | (lambda-var-list | |
21157 | gen-var | |
21158 | strip | |
21159 | expand-lambda-case | |
21160 | lambda*-formals | |
21161 | expand-simple-lambda | |
21162 | lambda-formals | |
21163 | ellipsis? | |
21164 | expand-void | |
21165 | eval-local-transformer | |
21166 | expand-local-syntax | |
21167 | expand-body | |
21168 | expand-macro | |
21169 | expand-application | |
21170 | expand-expr | |
21171 | expand | |
21172 | syntax-type | |
21173 | expand-when-list | |
21174 | expand-install-global | |
21175 | expand-top-sequence | |
21176 | expand-sequence | |
21177 | source-wrap | |
21178 | wrap | |
21179 | bound-id-member? | |
21180 | distinct-bound-ids? | |
21181 | valid-bound-ids? | |
21182 | bound-id=? | |
21183 | free-id=? | |
21184 | id-var-name | |
21185 | same-marks? | |
21186 | join-marks | |
21187 | join-wraps | |
21188 | smart-append | |
21189 | make-binding-wrap | |
21190 | extend-ribcage! | |
21191 | make-empty-ribcage | |
21192 | new-mark | |
21193 | anti-mark | |
21194 | the-anti-mark | |
21195 | top-marked? | |
21196 | top-wrap | |
21197 | empty-wrap | |
21198 | set-ribcage-labels! | |
21199 | set-ribcage-marks! | |
21200 | set-ribcage-symnames! | |
21201 | ribcage-labels | |
21202 | ribcage-marks | |
21203 | ribcage-symnames | |
21204 | ribcage? | |
21205 | make-ribcage | |
21206 | gen-labels | |
21207 | gen-label | |
21208 | make-rename | |
21209 | rename-marks | |
21210 | rename-new | |
21211 | rename-old | |
21212 | subst-rename? | |
21213 | wrap-subst | |
21214 | wrap-marks | |
21215 | make-wrap | |
21216 | id-sym-name&marks | |
21217 | id-sym-name | |
21218 | id? | |
21219 | nonsymbol-id? | |
21220 | global-extend | |
21221 | lookup | |
21222 | macros-only-env | |
21223 | extend-var-env | |
21224 | extend-env | |
21225 | null-env | |
21226 | binding-value | |
21227 | binding-type | |
21228 | make-binding | |
21229 | arg-check | |
21230 | source-annotation | |
21231 | no-source | |
21232 | set-syntax-object-module! | |
21233 | set-syntax-object-wrap! | |
21234 | set-syntax-object-expression! | |
21235 | syntax-object-module | |
21236 | syntax-object-wrap | |
21237 | syntax-object-expression | |
21238 | syntax-object? | |
21239 | make-syntax-object | |
21240 | build-lexical-var | |
21241 | build-letrec | |
21242 | build-named-let | |
21243 | build-let | |
21244 | build-sequence | |
21245 | build-data | |
21246 | build-primref | |
21247 | build-lambda-case | |
21248 | build-case-lambda | |
21249 | build-simple-lambda | |
21250 | build-global-definition | |
21251 | build-global-assignment | |
21252 | build-global-reference | |
21253 | analyze-variable | |
21254 | build-lexical-assignment | |
21255 | build-lexical-reference | |
21256 | build-dynlet | |
21257 | build-conditional | |
21258 | build-application | |
21259 | build-void | |
21260 | maybe-name-value! | |
21261 | decorate-source | |
21262 | get-global-definition-hook | |
21263 | put-global-definition-hook | |
21264 | gensym-hook | |
21265 | local-eval-hook | |
21266 | top-level-eval-hook | |
21267 | fx< | |
21268 | fx= | |
21269 | fx- | |
21270 | fx+ | |
21271 | set-lambda-meta! | |
21272 | lambda-meta | |
21273 | lambda? | |
21274 | make-dynlet | |
21275 | make-letrec | |
21276 | make-let | |
21277 | make-lambda-case | |
21278 | make-lambda | |
21279 | make-sequence | |
21280 | make-application | |
21281 | make-conditional | |
21282 | make-toplevel-define | |
21283 | make-toplevel-set | |
21284 | make-toplevel-ref | |
21285 | make-module-set | |
21286 | make-module-ref | |
21287 | make-lexical-set | |
21288 | make-lexical-ref | |
21289 | make-primitive-ref | |
21290 | make-const | |
21291 | make-void) | |
21292 | ((top) | |
21293 | (top) | |
21294 | (top) | |
21295 | (top) | |
21296 | (top) | |
21297 | (top) | |
21298 | (top) | |
21299 | (top) | |
21300 | (top) | |
21301 | (top) | |
21302 | (top) | |
21303 | (top) | |
21304 | (top) | |
21305 | (top) | |
21306 | (top) | |
21307 | (top) | |
21308 | (top) | |
21309 | (top) | |
21310 | (top) | |
21311 | (top) | |
21312 | (top) | |
21313 | (top) | |
21314 | (top) | |
21315 | (top) | |
21316 | (top) | |
21317 | (top) | |
21318 | (top) | |
21319 | (top) | |
21320 | (top) | |
21321 | (top) | |
21322 | (top) | |
21323 | (top) | |
21324 | (top) | |
21325 | (top) | |
21326 | (top) | |
21327 | (top) | |
21328 | (top) | |
21329 | (top) | |
21330 | (top) | |
21331 | (top) | |
21332 | (top) | |
21333 | (top) | |
21334 | (top) | |
21335 | (top) | |
21336 | (top) | |
21337 | (top) | |
21338 | (top) | |
21339 | (top) | |
21340 | (top) | |
21341 | (top) | |
21342 | (top) | |
21343 | (top) | |
21344 | (top) | |
21345 | (top) | |
21346 | (top) | |
21347 | (top) | |
21348 | (top) | |
21349 | (top) | |
21350 | (top) | |
21351 | (top) | |
21352 | (top) | |
21353 | (top) | |
21354 | (top) | |
21355 | (top) | |
21356 | (top) | |
21357 | (top) | |
21358 | (top) | |
21359 | (top) | |
21360 | (top) | |
21361 | (top) | |
21362 | (top) | |
21363 | (top) | |
21364 | (top) | |
21365 | (top) | |
21366 | (top) | |
21367 | (top) | |
21368 | (top) | |
21369 | (top) | |
21370 | (top) | |
21371 | (top) | |
21372 | (top) | |
21373 | (top) | |
21374 | (top) | |
21375 | (top) | |
21376 | (top) | |
21377 | (top) | |
21378 | (top) | |
21379 | (top) | |
21380 | (top) | |
21381 | (top) | |
21382 | (top) | |
21383 | (top) | |
21384 | (top) | |
21385 | (top) | |
21386 | (top) | |
21387 | (top) | |
21388 | (top) | |
21389 | (top) | |
21390 | (top) | |
21391 | (top) | |
21392 | (top) | |
21393 | (top) | |
21394 | (top) | |
21395 | (top) | |
21396 | (top) | |
21397 | (top) | |
21398 | (top) | |
21399 | (top) | |
21400 | (top) | |
21401 | (top) | |
21402 | (top) | |
21403 | (top) | |
21404 | (top) | |
21405 | (top) | |
21406 | (top) | |
21407 | (top) | |
21408 | (top) | |
21409 | (top) | |
21410 | (top) | |
21411 | (top) | |
21412 | (top) | |
21413 | (top) | |
21414 | (top) | |
21415 | (top) | |
21416 | (top) | |
21417 | (top) | |
21418 | (top) | |
21419 | (top) | |
21420 | (top) | |
21421 | (top) | |
21422 | (top) | |
21423 | (top) | |
21424 | (top) | |
21425 | (top) | |
21426 | (top) | |
21427 | (top)) | |
21428 | ("i467" | |
21429 | "i465" | |
21430 | "i463" | |
21431 | "i461" | |
21432 | "i459" | |
21433 | "i457" | |
21434 | "i455" | |
21435 | "i453" | |
21436 | "i451" | |
21437 | "i449" | |
21438 | "i447" | |
21439 | "i445" | |
21440 | "i443" | |
21441 | "i441" | |
21442 | "i439" | |
21443 | "i437" | |
21444 | "i435" | |
21445 | "i433" | |
21446 | "i431" | |
21447 | "i429" | |
21448 | "i427" | |
21449 | "i425" | |
21450 | "i423" | |
21451 | "i421" | |
21452 | "i419" | |
21453 | "i417" | |
21454 | "i415" | |
21455 | "i413" | |
21456 | "i411" | |
21457 | "i409" | |
21458 | "i407" | |
21459 | "i405" | |
21460 | "i403" | |
21461 | "i401" | |
21462 | "i399" | |
21463 | "i398" | |
21464 | "i396" | |
21465 | "i393" | |
21466 | "i392" | |
21467 | "i391" | |
21468 | "i389" | |
21469 | "i388" | |
21470 | "i386" | |
21471 | "i384" | |
21472 | "i382" | |
21473 | "i380" | |
21474 | "i378" | |
21475 | "i376" | |
21476 | "i374" | |
21477 | "i372" | |
21478 | "i369" | |
21479 | "i367" | |
21480 | "i366" | |
21481 | "i364" | |
21482 | "i362" | |
21483 | "i360" | |
21484 | "i358" | |
21485 | "i357" | |
21486 | "i356" | |
21487 | "i355" | |
21488 | "i353" | |
21489 | "i352" | |
21490 | "i349" | |
21491 | "i347" | |
21492 | "i345" | |
21493 | "i343" | |
21494 | "i341" | |
21495 | "i339" | |
21496 | "i337" | |
21497 | "i336" | |
21498 | "i335" | |
21499 | "i333" | |
21500 | "i331" | |
21501 | "i330" | |
21502 | "i327" | |
21503 | "i326" | |
21504 | "i324" | |
21505 | "i322" | |
21506 | "i320" | |
21507 | "i318" | |
21508 | "i316" | |
21509 | "i314" | |
21510 | "i312" | |
21511 | "i310" | |
21512 | "i308" | |
21513 | "i305" | |
21514 | "i303" | |
21515 | "i301" | |
21516 | "i299" | |
21517 | "i297" | |
21518 | "i295" | |
21519 | "i293" | |
21520 | "i291" | |
21521 | "i289" | |
21522 | "i287" | |
21523 | "i285" | |
21524 | "i283" | |
21525 | "i281" | |
21526 | "i279" | |
21527 | "i277" | |
21528 | "i275" | |
21529 | "i273" | |
21530 | "i271" | |
21531 | "i269" | |
21532 | "i267" | |
21533 | "i265" | |
21534 | "i263" | |
21535 | "i261" | |
21536 | "i260" | |
21537 | "i257" | |
21538 | "i255" | |
21539 | "i254" | |
21540 | "i253" | |
21541 | "i252" | |
21542 | "i251" | |
21543 | "i249" | |
21544 | "i247" | |
21545 | "i245" | |
21546 | "i242" | |
21547 | "i240" | |
21548 | "i238" | |
21549 | "i236" | |
21550 | "i234" | |
21551 | "i232" | |
21552 | "i230" | |
21553 | "i228" | |
21554 | "i226" | |
21555 | "i224" | |
21556 | "i222" | |
21557 | "i220" | |
21558 | "i218" | |
21559 | "i216" | |
21560 | "i214" | |
21561 | "i212" | |
21562 | "i210" | |
21563 | "i208")) | |
21564 | #(ribcage | |
21565 | (define-structure | |
21566 | define-expansion-accessors | |
21567 | define-expansion-constructors) | |
21568 | ((top) (top) (top)) | |
21569 | ("i46" | |
21570 | "i45" | |
21571 | "i44"))) | |
21572 | (hygiene guile))) | |
21573 | 4) | |
21574 | #t | |
21575 | #f) | |
21576 | 'pad | |
21577 | '#(syntax-object | |
21578 | pad | |
21579 | ((top) | |
21580 | #(ribcage | |
21581 | #(pat exp) | |
21582 | #((top) (top)) | |
21583 | #("i3911" "i3912")) | |
21584 | #(ribcage () () ()) | |
21585 | #(ribcage | |
21586 | #(x keys clauses r mod) | |
21587 | #((top) | |
21588 | (top) | |
21589 | (top) | |
21590 | (top) | |
21591 | (top)) | |
21592 | #("i3900" | |
21593 | "i3901" | |
21594 | "i3902" | |
21595 | "i3903" | |
21596 | "i3904")) | |
21597 | #(ribcage | |
21598 | (gen-syntax-case | |
21599 | gen-clause | |
21600 | build-dispatch-call | |
21601 | convert-pattern) | |
21602 | ((top) (top) (top) (top)) | |
21603 | ("i3710" | |
21604 | "i3708" | |
21605 | "i3706" | |
21606 | "i3704")) | |
21607 | #(ribcage | |
21608 | (lambda-var-list | |
21609 | gen-var | |
21610 | strip | |
21611 | expand-lambda-case | |
21612 | lambda*-formals | |
21613 | expand-simple-lambda | |
21614 | lambda-formals | |
21615 | ellipsis? | |
21616 | expand-void | |
21617 | eval-local-transformer | |
21618 | expand-local-syntax | |
21619 | expand-body | |
21620 | expand-macro | |
21621 | expand-application | |
21622 | expand-expr | |
21623 | expand | |
21624 | syntax-type | |
21625 | expand-when-list | |
21626 | expand-install-global | |
21627 | expand-top-sequence | |
21628 | expand-sequence | |
21629 | source-wrap | |
21630 | wrap | |
21631 | bound-id-member? | |
21632 | distinct-bound-ids? | |
21633 | valid-bound-ids? | |
21634 | bound-id=? | |
21635 | free-id=? | |
21636 | id-var-name | |
21637 | same-marks? | |
21638 | join-marks | |
21639 | join-wraps | |
21640 | smart-append | |
21641 | make-binding-wrap | |
21642 | extend-ribcage! | |
21643 | make-empty-ribcage | |
21644 | new-mark | |
21645 | anti-mark | |
21646 | the-anti-mark | |
21647 | top-marked? | |
21648 | top-wrap | |
21649 | empty-wrap | |
21650 | set-ribcage-labels! | |
21651 | set-ribcage-marks! | |
21652 | set-ribcage-symnames! | |
21653 | ribcage-labels | |
21654 | ribcage-marks | |
21655 | ribcage-symnames | |
21656 | ribcage? | |
21657 | make-ribcage | |
21658 | gen-labels | |
21659 | gen-label | |
21660 | make-rename | |
21661 | rename-marks | |
21662 | rename-new | |
21663 | rename-old | |
21664 | subst-rename? | |
21665 | wrap-subst | |
21666 | wrap-marks | |
21667 | make-wrap | |
21668 | id-sym-name&marks | |
21669 | id-sym-name | |
21670 | id? | |
21671 | nonsymbol-id? | |
21672 | global-extend | |
21673 | lookup | |
21674 | macros-only-env | |
21675 | extend-var-env | |
21676 | extend-env | |
21677 | null-env | |
21678 | binding-value | |
21679 | binding-type | |
21680 | make-binding | |
21681 | arg-check | |
21682 | source-annotation | |
21683 | no-source | |
21684 | set-syntax-object-module! | |
21685 | set-syntax-object-wrap! | |
21686 | set-syntax-object-expression! | |
21687 | syntax-object-module | |
21688 | syntax-object-wrap | |
21689 | syntax-object-expression | |
21690 | syntax-object? | |
21691 | make-syntax-object | |
21692 | build-lexical-var | |
21693 | build-letrec | |
21694 | build-named-let | |
21695 | build-let | |
21696 | build-sequence | |
21697 | build-data | |
21698 | build-primref | |
21699 | build-lambda-case | |
21700 | build-case-lambda | |
21701 | build-simple-lambda | |
21702 | build-global-definition | |
21703 | build-global-assignment | |
21704 | build-global-reference | |
21705 | analyze-variable | |
21706 | build-lexical-assignment | |
21707 | build-lexical-reference | |
21708 | build-dynlet | |
21709 | build-conditional | |
21710 | build-application | |
21711 | build-void | |
21712 | maybe-name-value! | |
21713 | decorate-source | |
21714 | get-global-definition-hook | |
21715 | put-global-definition-hook | |
21716 | gensym-hook | |
21717 | local-eval-hook | |
21718 | top-level-eval-hook | |
21719 | fx< | |
21720 | fx= | |
21721 | fx- | |
21722 | fx+ | |
21723 | set-lambda-meta! | |
21724 | lambda-meta | |
21725 | lambda? | |
21726 | make-dynlet | |
21727 | make-letrec | |
21728 | make-let | |
21729 | make-lambda-case | |
21730 | make-lambda | |
21731 | make-sequence | |
21732 | make-application | |
21733 | make-conditional | |
21734 | make-toplevel-define | |
21735 | make-toplevel-set | |
21736 | make-toplevel-ref | |
21737 | make-module-set | |
21738 | make-module-ref | |
21739 | make-lexical-set | |
21740 | make-lexical-ref | |
21741 | make-primitive-ref | |
21742 | make-const | |
21743 | make-void) | |
21744 | ((top) | |
21745 | (top) | |
21746 | (top) | |
21747 | (top) | |
21748 | (top) | |
21749 | (top) | |
21750 | (top) | |
21751 | (top) | |
21752 | (top) | |
21753 | (top) | |
21754 | (top) | |
21755 | (top) | |
21756 | (top) | |
21757 | (top) | |
21758 | (top) | |
21759 | (top) | |
21760 | (top) | |
21761 | (top) | |
21762 | (top) | |
21763 | (top) | |
21764 | (top) | |
21765 | (top) | |
21766 | (top) | |
21767 | (top) | |
21768 | (top) | |
21769 | (top) | |
21770 | (top) | |
21771 | (top) | |
21772 | (top) | |
21773 | (top) | |
21774 | (top) | |
21775 | (top) | |
21776 | (top) | |
21777 | (top) | |
21778 | (top) | |
21779 | (top) | |
21780 | (top) | |
21781 | (top) | |
21782 | (top) | |
21783 | (top) | |
21784 | (top) | |
21785 | (top) | |
21786 | (top) | |
21787 | (top) | |
21788 | (top) | |
21789 | (top) | |
21790 | (top) | |
21791 | (top) | |
21792 | (top) | |
21793 | (top) | |
21794 | (top) | |
21795 | (top) | |
21796 | (top) | |
21797 | (top) | |
21798 | (top) | |
21799 | (top) | |
21800 | (top) | |
21801 | (top) | |
21802 | (top) | |
21803 | (top) | |
21804 | (top) | |
21805 | (top) | |
21806 | (top) | |
21807 | (top) | |
21808 | (top) | |
21809 | (top) | |
21810 | (top) | |
21811 | (top) | |
21812 | (top) | |
21813 | (top) | |
21814 | (top) | |
21815 | (top) | |
21816 | (top) | |
21817 | (top) | |
21818 | (top) | |
21819 | (top) | |
21820 | (top) | |
21821 | (top) | |
21822 | (top) | |
21823 | (top) | |
21824 | (top) | |
21825 | (top) | |
21826 | (top) | |
21827 | (top) | |
21828 | (top) | |
21829 | (top) | |
21830 | (top) | |
21831 | (top) | |
21832 | (top) | |
21833 | (top) | |
21834 | (top) | |
21835 | (top) | |
21836 | (top) | |
21837 | (top) | |
21838 | (top) | |
21839 | (top) | |
21840 | (top) | |
21841 | (top) | |
21842 | (top) | |
21843 | (top) | |
21844 | (top) | |
21845 | (top) | |
21846 | (top) | |
21847 | (top) | |
21848 | (top) | |
21849 | (top) | |
21850 | (top) | |
21851 | (top) | |
21852 | (top) | |
21853 | (top) | |
21854 | (top) | |
21855 | (top) | |
21856 | (top) | |
21857 | (top) | |
21858 | (top) | |
21859 | (top) | |
21860 | (top) | |
21861 | (top) | |
21862 | (top) | |
21863 | (top) | |
21864 | (top) | |
21865 | (top) | |
21866 | (top) | |
21867 | (top) | |
21868 | (top) | |
21869 | (top) | |
21870 | (top) | |
21871 | (top) | |
21872 | (top) | |
21873 | (top) | |
21874 | (top) | |
21875 | (top) | |
21876 | (top) | |
21877 | (top) | |
21878 | (top) | |
21879 | (top)) | |
21880 | ("i467" | |
21881 | "i465" | |
21882 | "i463" | |
21883 | "i461" | |
21884 | "i459" | |
21885 | "i457" | |
21886 | "i455" | |
21887 | "i453" | |
21888 | "i451" | |
21889 | "i449" | |
21890 | "i447" | |
21891 | "i445" | |
21892 | "i443" | |
21893 | "i441" | |
21894 | "i439" | |
21895 | "i437" | |
21896 | "i435" | |
21897 | "i433" | |
21898 | "i431" | |
21899 | "i429" | |
21900 | "i427" | |
21901 | "i425" | |
21902 | "i423" | |
21903 | "i421" | |
21904 | "i419" | |
21905 | "i417" | |
21906 | "i415" | |
21907 | "i413" | |
21908 | "i411" | |
21909 | "i409" | |
21910 | "i407" | |
21911 | "i405" | |
21912 | "i403" | |
21913 | "i401" | |
21914 | "i399" | |
21915 | "i398" | |
21916 | "i396" | |
21917 | "i393" | |
21918 | "i392" | |
21919 | "i391" | |
21920 | "i389" | |
21921 | "i388" | |
21922 | "i386" | |
21923 | "i384" | |
21924 | "i382" | |
21925 | "i380" | |
21926 | "i378" | |
21927 | "i376" | |
21928 | "i374" | |
21929 | "i372" | |
21930 | "i369" | |
21931 | "i367" | |
21932 | "i366" | |
21933 | "i364" | |
21934 | "i362" | |
21935 | "i360" | |
21936 | "i358" | |
21937 | "i357" | |
21938 | "i356" | |
21939 | "i355" | |
21940 | "i353" | |
21941 | "i352" | |
21942 | "i349" | |
21943 | "i347" | |
21944 | "i345" | |
21945 | "i343" | |
21946 | "i341" | |
21947 | "i339" | |
21948 | "i337" | |
21949 | "i336" | |
21950 | "i335" | |
21951 | "i333" | |
21952 | "i331" | |
21953 | "i330" | |
21954 | "i327" | |
21955 | "i326" | |
21956 | "i324" | |
21957 | "i322" | |
21958 | "i320" | |
21959 | "i318" | |
21960 | "i316" | |
21961 | "i314" | |
21962 | "i312" | |
21963 | "i310" | |
21964 | "i308" | |
21965 | "i305" | |
21966 | "i303" | |
21967 | "i301" | |
21968 | "i299" | |
21969 | "i297" | |
21970 | "i295" | |
21971 | "i293" | |
21972 | "i291" | |
21973 | "i289" | |
21974 | "i287" | |
21975 | "i285" | |
21976 | "i283" | |
21977 | "i281" | |
21978 | "i279" | |
21979 | "i277" | |
21980 | "i275" | |
21981 | "i273" | |
21982 | "i271" | |
21983 | "i269" | |
21984 | "i267" | |
21985 | "i265" | |
21986 | "i263" | |
21987 | "i261" | |
21988 | "i260" | |
21989 | "i257" | |
21990 | "i255" | |
21991 | "i254" | |
21992 | "i253" | |
21993 | "i252" | |
21994 | "i251" | |
21995 | "i249" | |
21996 | "i247" | |
21997 | "i245" | |
21998 | "i242" | |
21999 | "i240" | |
22000 | "i238" | |
22001 | "i236" | |
22002 | "i234" | |
22003 | "i232" | |
22004 | "i230" | |
22005 | "i228" | |
22006 | "i226" | |
22007 | "i224" | |
22008 | "i222" | |
22009 | "i220" | |
22010 | "i218" | |
22011 | "i216" | |
22012 | "i214" | |
22013 | "i212" | |
22014 | "i210" | |
22015 | "i208")) | |
22016 | #(ribcage | |
22017 | (define-structure | |
22018 | define-expansion-accessors | |
22019 | define-expansion-constructors) | |
22020 | ((top) (top) (top)) | |
22021 | ("i46" "i45" "i44"))) | |
22022 | (hygiene guile))) | |
22023 | (if (if (= (vector-length | |
22024 | '#(syntax-object | |
22025 | _ | |
22026 | ((top) | |
22027 | #(ribcage | |
22028 | #(pat exp) | |
22029 | #((top) (top)) | |
22030 | #("i3911" "i3912")) | |
22031 | #(ribcage () () ()) | |
22032 | #(ribcage | |
22033 | #(x | |
22034 | keys | |
22035 | clauses | |
22036 | r | |
22037 | mod) | |
22038 | #((top) | |
22039 | (top) | |
22040 | (top) | |
22041 | (top) | |
22042 | (top)) | |
22043 | #("i3900" | |
22044 | "i3901" | |
22045 | "i3902" | |
22046 | "i3903" | |
22047 | "i3904")) | |
22048 | #(ribcage | |
22049 | (gen-syntax-case | |
22050 | gen-clause | |
22051 | build-dispatch-call | |
22052 | convert-pattern) | |
22053 | ((top) | |
22054 | (top) | |
22055 | (top) | |
22056 | (top)) | |
22057 | ("i3710" | |
22058 | "i3708" | |
22059 | "i3706" | |
22060 | "i3704")) | |
22061 | #(ribcage | |
22062 | (lambda-var-list | |
22063 | gen-var | |
22064 | strip | |
22065 | expand-lambda-case | |
22066 | lambda*-formals | |
22067 | expand-simple-lambda | |
22068 | lambda-formals | |
22069 | ellipsis? | |
22070 | expand-void | |
22071 | eval-local-transformer | |
22072 | expand-local-syntax | |
22073 | expand-body | |
22074 | expand-macro | |
22075 | expand-application | |
22076 | expand-expr | |
22077 | expand | |
22078 | syntax-type | |
22079 | expand-when-list | |
22080 | expand-install-global | |
22081 | expand-top-sequence | |
22082 | expand-sequence | |
22083 | source-wrap | |
22084 | wrap | |
22085 | bound-id-member? | |
22086 | distinct-bound-ids? | |
22087 | valid-bound-ids? | |
22088 | bound-id=? | |
22089 | free-id=? | |
22090 | id-var-name | |
22091 | same-marks? | |
22092 | join-marks | |
22093 | join-wraps | |
22094 | smart-append | |
22095 | make-binding-wrap | |
22096 | extend-ribcage! | |
22097 | make-empty-ribcage | |
22098 | new-mark | |
22099 | anti-mark | |
22100 | the-anti-mark | |
22101 | top-marked? | |
22102 | top-wrap | |
22103 | empty-wrap | |
22104 | set-ribcage-labels! | |
22105 | set-ribcage-marks! | |
22106 | set-ribcage-symnames! | |
22107 | ribcage-labels | |
22108 | ribcage-marks | |
22109 | ribcage-symnames | |
22110 | ribcage? | |
22111 | make-ribcage | |
22112 | gen-labels | |
22113 | gen-label | |
22114 | make-rename | |
22115 | rename-marks | |
22116 | rename-new | |
22117 | rename-old | |
22118 | subst-rename? | |
22119 | wrap-subst | |
22120 | wrap-marks | |
22121 | make-wrap | |
22122 | id-sym-name&marks | |
22123 | id-sym-name | |
22124 | id? | |
22125 | nonsymbol-id? | |
22126 | global-extend | |
22127 | lookup | |
22128 | macros-only-env | |
22129 | extend-var-env | |
22130 | extend-env | |
22131 | null-env | |
22132 | binding-value | |
22133 | binding-type | |
22134 | make-binding | |
22135 | arg-check | |
22136 | source-annotation | |
22137 | no-source | |
22138 | set-syntax-object-module! | |
22139 | set-syntax-object-wrap! | |
22140 | set-syntax-object-expression! | |
22141 | syntax-object-module | |
22142 | syntax-object-wrap | |
22143 | syntax-object-expression | |
22144 | syntax-object? | |
22145 | make-syntax-object | |
22146 | build-lexical-var | |
22147 | build-letrec | |
22148 | build-named-let | |
22149 | build-let | |
22150 | build-sequence | |
22151 | build-data | |
22152 | build-primref | |
22153 | build-lambda-case | |
22154 | build-case-lambda | |
22155 | build-simple-lambda | |
22156 | build-global-definition | |
22157 | build-global-assignment | |
22158 | build-global-reference | |
22159 | analyze-variable | |
22160 | build-lexical-assignment | |
22161 | build-lexical-reference | |
22162 | build-dynlet | |
22163 | build-conditional | |
22164 | build-application | |
22165 | build-void | |
22166 | maybe-name-value! | |
22167 | decorate-source | |
22168 | get-global-definition-hook | |
22169 | put-global-definition-hook | |
22170 | gensym-hook | |
22171 | local-eval-hook | |
22172 | top-level-eval-hook | |
22173 | fx< | |
22174 | fx= | |
22175 | fx- | |
22176 | fx+ | |
22177 | set-lambda-meta! | |
22178 | lambda-meta | |
22179 | lambda? | |
22180 | make-dynlet | |
22181 | make-letrec | |
22182 | make-let | |
22183 | make-lambda-case | |
22184 | make-lambda | |
22185 | make-sequence | |
22186 | make-application | |
22187 | make-conditional | |
22188 | make-toplevel-define | |
22189 | make-toplevel-set | |
22190 | make-toplevel-ref | |
22191 | make-module-set | |
22192 | make-module-ref | |
22193 | make-lexical-set | |
22194 | make-lexical-ref | |
22195 | make-primitive-ref | |
22196 | make-const | |
22197 | make-void) | |
22198 | ((top) | |
22199 | (top) | |
22200 | (top) | |
22201 | (top) | |
22202 | (top) | |
22203 | (top) | |
22204 | (top) | |
22205 | (top) | |
22206 | (top) | |
22207 | (top) | |
22208 | (top) | |
22209 | (top) | |
22210 | (top) | |
22211 | (top) | |
22212 | (top) | |
22213 | (top) | |
22214 | (top) | |
22215 | (top) | |
22216 | (top) | |
22217 | (top) | |
22218 | (top) | |
22219 | (top) | |
22220 | (top) | |
22221 | (top) | |
22222 | (top) | |
22223 | (top) | |
22224 | (top) | |
22225 | (top) | |
22226 | (top) | |
22227 | (top) | |
22228 | (top) | |
22229 | (top) | |
22230 | (top) | |
22231 | (top) | |
22232 | (top) | |
22233 | (top) | |
22234 | (top) | |
22235 | (top) | |
22236 | (top) | |
22237 | (top) | |
22238 | (top) | |
22239 | (top) | |
22240 | (top) | |
22241 | (top) | |
22242 | (top) | |
22243 | (top) | |
22244 | (top) | |
22245 | (top) | |
22246 | (top) | |
22247 | (top) | |
22248 | (top) | |
22249 | (top) | |
22250 | (top) | |
22251 | (top) | |
22252 | (top) | |
22253 | (top) | |
22254 | (top) | |
22255 | (top) | |
22256 | (top) | |
22257 | (top) | |
22258 | (top) | |
22259 | (top) | |
22260 | (top) | |
22261 | (top) | |
22262 | (top) | |
22263 | (top) | |
22264 | (top) | |
22265 | (top) | |
22266 | (top) | |
22267 | (top) | |
22268 | (top) | |
22269 | (top) | |
22270 | (top) | |
22271 | (top) | |
22272 | (top) | |
22273 | (top) | |
22274 | (top) | |
22275 | (top) | |
22276 | (top) | |
22277 | (top) | |
22278 | (top) | |
22279 | (top) | |
22280 | (top) | |
22281 | (top) | |
22282 | (top) | |
22283 | (top) | |
22284 | (top) | |
22285 | (top) | |
22286 | (top) | |
22287 | (top) | |
22288 | (top) | |
22289 | (top) | |
22290 | (top) | |
22291 | (top) | |
22292 | (top) | |
22293 | (top) | |
22294 | (top) | |
22295 | (top) | |
22296 | (top) | |
22297 | (top) | |
22298 | (top) | |
22299 | (top) | |
22300 | (top) | |
22301 | (top) | |
22302 | (top) | |
22303 | (top) | |
22304 | (top) | |
22305 | (top) | |
22306 | (top) | |
22307 | (top) | |
22308 | (top) | |
22309 | (top) | |
22310 | (top) | |
22311 | (top) | |
22312 | (top) | |
22313 | (top) | |
22314 | (top) | |
22315 | (top) | |
22316 | (top) | |
22317 | (top) | |
22318 | (top) | |
22319 | (top) | |
22320 | (top) | |
22321 | (top) | |
22322 | (top) | |
22323 | (top) | |
22324 | (top) | |
22325 | (top) | |
22326 | (top) | |
22327 | (top) | |
22328 | (top) | |
22329 | (top) | |
22330 | (top) | |
22331 | (top) | |
22332 | (top) | |
22333 | (top)) | |
22334 | ("i467" | |
22335 | "i465" | |
22336 | "i463" | |
22337 | "i461" | |
22338 | "i459" | |
22339 | "i457" | |
22340 | "i455" | |
22341 | "i453" | |
22342 | "i451" | |
22343 | "i449" | |
22344 | "i447" | |
22345 | "i445" | |
22346 | "i443" | |
22347 | "i441" | |
22348 | "i439" | |
22349 | "i437" | |
22350 | "i435" | |
22351 | "i433" | |
22352 | "i431" | |
22353 | "i429" | |
22354 | "i427" | |
22355 | "i425" | |
22356 | "i423" | |
22357 | "i421" | |
22358 | "i419" | |
22359 | "i417" | |
22360 | "i415" | |
22361 | "i413" | |
22362 | "i411" | |
22363 | "i409" | |
22364 | "i407" | |
22365 | "i405" | |
22366 | "i403" | |
22367 | "i401" | |
22368 | "i399" | |
22369 | "i398" | |
22370 | "i396" | |
22371 | "i393" | |
22372 | "i392" | |
22373 | "i391" | |
22374 | "i389" | |
22375 | "i388" | |
22376 | "i386" | |
22377 | "i384" | |
22378 | "i382" | |
22379 | "i380" | |
22380 | "i378" | |
22381 | "i376" | |
22382 | "i374" | |
22383 | "i372" | |
22384 | "i369" | |
22385 | "i367" | |
22386 | "i366" | |
22387 | "i364" | |
22388 | "i362" | |
22389 | "i360" | |
22390 | "i358" | |
22391 | "i357" | |
22392 | "i356" | |
22393 | "i355" | |
22394 | "i353" | |
22395 | "i352" | |
22396 | "i349" | |
22397 | "i347" | |
22398 | "i345" | |
22399 | "i343" | |
22400 | "i341" | |
22401 | "i339" | |
22402 | "i337" | |
22403 | "i336" | |
22404 | "i335" | |
22405 | "i333" | |
22406 | "i331" | |
22407 | "i330" | |
22408 | "i327" | |
22409 | "i326" | |
22410 | "i324" | |
22411 | "i322" | |
22412 | "i320" | |
22413 | "i318" | |
22414 | "i316" | |
22415 | "i314" | |
22416 | "i312" | |
22417 | "i310" | |
22418 | "i308" | |
22419 | "i305" | |
22420 | "i303" | |
22421 | "i301" | |
22422 | "i299" | |
22423 | "i297" | |
22424 | "i295" | |
22425 | "i293" | |
22426 | "i291" | |
22427 | "i289" | |
22428 | "i287" | |
22429 | "i285" | |
22430 | "i283" | |
22431 | "i281" | |
22432 | "i279" | |
22433 | "i277" | |
22434 | "i275" | |
22435 | "i273" | |
22436 | "i271" | |
22437 | "i269" | |
22438 | "i267" | |
22439 | "i265" | |
22440 | "i263" | |
22441 | "i261" | |
22442 | "i260" | |
22443 | "i257" | |
22444 | "i255" | |
22445 | "i254" | |
22446 | "i253" | |
22447 | "i252" | |
22448 | "i251" | |
22449 | "i249" | |
22450 | "i247" | |
22451 | "i245" | |
22452 | "i242" | |
22453 | "i240" | |
22454 | "i238" | |
22455 | "i236" | |
22456 | "i234" | |
22457 | "i232" | |
22458 | "i230" | |
22459 | "i228" | |
22460 | "i226" | |
22461 | "i224" | |
22462 | "i222" | |
22463 | "i220" | |
22464 | "i218" | |
22465 | "i216" | |
22466 | "i214" | |
22467 | "i212" | |
22468 | "i210" | |
22469 | "i208")) | |
22470 | #(ribcage | |
22471 | (define-structure | |
22472 | define-expansion-accessors | |
22473 | define-expansion-constructors) | |
22474 | ((top) (top) (top)) | |
22475 | ("i46" | |
22476 | "i45" | |
22477 | "i44"))) | |
22478 | (hygiene guile))) | |
22479 | 4) | |
22480 | #t | |
22481 | #f) | |
22482 | '_ | |
22483 | '#(syntax-object | |
22484 | _ | |
22485 | ((top) | |
22486 | #(ribcage | |
22487 | #(pat exp) | |
22488 | #((top) (top)) | |
22489 | #("i3911" "i3912")) | |
22490 | #(ribcage () () ()) | |
22491 | #(ribcage | |
22492 | #(x keys clauses r mod) | |
22493 | #((top) | |
22494 | (top) | |
22495 | (top) | |
22496 | (top) | |
22497 | (top)) | |
22498 | #("i3900" | |
22499 | "i3901" | |
22500 | "i3902" | |
22501 | "i3903" | |
22502 | "i3904")) | |
22503 | #(ribcage | |
22504 | (gen-syntax-case | |
22505 | gen-clause | |
22506 | build-dispatch-call | |
22507 | convert-pattern) | |
22508 | ((top) (top) (top) (top)) | |
22509 | ("i3710" | |
22510 | "i3708" | |
22511 | "i3706" | |
22512 | "i3704")) | |
22513 | #(ribcage | |
22514 | (lambda-var-list | |
22515 | gen-var | |
22516 | strip | |
22517 | expand-lambda-case | |
22518 | lambda*-formals | |
22519 | expand-simple-lambda | |
22520 | lambda-formals | |
22521 | ellipsis? | |
22522 | expand-void | |
22523 | eval-local-transformer | |
22524 | expand-local-syntax | |
22525 | expand-body | |
22526 | expand-macro | |
22527 | expand-application | |
22528 | expand-expr | |
22529 | expand | |
22530 | syntax-type | |
22531 | expand-when-list | |
22532 | expand-install-global | |
22533 | expand-top-sequence | |
22534 | expand-sequence | |
22535 | source-wrap | |
22536 | wrap | |
22537 | bound-id-member? | |
22538 | distinct-bound-ids? | |
22539 | valid-bound-ids? | |
22540 | bound-id=? | |
22541 | free-id=? | |
22542 | id-var-name | |
22543 | same-marks? | |
22544 | join-marks | |
22545 | join-wraps | |
22546 | smart-append | |
22547 | make-binding-wrap | |
22548 | extend-ribcage! | |
22549 | make-empty-ribcage | |
22550 | new-mark | |
22551 | anti-mark | |
22552 | the-anti-mark | |
22553 | top-marked? | |
22554 | top-wrap | |
22555 | empty-wrap | |
22556 | set-ribcage-labels! | |
22557 | set-ribcage-marks! | |
22558 | set-ribcage-symnames! | |
22559 | ribcage-labels | |
22560 | ribcage-marks | |
22561 | ribcage-symnames | |
22562 | ribcage? | |
22563 | make-ribcage | |
22564 | gen-labels | |
22565 | gen-label | |
22566 | make-rename | |
22567 | rename-marks | |
22568 | rename-new | |
22569 | rename-old | |
22570 | subst-rename? | |
22571 | wrap-subst | |
22572 | wrap-marks | |
22573 | make-wrap | |
22574 | id-sym-name&marks | |
22575 | id-sym-name | |
22576 | id? | |
22577 | nonsymbol-id? | |
22578 | global-extend | |
22579 | lookup | |
22580 | macros-only-env | |
22581 | extend-var-env | |
22582 | extend-env | |
22583 | null-env | |
22584 | binding-value | |
22585 | binding-type | |
22586 | make-binding | |
22587 | arg-check | |
22588 | source-annotation | |
22589 | no-source | |
22590 | set-syntax-object-module! | |
22591 | set-syntax-object-wrap! | |
22592 | set-syntax-object-expression! | |
22593 | syntax-object-module | |
22594 | syntax-object-wrap | |
22595 | syntax-object-expression | |
22596 | syntax-object? | |
22597 | make-syntax-object | |
22598 | build-lexical-var | |
22599 | build-letrec | |
22600 | build-named-let | |
22601 | build-let | |
22602 | build-sequence | |
22603 | build-data | |
22604 | build-primref | |
22605 | build-lambda-case | |
22606 | build-case-lambda | |
22607 | build-simple-lambda | |
22608 | build-global-definition | |
22609 | build-global-assignment | |
22610 | build-global-reference | |
22611 | analyze-variable | |
22612 | build-lexical-assignment | |
22613 | build-lexical-reference | |
22614 | build-dynlet | |
22615 | build-conditional | |
22616 | build-application | |
22617 | build-void | |
22618 | maybe-name-value! | |
22619 | decorate-source | |
22620 | get-global-definition-hook | |
22621 | put-global-definition-hook | |
22622 | gensym-hook | |
22623 | local-eval-hook | |
22624 | top-level-eval-hook | |
22625 | fx< | |
22626 | fx= | |
22627 | fx- | |
22628 | fx+ | |
22629 | set-lambda-meta! | |
22630 | lambda-meta | |
22631 | lambda? | |
22632 | make-dynlet | |
22633 | make-letrec | |
22634 | make-let | |
22635 | make-lambda-case | |
22636 | make-lambda | |
22637 | make-sequence | |
22638 | make-application | |
22639 | make-conditional | |
22640 | make-toplevel-define | |
22641 | make-toplevel-set | |
22642 | make-toplevel-ref | |
22643 | make-module-set | |
22644 | make-module-ref | |
22645 | make-lexical-set | |
22646 | make-lexical-ref | |
22647 | make-primitive-ref | |
22648 | make-const | |
22649 | make-void) | |
22650 | ((top) | |
22651 | (top) | |
22652 | (top) | |
22653 | (top) | |
22654 | (top) | |
22655 | (top) | |
22656 | (top) | |
22657 | (top) | |
22658 | (top) | |
22659 | (top) | |
22660 | (top) | |
22661 | (top) | |
22662 | (top) | |
22663 | (top) | |
22664 | (top) | |
22665 | (top) | |
22666 | (top) | |
22667 | (top) | |
22668 | (top) | |
22669 | (top) | |
22670 | (top) | |
22671 | (top) | |
22672 | (top) | |
22673 | (top) | |
22674 | (top) | |
22675 | (top) | |
22676 | (top) | |
22677 | (top) | |
22678 | (top) | |
22679 | (top) | |
22680 | (top) | |
22681 | (top) | |
22682 | (top) | |
22683 | (top) | |
22684 | (top) | |
22685 | (top) | |
22686 | (top) | |
22687 | (top) | |
22688 | (top) | |
22689 | (top) | |
22690 | (top) | |
22691 | (top) | |
22692 | (top) | |
22693 | (top) | |
22694 | (top) | |
22695 | (top) | |
22696 | (top) | |
22697 | (top) | |
22698 | (top) | |
22699 | (top) | |
22700 | (top) | |
22701 | (top) | |
22702 | (top) | |
22703 | (top) | |
22704 | (top) | |
22705 | (top) | |
22706 | (top) | |
22707 | (top) | |
22708 | (top) | |
22709 | (top) | |
22710 | (top) | |
22711 | (top) | |
22712 | (top) | |
22713 | (top) | |
22714 | (top) | |
22715 | (top) | |
22716 | (top) | |
22717 | (top) | |
22718 | (top) | |
22719 | (top) | |
22720 | (top) | |
22721 | (top) | |
22722 | (top) | |
22723 | (top) | |
22724 | (top) | |
22725 | (top) | |
22726 | (top) | |
22727 | (top) | |
22728 | (top) | |
22729 | (top) | |
22730 | (top) | |
22731 | (top) | |
22732 | (top) | |
22733 | (top) | |
22734 | (top) | |
22735 | (top) | |
22736 | (top) | |
22737 | (top) | |
22738 | (top) | |
22739 | (top) | |
22740 | (top) | |
22741 | (top) | |
22742 | (top) | |
22743 | (top) | |
22744 | (top) | |
22745 | (top) | |
22746 | (top) | |
22747 | (top) | |
22748 | (top) | |
22749 | (top) | |
22750 | (top) | |
22751 | (top) | |
22752 | (top) | |
22753 | (top) | |
22754 | (top) | |
22755 | (top) | |
22756 | (top) | |
22757 | (top) | |
22758 | (top) | |
22759 | (top) | |
22760 | (top) | |
22761 | (top) | |
22762 | (top) | |
22763 | (top) | |
22764 | (top) | |
22765 | (top) | |
22766 | (top) | |
22767 | (top) | |
22768 | (top) | |
22769 | (top) | |
22770 | (top) | |
22771 | (top) | |
22772 | (top) | |
22773 | (top) | |
22774 | (top) | |
22775 | (top) | |
22776 | (top) | |
22777 | (top) | |
22778 | (top) | |
22779 | (top) | |
22780 | (top) | |
22781 | (top) | |
22782 | (top) | |
22783 | (top) | |
22784 | (top) | |
22785 | (top)) | |
22786 | ("i467" | |
22787 | "i465" | |
22788 | "i463" | |
22789 | "i461" | |
22790 | "i459" | |
22791 | "i457" | |
22792 | "i455" | |
22793 | "i453" | |
22794 | "i451" | |
22795 | "i449" | |
22796 | "i447" | |
22797 | "i445" | |
22798 | "i443" | |
22799 | "i441" | |
22800 | "i439" | |
22801 | "i437" | |
22802 | "i435" | |
22803 | "i433" | |
22804 | "i431" | |
22805 | "i429" | |
22806 | "i427" | |
22807 | "i425" | |
22808 | "i423" | |
22809 | "i421" | |
22810 | "i419" | |
22811 | "i417" | |
22812 | "i415" | |
22813 | "i413" | |
22814 | "i411" | |
22815 | "i409" | |
22816 | "i407" | |
22817 | "i405" | |
22818 | "i403" | |
22819 | "i401" | |
22820 | "i399" | |
22821 | "i398" | |
22822 | "i396" | |
22823 | "i393" | |
22824 | "i392" | |
22825 | "i391" | |
22826 | "i389" | |
22827 | "i388" | |
22828 | "i386" | |
22829 | "i384" | |
22830 | "i382" | |
22831 | "i380" | |
22832 | "i378" | |
22833 | "i376" | |
22834 | "i374" | |
22835 | "i372" | |
22836 | "i369" | |
22837 | "i367" | |
22838 | "i366" | |
22839 | "i364" | |
22840 | "i362" | |
22841 | "i360" | |
22842 | "i358" | |
22843 | "i357" | |
22844 | "i356" | |
22845 | "i355" | |
22846 | "i353" | |
22847 | "i352" | |
22848 | "i349" | |
22849 | "i347" | |
22850 | "i345" | |
22851 | "i343" | |
22852 | "i341" | |
22853 | "i339" | |
22854 | "i337" | |
22855 | "i336" | |
22856 | "i335" | |
22857 | "i333" | |
22858 | "i331" | |
22859 | "i330" | |
22860 | "i327" | |
22861 | "i326" | |
22862 | "i324" | |
22863 | "i322" | |
22864 | "i320" | |
22865 | "i318" | |
22866 | "i316" | |
22867 | "i314" | |
22868 | "i312" | |
22869 | "i310" | |
22870 | "i308" | |
22871 | "i305" | |
22872 | "i303" | |
22873 | "i301" | |
22874 | "i299" | |
22875 | "i297" | |
22876 | "i295" | |
22877 | "i293" | |
22878 | "i291" | |
22879 | "i289" | |
22880 | "i287" | |
22881 | "i285" | |
22882 | "i283" | |
22883 | "i281" | |
22884 | "i279" | |
22885 | "i277" | |
22886 | "i275" | |
22887 | "i273" | |
22888 | "i271" | |
22889 | "i269" | |
22890 | "i267" | |
22891 | "i265" | |
22892 | "i263" | |
22893 | "i261" | |
22894 | "i260" | |
22895 | "i257" | |
22896 | "i255" | |
22897 | "i254" | |
22898 | "i253" | |
22899 | "i252" | |
22900 | "i251" | |
22901 | "i249" | |
22902 | "i247" | |
22903 | "i245" | |
22904 | "i242" | |
22905 | "i240" | |
22906 | "i238" | |
22907 | "i236" | |
22908 | "i234" | |
22909 | "i232" | |
22910 | "i230" | |
22911 | "i228" | |
22912 | "i226" | |
22913 | "i224" | |
22914 | "i222" | |
22915 | "i220" | |
22916 | "i218" | |
22917 | "i216" | |
22918 | "i214" | |
22919 | "i212" | |
22920 | "i210" | |
22921 | "i208")) | |
22922 | #(ribcage | |
22923 | (define-structure | |
22924 | define-expansion-accessors | |
22925 | define-expansion-constructors) | |
22926 | ((top) (top) (top)) | |
22927 | ("i46" "i45" "i44"))) | |
22928 | (hygiene guile)))) | |
22929 | (eq? (#{id-var-name 4332}# | |
22930 | '#(syntax-object | |
22931 | pad | |
22932 | ((top) | |
22933 | #(ribcage | |
22934 | #(pat exp) | |
22935 | #((top) (top)) | |
22936 | #("i3911" "i3912")) | |
22937 | #(ribcage () () ()) | |
22938 | #(ribcage | |
22939 | #(x keys clauses r mod) | |
22940 | #((top) (top) (top) (top) (top)) | |
22941 | #("i3900" | |
22942 | "i3901" | |
22943 | "i3902" | |
22944 | "i3903" | |
22945 | "i3904")) | |
22946 | #(ribcage | |
22947 | (gen-syntax-case | |
22948 | gen-clause | |
22949 | build-dispatch-call | |
22950 | convert-pattern) | |
22951 | ((top) (top) (top) (top)) | |
22952 | ("i3710" | |
22953 | "i3708" | |
22954 | "i3706" | |
22955 | "i3704")) | |
22956 | #(ribcage | |
22957 | (lambda-var-list | |
22958 | gen-var | |
22959 | strip | |
22960 | expand-lambda-case | |
22961 | lambda*-formals | |
22962 | expand-simple-lambda | |
22963 | lambda-formals | |
22964 | ellipsis? | |
22965 | expand-void | |
22966 | eval-local-transformer | |
22967 | expand-local-syntax | |
22968 | expand-body | |
22969 | expand-macro | |
22970 | expand-application | |
22971 | expand-expr | |
22972 | expand | |
22973 | syntax-type | |
22974 | expand-when-list | |
22975 | expand-install-global | |
22976 | expand-top-sequence | |
22977 | expand-sequence | |
22978 | source-wrap | |
22979 | wrap | |
22980 | bound-id-member? | |
22981 | distinct-bound-ids? | |
22982 | valid-bound-ids? | |
22983 | bound-id=? | |
22984 | free-id=? | |
22985 | id-var-name | |
22986 | same-marks? | |
22987 | join-marks | |
22988 | join-wraps | |
22989 | smart-append | |
22990 | make-binding-wrap | |
22991 | extend-ribcage! | |
22992 | make-empty-ribcage | |
22993 | new-mark | |
22994 | anti-mark | |
22995 | the-anti-mark | |
22996 | top-marked? | |
22997 | top-wrap | |
22998 | empty-wrap | |
22999 | set-ribcage-labels! | |
23000 | set-ribcage-marks! | |
23001 | set-ribcage-symnames! | |
23002 | ribcage-labels | |
23003 | ribcage-marks | |
23004 | ribcage-symnames | |
23005 | ribcage? | |
23006 | make-ribcage | |
23007 | gen-labels | |
23008 | gen-label | |
23009 | make-rename | |
23010 | rename-marks | |
23011 | rename-new | |
23012 | rename-old | |
23013 | subst-rename? | |
23014 | wrap-subst | |
23015 | wrap-marks | |
23016 | make-wrap | |
23017 | id-sym-name&marks | |
23018 | id-sym-name | |
23019 | id? | |
23020 | nonsymbol-id? | |
23021 | global-extend | |
23022 | lookup | |
23023 | macros-only-env | |
23024 | extend-var-env | |
23025 | extend-env | |
23026 | null-env | |
23027 | binding-value | |
23028 | binding-type | |
23029 | make-binding | |
23030 | arg-check | |
23031 | source-annotation | |
23032 | no-source | |
23033 | set-syntax-object-module! | |
23034 | set-syntax-object-wrap! | |
23035 | set-syntax-object-expression! | |
23036 | syntax-object-module | |
23037 | syntax-object-wrap | |
23038 | syntax-object-expression | |
23039 | syntax-object? | |
23040 | make-syntax-object | |
23041 | build-lexical-var | |
23042 | build-letrec | |
23043 | build-named-let | |
23044 | build-let | |
23045 | build-sequence | |
23046 | build-data | |
23047 | build-primref | |
23048 | build-lambda-case | |
23049 | build-case-lambda | |
23050 | build-simple-lambda | |
23051 | build-global-definition | |
23052 | build-global-assignment | |
23053 | build-global-reference | |
23054 | analyze-variable | |
23055 | build-lexical-assignment | |
23056 | build-lexical-reference | |
23057 | build-dynlet | |
23058 | build-conditional | |
23059 | build-application | |
23060 | build-void | |
23061 | maybe-name-value! | |
23062 | decorate-source | |
23063 | get-global-definition-hook | |
23064 | put-global-definition-hook | |
23065 | gensym-hook | |
23066 | local-eval-hook | |
23067 | top-level-eval-hook | |
23068 | fx< | |
23069 | fx= | |
23070 | fx- | |
23071 | fx+ | |
23072 | set-lambda-meta! | |
23073 | lambda-meta | |
23074 | lambda? | |
23075 | make-dynlet | |
23076 | make-letrec | |
23077 | make-let | |
23078 | make-lambda-case | |
23079 | make-lambda | |
23080 | make-sequence | |
23081 | make-application | |
23082 | make-conditional | |
23083 | make-toplevel-define | |
23084 | make-toplevel-set | |
23085 | make-toplevel-ref | |
23086 | make-module-set | |
23087 | make-module-ref | |
23088 | make-lexical-set | |
23089 | make-lexical-ref | |
23090 | make-primitive-ref | |
23091 | make-const | |
23092 | make-void) | |
23093 | ((top) | |
23094 | (top) | |
23095 | (top) | |
23096 | (top) | |
23097 | (top) | |
23098 | (top) | |
23099 | (top) | |
23100 | (top) | |
23101 | (top) | |
23102 | (top) | |
23103 | (top) | |
23104 | (top) | |
23105 | (top) | |
23106 | (top) | |
23107 | (top) | |
23108 | (top) | |
23109 | (top) | |
23110 | (top) | |
23111 | (top) | |
23112 | (top) | |
23113 | (top) | |
23114 | (top) | |
23115 | (top) | |
23116 | (top) | |
23117 | (top) | |
23118 | (top) | |
23119 | (top) | |
23120 | (top) | |
23121 | (top) | |
23122 | (top) | |
23123 | (top) | |
23124 | (top) | |
23125 | (top) | |
23126 | (top) | |
23127 | (top) | |
23128 | (top) | |
23129 | (top) | |
23130 | (top) | |
23131 | (top) | |
23132 | (top) | |
23133 | (top) | |
23134 | (top) | |
23135 | (top) | |
23136 | (top) | |
23137 | (top) | |
23138 | (top) | |
23139 | (top) | |
23140 | (top) | |
23141 | (top) | |
23142 | (top) | |
23143 | (top) | |
23144 | (top) | |
23145 | (top) | |
23146 | (top) | |
23147 | (top) | |
23148 | (top) | |
23149 | (top) | |
23150 | (top) | |
23151 | (top) | |
23152 | (top) | |
23153 | (top) | |
23154 | (top) | |
23155 | (top) | |
23156 | (top) | |
23157 | (top) | |
23158 | (top) | |
23159 | (top) | |
23160 | (top) | |
23161 | (top) | |
23162 | (top) | |
23163 | (top) | |
23164 | (top) | |
23165 | (top) | |
23166 | (top) | |
23167 | (top) | |
23168 | (top) | |
23169 | (top) | |
23170 | (top) | |
23171 | (top) | |
23172 | (top) | |
23173 | (top) | |
23174 | (top) | |
23175 | (top) | |
23176 | (top) | |
23177 | (top) | |
23178 | (top) | |
23179 | (top) | |
23180 | (top) | |
23181 | (top) | |
23182 | (top) | |
23183 | (top) | |
23184 | (top) | |
23185 | (top) | |
23186 | (top) | |
23187 | (top) | |
23188 | (top) | |
23189 | (top) | |
23190 | (top) | |
23191 | (top) | |
23192 | (top) | |
23193 | (top) | |
23194 | (top) | |
23195 | (top) | |
23196 | (top) | |
23197 | (top) | |
23198 | (top) | |
23199 | (top) | |
23200 | (top) | |
23201 | (top) | |
23202 | (top) | |
23203 | (top) | |
23204 | (top) | |
23205 | (top) | |
23206 | (top) | |
23207 | (top) | |
23208 | (top) | |
23209 | (top) | |
23210 | (top) | |
23211 | (top) | |
23212 | (top) | |
23213 | (top) | |
23214 | (top) | |
23215 | (top) | |
23216 | (top) | |
23217 | (top) | |
23218 | (top) | |
23219 | (top) | |
23220 | (top) | |
23221 | (top) | |
23222 | (top) | |
23223 | (top) | |
23224 | (top) | |
23225 | (top) | |
23226 | (top) | |
23227 | (top) | |
23228 | (top)) | |
23229 | ("i467" | |
23230 | "i465" | |
23231 | "i463" | |
23232 | "i461" | |
23233 | "i459" | |
23234 | "i457" | |
23235 | "i455" | |
23236 | "i453" | |
23237 | "i451" | |
23238 | "i449" | |
23239 | "i447" | |
23240 | "i445" | |
23241 | "i443" | |
23242 | "i441" | |
23243 | "i439" | |
23244 | "i437" | |
23245 | "i435" | |
23246 | "i433" | |
23247 | "i431" | |
23248 | "i429" | |
23249 | "i427" | |
23250 | "i425" | |
23251 | "i423" | |
23252 | "i421" | |
23253 | "i419" | |
23254 | "i417" | |
23255 | "i415" | |
23256 | "i413" | |
23257 | "i411" | |
23258 | "i409" | |
23259 | "i407" | |
23260 | "i405" | |
23261 | "i403" | |
23262 | "i401" | |
23263 | "i399" | |
23264 | "i398" | |
23265 | "i396" | |
23266 | "i393" | |
23267 | "i392" | |
23268 | "i391" | |
23269 | "i389" | |
23270 | "i388" | |
23271 | "i386" | |
23272 | "i384" | |
23273 | "i382" | |
23274 | "i380" | |
23275 | "i378" | |
23276 | "i376" | |
23277 | "i374" | |
23278 | "i372" | |
23279 | "i369" | |
23280 | "i367" | |
23281 | "i366" | |
23282 | "i364" | |
23283 | "i362" | |
23284 | "i360" | |
23285 | "i358" | |
23286 | "i357" | |
23287 | "i356" | |
23288 | "i355" | |
23289 | "i353" | |
23290 | "i352" | |
23291 | "i349" | |
23292 | "i347" | |
23293 | "i345" | |
23294 | "i343" | |
23295 | "i341" | |
23296 | "i339" | |
23297 | "i337" | |
23298 | "i336" | |
23299 | "i335" | |
23300 | "i333" | |
23301 | "i331" | |
23302 | "i330" | |
23303 | "i327" | |
23304 | "i326" | |
23305 | "i324" | |
23306 | "i322" | |
23307 | "i320" | |
23308 | "i318" | |
23309 | "i316" | |
23310 | "i314" | |
23311 | "i312" | |
23312 | "i310" | |
23313 | "i308" | |
23314 | "i305" | |
23315 | "i303" | |
23316 | "i301" | |
23317 | "i299" | |
23318 | "i297" | |
23319 | "i295" | |
23320 | "i293" | |
23321 | "i291" | |
23322 | "i289" | |
23323 | "i287" | |
23324 | "i285" | |
23325 | "i283" | |
23326 | "i281" | |
23327 | "i279" | |
23328 | "i277" | |
23329 | "i275" | |
23330 | "i273" | |
23331 | "i271" | |
23332 | "i269" | |
23333 | "i267" | |
23334 | "i265" | |
23335 | "i263" | |
23336 | "i261" | |
23337 | "i260" | |
23338 | "i257" | |
23339 | "i255" | |
23340 | "i254" | |
23341 | "i253" | |
23342 | "i252" | |
23343 | "i251" | |
23344 | "i249" | |
23345 | "i247" | |
23346 | "i245" | |
23347 | "i242" | |
23348 | "i240" | |
23349 | "i238" | |
23350 | "i236" | |
23351 | "i234" | |
23352 | "i232" | |
23353 | "i230" | |
23354 | "i228" | |
23355 | "i226" | |
23356 | "i224" | |
23357 | "i222" | |
23358 | "i220" | |
23359 | "i218" | |
23360 | "i216" | |
23361 | "i214" | |
23362 | "i212" | |
23363 | "i210" | |
23364 | "i208")) | |
23365 | #(ribcage | |
23366 | (define-structure | |
23367 | define-expansion-accessors | |
23368 | define-expansion-constructors) | |
23369 | ((top) (top) (top)) | |
23370 | ("i46" "i45" "i44"))) | |
23371 | (hygiene guile)) | |
23372 | '(())) | |
23373 | (#{id-var-name 4332}# | |
23374 | '#(syntax-object | |
23375 | _ | |
23376 | ((top) | |
23377 | #(ribcage | |
23378 | #(pat exp) | |
23379 | #((top) (top)) | |
23380 | #("i3911" "i3912")) | |
23381 | #(ribcage () () ()) | |
23382 | #(ribcage | |
23383 | #(x keys clauses r mod) | |
23384 | #((top) (top) (top) (top) (top)) | |
23385 | #("i3900" | |
23386 | "i3901" | |
23387 | "i3902" | |
23388 | "i3903" | |
23389 | "i3904")) | |
23390 | #(ribcage | |
23391 | (gen-syntax-case | |
23392 | gen-clause | |
23393 | build-dispatch-call | |
23394 | convert-pattern) | |
23395 | ((top) (top) (top) (top)) | |
23396 | ("i3710" | |
23397 | "i3708" | |
23398 | "i3706" | |
23399 | "i3704")) | |
23400 | #(ribcage | |
23401 | (lambda-var-list | |
23402 | gen-var | |
23403 | strip | |
23404 | expand-lambda-case | |
23405 | lambda*-formals | |
23406 | expand-simple-lambda | |
23407 | lambda-formals | |
23408 | ellipsis? | |
23409 | expand-void | |
23410 | eval-local-transformer | |
23411 | expand-local-syntax | |
23412 | expand-body | |
23413 | expand-macro | |
23414 | expand-application | |
23415 | expand-expr | |
23416 | expand | |
23417 | syntax-type | |
23418 | expand-when-list | |
23419 | expand-install-global | |
23420 | expand-top-sequence | |
23421 | expand-sequence | |
23422 | source-wrap | |
23423 | wrap | |
23424 | bound-id-member? | |
23425 | distinct-bound-ids? | |
23426 | valid-bound-ids? | |
23427 | bound-id=? | |
23428 | free-id=? | |
23429 | id-var-name | |
23430 | same-marks? | |
23431 | join-marks | |
23432 | join-wraps | |
23433 | smart-append | |
23434 | make-binding-wrap | |
23435 | extend-ribcage! | |
23436 | make-empty-ribcage | |
23437 | new-mark | |
23438 | anti-mark | |
23439 | the-anti-mark | |
23440 | top-marked? | |
23441 | top-wrap | |
23442 | empty-wrap | |
23443 | set-ribcage-labels! | |
23444 | set-ribcage-marks! | |
23445 | set-ribcage-symnames! | |
23446 | ribcage-labels | |
23447 | ribcage-marks | |
23448 | ribcage-symnames | |
23449 | ribcage? | |
23450 | make-ribcage | |
23451 | gen-labels | |
23452 | gen-label | |
23453 | make-rename | |
23454 | rename-marks | |
23455 | rename-new | |
23456 | rename-old | |
23457 | subst-rename? | |
23458 | wrap-subst | |
23459 | wrap-marks | |
23460 | make-wrap | |
23461 | id-sym-name&marks | |
23462 | id-sym-name | |
23463 | id? | |
23464 | nonsymbol-id? | |
23465 | global-extend | |
23466 | lookup | |
23467 | macros-only-env | |
23468 | extend-var-env | |
23469 | extend-env | |
23470 | null-env | |
23471 | binding-value | |
23472 | binding-type | |
23473 | make-binding | |
23474 | arg-check | |
23475 | source-annotation | |
23476 | no-source | |
23477 | set-syntax-object-module! | |
23478 | set-syntax-object-wrap! | |
23479 | set-syntax-object-expression! | |
23480 | syntax-object-module | |
23481 | syntax-object-wrap | |
23482 | syntax-object-expression | |
23483 | syntax-object? | |
23484 | make-syntax-object | |
23485 | build-lexical-var | |
23486 | build-letrec | |
23487 | build-named-let | |
23488 | build-let | |
23489 | build-sequence | |
23490 | build-data | |
23491 | build-primref | |
23492 | build-lambda-case | |
23493 | build-case-lambda | |
23494 | build-simple-lambda | |
23495 | build-global-definition | |
23496 | build-global-assignment | |
23497 | build-global-reference | |
23498 | analyze-variable | |
23499 | build-lexical-assignment | |
23500 | build-lexical-reference | |
23501 | build-dynlet | |
23502 | build-conditional | |
23503 | build-application | |
23504 | build-void | |
23505 | maybe-name-value! | |
23506 | decorate-source | |
23507 | get-global-definition-hook | |
23508 | put-global-definition-hook | |
23509 | gensym-hook | |
23510 | local-eval-hook | |
23511 | top-level-eval-hook | |
23512 | fx< | |
23513 | fx= | |
23514 | fx- | |
23515 | fx+ | |
23516 | set-lambda-meta! | |
23517 | lambda-meta | |
23518 | lambda? | |
23519 | make-dynlet | |
23520 | make-letrec | |
23521 | make-let | |
23522 | make-lambda-case | |
23523 | make-lambda | |
23524 | make-sequence | |
23525 | make-application | |
23526 | make-conditional | |
23527 | make-toplevel-define | |
23528 | make-toplevel-set | |
23529 | make-toplevel-ref | |
23530 | make-module-set | |
23531 | make-module-ref | |
23532 | make-lexical-set | |
23533 | make-lexical-ref | |
23534 | make-primitive-ref | |
23535 | make-const | |
23536 | make-void) | |
23537 | ((top) | |
23538 | (top) | |
23539 | (top) | |
23540 | (top) | |
23541 | (top) | |
23542 | (top) | |
23543 | (top) | |
23544 | (top) | |
23545 | (top) | |
23546 | (top) | |
23547 | (top) | |
23548 | (top) | |
23549 | (top) | |
23550 | (top) | |
23551 | (top) | |
23552 | (top) | |
23553 | (top) | |
23554 | (top) | |
23555 | (top) | |
23556 | (top) | |
23557 | (top) | |
23558 | (top) | |
23559 | (top) | |
23560 | (top) | |
23561 | (top) | |
23562 | (top) | |
23563 | (top) | |
23564 | (top) | |
23565 | (top) | |
23566 | (top) | |
23567 | (top) | |
23568 | (top) | |
23569 | (top) | |
23570 | (top) | |
23571 | (top) | |
23572 | (top) | |
23573 | (top) | |
23574 | (top) | |
23575 | (top) | |
23576 | (top) | |
23577 | (top) | |
23578 | (top) | |
23579 | (top) | |
23580 | (top) | |
23581 | (top) | |
23582 | (top) | |
23583 | (top) | |
23584 | (top) | |
23585 | (top) | |
23586 | (top) | |
23587 | (top) | |
23588 | (top) | |
23589 | (top) | |
23590 | (top) | |
23591 | (top) | |
23592 | (top) | |
23593 | (top) | |
23594 | (top) | |
23595 | (top) | |
23596 | (top) | |
23597 | (top) | |
23598 | (top) | |
23599 | (top) | |
23600 | (top) | |
23601 | (top) | |
23602 | (top) | |
23603 | (top) | |
23604 | (top) | |
23605 | (top) | |
23606 | (top) | |
23607 | (top) | |
23608 | (top) | |
23609 | (top) | |
23610 | (top) | |
23611 | (top) | |
23612 | (top) | |
23613 | (top) | |
23614 | (top) | |
23615 | (top) | |
23616 | (top) | |
23617 | (top) | |
23618 | (top) | |
23619 | (top) | |
23620 | (top) | |
23621 | (top) | |
23622 | (top) | |
23623 | (top) | |
23624 | (top) | |
23625 | (top) | |
23626 | (top) | |
23627 | (top) | |
23628 | (top) | |
23629 | (top) | |
23630 | (top) | |
23631 | (top) | |
23632 | (top) | |
23633 | (top) | |
23634 | (top) | |
23635 | (top) | |
23636 | (top) | |
23637 | (top) | |
23638 | (top) | |
23639 | (top) | |
23640 | (top) | |
23641 | (top) | |
23642 | (top) | |
23643 | (top) | |
23644 | (top) | |
23645 | (top) | |
23646 | (top) | |
23647 | (top) | |
23648 | (top) | |
23649 | (top) | |
23650 | (top) | |
23651 | (top) | |
23652 | (top) | |
23653 | (top) | |
23654 | (top) | |
23655 | (top) | |
23656 | (top) | |
23657 | (top) | |
23658 | (top) | |
23659 | (top) | |
23660 | (top) | |
23661 | (top) | |
23662 | (top) | |
23663 | (top) | |
23664 | (top) | |
23665 | (top) | |
23666 | (top) | |
23667 | (top) | |
23668 | (top) | |
23669 | (top) | |
23670 | (top) | |
23671 | (top) | |
23672 | (top)) | |
23673 | ("i467" | |
23674 | "i465" | |
23675 | "i463" | |
23676 | "i461" | |
23677 | "i459" | |
23678 | "i457" | |
23679 | "i455" | |
23680 | "i453" | |
23681 | "i451" | |
23682 | "i449" | |
23683 | "i447" | |
23684 | "i445" | |
23685 | "i443" | |
23686 | "i441" | |
23687 | "i439" | |
23688 | "i437" | |
23689 | "i435" | |
23690 | "i433" | |
23691 | "i431" | |
23692 | "i429" | |
23693 | "i427" | |
23694 | "i425" | |
23695 | "i423" | |
23696 | "i421" | |
23697 | "i419" | |
23698 | "i417" | |
23699 | "i415" | |
23700 | "i413" | |
23701 | "i411" | |
23702 | "i409" | |
23703 | "i407" | |
23704 | "i405" | |
23705 | "i403" | |
23706 | "i401" | |
23707 | "i399" | |
23708 | "i398" | |
23709 | "i396" | |
23710 | "i393" | |
23711 | "i392" | |
23712 | "i391" | |
23713 | "i389" | |
23714 | "i388" | |
23715 | "i386" | |
23716 | "i384" | |
23717 | "i382" | |
23718 | "i380" | |
23719 | "i378" | |
23720 | "i376" | |
23721 | "i374" | |
23722 | "i372" | |
23723 | "i369" | |
23724 | "i367" | |
23725 | "i366" | |
23726 | "i364" | |
23727 | "i362" | |
23728 | "i360" | |
23729 | "i358" | |
23730 | "i357" | |
23731 | "i356" | |
23732 | "i355" | |
23733 | "i353" | |
23734 | "i352" | |
23735 | "i349" | |
23736 | "i347" | |
23737 | "i345" | |
23738 | "i343" | |
23739 | "i341" | |
23740 | "i339" | |
23741 | "i337" | |
23742 | "i336" | |
23743 | "i335" | |
23744 | "i333" | |
23745 | "i331" | |
23746 | "i330" | |
23747 | "i327" | |
23748 | "i326" | |
23749 | "i324" | |
23750 | "i322" | |
23751 | "i320" | |
23752 | "i318" | |
23753 | "i316" | |
23754 | "i314" | |
23755 | "i312" | |
23756 | "i310" | |
23757 | "i308" | |
23758 | "i305" | |
23759 | "i303" | |
23760 | "i301" | |
23761 | "i299" | |
23762 | "i297" | |
23763 | "i295" | |
23764 | "i293" | |
23765 | "i291" | |
23766 | "i289" | |
23767 | "i287" | |
23768 | "i285" | |
23769 | "i283" | |
23770 | "i281" | |
23771 | "i279" | |
23772 | "i277" | |
23773 | "i275" | |
23774 | "i273" | |
23775 | "i271" | |
23776 | "i269" | |
23777 | "i267" | |
23778 | "i265" | |
23779 | "i263" | |
23780 | "i261" | |
23781 | "i260" | |
23782 | "i257" | |
23783 | "i255" | |
23784 | "i254" | |
23785 | "i253" | |
23786 | "i252" | |
23787 | "i251" | |
23788 | "i249" | |
23789 | "i247" | |
23790 | "i245" | |
23791 | "i242" | |
23792 | "i240" | |
23793 | "i238" | |
23794 | "i236" | |
23795 | "i234" | |
23796 | "i232" | |
23797 | "i230" | |
23798 | "i228" | |
23799 | "i226" | |
23800 | "i224" | |
23801 | "i222" | |
23802 | "i220" | |
23803 | "i218" | |
23804 | "i216" | |
23805 | "i214" | |
23806 | "i212" | |
23807 | "i210" | |
23808 | "i208")) | |
23809 | #(ribcage | |
23810 | (define-structure | |
23811 | define-expansion-accessors | |
23812 | define-expansion-constructors) | |
23813 | ((top) (top) (top)) | |
23814 | ("i46" "i45" "i44"))) | |
23815 | (hygiene guile)) | |
23816 | '(()))) | |
23817 | #f) | |
23818 | (#{expand 4345}# | |
23819 | #{exp 12613}# | |
23820 | #{r 12569}# | |
23821 | '(()) | |
23822 | #{mod 12570}#) | |
23823 | (let ((#{labels 12821}# | |
23824 | (list (symbol->string (gensym "i")))) | |
23825 | (#{var 12822}# | |
23826 | (let ((#{id 12860}# | |
23827 | (if (if (vector? #{pat 12612}#) | |
23828 | (if (= (vector-length | |
23829 | #{pat 12612}#) | |
23830 | 4) | |
23831 | (eq? (vector-ref | |
23832 | #{pat 12612}# | |
23833 | 0) | |
23834 | 'syntax-object) | |
23835 | #f) | |
23836 | #f) | |
23837 | (vector-ref #{pat 12612}# 1) | |
23838 | #{pat 12612}#))) | |
23839 | (gensym | |
23840 | (string-append | |
23841 | (symbol->string #{id 12860}#) | |
23842 | " "))))) | |
23843 | (#{build-application 4280}# | |
23844 | #f | |
23845 | (#{build-simple-lambda 4289}# | |
23846 | #f | |
23847 | (list (syntax->datum #{pat 12612}#)) | |
23848 | #f | |
23849 | (list #{var 12822}#) | |
23850 | '() | |
23851 | (#{expand 4345}# | |
23852 | #{exp 12613}# | |
23853 | (#{extend-env 4307}# | |
23854 | #{labels 12821}# | |
23855 | (list (cons 'syntax | |
23856 | (cons #{var 12822}# 0))) | |
23857 | #{r 12569}#) | |
23858 | (#{make-binding-wrap 4327}# | |
23859 | (list #{pat 12612}#) | |
23860 | #{labels 12821}# | |
23861 | '(())) | |
23862 | #{mod 12570}#)) | |
23863 | (list #{x 12566}#)))) | |
23864 | (#{gen-clause 12156}# | |
23865 | #{x 12566}# | |
23866 | #{keys 12567}# | |
23867 | (cdr #{clauses 12568}#) | |
23868 | #{r 12569}# | |
23869 | #{pat 12612}# | |
23870 | #t | |
23871 | #{exp 12613}# | |
23872 | #{mod 12570}#))) | |
23873 | #{tmp 12610}#) | |
23874 | (let ((#{tmp 13130}# | |
23875 | ($sc-dispatch #{tmp 12609}# '(any any any)))) | |
23876 | (if #{tmp 13130}# | |
23877 | (@apply | |
23878 | (lambda (#{pat 13132}# | |
23879 | #{fender 13133}# | |
23880 | #{exp 13134}#) | |
23881 | (#{gen-clause 12156}# | |
23882 | #{x 12566}# | |
23883 | #{keys 12567}# | |
23884 | (cdr #{clauses 12568}#) | |
23885 | #{r 12569}# | |
23886 | #{pat 13132}# | |
23887 | #{fender 13133}# | |
23888 | #{exp 13134}# | |
23889 | #{mod 12570}#)) | |
23890 | #{tmp 13130}#) | |
23891 | (syntax-violation | |
23892 | 'syntax-case | |
23893 | "invalid clause" | |
23894 | (car #{clauses 12568}#))))))))))) | |
23895 | (lambda (#{e 12158}# | |
23896 | #{r 12159}# | |
23897 | #{w 12160}# | |
23898 | #{s 12161}# | |
23899 | #{mod 12162}#) | |
23900 | (let ((#{e 12163}# | |
23901 | (#{wrap 4338}# | |
23902 | (begin | |
23903 | (if (if (pair? #{e 12158}#) #{s 12161}# #f) | |
23904 | (set-source-properties! #{e 12158}# #{s 12161}#)) | |
23905 | #{e 12158}#) | |
23906 | #{w 12160}# | |
23907 | #{mod 12162}#))) | |
23908 | (let ((#{tmp 12165}# | |
23909 | ($sc-dispatch | |
23910 | #{e 12163}# | |
23911 | '(_ any each-any . each-any)))) | |
23912 | (if #{tmp 12165}# | |
23913 | (@apply | |
23914 | (lambda (#{val 12190}# #{key 12191}# #{m 12192}#) | |
23915 | (if (and-map | |
23916 | (lambda (#{x 12193}#) | |
23917 | (if (if (symbol? #{x 12193}#) | |
23918 | #t | |
23919 | (if (if (vector? #{x 12193}#) | |
23920 | (if (= (vector-length #{x 12193}#) 4) | |
23921 | (eq? (vector-ref #{x 12193}# 0) | |
23922 | 'syntax-object) | |
23923 | #f) | |
23924 | #f) | |
23925 | (symbol? (vector-ref #{x 12193}# 1)) | |
23926 | #f)) | |
23927 | (not (if (if (if (vector? #{x 12193}#) | |
23928 | (if (= (vector-length #{x 12193}#) | |
23929 | 4) | |
23930 | (eq? (vector-ref #{x 12193}# 0) | |
23931 | 'syntax-object) | |
23932 | #f) | |
23933 | #f) | |
23934 | (symbol? (vector-ref #{x 12193}# 1)) | |
23935 | #f) | |
23936 | (if (eq? (if (if (vector? #{x 12193}#) | |
23937 | (if (= (vector-length | |
23938 | #{x 12193}#) | |
23939 | 4) | |
23940 | (eq? (vector-ref | |
23941 | #{x 12193}# | |
23942 | 0) | |
23943 | 'syntax-object) | |
23944 | #f) | |
23945 | #f) | |
23946 | (vector-ref #{x 12193}# 1) | |
23947 | #{x 12193}#) | |
23948 | (if (if (= (vector-length | |
23949 | '#(syntax-object | |
23950 | ... | |
23951 | ((top) | |
23952 | #(ribcage | |
23953 | () | |
23954 | () | |
23955 | ()) | |
23956 | #(ribcage | |
23957 | () | |
23958 | () | |
23959 | ()) | |
23960 | #(ribcage | |
23961 | #(x) | |
23962 | #((top)) | |
23963 | #("i2230")) | |
23964 | #(ribcage | |
23965 | (lambda-var-list | |
23966 | gen-var | |
23967 | strip | |
23968 | expand-lambda-case | |
23969 | lambda*-formals | |
23970 | expand-simple-lambda | |
23971 | lambda-formals | |
23972 | ellipsis? | |
23973 | expand-void | |
23974 | eval-local-transformer | |
23975 | expand-local-syntax | |
23976 | expand-body | |
23977 | expand-macro | |
23978 | expand-application | |
23979 | expand-expr | |
23980 | expand | |
23981 | syntax-type | |
23982 | expand-when-list | |
23983 | expand-install-global | |
23984 | expand-top-sequence | |
23985 | expand-sequence | |
23986 | source-wrap | |
23987 | wrap | |
23988 | bound-id-member? | |
23989 | distinct-bound-ids? | |
23990 | valid-bound-ids? | |
23991 | bound-id=? | |
23992 | free-id=? | |
23993 | id-var-name | |
23994 | same-marks? | |
23995 | join-marks | |
23996 | join-wraps | |
23997 | smart-append | |
23998 | make-binding-wrap | |
23999 | extend-ribcage! | |
24000 | make-empty-ribcage | |
24001 | new-mark | |
24002 | anti-mark | |
24003 | the-anti-mark | |
24004 | top-marked? | |
24005 | top-wrap | |
24006 | empty-wrap | |
24007 | set-ribcage-labels! | |
24008 | set-ribcage-marks! | |
24009 | set-ribcage-symnames! | |
24010 | ribcage-labels | |
24011 | ribcage-marks | |
24012 | ribcage-symnames | |
24013 | ribcage? | |
24014 | make-ribcage | |
24015 | gen-labels | |
24016 | gen-label | |
24017 | make-rename | |
24018 | rename-marks | |
24019 | rename-new | |
24020 | rename-old | |
24021 | subst-rename? | |
24022 | wrap-subst | |
24023 | wrap-marks | |
24024 | make-wrap | |
24025 | id-sym-name&marks | |
24026 | id-sym-name | |
24027 | id? | |
24028 | nonsymbol-id? | |
24029 | global-extend | |
24030 | lookup | |
24031 | macros-only-env | |
24032 | extend-var-env | |
24033 | extend-env | |
24034 | null-env | |
24035 | binding-value | |
24036 | binding-type | |
24037 | make-binding | |
24038 | arg-check | |
24039 | source-annotation | |
24040 | no-source | |
24041 | set-syntax-object-module! | |
24042 | set-syntax-object-wrap! | |
24043 | set-syntax-object-expression! | |
24044 | syntax-object-module | |
24045 | syntax-object-wrap | |
24046 | syntax-object-expression | |
24047 | syntax-object? | |
24048 | make-syntax-object | |
24049 | build-lexical-var | |
24050 | build-letrec | |
24051 | build-named-let | |
24052 | build-let | |
24053 | build-sequence | |
24054 | build-data | |
24055 | build-primref | |
24056 | build-lambda-case | |
24057 | build-case-lambda | |
24058 | build-simple-lambda | |
24059 | build-global-definition | |
24060 | build-global-assignment | |
24061 | build-global-reference | |
24062 | analyze-variable | |
24063 | build-lexical-assignment | |
24064 | build-lexical-reference | |
24065 | build-dynlet | |
24066 | build-conditional | |
24067 | build-application | |
24068 | build-void | |
24069 | maybe-name-value! | |
24070 | decorate-source | |
24071 | get-global-definition-hook | |
24072 | put-global-definition-hook | |
24073 | gensym-hook | |
24074 | local-eval-hook | |
24075 | top-level-eval-hook | |
24076 | fx< | |
24077 | fx= | |
24078 | fx- | |
24079 | fx+ | |
24080 | set-lambda-meta! | |
24081 | lambda-meta | |
24082 | lambda? | |
24083 | make-dynlet | |
24084 | make-letrec | |
24085 | make-let | |
24086 | make-lambda-case | |
24087 | make-lambda | |
24088 | make-sequence | |
24089 | make-application | |
24090 | make-conditional | |
24091 | make-toplevel-define | |
24092 | make-toplevel-set | |
24093 | make-toplevel-ref | |
24094 | make-module-set | |
24095 | make-module-ref | |
24096 | make-lexical-set | |
24097 | make-lexical-ref | |
24098 | make-primitive-ref | |
24099 | make-const | |
24100 | make-void) | |
24101 | ((top) | |
24102 | (top) | |
24103 | (top) | |
24104 | (top) | |
24105 | (top) | |
24106 | (top) | |
24107 | (top) | |
24108 | (top) | |
24109 | (top) | |
24110 | (top) | |
24111 | (top) | |
24112 | (top) | |
24113 | (top) | |
24114 | (top) | |
24115 | (top) | |
24116 | (top) | |
24117 | (top) | |
24118 | (top) | |
24119 | (top) | |
24120 | (top) | |
24121 | (top) | |
24122 | (top) | |
24123 | (top) | |
24124 | (top) | |
24125 | (top) | |
24126 | (top) | |
24127 | (top) | |
24128 | (top) | |
24129 | (top) | |
24130 | (top) | |
24131 | (top) | |
24132 | (top) | |
24133 | (top) | |
24134 | (top) | |
24135 | (top) | |
24136 | (top) | |
24137 | (top) | |
24138 | (top) | |
24139 | (top) | |
24140 | (top) | |
24141 | (top) | |
24142 | (top) | |
24143 | (top) | |
24144 | (top) | |
24145 | (top) | |
24146 | (top) | |
24147 | (top) | |
24148 | (top) | |
24149 | (top) | |
24150 | (top) | |
24151 | (top) | |
24152 | (top) | |
24153 | (top) | |
24154 | (top) | |
24155 | (top) | |
24156 | (top) | |
24157 | (top) | |
24158 | (top) | |
24159 | (top) | |
24160 | (top) | |
24161 | (top) | |
24162 | (top) | |
24163 | (top) | |
24164 | (top) | |
24165 | (top) | |
24166 | (top) | |
24167 | (top) | |
24168 | (top) | |
24169 | (top) | |
24170 | (top) | |
24171 | (top) | |
24172 | (top) | |
24173 | (top) | |
24174 | (top) | |
24175 | (top) | |
24176 | (top) | |
24177 | (top) | |
24178 | (top) | |
24179 | (top) | |
24180 | (top) | |
24181 | (top) | |
24182 | (top) | |
24183 | (top) | |
24184 | (top) | |
24185 | (top) | |
24186 | (top) | |
24187 | (top) | |
24188 | (top) | |
24189 | (top) | |
24190 | (top) | |
24191 | (top) | |
24192 | (top) | |
24193 | (top) | |
24194 | (top) | |
24195 | (top) | |
24196 | (top) | |
24197 | (top) | |
24198 | (top) | |
24199 | (top) | |
24200 | (top) | |
24201 | (top) | |
24202 | (top) | |
24203 | (top) | |
24204 | (top) | |
24205 | (top) | |
24206 | (top) | |
24207 | (top) | |
24208 | (top) | |
24209 | (top) | |
24210 | (top) | |
24211 | (top) | |
24212 | (top) | |
24213 | (top) | |
24214 | (top) | |
24215 | (top) | |
24216 | (top) | |
24217 | (top) | |
24218 | (top) | |
24219 | (top) | |
24220 | (top) | |
24221 | (top) | |
24222 | (top) | |
24223 | (top) | |
24224 | (top) | |
24225 | (top) | |
24226 | (top) | |
24227 | (top) | |
24228 | (top) | |
24229 | (top) | |
24230 | (top) | |
24231 | (top) | |
24232 | (top) | |
24233 | (top) | |
24234 | (top) | |
24235 | (top) | |
24236 | (top)) | |
24237 | ("i467" | |
24238 | "i465" | |
24239 | "i463" | |
24240 | "i461" | |
24241 | "i459" | |
24242 | "i457" | |
24243 | "i455" | |
24244 | "i453" | |
24245 | "i451" | |
24246 | "i449" | |
24247 | "i447" | |
24248 | "i445" | |
24249 | "i443" | |
24250 | "i441" | |
24251 | "i439" | |
24252 | "i437" | |
24253 | "i435" | |
24254 | "i433" | |
24255 | "i431" | |
24256 | "i429" | |
24257 | "i427" | |
24258 | "i425" | |
24259 | "i423" | |
24260 | "i421" | |
24261 | "i419" | |
24262 | "i417" | |
24263 | "i415" | |
24264 | "i413" | |
24265 | "i411" | |
24266 | "i409" | |
24267 | "i407" | |
24268 | "i405" | |
24269 | "i403" | |
24270 | "i401" | |
24271 | "i399" | |
24272 | "i398" | |
24273 | "i396" | |
24274 | "i393" | |
24275 | "i392" | |
24276 | "i391" | |
24277 | "i389" | |
24278 | "i388" | |
24279 | "i386" | |
24280 | "i384" | |
24281 | "i382" | |
24282 | "i380" | |
24283 | "i378" | |
24284 | "i376" | |
24285 | "i374" | |
24286 | "i372" | |
24287 | "i369" | |
24288 | "i367" | |
24289 | "i366" | |
24290 | "i364" | |
24291 | "i362" | |
24292 | "i360" | |
24293 | "i358" | |
24294 | "i357" | |
24295 | "i356" | |
24296 | "i355" | |
24297 | "i353" | |
24298 | "i352" | |
24299 | "i349" | |
24300 | "i347" | |
24301 | "i345" | |
24302 | "i343" | |
24303 | "i341" | |
24304 | "i339" | |
24305 | "i337" | |
24306 | "i336" | |
24307 | "i335" | |
24308 | "i333" | |
24309 | "i331" | |
24310 | "i330" | |
24311 | "i327" | |
24312 | "i326" | |
24313 | "i324" | |
24314 | "i322" | |
24315 | "i320" | |
24316 | "i318" | |
24317 | "i316" | |
24318 | "i314" | |
24319 | "i312" | |
24320 | "i310" | |
24321 | "i308" | |
24322 | "i305" | |
24323 | "i303" | |
24324 | "i301" | |
24325 | "i299" | |
24326 | "i297" | |
24327 | "i295" | |
24328 | "i293" | |
24329 | "i291" | |
24330 | "i289" | |
24331 | "i287" | |
24332 | "i285" | |
24333 | "i283" | |
24334 | "i281" | |
24335 | "i279" | |
24336 | "i277" | |
24337 | "i275" | |
24338 | "i273" | |
24339 | "i271" | |
24340 | "i269" | |
24341 | "i267" | |
24342 | "i265" | |
24343 | "i263" | |
24344 | "i261" | |
24345 | "i260" | |
24346 | "i257" | |
24347 | "i255" | |
24348 | "i254" | |
24349 | "i253" | |
24350 | "i252" | |
24351 | "i251" | |
24352 | "i249" | |
24353 | "i247" | |
24354 | "i245" | |
24355 | "i242" | |
24356 | "i240" | |
24357 | "i238" | |
24358 | "i236" | |
24359 | "i234" | |
24360 | "i232" | |
24361 | "i230" | |
24362 | "i228" | |
24363 | "i226" | |
24364 | "i224" | |
24365 | "i222" | |
24366 | "i220" | |
24367 | "i218" | |
24368 | "i216" | |
24369 | "i214" | |
24370 | "i212" | |
24371 | "i210" | |
24372 | "i208")) | |
24373 | #(ribcage | |
24374 | (define-structure | |
24375 | define-expansion-accessors | |
24376 | define-expansion-constructors) | |
24377 | ((top) | |
24378 | (top) | |
24379 | (top)) | |
24380 | ("i46" | |
24381 | "i45" | |
24382 | "i44"))) | |
24383 | (hygiene guile))) | |
24384 | 4) | |
24385 | #t | |
24386 | #f) | |
24387 | '... | |
014de9e2 AW |
24388 | '#(syntax-object |
24389 | ... | |
24390 | ((top) | |
24391 | #(ribcage () () ()) | |
24392 | #(ribcage () () ()) | |
24393 | #(ribcage | |
24394 | #(x) | |
24395 | #((top)) | |
34c5fe83 | 24396 | #("i2230")) |
014de9e2 AW |
24397 | #(ribcage |
24398 | (lambda-var-list | |
24399 | gen-var | |
24400 | strip | |
78a47455 | 24401 | expand-lambda-case |
014de9e2 | 24402 | lambda*-formals |
78a47455 | 24403 | expand-simple-lambda |
014de9e2 AW |
24404 | lambda-formals |
24405 | ellipsis? | |
78a47455 | 24406 | expand-void |
014de9e2 | 24407 | eval-local-transformer |
78a47455 AW |
24408 | expand-local-syntax |
24409 | expand-body | |
24410 | expand-macro | |
24411 | expand-application | |
24412 | expand-expr | |
24413 | expand | |
014de9e2 | 24414 | syntax-type |
78a47455 AW |
24415 | expand-when-list |
24416 | expand-install-global | |
24417 | expand-top-sequence | |
24418 | expand-sequence | |
014de9e2 AW |
24419 | source-wrap |
24420 | wrap | |
24421 | bound-id-member? | |
24422 | distinct-bound-ids? | |
24423 | valid-bound-ids? | |
24424 | bound-id=? | |
24425 | free-id=? | |
24426 | id-var-name | |
24427 | same-marks? | |
24428 | join-marks | |
24429 | join-wraps | |
24430 | smart-append | |
24431 | make-binding-wrap | |
24432 | extend-ribcage! | |
24433 | make-empty-ribcage | |
24434 | new-mark | |
24435 | anti-mark | |
24436 | the-anti-mark | |
24437 | top-marked? | |
24438 | top-wrap | |
24439 | empty-wrap | |
24440 | set-ribcage-labels! | |
24441 | set-ribcage-marks! | |
24442 | set-ribcage-symnames! | |
24443 | ribcage-labels | |
24444 | ribcage-marks | |
24445 | ribcage-symnames | |
24446 | ribcage? | |
24447 | make-ribcage | |
24448 | gen-labels | |
24449 | gen-label | |
24450 | make-rename | |
24451 | rename-marks | |
24452 | rename-new | |
24453 | rename-old | |
24454 | subst-rename? | |
24455 | wrap-subst | |
24456 | wrap-marks | |
24457 | make-wrap | |
24458 | id-sym-name&marks | |
24459 | id-sym-name | |
24460 | id? | |
24461 | nonsymbol-id? | |
24462 | global-extend | |
24463 | lookup | |
24464 | macros-only-env | |
24465 | extend-var-env | |
24466 | extend-env | |
24467 | null-env | |
24468 | binding-value | |
24469 | binding-type | |
24470 | make-binding | |
24471 | arg-check | |
24472 | source-annotation | |
24473 | no-source | |
24474 | set-syntax-object-module! | |
24475 | set-syntax-object-wrap! | |
24476 | set-syntax-object-expression! | |
24477 | syntax-object-module | |
24478 | syntax-object-wrap | |
24479 | syntax-object-expression | |
24480 | syntax-object? | |
24481 | make-syntax-object | |
24482 | build-lexical-var | |
24483 | build-letrec | |
24484 | build-named-let | |
24485 | build-let | |
24486 | build-sequence | |
24487 | build-data | |
24488 | build-primref | |
24489 | build-lambda-case | |
24490 | build-case-lambda | |
24491 | build-simple-lambda | |
24492 | build-global-definition | |
24493 | build-global-assignment | |
24494 | build-global-reference | |
24495 | analyze-variable | |
24496 | build-lexical-assignment | |
24497 | build-lexical-reference | |
24498 | build-dynlet | |
24499 | build-conditional | |
24500 | build-application | |
24501 | build-void | |
24502 | maybe-name-value! | |
24503 | decorate-source | |
24504 | get-global-definition-hook | |
24505 | put-global-definition-hook | |
24506 | gensym-hook | |
24507 | local-eval-hook | |
24508 | top-level-eval-hook | |
24509 | fx< | |
24510 | fx= | |
24511 | fx- | |
24512 | fx+ | |
24513 | set-lambda-meta! | |
24514 | lambda-meta | |
24515 | lambda? | |
24516 | make-dynlet | |
24517 | make-letrec | |
24518 | make-let | |
24519 | make-lambda-case | |
24520 | make-lambda | |
24521 | make-sequence | |
24522 | make-application | |
24523 | make-conditional | |
24524 | make-toplevel-define | |
24525 | make-toplevel-set | |
24526 | make-toplevel-ref | |
24527 | make-module-set | |
24528 | make-module-ref | |
24529 | make-lexical-set | |
24530 | make-lexical-ref | |
24531 | make-primitive-ref | |
24532 | make-const | |
24533 | make-void) | |
24534 | ((top) | |
24535 | (top) | |
24536 | (top) | |
24537 | (top) | |
24538 | (top) | |
24539 | (top) | |
24540 | (top) | |
24541 | (top) | |
24542 | (top) | |
24543 | (top) | |
24544 | (top) | |
24545 | (top) | |
24546 | (top) | |
24547 | (top) | |
24548 | (top) | |
24549 | (top) | |
24550 | (top) | |
24551 | (top) | |
24552 | (top) | |
24553 | (top) | |
24554 | (top) | |
24555 | (top) | |
24556 | (top) | |
24557 | (top) | |
24558 | (top) | |
24559 | (top) | |
24560 | (top) | |
24561 | (top) | |
24562 | (top) | |
24563 | (top) | |
24564 | (top) | |
24565 | (top) | |
24566 | (top) | |
24567 | (top) | |
24568 | (top) | |
24569 | (top) | |
24570 | (top) | |
24571 | (top) | |
24572 | (top) | |
24573 | (top) | |
24574 | (top) | |
24575 | (top) | |
24576 | (top) | |
24577 | (top) | |
24578 | (top) | |
24579 | (top) | |
24580 | (top) | |
24581 | (top) | |
24582 | (top) | |
24583 | (top) | |
24584 | (top) | |
24585 | (top) | |
24586 | (top) | |
24587 | (top) | |
24588 | (top) | |
24589 | (top) | |
24590 | (top) | |
24591 | (top) | |
24592 | (top) | |
24593 | (top) | |
24594 | (top) | |
24595 | (top) | |
24596 | (top) | |
24597 | (top) | |
24598 | (top) | |
24599 | (top) | |
24600 | (top) | |
24601 | (top) | |
24602 | (top) | |
24603 | (top) | |
24604 | (top) | |
24605 | (top) | |
24606 | (top) | |
24607 | (top) | |
24608 | (top) | |
24609 | (top) | |
24610 | (top) | |
24611 | (top) | |
24612 | (top) | |
24613 | (top) | |
24614 | (top) | |
24615 | (top) | |
24616 | (top) | |
24617 | (top) | |
24618 | (top) | |
24619 | (top) | |
24620 | (top) | |
24621 | (top) | |
24622 | (top) | |
24623 | (top) | |
24624 | (top) | |
24625 | (top) | |
24626 | (top) | |
24627 | (top) | |
24628 | (top) | |
24629 | (top) | |
24630 | (top) | |
24631 | (top) | |
24632 | (top) | |
24633 | (top) | |
24634 | (top) | |
24635 | (top) | |
24636 | (top) | |
24637 | (top) | |
24638 | (top) | |
24639 | (top) | |
24640 | (top) | |
24641 | (top) | |
24642 | (top) | |
24643 | (top) | |
24644 | (top) | |
24645 | (top) | |
24646 | (top) | |
24647 | (top) | |
24648 | (top) | |
24649 | (top) | |
24650 | (top) | |
24651 | (top) | |
24652 | (top) | |
24653 | (top) | |
24654 | (top) | |
24655 | (top) | |
24656 | (top) | |
24657 | (top) | |
24658 | (top) | |
24659 | (top) | |
24660 | (top) | |
24661 | (top) | |
24662 | (top) | |
24663 | (top) | |
24664 | (top) | |
24665 | (top) | |
24666 | (top) | |
24667 | (top) | |
24668 | (top) | |
24669 | (top)) | |
34c5fe83 AW |
24670 | ("i467" |
24671 | "i465" | |
24672 | "i463" | |
24673 | "i461" | |
24674 | "i459" | |
24675 | "i457" | |
24676 | "i455" | |
24677 | "i453" | |
24678 | "i451" | |
24679 | "i449" | |
24680 | "i447" | |
24681 | "i445" | |
24682 | "i443" | |
24683 | "i441" | |
24684 | "i439" | |
24685 | "i437" | |
24686 | "i435" | |
24687 | "i433" | |
24688 | "i431" | |
24689 | "i429" | |
24690 | "i427" | |
24691 | "i425" | |
24692 | "i423" | |
24693 | "i421" | |
24694 | "i419" | |
24695 | "i417" | |
24696 | "i415" | |
24697 | "i413" | |
24698 | "i411" | |
24699 | "i409" | |
24700 | "i407" | |
24701 | "i405" | |
24702 | "i403" | |
24703 | "i401" | |
24704 | "i399" | |
014de9e2 | 24705 | "i398" |
34c5fe83 AW |
24706 | "i396" |
24707 | "i393" | |
014de9e2 AW |
24708 | "i392" |
24709 | "i391" | |
34c5fe83 | 24710 | "i389" |
014de9e2 | 24711 | "i388" |
34c5fe83 AW |
24712 | "i386" |
24713 | "i384" | |
24714 | "i382" | |
24715 | "i380" | |
24716 | "i378" | |
24717 | "i376" | |
24718 | "i374" | |
24719 | "i372" | |
24720 | "i369" | |
24721 | "i367" | |
014de9e2 | 24722 | "i366" |
34c5fe83 AW |
24723 | "i364" |
24724 | "i362" | |
24725 | "i360" | |
24726 | "i358" | |
014de9e2 AW |
24727 | "i357" |
24728 | "i356" | |
24729 | "i355" | |
34c5fe83 | 24730 | "i353" |
014de9e2 | 24731 | "i352" |
34c5fe83 AW |
24732 | "i349" |
24733 | "i347" | |
24734 | "i345" | |
24735 | "i343" | |
24736 | "i341" | |
24737 | "i339" | |
24738 | "i337" | |
014de9e2 AW |
24739 | "i336" |
24740 | "i335" | |
34c5fe83 AW |
24741 | "i333" |
24742 | "i331" | |
014de9e2 | 24743 | "i330" |
34c5fe83 | 24744 | "i327" |
014de9e2 | 24745 | "i326" |
34c5fe83 AW |
24746 | "i324" |
24747 | "i322" | |
24748 | "i320" | |
24749 | "i318" | |
24750 | "i316" | |
24751 | "i314" | |
24752 | "i312" | |
24753 | "i310" | |
24754 | "i308" | |
24755 | "i305" | |
24756 | "i303" | |
24757 | "i301" | |
24758 | "i299" | |
24759 | "i297" | |
24760 | "i295" | |
24761 | "i293" | |
24762 | "i291" | |
24763 | "i289" | |
24764 | "i287" | |
24765 | "i285" | |
24766 | "i283" | |
24767 | "i281" | |
24768 | "i279" | |
24769 | "i277" | |
24770 | "i275" | |
24771 | "i273" | |
24772 | "i271" | |
24773 | "i269" | |
24774 | "i267" | |
24775 | "i265" | |
24776 | "i263" | |
24777 | "i261" | |
014de9e2 | 24778 | "i260" |
34c5fe83 AW |
24779 | "i257" |
24780 | "i255" | |
014de9e2 AW |
24781 | "i254" |
24782 | "i253" | |
24783 | "i252" | |
24784 | "i251" | |
34c5fe83 AW |
24785 | "i249" |
24786 | "i247" | |
24787 | "i245" | |
24788 | "i242" | |
24789 | "i240" | |
24790 | "i238" | |
24791 | "i236" | |
24792 | "i234" | |
24793 | "i232" | |
24794 | "i230" | |
24795 | "i228" | |
24796 | "i226" | |
24797 | "i224" | |
24798 | "i222" | |
24799 | "i220" | |
24800 | "i218" | |
24801 | "i216" | |
24802 | "i214" | |
24803 | "i212" | |
24804 | "i210" | |
24805 | "i208")) | |
014de9e2 AW |
24806 | #(ribcage |
24807 | (define-structure | |
24808 | define-expansion-accessors | |
24809 | define-expansion-constructors) | |
24810 | ((top) (top) (top)) | |
34c5fe83 | 24811 | ("i46" "i45" "i44"))) |
014de9e2 | 24812 | (hygiene guile)))) |
34c5fe83 | 24813 | (eq? (#{id-var-name 4332}# |
78a47455 | 24814 | #{x 12193}# |
014de9e2 | 24815 | '(())) |
34c5fe83 | 24816 | (#{id-var-name 4332}# |
014de9e2 AW |
24817 | '#(syntax-object |
24818 | ... | |
24819 | ((top) | |
24820 | #(ribcage () () ()) | |
24821 | #(ribcage () () ()) | |
24822 | #(ribcage | |
24823 | #(x) | |
24824 | #((top)) | |
34c5fe83 | 24825 | #("i2230")) |
014de9e2 AW |
24826 | #(ribcage |
24827 | (lambda-var-list | |
24828 | gen-var | |
24829 | strip | |
78a47455 | 24830 | expand-lambda-case |
014de9e2 | 24831 | lambda*-formals |
78a47455 | 24832 | expand-simple-lambda |
014de9e2 AW |
24833 | lambda-formals |
24834 | ellipsis? | |
78a47455 | 24835 | expand-void |
014de9e2 | 24836 | eval-local-transformer |
78a47455 AW |
24837 | expand-local-syntax |
24838 | expand-body | |
24839 | expand-macro | |
24840 | expand-application | |
24841 | expand-expr | |
24842 | expand | |
014de9e2 | 24843 | syntax-type |
78a47455 AW |
24844 | expand-when-list |
24845 | expand-install-global | |
24846 | expand-top-sequence | |
24847 | expand-sequence | |
014de9e2 AW |
24848 | source-wrap |
24849 | wrap | |
24850 | bound-id-member? | |
24851 | distinct-bound-ids? | |
24852 | valid-bound-ids? | |
24853 | bound-id=? | |
24854 | free-id=? | |
24855 | id-var-name | |
24856 | same-marks? | |
24857 | join-marks | |
24858 | join-wraps | |
24859 | smart-append | |
24860 | make-binding-wrap | |
24861 | extend-ribcage! | |
24862 | make-empty-ribcage | |
24863 | new-mark | |
24864 | anti-mark | |
24865 | the-anti-mark | |
24866 | top-marked? | |
24867 | top-wrap | |
24868 | empty-wrap | |
24869 | set-ribcage-labels! | |
24870 | set-ribcage-marks! | |
24871 | set-ribcage-symnames! | |
24872 | ribcage-labels | |
24873 | ribcage-marks | |
24874 | ribcage-symnames | |
24875 | ribcage? | |
24876 | make-ribcage | |
24877 | gen-labels | |
24878 | gen-label | |
24879 | make-rename | |
24880 | rename-marks | |
24881 | rename-new | |
24882 | rename-old | |
24883 | subst-rename? | |
24884 | wrap-subst | |
24885 | wrap-marks | |
24886 | make-wrap | |
24887 | id-sym-name&marks | |
24888 | id-sym-name | |
24889 | id? | |
24890 | nonsymbol-id? | |
24891 | global-extend | |
24892 | lookup | |
24893 | macros-only-env | |
24894 | extend-var-env | |
24895 | extend-env | |
24896 | null-env | |
24897 | binding-value | |
24898 | binding-type | |
24899 | make-binding | |
24900 | arg-check | |
24901 | source-annotation | |
24902 | no-source | |
24903 | set-syntax-object-module! | |
24904 | set-syntax-object-wrap! | |
24905 | set-syntax-object-expression! | |
24906 | syntax-object-module | |
24907 | syntax-object-wrap | |
24908 | syntax-object-expression | |
24909 | syntax-object? | |
24910 | make-syntax-object | |
24911 | build-lexical-var | |
24912 | build-letrec | |
24913 | build-named-let | |
24914 | build-let | |
24915 | build-sequence | |
24916 | build-data | |
24917 | build-primref | |
24918 | build-lambda-case | |
24919 | build-case-lambda | |
24920 | build-simple-lambda | |
24921 | build-global-definition | |
24922 | build-global-assignment | |
24923 | build-global-reference | |
24924 | analyze-variable | |
24925 | build-lexical-assignment | |
24926 | build-lexical-reference | |
24927 | build-dynlet | |
24928 | build-conditional | |
24929 | build-application | |
24930 | build-void | |
24931 | maybe-name-value! | |
24932 | decorate-source | |
24933 | get-global-definition-hook | |
24934 | put-global-definition-hook | |
24935 | gensym-hook | |
24936 | local-eval-hook | |
24937 | top-level-eval-hook | |
24938 | fx< | |
24939 | fx= | |
24940 | fx- | |
24941 | fx+ | |
24942 | set-lambda-meta! | |
24943 | lambda-meta | |
24944 | lambda? | |
24945 | make-dynlet | |
24946 | make-letrec | |
24947 | make-let | |
24948 | make-lambda-case | |
24949 | make-lambda | |
24950 | make-sequence | |
24951 | make-application | |
24952 | make-conditional | |
24953 | make-toplevel-define | |
24954 | make-toplevel-set | |
24955 | make-toplevel-ref | |
24956 | make-module-set | |
24957 | make-module-ref | |
24958 | make-lexical-set | |
24959 | make-lexical-ref | |
24960 | make-primitive-ref | |
24961 | make-const | |
24962 | make-void) | |
24963 | ((top) | |
24964 | (top) | |
24965 | (top) | |
24966 | (top) | |
24967 | (top) | |
24968 | (top) | |
24969 | (top) | |
24970 | (top) | |
24971 | (top) | |
24972 | (top) | |
24973 | (top) | |
24974 | (top) | |
24975 | (top) | |
24976 | (top) | |
24977 | (top) | |
24978 | (top) | |
24979 | (top) | |
24980 | (top) | |
24981 | (top) | |
24982 | (top) | |
24983 | (top) | |
24984 | (top) | |
24985 | (top) | |
24986 | (top) | |
24987 | (top) | |
24988 | (top) | |
24989 | (top) | |
24990 | (top) | |
24991 | (top) | |
24992 | (top) | |
24993 | (top) | |
24994 | (top) | |
24995 | (top) | |
24996 | (top) | |
24997 | (top) | |
24998 | (top) | |
24999 | (top) | |
25000 | (top) | |
25001 | (top) | |
25002 | (top) | |
25003 | (top) | |
25004 | (top) | |
25005 | (top) | |
25006 | (top) | |
25007 | (top) | |
25008 | (top) | |
25009 | (top) | |
25010 | (top) | |
25011 | (top) | |
25012 | (top) | |
25013 | (top) | |
25014 | (top) | |
25015 | (top) | |
25016 | (top) | |
25017 | (top) | |
25018 | (top) | |
25019 | (top) | |
25020 | (top) | |
25021 | (top) | |
25022 | (top) | |
25023 | (top) | |
25024 | (top) | |
25025 | (top) | |
25026 | (top) | |
25027 | (top) | |
25028 | (top) | |
25029 | (top) | |
25030 | (top) | |
25031 | (top) | |
25032 | (top) | |
25033 | (top) | |
25034 | (top) | |
25035 | (top) | |
25036 | (top) | |
25037 | (top) | |
25038 | (top) | |
25039 | (top) | |
25040 | (top) | |
25041 | (top) | |
25042 | (top) | |
25043 | (top) | |
25044 | (top) | |
25045 | (top) | |
25046 | (top) | |
25047 | (top) | |
25048 | (top) | |
25049 | (top) | |
25050 | (top) | |
25051 | (top) | |
25052 | (top) | |
25053 | (top) | |
25054 | (top) | |
df40b969 AW |
25055 | (top) |
25056 | (top) | |
25057 | (top) | |
014de9e2 AW |
25058 | (top) |
25059 | (top) | |
25060 | (top) | |
25061 | (top) | |
25062 | (top) | |
25063 | (top) | |
25064 | (top) | |
25065 | (top) | |
25066 | (top) | |
25067 | (top) | |
25068 | (top) | |
25069 | (top) | |
25070 | (top) | |
25071 | (top) | |
25072 | (top) | |
25073 | (top) | |
25074 | (top) | |
25075 | (top) | |
25076 | (top) | |
25077 | (top) | |
25078 | (top) | |
25079 | (top) | |
25080 | (top) | |
25081 | (top) | |
25082 | (top) | |
25083 | (top) | |
25084 | (top) | |
25085 | (top) | |
25086 | (top) | |
25087 | (top) | |
25088 | (top) | |
25089 | (top) | |
25090 | (top) | |
25091 | (top) | |
25092 | (top) | |
25093 | (top) | |
25094 | (top) | |
25095 | (top) | |
25096 | (top) | |
25097 | (top) | |
25098 | (top)) | |
34c5fe83 AW |
25099 | ("i467" |
25100 | "i465" | |
25101 | "i463" | |
25102 | "i461" | |
25103 | "i459" | |
25104 | "i457" | |
25105 | "i455" | |
25106 | "i453" | |
25107 | "i451" | |
25108 | "i449" | |
25109 | "i447" | |
25110 | "i445" | |
25111 | "i443" | |
25112 | "i441" | |
25113 | "i439" | |
25114 | "i437" | |
25115 | "i435" | |
25116 | "i433" | |
25117 | "i431" | |
25118 | "i429" | |
25119 | "i427" | |
25120 | "i425" | |
25121 | "i423" | |
25122 | "i421" | |
25123 | "i419" | |
25124 | "i417" | |
25125 | "i415" | |
25126 | "i413" | |
25127 | "i411" | |
25128 | "i409" | |
25129 | "i407" | |
25130 | "i405" | |
25131 | "i403" | |
25132 | "i401" | |
25133 | "i399" | |
014de9e2 | 25134 | "i398" |
34c5fe83 AW |
25135 | "i396" |
25136 | "i393" | |
014de9e2 AW |
25137 | "i392" |
25138 | "i391" | |
34c5fe83 | 25139 | "i389" |
014de9e2 | 25140 | "i388" |
34c5fe83 AW |
25141 | "i386" |
25142 | "i384" | |
25143 | "i382" | |
25144 | "i380" | |
25145 | "i378" | |
25146 | "i376" | |
25147 | "i374" | |
25148 | "i372" | |
25149 | "i369" | |
25150 | "i367" | |
014de9e2 | 25151 | "i366" |
34c5fe83 AW |
25152 | "i364" |
25153 | "i362" | |
25154 | "i360" | |
25155 | "i358" | |
014de9e2 AW |
25156 | "i357" |
25157 | "i356" | |
25158 | "i355" | |
34c5fe83 | 25159 | "i353" |
014de9e2 | 25160 | "i352" |
34c5fe83 AW |
25161 | "i349" |
25162 | "i347" | |
25163 | "i345" | |
25164 | "i343" | |
25165 | "i341" | |
25166 | "i339" | |
25167 | "i337" | |
014de9e2 AW |
25168 | "i336" |
25169 | "i335" | |
34c5fe83 AW |
25170 | "i333" |
25171 | "i331" | |
014de9e2 | 25172 | "i330" |
34c5fe83 | 25173 | "i327" |
014de9e2 | 25174 | "i326" |
34c5fe83 AW |
25175 | "i324" |
25176 | "i322" | |
25177 | "i320" | |
25178 | "i318" | |
25179 | "i316" | |
25180 | "i314" | |
25181 | "i312" | |
25182 | "i310" | |
25183 | "i308" | |
25184 | "i305" | |
25185 | "i303" | |
25186 | "i301" | |
25187 | "i299" | |
25188 | "i297" | |
25189 | "i295" | |
25190 | "i293" | |
25191 | "i291" | |
25192 | "i289" | |
25193 | "i287" | |
25194 | "i285" | |
25195 | "i283" | |
25196 | "i281" | |
25197 | "i279" | |
25198 | "i277" | |
25199 | "i275" | |
25200 | "i273" | |
25201 | "i271" | |
25202 | "i269" | |
25203 | "i267" | |
25204 | "i265" | |
25205 | "i263" | |
25206 | "i261" | |
014de9e2 | 25207 | "i260" |
34c5fe83 AW |
25208 | "i257" |
25209 | "i255" | |
014de9e2 AW |
25210 | "i254" |
25211 | "i253" | |
25212 | "i252" | |
25213 | "i251" | |
34c5fe83 AW |
25214 | "i249" |
25215 | "i247" | |
25216 | "i245" | |
25217 | "i242" | |
25218 | "i240" | |
25219 | "i238" | |
25220 | "i236" | |
25221 | "i234" | |
25222 | "i232" | |
25223 | "i230" | |
25224 | "i228" | |
25225 | "i226" | |
25226 | "i224" | |
25227 | "i222" | |
25228 | "i220" | |
25229 | "i218" | |
25230 | "i216" | |
25231 | "i214" | |
25232 | "i212" | |
25233 | "i210" | |
25234 | "i208")) | |
014de9e2 AW |
25235 | #(ribcage |
25236 | (define-structure | |
25237 | define-expansion-accessors | |
25238 | define-expansion-constructors) | |
25239 | ((top) (top) (top)) | |
34c5fe83 | 25240 | ("i46" "i45" "i44"))) |
014de9e2 AW |
25241 | (hygiene guile)) |
25242 | '(()))) | |
25243 | #f) | |
25244 | #f)) | |
25245 | #f)) | |
78a47455 AW |
25246 | #{key 12191}#) |
25247 | (let ((#{x 12319}# | |
014de9e2 AW |
25248 | (gensym |
25249 | (string-append (symbol->string 'tmp) " ")))) | |
34c5fe83 | 25250 | (#{build-application 4280}# |
78a47455 AW |
25251 | #{s 12161}# |
25252 | (let ((#{req 12454}# (list 'tmp)) | |
25253 | (#{vars 12456}# (list #{x 12319}#)) | |
25254 | (#{exp 12458}# | |
25255 | (#{gen-syntax-case 12157}# | |
014de9e2 AW |
25256 | (make-struct/no-tail |
25257 | (vector-ref %expanded-vtables 3) | |
25258 | #f | |
25259 | 'tmp | |
78a47455 AW |
25260 | #{x 12319}#) |
25261 | #{key 12191}# | |
25262 | #{m 12192}# | |
25263 | #{r 12159}# | |
25264 | #{mod 12162}#))) | |
25265 | (let ((#{body 12463}# | |
014de9e2 AW |
25266 | (make-struct/no-tail |
25267 | (vector-ref %expanded-vtables 14) | |
25268 | #f | |
78a47455 | 25269 | #{req 12454}# |
014de9e2 AW |
25270 | #f |
25271 | #f | |
25272 | #f | |
25273 | '() | |
78a47455 AW |
25274 | #{vars 12456}# |
25275 | #{exp 12458}# | |
014de9e2 AW |
25276 | #f))) |
25277 | (make-struct/no-tail | |
25278 | (vector-ref %expanded-vtables 13) | |
25279 | #f | |
25280 | '() | |
78a47455 AW |
25281 | #{body 12463}#))) |
25282 | (list (#{expand 4345}# | |
25283 | #{val 12190}# | |
25284 | #{r 12159}# | |
014de9e2 | 25285 | '(()) |
78a47455 | 25286 | #{mod 12162}#)))) |
014de9e2 AW |
25287 | (syntax-violation |
25288 | 'syntax-case | |
25289 | "invalid literals list" | |
78a47455 AW |
25290 | #{e 12163}#))) |
25291 | #{tmp 12165}#) | |
014de9e2 AW |
25292 | (syntax-violation |
25293 | #f | |
25294 | "source expression failed to match any pattern" | |
78a47455 | 25295 | #{e 12163}#))))))) |
014de9e2 AW |
25296 | (set! macroexpand |
25297 | (lambda* | |
78a47455 | 25298 | (#{x 14921}# |
014de9e2 | 25299 | #:optional |
78a47455 AW |
25300 | (#{m 14922}# 'e) |
25301 | (#{esew 14923}# '(eval))) | |
25302 | (#{expand-top-sequence 4341}# | |
25303 | (list #{x 14921}#) | |
014de9e2 AW |
25304 | '() |
25305 | '((top)) | |
25306 | #f | |
78a47455 AW |
25307 | #{m 14922}# |
25308 | #{esew 14923}# | |
014de9e2 AW |
25309 | (cons 'hygiene (module-name (current-module)))))) |
25310 | (set! identifier? | |
78a47455 AW |
25311 | (lambda (#{x 14926}#) |
25312 | (if (if (vector? #{x 14926}#) | |
25313 | (if (= (vector-length #{x 14926}#) 4) | |
25314 | (eq? (vector-ref #{x 14926}# 0) 'syntax-object) | |
014de9e2 AW |
25315 | #f) |
25316 | #f) | |
78a47455 | 25317 | (symbol? (vector-ref #{x 14926}# 1)) |
014de9e2 AW |
25318 | #f))) |
25319 | (set! datum->syntax | |
78a47455 AW |
25320 | (lambda (#{id 14951}# #{datum 14952}#) |
25321 | (let ((#{wrap 14957}# (vector-ref #{id 14951}# 2)) | |
25322 | (#{module 14958}# (vector-ref #{id 14951}# 3))) | |
014de9e2 AW |
25323 | (vector |
25324 | 'syntax-object | |
78a47455 AW |
25325 | #{datum 14952}# |
25326 | #{wrap 14957}# | |
25327 | #{module 14958}#)))) | |
014de9e2 | 25328 | (set! syntax->datum |
78a47455 AW |
25329 | (lambda (#{x 14965}#) |
25330 | (#{strip 4358}# #{x 14965}# '(())))) | |
014de9e2 | 25331 | (set! syntax-source |
78a47455 AW |
25332 | (lambda (#{x 14968}#) |
25333 | (#{source-annotation 4306}# #{x 14968}#))) | |
014de9e2 | 25334 | (set! generate-temporaries |
78a47455 | 25335 | (lambda (#{ls 15140}#) |
014de9e2 | 25336 | (begin |
78a47455 | 25337 | (if (not (list? #{ls 15140}#)) |
df40b969 | 25338 | (syntax-violation |
014de9e2 AW |
25339 | 'generate-temporaries |
25340 | "invalid argument" | |
78a47455 AW |
25341 | #{ls 15140}#)) |
25342 | (let ((#{mod 15148}# | |
014de9e2 | 25343 | (cons 'hygiene (module-name (current-module))))) |
78a47455 AW |
25344 | (map (lambda (#{x 15149}#) |
25345 | (#{wrap 4338}# (gensym) '((top)) #{mod 15148}#)) | |
25346 | #{ls 15140}#))))) | |
014de9e2 | 25347 | (set! free-identifier=? |
78a47455 | 25348 | (lambda (#{x 15153}# #{y 15154}#) |
014de9e2 | 25349 | (begin |
78a47455 AW |
25350 | (if (not (if (if (vector? #{x 15153}#) |
25351 | (if (= (vector-length #{x 15153}#) 4) | |
25352 | (eq? (vector-ref #{x 15153}# 0) 'syntax-object) | |
014de9e2 AW |
25353 | #f) |
25354 | #f) | |
78a47455 | 25355 | (symbol? (vector-ref #{x 15153}# 1)) |
014de9e2 AW |
25356 | #f)) |
25357 | (syntax-violation | |
25358 | 'free-identifier=? | |
25359 | "invalid argument" | |
78a47455 AW |
25360 | #{x 15153}#)) |
25361 | (if (not (if (if (vector? #{y 15154}#) | |
25362 | (if (= (vector-length #{y 15154}#) 4) | |
25363 | (eq? (vector-ref #{y 15154}# 0) 'syntax-object) | |
014de9e2 AW |
25364 | #f) |
25365 | #f) | |
78a47455 | 25366 | (symbol? (vector-ref #{y 15154}# 1)) |
014de9e2 AW |
25367 | #f)) |
25368 | (syntax-violation | |
25369 | 'free-identifier=? | |
25370 | "invalid argument" | |
78a47455 AW |
25371 | #{y 15154}#)) |
25372 | (if (eq? (if (if (vector? #{x 15153}#) | |
25373 | (if (= (vector-length #{x 15153}#) 4) | |
25374 | (eq? (vector-ref #{x 15153}# 0) 'syntax-object) | |
014de9e2 AW |
25375 | #f) |
25376 | #f) | |
78a47455 AW |
25377 | (vector-ref #{x 15153}# 1) |
25378 | #{x 15153}#) | |
25379 | (if (if (vector? #{y 15154}#) | |
25380 | (if (= (vector-length #{y 15154}#) 4) | |
25381 | (eq? (vector-ref #{y 15154}# 0) 'syntax-object) | |
014de9e2 AW |
25382 | #f) |
25383 | #f) | |
78a47455 AW |
25384 | (vector-ref #{y 15154}# 1) |
25385 | #{y 15154}#)) | |
25386 | (eq? (#{id-var-name 4332}# #{x 15153}# '(())) | |
25387 | (#{id-var-name 4332}# #{y 15154}# '(()))) | |
014de9e2 AW |
25388 | #f)))) |
25389 | (set! bound-identifier=? | |
78a47455 | 25390 | (lambda (#{x 15304}# #{y 15305}#) |
014de9e2 | 25391 | (begin |
78a47455 AW |
25392 | (if (not (if (if (vector? #{x 15304}#) |
25393 | (if (= (vector-length #{x 15304}#) 4) | |
25394 | (eq? (vector-ref #{x 15304}# 0) 'syntax-object) | |
014de9e2 AW |
25395 | #f) |
25396 | #f) | |
78a47455 | 25397 | (symbol? (vector-ref #{x 15304}# 1)) |
014de9e2 AW |
25398 | #f)) |
25399 | (syntax-violation | |
25400 | 'bound-identifier=? | |
25401 | "invalid argument" | |
78a47455 AW |
25402 | #{x 15304}#)) |
25403 | (if (not (if (if (vector? #{y 15305}#) | |
25404 | (if (= (vector-length #{y 15305}#) 4) | |
25405 | (eq? (vector-ref #{y 15305}# 0) 'syntax-object) | |
014de9e2 AW |
25406 | #f) |
25407 | #f) | |
78a47455 | 25408 | (symbol? (vector-ref #{y 15305}# 1)) |
014de9e2 AW |
25409 | #f)) |
25410 | (syntax-violation | |
25411 | 'bound-identifier=? | |
25412 | "invalid argument" | |
78a47455 AW |
25413 | #{y 15305}#)) |
25414 | (if (if (if (vector? #{x 15304}#) | |
25415 | (if (= (vector-length #{x 15304}#) 4) | |
25416 | (eq? (vector-ref #{x 15304}# 0) 'syntax-object) | |
014de9e2 AW |
25417 | #f) |
25418 | #f) | |
78a47455 AW |
25419 | (if (vector? #{y 15305}#) |
25420 | (if (= (vector-length #{y 15305}#) 4) | |
25421 | (eq? (vector-ref #{y 15305}# 0) 'syntax-object) | |
014de9e2 AW |
25422 | #f) |
25423 | #f) | |
25424 | #f) | |
78a47455 AW |
25425 | (if (eq? (vector-ref #{x 15304}# 1) |
25426 | (vector-ref #{y 15305}# 1)) | |
34c5fe83 | 25427 | (#{same-marks? 4331}# |
78a47455 AW |
25428 | (car (vector-ref #{x 15304}# 2)) |
25429 | (car (vector-ref #{y 15305}# 2))) | |
014de9e2 | 25430 | #f) |
78a47455 | 25431 | (eq? #{x 15304}# #{y 15305}#))))) |
014de9e2 AW |
25432 | (set! syntax-violation |
25433 | (lambda* | |
78a47455 AW |
25434 | (#{who 15438}# |
25435 | #{message 15439}# | |
25436 | #{form 15440}# | |
014de9e2 | 25437 | #:optional |
78a47455 | 25438 | (#{subform 15441}# #f)) |
014de9e2 | 25439 | (begin |
78a47455 AW |
25440 | (if (not (if (not #{who 15438}#) |
25441 | (not #{who 15438}#) | |
25442 | (let ((#{t 15459}# (string? #{who 15438}#))) | |
25443 | (if #{t 15459}# | |
25444 | #{t 15459}# | |
25445 | (symbol? #{who 15438}#))))) | |
014de9e2 AW |
25446 | (syntax-violation |
25447 | 'syntax-violation | |
25448 | "invalid argument" | |
78a47455 AW |
25449 | #{who 15438}#)) |
25450 | (if (not (string? #{message 15439}#)) | |
014de9e2 AW |
25451 | (syntax-violation |
25452 | 'syntax-violation | |
25453 | "invalid argument" | |
78a47455 | 25454 | #{message 15439}#)) |
014de9e2 | 25455 | (throw 'syntax-error |
78a47455 AW |
25456 | #{who 15438}# |
25457 | #{message 15439}# | |
34c5fe83 | 25458 | (#{source-annotation 4306}# |
78a47455 AW |
25459 | (if #{form 15440}# |
25460 | #{form 15440}# | |
25461 | #{subform 15441}#)) | |
25462 | (#{strip 4358}# #{form 15440}# '(())) | |
25463 | (if #{subform 15441}# | |
25464 | (#{strip 4358}# #{subform 15441}# '(())) | |
014de9e2 AW |
25465 | #f))))) |
25466 | (letrec* | |
78a47455 AW |
25467 | ((#{match-each 15682}# |
25468 | (lambda (#{e 16305}# | |
25469 | #{p 16306}# | |
25470 | #{w 16307}# | |
25471 | #{mod 16308}#) | |
25472 | (if (pair? #{e 16305}#) | |
25473 | (let ((#{first 16309}# | |
25474 | (#{match 15688}# | |
25475 | (car #{e 16305}#) | |
25476 | #{p 16306}# | |
25477 | #{w 16307}# | |
014de9e2 | 25478 | '() |
78a47455 AW |
25479 | #{mod 16308}#))) |
25480 | (if #{first 16309}# | |
25481 | (let ((#{rest 16312}# | |
25482 | (#{match-each 15682}# | |
25483 | (cdr #{e 16305}#) | |
25484 | #{p 16306}# | |
25485 | #{w 16307}# | |
25486 | #{mod 16308}#))) | |
25487 | (if #{rest 16312}# | |
25488 | (cons #{first 16309}# #{rest 16312}#) | |
014de9e2 AW |
25489 | #f)) |
25490 | #f)) | |
78a47455 | 25491 | (if (null? #{e 16305}#) |
014de9e2 | 25492 | '() |
78a47455 AW |
25493 | (if (if (vector? #{e 16305}#) |
25494 | (if (= (vector-length #{e 16305}#) 4) | |
25495 | (eq? (vector-ref #{e 16305}# 0) 'syntax-object) | |
014de9e2 AW |
25496 | #f) |
25497 | #f) | |
78a47455 AW |
25498 | (#{match-each 15682}# |
25499 | (vector-ref #{e 16305}# 1) | |
25500 | #{p 16306}# | |
34c5fe83 | 25501 | (#{join-wraps 4329}# |
78a47455 AW |
25502 | #{w 16307}# |
25503 | (vector-ref #{e 16305}# 2)) | |
25504 | (vector-ref #{e 16305}# 3)) | |
014de9e2 | 25505 | #f))))) |
78a47455 AW |
25506 | (#{match-each-any 15684}# |
25507 | (lambda (#{e 16340}# #{w 16341}# #{mod 16342}#) | |
25508 | (if (pair? #{e 16340}#) | |
25509 | (let ((#{l 16343}# | |
25510 | (#{match-each-any 15684}# | |
25511 | (cdr #{e 16340}#) | |
25512 | #{w 16341}# | |
25513 | #{mod 16342}#))) | |
25514 | (if #{l 16343}# | |
34c5fe83 | 25515 | (cons (#{wrap 4338}# |
78a47455 AW |
25516 | (car #{e 16340}#) |
25517 | #{w 16341}# | |
25518 | #{mod 16342}#) | |
25519 | #{l 16343}#) | |
014de9e2 | 25520 | #f)) |
78a47455 | 25521 | (if (null? #{e 16340}#) |
014de9e2 | 25522 | '() |
78a47455 AW |
25523 | (if (if (vector? #{e 16340}#) |
25524 | (if (= (vector-length #{e 16340}#) 4) | |
25525 | (eq? (vector-ref #{e 16340}# 0) 'syntax-object) | |
014de9e2 AW |
25526 | #f) |
25527 | #f) | |
78a47455 AW |
25528 | (#{match-each-any 15684}# |
25529 | (vector-ref #{e 16340}# 1) | |
34c5fe83 | 25530 | (#{join-wraps 4329}# |
78a47455 AW |
25531 | #{w 16341}# |
25532 | (vector-ref #{e 16340}# 2)) | |
25533 | #{mod 16342}#) | |
014de9e2 | 25534 | #f))))) |
78a47455 AW |
25535 | (#{match-empty 15685}# |
25536 | (lambda (#{p 16367}# #{r 16368}#) | |
25537 | (if (null? #{p 16367}#) | |
25538 | #{r 16368}# | |
25539 | (if (eq? #{p 16367}# '_) | |
25540 | #{r 16368}# | |
25541 | (if (eq? #{p 16367}# 'any) | |
25542 | (cons '() #{r 16368}#) | |
25543 | (if (pair? #{p 16367}#) | |
25544 | (#{match-empty 15685}# | |
25545 | (car #{p 16367}#) | |
25546 | (#{match-empty 15685}# | |
25547 | (cdr #{p 16367}#) | |
25548 | #{r 16368}#)) | |
25549 | (if (eq? #{p 16367}# 'each-any) | |
25550 | (cons '() #{r 16368}#) | |
25551 | (let ((#{atom-key 16369}# (vector-ref #{p 16367}# 0))) | |
25552 | (if (eqv? #{atom-key 16369}# 'each) | |
25553 | (#{match-empty 15685}# | |
25554 | (vector-ref #{p 16367}# 1) | |
25555 | #{r 16368}#) | |
25556 | (if (eqv? #{atom-key 16369}# 'each+) | |
25557 | (#{match-empty 15685}# | |
25558 | (vector-ref #{p 16367}# 1) | |
25559 | (#{match-empty 15685}# | |
25560 | (reverse (vector-ref #{p 16367}# 2)) | |
25561 | (#{match-empty 15685}# | |
25562 | (vector-ref #{p 16367}# 3) | |
25563 | #{r 16368}#))) | |
25564 | (if (if (eqv? #{atom-key 16369}# 'free-id) | |
34c5fe83 | 25565 | #t |
78a47455 AW |
25566 | (eqv? #{atom-key 16369}# 'atom)) |
25567 | #{r 16368}# | |
25568 | (if (eqv? #{atom-key 16369}# 'vector) | |
25569 | (#{match-empty 15685}# | |
25570 | (vector-ref #{p 16367}# 1) | |
25571 | #{r 16368}#))))))))))))) | |
25572 | (#{combine 15686}# | |
25573 | (lambda (#{r* 16388}# #{r 16389}#) | |
25574 | (if (null? (car #{r* 16388}#)) | |
25575 | #{r 16389}# | |
25576 | (cons (map car #{r* 16388}#) | |
25577 | (#{combine 15686}# | |
25578 | (map cdr #{r* 16388}#) | |
25579 | #{r 16389}#))))) | |
25580 | (#{match* 15687}# | |
25581 | (lambda (#{e 15717}# | |
25582 | #{p 15718}# | |
25583 | #{w 15719}# | |
25584 | #{r 15720}# | |
25585 | #{mod 15721}#) | |
25586 | (if (null? #{p 15718}#) | |
25587 | (if (null? #{e 15717}#) #{r 15720}# #f) | |
25588 | (if (pair? #{p 15718}#) | |
25589 | (if (pair? #{e 15717}#) | |
25590 | (#{match 15688}# | |
25591 | (car #{e 15717}#) | |
25592 | (car #{p 15718}#) | |
25593 | #{w 15719}# | |
25594 | (#{match 15688}# | |
25595 | (cdr #{e 15717}#) | |
25596 | (cdr #{p 15718}#) | |
25597 | #{w 15719}# | |
25598 | #{r 15720}# | |
25599 | #{mod 15721}#) | |
25600 | #{mod 15721}#) | |
014de9e2 | 25601 | #f) |
78a47455 AW |
25602 | (if (eq? #{p 15718}# 'each-any) |
25603 | (let ((#{l 15726}# | |
25604 | (#{match-each-any 15684}# | |
25605 | #{e 15717}# | |
25606 | #{w 15719}# | |
25607 | #{mod 15721}#))) | |
25608 | (if #{l 15726}# | |
25609 | (cons #{l 15726}# #{r 15720}#) | |
34c5fe83 | 25610 | #f)) |
78a47455 AW |
25611 | (let ((#{atom-key 15731}# (vector-ref #{p 15718}# 0))) |
25612 | (if (eqv? #{atom-key 15731}# 'each) | |
25613 | (if (null? #{e 15717}#) | |
25614 | (#{match-empty 15685}# | |
25615 | (vector-ref #{p 15718}# 1) | |
25616 | #{r 15720}#) | |
25617 | (let ((#{l 15738}# | |
25618 | (#{match-each 15682}# | |
25619 | #{e 15717}# | |
25620 | (vector-ref #{p 15718}# 1) | |
25621 | #{w 15719}# | |
25622 | #{mod 15721}#))) | |
25623 | (if #{l 15738}# | |
014de9e2 | 25624 | (letrec* |
78a47455 AW |
25625 | ((#{collect 15741}# |
25626 | (lambda (#{l 15794}#) | |
25627 | (if (null? (car #{l 15794}#)) | |
25628 | #{r 15720}# | |
25629 | (cons (map car #{l 15794}#) | |
25630 | (#{collect 15741}# | |
25631 | (map cdr #{l 15794}#))))))) | |
25632 | (#{collect 15741}# #{l 15738}#)) | |
014de9e2 | 25633 | #f))) |
78a47455 | 25634 | (if (eqv? #{atom-key 15731}# 'each+) |
014de9e2 AW |
25635 | (call-with-values |
25636 | (lambda () | |
78a47455 AW |
25637 | (let ((#{x-pat 15803}# (vector-ref #{p 15718}# 1)) |
25638 | (#{y-pat 15804}# (vector-ref #{p 15718}# 2)) | |
25639 | (#{z-pat 15805}# (vector-ref #{p 15718}# 3))) | |
34c5fe83 | 25640 | (letrec* |
78a47455 AW |
25641 | ((#{f 15809}# |
25642 | (lambda (#{e 15811}# #{w 15812}#) | |
25643 | (if (pair? #{e 15811}#) | |
34c5fe83 AW |
25644 | (call-with-values |
25645 | (lambda () | |
78a47455 AW |
25646 | (#{f 15809}# |
25647 | (cdr #{e 15811}#) | |
25648 | #{w 15812}#)) | |
25649 | (lambda (#{xr* 15813}# | |
25650 | #{y-pat 15814}# | |
25651 | #{r 15815}#) | |
25652 | (if #{r 15815}# | |
25653 | (if (null? #{y-pat 15814}#) | |
25654 | (let ((#{xr 15816}# | |
25655 | (#{match 15688}# | |
25656 | (car #{e 15811}#) | |
25657 | #{x-pat 15803}# | |
25658 | #{w 15812}# | |
34c5fe83 | 25659 | '() |
78a47455 AW |
25660 | #{mod 15721}#))) |
25661 | (if #{xr 15816}# | |
34c5fe83 | 25662 | (values |
78a47455 AW |
25663 | (cons #{xr 15816}# |
25664 | #{xr* 15813}#) | |
25665 | #{y-pat 15814}# | |
25666 | #{r 15815}#) | |
34c5fe83 AW |
25667 | (values #f #f #f))) |
25668 | (values | |
25669 | '() | |
78a47455 AW |
25670 | (cdr #{y-pat 15814}#) |
25671 | (#{match 15688}# | |
25672 | (car #{e 15811}#) | |
25673 | (car #{y-pat 15814}#) | |
25674 | #{w 15812}# | |
25675 | #{r 15815}# | |
25676 | #{mod 15721}#))) | |
34c5fe83 | 25677 | (values #f #f #f)))) |
78a47455 AW |
25678 | (if (if (vector? #{e 15811}#) |
25679 | (if (= (vector-length #{e 15811}#) | |
34c5fe83 | 25680 | 4) |
78a47455 | 25681 | (eq? (vector-ref #{e 15811}# 0) |
34c5fe83 AW |
25682 | 'syntax-object) |
25683 | #f) | |
25684 | #f) | |
78a47455 AW |
25685 | (#{f 15809}# |
25686 | (vector-ref #{e 15811}# 1) | |
34c5fe83 | 25687 | (#{join-wraps 4329}# |
78a47455 AW |
25688 | #{w 15812}# |
25689 | #{e 15811}#)) | |
34c5fe83 AW |
25690 | (values |
25691 | '() | |
78a47455 AW |
25692 | #{y-pat 15804}# |
25693 | (#{match 15688}# | |
25694 | #{e 15811}# | |
25695 | #{z-pat 15805}# | |
25696 | #{w 15812}# | |
25697 | #{r 15720}# | |
25698 | #{mod 15721}#))))))) | |
25699 | (#{f 15809}# #{e 15717}# #{w 15719}#)))) | |
25700 | (lambda (#{xr* 15844}# #{y-pat 15845}# #{r 15846}#) | |
25701 | (if #{r 15846}# | |
25702 | (if (null? #{y-pat 15845}#) | |
25703 | (if (null? #{xr* 15844}#) | |
25704 | (#{match-empty 15685}# | |
25705 | (vector-ref #{p 15718}# 1) | |
25706 | #{r 15846}#) | |
25707 | (#{combine 15686}# #{xr* 15844}# #{r 15846}#)) | |
014de9e2 AW |
25708 | #f) |
25709 | #f))) | |
78a47455 AW |
25710 | (if (eqv? #{atom-key 15731}# 'free-id) |
25711 | (if (if (symbol? #{e 15717}#) | |
014de9e2 | 25712 | #t |
78a47455 AW |
25713 | (if (if (vector? #{e 15717}#) |
25714 | (if (= (vector-length #{e 15717}#) 4) | |
25715 | (eq? (vector-ref #{e 15717}# 0) | |
014de9e2 AW |
25716 | 'syntax-object) |
25717 | #f) | |
25718 | #f) | |
78a47455 | 25719 | (symbol? (vector-ref #{e 15717}# 1)) |
014de9e2 | 25720 | #f)) |
78a47455 | 25721 | (if (let ((#{i 16209}# |
34c5fe83 | 25722 | (#{wrap 4338}# |
78a47455 AW |
25723 | #{e 15717}# |
25724 | #{w 15719}# | |
25725 | #{mod 15721}#)) | |
25726 | (#{j 16210}# (vector-ref #{p 15718}# 1))) | |
25727 | (if (eq? (if (if (vector? #{i 16209}#) | |
014de9e2 | 25728 | (if (= (vector-length |
78a47455 | 25729 | #{i 16209}#) |
014de9e2 AW |
25730 | 4) |
25731 | (eq? (vector-ref | |
78a47455 | 25732 | #{i 16209}# |
014de9e2 AW |
25733 | 0) |
25734 | 'syntax-object) | |
25735 | #f) | |
25736 | #f) | |
78a47455 AW |
25737 | (vector-ref #{i 16209}# 1) |
25738 | #{i 16209}#) | |
25739 | (if (if (vector? #{j 16210}#) | |
014de9e2 | 25740 | (if (= (vector-length |
78a47455 | 25741 | #{j 16210}#) |
014de9e2 AW |
25742 | 4) |
25743 | (eq? (vector-ref | |
78a47455 | 25744 | #{j 16210}# |
014de9e2 AW |
25745 | 0) |
25746 | 'syntax-object) | |
25747 | #f) | |
25748 | #f) | |
78a47455 AW |
25749 | (vector-ref #{j 16210}# 1) |
25750 | #{j 16210}#)) | |
34c5fe83 | 25751 | (eq? (#{id-var-name 4332}# |
78a47455 | 25752 | #{i 16209}# |
34c5fe83 AW |
25753 | '(())) |
25754 | (#{id-var-name 4332}# | |
78a47455 | 25755 | #{j 16210}# |
014de9e2 AW |
25756 | '(()))) |
25757 | #f)) | |
78a47455 | 25758 | #{r 15720}# |
014de9e2 AW |
25759 | #f) |
25760 | #f) | |
78a47455 | 25761 | (if (eqv? #{atom-key 15731}# 'atom) |
014de9e2 | 25762 | (if (equal? |
78a47455 AW |
25763 | (vector-ref #{p 15718}# 1) |
25764 | (#{strip 4358}# #{e 15717}# #{w 15719}#)) | |
25765 | #{r 15720}# | |
014de9e2 | 25766 | #f) |
78a47455 AW |
25767 | (if (eqv? #{atom-key 15731}# 'vector) |
25768 | (if (vector? #{e 15717}#) | |
25769 | (#{match 15688}# | |
25770 | (vector->list #{e 15717}#) | |
25771 | (vector-ref #{p 15718}# 1) | |
25772 | #{w 15719}# | |
25773 | #{r 15720}# | |
25774 | #{mod 15721}#) | |
014de9e2 | 25775 | #f)))))))))))) |
78a47455 AW |
25776 | (#{match 15688}# |
25777 | (lambda (#{e 16270}# | |
25778 | #{p 16271}# | |
25779 | #{w 16272}# | |
25780 | #{r 16273}# | |
25781 | #{mod 16274}#) | |
25782 | (if (not #{r 16273}#) | |
014de9e2 | 25783 | #f |
78a47455 AW |
25784 | (if (eq? #{p 16271}# '_) |
25785 | #{r 16273}# | |
25786 | (if (eq? #{p 16271}# 'any) | |
34c5fe83 | 25787 | (cons (#{wrap 4338}# |
78a47455 AW |
25788 | #{e 16270}# |
25789 | #{w 16272}# | |
25790 | #{mod 16274}#) | |
25791 | #{r 16273}#) | |
25792 | (if (if (vector? #{e 16270}#) | |
25793 | (if (= (vector-length #{e 16270}#) 4) | |
25794 | (eq? (vector-ref #{e 16270}# 0) 'syntax-object) | |
014de9e2 AW |
25795 | #f) |
25796 | #f) | |
78a47455 AW |
25797 | (#{match* 15687}# |
25798 | (vector-ref #{e 16270}# 1) | |
25799 | #{p 16271}# | |
34c5fe83 | 25800 | (#{join-wraps 4329}# |
78a47455 AW |
25801 | #{w 16272}# |
25802 | (vector-ref #{e 16270}# 2)) | |
25803 | #{r 16273}# | |
25804 | (vector-ref #{e 16270}# 3)) | |
25805 | (#{match* 15687}# | |
25806 | #{e 16270}# | |
25807 | #{p 16271}# | |
25808 | #{w 16272}# | |
25809 | #{r 16273}# | |
25810 | #{mod 16274}#)))))))) | |
014de9e2 | 25811 | (set! $sc-dispatch |
78a47455 AW |
25812 | (lambda (#{e 15689}# #{p 15690}#) |
25813 | (if (eq? #{p 15690}# 'any) | |
25814 | (list #{e 15689}#) | |
25815 | (if (eq? #{p 15690}# '_) | |
014de9e2 | 25816 | '() |
78a47455 AW |
25817 | (if (if (vector? #{e 15689}#) |
25818 | (if (= (vector-length #{e 15689}#) 4) | |
25819 | (eq? (vector-ref #{e 15689}# 0) 'syntax-object) | |
014de9e2 AW |
25820 | #f) |
25821 | #f) | |
78a47455 AW |
25822 | (#{match* 15687}# |
25823 | (vector-ref #{e 15689}# 1) | |
25824 | #{p 15690}# | |
25825 | (vector-ref #{e 15689}# 2) | |
014de9e2 | 25826 | '() |
78a47455 AW |
25827 | (vector-ref #{e 15689}# 3)) |
25828 | (#{match* 15687}# | |
25829 | #{e 15689}# | |
25830 | #{p 15690}# | |
014de9e2 AW |
25831 | '(()) |
25832 | '() | |
25833 | #f))))))))) | |
25834 | ||
25835 | (define with-syntax | |
25836 | (make-syntax-transformer | |
25837 | 'with-syntax | |
25838 | 'macro | |
78a47455 AW |
25839 | (lambda (#{x 28533}#) |
25840 | (let ((#{tmp 28535}# | |
25841 | ($sc-dispatch #{x 28533}# '(_ () any . each-any)))) | |
25842 | (if #{tmp 28535}# | |
014de9e2 | 25843 | (@apply |
78a47455 | 25844 | (lambda (#{e1 28539}# #{e2 28540}#) |
014de9e2 AW |
25845 | (cons '#(syntax-object |
25846 | let | |
25847 | ((top) | |
25848 | #(ribcage | |
25849 | #(e1 e2) | |
25850 | #((top) (top)) | |
78a47455 | 25851 | #("i28506" "i28507")) |
014de9e2 | 25852 | #(ribcage () () ()) |
78a47455 | 25853 | #(ribcage #(x) #((top)) #("i28503"))) |
014de9e2 | 25854 | (hygiene guile)) |
78a47455 AW |
25855 | (cons '() (cons #{e1 28539}# #{e2 28540}#)))) |
25856 | #{tmp 28535}#) | |
25857 | (let ((#{tmp 28541}# | |
014de9e2 | 25858 | ($sc-dispatch |
78a47455 | 25859 | #{x 28533}# |
014de9e2 | 25860 | '(_ ((any any)) any . each-any)))) |
78a47455 | 25861 | (if #{tmp 28541}# |
014de9e2 | 25862 | (@apply |
78a47455 AW |
25863 | (lambda (#{out 28545}# |
25864 | #{in 28546}# | |
25865 | #{e1 28547}# | |
25866 | #{e2 28548}#) | |
014de9e2 AW |
25867 | (list '#(syntax-object |
25868 | syntax-case | |
25869 | ((top) | |
25870 | #(ribcage | |
25871 | #(out in e1 e2) | |
25872 | #((top) (top) (top) (top)) | |
78a47455 | 25873 | #("i28512" "i28513" "i28514" "i28515")) |
014de9e2 | 25874 | #(ribcage () () ()) |
78a47455 | 25875 | #(ribcage #(x) #((top)) #("i28503"))) |
014de9e2 | 25876 | (hygiene guile)) |
78a47455 | 25877 | #{in 28546}# |
014de9e2 | 25878 | '() |
78a47455 | 25879 | (list #{out 28545}# |
014de9e2 AW |
25880 | (cons '#(syntax-object |
25881 | let | |
25882 | ((top) | |
25883 | #(ribcage | |
25884 | #(out in e1 e2) | |
25885 | #((top) (top) (top) (top)) | |
78a47455 AW |
25886 | #("i28512" |
25887 | "i28513" | |
25888 | "i28514" | |
25889 | "i28515")) | |
014de9e2 | 25890 | #(ribcage () () ()) |
78a47455 | 25891 | #(ribcage #(x) #((top)) #("i28503"))) |
014de9e2 AW |
25892 | (hygiene guile)) |
25893 | (cons '() | |
78a47455 AW |
25894 | (cons #{e1 28547}# #{e2 28548}#)))))) |
25895 | #{tmp 28541}#) | |
25896 | (let ((#{tmp 28549}# | |
014de9e2 | 25897 | ($sc-dispatch |
78a47455 | 25898 | #{x 28533}# |
014de9e2 | 25899 | '(_ #(each (any any)) any . each-any)))) |
78a47455 | 25900 | (if #{tmp 28549}# |
014de9e2 | 25901 | (@apply |
78a47455 AW |
25902 | (lambda (#{out 28553}# |
25903 | #{in 28554}# | |
25904 | #{e1 28555}# | |
25905 | #{e2 28556}#) | |
014de9e2 AW |
25906 | (list '#(syntax-object |
25907 | syntax-case | |
25908 | ((top) | |
25909 | #(ribcage | |
25910 | #(out in e1 e2) | |
25911 | #((top) (top) (top) (top)) | |
78a47455 | 25912 | #("i28522" "i28523" "i28524" "i28525")) |
014de9e2 | 25913 | #(ribcage () () ()) |
78a47455 | 25914 | #(ribcage #(x) #((top)) #("i28503"))) |
014de9e2 AW |
25915 | (hygiene guile)) |
25916 | (cons '#(syntax-object | |
25917 | list | |
25918 | ((top) | |
25919 | #(ribcage | |
25920 | #(out in e1 e2) | |
25921 | #((top) (top) (top) (top)) | |
78a47455 | 25922 | #("i28522" "i28523" "i28524" "i28525")) |
014de9e2 | 25923 | #(ribcage () () ()) |
78a47455 | 25924 | #(ribcage #(x) #((top)) #("i28503"))) |
014de9e2 | 25925 | (hygiene guile)) |
78a47455 | 25926 | #{in 28554}#) |
014de9e2 | 25927 | '() |
78a47455 | 25928 | (list #{out 28553}# |
014de9e2 AW |
25929 | (cons '#(syntax-object |
25930 | let | |
25931 | ((top) | |
25932 | #(ribcage | |
25933 | #(out in e1 e2) | |
25934 | #((top) (top) (top) (top)) | |
78a47455 AW |
25935 | #("i28522" |
25936 | "i28523" | |
25937 | "i28524" | |
25938 | "i28525")) | |
014de9e2 AW |
25939 | #(ribcage () () ()) |
25940 | #(ribcage | |
25941 | #(x) | |
25942 | #((top)) | |
78a47455 | 25943 | #("i28503"))) |
014de9e2 AW |
25944 | (hygiene guile)) |
25945 | (cons '() | |
78a47455 AW |
25946 | (cons #{e1 28555}# |
25947 | #{e2 28556}#)))))) | |
25948 | #{tmp 28549}#) | |
014de9e2 AW |
25949 | (syntax-violation |
25950 | #f | |
25951 | "source expression failed to match any pattern" | |
78a47455 | 25952 | #{x 28533}#)))))))))) |
014de9e2 AW |
25953 | |
25954 | (define syntax-rules | |
25955 | (make-syntax-transformer | |
25956 | 'syntax-rules | |
25957 | 'macro | |
78a47455 AW |
25958 | (lambda (#{x 28610}#) |
25959 | (let ((#{tmp 28612}# | |
014de9e2 | 25960 | ($sc-dispatch |
78a47455 | 25961 | #{x 28610}# |
014de9e2 | 25962 | '(_ each-any . #(each ((any . any) any)))))) |
78a47455 | 25963 | (if #{tmp 28612}# |
014de9e2 | 25964 | (@apply |
78a47455 AW |
25965 | (lambda (#{k 28616}# |
25966 | #{keyword 28617}# | |
25967 | #{pattern 28618}# | |
25968 | #{template 28619}#) | |
014de9e2 AW |
25969 | (list '#(syntax-object |
25970 | lambda | |
25971 | ((top) | |
25972 | #(ribcage | |
25973 | #(k keyword pattern template) | |
25974 | #((top) (top) (top) (top)) | |
78a47455 | 25975 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 25976 | #(ribcage () () ()) |
78a47455 | 25977 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
25978 | (hygiene guile)) |
25979 | '(#(syntax-object | |
25980 | x | |
25981 | ((top) | |
25982 | #(ribcage | |
25983 | #(k keyword pattern template) | |
25984 | #((top) (top) (top) (top)) | |
78a47455 | 25985 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 25986 | #(ribcage () () ()) |
78a47455 | 25987 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
25988 | (hygiene guile))) |
25989 | (vector | |
25990 | '(#(syntax-object | |
25991 | macro-type | |
25992 | ((top) | |
25993 | #(ribcage | |
25994 | #(k keyword pattern template) | |
25995 | #((top) (top) (top) (top)) | |
78a47455 | 25996 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 25997 | #(ribcage () () ()) |
78a47455 | 25998 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
25999 | (hygiene guile)) |
26000 | . | |
26001 | #(syntax-object | |
26002 | syntax-rules | |
26003 | ((top) | |
26004 | #(ribcage | |
26005 | #(k keyword pattern template) | |
26006 | #((top) (top) (top) (top)) | |
78a47455 | 26007 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 26008 | #(ribcage () () ()) |
78a47455 | 26009 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
26010 | (hygiene guile))) |
26011 | (cons '#(syntax-object | |
26012 | patterns | |
26013 | ((top) | |
26014 | #(ribcage | |
26015 | #(k keyword pattern template) | |
26016 | #((top) (top) (top) (top)) | |
78a47455 | 26017 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 26018 | #(ribcage () () ()) |
78a47455 | 26019 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 | 26020 | (hygiene guile)) |
78a47455 | 26021 | #{pattern 28618}#)) |
014de9e2 AW |
26022 | (cons '#(syntax-object |
26023 | syntax-case | |
26024 | ((top) | |
26025 | #(ribcage | |
26026 | #(k keyword pattern template) | |
26027 | #((top) (top) (top) (top)) | |
78a47455 | 26028 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 26029 | #(ribcage () () ()) |
78a47455 | 26030 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
26031 | (hygiene guile)) |
26032 | (cons '#(syntax-object | |
26033 | x | |
26034 | ((top) | |
26035 | #(ribcage | |
26036 | #(k keyword pattern template) | |
26037 | #((top) (top) (top) (top)) | |
78a47455 | 26038 | #("i28573" "i28574" "i28575" "i28576")) |
014de9e2 | 26039 | #(ribcage () () ()) |
78a47455 | 26040 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 | 26041 | (hygiene guile)) |
78a47455 AW |
26042 | (cons #{k 28616}# |
26043 | (map (lambda (#{tmp 28584 28620}# | |
26044 | #{tmp 28583 28621}#) | |
014de9e2 AW |
26045 | (list (cons '#(syntax-object |
26046 | dummy | |
26047 | ((top) | |
26048 | #(ribcage | |
26049 | #(k | |
26050 | keyword | |
26051 | pattern | |
26052 | template) | |
26053 | #((top) | |
26054 | (top) | |
26055 | (top) | |
26056 | (top)) | |
78a47455 AW |
26057 | #("i28573" |
26058 | "i28574" | |
26059 | "i28575" | |
26060 | "i28576")) | |
014de9e2 AW |
26061 | #(ribcage |
26062 | () | |
26063 | () | |
26064 | ()) | |
26065 | #(ribcage | |
26066 | #(x) | |
26067 | #((top)) | |
78a47455 | 26068 | #("i28570"))) |
014de9e2 | 26069 | (hygiene guile)) |
78a47455 | 26070 | #{tmp 28583 28621}#) |
014de9e2 AW |
26071 | (list '#(syntax-object |
26072 | syntax | |
26073 | ((top) | |
26074 | #(ribcage | |
26075 | #(k | |
26076 | keyword | |
26077 | pattern | |
26078 | template) | |
26079 | #((top) | |
26080 | (top) | |
26081 | (top) | |
26082 | (top)) | |
78a47455 AW |
26083 | #("i28573" |
26084 | "i28574" | |
26085 | "i28575" | |
26086 | "i28576")) | |
014de9e2 AW |
26087 | #(ribcage |
26088 | () | |
26089 | () | |
26090 | ()) | |
26091 | #(ribcage | |
26092 | #(x) | |
26093 | #((top)) | |
78a47455 | 26094 | #("i28570"))) |
014de9e2 | 26095 | (hygiene guile)) |
78a47455 AW |
26096 | #{tmp 28584 28620}#))) |
26097 | #{template 28619}# | |
26098 | #{pattern 28618}#)))))) | |
26099 | #{tmp 28612}#) | |
26100 | (let ((#{tmp 28622}# | |
014de9e2 | 26101 | ($sc-dispatch |
78a47455 | 26102 | #{x 28610}# |
014de9e2 | 26103 | '(_ each-any any . #(each ((any . any) any)))))) |
78a47455 | 26104 | (if (if #{tmp 28622}# |
014de9e2 | 26105 | (@apply |
78a47455 AW |
26106 | (lambda (#{k 28626}# |
26107 | #{docstring 28627}# | |
26108 | #{keyword 28628}# | |
26109 | #{pattern 28629}# | |
26110 | #{template 28630}#) | |
26111 | (string? (syntax->datum #{docstring 28627}#))) | |
26112 | #{tmp 28622}#) | |
014de9e2 AW |
26113 | #f) |
26114 | (@apply | |
78a47455 AW |
26115 | (lambda (#{k 28631}# |
26116 | #{docstring 28632}# | |
26117 | #{keyword 28633}# | |
26118 | #{pattern 28634}# | |
26119 | #{template 28635}#) | |
014de9e2 AW |
26120 | (list '#(syntax-object |
26121 | lambda | |
26122 | ((top) | |
26123 | #(ribcage | |
26124 | #(k docstring keyword pattern template) | |
26125 | #((top) (top) (top) (top) (top)) | |
78a47455 | 26126 | #("i28596" "i28597" "i28598" "i28599" "i28600")) |
014de9e2 | 26127 | #(ribcage () () ()) |
78a47455 | 26128 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
26129 | (hygiene guile)) |
26130 | '(#(syntax-object | |
26131 | x | |
26132 | ((top) | |
26133 | #(ribcage | |
26134 | #(k docstring keyword pattern template) | |
26135 | #((top) (top) (top) (top) (top)) | |
78a47455 | 26136 | #("i28596" "i28597" "i28598" "i28599" "i28600")) |
014de9e2 | 26137 | #(ribcage () () ()) |
78a47455 | 26138 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 | 26139 | (hygiene guile))) |
78a47455 | 26140 | #{docstring 28632}# |
014de9e2 AW |
26141 | (vector |
26142 | '(#(syntax-object | |
26143 | macro-type | |
26144 | ((top) | |
26145 | #(ribcage | |
26146 | #(k docstring keyword pattern template) | |
26147 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26148 | #("i28596" |
26149 | "i28597" | |
26150 | "i28598" | |
26151 | "i28599" | |
26152 | "i28600")) | |
014de9e2 | 26153 | #(ribcage () () ()) |
78a47455 | 26154 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
26155 | (hygiene guile)) |
26156 | . | |
26157 | #(syntax-object | |
26158 | syntax-rules | |
26159 | ((top) | |
26160 | #(ribcage | |
26161 | #(k docstring keyword pattern template) | |
26162 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26163 | #("i28596" |
26164 | "i28597" | |
26165 | "i28598" | |
26166 | "i28599" | |
26167 | "i28600")) | |
014de9e2 | 26168 | #(ribcage () () ()) |
78a47455 | 26169 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
26170 | (hygiene guile))) |
26171 | (cons '#(syntax-object | |
26172 | patterns | |
26173 | ((top) | |
26174 | #(ribcage | |
26175 | #(k docstring keyword pattern template) | |
26176 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26177 | #("i28596" |
26178 | "i28597" | |
26179 | "i28598" | |
26180 | "i28599" | |
26181 | "i28600")) | |
014de9e2 | 26182 | #(ribcage () () ()) |
78a47455 | 26183 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 | 26184 | (hygiene guile)) |
78a47455 | 26185 | #{pattern 28634}#)) |
014de9e2 AW |
26186 | (cons '#(syntax-object |
26187 | syntax-case | |
26188 | ((top) | |
26189 | #(ribcage | |
26190 | #(k docstring keyword pattern template) | |
26191 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26192 | #("i28596" |
26193 | "i28597" | |
26194 | "i28598" | |
26195 | "i28599" | |
26196 | "i28600")) | |
014de9e2 | 26197 | #(ribcage () () ()) |
78a47455 | 26198 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 AW |
26199 | (hygiene guile)) |
26200 | (cons '#(syntax-object | |
26201 | x | |
26202 | ((top) | |
26203 | #(ribcage | |
26204 | #(k | |
26205 | docstring | |
26206 | keyword | |
26207 | pattern | |
26208 | template) | |
26209 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26210 | #("i28596" |
26211 | "i28597" | |
26212 | "i28598" | |
26213 | "i28599" | |
26214 | "i28600")) | |
014de9e2 | 26215 | #(ribcage () () ()) |
78a47455 | 26216 | #(ribcage #(x) #((top)) #("i28570"))) |
014de9e2 | 26217 | (hygiene guile)) |
78a47455 AW |
26218 | (cons #{k 28631}# |
26219 | (map (lambda (#{tmp 28609 28636}# | |
26220 | #{tmp 28608 28637}#) | |
014de9e2 AW |
26221 | (list (cons '#(syntax-object |
26222 | dummy | |
26223 | ((top) | |
26224 | #(ribcage | |
26225 | #(k | |
26226 | docstring | |
26227 | keyword | |
26228 | pattern | |
26229 | template) | |
26230 | #((top) | |
26231 | (top) | |
26232 | (top) | |
26233 | (top) | |
26234 | (top)) | |
78a47455 AW |
26235 | #("i28596" |
26236 | "i28597" | |
26237 | "i28598" | |
26238 | "i28599" | |
26239 | "i28600")) | |
014de9e2 AW |
26240 | #(ribcage |
26241 | () | |
26242 | () | |
26243 | ()) | |
26244 | #(ribcage | |
26245 | #(x) | |
26246 | #((top)) | |
78a47455 | 26247 | #("i28570"))) |
014de9e2 AW |
26248 | (hygiene |
26249 | guile)) | |
78a47455 | 26250 | #{tmp 28608 28637}#) |
014de9e2 AW |
26251 | (list '#(syntax-object |
26252 | syntax | |
26253 | ((top) | |
26254 | #(ribcage | |
26255 | #(k | |
26256 | docstring | |
26257 | keyword | |
26258 | pattern | |
26259 | template) | |
26260 | #((top) | |
26261 | (top) | |
26262 | (top) | |
26263 | (top) | |
26264 | (top)) | |
78a47455 AW |
26265 | #("i28596" |
26266 | "i28597" | |
26267 | "i28598" | |
26268 | "i28599" | |
26269 | "i28600")) | |
014de9e2 AW |
26270 | #(ribcage |
26271 | () | |
26272 | () | |
26273 | ()) | |
26274 | #(ribcage | |
26275 | #(x) | |
26276 | #((top)) | |
78a47455 | 26277 | #("i28570"))) |
014de9e2 AW |
26278 | (hygiene |
26279 | guile)) | |
78a47455 AW |
26280 | #{tmp 28609 28636}#))) |
26281 | #{template 28635}# | |
26282 | #{pattern 28634}#)))))) | |
26283 | #{tmp 28622}#) | |
014de9e2 AW |
26284 | (syntax-violation |
26285 | #f | |
26286 | "source expression failed to match any pattern" | |
78a47455 | 26287 | #{x 28610}#)))))))) |
df40b969 | 26288 | |
014de9e2 | 26289 | (define define-syntax-rule |
df40b969 | 26290 | (make-syntax-transformer |
014de9e2 | 26291 | 'define-syntax-rule |
df40b969 | 26292 | 'macro |
78a47455 AW |
26293 | (lambda (#{x 28674}#) |
26294 | (let ((#{tmp 28676}# | |
26295 | ($sc-dispatch #{x 28674}# '(_ (any . any) any)))) | |
26296 | (if #{tmp 28676}# | |
014de9e2 | 26297 | (@apply |
78a47455 AW |
26298 | (lambda (#{name 28680}# |
26299 | #{pattern 28681}# | |
26300 | #{template 28682}#) | |
014de9e2 AW |
26301 | (list '#(syntax-object |
26302 | define-syntax | |
26303 | ((top) | |
26304 | #(ribcage | |
26305 | #(name pattern template) | |
26306 | #((top) (top) (top)) | |
78a47455 | 26307 | #("i28651" "i28652" "i28653")) |
014de9e2 | 26308 | #(ribcage () () ()) |
78a47455 | 26309 | #(ribcage #(x) #((top)) #("i28648"))) |
014de9e2 | 26310 | (hygiene guile)) |
78a47455 | 26311 | #{name 28680}# |
014de9e2 AW |
26312 | (list '#(syntax-object |
26313 | syntax-rules | |
df40b969 | 26314 | ((top) |
df40b969 | 26315 | #(ribcage |
014de9e2 AW |
26316 | #(name pattern template) |
26317 | #((top) (top) (top)) | |
78a47455 | 26318 | #("i28651" "i28652" "i28653")) |
014de9e2 | 26319 | #(ribcage () () ()) |
78a47455 | 26320 | #(ribcage #(x) #((top)) #("i28648"))) |
014de9e2 AW |
26321 | (hygiene guile)) |
26322 | '() | |
26323 | (list (cons '#(syntax-object | |
26324 | _ | |
26325 | ((top) | |
26326 | #(ribcage | |
26327 | #(name pattern template) | |
26328 | #((top) (top) (top)) | |
78a47455 | 26329 | #("i28651" "i28652" "i28653")) |
014de9e2 | 26330 | #(ribcage () () ()) |
78a47455 | 26331 | #(ribcage #(x) #((top)) #("i28648"))) |
014de9e2 | 26332 | (hygiene guile)) |
78a47455 AW |
26333 | #{pattern 28681}#) |
26334 | #{template 28682}#)))) | |
26335 | #{tmp 28676}#) | |
26336 | (let ((#{tmp 28683}# | |
014de9e2 | 26337 | ($sc-dispatch |
78a47455 | 26338 | #{x 28674}# |
014de9e2 | 26339 | '(_ (any . any) any any)))) |
78a47455 | 26340 | (if (if #{tmp 28683}# |
014de9e2 | 26341 | (@apply |
78a47455 AW |
26342 | (lambda (#{name 28687}# |
26343 | #{pattern 28688}# | |
26344 | #{docstring 28689}# | |
26345 | #{template 28690}#) | |
26346 | (string? (syntax->datum #{docstring 28689}#))) | |
26347 | #{tmp 28683}#) | |
014de9e2 AW |
26348 | #f) |
26349 | (@apply | |
78a47455 AW |
26350 | (lambda (#{name 28691}# |
26351 | #{pattern 28692}# | |
26352 | #{docstring 28693}# | |
26353 | #{template 28694}#) | |
014de9e2 AW |
26354 | (list '#(syntax-object |
26355 | define-syntax | |
26356 | ((top) | |
26357 | #(ribcage | |
26358 | #(name pattern docstring template) | |
26359 | #((top) (top) (top) (top)) | |
78a47455 | 26360 | #("i28666" "i28667" "i28668" "i28669")) |
014de9e2 | 26361 | #(ribcage () () ()) |
78a47455 | 26362 | #(ribcage #(x) #((top)) #("i28648"))) |
014de9e2 | 26363 | (hygiene guile)) |
78a47455 | 26364 | #{name 28691}# |
014de9e2 AW |
26365 | (list '#(syntax-object |
26366 | syntax-rules | |
26367 | ((top) | |
26368 | #(ribcage | |
26369 | #(name pattern docstring template) | |
26370 | #((top) (top) (top) (top)) | |
78a47455 | 26371 | #("i28666" "i28667" "i28668" "i28669")) |
014de9e2 | 26372 | #(ribcage () () ()) |
78a47455 | 26373 | #(ribcage #(x) #((top)) #("i28648"))) |
014de9e2 AW |
26374 | (hygiene guile)) |
26375 | '() | |
78a47455 | 26376 | #{docstring 28693}# |
014de9e2 AW |
26377 | (list (cons '#(syntax-object |
26378 | _ | |
26379 | ((top) | |
26380 | #(ribcage | |
26381 | #(name | |
26382 | pattern | |
26383 | docstring | |
26384 | template) | |
26385 | #((top) (top) (top) (top)) | |
78a47455 AW |
26386 | #("i28666" |
26387 | "i28667" | |
26388 | "i28668" | |
26389 | "i28669")) | |
014de9e2 AW |
26390 | #(ribcage () () ()) |
26391 | #(ribcage | |
26392 | #(x) | |
26393 | #((top)) | |
78a47455 | 26394 | #("i28648"))) |
014de9e2 | 26395 | (hygiene guile)) |
78a47455 AW |
26396 | #{pattern 28692}#) |
26397 | #{template 28694}#)))) | |
26398 | #{tmp 28683}#) | |
014de9e2 AW |
26399 | (syntax-violation |
26400 | #f | |
26401 | "source expression failed to match any pattern" | |
78a47455 | 26402 | #{x 28674}#)))))))) |
014de9e2 AW |
26403 | |
26404 | (define let* | |
26405 | (make-syntax-transformer | |
26406 | 'let* | |
26407 | 'macro | |
78a47455 AW |
26408 | (lambda (#{x 28743}#) |
26409 | (let ((#{tmp 28745}# | |
014de9e2 | 26410 | ($sc-dispatch |
78a47455 | 26411 | #{x 28743}# |
014de9e2 | 26412 | '(any #(each (any any)) any . each-any)))) |
78a47455 | 26413 | (if (if #{tmp 28745}# |
014de9e2 | 26414 | (@apply |
78a47455 AW |
26415 | (lambda (#{let* 28749}# |
26416 | #{x 28750}# | |
26417 | #{v 28751}# | |
26418 | #{e1 28752}# | |
26419 | #{e2 28753}#) | |
26420 | (and-map identifier? #{x 28750}#)) | |
26421 | #{tmp 28745}#) | |
014de9e2 AW |
26422 | #f) |
26423 | (@apply | |
78a47455 AW |
26424 | (lambda (#{let* 28754}# |
26425 | #{x 28755}# | |
26426 | #{v 28756}# | |
26427 | #{e1 28757}# | |
26428 | #{e2 28758}#) | |
014de9e2 | 26429 | (letrec* |
78a47455 AW |
26430 | ((#{f 28759}# |
26431 | (lambda (#{bindings 28762}#) | |
26432 | (if (null? #{bindings 28762}#) | |
014de9e2 AW |
26433 | (cons '#(syntax-object |
26434 | let | |
df40b969 | 26435 | ((top) |
df40b969 AW |
26436 | #(ribcage () () ()) |
26437 | #(ribcage | |
014de9e2 | 26438 | #(f bindings) |
df40b969 | 26439 | #((top) (top)) |
78a47455 | 26440 | #("i28729" "i28730")) |
df40b969 | 26441 | #(ribcage |
014de9e2 AW |
26442 | #(let* x v e1 e2) |
26443 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26444 | #("i28719" |
26445 | "i28720" | |
26446 | "i28721" | |
26447 | "i28722" | |
26448 | "i28723")) | |
014de9e2 | 26449 | #(ribcage () () ()) |
78a47455 | 26450 | #(ribcage #(x) #((top)) #("i28705"))) |
df40b969 | 26451 | (hygiene guile)) |
78a47455 AW |
26452 | (cons '() (cons #{e1 28757}# #{e2 28758}#))) |
26453 | (let ((#{tmp 28763}# | |
26454 | (list (#{f 28759}# (cdr #{bindings 28762}#)) | |
26455 | (car #{bindings 28762}#)))) | |
26456 | (let ((#{tmp 28764}# | |
26457 | ($sc-dispatch #{tmp 28763}# '(any any)))) | |
26458 | (if #{tmp 28764}# | |
df40b969 | 26459 | (@apply |
78a47455 | 26460 | (lambda (#{body 28766}# #{binding 28767}#) |
014de9e2 AW |
26461 | (list '#(syntax-object |
26462 | let | |
26463 | ((top) | |
26464 | #(ribcage () () ()) | |
26465 | #(ribcage | |
26466 | #(body binding) | |
26467 | #((top) (top)) | |
78a47455 | 26468 | #("i28739" "i28740")) |
014de9e2 AW |
26469 | #(ribcage () () ()) |
26470 | #(ribcage | |
26471 | #(f bindings) | |
26472 | #((top) (top)) | |
78a47455 | 26473 | #("i28729" "i28730")) |
014de9e2 AW |
26474 | #(ribcage |
26475 | #(let* x v e1 e2) | |
26476 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
26477 | #("i28719" |
26478 | "i28720" | |
26479 | "i28721" | |
26480 | "i28722" | |
26481 | "i28723")) | |
014de9e2 AW |
26482 | #(ribcage () () ()) |
26483 | #(ribcage | |
26484 | #(x) | |
26485 | #((top)) | |
78a47455 | 26486 | #("i28705"))) |
014de9e2 | 26487 | (hygiene guile)) |
78a47455 AW |
26488 | (list #{binding 28767}#) |
26489 | #{body 28766}#)) | |
26490 | #{tmp 28764}#) | |
014de9e2 AW |
26491 | (syntax-violation |
26492 | #f | |
26493 | "source expression failed to match any pattern" | |
78a47455 AW |
26494 | #{tmp 28763}#)))))))) |
26495 | (#{f 28759}# (map list #{x 28755}# #{v 28756}#)))) | |
26496 | #{tmp 28745}#) | |
014de9e2 AW |
26497 | (syntax-violation |
26498 | #f | |
26499 | "source expression failed to match any pattern" | |
78a47455 | 26500 | #{x 28743}#)))))) |
014de9e2 AW |
26501 | |
26502 | (define do | |
26503 | (make-syntax-transformer | |
26504 | 'do | |
26505 | 'macro | |
78a47455 AW |
26506 | (lambda (#{orig-x 28825}#) |
26507 | (let ((#{tmp 28827}# | |
014de9e2 | 26508 | ($sc-dispatch |
78a47455 | 26509 | #{orig-x 28825}# |
014de9e2 AW |
26510 | '(_ #(each (any any . any)) |
26511 | (any . each-any) | |
26512 | . | |
26513 | each-any)))) | |
78a47455 | 26514 | (if #{tmp 28827}# |
014de9e2 | 26515 | (@apply |
78a47455 AW |
26516 | (lambda (#{var 28831}# |
26517 | #{init 28832}# | |
26518 | #{step 28833}# | |
26519 | #{e0 28834}# | |
26520 | #{e1 28835}# | |
26521 | #{c 28836}#) | |
26522 | (let ((#{tmp 28837}# | |
26523 | (map (lambda (#{v 28840}# #{s 28841}#) | |
26524 | (let ((#{tmp 28843}# | |
26525 | ($sc-dispatch #{s 28841}# '()))) | |
26526 | (if #{tmp 28843}# | |
26527 | (@apply (lambda () #{v 28840}#) #{tmp 28843}#) | |
26528 | (let ((#{tmp 28846}# | |
26529 | ($sc-dispatch #{s 28841}# '(any)))) | |
26530 | (if #{tmp 28846}# | |
014de9e2 | 26531 | (@apply |
78a47455 AW |
26532 | (lambda (#{e 28849}#) #{e 28849}#) |
26533 | #{tmp 28846}#) | |
014de9e2 AW |
26534 | (syntax-violation |
26535 | 'do | |
26536 | "bad step expression" | |
78a47455 AW |
26537 | #{orig-x 28825}# |
26538 | #{s 28841}#)))))) | |
26539 | #{var 28831}# | |
26540 | #{step 28833}#))) | |
26541 | (let ((#{tmp 28838}# | |
26542 | ($sc-dispatch #{tmp 28837}# 'each-any))) | |
26543 | (if #{tmp 28838}# | |
014de9e2 | 26544 | (@apply |
78a47455 AW |
26545 | (lambda (#{step 28855}#) |
26546 | (let ((#{tmp 28857}# ($sc-dispatch #{e1 28835}# '()))) | |
26547 | (if #{tmp 28857}# | |
014de9e2 AW |
26548 | (@apply |
26549 | (lambda () | |
26550 | (list '#(syntax-object | |
26551 | let | |
26552 | ((top) | |
26553 | #(ribcage () () ()) | |
26554 | #(ribcage | |
26555 | #(step) | |
26556 | #((top)) | |
78a47455 | 26557 | #("i28793")) |
014de9e2 AW |
26558 | #(ribcage |
26559 | #(var init step e0 e1 c) | |
26560 | #((top) | |
26561 | (top) | |
26562 | (top) | |
26563 | (top) | |
26564 | (top) | |
26565 | (top)) | |
78a47455 AW |
26566 | #("i28778" |
26567 | "i28779" | |
26568 | "i28780" | |
26569 | "i28781" | |
26570 | "i28782" | |
26571 | "i28783")) | |
014de9e2 AW |
26572 | #(ribcage () () ()) |
26573 | #(ribcage | |
26574 | #(orig-x) | |
26575 | #((top)) | |
78a47455 | 26576 | #("i28775"))) |
014de9e2 AW |
26577 | (hygiene guile)) |
26578 | '#(syntax-object | |
26579 | doloop | |
26580 | ((top) | |
26581 | #(ribcage () () ()) | |
26582 | #(ribcage | |
26583 | #(step) | |
26584 | #((top)) | |
78a47455 | 26585 | #("i28793")) |
014de9e2 AW |
26586 | #(ribcage |
26587 | #(var init step e0 e1 c) | |
26588 | #((top) | |
26589 | (top) | |
26590 | (top) | |
26591 | (top) | |
26592 | (top) | |
26593 | (top)) | |
78a47455 AW |
26594 | #("i28778" |
26595 | "i28779" | |
26596 | "i28780" | |
26597 | "i28781" | |
26598 | "i28782" | |
26599 | "i28783")) | |
014de9e2 AW |
26600 | #(ribcage () () ()) |
26601 | #(ribcage | |
26602 | #(orig-x) | |
26603 | #((top)) | |
78a47455 | 26604 | #("i28775"))) |
014de9e2 | 26605 | (hygiene guile)) |
78a47455 | 26606 | (map list #{var 28831}# #{init 28832}#) |
014de9e2 AW |
26607 | (list '#(syntax-object |
26608 | if | |
26609 | ((top) | |
26610 | #(ribcage () () ()) | |
26611 | #(ribcage | |
26612 | #(step) | |
26613 | #((top)) | |
78a47455 | 26614 | #("i28793")) |
014de9e2 AW |
26615 | #(ribcage |
26616 | #(var init step e0 e1 c) | |
26617 | #((top) | |
26618 | (top) | |
26619 | (top) | |
26620 | (top) | |
26621 | (top) | |
26622 | (top)) | |
78a47455 AW |
26623 | #("i28778" |
26624 | "i28779" | |
26625 | "i28780" | |
26626 | "i28781" | |
26627 | "i28782" | |
26628 | "i28783")) | |
014de9e2 AW |
26629 | #(ribcage () () ()) |
26630 | #(ribcage | |
26631 | #(orig-x) | |
26632 | #((top)) | |
78a47455 | 26633 | #("i28775"))) |
014de9e2 AW |
26634 | (hygiene guile)) |
26635 | (list '#(syntax-object | |
26636 | not | |
0f550375 | 26637 | ((top) |
014de9e2 | 26638 | #(ribcage () () ()) |
df40b969 | 26639 | #(ribcage |
014de9e2 | 26640 | #(step) |
df40b969 | 26641 | #((top)) |
78a47455 | 26642 | #("i28793")) |
df40b969 | 26643 | #(ribcage |
014de9e2 AW |
26644 | #(var |
26645 | init | |
26646 | step | |
26647 | e0 | |
26648 | e1 | |
26649 | c) | |
26650 | #((top) | |
26651 | (top) | |
26652 | (top) | |
26653 | (top) | |
26654 | (top) | |
26655 | (top)) | |
78a47455 AW |
26656 | #("i28778" |
26657 | "i28779" | |
26658 | "i28780" | |
26659 | "i28781" | |
26660 | "i28782" | |
26661 | "i28783")) | |
df40b969 AW |
26662 | #(ribcage () () ()) |
26663 | #(ribcage | |
014de9e2 AW |
26664 | #(orig-x) |
26665 | #((top)) | |
78a47455 | 26666 | #("i28775"))) |
df40b969 | 26667 | (hygiene guile)) |
78a47455 | 26668 | #{e0 28834}#) |
014de9e2 AW |
26669 | (cons '#(syntax-object |
26670 | begin | |
0f550375 | 26671 | ((top) |
014de9e2 | 26672 | #(ribcage () () ()) |
df40b969 | 26673 | #(ribcage |
014de9e2 | 26674 | #(step) |
df40b969 | 26675 | #((top)) |
78a47455 | 26676 | #("i28793")) |
df40b969 | 26677 | #(ribcage |
014de9e2 AW |
26678 | #(var |
26679 | init | |
26680 | step | |
26681 | e0 | |
26682 | e1 | |
26683 | c) | |
26684 | #((top) | |
26685 | (top) | |
26686 | (top) | |
26687 | (top) | |
26688 | (top) | |
26689 | (top)) | |
78a47455 AW |
26690 | #("i28778" |
26691 | "i28779" | |
26692 | "i28780" | |
26693 | "i28781" | |
26694 | "i28782" | |
26695 | "i28783")) | |
df40b969 AW |
26696 | #(ribcage () () ()) |
26697 | #(ribcage | |
014de9e2 AW |
26698 | #(orig-x) |
26699 | #((top)) | |
78a47455 | 26700 | #("i28775"))) |
014de9e2 AW |
26701 | (hygiene guile)) |
26702 | (append | |
78a47455 | 26703 | #{c 28836}# |
014de9e2 AW |
26704 | (list (cons '#(syntax-object |
26705 | doloop | |
26706 | ((top) | |
26707 | #(ribcage | |
26708 | () | |
26709 | () | |
26710 | ()) | |
26711 | #(ribcage | |
26712 | #(step) | |
26713 | #((top)) | |
78a47455 | 26714 | #("i28793")) |
014de9e2 AW |
26715 | #(ribcage |
26716 | #(var | |
26717 | init | |
26718 | step | |
26719 | e0 | |
26720 | e1 | |
26721 | c) | |
26722 | #((top) | |
26723 | (top) | |
26724 | (top) | |
26725 | (top) | |
26726 | (top) | |
26727 | (top)) | |
78a47455 AW |
26728 | #("i28778" |
26729 | "i28779" | |
26730 | "i28780" | |
26731 | "i28781" | |
26732 | "i28782" | |
26733 | "i28783")) | |
014de9e2 AW |
26734 | #(ribcage |
26735 | () | |
26736 | () | |
26737 | ()) | |
26738 | #(ribcage | |
26739 | #(orig-x) | |
26740 | #((top)) | |
78a47455 | 26741 | #("i28775"))) |
014de9e2 AW |
26742 | (hygiene |
26743 | guile)) | |
78a47455 AW |
26744 | #{step 28855}#))))))) |
26745 | #{tmp 28857}#) | |
26746 | (let ((#{tmp 28861}# | |
014de9e2 | 26747 | ($sc-dispatch |
78a47455 | 26748 | #{e1 28835}# |
014de9e2 | 26749 | '(any . each-any)))) |
78a47455 | 26750 | (if #{tmp 28861}# |
014de9e2 | 26751 | (@apply |
78a47455 | 26752 | (lambda (#{e1 28865}# #{e2 28866}#) |
014de9e2 AW |
26753 | (list '#(syntax-object |
26754 | let | |
26755 | ((top) | |
26756 | #(ribcage | |
26757 | #(e1 e2) | |
26758 | #((top) (top)) | |
78a47455 | 26759 | #("i28802" "i28803")) |
014de9e2 AW |
26760 | #(ribcage () () ()) |
26761 | #(ribcage | |
26762 | #(step) | |
26763 | #((top)) | |
78a47455 | 26764 | #("i28793")) |
014de9e2 AW |
26765 | #(ribcage |
26766 | #(var init step e0 e1 c) | |
26767 | #((top) | |
26768 | (top) | |
26769 | (top) | |
26770 | (top) | |
26771 | (top) | |
26772 | (top)) | |
78a47455 AW |
26773 | #("i28778" |
26774 | "i28779" | |
26775 | "i28780" | |
26776 | "i28781" | |
26777 | "i28782" | |
26778 | "i28783")) | |
014de9e2 AW |
26779 | #(ribcage () () ()) |
26780 | #(ribcage | |
26781 | #(orig-x) | |
26782 | #((top)) | |
78a47455 | 26783 | #("i28775"))) |
014de9e2 AW |
26784 | (hygiene guile)) |
26785 | '#(syntax-object | |
26786 | doloop | |
26787 | ((top) | |
26788 | #(ribcage | |
26789 | #(e1 e2) | |
26790 | #((top) (top)) | |
78a47455 | 26791 | #("i28802" "i28803")) |
014de9e2 AW |
26792 | #(ribcage () () ()) |
26793 | #(ribcage | |
26794 | #(step) | |
26795 | #((top)) | |
78a47455 | 26796 | #("i28793")) |
014de9e2 AW |
26797 | #(ribcage |
26798 | #(var init step e0 e1 c) | |
26799 | #((top) | |
26800 | (top) | |
26801 | (top) | |
26802 | (top) | |
26803 | (top) | |
26804 | (top)) | |
78a47455 AW |
26805 | #("i28778" |
26806 | "i28779" | |
26807 | "i28780" | |
26808 | "i28781" | |
26809 | "i28782" | |
26810 | "i28783")) | |
014de9e2 AW |
26811 | #(ribcage () () ()) |
26812 | #(ribcage | |
26813 | #(orig-x) | |
26814 | #((top)) | |
78a47455 | 26815 | #("i28775"))) |
014de9e2 AW |
26816 | (hygiene guile)) |
26817 | (map list | |
78a47455 AW |
26818 | #{var 28831}# |
26819 | #{init 28832}#) | |
df40b969 | 26820 | (list '#(syntax-object |
014de9e2 | 26821 | if |
df40b969 AW |
26822 | ((top) |
26823 | #(ribcage | |
014de9e2 | 26824 | #(e1 e2) |
df40b969 | 26825 | #((top) (top)) |
78a47455 | 26826 | #("i28802" "i28803")) |
df40b969 AW |
26827 | #(ribcage () () ()) |
26828 | #(ribcage | |
014de9e2 AW |
26829 | #(step) |
26830 | #((top)) | |
78a47455 | 26831 | #("i28793")) |
df40b969 | 26832 | #(ribcage |
014de9e2 AW |
26833 | #(var init step e0 e1 c) |
26834 | #((top) | |
26835 | (top) | |
26836 | (top) | |
26837 | (top) | |
26838 | (top) | |
26839 | (top)) | |
78a47455 AW |
26840 | #("i28778" |
26841 | "i28779" | |
26842 | "i28780" | |
26843 | "i28781" | |
26844 | "i28782" | |
26845 | "i28783")) | |
014de9e2 AW |
26846 | #(ribcage () () ()) |
26847 | #(ribcage | |
26848 | #(orig-x) | |
26849 | #((top)) | |
78a47455 | 26850 | #("i28775"))) |
df40b969 | 26851 | (hygiene guile)) |
78a47455 | 26852 | #{e0 28834}# |
014de9e2 AW |
26853 | (cons '#(syntax-object |
26854 | begin | |
26855 | ((top) | |
26856 | #(ribcage | |
26857 | #(e1 e2) | |
26858 | #((top) (top)) | |
78a47455 AW |
26859 | #("i28802" |
26860 | "i28803")) | |
014de9e2 AW |
26861 | #(ribcage () () ()) |
26862 | #(ribcage | |
26863 | #(step) | |
26864 | #((top)) | |
78a47455 | 26865 | #("i28793")) |
014de9e2 AW |
26866 | #(ribcage |
26867 | #(var | |
26868 | init | |
26869 | step | |
26870 | e0 | |
26871 | e1 | |
26872 | c) | |
26873 | #((top) | |
26874 | (top) | |
26875 | (top) | |
26876 | (top) | |
26877 | (top) | |
26878 | (top)) | |
78a47455 AW |
26879 | #("i28778" |
26880 | "i28779" | |
26881 | "i28780" | |
26882 | "i28781" | |
26883 | "i28782" | |
26884 | "i28783")) | |
014de9e2 AW |
26885 | #(ribcage () () ()) |
26886 | #(ribcage | |
26887 | #(orig-x) | |
26888 | #((top)) | |
78a47455 | 26889 | #("i28775"))) |
014de9e2 | 26890 | (hygiene guile)) |
78a47455 AW |
26891 | (cons #{e1 28865}# |
26892 | #{e2 28866}#)) | |
014de9e2 AW |
26893 | (cons '#(syntax-object |
26894 | begin | |
26895 | ((top) | |
26896 | #(ribcage | |
26897 | #(e1 e2) | |
26898 | #((top) (top)) | |
78a47455 AW |
26899 | #("i28802" |
26900 | "i28803")) | |
014de9e2 AW |
26901 | #(ribcage () () ()) |
26902 | #(ribcage | |
26903 | #(step) | |
26904 | #((top)) | |
78a47455 | 26905 | #("i28793")) |
014de9e2 AW |
26906 | #(ribcage |
26907 | #(var | |
26908 | init | |
26909 | step | |
26910 | e0 | |
26911 | e1 | |
26912 | c) | |
26913 | #((top) | |
26914 | (top) | |
26915 | (top) | |
26916 | (top) | |
26917 | (top) | |
26918 | (top)) | |
78a47455 AW |
26919 | #("i28778" |
26920 | "i28779" | |
26921 | "i28780" | |
26922 | "i28781" | |
26923 | "i28782" | |
26924 | "i28783")) | |
014de9e2 AW |
26925 | #(ribcage () () ()) |
26926 | #(ribcage | |
26927 | #(orig-x) | |
26928 | #((top)) | |
78a47455 | 26929 | #("i28775"))) |
014de9e2 AW |
26930 | (hygiene guile)) |
26931 | (append | |
78a47455 | 26932 | #{c 28836}# |
014de9e2 AW |
26933 | (list (cons '#(syntax-object |
26934 | doloop | |
26935 | ((top) | |
26936 | #(ribcage | |
26937 | #(e1 | |
26938 | e2) | |
26939 | #((top) | |
26940 | (top)) | |
78a47455 AW |
26941 | #("i28802" |
26942 | "i28803")) | |
014de9e2 AW |
26943 | #(ribcage |
26944 | () | |
26945 | () | |
26946 | ()) | |
26947 | #(ribcage | |
26948 | #(step) | |
26949 | #((top)) | |
78a47455 | 26950 | #("i28793")) |
014de9e2 AW |
26951 | #(ribcage |
26952 | #(var | |
26953 | init | |
26954 | step | |
26955 | e0 | |
26956 | e1 | |
26957 | c) | |
26958 | #((top) | |
26959 | (top) | |
26960 | (top) | |
26961 | (top) | |
26962 | (top) | |
26963 | (top)) | |
78a47455 AW |
26964 | #("i28778" |
26965 | "i28779" | |
26966 | "i28780" | |
26967 | "i28781" | |
26968 | "i28782" | |
26969 | "i28783")) | |
014de9e2 AW |
26970 | #(ribcage |
26971 | () | |
26972 | () | |
26973 | ()) | |
26974 | #(ribcage | |
26975 | #(orig-x) | |
26976 | #((top)) | |
78a47455 | 26977 | #("i28775"))) |
014de9e2 AW |
26978 | (hygiene |
26979 | guile)) | |
78a47455 AW |
26980 | #{step 28855}#))))))) |
26981 | #{tmp 28861}#) | |
014de9e2 AW |
26982 | (syntax-violation |
26983 | #f | |
26984 | "source expression failed to match any pattern" | |
78a47455 AW |
26985 | #{e1 28835}#)))))) |
26986 | #{tmp 28838}#) | |
014de9e2 AW |
26987 | (syntax-violation |
26988 | #f | |
26989 | "source expression failed to match any pattern" | |
78a47455 AW |
26990 | #{tmp 28837}#))))) |
26991 | #{tmp 28827}#) | |
014de9e2 AW |
26992 | (syntax-violation |
26993 | #f | |
26994 | "source expression failed to match any pattern" | |
78a47455 | 26995 | #{orig-x 28825}#)))))) |
014de9e2 AW |
26996 | |
26997 | (define quasiquote | |
26998 | (make-syntax-transformer | |
26999 | 'quasiquote | |
27000 | 'macro | |
27001 | (letrec* | |
78a47455 AW |
27002 | ((#{quasi 29152}# |
27003 | (lambda (#{p 29176}# #{lev 29177}#) | |
27004 | (let ((#{tmp 29179}# | |
014de9e2 | 27005 | ($sc-dispatch |
78a47455 | 27006 | #{p 29176}# |
014de9e2 AW |
27007 | '(#(free-id |
27008 | #(syntax-object | |
27009 | unquote | |
27010 | ((top) | |
27011 | #(ribcage () () ()) | |
27012 | #(ribcage | |
27013 | #(p lev) | |
27014 | #((top) (top)) | |
78a47455 | 27015 | #("i28898" "i28899")) |
014de9e2 AW |
27016 | #(ribcage |
27017 | (emit quasivector | |
27018 | quasilist* | |
27019 | quasiappend | |
27020 | quasicons | |
27021 | vquasi | |
27022 | quasi) | |
27023 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27024 | ("i28894" |
27025 | "i28892" | |
27026 | "i28890" | |
27027 | "i28888" | |
27028 | "i28886" | |
27029 | "i28884" | |
27030 | "i28882"))) | |
014de9e2 AW |
27031 | (hygiene guile))) |
27032 | any)))) | |
78a47455 | 27033 | (if #{tmp 29179}# |
014de9e2 | 27034 | (@apply |
78a47455 AW |
27035 | (lambda (#{p 29183}#) |
27036 | (if (= #{lev 29177}# 0) | |
014de9e2 AW |
27037 | (list '#(syntax-object |
27038 | "value" | |
27039 | ((top) | |
78a47455 | 27040 | #(ribcage #(p) #((top)) #("i28902")) |
014de9e2 AW |
27041 | #(ribcage () () ()) |
27042 | #(ribcage | |
27043 | #(p lev) | |
27044 | #((top) (top)) | |
78a47455 | 27045 | #("i28898" "i28899")) |
014de9e2 AW |
27046 | #(ribcage |
27047 | (emit quasivector | |
27048 | quasilist* | |
27049 | quasiappend | |
27050 | quasicons | |
27051 | vquasi | |
27052 | quasi) | |
27053 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27054 | ("i28894" |
27055 | "i28892" | |
27056 | "i28890" | |
27057 | "i28888" | |
27058 | "i28886" | |
27059 | "i28884" | |
27060 | "i28882"))) | |
014de9e2 | 27061 | (hygiene guile)) |
78a47455 AW |
27062 | #{p 29183}#) |
27063 | (#{quasicons 29154}# | |
014de9e2 AW |
27064 | '(#(syntax-object |
27065 | "quote" | |
27066 | ((top) | |
78a47455 | 27067 | #(ribcage #(p) #((top)) #("i28902")) |
014de9e2 AW |
27068 | #(ribcage () () ()) |
27069 | #(ribcage | |
27070 | #(p lev) | |
27071 | #((top) (top)) | |
78a47455 | 27072 | #("i28898" "i28899")) |
014de9e2 AW |
27073 | #(ribcage |
27074 | (emit quasivector | |
27075 | quasilist* | |
27076 | quasiappend | |
27077 | quasicons | |
27078 | vquasi | |
27079 | quasi) | |
27080 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27081 | ("i28894" |
27082 | "i28892" | |
27083 | "i28890" | |
27084 | "i28888" | |
27085 | "i28886" | |
27086 | "i28884" | |
27087 | "i28882"))) | |
014de9e2 AW |
27088 | (hygiene guile)) |
27089 | #(syntax-object | |
27090 | unquote | |
27091 | ((top) | |
78a47455 | 27092 | #(ribcage #(p) #((top)) #("i28902")) |
014de9e2 AW |
27093 | #(ribcage () () ()) |
27094 | #(ribcage | |
27095 | #(p lev) | |
27096 | #((top) (top)) | |
78a47455 | 27097 | #("i28898" "i28899")) |
014de9e2 AW |
27098 | #(ribcage |
27099 | (emit quasivector | |
27100 | quasilist* | |
27101 | quasiappend | |
27102 | quasicons | |
27103 | vquasi | |
27104 | quasi) | |
27105 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27106 | ("i28894" |
27107 | "i28892" | |
27108 | "i28890" | |
27109 | "i28888" | |
27110 | "i28886" | |
27111 | "i28884" | |
27112 | "i28882"))) | |
014de9e2 | 27113 | (hygiene guile))) |
78a47455 AW |
27114 | (#{quasi 29152}# |
27115 | (list #{p 29183}#) | |
27116 | (#{1-}# #{lev 29177}#))))) | |
27117 | #{tmp 29179}#) | |
27118 | (let ((#{tmp 29186}# | |
014de9e2 | 27119 | ($sc-dispatch |
78a47455 | 27120 | #{p 29176}# |
014de9e2 AW |
27121 | '(#(free-id |
27122 | #(syntax-object | |
27123 | quasiquote | |
27124 | ((top) | |
27125 | #(ribcage () () ()) | |
27126 | #(ribcage | |
27127 | #(p lev) | |
27128 | #((top) (top)) | |
78a47455 | 27129 | #("i28898" "i28899")) |
014de9e2 AW |
27130 | #(ribcage |
27131 | (emit quasivector | |
27132 | quasilist* | |
27133 | quasiappend | |
27134 | quasicons | |
27135 | vquasi | |
27136 | quasi) | |
27137 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27138 | ("i28894" |
27139 | "i28892" | |
27140 | "i28890" | |
27141 | "i28888" | |
27142 | "i28886" | |
27143 | "i28884" | |
27144 | "i28882"))) | |
014de9e2 AW |
27145 | (hygiene guile))) |
27146 | any)))) | |
78a47455 | 27147 | (if #{tmp 29186}# |
014de9e2 | 27148 | (@apply |
78a47455 AW |
27149 | (lambda (#{p 29190}#) |
27150 | (#{quasicons 29154}# | |
014de9e2 AW |
27151 | '(#(syntax-object |
27152 | "quote" | |
27153 | ((top) | |
78a47455 | 27154 | #(ribcage #(p) #((top)) #("i28905")) |
014de9e2 AW |
27155 | #(ribcage () () ()) |
27156 | #(ribcage | |
27157 | #(p lev) | |
27158 | #((top) (top)) | |
78a47455 | 27159 | #("i28898" "i28899")) |
014de9e2 AW |
27160 | #(ribcage |
27161 | (emit quasivector | |
27162 | quasilist* | |
27163 | quasiappend | |
27164 | quasicons | |
27165 | vquasi | |
27166 | quasi) | |
27167 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27168 | ("i28894" |
27169 | "i28892" | |
27170 | "i28890" | |
27171 | "i28888" | |
27172 | "i28886" | |
27173 | "i28884" | |
27174 | "i28882"))) | |
014de9e2 AW |
27175 | (hygiene guile)) |
27176 | #(syntax-object | |
27177 | quasiquote | |
27178 | ((top) | |
78a47455 | 27179 | #(ribcage #(p) #((top)) #("i28905")) |
014de9e2 AW |
27180 | #(ribcage () () ()) |
27181 | #(ribcage | |
27182 | #(p lev) | |
27183 | #((top) (top)) | |
78a47455 | 27184 | #("i28898" "i28899")) |
014de9e2 AW |
27185 | #(ribcage |
27186 | (emit quasivector | |
27187 | quasilist* | |
27188 | quasiappend | |
27189 | quasicons | |
27190 | vquasi | |
27191 | quasi) | |
27192 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
27193 | ("i28894" |
27194 | "i28892" | |
27195 | "i28890" | |
27196 | "i28888" | |
27197 | "i28886" | |
27198 | "i28884" | |
27199 | "i28882"))) | |
014de9e2 | 27200 | (hygiene guile))) |
78a47455 AW |
27201 | (#{quasi 29152}# |
27202 | (list #{p 29190}#) | |
27203 | (#{1+}# #{lev 29177}#)))) | |
27204 | #{tmp 29186}#) | |
27205 | (let ((#{tmp 29193}# | |
27206 | ($sc-dispatch #{p 29176}# '(any . any)))) | |
27207 | (if #{tmp 29193}# | |
014de9e2 | 27208 | (@apply |
78a47455 AW |
27209 | (lambda (#{p 29197}# #{q 29198}#) |
27210 | (let ((#{tmp 29200}# | |
014de9e2 | 27211 | ($sc-dispatch |
78a47455 | 27212 | #{p 29197}# |
014de9e2 AW |
27213 | '(#(free-id |
27214 | #(syntax-object | |
27215 | unquote | |
27216 | ((top) | |
27217 | #(ribcage | |
27218 | #(p q) | |
27219 | #((top) (top)) | |
78a47455 | 27220 | #("i28908" "i28909")) |
014de9e2 AW |
27221 | #(ribcage () () ()) |
27222 | #(ribcage | |
27223 | #(p lev) | |
27224 | #((top) (top)) | |
78a47455 | 27225 | #("i28898" "i28899")) |
014de9e2 AW |
27226 | #(ribcage |
27227 | (emit quasivector | |
27228 | quasilist* | |
27229 | quasiappend | |
27230 | quasicons | |
27231 | vquasi | |
27232 | quasi) | |
27233 | ((top) | |
27234 | (top) | |
27235 | (top) | |
27236 | (top) | |
27237 | (top) | |
27238 | (top) | |
27239 | (top)) | |
78a47455 AW |
27240 | ("i28894" |
27241 | "i28892" | |
27242 | "i28890" | |
27243 | "i28888" | |
27244 | "i28886" | |
27245 | "i28884" | |
27246 | "i28882"))) | |
014de9e2 AW |
27247 | (hygiene guile))) |
27248 | . | |
27249 | each-any)))) | |
78a47455 | 27250 | (if #{tmp 29200}# |
014de9e2 | 27251 | (@apply |
78a47455 AW |
27252 | (lambda (#{p 29204}#) |
27253 | (if (= #{lev 29177}# 0) | |
27254 | (#{quasilist* 29156}# | |
27255 | (map (lambda (#{tmp 28916 29240}#) | |
014de9e2 AW |
27256 | (list '#(syntax-object |
27257 | "value" | |
27258 | ((top) | |
27259 | #(ribcage | |
27260 | #(p) | |
27261 | #((top)) | |
78a47455 | 27262 | #("i28914")) |
014de9e2 AW |
27263 | #(ribcage |
27264 | #(p q) | |
27265 | #((top) (top)) | |
78a47455 | 27266 | #("i28908" "i28909")) |
014de9e2 AW |
27267 | #(ribcage () () ()) |
27268 | #(ribcage | |
27269 | #(p lev) | |
27270 | #((top) (top)) | |
78a47455 | 27271 | #("i28898" "i28899")) |
014de9e2 AW |
27272 | #(ribcage |
27273 | (emit quasivector | |
27274 | quasilist* | |
27275 | quasiappend | |
27276 | quasicons | |
27277 | vquasi | |
27278 | quasi) | |
27279 | ((top) | |
27280 | (top) | |
27281 | (top) | |
27282 | (top) | |
27283 | (top) | |
27284 | (top) | |
27285 | (top)) | |
78a47455 AW |
27286 | ("i28894" |
27287 | "i28892" | |
27288 | "i28890" | |
27289 | "i28888" | |
27290 | "i28886" | |
27291 | "i28884" | |
27292 | "i28882"))) | |
014de9e2 | 27293 | (hygiene guile)) |
78a47455 AW |
27294 | #{tmp 28916 29240}#)) |
27295 | #{p 29204}#) | |
27296 | (#{quasi 29152}# | |
27297 | #{q 29198}# | |
27298 | #{lev 29177}#)) | |
27299 | (#{quasicons 29154}# | |
27300 | (#{quasicons 29154}# | |
014de9e2 AW |
27301 | '(#(syntax-object |
27302 | "quote" | |
27303 | ((top) | |
27304 | #(ribcage | |
27305 | #(p) | |
27306 | #((top)) | |
78a47455 | 27307 | #("i28914")) |
014de9e2 AW |
27308 | #(ribcage |
27309 | #(p q) | |
27310 | #((top) (top)) | |
78a47455 | 27311 | #("i28908" "i28909")) |
014de9e2 AW |
27312 | #(ribcage () () ()) |
27313 | #(ribcage | |
27314 | #(p lev) | |
27315 | #((top) (top)) | |
78a47455 | 27316 | #("i28898" "i28899")) |
014de9e2 AW |
27317 | #(ribcage |
27318 | (emit quasivector | |
27319 | quasilist* | |
27320 | quasiappend | |
27321 | quasicons | |
27322 | vquasi | |
27323 | quasi) | |
27324 | ((top) | |
27325 | (top) | |
27326 | (top) | |
27327 | (top) | |
27328 | (top) | |
27329 | (top) | |
27330 | (top)) | |
78a47455 AW |
27331 | ("i28894" |
27332 | "i28892" | |
27333 | "i28890" | |
27334 | "i28888" | |
27335 | "i28886" | |
27336 | "i28884" | |
27337 | "i28882"))) | |
014de9e2 | 27338 | (hygiene guile)) |
df40b969 | 27339 | #(syntax-object |
014de9e2 | 27340 | unquote |
df40b969 | 27341 | ((top) |
014de9e2 AW |
27342 | #(ribcage |
27343 | #(p) | |
27344 | #((top)) | |
78a47455 | 27345 | #("i28914")) |
df40b969 AW |
27346 | #(ribcage |
27347 | #(p q) | |
27348 | #((top) (top)) | |
78a47455 | 27349 | #("i28908" "i28909")) |
df40b969 AW |
27350 | #(ribcage () () ()) |
27351 | #(ribcage | |
27352 | #(p lev) | |
27353 | #((top) (top)) | |
78a47455 | 27354 | #("i28898" "i28899")) |
df40b969 AW |
27355 | #(ribcage |
27356 | (emit quasivector | |
27357 | quasilist* | |
27358 | quasiappend | |
27359 | quasicons | |
27360 | vquasi | |
27361 | quasi) | |
27362 | ((top) | |
27363 | (top) | |
27364 | (top) | |
27365 | (top) | |
27366 | (top) | |
27367 | (top) | |
27368 | (top)) | |
78a47455 AW |
27369 | ("i28894" |
27370 | "i28892" | |
27371 | "i28890" | |
27372 | "i28888" | |
27373 | "i28886" | |
27374 | "i28884" | |
27375 | "i28882"))) | |
df40b969 | 27376 | (hygiene guile))) |
78a47455 AW |
27377 | (#{quasi 29152}# |
27378 | #{p 29204}# | |
27379 | (#{1-}# #{lev 29177}#))) | |
27380 | (#{quasi 29152}# | |
27381 | #{q 29198}# | |
27382 | #{lev 29177}#)))) | |
27383 | #{tmp 29200}#) | |
27384 | (let ((#{tmp 29245}# | |
014de9e2 | 27385 | ($sc-dispatch |
78a47455 | 27386 | #{p 29197}# |
014de9e2 | 27387 | '(#(free-id |
df40b969 AW |
27388 | #(syntax-object |
27389 | unquote-splicing | |
27390 | ((top) | |
df40b969 AW |
27391 | #(ribcage |
27392 | #(p q) | |
27393 | #((top) (top)) | |
78a47455 | 27394 | #("i28908" "i28909")) |
df40b969 AW |
27395 | #(ribcage () () ()) |
27396 | #(ribcage | |
27397 | #(p lev) | |
27398 | #((top) (top)) | |
78a47455 | 27399 | #("i28898" "i28899")) |
df40b969 AW |
27400 | #(ribcage |
27401 | (emit quasivector | |
27402 | quasilist* | |
27403 | quasiappend | |
27404 | quasicons | |
27405 | vquasi | |
27406 | quasi) | |
27407 | ((top) | |
27408 | (top) | |
27409 | (top) | |
014de9e2 AW |
27410 | (top) |
27411 | (top) | |
27412 | (top) | |
27413 | (top)) | |
78a47455 AW |
27414 | ("i28894" |
27415 | "i28892" | |
27416 | "i28890" | |
27417 | "i28888" | |
27418 | "i28886" | |
27419 | "i28884" | |
27420 | "i28882"))) | |
014de9e2 AW |
27421 | (hygiene guile))) |
27422 | . | |
27423 | each-any)))) | |
78a47455 | 27424 | (if #{tmp 29245}# |
014de9e2 | 27425 | (@apply |
78a47455 AW |
27426 | (lambda (#{p 29249}#) |
27427 | (if (= #{lev 29177}# 0) | |
27428 | (#{quasiappend 29155}# | |
27429 | (map (lambda (#{tmp 28921 29252}#) | |
014de9e2 AW |
27430 | (list '#(syntax-object |
27431 | "value" | |
27432 | ((top) | |
27433 | #(ribcage | |
27434 | #(p) | |
27435 | #((top)) | |
78a47455 | 27436 | #("i28919")) |
014de9e2 AW |
27437 | #(ribcage |
27438 | #(p q) | |
27439 | #((top) (top)) | |
78a47455 AW |
27440 | #("i28908" |
27441 | "i28909")) | |
014de9e2 AW |
27442 | #(ribcage () () ()) |
27443 | #(ribcage | |
27444 | #(p lev) | |
27445 | #((top) (top)) | |
78a47455 AW |
27446 | #("i28898" |
27447 | "i28899")) | |
014de9e2 AW |
27448 | #(ribcage |
27449 | (emit quasivector | |
27450 | quasilist* | |
27451 | quasiappend | |
27452 | quasicons | |
27453 | vquasi | |
27454 | quasi) | |
27455 | ((top) | |
27456 | (top) | |
27457 | (top) | |
27458 | (top) | |
27459 | (top) | |
27460 | (top) | |
27461 | (top)) | |
78a47455 AW |
27462 | ("i28894" |
27463 | "i28892" | |
27464 | "i28890" | |
27465 | "i28888" | |
27466 | "i28886" | |
27467 | "i28884" | |
27468 | "i28882"))) | |
014de9e2 | 27469 | (hygiene guile)) |
78a47455 AW |
27470 | #{tmp 28921 29252}#)) |
27471 | #{p 29249}#) | |
27472 | (#{quasi 29152}# | |
27473 | #{q 29198}# | |
27474 | #{lev 29177}#)) | |
27475 | (#{quasicons 29154}# | |
27476 | (#{quasicons 29154}# | |
014de9e2 AW |
27477 | '(#(syntax-object |
27478 | "quote" | |
27479 | ((top) | |
27480 | #(ribcage | |
27481 | #(p) | |
27482 | #((top)) | |
78a47455 | 27483 | #("i28919")) |
014de9e2 AW |
27484 | #(ribcage |
27485 | #(p q) | |
27486 | #((top) (top)) | |
78a47455 | 27487 | #("i28908" "i28909")) |
014de9e2 AW |
27488 | #(ribcage () () ()) |
27489 | #(ribcage | |
27490 | #(p lev) | |
27491 | #((top) (top)) | |
78a47455 | 27492 | #("i28898" "i28899")) |
014de9e2 AW |
27493 | #(ribcage |
27494 | (emit quasivector | |
27495 | quasilist* | |
27496 | quasiappend | |
27497 | quasicons | |
27498 | vquasi | |
27499 | quasi) | |
df40b969 | 27500 | ((top) |
014de9e2 AW |
27501 | (top) |
27502 | (top) | |
27503 | (top) | |
27504 | (top) | |
27505 | (top) | |
27506 | (top)) | |
78a47455 AW |
27507 | ("i28894" |
27508 | "i28892" | |
27509 | "i28890" | |
27510 | "i28888" | |
27511 | "i28886" | |
27512 | "i28884" | |
27513 | "i28882"))) | |
014de9e2 AW |
27514 | (hygiene guile)) |
27515 | #(syntax-object | |
27516 | unquote-splicing | |
27517 | ((top) | |
27518 | #(ribcage | |
27519 | #(p) | |
27520 | #((top)) | |
78a47455 | 27521 | #("i28919")) |
014de9e2 AW |
27522 | #(ribcage |
27523 | #(p q) | |
27524 | #((top) (top)) | |
78a47455 | 27525 | #("i28908" "i28909")) |
014de9e2 AW |
27526 | #(ribcage () () ()) |
27527 | #(ribcage | |
27528 | #(p lev) | |
27529 | #((top) (top)) | |
78a47455 | 27530 | #("i28898" "i28899")) |
014de9e2 AW |
27531 | #(ribcage |
27532 | (emit quasivector | |
27533 | quasilist* | |
27534 | quasiappend | |
27535 | quasicons | |
27536 | vquasi | |
27537 | quasi) | |
27538 | ((top) | |
27539 | (top) | |
27540 | (top) | |
27541 | (top) | |
27542 | (top) | |
27543 | (top) | |
27544 | (top)) | |
78a47455 AW |
27545 | ("i28894" |
27546 | "i28892" | |
27547 | "i28890" | |
27548 | "i28888" | |
27549 | "i28886" | |
27550 | "i28884" | |
27551 | "i28882"))) | |
014de9e2 | 27552 | (hygiene guile))) |
78a47455 AW |
27553 | (#{quasi 29152}# |
27554 | #{p 29249}# | |
27555 | (#{1-}# #{lev 29177}#))) | |
27556 | (#{quasi 29152}# | |
27557 | #{q 29198}# | |
27558 | #{lev 29177}#)))) | |
27559 | #{tmp 29245}#) | |
27560 | (#{quasicons 29154}# | |
27561 | (#{quasi 29152}# | |
27562 | #{p 29197}# | |
27563 | #{lev 29177}#) | |
27564 | (#{quasi 29152}# | |
27565 | #{q 29198}# | |
27566 | #{lev 29177}#))))))) | |
27567 | #{tmp 29193}#) | |
27568 | (let ((#{tmp 29266}# | |
27569 | ($sc-dispatch #{p 29176}# '#(vector each-any)))) | |
27570 | (if #{tmp 29266}# | |
014de9e2 | 27571 | (@apply |
78a47455 AW |
27572 | (lambda (#{x 29270}#) |
27573 | (let ((#{x 29273}# | |
27574 | (#{vquasi 29153}# | |
27575 | #{x 29270}# | |
27576 | #{lev 29177}#))) | |
27577 | (let ((#{tmp 29275}# | |
34c5fe83 | 27578 | ($sc-dispatch |
78a47455 | 27579 | #{x 29273}# |
34c5fe83 | 27580 | '(#(atom "quote") each-any)))) |
78a47455 | 27581 | (if #{tmp 29275}# |
34c5fe83 | 27582 | (@apply |
78a47455 | 27583 | (lambda (#{x 29279}#) |
34c5fe83 AW |
27584 | (list '#(syntax-object |
27585 | "quote" | |
27586 | ((top) | |
27587 | #(ribcage | |
27588 | #(x) | |
27589 | #((top)) | |
78a47455 | 27590 | #("i29026")) |
34c5fe83 AW |
27591 | #(ribcage () () ()) |
27592 | #(ribcage | |
27593 | #(x) | |
27594 | #((top)) | |
78a47455 | 27595 | #("i29023")) |
34c5fe83 AW |
27596 | #(ribcage |
27597 | (emit quasivector | |
27598 | quasilist* | |
27599 | quasiappend | |
27600 | quasicons | |
27601 | vquasi | |
27602 | quasi) | |
27603 | ((top) | |
27604 | (top) | |
27605 | (top) | |
27606 | (top) | |
27607 | (top) | |
27608 | (top) | |
27609 | (top)) | |
78a47455 AW |
27610 | ("i28894" |
27611 | "i28892" | |
27612 | "i28890" | |
27613 | "i28888" | |
27614 | "i28886" | |
27615 | "i28884" | |
27616 | "i28882"))) | |
34c5fe83 | 27617 | (hygiene guile)) |
78a47455 AW |
27618 | (list->vector #{x 29279}#))) |
27619 | #{tmp 29275}#) | |
34c5fe83 | 27620 | (letrec* |
78a47455 AW |
27621 | ((#{f 29281}# |
27622 | (lambda (#{y 29293}# #{k 29294}#) | |
27623 | (let ((#{tmp 29296}# | |
34c5fe83 | 27624 | ($sc-dispatch |
78a47455 | 27625 | #{y 29293}# |
34c5fe83 AW |
27626 | '(#(atom "quote") |
27627 | each-any)))) | |
78a47455 | 27628 | (if #{tmp 29296}# |
34c5fe83 | 27629 | (@apply |
78a47455 AW |
27630 | (lambda (#{y 29299}#) |
27631 | (#{k 29294}# | |
27632 | (map (lambda (#{tmp 29051 29300}#) | |
34c5fe83 AW |
27633 | (list '#(syntax-object |
27634 | "quote" | |
27635 | ((top) | |
27636 | #(ribcage | |
27637 | #(y) | |
27638 | #((top)) | |
78a47455 | 27639 | #("i29049")) |
34c5fe83 AW |
27640 | #(ribcage |
27641 | () | |
27642 | () | |
27643 | ()) | |
27644 | #(ribcage | |
27645 | #(f | |
27646 | y | |
27647 | k) | |
27648 | #((top) | |
27649 | (top) | |
27650 | (top)) | |
78a47455 AW |
27651 | #("i29031" |
27652 | "i29032" | |
27653 | "i29033")) | |
34c5fe83 AW |
27654 | #(ribcage |
27655 | #(_) | |
27656 | #((top)) | |
78a47455 | 27657 | #("i29029")) |
34c5fe83 AW |
27658 | #(ribcage |
27659 | () | |
27660 | () | |
27661 | ()) | |
27662 | #(ribcage | |
27663 | #(x) | |
27664 | #((top)) | |
78a47455 | 27665 | #("i29023")) |
34c5fe83 AW |
27666 | #(ribcage |
27667 | (emit quasivector | |
27668 | quasilist* | |
27669 | quasiappend | |
27670 | quasicons | |
27671 | vquasi | |
27672 | quasi) | |
27673 | ((top) | |
27674 | (top) | |
27675 | (top) | |
27676 | (top) | |
27677 | (top) | |
27678 | (top) | |
27679 | (top)) | |
78a47455 AW |
27680 | ("i28894" |
27681 | "i28892" | |
27682 | "i28890" | |
27683 | "i28888" | |
27684 | "i28886" | |
27685 | "i28884" | |
27686 | "i28882"))) | |
34c5fe83 AW |
27687 | (hygiene |
27688 | guile)) | |
78a47455 AW |
27689 | #{tmp 29051 29300}#)) |
27690 | #{y 29299}#))) | |
27691 | #{tmp 29296}#) | |
27692 | (let ((#{tmp 29301}# | |
34c5fe83 | 27693 | ($sc-dispatch |
78a47455 | 27694 | #{y 29293}# |
34c5fe83 AW |
27695 | '(#(atom "list") |
27696 | . | |
27697 | each-any)))) | |
78a47455 | 27698 | (if #{tmp 29301}# |
34c5fe83 | 27699 | (@apply |
78a47455 AW |
27700 | (lambda (#{y 29304}#) |
27701 | (#{k 29294}# | |
27702 | #{y 29304}#)) | |
27703 | #{tmp 29301}#) | |
27704 | (let ((#{tmp 29305}# | |
34c5fe83 | 27705 | ($sc-dispatch |
78a47455 | 27706 | #{y 29293}# |
34c5fe83 AW |
27707 | '(#(atom "list*") |
27708 | . | |
27709 | #(each+ | |
27710 | any | |
27711 | (any) | |
27712 | ()))))) | |
78a47455 | 27713 | (if #{tmp 29305}# |
34c5fe83 | 27714 | (@apply |
78a47455 AW |
27715 | (lambda (#{y 29308}# |
27716 | #{z 29309}#) | |
27717 | (#{f 29281}# | |
27718 | #{z 29309}# | |
27719 | (lambda (#{ls 29310}#) | |
27720 | (#{k 29294}# | |
34c5fe83 | 27721 | (append |
78a47455 AW |
27722 | #{y 29308}# |
27723 | #{ls 29310}#))))) | |
27724 | #{tmp 29305}#) | |
34c5fe83 AW |
27725 | (list '#(syntax-object |
27726 | "list->vector" | |
27727 | ((top) | |
27728 | #(ribcage | |
27729 | () | |
27730 | () | |
27731 | ()) | |
27732 | #(ribcage | |
78a47455 AW |
27733 | #(#{ g29066}#) |
27734 | #((m29067 | |
34c5fe83 | 27735 | top)) |
78a47455 | 27736 | #("i29070")) |
34c5fe83 AW |
27737 | #(ribcage |
27738 | #(else) | |
27739 | #((top)) | |
78a47455 | 27740 | #("i29064")) |
34c5fe83 AW |
27741 | #(ribcage |
27742 | () | |
27743 | () | |
27744 | ()) | |
27745 | #(ribcage | |
27746 | #(f y k) | |
27747 | #((top) | |
27748 | (top) | |
27749 | (top)) | |
78a47455 AW |
27750 | #("i29031" |
27751 | "i29032" | |
27752 | "i29033")) | |
34c5fe83 AW |
27753 | #(ribcage |
27754 | #(_) | |
27755 | #((top)) | |
78a47455 | 27756 | #("i29029")) |
34c5fe83 AW |
27757 | #(ribcage |
27758 | () | |
27759 | () | |
27760 | ()) | |
27761 | #(ribcage | |
27762 | #(x) | |
27763 | #((top)) | |
78a47455 | 27764 | #("i29023")) |
34c5fe83 AW |
27765 | #(ribcage |
27766 | (emit quasivector | |
27767 | quasilist* | |
27768 | quasiappend | |
27769 | quasicons | |
27770 | vquasi | |
27771 | quasi) | |
27772 | ((top) | |
27773 | (top) | |
27774 | (top) | |
27775 | (top) | |
27776 | (top) | |
27777 | (top) | |
27778 | (top)) | |
78a47455 AW |
27779 | ("i28894" |
27780 | "i28892" | |
27781 | "i28890" | |
27782 | "i28888" | |
27783 | "i28886" | |
27784 | "i28884" | |
27785 | "i28882"))) | |
34c5fe83 AW |
27786 | (hygiene |
27787 | guile)) | |
78a47455 AW |
27788 | #{x 29273}#)))))))))) |
27789 | (#{f 29281}# | |
27790 | #{x 29273}# | |
27791 | (lambda (#{ls 29283}#) | |
27792 | (let ((#{tmp 29285}# | |
34c5fe83 | 27793 | ($sc-dispatch |
78a47455 | 27794 | #{ls 29283}# |
34c5fe83 | 27795 | 'each-any))) |
78a47455 | 27796 | (if #{tmp 29285}# |
34c5fe83 | 27797 | (@apply |
78a47455 | 27798 | (lambda (#{ g29039 29288}#) |
34c5fe83 AW |
27799 | (cons '#(syntax-object |
27800 | "vector" | |
27801 | ((top) | |
27802 | #(ribcage | |
27803 | () | |
27804 | () | |
27805 | ()) | |
27806 | #(ribcage | |
78a47455 AW |
27807 | #(#{ g29039}#) |
27808 | #((m29040 top)) | |
27809 | #("i29044")) | |
34c5fe83 AW |
27810 | #(ribcage |
27811 | () | |
27812 | () | |
27813 | ()) | |
27814 | #(ribcage | |
27815 | () | |
27816 | () | |
27817 | ()) | |
27818 | #(ribcage | |
27819 | () | |
27820 | () | |
27821 | ()) | |
27822 | #(ribcage | |
27823 | #(ls) | |
27824 | #((top)) | |
78a47455 | 27825 | #("i29038")) |
34c5fe83 AW |
27826 | #(ribcage |
27827 | #(_) | |
27828 | #((top)) | |
78a47455 | 27829 | #("i29029")) |
34c5fe83 AW |
27830 | #(ribcage |
27831 | () | |
27832 | () | |
27833 | ()) | |
27834 | #(ribcage | |
27835 | #(x) | |
27836 | #((top)) | |
78a47455 | 27837 | #("i29023")) |
34c5fe83 AW |
27838 | #(ribcage |
27839 | (emit quasivector | |
27840 | quasilist* | |
27841 | quasiappend | |
27842 | quasicons | |
27843 | vquasi | |
27844 | quasi) | |
27845 | ((top) | |
27846 | (top) | |
27847 | (top) | |
27848 | (top) | |
27849 | (top) | |
27850 | (top) | |
27851 | (top)) | |
78a47455 AW |
27852 | ("i28894" |
27853 | "i28892" | |
27854 | "i28890" | |
27855 | "i28888" | |
27856 | "i28886" | |
27857 | "i28884" | |
27858 | "i28882"))) | |
34c5fe83 | 27859 | (hygiene guile)) |
78a47455 AW |
27860 | #{ g29039 29288}#)) |
27861 | #{tmp 29285}#) | |
34c5fe83 AW |
27862 | (syntax-violation |
27863 | #f | |
27864 | "source expression failed to match any pattern" | |
78a47455 AW |
27865 | #{ls 29283}#)))))))))) |
27866 | #{tmp 29266}#) | |
014de9e2 AW |
27867 | (list '#(syntax-object |
27868 | "quote" | |
27869 | ((top) | |
78a47455 | 27870 | #(ribcage #(p) #((top)) #("i28929")) |
014de9e2 AW |
27871 | #(ribcage () () ()) |
27872 | #(ribcage | |
27873 | #(p lev) | |
27874 | #((top) (top)) | |
78a47455 | 27875 | #("i28898" "i28899")) |
014de9e2 AW |
27876 | #(ribcage |
27877 | (emit quasivector | |
27878 | quasilist* | |
27879 | quasiappend | |
27880 | quasicons | |
27881 | vquasi | |
27882 | quasi) | |
27883 | ((top) | |
27884 | (top) | |
27885 | (top) | |
27886 | (top) | |
27887 | (top) | |
27888 | (top) | |
27889 | (top)) | |
78a47455 AW |
27890 | ("i28894" |
27891 | "i28892" | |
27892 | "i28890" | |
27893 | "i28888" | |
27894 | "i28886" | |
27895 | "i28884" | |
27896 | "i28882"))) | |
014de9e2 | 27897 | (hygiene guile)) |
78a47455 AW |
27898 | #{p 29176}#))))))))))) |
27899 | (#{vquasi 29153}# | |
27900 | (lambda (#{p 29338}# #{lev 29339}#) | |
27901 | (let ((#{tmp 29341}# | |
27902 | ($sc-dispatch #{p 29338}# '(any . any)))) | |
27903 | (if #{tmp 29341}# | |
014de9e2 | 27904 | (@apply |
78a47455 AW |
27905 | (lambda (#{p 29345}# #{q 29346}#) |
27906 | (let ((#{tmp 29348}# | |
014de9e2 | 27907 | ($sc-dispatch |
78a47455 | 27908 | #{p 29345}# |
014de9e2 AW |
27909 | '(#(free-id |
27910 | #(syntax-object | |
27911 | unquote | |
27912 | ((top) | |
27913 | #(ribcage | |
27914 | #(p q) | |
27915 | #((top) (top)) | |
78a47455 | 27916 | #("i28937" "i28938")) |
014de9e2 AW |
27917 | #(ribcage () () ()) |
27918 | #(ribcage | |
27919 | #(p lev) | |
27920 | #((top) (top)) | |
78a47455 | 27921 | #("i28933" "i28934")) |
014de9e2 AW |
27922 | #(ribcage |
27923 | (emit quasivector | |
27924 | quasilist* | |
27925 | quasiappend | |
27926 | quasicons | |
27927 | vquasi | |
27928 | quasi) | |
27929 | ((top) | |
27930 | (top) | |
27931 | (top) | |
27932 | (top) | |
27933 | (top) | |
27934 | (top) | |
27935 | (top)) | |
78a47455 AW |
27936 | ("i28894" |
27937 | "i28892" | |
27938 | "i28890" | |
27939 | "i28888" | |
27940 | "i28886" | |
27941 | "i28884" | |
27942 | "i28882"))) | |
014de9e2 AW |
27943 | (hygiene guile))) |
27944 | . | |
27945 | each-any)))) | |
78a47455 | 27946 | (if #{tmp 29348}# |
014de9e2 | 27947 | (@apply |
78a47455 AW |
27948 | (lambda (#{p 29352}#) |
27949 | (if (= #{lev 29339}# 0) | |
27950 | (#{quasilist* 29156}# | |
27951 | (map (lambda (#{tmp 28945 29388}#) | |
014de9e2 AW |
27952 | (list '#(syntax-object |
27953 | "value" | |
27954 | ((top) | |
27955 | #(ribcage | |
27956 | #(p) | |
27957 | #((top)) | |
78a47455 | 27958 | #("i28943")) |
014de9e2 AW |
27959 | #(ribcage |
27960 | #(p q) | |
27961 | #((top) (top)) | |
78a47455 | 27962 | #("i28937" "i28938")) |
014de9e2 AW |
27963 | #(ribcage () () ()) |
27964 | #(ribcage | |
27965 | #(p lev) | |
27966 | #((top) (top)) | |
78a47455 | 27967 | #("i28933" "i28934")) |
014de9e2 AW |
27968 | #(ribcage |
27969 | (emit quasivector | |
27970 | quasilist* | |
27971 | quasiappend | |
27972 | quasicons | |
27973 | vquasi | |
27974 | quasi) | |
27975 | ((top) | |
27976 | (top) | |
27977 | (top) | |
27978 | (top) | |
27979 | (top) | |
27980 | (top) | |
27981 | (top)) | |
78a47455 AW |
27982 | ("i28894" |
27983 | "i28892" | |
27984 | "i28890" | |
27985 | "i28888" | |
27986 | "i28886" | |
27987 | "i28884" | |
27988 | "i28882"))) | |
014de9e2 | 27989 | (hygiene guile)) |
78a47455 AW |
27990 | #{tmp 28945 29388}#)) |
27991 | #{p 29352}#) | |
27992 | (#{vquasi 29153}# #{q 29346}# #{lev 29339}#)) | |
27993 | (#{quasicons 29154}# | |
27994 | (#{quasicons 29154}# | |
014de9e2 AW |
27995 | '(#(syntax-object |
27996 | "quote" | |
27997 | ((top) | |
78a47455 | 27998 | #(ribcage #(p) #((top)) #("i28943")) |
014de9e2 AW |
27999 | #(ribcage |
28000 | #(p q) | |
28001 | #((top) (top)) | |
78a47455 | 28002 | #("i28937" "i28938")) |
014de9e2 AW |
28003 | #(ribcage () () ()) |
28004 | #(ribcage | |
28005 | #(p lev) | |
28006 | #((top) (top)) | |
78a47455 | 28007 | #("i28933" "i28934")) |
014de9e2 AW |
28008 | #(ribcage |
28009 | (emit quasivector | |
28010 | quasilist* | |
28011 | quasiappend | |
28012 | quasicons | |
28013 | vquasi | |
28014 | quasi) | |
28015 | ((top) | |
28016 | (top) | |
28017 | (top) | |
28018 | (top) | |
28019 | (top) | |
28020 | (top) | |
28021 | (top)) | |
78a47455 AW |
28022 | ("i28894" |
28023 | "i28892" | |
28024 | "i28890" | |
28025 | "i28888" | |
28026 | "i28886" | |
28027 | "i28884" | |
28028 | "i28882"))) | |
014de9e2 AW |
28029 | (hygiene guile)) |
28030 | #(syntax-object | |
28031 | unquote | |
28032 | ((top) | |
78a47455 | 28033 | #(ribcage #(p) #((top)) #("i28943")) |
014de9e2 AW |
28034 | #(ribcage |
28035 | #(p q) | |
28036 | #((top) (top)) | |
78a47455 | 28037 | #("i28937" "i28938")) |
014de9e2 AW |
28038 | #(ribcage () () ()) |
28039 | #(ribcage | |
28040 | #(p lev) | |
28041 | #((top) (top)) | |
78a47455 | 28042 | #("i28933" "i28934")) |
014de9e2 AW |
28043 | #(ribcage |
28044 | (emit quasivector | |
28045 | quasilist* | |
28046 | quasiappend | |
28047 | quasicons | |
28048 | vquasi | |
28049 | quasi) | |
28050 | ((top) | |
28051 | (top) | |
28052 | (top) | |
28053 | (top) | |
28054 | (top) | |
28055 | (top) | |
28056 | (top)) | |
78a47455 AW |
28057 | ("i28894" |
28058 | "i28892" | |
28059 | "i28890" | |
28060 | "i28888" | |
28061 | "i28886" | |
28062 | "i28884" | |
28063 | "i28882"))) | |
014de9e2 | 28064 | (hygiene guile))) |
78a47455 AW |
28065 | (#{quasi 29152}# |
28066 | #{p 29352}# | |
28067 | (#{1-}# #{lev 29339}#))) | |
28068 | (#{vquasi 29153}# #{q 29346}# #{lev 29339}#)))) | |
28069 | #{tmp 29348}#) | |
28070 | (let ((#{tmp 29395}# | |
014de9e2 | 28071 | ($sc-dispatch |
78a47455 | 28072 | #{p 29345}# |
014de9e2 AW |
28073 | '(#(free-id |
28074 | #(syntax-object | |
28075 | unquote-splicing | |
28076 | ((top) | |
28077 | #(ribcage | |
28078 | #(p q) | |
28079 | #((top) (top)) | |
78a47455 | 28080 | #("i28937" "i28938")) |
014de9e2 AW |
28081 | #(ribcage () () ()) |
28082 | #(ribcage | |
28083 | #(p lev) | |
28084 | #((top) (top)) | |
78a47455 | 28085 | #("i28933" "i28934")) |
014de9e2 AW |
28086 | #(ribcage |
28087 | (emit quasivector | |
28088 | quasilist* | |
28089 | quasiappend | |
28090 | quasicons | |
28091 | vquasi | |
28092 | quasi) | |
28093 | ((top) | |
28094 | (top) | |
28095 | (top) | |
28096 | (top) | |
28097 | (top) | |
28098 | (top) | |
28099 | (top)) | |
78a47455 AW |
28100 | ("i28894" |
28101 | "i28892" | |
28102 | "i28890" | |
28103 | "i28888" | |
28104 | "i28886" | |
28105 | "i28884" | |
28106 | "i28882"))) | |
014de9e2 AW |
28107 | (hygiene guile))) |
28108 | . | |
28109 | each-any)))) | |
78a47455 | 28110 | (if #{tmp 29395}# |
014de9e2 | 28111 | (@apply |
78a47455 AW |
28112 | (lambda (#{p 29399}#) |
28113 | (if (= #{lev 29339}# 0) | |
28114 | (#{quasiappend 29155}# | |
28115 | (map (lambda (#{tmp 28950 29402}#) | |
014de9e2 AW |
28116 | (list '#(syntax-object |
28117 | "value" | |
28118 | ((top) | |
28119 | #(ribcage | |
28120 | #(p) | |
28121 | #((top)) | |
78a47455 | 28122 | #("i28948")) |
014de9e2 AW |
28123 | #(ribcage |
28124 | #(p q) | |
28125 | #((top) (top)) | |
78a47455 | 28126 | #("i28937" "i28938")) |
014de9e2 AW |
28127 | #(ribcage () () ()) |
28128 | #(ribcage | |
28129 | #(p lev) | |
28130 | #((top) (top)) | |
78a47455 | 28131 | #("i28933" "i28934")) |
014de9e2 AW |
28132 | #(ribcage |
28133 | (emit quasivector | |
28134 | quasilist* | |
28135 | quasiappend | |
28136 | quasicons | |
28137 | vquasi | |
28138 | quasi) | |
28139 | ((top) | |
28140 | (top) | |
28141 | (top) | |
28142 | (top) | |
28143 | (top) | |
28144 | (top) | |
28145 | (top)) | |
78a47455 AW |
28146 | ("i28894" |
28147 | "i28892" | |
28148 | "i28890" | |
28149 | "i28888" | |
28150 | "i28886" | |
28151 | "i28884" | |
28152 | "i28882"))) | |
014de9e2 | 28153 | (hygiene guile)) |
78a47455 AW |
28154 | #{tmp 28950 29402}#)) |
28155 | #{p 29399}#) | |
28156 | (#{vquasi 29153}# | |
28157 | #{q 29346}# | |
28158 | #{lev 29339}#)) | |
28159 | (#{quasicons 29154}# | |
28160 | (#{quasicons 29154}# | |
014de9e2 AW |
28161 | '(#(syntax-object |
28162 | "quote" | |
28163 | ((top) | |
78a47455 | 28164 | #(ribcage #(p) #((top)) #("i28948")) |
014de9e2 AW |
28165 | #(ribcage |
28166 | #(p q) | |
28167 | #((top) (top)) | |
78a47455 | 28168 | #("i28937" "i28938")) |
014de9e2 AW |
28169 | #(ribcage () () ()) |
28170 | #(ribcage | |
28171 | #(p lev) | |
28172 | #((top) (top)) | |
78a47455 | 28173 | #("i28933" "i28934")) |
014de9e2 AW |
28174 | #(ribcage |
28175 | (emit quasivector | |
28176 | quasilist* | |
28177 | quasiappend | |
28178 | quasicons | |
28179 | vquasi | |
28180 | quasi) | |
28181 | ((top) | |
28182 | (top) | |
28183 | (top) | |
28184 | (top) | |
28185 | (top) | |
28186 | (top) | |
28187 | (top)) | |
78a47455 AW |
28188 | ("i28894" |
28189 | "i28892" | |
28190 | "i28890" | |
28191 | "i28888" | |
28192 | "i28886" | |
28193 | "i28884" | |
28194 | "i28882"))) | |
014de9e2 AW |
28195 | (hygiene guile)) |
28196 | #(syntax-object | |
28197 | unquote-splicing | |
28198 | ((top) | |
78a47455 | 28199 | #(ribcage #(p) #((top)) #("i28948")) |
014de9e2 AW |
28200 | #(ribcage |
28201 | #(p q) | |
28202 | #((top) (top)) | |
78a47455 | 28203 | #("i28937" "i28938")) |
014de9e2 AW |
28204 | #(ribcage () () ()) |
28205 | #(ribcage | |
28206 | #(p lev) | |
28207 | #((top) (top)) | |
78a47455 | 28208 | #("i28933" "i28934")) |
014de9e2 AW |
28209 | #(ribcage |
28210 | (emit quasivector | |
28211 | quasilist* | |
28212 | quasiappend | |
28213 | quasicons | |
28214 | vquasi | |
28215 | quasi) | |
28216 | ((top) | |
28217 | (top) | |
28218 | (top) | |
28219 | (top) | |
28220 | (top) | |
28221 | (top) | |
28222 | (top)) | |
78a47455 AW |
28223 | ("i28894" |
28224 | "i28892" | |
28225 | "i28890" | |
28226 | "i28888" | |
28227 | "i28886" | |
28228 | "i28884" | |
28229 | "i28882"))) | |
014de9e2 | 28230 | (hygiene guile))) |
78a47455 AW |
28231 | (#{quasi 29152}# |
28232 | #{p 29399}# | |
28233 | (#{1-}# #{lev 29339}#))) | |
28234 | (#{vquasi 29153}# | |
28235 | #{q 29346}# | |
28236 | #{lev 29339}#)))) | |
28237 | #{tmp 29395}#) | |
28238 | (#{quasicons 29154}# | |
28239 | (#{quasi 29152}# #{p 29345}# #{lev 29339}#) | |
28240 | (#{vquasi 29153}# #{q 29346}# #{lev 29339}#))))))) | |
28241 | #{tmp 29341}#) | |
28242 | (let ((#{tmp 29420}# ($sc-dispatch #{p 29338}# '()))) | |
28243 | (if #{tmp 29420}# | |
014de9e2 AW |
28244 | (@apply |
28245 | (lambda () | |
df40b969 AW |
28246 | '(#(syntax-object |
28247 | "quote" | |
28248 | ((top) | |
28249 | #(ribcage () () ()) | |
28250 | #(ribcage | |
014de9e2 | 28251 | #(p lev) |
df40b969 | 28252 | #((top) (top)) |
78a47455 | 28253 | #("i28933" "i28934")) |
df40b969 AW |
28254 | #(ribcage |
28255 | (emit quasivector | |
28256 | quasilist* | |
28257 | quasiappend | |
28258 | quasicons | |
28259 | vquasi | |
28260 | quasi) | |
28261 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
28262 | ("i28894" |
28263 | "i28892" | |
28264 | "i28890" | |
28265 | "i28888" | |
28266 | "i28886" | |
28267 | "i28884" | |
28268 | "i28882"))) | |
df40b969 | 28269 | (hygiene guile)) |
014de9e2 | 28270 | ())) |
78a47455 | 28271 | #{tmp 29420}#) |
014de9e2 AW |
28272 | (syntax-violation |
28273 | #f | |
28274 | "source expression failed to match any pattern" | |
78a47455 AW |
28275 | #{p 29338}#))))))) |
28276 | (#{quasicons 29154}# | |
28277 | (lambda (#{x 29433}# #{y 29434}#) | |
28278 | (let ((#{tmp 29435}# (list #{x 29433}# #{y 29434}#))) | |
28279 | (let ((#{tmp 29436}# | |
28280 | ($sc-dispatch #{tmp 29435}# '(any any)))) | |
28281 | (if #{tmp 29436}# | |
014de9e2 | 28282 | (@apply |
78a47455 AW |
28283 | (lambda (#{x 29438}# #{y 29439}#) |
28284 | (let ((#{tmp 29441}# | |
014de9e2 | 28285 | ($sc-dispatch |
78a47455 | 28286 | #{y 29439}# |
014de9e2 | 28287 | '(#(atom "quote") any)))) |
78a47455 | 28288 | (if #{tmp 29441}# |
014de9e2 | 28289 | (@apply |
78a47455 AW |
28290 | (lambda (#{dy 29445}#) |
28291 | (let ((#{tmp 29447}# | |
014de9e2 | 28292 | ($sc-dispatch |
78a47455 | 28293 | #{x 29438}# |
014de9e2 | 28294 | '(#(atom "quote") any)))) |
78a47455 | 28295 | (if #{tmp 29447}# |
014de9e2 | 28296 | (@apply |
78a47455 | 28297 | (lambda (#{dx 29451}#) |
014de9e2 AW |
28298 | (list '#(syntax-object |
28299 | "quote" | |
28300 | ((top) | |
28301 | #(ribcage | |
28302 | #(dx) | |
28303 | #((top)) | |
78a47455 | 28304 | #("i28972")) |
014de9e2 AW |
28305 | #(ribcage |
28306 | #(dy) | |
28307 | #((top)) | |
78a47455 | 28308 | #("i28968")) |
014de9e2 AW |
28309 | #(ribcage () () ()) |
28310 | #(ribcage | |
28311 | #(x y) | |
28312 | #((top) (top)) | |
78a47455 | 28313 | #("i28962" "i28963")) |
014de9e2 AW |
28314 | #(ribcage () () ()) |
28315 | #(ribcage () () ()) | |
28316 | #(ribcage | |
28317 | #(x y) | |
28318 | #((top) (top)) | |
78a47455 | 28319 | #("i28957" "i28958")) |
014de9e2 AW |
28320 | #(ribcage |
28321 | (emit quasivector | |
28322 | quasilist* | |
28323 | quasiappend | |
28324 | quasicons | |
28325 | vquasi | |
28326 | quasi) | |
28327 | ((top) | |
28328 | (top) | |
28329 | (top) | |
28330 | (top) | |
28331 | (top) | |
28332 | (top) | |
28333 | (top)) | |
78a47455 AW |
28334 | ("i28894" |
28335 | "i28892" | |
28336 | "i28890" | |
28337 | "i28888" | |
28338 | "i28886" | |
28339 | "i28884" | |
28340 | "i28882"))) | |
014de9e2 | 28341 | (hygiene guile)) |
78a47455 AW |
28342 | (cons #{dx 29451}# #{dy 29445}#))) |
28343 | #{tmp 29447}#) | |
28344 | (if (null? #{dy 29445}#) | |
014de9e2 AW |
28345 | (list '#(syntax-object |
28346 | "list" | |
df40b969 | 28347 | ((top) |
014de9e2 AW |
28348 | #(ribcage |
28349 | #(_) | |
28350 | #((top)) | |
78a47455 | 28351 | #("i28974")) |
014de9e2 AW |
28352 | #(ribcage |
28353 | #(dy) | |
28354 | #((top)) | |
78a47455 | 28355 | #("i28968")) |
014de9e2 AW |
28356 | #(ribcage () () ()) |
28357 | #(ribcage | |
28358 | #(x y) | |
28359 | #((top) (top)) | |
78a47455 | 28360 | #("i28962" "i28963")) |
014de9e2 | 28361 | #(ribcage () () ()) |
df40b969 AW |
28362 | #(ribcage () () ()) |
28363 | #(ribcage | |
014de9e2 AW |
28364 | #(x y) |
28365 | #((top) (top)) | |
78a47455 | 28366 | #("i28957" "i28958")) |
014de9e2 AW |
28367 | #(ribcage |
28368 | (emit quasivector | |
28369 | quasilist* | |
28370 | quasiappend | |
28371 | quasicons | |
28372 | vquasi | |
28373 | quasi) | |
28374 | ((top) | |
28375 | (top) | |
28376 | (top) | |
28377 | (top) | |
28378 | (top) | |
28379 | (top) | |
28380 | (top)) | |
78a47455 AW |
28381 | ("i28894" |
28382 | "i28892" | |
28383 | "i28890" | |
28384 | "i28888" | |
28385 | "i28886" | |
28386 | "i28884" | |
28387 | "i28882"))) | |
014de9e2 | 28388 | (hygiene guile)) |
78a47455 | 28389 | #{x 29438}#) |
014de9e2 AW |
28390 | (list '#(syntax-object |
28391 | "list*" | |
28392 | ((top) | |
28393 | #(ribcage | |
28394 | #(_) | |
28395 | #((top)) | |
78a47455 | 28396 | #("i28974")) |
014de9e2 AW |
28397 | #(ribcage |
28398 | #(dy) | |
df40b969 | 28399 | #((top)) |
78a47455 | 28400 | #("i28968")) |
014de9e2 AW |
28401 | #(ribcage () () ()) |
28402 | #(ribcage | |
28403 | #(x y) | |
28404 | #((top) (top)) | |
78a47455 | 28405 | #("i28962" "i28963")) |
014de9e2 | 28406 | #(ribcage () () ()) |
df40b969 AW |
28407 | #(ribcage () () ()) |
28408 | #(ribcage | |
28409 | #(x y) | |
28410 | #((top) (top)) | |
78a47455 | 28411 | #("i28957" "i28958")) |
df40b969 AW |
28412 | #(ribcage |
28413 | (emit quasivector | |
28414 | quasilist* | |
28415 | quasiappend | |
28416 | quasicons | |
28417 | vquasi | |
28418 | quasi) | |
28419 | ((top) | |
28420 | (top) | |
28421 | (top) | |
28422 | (top) | |
28423 | (top) | |
28424 | (top) | |
28425 | (top)) | |
78a47455 AW |
28426 | ("i28894" |
28427 | "i28892" | |
28428 | "i28890" | |
28429 | "i28888" | |
28430 | "i28886" | |
28431 | "i28884" | |
28432 | "i28882"))) | |
df40b969 | 28433 | (hygiene guile)) |
78a47455 AW |
28434 | #{x 29438}# |
28435 | #{y 29439}#))))) | |
28436 | #{tmp 29441}#) | |
28437 | (let ((#{tmp 29456}# | |
014de9e2 | 28438 | ($sc-dispatch |
78a47455 | 28439 | #{y 29439}# |
014de9e2 | 28440 | '(#(atom "list") . any)))) |
78a47455 | 28441 | (if #{tmp 29456}# |
df40b969 | 28442 | (@apply |
78a47455 | 28443 | (lambda (#{stuff 29460}#) |
df40b969 | 28444 | (cons '#(syntax-object |
014de9e2 | 28445 | "list" |
df40b969 | 28446 | ((top) |
014de9e2 AW |
28447 | #(ribcage |
28448 | #(stuff) | |
28449 | #((top)) | |
78a47455 | 28450 | #("i28977")) |
df40b969 AW |
28451 | #(ribcage () () ()) |
28452 | #(ribcage | |
014de9e2 | 28453 | #(x y) |
df40b969 | 28454 | #((top) (top)) |
78a47455 | 28455 | #("i28962" "i28963")) |
014de9e2 | 28456 | #(ribcage () () ()) |
df40b969 AW |
28457 | #(ribcage () () ()) |
28458 | #(ribcage | |
28459 | #(x y) | |
28460 | #((top) (top)) | |
78a47455 | 28461 | #("i28957" "i28958")) |
df40b969 AW |
28462 | #(ribcage |
28463 | (emit quasivector | |
28464 | quasilist* | |
28465 | quasiappend | |
28466 | quasicons | |
28467 | vquasi | |
28468 | quasi) | |
28469 | ((top) | |
28470 | (top) | |
28471 | (top) | |
28472 | (top) | |
28473 | (top) | |
28474 | (top) | |
28475 | (top)) | |
78a47455 AW |
28476 | ("i28894" |
28477 | "i28892" | |
28478 | "i28890" | |
28479 | "i28888" | |
28480 | "i28886" | |
28481 | "i28884" | |
28482 | "i28882"))) | |
df40b969 | 28483 | (hygiene guile)) |
78a47455 AW |
28484 | (cons #{x 29438}# #{stuff 29460}#))) |
28485 | #{tmp 29456}#) | |
28486 | (let ((#{tmp 29461}# | |
014de9e2 | 28487 | ($sc-dispatch |
78a47455 | 28488 | #{y 29439}# |
014de9e2 | 28489 | '(#(atom "list*") . any)))) |
78a47455 | 28490 | (if #{tmp 29461}# |
014de9e2 | 28491 | (@apply |
78a47455 | 28492 | (lambda (#{stuff 29465}#) |
014de9e2 AW |
28493 | (cons '#(syntax-object |
28494 | "list*" | |
28495 | ((top) | |
28496 | #(ribcage | |
28497 | #(stuff) | |
28498 | #((top)) | |
78a47455 | 28499 | #("i28980")) |
014de9e2 AW |
28500 | #(ribcage () () ()) |
28501 | #(ribcage | |
28502 | #(x y) | |
28503 | #((top) (top)) | |
78a47455 | 28504 | #("i28962" "i28963")) |
014de9e2 AW |
28505 | #(ribcage () () ()) |
28506 | #(ribcage () () ()) | |
28507 | #(ribcage | |
28508 | #(x y) | |
28509 | #((top) (top)) | |
78a47455 | 28510 | #("i28957" "i28958")) |
014de9e2 AW |
28511 | #(ribcage |
28512 | (emit quasivector | |
28513 | quasilist* | |
28514 | quasiappend | |
28515 | quasicons | |
28516 | vquasi | |
28517 | quasi) | |
28518 | ((top) | |
28519 | (top) | |
28520 | (top) | |
28521 | (top) | |
28522 | (top) | |
28523 | (top) | |
28524 | (top)) | |
78a47455 AW |
28525 | ("i28894" |
28526 | "i28892" | |
28527 | "i28890" | |
28528 | "i28888" | |
28529 | "i28886" | |
28530 | "i28884" | |
28531 | "i28882"))) | |
014de9e2 | 28532 | (hygiene guile)) |
78a47455 AW |
28533 | (cons #{x 29438}# #{stuff 29465}#))) |
28534 | #{tmp 29461}#) | |
014de9e2 AW |
28535 | (list '#(syntax-object |
28536 | "list*" | |
28537 | ((top) | |
78a47455 | 28538 | #(ribcage #(_) #((top)) #("i28982")) |
014de9e2 AW |
28539 | #(ribcage () () ()) |
28540 | #(ribcage | |
28541 | #(x y) | |
28542 | #((top) (top)) | |
78a47455 | 28543 | #("i28962" "i28963")) |
014de9e2 AW |
28544 | #(ribcage () () ()) |
28545 | #(ribcage () () ()) | |
28546 | #(ribcage | |
28547 | #(x y) | |
28548 | #((top) (top)) | |
78a47455 | 28549 | #("i28957" "i28958")) |
014de9e2 AW |
28550 | #(ribcage |
28551 | (emit quasivector | |
28552 | quasilist* | |
28553 | quasiappend | |
28554 | quasicons | |
28555 | vquasi | |
28556 | quasi) | |
28557 | ((top) | |
28558 | (top) | |
28559 | (top) | |
28560 | (top) | |
28561 | (top) | |
28562 | (top) | |
28563 | (top)) | |
78a47455 AW |
28564 | ("i28894" |
28565 | "i28892" | |
28566 | "i28890" | |
28567 | "i28888" | |
28568 | "i28886" | |
28569 | "i28884" | |
28570 | "i28882"))) | |
014de9e2 | 28571 | (hygiene guile)) |
78a47455 AW |
28572 | #{x 29438}# |
28573 | #{y 29439}#)))))))) | |
28574 | #{tmp 29436}#) | |
014de9e2 AW |
28575 | (syntax-violation |
28576 | #f | |
28577 | "source expression failed to match any pattern" | |
78a47455 AW |
28578 | #{tmp 29435}#)))))) |
28579 | (#{quasiappend 29155}# | |
28580 | (lambda (#{x 29476}# #{y 29477}#) | |
28581 | (let ((#{tmp 29479}# | |
28582 | ($sc-dispatch #{y 29477}# '(#(atom "quote") ())))) | |
28583 | (if #{tmp 29479}# | |
014de9e2 AW |
28584 | (@apply |
28585 | (lambda () | |
78a47455 | 28586 | (if (null? #{x 29476}#) |
014de9e2 AW |
28587 | '(#(syntax-object |
28588 | "quote" | |
28589 | ((top) | |
28590 | #(ribcage () () ()) | |
28591 | #(ribcage | |
28592 | #(x y) | |
28593 | #((top) (top)) | |
78a47455 | 28594 | #("i28986" "i28987")) |
014de9e2 AW |
28595 | #(ribcage |
28596 | (emit quasivector | |
28597 | quasilist* | |
28598 | quasiappend | |
28599 | quasicons | |
28600 | vquasi | |
28601 | quasi) | |
28602 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
28603 | ("i28894" |
28604 | "i28892" | |
28605 | "i28890" | |
28606 | "i28888" | |
28607 | "i28886" | |
28608 | "i28884" | |
28609 | "i28882"))) | |
014de9e2 AW |
28610 | (hygiene guile)) |
28611 | ()) | |
78a47455 AW |
28612 | (if (null? (cdr #{x 29476}#)) |
28613 | (car #{x 29476}#) | |
28614 | (let ((#{tmp 29484}# | |
28615 | ($sc-dispatch #{x 29476}# 'each-any))) | |
28616 | (if #{tmp 29484}# | |
014de9e2 | 28617 | (@apply |
78a47455 | 28618 | (lambda (#{p 29488}#) |
014de9e2 AW |
28619 | (cons '#(syntax-object |
28620 | "append" | |
28621 | ((top) | |
28622 | #(ribcage () () ()) | |
78a47455 | 28623 | #(ribcage #(p) #((top)) #("i28998")) |
014de9e2 AW |
28624 | #(ribcage () () ()) |
28625 | #(ribcage | |
28626 | #(x y) | |
28627 | #((top) (top)) | |
78a47455 | 28628 | #("i28986" "i28987")) |
014de9e2 AW |
28629 | #(ribcage |
28630 | (emit quasivector | |
28631 | quasilist* | |
28632 | quasiappend | |
28633 | quasicons | |
28634 | vquasi | |
28635 | quasi) | |
28636 | ((top) | |
28637 | (top) | |
28638 | (top) | |
28639 | (top) | |
28640 | (top) | |
28641 | (top) | |
28642 | (top)) | |
78a47455 AW |
28643 | ("i28894" |
28644 | "i28892" | |
28645 | "i28890" | |
28646 | "i28888" | |
28647 | "i28886" | |
28648 | "i28884" | |
28649 | "i28882"))) | |
014de9e2 | 28650 | (hygiene guile)) |
78a47455 AW |
28651 | #{p 29488}#)) |
28652 | #{tmp 29484}#) | |
014de9e2 AW |
28653 | (syntax-violation |
28654 | #f | |
28655 | "source expression failed to match any pattern" | |
78a47455 AW |
28656 | #{x 29476}#)))))) |
28657 | #{tmp 29479}#) | |
28658 | (if (null? #{x 29476}#) | |
28659 | #{y 29477}# | |
28660 | (let ((#{tmp 29496}# (list #{x 29476}# #{y 29477}#))) | |
28661 | (let ((#{tmp 29497}# | |
28662 | ($sc-dispatch #{tmp 29496}# '(each-any any)))) | |
28663 | (if #{tmp 29497}# | |
014de9e2 | 28664 | (@apply |
78a47455 | 28665 | (lambda (#{p 29499}# #{y 29500}#) |
014de9e2 AW |
28666 | (cons '#(syntax-object |
28667 | "append" | |
28668 | ((top) | |
28669 | #(ribcage () () ()) | |
28670 | #(ribcage | |
28671 | #(p y) | |
28672 | #((top) (top)) | |
78a47455 AW |
28673 | #("i29009" "i29010")) |
28674 | #(ribcage #(_) #((top)) #("i29001")) | |
014de9e2 AW |
28675 | #(ribcage () () ()) |
28676 | #(ribcage | |
28677 | #(x y) | |
28678 | #((top) (top)) | |
78a47455 | 28679 | #("i28986" "i28987")) |
014de9e2 AW |
28680 | #(ribcage |
28681 | (emit quasivector | |
28682 | quasilist* | |
28683 | quasiappend | |
28684 | quasicons | |
28685 | vquasi | |
28686 | quasi) | |
28687 | ((top) | |
28688 | (top) | |
28689 | (top) | |
28690 | (top) | |
28691 | (top) | |
28692 | (top) | |
28693 | (top)) | |
78a47455 AW |
28694 | ("i28894" |
28695 | "i28892" | |
28696 | "i28890" | |
28697 | "i28888" | |
28698 | "i28886" | |
28699 | "i28884" | |
28700 | "i28882"))) | |
014de9e2 | 28701 | (hygiene guile)) |
78a47455 AW |
28702 | (append #{p 29499}# (list #{y 29500}#)))) |
28703 | #{tmp 29497}#) | |
014de9e2 AW |
28704 | (syntax-violation |
28705 | #f | |
28706 | "source expression failed to match any pattern" | |
78a47455 AW |
28707 | #{tmp 29496}#))))))))) |
28708 | (#{quasilist* 29156}# | |
28709 | (lambda (#{x 29504}# #{y 29505}#) | |
014de9e2 | 28710 | (letrec* |
78a47455 AW |
28711 | ((#{f 29506}# |
28712 | (lambda (#{x 29595}#) | |
28713 | (if (null? #{x 29595}#) | |
28714 | #{y 29505}# | |
28715 | (#{quasicons 29154}# | |
28716 | (car #{x 29595}#) | |
28717 | (#{f 29506}# (cdr #{x 29595}#))))))) | |
28718 | (#{f 29506}# #{x 29504}#)))) | |
28719 | (#{emit 29158}# | |
28720 | (lambda (#{x 29598}#) | |
28721 | (let ((#{tmp 29600}# | |
28722 | ($sc-dispatch #{x 29598}# '(#(atom "quote") any)))) | |
28723 | (if #{tmp 29600}# | |
014de9e2 | 28724 | (@apply |
78a47455 | 28725 | (lambda (#{x 29604}#) |
014de9e2 AW |
28726 | (list '#(syntax-object |
28727 | quote | |
28728 | ((top) | |
78a47455 | 28729 | #(ribcage #(x) #((top)) #("i29076")) |
014de9e2 | 28730 | #(ribcage () () ()) |
78a47455 | 28731 | #(ribcage #(x) #((top)) #("i29073")) |
014de9e2 AW |
28732 | #(ribcage |
28733 | (emit quasivector | |
28734 | quasilist* | |
28735 | quasiappend | |
28736 | quasicons | |
28737 | vquasi | |
28738 | quasi) | |
28739 | ((top) (top) (top) (top) (top) (top) (top)) | |
78a47455 AW |
28740 | ("i28894" |
28741 | "i28892" | |
28742 | "i28890" | |
28743 | "i28888" | |
28744 | "i28886" | |
28745 | "i28884" | |
28746 | "i28882"))) | |
014de9e2 | 28747 | (hygiene guile)) |
78a47455 AW |
28748 | #{x 29604}#)) |
28749 | #{tmp 29600}#) | |
28750 | (let ((#{tmp 29605}# | |
014de9e2 | 28751 | ($sc-dispatch |
78a47455 | 28752 | #{x 29598}# |
014de9e2 | 28753 | '(#(atom "list") . each-any)))) |
78a47455 | 28754 | (if #{tmp 29605}# |
014de9e2 | 28755 | (@apply |
78a47455 AW |
28756 | (lambda (#{x 29609}#) |
28757 | (let ((#{tmp 29610}# (map #{emit 29158}# #{x 29609}#))) | |
28758 | (let ((#{tmp 29611}# | |
28759 | ($sc-dispatch #{tmp 29610}# 'each-any))) | |
28760 | (if #{tmp 29611}# | |
014de9e2 | 28761 | (@apply |
78a47455 | 28762 | (lambda (#{ g29081 29613}#) |
014de9e2 AW |
28763 | (cons '#(syntax-object |
28764 | list | |
28765 | ((top) | |
28766 | #(ribcage () () ()) | |
28767 | #(ribcage | |
78a47455 AW |
28768 | #(#{ g29081}#) |
28769 | #((m29082 top)) | |
28770 | #("i29086")) | |
28771 | #(ribcage #(x) #((top)) #("i29079")) | |
014de9e2 | 28772 | #(ribcage () () ()) |
78a47455 | 28773 | #(ribcage #(x) #((top)) #("i29073")) |
014de9e2 AW |
28774 | #(ribcage |
28775 | (emit quasivector | |
28776 | quasilist* | |
28777 | quasiappend | |
28778 | quasicons | |
28779 | vquasi | |
28780 | quasi) | |
28781 | ((top) | |
28782 | (top) | |
28783 | (top) | |
28784 | (top) | |
28785 | (top) | |
28786 | (top) | |
28787 | (top)) | |
78a47455 AW |
28788 | ("i28894" |
28789 | "i28892" | |
28790 | "i28890" | |
28791 | "i28888" | |
28792 | "i28886" | |
28793 | "i28884" | |
28794 | "i28882"))) | |
014de9e2 | 28795 | (hygiene guile)) |
78a47455 AW |
28796 | #{ g29081 29613}#)) |
28797 | #{tmp 29611}#) | |
014de9e2 AW |
28798 | (syntax-violation |
28799 | #f | |
28800 | "source expression failed to match any pattern" | |
78a47455 AW |
28801 | #{tmp 29610}#))))) |
28802 | #{tmp 29605}#) | |
28803 | (let ((#{tmp 29614}# | |
df40b969 | 28804 | ($sc-dispatch |
78a47455 | 28805 | #{x 29598}# |
014de9e2 | 28806 | '(#(atom "list*") . #(each+ any (any) ()))))) |
78a47455 | 28807 | (if #{tmp 29614}# |
df40b969 | 28808 | (@apply |
78a47455 | 28809 | (lambda (#{x 29618}# #{y 29619}#) |
014de9e2 | 28810 | (letrec* |
78a47455 AW |
28811 | ((#{f 29620}# |
28812 | (lambda (#{x* 29623}#) | |
28813 | (if (null? #{x* 29623}#) | |
28814 | (#{emit 29158}# #{y 29619}#) | |
28815 | (let ((#{tmp 29624}# | |
28816 | (list (#{emit 29158}# | |
28817 | (car #{x* 29623}#)) | |
28818 | (#{f 29620}# | |
28819 | (cdr #{x* 29623}#))))) | |
28820 | (let ((#{tmp 29625}# | |
014de9e2 | 28821 | ($sc-dispatch |
78a47455 | 28822 | #{tmp 29624}# |
014de9e2 | 28823 | '(any any)))) |
78a47455 | 28824 | (if #{tmp 29625}# |
014de9e2 | 28825 | (@apply |
78a47455 AW |
28826 | (lambda (#{ g29101 29627}# |
28827 | #{ g29100 29628}#) | |
014de9e2 AW |
28828 | (list '#(syntax-object |
28829 | cons | |
28830 | ((top) | |
28831 | #(ribcage () () ()) | |
28832 | #(ribcage | |
78a47455 AW |
28833 | #(#{ g29101}# |
28834 | #{ g29100}#) | |
28835 | #((m29102 top) | |
28836 | (m29102 top)) | |
28837 | #("i29106" "i29107")) | |
014de9e2 AW |
28838 | #(ribcage () () ()) |
28839 | #(ribcage | |
28840 | #(f x*) | |
28841 | #((top) (top)) | |
78a47455 | 28842 | #("i29095" "i29096")) |
014de9e2 AW |
28843 | #(ribcage |
28844 | #(x y) | |
28845 | #((top) (top)) | |
78a47455 | 28846 | #("i29091" "i29092")) |
014de9e2 AW |
28847 | #(ribcage () () ()) |
28848 | #(ribcage | |
28849 | #(x) | |
28850 | #((top)) | |
78a47455 | 28851 | #("i29073")) |
014de9e2 AW |
28852 | #(ribcage |
28853 | (emit quasivector | |
28854 | quasilist* | |
28855 | quasiappend | |
28856 | quasicons | |
28857 | vquasi | |
28858 | quasi) | |
28859 | ((top) | |
28860 | (top) | |
28861 | (top) | |
28862 | (top) | |
28863 | (top) | |
28864 | (top) | |
28865 | (top)) | |
78a47455 AW |
28866 | ("i28894" |
28867 | "i28892" | |
28868 | "i28890" | |
28869 | "i28888" | |
28870 | "i28886" | |
28871 | "i28884" | |
28872 | "i28882"))) | |
014de9e2 | 28873 | (hygiene guile)) |
78a47455 AW |
28874 | #{ g29101 29627}# |
28875 | #{ g29100 29628}#)) | |
28876 | #{tmp 29625}#) | |
014de9e2 AW |
28877 | (syntax-violation |
28878 | #f | |
28879 | "source expression failed to match any pattern" | |
78a47455 AW |
28880 | #{tmp 29624}#)))))))) |
28881 | (#{f 29620}# #{x 29618}#))) | |
28882 | #{tmp 29614}#) | |
28883 | (let ((#{tmp 29629}# | |
014de9e2 | 28884 | ($sc-dispatch |
78a47455 | 28885 | #{x 29598}# |
014de9e2 | 28886 | '(#(atom "append") . each-any)))) |
78a47455 | 28887 | (if #{tmp 29629}# |
014de9e2 | 28888 | (@apply |
78a47455 AW |
28889 | (lambda (#{x 29633}#) |
28890 | (let ((#{tmp 29634}# | |
28891 | (map #{emit 29158}# #{x 29633}#))) | |
28892 | (let ((#{tmp 29635}# | |
df40b969 | 28893 | ($sc-dispatch |
78a47455 | 28894 | #{tmp 29634}# |
df40b969 | 28895 | 'each-any))) |
78a47455 | 28896 | (if #{tmp 29635}# |
df40b969 | 28897 | (@apply |
78a47455 | 28898 | (lambda (#{ g29113 29637}#) |
df40b969 | 28899 | (cons '#(syntax-object |
014de9e2 | 28900 | append |
df40b969 AW |
28901 | ((top) |
28902 | #(ribcage () () ()) | |
28903 | #(ribcage | |
78a47455 AW |
28904 | #(#{ g29113}#) |
28905 | #((m29114 top)) | |
28906 | #("i29118")) | |
df40b969 AW |
28907 | #(ribcage |
28908 | #(x) | |
28909 | #((top)) | |
78a47455 | 28910 | #("i29111")) |
df40b969 AW |
28911 | #(ribcage () () ()) |
28912 | #(ribcage | |
28913 | #(x) | |
28914 | #((top)) | |
78a47455 | 28915 | #("i29073")) |
df40b969 AW |
28916 | #(ribcage |
28917 | (emit quasivector | |
28918 | quasilist* | |
28919 | quasiappend | |
28920 | quasicons | |
28921 | vquasi | |
28922 | quasi) | |
28923 | ((top) | |
28924 | (top) | |
28925 | (top) | |
28926 | (top) | |
28927 | (top) | |
28928 | (top) | |
28929 | (top)) | |
78a47455 AW |
28930 | ("i28894" |
28931 | "i28892" | |
28932 | "i28890" | |
28933 | "i28888" | |
28934 | "i28886" | |
28935 | "i28884" | |
28936 | "i28882"))) | |
014de9e2 | 28937 | (hygiene guile)) |
78a47455 AW |
28938 | #{ g29113 29637}#)) |
28939 | #{tmp 29635}#) | |
014de9e2 AW |
28940 | (syntax-violation |
28941 | #f | |
28942 | "source expression failed to match any pattern" | |
78a47455 AW |
28943 | #{tmp 29634}#))))) |
28944 | #{tmp 29629}#) | |
28945 | (let ((#{tmp 29638}# | |
014de9e2 | 28946 | ($sc-dispatch |
78a47455 | 28947 | #{x 29598}# |
014de9e2 | 28948 | '(#(atom "vector") . each-any)))) |
78a47455 | 28949 | (if #{tmp 29638}# |
014de9e2 | 28950 | (@apply |
78a47455 AW |
28951 | (lambda (#{x 29642}#) |
28952 | (let ((#{tmp 29643}# | |
28953 | (map #{emit 29158}# #{x 29642}#))) | |
28954 | (let ((#{tmp 29644}# | |
014de9e2 | 28955 | ($sc-dispatch |
78a47455 | 28956 | #{tmp 29643}# |
014de9e2 | 28957 | 'each-any))) |
78a47455 | 28958 | (if #{tmp 29644}# |
014de9e2 | 28959 | (@apply |
78a47455 | 28960 | (lambda (#{ g29125 29646}#) |
014de9e2 AW |
28961 | (cons '#(syntax-object |
28962 | vector | |
28963 | ((top) | |
28964 | #(ribcage () () ()) | |
28965 | #(ribcage | |
78a47455 AW |
28966 | #(#{ g29125}#) |
28967 | #((m29126 top)) | |
28968 | #("i29130")) | |
014de9e2 AW |
28969 | #(ribcage |
28970 | #(x) | |
28971 | #((top)) | |
78a47455 | 28972 | #("i29123")) |
014de9e2 AW |
28973 | #(ribcage () () ()) |
28974 | #(ribcage | |
28975 | #(x) | |
28976 | #((top)) | |
78a47455 | 28977 | #("i29073")) |
014de9e2 AW |
28978 | #(ribcage |
28979 | (emit quasivector | |
28980 | quasilist* | |
28981 | quasiappend | |
28982 | quasicons | |
28983 | vquasi | |
28984 | quasi) | |
28985 | ((top) | |
28986 | (top) | |
28987 | (top) | |
28988 | (top) | |
28989 | (top) | |
28990 | (top) | |
28991 | (top)) | |
78a47455 AW |
28992 | ("i28894" |
28993 | "i28892" | |
28994 | "i28890" | |
28995 | "i28888" | |
28996 | "i28886" | |
28997 | "i28884" | |
28998 | "i28882"))) | |
014de9e2 | 28999 | (hygiene guile)) |
78a47455 AW |
29000 | #{ g29125 29646}#)) |
29001 | #{tmp 29644}#) | |
014de9e2 AW |
29002 | (syntax-violation |
29003 | #f | |
29004 | "source expression failed to match any pattern" | |
78a47455 AW |
29005 | #{tmp 29643}#))))) |
29006 | #{tmp 29638}#) | |
29007 | (let ((#{tmp 29647}# | |
014de9e2 | 29008 | ($sc-dispatch |
78a47455 | 29009 | #{x 29598}# |
014de9e2 | 29010 | '(#(atom "list->vector") any)))) |
78a47455 | 29011 | (if #{tmp 29647}# |
014de9e2 | 29012 | (@apply |
78a47455 AW |
29013 | (lambda (#{x 29651}#) |
29014 | (let ((#{tmp 29652}# | |
29015 | (#{emit 29158}# #{x 29651}#))) | |
014de9e2 AW |
29016 | (list '#(syntax-object |
29017 | list->vector | |
29018 | ((top) | |
29019 | #(ribcage () () ()) | |
29020 | #(ribcage | |
78a47455 AW |
29021 | #(#{ g29137}#) |
29022 | #((m29138 top)) | |
29023 | #("i29141")) | |
014de9e2 AW |
29024 | #(ribcage |
29025 | #(x) | |
29026 | #((top)) | |
78a47455 | 29027 | #("i29135")) |
014de9e2 AW |
29028 | #(ribcage () () ()) |
29029 | #(ribcage | |
29030 | #(x) | |
29031 | #((top)) | |
78a47455 | 29032 | #("i29073")) |
014de9e2 AW |
29033 | #(ribcage |
29034 | (emit quasivector | |
29035 | quasilist* | |
29036 | quasiappend | |
29037 | quasicons | |
29038 | vquasi | |
29039 | quasi) | |
29040 | ((top) | |
29041 | (top) | |
29042 | (top) | |
29043 | (top) | |
29044 | (top) | |
29045 | (top) | |
29046 | (top)) | |
78a47455 AW |
29047 | ("i28894" |
29048 | "i28892" | |
29049 | "i28890" | |
29050 | "i28888" | |
29051 | "i28886" | |
29052 | "i28884" | |
29053 | "i28882"))) | |
014de9e2 | 29054 | (hygiene guile)) |
78a47455 AW |
29055 | #{tmp 29652}#))) |
29056 | #{tmp 29647}#) | |
29057 | (let ((#{tmp 29655}# | |
014de9e2 | 29058 | ($sc-dispatch |
78a47455 | 29059 | #{x 29598}# |
014de9e2 | 29060 | '(#(atom "value") any)))) |
78a47455 | 29061 | (if #{tmp 29655}# |
014de9e2 | 29062 | (@apply |
78a47455 AW |
29063 | (lambda (#{x 29659}#) #{x 29659}#) |
29064 | #{tmp 29655}#) | |
014de9e2 AW |
29065 | (syntax-violation |
29066 | #f | |
29067 | "source expression failed to match any pattern" | |
78a47455 AW |
29068 | #{x 29598}#)))))))))))))))))) |
29069 | (lambda (#{x 29159}#) | |
29070 | (let ((#{tmp 29161}# | |
29071 | ($sc-dispatch #{x 29159}# '(_ any)))) | |
29072 | (if #{tmp 29161}# | |
014de9e2 | 29073 | (@apply |
78a47455 AW |
29074 | (lambda (#{e 29165}#) |
29075 | (#{emit 29158}# (#{quasi 29152}# #{e 29165}# 0))) | |
29076 | #{tmp 29161}#) | |
014de9e2 AW |
29077 | (syntax-violation |
29078 | #f | |
29079 | "source expression failed to match any pattern" | |
78a47455 | 29080 | #{x 29159}#))))))) |
df40b969 AW |
29081 | |
29082 | (define include | |
29083 | (make-syntax-transformer | |
29084 | 'include | |
29085 | 'macro | |
78a47455 | 29086 | (lambda (#{x 29714}#) |
34c5fe83 | 29087 | (letrec* |
78a47455 AW |
29088 | ((#{read-file 29715}# |
29089 | (lambda (#{fn 29826}# #{k 29827}#) | |
29090 | (let ((#{p 29828}# (open-input-file #{fn 29826}#))) | |
34c5fe83 | 29091 | (letrec* |
78a47455 AW |
29092 | ((#{f 29829}# |
29093 | (lambda (#{x 29883}# #{result 29884}#) | |
29094 | (if (eof-object? #{x 29883}#) | |
34c5fe83 | 29095 | (begin |
78a47455 AW |
29096 | (close-input-port #{p 29828}#) |
29097 | (reverse #{result 29884}#)) | |
29098 | (#{f 29829}# | |
29099 | (read #{p 29828}#) | |
29100 | (cons (datum->syntax #{k 29827}# #{x 29883}#) | |
29101 | #{result 29884}#)))))) | |
29102 | (#{f 29829}# (read #{p 29828}#) '())))))) | |
29103 | (let ((#{tmp 29717}# | |
29104 | ($sc-dispatch #{x 29714}# '(any any)))) | |
29105 | (if #{tmp 29717}# | |
34c5fe83 | 29106 | (@apply |
78a47455 AW |
29107 | (lambda (#{k 29721}# #{filename 29722}#) |
29108 | (let ((#{fn 29723}# (syntax->datum #{filename 29722}#))) | |
29109 | (let ((#{tmp 29724}# | |
29110 | (#{read-file 29715}# | |
29111 | #{fn 29723}# | |
29112 | #{filename 29722}#))) | |
29113 | (let ((#{tmp 29725}# | |
29114 | ($sc-dispatch #{tmp 29724}# 'each-any))) | |
29115 | (if #{tmp 29725}# | |
34c5fe83 | 29116 | (@apply |
78a47455 | 29117 | (lambda (#{exp 29743}#) |
34c5fe83 AW |
29118 | (cons '#(syntax-object |
29119 | begin | |
29120 | ((top) | |
29121 | #(ribcage () () ()) | |
78a47455 | 29122 | #(ribcage #(exp) #((top)) #("i29711")) |
34c5fe83 AW |
29123 | #(ribcage () () ()) |
29124 | #(ribcage () () ()) | |
78a47455 | 29125 | #(ribcage #(fn) #((top)) #("i29706")) |
34c5fe83 AW |
29126 | #(ribcage |
29127 | #(k filename) | |
29128 | #((top) (top)) | |
78a47455 AW |
29129 | #("i29702" "i29703")) |
29130 | #(ribcage (read-file) ((top)) ("i29686")) | |
29131 | #(ribcage #(x) #((top)) #("i29685"))) | |
34c5fe83 | 29132 | (hygiene guile)) |
78a47455 AW |
29133 | #{exp 29743}#)) |
29134 | #{tmp 29725}#) | |
34c5fe83 AW |
29135 | (syntax-violation |
29136 | #f | |
29137 | "source expression failed to match any pattern" | |
78a47455 AW |
29138 | #{tmp 29724}#)))))) |
29139 | #{tmp 29717}#) | |
34c5fe83 AW |
29140 | (syntax-violation |
29141 | #f | |
29142 | "source expression failed to match any pattern" | |
78a47455 | 29143 | #{x 29714}#))))))) |
df40b969 AW |
29144 | |
29145 | (define include-from-path | |
29146 | (make-syntax-transformer | |
29147 | 'include-from-path | |
29148 | 'macro | |
78a47455 AW |
29149 | (lambda (#{x 29903}#) |
29150 | (let ((#{tmp 29905}# | |
29151 | ($sc-dispatch #{x 29903}# '(any any)))) | |
29152 | (if #{tmp 29905}# | |
014de9e2 | 29153 | (@apply |
78a47455 AW |
29154 | (lambda (#{k 29909}# #{filename 29910}#) |
29155 | (let ((#{fn 29911}# (syntax->datum #{filename 29910}#))) | |
29156 | (let ((#{tmp 29912}# | |
014de9e2 | 29157 | (datum->syntax |
78a47455 AW |
29158 | #{filename 29910}# |
29159 | (let ((#{t 29915}# (%search-load-path #{fn 29911}#))) | |
29160 | (if #{t 29915}# | |
29161 | #{t 29915}# | |
014de9e2 AW |
29162 | (syntax-violation |
29163 | 'include-from-path | |
29164 | "file not found in path" | |
78a47455 AW |
29165 | #{x 29903}# |
29166 | #{filename 29910}#)))))) | |
014de9e2 AW |
29167 | (list '#(syntax-object |
29168 | include | |
29169 | ((top) | |
29170 | #(ribcage () () ()) | |
78a47455 | 29171 | #(ribcage #(fn) #((top)) #("i29897")) |
014de9e2 AW |
29172 | #(ribcage () () ()) |
29173 | #(ribcage () () ()) | |
78a47455 | 29174 | #(ribcage #(fn) #((top)) #("i29893")) |
014de9e2 AW |
29175 | #(ribcage |
29176 | #(k filename) | |
29177 | #((top) (top)) | |
78a47455 | 29178 | #("i29889" "i29890")) |
014de9e2 | 29179 | #(ribcage () () ()) |
78a47455 | 29180 | #(ribcage #(x) #((top)) #("i29886"))) |
014de9e2 | 29181 | (hygiene guile)) |
78a47455 AW |
29182 | #{tmp 29912}#)))) |
29183 | #{tmp 29905}#) | |
014de9e2 AW |
29184 | (syntax-violation |
29185 | #f | |
29186 | "source expression failed to match any pattern" | |
78a47455 | 29187 | #{x 29903}#)))))) |
df40b969 AW |
29188 | |
29189 | (define unquote | |
29190 | (make-syntax-transformer | |
29191 | 'unquote | |
29192 | 'macro | |
78a47455 | 29193 | (lambda (#{x 29924}#) |
df40b969 AW |
29194 | (syntax-violation |
29195 | 'unquote | |
29196 | "expression not valid outside of quasiquote" | |
78a47455 | 29197 | #{x 29924}#)))) |
df40b969 AW |
29198 | |
29199 | (define unquote-splicing | |
014de9e2 AW |
29200 | (make-syntax-transformer |
29201 | 'unquote-splicing | |
29202 | 'macro | |
78a47455 | 29203 | (lambda (#{x 29927}#) |
014de9e2 AW |
29204 | (syntax-violation |
29205 | 'unquote-splicing | |
29206 | "expression not valid outside of quasiquote" | |
78a47455 | 29207 | #{x 29927}#)))) |
014de9e2 AW |
29208 | |
29209 | (define case | |
29210 | (make-syntax-transformer | |
29211 | 'case | |
29212 | 'macro | |
78a47455 AW |
29213 | (lambda (#{x 29983}#) |
29214 | (let ((#{tmp 29985}# | |
014de9e2 | 29215 | ($sc-dispatch |
78a47455 | 29216 | #{x 29983}# |
014de9e2 | 29217 | '(_ any any . each-any)))) |
78a47455 | 29218 | (if #{tmp 29985}# |
014de9e2 | 29219 | (@apply |
78a47455 AW |
29220 | (lambda (#{e 29989}# #{m1 29990}# #{m2 29991}#) |
29221 | (let ((#{tmp 29992}# | |
014de9e2 | 29222 | (letrec* |
78a47455 AW |
29223 | ((#{f 30038}# |
29224 | (lambda (#{clause 30041}# #{clauses 30042}#) | |
29225 | (if (null? #{clauses 30042}#) | |
29226 | (let ((#{tmp 30044}# | |
014de9e2 | 29227 | ($sc-dispatch |
78a47455 | 29228 | #{clause 30041}# |
014de9e2 AW |
29229 | '(#(free-id |
29230 | #(syntax-object | |
29231 | else | |
29232 | ((top) | |
29233 | #(ribcage () () ()) | |
29234 | #(ribcage | |
29235 | #(f clause clauses) | |
29236 | #((top) (top) (top)) | |
78a47455 AW |
29237 | #("i29942" |
29238 | "i29943" | |
29239 | "i29944")) | |
014de9e2 AW |
29240 | #(ribcage |
29241 | #(e m1 m2) | |
29242 | #((top) (top) (top)) | |
78a47455 AW |
29243 | #("i29932" |
29244 | "i29933" | |
29245 | "i29934")) | |
014de9e2 AW |
29246 | #(ribcage () () ()) |
29247 | #(ribcage | |
29248 | #(x) | |
29249 | #((top)) | |
78a47455 | 29250 | #("i29929"))) |
014de9e2 AW |
29251 | (hygiene guile))) |
29252 | any | |
29253 | . | |
29254 | each-any)))) | |
78a47455 | 29255 | (if #{tmp 30044}# |
014de9e2 | 29256 | (@apply |
78a47455 | 29257 | (lambda (#{e1 30048}# #{e2 30049}#) |
014de9e2 AW |
29258 | (cons '#(syntax-object |
29259 | begin | |
29260 | ((top) | |
29261 | #(ribcage | |
29262 | #(e1 e2) | |
29263 | #((top) (top)) | |
78a47455 | 29264 | #("i29951" "i29952")) |
014de9e2 AW |
29265 | #(ribcage () () ()) |
29266 | #(ribcage | |
29267 | #(f clause clauses) | |
29268 | #((top) (top) (top)) | |
78a47455 AW |
29269 | #("i29942" |
29270 | "i29943" | |
29271 | "i29944")) | |
014de9e2 AW |
29272 | #(ribcage |
29273 | #(e m1 m2) | |
29274 | #((top) (top) (top)) | |
78a47455 AW |
29275 | #("i29932" |
29276 | "i29933" | |
29277 | "i29934")) | |
014de9e2 AW |
29278 | #(ribcage () () ()) |
29279 | #(ribcage | |
29280 | #(x) | |
29281 | #((top)) | |
78a47455 | 29282 | #("i29929"))) |
014de9e2 | 29283 | (hygiene guile)) |
78a47455 AW |
29284 | (cons #{e1 30048}# #{e2 30049}#))) |
29285 | #{tmp 30044}#) | |
29286 | (let ((#{tmp 30050}# | |
014de9e2 | 29287 | ($sc-dispatch |
78a47455 | 29288 | #{clause 30041}# |
014de9e2 | 29289 | '(each-any any . each-any)))) |
78a47455 | 29290 | (if #{tmp 30050}# |
014de9e2 | 29291 | (@apply |
78a47455 AW |
29292 | (lambda (#{k 30054}# |
29293 | #{e1 30055}# | |
29294 | #{e2 30056}#) | |
014de9e2 AW |
29295 | (list '#(syntax-object |
29296 | if | |
29297 | ((top) | |
29298 | #(ribcage | |
29299 | #(k e1 e2) | |
29300 | #((top) (top) (top)) | |
78a47455 AW |
29301 | #("i29957" |
29302 | "i29958" | |
29303 | "i29959")) | |
014de9e2 AW |
29304 | #(ribcage () () ()) |
29305 | #(ribcage | |
29306 | #(f clause clauses) | |
29307 | #((top) (top) (top)) | |
78a47455 AW |
29308 | #("i29942" |
29309 | "i29943" | |
29310 | "i29944")) | |
014de9e2 AW |
29311 | #(ribcage |
29312 | #(e m1 m2) | |
29313 | #((top) (top) (top)) | |
78a47455 AW |
29314 | #("i29932" |
29315 | "i29933" | |
29316 | "i29934")) | |
014de9e2 AW |
29317 | #(ribcage () () ()) |
29318 | #(ribcage | |
29319 | #(x) | |
29320 | #((top)) | |
78a47455 | 29321 | #("i29929"))) |
014de9e2 | 29322 | (hygiene guile)) |
df40b969 | 29323 | (list '#(syntax-object |
014de9e2 | 29324 | memv |
df40b969 AW |
29325 | ((top) |
29326 | #(ribcage | |
29327 | #(k e1 e2) | |
29328 | #((top) | |
29329 | (top) | |
29330 | (top)) | |
78a47455 AW |
29331 | #("i29957" |
29332 | "i29958" | |
29333 | "i29959")) | |
014de9e2 AW |
29334 | #(ribcage () () ()) |
29335 | #(ribcage | |
29336 | #(f | |
29337 | clause | |
29338 | clauses) | |
29339 | #((top) | |
29340 | (top) | |
29341 | (top)) | |
78a47455 AW |
29342 | #("i29942" |
29343 | "i29943" | |
29344 | "i29944")) | |
014de9e2 AW |
29345 | #(ribcage |
29346 | #(e m1 m2) | |
29347 | #((top) | |
29348 | (top) | |
29349 | (top)) | |
78a47455 AW |
29350 | #("i29932" |
29351 | "i29933" | |
29352 | "i29934")) | |
df40b969 AW |
29353 | #(ribcage () () ()) |
29354 | #(ribcage | |
014de9e2 | 29355 | #(x) |
df40b969 | 29356 | #((top)) |
78a47455 | 29357 | #("i29929"))) |
014de9e2 AW |
29358 | (hygiene guile)) |
29359 | '#(syntax-object | |
29360 | t | |
29361 | ((top) | |
29362 | #(ribcage | |
29363 | #(k e1 e2) | |
29364 | #((top) | |
29365 | (top) | |
29366 | (top)) | |
78a47455 AW |
29367 | #("i29957" |
29368 | "i29958" | |
29369 | "i29959")) | |
df40b969 AW |
29370 | #(ribcage () () ()) |
29371 | #(ribcage | |
29372 | #(f | |
29373 | clause | |
29374 | clauses) | |
29375 | #((top) | |
29376 | (top) | |
29377 | (top)) | |
78a47455 AW |
29378 | #("i29942" |
29379 | "i29943" | |
29380 | "i29944")) | |
df40b969 AW |
29381 | #(ribcage |
29382 | #(e m1 m2) | |
29383 | #((top) | |
29384 | (top) | |
29385 | (top)) | |
78a47455 AW |
29386 | #("i29932" |
29387 | "i29933" | |
29388 | "i29934")) | |
df40b969 AW |
29389 | #(ribcage () () ()) |
29390 | #(ribcage | |
29391 | #(x) | |
29392 | #((top)) | |
78a47455 | 29393 | #("i29929"))) |
df40b969 AW |
29394 | (hygiene guile)) |
29395 | (list '#(syntax-object | |
014de9e2 | 29396 | quote |
df40b969 AW |
29397 | ((top) |
29398 | #(ribcage | |
29399 | #(k e1 e2) | |
29400 | #((top) | |
29401 | (top) | |
29402 | (top)) | |
78a47455 AW |
29403 | #("i29957" |
29404 | "i29958" | |
29405 | "i29959")) | |
df40b969 AW |
29406 | #(ribcage |
29407 | () | |
29408 | () | |
29409 | ()) | |
29410 | #(ribcage | |
29411 | #(f | |
29412 | clause | |
29413 | clauses) | |
29414 | #((top) | |
29415 | (top) | |
29416 | (top)) | |
78a47455 AW |
29417 | #("i29942" |
29418 | "i29943" | |
29419 | "i29944")) | |
df40b969 AW |
29420 | #(ribcage |
29421 | #(e m1 m2) | |
014de9e2 AW |
29422 | #((top) |
29423 | (top) | |
29424 | (top)) | |
78a47455 AW |
29425 | #("i29932" |
29426 | "i29933" | |
29427 | "i29934")) | |
014de9e2 AW |
29428 | #(ribcage |
29429 | () | |
29430 | () | |
29431 | ()) | |
29432 | #(ribcage | |
29433 | #(x) | |
29434 | #((top)) | |
78a47455 | 29435 | #("i29929"))) |
014de9e2 AW |
29436 | (hygiene |
29437 | guile)) | |
78a47455 | 29438 | #{k 30054}#)) |
014de9e2 AW |
29439 | (cons '#(syntax-object |
29440 | begin | |
29441 | ((top) | |
29442 | #(ribcage | |
29443 | #(k e1 e2) | |
29444 | #((top) | |
29445 | (top) | |
29446 | (top)) | |
78a47455 AW |
29447 | #("i29957" |
29448 | "i29958" | |
29449 | "i29959")) | |
014de9e2 AW |
29450 | #(ribcage () () ()) |
29451 | #(ribcage | |
29452 | #(f | |
29453 | clause | |
29454 | clauses) | |
29455 | #((top) | |
29456 | (top) | |
29457 | (top)) | |
78a47455 AW |
29458 | #("i29942" |
29459 | "i29943" | |
29460 | "i29944")) | |
014de9e2 AW |
29461 | #(ribcage |
29462 | #(e m1 m2) | |
29463 | #((top) | |
29464 | (top) | |
29465 | (top)) | |
78a47455 AW |
29466 | #("i29932" |
29467 | "i29933" | |
29468 | "i29934")) | |
014de9e2 AW |
29469 | #(ribcage () () ()) |
29470 | #(ribcage | |
29471 | #(x) | |
29472 | #((top)) | |
78a47455 | 29473 | #("i29929"))) |
014de9e2 | 29474 | (hygiene guile)) |
78a47455 AW |
29475 | (cons #{e1 30055}# |
29476 | #{e2 30056}#)))) | |
29477 | #{tmp 30050}#) | |
014de9e2 AW |
29478 | (syntax-violation |
29479 | 'case | |
29480 | "bad clause" | |
78a47455 AW |
29481 | #{x 29983}# |
29482 | #{clause 30041}#))))) | |
29483 | (let ((#{tmp 30064}# | |
29484 | (#{f 30038}# | |
29485 | (car #{clauses 30042}#) | |
29486 | (cdr #{clauses 30042}#)))) | |
29487 | (let ((#{tmp 30067}# | |
014de9e2 | 29488 | ($sc-dispatch |
78a47455 | 29489 | #{clause 30041}# |
014de9e2 | 29490 | '(each-any any . each-any)))) |
78a47455 | 29491 | (if #{tmp 30067}# |
014de9e2 | 29492 | (@apply |
78a47455 AW |
29493 | (lambda (#{k 30071}# |
29494 | #{e1 30072}# | |
29495 | #{e2 30073}#) | |
014de9e2 AW |
29496 | (list '#(syntax-object |
29497 | if | |
df40b969 AW |
29498 | ((top) |
29499 | #(ribcage | |
014de9e2 AW |
29500 | #(k e1 e2) |
29501 | #((top) (top) (top)) | |
78a47455 AW |
29502 | #("i29973" |
29503 | "i29974" | |
29504 | "i29975")) | |
df40b969 AW |
29505 | #(ribcage () () ()) |
29506 | #(ribcage | |
014de9e2 | 29507 | #(rest) |
df40b969 | 29508 | #((top)) |
78a47455 | 29509 | #("i29969")) |
014de9e2 | 29510 | #(ribcage () () ()) |
df40b969 | 29511 | #(ribcage |
014de9e2 AW |
29512 | #(f clause clauses) |
29513 | #((top) (top) (top)) | |
78a47455 AW |
29514 | #("i29942" |
29515 | "i29943" | |
29516 | "i29944")) | |
014de9e2 AW |
29517 | #(ribcage |
29518 | #(e m1 m2) | |
29519 | #((top) (top) (top)) | |
78a47455 AW |
29520 | #("i29932" |
29521 | "i29933" | |
29522 | "i29934")) | |
df40b969 AW |
29523 | #(ribcage () () ()) |
29524 | #(ribcage | |
29525 | #(x) | |
29526 | #((top)) | |
78a47455 | 29527 | #("i29929"))) |
014de9e2 AW |
29528 | (hygiene guile)) |
29529 | (list '#(syntax-object | |
29530 | memv | |
df40b969 AW |
29531 | ((top) |
29532 | #(ribcage | |
014de9e2 AW |
29533 | #(k e1 e2) |
29534 | #((top) (top) (top)) | |
78a47455 AW |
29535 | #("i29973" |
29536 | "i29974" | |
29537 | "i29975")) | |
014de9e2 AW |
29538 | #(ribcage () () ()) |
29539 | #(ribcage | |
29540 | #(rest) | |
29541 | #((top)) | |
78a47455 | 29542 | #("i29969")) |
014de9e2 AW |
29543 | #(ribcage () () ()) |
29544 | #(ribcage | |
29545 | #(f clause clauses) | |
29546 | #((top) (top) (top)) | |
78a47455 AW |
29547 | #("i29942" |
29548 | "i29943" | |
29549 | "i29944")) | |
014de9e2 AW |
29550 | #(ribcage |
29551 | #(e m1 m2) | |
29552 | #((top) (top) (top)) | |
78a47455 AW |
29553 | #("i29932" |
29554 | "i29933" | |
29555 | "i29934")) | |
df40b969 AW |
29556 | #(ribcage () () ()) |
29557 | #(ribcage | |
29558 | #(x) | |
29559 | #((top)) | |
78a47455 | 29560 | #("i29929"))) |
df40b969 | 29561 | (hygiene guile)) |
014de9e2 AW |
29562 | '#(syntax-object |
29563 | t | |
df40b969 AW |
29564 | ((top) |
29565 | #(ribcage | |
014de9e2 AW |
29566 | #(k e1 e2) |
29567 | #((top) (top) (top)) | |
78a47455 AW |
29568 | #("i29973" |
29569 | "i29974" | |
29570 | "i29975")) | |
014de9e2 AW |
29571 | #(ribcage () () ()) |
29572 | #(ribcage | |
29573 | #(rest) | |
29574 | #((top)) | |
78a47455 | 29575 | #("i29969")) |
014de9e2 AW |
29576 | #(ribcage () () ()) |
29577 | #(ribcage | |
29578 | #(f clause clauses) | |
29579 | #((top) (top) (top)) | |
78a47455 AW |
29580 | #("i29942" |
29581 | "i29943" | |
29582 | "i29944")) | |
014de9e2 AW |
29583 | #(ribcage |
29584 | #(e m1 m2) | |
29585 | #((top) (top) (top)) | |
78a47455 AW |
29586 | #("i29932" |
29587 | "i29933" | |
29588 | "i29934")) | |
df40b969 AW |
29589 | #(ribcage () () ()) |
29590 | #(ribcage | |
29591 | #(x) | |
29592 | #((top)) | |
78a47455 | 29593 | #("i29929"))) |
014de9e2 AW |
29594 | (hygiene guile)) |
29595 | (list '#(syntax-object | |
29596 | quote | |
df40b969 AW |
29597 | ((top) |
29598 | #(ribcage | |
014de9e2 | 29599 | #(k e1 e2) |
df40b969 | 29600 | #((top) |
df40b969 AW |
29601 | (top) |
29602 | (top)) | |
78a47455 AW |
29603 | #("i29973" |
29604 | "i29974" | |
29605 | "i29975")) | |
df40b969 AW |
29606 | #(ribcage |
29607 | () | |
29608 | () | |
29609 | ()) | |
29610 | #(ribcage | |
014de9e2 | 29611 | #(rest) |
df40b969 | 29612 | #((top)) |
78a47455 | 29613 | #("i29969")) |
014de9e2 AW |
29614 | #(ribcage |
29615 | () | |
29616 | () | |
29617 | ()) | |
df40b969 | 29618 | #(ribcage |
014de9e2 AW |
29619 | #(f |
29620 | clause | |
29621 | clauses) | |
df40b969 AW |
29622 | #((top) |
29623 | (top) | |
014de9e2 | 29624 | (top)) |
78a47455 AW |
29625 | #("i29942" |
29626 | "i29943" | |
29627 | "i29944")) | |
014de9e2 AW |
29628 | #(ribcage |
29629 | #(e m1 m2) | |
29630 | #((top) | |
df40b969 AW |
29631 | (top) |
29632 | (top)) | |
78a47455 AW |
29633 | #("i29932" |
29634 | "i29933" | |
29635 | "i29934")) | |
df40b969 AW |
29636 | #(ribcage |
29637 | () | |
29638 | () | |
29639 | ()) | |
29640 | #(ribcage | |
29641 | #(x) | |
29642 | #((top)) | |
78a47455 | 29643 | #("i29929"))) |
014de9e2 | 29644 | (hygiene guile)) |
78a47455 | 29645 | #{k 30071}#)) |
014de9e2 AW |
29646 | (cons '#(syntax-object |
29647 | begin | |
29648 | ((top) | |
29649 | #(ribcage | |
29650 | #(k e1 e2) | |
29651 | #((top) (top) (top)) | |
78a47455 AW |
29652 | #("i29973" |
29653 | "i29974" | |
29654 | "i29975")) | |
014de9e2 AW |
29655 | #(ribcage () () ()) |
29656 | #(ribcage | |
29657 | #(rest) | |
29658 | #((top)) | |
78a47455 | 29659 | #("i29969")) |
014de9e2 AW |
29660 | #(ribcage () () ()) |
29661 | #(ribcage | |
29662 | #(f clause clauses) | |
29663 | #((top) (top) (top)) | |
78a47455 AW |
29664 | #("i29942" |
29665 | "i29943" | |
29666 | "i29944")) | |
014de9e2 AW |
29667 | #(ribcage |
29668 | #(e m1 m2) | |
29669 | #((top) (top) (top)) | |
78a47455 AW |
29670 | #("i29932" |
29671 | "i29933" | |
29672 | "i29934")) | |
014de9e2 AW |
29673 | #(ribcage () () ()) |
29674 | #(ribcage | |
29675 | #(x) | |
29676 | #((top)) | |
78a47455 | 29677 | #("i29929"))) |
014de9e2 | 29678 | (hygiene guile)) |
78a47455 AW |
29679 | (cons #{e1 30072}# |
29680 | #{e2 30073}#)) | |
29681 | #{tmp 30064}#)) | |
29682 | #{tmp 30067}#) | |
014de9e2 AW |
29683 | (syntax-violation |
29684 | 'case | |
29685 | "bad clause" | |
78a47455 AW |
29686 | #{x 29983}# |
29687 | #{clause 30041}#)))))))) | |
29688 | (#{f 30038}# #{m1 29990}# #{m2 29991}#)))) | |
29689 | (let ((#{body 29993}# #{tmp 29992}#)) | |
34c5fe83 AW |
29690 | (list '#(syntax-object |
29691 | let | |
29692 | ((top) | |
29693 | #(ribcage () () ()) | |
78a47455 | 29694 | #(ribcage #(body) #((top)) #("i29940")) |
34c5fe83 AW |
29695 | #(ribcage |
29696 | #(e m1 m2) | |
29697 | #((top) (top) (top)) | |
78a47455 | 29698 | #("i29932" "i29933" "i29934")) |
34c5fe83 | 29699 | #(ribcage () () ()) |
78a47455 | 29700 | #(ribcage #(x) #((top)) #("i29929"))) |
34c5fe83 AW |
29701 | (hygiene guile)) |
29702 | (list (list '#(syntax-object | |
29703 | t | |
29704 | ((top) | |
29705 | #(ribcage () () ()) | |
78a47455 | 29706 | #(ribcage #(body) #((top)) #("i29940")) |
34c5fe83 AW |
29707 | #(ribcage |
29708 | #(e m1 m2) | |
29709 | #((top) (top) (top)) | |
78a47455 | 29710 | #("i29932" "i29933" "i29934")) |
34c5fe83 | 29711 | #(ribcage () () ()) |
78a47455 | 29712 | #(ribcage #(x) #((top)) #("i29929"))) |
34c5fe83 | 29713 | (hygiene guile)) |
78a47455 AW |
29714 | #{e 29989}#)) |
29715 | #{body 29993}#)))) | |
29716 | #{tmp 29985}#) | |
014de9e2 AW |
29717 | (syntax-violation |
29718 | #f | |
29719 | "source expression failed to match any pattern" | |
78a47455 | 29720 | #{x 29983}#)))))) |
014de9e2 AW |
29721 | |
29722 | (define make-variable-transformer | |
78a47455 AW |
29723 | (lambda (#{proc 30091}#) |
29724 | (if (procedure? #{proc 30091}#) | |
014de9e2 | 29725 | (letrec* |
78a47455 AW |
29726 | ((#{trans 30092}# |
29727 | (lambda (#{x 30098}#) | |
29728 | (#{proc 30091}# #{x 30098}#)))) | |
014de9e2 AW |
29729 | (begin |
29730 | (set-procedure-property! | |
78a47455 | 29731 | #{trans 30092}# |
014de9e2 AW |
29732 | 'variable-transformer |
29733 | #t) | |
78a47455 | 29734 | #{trans 30092}#)) |
014de9e2 | 29735 | (error "variable transformer not a procedure" |
78a47455 | 29736 | #{proc 30091}#)))) |
014de9e2 AW |
29737 | |
29738 | (define identifier-syntax | |
29739 | (make-syntax-transformer | |
29740 | 'identifier-syntax | |
29741 | 'macro | |
78a47455 AW |
29742 | (lambda (#{x 30130}#) |
29743 | (let ((#{tmp 30132}# | |
29744 | ($sc-dispatch #{x 30130}# '(_ any)))) | |
29745 | (if #{tmp 30132}# | |
014de9e2 | 29746 | (@apply |
78a47455 | 29747 | (lambda (#{e 30136}#) |
014de9e2 AW |
29748 | (list '#(syntax-object |
29749 | lambda | |
29750 | ((top) | |
78a47455 | 29751 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29752 | #(ribcage () () ()) |
78a47455 | 29753 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29754 | (hygiene guile)) |
29755 | '(#(syntax-object | |
29756 | x | |
29757 | ((top) | |
78a47455 | 29758 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29759 | #(ribcage () () ()) |
78a47455 | 29760 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29761 | (hygiene guile))) |
29762 | '#((#(syntax-object | |
29763 | macro-type | |
29764 | ((top) | |
78a47455 | 29765 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29766 | #(ribcage () () ()) |
78a47455 | 29767 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29768 | (hygiene guile)) |
29769 | . | |
29770 | #(syntax-object | |
29771 | identifier-syntax | |
29772 | ((top) | |
78a47455 | 29773 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29774 | #(ribcage () () ()) |
78a47455 | 29775 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29776 | (hygiene guile)))) |
29777 | (list '#(syntax-object | |
29778 | syntax-case | |
29779 | ((top) | |
78a47455 | 29780 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29781 | #(ribcage () () ()) |
78a47455 | 29782 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29783 | (hygiene guile)) |
29784 | '#(syntax-object | |
29785 | x | |
29786 | ((top) | |
78a47455 | 29787 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29788 | #(ribcage () () ()) |
78a47455 | 29789 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29790 | (hygiene guile)) |
29791 | '() | |
29792 | (list '#(syntax-object | |
29793 | id | |
29794 | ((top) | |
78a47455 | 29795 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29796 | #(ribcage () () ()) |
78a47455 | 29797 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29798 | (hygiene guile)) |
29799 | '(#(syntax-object | |
29800 | identifier? | |
29801 | ((top) | |
78a47455 | 29802 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29803 | #(ribcage () () ()) |
78a47455 | 29804 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29805 | (hygiene guile)) |
29806 | (#(syntax-object | |
29807 | syntax | |
29808 | ((top) | |
78a47455 | 29809 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29810 | #(ribcage () () ()) |
78a47455 | 29811 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29812 | (hygiene guile)) |
29813 | #(syntax-object | |
29814 | id | |
29815 | ((top) | |
78a47455 | 29816 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29817 | #(ribcage () () ()) |
78a47455 | 29818 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29819 | (hygiene guile)))) |
29820 | (list '#(syntax-object | |
29821 | syntax | |
29822 | ((top) | |
78a47455 | 29823 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29824 | #(ribcage () () ()) |
78a47455 | 29825 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 | 29826 | (hygiene guile)) |
78a47455 | 29827 | #{e 30136}#)) |
014de9e2 AW |
29828 | (list '(#(syntax-object |
29829 | _ | |
29830 | ((top) | |
78a47455 | 29831 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29832 | #(ribcage () () ()) |
78a47455 | 29833 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29834 | (hygiene guile)) |
29835 | #(syntax-object | |
29836 | x | |
29837 | ((top) | |
78a47455 | 29838 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29839 | #(ribcage () () ()) |
78a47455 | 29840 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29841 | (hygiene guile)) |
29842 | #(syntax-object | |
29843 | ... | |
29844 | ((top) | |
78a47455 | 29845 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29846 | #(ribcage () () ()) |
78a47455 | 29847 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29848 | (hygiene guile))) |
29849 | (list '#(syntax-object | |
29850 | syntax | |
29851 | ((top) | |
78a47455 | 29852 | #(ribcage #(e) #((top)) #("i30105")) |
014de9e2 | 29853 | #(ribcage () () ()) |
78a47455 | 29854 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 | 29855 | (hygiene guile)) |
78a47455 | 29856 | (cons #{e 30136}# |
014de9e2 AW |
29857 | '(#(syntax-object |
29858 | x | |
29859 | ((top) | |
29860 | #(ribcage | |
29861 | #(e) | |
29862 | #((top)) | |
78a47455 | 29863 | #("i30105")) |
014de9e2 AW |
29864 | #(ribcage () () ()) |
29865 | #(ribcage | |
29866 | #(x) | |
29867 | #((top)) | |
78a47455 | 29868 | #("i30102"))) |
014de9e2 AW |
29869 | (hygiene guile)) |
29870 | #(syntax-object | |
29871 | ... | |
29872 | ((top) | |
29873 | #(ribcage | |
29874 | #(e) | |
29875 | #((top)) | |
78a47455 | 29876 | #("i30105")) |
014de9e2 AW |
29877 | #(ribcage () () ()) |
29878 | #(ribcage | |
29879 | #(x) | |
29880 | #((top)) | |
78a47455 | 29881 | #("i30102"))) |
014de9e2 | 29882 | (hygiene guile))))))))) |
78a47455 AW |
29883 | #{tmp 30132}#) |
29884 | (let ((#{tmp 30137}# | |
014de9e2 | 29885 | ($sc-dispatch |
78a47455 | 29886 | #{x 30130}# |
014de9e2 AW |
29887 | '(_ (any any) |
29888 | ((#(free-id | |
29889 | #(syntax-object | |
29890 | set! | |
29891 | ((top) | |
29892 | #(ribcage () () ()) | |
78a47455 | 29893 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29894 | (hygiene guile))) |
29895 | any | |
29896 | any) | |
29897 | any))))) | |
78a47455 | 29898 | (if (if #{tmp 30137}# |
014de9e2 | 29899 | (@apply |
78a47455 AW |
29900 | (lambda (#{id 30141}# |
29901 | #{exp1 30142}# | |
29902 | #{var 30143}# | |
29903 | #{val 30144}# | |
29904 | #{exp2 30145}#) | |
29905 | (if (identifier? #{id 30141}#) | |
29906 | (identifier? #{var 30143}#) | |
014de9e2 | 29907 | #f)) |
78a47455 | 29908 | #{tmp 30137}#) |
014de9e2 AW |
29909 | #f) |
29910 | (@apply | |
78a47455 AW |
29911 | (lambda (#{id 30146}# |
29912 | #{exp1 30147}# | |
29913 | #{var 30148}# | |
29914 | #{val 30149}# | |
29915 | #{exp2 30150}#) | |
014de9e2 AW |
29916 | (list '#(syntax-object |
29917 | make-variable-transformer | |
29918 | ((top) | |
29919 | #(ribcage | |
29920 | #(id exp1 var val exp2) | |
29921 | #((top) (top) (top) (top) (top)) | |
78a47455 | 29922 | #("i30120" "i30121" "i30122" "i30123" "i30124")) |
014de9e2 | 29923 | #(ribcage () () ()) |
78a47455 | 29924 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29925 | (hygiene guile)) |
29926 | (list '#(syntax-object | |
29927 | lambda | |
29928 | ((top) | |
29929 | #(ribcage | |
29930 | #(id exp1 var val exp2) | |
29931 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
29932 | #("i30120" |
29933 | "i30121" | |
29934 | "i30122" | |
29935 | "i30123" | |
29936 | "i30124")) | |
014de9e2 | 29937 | #(ribcage () () ()) |
78a47455 | 29938 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29939 | (hygiene guile)) |
29940 | '(#(syntax-object | |
29941 | x | |
29942 | ((top) | |
29943 | #(ribcage | |
29944 | #(id exp1 var val exp2) | |
29945 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
29946 | #("i30120" |
29947 | "i30121" | |
29948 | "i30122" | |
29949 | "i30123" | |
29950 | "i30124")) | |
014de9e2 | 29951 | #(ribcage () () ()) |
78a47455 | 29952 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29953 | (hygiene guile))) |
29954 | '#((#(syntax-object | |
29955 | macro-type | |
29956 | ((top) | |
29957 | #(ribcage | |
29958 | #(id exp1 var val exp2) | |
29959 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
29960 | #("i30120" |
29961 | "i30121" | |
29962 | "i30122" | |
29963 | "i30123" | |
29964 | "i30124")) | |
014de9e2 | 29965 | #(ribcage () () ()) |
78a47455 | 29966 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29967 | (hygiene guile)) |
29968 | . | |
29969 | #(syntax-object | |
29970 | variable-transformer | |
29971 | ((top) | |
29972 | #(ribcage | |
29973 | #(id exp1 var val exp2) | |
29974 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
29975 | #("i30120" |
29976 | "i30121" | |
29977 | "i30122" | |
29978 | "i30123" | |
29979 | "i30124")) | |
014de9e2 | 29980 | #(ribcage () () ()) |
78a47455 | 29981 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29982 | (hygiene guile)))) |
29983 | (list '#(syntax-object | |
29984 | syntax-case | |
29985 | ((top) | |
29986 | #(ribcage | |
29987 | #(id exp1 var val exp2) | |
29988 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
29989 | #("i30120" |
29990 | "i30121" | |
29991 | "i30122" | |
29992 | "i30123" | |
29993 | "i30124")) | |
014de9e2 | 29994 | #(ribcage () () ()) |
78a47455 | 29995 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
29996 | (hygiene guile)) |
29997 | '#(syntax-object | |
29998 | x | |
29999 | ((top) | |
30000 | #(ribcage | |
30001 | #(id exp1 var val exp2) | |
30002 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
30003 | #("i30120" |
30004 | "i30121" | |
30005 | "i30122" | |
30006 | "i30123" | |
30007 | "i30124")) | |
014de9e2 | 30008 | #(ribcage () () ()) |
78a47455 | 30009 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
30010 | (hygiene guile)) |
30011 | '(#(syntax-object | |
30012 | set! | |
30013 | ((top) | |
30014 | #(ribcage | |
30015 | #(id exp1 var val exp2) | |
30016 | #((top) (top) (top) (top) (top)) | |
78a47455 AW |
30017 | #("i30120" |
30018 | "i30121" | |
30019 | "i30122" | |
30020 | "i30123" | |
30021 | "i30124")) | |
014de9e2 | 30022 | #(ribcage () () ()) |
78a47455 | 30023 | #(ribcage #(x) #((top)) #("i30102"))) |
014de9e2 AW |
30024 | (hygiene guile))) |
30025 | (list (list '#(syntax-object | |
30026 | set! | |
30027 | ((top) | |
30028 | #(ribcage | |
30029 | #(id exp1 var val exp2) | |
30030 | #((top) | |
30031 | (top) | |
30032 | (top) | |
30033 | (top) | |
30034 | (top)) | |
78a47455 AW |
30035 | #("i30120" |
30036 | "i30121" | |
30037 | "i30122" | |
30038 | "i30123" | |
30039 | "i30124")) | |
014de9e2 AW |
30040 | #(ribcage () () ()) |
30041 | #(ribcage | |
30042 | #(x) | |
30043 | #((top)) | |
78a47455 | 30044 | #("i30102"))) |
014de9e2 | 30045 | (hygiene guile)) |
78a47455 AW |
30046 | #{var 30148}# |
30047 | #{val 30149}#) | |
014de9e2 AW |
30048 | (list '#(syntax-object |
30049 | syntax | |
30050 | ((top) | |
30051 | #(ribcage | |
30052 | #(id exp1 var val exp2) | |
30053 | #((top) | |
30054 | (top) | |
30055 | (top) | |
30056 | (top) | |
30057 | (top)) | |
78a47455 AW |
30058 | #("i30120" |
30059 | "i30121" | |
30060 | "i30122" | |
30061 | "i30123" | |
30062 | "i30124")) | |
014de9e2 AW |
30063 | #(ribcage () () ()) |
30064 | #(ribcage | |
30065 | #(x) | |
30066 | #((top)) | |
78a47455 | 30067 | #("i30102"))) |
014de9e2 | 30068 | (hygiene guile)) |
78a47455 AW |
30069 | #{exp2 30150}#)) |
30070 | (list (cons #{id 30146}# | |
014de9e2 AW |
30071 | '(#(syntax-object |
30072 | x | |
30073 | ((top) | |
30074 | #(ribcage | |
30075 | #(id exp1 var val exp2) | |
30076 | #((top) | |
30077 | (top) | |
30078 | (top) | |
30079 | (top) | |
30080 | (top)) | |
78a47455 AW |
30081 | #("i30120" |
30082 | "i30121" | |
30083 | "i30122" | |
30084 | "i30123" | |
30085 | "i30124")) | |
014de9e2 AW |
30086 | #(ribcage () () ()) |
30087 | #(ribcage | |
30088 | #(x) | |
30089 | #((top)) | |
78a47455 | 30090 | #("i30102"))) |
014de9e2 AW |
30091 | (hygiene guile)) |
30092 | #(syntax-object | |
30093 | ... | |
30094 | ((top) | |
30095 | #(ribcage | |
30096 | #(id exp1 var val exp2) | |
30097 | #((top) | |
30098 | (top) | |
30099 | (top) | |
30100 | (top) | |
30101 | (top)) | |
78a47455 AW |
30102 | #("i30120" |
30103 | "i30121" | |
30104 | "i30122" | |
30105 | "i30123" | |
30106 | "i30124")) | |
014de9e2 AW |
30107 | #(ribcage () () ()) |
30108 | #(ribcage | |
30109 | #(x) | |
30110 | #((top)) | |
78a47455 | 30111 | #("i30102"))) |
014de9e2 AW |
30112 | (hygiene guile)))) |
30113 | (list '#(syntax-object | |
30114 | syntax | |
30115 | ((top) | |
30116 | #(ribcage | |
30117 | #(id exp1 var val exp2) | |
30118 | #((top) | |
30119 | (top) | |
30120 | (top) | |
30121 | (top) | |
30122 | (top)) | |
78a47455 AW |
30123 | #("i30120" |
30124 | "i30121" | |
30125 | "i30122" | |
30126 | "i30123" | |
30127 | "i30124")) | |
014de9e2 AW |
30128 | #(ribcage () () ()) |
30129 | #(ribcage | |
30130 | #(x) | |
30131 | #((top)) | |
78a47455 | 30132 | #("i30102"))) |
014de9e2 | 30133 | (hygiene guile)) |
78a47455 | 30134 | (cons #{exp1 30147}# |
014de9e2 AW |
30135 | '(#(syntax-object |
30136 | x | |
30137 | ((top) | |
30138 | #(ribcage | |
30139 | #(id | |
30140 | exp1 | |
30141 | var | |
30142 | val | |
30143 | exp2) | |
30144 | #((top) | |
30145 | (top) | |
30146 | (top) | |
30147 | (top) | |
30148 | (top)) | |
78a47455 AW |
30149 | #("i30120" |
30150 | "i30121" | |
30151 | "i30122" | |
30152 | "i30123" | |
30153 | "i30124")) | |
014de9e2 AW |
30154 | #(ribcage () () ()) |
30155 | #(ribcage | |
30156 | #(x) | |
30157 | #((top)) | |
78a47455 | 30158 | #("i30102"))) |
014de9e2 AW |
30159 | (hygiene guile)) |
30160 | #(syntax-object | |
30161 | ... | |
30162 | ((top) | |
30163 | #(ribcage | |
30164 | #(id | |
30165 | exp1 | |
30166 | var | |
30167 | val | |
30168 | exp2) | |
30169 | #((top) | |
30170 | (top) | |
30171 | (top) | |
30172 | (top) | |
30173 | (top)) | |
78a47455 AW |
30174 | #("i30120" |
30175 | "i30121" | |
30176 | "i30122" | |
30177 | "i30123" | |
30178 | "i30124")) | |
014de9e2 AW |
30179 | #(ribcage () () ()) |
30180 | #(ribcage | |
30181 | #(x) | |
30182 | #((top)) | |
78a47455 | 30183 | #("i30102"))) |
014de9e2 | 30184 | (hygiene guile)))))) |
78a47455 | 30185 | (list #{id 30146}# |
014de9e2 AW |
30186 | (list '#(syntax-object |
30187 | identifier? | |
30188 | ((top) | |
30189 | #(ribcage | |
30190 | #(id exp1 var val exp2) | |
30191 | #((top) | |
30192 | (top) | |
30193 | (top) | |
30194 | (top) | |
30195 | (top)) | |
78a47455 AW |
30196 | #("i30120" |
30197 | "i30121" | |
30198 | "i30122" | |
30199 | "i30123" | |
30200 | "i30124")) | |
014de9e2 AW |
30201 | #(ribcage () () ()) |
30202 | #(ribcage | |
30203 | #(x) | |
30204 | #((top)) | |
78a47455 | 30205 | #("i30102"))) |
014de9e2 AW |
30206 | (hygiene guile)) |
30207 | (list '#(syntax-object | |
30208 | syntax | |
30209 | ((top) | |
30210 | #(ribcage | |
30211 | #(id | |
30212 | exp1 | |
30213 | var | |
30214 | val | |
30215 | exp2) | |
30216 | #((top) | |
30217 | (top) | |
30218 | (top) | |
30219 | (top) | |
30220 | (top)) | |
78a47455 AW |
30221 | #("i30120" |
30222 | "i30121" | |
30223 | "i30122" | |
30224 | "i30123" | |
30225 | "i30124")) | |
014de9e2 AW |
30226 | #(ribcage () () ()) |
30227 | #(ribcage | |
30228 | #(x) | |
30229 | #((top)) | |
78a47455 | 30230 | #("i30102"))) |
014de9e2 | 30231 | (hygiene guile)) |
78a47455 | 30232 | #{id 30146}#)) |
014de9e2 AW |
30233 | (list '#(syntax-object |
30234 | syntax | |
30235 | ((top) | |
30236 | #(ribcage | |
30237 | #(id exp1 var val exp2) | |
30238 | #((top) | |
30239 | (top) | |
30240 | (top) | |
30241 | (top) | |
30242 | (top)) | |
78a47455 AW |
30243 | #("i30120" |
30244 | "i30121" | |
30245 | "i30122" | |
30246 | "i30123" | |
30247 | "i30124")) | |
014de9e2 AW |
30248 | #(ribcage () () ()) |
30249 | #(ribcage | |
30250 | #(x) | |
30251 | #((top)) | |
78a47455 | 30252 | #("i30102"))) |
014de9e2 | 30253 | (hygiene guile)) |
78a47455 AW |
30254 | #{exp1 30147}#)))))) |
30255 | #{tmp 30137}#) | |
014de9e2 AW |
30256 | (syntax-violation |
30257 | #f | |
30258 | "source expression failed to match any pattern" | |
78a47455 | 30259 | #{x 30130}#)))))))) |
97bc28b6 AW |
30260 | |
30261 | (define define* | |
e809758a AW |
30262 | (make-syntax-transformer |
30263 | 'define* | |
97bc28b6 | 30264 | 'macro |
78a47455 AW |
30265 | (lambda (#{x 30182}#) |
30266 | (let ((#{tmp 30184}# | |
014de9e2 | 30267 | ($sc-dispatch |
78a47455 | 30268 | #{x 30182}# |
014de9e2 | 30269 | '(_ (any . any) any . each-any)))) |
78a47455 | 30270 | (if #{tmp 30184}# |
014de9e2 | 30271 | (@apply |
78a47455 AW |
30272 | (lambda (#{id 30188}# |
30273 | #{args 30189}# | |
30274 | #{b0 30190}# | |
30275 | #{b1 30191}#) | |
014de9e2 AW |
30276 | (list '#(syntax-object |
30277 | define | |
30278 | ((top) | |
30279 | #(ribcage | |
30280 | #(id args b0 b1) | |
30281 | #((top) (top) (top) (top)) | |
78a47455 | 30282 | #("i30164" "i30165" "i30166" "i30167")) |
014de9e2 | 30283 | #(ribcage () () ()) |
78a47455 | 30284 | #(ribcage #(x) #((top)) #("i30161"))) |
014de9e2 | 30285 | (hygiene guile)) |
78a47455 | 30286 | #{id 30188}# |
014de9e2 AW |
30287 | (cons '#(syntax-object |
30288 | lambda* | |
30289 | ((top) | |
30290 | #(ribcage | |
30291 | #(id args b0 b1) | |
30292 | #((top) (top) (top) (top)) | |
78a47455 | 30293 | #("i30164" "i30165" "i30166" "i30167")) |
014de9e2 | 30294 | #(ribcage () () ()) |
78a47455 | 30295 | #(ribcage #(x) #((top)) #("i30161"))) |
014de9e2 | 30296 | (hygiene guile)) |
78a47455 AW |
30297 | (cons #{args 30189}# |
30298 | (cons #{b0 30190}# #{b1 30191}#))))) | |
30299 | #{tmp 30184}#) | |
30300 | (let ((#{tmp 30192}# | |
30301 | ($sc-dispatch #{x 30182}# '(_ any any)))) | |
30302 | (if (if #{tmp 30192}# | |
df40b969 | 30303 | (@apply |
78a47455 | 30304 | (lambda (#{id 30196}# #{val 30197}#) |
014de9e2 AW |
30305 | (identifier? |
30306 | '#(syntax-object | |
30307 | x | |
30308 | ((top) | |
30309 | #(ribcage | |
30310 | #(id val) | |
30311 | #((top) (top)) | |
78a47455 | 30312 | #("i30174" "i30175")) |
014de9e2 | 30313 | #(ribcage () () ()) |
78a47455 | 30314 | #(ribcage #(x) #((top)) #("i30161"))) |
014de9e2 | 30315 | (hygiene guile)))) |
78a47455 | 30316 | #{tmp 30192}#) |
014de9e2 AW |
30317 | #f) |
30318 | (@apply | |
78a47455 | 30319 | (lambda (#{id 30198}# #{val 30199}#) |
014de9e2 AW |
30320 | (list '#(syntax-object |
30321 | define | |
30322 | ((top) | |
30323 | #(ribcage | |
30324 | #(id val) | |
30325 | #((top) (top)) | |
78a47455 | 30326 | #("i30178" "i30179")) |
014de9e2 | 30327 | #(ribcage () () ()) |
78a47455 | 30328 | #(ribcage #(x) #((top)) #("i30161"))) |
014de9e2 | 30329 | (hygiene guile)) |
78a47455 AW |
30330 | #{id 30198}# |
30331 | #{val 30199}#)) | |
30332 | #{tmp 30192}#) | |
014de9e2 AW |
30333 | (syntax-violation |
30334 | #f | |
30335 | "source expression failed to match any pattern" | |
78a47455 | 30336 | #{x 30182}#)))))))) |
65dd9e38 | 30337 |