HCoop / bpt / guile.git / blame
| 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* |
| e2ccab57 | 5 | ((#{make-void 203}# |
| 1bbe0a63 | 6 | (lambda (#{src 774}#) |
| e2ccab57 AW |
7 | (make-struct/no-tail |
| 8 | (vector-ref %expanded-vtables 0) | |
| 1bbe0a63 | 9 | #{src 774}#))) |
| e2ccab57 | 10 | (#{make-const 205}# |
| 1bbe0a63 | 11 | (lambda (#{src 776}# #{exp 777}#) |
| e2ccab57 AW |
12 | (make-struct/no-tail |
| 13 | (vector-ref %expanded-vtables 1) | |
| 1bbe0a63 AW |
14 | #{src 776}# |
| 15 | #{exp 777}#))) | |
| e2ccab57 | 16 | (#{make-lexical-ref 209}# |
| 1bbe0a63 | 17 | (lambda (#{src 784}# #{name 785}# #{gensym 786}#) |
| e2ccab57 AW |
18 | (make-struct/no-tail |
| 19 | (vector-ref %expanded-vtables 3) | |
| 1bbe0a63 AW |
20 | #{src 784}# |
| 21 | #{name 785}# | |
| 22 | #{gensym 786}#))) | |
| e2ccab57 | 23 | (#{make-lexical-set 211}# |
| 1bbe0a63 AW |
24 | (lambda (#{src 790}# |
| 25 | #{name 791}# | |
| 26 | #{gensym 792}# | |
| 27 | #{exp 793}#) | |
| e2ccab57 AW |
28 | (make-struct/no-tail |
| 29 | (vector-ref %expanded-vtables 4) | |
| 1bbe0a63 AW |
30 | #{src 790}# |
| 31 | #{name 791}# | |
| 32 | #{gensym 792}# | |
| 33 | #{exp 793}#))) | |
| e2ccab57 | 34 | (#{make-module-ref 213}# |
| 1bbe0a63 AW |
35 | (lambda (#{src 798}# |
| 36 | #{mod 799}# | |
| 37 | #{name 800}# | |
| 38 | #{public? 801}#) | |
| e2ccab57 AW |
39 | (make-struct/no-tail |
| 40 | (vector-ref %expanded-vtables 5) | |
| 1bbe0a63 AW |
41 | #{src 798}# |
| 42 | #{mod 799}# | |
| 43 | #{name 800}# | |
| 44 | #{public? 801}#))) | |
| e2ccab57 | 45 | (#{make-module-set 215}# |
| 1bbe0a63 AW |
46 | (lambda (#{src 806}# |
| 47 | #{mod 807}# | |
| 48 | #{name 808}# | |
| 49 | #{public? 809}# | |
| 50 | #{exp 810}#) | |
| e2ccab57 AW |
51 | (make-struct/no-tail |
| 52 | (vector-ref %expanded-vtables 6) | |
| 1bbe0a63 AW |
53 | #{src 806}# |
| 54 | #{mod 807}# | |
| 55 | #{name 808}# | |
| 56 | #{public? 809}# | |
| 57 | #{exp 810}#))) | |
| e2ccab57 | 58 | (#{make-toplevel-ref 217}# |
| 1bbe0a63 | 59 | (lambda (#{src 816}# #{name 817}#) |
| e2ccab57 AW |
60 | (make-struct/no-tail |
| 61 | (vector-ref %expanded-vtables 7) | |
| 1bbe0a63 AW |
62 | #{src 816}# |
| 63 | #{name 817}#))) | |
| e2ccab57 | 64 | (#{make-toplevel-set 219}# |
| 1bbe0a63 | 65 | (lambda (#{src 820}# #{name 821}# #{exp 822}#) |
| e2ccab57 AW |
66 | (make-struct/no-tail |
| 67 | (vector-ref %expanded-vtables 8) | |
| 1bbe0a63 AW |
68 | #{src 820}# |
| 69 | #{name 821}# | |
| 70 | #{exp 822}#))) | |
| e2ccab57 | 71 | (#{make-toplevel-define 221}# |
| 1bbe0a63 | 72 | (lambda (#{src 826}# #{name 827}# #{exp 828}#) |
| e2ccab57 AW |
73 | (make-struct/no-tail |
| 74 | (vector-ref %expanded-vtables 9) | |
| 1bbe0a63 AW |
75 | #{src 826}# |
| 76 | #{name 827}# | |
| 77 | #{exp 828}#))) | |
| e2ccab57 | 78 | (#{make-conditional 223}# |
| 1bbe0a63 AW |
79 | (lambda (#{src 832}# |
| 80 | #{test 833}# | |
| 81 | #{consequent 834}# | |
| 82 | #{alternate 835}#) | |
| e2ccab57 AW |
83 | (make-struct/no-tail |
| 84 | (vector-ref %expanded-vtables 10) | |
| 1bbe0a63 AW |
85 | #{src 832}# |
| 86 | #{test 833}# | |
| 87 | #{consequent 834}# | |
| 88 | #{alternate 835}#))) | |
| e2ccab57 | 89 | (#{make-application 225}# |
| 1bbe0a63 | 90 | (lambda (#{src 840}# #{proc 841}# #{args 842}#) |
| e2ccab57 AW |
91 | (make-struct/no-tail |
| 92 | (vector-ref %expanded-vtables 11) | |
| 1bbe0a63 AW |
93 | #{src 840}# |
| 94 | #{proc 841}# | |
| 95 | #{args 842}#))) | |
| e2ccab57 | 96 | (#{make-sequence 227}# |
| 1bbe0a63 | 97 | (lambda (#{src 846}# #{exps 847}#) |
| e2ccab57 AW |
98 | (make-struct/no-tail |
| 99 | (vector-ref %expanded-vtables 12) | |
| 1bbe0a63 AW |
100 | #{src 846}# |
| 101 | #{exps 847}#))) | |
| e2ccab57 | 102 | (#{make-lambda 229}# |
| 1bbe0a63 | 103 | (lambda (#{src 850}# #{meta 851}# #{body 852}#) |
| e2ccab57 AW |
104 | (make-struct/no-tail |
| 105 | (vector-ref %expanded-vtables 13) | |
| 1bbe0a63 AW |
106 | #{src 850}# |
| 107 | #{meta 851}# | |
| 108 | #{body 852}#))) | |
| e2ccab57 | 109 | (#{make-lambda-case 231}# |
| 1bbe0a63 AW |
110 | (lambda (#{src 856}# |
| 111 | #{req 857}# | |
| 112 | #{opt 858}# | |
| 113 | #{rest 859}# | |
| 114 | #{kw 860}# | |
| 115 | #{inits 861}# | |
| 116 | #{gensyms 862}# | |
| 117 | #{body 863}# | |
| 118 | #{alternate 864}#) | |
| e2ccab57 AW |
119 | (make-struct/no-tail |
| 120 | (vector-ref %expanded-vtables 14) | |
| 1bbe0a63 AW |
121 | #{src 856}# |
| 122 | #{req 857}# | |
| 123 | #{opt 858}# | |
| 124 | #{rest 859}# | |
| 125 | #{kw 860}# | |
| 126 | #{inits 861}# | |
| 127 | #{gensyms 862}# | |
| 128 | #{body 863}# | |
| 129 | #{alternate 864}#))) | |
| e2ccab57 | 130 | (#{make-let 233}# |
| 1bbe0a63 AW |
131 | (lambda (#{src 874}# |
| 132 | #{names 875}# | |
| 133 | #{gensyms 876}# | |
| 134 | #{vals 877}# | |
| 135 | #{body 878}#) | |
| e2ccab57 AW |
136 | (make-struct/no-tail |
| 137 | (vector-ref %expanded-vtables 15) | |
| 1bbe0a63 AW |
138 | #{src 874}# |
| 139 | #{names 875}# | |
| 140 | #{gensyms 876}# | |
| 141 | #{vals 877}# | |
| 142 | #{body 878}#))) | |
| e2ccab57 | 143 | (#{make-letrec 235}# |
| 1bbe0a63 AW |
144 | (lambda (#{src 884}# |
| 145 | #{in-order? 885}# | |
| 146 | #{names 886}# | |
| 147 | #{gensyms 887}# | |
| 148 | #{vals 888}# | |
| 149 | #{body 889}#) | |
| e2ccab57 AW |
150 | (make-struct/no-tail |
| 151 | (vector-ref %expanded-vtables 16) | |
| 1bbe0a63 AW |
152 | #{src 884}# |
| 153 | #{in-order? 885}# | |
| 154 | #{names 886}# | |
| 155 | #{gensyms 887}# | |
| 156 | #{vals 888}# | |
| 157 | #{body 889}#))) | |
| e2ccab57 | 158 | (#{make-dynlet 237}# |
| 1bbe0a63 AW |
159 | (lambda (#{src 896}# |
| 160 | #{fluids 897}# | |
| 161 | #{vals 898}# | |
| 162 | #{body 899}#) | |
| e2ccab57 AW |
163 | (make-struct/no-tail |
| 164 | (vector-ref %expanded-vtables 17) | |
| 1bbe0a63 AW |
165 | #{src 896}# |
| 166 | #{fluids 897}# | |
| 167 | #{vals 898}# | |
| 168 | #{body 899}#))) | |
| e2ccab57 | 169 | (#{lambda? 240}# |
| 1bbe0a63 AW |
170 | (lambda (#{x 904}#) |
| 171 | (if (struct? #{x 904}#) | |
| 172 | (eq? (struct-vtable #{x 904}#) | |
| e2ccab57 AW |
173 | (vector-ref %expanded-vtables 13)) |
| 174 | #f))) | |
| 175 | (#{lambda-meta 242}# | |
| 1bbe0a63 | 176 | (lambda (#{x 908}#) (struct-ref #{x 908}# 1))) |
| e2ccab57 | 177 | (#{set-lambda-meta! 244}# |
| 1bbe0a63 AW |
178 | (lambda (#{x 910}# #{v 911}#) |
| 179 | (struct-set! #{x 910}# 1 #{v 911}#))) | |
| e2ccab57 | 180 | (#{top-level-eval-hook 250}# |
| 1bbe0a63 AW |
181 | (lambda (#{x 914}# #{mod 915}#) |
| 182 | (primitive-eval #{x 914}#))) | |
| e2ccab57 | 183 | (#{local-eval-hook 252}# |
| 1bbe0a63 AW |
184 | (lambda (#{x 918}# #{mod 919}#) |
| 185 | (primitive-eval #{x 918}#))) | |
| 186 | (#{put-global-definition-hook 256}# | |
| 187 | (lambda (#{symbol 922}# #{type 923}# #{val 924}#) | |
| e2ccab57 AW |
188 | (module-define! |
| 189 | (current-module) | |
| 1bbe0a63 | 190 | #{symbol 922}# |
| e2ccab57 | 191 | (make-syntax-transformer |
| 1bbe0a63 AW |
192 | #{symbol 922}# |
| 193 | #{type 923}# | |
| 194 | #{val 924}#)))) | |
| 195 | (#{get-global-definition-hook 258}# | |
| 196 | (lambda (#{symbol 928}# #{module 929}#) | |
| 417ee098 | 197 | (begin |
| 1bbe0a63 | 198 | (if (if (not #{module 929}#) (current-module) #f) |
| e2ccab57 | 199 | (warn "module system is booted, we should have a module" |
| 1bbe0a63 | 200 | #{symbol 928}#)) |
| e2ccab57 | 201 | (begin |
| 1bbe0a63 AW |
202 | (let ((#{v 935}# (module-variable |
| 203 | (if #{module 929}# | |
| 204 | (resolve-module (cdr #{module 929}#)) | |
| e2ccab57 | 205 | (current-module)) |
| 1bbe0a63 AW |
206 | #{symbol 928}#))) |
| 207 | (if #{v 935}# | |
| 208 | (if (variable-bound? #{v 935}#) | |
| 417ee098 | 209 | (begin |
| 1bbe0a63 AW |
210 | (let ((#{val 940}# (variable-ref #{v 935}#))) |
| 211 | (if (macro? #{val 940}#) | |
| 212 | (if (macro-type #{val 940}#) | |
| 213 | (cons (macro-type #{val 940}#) | |
| 214 | (macro-binding #{val 940}#)) | |
| d8f699e8 | 215 | #f) |
| e2ccab57 AW |
216 | #f))) |
| 217 | #f) | |
| 218 | #f)))))) | |
| 1bbe0a63 AW |
219 | (#{decorate-source 260}# |
| 220 | (lambda (#{e 944}# #{s 945}#) | |
| e2ccab57 | 221 | (begin |
| 1bbe0a63 AW |
222 | (if (if (pair? #{e 944}#) #{s 945}# #f) |
| 223 | (set-source-properties! #{e 944}# #{s 945}#)) | |
| 224 | #{e 944}#))) | |
| 225 | (#{maybe-name-value! 262}# | |
| 226 | (lambda (#{name 950}# #{val 951}#) | |
| 227 | (if (#{lambda? 240}# #{val 951}#) | |
| e2ccab57 | 228 | (begin |
| 1bbe0a63 AW |
229 | (let ((#{meta 955}# (#{lambda-meta 242}# #{val 951}#))) |
| 230 | (if (not (assq 'name #{meta 955}#)) | |
| e2ccab57 | 231 | (#{set-lambda-meta! 244}# |
| 1bbe0a63 AW |
232 | #{val 951}# |
| 233 | (cons (cons 'name #{name 950}#) #{meta 955}#)))))))) | |
| 234 | (#{build-void 264}# | |
| 235 | (lambda (#{source 956}#) | |
| 236 | (#{make-void 203}# #{source 956}#))) | |
| 237 | (#{build-application 266}# | |
| 238 | (lambda (#{source 958}# #{fun-exp 959}# #{arg-exps 960}#) | |
| e2ccab57 | 239 | (#{make-application 225}# |
| 1bbe0a63 AW |
240 | #{source 958}# |
| 241 | #{fun-exp 959}# | |
| 242 | #{arg-exps 960}#))) | |
| 243 | (#{build-conditional 268}# | |
| 244 | (lambda (#{source 964}# | |
| 245 | #{test-exp 965}# | |
| 246 | #{then-exp 966}# | |
| 247 | #{else-exp 967}#) | |
| e2ccab57 | 248 | (#{make-conditional 223}# |
| 1bbe0a63 AW |
249 | #{source 964}# |
| 250 | #{test-exp 965}# | |
| 251 | #{then-exp 966}# | |
| 252 | #{else-exp 967}#))) | |
| 253 | (#{build-dynlet 270}# | |
| 254 | (lambda (#{source 972}# | |
| 255 | #{fluids 973}# | |
| 256 | #{vals 974}# | |
| 257 | #{body 975}#) | |
| e2ccab57 | 258 | (#{make-dynlet 237}# |
| 1bbe0a63 AW |
259 | #{source 972}# |
| 260 | #{fluids 973}# | |
| 261 | #{vals 974}# | |
| 262 | #{body 975}#))) | |
| 263 | (#{build-lexical-reference 272}# | |
| 264 | (lambda (#{type 980}# | |
| 265 | #{source 981}# | |
| 266 | #{name 982}# | |
| 267 | #{var 983}#) | |
| e2ccab57 | 268 | (#{make-lexical-ref 209}# |
| 1bbe0a63 AW |
269 | #{source 981}# |
| 270 | #{name 982}# | |
| 271 | #{var 983}#))) | |
| 272 | (#{build-lexical-assignment 274}# | |
| 273 | (lambda (#{source 988}# | |
| 274 | #{name 989}# | |
| 275 | #{var 990}# | |
| 276 | #{exp 991}#) | |
| e2ccab57 | 277 | (begin |
| 1bbe0a63 AW |
278 | (#{maybe-name-value! 262}# |
| 279 | #{name 989}# | |
| 280 | #{exp 991}#) | |
| e2ccab57 | 281 | (#{make-lexical-set 211}# |
| 1bbe0a63 AW |
282 | #{source 988}# |
| 283 | #{name 989}# | |
| 284 | #{var 990}# | |
| 285 | #{exp 991}#)))) | |
| 286 | (#{analyze-variable 276}# | |
| 287 | (lambda (#{mod 996}# | |
| 288 | #{var 997}# | |
| 289 | #{modref-cont 998}# | |
| 290 | #{bare-cont 999}#) | |
| 291 | (if (not #{mod 996}#) | |
| 292 | (#{bare-cont 999}# #{var 997}#) | |
| e2ccab57 | 293 | (begin |
| 1bbe0a63 AW |
294 | (let ((#{kind 1006}# (car #{mod 996}#)) |
| 295 | (#{mod 1007}# (cdr #{mod 996}#))) | |
| 296 | (if (eqv? #{kind 1006}# 'public) | |
| 297 | (#{modref-cont 998}# #{mod 1007}# #{var 997}# #t) | |
| 298 | (if (eqv? #{kind 1006}# 'private) | |
| e2ccab57 | 299 | (if (not (equal? |
| 1bbe0a63 | 300 | #{mod 1007}# |
| e2ccab57 | 301 | (module-name (current-module)))) |
| 1bbe0a63 AW |
302 | (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f) |
| 303 | (#{bare-cont 999}# #{var 997}#)) | |
| 304 | (if (eqv? #{kind 1006}# 'bare) | |
| 305 | (#{bare-cont 999}# #{var 997}#) | |
| 306 | (if (eqv? #{kind 1006}# 'hygiene) | |
| e2ccab57 | 307 | (if (if (not (equal? |
| 1bbe0a63 | 308 | #{mod 1007}# |
| e2ccab57 AW |
309 | (module-name (current-module)))) |
| 310 | (module-variable | |
| 1bbe0a63 AW |
311 | (resolve-module #{mod 1007}#) |
| 312 | #{var 997}#) | |
| e2ccab57 | 313 | #f) |
| 1bbe0a63 AW |
314 | (#{modref-cont 998}# #{mod 1007}# #{var 997}# #f) |
| 315 | (#{bare-cont 999}# #{var 997}#)) | |
| e2ccab57 AW |
316 | (syntax-violation |
| 317 | #f | |
| 318 | "bad module kind" | |
| 1bbe0a63 AW |
319 | #{var 997}# |
| 320 | #{mod 1007}#)))))))))) | |
| 321 | (#{build-global-reference 278}# | |
| 322 | (lambda (#{source 1015}# #{var 1016}# #{mod 1017}#) | |
| 323 | (#{analyze-variable 276}# | |
| 324 | #{mod 1017}# | |
| 325 | #{var 1016}# | |
| 326 | (lambda (#{mod 1021}# #{var 1022}# #{public? 1023}#) | |
| e2ccab57 | 327 | (#{make-module-ref 213}# |
| 1bbe0a63 AW |
328 | #{source 1015}# |
| 329 | #{mod 1021}# | |
| 330 | #{var 1022}# | |
| 331 | #{public? 1023}#)) | |
| 332 | (lambda (#{var 1027}#) | |
| e2ccab57 | 333 | (#{make-toplevel-ref 217}# |
| 1bbe0a63 AW |
334 | #{source 1015}# |
| 335 | #{var 1027}#))))) | |
| 336 | (#{build-global-assignment 280}# | |
| 337 | (lambda (#{source 1029}# | |
| 338 | #{var 1030}# | |
| 339 | #{exp 1031}# | |
| 340 | #{mod 1032}#) | |
| e2ccab57 | 341 | (begin |
| 1bbe0a63 AW |
342 | (#{maybe-name-value! 262}# |
| 343 | #{var 1030}# | |
| 344 | #{exp 1031}#) | |
| 345 | (#{analyze-variable 276}# | |
| 346 | #{mod 1032}# | |
| 347 | #{var 1030}# | |
| 348 | (lambda (#{mod 1037}# #{var 1038}# #{public? 1039}#) | |
| e2ccab57 | 349 | (#{make-module-set 215}# |
| 1bbe0a63 AW |
350 | #{source 1029}# |
| 351 | #{mod 1037}# | |
| 352 | #{var 1038}# | |
| 353 | #{public? 1039}# | |
| 354 | #{exp 1031}#)) | |
| 355 | (lambda (#{var 1043}#) | |
| e2ccab57 | 356 | (#{make-toplevel-set 219}# |
| 1bbe0a63 AW |
357 | #{source 1029}# |
| 358 | #{var 1043}# | |
| 359 | #{exp 1031}#)))))) | |
| 360 | (#{build-global-definition 282}# | |
| 361 | (lambda (#{source 1045}# #{var 1046}# #{exp 1047}#) | |
| e2ccab57 | 362 | (begin |
| 1bbe0a63 AW |
363 | (#{maybe-name-value! 262}# |
| 364 | #{var 1046}# | |
| 365 | #{exp 1047}#) | |
| e2ccab57 | 366 | (#{make-toplevel-define 221}# |
| 1bbe0a63 AW |
367 | #{source 1045}# |
| 368 | #{var 1046}# | |
| 369 | #{exp 1047}#)))) | |
| 370 | (#{build-simple-lambda 284}# | |
| 371 | (lambda (#{src 1051}# | |
| 372 | #{req 1052}# | |
| 373 | #{rest 1053}# | |
| 374 | #{vars 1054}# | |
| 375 | #{meta 1055}# | |
| 376 | #{exp 1056}#) | |
| e2ccab57 | 377 | (#{make-lambda 229}# |
| 1bbe0a63 AW |
378 | #{src 1051}# |
| 379 | #{meta 1055}# | |
| e2ccab57 | 380 | (#{make-lambda-case 231}# |
| 1bbe0a63 AW |
381 | #{src 1051}# |
| 382 | #{req 1052}# | |
| e2ccab57 | 383 | #f |
| 1bbe0a63 | 384 | #{rest 1053}# |
| e2ccab57 AW |
385 | #f |
| 386 | '() | |
| 1bbe0a63 AW |
387 | #{vars 1054}# |
| 388 | #{exp 1056}# | |
| e2ccab57 | 389 | #f)))) |
| 1bbe0a63 AW |
390 | (#{build-case-lambda 286}# |
| 391 | (lambda (#{src 1063}# #{meta 1064}# #{body 1065}#) | |
| e2ccab57 | 392 | (#{make-lambda 229}# |
| 1bbe0a63 AW |
393 | #{src 1063}# |
| 394 | #{meta 1064}# | |
| 395 | #{body 1065}#))) | |
| 396 | (#{build-lambda-case 288}# | |
| 397 | (lambda (#{src 1069}# | |
| 398 | #{req 1070}# | |
| 399 | #{opt 1071}# | |
| 400 | #{rest 1072}# | |
| 401 | #{kw 1073}# | |
| 402 | #{inits 1074}# | |
| 403 | #{vars 1075}# | |
| 404 | #{body 1076}# | |
| 405 | #{else-case 1077}#) | |
| e2ccab57 | 406 | (#{make-lambda-case 231}# |
| 1bbe0a63 AW |
407 | #{src 1069}# |
| 408 | #{req 1070}# | |
| 409 | #{opt 1071}# | |
| 410 | #{rest 1072}# | |
| 411 | #{kw 1073}# | |
| 412 | #{inits 1074}# | |
| 413 | #{vars 1075}# | |
| 414 | #{body 1076}# | |
| 415 | #{else-case 1077}#))) | |
| 416 | (#{build-primref 290}# | |
| 417 | (lambda (#{src 1087}# #{name 1088}#) | |
| e2ccab57 AW |
418 | (if (equal? (module-name (current-module)) '(guile)) |
| 419 | (#{make-toplevel-ref 217}# | |
| 1bbe0a63 AW |
420 | #{src 1087}# |
| 421 | #{name 1088}#) | |
| e2ccab57 | 422 | (#{make-module-ref 213}# |
| 1bbe0a63 | 423 | #{src 1087}# |
| e2ccab57 | 424 | '(guile) |
| 1bbe0a63 | 425 | #{name 1088}# |
| e2ccab57 | 426 | #f)))) |
| 1bbe0a63 AW |
427 | (#{build-data 292}# |
| 428 | (lambda (#{src 1091}# #{exp 1092}#) | |
| 429 | (#{make-const 205}# #{src 1091}# #{exp 1092}#))) | |
| 430 | (#{build-sequence 294}# | |
| 431 | (lambda (#{src 1095}# #{exps 1096}#) | |
| 432 | (if (null? (cdr #{exps 1096}#)) | |
| 433 | (car #{exps 1096}#) | |
| e2ccab57 | 434 | (#{make-sequence 227}# |
| 1bbe0a63 AW |
435 | #{src 1095}# |
| 436 | #{exps 1096}#)))) | |
| 437 | (#{build-let 296}# | |
| 438 | (lambda (#{src 1099}# | |
| 439 | #{ids 1100}# | |
| 440 | #{vars 1101}# | |
| 441 | #{val-exps 1102}# | |
| 442 | #{body-exp 1103}#) | |
| e2ccab57 AW |
443 | (begin |
| 444 | (for-each | |
| 1bbe0a63 AW |
445 | #{maybe-name-value! 262}# |
| 446 | #{ids 1100}# | |
| 447 | #{val-exps 1102}#) | |
| 448 | (if (null? #{vars 1101}#) | |
| 449 | #{body-exp 1103}# | |
| e2ccab57 | 450 | (#{make-let 233}# |
| 1bbe0a63 AW |
451 | #{src 1099}# |
| 452 | #{ids 1100}# | |
| 453 | #{vars 1101}# | |
| 454 | #{val-exps 1102}# | |
| 455 | #{body-exp 1103}#))))) | |
| 456 | (#{build-named-let 298}# | |
| 457 | (lambda (#{src 1109}# | |
| 458 | #{ids 1110}# | |
| 459 | #{vars 1111}# | |
| 460 | #{val-exps 1112}# | |
| 461 | #{body-exp 1113}#) | |
| e2ccab57 | 462 | (begin |
| 1bbe0a63 AW |
463 | (let ((#{f 1123}# (car #{vars 1111}#)) |
| 464 | (#{f-name 1124}# (car #{ids 1110}#)) | |
| 465 | (#{vars 1125}# (cdr #{vars 1111}#)) | |
| 466 | (#{ids 1126}# (cdr #{ids 1110}#))) | |
| d8f699e8 | 467 | (begin |
| 1bbe0a63 AW |
468 | (let ((#{proc 1128}# |
| 469 | (#{build-simple-lambda 284}# | |
| 470 | #{src 1109}# | |
| 471 | #{ids 1126}# | |
| d8f699e8 | 472 | #f |
| 1bbe0a63 | 473 | #{vars 1125}# |
| e2ccab57 | 474 | '() |
| 1bbe0a63 | 475 | #{body-exp 1113}#))) |
| 5f8c55ce | 476 | (begin |
| 1bbe0a63 AW |
477 | (#{maybe-name-value! 262}# |
| 478 | #{f-name 1124}# | |
| 479 | #{proc 1128}#) | |
| e2ccab57 | 480 | (for-each |
| 1bbe0a63 AW |
481 | #{maybe-name-value! 262}# |
| 482 | #{ids 1126}# | |
| 483 | #{val-exps 1112}#) | |
| e2ccab57 | 484 | (#{make-letrec 235}# |
| 1bbe0a63 | 485 | #{src 1109}# |
| e2ccab57 | 486 | #f |
| 1bbe0a63 AW |
487 | (list #{f-name 1124}#) |
| 488 | (list #{f 1123}#) | |
| 489 | (list #{proc 1128}#) | |
| 490 | (#{build-application 266}# | |
| 491 | #{src 1109}# | |
| 492 | (#{build-lexical-reference 272}# | |
| e2ccab57 | 493 | 'fun |
| 1bbe0a63 AW |
494 | #{src 1109}# |
| 495 | #{f-name 1124}# | |
| 496 | #{f 1123}#) | |
| 497 | #{val-exps 1112}#))))))))) | |
| 498 | (#{build-letrec 300}# | |
| 499 | (lambda (#{src 1129}# | |
| 500 | #{in-order? 1130}# | |
| 501 | #{ids 1131}# | |
| 502 | #{vars 1132}# | |
| 503 | #{val-exps 1133}# | |
| 504 | #{body-exp 1134}#) | |
| 505 | (if (null? #{vars 1132}#) | |
| 506 | #{body-exp 1134}# | |
| e2ccab57 AW |
507 | (begin |
| 508 | (for-each | |
| 1bbe0a63 AW |
509 | #{maybe-name-value! 262}# |
| 510 | #{ids 1131}# | |
| 511 | #{val-exps 1133}#) | |
| e2ccab57 | 512 | (#{make-letrec 235}# |
| 1bbe0a63 AW |
513 | #{src 1129}# |
| 514 | #{in-order? 1130}# | |
| 515 | #{ids 1131}# | |
| 516 | #{vars 1132}# | |
| 517 | #{val-exps 1133}# | |
| 518 | #{body-exp 1134}#))))) | |
| 519 | (#{make-syntax-object 305}# | |
| 520 | (lambda (#{expression 1141}# | |
| 521 | #{wrap 1142}# | |
| 522 | #{module 1143}#) | |
| e2ccab57 AW |
523 | (vector |
| 524 | 'syntax-object | |
| 1bbe0a63 AW |
525 | #{expression 1141}# |
| 526 | #{wrap 1142}# | |
| 527 | #{module 1143}#))) | |
| 528 | (#{syntax-object? 307}# | |
| 529 | (lambda (#{x 1147}#) | |
| 530 | (if (vector? #{x 1147}#) | |
| 531 | (if (= (vector-length #{x 1147}#) 4) | |
| 532 | (eq? (vector-ref #{x 1147}# 0) 'syntax-object) | |
| e2ccab57 AW |
533 | #f) |
| 534 | #f))) | |
| 1bbe0a63 AW |
535 | (#{syntax-object-expression 309}# |
| 536 | (lambda (#{x 1152}#) (vector-ref #{x 1152}# 1))) | |
| 537 | (#{syntax-object-wrap 311}# | |
| 538 | (lambda (#{x 1154}#) (vector-ref #{x 1154}# 2))) | |
| 539 | (#{syntax-object-module 313}# | |
| 540 | (lambda (#{x 1156}#) (vector-ref #{x 1156}# 3))) | |
| 541 | (#{source-annotation 322}# | |
| 542 | (lambda (#{x 1170}#) | |
| 543 | (if (#{syntax-object? 307}# #{x 1170}#) | |
| 544 | (#{source-annotation 322}# | |
| 545 | (#{syntax-object-expression 309}# #{x 1170}#)) | |
| 546 | (if (pair? #{x 1170}#) | |
| d8f699e8 | 547 | (begin |
| 1bbe0a63 AW |
548 | (let ((#{props 1177}# (source-properties #{x 1170}#))) |
| 549 | (if (pair? #{props 1177}#) #{props 1177}# #f))) | |
| e2ccab57 | 550 | #f)))) |
| 1bbe0a63 AW |
551 | (#{extend-env 332}# |
| 552 | (lambda (#{labels 1179}# #{bindings 1180}# #{r 1181}#) | |
| 553 | (if (null? #{labels 1179}#) | |
| 554 | #{r 1181}# | |
| 555 | (#{extend-env 332}# | |
| 556 | (cdr #{labels 1179}#) | |
| 557 | (cdr #{bindings 1180}#) | |
| 558 | (cons (cons (car #{labels 1179}#) | |
| 559 | (car #{bindings 1180}#)) | |
| 560 | #{r 1181}#))))) | |
| 561 | (#{extend-var-env 334}# | |
| 562 | (lambda (#{labels 1185}# #{vars 1186}# #{r 1187}#) | |
| 563 | (if (null? #{labels 1185}#) | |
| 564 | #{r 1187}# | |
| 565 | (#{extend-var-env 334}# | |
| 566 | (cdr #{labels 1185}#) | |
| 567 | (cdr #{vars 1186}#) | |
| 568 | (cons (cons (car #{labels 1185}#) | |
| 569 | (cons 'lexical (car #{vars 1186}#))) | |
| 570 | #{r 1187}#))))) | |
| 571 | (#{macros-only-env 336}# | |
| 572 | (lambda (#{r 1192}#) | |
| 573 | (if (null? #{r 1192}#) | |
| e2ccab57 AW |
574 | '() |
| 575 | (begin | |
| 1bbe0a63 AW |
576 | (let ((#{a 1195}# (car #{r 1192}#))) |
| 577 | (if (eq? (car (cdr #{a 1195}#)) 'macro) | |
| 578 | (cons #{a 1195}# | |
| 579 | (#{macros-only-env 336}# (cdr #{r 1192}#))) | |
| 580 | (#{macros-only-env 336}# (cdr #{r 1192}#)))))))) | |
| 581 | (#{lookup 338}# | |
| 582 | (lambda (#{x 1196}# #{r 1197}# #{mod 1198}#) | |
| e2ccab57 | 583 | (begin |
| 1bbe0a63 AW |
584 | (let ((#{t 1204}# (assq #{x 1196}# #{r 1197}#))) |
| 585 | (if #{t 1204}# | |
| 586 | (cdr #{t 1204}#) | |
| 587 | (if (symbol? #{x 1196}#) | |
| e2ccab57 | 588 | (begin |
| 1bbe0a63 AW |
589 | (let ((#{t 1210}# |
| 590 | (#{get-global-definition-hook 258}# | |
| 591 | #{x 1196}# | |
| 592 | #{mod 1198}#))) | |
| 593 | (if #{t 1210}# #{t 1210}# '(global)))) | |
| e2ccab57 | 594 | '(displaced-lexical))))))) |
| 1bbe0a63 AW |
595 | (#{global-extend 340}# |
| 596 | (lambda (#{type 1215}# #{sym 1216}# #{val 1217}#) | |
| 597 | (#{put-global-definition-hook 256}# | |
| 598 | #{sym 1216}# | |
| 599 | #{type 1215}# | |
| 600 | #{val 1217}#))) | |
| 601 | (#{nonsymbol-id? 342}# | |
| 602 | (lambda (#{x 1221}#) | |
| 603 | (if (#{syntax-object? 307}# #{x 1221}#) | |
| e2ccab57 | 604 | (symbol? |
| 1bbe0a63 | 605 | (#{syntax-object-expression 309}# #{x 1221}#)) |
| e2ccab57 | 606 | #f))) |
| 1bbe0a63 AW |
607 | (#{id? 344}# |
| 608 | (lambda (#{x 1225}#) | |
| 609 | (if (symbol? #{x 1225}#) | |
| e2ccab57 | 610 | #t |
| 1bbe0a63 | 611 | (if (#{syntax-object? 307}# #{x 1225}#) |
| e2ccab57 | 612 | (symbol? |
| 1bbe0a63 | 613 | (#{syntax-object-expression 309}# #{x 1225}#)) |
| e2ccab57 | 614 | #f)))) |
| 1bbe0a63 AW |
615 | (#{id-sym-name&marks 348}# |
| 616 | (lambda (#{x 1232}# #{w 1233}#) | |
| 617 | (if (#{syntax-object? 307}# #{x 1232}#) | |
| e2ccab57 | 618 | (values |
| 1bbe0a63 AW |
619 | (#{syntax-object-expression 309}# #{x 1232}#) |
| 620 | (#{join-marks 402}# | |
| 621 | (car #{w 1233}#) | |
| 622 | (car (#{syntax-object-wrap 311}# #{x 1232}#)))) | |
| 623 | (values #{x 1232}# (car #{w 1233}#))))) | |
| 624 | (#{gen-label 362}# | |
| e2ccab57 | 625 | (lambda () (symbol->string (gensym "i")))) |
| 1bbe0a63 AW |
626 | (#{gen-labels 364}# |
| 627 | (lambda (#{ls 1239}#) | |
| 628 | (if (null? #{ls 1239}#) | |
| e2ccab57 | 629 | '() |
| 1bbe0a63 AW |
630 | (cons (#{gen-label 362}#) |
| 631 | (#{gen-labels 364}# (cdr #{ls 1239}#)))))) | |
| 632 | (#{make-ribcage 367}# | |
| 633 | (lambda (#{symnames 1241}# | |
| 634 | #{marks 1242}# | |
| 635 | #{labels 1243}#) | |
| e2ccab57 AW |
636 | (vector |
| 637 | 'ribcage | |
| 1bbe0a63 AW |
638 | #{symnames 1241}# |
| 639 | #{marks 1242}# | |
| 640 | #{labels 1243}#))) | |
| 641 | (#{ribcage-symnames 371}# | |
| 642 | (lambda (#{x 1252}#) (vector-ref #{x 1252}# 1))) | |
| 643 | (#{ribcage-marks 373}# | |
| 644 | (lambda (#{x 1254}#) (vector-ref #{x 1254}# 2))) | |
| 645 | (#{ribcage-labels 375}# | |
| 646 | (lambda (#{x 1256}#) (vector-ref #{x 1256}# 3))) | |
| 647 | (#{set-ribcage-symnames! 377}# | |
| 648 | (lambda (#{x 1258}# #{update 1259}#) | |
| 649 | (vector-set! #{x 1258}# 1 #{update 1259}#))) | |
| 650 | (#{set-ribcage-marks! 379}# | |
| 651 | (lambda (#{x 1262}# #{update 1263}#) | |
| 652 | (vector-set! #{x 1262}# 2 #{update 1263}#))) | |
| 653 | (#{set-ribcage-labels! 381}# | |
| 654 | (lambda (#{x 1266}# #{update 1267}#) | |
| 655 | (vector-set! #{x 1266}# 3 #{update 1267}#))) | |
| 656 | (#{anti-mark 388}# | |
| 657 | (lambda (#{w 1270}#) | |
| 658 | (cons (cons #f (car #{w 1270}#)) | |
| 659 | (cons 'shift (cdr #{w 1270}#))))) | |
| 660 | (#{extend-ribcage! 394}# | |
| 661 | (lambda (#{ribcage 1276}# #{id 1277}# #{label 1278}#) | |
| e2ccab57 | 662 | (begin |
| 1bbe0a63 AW |
663 | (#{set-ribcage-symnames! 377}# |
| 664 | #{ribcage 1276}# | |
| 665 | (cons (#{syntax-object-expression 309}# #{id 1277}#) | |
| 666 | (#{ribcage-symnames 371}# #{ribcage 1276}#))) | |
| 667 | (#{set-ribcage-marks! 379}# | |
| 668 | #{ribcage 1276}# | |
| 669 | (cons (car (#{syntax-object-wrap 311}# #{id 1277}#)) | |
| 670 | (#{ribcage-marks 373}# #{ribcage 1276}#))) | |
| 671 | (#{set-ribcage-labels! 381}# | |
| 672 | #{ribcage 1276}# | |
| 673 | (cons #{label 1278}# | |
| 674 | (#{ribcage-labels 375}# #{ribcage 1276}#)))))) | |
| 675 | (#{make-binding-wrap 396}# | |
| 676 | (lambda (#{ids 1283}# #{labels 1284}# #{w 1285}#) | |
| 677 | (if (null? #{ids 1283}#) | |
| 678 | #{w 1285}# | |
| 679 | (cons (car #{w 1285}#) | |
| e2ccab57 | 680 | (cons (begin |
| 1bbe0a63 AW |
681 | (let ((#{labelvec 1292}# |
| 682 | (list->vector #{labels 1284}#))) | |
| e2ccab57 | 683 | (begin |
| 1bbe0a63 AW |
684 | (let ((#{n 1294}# |
| 685 | (vector-length #{labelvec 1292}#))) | |
| d8f699e8 | 686 | (begin |
| 1bbe0a63 AW |
687 | (let ((#{symnamevec 1297}# |
| 688 | (make-vector #{n 1294}#)) | |
| 689 | (#{marksvec 1298}# | |
| 690 | (make-vector #{n 1294}#))) | |
| d8f699e8 | 691 | (begin |
| e2ccab57 | 692 | (letrec* |
| 1bbe0a63 AW |
693 | ((#{f 1302}# |
| 694 | (lambda (#{ids 1303}# #{i 1304}#) | |
| 695 | (if (not (null? #{ids 1303}#)) | |
| e2ccab57 AW |
696 | (call-with-values |
| 697 | (lambda () | |
| 1bbe0a63 AW |
698 | (#{id-sym-name&marks 348}# |
| 699 | (car #{ids 1303}#) | |
| 700 | #{w 1285}#)) | |
| 701 | (lambda (#{symname 1305}# | |
| 702 | #{marks 1306}#) | |
| e2ccab57 AW |
703 | (begin |
| 704 | (vector-set! | |
| 1bbe0a63 AW |
705 | #{symnamevec 1297}# |
| 706 | #{i 1304}# | |
| 707 | #{symname 1305}#) | |
| e2ccab57 | 708 | (vector-set! |
| 1bbe0a63 AW |
709 | #{marksvec 1298}# |
| 710 | #{i 1304}# | |
| 711 | #{marks 1306}#) | |
| 712 | (#{f 1302}# | |
| 713 | (cdr #{ids 1303}#) | |
| 714 | (#{1+}# #{i 1304}#))))))))) | |
| 715 | (begin (#{f 1302}# #{ids 1283}# 0))) | |
| 716 | (#{make-ribcage 367}# | |
| 717 | #{symnamevec 1297}# | |
| 718 | #{marksvec 1298}# | |
| 719 | #{labelvec 1292}#)))))))) | |
| 720 | (cdr #{w 1285}#)))))) | |
| 721 | (#{smart-append 398}# | |
| 722 | (lambda (#{m1 1311}# #{m2 1312}#) | |
| 723 | (if (null? #{m2 1312}#) | |
| 724 | #{m1 1311}# | |
| 725 | (append #{m1 1311}# #{m2 1312}#)))) | |
| 726 | (#{join-wraps 400}# | |
| 727 | (lambda (#{w1 1315}# #{w2 1316}#) | |
| e2ccab57 | 728 | (begin |
| 1bbe0a63 AW |
729 | (let ((#{m1 1321}# (car #{w1 1315}#)) |
| 730 | (#{s1 1322}# (cdr #{w1 1315}#))) | |
| 731 | (if (null? #{m1 1321}#) | |
| 732 | (if (null? #{s1 1322}#) | |
| 733 | #{w2 1316}# | |
| 734 | (cons (car #{w2 1316}#) | |
| 735 | (#{smart-append 398}# | |
| 736 | #{s1 1322}# | |
| 737 | (cdr #{w2 1316}#)))) | |
| 738 | (cons (#{smart-append 398}# | |
| 739 | #{m1 1321}# | |
| 740 | (car #{w2 1316}#)) | |
| 741 | (#{smart-append 398}# | |
| 742 | #{s1 1322}# | |
| 743 | (cdr #{w2 1316}#)))))))) | |
| 744 | (#{join-marks 402}# | |
| 745 | (lambda (#{m1 1331}# #{m2 1332}#) | |
| 746 | (#{smart-append 398}# #{m1 1331}# #{m2 1332}#))) | |
| 747 | (#{same-marks? 404}# | |
| 748 | (lambda (#{x 1335}# #{y 1336}#) | |
| e2ccab57 | 749 | (begin |
| 1bbe0a63 AW |
750 | (let ((#{t 1341}# (eq? #{x 1335}# #{y 1336}#))) |
| 751 | (if #{t 1341}# | |
| 752 | #{t 1341}# | |
| 753 | (if (not (null? #{x 1335}#)) | |
| 754 | (if (not (null? #{y 1336}#)) | |
| 755 | (if (eq? (car #{x 1335}#) (car #{y 1336}#)) | |
| 756 | (#{same-marks? 404}# | |
| 757 | (cdr #{x 1335}#) | |
| 758 | (cdr #{y 1336}#)) | |
| e2ccab57 AW |
759 | #f) |
| 760 | #f) | |
| 761 | #f)))))) | |
| 1bbe0a63 AW |
762 | (#{id-var-name 406}# |
| 763 | (lambda (#{id 1347}# #{w 1348}#) | |
| e2ccab57 | 764 | (letrec* |
| 1bbe0a63 AW |
765 | ((#{search 1354}# |
| 766 | (lambda (#{sym 1370}# #{subst 1371}# #{marks 1372}#) | |
| 767 | (if (null? #{subst 1371}#) | |
| 768 | (values #f #{marks 1372}#) | |
| e2ccab57 | 769 | (begin |
| 1bbe0a63 AW |
770 | (let ((#{fst 1377}# (car #{subst 1371}#))) |
| 771 | (if (eq? #{fst 1377}# 'shift) | |
| 772 | (#{search 1354}# | |
| 773 | #{sym 1370}# | |
| 774 | (cdr #{subst 1371}#) | |
| 775 | (cdr #{marks 1372}#)) | |
| e2ccab57 | 776 | (begin |
| 1bbe0a63 AW |
777 | (let ((#{symnames 1379}# |
| 778 | (#{ribcage-symnames 371}# #{fst 1377}#))) | |
| 779 | (if (vector? #{symnames 1379}#) | |
| 780 | (#{search-vector-rib 1358}# | |
| 781 | #{sym 1370}# | |
| 782 | #{subst 1371}# | |
| 783 | #{marks 1372}# | |
| 784 | #{symnames 1379}# | |
| 785 | #{fst 1377}#) | |
| 786 | (#{search-list-rib 1356}# | |
| 787 | #{sym 1370}# | |
| 788 | #{subst 1371}# | |
| 789 | #{marks 1372}# | |
| 790 | #{symnames 1379}# | |
| 791 | #{fst 1377}#)))))))))) | |
| 792 | (#{search-list-rib 1356}# | |
| 793 | (lambda (#{sym 1380}# | |
| 794 | #{subst 1381}# | |
| 795 | #{marks 1382}# | |
| 796 | #{symnames 1383}# | |
| 797 | #{ribcage 1384}#) | |
| e2ccab57 | 798 | (letrec* |
| 1bbe0a63 AW |
799 | ((#{f 1393}# |
| 800 | (lambda (#{symnames 1394}# #{i 1395}#) | |
| 801 | (if (null? #{symnames 1394}#) | |
| 802 | (#{search 1354}# | |
| 803 | #{sym 1380}# | |
| 804 | (cdr #{subst 1381}#) | |
| 805 | #{marks 1382}#) | |
| 806 | (if (if (eq? (car #{symnames 1394}#) #{sym 1380}#) | |
| 807 | (#{same-marks? 404}# | |
| 808 | #{marks 1382}# | |
| e2ccab57 | 809 | (list-ref |
| 1bbe0a63 AW |
810 | (#{ribcage-marks 373}# #{ribcage 1384}#) |
| 811 | #{i 1395}#)) | |
| e2ccab57 AW |
812 | #f) |
| 813 | (values | |
| 814 | (list-ref | |
| 1bbe0a63 AW |
815 | (#{ribcage-labels 375}# #{ribcage 1384}#) |
| 816 | #{i 1395}#) | |
| 817 | #{marks 1382}#) | |
| 818 | (#{f 1393}# | |
| 819 | (cdr #{symnames 1394}#) | |
| 820 | (#{1+}# #{i 1395}#))))))) | |
| 821 | (begin (#{f 1393}# #{symnames 1383}# 0))))) | |
| 822 | (#{search-vector-rib 1358}# | |
| 823 | (lambda (#{sym 1404}# | |
| 824 | #{subst 1405}# | |
| 825 | #{marks 1406}# | |
| 826 | #{symnames 1407}# | |
| 827 | #{ribcage 1408}#) | |
| e2ccab57 | 828 | (begin |
| 1bbe0a63 | 829 | (let ((#{n 1415}# (vector-length #{symnames 1407}#))) |
| d8f699e8 | 830 | (letrec* |
| 1bbe0a63 AW |
831 | ((#{f 1418}# |
| 832 | (lambda (#{i 1419}#) | |
| 833 | (if (= #{i 1419}# #{n 1415}#) | |
| 834 | (#{search 1354}# | |
| 835 | #{sym 1404}# | |
| 836 | (cdr #{subst 1405}#) | |
| 837 | #{marks 1406}#) | |
| e2ccab57 | 838 | (if (if (eq? (vector-ref |
| 1bbe0a63 AW |
839 | #{symnames 1407}# |
| 840 | #{i 1419}#) | |
| 841 | #{sym 1404}#) | |
| 842 | (#{same-marks? 404}# | |
| 843 | #{marks 1406}# | |
| e2ccab57 | 844 | (vector-ref |
| 1bbe0a63 AW |
845 | (#{ribcage-marks 373}# #{ribcage 1408}#) |
| 846 | #{i 1419}#)) | |
| d8f699e8 AW |
847 | #f) |
| 848 | (values | |
| e2ccab57 | 849 | (vector-ref |
| 1bbe0a63 AW |
850 | (#{ribcage-labels 375}# #{ribcage 1408}#) |
| 851 | #{i 1419}#) | |
| 852 | #{marks 1406}#) | |
| 853 | (#{f 1418}# (#{1+}# #{i 1419}#))))))) | |
| 854 | (begin (#{f 1418}# 0)))))))) | |
| e2ccab57 | 855 | (begin |
| 1bbe0a63 | 856 | (if (symbol? #{id 1347}#) |
| d8f699e8 | 857 | (begin |
| 1bbe0a63 AW |
858 | (let ((#{t 1431}# |
| 859 | (#{search 1354}# | |
| 860 | #{id 1347}# | |
| 861 | (cdr #{w 1348}#) | |
| 862 | (car #{w 1348}#)))) | |
| 863 | (if #{t 1431}# #{t 1431}# #{id 1347}#))) | |
| 864 | (if (#{syntax-object? 307}# #{id 1347}#) | |
| e2ccab57 | 865 | (begin |
| 1bbe0a63 AW |
866 | (let ((#{id 1440}# |
| 867 | (#{syntax-object-expression 309}# #{id 1347}#)) | |
| 868 | (#{w1 1441}# | |
| 869 | (#{syntax-object-wrap 311}# #{id 1347}#))) | |
| 5f8c55ce | 870 | (begin |
| 1bbe0a63 AW |
871 | (let ((#{marks 1443}# |
| 872 | (#{join-marks 402}# | |
| 873 | (car #{w 1348}#) | |
| 874 | (car #{w1 1441}#)))) | |
| e2ccab57 AW |
875 | (call-with-values |
| 876 | (lambda () | |
| 1bbe0a63 AW |
877 | (#{search 1354}# |
| 878 | #{id 1440}# | |
| 879 | (cdr #{w 1348}#) | |
| 880 | #{marks 1443}#)) | |
| 881 | (lambda (#{new-id 1447}# #{marks 1448}#) | |
| e2ccab57 | 882 | (begin |
| 1bbe0a63 AW |
883 | (let ((#{t 1453}# #{new-id 1447}#)) |
| 884 | (if #{t 1453}# | |
| 885 | #{t 1453}# | |
| e2ccab57 | 886 | (begin |
| 1bbe0a63 AW |
887 | (let ((#{t 1456}# |
| 888 | (#{search 1354}# | |
| 889 | #{id 1440}# | |
| 890 | (cdr #{w1 1441}#) | |
| 891 | #{marks 1448}#))) | |
| 892 | (if #{t 1456}# | |
| 893 | #{t 1456}# | |
| 894 | #{id 1440}#)))))))))))) | |
| e2ccab57 AW |
895 | (syntax-violation |
| 896 | 'id-var-name | |
| 897 | "invalid id" | |
| 1bbe0a63 AW |
898 | #{id 1347}#))))))) |
| 899 | (#{free-id=? 408}# | |
| 900 | (lambda (#{i 1461}# #{j 1462}#) | |
| e2ccab57 | 901 | (if (eq? (begin |
| 1bbe0a63 AW |
902 | (let ((#{x 1468}# #{i 1461}#)) |
| 903 | (if (#{syntax-object? 307}# #{x 1468}#) | |
| 904 | (#{syntax-object-expression 309}# #{x 1468}#) | |
| 905 | #{x 1468}#))) | |
| e2ccab57 | 906 | (begin |
| 1bbe0a63 AW |
907 | (let ((#{x 1471}# #{j 1462}#)) |
| 908 | (if (#{syntax-object? 307}# #{x 1471}#) | |
| 909 | (#{syntax-object-expression 309}# #{x 1471}#) | |
| 910 | #{x 1471}#)))) | |
| 911 | (eq? (#{id-var-name 406}# #{i 1461}# '(())) | |
| 912 | (#{id-var-name 406}# #{j 1462}# '(()))) | |
| e2ccab57 | 913 | #f))) |
| 1bbe0a63 AW |
914 | (#{bound-id=? 410}# |
| 915 | (lambda (#{i 1475}# #{j 1476}#) | |
| 916 | (if (if (#{syntax-object? 307}# #{i 1475}#) | |
| 917 | (#{syntax-object? 307}# #{j 1476}#) | |
| e2ccab57 | 918 | #f) |
| 1bbe0a63 AW |
919 | (if (eq? (#{syntax-object-expression 309}# #{i 1475}#) |
| 920 | (#{syntax-object-expression 309}# #{j 1476}#)) | |
| 921 | (#{same-marks? 404}# | |
| 922 | (car (#{syntax-object-wrap 311}# #{i 1475}#)) | |
| 923 | (car (#{syntax-object-wrap 311}# #{j 1476}#))) | |
| e2ccab57 | 924 | #f) |
| 1bbe0a63 AW |
925 | (eq? #{i 1475}# #{j 1476}#)))) |
| 926 | (#{valid-bound-ids? 412}# | |
| 927 | (lambda (#{ids 1485}#) | |
| e2ccab57 | 928 | (if (letrec* |
| 1bbe0a63 AW |
929 | ((#{all-ids? 1490}# |
| 930 | (lambda (#{ids 1491}#) | |
| d8f699e8 | 931 | (begin |
| 1bbe0a63 AW |
932 | (let ((#{t 1494}# (null? #{ids 1491}#))) |
| 933 | (if #{t 1494}# | |
| 934 | #{t 1494}# | |
| 935 | (if (#{id? 344}# (car #{ids 1491}#)) | |
| 936 | (#{all-ids? 1490}# (cdr #{ids 1491}#)) | |
| d8f699e8 | 937 | #f))))))) |
| 1bbe0a63 AW |
938 | (begin (#{all-ids? 1490}# #{ids 1485}#))) |
| 939 | (#{distinct-bound-ids? 414}# #{ids 1485}#) | |
| e2ccab57 | 940 | #f))) |
| 1bbe0a63 AW |
941 | (#{distinct-bound-ids? 414}# |
| 942 | (lambda (#{ids 1499}#) | |
| e2ccab57 | 943 | (letrec* |
| 1bbe0a63 AW |
944 | ((#{distinct? 1503}# |
| 945 | (lambda (#{ids 1504}#) | |
| e2ccab57 | 946 | (begin |
| 1bbe0a63 AW |
947 | (let ((#{t 1507}# (null? #{ids 1504}#))) |
| 948 | (if #{t 1507}# | |
| 949 | #{t 1507}# | |
| 950 | (if (not (#{bound-id-member? 416}# | |
| 951 | (car #{ids 1504}#) | |
| 952 | (cdr #{ids 1504}#))) | |
| 953 | (#{distinct? 1503}# (cdr #{ids 1504}#)) | |
| e2ccab57 | 954 | #f))))))) |
| 1bbe0a63 AW |
955 | (begin (#{distinct? 1503}# #{ids 1499}#))))) |
| 956 | (#{bound-id-member? 416}# | |
| 957 | (lambda (#{x 1511}# #{list 1512}#) | |
| 958 | (if (not (null? #{list 1512}#)) | |
| e2ccab57 | 959 | (begin |
| 1bbe0a63 AW |
960 | (let ((#{t 1519}# |
| 961 | (#{bound-id=? 410}# | |
| 962 | #{x 1511}# | |
| 963 | (car #{list 1512}#)))) | |
| 964 | (if #{t 1519}# | |
| 965 | #{t 1519}# | |
| 966 | (#{bound-id-member? 416}# | |
| 967 | #{x 1511}# | |
| 968 | (cdr #{list 1512}#))))) | |
| e2ccab57 | 969 | #f))) |
| 1bbe0a63 AW |
970 | (#{wrap 418}# |
| 971 | (lambda (#{x 1521}# #{w 1522}# #{defmod 1523}#) | |
| 972 | (if (if (null? (car #{w 1522}#)) | |
| 973 | (null? (cdr #{w 1522}#)) | |
| e2ccab57 | 974 | #f) |
| 1bbe0a63 AW |
975 | #{x 1521}# |
| 976 | (if (#{syntax-object? 307}# #{x 1521}#) | |
| 977 | (#{make-syntax-object 305}# | |
| 978 | (#{syntax-object-expression 309}# #{x 1521}#) | |
| 979 | (#{join-wraps 400}# | |
| 980 | #{w 1522}# | |
| 981 | (#{syntax-object-wrap 311}# #{x 1521}#)) | |
| 982 | (#{syntax-object-module 313}# #{x 1521}#)) | |
| 983 | (if (null? #{x 1521}#) | |
| 984 | #{x 1521}# | |
| 985 | (#{make-syntax-object 305}# | |
| 986 | #{x 1521}# | |
| 987 | #{w 1522}# | |
| 988 | #{defmod 1523}#)))))) | |
| 989 | (#{source-wrap 420}# | |
| 990 | (lambda (#{x 1538}# | |
| 991 | #{w 1539}# | |
| 992 | #{s 1540}# | |
| 993 | #{defmod 1541}#) | |
| 994 | (#{wrap 418}# | |
| 995 | (#{decorate-source 260}# #{x 1538}# #{s 1540}#) | |
| 996 | #{w 1539}# | |
| 997 | #{defmod 1541}#))) | |
| 998 | (#{chi-sequence 422}# | |
| 999 | (lambda (#{body 1546}# | |
| 1000 | #{r 1547}# | |
| 1001 | #{w 1548}# | |
| 1002 | #{s 1549}# | |
| 1003 | #{mod 1550}#) | |
| 1004 | (#{build-sequence 294}# | |
| 1005 | #{s 1549}# | |
| e2ccab57 | 1006 | (letrec* |
| 1bbe0a63 AW |
1007 | ((#{dobody 1561}# |
| 1008 | (lambda (#{body 1562}# | |
| 1009 | #{r 1563}# | |
| 1010 | #{w 1564}# | |
| 1011 | #{mod 1565}#) | |
| 1012 | (if (null? #{body 1562}#) | |
| e2ccab57 AW |
1013 | '() |
| 1014 | (begin | |
| 1bbe0a63 AW |
1015 | (let ((#{first 1567}# |
| 1016 | (#{chi 432}# | |
| 1017 | (car #{body 1562}#) | |
| 1018 | #{r 1563}# | |
| 1019 | #{w 1564}# | |
| 1020 | #{mod 1565}#))) | |
| 1021 | (cons #{first 1567}# | |
| 1022 | (#{dobody 1561}# | |
| 1023 | (cdr #{body 1562}#) | |
| 1024 | #{r 1563}# | |
| 1025 | #{w 1564}# | |
| 1026 | #{mod 1565}#)))))))) | |
| e2ccab57 | 1027 | (begin |
| 1bbe0a63 AW |
1028 | (#{dobody 1561}# |
| 1029 | #{body 1546}# | |
| 1030 | #{r 1547}# | |
| 1031 | #{w 1548}# | |
| 1032 | #{mod 1550}#)))))) | |
| 1033 | (#{chi-top-sequence 424}# | |
| 1034 | (lambda (#{body 1568}# | |
| 1035 | #{r 1569}# | |
| 1036 | #{w 1570}# | |
| 1037 | #{s 1571}# | |
| 1038 | #{m 1572}# | |
| 1039 | #{esew 1573}# | |
| 1040 | #{mod 1574}#) | |
| e2ccab57 | 1041 | (letrec* |
| 1bbe0a63 AW |
1042 | ((#{scan 1583}# |
| 1043 | (lambda (#{body 1584}# | |
| 1044 | #{r 1585}# | |
| 1045 | #{w 1586}# | |
| 1046 | #{s 1587}# | |
| 1047 | #{m 1588}# | |
| 1048 | #{esew 1589}# | |
| 1049 | #{mod 1590}# | |
| 1050 | #{exps 1591}#) | |
| 1051 | (if (null? #{body 1584}#) | |
| 1052 | #{exps 1591}# | |
| e2ccab57 AW |
1053 | (call-with-values |
| 1054 | (lambda () | |
| d8f699e8 AW |
1055 | (call-with-values |
| 1056 | (lambda () | |
| e2ccab57 | 1057 | (begin |
| 1bbe0a63 AW |
1058 | (let ((#{e 1604}# (car #{body 1584}#))) |
| 1059 | (#{syntax-type 430}# | |
| 1060 | #{e 1604}# | |
| 1061 | #{r 1585}# | |
| 1062 | #{w 1586}# | |
| e2ccab57 | 1063 | (begin |
| 1bbe0a63 AW |
1064 | (let ((#{t 1607}# |
| 1065 | (#{source-annotation 322}# | |
| 1066 | #{e 1604}#))) | |
| 1067 | (if #{t 1607}# #{t 1607}# #{s 1587}#))) | |
| e2ccab57 | 1068 | #f |
| 1bbe0a63 | 1069 | #{mod 1590}# |
| e2ccab57 | 1070 | #f)))) |
| 1bbe0a63 AW |
1071 | (lambda (#{type 1609}# |
| 1072 | #{value 1610}# | |
| 1073 | #{e 1611}# | |
| 1074 | #{w 1612}# | |
| 1075 | #{s 1613}# | |
| 1076 | #{mod 1614}#) | |
| 1077 | (if (eqv? #{type 1609}# 'begin-form) | |
| 1078 | (let ((#{tmp 1622}# #{e 1611}#)) | |
| 1079 | (let ((#{tmp 1623}# | |
| 1080 | ($sc-dispatch #{tmp 1622}# '(_)))) | |
| 1081 | (if #{tmp 1623}# | |
| 1082 | (@apply (lambda () #{exps 1591}#) #{tmp 1623}#) | |
| 1083 | (let ((#{tmp 1624}# | |
| e2ccab57 | 1084 | ($sc-dispatch |
| 1bbe0a63 | 1085 | #{tmp 1622}# |
| e2ccab57 | 1086 | '(_ any . each-any)))) |
| 1bbe0a63 | 1087 | (if #{tmp 1624}# |
| e2ccab57 | 1088 | (@apply |
| 1bbe0a63 AW |
1089 | (lambda (#{e1 1627}# #{e2 1628}#) |
| 1090 | (#{scan 1583}# | |
| 1091 | (cons #{e1 1627}# #{e2 1628}#) | |
| 1092 | #{r 1585}# | |
| 1093 | #{w 1612}# | |
| 1094 | #{s 1613}# | |
| 1095 | #{m 1588}# | |
| 1096 | #{esew 1589}# | |
| 1097 | #{mod 1614}# | |
| 1098 | #{exps 1591}#)) | |
| 1099 | #{tmp 1624}#) | |
| e2ccab57 AW |
1100 | (syntax-violation |
| 1101 | #f | |
| 1102 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
1103 | #{tmp 1622}#)))))) |
| 1104 | (if (eqv? #{type 1609}# 'local-syntax-form) | |
| 1105 | (#{chi-local-syntax 442}# | |
| 1106 | #{value 1610}# | |
| 1107 | #{e 1611}# | |
| 1108 | #{r 1585}# | |
| 1109 | #{w 1612}# | |
| 1110 | #{s 1613}# | |
| 1111 | #{mod 1614}# | |
| 1112 | (lambda (#{body 1631}# | |
| 1113 | #{r 1632}# | |
| 1114 | #{w 1633}# | |
| 1115 | #{s 1634}# | |
| 1116 | #{mod 1635}#) | |
| 1117 | (#{scan 1583}# | |
| 1118 | #{body 1631}# | |
| 1119 | #{r 1632}# | |
| 1120 | #{w 1633}# | |
| 1121 | #{s 1634}# | |
| 1122 | #{m 1588}# | |
| 1123 | #{esew 1589}# | |
| 1124 | #{mod 1635}# | |
| 1125 | #{exps 1591}#))) | |
| 1126 | (if (eqv? #{type 1609}# 'eval-when-form) | |
| 1127 | (let ((#{tmp 1642}# #{e 1611}#)) | |
| 1128 | (let ((#{tmp 1643}# | |
| e2ccab57 | 1129 | ($sc-dispatch |
| 1bbe0a63 | 1130 | #{tmp 1642}# |
| e2ccab57 | 1131 | '(_ each-any any . each-any)))) |
| 1bbe0a63 | 1132 | (if #{tmp 1643}# |
| d8f699e8 | 1133 | (@apply |
| 1bbe0a63 AW |
1134 | (lambda (#{x 1647}# |
| 1135 | #{e1 1648}# | |
| 1136 | #{e2 1649}#) | |
| e2ccab57 | 1137 | (begin |
| 1bbe0a63 AW |
1138 | (let ((#{when-list 1652}# |
| 1139 | (#{chi-when-list 428}# | |
| 1140 | #{e 1611}# | |
| 1141 | #{x 1647}# | |
| 1142 | #{w 1612}#)) | |
| 1143 | (#{body 1653}# | |
| 1144 | (cons #{e1 1648}# | |
| 1145 | #{e2 1649}#))) | |
| 1146 | (if (eq? #{m 1588}# 'e) | |
| e2ccab57 | 1147 | (if (memq 'eval |
| 1bbe0a63 AW |
1148 | #{when-list 1652}#) |
| 1149 | (#{scan 1583}# | |
| 1150 | #{body 1653}# | |
| 1151 | #{r 1585}# | |
| 1152 | #{w 1612}# | |
| 1153 | #{s 1613}# | |
| e2ccab57 | 1154 | (if (memq 'expand |
| 1bbe0a63 | 1155 | #{when-list 1652}#) |
| e2ccab57 AW |
1156 | 'c&e |
| 1157 | 'e) | |
| 1158 | '(eval) | |
| 1bbe0a63 AW |
1159 | #{mod 1614}# |
| 1160 | #{exps 1591}#) | |
| d8f699e8 | 1161 | (begin |
| e2ccab57 | 1162 | (if (memq 'expand |
| 1bbe0a63 | 1163 | #{when-list 1652}#) |
| e2ccab57 | 1164 | (#{top-level-eval-hook 250}# |
| 1bbe0a63 AW |
1165 | (#{chi-top-sequence 424}# |
| 1166 | #{body 1653}# | |
| 1167 | #{r 1585}# | |
| 1168 | #{w 1612}# | |
| 1169 | #{s 1613}# | |
| e2ccab57 AW |
1170 | 'e |
| 1171 | '(eval) | |
| 1bbe0a63 AW |
1172 | #{mod 1614}#) |
| 1173 | #{mod 1614}#)) | |
| 1174 | (values #{exps 1591}#))) | |
| e2ccab57 | 1175 | (if (memq 'load |
| 1bbe0a63 | 1176 | #{when-list 1652}#) |
| e2ccab57 | 1177 | (if (begin |
| 1bbe0a63 | 1178 | (let ((#{t 1662}# |
| e2ccab57 | 1179 | (memq 'compile |
| 1bbe0a63 AW |
1180 | #{when-list 1652}#))) |
| 1181 | (if #{t 1662}# | |
| 1182 | #{t 1662}# | |
| e2ccab57 | 1183 | (begin |
| 1bbe0a63 | 1184 | (let ((#{t 1665}# |
| e2ccab57 | 1185 | (memq 'expand |
| 1bbe0a63 AW |
1186 | #{when-list 1652}#))) |
| 1187 | (if #{t 1665}# | |
| 1188 | #{t 1665}# | |
| 1189 | (if (eq? #{m 1588}# | |
| e2ccab57 AW |
1190 | 'c&e) |
| 1191 | (memq 'eval | |
| 1bbe0a63 | 1192 | #{when-list 1652}#) |
| e2ccab57 | 1193 | #f))))))) |
| 1bbe0a63 AW |
1194 | (#{scan 1583}# |
| 1195 | #{body 1653}# | |
| 1196 | #{r 1585}# | |
| 1197 | #{w 1612}# | |
| 1198 | #{s 1613}# | |
| e2ccab57 AW |
1199 | 'c&e |
| 1200 | '(compile load) | |
| 1bbe0a63 AW |
1201 | #{mod 1614}# |
| 1202 | #{exps 1591}#) | |
| 1203 | (if (if (eq? #{m 1588}# 'c) | |
| e2ccab57 | 1204 | #t |
| 1bbe0a63 AW |
1205 | (eq? #{m 1588}# 'c&e)) |
| 1206 | (#{scan 1583}# | |
| 1207 | #{body 1653}# | |
| 1208 | #{r 1585}# | |
| 1209 | #{w 1612}# | |
| 1210 | #{s 1613}# | |
| e2ccab57 AW |
1211 | 'c |
| 1212 | '(load) | |
| 1bbe0a63 AW |
1213 | #{mod 1614}# |
| 1214 | #{exps 1591}#) | |
| 1215 | (values #{exps 1591}#))) | |
| e2ccab57 | 1216 | (if (begin |
| 1bbe0a63 | 1217 | (let ((#{t 1673}# |
| e2ccab57 | 1218 | (memq 'compile |
| 1bbe0a63 AW |
1219 | #{when-list 1652}#))) |
| 1220 | (if #{t 1673}# | |
| 1221 | #{t 1673}# | |
| e2ccab57 | 1222 | (begin |
| 1bbe0a63 | 1223 | (let ((#{t 1676}# |
| e2ccab57 | 1224 | (memq 'expand |
| 1bbe0a63 AW |
1225 | #{when-list 1652}#))) |
| 1226 | (if #{t 1676}# | |
| 1227 | #{t 1676}# | |
| 1228 | (if (eq? #{m 1588}# | |
| e2ccab57 AW |
1229 | 'c&e) |
| 1230 | (memq 'eval | |
| 1bbe0a63 | 1231 | #{when-list 1652}#) |
| e2ccab57 AW |
1232 | #f))))))) |
| 1233 | (begin | |
| 1234 | (#{top-level-eval-hook 250}# | |
| 1bbe0a63 AW |
1235 | (#{chi-top-sequence 424}# |
| 1236 | #{body 1653}# | |
| 1237 | #{r 1585}# | |
| 1238 | #{w 1612}# | |
| 1239 | #{s 1613}# | |
| e2ccab57 AW |
1240 | 'e |
| 1241 | '(eval) | |
| 1bbe0a63 AW |
1242 | #{mod 1614}#) |
| 1243 | #{mod 1614}#) | |
| 1244 | (values #{exps 1591}#)) | |
| 1245 | (values #{exps 1591}#))))))) | |
| 1246 | #{tmp 1643}#) | |
| e2ccab57 AW |
1247 | (syntax-violation |
| 1248 | #f | |
| 1249 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
1250 | #{tmp 1642}#)))) |
| 1251 | (if (eqv? #{type 1609}# 'define-syntax-form) | |
| e2ccab57 | 1252 | (begin |
| 1bbe0a63 AW |
1253 | (let ((#{n 1684}# |
| 1254 | (#{id-var-name 406}# | |
| 1255 | #{value 1610}# | |
| 1256 | #{w 1612}#)) | |
| 1257 | (#{r 1685}# | |
| 1258 | (#{macros-only-env 336}# | |
| 1259 | #{r 1585}#))) | |
| 1260 | (if (eqv? #{m 1588}# 'c) | |
| 1261 | (if (memq 'compile #{esew 1589}#) | |
| e2ccab57 | 1262 | (begin |
| 1bbe0a63 AW |
1263 | (let ((#{e 1688}# |
| 1264 | (#{chi-install-global 426}# | |
| 1265 | #{n 1684}# | |
| 1266 | (#{chi 432}# | |
| 1267 | #{e 1611}# | |
| 1268 | #{r 1685}# | |
| 1269 | #{w 1612}# | |
| 1270 | #{mod 1614}#)))) | |
| d8f699e8 | 1271 | (begin |
| e2ccab57 | 1272 | (#{top-level-eval-hook 250}# |
| 1bbe0a63 AW |
1273 | #{e 1688}# |
| 1274 | #{mod 1614}#) | |
| 1275 | (if (memq 'load #{esew 1589}#) | |
| 0ed9680f | 1276 | (values |
| 1bbe0a63 AW |
1277 | (cons #{e 1688}# |
| 1278 | #{exps 1591}#)) | |
| 1279 | (values #{exps 1591}#))))) | |
| 1280 | (if (memq 'load #{esew 1589}#) | |
| 0ed9680f | 1281 | (values |
| 1bbe0a63 AW |
1282 | (cons (#{chi-install-global 426}# |
| 1283 | #{n 1684}# | |
| 1284 | (#{chi 432}# | |
| 1285 | #{e 1611}# | |
| 1286 | #{r 1685}# | |
| 1287 | #{w 1612}# | |
| 1288 | #{mod 1614}#)) | |
| 1289 | #{exps 1591}#)) | |
| 1290 | (values #{exps 1591}#))) | |
| 1291 | (if (eqv? #{m 1588}# 'c&e) | |
| e2ccab57 | 1292 | (begin |
| 1bbe0a63 AW |
1293 | (let ((#{e 1691}# |
| 1294 | (#{chi-install-global 426}# | |
| 1295 | #{n 1684}# | |
| 1296 | (#{chi 432}# | |
| 1297 | #{e 1611}# | |
| 1298 | #{r 1685}# | |
| 1299 | #{w 1612}# | |
| 1300 | #{mod 1614}#)))) | |
| 43353663 | 1301 | (begin |
| e2ccab57 | 1302 | (#{top-level-eval-hook 250}# |
| 1bbe0a63 AW |
1303 | #{e 1691}# |
| 1304 | #{mod 1614}#) | |
| 0ed9680f | 1305 | (values |
| 1bbe0a63 AW |
1306 | (cons #{e 1691}# |
| 1307 | #{exps 1591}#))))) | |
| e2ccab57 | 1308 | (begin |
| 1bbe0a63 | 1309 | (if (memq 'eval #{esew 1589}#) |
| e2ccab57 | 1310 | (#{top-level-eval-hook 250}# |
| 1bbe0a63 AW |
1311 | (#{chi-install-global 426}# |
| 1312 | #{n 1684}# | |
| 1313 | (#{chi 432}# | |
| 1314 | #{e 1611}# | |
| 1315 | #{r 1685}# | |
| 1316 | #{w 1612}# | |
| 1317 | #{mod 1614}#)) | |
| 1318 | #{mod 1614}#)) | |
| 1319 | (values #{exps 1591}#)))))) | |
| 1320 | (if (eqv? #{type 1609}# 'define-form) | |
| e2ccab57 | 1321 | (begin |
| 1bbe0a63 AW |
1322 | (let ((#{n 1696}# |
| 1323 | (#{id-var-name 406}# | |
| 1324 | #{value 1610}# | |
| 1325 | #{w 1612}#))) | |
| d8f699e8 | 1326 | (begin |
| 1bbe0a63 AW |
1327 | (let ((#{type 1698}# |
| 1328 | (car (#{lookup 338}# | |
| 1329 | #{n 1696}# | |
| 1330 | #{r 1585}# | |
| 1331 | #{mod 1614}#)))) | |
| 1332 | (if (if (eqv? #{type 1698}# 'global) | |
| e2ccab57 | 1333 | #t |
| 1bbe0a63 | 1334 | (if (eqv? #{type 1698}# 'core) |
| e2ccab57 | 1335 | #t |
| 1bbe0a63 | 1336 | (if (eqv? #{type 1698}# |
| e2ccab57 | 1337 | 'macro) |
| d8f699e8 | 1338 | #t |
| 1bbe0a63 | 1339 | (eqv? #{type 1698}# |
| e2ccab57 AW |
1340 | 'module-ref)))) |
| 1341 | (begin | |
| 1bbe0a63 | 1342 | (if (if (if (eq? #{m 1588}# 'c) |
| 43353663 | 1343 | #t |
| 1bbe0a63 | 1344 | (eq? #{m 1588}# 'c&e)) |
| e2ccab57 AW |
1345 | (if (not (module-local-variable |
| 1346 | (current-module) | |
| 1bbe0a63 | 1347 | #{n 1696}#)) |
| e2ccab57 AW |
1348 | (current-module) |
| 1349 | #f) | |
| 1350 | #f) | |
| 43353663 | 1351 | (begin |
| 1bbe0a63 | 1352 | (let ((#{old 1705}# |
| e2ccab57 | 1353 | (module-variable |
| d8f699e8 | 1354 | (current-module) |
| 1bbe0a63 | 1355 | #{n 1696}#))) |
| e2ccab57 | 1356 | (if (if (variable? |
| 1bbe0a63 | 1357 | #{old 1705}#) |
| e2ccab57 | 1358 | (variable-bound? |
| 1bbe0a63 | 1359 | #{old 1705}#) |
| e2ccab57 AW |
1360 | #f) |
| 1361 | (module-define! | |
| 1362 | (current-module) | |
| 1bbe0a63 | 1363 | #{n 1696}# |
| e2ccab57 | 1364 | (variable-ref |
| 1bbe0a63 | 1365 | #{old 1705}#)) |
| e2ccab57 AW |
1366 | (module-add! |
| 1367 | (current-module) | |
| 1bbe0a63 | 1368 | #{n 1696}# |
| e2ccab57 | 1369 | (make-undefined-variable)))))) |
| 0ed9680f | 1370 | (values |
| 1bbe0a63 | 1371 | (cons (if (eq? #{m 1588}# 'c&e) |
| 0ed9680f | 1372 | (begin |
| 1bbe0a63 AW |
1373 | (let ((#{x 1709}# |
| 1374 | (#{build-global-definition 282}# | |
| 1375 | #{s 1613}# | |
| 1376 | #{n 1696}# | |
| 1377 | (#{chi 432}# | |
| 1378 | #{e 1611}# | |
| 1379 | #{r 1585}# | |
| 1380 | #{w 1612}# | |
| 1381 | #{mod 1614}#)))) | |
| 0ed9680f SIT |
1382 | (begin |
| 1383 | (#{top-level-eval-hook 250}# | |
| 1bbe0a63 AW |
1384 | #{x 1709}# |
| 1385 | #{mod 1614}#) | |
| 1386 | #{x 1709}#))) | |
| 0ed9680f | 1387 | (lambda () |
| 1bbe0a63 AW |
1388 | (#{build-global-definition 282}# |
| 1389 | #{s 1613}# | |
| 1390 | #{n 1696}# | |
| 1391 | (#{chi 432}# | |
| 1392 | #{e 1611}# | |
| 1393 | #{r 1585}# | |
| 1394 | #{w 1612}# | |
| 1395 | #{mod 1614}#)))) | |
| 1396 | #{exps 1591}#))) | |
| 1397 | (if (eqv? #{type 1698}# | |
| e2ccab57 AW |
1398 | 'displaced-lexical) |
| 1399 | (syntax-violation | |
| 1400 | #f | |
| 1401 | "identifier out of context" | |
| 1bbe0a63 AW |
1402 | #{e 1611}# |
| 1403 | (#{wrap 418}# | |
| 1404 | #{value 1610}# | |
| 1405 | #{w 1612}# | |
| 1406 | #{mod 1614}#)) | |
| e2ccab57 AW |
1407 | (syntax-violation |
| 1408 | #f | |
| 1409 | "cannot define keyword at top level" | |
| 1bbe0a63 AW |
1410 | #{e 1611}# |
| 1411 | (#{wrap 418}# | |
| 1412 | #{value 1610}# | |
| 1413 | #{w 1612}# | |
| 1414 | #{mod 1614}#)))))))) | |
| 0ed9680f | 1415 | (values |
| 1bbe0a63 | 1416 | (cons (if (eq? #{m 1588}# 'c&e) |
| 0ed9680f | 1417 | (begin |
| 1bbe0a63 AW |
1418 | (let ((#{x 1714}# |
| 1419 | (#{chi-expr 434}# | |
| 1420 | #{type 1609}# | |
| 1421 | #{value 1610}# | |
| 1422 | #{e 1611}# | |
| 1423 | #{r 1585}# | |
| 1424 | #{w 1612}# | |
| 1425 | #{s 1613}# | |
| 1426 | #{mod 1614}#))) | |
| 0ed9680f SIT |
1427 | (begin |
| 1428 | (#{top-level-eval-hook 250}# | |
| 1bbe0a63 AW |
1429 | #{x 1714}# |
| 1430 | #{mod 1614}#) | |
| 1431 | #{x 1714}#))) | |
| 0ed9680f | 1432 | (lambda () |
| 1bbe0a63 AW |
1433 | (#{chi-expr 434}# |
| 1434 | #{type 1609}# | |
| 1435 | #{value 1610}# | |
| 1436 | #{e 1611}# | |
| 1437 | #{r 1585}# | |
| 1438 | #{w 1612}# | |
| 1439 | #{s 1613}# | |
| 1440 | #{mod 1614}#))) | |
| 1441 | #{exps 1591}#)))))))))) | |
| 1442 | (lambda (#{exps 1715}#) | |
| 1443 | (#{scan 1583}# | |
| 1444 | (cdr #{body 1584}#) | |
| 1445 | #{r 1585}# | |
| 1446 | #{w 1586}# | |
| 1447 | #{s 1587}# | |
| 1448 | #{m 1588}# | |
| 1449 | #{esew 1589}# | |
| 1450 | #{mod 1590}# | |
| 1451 | #{exps 1715}#))))))) | |
| e2ccab57 AW |
1452 | (begin |
| 1453 | (call-with-values | |
| 1454 | (lambda () | |
| 1bbe0a63 AW |
1455 | (#{scan 1583}# |
| 1456 | #{body 1568}# | |
| 1457 | #{r 1569}# | |
| 1458 | #{w 1570}# | |
| 1459 | #{s 1571}# | |
| 1460 | #{m 1572}# | |
| 1461 | #{esew 1573}# | |
| 1462 | #{mod 1574}# | |
| e2ccab57 | 1463 | '())) |
| 1bbe0a63 AW |
1464 | (lambda (#{exps 1717}#) |
| 1465 | (if (null? #{exps 1717}#) | |
| 1466 | (#{build-void 264}# #{s 1571}#) | |
| 1467 | (#{build-sequence 294}# | |
| 1468 | #{s 1571}# | |
| e2ccab57 | 1469 | (letrec* |
| 1bbe0a63 AW |
1470 | ((#{lp 1722}# |
| 1471 | (lambda (#{in 1723}# #{out 1724}#) | |
| 1472 | (if (null? #{in 1723}#) | |
| 1473 | #{out 1724}# | |
| e2ccab57 | 1474 | (begin |
| 1bbe0a63 AW |
1475 | (let ((#{e 1726}# (car #{in 1723}#))) |
| 1476 | (#{lp 1722}# | |
| 1477 | (cdr #{in 1723}#) | |
| 1478 | (cons (if (procedure? #{e 1726}#) | |
| 1479 | (#{e 1726}#) | |
| 1480 | #{e 1726}#) | |
| 1481 | #{out 1724}#)))))))) | |
| 1482 | (begin (#{lp 1722}# #{exps 1717}# '()))))))))))) | |
| 1483 | (#{chi-install-global 426}# | |
| 1484 | (lambda (#{name 1727}# #{e 1728}#) | |
| 1485 | (#{build-global-definition 282}# | |
| e2ccab57 | 1486 | #f |
| 1bbe0a63 AW |
1487 | #{name 1727}# |
| 1488 | (#{build-application 266}# | |
| e2ccab57 | 1489 | #f |
| 1bbe0a63 | 1490 | (#{build-primref 290}# |
| d8f699e8 | 1491 | #f |
| e2ccab57 | 1492 | 'make-syntax-transformer) |
| 1bbe0a63 AW |
1493 | (list (#{build-data 292}# #f #{name 1727}#) |
| 1494 | (#{build-data 292}# #f 'macro) | |
| 1495 | #{e 1728}#))))) | |
| 1496 | (#{chi-when-list 428}# | |
| 1497 | (lambda (#{e 1736}# #{when-list 1737}# #{w 1738}#) | |
| e2ccab57 | 1498 | (letrec* |
| 1bbe0a63 AW |
1499 | ((#{f 1745}# |
| 1500 | (lambda (#{when-list 1746}# #{situations 1747}#) | |
| 1501 | (if (null? #{when-list 1746}#) | |
| 1502 | #{situations 1747}# | |
| 1503 | (#{f 1745}# | |
| 1504 | (cdr #{when-list 1746}#) | |
| e2ccab57 | 1505 | (cons (begin |
| 1bbe0a63 AW |
1506 | (let ((#{x 1749}# (car #{when-list 1746}#))) |
| 1507 | (if (#{free-id=? 408}# | |
| 1508 | #{x 1749}# | |
| e2ccab57 AW |
1509 | '#(syntax-object |
| 1510 | compile | |
| d8f699e8 | 1511 | ((top) |
| e2ccab57 AW |
1512 | #(ribcage () () ()) |
| 1513 | #(ribcage () () ()) | |
| 1514 | #(ribcage () () ()) | |
| 1bbe0a63 | 1515 | #(ribcage #(x) #((top)) #("i1748")) |
| e2ccab57 | 1516 | #(ribcage () () ()) |
| d8f699e8 | 1517 | #(ribcage |
| e2ccab57 AW |
1518 | #(f when-list situations) |
| 1519 | #((top) (top) (top)) | |
| 1bbe0a63 | 1520 | #("i1742" "i1743" "i1744")) |
| d8f699e8 AW |
1521 | #(ribcage () () ()) |
| 1522 | #(ribcage | |
| e2ccab57 | 1523 | #(e when-list w) |
| d8f699e8 | 1524 | #((top) (top) (top)) |
| 1bbe0a63 | 1525 | #("i1739" "i1740" "i1741")) |
| d8f699e8 AW |
1526 | #(ribcage |
| 1527 | (lambda-var-list | |
| 1528 | gen-var | |
| 1529 | strip | |
| 1530 | chi-lambda-case | |
| 1531 | lambda*-formals | |
| 1532 | chi-simple-lambda | |
| 1533 | lambda-formals | |
| 1534 | ellipsis? | |
| 1535 | chi-void | |
| 1536 | eval-local-transformer | |
| 1537 | chi-local-syntax | |
| 1538 | chi-body | |
| 1539 | chi-macro | |
| 1540 | chi-application | |
| 1541 | chi-expr | |
| 1542 | chi | |
| 1543 | syntax-type | |
| 1544 | chi-when-list | |
| 1545 | chi-install-global | |
| 1546 | chi-top-sequence | |
| 1547 | chi-sequence | |
| 1548 | source-wrap | |
| 1549 | wrap | |
| 1550 | bound-id-member? | |
| 1551 | distinct-bound-ids? | |
| 1552 | valid-bound-ids? | |
| 1553 | bound-id=? | |
| 1554 | free-id=? | |
| 1555 | id-var-name | |
| 1556 | same-marks? | |
| 1557 | join-marks | |
| 1558 | join-wraps | |
| 1559 | smart-append | |
| 1560 | make-binding-wrap | |
| 1561 | extend-ribcage! | |
| 1562 | make-empty-ribcage | |
| 1563 | new-mark | |
| 1564 | anti-mark | |
| 1565 | the-anti-mark | |
| 1566 | top-marked? | |
| 1567 | top-wrap | |
| 1568 | empty-wrap | |
| 1569 | set-ribcage-labels! | |
| 1570 | set-ribcage-marks! | |
| 1571 | set-ribcage-symnames! | |
| 1572 | ribcage-labels | |
| 1573 | ribcage-marks | |
| 1574 | ribcage-symnames | |
| 1575 | ribcage? | |
| 1576 | make-ribcage | |
| 1577 | gen-labels | |
| 1578 | gen-label | |
| 1579 | make-rename | |
| 1580 | rename-marks | |
| 1581 | rename-new | |
| 1582 | rename-old | |
| 1583 | subst-rename? | |
| 1584 | wrap-subst | |
| 1585 | wrap-marks | |
| 1586 | make-wrap | |
| 1587 | id-sym-name&marks | |
| 1588 | id-sym-name | |
| 1589 | id? | |
| 1590 | nonsymbol-id? | |
| 1591 | global-extend | |
| 1592 | lookup | |
| 1593 | macros-only-env | |
| 1594 | extend-var-env | |
| 1595 | extend-env | |
| 1596 | null-env | |
| 1597 | binding-value | |
| 1598 | binding-type | |
| 1599 | make-binding | |
| 1600 | arg-check | |
| 1601 | source-annotation | |
| 1602 | no-source | |
| 1603 | set-syntax-object-module! | |
| 1604 | set-syntax-object-wrap! | |
| 1605 | set-syntax-object-expression! | |
| 1606 | syntax-object-module | |
| 1607 | syntax-object-wrap | |
| 1608 | syntax-object-expression | |
| 1609 | syntax-object? | |
| 1610 | make-syntax-object | |
| 1611 | build-lexical-var | |
| 1612 | build-letrec | |
| 1613 | build-named-let | |
| 1614 | build-let | |
| 1615 | build-sequence | |
| 1616 | build-data | |
| 1617 | build-primref | |
| 1618 | build-lambda-case | |
| 1619 | build-case-lambda | |
| 1620 | build-simple-lambda | |
| 1621 | build-global-definition | |
| 1622 | build-global-assignment | |
| 1623 | build-global-reference | |
| 1624 | analyze-variable | |
| 1625 | build-lexical-assignment | |
| 1626 | build-lexical-reference | |
| 1627 | build-dynlet | |
| 1628 | build-conditional | |
| 1629 | build-application | |
| 1630 | build-void | |
| 1631 | maybe-name-value! | |
| 1632 | decorate-source | |
| 1633 | get-global-definition-hook | |
| e2ccab57 AW |
1634 | put-global-definition-hook |
| 1635 | gensym-hook | |
| 1636 | local-eval-hook | |
| 1637 | top-level-eval-hook | |
| 1638 | fx< | |
| 1639 | fx= | |
| 1640 | fx- | |
| 1641 | fx+ | |
| 1642 | set-lambda-meta! | |
| 1643 | lambda-meta | |
| 1644 | lambda? | |
| 1645 | make-dynlet | |
| 1646 | make-letrec | |
| 1647 | make-let | |
| 1648 | make-lambda-case | |
| 1649 | make-lambda | |
| 1650 | make-sequence | |
| 1651 | make-application | |
| 1652 | make-conditional | |
| 1653 | make-toplevel-define | |
| 1654 | make-toplevel-set | |
| 1655 | make-toplevel-ref | |
| 1656 | make-module-set | |
| 1657 | make-module-ref | |
| 1658 | make-lexical-set | |
| 1659 | make-lexical-ref | |
| 1660 | make-primitive-ref | |
| 1661 | make-const | |
| 1662 | make-void) | |
| 1663 | ((top) | |
| d8f699e8 AW |
1664 | (top) |
| 1665 | (top) | |
| 1666 | (top) | |
| 1667 | (top) | |
| 1668 | (top) | |
| 1669 | (top) | |
| 1670 | (top) | |
| 1671 | (top) | |
| 1672 | (top) | |
| 1673 | (top) | |
| 1674 | (top) | |
| 1675 | (top) | |
| 1676 | (top) | |
| 1677 | (top) | |
| 1678 | (top) | |
| 1679 | (top) | |
| 1680 | (top) | |
| 1681 | (top) | |
| 1682 | (top) | |
| 1683 | (top) | |
| 1684 | (top) | |
| 1685 | (top) | |
| 1686 | (top) | |
| 1687 | (top) | |
| 1688 | (top) | |
| 1689 | (top) | |
| 1690 | (top) | |
| 1691 | (top) | |
| 1692 | (top) | |
| 1693 | (top) | |
| 1694 | (top) | |
| 1695 | (top) | |
| 1696 | (top) | |
| 1697 | (top) | |
| 1698 | (top) | |
| 1699 | (top) | |
| 1700 | (top) | |
| 1701 | (top) | |
| 1702 | (top) | |
| 1703 | (top) | |
| 1704 | (top) | |
| 1705 | (top) | |
| 1706 | (top) | |
| 1707 | (top) | |
| 1708 | (top) | |
| 1709 | (top) | |
| 1710 | (top) | |
| 1711 | (top) | |
| 1712 | (top) | |
| 1713 | (top) | |
| 1714 | (top) | |
| 1715 | (top) | |
| 1716 | (top) | |
| 1717 | (top) | |
| 1718 | (top) | |
| 1719 | (top) | |
| 1720 | (top) | |
| 1721 | (top) | |
| 1722 | (top) | |
| 1723 | (top) | |
| 1724 | (top) | |
| 1725 | (top) | |
| 1726 | (top) | |
| 1727 | (top) | |
| 1728 | (top) | |
| 1729 | (top) | |
| 1730 | (top) | |
| 1731 | (top) | |
| 1732 | (top) | |
| 1733 | (top) | |
| 1734 | (top) | |
| 1735 | (top) | |
| 1736 | (top) | |
| 1737 | (top) | |
| e2ccab57 AW |
1738 | (top) |
| 1739 | (top) | |
| 1740 | (top) | |
| 1741 | (top) | |
| 1742 | (top) | |
| 1743 | (top) | |
| 1744 | (top) | |
| 1745 | (top) | |
| 1746 | (top) | |
| 1747 | (top) | |
| 1748 | (top) | |
| 1749 | (top) | |
| 1750 | (top) | |
| 1751 | (top) | |
| 1752 | (top) | |
| 1753 | (top) | |
| 1754 | (top) | |
| 1755 | (top) | |
| 1756 | (top) | |
| 1757 | (top) | |
| 1758 | (top) | |
| 1759 | (top) | |
| 1760 | (top) | |
| 1761 | (top) | |
| 1762 | (top) | |
| 1763 | (top) | |
| 1764 | (top) | |
| 1765 | (top) | |
| 1766 | (top) | |
| 1767 | (top) | |
| 1768 | (top) | |
| 1769 | (top) | |
| 1770 | (top) | |
| 1771 | (top) | |
| 1772 | (top) | |
| 1773 | (top) | |
| 1774 | (top) | |
| 1775 | (top) | |
| 1776 | (top) | |
| 1777 | (top) | |
| 1778 | (top) | |
| 1779 | (top) | |
| 1780 | (top) | |
| 1781 | (top) | |
| 1782 | (top) | |
| 1783 | (top) | |
| 1784 | (top) | |
| 1785 | (top) | |
| 1786 | (top) | |
| 1787 | (top) | |
| 1788 | (top) | |
| 1789 | (top) | |
| 1790 | (top) | |
| 1791 | (top) | |
| 1792 | (top) | |
| 1793 | (top) | |
| 1794 | (top) | |
| 1795 | (top) | |
| 1796 | (top) | |
| 1797 | (top) | |
| 1798 | (top)) | |
| 1bbe0a63 AW |
1799 | ("i461" |
| 1800 | "i459" | |
| 1801 | "i457" | |
| 1802 | "i455" | |
| 1803 | "i453" | |
| 1804 | "i451" | |
| 1805 | "i449" | |
| 1806 | "i447" | |
| 1807 | "i445" | |
| 1808 | "i443" | |
| 1809 | "i441" | |
| 1810 | "i439" | |
| 1811 | "i437" | |
| 1812 | "i435" | |
| 1813 | "i433" | |
| 1814 | "i431" | |
| 1815 | "i429" | |
| 1816 | "i427" | |
| 1817 | "i425" | |
| 1818 | "i423" | |
| 1819 | "i421" | |
| 1820 | "i419" | |
| 1821 | "i417" | |
| 1822 | "i415" | |
| 1823 | "i413" | |
| 1824 | "i411" | |
| 1825 | "i409" | |
| 1826 | "i407" | |
| 1827 | "i405" | |
| 1828 | "i403" | |
| 1829 | "i401" | |
| 1830 | "i399" | |
| 1831 | "i397" | |
| 1832 | "i395" | |
| 1833 | "i393" | |
| e2ccab57 AW |
1834 | "i392" |
| 1835 | "i390" | |
| 1bbe0a63 | 1836 | "i387" |
| e2ccab57 | 1837 | "i386" |
| 1bbe0a63 AW |
1838 | "i385" |
| 1839 | "i383" | |
| e2ccab57 AW |
1840 | "i382" |
| 1841 | "i380" | |
| e2ccab57 AW |
1842 | "i378" |
| 1843 | "i376" | |
| e2ccab57 | 1844 | "i374" |
| e2ccab57 AW |
1845 | "i372" |
| 1846 | "i370" | |
| 1847 | "i368" | |
| 1848 | "i366" | |
| 1bbe0a63 AW |
1849 | "i363" |
| 1850 | "i361" | |
| e2ccab57 AW |
1851 | "i360" |
| 1852 | "i358" | |
| 1853 | "i356" | |
| 1bbe0a63 AW |
1854 | "i354" |
| 1855 | "i352" | |
| e2ccab57 AW |
1856 | "i351" |
| 1857 | "i350" | |
| 1858 | "i349" | |
| e2ccab57 AW |
1859 | "i347" |
| 1860 | "i346" | |
| e2ccab57 AW |
1861 | "i343" |
| 1862 | "i341" | |
| 1bbe0a63 AW |
1863 | "i339" |
| 1864 | "i337" | |
| 1865 | "i335" | |
| 1866 | "i333" | |
| 1867 | "i331" | |
| e2ccab57 | 1868 | "i330" |
| 1bbe0a63 AW |
1869 | "i329" |
| 1870 | "i327" | |
| e2ccab57 AW |
1871 | "i325" |
| 1872 | "i324" | |
| e2ccab57 | 1873 | "i321" |
| 1bbe0a63 | 1874 | "i320" |
| e2ccab57 AW |
1875 | "i318" |
| 1876 | "i316" | |
| 1877 | "i314" | |
| 1878 | "i312" | |
| 1879 | "i310" | |
| 1880 | "i308" | |
| 1881 | "i306" | |
| 1882 | "i304" | |
| 1883 | "i302" | |
| 1bbe0a63 AW |
1884 | "i299" |
| 1885 | "i297" | |
| 1886 | "i295" | |
| 1887 | "i293" | |
| 1888 | "i291" | |
| 1889 | "i289" | |
| 1890 | "i287" | |
| 1891 | "i285" | |
| 1892 | "i283" | |
| 1893 | "i281" | |
| 1894 | "i279" | |
| 1895 | "i277" | |
| 1896 | "i275" | |
| 1897 | "i273" | |
| 1898 | "i271" | |
| 1899 | "i269" | |
| 1900 | "i267" | |
| 1901 | "i265" | |
| 1902 | "i263" | |
| 1903 | "i261" | |
| 1904 | "i259" | |
| 1905 | "i257" | |
| 1906 | "i255" | |
| e2ccab57 | 1907 | "i254" |
| e2ccab57 AW |
1908 | "i251" |
| 1909 | "i249" | |
| 1910 | "i248" | |
| 1911 | "i247" | |
| 1912 | "i246" | |
| 1913 | "i245" | |
| 1914 | "i243" | |
| 1915 | "i241" | |
| 1916 | "i239" | |
| 1917 | "i236" | |
| 1918 | "i234" | |
| 1919 | "i232" | |
| 1920 | "i230" | |
| 1921 | "i228" | |
| 1922 | "i226" | |
| 1923 | "i224" | |
| 1924 | "i222" | |
| 1925 | "i220" | |
| 1926 | "i218" | |
| 1927 | "i216" | |
| 1928 | "i214" | |
| 1929 | "i212" | |
| 1930 | "i210" | |
| 1931 | "i208" | |
| 1932 | "i206" | |
| 1933 | "i204" | |
| 1934 | "i202")) | |
| 1935 | #(ribcage | |
| 1936 | (define-structure | |
| 1937 | define-expansion-accessors | |
| 1938 | define-expansion-constructors) | |
| 1939 | ((top) (top) (top)) | |
| 1940 | ("i40" "i39" "i38"))) | |
| 1941 | (hygiene guile))) | |
| 1942 | 'compile | |
| 1bbe0a63 AW |
1943 | (if (#{free-id=? 408}# |
| 1944 | #{x 1749}# | |
| d8f699e8 | 1945 | '#(syntax-object |
| e2ccab57 | 1946 | load |
| d8f699e8 | 1947 | ((top) |
| e2ccab57 AW |
1948 | #(ribcage () () ()) |
| 1949 | #(ribcage () () ()) | |
| 1950 | #(ribcage () () ()) | |
| 1bbe0a63 | 1951 | #(ribcage #(x) #((top)) #("i1748")) |
| d8f699e8 AW |
1952 | #(ribcage () () ()) |
| 1953 | #(ribcage | |
| e2ccab57 | 1954 | #(f when-list situations) |
| d8f699e8 | 1955 | #((top) (top) (top)) |
| 1bbe0a63 | 1956 | #("i1742" "i1743" "i1744")) |
| e2ccab57 | 1957 | #(ribcage () () ()) |
| d8f699e8 | 1958 | #(ribcage |
| e2ccab57 AW |
1959 | #(e when-list w) |
| 1960 | #((top) (top) (top)) | |
| 1bbe0a63 | 1961 | #("i1739" "i1740" "i1741")) |
| d8f699e8 AW |
1962 | #(ribcage |
| 1963 | (lambda-var-list | |
| 1964 | gen-var | |
| 1965 | strip | |
| 1966 | chi-lambda-case | |
| 1967 | lambda*-formals | |
| 1968 | chi-simple-lambda | |
| 1969 | lambda-formals | |
| 1970 | ellipsis? | |
| 1971 | chi-void | |
| 1972 | eval-local-transformer | |
| 1973 | chi-local-syntax | |
| 1974 | chi-body | |
| 1975 | chi-macro | |
| 1976 | chi-application | |
| 1977 | chi-expr | |
| 1978 | chi | |
| 1979 | syntax-type | |
| 1980 | chi-when-list | |
| 1981 | chi-install-global | |
| 1982 | chi-top-sequence | |
| 1983 | chi-sequence | |
| 1984 | source-wrap | |
| 1985 | wrap | |
| 1986 | bound-id-member? | |
| 1987 | distinct-bound-ids? | |
| 1988 | valid-bound-ids? | |
| 1989 | bound-id=? | |
| 1990 | free-id=? | |
| 1991 | id-var-name | |
| 1992 | same-marks? | |
| 1993 | join-marks | |
| 1994 | join-wraps | |
| 1995 | smart-append | |
| 1996 | make-binding-wrap | |
| 1997 | extend-ribcage! | |
| 1998 | make-empty-ribcage | |
| 1999 | new-mark | |
| 2000 | anti-mark | |
| 2001 | the-anti-mark | |
| 2002 | top-marked? | |
| 2003 | top-wrap | |
| 2004 | empty-wrap | |
| 2005 | set-ribcage-labels! | |
| 2006 | set-ribcage-marks! | |
| 2007 | set-ribcage-symnames! | |
| 2008 | ribcage-labels | |
| 2009 | ribcage-marks | |
| 2010 | ribcage-symnames | |
| 2011 | ribcage? | |
| 2012 | make-ribcage | |
| 2013 | gen-labels | |
| 2014 | gen-label | |
| 2015 | make-rename | |
| 2016 | rename-marks | |
| 2017 | rename-new | |
| 2018 | rename-old | |
| 2019 | subst-rename? | |
| 2020 | wrap-subst | |
| 2021 | wrap-marks | |
| 2022 | make-wrap | |
| 2023 | id-sym-name&marks | |
| 2024 | id-sym-name | |
| 2025 | id? | |
| 2026 | nonsymbol-id? | |
| 2027 | global-extend | |
| 2028 | lookup | |
| 2029 | macros-only-env | |
| 2030 | extend-var-env | |
| 2031 | extend-env | |
| 2032 | null-env | |
| 2033 | binding-value | |
| 2034 | binding-type | |
| 2035 | make-binding | |
| 2036 | arg-check | |
| 2037 | source-annotation | |
| 2038 | no-source | |
| 2039 | set-syntax-object-module! | |
| 2040 | set-syntax-object-wrap! | |
| 2041 | set-syntax-object-expression! | |
| 2042 | syntax-object-module | |
| 2043 | syntax-object-wrap | |
| 2044 | syntax-object-expression | |
| 2045 | syntax-object? | |
| 2046 | make-syntax-object | |
| 2047 | build-lexical-var | |
| 2048 | build-letrec | |
| 2049 | build-named-let | |
| 2050 | build-let | |
| 2051 | build-sequence | |
| 2052 | build-data | |
| 2053 | build-primref | |
| 2054 | build-lambda-case | |
| 2055 | build-case-lambda | |
| 2056 | build-simple-lambda | |
| 2057 | build-global-definition | |
| 2058 | build-global-assignment | |
| 2059 | build-global-reference | |
| 2060 | analyze-variable | |
| 2061 | build-lexical-assignment | |
| 2062 | build-lexical-reference | |
| 2063 | build-dynlet | |
| 2064 | build-conditional | |
| 2065 | build-application | |
| 2066 | build-void | |
| 2067 | maybe-name-value! | |
| 2068 | decorate-source | |
| 2069 | get-global-definition-hook | |
| 2070 | put-global-definition-hook | |
| 2071 | gensym-hook | |
| 2072 | local-eval-hook | |
| 2073 | top-level-eval-hook | |
| 2074 | fx< | |
| 2075 | fx= | |
| 2076 | fx- | |
| 2077 | fx+ | |
| 2078 | set-lambda-meta! | |
| 2079 | lambda-meta | |
| 2080 | lambda? | |
| 2081 | make-dynlet | |
| 2082 | make-letrec | |
| 2083 | make-let | |
| 2084 | make-lambda-case | |
| 2085 | make-lambda | |
| 2086 | make-sequence | |
| 2087 | make-application | |
| 2088 | make-conditional | |
| 2089 | make-toplevel-define | |
| 2090 | make-toplevel-set | |
| 2091 | make-toplevel-ref | |
| 2092 | make-module-set | |
| 2093 | make-module-ref | |
| 2094 | make-lexical-set | |
| 2095 | make-lexical-ref | |
| 2096 | make-primitive-ref | |
| 2097 | make-const | |
| 2098 | make-void) | |
| 2099 | ((top) | |
| 2100 | (top) | |
| 2101 | (top) | |
| 2102 | (top) | |
| 2103 | (top) | |
| 2104 | (top) | |
| 2105 | (top) | |
| 2106 | (top) | |
| 2107 | (top) | |
| 2108 | (top) | |
| 2109 | (top) | |
| 2110 | (top) | |
| 2111 | (top) | |
| 2112 | (top) | |
| 2113 | (top) | |
| 2114 | (top) | |
| 2115 | (top) | |
| 2116 | (top) | |
| 2117 | (top) | |
| 2118 | (top) | |
| 2119 | (top) | |
| 2120 | (top) | |
| 2121 | (top) | |
| 2122 | (top) | |
| 2123 | (top) | |
| 2124 | (top) | |
| 2125 | (top) | |
| 2126 | (top) | |
| 2127 | (top) | |
| 2128 | (top) | |
| 2129 | (top) | |
| 2130 | (top) | |
| 2131 | (top) | |
| 2132 | (top) | |
| 2133 | (top) | |
| 2134 | (top) | |
| 2135 | (top) | |
| 2136 | (top) | |
| 2137 | (top) | |
| 2138 | (top) | |
| 2139 | (top) | |
| 2140 | (top) | |
| 2141 | (top) | |
| 2142 | (top) | |
| 2143 | (top) | |
| 2144 | (top) | |
| 2145 | (top) | |
| 2146 | (top) | |
| 2147 | (top) | |
| 2148 | (top) | |
| 2149 | (top) | |
| 2150 | (top) | |
| 2151 | (top) | |
| 2152 | (top) | |
| 2153 | (top) | |
| 2154 | (top) | |
| 2155 | (top) | |
| 2156 | (top) | |
| 2157 | (top) | |
| 2158 | (top) | |
| 2159 | (top) | |
| 2160 | (top) | |
| 2161 | (top) | |
| 2162 | (top) | |
| 2163 | (top) | |
| 2164 | (top) | |
| 2165 | (top) | |
| 2166 | (top) | |
| 2167 | (top) | |
| 2168 | (top) | |
| 2169 | (top) | |
| 2170 | (top) | |
| 2171 | (top) | |
| 2172 | (top) | |
| 2173 | (top) | |
| 2174 | (top) | |
| 2175 | (top) | |
| 2176 | (top) | |
| 2177 | (top) | |
| 2178 | (top) | |
| 2179 | (top) | |
| 2180 | (top) | |
| 2181 | (top) | |
| 2182 | (top) | |
| 2183 | (top) | |
| 2184 | (top) | |
| 2185 | (top) | |
| 2186 | (top) | |
| 2187 | (top) | |
| 2188 | (top) | |
| 2189 | (top) | |
| 2190 | (top) | |
| 2191 | (top) | |
| 2192 | (top) | |
| 2193 | (top) | |
| 2194 | (top) | |
| 2195 | (top) | |
| 2196 | (top) | |
| 2197 | (top) | |
| 2198 | (top) | |
| 2199 | (top) | |
| 2200 | (top) | |
| 2201 | (top) | |
| 2202 | (top) | |
| 2203 | (top) | |
| 2204 | (top) | |
| 2205 | (top) | |
| 2206 | (top) | |
| 2207 | (top) | |
| 2208 | (top) | |
| 2209 | (top) | |
| 2210 | (top) | |
| 2211 | (top) | |
| 2212 | (top) | |
| 2213 | (top) | |
| 2214 | (top) | |
| 2215 | (top) | |
| 2216 | (top) | |
| 2217 | (top) | |
| 2218 | (top) | |
| 2219 | (top) | |
| 2220 | (top) | |
| 2221 | (top) | |
| 2222 | (top) | |
| 2223 | (top) | |
| 2224 | (top) | |
| 2225 | (top) | |
| 2226 | (top) | |
| 2227 | (top) | |
| 2228 | (top) | |
| 2229 | (top) | |
| 2230 | (top) | |
| 2231 | (top) | |
| 2232 | (top) | |
| 2233 | (top) | |
| 2234 | (top)) | |
| 1bbe0a63 AW |
2235 | ("i461" |
| 2236 | "i459" | |
| 2237 | "i457" | |
| 2238 | "i455" | |
| 2239 | "i453" | |
| 2240 | "i451" | |
| 2241 | "i449" | |
| 2242 | "i447" | |
| 2243 | "i445" | |
| 2244 | "i443" | |
| 2245 | "i441" | |
| 2246 | "i439" | |
| 2247 | "i437" | |
| 2248 | "i435" | |
| 2249 | "i433" | |
| 2250 | "i431" | |
| 2251 | "i429" | |
| 2252 | "i427" | |
| 2253 | "i425" | |
| 2254 | "i423" | |
| 2255 | "i421" | |
| 2256 | "i419" | |
| 2257 | "i417" | |
| 2258 | "i415" | |
| 2259 | "i413" | |
| 2260 | "i411" | |
| 2261 | "i409" | |
| 2262 | "i407" | |
| 2263 | "i405" | |
| 2264 | "i403" | |
| 2265 | "i401" | |
| 2266 | "i399" | |
| 2267 | "i397" | |
| 2268 | "i395" | |
| 2269 | "i393" | |
| e2ccab57 | 2270 | "i392" |
| d8f699e8 | 2271 | "i390" |
| 1bbe0a63 | 2272 | "i387" |
| d8f699e8 | 2273 | "i386" |
| 1bbe0a63 AW |
2274 | "i385" |
| 2275 | "i383" | |
| d8f699e8 | 2276 | "i382" |
| d8f699e8 AW |
2277 | "i380" |
| 2278 | "i378" | |
| e2ccab57 | 2279 | "i376" |
| e2ccab57 | 2280 | "i374" |
| e2ccab57 AW |
2281 | "i372" |
| 2282 | "i370" | |
| 2283 | "i368" | |
| 2284 | "i366" | |
| 1bbe0a63 AW |
2285 | "i363" |
| 2286 | "i361" | |
| d8f699e8 | 2287 | "i360" |
| d8f699e8 AW |
2288 | "i358" |
| 2289 | "i356" | |
| 1bbe0a63 AW |
2290 | "i354" |
| 2291 | "i352" | |
| d8f699e8 | 2292 | "i351" |
| e2ccab57 | 2293 | "i350" |
| d8f699e8 AW |
2294 | "i349" |
| 2295 | "i347" | |
| e2ccab57 | 2296 | "i346" |
| d8f699e8 AW |
2297 | "i343" |
| 2298 | "i341" | |
| 1bbe0a63 AW |
2299 | "i339" |
| 2300 | "i337" | |
| 2301 | "i335" | |
| 2302 | "i333" | |
| 2303 | "i331" | |
| e2ccab57 | 2304 | "i330" |
| 1bbe0a63 AW |
2305 | "i329" |
| 2306 | "i327" | |
| d8f699e8 | 2307 | "i325" |
| e2ccab57 | 2308 | "i324" |
| d8f699e8 | 2309 | "i321" |
| 1bbe0a63 | 2310 | "i320" |
| e2ccab57 AW |
2311 | "i318" |
| 2312 | "i316" | |
| 2313 | "i314" | |
| 2314 | "i312" | |
| 2315 | "i310" | |
| 2316 | "i308" | |
| 2317 | "i306" | |
| 2318 | "i304" | |
| 2319 | "i302" | |
| 1bbe0a63 AW |
2320 | "i299" |
| 2321 | "i297" | |
| 2322 | "i295" | |
| 2323 | "i293" | |
| 2324 | "i291" | |
| 2325 | "i289" | |
| 2326 | "i287" | |
| 2327 | "i285" | |
| 2328 | "i283" | |
| 2329 | "i281" | |
| 2330 | "i279" | |
| 2331 | "i277" | |
| 2332 | "i275" | |
| 2333 | "i273" | |
| 2334 | "i271" | |
| 2335 | "i269" | |
| 2336 | "i267" | |
| 2337 | "i265" | |
| 2338 | "i263" | |
| 2339 | "i261" | |
| 2340 | "i259" | |
| 2341 | "i257" | |
| 2342 | "i255" | |
| e2ccab57 | 2343 | "i254" |
| d8f699e8 AW |
2344 | "i251" |
| 2345 | "i249" | |
| e2ccab57 | 2346 | "i248" |
| d8f699e8 | 2347 | "i247" |
| e2ccab57 | 2348 | "i246" |
| d8f699e8 AW |
2349 | "i245" |
| 2350 | "i243" | |
| 2351 | "i241" | |
| e2ccab57 AW |
2352 | "i239" |
| 2353 | "i236" | |
| 2354 | "i234" | |
| 2355 | "i232" | |
| 2356 | "i230" | |
| 2357 | "i228" | |
| 2358 | "i226" | |
| 2359 | "i224" | |
| 2360 | "i222" | |
| 2361 | "i220" | |
| 2362 | "i218" | |
| 2363 | "i216" | |
| 2364 | "i214" | |
| 2365 | "i212" | |
| 2366 | "i210" | |
| 2367 | "i208" | |
| 2368 | "i206" | |
| 2369 | "i204" | |
| 2370 | "i202")) | |
| d8f699e8 AW |
2371 | #(ribcage |
| 2372 | (define-structure | |
| 2373 | define-expansion-accessors | |
| e2ccab57 AW |
2374 | define-expansion-constructors) |
| 2375 | ((top) (top) (top)) | |
| 2376 | ("i40" "i39" "i38"))) | |
| d8f699e8 | 2377 | (hygiene guile))) |
| e2ccab57 | 2378 | 'load |
| 1bbe0a63 AW |
2379 | (if (#{free-id=? 408}# |
| 2380 | #{x 1749}# | |
| e2ccab57 AW |
2381 | '#(syntax-object |
| 2382 | eval | |
| 2383 | ((top) | |
| 2384 | #(ribcage () () ()) | |
| 2385 | #(ribcage () () ()) | |
| 2386 | #(ribcage () () ()) | |
| 1bbe0a63 | 2387 | #(ribcage #(x) #((top)) #("i1748")) |
| e2ccab57 AW |
2388 | #(ribcage () () ()) |
| 2389 | #(ribcage | |
| 2390 | #(f when-list situations) | |
| 2391 | #((top) (top) (top)) | |
| 1bbe0a63 | 2392 | #("i1742" "i1743" "i1744")) |
| e2ccab57 AW |
2393 | #(ribcage () () ()) |
| 2394 | #(ribcage | |
| 2395 | #(e when-list w) | |
| 2396 | #((top) (top) (top)) | |
| 1bbe0a63 | 2397 | #("i1739" "i1740" "i1741")) |
| e2ccab57 AW |
2398 | #(ribcage |
| 2399 | (lambda-var-list | |
| 2400 | gen-var | |
| 2401 | strip | |
| 2402 | chi-lambda-case | |
| 2403 | lambda*-formals | |
| 2404 | chi-simple-lambda | |
| 2405 | lambda-formals | |
| 2406 | ellipsis? | |
| 2407 | chi-void | |
| 2408 | eval-local-transformer | |
| 2409 | chi-local-syntax | |
| 2410 | chi-body | |
| 2411 | chi-macro | |
| 2412 | chi-application | |
| 2413 | chi-expr | |
| 2414 | chi | |
| 2415 | syntax-type | |
| 2416 | chi-when-list | |
| 2417 | chi-install-global | |
| 2418 | chi-top-sequence | |
| 2419 | chi-sequence | |
| 2420 | source-wrap | |
| 2421 | wrap | |
| 2422 | bound-id-member? | |
| 2423 | distinct-bound-ids? | |
| 2424 | valid-bound-ids? | |
| 2425 | bound-id=? | |
| 2426 | free-id=? | |
| 2427 | id-var-name | |
| 2428 | same-marks? | |
| 2429 | join-marks | |
| 2430 | join-wraps | |
| 2431 | smart-append | |
| 2432 | make-binding-wrap | |
| 2433 | extend-ribcage! | |
| 2434 | make-empty-ribcage | |
| 2435 | new-mark | |
| 2436 | anti-mark | |
| 2437 | the-anti-mark | |
| 2438 | top-marked? | |
| 2439 | top-wrap | |
| 2440 | empty-wrap | |
| 2441 | set-ribcage-labels! | |
| 2442 | set-ribcage-marks! | |
| 2443 | set-ribcage-symnames! | |
| 2444 | ribcage-labels | |
| 2445 | ribcage-marks | |
| 2446 | ribcage-symnames | |
| 2447 | ribcage? | |
| 2448 | make-ribcage | |
| 2449 | gen-labels | |
| 2450 | gen-label | |
| 2451 | make-rename | |
| 2452 | rename-marks | |
| 2453 | rename-new | |
| 2454 | rename-old | |
| 2455 | subst-rename? | |
| 2456 | wrap-subst | |
| 2457 | wrap-marks | |
| 2458 | make-wrap | |
| 2459 | id-sym-name&marks | |
| 2460 | id-sym-name | |
| 2461 | id? | |
| 2462 | nonsymbol-id? | |
| 2463 | global-extend | |
| 2464 | lookup | |
| 2465 | macros-only-env | |
| 2466 | extend-var-env | |
| 2467 | extend-env | |
| 2468 | null-env | |
| 2469 | binding-value | |
| 2470 | binding-type | |
| 2471 | make-binding | |
| 2472 | arg-check | |
| 2473 | source-annotation | |
| 2474 | no-source | |
| 2475 | set-syntax-object-module! | |
| 2476 | set-syntax-object-wrap! | |
| 2477 | set-syntax-object-expression! | |
| 2478 | syntax-object-module | |
| 2479 | syntax-object-wrap | |
| 2480 | syntax-object-expression | |
| 2481 | syntax-object? | |
| 2482 | make-syntax-object | |
| 2483 | build-lexical-var | |
| 2484 | build-letrec | |
| 2485 | build-named-let | |
| 2486 | build-let | |
| 2487 | build-sequence | |
| 2488 | build-data | |
| 2489 | build-primref | |
| 2490 | build-lambda-case | |
| 2491 | build-case-lambda | |
| 2492 | build-simple-lambda | |
| 2493 | build-global-definition | |
| 2494 | build-global-assignment | |
| 2495 | build-global-reference | |
| 2496 | analyze-variable | |
| 2497 | build-lexical-assignment | |
| 2498 | build-lexical-reference | |
| 2499 | build-dynlet | |
| 2500 | build-conditional | |
| 2501 | build-application | |
| 2502 | build-void | |
| 2503 | maybe-name-value! | |
| 2504 | decorate-source | |
| 2505 | get-global-definition-hook | |
| 2506 | put-global-definition-hook | |
| 2507 | gensym-hook | |
| 2508 | local-eval-hook | |
| 2509 | top-level-eval-hook | |
| 2510 | fx< | |
| 2511 | fx= | |
| 2512 | fx- | |
| 2513 | fx+ | |
| 2514 | set-lambda-meta! | |
| 2515 | lambda-meta | |
| 2516 | lambda? | |
| 2517 | make-dynlet | |
| 2518 | make-letrec | |
| 2519 | make-let | |
| 2520 | make-lambda-case | |
| 2521 | make-lambda | |
| 2522 | make-sequence | |
| 2523 | make-application | |
| 2524 | make-conditional | |
| 2525 | make-toplevel-define | |
| 2526 | make-toplevel-set | |
| 2527 | make-toplevel-ref | |
| 2528 | make-module-set | |
| 2529 | make-module-ref | |
| 2530 | make-lexical-set | |
| 2531 | make-lexical-ref | |
| 2532 | make-primitive-ref | |
| 2533 | make-const | |
| 2534 | make-void) | |
| 2535 | ((top) | |
| 2536 | (top) | |
| 2537 | (top) | |
| 2538 | (top) | |
| 2539 | (top) | |
| 2540 | (top) | |
| 2541 | (top) | |
| 2542 | (top) | |
| 2543 | (top) | |
| 2544 | (top) | |
| 2545 | (top) | |
| 2546 | (top) | |
| 2547 | (top) | |
| 2548 | (top) | |
| 2549 | (top) | |
| 2550 | (top) | |
| 2551 | (top) | |
| 2552 | (top) | |
| 2553 | (top) | |
| 2554 | (top) | |
| 2555 | (top) | |
| 2556 | (top) | |
| 2557 | (top) | |
| 2558 | (top) | |
| 2559 | (top) | |
| 2560 | (top) | |
| 2561 | (top) | |
| 2562 | (top) | |
| 2563 | (top) | |
| 2564 | (top) | |
| 2565 | (top) | |
| 2566 | (top) | |
| 2567 | (top) | |
| 2568 | (top) | |
| 2569 | (top) | |
| 2570 | (top) | |
| 2571 | (top) | |
| 2572 | (top) | |
| 2573 | (top) | |
| 2574 | (top) | |
| 2575 | (top) | |
| 2576 | (top) | |
| 2577 | (top) | |
| 2578 | (top) | |
| 2579 | (top) | |
| 2580 | (top) | |
| 2581 | (top) | |
| 2582 | (top) | |
| 2583 | (top) | |
| 2584 | (top) | |
| 2585 | (top) | |
| 2586 | (top) | |
| 2587 | (top) | |
| 2588 | (top) | |
| 2589 | (top) | |
| 2590 | (top) | |
| 2591 | (top) | |
| 2592 | (top) | |
| 2593 | (top) | |
| 2594 | (top) | |
| 2595 | (top) | |
| 2596 | (top) | |
| 2597 | (top) | |
| 2598 | (top) | |
| 2599 | (top) | |
| 2600 | (top) | |
| 2601 | (top) | |
| 2602 | (top) | |
| 2603 | (top) | |
| 2604 | (top) | |
| 2605 | (top) | |
| 2606 | (top) | |
| 2607 | (top) | |
| 2608 | (top) | |
| 2609 | (top) | |
| 2610 | (top) | |
| 2611 | (top) | |
| 2612 | (top) | |
| 2613 | (top) | |
| 2614 | (top) | |
| 2615 | (top) | |
| 2616 | (top) | |
| 2617 | (top) | |
| 2618 | (top) | |
| 2619 | (top) | |
| 2620 | (top) | |
| 2621 | (top) | |
| 2622 | (top) | |
| 2623 | (top) | |
| 2624 | (top) | |
| 2625 | (top) | |
| 2626 | (top) | |
| 2627 | (top) | |
| 2628 | (top) | |
| 2629 | (top) | |
| 2630 | (top) | |
| 2631 | (top) | |
| 2632 | (top) | |
| 2633 | (top) | |
| 2634 | (top) | |
| 2635 | (top) | |
| 2636 | (top) | |
| 2637 | (top) | |
| 2638 | (top) | |
| 2639 | (top) | |
| 2640 | (top) | |
| 2641 | (top) | |
| 2642 | (top) | |
| 2643 | (top) | |
| 2644 | (top) | |
| 2645 | (top) | |
| 2646 | (top) | |
| 2647 | (top) | |
| 2648 | (top) | |
| 2649 | (top) | |
| 2650 | (top) | |
| 2651 | (top) | |
| 2652 | (top) | |
| 2653 | (top) | |
| 2654 | (top) | |
| 2655 | (top) | |
| 2656 | (top) | |
| 2657 | (top) | |
| 2658 | (top) | |
| 2659 | (top) | |
| 2660 | (top) | |
| 2661 | (top) | |
| 2662 | (top) | |
| 2663 | (top) | |
| 2664 | (top) | |
| 2665 | (top) | |
| 2666 | (top) | |
| 2667 | (top) | |
| 2668 | (top) | |
| 2669 | (top) | |
| 2670 | (top)) | |
| 1bbe0a63 AW |
2671 | ("i461" |
| 2672 | "i459" | |
| 2673 | "i457" | |
| 2674 | "i455" | |
| 2675 | "i453" | |
| 2676 | "i451" | |
| 2677 | "i449" | |
| 2678 | "i447" | |
| 2679 | "i445" | |
| 2680 | "i443" | |
| 2681 | "i441" | |
| 2682 | "i439" | |
| 2683 | "i437" | |
| 2684 | "i435" | |
| 2685 | "i433" | |
| 2686 | "i431" | |
| 2687 | "i429" | |
| 2688 | "i427" | |
| 2689 | "i425" | |
| 2690 | "i423" | |
| 2691 | "i421" | |
| 2692 | "i419" | |
| 2693 | "i417" | |
| 2694 | "i415" | |
| 2695 | "i413" | |
| 2696 | "i411" | |
| 2697 | "i409" | |
| 2698 | "i407" | |
| 2699 | "i405" | |
| 2700 | "i403" | |
| 2701 | "i401" | |
| 2702 | "i399" | |
| 2703 | "i397" | |
| 2704 | "i395" | |
| 2705 | "i393" | |
| e2ccab57 AW |
2706 | "i392" |
| 2707 | "i390" | |
| 1bbe0a63 | 2708 | "i387" |
| e2ccab57 | 2709 | "i386" |
| 1bbe0a63 AW |
2710 | "i385" |
| 2711 | "i383" | |
| e2ccab57 AW |
2712 | "i382" |
| 2713 | "i380" | |
| e2ccab57 AW |
2714 | "i378" |
| 2715 | "i376" | |
| e2ccab57 | 2716 | "i374" |
| e2ccab57 AW |
2717 | "i372" |
| 2718 | "i370" | |
| 2719 | "i368" | |
| 2720 | "i366" | |
| 1bbe0a63 AW |
2721 | "i363" |
| 2722 | "i361" | |
| e2ccab57 AW |
2723 | "i360" |
| 2724 | "i358" | |
| 2725 | "i356" | |
| 1bbe0a63 AW |
2726 | "i354" |
| 2727 | "i352" | |
| e2ccab57 AW |
2728 | "i351" |
| 2729 | "i350" | |
| 2730 | "i349" | |
| e2ccab57 AW |
2731 | "i347" |
| 2732 | "i346" | |
| e2ccab57 AW |
2733 | "i343" |
| 2734 | "i341" | |
| 1bbe0a63 AW |
2735 | "i339" |
| 2736 | "i337" | |
| 2737 | "i335" | |
| 2738 | "i333" | |
| 2739 | "i331" | |
| e2ccab57 | 2740 | "i330" |
| 1bbe0a63 AW |
2741 | "i329" |
| 2742 | "i327" | |
| e2ccab57 AW |
2743 | "i325" |
| 2744 | "i324" | |
| e2ccab57 | 2745 | "i321" |
| 1bbe0a63 | 2746 | "i320" |
| e2ccab57 AW |
2747 | "i318" |
| 2748 | "i316" | |
| 2749 | "i314" | |
| 2750 | "i312" | |
| 2751 | "i310" | |
| 2752 | "i308" | |
| 2753 | "i306" | |
| 2754 | "i304" | |
| 2755 | "i302" | |
| 1bbe0a63 AW |
2756 | "i299" |
| 2757 | "i297" | |
| 2758 | "i295" | |
| 2759 | "i293" | |
| 2760 | "i291" | |
| 2761 | "i289" | |
| 2762 | "i287" | |
| 2763 | "i285" | |
| 2764 | "i283" | |
| 2765 | "i281" | |
| 2766 | "i279" | |
| 2767 | "i277" | |
| 2768 | "i275" | |
| 2769 | "i273" | |
| 2770 | "i271" | |
| 2771 | "i269" | |
| 2772 | "i267" | |
| 2773 | "i265" | |
| 2774 | "i263" | |
| 2775 | "i261" | |
| 2776 | "i259" | |
| 2777 | "i257" | |
| 2778 | "i255" | |
| e2ccab57 | 2779 | "i254" |
| e2ccab57 AW |
2780 | "i251" |
| 2781 | "i249" | |
| 2782 | "i248" | |
| 2783 | "i247" | |
| 2784 | "i246" | |
| 2785 | "i245" | |
| 2786 | "i243" | |
| 2787 | "i241" | |
| 2788 | "i239" | |
| 2789 | "i236" | |
| 2790 | "i234" | |
| 2791 | "i232" | |
| 2792 | "i230" | |
| 2793 | "i228" | |
| 2794 | "i226" | |
| 2795 | "i224" | |
| 2796 | "i222" | |
| 2797 | "i220" | |
| 2798 | "i218" | |
| 2799 | "i216" | |
| 2800 | "i214" | |
| 2801 | "i212" | |
| 2802 | "i210" | |
| 2803 | "i208" | |
| 2804 | "i206" | |
| 2805 | "i204" | |
| 2806 | "i202")) | |
| 2807 | #(ribcage | |
| 2808 | (define-structure | |
| 2809 | define-expansion-accessors | |
| 2810 | define-expansion-constructors) | |
| 2811 | ((top) (top) (top)) | |
| 2812 | ("i40" "i39" "i38"))) | |
| 2813 | (hygiene guile))) | |
| 2814 | 'eval | |
| 1bbe0a63 AW |
2815 | (if (#{free-id=? 408}# |
| 2816 | #{x 1749}# | |
| e2ccab57 AW |
2817 | '#(syntax-object |
| 2818 | expand | |
| 2819 | ((top) | |
| 2820 | #(ribcage () () ()) | |
| 2821 | #(ribcage () () ()) | |
| 2822 | #(ribcage () () ()) | |
| 1bbe0a63 | 2823 | #(ribcage #(x) #((top)) #("i1748")) |
| e2ccab57 AW |
2824 | #(ribcage () () ()) |
| 2825 | #(ribcage | |
| 2826 | #(f when-list situations) | |
| 2827 | #((top) (top) (top)) | |
| 1bbe0a63 | 2828 | #("i1742" "i1743" "i1744")) |
| e2ccab57 AW |
2829 | #(ribcage () () ()) |
| 2830 | #(ribcage | |
| 2831 | #(e when-list w) | |
| 2832 | #((top) (top) (top)) | |
| 1bbe0a63 | 2833 | #("i1739" "i1740" "i1741")) |
| e2ccab57 AW |
2834 | #(ribcage |
| 2835 | (lambda-var-list | |
| 2836 | gen-var | |
| 2837 | strip | |
| 2838 | chi-lambda-case | |
| 2839 | lambda*-formals | |
| 2840 | chi-simple-lambda | |
| 2841 | lambda-formals | |
| 2842 | ellipsis? | |
| 2843 | chi-void | |
| 2844 | eval-local-transformer | |
| 2845 | chi-local-syntax | |
| 2846 | chi-body | |
| 2847 | chi-macro | |
| 2848 | chi-application | |
| 2849 | chi-expr | |
| 2850 | chi | |
| 2851 | syntax-type | |
| 2852 | chi-when-list | |
| 2853 | chi-install-global | |
| 2854 | chi-top-sequence | |
| 2855 | chi-sequence | |
| 2856 | source-wrap | |
| 2857 | wrap | |
| 2858 | bound-id-member? | |
| 2859 | distinct-bound-ids? | |
| 2860 | valid-bound-ids? | |
| 2861 | bound-id=? | |
| 2862 | free-id=? | |
| 2863 | id-var-name | |
| 2864 | same-marks? | |
| 2865 | join-marks | |
| 2866 | join-wraps | |
| 2867 | smart-append | |
| 2868 | make-binding-wrap | |
| 2869 | extend-ribcage! | |
| 2870 | make-empty-ribcage | |
| 2871 | new-mark | |
| 2872 | anti-mark | |
| 2873 | the-anti-mark | |
| 2874 | top-marked? | |
| 2875 | top-wrap | |
| 2876 | empty-wrap | |
| 2877 | set-ribcage-labels! | |
| 2878 | set-ribcage-marks! | |
| 2879 | set-ribcage-symnames! | |
| 2880 | ribcage-labels | |
| 2881 | ribcage-marks | |
| 2882 | ribcage-symnames | |
| 2883 | ribcage? | |
| 2884 | make-ribcage | |
| 2885 | gen-labels | |
| 2886 | gen-label | |
| 2887 | make-rename | |
| 2888 | rename-marks | |
| 2889 | rename-new | |
| 2890 | rename-old | |
| 2891 | subst-rename? | |
| 2892 | wrap-subst | |
| 2893 | wrap-marks | |
| 2894 | make-wrap | |
| 2895 | id-sym-name&marks | |
| 2896 | id-sym-name | |
| 2897 | id? | |
| 2898 | nonsymbol-id? | |
| 2899 | global-extend | |
| 2900 | lookup | |
| 2901 | macros-only-env | |
| 2902 | extend-var-env | |
| 2903 | extend-env | |
| 2904 | null-env | |
| 2905 | binding-value | |
| 2906 | binding-type | |
| 2907 | make-binding | |
| 2908 | arg-check | |
| 2909 | source-annotation | |
| 2910 | no-source | |
| 2911 | set-syntax-object-module! | |
| 2912 | set-syntax-object-wrap! | |
| 2913 | set-syntax-object-expression! | |
| 2914 | syntax-object-module | |
| 2915 | syntax-object-wrap | |
| 2916 | syntax-object-expression | |
| 2917 | syntax-object? | |
| 2918 | make-syntax-object | |
| 2919 | build-lexical-var | |
| 2920 | build-letrec | |
| 2921 | build-named-let | |
| 2922 | build-let | |
| 2923 | build-sequence | |
| 2924 | build-data | |
| 2925 | build-primref | |
| 2926 | build-lambda-case | |
| 2927 | build-case-lambda | |
| 2928 | build-simple-lambda | |
| 2929 | build-global-definition | |
| 2930 | build-global-assignment | |
| 2931 | build-global-reference | |
| 2932 | analyze-variable | |
| 2933 | build-lexical-assignment | |
| 2934 | build-lexical-reference | |
| 2935 | build-dynlet | |
| 2936 | build-conditional | |
| 2937 | build-application | |
| 2938 | build-void | |
| 2939 | maybe-name-value! | |
| 2940 | decorate-source | |
| 2941 | get-global-definition-hook | |
| 2942 | put-global-definition-hook | |
| 2943 | gensym-hook | |
| 2944 | local-eval-hook | |
| 2945 | top-level-eval-hook | |
| 2946 | fx< | |
| 2947 | fx= | |
| 2948 | fx- | |
| 2949 | fx+ | |
| 2950 | set-lambda-meta! | |
| 2951 | lambda-meta | |
| 2952 | lambda? | |
| 2953 | make-dynlet | |
| 2954 | make-letrec | |
| 2955 | make-let | |
| 2956 | make-lambda-case | |
| 2957 | make-lambda | |
| 2958 | make-sequence | |
| 2959 | make-application | |
| 2960 | make-conditional | |
| 2961 | make-toplevel-define | |
| 2962 | make-toplevel-set | |
| 2963 | make-toplevel-ref | |
| 2964 | make-module-set | |
| 2965 | make-module-ref | |
| 2966 | make-lexical-set | |
| 2967 | make-lexical-ref | |
| 2968 | make-primitive-ref | |
| 2969 | make-const | |
| 2970 | make-void) | |
| 2971 | ((top) | |
| 2972 | (top) | |
| 2973 | (top) | |
| 2974 | (top) | |
| 2975 | (top) | |
| 2976 | (top) | |
| 2977 | (top) | |
| 2978 | (top) | |
| 2979 | (top) | |
| 2980 | (top) | |
| 2981 | (top) | |
| 2982 | (top) | |
| 2983 | (top) | |
| 2984 | (top) | |
| 2985 | (top) | |
| 2986 | (top) | |
| 2987 | (top) | |
| 2988 | (top) | |
| 2989 | (top) | |
| 2990 | (top) | |
| 2991 | (top) | |
| 2992 | (top) | |
| 2993 | (top) | |
| 2994 | (top) | |
| 2995 | (top) | |
| 2996 | (top) | |
| 2997 | (top) | |
| 2998 | (top) | |
| 2999 | (top) | |
| 3000 | (top) | |
| 3001 | (top) | |
| 3002 | (top) | |
| 3003 | (top) | |
| 3004 | (top) | |
| 3005 | (top) | |
| 3006 | (top) | |
| 3007 | (top) | |
| 3008 | (top) | |
| 3009 | (top) | |
| 3010 | (top) | |
| 3011 | (top) | |
| 3012 | (top) | |
| 3013 | (top) | |
| 3014 | (top) | |
| 3015 | (top) | |
| 3016 | (top) | |
| 3017 | (top) | |
| 3018 | (top) | |
| 3019 | (top) | |
| 3020 | (top) | |
| 3021 | (top) | |
| 3022 | (top) | |
| 3023 | (top) | |
| 3024 | (top) | |
| 3025 | (top) | |
| 3026 | (top) | |
| 3027 | (top) | |
| 3028 | (top) | |
| 3029 | (top) | |
| 3030 | (top) | |
| 3031 | (top) | |
| 3032 | (top) | |
| 3033 | (top) | |
| 3034 | (top) | |
| 3035 | (top) | |
| 3036 | (top) | |
| 3037 | (top) | |
| 3038 | (top) | |
| 3039 | (top) | |
| 3040 | (top) | |
| 3041 | (top) | |
| 3042 | (top) | |
| 3043 | (top) | |
| 3044 | (top) | |
| 3045 | (top) | |
| 3046 | (top) | |
| 3047 | (top) | |
| 3048 | (top) | |
| 3049 | (top) | |
| 3050 | (top) | |
| 3051 | (top) | |
| 3052 | (top) | |
| 3053 | (top) | |
| 3054 | (top) | |
| 3055 | (top) | |
| 3056 | (top) | |
| 3057 | (top) | |
| 3058 | (top) | |
| 3059 | (top) | |
| 3060 | (top) | |
| 3061 | (top) | |
| 3062 | (top) | |
| 3063 | (top) | |
| 3064 | (top) | |
| 3065 | (top) | |
| 3066 | (top) | |
| 3067 | (top) | |
| 3068 | (top) | |
| 3069 | (top) | |
| 3070 | (top) | |
| 3071 | (top) | |
| 3072 | (top) | |
| 3073 | (top) | |
| 3074 | (top) | |
| 3075 | (top) | |
| 3076 | (top) | |
| 3077 | (top) | |
| 3078 | (top) | |
| 3079 | (top) | |
| 3080 | (top) | |
| 3081 | (top) | |
| 3082 | (top) | |
| 3083 | (top) | |
| 3084 | (top) | |
| 3085 | (top) | |
| 3086 | (top) | |
| 3087 | (top) | |
| 3088 | (top) | |
| 3089 | (top) | |
| 3090 | (top) | |
| 3091 | (top) | |
| 3092 | (top) | |
| 3093 | (top) | |
| 3094 | (top) | |
| 3095 | (top) | |
| 3096 | (top) | |
| 3097 | (top) | |
| 3098 | (top) | |
| 3099 | (top) | |
| 3100 | (top) | |
| 3101 | (top) | |
| 3102 | (top) | |
| 3103 | (top) | |
| 3104 | (top) | |
| 3105 | (top) | |
| 3106 | (top)) | |
| 1bbe0a63 AW |
3107 | ("i461" |
| 3108 | "i459" | |
| 3109 | "i457" | |
| 3110 | "i455" | |
| 3111 | "i453" | |
| 3112 | "i451" | |
| 3113 | "i449" | |
| 3114 | "i447" | |
| 3115 | "i445" | |
| 3116 | "i443" | |
| 3117 | "i441" | |
| 3118 | "i439" | |
| 3119 | "i437" | |
| 3120 | "i435" | |
| 3121 | "i433" | |
| 3122 | "i431" | |
| 3123 | "i429" | |
| 3124 | "i427" | |
| 3125 | "i425" | |
| 3126 | "i423" | |
| 3127 | "i421" | |
| 3128 | "i419" | |
| 3129 | "i417" | |
| 3130 | "i415" | |
| 3131 | "i413" | |
| 3132 | "i411" | |
| 3133 | "i409" | |
| 3134 | "i407" | |
| 3135 | "i405" | |
| 3136 | "i403" | |
| 3137 | "i401" | |
| 3138 | "i399" | |
| 3139 | "i397" | |
| 3140 | "i395" | |
| 3141 | "i393" | |
| e2ccab57 AW |
3142 | "i392" |
| 3143 | "i390" | |
| 1bbe0a63 | 3144 | "i387" |
| e2ccab57 | 3145 | "i386" |
| 1bbe0a63 AW |
3146 | "i385" |
| 3147 | "i383" | |
| e2ccab57 AW |
3148 | "i382" |
| 3149 | "i380" | |
| e2ccab57 AW |
3150 | "i378" |
| 3151 | "i376" | |
| e2ccab57 | 3152 | "i374" |
| e2ccab57 AW |
3153 | "i372" |
| 3154 | "i370" | |
| 3155 | "i368" | |
| 3156 | "i366" | |
| 1bbe0a63 AW |
3157 | "i363" |
| 3158 | "i361" | |
| e2ccab57 AW |
3159 | "i360" |
| 3160 | "i358" | |
| 3161 | "i356" | |
| 1bbe0a63 AW |
3162 | "i354" |
| 3163 | "i352" | |
| e2ccab57 AW |
3164 | "i351" |
| 3165 | "i350" | |
| 3166 | "i349" | |
| e2ccab57 AW |
3167 | "i347" |
| 3168 | "i346" | |
| e2ccab57 AW |
3169 | "i343" |
| 3170 | "i341" | |
| 1bbe0a63 AW |
3171 | "i339" |
| 3172 | "i337" | |
| 3173 | "i335" | |
| 3174 | "i333" | |
| 3175 | "i331" | |
| e2ccab57 | 3176 | "i330" |
| 1bbe0a63 AW |
3177 | "i329" |
| 3178 | "i327" | |
| e2ccab57 AW |
3179 | "i325" |
| 3180 | "i324" | |
| e2ccab57 | 3181 | "i321" |
| 1bbe0a63 | 3182 | "i320" |
| e2ccab57 AW |
3183 | "i318" |
| 3184 | "i316" | |
| 3185 | "i314" | |
| 3186 | "i312" | |
| 3187 | "i310" | |
| 3188 | "i308" | |
| 3189 | "i306" | |
| 3190 | "i304" | |
| 3191 | "i302" | |
| 1bbe0a63 AW |
3192 | "i299" |
| 3193 | "i297" | |
| 3194 | "i295" | |
| 3195 | "i293" | |
| 3196 | "i291" | |
| 3197 | "i289" | |
| 3198 | "i287" | |
| 3199 | "i285" | |
| 3200 | "i283" | |
| 3201 | "i281" | |
| 3202 | "i279" | |
| 3203 | "i277" | |
| 3204 | "i275" | |
| 3205 | "i273" | |
| 3206 | "i271" | |
| 3207 | "i269" | |
| 3208 | "i267" | |
| 3209 | "i265" | |
| 3210 | "i263" | |
| 3211 | "i261" | |
| 3212 | "i259" | |
| 3213 | "i257" | |
| 3214 | "i255" | |
| e2ccab57 | 3215 | "i254" |
| e2ccab57 AW |
3216 | "i251" |
| 3217 | "i249" | |
| 3218 | "i248" | |
| 3219 | "i247" | |
| 3220 | "i246" | |
| 3221 | "i245" | |
| 3222 | "i243" | |
| 3223 | "i241" | |
| 3224 | "i239" | |
| 3225 | "i236" | |
| 3226 | "i234" | |
| 3227 | "i232" | |
| 3228 | "i230" | |
| 3229 | "i228" | |
| 3230 | "i226" | |
| 3231 | "i224" | |
| 3232 | "i222" | |
| 3233 | "i220" | |
| 3234 | "i218" | |
| 3235 | "i216" | |
| 3236 | "i214" | |
| 3237 | "i212" | |
| 3238 | "i210" | |
| 3239 | "i208" | |
| 3240 | "i206" | |
| 3241 | "i204" | |
| 3242 | "i202")) | |
| 3243 | #(ribcage | |
| 3244 | (define-structure | |
| 3245 | define-expansion-accessors | |
| 3246 | define-expansion-constructors) | |
| 3247 | ((top) (top) (top)) | |
| 3248 | ("i40" "i39" "i38"))) | |
| 3249 | (hygiene guile))) | |
| 3250 | 'expand | |
| 3251 | (syntax-violation | |
| 3252 | 'eval-when | |
| 3253 | "invalid situation" | |
| 1bbe0a63 AW |
3254 | #{e 1736}# |
| 3255 | (#{wrap 418}# | |
| 3256 | #{x 1749}# | |
| 3257 | #{w 1738}# | |
| e2ccab57 | 3258 | #f)))))))) |
| 1bbe0a63 AW |
3259 | #{situations 1747}#)))))) |
| 3260 | (begin (#{f 1745}# #{when-list 1737}# '()))))) | |
| 3261 | (#{syntax-type 430}# | |
| 3262 | (lambda (#{e 1759}# | |
| 3263 | #{r 1760}# | |
| 3264 | #{w 1761}# | |
| 3265 | #{s 1762}# | |
| 3266 | #{rib 1763}# | |
| 3267 | #{mod 1764}# | |
| 3268 | #{for-car? 1765}#) | |
| 3269 | (if (symbol? #{e 1759}#) | |
| e2ccab57 | 3270 | (begin |
| 1bbe0a63 AW |
3271 | (let ((#{n 1777}# |
| 3272 | (#{id-var-name 406}# #{e 1759}# #{w 1761}#))) | |
| e2ccab57 | 3273 | (begin |
| 1bbe0a63 AW |
3274 | (let ((#{b 1779}# |
| 3275 | (#{lookup 338}# | |
| 3276 | #{n 1777}# | |
| 3277 | #{r 1760}# | |
| 3278 | #{mod 1764}#))) | |
| e2ccab57 | 3279 | (begin |
| 1bbe0a63 AW |
3280 | (let ((#{type 1781}# (car #{b 1779}#))) |
| 3281 | (if (eqv? #{type 1781}# 'lexical) | |
| e2ccab57 | 3282 | (values |
| 1bbe0a63 AW |
3283 | #{type 1781}# |
| 3284 | (cdr #{b 1779}#) | |
| 3285 | #{e 1759}# | |
| 3286 | #{w 1761}# | |
| 3287 | #{s 1762}# | |
| 3288 | #{mod 1764}#) | |
| 3289 | (if (eqv? #{type 1781}# 'global) | |
| e2ccab57 | 3290 | (values |
| 1bbe0a63 AW |
3291 | #{type 1781}# |
| 3292 | #{n 1777}# | |
| 3293 | #{e 1759}# | |
| 3294 | #{w 1761}# | |
| 3295 | #{s 1762}# | |
| 3296 | #{mod 1764}#) | |
| 3297 | (if (eqv? #{type 1781}# 'macro) | |
| 3298 | (if #{for-car? 1765}# | |
| e2ccab57 | 3299 | (values |
| 1bbe0a63 AW |
3300 | #{type 1781}# |
| 3301 | (cdr #{b 1779}#) | |
| 3302 | #{e 1759}# | |
| 3303 | #{w 1761}# | |
| 3304 | #{s 1762}# | |
| 3305 | #{mod 1764}#) | |
| 3306 | (#{syntax-type 430}# | |
| 3307 | (#{chi-macro 438}# | |
| 3308 | (cdr #{b 1779}#) | |
| 3309 | #{e 1759}# | |
| 3310 | #{r 1760}# | |
| 3311 | #{w 1761}# | |
| 3312 | #{s 1762}# | |
| 3313 | #{rib 1763}# | |
| 3314 | #{mod 1764}#) | |
| 3315 | #{r 1760}# | |
| e2ccab57 | 3316 | '(()) |
| 1bbe0a63 AW |
3317 | #{s 1762}# |
| 3318 | #{rib 1763}# | |
| 3319 | #{mod 1764}# | |
| e2ccab57 AW |
3320 | #f)) |
| 3321 | (values | |
| 1bbe0a63 AW |
3322 | #{type 1781}# |
| 3323 | (cdr #{b 1779}#) | |
| 3324 | #{e 1759}# | |
| 3325 | #{w 1761}# | |
| 3326 | #{s 1762}# | |
| 3327 | #{mod 1764}#)))))))))) | |
| 3328 | (if (pair? #{e 1759}#) | |
| e2ccab57 | 3329 | (begin |
| 1bbe0a63 | 3330 | (let ((#{first 1795}# (car #{e 1759}#))) |
| e2ccab57 AW |
3331 | (call-with-values |
| 3332 | (lambda () | |
| 1bbe0a63 AW |
3333 | (#{syntax-type 430}# |
| 3334 | #{first 1795}# | |
| 3335 | #{r 1760}# | |
| 3336 | #{w 1761}# | |
| 3337 | #{s 1762}# | |
| 3338 | #{rib 1763}# | |
| 3339 | #{mod 1764}# | |
| e2ccab57 | 3340 | #t)) |
| 1bbe0a63 AW |
3341 | (lambda (#{ftype 1796}# |
| 3342 | #{fval 1797}# | |
| 3343 | #{fe 1798}# | |
| 3344 | #{fw 1799}# | |
| 3345 | #{fs 1800}# | |
| 3346 | #{fmod 1801}#) | |
| 3347 | (if (eqv? #{ftype 1796}# 'lexical) | |
| e2ccab57 AW |
3348 | (values |
| 3349 | 'lexical-call | |
| 1bbe0a63 AW |
3350 | #{fval 1797}# |
| 3351 | #{e 1759}# | |
| 3352 | #{w 1761}# | |
| 3353 | #{s 1762}# | |
| 3354 | #{mod 1764}#) | |
| 3355 | (if (eqv? #{ftype 1796}# 'global) | |
| e2ccab57 AW |
3356 | (values |
| 3357 | 'global-call | |
| 1bbe0a63 AW |
3358 | (#{make-syntax-object 305}# |
| 3359 | #{fval 1797}# | |
| 3360 | #{w 1761}# | |
| 3361 | #{fmod 1801}#) | |
| 3362 | #{e 1759}# | |
| 3363 | #{w 1761}# | |
| 3364 | #{s 1762}# | |
| 3365 | #{mod 1764}#) | |
| 3366 | (if (eqv? #{ftype 1796}# 'macro) | |
| 3367 | (#{syntax-type 430}# | |
| 3368 | (#{chi-macro 438}# | |
| 3369 | #{fval 1797}# | |
| 3370 | #{e 1759}# | |
| 3371 | #{r 1760}# | |
| 3372 | #{w 1761}# | |
| 3373 | #{s 1762}# | |
| 3374 | #{rib 1763}# | |
| 3375 | #{mod 1764}#) | |
| 3376 | #{r 1760}# | |
| e2ccab57 | 3377 | '(()) |
| 1bbe0a63 AW |
3378 | #{s 1762}# |
| 3379 | #{rib 1763}# | |
| 3380 | #{mod 1764}# | |
| 3381 | #{for-car? 1765}#) | |
| 3382 | (if (eqv? #{ftype 1796}# 'module-ref) | |
| e2ccab57 AW |
3383 | (call-with-values |
| 3384 | (lambda () | |
| 1bbe0a63 AW |
3385 | (#{fval 1797}# |
| 3386 | #{e 1759}# | |
| 3387 | #{r 1760}# | |
| 3388 | #{w 1761}#)) | |
| 3389 | (lambda (#{e 1813}# | |
| 3390 | #{r 1814}# | |
| 3391 | #{w 1815}# | |
| 3392 | #{s 1816}# | |
| 3393 | #{mod 1817}#) | |
| 3394 | (#{syntax-type 430}# | |
| 3395 | #{e 1813}# | |
| 3396 | #{r 1814}# | |
| 3397 | #{w 1815}# | |
| 3398 | #{s 1816}# | |
| 3399 | #{rib 1763}# | |
| 3400 | #{mod 1817}# | |
| 3401 | #{for-car? 1765}#))) | |
| 3402 | (if (eqv? #{ftype 1796}# 'core) | |
| e2ccab57 AW |
3403 | (values |
| 3404 | 'core-form | |
| 1bbe0a63 AW |
3405 | #{fval 1797}# |
| 3406 | #{e 1759}# | |
| 3407 | #{w 1761}# | |
| 3408 | #{s 1762}# | |
| 3409 | #{mod 1764}#) | |
| 3410 | (if (eqv? #{ftype 1796}# 'local-syntax) | |
| e2ccab57 AW |
3411 | (values |
| 3412 | 'local-syntax-form | |
| 1bbe0a63 AW |
3413 | #{fval 1797}# |
| 3414 | #{e 1759}# | |
| 3415 | #{w 1761}# | |
| 3416 | #{s 1762}# | |
| 3417 | #{mod 1764}#) | |
| 3418 | (if (eqv? #{ftype 1796}# 'begin) | |
| e2ccab57 AW |
3419 | (values |
| 3420 | 'begin-form | |
| 3421 | #f | |
| 1bbe0a63 AW |
3422 | #{e 1759}# |
| 3423 | #{w 1761}# | |
| 3424 | #{s 1762}# | |
| 3425 | #{mod 1764}#) | |
| 3426 | (if (eqv? #{ftype 1796}# 'eval-when) | |
| e2ccab57 AW |
3427 | (values |
| 3428 | 'eval-when-form | |
| 3429 | #f | |
| 1bbe0a63 AW |
3430 | #{e 1759}# |
| 3431 | #{w 1761}# | |
| 3432 | #{s 1762}# | |
| 3433 | #{mod 1764}#) | |
| 3434 | (if (eqv? #{ftype 1796}# 'define) | |
| 3435 | (let ((#{tmp 1828}# #{e 1759}#)) | |
| 3436 | (let ((#{tmp 1829}# | |
| e2ccab57 | 3437 | ($sc-dispatch |
| 1bbe0a63 | 3438 | #{tmp 1828}# |
| e2ccab57 | 3439 | '(_ any any)))) |
| 1bbe0a63 | 3440 | (if (if #{tmp 1829}# |
| e2ccab57 | 3441 | (@apply |
| 1bbe0a63 AW |
3442 | (lambda (#{name 1832}# |
| 3443 | #{val 1833}#) | |
| 3444 | (#{id? 344}# #{name 1832}#)) | |
| 3445 | #{tmp 1829}#) | |
| e2ccab57 AW |
3446 | #f) |
| 3447 | (@apply | |
| 1bbe0a63 AW |
3448 | (lambda (#{name 1836}# |
| 3449 | #{val 1837}#) | |
| e2ccab57 AW |
3450 | (values |
| 3451 | 'define-form | |
| 1bbe0a63 AW |
3452 | #{name 1836}# |
| 3453 | #{val 1837}# | |
| 3454 | #{w 1761}# | |
| 3455 | #{s 1762}# | |
| 3456 | #{mod 1764}#)) | |
| 3457 | #{tmp 1829}#) | |
| 3458 | (let ((#{tmp 1838}# | |
| e2ccab57 | 3459 | ($sc-dispatch |
| 1bbe0a63 | 3460 | #{tmp 1828}# |
| e2ccab57 AW |
3461 | '(_ (any . any) |
| 3462 | any | |
| 3463 | . | |
| 3464 | each-any)))) | |
| 1bbe0a63 | 3465 | (if (if #{tmp 1838}# |
| e2ccab57 | 3466 | (@apply |
| 1bbe0a63 AW |
3467 | (lambda (#{name 1843}# |
| 3468 | #{args 1844}# | |
| 3469 | #{e1 1845}# | |
| 3470 | #{e2 1846}#) | |
| 3471 | (if (#{id? 344}# | |
| 3472 | #{name 1843}#) | |
| 3473 | (#{valid-bound-ids? 412}# | |
| 3474 | (#{lambda-var-list 462}# | |
| 3475 | #{args 1844}#)) | |
| e2ccab57 | 3476 | #f)) |
| 1bbe0a63 | 3477 | #{tmp 1838}#) |
| e2ccab57 AW |
3478 | #f) |
| 3479 | (@apply | |
| 1bbe0a63 AW |
3480 | (lambda (#{name 1853}# |
| 3481 | #{args 1854}# | |
| 3482 | #{e1 1855}# | |
| 3483 | #{e2 1856}#) | |
| e2ccab57 AW |
3484 | (values |
| 3485 | 'define-form | |
| 1bbe0a63 AW |
3486 | (#{wrap 418}# |
| 3487 | #{name 1853}# | |
| 3488 | #{w 1761}# | |
| 3489 | #{mod 1764}#) | |
| 3490 | (#{decorate-source 260}# | |
| e2ccab57 AW |
3491 | (cons '#(syntax-object |
| 3492 | lambda | |
| 3493 | ((top) | |
| 3494 | #(ribcage | |
| 3495 | #(name | |
| 3496 | args | |
| 3497 | e1 | |
| 3498 | e2) | |
| 3499 | #((top) | |
| 3500 | (top) | |
| 3501 | (top) | |
| 3502 | (top)) | |
| 1bbe0a63 AW |
3503 | #("i1849" |
| 3504 | "i1850" | |
| 3505 | "i1851" | |
| 3506 | "i1852")) | |
| e2ccab57 AW |
3507 | #(ribcage |
| 3508 | () | |
| 3509 | () | |
| 3510 | ()) | |
| 3511 | #(ribcage | |
| 3512 | () | |
| 3513 | () | |
| 3514 | ()) | |
| 3515 | #(ribcage | |
| 3516 | #(ftype | |
| 3517 | fval | |
| 3518 | fe | |
| 3519 | fw | |
| 3520 | fs | |
| 3521 | fmod) | |
| 3522 | #((top) | |
| 3523 | (top) | |
| 3524 | (top) | |
| 3525 | (top) | |
| 3526 | (top) | |
| 3527 | (top)) | |
| 1bbe0a63 AW |
3528 | #("i1802" |
| 3529 | "i1803" | |
| 3530 | "i1804" | |
| 3531 | "i1805" | |
| 3532 | "i1806" | |
| 3533 | "i1807")) | |
| e2ccab57 AW |
3534 | #(ribcage |
| 3535 | () | |
| 3536 | () | |
| 3537 | ()) | |
| 3538 | #(ribcage | |
| 3539 | #(first) | |
| 3540 | #((top)) | |
| 1bbe0a63 | 3541 | #("i1794")) |
| e2ccab57 AW |
3542 | #(ribcage |
| 3543 | () | |
| 3544 | () | |
| 3545 | ()) | |
| 3546 | #(ribcage | |
| 3547 | () | |
| 3548 | () | |
| 3549 | ()) | |
| 3550 | #(ribcage | |
| 3551 | () | |
| 3552 | () | |
| 3553 | ()) | |
| 3554 | #(ribcage | |
| 3555 | #(e | |
| 3556 | r | |
| 3557 | w | |
| 3558 | s | |
| 3559 | rib | |
| 3560 | mod | |
| 3561 | for-car?) | |
| 3562 | #((top) | |
| 3563 | (top) | |
| 3564 | (top) | |
| 3565 | (top) | |
| 3566 | (top) | |
| 3567 | (top) | |
| 3568 | (top)) | |
| 1bbe0a63 AW |
3569 | #("i1766" |
| 3570 | "i1767" | |
| 3571 | "i1768" | |
| 3572 | "i1769" | |
| 3573 | "i1770" | |
| 3574 | "i1771" | |
| 3575 | "i1772")) | |
| e2ccab57 AW |
3576 | #(ribcage |
| 3577 | (lambda-var-list | |
| 3578 | gen-var | |
| 3579 | strip | |
| 3580 | chi-lambda-case | |
| 3581 | lambda*-formals | |
| 3582 | chi-simple-lambda | |
| 3583 | lambda-formals | |
| 3584 | ellipsis? | |
| 3585 | chi-void | |
| 3586 | eval-local-transformer | |
| 3587 | chi-local-syntax | |
| 3588 | chi-body | |
| 3589 | chi-macro | |
| 3590 | chi-application | |
| 3591 | chi-expr | |
| 3592 | chi | |
| 3593 | syntax-type | |
| 3594 | chi-when-list | |
| 3595 | chi-install-global | |
| 3596 | chi-top-sequence | |
| 3597 | chi-sequence | |
| 3598 | source-wrap | |
| 3599 | wrap | |
| 3600 | bound-id-member? | |
| 3601 | distinct-bound-ids? | |
| 3602 | valid-bound-ids? | |
| 3603 | bound-id=? | |
| 3604 | free-id=? | |
| 3605 | id-var-name | |
| 3606 | same-marks? | |
| 3607 | join-marks | |
| 3608 | join-wraps | |
| 3609 | smart-append | |
| 3610 | make-binding-wrap | |
| 3611 | extend-ribcage! | |
| 3612 | make-empty-ribcage | |
| 3613 | new-mark | |
| 3614 | anti-mark | |
| 3615 | the-anti-mark | |
| 3616 | top-marked? | |
| 3617 | top-wrap | |
| 3618 | empty-wrap | |
| 3619 | set-ribcage-labels! | |
| 3620 | set-ribcage-marks! | |
| 3621 | set-ribcage-symnames! | |
| 3622 | ribcage-labels | |
| 3623 | ribcage-marks | |
| 3624 | ribcage-symnames | |
| 3625 | ribcage? | |
| 3626 | make-ribcage | |
| 3627 | gen-labels | |
| 3628 | gen-label | |
| 3629 | make-rename | |
| 3630 | rename-marks | |
| 3631 | rename-new | |
| 3632 | rename-old | |
| 3633 | subst-rename? | |
| 3634 | wrap-subst | |
| 3635 | wrap-marks | |
| 3636 | make-wrap | |
| 3637 | id-sym-name&marks | |
| 3638 | id-sym-name | |
| 3639 | id? | |
| 3640 | nonsymbol-id? | |
| 3641 | global-extend | |
| 3642 | lookup | |
| 3643 | macros-only-env | |
| 3644 | extend-var-env | |
| 3645 | extend-env | |
| 3646 | null-env | |
| 3647 | binding-value | |
| 3648 | binding-type | |
| 3649 | make-binding | |
| 3650 | arg-check | |
| 3651 | source-annotation | |
| 3652 | no-source | |
| 3653 | set-syntax-object-module! | |
| 3654 | set-syntax-object-wrap! | |
| 3655 | set-syntax-object-expression! | |
| 3656 | syntax-object-module | |
| 3657 | syntax-object-wrap | |
| 3658 | syntax-object-expression | |
| 3659 | syntax-object? | |
| 3660 | make-syntax-object | |
| 3661 | build-lexical-var | |
| 3662 | build-letrec | |
| 3663 | build-named-let | |
| 3664 | build-let | |
| 3665 | build-sequence | |
| 3666 | build-data | |
| 3667 | build-primref | |
| 3668 | build-lambda-case | |
| 3669 | build-case-lambda | |
| 3670 | build-simple-lambda | |
| 3671 | build-global-definition | |
| 3672 | build-global-assignment | |
| 3673 | build-global-reference | |
| 3674 | analyze-variable | |
| 3675 | build-lexical-assignment | |
| 3676 | build-lexical-reference | |
| 3677 | build-dynlet | |
| 3678 | build-conditional | |
| 3679 | build-application | |
| 3680 | build-void | |
| 3681 | maybe-name-value! | |
| 3682 | decorate-source | |
| 3683 | get-global-definition-hook | |
| 3684 | put-global-definition-hook | |
| 3685 | gensym-hook | |
| 3686 | local-eval-hook | |
| 3687 | top-level-eval-hook | |
| 3688 | fx< | |
| 3689 | fx= | |
| 3690 | fx- | |
| 3691 | fx+ | |
| 3692 | set-lambda-meta! | |
| 3693 | lambda-meta | |
| 3694 | lambda? | |
| 3695 | make-dynlet | |
| 3696 | make-letrec | |
| 3697 | make-let | |
| 3698 | make-lambda-case | |
| 3699 | make-lambda | |
| 3700 | make-sequence | |
| 3701 | make-application | |
| 3702 | make-conditional | |
| 3703 | make-toplevel-define | |
| 3704 | make-toplevel-set | |
| 3705 | make-toplevel-ref | |
| 3706 | make-module-set | |
| 3707 | make-module-ref | |
| 3708 | make-lexical-set | |
| 3709 | make-lexical-ref | |
| 3710 | make-primitive-ref | |
| 3711 | make-const | |
| 3712 | make-void) | |
| 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 | (top) | |
| 3789 | (top) | |
| 3790 | (top) | |
| 3791 | (top) | |
| 3792 | (top) | |
| 3793 | (top) | |
| 3794 | (top) | |
| 3795 | (top) | |
| 3796 | (top) | |
| 3797 | (top) | |
| 3798 | (top) | |
| 3799 | (top) | |
| 3800 | (top) | |
| 3801 | (top) | |
| 3802 | (top) | |
| 3803 | (top) | |
| 3804 | (top) | |
| 3805 | (top) | |
| 3806 | (top) | |
| 3807 | (top) | |
| 3808 | (top) | |
| 3809 | (top) | |
| 3810 | (top) | |
| 3811 | (top) | |
| 3812 | (top) | |
| 3813 | (top) | |
| 3814 | (top) | |
| 3815 | (top) | |
| 3816 | (top) | |
| 3817 | (top) | |
| 3818 | (top) | |
| 3819 | (top) | |
| 3820 | (top) | |
| 3821 | (top) | |
| 3822 | (top) | |
| 3823 | (top) | |
| 3824 | (top) | |
| 3825 | (top) | |
| 3826 | (top) | |
| 3827 | (top) | |
| 3828 | (top) | |
| 3829 | (top) | |
| 3830 | (top) | |
| 3831 | (top) | |
| 3832 | (top) | |
| 3833 | (top) | |
| 3834 | (top) | |
| 3835 | (top) | |
| 3836 | (top) | |
| 3837 | (top) | |
| 3838 | (top) | |
| 3839 | (top) | |
| 3840 | (top) | |
| 3841 | (top) | |
| 3842 | (top) | |
| 3843 | (top) | |
| 3844 | (top) | |
| 3845 | (top) | |
| 3846 | (top) | |
| 3847 | (top) | |
| 3848 | (top)) | |
| 1bbe0a63 AW |
3849 | ("i461" |
| 3850 | "i459" | |
| 3851 | "i457" | |
| 3852 | "i455" | |
| 3853 | "i453" | |
| 3854 | "i451" | |
| 3855 | "i449" | |
| 3856 | "i447" | |
| 3857 | "i445" | |
| 3858 | "i443" | |
| 3859 | "i441" | |
| 3860 | "i439" | |
| 3861 | "i437" | |
| 3862 | "i435" | |
| 3863 | "i433" | |
| 3864 | "i431" | |
| 3865 | "i429" | |
| 3866 | "i427" | |
| 3867 | "i425" | |
| 3868 | "i423" | |
| 3869 | "i421" | |
| 3870 | "i419" | |
| 3871 | "i417" | |
| 3872 | "i415" | |
| 3873 | "i413" | |
| 3874 | "i411" | |
| 3875 | "i409" | |
| 3876 | "i407" | |
| 3877 | "i405" | |
| 3878 | "i403" | |
| 3879 | "i401" | |
| 3880 | "i399" | |
| 3881 | "i397" | |
| 3882 | "i395" | |
| 3883 | "i393" | |
| e2ccab57 AW |
3884 | "i392" |
| 3885 | "i390" | |
| 1bbe0a63 | 3886 | "i387" |
| e2ccab57 | 3887 | "i386" |
| 1bbe0a63 AW |
3888 | "i385" |
| 3889 | "i383" | |
| e2ccab57 AW |
3890 | "i382" |
| 3891 | "i380" | |
| e2ccab57 AW |
3892 | "i378" |
| 3893 | "i376" | |
| e2ccab57 | 3894 | "i374" |
| e2ccab57 AW |
3895 | "i372" |
| 3896 | "i370" | |
| 3897 | "i368" | |
| 3898 | "i366" | |
| 1bbe0a63 AW |
3899 | "i363" |
| 3900 | "i361" | |
| e2ccab57 AW |
3901 | "i360" |
| 3902 | "i358" | |
| 3903 | "i356" | |
| 1bbe0a63 AW |
3904 | "i354" |
| 3905 | "i352" | |
| e2ccab57 AW |
3906 | "i351" |
| 3907 | "i350" | |
| 3908 | "i349" | |
| e2ccab57 AW |
3909 | "i347" |
| 3910 | "i346" | |
| e2ccab57 AW |
3911 | "i343" |
| 3912 | "i341" | |
| 1bbe0a63 AW |
3913 | "i339" |
| 3914 | "i337" | |
| 3915 | "i335" | |
| 3916 | "i333" | |
| 3917 | "i331" | |
| e2ccab57 | 3918 | "i330" |
| 1bbe0a63 AW |
3919 | "i329" |
| 3920 | "i327" | |
| e2ccab57 AW |
3921 | "i325" |
| 3922 | "i324" | |
| e2ccab57 | 3923 | "i321" |
| 1bbe0a63 | 3924 | "i320" |
| e2ccab57 AW |
3925 | "i318" |
| 3926 | "i316" | |
| 3927 | "i314" | |
| 3928 | "i312" | |
| 3929 | "i310" | |
| 3930 | "i308" | |
| 3931 | "i306" | |
| 3932 | "i304" | |
| 3933 | "i302" | |
| 1bbe0a63 AW |
3934 | "i299" |
| 3935 | "i297" | |
| 3936 | "i295" | |
| 3937 | "i293" | |
| 3938 | "i291" | |
| 3939 | "i289" | |
| 3940 | "i287" | |
| 3941 | "i285" | |
| 3942 | "i283" | |
| 3943 | "i281" | |
| 3944 | "i279" | |
| 3945 | "i277" | |
| 3946 | "i275" | |
| 3947 | "i273" | |
| 3948 | "i271" | |
| 3949 | "i269" | |
| 3950 | "i267" | |
| 3951 | "i265" | |
| 3952 | "i263" | |
| 3953 | "i261" | |
| 3954 | "i259" | |
| 3955 | "i257" | |
| 3956 | "i255" | |
| e2ccab57 | 3957 | "i254" |
| e2ccab57 AW |
3958 | "i251" |
| 3959 | "i249" | |
| 3960 | "i248" | |
| 3961 | "i247" | |
| 3962 | "i246" | |
| 3963 | "i245" | |
| 3964 | "i243" | |
| 3965 | "i241" | |
| 3966 | "i239" | |
| 3967 | "i236" | |
| 3968 | "i234" | |
| 3969 | "i232" | |
| 3970 | "i230" | |
| 3971 | "i228" | |
| 3972 | "i226" | |
| 3973 | "i224" | |
| 3974 | "i222" | |
| 3975 | "i220" | |
| 3976 | "i218" | |
| 3977 | "i216" | |
| 3978 | "i214" | |
| 3979 | "i212" | |
| 3980 | "i210" | |
| 3981 | "i208" | |
| 3982 | "i206" | |
| 3983 | "i204" | |
| 3984 | "i202")) | |
| 3985 | #(ribcage | |
| 3986 | (define-structure | |
| 3987 | define-expansion-accessors | |
| 3988 | define-expansion-constructors) | |
| 3989 | ((top) | |
| 3990 | (top) | |
| 3991 | (top)) | |
| 3992 | ("i40" | |
| 3993 | "i39" | |
| 3994 | "i38"))) | |
| 3995 | (hygiene | |
| 3996 | guile)) | |
| 1bbe0a63 AW |
3997 | (#{wrap 418}# |
| 3998 | (cons #{args 1854}# | |
| 3999 | (cons #{e1 1855}# | |
| 4000 | #{e2 1856}#)) | |
| 4001 | #{w 1761}# | |
| 4002 | #{mod 1764}#)) | |
| 4003 | #{s 1762}#) | |
| e2ccab57 | 4004 | '(()) |
| 1bbe0a63 AW |
4005 | #{s 1762}# |
| 4006 | #{mod 1764}#)) | |
| 4007 | #{tmp 1838}#) | |
| 4008 | (let ((#{tmp 1859}# | |
| e2ccab57 | 4009 | ($sc-dispatch |
| 1bbe0a63 | 4010 | #{tmp 1828}# |
| e2ccab57 | 4011 | '(_ any)))) |
| 1bbe0a63 | 4012 | (if (if #{tmp 1859}# |
| e2ccab57 | 4013 | (@apply |
| 1bbe0a63 AW |
4014 | (lambda (#{name 1861}#) |
| 4015 | (#{id? 344}# | |
| 4016 | #{name 1861}#)) | |
| 4017 | #{tmp 1859}#) | |
| e2ccab57 AW |
4018 | #f) |
| 4019 | (@apply | |
| 1bbe0a63 | 4020 | (lambda (#{name 1863}#) |
| e2ccab57 AW |
4021 | (values |
| 4022 | 'define-form | |
| 1bbe0a63 AW |
4023 | (#{wrap 418}# |
| 4024 | #{name 1863}# | |
| 4025 | #{w 1761}# | |
| 4026 | #{mod 1764}#) | |
| e2ccab57 AW |
4027 | '(#(syntax-object |
| 4028 | if | |
| 4029 | ((top) | |
| 4030 | #(ribcage | |
| 4031 | #(name) | |
| 4032 | #((top)) | |
| 1bbe0a63 | 4033 | #("i1862")) |
| e2ccab57 AW |
4034 | #(ribcage |
| 4035 | () | |
| 4036 | () | |
| 4037 | ()) | |
| 4038 | #(ribcage | |
| 4039 | () | |
| 4040 | () | |
| 4041 | ()) | |
| 4042 | #(ribcage | |
| 4043 | #(ftype | |
| 4044 | fval | |
| 4045 | fe | |
| 4046 | fw | |
| 4047 | fs | |
| 4048 | fmod) | |
| 4049 | #((top) | |
| 4050 | (top) | |
| 4051 | (top) | |
| 4052 | (top) | |
| 4053 | (top) | |
| 4054 | (top)) | |
| 1bbe0a63 AW |
4055 | #("i1802" |
| 4056 | "i1803" | |
| 4057 | "i1804" | |
| 4058 | "i1805" | |
| 4059 | "i1806" | |
| 4060 | "i1807")) | |
| e2ccab57 AW |
4061 | #(ribcage |
| 4062 | () | |
| 4063 | () | |
| 4064 | ()) | |
| 4065 | #(ribcage | |
| 4066 | #(first) | |
| 4067 | #((top)) | |
| 1bbe0a63 | 4068 | #("i1794")) |
| e2ccab57 AW |
4069 | #(ribcage |
| 4070 | () | |
| 4071 | () | |
| 4072 | ()) | |
| 4073 | #(ribcage | |
| 4074 | () | |
| 4075 | () | |
| 4076 | ()) | |
| 4077 | #(ribcage | |
| 4078 | () | |
| 4079 | () | |
| 4080 | ()) | |
| 4081 | #(ribcage | |
| 4082 | #(e | |
| 4083 | r | |
| 4084 | w | |
| 4085 | s | |
| 4086 | rib | |
| 4087 | mod | |
| 4088 | for-car?) | |
| 4089 | #((top) | |
| 4090 | (top) | |
| 4091 | (top) | |
| 4092 | (top) | |
| 4093 | (top) | |
| 4094 | (top) | |
| 4095 | (top)) | |
| 1bbe0a63 AW |
4096 | #("i1766" |
| 4097 | "i1767" | |
| 4098 | "i1768" | |
| 4099 | "i1769" | |
| 4100 | "i1770" | |
| 4101 | "i1771" | |
| 4102 | "i1772")) | |
| e2ccab57 AW |
4103 | #(ribcage |
| 4104 | (lambda-var-list | |
| 4105 | gen-var | |
| 4106 | strip | |
| 4107 | chi-lambda-case | |
| 4108 | lambda*-formals | |
| 4109 | chi-simple-lambda | |
| 4110 | lambda-formals | |
| 4111 | ellipsis? | |
| 4112 | chi-void | |
| 4113 | eval-local-transformer | |
| 4114 | chi-local-syntax | |
| 4115 | chi-body | |
| 4116 | chi-macro | |
| 4117 | chi-application | |
| 4118 | chi-expr | |
| 4119 | chi | |
| 4120 | syntax-type | |
| 4121 | chi-when-list | |
| 4122 | chi-install-global | |
| 4123 | chi-top-sequence | |
| 4124 | chi-sequence | |
| 4125 | source-wrap | |
| 4126 | wrap | |
| 4127 | bound-id-member? | |
| 4128 | distinct-bound-ids? | |
| 4129 | valid-bound-ids? | |
| 4130 | bound-id=? | |
| 4131 | free-id=? | |
| 4132 | id-var-name | |
| 4133 | same-marks? | |
| 4134 | join-marks | |
| 4135 | join-wraps | |
| 4136 | smart-append | |
| 4137 | make-binding-wrap | |
| 4138 | extend-ribcage! | |
| 4139 | make-empty-ribcage | |
| 4140 | new-mark | |
| 4141 | anti-mark | |
| 4142 | the-anti-mark | |
| 4143 | top-marked? | |
| 4144 | top-wrap | |
| 4145 | empty-wrap | |
| 4146 | set-ribcage-labels! | |
| 4147 | set-ribcage-marks! | |
| 4148 | set-ribcage-symnames! | |
| 4149 | ribcage-labels | |
| 4150 | ribcage-marks | |
| 4151 | ribcage-symnames | |
| 4152 | ribcage? | |
| 4153 | make-ribcage | |
| 4154 | gen-labels | |
| 4155 | gen-label | |
| 4156 | make-rename | |
| 4157 | rename-marks | |
| 4158 | rename-new | |
| 4159 | rename-old | |
| 4160 | subst-rename? | |
| 4161 | wrap-subst | |
| 4162 | wrap-marks | |
| 4163 | make-wrap | |
| 4164 | id-sym-name&marks | |
| 4165 | id-sym-name | |
| 4166 | id? | |
| 4167 | nonsymbol-id? | |
| 4168 | global-extend | |
| 4169 | lookup | |
| 4170 | macros-only-env | |
| 4171 | extend-var-env | |
| 4172 | extend-env | |
| 4173 | null-env | |
| 4174 | binding-value | |
| 4175 | binding-type | |
| 4176 | make-binding | |
| 4177 | arg-check | |
| 4178 | source-annotation | |
| 4179 | no-source | |
| 4180 | set-syntax-object-module! | |
| 4181 | set-syntax-object-wrap! | |
| 4182 | set-syntax-object-expression! | |
| 4183 | syntax-object-module | |
| 4184 | syntax-object-wrap | |
| 4185 | syntax-object-expression | |
| 4186 | syntax-object? | |
| 4187 | make-syntax-object | |
| 4188 | build-lexical-var | |
| 4189 | build-letrec | |
| 4190 | build-named-let | |
| 4191 | build-let | |
| 4192 | build-sequence | |
| 4193 | build-data | |
| 4194 | build-primref | |
| 4195 | build-lambda-case | |
| 4196 | build-case-lambda | |
| 4197 | build-simple-lambda | |
| 4198 | build-global-definition | |
| 4199 | build-global-assignment | |
| 4200 | build-global-reference | |
| 4201 | analyze-variable | |
| 4202 | build-lexical-assignment | |
| 4203 | build-lexical-reference | |
| 4204 | build-dynlet | |
| 4205 | build-conditional | |
| 4206 | build-application | |
| 4207 | build-void | |
| 4208 | maybe-name-value! | |
| 4209 | decorate-source | |
| 4210 | get-global-definition-hook | |
| 4211 | put-global-definition-hook | |
| 4212 | gensym-hook | |
| 4213 | local-eval-hook | |
| 4214 | top-level-eval-hook | |
| 4215 | fx< | |
| 4216 | fx= | |
| 4217 | fx- | |
| 4218 | fx+ | |
| 4219 | set-lambda-meta! | |
| 4220 | lambda-meta | |
| 4221 | lambda? | |
| 4222 | make-dynlet | |
| 4223 | make-letrec | |
| 4224 | make-let | |
| 4225 | make-lambda-case | |
| 4226 | make-lambda | |
| 4227 | make-sequence | |
| 4228 | make-application | |
| 4229 | make-conditional | |
| 4230 | make-toplevel-define | |
| 4231 | make-toplevel-set | |
| 4232 | make-toplevel-ref | |
| 4233 | make-module-set | |
| 4234 | make-module-ref | |
| 4235 | make-lexical-set | |
| 4236 | make-lexical-ref | |
| 4237 | make-primitive-ref | |
| 4238 | make-const | |
| 4239 | make-void) | |
| 4240 | ((top) | |
| 4241 | (top) | |
| 4242 | (top) | |
| 4243 | (top) | |
| 4244 | (top) | |
| 4245 | (top) | |
| 4246 | (top) | |
| 4247 | (top) | |
| 4248 | (top) | |
| 4249 | (top) | |
| 4250 | (top) | |
| 4251 | (top) | |
| 4252 | (top) | |
| 4253 | (top) | |
| 4254 | (top) | |
| 4255 | (top) | |
| 4256 | (top) | |
| 4257 | (top) | |
| 4258 | (top) | |
| 4259 | (top) | |
| 4260 | (top) | |
| 4261 | (top) | |
| 4262 | (top) | |
| 4263 | (top) | |
| 4264 | (top) | |
| 4265 | (top) | |
| 4266 | (top) | |
| 4267 | (top) | |
| 4268 | (top) | |
| 4269 | (top) | |
| 4270 | (top) | |
| 4271 | (top) | |
| 4272 | (top) | |
| 4273 | (top) | |
| 4274 | (top) | |
| 4275 | (top) | |
| 4276 | (top) | |
| 4277 | (top) | |
| 4278 | (top) | |
| 4279 | (top) | |
| 4280 | (top) | |
| 4281 | (top) | |
| 4282 | (top) | |
| 4283 | (top) | |
| 4284 | (top) | |
| 4285 | (top) | |
| 4286 | (top) | |
| 4287 | (top) | |
| 4288 | (top) | |
| 4289 | (top) | |
| 4290 | (top) | |
| 4291 | (top) | |
| 4292 | (top) | |
| 4293 | (top) | |
| 4294 | (top) | |
| 4295 | (top) | |
| 4296 | (top) | |
| 4297 | (top) | |
| 4298 | (top) | |
| 4299 | (top) | |
| 4300 | (top) | |
| 4301 | (top) | |
| 4302 | (top) | |
| 4303 | (top) | |
| 4304 | (top) | |
| 4305 | (top) | |
| 4306 | (top) | |
| 4307 | (top) | |
| 4308 | (top) | |
| 4309 | (top) | |
| 4310 | (top) | |
| 4311 | (top) | |
| 4312 | (top) | |
| 4313 | (top) | |
| 4314 | (top) | |
| 4315 | (top) | |
| 4316 | (top) | |
| 4317 | (top) | |
| 4318 | (top) | |
| 4319 | (top) | |
| 4320 | (top) | |
| 4321 | (top) | |
| 4322 | (top) | |
| 4323 | (top) | |
| 4324 | (top) | |
| 4325 | (top) | |
| 4326 | (top) | |
| 4327 | (top) | |
| 4328 | (top) | |
| 4329 | (top) | |
| 4330 | (top) | |
| 4331 | (top) | |
| 4332 | (top) | |
| 4333 | (top) | |
| 4334 | (top) | |
| 4335 | (top) | |
| 4336 | (top) | |
| 4337 | (top) | |
| 4338 | (top) | |
| 4339 | (top) | |
| 4340 | (top) | |
| 4341 | (top) | |
| 4342 | (top) | |
| 4343 | (top) | |
| 4344 | (top) | |
| 4345 | (top) | |
| 4346 | (top) | |
| 4347 | (top) | |
| 4348 | (top) | |
| 4349 | (top) | |
| 4350 | (top) | |
| 4351 | (top) | |
| 4352 | (top) | |
| 4353 | (top) | |
| 4354 | (top) | |
| 4355 | (top) | |
| 4356 | (top) | |
| 4357 | (top) | |
| 4358 | (top) | |
| 4359 | (top) | |
| 4360 | (top) | |
| 4361 | (top) | |
| 4362 | (top) | |
| 4363 | (top) | |
| 4364 | (top) | |
| 4365 | (top) | |
| 4366 | (top) | |
| 4367 | (top) | |
| 4368 | (top) | |
| 4369 | (top) | |
| 4370 | (top) | |
| 4371 | (top) | |
| 4372 | (top) | |
| 4373 | (top) | |
| 4374 | (top) | |
| 4375 | (top)) | |
| 1bbe0a63 AW |
4376 | ("i461" |
| 4377 | "i459" | |
| 4378 | "i457" | |
| 4379 | "i455" | |
| 4380 | "i453" | |
| 4381 | "i451" | |
| 4382 | "i449" | |
| 4383 | "i447" | |
| 4384 | "i445" | |
| 4385 | "i443" | |
| 4386 | "i441" | |
| 4387 | "i439" | |
| 4388 | "i437" | |
| 4389 | "i435" | |
| 4390 | "i433" | |
| 4391 | "i431" | |
| 4392 | "i429" | |
| 4393 | "i427" | |
| 4394 | "i425" | |
| 4395 | "i423" | |
| 4396 | "i421" | |
| 4397 | "i419" | |
| 4398 | "i417" | |
| 4399 | "i415" | |
| 4400 | "i413" | |
| 4401 | "i411" | |
| 4402 | "i409" | |
| 4403 | "i407" | |
| 4404 | "i405" | |
| 4405 | "i403" | |
| 4406 | "i401" | |
| 4407 | "i399" | |
| 4408 | "i397" | |
| 4409 | "i395" | |
| 4410 | "i393" | |
| e2ccab57 AW |
4411 | "i392" |
| 4412 | "i390" | |
| 1bbe0a63 | 4413 | "i387" |
| e2ccab57 | 4414 | "i386" |
| 1bbe0a63 AW |
4415 | "i385" |
| 4416 | "i383" | |
| e2ccab57 AW |
4417 | "i382" |
| 4418 | "i380" | |
| e2ccab57 AW |
4419 | "i378" |
| 4420 | "i376" | |
| e2ccab57 | 4421 | "i374" |
| e2ccab57 AW |
4422 | "i372" |
| 4423 | "i370" | |
| 4424 | "i368" | |
| 4425 | "i366" | |
| 1bbe0a63 AW |
4426 | "i363" |
| 4427 | "i361" | |
| e2ccab57 AW |
4428 | "i360" |
| 4429 | "i358" | |
| 4430 | "i356" | |
| 1bbe0a63 AW |
4431 | "i354" |
| 4432 | "i352" | |
| e2ccab57 AW |
4433 | "i351" |
| 4434 | "i350" | |
| 4435 | "i349" | |
| e2ccab57 AW |
4436 | "i347" |
| 4437 | "i346" | |
| e2ccab57 AW |
4438 | "i343" |
| 4439 | "i341" | |
| 1bbe0a63 AW |
4440 | "i339" |
| 4441 | "i337" | |
| 4442 | "i335" | |
| 4443 | "i333" | |
| 4444 | "i331" | |
| e2ccab57 | 4445 | "i330" |
| 1bbe0a63 AW |
4446 | "i329" |
| 4447 | "i327" | |
| e2ccab57 AW |
4448 | "i325" |
| 4449 | "i324" | |
| e2ccab57 | 4450 | "i321" |
| 1bbe0a63 | 4451 | "i320" |
| e2ccab57 AW |
4452 | "i318" |
| 4453 | "i316" | |
| 4454 | "i314" | |
| 4455 | "i312" | |
| 4456 | "i310" | |
| 4457 | "i308" | |
| 4458 | "i306" | |
| 4459 | "i304" | |
| 4460 | "i302" | |
| 1bbe0a63 AW |
4461 | "i299" |
| 4462 | "i297" | |
| 4463 | "i295" | |
| 4464 | "i293" | |
| 4465 | "i291" | |
| 4466 | "i289" | |
| 4467 | "i287" | |
| 4468 | "i285" | |
| 4469 | "i283" | |
| 4470 | "i281" | |
| 4471 | "i279" | |
| 4472 | "i277" | |
| 4473 | "i275" | |
| 4474 | "i273" | |
| 4475 | "i271" | |
| 4476 | "i269" | |
| 4477 | "i267" | |
| 4478 | "i265" | |
| 4479 | "i263" | |
| 4480 | "i261" | |
| 4481 | "i259" | |
| 4482 | "i257" | |
| 4483 | "i255" | |
| e2ccab57 | 4484 | "i254" |
| e2ccab57 AW |
4485 | "i251" |
| 4486 | "i249" | |
| 4487 | "i248" | |
| 4488 | "i247" | |
| 4489 | "i246" | |
| 4490 | "i245" | |
| 4491 | "i243" | |
| 4492 | "i241" | |
| 4493 | "i239" | |
| 4494 | "i236" | |
| 4495 | "i234" | |
| 4496 | "i232" | |
| 4497 | "i230" | |
| 4498 | "i228" | |
| 4499 | "i226" | |
| 4500 | "i224" | |
| 4501 | "i222" | |
| 4502 | "i220" | |
| 4503 | "i218" | |
| 4504 | "i216" | |
| 4505 | "i214" | |
| 4506 | "i212" | |
| 4507 | "i210" | |
| 4508 | "i208" | |
| 4509 | "i206" | |
| 4510 | "i204" | |
| 4511 | "i202")) | |
| 4512 | #(ribcage | |
| 4513 | (define-structure | |
| 4514 | define-expansion-accessors | |
| 4515 | define-expansion-constructors) | |
| 4516 | ((top) | |
| 4517 | (top) | |
| 4518 | (top)) | |
| 4519 | ("i40" | |
| 4520 | "i39" | |
| 4521 | "i38"))) | |
| 4522 | (hygiene guile)) | |
| 4523 | #(syntax-object | |
| 4524 | #f | |
| 4525 | ((top) | |
| 4526 | #(ribcage | |
| 4527 | #(name) | |
| 4528 | #((top)) | |
| 1bbe0a63 | 4529 | #("i1862")) |
| e2ccab57 AW |
4530 | #(ribcage |
| 4531 | () | |
| 4532 | () | |
| 4533 | ()) | |
| 4534 | #(ribcage | |
| 4535 | () | |
| 4536 | () | |
| 4537 | ()) | |
| 4538 | #(ribcage | |
| 4539 | #(ftype | |
| 4540 | fval | |
| 4541 | fe | |
| 4542 | fw | |
| 4543 | fs | |
| 4544 | fmod) | |
| 4545 | #((top) | |
| 4546 | (top) | |
| 4547 | (top) | |
| 4548 | (top) | |
| 4549 | (top) | |
| 4550 | (top)) | |
| 1bbe0a63 AW |
4551 | #("i1802" |
| 4552 | "i1803" | |
| 4553 | "i1804" | |
| 4554 | "i1805" | |
| 4555 | "i1806" | |
| 4556 | "i1807")) | |
| e2ccab57 AW |
4557 | #(ribcage |
| 4558 | () | |
| 4559 | () | |
| 4560 | ()) | |
| 4561 | #(ribcage | |
| 4562 | #(first) | |
| 4563 | #((top)) | |
| 1bbe0a63 | 4564 | #("i1794")) |
| e2ccab57 AW |
4565 | #(ribcage |
| 4566 | () | |
| 4567 | () | |
| 4568 | ()) | |
| 4569 | #(ribcage | |
| 4570 | () | |
| 4571 | () | |
| 4572 | ()) | |
| 4573 | #(ribcage | |
| 4574 | () | |
| 4575 | () | |
| 4576 | ()) | |
| 4577 | #(ribcage | |
| 4578 | #(e | |
| 4579 | r | |
| 4580 | w | |
| 4581 | s | |
| 4582 | rib | |
| 4583 | mod | |
| 4584 | for-car?) | |
| 4585 | #((top) | |
| 4586 | (top) | |
| 4587 | (top) | |
| 4588 | (top) | |
| 4589 | (top) | |
| 4590 | (top) | |
| 4591 | (top)) | |
| 1bbe0a63 AW |
4592 | #("i1766" |
| 4593 | "i1767" | |
| 4594 | "i1768" | |
| 4595 | "i1769" | |
| 4596 | "i1770" | |
| 4597 | "i1771" | |
| 4598 | "i1772")) | |
| e2ccab57 AW |
4599 | #(ribcage |
| 4600 | (lambda-var-list | |
| 4601 | gen-var | |
| 4602 | strip | |
| 4603 | chi-lambda-case | |
| 4604 | lambda*-formals | |
| 4605 | chi-simple-lambda | |
| 4606 | lambda-formals | |
| 4607 | ellipsis? | |
| 4608 | chi-void | |
| 4609 | eval-local-transformer | |
| 4610 | chi-local-syntax | |
| 4611 | chi-body | |
| 4612 | chi-macro | |
| 4613 | chi-application | |
| 4614 | chi-expr | |
| 4615 | chi | |
| 4616 | syntax-type | |
| 4617 | chi-when-list | |
| 4618 | chi-install-global | |
| 4619 | chi-top-sequence | |
| 4620 | chi-sequence | |
| 4621 | source-wrap | |
| 4622 | wrap | |
| 4623 | bound-id-member? | |
| 4624 | distinct-bound-ids? | |
| 4625 | valid-bound-ids? | |
| 4626 | bound-id=? | |
| 4627 | free-id=? | |
| 4628 | id-var-name | |
| 4629 | same-marks? | |
| 4630 | join-marks | |
| 4631 | join-wraps | |
| 4632 | smart-append | |
| 4633 | make-binding-wrap | |
| 4634 | extend-ribcage! | |
| 4635 | make-empty-ribcage | |
| 4636 | new-mark | |
| 4637 | anti-mark | |
| 4638 | the-anti-mark | |
| 4639 | top-marked? | |
| 4640 | top-wrap | |
| 4641 | empty-wrap | |
| 4642 | set-ribcage-labels! | |
| 4643 | set-ribcage-marks! | |
| 4644 | set-ribcage-symnames! | |
| 4645 | ribcage-labels | |
| 4646 | ribcage-marks | |
| 4647 | ribcage-symnames | |
| 4648 | ribcage? | |
| 4649 | make-ribcage | |
| 4650 | gen-labels | |
| 4651 | gen-label | |
| 4652 | make-rename | |
| 4653 | rename-marks | |
| 4654 | rename-new | |
| 4655 | rename-old | |
| 4656 | subst-rename? | |
| 4657 | wrap-subst | |
| 4658 | wrap-marks | |
| 4659 | make-wrap | |
| 4660 | id-sym-name&marks | |
| 4661 | id-sym-name | |
| 4662 | id? | |
| 4663 | nonsymbol-id? | |
| 4664 | global-extend | |
| 4665 | lookup | |
| 4666 | macros-only-env | |
| 4667 | extend-var-env | |
| 4668 | extend-env | |
| 4669 | null-env | |
| 4670 | binding-value | |
| 4671 | binding-type | |
| 4672 | make-binding | |
| 4673 | arg-check | |
| 4674 | source-annotation | |
| 4675 | no-source | |
| 4676 | set-syntax-object-module! | |
| 4677 | set-syntax-object-wrap! | |
| 4678 | set-syntax-object-expression! | |
| 4679 | syntax-object-module | |
| 4680 | syntax-object-wrap | |
| 4681 | syntax-object-expression | |
| 4682 | syntax-object? | |
| 4683 | make-syntax-object | |
| 4684 | build-lexical-var | |
| 4685 | build-letrec | |
| 4686 | build-named-let | |
| 4687 | build-let | |
| 4688 | build-sequence | |
| 4689 | build-data | |
| 4690 | build-primref | |
| 4691 | build-lambda-case | |
| 4692 | build-case-lambda | |
| 4693 | build-simple-lambda | |
| 4694 | build-global-definition | |
| 4695 | build-global-assignment | |
| 4696 | build-global-reference | |
| 4697 | analyze-variable | |
| 4698 | build-lexical-assignment | |
| 4699 | build-lexical-reference | |
| 4700 | build-dynlet | |
| 4701 | build-conditional | |
| 4702 | build-application | |
| 4703 | build-void | |
| 4704 | maybe-name-value! | |
| 4705 | decorate-source | |
| 4706 | get-global-definition-hook | |
| 4707 | put-global-definition-hook | |
| 4708 | gensym-hook | |
| 4709 | local-eval-hook | |
| 4710 | top-level-eval-hook | |
| 4711 | fx< | |
| 4712 | fx= | |
| 4713 | fx- | |
| 4714 | fx+ | |
| 4715 | set-lambda-meta! | |
| 4716 | lambda-meta | |
| 4717 | lambda? | |
| 4718 | make-dynlet | |
| 4719 | make-letrec | |
| 4720 | make-let | |
| 4721 | make-lambda-case | |
| 4722 | make-lambda | |
| 4723 | make-sequence | |
| 4724 | make-application | |
| 4725 | make-conditional | |
| 4726 | make-toplevel-define | |
| 4727 | make-toplevel-set | |
| 4728 | make-toplevel-ref | |
| 4729 | make-module-set | |
| 4730 | make-module-ref | |
| 4731 | make-lexical-set | |
| 4732 | make-lexical-ref | |
| 4733 | make-primitive-ref | |
| 4734 | make-const | |
| 4735 | make-void) | |
| 4736 | ((top) | |
| 4737 | (top) | |
| 4738 | (top) | |
| 4739 | (top) | |
| 4740 | (top) | |
| 4741 | (top) | |
| 4742 | (top) | |
| 4743 | (top) | |
| 4744 | (top) | |
| 4745 | (top) | |
| 4746 | (top) | |
| 4747 | (top) | |
| 4748 | (top) | |
| 4749 | (top) | |
| 4750 | (top) | |
| 4751 | (top) | |
| 4752 | (top) | |
| 4753 | (top) | |
| 4754 | (top) | |
| 4755 | (top) | |
| 4756 | (top) | |
| 4757 | (top) | |
| 4758 | (top) | |
| 4759 | (top) | |
| 4760 | (top) | |
| 4761 | (top) | |
| 4762 | (top) | |
| 4763 | (top) | |
| 4764 | (top) | |
| 4765 | (top) | |
| 4766 | (top) | |
| 4767 | (top) | |
| 4768 | (top) | |
| 4769 | (top) | |
| 4770 | (top) | |
| 4771 | (top) | |
| 4772 | (top) | |
| 4773 | (top) | |
| 4774 | (top) | |
| 4775 | (top) | |
| 4776 | (top) | |
| 4777 | (top) | |
| 4778 | (top) | |
| 4779 | (top) | |
| 4780 | (top) | |
| 4781 | (top) | |
| 4782 | (top) | |
| 4783 | (top) | |
| 4784 | (top) | |
| 4785 | (top) | |
| 4786 | (top) | |
| 4787 | (top) | |
| 4788 | (top) | |
| 4789 | (top) | |
| 4790 | (top) | |
| 4791 | (top) | |
| 4792 | (top) | |
| 4793 | (top) | |
| 4794 | (top) | |
| 4795 | (top) | |
| 4796 | (top) | |
| 4797 | (top) | |
| 4798 | (top) | |
| 4799 | (top) | |
| 4800 | (top) | |
| 4801 | (top) | |
| 4802 | (top) | |
| 4803 | (top) | |
| 4804 | (top) | |
| 4805 | (top) | |
| 4806 | (top) | |
| 4807 | (top) | |
| 4808 | (top) | |
| 4809 | (top) | |
| 4810 | (top) | |
| 4811 | (top) | |
| 4812 | (top) | |
| 4813 | (top) | |
| 4814 | (top) | |
| 4815 | (top) | |
| 4816 | (top) | |
| 4817 | (top) | |
| 4818 | (top) | |
| 4819 | (top) | |
| 4820 | (top) | |
| 4821 | (top) | |
| 4822 | (top) | |
| 4823 | (top) | |
| 4824 | (top) | |
| 4825 | (top) | |
| 4826 | (top) | |
| 4827 | (top) | |
| 4828 | (top) | |
| 4829 | (top) | |
| 4830 | (top) | |
| 4831 | (top) | |
| 4832 | (top) | |
| 4833 | (top) | |
| 4834 | (top) | |
| 4835 | (top) | |
| 4836 | (top) | |
| 4837 | (top) | |
| 4838 | (top) | |
| 4839 | (top) | |
| 4840 | (top) | |
| 4841 | (top) | |
| 4842 | (top) | |
| 4843 | (top) | |
| 4844 | (top) | |
| 4845 | (top) | |
| 4846 | (top) | |
| 4847 | (top) | |
| 4848 | (top) | |
| 4849 | (top) | |
| 4850 | (top) | |
| 4851 | (top) | |
| 4852 | (top) | |
| 4853 | (top) | |
| 4854 | (top) | |
| 4855 | (top) | |
| 4856 | (top) | |
| 4857 | (top) | |
| 4858 | (top) | |
| 4859 | (top) | |
| 4860 | (top) | |
| 4861 | (top) | |
| 4862 | (top) | |
| 4863 | (top) | |
| 4864 | (top) | |
| 4865 | (top) | |
| 4866 | (top) | |
| 4867 | (top) | |
| 4868 | (top) | |
| 4869 | (top) | |
| 4870 | (top) | |
| 4871 | (top)) | |
| 1bbe0a63 AW |
4872 | ("i461" |
| 4873 | "i459" | |
| 4874 | "i457" | |
| 4875 | "i455" | |
| 4876 | "i453" | |
| 4877 | "i451" | |
| 4878 | "i449" | |
| 4879 | "i447" | |
| 4880 | "i445" | |
| 4881 | "i443" | |
| 4882 | "i441" | |
| 4883 | "i439" | |
| 4884 | "i437" | |
| 4885 | "i435" | |
| 4886 | "i433" | |
| 4887 | "i431" | |
| 4888 | "i429" | |
| 4889 | "i427" | |
| 4890 | "i425" | |
| 4891 | "i423" | |
| 4892 | "i421" | |
| 4893 | "i419" | |
| 4894 | "i417" | |
| 4895 | "i415" | |
| 4896 | "i413" | |
| 4897 | "i411" | |
| 4898 | "i409" | |
| 4899 | "i407" | |
| 4900 | "i405" | |
| 4901 | "i403" | |
| 4902 | "i401" | |
| 4903 | "i399" | |
| 4904 | "i397" | |
| 4905 | "i395" | |
| 4906 | "i393" | |
| e2ccab57 AW |
4907 | "i392" |
| 4908 | "i390" | |
| 1bbe0a63 | 4909 | "i387" |
| e2ccab57 | 4910 | "i386" |
| 1bbe0a63 AW |
4911 | "i385" |
| 4912 | "i383" | |
| e2ccab57 AW |
4913 | "i382" |
| 4914 | "i380" | |
| e2ccab57 AW |
4915 | "i378" |
| 4916 | "i376" | |
| e2ccab57 | 4917 | "i374" |
| e2ccab57 AW |
4918 | "i372" |
| 4919 | "i370" | |
| 4920 | "i368" | |
| 4921 | "i366" | |
| 1bbe0a63 AW |
4922 | "i363" |
| 4923 | "i361" | |
| e2ccab57 AW |
4924 | "i360" |
| 4925 | "i358" | |
| 4926 | "i356" | |
| 1bbe0a63 AW |
4927 | "i354" |
| 4928 | "i352" | |
| e2ccab57 AW |
4929 | "i351" |
| 4930 | "i350" | |
| 4931 | "i349" | |
| e2ccab57 AW |
4932 | "i347" |
| 4933 | "i346" | |
| e2ccab57 AW |
4934 | "i343" |
| 4935 | "i341" | |
| 1bbe0a63 AW |
4936 | "i339" |
| 4937 | "i337" | |
| 4938 | "i335" | |
| 4939 | "i333" | |
| 4940 | "i331" | |
| e2ccab57 | 4941 | "i330" |
| 1bbe0a63 AW |
4942 | "i329" |
| 4943 | "i327" | |
| e2ccab57 AW |
4944 | "i325" |
| 4945 | "i324" | |
| e2ccab57 | 4946 | "i321" |
| 1bbe0a63 | 4947 | "i320" |
| e2ccab57 AW |
4948 | "i318" |
| 4949 | "i316" | |
| 4950 | "i314" | |
| 4951 | "i312" | |
| 4952 | "i310" | |
| 4953 | "i308" | |
| 4954 | "i306" | |
| 4955 | "i304" | |
| 4956 | "i302" | |
| 1bbe0a63 AW |
4957 | "i299" |
| 4958 | "i297" | |
| 4959 | "i295" | |
| 4960 | "i293" | |
| 4961 | "i291" | |
| 4962 | "i289" | |
| 4963 | "i287" | |
| 4964 | "i285" | |
| 4965 | "i283" | |
| 4966 | "i281" | |
| 4967 | "i279" | |
| 4968 | "i277" | |
| 4969 | "i275" | |
| 4970 | "i273" | |
| 4971 | "i271" | |
| 4972 | "i269" | |
| 4973 | "i267" | |
| 4974 | "i265" | |
| 4975 | "i263" | |
| 4976 | "i261" | |
| 4977 | "i259" | |
| 4978 | "i257" | |
| 4979 | "i255" | |
| e2ccab57 | 4980 | "i254" |
| e2ccab57 AW |
4981 | "i251" |
| 4982 | "i249" | |
| 4983 | "i248" | |
| 4984 | "i247" | |
| 4985 | "i246" | |
| 4986 | "i245" | |
| 4987 | "i243" | |
| 4988 | "i241" | |
| 4989 | "i239" | |
| 4990 | "i236" | |
| 4991 | "i234" | |
| 4992 | "i232" | |
| 4993 | "i230" | |
| 4994 | "i228" | |
| 4995 | "i226" | |
| 4996 | "i224" | |
| 4997 | "i222" | |
| 4998 | "i220" | |
| 4999 | "i218" | |
| 5000 | "i216" | |
| 5001 | "i214" | |
| 5002 | "i212" | |
| 5003 | "i210" | |
| 5004 | "i208" | |
| 5005 | "i206" | |
| 5006 | "i204" | |
| 5007 | "i202")) | |
| 5008 | #(ribcage | |
| 5009 | (define-structure | |
| 5010 | define-expansion-accessors | |
| 5011 | define-expansion-constructors) | |
| 5012 | ((top) | |
| 5013 | (top) | |
| 5014 | (top)) | |
| 5015 | ("i40" | |
| 5016 | "i39" | |
| 5017 | "i38"))) | |
| 5018 | (hygiene guile)) | |
| 5019 | #(syntax-object | |
| 5020 | #f | |
| 5021 | ((top) | |
| 5022 | #(ribcage | |
| 5023 | #(name) | |
| 5024 | #((top)) | |
| 1bbe0a63 | 5025 | #("i1862")) |
| e2ccab57 AW |
5026 | #(ribcage |
| 5027 | () | |
| 5028 | () | |
| 5029 | ()) | |
| 5030 | #(ribcage | |
| 5031 | () | |
| 5032 | () | |
| 5033 | ()) | |
| 5034 | #(ribcage | |
| 5035 | #(ftype | |
| 5036 | fval | |
| 5037 | fe | |
| 5038 | fw | |
| 5039 | fs | |
| 5040 | fmod) | |
| 5041 | #((top) | |
| 5042 | (top) | |
| 5043 | (top) | |
| 5044 | (top) | |
| 5045 | (top) | |
| 5046 | (top)) | |
| 1bbe0a63 AW |
5047 | #("i1802" |
| 5048 | "i1803" | |
| 5049 | "i1804" | |
| 5050 | "i1805" | |
| 5051 | "i1806" | |
| 5052 | "i1807")) | |
| e2ccab57 AW |
5053 | #(ribcage |
| 5054 | () | |
| 5055 | () | |
| 5056 | ()) | |
| 5057 | #(ribcage | |
| 5058 | #(first) | |
| 5059 | #((top)) | |
| 1bbe0a63 | 5060 | #("i1794")) |
| e2ccab57 AW |
5061 | #(ribcage |
| 5062 | () | |
| 5063 | () | |
| 5064 | ()) | |
| 5065 | #(ribcage | |
| 5066 | () | |
| 5067 | () | |
| 5068 | ()) | |
| 5069 | #(ribcage | |
| 5070 | () | |
| 5071 | () | |
| 5072 | ()) | |
| 5073 | #(ribcage | |
| 5074 | #(e | |
| 5075 | r | |
| 5076 | w | |
| 5077 | s | |
| 5078 | rib | |
| 5079 | mod | |
| 5080 | for-car?) | |
| 5081 | #((top) | |
| 5082 | (top) | |
| 5083 | (top) | |
| 5084 | (top) | |
| 5085 | (top) | |
| 5086 | (top) | |
| 5087 | (top)) | |
| 1bbe0a63 AW |
5088 | #("i1766" |
| 5089 | "i1767" | |
| 5090 | "i1768" | |
| 5091 | "i1769" | |
| 5092 | "i1770" | |
| 5093 | "i1771" | |
| 5094 | "i1772")) | |
| e2ccab57 AW |
5095 | #(ribcage |
| 5096 | (lambda-var-list | |
| 5097 | gen-var | |
| 5098 | strip | |
| 5099 | chi-lambda-case | |
| 5100 | lambda*-formals | |
| 5101 | chi-simple-lambda | |
| 5102 | lambda-formals | |
| 5103 | ellipsis? | |
| 5104 | chi-void | |
| 5105 | eval-local-transformer | |
| 5106 | chi-local-syntax | |
| 5107 | chi-body | |
| 5108 | chi-macro | |
| 5109 | chi-application | |
| 5110 | chi-expr | |
| 5111 | chi | |
| 5112 | syntax-type | |
| 5113 | chi-when-list | |
| 5114 | chi-install-global | |
| 5115 | chi-top-sequence | |
| 5116 | chi-sequence | |
| 5117 | source-wrap | |
| 5118 | wrap | |
| 5119 | bound-id-member? | |
| 5120 | distinct-bound-ids? | |
| 5121 | valid-bound-ids? | |
| 5122 | bound-id=? | |
| 5123 | free-id=? | |
| 5124 | id-var-name | |
| 5125 | same-marks? | |
| 5126 | join-marks | |
| 5127 | join-wraps | |
| 5128 | smart-append | |
| 5129 | make-binding-wrap | |
| 5130 | extend-ribcage! | |
| 5131 | make-empty-ribcage | |
| 5132 | new-mark | |
| 5133 | anti-mark | |
| 5134 | the-anti-mark | |
| 5135 | top-marked? | |
| 5136 | top-wrap | |
| 5137 | empty-wrap | |
| 5138 | set-ribcage-labels! | |
| 5139 | set-ribcage-marks! | |
| 5140 | set-ribcage-symnames! | |
| 5141 | ribcage-labels | |
| 5142 | ribcage-marks | |
| 5143 | ribcage-symnames | |
| 5144 | ribcage? | |
| 5145 | make-ribcage | |
| 5146 | gen-labels | |
| 5147 | gen-label | |
| 5148 | make-rename | |
| 5149 | rename-marks | |
| 5150 | rename-new | |
| 5151 | rename-old | |
| 5152 | subst-rename? | |
| 5153 | wrap-subst | |
| 5154 | wrap-marks | |
| 5155 | make-wrap | |
| 5156 | id-sym-name&marks | |
| 5157 | id-sym-name | |
| 5158 | id? | |
| 5159 | nonsymbol-id? | |
| 5160 | global-extend | |
| 5161 | lookup | |
| 5162 | macros-only-env | |
| 5163 | extend-var-env | |
| 5164 | extend-env | |
| 5165 | null-env | |
| 5166 | binding-value | |
| 5167 | binding-type | |
| 5168 | make-binding | |
| 5169 | arg-check | |
| 5170 | source-annotation | |
| 5171 | no-source | |
| 5172 | set-syntax-object-module! | |
| 5173 | set-syntax-object-wrap! | |
| 5174 | set-syntax-object-expression! | |
| 5175 | syntax-object-module | |
| 5176 | syntax-object-wrap | |
| 5177 | syntax-object-expression | |
| 5178 | syntax-object? | |
| 5179 | make-syntax-object | |
| 5180 | build-lexical-var | |
| 5181 | build-letrec | |
| 5182 | build-named-let | |
| 5183 | build-let | |
| 5184 | build-sequence | |
| 5185 | build-data | |
| 5186 | build-primref | |
| 5187 | build-lambda-case | |
| 5188 | build-case-lambda | |
| 5189 | build-simple-lambda | |
| 5190 | build-global-definition | |
| 5191 | build-global-assignment | |
| 5192 | build-global-reference | |
| 5193 | analyze-variable | |
| 5194 | build-lexical-assignment | |
| 5195 | build-lexical-reference | |
| 5196 | build-dynlet | |
| 5197 | build-conditional | |
| 5198 | build-application | |
| 5199 | build-void | |
| 5200 | maybe-name-value! | |
| 5201 | decorate-source | |
| 5202 | get-global-definition-hook | |
| 5203 | put-global-definition-hook | |
| 5204 | gensym-hook | |
| 5205 | local-eval-hook | |
| 5206 | top-level-eval-hook | |
| 5207 | fx< | |
| 5208 | fx= | |
| 5209 | fx- | |
| 5210 | fx+ | |
| 5211 | set-lambda-meta! | |
| 5212 | lambda-meta | |
| 5213 | lambda? | |
| 5214 | make-dynlet | |
| 5215 | make-letrec | |
| 5216 | make-let | |
| 5217 | make-lambda-case | |
| 5218 | make-lambda | |
| 5219 | make-sequence | |
| 5220 | make-application | |
| 5221 | make-conditional | |
| 5222 | make-toplevel-define | |
| 5223 | make-toplevel-set | |
| 5224 | make-toplevel-ref | |
| 5225 | make-module-set | |
| 5226 | make-module-ref | |
| 5227 | make-lexical-set | |
| 5228 | make-lexical-ref | |
| 5229 | make-primitive-ref | |
| 5230 | make-const | |
| 5231 | make-void) | |
| 5232 | ((top) | |
| 5233 | (top) | |
| 5234 | (top) | |
| 5235 | (top) | |
| 5236 | (top) | |
| 5237 | (top) | |
| 5238 | (top) | |
| 5239 | (top) | |
| 5240 | (top) | |
| 5241 | (top) | |
| 5242 | (top) | |
| 5243 | (top) | |
| 5244 | (top) | |
| 5245 | (top) | |
| 5246 | (top) | |
| 5247 | (top) | |
| 5248 | (top) | |
| 5249 | (top) | |
| 5250 | (top) | |
| 5251 | (top) | |
| 5252 | (top) | |
| 5253 | (top) | |
| 5254 | (top) | |
| 5255 | (top) | |
| 5256 | (top) | |
| 5257 | (top) | |
| 5258 | (top) | |
| 5259 | (top) | |
| 5260 | (top) | |
| 5261 | (top) | |
| 5262 | (top) | |
| 5263 | (top) | |
| 5264 | (top) | |
| 5265 | (top) | |
| 5266 | (top) | |
| 5267 | (top) | |
| 5268 | (top) | |
| 5269 | (top) | |
| 5270 | (top) | |
| 5271 | (top) | |
| 5272 | (top) | |
| 5273 | (top) | |
| 5274 | (top) | |
| 5275 | (top) | |
| 5276 | (top) | |
| 5277 | (top) | |
| 5278 | (top) | |
| 5279 | (top) | |
| 5280 | (top) | |
| 5281 | (top) | |
| 5282 | (top) | |
| 5283 | (top) | |
| 5284 | (top) | |
| 5285 | (top) | |
| 5286 | (top) | |
| 5287 | (top) | |
| 5288 | (top) | |
| 5289 | (top) | |
| 5290 | (top) | |
| 5291 | (top) | |
| 5292 | (top) | |
| 5293 | (top) | |
| 5294 | (top) | |
| 5295 | (top) | |
| 5296 | (top) | |
| 5297 | (top) | |
| 5298 | (top) | |
| 5299 | (top) | |
| 5300 | (top) | |
| 5301 | (top) | |
| 5302 | (top) | |
| 5303 | (top) | |
| 5304 | (top) | |
| 5305 | (top) | |
| 5306 | (top) | |
| 5307 | (top) | |
| 5308 | (top) | |
| 5309 | (top) | |
| 5310 | (top) | |
| 5311 | (top) | |
| 5312 | (top) | |
| 5313 | (top) | |
| 5314 | (top) | |
| 5315 | (top) | |
| 5316 | (top) | |
| 5317 | (top) | |
| 5318 | (top) | |
| 5319 | (top) | |
| 5320 | (top) | |
| 5321 | (top) | |
| 5322 | (top) | |
| 5323 | (top) | |
| 5324 | (top) | |
| 5325 | (top) | |
| 5326 | (top) | |
| 5327 | (top) | |
| 5328 | (top) | |
| 5329 | (top) | |
| 5330 | (top) | |
| 5331 | (top) | |
| 5332 | (top) | |
| 5333 | (top) | |
| 5334 | (top) | |
| 5335 | (top) | |
| 5336 | (top) | |
| 5337 | (top) | |
| 5338 | (top) | |
| 5339 | (top) | |
| 5340 | (top) | |
| 5341 | (top) | |
| 5342 | (top) | |
| 5343 | (top) | |
| 5344 | (top) | |
| 5345 | (top) | |
| 5346 | (top) | |
| 5347 | (top) | |
| 5348 | (top) | |
| 5349 | (top) | |
| 5350 | (top) | |
| 5351 | (top) | |
| 5352 | (top) | |
| 5353 | (top) | |
| 5354 | (top) | |
| 5355 | (top) | |
| 5356 | (top) | |
| 5357 | (top) | |
| 5358 | (top) | |
| 5359 | (top) | |
| 5360 | (top) | |
| 5361 | (top) | |
| 5362 | (top) | |
| 5363 | (top) | |
| 5364 | (top) | |
| 5365 | (top) | |
| 5366 | (top) | |
| 5367 | (top)) | |
| 1bbe0a63 AW |
5368 | ("i461" |
| 5369 | "i459" | |
| 5370 | "i457" | |
| 5371 | "i455" | |
| 5372 | "i453" | |
| 5373 | "i451" | |
| 5374 | "i449" | |
| 5375 | "i447" | |
| 5376 | "i445" | |
| 5377 | "i443" | |
| 5378 | "i441" | |
| 5379 | "i439" | |
| 5380 | "i437" | |
| 5381 | "i435" | |
| 5382 | "i433" | |
| 5383 | "i431" | |
| 5384 | "i429" | |
| 5385 | "i427" | |
| 5386 | "i425" | |
| 5387 | "i423" | |
| 5388 | "i421" | |
| 5389 | "i419" | |
| 5390 | "i417" | |
| 5391 | "i415" | |
| 5392 | "i413" | |
| 5393 | "i411" | |
| 5394 | "i409" | |
| 5395 | "i407" | |
| 5396 | "i405" | |
| 5397 | "i403" | |
| 5398 | "i401" | |
| 5399 | "i399" | |
| 5400 | "i397" | |
| 5401 | "i395" | |
| 5402 | "i393" | |
| e2ccab57 AW |
5403 | "i392" |
| 5404 | "i390" | |
| 1bbe0a63 | 5405 | "i387" |
| e2ccab57 | 5406 | "i386" |
| 1bbe0a63 AW |
5407 | "i385" |
| 5408 | "i383" | |
| e2ccab57 AW |
5409 | "i382" |
| 5410 | "i380" | |
| e2ccab57 AW |
5411 | "i378" |
| 5412 | "i376" | |
| e2ccab57 | 5413 | "i374" |
| e2ccab57 AW |
5414 | "i372" |
| 5415 | "i370" | |
| 5416 | "i368" | |
| 5417 | "i366" | |
| 1bbe0a63 AW |
5418 | "i363" |
| 5419 | "i361" | |
| e2ccab57 AW |
5420 | "i360" |
| 5421 | "i358" | |
| 5422 | "i356" | |
| 1bbe0a63 AW |
5423 | "i354" |
| 5424 | "i352" | |
| e2ccab57 AW |
5425 | "i351" |
| 5426 | "i350" | |
| 5427 | "i349" | |
| e2ccab57 AW |
5428 | "i347" |
| 5429 | "i346" | |
| e2ccab57 AW |
5430 | "i343" |
| 5431 | "i341" | |
| 1bbe0a63 AW |
5432 | "i339" |
| 5433 | "i337" | |
| 5434 | "i335" | |
| 5435 | "i333" | |
| 5436 | "i331" | |
| e2ccab57 | 5437 | "i330" |
| 1bbe0a63 AW |
5438 | "i329" |
| 5439 | "i327" | |
| e2ccab57 AW |
5440 | "i325" |
| 5441 | "i324" | |
| e2ccab57 | 5442 | "i321" |
| 1bbe0a63 | 5443 | "i320" |
| e2ccab57 AW |
5444 | "i318" |
| 5445 | "i316" | |
| 5446 | "i314" | |
| 5447 | "i312" | |
| 5448 | "i310" | |
| 5449 | "i308" | |
| 5450 | "i306" | |
| 5451 | "i304" | |
| 5452 | "i302" | |
| 1bbe0a63 AW |
5453 | "i299" |
| 5454 | "i297" | |
| 5455 | "i295" | |
| 5456 | "i293" | |
| 5457 | "i291" | |
| 5458 | "i289" | |
| 5459 | "i287" | |
| 5460 | "i285" | |
| 5461 | "i283" | |
| 5462 | "i281" | |
| 5463 | "i279" | |
| 5464 | "i277" | |
| 5465 | "i275" | |
| 5466 | "i273" | |
| 5467 | "i271" | |
| 5468 | "i269" | |
| 5469 | "i267" | |
| 5470 | "i265" | |
| 5471 | "i263" | |
| 5472 | "i261" | |
| 5473 | "i259" | |
| 5474 | "i257" | |
| 5475 | "i255" | |
| e2ccab57 | 5476 | "i254" |
| e2ccab57 AW |
5477 | "i251" |
| 5478 | "i249" | |
| 5479 | "i248" | |
| 5480 | "i247" | |
| 5481 | "i246" | |
| 5482 | "i245" | |
| 5483 | "i243" | |
| 5484 | "i241" | |
| 5485 | "i239" | |
| 5486 | "i236" | |
| 5487 | "i234" | |
| 5488 | "i232" | |
| 5489 | "i230" | |
| 5490 | "i228" | |
| 5491 | "i226" | |
| 5492 | "i224" | |
| 5493 | "i222" | |
| 5494 | "i220" | |
| 5495 | "i218" | |
| 5496 | "i216" | |
| 5497 | "i214" | |
| 5498 | "i212" | |
| 5499 | "i210" | |
| 5500 | "i208" | |
| 5501 | "i206" | |
| 5502 | "i204" | |
| 5503 | "i202")) | |
| 5504 | #(ribcage | |
| 5505 | (define-structure | |
| 5506 | define-expansion-accessors | |
| 5507 | define-expansion-constructors) | |
| 5508 | ((top) | |
| 5509 | (top) | |
| 5510 | (top)) | |
| 5511 | ("i40" | |
| 5512 | "i39" | |
| 5513 | "i38"))) | |
| 5514 | (hygiene guile))) | |
| 5515 | '(()) | |
| 1bbe0a63 AW |
5516 | #{s 1762}# |
| 5517 | #{mod 1764}#)) | |
| 5518 | #{tmp 1859}#) | |
| e2ccab57 AW |
5519 | (syntax-violation |
| 5520 | #f | |
| 5521 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
5522 | #{tmp 1828}#)))))))) |
| 5523 | (if (eqv? #{ftype 1796}# 'define-syntax) | |
| 5524 | (let ((#{tmp 1866}# #{e 1759}#)) | |
| 5525 | (let ((#{tmp 1867}# | |
| e2ccab57 | 5526 | ($sc-dispatch |
| 1bbe0a63 | 5527 | #{tmp 1866}# |
| e2ccab57 | 5528 | '(_ any any)))) |
| 1bbe0a63 | 5529 | (if (if #{tmp 1867}# |
| e2ccab57 | 5530 | (@apply |
| 1bbe0a63 AW |
5531 | (lambda (#{name 1870}# |
| 5532 | #{val 1871}#) | |
| 5533 | (#{id? 344}# | |
| 5534 | #{name 1870}#)) | |
| 5535 | #{tmp 1867}#) | |
| e2ccab57 AW |
5536 | #f) |
| 5537 | (@apply | |
| 1bbe0a63 AW |
5538 | (lambda (#{name 1874}# |
| 5539 | #{val 1875}#) | |
| e2ccab57 AW |
5540 | (values |
| 5541 | 'define-syntax-form | |
| 1bbe0a63 AW |
5542 | #{name 1874}# |
| 5543 | #{val 1875}# | |
| 5544 | #{w 1761}# | |
| 5545 | #{s 1762}# | |
| 5546 | #{mod 1764}#)) | |
| 5547 | #{tmp 1867}#) | |
| e2ccab57 AW |
5548 | (syntax-violation |
| 5549 | #f | |
| 5550 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 5551 | #{tmp 1866}#)))) |
| e2ccab57 AW |
5552 | (values |
| 5553 | 'call | |
| 5554 | #f | |
| 1bbe0a63 AW |
5555 | #{e 1759}# |
| 5556 | #{w 1761}# | |
| 5557 | #{s 1762}# | |
| 5558 | #{mod 1764}#))))))))))))))) | |
| 5559 | (if (#{syntax-object? 307}# #{e 1759}#) | |
| 5560 | (#{syntax-type 430}# | |
| 5561 | (#{syntax-object-expression 309}# #{e 1759}#) | |
| 5562 | #{r 1760}# | |
| 5563 | (#{join-wraps 400}# | |
| 5564 | #{w 1761}# | |
| 5565 | (#{syntax-object-wrap 311}# #{e 1759}#)) | |
| e2ccab57 | 5566 | (begin |
| 1bbe0a63 AW |
5567 | (let ((#{t 1881}# |
| 5568 | (#{source-annotation 322}# #{e 1759}#))) | |
| 5569 | (if #{t 1881}# #{t 1881}# #{s 1762}#))) | |
| 5570 | #{rib 1763}# | |
| e2ccab57 | 5571 | (begin |
| 1bbe0a63 AW |
5572 | (let ((#{t 1885}# |
| 5573 | (#{syntax-object-module 313}# #{e 1759}#))) | |
| 5574 | (if #{t 1885}# #{t 1885}# #{mod 1764}#))) | |
| 5575 | #{for-car? 1765}#) | |
| 5576 | (if (self-evaluating? #{e 1759}#) | |
| e2ccab57 AW |
5577 | (values |
| 5578 | 'constant | |
| 5579 | #f | |
| 1bbe0a63 AW |
5580 | #{e 1759}# |
| 5581 | #{w 1761}# | |
| 5582 | #{s 1762}# | |
| 5583 | #{mod 1764}#) | |
| e2ccab57 AW |
5584 | (values |
| 5585 | 'other | |
| 5586 | #f | |
| 1bbe0a63 AW |
5587 | #{e 1759}# |
| 5588 | #{w 1761}# | |
| 5589 | #{s 1762}# | |
| 5590 | #{mod 1764}#))))))) | |
| 5591 | (#{chi 432}# | |
| 5592 | (lambda (#{e 1890}# #{r 1891}# #{w 1892}# #{mod 1893}#) | |
| e2ccab57 AW |
5593 | (call-with-values |
| 5594 | (lambda () | |
| 1bbe0a63 AW |
5595 | (#{syntax-type 430}# |
| 5596 | #{e 1890}# | |
| 5597 | #{r 1891}# | |
| 5598 | #{w 1892}# | |
| 5599 | (#{source-annotation 322}# #{e 1890}#) | |
| e2ccab57 | 5600 | #f |
| 1bbe0a63 | 5601 | #{mod 1893}# |
| e2ccab57 | 5602 | #f)) |
| 1bbe0a63 AW |
5603 | (lambda (#{type 1898}# |
| 5604 | #{value 1899}# | |
| 5605 | #{e 1900}# | |
| 5606 | #{w 1901}# | |
| 5607 | #{s 1902}# | |
| 5608 | #{mod 1903}#) | |
| 5609 | (#{chi-expr 434}# | |
| 5610 | #{type 1898}# | |
| 5611 | #{value 1899}# | |
| 5612 | #{e 1900}# | |
| 5613 | #{r 1891}# | |
| 5614 | #{w 1901}# | |
| 5615 | #{s 1902}# | |
| 5616 | #{mod 1903}#))))) | |
| 5617 | (#{chi-expr 434}# | |
| 5618 | (lambda (#{type 1910}# | |
| 5619 | #{value 1911}# | |
| 5620 | #{e 1912}# | |
| 5621 | #{r 1913}# | |
| 5622 | #{w 1914}# | |
| 5623 | #{s 1915}# | |
| 5624 | #{mod 1916}#) | |
| 5625 | (if (eqv? #{type 1910}# 'lexical) | |
| 5626 | (#{build-lexical-reference 272}# | |
| e2ccab57 | 5627 | 'value |
| 1bbe0a63 AW |
5628 | #{s 1915}# |
| 5629 | #{e 1912}# | |
| 5630 | #{value 1911}#) | |
| 5631 | (if (if (eqv? #{type 1910}# 'core) | |
| e2ccab57 | 5632 | #t |
| 1bbe0a63 AW |
5633 | (eqv? #{type 1910}# 'core-form)) |
| 5634 | (#{value 1911}# | |
| 5635 | #{e 1912}# | |
| 5636 | #{r 1913}# | |
| 5637 | #{w 1914}# | |
| 5638 | #{s 1915}# | |
| 5639 | #{mod 1916}#) | |
| 5640 | (if (eqv? #{type 1910}# 'module-ref) | |
| e2ccab57 AW |
5641 | (call-with-values |
| 5642 | (lambda () | |
| 1bbe0a63 AW |
5643 | (#{value 1911}# #{e 1912}# #{r 1913}# #{w 1914}#)) |
| 5644 | (lambda (#{e 1927}# | |
| 5645 | #{r 1928}# | |
| 5646 | #{w 1929}# | |
| 5647 | #{s 1930}# | |
| 5648 | #{mod 1931}#) | |
| 5649 | (#{chi 432}# | |
| 5650 | #{e 1927}# | |
| 5651 | #{r 1928}# | |
| 5652 | #{w 1929}# | |
| 5653 | #{mod 1931}#))) | |
| 5654 | (if (eqv? #{type 1910}# 'lexical-call) | |
| 5655 | (#{chi-application 436}# | |
| e2ccab57 | 5656 | (begin |
| 1bbe0a63 AW |
5657 | (let ((#{id 1939}# (car #{e 1912}#))) |
| 5658 | (#{build-lexical-reference 272}# | |
| e2ccab57 | 5659 | 'fun |
| 1bbe0a63 AW |
5660 | (#{source-annotation 322}# #{id 1939}#) |
| 5661 | (if (#{syntax-object? 307}# #{id 1939}#) | |
| 5662 | (syntax->datum #{id 1939}#) | |
| 5663 | #{id 1939}#) | |
| 5664 | #{value 1911}#))) | |
| 5665 | #{e 1912}# | |
| 5666 | #{r 1913}# | |
| 5667 | #{w 1914}# | |
| 5668 | #{s 1915}# | |
| 5669 | #{mod 1916}#) | |
| 5670 | (if (eqv? #{type 1910}# 'global-call) | |
| 5671 | (#{chi-application 436}# | |
| 5672 | (#{build-global-reference 278}# | |
| 5673 | (#{source-annotation 322}# (car #{e 1912}#)) | |
| 5674 | (if (#{syntax-object? 307}# #{value 1911}#) | |
| 5675 | (#{syntax-object-expression 309}# #{value 1911}#) | |
| 5676 | #{value 1911}#) | |
| 5677 | (if (#{syntax-object? 307}# #{value 1911}#) | |
| 5678 | (#{syntax-object-module 313}# #{value 1911}#) | |
| 5679 | #{mod 1916}#)) | |
| 5680 | #{e 1912}# | |
| 5681 | #{r 1913}# | |
| 5682 | #{w 1914}# | |
| 5683 | #{s 1915}# | |
| 5684 | #{mod 1916}#) | |
| 5685 | (if (eqv? #{type 1910}# 'constant) | |
| 5686 | (#{build-data 292}# | |
| 5687 | #{s 1915}# | |
| 5688 | (#{strip 458}# | |
| 5689 | (#{source-wrap 420}# | |
| 5690 | #{e 1912}# | |
| 5691 | #{w 1914}# | |
| 5692 | #{s 1915}# | |
| 5693 | #{mod 1916}#) | |
| e2ccab57 | 5694 | '(()))) |
| 1bbe0a63 AW |
5695 | (if (eqv? #{type 1910}# 'global) |
| 5696 | (#{build-global-reference 278}# | |
| 5697 | #{s 1915}# | |
| 5698 | #{value 1911}# | |
| 5699 | #{mod 1916}#) | |
| 5700 | (if (eqv? #{type 1910}# 'call) | |
| 5701 | (#{chi-application 436}# | |
| 5702 | (#{chi 432}# | |
| 5703 | (car #{e 1912}#) | |
| 5704 | #{r 1913}# | |
| 5705 | #{w 1914}# | |
| 5706 | #{mod 1916}#) | |
| 5707 | #{e 1912}# | |
| 5708 | #{r 1913}# | |
| 5709 | #{w 1914}# | |
| 5710 | #{s 1915}# | |
| 5711 | #{mod 1916}#) | |
| 5712 | (if (eqv? #{type 1910}# 'begin-form) | |
| 5713 | (let ((#{tmp 1946}# #{e 1912}#)) | |
| 5714 | (let ((#{tmp 1947}# | |
| e2ccab57 | 5715 | ($sc-dispatch |
| 1bbe0a63 | 5716 | #{tmp 1946}# |
| e2ccab57 | 5717 | '(_ any . each-any)))) |
| 1bbe0a63 | 5718 | (if #{tmp 1947}# |
| e2ccab57 | 5719 | (@apply |
| 1bbe0a63 AW |
5720 | (lambda (#{e1 1950}# #{e2 1951}#) |
| 5721 | (#{chi-sequence 422}# | |
| 5722 | (cons #{e1 1950}# #{e2 1951}#) | |
| 5723 | #{r 1913}# | |
| 5724 | #{w 1914}# | |
| 5725 | #{s 1915}# | |
| 5726 | #{mod 1916}#)) | |
| 5727 | #{tmp 1947}#) | |
| e2ccab57 AW |
5728 | (syntax-violation |
| 5729 | #f | |
| 5730 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
5731 | #{tmp 1946}#)))) |
| 5732 | (if (eqv? #{type 1910}# 'local-syntax-form) | |
| 5733 | (#{chi-local-syntax 442}# | |
| 5734 | #{value 1911}# | |
| 5735 | #{e 1912}# | |
| 5736 | #{r 1913}# | |
| 5737 | #{w 1914}# | |
| 5738 | #{s 1915}# | |
| 5739 | #{mod 1916}# | |
| 5740 | #{chi-sequence 422}#) | |
| 5741 | (if (eqv? #{type 1910}# 'eval-when-form) | |
| 5742 | (let ((#{tmp 1955}# #{e 1912}#)) | |
| 5743 | (let ((#{tmp 1956}# | |
| e2ccab57 | 5744 | ($sc-dispatch |
| 1bbe0a63 | 5745 | #{tmp 1955}# |
| e2ccab57 | 5746 | '(_ each-any any . each-any)))) |
| 1bbe0a63 | 5747 | (if #{tmp 1956}# |
| e2ccab57 | 5748 | (@apply |
| 1bbe0a63 AW |
5749 | (lambda (#{x 1960}# |
| 5750 | #{e1 1961}# | |
| 5751 | #{e2 1962}#) | |
| e2ccab57 | 5752 | (begin |
| 1bbe0a63 AW |
5753 | (let ((#{when-list 1964}# |
| 5754 | (#{chi-when-list 428}# | |
| 5755 | #{e 1912}# | |
| 5756 | #{x 1960}# | |
| 5757 | #{w 1914}#))) | |
| 5758 | (if (memq 'eval #{when-list 1964}#) | |
| 5759 | (#{chi-sequence 422}# | |
| 5760 | (cons #{e1 1961}# #{e2 1962}#) | |
| 5761 | #{r 1913}# | |
| 5762 | #{w 1914}# | |
| 5763 | #{s 1915}# | |
| 5764 | #{mod 1916}#) | |
| 5765 | (#{chi-void 446}#))))) | |
| 5766 | #{tmp 1956}#) | |
| e2ccab57 AW |
5767 | (syntax-violation |
| 5768 | #f | |
| 5769 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
5770 | #{tmp 1955}#)))) |
| 5771 | (if (if (eqv? #{type 1910}# 'define-form) | |
| e2ccab57 | 5772 | #t |
| 1bbe0a63 | 5773 | (eqv? #{type 1910}# 'define-syntax-form)) |
| e2ccab57 AW |
5774 | (syntax-violation |
| 5775 | #f | |
| 5776 | "definition in expression context" | |
| 1bbe0a63 AW |
5777 | #{e 1912}# |
| 5778 | (#{wrap 418}# | |
| 5779 | #{value 1911}# | |
| 5780 | #{w 1914}# | |
| 5781 | #{mod 1916}#)) | |
| 5782 | (if (eqv? #{type 1910}# 'syntax) | |
| e2ccab57 AW |
5783 | (syntax-violation |
| 5784 | #f | |
| 5785 | "reference to pattern variable outside syntax form" | |
| 1bbe0a63 AW |
5786 | (#{source-wrap 420}# |
| 5787 | #{e 1912}# | |
| 5788 | #{w 1914}# | |
| 5789 | #{s 1915}# | |
| 5790 | #{mod 1916}#)) | |
| 5791 | (if (eqv? #{type 1910}# 'displaced-lexical) | |
| e2ccab57 AW |
5792 | (syntax-violation |
| 5793 | #f | |
| 5794 | "reference to identifier outside its scope" | |
| 1bbe0a63 AW |
5795 | (#{source-wrap 420}# |
| 5796 | #{e 1912}# | |
| 5797 | #{w 1914}# | |
| 5798 | #{s 1915}# | |
| 5799 | #{mod 1916}#)) | |
| e2ccab57 AW |
5800 | (syntax-violation |
| 5801 | #f | |
| 5802 | "unexpected syntax" | |
| 1bbe0a63 AW |
5803 | (#{source-wrap 420}# |
| 5804 | #{e 1912}# | |
| 5805 | #{w 1914}# | |
| 5806 | #{s 1915}# | |
| 5807 | #{mod 1916}#)))))))))))))))))) | |
| 5808 | (#{chi-application 436}# | |
| 5809 | (lambda (#{x 1971}# | |
| 5810 | #{e 1972}# | |
| 5811 | #{r 1973}# | |
| 5812 | #{w 1974}# | |
| 5813 | #{s 1975}# | |
| 5814 | #{mod 1976}#) | |
| 5815 | (let ((#{tmp 1983}# #{e 1972}#)) | |
| 5816 | (let ((#{tmp 1984}# | |
| 5817 | ($sc-dispatch #{tmp 1983}# '(any . each-any)))) | |
| 5818 | (if #{tmp 1984}# | |
| e2ccab57 | 5819 | (@apply |
| 1bbe0a63 AW |
5820 | (lambda (#{e0 1987}# #{e1 1988}#) |
| 5821 | (#{build-application 266}# | |
| 5822 | #{s 1975}# | |
| 5823 | #{x 1971}# | |
| 5824 | (map (lambda (#{e 1989}#) | |
| 5825 | (#{chi 432}# | |
| 5826 | #{e 1989}# | |
| 5827 | #{r 1973}# | |
| 5828 | #{w 1974}# | |
| 5829 | #{mod 1976}#)) | |
| 5830 | #{e1 1988}#))) | |
| 5831 | #{tmp 1984}#) | |
| e2ccab57 AW |
5832 | (syntax-violation |
| 5833 | #f | |
| 5834 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
5835 | #{tmp 1983}#)))))) |
| 5836 | (#{chi-macro 438}# | |
| 5837 | (lambda (#{p 1992}# | |
| 5838 | #{e 1993}# | |
| 5839 | #{r 1994}# | |
| 5840 | #{w 1995}# | |
| 5841 | #{s 1996}# | |
| 5842 | #{rib 1997}# | |
| 5843 | #{mod 1998}#) | |
| e2ccab57 | 5844 | (letrec* |
| 1bbe0a63 AW |
5845 | ((#{rebuild-macro-output 2007}# |
| 5846 | (lambda (#{x 2008}# #{m 2009}#) | |
| 5847 | (if (pair? #{x 2008}#) | |
| 5848 | (#{decorate-source 260}# | |
| 5849 | (cons (#{rebuild-macro-output 2007}# | |
| 5850 | (car #{x 2008}#) | |
| 5851 | #{m 2009}#) | |
| 5852 | (#{rebuild-macro-output 2007}# | |
| 5853 | (cdr #{x 2008}#) | |
| 5854 | #{m 2009}#)) | |
| 5855 | #{s 1996}#) | |
| 5856 | (if (#{syntax-object? 307}# #{x 2008}#) | |
| e2ccab57 | 5857 | (begin |
| 1bbe0a63 AW |
5858 | (let ((#{w 2017}# |
| 5859 | (#{syntax-object-wrap 311}# #{x 2008}#))) | |
| e2ccab57 | 5860 | (begin |
| 1bbe0a63 AW |
5861 | (let ((#{ms 2020}# (car #{w 2017}#)) |
| 5862 | (#{s 2021}# (cdr #{w 2017}#))) | |
| 5863 | (if (if (pair? #{ms 2020}#) | |
| 5864 | (eq? (car #{ms 2020}#) #f) | |
| e2ccab57 | 5865 | #f) |
| 1bbe0a63 AW |
5866 | (#{make-syntax-object 305}# |
| 5867 | (#{syntax-object-expression 309}# #{x 2008}#) | |
| 5868 | (cons (cdr #{ms 2020}#) | |
| 5869 | (if #{rib 1997}# | |
| 5870 | (cons #{rib 1997}# (cdr #{s 2021}#)) | |
| 5871 | (cdr #{s 2021}#))) | |
| 5872 | (#{syntax-object-module 313}# #{x 2008}#)) | |
| 5873 | (#{make-syntax-object 305}# | |
| 5874 | (#{decorate-source 260}# | |
| 5875 | (#{syntax-object-expression 309}# #{x 2008}#) | |
| 5876 | #{s 2021}#) | |
| 5877 | (cons (cons #{m 2009}# #{ms 2020}#) | |
| 5878 | (if #{rib 1997}# | |
| 5879 | (cons #{rib 1997}# | |
| 5880 | (cons 'shift #{s 2021}#)) | |
| 5881 | (cons 'shift #{s 2021}#))) | |
| 5882 | (#{syntax-object-module 313}# #{x 2008}#))))))) | |
| 5883 | (if (vector? #{x 2008}#) | |
| e2ccab57 | 5884 | (begin |
| 1bbe0a63 | 5885 | (let ((#{n 2033}# (vector-length #{x 2008}#))) |
| e2ccab57 | 5886 | (begin |
| 1bbe0a63 AW |
5887 | (let ((#{v 2035}# |
| 5888 | (#{decorate-source 260}# | |
| 5889 | (make-vector #{n 2033}#) | |
| 5890 | #{x 2008}#))) | |
| e2ccab57 | 5891 | (letrec* |
| 1bbe0a63 AW |
5892 | ((#{loop 2038}# |
| 5893 | (lambda (#{i 2039}#) | |
| 5894 | (if (= #{i 2039}# #{n 2033}#) | |
| 5895 | (begin (if #f #f) #{v 2035}#) | |
| e2ccab57 AW |
5896 | (begin |
| 5897 | (vector-set! | |
| 1bbe0a63 AW |
5898 | #{v 2035}# |
| 5899 | #{i 2039}# | |
| 5900 | (#{rebuild-macro-output 2007}# | |
| 5901 | (vector-ref #{x 2008}# #{i 2039}#) | |
| 5902 | #{m 2009}#)) | |
| 5903 | (#{loop 2038}# (#{1+}# #{i 2039}#))))))) | |
| 5904 | (begin (#{loop 2038}# 0))))))) | |
| 5905 | (if (symbol? #{x 2008}#) | |
| e2ccab57 AW |
5906 | (syntax-violation |
| 5907 | #f | |
| 5908 | "encountered raw symbol in macro output" | |
| 1bbe0a63 AW |
5909 | (#{source-wrap 420}# |
| 5910 | #{e 1993}# | |
| 5911 | #{w 1995}# | |
| 5912 | (cdr #{w 1995}#) | |
| 5913 | #{mod 1998}#) | |
| 5914 | #{x 2008}#) | |
| 5915 | (#{decorate-source 260}# #{x 2008}# #{s 1996}#)))))))) | |
| e2ccab57 | 5916 | (begin |
| 1bbe0a63 AW |
5917 | (#{rebuild-macro-output 2007}# |
| 5918 | (#{p 1992}# | |
| 5919 | (#{source-wrap 420}# | |
| 5920 | #{e 1993}# | |
| 5921 | (#{anti-mark 388}# #{w 1995}#) | |
| 5922 | #{s 1996}# | |
| 5923 | #{mod 1998}#)) | |
| e2ccab57 | 5924 | (gensym "m")))))) |
| 1bbe0a63 AW |
5925 | (#{chi-body 440}# |
| 5926 | (lambda (#{body 2049}# | |
| 5927 | #{outer-form 2050}# | |
| 5928 | #{r 2051}# | |
| 5929 | #{w 2052}# | |
| 5930 | #{mod 2053}#) | |
| e2ccab57 | 5931 | (begin |
| 1bbe0a63 AW |
5932 | (let ((#{r 2061}# |
| 5933 | (cons '("placeholder" placeholder) #{r 2051}#))) | |
| e2ccab57 | 5934 | (begin |
| 1bbe0a63 AW |
5935 | (let ((#{ribcage 2063}# |
| 5936 | (#{make-ribcage 367}# '() '() '()))) | |
| e2ccab57 | 5937 | (begin |
| 1bbe0a63 AW |
5938 | (let ((#{w 2066}# |
| 5939 | (cons (car #{w 2052}#) | |
| 5940 | (cons #{ribcage 2063}# (cdr #{w 2052}#))))) | |
| e2ccab57 | 5941 | (letrec* |
| 1bbe0a63 AW |
5942 | ((#{parse 2078}# |
| 5943 | (lambda (#{body 2079}# | |
| 5944 | #{ids 2080}# | |
| 5945 | #{labels 2081}# | |
| 5946 | #{var-ids 2082}# | |
| 5947 | #{vars 2083}# | |
| 5948 | #{vals 2084}# | |
| 5949 | #{bindings 2085}#) | |
| 5950 | (if (null? #{body 2079}#) | |
| e2ccab57 AW |
5951 | (syntax-violation |
| 5952 | #f | |
| 5953 | "no expressions in body" | |
| 1bbe0a63 | 5954 | #{outer-form 2050}#) |
| e2ccab57 | 5955 | (begin |
| 1bbe0a63 AW |
5956 | (let ((#{e 2090}# (cdr (car #{body 2079}#))) |
| 5957 | (#{er 2091}# (car (car #{body 2079}#)))) | |
| e2ccab57 AW |
5958 | (call-with-values |
| 5959 | (lambda () | |
| 1bbe0a63 AW |
5960 | (#{syntax-type 430}# |
| 5961 | #{e 2090}# | |
| 5962 | #{er 2091}# | |
| e2ccab57 | 5963 | '(()) |
| 1bbe0a63 AW |
5964 | (#{source-annotation 322}# #{er 2091}#) |
| 5965 | #{ribcage 2063}# | |
| 5966 | #{mod 2053}# | |
| e2ccab57 | 5967 | #f)) |
| 1bbe0a63 AW |
5968 | (lambda (#{type 2093}# |
| 5969 | #{value 2094}# | |
| 5970 | #{e 2095}# | |
| 5971 | #{w 2096}# | |
| 5972 | #{s 2097}# | |
| 5973 | #{mod 2098}#) | |
| 5974 | (if (eqv? #{type 2093}# 'define-form) | |
| e2ccab57 | 5975 | (begin |
| 1bbe0a63 AW |
5976 | (let ((#{id 2108}# |
| 5977 | (#{wrap 418}# | |
| 5978 | #{value 2094}# | |
| 5979 | #{w 2096}# | |
| 5980 | #{mod 2098}#)) | |
| 5981 | (#{label 2109}# | |
| 5982 | (#{gen-label 362}#))) | |
| e2ccab57 | 5983 | (begin |
| 1bbe0a63 AW |
5984 | (let ((#{var 2111}# |
| 5985 | (#{gen-var 460}# | |
| 5986 | #{id 2108}#))) | |
| e2ccab57 | 5987 | (begin |
| 1bbe0a63 AW |
5988 | (#{extend-ribcage! 394}# |
| 5989 | #{ribcage 2063}# | |
| 5990 | #{id 2108}# | |
| 5991 | #{label 2109}#) | |
| 5992 | (#{parse 2078}# | |
| 5993 | (cdr #{body 2079}#) | |
| 5994 | (cons #{id 2108}# | |
| 5995 | #{ids 2080}#) | |
| 5996 | (cons #{label 2109}# | |
| 5997 | #{labels 2081}#) | |
| 5998 | (cons #{id 2108}# | |
| 5999 | #{var-ids 2082}#) | |
| 6000 | (cons #{var 2111}# | |
| 6001 | #{vars 2083}#) | |
| 6002 | (cons (cons #{er 2091}# | |
| 6003 | (#{wrap 418}# | |
| 6004 | #{e 2095}# | |
| 6005 | #{w 2096}# | |
| 6006 | #{mod 2098}#)) | |
| 6007 | #{vals 2084}#) | |
| e2ccab57 | 6008 | (cons (cons 'lexical |
| 1bbe0a63 AW |
6009 | #{var 2111}#) |
| 6010 | #{bindings 2085}#))))))) | |
| 6011 | (if (eqv? #{type 2093}# | |
| e2ccab57 AW |
6012 | 'define-syntax-form) |
| 6013 | (begin | |
| 1bbe0a63 AW |
6014 | (let ((#{id 2116}# |
| 6015 | (#{wrap 418}# | |
| 6016 | #{value 2094}# | |
| 6017 | #{w 2096}# | |
| 6018 | #{mod 2098}#)) | |
| 6019 | (#{label 2117}# | |
| 6020 | (#{gen-label 362}#))) | |
| e2ccab57 | 6021 | (begin |
| 1bbe0a63 AW |
6022 | (#{extend-ribcage! 394}# |
| 6023 | #{ribcage 2063}# | |
| 6024 | #{id 2116}# | |
| 6025 | #{label 2117}#) | |
| 6026 | (#{parse 2078}# | |
| 6027 | (cdr #{body 2079}#) | |
| 6028 | (cons #{id 2116}# #{ids 2080}#) | |
| 6029 | (cons #{label 2117}# | |
| 6030 | #{labels 2081}#) | |
| 6031 | #{var-ids 2082}# | |
| 6032 | #{vars 2083}# | |
| 6033 | #{vals 2084}# | |
| e2ccab57 | 6034 | (cons (cons 'macro |
| 1bbe0a63 AW |
6035 | (cons #{er 2091}# |
| 6036 | (#{wrap 418}# | |
| 6037 | #{e 2095}# | |
| 6038 | #{w 2096}# | |
| 6039 | #{mod 2098}#))) | |
| 6040 | #{bindings 2085}#))))) | |
| 6041 | (if (eqv? #{type 2093}# 'begin-form) | |
| 6042 | (let ((#{tmp 2120}# #{e 2095}#)) | |
| 6043 | (let ((#{tmp 2121}# | |
| e2ccab57 | 6044 | ($sc-dispatch |
| 1bbe0a63 | 6045 | #{tmp 2120}# |
| e2ccab57 | 6046 | '(_ . each-any)))) |
| 1bbe0a63 | 6047 | (if #{tmp 2121}# |
| e2ccab57 | 6048 | (@apply |
| 1bbe0a63 AW |
6049 | (lambda (#{e1 2123}#) |
| 6050 | (#{parse 2078}# | |
| e2ccab57 | 6051 | (letrec* |
| 1bbe0a63 AW |
6052 | ((#{f 2126}# |
| 6053 | (lambda (#{forms 2127}#) | |
| 6054 | (if (null? #{forms 2127}#) | |
| 6055 | (cdr #{body 2079}#) | |
| 6056 | (cons (cons #{er 2091}# | |
| 6057 | (#{wrap 418}# | |
| 6058 | (car #{forms 2127}#) | |
| 6059 | #{w 2096}# | |
| 6060 | #{mod 2098}#)) | |
| 6061 | (#{f 2126}# | |
| 6062 | (cdr #{forms 2127}#))))))) | |
| e2ccab57 | 6063 | (begin |
| 1bbe0a63 AW |
6064 | (#{f 2126}# |
| 6065 | #{e1 2123}#))) | |
| 6066 | #{ids 2080}# | |
| 6067 | #{labels 2081}# | |
| 6068 | #{var-ids 2082}# | |
| 6069 | #{vars 2083}# | |
| 6070 | #{vals 2084}# | |
| 6071 | #{bindings 2085}#)) | |
| 6072 | #{tmp 2121}#) | |
| e2ccab57 AW |
6073 | (syntax-violation |
| 6074 | #f | |
| 6075 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
6076 | #{tmp 2120}#)))) |
| 6077 | (if (eqv? #{type 2093}# | |
| e2ccab57 | 6078 | 'local-syntax-form) |
| 1bbe0a63 AW |
6079 | (#{chi-local-syntax 442}# |
| 6080 | #{value 2094}# | |
| 6081 | #{e 2095}# | |
| 6082 | #{er 2091}# | |
| 6083 | #{w 2096}# | |
| 6084 | #{s 2097}# | |
| 6085 | #{mod 2098}# | |
| 6086 | (lambda (#{forms 2130}# | |
| 6087 | #{er 2131}# | |
| 6088 | #{w 2132}# | |
| 6089 | #{s 2133}# | |
| 6090 | #{mod 2134}#) | |
| 6091 | (#{parse 2078}# | |
| e2ccab57 | 6092 | (letrec* |
| 1bbe0a63 AW |
6093 | ((#{f 2142}# |
| 6094 | (lambda (#{forms 2143}#) | |
| 6095 | (if (null? #{forms 2143}#) | |
| 6096 | (cdr #{body 2079}#) | |
| 6097 | (cons (cons #{er 2131}# | |
| 6098 | (#{wrap 418}# | |
| 6099 | (car #{forms 2143}#) | |
| 6100 | #{w 2132}# | |
| 6101 | #{mod 2134}#)) | |
| 6102 | (#{f 2142}# | |
| 6103 | (cdr #{forms 2143}#))))))) | |
| e2ccab57 | 6104 | (begin |
| 1bbe0a63 AW |
6105 | (#{f 2142}# |
| 6106 | #{forms 2130}#))) | |
| 6107 | #{ids 2080}# | |
| 6108 | #{labels 2081}# | |
| 6109 | #{var-ids 2082}# | |
| 6110 | #{vars 2083}# | |
| 6111 | #{vals 2084}# | |
| 6112 | #{bindings 2085}#))) | |
| 6113 | (if (null? #{ids 2080}#) | |
| 6114 | (#{build-sequence 294}# | |
| e2ccab57 | 6115 | #f |
| 1bbe0a63 AW |
6116 | (map (lambda (#{x 2146}#) |
| 6117 | (#{chi 432}# | |
| 6118 | (cdr #{x 2146}#) | |
| 6119 | (car #{x 2146}#) | |
| e2ccab57 | 6120 | '(()) |
| 1bbe0a63 AW |
6121 | #{mod 2098}#)) |
| 6122 | (cons (cons #{er 2091}# | |
| 6123 | (#{source-wrap 420}# | |
| 6124 | #{e 2095}# | |
| 6125 | #{w 2096}# | |
| 6126 | #{s 2097}# | |
| 6127 | #{mod 2098}#)) | |
| 6128 | (cdr #{body 2079}#)))) | |
| e2ccab57 | 6129 | (begin |
| 1bbe0a63 AW |
6130 | (if (not (#{valid-bound-ids? 412}# |
| 6131 | #{ids 2080}#)) | |
| e2ccab57 AW |
6132 | (syntax-violation |
| 6133 | #f | |
| 6134 | "invalid or duplicate identifier in definition" | |
| 1bbe0a63 | 6135 | #{outer-form 2050}#)) |
| e2ccab57 | 6136 | (letrec* |
| 1bbe0a63 AW |
6137 | ((#{loop 2153}# |
| 6138 | (lambda (#{bs 2154}# | |
| 6139 | #{er-cache 2155}# | |
| 6140 | #{r-cache 2156}#) | |
| 6141 | (if (not (null? #{bs 2154}#)) | |
| e2ccab57 | 6142 | (begin |
| 1bbe0a63 AW |
6143 | (let ((#{b 2159}# |
| 6144 | (car #{bs 2154}#))) | |
| 6145 | (if (eq? (car #{b 2159}#) | |
| e2ccab57 AW |
6146 | 'macro) |
| 6147 | (begin | |
| 1bbe0a63 AW |
6148 | (let ((#{er 2162}# |
| 6149 | (car (cdr #{b 2159}#)))) | |
| e2ccab57 | 6150 | (begin |
| 1bbe0a63 AW |
6151 | (let ((#{r-cache 2164}# |
| 6152 | (if (eq? #{er 2162}# | |
| 6153 | #{er-cache 2155}#) | |
| 6154 | #{r-cache 2156}# | |
| 6155 | (#{macros-only-env 336}# | |
| 6156 | #{er 2162}#)))) | |
| e2ccab57 AW |
6157 | (begin |
| 6158 | (set-cdr! | |
| 1bbe0a63 AW |
6159 | #{b 2159}# |
| 6160 | (#{eval-local-transformer 444}# | |
| 6161 | (#{chi 432}# | |
| 6162 | (cdr (cdr #{b 2159}#)) | |
| 6163 | #{r-cache 2164}# | |
| e2ccab57 | 6164 | '(()) |
| 1bbe0a63 AW |
6165 | #{mod 2098}#) |
| 6166 | #{mod 2098}#)) | |
| 6167 | (#{loop 2153}# | |
| 6168 | (cdr #{bs 2154}#) | |
| 6169 | #{er 2162}# | |
| 6170 | #{r-cache 2164}#)))))) | |
| 6171 | (#{loop 2153}# | |
| 6172 | (cdr #{bs 2154}#) | |
| 6173 | #{er-cache 2155}# | |
| 6174 | #{r-cache 2156}#)))))))) | |
| e2ccab57 | 6175 | (begin |
| 1bbe0a63 AW |
6176 | (#{loop 2153}# |
| 6177 | #{bindings 2085}# | |
| e2ccab57 AW |
6178 | #f |
| 6179 | #f))) | |
| 6180 | (set-cdr! | |
| 1bbe0a63 AW |
6181 | #{r 2061}# |
| 6182 | (#{extend-env 332}# | |
| 6183 | #{labels 2081}# | |
| 6184 | #{bindings 2085}# | |
| 6185 | (cdr #{r 2061}#))) | |
| 6186 | (#{build-letrec 300}# | |
| e2ccab57 AW |
6187 | #f |
| 6188 | #t | |
| 6189 | (reverse | |
| 6190 | (map syntax->datum | |
| 1bbe0a63 AW |
6191 | #{var-ids 2082}#)) |
| 6192 | (reverse #{vars 2083}#) | |
| 6193 | (map (lambda (#{x 2167}#) | |
| 6194 | (#{chi 432}# | |
| 6195 | (cdr #{x 2167}#) | |
| 6196 | (car #{x 2167}#) | |
| e2ccab57 | 6197 | '(()) |
| 1bbe0a63 AW |
6198 | #{mod 2098}#)) |
| 6199 | (reverse #{vals 2084}#)) | |
| 6200 | (#{build-sequence 294}# | |
| e2ccab57 | 6201 | #f |
| 1bbe0a63 AW |
6202 | (map (lambda (#{x 2171}#) |
| 6203 | (#{chi 432}# | |
| 6204 | (cdr #{x 2171}#) | |
| 6205 | (car #{x 2171}#) | |
| e2ccab57 | 6206 | '(()) |
| 1bbe0a63 AW |
6207 | #{mod 2098}#)) |
| 6208 | (cons (cons #{er 2091}# | |
| 6209 | (#{source-wrap 420}# | |
| 6210 | #{e 2095}# | |
| 6211 | #{w 2096}# | |
| 6212 | #{s 2097}# | |
| 6213 | #{mod 2098}#)) | |
| 6214 | (cdr #{body 2079}#))))))))))))))))))) | |
| e2ccab57 | 6215 | (begin |
| 1bbe0a63 AW |
6216 | (#{parse 2078}# |
| 6217 | (map (lambda (#{x 2086}#) | |
| 6218 | (cons #{r 2061}# | |
| 6219 | (#{wrap 418}# | |
| 6220 | #{x 2086}# | |
| 6221 | #{w 2066}# | |
| 6222 | #{mod 2053}#))) | |
| 6223 | #{body 2049}#) | |
| e2ccab57 AW |
6224 | '() |
| 6225 | '() | |
| 6226 | '() | |
| 6227 | '() | |
| 6228 | '() | |
| 6229 | '()))))))))))) | |
| 1bbe0a63 AW |
6230 | (#{chi-local-syntax 442}# |
| 6231 | (lambda (#{rec? 2174}# | |
| 6232 | #{e 2175}# | |
| 6233 | #{r 2176}# | |
| 6234 | #{w 2177}# | |
| 6235 | #{s 2178}# | |
| 6236 | #{mod 2179}# | |
| 6237 | #{k 2180}#) | |
| 6238 | (let ((#{tmp 2188}# #{e 2175}#)) | |
| 6239 | (let ((#{tmp 2189}# | |
| e2ccab57 | 6240 | ($sc-dispatch |
| 1bbe0a63 | 6241 | #{tmp 2188}# |
| e2ccab57 | 6242 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 6243 | (if #{tmp 2189}# |
| e2ccab57 | 6244 | (@apply |
| 1bbe0a63 AW |
6245 | (lambda (#{id 2194}# |
| 6246 | #{val 2195}# | |
| 6247 | #{e1 2196}# | |
| 6248 | #{e2 2197}#) | |
| e2ccab57 | 6249 | (begin |
| 1bbe0a63 AW |
6250 | (let ((#{ids 2199}# #{id 2194}#)) |
| 6251 | (if (not (#{valid-bound-ids? 412}# #{ids 2199}#)) | |
| e2ccab57 AW |
6252 | (syntax-violation |
| 6253 | #f | |
| 6254 | "duplicate bound keyword" | |
| 1bbe0a63 | 6255 | #{e 2175}#) |
| e2ccab57 | 6256 | (begin |
| 1bbe0a63 AW |
6257 | (let ((#{labels 2202}# |
| 6258 | (#{gen-labels 364}# #{ids 2199}#))) | |
| e2ccab57 | 6259 | (begin |
| 1bbe0a63 AW |
6260 | (let ((#{new-w 2204}# |
| 6261 | (#{make-binding-wrap 396}# | |
| 6262 | #{ids 2199}# | |
| 6263 | #{labels 2202}# | |
| 6264 | #{w 2177}#))) | |
| 6265 | (#{k 2180}# | |
| 6266 | (cons #{e1 2196}# #{e2 2197}#) | |
| 6267 | (#{extend-env 332}# | |
| 6268 | #{labels 2202}# | |
| e2ccab57 | 6269 | (begin |
| 1bbe0a63 AW |
6270 | (let ((#{w 2208}# |
| 6271 | (if #{rec? 2174}# | |
| 6272 | #{new-w 2204}# | |
| 6273 | #{w 2177}#)) | |
| 6274 | (#{trans-r 2209}# | |
| 6275 | (#{macros-only-env 336}# | |
| 6276 | #{r 2176}#))) | |
| 6277 | (map (lambda (#{x 2210}#) | |
| e2ccab57 | 6278 | (cons 'macro |
| 1bbe0a63 AW |
6279 | (#{eval-local-transformer 444}# |
| 6280 | (#{chi 432}# | |
| 6281 | #{x 2210}# | |
| 6282 | #{trans-r 2209}# | |
| 6283 | #{w 2208}# | |
| 6284 | #{mod 2179}#) | |
| 6285 | #{mod 2179}#))) | |
| 6286 | #{val 2195}#))) | |
| 6287 | #{r 2176}#) | |
| 6288 | #{new-w 2204}# | |
| 6289 | #{s 2178}# | |
| 6290 | #{mod 2179}#))))))))) | |
| 6291 | #{tmp 2189}#) | |
| 6292 | (let ((#{_ 2215}# #{tmp 2188}#)) | |
| e2ccab57 AW |
6293 | (syntax-violation |
| 6294 | #f | |
| 6295 | "bad local syntax definition" | |
| 1bbe0a63 AW |
6296 | (#{source-wrap 420}# |
| 6297 | #{e 2175}# | |
| 6298 | #{w 2177}# | |
| 6299 | #{s 2178}# | |
| 6300 | #{mod 2179}#)))))))) | |
| 6301 | (#{eval-local-transformer 444}# | |
| 6302 | (lambda (#{expanded 2216}# #{mod 2217}#) | |
| e2ccab57 | 6303 | (begin |
| 1bbe0a63 | 6304 | (let ((#{p 2221}# |
| e2ccab57 | 6305 | (#{local-eval-hook 252}# |
| 1bbe0a63 AW |
6306 | #{expanded 2216}# |
| 6307 | #{mod 2217}#))) | |
| 6308 | (if (procedure? #{p 2221}#) | |
| 6309 | #{p 2221}# | |
| e2ccab57 AW |
6310 | (syntax-violation |
| 6311 | #f | |
| 6312 | "nonprocedure transformer" | |
| 1bbe0a63 AW |
6313 | #{p 2221}#)))))) |
| 6314 | (#{chi-void 446}# | |
| 6315 | (lambda () (#{build-void 264}# #f))) | |
| 6316 | (#{ellipsis? 448}# | |
| 6317 | (lambda (#{x 2223}#) | |
| 6318 | (if (#{nonsymbol-id? 342}# #{x 2223}#) | |
| 6319 | (#{free-id=? 408}# | |
| 6320 | #{x 2223}# | |
| e2ccab57 AW |
6321 | '#(syntax-object |
| 6322 | ... | |
| 6323 | ((top) | |
| 6324 | #(ribcage () () ()) | |
| 6325 | #(ribcage () () ()) | |
| 1bbe0a63 | 6326 | #(ribcage #(x) #((top)) #("i2224")) |
| e2ccab57 AW |
6327 | #(ribcage |
| 6328 | (lambda-var-list | |
| 6329 | gen-var | |
| 6330 | strip | |
| 6331 | chi-lambda-case | |
| 6332 | lambda*-formals | |
| 6333 | chi-simple-lambda | |
| 6334 | lambda-formals | |
| 6335 | ellipsis? | |
| 6336 | chi-void | |
| 6337 | eval-local-transformer | |
| 6338 | chi-local-syntax | |
| 6339 | chi-body | |
| 6340 | chi-macro | |
| 6341 | chi-application | |
| 6342 | chi-expr | |
| 6343 | chi | |
| 6344 | syntax-type | |
| 6345 | chi-when-list | |
| 6346 | chi-install-global | |
| 6347 | chi-top-sequence | |
| 6348 | chi-sequence | |
| 6349 | source-wrap | |
| 6350 | wrap | |
| 6351 | bound-id-member? | |
| 6352 | distinct-bound-ids? | |
| 6353 | valid-bound-ids? | |
| 6354 | bound-id=? | |
| 6355 | free-id=? | |
| 6356 | id-var-name | |
| 6357 | same-marks? | |
| 6358 | join-marks | |
| 6359 | join-wraps | |
| 6360 | smart-append | |
| 6361 | make-binding-wrap | |
| 6362 | extend-ribcage! | |
| 6363 | make-empty-ribcage | |
| 6364 | new-mark | |
| 6365 | anti-mark | |
| 6366 | the-anti-mark | |
| 6367 | top-marked? | |
| 6368 | top-wrap | |
| 6369 | empty-wrap | |
| 6370 | set-ribcage-labels! | |
| 6371 | set-ribcage-marks! | |
| 6372 | set-ribcage-symnames! | |
| 6373 | ribcage-labels | |
| 6374 | ribcage-marks | |
| 6375 | ribcage-symnames | |
| 6376 | ribcage? | |
| 6377 | make-ribcage | |
| 6378 | gen-labels | |
| 6379 | gen-label | |
| 6380 | make-rename | |
| 6381 | rename-marks | |
| 6382 | rename-new | |
| 6383 | rename-old | |
| 6384 | subst-rename? | |
| 6385 | wrap-subst | |
| 6386 | wrap-marks | |
| 6387 | make-wrap | |
| 6388 | id-sym-name&marks | |
| 6389 | id-sym-name | |
| 6390 | id? | |
| 6391 | nonsymbol-id? | |
| 6392 | global-extend | |
| 6393 | lookup | |
| 6394 | macros-only-env | |
| 6395 | extend-var-env | |
| 6396 | extend-env | |
| 6397 | null-env | |
| 6398 | binding-value | |
| 6399 | binding-type | |
| 6400 | make-binding | |
| 6401 | arg-check | |
| 6402 | source-annotation | |
| 6403 | no-source | |
| 6404 | set-syntax-object-module! | |
| 6405 | set-syntax-object-wrap! | |
| 6406 | set-syntax-object-expression! | |
| 6407 | syntax-object-module | |
| 6408 | syntax-object-wrap | |
| 6409 | syntax-object-expression | |
| 6410 | syntax-object? | |
| 6411 | make-syntax-object | |
| 6412 | build-lexical-var | |
| 6413 | build-letrec | |
| 6414 | build-named-let | |
| 6415 | build-let | |
| 6416 | build-sequence | |
| 6417 | build-data | |
| 6418 | build-primref | |
| 6419 | build-lambda-case | |
| 6420 | build-case-lambda | |
| 6421 | build-simple-lambda | |
| 6422 | build-global-definition | |
| 6423 | build-global-assignment | |
| 6424 | build-global-reference | |
| 6425 | analyze-variable | |
| 6426 | build-lexical-assignment | |
| 6427 | build-lexical-reference | |
| 6428 | build-dynlet | |
| 6429 | build-conditional | |
| 6430 | build-application | |
| 6431 | build-void | |
| 6432 | maybe-name-value! | |
| 6433 | decorate-source | |
| 6434 | get-global-definition-hook | |
| 6435 | put-global-definition-hook | |
| 6436 | gensym-hook | |
| 6437 | local-eval-hook | |
| 6438 | top-level-eval-hook | |
| 6439 | fx< | |
| 6440 | fx= | |
| 6441 | fx- | |
| 6442 | fx+ | |
| 6443 | set-lambda-meta! | |
| 6444 | lambda-meta | |
| 6445 | lambda? | |
| 6446 | make-dynlet | |
| 6447 | make-letrec | |
| 6448 | make-let | |
| 6449 | make-lambda-case | |
| 6450 | make-lambda | |
| 6451 | make-sequence | |
| 6452 | make-application | |
| 6453 | make-conditional | |
| 6454 | make-toplevel-define | |
| 6455 | make-toplevel-set | |
| 6456 | make-toplevel-ref | |
| 6457 | make-module-set | |
| 6458 | make-module-ref | |
| 6459 | make-lexical-set | |
| 6460 | make-lexical-ref | |
| 6461 | make-primitive-ref | |
| 6462 | make-const | |
| 6463 | make-void) | |
| 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 | (top) | |
| 6540 | (top) | |
| 6541 | (top) | |
| 6542 | (top) | |
| 6543 | (top) | |
| 6544 | (top) | |
| 6545 | (top) | |
| 6546 | (top) | |
| 6547 | (top) | |
| 6548 | (top) | |
| 6549 | (top) | |
| 6550 | (top) | |
| 6551 | (top) | |
| 6552 | (top) | |
| 6553 | (top) | |
| 6554 | (top) | |
| 6555 | (top) | |
| 6556 | (top) | |
| 6557 | (top) | |
| 6558 | (top) | |
| 6559 | (top) | |
| 6560 | (top) | |
| 6561 | (top) | |
| 6562 | (top) | |
| 6563 | (top) | |
| 6564 | (top) | |
| 6565 | (top) | |
| 6566 | (top) | |
| 6567 | (top) | |
| 6568 | (top) | |
| 6569 | (top) | |
| 6570 | (top) | |
| 6571 | (top) | |
| 6572 | (top) | |
| 6573 | (top) | |
| 6574 | (top) | |
| 6575 | (top) | |
| 6576 | (top) | |
| 6577 | (top) | |
| 6578 | (top) | |
| 6579 | (top) | |
| 6580 | (top) | |
| 6581 | (top) | |
| 6582 | (top) | |
| 6583 | (top) | |
| 6584 | (top) | |
| 6585 | (top) | |
| 6586 | (top) | |
| 6587 | (top) | |
| 6588 | (top) | |
| 6589 | (top) | |
| 6590 | (top) | |
| 6591 | (top) | |
| 6592 | (top) | |
| 6593 | (top) | |
| 6594 | (top) | |
| 6595 | (top) | |
| 6596 | (top) | |
| 6597 | (top) | |
| 6598 | (top) | |
| 6599 | (top)) | |
| 1bbe0a63 AW |
6600 | ("i461" |
| 6601 | "i459" | |
| 6602 | "i457" | |
| 6603 | "i455" | |
| 6604 | "i453" | |
| 6605 | "i451" | |
| 6606 | "i449" | |
| 6607 | "i447" | |
| 6608 | "i445" | |
| 6609 | "i443" | |
| 6610 | "i441" | |
| 6611 | "i439" | |
| 6612 | "i437" | |
| 6613 | "i435" | |
| 6614 | "i433" | |
| 6615 | "i431" | |
| 6616 | "i429" | |
| 6617 | "i427" | |
| 6618 | "i425" | |
| 6619 | "i423" | |
| 6620 | "i421" | |
| 6621 | "i419" | |
| 6622 | "i417" | |
| 6623 | "i415" | |
| 6624 | "i413" | |
| 6625 | "i411" | |
| 6626 | "i409" | |
| 6627 | "i407" | |
| 6628 | "i405" | |
| 6629 | "i403" | |
| 6630 | "i401" | |
| 6631 | "i399" | |
| 6632 | "i397" | |
| 6633 | "i395" | |
| 6634 | "i393" | |
| e2ccab57 AW |
6635 | "i392" |
| 6636 | "i390" | |
| 1bbe0a63 | 6637 | "i387" |
| e2ccab57 | 6638 | "i386" |
| 1bbe0a63 AW |
6639 | "i385" |
| 6640 | "i383" | |
| e2ccab57 AW |
6641 | "i382" |
| 6642 | "i380" | |
| e2ccab57 AW |
6643 | "i378" |
| 6644 | "i376" | |
| e2ccab57 | 6645 | "i374" |
| e2ccab57 AW |
6646 | "i372" |
| 6647 | "i370" | |
| 6648 | "i368" | |
| 6649 | "i366" | |
| 1bbe0a63 AW |
6650 | "i363" |
| 6651 | "i361" | |
| e2ccab57 AW |
6652 | "i360" |
| 6653 | "i358" | |
| 6654 | "i356" | |
| 1bbe0a63 AW |
6655 | "i354" |
| 6656 | "i352" | |
| e2ccab57 AW |
6657 | "i351" |
| 6658 | "i350" | |
| 6659 | "i349" | |
| e2ccab57 AW |
6660 | "i347" |
| 6661 | "i346" | |
| e2ccab57 AW |
6662 | "i343" |
| 6663 | "i341" | |
| 1bbe0a63 AW |
6664 | "i339" |
| 6665 | "i337" | |
| 6666 | "i335" | |
| 6667 | "i333" | |
| 6668 | "i331" | |
| e2ccab57 | 6669 | "i330" |
| 1bbe0a63 AW |
6670 | "i329" |
| 6671 | "i327" | |
| e2ccab57 AW |
6672 | "i325" |
| 6673 | "i324" | |
| e2ccab57 | 6674 | "i321" |
| 1bbe0a63 | 6675 | "i320" |
| e2ccab57 AW |
6676 | "i318" |
| 6677 | "i316" | |
| 6678 | "i314" | |
| 6679 | "i312" | |
| 6680 | "i310" | |
| 6681 | "i308" | |
| 6682 | "i306" | |
| 6683 | "i304" | |
| 6684 | "i302" | |
| 1bbe0a63 AW |
6685 | "i299" |
| 6686 | "i297" | |
| 6687 | "i295" | |
| 6688 | "i293" | |
| 6689 | "i291" | |
| 6690 | "i289" | |
| 6691 | "i287" | |
| 6692 | "i285" | |
| 6693 | "i283" | |
| 6694 | "i281" | |
| 6695 | "i279" | |
| 6696 | "i277" | |
| 6697 | "i275" | |
| 6698 | "i273" | |
| 6699 | "i271" | |
| 6700 | "i269" | |
| 6701 | "i267" | |
| 6702 | "i265" | |
| 6703 | "i263" | |
| 6704 | "i261" | |
| 6705 | "i259" | |
| 6706 | "i257" | |
| 6707 | "i255" | |
| e2ccab57 | 6708 | "i254" |
| e2ccab57 AW |
6709 | "i251" |
| 6710 | "i249" | |
| 6711 | "i248" | |
| 6712 | "i247" | |
| 6713 | "i246" | |
| 6714 | "i245" | |
| 6715 | "i243" | |
| 6716 | "i241" | |
| 6717 | "i239" | |
| 6718 | "i236" | |
| 6719 | "i234" | |
| 6720 | "i232" | |
| 6721 | "i230" | |
| 6722 | "i228" | |
| 6723 | "i226" | |
| 6724 | "i224" | |
| 6725 | "i222" | |
| 6726 | "i220" | |
| 6727 | "i218" | |
| 6728 | "i216" | |
| 6729 | "i214" | |
| 6730 | "i212" | |
| 6731 | "i210" | |
| 6732 | "i208" | |
| 6733 | "i206" | |
| 6734 | "i204" | |
| 6735 | "i202")) | |
| 6736 | #(ribcage | |
| 6737 | (define-structure | |
| 6738 | define-expansion-accessors | |
| 6739 | define-expansion-constructors) | |
| 6740 | ((top) (top) (top)) | |
| 6741 | ("i40" "i39" "i38"))) | |
| 6742 | (hygiene guile))) | |
| 6743 | #f))) | |
| 1bbe0a63 AW |
6744 | (#{lambda-formals 450}# |
| 6745 | (lambda (#{orig-args 2227}#) | |
| e2ccab57 | 6746 | (letrec* |
| 1bbe0a63 AW |
6747 | ((#{req 2230}# |
| 6748 | (lambda (#{args 2233}# #{rreq 2234}#) | |
| 6749 | (let ((#{tmp 2237}# #{args 2233}#)) | |
| 6750 | (let ((#{tmp 2238}# ($sc-dispatch #{tmp 2237}# '()))) | |
| 6751 | (if #{tmp 2238}# | |
| e2ccab57 AW |
6752 | (@apply |
| 6753 | (lambda () | |
| 1bbe0a63 AW |
6754 | (#{check 2232}# (reverse #{rreq 2234}#) #f)) |
| 6755 | #{tmp 2238}#) | |
| 6756 | (let ((#{tmp 2239}# | |
| 6757 | ($sc-dispatch #{tmp 2237}# '(any . any)))) | |
| 6758 | (if (if #{tmp 2239}# | |
| e2ccab57 | 6759 | (@apply |
| 1bbe0a63 AW |
6760 | (lambda (#{a 2242}# #{b 2243}#) |
| 6761 | (#{id? 344}# #{a 2242}#)) | |
| 6762 | #{tmp 2239}#) | |
| e2ccab57 AW |
6763 | #f) |
| 6764 | (@apply | |
| 1bbe0a63 AW |
6765 | (lambda (#{a 2246}# #{b 2247}#) |
| 6766 | (#{req 2230}# | |
| 6767 | #{b 2247}# | |
| 6768 | (cons #{a 2246}# #{rreq 2234}#))) | |
| 6769 | #{tmp 2239}#) | |
| 6770 | (let ((#{tmp 2248}# (list #{tmp 2237}#))) | |
| 6771 | (if (if #{tmp 2248}# | |
| e2ccab57 | 6772 | (@apply |
| 1bbe0a63 AW |
6773 | (lambda (#{r 2250}#) |
| 6774 | (#{id? 344}# #{r 2250}#)) | |
| 6775 | #{tmp 2248}#) | |
| e2ccab57 AW |
6776 | #f) |
| 6777 | (@apply | |
| 1bbe0a63 AW |
6778 | (lambda (#{r 2252}#) |
| 6779 | (#{check 2232}# | |
| 6780 | (reverse #{rreq 2234}#) | |
| 6781 | #{r 2252}#)) | |
| 6782 | #{tmp 2248}#) | |
| 6783 | (let ((#{else 2254}# #{tmp 2237}#)) | |
| e2ccab57 AW |
6784 | (syntax-violation |
| 6785 | 'lambda | |
| 6786 | "invalid argument list" | |
| 1bbe0a63 AW |
6787 | #{orig-args 2227}# |
| 6788 | #{args 2233}#))))))))))) | |
| 6789 | (#{check 2232}# | |
| 6790 | (lambda (#{req 2255}# #{rest 2256}#) | |
| 6791 | (if (#{distinct-bound-ids? 414}# | |
| 6792 | (if #{rest 2256}# | |
| 6793 | (cons #{rest 2256}# #{req 2255}#) | |
| 6794 | #{req 2255}#)) | |
| 6795 | (values #{req 2255}# #f #{rest 2256}# #f) | |
| e2ccab57 AW |
6796 | (syntax-violation |
| 6797 | 'lambda | |
| 6798 | "duplicate identifier in argument list" | |
| 1bbe0a63 AW |
6799 | #{orig-args 2227}#))))) |
| 6800 | (begin (#{req 2230}# #{orig-args 2227}# '()))))) | |
| 6801 | (#{chi-simple-lambda 452}# | |
| 6802 | (lambda (#{e 2262}# | |
| 6803 | #{r 2263}# | |
| 6804 | #{w 2264}# | |
| 6805 | #{s 2265}# | |
| 6806 | #{mod 2266}# | |
| 6807 | #{req 2267}# | |
| 6808 | #{rest 2268}# | |
| 6809 | #{meta 2269}# | |
| 6810 | #{body 2270}#) | |
| e2ccab57 | 6811 | (begin |
| 1bbe0a63 AW |
6812 | (let ((#{ids 2282}# |
| 6813 | (if #{rest 2268}# | |
| 6814 | (append #{req 2267}# (list #{rest 2268}#)) | |
| 6815 | #{req 2267}#))) | |
| e2ccab57 | 6816 | (begin |
| 1bbe0a63 AW |
6817 | (let ((#{vars 2284}# |
| 6818 | (map #{gen-var 460}# #{ids 2282}#))) | |
| e2ccab57 | 6819 | (begin |
| 1bbe0a63 AW |
6820 | (let ((#{labels 2286}# |
| 6821 | (#{gen-labels 364}# #{ids 2282}#))) | |
| 6822 | (#{build-simple-lambda 284}# | |
| 6823 | #{s 2265}# | |
| 6824 | (map syntax->datum #{req 2267}#) | |
| 6825 | (if #{rest 2268}# | |
| 6826 | (syntax->datum #{rest 2268}#) | |
| e2ccab57 | 6827 | #f) |
| 1bbe0a63 AW |
6828 | #{vars 2284}# |
| 6829 | #{meta 2269}# | |
| 6830 | (#{chi-body 440}# | |
| 6831 | #{body 2270}# | |
| 6832 | (#{source-wrap 420}# | |
| 6833 | #{e 2262}# | |
| 6834 | #{w 2264}# | |
| 6835 | #{s 2265}# | |
| 6836 | #{mod 2266}#) | |
| 6837 | (#{extend-var-env 334}# | |
| 6838 | #{labels 2286}# | |
| 6839 | #{vars 2284}# | |
| 6840 | #{r 2263}#) | |
| 6841 | (#{make-binding-wrap 396}# | |
| 6842 | #{ids 2282}# | |
| 6843 | #{labels 2286}# | |
| 6844 | #{w 2264}#) | |
| 6845 | #{mod 2266}#)))))))))) | |
| 6846 | (#{lambda*-formals 454}# | |
| 6847 | (lambda (#{orig-args 2289}#) | |
| e2ccab57 | 6848 | (letrec* |
| 1bbe0a63 AW |
6849 | ((#{req 2292}# |
| 6850 | (lambda (#{args 2301}# #{rreq 2302}#) | |
| 6851 | (let ((#{tmp 2305}# #{args 2301}#)) | |
| 6852 | (let ((#{tmp 2306}# ($sc-dispatch #{tmp 2305}# '()))) | |
| 6853 | (if #{tmp 2306}# | |
| e2ccab57 AW |
6854 | (@apply |
| 6855 | (lambda () | |
| 1bbe0a63 AW |
6856 | (#{check 2300}# |
| 6857 | (reverse #{rreq 2302}#) | |
| e2ccab57 AW |
6858 | '() |
| 6859 | #f | |
| 6860 | '())) | |
| 1bbe0a63 AW |
6861 | #{tmp 2306}#) |
| 6862 | (let ((#{tmp 2307}# | |
| 6863 | ($sc-dispatch #{tmp 2305}# '(any . any)))) | |
| 6864 | (if (if #{tmp 2307}# | |
| e2ccab57 | 6865 | (@apply |
| 1bbe0a63 AW |
6866 | (lambda (#{a 2310}# #{b 2311}#) |
| 6867 | (#{id? 344}# #{a 2310}#)) | |
| 6868 | #{tmp 2307}#) | |
| e2ccab57 AW |
6869 | #f) |
| 6870 | (@apply | |
| 1bbe0a63 AW |
6871 | (lambda (#{a 2314}# #{b 2315}#) |
| 6872 | (#{req 2292}# | |
| 6873 | #{b 2315}# | |
| 6874 | (cons #{a 2314}# #{rreq 2302}#))) | |
| 6875 | #{tmp 2307}#) | |
| 6876 | (let ((#{tmp 2316}# | |
| 6877 | ($sc-dispatch #{tmp 2305}# '(any . any)))) | |
| 6878 | (if (if #{tmp 2316}# | |
| e2ccab57 | 6879 | (@apply |
| 1bbe0a63 AW |
6880 | (lambda (#{a 2319}# #{b 2320}#) |
| 6881 | (eq? (syntax->datum #{a 2319}#) | |
| e2ccab57 | 6882 | #:optional)) |
| 1bbe0a63 | 6883 | #{tmp 2316}#) |
| e2ccab57 AW |
6884 | #f) |
| 6885 | (@apply | |
| 1bbe0a63 AW |
6886 | (lambda (#{a 2323}# #{b 2324}#) |
| 6887 | (#{opt 2294}# | |
| 6888 | #{b 2324}# | |
| 6889 | (reverse #{rreq 2302}#) | |
| e2ccab57 | 6890 | '())) |
| 1bbe0a63 AW |
6891 | #{tmp 2316}#) |
| 6892 | (let ((#{tmp 2325}# | |
| 6893 | ($sc-dispatch #{tmp 2305}# '(any . any)))) | |
| 6894 | (if (if #{tmp 2325}# | |
| e2ccab57 | 6895 | (@apply |
| 1bbe0a63 AW |
6896 | (lambda (#{a 2328}# #{b 2329}#) |
| 6897 | (eq? (syntax->datum #{a 2328}#) #:key)) | |
| 6898 | #{tmp 2325}#) | |
| e2ccab57 AW |
6899 | #f) |
| 6900 | (@apply | |
| 1bbe0a63 AW |
6901 | (lambda (#{a 2332}# #{b 2333}#) |
| 6902 | (#{key 2296}# | |
| 6903 | #{b 2333}# | |
| 6904 | (reverse #{rreq 2302}#) | |
| e2ccab57 AW |
6905 | '() |
| 6906 | '())) | |
| 1bbe0a63 AW |
6907 | #{tmp 2325}#) |
| 6908 | (let ((#{tmp 2334}# | |
| e2ccab57 | 6909 | ($sc-dispatch |
| 1bbe0a63 | 6910 | #{tmp 2305}# |
| e2ccab57 | 6911 | '(any any)))) |
| 1bbe0a63 | 6912 | (if (if #{tmp 2334}# |
| e2ccab57 | 6913 | (@apply |
| 1bbe0a63 AW |
6914 | (lambda (#{a 2337}# #{b 2338}#) |
| 6915 | (eq? (syntax->datum #{a 2337}#) | |
| e2ccab57 | 6916 | #:rest)) |
| 1bbe0a63 | 6917 | #{tmp 2334}#) |
| e2ccab57 AW |
6918 | #f) |
| 6919 | (@apply | |
| 1bbe0a63 AW |
6920 | (lambda (#{a 2341}# #{b 2342}#) |
| 6921 | (#{rest 2298}# | |
| 6922 | #{b 2342}# | |
| 6923 | (reverse #{rreq 2302}#) | |
| e2ccab57 AW |
6924 | '() |
| 6925 | '())) | |
| 1bbe0a63 AW |
6926 | #{tmp 2334}#) |
| 6927 | (let ((#{tmp 2343}# (list #{tmp 2305}#))) | |
| 6928 | (if (if #{tmp 2343}# | |
| e2ccab57 | 6929 | (@apply |
| 1bbe0a63 AW |
6930 | (lambda (#{r 2345}#) |
| 6931 | (#{id? 344}# #{r 2345}#)) | |
| 6932 | #{tmp 2343}#) | |
| e2ccab57 AW |
6933 | #f) |
| 6934 | (@apply | |
| 1bbe0a63 AW |
6935 | (lambda (#{r 2347}#) |
| 6936 | (#{rest 2298}# | |
| 6937 | #{r 2347}# | |
| 6938 | (reverse #{rreq 2302}#) | |
| e2ccab57 AW |
6939 | '() |
| 6940 | '())) | |
| 1bbe0a63 AW |
6941 | #{tmp 2343}#) |
| 6942 | (let ((#{else 2349}# #{tmp 2305}#)) | |
| e2ccab57 AW |
6943 | (syntax-violation |
| 6944 | 'lambda* | |
| 6945 | "invalid argument list" | |
| 1bbe0a63 AW |
6946 | #{orig-args 2289}# |
| 6947 | #{args 2301}#))))))))))))))))) | |
| 6948 | (#{opt 2294}# | |
| 6949 | (lambda (#{args 2350}# #{req 2351}# #{ropt 2352}#) | |
| 6950 | (let ((#{tmp 2356}# #{args 2350}#)) | |
| 6951 | (let ((#{tmp 2357}# ($sc-dispatch #{tmp 2356}# '()))) | |
| 6952 | (if #{tmp 2357}# | |
| e2ccab57 AW |
6953 | (@apply |
| 6954 | (lambda () | |
| 1bbe0a63 AW |
6955 | (#{check 2300}# |
| 6956 | #{req 2351}# | |
| 6957 | (reverse #{ropt 2352}#) | |
| e2ccab57 AW |
6958 | #f |
| 6959 | '())) | |
| 1bbe0a63 AW |
6960 | #{tmp 2357}#) |
| 6961 | (let ((#{tmp 2358}# | |
| 6962 | ($sc-dispatch #{tmp 2356}# '(any . any)))) | |
| 6963 | (if (if #{tmp 2358}# | |
| e2ccab57 | 6964 | (@apply |
| 1bbe0a63 AW |
6965 | (lambda (#{a 2361}# #{b 2362}#) |
| 6966 | (#{id? 344}# #{a 2361}#)) | |
| 6967 | #{tmp 2358}#) | |
| e2ccab57 AW |
6968 | #f) |
| 6969 | (@apply | |
| 1bbe0a63 AW |
6970 | (lambda (#{a 2365}# #{b 2366}#) |
| 6971 | (#{opt 2294}# | |
| 6972 | #{b 2366}# | |
| 6973 | #{req 2351}# | |
| 6974 | (cons (cons #{a 2365}# | |
| e2ccab57 AW |
6975 | '(#(syntax-object |
| 6976 | #f | |
| 6977 | ((top) | |
| 6978 | #(ribcage | |
| 6979 | #(a b) | |
| 6980 | #((top) (top)) | |
| 1bbe0a63 | 6981 | #("i2363" "i2364")) |
| e2ccab57 AW |
6982 | #(ribcage () () ()) |
| 6983 | #(ribcage | |
| 6984 | #(args req ropt) | |
| 6985 | #((top) (top) (top)) | |
| 1bbe0a63 | 6986 | #("i2353" "i2354" "i2355")) |
| e2ccab57 AW |
6987 | #(ribcage |
| 6988 | (check rest key opt req) | |
| 6989 | ((top) | |
| 6990 | (top) | |
| 6991 | (top) | |
| 6992 | (top) | |
| 6993 | (top)) | |
| 1bbe0a63 AW |
6994 | ("i2299" |
| 6995 | "i2297" | |
| 6996 | "i2295" | |
| 6997 | "i2293" | |
| 6998 | "i2291")) | |
| e2ccab57 AW |
6999 | #(ribcage |
| 7000 | #(orig-args) | |
| 7001 | #((top)) | |
| 1bbe0a63 | 7002 | #("i2290")) |
| e2ccab57 AW |
7003 | #(ribcage |
| 7004 | (lambda-var-list | |
| 7005 | gen-var | |
| 7006 | strip | |
| 7007 | chi-lambda-case | |
| 7008 | lambda*-formals | |
| 7009 | chi-simple-lambda | |
| 7010 | lambda-formals | |
| 7011 | ellipsis? | |
| 7012 | chi-void | |
| 7013 | eval-local-transformer | |
| 7014 | chi-local-syntax | |
| 7015 | chi-body | |
| 7016 | chi-macro | |
| 7017 | chi-application | |
| 7018 | chi-expr | |
| 7019 | chi | |
| 7020 | syntax-type | |
| 7021 | chi-when-list | |
| 7022 | chi-install-global | |
| 7023 | chi-top-sequence | |
| 7024 | chi-sequence | |
| 7025 | source-wrap | |
| 7026 | wrap | |
| 7027 | bound-id-member? | |
| 7028 | distinct-bound-ids? | |
| 7029 | valid-bound-ids? | |
| 7030 | bound-id=? | |
| 7031 | free-id=? | |
| 7032 | id-var-name | |
| 7033 | same-marks? | |
| 7034 | join-marks | |
| 7035 | join-wraps | |
| 7036 | smart-append | |
| 7037 | make-binding-wrap | |
| 7038 | extend-ribcage! | |
| 7039 | make-empty-ribcage | |
| 7040 | new-mark | |
| 7041 | anti-mark | |
| 7042 | the-anti-mark | |
| 7043 | top-marked? | |
| 7044 | top-wrap | |
| 7045 | empty-wrap | |
| 7046 | set-ribcage-labels! | |
| 7047 | set-ribcage-marks! | |
| 7048 | set-ribcage-symnames! | |
| 7049 | ribcage-labels | |
| 7050 | ribcage-marks | |
| 7051 | ribcage-symnames | |
| 7052 | ribcage? | |
| 7053 | make-ribcage | |
| 7054 | gen-labels | |
| 7055 | gen-label | |
| 7056 | make-rename | |
| 7057 | rename-marks | |
| 7058 | rename-new | |
| 7059 | rename-old | |
| 7060 | subst-rename? | |
| 7061 | wrap-subst | |
| 7062 | wrap-marks | |
| 7063 | make-wrap | |
| 7064 | id-sym-name&marks | |
| 7065 | id-sym-name | |
| 7066 | id? | |
| 7067 | nonsymbol-id? | |
| 7068 | global-extend | |
| 7069 | lookup | |
| 7070 | macros-only-env | |
| 7071 | extend-var-env | |
| 7072 | extend-env | |
| 7073 | null-env | |
| 7074 | binding-value | |
| 7075 | binding-type | |
| 7076 | make-binding | |
| 7077 | arg-check | |
| 7078 | source-annotation | |
| 7079 | no-source | |
| 7080 | set-syntax-object-module! | |
| 7081 | set-syntax-object-wrap! | |
| 7082 | set-syntax-object-expression! | |
| 7083 | syntax-object-module | |
| 7084 | syntax-object-wrap | |
| 7085 | syntax-object-expression | |
| 7086 | syntax-object? | |
| 7087 | make-syntax-object | |
| 7088 | build-lexical-var | |
| 7089 | build-letrec | |
| 7090 | build-named-let | |
| 7091 | build-let | |
| 7092 | build-sequence | |
| 7093 | build-data | |
| 7094 | build-primref | |
| 7095 | build-lambda-case | |
| 7096 | build-case-lambda | |
| 7097 | build-simple-lambda | |
| 7098 | build-global-definition | |
| 7099 | build-global-assignment | |
| 7100 | build-global-reference | |
| 7101 | analyze-variable | |
| 7102 | build-lexical-assignment | |
| 7103 | build-lexical-reference | |
| 7104 | build-dynlet | |
| 7105 | build-conditional | |
| 7106 | build-application | |
| 7107 | build-void | |
| 7108 | maybe-name-value! | |
| 7109 | decorate-source | |
| 7110 | get-global-definition-hook | |
| 7111 | put-global-definition-hook | |
| 7112 | gensym-hook | |
| 7113 | local-eval-hook | |
| 7114 | top-level-eval-hook | |
| 7115 | fx< | |
| 7116 | fx= | |
| 7117 | fx- | |
| 7118 | fx+ | |
| 7119 | set-lambda-meta! | |
| 7120 | lambda-meta | |
| 7121 | lambda? | |
| 7122 | make-dynlet | |
| 7123 | make-letrec | |
| 7124 | make-let | |
| 7125 | make-lambda-case | |
| 7126 | make-lambda | |
| 7127 | make-sequence | |
| 7128 | make-application | |
| 7129 | make-conditional | |
| 7130 | make-toplevel-define | |
| 7131 | make-toplevel-set | |
| 7132 | make-toplevel-ref | |
| 7133 | make-module-set | |
| 7134 | make-module-ref | |
| 7135 | make-lexical-set | |
| 7136 | make-lexical-ref | |
| 7137 | make-primitive-ref | |
| 7138 | make-const | |
| 7139 | make-void) | |
| 7140 | ((top) | |
| 7141 | (top) | |
| 7142 | (top) | |
| 7143 | (top) | |
| 7144 | (top) | |
| 7145 | (top) | |
| 7146 | (top) | |
| 7147 | (top) | |
| 7148 | (top) | |
| 7149 | (top) | |
| 7150 | (top) | |
| 7151 | (top) | |
| 7152 | (top) | |
| 7153 | (top) | |
| 7154 | (top) | |
| 7155 | (top) | |
| 7156 | (top) | |
| 7157 | (top) | |
| 7158 | (top) | |
| 7159 | (top) | |
| 7160 | (top) | |
| 7161 | (top) | |
| 7162 | (top) | |
| 7163 | (top) | |
| 7164 | (top) | |
| 7165 | (top) | |
| 7166 | (top) | |
| 7167 | (top) | |
| 7168 | (top) | |
| 7169 | (top) | |
| 7170 | (top) | |
| 7171 | (top) | |
| 7172 | (top) | |
| 7173 | (top) | |
| 7174 | (top) | |
| 7175 | (top) | |
| 7176 | (top) | |
| 7177 | (top) | |
| 7178 | (top) | |
| 7179 | (top) | |
| 7180 | (top) | |
| 7181 | (top) | |
| 7182 | (top) | |
| 7183 | (top) | |
| 7184 | (top) | |
| 7185 | (top) | |
| 7186 | (top) | |
| 7187 | (top) | |
| 7188 | (top) | |
| 7189 | (top) | |
| 7190 | (top) | |
| 7191 | (top) | |
| 7192 | (top) | |
| 7193 | (top) | |
| 7194 | (top) | |
| 7195 | (top) | |
| 7196 | (top) | |
| 7197 | (top) | |
| 7198 | (top) | |
| 7199 | (top) | |
| 7200 | (top) | |
| 7201 | (top) | |
| 7202 | (top) | |
| 7203 | (top) | |
| 7204 | (top) | |
| 7205 | (top) | |
| 7206 | (top) | |
| 7207 | (top) | |
| 7208 | (top) | |
| 7209 | (top) | |
| 7210 | (top) | |
| 7211 | (top) | |
| 7212 | (top) | |
| 7213 | (top) | |
| 7214 | (top) | |
| 7215 | (top) | |
| 7216 | (top) | |
| 7217 | (top) | |
| 7218 | (top) | |
| 7219 | (top) | |
| 7220 | (top) | |
| 7221 | (top) | |
| 7222 | (top) | |
| 7223 | (top) | |
| 7224 | (top) | |
| 7225 | (top) | |
| 7226 | (top) | |
| 7227 | (top) | |
| 7228 | (top) | |
| 7229 | (top) | |
| 7230 | (top) | |
| 7231 | (top) | |
| 7232 | (top) | |
| 7233 | (top) | |
| 7234 | (top) | |
| 7235 | (top) | |
| 7236 | (top) | |
| 7237 | (top) | |
| 7238 | (top) | |
| 7239 | (top) | |
| 7240 | (top) | |
| 7241 | (top) | |
| 7242 | (top) | |
| 7243 | (top) | |
| 7244 | (top) | |
| 7245 | (top) | |
| 7246 | (top) | |
| 7247 | (top) | |
| 7248 | (top) | |
| 7249 | (top) | |
| 7250 | (top) | |
| 7251 | (top) | |
| 7252 | (top) | |
| 7253 | (top) | |
| 7254 | (top) | |
| 7255 | (top) | |
| 7256 | (top) | |
| 7257 | (top) | |
| 7258 | (top) | |
| 7259 | (top) | |
| 7260 | (top) | |
| 7261 | (top) | |
| 7262 | (top) | |
| 7263 | (top) | |
| 7264 | (top) | |
| 7265 | (top) | |
| 7266 | (top) | |
| 7267 | (top) | |
| 7268 | (top) | |
| 7269 | (top) | |
| 7270 | (top) | |
| 7271 | (top) | |
| 7272 | (top) | |
| 7273 | (top) | |
| 7274 | (top) | |
| 7275 | (top)) | |
| 1bbe0a63 AW |
7276 | ("i461" |
| 7277 | "i459" | |
| 7278 | "i457" | |
| 7279 | "i455" | |
| 7280 | "i453" | |
| 7281 | "i451" | |
| 7282 | "i449" | |
| 7283 | "i447" | |
| 7284 | "i445" | |
| 7285 | "i443" | |
| 7286 | "i441" | |
| 7287 | "i439" | |
| 7288 | "i437" | |
| 7289 | "i435" | |
| 7290 | "i433" | |
| 7291 | "i431" | |
| 7292 | "i429" | |
| 7293 | "i427" | |
| 7294 | "i425" | |
| 7295 | "i423" | |
| 7296 | "i421" | |
| 7297 | "i419" | |
| 7298 | "i417" | |
| 7299 | "i415" | |
| 7300 | "i413" | |
| 7301 | "i411" | |
| 7302 | "i409" | |
| 7303 | "i407" | |
| 7304 | "i405" | |
| 7305 | "i403" | |
| 7306 | "i401" | |
| 7307 | "i399" | |
| 7308 | "i397" | |
| 7309 | "i395" | |
| 7310 | "i393" | |
| e2ccab57 AW |
7311 | "i392" |
| 7312 | "i390" | |
| 1bbe0a63 | 7313 | "i387" |
| e2ccab57 | 7314 | "i386" |
| 1bbe0a63 AW |
7315 | "i385" |
| 7316 | "i383" | |
| e2ccab57 AW |
7317 | "i382" |
| 7318 | "i380" | |
| e2ccab57 AW |
7319 | "i378" |
| 7320 | "i376" | |
| e2ccab57 | 7321 | "i374" |
| e2ccab57 AW |
7322 | "i372" |
| 7323 | "i370" | |
| 7324 | "i368" | |
| 7325 | "i366" | |
| 1bbe0a63 AW |
7326 | "i363" |
| 7327 | "i361" | |
| e2ccab57 AW |
7328 | "i360" |
| 7329 | "i358" | |
| 7330 | "i356" | |
| 1bbe0a63 AW |
7331 | "i354" |
| 7332 | "i352" | |
| e2ccab57 AW |
7333 | "i351" |
| 7334 | "i350" | |
| 7335 | "i349" | |
| e2ccab57 AW |
7336 | "i347" |
| 7337 | "i346" | |
| e2ccab57 AW |
7338 | "i343" |
| 7339 | "i341" | |
| 1bbe0a63 AW |
7340 | "i339" |
| 7341 | "i337" | |
| 7342 | "i335" | |
| 7343 | "i333" | |
| 7344 | "i331" | |
| e2ccab57 | 7345 | "i330" |
| 1bbe0a63 AW |
7346 | "i329" |
| 7347 | "i327" | |
| e2ccab57 AW |
7348 | "i325" |
| 7349 | "i324" | |
| e2ccab57 | 7350 | "i321" |
| 1bbe0a63 | 7351 | "i320" |
| e2ccab57 AW |
7352 | "i318" |
| 7353 | "i316" | |
| 7354 | "i314" | |
| 7355 | "i312" | |
| 7356 | "i310" | |
| 7357 | "i308" | |
| 7358 | "i306" | |
| 7359 | "i304" | |
| 7360 | "i302" | |
| 1bbe0a63 AW |
7361 | "i299" |
| 7362 | "i297" | |
| 7363 | "i295" | |
| 7364 | "i293" | |
| 7365 | "i291" | |
| 7366 | "i289" | |
| 7367 | "i287" | |
| 7368 | "i285" | |
| 7369 | "i283" | |
| 7370 | "i281" | |
| 7371 | "i279" | |
| 7372 | "i277" | |
| 7373 | "i275" | |
| 7374 | "i273" | |
| 7375 | "i271" | |
| 7376 | "i269" | |
| 7377 | "i267" | |
| 7378 | "i265" | |
| 7379 | "i263" | |
| 7380 | "i261" | |
| 7381 | "i259" | |
| 7382 | "i257" | |
| 7383 | "i255" | |
| e2ccab57 | 7384 | "i254" |
| e2ccab57 AW |
7385 | "i251" |
| 7386 | "i249" | |
| 7387 | "i248" | |
| 7388 | "i247" | |
| 7389 | "i246" | |
| 7390 | "i245" | |
| 7391 | "i243" | |
| 7392 | "i241" | |
| 7393 | "i239" | |
| 7394 | "i236" | |
| 7395 | "i234" | |
| 7396 | "i232" | |
| 7397 | "i230" | |
| 7398 | "i228" | |
| 7399 | "i226" | |
| 7400 | "i224" | |
| 7401 | "i222" | |
| 7402 | "i220" | |
| 7403 | "i218" | |
| 7404 | "i216" | |
| 7405 | "i214" | |
| 7406 | "i212" | |
| 7407 | "i210" | |
| 7408 | "i208" | |
| 7409 | "i206" | |
| 7410 | "i204" | |
| 7411 | "i202")) | |
| 7412 | #(ribcage | |
| 7413 | (define-structure | |
| 7414 | define-expansion-accessors | |
| 7415 | define-expansion-constructors) | |
| 7416 | ((top) (top) (top)) | |
| 7417 | ("i40" "i39" "i38"))) | |
| 7418 | (hygiene guile)))) | |
| 1bbe0a63 AW |
7419 | #{ropt 2352}#))) |
| 7420 | #{tmp 2358}#) | |
| 7421 | (let ((#{tmp 2367}# | |
| e2ccab57 | 7422 | ($sc-dispatch |
| 1bbe0a63 | 7423 | #{tmp 2356}# |
| e2ccab57 | 7424 | '((any any) . any)))) |
| 1bbe0a63 | 7425 | (if (if #{tmp 2367}# |
| e2ccab57 | 7426 | (@apply |
| 1bbe0a63 AW |
7427 | (lambda (#{a 2371}# #{init 2372}# #{b 2373}#) |
| 7428 | (#{id? 344}# #{a 2371}#)) | |
| 7429 | #{tmp 2367}#) | |
| e2ccab57 AW |
7430 | #f) |
| 7431 | (@apply | |
| 1bbe0a63 AW |
7432 | (lambda (#{a 2377}# #{init 2378}# #{b 2379}#) |
| 7433 | (#{opt 2294}# | |
| 7434 | #{b 2379}# | |
| 7435 | #{req 2351}# | |
| 7436 | (cons (list #{a 2377}# #{init 2378}#) | |
| 7437 | #{ropt 2352}#))) | |
| 7438 | #{tmp 2367}#) | |
| 7439 | (let ((#{tmp 2380}# | |
| 7440 | ($sc-dispatch #{tmp 2356}# '(any . any)))) | |
| 7441 | (if (if #{tmp 2380}# | |
| e2ccab57 | 7442 | (@apply |
| 1bbe0a63 AW |
7443 | (lambda (#{a 2383}# #{b 2384}#) |
| 7444 | (eq? (syntax->datum #{a 2383}#) #:key)) | |
| 7445 | #{tmp 2380}#) | |
| e2ccab57 AW |
7446 | #f) |
| 7447 | (@apply | |
| 1bbe0a63 AW |
7448 | (lambda (#{a 2387}# #{b 2388}#) |
| 7449 | (#{key 2296}# | |
| 7450 | #{b 2388}# | |
| 7451 | #{req 2351}# | |
| 7452 | (reverse #{ropt 2352}#) | |
| e2ccab57 | 7453 | '())) |
| 1bbe0a63 AW |
7454 | #{tmp 2380}#) |
| 7455 | (let ((#{tmp 2389}# | |
| e2ccab57 | 7456 | ($sc-dispatch |
| 1bbe0a63 | 7457 | #{tmp 2356}# |
| e2ccab57 | 7458 | '(any any)))) |
| 1bbe0a63 | 7459 | (if (if #{tmp 2389}# |
| e2ccab57 | 7460 | (@apply |
| 1bbe0a63 AW |
7461 | (lambda (#{a 2392}# #{b 2393}#) |
| 7462 | (eq? (syntax->datum #{a 2392}#) | |
| e2ccab57 | 7463 | #:rest)) |
| 1bbe0a63 | 7464 | #{tmp 2389}#) |
| e2ccab57 AW |
7465 | #f) |
| 7466 | (@apply | |
| 1bbe0a63 AW |
7467 | (lambda (#{a 2396}# #{b 2397}#) |
| 7468 | (#{rest 2298}# | |
| 7469 | #{b 2397}# | |
| 7470 | #{req 2351}# | |
| 7471 | (reverse #{ropt 2352}#) | |
| e2ccab57 | 7472 | '())) |
| 1bbe0a63 AW |
7473 | #{tmp 2389}#) |
| 7474 | (let ((#{tmp 2398}# (list #{tmp 2356}#))) | |
| 7475 | (if (if #{tmp 2398}# | |
| e2ccab57 | 7476 | (@apply |
| 1bbe0a63 AW |
7477 | (lambda (#{r 2400}#) |
| 7478 | (#{id? 344}# #{r 2400}#)) | |
| 7479 | #{tmp 2398}#) | |
| e2ccab57 AW |
7480 | #f) |
| 7481 | (@apply | |
| 1bbe0a63 AW |
7482 | (lambda (#{r 2402}#) |
| 7483 | (#{rest 2298}# | |
| 7484 | #{r 2402}# | |
| 7485 | #{req 2351}# | |
| 7486 | (reverse #{ropt 2352}#) | |
| e2ccab57 | 7487 | '())) |
| 1bbe0a63 AW |
7488 | #{tmp 2398}#) |
| 7489 | (let ((#{else 2404}# #{tmp 2356}#)) | |
| e2ccab57 AW |
7490 | (syntax-violation |
| 7491 | 'lambda* | |
| 7492 | "invalid optional argument list" | |
| 1bbe0a63 AW |
7493 | #{orig-args 2289}# |
| 7494 | #{args 2350}#))))))))))))))))) | |
| 7495 | (#{key 2296}# | |
| 7496 | (lambda (#{args 2405}# | |
| 7497 | #{req 2406}# | |
| 7498 | #{opt 2407}# | |
| 7499 | #{rkey 2408}#) | |
| 7500 | (let ((#{tmp 2413}# #{args 2405}#)) | |
| 7501 | (let ((#{tmp 2414}# ($sc-dispatch #{tmp 2413}# '()))) | |
| 7502 | (if #{tmp 2414}# | |
| e2ccab57 AW |
7503 | (@apply |
| 7504 | (lambda () | |
| 1bbe0a63 AW |
7505 | (#{check 2300}# |
| 7506 | #{req 2406}# | |
| 7507 | #{opt 2407}# | |
| e2ccab57 | 7508 | #f |
| 1bbe0a63 AW |
7509 | (cons #f (reverse #{rkey 2408}#)))) |
| 7510 | #{tmp 2414}#) | |
| 7511 | (let ((#{tmp 2415}# | |
| 7512 | ($sc-dispatch #{tmp 2413}# '(any . any)))) | |
| 7513 | (if (if #{tmp 2415}# | |
| e2ccab57 | 7514 | (@apply |
| 1bbe0a63 AW |
7515 | (lambda (#{a 2418}# #{b 2419}#) |
| 7516 | (#{id? 344}# #{a 2418}#)) | |
| 7517 | #{tmp 2415}#) | |
| e2ccab57 AW |
7518 | #f) |
| 7519 | (@apply | |
| 1bbe0a63 AW |
7520 | (lambda (#{a 2422}# #{b 2423}#) |
| 7521 | (let ((#{tmp 2425}# | |
| e2ccab57 | 7522 | (symbol->keyword |
| 1bbe0a63 AW |
7523 | (syntax->datum #{a 2422}#)))) |
| 7524 | (let ((#{k 2427}# #{tmp 2425}#)) | |
| 7525 | (#{key 2296}# | |
| 7526 | #{b 2423}# | |
| 7527 | #{req 2406}# | |
| 7528 | #{opt 2407}# | |
| 7529 | (cons (cons #{k 2427}# | |
| 7530 | (cons #{a 2422}# | |
| e2ccab57 AW |
7531 | '(#(syntax-object |
| 7532 | #f | |
| 7533 | ((top) | |
| 7534 | #(ribcage () () ()) | |
| 7535 | #(ribcage | |
| 7536 | #(k) | |
| 7537 | #((top)) | |
| 1bbe0a63 | 7538 | #("i2426")) |
| e2ccab57 AW |
7539 | #(ribcage |
| 7540 | #(a b) | |
| 7541 | #((top) (top)) | |
| 1bbe0a63 | 7542 | #("i2420" "i2421")) |
| e2ccab57 AW |
7543 | #(ribcage () () ()) |
| 7544 | #(ribcage | |
| 7545 | #(args req opt rkey) | |
| 7546 | #((top) | |
| 7547 | (top) | |
| 7548 | (top) | |
| 7549 | (top)) | |
| 1bbe0a63 AW |
7550 | #("i2409" |
| 7551 | "i2410" | |
| 7552 | "i2411" | |
| 7553 | "i2412")) | |
| e2ccab57 AW |
7554 | #(ribcage |
| 7555 | (check rest | |
| 7556 | key | |
| 7557 | opt | |
| 7558 | req) | |
| 7559 | ((top) | |
| 7560 | (top) | |
| 7561 | (top) | |
| 7562 | (top) | |
| 7563 | (top)) | |
| 1bbe0a63 AW |
7564 | ("i2299" |
| 7565 | "i2297" | |
| 7566 | "i2295" | |
| 7567 | "i2293" | |
| 7568 | "i2291")) | |
| e2ccab57 AW |
7569 | #(ribcage |
| 7570 | #(orig-args) | |
| 7571 | #((top)) | |
| 1bbe0a63 | 7572 | #("i2290")) |
| e2ccab57 AW |
7573 | #(ribcage |
| 7574 | (lambda-var-list | |
| 7575 | gen-var | |
| 7576 | strip | |
| 7577 | chi-lambda-case | |
| 7578 | lambda*-formals | |
| 7579 | chi-simple-lambda | |
| 7580 | lambda-formals | |
| 7581 | ellipsis? | |
| 7582 | chi-void | |
| 7583 | eval-local-transformer | |
| 7584 | chi-local-syntax | |
| 7585 | chi-body | |
| 7586 | chi-macro | |
| 7587 | chi-application | |
| 7588 | chi-expr | |
| 7589 | chi | |
| 7590 | syntax-type | |
| 7591 | chi-when-list | |
| 7592 | chi-install-global | |
| 7593 | chi-top-sequence | |
| 7594 | chi-sequence | |
| 7595 | source-wrap | |
| 7596 | wrap | |
| 7597 | bound-id-member? | |
| 7598 | distinct-bound-ids? | |
| 7599 | valid-bound-ids? | |
| 7600 | bound-id=? | |
| 7601 | free-id=? | |
| 7602 | id-var-name | |
| 7603 | same-marks? | |
| 7604 | join-marks | |
| 7605 | join-wraps | |
| 7606 | smart-append | |
| 7607 | make-binding-wrap | |
| 7608 | extend-ribcage! | |
| 7609 | make-empty-ribcage | |
| 7610 | new-mark | |
| 7611 | anti-mark | |
| 7612 | the-anti-mark | |
| 7613 | top-marked? | |
| 7614 | top-wrap | |
| 7615 | empty-wrap | |
| 7616 | set-ribcage-labels! | |
| 7617 | set-ribcage-marks! | |
| 7618 | set-ribcage-symnames! | |
| 7619 | ribcage-labels | |
| 7620 | ribcage-marks | |
| 7621 | ribcage-symnames | |
| 7622 | ribcage? | |
| 7623 | make-ribcage | |
| 7624 | gen-labels | |
| 7625 | gen-label | |
| 7626 | make-rename | |
| 7627 | rename-marks | |
| 7628 | rename-new | |
| 7629 | rename-old | |
| 7630 | subst-rename? | |
| 7631 | wrap-subst | |
| 7632 | wrap-marks | |
| 7633 | make-wrap | |
| 7634 | id-sym-name&marks | |
| 7635 | id-sym-name | |
| 7636 | id? | |
| 7637 | nonsymbol-id? | |
| 7638 | global-extend | |
| 7639 | lookup | |
| 7640 | macros-only-env | |
| 7641 | extend-var-env | |
| 7642 | extend-env | |
| 7643 | null-env | |
| 7644 | binding-value | |
| 7645 | binding-type | |
| 7646 | make-binding | |
| 7647 | arg-check | |
| 7648 | source-annotation | |
| 7649 | no-source | |
| 7650 | set-syntax-object-module! | |
| 7651 | set-syntax-object-wrap! | |
| 7652 | set-syntax-object-expression! | |
| 7653 | syntax-object-module | |
| 7654 | syntax-object-wrap | |
| 7655 | syntax-object-expression | |
| 7656 | syntax-object? | |
| 7657 | make-syntax-object | |
| 7658 | build-lexical-var | |
| 7659 | build-letrec | |
| 7660 | build-named-let | |
| 7661 | build-let | |
| 7662 | build-sequence | |
| 7663 | build-data | |
| 7664 | build-primref | |
| 7665 | build-lambda-case | |
| 7666 | build-case-lambda | |
| 7667 | build-simple-lambda | |
| 7668 | build-global-definition | |
| 7669 | build-global-assignment | |
| 7670 | build-global-reference | |
| 7671 | analyze-variable | |
| 7672 | build-lexical-assignment | |
| 7673 | build-lexical-reference | |
| 7674 | build-dynlet | |
| 7675 | build-conditional | |
| 7676 | build-application | |
| 7677 | build-void | |
| 7678 | maybe-name-value! | |
| 7679 | decorate-source | |
| 7680 | get-global-definition-hook | |
| 7681 | put-global-definition-hook | |
| 7682 | gensym-hook | |
| 7683 | local-eval-hook | |
| 7684 | top-level-eval-hook | |
| 7685 | fx< | |
| 7686 | fx= | |
| 7687 | fx- | |
| 7688 | fx+ | |
| 7689 | set-lambda-meta! | |
| 7690 | lambda-meta | |
| 7691 | lambda? | |
| 7692 | make-dynlet | |
| 7693 | make-letrec | |
| 7694 | make-let | |
| 7695 | make-lambda-case | |
| 7696 | make-lambda | |
| 7697 | make-sequence | |
| 7698 | make-application | |
| 7699 | make-conditional | |
| 7700 | make-toplevel-define | |
| 7701 | make-toplevel-set | |
| 7702 | make-toplevel-ref | |
| 7703 | make-module-set | |
| 7704 | make-module-ref | |
| 7705 | make-lexical-set | |
| 7706 | make-lexical-ref | |
| 7707 | make-primitive-ref | |
| 7708 | make-const | |
| 7709 | make-void) | |
| 7710 | ((top) | |
| 7711 | (top) | |
| 7712 | (top) | |
| 7713 | (top) | |
| 7714 | (top) | |
| 7715 | (top) | |
| 7716 | (top) | |
| 7717 | (top) | |
| 7718 | (top) | |
| 7719 | (top) | |
| 7720 | (top) | |
| 7721 | (top) | |
| 7722 | (top) | |
| 7723 | (top) | |
| 7724 | (top) | |
| 7725 | (top) | |
| 7726 | (top) | |
| 7727 | (top) | |
| 7728 | (top) | |
| 7729 | (top) | |
| 7730 | (top) | |
| 7731 | (top) | |
| 7732 | (top) | |
| 7733 | (top) | |
| 7734 | (top) | |
| 7735 | (top) | |
| 7736 | (top) | |
| 7737 | (top) | |
| 7738 | (top) | |
| 7739 | (top) | |
| 7740 | (top) | |
| 7741 | (top) | |
| 7742 | (top) | |
| 7743 | (top) | |
| 7744 | (top) | |
| 7745 | (top) | |
| 7746 | (top) | |
| 7747 | (top) | |
| 7748 | (top) | |
| 7749 | (top) | |
| 7750 | (top) | |
| 7751 | (top) | |
| 7752 | (top) | |
| 7753 | (top) | |
| 7754 | (top) | |
| 7755 | (top) | |
| 7756 | (top) | |
| 7757 | (top) | |
| 7758 | (top) | |
| 7759 | (top) | |
| 7760 | (top) | |
| 7761 | (top) | |
| 7762 | (top) | |
| 7763 | (top) | |
| 7764 | (top) | |
| 7765 | (top) | |
| 7766 | (top) | |
| 7767 | (top) | |
| 7768 | (top) | |
| 7769 | (top) | |
| 7770 | (top) | |
| 7771 | (top) | |
| 7772 | (top) | |
| 7773 | (top) | |
| 7774 | (top) | |
| 7775 | (top) | |
| 7776 | (top) | |
| 7777 | (top) | |
| 7778 | (top) | |
| 7779 | (top) | |
| 7780 | (top) | |
| 7781 | (top) | |
| 7782 | (top) | |
| 7783 | (top) | |
| 7784 | (top) | |
| 7785 | (top) | |
| 7786 | (top) | |
| 7787 | (top) | |
| 7788 | (top) | |
| 7789 | (top) | |
| 7790 | (top) | |
| 7791 | (top) | |
| 7792 | (top) | |
| 7793 | (top) | |
| 7794 | (top) | |
| 7795 | (top) | |
| 7796 | (top) | |
| 7797 | (top) | |
| 7798 | (top) | |
| 7799 | (top) | |
| 7800 | (top) | |
| 7801 | (top) | |
| 7802 | (top) | |
| 7803 | (top) | |
| 7804 | (top) | |
| 7805 | (top) | |
| 7806 | (top) | |
| 7807 | (top) | |
| 7808 | (top) | |
| 7809 | (top) | |
| 7810 | (top) | |
| 7811 | (top) | |
| 7812 | (top) | |
| 7813 | (top) | |
| 7814 | (top) | |
| 7815 | (top) | |
| 7816 | (top) | |
| 7817 | (top) | |
| 7818 | (top) | |
| 7819 | (top) | |
| 7820 | (top) | |
| 7821 | (top) | |
| 7822 | (top) | |
| 7823 | (top) | |
| 7824 | (top) | |
| 7825 | (top) | |
| 7826 | (top) | |
| 7827 | (top) | |
| 7828 | (top) | |
| 7829 | (top) | |
| 7830 | (top) | |
| 7831 | (top) | |
| 7832 | (top) | |
| 7833 | (top) | |
| 7834 | (top) | |
| 7835 | (top) | |
| 7836 | (top) | |
| 7837 | (top) | |
| 7838 | (top) | |
| 7839 | (top) | |
| 7840 | (top) | |
| 7841 | (top) | |
| 7842 | (top) | |
| 7843 | (top) | |
| 7844 | (top) | |
| 7845 | (top)) | |
| 1bbe0a63 AW |
7846 | ("i461" |
| 7847 | "i459" | |
| 7848 | "i457" | |
| 7849 | "i455" | |
| 7850 | "i453" | |
| 7851 | "i451" | |
| 7852 | "i449" | |
| 7853 | "i447" | |
| 7854 | "i445" | |
| 7855 | "i443" | |
| 7856 | "i441" | |
| 7857 | "i439" | |
| 7858 | "i437" | |
| 7859 | "i435" | |
| 7860 | "i433" | |
| 7861 | "i431" | |
| 7862 | "i429" | |
| 7863 | "i427" | |
| 7864 | "i425" | |
| 7865 | "i423" | |
| 7866 | "i421" | |
| 7867 | "i419" | |
| 7868 | "i417" | |
| 7869 | "i415" | |
| 7870 | "i413" | |
| 7871 | "i411" | |
| 7872 | "i409" | |
| 7873 | "i407" | |
| 7874 | "i405" | |
| 7875 | "i403" | |
| 7876 | "i401" | |
| 7877 | "i399" | |
| 7878 | "i397" | |
| 7879 | "i395" | |
| 7880 | "i393" | |
| e2ccab57 AW |
7881 | "i392" |
| 7882 | "i390" | |
| 1bbe0a63 | 7883 | "i387" |
| e2ccab57 | 7884 | "i386" |
| 1bbe0a63 AW |
7885 | "i385" |
| 7886 | "i383" | |
| e2ccab57 AW |
7887 | "i382" |
| 7888 | "i380" | |
| e2ccab57 AW |
7889 | "i378" |
| 7890 | "i376" | |
| e2ccab57 | 7891 | "i374" |
| e2ccab57 AW |
7892 | "i372" |
| 7893 | "i370" | |
| 7894 | "i368" | |
| 7895 | "i366" | |
| 1bbe0a63 AW |
7896 | "i363" |
| 7897 | "i361" | |
| e2ccab57 AW |
7898 | "i360" |
| 7899 | "i358" | |
| 7900 | "i356" | |
| 1bbe0a63 AW |
7901 | "i354" |
| 7902 | "i352" | |
| e2ccab57 AW |
7903 | "i351" |
| 7904 | "i350" | |
| 7905 | "i349" | |
| e2ccab57 AW |
7906 | "i347" |
| 7907 | "i346" | |
| e2ccab57 AW |
7908 | "i343" |
| 7909 | "i341" | |
| 1bbe0a63 AW |
7910 | "i339" |
| 7911 | "i337" | |
| 7912 | "i335" | |
| 7913 | "i333" | |
| 7914 | "i331" | |
| e2ccab57 | 7915 | "i330" |
| 1bbe0a63 AW |
7916 | "i329" |
| 7917 | "i327" | |
| e2ccab57 AW |
7918 | "i325" |
| 7919 | "i324" | |
| e2ccab57 | 7920 | "i321" |
| 1bbe0a63 | 7921 | "i320" |
| e2ccab57 AW |
7922 | "i318" |
| 7923 | "i316" | |
| 7924 | "i314" | |
| 7925 | "i312" | |
| 7926 | "i310" | |
| 7927 | "i308" | |
| 7928 | "i306" | |
| 7929 | "i304" | |
| 7930 | "i302" | |
| 1bbe0a63 AW |
7931 | "i299" |
| 7932 | "i297" | |
| 7933 | "i295" | |
| 7934 | "i293" | |
| 7935 | "i291" | |
| 7936 | "i289" | |
| 7937 | "i287" | |
| 7938 | "i285" | |
| 7939 | "i283" | |
| 7940 | "i281" | |
| 7941 | "i279" | |
| 7942 | "i277" | |
| 7943 | "i275" | |
| 7944 | "i273" | |
| 7945 | "i271" | |
| 7946 | "i269" | |
| 7947 | "i267" | |
| 7948 | "i265" | |
| 7949 | "i263" | |
| 7950 | "i261" | |
| 7951 | "i259" | |
| 7952 | "i257" | |
| 7953 | "i255" | |
| e2ccab57 | 7954 | "i254" |
| e2ccab57 AW |
7955 | "i251" |
| 7956 | "i249" | |
| 7957 | "i248" | |
| 7958 | "i247" | |
| 7959 | "i246" | |
| 7960 | "i245" | |
| 7961 | "i243" | |
| 7962 | "i241" | |
| 7963 | "i239" | |
| 7964 | "i236" | |
| 7965 | "i234" | |
| 7966 | "i232" | |
| 7967 | "i230" | |
| 7968 | "i228" | |
| 7969 | "i226" | |
| 7970 | "i224" | |
| 7971 | "i222" | |
| 7972 | "i220" | |
| 7973 | "i218" | |
| 7974 | "i216" | |
| 7975 | "i214" | |
| 7976 | "i212" | |
| 7977 | "i210" | |
| 7978 | "i208" | |
| 7979 | "i206" | |
| 7980 | "i204" | |
| 7981 | "i202")) | |
| 7982 | #(ribcage | |
| 7983 | (define-structure | |
| 7984 | define-expansion-accessors | |
| 7985 | define-expansion-constructors) | |
| 7986 | ((top) (top) (top)) | |
| 7987 | ("i40" | |
| 7988 | "i39" | |
| 7989 | "i38"))) | |
| 7990 | (hygiene guile))))) | |
| 1bbe0a63 AW |
7991 | #{rkey 2408}#))))) |
| 7992 | #{tmp 2415}#) | |
| 7993 | (let ((#{tmp 2428}# | |
| e2ccab57 | 7994 | ($sc-dispatch |
| 1bbe0a63 | 7995 | #{tmp 2413}# |
| e2ccab57 | 7996 | '((any any) . any)))) |
| 1bbe0a63 | 7997 | (if (if #{tmp 2428}# |
| e2ccab57 | 7998 | (@apply |
| 1bbe0a63 AW |
7999 | (lambda (#{a 2432}# #{init 2433}# #{b 2434}#) |
| 8000 | (#{id? 344}# #{a 2432}#)) | |
| 8001 | #{tmp 2428}#) | |
| e2ccab57 AW |
8002 | #f) |
| 8003 | (@apply | |
| 1bbe0a63 AW |
8004 | (lambda (#{a 2438}# #{init 2439}# #{b 2440}#) |
| 8005 | (let ((#{tmp 2442}# | |
| e2ccab57 | 8006 | (symbol->keyword |
| 1bbe0a63 AW |
8007 | (syntax->datum #{a 2438}#)))) |
| 8008 | (let ((#{k 2444}# #{tmp 2442}#)) | |
| 8009 | (#{key 2296}# | |
| 8010 | #{b 2440}# | |
| 8011 | #{req 2406}# | |
| 8012 | #{opt 2407}# | |
| 8013 | (cons (list #{k 2444}# | |
| 8014 | #{a 2438}# | |
| 8015 | #{init 2439}#) | |
| 8016 | #{rkey 2408}#))))) | |
| 8017 | #{tmp 2428}#) | |
| 8018 | (let ((#{tmp 2445}# | |
| e2ccab57 | 8019 | ($sc-dispatch |
| 1bbe0a63 | 8020 | #{tmp 2413}# |
| e2ccab57 | 8021 | '((any any any) . any)))) |
| 1bbe0a63 | 8022 | (if (if #{tmp 2445}# |
| e2ccab57 | 8023 | (@apply |
| 1bbe0a63 AW |
8024 | (lambda (#{a 2450}# |
| 8025 | #{init 2451}# | |
| 8026 | #{k 2452}# | |
| 8027 | #{b 2453}#) | |
| 8028 | (if (#{id? 344}# #{a 2450}#) | |
| 8029 | (keyword? (syntax->datum #{k 2452}#)) | |
| e2ccab57 | 8030 | #f)) |
| 1bbe0a63 | 8031 | #{tmp 2445}#) |
| e2ccab57 AW |
8032 | #f) |
| 8033 | (@apply | |
| 1bbe0a63 AW |
8034 | (lambda (#{a 2460}# |
| 8035 | #{init 2461}# | |
| 8036 | #{k 2462}# | |
| 8037 | #{b 2463}#) | |
| 8038 | (#{key 2296}# | |
| 8039 | #{b 2463}# | |
| 8040 | #{req 2406}# | |
| 8041 | #{opt 2407}# | |
| 8042 | (cons (list #{k 2462}# | |
| 8043 | #{a 2460}# | |
| 8044 | #{init 2461}#) | |
| 8045 | #{rkey 2408}#))) | |
| 8046 | #{tmp 2445}#) | |
| 8047 | (let ((#{tmp 2464}# | |
| 8048 | ($sc-dispatch #{tmp 2413}# '(any)))) | |
| 8049 | (if (if #{tmp 2464}# | |
| e2ccab57 | 8050 | (@apply |
| 1bbe0a63 AW |
8051 | (lambda (#{aok 2466}#) |
| 8052 | (eq? (syntax->datum #{aok 2466}#) | |
| e2ccab57 | 8053 | #:allow-other-keys)) |
| 1bbe0a63 | 8054 | #{tmp 2464}#) |
| e2ccab57 AW |
8055 | #f) |
| 8056 | (@apply | |
| 1bbe0a63 AW |
8057 | (lambda (#{aok 2468}#) |
| 8058 | (#{check 2300}# | |
| 8059 | #{req 2406}# | |
| 8060 | #{opt 2407}# | |
| e2ccab57 | 8061 | #f |
| 1bbe0a63 AW |
8062 | (cons #t (reverse #{rkey 2408}#)))) |
| 8063 | #{tmp 2464}#) | |
| 8064 | (let ((#{tmp 2469}# | |
| e2ccab57 | 8065 | ($sc-dispatch |
| 1bbe0a63 | 8066 | #{tmp 2413}# |
| e2ccab57 | 8067 | '(any any any)))) |
| 1bbe0a63 | 8068 | (if (if #{tmp 2469}# |
| e2ccab57 | 8069 | (@apply |
| 1bbe0a63 AW |
8070 | (lambda (#{aok 2473}# |
| 8071 | #{a 2474}# | |
| 8072 | #{b 2475}#) | |
| e2ccab57 | 8073 | (if (eq? (syntax->datum |
| 1bbe0a63 | 8074 | #{aok 2473}#) |
| e2ccab57 AW |
8075 | #:allow-other-keys) |
| 8076 | (eq? (syntax->datum | |
| 1bbe0a63 | 8077 | #{a 2474}#) |
| e2ccab57 AW |
8078 | #:rest) |
| 8079 | #f)) | |
| 1bbe0a63 | 8080 | #{tmp 2469}#) |
| e2ccab57 AW |
8081 | #f) |
| 8082 | (@apply | |
| 1bbe0a63 AW |
8083 | (lambda (#{aok 2481}# |
| 8084 | #{a 2482}# | |
| 8085 | #{b 2483}#) | |
| 8086 | (#{rest 2298}# | |
| 8087 | #{b 2483}# | |
| 8088 | #{req 2406}# | |
| 8089 | #{opt 2407}# | |
| e2ccab57 | 8090 | (cons #t |
| 1bbe0a63 AW |
8091 | (reverse #{rkey 2408}#)))) |
| 8092 | #{tmp 2469}#) | |
| 8093 | (let ((#{tmp 2484}# | |
| e2ccab57 | 8094 | ($sc-dispatch |
| 1bbe0a63 | 8095 | #{tmp 2413}# |
| e2ccab57 | 8096 | '(any . any)))) |
| 1bbe0a63 | 8097 | (if (if #{tmp 2484}# |
| e2ccab57 | 8098 | (@apply |
| 1bbe0a63 AW |
8099 | (lambda (#{aok 2487}# |
| 8100 | #{r 2488}#) | |
| e2ccab57 | 8101 | (if (eq? (syntax->datum |
| 1bbe0a63 | 8102 | #{aok 2487}#) |
| e2ccab57 | 8103 | #:allow-other-keys) |
| 1bbe0a63 | 8104 | (#{id? 344}# #{r 2488}#) |
| e2ccab57 | 8105 | #f)) |
| 1bbe0a63 | 8106 | #{tmp 2484}#) |
| e2ccab57 AW |
8107 | #f) |
| 8108 | (@apply | |
| 1bbe0a63 AW |
8109 | (lambda (#{aok 2493}# #{r 2494}#) |
| 8110 | (#{rest 2298}# | |
| 8111 | #{r 2494}# | |
| 8112 | #{req 2406}# | |
| 8113 | #{opt 2407}# | |
| e2ccab57 AW |
8114 | (cons #t |
| 8115 | (reverse | |
| 1bbe0a63 AW |
8116 | #{rkey 2408}#)))) |
| 8117 | #{tmp 2484}#) | |
| 8118 | (let ((#{tmp 2495}# | |
| e2ccab57 | 8119 | ($sc-dispatch |
| 1bbe0a63 | 8120 | #{tmp 2413}# |
| e2ccab57 | 8121 | '(any any)))) |
| 1bbe0a63 | 8122 | (if (if #{tmp 2495}# |
| e2ccab57 | 8123 | (@apply |
| 1bbe0a63 AW |
8124 | (lambda (#{a 2498}# |
| 8125 | #{b 2499}#) | |
| e2ccab57 | 8126 | (eq? (syntax->datum |
| 1bbe0a63 | 8127 | #{a 2498}#) |
| e2ccab57 | 8128 | #:rest)) |
| 1bbe0a63 | 8129 | #{tmp 2495}#) |
| e2ccab57 AW |
8130 | #f) |
| 8131 | (@apply | |
| 1bbe0a63 AW |
8132 | (lambda (#{a 2502}# |
| 8133 | #{b 2503}#) | |
| 8134 | (#{rest 2298}# | |
| 8135 | #{b 2503}# | |
| 8136 | #{req 2406}# | |
| 8137 | #{opt 2407}# | |
| e2ccab57 AW |
8138 | (cons #f |
| 8139 | (reverse | |
| 1bbe0a63 AW |
8140 | #{rkey 2408}#)))) |
| 8141 | #{tmp 2495}#) | |
| 8142 | (let ((#{tmp 2504}# | |
| 8143 | (list #{tmp 2413}#))) | |
| 8144 | (if (if #{tmp 2504}# | |
| e2ccab57 | 8145 | (@apply |
| 1bbe0a63 AW |
8146 | (lambda (#{r 2506}#) |
| 8147 | (#{id? 344}# | |
| 8148 | #{r 2506}#)) | |
| 8149 | #{tmp 2504}#) | |
| e2ccab57 AW |
8150 | #f) |
| 8151 | (@apply | |
| 1bbe0a63 AW |
8152 | (lambda (#{r 2508}#) |
| 8153 | (#{rest 2298}# | |
| 8154 | #{r 2508}# | |
| 8155 | #{req 2406}# | |
| 8156 | #{opt 2407}# | |
| e2ccab57 AW |
8157 | (cons #f |
| 8158 | (reverse | |
| 1bbe0a63 AW |
8159 | #{rkey 2408}#)))) |
| 8160 | #{tmp 2504}#) | |
| 8161 | (let ((#{else 2510}# | |
| 8162 | #{tmp 2413}#)) | |
| e2ccab57 AW |
8163 | (syntax-violation |
| 8164 | 'lambda* | |
| 8165 | "invalid keyword argument list" | |
| 1bbe0a63 AW |
8166 | #{orig-args 2289}# |
| 8167 | #{args 2405}#))))))))))))))))))))))) | |
| 8168 | (#{rest 2298}# | |
| 8169 | (lambda (#{args 2511}# | |
| 8170 | #{req 2512}# | |
| 8171 | #{opt 2513}# | |
| 8172 | #{kw 2514}#) | |
| 8173 | (let ((#{tmp 2519}# #{args 2511}#)) | |
| 8174 | (let ((#{tmp 2520}# (list #{tmp 2519}#))) | |
| 8175 | (if (if #{tmp 2520}# | |
| e2ccab57 | 8176 | (@apply |
| 1bbe0a63 AW |
8177 | (lambda (#{r 2522}#) (#{id? 344}# #{r 2522}#)) |
| 8178 | #{tmp 2520}#) | |
| e2ccab57 AW |
8179 | #f) |
| 8180 | (@apply | |
| 1bbe0a63 AW |
8181 | (lambda (#{r 2524}#) |
| 8182 | (#{check 2300}# | |
| 8183 | #{req 2512}# | |
| 8184 | #{opt 2513}# | |
| 8185 | #{r 2524}# | |
| 8186 | #{kw 2514}#)) | |
| 8187 | #{tmp 2520}#) | |
| 8188 | (let ((#{else 2526}# #{tmp 2519}#)) | |
| e2ccab57 AW |
8189 | (syntax-violation |
| 8190 | 'lambda* | |
| 8191 | "invalid rest argument" | |
| 1bbe0a63 AW |
8192 | #{orig-args 2289}# |
| 8193 | #{args 2511}#))))))) | |
| 8194 | (#{check 2300}# | |
| 8195 | (lambda (#{req 2527}# | |
| 8196 | #{opt 2528}# | |
| 8197 | #{rest 2529}# | |
| 8198 | #{kw 2530}#) | |
| 8199 | (if (#{distinct-bound-ids? 414}# | |
| e2ccab57 | 8200 | (append |
| 1bbe0a63 AW |
8201 | #{req 2527}# |
| 8202 | (map car #{opt 2528}#) | |
| 8203 | (if #{rest 2529}# (list #{rest 2529}#) '()) | |
| 8204 | (if (pair? #{kw 2530}#) | |
| 8205 | (map cadr (cdr #{kw 2530}#)) | |
| e2ccab57 AW |
8206 | '()))) |
| 8207 | (values | |
| 1bbe0a63 AW |
8208 | #{req 2527}# |
| 8209 | #{opt 2528}# | |
| 8210 | #{rest 2529}# | |
| 8211 | #{kw 2530}#) | |
| e2ccab57 AW |
8212 | (syntax-violation |
| 8213 | 'lambda* | |
| 8214 | "duplicate identifier in argument list" | |
| 1bbe0a63 AW |
8215 | #{orig-args 2289}#))))) |
| 8216 | (begin (#{req 2292}# #{orig-args 2289}# '()))))) | |
| 8217 | (#{chi-lambda-case 456}# | |
| 8218 | (lambda (#{e 2538}# | |
| 8219 | #{r 2539}# | |
| 8220 | #{w 2540}# | |
| 8221 | #{s 2541}# | |
| 8222 | #{mod 2542}# | |
| 8223 | #{get-formals 2543}# | |
| 8224 | #{clauses 2544}#) | |
| e2ccab57 | 8225 | (letrec* |
| 1bbe0a63 AW |
8226 | ((#{expand-req 2553}# |
| 8227 | (lambda (#{req 2560}# | |
| 8228 | #{opt 2561}# | |
| 8229 | #{rest 2562}# | |
| 8230 | #{kw 2563}# | |
| 8231 | #{body 2564}#) | |
| e2ccab57 | 8232 | (begin |
| 1bbe0a63 AW |
8233 | (let ((#{vars 2572}# |
| 8234 | (map #{gen-var 460}# #{req 2560}#)) | |
| 8235 | (#{labels 2573}# | |
| 8236 | (#{gen-labels 364}# #{req 2560}#))) | |
| e2ccab57 | 8237 | (begin |
| 1bbe0a63 AW |
8238 | (let ((#{r* 2576}# |
| 8239 | (#{extend-var-env 334}# | |
| 8240 | #{labels 2573}# | |
| 8241 | #{vars 2572}# | |
| 8242 | #{r 2539}#)) | |
| 8243 | (#{w* 2577}# | |
| 8244 | (#{make-binding-wrap 396}# | |
| 8245 | #{req 2560}# | |
| 8246 | #{labels 2573}# | |
| 8247 | #{w 2540}#))) | |
| 8248 | (#{expand-opt 2555}# | |
| 8249 | (map syntax->datum #{req 2560}#) | |
| 8250 | #{opt 2561}# | |
| 8251 | #{rest 2562}# | |
| 8252 | #{kw 2563}# | |
| 8253 | #{body 2564}# | |
| 8254 | (reverse #{vars 2572}#) | |
| 8255 | #{r* 2576}# | |
| 8256 | #{w* 2577}# | |
| e2ccab57 AW |
8257 | '() |
| 8258 | '()))))))) | |
| 1bbe0a63 AW |
8259 | (#{expand-opt 2555}# |
| 8260 | (lambda (#{req 2578}# | |
| 8261 | #{opt 2579}# | |
| 8262 | #{rest 2580}# | |
| 8263 | #{kw 2581}# | |
| 8264 | #{body 2582}# | |
| 8265 | #{vars 2583}# | |
| 8266 | #{r* 2584}# | |
| 8267 | #{w* 2585}# | |
| 8268 | #{out 2586}# | |
| 8269 | #{inits 2587}#) | |
| 8270 | (if (pair? #{opt 2579}#) | |
| 8271 | (let ((#{tmp 2600}# (car #{opt 2579}#))) | |
| 8272 | (let ((#{tmp 2601}# | |
| 8273 | ($sc-dispatch #{tmp 2600}# '(any any)))) | |
| 8274 | (if #{tmp 2601}# | |
| e2ccab57 | 8275 | (@apply |
| 1bbe0a63 | 8276 | (lambda (#{id 2604}# #{i 2605}#) |
| e2ccab57 | 8277 | (begin |
| 1bbe0a63 | 8278 | (let ((#{v 2608}# (#{gen-var 460}# #{id 2604}#))) |
| e2ccab57 | 8279 | (begin |
| 1bbe0a63 AW |
8280 | (let ((#{l 2610}# |
| 8281 | (#{gen-labels 364}# | |
| 8282 | (list #{v 2608}#)))) | |
| e2ccab57 | 8283 | (begin |
| 1bbe0a63 AW |
8284 | (let ((#{r** 2612}# |
| 8285 | (#{extend-var-env 334}# | |
| 8286 | #{l 2610}# | |
| 8287 | (list #{v 2608}#) | |
| 8288 | #{r* 2584}#))) | |
| e2ccab57 | 8289 | (begin |
| 1bbe0a63 AW |
8290 | (let ((#{w** 2614}# |
| 8291 | (#{make-binding-wrap 396}# | |
| 8292 | (list #{id 2604}#) | |
| 8293 | #{l 2610}# | |
| 8294 | #{w* 2585}#))) | |
| 8295 | (#{expand-opt 2555}# | |
| 8296 | #{req 2578}# | |
| 8297 | (cdr #{opt 2579}#) | |
| 8298 | #{rest 2580}# | |
| 8299 | #{kw 2581}# | |
| 8300 | #{body 2582}# | |
| 8301 | (cons #{v 2608}# #{vars 2583}#) | |
| 8302 | #{r** 2612}# | |
| 8303 | #{w** 2614}# | |
| 8304 | (cons (syntax->datum #{id 2604}#) | |
| 8305 | #{out 2586}#) | |
| 8306 | (cons (#{chi 432}# | |
| 8307 | #{i 2605}# | |
| 8308 | #{r* 2584}# | |
| 8309 | #{w* 2585}# | |
| 8310 | #{mod 2542}#) | |
| 8311 | #{inits 2587}#))))))))))) | |
| 8312 | #{tmp 2601}#) | |
| e2ccab57 AW |
8313 | (syntax-violation |
| 8314 | #f | |
| 8315 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
8316 | #{tmp 2600}#)))) |
| 8317 | (if #{rest 2580}# | |
| e2ccab57 | 8318 | (begin |
| 1bbe0a63 | 8319 | (let ((#{v 2619}# (#{gen-var 460}# #{rest 2580}#))) |
| e2ccab57 | 8320 | (begin |
| 1bbe0a63 AW |
8321 | (let ((#{l 2621}# |
| 8322 | (#{gen-labels 364}# (list #{v 2619}#)))) | |
| e2ccab57 | 8323 | (begin |
| 1bbe0a63 AW |
8324 | (let ((#{r* 2623}# |
| 8325 | (#{extend-var-env 334}# | |
| 8326 | #{l 2621}# | |
| 8327 | (list #{v 2619}#) | |
| 8328 | #{r* 2584}#))) | |
| e2ccab57 | 8329 | (begin |
| 1bbe0a63 AW |
8330 | (let ((#{w* 2625}# |
| 8331 | (#{make-binding-wrap 396}# | |
| 8332 | (list #{rest 2580}#) | |
| 8333 | #{l 2621}# | |
| 8334 | #{w* 2585}#))) | |
| 8335 | (#{expand-kw 2557}# | |
| 8336 | #{req 2578}# | |
| 8337 | (if (pair? #{out 2586}#) | |
| 8338 | (reverse #{out 2586}#) | |
| e2ccab57 | 8339 | #f) |
| 1bbe0a63 AW |
8340 | (syntax->datum #{rest 2580}#) |
| 8341 | (if (pair? #{kw 2581}#) | |
| 8342 | (cdr #{kw 2581}#) | |
| 8343 | #{kw 2581}#) | |
| 8344 | #{body 2582}# | |
| 8345 | (cons #{v 2619}# #{vars 2583}#) | |
| 8346 | #{r* 2623}# | |
| 8347 | #{w* 2625}# | |
| 8348 | (if (pair? #{kw 2581}#) | |
| 8349 | (car #{kw 2581}#) | |
| e2ccab57 AW |
8350 | #f) |
| 8351 | '() | |
| 1bbe0a63 AW |
8352 | #{inits 2587}#))))))))) |
| 8353 | (#{expand-kw 2557}# | |
| 8354 | #{req 2578}# | |
| 8355 | (if (pair? #{out 2586}#) | |
| 8356 | (reverse #{out 2586}#) | |
| e2ccab57 AW |
8357 | #f) |
| 8358 | #f | |
| 1bbe0a63 AW |
8359 | (if (pair? #{kw 2581}#) |
| 8360 | (cdr #{kw 2581}#) | |
| 8361 | #{kw 2581}#) | |
| 8362 | #{body 2582}# | |
| 8363 | #{vars 2583}# | |
| 8364 | #{r* 2584}# | |
| 8365 | #{w* 2585}# | |
| 8366 | (if (pair? #{kw 2581}#) (car #{kw 2581}#) #f) | |
| e2ccab57 | 8367 | '() |
| 1bbe0a63 AW |
8368 | #{inits 2587}#))))) |
| 8369 | (#{expand-kw 2557}# | |
| 8370 | (lambda (#{req 2627}# | |
| 8371 | #{opt 2628}# | |
| 8372 | #{rest 2629}# | |
| 8373 | #{kw 2630}# | |
| 8374 | #{body 2631}# | |
| 8375 | #{vars 2632}# | |
| 8376 | #{r* 2633}# | |
| 8377 | #{w* 2634}# | |
| 8378 | #{aok 2635}# | |
| 8379 | #{out 2636}# | |
| 8380 | #{inits 2637}#) | |
| 8381 | (if (pair? #{kw 2630}#) | |
| 8382 | (let ((#{tmp 2651}# (car #{kw 2630}#))) | |
| 8383 | (let ((#{tmp 2652}# | |
| 8384 | ($sc-dispatch #{tmp 2651}# '(any any any)))) | |
| 8385 | (if #{tmp 2652}# | |
| e2ccab57 | 8386 | (@apply |
| 1bbe0a63 | 8387 | (lambda (#{k 2656}# #{id 2657}# #{i 2658}#) |
| e2ccab57 | 8388 | (begin |
| 1bbe0a63 | 8389 | (let ((#{v 2661}# (#{gen-var 460}# #{id 2657}#))) |
| e2ccab57 | 8390 | (begin |
| 1bbe0a63 AW |
8391 | (let ((#{l 2663}# |
| 8392 | (#{gen-labels 364}# | |
| 8393 | (list #{v 2661}#)))) | |
| e2ccab57 | 8394 | (begin |
| 1bbe0a63 AW |
8395 | (let ((#{r** 2665}# |
| 8396 | (#{extend-var-env 334}# | |
| 8397 | #{l 2663}# | |
| 8398 | (list #{v 2661}#) | |
| 8399 | #{r* 2633}#))) | |
| e2ccab57 | 8400 | (begin |
| 1bbe0a63 AW |
8401 | (let ((#{w** 2667}# |
| 8402 | (#{make-binding-wrap 396}# | |
| 8403 | (list #{id 2657}#) | |
| 8404 | #{l 2663}# | |
| 8405 | #{w* 2634}#))) | |
| 8406 | (#{expand-kw 2557}# | |
| 8407 | #{req 2627}# | |
| 8408 | #{opt 2628}# | |
| 8409 | #{rest 2629}# | |
| 8410 | (cdr #{kw 2630}#) | |
| 8411 | #{body 2631}# | |
| 8412 | (cons #{v 2661}# #{vars 2632}#) | |
| 8413 | #{r** 2665}# | |
| 8414 | #{w** 2667}# | |
| 8415 | #{aok 2635}# | |
| e2ccab57 | 8416 | (cons (list (syntax->datum |
| 1bbe0a63 | 8417 | #{k 2656}#) |
| e2ccab57 | 8418 | (syntax->datum |
| 1bbe0a63 AW |
8419 | #{id 2657}#) |
| 8420 | #{v 2661}#) | |
| 8421 | #{out 2636}#) | |
| 8422 | (cons (#{chi 432}# | |
| 8423 | #{i 2658}# | |
| 8424 | #{r* 2633}# | |
| 8425 | #{w* 2634}# | |
| 8426 | #{mod 2542}#) | |
| 8427 | #{inits 2637}#))))))))))) | |
| 8428 | #{tmp 2652}#) | |
| e2ccab57 AW |
8429 | (syntax-violation |
| 8430 | #f | |
| 8431 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
8432 | #{tmp 2651}#)))) |
| 8433 | (#{expand-body 2559}# | |
| 8434 | #{req 2627}# | |
| 8435 | #{opt 2628}# | |
| 8436 | #{rest 2629}# | |
| e2ccab57 | 8437 | (if (begin |
| 1bbe0a63 AW |
8438 | (let ((#{t 2671}# #{aok 2635}#)) |
| 8439 | (if #{t 2671}# #{t 2671}# (pair? #{out 2636}#)))) | |
| 8440 | (cons #{aok 2635}# (reverse #{out 2636}#)) | |
| e2ccab57 | 8441 | #f) |
| 1bbe0a63 AW |
8442 | #{body 2631}# |
| 8443 | (reverse #{vars 2632}#) | |
| 8444 | #{r* 2633}# | |
| 8445 | #{w* 2634}# | |
| 8446 | (reverse #{inits 2637}#) | |
| e2ccab57 | 8447 | '())))) |
| 1bbe0a63 AW |
8448 | (#{expand-body 2559}# |
| 8449 | (lambda (#{req 2673}# | |
| 8450 | #{opt 2674}# | |
| 8451 | #{rest 2675}# | |
| 8452 | #{kw 2676}# | |
| 8453 | #{body 2677}# | |
| 8454 | #{vars 2678}# | |
| 8455 | #{r* 2679}# | |
| 8456 | #{w* 2680}# | |
| 8457 | #{inits 2681}# | |
| 8458 | #{meta 2682}#) | |
| 8459 | (let ((#{tmp 2693}# #{body 2677}#)) | |
| 8460 | (let ((#{tmp 2694}# | |
| 8461 | ($sc-dispatch #{tmp 2693}# '(any any . each-any)))) | |
| 8462 | (if (if #{tmp 2694}# | |
| e2ccab57 | 8463 | (@apply |
| 1bbe0a63 AW |
8464 | (lambda (#{docstring 2698}# #{e1 2699}# #{e2 2700}#) |
| 8465 | (string? (syntax->datum #{docstring 2698}#))) | |
| 8466 | #{tmp 2694}#) | |
| e2ccab57 AW |
8467 | #f) |
| 8468 | (@apply | |
| 1bbe0a63 AW |
8469 | (lambda (#{docstring 2704}# #{e1 2705}# #{e2 2706}#) |
| 8470 | (#{expand-body 2559}# | |
| 8471 | #{req 2673}# | |
| 8472 | #{opt 2674}# | |
| 8473 | #{rest 2675}# | |
| 8474 | #{kw 2676}# | |
| 8475 | (cons #{e1 2705}# #{e2 2706}#) | |
| 8476 | #{vars 2678}# | |
| 8477 | #{r* 2679}# | |
| 8478 | #{w* 2680}# | |
| 8479 | #{inits 2681}# | |
| e2ccab57 | 8480 | (append |
| 1bbe0a63 | 8481 | #{meta 2682}# |
| e2ccab57 | 8482 | (list (cons 'documentation |
| 1bbe0a63 AW |
8483 | (syntax->datum #{docstring 2704}#)))))) |
| 8484 | #{tmp 2694}#) | |
| 8485 | (let ((#{tmp 2709}# | |
| e2ccab57 | 8486 | ($sc-dispatch |
| 1bbe0a63 | 8487 | #{tmp 2693}# |
| e2ccab57 AW |
8488 | '(#(vector #(each (any . any))) |
| 8489 | any | |
| 8490 | . | |
| 8491 | each-any)))) | |
| 1bbe0a63 | 8492 | (if #{tmp 2709}# |
| e2ccab57 | 8493 | (@apply |
| 1bbe0a63 AW |
8494 | (lambda (#{k 2714}# |
| 8495 | #{v 2715}# | |
| 8496 | #{e1 2716}# | |
| 8497 | #{e2 2717}#) | |
| 8498 | (#{expand-body 2559}# | |
| 8499 | #{req 2673}# | |
| 8500 | #{opt 2674}# | |
| 8501 | #{rest 2675}# | |
| 8502 | #{kw 2676}# | |
| 8503 | (cons #{e1 2716}# #{e2 2717}#) | |
| 8504 | #{vars 2678}# | |
| 8505 | #{r* 2679}# | |
| 8506 | #{w* 2680}# | |
| 8507 | #{inits 2681}# | |
| e2ccab57 | 8508 | (append |
| 1bbe0a63 | 8509 | #{meta 2682}# |
| e2ccab57 | 8510 | (syntax->datum |
| 1bbe0a63 AW |
8511 | (map cons #{k 2714}# #{v 2715}#))))) |
| 8512 | #{tmp 2709}#) | |
| 8513 | (let ((#{tmp 2721}# | |
| 8514 | ($sc-dispatch #{tmp 2693}# '(any . each-any)))) | |
| 8515 | (if #{tmp 2721}# | |
| e2ccab57 | 8516 | (@apply |
| 1bbe0a63 | 8517 | (lambda (#{e1 2724}# #{e2 2725}#) |
| e2ccab57 | 8518 | (values |
| 1bbe0a63 AW |
8519 | #{meta 2682}# |
| 8520 | #{req 2673}# | |
| 8521 | #{opt 2674}# | |
| 8522 | #{rest 2675}# | |
| 8523 | #{kw 2676}# | |
| 8524 | #{inits 2681}# | |
| 8525 | #{vars 2678}# | |
| 8526 | (#{chi-body 440}# | |
| 8527 | (cons #{e1 2724}# #{e2 2725}#) | |
| 8528 | (#{source-wrap 420}# | |
| 8529 | #{e 2538}# | |
| 8530 | #{w 2540}# | |
| 8531 | #{s 2541}# | |
| 8532 | #{mod 2542}#) | |
| 8533 | #{r* 2679}# | |
| 8534 | #{w* 2680}# | |
| 8535 | #{mod 2542}#))) | |
| 8536 | #{tmp 2721}#) | |
| e2ccab57 AW |
8537 | (syntax-violation |
| 8538 | #f | |
| 8539 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 8540 | #{tmp 2693}#))))))))))) |
| e2ccab57 | 8541 | (begin |
| 1bbe0a63 AW |
8542 | (let ((#{tmp 2727}# #{clauses 2544}#)) |
| 8543 | (let ((#{tmp 2728}# ($sc-dispatch #{tmp 2727}# '()))) | |
| 8544 | (if #{tmp 2728}# | |
| 8545 | (@apply (lambda () (values '() #f)) #{tmp 2728}#) | |
| 8546 | (let ((#{tmp 2729}# | |
| e2ccab57 | 8547 | ($sc-dispatch |
| 1bbe0a63 | 8548 | #{tmp 2727}# |
| e2ccab57 AW |
8549 | '((any any . each-any) |
| 8550 | . | |
| 8551 | #(each (any any . each-any)))))) | |
| 1bbe0a63 | 8552 | (if #{tmp 2729}# |
| e2ccab57 | 8553 | (@apply |
| 1bbe0a63 AW |
8554 | (lambda (#{args 2736}# |
| 8555 | #{e1 2737}# | |
| 8556 | #{e2 2738}# | |
| 8557 | #{args* 2739}# | |
| 8558 | #{e1* 2740}# | |
| 8559 | #{e2* 2741}#) | |
| e2ccab57 | 8560 | (call-with-values |
| 1bbe0a63 AW |
8561 | (lambda () (#{get-formals 2543}# #{args 2736}#)) |
| 8562 | (lambda (#{req 2742}# | |
| 8563 | #{opt 2743}# | |
| 8564 | #{rest 2744}# | |
| 8565 | #{kw 2745}#) | |
| e2ccab57 AW |
8566 | (call-with-values |
| 8567 | (lambda () | |
| 1bbe0a63 AW |
8568 | (#{expand-req 2553}# |
| 8569 | #{req 2742}# | |
| 8570 | #{opt 2743}# | |
| 8571 | #{rest 2744}# | |
| 8572 | #{kw 2745}# | |
| 8573 | (cons #{e1 2737}# #{e2 2738}#))) | |
| 8574 | (lambda (#{meta 2751}# | |
| 8575 | #{req 2752}# | |
| 8576 | #{opt 2753}# | |
| 8577 | #{rest 2754}# | |
| 8578 | #{kw 2755}# | |
| 8579 | #{inits 2756}# | |
| 8580 | #{vars 2757}# | |
| 8581 | #{body 2758}#) | |
| e2ccab57 AW |
8582 | (call-with-values |
| 8583 | (lambda () | |
| 1bbe0a63 AW |
8584 | (#{chi-lambda-case 456}# |
| 8585 | #{e 2538}# | |
| 8586 | #{r 2539}# | |
| 8587 | #{w 2540}# | |
| 8588 | #{s 2541}# | |
| 8589 | #{mod 2542}# | |
| 8590 | #{get-formals 2543}# | |
| 8591 | (map (lambda (#{tmp 2769}# | |
| 8592 | #{tmp 2768}# | |
| 8593 | #{tmp 2767}#) | |
| 8594 | (cons #{tmp 2767}# | |
| 8595 | (cons #{tmp 2768}# | |
| 8596 | #{tmp 2769}#))) | |
| 8597 | #{e2* 2741}# | |
| 8598 | #{e1* 2740}# | |
| 8599 | #{args* 2739}#))) | |
| 8600 | (lambda (#{meta* 2771}# #{else* 2772}#) | |
| e2ccab57 | 8601 | (values |
| 1bbe0a63 AW |
8602 | (append #{meta 2751}# #{meta* 2771}#) |
| 8603 | (#{build-lambda-case 288}# | |
| 8604 | #{s 2541}# | |
| 8605 | #{req 2752}# | |
| 8606 | #{opt 2753}# | |
| 8607 | #{rest 2754}# | |
| 8608 | #{kw 2755}# | |
| 8609 | #{inits 2756}# | |
| 8610 | #{vars 2757}# | |
| 8611 | #{body 2758}# | |
| 8612 | #{else* 2772}#))))))))) | |
| 8613 | #{tmp 2729}#) | |
| e2ccab57 AW |
8614 | (syntax-violation |
| 8615 | #f | |
| 8616 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
8617 | #{tmp 2727}#)))))))))) |
| 8618 | (#{strip 458}# | |
| 8619 | (lambda (#{x 2775}# #{w 2776}#) | |
| 8620 | (if (memq 'top (car #{w 2776}#)) | |
| 8621 | #{x 2775}# | |
| e2ccab57 | 8622 | (letrec* |
| 1bbe0a63 AW |
8623 | ((#{f 2783}# |
| 8624 | (lambda (#{x 2784}#) | |
| 8625 | (if (#{syntax-object? 307}# #{x 2784}#) | |
| 8626 | (#{strip 458}# | |
| 8627 | (#{syntax-object-expression 309}# #{x 2784}#) | |
| 8628 | (#{syntax-object-wrap 311}# #{x 2784}#)) | |
| 8629 | (if (pair? #{x 2784}#) | |
| e2ccab57 | 8630 | (begin |
| 1bbe0a63 AW |
8631 | (let ((#{a 2791}# (#{f 2783}# (car #{x 2784}#))) |
| 8632 | (#{d 2792}# (#{f 2783}# (cdr #{x 2784}#)))) | |
| 8633 | (if (if (eq? #{a 2791}# (car #{x 2784}#)) | |
| 8634 | (eq? #{d 2792}# (cdr #{x 2784}#)) | |
| e2ccab57 | 8635 | #f) |
| 1bbe0a63 AW |
8636 | #{x 2784}# |
| 8637 | (cons #{a 2791}# #{d 2792}#)))) | |
| 8638 | (if (vector? #{x 2784}#) | |
| e2ccab57 | 8639 | (begin |
| 1bbe0a63 | 8640 | (let ((#{old 2798}# (vector->list #{x 2784}#))) |
| e2ccab57 | 8641 | (begin |
| 1bbe0a63 | 8642 | (let ((#{new 2800}# (map #{f 2783}# #{old 2798}#))) |
| e2ccab57 | 8643 | (letrec* |
| 1bbe0a63 AW |
8644 | ((#{lp 2804}# |
| 8645 | (lambda (#{l1 2805}# #{l2 2806}#) | |
| 8646 | (if (null? #{l1 2805}#) | |
| 8647 | #{x 2784}# | |
| 8648 | (if (eq? (car #{l1 2805}#) | |
| 8649 | (car #{l2 2806}#)) | |
| 8650 | (#{lp 2804}# | |
| 8651 | (cdr #{l1 2805}#) | |
| 8652 | (cdr #{l2 2806}#)) | |
| 8653 | (list->vector #{new 2800}#)))))) | |
| e2ccab57 | 8654 | (begin |
| 1bbe0a63 AW |
8655 | (#{lp 2804}# #{old 2798}# #{new 2800}#))))))) |
| 8656 | #{x 2784}#)))))) | |
| 8657 | (begin (#{f 2783}# #{x 2775}#)))))) | |
| 8658 | (#{gen-var 460}# | |
| 8659 | (lambda (#{id 2808}#) | |
| e2ccab57 | 8660 | (begin |
| 1bbe0a63 AW |
8661 | (let ((#{id 2811}# |
| 8662 | (if (#{syntax-object? 307}# #{id 2808}#) | |
| 8663 | (#{syntax-object-expression 309}# #{id 2808}#) | |
| 8664 | #{id 2808}#))) | |
| e2ccab57 | 8665 | (gensym |
| 1bbe0a63 AW |
8666 | (string-append (symbol->string #{id 2811}#) " ")))))) |
| 8667 | (#{lambda-var-list 462}# | |
| 8668 | (lambda (#{vars 2813}#) | |
| e2ccab57 | 8669 | (letrec* |
| 1bbe0a63 AW |
8670 | ((#{lvl 2819}# |
| 8671 | (lambda (#{vars 2820}# #{ls 2821}# #{w 2822}#) | |
| 8672 | (if (pair? #{vars 2820}#) | |
| 8673 | (#{lvl 2819}# | |
| 8674 | (cdr #{vars 2820}#) | |
| 8675 | (cons (#{wrap 418}# (car #{vars 2820}#) #{w 2822}# #f) | |
| 8676 | #{ls 2821}#) | |
| 8677 | #{w 2822}#) | |
| 8678 | (if (#{id? 344}# #{vars 2820}#) | |
| 8679 | (cons (#{wrap 418}# #{vars 2820}# #{w 2822}# #f) | |
| 8680 | #{ls 2821}#) | |
| 8681 | (if (null? #{vars 2820}#) | |
| 8682 | #{ls 2821}# | |
| 8683 | (if (#{syntax-object? 307}# #{vars 2820}#) | |
| 8684 | (#{lvl 2819}# | |
| 8685 | (#{syntax-object-expression 309}# #{vars 2820}#) | |
| 8686 | #{ls 2821}# | |
| 8687 | (#{join-wraps 400}# | |
| 8688 | #{w 2822}# | |
| 8689 | (#{syntax-object-wrap 311}# #{vars 2820}#))) | |
| 8690 | (cons #{vars 2820}# #{ls 2821}#)))))))) | |
| 8691 | (begin (#{lvl 2819}# #{vars 2813}# '() '(()))))))) | |
| e2ccab57 | 8692 | (begin |
| 1bbe0a63 | 8693 | (lambda (#{src 780}# #{name 781}#) |
| e2ccab57 AW |
8694 | (make-struct/no-tail |
| 8695 | (vector-ref %expanded-vtables 2) | |
| 1bbe0a63 AW |
8696 | #{src 780}# |
| 8697 | #{name 781}#)) | |
| 8698 | (lambda (#{x 1158}# #{update 1159}#) | |
| 8699 | (vector-set! #{x 1158}# 1 #{update 1159}#)) | |
| 8700 | (lambda (#{x 1162}# #{update 1163}#) | |
| 8701 | (vector-set! #{x 1162}# 2 #{update 1163}#)) | |
| 8702 | (lambda (#{x 1166}# #{update 1167}#) | |
| 8703 | (vector-set! #{x 1166}# 3 #{update 1167}#)) | |
| 8704 | (lambda (#{x 1247}#) | |
| 8705 | (if (vector? #{x 1247}#) | |
| 8706 | (if (= (vector-length #{x 1247}#) 4) | |
| 8707 | (eq? (vector-ref #{x 1247}# 0) 'ribcage) | |
| e2ccab57 AW |
8708 | #f) |
| 8709 | #f)) | |
| 8710 | (begin | |
| 1bbe0a63 | 8711 | (#{global-extend 340}# |
| e2ccab57 AW |
8712 | 'local-syntax |
| 8713 | 'letrec-syntax | |
| 8714 | #t) | |
| 1bbe0a63 | 8715 | (#{global-extend 340}# |
| e2ccab57 AW |
8716 | 'local-syntax |
| 8717 | 'let-syntax | |
| 8718 | #f) | |
| 1bbe0a63 | 8719 | (#{global-extend 340}# |
| e2ccab57 AW |
8720 | 'core |
| 8721 | 'fluid-let-syntax | |
| 1bbe0a63 AW |
8722 | (lambda (#{e 2833}# |
| 8723 | #{r 2834}# | |
| 8724 | #{w 2835}# | |
| 8725 | #{s 2836}# | |
| 8726 | #{mod 2837}#) | |
| 8727 | (let ((#{tmp 2843}# #{e 2833}#)) | |
| 8728 | (let ((#{tmp 2844}# | |
| e2ccab57 | 8729 | ($sc-dispatch |
| 1bbe0a63 | 8730 | #{tmp 2843}# |
| e2ccab57 | 8731 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 8732 | (if (if #{tmp 2844}# |
| e2ccab57 | 8733 | (@apply |
| 1bbe0a63 AW |
8734 | (lambda (#{var 2849}# |
| 8735 | #{val 2850}# | |
| 8736 | #{e1 2851}# | |
| 8737 | #{e2 2852}#) | |
| 8738 | (#{valid-bound-ids? 412}# #{var 2849}#)) | |
| 8739 | #{tmp 2844}#) | |
| e2ccab57 AW |
8740 | #f) |
| 8741 | (@apply | |
| 1bbe0a63 AW |
8742 | (lambda (#{var 2858}# |
| 8743 | #{val 2859}# | |
| 8744 | #{e1 2860}# | |
| 8745 | #{e2 2861}#) | |
| e2ccab57 | 8746 | (begin |
| 1bbe0a63 AW |
8747 | (let ((#{names 2863}# |
| 8748 | (map (lambda (#{x 2864}#) | |
| 8749 | (#{id-var-name 406}# | |
| 8750 | #{x 2864}# | |
| 8751 | #{w 2835}#)) | |
| 8752 | #{var 2858}#))) | |
| e2ccab57 AW |
8753 | (begin |
| 8754 | (for-each | |
| 1bbe0a63 | 8755 | (lambda (#{id 2867}# #{n 2868}#) |
| e2ccab57 | 8756 | (begin |
| 1bbe0a63 AW |
8757 | (let ((#{atom-key 2873}# |
| 8758 | (car (#{lookup 338}# | |
| 8759 | #{n 2868}# | |
| 8760 | #{r 2834}# | |
| 8761 | #{mod 2837}#)))) | |
| 8762 | (if (eqv? #{atom-key 2873}# | |
| e2ccab57 AW |
8763 | 'displaced-lexical) |
| 8764 | (syntax-violation | |
| 8765 | 'fluid-let-syntax | |
| 8766 | "identifier out of context" | |
| 1bbe0a63 AW |
8767 | #{e 2833}# |
| 8768 | (#{source-wrap 420}# | |
| 8769 | #{id 2867}# | |
| 8770 | #{w 2835}# | |
| 8771 | #{s 2836}# | |
| 8772 | #{mod 2837}#)))))) | |
| 8773 | #{var 2858}# | |
| 8774 | #{names 2863}#) | |
| 8775 | (#{chi-body 440}# | |
| 8776 | (cons #{e1 2860}# #{e2 2861}#) | |
| 8777 | (#{source-wrap 420}# | |
| 8778 | #{e 2833}# | |
| 8779 | #{w 2835}# | |
| 8780 | #{s 2836}# | |
| 8781 | #{mod 2837}#) | |
| 8782 | (#{extend-env 332}# | |
| 8783 | #{names 2863}# | |
| e2ccab57 | 8784 | (begin |
| 1bbe0a63 AW |
8785 | (let ((#{trans-r 2879}# |
| 8786 | (#{macros-only-env 336}# #{r 2834}#))) | |
| 8787 | (map (lambda (#{x 2880}#) | |
| e2ccab57 | 8788 | (cons 'macro |
| 1bbe0a63 AW |
8789 | (#{eval-local-transformer 444}# |
| 8790 | (#{chi 432}# | |
| 8791 | #{x 2880}# | |
| 8792 | #{trans-r 2879}# | |
| 8793 | #{w 2835}# | |
| 8794 | #{mod 2837}#) | |
| 8795 | #{mod 2837}#))) | |
| 8796 | #{val 2859}#))) | |
| 8797 | #{r 2834}#) | |
| 8798 | #{w 2835}# | |
| 8799 | #{mod 2837}#))))) | |
| 8800 | #{tmp 2844}#) | |
| 8801 | (let ((#{_ 2885}# #{tmp 2843}#)) | |
| e2ccab57 AW |
8802 | (syntax-violation |
| 8803 | 'fluid-let-syntax | |
| 8804 | "bad syntax" | |
| 1bbe0a63 AW |
8805 | (#{source-wrap 420}# |
| 8806 | #{e 2833}# | |
| 8807 | #{w 2835}# | |
| 8808 | #{s 2836}# | |
| 8809 | #{mod 2837}#)))))))) | |
| 8810 | (#{global-extend 340}# | |
| e2ccab57 AW |
8811 | 'core |
| 8812 | 'quote | |
| 1bbe0a63 AW |
8813 | (lambda (#{e 2886}# |
| 8814 | #{r 2887}# | |
| 8815 | #{w 2888}# | |
| 8816 | #{s 2889}# | |
| 8817 | #{mod 2890}#) | |
| 8818 | (let ((#{tmp 2896}# #{e 2886}#)) | |
| 8819 | (let ((#{tmp 2897}# | |
| 8820 | ($sc-dispatch #{tmp 2896}# '(_ any)))) | |
| 8821 | (if #{tmp 2897}# | |
| e2ccab57 | 8822 | (@apply |
| 1bbe0a63 AW |
8823 | (lambda (#{e 2899}#) |
| 8824 | (#{build-data 292}# | |
| 8825 | #{s 2889}# | |
| 8826 | (#{strip 458}# #{e 2899}# #{w 2888}#))) | |
| 8827 | #{tmp 2897}#) | |
| 8828 | (let ((#{_ 2901}# #{tmp 2896}#)) | |
| e2ccab57 AW |
8829 | (syntax-violation |
| 8830 | 'quote | |
| 8831 | "bad syntax" | |
| 1bbe0a63 AW |
8832 | (#{source-wrap 420}# |
| 8833 | #{e 2886}# | |
| 8834 | #{w 2888}# | |
| 8835 | #{s 2889}# | |
| 8836 | #{mod 2890}#)))))))) | |
| 8837 | (#{global-extend 340}# | |
| e2ccab57 AW |
8838 | 'core |
| 8839 | 'syntax | |
| 8840 | (letrec* | |
| 1bbe0a63 AW |
8841 | ((#{gen-syntax 2903}# |
| 8842 | (lambda (#{src 2918}# | |
| 8843 | #{e 2919}# | |
| 8844 | #{r 2920}# | |
| 8845 | #{maps 2921}# | |
| 8846 | #{ellipsis? 2922}# | |
| 8847 | #{mod 2923}#) | |
| 8848 | (if (#{id? 344}# #{e 2919}#) | |
| e2ccab57 | 8849 | (begin |
| 1bbe0a63 AW |
8850 | (let ((#{label 2931}# |
| 8851 | (#{id-var-name 406}# #{e 2919}# '(())))) | |
| e2ccab57 | 8852 | (begin |
| 1bbe0a63 AW |
8853 | (let ((#{b 2934}# |
| 8854 | (#{lookup 338}# | |
| 8855 | #{label 2931}# | |
| 8856 | #{r 2920}# | |
| 8857 | #{mod 2923}#))) | |
| 8858 | (if (eq? (car #{b 2934}#) 'syntax) | |
| e2ccab57 AW |
8859 | (call-with-values |
| 8860 | (lambda () | |
| 8861 | (begin | |
| 1bbe0a63 AW |
8862 | (let ((#{var.lev 2937}# (cdr #{b 2934}#))) |
| 8863 | (#{gen-ref 2905}# | |
| 8864 | #{src 2918}# | |
| 8865 | (car #{var.lev 2937}#) | |
| 8866 | (cdr #{var.lev 2937}#) | |
| 8867 | #{maps 2921}#)))) | |
| 8868 | (lambda (#{var 2939}# #{maps 2940}#) | |
| e2ccab57 | 8869 | (values |
| 1bbe0a63 AW |
8870 | (list 'ref #{var 2939}#) |
| 8871 | #{maps 2940}#))) | |
| 8872 | (if (#{ellipsis? 2922}# #{e 2919}#) | |
| e2ccab57 AW |
8873 | (syntax-violation |
| 8874 | 'syntax | |
| 8875 | "misplaced ellipsis" | |
| 1bbe0a63 | 8876 | #{src 2918}#) |
| e2ccab57 | 8877 | (values |
| 1bbe0a63 AW |
8878 | (list 'quote #{e 2919}#) |
| 8879 | #{maps 2921}#))))))) | |
| 8880 | (let ((#{tmp 2945}# #{e 2919}#)) | |
| 8881 | (let ((#{tmp 2946}# | |
| 8882 | ($sc-dispatch #{tmp 2945}# '(any any)))) | |
| 8883 | (if (if #{tmp 2946}# | |
| e2ccab57 | 8884 | (@apply |
| 1bbe0a63 AW |
8885 | (lambda (#{dots 2949}# #{e 2950}#) |
| 8886 | (#{ellipsis? 2922}# #{dots 2949}#)) | |
| 8887 | #{tmp 2946}#) | |
| e2ccab57 AW |
8888 | #f) |
| 8889 | (@apply | |
| 1bbe0a63 AW |
8890 | (lambda (#{dots 2953}# #{e 2954}#) |
| 8891 | (#{gen-syntax 2903}# | |
| 8892 | #{src 2918}# | |
| 8893 | #{e 2954}# | |
| 8894 | #{r 2920}# | |
| 8895 | #{maps 2921}# | |
| 8896 | (lambda (#{x 2955}#) #f) | |
| 8897 | #{mod 2923}#)) | |
| 8898 | #{tmp 2946}#) | |
| 8899 | (let ((#{tmp 2957}# | |
| 8900 | ($sc-dispatch #{tmp 2945}# '(any any . any)))) | |
| 8901 | (if (if #{tmp 2957}# | |
| e2ccab57 | 8902 | (@apply |
| 1bbe0a63 AW |
8903 | (lambda (#{x 2961}# #{dots 2962}# #{y 2963}#) |
| 8904 | (#{ellipsis? 2922}# #{dots 2962}#)) | |
| 8905 | #{tmp 2957}#) | |
| e2ccab57 AW |
8906 | #f) |
| 8907 | (@apply | |
| 1bbe0a63 | 8908 | (lambda (#{x 2967}# #{dots 2968}# #{y 2969}#) |
| e2ccab57 | 8909 | (letrec* |
| 1bbe0a63 AW |
8910 | ((#{f 2973}# |
| 8911 | (lambda (#{y 2974}# #{k 2975}#) | |
| 8912 | (let ((#{tmp 2982}# #{y 2974}#)) | |
| 8913 | (let ((#{tmp 2983}# | |
| e2ccab57 | 8914 | ($sc-dispatch |
| 1bbe0a63 | 8915 | #{tmp 2982}# |
| e2ccab57 | 8916 | '(any . any)))) |
| 1bbe0a63 | 8917 | (if (if #{tmp 2983}# |
| e2ccab57 | 8918 | (@apply |
| 1bbe0a63 AW |
8919 | (lambda (#{dots 2986}# |
| 8920 | #{y 2987}#) | |
| 8921 | (#{ellipsis? 2922}# | |
| 8922 | #{dots 2986}#)) | |
| 8923 | #{tmp 2983}#) | |
| e2ccab57 AW |
8924 | #f) |
| 8925 | (@apply | |
| 1bbe0a63 AW |
8926 | (lambda (#{dots 2990}# |
| 8927 | #{y 2991}#) | |
| 8928 | (#{f 2973}# | |
| 8929 | #{y 2991}# | |
| 8930 | (lambda (#{maps 2992}#) | |
| e2ccab57 AW |
8931 | (call-with-values |
| 8932 | (lambda () | |
| 1bbe0a63 | 8933 | (#{k 2975}# |
| e2ccab57 | 8934 | (cons '() |
| 1bbe0a63 AW |
8935 | #{maps 2992}#))) |
| 8936 | (lambda (#{x 2994}# | |
| 8937 | #{maps 2995}#) | |
| 8938 | (if (null? (car #{maps 2995}#)) | |
| e2ccab57 AW |
8939 | (syntax-violation |
| 8940 | 'syntax | |
| 8941 | "extra ellipsis" | |
| 1bbe0a63 | 8942 | #{src 2918}#) |
| e2ccab57 | 8943 | (values |
| 1bbe0a63 AW |
8944 | (#{gen-mappend 2907}# |
| 8945 | #{x 2994}# | |
| 8946 | (car #{maps 2995}#)) | |
| 8947 | (cdr #{maps 2995}#)))))))) | |
| 8948 | #{tmp 2983}#) | |
| 8949 | (let ((#{_ 2999}# #{tmp 2982}#)) | |
| e2ccab57 AW |
8950 | (call-with-values |
| 8951 | (lambda () | |
| 1bbe0a63 AW |
8952 | (#{gen-syntax 2903}# |
| 8953 | #{src 2918}# | |
| 8954 | #{y 2974}# | |
| 8955 | #{r 2920}# | |
| 8956 | #{maps 2921}# | |
| 8957 | #{ellipsis? 2922}# | |
| 8958 | #{mod 2923}#)) | |
| 8959 | (lambda (#{y 3000}# | |
| 8960 | #{maps 3001}#) | |
| e2ccab57 AW |
8961 | (call-with-values |
| 8962 | (lambda () | |
| 1bbe0a63 AW |
8963 | (#{k 2975}# |
| 8964 | #{maps 3001}#)) | |
| 8965 | (lambda (#{x 3004}# | |
| 8966 | #{maps 3005}#) | |
| e2ccab57 | 8967 | (values |
| 1bbe0a63 AW |
8968 | (#{gen-append 2913}# |
| 8969 | #{x 3004}# | |
| 8970 | #{y 3000}#) | |
| 8971 | #{maps 3005}#)))))))))))) | |
| e2ccab57 | 8972 | (begin |
| 1bbe0a63 AW |
8973 | (#{f 2973}# |
| 8974 | #{y 2969}# | |
| 8975 | (lambda (#{maps 2976}#) | |
| e2ccab57 AW |
8976 | (call-with-values |
| 8977 | (lambda () | |
| 1bbe0a63 AW |
8978 | (#{gen-syntax 2903}# |
| 8979 | #{src 2918}# | |
| 8980 | #{x 2967}# | |
| 8981 | #{r 2920}# | |
| 8982 | (cons '() #{maps 2976}#) | |
| 8983 | #{ellipsis? 2922}# | |
| 8984 | #{mod 2923}#)) | |
| 8985 | (lambda (#{x 2978}# #{maps 2979}#) | |
| 8986 | (if (null? (car #{maps 2979}#)) | |
| e2ccab57 AW |
8987 | (syntax-violation |
| 8988 | 'syntax | |
| 8989 | "extra ellipsis" | |
| 1bbe0a63 | 8990 | #{src 2918}#) |
| e2ccab57 | 8991 | (values |
| 1bbe0a63 AW |
8992 | (#{gen-map 2909}# |
| 8993 | #{x 2978}# | |
| 8994 | (car #{maps 2979}#)) | |
| 8995 | (cdr #{maps 2979}#)))))))))) | |
| 8996 | #{tmp 2957}#) | |
| 8997 | (let ((#{tmp 3008}# | |
| 8998 | ($sc-dispatch #{tmp 2945}# '(any . any)))) | |
| 8999 | (if #{tmp 3008}# | |
| e2ccab57 | 9000 | (@apply |
| 1bbe0a63 | 9001 | (lambda (#{x 3011}# #{y 3012}#) |
| e2ccab57 AW |
9002 | (call-with-values |
| 9003 | (lambda () | |
| 1bbe0a63 AW |
9004 | (#{gen-syntax 2903}# |
| 9005 | #{src 2918}# | |
| 9006 | #{x 3011}# | |
| 9007 | #{r 2920}# | |
| 9008 | #{maps 2921}# | |
| 9009 | #{ellipsis? 2922}# | |
| 9010 | #{mod 2923}#)) | |
| 9011 | (lambda (#{x 3013}# #{maps 3014}#) | |
| e2ccab57 AW |
9012 | (call-with-values |
| 9013 | (lambda () | |
| 1bbe0a63 AW |
9014 | (#{gen-syntax 2903}# |
| 9015 | #{src 2918}# | |
| 9016 | #{y 3012}# | |
| 9017 | #{r 2920}# | |
| 9018 | #{maps 3014}# | |
| 9019 | #{ellipsis? 2922}# | |
| 9020 | #{mod 2923}#)) | |
| 9021 | (lambda (#{y 3017}# #{maps 3018}#) | |
| e2ccab57 | 9022 | (values |
| 1bbe0a63 AW |
9023 | (#{gen-cons 2911}# |
| 9024 | #{x 3013}# | |
| 9025 | #{y 3017}#) | |
| 9026 | #{maps 3018}#)))))) | |
| 9027 | #{tmp 3008}#) | |
| 9028 | (let ((#{tmp 3021}# | |
| e2ccab57 | 9029 | ($sc-dispatch |
| 1bbe0a63 | 9030 | #{tmp 2945}# |
| e2ccab57 | 9031 | '#(vector (any . each-any))))) |
| 1bbe0a63 | 9032 | (if #{tmp 3021}# |
| e2ccab57 | 9033 | (@apply |
| 1bbe0a63 | 9034 | (lambda (#{e1 3024}# #{e2 3025}#) |
| e2ccab57 AW |
9035 | (call-with-values |
| 9036 | (lambda () | |
| 1bbe0a63 AW |
9037 | (#{gen-syntax 2903}# |
| 9038 | #{src 2918}# | |
| 9039 | (cons #{e1 3024}# #{e2 3025}#) | |
| 9040 | #{r 2920}# | |
| 9041 | #{maps 2921}# | |
| 9042 | #{ellipsis? 2922}# | |
| 9043 | #{mod 2923}#)) | |
| 9044 | (lambda (#{e 3027}# #{maps 3028}#) | |
| e2ccab57 | 9045 | (values |
| 1bbe0a63 AW |
9046 | (#{gen-vector 2915}# #{e 3027}#) |
| 9047 | #{maps 3028}#)))) | |
| 9048 | #{tmp 3021}#) | |
| 9049 | (let ((#{_ 3032}# #{tmp 2945}#)) | |
| e2ccab57 | 9050 | (values |
| 1bbe0a63 AW |
9051 | (list 'quote #{e 2919}#) |
| 9052 | #{maps 2921}#)))))))))))))) | |
| 9053 | (#{gen-ref 2905}# | |
| 9054 | (lambda (#{src 3034}# | |
| 9055 | #{var 3035}# | |
| 9056 | #{level 3036}# | |
| 9057 | #{maps 3037}#) | |
| 9058 | (if (= #{level 3036}# 0) | |
| 9059 | (values #{var 3035}# #{maps 3037}#) | |
| 9060 | (if (null? #{maps 3037}#) | |
| e2ccab57 AW |
9061 | (syntax-violation |
| 9062 | 'syntax | |
| 9063 | "missing ellipsis" | |
| 1bbe0a63 | 9064 | #{src 3034}#) |
| e2ccab57 AW |
9065 | (call-with-values |
| 9066 | (lambda () | |
| 1bbe0a63 AW |
9067 | (#{gen-ref 2905}# |
| 9068 | #{src 3034}# | |
| 9069 | #{var 3035}# | |
| 9070 | (#{1-}# #{level 3036}#) | |
| 9071 | (cdr #{maps 3037}#))) | |
| 9072 | (lambda (#{outer-var 3044}# #{outer-maps 3045}#) | |
| e2ccab57 | 9073 | (begin |
| 1bbe0a63 AW |
9074 | (let ((#{b 3049}# |
| 9075 | (assq #{outer-var 3044}# | |
| 9076 | (car #{maps 3037}#)))) | |
| 9077 | (if #{b 3049}# | |
| 9078 | (values (cdr #{b 3049}#) #{maps 3037}#) | |
| e2ccab57 | 9079 | (begin |
| 1bbe0a63 AW |
9080 | (let ((#{inner-var 3051}# |
| 9081 | (#{gen-var 460}# 'tmp))) | |
| e2ccab57 | 9082 | (values |
| 1bbe0a63 AW |
9083 | #{inner-var 3051}# |
| 9084 | (cons (cons (cons #{outer-var 3044}# | |
| 9085 | #{inner-var 3051}#) | |
| 9086 | (car #{maps 3037}#)) | |
| 9087 | #{outer-maps 3045}#))))))))))))) | |
| 9088 | (#{gen-mappend 2907}# | |
| 9089 | (lambda (#{e 3052}# #{map-env 3053}#) | |
| e2ccab57 AW |
9090 | (list 'apply |
| 9091 | '(primitive append) | |
| 1bbe0a63 AW |
9092 | (#{gen-map 2909}# #{e 3052}# #{map-env 3053}#)))) |
| 9093 | (#{gen-map 2909}# | |
| 9094 | (lambda (#{e 3057}# #{map-env 3058}#) | |
| e2ccab57 | 9095 | (begin |
| 1bbe0a63 AW |
9096 | (let ((#{formals 3063}# (map cdr #{map-env 3058}#)) |
| 9097 | (#{actuals 3064}# | |
| 9098 | (map (lambda (#{x 3065}#) | |
| 9099 | (list 'ref (car #{x 3065}#))) | |
| 9100 | #{map-env 3058}#))) | |
| 9101 | (if (eq? (car #{e 3057}#) 'ref) | |
| 9102 | (car #{actuals 3064}#) | |
| e2ccab57 | 9103 | (if (and-map |
| 1bbe0a63 AW |
9104 | (lambda (#{x 3072}#) |
| 9105 | (if (eq? (car #{x 3072}#) 'ref) | |
| 9106 | (memq (car (cdr #{x 3072}#)) #{formals 3063}#) | |
| e2ccab57 | 9107 | #f)) |
| 1bbe0a63 | 9108 | (cdr #{e 3057}#)) |
| e2ccab57 | 9109 | (cons 'map |
| 1bbe0a63 | 9110 | (cons (list 'primitive (car #{e 3057}#)) |
| e2ccab57 | 9111 | (map (begin |
| 1bbe0a63 | 9112 | (let ((#{r 3078}# |
| e2ccab57 | 9113 | (map cons |
| 1bbe0a63 AW |
9114 | #{formals 3063}# |
| 9115 | #{actuals 3064}#))) | |
| 9116 | (lambda (#{x 3079}#) | |
| 9117 | (cdr (assq (car (cdr #{x 3079}#)) | |
| 9118 | #{r 3078}#))))) | |
| 9119 | (cdr #{e 3057}#)))) | |
| e2ccab57 | 9120 | (cons 'map |
| 1bbe0a63 AW |
9121 | (cons (list 'lambda #{formals 3063}# #{e 3057}#) |
| 9122 | #{actuals 3064}#)))))))) | |
| 9123 | (#{gen-cons 2911}# | |
| 9124 | (lambda (#{x 3083}# #{y 3084}#) | |
| e2ccab57 | 9125 | (begin |
| 1bbe0a63 AW |
9126 | (let ((#{atom-key 3089}# (car #{y 3084}#))) |
| 9127 | (if (eqv? #{atom-key 3089}# 'quote) | |
| 9128 | (if (eq? (car #{x 3083}#) 'quote) | |
| e2ccab57 | 9129 | (list 'quote |
| 1bbe0a63 AW |
9130 | (cons (car (cdr #{x 3083}#)) |
| 9131 | (car (cdr #{y 3084}#)))) | |
| 9132 | (if (eq? (car (cdr #{y 3084}#)) '()) | |
| 9133 | (list 'list #{x 3083}#) | |
| 9134 | (list 'cons #{x 3083}# #{y 3084}#))) | |
| 9135 | (if (eqv? #{atom-key 3089}# 'list) | |
| 9136 | (cons 'list (cons #{x 3083}# (cdr #{y 3084}#))) | |
| 9137 | (list 'cons #{x 3083}# #{y 3084}#))))))) | |
| 9138 | (#{gen-append 2913}# | |
| 9139 | (lambda (#{x 3098}# #{y 3099}#) | |
| 9140 | (if (equal? #{y 3099}# ''()) | |
| 9141 | #{x 3098}# | |
| 9142 | (list 'append #{x 3098}# #{y 3099}#)))) | |
| 9143 | (#{gen-vector 2915}# | |
| 9144 | (lambda (#{x 3103}#) | |
| 9145 | (if (eq? (car #{x 3103}#) 'list) | |
| 9146 | (cons 'vector (cdr #{x 3103}#)) | |
| 9147 | (if (eq? (car #{x 3103}#) 'quote) | |
| e2ccab57 | 9148 | (list 'quote |
| 1bbe0a63 AW |
9149 | (list->vector (car (cdr #{x 3103}#)))) |
| 9150 | (list 'list->vector #{x 3103}#))))) | |
| 9151 | (#{regen 2917}# | |
| 9152 | (lambda (#{x 3113}#) | |
| e2ccab57 | 9153 | (begin |
| 1bbe0a63 AW |
9154 | (let ((#{atom-key 3117}# (car #{x 3113}#))) |
| 9155 | (if (eqv? #{atom-key 3117}# 'ref) | |
| 9156 | (#{build-lexical-reference 272}# | |
| e2ccab57 AW |
9157 | 'value |
| 9158 | #f | |
| 1bbe0a63 AW |
9159 | (car (cdr #{x 3113}#)) |
| 9160 | (car (cdr #{x 3113}#))) | |
| 9161 | (if (eqv? #{atom-key 3117}# 'primitive) | |
| 9162 | (#{build-primref 290}# #f (car (cdr #{x 3113}#))) | |
| 9163 | (if (eqv? #{atom-key 3117}# 'quote) | |
| 9164 | (#{build-data 292}# #f (car (cdr #{x 3113}#))) | |
| 9165 | (if (eqv? #{atom-key 3117}# 'lambda) | |
| 9166 | (if (list? (car (cdr #{x 3113}#))) | |
| 9167 | (#{build-simple-lambda 284}# | |
| e2ccab57 | 9168 | #f |
| 1bbe0a63 | 9169 | (car (cdr #{x 3113}#)) |
| e2ccab57 | 9170 | #f |
| 1bbe0a63 | 9171 | (car (cdr #{x 3113}#)) |
| e2ccab57 | 9172 | '() |
| 1bbe0a63 AW |
9173 | (#{regen 2917}# (car (cdr (cdr #{x 3113}#))))) |
| 9174 | (error "how did we get here" #{x 3113}#)) | |
| 9175 | (#{build-application 266}# | |
| e2ccab57 | 9176 | #f |
| 1bbe0a63 AW |
9177 | (#{build-primref 290}# #f (car #{x 3113}#)) |
| 9178 | (map #{regen 2917}# (cdr #{x 3113}#)))))))))))) | |
| e2ccab57 | 9179 | (begin |
| 1bbe0a63 AW |
9180 | (lambda (#{e 3129}# |
| 9181 | #{r 3130}# | |
| 9182 | #{w 3131}# | |
| 9183 | #{s 3132}# | |
| 9184 | #{mod 3133}#) | |
| e2ccab57 | 9185 | (begin |
| 1bbe0a63 AW |
9186 | (let ((#{e 3140}# |
| 9187 | (#{source-wrap 420}# | |
| 9188 | #{e 3129}# | |
| 9189 | #{w 3131}# | |
| 9190 | #{s 3132}# | |
| 9191 | #{mod 3133}#))) | |
| 9192 | (let ((#{tmp 3141}# #{e 3140}#)) | |
| 9193 | (let ((#{tmp 3142}# | |
| 9194 | ($sc-dispatch #{tmp 3141}# '(_ any)))) | |
| 9195 | (if #{tmp 3142}# | |
| e2ccab57 | 9196 | (@apply |
| 1bbe0a63 | 9197 | (lambda (#{x 3144}#) |
| e2ccab57 AW |
9198 | (call-with-values |
| 9199 | (lambda () | |
| 1bbe0a63 AW |
9200 | (#{gen-syntax 2903}# |
| 9201 | #{e 3140}# | |
| 9202 | #{x 3144}# | |
| 9203 | #{r 3130}# | |
| e2ccab57 | 9204 | '() |
| 1bbe0a63 AW |
9205 | #{ellipsis? 448}# |
| 9206 | #{mod 3133}#)) | |
| 9207 | (lambda (#{e 3145}# #{maps 3146}#) | |
| 9208 | (#{regen 2917}# #{e 3145}#)))) | |
| 9209 | #{tmp 3142}#) | |
| 9210 | (let ((#{_ 3150}# #{tmp 3141}#)) | |
| e2ccab57 AW |
9211 | (syntax-violation |
| 9212 | 'syntax | |
| 9213 | "bad `syntax' form" | |
| 1bbe0a63 AW |
9214 | #{e 3140}#))))))))))) |
| 9215 | (#{global-extend 340}# | |
| e2ccab57 AW |
9216 | 'core |
| 9217 | 'lambda | |
| 1bbe0a63 AW |
9218 | (lambda (#{e 3151}# |
| 9219 | #{r 3152}# | |
| 9220 | #{w 3153}# | |
| 9221 | #{s 3154}# | |
| 9222 | #{mod 3155}#) | |
| 9223 | (let ((#{tmp 3161}# #{e 3151}#)) | |
| 9224 | (let ((#{tmp 3162}# | |
| e2ccab57 | 9225 | ($sc-dispatch |
| 1bbe0a63 | 9226 | #{tmp 3161}# |
| e2ccab57 | 9227 | '(_ any any . each-any)))) |
| 1bbe0a63 | 9228 | (if #{tmp 3162}# |
| e2ccab57 | 9229 | (@apply |
| 1bbe0a63 | 9230 | (lambda (#{args 3166}# #{e1 3167}# #{e2 3168}#) |
| e2ccab57 AW |
9231 | (call-with-values |
| 9232 | (lambda () | |
| 1bbe0a63 AW |
9233 | (#{lambda-formals 450}# #{args 3166}#)) |
| 9234 | (lambda (#{req 3169}# | |
| 9235 | #{opt 3170}# | |
| 9236 | #{rest 3171}# | |
| 9237 | #{kw 3172}#) | |
| e2ccab57 | 9238 | (letrec* |
| 1bbe0a63 AW |
9239 | ((#{lp 3180}# |
| 9240 | (lambda (#{body 3181}# #{meta 3182}#) | |
| 9241 | (let ((#{tmp 3184}# #{body 3181}#)) | |
| 9242 | (let ((#{tmp 3185}# | |
| e2ccab57 | 9243 | ($sc-dispatch |
| 1bbe0a63 | 9244 | #{tmp 3184}# |
| e2ccab57 | 9245 | '(any any . each-any)))) |
| 1bbe0a63 | 9246 | (if (if #{tmp 3185}# |
| e2ccab57 | 9247 | (@apply |
| 1bbe0a63 AW |
9248 | (lambda (#{docstring 3189}# |
| 9249 | #{e1 3190}# | |
| 9250 | #{e2 3191}#) | |
| e2ccab57 AW |
9251 | (string? |
| 9252 | (syntax->datum | |
| 1bbe0a63 AW |
9253 | #{docstring 3189}#))) |
| 9254 | #{tmp 3185}#) | |
| e2ccab57 AW |
9255 | #f) |
| 9256 | (@apply | |
| 1bbe0a63 AW |
9257 | (lambda (#{docstring 3195}# |
| 9258 | #{e1 3196}# | |
| 9259 | #{e2 3197}#) | |
| 9260 | (#{lp 3180}# | |
| 9261 | (cons #{e1 3196}# #{e2 3197}#) | |
| e2ccab57 | 9262 | (append |
| 1bbe0a63 | 9263 | #{meta 3182}# |
| e2ccab57 AW |
9264 | (list (cons 'documentation |
| 9265 | (syntax->datum | |
| 1bbe0a63 AW |
9266 | #{docstring 3195}#)))))) |
| 9267 | #{tmp 3185}#) | |
| 9268 | (let ((#{tmp 3200}# | |
| e2ccab57 | 9269 | ($sc-dispatch |
| 1bbe0a63 | 9270 | #{tmp 3184}# |
| e2ccab57 AW |
9271 | '(#(vector #(each (any . any))) |
| 9272 | any | |
| 9273 | . | |
| 9274 | each-any)))) | |
| 1bbe0a63 | 9275 | (if #{tmp 3200}# |
| e2ccab57 | 9276 | (@apply |
| 1bbe0a63 AW |
9277 | (lambda (#{k 3205}# |
| 9278 | #{v 3206}# | |
| 9279 | #{e1 3207}# | |
| 9280 | #{e2 3208}#) | |
| 9281 | (#{lp 3180}# | |
| 9282 | (cons #{e1 3207}# #{e2 3208}#) | |
| e2ccab57 | 9283 | (append |
| 1bbe0a63 | 9284 | #{meta 3182}# |
| e2ccab57 AW |
9285 | (syntax->datum |
| 9286 | (map cons | |
| 1bbe0a63 AW |
9287 | #{k 3205}# |
| 9288 | #{v 3206}#))))) | |
| 9289 | #{tmp 3200}#) | |
| 9290 | (let ((#{_ 3213}# #{tmp 3184}#)) | |
| 9291 | (#{chi-simple-lambda 452}# | |
| 9292 | #{e 3151}# | |
| 9293 | #{r 3152}# | |
| 9294 | #{w 3153}# | |
| 9295 | #{s 3154}# | |
| 9296 | #{mod 3155}# | |
| 9297 | #{req 3169}# | |
| 9298 | #{rest 3171}# | |
| 9299 | #{meta 3182}# | |
| 9300 | #{body 3181}#)))))))))) | |
| e2ccab57 | 9301 | (begin |
| 1bbe0a63 AW |
9302 | (#{lp 3180}# |
| 9303 | (cons #{e1 3167}# #{e2 3168}#) | |
| e2ccab57 | 9304 | '())))))) |
| 1bbe0a63 AW |
9305 | #{tmp 3162}#) |
| 9306 | (let ((#{_ 3215}# #{tmp 3161}#)) | |
| e2ccab57 AW |
9307 | (syntax-violation |
| 9308 | 'lambda | |
| 9309 | "bad lambda" | |
| 1bbe0a63 AW |
9310 | #{e 3151}#))))))) |
| 9311 | (#{global-extend 340}# | |
| e2ccab57 AW |
9312 | 'core |
| 9313 | 'lambda* | |
| 1bbe0a63 AW |
9314 | (lambda (#{e 3216}# |
| 9315 | #{r 3217}# | |
| 9316 | #{w 3218}# | |
| 9317 | #{s 3219}# | |
| 9318 | #{mod 3220}#) | |
| 9319 | (let ((#{tmp 3226}# #{e 3216}#)) | |
| 9320 | (let ((#{tmp 3227}# | |
| e2ccab57 | 9321 | ($sc-dispatch |
| 1bbe0a63 | 9322 | #{tmp 3226}# |
| e2ccab57 | 9323 | '(_ any any . each-any)))) |
| 1bbe0a63 | 9324 | (if #{tmp 3227}# |
| e2ccab57 | 9325 | (@apply |
| 1bbe0a63 | 9326 | (lambda (#{args 3231}# #{e1 3232}# #{e2 3233}#) |
| e2ccab57 AW |
9327 | (call-with-values |
| 9328 | (lambda () | |
| 1bbe0a63 AW |
9329 | (#{chi-lambda-case 456}# |
| 9330 | #{e 3216}# | |
| 9331 | #{r 3217}# | |
| 9332 | #{w 3218}# | |
| 9333 | #{s 3219}# | |
| 9334 | #{mod 3220}# | |
| 9335 | #{lambda*-formals 454}# | |
| 9336 | (list (cons #{args 3231}# | |
| 9337 | (cons #{e1 3232}# #{e2 3233}#))))) | |
| 9338 | (lambda (#{meta 3235}# #{lcase 3236}#) | |
| 9339 | (#{build-case-lambda 286}# | |
| 9340 | #{s 3219}# | |
| 9341 | #{meta 3235}# | |
| 9342 | #{lcase 3236}#)))) | |
| 9343 | #{tmp 3227}#) | |
| 9344 | (let ((#{_ 3240}# #{tmp 3226}#)) | |
| e2ccab57 AW |
9345 | (syntax-violation |
| 9346 | 'lambda | |
| 9347 | "bad lambda*" | |
| 1bbe0a63 AW |
9348 | #{e 3216}#))))))) |
| 9349 | (#{global-extend 340}# | |
| e2ccab57 AW |
9350 | 'core |
| 9351 | 'case-lambda | |
| 1bbe0a63 AW |
9352 | (lambda (#{e 3241}# |
| 9353 | #{r 3242}# | |
| 9354 | #{w 3243}# | |
| 9355 | #{s 3244}# | |
| 9356 | #{mod 3245}#) | |
| 9357 | (let ((#{tmp 3251}# #{e 3241}#)) | |
| 9358 | (let ((#{tmp 3252}# | |
| e2ccab57 | 9359 | ($sc-dispatch |
| 1bbe0a63 | 9360 | #{tmp 3251}# |
| e2ccab57 AW |
9361 | '(_ (any any . each-any) |
| 9362 | . | |
| 9363 | #(each (any any . each-any)))))) | |
| 1bbe0a63 | 9364 | (if #{tmp 3252}# |
| e2ccab57 | 9365 | (@apply |
| 1bbe0a63 AW |
9366 | (lambda (#{args 3259}# |
| 9367 | #{e1 3260}# | |
| 9368 | #{e2 3261}# | |
| 9369 | #{args* 3262}# | |
| 9370 | #{e1* 3263}# | |
| 9371 | #{e2* 3264}#) | |
| e2ccab57 AW |
9372 | (call-with-values |
| 9373 | (lambda () | |
| 1bbe0a63 AW |
9374 | (#{chi-lambda-case 456}# |
| 9375 | #{e 3241}# | |
| 9376 | #{r 3242}# | |
| 9377 | #{w 3243}# | |
| 9378 | #{s 3244}# | |
| 9379 | #{mod 3245}# | |
| 9380 | #{lambda-formals 450}# | |
| 9381 | (cons (cons #{args 3259}# | |
| 9382 | (cons #{e1 3260}# #{e2 3261}#)) | |
| 9383 | (map (lambda (#{tmp 3268}# | |
| 9384 | #{tmp 3267}# | |
| 9385 | #{tmp 3266}#) | |
| 9386 | (cons #{tmp 3266}# | |
| 9387 | (cons #{tmp 3267}# #{tmp 3268}#))) | |
| 9388 | #{e2* 3264}# | |
| 9389 | #{e1* 3263}# | |
| 9390 | #{args* 3262}#)))) | |
| 9391 | (lambda (#{meta 3270}# #{lcase 3271}#) | |
| 9392 | (#{build-case-lambda 286}# | |
| 9393 | #{s 3244}# | |
| 9394 | #{meta 3270}# | |
| 9395 | #{lcase 3271}#)))) | |
| 9396 | #{tmp 3252}#) | |
| 9397 | (let ((#{_ 3275}# #{tmp 3251}#)) | |
| e2ccab57 AW |
9398 | (syntax-violation |
| 9399 | 'case-lambda | |
| 9400 | "bad case-lambda" | |
| 1bbe0a63 AW |
9401 | #{e 3241}#))))))) |
| 9402 | (#{global-extend 340}# | |
| e2ccab57 AW |
9403 | 'core |
| 9404 | 'case-lambda* | |
| 1bbe0a63 AW |
9405 | (lambda (#{e 3276}# |
| 9406 | #{r 3277}# | |
| 9407 | #{w 3278}# | |
| 9408 | #{s 3279}# | |
| 9409 | #{mod 3280}#) | |
| 9410 | (let ((#{tmp 3286}# #{e 3276}#)) | |
| 9411 | (let ((#{tmp 3287}# | |
| e2ccab57 | 9412 | ($sc-dispatch |
| 1bbe0a63 | 9413 | #{tmp 3286}# |
| e2ccab57 AW |
9414 | '(_ (any any . each-any) |
| 9415 | . | |
| 9416 | #(each (any any . each-any)))))) | |
| 1bbe0a63 | 9417 | (if #{tmp 3287}# |
| e2ccab57 | 9418 | (@apply |
| 1bbe0a63 AW |
9419 | (lambda (#{args 3294}# |
| 9420 | #{e1 3295}# | |
| 9421 | #{e2 3296}# | |
| 9422 | #{args* 3297}# | |
| 9423 | #{e1* 3298}# | |
| 9424 | #{e2* 3299}#) | |
| e2ccab57 AW |
9425 | (call-with-values |
| 9426 | (lambda () | |
| 1bbe0a63 AW |
9427 | (#{chi-lambda-case 456}# |
| 9428 | #{e 3276}# | |
| 9429 | #{r 3277}# | |
| 9430 | #{w 3278}# | |
| 9431 | #{s 3279}# | |
| 9432 | #{mod 3280}# | |
| 9433 | #{lambda*-formals 454}# | |
| 9434 | (cons (cons #{args 3294}# | |
| 9435 | (cons #{e1 3295}# #{e2 3296}#)) | |
| 9436 | (map (lambda (#{tmp 3303}# | |
| 9437 | #{tmp 3302}# | |
| 9438 | #{tmp 3301}#) | |
| 9439 | (cons #{tmp 3301}# | |
| 9440 | (cons #{tmp 3302}# #{tmp 3303}#))) | |
| 9441 | #{e2* 3299}# | |
| 9442 | #{e1* 3298}# | |
| 9443 | #{args* 3297}#)))) | |
| 9444 | (lambda (#{meta 3305}# #{lcase 3306}#) | |
| 9445 | (#{build-case-lambda 286}# | |
| 9446 | #{s 3279}# | |
| 9447 | #{meta 3305}# | |
| 9448 | #{lcase 3306}#)))) | |
| 9449 | #{tmp 3287}#) | |
| 9450 | (let ((#{_ 3310}# #{tmp 3286}#)) | |
| e2ccab57 AW |
9451 | (syntax-violation |
| 9452 | 'case-lambda | |
| 9453 | "bad case-lambda*" | |
| 1bbe0a63 AW |
9454 | #{e 3276}#))))))) |
| 9455 | (#{global-extend 340}# | |
| e2ccab57 AW |
9456 | 'core |
| 9457 | 'let | |
| 9458 | (letrec* | |
| 1bbe0a63 AW |
9459 | ((#{chi-let 3312}# |
| 9460 | (lambda (#{e 3313}# | |
| 9461 | #{r 3314}# | |
| 9462 | #{w 3315}# | |
| 9463 | #{s 3316}# | |
| 9464 | #{mod 3317}# | |
| 9465 | #{constructor 3318}# | |
| 9466 | #{ids 3319}# | |
| 9467 | #{vals 3320}# | |
| 9468 | #{exps 3321}#) | |
| 9469 | (if (not (#{valid-bound-ids? 412}# #{ids 3319}#)) | |
| e2ccab57 AW |
9470 | (syntax-violation |
| 9471 | 'let | |
| 9472 | "duplicate bound variable" | |
| 1bbe0a63 | 9473 | #{e 3313}#) |
| e2ccab57 | 9474 | (begin |
| 1bbe0a63 AW |
9475 | (let ((#{labels 3333}# |
| 9476 | (#{gen-labels 364}# #{ids 3319}#)) | |
| 9477 | (#{new-vars 3334}# | |
| 9478 | (map #{gen-var 460}# #{ids 3319}#))) | |
| e2ccab57 | 9479 | (begin |
| 1bbe0a63 AW |
9480 | (let ((#{nw 3337}# |
| 9481 | (#{make-binding-wrap 396}# | |
| 9482 | #{ids 3319}# | |
| 9483 | #{labels 3333}# | |
| 9484 | #{w 3315}#)) | |
| 9485 | (#{nr 3338}# | |
| 9486 | (#{extend-var-env 334}# | |
| 9487 | #{labels 3333}# | |
| 9488 | #{new-vars 3334}# | |
| 9489 | #{r 3314}#))) | |
| 9490 | (#{constructor 3318}# | |
| 9491 | #{s 3316}# | |
| 9492 | (map syntax->datum #{ids 3319}#) | |
| 9493 | #{new-vars 3334}# | |
| 9494 | (map (lambda (#{x 3339}#) | |
| 9495 | (#{chi 432}# | |
| 9496 | #{x 3339}# | |
| 9497 | #{r 3314}# | |
| 9498 | #{w 3315}# | |
| 9499 | #{mod 3317}#)) | |
| 9500 | #{vals 3320}#) | |
| 9501 | (#{chi-body 440}# | |
| 9502 | #{exps 3321}# | |
| 9503 | (#{source-wrap 420}# | |
| 9504 | #{e 3313}# | |
| 9505 | #{nw 3337}# | |
| 9506 | #{s 3316}# | |
| 9507 | #{mod 3317}#) | |
| 9508 | #{nr 3338}# | |
| 9509 | #{nw 3337}# | |
| 9510 | #{mod 3317}#)))))))))) | |
| e2ccab57 | 9511 | (begin |
| 1bbe0a63 AW |
9512 | (lambda (#{e 3341}# |
| 9513 | #{r 3342}# | |
| 9514 | #{w 3343}# | |
| 9515 | #{s 3344}# | |
| 9516 | #{mod 3345}#) | |
| 9517 | (let ((#{tmp 3351}# #{e 3341}#)) | |
| 9518 | (let ((#{tmp 3352}# | |
| e2ccab57 | 9519 | ($sc-dispatch |
| 1bbe0a63 | 9520 | #{tmp 3351}# |
| e2ccab57 | 9521 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 9522 | (if (if #{tmp 3352}# |
| e2ccab57 | 9523 | (@apply |
| 1bbe0a63 AW |
9524 | (lambda (#{id 3357}# |
| 9525 | #{val 3358}# | |
| 9526 | #{e1 3359}# | |
| 9527 | #{e2 3360}#) | |
| 9528 | (and-map #{id? 344}# #{id 3357}#)) | |
| 9529 | #{tmp 3352}#) | |
| e2ccab57 AW |
9530 | #f) |
| 9531 | (@apply | |
| 1bbe0a63 AW |
9532 | (lambda (#{id 3366}# |
| 9533 | #{val 3367}# | |
| 9534 | #{e1 3368}# | |
| 9535 | #{e2 3369}#) | |
| 9536 | (#{chi-let 3312}# | |
| 9537 | #{e 3341}# | |
| 9538 | #{r 3342}# | |
| 9539 | #{w 3343}# | |
| 9540 | #{s 3344}# | |
| 9541 | #{mod 3345}# | |
| 9542 | #{build-let 296}# | |
| 9543 | #{id 3366}# | |
| 9544 | #{val 3367}# | |
| 9545 | (cons #{e1 3368}# #{e2 3369}#))) | |
| 9546 | #{tmp 3352}#) | |
| 9547 | (let ((#{tmp 3373}# | |
| e2ccab57 | 9548 | ($sc-dispatch |
| 1bbe0a63 | 9549 | #{tmp 3351}# |
| e2ccab57 | 9550 | '(_ any #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 9551 | (if (if #{tmp 3373}# |
| e2ccab57 | 9552 | (@apply |
| 1bbe0a63 AW |
9553 | (lambda (#{f 3379}# |
| 9554 | #{id 3380}# | |
| 9555 | #{val 3381}# | |
| 9556 | #{e1 3382}# | |
| 9557 | #{e2 3383}#) | |
| 9558 | (if (#{id? 344}# #{f 3379}#) | |
| 9559 | (and-map #{id? 344}# #{id 3380}#) | |
| e2ccab57 | 9560 | #f)) |
| 1bbe0a63 | 9561 | #{tmp 3373}#) |
| e2ccab57 AW |
9562 | #f) |
| 9563 | (@apply | |
| 1bbe0a63 AW |
9564 | (lambda (#{f 3392}# |
| 9565 | #{id 3393}# | |
| 9566 | #{val 3394}# | |
| 9567 | #{e1 3395}# | |
| 9568 | #{e2 3396}#) | |
| 9569 | (#{chi-let 3312}# | |
| 9570 | #{e 3341}# | |
| 9571 | #{r 3342}# | |
| 9572 | #{w 3343}# | |
| 9573 | #{s 3344}# | |
| 9574 | #{mod 3345}# | |
| 9575 | #{build-named-let 298}# | |
| 9576 | (cons #{f 3392}# #{id 3393}#) | |
| 9577 | #{val 3394}# | |
| 9578 | (cons #{e1 3395}# #{e2 3396}#))) | |
| 9579 | #{tmp 3373}#) | |
| 9580 | (let ((#{_ 3401}# #{tmp 3351}#)) | |
| e2ccab57 AW |
9581 | (syntax-violation |
| 9582 | 'let | |
| 9583 | "bad let" | |
| 1bbe0a63 AW |
9584 | (#{source-wrap 420}# |
| 9585 | #{e 3341}# | |
| 9586 | #{w 3343}# | |
| 9587 | #{s 3344}# | |
| 9588 | #{mod 3345}#)))))))))))) | |
| 9589 | (#{global-extend 340}# | |
| e2ccab57 AW |
9590 | 'core |
| 9591 | 'letrec | |
| 1bbe0a63 AW |
9592 | (lambda (#{e 3402}# |
| 9593 | #{r 3403}# | |
| 9594 | #{w 3404}# | |
| 9595 | #{s 3405}# | |
| 9596 | #{mod 3406}#) | |
| 9597 | (let ((#{tmp 3412}# #{e 3402}#)) | |
| 9598 | (let ((#{tmp 3413}# | |
| e2ccab57 | 9599 | ($sc-dispatch |
| 1bbe0a63 | 9600 | #{tmp 3412}# |
| e2ccab57 | 9601 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 9602 | (if (if #{tmp 3413}# |
| e2ccab57 | 9603 | (@apply |
| 1bbe0a63 AW |
9604 | (lambda (#{id 3418}# |
| 9605 | #{val 3419}# | |
| 9606 | #{e1 3420}# | |
| 9607 | #{e2 3421}#) | |
| 9608 | (and-map #{id? 344}# #{id 3418}#)) | |
| 9609 | #{tmp 3413}#) | |
| e2ccab57 AW |
9610 | #f) |
| 9611 | (@apply | |
| 1bbe0a63 AW |
9612 | (lambda (#{id 3427}# |
| 9613 | #{val 3428}# | |
| 9614 | #{e1 3429}# | |
| 9615 | #{e2 3430}#) | |
| e2ccab57 | 9616 | (begin |
| 1bbe0a63 AW |
9617 | (let ((#{ids 3432}# #{id 3427}#)) |
| 9618 | (if (not (#{valid-bound-ids? 412}# #{ids 3432}#)) | |
| e2ccab57 AW |
9619 | (syntax-violation |
| 9620 | 'letrec | |
| 9621 | "duplicate bound variable" | |
| 1bbe0a63 | 9622 | #{e 3402}#) |
| e2ccab57 | 9623 | (begin |
| 1bbe0a63 AW |
9624 | (let ((#{labels 3436}# |
| 9625 | (#{gen-labels 364}# #{ids 3432}#)) | |
| 9626 | (#{new-vars 3437}# | |
| 9627 | (map #{gen-var 460}# #{ids 3432}#))) | |
| e2ccab57 | 9628 | (begin |
| 1bbe0a63 AW |
9629 | (let ((#{w 3440}# |
| 9630 | (#{make-binding-wrap 396}# | |
| 9631 | #{ids 3432}# | |
| 9632 | #{labels 3436}# | |
| 9633 | #{w 3404}#)) | |
| 9634 | (#{r 3441}# | |
| 9635 | (#{extend-var-env 334}# | |
| 9636 | #{labels 3436}# | |
| 9637 | #{new-vars 3437}# | |
| 9638 | #{r 3403}#))) | |
| 9639 | (#{build-letrec 300}# | |
| 9640 | #{s 3405}# | |
| e2ccab57 | 9641 | #f |
| 1bbe0a63 AW |
9642 | (map syntax->datum #{ids 3432}#) |
| 9643 | #{new-vars 3437}# | |
| 9644 | (map (lambda (#{x 3442}#) | |
| 9645 | (#{chi 432}# | |
| 9646 | #{x 3442}# | |
| 9647 | #{r 3441}# | |
| 9648 | #{w 3440}# | |
| 9649 | #{mod 3406}#)) | |
| 9650 | #{val 3428}#) | |
| 9651 | (#{chi-body 440}# | |
| 9652 | (cons #{e1 3429}# #{e2 3430}#) | |
| 9653 | (#{source-wrap 420}# | |
| 9654 | #{e 3402}# | |
| 9655 | #{w 3440}# | |
| 9656 | #{s 3405}# | |
| 9657 | #{mod 3406}#) | |
| 9658 | #{r 3441}# | |
| 9659 | #{w 3440}# | |
| 9660 | #{mod 3406}#)))))))))) | |
| 9661 | #{tmp 3413}#) | |
| 9662 | (let ((#{_ 3447}# #{tmp 3412}#)) | |
| e2ccab57 AW |
9663 | (syntax-violation |
| 9664 | 'letrec | |
| 9665 | "bad letrec" | |
| 1bbe0a63 AW |
9666 | (#{source-wrap 420}# |
| 9667 | #{e 3402}# | |
| 9668 | #{w 3404}# | |
| 9669 | #{s 3405}# | |
| 9670 | #{mod 3406}#)))))))) | |
| 9671 | (#{global-extend 340}# | |
| e2ccab57 AW |
9672 | 'core |
| 9673 | 'letrec* | |
| 1bbe0a63 AW |
9674 | (lambda (#{e 3448}# |
| 9675 | #{r 3449}# | |
| 9676 | #{w 3450}# | |
| 9677 | #{s 3451}# | |
| 9678 | #{mod 3452}#) | |
| 9679 | (let ((#{tmp 3458}# #{e 3448}#)) | |
| 9680 | (let ((#{tmp 3459}# | |
| e2ccab57 | 9681 | ($sc-dispatch |
| 1bbe0a63 | 9682 | #{tmp 3458}# |
| e2ccab57 | 9683 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 9684 | (if (if #{tmp 3459}# |
| e2ccab57 | 9685 | (@apply |
| 1bbe0a63 AW |
9686 | (lambda (#{id 3464}# |
| 9687 | #{val 3465}# | |
| 9688 | #{e1 3466}# | |
| 9689 | #{e2 3467}#) | |
| 9690 | (and-map #{id? 344}# #{id 3464}#)) | |
| 9691 | #{tmp 3459}#) | |
| e2ccab57 AW |
9692 | #f) |
| 9693 | (@apply | |
| 1bbe0a63 AW |
9694 | (lambda (#{id 3473}# |
| 9695 | #{val 3474}# | |
| 9696 | #{e1 3475}# | |
| 9697 | #{e2 3476}#) | |
| e2ccab57 | 9698 | (begin |
| 1bbe0a63 AW |
9699 | (let ((#{ids 3478}# #{id 3473}#)) |
| 9700 | (if (not (#{valid-bound-ids? 412}# #{ids 3478}#)) | |
| e2ccab57 AW |
9701 | (syntax-violation |
| 9702 | 'letrec* | |
| 9703 | "duplicate bound variable" | |
| 1bbe0a63 | 9704 | #{e 3448}#) |
| e2ccab57 | 9705 | (begin |
| 1bbe0a63 AW |
9706 | (let ((#{labels 3482}# |
| 9707 | (#{gen-labels 364}# #{ids 3478}#)) | |
| 9708 | (#{new-vars 3483}# | |
| 9709 | (map #{gen-var 460}# #{ids 3478}#))) | |
| e2ccab57 | 9710 | (begin |
| 1bbe0a63 AW |
9711 | (let ((#{w 3486}# |
| 9712 | (#{make-binding-wrap 396}# | |
| 9713 | #{ids 3478}# | |
| 9714 | #{labels 3482}# | |
| 9715 | #{w 3450}#)) | |
| 9716 | (#{r 3487}# | |
| 9717 | (#{extend-var-env 334}# | |
| 9718 | #{labels 3482}# | |
| 9719 | #{new-vars 3483}# | |
| 9720 | #{r 3449}#))) | |
| 9721 | (#{build-letrec 300}# | |
| 9722 | #{s 3451}# | |
| e2ccab57 | 9723 | #t |
| 1bbe0a63 AW |
9724 | (map syntax->datum #{ids 3478}#) |
| 9725 | #{new-vars 3483}# | |
| 9726 | (map (lambda (#{x 3488}#) | |
| 9727 | (#{chi 432}# | |
| 9728 | #{x 3488}# | |
| 9729 | #{r 3487}# | |
| 9730 | #{w 3486}# | |
| 9731 | #{mod 3452}#)) | |
| 9732 | #{val 3474}#) | |
| 9733 | (#{chi-body 440}# | |
| 9734 | (cons #{e1 3475}# #{e2 3476}#) | |
| 9735 | (#{source-wrap 420}# | |
| 9736 | #{e 3448}# | |
| 9737 | #{w 3486}# | |
| 9738 | #{s 3451}# | |
| 9739 | #{mod 3452}#) | |
| 9740 | #{r 3487}# | |
| 9741 | #{w 3486}# | |
| 9742 | #{mod 3452}#)))))))))) | |
| 9743 | #{tmp 3459}#) | |
| 9744 | (let ((#{_ 3493}# #{tmp 3458}#)) | |
| e2ccab57 AW |
9745 | (syntax-violation |
| 9746 | 'letrec* | |
| 9747 | "bad letrec*" | |
| 1bbe0a63 AW |
9748 | (#{source-wrap 420}# |
| 9749 | #{e 3448}# | |
| 9750 | #{w 3450}# | |
| 9751 | #{s 3451}# | |
| 9752 | #{mod 3452}#)))))))) | |
| 9753 | (#{global-extend 340}# | |
| e2ccab57 AW |
9754 | 'core |
| 9755 | 'set! | |
| 1bbe0a63 AW |
9756 | (lambda (#{e 3494}# |
| 9757 | #{r 3495}# | |
| 9758 | #{w 3496}# | |
| 9759 | #{s 3497}# | |
| 9760 | #{mod 3498}#) | |
| 9761 | (let ((#{tmp 3504}# #{e 3494}#)) | |
| 9762 | (let ((#{tmp 3505}# | |
| 9763 | ($sc-dispatch #{tmp 3504}# '(_ any any)))) | |
| 9764 | (if (if #{tmp 3505}# | |
| e2ccab57 | 9765 | (@apply |
| 1bbe0a63 AW |
9766 | (lambda (#{id 3508}# #{val 3509}#) |
| 9767 | (#{id? 344}# #{id 3508}#)) | |
| 9768 | #{tmp 3505}#) | |
| e2ccab57 AW |
9769 | #f) |
| 9770 | (@apply | |
| 1bbe0a63 | 9771 | (lambda (#{id 3512}# #{val 3513}#) |
| e2ccab57 | 9772 | (begin |
| 1bbe0a63 AW |
9773 | (let ((#{n 3516}# |
| 9774 | (#{id-var-name 406}# #{id 3512}# #{w 3496}#)) | |
| 9775 | (#{id-mod 3517}# | |
| 9776 | (if (#{syntax-object? 307}# #{id 3512}#) | |
| 9777 | (#{syntax-object-module 313}# #{id 3512}#) | |
| 9778 | #{mod 3498}#))) | |
| e2ccab57 | 9779 | (begin |
| 1bbe0a63 AW |
9780 | (let ((#{b 3519}# |
| 9781 | (#{lookup 338}# | |
| 9782 | #{n 3516}# | |
| 9783 | #{r 3495}# | |
| 9784 | #{id-mod 3517}#))) | |
| e2ccab57 | 9785 | (begin |
| 1bbe0a63 AW |
9786 | (let ((#{atom-key 3522}# (car #{b 3519}#))) |
| 9787 | (if (eqv? #{atom-key 3522}# 'lexical) | |
| 9788 | (#{build-lexical-assignment 274}# | |
| 9789 | #{s 3497}# | |
| 9790 | (syntax->datum #{id 3512}#) | |
| 9791 | (cdr #{b 3519}#) | |
| 9792 | (#{chi 432}# | |
| 9793 | #{val 3513}# | |
| 9794 | #{r 3495}# | |
| 9795 | #{w 3496}# | |
| 9796 | #{mod 3498}#)) | |
| 9797 | (if (eqv? #{atom-key 3522}# 'global) | |
| 9798 | (#{build-global-assignment 280}# | |
| 9799 | #{s 3497}# | |
| 9800 | #{n 3516}# | |
| 9801 | (#{chi 432}# | |
| 9802 | #{val 3513}# | |
| 9803 | #{r 3495}# | |
| 9804 | #{w 3496}# | |
| 9805 | #{mod 3498}#) | |
| 9806 | #{id-mod 3517}#) | |
| 9807 | (if (eqv? #{atom-key 3522}# 'macro) | |
| e2ccab57 | 9808 | (begin |
| 1bbe0a63 | 9809 | (let ((#{p 3529}# (cdr #{b 3519}#))) |
| e2ccab57 | 9810 | (if (procedure-property |
| 1bbe0a63 | 9811 | #{p 3529}# |
| e2ccab57 | 9812 | 'variable-transformer) |
| 1bbe0a63 AW |
9813 | (#{chi 432}# |
| 9814 | (#{chi-macro 438}# | |
| 9815 | #{p 3529}# | |
| 9816 | #{e 3494}# | |
| 9817 | #{r 3495}# | |
| 9818 | #{w 3496}# | |
| 9819 | #{s 3497}# | |
| e2ccab57 | 9820 | #f |
| 1bbe0a63 AW |
9821 | #{mod 3498}#) |
| 9822 | #{r 3495}# | |
| e2ccab57 | 9823 | '(()) |
| 1bbe0a63 | 9824 | #{mod 3498}#) |
| e2ccab57 AW |
9825 | (syntax-violation |
| 9826 | 'set! | |
| 9827 | "not a variable transformer" | |
| 1bbe0a63 AW |
9828 | (#{wrap 418}# |
| 9829 | #{e 3494}# | |
| 9830 | #{w 3496}# | |
| 9831 | #{mod 3498}#) | |
| 9832 | (#{wrap 418}# | |
| 9833 | #{id 3512}# | |
| 9834 | #{w 3496}# | |
| 9835 | #{id-mod 3517}#))))) | |
| 9836 | (if (eqv? #{atom-key 3522}# | |
| e2ccab57 AW |
9837 | 'displaced-lexical) |
| 9838 | (syntax-violation | |
| 9839 | 'set! | |
| 9840 | "identifier out of context" | |
| 1bbe0a63 AW |
9841 | (#{wrap 418}# |
| 9842 | #{id 3512}# | |
| 9843 | #{w 3496}# | |
| 9844 | #{mod 3498}#)) | |
| e2ccab57 AW |
9845 | (syntax-violation |
| 9846 | 'set! | |
| 9847 | "bad set!" | |
| 1bbe0a63 AW |
9848 | (#{source-wrap 420}# |
| 9849 | #{e 3494}# | |
| 9850 | #{w 3496}# | |
| 9851 | #{s 3497}# | |
| 9852 | #{mod 3498}#))))))))))))) | |
| 9853 | #{tmp 3505}#) | |
| 9854 | (let ((#{tmp 3534}# | |
| e2ccab57 | 9855 | ($sc-dispatch |
| 1bbe0a63 | 9856 | #{tmp 3504}# |
| e2ccab57 | 9857 | '(_ (any . each-any) any)))) |
| 1bbe0a63 | 9858 | (if #{tmp 3534}# |
| e2ccab57 | 9859 | (@apply |
| 1bbe0a63 | 9860 | (lambda (#{head 3538}# #{tail 3539}# #{val 3540}#) |
| e2ccab57 AW |
9861 | (call-with-values |
| 9862 | (lambda () | |
| 1bbe0a63 AW |
9863 | (#{syntax-type 430}# |
| 9864 | #{head 3538}# | |
| 9865 | #{r 3495}# | |
| e2ccab57 AW |
9866 | '(()) |
| 9867 | #f | |
| 9868 | #f | |
| 1bbe0a63 | 9869 | #{mod 3498}# |
| e2ccab57 | 9870 | #t)) |
| 1bbe0a63 AW |
9871 | (lambda (#{type 3543}# |
| 9872 | #{value 3544}# | |
| 9873 | #{ee 3545}# | |
| 9874 | #{ww 3546}# | |
| 9875 | #{ss 3547}# | |
| 9876 | #{modmod 3548}#) | |
| 9877 | (if (eqv? #{type 3543}# 'module-ref) | |
| e2ccab57 | 9878 | (begin |
| 1bbe0a63 AW |
9879 | (let ((#{val 3557}# |
| 9880 | (#{chi 432}# | |
| 9881 | #{val 3540}# | |
| 9882 | #{r 3495}# | |
| 9883 | #{w 3496}# | |
| 9884 | #{mod 3498}#))) | |
| e2ccab57 AW |
9885 | (call-with-values |
| 9886 | (lambda () | |
| 1bbe0a63 AW |
9887 | (#{value 3544}# |
| 9888 | (cons #{head 3538}# #{tail 3539}#) | |
| 9889 | #{r 3495}# | |
| 9890 | #{w 3496}#)) | |
| 9891 | (lambda (#{e 3559}# | |
| 9892 | #{r 3560}# | |
| 9893 | #{w 3561}# | |
| 9894 | #{s* 3562}# | |
| 9895 | #{mod 3563}#) | |
| 9896 | (let ((#{tmp 3569}# #{e 3559}#)) | |
| 9897 | (let ((#{tmp 3570}# | |
| 9898 | (list #{tmp 3569}#))) | |
| 9899 | (if (if #{tmp 3570}# | |
| e2ccab57 | 9900 | (@apply |
| 1bbe0a63 AW |
9901 | (lambda (#{e 3572}#) |
| 9902 | (#{id? 344}# #{e 3572}#)) | |
| 9903 | #{tmp 3570}#) | |
| e2ccab57 AW |
9904 | #f) |
| 9905 | (@apply | |
| 1bbe0a63 AW |
9906 | (lambda (#{e 3574}#) |
| 9907 | (#{build-global-assignment 280}# | |
| 9908 | #{s 3497}# | |
| 9909 | (syntax->datum #{e 3574}#) | |
| 9910 | #{val 3557}# | |
| 9911 | #{mod 3563}#)) | |
| 9912 | #{tmp 3570}#) | |
| e2ccab57 AW |
9913 | (syntax-violation |
| 9914 | #f | |
| 9915 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
9916 | #{tmp 3569}#)))))))) |
| 9917 | (#{build-application 266}# | |
| 9918 | #{s 3497}# | |
| 9919 | (#{chi 432}# | |
| e2ccab57 AW |
9920 | (list '#(syntax-object |
| 9921 | setter | |
| 9922 | ((top) | |
| 9923 | #(ribcage () () ()) | |
| 9924 | #(ribcage () () ()) | |
| 9925 | #(ribcage | |
| 9926 | #(type value ee ww ss modmod) | |
| 9927 | #((top) | |
| 9928 | (top) | |
| 9929 | (top) | |
| 9930 | (top) | |
| 9931 | (top) | |
| 9932 | (top)) | |
| 1bbe0a63 AW |
9933 | #("i3549" |
| 9934 | "i3550" | |
| 9935 | "i3551" | |
| 9936 | "i3552" | |
| 9937 | "i3553" | |
| 9938 | "i3554")) | |
| e2ccab57 AW |
9939 | #(ribcage |
| 9940 | #(head tail val) | |
| 9941 | #((top) (top) (top)) | |
| 1bbe0a63 | 9942 | #("i3535" "i3536" "i3537")) |
| e2ccab57 AW |
9943 | #(ribcage () () ()) |
| 9944 | #(ribcage | |
| 9945 | #(e r w s mod) | |
| 9946 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
9947 | #("i3499" |
| 9948 | "i3500" | |
| 9949 | "i3501" | |
| 9950 | "i3502" | |
| 9951 | "i3503")) | |
| e2ccab57 AW |
9952 | #(ribcage |
| 9953 | (lambda-var-list | |
| 9954 | gen-var | |
| 9955 | strip | |
| 9956 | chi-lambda-case | |
| 9957 | lambda*-formals | |
| 9958 | chi-simple-lambda | |
| 9959 | lambda-formals | |
| 9960 | ellipsis? | |
| 9961 | chi-void | |
| 9962 | eval-local-transformer | |
| 9963 | chi-local-syntax | |
| 9964 | chi-body | |
| 9965 | chi-macro | |
| 9966 | chi-application | |
| 9967 | chi-expr | |
| 9968 | chi | |
| 9969 | syntax-type | |
| 9970 | chi-when-list | |
| 9971 | chi-install-global | |
| 9972 | chi-top-sequence | |
| 9973 | chi-sequence | |
| 9974 | source-wrap | |
| 9975 | wrap | |
| 9976 | bound-id-member? | |
| 9977 | distinct-bound-ids? | |
| 9978 | valid-bound-ids? | |
| 9979 | bound-id=? | |
| 9980 | free-id=? | |
| 9981 | id-var-name | |
| 9982 | same-marks? | |
| 9983 | join-marks | |
| 9984 | join-wraps | |
| 9985 | smart-append | |
| 9986 | make-binding-wrap | |
| 9987 | extend-ribcage! | |
| 9988 | make-empty-ribcage | |
| 9989 | new-mark | |
| 9990 | anti-mark | |
| 9991 | the-anti-mark | |
| 9992 | top-marked? | |
| 9993 | top-wrap | |
| 9994 | empty-wrap | |
| 9995 | set-ribcage-labels! | |
| 9996 | set-ribcage-marks! | |
| 9997 | set-ribcage-symnames! | |
| 9998 | ribcage-labels | |
| 9999 | ribcage-marks | |
| 10000 | ribcage-symnames | |
| 10001 | ribcage? | |
| 10002 | make-ribcage | |
| 10003 | gen-labels | |
| 10004 | gen-label | |
| 10005 | make-rename | |
| 10006 | rename-marks | |
| 10007 | rename-new | |
| 10008 | rename-old | |
| 10009 | subst-rename? | |
| 10010 | wrap-subst | |
| 10011 | wrap-marks | |
| 10012 | make-wrap | |
| 10013 | id-sym-name&marks | |
| 10014 | id-sym-name | |
| 10015 | id? | |
| 10016 | nonsymbol-id? | |
| 10017 | global-extend | |
| 10018 | lookup | |
| 10019 | macros-only-env | |
| 10020 | extend-var-env | |
| 10021 | extend-env | |
| 10022 | null-env | |
| 10023 | binding-value | |
| 10024 | binding-type | |
| 10025 | make-binding | |
| 10026 | arg-check | |
| 10027 | source-annotation | |
| 10028 | no-source | |
| 10029 | set-syntax-object-module! | |
| 10030 | set-syntax-object-wrap! | |
| 10031 | set-syntax-object-expression! | |
| 10032 | syntax-object-module | |
| 10033 | syntax-object-wrap | |
| 10034 | syntax-object-expression | |
| 10035 | syntax-object? | |
| 10036 | make-syntax-object | |
| 10037 | build-lexical-var | |
| 10038 | build-letrec | |
| 10039 | build-named-let | |
| 10040 | build-let | |
| 10041 | build-sequence | |
| 10042 | build-data | |
| 10043 | build-primref | |
| 10044 | build-lambda-case | |
| 10045 | build-case-lambda | |
| 10046 | build-simple-lambda | |
| 10047 | build-global-definition | |
| 10048 | build-global-assignment | |
| 10049 | build-global-reference | |
| 10050 | analyze-variable | |
| 10051 | build-lexical-assignment | |
| 10052 | build-lexical-reference | |
| 10053 | build-dynlet | |
| 10054 | build-conditional | |
| 10055 | build-application | |
| 10056 | build-void | |
| 10057 | maybe-name-value! | |
| 10058 | decorate-source | |
| 10059 | get-global-definition-hook | |
| 10060 | put-global-definition-hook | |
| 10061 | gensym-hook | |
| 10062 | local-eval-hook | |
| 10063 | top-level-eval-hook | |
| 10064 | fx< | |
| 10065 | fx= | |
| 10066 | fx- | |
| 10067 | fx+ | |
| 10068 | set-lambda-meta! | |
| 10069 | lambda-meta | |
| 10070 | lambda? | |
| 10071 | make-dynlet | |
| 10072 | make-letrec | |
| 10073 | make-let | |
| 10074 | make-lambda-case | |
| 10075 | make-lambda | |
| 10076 | make-sequence | |
| 10077 | make-application | |
| 10078 | make-conditional | |
| 10079 | make-toplevel-define | |
| 10080 | make-toplevel-set | |
| 10081 | make-toplevel-ref | |
| 10082 | make-module-set | |
| 10083 | make-module-ref | |
| 10084 | make-lexical-set | |
| 10085 | make-lexical-ref | |
| 10086 | make-primitive-ref | |
| 10087 | make-const | |
| 10088 | make-void) | |
| 10089 | ((top) | |
| 10090 | (top) | |
| 10091 | (top) | |
| 10092 | (top) | |
| 10093 | (top) | |
| 10094 | (top) | |
| 10095 | (top) | |
| 10096 | (top) | |
| 10097 | (top) | |
| 10098 | (top) | |
| 10099 | (top) | |
| 10100 | (top) | |
| 10101 | (top) | |
| 10102 | (top) | |
| 10103 | (top) | |
| 10104 | (top) | |
| 10105 | (top) | |
| 10106 | (top) | |
| 10107 | (top) | |
| 10108 | (top) | |
| 10109 | (top) | |
| 10110 | (top) | |
| 10111 | (top) | |
| 10112 | (top) | |
| 10113 | (top) | |
| 10114 | (top) | |
| 10115 | (top) | |
| 10116 | (top) | |
| 10117 | (top) | |
| 10118 | (top) | |
| 10119 | (top) | |
| 10120 | (top) | |
| 10121 | (top) | |
| 10122 | (top) | |
| 10123 | (top) | |
| 10124 | (top) | |
| 10125 | (top) | |
| 10126 | (top) | |
| 10127 | (top) | |
| 10128 | (top) | |
| 10129 | (top) | |
| 10130 | (top) | |
| 10131 | (top) | |
| 10132 | (top) | |
| 10133 | (top) | |
| 10134 | (top) | |
| 10135 | (top) | |
| 10136 | (top) | |
| 10137 | (top) | |
| 10138 | (top) | |
| 10139 | (top) | |
| 10140 | (top) | |
| 10141 | (top) | |
| 10142 | (top) | |
| 10143 | (top) | |
| 10144 | (top) | |
| 10145 | (top) | |
| 10146 | (top) | |
| 10147 | (top) | |
| 10148 | (top) | |
| 10149 | (top) | |
| 10150 | (top) | |
| 10151 | (top) | |
| 10152 | (top) | |
| 10153 | (top) | |
| 10154 | (top) | |
| 10155 | (top) | |
| 10156 | (top) | |
| 10157 | (top) | |
| 10158 | (top) | |
| 10159 | (top) | |
| 10160 | (top) | |
| 10161 | (top) | |
| 10162 | (top) | |
| 10163 | (top) | |
| 10164 | (top) | |
| 10165 | (top) | |
| 10166 | (top) | |
| 10167 | (top) | |
| 10168 | (top) | |
| 10169 | (top) | |
| 10170 | (top) | |
| 10171 | (top) | |
| 10172 | (top) | |
| 10173 | (top) | |
| 10174 | (top) | |
| 10175 | (top) | |
| 10176 | (top) | |
| 10177 | (top) | |
| 10178 | (top) | |
| 10179 | (top) | |
| 10180 | (top) | |
| 10181 | (top) | |
| 10182 | (top) | |
| 10183 | (top) | |
| 10184 | (top) | |
| 10185 | (top) | |
| 10186 | (top) | |
| 10187 | (top) | |
| 10188 | (top) | |
| 10189 | (top) | |
| 10190 | (top) | |
| 10191 | (top) | |
| 10192 | (top) | |
| 10193 | (top) | |
| 10194 | (top) | |
| 10195 | (top) | |
| 10196 | (top) | |
| 10197 | (top) | |
| 10198 | (top) | |
| 10199 | (top) | |
| 10200 | (top) | |
| 10201 | (top) | |
| 10202 | (top) | |
| 10203 | (top) | |
| 10204 | (top) | |
| 10205 | (top) | |
| 10206 | (top) | |
| 10207 | (top) | |
| 10208 | (top) | |
| 10209 | (top) | |
| 10210 | (top) | |
| 10211 | (top) | |
| 10212 | (top) | |
| 10213 | (top) | |
| 10214 | (top) | |
| 10215 | (top) | |
| 10216 | (top) | |
| 10217 | (top) | |
| 10218 | (top) | |
| 10219 | (top) | |
| 10220 | (top) | |
| 10221 | (top) | |
| 10222 | (top) | |
| 10223 | (top) | |
| 10224 | (top)) | |
| 1bbe0a63 AW |
10225 | ("i461" |
| 10226 | "i459" | |
| 10227 | "i457" | |
| 10228 | "i455" | |
| 10229 | "i453" | |
| 10230 | "i451" | |
| 10231 | "i449" | |
| 10232 | "i447" | |
| 10233 | "i445" | |
| 10234 | "i443" | |
| 10235 | "i441" | |
| 10236 | "i439" | |
| 10237 | "i437" | |
| 10238 | "i435" | |
| 10239 | "i433" | |
| 10240 | "i431" | |
| 10241 | "i429" | |
| 10242 | "i427" | |
| 10243 | "i425" | |
| 10244 | "i423" | |
| 10245 | "i421" | |
| 10246 | "i419" | |
| 10247 | "i417" | |
| 10248 | "i415" | |
| 10249 | "i413" | |
| 10250 | "i411" | |
| 10251 | "i409" | |
| 10252 | "i407" | |
| 10253 | "i405" | |
| 10254 | "i403" | |
| 10255 | "i401" | |
| 10256 | "i399" | |
| 10257 | "i397" | |
| 10258 | "i395" | |
| 10259 | "i393" | |
| e2ccab57 AW |
10260 | "i392" |
| 10261 | "i390" | |
| 1bbe0a63 | 10262 | "i387" |
| e2ccab57 | 10263 | "i386" |
| 1bbe0a63 AW |
10264 | "i385" |
| 10265 | "i383" | |
| e2ccab57 AW |
10266 | "i382" |
| 10267 | "i380" | |
| e2ccab57 AW |
10268 | "i378" |
| 10269 | "i376" | |
| e2ccab57 | 10270 | "i374" |
| e2ccab57 AW |
10271 | "i372" |
| 10272 | "i370" | |
| 10273 | "i368" | |
| 10274 | "i366" | |
| 1bbe0a63 AW |
10275 | "i363" |
| 10276 | "i361" | |
| e2ccab57 AW |
10277 | "i360" |
| 10278 | "i358" | |
| 10279 | "i356" | |
| 1bbe0a63 AW |
10280 | "i354" |
| 10281 | "i352" | |
| e2ccab57 AW |
10282 | "i351" |
| 10283 | "i350" | |
| 10284 | "i349" | |
| e2ccab57 AW |
10285 | "i347" |
| 10286 | "i346" | |
| e2ccab57 AW |
10287 | "i343" |
| 10288 | "i341" | |
| 1bbe0a63 AW |
10289 | "i339" |
| 10290 | "i337" | |
| 10291 | "i335" | |
| 10292 | "i333" | |
| 10293 | "i331" | |
| e2ccab57 | 10294 | "i330" |
| 1bbe0a63 AW |
10295 | "i329" |
| 10296 | "i327" | |
| e2ccab57 AW |
10297 | "i325" |
| 10298 | "i324" | |
| e2ccab57 | 10299 | "i321" |
| 1bbe0a63 | 10300 | "i320" |
| e2ccab57 AW |
10301 | "i318" |
| 10302 | "i316" | |
| 10303 | "i314" | |
| 10304 | "i312" | |
| 10305 | "i310" | |
| 10306 | "i308" | |
| 10307 | "i306" | |
| 10308 | "i304" | |
| 10309 | "i302" | |
| 1bbe0a63 AW |
10310 | "i299" |
| 10311 | "i297" | |
| 10312 | "i295" | |
| 10313 | "i293" | |
| 10314 | "i291" | |
| 10315 | "i289" | |
| 10316 | "i287" | |
| 10317 | "i285" | |
| 10318 | "i283" | |
| 10319 | "i281" | |
| 10320 | "i279" | |
| 10321 | "i277" | |
| 10322 | "i275" | |
| 10323 | "i273" | |
| 10324 | "i271" | |
| 10325 | "i269" | |
| 10326 | "i267" | |
| 10327 | "i265" | |
| 10328 | "i263" | |
| 10329 | "i261" | |
| 10330 | "i259" | |
| 10331 | "i257" | |
| 10332 | "i255" | |
| e2ccab57 | 10333 | "i254" |
| e2ccab57 AW |
10334 | "i251" |
| 10335 | "i249" | |
| 10336 | "i248" | |
| 10337 | "i247" | |
| 10338 | "i246" | |
| 10339 | "i245" | |
| 10340 | "i243" | |
| 10341 | "i241" | |
| 10342 | "i239" | |
| 10343 | "i236" | |
| 10344 | "i234" | |
| 10345 | "i232" | |
| 10346 | "i230" | |
| 10347 | "i228" | |
| 10348 | "i226" | |
| 10349 | "i224" | |
| 10350 | "i222" | |
| 10351 | "i220" | |
| 10352 | "i218" | |
| 10353 | "i216" | |
| 10354 | "i214" | |
| 10355 | "i212" | |
| 10356 | "i210" | |
| 10357 | "i208" | |
| 10358 | "i206" | |
| 10359 | "i204" | |
| 10360 | "i202")) | |
| 10361 | #(ribcage | |
| 10362 | (define-structure | |
| 10363 | define-expansion-accessors | |
| 10364 | define-expansion-constructors) | |
| 10365 | ((top) (top) (top)) | |
| 10366 | ("i40" "i39" "i38"))) | |
| 10367 | (hygiene guile)) | |
| 1bbe0a63 AW |
10368 | #{head 3538}#) |
| 10369 | #{r 3495}# | |
| 10370 | #{w 3496}# | |
| 10371 | #{mod 3498}#) | |
| 10372 | (map (lambda (#{e 3576}#) | |
| 10373 | (#{chi 432}# | |
| 10374 | #{e 3576}# | |
| 10375 | #{r 3495}# | |
| 10376 | #{w 3496}# | |
| 10377 | #{mod 3498}#)) | |
| e2ccab57 | 10378 | (append |
| 1bbe0a63 AW |
10379 | #{tail 3539}# |
| 10380 | (list #{val 3540}#)))))))) | |
| 10381 | #{tmp 3534}#) | |
| 10382 | (let ((#{_ 3580}# #{tmp 3504}#)) | |
| e2ccab57 AW |
10383 | (syntax-violation |
| 10384 | 'set! | |
| 10385 | "bad set!" | |
| 1bbe0a63 AW |
10386 | (#{source-wrap 420}# |
| 10387 | #{e 3494}# | |
| 10388 | #{w 3496}# | |
| 10389 | #{s 3497}# | |
| 10390 | #{mod 3498}#)))))))))) | |
| 10391 | (#{global-extend 340}# | |
| e2ccab57 AW |
10392 | 'module-ref |
| 10393 | '@ | |
| 1bbe0a63 AW |
10394 | (lambda (#{e 3581}# #{r 3582}# #{w 3583}#) |
| 10395 | (let ((#{tmp 3587}# #{e 3581}#)) | |
| 10396 | (let ((#{tmp 3588}# | |
| 10397 | ($sc-dispatch #{tmp 3587}# '(_ each-any any)))) | |
| 10398 | (if (if #{tmp 3588}# | |
| e2ccab57 | 10399 | (@apply |
| 1bbe0a63 AW |
10400 | (lambda (#{mod 3591}# #{id 3592}#) |
| 10401 | (if (and-map #{id? 344}# #{mod 3591}#) | |
| 10402 | (#{id? 344}# #{id 3592}#) | |
| e2ccab57 | 10403 | #f)) |
| 1bbe0a63 | 10404 | #{tmp 3588}#) |
| e2ccab57 AW |
10405 | #f) |
| 10406 | (@apply | |
| 1bbe0a63 | 10407 | (lambda (#{mod 3598}# #{id 3599}#) |
| e2ccab57 | 10408 | (values |
| 1bbe0a63 AW |
10409 | (syntax->datum #{id 3599}#) |
| 10410 | #{r 3582}# | |
| 10411 | #{w 3583}# | |
| e2ccab57 AW |
10412 | #f |
| 10413 | (syntax->datum | |
| 10414 | (cons '#(syntax-object | |
| 10415 | public | |
| 10416 | ((top) | |
| 10417 | #(ribcage | |
| 10418 | #(mod id) | |
| 10419 | #((top) (top)) | |
| 1bbe0a63 | 10420 | #("i3596" "i3597")) |
| e2ccab57 AW |
10421 | #(ribcage () () ()) |
| 10422 | #(ribcage | |
| 10423 | #(e r w) | |
| 10424 | #((top) (top) (top)) | |
| 1bbe0a63 | 10425 | #("i3584" "i3585" "i3586")) |
| e2ccab57 AW |
10426 | #(ribcage |
| 10427 | (lambda-var-list | |
| 10428 | gen-var | |
| 10429 | strip | |
| 10430 | chi-lambda-case | |
| 10431 | lambda*-formals | |
| 10432 | chi-simple-lambda | |
| 10433 | lambda-formals | |
| 10434 | ellipsis? | |
| 10435 | chi-void | |
| 10436 | eval-local-transformer | |
| 10437 | chi-local-syntax | |
| 10438 | chi-body | |
| 10439 | chi-macro | |
| 10440 | chi-application | |
| 10441 | chi-expr | |
| 10442 | chi | |
| 10443 | syntax-type | |
| 10444 | chi-when-list | |
| 10445 | chi-install-global | |
| 10446 | chi-top-sequence | |
| 10447 | chi-sequence | |
| 10448 | source-wrap | |
| 10449 | wrap | |
| 10450 | bound-id-member? | |
| 10451 | distinct-bound-ids? | |
| 10452 | valid-bound-ids? | |
| 10453 | bound-id=? | |
| 10454 | free-id=? | |
| 10455 | id-var-name | |
| 10456 | same-marks? | |
| 10457 | join-marks | |
| 10458 | join-wraps | |
| 10459 | smart-append | |
| 10460 | make-binding-wrap | |
| 10461 | extend-ribcage! | |
| 10462 | make-empty-ribcage | |
| 10463 | new-mark | |
| 10464 | anti-mark | |
| 10465 | the-anti-mark | |
| 10466 | top-marked? | |
| 10467 | top-wrap | |
| 10468 | empty-wrap | |
| 10469 | set-ribcage-labels! | |
| 10470 | set-ribcage-marks! | |
| 10471 | set-ribcage-symnames! | |
| 10472 | ribcage-labels | |
| 10473 | ribcage-marks | |
| 10474 | ribcage-symnames | |
| 10475 | ribcage? | |
| 10476 | make-ribcage | |
| 10477 | gen-labels | |
| 10478 | gen-label | |
| 10479 | make-rename | |
| 10480 | rename-marks | |
| 10481 | rename-new | |
| 10482 | rename-old | |
| 10483 | subst-rename? | |
| 10484 | wrap-subst | |
| 10485 | wrap-marks | |
| 10486 | make-wrap | |
| 10487 | id-sym-name&marks | |
| 10488 | id-sym-name | |
| 10489 | id? | |
| 10490 | nonsymbol-id? | |
| 10491 | global-extend | |
| 10492 | lookup | |
| 10493 | macros-only-env | |
| 10494 | extend-var-env | |
| 10495 | extend-env | |
| 10496 | null-env | |
| 10497 | binding-value | |
| 10498 | binding-type | |
| 10499 | make-binding | |
| 10500 | arg-check | |
| 10501 | source-annotation | |
| 10502 | no-source | |
| 10503 | set-syntax-object-module! | |
| 10504 | set-syntax-object-wrap! | |
| 10505 | set-syntax-object-expression! | |
| 10506 | syntax-object-module | |
| 10507 | syntax-object-wrap | |
| 10508 | syntax-object-expression | |
| 10509 | syntax-object? | |
| 10510 | make-syntax-object | |
| 10511 | build-lexical-var | |
| 10512 | build-letrec | |
| 10513 | build-named-let | |
| 10514 | build-let | |
| 10515 | build-sequence | |
| 10516 | build-data | |
| 10517 | build-primref | |
| 10518 | build-lambda-case | |
| 10519 | build-case-lambda | |
| 10520 | build-simple-lambda | |
| 10521 | build-global-definition | |
| 10522 | build-global-assignment | |
| 10523 | build-global-reference | |
| 10524 | analyze-variable | |
| 10525 | build-lexical-assignment | |
| 10526 | build-lexical-reference | |
| 10527 | build-dynlet | |
| 10528 | build-conditional | |
| 10529 | build-application | |
| 10530 | build-void | |
| 10531 | maybe-name-value! | |
| 10532 | decorate-source | |
| 10533 | get-global-definition-hook | |
| 10534 | put-global-definition-hook | |
| 10535 | gensym-hook | |
| 10536 | local-eval-hook | |
| 10537 | top-level-eval-hook | |
| 10538 | fx< | |
| 10539 | fx= | |
| 10540 | fx- | |
| 10541 | fx+ | |
| 10542 | set-lambda-meta! | |
| 10543 | lambda-meta | |
| 10544 | lambda? | |
| 10545 | make-dynlet | |
| 10546 | make-letrec | |
| 10547 | make-let | |
| 10548 | make-lambda-case | |
| 10549 | make-lambda | |
| 10550 | make-sequence | |
| 10551 | make-application | |
| 10552 | make-conditional | |
| 10553 | make-toplevel-define | |
| 10554 | make-toplevel-set | |
| 10555 | make-toplevel-ref | |
| 10556 | make-module-set | |
| 10557 | make-module-ref | |
| 10558 | make-lexical-set | |
| 10559 | make-lexical-ref | |
| 10560 | make-primitive-ref | |
| 10561 | make-const | |
| 10562 | make-void) | |
| 10563 | ((top) | |
| 10564 | (top) | |
| 10565 | (top) | |
| 10566 | (top) | |
| 10567 | (top) | |
| 10568 | (top) | |
| 10569 | (top) | |
| 10570 | (top) | |
| 10571 | (top) | |
| 10572 | (top) | |
| 10573 | (top) | |
| 10574 | (top) | |
| 10575 | (top) | |
| 10576 | (top) | |
| 10577 | (top) | |
| 10578 | (top) | |
| 10579 | (top) | |
| 10580 | (top) | |
| 10581 | (top) | |
| 10582 | (top) | |
| 10583 | (top) | |
| 10584 | (top) | |
| 10585 | (top) | |
| 10586 | (top) | |
| 10587 | (top) | |
| 10588 | (top) | |
| 10589 | (top) | |
| 10590 | (top) | |
| 10591 | (top) | |
| 10592 | (top) | |
| 10593 | (top) | |
| 10594 | (top) | |
| 10595 | (top) | |
| 10596 | (top) | |
| 10597 | (top) | |
| 10598 | (top) | |
| 10599 | (top) | |
| 10600 | (top) | |
| 10601 | (top) | |
| 10602 | (top) | |
| 10603 | (top) | |
| 10604 | (top) | |
| 10605 | (top) | |
| 10606 | (top) | |
| 10607 | (top) | |
| 10608 | (top) | |
| 10609 | (top) | |
| 10610 | (top) | |
| 10611 | (top) | |
| 10612 | (top) | |
| 10613 | (top) | |
| 10614 | (top) | |
| 10615 | (top) | |
| 10616 | (top) | |
| 10617 | (top) | |
| 10618 | (top) | |
| 10619 | (top) | |
| 10620 | (top) | |
| 10621 | (top) | |
| 10622 | (top) | |
| 10623 | (top) | |
| 10624 | (top) | |
| 10625 | (top) | |
| 10626 | (top) | |
| 10627 | (top) | |
| 10628 | (top) | |
| 10629 | (top) | |
| 10630 | (top) | |
| 10631 | (top) | |
| 10632 | (top) | |
| 10633 | (top) | |
| 10634 | (top) | |
| 10635 | (top) | |
| 10636 | (top) | |
| 10637 | (top) | |
| 10638 | (top) | |
| 10639 | (top) | |
| 10640 | (top) | |
| 10641 | (top) | |
| 10642 | (top) | |
| 10643 | (top) | |
| 10644 | (top) | |
| 10645 | (top) | |
| 10646 | (top) | |
| 10647 | (top) | |
| 10648 | (top) | |
| 10649 | (top) | |
| 10650 | (top) | |
| 10651 | (top) | |
| 10652 | (top) | |
| 10653 | (top) | |
| 10654 | (top) | |
| 10655 | (top) | |
| 10656 | (top) | |
| 10657 | (top) | |
| 10658 | (top) | |
| 10659 | (top) | |
| 10660 | (top) | |
| 10661 | (top) | |
| 10662 | (top) | |
| 10663 | (top) | |
| 10664 | (top) | |
| 10665 | (top) | |
| 10666 | (top) | |
| 10667 | (top) | |
| 10668 | (top) | |
| 10669 | (top) | |
| 10670 | (top) | |
| 10671 | (top) | |
| 10672 | (top) | |
| 10673 | (top) | |
| 10674 | (top) | |
| 10675 | (top) | |
| 10676 | (top) | |
| 10677 | (top) | |
| 10678 | (top) | |
| 10679 | (top) | |
| 10680 | (top) | |
| 10681 | (top) | |
| 10682 | (top) | |
| 10683 | (top) | |
| 10684 | (top) | |
| 10685 | (top) | |
| 10686 | (top) | |
| 10687 | (top) | |
| 10688 | (top) | |
| 10689 | (top) | |
| 10690 | (top) | |
| 10691 | (top) | |
| 10692 | (top) | |
| 10693 | (top) | |
| 10694 | (top) | |
| 10695 | (top) | |
| 10696 | (top) | |
| 10697 | (top) | |
| 10698 | (top)) | |
| 1bbe0a63 AW |
10699 | ("i461" |
| 10700 | "i459" | |
| 10701 | "i457" | |
| 10702 | "i455" | |
| 10703 | "i453" | |
| 10704 | "i451" | |
| 10705 | "i449" | |
| 10706 | "i447" | |
| 10707 | "i445" | |
| 10708 | "i443" | |
| 10709 | "i441" | |
| 10710 | "i439" | |
| 10711 | "i437" | |
| 10712 | "i435" | |
| 10713 | "i433" | |
| 10714 | "i431" | |
| 10715 | "i429" | |
| 10716 | "i427" | |
| 10717 | "i425" | |
| 10718 | "i423" | |
| 10719 | "i421" | |
| 10720 | "i419" | |
| 10721 | "i417" | |
| 10722 | "i415" | |
| 10723 | "i413" | |
| 10724 | "i411" | |
| 10725 | "i409" | |
| 10726 | "i407" | |
| 10727 | "i405" | |
| 10728 | "i403" | |
| 10729 | "i401" | |
| 10730 | "i399" | |
| 10731 | "i397" | |
| 10732 | "i395" | |
| 10733 | "i393" | |
| e2ccab57 AW |
10734 | "i392" |
| 10735 | "i390" | |
| 1bbe0a63 | 10736 | "i387" |
| e2ccab57 | 10737 | "i386" |
| 1bbe0a63 AW |
10738 | "i385" |
| 10739 | "i383" | |
| e2ccab57 AW |
10740 | "i382" |
| 10741 | "i380" | |
| e2ccab57 AW |
10742 | "i378" |
| 10743 | "i376" | |
| e2ccab57 | 10744 | "i374" |
| e2ccab57 AW |
10745 | "i372" |
| 10746 | "i370" | |
| 10747 | "i368" | |
| 10748 | "i366" | |
| 1bbe0a63 AW |
10749 | "i363" |
| 10750 | "i361" | |
| e2ccab57 AW |
10751 | "i360" |
| 10752 | "i358" | |
| 10753 | "i356" | |
| 1bbe0a63 AW |
10754 | "i354" |
| 10755 | "i352" | |
| e2ccab57 AW |
10756 | "i351" |
| 10757 | "i350" | |
| 10758 | "i349" | |
| e2ccab57 AW |
10759 | "i347" |
| 10760 | "i346" | |
| e2ccab57 AW |
10761 | "i343" |
| 10762 | "i341" | |
| 1bbe0a63 AW |
10763 | "i339" |
| 10764 | "i337" | |
| 10765 | "i335" | |
| 10766 | "i333" | |
| 10767 | "i331" | |
| e2ccab57 | 10768 | "i330" |
| 1bbe0a63 AW |
10769 | "i329" |
| 10770 | "i327" | |
| e2ccab57 AW |
10771 | "i325" |
| 10772 | "i324" | |
| e2ccab57 | 10773 | "i321" |
| 1bbe0a63 | 10774 | "i320" |
| e2ccab57 AW |
10775 | "i318" |
| 10776 | "i316" | |
| 10777 | "i314" | |
| 10778 | "i312" | |
| 10779 | "i310" | |
| 10780 | "i308" | |
| 10781 | "i306" | |
| 10782 | "i304" | |
| 10783 | "i302" | |
| 1bbe0a63 AW |
10784 | "i299" |
| 10785 | "i297" | |
| 10786 | "i295" | |
| 10787 | "i293" | |
| 10788 | "i291" | |
| 10789 | "i289" | |
| 10790 | "i287" | |
| 10791 | "i285" | |
| 10792 | "i283" | |
| 10793 | "i281" | |
| 10794 | "i279" | |
| 10795 | "i277" | |
| 10796 | "i275" | |
| 10797 | "i273" | |
| 10798 | "i271" | |
| 10799 | "i269" | |
| 10800 | "i267" | |
| 10801 | "i265" | |
| 10802 | "i263" | |
| 10803 | "i261" | |
| 10804 | "i259" | |
| 10805 | "i257" | |
| 10806 | "i255" | |
| e2ccab57 | 10807 | "i254" |
| e2ccab57 AW |
10808 | "i251" |
| 10809 | "i249" | |
| 10810 | "i248" | |
| 10811 | "i247" | |
| 10812 | "i246" | |
| 10813 | "i245" | |
| 10814 | "i243" | |
| 10815 | "i241" | |
| 10816 | "i239" | |
| 10817 | "i236" | |
| 10818 | "i234" | |
| 10819 | "i232" | |
| 10820 | "i230" | |
| 10821 | "i228" | |
| 10822 | "i226" | |
| 10823 | "i224" | |
| 10824 | "i222" | |
| 10825 | "i220" | |
| 10826 | "i218" | |
| 10827 | "i216" | |
| 10828 | "i214" | |
| 10829 | "i212" | |
| 10830 | "i210" | |
| 10831 | "i208" | |
| 10832 | "i206" | |
| 10833 | "i204" | |
| 10834 | "i202")) | |
| 10835 | #(ribcage | |
| 10836 | (define-structure | |
| 10837 | define-expansion-accessors | |
| 10838 | define-expansion-constructors) | |
| 10839 | ((top) (top) (top)) | |
| 10840 | ("i40" "i39" "i38"))) | |
| 10841 | (hygiene guile)) | |
| 1bbe0a63 AW |
10842 | #{mod 3598}#)))) |
| 10843 | #{tmp 3588}#) | |
| e2ccab57 AW |
10844 | (syntax-violation |
| 10845 | #f | |
| 10846 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
10847 | #{tmp 3587}#)))))) |
| 10848 | (#{global-extend 340}# | |
| e2ccab57 AW |
10849 | 'module-ref |
| 10850 | '@@ | |
| 1bbe0a63 | 10851 | (lambda (#{e 3601}# #{r 3602}# #{w 3603}#) |
| e2ccab57 | 10852 | (letrec* |
| 1bbe0a63 AW |
10853 | ((#{remodulate 3608}# |
| 10854 | (lambda (#{x 3609}# #{mod 3610}#) | |
| 10855 | (if (pair? #{x 3609}#) | |
| 10856 | (cons (#{remodulate 3608}# | |
| 10857 | (car #{x 3609}#) | |
| 10858 | #{mod 3610}#) | |
| 10859 | (#{remodulate 3608}# | |
| 10860 | (cdr #{x 3609}#) | |
| 10861 | #{mod 3610}#)) | |
| 10862 | (if (#{syntax-object? 307}# #{x 3609}#) | |
| 10863 | (#{make-syntax-object 305}# | |
| 10864 | (#{remodulate 3608}# | |
| 10865 | (#{syntax-object-expression 309}# #{x 3609}#) | |
| 10866 | #{mod 3610}#) | |
| 10867 | (#{syntax-object-wrap 311}# #{x 3609}#) | |
| 10868 | #{mod 3610}#) | |
| 10869 | (if (vector? #{x 3609}#) | |
| e2ccab57 | 10870 | (begin |
| 1bbe0a63 | 10871 | (let ((#{n 3621}# (vector-length #{x 3609}#))) |
| e2ccab57 | 10872 | (begin |
| 1bbe0a63 | 10873 | (let ((#{v 3623}# (make-vector #{n 3621}#))) |
| e2ccab57 | 10874 | (letrec* |
| 1bbe0a63 AW |
10875 | ((#{loop 3626}# |
| 10876 | (lambda (#{i 3627}#) | |
| 10877 | (if (= #{i 3627}# #{n 3621}#) | |
| 10878 | (begin (if #f #f) #{v 3623}#) | |
| e2ccab57 AW |
10879 | (begin |
| 10880 | (vector-set! | |
| 1bbe0a63 AW |
10881 | #{v 3623}# |
| 10882 | #{i 3627}# | |
| 10883 | (#{remodulate 3608}# | |
| e2ccab57 | 10884 | (vector-ref |
| 1bbe0a63 AW |
10885 | #{x 3609}# |
| 10886 | #{i 3627}#) | |
| 10887 | #{mod 3610}#)) | |
| 10888 | (#{loop 3626}# | |
| 10889 | (#{1+}# #{i 3627}#))))))) | |
| 10890 | (begin (#{loop 3626}# 0))))))) | |
| 10891 | #{x 3609}#)))))) | |
| e2ccab57 | 10892 | (begin |
| 1bbe0a63 AW |
10893 | (let ((#{tmp 3633}# #{e 3601}#)) |
| 10894 | (let ((#{tmp 3634}# | |
| 10895 | ($sc-dispatch #{tmp 3633}# '(_ each-any any)))) | |
| 10896 | (if (if #{tmp 3634}# | |
| e2ccab57 | 10897 | (@apply |
| 1bbe0a63 AW |
10898 | (lambda (#{mod 3637}# #{exp 3638}#) |
| 10899 | (and-map #{id? 344}# #{mod 3637}#)) | |
| 10900 | #{tmp 3634}#) | |
| e2ccab57 AW |
10901 | #f) |
| 10902 | (@apply | |
| 1bbe0a63 | 10903 | (lambda (#{mod 3642}# #{exp 3643}#) |
| e2ccab57 | 10904 | (begin |
| 1bbe0a63 | 10905 | (let ((#{mod 3645}# |
| e2ccab57 AW |
10906 | (syntax->datum |
| 10907 | (cons '#(syntax-object | |
| 10908 | private | |
| 10909 | ((top) | |
| 10910 | #(ribcage | |
| 10911 | #(mod exp) | |
| 10912 | #((top) (top)) | |
| 1bbe0a63 | 10913 | #("i3640" "i3641")) |
| e2ccab57 AW |
10914 | #(ribcage |
| 10915 | (remodulate) | |
| 10916 | ((top)) | |
| 1bbe0a63 | 10917 | ("i3607")) |
| e2ccab57 AW |
10918 | #(ribcage |
| 10919 | #(e r w) | |
| 10920 | #((top) (top) (top)) | |
| 1bbe0a63 | 10921 | #("i3604" "i3605" "i3606")) |
| e2ccab57 AW |
10922 | #(ribcage |
| 10923 | (lambda-var-list | |
| 10924 | gen-var | |
| 10925 | strip | |
| 10926 | chi-lambda-case | |
| 10927 | lambda*-formals | |
| 10928 | chi-simple-lambda | |
| 10929 | lambda-formals | |
| 10930 | ellipsis? | |
| 10931 | chi-void | |
| 10932 | eval-local-transformer | |
| 10933 | chi-local-syntax | |
| 10934 | chi-body | |
| 10935 | chi-macro | |
| 10936 | chi-application | |
| 10937 | chi-expr | |
| 10938 | chi | |
| 10939 | syntax-type | |
| 10940 | chi-when-list | |
| 10941 | chi-install-global | |
| 10942 | chi-top-sequence | |
| 10943 | chi-sequence | |
| 10944 | source-wrap | |
| 10945 | wrap | |
| 10946 | bound-id-member? | |
| 10947 | distinct-bound-ids? | |
| 10948 | valid-bound-ids? | |
| 10949 | bound-id=? | |
| 10950 | free-id=? | |
| 10951 | id-var-name | |
| 10952 | same-marks? | |
| 10953 | join-marks | |
| 10954 | join-wraps | |
| 10955 | smart-append | |
| 10956 | make-binding-wrap | |
| 10957 | extend-ribcage! | |
| 10958 | make-empty-ribcage | |
| 10959 | new-mark | |
| 10960 | anti-mark | |
| 10961 | the-anti-mark | |
| 10962 | top-marked? | |
| 10963 | top-wrap | |
| 10964 | empty-wrap | |
| 10965 | set-ribcage-labels! | |
| 10966 | set-ribcage-marks! | |
| 10967 | set-ribcage-symnames! | |
| 10968 | ribcage-labels | |
| 10969 | ribcage-marks | |
| 10970 | ribcage-symnames | |
| 10971 | ribcage? | |
| 10972 | make-ribcage | |
| 10973 | gen-labels | |
| 10974 | gen-label | |
| 10975 | make-rename | |
| 10976 | rename-marks | |
| 10977 | rename-new | |
| 10978 | rename-old | |
| 10979 | subst-rename? | |
| 10980 | wrap-subst | |
| 10981 | wrap-marks | |
| 10982 | make-wrap | |
| 10983 | id-sym-name&marks | |
| 10984 | id-sym-name | |
| 10985 | id? | |
| 10986 | nonsymbol-id? | |
| 10987 | global-extend | |
| 10988 | lookup | |
| 10989 | macros-only-env | |
| 10990 | extend-var-env | |
| 10991 | extend-env | |
| 10992 | null-env | |
| 10993 | binding-value | |
| 10994 | binding-type | |
| 10995 | make-binding | |
| 10996 | arg-check | |
| 10997 | source-annotation | |
| 10998 | no-source | |
| 10999 | set-syntax-object-module! | |
| 11000 | set-syntax-object-wrap! | |
| 11001 | set-syntax-object-expression! | |
| 11002 | syntax-object-module | |
| 11003 | syntax-object-wrap | |
| 11004 | syntax-object-expression | |
| 11005 | syntax-object? | |
| 11006 | make-syntax-object | |
| 11007 | build-lexical-var | |
| 11008 | build-letrec | |
| 11009 | build-named-let | |
| 11010 | build-let | |
| 11011 | build-sequence | |
| 11012 | build-data | |
| 11013 | build-primref | |
| 11014 | build-lambda-case | |
| 11015 | build-case-lambda | |
| 11016 | build-simple-lambda | |
| 11017 | build-global-definition | |
| 11018 | build-global-assignment | |
| 11019 | build-global-reference | |
| 11020 | analyze-variable | |
| 11021 | build-lexical-assignment | |
| 11022 | build-lexical-reference | |
| 11023 | build-dynlet | |
| 11024 | build-conditional | |
| 11025 | build-application | |
| 11026 | build-void | |
| 11027 | maybe-name-value! | |
| 11028 | decorate-source | |
| 11029 | get-global-definition-hook | |
| 11030 | put-global-definition-hook | |
| 11031 | gensym-hook | |
| 11032 | local-eval-hook | |
| 11033 | top-level-eval-hook | |
| 11034 | fx< | |
| 11035 | fx= | |
| 11036 | fx- | |
| 11037 | fx+ | |
| 11038 | set-lambda-meta! | |
| 11039 | lambda-meta | |
| 11040 | lambda? | |
| 11041 | make-dynlet | |
| 11042 | make-letrec | |
| 11043 | make-let | |
| 11044 | make-lambda-case | |
| 11045 | make-lambda | |
| 11046 | make-sequence | |
| 11047 | make-application | |
| 11048 | make-conditional | |
| 11049 | make-toplevel-define | |
| 11050 | make-toplevel-set | |
| 11051 | make-toplevel-ref | |
| 11052 | make-module-set | |
| 11053 | make-module-ref | |
| 11054 | make-lexical-set | |
| 11055 | make-lexical-ref | |
| 11056 | make-primitive-ref | |
| 11057 | make-const | |
| 11058 | make-void) | |
| 11059 | ((top) | |
| 11060 | (top) | |
| 11061 | (top) | |
| 11062 | (top) | |
| 11063 | (top) | |
| 11064 | (top) | |
| 11065 | (top) | |
| 11066 | (top) | |
| 11067 | (top) | |
| 11068 | (top) | |
| 11069 | (top) | |
| 11070 | (top) | |
| 11071 | (top) | |
| 11072 | (top) | |
| 11073 | (top) | |
| 11074 | (top) | |
| 11075 | (top) | |
| 11076 | (top) | |
| 11077 | (top) | |
| 11078 | (top) | |
| 11079 | (top) | |
| 11080 | (top) | |
| 11081 | (top) | |
| 11082 | (top) | |
| 11083 | (top) | |
| 11084 | (top) | |
| 11085 | (top) | |
| 11086 | (top) | |
| 11087 | (top) | |
| 11088 | (top) | |
| 11089 | (top) | |
| 11090 | (top) | |
| 11091 | (top) | |
| 11092 | (top) | |
| 11093 | (top) | |
| 11094 | (top) | |
| 11095 | (top) | |
| 11096 | (top) | |
| 11097 | (top) | |
| 11098 | (top) | |
| 11099 | (top) | |
| 11100 | (top) | |
| 11101 | (top) | |
| 11102 | (top) | |
| 11103 | (top) | |
| 11104 | (top) | |
| 11105 | (top) | |
| 11106 | (top) | |
| 11107 | (top) | |
| 11108 | (top) | |
| 11109 | (top) | |
| 11110 | (top) | |
| 11111 | (top) | |
| 11112 | (top) | |
| 11113 | (top) | |
| 11114 | (top) | |
| 11115 | (top) | |
| 11116 | (top) | |
| 11117 | (top) | |
| 11118 | (top) | |
| 11119 | (top) | |
| 11120 | (top) | |
| 11121 | (top) | |
| 11122 | (top) | |
| 11123 | (top) | |
| 11124 | (top) | |
| 11125 | (top) | |
| 11126 | (top) | |
| 11127 | (top) | |
| 11128 | (top) | |
| 11129 | (top) | |
| 11130 | (top) | |
| 11131 | (top) | |
| 11132 | (top) | |
| 11133 | (top) | |
| 11134 | (top) | |
| 11135 | (top) | |
| 11136 | (top) | |
| 11137 | (top) | |
| 11138 | (top) | |
| 11139 | (top) | |
| 11140 | (top) | |
| 11141 | (top) | |
| 11142 | (top) | |
| 11143 | (top) | |
| 11144 | (top) | |
| 11145 | (top) | |
| 11146 | (top) | |
| 11147 | (top) | |
| 11148 | (top) | |
| 11149 | (top) | |
| 11150 | (top) | |
| 11151 | (top) | |
| 11152 | (top) | |
| 11153 | (top) | |
| 11154 | (top) | |
| 11155 | (top) | |
| 11156 | (top) | |
| 11157 | (top) | |
| 11158 | (top) | |
| 11159 | (top) | |
| 11160 | (top) | |
| 11161 | (top) | |
| 11162 | (top) | |
| 11163 | (top) | |
| 11164 | (top) | |
| 11165 | (top) | |
| 11166 | (top) | |
| 11167 | (top) | |
| 11168 | (top) | |
| 11169 | (top) | |
| 11170 | (top) | |
| 11171 | (top) | |
| 11172 | (top) | |
| 11173 | (top) | |
| 11174 | (top) | |
| 11175 | (top) | |
| 11176 | (top) | |
| 11177 | (top) | |
| 11178 | (top) | |
| 11179 | (top) | |
| 11180 | (top) | |
| 11181 | (top) | |
| 11182 | (top) | |
| 11183 | (top) | |
| 11184 | (top) | |
| 11185 | (top) | |
| 11186 | (top) | |
| 11187 | (top) | |
| 11188 | (top) | |
| 11189 | (top) | |
| 11190 | (top) | |
| 11191 | (top) | |
| 11192 | (top) | |
| 11193 | (top) | |
| 11194 | (top)) | |
| 1bbe0a63 AW |
11195 | ("i461" |
| 11196 | "i459" | |
| 11197 | "i457" | |
| 11198 | "i455" | |
| 11199 | "i453" | |
| 11200 | "i451" | |
| 11201 | "i449" | |
| 11202 | "i447" | |
| 11203 | "i445" | |
| 11204 | "i443" | |
| 11205 | "i441" | |
| 11206 | "i439" | |
| 11207 | "i437" | |
| 11208 | "i435" | |
| 11209 | "i433" | |
| 11210 | "i431" | |
| 11211 | "i429" | |
| 11212 | "i427" | |
| 11213 | "i425" | |
| 11214 | "i423" | |
| 11215 | "i421" | |
| 11216 | "i419" | |
| 11217 | "i417" | |
| 11218 | "i415" | |
| 11219 | "i413" | |
| 11220 | "i411" | |
| 11221 | "i409" | |
| 11222 | "i407" | |
| 11223 | "i405" | |
| 11224 | "i403" | |
| 11225 | "i401" | |
| 11226 | "i399" | |
| 11227 | "i397" | |
| 11228 | "i395" | |
| 11229 | "i393" | |
| e2ccab57 AW |
11230 | "i392" |
| 11231 | "i390" | |
| 1bbe0a63 | 11232 | "i387" |
| e2ccab57 | 11233 | "i386" |
| 1bbe0a63 AW |
11234 | "i385" |
| 11235 | "i383" | |
| e2ccab57 AW |
11236 | "i382" |
| 11237 | "i380" | |
| e2ccab57 AW |
11238 | "i378" |
| 11239 | "i376" | |
| e2ccab57 | 11240 | "i374" |
| e2ccab57 AW |
11241 | "i372" |
| 11242 | "i370" | |
| 11243 | "i368" | |
| 11244 | "i366" | |
| 1bbe0a63 AW |
11245 | "i363" |
| 11246 | "i361" | |
| e2ccab57 AW |
11247 | "i360" |
| 11248 | "i358" | |
| 11249 | "i356" | |
| 1bbe0a63 AW |
11250 | "i354" |
| 11251 | "i352" | |
| e2ccab57 AW |
11252 | "i351" |
| 11253 | "i350" | |
| 11254 | "i349" | |
| e2ccab57 AW |
11255 | "i347" |
| 11256 | "i346" | |
| e2ccab57 AW |
11257 | "i343" |
| 11258 | "i341" | |
| 1bbe0a63 AW |
11259 | "i339" |
| 11260 | "i337" | |
| 11261 | "i335" | |
| 11262 | "i333" | |
| 11263 | "i331" | |
| e2ccab57 | 11264 | "i330" |
| 1bbe0a63 AW |
11265 | "i329" |
| 11266 | "i327" | |
| e2ccab57 AW |
11267 | "i325" |
| 11268 | "i324" | |
| e2ccab57 | 11269 | "i321" |
| 1bbe0a63 | 11270 | "i320" |
| e2ccab57 AW |
11271 | "i318" |
| 11272 | "i316" | |
| 11273 | "i314" | |
| 11274 | "i312" | |
| 11275 | "i310" | |
| 11276 | "i308" | |
| 11277 | "i306" | |
| 11278 | "i304" | |
| 11279 | "i302" | |
| 1bbe0a63 AW |
11280 | "i299" |
| 11281 | "i297" | |
| 11282 | "i295" | |
| 11283 | "i293" | |
| 11284 | "i291" | |
| 11285 | "i289" | |
| 11286 | "i287" | |
| 11287 | "i285" | |
| 11288 | "i283" | |
| 11289 | "i281" | |
| 11290 | "i279" | |
| 11291 | "i277" | |
| 11292 | "i275" | |
| 11293 | "i273" | |
| 11294 | "i271" | |
| 11295 | "i269" | |
| 11296 | "i267" | |
| 11297 | "i265" | |
| 11298 | "i263" | |
| 11299 | "i261" | |
| 11300 | "i259" | |
| 11301 | "i257" | |
| 11302 | "i255" | |
| e2ccab57 | 11303 | "i254" |
| e2ccab57 AW |
11304 | "i251" |
| 11305 | "i249" | |
| 11306 | "i248" | |
| 11307 | "i247" | |
| 11308 | "i246" | |
| 11309 | "i245" | |
| 11310 | "i243" | |
| 11311 | "i241" | |
| 11312 | "i239" | |
| 11313 | "i236" | |
| 11314 | "i234" | |
| 11315 | "i232" | |
| 11316 | "i230" | |
| 11317 | "i228" | |
| 11318 | "i226" | |
| 11319 | "i224" | |
| 11320 | "i222" | |
| 11321 | "i220" | |
| 11322 | "i218" | |
| 11323 | "i216" | |
| 11324 | "i214" | |
| 11325 | "i212" | |
| 11326 | "i210" | |
| 11327 | "i208" | |
| 11328 | "i206" | |
| 11329 | "i204" | |
| 11330 | "i202")) | |
| 11331 | #(ribcage | |
| 11332 | (define-structure | |
| 11333 | define-expansion-accessors | |
| 11334 | define-expansion-constructors) | |
| 11335 | ((top) (top) (top)) | |
| 11336 | ("i40" "i39" "i38"))) | |
| 11337 | (hygiene guile)) | |
| 1bbe0a63 | 11338 | #{mod 3642}#)))) |
| e2ccab57 | 11339 | (values |
| 1bbe0a63 AW |
11340 | (#{remodulate 3608}# #{exp 3643}# #{mod 3645}#) |
| 11341 | #{r 3602}# | |
| 11342 | #{w 3603}# | |
| 11343 | (#{source-annotation 322}# #{exp 3643}#) | |
| 11344 | #{mod 3645}#)))) | |
| 11345 | #{tmp 3634}#) | |
| e2ccab57 AW |
11346 | (syntax-violation |
| 11347 | #f | |
| 11348 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
11349 | #{tmp 3633}#)))))))) |
| 11350 | (#{global-extend 340}# | |
| e2ccab57 AW |
11351 | 'core |
| 11352 | 'if | |
| 1bbe0a63 AW |
11353 | (lambda (#{e 3647}# |
| 11354 | #{r 3648}# | |
| 11355 | #{w 3649}# | |
| 11356 | #{s 3650}# | |
| 11357 | #{mod 3651}#) | |
| 11358 | (let ((#{tmp 3657}# #{e 3647}#)) | |
| 11359 | (let ((#{tmp 3658}# | |
| 11360 | ($sc-dispatch #{tmp 3657}# '(_ any any)))) | |
| 11361 | (if #{tmp 3658}# | |
| e2ccab57 | 11362 | (@apply |
| 1bbe0a63 AW |
11363 | (lambda (#{test 3661}# #{then 3662}#) |
| 11364 | (#{build-conditional 268}# | |
| 11365 | #{s 3650}# | |
| 11366 | (#{chi 432}# | |
| 11367 | #{test 3661}# | |
| 11368 | #{r 3648}# | |
| 11369 | #{w 3649}# | |
| 11370 | #{mod 3651}#) | |
| 11371 | (#{chi 432}# | |
| 11372 | #{then 3662}# | |
| 11373 | #{r 3648}# | |
| 11374 | #{w 3649}# | |
| 11375 | #{mod 3651}#) | |
| 11376 | (#{build-void 264}# #f))) | |
| 11377 | #{tmp 3658}#) | |
| 11378 | (let ((#{tmp 3664}# | |
| 11379 | ($sc-dispatch #{tmp 3657}# '(_ any any any)))) | |
| 11380 | (if #{tmp 3664}# | |
| e2ccab57 | 11381 | (@apply |
| 1bbe0a63 AW |
11382 | (lambda (#{test 3668}# #{then 3669}# #{else 3670}#) |
| 11383 | (#{build-conditional 268}# | |
| 11384 | #{s 3650}# | |
| 11385 | (#{chi 432}# | |
| 11386 | #{test 3668}# | |
| 11387 | #{r 3648}# | |
| 11388 | #{w 3649}# | |
| 11389 | #{mod 3651}#) | |
| 11390 | (#{chi 432}# | |
| 11391 | #{then 3669}# | |
| 11392 | #{r 3648}# | |
| 11393 | #{w 3649}# | |
| 11394 | #{mod 3651}#) | |
| 11395 | (#{chi 432}# | |
| 11396 | #{else 3670}# | |
| 11397 | #{r 3648}# | |
| 11398 | #{w 3649}# | |
| 11399 | #{mod 3651}#))) | |
| 11400 | #{tmp 3664}#) | |
| e2ccab57 AW |
11401 | (syntax-violation |
| 11402 | #f | |
| 11403 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
11404 | #{tmp 3657}#)))))))) |
| 11405 | (#{global-extend 340}# | |
| e2ccab57 AW |
11406 | 'core |
| 11407 | 'with-fluids | |
| 1bbe0a63 AW |
11408 | (lambda (#{e 3671}# |
| 11409 | #{r 3672}# | |
| 11410 | #{w 3673}# | |
| 11411 | #{s 3674}# | |
| 11412 | #{mod 3675}#) | |
| 11413 | (let ((#{tmp 3681}# #{e 3671}#)) | |
| 11414 | (let ((#{tmp 3682}# | |
| e2ccab57 | 11415 | ($sc-dispatch |
| 1bbe0a63 | 11416 | #{tmp 3681}# |
| e2ccab57 | 11417 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 11418 | (if #{tmp 3682}# |
| e2ccab57 | 11419 | (@apply |
| 1bbe0a63 AW |
11420 | (lambda (#{fluid 3687}# |
| 11421 | #{val 3688}# | |
| 11422 | #{b 3689}# | |
| 11423 | #{b* 3690}#) | |
| 11424 | (#{build-dynlet 270}# | |
| 11425 | #{s 3674}# | |
| 11426 | (map (lambda (#{x 3691}#) | |
| 11427 | (#{chi 432}# | |
| 11428 | #{x 3691}# | |
| 11429 | #{r 3672}# | |
| 11430 | #{w 3673}# | |
| 11431 | #{mod 3675}#)) | |
| 11432 | #{fluid 3687}#) | |
| 11433 | (map (lambda (#{x 3694}#) | |
| 11434 | (#{chi 432}# | |
| 11435 | #{x 3694}# | |
| 11436 | #{r 3672}# | |
| 11437 | #{w 3673}# | |
| 11438 | #{mod 3675}#)) | |
| 11439 | #{val 3688}#) | |
| 11440 | (#{chi-body 440}# | |
| 11441 | (cons #{b 3689}# #{b* 3690}#) | |
| 11442 | (#{source-wrap 420}# | |
| 11443 | #{e 3671}# | |
| 11444 | #{w 3673}# | |
| 11445 | #{s 3674}# | |
| 11446 | #{mod 3675}#) | |
| 11447 | #{r 3672}# | |
| 11448 | #{w 3673}# | |
| 11449 | #{mod 3675}#))) | |
| 11450 | #{tmp 3682}#) | |
| e2ccab57 AW |
11451 | (syntax-violation |
| 11452 | #f | |
| 11453 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
11454 | #{tmp 3681}#)))))) |
| 11455 | (#{global-extend 340}# 'begin 'begin '()) | |
| 11456 | (#{global-extend 340}# 'define 'define '()) | |
| 11457 | (#{global-extend 340}# | |
| e2ccab57 AW |
11458 | 'define-syntax |
| 11459 | 'define-syntax | |
| 11460 | '()) | |
| 1bbe0a63 AW |
11461 | (#{global-extend 340}# 'eval-when 'eval-when '()) |
| 11462 | (#{global-extend 340}# | |
| e2ccab57 AW |
11463 | 'core |
| 11464 | 'syntax-case | |
| 11465 | (letrec* | |
| 1bbe0a63 AW |
11466 | ((#{convert-pattern 3699}# |
| 11467 | (lambda (#{pattern 3706}# #{keys 3707}#) | |
| e2ccab57 | 11468 | (letrec* |
| 1bbe0a63 AW |
11469 | ((#{cvt* 3711}# |
| 11470 | (lambda (#{p* 3716}# #{n 3717}# #{ids 3718}#) | |
| 11471 | (if (not (pair? #{p* 3716}#)) | |
| 11472 | (#{cvt 3715}# | |
| 11473 | #{p* 3716}# | |
| 11474 | #{n 3717}# | |
| 11475 | #{ids 3718}#) | |
| e2ccab57 AW |
11476 | (call-with-values |
| 11477 | (lambda () | |
| 1bbe0a63 AW |
11478 | (#{cvt* 3711}# |
| 11479 | (cdr #{p* 3716}#) | |
| 11480 | #{n 3717}# | |
| 11481 | #{ids 3718}#)) | |
| 11482 | (lambda (#{y 3722}# #{ids 3723}#) | |
| e2ccab57 AW |
11483 | (call-with-values |
| 11484 | (lambda () | |
| 1bbe0a63 AW |
11485 | (#{cvt 3715}# |
| 11486 | (car #{p* 3716}#) | |
| 11487 | #{n 3717}# | |
| 11488 | #{ids 3723}#)) | |
| 11489 | (lambda (#{x 3726}# #{ids 3727}#) | |
| d8f699e8 | 11490 | (values |
| 1bbe0a63 AW |
11491 | (cons #{x 3726}# #{y 3722}#) |
| 11492 | #{ids 3727}#)))))))) | |
| 11493 | (#{v-reverse 3713}# | |
| 11494 | (lambda (#{x 3730}#) | |
| 0ed9680f | 11495 | (letrec* |
| 1bbe0a63 AW |
11496 | ((#{loop 3735}# |
| 11497 | (lambda (#{r 3736}# #{x 3737}#) | |
| 11498 | (if (not (pair? #{x 3737}#)) | |
| 11499 | (values #{r 3736}# #{x 3737}#) | |
| 11500 | (#{loop 3735}# | |
| 11501 | (cons (car #{x 3737}#) #{r 3736}#) | |
| 11502 | (cdr #{x 3737}#)))))) | |
| 11503 | (begin (#{loop 3735}# '() #{x 3730}#))))) | |
| 11504 | (#{cvt 3715}# | |
| 11505 | (lambda (#{p 3738}# #{n 3739}# #{ids 3740}#) | |
| 11506 | (if (#{id? 344}# #{p 3738}#) | |
| 11507 | (if (#{bound-id-member? 416}# | |
| 11508 | #{p 3738}# | |
| 11509 | #{keys 3707}#) | |
| e2ccab57 | 11510 | (values |
| 1bbe0a63 AW |
11511 | (vector 'free-id #{p 3738}#) |
| 11512 | #{ids 3740}#) | |
| 11513 | (if (#{free-id=? 408}# | |
| 11514 | #{p 3738}# | |
| e2ccab57 AW |
11515 | '#(syntax-object |
| 11516 | _ | |
| 11517 | ((top) | |
| 11518 | #(ribcage () () ()) | |
| 11519 | #(ribcage | |
| 11520 | #(p n ids) | |
| 11521 | #((top) (top) (top)) | |
| 1bbe0a63 | 11522 | #("i3741" "i3742" "i3743")) |
| e2ccab57 | 11523 | #(ribcage |
| 0ed9680f SIT |
11524 | (cvt v-reverse cvt*) |
| 11525 | ((top) (top) (top)) | |
| 1bbe0a63 | 11526 | ("i3714" "i3712" "i3710")) |
| e2ccab57 AW |
11527 | #(ribcage |
| 11528 | #(pattern keys) | |
| 11529 | #((top) (top)) | |
| 1bbe0a63 | 11530 | #("i3708" "i3709")) |
| e2ccab57 AW |
11531 | #(ribcage |
| 11532 | (gen-syntax-case | |
| 11533 | gen-clause | |
| 11534 | build-dispatch-call | |
| 11535 | convert-pattern) | |
| 11536 | ((top) (top) (top) (top)) | |
| 1bbe0a63 | 11537 | ("i3704" "i3702" "i3700" "i3698")) |
| e2ccab57 AW |
11538 | #(ribcage |
| 11539 | (lambda-var-list | |
| 11540 | gen-var | |
| 11541 | strip | |
| 11542 | chi-lambda-case | |
| 11543 | lambda*-formals | |
| 11544 | chi-simple-lambda | |
| 11545 | lambda-formals | |
| 11546 | ellipsis? | |
| 11547 | chi-void | |
| 11548 | eval-local-transformer | |
| 11549 | chi-local-syntax | |
| 11550 | chi-body | |
| 11551 | chi-macro | |
| 11552 | chi-application | |
| 11553 | chi-expr | |
| 11554 | chi | |
| 11555 | syntax-type | |
| 11556 | chi-when-list | |
| 11557 | chi-install-global | |
| 11558 | chi-top-sequence | |
| 11559 | chi-sequence | |
| 11560 | source-wrap | |
| 11561 | wrap | |
| 11562 | bound-id-member? | |
| 11563 | distinct-bound-ids? | |
| 11564 | valid-bound-ids? | |
| 11565 | bound-id=? | |
| 11566 | free-id=? | |
| 11567 | id-var-name | |
| 11568 | same-marks? | |
| 11569 | join-marks | |
| 11570 | join-wraps | |
| 11571 | smart-append | |
| 11572 | make-binding-wrap | |
| 11573 | extend-ribcage! | |
| 11574 | make-empty-ribcage | |
| 11575 | new-mark | |
| 11576 | anti-mark | |
| 11577 | the-anti-mark | |
| 11578 | top-marked? | |
| 11579 | top-wrap | |
| 11580 | empty-wrap | |
| 11581 | set-ribcage-labels! | |
| 11582 | set-ribcage-marks! | |
| 11583 | set-ribcage-symnames! | |
| 11584 | ribcage-labels | |
| 11585 | ribcage-marks | |
| 11586 | ribcage-symnames | |
| 11587 | ribcage? | |
| 11588 | make-ribcage | |
| 11589 | gen-labels | |
| 11590 | gen-label | |
| 11591 | make-rename | |
| 11592 | rename-marks | |
| 11593 | rename-new | |
| 11594 | rename-old | |
| 11595 | subst-rename? | |
| 11596 | wrap-subst | |
| 11597 | wrap-marks | |
| 11598 | make-wrap | |
| 11599 | id-sym-name&marks | |
| 11600 | id-sym-name | |
| 11601 | id? | |
| 11602 | nonsymbol-id? | |
| 11603 | global-extend | |
| 11604 | lookup | |
| 11605 | macros-only-env | |
| 11606 | extend-var-env | |
| 11607 | extend-env | |
| 11608 | null-env | |
| 11609 | binding-value | |
| 11610 | binding-type | |
| 11611 | make-binding | |
| 11612 | arg-check | |
| 11613 | source-annotation | |
| 11614 | no-source | |
| 11615 | set-syntax-object-module! | |
| 11616 | set-syntax-object-wrap! | |
| 11617 | set-syntax-object-expression! | |
| 11618 | syntax-object-module | |
| 11619 | syntax-object-wrap | |
| 11620 | syntax-object-expression | |
| 11621 | syntax-object? | |
| 11622 | make-syntax-object | |
| 11623 | build-lexical-var | |
| 11624 | build-letrec | |
| 11625 | build-named-let | |
| 11626 | build-let | |
| 11627 | build-sequence | |
| 11628 | build-data | |
| 11629 | build-primref | |
| 11630 | build-lambda-case | |
| 11631 | build-case-lambda | |
| 11632 | build-simple-lambda | |
| 11633 | build-global-definition | |
| 11634 | build-global-assignment | |
| 11635 | build-global-reference | |
| 11636 | analyze-variable | |
| 11637 | build-lexical-assignment | |
| 11638 | build-lexical-reference | |
| 11639 | build-dynlet | |
| 11640 | build-conditional | |
| 11641 | build-application | |
| 11642 | build-void | |
| 11643 | maybe-name-value! | |
| 11644 | decorate-source | |
| 11645 | get-global-definition-hook | |
| 11646 | put-global-definition-hook | |
| 11647 | gensym-hook | |
| 11648 | local-eval-hook | |
| 11649 | top-level-eval-hook | |
| 11650 | fx< | |
| 11651 | fx= | |
| 11652 | fx- | |
| 11653 | fx+ | |
| 11654 | set-lambda-meta! | |
| 11655 | lambda-meta | |
| 11656 | lambda? | |
| 11657 | make-dynlet | |
| 11658 | make-letrec | |
| 11659 | make-let | |
| 11660 | make-lambda-case | |
| 11661 | make-lambda | |
| 11662 | make-sequence | |
| 11663 | make-application | |
| 11664 | make-conditional | |
| 11665 | make-toplevel-define | |
| 11666 | make-toplevel-set | |
| 11667 | make-toplevel-ref | |
| 11668 | make-module-set | |
| 11669 | make-module-ref | |
| 11670 | make-lexical-set | |
| 11671 | make-lexical-ref | |
| 11672 | make-primitive-ref | |
| 11673 | make-const | |
| 11674 | make-void) | |
| 11675 | ((top) | |
| 11676 | (top) | |
| 11677 | (top) | |
| 11678 | (top) | |
| 11679 | (top) | |
| 11680 | (top) | |
| 11681 | (top) | |
| 11682 | (top) | |
| 11683 | (top) | |
| 11684 | (top) | |
| 11685 | (top) | |
| 11686 | (top) | |
| 11687 | (top) | |
| 11688 | (top) | |
| 11689 | (top) | |
| 11690 | (top) | |
| 11691 | (top) | |
| 11692 | (top) | |
| 11693 | (top) | |
| 11694 | (top) | |
| 11695 | (top) | |
| 11696 | (top) | |
| 11697 | (top) | |
| 11698 | (top) | |
| 11699 | (top) | |
| 11700 | (top) | |
| 11701 | (top) | |
| 11702 | (top) | |
| 11703 | (top) | |
| 11704 | (top) | |
| 11705 | (top) | |
| 11706 | (top) | |
| 11707 | (top) | |
| 11708 | (top) | |
| 11709 | (top) | |
| 11710 | (top) | |
| 11711 | (top) | |
| 11712 | (top) | |
| 11713 | (top) | |
| 11714 | (top) | |
| 11715 | (top) | |
| 11716 | (top) | |
| 11717 | (top) | |
| 11718 | (top) | |
| 11719 | (top) | |
| 11720 | (top) | |
| 11721 | (top) | |
| 11722 | (top) | |
| 11723 | (top) | |
| 11724 | (top) | |
| 11725 | (top) | |
| 11726 | (top) | |
| 11727 | (top) | |
| 11728 | (top) | |
| 11729 | (top) | |
| 11730 | (top) | |
| 11731 | (top) | |
| 11732 | (top) | |
| 11733 | (top) | |
| 11734 | (top) | |
| 11735 | (top) | |
| 11736 | (top) | |
| 11737 | (top) | |
| 11738 | (top) | |
| 11739 | (top) | |
| 11740 | (top) | |
| 11741 | (top) | |
| 11742 | (top) | |
| 11743 | (top) | |
| 11744 | (top) | |
| 11745 | (top) | |
| 11746 | (top) | |
| 11747 | (top) | |
| 11748 | (top) | |
| 11749 | (top) | |
| 11750 | (top) | |
| 11751 | (top) | |
| 11752 | (top) | |
| 11753 | (top) | |
| 11754 | (top) | |
| 11755 | (top) | |
| 11756 | (top) | |
| 11757 | (top) | |
| 11758 | (top) | |
| 11759 | (top) | |
| 11760 | (top) | |
| 11761 | (top) | |
| 11762 | (top) | |
| 11763 | (top) | |
| 11764 | (top) | |
| 11765 | (top) | |
| 11766 | (top) | |
| 11767 | (top) | |
| 11768 | (top) | |
| 11769 | (top) | |
| 11770 | (top) | |
| 11771 | (top) | |
| 11772 | (top) | |
| 11773 | (top) | |
| 11774 | (top) | |
| 11775 | (top) | |
| 11776 | (top) | |
| 11777 | (top) | |
| 11778 | (top) | |
| 11779 | (top) | |
| 11780 | (top) | |
| 11781 | (top) | |
| 11782 | (top) | |
| 11783 | (top) | |
| 11784 | (top) | |
| 11785 | (top) | |
| 11786 | (top) | |
| 11787 | (top) | |
| 11788 | (top) | |
| 11789 | (top) | |
| 11790 | (top) | |
| 11791 | (top) | |
| 11792 | (top) | |
| 11793 | (top) | |
| 11794 | (top) | |
| 11795 | (top) | |
| 11796 | (top) | |
| 11797 | (top) | |
| 11798 | (top) | |
| 11799 | (top) | |
| 11800 | (top) | |
| 11801 | (top) | |
| 11802 | (top) | |
| 11803 | (top) | |
| 11804 | (top) | |
| 11805 | (top) | |
| 11806 | (top) | |
| 11807 | (top) | |
| 11808 | (top) | |
| 11809 | (top) | |
| 11810 | (top)) | |
| 1bbe0a63 AW |
11811 | ("i461" |
| 11812 | "i459" | |
| 11813 | "i457" | |
| 11814 | "i455" | |
| 11815 | "i453" | |
| 11816 | "i451" | |
| 11817 | "i449" | |
| 11818 | "i447" | |
| 11819 | "i445" | |
| 11820 | "i443" | |
| 11821 | "i441" | |
| 11822 | "i439" | |
| 11823 | "i437" | |
| 11824 | "i435" | |
| 11825 | "i433" | |
| 11826 | "i431" | |
| 11827 | "i429" | |
| 11828 | "i427" | |
| 11829 | "i425" | |
| 11830 | "i423" | |
| 11831 | "i421" | |
| 11832 | "i419" | |
| 11833 | "i417" | |
| 11834 | "i415" | |
| 11835 | "i413" | |
| 11836 | "i411" | |
| 11837 | "i409" | |
| 11838 | "i407" | |
| 11839 | "i405" | |
| 11840 | "i403" | |
| 11841 | "i401" | |
| 11842 | "i399" | |
| 11843 | "i397" | |
| 11844 | "i395" | |
| 11845 | "i393" | |
| e2ccab57 AW |
11846 | "i392" |
| 11847 | "i390" | |
| 1bbe0a63 | 11848 | "i387" |
| e2ccab57 | 11849 | "i386" |
| 1bbe0a63 AW |
11850 | "i385" |
| 11851 | "i383" | |
| e2ccab57 AW |
11852 | "i382" |
| 11853 | "i380" | |
| e2ccab57 AW |
11854 | "i378" |
| 11855 | "i376" | |
| e2ccab57 | 11856 | "i374" |
| e2ccab57 AW |
11857 | "i372" |
| 11858 | "i370" | |
| 11859 | "i368" | |
| 11860 | "i366" | |
| 1bbe0a63 AW |
11861 | "i363" |
| 11862 | "i361" | |
| e2ccab57 AW |
11863 | "i360" |
| 11864 | "i358" | |
| 11865 | "i356" | |
| 1bbe0a63 AW |
11866 | "i354" |
| 11867 | "i352" | |
| e2ccab57 AW |
11868 | "i351" |
| 11869 | "i350" | |
| 11870 | "i349" | |
| e2ccab57 AW |
11871 | "i347" |
| 11872 | "i346" | |
| e2ccab57 AW |
11873 | "i343" |
| 11874 | "i341" | |
| 1bbe0a63 AW |
11875 | "i339" |
| 11876 | "i337" | |
| 11877 | "i335" | |
| 11878 | "i333" | |
| 11879 | "i331" | |
| e2ccab57 | 11880 | "i330" |
| 1bbe0a63 AW |
11881 | "i329" |
| 11882 | "i327" | |
| e2ccab57 AW |
11883 | "i325" |
| 11884 | "i324" | |
| e2ccab57 | 11885 | "i321" |
| 1bbe0a63 | 11886 | "i320" |
| e2ccab57 AW |
11887 | "i318" |
| 11888 | "i316" | |
| 11889 | "i314" | |
| 11890 | "i312" | |
| 11891 | "i310" | |
| 11892 | "i308" | |
| 11893 | "i306" | |
| 11894 | "i304" | |
| 11895 | "i302" | |
| 1bbe0a63 AW |
11896 | "i299" |
| 11897 | "i297" | |
| 11898 | "i295" | |
| 11899 | "i293" | |
| 11900 | "i291" | |
| 11901 | "i289" | |
| 11902 | "i287" | |
| 11903 | "i285" | |
| 11904 | "i283" | |
| 11905 | "i281" | |
| 11906 | "i279" | |
| 11907 | "i277" | |
| 11908 | "i275" | |
| 11909 | "i273" | |
| 11910 | "i271" | |
| 11911 | "i269" | |
| 11912 | "i267" | |
| 11913 | "i265" | |
| 11914 | "i263" | |
| 11915 | "i261" | |
| 11916 | "i259" | |
| 11917 | "i257" | |
| 11918 | "i255" | |
| e2ccab57 | 11919 | "i254" |
| e2ccab57 AW |
11920 | "i251" |
| 11921 | "i249" | |
| 11922 | "i248" | |
| 11923 | "i247" | |
| 11924 | "i246" | |
| 11925 | "i245" | |
| 11926 | "i243" | |
| 11927 | "i241" | |
| 11928 | "i239" | |
| 11929 | "i236" | |
| 11930 | "i234" | |
| 11931 | "i232" | |
| 11932 | "i230" | |
| 11933 | "i228" | |
| 11934 | "i226" | |
| 11935 | "i224" | |
| 11936 | "i222" | |
| 11937 | "i220" | |
| 11938 | "i218" | |
| 11939 | "i216" | |
| 11940 | "i214" | |
| 11941 | "i212" | |
| 11942 | "i210" | |
| 11943 | "i208" | |
| 11944 | "i206" | |
| 11945 | "i204" | |
| 11946 | "i202")) | |
| 11947 | #(ribcage | |
| 11948 | (define-structure | |
| 11949 | define-expansion-accessors | |
| 11950 | define-expansion-constructors) | |
| 11951 | ((top) (top) (top)) | |
| 11952 | ("i40" "i39" "i38"))) | |
| 11953 | (hygiene guile))) | |
| 1bbe0a63 | 11954 | (values '_ #{ids 3740}#) |
| e2ccab57 AW |
11955 | (values |
| 11956 | 'any | |
| 1bbe0a63 AW |
11957 | (cons (cons #{p 3738}# #{n 3739}#) |
| 11958 | #{ids 3740}#)))) | |
| 11959 | (let ((#{tmp 3749}# #{p 3738}#)) | |
| 11960 | (let ((#{tmp 3750}# | |
| 11961 | ($sc-dispatch #{tmp 3749}# '(any any)))) | |
| 11962 | (if (if #{tmp 3750}# | |
| e2ccab57 | 11963 | (@apply |
| 1bbe0a63 AW |
11964 | (lambda (#{x 3753}# #{dots 3754}#) |
| 11965 | (#{ellipsis? 448}# #{dots 3754}#)) | |
| 11966 | #{tmp 3750}#) | |
| e2ccab57 AW |
11967 | #f) |
| 11968 | (@apply | |
| 1bbe0a63 | 11969 | (lambda (#{x 3757}# #{dots 3758}#) |
| e2ccab57 AW |
11970 | (call-with-values |
| 11971 | (lambda () | |
| 1bbe0a63 AW |
11972 | (#{cvt 3715}# |
| 11973 | #{x 3757}# | |
| 11974 | (#{1+}# #{n 3739}#) | |
| 11975 | #{ids 3740}#)) | |
| 11976 | (lambda (#{p 3760}# #{ids 3761}#) | |
| e2ccab57 | 11977 | (values |
| 1bbe0a63 | 11978 | (if (eq? #{p 3760}# 'any) |
| e2ccab57 | 11979 | 'each-any |
| 1bbe0a63 AW |
11980 | (vector 'each #{p 3760}#)) |
| 11981 | #{ids 3761}#)))) | |
| 11982 | #{tmp 3750}#) | |
| 11983 | (let ((#{tmp 3764}# | |
| e2ccab57 | 11984 | ($sc-dispatch |
| 1bbe0a63 | 11985 | #{tmp 3749}# |
| 0ed9680f | 11986 | '(any any . any)))) |
| 1bbe0a63 | 11987 | (if (if #{tmp 3764}# |
| d8f699e8 | 11988 | (@apply |
| 1bbe0a63 AW |
11989 | (lambda (#{x 3768}# |
| 11990 | #{dots 3769}# | |
| 11991 | #{ys 3770}#) | |
| 11992 | (#{ellipsis? 448}# #{dots 3769}#)) | |
| 11993 | #{tmp 3764}#) | |
| d8f699e8 AW |
11994 | #f) |
| 11995 | (@apply | |
| 1bbe0a63 AW |
11996 | (lambda (#{x 3774}# |
| 11997 | #{dots 3775}# | |
| 11998 | #{ys 3776}#) | |
| d8f699e8 AW |
11999 | (call-with-values |
| 12000 | (lambda () | |
| 1bbe0a63 AW |
12001 | (#{cvt* 3711}# |
| 12002 | #{ys 3776}# | |
| 12003 | #{n 3739}# | |
| 12004 | #{ids 3740}#)) | |
| 12005 | (lambda (#{ys 3777}# #{ids 3778}#) | |
| e2ccab57 AW |
12006 | (call-with-values |
| 12007 | (lambda () | |
| 1bbe0a63 AW |
12008 | (#{cvt 3715}# |
| 12009 | #{x 3774}# | |
| 12010 | (#{1+}# #{n 3739}#) | |
| 12011 | #{ids 3778}#)) | |
| 12012 | (lambda (#{x 3781}# #{ids 3782}#) | |
| 0ed9680f SIT |
12013 | (call-with-values |
| 12014 | (lambda () | |
| 1bbe0a63 AW |
12015 | (#{v-reverse 3713}# |
| 12016 | #{ys 3777}#)) | |
| 12017 | (lambda (#{ys 3785}# | |
| 12018 | #{e 3786}#) | |
| 0ed9680f SIT |
12019 | (values |
| 12020 | (vector | |
| 12021 | 'each+ | |
| 1bbe0a63 AW |
12022 | #{x 3781}# |
| 12023 | #{ys 3785}# | |
| 12024 | #{e 3786}#) | |
| 12025 | #{ids 3782}#)))))))) | |
| 12026 | #{tmp 3764}#) | |
| 12027 | (let ((#{tmp 3790}# | |
| d8f699e8 | 12028 | ($sc-dispatch |
| 1bbe0a63 | 12029 | #{tmp 3749}# |
| e2ccab57 | 12030 | '(any . any)))) |
| 1bbe0a63 | 12031 | (if #{tmp 3790}# |
| d8f699e8 | 12032 | (@apply |
| 1bbe0a63 | 12033 | (lambda (#{x 3793}# #{y 3794}#) |
| d8f699e8 AW |
12034 | (call-with-values |
| 12035 | (lambda () | |
| 1bbe0a63 AW |
12036 | (#{cvt 3715}# |
| 12037 | #{y 3794}# | |
| 12038 | #{n 3739}# | |
| 12039 | #{ids 3740}#)) | |
| 12040 | (lambda (#{y 3795}# #{ids 3796}#) | |
| d8f699e8 AW |
12041 | (call-with-values |
| 12042 | (lambda () | |
| 1bbe0a63 AW |
12043 | (#{cvt 3715}# |
| 12044 | #{x 3793}# | |
| 12045 | #{n 3739}# | |
| 12046 | #{ids 3796}#)) | |
| 12047 | (lambda (#{x 3799}# | |
| 12048 | #{ids 3800}#) | |
| d8f699e8 | 12049 | (values |
| 1bbe0a63 AW |
12050 | (cons #{x 3799}# |
| 12051 | #{y 3795}#) | |
| 12052 | #{ids 3800}#)))))) | |
| 12053 | #{tmp 3790}#) | |
| 12054 | (let ((#{tmp 3803}# | |
| 12055 | ($sc-dispatch #{tmp 3749}# '()))) | |
| 12056 | (if #{tmp 3803}# | |
| d8f699e8 | 12057 | (@apply |
| e2ccab57 | 12058 | (lambda () |
| 1bbe0a63 AW |
12059 | (values '() #{ids 3740}#)) |
| 12060 | #{tmp 3803}#) | |
| 12061 | (let ((#{tmp 3804}# | |
| e2ccab57 | 12062 | ($sc-dispatch |
| 1bbe0a63 | 12063 | #{tmp 3749}# |
| e2ccab57 | 12064 | '#(vector each-any)))) |
| 1bbe0a63 | 12065 | (if #{tmp 3804}# |
| e2ccab57 | 12066 | (@apply |
| 1bbe0a63 | 12067 | (lambda (#{x 3806}#) |
| d8f699e8 AW |
12068 | (call-with-values |
| 12069 | (lambda () | |
| 1bbe0a63 AW |
12070 | (#{cvt 3715}# |
| 12071 | #{x 3806}# | |
| 12072 | #{n 3739}# | |
| 12073 | #{ids 3740}#)) | |
| 12074 | (lambda (#{p 3808}# | |
| 12075 | #{ids 3809}#) | |
| d8f699e8 | 12076 | (values |
| e2ccab57 AW |
12077 | (vector |
| 12078 | 'vector | |
| 1bbe0a63 AW |
12079 | #{p 3808}#) |
| 12080 | #{ids 3809}#)))) | |
| 12081 | #{tmp 3804}#) | |
| 12082 | (let ((#{x 3813}# #{tmp 3749}#)) | |
| e2ccab57 AW |
12083 | (values |
| 12084 | (vector | |
| 12085 | 'atom | |
| 1bbe0a63 AW |
12086 | (#{strip 458}# |
| 12087 | #{p 3738}# | |
| e2ccab57 | 12088 | '(()))) |
| 1bbe0a63 AW |
12089 | #{ids 3740}#))))))))))))))))) |
| 12090 | (begin (#{cvt 3715}# #{pattern 3706}# 0 '()))))) | |
| 12091 | (#{build-dispatch-call 3701}# | |
| 12092 | (lambda (#{pvars 3815}# | |
| 12093 | #{exp 3816}# | |
| 12094 | #{y 3817}# | |
| 12095 | #{r 3818}# | |
| 12096 | #{mod 3819}#) | |
| e2ccab57 | 12097 | (begin |
| 1bbe0a63 AW |
12098 | (map cdr #{pvars 3815}#) |
| 12099 | (let ((#{ids 3827}# (map car #{pvars 3815}#))) | |
| d8f699e8 | 12100 | (begin |
| 1bbe0a63 AW |
12101 | (let ((#{labels 3831}# |
| 12102 | (#{gen-labels 364}# #{ids 3827}#)) | |
| 12103 | (#{new-vars 3832}# | |
| 12104 | (map #{gen-var 460}# #{ids 3827}#))) | |
| 12105 | (#{build-application 266}# | |
| e2ccab57 | 12106 | #f |
| 1bbe0a63 AW |
12107 | (#{build-primref 290}# #f 'apply) |
| 12108 | (list (#{build-simple-lambda 284}# | |
| e2ccab57 | 12109 | #f |
| 1bbe0a63 | 12110 | (map syntax->datum #{ids 3827}#) |
| e2ccab57 | 12111 | #f |
| 1bbe0a63 | 12112 | #{new-vars 3832}# |
| e2ccab57 | 12113 | '() |
| 1bbe0a63 AW |
12114 | (#{chi 432}# |
| 12115 | #{exp 3816}# | |
| 12116 | (#{extend-env 332}# | |
| 12117 | #{labels 3831}# | |
| 12118 | (map (lambda (#{var 3836}# #{level 3837}#) | |
| e2ccab57 | 12119 | (cons 'syntax |
| 1bbe0a63 AW |
12120 | (cons #{var 3836}# |
| 12121 | #{level 3837}#))) | |
| 12122 | #{new-vars 3832}# | |
| 12123 | (map cdr #{pvars 3815}#)) | |
| 12124 | #{r 3818}#) | |
| 12125 | (#{make-binding-wrap 396}# | |
| 12126 | #{ids 3827}# | |
| 12127 | #{labels 3831}# | |
| e2ccab57 | 12128 | '(())) |
| 1bbe0a63 AW |
12129 | #{mod 3819}#)) |
| 12130 | #{y 3817}#)))))))) | |
| 12131 | (#{gen-clause 3703}# | |
| 12132 | (lambda (#{x 3843}# | |
| 12133 | #{keys 3844}# | |
| 12134 | #{clauses 3845}# | |
| 12135 | #{r 3846}# | |
| 12136 | #{pat 3847}# | |
| 12137 | #{fender 3848}# | |
| 12138 | #{exp 3849}# | |
| 12139 | #{mod 3850}#) | |
| e2ccab57 AW |
12140 | (call-with-values |
| 12141 | (lambda () | |
| 1bbe0a63 AW |
12142 | (#{convert-pattern 3699}# |
| 12143 | #{pat 3847}# | |
| 12144 | #{keys 3844}#)) | |
| 12145 | (lambda (#{p 3859}# #{pvars 3860}#) | |
| 12146 | (if (not (#{distinct-bound-ids? 414}# | |
| 12147 | (map car #{pvars 3860}#))) | |
| e2ccab57 AW |
12148 | (syntax-violation |
| 12149 | 'syntax-case | |
| 12150 | "duplicate pattern variable" | |
| 1bbe0a63 | 12151 | #{pat 3847}#) |
| e2ccab57 | 12152 | (if (not (and-map |
| 1bbe0a63 AW |
12153 | (lambda (#{x 3867}#) |
| 12154 | (not (#{ellipsis? 448}# (car #{x 3867}#)))) | |
| 12155 | #{pvars 3860}#)) | |
| e2ccab57 AW |
12156 | (syntax-violation |
| 12157 | 'syntax-case | |
| 12158 | "misplaced ellipsis" | |
| 1bbe0a63 | 12159 | #{pat 3847}#) |
| d8f699e8 | 12160 | (begin |
| 1bbe0a63 AW |
12161 | (let ((#{y 3871}# (#{gen-var 460}# 'tmp))) |
| 12162 | (#{build-application 266}# | |
| d8f699e8 | 12163 | #f |
| 1bbe0a63 | 12164 | (#{build-simple-lambda 284}# |
| d8f699e8 | 12165 | #f |
| e2ccab57 AW |
12166 | (list 'tmp) |
| 12167 | #f | |
| 1bbe0a63 | 12168 | (list #{y 3871}#) |
| e2ccab57 AW |
12169 | '() |
| 12170 | (begin | |
| 1bbe0a63 AW |
12171 | (let ((#{y 3875}# |
| 12172 | (#{build-lexical-reference 272}# | |
| e2ccab57 | 12173 | 'value |
| d8f699e8 | 12174 | #f |
| e2ccab57 | 12175 | 'tmp |
| 1bbe0a63 AW |
12176 | #{y 3871}#))) |
| 12177 | (#{build-conditional 268}# | |
| e2ccab57 | 12178 | #f |
| 1bbe0a63 AW |
12179 | (let ((#{tmp 3878}# #{fender 3848}#)) |
| 12180 | (let ((#{tmp 3879}# | |
| e2ccab57 | 12181 | ($sc-dispatch |
| 1bbe0a63 | 12182 | #{tmp 3878}# |
| e2ccab57 | 12183 | '#(atom #t)))) |
| 1bbe0a63 | 12184 | (if #{tmp 3879}# |
| e2ccab57 | 12185 | (@apply |
| 1bbe0a63 AW |
12186 | (lambda () #{y 3875}#) |
| 12187 | #{tmp 3879}#) | |
| 12188 | (let ((#{_ 3881}# #{tmp 3878}#)) | |
| 12189 | (#{build-conditional 268}# | |
| e2ccab57 | 12190 | #f |
| 1bbe0a63 AW |
12191 | #{y 3875}# |
| 12192 | (#{build-dispatch-call 3701}# | |
| 12193 | #{pvars 3860}# | |
| 12194 | #{fender 3848}# | |
| 12195 | #{y 3875}# | |
| 12196 | #{r 3846}# | |
| 12197 | #{mod 3850}#) | |
| 12198 | (#{build-data 292}# #f #f)))))) | |
| 12199 | (#{build-dispatch-call 3701}# | |
| 12200 | #{pvars 3860}# | |
| 12201 | #{exp 3849}# | |
| 12202 | #{y 3875}# | |
| 12203 | #{r 3846}# | |
| 12204 | #{mod 3850}#) | |
| 12205 | (#{gen-syntax-case 3705}# | |
| 12206 | #{x 3843}# | |
| 12207 | #{keys 3844}# | |
| 12208 | #{clauses 3845}# | |
| 12209 | #{r 3846}# | |
| 12210 | #{mod 3850}#))))) | |
| 12211 | (list (if (eq? #{p 3859}# 'any) | |
| 12212 | (#{build-application 266}# | |
| e2ccab57 | 12213 | #f |
| 1bbe0a63 AW |
12214 | (#{build-primref 290}# #f 'list) |
| 12215 | (list #{x 3843}#)) | |
| 12216 | (#{build-application 266}# | |
| e2ccab57 | 12217 | #f |
| 1bbe0a63 AW |
12218 | (#{build-primref 290}# #f '$sc-dispatch) |
| 12219 | (list #{x 3843}# | |
| 12220 | (#{build-data 292}# | |
| e2ccab57 | 12221 | #f |
| 1bbe0a63 AW |
12222 | #{p 3859}#)))))))))))))) |
| 12223 | (#{gen-syntax-case 3705}# | |
| 12224 | (lambda (#{x 3889}# | |
| 12225 | #{keys 3890}# | |
| 12226 | #{clauses 3891}# | |
| 12227 | #{r 3892}# | |
| 12228 | #{mod 3893}#) | |
| 12229 | (if (null? #{clauses 3891}#) | |
| 12230 | (#{build-application 266}# | |
| e2ccab57 | 12231 | #f |
| 1bbe0a63 AW |
12232 | (#{build-primref 290}# #f 'syntax-violation) |
| 12233 | (list (#{build-data 292}# #f #f) | |
| 12234 | (#{build-data 292}# | |
| e2ccab57 AW |
12235 | #f |
| 12236 | "source expression failed to match any pattern") | |
| 1bbe0a63 AW |
12237 | #{x 3889}#)) |
| 12238 | (let ((#{tmp 3903}# (car #{clauses 3891}#))) | |
| 12239 | (let ((#{tmp 3904}# | |
| 12240 | ($sc-dispatch #{tmp 3903}# '(any any)))) | |
| 12241 | (if #{tmp 3904}# | |
| e2ccab57 | 12242 | (@apply |
| 1bbe0a63 AW |
12243 | (lambda (#{pat 3907}# #{exp 3908}#) |
| 12244 | (if (if (#{id? 344}# #{pat 3907}#) | |
| e2ccab57 | 12245 | (and-map |
| 1bbe0a63 AW |
12246 | (lambda (#{x 3911}#) |
| 12247 | (not (#{free-id=? 408}# | |
| 12248 | #{pat 3907}# | |
| 12249 | #{x 3911}#))) | |
| e2ccab57 AW |
12250 | (cons '#(syntax-object |
| 12251 | ... | |
| 12252 | ((top) | |
| 12253 | #(ribcage | |
| 12254 | #(pat exp) | |
| 12255 | #((top) (top)) | |
| 1bbe0a63 | 12256 | #("i3905" "i3906")) |
| e2ccab57 AW |
12257 | #(ribcage () () ()) |
| 12258 | #(ribcage | |
| 12259 | #(x keys clauses r mod) | |
| 12260 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
12261 | #("i3894" |
| 12262 | "i3895" | |
| 12263 | "i3896" | |
| 12264 | "i3897" | |
| 12265 | "i3898")) | |
| e2ccab57 AW |
12266 | #(ribcage |
| 12267 | (gen-syntax-case | |
| 12268 | gen-clause | |
| 12269 | build-dispatch-call | |
| 12270 | convert-pattern) | |
| 12271 | ((top) (top) (top) (top)) | |
| 1bbe0a63 AW |
12272 | ("i3704" |
| 12273 | "i3702" | |
| 12274 | "i3700" | |
| 12275 | "i3698")) | |
| e2ccab57 AW |
12276 | #(ribcage |
| 12277 | (lambda-var-list | |
| 12278 | gen-var | |
| 12279 | strip | |
| 12280 | chi-lambda-case | |
| 12281 | lambda*-formals | |
| 12282 | chi-simple-lambda | |
| 12283 | lambda-formals | |
| 12284 | ellipsis? | |
| 12285 | chi-void | |
| 12286 | eval-local-transformer | |
| 12287 | chi-local-syntax | |
| 12288 | chi-body | |
| 12289 | chi-macro | |
| 12290 | chi-application | |
| 12291 | chi-expr | |
| 12292 | chi | |
| 12293 | syntax-type | |
| 12294 | chi-when-list | |
| 12295 | chi-install-global | |
| 12296 | chi-top-sequence | |
| 12297 | chi-sequence | |
| 12298 | source-wrap | |
| 12299 | wrap | |
| 12300 | bound-id-member? | |
| 12301 | distinct-bound-ids? | |
| 12302 | valid-bound-ids? | |
| 12303 | bound-id=? | |
| 12304 | free-id=? | |
| 12305 | id-var-name | |
| 12306 | same-marks? | |
| 12307 | join-marks | |
| 12308 | join-wraps | |
| 12309 | smart-append | |
| 12310 | make-binding-wrap | |
| 12311 | extend-ribcage! | |
| 12312 | make-empty-ribcage | |
| 12313 | new-mark | |
| 12314 | anti-mark | |
| 12315 | the-anti-mark | |
| 12316 | top-marked? | |
| 12317 | top-wrap | |
| 12318 | empty-wrap | |
| 12319 | set-ribcage-labels! | |
| 12320 | set-ribcage-marks! | |
| 12321 | set-ribcage-symnames! | |
| 12322 | ribcage-labels | |
| 12323 | ribcage-marks | |
| 12324 | ribcage-symnames | |
| 12325 | ribcage? | |
| 12326 | make-ribcage | |
| 12327 | gen-labels | |
| 12328 | gen-label | |
| 12329 | make-rename | |
| 12330 | rename-marks | |
| 12331 | rename-new | |
| 12332 | rename-old | |
| 12333 | subst-rename? | |
| 12334 | wrap-subst | |
| 12335 | wrap-marks | |
| 12336 | make-wrap | |
| 12337 | id-sym-name&marks | |
| 12338 | id-sym-name | |
| 12339 | id? | |
| 12340 | nonsymbol-id? | |
| 12341 | global-extend | |
| 12342 | lookup | |
| 12343 | macros-only-env | |
| 12344 | extend-var-env | |
| 12345 | extend-env | |
| 12346 | null-env | |
| 12347 | binding-value | |
| 12348 | binding-type | |
| 12349 | make-binding | |
| 12350 | arg-check | |
| 12351 | source-annotation | |
| 12352 | no-source | |
| 12353 | set-syntax-object-module! | |
| 12354 | set-syntax-object-wrap! | |
| 12355 | set-syntax-object-expression! | |
| 12356 | syntax-object-module | |
| 12357 | syntax-object-wrap | |
| 12358 | syntax-object-expression | |
| 12359 | syntax-object? | |
| 12360 | make-syntax-object | |
| 12361 | build-lexical-var | |
| 12362 | build-letrec | |
| 12363 | build-named-let | |
| 12364 | build-let | |
| 12365 | build-sequence | |
| 12366 | build-data | |
| 12367 | build-primref | |
| 12368 | build-lambda-case | |
| 12369 | build-case-lambda | |
| 12370 | build-simple-lambda | |
| 12371 | build-global-definition | |
| 12372 | build-global-assignment | |
| 12373 | build-global-reference | |
| 12374 | analyze-variable | |
| 12375 | build-lexical-assignment | |
| 12376 | build-lexical-reference | |
| 12377 | build-dynlet | |
| 12378 | build-conditional | |
| 12379 | build-application | |
| 12380 | build-void | |
| 12381 | maybe-name-value! | |
| 12382 | decorate-source | |
| 12383 | get-global-definition-hook | |
| 12384 | put-global-definition-hook | |
| 12385 | gensym-hook | |
| 12386 | local-eval-hook | |
| 12387 | top-level-eval-hook | |
| 12388 | fx< | |
| 12389 | fx= | |
| 12390 | fx- | |
| 12391 | fx+ | |
| 12392 | set-lambda-meta! | |
| 12393 | lambda-meta | |
| 12394 | lambda? | |
| 12395 | make-dynlet | |
| 12396 | make-letrec | |
| 12397 | make-let | |
| 12398 | make-lambda-case | |
| 12399 | make-lambda | |
| 12400 | make-sequence | |
| 12401 | make-application | |
| 12402 | make-conditional | |
| 12403 | make-toplevel-define | |
| 12404 | make-toplevel-set | |
| 12405 | make-toplevel-ref | |
| 12406 | make-module-set | |
| 12407 | make-module-ref | |
| 12408 | make-lexical-set | |
| 12409 | make-lexical-ref | |
| 12410 | make-primitive-ref | |
| 12411 | make-const | |
| 12412 | make-void) | |
| 12413 | ((top) | |
| 12414 | (top) | |
| 12415 | (top) | |
| 12416 | (top) | |
| 12417 | (top) | |
| 12418 | (top) | |
| 12419 | (top) | |
| 12420 | (top) | |
| 12421 | (top) | |
| 12422 | (top) | |
| 12423 | (top) | |
| 12424 | (top) | |
| 12425 | (top) | |
| 12426 | (top) | |
| 12427 | (top) | |
| 12428 | (top) | |
| 12429 | (top) | |
| 12430 | (top) | |
| 12431 | (top) | |
| 12432 | (top) | |
| 12433 | (top) | |
| 12434 | (top) | |
| 12435 | (top) | |
| 12436 | (top) | |
| 12437 | (top) | |
| 12438 | (top) | |
| 12439 | (top) | |
| 12440 | (top) | |
| 12441 | (top) | |
| 12442 | (top) | |
| 12443 | (top) | |
| 12444 | (top) | |
| 12445 | (top) | |
| 12446 | (top) | |
| 12447 | (top) | |
| 12448 | (top) | |
| 12449 | (top) | |
| 12450 | (top) | |
| 12451 | (top) | |
| 12452 | (top) | |
| 12453 | (top) | |
| 12454 | (top) | |
| 12455 | (top) | |
| 12456 | (top) | |
| 12457 | (top) | |
| 12458 | (top) | |
| 12459 | (top) | |
| 12460 | (top) | |
| 12461 | (top) | |
| 12462 | (top) | |
| 12463 | (top) | |
| 12464 | (top) | |
| 12465 | (top) | |
| 12466 | (top) | |
| 12467 | (top) | |
| 12468 | (top) | |
| 12469 | (top) | |
| 12470 | (top) | |
| 12471 | (top) | |
| 12472 | (top) | |
| 12473 | (top) | |
| 12474 | (top) | |
| 12475 | (top) | |
| 12476 | (top) | |
| 12477 | (top) | |
| 12478 | (top) | |
| 12479 | (top) | |
| 12480 | (top) | |
| 12481 | (top) | |
| 12482 | (top) | |
| 12483 | (top) | |
| 12484 | (top) | |
| 12485 | (top) | |
| 12486 | (top) | |
| 12487 | (top) | |
| 12488 | (top) | |
| 12489 | (top) | |
| 12490 | (top) | |
| 12491 | (top) | |
| 12492 | (top) | |
| 12493 | (top) | |
| 12494 | (top) | |
| 12495 | (top) | |
| 12496 | (top) | |
| 12497 | (top) | |
| 12498 | (top) | |
| 12499 | (top) | |
| 12500 | (top) | |
| 12501 | (top) | |
| 12502 | (top) | |
| 12503 | (top) | |
| 12504 | (top) | |
| 12505 | (top) | |
| 12506 | (top) | |
| 12507 | (top) | |
| 12508 | (top) | |
| 12509 | (top) | |
| 12510 | (top) | |
| 12511 | (top) | |
| 12512 | (top) | |
| 12513 | (top) | |
| 12514 | (top) | |
| 12515 | (top) | |
| 12516 | (top) | |
| 12517 | (top) | |
| 12518 | (top) | |
| 12519 | (top) | |
| 12520 | (top) | |
| 12521 | (top) | |
| 12522 | (top) | |
| 12523 | (top) | |
| 12524 | (top) | |
| 12525 | (top) | |
| 12526 | (top) | |
| 12527 | (top) | |
| 12528 | (top) | |
| 12529 | (top) | |
| 12530 | (top) | |
| 12531 | (top) | |
| 12532 | (top) | |
| 12533 | (top) | |
| 12534 | (top) | |
| 12535 | (top) | |
| 12536 | (top) | |
| 12537 | (top) | |
| 12538 | (top) | |
| 12539 | (top) | |
| 12540 | (top) | |
| 12541 | (top) | |
| 12542 | (top) | |
| 12543 | (top) | |
| 12544 | (top) | |
| 12545 | (top) | |
| 12546 | (top) | |
| 12547 | (top) | |
| 12548 | (top)) | |
| 1bbe0a63 AW |
12549 | ("i461" |
| 12550 | "i459" | |
| 12551 | "i457" | |
| 12552 | "i455" | |
| 12553 | "i453" | |
| 12554 | "i451" | |
| 12555 | "i449" | |
| 12556 | "i447" | |
| 12557 | "i445" | |
| 12558 | "i443" | |
| 12559 | "i441" | |
| 12560 | "i439" | |
| 12561 | "i437" | |
| 12562 | "i435" | |
| 12563 | "i433" | |
| 12564 | "i431" | |
| 12565 | "i429" | |
| 12566 | "i427" | |
| 12567 | "i425" | |
| 12568 | "i423" | |
| 12569 | "i421" | |
| 12570 | "i419" | |
| 12571 | "i417" | |
| 12572 | "i415" | |
| 12573 | "i413" | |
| 12574 | "i411" | |
| 12575 | "i409" | |
| 12576 | "i407" | |
| 12577 | "i405" | |
| 12578 | "i403" | |
| 12579 | "i401" | |
| 12580 | "i399" | |
| 12581 | "i397" | |
| 12582 | "i395" | |
| 12583 | "i393" | |
| e2ccab57 AW |
12584 | "i392" |
| 12585 | "i390" | |
| 1bbe0a63 | 12586 | "i387" |
| e2ccab57 | 12587 | "i386" |
| 1bbe0a63 AW |
12588 | "i385" |
| 12589 | "i383" | |
| e2ccab57 AW |
12590 | "i382" |
| 12591 | "i380" | |
| e2ccab57 AW |
12592 | "i378" |
| 12593 | "i376" | |
| e2ccab57 | 12594 | "i374" |
| e2ccab57 AW |
12595 | "i372" |
| 12596 | "i370" | |
| 12597 | "i368" | |
| 12598 | "i366" | |
| 1bbe0a63 AW |
12599 | "i363" |
| 12600 | "i361" | |
| e2ccab57 AW |
12601 | "i360" |
| 12602 | "i358" | |
| 12603 | "i356" | |
| 1bbe0a63 AW |
12604 | "i354" |
| 12605 | "i352" | |
| e2ccab57 AW |
12606 | "i351" |
| 12607 | "i350" | |
| 12608 | "i349" | |
| e2ccab57 AW |
12609 | "i347" |
| 12610 | "i346" | |
| e2ccab57 AW |
12611 | "i343" |
| 12612 | "i341" | |
| 1bbe0a63 AW |
12613 | "i339" |
| 12614 | "i337" | |
| 12615 | "i335" | |
| 12616 | "i333" | |
| 12617 | "i331" | |
| e2ccab57 | 12618 | "i330" |
| 1bbe0a63 AW |
12619 | "i329" |
| 12620 | "i327" | |
| e2ccab57 AW |
12621 | "i325" |
| 12622 | "i324" | |
| e2ccab57 | 12623 | "i321" |
| 1bbe0a63 | 12624 | "i320" |
| e2ccab57 AW |
12625 | "i318" |
| 12626 | "i316" | |
| 12627 | "i314" | |
| 12628 | "i312" | |
| 12629 | "i310" | |
| 12630 | "i308" | |
| 12631 | "i306" | |
| 12632 | "i304" | |
| 12633 | "i302" | |
| 1bbe0a63 AW |
12634 | "i299" |
| 12635 | "i297" | |
| 12636 | "i295" | |
| 12637 | "i293" | |
| 12638 | "i291" | |
| 12639 | "i289" | |
| 12640 | "i287" | |
| 12641 | "i285" | |
| 12642 | "i283" | |
| 12643 | "i281" | |
| 12644 | "i279" | |
| 12645 | "i277" | |
| 12646 | "i275" | |
| 12647 | "i273" | |
| 12648 | "i271" | |
| 12649 | "i269" | |
| 12650 | "i267" | |
| 12651 | "i265" | |
| 12652 | "i263" | |
| 12653 | "i261" | |
| 12654 | "i259" | |
| 12655 | "i257" | |
| 12656 | "i255" | |
| e2ccab57 | 12657 | "i254" |
| e2ccab57 AW |
12658 | "i251" |
| 12659 | "i249" | |
| 12660 | "i248" | |
| 12661 | "i247" | |
| 12662 | "i246" | |
| 12663 | "i245" | |
| 12664 | "i243" | |
| 12665 | "i241" | |
| 12666 | "i239" | |
| 12667 | "i236" | |
| 12668 | "i234" | |
| 12669 | "i232" | |
| 12670 | "i230" | |
| 12671 | "i228" | |
| 12672 | "i226" | |
| 12673 | "i224" | |
| 12674 | "i222" | |
| 12675 | "i220" | |
| 12676 | "i218" | |
| 12677 | "i216" | |
| 12678 | "i214" | |
| 12679 | "i212" | |
| 12680 | "i210" | |
| 12681 | "i208" | |
| 12682 | "i206" | |
| 12683 | "i204" | |
| 12684 | "i202")) | |
| 12685 | #(ribcage | |
| 12686 | (define-structure | |
| 12687 | define-expansion-accessors | |
| 12688 | define-expansion-constructors) | |
| 12689 | ((top) (top) (top)) | |
| 12690 | ("i40" "i39" "i38"))) | |
| 12691 | (hygiene guile)) | |
| 1bbe0a63 | 12692 | #{keys 3890}#)) |
| e2ccab57 | 12693 | #f) |
| 1bbe0a63 | 12694 | (if (#{free-id=? 408}# |
| e2ccab57 AW |
12695 | '#(syntax-object |
| 12696 | pad | |
| 12697 | ((top) | |
| 12698 | #(ribcage | |
| 12699 | #(pat exp) | |
| 12700 | #((top) (top)) | |
| 1bbe0a63 | 12701 | #("i3905" "i3906")) |
| e2ccab57 AW |
12702 | #(ribcage () () ()) |
| 12703 | #(ribcage | |
| 12704 | #(x keys clauses r mod) | |
| 12705 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
12706 | #("i3894" |
| 12707 | "i3895" | |
| 12708 | "i3896" | |
| 12709 | "i3897" | |
| 12710 | "i3898")) | |
| e2ccab57 AW |
12711 | #(ribcage |
| 12712 | (gen-syntax-case | |
| 12713 | gen-clause | |
| 12714 | build-dispatch-call | |
| 12715 | convert-pattern) | |
| 12716 | ((top) (top) (top) (top)) | |
| 1bbe0a63 | 12717 | ("i3704" "i3702" "i3700" "i3698")) |
| e2ccab57 AW |
12718 | #(ribcage |
| 12719 | (lambda-var-list | |
| 12720 | gen-var | |
| 12721 | strip | |
| 12722 | chi-lambda-case | |
| 12723 | lambda*-formals | |
| 12724 | chi-simple-lambda | |
| 12725 | lambda-formals | |
| 12726 | ellipsis? | |
| 12727 | chi-void | |
| 12728 | eval-local-transformer | |
| 12729 | chi-local-syntax | |
| 12730 | chi-body | |
| 12731 | chi-macro | |
| 12732 | chi-application | |
| 12733 | chi-expr | |
| 12734 | chi | |
| 12735 | syntax-type | |
| 12736 | chi-when-list | |
| 12737 | chi-install-global | |
| 12738 | chi-top-sequence | |
| 12739 | chi-sequence | |
| 12740 | source-wrap | |
| 12741 | wrap | |
| 12742 | bound-id-member? | |
| 12743 | distinct-bound-ids? | |
| 12744 | valid-bound-ids? | |
| 12745 | bound-id=? | |
| 12746 | free-id=? | |
| 12747 | id-var-name | |
| 12748 | same-marks? | |
| 12749 | join-marks | |
| 12750 | join-wraps | |
| 12751 | smart-append | |
| 12752 | make-binding-wrap | |
| 12753 | extend-ribcage! | |
| 12754 | make-empty-ribcage | |
| 12755 | new-mark | |
| 12756 | anti-mark | |
| 12757 | the-anti-mark | |
| 12758 | top-marked? | |
| 12759 | top-wrap | |
| 12760 | empty-wrap | |
| 12761 | set-ribcage-labels! | |
| 12762 | set-ribcage-marks! | |
| 12763 | set-ribcage-symnames! | |
| 12764 | ribcage-labels | |
| 12765 | ribcage-marks | |
| 12766 | ribcage-symnames | |
| 12767 | ribcage? | |
| 12768 | make-ribcage | |
| 12769 | gen-labels | |
| 12770 | gen-label | |
| 12771 | make-rename | |
| 12772 | rename-marks | |
| 12773 | rename-new | |
| 12774 | rename-old | |
| 12775 | subst-rename? | |
| 12776 | wrap-subst | |
| 12777 | wrap-marks | |
| 12778 | make-wrap | |
| 12779 | id-sym-name&marks | |
| 12780 | id-sym-name | |
| 12781 | id? | |
| 12782 | nonsymbol-id? | |
| 12783 | global-extend | |
| 12784 | lookup | |
| 12785 | macros-only-env | |
| 12786 | extend-var-env | |
| 12787 | extend-env | |
| 12788 | null-env | |
| 12789 | binding-value | |
| 12790 | binding-type | |
| 12791 | make-binding | |
| 12792 | arg-check | |
| 12793 | source-annotation | |
| 12794 | no-source | |
| 12795 | set-syntax-object-module! | |
| 12796 | set-syntax-object-wrap! | |
| 12797 | set-syntax-object-expression! | |
| 12798 | syntax-object-module | |
| 12799 | syntax-object-wrap | |
| 12800 | syntax-object-expression | |
| 12801 | syntax-object? | |
| 12802 | make-syntax-object | |
| 12803 | build-lexical-var | |
| 12804 | build-letrec | |
| 12805 | build-named-let | |
| 12806 | build-let | |
| 12807 | build-sequence | |
| 12808 | build-data | |
| 12809 | build-primref | |
| 12810 | build-lambda-case | |
| 12811 | build-case-lambda | |
| 12812 | build-simple-lambda | |
| 12813 | build-global-definition | |
| 12814 | build-global-assignment | |
| 12815 | build-global-reference | |
| 12816 | analyze-variable | |
| 12817 | build-lexical-assignment | |
| 12818 | build-lexical-reference | |
| 12819 | build-dynlet | |
| 12820 | build-conditional | |
| 12821 | build-application | |
| 12822 | build-void | |
| 12823 | maybe-name-value! | |
| 12824 | decorate-source | |
| 12825 | get-global-definition-hook | |
| 12826 | put-global-definition-hook | |
| 12827 | gensym-hook | |
| 12828 | local-eval-hook | |
| 12829 | top-level-eval-hook | |
| 12830 | fx< | |
| 12831 | fx= | |
| 12832 | fx- | |
| 12833 | fx+ | |
| 12834 | set-lambda-meta! | |
| 12835 | lambda-meta | |
| 12836 | lambda? | |
| 12837 | make-dynlet | |
| 12838 | make-letrec | |
| 12839 | make-let | |
| 12840 | make-lambda-case | |
| 12841 | make-lambda | |
| 12842 | make-sequence | |
| 12843 | make-application | |
| 12844 | make-conditional | |
| 12845 | make-toplevel-define | |
| 12846 | make-toplevel-set | |
| 12847 | make-toplevel-ref | |
| 12848 | make-module-set | |
| 12849 | make-module-ref | |
| 12850 | make-lexical-set | |
| 12851 | make-lexical-ref | |
| 12852 | make-primitive-ref | |
| 12853 | make-const | |
| 12854 | make-void) | |
| 12855 | ((top) | |
| 12856 | (top) | |
| 12857 | (top) | |
| 12858 | (top) | |
| 12859 | (top) | |
| 12860 | (top) | |
| 12861 | (top) | |
| 12862 | (top) | |
| 12863 | (top) | |
| 12864 | (top) | |
| 12865 | (top) | |
| 12866 | (top) | |
| 12867 | (top) | |
| 12868 | (top) | |
| 12869 | (top) | |
| 12870 | (top) | |
| 12871 | (top) | |
| 12872 | (top) | |
| 12873 | (top) | |
| 12874 | (top) | |
| 12875 | (top) | |
| 12876 | (top) | |
| 12877 | (top) | |
| 12878 | (top) | |
| 12879 | (top) | |
| 12880 | (top) | |
| 12881 | (top) | |
| 12882 | (top) | |
| 12883 | (top) | |
| 12884 | (top) | |
| 12885 | (top) | |
| 12886 | (top) | |
| 12887 | (top) | |
| 12888 | (top) | |
| 12889 | (top) | |
| 12890 | (top) | |
| 12891 | (top) | |
| 12892 | (top) | |
| 12893 | (top) | |
| 12894 | (top) | |
| 12895 | (top) | |
| 12896 | (top) | |
| 12897 | (top) | |
| 12898 | (top) | |
| 12899 | (top) | |
| 12900 | (top) | |
| 12901 | (top) | |
| 12902 | (top) | |
| 12903 | (top) | |
| 12904 | (top) | |
| 12905 | (top) | |
| 12906 | (top) | |
| 12907 | (top) | |
| 12908 | (top) | |
| 12909 | (top) | |
| 12910 | (top) | |
| 12911 | (top) | |
| 12912 | (top) | |
| 12913 | (top) | |
| 12914 | (top) | |
| 12915 | (top) | |
| 12916 | (top) | |
| 12917 | (top) | |
| 12918 | (top) | |
| 12919 | (top) | |
| 12920 | (top) | |
| 12921 | (top) | |
| 12922 | (top) | |
| 12923 | (top) | |
| 12924 | (top) | |
| 12925 | (top) | |
| 12926 | (top) | |
| 12927 | (top) | |
| 12928 | (top) | |
| 12929 | (top) | |
| 12930 | (top) | |
| 12931 | (top) | |
| 12932 | (top) | |
| 12933 | (top) | |
| 12934 | (top) | |
| 12935 | (top) | |
| 12936 | (top) | |
| 12937 | (top) | |
| 12938 | (top) | |
| 12939 | (top) | |
| 12940 | (top) | |
| 12941 | (top) | |
| 12942 | (top) | |
| 12943 | (top) | |
| 12944 | (top) | |
| 12945 | (top) | |
| 12946 | (top) | |
| 12947 | (top) | |
| 12948 | (top) | |
| 12949 | (top) | |
| 12950 | (top) | |
| 12951 | (top) | |
| 12952 | (top) | |
| 12953 | (top) | |
| 12954 | (top) | |
| 12955 | (top) | |
| 12956 | (top) | |
| 12957 | (top) | |
| 12958 | (top) | |
| 12959 | (top) | |
| 12960 | (top) | |
| 12961 | (top) | |
| 12962 | (top) | |
| 12963 | (top) | |
| 12964 | (top) | |
| 12965 | (top) | |
| 12966 | (top) | |
| 12967 | (top) | |
| 12968 | (top) | |
| 12969 | (top) | |
| 12970 | (top) | |
| 12971 | (top) | |
| 12972 | (top) | |
| 12973 | (top) | |
| 12974 | (top) | |
| 12975 | (top) | |
| 12976 | (top) | |
| 12977 | (top) | |
| 12978 | (top) | |
| 12979 | (top) | |
| 12980 | (top) | |
| 12981 | (top) | |
| 12982 | (top) | |
| 12983 | (top) | |
| 12984 | (top) | |
| 12985 | (top) | |
| 12986 | (top) | |
| 12987 | (top) | |
| 12988 | (top) | |
| 12989 | (top) | |
| 12990 | (top)) | |
| 1bbe0a63 AW |
12991 | ("i461" |
| 12992 | "i459" | |
| 12993 | "i457" | |
| 12994 | "i455" | |
| 12995 | "i453" | |
| 12996 | "i451" | |
| 12997 | "i449" | |
| 12998 | "i447" | |
| 12999 | "i445" | |
| 13000 | "i443" | |
| 13001 | "i441" | |
| 13002 | "i439" | |
| 13003 | "i437" | |
| 13004 | "i435" | |
| 13005 | "i433" | |
| 13006 | "i431" | |
| 13007 | "i429" | |
| 13008 | "i427" | |
| 13009 | "i425" | |
| 13010 | "i423" | |
| 13011 | "i421" | |
| 13012 | "i419" | |
| 13013 | "i417" | |
| 13014 | "i415" | |
| 13015 | "i413" | |
| 13016 | "i411" | |
| 13017 | "i409" | |
| 13018 | "i407" | |
| 13019 | "i405" | |
| 13020 | "i403" | |
| 13021 | "i401" | |
| 13022 | "i399" | |
| 13023 | "i397" | |
| 13024 | "i395" | |
| 13025 | "i393" | |
| e2ccab57 AW |
13026 | "i392" |
| 13027 | "i390" | |
| 1bbe0a63 | 13028 | "i387" |
| e2ccab57 | 13029 | "i386" |
| 1bbe0a63 AW |
13030 | "i385" |
| 13031 | "i383" | |
| e2ccab57 AW |
13032 | "i382" |
| 13033 | "i380" | |
| e2ccab57 AW |
13034 | "i378" |
| 13035 | "i376" | |
| e2ccab57 | 13036 | "i374" |
| e2ccab57 AW |
13037 | "i372" |
| 13038 | "i370" | |
| 13039 | "i368" | |
| 13040 | "i366" | |
| 1bbe0a63 AW |
13041 | "i363" |
| 13042 | "i361" | |
| e2ccab57 AW |
13043 | "i360" |
| 13044 | "i358" | |
| 13045 | "i356" | |
| 1bbe0a63 AW |
13046 | "i354" |
| 13047 | "i352" | |
| e2ccab57 AW |
13048 | "i351" |
| 13049 | "i350" | |
| 13050 | "i349" | |
| e2ccab57 AW |
13051 | "i347" |
| 13052 | "i346" | |
| e2ccab57 AW |
13053 | "i343" |
| 13054 | "i341" | |
| 1bbe0a63 AW |
13055 | "i339" |
| 13056 | "i337" | |
| 13057 | "i335" | |
| 13058 | "i333" | |
| 13059 | "i331" | |
| e2ccab57 | 13060 | "i330" |
| 1bbe0a63 AW |
13061 | "i329" |
| 13062 | "i327" | |
| e2ccab57 AW |
13063 | "i325" |
| 13064 | "i324" | |
| e2ccab57 | 13065 | "i321" |
| 1bbe0a63 | 13066 | "i320" |
| e2ccab57 AW |
13067 | "i318" |
| 13068 | "i316" | |
| 13069 | "i314" | |
| 13070 | "i312" | |
| 13071 | "i310" | |
| 13072 | "i308" | |
| 13073 | "i306" | |
| 13074 | "i304" | |
| 13075 | "i302" | |
| 1bbe0a63 AW |
13076 | "i299" |
| 13077 | "i297" | |
| 13078 | "i295" | |
| 13079 | "i293" | |
| 13080 | "i291" | |
| 13081 | "i289" | |
| 13082 | "i287" | |
| 13083 | "i285" | |
| 13084 | "i283" | |
| 13085 | "i281" | |
| 13086 | "i279" | |
| 13087 | "i277" | |
| 13088 | "i275" | |
| 13089 | "i273" | |
| 13090 | "i271" | |
| 13091 | "i269" | |
| 13092 | "i267" | |
| 13093 | "i265" | |
| 13094 | "i263" | |
| 13095 | "i261" | |
| 13096 | "i259" | |
| 13097 | "i257" | |
| 13098 | "i255" | |
| e2ccab57 | 13099 | "i254" |
| e2ccab57 AW |
13100 | "i251" |
| 13101 | "i249" | |
| 13102 | "i248" | |
| 13103 | "i247" | |
| 13104 | "i246" | |
| 13105 | "i245" | |
| 13106 | "i243" | |
| 13107 | "i241" | |
| 13108 | "i239" | |
| 13109 | "i236" | |
| 13110 | "i234" | |
| 13111 | "i232" | |
| 13112 | "i230" | |
| 13113 | "i228" | |
| 13114 | "i226" | |
| 13115 | "i224" | |
| 13116 | "i222" | |
| 13117 | "i220" | |
| 13118 | "i218" | |
| 13119 | "i216" | |
| 13120 | "i214" | |
| 13121 | "i212" | |
| 13122 | "i210" | |
| 13123 | "i208" | |
| 13124 | "i206" | |
| 13125 | "i204" | |
| 13126 | "i202")) | |
| 13127 | #(ribcage | |
| 13128 | (define-structure | |
| 13129 | define-expansion-accessors | |
| 13130 | define-expansion-constructors) | |
| 13131 | ((top) (top) (top)) | |
| 13132 | ("i40" "i39" "i38"))) | |
| 13133 | (hygiene guile)) | |
| 13134 | '#(syntax-object | |
| 13135 | _ | |
| 13136 | ((top) | |
| 13137 | #(ribcage | |
| 13138 | #(pat exp) | |
| 13139 | #((top) (top)) | |
| 1bbe0a63 | 13140 | #("i3905" "i3906")) |
| e2ccab57 AW |
13141 | #(ribcage () () ()) |
| 13142 | #(ribcage | |
| 13143 | #(x keys clauses r mod) | |
| 13144 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
13145 | #("i3894" |
| 13146 | "i3895" | |
| 13147 | "i3896" | |
| 13148 | "i3897" | |
| 13149 | "i3898")) | |
| e2ccab57 AW |
13150 | #(ribcage |
| 13151 | (gen-syntax-case | |
| 13152 | gen-clause | |
| 13153 | build-dispatch-call | |
| 13154 | convert-pattern) | |
| 13155 | ((top) (top) (top) (top)) | |
| 1bbe0a63 | 13156 | ("i3704" "i3702" "i3700" "i3698")) |
| e2ccab57 AW |
13157 | #(ribcage |
| 13158 | (lambda-var-list | |
| 13159 | gen-var | |
| 13160 | strip | |
| 13161 | chi-lambda-case | |
| 13162 | lambda*-formals | |
| 13163 | chi-simple-lambda | |
| 13164 | lambda-formals | |
| 13165 | ellipsis? | |
| 13166 | chi-void | |
| 13167 | eval-local-transformer | |
| 13168 | chi-local-syntax | |
| 13169 | chi-body | |
| 13170 | chi-macro | |
| 13171 | chi-application | |
| 13172 | chi-expr | |
| 13173 | chi | |
| 13174 | syntax-type | |
| 13175 | chi-when-list | |
| 13176 | chi-install-global | |
| 13177 | chi-top-sequence | |
| 13178 | chi-sequence | |
| 13179 | source-wrap | |
| 13180 | wrap | |
| 13181 | bound-id-member? | |
| 13182 | distinct-bound-ids? | |
| 13183 | valid-bound-ids? | |
| 13184 | bound-id=? | |
| 13185 | free-id=? | |
| 13186 | id-var-name | |
| 13187 | same-marks? | |
| 13188 | join-marks | |
| 13189 | join-wraps | |
| 13190 | smart-append | |
| 13191 | make-binding-wrap | |
| 13192 | extend-ribcage! | |
| 13193 | make-empty-ribcage | |
| 13194 | new-mark | |
| 13195 | anti-mark | |
| 13196 | the-anti-mark | |
| 13197 | top-marked? | |
| 13198 | top-wrap | |
| 13199 | empty-wrap | |
| 13200 | set-ribcage-labels! | |
| 13201 | set-ribcage-marks! | |
| 13202 | set-ribcage-symnames! | |
| 13203 | ribcage-labels | |
| 13204 | ribcage-marks | |
| 13205 | ribcage-symnames | |
| 13206 | ribcage? | |
| 13207 | make-ribcage | |
| 13208 | gen-labels | |
| 13209 | gen-label | |
| 13210 | make-rename | |
| 13211 | rename-marks | |
| 13212 | rename-new | |
| 13213 | rename-old | |
| 13214 | subst-rename? | |
| 13215 | wrap-subst | |
| 13216 | wrap-marks | |
| 13217 | make-wrap | |
| 13218 | id-sym-name&marks | |
| 13219 | id-sym-name | |
| 13220 | id? | |
| 13221 | nonsymbol-id? | |
| 13222 | global-extend | |
| 13223 | lookup | |
| 13224 | macros-only-env | |
| 13225 | extend-var-env | |
| 13226 | extend-env | |
| 13227 | null-env | |
| 13228 | binding-value | |
| 13229 | binding-type | |
| 13230 | make-binding | |
| 13231 | arg-check | |
| 13232 | source-annotation | |
| 13233 | no-source | |
| 13234 | set-syntax-object-module! | |
| 13235 | set-syntax-object-wrap! | |
| 13236 | set-syntax-object-expression! | |
| 13237 | syntax-object-module | |
| 13238 | syntax-object-wrap | |
| 13239 | syntax-object-expression | |
| 13240 | syntax-object? | |
| 13241 | make-syntax-object | |
| 13242 | build-lexical-var | |
| 13243 | build-letrec | |
| 13244 | build-named-let | |
| 13245 | build-let | |
| 13246 | build-sequence | |
| 13247 | build-data | |
| 13248 | build-primref | |
| 13249 | build-lambda-case | |
| 13250 | build-case-lambda | |
| 13251 | build-simple-lambda | |
| 13252 | build-global-definition | |
| 13253 | build-global-assignment | |
| 13254 | build-global-reference | |
| 13255 | analyze-variable | |
| 13256 | build-lexical-assignment | |
| 13257 | build-lexical-reference | |
| 13258 | build-dynlet | |
| 13259 | build-conditional | |
| 13260 | build-application | |
| 13261 | build-void | |
| 13262 | maybe-name-value! | |
| 13263 | decorate-source | |
| 13264 | get-global-definition-hook | |
| 13265 | put-global-definition-hook | |
| 13266 | gensym-hook | |
| 13267 | local-eval-hook | |
| 13268 | top-level-eval-hook | |
| 13269 | fx< | |
| 13270 | fx= | |
| 13271 | fx- | |
| 13272 | fx+ | |
| 13273 | set-lambda-meta! | |
| 13274 | lambda-meta | |
| 13275 | lambda? | |
| 13276 | make-dynlet | |
| 13277 | make-letrec | |
| 13278 | make-let | |
| 13279 | make-lambda-case | |
| 13280 | make-lambda | |
| 13281 | make-sequence | |
| 13282 | make-application | |
| 13283 | make-conditional | |
| 13284 | make-toplevel-define | |
| 13285 | make-toplevel-set | |
| 13286 | make-toplevel-ref | |
| 13287 | make-module-set | |
| 13288 | make-module-ref | |
| 13289 | make-lexical-set | |
| 13290 | make-lexical-ref | |
| 13291 | make-primitive-ref | |
| 13292 | make-const | |
| 13293 | make-void) | |
| 13294 | ((top) | |
| 13295 | (top) | |
| 13296 | (top) | |
| 13297 | (top) | |
| 13298 | (top) | |
| 13299 | (top) | |
| 13300 | (top) | |
| 13301 | (top) | |
| 13302 | (top) | |
| 13303 | (top) | |
| 13304 | (top) | |
| 13305 | (top) | |
| 13306 | (top) | |
| 13307 | (top) | |
| 13308 | (top) | |
| 13309 | (top) | |
| 13310 | (top) | |
| 13311 | (top) | |
| 13312 | (top) | |
| 13313 | (top) | |
| 13314 | (top) | |
| 13315 | (top) | |
| 13316 | (top) | |
| 13317 | (top) | |
| 13318 | (top) | |
| 13319 | (top) | |
| 13320 | (top) | |
| 13321 | (top) | |
| 13322 | (top) | |
| 13323 | (top) | |
| 13324 | (top) | |
| 13325 | (top) | |
| 13326 | (top) | |
| 13327 | (top) | |
| 13328 | (top) | |
| 13329 | (top) | |
| 13330 | (top) | |
| 13331 | (top) | |
| 13332 | (top) | |
| 13333 | (top) | |
| 13334 | (top) | |
| 13335 | (top) | |
| 13336 | (top) | |
| 13337 | (top) | |
| 13338 | (top) | |
| 13339 | (top) | |
| 13340 | (top) | |
| 13341 | (top) | |
| 13342 | (top) | |
| 13343 | (top) | |
| 13344 | (top) | |
| 13345 | (top) | |
| 13346 | (top) | |
| 13347 | (top) | |
| 13348 | (top) | |
| 13349 | (top) | |
| 13350 | (top) | |
| 13351 | (top) | |
| 13352 | (top) | |
| 13353 | (top) | |
| 13354 | (top) | |
| 13355 | (top) | |
| 13356 | (top) | |
| 13357 | (top) | |
| 13358 | (top) | |
| 13359 | (top) | |
| 13360 | (top) | |
| 13361 | (top) | |
| 13362 | (top) | |
| 13363 | (top) | |
| 13364 | (top) | |
| 13365 | (top) | |
| 13366 | (top) | |
| 13367 | (top) | |
| 13368 | (top) | |
| 13369 | (top) | |
| 13370 | (top) | |
| 13371 | (top) | |
| 13372 | (top) | |
| 13373 | (top) | |
| 13374 | (top) | |
| 13375 | (top) | |
| 13376 | (top) | |
| 13377 | (top) | |
| 13378 | (top) | |
| 13379 | (top) | |
| 13380 | (top) | |
| 13381 | (top) | |
| 13382 | (top) | |
| 13383 | (top) | |
| 13384 | (top) | |
| 13385 | (top) | |
| 13386 | (top) | |
| 13387 | (top) | |
| 13388 | (top) | |
| 13389 | (top) | |
| 13390 | (top) | |
| 13391 | (top) | |
| 13392 | (top) | |
| 13393 | (top) | |
| 13394 | (top) | |
| 13395 | (top) | |
| 13396 | (top) | |
| 13397 | (top) | |
| 13398 | (top) | |
| 13399 | (top) | |
| 13400 | (top) | |
| 13401 | (top) | |
| 13402 | (top) | |
| 13403 | (top) | |
| 13404 | (top) | |
| 13405 | (top) | |
| 13406 | (top) | |
| 13407 | (top) | |
| 13408 | (top) | |
| 13409 | (top) | |
| 13410 | (top) | |
| 13411 | (top) | |
| 13412 | (top) | |
| 13413 | (top) | |
| 13414 | (top) | |
| 13415 | (top) | |
| 13416 | (top) | |
| 13417 | (top) | |
| 13418 | (top) | |
| 13419 | (top) | |
| 13420 | (top) | |
| 13421 | (top) | |
| 13422 | (top) | |
| 13423 | (top) | |
| 13424 | (top) | |
| 13425 | (top) | |
| 13426 | (top) | |
| 13427 | (top) | |
| 13428 | (top) | |
| 13429 | (top)) | |
| 1bbe0a63 AW |
13430 | ("i461" |
| 13431 | "i459" | |
| 13432 | "i457" | |
| 13433 | "i455" | |
| 13434 | "i453" | |
| 13435 | "i451" | |
| 13436 | "i449" | |
| 13437 | "i447" | |
| 13438 | "i445" | |
| 13439 | "i443" | |
| 13440 | "i441" | |
| 13441 | "i439" | |
| 13442 | "i437" | |
| 13443 | "i435" | |
| 13444 | "i433" | |
| 13445 | "i431" | |
| 13446 | "i429" | |
| 13447 | "i427" | |
| 13448 | "i425" | |
| 13449 | "i423" | |
| 13450 | "i421" | |
| 13451 | "i419" | |
| 13452 | "i417" | |
| 13453 | "i415" | |
| 13454 | "i413" | |
| 13455 | "i411" | |
| 13456 | "i409" | |
| 13457 | "i407" | |
| 13458 | "i405" | |
| 13459 | "i403" | |
| 13460 | "i401" | |
| 13461 | "i399" | |
| 13462 | "i397" | |
| 13463 | "i395" | |
| 13464 | "i393" | |
| e2ccab57 AW |
13465 | "i392" |
| 13466 | "i390" | |
| 1bbe0a63 | 13467 | "i387" |
| e2ccab57 | 13468 | "i386" |
| 1bbe0a63 AW |
13469 | "i385" |
| 13470 | "i383" | |
| e2ccab57 AW |
13471 | "i382" |
| 13472 | "i380" | |
| e2ccab57 AW |
13473 | "i378" |
| 13474 | "i376" | |
| e2ccab57 | 13475 | "i374" |
| e2ccab57 AW |
13476 | "i372" |
| 13477 | "i370" | |
| 13478 | "i368" | |
| 13479 | "i366" | |
| 1bbe0a63 AW |
13480 | "i363" |
| 13481 | "i361" | |
| e2ccab57 AW |
13482 | "i360" |
| 13483 | "i358" | |
| 13484 | "i356" | |
| 1bbe0a63 AW |
13485 | "i354" |
| 13486 | "i352" | |
| e2ccab57 AW |
13487 | "i351" |
| 13488 | "i350" | |
| 13489 | "i349" | |
| e2ccab57 AW |
13490 | "i347" |
| 13491 | "i346" | |
| e2ccab57 AW |
13492 | "i343" |
| 13493 | "i341" | |
| 1bbe0a63 AW |
13494 | "i339" |
| 13495 | "i337" | |
| 13496 | "i335" | |
| 13497 | "i333" | |
| 13498 | "i331" | |
| e2ccab57 | 13499 | "i330" |
| 1bbe0a63 AW |
13500 | "i329" |
| 13501 | "i327" | |
| e2ccab57 AW |
13502 | "i325" |
| 13503 | "i324" | |
| e2ccab57 | 13504 | "i321" |
| 1bbe0a63 | 13505 | "i320" |
| e2ccab57 AW |
13506 | "i318" |
| 13507 | "i316" | |
| 13508 | "i314" | |
| 13509 | "i312" | |
| 13510 | "i310" | |
| 13511 | "i308" | |
| 13512 | "i306" | |
| 13513 | "i304" | |
| 13514 | "i302" | |
| 1bbe0a63 AW |
13515 | "i299" |
| 13516 | "i297" | |
| 13517 | "i295" | |
| 13518 | "i293" | |
| 13519 | "i291" | |
| 13520 | "i289" | |
| 13521 | "i287" | |
| 13522 | "i285" | |
| 13523 | "i283" | |
| 13524 | "i281" | |
| 13525 | "i279" | |
| 13526 | "i277" | |
| 13527 | "i275" | |
| 13528 | "i273" | |
| 13529 | "i271" | |
| 13530 | "i269" | |
| 13531 | "i267" | |
| 13532 | "i265" | |
| 13533 | "i263" | |
| 13534 | "i261" | |
| 13535 | "i259" | |
| 13536 | "i257" | |
| 13537 | "i255" | |
| e2ccab57 | 13538 | "i254" |
| e2ccab57 AW |
13539 | "i251" |
| 13540 | "i249" | |
| 13541 | "i248" | |
| 13542 | "i247" | |
| 13543 | "i246" | |
| 13544 | "i245" | |
| 13545 | "i243" | |
| 13546 | "i241" | |
| 13547 | "i239" | |
| 13548 | "i236" | |
| 13549 | "i234" | |
| 13550 | "i232" | |
| 13551 | "i230" | |
| 13552 | "i228" | |
| 13553 | "i226" | |
| 13554 | "i224" | |
| 13555 | "i222" | |
| 13556 | "i220" | |
| 13557 | "i218" | |
| 13558 | "i216" | |
| 13559 | "i214" | |
| 13560 | "i212" | |
| 13561 | "i210" | |
| 13562 | "i208" | |
| 13563 | "i206" | |
| 13564 | "i204" | |
| 13565 | "i202")) | |
| 13566 | #(ribcage | |
| 13567 | (define-structure | |
| 13568 | define-expansion-accessors | |
| 13569 | define-expansion-constructors) | |
| 13570 | ((top) (top) (top)) | |
| 13571 | ("i40" "i39" "i38"))) | |
| 13572 | (hygiene guile))) | |
| 1bbe0a63 AW |
13573 | (#{chi 432}# |
| 13574 | #{exp 3908}# | |
| 13575 | #{r 3892}# | |
| e2ccab57 | 13576 | '(()) |
| 1bbe0a63 | 13577 | #{mod 3893}#) |
| e2ccab57 | 13578 | (begin |
| 1bbe0a63 AW |
13579 | (let ((#{labels 3916}# |
| 13580 | (list (#{gen-label 362}#))) | |
| 13581 | (#{var 3917}# | |
| 13582 | (#{gen-var 460}# #{pat 3907}#))) | |
| 13583 | (#{build-application 266}# | |
| e2ccab57 | 13584 | #f |
| 1bbe0a63 | 13585 | (#{build-simple-lambda 284}# |
| e2ccab57 | 13586 | #f |
| 1bbe0a63 | 13587 | (list (syntax->datum #{pat 3907}#)) |
| e2ccab57 | 13588 | #f |
| 1bbe0a63 | 13589 | (list #{var 3917}#) |
| e2ccab57 | 13590 | '() |
| 1bbe0a63 AW |
13591 | (#{chi 432}# |
| 13592 | #{exp 3908}# | |
| 13593 | (#{extend-env 332}# | |
| 13594 | #{labels 3916}# | |
| e2ccab57 | 13595 | (list (cons 'syntax |
| 1bbe0a63 AW |
13596 | (cons #{var 3917}# 0))) |
| 13597 | #{r 3892}#) | |
| 13598 | (#{make-binding-wrap 396}# | |
| 13599 | (list #{pat 3907}#) | |
| 13600 | #{labels 3916}# | |
| e2ccab57 | 13601 | '(())) |
| 1bbe0a63 AW |
13602 | #{mod 3893}#)) |
| 13603 | (list #{x 3889}#))))) | |
| 13604 | (#{gen-clause 3703}# | |
| 13605 | #{x 3889}# | |
| 13606 | #{keys 3890}# | |
| 13607 | (cdr #{clauses 3891}#) | |
| 13608 | #{r 3892}# | |
| 13609 | #{pat 3907}# | |
| e2ccab57 | 13610 | #t |
| 1bbe0a63 AW |
13611 | #{exp 3908}# |
| 13612 | #{mod 3893}#))) | |
| 13613 | #{tmp 3904}#) | |
| 13614 | (let ((#{tmp 3923}# | |
| 13615 | ($sc-dispatch #{tmp 3903}# '(any any any)))) | |
| 13616 | (if #{tmp 3923}# | |
| e2ccab57 | 13617 | (@apply |
| 1bbe0a63 AW |
13618 | (lambda (#{pat 3927}# |
| 13619 | #{fender 3928}# | |
| 13620 | #{exp 3929}#) | |
| 13621 | (#{gen-clause 3703}# | |
| 13622 | #{x 3889}# | |
| 13623 | #{keys 3890}# | |
| 13624 | (cdr #{clauses 3891}#) | |
| 13625 | #{r 3892}# | |
| 13626 | #{pat 3927}# | |
| 13627 | #{fender 3928}# | |
| 13628 | #{exp 3929}# | |
| 13629 | #{mod 3893}#)) | |
| 13630 | #{tmp 3923}#) | |
| 13631 | (let ((#{_ 3931}# #{tmp 3903}#)) | |
| e2ccab57 AW |
13632 | (syntax-violation |
| 13633 | 'syntax-case | |
| 13634 | "invalid clause" | |
| 1bbe0a63 | 13635 | (car #{clauses 3891}#)))))))))))) |
| e2ccab57 | 13636 | (begin |
| 1bbe0a63 AW |
13637 | (lambda (#{e 3932}# |
| 13638 | #{r 3933}# | |
| 13639 | #{w 3934}# | |
| 13640 | #{s 3935}# | |
| 13641 | #{mod 3936}#) | |
| d8f699e8 | 13642 | (begin |
| 1bbe0a63 AW |
13643 | (let ((#{e 3943}# |
| 13644 | (#{source-wrap 420}# | |
| 13645 | #{e 3932}# | |
| 13646 | #{w 3934}# | |
| 13647 | #{s 3935}# | |
| 13648 | #{mod 3936}#))) | |
| 13649 | (let ((#{tmp 3944}# #{e 3943}#)) | |
| 13650 | (let ((#{tmp 3945}# | |
| e2ccab57 | 13651 | ($sc-dispatch |
| 1bbe0a63 | 13652 | #{tmp 3944}# |
| e2ccab57 | 13653 | '(_ any each-any . each-any)))) |
| 1bbe0a63 | 13654 | (if #{tmp 3945}# |
| e2ccab57 | 13655 | (@apply |
| 1bbe0a63 | 13656 | (lambda (#{val 3949}# #{key 3950}# #{m 3951}#) |
| e2ccab57 | 13657 | (if (and-map |
| 1bbe0a63 AW |
13658 | (lambda (#{x 3952}#) |
| 13659 | (if (#{id? 344}# #{x 3952}#) | |
| 13660 | (not (#{ellipsis? 448}# #{x 3952}#)) | |
| e2ccab57 | 13661 | #f)) |
| 1bbe0a63 | 13662 | #{key 3950}#) |
| e2ccab57 | 13663 | (begin |
| 1bbe0a63 AW |
13664 | (let ((#{x 3958}# (#{gen-var 460}# 'tmp))) |
| 13665 | (#{build-application 266}# | |
| 13666 | #{s 3935}# | |
| 13667 | (#{build-simple-lambda 284}# | |
| e2ccab57 AW |
13668 | #f |
| 13669 | (list 'tmp) | |
| 13670 | #f | |
| 1bbe0a63 | 13671 | (list #{x 3958}#) |
| e2ccab57 | 13672 | '() |
| 1bbe0a63 AW |
13673 | (#{gen-syntax-case 3705}# |
| 13674 | (#{build-lexical-reference 272}# | |
| e2ccab57 | 13675 | 'value |
| d8f699e8 | 13676 | #f |
| e2ccab57 | 13677 | 'tmp |
| 1bbe0a63 AW |
13678 | #{x 3958}#) |
| 13679 | #{key 3950}# | |
| 13680 | #{m 3951}# | |
| 13681 | #{r 3933}# | |
| 13682 | #{mod 3936}#)) | |
| 13683 | (list (#{chi 432}# | |
| 13684 | #{val 3949}# | |
| 13685 | #{r 3933}# | |
| e2ccab57 | 13686 | '(()) |
| 1bbe0a63 | 13687 | #{mod 3936}#))))) |
| e2ccab57 AW |
13688 | (syntax-violation |
| 13689 | 'syntax-case | |
| 13690 | "invalid literals list" | |
| 1bbe0a63 AW |
13691 | #{e 3943}#))) |
| 13692 | #{tmp 3945}#) | |
| e2ccab57 AW |
13693 | (syntax-violation |
| 13694 | #f | |
| 13695 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 13696 | #{tmp 3944}#)))))))))) |
| e2ccab57 AW |
13697 | (set! macroexpand |
| 13698 | (lambda* | |
| 1bbe0a63 | 13699 | (#{x 3964}# |
| e2ccab57 | 13700 | #:optional |
| 1bbe0a63 AW |
13701 | (#{m 3966}# 'e) |
| 13702 | (#{esew 3968}# '(eval))) | |
| 13703 | (#{chi-top-sequence 424}# | |
| 13704 | (list #{x 3964}#) | |
| e2ccab57 AW |
13705 | '() |
| 13706 | '((top)) | |
| 13707 | #f | |
| 1bbe0a63 AW |
13708 | #{m 3966}# |
| 13709 | #{esew 3968}# | |
| e2ccab57 AW |
13710 | (cons 'hygiene (module-name (current-module)))))) |
| 13711 | (set! identifier? | |
| 1bbe0a63 AW |
13712 | (lambda (#{x 3972}#) |
| 13713 | (#{nonsymbol-id? 342}# #{x 3972}#))) | |
| e2ccab57 | 13714 | (set! datum->syntax |
| 1bbe0a63 AW |
13715 | (lambda (#{id 3974}# #{datum 3975}#) |
| 13716 | (#{make-syntax-object 305}# | |
| 13717 | #{datum 3975}# | |
| 13718 | (#{syntax-object-wrap 311}# #{id 3974}#) | |
| 13719 | (#{syntax-object-module 313}# #{id 3974}#)))) | |
| e2ccab57 | 13720 | (set! syntax->datum |
| 1bbe0a63 AW |
13721 | (lambda (#{x 3978}#) |
| 13722 | (#{strip 458}# #{x 3978}# '(())))) | |
| e2ccab57 | 13723 | (set! syntax-source |
| 1bbe0a63 AW |
13724 | (lambda (#{x 3981}#) |
| 13725 | (#{source-annotation 322}# #{x 3981}#))) | |
| e2ccab57 | 13726 | (set! generate-temporaries |
| 1bbe0a63 | 13727 | (lambda (#{ls 3983}#) |
| e2ccab57 AW |
13728 | (begin |
| 13729 | (begin | |
| 1bbe0a63 AW |
13730 | (let ((#{x 3987}# #{ls 3983}#)) |
| 13731 | (if (not (list? #{x 3987}#)) | |
| e2ccab57 AW |
13732 | (syntax-violation |
| 13733 | 'generate-temporaries | |
| 13734 | "invalid argument" | |
| 1bbe0a63 | 13735 | #{x 3987}#)))) |
| 933c6eb7 | 13736 | (begin |
| 1bbe0a63 | 13737 | (let ((#{mod 3989}# |
| 933c6eb7 | 13738 | (cons 'hygiene (module-name (current-module))))) |
| 1bbe0a63 AW |
13739 | (map (lambda (#{x 3990}#) |
| 13740 | (#{wrap 418}# (gensym) '((top)) #{mod 3989}#)) | |
| 13741 | #{ls 3983}#)))))) | |
| e2ccab57 | 13742 | (set! free-identifier=? |
| 1bbe0a63 | 13743 | (lambda (#{x 3994}# #{y 3995}#) |
| e2ccab57 AW |
13744 | (begin |
| 13745 | (begin | |
| 1bbe0a63 AW |
13746 | (let ((#{x 4000}# #{x 3994}#)) |
| 13747 | (if (not (#{nonsymbol-id? 342}# #{x 4000}#)) | |
| e2ccab57 AW |
13748 | (syntax-violation |
| 13749 | 'free-identifier=? | |
| 13750 | "invalid argument" | |
| 1bbe0a63 | 13751 | #{x 4000}#)))) |
| e2ccab57 | 13752 | (begin |
| 1bbe0a63 AW |
13753 | (let ((#{x 4003}# #{y 3995}#)) |
| 13754 | (if (not (#{nonsymbol-id? 342}# #{x 4003}#)) | |
| e2ccab57 AW |
13755 | (syntax-violation |
| 13756 | 'free-identifier=? | |
| 13757 | "invalid argument" | |
| 1bbe0a63 AW |
13758 | #{x 4003}#)))) |
| 13759 | (#{free-id=? 408}# #{x 3994}# #{y 3995}#)))) | |
| e2ccab57 | 13760 | (set! bound-identifier=? |
| 1bbe0a63 | 13761 | (lambda (#{x 4004}# #{y 4005}#) |
| e2ccab57 AW |
13762 | (begin |
| 13763 | (begin | |
| 1bbe0a63 AW |
13764 | (let ((#{x 4010}# #{x 4004}#)) |
| 13765 | (if (not (#{nonsymbol-id? 342}# #{x 4010}#)) | |
| e2ccab57 AW |
13766 | (syntax-violation |
| 13767 | 'bound-identifier=? | |
| 13768 | "invalid argument" | |
| 1bbe0a63 | 13769 | #{x 4010}#)))) |
| e2ccab57 | 13770 | (begin |
| 1bbe0a63 AW |
13771 | (let ((#{x 4013}# #{y 4005}#)) |
| 13772 | (if (not (#{nonsymbol-id? 342}# #{x 4013}#)) | |
| e2ccab57 AW |
13773 | (syntax-violation |
| 13774 | 'bound-identifier=? | |
| 13775 | "invalid argument" | |
| 1bbe0a63 AW |
13776 | #{x 4013}#)))) |
| 13777 | (#{bound-id=? 410}# #{x 4004}# #{y 4005}#)))) | |
| e2ccab57 AW |
13778 | (set! syntax-violation |
| 13779 | (lambda* | |
| 1bbe0a63 AW |
13780 | (#{who 4014}# |
| 13781 | #{message 4015}# | |
| 13782 | #{form 4016}# | |
| e2ccab57 | 13783 | #:optional |
| 1bbe0a63 | 13784 | (#{subform 4020}# #f)) |
| e2ccab57 AW |
13785 | (begin |
| 13786 | (begin | |
| 1bbe0a63 AW |
13787 | (let ((#{x 4024}# #{who 4014}#)) |
| 13788 | (if (not (let ((#{x 4025}# #{x 4024}#)) | |
| e2ccab57 | 13789 | (begin |
| 1bbe0a63 AW |
13790 | (let ((#{t 4029}# (not #{x 4025}#))) |
| 13791 | (if #{t 4029}# | |
| 13792 | #{t 4029}# | |
| e2ccab57 | 13793 | (begin |
| 1bbe0a63 AW |
13794 | (let ((#{t 4032}# (string? #{x 4025}#))) |
| 13795 | (if #{t 4032}# | |
| 13796 | #{t 4032}# | |
| 13797 | (symbol? #{x 4025}#))))))))) | |
| e2ccab57 AW |
13798 | (syntax-violation |
| 13799 | 'syntax-violation | |
| 13800 | "invalid argument" | |
| 1bbe0a63 | 13801 | #{x 4024}#)))) |
| e2ccab57 | 13802 | (begin |
| 1bbe0a63 AW |
13803 | (let ((#{x 4036}# #{message 4015}#)) |
| 13804 | (if (not (string? #{x 4036}#)) | |
| e2ccab57 AW |
13805 | (syntax-violation |
| 13806 | 'syntax-violation | |
| 13807 | "invalid argument" | |
| 1bbe0a63 | 13808 | #{x 4036}#)))) |
| e2ccab57 | 13809 | (throw 'syntax-error |
| 1bbe0a63 AW |
13810 | #{who 4014}# |
| 13811 | #{message 4015}# | |
| 13812 | (#{source-annotation 322}# | |
| e2ccab57 | 13813 | (begin |
| 1bbe0a63 AW |
13814 | (let ((#{t 4039}# #{form 4016}#)) |
| 13815 | (if #{t 4039}# #{t 4039}# #{subform 4020}#)))) | |
| 13816 | (#{strip 458}# #{form 4016}# '(())) | |
| 13817 | (if #{subform 4020}# | |
| 13818 | (#{strip 458}# #{subform 4020}# '(())) | |
| e2ccab57 AW |
13819 | #f))))) |
| 13820 | (letrec* | |
| 1bbe0a63 AW |
13821 | ((#{match-each 4046}# |
| 13822 | (lambda (#{e 4059}# #{p 4060}# #{w 4061}# #{mod 4062}#) | |
| 13823 | (if (pair? #{e 4059}#) | |
| e2ccab57 | 13824 | (begin |
| 1bbe0a63 AW |
13825 | (let ((#{first 4070}# |
| 13826 | (#{match 4058}# | |
| 13827 | (car #{e 4059}#) | |
| 13828 | #{p 4060}# | |
| 13829 | #{w 4061}# | |
| e2ccab57 | 13830 | '() |
| 1bbe0a63 AW |
13831 | #{mod 4062}#))) |
| 13832 | (if #{first 4070}# | |
| e2ccab57 | 13833 | (begin |
| 1bbe0a63 AW |
13834 | (let ((#{rest 4074}# |
| 13835 | (#{match-each 4046}# | |
| 13836 | (cdr #{e 4059}#) | |
| 13837 | #{p 4060}# | |
| 13838 | #{w 4061}# | |
| 13839 | #{mod 4062}#))) | |
| 13840 | (if #{rest 4074}# | |
| 13841 | (cons #{first 4070}# #{rest 4074}#) | |
| e2ccab57 AW |
13842 | #f))) |
| 13843 | #f))) | |
| 1bbe0a63 | 13844 | (if (null? #{e 4059}#) |
| e2ccab57 | 13845 | '() |
| 1bbe0a63 AW |
13846 | (if (#{syntax-object? 307}# #{e 4059}#) |
| 13847 | (#{match-each 4046}# | |
| 13848 | (#{syntax-object-expression 309}# #{e 4059}#) | |
| 13849 | #{p 4060}# | |
| 13850 | (#{join-wraps 400}# | |
| 13851 | #{w 4061}# | |
| 13852 | (#{syntax-object-wrap 311}# #{e 4059}#)) | |
| 13853 | (#{syntax-object-module 313}# #{e 4059}#)) | |
| e2ccab57 | 13854 | #f))))) |
| 1bbe0a63 AW |
13855 | (#{match-each+ 4048}# |
| 13856 | (lambda (#{e 4082}# | |
| 13857 | #{x-pat 4083}# | |
| 13858 | #{y-pat 4084}# | |
| 13859 | #{z-pat 4085}# | |
| 13860 | #{w 4086}# | |
| 13861 | #{r 4087}# | |
| 13862 | #{mod 4088}#) | |
| e2ccab57 | 13863 | (letrec* |
| 1bbe0a63 AW |
13864 | ((#{f 4099}# |
| 13865 | (lambda (#{e 4100}# #{w 4101}#) | |
| 13866 | (if (pair? #{e 4100}#) | |
| e2ccab57 AW |
13867 | (call-with-values |
| 13868 | (lambda () | |
| 1bbe0a63 AW |
13869 | (#{f 4099}# (cdr #{e 4100}#) #{w 4101}#)) |
| 13870 | (lambda (#{xr* 4104}# #{y-pat 4105}# #{r 4106}#) | |
| 13871 | (if #{r 4106}# | |
| 13872 | (if (null? #{y-pat 4105}#) | |
| e2ccab57 | 13873 | (begin |
| 1bbe0a63 AW |
13874 | (let ((#{xr 4111}# |
| 13875 | (#{match 4058}# | |
| 13876 | (car #{e 4100}#) | |
| 13877 | #{x-pat 4083}# | |
| 13878 | #{w 4101}# | |
| d8f699e8 | 13879 | '() |
| 1bbe0a63 AW |
13880 | #{mod 4088}#))) |
| 13881 | (if #{xr 4111}# | |
| e2ccab57 | 13882 | (values |
| 1bbe0a63 AW |
13883 | (cons #{xr 4111}# #{xr* 4104}#) |
| 13884 | #{y-pat 4105}# | |
| 13885 | #{r 4106}#) | |
| e2ccab57 AW |
13886 | (values #f #f #f)))) |
| 13887 | (values | |
| 13888 | '() | |
| 1bbe0a63 AW |
13889 | (cdr #{y-pat 4105}#) |
| 13890 | (#{match 4058}# | |
| 13891 | (car #{e 4100}#) | |
| 13892 | (car #{y-pat 4105}#) | |
| 13893 | #{w 4101}# | |
| 13894 | #{r 4106}# | |
| 13895 | #{mod 4088}#))) | |
| e2ccab57 | 13896 | (values #f #f #f)))) |
| 1bbe0a63 AW |
13897 | (if (#{syntax-object? 307}# #{e 4100}#) |
| 13898 | (#{f 4099}# | |
| 13899 | (#{syntax-object-expression 309}# #{e 4100}#) | |
| 13900 | (#{join-wraps 400}# #{w 4101}# #{e 4100}#)) | |
| e2ccab57 AW |
13901 | (values |
| 13902 | '() | |
| 1bbe0a63 AW |
13903 | #{y-pat 4084}# |
| 13904 | (#{match 4058}# | |
| 13905 | #{e 4100}# | |
| 13906 | #{z-pat 4085}# | |
| 13907 | #{w 4101}# | |
| 13908 | #{r 4087}# | |
| 13909 | #{mod 4088}#))))))) | |
| 13910 | (begin (#{f 4099}# #{e 4082}# #{w 4086}#))))) | |
| 13911 | (#{match-each-any 4050}# | |
| 13912 | (lambda (#{e 4115}# #{w 4116}# #{mod 4117}#) | |
| 13913 | (if (pair? #{e 4115}#) | |
| e2ccab57 | 13914 | (begin |
| 1bbe0a63 AW |
13915 | (let ((#{l 4124}# |
| 13916 | (#{match-each-any 4050}# | |
| 13917 | (cdr #{e 4115}#) | |
| 13918 | #{w 4116}# | |
| 13919 | #{mod 4117}#))) | |
| 13920 | (if #{l 4124}# | |
| 13921 | (cons (#{wrap 418}# | |
| 13922 | (car #{e 4115}#) | |
| 13923 | #{w 4116}# | |
| 13924 | #{mod 4117}#) | |
| 13925 | #{l 4124}#) | |
| e2ccab57 | 13926 | #f))) |
| 1bbe0a63 | 13927 | (if (null? #{e 4115}#) |
| e2ccab57 | 13928 | '() |
| 1bbe0a63 AW |
13929 | (if (#{syntax-object? 307}# #{e 4115}#) |
| 13930 | (#{match-each-any 4050}# | |
| 13931 | (#{syntax-object-expression 309}# #{e 4115}#) | |
| 13932 | (#{join-wraps 400}# | |
| 13933 | #{w 4116}# | |
| 13934 | (#{syntax-object-wrap 311}# #{e 4115}#)) | |
| 13935 | #{mod 4117}#) | |
| e2ccab57 | 13936 | #f))))) |
| 1bbe0a63 AW |
13937 | (#{match-empty 4052}# |
| 13938 | (lambda (#{p 4132}# #{r 4133}#) | |
| 13939 | (if (null? #{p 4132}#) | |
| 13940 | #{r 4133}# | |
| 13941 | (if (eq? #{p 4132}# '_) | |
| 13942 | #{r 4133}# | |
| 13943 | (if (eq? #{p 4132}# 'any) | |
| 13944 | (cons '() #{r 4133}#) | |
| 13945 | (if (pair? #{p 4132}#) | |
| 13946 | (#{match-empty 4052}# | |
| 13947 | (car #{p 4132}#) | |
| 13948 | (#{match-empty 4052}# | |
| 13949 | (cdr #{p 4132}#) | |
| 13950 | #{r 4133}#)) | |
| 13951 | (if (eq? #{p 4132}# 'each-any) | |
| 13952 | (cons '() #{r 4133}#) | |
| e2ccab57 | 13953 | (begin |
| 1bbe0a63 AW |
13954 | (let ((#{atom-key 4149}# (vector-ref #{p 4132}# 0))) |
| 13955 | (if (eqv? #{atom-key 4149}# 'each) | |
| 13956 | (#{match-empty 4052}# | |
| 13957 | (vector-ref #{p 4132}# 1) | |
| 13958 | #{r 4133}#) | |
| 13959 | (if (eqv? #{atom-key 4149}# 'each+) | |
| 13960 | (#{match-empty 4052}# | |
| 13961 | (vector-ref #{p 4132}# 1) | |
| 13962 | (#{match-empty 4052}# | |
| 13963 | (reverse (vector-ref #{p 4132}# 2)) | |
| 13964 | (#{match-empty 4052}# | |
| 13965 | (vector-ref #{p 4132}# 3) | |
| 13966 | #{r 4133}#))) | |
| 13967 | (if (if (eqv? #{atom-key 4149}# 'free-id) | |
| e2ccab57 | 13968 | #t |
| 1bbe0a63 AW |
13969 | (eqv? #{atom-key 4149}# 'atom)) |
| 13970 | #{r 4133}# | |
| 13971 | (if (eqv? #{atom-key 4149}# 'vector) | |
| 13972 | (#{match-empty 4052}# | |
| 13973 | (vector-ref #{p 4132}# 1) | |
| 13974 | #{r 4133}#)))))))))))))) | |
| 13975 | (#{combine 4054}# | |
| 13976 | (lambda (#{r* 4154}# #{r 4155}#) | |
| 13977 | (if (null? (car #{r* 4154}#)) | |
| 13978 | #{r 4155}# | |
| 13979 | (cons (map car #{r* 4154}#) | |
| 13980 | (#{combine 4054}# | |
| 13981 | (map cdr #{r* 4154}#) | |
| 13982 | #{r 4155}#))))) | |
| 13983 | (#{match* 4056}# | |
| 13984 | (lambda (#{e 4158}# | |
| 13985 | #{p 4159}# | |
| 13986 | #{w 4160}# | |
| 13987 | #{r 4161}# | |
| 13988 | #{mod 4162}#) | |
| 13989 | (if (null? #{p 4159}#) | |
| 13990 | (if (null? #{e 4158}#) #{r 4161}# #f) | |
| 13991 | (if (pair? #{p 4159}#) | |
| 13992 | (if (pair? #{e 4158}#) | |
| 13993 | (#{match 4058}# | |
| 13994 | (car #{e 4158}#) | |
| 13995 | (car #{p 4159}#) | |
| 13996 | #{w 4160}# | |
| 13997 | (#{match 4058}# | |
| 13998 | (cdr #{e 4158}#) | |
| 13999 | (cdr #{p 4159}#) | |
| 14000 | #{w 4160}# | |
| 14001 | #{r 4161}# | |
| 14002 | #{mod 4162}#) | |
| 14003 | #{mod 4162}#) | |
| e2ccab57 | 14004 | #f) |
| 1bbe0a63 | 14005 | (if (eq? #{p 4159}# 'each-any) |
| d8f699e8 | 14006 | (begin |
| 1bbe0a63 AW |
14007 | (let ((#{l 4179}# |
| 14008 | (#{match-each-any 4050}# | |
| 14009 | #{e 4158}# | |
| 14010 | #{w 4160}# | |
| 14011 | #{mod 4162}#))) | |
| 14012 | (if #{l 4179}# (cons #{l 4179}# #{r 4161}#) #f))) | |
| d8f699e8 | 14013 | (begin |
| 1bbe0a63 AW |
14014 | (let ((#{atom-key 4185}# (vector-ref #{p 4159}# 0))) |
| 14015 | (if (eqv? #{atom-key 4185}# 'each) | |
| 14016 | (if (null? #{e 4158}#) | |
| 14017 | (#{match-empty 4052}# | |
| 14018 | (vector-ref #{p 4159}# 1) | |
| 14019 | #{r 4161}#) | |
| d8f699e8 | 14020 | (begin |
| 1bbe0a63 AW |
14021 | (let ((#{l 4188}# |
| 14022 | (#{match-each 4046}# | |
| 14023 | #{e 4158}# | |
| 14024 | (vector-ref #{p 4159}# 1) | |
| 14025 | #{w 4160}# | |
| 14026 | #{mod 4162}#))) | |
| 14027 | (if #{l 4188}# | |
| e2ccab57 | 14028 | (letrec* |
| 1bbe0a63 AW |
14029 | ((#{collect 4193}# |
| 14030 | (lambda (#{l 4194}#) | |
| 14031 | (if (null? (car #{l 4194}#)) | |
| 14032 | #{r 4161}# | |
| 14033 | (cons (map car #{l 4194}#) | |
| 14034 | (#{collect 4193}# | |
| 14035 | (map cdr #{l 4194}#))))))) | |
| 14036 | (begin (#{collect 4193}# #{l 4188}#))) | |
| e2ccab57 | 14037 | #f)))) |
| 1bbe0a63 | 14038 | (if (eqv? #{atom-key 4185}# 'each+) |
| e2ccab57 AW |
14039 | (call-with-values |
| 14040 | (lambda () | |
| 1bbe0a63 AW |
14041 | (#{match-each+ 4048}# |
| 14042 | #{e 4158}# | |
| 14043 | (vector-ref #{p 4159}# 1) | |
| 14044 | (vector-ref #{p 4159}# 2) | |
| 14045 | (vector-ref #{p 4159}# 3) | |
| 14046 | #{w 4160}# | |
| 14047 | #{r 4161}# | |
| 14048 | #{mod 4162}#)) | |
| 14049 | (lambda (#{xr* 4196}# #{y-pat 4197}# #{r 4198}#) | |
| 14050 | (if #{r 4198}# | |
| 14051 | (if (null? #{y-pat 4197}#) | |
| 14052 | (if (null? #{xr* 4196}#) | |
| 14053 | (#{match-empty 4052}# | |
| 14054 | (vector-ref #{p 4159}# 1) | |
| 14055 | #{r 4198}#) | |
| 14056 | (#{combine 4054}# | |
| 14057 | #{xr* 4196}# | |
| 14058 | #{r 4198}#)) | |
| d8f699e8 | 14059 | #f) |
| e2ccab57 | 14060 | #f))) |
| 1bbe0a63 AW |
14061 | (if (eqv? #{atom-key 4185}# 'free-id) |
| 14062 | (if (#{id? 344}# #{e 4158}#) | |
| 14063 | (if (#{free-id=? 408}# | |
| 14064 | (#{wrap 418}# | |
| 14065 | #{e 4158}# | |
| 14066 | #{w 4160}# | |
| 14067 | #{mod 4162}#) | |
| 14068 | (vector-ref #{p 4159}# 1)) | |
| 14069 | #{r 4161}# | |
| e2ccab57 AW |
14070 | #f) |
| 14071 | #f) | |
| 1bbe0a63 | 14072 | (if (eqv? #{atom-key 4185}# 'atom) |
| e2ccab57 | 14073 | (if (equal? |
| 1bbe0a63 AW |
14074 | (vector-ref #{p 4159}# 1) |
| 14075 | (#{strip 458}# #{e 4158}# #{w 4160}#)) | |
| 14076 | #{r 4161}# | |
| e2ccab57 | 14077 | #f) |
| 1bbe0a63 AW |
14078 | (if (eqv? #{atom-key 4185}# 'vector) |
| 14079 | (if (vector? #{e 4158}#) | |
| 14080 | (#{match 4058}# | |
| 14081 | (vector->list #{e 4158}#) | |
| 14082 | (vector-ref #{p 4159}# 1) | |
| 14083 | #{w 4160}# | |
| 14084 | #{r 4161}# | |
| 14085 | #{mod 4162}#) | |
| e2ccab57 | 14086 | #f))))))))))))) |
| 1bbe0a63 AW |
14087 | (#{match 4058}# |
| 14088 | (lambda (#{e 4215}# | |
| 14089 | #{p 4216}# | |
| 14090 | #{w 4217}# | |
| 14091 | #{r 4218}# | |
| 14092 | #{mod 4219}#) | |
| 14093 | (if (not #{r 4218}#) | |
| e2ccab57 | 14094 | #f |
| 1bbe0a63 AW |
14095 | (if (eq? #{p 4216}# '_) |
| 14096 | #{r 4218}# | |
| 14097 | (if (eq? #{p 4216}# 'any) | |
| 14098 | (cons (#{wrap 418}# #{e 4215}# #{w 4217}# #{mod 4219}#) | |
| 14099 | #{r 4218}#) | |
| 14100 | (if (#{syntax-object? 307}# #{e 4215}#) | |
| 14101 | (#{match* 4056}# | |
| 14102 | (#{syntax-object-expression 309}# #{e 4215}#) | |
| 14103 | #{p 4216}# | |
| 14104 | (#{join-wraps 400}# | |
| 14105 | #{w 4217}# | |
| 14106 | (#{syntax-object-wrap 311}# #{e 4215}#)) | |
| 14107 | #{r 4218}# | |
| 14108 | (#{syntax-object-module 313}# #{e 4215}#)) | |
| 14109 | (#{match* 4056}# | |
| 14110 | #{e 4215}# | |
| 14111 | #{p 4216}# | |
| 14112 | #{w 4217}# | |
| 14113 | #{r 4218}# | |
| 14114 | #{mod 4219}#)))))))) | |
| e2ccab57 AW |
14115 | (begin |
| 14116 | (set! $sc-dispatch | |
| 1bbe0a63 AW |
14117 | (lambda (#{e 4234}# #{p 4235}#) |
| 14118 | (if (eq? #{p 4235}# 'any) | |
| 14119 | (list #{e 4234}#) | |
| 14120 | (if (eq? #{p 4235}# '_) | |
| e2ccab57 | 14121 | '() |
| 1bbe0a63 AW |
14122 | (if (#{syntax-object? 307}# #{e 4234}#) |
| 14123 | (#{match* 4056}# | |
| 14124 | (#{syntax-object-expression 309}# #{e 4234}#) | |
| 14125 | #{p 4235}# | |
| 14126 | (#{syntax-object-wrap 311}# #{e 4234}#) | |
| d8f699e8 | 14127 | '() |
| 1bbe0a63 AW |
14128 | (#{syntax-object-module 313}# #{e 4234}#)) |
| 14129 | (#{match* 4056}# | |
| 14130 | #{e 4234}# | |
| 14131 | #{p 4235}# | |
| e2ccab57 AW |
14132 | '(()) |
| 14133 | '() | |
| 14134 | #f))))))))))) | |
| 65dd9e38 AW |
14135 | |
| 14136 | (define with-syntax | |
| e809758a AW |
14137 | (make-syntax-transformer |
| 14138 | 'with-syntax | |
| 65dd9e38 | 14139 | 'macro |
| 1bbe0a63 AW |
14140 | (lambda (#{x 4246}#) |
| 14141 | (let ((#{tmp 4248}# #{x 4246}#)) | |
| 14142 | (let ((#{tmp 4249}# | |
| 417ee098 | 14143 | ($sc-dispatch |
| 1bbe0a63 | 14144 | #{tmp 4248}# |
| b78d91d5 | 14145 | '(_ () any . each-any)))) |
| 1bbe0a63 | 14146 | (if #{tmp 4249}# |
| 417ee098 | 14147 | (@apply |
| 1bbe0a63 | 14148 | (lambda (#{e1 4252}# #{e2 4253}#) |
| 417ee098 | 14149 | (cons '#(syntax-object |
| f929b9e5 | 14150 | let |
| 417ee098 AW |
14151 | ((top) |
| 14152 | #(ribcage | |
| b78d91d5 AW |
14153 | #(e1 e2) |
| 14154 | #((top) (top)) | |
| 1bbe0a63 | 14155 | #("i4250" "i4251")) |
| 417ee098 | 14156 | #(ribcage () () ()) |
| 1bbe0a63 | 14157 | #(ribcage #(x) #((top)) #("i4247"))) |
| 417ee098 | 14158 | (hygiene guile)) |
| 1bbe0a63 AW |
14159 | (cons '() (cons #{e1 4252}# #{e2 4253}#)))) |
| 14160 | #{tmp 4249}#) | |
| 14161 | (let ((#{tmp 4255}# | |
| f42d8bd8 | 14162 | ($sc-dispatch |
| 1bbe0a63 | 14163 | #{tmp 4248}# |
| b78d91d5 | 14164 | '(_ ((any any)) any . each-any)))) |
| 1bbe0a63 | 14165 | (if #{tmp 4255}# |
| 417ee098 | 14166 | (@apply |
| 1bbe0a63 AW |
14167 | (lambda (#{out 4260}# |
| 14168 | #{in 4261}# | |
| 14169 | #{e1 4262}# | |
| 14170 | #{e2 4263}#) | |
| 417ee098 AW |
14171 | (list '#(syntax-object |
| 14172 | syntax-case | |
| 14173 | ((top) | |
| 14174 | #(ribcage | |
| b78d91d5 AW |
14175 | #(out in e1 e2) |
| 14176 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14177 | #("i4256" "i4257" "i4258" "i4259")) |
| 417ee098 | 14178 | #(ribcage () () ()) |
| 1bbe0a63 | 14179 | #(ribcage #(x) #((top)) #("i4247"))) |
| 417ee098 | 14180 | (hygiene guile)) |
| 1bbe0a63 | 14181 | #{in 4261}# |
| 417ee098 | 14182 | '() |
| 1bbe0a63 | 14183 | (list #{out 4260}# |
| 417ee098 | 14184 | (cons '#(syntax-object |
| f929b9e5 | 14185 | let |
| 417ee098 AW |
14186 | ((top) |
| 14187 | #(ribcage | |
| b78d91d5 AW |
14188 | #(out in e1 e2) |
| 14189 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14190 | #("i4256" "i4257" "i4258" "i4259")) |
| 417ee098 | 14191 | #(ribcage () () ()) |
| 1bbe0a63 | 14192 | #(ribcage #(x) #((top)) #("i4247"))) |
| 417ee098 | 14193 | (hygiene guile)) |
| f929b9e5 | 14194 | (cons '() |
| 1bbe0a63 AW |
14195 | (cons #{e1 4262}# #{e2 4263}#)))))) |
| 14196 | #{tmp 4255}#) | |
| 14197 | (let ((#{tmp 4265}# | |
| 417ee098 | 14198 | ($sc-dispatch |
| 1bbe0a63 | 14199 | #{tmp 4248}# |
| b78d91d5 | 14200 | '(_ #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 14201 | (if #{tmp 4265}# |
| 417ee098 | 14202 | (@apply |
| 1bbe0a63 AW |
14203 | (lambda (#{out 4270}# |
| 14204 | #{in 4271}# | |
| 14205 | #{e1 4272}# | |
| 14206 | #{e2 4273}#) | |
| 417ee098 AW |
14207 | (list '#(syntax-object |
| 14208 | syntax-case | |
| 14209 | ((top) | |
| 14210 | #(ribcage | |
| b78d91d5 AW |
14211 | #(out in e1 e2) |
| 14212 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14213 | #("i4266" "i4267" "i4268" "i4269")) |
| 417ee098 | 14214 | #(ribcage () () ()) |
| 1bbe0a63 | 14215 | #(ribcage #(x) #((top)) #("i4247"))) |
| 417ee098 AW |
14216 | (hygiene guile)) |
| 14217 | (cons '#(syntax-object | |
| 14218 | list | |
| 14219 | ((top) | |
| 14220 | #(ribcage | |
| b78d91d5 AW |
14221 | #(out in e1 e2) |
| 14222 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14223 | #("i4266" "i4267" "i4268" "i4269")) |
| 417ee098 | 14224 | #(ribcage () () ()) |
| 1bbe0a63 | 14225 | #(ribcage #(x) #((top)) #("i4247"))) |
| 417ee098 | 14226 | (hygiene guile)) |
| 1bbe0a63 | 14227 | #{in 4271}#) |
| 417ee098 | 14228 | '() |
| 1bbe0a63 | 14229 | (list #{out 4270}# |
| 417ee098 | 14230 | (cons '#(syntax-object |
| f929b9e5 | 14231 | let |
| 417ee098 AW |
14232 | ((top) |
| 14233 | #(ribcage | |
| b78d91d5 AW |
14234 | #(out in e1 e2) |
| 14235 | #((top) (top) (top) (top)) | |
| 1bbe0a63 AW |
14236 | #("i4266" |
| 14237 | "i4267" | |
| 14238 | "i4268" | |
| 14239 | "i4269")) | |
| 417ee098 AW |
14240 | #(ribcage () () ()) |
| 14241 | #(ribcage | |
| 14242 | #(x) | |
| 14243 | #((top)) | |
| 1bbe0a63 | 14244 | #("i4247"))) |
| 417ee098 | 14245 | (hygiene guile)) |
| f929b9e5 | 14246 | (cons '() |
| 1bbe0a63 AW |
14247 | (cons #{e1 4272}# |
| 14248 | #{e2 4273}#)))))) | |
| 14249 | #{tmp 4265}#) | |
| 417ee098 AW |
14250 | (syntax-violation |
| 14251 | #f | |
| 14252 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 14253 | #{tmp 4248}#))))))))))) |
| 65dd9e38 AW |
14254 | |
| 14255 | (define syntax-rules | |
| e809758a AW |
14256 | (make-syntax-transformer |
| 14257 | 'syntax-rules | |
| 65dd9e38 | 14258 | 'macro |
| 1bbe0a63 AW |
14259 | (lambda (#{x 4277}#) |
| 14260 | (let ((#{tmp 4279}# #{x 4277}#)) | |
| 14261 | (let ((#{tmp 4280}# | |
| 417ee098 | 14262 | ($sc-dispatch |
| 1bbe0a63 | 14263 | #{tmp 4279}# |
| b78d91d5 | 14264 | '(_ each-any . #(each ((any . any) any)))))) |
| 1bbe0a63 | 14265 | (if #{tmp 4280}# |
| 417ee098 | 14266 | (@apply |
| 1bbe0a63 AW |
14267 | (lambda (#{k 4285}# |
| 14268 | #{keyword 4286}# | |
| 14269 | #{pattern 4287}# | |
| 14270 | #{template 4288}#) | |
| 417ee098 AW |
14271 | (list '#(syntax-object |
| 14272 | lambda | |
| 14273 | ((top) | |
| 14274 | #(ribcage | |
| b78d91d5 AW |
14275 | #(k keyword pattern template) |
| 14276 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14277 | #("i4281" "i4282" "i4283" "i4284")) |
| 417ee098 | 14278 | #(ribcage () () ()) |
| 1bbe0a63 | 14279 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 AW |
14280 | (hygiene guile)) |
| 14281 | '(#(syntax-object | |
| 14282 | x | |
| 14283 | ((top) | |
| 14284 | #(ribcage | |
| b78d91d5 AW |
14285 | #(k keyword pattern template) |
| 14286 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14287 | #("i4281" "i4282" "i4283" "i4284")) |
| 417ee098 | 14288 | #(ribcage () () ()) |
| 1bbe0a63 | 14289 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 AW |
14290 | (hygiene guile))) |
| 14291 | (vector | |
| 14292 | '(#(syntax-object | |
| 14293 | macro-type | |
| 14294 | ((top) | |
| 14295 | #(ribcage | |
| b78d91d5 AW |
14296 | #(k keyword pattern template) |
| 14297 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14298 | #("i4281" "i4282" "i4283" "i4284")) |
| 417ee098 | 14299 | #(ribcage () () ()) |
| 1bbe0a63 | 14300 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 AW |
14301 | (hygiene guile)) |
| 14302 | . | |
| 14303 | #(syntax-object | |
| 14304 | syntax-rules | |
| 14305 | ((top) | |
| 14306 | #(ribcage | |
| b78d91d5 AW |
14307 | #(k keyword pattern template) |
| 14308 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14309 | #("i4281" "i4282" "i4283" "i4284")) |
| 417ee098 | 14310 | #(ribcage () () ()) |
| 1bbe0a63 | 14311 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 AW |
14312 | (hygiene guile))) |
| 14313 | (cons '#(syntax-object | |
| 14314 | patterns | |
| f42d8bd8 AW |
14315 | ((top) |
| 14316 | #(ribcage | |
| b78d91d5 AW |
14317 | #(k keyword pattern template) |
| 14318 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14319 | #("i4281" "i4282" "i4283" "i4284")) |
| f42d8bd8 | 14320 | #(ribcage () () ()) |
| 1bbe0a63 | 14321 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 | 14322 | (hygiene guile)) |
| 1bbe0a63 | 14323 | #{pattern 4287}#)) |
| 417ee098 AW |
14324 | (cons '#(syntax-object |
| 14325 | syntax-case | |
| 14326 | ((top) | |
| 14327 | #(ribcage | |
| b78d91d5 AW |
14328 | #(k keyword pattern template) |
| 14329 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14330 | #("i4281" "i4282" "i4283" "i4284")) |
| 417ee098 | 14331 | #(ribcage () () ()) |
| 1bbe0a63 | 14332 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 AW |
14333 | (hygiene guile)) |
| 14334 | (cons '#(syntax-object | |
| 14335 | x | |
| 14336 | ((top) | |
| 14337 | #(ribcage | |
| b78d91d5 AW |
14338 | #(k keyword pattern template) |
| 14339 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14340 | #("i4281" "i4282" "i4283" "i4284")) |
| 417ee098 | 14341 | #(ribcage () () ()) |
| 1bbe0a63 | 14342 | #(ribcage #(x) #((top)) #("i4278"))) |
| 417ee098 | 14343 | (hygiene guile)) |
| 1bbe0a63 AW |
14344 | (cons #{k 4285}# |
| 14345 | (map (lambda (#{tmp 4292}# | |
| 14346 | #{tmp 4291}#) | |
| 417ee098 AW |
14347 | (list (cons '#(syntax-object |
| 14348 | dummy | |
| 14349 | ((top) | |
| 14350 | #(ribcage | |
| b78d91d5 | 14351 | #(k |
| 417ee098 AW |
14352 | keyword |
| 14353 | pattern | |
| 14354 | template) | |
| 14355 | #((top) | |
| 417ee098 AW |
14356 | (top) |
| 14357 | (top) | |
| 14358 | (top)) | |
| 1bbe0a63 AW |
14359 | #("i4281" |
| 14360 | "i4282" | |
| 14361 | "i4283" | |
| 14362 | "i4284")) | |
| 417ee098 AW |
14363 | #(ribcage |
| 14364 | () | |
| 14365 | () | |
| 14366 | ()) | |
| 14367 | #(ribcage | |
| 14368 | #(x) | |
| 14369 | #((top)) | |
| 1bbe0a63 | 14370 | #("i4278"))) |
| 417ee098 | 14371 | (hygiene guile)) |
| 1bbe0a63 | 14372 | #{tmp 4291}#) |
| 417ee098 AW |
14373 | (list '#(syntax-object |
| 14374 | syntax | |
| 14375 | ((top) | |
| 14376 | #(ribcage | |
| b78d91d5 | 14377 | #(k |
| 417ee098 AW |
14378 | keyword |
| 14379 | pattern | |
| 14380 | template) | |
| 14381 | #((top) | |
| 417ee098 AW |
14382 | (top) |
| 14383 | (top) | |
| 14384 | (top)) | |
| 1bbe0a63 AW |
14385 | #("i4281" |
| 14386 | "i4282" | |
| 14387 | "i4283" | |
| 14388 | "i4284")) | |
| 417ee098 AW |
14389 | #(ribcage |
| 14390 | () | |
| 14391 | () | |
| 14392 | ()) | |
| 14393 | #(ribcage | |
| 14394 | #(x) | |
| 14395 | #((top)) | |
| 1bbe0a63 | 14396 | #("i4278"))) |
| 417ee098 | 14397 | (hygiene guile)) |
| 1bbe0a63 AW |
14398 | #{tmp 4292}#))) |
| 14399 | #{template 4288}# | |
| 14400 | #{pattern 4287}#)))))) | |
| 14401 | #{tmp 4280}#) | |
| 14402 | (let ((#{tmp 4293}# | |
| d8e4f9e5 | 14403 | ($sc-dispatch |
| 1bbe0a63 | 14404 | #{tmp 4279}# |
| d8e4f9e5 | 14405 | '(_ each-any any . #(each ((any . any) any)))))) |
| 1bbe0a63 | 14406 | (if (if #{tmp 4293}# |
| d8e4f9e5 | 14407 | (@apply |
| 1bbe0a63 AW |
14408 | (lambda (#{k 4299}# |
| 14409 | #{docstring 4300}# | |
| 14410 | #{keyword 4301}# | |
| 14411 | #{pattern 4302}# | |
| 14412 | #{template 4303}#) | |
| 14413 | (string? (syntax->datum #{docstring 4300}#))) | |
| 14414 | #{tmp 4293}#) | |
| d8e4f9e5 AW |
14415 | #f) |
| 14416 | (@apply | |
| 1bbe0a63 AW |
14417 | (lambda (#{k 4309}# |
| 14418 | #{docstring 4310}# | |
| 14419 | #{keyword 4311}# | |
| 14420 | #{pattern 4312}# | |
| 14421 | #{template 4313}#) | |
| d8e4f9e5 AW |
14422 | (list '#(syntax-object |
| 14423 | lambda | |
| 14424 | ((top) | |
| 14425 | #(ribcage | |
| 14426 | #(k docstring keyword pattern template) | |
| 14427 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 | 14428 | #("i4304" "i4305" "i4306" "i4307" "i4308")) |
| d8e4f9e5 | 14429 | #(ribcage () () ()) |
| 1bbe0a63 | 14430 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 AW |
14431 | (hygiene guile)) |
| 14432 | '(#(syntax-object | |
| 14433 | x | |
| 14434 | ((top) | |
| 14435 | #(ribcage | |
| 14436 | #(k docstring keyword pattern template) | |
| 14437 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 | 14438 | #("i4304" "i4305" "i4306" "i4307" "i4308")) |
| d8e4f9e5 | 14439 | #(ribcage () () ()) |
| 1bbe0a63 | 14440 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 | 14441 | (hygiene guile))) |
| 1bbe0a63 | 14442 | #{docstring 4310}# |
| d8e4f9e5 AW |
14443 | (vector |
| 14444 | '(#(syntax-object | |
| 14445 | macro-type | |
| 14446 | ((top) | |
| 14447 | #(ribcage | |
| 14448 | #(k docstring keyword pattern template) | |
| 14449 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 | 14450 | #("i4304" "i4305" "i4306" "i4307" "i4308")) |
| d8e4f9e5 | 14451 | #(ribcage () () ()) |
| 1bbe0a63 | 14452 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 AW |
14453 | (hygiene guile)) |
| 14454 | . | |
| 14455 | #(syntax-object | |
| 14456 | syntax-rules | |
| 14457 | ((top) | |
| 14458 | #(ribcage | |
| 14459 | #(k docstring keyword pattern template) | |
| 14460 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 | 14461 | #("i4304" "i4305" "i4306" "i4307" "i4308")) |
| d8e4f9e5 | 14462 | #(ribcage () () ()) |
| 1bbe0a63 | 14463 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 AW |
14464 | (hygiene guile))) |
| 14465 | (cons '#(syntax-object | |
| 14466 | patterns | |
| 14467 | ((top) | |
| 14468 | #(ribcage | |
| 14469 | #(k docstring keyword pattern template) | |
| 14470 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
14471 | #("i4304" |
| 14472 | "i4305" | |
| 14473 | "i4306" | |
| 14474 | "i4307" | |
| 14475 | "i4308")) | |
| d8e4f9e5 | 14476 | #(ribcage () () ()) |
| 1bbe0a63 | 14477 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 | 14478 | (hygiene guile)) |
| 1bbe0a63 | 14479 | #{pattern 4312}#)) |
| d8e4f9e5 AW |
14480 | (cons '#(syntax-object |
| 14481 | syntax-case | |
| 14482 | ((top) | |
| 14483 | #(ribcage | |
| 14484 | #(k docstring keyword pattern template) | |
| 14485 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
14486 | #("i4304" |
| 14487 | "i4305" | |
| 14488 | "i4306" | |
| 14489 | "i4307" | |
| 14490 | "i4308")) | |
| d8e4f9e5 | 14491 | #(ribcage () () ()) |
| 1bbe0a63 | 14492 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 AW |
14493 | (hygiene guile)) |
| 14494 | (cons '#(syntax-object | |
| 14495 | x | |
| 14496 | ((top) | |
| 14497 | #(ribcage | |
| 14498 | #(k | |
| 14499 | docstring | |
| 14500 | keyword | |
| 14501 | pattern | |
| 14502 | template) | |
| 14503 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
14504 | #("i4304" |
| 14505 | "i4305" | |
| 14506 | "i4306" | |
| 14507 | "i4307" | |
| 14508 | "i4308")) | |
| d8e4f9e5 | 14509 | #(ribcage () () ()) |
| 1bbe0a63 | 14510 | #(ribcage #(x) #((top)) #("i4278"))) |
| d8e4f9e5 | 14511 | (hygiene guile)) |
| 1bbe0a63 AW |
14512 | (cons #{k 4309}# |
| 14513 | (map (lambda (#{tmp 4317}# | |
| 14514 | #{tmp 4316}#) | |
| d8e4f9e5 AW |
14515 | (list (cons '#(syntax-object |
| 14516 | dummy | |
| 14517 | ((top) | |
| 14518 | #(ribcage | |
| 14519 | #(k | |
| 14520 | docstring | |
| 14521 | keyword | |
| 14522 | pattern | |
| 14523 | template) | |
| 14524 | #((top) | |
| 14525 | (top) | |
| 14526 | (top) | |
| 14527 | (top) | |
| 14528 | (top)) | |
| 1bbe0a63 AW |
14529 | #("i4304" |
| 14530 | "i4305" | |
| 14531 | "i4306" | |
| 14532 | "i4307" | |
| 14533 | "i4308")) | |
| d8e4f9e5 AW |
14534 | #(ribcage |
| 14535 | () | |
| 14536 | () | |
| 14537 | ()) | |
| 14538 | #(ribcage | |
| 14539 | #(x) | |
| 14540 | #((top)) | |
| 1bbe0a63 | 14541 | #("i4278"))) |
| d8e4f9e5 AW |
14542 | (hygiene |
| 14543 | guile)) | |
| 1bbe0a63 | 14544 | #{tmp 4316}#) |
| d8e4f9e5 AW |
14545 | (list '#(syntax-object |
| 14546 | syntax | |
| 14547 | ((top) | |
| 14548 | #(ribcage | |
| 14549 | #(k | |
| 14550 | docstring | |
| 14551 | keyword | |
| 14552 | pattern | |
| 14553 | template) | |
| 14554 | #((top) | |
| 14555 | (top) | |
| 14556 | (top) | |
| 14557 | (top) | |
| 14558 | (top)) | |
| 1bbe0a63 AW |
14559 | #("i4304" |
| 14560 | "i4305" | |
| 14561 | "i4306" | |
| 14562 | "i4307" | |
| 14563 | "i4308")) | |
| d8e4f9e5 AW |
14564 | #(ribcage |
| 14565 | () | |
| 14566 | () | |
| 14567 | ()) | |
| 14568 | #(ribcage | |
| 14569 | #(x) | |
| 14570 | #((top)) | |
| 1bbe0a63 | 14571 | #("i4278"))) |
| d8e4f9e5 AW |
14572 | (hygiene |
| 14573 | guile)) | |
| 1bbe0a63 AW |
14574 | #{tmp 4317}#))) |
| 14575 | #{template 4313}# | |
| 14576 | #{pattern 4312}#)))))) | |
| 14577 | #{tmp 4293}#) | |
| d8e4f9e5 AW |
14578 | (syntax-violation |
| 14579 | #f | |
| 14580 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 14581 | #{tmp 4279}#))))))))) |
| 417ee098 | 14582 | |
| dea14eb9 | 14583 | (define define-syntax-rule |
| 417ee098 | 14584 | (make-syntax-transformer |
| dea14eb9 | 14585 | 'define-syntax-rule |
| 417ee098 | 14586 | 'macro |
| 1bbe0a63 AW |
14587 | (lambda (#{x 4318}#) |
| 14588 | (let ((#{tmp 4320}# #{x 4318}#)) | |
| 14589 | (let ((#{tmp 4321}# | |
| 14590 | ($sc-dispatch #{tmp 4320}# '(_ (any . any) any)))) | |
| 14591 | (if #{tmp 4321}# | |
| dea14eb9 | 14592 | (@apply |
| 1bbe0a63 AW |
14593 | (lambda (#{name 4325}# |
| 14594 | #{pattern 4326}# | |
| 14595 | #{template 4327}#) | |
| dea14eb9 AW |
14596 | (list '#(syntax-object |
| 14597 | define-syntax | |
| 14598 | ((top) | |
| 14599 | #(ribcage | |
| 14600 | #(name pattern template) | |
| 14601 | #((top) (top) (top)) | |
| 1bbe0a63 | 14602 | #("i4322" "i4323" "i4324")) |
| dea14eb9 | 14603 | #(ribcage () () ()) |
| 1bbe0a63 | 14604 | #(ribcage #(x) #((top)) #("i4319"))) |
| dea14eb9 | 14605 | (hygiene guile)) |
| 1bbe0a63 | 14606 | #{name 4325}# |
| dea14eb9 AW |
14607 | (list '#(syntax-object |
| 14608 | syntax-rules | |
| 14609 | ((top) | |
| 14610 | #(ribcage | |
| 14611 | #(name pattern template) | |
| 14612 | #((top) (top) (top)) | |
| 1bbe0a63 | 14613 | #("i4322" "i4323" "i4324")) |
| dea14eb9 | 14614 | #(ribcage () () ()) |
| 1bbe0a63 | 14615 | #(ribcage #(x) #((top)) #("i4319"))) |
| dea14eb9 AW |
14616 | (hygiene guile)) |
| 14617 | '() | |
| 14618 | (list (cons '#(syntax-object | |
| 14619 | _ | |
| 14620 | ((top) | |
| 14621 | #(ribcage | |
| 14622 | #(name pattern template) | |
| 14623 | #((top) (top) (top)) | |
| 1bbe0a63 | 14624 | #("i4322" "i4323" "i4324")) |
| dea14eb9 AW |
14625 | #(ribcage () () ()) |
| 14626 | #(ribcage | |
| 14627 | #(x) | |
| 14628 | #((top)) | |
| 1bbe0a63 | 14629 | #("i4319"))) |
| dea14eb9 | 14630 | (hygiene guile)) |
| 1bbe0a63 AW |
14631 | #{pattern 4326}#) |
| 14632 | #{template 4327}#)))) | |
| 14633 | #{tmp 4321}#) | |
| 14634 | (let ((#{tmp 4328}# | |
| dea14eb9 | 14635 | ($sc-dispatch |
| 1bbe0a63 | 14636 | #{tmp 4320}# |
| dea14eb9 | 14637 | '(_ (any . any) any any)))) |
| 1bbe0a63 | 14638 | (if (if #{tmp 4328}# |
| dea14eb9 | 14639 | (@apply |
| 1bbe0a63 AW |
14640 | (lambda (#{name 4333}# |
| 14641 | #{pattern 4334}# | |
| 14642 | #{docstring 4335}# | |
| 14643 | #{template 4336}#) | |
| 14644 | (string? (syntax->datum #{docstring 4335}#))) | |
| 14645 | #{tmp 4328}#) | |
| dea14eb9 AW |
14646 | #f) |
| 14647 | (@apply | |
| 1bbe0a63 AW |
14648 | (lambda (#{name 4341}# |
| 14649 | #{pattern 4342}# | |
| 14650 | #{docstring 4343}# | |
| 14651 | #{template 4344}#) | |
| dea14eb9 AW |
14652 | (list '#(syntax-object |
| 14653 | define-syntax | |
| 14654 | ((top) | |
| 14655 | #(ribcage | |
| 14656 | #(name pattern docstring template) | |
| 14657 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14658 | #("i4337" "i4338" "i4339" "i4340")) |
| dea14eb9 | 14659 | #(ribcage () () ()) |
| 1bbe0a63 | 14660 | #(ribcage #(x) #((top)) #("i4319"))) |
| dea14eb9 | 14661 | (hygiene guile)) |
| 1bbe0a63 | 14662 | #{name 4341}# |
| dea14eb9 AW |
14663 | (list '#(syntax-object |
| 14664 | syntax-rules | |
| 14665 | ((top) | |
| 14666 | #(ribcage | |
| 14667 | #(name pattern docstring template) | |
| 14668 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 14669 | #("i4337" "i4338" "i4339" "i4340")) |
| dea14eb9 | 14670 | #(ribcage () () ()) |
| 1bbe0a63 | 14671 | #(ribcage #(x) #((top)) #("i4319"))) |
| dea14eb9 AW |
14672 | (hygiene guile)) |
| 14673 | '() | |
| 1bbe0a63 | 14674 | #{docstring 4343}# |
| dea14eb9 AW |
14675 | (list (cons '#(syntax-object |
| 14676 | _ | |
| 14677 | ((top) | |
| 14678 | #(ribcage | |
| 14679 | #(name | |
| 14680 | pattern | |
| 14681 | docstring | |
| 14682 | template) | |
| 14683 | #((top) (top) (top) (top)) | |
| 1bbe0a63 AW |
14684 | #("i4337" |
| 14685 | "i4338" | |
| 14686 | "i4339" | |
| 14687 | "i4340")) | |
| dea14eb9 AW |
14688 | #(ribcage () () ()) |
| 14689 | #(ribcage | |
| 14690 | #(x) | |
| 14691 | #((top)) | |
| 1bbe0a63 | 14692 | #("i4319"))) |
| dea14eb9 | 14693 | (hygiene guile)) |
| 1bbe0a63 AW |
14694 | #{pattern 4342}#) |
| 14695 | #{template 4344}#)))) | |
| 14696 | #{tmp 4328}#) | |
| dea14eb9 AW |
14697 | (syntax-violation |
| 14698 | #f | |
| 14699 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 14700 | #{tmp 4320}#))))))))) |
| dea14eb9 AW |
14701 | |
| 14702 | (define let* | |
| 14703 | (make-syntax-transformer | |
| 14704 | 'let* | |
| 14705 | 'macro | |
| 1bbe0a63 AW |
14706 | (lambda (#{x 4345}#) |
| 14707 | (let ((#{tmp 4347}# #{x 4345}#)) | |
| 14708 | (let ((#{tmp 4348}# | |
| 417ee098 | 14709 | ($sc-dispatch |
| 1bbe0a63 | 14710 | #{tmp 4347}# |
| 417ee098 | 14711 | '(any #(each (any any)) any . each-any)))) |
| 1bbe0a63 | 14712 | (if (if #{tmp 4348}# |
| 417ee098 | 14713 | (@apply |
| 1bbe0a63 AW |
14714 | (lambda (#{let* 4354}# |
| 14715 | #{x 4355}# | |
| 14716 | #{v 4356}# | |
| 14717 | #{e1 4357}# | |
| 14718 | #{e2 4358}#) | |
| 14719 | (and-map identifier? #{x 4355}#)) | |
| 14720 | #{tmp 4348}#) | |
| 417ee098 AW |
14721 | #f) |
| 14722 | (@apply | |
| 1bbe0a63 AW |
14723 | (lambda (#{let* 4365}# |
| 14724 | #{x 4366}# | |
| 14725 | #{v 4367}# | |
| 14726 | #{e1 4368}# | |
| 14727 | #{e2 4369}#) | |
| 417ee098 | 14728 | (letrec* |
| 1bbe0a63 AW |
14729 | ((#{f 4372}# |
| 14730 | (lambda (#{bindings 4373}#) | |
| 14731 | (if (null? #{bindings 4373}#) | |
| 417ee098 AW |
14732 | (cons '#(syntax-object |
| 14733 | let | |
| 14734 | ((top) | |
| 14735 | #(ribcage () () ()) | |
| 14736 | #(ribcage | |
| 14737 | #(f bindings) | |
| 14738 | #((top) (top)) | |
| 1bbe0a63 | 14739 | #("i4370" "i4371")) |
| 417ee098 AW |
14740 | #(ribcage |
| 14741 | #(let* x v e1 e2) | |
| 14742 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
14743 | #("i4360" |
| 14744 | "i4361" | |
| 14745 | "i4362" | |
| 14746 | "i4363" | |
| 14747 | "i4364")) | |
| 417ee098 | 14748 | #(ribcage () () ()) |
| 1bbe0a63 | 14749 | #(ribcage #(x) #((top)) #("i4346"))) |
| 417ee098 | 14750 | (hygiene guile)) |
| 1bbe0a63 AW |
14751 | (cons '() (cons #{e1 4368}# #{e2 4369}#))) |
| 14752 | (let ((#{tmp 4378}# | |
| 14753 | (list (#{f 4372}# (cdr #{bindings 4373}#)) | |
| 14754 | (car #{bindings 4373}#)))) | |
| 14755 | (let ((#{tmp 4379}# | |
| 14756 | ($sc-dispatch #{tmp 4378}# '(any any)))) | |
| 14757 | (if #{tmp 4379}# | |
| 417ee098 | 14758 | (@apply |
| 1bbe0a63 | 14759 | (lambda (#{body 4382}# #{binding 4383}#) |
| 417ee098 AW |
14760 | (list '#(syntax-object |
| 14761 | let | |
| 65dd9e38 | 14762 | ((top) |
| f929b9e5 | 14763 | #(ribcage () () ()) |
| 65dd9e38 | 14764 | #(ribcage |
| 417ee098 AW |
14765 | #(body binding) |
| 14766 | #((top) (top)) | |
| 1bbe0a63 | 14767 | #("i4380" "i4381")) |
| 417ee098 AW |
14768 | #(ribcage () () ()) |
| 14769 | #(ribcage | |
| 14770 | #(f bindings) | |
| 14771 | #((top) (top)) | |
| 1bbe0a63 | 14772 | #("i4370" "i4371")) |
| 417ee098 AW |
14773 | #(ribcage |
| 14774 | #(let* x v e1 e2) | |
| 65dd9e38 | 14775 | #((top) (top) (top) (top) (top)) |
| 1bbe0a63 AW |
14776 | #("i4360" |
| 14777 | "i4361" | |
| 14778 | "i4362" | |
| 14779 | "i4363" | |
| 14780 | "i4364")) | |
| 65dd9e38 | 14781 | #(ribcage () () ()) |
| f6a8e791 AW |
14782 | #(ribcage |
| 14783 | #(x) | |
| 14784 | #((top)) | |
| 1bbe0a63 | 14785 | #("i4346"))) |
| 65dd9e38 | 14786 | (hygiene guile)) |
| 1bbe0a63 AW |
14787 | (list #{binding 4383}#) |
| 14788 | #{body 4382}#)) | |
| 14789 | #{tmp 4379}#) | |
| 417ee098 AW |
14790 | (syntax-violation |
| 14791 | #f | |
| 14792 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 14793 | #{tmp 4378}#)))))))) |
| 417ee098 | 14794 | (begin |
| 1bbe0a63 AW |
14795 | (#{f 4372}# (map list #{x 4366}# #{v 4367}#))))) |
| 14796 | #{tmp 4348}#) | |
| 417ee098 AW |
14797 | (syntax-violation |
| 14798 | #f | |
| 14799 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 14800 | #{tmp 4347}#))))))) |
| 65dd9e38 AW |
14801 | |
| 14802 | (define do | |
| e809758a AW |
14803 | (make-syntax-transformer |
| 14804 | 'do | |
| 65dd9e38 | 14805 | 'macro |
| 1bbe0a63 AW |
14806 | (lambda (#{orig-x 4384}#) |
| 14807 | (let ((#{tmp 4386}# #{orig-x 4384}#)) | |
| 14808 | (let ((#{tmp 4387}# | |
| 417ee098 | 14809 | ($sc-dispatch |
| 1bbe0a63 | 14810 | #{tmp 4386}# |
| b78d91d5 AW |
14811 | '(_ #(each (any any . any)) |
| 14812 | (any . each-any) | |
| 14813 | . | |
| 14814 | each-any)))) | |
| 1bbe0a63 | 14815 | (if #{tmp 4387}# |
| 417ee098 | 14816 | (@apply |
| 1bbe0a63 AW |
14817 | (lambda (#{var 4394}# |
| 14818 | #{init 4395}# | |
| 14819 | #{step 4396}# | |
| 14820 | #{e0 4397}# | |
| 14821 | #{e1 4398}# | |
| 14822 | #{c 4399}#) | |
| 14823 | (let ((#{tmp 4401}# | |
| 14824 | (map (lambda (#{v 4422}# #{s 4423}#) | |
| 14825 | (let ((#{tmp 4426}# #{s 4423}#)) | |
| 14826 | (let ((#{tmp 4427}# | |
| 14827 | ($sc-dispatch #{tmp 4426}# '()))) | |
| 14828 | (if #{tmp 4427}# | |
| 417ee098 | 14829 | (@apply |
| 1bbe0a63 AW |
14830 | (lambda () #{v 4422}#) |
| 14831 | #{tmp 4427}#) | |
| 14832 | (let ((#{tmp 4428}# | |
| 417ee098 | 14833 | ($sc-dispatch |
| 1bbe0a63 | 14834 | #{tmp 4426}# |
| 417ee098 | 14835 | '(any)))) |
| 1bbe0a63 | 14836 | (if #{tmp 4428}# |
| 417ee098 | 14837 | (@apply |
| 1bbe0a63 AW |
14838 | (lambda (#{e 4430}#) #{e 4430}#) |
| 14839 | #{tmp 4428}#) | |
| 14840 | (let ((#{_ 4432}# #{tmp 4426}#)) | |
| 417ee098 AW |
14841 | (syntax-violation |
| 14842 | 'do | |
| 14843 | "bad step expression" | |
| 1bbe0a63 AW |
14844 | #{orig-x 4384}# |
| 14845 | #{s 4423}#)))))))) | |
| 14846 | #{var 4394}# | |
| 14847 | #{step 4396}#))) | |
| 14848 | (let ((#{tmp 4402}# | |
| 14849 | ($sc-dispatch #{tmp 4401}# 'each-any))) | |
| 14850 | (if #{tmp 4402}# | |
| 417ee098 | 14851 | (@apply |
| 1bbe0a63 AW |
14852 | (lambda (#{step 4404}#) |
| 14853 | (let ((#{tmp 4405}# #{e1 4398}#)) | |
| 14854 | (let ((#{tmp 4406}# | |
| 14855 | ($sc-dispatch #{tmp 4405}# '()))) | |
| 14856 | (if #{tmp 4406}# | |
| 417ee098 AW |
14857 | (@apply |
| 14858 | (lambda () | |
| 14859 | (list '#(syntax-object | |
| 14860 | let | |
| 14861 | ((top) | |
| f929b9e5 | 14862 | #(ribcage () () ()) |
| 417ee098 AW |
14863 | #(ribcage |
| 14864 | #(step) | |
| 14865 | #((top)) | |
| 1bbe0a63 | 14866 | #("i4403")) |
| 417ee098 | 14867 | #(ribcage |
| b78d91d5 | 14868 | #(var init step e0 e1 c) |
| 417ee098 AW |
14869 | #((top) |
| 14870 | (top) | |
| 14871 | (top) | |
| 14872 | (top) | |
| 14873 | (top) | |
| 417ee098 | 14874 | (top)) |
| 1bbe0a63 AW |
14875 | #("i4388" |
| 14876 | "i4389" | |
| 14877 | "i4390" | |
| 14878 | "i4391" | |
| 14879 | "i4392" | |
| 14880 | "i4393")) | |
| 417ee098 AW |
14881 | #(ribcage () () ()) |
| 14882 | #(ribcage | |
| 14883 | #(orig-x) | |
| 14884 | #((top)) | |
| 1bbe0a63 | 14885 | #("i4385"))) |
| 417ee098 AW |
14886 | (hygiene guile)) |
| 14887 | '#(syntax-object | |
| 14888 | doloop | |
| 14889 | ((top) | |
| f929b9e5 | 14890 | #(ribcage () () ()) |
| 417ee098 AW |
14891 | #(ribcage |
| 14892 | #(step) | |
| 14893 | #((top)) | |
| 1bbe0a63 | 14894 | #("i4403")) |
| 417ee098 | 14895 | #(ribcage |
| b78d91d5 | 14896 | #(var init step e0 e1 c) |
| 417ee098 AW |
14897 | #((top) |
| 14898 | (top) | |
| 14899 | (top) | |
| 14900 | (top) | |
| 14901 | (top) | |
| 417ee098 | 14902 | (top)) |
| 1bbe0a63 AW |
14903 | #("i4388" |
| 14904 | "i4389" | |
| 14905 | "i4390" | |
| 14906 | "i4391" | |
| 14907 | "i4392" | |
| 14908 | "i4393")) | |
| 417ee098 AW |
14909 | #(ribcage () () ()) |
| 14910 | #(ribcage | |
| 14911 | #(orig-x) | |
| 14912 | #((top)) | |
| 1bbe0a63 | 14913 | #("i4385"))) |
| 417ee098 | 14914 | (hygiene guile)) |
| 1bbe0a63 | 14915 | (map list #{var 4394}# #{init 4395}#) |
| 417ee098 AW |
14916 | (list '#(syntax-object |
| 14917 | if | |
| 14918 | ((top) | |
| f929b9e5 | 14919 | #(ribcage () () ()) |
| 417ee098 AW |
14920 | #(ribcage |
| 14921 | #(step) | |
| 14922 | #((top)) | |
| 1bbe0a63 | 14923 | #("i4403")) |
| 417ee098 | 14924 | #(ribcage |
| b78d91d5 | 14925 | #(var init step e0 e1 c) |
| 417ee098 AW |
14926 | #((top) |
| 14927 | (top) | |
| 14928 | (top) | |
| 14929 | (top) | |
| 14930 | (top) | |
| 417ee098 | 14931 | (top)) |
| 1bbe0a63 AW |
14932 | #("i4388" |
| 14933 | "i4389" | |
| 14934 | "i4390" | |
| 14935 | "i4391" | |
| 14936 | "i4392" | |
| 14937 | "i4393")) | |
| 417ee098 AW |
14938 | #(ribcage () () ()) |
| 14939 | #(ribcage | |
| 14940 | #(orig-x) | |
| 14941 | #((top)) | |
| 1bbe0a63 | 14942 | #("i4385"))) |
| 417ee098 AW |
14943 | (hygiene guile)) |
| 14944 | (list '#(syntax-object | |
| 14945 | not | |
| 14946 | ((top) | |
| f929b9e5 | 14947 | #(ribcage () () ()) |
| 417ee098 AW |
14948 | #(ribcage |
| 14949 | #(step) | |
| 14950 | #((top)) | |
| 1bbe0a63 | 14951 | #("i4403")) |
| 417ee098 | 14952 | #(ribcage |
| b78d91d5 | 14953 | #(var |
| 417ee098 AW |
14954 | init |
| 14955 | step | |
| 14956 | e0 | |
| 14957 | e1 | |
| 14958 | c) | |
| 14959 | #((top) | |
| 14960 | (top) | |
| 14961 | (top) | |
| 14962 | (top) | |
| 14963 | (top) | |
| 417ee098 | 14964 | (top)) |
| 1bbe0a63 AW |
14965 | #("i4388" |
| 14966 | "i4389" | |
| 14967 | "i4390" | |
| 14968 | "i4391" | |
| 14969 | "i4392" | |
| 14970 | "i4393")) | |
| 417ee098 AW |
14971 | #(ribcage () () ()) |
| 14972 | #(ribcage | |
| 14973 | #(orig-x) | |
| 14974 | #((top)) | |
| 1bbe0a63 | 14975 | #("i4385"))) |
| 417ee098 | 14976 | (hygiene guile)) |
| 1bbe0a63 | 14977 | #{e0 4397}#) |
| 417ee098 AW |
14978 | (cons '#(syntax-object |
| 14979 | begin | |
| 14980 | ((top) | |
| f929b9e5 | 14981 | #(ribcage () () ()) |
| 417ee098 AW |
14982 | #(ribcage |
| 14983 | #(step) | |
| 14984 | #((top)) | |
| 1bbe0a63 | 14985 | #("i4403")) |
| 417ee098 | 14986 | #(ribcage |
| b78d91d5 | 14987 | #(var |
| 417ee098 AW |
14988 | init |
| 14989 | step | |
| 14990 | e0 | |
| 14991 | e1 | |
| 14992 | c) | |
| 14993 | #((top) | |
| 14994 | (top) | |
| 14995 | (top) | |
| 14996 | (top) | |
| 14997 | (top) | |
| 417ee098 | 14998 | (top)) |
| 1bbe0a63 AW |
14999 | #("i4388" |
| 15000 | "i4389" | |
| 15001 | "i4390" | |
| 15002 | "i4391" | |
| 15003 | "i4392" | |
| 15004 | "i4393")) | |
| 417ee098 AW |
15005 | #(ribcage () () ()) |
| 15006 | #(ribcage | |
| 15007 | #(orig-x) | |
| 15008 | #((top)) | |
| 1bbe0a63 | 15009 | #("i4385"))) |
| 417ee098 AW |
15010 | (hygiene guile)) |
| 15011 | (append | |
| 1bbe0a63 | 15012 | #{c 4399}# |
| 417ee098 | 15013 | (list (cons '#(syntax-object |
| f42d8bd8 AW |
15014 | doloop |
| 15015 | ((top) | |
| f929b9e5 AW |
15016 | #(ribcage |
| 15017 | () | |
| 15018 | () | |
| 15019 | ()) | |
| f42d8bd8 AW |
15020 | #(ribcage |
| 15021 | #(step) | |
| 15022 | #((top)) | |
| 1bbe0a63 | 15023 | #("i4403")) |
| f42d8bd8 | 15024 | #(ribcage |
| b78d91d5 | 15025 | #(var |
| f42d8bd8 AW |
15026 | init |
| 15027 | step | |
| 15028 | e0 | |
| 15029 | e1 | |
| 15030 | c) | |
| 15031 | #((top) | |
| 15032 | (top) | |
| 15033 | (top) | |
| 15034 | (top) | |
| 15035 | (top) | |
| f42d8bd8 | 15036 | (top)) |
| 1bbe0a63 AW |
15037 | #("i4388" |
| 15038 | "i4389" | |
| 15039 | "i4390" | |
| 15040 | "i4391" | |
| 15041 | "i4392" | |
| 15042 | "i4393")) | |
| f42d8bd8 AW |
15043 | #(ribcage |
| 15044 | () | |
| 15045 | () | |
| 15046 | ()) | |
| 15047 | #(ribcage | |
| 15048 | #(orig-x) | |
| 15049 | #((top)) | |
| 1bbe0a63 | 15050 | #("i4385"))) |
| f42d8bd8 AW |
15051 | (hygiene |
| 15052 | guile)) | |
| 1bbe0a63 AW |
15053 | #{step 4404}#))))))) |
| 15054 | #{tmp 4406}#) | |
| 15055 | (let ((#{tmp 4411}# | |
| f42d8bd8 | 15056 | ($sc-dispatch |
| 1bbe0a63 | 15057 | #{tmp 4405}# |
| 417ee098 | 15058 | '(any . each-any)))) |
| 1bbe0a63 | 15059 | (if #{tmp 4411}# |
| 417ee098 | 15060 | (@apply |
| 1bbe0a63 | 15061 | (lambda (#{e1 4414}# #{e2 4415}#) |
| 417ee098 AW |
15062 | (list '#(syntax-object |
| 15063 | let | |
| 15064 | ((top) | |
| 15065 | #(ribcage | |
| 15066 | #(e1 e2) | |
| 15067 | #((top) (top)) | |
| 1bbe0a63 | 15068 | #("i4412" "i4413")) |
| f929b9e5 | 15069 | #(ribcage () () ()) |
| 417ee098 AW |
15070 | #(ribcage |
| 15071 | #(step) | |
| 15072 | #((top)) | |
| 1bbe0a63 | 15073 | #("i4403")) |
| 417ee098 | 15074 | #(ribcage |
| b78d91d5 | 15075 | #(var init step e0 e1 c) |
| 417ee098 AW |
15076 | #((top) |
| 15077 | (top) | |
| 15078 | (top) | |
| 15079 | (top) | |
| 15080 | (top) | |
| 417ee098 | 15081 | (top)) |
| 1bbe0a63 AW |
15082 | #("i4388" |
| 15083 | "i4389" | |
| 15084 | "i4390" | |
| 15085 | "i4391" | |
| 15086 | "i4392" | |
| 15087 | "i4393")) | |
| 417ee098 AW |
15088 | #(ribcage () () ()) |
| 15089 | #(ribcage | |
| 15090 | #(orig-x) | |
| 15091 | #((top)) | |
| 1bbe0a63 | 15092 | #("i4385"))) |
| 417ee098 AW |
15093 | (hygiene guile)) |
| 15094 | '#(syntax-object | |
| 15095 | doloop | |
| 15096 | ((top) | |
| 15097 | #(ribcage | |
| 15098 | #(e1 e2) | |
| 15099 | #((top) (top)) | |
| 1bbe0a63 | 15100 | #("i4412" "i4413")) |
| f929b9e5 | 15101 | #(ribcage () () ()) |
| 417ee098 AW |
15102 | #(ribcage |
| 15103 | #(step) | |
| 15104 | #((top)) | |
| 1bbe0a63 | 15105 | #("i4403")) |
| 417ee098 | 15106 | #(ribcage |
| b78d91d5 | 15107 | #(var init step e0 e1 c) |
| 417ee098 AW |
15108 | #((top) |
| 15109 | (top) | |
| 15110 | (top) | |
| 15111 | (top) | |
| 15112 | (top) | |
| 417ee098 | 15113 | (top)) |
| 1bbe0a63 AW |
15114 | #("i4388" |
| 15115 | "i4389" | |
| 15116 | "i4390" | |
| 15117 | "i4391" | |
| 15118 | "i4392" | |
| 15119 | "i4393")) | |
| 417ee098 AW |
15120 | #(ribcage () () ()) |
| 15121 | #(ribcage | |
| 15122 | #(orig-x) | |
| 15123 | #((top)) | |
| 1bbe0a63 | 15124 | #("i4385"))) |
| 417ee098 AW |
15125 | (hygiene guile)) |
| 15126 | (map list | |
| 1bbe0a63 AW |
15127 | #{var 4394}# |
| 15128 | #{init 4395}#) | |
| 417ee098 AW |
15129 | (list '#(syntax-object |
| 15130 | if | |
| 15131 | ((top) | |
| 15132 | #(ribcage | |
| 15133 | #(e1 e2) | |
| 15134 | #((top) (top)) | |
| 1bbe0a63 | 15135 | #("i4412" "i4413")) |
| f929b9e5 | 15136 | #(ribcage () () ()) |
| 417ee098 AW |
15137 | #(ribcage |
| 15138 | #(step) | |
| 15139 | #((top)) | |
| 1bbe0a63 | 15140 | #("i4403")) |
| 417ee098 | 15141 | #(ribcage |
| b78d91d5 | 15142 | #(var |
| 417ee098 AW |
15143 | init |
| 15144 | step | |
| 15145 | e0 | |
| 15146 | e1 | |
| 15147 | c) | |
| 15148 | #((top) | |
| 15149 | (top) | |
| 15150 | (top) | |
| 15151 | (top) | |
| 15152 | (top) | |
| 417ee098 | 15153 | (top)) |
| 1bbe0a63 AW |
15154 | #("i4388" |
| 15155 | "i4389" | |
| 15156 | "i4390" | |
| 15157 | "i4391" | |
| 15158 | "i4392" | |
| 15159 | "i4393")) | |
| 417ee098 AW |
15160 | #(ribcage () () ()) |
| 15161 | #(ribcage | |
| 15162 | #(orig-x) | |
| 15163 | #((top)) | |
| 1bbe0a63 | 15164 | #("i4385"))) |
| 417ee098 | 15165 | (hygiene guile)) |
| 1bbe0a63 | 15166 | #{e0 4397}# |
| 417ee098 AW |
15167 | (cons '#(syntax-object |
| 15168 | begin | |
| 15169 | ((top) | |
| 15170 | #(ribcage | |
| 15171 | #(e1 e2) | |
| 15172 | #((top) (top)) | |
| 1bbe0a63 AW |
15173 | #("i4412" |
| 15174 | "i4413")) | |
| f929b9e5 AW |
15175 | #(ribcage |
| 15176 | () | |
| 15177 | () | |
| 15178 | ()) | |
| 417ee098 AW |
15179 | #(ribcage |
| 15180 | #(step) | |
| 15181 | #((top)) | |
| 1bbe0a63 | 15182 | #("i4403")) |
| 417ee098 | 15183 | #(ribcage |
| b78d91d5 | 15184 | #(var |
| 417ee098 AW |
15185 | init |
| 15186 | step | |
| 15187 | e0 | |
| 15188 | e1 | |
| 15189 | c) | |
| 15190 | #((top) | |
| 15191 | (top) | |
| 15192 | (top) | |
| 15193 | (top) | |
| 15194 | (top) | |
| 417ee098 | 15195 | (top)) |
| 1bbe0a63 AW |
15196 | #("i4388" |
| 15197 | "i4389" | |
| 15198 | "i4390" | |
| 15199 | "i4391" | |
| 15200 | "i4392" | |
| 15201 | "i4393")) | |
| 417ee098 AW |
15202 | #(ribcage |
| 15203 | () | |
| 15204 | () | |
| 15205 | ()) | |
| 15206 | #(ribcage | |
| 15207 | #(orig-x) | |
| 15208 | #((top)) | |
| 1bbe0a63 | 15209 | #("i4385"))) |
| 417ee098 | 15210 | (hygiene guile)) |
| 1bbe0a63 AW |
15211 | (cons #{e1 4414}# |
| 15212 | #{e2 4415}#)) | |
| 417ee098 AW |
15213 | (cons '#(syntax-object |
| 15214 | begin | |
| 15215 | ((top) | |
| 15216 | #(ribcage | |
| 15217 | #(e1 e2) | |
| 15218 | #((top) (top)) | |
| 1bbe0a63 AW |
15219 | #("i4412" |
| 15220 | "i4413")) | |
| f929b9e5 AW |
15221 | #(ribcage |
| 15222 | () | |
| 15223 | () | |
| 15224 | ()) | |
| 417ee098 AW |
15225 | #(ribcage |
| 15226 | #(step) | |
| 15227 | #((top)) | |
| 1bbe0a63 | 15228 | #("i4403")) |
| 417ee098 | 15229 | #(ribcage |
| b78d91d5 | 15230 | #(var |
| 417ee098 AW |
15231 | init |
| 15232 | step | |
| 15233 | e0 | |
| 15234 | e1 | |
| 15235 | c) | |
| 15236 | #((top) | |
| 15237 | (top) | |
| 15238 | (top) | |
| 15239 | (top) | |
| 15240 | (top) | |
| 417ee098 | 15241 | (top)) |
| 1bbe0a63 AW |
15242 | #("i4388" |
| 15243 | "i4389" | |
| 15244 | "i4390" | |
| 15245 | "i4391" | |
| 15246 | "i4392" | |
| 15247 | "i4393")) | |
| 417ee098 AW |
15248 | #(ribcage |
| 15249 | () | |
| 15250 | () | |
| 15251 | ()) | |
| 15252 | #(ribcage | |
| 15253 | #(orig-x) | |
| 15254 | #((top)) | |
| 1bbe0a63 | 15255 | #("i4385"))) |
| 417ee098 AW |
15256 | (hygiene guile)) |
| 15257 | (append | |
| 1bbe0a63 | 15258 | #{c 4399}# |
| 417ee098 AW |
15259 | (list (cons '#(syntax-object |
| 15260 | doloop | |
| 15261 | ((top) | |
| 15262 | #(ribcage | |
| 15263 | #(e1 | |
| 15264 | e2) | |
| 15265 | #((top) | |
| 15266 | (top)) | |
| 1bbe0a63 AW |
15267 | #("i4412" |
| 15268 | "i4413")) | |
| f929b9e5 AW |
15269 | #(ribcage |
| 15270 | () | |
| 15271 | () | |
| 15272 | ()) | |
| 417ee098 AW |
15273 | #(ribcage |
| 15274 | #(step) | |
| 15275 | #((top)) | |
| 1bbe0a63 | 15276 | #("i4403")) |
| 417ee098 | 15277 | #(ribcage |
| b78d91d5 | 15278 | #(var |
| 417ee098 AW |
15279 | init |
| 15280 | step | |
| 15281 | e0 | |
| 15282 | e1 | |
| 15283 | c) | |
| 15284 | #((top) | |
| 15285 | (top) | |
| 15286 | (top) | |
| 15287 | (top) | |
| 15288 | (top) | |
| 417ee098 | 15289 | (top)) |
| 1bbe0a63 AW |
15290 | #("i4388" |
| 15291 | "i4389" | |
| 15292 | "i4390" | |
| 15293 | "i4391" | |
| 15294 | "i4392" | |
| 15295 | "i4393")) | |
| 417ee098 AW |
15296 | #(ribcage |
| 15297 | () | |
| 15298 | () | |
| 15299 | ()) | |
| 15300 | #(ribcage | |
| 15301 | #(orig-x) | |
| 15302 | #((top)) | |
| 1bbe0a63 | 15303 | #("i4385"))) |
| 417ee098 AW |
15304 | (hygiene |
| 15305 | guile)) | |
| 1bbe0a63 AW |
15306 | #{step 4404}#))))))) |
| 15307 | #{tmp 4411}#) | |
| 417ee098 AW |
15308 | (syntax-violation |
| 15309 | #f | |
| 15310 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
15311 | #{tmp 4405}#))))))) |
| 15312 | #{tmp 4402}#) | |
| 417ee098 AW |
15313 | (syntax-violation |
| 15314 | #f | |
| 15315 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
15316 | #{tmp 4401}#))))) |
| 15317 | #{tmp 4387}#) | |
| 417ee098 AW |
15318 | (syntax-violation |
| 15319 | #f | |
| 15320 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 15321 | #{tmp 4386}#))))))) |
| f42d8bd8 AW |
15322 | |
| 15323 | (define quasiquote | |
| 15324 | (make-syntax-transformer | |
| 15325 | 'quasiquote | |
| 15326 | 'macro | |
| 417ee098 | 15327 | (letrec* |
| 1bbe0a63 AW |
15328 | ((#{quasi 4436}# |
| 15329 | (lambda (#{p 4449}# #{lev 4450}#) | |
| 15330 | (let ((#{tmp 4453}# #{p 4449}#)) | |
| 15331 | (let ((#{tmp 4454}# | |
| 0f550375 | 15332 | ($sc-dispatch |
| 1bbe0a63 | 15333 | #{tmp 4453}# |
| 0f550375 AW |
15334 | '(#(free-id |
| 15335 | #(syntax-object | |
| 15336 | unquote | |
| 15337 | ((top) | |
| 15338 | #(ribcage () () ()) | |
| 15339 | #(ribcage | |
| 15340 | #(p lev) | |
| 15341 | #((top) (top)) | |
| 1bbe0a63 | 15342 | #("i4451" "i4452")) |
| 0f550375 AW |
15343 | #(ribcage |
| 15344 | (emit quasivector | |
| 15345 | quasilist* | |
| 15346 | quasiappend | |
| 15347 | quasicons | |
| 15348 | vquasi | |
| 15349 | quasi) | |
| 15350 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15351 | ("i4447" |
| 15352 | "i4445" | |
| 15353 | "i4443" | |
| 15354 | "i4441" | |
| 15355 | "i4439" | |
| 15356 | "i4437" | |
| 15357 | "i4435"))) | |
| 0f550375 AW |
15358 | (hygiene guile))) |
| 15359 | any)))) | |
| 1bbe0a63 | 15360 | (if #{tmp 4454}# |
| 0f550375 | 15361 | (@apply |
| 1bbe0a63 AW |
15362 | (lambda (#{p 4456}#) |
| 15363 | (if (= #{lev 4450}# 0) | |
| 0f550375 AW |
15364 | (list '#(syntax-object |
| 15365 | "value" | |
| 15366 | ((top) | |
| 1bbe0a63 | 15367 | #(ribcage #(p) #((top)) #("i4455")) |
| 0f550375 AW |
15368 | #(ribcage () () ()) |
| 15369 | #(ribcage | |
| 15370 | #(p lev) | |
| 15371 | #((top) (top)) | |
| 1bbe0a63 | 15372 | #("i4451" "i4452")) |
| 0f550375 AW |
15373 | #(ribcage |
| 15374 | (emit quasivector | |
| 15375 | quasilist* | |
| 15376 | quasiappend | |
| 15377 | quasicons | |
| 15378 | vquasi | |
| 15379 | quasi) | |
| 15380 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15381 | ("i4447" |
| 15382 | "i4445" | |
| 15383 | "i4443" | |
| 15384 | "i4441" | |
| 15385 | "i4439" | |
| 15386 | "i4437" | |
| 15387 | "i4435"))) | |
| 0f550375 | 15388 | (hygiene guile)) |
| 1bbe0a63 AW |
15389 | #{p 4456}#) |
| 15390 | (#{quasicons 4440}# | |
| 0f550375 AW |
15391 | '(#(syntax-object |
| 15392 | "quote" | |
| 15393 | ((top) | |
| 1bbe0a63 | 15394 | #(ribcage #(p) #((top)) #("i4455")) |
| 0f550375 AW |
15395 | #(ribcage () () ()) |
| 15396 | #(ribcage | |
| 15397 | #(p lev) | |
| 15398 | #((top) (top)) | |
| 1bbe0a63 | 15399 | #("i4451" "i4452")) |
| 0f550375 AW |
15400 | #(ribcage |
| 15401 | (emit quasivector | |
| 15402 | quasilist* | |
| 15403 | quasiappend | |
| 15404 | quasicons | |
| 15405 | vquasi | |
| 15406 | quasi) | |
| 15407 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15408 | ("i4447" |
| 15409 | "i4445" | |
| 15410 | "i4443" | |
| 15411 | "i4441" | |
| 15412 | "i4439" | |
| 15413 | "i4437" | |
| 15414 | "i4435"))) | |
| 0f550375 AW |
15415 | (hygiene guile)) |
| 15416 | #(syntax-object | |
| 15417 | unquote | |
| 15418 | ((top) | |
| 1bbe0a63 | 15419 | #(ribcage #(p) #((top)) #("i4455")) |
| 0f550375 AW |
15420 | #(ribcage () () ()) |
| 15421 | #(ribcage | |
| 15422 | #(p lev) | |
| 15423 | #((top) (top)) | |
| 1bbe0a63 | 15424 | #("i4451" "i4452")) |
| 0f550375 AW |
15425 | #(ribcage |
| 15426 | (emit quasivector | |
| 15427 | quasilist* | |
| 15428 | quasiappend | |
| 15429 | quasicons | |
| 15430 | vquasi | |
| 15431 | quasi) | |
| 15432 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15433 | ("i4447" |
| 15434 | "i4445" | |
| 15435 | "i4443" | |
| 15436 | "i4441" | |
| 15437 | "i4439" | |
| 15438 | "i4437" | |
| 15439 | "i4435"))) | |
| 0f550375 | 15440 | (hygiene guile))) |
| 1bbe0a63 AW |
15441 | (#{quasi 4436}# |
| 15442 | (list #{p 4456}#) | |
| 15443 | (#{1-}# #{lev 4450}#))))) | |
| 15444 | #{tmp 4454}#) | |
| 15445 | (let ((#{tmp 4457}# | |
| 0f550375 | 15446 | ($sc-dispatch |
| 1bbe0a63 | 15447 | #{tmp 4453}# |
| 0f550375 AW |
15448 | '(#(free-id |
| 15449 | #(syntax-object | |
| 15450 | quasiquote | |
| 15451 | ((top) | |
| 15452 | #(ribcage () () ()) | |
| 15453 | #(ribcage | |
| 15454 | #(p lev) | |
| 15455 | #((top) (top)) | |
| 1bbe0a63 | 15456 | #("i4451" "i4452")) |
| 0f550375 AW |
15457 | #(ribcage |
| 15458 | (emit quasivector | |
| 15459 | quasilist* | |
| 15460 | quasiappend | |
| 15461 | quasicons | |
| 15462 | vquasi | |
| 15463 | quasi) | |
| 15464 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15465 | ("i4447" |
| 15466 | "i4445" | |
| 15467 | "i4443" | |
| 15468 | "i4441" | |
| 15469 | "i4439" | |
| 15470 | "i4437" | |
| 15471 | "i4435"))) | |
| 0f550375 AW |
15472 | (hygiene guile))) |
| 15473 | any)))) | |
| 1bbe0a63 | 15474 | (if #{tmp 4457}# |
| 0f550375 | 15475 | (@apply |
| 1bbe0a63 AW |
15476 | (lambda (#{p 4459}#) |
| 15477 | (#{quasicons 4440}# | |
| 0f550375 AW |
15478 | '(#(syntax-object |
| 15479 | "quote" | |
| 15480 | ((top) | |
| 1bbe0a63 | 15481 | #(ribcage #(p) #((top)) #("i4458")) |
| 0f550375 AW |
15482 | #(ribcage () () ()) |
| 15483 | #(ribcage | |
| 15484 | #(p lev) | |
| 15485 | #((top) (top)) | |
| 1bbe0a63 | 15486 | #("i4451" "i4452")) |
| 0f550375 AW |
15487 | #(ribcage |
| 15488 | (emit quasivector | |
| 15489 | quasilist* | |
| 15490 | quasiappend | |
| 15491 | quasicons | |
| 15492 | vquasi | |
| 15493 | quasi) | |
| 15494 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15495 | ("i4447" |
| 15496 | "i4445" | |
| 15497 | "i4443" | |
| 15498 | "i4441" | |
| 15499 | "i4439" | |
| 15500 | "i4437" | |
| 15501 | "i4435"))) | |
| 0f550375 AW |
15502 | (hygiene guile)) |
| 15503 | #(syntax-object | |
| 15504 | quasiquote | |
| 15505 | ((top) | |
| 1bbe0a63 | 15506 | #(ribcage #(p) #((top)) #("i4458")) |
| 0f550375 AW |
15507 | #(ribcage () () ()) |
| 15508 | #(ribcage | |
| 15509 | #(p lev) | |
| 15510 | #((top) (top)) | |
| 1bbe0a63 | 15511 | #("i4451" "i4452")) |
| 0f550375 AW |
15512 | #(ribcage |
| 15513 | (emit quasivector | |
| 15514 | quasilist* | |
| 15515 | quasiappend | |
| 15516 | quasicons | |
| 15517 | vquasi | |
| 15518 | quasi) | |
| 15519 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
15520 | ("i4447" |
| 15521 | "i4445" | |
| 15522 | "i4443" | |
| 15523 | "i4441" | |
| 15524 | "i4439" | |
| 15525 | "i4437" | |
| 15526 | "i4435"))) | |
| 0f550375 | 15527 | (hygiene guile))) |
| 1bbe0a63 AW |
15528 | (#{quasi 4436}# |
| 15529 | (list #{p 4459}#) | |
| 15530 | (#{1+}# #{lev 4450}#)))) | |
| 15531 | #{tmp 4457}#) | |
| 15532 | (let ((#{tmp 4460}# | |
| 15533 | ($sc-dispatch #{tmp 4453}# '(any . any)))) | |
| 15534 | (if #{tmp 4460}# | |
| 0f550375 | 15535 | (@apply |
| 1bbe0a63 AW |
15536 | (lambda (#{p 4463}# #{q 4464}#) |
| 15537 | (let ((#{tmp 4465}# #{p 4463}#)) | |
| 15538 | (let ((#{tmp 4466}# | |
| 0f550375 | 15539 | ($sc-dispatch |
| 1bbe0a63 | 15540 | #{tmp 4465}# |
| 0f550375 AW |
15541 | '(#(free-id |
| 15542 | #(syntax-object | |
| 15543 | unquote | |
| 15544 | ((top) | |
| 15545 | #(ribcage | |
| 15546 | #(p q) | |
| 15547 | #((top) (top)) | |
| 1bbe0a63 | 15548 | #("i4461" "i4462")) |
| 0f550375 AW |
15549 | #(ribcage () () ()) |
| 15550 | #(ribcage | |
| 15551 | #(p lev) | |
| 15552 | #((top) (top)) | |
| 1bbe0a63 | 15553 | #("i4451" "i4452")) |
| 0f550375 AW |
15554 | #(ribcage |
| 15555 | (emit quasivector | |
| 15556 | quasilist* | |
| 15557 | quasiappend | |
| 15558 | quasicons | |
| 15559 | vquasi | |
| 15560 | quasi) | |
| 15561 | ((top) | |
| 15562 | (top) | |
| 15563 | (top) | |
| 15564 | (top) | |
| 15565 | (top) | |
| 15566 | (top) | |
| 15567 | (top)) | |
| 1bbe0a63 AW |
15568 | ("i4447" |
| 15569 | "i4445" | |
| 15570 | "i4443" | |
| 15571 | "i4441" | |
| 15572 | "i4439" | |
| 15573 | "i4437" | |
| 15574 | "i4435"))) | |
| 0f550375 AW |
15575 | (hygiene guile))) |
| 15576 | . | |
| 15577 | each-any)))) | |
| 1bbe0a63 | 15578 | (if #{tmp 4466}# |
| 0f550375 | 15579 | (@apply |
| 1bbe0a63 AW |
15580 | (lambda (#{p 4468}#) |
| 15581 | (if (= #{lev 4450}# 0) | |
| 15582 | (#{quasilist* 4444}# | |
| 15583 | (map (lambda (#{tmp 4469}#) | |
| 0f550375 AW |
15584 | (list '#(syntax-object |
| 15585 | "value" | |
| 15586 | ((top) | |
| 15587 | #(ribcage | |
| 15588 | #(p) | |
| 15589 | #((top)) | |
| 1bbe0a63 | 15590 | #("i4467")) |
| 0f550375 AW |
15591 | #(ribcage |
| 15592 | #(p q) | |
| 15593 | #((top) (top)) | |
| 1bbe0a63 AW |
15594 | #("i4461" |
| 15595 | "i4462")) | |
| 0f550375 AW |
15596 | #(ribcage () () ()) |
| 15597 | #(ribcage | |
| 15598 | #(p lev) | |
| 15599 | #((top) (top)) | |
| 1bbe0a63 AW |
15600 | #("i4451" |
| 15601 | "i4452")) | |
| 0f550375 AW |
15602 | #(ribcage |
| 15603 | (emit quasivector | |
| 15604 | quasilist* | |
| 15605 | quasiappend | |
| 15606 | quasicons | |
| 15607 | vquasi | |
| 15608 | quasi) | |
| 15609 | ((top) | |
| 15610 | (top) | |
| 15611 | (top) | |
| 15612 | (top) | |
| 15613 | (top) | |
| 15614 | (top) | |
| 15615 | (top)) | |
| 1bbe0a63 AW |
15616 | ("i4447" |
| 15617 | "i4445" | |
| 15618 | "i4443" | |
| 15619 | "i4441" | |
| 15620 | "i4439" | |
| 15621 | "i4437" | |
| 15622 | "i4435"))) | |
| 0f550375 | 15623 | (hygiene guile)) |
| 1bbe0a63 AW |
15624 | #{tmp 4469}#)) |
| 15625 | #{p 4468}#) | |
| 15626 | (#{quasi 4436}# | |
| 15627 | #{q 4464}# | |
| 15628 | #{lev 4450}#)) | |
| 15629 | (#{quasicons 4440}# | |
| 15630 | (#{quasicons 4440}# | |
| 0f550375 AW |
15631 | '(#(syntax-object |
| 15632 | "quote" | |
| 15633 | ((top) | |
| 15634 | #(ribcage | |
| 15635 | #(p) | |
| 15636 | #((top)) | |
| 1bbe0a63 | 15637 | #("i4467")) |
| 0f550375 AW |
15638 | #(ribcage |
| 15639 | #(p q) | |
| 15640 | #((top) (top)) | |
| 1bbe0a63 | 15641 | #("i4461" "i4462")) |
| 0f550375 AW |
15642 | #(ribcage () () ()) |
| 15643 | #(ribcage | |
| 15644 | #(p lev) | |
| 15645 | #((top) (top)) | |
| 1bbe0a63 | 15646 | #("i4451" "i4452")) |
| 0f550375 AW |
15647 | #(ribcage |
| 15648 | (emit quasivector | |
| 15649 | quasilist* | |
| 15650 | quasiappend | |
| 15651 | quasicons | |
| 15652 | vquasi | |
| 15653 | quasi) | |
| 15654 | ((top) | |
| 15655 | (top) | |
| 15656 | (top) | |
| 15657 | (top) | |
| 15658 | (top) | |
| 15659 | (top) | |
| 15660 | (top)) | |
| 1bbe0a63 AW |
15661 | ("i4447" |
| 15662 | "i4445" | |
| 15663 | "i4443" | |
| 15664 | "i4441" | |
| 15665 | "i4439" | |
| 15666 | "i4437" | |
| 15667 | "i4435"))) | |
| 0f550375 AW |
15668 | (hygiene guile)) |
| 15669 | #(syntax-object | |
| 15670 | unquote | |
| 15671 | ((top) | |
| 15672 | #(ribcage | |
| 15673 | #(p) | |
| 15674 | #((top)) | |
| 1bbe0a63 | 15675 | #("i4467")) |
| 0f550375 AW |
15676 | #(ribcage |
| 15677 | #(p q) | |
| 15678 | #((top) (top)) | |
| 1bbe0a63 | 15679 | #("i4461" "i4462")) |
| 0f550375 AW |
15680 | #(ribcage () () ()) |
| 15681 | #(ribcage | |
| 15682 | #(p lev) | |
| 15683 | #((top) (top)) | |
| 1bbe0a63 | 15684 | #("i4451" "i4452")) |
| 0f550375 AW |
15685 | #(ribcage |
| 15686 | (emit quasivector | |
| 15687 | quasilist* | |
| 15688 | quasiappend | |
| 15689 | quasicons | |
| 15690 | vquasi | |
| 15691 | quasi) | |
| 15692 | ((top) | |
| 15693 | (top) | |
| 15694 | (top) | |
| 15695 | (top) | |
| 15696 | (top) | |
| 15697 | (top) | |
| 15698 | (top)) | |
| 1bbe0a63 AW |
15699 | ("i4447" |
| 15700 | "i4445" | |
| 15701 | "i4443" | |
| 15702 | "i4441" | |
| 15703 | "i4439" | |
| 15704 | "i4437" | |
| 15705 | "i4435"))) | |
| 0f550375 | 15706 | (hygiene guile))) |
| 1bbe0a63 AW |
15707 | (#{quasi 4436}# |
| 15708 | #{p 4468}# | |
| 15709 | (#{1-}# #{lev 4450}#))) | |
| 15710 | (#{quasi 4436}# | |
| 15711 | #{q 4464}# | |
| 15712 | #{lev 4450}#)))) | |
| 15713 | #{tmp 4466}#) | |
| 15714 | (let ((#{tmp 4471}# | |
| 0f550375 | 15715 | ($sc-dispatch |
| 1bbe0a63 | 15716 | #{tmp 4465}# |
| 0f550375 AW |
15717 | '(#(free-id |
| 15718 | #(syntax-object | |
| 15719 | unquote-splicing | |
| 15720 | ((top) | |
| 15721 | #(ribcage | |
| 15722 | #(p q) | |
| 15723 | #((top) (top)) | |
| 1bbe0a63 | 15724 | #("i4461" "i4462")) |
| 0f550375 AW |
15725 | #(ribcage () () ()) |
| 15726 | #(ribcage | |
| 15727 | #(p lev) | |
| 15728 | #((top) (top)) | |
| 1bbe0a63 | 15729 | #("i4451" "i4452")) |
| 0f550375 AW |
15730 | #(ribcage |
| 15731 | (emit quasivector | |
| 15732 | quasilist* | |
| 15733 | quasiappend | |
| 15734 | quasicons | |
| 15735 | vquasi | |
| 15736 | quasi) | |
| 15737 | ((top) | |
| 15738 | (top) | |
| 15739 | (top) | |
| 15740 | (top) | |
| 15741 | (top) | |
| 15742 | (top) | |
| 15743 | (top)) | |
| 1bbe0a63 AW |
15744 | ("i4447" |
| 15745 | "i4445" | |
| 15746 | "i4443" | |
| 15747 | "i4441" | |
| 15748 | "i4439" | |
| 15749 | "i4437" | |
| 15750 | "i4435"))) | |
| 0f550375 AW |
15751 | (hygiene guile))) |
| 15752 | . | |
| 15753 | each-any)))) | |
| 1bbe0a63 | 15754 | (if #{tmp 4471}# |
| 0f550375 | 15755 | (@apply |
| 1bbe0a63 AW |
15756 | (lambda (#{p 4473}#) |
| 15757 | (if (= #{lev 4450}# 0) | |
| 15758 | (#{quasiappend 4442}# | |
| 15759 | (map (lambda (#{tmp 4474}#) | |
| 0f550375 AW |
15760 | (list '#(syntax-object |
| 15761 | "value" | |
| 15762 | ((top) | |
| 15763 | #(ribcage | |
| 15764 | #(p) | |
| 15765 | #((top)) | |
| 1bbe0a63 | 15766 | #("i4472")) |
| 0f550375 AW |
15767 | #(ribcage |
| 15768 | #(p q) | |
| 15769 | #((top) | |
| 15770 | (top)) | |
| 1bbe0a63 AW |
15771 | #("i4461" |
| 15772 | "i4462")) | |
| 0f550375 AW |
15773 | #(ribcage |
| 15774 | () | |
| 15775 | () | |
| 15776 | ()) | |
| 15777 | #(ribcage | |
| 15778 | #(p lev) | |
| 15779 | #((top) | |
| 15780 | (top)) | |
| 1bbe0a63 AW |
15781 | #("i4451" |
| 15782 | "i4452")) | |
| 0f550375 AW |
15783 | #(ribcage |
| 15784 | (emit quasivector | |
| 15785 | quasilist* | |
| 15786 | quasiappend | |
| 15787 | quasicons | |
| 15788 | vquasi | |
| 15789 | quasi) | |
| 15790 | ((top) | |
| 15791 | (top) | |
| 15792 | (top) | |
| 15793 | (top) | |
| 15794 | (top) | |
| 15795 | (top) | |
| 15796 | (top)) | |
| 1bbe0a63 AW |
15797 | ("i4447" |
| 15798 | "i4445" | |
| 15799 | "i4443" | |
| 15800 | "i4441" | |
| 15801 | "i4439" | |
| 15802 | "i4437" | |
| 15803 | "i4435"))) | |
| 0f550375 | 15804 | (hygiene guile)) |
| 1bbe0a63 AW |
15805 | #{tmp 4474}#)) |
| 15806 | #{p 4473}#) | |
| 15807 | (#{quasi 4436}# | |
| 15808 | #{q 4464}# | |
| 15809 | #{lev 4450}#)) | |
| 15810 | (#{quasicons 4440}# | |
| 15811 | (#{quasicons 4440}# | |
| 0f550375 AW |
15812 | '(#(syntax-object |
| 15813 | "quote" | |
| 15814 | ((top) | |
| 15815 | #(ribcage | |
| 15816 | #(p) | |
| 15817 | #((top)) | |
| 1bbe0a63 | 15818 | #("i4472")) |
| 0f550375 AW |
15819 | #(ribcage |
| 15820 | #(p q) | |
| 15821 | #((top) (top)) | |
| 1bbe0a63 | 15822 | #("i4461" "i4462")) |
| 0f550375 AW |
15823 | #(ribcage () () ()) |
| 15824 | #(ribcage | |
| 15825 | #(p lev) | |
| 15826 | #((top) (top)) | |
| 1bbe0a63 | 15827 | #("i4451" "i4452")) |
| 0f550375 AW |
15828 | #(ribcage |
| 15829 | (emit quasivector | |
| 15830 | quasilist* | |
| 15831 | quasiappend | |
| 15832 | quasicons | |
| 15833 | vquasi | |
| 15834 | quasi) | |
| 15835 | ((top) | |
| 15836 | (top) | |
| 15837 | (top) | |
| 15838 | (top) | |
| 15839 | (top) | |
| 15840 | (top) | |
| 15841 | (top)) | |
| 1bbe0a63 AW |
15842 | ("i4447" |
| 15843 | "i4445" | |
| 15844 | "i4443" | |
| 15845 | "i4441" | |
| 15846 | "i4439" | |
| 15847 | "i4437" | |
| 15848 | "i4435"))) | |
| 0f550375 AW |
15849 | (hygiene guile)) |
| 15850 | #(syntax-object | |
| 15851 | unquote-splicing | |
| 15852 | ((top) | |
| 15853 | #(ribcage | |
| 15854 | #(p) | |
| 15855 | #((top)) | |
| 1bbe0a63 | 15856 | #("i4472")) |
| 0f550375 AW |
15857 | #(ribcage |
| 15858 | #(p q) | |
| 15859 | #((top) (top)) | |
| 1bbe0a63 | 15860 | #("i4461" "i4462")) |
| 0f550375 AW |
15861 | #(ribcage () () ()) |
| 15862 | #(ribcage | |
| 15863 | #(p lev) | |
| 15864 | #((top) (top)) | |
| 1bbe0a63 | 15865 | #("i4451" "i4452")) |
| 0f550375 AW |
15866 | #(ribcage |
| 15867 | (emit quasivector | |
| 15868 | quasilist* | |
| 15869 | quasiappend | |
| 15870 | quasicons | |
| 15871 | vquasi | |
| 15872 | quasi) | |
| 15873 | ((top) | |
| 15874 | (top) | |
| 15875 | (top) | |
| 15876 | (top) | |
| 15877 | (top) | |
| 15878 | (top) | |
| 15879 | (top)) | |
| 1bbe0a63 AW |
15880 | ("i4447" |
| 15881 | "i4445" | |
| 15882 | "i4443" | |
| 15883 | "i4441" | |
| 15884 | "i4439" | |
| 15885 | "i4437" | |
| 15886 | "i4435"))) | |
| 0f550375 | 15887 | (hygiene guile))) |
| 1bbe0a63 AW |
15888 | (#{quasi 4436}# |
| 15889 | #{p 4473}# | |
| 15890 | (#{1-}# #{lev 4450}#))) | |
| 15891 | (#{quasi 4436}# | |
| 15892 | #{q 4464}# | |
| 15893 | #{lev 4450}#)))) | |
| 15894 | #{tmp 4471}#) | |
| 15895 | (let ((#{_ 4477}# #{tmp 4465}#)) | |
| 15896 | (#{quasicons 4440}# | |
| 15897 | (#{quasi 4436}# | |
| 15898 | #{p 4463}# | |
| 15899 | #{lev 4450}#) | |
| 15900 | (#{quasi 4436}# | |
| 15901 | #{q 4464}# | |
| 15902 | #{lev 4450}#))))))))) | |
| 15903 | #{tmp 4460}#) | |
| 15904 | (let ((#{tmp 4478}# | |
| 0f550375 | 15905 | ($sc-dispatch |
| 1bbe0a63 | 15906 | #{tmp 4453}# |
| 0f550375 | 15907 | '#(vector each-any)))) |
| 1bbe0a63 | 15908 | (if #{tmp 4478}# |
| 0f550375 | 15909 | (@apply |
| 1bbe0a63 AW |
15910 | (lambda (#{x 4480}#) |
| 15911 | (#{quasivector 4446}# | |
| 15912 | (#{vquasi 4438}# #{x 4480}# #{lev 4450}#))) | |
| 15913 | #{tmp 4478}#) | |
| 15914 | (let ((#{p 4483}# #{tmp 4453}#)) | |
| 0f550375 AW |
15915 | (list '#(syntax-object |
| 15916 | "quote" | |
| 15917 | ((top) | |
| 1bbe0a63 | 15918 | #(ribcage #(p) #((top)) #("i4482")) |
| 0f550375 AW |
15919 | #(ribcage () () ()) |
| 15920 | #(ribcage | |
| 15921 | #(p lev) | |
| 15922 | #((top) (top)) | |
| 1bbe0a63 | 15923 | #("i4451" "i4452")) |
| 0f550375 AW |
15924 | #(ribcage |
| 15925 | (emit quasivector | |
| 15926 | quasilist* | |
| 15927 | quasiappend | |
| 15928 | quasicons | |
| 15929 | vquasi | |
| 15930 | quasi) | |
| 15931 | ((top) | |
| 15932 | (top) | |
| 15933 | (top) | |
| 15934 | (top) | |
| 15935 | (top) | |
| 15936 | (top) | |
| 15937 | (top)) | |
| 1bbe0a63 AW |
15938 | ("i4447" |
| 15939 | "i4445" | |
| 15940 | "i4443" | |
| 15941 | "i4441" | |
| 15942 | "i4439" | |
| 15943 | "i4437" | |
| 15944 | "i4435"))) | |
| 0f550375 | 15945 | (hygiene guile)) |
| 1bbe0a63 AW |
15946 | #{p 4483}#))))))))))))) |
| 15947 | (#{vquasi 4438}# | |
| 15948 | (lambda (#{p 4484}# #{lev 4485}#) | |
| 15949 | (let ((#{tmp 4488}# #{p 4484}#)) | |
| 15950 | (let ((#{tmp 4489}# | |
| 15951 | ($sc-dispatch #{tmp 4488}# '(any . any)))) | |
| 15952 | (if #{tmp 4489}# | |
| 417ee098 | 15953 | (@apply |
| 1bbe0a63 AW |
15954 | (lambda (#{p 4492}# #{q 4493}#) |
| 15955 | (let ((#{tmp 4494}# #{p 4492}#)) | |
| 15956 | (let ((#{tmp 4495}# | |
| 417ee098 | 15957 | ($sc-dispatch |
| 1bbe0a63 | 15958 | #{tmp 4494}# |
| 417ee098 AW |
15959 | '(#(free-id |
| 15960 | #(syntax-object | |
| 0f550375 | 15961 | unquote |
| 417ee098 AW |
15962 | ((top) |
| 15963 | #(ribcage | |
| 0f550375 | 15964 | #(p q) |
| 417ee098 | 15965 | #((top) (top)) |
| 1bbe0a63 | 15966 | #("i4490" "i4491")) |
| 417ee098 AW |
15967 | #(ribcage () () ()) |
| 15968 | #(ribcage | |
| 0f550375 | 15969 | #(p lev) |
| 417ee098 | 15970 | #((top) (top)) |
| 1bbe0a63 | 15971 | #("i4486" "i4487")) |
| 417ee098 | 15972 | #(ribcage |
| 0f550375 AW |
15973 | (emit quasivector |
| 15974 | quasilist* | |
| 15975 | quasiappend | |
| 15976 | quasicons | |
| 15977 | vquasi | |
| 15978 | quasi) | |
| 15979 | ((top) | |
| 15980 | (top) | |
| 15981 | (top) | |
| 15982 | (top) | |
| 15983 | (top) | |
| 15984 | (top) | |
| 15985 | (top)) | |
| 1bbe0a63 AW |
15986 | ("i4447" |
| 15987 | "i4445" | |
| 15988 | "i4443" | |
| 15989 | "i4441" | |
| 15990 | "i4439" | |
| 15991 | "i4437" | |
| 15992 | "i4435"))) | |
| 417ee098 | 15993 | (hygiene guile))) |
| 0f550375 AW |
15994 | . |
| 15995 | each-any)))) | |
| 1bbe0a63 | 15996 | (if #{tmp 4495}# |
| 0f550375 | 15997 | (@apply |
| 1bbe0a63 AW |
15998 | (lambda (#{p 4497}#) |
| 15999 | (if (= #{lev 4485}# 0) | |
| 16000 | (#{quasilist* 4444}# | |
| 16001 | (map (lambda (#{tmp 4498}#) | |
| 0f550375 AW |
16002 | (list '#(syntax-object |
| 16003 | "value" | |
| 16004 | ((top) | |
| 16005 | #(ribcage | |
| 16006 | #(p) | |
| 16007 | #((top)) | |
| 1bbe0a63 | 16008 | #("i4496")) |
| 0f550375 AW |
16009 | #(ribcage |
| 16010 | #(p q) | |
| 16011 | #((top) (top)) | |
| 1bbe0a63 | 16012 | #("i4490" "i4491")) |
| 0f550375 AW |
16013 | #(ribcage () () ()) |
| 16014 | #(ribcage | |
| 16015 | #(p lev) | |
| 16016 | #((top) (top)) | |
| 1bbe0a63 | 16017 | #("i4486" "i4487")) |
| 0f550375 AW |
16018 | #(ribcage |
| 16019 | (emit quasivector | |
| 16020 | quasilist* | |
| 16021 | quasiappend | |
| 16022 | quasicons | |
| 16023 | vquasi | |
| 16024 | quasi) | |
| 16025 | ((top) | |
| 16026 | (top) | |
| 16027 | (top) | |
| 16028 | (top) | |
| 16029 | (top) | |
| 16030 | (top) | |
| 16031 | (top)) | |
| 1bbe0a63 AW |
16032 | ("i4447" |
| 16033 | "i4445" | |
| 16034 | "i4443" | |
| 16035 | "i4441" | |
| 16036 | "i4439" | |
| 16037 | "i4437" | |
| 16038 | "i4435"))) | |
| 0f550375 | 16039 | (hygiene guile)) |
| 1bbe0a63 AW |
16040 | #{tmp 4498}#)) |
| 16041 | #{p 4497}#) | |
| 16042 | (#{vquasi 4438}# #{q 4493}# #{lev 4485}#)) | |
| 16043 | (#{quasicons 4440}# | |
| 16044 | (#{quasicons 4440}# | |
| 0f550375 AW |
16045 | '(#(syntax-object |
| 16046 | "quote" | |
| 16047 | ((top) | |
| 1bbe0a63 | 16048 | #(ribcage #(p) #((top)) #("i4496")) |
| 0f550375 AW |
16049 | #(ribcage |
| 16050 | #(p q) | |
| 16051 | #((top) (top)) | |
| 1bbe0a63 | 16052 | #("i4490" "i4491")) |
| 0f550375 AW |
16053 | #(ribcage () () ()) |
| 16054 | #(ribcage | |
| 16055 | #(p lev) | |
| 16056 | #((top) (top)) | |
| 1bbe0a63 | 16057 | #("i4486" "i4487")) |
| 0f550375 AW |
16058 | #(ribcage |
| 16059 | (emit quasivector | |
| 16060 | quasilist* | |
| 16061 | quasiappend | |
| 16062 | quasicons | |
| 16063 | vquasi | |
| 16064 | quasi) | |
| 16065 | ((top) | |
| 16066 | (top) | |
| 16067 | (top) | |
| 16068 | (top) | |
| 16069 | (top) | |
| 16070 | (top) | |
| 16071 | (top)) | |
| 1bbe0a63 AW |
16072 | ("i4447" |
| 16073 | "i4445" | |
| 16074 | "i4443" | |
| 16075 | "i4441" | |
| 16076 | "i4439" | |
| 16077 | "i4437" | |
| 16078 | "i4435"))) | |
| 0f550375 AW |
16079 | (hygiene guile)) |
| 16080 | #(syntax-object | |
| 16081 | unquote | |
| 16082 | ((top) | |
| 1bbe0a63 | 16083 | #(ribcage #(p) #((top)) #("i4496")) |
| 0f550375 AW |
16084 | #(ribcage |
| 16085 | #(p q) | |
| 16086 | #((top) (top)) | |
| 1bbe0a63 | 16087 | #("i4490" "i4491")) |
| 0f550375 AW |
16088 | #(ribcage () () ()) |
| 16089 | #(ribcage | |
| 16090 | #(p lev) | |
| 16091 | #((top) (top)) | |
| 1bbe0a63 | 16092 | #("i4486" "i4487")) |
| 0f550375 AW |
16093 | #(ribcage |
| 16094 | (emit quasivector | |
| 16095 | quasilist* | |
| 16096 | quasiappend | |
| 16097 | quasicons | |
| 16098 | vquasi | |
| 16099 | quasi) | |
| 16100 | ((top) | |
| 16101 | (top) | |
| 16102 | (top) | |
| 16103 | (top) | |
| 16104 | (top) | |
| 16105 | (top) | |
| 16106 | (top)) | |
| 1bbe0a63 AW |
16107 | ("i4447" |
| 16108 | "i4445" | |
| 16109 | "i4443" | |
| 16110 | "i4441" | |
| 16111 | "i4439" | |
| 16112 | "i4437" | |
| 16113 | "i4435"))) | |
| 0f550375 | 16114 | (hygiene guile))) |
| 1bbe0a63 AW |
16115 | (#{quasi 4436}# |
| 16116 | #{p 4497}# | |
| 16117 | (#{1-}# #{lev 4485}#))) | |
| 16118 | (#{vquasi 4438}# #{q 4493}# #{lev 4485}#)))) | |
| 16119 | #{tmp 4495}#) | |
| 16120 | (let ((#{tmp 4500}# | |
| 0f550375 | 16121 | ($sc-dispatch |
| 1bbe0a63 | 16122 | #{tmp 4494}# |
| 0f550375 AW |
16123 | '(#(free-id |
| 16124 | #(syntax-object | |
| 16125 | unquote-splicing | |
| 16126 | ((top) | |
| 16127 | #(ribcage | |
| 16128 | #(p q) | |
| 16129 | #((top) (top)) | |
| 1bbe0a63 | 16130 | #("i4490" "i4491")) |
| 0f550375 AW |
16131 | #(ribcage () () ()) |
| 16132 | #(ribcage | |
| 16133 | #(p lev) | |
| 16134 | #((top) (top)) | |
| 1bbe0a63 | 16135 | #("i4486" "i4487")) |
| 0f550375 AW |
16136 | #(ribcage |
| 16137 | (emit quasivector | |
| 16138 | quasilist* | |
| 16139 | quasiappend | |
| 16140 | quasicons | |
| 16141 | vquasi | |
| 16142 | quasi) | |
| 16143 | ((top) | |
| 16144 | (top) | |
| 16145 | (top) | |
| 16146 | (top) | |
| 16147 | (top) | |
| 16148 | (top) | |
| 16149 | (top)) | |
| 1bbe0a63 AW |
16150 | ("i4447" |
| 16151 | "i4445" | |
| 16152 | "i4443" | |
| 16153 | "i4441" | |
| 16154 | "i4439" | |
| 16155 | "i4437" | |
| 16156 | "i4435"))) | |
| 0f550375 AW |
16157 | (hygiene guile))) |
| 16158 | . | |
| 16159 | each-any)))) | |
| 1bbe0a63 | 16160 | (if #{tmp 4500}# |
| 0f550375 | 16161 | (@apply |
| 1bbe0a63 AW |
16162 | (lambda (#{p 4502}#) |
| 16163 | (if (= #{lev 4485}# 0) | |
| 16164 | (#{quasiappend 4442}# | |
| 16165 | (map (lambda (#{tmp 4503}#) | |
| 0f550375 AW |
16166 | (list '#(syntax-object |
| 16167 | "value" | |
| 16168 | ((top) | |
| 16169 | #(ribcage | |
| 16170 | #(p) | |
| 16171 | #((top)) | |
| 1bbe0a63 | 16172 | #("i4501")) |
| 0f550375 AW |
16173 | #(ribcage |
| 16174 | #(p q) | |
| 16175 | #((top) (top)) | |
| 1bbe0a63 | 16176 | #("i4490" "i4491")) |
| 0f550375 AW |
16177 | #(ribcage () () ()) |
| 16178 | #(ribcage | |
| 16179 | #(p lev) | |
| 16180 | #((top) (top)) | |
| 1bbe0a63 | 16181 | #("i4486" "i4487")) |
| 0f550375 AW |
16182 | #(ribcage |
| 16183 | (emit quasivector | |
| 16184 | quasilist* | |
| 16185 | quasiappend | |
| 16186 | quasicons | |
| 16187 | vquasi | |
| 16188 | quasi) | |
| 16189 | ((top) | |
| 16190 | (top) | |
| 16191 | (top) | |
| 16192 | (top) | |
| 16193 | (top) | |
| 16194 | (top) | |
| 16195 | (top)) | |
| 1bbe0a63 AW |
16196 | ("i4447" |
| 16197 | "i4445" | |
| 16198 | "i4443" | |
| 16199 | "i4441" | |
| 16200 | "i4439" | |
| 16201 | "i4437" | |
| 16202 | "i4435"))) | |
| 0f550375 | 16203 | (hygiene guile)) |
| 1bbe0a63 AW |
16204 | #{tmp 4503}#)) |
| 16205 | #{p 4502}#) | |
| 16206 | (#{vquasi 4438}# | |
| 16207 | #{q 4493}# | |
| 16208 | #{lev 4485}#)) | |
| 16209 | (#{quasicons 4440}# | |
| 16210 | (#{quasicons 4440}# | |
| 0f550375 AW |
16211 | '(#(syntax-object |
| 16212 | "quote" | |
| 16213 | ((top) | |
| 16214 | #(ribcage | |
| 16215 | #(p) | |
| 16216 | #((top)) | |
| 1bbe0a63 | 16217 | #("i4501")) |
| 0f550375 AW |
16218 | #(ribcage |
| 16219 | #(p q) | |
| 16220 | #((top) (top)) | |
| 1bbe0a63 | 16221 | #("i4490" "i4491")) |
| 0f550375 AW |
16222 | #(ribcage () () ()) |
| 16223 | #(ribcage | |
| 16224 | #(p lev) | |
| 16225 | #((top) (top)) | |
| 1bbe0a63 | 16226 | #("i4486" "i4487")) |
| 0f550375 AW |
16227 | #(ribcage |
| 16228 | (emit quasivector | |
| 16229 | quasilist* | |
| 16230 | quasiappend | |
| 16231 | quasicons | |
| 16232 | vquasi | |
| 16233 | quasi) | |
| 16234 | ((top) | |
| 16235 | (top) | |
| 16236 | (top) | |
| 16237 | (top) | |
| 16238 | (top) | |
| 16239 | (top) | |
| 16240 | (top)) | |
| 1bbe0a63 AW |
16241 | ("i4447" |
| 16242 | "i4445" | |
| 16243 | "i4443" | |
| 16244 | "i4441" | |
| 16245 | "i4439" | |
| 16246 | "i4437" | |
| 16247 | "i4435"))) | |
| 0f550375 AW |
16248 | (hygiene guile)) |
| 16249 | #(syntax-object | |
| 16250 | unquote-splicing | |
| 16251 | ((top) | |
| 16252 | #(ribcage | |
| 16253 | #(p) | |
| 16254 | #((top)) | |
| 1bbe0a63 | 16255 | #("i4501")) |
| 0f550375 AW |
16256 | #(ribcage |
| 16257 | #(p q) | |
| 16258 | #((top) (top)) | |
| 1bbe0a63 | 16259 | #("i4490" "i4491")) |
| 0f550375 AW |
16260 | #(ribcage () () ()) |
| 16261 | #(ribcage | |
| 16262 | #(p lev) | |
| 16263 | #((top) (top)) | |
| 1bbe0a63 | 16264 | #("i4486" "i4487")) |
| 0f550375 AW |
16265 | #(ribcage |
| 16266 | (emit quasivector | |
| 16267 | quasilist* | |
| 16268 | quasiappend | |
| 16269 | quasicons | |
| 16270 | vquasi | |
| 16271 | quasi) | |
| 16272 | ((top) | |
| 16273 | (top) | |
| 16274 | (top) | |
| 16275 | (top) | |
| 16276 | (top) | |
| 16277 | (top) | |
| 16278 | (top)) | |
| 1bbe0a63 AW |
16279 | ("i4447" |
| 16280 | "i4445" | |
| 16281 | "i4443" | |
| 16282 | "i4441" | |
| 16283 | "i4439" | |
| 16284 | "i4437" | |
| 16285 | "i4435"))) | |
| 0f550375 | 16286 | (hygiene guile))) |
| 1bbe0a63 AW |
16287 | (#{quasi 4436}# |
| 16288 | #{p 4502}# | |
| 16289 | (#{1-}# #{lev 4485}#))) | |
| 16290 | (#{vquasi 4438}# | |
| 16291 | #{q 4493}# | |
| 16292 | #{lev 4485}#)))) | |
| 16293 | #{tmp 4500}#) | |
| 16294 | (let ((#{_ 4506}# #{tmp 4494}#)) | |
| 16295 | (#{quasicons 4440}# | |
| 16296 | (#{quasi 4436}# #{p 4492}# #{lev 4485}#) | |
| 16297 | (#{vquasi 4438}# | |
| 16298 | #{q 4493}# | |
| 16299 | #{lev 4485}#))))))))) | |
| 16300 | #{tmp 4489}#) | |
| 16301 | (let ((#{tmp 4507}# ($sc-dispatch #{tmp 4488}# '()))) | |
| 16302 | (if #{tmp 4507}# | |
| 0f550375 AW |
16303 | (@apply |
| 16304 | (lambda () | |
| 16305 | '(#(syntax-object | |
| 16306 | "quote" | |
| 16307 | ((top) | |
| 16308 | #(ribcage () () ()) | |
| 16309 | #(ribcage | |
| 16310 | #(p lev) | |
| 16311 | #((top) (top)) | |
| 1bbe0a63 | 16312 | #("i4486" "i4487")) |
| 0f550375 AW |
16313 | #(ribcage |
| 16314 | (emit quasivector | |
| 16315 | quasilist* | |
| 16316 | quasiappend | |
| 16317 | quasicons | |
| 16318 | vquasi | |
| 16319 | quasi) | |
| 16320 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
16321 | ("i4447" |
| 16322 | "i4445" | |
| 16323 | "i4443" | |
| 16324 | "i4441" | |
| 16325 | "i4439" | |
| 16326 | "i4437" | |
| 16327 | "i4435"))) | |
| 0f550375 AW |
16328 | (hygiene guile)) |
| 16329 | ())) | |
| 1bbe0a63 | 16330 | #{tmp 4507}#) |
| 0f550375 AW |
16331 | (syntax-violation |
| 16332 | #f | |
| 16333 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
16334 | #{tmp 4488}#)))))))) |
| 16335 | (#{quasicons 4440}# | |
| 16336 | (lambda (#{x 4508}# #{y 4509}#) | |
| 16337 | (let ((#{tmp 4513}# (list #{x 4508}# #{y 4509}#))) | |
| 16338 | (let ((#{tmp 4514}# | |
| 16339 | ($sc-dispatch #{tmp 4513}# '(any any)))) | |
| 16340 | (if #{tmp 4514}# | |
| 0f550375 | 16341 | (@apply |
| 1bbe0a63 AW |
16342 | (lambda (#{x 4517}# #{y 4518}#) |
| 16343 | (let ((#{tmp 4519}# #{y 4518}#)) | |
| 16344 | (let ((#{tmp 4520}# | |
| 0f550375 | 16345 | ($sc-dispatch |
| 1bbe0a63 | 16346 | #{tmp 4519}# |
| 0f550375 | 16347 | '(#(atom "quote") any)))) |
| 1bbe0a63 | 16348 | (if #{tmp 4520}# |
| 417ee098 | 16349 | (@apply |
| 1bbe0a63 AW |
16350 | (lambda (#{dy 4522}#) |
| 16351 | (let ((#{tmp 4523}# #{x 4517}#)) | |
| 16352 | (let ((#{tmp 4524}# | |
| 417ee098 | 16353 | ($sc-dispatch |
| 1bbe0a63 | 16354 | #{tmp 4523}# |
| 0f550375 | 16355 | '(#(atom "quote") any)))) |
| 1bbe0a63 | 16356 | (if #{tmp 4524}# |
| 417ee098 | 16357 | (@apply |
| 1bbe0a63 | 16358 | (lambda (#{dx 4526}#) |
| 417ee098 | 16359 | (list '#(syntax-object |
| 0f550375 | 16360 | "quote" |
| 417ee098 AW |
16361 | ((top) |
| 16362 | #(ribcage | |
| 16363 | #(dx) | |
| 16364 | #((top)) | |
| 1bbe0a63 | 16365 | #("i4525")) |
| 417ee098 AW |
16366 | #(ribcage |
| 16367 | #(dy) | |
| 16368 | #((top)) | |
| 1bbe0a63 | 16369 | #("i4521")) |
| f929b9e5 | 16370 | #(ribcage () () ()) |
| 417ee098 AW |
16371 | #(ribcage |
| 16372 | #(x y) | |
| 16373 | #((top) (top)) | |
| 1bbe0a63 | 16374 | #("i4515" "i4516")) |
| 417ee098 AW |
16375 | #(ribcage () () ()) |
| 16376 | #(ribcage () () ()) | |
| 16377 | #(ribcage | |
| 16378 | #(x y) | |
| 16379 | #((top) (top)) | |
| 1bbe0a63 | 16380 | #("i4510" "i4511")) |
| 417ee098 | 16381 | #(ribcage |
| 0f550375 AW |
16382 | (emit quasivector |
| 16383 | quasilist* | |
| 16384 | quasiappend | |
| 16385 | quasicons | |
| 16386 | vquasi | |
| 16387 | quasi) | |
| 16388 | ((top) | |
| 16389 | (top) | |
| 16390 | (top) | |
| 16391 | (top) | |
| 16392 | (top) | |
| 16393 | (top) | |
| 16394 | (top)) | |
| 1bbe0a63 AW |
16395 | ("i4447" |
| 16396 | "i4445" | |
| 16397 | "i4443" | |
| 16398 | "i4441" | |
| 16399 | "i4439" | |
| 16400 | "i4437" | |
| 16401 | "i4435"))) | |
| 417ee098 | 16402 | (hygiene guile)) |
| 1bbe0a63 AW |
16403 | (cons #{dx 4526}# #{dy 4522}#))) |
| 16404 | #{tmp 4524}#) | |
| 16405 | (let ((#{_ 4528}# #{tmp 4523}#)) | |
| 16406 | (if (null? #{dy 4522}#) | |
| 417ee098 | 16407 | (list '#(syntax-object |
| 0f550375 | 16408 | "list" |
| 417ee098 AW |
16409 | ((top) |
| 16410 | #(ribcage | |
| 16411 | #(_) | |
| 16412 | #((top)) | |
| 1bbe0a63 | 16413 | #("i4527")) |
| 417ee098 AW |
16414 | #(ribcage |
| 16415 | #(dy) | |
| 16416 | #((top)) | |
| 1bbe0a63 | 16417 | #("i4521")) |
| f929b9e5 | 16418 | #(ribcage () () ()) |
| 417ee098 AW |
16419 | #(ribcage |
| 16420 | #(x y) | |
| 16421 | #((top) (top)) | |
| 1bbe0a63 | 16422 | #("i4515" "i4516")) |
| 417ee098 AW |
16423 | #(ribcage () () ()) |
| 16424 | #(ribcage () () ()) | |
| 16425 | #(ribcage | |
| 16426 | #(x y) | |
| 16427 | #((top) (top)) | |
| 1bbe0a63 | 16428 | #("i4510" "i4511")) |
| 417ee098 | 16429 | #(ribcage |
| 0f550375 AW |
16430 | (emit quasivector |
| 16431 | quasilist* | |
| 16432 | quasiappend | |
| 16433 | quasicons | |
| 16434 | vquasi | |
| 16435 | quasi) | |
| 16436 | ((top) | |
| 16437 | (top) | |
| 16438 | (top) | |
| 16439 | (top) | |
| 16440 | (top) | |
| 16441 | (top) | |
| 16442 | (top)) | |
| 1bbe0a63 AW |
16443 | ("i4447" |
| 16444 | "i4445" | |
| 16445 | "i4443" | |
| 16446 | "i4441" | |
| 16447 | "i4439" | |
| 16448 | "i4437" | |
| 16449 | "i4435"))) | |
| 417ee098 | 16450 | (hygiene guile)) |
| 1bbe0a63 | 16451 | #{x 4517}#) |
| 417ee098 | 16452 | (list '#(syntax-object |
| 0f550375 | 16453 | "list*" |
| 417ee098 AW |
16454 | ((top) |
| 16455 | #(ribcage | |
| 16456 | #(_) | |
| 16457 | #((top)) | |
| 1bbe0a63 | 16458 | #("i4527")) |
| 417ee098 AW |
16459 | #(ribcage |
| 16460 | #(dy) | |
| 16461 | #((top)) | |
| 1bbe0a63 | 16462 | #("i4521")) |
| f929b9e5 | 16463 | #(ribcage () () ()) |
| 417ee098 AW |
16464 | #(ribcage |
| 16465 | #(x y) | |
| 16466 | #((top) (top)) | |
| 1bbe0a63 | 16467 | #("i4515" "i4516")) |
| 417ee098 AW |
16468 | #(ribcage () () ()) |
| 16469 | #(ribcage () () ()) | |
| 16470 | #(ribcage | |
| 16471 | #(x y) | |
| 16472 | #((top) (top)) | |
| 1bbe0a63 | 16473 | #("i4510" "i4511")) |
| 417ee098 | 16474 | #(ribcage |
| 0f550375 AW |
16475 | (emit quasivector |
| 16476 | quasilist* | |
| 16477 | quasiappend | |
| 16478 | quasicons | |
| 16479 | vquasi | |
| 16480 | quasi) | |
| 16481 | ((top) | |
| 16482 | (top) | |
| 16483 | (top) | |
| 16484 | (top) | |
| 16485 | (top) | |
| 16486 | (top) | |
| 16487 | (top)) | |
| 1bbe0a63 AW |
16488 | ("i4447" |
| 16489 | "i4445" | |
| 16490 | "i4443" | |
| 16491 | "i4441" | |
| 16492 | "i4439" | |
| 16493 | "i4437" | |
| 16494 | "i4435"))) | |
| 417ee098 | 16495 | (hygiene guile)) |
| 1bbe0a63 AW |
16496 | #{x 4517}# |
| 16497 | #{y 4518}#))))))) | |
| 16498 | #{tmp 4520}#) | |
| 16499 | (let ((#{tmp 4529}# | |
| 417ee098 | 16500 | ($sc-dispatch |
| 1bbe0a63 | 16501 | #{tmp 4519}# |
| 0f550375 | 16502 | '(#(atom "list") . any)))) |
| 1bbe0a63 | 16503 | (if #{tmp 4529}# |
| 417ee098 | 16504 | (@apply |
| 1bbe0a63 | 16505 | (lambda (#{stuff 4531}#) |
| 417ee098 | 16506 | (cons '#(syntax-object |
| 0f550375 | 16507 | "list" |
| 417ee098 AW |
16508 | ((top) |
| 16509 | #(ribcage | |
| 16510 | #(stuff) | |
| 16511 | #((top)) | |
| 1bbe0a63 | 16512 | #("i4530")) |
| f929b9e5 | 16513 | #(ribcage () () ()) |
| 417ee098 AW |
16514 | #(ribcage |
| 16515 | #(x y) | |
| 16516 | #((top) (top)) | |
| 1bbe0a63 | 16517 | #("i4515" "i4516")) |
| 417ee098 AW |
16518 | #(ribcage () () ()) |
| 16519 | #(ribcage () () ()) | |
| 16520 | #(ribcage | |
| 16521 | #(x y) | |
| 16522 | #((top) (top)) | |
| 1bbe0a63 | 16523 | #("i4510" "i4511")) |
| 417ee098 | 16524 | #(ribcage |
| 0f550375 AW |
16525 | (emit quasivector |
| 16526 | quasilist* | |
| 16527 | quasiappend | |
| 16528 | quasicons | |
| 16529 | vquasi | |
| 16530 | quasi) | |
| 16531 | ((top) | |
| 16532 | (top) | |
| 16533 | (top) | |
| 16534 | (top) | |
| 16535 | (top) | |
| 16536 | (top) | |
| 16537 | (top)) | |
| 1bbe0a63 AW |
16538 | ("i4447" |
| 16539 | "i4445" | |
| 16540 | "i4443" | |
| 16541 | "i4441" | |
| 16542 | "i4439" | |
| 16543 | "i4437" | |
| 16544 | "i4435"))) | |
| 417ee098 | 16545 | (hygiene guile)) |
| 1bbe0a63 AW |
16546 | (cons #{x 4517}# #{stuff 4531}#))) |
| 16547 | #{tmp 4529}#) | |
| 16548 | (let ((#{tmp 4532}# | |
| 0f550375 | 16549 | ($sc-dispatch |
| 1bbe0a63 | 16550 | #{tmp 4519}# |
| 0f550375 | 16551 | '(#(atom "list*") . any)))) |
| 1bbe0a63 | 16552 | (if #{tmp 4532}# |
| 0f550375 | 16553 | (@apply |
| 1bbe0a63 | 16554 | (lambda (#{stuff 4534}#) |
| 0f550375 AW |
16555 | (cons '#(syntax-object |
| 16556 | "list*" | |
| 16557 | ((top) | |
| 16558 | #(ribcage | |
| 16559 | #(stuff) | |
| 16560 | #((top)) | |
| 1bbe0a63 | 16561 | #("i4533")) |
| f929b9e5 | 16562 | #(ribcage () () ()) |
| 0f550375 AW |
16563 | #(ribcage |
| 16564 | #(x y) | |
| 16565 | #((top) (top)) | |
| 1bbe0a63 | 16566 | #("i4515" "i4516")) |
| 0f550375 AW |
16567 | #(ribcage () () ()) |
| 16568 | #(ribcage () () ()) | |
| 16569 | #(ribcage | |
| 16570 | #(x y) | |
| 16571 | #((top) (top)) | |
| 1bbe0a63 | 16572 | #("i4510" "i4511")) |
| 0f550375 AW |
16573 | #(ribcage |
| 16574 | (emit quasivector | |
| 16575 | quasilist* | |
| 16576 | quasiappend | |
| 16577 | quasicons | |
| 16578 | vquasi | |
| 16579 | quasi) | |
| 16580 | ((top) | |
| 16581 | (top) | |
| 16582 | (top) | |
| 16583 | (top) | |
| 16584 | (top) | |
| 16585 | (top) | |
| 16586 | (top)) | |
| 1bbe0a63 AW |
16587 | ("i4447" |
| 16588 | "i4445" | |
| 16589 | "i4443" | |
| 16590 | "i4441" | |
| 16591 | "i4439" | |
| 16592 | "i4437" | |
| 16593 | "i4435"))) | |
| 0f550375 | 16594 | (hygiene guile)) |
| 1bbe0a63 AW |
16595 | (cons #{x 4517}# #{stuff 4534}#))) |
| 16596 | #{tmp 4532}#) | |
| 16597 | (let ((#{_ 4536}# #{tmp 4519}#)) | |
| 0f550375 AW |
16598 | (list '#(syntax-object |
| 16599 | "list*" | |
| 16600 | ((top) | |
| 16601 | #(ribcage | |
| 16602 | #(_) | |
| 16603 | #((top)) | |
| 1bbe0a63 | 16604 | #("i4535")) |
| f929b9e5 | 16605 | #(ribcage () () ()) |
| 0f550375 AW |
16606 | #(ribcage |
| 16607 | #(x y) | |
| 16608 | #((top) (top)) | |
| 1bbe0a63 | 16609 | #("i4515" "i4516")) |
| 0f550375 AW |
16610 | #(ribcage () () ()) |
| 16611 | #(ribcage () () ()) | |
| 16612 | #(ribcage | |
| 16613 | #(x y) | |
| 16614 | #((top) (top)) | |
| 1bbe0a63 | 16615 | #("i4510" "i4511")) |
| 0f550375 AW |
16616 | #(ribcage |
| 16617 | (emit quasivector | |
| 16618 | quasilist* | |
| 16619 | quasiappend | |
| 16620 | quasicons | |
| 16621 | vquasi | |
| 16622 | quasi) | |
| 16623 | ((top) | |
| 16624 | (top) | |
| 16625 | (top) | |
| 16626 | (top) | |
| 16627 | (top) | |
| 16628 | (top) | |
| 16629 | (top)) | |
| 1bbe0a63 AW |
16630 | ("i4447" |
| 16631 | "i4445" | |
| 16632 | "i4443" | |
| 16633 | "i4441" | |
| 16634 | "i4439" | |
| 16635 | "i4437" | |
| 16636 | "i4435"))) | |
| 0f550375 | 16637 | (hygiene guile)) |
| 1bbe0a63 AW |
16638 | #{x 4517}# |
| 16639 | #{y 4518}#)))))))))) | |
| 16640 | #{tmp 4514}#) | |
| 417ee098 AW |
16641 | (syntax-violation |
| 16642 | #f | |
| 16643 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
16644 | #{tmp 4513}#)))))) |
| 16645 | (#{quasiappend 4442}# | |
| 16646 | (lambda (#{x 4537}# #{y 4538}#) | |
| 16647 | (let ((#{tmp 4541}# #{y 4538}#)) | |
| 16648 | (let ((#{tmp 4542}# | |
| 16649 | ($sc-dispatch #{tmp 4541}# '(#(atom "quote") ())))) | |
| 16650 | (if #{tmp 4542}# | |
| 417ee098 | 16651 | (@apply |
| 0f550375 | 16652 | (lambda () |
| 1bbe0a63 | 16653 | (if (null? #{x 4537}#) |
| 0f550375 AW |
16654 | '(#(syntax-object |
| 16655 | "quote" | |
| 16656 | ((top) | |
| 16657 | #(ribcage () () ()) | |
| 16658 | #(ribcage | |
| 16659 | #(x y) | |
| 16660 | #((top) (top)) | |
| 1bbe0a63 | 16661 | #("i4539" "i4540")) |
| 0f550375 AW |
16662 | #(ribcage |
| 16663 | (emit quasivector | |
| 16664 | quasilist* | |
| 16665 | quasiappend | |
| 16666 | quasicons | |
| 16667 | vquasi | |
| 16668 | quasi) | |
| 16669 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
16670 | ("i4447" |
| 16671 | "i4445" | |
| 16672 | "i4443" | |
| 16673 | "i4441" | |
| 16674 | "i4439" | |
| 16675 | "i4437" | |
| 16676 | "i4435"))) | |
| 0f550375 AW |
16677 | (hygiene guile)) |
| 16678 | ()) | |
| 1bbe0a63 AW |
16679 | (if (null? (cdr #{x 4537}#)) |
| 16680 | (car #{x 4537}#) | |
| 16681 | (let ((#{tmp 4549}# #{x 4537}#)) | |
| 16682 | (let ((#{tmp 4550}# | |
| 16683 | ($sc-dispatch #{tmp 4549}# 'each-any))) | |
| 16684 | (if #{tmp 4550}# | |
| 0f550375 | 16685 | (@apply |
| 1bbe0a63 | 16686 | (lambda (#{p 4552}#) |
| 417ee098 | 16687 | (cons '#(syntax-object |
| 0f550375 | 16688 | "append" |
| 417ee098 | 16689 | ((top) |
| f929b9e5 | 16690 | #(ribcage () () ()) |
| 417ee098 | 16691 | #(ribcage |
| 0f550375 AW |
16692 | #(p) |
| 16693 | #((top)) | |
| 1bbe0a63 | 16694 | #("i4551")) |
| 417ee098 AW |
16695 | #(ribcage () () ()) |
| 16696 | #(ribcage | |
| 0f550375 | 16697 | #(x y) |
| 417ee098 | 16698 | #((top) (top)) |
| 1bbe0a63 | 16699 | #("i4539" "i4540")) |
| 417ee098 | 16700 | #(ribcage |
| 0f550375 AW |
16701 | (emit quasivector |
| 16702 | quasilist* | |
| 16703 | quasiappend | |
| 16704 | quasicons | |
| 16705 | vquasi | |
| 16706 | quasi) | |
| 16707 | ((top) | |
| 16708 | (top) | |
| 16709 | (top) | |
| 16710 | (top) | |
| 16711 | (top) | |
| 16712 | (top) | |
| 16713 | (top)) | |
| 1bbe0a63 AW |
16714 | ("i4447" |
| 16715 | "i4445" | |
| 16716 | "i4443" | |
| 16717 | "i4441" | |
| 16718 | "i4439" | |
| 16719 | "i4437" | |
| 16720 | "i4435"))) | |
| 0f550375 | 16721 | (hygiene guile)) |
| 1bbe0a63 AW |
16722 | #{p 4552}#)) |
| 16723 | #{tmp 4550}#) | |
| 0f550375 AW |
16724 | (syntax-violation |
| 16725 | #f | |
| 16726 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
16727 | #{tmp 4549}#))))))) |
| 16728 | #{tmp 4542}#) | |
| 16729 | (let ((#{_ 4555}# #{tmp 4541}#)) | |
| 16730 | (if (null? #{x 4537}#) | |
| 16731 | #{y 4538}# | |
| 16732 | (let ((#{tmp 4560}# (list #{x 4537}# #{y 4538}#))) | |
| 16733 | (let ((#{tmp 4561}# | |
| 16734 | ($sc-dispatch #{tmp 4560}# '(each-any any)))) | |
| 16735 | (if #{tmp 4561}# | |
| 0f550375 | 16736 | (@apply |
| 1bbe0a63 | 16737 | (lambda (#{p 4564}# #{y 4565}#) |
| 0f550375 AW |
16738 | (cons '#(syntax-object |
| 16739 | "append" | |
| 16740 | ((top) | |
| f929b9e5 | 16741 | #(ribcage () () ()) |
| 0f550375 AW |
16742 | #(ribcage |
| 16743 | #(p y) | |
| 16744 | #((top) (top)) | |
| 1bbe0a63 AW |
16745 | #("i4562" "i4563")) |
| 16746 | #(ribcage #(_) #((top)) #("i4554")) | |
| 0f550375 AW |
16747 | #(ribcage () () ()) |
| 16748 | #(ribcage | |
| 16749 | #(x y) | |
| 16750 | #((top) (top)) | |
| 1bbe0a63 | 16751 | #("i4539" "i4540")) |
| 0f550375 AW |
16752 | #(ribcage |
| 16753 | (emit quasivector | |
| 16754 | quasilist* | |
| 417ee098 | 16755 | quasiappend |
| 0f550375 AW |
16756 | quasicons |
| 16757 | vquasi | |
| 417ee098 | 16758 | quasi) |
| 417ee098 | 16759 | ((top) |
| 0f550375 AW |
16760 | (top) |
| 16761 | (top) | |
| 16762 | (top) | |
| 16763 | (top) | |
| 16764 | (top) | |
| 16765 | (top)) | |
| 1bbe0a63 AW |
16766 | ("i4447" |
| 16767 | "i4445" | |
| 16768 | "i4443" | |
| 16769 | "i4441" | |
| 16770 | "i4439" | |
| 16771 | "i4437" | |
| 16772 | "i4435"))) | |
| 0f550375 | 16773 | (hygiene guile)) |
| 1bbe0a63 AW |
16774 | (append #{p 4564}# (list #{y 4565}#)))) |
| 16775 | #{tmp 4561}#) | |
| 0f550375 AW |
16776 | (syntax-violation |
| 16777 | #f | |
| 16778 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
16779 | #{tmp 4560}#))))))))))) |
| 16780 | (#{quasilist* 4444}# | |
| 16781 | (lambda (#{x 4567}# #{y 4568}#) | |
| 0f550375 | 16782 | (letrec* |
| 1bbe0a63 AW |
16783 | ((#{f 4573}# |
| 16784 | (lambda (#{x 4574}#) | |
| 16785 | (if (null? #{x 4574}#) | |
| 16786 | #{y 4568}# | |
| 16787 | (#{quasicons 4440}# | |
| 16788 | (car #{x 4574}#) | |
| 16789 | (#{f 4573}# (cdr #{x 4574}#))))))) | |
| 16790 | (begin (#{f 4573}# #{x 4567}#))))) | |
| 16791 | (#{quasivector 4446}# | |
| 16792 | (lambda (#{x 4575}#) | |
| 16793 | (let ((#{tmp 4577}# #{x 4575}#)) | |
| 16794 | (let ((#{tmp 4578}# | |
| 0f550375 | 16795 | ($sc-dispatch |
| 1bbe0a63 | 16796 | #{tmp 4577}# |
| 0f550375 | 16797 | '(#(atom "quote") each-any)))) |
| 1bbe0a63 | 16798 | (if #{tmp 4578}# |
| 0f550375 | 16799 | (@apply |
| 1bbe0a63 | 16800 | (lambda (#{x 4580}#) |
| 0f550375 AW |
16801 | (list '#(syntax-object |
| 16802 | "quote" | |
| 16803 | ((top) | |
| 1bbe0a63 | 16804 | #(ribcage #(x) #((top)) #("i4579")) |
| 0f550375 | 16805 | #(ribcage () () ()) |
| 1bbe0a63 | 16806 | #(ribcage #(x) #((top)) #("i4576")) |
| 0f550375 AW |
16807 | #(ribcage |
| 16808 | (emit quasivector | |
| 16809 | quasilist* | |
| 16810 | quasiappend | |
| 16811 | quasicons | |
| 16812 | vquasi | |
| 16813 | quasi) | |
| 16814 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
16815 | ("i4447" |
| 16816 | "i4445" | |
| 16817 | "i4443" | |
| 16818 | "i4441" | |
| 16819 | "i4439" | |
| 16820 | "i4437" | |
| 16821 | "i4435"))) | |
| 0f550375 | 16822 | (hygiene guile)) |
| 1bbe0a63 AW |
16823 | (list->vector #{x 4580}#))) |
| 16824 | #{tmp 4578}#) | |
| 16825 | (let ((#{_ 4583}# #{tmp 4577}#)) | |
| 0f550375 | 16826 | (letrec* |
| 1bbe0a63 AW |
16827 | ((#{f 4587}# |
| 16828 | (lambda (#{y 4588}# #{k 4589}#) | |
| 16829 | (let ((#{tmp 4600}# #{y 4588}#)) | |
| 16830 | (let ((#{tmp 4601}# | |
| 0f550375 | 16831 | ($sc-dispatch |
| 1bbe0a63 | 16832 | #{tmp 4600}# |
| 0f550375 | 16833 | '(#(atom "quote") each-any)))) |
| 1bbe0a63 | 16834 | (if #{tmp 4601}# |
| 0f550375 | 16835 | (@apply |
| 1bbe0a63 AW |
16836 | (lambda (#{y 4603}#) |
| 16837 | (#{k 4589}# | |
| 16838 | (map (lambda (#{tmp 4604}#) | |
| 0f550375 AW |
16839 | (list '#(syntax-object |
| 16840 | "quote" | |
| 16841 | ((top) | |
| 16842 | #(ribcage | |
| 16843 | #(y) | |
| 16844 | #((top)) | |
| 1bbe0a63 | 16845 | #("i4602")) |
| 0f550375 AW |
16846 | #(ribcage () () ()) |
| 16847 | #(ribcage | |
| 16848 | #(f y k) | |
| 16849 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
16850 | #("i4584" |
| 16851 | "i4585" | |
| 16852 | "i4586")) | |
| 0f550375 AW |
16853 | #(ribcage |
| 16854 | #(_) | |
| 16855 | #((top)) | |
| 1bbe0a63 | 16856 | #("i4582")) |
| 0f550375 AW |
16857 | #(ribcage () () ()) |
| 16858 | #(ribcage | |
| 16859 | #(x) | |
| 16860 | #((top)) | |
| 1bbe0a63 | 16861 | #("i4576")) |
| 0f550375 AW |
16862 | #(ribcage |
| 16863 | (emit quasivector | |
| 16864 | quasilist* | |
| 16865 | quasiappend | |
| 16866 | quasicons | |
| 16867 | vquasi | |
| 16868 | quasi) | |
| 16869 | ((top) | |
| 16870 | (top) | |
| 16871 | (top) | |
| 16872 | (top) | |
| 16873 | (top) | |
| 16874 | (top) | |
| 16875 | (top)) | |
| 1bbe0a63 AW |
16876 | ("i4447" |
| 16877 | "i4445" | |
| 16878 | "i4443" | |
| 16879 | "i4441" | |
| 16880 | "i4439" | |
| 16881 | "i4437" | |
| 16882 | "i4435"))) | |
| 0f550375 | 16883 | (hygiene guile)) |
| 1bbe0a63 AW |
16884 | #{tmp 4604}#)) |
| 16885 | #{y 4603}#))) | |
| 16886 | #{tmp 4601}#) | |
| 16887 | (let ((#{tmp 4605}# | |
| 0f550375 | 16888 | ($sc-dispatch |
| 1bbe0a63 | 16889 | #{tmp 4600}# |
| 0f550375 | 16890 | '(#(atom "list") . each-any)))) |
| 1bbe0a63 | 16891 | (if #{tmp 4605}# |
| 0f550375 | 16892 | (@apply |
| 1bbe0a63 AW |
16893 | (lambda (#{y 4607}#) |
| 16894 | (#{k 4589}# #{y 4607}#)) | |
| 16895 | #{tmp 4605}#) | |
| 16896 | (let ((#{tmp 4609}# | |
| 0f550375 | 16897 | ($sc-dispatch |
| 1bbe0a63 | 16898 | #{tmp 4600}# |
| 0f550375 AW |
16899 | '(#(atom "list*") |
| 16900 | . | |
| 16901 | #(each+ any (any) ()))))) | |
| 1bbe0a63 | 16902 | (if #{tmp 4609}# |
| 0f550375 | 16903 | (@apply |
| 1bbe0a63 AW |
16904 | (lambda (#{y 4612}# #{z 4613}#) |
| 16905 | (#{f 4587}# | |
| 16906 | #{z 4613}# | |
| 16907 | (lambda (#{ls 4614}#) | |
| 16908 | (#{k 4589}# | |
| 0f550375 | 16909 | (append |
| 1bbe0a63 AW |
16910 | #{y 4612}# |
| 16911 | #{ls 4614}#))))) | |
| 16912 | #{tmp 4609}#) | |
| 16913 | (let ((#{else 4618}# #{tmp 4600}#)) | |
| 16914 | (let ((#{tmp 4622}# #{x 4575}#)) | |
| 16915 | (let ((#{ g4619 4624}# | |
| 16916 | #{tmp 4622}#)) | |
| 0f550375 AW |
16917 | (list '#(syntax-object |
| 16918 | "list->vector" | |
| 16919 | ((top) | |
| f929b9e5 | 16920 | #(ribcage () () ()) |
| 0f550375 | 16921 | #(ribcage |
| 1bbe0a63 AW |
16922 | #(#{ g4619}#) |
| 16923 | #((m4620 top)) | |
| 16924 | #("i4623")) | |
| 0f550375 AW |
16925 | #(ribcage |
| 16926 | #(else) | |
| 16927 | #((top)) | |
| 1bbe0a63 | 16928 | #("i4617")) |
| 0f550375 AW |
16929 | #(ribcage () () ()) |
| 16930 | #(ribcage | |
| 16931 | #(f y k) | |
| 16932 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
16933 | #("i4584" |
| 16934 | "i4585" | |
| 16935 | "i4586")) | |
| 0f550375 AW |
16936 | #(ribcage |
| 16937 | #(_) | |
| 16938 | #((top)) | |
| 1bbe0a63 | 16939 | #("i4582")) |
| 0f550375 AW |
16940 | #(ribcage () () ()) |
| 16941 | #(ribcage | |
| 16942 | #(x) | |
| 16943 | #((top)) | |
| 1bbe0a63 | 16944 | #("i4576")) |
| 0f550375 AW |
16945 | #(ribcage |
| 16946 | (emit quasivector | |
| 16947 | quasilist* | |
| 16948 | quasiappend | |
| 16949 | quasicons | |
| 16950 | vquasi | |
| 16951 | quasi) | |
| 16952 | ((top) | |
| 16953 | (top) | |
| 16954 | (top) | |
| 16955 | (top) | |
| 16956 | (top) | |
| 16957 | (top) | |
| 16958 | (top)) | |
| 1bbe0a63 AW |
16959 | ("i4447" |
| 16960 | "i4445" | |
| 16961 | "i4443" | |
| 16962 | "i4441" | |
| 16963 | "i4439" | |
| 16964 | "i4437" | |
| 16965 | "i4435"))) | |
| 0f550375 | 16966 | (hygiene guile)) |
| 1bbe0a63 | 16967 | #{ g4619 4624}#)))))))))))))) |
| 0f550375 | 16968 | (begin |
| 1bbe0a63 AW |
16969 | (#{f 4587}# |
| 16970 | #{x 4575}# | |
| 16971 | (lambda (#{ls 4590}#) | |
| 16972 | (let ((#{tmp 4595}# #{ls 4590}#)) | |
| 16973 | (let ((#{tmp 4596}# | |
| 16974 | ($sc-dispatch #{tmp 4595}# 'each-any))) | |
| 16975 | (if #{tmp 4596}# | |
| 0f550375 | 16976 | (@apply |
| 1bbe0a63 | 16977 | (lambda (#{ g4592 4598}#) |
| 0f550375 AW |
16978 | (cons '#(syntax-object |
| 16979 | "vector" | |
| 16980 | ((top) | |
| f929b9e5 | 16981 | #(ribcage () () ()) |
| 0f550375 | 16982 | #(ribcage |
| 1bbe0a63 AW |
16983 | #(#{ g4592}#) |
| 16984 | #((m4593 top)) | |
| 16985 | #("i4597")) | |
| 0f550375 AW |
16986 | #(ribcage () () ()) |
| 16987 | #(ribcage () () ()) | |
| 16988 | #(ribcage () () ()) | |
| 16989 | #(ribcage | |
| 16990 | #(ls) | |
| 16991 | #((top)) | |
| 1bbe0a63 | 16992 | #("i4591")) |
| 0f550375 AW |
16993 | #(ribcage |
| 16994 | #(_) | |
| 16995 | #((top)) | |
| 1bbe0a63 | 16996 | #("i4582")) |
| 0f550375 AW |
16997 | #(ribcage () () ()) |
| 16998 | #(ribcage | |
| 16999 | #(x) | |
| 17000 | #((top)) | |
| 1bbe0a63 | 17001 | #("i4576")) |
| 0f550375 AW |
17002 | #(ribcage |
| 17003 | (emit quasivector | |
| 17004 | quasilist* | |
| 17005 | quasiappend | |
| 17006 | quasicons | |
| 17007 | vquasi | |
| 17008 | quasi) | |
| 17009 | ((top) | |
| 17010 | (top) | |
| 17011 | (top) | |
| 17012 | (top) | |
| 17013 | (top) | |
| 17014 | (top) | |
| 17015 | (top)) | |
| 1bbe0a63 AW |
17016 | ("i4447" |
| 17017 | "i4445" | |
| 17018 | "i4443" | |
| 17019 | "i4441" | |
| 17020 | "i4439" | |
| 17021 | "i4437" | |
| 17022 | "i4435"))) | |
| 0f550375 | 17023 | (hygiene guile)) |
| 1bbe0a63 AW |
17024 | #{ g4592 4598}#)) |
| 17025 | #{tmp 4596}#) | |
| 0f550375 AW |
17026 | (syntax-violation |
| 17027 | #f | |
| 17028 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
17029 | #{tmp 4595}#)))))))))))))) |
| 17030 | (#{emit 4448}# | |
| 17031 | (lambda (#{x 4625}#) | |
| 17032 | (let ((#{tmp 4627}# #{x 4625}#)) | |
| 17033 | (let ((#{tmp 4628}# | |
| 0f550375 | 17034 | ($sc-dispatch |
| 1bbe0a63 | 17035 | #{tmp 4627}# |
| 0f550375 | 17036 | '(#(atom "quote") any)))) |
| 1bbe0a63 | 17037 | (if #{tmp 4628}# |
| 0f550375 | 17038 | (@apply |
| 1bbe0a63 | 17039 | (lambda (#{x 4630}#) |
| 0f550375 AW |
17040 | (list '#(syntax-object |
| 17041 | quote | |
| 17042 | ((top) | |
| 1bbe0a63 | 17043 | #(ribcage #(x) #((top)) #("i4629")) |
| 0f550375 | 17044 | #(ribcage () () ()) |
| 1bbe0a63 | 17045 | #(ribcage #(x) #((top)) #("i4626")) |
| 0f550375 AW |
17046 | #(ribcage |
| 17047 | (emit quasivector | |
| 17048 | quasilist* | |
| 17049 | quasiappend | |
| 17050 | quasicons | |
| 17051 | vquasi | |
| 17052 | quasi) | |
| 17053 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
17054 | ("i4447" |
| 17055 | "i4445" | |
| 17056 | "i4443" | |
| 17057 | "i4441" | |
| 17058 | "i4439" | |
| 17059 | "i4437" | |
| 17060 | "i4435"))) | |
| 0f550375 | 17061 | (hygiene guile)) |
| 1bbe0a63 AW |
17062 | #{x 4630}#)) |
| 17063 | #{tmp 4628}#) | |
| 17064 | (let ((#{tmp 4631}# | |
| 0f550375 | 17065 | ($sc-dispatch |
| 1bbe0a63 | 17066 | #{tmp 4627}# |
| 0f550375 | 17067 | '(#(atom "list") . each-any)))) |
| 1bbe0a63 | 17068 | (if #{tmp 4631}# |
| 0f550375 | 17069 | (@apply |
| 1bbe0a63 AW |
17070 | (lambda (#{x 4633}#) |
| 17071 | (let ((#{tmp 4637}# (map #{emit 4448}# #{x 4633}#))) | |
| 17072 | (let ((#{tmp 4638}# | |
| 17073 | ($sc-dispatch #{tmp 4637}# 'each-any))) | |
| 17074 | (if #{tmp 4638}# | |
| 0f550375 | 17075 | (@apply |
| 1bbe0a63 | 17076 | (lambda (#{ g4634 4640}#) |
| 0f550375 AW |
17077 | (cons '#(syntax-object |
| 17078 | list | |
| 17079 | ((top) | |
| f929b9e5 | 17080 | #(ribcage () () ()) |
| 0f550375 | 17081 | #(ribcage |
| 1bbe0a63 AW |
17082 | #(#{ g4634}#) |
| 17083 | #((m4635 top)) | |
| 17084 | #("i4639")) | |
| 0f550375 AW |
17085 | #(ribcage |
| 17086 | #(x) | |
| 17087 | #((top)) | |
| 1bbe0a63 | 17088 | #("i4632")) |
| 0f550375 AW |
17089 | #(ribcage () () ()) |
| 17090 | #(ribcage | |
| 17091 | #(x) | |
| 17092 | #((top)) | |
| 1bbe0a63 | 17093 | #("i4626")) |
| 0f550375 AW |
17094 | #(ribcage |
| 17095 | (emit quasivector | |
| 17096 | quasilist* | |
| 17097 | quasiappend | |
| 17098 | quasicons | |
| 17099 | vquasi | |
| 17100 | quasi) | |
| 17101 | ((top) | |
| 17102 | (top) | |
| 17103 | (top) | |
| 17104 | (top) | |
| 17105 | (top) | |
| 17106 | (top) | |
| 17107 | (top)) | |
| 1bbe0a63 AW |
17108 | ("i4447" |
| 17109 | "i4445" | |
| 17110 | "i4443" | |
| 17111 | "i4441" | |
| 17112 | "i4439" | |
| 17113 | "i4437" | |
| 17114 | "i4435"))) | |
| 0f550375 | 17115 | (hygiene guile)) |
| 1bbe0a63 AW |
17116 | #{ g4634 4640}#)) |
| 17117 | #{tmp 4638}#) | |
| 0f550375 AW |
17118 | (syntax-violation |
| 17119 | #f | |
| 17120 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
17121 | #{tmp 4637}#))))) |
| 17122 | #{tmp 4631}#) | |
| 17123 | (let ((#{tmp 4643}# | |
| 0f550375 | 17124 | ($sc-dispatch |
| 1bbe0a63 | 17125 | #{tmp 4627}# |
| 0f550375 | 17126 | '(#(atom "list*") . #(each+ any (any) ()))))) |
| 1bbe0a63 | 17127 | (if #{tmp 4643}# |
| 0f550375 | 17128 | (@apply |
| 1bbe0a63 | 17129 | (lambda (#{x 4646}# #{y 4647}#) |
| 0f550375 | 17130 | (letrec* |
| 1bbe0a63 AW |
17131 | ((#{f 4650}# |
| 17132 | (lambda (#{x* 4651}#) | |
| 17133 | (if (null? #{x* 4651}#) | |
| 17134 | (#{emit 4448}# #{y 4647}#) | |
| 17135 | (let ((#{tmp 4657}# | |
| 17136 | (list (#{emit 4448}# | |
| 17137 | (car #{x* 4651}#)) | |
| 17138 | (#{f 4650}# | |
| 17139 | (cdr #{x* 4651}#))))) | |
| 17140 | (let ((#{tmp 4658}# | |
| 0f550375 | 17141 | ($sc-dispatch |
| 1bbe0a63 | 17142 | #{tmp 4657}# |
| 0f550375 | 17143 | '(any any)))) |
| 1bbe0a63 | 17144 | (if #{tmp 4658}# |
| 0f550375 | 17145 | (@apply |
| 1bbe0a63 AW |
17146 | (lambda (#{ g4654 4661}# |
| 17147 | #{ g4653 4662}#) | |
| 0f550375 AW |
17148 | (list '#(syntax-object |
| 17149 | cons | |
| 17150 | ((top) | |
| f929b9e5 | 17151 | #(ribcage () () ()) |
| 0f550375 | 17152 | #(ribcage |
| 1bbe0a63 AW |
17153 | #(#{ g4654}# |
| 17154 | #{ g4653}#) | |
| 17155 | #((m4655 top) | |
| 17156 | (m4655 top)) | |
| 17157 | #("i4659" "i4660")) | |
| 0f550375 AW |
17158 | #(ribcage () () ()) |
| 17159 | #(ribcage | |
| 17160 | #(f x*) | |
| 17161 | #((top) (top)) | |
| 1bbe0a63 | 17162 | #("i4648" "i4649")) |
| 0f550375 AW |
17163 | #(ribcage |
| 17164 | #(x y) | |
| 17165 | #((top) (top)) | |
| 1bbe0a63 | 17166 | #("i4644" "i4645")) |
| 0f550375 AW |
17167 | #(ribcage () () ()) |
| 17168 | #(ribcage | |
| 17169 | #(x) | |
| 17170 | #((top)) | |
| 1bbe0a63 | 17171 | #("i4626")) |
| 0f550375 AW |
17172 | #(ribcage |
| 17173 | (emit quasivector | |
| 17174 | quasilist* | |
| 17175 | quasiappend | |
| 17176 | quasicons | |
| 17177 | vquasi | |
| 17178 | quasi) | |
| 17179 | ((top) | |
| 17180 | (top) | |
| 17181 | (top) | |
| 17182 | (top) | |
| 17183 | (top) | |
| 17184 | (top) | |
| 17185 | (top)) | |
| 1bbe0a63 AW |
17186 | ("i4447" |
| 17187 | "i4445" | |
| 17188 | "i4443" | |
| 17189 | "i4441" | |
| 17190 | "i4439" | |
| 17191 | "i4437" | |
| 17192 | "i4435"))) | |
| 0f550375 | 17193 | (hygiene guile)) |
| 1bbe0a63 AW |
17194 | #{ g4654 4661}# |
| 17195 | #{ g4653 4662}#)) | |
| 17196 | #{tmp 4658}#) | |
| 0f550375 AW |
17197 | (syntax-violation |
| 17198 | #f | |
| 17199 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
17200 | #{tmp 4657}#)))))))) |
| 17201 | (begin (#{f 4650}# #{x 4646}#)))) | |
| 17202 | #{tmp 4643}#) | |
| 17203 | (let ((#{tmp 4663}# | |
| 0f550375 | 17204 | ($sc-dispatch |
| 1bbe0a63 | 17205 | #{tmp 4627}# |
| 0f550375 | 17206 | '(#(atom "append") . each-any)))) |
| 1bbe0a63 | 17207 | (if #{tmp 4663}# |
| 0f550375 | 17208 | (@apply |
| 1bbe0a63 AW |
17209 | (lambda (#{x 4665}#) |
| 17210 | (let ((#{tmp 4669}# | |
| 17211 | (map #{emit 4448}# #{x 4665}#))) | |
| 17212 | (let ((#{tmp 4670}# | |
| 0f550375 | 17213 | ($sc-dispatch |
| 1bbe0a63 | 17214 | #{tmp 4669}# |
| 0f550375 | 17215 | 'each-any))) |
| 1bbe0a63 | 17216 | (if #{tmp 4670}# |
| 0f550375 | 17217 | (@apply |
| 1bbe0a63 | 17218 | (lambda (#{ g4666 4672}#) |
| 0f550375 AW |
17219 | (cons '#(syntax-object |
| 17220 | append | |
| 417ee098 | 17221 | ((top) |
| f929b9e5 | 17222 | #(ribcage () () ()) |
| 417ee098 | 17223 | #(ribcage |
| 1bbe0a63 AW |
17224 | #(#{ g4666}#) |
| 17225 | #((m4667 top)) | |
| 17226 | #("i4671")) | |
| 0f550375 AW |
17227 | #(ribcage |
| 17228 | #(x) | |
| 417ee098 | 17229 | #((top)) |
| 1bbe0a63 | 17230 | #("i4664")) |
| 417ee098 AW |
17231 | #(ribcage () () ()) |
| 17232 | #(ribcage | |
| 0f550375 AW |
17233 | #(x) |
| 17234 | #((top)) | |
| 1bbe0a63 | 17235 | #("i4626")) |
| 417ee098 | 17236 | #(ribcage |
| 0f550375 AW |
17237 | (emit quasivector |
| 17238 | quasilist* | |
| 17239 | quasiappend | |
| 17240 | quasicons | |
| 17241 | vquasi | |
| 17242 | quasi) | |
| 17243 | ((top) | |
| 17244 | (top) | |
| 17245 | (top) | |
| 17246 | (top) | |
| 17247 | (top) | |
| 17248 | (top) | |
| 17249 | (top)) | |
| 1bbe0a63 AW |
17250 | ("i4447" |
| 17251 | "i4445" | |
| 17252 | "i4443" | |
| 17253 | "i4441" | |
| 17254 | "i4439" | |
| 17255 | "i4437" | |
| 17256 | "i4435"))) | |
| 417ee098 | 17257 | (hygiene guile)) |
| 1bbe0a63 AW |
17258 | #{ g4666 4672}#)) |
| 17259 | #{tmp 4670}#) | |
| 0f550375 AW |
17260 | (syntax-violation |
| 17261 | #f | |
| 17262 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
17263 | #{tmp 4669}#))))) |
| 17264 | #{tmp 4663}#) | |
| 17265 | (let ((#{tmp 4675}# | |
| 0f550375 | 17266 | ($sc-dispatch |
| 1bbe0a63 | 17267 | #{tmp 4627}# |
| 0f550375 | 17268 | '(#(atom "vector") . each-any)))) |
| 1bbe0a63 | 17269 | (if #{tmp 4675}# |
| 0f550375 | 17270 | (@apply |
| 1bbe0a63 AW |
17271 | (lambda (#{x 4677}#) |
| 17272 | (let ((#{tmp 4681}# | |
| 17273 | (map #{emit 4448}# #{x 4677}#))) | |
| 17274 | (let ((#{tmp 4682}# | |
| 0f550375 | 17275 | ($sc-dispatch |
| 1bbe0a63 | 17276 | #{tmp 4681}# |
| 0f550375 | 17277 | 'each-any))) |
| 1bbe0a63 | 17278 | (if #{tmp 4682}# |
| 0f550375 | 17279 | (@apply |
| 1bbe0a63 | 17280 | (lambda (#{ g4678 4684}#) |
| 0f550375 AW |
17281 | (cons '#(syntax-object |
| 17282 | vector | |
| 17283 | ((top) | |
| f929b9e5 | 17284 | #(ribcage () () ()) |
| 0f550375 | 17285 | #(ribcage |
| 1bbe0a63 AW |
17286 | #(#{ g4678}#) |
| 17287 | #((m4679 top)) | |
| 17288 | #("i4683")) | |
| 0f550375 AW |
17289 | #(ribcage |
| 17290 | #(x) | |
| 17291 | #((top)) | |
| 1bbe0a63 | 17292 | #("i4676")) |
| 0f550375 AW |
17293 | #(ribcage () () ()) |
| 17294 | #(ribcage | |
| 17295 | #(x) | |
| 17296 | #((top)) | |
| 1bbe0a63 | 17297 | #("i4626")) |
| 0f550375 AW |
17298 | #(ribcage |
| 17299 | (emit quasivector | |
| 17300 | quasilist* | |
| 17301 | quasiappend | |
| 17302 | quasicons | |
| 17303 | vquasi | |
| 17304 | quasi) | |
| 17305 | ((top) | |
| 17306 | (top) | |
| 17307 | (top) | |
| 17308 | (top) | |
| 17309 | (top) | |
| 17310 | (top) | |
| 17311 | (top)) | |
| 1bbe0a63 AW |
17312 | ("i4447" |
| 17313 | "i4445" | |
| 17314 | "i4443" | |
| 17315 | "i4441" | |
| 17316 | "i4439" | |
| 17317 | "i4437" | |
| 17318 | "i4435"))) | |
| 0f550375 | 17319 | (hygiene guile)) |
| 1bbe0a63 AW |
17320 | #{ g4678 4684}#)) |
| 17321 | #{tmp 4682}#) | |
| 0f550375 AW |
17322 | (syntax-violation |
| 17323 | #f | |
| 17324 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
17325 | #{tmp 4681}#))))) |
| 17326 | #{tmp 4675}#) | |
| 17327 | (let ((#{tmp 4687}# | |
| 0f550375 | 17328 | ($sc-dispatch |
| 1bbe0a63 | 17329 | #{tmp 4627}# |
| 0f550375 | 17330 | '(#(atom "list->vector") any)))) |
| 1bbe0a63 | 17331 | (if #{tmp 4687}# |
| 0f550375 | 17332 | (@apply |
| 1bbe0a63 AW |
17333 | (lambda (#{x 4689}#) |
| 17334 | (let ((#{tmp 4693}# | |
| 17335 | (#{emit 4448}# #{x 4689}#))) | |
| 17336 | (let ((#{ g4690 4695}# | |
| 17337 | #{tmp 4693}#)) | |
| 0f550375 AW |
17338 | (list '#(syntax-object |
| 17339 | list->vector | |
| 17340 | ((top) | |
| f929b9e5 | 17341 | #(ribcage () () ()) |
| 0f550375 | 17342 | #(ribcage |
| 1bbe0a63 AW |
17343 | #(#{ g4690}#) |
| 17344 | #((m4691 top)) | |
| 17345 | #("i4694")) | |
| 0f550375 AW |
17346 | #(ribcage |
| 17347 | #(x) | |
| 17348 | #((top)) | |
| 1bbe0a63 | 17349 | #("i4688")) |
| 0f550375 AW |
17350 | #(ribcage () () ()) |
| 17351 | #(ribcage | |
| 17352 | #(x) | |
| 17353 | #((top)) | |
| 1bbe0a63 | 17354 | #("i4626")) |
| 0f550375 AW |
17355 | #(ribcage |
| 17356 | (emit quasivector | |
| 17357 | quasilist* | |
| 17358 | quasiappend | |
| 17359 | quasicons | |
| 17360 | vquasi | |
| 17361 | quasi) | |
| 17362 | ((top) | |
| 17363 | (top) | |
| 17364 | (top) | |
| 17365 | (top) | |
| 17366 | (top) | |
| 17367 | (top) | |
| 17368 | (top)) | |
| 1bbe0a63 AW |
17369 | ("i4447" |
| 17370 | "i4445" | |
| 17371 | "i4443" | |
| 17372 | "i4441" | |
| 17373 | "i4439" | |
| 17374 | "i4437" | |
| 17375 | "i4435"))) | |
| 0f550375 | 17376 | (hygiene guile)) |
| 1bbe0a63 AW |
17377 | #{ g4690 4695}#)))) |
| 17378 | #{tmp 4687}#) | |
| 17379 | (let ((#{tmp 4696}# | |
| 0f550375 | 17380 | ($sc-dispatch |
| 1bbe0a63 | 17381 | #{tmp 4627}# |
| 0f550375 | 17382 | '(#(atom "value") any)))) |
| 1bbe0a63 | 17383 | (if #{tmp 4696}# |
| 0f550375 | 17384 | (@apply |
| 1bbe0a63 AW |
17385 | (lambda (#{x 4698}#) #{x 4698}#) |
| 17386 | #{tmp 4696}#) | |
| 0f550375 AW |
17387 | (syntax-violation |
| 17388 | #f | |
| 17389 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 17390 | #{tmp 4627}#))))))))))))))))))) |
| 417ee098 | 17391 | (begin |
| 1bbe0a63 AW |
17392 | (lambda (#{x 4699}#) |
| 17393 | (let ((#{tmp 4701}# #{x 4699}#)) | |
| 17394 | (let ((#{tmp 4702}# | |
| 17395 | ($sc-dispatch #{tmp 4701}# '(_ any)))) | |
| 17396 | (if #{tmp 4702}# | |
| 417ee098 | 17397 | (@apply |
| 1bbe0a63 AW |
17398 | (lambda (#{e 4704}#) |
| 17399 | (#{emit 4448}# (#{quasi 4436}# #{e 4704}# 0))) | |
| 17400 | #{tmp 4702}#) | |
| f42d8bd8 AW |
17401 | (syntax-violation |
| 17402 | #f | |
| 17403 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 17404 | #{tmp 4701}#))))))))) |
| 65dd9e38 AW |
17405 | |
| 17406 | (define include | |
| e809758a AW |
17407 | (make-syntax-transformer |
| 17408 | 'include | |
| 65dd9e38 | 17409 | 'macro |
| 1bbe0a63 | 17410 | (lambda (#{x 4705}#) |
| 0f2b9f62 | 17411 | (letrec* |
| 1bbe0a63 AW |
17412 | ((#{read-file 4708}# |
| 17413 | (lambda (#{fn 4709}# #{k 4710}#) | |
| 417ee098 | 17414 | (begin |
| 1bbe0a63 | 17415 | (let ((#{p 4714}# (open-input-file #{fn 4709}#))) |
| 417ee098 | 17416 | (letrec* |
| 1bbe0a63 AW |
17417 | ((#{f 4718}# |
| 17418 | (lambda (#{x 4719}# #{result 4720}#) | |
| 17419 | (if (eof-object? #{x 4719}#) | |
| 417ee098 | 17420 | (begin |
| 1bbe0a63 AW |
17421 | (close-input-port #{p 4714}#) |
| 17422 | (reverse #{result 4720}#)) | |
| 17423 | (#{f 4718}# | |
| 17424 | (read #{p 4714}#) | |
| 17425 | (cons (datum->syntax #{k 4710}# #{x 4719}#) | |
| 17426 | #{result 4720}#)))))) | |
| 17427 | (begin (#{f 4718}# (read #{p 4714}#) '())))))))) | |
| 417ee098 | 17428 | (begin |
| 1bbe0a63 AW |
17429 | (let ((#{tmp 4721}# #{x 4705}#)) |
| 17430 | (let ((#{tmp 4722}# | |
| 17431 | ($sc-dispatch #{tmp 4721}# '(any any)))) | |
| 17432 | (if #{tmp 4722}# | |
| 417ee098 | 17433 | (@apply |
| 1bbe0a63 | 17434 | (lambda (#{k 4725}# #{filename 4726}#) |
| 417ee098 | 17435 | (begin |
| 1bbe0a63 AW |
17436 | (let ((#{fn 4728}# (syntax->datum #{filename 4726}#))) |
| 17437 | (let ((#{tmp 4730}# | |
| 17438 | (#{read-file 4708}# | |
| 17439 | #{fn 4728}# | |
| 17440 | #{filename 4726}#))) | |
| 17441 | (let ((#{tmp 4731}# | |
| 17442 | ($sc-dispatch #{tmp 4730}# 'each-any))) | |
| 17443 | (if #{tmp 4731}# | |
| 417ee098 | 17444 | (@apply |
| 1bbe0a63 | 17445 | (lambda (#{exp 4733}#) |
| 417ee098 AW |
17446 | (cons '#(syntax-object |
| 17447 | begin | |
| 17448 | ((top) | |
| f929b9e5 | 17449 | #(ribcage () () ()) |
| 417ee098 AW |
17450 | #(ribcage |
| 17451 | #(exp) | |
| 17452 | #((top)) | |
| 1bbe0a63 | 17453 | #("i4732")) |
| 417ee098 AW |
17454 | #(ribcage () () ()) |
| 17455 | #(ribcage () () ()) | |
| 17456 | #(ribcage | |
| 17457 | #(fn) | |
| 17458 | #((top)) | |
| 1bbe0a63 | 17459 | #("i4727")) |
| 417ee098 AW |
17460 | #(ribcage |
| 17461 | #(k filename) | |
| 17462 | #((top) (top)) | |
| 1bbe0a63 | 17463 | #("i4723" "i4724")) |
| 417ee098 AW |
17464 | #(ribcage |
| 17465 | (read-file) | |
| 17466 | ((top)) | |
| 1bbe0a63 | 17467 | ("i4707")) |
| 417ee098 AW |
17468 | #(ribcage |
| 17469 | #(x) | |
| 17470 | #((top)) | |
| 1bbe0a63 | 17471 | #("i4706"))) |
| 417ee098 | 17472 | (hygiene guile)) |
| 1bbe0a63 AW |
17473 | #{exp 4733}#)) |
| 17474 | #{tmp 4731}#) | |
| 417ee098 AW |
17475 | (syntax-violation |
| 17476 | #f | |
| 17477 | "source expression failed to match any pattern" | |
| 1bbe0a63 AW |
17478 | #{tmp 4730}#))))))) |
| 17479 | #{tmp 4722}#) | |
| 417ee098 AW |
17480 | (syntax-violation |
| 17481 | #f | |
| 17482 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 17483 | #{tmp 4721}#))))))))) |
| 417ee098 AW |
17484 | |
| 17485 | (define include-from-path | |
| 17486 | (make-syntax-transformer | |
| 17487 | 'include-from-path | |
| 17488 | 'macro | |
| 1bbe0a63 AW |
17489 | (lambda (#{x 4735}#) |
| 17490 | (let ((#{tmp 4737}# #{x 4735}#)) | |
| 17491 | (let ((#{tmp 4738}# | |
| 17492 | ($sc-dispatch #{tmp 4737}# '(any any)))) | |
| 17493 | (if #{tmp 4738}# | |
| 417ee098 | 17494 | (@apply |
| 1bbe0a63 | 17495 | (lambda (#{k 4741}# #{filename 4742}#) |
| 417ee098 | 17496 | (begin |
| 1bbe0a63 AW |
17497 | (let ((#{fn 4744}# (syntax->datum #{filename 4742}#))) |
| 17498 | (let ((#{tmp 4746}# | |
| 417ee098 | 17499 | (datum->syntax |
| 1bbe0a63 | 17500 | #{filename 4742}# |
| 417ee098 | 17501 | (begin |
| 1bbe0a63 AW |
17502 | (let ((#{t 4751}# |
| 17503 | (%search-load-path #{fn 4744}#))) | |
| 17504 | (if #{t 4751}# | |
| 17505 | #{t 4751}# | |
| 417ee098 AW |
17506 | (syntax-violation |
| 17507 | 'include-from-path | |
| 17508 | "file not found in path" | |
| 1bbe0a63 AW |
17509 | #{x 4735}# |
| 17510 | #{filename 4742}#))))))) | |
| 17511 | (let ((#{fn 4748}# #{tmp 4746}#)) | |
| 417ee098 AW |
17512 | (list '#(syntax-object |
| 17513 | include | |
| 17514 | ((top) | |
| f929b9e5 | 17515 | #(ribcage () () ()) |
| 1bbe0a63 | 17516 | #(ribcage #(fn) #((top)) #("i4747")) |
| 417ee098 AW |
17517 | #(ribcage () () ()) |
| 17518 | #(ribcage () () ()) | |
| 1bbe0a63 | 17519 | #(ribcage #(fn) #((top)) #("i4743")) |
| 417ee098 AW |
17520 | #(ribcage |
| 17521 | #(k filename) | |
| 17522 | #((top) (top)) | |
| 1bbe0a63 | 17523 | #("i4739" "i4740")) |
| 417ee098 | 17524 | #(ribcage () () ()) |
| 1bbe0a63 | 17525 | #(ribcage #(x) #((top)) #("i4736"))) |
| 417ee098 | 17526 | (hygiene guile)) |
| 1bbe0a63 AW |
17527 | #{fn 4748}#)))))) |
| 17528 | #{tmp 4738}#) | |
| 417ee098 AW |
17529 | (syntax-violation |
| 17530 | #f | |
| 17531 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 17532 | #{tmp 4737}#))))))) |
| 417ee098 AW |
17533 | |
| 17534 | (define unquote | |
| 17535 | (make-syntax-transformer | |
| 17536 | 'unquote | |
| 17537 | 'macro | |
| 1bbe0a63 | 17538 | (lambda (#{x 4753}#) |
| 0f550375 AW |
17539 | (syntax-violation |
| 17540 | 'unquote | |
| 17541 | "expression not valid outside of quasiquote" | |
| 1bbe0a63 | 17542 | #{x 4753}#)))) |
| 417ee098 AW |
17543 | |
| 17544 | (define unquote-splicing | |
| 17545 | (make-syntax-transformer | |
| 17546 | 'unquote-splicing | |
| 17547 | 'macro | |
| 1bbe0a63 | 17548 | (lambda (#{x 4755}#) |
| 0f550375 AW |
17549 | (syntax-violation |
| 17550 | 'unquote-splicing | |
| 17551 | "expression not valid outside of quasiquote" | |
| 1bbe0a63 | 17552 | #{x 4755}#)))) |
| 417ee098 AW |
17553 | |
| 17554 | (define case | |
| 17555 | (make-syntax-transformer | |
| 17556 | 'case | |
| 17557 | 'macro | |
| 1bbe0a63 AW |
17558 | (lambda (#{x 4757}#) |
| 17559 | (let ((#{tmp 4759}# #{x 4757}#)) | |
| 17560 | (let ((#{tmp 4760}# | |
| 417ee098 | 17561 | ($sc-dispatch |
| 1bbe0a63 | 17562 | #{tmp 4759}# |
| b78d91d5 | 17563 | '(_ any any . each-any)))) |
| 1bbe0a63 | 17564 | (if #{tmp 4760}# |
| 417ee098 | 17565 | (@apply |
| 1bbe0a63 AW |
17566 | (lambda (#{e 4764}# #{m1 4765}# #{m2 4766}#) |
| 17567 | (let ((#{tmp 4768}# | |
| 417ee098 | 17568 | (letrec* |
| 1bbe0a63 AW |
17569 | ((#{f 4774}# |
| 17570 | (lambda (#{clause 4775}# #{clauses 4776}#) | |
| 17571 | (if (null? #{clauses 4776}#) | |
| 17572 | (let ((#{tmp 4778}# #{clause 4775}#)) | |
| 17573 | (let ((#{tmp 4779}# | |
| f42d8bd8 | 17574 | ($sc-dispatch |
| 1bbe0a63 | 17575 | #{tmp 4778}# |
| f42d8bd8 AW |
17576 | '(#(free-id |
| 17577 | #(syntax-object | |
| 17578 | else | |
| 17579 | ((top) | |
| 17580 | #(ribcage () () ()) | |
| 17581 | #(ribcage | |
| 17582 | #(f clause clauses) | |
| 17583 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17584 | #("i4771" |
| 17585 | "i4772" | |
| 17586 | "i4773")) | |
| f42d8bd8 | 17587 | #(ribcage |
| b78d91d5 AW |
17588 | #(e m1 m2) |
| 17589 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17590 | #("i4761" |
| 17591 | "i4762" | |
| 17592 | "i4763")) | |
| f42d8bd8 AW |
17593 | #(ribcage () () ()) |
| 17594 | #(ribcage | |
| 17595 | #(x) | |
| 17596 | #((top)) | |
| 1bbe0a63 | 17597 | #("i4758"))) |
| f42d8bd8 AW |
17598 | (hygiene guile))) |
| 17599 | any | |
| 17600 | . | |
| 17601 | each-any)))) | |
| 1bbe0a63 | 17602 | (if #{tmp 4779}# |
| 417ee098 | 17603 | (@apply |
| 1bbe0a63 | 17604 | (lambda (#{e1 4782}# #{e2 4783}#) |
| 417ee098 AW |
17605 | (cons '#(syntax-object |
| 17606 | begin | |
| 17607 | ((top) | |
| 17608 | #(ribcage | |
| 17609 | #(e1 e2) | |
| 17610 | #((top) (top)) | |
| 1bbe0a63 | 17611 | #("i4780" "i4781")) |
| 417ee098 AW |
17612 | #(ribcage () () ()) |
| 17613 | #(ribcage | |
| 17614 | #(f clause clauses) | |
| 17615 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17616 | #("i4771" |
| 17617 | "i4772" | |
| 17618 | "i4773")) | |
| 417ee098 | 17619 | #(ribcage |
| b78d91d5 AW |
17620 | #(e m1 m2) |
| 17621 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17622 | #("i4761" |
| 17623 | "i4762" | |
| 17624 | "i4763")) | |
| 417ee098 AW |
17625 | #(ribcage () () ()) |
| 17626 | #(ribcage | |
| 17627 | #(x) | |
| 17628 | #((top)) | |
| 1bbe0a63 | 17629 | #("i4758"))) |
| 417ee098 | 17630 | (hygiene guile)) |
| 1bbe0a63 AW |
17631 | (cons #{e1 4782}# |
| 17632 | #{e2 4783}#))) | |
| 17633 | #{tmp 4779}#) | |
| 17634 | (let ((#{tmp 4785}# | |
| 417ee098 | 17635 | ($sc-dispatch |
| 1bbe0a63 | 17636 | #{tmp 4778}# |
| 417ee098 | 17637 | '(each-any any . each-any)))) |
| 1bbe0a63 | 17638 | (if #{tmp 4785}# |
| 417ee098 | 17639 | (@apply |
| 1bbe0a63 AW |
17640 | (lambda (#{k 4789}# |
| 17641 | #{e1 4790}# | |
| 17642 | #{e2 4791}#) | |
| 417ee098 AW |
17643 | (list '#(syntax-object |
| 17644 | if | |
| 17645 | ((top) | |
| 17646 | #(ribcage | |
| 17647 | #(k e1 e2) | |
| 17648 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17649 | #("i4786" |
| 17650 | "i4787" | |
| 17651 | "i4788")) | |
| 417ee098 AW |
17652 | #(ribcage () () ()) |
| 17653 | #(ribcage | |
| 17654 | #(f clause clauses) | |
| 17655 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17656 | #("i4771" |
| 17657 | "i4772" | |
| 17658 | "i4773")) | |
| 417ee098 | 17659 | #(ribcage |
| b78d91d5 AW |
17660 | #(e m1 m2) |
| 17661 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17662 | #("i4761" |
| 17663 | "i4762" | |
| 17664 | "i4763")) | |
| 417ee098 AW |
17665 | #(ribcage () () ()) |
| 17666 | #(ribcage | |
| 17667 | #(x) | |
| 17668 | #((top)) | |
| 1bbe0a63 | 17669 | #("i4758"))) |
| 417ee098 AW |
17670 | (hygiene guile)) |
| 17671 | (list '#(syntax-object | |
| 17672 | memv | |
| 17673 | ((top) | |
| 17674 | #(ribcage | |
| 17675 | #(k e1 e2) | |
| 17676 | #((top) | |
| 17677 | (top) | |
| 17678 | (top)) | |
| 1bbe0a63 AW |
17679 | #("i4786" |
| 17680 | "i4787" | |
| 17681 | "i4788")) | |
| 417ee098 AW |
17682 | #(ribcage |
| 17683 | () | |
| 17684 | () | |
| 17685 | ()) | |
| 17686 | #(ribcage | |
| 17687 | #(f | |
| 17688 | clause | |
| 17689 | clauses) | |
| 17690 | #((top) | |
| 17691 | (top) | |
| 17692 | (top)) | |
| 1bbe0a63 AW |
17693 | #("i4771" |
| 17694 | "i4772" | |
| 17695 | "i4773")) | |
| 417ee098 | 17696 | #(ribcage |
| b78d91d5 | 17697 | #(e m1 m2) |
| 417ee098 | 17698 | #((top) |
| 417ee098 AW |
17699 | (top) |
| 17700 | (top)) | |
| 1bbe0a63 AW |
17701 | #("i4761" |
| 17702 | "i4762" | |
| 17703 | "i4763")) | |
| 417ee098 AW |
17704 | #(ribcage |
| 17705 | () | |
| 17706 | () | |
| 17707 | ()) | |
| 17708 | #(ribcage | |
| 17709 | #(x) | |
| 17710 | #((top)) | |
| 1bbe0a63 | 17711 | #("i4758"))) |
| 417ee098 AW |
17712 | (hygiene guile)) |
| 17713 | '#(syntax-object | |
| 17714 | t | |
| 17715 | ((top) | |
| 17716 | #(ribcage | |
| 17717 | #(k e1 e2) | |
| 17718 | #((top) | |
| 17719 | (top) | |
| 17720 | (top)) | |
| 1bbe0a63 AW |
17721 | #("i4786" |
| 17722 | "i4787" | |
| 17723 | "i4788")) | |
| 417ee098 AW |
17724 | #(ribcage |
| 17725 | () | |
| 17726 | () | |
| 17727 | ()) | |
| 17728 | #(ribcage | |
| 17729 | #(f | |
| 17730 | clause | |
| 17731 | clauses) | |
| 17732 | #((top) | |
| 17733 | (top) | |
| 17734 | (top)) | |
| 1bbe0a63 AW |
17735 | #("i4771" |
| 17736 | "i4772" | |
| 17737 | "i4773")) | |
| 417ee098 | 17738 | #(ribcage |
| b78d91d5 | 17739 | #(e m1 m2) |
| 417ee098 | 17740 | #((top) |
| 417ee098 AW |
17741 | (top) |
| 17742 | (top)) | |
| 1bbe0a63 AW |
17743 | #("i4761" |
| 17744 | "i4762" | |
| 17745 | "i4763")) | |
| 417ee098 AW |
17746 | #(ribcage |
| 17747 | () | |
| 17748 | () | |
| 17749 | ()) | |
| 17750 | #(ribcage | |
| 17751 | #(x) | |
| 17752 | #((top)) | |
| 1bbe0a63 | 17753 | #("i4758"))) |
| 417ee098 AW |
17754 | (hygiene guile)) |
| 17755 | (list '#(syntax-object | |
| 17756 | quote | |
| 17757 | ((top) | |
| 17758 | #(ribcage | |
| 17759 | #(k | |
| 17760 | e1 | |
| 17761 | e2) | |
| 17762 | #((top) | |
| 17763 | (top) | |
| 17764 | (top)) | |
| 1bbe0a63 AW |
17765 | #("i4786" |
| 17766 | "i4787" | |
| 17767 | "i4788")) | |
| 417ee098 AW |
17768 | #(ribcage |
| 17769 | () | |
| 17770 | () | |
| 17771 | ()) | |
| 17772 | #(ribcage | |
| 17773 | #(f | |
| 17774 | clause | |
| 17775 | clauses) | |
| 17776 | #((top) | |
| 17777 | (top) | |
| 17778 | (top)) | |
| 1bbe0a63 AW |
17779 | #("i4771" |
| 17780 | "i4772" | |
| 17781 | "i4773")) | |
| 417ee098 | 17782 | #(ribcage |
| b78d91d5 | 17783 | #(e |
| 417ee098 AW |
17784 | m1 |
| 17785 | m2) | |
| 17786 | #((top) | |
| 417ee098 AW |
17787 | (top) |
| 17788 | (top)) | |
| 1bbe0a63 AW |
17789 | #("i4761" |
| 17790 | "i4762" | |
| 17791 | "i4763")) | |
| 417ee098 AW |
17792 | #(ribcage |
| 17793 | () | |
| 17794 | () | |
| 17795 | ()) | |
| 17796 | #(ribcage | |
| 17797 | #(x) | |
| 17798 | #((top)) | |
| 1bbe0a63 | 17799 | #("i4758"))) |
| 417ee098 AW |
17800 | (hygiene |
| 17801 | guile)) | |
| 1bbe0a63 | 17802 | #{k 4789}#)) |
| 417ee098 AW |
17803 | (cons '#(syntax-object |
| 17804 | begin | |
| 17805 | ((top) | |
| 17806 | #(ribcage | |
| 17807 | #(k e1 e2) | |
| 17808 | #((top) | |
| 17809 | (top) | |
| 17810 | (top)) | |
| 1bbe0a63 AW |
17811 | #("i4786" |
| 17812 | "i4787" | |
| 17813 | "i4788")) | |
| 417ee098 AW |
17814 | #(ribcage |
| 17815 | () | |
| 17816 | () | |
| 17817 | ()) | |
| 17818 | #(ribcage | |
| 17819 | #(f | |
| 17820 | clause | |
| 17821 | clauses) | |
| 17822 | #((top) | |
| 17823 | (top) | |
| 17824 | (top)) | |
| 1bbe0a63 AW |
17825 | #("i4771" |
| 17826 | "i4772" | |
| 17827 | "i4773")) | |
| 417ee098 | 17828 | #(ribcage |
| b78d91d5 | 17829 | #(e m1 m2) |
| 417ee098 | 17830 | #((top) |
| 417ee098 AW |
17831 | (top) |
| 17832 | (top)) | |
| 1bbe0a63 AW |
17833 | #("i4761" |
| 17834 | "i4762" | |
| 17835 | "i4763")) | |
| 417ee098 AW |
17836 | #(ribcage |
| 17837 | () | |
| 17838 | () | |
| 17839 | ()) | |
| 17840 | #(ribcage | |
| 17841 | #(x) | |
| 17842 | #((top)) | |
| 1bbe0a63 | 17843 | #("i4758"))) |
| 417ee098 | 17844 | (hygiene guile)) |
| 1bbe0a63 AW |
17845 | (cons #{e1 4790}# |
| 17846 | #{e2 4791}#)))) | |
| 17847 | #{tmp 4785}#) | |
| 17848 | (let ((#{_ 4795}# #{tmp 4778}#)) | |
| 417ee098 AW |
17849 | (syntax-violation |
| 17850 | 'case | |
| 17851 | "bad clause" | |
| 1bbe0a63 AW |
17852 | #{x 4757}# |
| 17853 | #{clause 4775}#))))))) | |
| 17854 | (let ((#{tmp 4797}# | |
| 17855 | (#{f 4774}# | |
| 17856 | (car #{clauses 4776}#) | |
| 17857 | (cdr #{clauses 4776}#)))) | |
| 17858 | (let ((#{rest 4799}# #{tmp 4797}#)) | |
| 17859 | (let ((#{tmp 4800}# #{clause 4775}#)) | |
| 17860 | (let ((#{tmp 4801}# | |
| 417ee098 | 17861 | ($sc-dispatch |
| 1bbe0a63 | 17862 | #{tmp 4800}# |
| 417ee098 | 17863 | '(each-any any . each-any)))) |
| 1bbe0a63 | 17864 | (if #{tmp 4801}# |
| 417ee098 | 17865 | (@apply |
| 1bbe0a63 AW |
17866 | (lambda (#{k 4805}# |
| 17867 | #{e1 4806}# | |
| 17868 | #{e2 4807}#) | |
| 417ee098 AW |
17869 | (list '#(syntax-object |
| 17870 | if | |
| 17871 | ((top) | |
| 17872 | #(ribcage | |
| 17873 | #(k e1 e2) | |
| 17874 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17875 | #("i4802" |
| 17876 | "i4803" | |
| 17877 | "i4804")) | |
| f929b9e5 | 17878 | #(ribcage () () ()) |
| 417ee098 AW |
17879 | #(ribcage |
| 17880 | #(rest) | |
| 17881 | #((top)) | |
| 1bbe0a63 | 17882 | #("i4798")) |
| 417ee098 AW |
17883 | #(ribcage () () ()) |
| 17884 | #(ribcage | |
| 17885 | #(f clause clauses) | |
| 17886 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17887 | #("i4771" |
| 17888 | "i4772" | |
| 17889 | "i4773")) | |
| 417ee098 | 17890 | #(ribcage |
| b78d91d5 AW |
17891 | #(e m1 m2) |
| 17892 | #((top) (top) (top)) | |
| 1bbe0a63 AW |
17893 | #("i4761" |
| 17894 | "i4762" | |
| 17895 | "i4763")) | |
| 417ee098 AW |
17896 | #(ribcage () () ()) |
| 17897 | #(ribcage | |
| 17898 | #(x) | |
| 17899 | #((top)) | |
| 1bbe0a63 | 17900 | #("i4758"))) |
| 417ee098 AW |
17901 | (hygiene guile)) |
| 17902 | (list '#(syntax-object | |
| 17903 | memv | |
| 17904 | ((top) | |
| 17905 | #(ribcage | |
| 17906 | #(k e1 e2) | |
| 17907 | #((top) | |
| 17908 | (top) | |
| 17909 | (top)) | |
| 1bbe0a63 AW |
17910 | #("i4802" |
| 17911 | "i4803" | |
| 17912 | "i4804")) | |
| f929b9e5 AW |
17913 | #(ribcage |
| 17914 | () | |
| 17915 | () | |
| 17916 | ()) | |
| 417ee098 AW |
17917 | #(ribcage |
| 17918 | #(rest) | |
| 17919 | #((top)) | |
| 1bbe0a63 | 17920 | #("i4798")) |
| 417ee098 AW |
17921 | #(ribcage |
| 17922 | () | |
| 17923 | () | |
| 17924 | ()) | |
| 17925 | #(ribcage | |
| 17926 | #(f | |
| 17927 | clause | |
| 17928 | clauses) | |
| 17929 | #((top) | |
| 17930 | (top) | |
| 17931 | (top)) | |
| 1bbe0a63 AW |
17932 | #("i4771" |
| 17933 | "i4772" | |
| 17934 | "i4773")) | |
| 417ee098 | 17935 | #(ribcage |
| b78d91d5 | 17936 | #(e m1 m2) |
| 417ee098 | 17937 | #((top) |
| 417ee098 AW |
17938 | (top) |
| 17939 | (top)) | |
| 1bbe0a63 AW |
17940 | #("i4761" |
| 17941 | "i4762" | |
| 17942 | "i4763")) | |
| 417ee098 AW |
17943 | #(ribcage |
| 17944 | () | |
| 17945 | () | |
| 17946 | ()) | |
| 17947 | #(ribcage | |
| 17948 | #(x) | |
| 17949 | #((top)) | |
| 1bbe0a63 | 17950 | #("i4758"))) |
| 417ee098 AW |
17951 | (hygiene guile)) |
| 17952 | '#(syntax-object | |
| 17953 | t | |
| 17954 | ((top) | |
| 17955 | #(ribcage | |
| 17956 | #(k e1 e2) | |
| 17957 | #((top) | |
| 17958 | (top) | |
| 17959 | (top)) | |
| 1bbe0a63 AW |
17960 | #("i4802" |
| 17961 | "i4803" | |
| 17962 | "i4804")) | |
| f929b9e5 AW |
17963 | #(ribcage |
| 17964 | () | |
| 17965 | () | |
| 17966 | ()) | |
| 417ee098 AW |
17967 | #(ribcage |
| 17968 | #(rest) | |
| 17969 | #((top)) | |
| 1bbe0a63 | 17970 | #("i4798")) |
| 417ee098 AW |
17971 | #(ribcage |
| 17972 | () | |
| 17973 | () | |
| 17974 | ()) | |
| 17975 | #(ribcage | |
| 17976 | #(f | |
| 17977 | clause | |
| 17978 | clauses) | |
| 17979 | #((top) | |
| 17980 | (top) | |
| 17981 | (top)) | |
| 1bbe0a63 AW |
17982 | #("i4771" |
| 17983 | "i4772" | |
| 17984 | "i4773")) | |
| 417ee098 | 17985 | #(ribcage |
| b78d91d5 | 17986 | #(e m1 m2) |
| 417ee098 | 17987 | #((top) |
| 417ee098 AW |
17988 | (top) |
| 17989 | (top)) | |
| 1bbe0a63 AW |
17990 | #("i4761" |
| 17991 | "i4762" | |
| 17992 | "i4763")) | |
| 417ee098 AW |
17993 | #(ribcage |
| 17994 | () | |
| 17995 | () | |
| 17996 | ()) | |
| 17997 | #(ribcage | |
| 17998 | #(x) | |
| 17999 | #((top)) | |
| 1bbe0a63 | 18000 | #("i4758"))) |
| 417ee098 AW |
18001 | (hygiene guile)) |
| 18002 | (list '#(syntax-object | |
| 18003 | quote | |
| 18004 | ((top) | |
| 18005 | #(ribcage | |
| 18006 | #(k | |
| 18007 | e1 | |
| 18008 | e2) | |
| 18009 | #((top) | |
| 18010 | (top) | |
| 18011 | (top)) | |
| 1bbe0a63 AW |
18012 | #("i4802" |
| 18013 | "i4803" | |
| 18014 | "i4804")) | |
| f929b9e5 AW |
18015 | #(ribcage |
| 18016 | () | |
| 18017 | () | |
| 18018 | ()) | |
| 417ee098 AW |
18019 | #(ribcage |
| 18020 | #(rest) | |
| 18021 | #((top)) | |
| 1bbe0a63 | 18022 | #("i4798")) |
| 417ee098 AW |
18023 | #(ribcage |
| 18024 | () | |
| 18025 | () | |
| 18026 | ()) | |
| 18027 | #(ribcage | |
| 18028 | #(f | |
| 18029 | clause | |
| 18030 | clauses) | |
| 18031 | #((top) | |
| 18032 | (top) | |
| 18033 | (top)) | |
| 1bbe0a63 AW |
18034 | #("i4771" |
| 18035 | "i4772" | |
| 18036 | "i4773")) | |
| 417ee098 | 18037 | #(ribcage |
| b78d91d5 | 18038 | #(e |
| 417ee098 AW |
18039 | m1 |
| 18040 | m2) | |
| 18041 | #((top) | |
| 417ee098 AW |
18042 | (top) |
| 18043 | (top)) | |
| 1bbe0a63 AW |
18044 | #("i4761" |
| 18045 | "i4762" | |
| 18046 | "i4763")) | |
| 417ee098 AW |
18047 | #(ribcage |
| 18048 | () | |
| 18049 | () | |
| 18050 | ()) | |
| 18051 | #(ribcage | |
| 18052 | #(x) | |
| 18053 | #((top)) | |
| 1bbe0a63 | 18054 | #("i4758"))) |
| 417ee098 AW |
18055 | (hygiene |
| 18056 | guile)) | |
| 1bbe0a63 | 18057 | #{k 4805}#)) |
| 417ee098 AW |
18058 | (cons '#(syntax-object |
| 18059 | begin | |
| 18060 | ((top) | |
| 18061 | #(ribcage | |
| 18062 | #(k e1 e2) | |
| 18063 | #((top) | |
| 18064 | (top) | |
| 18065 | (top)) | |
| 1bbe0a63 AW |
18066 | #("i4802" |
| 18067 | "i4803" | |
| 18068 | "i4804")) | |
| f929b9e5 AW |
18069 | #(ribcage |
| 18070 | () | |
| 18071 | () | |
| 18072 | ()) | |
| 417ee098 AW |
18073 | #(ribcage |
| 18074 | #(rest) | |
| 18075 | #((top)) | |
| 1bbe0a63 | 18076 | #("i4798")) |
| 417ee098 AW |
18077 | #(ribcage |
| 18078 | () | |
| 18079 | () | |
| 18080 | ()) | |
| 18081 | #(ribcage | |
| 18082 | #(f | |
| 18083 | clause | |
| 18084 | clauses) | |
| 18085 | #((top) | |
| 18086 | (top) | |
| 18087 | (top)) | |
| 1bbe0a63 AW |
18088 | #("i4771" |
| 18089 | "i4772" | |
| 18090 | "i4773")) | |
| 417ee098 | 18091 | #(ribcage |
| b78d91d5 | 18092 | #(e m1 m2) |
| 417ee098 | 18093 | #((top) |
| 417ee098 AW |
18094 | (top) |
| 18095 | (top)) | |
| 1bbe0a63 AW |
18096 | #("i4761" |
| 18097 | "i4762" | |
| 18098 | "i4763")) | |
| 417ee098 AW |
18099 | #(ribcage |
| 18100 | () | |
| 18101 | () | |
| 18102 | ()) | |
| 18103 | #(ribcage | |
| 18104 | #(x) | |
| 18105 | #((top)) | |
| 1bbe0a63 | 18106 | #("i4758"))) |
| 417ee098 | 18107 | (hygiene guile)) |
| 1bbe0a63 AW |
18108 | (cons #{e1 4806}# |
| 18109 | #{e2 4807}#)) | |
| 18110 | #{rest 4799}#)) | |
| 18111 | #{tmp 4801}#) | |
| 18112 | (let ((#{_ 4811}# #{tmp 4800}#)) | |
| 417ee098 AW |
18113 | (syntax-violation |
| 18114 | 'case | |
| 18115 | "bad clause" | |
| 1bbe0a63 AW |
18116 | #{x 4757}# |
| 18117 | #{clause 4775}#))))))))))) | |
| 18118 | (begin (#{f 4774}# #{m1 4765}# #{m2 4766}#))))) | |
| 18119 | (let ((#{body 4770}# #{tmp 4768}#)) | |
| 417ee098 AW |
18120 | (list '#(syntax-object |
| 18121 | let | |
| 18122 | ((top) | |
| f929b9e5 | 18123 | #(ribcage () () ()) |
| 1bbe0a63 | 18124 | #(ribcage #(body) #((top)) #("i4769")) |
| 417ee098 | 18125 | #(ribcage |
| b78d91d5 AW |
18126 | #(e m1 m2) |
| 18127 | #((top) (top) (top)) | |
| 1bbe0a63 | 18128 | #("i4761" "i4762" "i4763")) |
| 417ee098 | 18129 | #(ribcage () () ()) |
| 1bbe0a63 | 18130 | #(ribcage #(x) #((top)) #("i4758"))) |
| 417ee098 AW |
18131 | (hygiene guile)) |
| 18132 | (list (list '#(syntax-object | |
| 18133 | t | |
| 18134 | ((top) | |
| f929b9e5 | 18135 | #(ribcage () () ()) |
| 417ee098 AW |
18136 | #(ribcage |
| 18137 | #(body) | |
| 18138 | #((top)) | |
| 1bbe0a63 | 18139 | #("i4769")) |
| 417ee098 | 18140 | #(ribcage |
| b78d91d5 AW |
18141 | #(e m1 m2) |
| 18142 | #((top) (top) (top)) | |
| 1bbe0a63 | 18143 | #("i4761" "i4762" "i4763")) |
| 417ee098 | 18144 | #(ribcage () () ()) |
| 1bbe0a63 | 18145 | #(ribcage #(x) #((top)) #("i4758"))) |
| 417ee098 | 18146 | (hygiene guile)) |
| 1bbe0a63 AW |
18147 | #{e 4764}#)) |
| 18148 | #{body 4770}#)))) | |
| 18149 | #{tmp 4760}#) | |
| 417ee098 AW |
18150 | (syntax-violation |
| 18151 | #f | |
| 18152 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 18153 | #{tmp 4759}#))))))) |
| bfccdcd5 AW |
18154 | |
| 18155 | (define make-variable-transformer | |
| 1bbe0a63 AW |
18156 | (lambda (#{proc 4812}#) |
| 18157 | (if (procedure? #{proc 4812}#) | |
| bfccdcd5 AW |
18158 | (begin |
| 18159 | (letrec* | |
| 1bbe0a63 AW |
18160 | ((#{trans 4815}# |
| 18161 | (lambda (#{x 4816}#) (#{proc 4812}# #{x 4816}#)))) | |
| bfccdcd5 AW |
18162 | (begin |
| 18163 | (set-procedure-property! | |
| 1bbe0a63 | 18164 | #{trans 4815}# |
| bfccdcd5 AW |
18165 | 'variable-transformer |
| 18166 | #t) | |
| 1bbe0a63 | 18167 | #{trans 4815}#))) |
| bfccdcd5 | 18168 | (error "variable transformer not a procedure" |
| 1bbe0a63 | 18169 | #{proc 4812}#)))) |
| 65dd9e38 AW |
18170 | |
| 18171 | (define identifier-syntax | |
| e809758a AW |
18172 | (make-syntax-transformer |
| 18173 | 'identifier-syntax | |
| 65dd9e38 | 18174 | 'macro |
| 1bbe0a63 AW |
18175 | (lambda (#{x 4818}#) |
| 18176 | (let ((#{tmp 4820}# #{x 4818}#)) | |
| 18177 | (let ((#{tmp 4821}# | |
| 18178 | ($sc-dispatch #{tmp 4820}# '(_ any)))) | |
| 18179 | (if #{tmp 4821}# | |
| 417ee098 | 18180 | (@apply |
| 1bbe0a63 | 18181 | (lambda (#{e 4823}#) |
| 417ee098 AW |
18182 | (list '#(syntax-object |
| 18183 | lambda | |
| 18184 | ((top) | |
| 1bbe0a63 | 18185 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18186 | #(ribcage () () ()) |
| 1bbe0a63 | 18187 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18188 | (hygiene guile)) |
| 18189 | '(#(syntax-object | |
| 18190 | x | |
| 18191 | ((top) | |
| 1bbe0a63 | 18192 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18193 | #(ribcage () () ()) |
| 1bbe0a63 | 18194 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18195 | (hygiene guile))) |
| 18196 | '#((#(syntax-object | |
| 18197 | macro-type | |
| 18198 | ((top) | |
| 1bbe0a63 | 18199 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18200 | #(ribcage () () ()) |
| 1bbe0a63 | 18201 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18202 | (hygiene guile)) |
| 18203 | . | |
| 18204 | #(syntax-object | |
| 18205 | identifier-syntax | |
| 18206 | ((top) | |
| 1bbe0a63 | 18207 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18208 | #(ribcage () () ()) |
| 1bbe0a63 | 18209 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18210 | (hygiene guile)))) |
| 18211 | (list '#(syntax-object | |
| 18212 | syntax-case | |
| 18213 | ((top) | |
| 1bbe0a63 | 18214 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18215 | #(ribcage () () ()) |
| 1bbe0a63 | 18216 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18217 | (hygiene guile)) |
| 18218 | '#(syntax-object | |
| 18219 | x | |
| 18220 | ((top) | |
| 1bbe0a63 | 18221 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18222 | #(ribcage () () ()) |
| 1bbe0a63 | 18223 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18224 | (hygiene guile)) |
| 18225 | '() | |
| 18226 | (list '#(syntax-object | |
| 18227 | id | |
| 18228 | ((top) | |
| 1bbe0a63 | 18229 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18230 | #(ribcage () () ()) |
| 1bbe0a63 | 18231 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18232 | (hygiene guile)) |
| 18233 | '(#(syntax-object | |
| 18234 | identifier? | |
| 65dd9e38 | 18235 | ((top) |
| 1bbe0a63 | 18236 | #(ribcage #(e) #((top)) #("i4822")) |
| 65dd9e38 | 18237 | #(ribcage () () ()) |
| 1bbe0a63 | 18238 | #(ribcage #(x) #((top)) #("i4819"))) |
| 65dd9e38 | 18239 | (hygiene guile)) |
| 417ee098 AW |
18240 | (#(syntax-object |
| 18241 | syntax | |
| 18242 | ((top) | |
| 1bbe0a63 | 18243 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18244 | #(ribcage () () ()) |
| 1bbe0a63 | 18245 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18246 | (hygiene guile)) |
| 18247 | #(syntax-object | |
| 18248 | id | |
| 18249 | ((top) | |
| 1bbe0a63 | 18250 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 | 18251 | #(ribcage () () ()) |
| 1bbe0a63 | 18252 | #(ribcage #(x) #((top)) #("i4819"))) |
| 417ee098 AW |
18253 | (hygiene guile)))) |
| 18254 | (list '#(syntax-object | |
| 18255 | syntax | |
| 18256 | ((top) | |
| 1bbe0a63 | 18257 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 AW |
18258 | #(ribcage () () ()) |
| 18259 | #(ribcage | |
| 18260 | #(x) | |
| 18261 | #((top)) | |
| 1bbe0a63 | 18262 | #("i4819"))) |
| 417ee098 | 18263 | (hygiene guile)) |
| 1bbe0a63 | 18264 | #{e 4823}#)) |
| b78d91d5 AW |
18265 | (list '(#(syntax-object |
| 18266 | _ | |
| 18267 | ((top) | |
| 1bbe0a63 | 18268 | #(ribcage #(e) #((top)) #("i4822")) |
| b78d91d5 | 18269 | #(ribcage () () ()) |
| 1bbe0a63 | 18270 | #(ribcage #(x) #((top)) #("i4819"))) |
| b78d91d5 AW |
18271 | (hygiene guile)) |
| 18272 | #(syntax-object | |
| 18273 | x | |
| 18274 | ((top) | |
| 1bbe0a63 | 18275 | #(ribcage #(e) #((top)) #("i4822")) |
| b78d91d5 | 18276 | #(ribcage () () ()) |
| 1bbe0a63 | 18277 | #(ribcage #(x) #((top)) #("i4819"))) |
| b78d91d5 AW |
18278 | (hygiene guile)) |
| 18279 | #(syntax-object | |
| 18280 | ... | |
| 18281 | ((top) | |
| 1bbe0a63 | 18282 | #(ribcage #(e) #((top)) #("i4822")) |
| b78d91d5 | 18283 | #(ribcage () () ()) |
| 1bbe0a63 | 18284 | #(ribcage #(x) #((top)) #("i4819"))) |
| b78d91d5 | 18285 | (hygiene guile))) |
| 417ee098 AW |
18286 | (list '#(syntax-object |
| 18287 | syntax | |
| 18288 | ((top) | |
| 1bbe0a63 | 18289 | #(ribcage #(e) #((top)) #("i4822")) |
| 417ee098 AW |
18290 | #(ribcage () () ()) |
| 18291 | #(ribcage | |
| 18292 | #(x) | |
| 18293 | #((top)) | |
| 1bbe0a63 | 18294 | #("i4819"))) |
| 417ee098 | 18295 | (hygiene guile)) |
| 1bbe0a63 | 18296 | (cons #{e 4823}# |
| 417ee098 AW |
18297 | '(#(syntax-object |
| 18298 | x | |
| 65dd9e38 AW |
18299 | ((top) |
| 18300 | #(ribcage | |
| b78d91d5 AW |
18301 | #(e) |
| 18302 | #((top)) | |
| 1bbe0a63 | 18303 | #("i4822")) |
| 65dd9e38 AW |
18304 | #(ribcage () () ()) |
| 18305 | #(ribcage | |
| 18306 | #(x) | |
| 18307 | #((top)) | |
| 1bbe0a63 | 18308 | #("i4819"))) |
| 65dd9e38 | 18309 | (hygiene guile)) |
| 417ee098 AW |
18310 | #(syntax-object |
| 18311 | ... | |
| f42d8bd8 AW |
18312 | ((top) |
| 18313 | #(ribcage | |
| b78d91d5 AW |
18314 | #(e) |
| 18315 | #((top)) | |
| 1bbe0a63 | 18316 | #("i4822")) |
| f42d8bd8 AW |
18317 | #(ribcage () () ()) |
| 18318 | #(ribcage | |
| 18319 | #(x) | |
| 18320 | #((top)) | |
| 1bbe0a63 | 18321 | #("i4819"))) |
| 417ee098 | 18322 | (hygiene guile))))))))) |
| 1bbe0a63 AW |
18323 | #{tmp 4821}#) |
| 18324 | (let ((#{tmp 4824}# | |
| bfccdcd5 | 18325 | ($sc-dispatch |
| 1bbe0a63 | 18326 | #{tmp 4820}# |
| b78d91d5 AW |
18327 | '(_ (any any) |
| 18328 | ((#(free-id | |
| 18329 | #(syntax-object | |
| 18330 | set! | |
| 18331 | ((top) | |
| 18332 | #(ribcage () () ()) | |
| 1bbe0a63 | 18333 | #(ribcage #(x) #((top)) #("i4819"))) |
| b78d91d5 AW |
18334 | (hygiene guile))) |
| 18335 | any | |
| 18336 | any) | |
| 18337 | any))))) | |
| 1bbe0a63 | 18338 | (if (if #{tmp 4824}# |
| bfccdcd5 | 18339 | (@apply |
| 1bbe0a63 AW |
18340 | (lambda (#{id 4830}# |
| 18341 | #{exp1 4831}# | |
| 18342 | #{var 4832}# | |
| 18343 | #{val 4833}# | |
| 18344 | #{exp2 4834}#) | |
| 18345 | (if (identifier? #{id 4830}#) | |
| 18346 | (identifier? #{var 4832}#) | |
| bfccdcd5 | 18347 | #f)) |
| 1bbe0a63 | 18348 | #{tmp 4824}#) |
| bfccdcd5 AW |
18349 | #f) |
| 18350 | (@apply | |
| 1bbe0a63 AW |
18351 | (lambda (#{id 4842}# |
| 18352 | #{exp1 4843}# | |
| 18353 | #{var 4844}# | |
| 18354 | #{val 4845}# | |
| 18355 | #{exp2 4846}#) | |
| bfccdcd5 AW |
18356 | (list '#(syntax-object |
| 18357 | make-variable-transformer | |
| 18358 | ((top) | |
| 18359 | #(ribcage | |
| b78d91d5 AW |
18360 | #(id exp1 var val exp2) |
| 18361 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 | 18362 | #("i4837" "i4838" "i4839" "i4840" "i4841")) |
| bfccdcd5 | 18363 | #(ribcage () () ()) |
| 1bbe0a63 | 18364 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18365 | (hygiene guile)) |
| 18366 | (list '#(syntax-object | |
| 18367 | lambda | |
| 18368 | ((top) | |
| 18369 | #(ribcage | |
| b78d91d5 AW |
18370 | #(id exp1 var val exp2) |
| 18371 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18372 | #("i4837" |
| 18373 | "i4838" | |
| 18374 | "i4839" | |
| 18375 | "i4840" | |
| 18376 | "i4841")) | |
| bfccdcd5 | 18377 | #(ribcage () () ()) |
| 1bbe0a63 | 18378 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18379 | (hygiene guile)) |
| 18380 | '(#(syntax-object | |
| 18381 | x | |
| 18382 | ((top) | |
| 18383 | #(ribcage | |
| b78d91d5 AW |
18384 | #(id exp1 var val exp2) |
| 18385 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18386 | #("i4837" |
| 18387 | "i4838" | |
| 18388 | "i4839" | |
| 18389 | "i4840" | |
| 18390 | "i4841")) | |
| bfccdcd5 | 18391 | #(ribcage () () ()) |
| 1bbe0a63 | 18392 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18393 | (hygiene guile))) |
| 18394 | '#((#(syntax-object | |
| 18395 | macro-type | |
| 18396 | ((top) | |
| 18397 | #(ribcage | |
| b78d91d5 AW |
18398 | #(id exp1 var val exp2) |
| 18399 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18400 | #("i4837" |
| 18401 | "i4838" | |
| 18402 | "i4839" | |
| 18403 | "i4840" | |
| 18404 | "i4841")) | |
| bfccdcd5 | 18405 | #(ribcage () () ()) |
| 1bbe0a63 | 18406 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18407 | (hygiene guile)) |
| 18408 | . | |
| 18409 | #(syntax-object | |
| 18410 | variable-transformer | |
| 18411 | ((top) | |
| 18412 | #(ribcage | |
| b78d91d5 AW |
18413 | #(id exp1 var val exp2) |
| 18414 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18415 | #("i4837" |
| 18416 | "i4838" | |
| 18417 | "i4839" | |
| 18418 | "i4840" | |
| 18419 | "i4841")) | |
| bfccdcd5 | 18420 | #(ribcage () () ()) |
| 1bbe0a63 | 18421 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18422 | (hygiene guile)))) |
| 18423 | (list '#(syntax-object | |
| 18424 | syntax-case | |
| 18425 | ((top) | |
| 18426 | #(ribcage | |
| b78d91d5 AW |
18427 | #(id exp1 var val exp2) |
| 18428 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18429 | #("i4837" |
| 18430 | "i4838" | |
| 18431 | "i4839" | |
| 18432 | "i4840" | |
| 18433 | "i4841")) | |
| bfccdcd5 | 18434 | #(ribcage () () ()) |
| 1bbe0a63 | 18435 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18436 | (hygiene guile)) |
| 18437 | '#(syntax-object | |
| 18438 | x | |
| 18439 | ((top) | |
| 18440 | #(ribcage | |
| b78d91d5 AW |
18441 | #(id exp1 var val exp2) |
| 18442 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18443 | #("i4837" |
| 18444 | "i4838" | |
| 18445 | "i4839" | |
| 18446 | "i4840" | |
| 18447 | "i4841")) | |
| bfccdcd5 | 18448 | #(ribcage () () ()) |
| 1bbe0a63 | 18449 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18450 | (hygiene guile)) |
| 18451 | '(#(syntax-object | |
| 18452 | set! | |
| 18453 | ((top) | |
| 18454 | #(ribcage | |
| b78d91d5 AW |
18455 | #(id exp1 var val exp2) |
| 18456 | #((top) (top) (top) (top) (top)) | |
| 1bbe0a63 AW |
18457 | #("i4837" |
| 18458 | "i4838" | |
| 18459 | "i4839" | |
| 18460 | "i4840" | |
| 18461 | "i4841")) | |
| bfccdcd5 | 18462 | #(ribcage () () ()) |
| 1bbe0a63 | 18463 | #(ribcage #(x) #((top)) #("i4819"))) |
| bfccdcd5 AW |
18464 | (hygiene guile))) |
| 18465 | (list (list '#(syntax-object | |
| 18466 | set! | |
| 18467 | ((top) | |
| 18468 | #(ribcage | |
| b78d91d5 | 18469 | #(id exp1 var val exp2) |
| bfccdcd5 AW |
18470 | #((top) |
| 18471 | (top) | |
| 18472 | (top) | |
| 18473 | (top) | |
| bfccdcd5 | 18474 | (top)) |
| 1bbe0a63 AW |
18475 | #("i4837" |
| 18476 | "i4838" | |
| 18477 | "i4839" | |
| 18478 | "i4840" | |
| 18479 | "i4841")) | |
| bfccdcd5 AW |
18480 | #(ribcage () () ()) |
| 18481 | #(ribcage | |
| 18482 | #(x) | |
| 18483 | #((top)) | |
| 1bbe0a63 | 18484 | #("i4819"))) |
| bfccdcd5 | 18485 | (hygiene guile)) |
| 1bbe0a63 AW |
18486 | #{var 4844}# |
| 18487 | #{val 4845}#) | |
| bfccdcd5 AW |
18488 | (list '#(syntax-object |
| 18489 | syntax | |
| 18490 | ((top) | |
| 18491 | #(ribcage | |
| b78d91d5 | 18492 | #(id exp1 var val exp2) |
| bfccdcd5 AW |
18493 | #((top) |
| 18494 | (top) | |
| 18495 | (top) | |
| 18496 | (top) | |
| bfccdcd5 | 18497 | (top)) |
| 1bbe0a63 AW |
18498 | #("i4837" |
| 18499 | "i4838" | |
| 18500 | "i4839" | |
| 18501 | "i4840" | |
| 18502 | "i4841")) | |
| bfccdcd5 AW |
18503 | #(ribcage () () ()) |
| 18504 | #(ribcage | |
| 18505 | #(x) | |
| 18506 | #((top)) | |
| 1bbe0a63 | 18507 | #("i4819"))) |
| bfccdcd5 | 18508 | (hygiene guile)) |
| 1bbe0a63 AW |
18509 | #{exp2 4846}#)) |
| 18510 | (list (cons #{id 4842}# | |
| bfccdcd5 AW |
18511 | '(#(syntax-object |
| 18512 | x | |
| 18513 | ((top) | |
| 18514 | #(ribcage | |
| b78d91d5 | 18515 | #(id |
| bfccdcd5 AW |
18516 | exp1 |
| 18517 | var | |
| 18518 | val | |
| 18519 | exp2) | |
| 18520 | #((top) | |
| 18521 | (top) | |
| 18522 | (top) | |
| 18523 | (top) | |
| bfccdcd5 | 18524 | (top)) |
| 1bbe0a63 AW |
18525 | #("i4837" |
| 18526 | "i4838" | |
| 18527 | "i4839" | |
| 18528 | "i4840" | |
| 18529 | "i4841")) | |
| bfccdcd5 AW |
18530 | #(ribcage () () ()) |
| 18531 | #(ribcage | |
| 18532 | #(x) | |
| 18533 | #((top)) | |
| 1bbe0a63 | 18534 | #("i4819"))) |
| bfccdcd5 AW |
18535 | (hygiene guile)) |
| 18536 | #(syntax-object | |
| 18537 | ... | |
| 18538 | ((top) | |
| 18539 | #(ribcage | |
| b78d91d5 | 18540 | #(id |
| bfccdcd5 AW |
18541 | exp1 |
| 18542 | var | |
| 18543 | val | |
| 18544 | exp2) | |
| 18545 | #((top) | |
| 18546 | (top) | |
| 18547 | (top) | |
| 18548 | (top) | |
| bfccdcd5 | 18549 | (top)) |
| 1bbe0a63 AW |
18550 | #("i4837" |
| 18551 | "i4838" | |
| 18552 | "i4839" | |
| 18553 | "i4840" | |
| 18554 | "i4841")) | |
| bfccdcd5 AW |
18555 | #(ribcage () () ()) |
| 18556 | #(ribcage | |
| 18557 | #(x) | |
| 18558 | #((top)) | |
| 1bbe0a63 | 18559 | #("i4819"))) |
| bfccdcd5 AW |
18560 | (hygiene guile)))) |
| 18561 | (list '#(syntax-object | |
| 18562 | syntax | |
| 18563 | ((top) | |
| 18564 | #(ribcage | |
| b78d91d5 | 18565 | #(id exp1 var val exp2) |
| bfccdcd5 AW |
18566 | #((top) |
| 18567 | (top) | |
| 18568 | (top) | |
| 18569 | (top) | |
| bfccdcd5 | 18570 | (top)) |
| 1bbe0a63 AW |
18571 | #("i4837" |
| 18572 | "i4838" | |
| 18573 | "i4839" | |
| 18574 | "i4840" | |
| 18575 | "i4841")) | |
| bfccdcd5 AW |
18576 | #(ribcage () () ()) |
| 18577 | #(ribcage | |
| 18578 | #(x) | |
| 18579 | #((top)) | |
| 1bbe0a63 | 18580 | #("i4819"))) |
| bfccdcd5 | 18581 | (hygiene guile)) |
| 1bbe0a63 | 18582 | (cons #{exp1 4843}# |
| bfccdcd5 AW |
18583 | '(#(syntax-object |
| 18584 | x | |
| 18585 | ((top) | |
| 18586 | #(ribcage | |
| b78d91d5 | 18587 | #(id |
| bfccdcd5 AW |
18588 | exp1 |
| 18589 | var | |
| 18590 | val | |
| 18591 | exp2) | |
| 18592 | #((top) | |
| 18593 | (top) | |
| 18594 | (top) | |
| 18595 | (top) | |
| bfccdcd5 | 18596 | (top)) |
| 1bbe0a63 AW |
18597 | #("i4837" |
| 18598 | "i4838" | |
| 18599 | "i4839" | |
| 18600 | "i4840" | |
| 18601 | "i4841")) | |
| bfccdcd5 AW |
18602 | #(ribcage |
| 18603 | () | |
| 18604 | () | |
| 18605 | ()) | |
| 18606 | #(ribcage | |
| 18607 | #(x) | |
| 18608 | #((top)) | |
| 1bbe0a63 | 18609 | #("i4819"))) |
| bfccdcd5 AW |
18610 | (hygiene guile)) |
| 18611 | #(syntax-object | |
| 18612 | ... | |
| 18613 | ((top) | |
| 18614 | #(ribcage | |
| b78d91d5 | 18615 | #(id |
| bfccdcd5 AW |
18616 | exp1 |
| 18617 | var | |
| 18618 | val | |
| 18619 | exp2) | |
| 18620 | #((top) | |
| 18621 | (top) | |
| 18622 | (top) | |
| 18623 | (top) | |
| bfccdcd5 | 18624 | (top)) |
| 1bbe0a63 AW |
18625 | #("i4837" |
| 18626 | "i4838" | |
| 18627 | "i4839" | |
| 18628 | "i4840" | |
| 18629 | "i4841")) | |
| bfccdcd5 AW |
18630 | #(ribcage |
| 18631 | () | |
| 18632 | () | |
| 18633 | ()) | |
| 18634 | #(ribcage | |
| 18635 | #(x) | |
| 18636 | #((top)) | |
| 1bbe0a63 | 18637 | #("i4819"))) |
| bfccdcd5 AW |
18638 | (hygiene |
| 18639 | guile)))))) | |
| 1bbe0a63 | 18640 | (list #{id 4842}# |
| bfccdcd5 AW |
18641 | (list '#(syntax-object |
| 18642 | identifier? | |
| 18643 | ((top) | |
| 18644 | #(ribcage | |
| b78d91d5 | 18645 | #(id exp1 var val exp2) |
| bfccdcd5 AW |
18646 | #((top) |
| 18647 | (top) | |
| 18648 | (top) | |
| 18649 | (top) | |
| bfccdcd5 | 18650 | (top)) |
| 1bbe0a63 AW |
18651 | #("i4837" |
| 18652 | "i4838" | |
| 18653 | "i4839" | |
| 18654 | "i4840" | |
| 18655 | "i4841")) | |
| bfccdcd5 AW |
18656 | #(ribcage () () ()) |
| 18657 | #(ribcage | |
| 18658 | #(x) | |
| 18659 | #((top)) | |
| 1bbe0a63 | 18660 | #("i4819"))) |
| bfccdcd5 AW |
18661 | (hygiene guile)) |
| 18662 | (list '#(syntax-object | |
| 18663 | syntax | |
| 18664 | ((top) | |
| 18665 | #(ribcage | |
| b78d91d5 | 18666 | #(id |
| bfccdcd5 AW |
18667 | exp1 |
| 18668 | var | |
| 18669 | val | |
| 18670 | exp2) | |
| 18671 | #((top) | |
| 18672 | (top) | |
| 18673 | (top) | |
| 18674 | (top) | |
| bfccdcd5 | 18675 | (top)) |
| 1bbe0a63 AW |
18676 | #("i4837" |
| 18677 | "i4838" | |
| 18678 | "i4839" | |
| 18679 | "i4840" | |
| 18680 | "i4841")) | |
| bfccdcd5 AW |
18681 | #(ribcage () () ()) |
| 18682 | #(ribcage | |
| 18683 | #(x) | |
| 18684 | #((top)) | |
| 1bbe0a63 | 18685 | #("i4819"))) |
| bfccdcd5 | 18686 | (hygiene guile)) |
| 1bbe0a63 | 18687 | #{id 4842}#)) |
| bfccdcd5 AW |
18688 | (list '#(syntax-object |
| 18689 | syntax | |
| 18690 | ((top) | |
| 18691 | #(ribcage | |
| b78d91d5 | 18692 | #(id exp1 var val exp2) |
| bfccdcd5 AW |
18693 | #((top) |
| 18694 | (top) | |
| 18695 | (top) | |
| 18696 | (top) | |
| bfccdcd5 | 18697 | (top)) |
| 1bbe0a63 AW |
18698 | #("i4837" |
| 18699 | "i4838" | |
| 18700 | "i4839" | |
| 18701 | "i4840" | |
| 18702 | "i4841")) | |
| bfccdcd5 AW |
18703 | #(ribcage () () ()) |
| 18704 | #(ribcage | |
| 18705 | #(x) | |
| 18706 | #((top)) | |
| 1bbe0a63 | 18707 | #("i4819"))) |
| bfccdcd5 | 18708 | (hygiene guile)) |
| 1bbe0a63 AW |
18709 | #{exp1 4843}#)))))) |
| 18710 | #{tmp 4824}#) | |
| bfccdcd5 AW |
18711 | (syntax-violation |
| 18712 | #f | |
| 18713 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 18714 | #{tmp 4820}#))))))))) |
| 97bc28b6 AW |
18715 | |
| 18716 | (define define* | |
| e809758a AW |
18717 | (make-syntax-transformer |
| 18718 | 'define* | |
| 97bc28b6 | 18719 | 'macro |
| 1bbe0a63 AW |
18720 | (lambda (#{x 4847}#) |
| 18721 | (let ((#{tmp 4849}# #{x 4847}#)) | |
| 18722 | (let ((#{tmp 4850}# | |
| 417ee098 | 18723 | ($sc-dispatch |
| 1bbe0a63 | 18724 | #{tmp 4849}# |
| b78d91d5 | 18725 | '(_ (any . any) any . each-any)))) |
| 1bbe0a63 | 18726 | (if #{tmp 4850}# |
| 417ee098 | 18727 | (@apply |
| 1bbe0a63 AW |
18728 | (lambda (#{id 4855}# |
| 18729 | #{args 4856}# | |
| 18730 | #{b0 4857}# | |
| 18731 | #{b1 4858}#) | |
| 417ee098 AW |
18732 | (list '#(syntax-object |
| 18733 | define | |
| 18734 | ((top) | |
| 18735 | #(ribcage | |
| b78d91d5 AW |
18736 | #(id args b0 b1) |
| 18737 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 18738 | #("i4851" "i4852" "i4853" "i4854")) |
| 417ee098 | 18739 | #(ribcage () () ()) |
| 1bbe0a63 | 18740 | #(ribcage #(x) #((top)) #("i4848"))) |
| 417ee098 | 18741 | (hygiene guile)) |
| 1bbe0a63 | 18742 | #{id 4855}# |
| 417ee098 AW |
18743 | (cons '#(syntax-object |
| 18744 | lambda* | |
| 18745 | ((top) | |
| 18746 | #(ribcage | |
| b78d91d5 AW |
18747 | #(id args b0 b1) |
| 18748 | #((top) (top) (top) (top)) | |
| 1bbe0a63 | 18749 | #("i4851" "i4852" "i4853" "i4854")) |
| 417ee098 | 18750 | #(ribcage () () ()) |
| 1bbe0a63 | 18751 | #(ribcage #(x) #((top)) #("i4848"))) |
| 417ee098 | 18752 | (hygiene guile)) |
| 1bbe0a63 AW |
18753 | (cons #{args 4856}# |
| 18754 | (cons #{b0 4857}# #{b1 4858}#))))) | |
| 18755 | #{tmp 4850}#) | |
| 18756 | (let ((#{tmp 4860}# | |
| 18757 | ($sc-dispatch #{tmp 4849}# '(_ any any)))) | |
| 18758 | (if (if #{tmp 4860}# | |
| 417ee098 | 18759 | (@apply |
| 1bbe0a63 | 18760 | (lambda (#{id 4863}# #{val 4864}#) |
| 417ee098 AW |
18761 | (identifier? |
| 18762 | '#(syntax-object | |
| 18763 | x | |
| 18764 | ((top) | |
| 18765 | #(ribcage | |
| b78d91d5 AW |
18766 | #(id val) |
| 18767 | #((top) (top)) | |
| 1bbe0a63 | 18768 | #("i4861" "i4862")) |
| 417ee098 | 18769 | #(ribcage () () ()) |
| 1bbe0a63 | 18770 | #(ribcage #(x) #((top)) #("i4848"))) |
| 417ee098 | 18771 | (hygiene guile)))) |
| 1bbe0a63 | 18772 | #{tmp 4860}#) |
| 417ee098 AW |
18773 | #f) |
| 18774 | (@apply | |
| 1bbe0a63 | 18775 | (lambda (#{id 4867}# #{val 4868}#) |
| 417ee098 AW |
18776 | (list '#(syntax-object |
| 18777 | define | |
| 18778 | ((top) | |
| 18779 | #(ribcage | |
| b78d91d5 AW |
18780 | #(id val) |
| 18781 | #((top) (top)) | |
| 1bbe0a63 | 18782 | #("i4865" "i4866")) |
| 417ee098 | 18783 | #(ribcage () () ()) |
| 1bbe0a63 | 18784 | #(ribcage #(x) #((top)) #("i4848"))) |
| 417ee098 | 18785 | (hygiene guile)) |
| 1bbe0a63 AW |
18786 | #{id 4867}# |
| 18787 | #{val 4868}#)) | |
| 18788 | #{tmp 4860}#) | |
| 417ee098 AW |
18789 | (syntax-violation |
| 18790 | #f | |
| 18791 | "source expression failed to match any pattern" | |
| 1bbe0a63 | 18792 | #{tmp 4849}#))))))))) |
| 65dd9e38 | 18793 |