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* |
| 014de9e2 AW |
5 | ((#{make-void 208}# |
| 6 | (lambda (#{src 779}#) | |
| e2ccab57 AW |
7 | (make-struct/no-tail |
| 8 | (vector-ref %expanded-vtables 0) | |
| 014de9e2 AW |
9 | #{src 779}#))) |
| 10 | (#{make-const 210}# | |
| 11 | (lambda (#{src 781}# #{exp 782}#) | |
| e2ccab57 AW |
12 | (make-struct/no-tail |
| 13 | (vector-ref %expanded-vtables 1) | |
| 014de9e2 AW |
14 | #{src 781}# |
| 15 | #{exp 782}#))) | |
| 16 | (#{make-lexical-ref 214}# | |
| 17 | (lambda (#{src 789}# #{name 790}# #{gensym 791}#) | |
| e2ccab57 AW |
18 | (make-struct/no-tail |
| 19 | (vector-ref %expanded-vtables 3) | |
| 014de9e2 AW |
20 | #{src 789}# |
| 21 | #{name 790}# | |
| 22 | #{gensym 791}#))) | |
| 23 | (#{make-lexical-set 216}# | |
| 24 | (lambda (#{src 795}# | |
| 25 | #{name 796}# | |
| 26 | #{gensym 797}# | |
| 27 | #{exp 798}#) | |
| e2ccab57 AW |
28 | (make-struct/no-tail |
| 29 | (vector-ref %expanded-vtables 4) | |
| 014de9e2 AW |
30 | #{src 795}# |
| 31 | #{name 796}# | |
| 32 | #{gensym 797}# | |
| 33 | #{exp 798}#))) | |
| 34 | (#{make-module-ref 218}# | |
| 35 | (lambda (#{src 803}# | |
| 36 | #{mod 804}# | |
| 37 | #{name 805}# | |
| 38 | #{public? 806}#) | |
| e2ccab57 AW |
39 | (make-struct/no-tail |
| 40 | (vector-ref %expanded-vtables 5) | |
| 014de9e2 AW |
41 | #{src 803}# |
| 42 | #{mod 804}# | |
| 43 | #{name 805}# | |
| 44 | #{public? 806}#))) | |
| 45 | (#{make-module-set 220}# | |
| 46 | (lambda (#{src 811}# | |
| 47 | #{mod 812}# | |
| 48 | #{name 813}# | |
| 49 | #{public? 814}# | |
| 50 | #{exp 815}#) | |
| e2ccab57 AW |
51 | (make-struct/no-tail |
| 52 | (vector-ref %expanded-vtables 6) | |
| 014de9e2 AW |
53 | #{src 811}# |
| 54 | #{mod 812}# | |
| 55 | #{name 813}# | |
| 56 | #{public? 814}# | |
| 57 | #{exp 815}#))) | |
| 58 | (#{make-toplevel-ref 222}# | |
| 59 | (lambda (#{src 821}# #{name 822}#) | |
| e2ccab57 AW |
60 | (make-struct/no-tail |
| 61 | (vector-ref %expanded-vtables 7) | |
| 014de9e2 AW |
62 | #{src 821}# |
| 63 | #{name 822}#))) | |
| 64 | (#{make-toplevel-set 224}# | |
| 65 | (lambda (#{src 825}# #{name 826}# #{exp 827}#) | |
| e2ccab57 AW |
66 | (make-struct/no-tail |
| 67 | (vector-ref %expanded-vtables 8) | |
| 014de9e2 AW |
68 | #{src 825}# |
| 69 | #{name 826}# | |
| 70 | #{exp 827}#))) | |
| 71 | (#{make-toplevel-define 226}# | |
| 72 | (lambda (#{src 831}# #{name 832}# #{exp 833}#) | |
| e2ccab57 AW |
73 | (make-struct/no-tail |
| 74 | (vector-ref %expanded-vtables 9) | |
| 014de9e2 AW |
75 | #{src 831}# |
| 76 | #{name 832}# | |
| 77 | #{exp 833}#))) | |
| 78 | (#{make-conditional 228}# | |
| 79 | (lambda (#{src 837}# | |
| 80 | #{test 838}# | |
| 81 | #{consequent 839}# | |
| 82 | #{alternate 840}#) | |
| e2ccab57 AW |
83 | (make-struct/no-tail |
| 84 | (vector-ref %expanded-vtables 10) | |
| 014de9e2 AW |
85 | #{src 837}# |
| 86 | #{test 838}# | |
| 87 | #{consequent 839}# | |
| 88 | #{alternate 840}#))) | |
| 89 | (#{make-application 230}# | |
| 90 | (lambda (#{src 845}# #{proc 846}# #{args 847}#) | |
| e2ccab57 AW |
91 | (make-struct/no-tail |
| 92 | (vector-ref %expanded-vtables 11) | |
| 014de9e2 AW |
93 | #{src 845}# |
| 94 | #{proc 846}# | |
| 95 | #{args 847}#))) | |
| 96 | (#{make-sequence 232}# | |
| 97 | (lambda (#{src 851}# #{exps 852}#) | |
| e2ccab57 AW |
98 | (make-struct/no-tail |
| 99 | (vector-ref %expanded-vtables 12) | |
| 014de9e2 AW |
100 | #{src 851}# |
| 101 | #{exps 852}#))) | |
| 102 | (#{make-lambda 234}# | |
| 103 | (lambda (#{src 855}# #{meta 856}# #{body 857}#) | |
| e2ccab57 AW |
104 | (make-struct/no-tail |
| 105 | (vector-ref %expanded-vtables 13) | |
| 014de9e2 AW |
106 | #{src 855}# |
| 107 | #{meta 856}# | |
| 108 | #{body 857}#))) | |
| 109 | (#{make-lambda-case 236}# | |
| 110 | (lambda (#{src 861}# | |
| 111 | #{req 862}# | |
| 112 | #{opt 863}# | |
| 113 | #{rest 864}# | |
| 114 | #{kw 865}# | |
| 115 | #{inits 866}# | |
| 116 | #{gensyms 867}# | |
| 117 | #{body 868}# | |
| 118 | #{alternate 869}#) | |
| e2ccab57 AW |
119 | (make-struct/no-tail |
| 120 | (vector-ref %expanded-vtables 14) | |
| 014de9e2 AW |
121 | #{src 861}# |
| 122 | #{req 862}# | |
| 123 | #{opt 863}# | |
| 124 | #{rest 864}# | |
| 125 | #{kw 865}# | |
| 126 | #{inits 866}# | |
| 127 | #{gensyms 867}# | |
| 128 | #{body 868}# | |
| 129 | #{alternate 869}#))) | |
| 130 | (#{make-let 238}# | |
| 131 | (lambda (#{src 879}# | |
| 132 | #{names 880}# | |
| 133 | #{gensyms 881}# | |
| 134 | #{vals 882}# | |
| 135 | #{body 883}#) | |
| e2ccab57 AW |
136 | (make-struct/no-tail |
| 137 | (vector-ref %expanded-vtables 15) | |
| 014de9e2 AW |
138 | #{src 879}# |
| 139 | #{names 880}# | |
| 140 | #{gensyms 881}# | |
| 141 | #{vals 882}# | |
| 142 | #{body 883}#))) | |
| 143 | (#{make-letrec 240}# | |
| 144 | (lambda (#{src 889}# | |
| 145 | #{in-order? 890}# | |
| 146 | #{names 891}# | |
| 147 | #{gensyms 892}# | |
| 148 | #{vals 893}# | |
| 149 | #{body 894}#) | |
| e2ccab57 AW |
150 | (make-struct/no-tail |
| 151 | (vector-ref %expanded-vtables 16) | |
| 014de9e2 AW |
152 | #{src 889}# |
| 153 | #{in-order? 890}# | |
| 154 | #{names 891}# | |
| 155 | #{gensyms 892}# | |
| 156 | #{vals 893}# | |
| 157 | #{body 894}#))) | |
| 158 | (#{make-dynlet 242}# | |
| 159 | (lambda (#{src 901}# | |
| 160 | #{fluids 902}# | |
| 161 | #{vals 903}# | |
| 162 | #{body 904}#) | |
| e2ccab57 AW |
163 | (make-struct/no-tail |
| 164 | (vector-ref %expanded-vtables 17) | |
| 014de9e2 AW |
165 | #{src 901}# |
| 166 | #{fluids 902}# | |
| 167 | #{vals 903}# | |
| 168 | #{body 904}#))) | |
| 169 | (#{lambda? 245}# | |
| 170 | (lambda (#{x 909}#) | |
| 171 | (if (struct? #{x 909}#) | |
| 172 | (eq? (struct-vtable #{x 909}#) | |
| e2ccab57 AW |
173 | (vector-ref %expanded-vtables 13)) |
| 174 | #f))) | |
| 014de9e2 AW |
175 | (#{lambda-meta 247}# |
| 176 | (lambda (#{x 913}#) (struct-ref #{x 913}# 1))) | |
| 177 | (#{set-lambda-meta! 249}# | |
| 178 | (lambda (#{x 915}# #{v 916}#) | |
| 179 | (struct-set! #{x 915}# 1 #{v 916}#))) | |
| 180 | (#{top-level-eval-hook 255}# | |
| 181 | (lambda (#{x 919}# #{mod 920}#) | |
| 182 | (primitive-eval #{x 919}#))) | |
| 183 | (#{local-eval-hook 257}# | |
| 184 | (lambda (#{x 923}# #{mod 924}#) | |
| 185 | (primitive-eval #{x 923}#))) | |
| 186 | (#{put-global-definition-hook 261}# | |
| 187 | (lambda (#{symbol 927}# #{type 928}# #{val 929}#) | |
| e2ccab57 AW |
188 | (module-define! |
| 189 | (current-module) | |
| 014de9e2 | 190 | #{symbol 927}# |
| e2ccab57 | 191 | (make-syntax-transformer |
| 014de9e2 AW |
192 | #{symbol 927}# |
| 193 | #{type 928}# | |
| 194 | #{val 929}#)))) | |
| 195 | (#{get-global-definition-hook 263}# | |
| 196 | (lambda (#{symbol 933}# #{module 934}#) | |
| 417ee098 | 197 | (begin |
| 014de9e2 | 198 | (if (if (not #{module 934}#) (current-module) #f) |
| e2ccab57 | 199 | (warn "module system is booted, we should have a module" |
| 014de9e2 AW |
200 | #{symbol 933}#)) |
| 201 | (let ((#{v 940}# (module-variable | |
| 202 | (if #{module 934}# | |
| 203 | (resolve-module (cdr #{module 934}#)) | |
| 204 | (current-module)) | |
| 205 | #{symbol 933}#))) | |
| 206 | (if #{v 940}# | |
| 207 | (if (variable-bound? #{v 940}#) | |
| 208 | (let ((#{val 945}# (variable-ref #{v 940}#))) | |
| 209 | (if (macro? #{val 945}#) | |
| 210 | (if (macro-type #{val 945}#) | |
| 211 | (cons (macro-type #{val 945}#) | |
| 212 | (macro-binding #{val 945}#)) | |
| df40b969 | 213 | #f) |
| 014de9e2 AW |
214 | #f)) |
| 215 | #f) | |
| 216 | #f))))) | |
| 217 | (#{decorate-source 265}# | |
| 218 | (lambda (#{e 949}# #{s 950}#) | |
| 219 | (begin | |
| 220 | (if (if (pair? #{e 949}#) #{s 950}# #f) | |
| 221 | (set-source-properties! #{e 949}# #{s 950}#)) | |
| 222 | #{e 949}#))) | |
| 223 | (#{maybe-name-value! 267}# | |
| 224 | (lambda (#{name 955}# #{val 956}#) | |
| 225 | (if (#{lambda? 245}# #{val 956}#) | |
| 226 | (let ((#{meta 960}# (#{lambda-meta 247}# #{val 956}#))) | |
| 227 | (if (not (assq 'name #{meta 960}#)) | |
| 228 | (#{set-lambda-meta! 249}# | |
| 229 | #{val 956}# | |
| 230 | (cons (cons 'name #{name 955}#) #{meta 960}#))))))) | |
| 231 | (#{build-void 269}# | |
| 232 | (lambda (#{source 961}#) | |
| 233 | (#{make-void 208}# #{source 961}#))) | |
| 234 | (#{build-application 271}# | |
| 235 | (lambda (#{source 963}# #{fun-exp 964}# #{arg-exps 965}#) | |
| 236 | (#{make-application 230}# | |
| 237 | #{source 963}# | |
| 238 | #{fun-exp 964}# | |
| 239 | #{arg-exps 965}#))) | |
| 240 | (#{build-conditional 273}# | |
| 241 | (lambda (#{source 969}# | |
| 242 | #{test-exp 970}# | |
| 243 | #{then-exp 971}# | |
| 244 | #{else-exp 972}#) | |
| 245 | (#{make-conditional 228}# | |
| 246 | #{source 969}# | |
| 247 | #{test-exp 970}# | |
| 248 | #{then-exp 971}# | |
| 249 | #{else-exp 972}#))) | |
| 250 | (#{build-lexical-reference 277}# | |
| 251 | (lambda (#{type 985}# | |
| 252 | #{source 986}# | |
| 253 | #{name 987}# | |
| 254 | #{var 988}#) | |
| 255 | (#{make-lexical-ref 214}# | |
| 256 | #{source 986}# | |
| 257 | #{name 987}# | |
| 258 | #{var 988}#))) | |
| 259 | (#{analyze-variable 281}# | |
| 260 | (lambda (#{mod 1001}# | |
| 261 | #{var 1002}# | |
| 262 | #{modref-cont 1003}# | |
| 263 | #{bare-cont 1004}#) | |
| 264 | (if (not #{mod 1001}#) | |
| 265 | (#{bare-cont 1004}# #{var 1002}#) | |
| 266 | (let ((#{kind 1011}# (car #{mod 1001}#)) | |
| 267 | (#{mod 1012}# (cdr #{mod 1001}#))) | |
| 268 | (if (memv #{kind 1011}# '(public)) | |
| 269 | (#{modref-cont 1003}# | |
| 270 | #{mod 1012}# | |
| 271 | #{var 1002}# | |
| 272 | #t) | |
| 273 | (if (memv #{kind 1011}# '(private)) | |
| 274 | (if (not (equal? | |
| 275 | #{mod 1012}# | |
| 276 | (module-name (current-module)))) | |
| 277 | (#{modref-cont 1003}# | |
| 278 | #{mod 1012}# | |
| 279 | #{var 1002}# | |
| 280 | #f) | |
| 281 | (#{bare-cont 1004}# #{var 1002}#)) | |
| 282 | (if (memv #{kind 1011}# '(bare)) | |
| 283 | (#{bare-cont 1004}# #{var 1002}#) | |
| 284 | (if (memv #{kind 1011}# '(hygiene)) | |
| 285 | (if (if (not (equal? | |
| 286 | #{mod 1012}# | |
| 287 | (module-name (current-module)))) | |
| 288 | (module-variable | |
| 289 | (resolve-module #{mod 1012}#) | |
| 290 | #{var 1002}#) | |
| df40b969 | 291 | #f) |
| 014de9e2 AW |
292 | (#{modref-cont 1003}# |
| 293 | #{mod 1012}# | |
| 294 | #{var 1002}# | |
| 295 | #f) | |
| 296 | (#{bare-cont 1004}# #{var 1002}#)) | |
| 297 | (syntax-violation | |
| 298 | #f | |
| 299 | "bad module kind" | |
| 300 | #{var 1002}# | |
| 301 | #{mod 1012}#))))))))) | |
| 302 | (#{build-global-reference 283}# | |
| 303 | (lambda (#{source 1020}# #{var 1021}# #{mod 1022}#) | |
| 304 | (#{analyze-variable 281}# | |
| 305 | #{mod 1022}# | |
| 306 | #{var 1021}# | |
| 307 | (lambda (#{mod 1026}# #{var 1027}# #{public? 1028}#) | |
| 308 | (#{make-module-ref 218}# | |
| 309 | #{source 1020}# | |
| 310 | #{mod 1026}# | |
| 311 | #{var 1027}# | |
| 312 | #{public? 1028}#)) | |
| 313 | (lambda (#{var 1032}#) | |
| 314 | (#{make-toplevel-ref 222}# | |
| 315 | #{source 1020}# | |
| 316 | #{var 1032}#))))) | |
| 317 | (#{build-global-assignment 285}# | |
| 318 | (lambda (#{source 1034}# | |
| 319 | #{var 1035}# | |
| 320 | #{exp 1036}# | |
| 321 | #{mod 1037}#) | |
| e2ccab57 | 322 | (begin |
| 014de9e2 AW |
323 | (#{maybe-name-value! 267}# |
| 324 | #{var 1035}# | |
| 325 | #{exp 1036}#) | |
| 326 | (#{analyze-variable 281}# | |
| 327 | #{mod 1037}# | |
| 328 | #{var 1035}# | |
| 329 | (lambda (#{mod 1042}# #{var 1043}# #{public? 1044}#) | |
| 330 | (#{make-module-set 220}# | |
| 331 | #{source 1034}# | |
| 332 | #{mod 1042}# | |
| 333 | #{var 1043}# | |
| 334 | #{public? 1044}# | |
| 335 | #{exp 1036}#)) | |
| 336 | (lambda (#{var 1048}#) | |
| 337 | (#{make-toplevel-set 224}# | |
| 338 | #{source 1034}# | |
| 339 | #{var 1048}# | |
| 340 | #{exp 1036}#)))))) | |
| 341 | (#{build-global-definition 287}# | |
| 342 | (lambda (#{source 1050}# #{var 1051}# #{exp 1052}#) | |
| e2ccab57 | 343 | (begin |
| 014de9e2 AW |
344 | (#{maybe-name-value! 267}# |
| 345 | #{var 1051}# | |
| 346 | #{exp 1052}#) | |
| 347 | (#{make-toplevel-define 226}# | |
| 348 | #{source 1050}# | |
| 349 | #{var 1051}# | |
| 350 | #{exp 1052}#)))) | |
| 351 | (#{build-simple-lambda 289}# | |
| 352 | (lambda (#{src 1056}# | |
| 353 | #{req 1057}# | |
| 354 | #{rest 1058}# | |
| 355 | #{vars 1059}# | |
| 356 | #{meta 1060}# | |
| 357 | #{exp 1061}#) | |
| 358 | (#{make-lambda 234}# | |
| 359 | #{src 1056}# | |
| 360 | #{meta 1060}# | |
| 361 | (#{make-lambda-case 236}# | |
| 362 | #{src 1056}# | |
| 363 | #{req 1057}# | |
| e2ccab57 | 364 | #f |
| 014de9e2 | 365 | #{rest 1058}# |
| e2ccab57 AW |
366 | #f |
| 367 | '() | |
| 014de9e2 AW |
368 | #{vars 1059}# |
| 369 | #{exp 1061}# | |
| e2ccab57 | 370 | #f)))) |
| 014de9e2 AW |
371 | (#{build-lambda-case 293}# |
| 372 | (lambda (#{src 1074}# | |
| 373 | #{req 1075}# | |
| 374 | #{opt 1076}# | |
| 375 | #{rest 1077}# | |
| 376 | #{kw 1078}# | |
| 377 | #{inits 1079}# | |
| 378 | #{vars 1080}# | |
| 379 | #{body 1081}# | |
| 380 | #{else-case 1082}#) | |
| 381 | (#{make-lambda-case 236}# | |
| 382 | #{src 1074}# | |
| 383 | #{req 1075}# | |
| 384 | #{opt 1076}# | |
| 385 | #{rest 1077}# | |
| 386 | #{kw 1078}# | |
| 387 | #{inits 1079}# | |
| 388 | #{vars 1080}# | |
| 389 | #{body 1081}# | |
| 390 | #{else-case 1082}#))) | |
| 391 | (#{build-primref 295}# | |
| 392 | (lambda (#{src 1092}# #{name 1093}#) | |
| e2ccab57 | 393 | (if (equal? (module-name (current-module)) '(guile)) |
| 014de9e2 AW |
394 | (#{make-toplevel-ref 222}# |
| 395 | #{src 1092}# | |
| 396 | #{name 1093}#) | |
| 397 | (#{make-module-ref 218}# | |
| 398 | #{src 1092}# | |
| e2ccab57 | 399 | '(guile) |
| 014de9e2 | 400 | #{name 1093}# |
| e2ccab57 | 401 | #f)))) |
| 014de9e2 AW |
402 | (#{build-data 297}# |
| 403 | (lambda (#{src 1096}# #{exp 1097}#) | |
| 404 | (#{make-const 210}# #{src 1096}# #{exp 1097}#))) | |
| 405 | (#{build-sequence 299}# | |
| 406 | (lambda (#{src 1100}# #{exps 1101}#) | |
| 407 | (if (null? (cdr #{exps 1101}#)) | |
| 408 | (car #{exps 1101}#) | |
| 409 | (#{make-sequence 232}# | |
| 410 | #{src 1100}# | |
| 411 | #{exps 1101}#)))) | |
| 412 | (#{build-letrec 305}# | |
| 413 | (lambda (#{src 1134}# | |
| 414 | #{in-order? 1135}# | |
| 415 | #{ids 1136}# | |
| 416 | #{vars 1137}# | |
| 417 | #{val-exps 1138}# | |
| 418 | #{body-exp 1139}#) | |
| 419 | (if (null? #{vars 1137}#) | |
| 420 | #{body-exp 1139}# | |
| e2ccab57 AW |
421 | (begin |
| 422 | (for-each | |
| 014de9e2 AW |
423 | #{maybe-name-value! 267}# |
| 424 | #{ids 1136}# | |
| 425 | #{val-exps 1138}#) | |
| 426 | (#{make-letrec 240}# | |
| 427 | #{src 1134}# | |
| 428 | #{in-order? 1135}# | |
| 429 | #{ids 1136}# | |
| 430 | #{vars 1137}# | |
| 431 | #{val-exps 1138}# | |
| 432 | #{body-exp 1139}#))))) | |
| 433 | (#{make-syntax-object 310}# | |
| 434 | (lambda (#{expression 1146}# | |
| 435 | #{wrap 1147}# | |
| 436 | #{module 1148}#) | |
| e2ccab57 AW |
437 | (vector |
| 438 | 'syntax-object | |
| 014de9e2 AW |
439 | #{expression 1146}# |
| 440 | #{wrap 1147}# | |
| 441 | #{module 1148}#))) | |
| 442 | (#{syntax-object? 312}# | |
| 443 | (lambda (#{x 1152}#) | |
| 444 | (if (vector? #{x 1152}#) | |
| 445 | (if (= (vector-length #{x 1152}#) 4) | |
| 446 | (eq? (vector-ref #{x 1152}# 0) 'syntax-object) | |
| e2ccab57 AW |
447 | #f) |
| 448 | #f))) | |
| 014de9e2 AW |
449 | (#{syntax-object-expression 314}# |
| 450 | (lambda (#{x 1157}#) (vector-ref #{x 1157}# 1))) | |
| 451 | (#{syntax-object-wrap 316}# | |
| 452 | (lambda (#{x 1159}#) (vector-ref #{x 1159}# 2))) | |
| 453 | (#{syntax-object-module 318}# | |
| 454 | (lambda (#{x 1161}#) (vector-ref #{x 1161}# 3))) | |
| 455 | (#{source-annotation 327}# | |
| 456 | (lambda (#{x 1175}#) | |
| 457 | (if (#{syntax-object? 312}# #{x 1175}#) | |
| 458 | (#{source-annotation 327}# | |
| 459 | (#{syntax-object-expression 314}# #{x 1175}#)) | |
| 460 | (if (pair? #{x 1175}#) | |
| 461 | (let ((#{props 1182}# (source-properties #{x 1175}#))) | |
| 462 | (if (pair? #{props 1182}#) #{props 1182}# #f)) | |
| e2ccab57 | 463 | #f)))) |
| 014de9e2 AW |
464 | (#{extend-env 337}# |
| 465 | (lambda (#{labels 1184}# #{bindings 1185}# #{r 1186}#) | |
| 466 | (if (null? #{labels 1184}#) | |
| 467 | #{r 1186}# | |
| 468 | (#{extend-env 337}# | |
| 469 | (cdr #{labels 1184}#) | |
| 470 | (cdr #{bindings 1185}#) | |
| 471 | (cons (cons (car #{labels 1184}#) | |
| 472 | (car #{bindings 1185}#)) | |
| 473 | #{r 1186}#))))) | |
| 474 | (#{extend-var-env 339}# | |
| 475 | (lambda (#{labels 1190}# #{vars 1191}# #{r 1192}#) | |
| 476 | (if (null? #{labels 1190}#) | |
| 477 | #{r 1192}# | |
| 478 | (#{extend-var-env 339}# | |
| 479 | (cdr #{labels 1190}#) | |
| 480 | (cdr #{vars 1191}#) | |
| 481 | (cons (cons (car #{labels 1190}#) | |
| 482 | (cons 'lexical (car #{vars 1191}#))) | |
| 483 | #{r 1192}#))))) | |
| 484 | (#{macros-only-env 341}# | |
| 485 | (lambda (#{r 1197}#) | |
| 486 | (if (null? #{r 1197}#) | |
| e2ccab57 | 487 | '() |
| 014de9e2 AW |
488 | (let ((#{a 1200}# (car #{r 1197}#))) |
| 489 | (if (eq? (car (cdr #{a 1200}#)) 'macro) | |
| 490 | (cons #{a 1200}# | |
| 491 | (#{macros-only-env 341}# (cdr #{r 1197}#))) | |
| 492 | (#{macros-only-env 341}# (cdr #{r 1197}#))))))) | |
| 493 | (#{lookup 343}# | |
| 494 | (lambda (#{x 1201}# #{r 1202}# #{mod 1203}#) | |
| 495 | (let ((#{t 1209}# (assq #{x 1201}# #{r 1202}#))) | |
| 496 | (if #{t 1209}# | |
| 497 | (cdr #{t 1209}#) | |
| 498 | (if (symbol? #{x 1201}#) | |
| 499 | (let ((#{t 1215}# | |
| 500 | (#{get-global-definition-hook 263}# | |
| 501 | #{x 1201}# | |
| 502 | #{mod 1203}#))) | |
| 503 | (if #{t 1215}# #{t 1215}# '(global))) | |
| 504 | '(displaced-lexical)))))) | |
| 505 | (#{global-extend 345}# | |
| 506 | (lambda (#{type 1220}# #{sym 1221}# #{val 1222}#) | |
| 507 | (#{put-global-definition-hook 261}# | |
| 508 | #{sym 1221}# | |
| 509 | #{type 1220}# | |
| 510 | #{val 1222}#))) | |
| 511 | (#{nonsymbol-id? 347}# | |
| 512 | (lambda (#{x 1226}#) | |
| 513 | (if (#{syntax-object? 312}# #{x 1226}#) | |
| e2ccab57 | 514 | (symbol? |
| 014de9e2 | 515 | (#{syntax-object-expression 314}# #{x 1226}#)) |
| e2ccab57 | 516 | #f))) |
| 014de9e2 AW |
517 | (#{id? 349}# |
| 518 | (lambda (#{x 1230}#) | |
| 519 | (if (symbol? #{x 1230}#) | |
| e2ccab57 | 520 | #t |
| 014de9e2 | 521 | (if (#{syntax-object? 312}# #{x 1230}#) |
| e2ccab57 | 522 | (symbol? |
| 014de9e2 | 523 | (#{syntax-object-expression 314}# #{x 1230}#)) |
| e2ccab57 | 524 | #f)))) |
| 014de9e2 AW |
525 | (#{id-sym-name&marks 353}# |
| 526 | (lambda (#{x 1237}# #{w 1238}#) | |
| 527 | (if (#{syntax-object? 312}# #{x 1237}#) | |
| e2ccab57 | 528 | (values |
| 014de9e2 AW |
529 | (#{syntax-object-expression 314}# #{x 1237}#) |
| 530 | (#{join-marks 407}# | |
| 531 | (car #{w 1238}#) | |
| 532 | (car (#{syntax-object-wrap 316}# #{x 1237}#)))) | |
| 533 | (values #{x 1237}# (car #{w 1238}#))))) | |
| 534 | (#{gen-label 367}# | |
| e2ccab57 | 535 | (lambda () (symbol->string (gensym "i")))) |
| 014de9e2 AW |
536 | (#{gen-labels 369}# |
| 537 | (lambda (#{ls 1244}#) | |
| 538 | (if (null? #{ls 1244}#) | |
| e2ccab57 | 539 | '() |
| 014de9e2 AW |
540 | (cons (#{gen-label 367}#) |
| 541 | (#{gen-labels 369}# (cdr #{ls 1244}#)))))) | |
| 542 | (#{make-ribcage 372}# | |
| 543 | (lambda (#{symnames 1246}# | |
| 544 | #{marks 1247}# | |
| 545 | #{labels 1248}#) | |
| e2ccab57 AW |
546 | (vector |
| 547 | 'ribcage | |
| 014de9e2 AW |
548 | #{symnames 1246}# |
| 549 | #{marks 1247}# | |
| 550 | #{labels 1248}#))) | |
| 551 | (#{ribcage-symnames 376}# | |
| 552 | (lambda (#{x 1257}#) (vector-ref #{x 1257}# 1))) | |
| 553 | (#{ribcage-marks 378}# | |
| 554 | (lambda (#{x 1259}#) (vector-ref #{x 1259}# 2))) | |
| 555 | (#{ribcage-labels 380}# | |
| 556 | (lambda (#{x 1261}#) (vector-ref #{x 1261}# 3))) | |
| 557 | (#{set-ribcage-symnames! 382}# | |
| 558 | (lambda (#{x 1263}# #{update 1264}#) | |
| 559 | (vector-set! #{x 1263}# 1 #{update 1264}#))) | |
| 560 | (#{set-ribcage-marks! 384}# | |
| 561 | (lambda (#{x 1267}# #{update 1268}#) | |
| 562 | (vector-set! #{x 1267}# 2 #{update 1268}#))) | |
| 563 | (#{set-ribcage-labels! 386}# | |
| 564 | (lambda (#{x 1271}# #{update 1272}#) | |
| 565 | (vector-set! #{x 1271}# 3 #{update 1272}#))) | |
| 566 | (#{anti-mark 393}# | |
| 567 | (lambda (#{w 1275}#) | |
| 568 | (cons (cons #f (car #{w 1275}#)) | |
| 569 | (cons 'shift (cdr #{w 1275}#))))) | |
| 570 | (#{extend-ribcage! 399}# | |
| 571 | (lambda (#{ribcage 1281}# #{id 1282}# #{label 1283}#) | |
| e2ccab57 | 572 | (begin |
| 014de9e2 AW |
573 | (#{set-ribcage-symnames! 382}# |
| 574 | #{ribcage 1281}# | |
| 575 | (cons (#{syntax-object-expression 314}# #{id 1282}#) | |
| 576 | (#{ribcage-symnames 376}# #{ribcage 1281}#))) | |
| 577 | (#{set-ribcage-marks! 384}# | |
| 578 | #{ribcage 1281}# | |
| 579 | (cons (car (#{syntax-object-wrap 316}# #{id 1282}#)) | |
| 580 | (#{ribcage-marks 378}# #{ribcage 1281}#))) | |
| 581 | (#{set-ribcage-labels! 386}# | |
| 582 | #{ribcage 1281}# | |
| 583 | (cons #{label 1283}# | |
| 584 | (#{ribcage-labels 380}# #{ribcage 1281}#)))))) | |
| 585 | (#{make-binding-wrap 401}# | |
| 586 | (lambda (#{ids 1288}# #{labels 1289}# #{w 1290}#) | |
| 587 | (if (null? #{ids 1288}#) | |
| 588 | #{w 1290}# | |
| 589 | (cons (car #{w 1290}#) | |
| 590 | (cons (let ((#{labelvec 1297}# | |
| 591 | (list->vector #{labels 1289}#))) | |
| 592 | (let ((#{n 1299}# (vector-length #{labelvec 1297}#))) | |
| 593 | (let ((#{symnamevec 1302}# (make-vector #{n 1299}#)) | |
| 594 | (#{marksvec 1303}# (make-vector #{n 1299}#))) | |
| 595 | (begin | |
| 596 | (letrec* | |
| 597 | ((#{f 1307}# | |
| 598 | (lambda (#{ids 1308}# #{i 1309}#) | |
| 599 | (if (not (null? #{ids 1308}#)) | |
| 600 | (call-with-values | |
| 601 | (lambda () | |
| 602 | (#{id-sym-name&marks 353}# | |
| 603 | (car #{ids 1308}#) | |
| 604 | #{w 1290}#)) | |
| 605 | (lambda (#{symname 1310}# | |
| 606 | #{marks 1311}#) | |
| 607 | (begin | |
| 608 | (vector-set! | |
| 609 | #{symnamevec 1302}# | |
| 610 | #{i 1309}# | |
| 611 | #{symname 1310}#) | |
| 612 | (vector-set! | |
| 613 | #{marksvec 1303}# | |
| 614 | #{i 1309}# | |
| 615 | #{marks 1311}#) | |
| 616 | (#{f 1307}# | |
| 617 | (cdr #{ids 1308}#) | |
| 618 | (#{1+}# #{i 1309}#))))))))) | |
| 619 | (#{f 1307}# #{ids 1288}# 0)) | |
| 620 | (#{make-ribcage 372}# | |
| 621 | #{symnamevec 1302}# | |
| 622 | #{marksvec 1303}# | |
| 623 | #{labelvec 1297}#))))) | |
| 624 | (cdr #{w 1290}#)))))) | |
| 625 | (#{smart-append 403}# | |
| 626 | (lambda (#{m1 1316}# #{m2 1317}#) | |
| 627 | (if (null? #{m2 1317}#) | |
| 628 | #{m1 1316}# | |
| 629 | (append #{m1 1316}# #{m2 1317}#)))) | |
| 630 | (#{join-wraps 405}# | |
| 631 | (lambda (#{w1 1320}# #{w2 1321}#) | |
| 632 | (let ((#{m1 1326}# (car #{w1 1320}#)) | |
| 633 | (#{s1 1327}# (cdr #{w1 1320}#))) | |
| 634 | (if (null? #{m1 1326}#) | |
| 635 | (if (null? #{s1 1327}#) | |
| 636 | #{w2 1321}# | |
| 637 | (cons (car #{w2 1321}#) | |
| 638 | (#{smart-append 403}# | |
| 639 | #{s1 1327}# | |
| 640 | (cdr #{w2 1321}#)))) | |
| 641 | (cons (#{smart-append 403}# | |
| 642 | #{m1 1326}# | |
| 643 | (car #{w2 1321}#)) | |
| 644 | (#{smart-append 403}# | |
| 645 | #{s1 1327}# | |
| 646 | (cdr #{w2 1321}#))))))) | |
| 647 | (#{join-marks 407}# | |
| 648 | (lambda (#{m1 1336}# #{m2 1337}#) | |
| 649 | (#{smart-append 403}# #{m1 1336}# #{m2 1337}#))) | |
| 650 | (#{same-marks? 409}# | |
| 651 | (lambda (#{x 1340}# #{y 1341}#) | |
| 652 | (if (eq? #{x 1340}# #{y 1341}#) | |
| 653 | (eq? #{x 1340}# #{y 1341}#) | |
| 654 | (if (not (null? #{x 1340}#)) | |
| 655 | (if (not (null? #{y 1341}#)) | |
| 656 | (if (eq? (car #{x 1340}#) (car #{y 1341}#)) | |
| 657 | (#{same-marks? 409}# | |
| 658 | (cdr #{x 1340}#) | |
| 659 | (cdr #{y 1341}#)) | |
| df40b969 AW |
660 | #f) |
| 661 | #f) | |
| 662 | #f)))) | |
| 014de9e2 AW |
663 | (#{id-var-name 411}# |
| 664 | (lambda (#{id 1352}# #{w 1353}#) | |
| e2ccab57 | 665 | (letrec* |
| 014de9e2 AW |
666 | ((#{search 1359}# |
| 667 | (lambda (#{sym 1375}# #{subst 1376}# #{marks 1377}#) | |
| 668 | (if (null? #{subst 1376}#) | |
| 669 | (values #f #{marks 1377}#) | |
| 670 | (let ((#{fst 1382}# (car #{subst 1376}#))) | |
| 671 | (if (eq? #{fst 1382}# 'shift) | |
| 672 | (#{search 1359}# | |
| 673 | #{sym 1375}# | |
| 674 | (cdr #{subst 1376}#) | |
| 675 | (cdr #{marks 1377}#)) | |
| 676 | (let ((#{symnames 1384}# | |
| 677 | (#{ribcage-symnames 376}# #{fst 1382}#))) | |
| 678 | (if (vector? #{symnames 1384}#) | |
| 679 | (#{search-vector-rib 1363}# | |
| 680 | #{sym 1375}# | |
| 681 | #{subst 1376}# | |
| 682 | #{marks 1377}# | |
| 683 | #{symnames 1384}# | |
| 684 | #{fst 1382}#) | |
| 685 | (#{search-list-rib 1361}# | |
| 686 | #{sym 1375}# | |
| 687 | #{subst 1376}# | |
| 688 | #{marks 1377}# | |
| 689 | #{symnames 1384}# | |
| 690 | #{fst 1382}#)))))))) | |
| 691 | (#{search-list-rib 1361}# | |
| 692 | (lambda (#{sym 1385}# | |
| 693 | #{subst 1386}# | |
| 694 | #{marks 1387}# | |
| 695 | #{symnames 1388}# | |
| 696 | #{ribcage 1389}#) | |
| e2ccab57 | 697 | (letrec* |
| 014de9e2 AW |
698 | ((#{f 1398}# |
| 699 | (lambda (#{symnames 1399}# #{i 1400}#) | |
| 700 | (if (null? #{symnames 1399}#) | |
| 701 | (#{search 1359}# | |
| 702 | #{sym 1385}# | |
| 703 | (cdr #{subst 1386}#) | |
| 704 | #{marks 1387}#) | |
| 705 | (if (if (eq? (car #{symnames 1399}#) #{sym 1385}#) | |
| 706 | (#{same-marks? 409}# | |
| 707 | #{marks 1387}# | |
| e2ccab57 | 708 | (list-ref |
| 014de9e2 AW |
709 | (#{ribcage-marks 378}# #{ribcage 1389}#) |
| 710 | #{i 1400}#)) | |
| e2ccab57 AW |
711 | #f) |
| 712 | (values | |
| 713 | (list-ref | |
| 014de9e2 AW |
714 | (#{ribcage-labels 380}# #{ribcage 1389}#) |
| 715 | #{i 1400}#) | |
| 716 | #{marks 1387}#) | |
| 717 | (#{f 1398}# | |
| 718 | (cdr #{symnames 1399}#) | |
| 719 | (#{1+}# #{i 1400}#))))))) | |
| 720 | (#{f 1398}# #{symnames 1388}# 0)))) | |
| 721 | (#{search-vector-rib 1363}# | |
| 722 | (lambda (#{sym 1409}# | |
| 723 | #{subst 1410}# | |
| 724 | #{marks 1411}# | |
| 725 | #{symnames 1412}# | |
| 726 | #{ribcage 1413}#) | |
| 727 | (let ((#{n 1420}# (vector-length #{symnames 1412}#))) | |
| 728 | (letrec* | |
| 729 | ((#{f 1423}# | |
| 730 | (lambda (#{i 1424}#) | |
| 731 | (if (= #{i 1424}# #{n 1420}#) | |
| 732 | (#{search 1359}# | |
| 733 | #{sym 1409}# | |
| 734 | (cdr #{subst 1410}#) | |
| 735 | #{marks 1411}#) | |
| 736 | (if (if (eq? (vector-ref #{symnames 1412}# #{i 1424}#) | |
| 737 | #{sym 1409}#) | |
| 738 | (#{same-marks? 409}# | |
| 739 | #{marks 1411}# | |
| 740 | (vector-ref | |
| 741 | (#{ribcage-marks 378}# #{ribcage 1413}#) | |
| 742 | #{i 1424}#)) | |
| 743 | #f) | |
| 744 | (values | |
| 745 | (vector-ref | |
| 746 | (#{ribcage-labels 380}# #{ribcage 1413}#) | |
| 747 | #{i 1424}#) | |
| 748 | #{marks 1411}#) | |
| 749 | (#{f 1423}# (#{1+}# #{i 1424}#))))))) | |
| 750 | (#{f 1423}# 0)))))) | |
| 751 | (if (symbol? #{id 1352}#) | |
| 752 | (let ((#{t 1436}# | |
| 753 | (#{search 1359}# | |
| 754 | #{id 1352}# | |
| 755 | (cdr #{w 1353}#) | |
| 756 | (car #{w 1353}#)))) | |
| 757 | (if #{t 1436}# #{t 1436}# #{id 1352}#)) | |
| 758 | (if (#{syntax-object? 312}# #{id 1352}#) | |
| 759 | (let ((#{id 1445}# | |
| 760 | (#{syntax-object-expression 314}# #{id 1352}#)) | |
| 761 | (#{w1 1446}# | |
| 762 | (#{syntax-object-wrap 316}# #{id 1352}#))) | |
| 763 | (let ((#{marks 1448}# | |
| 764 | (#{join-marks 407}# | |
| 765 | (car #{w 1353}#) | |
| 766 | (car #{w1 1446}#)))) | |
| 767 | (call-with-values | |
| 768 | (lambda () | |
| 769 | (#{search 1359}# | |
| 770 | #{id 1445}# | |
| 771 | (cdr #{w 1353}#) | |
| 772 | #{marks 1448}#)) | |
| 773 | (lambda (#{new-id 1452}# #{marks 1453}#) | |
| 774 | (if #{new-id 1452}# | |
| 775 | #{new-id 1452}# | |
| 776 | (let ((#{t 1461}# | |
| 777 | (#{search 1359}# | |
| 778 | #{id 1445}# | |
| 779 | (cdr #{w1 1446}#) | |
| 780 | #{marks 1453}#))) | |
| 781 | (if #{t 1461}# #{t 1461}# #{id 1445}#))))))) | |
| 782 | (syntax-violation | |
| 783 | 'id-var-name | |
| 784 | "invalid id" | |
| 785 | #{id 1352}#)))))) | |
| 786 | (#{free-id=? 413}# | |
| 787 | (lambda (#{i 1466}# #{j 1467}#) | |
| 788 | (if (eq? (if (#{syntax-object? 312}# #{i 1466}#) | |
| 789 | (#{syntax-object-expression 314}# #{i 1466}#) | |
| 790 | #{i 1466}#) | |
| 791 | (if (#{syntax-object? 312}# #{j 1467}#) | |
| 792 | (#{syntax-object-expression 314}# #{j 1467}#) | |
| 793 | #{j 1467}#)) | |
| 794 | (eq? (#{id-var-name 411}# #{i 1466}# '(())) | |
| 795 | (#{id-var-name 411}# #{j 1467}# '(()))) | |
| e2ccab57 | 796 | #f))) |
| 014de9e2 AW |
797 | (#{bound-id=? 415}# |
| 798 | (lambda (#{i 1480}# #{j 1481}#) | |
| 799 | (if (if (#{syntax-object? 312}# #{i 1480}#) | |
| 800 | (#{syntax-object? 312}# #{j 1481}#) | |
| e2ccab57 | 801 | #f) |
| 014de9e2 AW |
802 | (if (eq? (#{syntax-object-expression 314}# #{i 1480}#) |
| 803 | (#{syntax-object-expression 314}# #{j 1481}#)) | |
| 804 | (#{same-marks? 409}# | |
| 805 | (car (#{syntax-object-wrap 316}# #{i 1480}#)) | |
| 806 | (car (#{syntax-object-wrap 316}# #{j 1481}#))) | |
| e2ccab57 | 807 | #f) |
| 014de9e2 AW |
808 | (eq? #{i 1480}# #{j 1481}#)))) |
| 809 | (#{valid-bound-ids? 417}# | |
| 810 | (lambda (#{ids 1490}#) | |
| e2ccab57 | 811 | (if (letrec* |
| 014de9e2 AW |
812 | ((#{all-ids? 1495}# |
| 813 | (lambda (#{ids 1496}#) | |
| 814 | (if (null? #{ids 1496}#) | |
| 815 | (null? #{ids 1496}#) | |
| 816 | (if (#{id? 349}# (car #{ids 1496}#)) | |
| 817 | (#{all-ids? 1495}# (cdr #{ids 1496}#)) | |
| df40b969 | 818 | #f))))) |
| 014de9e2 AW |
819 | (#{all-ids? 1495}# #{ids 1490}#)) |
| 820 | (#{distinct-bound-ids? 419}# #{ids 1490}#) | |
| e2ccab57 | 821 | #f))) |
| 014de9e2 AW |
822 | (#{distinct-bound-ids? 419}# |
| 823 | (lambda (#{ids 1504}#) | |
| e2ccab57 | 824 | (letrec* |
| 014de9e2 AW |
825 | ((#{distinct? 1508}# |
| 826 | (lambda (#{ids 1509}#) | |
| 827 | (if (null? #{ids 1509}#) | |
| 828 | (null? #{ids 1509}#) | |
| 829 | (if (not (#{bound-id-member? 421}# | |
| 830 | (car #{ids 1509}#) | |
| 831 | (cdr #{ids 1509}#))) | |
| 832 | (#{distinct? 1508}# (cdr #{ids 1509}#)) | |
| df40b969 | 833 | #f))))) |
| 014de9e2 AW |
834 | (#{distinct? 1508}# #{ids 1504}#)))) |
| 835 | (#{bound-id-member? 421}# | |
| 836 | (lambda (#{x 1516}# #{list 1517}#) | |
| 837 | (if (not (null? #{list 1517}#)) | |
| 838 | (let ((#{t 1524}# | |
| 839 | (#{bound-id=? 415}# | |
| 840 | #{x 1516}# | |
| 841 | (car #{list 1517}#)))) | |
| 842 | (if #{t 1524}# | |
| 843 | #{t 1524}# | |
| 844 | (#{bound-id-member? 421}# | |
| 845 | #{x 1516}# | |
| 846 | (cdr #{list 1517}#)))) | |
| e2ccab57 | 847 | #f))) |
| 014de9e2 AW |
848 | (#{wrap 423}# |
| 849 | (lambda (#{x 1526}# #{w 1527}# #{defmod 1528}#) | |
| 850 | (if (if (null? (car #{w 1527}#)) | |
| 851 | (null? (cdr #{w 1527}#)) | |
| e2ccab57 | 852 | #f) |
| 014de9e2 AW |
853 | #{x 1526}# |
| 854 | (if (#{syntax-object? 312}# #{x 1526}#) | |
| 855 | (#{make-syntax-object 310}# | |
| 856 | (#{syntax-object-expression 314}# #{x 1526}#) | |
| 857 | (#{join-wraps 405}# | |
| 858 | #{w 1527}# | |
| 859 | (#{syntax-object-wrap 316}# #{x 1526}#)) | |
| 860 | (#{syntax-object-module 318}# #{x 1526}#)) | |
| 861 | (if (null? #{x 1526}#) | |
| 862 | #{x 1526}# | |
| 863 | (#{make-syntax-object 310}# | |
| 864 | #{x 1526}# | |
| 865 | #{w 1527}# | |
| 866 | #{defmod 1528}#)))))) | |
| 867 | (#{source-wrap 425}# | |
| 868 | (lambda (#{x 1543}# | |
| 869 | #{w 1544}# | |
| 870 | #{s 1545}# | |
| 871 | #{defmod 1546}#) | |
| 872 | (#{wrap 423}# | |
| 873 | (#{decorate-source 265}# #{x 1543}# #{s 1545}#) | |
| 874 | #{w 1544}# | |
| 875 | #{defmod 1546}#))) | |
| 876 | (#{chi-sequence 427}# | |
| 877 | (lambda (#{body 1551}# | |
| 878 | #{r 1552}# | |
| 879 | #{w 1553}# | |
| 880 | #{s 1554}# | |
| 881 | #{mod 1555}#) | |
| 882 | (#{build-sequence 299}# | |
| 883 | #{s 1554}# | |
| e2ccab57 | 884 | (letrec* |
| 014de9e2 AW |
885 | ((#{dobody 1566}# |
| 886 | (lambda (#{body 1567}# | |
| 887 | #{r 1568}# | |
| 888 | #{w 1569}# | |
| 889 | #{mod 1570}#) | |
| 890 | (if (null? #{body 1567}#) | |
| e2ccab57 | 891 | '() |
| 014de9e2 AW |
892 | (let ((#{first 1572}# |
| 893 | (#{chi 437}# | |
| 894 | (car #{body 1567}#) | |
| 895 | #{r 1568}# | |
| 896 | #{w 1569}# | |
| 897 | #{mod 1570}#))) | |
| 898 | (cons #{first 1572}# | |
| 899 | (#{dobody 1566}# | |
| 900 | (cdr #{body 1567}#) | |
| 901 | #{r 1568}# | |
| 902 | #{w 1569}# | |
| 903 | #{mod 1570}#))))))) | |
| 904 | (#{dobody 1566}# | |
| 905 | #{body 1551}# | |
| 906 | #{r 1552}# | |
| 907 | #{w 1553}# | |
| 908 | #{mod 1555}#))))) | |
| 909 | (#{chi-top-sequence 429}# | |
| 910 | (lambda (#{body 1573}# | |
| 911 | #{r 1574}# | |
| 912 | #{w 1575}# | |
| 913 | #{s 1576}# | |
| 914 | #{m 1577}# | |
| 915 | #{esew 1578}# | |
| 916 | #{mod 1579}#) | |
| e2ccab57 | 917 | (letrec* |
| 014de9e2 AW |
918 | ((#{scan 1588}# |
| 919 | (lambda (#{body 1589}# | |
| 920 | #{r 1590}# | |
| 921 | #{w 1591}# | |
| 922 | #{s 1592}# | |
| 923 | #{m 1593}# | |
| 924 | #{esew 1594}# | |
| 925 | #{mod 1595}# | |
| 926 | #{exps 1596}#) | |
| 927 | (if (null? #{body 1589}#) | |
| 928 | #{exps 1596}# | |
| e2ccab57 AW |
929 | (call-with-values |
| 930 | (lambda () | |
| d8f699e8 AW |
931 | (call-with-values |
| 932 | (lambda () | |
| 014de9e2 AW |
933 | (let ((#{e 1609}# (car #{body 1589}#))) |
| 934 | (#{syntax-type 435}# | |
| 935 | #{e 1609}# | |
| 936 | #{r 1590}# | |
| 937 | #{w 1591}# | |
| 938 | (let ((#{t 1612}# | |
| 939 | (#{source-annotation 327}# #{e 1609}#))) | |
| 940 | (if #{t 1612}# #{t 1612}# #{s 1592}#)) | |
| 941 | #f | |
| 942 | #{mod 1595}# | |
| 943 | #f))) | |
| 944 | (lambda (#{type 1614}# | |
| 945 | #{value 1615}# | |
| 946 | #{e 1616}# | |
| 947 | #{w 1617}# | |
| 948 | #{s 1618}# | |
| 949 | #{mod 1619}#) | |
| 950 | (if (memv #{type 1614}# '(begin-form)) | |
| 951 | (let ((#{tmp 1628}# ($sc-dispatch #{e 1616}# '(_)))) | |
| 952 | (if #{tmp 1628}# | |
| 953 | (@apply (lambda () #{exps 1596}#) #{tmp 1628}#) | |
| 954 | (let ((#{tmp 1629}# | |
| 955 | ($sc-dispatch | |
| 956 | #{e 1616}# | |
| 957 | '(_ any . each-any)))) | |
| 958 | (if #{tmp 1629}# | |
| 959 | (@apply | |
| 960 | (lambda (#{e1 1632}# #{e2 1633}#) | |
| 961 | (#{scan 1588}# | |
| 962 | (cons #{e1 1632}# #{e2 1633}#) | |
| 963 | #{r 1590}# | |
| 964 | #{w 1617}# | |
| 965 | #{s 1618}# | |
| 966 | #{m 1593}# | |
| 967 | #{esew 1594}# | |
| 968 | #{mod 1619}# | |
| 969 | #{exps 1596}#)) | |
| 970 | #{tmp 1629}#) | |
| 971 | (syntax-violation | |
| 972 | #f | |
| 973 | "source expression failed to match any pattern" | |
| 974 | #{e 1616}#))))) | |
| 975 | (if (memv #{type 1614}# '(local-syntax-form)) | |
| 976 | (#{chi-local-syntax 447}# | |
| 977 | #{value 1615}# | |
| 978 | #{e 1616}# | |
| 979 | #{r 1590}# | |
| 980 | #{w 1617}# | |
| 981 | #{s 1618}# | |
| 982 | #{mod 1619}# | |
| 983 | (lambda (#{body 1636}# | |
| 984 | #{r 1637}# | |
| 985 | #{w 1638}# | |
| 986 | #{s 1639}# | |
| 987 | #{mod 1640}#) | |
| 988 | (#{scan 1588}# | |
| 989 | #{body 1636}# | |
| 990 | #{r 1637}# | |
| 991 | #{w 1638}# | |
| 992 | #{s 1639}# | |
| 993 | #{m 1593}# | |
| 994 | #{esew 1594}# | |
| 995 | #{mod 1640}# | |
| 996 | #{exps 1596}#))) | |
| 997 | (if (memv #{type 1614}# '(eval-when-form)) | |
| 998 | (let ((#{tmp 1648}# | |
| 999 | ($sc-dispatch | |
| 1000 | #{e 1616}# | |
| 1001 | '(_ each-any any . each-any)))) | |
| 1002 | (if #{tmp 1648}# | |
| 1003 | (@apply | |
| 1004 | (lambda (#{x 1652}# | |
| 1005 | #{e1 1653}# | |
| 1006 | #{e2 1654}#) | |
| 1007 | (let ((#{when-list 1657}# | |
| 1008 | (#{chi-when-list 433}# | |
| 1009 | #{e 1616}# | |
| 1010 | #{x 1652}# | |
| 1011 | #{w 1617}#)) | |
| 1012 | (#{body 1658}# | |
| 1013 | (cons #{e1 1653}# #{e2 1654}#))) | |
| 1014 | (if (eq? #{m 1593}# 'e) | |
| 1015 | (if (memq 'eval #{when-list 1657}#) | |
| 1016 | (#{scan 1588}# | |
| 1017 | #{body 1658}# | |
| 1018 | #{r 1590}# | |
| 1019 | #{w 1617}# | |
| 1020 | #{s 1618}# | |
| 1021 | (if (memq 'expand | |
| 1022 | #{when-list 1657}#) | |
| 1023 | 'c&e | |
| 1024 | 'e) | |
| 1025 | '(eval) | |
| 1026 | #{mod 1619}# | |
| 1027 | #{exps 1596}#) | |
| d8f699e8 | 1028 | (begin |
| 014de9e2 AW |
1029 | (if (memq 'expand |
| 1030 | #{when-list 1657}#) | |
| 1031 | (#{top-level-eval-hook 255}# | |
| 1032 | (#{chi-top-sequence 429}# | |
| 1033 | #{body 1658}# | |
| 1034 | #{r 1590}# | |
| 1035 | #{w 1617}# | |
| 1036 | #{s 1618}# | |
| 1037 | 'e | |
| 1038 | '(eval) | |
| 1039 | #{mod 1619}#) | |
| 1040 | #{mod 1619}#)) | |
| 1041 | (values #{exps 1596}#))) | |
| 1042 | (if (memq 'load #{when-list 1657}#) | |
| 1043 | (if (let ((#{t 1667}# | |
| 1044 | (memq 'compile | |
| 1045 | #{when-list 1657}#))) | |
| 1046 | (if #{t 1667}# | |
| 1047 | #{t 1667}# | |
| 1048 | (let ((#{t 1670}# | |
| 1049 | (memq 'expand | |
| 1050 | #{when-list 1657}#))) | |
| 1051 | (if #{t 1670}# | |
| 1052 | #{t 1670}# | |
| 1053 | (if (eq? #{m 1593}# | |
| 1054 | 'c&e) | |
| 1055 | (memq 'eval | |
| 1056 | #{when-list 1657}#) | |
| 1057 | #f))))) | |
| 1058 | (#{scan 1588}# | |
| 1059 | #{body 1658}# | |
| 1060 | #{r 1590}# | |
| 1061 | #{w 1617}# | |
| 1062 | #{s 1618}# | |
| 1063 | 'c&e | |
| 1064 | '(compile load) | |
| 1065 | #{mod 1619}# | |
| 1066 | #{exps 1596}#) | |
| 1067 | (if (memq #{m 1593}# '(c c&e)) | |
| 1068 | (#{scan 1588}# | |
| 1069 | #{body 1658}# | |
| 1070 | #{r 1590}# | |
| 1071 | #{w 1617}# | |
| 1072 | #{s 1618}# | |
| 1073 | 'c | |
| 1074 | '(load) | |
| 1075 | #{mod 1619}# | |
| 1076 | #{exps 1596}#) | |
| 1077 | (values #{exps 1596}#))) | |
| 1078 | (if (let ((#{t 1678}# | |
| 1079 | (memq 'compile | |
| 1080 | #{when-list 1657}#))) | |
| 1081 | (if #{t 1678}# | |
| 1082 | #{t 1678}# | |
| 1083 | (let ((#{t 1681}# | |
| 1084 | (memq 'expand | |
| 1085 | #{when-list 1657}#))) | |
| 1086 | (if #{t 1681}# | |
| 1087 | #{t 1681}# | |
| 1088 | (if (eq? #{m 1593}# | |
| 1089 | 'c&e) | |
| 1090 | (memq 'eval | |
| 1091 | #{when-list 1657}#) | |
| 1092 | #f))))) | |
| 1093 | (begin | |
| 1094 | (#{top-level-eval-hook 255}# | |
| 1095 | (#{chi-top-sequence 429}# | |
| 1096 | #{body 1658}# | |
| 1097 | #{r 1590}# | |
| 1098 | #{w 1617}# | |
| 1099 | #{s 1618}# | |
| 1100 | 'e | |
| 1101 | '(eval) | |
| 1102 | #{mod 1619}#) | |
| 1103 | #{mod 1619}#) | |
| 1104 | (values #{exps 1596}#)) | |
| 1105 | (values #{exps 1596}#)))))) | |
| 1106 | #{tmp 1648}#) | |
| 1107 | (syntax-violation | |
| 1108 | #f | |
| 1109 | "source expression failed to match any pattern" | |
| 1110 | #{e 1616}#))) | |
| 1111 | (if (memv #{type 1614}# '(define-syntax-form)) | |
| 1112 | (let ((#{n 1689}# | |
| 1113 | (#{id-var-name 411}# | |
| 1114 | #{value 1615}# | |
| 1115 | #{w 1617}#)) | |
| 1116 | (#{r 1690}# | |
| 1117 | (#{macros-only-env 341}# #{r 1590}#))) | |
| 1118 | (if (memv #{m 1593}# '(c)) | |
| 1119 | (if (memq 'compile #{esew 1594}#) | |
| 1120 | (let ((#{e 1693}# | |
| 1121 | (#{chi-install-global 431}# | |
| 1122 | #{n 1689}# | |
| 1123 | (#{chi 437}# | |
| 1124 | #{e 1616}# | |
| 1125 | #{r 1690}# | |
| 1126 | #{w 1617}# | |
| 1127 | #{mod 1619}#)))) | |
| e2ccab57 | 1128 | (begin |
| 014de9e2 AW |
1129 | (#{top-level-eval-hook 255}# |
| 1130 | #{e 1693}# | |
| 1131 | #{mod 1619}#) | |
| 1132 | (if (memq 'load #{esew 1594}#) | |
| 1133 | (values | |
| 1134 | (cons #{e 1693}# #{exps 1596}#)) | |
| 1135 | (values #{exps 1596}#)))) | |
| 1136 | (if (memq 'load #{esew 1594}#) | |
| 1137 | (values | |
| 1138 | (cons (#{chi-install-global 431}# | |
| 1139 | #{n 1689}# | |
| 1140 | (#{chi 437}# | |
| 1141 | #{e 1616}# | |
| 1142 | #{r 1690}# | |
| 1143 | #{w 1617}# | |
| 1144 | #{mod 1619}#)) | |
| 1145 | #{exps 1596}#)) | |
| 1146 | (values #{exps 1596}#))) | |
| 1147 | (if (memv #{m 1593}# '(c&e)) | |
| 1148 | (let ((#{e 1696}# | |
| 1149 | (#{chi-install-global 431}# | |
| 1150 | #{n 1689}# | |
| 1151 | (#{chi 437}# | |
| 1152 | #{e 1616}# | |
| 1153 | #{r 1690}# | |
| 1154 | #{w 1617}# | |
| 1155 | #{mod 1619}#)))) | |
| e2ccab57 | 1156 | (begin |
| 014de9e2 AW |
1157 | (#{top-level-eval-hook 255}# |
| 1158 | #{e 1696}# | |
| 1159 | #{mod 1619}#) | |
| 1160 | (values | |
| 1161 | (cons #{e 1696}# #{exps 1596}#)))) | |
| d8f699e8 | 1162 | (begin |
| 014de9e2 AW |
1163 | (if (memq 'eval #{esew 1594}#) |
| 1164 | (#{top-level-eval-hook 255}# | |
| 1165 | (#{chi-install-global 431}# | |
| 1166 | #{n 1689}# | |
| 1167 | (#{chi 437}# | |
| 1168 | #{e 1616}# | |
| 1169 | #{r 1690}# | |
| 1170 | #{w 1617}# | |
| 1171 | #{mod 1619}#)) | |
| 1172 | #{mod 1619}#)) | |
| 1173 | (values #{exps 1596}#))))) | |
| 1174 | (if (memv #{type 1614}# '(define-form)) | |
| 1175 | (let ((#{n 1701}# | |
| 1176 | (#{id-var-name 411}# | |
| 1177 | #{value 1615}# | |
| 1178 | #{w 1617}#))) | |
| 1179 | (let ((#{type 1703}# | |
| 1180 | (car (#{lookup 343}# | |
| 1181 | #{n 1701}# | |
| 1182 | #{r 1590}# | |
| 1183 | #{mod 1619}#)))) | |
| 1184 | (if (memv #{type 1703}# | |
| 1185 | '(global | |
| 1186 | core | |
| 1187 | macro | |
| 1188 | module-ref)) | |
| 1189 | (begin | |
| 1190 | (if (if (memq #{m 1593}# '(c c&e)) | |
| 1191 | (if (not (module-local-variable | |
| 1192 | (current-module) | |
| 1193 | #{n 1701}#)) | |
| 1194 | (current-module) | |
| 1195 | #f) | |
| 1196 | #f) | |
| 1197 | (let ((#{old 1710}# | |
| 1198 | (module-variable | |
| e2ccab57 | 1199 | (current-module) |
| 014de9e2 AW |
1200 | #{n 1701}#))) |
| 1201 | (if (if (variable? #{old 1710}#) | |
| 1202 | (variable-bound? | |
| 1203 | #{old 1710}#) | |
| e2ccab57 | 1204 | #f) |
| 014de9e2 AW |
1205 | (module-define! |
| 1206 | (current-module) | |
| 1207 | #{n 1701}# | |
| 1208 | (variable-ref #{old 1710}#)) | |
| 1209 | (module-add! | |
| 1210 | (current-module) | |
| 1211 | #{n 1701}# | |
| 1212 | (make-undefined-variable))))) | |
| 1213 | (values | |
| 1214 | (cons (if (eq? #{m 1593}# 'c&e) | |
| 1215 | (let ((#{x 1714}# | |
| 1216 | (#{build-global-definition 287}# | |
| 1217 | #{s 1618}# | |
| 1218 | #{n 1701}# | |
| 1219 | (#{chi 437}# | |
| 1220 | #{e 1616}# | |
| 1221 | #{r 1590}# | |
| 1222 | #{w 1617}# | |
| 1223 | #{mod 1619}#)))) | |
| 1224 | (begin | |
| 1225 | (#{top-level-eval-hook 255}# | |
| 1226 | #{x 1714}# | |
| 1227 | #{mod 1619}#) | |
| 1228 | #{x 1714}#)) | |
| 1229 | (lambda () | |
| 1230 | (#{build-global-definition 287}# | |
| 1231 | #{s 1618}# | |
| 1232 | #{n 1701}# | |
| 1233 | (#{chi 437}# | |
| 1234 | #{e 1616}# | |
| 1235 | #{r 1590}# | |
| 1236 | #{w 1617}# | |
| 1237 | #{mod 1619}#)))) | |
| 1238 | #{exps 1596}#))) | |
| 1239 | (if (memv #{type 1703}# | |
| 1240 | '(displaced-lexical)) | |
| 1241 | (syntax-violation | |
| 1242 | #f | |
| 1243 | "identifier out of context" | |
| 1244 | #{e 1616}# | |
| 1245 | (#{wrap 423}# | |
| 1246 | #{value 1615}# | |
| 1247 | #{w 1617}# | |
| 1248 | #{mod 1619}#)) | |
| 1249 | (syntax-violation | |
| 1250 | #f | |
| 1251 | "cannot define keyword at top level" | |
| 1252 | #{e 1616}# | |
| 1253 | (#{wrap 423}# | |
| 1254 | #{value 1615}# | |
| 1255 | #{w 1617}# | |
| 1256 | #{mod 1619}#)))))) | |
| 0ed9680f | 1257 | (values |
| 014de9e2 AW |
1258 | (cons (if (eq? #{m 1593}# 'c&e) |
| 1259 | (let ((#{x 1719}# | |
| 1260 | (#{chi-expr 439}# | |
| 1261 | #{type 1614}# | |
| 1262 | #{value 1615}# | |
| 1263 | #{e 1616}# | |
| 1264 | #{r 1590}# | |
| 1265 | #{w 1617}# | |
| 1266 | #{s 1618}# | |
| 1267 | #{mod 1619}#))) | |
| 1268 | (begin | |
| 1269 | (#{top-level-eval-hook 255}# | |
| 1270 | #{x 1719}# | |
| 1271 | #{mod 1619}#) | |
| 1272 | #{x 1719}#)) | |
| 0ed9680f | 1273 | (lambda () |
| 014de9e2 AW |
1274 | (#{chi-expr 439}# |
| 1275 | #{type 1614}# | |
| 1276 | #{value 1615}# | |
| 1277 | #{e 1616}# | |
| 1278 | #{r 1590}# | |
| 1279 | #{w 1617}# | |
| 1280 | #{s 1618}# | |
| 1281 | #{mod 1619}#))) | |
| 1282 | #{exps 1596}#)))))))))) | |
| 1283 | (lambda (#{exps 1720}#) | |
| 1284 | (#{scan 1588}# | |
| 1285 | (cdr #{body 1589}#) | |
| 1286 | #{r 1590}# | |
| 1287 | #{w 1591}# | |
| 1288 | #{s 1592}# | |
| 1289 | #{m 1593}# | |
| 1290 | #{esew 1594}# | |
| 1291 | #{mod 1595}# | |
| 1292 | #{exps 1720}#))))))) | |
| 1293 | (call-with-values | |
| 1294 | (lambda () | |
| 1295 | (#{scan 1588}# | |
| 1296 | #{body 1573}# | |
| 1297 | #{r 1574}# | |
| 1298 | #{w 1575}# | |
| 1299 | #{s 1576}# | |
| 1300 | #{m 1577}# | |
| 1301 | #{esew 1578}# | |
| 1302 | #{mod 1579}# | |
| 1303 | '())) | |
| 1304 | (lambda (#{exps 1722}#) | |
| 1305 | (if (null? #{exps 1722}#) | |
| 1306 | (#{build-void 269}# #{s 1576}#) | |
| 1307 | (#{build-sequence 299}# | |
| 1308 | #{s 1576}# | |
| 1309 | (letrec* | |
| 1310 | ((#{lp 1727}# | |
| 1311 | (lambda (#{in 1728}# #{out 1729}#) | |
| 1312 | (if (null? #{in 1728}#) | |
| 1313 | #{out 1729}# | |
| 1314 | (let ((#{e 1731}# (car #{in 1728}#))) | |
| 1315 | (#{lp 1727}# | |
| 1316 | (cdr #{in 1728}#) | |
| 1317 | (cons (if (procedure? #{e 1731}#) | |
| 1318 | (#{e 1731}#) | |
| 1319 | #{e 1731}#) | |
| 1320 | #{out 1729}#))))))) | |
| 1321 | (#{lp 1727}# #{exps 1722}# '()))))))))) | |
| 1322 | (#{chi-install-global 431}# | |
| 1323 | (lambda (#{name 1732}# #{e 1733}#) | |
| 1324 | (#{build-global-definition 287}# | |
| e2ccab57 | 1325 | #f |
| 014de9e2 AW |
1326 | #{name 1732}# |
| 1327 | (#{build-application 271}# | |
| e2ccab57 | 1328 | #f |
| 014de9e2 | 1329 | (#{build-primref 295}# |
| d8f699e8 | 1330 | #f |
| e2ccab57 | 1331 | 'make-syntax-transformer) |
| 014de9e2 AW |
1332 | (list (#{build-data 297}# #f #{name 1732}#) |
| 1333 | (#{build-data 297}# #f 'macro) | |
| 1334 | #{e 1733}#))))) | |
| 1335 | (#{chi-when-list 433}# | |
| 1336 | (lambda (#{e 1741}# #{when-list 1742}# #{w 1743}#) | |
| e2ccab57 | 1337 | (letrec* |
| 014de9e2 AW |
1338 | ((#{f 1750}# |
| 1339 | (lambda (#{when-list 1751}# #{situations 1752}#) | |
| 1340 | (if (null? #{when-list 1751}#) | |
| 1341 | #{situations 1752}# | |
| 1342 | (#{f 1750}# | |
| 1343 | (cdr #{when-list 1751}#) | |
| 1344 | (cons (let ((#{x 1754}# (car #{when-list 1751}#))) | |
| 1345 | (if (#{free-id=? 413}# | |
| 1346 | #{x 1754}# | |
| 1347 | '#(syntax-object | |
| 1348 | compile | |
| 1349 | ((top) | |
| 1350 | #(ribcage () () ()) | |
| 1351 | #(ribcage () () ()) | |
| 1352 | #(ribcage () () ()) | |
| 1353 | #(ribcage #(x) #((top)) #("i1753")) | |
| 1354 | #(ribcage () () ()) | |
| 1355 | #(ribcage | |
| 1356 | #(f when-list situations) | |
| 1357 | #((top) (top) (top)) | |
| 1358 | #("i1747" "i1748" "i1749")) | |
| 1359 | #(ribcage () () ()) | |
| 1360 | #(ribcage | |
| 1361 | #(e when-list w) | |
| 1362 | #((top) (top) (top)) | |
| 1363 | #("i1744" "i1745" "i1746")) | |
| 1364 | #(ribcage | |
| 1365 | (lambda-var-list | |
| 1366 | gen-var | |
| 1367 | strip | |
| 1368 | chi-lambda-case | |
| 1369 | lambda*-formals | |
| 1370 | chi-simple-lambda | |
| 1371 | lambda-formals | |
| 1372 | ellipsis? | |
| 1373 | chi-void | |
| 1374 | eval-local-transformer | |
| 1375 | chi-local-syntax | |
| 1376 | chi-body | |
| 1377 | chi-macro | |
| 1378 | chi-application | |
| 1379 | chi-expr | |
| 1380 | chi | |
| 1381 | syntax-type | |
| 1382 | chi-when-list | |
| 1383 | chi-install-global | |
| 1384 | chi-top-sequence | |
| 1385 | chi-sequence | |
| 1386 | source-wrap | |
| 1387 | wrap | |
| 1388 | bound-id-member? | |
| 1389 | distinct-bound-ids? | |
| 1390 | valid-bound-ids? | |
| 1391 | bound-id=? | |
| 1392 | free-id=? | |
| 1393 | id-var-name | |
| 1394 | same-marks? | |
| 1395 | join-marks | |
| 1396 | join-wraps | |
| 1397 | smart-append | |
| 1398 | make-binding-wrap | |
| 1399 | extend-ribcage! | |
| 1400 | make-empty-ribcage | |
| 1401 | new-mark | |
| 1402 | anti-mark | |
| 1403 | the-anti-mark | |
| 1404 | top-marked? | |
| 1405 | top-wrap | |
| 1406 | empty-wrap | |
| 1407 | set-ribcage-labels! | |
| 1408 | set-ribcage-marks! | |
| 1409 | set-ribcage-symnames! | |
| 1410 | ribcage-labels | |
| 1411 | ribcage-marks | |
| 1412 | ribcage-symnames | |
| 1413 | ribcage? | |
| 1414 | make-ribcage | |
| 1415 | gen-labels | |
| 1416 | gen-label | |
| 1417 | make-rename | |
| 1418 | rename-marks | |
| 1419 | rename-new | |
| 1420 | rename-old | |
| 1421 | subst-rename? | |
| 1422 | wrap-subst | |
| 1423 | wrap-marks | |
| 1424 | make-wrap | |
| 1425 | id-sym-name&marks | |
| 1426 | id-sym-name | |
| 1427 | id? | |
| 1428 | nonsymbol-id? | |
| 1429 | global-extend | |
| 1430 | lookup | |
| 1431 | macros-only-env | |
| 1432 | extend-var-env | |
| 1433 | extend-env | |
| 1434 | null-env | |
| 1435 | binding-value | |
| 1436 | binding-type | |
| 1437 | make-binding | |
| 1438 | arg-check | |
| 1439 | source-annotation | |
| 1440 | no-source | |
| 1441 | set-syntax-object-module! | |
| 1442 | set-syntax-object-wrap! | |
| 1443 | set-syntax-object-expression! | |
| 1444 | syntax-object-module | |
| 1445 | syntax-object-wrap | |
| 1446 | syntax-object-expression | |
| 1447 | syntax-object? | |
| 1448 | make-syntax-object | |
| 1449 | build-lexical-var | |
| 1450 | build-letrec | |
| 1451 | build-named-let | |
| 1452 | build-let | |
| 1453 | build-sequence | |
| 1454 | build-data | |
| 1455 | build-primref | |
| 1456 | build-lambda-case | |
| 1457 | build-case-lambda | |
| 1458 | build-simple-lambda | |
| 1459 | build-global-definition | |
| 1460 | build-global-assignment | |
| 1461 | build-global-reference | |
| 1462 | analyze-variable | |
| 1463 | build-lexical-assignment | |
| 1464 | build-lexical-reference | |
| 1465 | build-dynlet | |
| 1466 | build-conditional | |
| 1467 | build-application | |
| 1468 | build-void | |
| 1469 | maybe-name-value! | |
| 1470 | decorate-source | |
| 1471 | get-global-definition-hook | |
| 1472 | put-global-definition-hook | |
| 1473 | gensym-hook | |
| 1474 | local-eval-hook | |
| 1475 | top-level-eval-hook | |
| 1476 | fx< | |
| 1477 | fx= | |
| 1478 | fx- | |
| 1479 | fx+ | |
| 1480 | set-lambda-meta! | |
| 1481 | lambda-meta | |
| 1482 | lambda? | |
| 1483 | make-dynlet | |
| 1484 | make-letrec | |
| 1485 | make-let | |
| 1486 | make-lambda-case | |
| 1487 | make-lambda | |
| 1488 | make-sequence | |
| 1489 | make-application | |
| 1490 | make-conditional | |
| 1491 | make-toplevel-define | |
| 1492 | make-toplevel-set | |
| 1493 | make-toplevel-ref | |
| 1494 | make-module-set | |
| 1495 | make-module-ref | |
| 1496 | make-lexical-set | |
| 1497 | make-lexical-ref | |
| 1498 | make-primitive-ref | |
| 1499 | make-const | |
| 1500 | make-void) | |
| 1501 | ((top) | |
| 1502 | (top) | |
| 1503 | (top) | |
| 1504 | (top) | |
| 1505 | (top) | |
| 1506 | (top) | |
| 1507 | (top) | |
| 1508 | (top) | |
| 1509 | (top) | |
| 1510 | (top) | |
| 1511 | (top) | |
| 1512 | (top) | |
| 1513 | (top) | |
| 1514 | (top) | |
| 1515 | (top) | |
| 1516 | (top) | |
| 1517 | (top) | |
| 1518 | (top) | |
| 1519 | (top) | |
| 1520 | (top) | |
| 1521 | (top) | |
| 1522 | (top) | |
| 1523 | (top) | |
| 1524 | (top) | |
| 1525 | (top) | |
| 1526 | (top) | |
| 1527 | (top) | |
| 1528 | (top) | |
| 1529 | (top) | |
| 1530 | (top) | |
| 1531 | (top) | |
| 1532 | (top) | |
| 1533 | (top) | |
| 1534 | (top) | |
| 1535 | (top) | |
| 1536 | (top) | |
| 1537 | (top) | |
| 1538 | (top) | |
| 1539 | (top) | |
| 1540 | (top) | |
| 1541 | (top) | |
| 1542 | (top) | |
| 1543 | (top) | |
| 1544 | (top) | |
| 1545 | (top) | |
| 1546 | (top) | |
| 1547 | (top) | |
| 1548 | (top) | |
| 1549 | (top) | |
| 1550 | (top) | |
| 1551 | (top) | |
| 1552 | (top) | |
| 1553 | (top) | |
| 1554 | (top) | |
| 1555 | (top) | |
| 1556 | (top) | |
| 1557 | (top) | |
| 1558 | (top) | |
| 1559 | (top) | |
| 1560 | (top) | |
| 1561 | (top) | |
| 1562 | (top) | |
| 1563 | (top) | |
| 1564 | (top) | |
| 1565 | (top) | |
| 1566 | (top) | |
| 1567 | (top) | |
| 1568 | (top) | |
| 1569 | (top) | |
| 1570 | (top) | |
| 1571 | (top) | |
| 1572 | (top) | |
| 1573 | (top) | |
| 1574 | (top) | |
| 1575 | (top) | |
| 1576 | (top) | |
| 1577 | (top) | |
| 1578 | (top) | |
| 1579 | (top) | |
| 1580 | (top) | |
| 1581 | (top) | |
| 1582 | (top) | |
| 1583 | (top) | |
| 1584 | (top) | |
| 1585 | (top) | |
| 1586 | (top) | |
| 1587 | (top) | |
| 1588 | (top) | |
| 1589 | (top) | |
| 1590 | (top) | |
| 1591 | (top) | |
| 1592 | (top) | |
| 1593 | (top) | |
| 1594 | (top) | |
| 1595 | (top) | |
| 1596 | (top) | |
| 1597 | (top) | |
| 1598 | (top) | |
| 1599 | (top) | |
| 1600 | (top) | |
| 1601 | (top) | |
| 1602 | (top) | |
| 1603 | (top) | |
| 1604 | (top) | |
| 1605 | (top) | |
| 1606 | (top) | |
| 1607 | (top) | |
| 1608 | (top) | |
| 1609 | (top) | |
| 1610 | (top) | |
| 1611 | (top) | |
| 1612 | (top) | |
| 1613 | (top) | |
| 1614 | (top) | |
| 1615 | (top) | |
| 1616 | (top) | |
| 1617 | (top) | |
| 1618 | (top) | |
| 1619 | (top) | |
| 1620 | (top) | |
| 1621 | (top) | |
| 1622 | (top) | |
| 1623 | (top) | |
| 1624 | (top) | |
| 1625 | (top) | |
| 1626 | (top) | |
| 1627 | (top) | |
| 1628 | (top) | |
| 1629 | (top) | |
| 1630 | (top) | |
| 1631 | (top) | |
| 1632 | (top) | |
| 1633 | (top) | |
| 1634 | (top) | |
| 1635 | (top) | |
| 1636 | (top)) | |
| 1637 | ("i466" | |
| 1638 | "i464" | |
| 1639 | "i462" | |
| 1640 | "i460" | |
| 1641 | "i458" | |
| 1642 | "i456" | |
| 1643 | "i454" | |
| 1644 | "i452" | |
| 1645 | "i450" | |
| 1646 | "i448" | |
| 1647 | "i446" | |
| 1648 | "i444" | |
| 1649 | "i442" | |
| 1650 | "i440" | |
| 1651 | "i438" | |
| 1652 | "i436" | |
| 1653 | "i434" | |
| 1654 | "i432" | |
| 1655 | "i430" | |
| 1656 | "i428" | |
| 1657 | "i426" | |
| 1658 | "i424" | |
| 1659 | "i422" | |
| 1660 | "i420" | |
| 1661 | "i418" | |
| 1662 | "i416" | |
| 1663 | "i414" | |
| 1664 | "i412" | |
| 1665 | "i410" | |
| 1666 | "i408" | |
| 1667 | "i406" | |
| 1668 | "i404" | |
| 1669 | "i402" | |
| 1670 | "i400" | |
| 1671 | "i398" | |
| 1672 | "i397" | |
| 1673 | "i395" | |
| 1674 | "i392" | |
| 1675 | "i391" | |
| 1676 | "i390" | |
| 1677 | "i388" | |
| 1678 | "i387" | |
| 1679 | "i385" | |
| 1680 | "i383" | |
| 1681 | "i381" | |
| 1682 | "i379" | |
| 1683 | "i377" | |
| 1684 | "i375" | |
| 1685 | "i373" | |
| 1686 | "i371" | |
| 1687 | "i368" | |
| 1688 | "i366" | |
| 1689 | "i365" | |
| 1690 | "i363" | |
| 1691 | "i361" | |
| 1692 | "i359" | |
| 1693 | "i357" | |
| 1694 | "i356" | |
| 1695 | "i355" | |
| 1696 | "i354" | |
| 1697 | "i352" | |
| 1698 | "i351" | |
| 1699 | "i348" | |
| 1700 | "i346" | |
| 1701 | "i344" | |
| 1702 | "i342" | |
| 1703 | "i340" | |
| 1704 | "i338" | |
| 1705 | "i336" | |
| 1706 | "i335" | |
| 1707 | "i334" | |
| 1708 | "i332" | |
| 1709 | "i330" | |
| 1710 | "i329" | |
| 1711 | "i326" | |
| 1712 | "i325" | |
| 1713 | "i323" | |
| 1714 | "i321" | |
| 1715 | "i319" | |
| 1716 | "i317" | |
| 1717 | "i315" | |
| 1718 | "i313" | |
| 1719 | "i311" | |
| 1720 | "i309" | |
| 1721 | "i307" | |
| 1722 | "i304" | |
| 1723 | "i302" | |
| 1724 | "i300" | |
| 1725 | "i298" | |
| 1726 | "i296" | |
| 1727 | "i294" | |
| 1728 | "i292" | |
| 1729 | "i290" | |
| 1730 | "i288" | |
| 1731 | "i286" | |
| 1732 | "i284" | |
| 1733 | "i282" | |
| 1734 | "i280" | |
| 1735 | "i278" | |
| 1736 | "i276" | |
| 1737 | "i274" | |
| 1738 | "i272" | |
| 1739 | "i270" | |
| 1740 | "i268" | |
| 1741 | "i266" | |
| 1742 | "i264" | |
| 1743 | "i262" | |
| 1744 | "i260" | |
| 1745 | "i259" | |
| 1746 | "i256" | |
| 1747 | "i254" | |
| 1748 | "i253" | |
| 1749 | "i252" | |
| 1750 | "i251" | |
| 1751 | "i250" | |
| 1752 | "i248" | |
| 1753 | "i246" | |
| 1754 | "i244" | |
| 1755 | "i241" | |
| 1756 | "i239" | |
| 1757 | "i237" | |
| 1758 | "i235" | |
| 1759 | "i233" | |
| 1760 | "i231" | |
| 1761 | "i229" | |
| 1762 | "i227" | |
| 1763 | "i225" | |
| 1764 | "i223" | |
| 1765 | "i221" | |
| 1766 | "i219" | |
| 1767 | "i217" | |
| 1768 | "i215" | |
| 1769 | "i213" | |
| 1770 | "i211" | |
| 1771 | "i209" | |
| 1772 | "i207")) | |
| 1773 | #(ribcage | |
| 1774 | (define-structure | |
| 1775 | define-expansion-accessors | |
| 1776 | define-expansion-constructors) | |
| 1777 | ((top) (top) (top)) | |
| 1778 | ("i45" "i44" "i43"))) | |
| 1779 | (hygiene guile))) | |
| 1780 | 'compile | |
| 1781 | (if (#{free-id=? 413}# | |
| 1782 | #{x 1754}# | |
| 1783 | '#(syntax-object | |
| 1784 | load | |
| 1785 | ((top) | |
| 1786 | #(ribcage () () ()) | |
| 1787 | #(ribcage () () ()) | |
| 1788 | #(ribcage () () ()) | |
| 1789 | #(ribcage #(x) #((top)) #("i1753")) | |
| 1790 | #(ribcage () () ()) | |
| 1791 | #(ribcage | |
| 1792 | #(f when-list situations) | |
| 1793 | #((top) (top) (top)) | |
| 1794 | #("i1747" "i1748" "i1749")) | |
| 1795 | #(ribcage () () ()) | |
| 1796 | #(ribcage | |
| 1797 | #(e when-list w) | |
| 1798 | #((top) (top) (top)) | |
| 1799 | #("i1744" "i1745" "i1746")) | |
| 1800 | #(ribcage | |
| 1801 | (lambda-var-list | |
| 1802 | gen-var | |
| 1803 | strip | |
| 1804 | chi-lambda-case | |
| 1805 | lambda*-formals | |
| 1806 | chi-simple-lambda | |
| 1807 | lambda-formals | |
| 1808 | ellipsis? | |
| 1809 | chi-void | |
| 1810 | eval-local-transformer | |
| 1811 | chi-local-syntax | |
| 1812 | chi-body | |
| 1813 | chi-macro | |
| 1814 | chi-application | |
| 1815 | chi-expr | |
| 1816 | chi | |
| 1817 | syntax-type | |
| 1818 | chi-when-list | |
| 1819 | chi-install-global | |
| 1820 | chi-top-sequence | |
| 1821 | chi-sequence | |
| 1822 | source-wrap | |
| 1823 | wrap | |
| 1824 | bound-id-member? | |
| 1825 | distinct-bound-ids? | |
| 1826 | valid-bound-ids? | |
| 1827 | bound-id=? | |
| 1828 | free-id=? | |
| 1829 | id-var-name | |
| 1830 | same-marks? | |
| 1831 | join-marks | |
| 1832 | join-wraps | |
| 1833 | smart-append | |
| 1834 | make-binding-wrap | |
| 1835 | extend-ribcage! | |
| 1836 | make-empty-ribcage | |
| 1837 | new-mark | |
| 1838 | anti-mark | |
| 1839 | the-anti-mark | |
| 1840 | top-marked? | |
| 1841 | top-wrap | |
| 1842 | empty-wrap | |
| 1843 | set-ribcage-labels! | |
| 1844 | set-ribcage-marks! | |
| 1845 | set-ribcage-symnames! | |
| 1846 | ribcage-labels | |
| 1847 | ribcage-marks | |
| 1848 | ribcage-symnames | |
| 1849 | ribcage? | |
| 1850 | make-ribcage | |
| 1851 | gen-labels | |
| 1852 | gen-label | |
| 1853 | make-rename | |
| 1854 | rename-marks | |
| 1855 | rename-new | |
| 1856 | rename-old | |
| 1857 | subst-rename? | |
| 1858 | wrap-subst | |
| 1859 | wrap-marks | |
| 1860 | make-wrap | |
| 1861 | id-sym-name&marks | |
| 1862 | id-sym-name | |
| 1863 | id? | |
| 1864 | nonsymbol-id? | |
| 1865 | global-extend | |
| 1866 | lookup | |
| 1867 | macros-only-env | |
| 1868 | extend-var-env | |
| 1869 | extend-env | |
| 1870 | null-env | |
| 1871 | binding-value | |
| 1872 | binding-type | |
| 1873 | make-binding | |
| 1874 | arg-check | |
| 1875 | source-annotation | |
| 1876 | no-source | |
| 1877 | set-syntax-object-module! | |
| 1878 | set-syntax-object-wrap! | |
| 1879 | set-syntax-object-expression! | |
| 1880 | syntax-object-module | |
| 1881 | syntax-object-wrap | |
| 1882 | syntax-object-expression | |
| 1883 | syntax-object? | |
| 1884 | make-syntax-object | |
| 1885 | build-lexical-var | |
| 1886 | build-letrec | |
| 1887 | build-named-let | |
| 1888 | build-let | |
| 1889 | build-sequence | |
| 1890 | build-data | |
| 1891 | build-primref | |
| 1892 | build-lambda-case | |
| 1893 | build-case-lambda | |
| 1894 | build-simple-lambda | |
| 1895 | build-global-definition | |
| 1896 | build-global-assignment | |
| 1897 | build-global-reference | |
| 1898 | analyze-variable | |
| 1899 | build-lexical-assignment | |
| 1900 | build-lexical-reference | |
| 1901 | build-dynlet | |
| 1902 | build-conditional | |
| 1903 | build-application | |
| 1904 | build-void | |
| 1905 | maybe-name-value! | |
| 1906 | decorate-source | |
| 1907 | get-global-definition-hook | |
| 1908 | put-global-definition-hook | |
| 1909 | gensym-hook | |
| 1910 | local-eval-hook | |
| 1911 | top-level-eval-hook | |
| 1912 | fx< | |
| 1913 | fx= | |
| 1914 | fx- | |
| 1915 | fx+ | |
| 1916 | set-lambda-meta! | |
| 1917 | lambda-meta | |
| 1918 | lambda? | |
| 1919 | make-dynlet | |
| 1920 | make-letrec | |
| 1921 | make-let | |
| 1922 | make-lambda-case | |
| 1923 | make-lambda | |
| 1924 | make-sequence | |
| 1925 | make-application | |
| 1926 | make-conditional | |
| 1927 | make-toplevel-define | |
| 1928 | make-toplevel-set | |
| 1929 | make-toplevel-ref | |
| 1930 | make-module-set | |
| 1931 | make-module-ref | |
| 1932 | make-lexical-set | |
| 1933 | make-lexical-ref | |
| 1934 | make-primitive-ref | |
| 1935 | make-const | |
| 1936 | make-void) | |
| 1937 | ((top) | |
| 1938 | (top) | |
| 1939 | (top) | |
| 1940 | (top) | |
| 1941 | (top) | |
| 1942 | (top) | |
| 1943 | (top) | |
| 1944 | (top) | |
| 1945 | (top) | |
| 1946 | (top) | |
| 1947 | (top) | |
| 1948 | (top) | |
| 1949 | (top) | |
| 1950 | (top) | |
| 1951 | (top) | |
| 1952 | (top) | |
| 1953 | (top) | |
| 1954 | (top) | |
| 1955 | (top) | |
| 1956 | (top) | |
| 1957 | (top) | |
| 1958 | (top) | |
| 1959 | (top) | |
| 1960 | (top) | |
| 1961 | (top) | |
| 1962 | (top) | |
| 1963 | (top) | |
| 1964 | (top) | |
| 1965 | (top) | |
| 1966 | (top) | |
| 1967 | (top) | |
| 1968 | (top) | |
| 1969 | (top) | |
| 1970 | (top) | |
| 1971 | (top) | |
| 1972 | (top) | |
| 1973 | (top) | |
| 1974 | (top) | |
| 1975 | (top) | |
| 1976 | (top) | |
| 1977 | (top) | |
| 1978 | (top) | |
| 1979 | (top) | |
| 1980 | (top) | |
| 1981 | (top) | |
| 1982 | (top) | |
| 1983 | (top) | |
| 1984 | (top) | |
| 1985 | (top) | |
| 1986 | (top) | |
| 1987 | (top) | |
| 1988 | (top) | |
| 1989 | (top) | |
| 1990 | (top) | |
| 1991 | (top) | |
| 1992 | (top) | |
| 1993 | (top) | |
| 1994 | (top) | |
| 1995 | (top) | |
| 1996 | (top) | |
| 1997 | (top) | |
| 1998 | (top) | |
| 1999 | (top) | |
| 2000 | (top) | |
| 2001 | (top) | |
| 2002 | (top) | |
| 2003 | (top) | |
| 2004 | (top) | |
| 2005 | (top) | |
| 2006 | (top) | |
| 2007 | (top) | |
| 2008 | (top) | |
| 2009 | (top) | |
| 2010 | (top) | |
| 2011 | (top) | |
| 2012 | (top) | |
| 2013 | (top) | |
| 2014 | (top) | |
| 2015 | (top) | |
| 2016 | (top) | |
| 2017 | (top) | |
| 2018 | (top) | |
| 2019 | (top) | |
| 2020 | (top) | |
| 2021 | (top) | |
| 2022 | (top) | |
| 2023 | (top) | |
| 2024 | (top) | |
| 2025 | (top) | |
| 2026 | (top) | |
| 2027 | (top) | |
| 2028 | (top) | |
| 2029 | (top) | |
| 2030 | (top) | |
| 2031 | (top) | |
| 2032 | (top) | |
| 2033 | (top) | |
| 2034 | (top) | |
| 2035 | (top) | |
| 2036 | (top) | |
| 2037 | (top) | |
| 2038 | (top) | |
| 2039 | (top) | |
| 2040 | (top) | |
| 2041 | (top) | |
| 2042 | (top) | |
| 2043 | (top) | |
| 2044 | (top) | |
| 2045 | (top) | |
| 2046 | (top) | |
| 2047 | (top) | |
| 2048 | (top) | |
| 2049 | (top) | |
| 2050 | (top) | |
| 2051 | (top) | |
| 2052 | (top) | |
| 2053 | (top) | |
| 2054 | (top) | |
| 2055 | (top) | |
| 2056 | (top) | |
| 2057 | (top) | |
| 2058 | (top) | |
| 2059 | (top) | |
| 2060 | (top) | |
| 2061 | (top) | |
| 2062 | (top) | |
| 2063 | (top) | |
| 2064 | (top) | |
| 2065 | (top) | |
| 2066 | (top) | |
| 2067 | (top) | |
| 2068 | (top) | |
| 2069 | (top) | |
| 2070 | (top) | |
| 2071 | (top) | |
| 2072 | (top)) | |
| 2073 | ("i466" | |
| 2074 | "i464" | |
| 2075 | "i462" | |
| 2076 | "i460" | |
| 2077 | "i458" | |
| 2078 | "i456" | |
| 2079 | "i454" | |
| 2080 | "i452" | |
| 2081 | "i450" | |
| 2082 | "i448" | |
| 2083 | "i446" | |
| 2084 | "i444" | |
| 2085 | "i442" | |
| 2086 | "i440" | |
| 2087 | "i438" | |
| 2088 | "i436" | |
| 2089 | "i434" | |
| 2090 | "i432" | |
| 2091 | "i430" | |
| 2092 | "i428" | |
| 2093 | "i426" | |
| 2094 | "i424" | |
| 2095 | "i422" | |
| 2096 | "i420" | |
| 2097 | "i418" | |
| 2098 | "i416" | |
| 2099 | "i414" | |
| 2100 | "i412" | |
| 2101 | "i410" | |
| 2102 | "i408" | |
| 2103 | "i406" | |
| 2104 | "i404" | |
| 2105 | "i402" | |
| 2106 | "i400" | |
| 2107 | "i398" | |
| 2108 | "i397" | |
| 2109 | "i395" | |
| 2110 | "i392" | |
| 2111 | "i391" | |
| 2112 | "i390" | |
| 2113 | "i388" | |
| 2114 | "i387" | |
| 2115 | "i385" | |
| 2116 | "i383" | |
| 2117 | "i381" | |
| 2118 | "i379" | |
| 2119 | "i377" | |
| 2120 | "i375" | |
| 2121 | "i373" | |
| 2122 | "i371" | |
| 2123 | "i368" | |
| 2124 | "i366" | |
| 2125 | "i365" | |
| 2126 | "i363" | |
| 2127 | "i361" | |
| 2128 | "i359" | |
| 2129 | "i357" | |
| 2130 | "i356" | |
| 2131 | "i355" | |
| 2132 | "i354" | |
| 2133 | "i352" | |
| 2134 | "i351" | |
| 2135 | "i348" | |
| 2136 | "i346" | |
| 2137 | "i344" | |
| 2138 | "i342" | |
| 2139 | "i340" | |
| 2140 | "i338" | |
| 2141 | "i336" | |
| 2142 | "i335" | |
| 2143 | "i334" | |
| 2144 | "i332" | |
| 2145 | "i330" | |
| 2146 | "i329" | |
| 2147 | "i326" | |
| 2148 | "i325" | |
| 2149 | "i323" | |
| 2150 | "i321" | |
| 2151 | "i319" | |
| 2152 | "i317" | |
| 2153 | "i315" | |
| 2154 | "i313" | |
| 2155 | "i311" | |
| 2156 | "i309" | |
| 2157 | "i307" | |
| 2158 | "i304" | |
| 2159 | "i302" | |
| 2160 | "i300" | |
| 2161 | "i298" | |
| 2162 | "i296" | |
| 2163 | "i294" | |
| 2164 | "i292" | |
| 2165 | "i290" | |
| 2166 | "i288" | |
| 2167 | "i286" | |
| 2168 | "i284" | |
| 2169 | "i282" | |
| 2170 | "i280" | |
| 2171 | "i278" | |
| 2172 | "i276" | |
| 2173 | "i274" | |
| 2174 | "i272" | |
| 2175 | "i270" | |
| 2176 | "i268" | |
| 2177 | "i266" | |
| 2178 | "i264" | |
| 2179 | "i262" | |
| 2180 | "i260" | |
| 2181 | "i259" | |
| 2182 | "i256" | |
| 2183 | "i254" | |
| 2184 | "i253" | |
| 2185 | "i252" | |
| 2186 | "i251" | |
| 2187 | "i250" | |
| 2188 | "i248" | |
| 2189 | "i246" | |
| 2190 | "i244" | |
| 2191 | "i241" | |
| 2192 | "i239" | |
| 2193 | "i237" | |
| 2194 | "i235" | |
| 2195 | "i233" | |
| 2196 | "i231" | |
| 2197 | "i229" | |
| 2198 | "i227" | |
| 2199 | "i225" | |
| 2200 | "i223" | |
| 2201 | "i221" | |
| 2202 | "i219" | |
| 2203 | "i217" | |
| 2204 | "i215" | |
| 2205 | "i213" | |
| 2206 | "i211" | |
| 2207 | "i209" | |
| 2208 | "i207")) | |
| 2209 | #(ribcage | |
| 2210 | (define-structure | |
| 2211 | define-expansion-accessors | |
| 2212 | define-expansion-constructors) | |
| 2213 | ((top) (top) (top)) | |
| 2214 | ("i45" "i44" "i43"))) | |
| 2215 | (hygiene guile))) | |
| 2216 | 'load | |
| 2217 | (if (#{free-id=? 413}# | |
| 2218 | #{x 1754}# | |
| 2219 | '#(syntax-object | |
| 2220 | eval | |
| 2221 | ((top) | |
| 2222 | #(ribcage () () ()) | |
| 2223 | #(ribcage () () ()) | |
| 2224 | #(ribcage () () ()) | |
| 2225 | #(ribcage #(x) #((top)) #("i1753")) | |
| 2226 | #(ribcage () () ()) | |
| 2227 | #(ribcage | |
| 2228 | #(f when-list situations) | |
| 2229 | #((top) (top) (top)) | |
| 2230 | #("i1747" "i1748" "i1749")) | |
| 2231 | #(ribcage () () ()) | |
| 2232 | #(ribcage | |
| 2233 | #(e when-list w) | |
| 2234 | #((top) (top) (top)) | |
| 2235 | #("i1744" "i1745" "i1746")) | |
| 2236 | #(ribcage | |
| 2237 | (lambda-var-list | |
| 2238 | gen-var | |
| 2239 | strip | |
| 2240 | chi-lambda-case | |
| 2241 | lambda*-formals | |
| 2242 | chi-simple-lambda | |
| 2243 | lambda-formals | |
| 2244 | ellipsis? | |
| 2245 | chi-void | |
| 2246 | eval-local-transformer | |
| 2247 | chi-local-syntax | |
| 2248 | chi-body | |
| 2249 | chi-macro | |
| 2250 | chi-application | |
| 2251 | chi-expr | |
| 2252 | chi | |
| 2253 | syntax-type | |
| 2254 | chi-when-list | |
| 2255 | chi-install-global | |
| 2256 | chi-top-sequence | |
| 2257 | chi-sequence | |
| 2258 | source-wrap | |
| 2259 | wrap | |
| 2260 | bound-id-member? | |
| 2261 | distinct-bound-ids? | |
| 2262 | valid-bound-ids? | |
| 2263 | bound-id=? | |
| 2264 | free-id=? | |
| 2265 | id-var-name | |
| 2266 | same-marks? | |
| 2267 | join-marks | |
| 2268 | join-wraps | |
| 2269 | smart-append | |
| 2270 | make-binding-wrap | |
| 2271 | extend-ribcage! | |
| 2272 | make-empty-ribcage | |
| 2273 | new-mark | |
| 2274 | anti-mark | |
| 2275 | the-anti-mark | |
| 2276 | top-marked? | |
| 2277 | top-wrap | |
| 2278 | empty-wrap | |
| 2279 | set-ribcage-labels! | |
| 2280 | set-ribcage-marks! | |
| 2281 | set-ribcage-symnames! | |
| 2282 | ribcage-labels | |
| 2283 | ribcage-marks | |
| 2284 | ribcage-symnames | |
| 2285 | ribcage? | |
| 2286 | make-ribcage | |
| 2287 | gen-labels | |
| 2288 | gen-label | |
| 2289 | make-rename | |
| 2290 | rename-marks | |
| 2291 | rename-new | |
| 2292 | rename-old | |
| 2293 | subst-rename? | |
| 2294 | wrap-subst | |
| 2295 | wrap-marks | |
| 2296 | make-wrap | |
| 2297 | id-sym-name&marks | |
| 2298 | id-sym-name | |
| 2299 | id? | |
| 2300 | nonsymbol-id? | |
| 2301 | global-extend | |
| 2302 | lookup | |
| 2303 | macros-only-env | |
| 2304 | extend-var-env | |
| 2305 | extend-env | |
| 2306 | null-env | |
| 2307 | binding-value | |
| 2308 | binding-type | |
| 2309 | make-binding | |
| 2310 | arg-check | |
| 2311 | source-annotation | |
| 2312 | no-source | |
| 2313 | set-syntax-object-module! | |
| 2314 | set-syntax-object-wrap! | |
| 2315 | set-syntax-object-expression! | |
| 2316 | syntax-object-module | |
| 2317 | syntax-object-wrap | |
| 2318 | syntax-object-expression | |
| 2319 | syntax-object? | |
| 2320 | make-syntax-object | |
| 2321 | build-lexical-var | |
| 2322 | build-letrec | |
| 2323 | build-named-let | |
| 2324 | build-let | |
| 2325 | build-sequence | |
| 2326 | build-data | |
| 2327 | build-primref | |
| 2328 | build-lambda-case | |
| 2329 | build-case-lambda | |
| 2330 | build-simple-lambda | |
| 2331 | build-global-definition | |
| 2332 | build-global-assignment | |
| 2333 | build-global-reference | |
| 2334 | analyze-variable | |
| 2335 | build-lexical-assignment | |
| 2336 | build-lexical-reference | |
| 2337 | build-dynlet | |
| 2338 | build-conditional | |
| 2339 | build-application | |
| 2340 | build-void | |
| 2341 | maybe-name-value! | |
| 2342 | decorate-source | |
| 2343 | get-global-definition-hook | |
| 2344 | put-global-definition-hook | |
| 2345 | gensym-hook | |
| 2346 | local-eval-hook | |
| 2347 | top-level-eval-hook | |
| 2348 | fx< | |
| 2349 | fx= | |
| 2350 | fx- | |
| 2351 | fx+ | |
| 2352 | set-lambda-meta! | |
| 2353 | lambda-meta | |
| 2354 | lambda? | |
| 2355 | make-dynlet | |
| 2356 | make-letrec | |
| 2357 | make-let | |
| 2358 | make-lambda-case | |
| 2359 | make-lambda | |
| 2360 | make-sequence | |
| 2361 | make-application | |
| 2362 | make-conditional | |
| 2363 | make-toplevel-define | |
| 2364 | make-toplevel-set | |
| 2365 | make-toplevel-ref | |
| 2366 | make-module-set | |
| 2367 | make-module-ref | |
| 2368 | make-lexical-set | |
| 2369 | make-lexical-ref | |
| 2370 | make-primitive-ref | |
| 2371 | make-const | |
| 2372 | make-void) | |
| 2373 | ((top) | |
| 2374 | (top) | |
| 2375 | (top) | |
| 2376 | (top) | |
| 2377 | (top) | |
| 2378 | (top) | |
| 2379 | (top) | |
| 2380 | (top) | |
| 2381 | (top) | |
| 2382 | (top) | |
| 2383 | (top) | |
| 2384 | (top) | |
| 2385 | (top) | |
| 2386 | (top) | |
| 2387 | (top) | |
| 2388 | (top) | |
| 2389 | (top) | |
| 2390 | (top) | |
| 2391 | (top) | |
| 2392 | (top) | |
| 2393 | (top) | |
| 2394 | (top) | |
| 2395 | (top) | |
| 2396 | (top) | |
| 2397 | (top) | |
| 2398 | (top) | |
| 2399 | (top) | |
| 2400 | (top) | |
| 2401 | (top) | |
| 2402 | (top) | |
| 2403 | (top) | |
| 2404 | (top) | |
| 2405 | (top) | |
| 2406 | (top) | |
| 2407 | (top) | |
| 2408 | (top) | |
| 2409 | (top) | |
| 2410 | (top) | |
| 2411 | (top) | |
| 2412 | (top) | |
| 2413 | (top) | |
| 2414 | (top) | |
| 2415 | (top) | |
| 2416 | (top) | |
| 2417 | (top) | |
| 2418 | (top) | |
| 2419 | (top) | |
| 2420 | (top) | |
| 2421 | (top) | |
| 2422 | (top) | |
| 2423 | (top) | |
| 2424 | (top) | |
| 2425 | (top) | |
| 2426 | (top) | |
| 2427 | (top) | |
| 2428 | (top) | |
| 2429 | (top) | |
| 2430 | (top) | |
| 2431 | (top) | |
| 2432 | (top) | |
| 2433 | (top) | |
| 2434 | (top) | |
| 2435 | (top) | |
| 2436 | (top) | |
| 2437 | (top) | |
| 2438 | (top) | |
| 2439 | (top) | |
| 2440 | (top) | |
| 2441 | (top) | |
| 2442 | (top) | |
| 2443 | (top) | |
| 2444 | (top) | |
| 2445 | (top) | |
| 2446 | (top) | |
| 2447 | (top) | |
| 2448 | (top) | |
| 2449 | (top) | |
| 2450 | (top) | |
| 2451 | (top) | |
| 2452 | (top) | |
| 2453 | (top) | |
| 2454 | (top) | |
| 2455 | (top) | |
| 2456 | (top) | |
| 2457 | (top) | |
| 2458 | (top) | |
| 2459 | (top) | |
| 2460 | (top) | |
| 2461 | (top) | |
| 2462 | (top) | |
| 2463 | (top) | |
| 2464 | (top) | |
| 2465 | (top) | |
| 2466 | (top) | |
| 2467 | (top) | |
| 2468 | (top) | |
| 2469 | (top) | |
| 2470 | (top) | |
| 2471 | (top) | |
| 2472 | (top) | |
| 2473 | (top) | |
| 2474 | (top) | |
| 2475 | (top) | |
| 2476 | (top) | |
| 2477 | (top) | |
| 2478 | (top) | |
| 2479 | (top) | |
| 2480 | (top) | |
| 2481 | (top) | |
| 2482 | (top) | |
| 2483 | (top) | |
| 2484 | (top) | |
| 2485 | (top) | |
| 2486 | (top) | |
| 2487 | (top) | |
| 2488 | (top) | |
| 2489 | (top) | |
| 2490 | (top) | |
| 2491 | (top) | |
| 2492 | (top) | |
| 2493 | (top) | |
| 2494 | (top) | |
| 2495 | (top) | |
| 2496 | (top) | |
| 2497 | (top) | |
| 2498 | (top) | |
| 2499 | (top) | |
| 2500 | (top) | |
| 2501 | (top) | |
| 2502 | (top) | |
| 2503 | (top) | |
| 2504 | (top) | |
| 2505 | (top) | |
| 2506 | (top) | |
| 2507 | (top) | |
| 2508 | (top)) | |
| 2509 | ("i466" | |
| 2510 | "i464" | |
| 2511 | "i462" | |
| 2512 | "i460" | |
| 2513 | "i458" | |
| 2514 | "i456" | |
| 2515 | "i454" | |
| 2516 | "i452" | |
| 2517 | "i450" | |
| 2518 | "i448" | |
| 2519 | "i446" | |
| 2520 | "i444" | |
| 2521 | "i442" | |
| 2522 | "i440" | |
| 2523 | "i438" | |
| 2524 | "i436" | |
| 2525 | "i434" | |
| 2526 | "i432" | |
| 2527 | "i430" | |
| 2528 | "i428" | |
| 2529 | "i426" | |
| 2530 | "i424" | |
| 2531 | "i422" | |
| 2532 | "i420" | |
| 2533 | "i418" | |
| 2534 | "i416" | |
| 2535 | "i414" | |
| 2536 | "i412" | |
| 2537 | "i410" | |
| 2538 | "i408" | |
| 2539 | "i406" | |
| 2540 | "i404" | |
| 2541 | "i402" | |
| 2542 | "i400" | |
| 2543 | "i398" | |
| 2544 | "i397" | |
| 2545 | "i395" | |
| 2546 | "i392" | |
| 2547 | "i391" | |
| 2548 | "i390" | |
| 2549 | "i388" | |
| 2550 | "i387" | |
| 2551 | "i385" | |
| 2552 | "i383" | |
| 2553 | "i381" | |
| 2554 | "i379" | |
| 2555 | "i377" | |
| 2556 | "i375" | |
| 2557 | "i373" | |
| 2558 | "i371" | |
| 2559 | "i368" | |
| 2560 | "i366" | |
| 2561 | "i365" | |
| 2562 | "i363" | |
| 2563 | "i361" | |
| 2564 | "i359" | |
| 2565 | "i357" | |
| 2566 | "i356" | |
| 2567 | "i355" | |
| 2568 | "i354" | |
| 2569 | "i352" | |
| 2570 | "i351" | |
| 2571 | "i348" | |
| 2572 | "i346" | |
| 2573 | "i344" | |
| 2574 | "i342" | |
| 2575 | "i340" | |
| 2576 | "i338" | |
| 2577 | "i336" | |
| 2578 | "i335" | |
| 2579 | "i334" | |
| 2580 | "i332" | |
| 2581 | "i330" | |
| 2582 | "i329" | |
| 2583 | "i326" | |
| 2584 | "i325" | |
| 2585 | "i323" | |
| 2586 | "i321" | |
| 2587 | "i319" | |
| 2588 | "i317" | |
| 2589 | "i315" | |
| 2590 | "i313" | |
| 2591 | "i311" | |
| 2592 | "i309" | |
| 2593 | "i307" | |
| 2594 | "i304" | |
| 2595 | "i302" | |
| 2596 | "i300" | |
| 2597 | "i298" | |
| 2598 | "i296" | |
| 2599 | "i294" | |
| 2600 | "i292" | |
| 2601 | "i290" | |
| 2602 | "i288" | |
| 2603 | "i286" | |
| 2604 | "i284" | |
| 2605 | "i282" | |
| 2606 | "i280" | |
| 2607 | "i278" | |
| 2608 | "i276" | |
| 2609 | "i274" | |
| 2610 | "i272" | |
| 2611 | "i270" | |
| 2612 | "i268" | |
| 2613 | "i266" | |
| 2614 | "i264" | |
| 2615 | "i262" | |
| 2616 | "i260" | |
| 2617 | "i259" | |
| 2618 | "i256" | |
| 2619 | "i254" | |
| 2620 | "i253" | |
| 2621 | "i252" | |
| 2622 | "i251" | |
| 2623 | "i250" | |
| 2624 | "i248" | |
| 2625 | "i246" | |
| 2626 | "i244" | |
| 2627 | "i241" | |
| 2628 | "i239" | |
| 2629 | "i237" | |
| 2630 | "i235" | |
| 2631 | "i233" | |
| 2632 | "i231" | |
| 2633 | "i229" | |
| 2634 | "i227" | |
| 2635 | "i225" | |
| 2636 | "i223" | |
| 2637 | "i221" | |
| 2638 | "i219" | |
| 2639 | "i217" | |
| 2640 | "i215" | |
| 2641 | "i213" | |
| 2642 | "i211" | |
| 2643 | "i209" | |
| 2644 | "i207")) | |
| 2645 | #(ribcage | |
| 2646 | (define-structure | |
| 2647 | define-expansion-accessors | |
| 2648 | define-expansion-constructors) | |
| 2649 | ((top) (top) (top)) | |
| 2650 | ("i45" "i44" "i43"))) | |
| 2651 | (hygiene guile))) | |
| 2652 | 'eval | |
| 2653 | (if (#{free-id=? 413}# | |
| 2654 | #{x 1754}# | |
| 2655 | '#(syntax-object | |
| 2656 | expand | |
| 2657 | ((top) | |
| 2658 | #(ribcage () () ()) | |
| 2659 | #(ribcage () () ()) | |
| 2660 | #(ribcage () () ()) | |
| 2661 | #(ribcage #(x) #((top)) #("i1753")) | |
| 2662 | #(ribcage () () ()) | |
| 2663 | #(ribcage | |
| 2664 | #(f when-list situations) | |
| 2665 | #((top) (top) (top)) | |
| 2666 | #("i1747" "i1748" "i1749")) | |
| 2667 | #(ribcage () () ()) | |
| 2668 | #(ribcage | |
| 2669 | #(e when-list w) | |
| 2670 | #((top) (top) (top)) | |
| 2671 | #("i1744" "i1745" "i1746")) | |
| 2672 | #(ribcage | |
| 2673 | (lambda-var-list | |
| 2674 | gen-var | |
| 2675 | strip | |
| 2676 | chi-lambda-case | |
| 2677 | lambda*-formals | |
| 2678 | chi-simple-lambda | |
| 2679 | lambda-formals | |
| 2680 | ellipsis? | |
| 2681 | chi-void | |
| 2682 | eval-local-transformer | |
| 2683 | chi-local-syntax | |
| 2684 | chi-body | |
| 2685 | chi-macro | |
| 2686 | chi-application | |
| 2687 | chi-expr | |
| 2688 | chi | |
| 2689 | syntax-type | |
| 2690 | chi-when-list | |
| 2691 | chi-install-global | |
| 2692 | chi-top-sequence | |
| 2693 | chi-sequence | |
| 2694 | source-wrap | |
| 2695 | wrap | |
| 2696 | bound-id-member? | |
| 2697 | distinct-bound-ids? | |
| 2698 | valid-bound-ids? | |
| 2699 | bound-id=? | |
| 2700 | free-id=? | |
| 2701 | id-var-name | |
| 2702 | same-marks? | |
| 2703 | join-marks | |
| 2704 | join-wraps | |
| 2705 | smart-append | |
| 2706 | make-binding-wrap | |
| 2707 | extend-ribcage! | |
| 2708 | make-empty-ribcage | |
| 2709 | new-mark | |
| 2710 | anti-mark | |
| 2711 | the-anti-mark | |
| 2712 | top-marked? | |
| 2713 | top-wrap | |
| 2714 | empty-wrap | |
| 2715 | set-ribcage-labels! | |
| 2716 | set-ribcage-marks! | |
| 2717 | set-ribcage-symnames! | |
| 2718 | ribcage-labels | |
| 2719 | ribcage-marks | |
| 2720 | ribcage-symnames | |
| 2721 | ribcage? | |
| 2722 | make-ribcage | |
| 2723 | gen-labels | |
| 2724 | gen-label | |
| 2725 | make-rename | |
| 2726 | rename-marks | |
| 2727 | rename-new | |
| 2728 | rename-old | |
| 2729 | subst-rename? | |
| 2730 | wrap-subst | |
| 2731 | wrap-marks | |
| 2732 | make-wrap | |
| 2733 | id-sym-name&marks | |
| 2734 | id-sym-name | |
| 2735 | id? | |
| 2736 | nonsymbol-id? | |
| 2737 | global-extend | |
| 2738 | lookup | |
| 2739 | macros-only-env | |
| 2740 | extend-var-env | |
| 2741 | extend-env | |
| 2742 | null-env | |
| 2743 | binding-value | |
| 2744 | binding-type | |
| 2745 | make-binding | |
| 2746 | arg-check | |
| 2747 | source-annotation | |
| 2748 | no-source | |
| 2749 | set-syntax-object-module! | |
| 2750 | set-syntax-object-wrap! | |
| 2751 | set-syntax-object-expression! | |
| 2752 | syntax-object-module | |
| 2753 | syntax-object-wrap | |
| 2754 | syntax-object-expression | |
| 2755 | syntax-object? | |
| 2756 | make-syntax-object | |
| 2757 | build-lexical-var | |
| 2758 | build-letrec | |
| 2759 | build-named-let | |
| 2760 | build-let | |
| 2761 | build-sequence | |
| 2762 | build-data | |
| 2763 | build-primref | |
| 2764 | build-lambda-case | |
| 2765 | build-case-lambda | |
| 2766 | build-simple-lambda | |
| 2767 | build-global-definition | |
| 2768 | build-global-assignment | |
| 2769 | build-global-reference | |
| 2770 | analyze-variable | |
| 2771 | build-lexical-assignment | |
| 2772 | build-lexical-reference | |
| 2773 | build-dynlet | |
| 2774 | build-conditional | |
| 2775 | build-application | |
| 2776 | build-void | |
| 2777 | maybe-name-value! | |
| 2778 | decorate-source | |
| 2779 | get-global-definition-hook | |
| 2780 | put-global-definition-hook | |
| 2781 | gensym-hook | |
| 2782 | local-eval-hook | |
| 2783 | top-level-eval-hook | |
| 2784 | fx< | |
| 2785 | fx= | |
| 2786 | fx- | |
| 2787 | fx+ | |
| 2788 | set-lambda-meta! | |
| 2789 | lambda-meta | |
| 2790 | lambda? | |
| 2791 | make-dynlet | |
| 2792 | make-letrec | |
| 2793 | make-let | |
| 2794 | make-lambda-case | |
| 2795 | make-lambda | |
| 2796 | make-sequence | |
| 2797 | make-application | |
| 2798 | make-conditional | |
| 2799 | make-toplevel-define | |
| 2800 | make-toplevel-set | |
| 2801 | make-toplevel-ref | |
| 2802 | make-module-set | |
| 2803 | make-module-ref | |
| 2804 | make-lexical-set | |
| 2805 | make-lexical-ref | |
| 2806 | make-primitive-ref | |
| 2807 | make-const | |
| 2808 | make-void) | |
| 2809 | ((top) | |
| 2810 | (top) | |
| 2811 | (top) | |
| 2812 | (top) | |
| 2813 | (top) | |
| 2814 | (top) | |
| 2815 | (top) | |
| 2816 | (top) | |
| 2817 | (top) | |
| 2818 | (top) | |
| 2819 | (top) | |
| 2820 | (top) | |
| 2821 | (top) | |
| 2822 | (top) | |
| 2823 | (top) | |
| 2824 | (top) | |
| 2825 | (top) | |
| 2826 | (top) | |
| 2827 | (top) | |
| 2828 | (top) | |
| 2829 | (top) | |
| 2830 | (top) | |
| 2831 | (top) | |
| 2832 | (top) | |
| 2833 | (top) | |
| 2834 | (top) | |
| 2835 | (top) | |
| 2836 | (top) | |
| 2837 | (top) | |
| 2838 | (top) | |
| 2839 | (top) | |
| 2840 | (top) | |
| 2841 | (top) | |
| 2842 | (top) | |
| 2843 | (top) | |
| 2844 | (top) | |
| 2845 | (top) | |
| 2846 | (top) | |
| 2847 | (top) | |
| 2848 | (top) | |
| 2849 | (top) | |
| 2850 | (top) | |
| 2851 | (top) | |
| 2852 | (top) | |
| 2853 | (top) | |
| 2854 | (top) | |
| 2855 | (top) | |
| 2856 | (top) | |
| 2857 | (top) | |
| 2858 | (top) | |
| 2859 | (top) | |
| 2860 | (top) | |
| 2861 | (top) | |
| 2862 | (top) | |
| 2863 | (top) | |
| 2864 | (top) | |
| 2865 | (top) | |
| 2866 | (top) | |
| 2867 | (top) | |
| 2868 | (top) | |
| 2869 | (top) | |
| 2870 | (top) | |
| 2871 | (top) | |
| 2872 | (top) | |
| 2873 | (top) | |
| 2874 | (top) | |
| 2875 | (top) | |
| 2876 | (top) | |
| 2877 | (top) | |
| 2878 | (top) | |
| 2879 | (top) | |
| 2880 | (top) | |
| 2881 | (top) | |
| 2882 | (top) | |
| 2883 | (top) | |
| 2884 | (top) | |
| 2885 | (top) | |
| 2886 | (top) | |
| 2887 | (top) | |
| 2888 | (top) | |
| 2889 | (top) | |
| 2890 | (top) | |
| 2891 | (top) | |
| 2892 | (top) | |
| 2893 | (top) | |
| 2894 | (top) | |
| 2895 | (top) | |
| 2896 | (top) | |
| 2897 | (top) | |
| 2898 | (top) | |
| 2899 | (top) | |
| 2900 | (top) | |
| 2901 | (top) | |
| 2902 | (top) | |
| 2903 | (top) | |
| 2904 | (top) | |
| 2905 | (top) | |
| 2906 | (top) | |
| 2907 | (top) | |
| 2908 | (top) | |
| 2909 | (top) | |
| 2910 | (top) | |
| 2911 | (top) | |
| 2912 | (top) | |
| 2913 | (top) | |
| 2914 | (top) | |
| 2915 | (top) | |
| 2916 | (top) | |
| 2917 | (top) | |
| 2918 | (top) | |
| 2919 | (top) | |
| 2920 | (top) | |
| 2921 | (top) | |
| 2922 | (top) | |
| 2923 | (top) | |
| 2924 | (top) | |
| 2925 | (top) | |
| 2926 | (top) | |
| 2927 | (top) | |
| 2928 | (top) | |
| 2929 | (top) | |
| 2930 | (top) | |
| 2931 | (top) | |
| 2932 | (top) | |
| 2933 | (top) | |
| 2934 | (top) | |
| 2935 | (top) | |
| 2936 | (top) | |
| 2937 | (top) | |
| 2938 | (top) | |
| 2939 | (top) | |
| 2940 | (top) | |
| 2941 | (top) | |
| 2942 | (top) | |
| 2943 | (top) | |
| 2944 | (top)) | |
| 2945 | ("i466" | |
| 2946 | "i464" | |
| 2947 | "i462" | |
| 2948 | "i460" | |
| 2949 | "i458" | |
| 2950 | "i456" | |
| 2951 | "i454" | |
| 2952 | "i452" | |
| 2953 | "i450" | |
| 2954 | "i448" | |
| 2955 | "i446" | |
| 2956 | "i444" | |
| 2957 | "i442" | |
| 2958 | "i440" | |
| 2959 | "i438" | |
| 2960 | "i436" | |
| 2961 | "i434" | |
| 2962 | "i432" | |
| 2963 | "i430" | |
| 2964 | "i428" | |
| 2965 | "i426" | |
| 2966 | "i424" | |
| 2967 | "i422" | |
| 2968 | "i420" | |
| 2969 | "i418" | |
| 2970 | "i416" | |
| 2971 | "i414" | |
| 2972 | "i412" | |
| 2973 | "i410" | |
| 2974 | "i408" | |
| 2975 | "i406" | |
| 2976 | "i404" | |
| 2977 | "i402" | |
| 2978 | "i400" | |
| 2979 | "i398" | |
| 2980 | "i397" | |
| 2981 | "i395" | |
| 2982 | "i392" | |
| 2983 | "i391" | |
| 2984 | "i390" | |
| 2985 | "i388" | |
| 2986 | "i387" | |
| 2987 | "i385" | |
| 2988 | "i383" | |
| 2989 | "i381" | |
| 2990 | "i379" | |
| 2991 | "i377" | |
| 2992 | "i375" | |
| 2993 | "i373" | |
| 2994 | "i371" | |
| 2995 | "i368" | |
| 2996 | "i366" | |
| 2997 | "i365" | |
| 2998 | "i363" | |
| 2999 | "i361" | |
| 3000 | "i359" | |
| 3001 | "i357" | |
| 3002 | "i356" | |
| 3003 | "i355" | |
| 3004 | "i354" | |
| 3005 | "i352" | |
| 3006 | "i351" | |
| 3007 | "i348" | |
| 3008 | "i346" | |
| 3009 | "i344" | |
| 3010 | "i342" | |
| 3011 | "i340" | |
| 3012 | "i338" | |
| 3013 | "i336" | |
| 3014 | "i335" | |
| 3015 | "i334" | |
| 3016 | "i332" | |
| 3017 | "i330" | |
| 3018 | "i329" | |
| 3019 | "i326" | |
| 3020 | "i325" | |
| 3021 | "i323" | |
| 3022 | "i321" | |
| 3023 | "i319" | |
| 3024 | "i317" | |
| 3025 | "i315" | |
| 3026 | "i313" | |
| 3027 | "i311" | |
| 3028 | "i309" | |
| 3029 | "i307" | |
| 3030 | "i304" | |
| 3031 | "i302" | |
| 3032 | "i300" | |
| 3033 | "i298" | |
| 3034 | "i296" | |
| 3035 | "i294" | |
| 3036 | "i292" | |
| 3037 | "i290" | |
| 3038 | "i288" | |
| 3039 | "i286" | |
| 3040 | "i284" | |
| 3041 | "i282" | |
| 3042 | "i280" | |
| 3043 | "i278" | |
| 3044 | "i276" | |
| 3045 | "i274" | |
| 3046 | "i272" | |
| 3047 | "i270" | |
| 3048 | "i268" | |
| 3049 | "i266" | |
| 3050 | "i264" | |
| 3051 | "i262" | |
| 3052 | "i260" | |
| 3053 | "i259" | |
| 3054 | "i256" | |
| 3055 | "i254" | |
| 3056 | "i253" | |
| 3057 | "i252" | |
| 3058 | "i251" | |
| 3059 | "i250" | |
| 3060 | "i248" | |
| 3061 | "i246" | |
| 3062 | "i244" | |
| 3063 | "i241" | |
| 3064 | "i239" | |
| 3065 | "i237" | |
| 3066 | "i235" | |
| 3067 | "i233" | |
| 3068 | "i231" | |
| 3069 | "i229" | |
| 3070 | "i227" | |
| 3071 | "i225" | |
| 3072 | "i223" | |
| 3073 | "i221" | |
| 3074 | "i219" | |
| 3075 | "i217" | |
| 3076 | "i215" | |
| 3077 | "i213" | |
| 3078 | "i211" | |
| 3079 | "i209" | |
| 3080 | "i207")) | |
| 3081 | #(ribcage | |
| 3082 | (define-structure | |
| 3083 | define-expansion-accessors | |
| 3084 | define-expansion-constructors) | |
| 3085 | ((top) (top) (top)) | |
| 3086 | ("i45" "i44" "i43"))) | |
| 3087 | (hygiene guile))) | |
| 3088 | 'expand | |
| 3089 | (syntax-violation | |
| 3090 | 'eval-when | |
| 3091 | "invalid situation" | |
| 3092 | #{e 1741}# | |
| 3093 | (#{wrap 423}# | |
| 3094 | #{x 1754}# | |
| 3095 | #{w 1743}# | |
| 3096 | #f))))))) | |
| 3097 | #{situations 1752}#)))))) | |
| 3098 | (#{f 1750}# #{when-list 1742}# '())))) | |
| 3099 | (#{syntax-type 435}# | |
| 3100 | (lambda (#{e 1764}# | |
| 3101 | #{r 1765}# | |
| 3102 | #{w 1766}# | |
| 3103 | #{s 1767}# | |
| 3104 | #{rib 1768}# | |
| 3105 | #{mod 1769}# | |
| 3106 | #{for-car? 1770}#) | |
| 3107 | (if (symbol? #{e 1764}#) | |
| 3108 | (let ((#{n 1782}# | |
| 3109 | (#{id-var-name 411}# #{e 1764}# #{w 1766}#))) | |
| 3110 | (let ((#{b 1784}# | |
| 3111 | (#{lookup 343}# | |
| 3112 | #{n 1782}# | |
| 3113 | #{r 1765}# | |
| 3114 | #{mod 1769}#))) | |
| 3115 | (let ((#{type 1786}# (car #{b 1784}#))) | |
| 3116 | (if (memv #{type 1786}# '(lexical)) | |
| 3117 | (values | |
| 3118 | #{type 1786}# | |
| 3119 | (cdr #{b 1784}#) | |
| 3120 | #{e 1764}# | |
| 3121 | #{w 1766}# | |
| 3122 | #{s 1767}# | |
| 3123 | #{mod 1769}#) | |
| 3124 | (if (memv #{type 1786}# '(global)) | |
| 3125 | (values | |
| 3126 | #{type 1786}# | |
| 3127 | #{n 1782}# | |
| 3128 | #{e 1764}# | |
| 3129 | #{w 1766}# | |
| 3130 | #{s 1767}# | |
| 3131 | #{mod 1769}#) | |
| 3132 | (if (memv #{type 1786}# '(macro)) | |
| 3133 | (if #{for-car? 1770}# | |
| 3134 | (values | |
| 3135 | #{type 1786}# | |
| 3136 | (cdr #{b 1784}#) | |
| 3137 | #{e 1764}# | |
| 3138 | #{w 1766}# | |
| 3139 | #{s 1767}# | |
| 3140 | #{mod 1769}#) | |
| 3141 | (#{syntax-type 435}# | |
| 3142 | (#{chi-macro 443}# | |
| 3143 | (cdr #{b 1784}#) | |
| 3144 | #{e 1764}# | |
| 3145 | #{r 1765}# | |
| 3146 | #{w 1766}# | |
| 3147 | #{s 1767}# | |
| 3148 | #{rib 1768}# | |
| 3149 | #{mod 1769}#) | |
| 3150 | #{r 1765}# | |
| 3151 | '(()) | |
| 3152 | #{s 1767}# | |
| 3153 | #{rib 1768}# | |
| 3154 | #{mod 1769}# | |
| 3155 | #f)) | |
| 3156 | (values | |
| 3157 | #{type 1786}# | |
| 3158 | (cdr #{b 1784}#) | |
| 3159 | #{e 1764}# | |
| 3160 | #{w 1766}# | |
| 3161 | #{s 1767}# | |
| 3162 | #{mod 1769}#))))))) | |
| 3163 | (if (pair? #{e 1764}#) | |
| 3164 | (let ((#{first 1800}# (car #{e 1764}#))) | |
| 3165 | (call-with-values | |
| 3166 | (lambda () | |
| 3167 | (#{syntax-type 435}# | |
| 3168 | #{first 1800}# | |
| 3169 | #{r 1765}# | |
| 3170 | #{w 1766}# | |
| 3171 | #{s 1767}# | |
| 3172 | #{rib 1768}# | |
| 3173 | #{mod 1769}# | |
| 3174 | #t)) | |
| 3175 | (lambda (#{ftype 1801}# | |
| 3176 | #{fval 1802}# | |
| 3177 | #{fe 1803}# | |
| 3178 | #{fw 1804}# | |
| 3179 | #{fs 1805}# | |
| 3180 | #{fmod 1806}#) | |
| 3181 | (if (memv #{ftype 1801}# '(lexical)) | |
| 3182 | (values | |
| 3183 | 'lexical-call | |
| 3184 | #{fval 1802}# | |
| 3185 | #{e 1764}# | |
| 3186 | #{w 1766}# | |
| 3187 | #{s 1767}# | |
| 3188 | #{mod 1769}#) | |
| 3189 | (if (memv #{ftype 1801}# '(global)) | |
| 3190 | (values | |
| 3191 | 'global-call | |
| 3192 | (#{make-syntax-object 310}# | |
| 3193 | #{fval 1802}# | |
| 3194 | #{w 1766}# | |
| 3195 | #{fmod 1806}#) | |
| 3196 | #{e 1764}# | |
| 3197 | #{w 1766}# | |
| 3198 | #{s 1767}# | |
| 3199 | #{mod 1769}#) | |
| 3200 | (if (memv #{ftype 1801}# '(macro)) | |
| 3201 | (#{syntax-type 435}# | |
| 3202 | (#{chi-macro 443}# | |
| 3203 | #{fval 1802}# | |
| 3204 | #{e 1764}# | |
| 3205 | #{r 1765}# | |
| 3206 | #{w 1766}# | |
| 3207 | #{s 1767}# | |
| 3208 | #{rib 1768}# | |
| 3209 | #{mod 1769}#) | |
| 3210 | #{r 1765}# | |
| 3211 | '(()) | |
| 3212 | #{s 1767}# | |
| 3213 | #{rib 1768}# | |
| 3214 | #{mod 1769}# | |
| 3215 | #{for-car? 1770}#) | |
| 3216 | (if (memv #{ftype 1801}# '(module-ref)) | |
| 3217 | (call-with-values | |
| 3218 | (lambda () | |
| 3219 | (#{fval 1802}# #{e 1764}# #{r 1765}# #{w 1766}#)) | |
| 3220 | (lambda (#{e 1818}# | |
| 3221 | #{r 1819}# | |
| 3222 | #{w 1820}# | |
| 3223 | #{s 1821}# | |
| 3224 | #{mod 1822}#) | |
| 3225 | (#{syntax-type 435}# | |
| 3226 | #{e 1818}# | |
| 3227 | #{r 1819}# | |
| 3228 | #{w 1820}# | |
| 3229 | #{s 1821}# | |
| 3230 | #{rib 1768}# | |
| 3231 | #{mod 1822}# | |
| 3232 | #{for-car? 1770}#))) | |
| 3233 | (if (memv #{ftype 1801}# '(core)) | |
| 3234 | (values | |
| 3235 | 'core-form | |
| 3236 | #{fval 1802}# | |
| 3237 | #{e 1764}# | |
| 3238 | #{w 1766}# | |
| 3239 | #{s 1767}# | |
| 3240 | #{mod 1769}#) | |
| 3241 | (if (memv #{ftype 1801}# '(local-syntax)) | |
| 3242 | (values | |
| 3243 | 'local-syntax-form | |
| 3244 | #{fval 1802}# | |
| 3245 | #{e 1764}# | |
| 3246 | #{w 1766}# | |
| 3247 | #{s 1767}# | |
| 3248 | #{mod 1769}#) | |
| 3249 | (if (memv #{ftype 1801}# '(begin)) | |
| 3250 | (values | |
| 3251 | 'begin-form | |
| 3252 | #f | |
| 3253 | #{e 1764}# | |
| 3254 | #{w 1766}# | |
| 3255 | #{s 1767}# | |
| 3256 | #{mod 1769}#) | |
| 3257 | (if (memv #{ftype 1801}# '(eval-when)) | |
| 3258 | (values | |
| 3259 | 'eval-when-form | |
| 3260 | #f | |
| 3261 | #{e 1764}# | |
| 3262 | #{w 1766}# | |
| 3263 | #{s 1767}# | |
| 3264 | #{mod 1769}#) | |
| 3265 | (if (memv #{ftype 1801}# '(define)) | |
| 3266 | (let ((#{tmp 1834}# | |
| 3267 | ($sc-dispatch | |
| 3268 | #{e 1764}# | |
| 3269 | '(_ any any)))) | |
| 3270 | (if (if #{tmp 1834}# | |
| 3271 | (@apply | |
| 3272 | (lambda (#{name 1837}# | |
| 3273 | #{val 1838}#) | |
| 3274 | (#{id? 349}# #{name 1837}#)) | |
| 3275 | #{tmp 1834}#) | |
| 3276 | #f) | |
| 3277 | (@apply | |
| 3278 | (lambda (#{name 1841}# #{val 1842}#) | |
| 3279 | (values | |
| 3280 | 'define-form | |
| 3281 | #{name 1841}# | |
| 3282 | #{val 1842}# | |
| 3283 | #{w 1766}# | |
| 3284 | #{s 1767}# | |
| 3285 | #{mod 1769}#)) | |
| 3286 | #{tmp 1834}#) | |
| 3287 | (let ((#{tmp 1843}# | |
| 3288 | ($sc-dispatch | |
| 3289 | #{e 1764}# | |
| 3290 | '(_ (any . any) | |
| 3291 | any | |
| 3292 | . | |
| 3293 | each-any)))) | |
| 3294 | (if (if #{tmp 1843}# | |
| 3295 | (@apply | |
| 3296 | (lambda (#{name 1848}# | |
| 3297 | #{args 1849}# | |
| 3298 | #{e1 1850}# | |
| 3299 | #{e2 1851}#) | |
| 3300 | (if (#{id? 349}# | |
| 3301 | #{name 1848}#) | |
| 3302 | (#{valid-bound-ids? 417}# | |
| 3303 | (#{lambda-var-list 467}# | |
| 3304 | #{args 1849}#)) | |
| 3305 | #f)) | |
| 3306 | #{tmp 1843}#) | |
| 3307 | #f) | |
| 3308 | (@apply | |
| 3309 | (lambda (#{name 1858}# | |
| 3310 | #{args 1859}# | |
| 3311 | #{e1 1860}# | |
| 3312 | #{e2 1861}#) | |
| 3313 | (values | |
| 3314 | 'define-form | |
| 3315 | (#{wrap 423}# | |
| 3316 | #{name 1858}# | |
| 3317 | #{w 1766}# | |
| 3318 | #{mod 1769}#) | |
| 3319 | (#{decorate-source 265}# | |
| 3320 | (cons '#(syntax-object | |
| 3321 | lambda | |
| 3322 | ((top) | |
| 3323 | #(ribcage | |
| 3324 | #(name | |
| 3325 | args | |
| 3326 | e1 | |
| 3327 | e2) | |
| 3328 | #((top) | |
| 3329 | (top) | |
| 3330 | (top) | |
| 3331 | (top)) | |
| 3332 | #("i1854" | |
| 3333 | "i1855" | |
| 3334 | "i1856" | |
| 3335 | "i1857")) | |
| 3336 | #(ribcage | |
| 3337 | () | |
| 3338 | () | |
| 3339 | ()) | |
| 3340 | #(ribcage | |
| 3341 | () | |
| 3342 | () | |
| 3343 | ()) | |
| 3344 | #(ribcage | |
| 3345 | #(ftype | |
| 3346 | fval | |
| 3347 | fe | |
| 3348 | fw | |
| 3349 | fs | |
| 3350 | fmod) | |
| 3351 | #((top) | |
| 3352 | (top) | |
| 3353 | (top) | |
| 3354 | (top) | |
| 3355 | (top) | |
| 3356 | (top)) | |
| 3357 | #("i1807" | |
| 3358 | "i1808" | |
| 3359 | "i1809" | |
| 3360 | "i1810" | |
| 3361 | "i1811" | |
| 3362 | "i1812")) | |
| 3363 | #(ribcage | |
| 3364 | () | |
| 3365 | () | |
| 3366 | ()) | |
| 3367 | #(ribcage | |
| 3368 | #(first) | |
| 3369 | #((top)) | |
| 3370 | #("i1799")) | |
| 3371 | #(ribcage | |
| 3372 | () | |
| 3373 | () | |
| 3374 | ()) | |
| 3375 | #(ribcage | |
| 3376 | () | |
| 3377 | () | |
| 3378 | ()) | |
| 3379 | #(ribcage | |
| 3380 | () | |
| 3381 | () | |
| 3382 | ()) | |
| 3383 | #(ribcage | |
| 3384 | #(e | |
| 3385 | r | |
| 3386 | w | |
| 3387 | s | |
| 3388 | rib | |
| 3389 | mod | |
| 3390 | for-car?) | |
| 3391 | #((top) | |
| 3392 | (top) | |
| 3393 | (top) | |
| 3394 | (top) | |
| 3395 | (top) | |
| 3396 | (top) | |
| 3397 | (top)) | |
| 3398 | #("i1771" | |
| 3399 | "i1772" | |
| 3400 | "i1773" | |
| 3401 | "i1774" | |
| 3402 | "i1775" | |
| 3403 | "i1776" | |
| 3404 | "i1777")) | |
| 3405 | #(ribcage | |
| 3406 | (lambda-var-list | |
| 3407 | gen-var | |
| 3408 | strip | |
| 3409 | chi-lambda-case | |
| 3410 | lambda*-formals | |
| 3411 | chi-simple-lambda | |
| 3412 | lambda-formals | |
| 3413 | ellipsis? | |
| 3414 | chi-void | |
| 3415 | eval-local-transformer | |
| 3416 | chi-local-syntax | |
| 3417 | chi-body | |
| 3418 | chi-macro | |
| 3419 | chi-application | |
| 3420 | chi-expr | |
| 3421 | chi | |
| 3422 | syntax-type | |
| 3423 | chi-when-list | |
| 3424 | chi-install-global | |
| 3425 | chi-top-sequence | |
| 3426 | chi-sequence | |
| 3427 | source-wrap | |
| 3428 | wrap | |
| 3429 | bound-id-member? | |
| 3430 | distinct-bound-ids? | |
| 3431 | valid-bound-ids? | |
| 3432 | bound-id=? | |
| 3433 | free-id=? | |
| 3434 | id-var-name | |
| 3435 | same-marks? | |
| 3436 | join-marks | |
| 3437 | join-wraps | |
| 3438 | smart-append | |
| 3439 | make-binding-wrap | |
| 3440 | extend-ribcage! | |
| 3441 | make-empty-ribcage | |
| 3442 | new-mark | |
| 3443 | anti-mark | |
| 3444 | the-anti-mark | |
| 3445 | top-marked? | |
| 3446 | top-wrap | |
| 3447 | empty-wrap | |
| 3448 | set-ribcage-labels! | |
| 3449 | set-ribcage-marks! | |
| 3450 | set-ribcage-symnames! | |
| 3451 | ribcage-labels | |
| 3452 | ribcage-marks | |
| 3453 | ribcage-symnames | |
| 3454 | ribcage? | |
| 3455 | make-ribcage | |
| 3456 | gen-labels | |
| 3457 | gen-label | |
| 3458 | make-rename | |
| 3459 | rename-marks | |
| 3460 | rename-new | |
| 3461 | rename-old | |
| 3462 | subst-rename? | |
| 3463 | wrap-subst | |
| 3464 | wrap-marks | |
| 3465 | make-wrap | |
| 3466 | id-sym-name&marks | |
| 3467 | id-sym-name | |
| 3468 | id? | |
| 3469 | nonsymbol-id? | |
| 3470 | global-extend | |
| 3471 | lookup | |
| 3472 | macros-only-env | |
| 3473 | extend-var-env | |
| 3474 | extend-env | |
| 3475 | null-env | |
| 3476 | binding-value | |
| 3477 | binding-type | |
| 3478 | make-binding | |
| 3479 | arg-check | |
| 3480 | source-annotation | |
| 3481 | no-source | |
| 3482 | set-syntax-object-module! | |
| 3483 | set-syntax-object-wrap! | |
| 3484 | set-syntax-object-expression! | |
| 3485 | syntax-object-module | |
| 3486 | syntax-object-wrap | |
| 3487 | syntax-object-expression | |
| 3488 | syntax-object? | |
| 3489 | make-syntax-object | |
| 3490 | build-lexical-var | |
| 3491 | build-letrec | |
| 3492 | build-named-let | |
| 3493 | build-let | |
| 3494 | build-sequence | |
| 3495 | build-data | |
| 3496 | build-primref | |
| 3497 | build-lambda-case | |
| 3498 | build-case-lambda | |
| 3499 | build-simple-lambda | |
| 3500 | build-global-definition | |
| 3501 | build-global-assignment | |
| 3502 | build-global-reference | |
| 3503 | analyze-variable | |
| 3504 | build-lexical-assignment | |
| 3505 | build-lexical-reference | |
| 3506 | build-dynlet | |
| 3507 | build-conditional | |
| 3508 | build-application | |
| 3509 | build-void | |
| 3510 | maybe-name-value! | |
| 3511 | decorate-source | |
| 3512 | get-global-definition-hook | |
| 3513 | put-global-definition-hook | |
| 3514 | gensym-hook | |
| 3515 | local-eval-hook | |
| 3516 | top-level-eval-hook | |
| 3517 | fx< | |
| 3518 | fx= | |
| 3519 | fx- | |
| 3520 | fx+ | |
| 3521 | set-lambda-meta! | |
| 3522 | lambda-meta | |
| 3523 | lambda? | |
| 3524 | make-dynlet | |
| 3525 | make-letrec | |
| 3526 | make-let | |
| 3527 | make-lambda-case | |
| 3528 | make-lambda | |
| 3529 | make-sequence | |
| 3530 | make-application | |
| 3531 | make-conditional | |
| 3532 | make-toplevel-define | |
| 3533 | make-toplevel-set | |
| 3534 | make-toplevel-ref | |
| 3535 | make-module-set | |
| 3536 | make-module-ref | |
| 3537 | make-lexical-set | |
| 3538 | make-lexical-ref | |
| 3539 | make-primitive-ref | |
| 3540 | make-const | |
| 3541 | make-void) | |
| 3542 | ((top) | |
| 3543 | (top) | |
| 3544 | (top) | |
| 3545 | (top) | |
| 3546 | (top) | |
| 3547 | (top) | |
| 3548 | (top) | |
| 3549 | (top) | |
| 3550 | (top) | |
| 3551 | (top) | |
| 3552 | (top) | |
| 3553 | (top) | |
| 3554 | (top) | |
| 3555 | (top) | |
| 3556 | (top) | |
| 3557 | (top) | |
| 3558 | (top) | |
| 3559 | (top) | |
| 3560 | (top) | |
| 3561 | (top) | |
| 3562 | (top) | |
| 3563 | (top) | |
| 3564 | (top) | |
| 3565 | (top) | |
| 3566 | (top) | |
| 3567 | (top) | |
| 3568 | (top) | |
| 3569 | (top) | |
| 3570 | (top) | |
| 3571 | (top) | |
| 3572 | (top) | |
| 3573 | (top) | |
| 3574 | (top) | |
| 3575 | (top) | |
| 3576 | (top) | |
| 3577 | (top) | |
| 3578 | (top) | |
| 3579 | (top) | |
| 3580 | (top) | |
| 3581 | (top) | |
| 3582 | (top) | |
| 3583 | (top) | |
| 3584 | (top) | |
| 3585 | (top) | |
| 3586 | (top) | |
| 3587 | (top) | |
| 3588 | (top) | |
| 3589 | (top) | |
| 3590 | (top) | |
| 3591 | (top) | |
| 3592 | (top) | |
| 3593 | (top) | |
| 3594 | (top) | |
| 3595 | (top) | |
| 3596 | (top) | |
| 3597 | (top) | |
| 3598 | (top) | |
| 3599 | (top) | |
| 3600 | (top) | |
| 3601 | (top) | |
| 3602 | (top) | |
| 3603 | (top) | |
| 3604 | (top) | |
| 3605 | (top) | |
| 3606 | (top) | |
| 3607 | (top) | |
| 3608 | (top) | |
| 3609 | (top) | |
| 3610 | (top) | |
| 3611 | (top) | |
| 3612 | (top) | |
| 3613 | (top) | |
| 3614 | (top) | |
| 3615 | (top) | |
| 3616 | (top) | |
| 3617 | (top) | |
| 3618 | (top) | |
| 3619 | (top) | |
| 3620 | (top) | |
| 3621 | (top) | |
| 3622 | (top) | |
| 3623 | (top) | |
| 3624 | (top) | |
| 3625 | (top) | |
| 3626 | (top) | |
| 3627 | (top) | |
| 3628 | (top) | |
| 3629 | (top) | |
| 3630 | (top) | |
| 3631 | (top) | |
| 3632 | (top) | |
| 3633 | (top) | |
| 3634 | (top) | |
| 3635 | (top) | |
| 3636 | (top) | |
| 3637 | (top) | |
| 3638 | (top) | |
| 3639 | (top) | |
| 3640 | (top) | |
| 3641 | (top) | |
| 3642 | (top) | |
| 3643 | (top) | |
| 3644 | (top) | |
| 3645 | (top) | |
| 3646 | (top) | |
| 3647 | (top) | |
| 3648 | (top) | |
| 3649 | (top) | |
| 3650 | (top) | |
| 3651 | (top) | |
| 3652 | (top) | |
| 3653 | (top) | |
| 3654 | (top) | |
| 3655 | (top) | |
| 3656 | (top) | |
| 3657 | (top) | |
| 3658 | (top) | |
| 3659 | (top) | |
| 3660 | (top) | |
| 3661 | (top) | |
| 3662 | (top) | |
| 3663 | (top) | |
| 3664 | (top) | |
| 3665 | (top) | |
| 3666 | (top) | |
| 3667 | (top) | |
| 3668 | (top) | |
| 3669 | (top) | |
| 3670 | (top) | |
| 3671 | (top) | |
| 3672 | (top) | |
| 3673 | (top) | |
| 3674 | (top) | |
| 3675 | (top) | |
| 3676 | (top) | |
| 3677 | (top)) | |
| 3678 | ("i466" | |
| 3679 | "i464" | |
| 3680 | "i462" | |
| 3681 | "i460" | |
| 3682 | "i458" | |
| 3683 | "i456" | |
| 3684 | "i454" | |
| 3685 | "i452" | |
| 3686 | "i450" | |
| 3687 | "i448" | |
| 3688 | "i446" | |
| 3689 | "i444" | |
| 3690 | "i442" | |
| 3691 | "i440" | |
| 3692 | "i438" | |
| 3693 | "i436" | |
| 3694 | "i434" | |
| 3695 | "i432" | |
| 3696 | "i430" | |
| 3697 | "i428" | |
| 3698 | "i426" | |
| 3699 | "i424" | |
| 3700 | "i422" | |
| 3701 | "i420" | |
| 3702 | "i418" | |
| 3703 | "i416" | |
| 3704 | "i414" | |
| 3705 | "i412" | |
| 3706 | "i410" | |
| 3707 | "i408" | |
| 3708 | "i406" | |
| 3709 | "i404" | |
| 3710 | "i402" | |
| 3711 | "i400" | |
| 3712 | "i398" | |
| 3713 | "i397" | |
| 3714 | "i395" | |
| 3715 | "i392" | |
| 3716 | "i391" | |
| 3717 | "i390" | |
| 3718 | "i388" | |
| 3719 | "i387" | |
| 3720 | "i385" | |
| 3721 | "i383" | |
| 3722 | "i381" | |
| 3723 | "i379" | |
| 3724 | "i377" | |
| 3725 | "i375" | |
| 3726 | "i373" | |
| 3727 | "i371" | |
| 3728 | "i368" | |
| 3729 | "i366" | |
| 3730 | "i365" | |
| 3731 | "i363" | |
| 3732 | "i361" | |
| 3733 | "i359" | |
| 3734 | "i357" | |
| 3735 | "i356" | |
| 3736 | "i355" | |
| 3737 | "i354" | |
| 3738 | "i352" | |
| 3739 | "i351" | |
| 3740 | "i348" | |
| 3741 | "i346" | |
| 3742 | "i344" | |
| 3743 | "i342" | |
| 3744 | "i340" | |
| 3745 | "i338" | |
| 3746 | "i336" | |
| 3747 | "i335" | |
| 3748 | "i334" | |
| 3749 | "i332" | |
| 3750 | "i330" | |
| 3751 | "i329" | |
| 3752 | "i326" | |
| 3753 | "i325" | |
| 3754 | "i323" | |
| 3755 | "i321" | |
| 3756 | "i319" | |
| 3757 | "i317" | |
| 3758 | "i315" | |
| 3759 | "i313" | |
| 3760 | "i311" | |
| 3761 | "i309" | |
| 3762 | "i307" | |
| 3763 | "i304" | |
| 3764 | "i302" | |
| 3765 | "i300" | |
| 3766 | "i298" | |
| 3767 | "i296" | |
| 3768 | "i294" | |
| 3769 | "i292" | |
| 3770 | "i290" | |
| 3771 | "i288" | |
| 3772 | "i286" | |
| 3773 | "i284" | |
| 3774 | "i282" | |
| 3775 | "i280" | |
| 3776 | "i278" | |
| 3777 | "i276" | |
| 3778 | "i274" | |
| 3779 | "i272" | |
| 3780 | "i270" | |
| 3781 | "i268" | |
| 3782 | "i266" | |
| 3783 | "i264" | |
| 3784 | "i262" | |
| 3785 | "i260" | |
| 3786 | "i259" | |
| 3787 | "i256" | |
| 3788 | "i254" | |
| 3789 | "i253" | |
| 3790 | "i252" | |
| 3791 | "i251" | |
| 3792 | "i250" | |
| 3793 | "i248" | |
| 3794 | "i246" | |
| 3795 | "i244" | |
| 3796 | "i241" | |
| 3797 | "i239" | |
| 3798 | "i237" | |
| 3799 | "i235" | |
| 3800 | "i233" | |
| 3801 | "i231" | |
| 3802 | "i229" | |
| 3803 | "i227" | |
| 3804 | "i225" | |
| 3805 | "i223" | |
| 3806 | "i221" | |
| 3807 | "i219" | |
| 3808 | "i217" | |
| 3809 | "i215" | |
| 3810 | "i213" | |
| 3811 | "i211" | |
| 3812 | "i209" | |
| 3813 | "i207")) | |
| 3814 | #(ribcage | |
| 3815 | (define-structure | |
| 3816 | define-expansion-accessors | |
| 3817 | define-expansion-constructors) | |
| 3818 | ((top) | |
| 3819 | (top) | |
| 3820 | (top)) | |
| 3821 | ("i45" | |
| 3822 | "i44" | |
| 3823 | "i43"))) | |
| 3824 | (hygiene guile)) | |
| 3825 | (#{wrap 423}# | |
| 3826 | (cons #{args 1859}# | |
| 3827 | (cons #{e1 1860}# | |
| 3828 | #{e2 1861}#)) | |
| 3829 | #{w 1766}# | |
| 3830 | #{mod 1769}#)) | |
| 3831 | #{s 1767}#) | |
| 3832 | '(()) | |
| 3833 | #{s 1767}# | |
| 3834 | #{mod 1769}#)) | |
| 3835 | #{tmp 1843}#) | |
| 3836 | (let ((#{tmp 1864}# | |
| 3837 | ($sc-dispatch | |
| 3838 | #{e 1764}# | |
| 3839 | '(_ any)))) | |
| 3840 | (if (if #{tmp 1864}# | |
| 3841 | (@apply | |
| 3842 | (lambda (#{name 1866}#) | |
| 3843 | (#{id? 349}# | |
| 3844 | #{name 1866}#)) | |
| 3845 | #{tmp 1864}#) | |
| 3846 | #f) | |
| 3847 | (@apply | |
| 3848 | (lambda (#{name 1868}#) | |
| 3849 | (values | |
| 3850 | 'define-form | |
| 3851 | (#{wrap 423}# | |
| 3852 | #{name 1868}# | |
| 3853 | #{w 1766}# | |
| 3854 | #{mod 1769}#) | |
| 3855 | '(#(syntax-object | |
| 3856 | if | |
| 3857 | ((top) | |
| 3858 | #(ribcage | |
| 3859 | #(name) | |
| 3860 | #((top)) | |
| 3861 | #("i1867")) | |
| 3862 | #(ribcage () () ()) | |
| 3863 | #(ribcage () () ()) | |
| 3864 | #(ribcage | |
| 3865 | #(ftype | |
| 3866 | fval | |
| 3867 | fe | |
| 3868 | fw | |
| 3869 | fs | |
| 3870 | fmod) | |
| 3871 | #((top) | |
| 3872 | (top) | |
| 3873 | (top) | |
| 3874 | (top) | |
| 3875 | (top) | |
| 3876 | (top)) | |
| 3877 | #("i1807" | |
| 3878 | "i1808" | |
| 3879 | "i1809" | |
| 3880 | "i1810" | |
| 3881 | "i1811" | |
| 3882 | "i1812")) | |
| 3883 | #(ribcage () () ()) | |
| 3884 | #(ribcage | |
| 3885 | #(first) | |
| 3886 | #((top)) | |
| 3887 | #("i1799")) | |
| 3888 | #(ribcage () () ()) | |
| 3889 | #(ribcage () () ()) | |
| 3890 | #(ribcage () () ()) | |
| 3891 | #(ribcage | |
| 3892 | #(e | |
| 3893 | r | |
| 3894 | w | |
| 3895 | s | |
| 3896 | rib | |
| 3897 | mod | |
| 3898 | for-car?) | |
| 3899 | #((top) | |
| 3900 | (top) | |
| 3901 | (top) | |
| 3902 | (top) | |
| 3903 | (top) | |
| 3904 | (top) | |
| 3905 | (top)) | |
| 3906 | #("i1771" | |
| 3907 | "i1772" | |
| 3908 | "i1773" | |
| 3909 | "i1774" | |
| 3910 | "i1775" | |
| 3911 | "i1776" | |
| 3912 | "i1777")) | |
| 3913 | #(ribcage | |
| 3914 | (lambda-var-list | |
| 3915 | gen-var | |
| 3916 | strip | |
| 3917 | chi-lambda-case | |
| 3918 | lambda*-formals | |
| 3919 | chi-simple-lambda | |
| 3920 | lambda-formals | |
| 3921 | ellipsis? | |
| 3922 | chi-void | |
| 3923 | eval-local-transformer | |
| 3924 | chi-local-syntax | |
| 3925 | chi-body | |
| 3926 | chi-macro | |
| 3927 | chi-application | |
| 3928 | chi-expr | |
| 3929 | chi | |
| 3930 | syntax-type | |
| 3931 | chi-when-list | |
| 3932 | chi-install-global | |
| 3933 | chi-top-sequence | |
| 3934 | chi-sequence | |
| 3935 | source-wrap | |
| 3936 | wrap | |
| 3937 | bound-id-member? | |
| 3938 | distinct-bound-ids? | |
| 3939 | valid-bound-ids? | |
| 3940 | bound-id=? | |
| 3941 | free-id=? | |
| 3942 | id-var-name | |
| 3943 | same-marks? | |
| 3944 | join-marks | |
| 3945 | join-wraps | |
| 3946 | smart-append | |
| 3947 | make-binding-wrap | |
| 3948 | extend-ribcage! | |
| 3949 | make-empty-ribcage | |
| 3950 | new-mark | |
| 3951 | anti-mark | |
| 3952 | the-anti-mark | |
| 3953 | top-marked? | |
| 3954 | top-wrap | |
| 3955 | empty-wrap | |
| 3956 | set-ribcage-labels! | |
| 3957 | set-ribcage-marks! | |
| 3958 | set-ribcage-symnames! | |
| 3959 | ribcage-labels | |
| 3960 | ribcage-marks | |
| 3961 | ribcage-symnames | |
| 3962 | ribcage? | |
| 3963 | make-ribcage | |
| 3964 | gen-labels | |
| 3965 | gen-label | |
| 3966 | make-rename | |
| 3967 | rename-marks | |
| 3968 | rename-new | |
| 3969 | rename-old | |
| 3970 | subst-rename? | |
| 3971 | wrap-subst | |
| 3972 | wrap-marks | |
| 3973 | make-wrap | |
| 3974 | id-sym-name&marks | |
| 3975 | id-sym-name | |
| 3976 | id? | |
| 3977 | nonsymbol-id? | |
| 3978 | global-extend | |
| 3979 | lookup | |
| 3980 | macros-only-env | |
| 3981 | extend-var-env | |
| 3982 | extend-env | |
| 3983 | null-env | |
| 3984 | binding-value | |
| 3985 | binding-type | |
| 3986 | make-binding | |
| 3987 | arg-check | |
| 3988 | source-annotation | |
| 3989 | no-source | |
| 3990 | set-syntax-object-module! | |
| 3991 | set-syntax-object-wrap! | |
| 3992 | set-syntax-object-expression! | |
| 3993 | syntax-object-module | |
| 3994 | syntax-object-wrap | |
| 3995 | syntax-object-expression | |
| 3996 | syntax-object? | |
| 3997 | make-syntax-object | |
| 3998 | build-lexical-var | |
| 3999 | build-letrec | |
| 4000 | build-named-let | |
| 4001 | build-let | |
| 4002 | build-sequence | |
| 4003 | build-data | |
| 4004 | build-primref | |
| 4005 | build-lambda-case | |
| 4006 | build-case-lambda | |
| 4007 | build-simple-lambda | |
| 4008 | build-global-definition | |
| 4009 | build-global-assignment | |
| 4010 | build-global-reference | |
| 4011 | analyze-variable | |
| 4012 | build-lexical-assignment | |
| 4013 | build-lexical-reference | |
| 4014 | build-dynlet | |
| 4015 | build-conditional | |
| 4016 | build-application | |
| 4017 | build-void | |
| 4018 | maybe-name-value! | |
| 4019 | decorate-source | |
| 4020 | get-global-definition-hook | |
| 4021 | put-global-definition-hook | |
| 4022 | gensym-hook | |
| 4023 | local-eval-hook | |
| 4024 | top-level-eval-hook | |
| 4025 | fx< | |
| 4026 | fx= | |
| 4027 | fx- | |
| 4028 | fx+ | |
| 4029 | set-lambda-meta! | |
| 4030 | lambda-meta | |
| 4031 | lambda? | |
| 4032 | make-dynlet | |
| 4033 | make-letrec | |
| 4034 | make-let | |
| 4035 | make-lambda-case | |
| 4036 | make-lambda | |
| 4037 | make-sequence | |
| 4038 | make-application | |
| 4039 | make-conditional | |
| 4040 | make-toplevel-define | |
| 4041 | make-toplevel-set | |
| 4042 | make-toplevel-ref | |
| 4043 | make-module-set | |
| 4044 | make-module-ref | |
| 4045 | make-lexical-set | |
| 4046 | make-lexical-ref | |
| 4047 | make-primitive-ref | |
| 4048 | make-const | |
| 4049 | make-void) | |
| 4050 | ((top) | |
| 4051 | (top) | |
| 4052 | (top) | |
| 4053 | (top) | |
| 4054 | (top) | |
| 4055 | (top) | |
| 4056 | (top) | |
| 4057 | (top) | |
| 4058 | (top) | |
| 4059 | (top) | |
| 4060 | (top) | |
| 4061 | (top) | |
| 4062 | (top) | |
| 4063 | (top) | |
| 4064 | (top) | |
| 4065 | (top) | |
| 4066 | (top) | |
| 4067 | (top) | |
| 4068 | (top) | |
| 4069 | (top) | |
| 4070 | (top) | |
| 4071 | (top) | |
| 4072 | (top) | |
| 4073 | (top) | |
| 4074 | (top) | |
| 4075 | (top) | |
| 4076 | (top) | |
| 4077 | (top) | |
| 4078 | (top) | |
| 4079 | (top) | |
| 4080 | (top) | |
| 4081 | (top) | |
| 4082 | (top) | |
| 4083 | (top) | |
| 4084 | (top) | |
| 4085 | (top) | |
| 4086 | (top) | |
| 4087 | (top) | |
| 4088 | (top) | |
| 4089 | (top) | |
| 4090 | (top) | |
| 4091 | (top) | |
| 4092 | (top) | |
| 4093 | (top) | |
| 4094 | (top) | |
| 4095 | (top) | |
| 4096 | (top) | |
| 4097 | (top) | |
| 4098 | (top) | |
| 4099 | (top) | |
| 4100 | (top) | |
| 4101 | (top) | |
| 4102 | (top) | |
| 4103 | (top) | |
| 4104 | (top) | |
| 4105 | (top) | |
| 4106 | (top) | |
| 4107 | (top) | |
| 4108 | (top) | |
| 4109 | (top) | |
| 4110 | (top) | |
| 4111 | (top) | |
| 4112 | (top) | |
| 4113 | (top) | |
| 4114 | (top) | |
| 4115 | (top) | |
| 4116 | (top) | |
| 4117 | (top) | |
| 4118 | (top) | |
| 4119 | (top) | |
| 4120 | (top) | |
| 4121 | (top) | |
| 4122 | (top) | |
| 4123 | (top) | |
| 4124 | (top) | |
| 4125 | (top) | |
| 4126 | (top) | |
| 4127 | (top) | |
| 4128 | (top) | |
| 4129 | (top) | |
| 4130 | (top) | |
| 4131 | (top) | |
| 4132 | (top) | |
| 4133 | (top) | |
| 4134 | (top) | |
| 4135 | (top) | |
| 4136 | (top) | |
| 4137 | (top) | |
| 4138 | (top) | |
| 4139 | (top) | |
| 4140 | (top) | |
| 4141 | (top) | |
| 4142 | (top) | |
| 4143 | (top) | |
| 4144 | (top) | |
| 4145 | (top) | |
| 4146 | (top) | |
| 4147 | (top) | |
| 4148 | (top) | |
| 4149 | (top) | |
| 4150 | (top) | |
| 4151 | (top) | |
| 4152 | (top) | |
| 4153 | (top) | |
| 4154 | (top) | |
| 4155 | (top) | |
| 4156 | (top) | |
| 4157 | (top) | |
| 4158 | (top) | |
| 4159 | (top) | |
| 4160 | (top) | |
| 4161 | (top) | |
| 4162 | (top) | |
| 4163 | (top) | |
| 4164 | (top) | |
| 4165 | (top) | |
| 4166 | (top) | |
| 4167 | (top) | |
| 4168 | (top) | |
| 4169 | (top) | |
| 4170 | (top) | |
| 4171 | (top) | |
| 4172 | (top) | |
| 4173 | (top) | |
| 4174 | (top) | |
| 4175 | (top) | |
| 4176 | (top) | |
| 4177 | (top) | |
| 4178 | (top) | |
| 4179 | (top) | |
| 4180 | (top) | |
| 4181 | (top) | |
| 4182 | (top) | |
| 4183 | (top) | |
| 4184 | (top) | |
| 4185 | (top)) | |
| 4186 | ("i466" | |
| 4187 | "i464" | |
| 4188 | "i462" | |
| 4189 | "i460" | |
| 4190 | "i458" | |
| 4191 | "i456" | |
| 4192 | "i454" | |
| 4193 | "i452" | |
| 4194 | "i450" | |
| 4195 | "i448" | |
| 4196 | "i446" | |
| 4197 | "i444" | |
| 4198 | "i442" | |
| 4199 | "i440" | |
| 4200 | "i438" | |
| 4201 | "i436" | |
| 4202 | "i434" | |
| 4203 | "i432" | |
| 4204 | "i430" | |
| 4205 | "i428" | |
| 4206 | "i426" | |
| 4207 | "i424" | |
| 4208 | "i422" | |
| 4209 | "i420" | |
| 4210 | "i418" | |
| 4211 | "i416" | |
| 4212 | "i414" | |
| 4213 | "i412" | |
| 4214 | "i410" | |
| 4215 | "i408" | |
| 4216 | "i406" | |
| 4217 | "i404" | |
| 4218 | "i402" | |
| 4219 | "i400" | |
| 4220 | "i398" | |
| 4221 | "i397" | |
| 4222 | "i395" | |
| 4223 | "i392" | |
| 4224 | "i391" | |
| 4225 | "i390" | |
| 4226 | "i388" | |
| 4227 | "i387" | |
| 4228 | "i385" | |
| 4229 | "i383" | |
| 4230 | "i381" | |
| 4231 | "i379" | |
| 4232 | "i377" | |
| 4233 | "i375" | |
| 4234 | "i373" | |
| 4235 | "i371" | |
| 4236 | "i368" | |
| 4237 | "i366" | |
| 4238 | "i365" | |
| 4239 | "i363" | |
| 4240 | "i361" | |
| 4241 | "i359" | |
| 4242 | "i357" | |
| 4243 | "i356" | |
| 4244 | "i355" | |
| 4245 | "i354" | |
| 4246 | "i352" | |
| 4247 | "i351" | |
| 4248 | "i348" | |
| 4249 | "i346" | |
| 4250 | "i344" | |
| 4251 | "i342" | |
| 4252 | "i340" | |
| 4253 | "i338" | |
| 4254 | "i336" | |
| 4255 | "i335" | |
| 4256 | "i334" | |
| 4257 | "i332" | |
| 4258 | "i330" | |
| 4259 | "i329" | |
| 4260 | "i326" | |
| 4261 | "i325" | |
| 4262 | "i323" | |
| 4263 | "i321" | |
| 4264 | "i319" | |
| 4265 | "i317" | |
| 4266 | "i315" | |
| 4267 | "i313" | |
| 4268 | "i311" | |
| 4269 | "i309" | |
| 4270 | "i307" | |
| 4271 | "i304" | |
| 4272 | "i302" | |
| 4273 | "i300" | |
| 4274 | "i298" | |
| 4275 | "i296" | |
| 4276 | "i294" | |
| 4277 | "i292" | |
| 4278 | "i290" | |
| 4279 | "i288" | |
| 4280 | "i286" | |
| 4281 | "i284" | |
| 4282 | "i282" | |
| 4283 | "i280" | |
| 4284 | "i278" | |
| 4285 | "i276" | |
| 4286 | "i274" | |
| 4287 | "i272" | |
| 4288 | "i270" | |
| 4289 | "i268" | |
| 4290 | "i266" | |
| 4291 | "i264" | |
| 4292 | "i262" | |
| 4293 | "i260" | |
| 4294 | "i259" | |
| 4295 | "i256" | |
| 4296 | "i254" | |
| 4297 | "i253" | |
| 4298 | "i252" | |
| 4299 | "i251" | |
| 4300 | "i250" | |
| 4301 | "i248" | |
| 4302 | "i246" | |
| 4303 | "i244" | |
| 4304 | "i241" | |
| 4305 | "i239" | |
| 4306 | "i237" | |
| 4307 | "i235" | |
| 4308 | "i233" | |
| 4309 | "i231" | |
| 4310 | "i229" | |
| 4311 | "i227" | |
| 4312 | "i225" | |
| 4313 | "i223" | |
| 4314 | "i221" | |
| 4315 | "i219" | |
| 4316 | "i217" | |
| 4317 | "i215" | |
| 4318 | "i213" | |
| 4319 | "i211" | |
| 4320 | "i209" | |
| 4321 | "i207")) | |
| 4322 | #(ribcage | |
| 4323 | (define-structure | |
| 4324 | define-expansion-accessors | |
| 4325 | define-expansion-constructors) | |
| 4326 | ((top) (top) (top)) | |
| 4327 | ("i45" | |
| 4328 | "i44" | |
| 4329 | "i43"))) | |
| 4330 | (hygiene guile)) | |
| 4331 | #(syntax-object | |
| 4332 | #f | |
| 4333 | ((top) | |
| 4334 | #(ribcage | |
| 4335 | #(name) | |
| 4336 | #((top)) | |
| 4337 | #("i1867")) | |
| 4338 | #(ribcage () () ()) | |
| 4339 | #(ribcage () () ()) | |
| 4340 | #(ribcage | |
| 4341 | #(ftype | |
| 4342 | fval | |
| 4343 | fe | |
| 4344 | fw | |
| 4345 | fs | |
| 4346 | fmod) | |
| 4347 | #((top) | |
| 4348 | (top) | |
| 4349 | (top) | |
| 4350 | (top) | |
| 4351 | (top) | |
| 4352 | (top)) | |
| 4353 | #("i1807" | |
| 4354 | "i1808" | |
| 4355 | "i1809" | |
| 4356 | "i1810" | |
| 4357 | "i1811" | |
| 4358 | "i1812")) | |
| 4359 | #(ribcage () () ()) | |
| 4360 | #(ribcage | |
| 4361 | #(first) | |
| 4362 | #((top)) | |
| 4363 | #("i1799")) | |
| 4364 | #(ribcage () () ()) | |
| 4365 | #(ribcage () () ()) | |
| 4366 | #(ribcage () () ()) | |
| 4367 | #(ribcage | |
| 4368 | #(e | |
| 4369 | r | |
| 4370 | w | |
| 4371 | s | |
| 4372 | rib | |
| 4373 | mod | |
| 4374 | for-car?) | |
| 4375 | #((top) | |
| 4376 | (top) | |
| 4377 | (top) | |
| 4378 | (top) | |
| 4379 | (top) | |
| 4380 | (top) | |
| 4381 | (top)) | |
| 4382 | #("i1771" | |
| 4383 | "i1772" | |
| 4384 | "i1773" | |
| 4385 | "i1774" | |
| 4386 | "i1775" | |
| 4387 | "i1776" | |
| 4388 | "i1777")) | |
| 4389 | #(ribcage | |
| 4390 | (lambda-var-list | |
| 4391 | gen-var | |
| 4392 | strip | |
| 4393 | chi-lambda-case | |
| 4394 | lambda*-formals | |
| 4395 | chi-simple-lambda | |
| 4396 | lambda-formals | |
| 4397 | ellipsis? | |
| 4398 | chi-void | |
| 4399 | eval-local-transformer | |
| 4400 | chi-local-syntax | |
| 4401 | chi-body | |
| 4402 | chi-macro | |
| 4403 | chi-application | |
| 4404 | chi-expr | |
| 4405 | chi | |
| 4406 | syntax-type | |
| 4407 | chi-when-list | |
| 4408 | chi-install-global | |
| 4409 | chi-top-sequence | |
| 4410 | chi-sequence | |
| 4411 | source-wrap | |
| 4412 | wrap | |
| 4413 | bound-id-member? | |
| 4414 | distinct-bound-ids? | |
| 4415 | valid-bound-ids? | |
| 4416 | bound-id=? | |
| 4417 | free-id=? | |
| 4418 | id-var-name | |
| 4419 | same-marks? | |
| 4420 | join-marks | |
| 4421 | join-wraps | |
| 4422 | smart-append | |
| 4423 | make-binding-wrap | |
| 4424 | extend-ribcage! | |
| 4425 | make-empty-ribcage | |
| 4426 | new-mark | |
| 4427 | anti-mark | |
| 4428 | the-anti-mark | |
| 4429 | top-marked? | |
| 4430 | top-wrap | |
| 4431 | empty-wrap | |
| 4432 | set-ribcage-labels! | |
| 4433 | set-ribcage-marks! | |
| 4434 | set-ribcage-symnames! | |
| 4435 | ribcage-labels | |
| 4436 | ribcage-marks | |
| 4437 | ribcage-symnames | |
| 4438 | ribcage? | |
| 4439 | make-ribcage | |
| 4440 | gen-labels | |
| 4441 | gen-label | |
| 4442 | make-rename | |
| 4443 | rename-marks | |
| 4444 | rename-new | |
| 4445 | rename-old | |
| 4446 | subst-rename? | |
| 4447 | wrap-subst | |
| 4448 | wrap-marks | |
| 4449 | make-wrap | |
| 4450 | id-sym-name&marks | |
| 4451 | id-sym-name | |
| 4452 | id? | |
| 4453 | nonsymbol-id? | |
| 4454 | global-extend | |
| 4455 | lookup | |
| 4456 | macros-only-env | |
| 4457 | extend-var-env | |
| 4458 | extend-env | |
| 4459 | null-env | |
| 4460 | binding-value | |
| 4461 | binding-type | |
| 4462 | make-binding | |
| 4463 | arg-check | |
| 4464 | source-annotation | |
| 4465 | no-source | |
| 4466 | set-syntax-object-module! | |
| 4467 | set-syntax-object-wrap! | |
| 4468 | set-syntax-object-expression! | |
| 4469 | syntax-object-module | |
| 4470 | syntax-object-wrap | |
| 4471 | syntax-object-expression | |
| 4472 | syntax-object? | |
| 4473 | make-syntax-object | |
| 4474 | build-lexical-var | |
| 4475 | build-letrec | |
| 4476 | build-named-let | |
| 4477 | build-let | |
| 4478 | build-sequence | |
| 4479 | build-data | |
| 4480 | build-primref | |
| 4481 | build-lambda-case | |
| 4482 | build-case-lambda | |
| 4483 | build-simple-lambda | |
| 4484 | build-global-definition | |
| 4485 | build-global-assignment | |
| 4486 | build-global-reference | |
| 4487 | analyze-variable | |
| 4488 | build-lexical-assignment | |
| 4489 | build-lexical-reference | |
| 4490 | build-dynlet | |
| 4491 | build-conditional | |
| 4492 | build-application | |
| 4493 | build-void | |
| 4494 | maybe-name-value! | |
| 4495 | decorate-source | |
| 4496 | get-global-definition-hook | |
| 4497 | put-global-definition-hook | |
| 4498 | gensym-hook | |
| 4499 | local-eval-hook | |
| 4500 | top-level-eval-hook | |
| 4501 | fx< | |
| 4502 | fx= | |
| 4503 | fx- | |
| 4504 | fx+ | |
| 4505 | set-lambda-meta! | |
| 4506 | lambda-meta | |
| 4507 | lambda? | |
| 4508 | make-dynlet | |
| 4509 | make-letrec | |
| 4510 | make-let | |
| 4511 | make-lambda-case | |
| 4512 | make-lambda | |
| 4513 | make-sequence | |
| 4514 | make-application | |
| 4515 | make-conditional | |
| 4516 | make-toplevel-define | |
| 4517 | make-toplevel-set | |
| 4518 | make-toplevel-ref | |
| 4519 | make-module-set | |
| 4520 | make-module-ref | |
| 4521 | make-lexical-set | |
| 4522 | make-lexical-ref | |
| 4523 | make-primitive-ref | |
| 4524 | make-const | |
| 4525 | make-void) | |
| 4526 | ((top) | |
| 4527 | (top) | |
| 4528 | (top) | |
| 4529 | (top) | |
| 4530 | (top) | |
| 4531 | (top) | |
| 4532 | (top) | |
| 4533 | (top) | |
| 4534 | (top) | |
| 4535 | (top) | |
| 4536 | (top) | |
| 4537 | (top) | |
| 4538 | (top) | |
| 4539 | (top) | |
| 4540 | (top) | |
| 4541 | (top) | |
| 4542 | (top) | |
| 4543 | (top) | |
| 4544 | (top) | |
| 4545 | (top) | |
| 4546 | (top) | |
| 4547 | (top) | |
| 4548 | (top) | |
| 4549 | (top) | |
| 4550 | (top) | |
| 4551 | (top) | |
| 4552 | (top) | |
| 4553 | (top) | |
| 4554 | (top) | |
| 4555 | (top) | |
| 4556 | (top) | |
| 4557 | (top) | |
| 4558 | (top) | |
| 4559 | (top) | |
| 4560 | (top) | |
| 4561 | (top) | |
| 4562 | (top) | |
| 4563 | (top) | |
| 4564 | (top) | |
| 4565 | (top) | |
| 4566 | (top) | |
| 4567 | (top) | |
| 4568 | (top) | |
| 4569 | (top) | |
| 4570 | (top) | |
| 4571 | (top) | |
| 4572 | (top) | |
| 4573 | (top) | |
| 4574 | (top) | |
| 4575 | (top) | |
| 4576 | (top) | |
| 4577 | (top) | |
| 4578 | (top) | |
| 4579 | (top) | |
| 4580 | (top) | |
| 4581 | (top) | |
| 4582 | (top) | |
| 4583 | (top) | |
| 4584 | (top) | |
| 4585 | (top) | |
| 4586 | (top) | |
| 4587 | (top) | |
| 4588 | (top) | |
| 4589 | (top) | |
| 4590 | (top) | |
| 4591 | (top) | |
| 4592 | (top) | |
| 4593 | (top) | |
| 4594 | (top) | |
| 4595 | (top) | |
| 4596 | (top) | |
| 4597 | (top) | |
| 4598 | (top) | |
| 4599 | (top) | |
| 4600 | (top) | |
| 4601 | (top) | |
| 4602 | (top) | |
| 4603 | (top) | |
| 4604 | (top) | |
| 4605 | (top) | |
| 4606 | (top) | |
| 4607 | (top) | |
| 4608 | (top) | |
| 4609 | (top) | |
| 4610 | (top) | |
| 4611 | (top) | |
| 4612 | (top) | |
| 4613 | (top) | |
| 4614 | (top) | |
| 4615 | (top) | |
| 4616 | (top) | |
| 4617 | (top) | |
| 4618 | (top) | |
| 4619 | (top) | |
| 4620 | (top) | |
| 4621 | (top) | |
| 4622 | (top) | |
| 4623 | (top) | |
| 4624 | (top) | |
| 4625 | (top) | |
| 4626 | (top) | |
| 4627 | (top) | |
| 4628 | (top) | |
| 4629 | (top) | |
| 4630 | (top) | |
| 4631 | (top) | |
| 4632 | (top) | |
| 4633 | (top) | |
| 4634 | (top) | |
| 4635 | (top) | |
| 4636 | (top) | |
| 4637 | (top) | |
| 4638 | (top) | |
| 4639 | (top) | |
| 4640 | (top) | |
| 4641 | (top) | |
| 4642 | (top) | |
| 4643 | (top) | |
| 4644 | (top) | |
| 4645 | (top) | |
| 4646 | (top) | |
| 4647 | (top) | |
| 4648 | (top) | |
| 4649 | (top) | |
| 4650 | (top) | |
| 4651 | (top) | |
| 4652 | (top) | |
| 4653 | (top) | |
| 4654 | (top) | |
| 4655 | (top) | |
| 4656 | (top) | |
| 4657 | (top) | |
| 4658 | (top) | |
| 4659 | (top) | |
| 4660 | (top) | |
| 4661 | (top)) | |
| 4662 | ("i466" | |
| 4663 | "i464" | |
| 4664 | "i462" | |
| 4665 | "i460" | |
| 4666 | "i458" | |
| 4667 | "i456" | |
| 4668 | "i454" | |
| 4669 | "i452" | |
| 4670 | "i450" | |
| 4671 | "i448" | |
| 4672 | "i446" | |
| 4673 | "i444" | |
| 4674 | "i442" | |
| 4675 | "i440" | |
| 4676 | "i438" | |
| 4677 | "i436" | |
| 4678 | "i434" | |
| 4679 | "i432" | |
| 4680 | "i430" | |
| 4681 | "i428" | |
| 4682 | "i426" | |
| 4683 | "i424" | |
| 4684 | "i422" | |
| 4685 | "i420" | |
| 4686 | "i418" | |
| 4687 | "i416" | |
| 4688 | "i414" | |
| 4689 | "i412" | |
| 4690 | "i410" | |
| 4691 | "i408" | |
| 4692 | "i406" | |
| 4693 | "i404" | |
| 4694 | "i402" | |
| 4695 | "i400" | |
| 4696 | "i398" | |
| 4697 | "i397" | |
| 4698 | "i395" | |
| 4699 | "i392" | |
| 4700 | "i391" | |
| 4701 | "i390" | |
| 4702 | "i388" | |
| 4703 | "i387" | |
| 4704 | "i385" | |
| 4705 | "i383" | |
| 4706 | "i381" | |
| 4707 | "i379" | |
| 4708 | "i377" | |
| 4709 | "i375" | |
| 4710 | "i373" | |
| 4711 | "i371" | |
| 4712 | "i368" | |
| 4713 | "i366" | |
| 4714 | "i365" | |
| 4715 | "i363" | |
| 4716 | "i361" | |
| 4717 | "i359" | |
| 4718 | "i357" | |
| 4719 | "i356" | |
| 4720 | "i355" | |
| 4721 | "i354" | |
| 4722 | "i352" | |
| 4723 | "i351" | |
| 4724 | "i348" | |
| 4725 | "i346" | |
| 4726 | "i344" | |
| 4727 | "i342" | |
| 4728 | "i340" | |
| 4729 | "i338" | |
| 4730 | "i336" | |
| 4731 | "i335" | |
| 4732 | "i334" | |
| 4733 | "i332" | |
| 4734 | "i330" | |
| 4735 | "i329" | |
| 4736 | "i326" | |
| 4737 | "i325" | |
| 4738 | "i323" | |
| 4739 | "i321" | |
| 4740 | "i319" | |
| 4741 | "i317" | |
| 4742 | "i315" | |
| 4743 | "i313" | |
| 4744 | "i311" | |
| 4745 | "i309" | |
| 4746 | "i307" | |
| 4747 | "i304" | |
| 4748 | "i302" | |
| 4749 | "i300" | |
| 4750 | "i298" | |
| 4751 | "i296" | |
| 4752 | "i294" | |
| 4753 | "i292" | |
| 4754 | "i290" | |
| 4755 | "i288" | |
| 4756 | "i286" | |
| 4757 | "i284" | |
| 4758 | "i282" | |
| 4759 | "i280" | |
| 4760 | "i278" | |
| 4761 | "i276" | |
| 4762 | "i274" | |
| 4763 | "i272" | |
| 4764 | "i270" | |
| 4765 | "i268" | |
| 4766 | "i266" | |
| 4767 | "i264" | |
| 4768 | "i262" | |
| 4769 | "i260" | |
| 4770 | "i259" | |
| 4771 | "i256" | |
| 4772 | "i254" | |
| 4773 | "i253" | |
| 4774 | "i252" | |
| 4775 | "i251" | |
| 4776 | "i250" | |
| 4777 | "i248" | |
| 4778 | "i246" | |
| 4779 | "i244" | |
| 4780 | "i241" | |
| 4781 | "i239" | |
| 4782 | "i237" | |
| 4783 | "i235" | |
| 4784 | "i233" | |
| 4785 | "i231" | |
| 4786 | "i229" | |
| 4787 | "i227" | |
| 4788 | "i225" | |
| 4789 | "i223" | |
| 4790 | "i221" | |
| 4791 | "i219" | |
| 4792 | "i217" | |
| 4793 | "i215" | |
| 4794 | "i213" | |
| 4795 | "i211" | |
| 4796 | "i209" | |
| 4797 | "i207")) | |
| 4798 | #(ribcage | |
| 4799 | (define-structure | |
| 4800 | define-expansion-accessors | |
| 4801 | define-expansion-constructors) | |
| 4802 | ((top) (top) (top)) | |
| 4803 | ("i45" | |
| 4804 | "i44" | |
| 4805 | "i43"))) | |
| 4806 | (hygiene guile)) | |
| 4807 | #(syntax-object | |
| 4808 | #f | |
| 4809 | ((top) | |
| 4810 | #(ribcage | |
| 4811 | #(name) | |
| 4812 | #((top)) | |
| 4813 | #("i1867")) | |
| 4814 | #(ribcage () () ()) | |
| 4815 | #(ribcage () () ()) | |
| 4816 | #(ribcage | |
| 4817 | #(ftype | |
| 4818 | fval | |
| 4819 | fe | |
| 4820 | fw | |
| 4821 | fs | |
| 4822 | fmod) | |
| 4823 | #((top) | |
| 4824 | (top) | |
| 4825 | (top) | |
| 4826 | (top) | |
| 4827 | (top) | |
| 4828 | (top)) | |
| 4829 | #("i1807" | |
| 4830 | "i1808" | |
| 4831 | "i1809" | |
| 4832 | "i1810" | |
| 4833 | "i1811" | |
| 4834 | "i1812")) | |
| 4835 | #(ribcage () () ()) | |
| 4836 | #(ribcage | |
| 4837 | #(first) | |
| 4838 | #((top)) | |
| 4839 | #("i1799")) | |
| 4840 | #(ribcage () () ()) | |
| 4841 | #(ribcage () () ()) | |
| 4842 | #(ribcage () () ()) | |
| 4843 | #(ribcage | |
| 4844 | #(e | |
| 4845 | r | |
| 4846 | w | |
| 4847 | s | |
| 4848 | rib | |
| 4849 | mod | |
| 4850 | for-car?) | |
| 4851 | #((top) | |
| 4852 | (top) | |
| 4853 | (top) | |
| 4854 | (top) | |
| 4855 | (top) | |
| 4856 | (top) | |
| 4857 | (top)) | |
| 4858 | #("i1771" | |
| 4859 | "i1772" | |
| 4860 | "i1773" | |
| 4861 | "i1774" | |
| 4862 | "i1775" | |
| 4863 | "i1776" | |
| 4864 | "i1777")) | |
| 4865 | #(ribcage | |
| 4866 | (lambda-var-list | |
| 4867 | gen-var | |
| 4868 | strip | |
| 4869 | chi-lambda-case | |
| 4870 | lambda*-formals | |
| 4871 | chi-simple-lambda | |
| 4872 | lambda-formals | |
| 4873 | ellipsis? | |
| 4874 | chi-void | |
| 4875 | eval-local-transformer | |
| 4876 | chi-local-syntax | |
| 4877 | chi-body | |
| 4878 | chi-macro | |
| 4879 | chi-application | |
| 4880 | chi-expr | |
| 4881 | chi | |
| 4882 | syntax-type | |
| 4883 | chi-when-list | |
| 4884 | chi-install-global | |
| 4885 | chi-top-sequence | |
| 4886 | chi-sequence | |
| 4887 | source-wrap | |
| 4888 | wrap | |
| 4889 | bound-id-member? | |
| 4890 | distinct-bound-ids? | |
| 4891 | valid-bound-ids? | |
| 4892 | bound-id=? | |
| 4893 | free-id=? | |
| 4894 | id-var-name | |
| 4895 | same-marks? | |
| 4896 | join-marks | |
| 4897 | join-wraps | |
| 4898 | smart-append | |
| 4899 | make-binding-wrap | |
| 4900 | extend-ribcage! | |
| 4901 | make-empty-ribcage | |
| 4902 | new-mark | |
| 4903 | anti-mark | |
| 4904 | the-anti-mark | |
| 4905 | top-marked? | |
| 4906 | top-wrap | |
| 4907 | empty-wrap | |
| 4908 | set-ribcage-labels! | |
| 4909 | set-ribcage-marks! | |
| 4910 | set-ribcage-symnames! | |
| 4911 | ribcage-labels | |
| 4912 | ribcage-marks | |
| 4913 | ribcage-symnames | |
| 4914 | ribcage? | |
| 4915 | make-ribcage | |
| 4916 | gen-labels | |
| 4917 | gen-label | |
| 4918 | make-rename | |
| 4919 | rename-marks | |
| 4920 | rename-new | |
| 4921 | rename-old | |
| 4922 | subst-rename? | |
| 4923 | wrap-subst | |
| 4924 | wrap-marks | |
| 4925 | make-wrap | |
| 4926 | id-sym-name&marks | |
| 4927 | id-sym-name | |
| 4928 | id? | |
| 4929 | nonsymbol-id? | |
| 4930 | global-extend | |
| 4931 | lookup | |
| 4932 | macros-only-env | |
| 4933 | extend-var-env | |
| 4934 | extend-env | |
| 4935 | null-env | |
| 4936 | binding-value | |
| 4937 | binding-type | |
| 4938 | make-binding | |
| 4939 | arg-check | |
| 4940 | source-annotation | |
| 4941 | no-source | |
| 4942 | set-syntax-object-module! | |
| 4943 | set-syntax-object-wrap! | |
| 4944 | set-syntax-object-expression! | |
| 4945 | syntax-object-module | |
| 4946 | syntax-object-wrap | |
| 4947 | syntax-object-expression | |
| 4948 | syntax-object? | |
| 4949 | make-syntax-object | |
| 4950 | build-lexical-var | |
| 4951 | build-letrec | |
| 4952 | build-named-let | |
| 4953 | build-let | |
| 4954 | build-sequence | |
| 4955 | build-data | |
| 4956 | build-primref | |
| 4957 | build-lambda-case | |
| 4958 | build-case-lambda | |
| 4959 | build-simple-lambda | |
| 4960 | build-global-definition | |
| 4961 | build-global-assignment | |
| 4962 | build-global-reference | |
| 4963 | analyze-variable | |
| 4964 | build-lexical-assignment | |
| 4965 | build-lexical-reference | |
| 4966 | build-dynlet | |
| 4967 | build-conditional | |
| 4968 | build-application | |
| 4969 | build-void | |
| 4970 | maybe-name-value! | |
| 4971 | decorate-source | |
| 4972 | get-global-definition-hook | |
| 4973 | put-global-definition-hook | |
| 4974 | gensym-hook | |
| 4975 | local-eval-hook | |
| 4976 | top-level-eval-hook | |
| 4977 | fx< | |
| 4978 | fx= | |
| 4979 | fx- | |
| 4980 | fx+ | |
| 4981 | set-lambda-meta! | |
| 4982 | lambda-meta | |
| 4983 | lambda? | |
| 4984 | make-dynlet | |
| 4985 | make-letrec | |
| 4986 | make-let | |
| 4987 | make-lambda-case | |
| 4988 | make-lambda | |
| 4989 | make-sequence | |
| 4990 | make-application | |
| 4991 | make-conditional | |
| 4992 | make-toplevel-define | |
| 4993 | make-toplevel-set | |
| 4994 | make-toplevel-ref | |
| 4995 | make-module-set | |
| 4996 | make-module-ref | |
| 4997 | make-lexical-set | |
| 4998 | make-lexical-ref | |
| 4999 | make-primitive-ref | |
| 5000 | make-const | |
| 5001 | make-void) | |
| 5002 | ((top) | |
| 5003 | (top) | |
| 5004 | (top) | |
| 5005 | (top) | |
| 5006 | (top) | |
| 5007 | (top) | |
| 5008 | (top) | |
| 5009 | (top) | |
| 5010 | (top) | |
| 5011 | (top) | |
| 5012 | (top) | |
| 5013 | (top) | |
| 5014 | (top) | |
| 5015 | (top) | |
| 5016 | (top) | |
| 5017 | (top) | |
| 5018 | (top) | |
| 5019 | (top) | |
| 5020 | (top) | |
| 5021 | (top) | |
| 5022 | (top) | |
| 5023 | (top) | |
| 5024 | (top) | |
| 5025 | (top) | |
| 5026 | (top) | |
| 5027 | (top) | |
| 5028 | (top) | |
| 5029 | (top) | |
| 5030 | (top) | |
| 5031 | (top) | |
| 5032 | (top) | |
| 5033 | (top) | |
| 5034 | (top) | |
| 5035 | (top) | |
| 5036 | (top) | |
| 5037 | (top) | |
| 5038 | (top) | |
| 5039 | (top) | |
| 5040 | (top) | |
| 5041 | (top) | |
| 5042 | (top) | |
| 5043 | (top) | |
| 5044 | (top) | |
| 5045 | (top) | |
| 5046 | (top) | |
| 5047 | (top) | |
| 5048 | (top) | |
| 5049 | (top) | |
| 5050 | (top) | |
| 5051 | (top) | |
| 5052 | (top) | |
| 5053 | (top) | |
| 5054 | (top) | |
| 5055 | (top) | |
| 5056 | (top) | |
| 5057 | (top) | |
| 5058 | (top) | |
| 5059 | (top) | |
| 5060 | (top) | |
| 5061 | (top) | |
| 5062 | (top) | |
| 5063 | (top) | |
| 5064 | (top) | |
| 5065 | (top) | |
| 5066 | (top) | |
| 5067 | (top) | |
| 5068 | (top) | |
| 5069 | (top) | |
| 5070 | (top) | |
| 5071 | (top) | |
| 5072 | (top) | |
| 5073 | (top) | |
| 5074 | (top) | |
| 5075 | (top) | |
| 5076 | (top) | |
| 5077 | (top) | |
| 5078 | (top) | |
| 5079 | (top) | |
| 5080 | (top) | |
| 5081 | (top) | |
| 5082 | (top) | |
| 5083 | (top) | |
| 5084 | (top) | |
| 5085 | (top) | |
| 5086 | (top) | |
| 5087 | (top) | |
| 5088 | (top) | |
| 5089 | (top) | |
| 5090 | (top) | |
| 5091 | (top) | |
| 5092 | (top) | |
| 5093 | (top) | |
| 5094 | (top) | |
| 5095 | (top) | |
| 5096 | (top) | |
| 5097 | (top) | |
| 5098 | (top) | |
| 5099 | (top) | |
| 5100 | (top) | |
| 5101 | (top) | |
| 5102 | (top) | |
| 5103 | (top) | |
| 5104 | (top) | |
| 5105 | (top) | |
| 5106 | (top) | |
| 5107 | (top) | |
| 5108 | (top) | |
| 5109 | (top) | |
| 5110 | (top) | |
| 5111 | (top) | |
| 5112 | (top) | |
| 5113 | (top) | |
| 5114 | (top) | |
| 5115 | (top) | |
| 5116 | (top) | |
| 5117 | (top) | |
| 5118 | (top) | |
| 5119 | (top) | |
| 5120 | (top) | |
| 5121 | (top) | |
| 5122 | (top) | |
| 5123 | (top) | |
| 5124 | (top) | |
| 5125 | (top) | |
| 5126 | (top) | |
| 5127 | (top) | |
| 5128 | (top) | |
| 5129 | (top) | |
| 5130 | (top) | |
| 5131 | (top) | |
| 5132 | (top) | |
| 5133 | (top) | |
| 5134 | (top) | |
| 5135 | (top) | |
| 5136 | (top) | |
| 5137 | (top)) | |
| 5138 | ("i466" | |
| 5139 | "i464" | |
| 5140 | "i462" | |
| 5141 | "i460" | |
| 5142 | "i458" | |
| 5143 | "i456" | |
| 5144 | "i454" | |
| 5145 | "i452" | |
| 5146 | "i450" | |
| 5147 | "i448" | |
| 5148 | "i446" | |
| 5149 | "i444" | |
| 5150 | "i442" | |
| 5151 | "i440" | |
| 5152 | "i438" | |
| 5153 | "i436" | |
| 5154 | "i434" | |
| 5155 | "i432" | |
| 5156 | "i430" | |
| 5157 | "i428" | |
| 5158 | "i426" | |
| 5159 | "i424" | |
| 5160 | "i422" | |
| 5161 | "i420" | |
| 5162 | "i418" | |
| 5163 | "i416" | |
| 5164 | "i414" | |
| 5165 | "i412" | |
| 5166 | "i410" | |
| 5167 | "i408" | |
| 5168 | "i406" | |
| 5169 | "i404" | |
| 5170 | "i402" | |
| 5171 | "i400" | |
| 5172 | "i398" | |
| 5173 | "i397" | |
| 5174 | "i395" | |
| 5175 | "i392" | |
| 5176 | "i391" | |
| 5177 | "i390" | |
| 5178 | "i388" | |
| 5179 | "i387" | |
| 5180 | "i385" | |
| 5181 | "i383" | |
| 5182 | "i381" | |
| 5183 | "i379" | |
| 5184 | "i377" | |
| 5185 | "i375" | |
| 5186 | "i373" | |
| 5187 | "i371" | |
| 5188 | "i368" | |
| 5189 | "i366" | |
| 5190 | "i365" | |
| 5191 | "i363" | |
| 5192 | "i361" | |
| 5193 | "i359" | |
| 5194 | "i357" | |
| 5195 | "i356" | |
| 5196 | "i355" | |
| 5197 | "i354" | |
| 5198 | "i352" | |
| 5199 | "i351" | |
| 5200 | "i348" | |
| 5201 | "i346" | |
| 5202 | "i344" | |
| 5203 | "i342" | |
| 5204 | "i340" | |
| 5205 | "i338" | |
| 5206 | "i336" | |
| 5207 | "i335" | |
| 5208 | "i334" | |
| 5209 | "i332" | |
| 5210 | "i330" | |
| 5211 | "i329" | |
| 5212 | "i326" | |
| 5213 | "i325" | |
| 5214 | "i323" | |
| 5215 | "i321" | |
| 5216 | "i319" | |
| 5217 | "i317" | |
| 5218 | "i315" | |
| 5219 | "i313" | |
| 5220 | "i311" | |
| 5221 | "i309" | |
| 5222 | "i307" | |
| 5223 | "i304" | |
| 5224 | "i302" | |
| 5225 | "i300" | |
| 5226 | "i298" | |
| 5227 | "i296" | |
| 5228 | "i294" | |
| 5229 | "i292" | |
| 5230 | "i290" | |
| 5231 | "i288" | |
| 5232 | "i286" | |
| 5233 | "i284" | |
| 5234 | "i282" | |
| 5235 | "i280" | |
| 5236 | "i278" | |
| 5237 | "i276" | |
| 5238 | "i274" | |
| 5239 | "i272" | |
| 5240 | "i270" | |
| 5241 | "i268" | |
| 5242 | "i266" | |
| 5243 | "i264" | |
| 5244 | "i262" | |
| 5245 | "i260" | |
| 5246 | "i259" | |
| 5247 | "i256" | |
| 5248 | "i254" | |
| 5249 | "i253" | |
| 5250 | "i252" | |
| 5251 | "i251" | |
| 5252 | "i250" | |
| 5253 | "i248" | |
| 5254 | "i246" | |
| 5255 | "i244" | |
| 5256 | "i241" | |
| 5257 | "i239" | |
| 5258 | "i237" | |
| 5259 | "i235" | |
| 5260 | "i233" | |
| 5261 | "i231" | |
| 5262 | "i229" | |
| 5263 | "i227" | |
| 5264 | "i225" | |
| 5265 | "i223" | |
| 5266 | "i221" | |
| 5267 | "i219" | |
| 5268 | "i217" | |
| 5269 | "i215" | |
| 5270 | "i213" | |
| 5271 | "i211" | |
| 5272 | "i209" | |
| 5273 | "i207")) | |
| 5274 | #(ribcage | |
| 5275 | (define-structure | |
| 5276 | define-expansion-accessors | |
| 5277 | define-expansion-constructors) | |
| 5278 | ((top) (top) (top)) | |
| 5279 | ("i45" | |
| 5280 | "i44" | |
| 5281 | "i43"))) | |
| 5282 | (hygiene guile))) | |
| 5283 | '(()) | |
| 5284 | #{s 1767}# | |
| 5285 | #{mod 1769}#)) | |
| 5286 | #{tmp 1864}#) | |
| 5287 | (syntax-violation | |
| 5288 | #f | |
| 5289 | "source expression failed to match any pattern" | |
| 5290 | #{e 1764}#))))))) | |
| 5291 | (if (memv #{ftype 1801}# '(define-syntax)) | |
| 5292 | (let ((#{tmp 1872}# | |
| 5293 | ($sc-dispatch | |
| 5294 | #{e 1764}# | |
| 5295 | '(_ any any)))) | |
| 5296 | (if (if #{tmp 1872}# | |
| 5297 | (@apply | |
| 5298 | (lambda (#{name 1875}# | |
| 5299 | #{val 1876}#) | |
| 5300 | (#{id? 349}# #{name 1875}#)) | |
| 5301 | #{tmp 1872}#) | |
| 5302 | #f) | |
| 5303 | (@apply | |
| 5304 | (lambda (#{name 1879}# #{val 1880}#) | |
| 5305 | (values | |
| 5306 | 'define-syntax-form | |
| 5307 | #{name 1879}# | |
| 5308 | #{val 1880}# | |
| 5309 | #{w 1766}# | |
| 5310 | #{s 1767}# | |
| 5311 | #{mod 1769}#)) | |
| 5312 | #{tmp 1872}#) | |
| 5313 | (syntax-violation | |
| df40b969 | 5314 | #f |
| 014de9e2 AW |
5315 | "source expression failed to match any pattern" |
| 5316 | #{e 1764}#))) | |
| 5317 | (values | |
| 5318 | 'call | |
| 5319 | #f | |
| 5320 | #{e 1764}# | |
| 5321 | #{w 1766}# | |
| 5322 | #{s 1767}# | |
| 5323 | #{mod 1769}#)))))))))))))) | |
| 5324 | (if (#{syntax-object? 312}# #{e 1764}#) | |
| 5325 | (#{syntax-type 435}# | |
| 5326 | (#{syntax-object-expression 314}# #{e 1764}#) | |
| 5327 | #{r 1765}# | |
| 5328 | (#{join-wraps 405}# | |
| 5329 | #{w 1766}# | |
| 5330 | (#{syntax-object-wrap 316}# #{e 1764}#)) | |
| 5331 | (let ((#{t 1886}# | |
| 5332 | (#{source-annotation 327}# #{e 1764}#))) | |
| 5333 | (if #{t 1886}# #{t 1886}# #{s 1767}#)) | |
| 5334 | #{rib 1768}# | |
| 5335 | (let ((#{t 1890}# | |
| 5336 | (#{syntax-object-module 318}# #{e 1764}#))) | |
| 5337 | (if #{t 1890}# #{t 1890}# #{mod 1769}#)) | |
| 5338 | #{for-car? 1770}#) | |
| 5339 | (if (self-evaluating? #{e 1764}#) | |
| 5340 | (values | |
| 5341 | 'constant | |
| 5342 | #f | |
| 5343 | #{e 1764}# | |
| 5344 | #{w 1766}# | |
| 5345 | #{s 1767}# | |
| 5346 | #{mod 1769}#) | |
| 5347 | (values | |
| 5348 | 'other | |
| 5349 | #f | |
| 5350 | #{e 1764}# | |
| 5351 | #{w 1766}# | |
| 5352 | #{s 1767}# | |
| 5353 | #{mod 1769}#))))))) | |
| 5354 | (#{chi 437}# | |
| 5355 | (lambda (#{e 1895}# #{r 1896}# #{w 1897}# #{mod 1898}#) | |
| 5356 | (call-with-values | |
| 5357 | (lambda () | |
| 5358 | (#{syntax-type 435}# | |
| 5359 | #{e 1895}# | |
| 5360 | #{r 1896}# | |
| 5361 | #{w 1897}# | |
| 5362 | (#{source-annotation 327}# #{e 1895}#) | |
| 5363 | #f | |
| 5364 | #{mod 1898}# | |
| 5365 | #f)) | |
| 5366 | (lambda (#{type 1903}# | |
| 5367 | #{value 1904}# | |
| 5368 | #{e 1905}# | |
| 5369 | #{w 1906}# | |
| 5370 | #{s 1907}# | |
| 5371 | #{mod 1908}#) | |
| 5372 | (#{chi-expr 439}# | |
| 5373 | #{type 1903}# | |
| 5374 | #{value 1904}# | |
| 5375 | #{e 1905}# | |
| 5376 | #{r 1896}# | |
| 5377 | #{w 1906}# | |
| 5378 | #{s 1907}# | |
| 5379 | #{mod 1908}#))))) | |
| 5380 | (#{chi-expr 439}# | |
| 5381 | (lambda (#{type 1915}# | |
| 5382 | #{value 1916}# | |
| 5383 | #{e 1917}# | |
| 5384 | #{r 1918}# | |
| 5385 | #{w 1919}# | |
| 5386 | #{s 1920}# | |
| 5387 | #{mod 1921}#) | |
| 5388 | (if (memv #{type 1915}# '(lexical)) | |
| 5389 | (#{build-lexical-reference 277}# | |
| 5390 | 'value | |
| 5391 | #{s 1920}# | |
| 5392 | #{e 1917}# | |
| 5393 | #{value 1916}#) | |
| 5394 | (if (memv #{type 1915}# '(core core-form)) | |
| 5395 | (#{value 1916}# | |
| 5396 | #{e 1917}# | |
| 5397 | #{r 1918}# | |
| 5398 | #{w 1919}# | |
| 5399 | #{s 1920}# | |
| 5400 | #{mod 1921}#) | |
| 5401 | (if (memv #{type 1915}# '(module-ref)) | |
| 5402 | (call-with-values | |
| 5403 | (lambda () | |
| 5404 | (#{value 1916}# #{e 1917}# #{r 1918}# #{w 1919}#)) | |
| 5405 | (lambda (#{e 1932}# | |
| 5406 | #{r 1933}# | |
| 5407 | #{w 1934}# | |
| 5408 | #{s 1935}# | |
| 5409 | #{mod 1936}#) | |
| 5410 | (#{chi 437}# | |
| 5411 | #{e 1932}# | |
| 5412 | #{r 1933}# | |
| 5413 | #{w 1934}# | |
| 5414 | #{mod 1936}#))) | |
| 5415 | (if (memv #{type 1915}# '(lexical-call)) | |
| 5416 | (#{chi-application 441}# | |
| 5417 | (let ((#{id 1944}# (car #{e 1917}#))) | |
| 5418 | (#{build-lexical-reference 277}# | |
| 5419 | 'fun | |
| 5420 | (#{source-annotation 327}# #{id 1944}#) | |
| 5421 | (if (#{syntax-object? 312}# #{id 1944}#) | |
| 5422 | (syntax->datum #{id 1944}#) | |
| 5423 | #{id 1944}#) | |
| 5424 | #{value 1916}#)) | |
| 5425 | #{e 1917}# | |
| 5426 | #{r 1918}# | |
| 5427 | #{w 1919}# | |
| 5428 | #{s 1920}# | |
| 5429 | #{mod 1921}#) | |
| 5430 | (if (memv #{type 1915}# '(global-call)) | |
| 5431 | (#{chi-application 441}# | |
| 5432 | (#{build-global-reference 283}# | |
| 5433 | (#{source-annotation 327}# (car #{e 1917}#)) | |
| 5434 | (if (#{syntax-object? 312}# #{value 1916}#) | |
| 5435 | (#{syntax-object-expression 314}# #{value 1916}#) | |
| 5436 | #{value 1916}#) | |
| 5437 | (if (#{syntax-object? 312}# #{value 1916}#) | |
| 5438 | (#{syntax-object-module 318}# #{value 1916}#) | |
| 5439 | #{mod 1921}#)) | |
| 5440 | #{e 1917}# | |
| 5441 | #{r 1918}# | |
| 5442 | #{w 1919}# | |
| 5443 | #{s 1920}# | |
| 5444 | #{mod 1921}#) | |
| 5445 | (if (memv #{type 1915}# '(constant)) | |
| 5446 | (#{build-data 297}# | |
| 5447 | #{s 1920}# | |
| 5448 | (#{strip 463}# | |
| 5449 | (#{source-wrap 425}# | |
| 5450 | #{e 1917}# | |
| 5451 | #{w 1919}# | |
| 5452 | #{s 1920}# | |
| 5453 | #{mod 1921}#) | |
| 5454 | '(()))) | |
| 5455 | (if (memv #{type 1915}# '(global)) | |
| 5456 | (#{build-global-reference 283}# | |
| 5457 | #{s 1920}# | |
| 5458 | #{value 1916}# | |
| 5459 | #{mod 1921}#) | |
| 5460 | (if (memv #{type 1915}# '(call)) | |
| 5461 | (#{chi-application 441}# | |
| 5462 | (#{chi 437}# | |
| 5463 | (car #{e 1917}#) | |
| 5464 | #{r 1918}# | |
| 5465 | #{w 1919}# | |
| 5466 | #{mod 1921}#) | |
| 5467 | #{e 1917}# | |
| 5468 | #{r 1918}# | |
| 5469 | #{w 1919}# | |
| 5470 | #{s 1920}# | |
| 5471 | #{mod 1921}#) | |
| 5472 | (if (memv #{type 1915}# '(begin-form)) | |
| 5473 | (let ((#{tmp 1952}# | |
| 5474 | ($sc-dispatch | |
| 5475 | #{e 1917}# | |
| 5476 | '(_ any . each-any)))) | |
| 5477 | (if #{tmp 1952}# | |
| 5478 | (@apply | |
| 5479 | (lambda (#{e1 1955}# #{e2 1956}#) | |
| 5480 | (#{chi-sequence 427}# | |
| 5481 | (cons #{e1 1955}# #{e2 1956}#) | |
| 5482 | #{r 1918}# | |
| 5483 | #{w 1919}# | |
| 5484 | #{s 1920}# | |
| 5485 | #{mod 1921}#)) | |
| 5486 | #{tmp 1952}#) | |
| 5487 | (syntax-violation | |
| 5488 | #f | |
| 5489 | "source expression failed to match any pattern" | |
| 5490 | #{e 1917}#))) | |
| 5491 | (if (memv #{type 1915}# '(local-syntax-form)) | |
| 5492 | (#{chi-local-syntax 447}# | |
| 5493 | #{value 1916}# | |
| 5494 | #{e 1917}# | |
| 5495 | #{r 1918}# | |
| 5496 | #{w 1919}# | |
| 5497 | #{s 1920}# | |
| 5498 | #{mod 1921}# | |
| 5499 | #{chi-sequence 427}#) | |
| 5500 | (if (memv #{type 1915}# '(eval-when-form)) | |
| 5501 | (let ((#{tmp 1961}# | |
| 5502 | ($sc-dispatch | |
| 5503 | #{e 1917}# | |
| 5504 | '(_ each-any any . each-any)))) | |
| 5505 | (if #{tmp 1961}# | |
| 5506 | (@apply | |
| 5507 | (lambda (#{x 1965}# #{e1 1966}# #{e2 1967}#) | |
| 5508 | (let ((#{when-list 1969}# | |
| 5509 | (#{chi-when-list 433}# | |
| 5510 | #{e 1917}# | |
| 5511 | #{x 1965}# | |
| 5512 | #{w 1919}#))) | |
| 5513 | (if (memq 'eval #{when-list 1969}#) | |
| 5514 | (#{chi-sequence 427}# | |
| 5515 | (cons #{e1 1966}# #{e2 1967}#) | |
| 5516 | #{r 1918}# | |
| 5517 | #{w 1919}# | |
| 5518 | #{s 1920}# | |
| 5519 | #{mod 1921}#) | |
| 5520 | (#{chi-void 451}#)))) | |
| 5521 | #{tmp 1961}#) | |
| 5522 | (syntax-violation | |
| 5523 | #f | |
| 5524 | "source expression failed to match any pattern" | |
| 5525 | #{e 1917}#))) | |
| 5526 | (if (memv #{type 1915}# | |
| 5527 | '(define-form define-syntax-form)) | |
| 5528 | (syntax-violation | |
| 5529 | #f | |
| 5530 | "definition in expression context" | |
| 5531 | #{e 1917}# | |
| 5532 | (#{wrap 423}# | |
| 5533 | #{value 1916}# | |
| 5534 | #{w 1919}# | |
| 5535 | #{mod 1921}#)) | |
| 5536 | (if (memv #{type 1915}# '(syntax)) | |
| 5537 | (syntax-violation | |
| 5538 | #f | |
| 5539 | "reference to pattern variable outside syntax form" | |
| 5540 | (#{source-wrap 425}# | |
| 5541 | #{e 1917}# | |
| 5542 | #{w 1919}# | |
| 5543 | #{s 1920}# | |
| 5544 | #{mod 1921}#)) | |
| 5545 | (if (memv #{type 1915}# '(displaced-lexical)) | |
| 5546 | (syntax-violation | |
| 5547 | #f | |
| 5548 | "reference to identifier outside its scope" | |
| 5549 | (#{source-wrap 425}# | |
| 5550 | #{e 1917}# | |
| 5551 | #{w 1919}# | |
| 5552 | #{s 1920}# | |
| 5553 | #{mod 1921}#)) | |
| 5554 | (syntax-violation | |
| 5555 | #f | |
| 5556 | "unexpected syntax" | |
| 5557 | (#{source-wrap 425}# | |
| 5558 | #{e 1917}# | |
| 5559 | #{w 1919}# | |
| 5560 | #{s 1920}# | |
| 5561 | #{mod 1921}#)))))))))))))))))) | |
| 5562 | (#{chi-application 441}# | |
| 5563 | (lambda (#{x 1976}# | |
| 5564 | #{e 1977}# | |
| 5565 | #{r 1978}# | |
| 5566 | #{w 1979}# | |
| 5567 | #{s 1980}# | |
| 5568 | #{mod 1981}#) | |
| 5569 | (let ((#{tmp 1989}# | |
| 5570 | ($sc-dispatch #{e 1977}# '(any . each-any)))) | |
| 5571 | (if #{tmp 1989}# | |
| 5572 | (@apply | |
| 5573 | (lambda (#{e0 1992}# #{e1 1993}#) | |
| 5574 | (#{build-application 271}# | |
| 5575 | #{s 1980}# | |
| 5576 | #{x 1976}# | |
| 5577 | (map (lambda (#{e 1994}#) | |
| 5578 | (#{chi 437}# | |
| 5579 | #{e 1994}# | |
| 5580 | #{r 1978}# | |
| 5581 | #{w 1979}# | |
| 5582 | #{mod 1981}#)) | |
| 5583 | #{e1 1993}#))) | |
| 5584 | #{tmp 1989}#) | |
| 5585 | (syntax-violation | |
| 5586 | #f | |
| 5587 | "source expression failed to match any pattern" | |
| 5588 | #{e 1977}#))))) | |
| 5589 | (#{chi-macro 443}# | |
| 5590 | (lambda (#{p 1997}# | |
| 5591 | #{e 1998}# | |
| 5592 | #{r 1999}# | |
| 5593 | #{w 2000}# | |
| 5594 | #{s 2001}# | |
| 5595 | #{rib 2002}# | |
| 5596 | #{mod 2003}#) | |
| 5597 | (letrec* | |
| 5598 | ((#{rebuild-macro-output 2012}# | |
| 5599 | (lambda (#{x 2013}# #{m 2014}#) | |
| 5600 | (if (pair? #{x 2013}#) | |
| 5601 | (#{decorate-source 265}# | |
| 5602 | (cons (#{rebuild-macro-output 2012}# | |
| 5603 | (car #{x 2013}#) | |
| 5604 | #{m 2014}#) | |
| 5605 | (#{rebuild-macro-output 2012}# | |
| 5606 | (cdr #{x 2013}#) | |
| 5607 | #{m 2014}#)) | |
| 5608 | #{s 2001}#) | |
| 5609 | (if (#{syntax-object? 312}# #{x 2013}#) | |
| 5610 | (let ((#{w 2022}# | |
| 5611 | (#{syntax-object-wrap 316}# #{x 2013}#))) | |
| 5612 | (let ((#{ms 2025}# (car #{w 2022}#)) | |
| 5613 | (#{s 2026}# (cdr #{w 2022}#))) | |
| 5614 | (if (if (pair? #{ms 2025}#) | |
| 5615 | (eq? (car #{ms 2025}#) #f) | |
| 5616 | #f) | |
| 5617 | (#{make-syntax-object 310}# | |
| 5618 | (#{syntax-object-expression 314}# #{x 2013}#) | |
| 5619 | (cons (cdr #{ms 2025}#) | |
| 5620 | (if #{rib 2002}# | |
| 5621 | (cons #{rib 2002}# (cdr #{s 2026}#)) | |
| 5622 | (cdr #{s 2026}#))) | |
| 5623 | (#{syntax-object-module 318}# #{x 2013}#)) | |
| 5624 | (#{make-syntax-object 310}# | |
| 5625 | (#{decorate-source 265}# | |
| 5626 | (#{syntax-object-expression 314}# #{x 2013}#) | |
| 5627 | #{s 2026}#) | |
| 5628 | (cons (cons #{m 2014}# #{ms 2025}#) | |
| 5629 | (if #{rib 2002}# | |
| 5630 | (cons #{rib 2002}# (cons 'shift #{s 2026}#)) | |
| 5631 | (cons 'shift #{s 2026}#))) | |
| 5632 | (#{syntax-object-module 318}# #{x 2013}#))))) | |
| 5633 | (if (vector? #{x 2013}#) | |
| 5634 | (let ((#{n 2038}# (vector-length #{x 2013}#))) | |
| 5635 | (let ((#{v 2040}# | |
| 5636 | (#{decorate-source 265}# | |
| 5637 | (make-vector #{n 2038}#) | |
| 5638 | #{x 2013}#))) | |
| 5639 | (letrec* | |
| 5640 | ((#{loop 2043}# | |
| 5641 | (lambda (#{i 2044}#) | |
| 5642 | (if (= #{i 2044}# #{n 2038}#) | |
| 5643 | #{v 2040}# | |
| 5644 | (begin | |
| 5645 | (vector-set! | |
| 5646 | #{v 2040}# | |
| 5647 | #{i 2044}# | |
| 5648 | (#{rebuild-macro-output 2012}# | |
| 5649 | (vector-ref #{x 2013}# #{i 2044}#) | |
| 5650 | #{m 2014}#)) | |
| 5651 | (#{loop 2043}# (#{1+}# #{i 2044}#))))))) | |
| 5652 | (#{loop 2043}# 0)))) | |
| 5653 | (if (symbol? #{x 2013}#) | |
| 5654 | (syntax-violation | |
| 5655 | #f | |
| 5656 | "encountered raw symbol in macro output" | |
| 5657 | (#{source-wrap 425}# | |
| 5658 | #{e 1998}# | |
| 5659 | #{w 2000}# | |
| 5660 | (cdr #{w 2000}#) | |
| 5661 | #{mod 2003}#) | |
| 5662 | #{x 2013}#) | |
| 5663 | (#{decorate-source 265}# #{x 2013}# #{s 2001}#)))))))) | |
| 5664 | (#{rebuild-macro-output 2012}# | |
| 5665 | (#{p 1997}# | |
| 5666 | (#{source-wrap 425}# | |
| 5667 | #{e 1998}# | |
| 5668 | (#{anti-mark 393}# #{w 2000}#) | |
| 5669 | #{s 2001}# | |
| 5670 | #{mod 2003}#)) | |
| 5671 | (gensym "m"))))) | |
| 5672 | (#{chi-body 445}# | |
| 5673 | (lambda (#{body 2054}# | |
| 5674 | #{outer-form 2055}# | |
| 5675 | #{r 2056}# | |
| 5676 | #{w 2057}# | |
| 5677 | #{mod 2058}#) | |
| 5678 | (let ((#{r 2066}# | |
| 5679 | (cons '("placeholder" placeholder) #{r 2056}#))) | |
| 5680 | (let ((#{ribcage 2068}# | |
| 5681 | (#{make-ribcage 372}# '() '() '()))) | |
| 5682 | (let ((#{w 2071}# | |
| 5683 | (cons (car #{w 2057}#) | |
| 5684 | (cons #{ribcage 2068}# (cdr #{w 2057}#))))) | |
| 5685 | (letrec* | |
| 5686 | ((#{parse 2083}# | |
| 5687 | (lambda (#{body 2084}# | |
| 5688 | #{ids 2085}# | |
| 5689 | #{labels 2086}# | |
| 5690 | #{var-ids 2087}# | |
| 5691 | #{vars 2088}# | |
| 5692 | #{vals 2089}# | |
| 5693 | #{bindings 2090}#) | |
| 5694 | (if (null? #{body 2084}#) | |
| 5695 | (syntax-violation | |
| 5696 | #f | |
| 5697 | "no expressions in body" | |
| 5698 | #{outer-form 2055}#) | |
| 5699 | (let ((#{e 2095}# (cdr (car #{body 2084}#))) | |
| 5700 | (#{er 2096}# (car (car #{body 2084}#)))) | |
| 5701 | (call-with-values | |
| 5702 | (lambda () | |
| 5703 | (#{syntax-type 435}# | |
| 5704 | #{e 2095}# | |
| 5705 | #{er 2096}# | |
| 5706 | '(()) | |
| 5707 | (#{source-annotation 327}# #{er 2096}#) | |
| 5708 | #{ribcage 2068}# | |
| 5709 | #{mod 2058}# | |
| 5710 | #f)) | |
| 5711 | (lambda (#{type 2098}# | |
| 5712 | #{value 2099}# | |
| 5713 | #{e 2100}# | |
| 5714 | #{w 2101}# | |
| 5715 | #{s 2102}# | |
| 5716 | #{mod 2103}#) | |
| 5717 | (if (memv #{type 2098}# '(define-form)) | |
| 5718 | (let ((#{id 2113}# | |
| 5719 | (#{wrap 423}# | |
| 5720 | #{value 2099}# | |
| 5721 | #{w 2101}# | |
| 5722 | #{mod 2103}#)) | |
| 5723 | (#{label 2114}# (#{gen-label 367}#))) | |
| 5724 | (let ((#{var 2116}# | |
| 5725 | (#{gen-var 465}# #{id 2113}#))) | |
| 5726 | (begin | |
| 5727 | (#{extend-ribcage! 399}# | |
| 5728 | #{ribcage 2068}# | |
| 5729 | #{id 2113}# | |
| 5730 | #{label 2114}#) | |
| 5731 | (#{parse 2083}# | |
| 5732 | (cdr #{body 2084}#) | |
| 5733 | (cons #{id 2113}# #{ids 2085}#) | |
| 5734 | (cons #{label 2114}# #{labels 2086}#) | |
| 5735 | (cons #{id 2113}# #{var-ids 2087}#) | |
| 5736 | (cons #{var 2116}# #{vars 2088}#) | |
| 5737 | (cons (cons #{er 2096}# | |
| 5738 | (#{wrap 423}# | |
| 5739 | #{e 2100}# | |
| 5740 | #{w 2101}# | |
| 5741 | #{mod 2103}#)) | |
| 5742 | #{vals 2089}#) | |
| 5743 | (cons (cons 'lexical #{var 2116}#) | |
| 5744 | #{bindings 2090}#))))) | |
| 5745 | (if (memv #{type 2098}# '(define-syntax-form)) | |
| 5746 | (let ((#{id 2121}# | |
| 5747 | (#{wrap 423}# | |
| 5748 | #{value 2099}# | |
| 5749 | #{w 2101}# | |
| 5750 | #{mod 2103}#)) | |
| 5751 | (#{label 2122}# (#{gen-label 367}#))) | |
| 5752 | (begin | |
| 5753 | (#{extend-ribcage! 399}# | |
| 5754 | #{ribcage 2068}# | |
| 5755 | #{id 2121}# | |
| 5756 | #{label 2122}#) | |
| 5757 | (#{parse 2083}# | |
| 5758 | (cdr #{body 2084}#) | |
| 5759 | (cons #{id 2121}# #{ids 2085}#) | |
| 5760 | (cons #{label 2122}# #{labels 2086}#) | |
| 5761 | #{var-ids 2087}# | |
| 5762 | #{vars 2088}# | |
| 5763 | #{vals 2089}# | |
| 5764 | (cons (cons 'macro | |
| 5765 | (cons #{er 2096}# | |
| 5766 | (#{wrap 423}# | |
| 5767 | #{e 2100}# | |
| 5768 | #{w 2101}# | |
| 5769 | #{mod 2103}#))) | |
| 5770 | #{bindings 2090}#)))) | |
| 5771 | (if (memv #{type 2098}# '(begin-form)) | |
| 5772 | (let ((#{tmp 2126}# | |
| 5773 | ($sc-dispatch | |
| 5774 | #{e 2100}# | |
| 5775 | '(_ . each-any)))) | |
| 5776 | (if #{tmp 2126}# | |
| 5777 | (@apply | |
| 5778 | (lambda (#{e1 2128}#) | |
| 5779 | (#{parse 2083}# | |
| 5780 | (letrec* | |
| 5781 | ((#{f 2131}# | |
| 5782 | (lambda (#{forms 2132}#) | |
| 5783 | (if (null? #{forms 2132}#) | |
| 5784 | (cdr #{body 2084}#) | |
| 5785 | (cons (cons #{er 2096}# | |
| 5786 | (#{wrap 423}# | |
| 5787 | (car #{forms 2132}#) | |
| 5788 | #{w 2101}# | |
| 5789 | #{mod 2103}#)) | |
| 5790 | (#{f 2131}# | |
| 5791 | (cdr #{forms 2132}#))))))) | |
| 5792 | (#{f 2131}# #{e1 2128}#)) | |
| 5793 | #{ids 2085}# | |
| 5794 | #{labels 2086}# | |
| 5795 | #{var-ids 2087}# | |
| 5796 | #{vars 2088}# | |
| 5797 | #{vals 2089}# | |
| 5798 | #{bindings 2090}#)) | |
| 5799 | #{tmp 2126}#) | |
| 5800 | (syntax-violation | |
| 5801 | #f | |
| 5802 | "source expression failed to match any pattern" | |
| 5803 | #{e 2100}#))) | |
| 5804 | (if (memv #{type 2098}# '(local-syntax-form)) | |
| 5805 | (#{chi-local-syntax 447}# | |
| 5806 | #{value 2099}# | |
| 5807 | #{e 2100}# | |
| 5808 | #{er 2096}# | |
| 5809 | #{w 2101}# | |
| 5810 | #{s 2102}# | |
| 5811 | #{mod 2103}# | |
| 5812 | (lambda (#{forms 2135}# | |
| 5813 | #{er 2136}# | |
| 5814 | #{w 2137}# | |
| 5815 | #{s 2138}# | |
| 5816 | #{mod 2139}#) | |
| 5817 | (#{parse 2083}# | |
| 5818 | (letrec* | |
| 5819 | ((#{f 2147}# | |
| 5820 | (lambda (#{forms 2148}#) | |
| 5821 | (if (null? #{forms 2148}#) | |
| 5822 | (cdr #{body 2084}#) | |
| 5823 | (cons (cons #{er 2136}# | |
| 5824 | (#{wrap 423}# | |
| 5825 | (car #{forms 2148}#) | |
| 5826 | #{w 2137}# | |
| 5827 | #{mod 2139}#)) | |
| 5828 | (#{f 2147}# | |
| 5829 | (cdr #{forms 2148}#))))))) | |
| 5830 | (#{f 2147}# #{forms 2135}#)) | |
| 5831 | #{ids 2085}# | |
| 5832 | #{labels 2086}# | |
| 5833 | #{var-ids 2087}# | |
| 5834 | #{vars 2088}# | |
| 5835 | #{vals 2089}# | |
| 5836 | #{bindings 2090}#))) | |
| 5837 | (if (null? #{ids 2085}#) | |
| 5838 | (#{build-sequence 299}# | |
| 5839 | #f | |
| 5840 | (map (lambda (#{x 2151}#) | |
| 5841 | (#{chi 437}# | |
| 5842 | (cdr #{x 2151}#) | |
| 5843 | (car #{x 2151}#) | |
| 5844 | '(()) | |
| 5845 | #{mod 2103}#)) | |
| 5846 | (cons (cons #{er 2096}# | |
| 5847 | (#{source-wrap 425}# | |
| 5848 | #{e 2100}# | |
| 5849 | #{w 2101}# | |
| 5850 | #{s 2102}# | |
| 5851 | #{mod 2103}#)) | |
| 5852 | (cdr #{body 2084}#)))) | |
| 5853 | (begin | |
| 5854 | (if (not (#{valid-bound-ids? 417}# | |
| 5855 | #{ids 2085}#)) | |
| 5856 | (syntax-violation | |
| 5857 | #f | |
| 5858 | "invalid or duplicate identifier in definition" | |
| 5859 | #{outer-form 2055}#)) | |
| 5860 | (letrec* | |
| 5861 | ((#{loop 2158}# | |
| 5862 | (lambda (#{bs 2159}# | |
| 5863 | #{er-cache 2160}# | |
| 5864 | #{r-cache 2161}#) | |
| 5865 | (if (not (null? #{bs 2159}#)) | |
| 5866 | (let ((#{b 2164}# | |
| 5867 | (car #{bs 2159}#))) | |
| 5868 | (if (eq? (car #{b 2164}#) | |
| 5869 | 'macro) | |
| 5870 | (let ((#{er 2167}# | |
| 5871 | (car (cdr #{b 2164}#)))) | |
| 5872 | (let ((#{r-cache 2169}# | |
| 5873 | (if (eq? #{er 2167}# | |
| 5874 | #{er-cache 2160}#) | |
| 5875 | #{r-cache 2161}# | |
| 5876 | (#{macros-only-env 341}# | |
| 5877 | #{er 2167}#)))) | |
| 5878 | (begin | |
| 5879 | (set-cdr! | |
| 5880 | #{b 2164}# | |
| 5881 | (#{eval-local-transformer 449}# | |
| 5882 | (#{chi 437}# | |
| 5883 | (cdr (cdr #{b 2164}#)) | |
| 5884 | #{r-cache 2169}# | |
| 5885 | '(()) | |
| 5886 | #{mod 2103}#) | |
| 5887 | #{mod 2103}#)) | |
| 5888 | (#{loop 2158}# | |
| 5889 | (cdr #{bs 2159}#) | |
| 5890 | #{er 2167}# | |
| 5891 | #{r-cache 2169}#)))) | |
| 5892 | (#{loop 2158}# | |
| 5893 | (cdr #{bs 2159}#) | |
| 5894 | #{er-cache 2160}# | |
| 5895 | #{r-cache 2161}#))))))) | |
| 5896 | (#{loop 2158}# | |
| 5897 | #{bindings 2090}# | |
| 5898 | #f | |
| 5899 | #f)) | |
| 5900 | (set-cdr! | |
| 5901 | #{r 2066}# | |
| 5902 | (#{extend-env 337}# | |
| 5903 | #{labels 2086}# | |
| 5904 | #{bindings 2090}# | |
| 5905 | (cdr #{r 2066}#))) | |
| 5906 | (#{build-letrec 305}# | |
| 5907 | #f | |
| 5908 | #t | |
| 5909 | (reverse | |
| 5910 | (map syntax->datum | |
| 5911 | #{var-ids 2087}#)) | |
| 5912 | (reverse #{vars 2088}#) | |
| 5913 | (map (lambda (#{x 2172}#) | |
| 5914 | (#{chi 437}# | |
| 5915 | (cdr #{x 2172}#) | |
| 5916 | (car #{x 2172}#) | |
| 5917 | '(()) | |
| 5918 | #{mod 2103}#)) | |
| 5919 | (reverse #{vals 2089}#)) | |
| 5920 | (#{build-sequence 299}# | |
| 5921 | #f | |
| 5922 | (map (lambda (#{x 2176}#) | |
| 5923 | (#{chi 437}# | |
| 5924 | (cdr #{x 2176}#) | |
| 5925 | (car #{x 2176}#) | |
| 5926 | '(()) | |
| 5927 | #{mod 2103}#)) | |
| 5928 | (cons (cons #{er 2096}# | |
| 5929 | (#{source-wrap 425}# | |
| 5930 | #{e 2100}# | |
| 5931 | #{w 2101}# | |
| 5932 | #{s 2102}# | |
| 5933 | #{mod 2103}#)) | |
| 5934 | (cdr #{body 2084}#)))))))))))))))))) | |
| 5935 | (#{parse 2083}# | |
| 5936 | (map (lambda (#{x 2091}#) | |
| 5937 | (cons #{r 2066}# | |
| 5938 | (#{wrap 423}# | |
| 5939 | #{x 2091}# | |
| 5940 | #{w 2071}# | |
| 5941 | #{mod 2058}#))) | |
| 5942 | #{body 2054}#) | |
| 5943 | '() | |
| 5944 | '() | |
| 5945 | '() | |
| 5946 | '() | |
| 5947 | '() | |
| 5948 | '()))))))) | |
| 5949 | (#{chi-local-syntax 447}# | |
| 5950 | (lambda (#{rec? 2179}# | |
| 5951 | #{e 2180}# | |
| 5952 | #{r 2181}# | |
| 5953 | #{w 2182}# | |
| 5954 | #{s 2183}# | |
| 5955 | #{mod 2184}# | |
| 5956 | #{k 2185}#) | |
| 5957 | (let ((#{tmp 2194}# | |
| 5958 | ($sc-dispatch | |
| 5959 | #{e 2180}# | |
| 5960 | '(_ #(each (any any)) any . each-any)))) | |
| 5961 | (if #{tmp 2194}# | |
| 5962 | (@apply | |
| 5963 | (lambda (#{id 2199}# | |
| 5964 | #{val 2200}# | |
| 5965 | #{e1 2201}# | |
| 5966 | #{e2 2202}#) | |
| 5967 | (if (not (#{valid-bound-ids? 417}# #{id 2199}#)) | |
| 5968 | (syntax-violation | |
| 5969 | #f | |
| 5970 | "duplicate bound keyword" | |
| 5971 | #{e 2180}#) | |
| 5972 | (let ((#{labels 2207}# | |
| 5973 | (#{gen-labels 369}# #{id 2199}#))) | |
| 5974 | (let ((#{new-w 2209}# | |
| 5975 | (#{make-binding-wrap 401}# | |
| 5976 | #{id 2199}# | |
| 5977 | #{labels 2207}# | |
| 5978 | #{w 2182}#))) | |
| 5979 | (#{k 2185}# | |
| 5980 | (cons #{e1 2201}# #{e2 2202}#) | |
| 5981 | (#{extend-env 337}# | |
| 5982 | #{labels 2207}# | |
| 5983 | (let ((#{trans-r 2214}# | |
| 5984 | (#{macros-only-env 341}# #{r 2181}#))) | |
| 5985 | (begin | |
| 5986 | (if #{rec? 2179}# (if #f #f)) | |
| 5987 | (map (lambda (#{x 2215}#) | |
| 5988 | (cons 'macro | |
| 5989 | (#{eval-local-transformer 449}# | |
| 5990 | (#{chi 437}# | |
| 5991 | #{x 2215}# | |
| 5992 | #{trans-r 2214}# | |
| 5993 | (if #{rec? 2179}# | |
| 5994 | #{new-w 2209}# | |
| 5995 | #{w 2182}#) | |
| 5996 | #{mod 2184}#) | |
| 5997 | #{mod 2184}#))) | |
| 5998 | #{val 2200}#))) | |
| 5999 | #{r 2181}#) | |
| 6000 | #{new-w 2209}# | |
| 6001 | #{s 2183}# | |
| 6002 | #{mod 2184}#))))) | |
| 6003 | #{tmp 2194}#) | |
| 6004 | (syntax-violation | |
| 6005 | #f | |
| 6006 | "bad local syntax definition" | |
| 6007 | (#{source-wrap 425}# | |
| 6008 | #{e 2180}# | |
| 6009 | #{w 2182}# | |
| 6010 | #{s 2183}# | |
| 6011 | #{mod 2184}#)))))) | |
| 6012 | (#{eval-local-transformer 449}# | |
| 6013 | (lambda (#{expanded 2221}# #{mod 2222}#) | |
| 6014 | (let ((#{p 2226}# | |
| 6015 | (#{local-eval-hook 257}# | |
| 6016 | #{expanded 2221}# | |
| 6017 | #{mod 2222}#))) | |
| 6018 | (if (procedure? #{p 2226}#) | |
| 6019 | #{p 2226}# | |
| 6020 | (syntax-violation | |
| 6021 | #f | |
| 6022 | "nonprocedure transformer" | |
| 6023 | #{p 2226}#))))) | |
| 6024 | (#{chi-void 451}# | |
| 6025 | (lambda () (#{build-void 269}# #f))) | |
| 6026 | (#{ellipsis? 453}# | |
| 6027 | (lambda (#{x 2228}#) | |
| 6028 | (if (#{nonsymbol-id? 347}# #{x 2228}#) | |
| 6029 | (#{free-id=? 413}# | |
| 6030 | #{x 2228}# | |
| 6031 | '#(syntax-object | |
| 6032 | ... | |
| 6033 | ((top) | |
| 6034 | #(ribcage () () ()) | |
| 6035 | #(ribcage () () ()) | |
| 6036 | #(ribcage #(x) #((top)) #("i2229")) | |
| 6037 | #(ribcage | |
| 6038 | (lambda-var-list | |
| 6039 | gen-var | |
| 6040 | strip | |
| 6041 | chi-lambda-case | |
| 6042 | lambda*-formals | |
| 6043 | chi-simple-lambda | |
| 6044 | lambda-formals | |
| 6045 | ellipsis? | |
| 6046 | chi-void | |
| 6047 | eval-local-transformer | |
| 6048 | chi-local-syntax | |
| 6049 | chi-body | |
| 6050 | chi-macro | |
| 6051 | chi-application | |
| 6052 | chi-expr | |
| 6053 | chi | |
| 6054 | syntax-type | |
| 6055 | chi-when-list | |
| 6056 | chi-install-global | |
| 6057 | chi-top-sequence | |
| 6058 | chi-sequence | |
| 6059 | source-wrap | |
| 6060 | wrap | |
| 6061 | bound-id-member? | |
| 6062 | distinct-bound-ids? | |
| 6063 | valid-bound-ids? | |
| 6064 | bound-id=? | |
| 6065 | free-id=? | |
| 6066 | id-var-name | |
| 6067 | same-marks? | |
| 6068 | join-marks | |
| 6069 | join-wraps | |
| 6070 | smart-append | |
| 6071 | make-binding-wrap | |
| 6072 | extend-ribcage! | |
| 6073 | make-empty-ribcage | |
| 6074 | new-mark | |
| 6075 | anti-mark | |
| 6076 | the-anti-mark | |
| 6077 | top-marked? | |
| 6078 | top-wrap | |
| 6079 | empty-wrap | |
| 6080 | set-ribcage-labels! | |
| 6081 | set-ribcage-marks! | |
| 6082 | set-ribcage-symnames! | |
| 6083 | ribcage-labels | |
| 6084 | ribcage-marks | |
| 6085 | ribcage-symnames | |
| 6086 | ribcage? | |
| 6087 | make-ribcage | |
| 6088 | gen-labels | |
| 6089 | gen-label | |
| 6090 | make-rename | |
| 6091 | rename-marks | |
| 6092 | rename-new | |
| 6093 | rename-old | |
| 6094 | subst-rename? | |
| 6095 | wrap-subst | |
| 6096 | wrap-marks | |
| 6097 | make-wrap | |
| 6098 | id-sym-name&marks | |
| 6099 | id-sym-name | |
| 6100 | id? | |
| 6101 | nonsymbol-id? | |
| 6102 | global-extend | |
| 6103 | lookup | |
| 6104 | macros-only-env | |
| 6105 | extend-var-env | |
| 6106 | extend-env | |
| 6107 | null-env | |
| 6108 | binding-value | |
| 6109 | binding-type | |
| 6110 | make-binding | |
| 6111 | arg-check | |
| 6112 | source-annotation | |
| 6113 | no-source | |
| 6114 | set-syntax-object-module! | |
| 6115 | set-syntax-object-wrap! | |
| 6116 | set-syntax-object-expression! | |
| 6117 | syntax-object-module | |
| 6118 | syntax-object-wrap | |
| 6119 | syntax-object-expression | |
| 6120 | syntax-object? | |
| 6121 | make-syntax-object | |
| 6122 | build-lexical-var | |
| 6123 | build-letrec | |
| 6124 | build-named-let | |
| 6125 | build-let | |
| 6126 | build-sequence | |
| 6127 | build-data | |
| 6128 | build-primref | |
| 6129 | build-lambda-case | |
| 6130 | build-case-lambda | |
| 6131 | build-simple-lambda | |
| 6132 | build-global-definition | |
| 6133 | build-global-assignment | |
| 6134 | build-global-reference | |
| 6135 | analyze-variable | |
| 6136 | build-lexical-assignment | |
| 6137 | build-lexical-reference | |
| 6138 | build-dynlet | |
| 6139 | build-conditional | |
| 6140 | build-application | |
| 6141 | build-void | |
| 6142 | maybe-name-value! | |
| 6143 | decorate-source | |
| 6144 | get-global-definition-hook | |
| 6145 | put-global-definition-hook | |
| 6146 | gensym-hook | |
| 6147 | local-eval-hook | |
| 6148 | top-level-eval-hook | |
| 6149 | fx< | |
| 6150 | fx= | |
| 6151 | fx- | |
| 6152 | fx+ | |
| 6153 | set-lambda-meta! | |
| 6154 | lambda-meta | |
| 6155 | lambda? | |
| 6156 | make-dynlet | |
| 6157 | make-letrec | |
| 6158 | make-let | |
| 6159 | make-lambda-case | |
| 6160 | make-lambda | |
| 6161 | make-sequence | |
| 6162 | make-application | |
| 6163 | make-conditional | |
| 6164 | make-toplevel-define | |
| 6165 | make-toplevel-set | |
| 6166 | make-toplevel-ref | |
| 6167 | make-module-set | |
| 6168 | make-module-ref | |
| 6169 | make-lexical-set | |
| 6170 | make-lexical-ref | |
| 6171 | make-primitive-ref | |
| 6172 | make-const | |
| 6173 | make-void) | |
| 6174 | ((top) | |
| 6175 | (top) | |
| 6176 | (top) | |
| 6177 | (top) | |
| 6178 | (top) | |
| 6179 | (top) | |
| 6180 | (top) | |
| 6181 | (top) | |
| 6182 | (top) | |
| 6183 | (top) | |
| 6184 | (top) | |
| 6185 | (top) | |
| 6186 | (top) | |
| 6187 | (top) | |
| 6188 | (top) | |
| 6189 | (top) | |
| 6190 | (top) | |
| 6191 | (top) | |
| 6192 | (top) | |
| 6193 | (top) | |
| 6194 | (top) | |
| 6195 | (top) | |
| 6196 | (top) | |
| 6197 | (top) | |
| 6198 | (top) | |
| 6199 | (top) | |
| 6200 | (top) | |
| 6201 | (top) | |
| 6202 | (top) | |
| 6203 | (top) | |
| 6204 | (top) | |
| 6205 | (top) | |
| 6206 | (top) | |
| 6207 | (top) | |
| 6208 | (top) | |
| 6209 | (top) | |
| 6210 | (top) | |
| 6211 | (top) | |
| 6212 | (top) | |
| 6213 | (top) | |
| 6214 | (top) | |
| 6215 | (top) | |
| 6216 | (top) | |
| 6217 | (top) | |
| 6218 | (top) | |
| 6219 | (top) | |
| 6220 | (top) | |
| 6221 | (top) | |
| 6222 | (top) | |
| 6223 | (top) | |
| 6224 | (top) | |
| 6225 | (top) | |
| 6226 | (top) | |
| 6227 | (top) | |
| 6228 | (top) | |
| 6229 | (top) | |
| 6230 | (top) | |
| 6231 | (top) | |
| 6232 | (top) | |
| 6233 | (top) | |
| 6234 | (top) | |
| 6235 | (top) | |
| 6236 | (top) | |
| 6237 | (top) | |
| 6238 | (top) | |
| 6239 | (top) | |
| 6240 | (top) | |
| 6241 | (top) | |
| 6242 | (top) | |
| 6243 | (top) | |
| 6244 | (top) | |
| 6245 | (top) | |
| 6246 | (top) | |
| 6247 | (top) | |
| 6248 | (top) | |
| 6249 | (top) | |
| 6250 | (top) | |
| 6251 | (top) | |
| 6252 | (top) | |
| 6253 | (top) | |
| 6254 | (top) | |
| 6255 | (top) | |
| 6256 | (top) | |
| 6257 | (top) | |
| 6258 | (top) | |
| 6259 | (top) | |
| 6260 | (top) | |
| 6261 | (top) | |
| 6262 | (top) | |
| 6263 | (top) | |
| 6264 | (top) | |
| 6265 | (top) | |
| 6266 | (top) | |
| 6267 | (top) | |
| 6268 | (top) | |
| 6269 | (top) | |
| 6270 | (top) | |
| 6271 | (top) | |
| 6272 | (top) | |
| 6273 | (top) | |
| 6274 | (top) | |
| 6275 | (top) | |
| 6276 | (top) | |
| 6277 | (top) | |
| 6278 | (top) | |
| 6279 | (top) | |
| 6280 | (top) | |
| 6281 | (top) | |
| 6282 | (top) | |
| 6283 | (top) | |
| 6284 | (top) | |
| 6285 | (top) | |
| 6286 | (top) | |
| 6287 | (top) | |
| 6288 | (top) | |
| 6289 | (top) | |
| 6290 | (top) | |
| 6291 | (top) | |
| 6292 | (top) | |
| 6293 | (top) | |
| 6294 | (top) | |
| 6295 | (top) | |
| 6296 | (top) | |
| 6297 | (top) | |
| 6298 | (top) | |
| 6299 | (top) | |
| 6300 | (top) | |
| 6301 | (top) | |
| 6302 | (top) | |
| 6303 | (top) | |
| 6304 | (top) | |
| 6305 | (top) | |
| 6306 | (top) | |
| 6307 | (top) | |
| 6308 | (top) | |
| 6309 | (top)) | |
| 6310 | ("i466" | |
| 6311 | "i464" | |
| 6312 | "i462" | |
| 6313 | "i460" | |
| 6314 | "i458" | |
| 6315 | "i456" | |
| 6316 | "i454" | |
| 6317 | "i452" | |
| 6318 | "i450" | |
| 6319 | "i448" | |
| 6320 | "i446" | |
| 6321 | "i444" | |
| 6322 | "i442" | |
| 6323 | "i440" | |
| 6324 | "i438" | |
| 6325 | "i436" | |
| 6326 | "i434" | |
| 6327 | "i432" | |
| 6328 | "i430" | |
| 6329 | "i428" | |
| 6330 | "i426" | |
| 6331 | "i424" | |
| 6332 | "i422" | |
| 6333 | "i420" | |
| 6334 | "i418" | |
| 6335 | "i416" | |
| 6336 | "i414" | |
| 6337 | "i412" | |
| 6338 | "i410" | |
| 6339 | "i408" | |
| 6340 | "i406" | |
| 6341 | "i404" | |
| 6342 | "i402" | |
| 6343 | "i400" | |
| 6344 | "i398" | |
| 6345 | "i397" | |
| 6346 | "i395" | |
| 6347 | "i392" | |
| 6348 | "i391" | |
| 6349 | "i390" | |
| 6350 | "i388" | |
| 6351 | "i387" | |
| 6352 | "i385" | |
| 6353 | "i383" | |
| 6354 | "i381" | |
| 6355 | "i379" | |
| 6356 | "i377" | |
| 6357 | "i375" | |
| 6358 | "i373" | |
| 6359 | "i371" | |
| 6360 | "i368" | |
| 6361 | "i366" | |
| 6362 | "i365" | |
| 6363 | "i363" | |
| 6364 | "i361" | |
| 6365 | "i359" | |
| 6366 | "i357" | |
| 6367 | "i356" | |
| 6368 | "i355" | |
| 6369 | "i354" | |
| 6370 | "i352" | |
| 6371 | "i351" | |
| 6372 | "i348" | |
| 6373 | "i346" | |
| 6374 | "i344" | |
| 6375 | "i342" | |
| 6376 | "i340" | |
| 6377 | "i338" | |
| 6378 | "i336" | |
| 6379 | "i335" | |
| 6380 | "i334" | |
| 6381 | "i332" | |
| 6382 | "i330" | |
| 6383 | "i329" | |
| 6384 | "i326" | |
| 6385 | "i325" | |
| 6386 | "i323" | |
| 6387 | "i321" | |
| 6388 | "i319" | |
| 6389 | "i317" | |
| 6390 | "i315" | |
| 6391 | "i313" | |
| 6392 | "i311" | |
| 6393 | "i309" | |
| 6394 | "i307" | |
| 6395 | "i304" | |
| 6396 | "i302" | |
| 6397 | "i300" | |
| 6398 | "i298" | |
| 6399 | "i296" | |
| 6400 | "i294" | |
| 6401 | "i292" | |
| 6402 | "i290" | |
| 6403 | "i288" | |
| 6404 | "i286" | |
| 6405 | "i284" | |
| 6406 | "i282" | |
| 6407 | "i280" | |
| 6408 | "i278" | |
| 6409 | "i276" | |
| 6410 | "i274" | |
| 6411 | "i272" | |
| 6412 | "i270" | |
| 6413 | "i268" | |
| 6414 | "i266" | |
| 6415 | "i264" | |
| 6416 | "i262" | |
| 6417 | "i260" | |
| 6418 | "i259" | |
| 6419 | "i256" | |
| 6420 | "i254" | |
| 6421 | "i253" | |
| 6422 | "i252" | |
| 6423 | "i251" | |
| 6424 | "i250" | |
| 6425 | "i248" | |
| 6426 | "i246" | |
| 6427 | "i244" | |
| 6428 | "i241" | |
| 6429 | "i239" | |
| 6430 | "i237" | |
| 6431 | "i235" | |
| 6432 | "i233" | |
| 6433 | "i231" | |
| 6434 | "i229" | |
| 6435 | "i227" | |
| 6436 | "i225" | |
| 6437 | "i223" | |
| 6438 | "i221" | |
| 6439 | "i219" | |
| 6440 | "i217" | |
| 6441 | "i215" | |
| 6442 | "i213" | |
| 6443 | "i211" | |
| 6444 | "i209" | |
| 6445 | "i207")) | |
| 6446 | #(ribcage | |
| 6447 | (define-structure | |
| 6448 | define-expansion-accessors | |
| 6449 | define-expansion-constructors) | |
| 6450 | ((top) (top) (top)) | |
| 6451 | ("i45" "i44" "i43"))) | |
| 6452 | (hygiene guile))) | |
| 6453 | #f))) | |
| 6454 | (#{lambda-formals 455}# | |
| 6455 | (lambda (#{orig-args 2232}#) | |
| 6456 | (letrec* | |
| 6457 | ((#{req 2235}# | |
| 6458 | (lambda (#{args 2238}# #{rreq 2239}#) | |
| 6459 | (let ((#{tmp 2243}# ($sc-dispatch #{args 2238}# '()))) | |
| 6460 | (if #{tmp 2243}# | |
| 6461 | (@apply | |
| 6462 | (lambda () | |
| 6463 | (#{check 2237}# (reverse #{rreq 2239}#) #f)) | |
| 6464 | #{tmp 2243}#) | |
| 6465 | (let ((#{tmp 2244}# | |
| 6466 | ($sc-dispatch #{args 2238}# '(any . any)))) | |
| 6467 | (if (if #{tmp 2244}# | |
| 6468 | (@apply | |
| 6469 | (lambda (#{a 2247}# #{b 2248}#) | |
| 6470 | (#{id? 349}# #{a 2247}#)) | |
| 6471 | #{tmp 2244}#) | |
| 6472 | #f) | |
| 6473 | (@apply | |
| 6474 | (lambda (#{a 2251}# #{b 2252}#) | |
| 6475 | (#{req 2235}# | |
| 6476 | #{b 2252}# | |
| 6477 | (cons #{a 2251}# #{rreq 2239}#))) | |
| 6478 | #{tmp 2244}#) | |
| 6479 | (let ((#{tmp 2253}# (list #{args 2238}#))) | |
| 6480 | (if (if #{tmp 2253}# | |
| 6481 | (@apply | |
| 6482 | (lambda (#{r 2255}#) (#{id? 349}# #{r 2255}#)) | |
| 6483 | #{tmp 2253}#) | |
| 6484 | #f) | |
| 6485 | (@apply | |
| 6486 | (lambda (#{r 2257}#) | |
| 6487 | (#{check 2237}# | |
| 6488 | (reverse #{rreq 2239}#) | |
| 6489 | #{r 2257}#)) | |
| 6490 | #{tmp 2253}#) | |
| 6491 | (syntax-violation | |
| 6492 | 'lambda | |
| 6493 | "invalid argument list" | |
| 6494 | #{orig-args 2232}# | |
| 6495 | #{args 2238}#))))))))) | |
| 6496 | (#{check 2237}# | |
| 6497 | (lambda (#{req 2260}# #{rest 2261}#) | |
| 6498 | (if (#{distinct-bound-ids? 419}# | |
| 6499 | (if #{rest 2261}# | |
| 6500 | (cons #{rest 2261}# #{req 2260}#) | |
| 6501 | #{req 2260}#)) | |
| 6502 | (values #{req 2260}# #f #{rest 2261}# #f) | |
| 6503 | (syntax-violation | |
| 6504 | 'lambda | |
| 6505 | "duplicate identifier in argument list" | |
| 6506 | #{orig-args 2232}#))))) | |
| 6507 | (#{req 2235}# #{orig-args 2232}# '())))) | |
| 6508 | (#{lambda*-formals 459}# | |
| 6509 | (lambda (#{orig-args 2294}#) | |
| 6510 | (letrec* | |
| 6511 | ((#{req 2297}# | |
| 6512 | (lambda (#{args 2306}# #{rreq 2307}#) | |
| 6513 | (let ((#{tmp 2311}# ($sc-dispatch #{args 2306}# '()))) | |
| 6514 | (if #{tmp 2311}# | |
| 6515 | (@apply | |
| 6516 | (lambda () | |
| 6517 | (#{check 2305}# | |
| 6518 | (reverse #{rreq 2307}#) | |
| 6519 | '() | |
| 6520 | #f | |
| 6521 | '())) | |
| 6522 | #{tmp 2311}#) | |
| 6523 | (let ((#{tmp 2312}# | |
| 6524 | ($sc-dispatch #{args 2306}# '(any . any)))) | |
| 6525 | (if (if #{tmp 2312}# | |
| 6526 | (@apply | |
| 6527 | (lambda (#{a 2315}# #{b 2316}#) | |
| 6528 | (#{id? 349}# #{a 2315}#)) | |
| 6529 | #{tmp 2312}#) | |
| 6530 | #f) | |
| 6531 | (@apply | |
| 6532 | (lambda (#{a 2319}# #{b 2320}#) | |
| 6533 | (#{req 2297}# | |
| 6534 | #{b 2320}# | |
| 6535 | (cons #{a 2319}# #{rreq 2307}#))) | |
| 6536 | #{tmp 2312}#) | |
| 6537 | (let ((#{tmp 2321}# | |
| 6538 | ($sc-dispatch #{args 2306}# '(any . any)))) | |
| 6539 | (if (if #{tmp 2321}# | |
| 6540 | (@apply | |
| 6541 | (lambda (#{a 2324}# #{b 2325}#) | |
| 6542 | (eq? (syntax->datum #{a 2324}#) #:optional)) | |
| 6543 | #{tmp 2321}#) | |
| 6544 | #f) | |
| 6545 | (@apply | |
| 6546 | (lambda (#{a 2328}# #{b 2329}#) | |
| 6547 | (#{opt 2299}# | |
| 6548 | #{b 2329}# | |
| 6549 | (reverse #{rreq 2307}#) | |
| 6550 | '())) | |
| 6551 | #{tmp 2321}#) | |
| 6552 | (let ((#{tmp 2330}# | |
| 6553 | ($sc-dispatch #{args 2306}# '(any . any)))) | |
| 6554 | (if (if #{tmp 2330}# | |
| 6555 | (@apply | |
| 6556 | (lambda (#{a 2333}# #{b 2334}#) | |
| 6557 | (eq? (syntax->datum #{a 2333}#) #:key)) | |
| 6558 | #{tmp 2330}#) | |
| 6559 | #f) | |
| 6560 | (@apply | |
| 6561 | (lambda (#{a 2337}# #{b 2338}#) | |
| 6562 | (#{key 2301}# | |
| 6563 | #{b 2338}# | |
| 6564 | (reverse #{rreq 2307}#) | |
| 6565 | '() | |
| 6566 | '())) | |
| 6567 | #{tmp 2330}#) | |
| 6568 | (let ((#{tmp 2339}# | |
| 6569 | ($sc-dispatch #{args 2306}# '(any any)))) | |
| 6570 | (if (if #{tmp 2339}# | |
| 6571 | (@apply | |
| 6572 | (lambda (#{a 2342}# #{b 2343}#) | |
| 6573 | (eq? (syntax->datum #{a 2342}#) | |
| 6574 | #:rest)) | |
| 6575 | #{tmp 2339}#) | |
| 6576 | #f) | |
| 6577 | (@apply | |
| 6578 | (lambda (#{a 2346}# #{b 2347}#) | |
| 6579 | (#{rest 2303}# | |
| 6580 | #{b 2347}# | |
| 6581 | (reverse #{rreq 2307}#) | |
| 6582 | '() | |
| 6583 | '())) | |
| 6584 | #{tmp 2339}#) | |
| 6585 | (let ((#{tmp 2348}# (list #{args 2306}#))) | |
| 6586 | (if (if #{tmp 2348}# | |
| 6587 | (@apply | |
| 6588 | (lambda (#{r 2350}#) | |
| 6589 | (#{id? 349}# #{r 2350}#)) | |
| 6590 | #{tmp 2348}#) | |
| 6591 | #f) | |
| 6592 | (@apply | |
| 6593 | (lambda (#{r 2352}#) | |
| 6594 | (#{rest 2303}# | |
| 6595 | #{r 2352}# | |
| 6596 | (reverse #{rreq 2307}#) | |
| 6597 | '() | |
| 6598 | '())) | |
| 6599 | #{tmp 2348}#) | |
| 6600 | (syntax-violation | |
| 6601 | 'lambda* | |
| 6602 | "invalid argument list" | |
| 6603 | #{orig-args 2294}# | |
| 6604 | #{args 2306}#))))))))))))))) | |
| 6605 | (#{opt 2299}# | |
| 6606 | (lambda (#{args 2355}# #{req 2356}# #{ropt 2357}#) | |
| 6607 | (let ((#{tmp 2362}# ($sc-dispatch #{args 2355}# '()))) | |
| 6608 | (if #{tmp 2362}# | |
| 6609 | (@apply | |
| 6610 | (lambda () | |
| 6611 | (#{check 2305}# | |
| 6612 | #{req 2356}# | |
| 6613 | (reverse #{ropt 2357}#) | |
| 6614 | #f | |
| 6615 | '())) | |
| 6616 | #{tmp 2362}#) | |
| 6617 | (let ((#{tmp 2363}# | |
| 6618 | ($sc-dispatch #{args 2355}# '(any . any)))) | |
| 6619 | (if (if #{tmp 2363}# | |
| 6620 | (@apply | |
| 6621 | (lambda (#{a 2366}# #{b 2367}#) | |
| 6622 | (#{id? 349}# #{a 2366}#)) | |
| 6623 | #{tmp 2363}#) | |
| 6624 | #f) | |
| 6625 | (@apply | |
| 6626 | (lambda (#{a 2370}# #{b 2371}#) | |
| 6627 | (#{opt 2299}# | |
| 6628 | #{b 2371}# | |
| 6629 | #{req 2356}# | |
| 6630 | (cons (cons #{a 2370}# | |
| 6631 | '(#(syntax-object | |
| 6632 | #f | |
| 6633 | ((top) | |
| 6634 | #(ribcage | |
| 6635 | #(a b) | |
| 6636 | #((top) (top)) | |
| 6637 | #("i2368" "i2369")) | |
| 6638 | #(ribcage () () ()) | |
| 6639 | #(ribcage | |
| 6640 | #(args req ropt) | |
| 6641 | #((top) (top) (top)) | |
| 6642 | #("i2358" "i2359" "i2360")) | |
| 6643 | #(ribcage | |
| 6644 | (check rest key opt req) | |
| 6645 | ((top) (top) (top) (top) (top)) | |
| 6646 | ("i2304" | |
| 6647 | "i2302" | |
| 6648 | "i2300" | |
| 6649 | "i2298" | |
| 6650 | "i2296")) | |
| 6651 | #(ribcage | |
| 6652 | #(orig-args) | |
| 6653 | #((top)) | |
| 6654 | #("i2295")) | |
| 6655 | #(ribcage | |
| 6656 | (lambda-var-list | |
| 6657 | gen-var | |
| 6658 | strip | |
| 6659 | chi-lambda-case | |
| 6660 | lambda*-formals | |
| 6661 | chi-simple-lambda | |
| 6662 | lambda-formals | |
| 6663 | ellipsis? | |
| 6664 | chi-void | |
| 6665 | eval-local-transformer | |
| 6666 | chi-local-syntax | |
| 6667 | chi-body | |
| 6668 | chi-macro | |
| 6669 | chi-application | |
| 6670 | chi-expr | |
| 6671 | chi | |
| 6672 | syntax-type | |
| 6673 | chi-when-list | |
| 6674 | chi-install-global | |
| 6675 | chi-top-sequence | |
| 6676 | chi-sequence | |
| 6677 | source-wrap | |
| 6678 | wrap | |
| 6679 | bound-id-member? | |
| 6680 | distinct-bound-ids? | |
| 6681 | valid-bound-ids? | |
| 6682 | bound-id=? | |
| 6683 | free-id=? | |
| 6684 | id-var-name | |
| 6685 | same-marks? | |
| 6686 | join-marks | |
| 6687 | join-wraps | |
| 6688 | smart-append | |
| 6689 | make-binding-wrap | |
| 6690 | extend-ribcage! | |
| 6691 | make-empty-ribcage | |
| 6692 | new-mark | |
| 6693 | anti-mark | |
| 6694 | the-anti-mark | |
| 6695 | top-marked? | |
| 6696 | top-wrap | |
| 6697 | empty-wrap | |
| 6698 | set-ribcage-labels! | |
| 6699 | set-ribcage-marks! | |
| 6700 | set-ribcage-symnames! | |
| 6701 | ribcage-labels | |
| 6702 | ribcage-marks | |
| 6703 | ribcage-symnames | |
| 6704 | ribcage? | |
| 6705 | make-ribcage | |
| 6706 | gen-labels | |
| 6707 | gen-label | |
| 6708 | make-rename | |
| 6709 | rename-marks | |
| 6710 | rename-new | |
| 6711 | rename-old | |
| 6712 | subst-rename? | |
| 6713 | wrap-subst | |
| 6714 | wrap-marks | |
| 6715 | make-wrap | |
| 6716 | id-sym-name&marks | |
| 6717 | id-sym-name | |
| 6718 | id? | |
| 6719 | nonsymbol-id? | |
| 6720 | global-extend | |
| 6721 | lookup | |
| 6722 | macros-only-env | |
| 6723 | extend-var-env | |
| 6724 | extend-env | |
| 6725 | null-env | |
| 6726 | binding-value | |
| 6727 | binding-type | |
| 6728 | make-binding | |
| 6729 | arg-check | |
| 6730 | source-annotation | |
| 6731 | no-source | |
| 6732 | set-syntax-object-module! | |
| 6733 | set-syntax-object-wrap! | |
| 6734 | set-syntax-object-expression! | |
| 6735 | syntax-object-module | |
| 6736 | syntax-object-wrap | |
| 6737 | syntax-object-expression | |
| 6738 | syntax-object? | |
| 6739 | make-syntax-object | |
| 6740 | build-lexical-var | |
| 6741 | build-letrec | |
| 6742 | build-named-let | |
| 6743 | build-let | |
| 6744 | build-sequence | |
| 6745 | build-data | |
| 6746 | build-primref | |
| 6747 | build-lambda-case | |
| 6748 | build-case-lambda | |
| 6749 | build-simple-lambda | |
| 6750 | build-global-definition | |
| 6751 | build-global-assignment | |
| 6752 | build-global-reference | |
| 6753 | analyze-variable | |
| 6754 | build-lexical-assignment | |
| 6755 | build-lexical-reference | |
| 6756 | build-dynlet | |
| 6757 | build-conditional | |
| 6758 | build-application | |
| 6759 | build-void | |
| 6760 | maybe-name-value! | |
| 6761 | decorate-source | |
| 6762 | get-global-definition-hook | |
| 6763 | put-global-definition-hook | |
| 6764 | gensym-hook | |
| 6765 | local-eval-hook | |
| 6766 | top-level-eval-hook | |
| 6767 | fx< | |
| 6768 | fx= | |
| 6769 | fx- | |
| 6770 | fx+ | |
| 6771 | set-lambda-meta! | |
| 6772 | lambda-meta | |
| 6773 | lambda? | |
| 6774 | make-dynlet | |
| 6775 | make-letrec | |
| 6776 | make-let | |
| 6777 | make-lambda-case | |
| 6778 | make-lambda | |
| 6779 | make-sequence | |
| 6780 | make-application | |
| 6781 | make-conditional | |
| 6782 | make-toplevel-define | |
| 6783 | make-toplevel-set | |
| 6784 | make-toplevel-ref | |
| 6785 | make-module-set | |
| 6786 | make-module-ref | |
| 6787 | make-lexical-set | |
| 6788 | make-lexical-ref | |
| 6789 | make-primitive-ref | |
| 6790 | make-const | |
| 6791 | make-void) | |
| 6792 | ((top) | |
| 6793 | (top) | |
| 6794 | (top) | |
| 6795 | (top) | |
| 6796 | (top) | |
| 6797 | (top) | |
| 6798 | (top) | |
| 6799 | (top) | |
| 6800 | (top) | |
| 6801 | (top) | |
| 6802 | (top) | |
| 6803 | (top) | |
| 6804 | (top) | |
| 6805 | (top) | |
| 6806 | (top) | |
| 6807 | (top) | |
| 6808 | (top) | |
| 6809 | (top) | |
| 6810 | (top) | |
| 6811 | (top) | |
| 6812 | (top) | |
| 6813 | (top) | |
| 6814 | (top) | |
| 6815 | (top) | |
| 6816 | (top) | |
| 6817 | (top) | |
| 6818 | (top) | |
| 6819 | (top) | |
| 6820 | (top) | |
| 6821 | (top) | |
| 6822 | (top) | |
| 6823 | (top) | |
| 6824 | (top) | |
| 6825 | (top) | |
| 6826 | (top) | |
| 6827 | (top) | |
| 6828 | (top) | |
| 6829 | (top) | |
| 6830 | (top) | |
| 6831 | (top) | |
| 6832 | (top) | |
| 6833 | (top) | |
| 6834 | (top) | |
| 6835 | (top) | |
| 6836 | (top) | |
| 6837 | (top) | |
| 6838 | (top) | |
| 6839 | (top) | |
| 6840 | (top) | |
| 6841 | (top) | |
| 6842 | (top) | |
| 6843 | (top) | |
| 6844 | (top) | |
| 6845 | (top) | |
| 6846 | (top) | |
| 6847 | (top) | |
| 6848 | (top) | |
| 6849 | (top) | |
| 6850 | (top) | |
| 6851 | (top) | |
| 6852 | (top) | |
| 6853 | (top) | |
| 6854 | (top) | |
| 6855 | (top) | |
| 6856 | (top) | |
| 6857 | (top) | |
| 6858 | (top) | |
| 6859 | (top) | |
| 6860 | (top) | |
| 6861 | (top) | |
| 6862 | (top) | |
| 6863 | (top) | |
| 6864 | (top) | |
| 6865 | (top) | |
| 6866 | (top) | |
| 6867 | (top) | |
| 6868 | (top) | |
| 6869 | (top) | |
| 6870 | (top) | |
| 6871 | (top) | |
| 6872 | (top) | |
| 6873 | (top) | |
| 6874 | (top) | |
| 6875 | (top) | |
| 6876 | (top) | |
| 6877 | (top) | |
| 6878 | (top) | |
| 6879 | (top) | |
| 6880 | (top) | |
| 6881 | (top) | |
| 6882 | (top) | |
| 6883 | (top) | |
| 6884 | (top) | |
| 6885 | (top) | |
| 6886 | (top) | |
| 6887 | (top) | |
| 6888 | (top) | |
| 6889 | (top) | |
| 6890 | (top) | |
| 6891 | (top) | |
| 6892 | (top) | |
| 6893 | (top) | |
| 6894 | (top) | |
| 6895 | (top) | |
| 6896 | (top) | |
| 6897 | (top) | |
| 6898 | (top) | |
| 6899 | (top) | |
| 6900 | (top) | |
| 6901 | (top) | |
| 6902 | (top) | |
| 6903 | (top) | |
| 6904 | (top) | |
| 6905 | (top) | |
| 6906 | (top) | |
| 6907 | (top) | |
| 6908 | (top) | |
| 6909 | (top) | |
| 6910 | (top) | |
| 6911 | (top) | |
| 6912 | (top) | |
| 6913 | (top) | |
| 6914 | (top) | |
| 6915 | (top) | |
| 6916 | (top) | |
| 6917 | (top) | |
| 6918 | (top) | |
| 6919 | (top) | |
| 6920 | (top) | |
| 6921 | (top) | |
| 6922 | (top) | |
| 6923 | (top) | |
| 6924 | (top) | |
| 6925 | (top) | |
| 6926 | (top) | |
| 6927 | (top)) | |
| 6928 | ("i466" | |
| 6929 | "i464" | |
| 6930 | "i462" | |
| 6931 | "i460" | |
| 6932 | "i458" | |
| 6933 | "i456" | |
| 6934 | "i454" | |
| 6935 | "i452" | |
| 6936 | "i450" | |
| 6937 | "i448" | |
| 6938 | "i446" | |
| 6939 | "i444" | |
| 6940 | "i442" | |
| 6941 | "i440" | |
| 6942 | "i438" | |
| 6943 | "i436" | |
| 6944 | "i434" | |
| 6945 | "i432" | |
| 6946 | "i430" | |
| 6947 | "i428" | |
| 6948 | "i426" | |
| 6949 | "i424" | |
| 6950 | "i422" | |
| 6951 | "i420" | |
| 6952 | "i418" | |
| 6953 | "i416" | |
| 6954 | "i414" | |
| 6955 | "i412" | |
| 6956 | "i410" | |
| 6957 | "i408" | |
| 6958 | "i406" | |
| 6959 | "i404" | |
| 6960 | "i402" | |
| 6961 | "i400" | |
| 6962 | "i398" | |
| 6963 | "i397" | |
| 6964 | "i395" | |
| 6965 | "i392" | |
| 6966 | "i391" | |
| 6967 | "i390" | |
| 6968 | "i388" | |
| 6969 | "i387" | |
| 6970 | "i385" | |
| 6971 | "i383" | |
| 6972 | "i381" | |
| 6973 | "i379" | |
| 6974 | "i377" | |
| 6975 | "i375" | |
| 6976 | "i373" | |
| 6977 | "i371" | |
| 6978 | "i368" | |
| 6979 | "i366" | |
| 6980 | "i365" | |
| 6981 | "i363" | |
| 6982 | "i361" | |
| 6983 | "i359" | |
| 6984 | "i357" | |
| 6985 | "i356" | |
| 6986 | "i355" | |
| 6987 | "i354" | |
| 6988 | "i352" | |
| 6989 | "i351" | |
| 6990 | "i348" | |
| 6991 | "i346" | |
| 6992 | "i344" | |
| 6993 | "i342" | |
| 6994 | "i340" | |
| 6995 | "i338" | |
| 6996 | "i336" | |
| 6997 | "i335" | |
| 6998 | "i334" | |
| 6999 | "i332" | |
| 7000 | "i330" | |
| 7001 | "i329" | |
| 7002 | "i326" | |
| 7003 | "i325" | |
| 7004 | "i323" | |
| 7005 | "i321" | |
| 7006 | "i319" | |
| 7007 | "i317" | |
| 7008 | "i315" | |
| 7009 | "i313" | |
| 7010 | "i311" | |
| 7011 | "i309" | |
| 7012 | "i307" | |
| 7013 | "i304" | |
| 7014 | "i302" | |
| 7015 | "i300" | |
| 7016 | "i298" | |
| 7017 | "i296" | |
| 7018 | "i294" | |
| 7019 | "i292" | |
| 7020 | "i290" | |
| 7021 | "i288" | |
| 7022 | "i286" | |
| 7023 | "i284" | |
| 7024 | "i282" | |
| 7025 | "i280" | |
| 7026 | "i278" | |
| 7027 | "i276" | |
| 7028 | "i274" | |
| 7029 | "i272" | |
| 7030 | "i270" | |
| 7031 | "i268" | |
| 7032 | "i266" | |
| 7033 | "i264" | |
| 7034 | "i262" | |
| 7035 | "i260" | |
| 7036 | "i259" | |
| 7037 | "i256" | |
| 7038 | "i254" | |
| 7039 | "i253" | |
| 7040 | "i252" | |
| 7041 | "i251" | |
| 7042 | "i250" | |
| 7043 | "i248" | |
| 7044 | "i246" | |
| 7045 | "i244" | |
| 7046 | "i241" | |
| 7047 | "i239" | |
| 7048 | "i237" | |
| 7049 | "i235" | |
| 7050 | "i233" | |
| 7051 | "i231" | |
| 7052 | "i229" | |
| 7053 | "i227" | |
| 7054 | "i225" | |
| 7055 | "i223" | |
| 7056 | "i221" | |
| 7057 | "i219" | |
| 7058 | "i217" | |
| 7059 | "i215" | |
| 7060 | "i213" | |
| 7061 | "i211" | |
| 7062 | "i209" | |
| 7063 | "i207")) | |
| 7064 | #(ribcage | |
| 7065 | (define-structure | |
| 7066 | define-expansion-accessors | |
| 7067 | define-expansion-constructors) | |
| 7068 | ((top) (top) (top)) | |
| 7069 | ("i45" "i44" "i43"))) | |
| 7070 | (hygiene guile)))) | |
| 7071 | #{ropt 2357}#))) | |
| 7072 | #{tmp 2363}#) | |
| 7073 | (let ((#{tmp 2372}# | |
| 7074 | ($sc-dispatch #{args 2355}# '((any any) . any)))) | |
| 7075 | (if (if #{tmp 2372}# | |
| 7076 | (@apply | |
| 7077 | (lambda (#{a 2376}# #{init 2377}# #{b 2378}#) | |
| 7078 | (#{id? 349}# #{a 2376}#)) | |
| 7079 | #{tmp 2372}#) | |
| 7080 | #f) | |
| 7081 | (@apply | |
| 7082 | (lambda (#{a 2382}# #{init 2383}# #{b 2384}#) | |
| 7083 | (#{opt 2299}# | |
| 7084 | #{b 2384}# | |
| 7085 | #{req 2356}# | |
| 7086 | (cons (list #{a 2382}# #{init 2383}#) | |
| 7087 | #{ropt 2357}#))) | |
| 7088 | #{tmp 2372}#) | |
| 7089 | (let ((#{tmp 2385}# | |
| 7090 | ($sc-dispatch #{args 2355}# '(any . any)))) | |
| 7091 | (if (if #{tmp 2385}# | |
| 7092 | (@apply | |
| 7093 | (lambda (#{a 2388}# #{b 2389}#) | |
| 7094 | (eq? (syntax->datum #{a 2388}#) #:key)) | |
| 7095 | #{tmp 2385}#) | |
| 7096 | #f) | |
| 7097 | (@apply | |
| 7098 | (lambda (#{a 2392}# #{b 2393}#) | |
| 7099 | (#{key 2301}# | |
| 7100 | #{b 2393}# | |
| 7101 | #{req 2356}# | |
| 7102 | (reverse #{ropt 2357}#) | |
| 7103 | '())) | |
| 7104 | #{tmp 2385}#) | |
| 7105 | (let ((#{tmp 2394}# | |
| 7106 | ($sc-dispatch #{args 2355}# '(any any)))) | |
| 7107 | (if (if #{tmp 2394}# | |
| 7108 | (@apply | |
| 7109 | (lambda (#{a 2397}# #{b 2398}#) | |
| 7110 | (eq? (syntax->datum #{a 2397}#) | |
| 7111 | #:rest)) | |
| 7112 | #{tmp 2394}#) | |
| 7113 | #f) | |
| 7114 | (@apply | |
| 7115 | (lambda (#{a 2401}# #{b 2402}#) | |
| 7116 | (#{rest 2303}# | |
| 7117 | #{b 2402}# | |
| 7118 | #{req 2356}# | |
| 7119 | (reverse #{ropt 2357}#) | |
| 7120 | '())) | |
| 7121 | #{tmp 2394}#) | |
| 7122 | (let ((#{tmp 2403}# (list #{args 2355}#))) | |
| 7123 | (if (if #{tmp 2403}# | |
| 7124 | (@apply | |
| 7125 | (lambda (#{r 2405}#) | |
| 7126 | (#{id? 349}# #{r 2405}#)) | |
| 7127 | #{tmp 2403}#) | |
| 7128 | #f) | |
| 7129 | (@apply | |
| 7130 | (lambda (#{r 2407}#) | |
| 7131 | (#{rest 2303}# | |
| 7132 | #{r 2407}# | |
| 7133 | #{req 2356}# | |
| 7134 | (reverse #{ropt 2357}#) | |
| 7135 | '())) | |
| 7136 | #{tmp 2403}#) | |
| 7137 | (syntax-violation | |
| 7138 | 'lambda* | |
| 7139 | "invalid optional argument list" | |
| 7140 | #{orig-args 2294}# | |
| 7141 | #{args 2355}#))))))))))))))) | |
| 7142 | (#{key 2301}# | |
| 7143 | (lambda (#{args 2410}# | |
| 7144 | #{req 2411}# | |
| 7145 | #{opt 2412}# | |
| 7146 | #{rkey 2413}#) | |
| 7147 | (let ((#{tmp 2419}# ($sc-dispatch #{args 2410}# '()))) | |
| 7148 | (if #{tmp 2419}# | |
| 7149 | (@apply | |
| 7150 | (lambda () | |
| 7151 | (#{check 2305}# | |
| 7152 | #{req 2411}# | |
| 7153 | #{opt 2412}# | |
| 7154 | #f | |
| 7155 | (cons #f (reverse #{rkey 2413}#)))) | |
| 7156 | #{tmp 2419}#) | |
| 7157 | (let ((#{tmp 2420}# | |
| 7158 | ($sc-dispatch #{args 2410}# '(any . any)))) | |
| 7159 | (if (if #{tmp 2420}# | |
| 7160 | (@apply | |
| 7161 | (lambda (#{a 2423}# #{b 2424}#) | |
| 7162 | (#{id? 349}# #{a 2423}#)) | |
| 7163 | #{tmp 2420}#) | |
| 7164 | #f) | |
| 7165 | (@apply | |
| 7166 | (lambda (#{a 2427}# #{b 2428}#) | |
| 7167 | (let ((#{tmp 2430}# | |
| 7168 | (symbol->keyword | |
| 7169 | (syntax->datum #{a 2427}#)))) | |
| 7170 | (#{key 2301}# | |
| 7171 | #{b 2428}# | |
| 7172 | #{req 2411}# | |
| 7173 | #{opt 2412}# | |
| 7174 | (cons (cons #{tmp 2430}# | |
| 7175 | (cons #{a 2427}# | |
| 7176 | '(#(syntax-object | |
| 7177 | #f | |
| 7178 | ((top) | |
| 7179 | #(ribcage () () ()) | |
| 7180 | #(ribcage | |
| 7181 | #(k) | |
| 7182 | #((top)) | |
| 7183 | #("i2431")) | |
| 7184 | #(ribcage | |
| 7185 | #(a b) | |
| 7186 | #((top) (top)) | |
| 7187 | #("i2425" "i2426")) | |
| 7188 | #(ribcage () () ()) | |
| 7189 | #(ribcage | |
| 7190 | #(args req opt rkey) | |
| 7191 | #((top) | |
| 7192 | (top) | |
| 7193 | (top) | |
| 7194 | (top)) | |
| 7195 | #("i2414" | |
| 7196 | "i2415" | |
| 7197 | "i2416" | |
| 7198 | "i2417")) | |
| 7199 | #(ribcage | |
| 7200 | (check rest key opt req) | |
| 7201 | ((top) | |
| 7202 | (top) | |
| 7203 | (top) | |
| 7204 | (top) | |
| 7205 | (top)) | |
| 7206 | ("i2304" | |
| 7207 | "i2302" | |
| 7208 | "i2300" | |
| 7209 | "i2298" | |
| 7210 | "i2296")) | |
| 7211 | #(ribcage | |
| 7212 | #(orig-args) | |
| 7213 | #((top)) | |
| 7214 | #("i2295")) | |
| 7215 | #(ribcage | |
| 7216 | (lambda-var-list | |
| 7217 | gen-var | |
| 7218 | strip | |
| 7219 | chi-lambda-case | |
| 7220 | lambda*-formals | |
| 7221 | chi-simple-lambda | |
| 7222 | lambda-formals | |
| 7223 | ellipsis? | |
| 7224 | chi-void | |
| 7225 | eval-local-transformer | |
| 7226 | chi-local-syntax | |
| 7227 | chi-body | |
| 7228 | chi-macro | |
| 7229 | chi-application | |
| 7230 | chi-expr | |
| 7231 | chi | |
| 7232 | syntax-type | |
| 7233 | chi-when-list | |
| 7234 | chi-install-global | |
| 7235 | chi-top-sequence | |
| 7236 | chi-sequence | |
| 7237 | source-wrap | |
| 7238 | wrap | |
| 7239 | bound-id-member? | |
| 7240 | distinct-bound-ids? | |
| 7241 | valid-bound-ids? | |
| 7242 | bound-id=? | |
| 7243 | free-id=? | |
| 7244 | id-var-name | |
| 7245 | same-marks? | |
| 7246 | join-marks | |
| 7247 | join-wraps | |
| 7248 | smart-append | |
| 7249 | make-binding-wrap | |
| 7250 | extend-ribcage! | |
| 7251 | make-empty-ribcage | |
| 7252 | new-mark | |
| 7253 | anti-mark | |
| 7254 | the-anti-mark | |
| 7255 | top-marked? | |
| 7256 | top-wrap | |
| 7257 | empty-wrap | |
| 7258 | set-ribcage-labels! | |
| 7259 | set-ribcage-marks! | |
| 7260 | set-ribcage-symnames! | |
| 7261 | ribcage-labels | |
| 7262 | ribcage-marks | |
| 7263 | ribcage-symnames | |
| 7264 | ribcage? | |
| 7265 | make-ribcage | |
| 7266 | gen-labels | |
| 7267 | gen-label | |
| 7268 | make-rename | |
| 7269 | rename-marks | |
| 7270 | rename-new | |
| 7271 | rename-old | |
| 7272 | subst-rename? | |
| 7273 | wrap-subst | |
| 7274 | wrap-marks | |
| 7275 | make-wrap | |
| 7276 | id-sym-name&marks | |
| 7277 | id-sym-name | |
| 7278 | id? | |
| 7279 | nonsymbol-id? | |
| 7280 | global-extend | |
| 7281 | lookup | |
| 7282 | macros-only-env | |
| 7283 | extend-var-env | |
| 7284 | extend-env | |
| 7285 | null-env | |
| 7286 | binding-value | |
| 7287 | binding-type | |
| 7288 | make-binding | |
| 7289 | arg-check | |
| 7290 | source-annotation | |
| 7291 | no-source | |
| 7292 | set-syntax-object-module! | |
| 7293 | set-syntax-object-wrap! | |
| 7294 | set-syntax-object-expression! | |
| 7295 | syntax-object-module | |
| 7296 | syntax-object-wrap | |
| 7297 | syntax-object-expression | |
| 7298 | syntax-object? | |
| 7299 | make-syntax-object | |
| 7300 | build-lexical-var | |
| 7301 | build-letrec | |
| 7302 | build-named-let | |
| 7303 | build-let | |
| 7304 | build-sequence | |
| 7305 | build-data | |
| 7306 | build-primref | |
| 7307 | build-lambda-case | |
| 7308 | build-case-lambda | |
| 7309 | build-simple-lambda | |
| 7310 | build-global-definition | |
| 7311 | build-global-assignment | |
| 7312 | build-global-reference | |
| 7313 | analyze-variable | |
| 7314 | build-lexical-assignment | |
| 7315 | build-lexical-reference | |
| 7316 | build-dynlet | |
| 7317 | build-conditional | |
| 7318 | build-application | |
| 7319 | build-void | |
| 7320 | maybe-name-value! | |
| 7321 | decorate-source | |
| 7322 | get-global-definition-hook | |
| 7323 | put-global-definition-hook | |
| 7324 | gensym-hook | |
| 7325 | local-eval-hook | |
| 7326 | top-level-eval-hook | |
| 7327 | fx< | |
| 7328 | fx= | |
| 7329 | fx- | |
| 7330 | fx+ | |
| 7331 | set-lambda-meta! | |
| 7332 | lambda-meta | |
| 7333 | lambda? | |
| 7334 | make-dynlet | |
| 7335 | make-letrec | |
| 7336 | make-let | |
| 7337 | make-lambda-case | |
| 7338 | make-lambda | |
| 7339 | make-sequence | |
| 7340 | make-application | |
| 7341 | make-conditional | |
| 7342 | make-toplevel-define | |
| 7343 | make-toplevel-set | |
| 7344 | make-toplevel-ref | |
| 7345 | make-module-set | |
| 7346 | make-module-ref | |
| 7347 | make-lexical-set | |
| 7348 | make-lexical-ref | |
| 7349 | make-primitive-ref | |
| 7350 | make-const | |
| 7351 | make-void) | |
| 7352 | ((top) | |
| 7353 | (top) | |
| 7354 | (top) | |
| 7355 | (top) | |
| 7356 | (top) | |
| 7357 | (top) | |
| 7358 | (top) | |
| 7359 | (top) | |
| 7360 | (top) | |
| 7361 | (top) | |
| 7362 | (top) | |
| 7363 | (top) | |
| 7364 | (top) | |
| 7365 | (top) | |
| 7366 | (top) | |
| 7367 | (top) | |
| 7368 | (top) | |
| 7369 | (top) | |
| 7370 | (top) | |
| 7371 | (top) | |
| 7372 | (top) | |
| 7373 | (top) | |
| 7374 | (top) | |
| 7375 | (top) | |
| 7376 | (top) | |
| 7377 | (top) | |
| 7378 | (top) | |
| 7379 | (top) | |
| 7380 | (top) | |
| 7381 | (top) | |
| 7382 | (top) | |
| 7383 | (top) | |
| 7384 | (top) | |
| 7385 | (top) | |
| 7386 | (top) | |
| 7387 | (top) | |
| 7388 | (top) | |
| 7389 | (top) | |
| 7390 | (top) | |
| 7391 | (top) | |
| 7392 | (top) | |
| 7393 | (top) | |
| 7394 | (top) | |
| 7395 | (top) | |
| 7396 | (top) | |
| 7397 | (top) | |
| 7398 | (top) | |
| 7399 | (top) | |
| 7400 | (top) | |
| 7401 | (top) | |
| 7402 | (top) | |
| 7403 | (top) | |
| 7404 | (top) | |
| 7405 | (top) | |
| 7406 | (top) | |
| 7407 | (top) | |
| 7408 | (top) | |
| 7409 | (top) | |
| 7410 | (top) | |
| 7411 | (top) | |
| 7412 | (top) | |
| 7413 | (top) | |
| 7414 | (top) | |
| 7415 | (top) | |
| 7416 | (top) | |
| 7417 | (top) | |
| 7418 | (top) | |
| 7419 | (top) | |
| 7420 | (top) | |
| 7421 | (top) | |
| 7422 | (top) | |
| 7423 | (top) | |
| 7424 | (top) | |
| 7425 | (top) | |
| 7426 | (top) | |
| 7427 | (top) | |
| 7428 | (top) | |
| 7429 | (top) | |
| 7430 | (top) | |
| 7431 | (top) | |
| 7432 | (top) | |
| 7433 | (top) | |
| 7434 | (top) | |
| 7435 | (top) | |
| 7436 | (top) | |
| 7437 | (top) | |
| 7438 | (top) | |
| 7439 | (top) | |
| 7440 | (top) | |
| 7441 | (top) | |
| 7442 | (top) | |
| 7443 | (top) | |
| 7444 | (top) | |
| 7445 | (top) | |
| 7446 | (top) | |
| 7447 | (top) | |
| 7448 | (top) | |
| 7449 | (top) | |
| 7450 | (top) | |
| 7451 | (top) | |
| 7452 | (top) | |
| 7453 | (top) | |
| 7454 | (top) | |
| 7455 | (top) | |
| 7456 | (top) | |
| 7457 | (top) | |
| 7458 | (top) | |
| 7459 | (top) | |
| 7460 | (top) | |
| 7461 | (top) | |
| 7462 | (top) | |
| 7463 | (top) | |
| 7464 | (top) | |
| 7465 | (top) | |
| 7466 | (top) | |
| 7467 | (top) | |
| 7468 | (top) | |
| 7469 | (top) | |
| 7470 | (top) | |
| 7471 | (top) | |
| 7472 | (top) | |
| 7473 | (top) | |
| 7474 | (top) | |
| 7475 | (top) | |
| 7476 | (top) | |
| 7477 | (top) | |
| 7478 | (top) | |
| 7479 | (top) | |
| 7480 | (top) | |
| 7481 | (top) | |
| 7482 | (top) | |
| 7483 | (top) | |
| 7484 | (top) | |
| 7485 | (top) | |
| 7486 | (top) | |
| 7487 | (top)) | |
| 7488 | ("i466" | |
| 7489 | "i464" | |
| 7490 | "i462" | |
| 7491 | "i460" | |
| 7492 | "i458" | |
| 7493 | "i456" | |
| 7494 | "i454" | |
| 7495 | "i452" | |
| 7496 | "i450" | |
| 7497 | "i448" | |
| 7498 | "i446" | |
| 7499 | "i444" | |
| 7500 | "i442" | |
| 7501 | "i440" | |
| 7502 | "i438" | |
| 7503 | "i436" | |
| 7504 | "i434" | |
| 7505 | "i432" | |
| 7506 | "i430" | |
| 7507 | "i428" | |
| 7508 | "i426" | |
| 7509 | "i424" | |
| 7510 | "i422" | |
| 7511 | "i420" | |
| 7512 | "i418" | |
| 7513 | "i416" | |
| 7514 | "i414" | |
| 7515 | "i412" | |
| 7516 | "i410" | |
| 7517 | "i408" | |
| 7518 | "i406" | |
| 7519 | "i404" | |
| 7520 | "i402" | |
| 7521 | "i400" | |
| 7522 | "i398" | |
| 7523 | "i397" | |
| 7524 | "i395" | |
| 7525 | "i392" | |
| 7526 | "i391" | |
| 7527 | "i390" | |
| 7528 | "i388" | |
| 7529 | "i387" | |
| 7530 | "i385" | |
| 7531 | "i383" | |
| 7532 | "i381" | |
| 7533 | "i379" | |
| 7534 | "i377" | |
| 7535 | "i375" | |
| 7536 | "i373" | |
| 7537 | "i371" | |
| 7538 | "i368" | |
| 7539 | "i366" | |
| 7540 | "i365" | |
| 7541 | "i363" | |
| 7542 | "i361" | |
| 7543 | "i359" | |
| 7544 | "i357" | |
| 7545 | "i356" | |
| 7546 | "i355" | |
| 7547 | "i354" | |
| 7548 | "i352" | |
| 7549 | "i351" | |
| 7550 | "i348" | |
| 7551 | "i346" | |
| 7552 | "i344" | |
| 7553 | "i342" | |
| 7554 | "i340" | |
| 7555 | "i338" | |
| 7556 | "i336" | |
| 7557 | "i335" | |
| 7558 | "i334" | |
| 7559 | "i332" | |
| 7560 | "i330" | |
| 7561 | "i329" | |
| 7562 | "i326" | |
| 7563 | "i325" | |
| 7564 | "i323" | |
| 7565 | "i321" | |
| 7566 | "i319" | |
| 7567 | "i317" | |
| 7568 | "i315" | |
| 7569 | "i313" | |
| 7570 | "i311" | |
| 7571 | "i309" | |
| 7572 | "i307" | |
| 7573 | "i304" | |
| 7574 | "i302" | |
| 7575 | "i300" | |
| 7576 | "i298" | |
| 7577 | "i296" | |
| 7578 | "i294" | |
| 7579 | "i292" | |
| 7580 | "i290" | |
| 7581 | "i288" | |
| 7582 | "i286" | |
| 7583 | "i284" | |
| 7584 | "i282" | |
| 7585 | "i280" | |
| 7586 | "i278" | |
| 7587 | "i276" | |
| 7588 | "i274" | |
| 7589 | "i272" | |
| 7590 | "i270" | |
| 7591 | "i268" | |
| 7592 | "i266" | |
| 7593 | "i264" | |
| 7594 | "i262" | |
| 7595 | "i260" | |
| 7596 | "i259" | |
| 7597 | "i256" | |
| 7598 | "i254" | |
| 7599 | "i253" | |
| 7600 | "i252" | |
| 7601 | "i251" | |
| 7602 | "i250" | |
| 7603 | "i248" | |
| 7604 | "i246" | |
| 7605 | "i244" | |
| 7606 | "i241" | |
| 7607 | "i239" | |
| 7608 | "i237" | |
| 7609 | "i235" | |
| 7610 | "i233" | |
| 7611 | "i231" | |
| 7612 | "i229" | |
| 7613 | "i227" | |
| 7614 | "i225" | |
| 7615 | "i223" | |
| 7616 | "i221" | |
| 7617 | "i219" | |
| 7618 | "i217" | |
| 7619 | "i215" | |
| 7620 | "i213" | |
| 7621 | "i211" | |
| 7622 | "i209" | |
| 7623 | "i207")) | |
| 7624 | #(ribcage | |
| 7625 | (define-structure | |
| 7626 | define-expansion-accessors | |
| 7627 | define-expansion-constructors) | |
| 7628 | ((top) (top) (top)) | |
| 7629 | ("i45" "i44" "i43"))) | |
| 7630 | (hygiene guile))))) | |
| 7631 | #{rkey 2413}#)))) | |
| 7632 | #{tmp 2420}#) | |
| 7633 | (let ((#{tmp 2433}# | |
| 7634 | ($sc-dispatch #{args 2410}# '((any any) . any)))) | |
| 7635 | (if (if #{tmp 2433}# | |
| 7636 | (@apply | |
| 7637 | (lambda (#{a 2437}# #{init 2438}# #{b 2439}#) | |
| 7638 | (#{id? 349}# #{a 2437}#)) | |
| 7639 | #{tmp 2433}#) | |
| 7640 | #f) | |
| 7641 | (@apply | |
| 7642 | (lambda (#{a 2443}# #{init 2444}# #{b 2445}#) | |
| 7643 | (let ((#{tmp 2447}# | |
| 7644 | (symbol->keyword | |
| 7645 | (syntax->datum #{a 2443}#)))) | |
| 7646 | (#{key 2301}# | |
| 7647 | #{b 2445}# | |
| 7648 | #{req 2411}# | |
| 7649 | #{opt 2412}# | |
| 7650 | (cons (list #{tmp 2447}# | |
| 7651 | #{a 2443}# | |
| 7652 | #{init 2444}#) | |
| 7653 | #{rkey 2413}#)))) | |
| 7654 | #{tmp 2433}#) | |
| 7655 | (let ((#{tmp 2450}# | |
| 7656 | ($sc-dispatch | |
| 7657 | #{args 2410}# | |
| 7658 | '((any any any) . any)))) | |
| 7659 | (if (if #{tmp 2450}# | |
| 7660 | (@apply | |
| 7661 | (lambda (#{a 2455}# | |
| 7662 | #{init 2456}# | |
| 7663 | #{k 2457}# | |
| 7664 | #{b 2458}#) | |
| 7665 | (if (#{id? 349}# #{a 2455}#) | |
| 7666 | (keyword? (syntax->datum #{k 2457}#)) | |
| 7667 | #f)) | |
| 7668 | #{tmp 2450}#) | |
| 7669 | #f) | |
| 7670 | (@apply | |
| 7671 | (lambda (#{a 2465}# | |
| 7672 | #{init 2466}# | |
| 7673 | #{k 2467}# | |
| 7674 | #{b 2468}#) | |
| 7675 | (#{key 2301}# | |
| 7676 | #{b 2468}# | |
| 7677 | #{req 2411}# | |
| 7678 | #{opt 2412}# | |
| 7679 | (cons (list #{k 2467}# | |
| 7680 | #{a 2465}# | |
| 7681 | #{init 2466}#) | |
| 7682 | #{rkey 2413}#))) | |
| 7683 | #{tmp 2450}#) | |
| 7684 | (let ((#{tmp 2469}# | |
| 7685 | ($sc-dispatch #{args 2410}# '(any)))) | |
| 7686 | (if (if #{tmp 2469}# | |
| 7687 | (@apply | |
| 7688 | (lambda (#{aok 2471}#) | |
| 7689 | (eq? (syntax->datum #{aok 2471}#) | |
| 7690 | #:allow-other-keys)) | |
| 7691 | #{tmp 2469}#) | |
| 7692 | #f) | |
| 7693 | (@apply | |
| 7694 | (lambda (#{aok 2473}#) | |
| 7695 | (#{check 2305}# | |
| 7696 | #{req 2411}# | |
| 7697 | #{opt 2412}# | |
| 7698 | #f | |
| 7699 | (cons #t (reverse #{rkey 2413}#)))) | |
| 7700 | #{tmp 2469}#) | |
| 7701 | (let ((#{tmp 2474}# | |
| 7702 | ($sc-dispatch | |
| 7703 | #{args 2410}# | |
| 7704 | '(any any any)))) | |
| 7705 | (if (if #{tmp 2474}# | |
| 7706 | (@apply | |
| 7707 | (lambda (#{aok 2478}# | |
| 7708 | #{a 2479}# | |
| 7709 | #{b 2480}#) | |
| 7710 | (if (eq? (syntax->datum | |
| 7711 | #{aok 2478}#) | |
| 7712 | #:allow-other-keys) | |
| 7713 | (eq? (syntax->datum #{a 2479}#) | |
| 7714 | #:rest) | |
| 7715 | #f)) | |
| 7716 | #{tmp 2474}#) | |
| 7717 | #f) | |
| 7718 | (@apply | |
| 7719 | (lambda (#{aok 2486}# | |
| 7720 | #{a 2487}# | |
| 7721 | #{b 2488}#) | |
| 7722 | (#{rest 2303}# | |
| 7723 | #{b 2488}# | |
| 7724 | #{req 2411}# | |
| 7725 | #{opt 2412}# | |
| 7726 | (cons #t (reverse #{rkey 2413}#)))) | |
| 7727 | #{tmp 2474}#) | |
| 7728 | (let ((#{tmp 2489}# | |
| 7729 | ($sc-dispatch | |
| 7730 | #{args 2410}# | |
| 7731 | '(any . any)))) | |
| 7732 | (if (if #{tmp 2489}# | |
| 7733 | (@apply | |
| 7734 | (lambda (#{aok 2492}# | |
| 7735 | #{r 2493}#) | |
| 7736 | (if (eq? (syntax->datum | |
| 7737 | #{aok 2492}#) | |
| 7738 | #:allow-other-keys) | |
| 7739 | (#{id? 349}# #{r 2493}#) | |
| 7740 | #f)) | |
| 7741 | #{tmp 2489}#) | |
| 7742 | #f) | |
| 7743 | (@apply | |
| 7744 | (lambda (#{aok 2498}# #{r 2499}#) | |
| 7745 | (#{rest 2303}# | |
| 7746 | #{r 2499}# | |
| 7747 | #{req 2411}# | |
| 7748 | #{opt 2412}# | |
| 7749 | (cons #t | |
| 7750 | (reverse | |
| 7751 | #{rkey 2413}#)))) | |
| 7752 | #{tmp 2489}#) | |
| 7753 | (let ((#{tmp 2500}# | |
| 7754 | ($sc-dispatch | |
| 7755 | #{args 2410}# | |
| 7756 | '(any any)))) | |
| 7757 | (if (if #{tmp 2500}# | |
| 7758 | (@apply | |
| 7759 | (lambda (#{a 2503}# | |
| 7760 | #{b 2504}#) | |
| 7761 | (eq? (syntax->datum | |
| 7762 | #{a 2503}#) | |
| 7763 | #:rest)) | |
| 7764 | #{tmp 2500}#) | |
| 7765 | #f) | |
| 7766 | (@apply | |
| 7767 | (lambda (#{a 2507}# #{b 2508}#) | |
| 7768 | (#{rest 2303}# | |
| 7769 | #{b 2508}# | |
| 7770 | #{req 2411}# | |
| 7771 | #{opt 2412}# | |
| 7772 | (cons #f | |
| 7773 | (reverse | |
| 7774 | #{rkey 2413}#)))) | |
| 7775 | #{tmp 2500}#) | |
| 7776 | (let ((#{tmp 2509}# | |
| 7777 | (list #{args 2410}#))) | |
| 7778 | (if (if #{tmp 2509}# | |
| 7779 | (@apply | |
| 7780 | (lambda (#{r 2511}#) | |
| 7781 | (#{id? 349}# | |
| 7782 | #{r 2511}#)) | |
| 7783 | #{tmp 2509}#) | |
| 7784 | #f) | |
| 7785 | (@apply | |
| 7786 | (lambda (#{r 2513}#) | |
| 7787 | (#{rest 2303}# | |
| 7788 | #{r 2513}# | |
| 7789 | #{req 2411}# | |
| 7790 | #{opt 2412}# | |
| 7791 | (cons #f | |
| 7792 | (reverse | |
| 7793 | #{rkey 2413}#)))) | |
| 7794 | #{tmp 2509}#) | |
| 7795 | (syntax-violation | |
| 7796 | 'lambda* | |
| 7797 | "invalid keyword argument list" | |
| 7798 | #{orig-args 2294}# | |
| 7799 | #{args 2410}#))))))))))))))))))))) | |
| 7800 | (#{rest 2303}# | |
| 7801 | (lambda (#{args 2516}# | |
| 7802 | #{req 2517}# | |
| 7803 | #{opt 2518}# | |
| 7804 | #{kw 2519}#) | |
| 7805 | (let ((#{tmp 2525}# (list #{args 2516}#))) | |
| 7806 | (if (if #{tmp 2525}# | |
| 7807 | (@apply | |
| 7808 | (lambda (#{r 2527}#) (#{id? 349}# #{r 2527}#)) | |
| 7809 | #{tmp 2525}#) | |
| 7810 | #f) | |
| 7811 | (@apply | |
| 7812 | (lambda (#{r 2529}#) | |
| 7813 | (#{check 2305}# | |
| 7814 | #{req 2517}# | |
| 7815 | #{opt 2518}# | |
| 7816 | #{r 2529}# | |
| 7817 | #{kw 2519}#)) | |
| 7818 | #{tmp 2525}#) | |
| 7819 | (syntax-violation | |
| 7820 | 'lambda* | |
| 7821 | "invalid rest argument" | |
| 7822 | #{orig-args 2294}# | |
| 7823 | #{args 2516}#))))) | |
| 7824 | (#{check 2305}# | |
| 7825 | (lambda (#{req 2532}# | |
| 7826 | #{opt 2533}# | |
| 7827 | #{rest 2534}# | |
| 7828 | #{kw 2535}#) | |
| 7829 | (if (#{distinct-bound-ids? 419}# | |
| 7830 | (append | |
| 7831 | #{req 2532}# | |
| 7832 | (map car #{opt 2533}#) | |
| 7833 | (if #{rest 2534}# (list #{rest 2534}#) '()) | |
| 7834 | (if (pair? #{kw 2535}#) | |
| 7835 | (map cadr (cdr #{kw 2535}#)) | |
| 7836 | '()))) | |
| 7837 | (values | |
| 7838 | #{req 2532}# | |
| 7839 | #{opt 2533}# | |
| 7840 | #{rest 2534}# | |
| 7841 | #{kw 2535}#) | |
| 7842 | (syntax-violation | |
| 7843 | 'lambda* | |
| 7844 | "duplicate identifier in argument list" | |
| 7845 | #{orig-args 2294}#))))) | |
| 7846 | (#{req 2297}# #{orig-args 2294}# '())))) | |
| 7847 | (#{chi-lambda-case 461}# | |
| 7848 | (lambda (#{e 2543}# | |
| 7849 | #{r 2544}# | |
| 7850 | #{w 2545}# | |
| 7851 | #{s 2546}# | |
| 7852 | #{mod 2547}# | |
| 7853 | #{get-formals 2548}# | |
| 7854 | #{clauses 2549}#) | |
| 7855 | (letrec* | |
| 7856 | ((#{expand-opt 2560}# | |
| 7857 | (lambda (#{req 2583}# | |
| 7858 | #{opt 2584}# | |
| 7859 | #{rest 2585}# | |
| 7860 | #{kw 2586}# | |
| 7861 | #{body 2587}# | |
| 7862 | #{vars 2588}# | |
| 7863 | #{r* 2589}# | |
| 7864 | #{w* 2590}# | |
| 7865 | #{out 2591}# | |
| 7866 | #{inits 2592}#) | |
| 7867 | (if (pair? #{opt 2584}#) | |
| 7868 | (let ((#{tmp 2605}# (car #{opt 2584}#))) | |
| 7869 | (let ((#{tmp 2606}# | |
| 7870 | ($sc-dispatch #{tmp 2605}# '(any any)))) | |
| 7871 | (if #{tmp 2606}# | |
| 7872 | (@apply | |
| 7873 | (lambda (#{id 2609}# #{i 2610}#) | |
| 7874 | (let ((#{v 2613}# (#{gen-var 465}# #{id 2609}#))) | |
| 7875 | (let ((#{l 2615}# | |
| 7876 | (#{gen-labels 369}# (list #{v 2613}#)))) | |
| 7877 | (let ((#{r** 2617}# | |
| 7878 | (#{extend-var-env 339}# | |
| 7879 | #{l 2615}# | |
| 7880 | (list #{v 2613}#) | |
| 7881 | #{r* 2589}#))) | |
| 7882 | (let ((#{w** 2619}# | |
| 7883 | (#{make-binding-wrap 401}# | |
| 7884 | (list #{id 2609}#) | |
| 7885 | #{l 2615}# | |
| 7886 | #{w* 2590}#))) | |
| 7887 | (#{expand-opt 2560}# | |
| 7888 | #{req 2583}# | |
| 7889 | (cdr #{opt 2584}#) | |
| 7890 | #{rest 2585}# | |
| 7891 | #{kw 2586}# | |
| 7892 | #{body 2587}# | |
| 7893 | (cons #{v 2613}# #{vars 2588}#) | |
| 7894 | #{r** 2617}# | |
| 7895 | #{w** 2619}# | |
| 7896 | (cons (syntax->datum #{id 2609}#) | |
| 7897 | #{out 2591}#) | |
| 7898 | (cons (#{chi 437}# | |
| 7899 | #{i 2610}# | |
| 7900 | #{r* 2589}# | |
| 7901 | #{w* 2590}# | |
| 7902 | #{mod 2547}#) | |
| 7903 | #{inits 2592}#))))))) | |
| 7904 | #{tmp 2606}#) | |
| 7905 | (syntax-violation | |
| 7906 | #f | |
| 7907 | "source expression failed to match any pattern" | |
| 7908 | #{tmp 2605}#)))) | |
| 7909 | (if #{rest 2585}# | |
| 7910 | (let ((#{v 2624}# (#{gen-var 465}# #{rest 2585}#))) | |
| 7911 | (let ((#{l 2626}# | |
| 7912 | (#{gen-labels 369}# (list #{v 2624}#)))) | |
| 7913 | (let ((#{r* 2628}# | |
| 7914 | (#{extend-var-env 339}# | |
| 7915 | #{l 2626}# | |
| 7916 | (list #{v 2624}#) | |
| 7917 | #{r* 2589}#))) | |
| 7918 | (let ((#{w* 2630}# | |
| 7919 | (#{make-binding-wrap 401}# | |
| 7920 | (list #{rest 2585}#) | |
| 7921 | #{l 2626}# | |
| 7922 | #{w* 2590}#))) | |
| 7923 | (#{expand-kw 2562}# | |
| 7924 | #{req 2583}# | |
| 7925 | (if (pair? #{out 2591}#) | |
| 7926 | (reverse #{out 2591}#) | |
| 7927 | #f) | |
| 7928 | (syntax->datum #{rest 2585}#) | |
| 7929 | (if (pair? #{kw 2586}#) | |
| 7930 | (cdr #{kw 2586}#) | |
| 7931 | #{kw 2586}#) | |
| 7932 | #{body 2587}# | |
| 7933 | (cons #{v 2624}# #{vars 2588}#) | |
| 7934 | #{r* 2628}# | |
| 7935 | #{w* 2630}# | |
| 7936 | (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f) | |
| 7937 | '() | |
| 7938 | #{inits 2592}#))))) | |
| 7939 | (#{expand-kw 2562}# | |
| 7940 | #{req 2583}# | |
| 7941 | (if (pair? #{out 2591}#) | |
| 7942 | (reverse #{out 2591}#) | |
| 7943 | #f) | |
| 7944 | #f | |
| 7945 | (if (pair? #{kw 2586}#) | |
| 7946 | (cdr #{kw 2586}#) | |
| 7947 | #{kw 2586}#) | |
| 7948 | #{body 2587}# | |
| 7949 | #{vars 2588}# | |
| 7950 | #{r* 2589}# | |
| 7951 | #{w* 2590}# | |
| 7952 | (if (pair? #{kw 2586}#) (car #{kw 2586}#) #f) | |
| 7953 | '() | |
| 7954 | #{inits 2592}#))))) | |
| 7955 | (#{expand-kw 2562}# | |
| 7956 | (lambda (#{req 2632}# | |
| 7957 | #{opt 2633}# | |
| 7958 | #{rest 2634}# | |
| 7959 | #{kw 2635}# | |
| 7960 | #{body 2636}# | |
| 7961 | #{vars 2637}# | |
| 7962 | #{r* 2638}# | |
| 7963 | #{w* 2639}# | |
| 7964 | #{aok 2640}# | |
| 7965 | #{out 2641}# | |
| 7966 | #{inits 2642}#) | |
| 7967 | (if (pair? #{kw 2635}#) | |
| 7968 | (let ((#{tmp 2656}# (car #{kw 2635}#))) | |
| 7969 | (let ((#{tmp 2657}# | |
| 7970 | ($sc-dispatch #{tmp 2656}# '(any any any)))) | |
| 7971 | (if #{tmp 2657}# | |
| 7972 | (@apply | |
| 7973 | (lambda (#{k 2661}# #{id 2662}# #{i 2663}#) | |
| 7974 | (let ((#{v 2666}# (#{gen-var 465}# #{id 2662}#))) | |
| 7975 | (let ((#{l 2668}# | |
| 7976 | (#{gen-labels 369}# (list #{v 2666}#)))) | |
| 7977 | (let ((#{r** 2670}# | |
| 7978 | (#{extend-var-env 339}# | |
| 7979 | #{l 2668}# | |
| 7980 | (list #{v 2666}#) | |
| 7981 | #{r* 2638}#))) | |
| 7982 | (let ((#{w** 2672}# | |
| 7983 | (#{make-binding-wrap 401}# | |
| 7984 | (list #{id 2662}#) | |
| 7985 | #{l 2668}# | |
| 7986 | #{w* 2639}#))) | |
| 7987 | (#{expand-kw 2562}# | |
| 7988 | #{req 2632}# | |
| 7989 | #{opt 2633}# | |
| 7990 | #{rest 2634}# | |
| 7991 | (cdr #{kw 2635}#) | |
| 7992 | #{body 2636}# | |
| 7993 | (cons #{v 2666}# #{vars 2637}#) | |
| 7994 | #{r** 2670}# | |
| 7995 | #{w** 2672}# | |
| 7996 | #{aok 2640}# | |
| 7997 | (cons (list (syntax->datum #{k 2661}#) | |
| 7998 | (syntax->datum #{id 2662}#) | |
| 7999 | #{v 2666}#) | |
| 8000 | #{out 2641}#) | |
| 8001 | (cons (#{chi 437}# | |
| 8002 | #{i 2663}# | |
| 8003 | #{r* 2638}# | |
| 8004 | #{w* 2639}# | |
| 8005 | #{mod 2547}#) | |
| 8006 | #{inits 2642}#))))))) | |
| 8007 | #{tmp 2657}#) | |
| 8008 | (syntax-violation | |
| 8009 | #f | |
| 8010 | "source expression failed to match any pattern" | |
| 8011 | #{tmp 2656}#)))) | |
| 8012 | (#{expand-body 2564}# | |
| 8013 | #{req 2632}# | |
| 8014 | #{opt 2633}# | |
| 8015 | #{rest 2634}# | |
| 8016 | (if (if #{aok 2640}# | |
| 8017 | #{aok 2640}# | |
| 8018 | (pair? #{out 2641}#)) | |
| 8019 | (cons #{aok 2640}# (reverse #{out 2641}#)) | |
| 8020 | #f) | |
| 8021 | #{body 2636}# | |
| 8022 | (reverse #{vars 2637}#) | |
| 8023 | #{r* 2638}# | |
| 8024 | #{w* 2639}# | |
| 8025 | (reverse #{inits 2642}#) | |
| 8026 | '())))) | |
| 8027 | (#{expand-body 2564}# | |
| 8028 | (lambda (#{req 2678}# | |
| 8029 | #{opt 2679}# | |
| 8030 | #{rest 2680}# | |
| 8031 | #{kw 2681}# | |
| 8032 | #{body 2682}# | |
| 8033 | #{vars 2683}# | |
| 8034 | #{r* 2684}# | |
| 8035 | #{w* 2685}# | |
| 8036 | #{inits 2686}# | |
| 8037 | #{meta 2687}#) | |
| 8038 | (let ((#{tmp 2699}# | |
| 8039 | ($sc-dispatch | |
| 8040 | #{body 2682}# | |
| 8041 | '(any any . each-any)))) | |
| 8042 | (if (if #{tmp 2699}# | |
| 8043 | (@apply | |
| 8044 | (lambda (#{docstring 2703}# #{e1 2704}# #{e2 2705}#) | |
| 8045 | (string? (syntax->datum #{docstring 2703}#))) | |
| 8046 | #{tmp 2699}#) | |
| 8047 | #f) | |
| 8048 | (@apply | |
| 8049 | (lambda (#{docstring 2709}# #{e1 2710}# #{e2 2711}#) | |
| 8050 | (#{expand-body 2564}# | |
| 8051 | #{req 2678}# | |
| 8052 | #{opt 2679}# | |
| 8053 | #{rest 2680}# | |
| 8054 | #{kw 2681}# | |
| 8055 | (cons #{e1 2710}# #{e2 2711}#) | |
| 8056 | #{vars 2683}# | |
| 8057 | #{r* 2684}# | |
| 8058 | #{w* 2685}# | |
| 8059 | #{inits 2686}# | |
| 8060 | (append | |
| 8061 | #{meta 2687}# | |
| 8062 | (list (cons 'documentation | |
| 8063 | (syntax->datum #{docstring 2709}#)))))) | |
| 8064 | #{tmp 2699}#) | |
| 8065 | (let ((#{tmp 2714}# | |
| 8066 | ($sc-dispatch | |
| 8067 | #{body 2682}# | |
| 8068 | '(#(vector #(each (any . any))) any . each-any)))) | |
| 8069 | (if #{tmp 2714}# | |
| 8070 | (@apply | |
| 8071 | (lambda (#{k 2719}# #{v 2720}# #{e1 2721}# #{e2 2722}#) | |
| 8072 | (#{expand-body 2564}# | |
| 8073 | #{req 2678}# | |
| 8074 | #{opt 2679}# | |
| 8075 | #{rest 2680}# | |
| 8076 | #{kw 2681}# | |
| 8077 | (cons #{e1 2721}# #{e2 2722}#) | |
| 8078 | #{vars 2683}# | |
| 8079 | #{r* 2684}# | |
| 8080 | #{w* 2685}# | |
| 8081 | #{inits 2686}# | |
| 8082 | (append | |
| 8083 | #{meta 2687}# | |
| 8084 | (syntax->datum | |
| 8085 | (map cons #{k 2719}# #{v 2720}#))))) | |
| 8086 | #{tmp 2714}#) | |
| 8087 | (let ((#{tmp 2726}# | |
| 8088 | ($sc-dispatch #{body 2682}# '(any . each-any)))) | |
| 8089 | (if #{tmp 2726}# | |
| 8090 | (@apply | |
| 8091 | (lambda (#{e1 2729}# #{e2 2730}#) | |
| 8092 | (values | |
| 8093 | #{meta 2687}# | |
| 8094 | #{req 2678}# | |
| 8095 | #{opt 2679}# | |
| 8096 | #{rest 2680}# | |
| 8097 | #{kw 2681}# | |
| 8098 | #{inits 2686}# | |
| 8099 | #{vars 2683}# | |
| 8100 | (#{chi-body 445}# | |
| 8101 | (cons #{e1 2729}# #{e2 2730}#) | |
| 8102 | (#{source-wrap 425}# | |
| 8103 | #{e 2543}# | |
| 8104 | #{w 2545}# | |
| 8105 | #{s 2546}# | |
| 8106 | #{mod 2547}#) | |
| 8107 | #{r* 2684}# | |
| 8108 | #{w* 2685}# | |
| 8109 | #{mod 2547}#))) | |
| 8110 | #{tmp 2726}#) | |
| 8111 | (syntax-violation | |
| 8112 | #f | |
| 8113 | "source expression failed to match any pattern" | |
| 8114 | #{body 2682}#)))))))))) | |
| 8115 | (let ((#{tmp 2733}# | |
| 8116 | ($sc-dispatch #{clauses 2549}# '()))) | |
| 8117 | (if #{tmp 2733}# | |
| 8118 | (@apply (lambda () (values '() #f)) #{tmp 2733}#) | |
| 8119 | (let ((#{tmp 2734}# | |
| 8120 | ($sc-dispatch | |
| 8121 | #{clauses 2549}# | |
| 8122 | '((any any . each-any) | |
| 8123 | . | |
| 8124 | #(each (any any . each-any)))))) | |
| 8125 | (if #{tmp 2734}# | |
| 8126 | (@apply | |
| 8127 | (lambda (#{args 2741}# | |
| 8128 | #{e1 2742}# | |
| 8129 | #{e2 2743}# | |
| 8130 | #{args* 2744}# | |
| 8131 | #{e1* 2745}# | |
| 8132 | #{e2* 2746}#) | |
| 8133 | (call-with-values | |
| 8134 | (lambda () (#{get-formals 2548}# #{args 2741}#)) | |
| 8135 | (lambda (#{req 2747}# | |
| 8136 | #{opt 2748}# | |
| 8137 | #{rest 2749}# | |
| 8138 | #{kw 2750}#) | |
| 8139 | (call-with-values | |
| 8140 | (lambda () | |
| 8141 | (let ((#{body 4788}# | |
| 8142 | (cons #{e1 2742}# #{e2 2743}#))) | |
| 8143 | (let ((#{vars 4789}# | |
| 8144 | (map #{gen-var 465}# #{req 2747}#)) | |
| 8145 | (#{labels 4790}# | |
| 8146 | (#{gen-labels 369}# #{req 2747}#))) | |
| 8147 | (let ((#{r* 4791}# | |
| 8148 | (#{extend-var-env 339}# | |
| 8149 | #{labels 4790}# | |
| 8150 | #{vars 4789}# | |
| 8151 | #{r 2544}#)) | |
| 8152 | (#{w* 4792}# | |
| 8153 | (#{make-binding-wrap 401}# | |
| 8154 | #{req 2747}# | |
| 8155 | #{labels 4790}# | |
| 8156 | #{w 2545}#))) | |
| 8157 | (#{expand-opt 2560}# | |
| 8158 | (map syntax->datum #{req 2747}#) | |
| 8159 | #{opt 2748}# | |
| 8160 | #{rest 2749}# | |
| 8161 | #{kw 2750}# | |
| 8162 | #{body 4788}# | |
| 8163 | (reverse #{vars 4789}#) | |
| 8164 | #{r* 4791}# | |
| 8165 | #{w* 4792}# | |
| 8166 | '() | |
| 8167 | '()))))) | |
| 8168 | (lambda (#{meta 2756}# | |
| 8169 | #{req 2757}# | |
| 8170 | #{opt 2758}# | |
| 8171 | #{rest 2759}# | |
| 8172 | #{kw 2760}# | |
| 8173 | #{inits 2761}# | |
| 8174 | #{vars 2762}# | |
| 8175 | #{body 2763}#) | |
| 8176 | (call-with-values | |
| 8177 | (lambda () | |
| 8178 | (#{chi-lambda-case 461}# | |
| 8179 | #{e 2543}# | |
| 8180 | #{r 2544}# | |
| 8181 | #{w 2545}# | |
| 8182 | #{s 2546}# | |
| 8183 | #{mod 2547}# | |
| 8184 | #{get-formals 2548}# | |
| 8185 | (map (lambda (#{tmp 2774}# | |
| 8186 | #{tmp 2773}# | |
| 8187 | #{tmp 2772}#) | |
| 8188 | (cons #{tmp 2772}# | |
| 8189 | (cons #{tmp 2773}# | |
| 8190 | #{tmp 2774}#))) | |
| 8191 | #{e2* 2746}# | |
| 8192 | #{e1* 2745}# | |
| 8193 | #{args* 2744}#))) | |
| 8194 | (lambda (#{meta* 2776}# #{else* 2777}#) | |
| 8195 | (values | |
| 8196 | (append #{meta 2756}# #{meta* 2776}#) | |
| 8197 | (#{build-lambda-case 293}# | |
| 8198 | #{s 2546}# | |
| 8199 | #{req 2757}# | |
| 8200 | #{opt 2758}# | |
| 8201 | #{rest 2759}# | |
| 8202 | #{kw 2760}# | |
| 8203 | #{inits 2761}# | |
| 8204 | #{vars 2762}# | |
| 8205 | #{body 2763}# | |
| 8206 | #{else* 2777}#))))))))) | |
| 8207 | #{tmp 2734}#) | |
| 8208 | (syntax-violation | |
| 8209 | #f | |
| 8210 | "source expression failed to match any pattern" | |
| 8211 | #{clauses 2549}#)))))))) | |
| 8212 | (#{strip 463}# | |
| 8213 | (lambda (#{x 2780}# #{w 2781}#) | |
| 8214 | (if (memq 'top (car #{w 2781}#)) | |
| 8215 | #{x 2780}# | |
| 8216 | (letrec* | |
| 8217 | ((#{f 2788}# | |
| 8218 | (lambda (#{x 2789}#) | |
| 8219 | (if (#{syntax-object? 312}# #{x 2789}#) | |
| 8220 | (#{strip 463}# | |
| 8221 | (#{syntax-object-expression 314}# #{x 2789}#) | |
| 8222 | (#{syntax-object-wrap 316}# #{x 2789}#)) | |
| 8223 | (if (pair? #{x 2789}#) | |
| 8224 | (let ((#{a 2796}# (#{f 2788}# (car #{x 2789}#))) | |
| 8225 | (#{d 2797}# (#{f 2788}# (cdr #{x 2789}#)))) | |
| 8226 | (if (if (eq? #{a 2796}# (car #{x 2789}#)) | |
| 8227 | (eq? #{d 2797}# (cdr #{x 2789}#)) | |
| 8228 | #f) | |
| 8229 | #{x 2789}# | |
| 8230 | (cons #{a 2796}# #{d 2797}#))) | |
| 8231 | (if (vector? #{x 2789}#) | |
| 8232 | (let ((#{old 2803}# (vector->list #{x 2789}#))) | |
| 8233 | (let ((#{new 2805}# (map #{f 2788}# #{old 2803}#))) | |
| 8234 | (letrec* | |
| 8235 | ((#{lp 2809}# | |
| 8236 | (lambda (#{l1 2810}# #{l2 2811}#) | |
| 8237 | (if (null? #{l1 2810}#) | |
| 8238 | #{x 2789}# | |
| 8239 | (if (eq? (car #{l1 2810}#) | |
| 8240 | (car #{l2 2811}#)) | |
| 8241 | (#{lp 2809}# | |
| 8242 | (cdr #{l1 2810}#) | |
| 8243 | (cdr #{l2 2811}#)) | |
| 8244 | (list->vector #{new 2805}#)))))) | |
| 8245 | (#{lp 2809}# #{old 2803}# #{new 2805}#)))) | |
| 8246 | #{x 2789}#)))))) | |
| 8247 | (#{f 2788}# #{x 2780}#))))) | |
| 8248 | (#{gen-var 465}# | |
| 8249 | (lambda (#{id 2813}#) | |
| 8250 | (let ((#{id 2816}# | |
| 8251 | (if (#{syntax-object? 312}# #{id 2813}#) | |
| 8252 | (#{syntax-object-expression 314}# #{id 2813}#) | |
| 8253 | #{id 2813}#))) | |
| 8254 | (gensym | |
| 8255 | (string-append (symbol->string #{id 2816}#) " "))))) | |
| 8256 | (#{lambda-var-list 467}# | |
| 8257 | (lambda (#{vars 2818}#) | |
| 8258 | (letrec* | |
| 8259 | ((#{lvl 2824}# | |
| 8260 | (lambda (#{vars 2825}# #{ls 2826}# #{w 2827}#) | |
| 8261 | (if (pair? #{vars 2825}#) | |
| 8262 | (#{lvl 2824}# | |
| 8263 | (cdr #{vars 2825}#) | |
| 8264 | (cons (#{wrap 423}# (car #{vars 2825}#) #{w 2827}# #f) | |
| 8265 | #{ls 2826}#) | |
| 8266 | #{w 2827}#) | |
| 8267 | (if (#{id? 349}# #{vars 2825}#) | |
| 8268 | (cons (#{wrap 423}# #{vars 2825}# #{w 2827}# #f) | |
| 8269 | #{ls 2826}#) | |
| 8270 | (if (null? #{vars 2825}#) | |
| 8271 | #{ls 2826}# | |
| 8272 | (if (#{syntax-object? 312}# #{vars 2825}#) | |
| 8273 | (#{lvl 2824}# | |
| 8274 | (#{syntax-object-expression 314}# #{vars 2825}#) | |
| 8275 | #{ls 2826}# | |
| 8276 | (#{join-wraps 405}# | |
| 8277 | #{w 2827}# | |
| 8278 | (#{syntax-object-wrap 316}# #{vars 2825}#))) | |
| 8279 | (cons #{vars 2825}# #{ls 2826}#)))))))) | |
| 8280 | (#{lvl 2824}# #{vars 2818}# '() '(())))))) | |
| 8281 | (begin | |
| 8282 | (module-define! | |
| 8283 | (current-module) | |
| 8284 | 'letrec-syntax | |
| 8285 | (make-syntax-transformer | |
| 8286 | 'letrec-syntax | |
| 8287 | 'local-syntax | |
| 8288 | #t)) | |
| 8289 | (module-define! | |
| 8290 | (current-module) | |
| 8291 | 'let-syntax | |
| 8292 | (make-syntax-transformer | |
| 8293 | 'let-syntax | |
| 8294 | 'local-syntax | |
| 8295 | #f)) | |
| 8296 | (#{global-extend 345}# | |
| 8297 | 'core | |
| 8298 | 'fluid-let-syntax | |
| 8299 | (lambda (#{e 2838}# | |
| 8300 | #{r 2839}# | |
| 8301 | #{w 2840}# | |
| 8302 | #{s 2841}# | |
| 8303 | #{mod 2842}#) | |
| 8304 | (let ((#{tmp 2849}# | |
| 8305 | ($sc-dispatch | |
| 8306 | #{e 2838}# | |
| 8307 | '(_ #(each (any any)) any . each-any)))) | |
| 8308 | (if (if #{tmp 2849}# | |
| 8309 | (@apply | |
| 8310 | (lambda (#{var 2854}# | |
| 8311 | #{val 2855}# | |
| 8312 | #{e1 2856}# | |
| 8313 | #{e2 2857}#) | |
| 8314 | (#{valid-bound-ids? 417}# #{var 2854}#)) | |
| 8315 | #{tmp 2849}#) | |
| 8316 | #f) | |
| 8317 | (@apply | |
| 8318 | (lambda (#{var 2863}# | |
| 8319 | #{val 2864}# | |
| 8320 | #{e1 2865}# | |
| 8321 | #{e2 2866}#) | |
| 8322 | (let ((#{names 2868}# | |
| 8323 | (map (lambda (#{x 2869}#) | |
| 8324 | (#{id-var-name 411}# #{x 2869}# #{w 2840}#)) | |
| 8325 | #{var 2863}#))) | |
| 8326 | (begin | |
| 8327 | (for-each | |
| 8328 | (lambda (#{id 2872}# #{n 2873}#) | |
| 8329 | (let ((#{atom-key 2878}# | |
| 8330 | (car (let ((#{t 5036}# | |
| 8331 | (assq #{n 2873}# #{r 2839}#))) | |
| 8332 | (if #{t 5036}# | |
| 8333 | (cdr #{t 5036}#) | |
| 8334 | (if (symbol? #{n 2873}#) | |
| 8335 | (let ((#{t 5037}# | |
| 8336 | (#{get-global-definition-hook 263}# | |
| 8337 | #{n 2873}# | |
| 8338 | #{mod 2842}#))) | |
| 8339 | (if #{t 5037}# | |
| 8340 | #{t 5037}# | |
| 8341 | '(global))) | |
| 8342 | '(displaced-lexical))))))) | |
| 8343 | (if (memv #{atom-key 2878}# '(displaced-lexical)) | |
| 8344 | (syntax-violation | |
| 8345 | 'fluid-let-syntax | |
| 8346 | "identifier out of context" | |
| 8347 | #{e 2838}# | |
| 8348 | (#{wrap 423}# | |
| 8349 | (begin | |
| 8350 | (if (if (pair? #{id 2872}#) #{s 2841}# #f) | |
| 8351 | (set-source-properties! | |
| 8352 | #{id 2872}# | |
| 8353 | #{s 2841}#)) | |
| 8354 | #{id 2872}#) | |
| 8355 | #{w 2840}# | |
| 8356 | #{mod 2842}#))))) | |
| 8357 | #{var 2863}# | |
| 8358 | #{names 2868}#) | |
| 8359 | (#{chi-body 445}# | |
| 8360 | (cons #{e1 2865}# #{e2 2866}#) | |
| 8361 | (#{wrap 423}# | |
| 8362 | (begin | |
| 8363 | (if (if (pair? #{e 2838}#) #{s 2841}# #f) | |
| 8364 | (set-source-properties! #{e 2838}# #{s 2841}#)) | |
| 8365 | #{e 2838}#) | |
| 8366 | #{w 2840}# | |
| 8367 | #{mod 2842}#) | |
| 8368 | (#{extend-env 337}# | |
| 8369 | #{names 2868}# | |
| 8370 | (let ((#{trans-r 2884}# | |
| 8371 | (#{macros-only-env 341}# #{r 2839}#))) | |
| 8372 | (map (lambda (#{x 2885}#) | |
| 8373 | (cons 'macro | |
| 8374 | (#{eval-local-transformer 449}# | |
| 8375 | (#{chi 437}# | |
| 8376 | #{x 2885}# | |
| 8377 | #{trans-r 2884}# | |
| 8378 | #{w 2840}# | |
| 8379 | #{mod 2842}#) | |
| 8380 | #{mod 2842}#))) | |
| 8381 | #{val 2864}#)) | |
| 8382 | #{r 2839}#) | |
| 8383 | #{w 2840}# | |
| 8384 | #{mod 2842}#)))) | |
| 8385 | #{tmp 2849}#) | |
| 8386 | (syntax-violation | |
| 8387 | 'fluid-let-syntax | |
| 8388 | "bad syntax" | |
| 8389 | (#{wrap 423}# | |
| 8390 | (begin | |
| 8391 | (if (if (pair? #{e 2838}#) #{s 2841}# #f) | |
| 8392 | (set-source-properties! #{e 2838}# #{s 2841}#)) | |
| 8393 | #{e 2838}#) | |
| 8394 | #{w 2840}# | |
| 8395 | #{mod 2842}#)))))) | |
| 8396 | (module-define! | |
| 8397 | (current-module) | |
| 8398 | 'quote | |
| 8399 | (make-syntax-transformer | |
| 8400 | 'quote | |
| 8401 | 'core | |
| 8402 | (lambda (#{e 2891}# | |
| 8403 | #{r 2892}# | |
| 8404 | #{w 2893}# | |
| 8405 | #{s 2894}# | |
| 8406 | #{mod 2895}#) | |
| 8407 | (let ((#{tmp 2902}# ($sc-dispatch #{e 2891}# '(_ any)))) | |
| 8408 | (if #{tmp 2902}# | |
| 8409 | (@apply | |
| 8410 | (lambda (#{e 2904}#) | |
| 8411 | (let ((#{exp 5266}# | |
| 8412 | (#{strip 463}# #{e 2904}# #{w 2893}#))) | |
| 8413 | (make-struct/no-tail | |
| 8414 | (vector-ref %expanded-vtables 1) | |
| 8415 | #{s 2894}# | |
| 8416 | #{exp 5266}#))) | |
| 8417 | #{tmp 2902}#) | |
| 8418 | (syntax-violation | |
| 8419 | 'quote | |
| 8420 | "bad syntax" | |
| 8421 | (#{wrap 423}# | |
| 8422 | (begin | |
| 8423 | (if (if (pair? #{e 2891}#) #{s 2894}# #f) | |
| 8424 | (set-source-properties! #{e 2891}# #{s 2894}#)) | |
| 8425 | #{e 2891}#) | |
| 8426 | #{w 2893}# | |
| 8427 | #{mod 2895}#))))))) | |
| 8428 | (#{global-extend 345}# | |
| 8429 | 'core | |
| 8430 | 'syntax | |
| 8431 | (letrec* | |
| 8432 | ((#{gen-syntax 2908}# | |
| 8433 | (lambda (#{src 2923}# | |
| 8434 | #{e 2924}# | |
| 8435 | #{r 2925}# | |
| 8436 | #{maps 2926}# | |
| 8437 | #{ellipsis? 2927}# | |
| 8438 | #{mod 2928}#) | |
| 8439 | (if (if (symbol? #{e 2924}#) | |
| 8440 | #t | |
| 8441 | (if (if (vector? #{e 2924}#) | |
| 8442 | (if (= (vector-length #{e 2924}#) 4) | |
| 8443 | (eq? (vector-ref #{e 2924}# 0) 'syntax-object) | |
| 8444 | #f) | |
| 8445 | #f) | |
| 8446 | (symbol? (vector-ref #{e 2924}# 1)) | |
| 8447 | #f)) | |
| 8448 | (let ((#{label 2936}# | |
| 8449 | (#{id-var-name 411}# #{e 2924}# '(())))) | |
| 8450 | (let ((#{b 2939}# | |
| 8451 | (let ((#{t 5329}# (assq #{label 2936}# #{r 2925}#))) | |
| 8452 | (if #{t 5329}# | |
| 8453 | (cdr #{t 5329}#) | |
| 8454 | (if (symbol? #{label 2936}#) | |
| 8455 | (let ((#{t 5330}# | |
| 8456 | (#{get-global-definition-hook 263}# | |
| 8457 | #{label 2936}# | |
| 8458 | #{mod 2928}#))) | |
| 8459 | (if #{t 5330}# #{t 5330}# '(global))) | |
| 8460 | '(displaced-lexical)))))) | |
| 8461 | (if (eq? (car #{b 2939}#) 'syntax) | |
| 8462 | (call-with-values | |
| 8463 | (lambda () | |
| 8464 | (let ((#{var.lev 2942}# (cdr #{b 2939}#))) | |
| 8465 | (#{gen-ref 2910}# | |
| 8466 | #{src 2923}# | |
| 8467 | (car #{var.lev 2942}#) | |
| 8468 | (cdr #{var.lev 2942}#) | |
| 8469 | #{maps 2926}#))) | |
| 8470 | (lambda (#{var 2944}# #{maps 2945}#) | |
| 8471 | (values (list 'ref #{var 2944}#) #{maps 2945}#))) | |
| 8472 | (if (#{ellipsis? 2927}# #{e 2924}#) | |
| 8473 | (syntax-violation | |
| 8474 | 'syntax | |
| 8475 | "misplaced ellipsis" | |
| 8476 | #{src 2923}#) | |
| 8477 | (values (list 'quote #{e 2924}#) #{maps 2926}#))))) | |
| 8478 | (let ((#{tmp 2951}# | |
| 8479 | ($sc-dispatch #{e 2924}# '(any any)))) | |
| 8480 | (if (if #{tmp 2951}# | |
| 8481 | (@apply | |
| 8482 | (lambda (#{dots 2954}# #{e 2955}#) | |
| 8483 | (#{ellipsis? 2927}# #{dots 2954}#)) | |
| 8484 | #{tmp 2951}#) | |
| 8485 | #f) | |
| 8486 | (@apply | |
| 8487 | (lambda (#{dots 2958}# #{e 2959}#) | |
| 8488 | (#{gen-syntax 2908}# | |
| 8489 | #{src 2923}# | |
| 8490 | #{e 2959}# | |
| 8491 | #{r 2925}# | |
| 8492 | #{maps 2926}# | |
| 8493 | (lambda (#{x 2960}#) #f) | |
| 8494 | #{mod 2928}#)) | |
| 8495 | #{tmp 2951}#) | |
| 8496 | (let ((#{tmp 2962}# | |
| 8497 | ($sc-dispatch #{e 2924}# '(any any . any)))) | |
| 8498 | (if (if #{tmp 2962}# | |
| 8499 | (@apply | |
| 8500 | (lambda (#{x 2966}# #{dots 2967}# #{y 2968}#) | |
| 8501 | (#{ellipsis? 2927}# #{dots 2967}#)) | |
| 8502 | #{tmp 2962}#) | |
| 8503 | #f) | |
| 8504 | (@apply | |
| 8505 | (lambda (#{x 2972}# #{dots 2973}# #{y 2974}#) | |
| 8506 | (letrec* | |
| 8507 | ((#{f 2978}# | |
| 8508 | (lambda (#{y 2979}# #{k 2980}#) | |
| 8509 | (let ((#{tmp 2988}# | |
| 8510 | ($sc-dispatch | |
| 8511 | #{y 2979}# | |
| 8512 | '(any . any)))) | |
| 8513 | (if (if #{tmp 2988}# | |
| 8514 | (@apply | |
| 8515 | (lambda (#{dots 2991}# #{y 2992}#) | |
| 8516 | (#{ellipsis? 2927}# | |
| 8517 | #{dots 2991}#)) | |
| 8518 | #{tmp 2988}#) | |
| 8519 | #f) | |
| 8520 | (@apply | |
| 8521 | (lambda (#{dots 2995}# #{y 2996}#) | |
| 8522 | (#{f 2978}# | |
| 8523 | #{y 2996}# | |
| 8524 | (lambda (#{maps 2997}#) | |
| 8525 | (call-with-values | |
| 8526 | (lambda () | |
| 8527 | (#{k 2980}# | |
| 8528 | (cons '() #{maps 2997}#))) | |
| 8529 | (lambda (#{x 2999}# | |
| 8530 | #{maps 3000}#) | |
| 8531 | (if (null? (car #{maps 3000}#)) | |
| 8532 | (syntax-violation | |
| 8533 | 'syntax | |
| 8534 | "extra ellipsis" | |
| 8535 | #{src 2923}#) | |
| 8536 | (values | |
| 8537 | (#{gen-mappend 2912}# | |
| 8538 | #{x 2999}# | |
| 8539 | (car #{maps 3000}#)) | |
| 8540 | (cdr #{maps 3000}#)))))))) | |
| 8541 | #{tmp 2988}#) | |
| 8542 | (call-with-values | |
| 8543 | (lambda () | |
| 8544 | (#{gen-syntax 2908}# | |
| 8545 | #{src 2923}# | |
| 8546 | #{y 2979}# | |
| 8547 | #{r 2925}# | |
| 8548 | #{maps 2926}# | |
| 8549 | #{ellipsis? 2927}# | |
| 8550 | #{mod 2928}#)) | |
| 8551 | (lambda (#{y 3005}# #{maps 3006}#) | |
| 8552 | (call-with-values | |
| 8553 | (lambda () | |
| 8554 | (#{k 2980}# #{maps 3006}#)) | |
| 8555 | (lambda (#{x 3009}# #{maps 3010}#) | |
| 8556 | (values | |
| 8557 | (#{gen-append 2918}# | |
| 8558 | #{x 3009}# | |
| 8559 | #{y 3005}#) | |
| 8560 | #{maps 3010}#)))))))))) | |
| 8561 | (#{f 2978}# | |
| 8562 | #{y 2974}# | |
| 8563 | (lambda (#{maps 2981}#) | |
| 8564 | (call-with-values | |
| 8565 | (lambda () | |
| 8566 | (#{gen-syntax 2908}# | |
| 8567 | #{src 2923}# | |
| 8568 | #{x 2972}# | |
| 8569 | #{r 2925}# | |
| 8570 | (cons '() #{maps 2981}#) | |
| 8571 | #{ellipsis? 2927}# | |
| 8572 | #{mod 2928}#)) | |
| 8573 | (lambda (#{x 2983}# #{maps 2984}#) | |
| 8574 | (if (null? (car #{maps 2984}#)) | |
| 8575 | (syntax-violation | |
| 8576 | 'syntax | |
| 8577 | "extra ellipsis" | |
| 8578 | #{src 2923}#) | |
| 8579 | (values | |
| 8580 | (#{gen-map 2914}# | |
| 8581 | #{x 2983}# | |
| 8582 | (car #{maps 2984}#)) | |
| 8583 | (cdr #{maps 2984}#))))))))) | |
| 8584 | #{tmp 2962}#) | |
| 8585 | (let ((#{tmp 3013}# | |
| 8586 | ($sc-dispatch #{e 2924}# '(any . any)))) | |
| 8587 | (if #{tmp 3013}# | |
| 8588 | (@apply | |
| 8589 | (lambda (#{x 3016}# #{y 3017}#) | |
| 8590 | (call-with-values | |
| 8591 | (lambda () | |
| 8592 | (#{gen-syntax 2908}# | |
| 8593 | #{src 2923}# | |
| 8594 | #{x 3016}# | |
| 8595 | #{r 2925}# | |
| 8596 | #{maps 2926}# | |
| 8597 | #{ellipsis? 2927}# | |
| 8598 | #{mod 2928}#)) | |
| 8599 | (lambda (#{x 3018}# #{maps 3019}#) | |
| 8600 | (call-with-values | |
| 8601 | (lambda () | |
| 8602 | (#{gen-syntax 2908}# | |
| 8603 | #{src 2923}# | |
| 8604 | #{y 3017}# | |
| 8605 | #{r 2925}# | |
| 8606 | #{maps 3019}# | |
| 8607 | #{ellipsis? 2927}# | |
| 8608 | #{mod 2928}#)) | |
| 8609 | (lambda (#{y 3022}# #{maps 3023}#) | |
| 8610 | (values | |
| 8611 | (#{gen-cons 2916}# | |
| 8612 | #{x 3018}# | |
| 8613 | #{y 3022}#) | |
| 8614 | #{maps 3023}#)))))) | |
| 8615 | #{tmp 3013}#) | |
| 8616 | (let ((#{tmp 3026}# | |
| 8617 | ($sc-dispatch | |
| 8618 | #{e 2924}# | |
| 8619 | '#(vector (any . each-any))))) | |
| 8620 | (if #{tmp 3026}# | |
| 8621 | (@apply | |
| 8622 | (lambda (#{e1 3029}# #{e2 3030}#) | |
| 8623 | (call-with-values | |
| 8624 | (lambda () | |
| 8625 | (#{gen-syntax 2908}# | |
| 8626 | #{src 2923}# | |
| 8627 | (cons #{e1 3029}# #{e2 3030}#) | |
| 8628 | #{r 2925}# | |
| 8629 | #{maps 2926}# | |
| 8630 | #{ellipsis? 2927}# | |
| 8631 | #{mod 2928}#)) | |
| 8632 | (lambda (#{e 3032}# #{maps 3033}#) | |
| 8633 | (values | |
| 8634 | (#{gen-vector 2920}# #{e 3032}#) | |
| 8635 | #{maps 3033}#)))) | |
| 8636 | #{tmp 3026}#) | |
| 8637 | (values | |
| 8638 | (list 'quote #{e 2924}#) | |
| 8639 | #{maps 2926}#)))))))))))) | |
| 8640 | (#{gen-ref 2910}# | |
| 8641 | (lambda (#{src 3039}# | |
| 8642 | #{var 3040}# | |
| 8643 | #{level 3041}# | |
| 8644 | #{maps 3042}#) | |
| 8645 | (if (= #{level 3041}# 0) | |
| 8646 | (values #{var 3040}# #{maps 3042}#) | |
| 8647 | (if (null? #{maps 3042}#) | |
| 8648 | (syntax-violation | |
| 8649 | 'syntax | |
| 8650 | "missing ellipsis" | |
| 8651 | #{src 3039}#) | |
| 8652 | (call-with-values | |
| 8653 | (lambda () | |
| 8654 | (#{gen-ref 2910}# | |
| 8655 | #{src 3039}# | |
| 8656 | #{var 3040}# | |
| 8657 | (#{1-}# #{level 3041}#) | |
| 8658 | (cdr #{maps 3042}#))) | |
| 8659 | (lambda (#{outer-var 3049}# #{outer-maps 3050}#) | |
| 8660 | (let ((#{b 3054}# | |
| 8661 | (assq #{outer-var 3049}# (car #{maps 3042}#)))) | |
| 8662 | (if #{b 3054}# | |
| 8663 | (values (cdr #{b 3054}#) #{maps 3042}#) | |
| 8664 | (let ((#{inner-var 3056}# | |
| 8665 | (gensym | |
| 8666 | (string-append (symbol->string 'tmp) " ")))) | |
| 8667 | (values | |
| 8668 | #{inner-var 3056}# | |
| 8669 | (cons (cons (cons #{outer-var 3049}# | |
| 8670 | #{inner-var 3056}#) | |
| 8671 | (car #{maps 3042}#)) | |
| 8672 | #{outer-maps 3050}#))))))))))) | |
| 8673 | (#{gen-mappend 2912}# | |
| 8674 | (lambda (#{e 3057}# #{map-env 3058}#) | |
| 8675 | (list 'apply | |
| 8676 | '(primitive append) | |
| 8677 | (#{gen-map 2914}# #{e 3057}# #{map-env 3058}#)))) | |
| 8678 | (#{gen-map 2914}# | |
| 8679 | (lambda (#{e 3062}# #{map-env 3063}#) | |
| 8680 | (let ((#{formals 3068}# (map cdr #{map-env 3063}#)) | |
| 8681 | (#{actuals 3069}# | |
| 8682 | (map (lambda (#{x 3070}#) | |
| 8683 | (list 'ref (car #{x 3070}#))) | |
| 8684 | #{map-env 3063}#))) | |
| 8685 | (if (eq? (car #{e 3062}#) 'ref) | |
| 8686 | (car #{actuals 3069}#) | |
| 8687 | (if (and-map | |
| 8688 | (lambda (#{x 3077}#) | |
| 8689 | (if (eq? (car #{x 3077}#) 'ref) | |
| 8690 | (memq (car (cdr #{x 3077}#)) #{formals 3068}#) | |
| 8691 | #f)) | |
| 8692 | (cdr #{e 3062}#)) | |
| 8693 | (cons 'map | |
| 8694 | (cons (list 'primitive (car #{e 3062}#)) | |
| 8695 | (map (let ((#{r 3083}# | |
| 8696 | (map cons | |
| 8697 | #{formals 3068}# | |
| 8698 | #{actuals 3069}#))) | |
| 8699 | (lambda (#{x 3084}#) | |
| 8700 | (cdr (assq (car (cdr #{x 3084}#)) | |
| 8701 | #{r 3083}#)))) | |
| 8702 | (cdr #{e 3062}#)))) | |
| 8703 | (cons 'map | |
| 8704 | (cons (list 'lambda #{formals 3068}# #{e 3062}#) | |
| 8705 | #{actuals 3069}#))))))) | |
| 8706 | (#{gen-cons 2916}# | |
| 8707 | (lambda (#{x 3088}# #{y 3089}#) | |
| 8708 | (let ((#{atom-key 3094}# (car #{y 3089}#))) | |
| 8709 | (if (memv #{atom-key 3094}# '(quote)) | |
| 8710 | (if (eq? (car #{x 3088}#) 'quote) | |
| 8711 | (list 'quote | |
| 8712 | (cons (car (cdr #{x 3088}#)) | |
| 8713 | (car (cdr #{y 3089}#)))) | |
| 8714 | (if (eq? (car (cdr #{y 3089}#)) '()) | |
| 8715 | (list 'list #{x 3088}#) | |
| 8716 | (list 'cons #{x 3088}# #{y 3089}#))) | |
| 8717 | (if (memv #{atom-key 3094}# '(list)) | |
| 8718 | (cons 'list (cons #{x 3088}# (cdr #{y 3089}#))) | |
| 8719 | (list 'cons #{x 3088}# #{y 3089}#)))))) | |
| 8720 | (#{gen-append 2918}# | |
| 8721 | (lambda (#{x 3103}# #{y 3104}#) | |
| 8722 | (if (equal? #{y 3104}# ''()) | |
| 8723 | #{x 3103}# | |
| 8724 | (list 'append #{x 3103}# #{y 3104}#)))) | |
| 8725 | (#{gen-vector 2920}# | |
| 8726 | (lambda (#{x 3108}#) | |
| 8727 | (if (eq? (car #{x 3108}#) 'list) | |
| 8728 | (cons 'vector (cdr #{x 3108}#)) | |
| 8729 | (if (eq? (car #{x 3108}#) 'quote) | |
| 8730 | (list 'quote | |
| 8731 | (list->vector (car (cdr #{x 3108}#)))) | |
| 8732 | (list 'list->vector #{x 3108}#))))) | |
| 8733 | (#{regen 2922}# | |
| 8734 | (lambda (#{x 3118}#) | |
| 8735 | (let ((#{atom-key 3122}# (car #{x 3118}#))) | |
| 8736 | (if (memv #{atom-key 3122}# '(ref)) | |
| 8737 | (let ((#{name 5345}# (car (cdr #{x 3118}#))) | |
| 8738 | (#{var 5346}# (car (cdr #{x 3118}#)))) | |
| 8739 | (make-struct/no-tail | |
| 8740 | (vector-ref %expanded-vtables 3) | |
| 8741 | #f | |
| 8742 | #{name 5345}# | |
| 8743 | #{var 5346}#)) | |
| 8744 | (if (memv #{atom-key 3122}# '(primitive)) | |
| 8745 | (let ((#{name 5355}# (car (cdr #{x 3118}#)))) | |
| 8746 | (if (equal? (module-name (current-module)) '(guile)) | |
| 8747 | (make-struct/no-tail | |
| 8748 | (vector-ref %expanded-vtables 7) | |
| 8749 | #f | |
| 8750 | #{name 5355}#) | |
| 8751 | (make-struct/no-tail | |
| 8752 | (vector-ref %expanded-vtables 5) | |
| 8753 | #f | |
| 8754 | '(guile) | |
| 8755 | #{name 5355}# | |
| 8756 | #f))) | |
| 8757 | (if (memv #{atom-key 3122}# '(quote)) | |
| 8758 | (let ((#{exp 5369}# (car (cdr #{x 3118}#)))) | |
| 8759 | (make-struct/no-tail | |
| 8760 | (vector-ref %expanded-vtables 1) | |
| 8761 | #f | |
| 8762 | #{exp 5369}#)) | |
| 8763 | (if (memv #{atom-key 3122}# '(lambda)) | |
| 8764 | (if (list? (car (cdr #{x 3118}#))) | |
| 8765 | (let ((#{req 5377}# (car (cdr #{x 3118}#))) | |
| 8766 | (#{vars 5379}# (car (cdr #{x 3118}#))) | |
| 8767 | (#{exp 5381}# | |
| 8768 | (#{regen 2922}# | |
| 8769 | (car (cdr (cdr #{x 3118}#)))))) | |
| 8770 | (let ((#{body 5386}# | |
| 8771 | (make-struct/no-tail | |
| 8772 | (vector-ref %expanded-vtables 14) | |
| 8773 | #f | |
| 8774 | #{req 5377}# | |
| 8775 | #f | |
| 8776 | #f | |
| 8777 | #f | |
| 8778 | '() | |
| 8779 | #{vars 5379}# | |
| 8780 | #{exp 5381}# | |
| 8781 | #f))) | |
| 8782 | (make-struct/no-tail | |
| 8783 | (vector-ref %expanded-vtables 13) | |
| 8784 | #f | |
| 8785 | '() | |
| 8786 | #{body 5386}#))) | |
| 8787 | (error "how did we get here" #{x 3118}#)) | |
| 8788 | (let ((#{fun-exp 5401}# | |
| 8789 | (let ((#{name 5406}# (car #{x 3118}#))) | |
| 8790 | (if (equal? | |
| 8791 | (module-name (current-module)) | |
| 8792 | '(guile)) | |
| 8793 | (make-struct/no-tail | |
| 8794 | (vector-ref %expanded-vtables 7) | |
| 8795 | #f | |
| 8796 | #{name 5406}#) | |
| 8797 | (make-struct/no-tail | |
| 8798 | (vector-ref %expanded-vtables 5) | |
| 8799 | #f | |
| 8800 | '(guile) | |
| 8801 | #{name 5406}# | |
| 8802 | #f)))) | |
| 8803 | (#{arg-exps 5402}# | |
| 8804 | (map #{regen 2922}# (cdr #{x 3118}#)))) | |
| 8805 | (make-struct/no-tail | |
| 8806 | (vector-ref %expanded-vtables 11) | |
| 8807 | #f | |
| 8808 | #{fun-exp 5401}# | |
| 8809 | #{arg-exps 5402}#)))))))))) | |
| 8810 | (lambda (#{e 3134}# | |
| 8811 | #{r 3135}# | |
| 8812 | #{w 3136}# | |
| 8813 | #{s 3137}# | |
| 8814 | #{mod 3138}#) | |
| 8815 | (let ((#{e 3145}# | |
| 8816 | (#{wrap 423}# | |
| 8817 | (begin | |
| 8818 | (if (if (pair? #{e 3134}#) #{s 3137}# #f) | |
| 8819 | (set-source-properties! #{e 3134}# #{s 3137}#)) | |
| 8820 | #{e 3134}#) | |
| 8821 | #{w 3136}# | |
| 8822 | #{mod 3138}#))) | |
| 8823 | (let ((#{tmp 3147}# ($sc-dispatch #{e 3145}# '(_ any)))) | |
| 8824 | (if #{tmp 3147}# | |
| 8825 | (@apply | |
| 8826 | (lambda (#{x 3149}#) | |
| 8827 | (call-with-values | |
| 8828 | (lambda () | |
| 8829 | (#{gen-syntax 2908}# | |
| 8830 | #{e 3145}# | |
| 8831 | #{x 3149}# | |
| 8832 | #{r 3135}# | |
| 8833 | '() | |
| 8834 | #{ellipsis? 453}# | |
| 8835 | #{mod 3138}#)) | |
| 8836 | (lambda (#{e 3150}# #{maps 3151}#) | |
| 8837 | (#{regen 2922}# #{e 3150}#)))) | |
| 8838 | #{tmp 3147}#) | |
| 8839 | (syntax-violation | |
| 8840 | 'syntax | |
| 8841 | "bad `syntax' form" | |
| 8842 | #{e 3145}#))))))) | |
| 8843 | (#{global-extend 345}# | |
| 8844 | 'core | |
| 8845 | 'lambda | |
| 8846 | (lambda (#{e 3156}# | |
| 8847 | #{r 3157}# | |
| 8848 | #{w 3158}# | |
| 8849 | #{s 3159}# | |
| 8850 | #{mod 3160}#) | |
| 8851 | (let ((#{tmp 3167}# | |
| 8852 | ($sc-dispatch #{e 3156}# '(_ any any . each-any)))) | |
| 8853 | (if #{tmp 3167}# | |
| 8854 | (@apply | |
| 8855 | (lambda (#{args 3171}# #{e1 3172}# #{e2 3173}#) | |
| 8856 | (call-with-values | |
| 8857 | (lambda () | |
| 8858 | (#{lambda-formals 455}# #{args 3171}#)) | |
| 8859 | (lambda (#{req 3174}# | |
| 8860 | #{opt 3175}# | |
| 8861 | #{rest 3176}# | |
| 8862 | #{kw 3177}#) | |
| 8863 | (letrec* | |
| 8864 | ((#{lp 3185}# | |
| 8865 | (lambda (#{body 3186}# #{meta 3187}#) | |
| 8866 | (let ((#{tmp 3190}# | |
| 8867 | ($sc-dispatch | |
| 8868 | #{body 3186}# | |
| 8869 | '(any any . each-any)))) | |
| 8870 | (if (if #{tmp 3190}# | |
| 8871 | (@apply | |
| 8872 | (lambda (#{docstring 3194}# | |
| 8873 | #{e1 3195}# | |
| 8874 | #{e2 3196}#) | |
| 8875 | (string? | |
| 8876 | (syntax->datum #{docstring 3194}#))) | |
| 8877 | #{tmp 3190}#) | |
| 8878 | #f) | |
| 8879 | (@apply | |
| 8880 | (lambda (#{docstring 3200}# | |
| 8881 | #{e1 3201}# | |
| 8882 | #{e2 3202}#) | |
| 8883 | (#{lp 3185}# | |
| 8884 | (cons #{e1 3201}# #{e2 3202}#) | |
| 8885 | (append | |
| 8886 | #{meta 3187}# | |
| 8887 | (list (cons 'documentation | |
| 8888 | (syntax->datum | |
| 8889 | #{docstring 3200}#)))))) | |
| 8890 | #{tmp 3190}#) | |
| 8891 | (let ((#{tmp 3205}# | |
| 8892 | ($sc-dispatch | |
| 8893 | #{body 3186}# | |
| 8894 | '(#(vector #(each (any . any))) | |
| 8895 | any | |
| 8896 | . | |
| 8897 | each-any)))) | |
| 8898 | (if #{tmp 3205}# | |
| 8899 | (@apply | |
| 8900 | (lambda (#{k 3210}# | |
| 8901 | #{v 3211}# | |
| 8902 | #{e1 3212}# | |
| 8903 | #{e2 3213}#) | |
| 8904 | (#{lp 3185}# | |
| 8905 | (cons #{e1 3212}# #{e2 3213}#) | |
| 8906 | (append | |
| 8907 | #{meta 3187}# | |
| 8908 | (syntax->datum | |
| 8909 | (map cons | |
| 8910 | #{k 3210}# | |
| 8911 | #{v 3211}#))))) | |
| 8912 | #{tmp 3205}#) | |
| 8913 | ((lambda (#{e 2267}# | |
| 8914 | #{r 2268}# | |
| 8915 | #{w 2269}# | |
| 8916 | #{s 2270}# | |
| 8917 | #{mod 2271}# | |
| 8918 | #{req 2272}# | |
| 8919 | #{rest 2273}# | |
| 8920 | #{meta 2274}# | |
| 8921 | #{body 2275}#) | |
| 8922 | (let ((#{ids 2287}# | |
| 8923 | (if #{rest 2273}# | |
| 8924 | (append | |
| 8925 | #{req 2272}# | |
| 8926 | (list #{rest 2273}#)) | |
| 8927 | #{req 2272}#))) | |
| 8928 | (let ((#{vars 2289}# | |
| 8929 | (map #{gen-var 465}# | |
| 8930 | #{ids 2287}#))) | |
| 8931 | (let ((#{labels 2291}# | |
| 8932 | (#{gen-labels 369}# | |
| 8933 | #{ids 2287}#))) | |
| 8934 | (#{build-simple-lambda 289}# | |
| 8935 | #{s 2270}# | |
| 8936 | (map syntax->datum #{req 2272}#) | |
| 8937 | (if #{rest 2273}# | |
| 8938 | (syntax->datum #{rest 2273}#) | |
| 8939 | #f) | |
| 8940 | #{vars 2289}# | |
| 8941 | #{meta 2274}# | |
| 8942 | (#{chi-body 445}# | |
| 8943 | #{body 2275}# | |
| 8944 | (#{source-wrap 425}# | |
| 8945 | #{e 2267}# | |
| 8946 | #{w 2269}# | |
| 8947 | #{s 2270}# | |
| 8948 | #{mod 2271}#) | |
| 8949 | (#{extend-var-env 339}# | |
| 8950 | #{labels 2291}# | |
| 8951 | #{vars 2289}# | |
| 8952 | #{r 2268}#) | |
| 8953 | (#{make-binding-wrap 401}# | |
| 8954 | #{ids 2287}# | |
| 8955 | #{labels 2291}# | |
| 8956 | #{w 2269}#) | |
| 8957 | #{mod 2271}#)))))) | |
| 8958 | #{e 3156}# | |
| 8959 | #{r 3157}# | |
| 8960 | #{w 3158}# | |
| 8961 | #{s 3159}# | |
| 8962 | #{mod 3160}# | |
| 8963 | #{req 3174}# | |
| 8964 | #{rest 3176}# | |
| 8965 | #{meta 3187}# | |
| 8966 | #{body 3186}#)))))))) | |
| 8967 | (#{lp 3185}# (cons #{e1 3172}# #{e2 3173}#) '()))))) | |
| 8968 | #{tmp 3167}#) | |
| 8969 | (syntax-violation | |
| 8970 | 'lambda | |
| 8971 | "bad lambda" | |
| 8972 | #{e 3156}#))))) | |
| 8973 | (module-define! | |
| 8974 | (current-module) | |
| 8975 | 'lambda* | |
| 8976 | (make-syntax-transformer | |
| 8977 | 'lambda* | |
| 8978 | 'core | |
| 8979 | (lambda (#{e 3221}# | |
| 8980 | #{r 3222}# | |
| 8981 | #{w 3223}# | |
| 8982 | #{s 3224}# | |
| 8983 | #{mod 3225}#) | |
| 8984 | (let ((#{tmp 3232}# | |
| 8985 | ($sc-dispatch #{e 3221}# '(_ any any . each-any)))) | |
| 8986 | (if #{tmp 3232}# | |
| 8987 | (@apply | |
| 8988 | (lambda (#{args 3236}# #{e1 3237}# #{e2 3238}#) | |
| 8989 | (call-with-values | |
| 8990 | (lambda () | |
| 8991 | (#{chi-lambda-case 461}# | |
| 8992 | #{e 3221}# | |
| 8993 | #{r 3222}# | |
| 8994 | #{w 3223}# | |
| 8995 | #{s 3224}# | |
| 8996 | #{mod 3225}# | |
| 8997 | #{lambda*-formals 459}# | |
| 8998 | (list (cons #{args 3236}# | |
| 8999 | (cons #{e1 3237}# #{e2 3238}#))))) | |
| 9000 | (lambda (#{meta 3240}# #{lcase 3241}#) | |
| 9001 | (make-struct/no-tail | |
| 9002 | (vector-ref %expanded-vtables 13) | |
| 9003 | #{s 3224}# | |
| 9004 | #{meta 3240}# | |
| 9005 | #{lcase 3241}#)))) | |
| 9006 | #{tmp 3232}#) | |
| 9007 | (syntax-violation | |
| 9008 | 'lambda | |
| 9009 | "bad lambda*" | |
| 9010 | #{e 3221}#)))))) | |
| 9011 | (module-define! | |
| 9012 | (current-module) | |
| 9013 | 'case-lambda | |
| 9014 | (make-syntax-transformer | |
| 9015 | 'case-lambda | |
| 9016 | 'core | |
| 9017 | (lambda (#{e 3246}# | |
| 9018 | #{r 3247}# | |
| 9019 | #{w 3248}# | |
| 9020 | #{s 3249}# | |
| 9021 | #{mod 3250}#) | |
| 9022 | (let ((#{tmp 3257}# | |
| 9023 | ($sc-dispatch | |
| 9024 | #{e 3246}# | |
| 9025 | '(_ (any any . each-any) | |
| 9026 | . | |
| 9027 | #(each (any any . each-any)))))) | |
| 9028 | (if #{tmp 3257}# | |
| 9029 | (@apply | |
| 9030 | (lambda (#{args 3264}# | |
| 9031 | #{e1 3265}# | |
| 9032 | #{e2 3266}# | |
| 9033 | #{args* 3267}# | |
| 9034 | #{e1* 3268}# | |
| 9035 | #{e2* 3269}#) | |
| 9036 | (call-with-values | |
| 9037 | (lambda () | |
| 9038 | (#{chi-lambda-case 461}# | |
| 9039 | #{e 3246}# | |
| 9040 | #{r 3247}# | |
| 9041 | #{w 3248}# | |
| 9042 | #{s 3249}# | |
| 9043 | #{mod 3250}# | |
| 9044 | #{lambda-formals 455}# | |
| 9045 | (cons (cons #{args 3264}# | |
| 9046 | (cons #{e1 3265}# #{e2 3266}#)) | |
| 9047 | (map (lambda (#{tmp 3273}# | |
| 9048 | #{tmp 3272}# | |
| 9049 | #{tmp 3271}#) | |
| 9050 | (cons #{tmp 3271}# | |
| 9051 | (cons #{tmp 3272}# #{tmp 3273}#))) | |
| 9052 | #{e2* 3269}# | |
| 9053 | #{e1* 3268}# | |
| 9054 | #{args* 3267}#)))) | |
| 9055 | (lambda (#{meta 3275}# #{lcase 3276}#) | |
| 9056 | (make-struct/no-tail | |
| 9057 | (vector-ref %expanded-vtables 13) | |
| 9058 | #{s 3249}# | |
| 9059 | #{meta 3275}# | |
| 9060 | #{lcase 3276}#)))) | |
| 9061 | #{tmp 3257}#) | |
| 9062 | (syntax-violation | |
| 9063 | 'case-lambda | |
| 9064 | "bad case-lambda" | |
| 9065 | #{e 3246}#)))))) | |
| 9066 | (module-define! | |
| 9067 | (current-module) | |
| 9068 | 'case-lambda* | |
| 9069 | (make-syntax-transformer | |
| 9070 | 'case-lambda* | |
| 9071 | 'core | |
| 9072 | (lambda (#{e 3281}# | |
| 9073 | #{r 3282}# | |
| 9074 | #{w 3283}# | |
| 9075 | #{s 3284}# | |
| 9076 | #{mod 3285}#) | |
| 9077 | (let ((#{tmp 3292}# | |
| 9078 | ($sc-dispatch | |
| 9079 | #{e 3281}# | |
| 9080 | '(_ (any any . each-any) | |
| 9081 | . | |
| 9082 | #(each (any any . each-any)))))) | |
| 9083 | (if #{tmp 3292}# | |
| 9084 | (@apply | |
| 9085 | (lambda (#{args 3299}# | |
| 9086 | #{e1 3300}# | |
| 9087 | #{e2 3301}# | |
| 9088 | #{args* 3302}# | |
| 9089 | #{e1* 3303}# | |
| 9090 | #{e2* 3304}#) | |
| 9091 | (call-with-values | |
| 9092 | (lambda () | |
| 9093 | (#{chi-lambda-case 461}# | |
| 9094 | #{e 3281}# | |
| 9095 | #{r 3282}# | |
| 9096 | #{w 3283}# | |
| 9097 | #{s 3284}# | |
| 9098 | #{mod 3285}# | |
| 9099 | #{lambda*-formals 459}# | |
| 9100 | (cons (cons #{args 3299}# | |
| 9101 | (cons #{e1 3300}# #{e2 3301}#)) | |
| 9102 | (map (lambda (#{tmp 3308}# | |
| 9103 | #{tmp 3307}# | |
| 9104 | #{tmp 3306}#) | |
| 9105 | (cons #{tmp 3306}# | |
| 9106 | (cons #{tmp 3307}# #{tmp 3308}#))) | |
| 9107 | #{e2* 3304}# | |
| 9108 | #{e1* 3303}# | |
| 9109 | #{args* 3302}#)))) | |
| 9110 | (lambda (#{meta 3310}# #{lcase 3311}#) | |
| 9111 | (make-struct/no-tail | |
| 9112 | (vector-ref %expanded-vtables 13) | |
| 9113 | #{s 3284}# | |
| 9114 | #{meta 3310}# | |
| 9115 | #{lcase 3311}#)))) | |
| 9116 | #{tmp 3292}#) | |
| 9117 | (syntax-violation | |
| 9118 | 'case-lambda | |
| 9119 | "bad case-lambda*" | |
| 9120 | #{e 3281}#)))))) | |
| 9121 | (#{global-extend 345}# | |
| 9122 | 'core | |
| 9123 | 'let | |
| 9124 | (letrec* | |
| 9125 | ((#{chi-let 3317}# | |
| 9126 | (lambda (#{e 3318}# | |
| 9127 | #{r 3319}# | |
| 9128 | #{w 3320}# | |
| 9129 | #{s 3321}# | |
| 9130 | #{mod 3322}# | |
| 9131 | #{constructor 3323}# | |
| 9132 | #{ids 3324}# | |
| 9133 | #{vals 3325}# | |
| 9134 | #{exps 3326}#) | |
| 9135 | (if (not (#{valid-bound-ids? 417}# #{ids 3324}#)) | |
| 9136 | (syntax-violation | |
| 9137 | 'let | |
| 9138 | "duplicate bound variable" | |
| 9139 | #{e 3318}#) | |
| 9140 | (let ((#{labels 3338}# | |
| 9141 | (#{gen-labels 369}# #{ids 3324}#)) | |
| 9142 | (#{new-vars 3339}# | |
| 9143 | (map #{gen-var 465}# #{ids 3324}#))) | |
| 9144 | (let ((#{nw 3342}# | |
| 9145 | (#{make-binding-wrap 401}# | |
| 9146 | #{ids 3324}# | |
| 9147 | #{labels 3338}# | |
| 9148 | #{w 3320}#)) | |
| 9149 | (#{nr 3343}# | |
| 9150 | (#{extend-var-env 339}# | |
| 9151 | #{labels 3338}# | |
| 9152 | #{new-vars 3339}# | |
| 9153 | #{r 3319}#))) | |
| 9154 | (#{constructor 3323}# | |
| 9155 | #{s 3321}# | |
| 9156 | (map syntax->datum #{ids 3324}#) | |
| 9157 | #{new-vars 3339}# | |
| 9158 | (map (lambda (#{x 3344}#) | |
| 9159 | (#{chi 437}# | |
| 9160 | #{x 3344}# | |
| 9161 | #{r 3319}# | |
| 9162 | #{w 3320}# | |
| 9163 | #{mod 3322}#)) | |
| 9164 | #{vals 3325}#) | |
| 9165 | (#{chi-body 445}# | |
| 9166 | #{exps 3326}# | |
| 9167 | (#{wrap 423}# | |
| 9168 | (begin | |
| 9169 | (if (if (pair? #{e 3318}#) #{s 3321}# #f) | |
| 9170 | (set-source-properties! #{e 3318}# #{s 3321}#)) | |
| 9171 | #{e 3318}#) | |
| 9172 | #{nw 3342}# | |
| 9173 | #{mod 3322}#) | |
| 9174 | #{nr 3343}# | |
| 9175 | #{nw 3342}# | |
| 9176 | #{mod 3322}#)))))))) | |
| 9177 | (lambda (#{e 3346}# | |
| 9178 | #{r 3347}# | |
| 9179 | #{w 3348}# | |
| 9180 | #{s 3349}# | |
| 9181 | #{mod 3350}#) | |
| 9182 | (let ((#{tmp 3357}# | |
| 9183 | ($sc-dispatch | |
| 9184 | #{e 3346}# | |
| 9185 | '(_ #(each (any any)) any . each-any)))) | |
| 9186 | (if (if #{tmp 3357}# | |
| 9187 | (@apply | |
| 9188 | (lambda (#{id 3362}# | |
| 9189 | #{val 3363}# | |
| 9190 | #{e1 3364}# | |
| 9191 | #{e2 3365}#) | |
| 9192 | (and-map #{id? 349}# #{id 3362}#)) | |
| 9193 | #{tmp 3357}#) | |
| 9194 | #f) | |
| 9195 | (@apply | |
| 9196 | (lambda (#{id 3371}# | |
| 9197 | #{val 3372}# | |
| 9198 | #{e1 3373}# | |
| 9199 | #{e2 3374}#) | |
| 9200 | (#{chi-let 3317}# | |
| 9201 | #{e 3346}# | |
| 9202 | #{r 3347}# | |
| 9203 | #{w 3348}# | |
| 9204 | #{s 3349}# | |
| 9205 | #{mod 3350}# | |
| 9206 | (lambda (#{src 1104}# | |
| 9207 | #{ids 1105}# | |
| 9208 | #{vars 1106}# | |
| 9209 | #{val-exps 1107}# | |
| 9210 | #{body-exp 1108}#) | |
| 9211 | (begin | |
| 9212 | (for-each | |
| 9213 | #{maybe-name-value! 267}# | |
| 9214 | #{ids 1105}# | |
| 9215 | #{val-exps 1107}#) | |
| 9216 | (if (null? #{vars 1106}#) | |
| 9217 | #{body-exp 1108}# | |
| 9218 | (#{make-let 238}# | |
| 9219 | #{src 1104}# | |
| 9220 | #{ids 1105}# | |
| 9221 | #{vars 1106}# | |
| 9222 | #{val-exps 1107}# | |
| 9223 | #{body-exp 1108}#)))) | |
| 9224 | #{id 3371}# | |
| 9225 | #{val 3372}# | |
| 9226 | (cons #{e1 3373}# #{e2 3374}#))) | |
| 9227 | #{tmp 3357}#) | |
| 9228 | (let ((#{tmp 3378}# | |
| 9229 | ($sc-dispatch | |
| 9230 | #{e 3346}# | |
| 9231 | '(_ any #(each (any any)) any . each-any)))) | |
| 9232 | (if (if #{tmp 3378}# | |
| 9233 | (@apply | |
| 9234 | (lambda (#{f 3384}# | |
| 9235 | #{id 3385}# | |
| 9236 | #{val 3386}# | |
| 9237 | #{e1 3387}# | |
| 9238 | #{e2 3388}#) | |
| 9239 | (if (if (symbol? #{f 3384}#) | |
| 9240 | #t | |
| 9241 | (if (if (vector? #{f 3384}#) | |
| 9242 | (if (= (vector-length #{f 3384}#) 4) | |
| 9243 | (eq? (vector-ref #{f 3384}# 0) | |
| 9244 | 'syntax-object) | |
| 9245 | #f) | |
| 9246 | #f) | |
| 9247 | (symbol? (vector-ref #{f 3384}# 1)) | |
| 9248 | #f)) | |
| 9249 | (and-map #{id? 349}# #{id 3385}#) | |
| 9250 | #f)) | |
| 9251 | #{tmp 3378}#) | |
| 9252 | #f) | |
| 9253 | (@apply | |
| 9254 | (lambda (#{f 3397}# | |
| 9255 | #{id 3398}# | |
| 9256 | #{val 3399}# | |
| 9257 | #{e1 3400}# | |
| 9258 | #{e2 3401}#) | |
| 9259 | (#{chi-let 3317}# | |
| 9260 | #{e 3346}# | |
| 9261 | #{r 3347}# | |
| 9262 | #{w 3348}# | |
| 9263 | #{s 3349}# | |
| 9264 | #{mod 3350}# | |
| 9265 | (lambda (#{src 1114}# | |
| 9266 | #{ids 1115}# | |
| 9267 | #{vars 1116}# | |
| 9268 | #{val-exps 1117}# | |
| 9269 | #{body-exp 1118}#) | |
| 9270 | (let ((#{f 1128}# (car #{vars 1116}#)) | |
| 9271 | (#{f-name 1129}# (car #{ids 1115}#)) | |
| 9272 | (#{vars 1130}# (cdr #{vars 1116}#)) | |
| 9273 | (#{ids 1131}# (cdr #{ids 1115}#))) | |
| 9274 | (let ((#{proc 1133}# | |
| 9275 | (#{build-simple-lambda 289}# | |
| 9276 | #{src 1114}# | |
| 9277 | #{ids 1131}# | |
| 9278 | #f | |
| 9279 | #{vars 1130}# | |
| 9280 | '() | |
| 9281 | #{body-exp 1118}#))) | |
| 9282 | (begin | |
| 9283 | (#{maybe-name-value! 267}# | |
| 9284 | #{f-name 1129}# | |
| 9285 | #{proc 1133}#) | |
| 9286 | (for-each | |
| 9287 | #{maybe-name-value! 267}# | |
| 9288 | #{ids 1131}# | |
| 9289 | #{val-exps 1117}#) | |
| 9290 | (#{make-letrec 240}# | |
| 9291 | #{src 1114}# | |
| 9292 | #f | |
| 9293 | (list #{f-name 1129}#) | |
| 9294 | (list #{f 1128}#) | |
| 9295 | (list #{proc 1133}#) | |
| 9296 | (#{build-application 271}# | |
| 9297 | #{src 1114}# | |
| 9298 | (#{build-lexical-reference 277}# | |
| 9299 | 'fun | |
| 9300 | #{src 1114}# | |
| 9301 | #{f-name 1129}# | |
| 9302 | #{f 1128}#) | |
| 9303 | #{val-exps 1117}#)))))) | |
| 9304 | (cons #{f 3397}# #{id 3398}#) | |
| 9305 | #{val 3399}# | |
| 9306 | (cons #{e1 3400}# #{e2 3401}#))) | |
| 9307 | #{tmp 3378}#) | |
| 9308 | (syntax-violation | |
| 9309 | 'let | |
| 9310 | "bad let" | |
| 9311 | (#{wrap 423}# | |
| 9312 | (begin | |
| 9313 | (if (if (pair? #{e 3346}#) #{s 3349}# #f) | |
| 9314 | (set-source-properties! #{e 3346}# #{s 3349}#)) | |
| 9315 | #{e 3346}#) | |
| 9316 | #{w 3348}# | |
| 9317 | #{mod 3350}#))))))))) | |
| 9318 | (#{global-extend 345}# | |
| 9319 | 'core | |
| 9320 | 'letrec | |
| 9321 | (lambda (#{e 3407}# | |
| 9322 | #{r 3408}# | |
| 9323 | #{w 3409}# | |
| 9324 | #{s 3410}# | |
| 9325 | #{mod 3411}#) | |
| 9326 | (let ((#{tmp 3418}# | |
| 9327 | ($sc-dispatch | |
| 9328 | #{e 3407}# | |
| 9329 | '(_ #(each (any any)) any . each-any)))) | |
| 9330 | (if (if #{tmp 3418}# | |
| 9331 | (@apply | |
| 9332 | (lambda (#{id 3423}# | |
| 9333 | #{val 3424}# | |
| 9334 | #{e1 3425}# | |
| 9335 | #{e2 3426}#) | |
| 9336 | (and-map #{id? 349}# #{id 3423}#)) | |
| 9337 | #{tmp 3418}#) | |
| 9338 | #f) | |
| 9339 | (@apply | |
| 9340 | (lambda (#{id 3432}# | |
| 9341 | #{val 3433}# | |
| 9342 | #{e1 3434}# | |
| 9343 | #{e2 3435}#) | |
| 9344 | (if (not (#{valid-bound-ids? 417}# #{id 3432}#)) | |
| 9345 | (syntax-violation | |
| 9346 | 'letrec | |
| 9347 | "duplicate bound variable" | |
| 9348 | #{e 3407}#) | |
| 9349 | (let ((#{labels 3441}# | |
| 9350 | (#{gen-labels 369}# #{id 3432}#)) | |
| 9351 | (#{new-vars 3442}# | |
| 9352 | (map #{gen-var 465}# #{id 3432}#))) | |
| 9353 | (let ((#{w 3445}# | |
| 9354 | (#{make-binding-wrap 401}# | |
| 9355 | #{id 3432}# | |
| 9356 | #{labels 3441}# | |
| 9357 | #{w 3409}#)) | |
| 9358 | (#{r 3446}# | |
| 9359 | (#{extend-var-env 339}# | |
| 9360 | #{labels 3441}# | |
| 9361 | #{new-vars 3442}# | |
| 9362 | #{r 3408}#))) | |
| 9363 | (#{build-letrec 305}# | |
| 9364 | #{s 3410}# | |
| 9365 | #f | |
| 9366 | (map syntax->datum #{id 3432}#) | |
| 9367 | #{new-vars 3442}# | |
| 9368 | (map (lambda (#{x 3447}#) | |
| 9369 | (#{chi 437}# | |
| 9370 | #{x 3447}# | |
| 9371 | #{r 3446}# | |
| 9372 | #{w 3445}# | |
| 9373 | #{mod 3411}#)) | |
| 9374 | #{val 3433}#) | |
| 9375 | (#{chi-body 445}# | |
| 9376 | (cons #{e1 3434}# #{e2 3435}#) | |
| 9377 | (#{wrap 423}# | |
| 9378 | (begin | |
| 9379 | (if (if (pair? #{e 3407}#) #{s 3410}# #f) | |
| 9380 | (set-source-properties! #{e 3407}# #{s 3410}#)) | |
| 9381 | #{e 3407}#) | |
| 9382 | #{w 3445}# | |
| 9383 | #{mod 3411}#) | |
| 9384 | #{r 3446}# | |
| 9385 | #{w 3445}# | |
| 9386 | #{mod 3411}#)))))) | |
| 9387 | #{tmp 3418}#) | |
| 9388 | (syntax-violation | |
| 9389 | 'letrec | |
| 9390 | "bad letrec" | |
| 9391 | (#{wrap 423}# | |
| 9392 | (begin | |
| 9393 | (if (if (pair? #{e 3407}#) #{s 3410}# #f) | |
| 9394 | (set-source-properties! #{e 3407}# #{s 3410}#)) | |
| 9395 | #{e 3407}#) | |
| 9396 | #{w 3409}# | |
| 9397 | #{mod 3411}#)))))) | |
| 9398 | (#{global-extend 345}# | |
| 9399 | 'core | |
| 9400 | 'letrec* | |
| 9401 | (lambda (#{e 3453}# | |
| 9402 | #{r 3454}# | |
| 9403 | #{w 3455}# | |
| 9404 | #{s 3456}# | |
| 9405 | #{mod 3457}#) | |
| 9406 | (let ((#{tmp 3464}# | |
| 9407 | ($sc-dispatch | |
| 9408 | #{e 3453}# | |
| 9409 | '(_ #(each (any any)) any . each-any)))) | |
| 9410 | (if (if #{tmp 3464}# | |
| 9411 | (@apply | |
| 9412 | (lambda (#{id 3469}# | |
| 9413 | #{val 3470}# | |
| 9414 | #{e1 3471}# | |
| 9415 | #{e2 3472}#) | |
| 9416 | (and-map #{id? 349}# #{id 3469}#)) | |
| 9417 | #{tmp 3464}#) | |
| 9418 | #f) | |
| 9419 | (@apply | |
| 9420 | (lambda (#{id 3478}# | |
| 9421 | #{val 3479}# | |
| 9422 | #{e1 3480}# | |
| 9423 | #{e2 3481}#) | |
| 9424 | (if (not (#{valid-bound-ids? 417}# #{id 3478}#)) | |
| 9425 | (syntax-violation | |
| 9426 | 'letrec* | |
| 9427 | "duplicate bound variable" | |
| 9428 | #{e 3453}#) | |
| 9429 | (let ((#{labels 3487}# | |
| 9430 | (#{gen-labels 369}# #{id 3478}#)) | |
| 9431 | (#{new-vars 3488}# | |
| 9432 | (map #{gen-var 465}# #{id 3478}#))) | |
| 9433 | (let ((#{w 3491}# | |
| 9434 | (#{make-binding-wrap 401}# | |
| 9435 | #{id 3478}# | |
| 9436 | #{labels 3487}# | |
| 9437 | #{w 3455}#)) | |
| 9438 | (#{r 3492}# | |
| 9439 | (#{extend-var-env 339}# | |
| 9440 | #{labels 3487}# | |
| 9441 | #{new-vars 3488}# | |
| 9442 | #{r 3454}#))) | |
| 9443 | (#{build-letrec 305}# | |
| 9444 | #{s 3456}# | |
| 9445 | #t | |
| 9446 | (map syntax->datum #{id 3478}#) | |
| 9447 | #{new-vars 3488}# | |
| 9448 | (map (lambda (#{x 3493}#) | |
| 9449 | (#{chi 437}# | |
| 9450 | #{x 3493}# | |
| 9451 | #{r 3492}# | |
| 9452 | #{w 3491}# | |
| 9453 | #{mod 3457}#)) | |
| 9454 | #{val 3479}#) | |
| 9455 | (#{chi-body 445}# | |
| 9456 | (cons #{e1 3480}# #{e2 3481}#) | |
| 9457 | (#{wrap 423}# | |
| 9458 | (begin | |
| 9459 | (if (if (pair? #{e 3453}#) #{s 3456}# #f) | |
| 9460 | (set-source-properties! #{e 3453}# #{s 3456}#)) | |
| 9461 | #{e 3453}#) | |
| 9462 | #{w 3491}# | |
| 9463 | #{mod 3457}#) | |
| 9464 | #{r 3492}# | |
| 9465 | #{w 3491}# | |
| 9466 | #{mod 3457}#)))))) | |
| 9467 | #{tmp 3464}#) | |
| 9468 | (syntax-violation | |
| 9469 | 'letrec* | |
| 9470 | "bad letrec*" | |
| 9471 | (#{wrap 423}# | |
| 9472 | (begin | |
| 9473 | (if (if (pair? #{e 3453}#) #{s 3456}# #f) | |
| 9474 | (set-source-properties! #{e 3453}# #{s 3456}#)) | |
| 9475 | #{e 3453}#) | |
| 9476 | #{w 3455}# | |
| 9477 | #{mod 3457}#)))))) | |
| 9478 | (#{global-extend 345}# | |
| 9479 | 'core | |
| 9480 | 'set! | |
| 9481 | (lambda (#{e 3499}# | |
| 9482 | #{r 3500}# | |
| 9483 | #{w 3501}# | |
| 9484 | #{s 3502}# | |
| 9485 | #{mod 3503}#) | |
| 9486 | (let ((#{tmp 3510}# | |
| 9487 | ($sc-dispatch #{e 3499}# '(_ any any)))) | |
| 9488 | (if (if #{tmp 3510}# | |
| 9489 | (@apply | |
| 9490 | (lambda (#{id 3513}# #{val 3514}#) | |
| 9491 | (if (symbol? #{id 3513}#) | |
| 9492 | #t | |
| 9493 | (if (if (vector? #{id 3513}#) | |
| 9494 | (if (= (vector-length #{id 3513}#) 4) | |
| 9495 | (eq? (vector-ref #{id 3513}# 0) 'syntax-object) | |
| 9496 | #f) | |
| 9497 | #f) | |
| 9498 | (symbol? (vector-ref #{id 3513}# 1)) | |
| 9499 | #f))) | |
| 9500 | #{tmp 3510}#) | |
| 9501 | #f) | |
| 9502 | (@apply | |
| 9503 | (lambda (#{id 3517}# #{val 3518}#) | |
| 9504 | (let ((#{n 3521}# | |
| 9505 | (#{id-var-name 411}# #{id 3517}# #{w 3501}#)) | |
| 9506 | (#{id-mod 3522}# | |
| 9507 | (if (if (vector? #{id 3517}#) | |
| 9508 | (if (= (vector-length #{id 3517}#) 4) | |
| 9509 | (eq? (vector-ref #{id 3517}# 0) 'syntax-object) | |
| 9510 | #f) | |
| 9511 | #f) | |
| 9512 | (vector-ref #{id 3517}# 3) | |
| 9513 | #{mod 3503}#))) | |
| 9514 | (let ((#{b 3524}# | |
| 9515 | (let ((#{t 7016}# (assq #{n 3521}# #{r 3500}#))) | |
| 9516 | (if #{t 7016}# | |
| 9517 | (cdr #{t 7016}#) | |
| 9518 | (if (symbol? #{n 3521}#) | |
| 9519 | (let ((#{t 7017}# | |
| 9520 | (#{get-global-definition-hook 263}# | |
| 9521 | #{n 3521}# | |
| 9522 | #{id-mod 3522}#))) | |
| 9523 | (if #{t 7017}# #{t 7017}# '(global))) | |
| 9524 | '(displaced-lexical)))))) | |
| 9525 | (let ((#{atom-key 3527}# (car #{b 3524}#))) | |
| 9526 | (if (memv #{atom-key 3527}# '(lexical)) | |
| 9527 | ((lambda (#{source 993}# | |
| 9528 | #{name 994}# | |
| 9529 | #{var 995}# | |
| 9530 | #{exp 996}#) | |
| df40b969 | 9531 | (begin |
| 014de9e2 AW |
9532 | (#{maybe-name-value! 267}# |
| 9533 | #{name 994}# | |
| 9534 | #{exp 996}#) | |
| 9535 | (#{make-lexical-set 216}# | |
| 9536 | #{source 993}# | |
| 9537 | #{name 994}# | |
| 9538 | #{var 995}# | |
| 9539 | #{exp 996}#))) | |
| 9540 | #{s 3502}# | |
| 9541 | (syntax->datum #{id 3517}#) | |
| 9542 | (cdr #{b 3524}#) | |
| 9543 | (#{chi 437}# | |
| 9544 | #{val 3518}# | |
| 9545 | #{r 3500}# | |
| 9546 | #{w 3501}# | |
| 9547 | #{mod 3503}#)) | |
| 9548 | (if (memv #{atom-key 3527}# '(global)) | |
| 9549 | (#{build-global-assignment 285}# | |
| 9550 | #{s 3502}# | |
| 9551 | #{n 3521}# | |
| 9552 | (#{chi 437}# | |
| 9553 | #{val 3518}# | |
| 9554 | #{r 3500}# | |
| 9555 | #{w 3501}# | |
| 9556 | #{mod 3503}#) | |
| 9557 | #{id-mod 3522}#) | |
| 9558 | (if (memv #{atom-key 3527}# '(macro)) | |
| 9559 | (let ((#{p 3534}# (cdr #{b 3524}#))) | |
| 9560 | (if (procedure-property | |
| 9561 | #{p 3534}# | |
| 9562 | 'variable-transformer) | |
| 9563 | (#{chi 437}# | |
| 9564 | (#{chi-macro 443}# | |
| 9565 | #{p 3534}# | |
| 9566 | #{e 3499}# | |
| 9567 | #{r 3500}# | |
| 9568 | #{w 3501}# | |
| 9569 | #{s 3502}# | |
| 9570 | #f | |
| 9571 | #{mod 3503}#) | |
| 9572 | #{r 3500}# | |
| 9573 | '(()) | |
| 9574 | #{mod 3503}#) | |
| 9575 | (syntax-violation | |
| 9576 | 'set! | |
| 9577 | "not a variable transformer" | |
| 9578 | (#{wrap 423}# | |
| 9579 | #{e 3499}# | |
| 9580 | #{w 3501}# | |
| 9581 | #{mod 3503}#) | |
| 9582 | (#{wrap 423}# | |
| 9583 | #{id 3517}# | |
| 9584 | #{w 3501}# | |
| 9585 | #{id-mod 3522}#)))) | |
| 9586 | (if (memv #{atom-key 3527}# '(displaced-lexical)) | |
| 9587 | (syntax-violation | |
| 9588 | 'set! | |
| 9589 | "identifier out of context" | |
| 9590 | (#{wrap 423}# | |
| 9591 | #{id 3517}# | |
| 9592 | #{w 3501}# | |
| 9593 | #{mod 3503}#)) | |
| 9594 | (syntax-violation | |
| 9595 | 'set! | |
| 9596 | "bad set!" | |
| 9597 | (#{wrap 423}# | |
| 9598 | (begin | |
| 9599 | (if (if (pair? #{e 3499}#) #{s 3502}# #f) | |
| 9600 | (set-source-properties! | |
| 9601 | #{e 3499}# | |
| 9602 | #{s 3502}#)) | |
| 9603 | #{e 3499}#) | |
| 9604 | #{w 3501}# | |
| 9605 | #{mod 3503}#)))))))))) | |
| 9606 | #{tmp 3510}#) | |
| 9607 | (let ((#{tmp 3539}# | |
| 9608 | ($sc-dispatch | |
| 9609 | #{e 3499}# | |
| 9610 | '(_ (any . each-any) any)))) | |
| 9611 | (if #{tmp 3539}# | |
| 9612 | (@apply | |
| 9613 | (lambda (#{head 3543}# #{tail 3544}# #{val 3545}#) | |
| 9614 | (call-with-values | |
| 9615 | (lambda () | |
| 9616 | (#{syntax-type 435}# | |
| 9617 | #{head 3543}# | |
| 9618 | #{r 3500}# | |
| 9619 | '(()) | |
| 9620 | #f | |
| 9621 | #f | |
| 9622 | #{mod 3503}# | |
| 9623 | #t)) | |
| 9624 | (lambda (#{type 3548}# | |
| 9625 | #{value 3549}# | |
| 9626 | #{ee 3550}# | |
| 9627 | #{ww 3551}# | |
| 9628 | #{ss 3552}# | |
| 9629 | #{modmod 3553}#) | |
| 9630 | (if (memv #{type 3548}# '(module-ref)) | |
| 9631 | (let ((#{val 3562}# | |
| 9632 | (#{chi 437}# | |
| 9633 | #{val 3545}# | |
| 9634 | #{r 3500}# | |
| 9635 | #{w 3501}# | |
| 9636 | #{mod 3503}#))) | |
| 9637 | (call-with-values | |
| 9638 | (lambda () | |
| 9639 | (#{value 3549}# | |
| 9640 | (cons #{head 3543}# #{tail 3544}#) | |
| 9641 | #{r 3500}# | |
| 9642 | #{w 3501}#)) | |
| 9643 | (lambda (#{e 3564}# | |
| 9644 | #{r 3565}# | |
| 9645 | #{w 3566}# | |
| 9646 | #{s* 3567}# | |
| 9647 | #{mod 3568}#) | |
| 9648 | (let ((#{tmp 3575}# (list #{e 3564}#))) | |
| 9649 | (if (if #{tmp 3575}# | |
| 9650 | (@apply | |
| 9651 | (lambda (#{e 3577}#) | |
| 9652 | (if (symbol? #{e 3577}#) | |
| 9653 | #t | |
| 9654 | (if (if (vector? #{e 3577}#) | |
| 9655 | (if (= (vector-length | |
| 9656 | #{e 3577}#) | |
| 9657 | 4) | |
| 9658 | (eq? (vector-ref | |
| 9659 | #{e 3577}# | |
| 9660 | 0) | |
| 9661 | 'syntax-object) | |
| 9662 | #f) | |
| 9663 | #f) | |
| 9664 | (symbol? | |
| 9665 | (vector-ref #{e 3577}# 1)) | |
| 9666 | #f))) | |
| 9667 | #{tmp 3575}#) | |
| 9668 | #f) | |
| 9669 | (@apply | |
| 9670 | (lambda (#{e 3579}#) | |
| 9671 | (let ((#{var 7356}# | |
| 9672 | (syntax->datum #{e 3579}#))) | |
| 9673 | (begin | |
| 9674 | (if (if (struct? #{val 3562}#) | |
| 9675 | (eq? (struct-vtable | |
| 9676 | #{val 3562}#) | |
| 9677 | (vector-ref | |
| 9678 | %expanded-vtables | |
| 9679 | 13)) | |
| df40b969 | 9680 | #f) |
| 014de9e2 AW |
9681 | (let ((#{meta 7367}# |
| 9682 | (struct-ref | |
| 9683 | #{val 3562}# | |
| 9684 | 1))) | |
| 9685 | (if (not (assq 'name | |
| 9686 | #{meta 7367}#)) | |
| 9687 | (let ((#{v 7377}# | |
| 9688 | (cons (cons 'name | |
| 9689 | #{var 7356}#) | |
| 9690 | #{meta 7367}#))) | |
| 9691 | (struct-set! | |
| 9692 | #{val 3562}# | |
| 9693 | 1 | |
| 9694 | #{v 7377}#))))) | |
| 9695 | (#{analyze-variable 281}# | |
| 9696 | #{mod 3568}# | |
| 9697 | #{var 7356}# | |
| 9698 | (lambda (#{mod 7359}# | |
| 9699 | #{var 7360}# | |
| 9700 | #{public? 7361}#) | |
| 9701 | (make-struct/no-tail | |
| 9702 | (vector-ref | |
| 9703 | %expanded-vtables | |
| 9704 | 6) | |
| 9705 | #{s 3502}# | |
| 9706 | #{mod 7359}# | |
| 9707 | #{var 7360}# | |
| 9708 | #{public? 7361}# | |
| 9709 | #{val 3562}#)) | |
| 9710 | (lambda (#{var 7362}#) | |
| 9711 | (make-struct/no-tail | |
| 9712 | (vector-ref | |
| 9713 | %expanded-vtables | |
| 9714 | 8) | |
| 9715 | #{s 3502}# | |
| 9716 | #{var 7362}# | |
| 9717 | #{val 3562}#)))))) | |
| 9718 | #{tmp 3575}#) | |
| 9719 | (syntax-violation | |
| 9720 | #f | |
| 9721 | "source expression failed to match any pattern" | |
| 9722 | #{e 3564}#)))))) | |
| 9723 | (#{build-application 271}# | |
| 9724 | #{s 3502}# | |
| 9725 | (#{chi 437}# | |
| 9726 | (list '#(syntax-object | |
| 9727 | setter | |
| 9728 | ((top) | |
| 9729 | #(ribcage () () ()) | |
| 9730 | #(ribcage () () ()) | |
| 9731 | #(ribcage | |
| 9732 | #(type value ee ww ss modmod) | |
| 9733 | #((top) | |
| 9734 | (top) | |
| 9735 | (top) | |
| 9736 | (top) | |
| 9737 | (top) | |
| 9738 | (top)) | |
| 9739 | #("i3554" | |
| 9740 | "i3555" | |
| 9741 | "i3556" | |
| 9742 | "i3557" | |
| 9743 | "i3558" | |
| 9744 | "i3559")) | |
| 9745 | #(ribcage | |
| 9746 | #(head tail val) | |
| 9747 | #((top) (top) (top)) | |
| 9748 | #("i3540" "i3541" "i3542")) | |
| 9749 | #(ribcage () () ()) | |
| 9750 | #(ribcage | |
| 9751 | #(e r w s mod) | |
| 9752 | #((top) (top) (top) (top) (top)) | |
| 9753 | #("i3504" | |
| 9754 | "i3505" | |
| 9755 | "i3506" | |
| 9756 | "i3507" | |
| 9757 | "i3508")) | |
| 9758 | #(ribcage | |
| 9759 | (lambda-var-list | |
| 9760 | gen-var | |
| 9761 | strip | |
| 9762 | chi-lambda-case | |
| 9763 | lambda*-formals | |
| 9764 | chi-simple-lambda | |
| 9765 | lambda-formals | |
| 9766 | ellipsis? | |
| 9767 | chi-void | |
| 9768 | eval-local-transformer | |
| 9769 | chi-local-syntax | |
| 9770 | chi-body | |
| 9771 | chi-macro | |
| 9772 | chi-application | |
| 9773 | chi-expr | |
| 9774 | chi | |
| 9775 | syntax-type | |
| 9776 | chi-when-list | |
| 9777 | chi-install-global | |
| 9778 | chi-top-sequence | |
| 9779 | chi-sequence | |
| 9780 | source-wrap | |
| 9781 | wrap | |
| 9782 | bound-id-member? | |
| 9783 | distinct-bound-ids? | |
| 9784 | valid-bound-ids? | |
| 9785 | bound-id=? | |
| 9786 | free-id=? | |
| 9787 | id-var-name | |
| 9788 | same-marks? | |
| 9789 | join-marks | |
| 9790 | join-wraps | |
| 9791 | smart-append | |
| 9792 | make-binding-wrap | |
| 9793 | extend-ribcage! | |
| 9794 | make-empty-ribcage | |
| 9795 | new-mark | |
| 9796 | anti-mark | |
| 9797 | the-anti-mark | |
| 9798 | top-marked? | |
| 9799 | top-wrap | |
| 9800 | empty-wrap | |
| 9801 | set-ribcage-labels! | |
| 9802 | set-ribcage-marks! | |
| 9803 | set-ribcage-symnames! | |
| 9804 | ribcage-labels | |
| 9805 | ribcage-marks | |
| 9806 | ribcage-symnames | |
| 9807 | ribcage? | |
| 9808 | make-ribcage | |
| 9809 | gen-labels | |
| 9810 | gen-label | |
| 9811 | make-rename | |
| 9812 | rename-marks | |
| 9813 | rename-new | |
| 9814 | rename-old | |
| 9815 | subst-rename? | |
| 9816 | wrap-subst | |
| 9817 | wrap-marks | |
| 9818 | make-wrap | |
| 9819 | id-sym-name&marks | |
| 9820 | id-sym-name | |
| 9821 | id? | |
| 9822 | nonsymbol-id? | |
| 9823 | global-extend | |
| 9824 | lookup | |
| 9825 | macros-only-env | |
| 9826 | extend-var-env | |
| 9827 | extend-env | |
| 9828 | null-env | |
| 9829 | binding-value | |
| 9830 | binding-type | |
| 9831 | make-binding | |
| 9832 | arg-check | |
| 9833 | source-annotation | |
| 9834 | no-source | |
| 9835 | set-syntax-object-module! | |
| 9836 | set-syntax-object-wrap! | |
| 9837 | set-syntax-object-expression! | |
| 9838 | syntax-object-module | |
| 9839 | syntax-object-wrap | |
| 9840 | syntax-object-expression | |
| 9841 | syntax-object? | |
| 9842 | make-syntax-object | |
| 9843 | build-lexical-var | |
| 9844 | build-letrec | |
| 9845 | build-named-let | |
| 9846 | build-let | |
| 9847 | build-sequence | |
| 9848 | build-data | |
| 9849 | build-primref | |
| 9850 | build-lambda-case | |
| 9851 | build-case-lambda | |
| 9852 | build-simple-lambda | |
| 9853 | build-global-definition | |
| 9854 | build-global-assignment | |
| 9855 | build-global-reference | |
| 9856 | analyze-variable | |
| 9857 | build-lexical-assignment | |
| 9858 | build-lexical-reference | |
| 9859 | build-dynlet | |
| 9860 | build-conditional | |
| 9861 | build-application | |
| 9862 | build-void | |
| 9863 | maybe-name-value! | |
| 9864 | decorate-source | |
| 9865 | get-global-definition-hook | |
| 9866 | put-global-definition-hook | |
| 9867 | gensym-hook | |
| 9868 | local-eval-hook | |
| 9869 | top-level-eval-hook | |
| 9870 | fx< | |
| 9871 | fx= | |
| 9872 | fx- | |
| 9873 | fx+ | |
| 9874 | set-lambda-meta! | |
| 9875 | lambda-meta | |
| 9876 | lambda? | |
| 9877 | make-dynlet | |
| 9878 | make-letrec | |
| 9879 | make-let | |
| 9880 | make-lambda-case | |
| 9881 | make-lambda | |
| 9882 | make-sequence | |
| 9883 | make-application | |
| 9884 | make-conditional | |
| 9885 | make-toplevel-define | |
| 9886 | make-toplevel-set | |
| 9887 | make-toplevel-ref | |
| 9888 | make-module-set | |
| 9889 | make-module-ref | |
| 9890 | make-lexical-set | |
| 9891 | make-lexical-ref | |
| 9892 | make-primitive-ref | |
| 9893 | make-const | |
| 9894 | make-void) | |
| 9895 | ((top) | |
| 9896 | (top) | |
| 9897 | (top) | |
| 9898 | (top) | |
| 9899 | (top) | |
| 9900 | (top) | |
| 9901 | (top) | |
| 9902 | (top) | |
| 9903 | (top) | |
| 9904 | (top) | |
| 9905 | (top) | |
| 9906 | (top) | |
| 9907 | (top) | |
| 9908 | (top) | |
| 9909 | (top) | |
| 9910 | (top) | |
| 9911 | (top) | |
| 9912 | (top) | |
| 9913 | (top) | |
| 9914 | (top) | |
| 9915 | (top) | |
| 9916 | (top) | |
| 9917 | (top) | |
| 9918 | (top) | |
| 9919 | (top) | |
| 9920 | (top) | |
| 9921 | (top) | |
| 9922 | (top) | |
| 9923 | (top) | |
| 9924 | (top) | |
| 9925 | (top) | |
| 9926 | (top) | |
| 9927 | (top) | |
| 9928 | (top) | |
| 9929 | (top) | |
| 9930 | (top) | |
| 9931 | (top) | |
| 9932 | (top) | |
| 9933 | (top) | |
| 9934 | (top) | |
| 9935 | (top) | |
| 9936 | (top) | |
| 9937 | (top) | |
| 9938 | (top) | |
| 9939 | (top) | |
| 9940 | (top) | |
| 9941 | (top) | |
| 9942 | (top) | |
| 9943 | (top) | |
| 9944 | (top) | |
| 9945 | (top) | |
| 9946 | (top) | |
| 9947 | (top) | |
| 9948 | (top) | |
| 9949 | (top) | |
| 9950 | (top) | |
| 9951 | (top) | |
| 9952 | (top) | |
| 9953 | (top) | |
| 9954 | (top) | |
| 9955 | (top) | |
| 9956 | (top) | |
| 9957 | (top) | |
| 9958 | (top) | |
| 9959 | (top) | |
| 9960 | (top) | |
| 9961 | (top) | |
| 9962 | (top) | |
| 9963 | (top) | |
| 9964 | (top) | |
| 9965 | (top) | |
| 9966 | (top) | |
| 9967 | (top) | |
| 9968 | (top) | |
| 9969 | (top) | |
| 9970 | (top) | |
| 9971 | (top) | |
| 9972 | (top) | |
| 9973 | (top) | |
| 9974 | (top) | |
| 9975 | (top) | |
| 9976 | (top) | |
| 9977 | (top) | |
| 9978 | (top) | |
| 9979 | (top) | |
| 9980 | (top) | |
| 9981 | (top) | |
| 9982 | (top) | |
| 9983 | (top) | |
| 9984 | (top) | |
| 9985 | (top) | |
| 9986 | (top) | |
| 9987 | (top) | |
| 9988 | (top) | |
| 9989 | (top) | |
| 9990 | (top) | |
| 9991 | (top) | |
| 9992 | (top) | |
| 9993 | (top) | |
| 9994 | (top) | |
| 9995 | (top) | |
| 9996 | (top) | |
| 9997 | (top) | |
| 9998 | (top) | |
| 9999 | (top) | |
| 10000 | (top) | |
| 10001 | (top) | |
| 10002 | (top) | |
| 10003 | (top) | |
| 10004 | (top) | |
| 10005 | (top) | |
| 10006 | (top) | |
| 10007 | (top) | |
| 10008 | (top) | |
| 10009 | (top) | |
| 10010 | (top) | |
| 10011 | (top) | |
| 10012 | (top) | |
| 10013 | (top) | |
| 10014 | (top) | |
| 10015 | (top) | |
| 10016 | (top) | |
| 10017 | (top) | |
| 10018 | (top) | |
| 10019 | (top) | |
| 10020 | (top) | |
| 10021 | (top) | |
| 10022 | (top) | |
| 10023 | (top) | |
| 10024 | (top) | |
| 10025 | (top) | |
| 10026 | (top) | |
| 10027 | (top) | |
| 10028 | (top) | |
| 10029 | (top) | |
| 10030 | (top)) | |
| 10031 | ("i466" | |
| 10032 | "i464" | |
| 10033 | "i462" | |
| 10034 | "i460" | |
| 10035 | "i458" | |
| 10036 | "i456" | |
| 10037 | "i454" | |
| 10038 | "i452" | |
| 10039 | "i450" | |
| 10040 | "i448" | |
| 10041 | "i446" | |
| 10042 | "i444" | |
| 10043 | "i442" | |
| 10044 | "i440" | |
| 10045 | "i438" | |
| 10046 | "i436" | |
| 10047 | "i434" | |
| 10048 | "i432" | |
| 10049 | "i430" | |
| 10050 | "i428" | |
| 10051 | "i426" | |
| 10052 | "i424" | |
| 10053 | "i422" | |
| 10054 | "i420" | |
| 10055 | "i418" | |
| 10056 | "i416" | |
| 10057 | "i414" | |
| 10058 | "i412" | |
| 10059 | "i410" | |
| 10060 | "i408" | |
| 10061 | "i406" | |
| 10062 | "i404" | |
| 10063 | "i402" | |
| 10064 | "i400" | |
| 10065 | "i398" | |
| 10066 | "i397" | |
| 10067 | "i395" | |
| 10068 | "i392" | |
| 10069 | "i391" | |
| 10070 | "i390" | |
| 10071 | "i388" | |
| 10072 | "i387" | |
| 10073 | "i385" | |
| 10074 | "i383" | |
| 10075 | "i381" | |
| 10076 | "i379" | |
| 10077 | "i377" | |
| 10078 | "i375" | |
| 10079 | "i373" | |
| 10080 | "i371" | |
| 10081 | "i368" | |
| 10082 | "i366" | |
| 10083 | "i365" | |
| 10084 | "i363" | |
| 10085 | "i361" | |
| 10086 | "i359" | |
| 10087 | "i357" | |
| 10088 | "i356" | |
| 10089 | "i355" | |
| 10090 | "i354" | |
| 10091 | "i352" | |
| 10092 | "i351" | |
| 10093 | "i348" | |
| 10094 | "i346" | |
| 10095 | "i344" | |
| 10096 | "i342" | |
| 10097 | "i340" | |
| 10098 | "i338" | |
| 10099 | "i336" | |
| 10100 | "i335" | |
| 10101 | "i334" | |
| 10102 | "i332" | |
| 10103 | "i330" | |
| 10104 | "i329" | |
| 10105 | "i326" | |
| 10106 | "i325" | |
| 10107 | "i323" | |
| 10108 | "i321" | |
| 10109 | "i319" | |
| 10110 | "i317" | |
| 10111 | "i315" | |
| 10112 | "i313" | |
| 10113 | "i311" | |
| 10114 | "i309" | |
| 10115 | "i307" | |
| 10116 | "i304" | |
| 10117 | "i302" | |
| 10118 | "i300" | |
| 10119 | "i298" | |
| 10120 | "i296" | |
| 10121 | "i294" | |
| 10122 | "i292" | |
| 10123 | "i290" | |
| 10124 | "i288" | |
| 10125 | "i286" | |
| 10126 | "i284" | |
| 10127 | "i282" | |
| 10128 | "i280" | |
| 10129 | "i278" | |
| 10130 | "i276" | |
| 10131 | "i274" | |
| 10132 | "i272" | |
| 10133 | "i270" | |
| 10134 | "i268" | |
| 10135 | "i266" | |
| 10136 | "i264" | |
| 10137 | "i262" | |
| 10138 | "i260" | |
| 10139 | "i259" | |
| 10140 | "i256" | |
| 10141 | "i254" | |
| 10142 | "i253" | |
| 10143 | "i252" | |
| 10144 | "i251" | |
| 10145 | "i250" | |
| 10146 | "i248" | |
| 10147 | "i246" | |
| 10148 | "i244" | |
| 10149 | "i241" | |
| 10150 | "i239" | |
| 10151 | "i237" | |
| 10152 | "i235" | |
| 10153 | "i233" | |
| 10154 | "i231" | |
| 10155 | "i229" | |
| 10156 | "i227" | |
| 10157 | "i225" | |
| 10158 | "i223" | |
| 10159 | "i221" | |
| 10160 | "i219" | |
| 10161 | "i217" | |
| 10162 | "i215" | |
| 10163 | "i213" | |
| 10164 | "i211" | |
| 10165 | "i209" | |
| 10166 | "i207")) | |
| 10167 | #(ribcage | |
| 10168 | (define-structure | |
| 10169 | define-expansion-accessors | |
| 10170 | define-expansion-constructors) | |
| 10171 | ((top) (top) (top)) | |
| 10172 | ("i45" "i44" "i43"))) | |
| 10173 | (hygiene guile)) | |
| 10174 | #{head 3543}#) | |
| 10175 | #{r 3500}# | |
| 10176 | #{w 3501}# | |
| 10177 | #{mod 3503}#) | |
| 10178 | (map (lambda (#{e 3581}#) | |
| 10179 | (#{chi 437}# | |
| 10180 | #{e 3581}# | |
| 10181 | #{r 3500}# | |
| 10182 | #{w 3501}# | |
| 10183 | #{mod 3503}#)) | |
| 10184 | (append | |
| 10185 | #{tail 3544}# | |
| 10186 | (list #{val 3545}#)))))))) | |
| 10187 | #{tmp 3539}#) | |
| 10188 | (syntax-violation | |
| 10189 | 'set! | |
| 10190 | "bad set!" | |
| 10191 | (#{wrap 423}# | |
| 10192 | (begin | |
| 10193 | (if (if (pair? #{e 3499}#) #{s 3502}# #f) | |
| 10194 | (set-source-properties! #{e 3499}# #{s 3502}#)) | |
| 10195 | #{e 3499}#) | |
| 10196 | #{w 3501}# | |
| 10197 | #{mod 3503}#)))))))) | |
| 10198 | (module-define! | |
| 10199 | (current-module) | |
| 10200 | '@ | |
| 10201 | (make-syntax-transformer | |
| 10202 | '@ | |
| 10203 | 'module-ref | |
| 10204 | (lambda (#{e 3586}# #{r 3587}# #{w 3588}#) | |
| 10205 | (let ((#{tmp 3593}# | |
| 10206 | ($sc-dispatch #{e 3586}# '(_ each-any any)))) | |
| 10207 | (if (if #{tmp 3593}# | |
| 10208 | (@apply | |
| 10209 | (lambda (#{mod 3596}# #{id 3597}#) | |
| 10210 | (if (and-map #{id? 349}# #{mod 3596}#) | |
| 10211 | (if (symbol? #{id 3597}#) | |
| 10212 | #t | |
| 10213 | (if (if (vector? #{id 3597}#) | |
| 10214 | (if (= (vector-length #{id 3597}#) 4) | |
| 10215 | (eq? (vector-ref #{id 3597}# 0) | |
| 10216 | 'syntax-object) | |
| 10217 | #f) | |
| 10218 | #f) | |
| 10219 | (symbol? (vector-ref #{id 3597}# 1)) | |
| 10220 | #f)) | |
| 10221 | #f)) | |
| 10222 | #{tmp 3593}#) | |
| 10223 | #f) | |
| 10224 | (@apply | |
| 10225 | (lambda (#{mod 3603}# #{id 3604}#) | |
| 10226 | (values | |
| 10227 | (syntax->datum #{id 3604}#) | |
| 10228 | #{r 3587}# | |
| 10229 | #{w 3588}# | |
| 10230 | #f | |
| 10231 | (syntax->datum | |
| 10232 | (cons '#(syntax-object | |
| 10233 | public | |
| 10234 | ((top) | |
| 10235 | #(ribcage | |
| 10236 | #(mod id) | |
| 10237 | #((top) (top)) | |
| 10238 | #("i3601" "i3602")) | |
| 10239 | #(ribcage () () ()) | |
| 10240 | #(ribcage | |
| 10241 | #(e r w) | |
| 10242 | #((top) (top) (top)) | |
| 10243 | #("i3589" "i3590" "i3591")) | |
| 10244 | #(ribcage | |
| 10245 | (lambda-var-list | |
| 10246 | gen-var | |
| 10247 | strip | |
| 10248 | chi-lambda-case | |
| 10249 | lambda*-formals | |
| 10250 | chi-simple-lambda | |
| 10251 | lambda-formals | |
| 10252 | ellipsis? | |
| 10253 | chi-void | |
| 10254 | eval-local-transformer | |
| 10255 | chi-local-syntax | |
| 10256 | chi-body | |
| 10257 | chi-macro | |
| 10258 | chi-application | |
| 10259 | chi-expr | |
| 10260 | chi | |
| 10261 | syntax-type | |
| 10262 | chi-when-list | |
| 10263 | chi-install-global | |
| 10264 | chi-top-sequence | |
| 10265 | chi-sequence | |
| 10266 | source-wrap | |
| 10267 | wrap | |
| 10268 | bound-id-member? | |
| 10269 | distinct-bound-ids? | |
| 10270 | valid-bound-ids? | |
| 10271 | bound-id=? | |
| 10272 | free-id=? | |
| 10273 | id-var-name | |
| 10274 | same-marks? | |
| 10275 | join-marks | |
| 10276 | join-wraps | |
| 10277 | smart-append | |
| 10278 | make-binding-wrap | |
| 10279 | extend-ribcage! | |
| 10280 | make-empty-ribcage | |
| 10281 | new-mark | |
| 10282 | anti-mark | |
| 10283 | the-anti-mark | |
| 10284 | top-marked? | |
| 10285 | top-wrap | |
| 10286 | empty-wrap | |
| 10287 | set-ribcage-labels! | |
| 10288 | set-ribcage-marks! | |
| 10289 | set-ribcage-symnames! | |
| 10290 | ribcage-labels | |
| 10291 | ribcage-marks | |
| 10292 | ribcage-symnames | |
| 10293 | ribcage? | |
| 10294 | make-ribcage | |
| 10295 | gen-labels | |
| 10296 | gen-label | |
| 10297 | make-rename | |
| 10298 | rename-marks | |
| 10299 | rename-new | |
| 10300 | rename-old | |
| 10301 | subst-rename? | |
| 10302 | wrap-subst | |
| 10303 | wrap-marks | |
| 10304 | make-wrap | |
| 10305 | id-sym-name&marks | |
| 10306 | id-sym-name | |
| 10307 | id? | |
| 10308 | nonsymbol-id? | |
| 10309 | global-extend | |
| 10310 | lookup | |
| 10311 | macros-only-env | |
| 10312 | extend-var-env | |
| 10313 | extend-env | |
| 10314 | null-env | |
| 10315 | binding-value | |
| 10316 | binding-type | |
| 10317 | make-binding | |
| 10318 | arg-check | |
| 10319 | source-annotation | |
| 10320 | no-source | |
| 10321 | set-syntax-object-module! | |
| 10322 | set-syntax-object-wrap! | |
| 10323 | set-syntax-object-expression! | |
| 10324 | syntax-object-module | |
| 10325 | syntax-object-wrap | |
| 10326 | syntax-object-expression | |
| 10327 | syntax-object? | |
| 10328 | make-syntax-object | |
| 10329 | build-lexical-var | |
| 10330 | build-letrec | |
| 10331 | build-named-let | |
| 10332 | build-let | |
| 10333 | build-sequence | |
| 10334 | build-data | |
| 10335 | build-primref | |
| 10336 | build-lambda-case | |
| 10337 | build-case-lambda | |
| 10338 | build-simple-lambda | |
| 10339 | build-global-definition | |
| 10340 | build-global-assignment | |
| 10341 | build-global-reference | |
| 10342 | analyze-variable | |
| 10343 | build-lexical-assignment | |
| 10344 | build-lexical-reference | |
| 10345 | build-dynlet | |
| 10346 | build-conditional | |
| 10347 | build-application | |
| 10348 | build-void | |
| 10349 | maybe-name-value! | |
| 10350 | decorate-source | |
| 10351 | get-global-definition-hook | |
| 10352 | put-global-definition-hook | |
| 10353 | gensym-hook | |
| 10354 | local-eval-hook | |
| 10355 | top-level-eval-hook | |
| 10356 | fx< | |
| 10357 | fx= | |
| 10358 | fx- | |
| 10359 | fx+ | |
| 10360 | set-lambda-meta! | |
| 10361 | lambda-meta | |
| 10362 | lambda? | |
| 10363 | make-dynlet | |
| 10364 | make-letrec | |
| 10365 | make-let | |
| 10366 | make-lambda-case | |
| 10367 | make-lambda | |
| 10368 | make-sequence | |
| 10369 | make-application | |
| 10370 | make-conditional | |
| 10371 | make-toplevel-define | |
| 10372 | make-toplevel-set | |
| 10373 | make-toplevel-ref | |
| 10374 | make-module-set | |
| 10375 | make-module-ref | |
| 10376 | make-lexical-set | |
| 10377 | make-lexical-ref | |
| 10378 | make-primitive-ref | |
| 10379 | make-const | |
| 10380 | make-void) | |
| 10381 | ((top) | |
| 10382 | (top) | |
| 10383 | (top) | |
| 10384 | (top) | |
| 10385 | (top) | |
| 10386 | (top) | |
| 10387 | (top) | |
| 10388 | (top) | |
| 10389 | (top) | |
| 10390 | (top) | |
| 10391 | (top) | |
| 10392 | (top) | |
| 10393 | (top) | |
| 10394 | (top) | |
| 10395 | (top) | |
| 10396 | (top) | |
| 10397 | (top) | |
| 10398 | (top) | |
| 10399 | (top) | |
| 10400 | (top) | |
| 10401 | (top) | |
| 10402 | (top) | |
| 10403 | (top) | |
| 10404 | (top) | |
| 10405 | (top) | |
| 10406 | (top) | |
| 10407 | (top) | |
| 10408 | (top) | |
| 10409 | (top) | |
| 10410 | (top) | |
| 10411 | (top) | |
| 10412 | (top) | |
| 10413 | (top) | |
| 10414 | (top) | |
| 10415 | (top) | |
| 10416 | (top) | |
| 10417 | (top) | |
| 10418 | (top) | |
| 10419 | (top) | |
| 10420 | (top) | |
| 10421 | (top) | |
| 10422 | (top) | |
| 10423 | (top) | |
| 10424 | (top) | |
| 10425 | (top) | |
| 10426 | (top) | |
| 10427 | (top) | |
| 10428 | (top) | |
| 10429 | (top) | |
| 10430 | (top) | |
| 10431 | (top) | |
| 10432 | (top) | |
| 10433 | (top) | |
| 10434 | (top) | |
| 10435 | (top) | |
| 10436 | (top) | |
| 10437 | (top) | |
| 10438 | (top) | |
| 10439 | (top) | |
| 10440 | (top) | |
| 10441 | (top) | |
| 10442 | (top) | |
| 10443 | (top) | |
| 10444 | (top) | |
| 10445 | (top) | |
| 10446 | (top) | |
| 10447 | (top) | |
| 10448 | (top) | |
| 10449 | (top) | |
| 10450 | (top) | |
| 10451 | (top) | |
| 10452 | (top) | |
| 10453 | (top) | |
| 10454 | (top) | |
| 10455 | (top) | |
| 10456 | (top) | |
| 10457 | (top) | |
| 10458 | (top) | |
| 10459 | (top) | |
| 10460 | (top) | |
| 10461 | (top) | |
| 10462 | (top) | |
| 10463 | (top) | |
| 10464 | (top) | |
| 10465 | (top) | |
| 10466 | (top) | |
| 10467 | (top) | |
| 10468 | (top) | |
| 10469 | (top) | |
| 10470 | (top) | |
| 10471 | (top) | |
| 10472 | (top) | |
| 10473 | (top) | |
| 10474 | (top) | |
| 10475 | (top) | |
| 10476 | (top) | |
| 10477 | (top) | |
| 10478 | (top) | |
| 10479 | (top) | |
| 10480 | (top) | |
| 10481 | (top) | |
| 10482 | (top) | |
| 10483 | (top) | |
| 10484 | (top) | |
| 10485 | (top) | |
| 10486 | (top) | |
| 10487 | (top) | |
| 10488 | (top) | |
| 10489 | (top) | |
| 10490 | (top) | |
| 10491 | (top) | |
| 10492 | (top) | |
| 10493 | (top) | |
| 10494 | (top) | |
| 10495 | (top) | |
| 10496 | (top) | |
| 10497 | (top) | |
| 10498 | (top) | |
| 10499 | (top) | |
| 10500 | (top) | |
| 10501 | (top) | |
| 10502 | (top) | |
| 10503 | (top) | |
| 10504 | (top) | |
| 10505 | (top) | |
| 10506 | (top) | |
| 10507 | (top) | |
| 10508 | (top) | |
| 10509 | (top) | |
| 10510 | (top) | |
| 10511 | (top) | |
| 10512 | (top) | |
| 10513 | (top) | |
| 10514 | (top) | |
| 10515 | (top) | |
| 10516 | (top)) | |
| 10517 | ("i466" | |
| 10518 | "i464" | |
| 10519 | "i462" | |
| 10520 | "i460" | |
| 10521 | "i458" | |
| 10522 | "i456" | |
| 10523 | "i454" | |
| 10524 | "i452" | |
| 10525 | "i450" | |
| 10526 | "i448" | |
| 10527 | "i446" | |
| 10528 | "i444" | |
| 10529 | "i442" | |
| 10530 | "i440" | |
| 10531 | "i438" | |
| 10532 | "i436" | |
| 10533 | "i434" | |
| 10534 | "i432" | |
| 10535 | "i430" | |
| 10536 | "i428" | |
| 10537 | "i426" | |
| 10538 | "i424" | |
| 10539 | "i422" | |
| 10540 | "i420" | |
| 10541 | "i418" | |
| 10542 | "i416" | |
| 10543 | "i414" | |
| 10544 | "i412" | |
| 10545 | "i410" | |
| 10546 | "i408" | |
| 10547 | "i406" | |
| 10548 | "i404" | |
| 10549 | "i402" | |
| 10550 | "i400" | |
| 10551 | "i398" | |
| 10552 | "i397" | |
| 10553 | "i395" | |
| 10554 | "i392" | |
| 10555 | "i391" | |
| 10556 | "i390" | |
| 10557 | "i388" | |
| 10558 | "i387" | |
| 10559 | "i385" | |
| 10560 | "i383" | |
| 10561 | "i381" | |
| 10562 | "i379" | |
| 10563 | "i377" | |
| 10564 | "i375" | |
| 10565 | "i373" | |
| 10566 | "i371" | |
| 10567 | "i368" | |
| 10568 | "i366" | |
| 10569 | "i365" | |
| 10570 | "i363" | |
| 10571 | "i361" | |
| 10572 | "i359" | |
| 10573 | "i357" | |
| 10574 | "i356" | |
| 10575 | "i355" | |
| 10576 | "i354" | |
| 10577 | "i352" | |
| 10578 | "i351" | |
| 10579 | "i348" | |
| 10580 | "i346" | |
| 10581 | "i344" | |
| 10582 | "i342" | |
| 10583 | "i340" | |
| 10584 | "i338" | |
| 10585 | "i336" | |
| 10586 | "i335" | |
| 10587 | "i334" | |
| 10588 | "i332" | |
| 10589 | "i330" | |
| 10590 | "i329" | |
| 10591 | "i326" | |
| 10592 | "i325" | |
| 10593 | "i323" | |
| 10594 | "i321" | |
| 10595 | "i319" | |
| 10596 | "i317" | |
| 10597 | "i315" | |
| 10598 | "i313" | |
| 10599 | "i311" | |
| 10600 | "i309" | |
| 10601 | "i307" | |
| 10602 | "i304" | |
| 10603 | "i302" | |
| 10604 | "i300" | |
| 10605 | "i298" | |
| 10606 | "i296" | |
| 10607 | "i294" | |
| 10608 | "i292" | |
| 10609 | "i290" | |
| 10610 | "i288" | |
| 10611 | "i286" | |
| 10612 | "i284" | |
| 10613 | "i282" | |
| 10614 | "i280" | |
| 10615 | "i278" | |
| 10616 | "i276" | |
| 10617 | "i274" | |
| 10618 | "i272" | |
| 10619 | "i270" | |
| 10620 | "i268" | |
| 10621 | "i266" | |
| 10622 | "i264" | |
| 10623 | "i262" | |
| 10624 | "i260" | |
| 10625 | "i259" | |
| 10626 | "i256" | |
| 10627 | "i254" | |
| 10628 | "i253" | |
| 10629 | "i252" | |
| 10630 | "i251" | |
| 10631 | "i250" | |
| 10632 | "i248" | |
| 10633 | "i246" | |
| 10634 | "i244" | |
| 10635 | "i241" | |
| 10636 | "i239" | |
| 10637 | "i237" | |
| 10638 | "i235" | |
| 10639 | "i233" | |
| 10640 | "i231" | |
| 10641 | "i229" | |
| 10642 | "i227" | |
| 10643 | "i225" | |
| 10644 | "i223" | |
| 10645 | "i221" | |
| 10646 | "i219" | |
| 10647 | "i217" | |
| 10648 | "i215" | |
| 10649 | "i213" | |
| 10650 | "i211" | |
| 10651 | "i209" | |
| 10652 | "i207")) | |
| 10653 | #(ribcage | |
| 10654 | (define-structure | |
| 10655 | define-expansion-accessors | |
| 10656 | define-expansion-constructors) | |
| 10657 | ((top) (top) (top)) | |
| 10658 | ("i45" "i44" "i43"))) | |
| 10659 | (hygiene guile)) | |
| 10660 | #{mod 3603}#)))) | |
| 10661 | #{tmp 3593}#) | |
| 10662 | (syntax-violation | |
| 10663 | #f | |
| 10664 | "source expression failed to match any pattern" | |
| 10665 | #{e 3586}#)))))) | |
| 10666 | (#{global-extend 345}# | |
| 10667 | 'module-ref | |
| 10668 | '@@ | |
| 10669 | (lambda (#{e 3606}# #{r 3607}# #{w 3608}#) | |
| 10670 | (letrec* | |
| 10671 | ((#{remodulate 3613}# | |
| 10672 | (lambda (#{x 3614}# #{mod 3615}#) | |
| 10673 | (if (pair? #{x 3614}#) | |
| 10674 | (cons (#{remodulate 3613}# | |
| 10675 | (car #{x 3614}#) | |
| 10676 | #{mod 3615}#) | |
| 10677 | (#{remodulate 3613}# | |
| 10678 | (cdr #{x 3614}#) | |
| 10679 | #{mod 3615}#)) | |
| 10680 | (if (if (vector? #{x 3614}#) | |
| 10681 | (if (= (vector-length #{x 3614}#) 4) | |
| 10682 | (eq? (vector-ref #{x 3614}# 0) 'syntax-object) | |
| 10683 | #f) | |
| 10684 | #f) | |
| 10685 | (let ((#{expression 7617}# | |
| 10686 | (#{remodulate 3613}# | |
| 10687 | (vector-ref #{x 3614}# 1) | |
| 10688 | #{mod 3615}#)) | |
| 10689 | (#{wrap 7618}# (vector-ref #{x 3614}# 2))) | |
| 10690 | (vector | |
| 10691 | 'syntax-object | |
| 10692 | #{expression 7617}# | |
| 10693 | #{wrap 7618}# | |
| 10694 | #{mod 3615}#)) | |
| 10695 | (if (vector? #{x 3614}#) | |
| 10696 | (let ((#{n 3626}# (vector-length #{x 3614}#))) | |
| 10697 | (let ((#{v 3628}# (make-vector #{n 3626}#))) | |
| 10698 | (letrec* | |
| 10699 | ((#{loop 3631}# | |
| 10700 | (lambda (#{i 3632}#) | |
| 10701 | (if (= #{i 3632}# #{n 3626}#) | |
| 10702 | #{v 3628}# | |
| 10703 | (begin | |
| 10704 | (vector-set! | |
| 10705 | #{v 3628}# | |
| 10706 | #{i 3632}# | |
| 10707 | (#{remodulate 3613}# | |
| 10708 | (vector-ref #{x 3614}# #{i 3632}#) | |
| 10709 | #{mod 3615}#)) | |
| 10710 | (#{loop 3631}# (#{1+}# #{i 3632}#))))))) | |
| 10711 | (#{loop 3631}# 0)))) | |
| 10712 | #{x 3614}#)))))) | |
| 10713 | (let ((#{tmp 3639}# | |
| 10714 | ($sc-dispatch #{e 3606}# '(_ each-any any)))) | |
| 10715 | (if (if #{tmp 3639}# | |
| 10716 | (@apply | |
| 10717 | (lambda (#{mod 3642}# #{exp 3643}#) | |
| 10718 | (and-map #{id? 349}# #{mod 3642}#)) | |
| 10719 | #{tmp 3639}#) | |
| 10720 | #f) | |
| 10721 | (@apply | |
| 10722 | (lambda (#{mod 3647}# #{exp 3648}#) | |
| 10723 | (let ((#{mod 3650}# | |
| 10724 | (syntax->datum | |
| 10725 | (cons '#(syntax-object | |
| 10726 | private | |
| 10727 | ((top) | |
| 10728 | #(ribcage | |
| 10729 | #(mod exp) | |
| 10730 | #((top) (top)) | |
| 10731 | #("i3645" "i3646")) | |
| 10732 | #(ribcage (remodulate) ((top)) ("i3612")) | |
| 10733 | #(ribcage | |
| 10734 | #(e r w) | |
| 10735 | #((top) (top) (top)) | |
| 10736 | #("i3609" "i3610" "i3611")) | |
| 10737 | #(ribcage | |
| 10738 | (lambda-var-list | |
| 10739 | gen-var | |
| 10740 | strip | |
| 10741 | chi-lambda-case | |
| 10742 | lambda*-formals | |
| 10743 | chi-simple-lambda | |
| 10744 | lambda-formals | |
| 10745 | ellipsis? | |
| 10746 | chi-void | |
| 10747 | eval-local-transformer | |
| 10748 | chi-local-syntax | |
| 10749 | chi-body | |
| 10750 | chi-macro | |
| 10751 | chi-application | |
| 10752 | chi-expr | |
| 10753 | chi | |
| 10754 | syntax-type | |
| 10755 | chi-when-list | |
| 10756 | chi-install-global | |
| 10757 | chi-top-sequence | |
| 10758 | chi-sequence | |
| 10759 | source-wrap | |
| 10760 | wrap | |
| 10761 | bound-id-member? | |
| 10762 | distinct-bound-ids? | |
| 10763 | valid-bound-ids? | |
| 10764 | bound-id=? | |
| 10765 | free-id=? | |
| 10766 | id-var-name | |
| 10767 | same-marks? | |
| 10768 | join-marks | |
| 10769 | join-wraps | |
| 10770 | smart-append | |
| 10771 | make-binding-wrap | |
| 10772 | extend-ribcage! | |
| 10773 | make-empty-ribcage | |
| 10774 | new-mark | |
| 10775 | anti-mark | |
| 10776 | the-anti-mark | |
| 10777 | top-marked? | |
| 10778 | top-wrap | |
| 10779 | empty-wrap | |
| 10780 | set-ribcage-labels! | |
| 10781 | set-ribcage-marks! | |
| 10782 | set-ribcage-symnames! | |
| 10783 | ribcage-labels | |
| 10784 | ribcage-marks | |
| 10785 | ribcage-symnames | |
| 10786 | ribcage? | |
| 10787 | make-ribcage | |
| 10788 | gen-labels | |
| 10789 | gen-label | |
| 10790 | make-rename | |
| 10791 | rename-marks | |
| 10792 | rename-new | |
| 10793 | rename-old | |
| 10794 | subst-rename? | |
| 10795 | wrap-subst | |
| 10796 | wrap-marks | |
| 10797 | make-wrap | |
| 10798 | id-sym-name&marks | |
| 10799 | id-sym-name | |
| 10800 | id? | |
| 10801 | nonsymbol-id? | |
| 10802 | global-extend | |
| 10803 | lookup | |
| 10804 | macros-only-env | |
| 10805 | extend-var-env | |
| 10806 | extend-env | |
| 10807 | null-env | |
| 10808 | binding-value | |
| 10809 | binding-type | |
| 10810 | make-binding | |
| 10811 | arg-check | |
| 10812 | source-annotation | |
| 10813 | no-source | |
| 10814 | set-syntax-object-module! | |
| 10815 | set-syntax-object-wrap! | |
| 10816 | set-syntax-object-expression! | |
| 10817 | syntax-object-module | |
| 10818 | syntax-object-wrap | |
| 10819 | syntax-object-expression | |
| 10820 | syntax-object? | |
| 10821 | make-syntax-object | |
| 10822 | build-lexical-var | |
| 10823 | build-letrec | |
| 10824 | build-named-let | |
| 10825 | build-let | |
| 10826 | build-sequence | |
| 10827 | build-data | |
| 10828 | build-primref | |
| 10829 | build-lambda-case | |
| 10830 | build-case-lambda | |
| 10831 | build-simple-lambda | |
| 10832 | build-global-definition | |
| 10833 | build-global-assignment | |
| 10834 | build-global-reference | |
| 10835 | analyze-variable | |
| 10836 | build-lexical-assignment | |
| 10837 | build-lexical-reference | |
| 10838 | build-dynlet | |
| 10839 | build-conditional | |
| 10840 | build-application | |
| 10841 | build-void | |
| 10842 | maybe-name-value! | |
| 10843 | decorate-source | |
| 10844 | get-global-definition-hook | |
| 10845 | put-global-definition-hook | |
| 10846 | gensym-hook | |
| 10847 | local-eval-hook | |
| 10848 | top-level-eval-hook | |
| 10849 | fx< | |
| 10850 | fx= | |
| 10851 | fx- | |
| 10852 | fx+ | |
| 10853 | set-lambda-meta! | |
| 10854 | lambda-meta | |
| 10855 | lambda? | |
| 10856 | make-dynlet | |
| 10857 | make-letrec | |
| 10858 | make-let | |
| 10859 | make-lambda-case | |
| 10860 | make-lambda | |
| 10861 | make-sequence | |
| 10862 | make-application | |
| 10863 | make-conditional | |
| 10864 | make-toplevel-define | |
| 10865 | make-toplevel-set | |
| 10866 | make-toplevel-ref | |
| 10867 | make-module-set | |
| 10868 | make-module-ref | |
| 10869 | make-lexical-set | |
| 10870 | make-lexical-ref | |
| 10871 | make-primitive-ref | |
| 10872 | make-const | |
| 10873 | make-void) | |
| 10874 | ((top) | |
| 10875 | (top) | |
| 10876 | (top) | |
| 10877 | (top) | |
| 10878 | (top) | |
| 10879 | (top) | |
| 10880 | (top) | |
| 10881 | (top) | |
| 10882 | (top) | |
| 10883 | (top) | |
| 10884 | (top) | |
| 10885 | (top) | |
| 10886 | (top) | |
| 10887 | (top) | |
| 10888 | (top) | |
| 10889 | (top) | |
| 10890 | (top) | |
| 10891 | (top) | |
| 10892 | (top) | |
| 10893 | (top) | |
| 10894 | (top) | |
| 10895 | (top) | |
| 10896 | (top) | |
| 10897 | (top) | |
| 10898 | (top) | |
| 10899 | (top) | |
| 10900 | (top) | |
| 10901 | (top) | |
| 10902 | (top) | |
| 10903 | (top) | |
| 10904 | (top) | |
| 10905 | (top) | |
| 10906 | (top) | |
| 10907 | (top) | |
| 10908 | (top) | |
| 10909 | (top) | |
| 10910 | (top) | |
| 10911 | (top) | |
| 10912 | (top) | |
| 10913 | (top) | |
| 10914 | (top) | |
| 10915 | (top) | |
| 10916 | (top) | |
| 10917 | (top) | |
| 10918 | (top) | |
| 10919 | (top) | |
| 10920 | (top) | |
| 10921 | (top) | |
| 10922 | (top) | |
| 10923 | (top) | |
| 10924 | (top) | |
| 10925 | (top) | |
| 10926 | (top) | |
| 10927 | (top) | |
| 10928 | (top) | |
| 10929 | (top) | |
| 10930 | (top) | |
| 10931 | (top) | |
| 10932 | (top) | |
| 10933 | (top) | |
| 10934 | (top) | |
| 10935 | (top) | |
| 10936 | (top) | |
| 10937 | (top) | |
| 10938 | (top) | |
| 10939 | (top) | |
| 10940 | (top) | |
| 10941 | (top) | |
| 10942 | (top) | |
| 10943 | (top) | |
| 10944 | (top) | |
| 10945 | (top) | |
| 10946 | (top) | |
| 10947 | (top) | |
| 10948 | (top) | |
| 10949 | (top) | |
| 10950 | (top) | |
| 10951 | (top) | |
| 10952 | (top) | |
| 10953 | (top) | |
| 10954 | (top) | |
| 10955 | (top) | |
| 10956 | (top) | |
| 10957 | (top) | |
| 10958 | (top) | |
| 10959 | (top) | |
| 10960 | (top) | |
| 10961 | (top) | |
| 10962 | (top) | |
| 10963 | (top) | |
| 10964 | (top) | |
| 10965 | (top) | |
| 10966 | (top) | |
| 10967 | (top) | |
| 10968 | (top) | |
| 10969 | (top) | |
| 10970 | (top) | |
| 10971 | (top) | |
| 10972 | (top) | |
| 10973 | (top) | |
| 10974 | (top) | |
| 10975 | (top) | |
| 10976 | (top) | |
| 10977 | (top) | |
| 10978 | (top) | |
| 10979 | (top) | |
| 10980 | (top) | |
| 10981 | (top) | |
| 10982 | (top) | |
| 10983 | (top) | |
| 10984 | (top) | |
| 10985 | (top) | |
| 10986 | (top) | |
| 10987 | (top) | |
| 10988 | (top) | |
| 10989 | (top) | |
| 10990 | (top) | |
| 10991 | (top) | |
| 10992 | (top) | |
| 10993 | (top) | |
| 10994 | (top) | |
| 10995 | (top) | |
| 10996 | (top) | |
| 10997 | (top) | |
| 10998 | (top) | |
| 10999 | (top) | |
| 11000 | (top) | |
| 11001 | (top) | |
| 11002 | (top) | |
| 11003 | (top) | |
| 11004 | (top) | |
| 11005 | (top) | |
| 11006 | (top) | |
| 11007 | (top) | |
| 11008 | (top) | |
| 11009 | (top)) | |
| 11010 | ("i466" | |
| 11011 | "i464" | |
| 11012 | "i462" | |
| 11013 | "i460" | |
| 11014 | "i458" | |
| 11015 | "i456" | |
| 11016 | "i454" | |
| 11017 | "i452" | |
| 11018 | "i450" | |
| 11019 | "i448" | |
| 11020 | "i446" | |
| 11021 | "i444" | |
| 11022 | "i442" | |
| 11023 | "i440" | |
| 11024 | "i438" | |
| 11025 | "i436" | |
| 11026 | "i434" | |
| 11027 | "i432" | |
| 11028 | "i430" | |
| 11029 | "i428" | |
| 11030 | "i426" | |
| 11031 | "i424" | |
| 11032 | "i422" | |
| 11033 | "i420" | |
| 11034 | "i418" | |
| 11035 | "i416" | |
| 11036 | "i414" | |
| 11037 | "i412" | |
| 11038 | "i410" | |
| 11039 | "i408" | |
| 11040 | "i406" | |
| 11041 | "i404" | |
| 11042 | "i402" | |
| 11043 | "i400" | |
| 11044 | "i398" | |
| 11045 | "i397" | |
| 11046 | "i395" | |
| 11047 | "i392" | |
| 11048 | "i391" | |
| 11049 | "i390" | |
| 11050 | "i388" | |
| 11051 | "i387" | |
| 11052 | "i385" | |
| 11053 | "i383" | |
| 11054 | "i381" | |
| 11055 | "i379" | |
| 11056 | "i377" | |
| 11057 | "i375" | |
| 11058 | "i373" | |
| 11059 | "i371" | |
| 11060 | "i368" | |
| 11061 | "i366" | |
| 11062 | "i365" | |
| 11063 | "i363" | |
| 11064 | "i361" | |
| 11065 | "i359" | |
| 11066 | "i357" | |
| 11067 | "i356" | |
| 11068 | "i355" | |
| 11069 | "i354" | |
| 11070 | "i352" | |
| 11071 | "i351" | |
| 11072 | "i348" | |
| 11073 | "i346" | |
| 11074 | "i344" | |
| 11075 | "i342" | |
| 11076 | "i340" | |
| 11077 | "i338" | |
| 11078 | "i336" | |
| 11079 | "i335" | |
| 11080 | "i334" | |
| 11081 | "i332" | |
| 11082 | "i330" | |
| 11083 | "i329" | |
| 11084 | "i326" | |
| 11085 | "i325" | |
| 11086 | "i323" | |
| 11087 | "i321" | |
| 11088 | "i319" | |
| 11089 | "i317" | |
| 11090 | "i315" | |
| 11091 | "i313" | |
| 11092 | "i311" | |
| 11093 | "i309" | |
| 11094 | "i307" | |
| 11095 | "i304" | |
| 11096 | "i302" | |
| 11097 | "i300" | |
| 11098 | "i298" | |
| 11099 | "i296" | |
| 11100 | "i294" | |
| 11101 | "i292" | |
| 11102 | "i290" | |
| 11103 | "i288" | |
| 11104 | "i286" | |
| 11105 | "i284" | |
| 11106 | "i282" | |
| 11107 | "i280" | |
| 11108 | "i278" | |
| 11109 | "i276" | |
| 11110 | "i274" | |
| 11111 | "i272" | |
| 11112 | "i270" | |
| 11113 | "i268" | |
| 11114 | "i266" | |
| 11115 | "i264" | |
| 11116 | "i262" | |
| 11117 | "i260" | |
| 11118 | "i259" | |
| 11119 | "i256" | |
| 11120 | "i254" | |
| 11121 | "i253" | |
| 11122 | "i252" | |
| 11123 | "i251" | |
| 11124 | "i250" | |
| 11125 | "i248" | |
| 11126 | "i246" | |
| 11127 | "i244" | |
| 11128 | "i241" | |
| 11129 | "i239" | |
| 11130 | "i237" | |
| 11131 | "i235" | |
| 11132 | "i233" | |
| 11133 | "i231" | |
| 11134 | "i229" | |
| 11135 | "i227" | |
| 11136 | "i225" | |
| 11137 | "i223" | |
| 11138 | "i221" | |
| 11139 | "i219" | |
| 11140 | "i217" | |
| 11141 | "i215" | |
| 11142 | "i213" | |
| 11143 | "i211" | |
| 11144 | "i209" | |
| 11145 | "i207")) | |
| 11146 | #(ribcage | |
| 11147 | (define-structure | |
| 11148 | define-expansion-accessors | |
| 11149 | define-expansion-constructors) | |
| 11150 | ((top) (top) (top)) | |
| 11151 | ("i45" "i44" "i43"))) | |
| 11152 | (hygiene guile)) | |
| 11153 | #{mod 3647}#)))) | |
| 11154 | (values | |
| 11155 | (#{remodulate 3613}# #{exp 3648}# #{mod 3650}#) | |
| 11156 | #{r 3607}# | |
| 11157 | #{w 3608}# | |
| 11158 | (#{source-annotation 327}# #{exp 3648}#) | |
| 11159 | #{mod 3650}#))) | |
| 11160 | #{tmp 3639}#) | |
| 11161 | (syntax-violation | |
| 11162 | #f | |
| 11163 | "source expression failed to match any pattern" | |
| 11164 | #{e 3606}#)))))) | |
| 11165 | (#{global-extend 345}# | |
| 11166 | 'core | |
| 11167 | 'if | |
| 11168 | (lambda (#{e 3652}# | |
| 11169 | #{r 3653}# | |
| 11170 | #{w 3654}# | |
| 11171 | #{s 3655}# | |
| 11172 | #{mod 3656}#) | |
| 11173 | (let ((#{tmp 3663}# | |
| 11174 | ($sc-dispatch #{e 3652}# '(_ any any)))) | |
| 11175 | (if #{tmp 3663}# | |
| 11176 | (@apply | |
| 11177 | (lambda (#{test 3666}# #{then 3667}#) | |
| 11178 | (#{build-conditional 273}# | |
| 11179 | #{s 3655}# | |
| 11180 | (#{chi 437}# | |
| 11181 | #{test 3666}# | |
| 11182 | #{r 3653}# | |
| 11183 | #{w 3654}# | |
| 11184 | #{mod 3656}#) | |
| 11185 | (#{chi 437}# | |
| 11186 | #{then 3667}# | |
| 11187 | #{r 3653}# | |
| 11188 | #{w 3654}# | |
| 11189 | #{mod 3656}#) | |
| 11190 | (make-struct/no-tail | |
| 11191 | (vector-ref %expanded-vtables 0) | |
| 11192 | #f))) | |
| 11193 | #{tmp 3663}#) | |
| 11194 | (let ((#{tmp 3669}# | |
| 11195 | ($sc-dispatch #{e 3652}# '(_ any any any)))) | |
| 11196 | (if #{tmp 3669}# | |
| 11197 | (@apply | |
| 11198 | (lambda (#{test 3673}# #{then 3674}# #{else 3675}#) | |
| 11199 | (#{build-conditional 273}# | |
| 11200 | #{s 3655}# | |
| 11201 | (#{chi 437}# | |
| 11202 | #{test 3673}# | |
| 11203 | #{r 3653}# | |
| 11204 | #{w 3654}# | |
| 11205 | #{mod 3656}#) | |
| 11206 | (#{chi 437}# | |
| 11207 | #{then 3674}# | |
| 11208 | #{r 3653}# | |
| 11209 | #{w 3654}# | |
| 11210 | #{mod 3656}#) | |
| 11211 | (#{chi 437}# | |
| 11212 | #{else 3675}# | |
| 11213 | #{r 3653}# | |
| 11214 | #{w 3654}# | |
| 11215 | #{mod 3656}#))) | |
| 11216 | #{tmp 3669}#) | |
| 11217 | (syntax-violation | |
| 11218 | #f | |
| 11219 | "source expression failed to match any pattern" | |
| 11220 | #{e 3652}#))))))) | |
| 11221 | (#{global-extend 345}# | |
| 11222 | 'core | |
| 11223 | 'with-fluids | |
| 11224 | (lambda (#{e 3676}# | |
| 11225 | #{r 3677}# | |
| 11226 | #{w 3678}# | |
| 11227 | #{s 3679}# | |
| 11228 | #{mod 3680}#) | |
| 11229 | (let ((#{tmp 3687}# | |
| 11230 | ($sc-dispatch | |
| 11231 | #{e 3676}# | |
| 11232 | '(_ #(each (any any)) any . each-any)))) | |
| 11233 | (if #{tmp 3687}# | |
| 11234 | (@apply | |
| 11235 | (lambda (#{fluid 3692}# | |
| 11236 | #{val 3693}# | |
| 11237 | #{b 3694}# | |
| 11238 | #{b* 3695}#) | |
| 11239 | ((lambda (#{source 977}# | |
| 11240 | #{fluids 978}# | |
| 11241 | #{vals 979}# | |
| 11242 | #{body 980}#) | |
| 11243 | (#{make-dynlet 242}# | |
| 11244 | #{source 977}# | |
| 11245 | #{fluids 978}# | |
| 11246 | #{vals 979}# | |
| 11247 | #{body 980}#)) | |
| 11248 | #{s 3679}# | |
| 11249 | (map (lambda (#{x 3696}#) | |
| 11250 | (#{chi 437}# | |
| 11251 | #{x 3696}# | |
| 11252 | #{r 3677}# | |
| 11253 | #{w 3678}# | |
| 11254 | #{mod 3680}#)) | |
| 11255 | #{fluid 3692}#) | |
| 11256 | (map (lambda (#{x 3699}#) | |
| 11257 | (#{chi 437}# | |
| 11258 | #{x 3699}# | |
| 11259 | #{r 3677}# | |
| 11260 | #{w 3678}# | |
| 11261 | #{mod 3680}#)) | |
| 11262 | #{val 3693}#) | |
| 11263 | (#{chi-body 445}# | |
| 11264 | (cons #{b 3694}# #{b* 3695}#) | |
| 11265 | (#{wrap 423}# | |
| 11266 | (begin | |
| 11267 | (if (if (pair? #{e 3676}#) #{s 3679}# #f) | |
| 11268 | (set-source-properties! #{e 3676}# #{s 3679}#)) | |
| 11269 | #{e 3676}#) | |
| 11270 | #{w 3678}# | |
| 11271 | #{mod 3680}#) | |
| 11272 | #{r 3677}# | |
| 11273 | #{w 3678}# | |
| 11274 | #{mod 3680}#))) | |
| 11275 | #{tmp 3687}#) | |
| 11276 | (syntax-violation | |
| 11277 | #f | |
| 11278 | "source expression failed to match any pattern" | |
| 11279 | #{e 3676}#))))) | |
| 11280 | (module-define! | |
| 11281 | (current-module) | |
| 11282 | 'begin | |
| 11283 | (make-syntax-transformer 'begin 'begin '())) | |
| 11284 | (module-define! | |
| 11285 | (current-module) | |
| 11286 | 'define | |
| 11287 | (make-syntax-transformer 'define 'define '())) | |
| 11288 | (module-define! | |
| 11289 | (current-module) | |
| 11290 | 'define-syntax | |
| 11291 | (make-syntax-transformer | |
| 11292 | 'define-syntax | |
| 11293 | 'define-syntax | |
| 11294 | '())) | |
| 11295 | (module-define! | |
| 11296 | (current-module) | |
| 11297 | 'eval-when | |
| 11298 | (make-syntax-transformer | |
| 11299 | 'eval-when | |
| 11300 | 'eval-when | |
| 11301 | '())) | |
| 11302 | (#{global-extend 345}# | |
| 11303 | 'core | |
| 11304 | 'syntax-case | |
| 11305 | (letrec* | |
| 11306 | ((#{convert-pattern 3704}# | |
| 11307 | (lambda (#{pattern 3711}# #{keys 3712}#) | |
| 11308 | (letrec* | |
| 11309 | ((#{cvt* 3716}# | |
| 11310 | (lambda (#{p* 3721}# #{n 3722}# #{ids 3723}#) | |
| 11311 | (if (not (pair? #{p* 3721}#)) | |
| 11312 | (#{cvt 3720}# | |
| 11313 | #{p* 3721}# | |
| 11314 | #{n 3722}# | |
| 11315 | #{ids 3723}#) | |
| 11316 | (call-with-values | |
| 11317 | (lambda () | |
| 11318 | (#{cvt* 3716}# | |
| 11319 | (cdr #{p* 3721}#) | |
| 11320 | #{n 3722}# | |
| 11321 | #{ids 3723}#)) | |
| 11322 | (lambda (#{y 3727}# #{ids 3728}#) | |
| 11323 | (call-with-values | |
| 11324 | (lambda () | |
| 11325 | (#{cvt 3720}# | |
| 11326 | (car #{p* 3721}#) | |
| 11327 | #{n 3722}# | |
| 11328 | #{ids 3728}#)) | |
| 11329 | (lambda (#{x 3731}# #{ids 3732}#) | |
| 11330 | (values | |
| 11331 | (cons #{x 3731}# #{y 3727}#) | |
| 11332 | #{ids 3732}#)))))))) | |
| 11333 | (#{v-reverse 3718}# | |
| 11334 | (lambda (#{x 3735}#) | |
| 11335 | (letrec* | |
| 11336 | ((#{loop 3740}# | |
| 11337 | (lambda (#{r 3741}# #{x 3742}#) | |
| 11338 | (if (not (pair? #{x 3742}#)) | |
| 11339 | (values #{r 3741}# #{x 3742}#) | |
| 11340 | (#{loop 3740}# | |
| 11341 | (cons (car #{x 3742}#) #{r 3741}#) | |
| 11342 | (cdr #{x 3742}#)))))) | |
| 11343 | (#{loop 3740}# '() #{x 3735}#)))) | |
| 11344 | (#{cvt 3720}# | |
| 11345 | (lambda (#{p 3743}# #{n 3744}# #{ids 3745}#) | |
| 11346 | (if (if (symbol? #{p 3743}#) | |
| 11347 | #t | |
| 11348 | (if (if (vector? #{p 3743}#) | |
| 11349 | (if (= (vector-length #{p 3743}#) 4) | |
| 11350 | (eq? (vector-ref #{p 3743}# 0) | |
| 11351 | 'syntax-object) | |
| 11352 | #f) | |
| 11353 | #f) | |
| 11354 | (symbol? (vector-ref #{p 3743}# 1)) | |
| 11355 | #f)) | |
| 11356 | (if (#{bound-id-member? 421}# | |
| 11357 | #{p 3743}# | |
| 11358 | #{keys 3712}#) | |
| 11359 | (values | |
| 11360 | (vector 'free-id #{p 3743}#) | |
| 11361 | #{ids 3745}#) | |
| 11362 | (if (if (eq? (if (if (vector? #{p 3743}#) | |
| 11363 | (if (= (vector-length #{p 3743}#) 4) | |
| 11364 | (eq? (vector-ref #{p 3743}# 0) | |
| 11365 | 'syntax-object) | |
| 11366 | #f) | |
| 11367 | #f) | |
| 11368 | (vector-ref #{p 3743}# 1) | |
| 11369 | #{p 3743}#) | |
| 11370 | (if (if (= (vector-length | |
| 11371 | '#(syntax-object | |
| 11372 | _ | |
| 11373 | ((top) | |
| 11374 | #(ribcage () () ()) | |
| 11375 | #(ribcage | |
| 11376 | #(p n ids) | |
| 11377 | #((top) (top) (top)) | |
| 11378 | #("i3746" | |
| 11379 | "i3747" | |
| 11380 | "i3748")) | |
| 11381 | #(ribcage | |
| 11382 | (cvt v-reverse cvt*) | |
| 11383 | ((top) (top) (top)) | |
| 11384 | ("i3719" | |
| 11385 | "i3717" | |
| 11386 | "i3715")) | |
| 11387 | #(ribcage | |
| 11388 | #(pattern keys) | |
| 11389 | #((top) (top)) | |
| 11390 | #("i3713" "i3714")) | |
| 11391 | #(ribcage | |
| 11392 | (gen-syntax-case | |
| 11393 | gen-clause | |
| 11394 | build-dispatch-call | |
| 11395 | convert-pattern) | |
| 11396 | ((top) | |
| 11397 | (top) | |
| 11398 | (top) | |
| 11399 | (top)) | |
| 11400 | ("i3709" | |
| 11401 | "i3707" | |
| 11402 | "i3705" | |
| 11403 | "i3703")) | |
| 11404 | #(ribcage | |
| 11405 | (lambda-var-list | |
| 11406 | gen-var | |
| 11407 | strip | |
| 11408 | chi-lambda-case | |
| 11409 | lambda*-formals | |
| 11410 | chi-simple-lambda | |
| 11411 | lambda-formals | |
| 11412 | ellipsis? | |
| 11413 | chi-void | |
| 11414 | eval-local-transformer | |
| 11415 | chi-local-syntax | |
| 11416 | chi-body | |
| 11417 | chi-macro | |
| 11418 | chi-application | |
| 11419 | chi-expr | |
| 11420 | chi | |
| 11421 | syntax-type | |
| 11422 | chi-when-list | |
| 11423 | chi-install-global | |
| 11424 | chi-top-sequence | |
| 11425 | chi-sequence | |
| 11426 | source-wrap | |
| 11427 | wrap | |
| 11428 | bound-id-member? | |
| 11429 | distinct-bound-ids? | |
| 11430 | valid-bound-ids? | |
| 11431 | bound-id=? | |
| 11432 | free-id=? | |
| 11433 | id-var-name | |
| 11434 | same-marks? | |
| 11435 | join-marks | |
| 11436 | join-wraps | |
| 11437 | smart-append | |
| 11438 | make-binding-wrap | |
| 11439 | extend-ribcage! | |
| 11440 | make-empty-ribcage | |
| 11441 | new-mark | |
| 11442 | anti-mark | |
| 11443 | the-anti-mark | |
| 11444 | top-marked? | |
| 11445 | top-wrap | |
| 11446 | empty-wrap | |
| 11447 | set-ribcage-labels! | |
| 11448 | set-ribcage-marks! | |
| 11449 | set-ribcage-symnames! | |
| 11450 | ribcage-labels | |
| 11451 | ribcage-marks | |
| 11452 | ribcage-symnames | |
| 11453 | ribcage? | |
| 11454 | make-ribcage | |
| 11455 | gen-labels | |
| 11456 | gen-label | |
| 11457 | make-rename | |
| 11458 | rename-marks | |
| 11459 | rename-new | |
| 11460 | rename-old | |
| 11461 | subst-rename? | |
| 11462 | wrap-subst | |
| 11463 | wrap-marks | |
| 11464 | make-wrap | |
| 11465 | id-sym-name&marks | |
| 11466 | id-sym-name | |
| 11467 | id? | |
| 11468 | nonsymbol-id? | |
| 11469 | global-extend | |
| 11470 | lookup | |
| 11471 | macros-only-env | |
| 11472 | extend-var-env | |
| 11473 | extend-env | |
| 11474 | null-env | |
| 11475 | binding-value | |
| 11476 | binding-type | |
| 11477 | make-binding | |
| 11478 | arg-check | |
| 11479 | source-annotation | |
| 11480 | no-source | |
| 11481 | set-syntax-object-module! | |
| 11482 | set-syntax-object-wrap! | |
| 11483 | set-syntax-object-expression! | |
| 11484 | syntax-object-module | |
| 11485 | syntax-object-wrap | |
| 11486 | syntax-object-expression | |
| 11487 | syntax-object? | |
| 11488 | make-syntax-object | |
| 11489 | build-lexical-var | |
| 11490 | build-letrec | |
| 11491 | build-named-let | |
| 11492 | build-let | |
| 11493 | build-sequence | |
| 11494 | build-data | |
| 11495 | build-primref | |
| 11496 | build-lambda-case | |
| 11497 | build-case-lambda | |
| 11498 | build-simple-lambda | |
| 11499 | build-global-definition | |
| 11500 | build-global-assignment | |
| 11501 | build-global-reference | |
| 11502 | analyze-variable | |
| 11503 | build-lexical-assignment | |
| 11504 | build-lexical-reference | |
| 11505 | build-dynlet | |
| 11506 | build-conditional | |
| 11507 | build-application | |
| 11508 | build-void | |
| 11509 | maybe-name-value! | |
| 11510 | decorate-source | |
| 11511 | get-global-definition-hook | |
| 11512 | put-global-definition-hook | |
| 11513 | gensym-hook | |
| 11514 | local-eval-hook | |
| 11515 | top-level-eval-hook | |
| 11516 | fx< | |
| 11517 | fx= | |
| 11518 | fx- | |
| 11519 | fx+ | |
| 11520 | set-lambda-meta! | |
| 11521 | lambda-meta | |
| 11522 | lambda? | |
| 11523 | make-dynlet | |
| 11524 | make-letrec | |
| 11525 | make-let | |
| 11526 | make-lambda-case | |
| 11527 | make-lambda | |
| 11528 | make-sequence | |
| 11529 | make-application | |
| 11530 | make-conditional | |
| 11531 | make-toplevel-define | |
| 11532 | make-toplevel-set | |
| 11533 | make-toplevel-ref | |
| 11534 | make-module-set | |
| 11535 | make-module-ref | |
| 11536 | make-lexical-set | |
| 11537 | make-lexical-ref | |
| 11538 | make-primitive-ref | |
| 11539 | make-const | |
| 11540 | make-void) | |
| 11541 | ((top) | |
| 11542 | (top) | |
| 11543 | (top) | |
| 11544 | (top) | |
| 11545 | (top) | |
| 11546 | (top) | |
| 11547 | (top) | |
| 11548 | (top) | |
| 11549 | (top) | |
| 11550 | (top) | |
| 11551 | (top) | |
| 11552 | (top) | |
| 11553 | (top) | |
| 11554 | (top) | |
| 11555 | (top) | |
| 11556 | (top) | |
| 11557 | (top) | |
| 11558 | (top) | |
| 11559 | (top) | |
| 11560 | (top) | |
| 11561 | (top) | |
| 11562 | (top) | |
| 11563 | (top) | |
| 11564 | (top) | |
| 11565 | (top) | |
| 11566 | (top) | |
| 11567 | (top) | |
| 11568 | (top) | |
| 11569 | (top) | |
| 11570 | (top) | |
| 11571 | (top) | |
| 11572 | (top) | |
| 11573 | (top) | |
| 11574 | (top) | |
| 11575 | (top) | |
| 11576 | (top) | |
| 11577 | (top) | |
| 11578 | (top) | |
| 11579 | (top) | |
| 11580 | (top) | |
| 11581 | (top) | |
| 11582 | (top) | |
| 11583 | (top) | |
| 11584 | (top) | |
| 11585 | (top) | |
| 11586 | (top) | |
| 11587 | (top) | |
| 11588 | (top) | |
| 11589 | (top) | |
| 11590 | (top) | |
| 11591 | (top) | |
| 11592 | (top) | |
| 11593 | (top) | |
| 11594 | (top) | |
| 11595 | (top) | |
| 11596 | (top) | |
| 11597 | (top) | |
| 11598 | (top) | |
| 11599 | (top) | |
| 11600 | (top) | |
| 11601 | (top) | |
| 11602 | (top) | |
| 11603 | (top) | |
| 11604 | (top) | |
| 11605 | (top) | |
| 11606 | (top) | |
| 11607 | (top) | |
| 11608 | (top) | |
| 11609 | (top) | |
| 11610 | (top) | |
| 11611 | (top) | |
| 11612 | (top) | |
| 11613 | (top) | |
| 11614 | (top) | |
| 11615 | (top) | |
| 11616 | (top) | |
| 11617 | (top) | |
| 11618 | (top) | |
| 11619 | (top) | |
| 11620 | (top) | |
| 11621 | (top) | |
| 11622 | (top) | |
| 11623 | (top) | |
| 11624 | (top) | |
| 11625 | (top) | |
| 11626 | (top) | |
| 11627 | (top) | |
| 11628 | (top) | |
| 11629 | (top) | |
| 11630 | (top) | |
| 11631 | (top) | |
| 11632 | (top) | |
| 11633 | (top) | |
| 11634 | (top) | |
| 11635 | (top) | |
| 11636 | (top) | |
| 11637 | (top) | |
| 11638 | (top) | |
| 11639 | (top) | |
| 11640 | (top) | |
| 11641 | (top) | |
| 11642 | (top) | |
| 11643 | (top) | |
| 11644 | (top) | |
| 11645 | (top) | |
| 11646 | (top) | |
| 11647 | (top) | |
| 11648 | (top) | |
| 11649 | (top) | |
| 11650 | (top) | |
| 11651 | (top) | |
| 11652 | (top) | |
| 11653 | (top) | |
| 11654 | (top) | |
| 11655 | (top) | |
| 11656 | (top) | |
| 11657 | (top) | |
| 11658 | (top) | |
| 11659 | (top) | |
| 11660 | (top) | |
| 11661 | (top) | |
| 11662 | (top) | |
| 11663 | (top) | |
| 11664 | (top) | |
| 11665 | (top) | |
| 11666 | (top) | |
| 11667 | (top) | |
| 11668 | (top) | |
| 11669 | (top) | |
| 11670 | (top) | |
| 11671 | (top) | |
| 11672 | (top) | |
| 11673 | (top) | |
| 11674 | (top) | |
| 11675 | (top) | |
| 11676 | (top)) | |
| 11677 | ("i466" | |
| 11678 | "i464" | |
| 11679 | "i462" | |
| 11680 | "i460" | |
| 11681 | "i458" | |
| 11682 | "i456" | |
| 11683 | "i454" | |
| 11684 | "i452" | |
| 11685 | "i450" | |
| 11686 | "i448" | |
| 11687 | "i446" | |
| 11688 | "i444" | |
| 11689 | "i442" | |
| 11690 | "i440" | |
| 11691 | "i438" | |
| 11692 | "i436" | |
| 11693 | "i434" | |
| 11694 | "i432" | |
| 11695 | "i430" | |
| 11696 | "i428" | |
| 11697 | "i426" | |
| 11698 | "i424" | |
| 11699 | "i422" | |
| 11700 | "i420" | |
| 11701 | "i418" | |
| 11702 | "i416" | |
| 11703 | "i414" | |
| 11704 | "i412" | |
| 11705 | "i410" | |
| 11706 | "i408" | |
| 11707 | "i406" | |
| 11708 | "i404" | |
| 11709 | "i402" | |
| 11710 | "i400" | |
| 11711 | "i398" | |
| 11712 | "i397" | |
| 11713 | "i395" | |
| 11714 | "i392" | |
| 11715 | "i391" | |
| 11716 | "i390" | |
| 11717 | "i388" | |
| 11718 | "i387" | |
| 11719 | "i385" | |
| 11720 | "i383" | |
| 11721 | "i381" | |
| 11722 | "i379" | |
| 11723 | "i377" | |
| 11724 | "i375" | |
| 11725 | "i373" | |
| 11726 | "i371" | |
| 11727 | "i368" | |
| 11728 | "i366" | |
| 11729 | "i365" | |
| 11730 | "i363" | |
| 11731 | "i361" | |
| 11732 | "i359" | |
| 11733 | "i357" | |
| 11734 | "i356" | |
| 11735 | "i355" | |
| 11736 | "i354" | |
| 11737 | "i352" | |
| 11738 | "i351" | |
| 11739 | "i348" | |
| 11740 | "i346" | |
| 11741 | "i344" | |
| 11742 | "i342" | |
| 11743 | "i340" | |
| 11744 | "i338" | |
| 11745 | "i336" | |
| 11746 | "i335" | |
| 11747 | "i334" | |
| 11748 | "i332" | |
| 11749 | "i330" | |
| 11750 | "i329" | |
| 11751 | "i326" | |
| 11752 | "i325" | |
| 11753 | "i323" | |
| 11754 | "i321" | |
| 11755 | "i319" | |
| 11756 | "i317" | |
| 11757 | "i315" | |
| 11758 | "i313" | |
| 11759 | "i311" | |
| 11760 | "i309" | |
| 11761 | "i307" | |
| 11762 | "i304" | |
| 11763 | "i302" | |
| 11764 | "i300" | |
| 11765 | "i298" | |
| 11766 | "i296" | |
| 11767 | "i294" | |
| 11768 | "i292" | |
| 11769 | "i290" | |
| 11770 | "i288" | |
| 11771 | "i286" | |
| 11772 | "i284" | |
| 11773 | "i282" | |
| 11774 | "i280" | |
| 11775 | "i278" | |
| 11776 | "i276" | |
| 11777 | "i274" | |
| 11778 | "i272" | |
| 11779 | "i270" | |
| 11780 | "i268" | |
| 11781 | "i266" | |
| 11782 | "i264" | |
| 11783 | "i262" | |
| 11784 | "i260" | |
| 11785 | "i259" | |
| 11786 | "i256" | |
| 11787 | "i254" | |
| 11788 | "i253" | |
| 11789 | "i252" | |
| 11790 | "i251" | |
| 11791 | "i250" | |
| 11792 | "i248" | |
| 11793 | "i246" | |
| 11794 | "i244" | |
| 11795 | "i241" | |
| 11796 | "i239" | |
| 11797 | "i237" | |
| 11798 | "i235" | |
| 11799 | "i233" | |
| 11800 | "i231" | |
| 11801 | "i229" | |
| 11802 | "i227" | |
| 11803 | "i225" | |
| 11804 | "i223" | |
| 11805 | "i221" | |
| 11806 | "i219" | |
| 11807 | "i217" | |
| 11808 | "i215" | |
| 11809 | "i213" | |
| 11810 | "i211" | |
| 11811 | "i209" | |
| 11812 | "i207")) | |
| 11813 | #(ribcage | |
| 11814 | (define-structure | |
| 11815 | define-expansion-accessors | |
| 11816 | define-expansion-constructors) | |
| 11817 | ((top) (top) (top)) | |
| 11818 | ("i45" "i44" "i43"))) | |
| 11819 | (hygiene guile))) | |
| 11820 | 4) | |
| 11821 | (eq? (vector-ref | |
| 11822 | '#(syntax-object | |
| 11823 | _ | |
| 11824 | ((top) | |
| 11825 | #(ribcage () () ()) | |
| 11826 | #(ribcage | |
| 11827 | #(p n ids) | |
| 11828 | #((top) (top) (top)) | |
| 11829 | #("i3746" | |
| 11830 | "i3747" | |
| 11831 | "i3748")) | |
| 11832 | #(ribcage | |
| 11833 | (cvt v-reverse cvt*) | |
| 11834 | ((top) (top) (top)) | |
| 11835 | ("i3719" | |
| 11836 | "i3717" | |
| 11837 | "i3715")) | |
| 11838 | #(ribcage | |
| 11839 | #(pattern keys) | |
| 11840 | #((top) (top)) | |
| 11841 | #("i3713" "i3714")) | |
| 11842 | #(ribcage | |
| 11843 | (gen-syntax-case | |
| 11844 | gen-clause | |
| 11845 | build-dispatch-call | |
| 11846 | convert-pattern) | |
| 11847 | ((top) | |
| 11848 | (top) | |
| 11849 | (top) | |
| 11850 | (top)) | |
| 11851 | ("i3709" | |
| 11852 | "i3707" | |
| 11853 | "i3705" | |
| 11854 | "i3703")) | |
| 11855 | #(ribcage | |
| 11856 | (lambda-var-list | |
| 11857 | gen-var | |
| 11858 | strip | |
| 11859 | chi-lambda-case | |
| 11860 | lambda*-formals | |
| 11861 | chi-simple-lambda | |
| 11862 | lambda-formals | |
| 11863 | ellipsis? | |
| 11864 | chi-void | |
| 11865 | eval-local-transformer | |
| 11866 | chi-local-syntax | |
| 11867 | chi-body | |
| 11868 | chi-macro | |
| 11869 | chi-application | |
| 11870 | chi-expr | |
| 11871 | chi | |
| 11872 | syntax-type | |
| 11873 | chi-when-list | |
| 11874 | chi-install-global | |
| 11875 | chi-top-sequence | |
| 11876 | chi-sequence | |
| 11877 | source-wrap | |
| 11878 | wrap | |
| 11879 | bound-id-member? | |
| 11880 | distinct-bound-ids? | |
| 11881 | valid-bound-ids? | |
| 11882 | bound-id=? | |
| 11883 | free-id=? | |
| 11884 | id-var-name | |
| 11885 | same-marks? | |
| 11886 | join-marks | |
| 11887 | join-wraps | |
| 11888 | smart-append | |
| 11889 | make-binding-wrap | |
| 11890 | extend-ribcage! | |
| 11891 | make-empty-ribcage | |
| 11892 | new-mark | |
| 11893 | anti-mark | |
| 11894 | the-anti-mark | |
| 11895 | top-marked? | |
| 11896 | top-wrap | |
| 11897 | empty-wrap | |
| 11898 | set-ribcage-labels! | |
| 11899 | set-ribcage-marks! | |
| 11900 | set-ribcage-symnames! | |
| 11901 | ribcage-labels | |
| 11902 | ribcage-marks | |
| 11903 | ribcage-symnames | |
| 11904 | ribcage? | |
| 11905 | make-ribcage | |
| 11906 | gen-labels | |
| 11907 | gen-label | |
| 11908 | make-rename | |
| 11909 | rename-marks | |
| 11910 | rename-new | |
| 11911 | rename-old | |
| 11912 | subst-rename? | |
| 11913 | wrap-subst | |
| 11914 | wrap-marks | |
| 11915 | make-wrap | |
| 11916 | id-sym-name&marks | |
| 11917 | id-sym-name | |
| 11918 | id? | |
| 11919 | nonsymbol-id? | |
| 11920 | global-extend | |
| 11921 | lookup | |
| 11922 | macros-only-env | |
| 11923 | extend-var-env | |
| 11924 | extend-env | |
| 11925 | null-env | |
| 11926 | binding-value | |
| 11927 | binding-type | |
| 11928 | make-binding | |
| 11929 | arg-check | |
| 11930 | source-annotation | |
| 11931 | no-source | |
| 11932 | set-syntax-object-module! | |
| 11933 | set-syntax-object-wrap! | |
| 11934 | set-syntax-object-expression! | |
| 11935 | syntax-object-module | |
| 11936 | syntax-object-wrap | |
| 11937 | syntax-object-expression | |
| 11938 | syntax-object? | |
| 11939 | make-syntax-object | |
| 11940 | build-lexical-var | |
| 11941 | build-letrec | |
| 11942 | build-named-let | |
| 11943 | build-let | |
| 11944 | build-sequence | |
| 11945 | build-data | |
| 11946 | build-primref | |
| 11947 | build-lambda-case | |
| 11948 | build-case-lambda | |
| 11949 | build-simple-lambda | |
| 11950 | build-global-definition | |
| 11951 | build-global-assignment | |
| 11952 | build-global-reference | |
| 11953 | analyze-variable | |
| 11954 | build-lexical-assignment | |
| 11955 | build-lexical-reference | |
| 11956 | build-dynlet | |
| 11957 | build-conditional | |
| 11958 | build-application | |
| 11959 | build-void | |
| 11960 | maybe-name-value! | |
| 11961 | decorate-source | |
| 11962 | get-global-definition-hook | |
| 11963 | put-global-definition-hook | |
| 11964 | gensym-hook | |
| 11965 | local-eval-hook | |
| 11966 | top-level-eval-hook | |
| 11967 | fx< | |
| 11968 | fx= | |
| 11969 | fx- | |
| 11970 | fx+ | |
| 11971 | set-lambda-meta! | |
| 11972 | lambda-meta | |
| 11973 | lambda? | |
| 11974 | make-dynlet | |
| 11975 | make-letrec | |
| 11976 | make-let | |
| 11977 | make-lambda-case | |
| 11978 | make-lambda | |
| 11979 | make-sequence | |
| 11980 | make-application | |
| 11981 | make-conditional | |
| 11982 | make-toplevel-define | |
| 11983 | make-toplevel-set | |
| 11984 | make-toplevel-ref | |
| 11985 | make-module-set | |
| 11986 | make-module-ref | |
| 11987 | make-lexical-set | |
| 11988 | make-lexical-ref | |
| 11989 | make-primitive-ref | |
| 11990 | make-const | |
| 11991 | make-void) | |
| 11992 | ((top) | |
| 11993 | (top) | |
| 11994 | (top) | |
| 11995 | (top) | |
| 11996 | (top) | |
| 11997 | (top) | |
| 11998 | (top) | |
| 11999 | (top) | |
| 12000 | (top) | |
| 12001 | (top) | |
| 12002 | (top) | |
| 12003 | (top) | |
| 12004 | (top) | |
| 12005 | (top) | |
| 12006 | (top) | |
| 12007 | (top) | |
| 12008 | (top) | |
| 12009 | (top) | |
| 12010 | (top) | |
| 12011 | (top) | |
| 12012 | (top) | |
| 12013 | (top) | |
| 12014 | (top) | |
| 12015 | (top) | |
| 12016 | (top) | |
| 12017 | (top) | |
| 12018 | (top) | |
| 12019 | (top) | |
| 12020 | (top) | |
| 12021 | (top) | |
| 12022 | (top) | |
| 12023 | (top) | |
| 12024 | (top) | |
| 12025 | (top) | |
| 12026 | (top) | |
| 12027 | (top) | |
| 12028 | (top) | |
| 12029 | (top) | |
| 12030 | (top) | |
| 12031 | (top) | |
| 12032 | (top) | |
| 12033 | (top) | |
| 12034 | (top) | |
| 12035 | (top) | |
| 12036 | (top) | |
| 12037 | (top) | |
| 12038 | (top) | |
| 12039 | (top) | |
| 12040 | (top) | |
| 12041 | (top) | |
| 12042 | (top) | |
| 12043 | (top) | |
| 12044 | (top) | |
| 12045 | (top) | |
| 12046 | (top) | |
| 12047 | (top) | |
| 12048 | (top) | |
| 12049 | (top) | |
| 12050 | (top) | |
| 12051 | (top) | |
| 12052 | (top) | |
| 12053 | (top) | |
| 12054 | (top) | |
| 12055 | (top) | |
| 12056 | (top) | |
| 12057 | (top) | |
| 12058 | (top) | |
| 12059 | (top) | |
| 12060 | (top) | |
| 12061 | (top) | |
| 12062 | (top) | |
| 12063 | (top) | |
| 12064 | (top) | |
| 12065 | (top) | |
| 12066 | (top) | |
| 12067 | (top) | |
| 12068 | (top) | |
| 12069 | (top) | |
| 12070 | (top) | |
| 12071 | (top) | |
| 12072 | (top) | |
| 12073 | (top) | |
| 12074 | (top) | |
| 12075 | (top) | |
| 12076 | (top) | |
| 12077 | (top) | |
| 12078 | (top) | |
| 12079 | (top) | |
| 12080 | (top) | |
| 12081 | (top) | |
| 12082 | (top) | |
| 12083 | (top) | |
| 12084 | (top) | |
| 12085 | (top) | |
| 12086 | (top) | |
| 12087 | (top) | |
| 12088 | (top) | |
| 12089 | (top) | |
| 12090 | (top) | |
| 12091 | (top) | |
| 12092 | (top) | |
| 12093 | (top) | |
| 12094 | (top) | |
| 12095 | (top) | |
| 12096 | (top) | |
| 12097 | (top) | |
| 12098 | (top) | |
| 12099 | (top) | |
| 12100 | (top) | |
| 12101 | (top) | |
| 12102 | (top) | |
| 12103 | (top) | |
| 12104 | (top) | |
| 12105 | (top) | |
| 12106 | (top) | |
| 12107 | (top) | |
| 12108 | (top) | |
| 12109 | (top) | |
| 12110 | (top) | |
| 12111 | (top) | |
| 12112 | (top) | |
| 12113 | (top) | |
| 12114 | (top) | |
| 12115 | (top) | |
| 12116 | (top) | |
| 12117 | (top) | |
| 12118 | (top) | |
| 12119 | (top) | |
| 12120 | (top) | |
| 12121 | (top) | |
| 12122 | (top) | |
| 12123 | (top) | |
| 12124 | (top) | |
| 12125 | (top) | |
| 12126 | (top) | |
| 12127 | (top)) | |
| 12128 | ("i466" | |
| 12129 | "i464" | |
| 12130 | "i462" | |
| 12131 | "i460" | |
| 12132 | "i458" | |
| 12133 | "i456" | |
| 12134 | "i454" | |
| 12135 | "i452" | |
| 12136 | "i450" | |
| 12137 | "i448" | |
| 12138 | "i446" | |
| 12139 | "i444" | |
| 12140 | "i442" | |
| 12141 | "i440" | |
| 12142 | "i438" | |
| 12143 | "i436" | |
| 12144 | "i434" | |
| 12145 | "i432" | |
| 12146 | "i430" | |
| 12147 | "i428" | |
| 12148 | "i426" | |
| 12149 | "i424" | |
| 12150 | "i422" | |
| 12151 | "i420" | |
| 12152 | "i418" | |
| 12153 | "i416" | |
| 12154 | "i414" | |
| 12155 | "i412" | |
| 12156 | "i410" | |
| 12157 | "i408" | |
| 12158 | "i406" | |
| 12159 | "i404" | |
| 12160 | "i402" | |
| 12161 | "i400" | |
| 12162 | "i398" | |
| 12163 | "i397" | |
| 12164 | "i395" | |
| 12165 | "i392" | |
| 12166 | "i391" | |
| 12167 | "i390" | |
| 12168 | "i388" | |
| 12169 | "i387" | |
| 12170 | "i385" | |
| 12171 | "i383" | |
| 12172 | "i381" | |
| 12173 | "i379" | |
| 12174 | "i377" | |
| 12175 | "i375" | |
| 12176 | "i373" | |
| 12177 | "i371" | |
| 12178 | "i368" | |
| 12179 | "i366" | |
| 12180 | "i365" | |
| 12181 | "i363" | |
| 12182 | "i361" | |
| 12183 | "i359" | |
| 12184 | "i357" | |
| 12185 | "i356" | |
| 12186 | "i355" | |
| 12187 | "i354" | |
| 12188 | "i352" | |
| 12189 | "i351" | |
| 12190 | "i348" | |
| 12191 | "i346" | |
| 12192 | "i344" | |
| 12193 | "i342" | |
| 12194 | "i340" | |
| 12195 | "i338" | |
| 12196 | "i336" | |
| 12197 | "i335" | |
| 12198 | "i334" | |
| 12199 | "i332" | |
| 12200 | "i330" | |
| 12201 | "i329" | |
| 12202 | "i326" | |
| 12203 | "i325" | |
| 12204 | "i323" | |
| 12205 | "i321" | |
| 12206 | "i319" | |
| 12207 | "i317" | |
| 12208 | "i315" | |
| 12209 | "i313" | |
| 12210 | "i311" | |
| 12211 | "i309" | |
| 12212 | "i307" | |
| 12213 | "i304" | |
| 12214 | "i302" | |
| 12215 | "i300" | |
| 12216 | "i298" | |
| 12217 | "i296" | |
| 12218 | "i294" | |
| 12219 | "i292" | |
| 12220 | "i290" | |
| 12221 | "i288" | |
| 12222 | "i286" | |
| 12223 | "i284" | |
| 12224 | "i282" | |
| 12225 | "i280" | |
| 12226 | "i278" | |
| 12227 | "i276" | |
| 12228 | "i274" | |
| 12229 | "i272" | |
| 12230 | "i270" | |
| 12231 | "i268" | |
| 12232 | "i266" | |
| 12233 | "i264" | |
| 12234 | "i262" | |
| 12235 | "i260" | |
| 12236 | "i259" | |
| 12237 | "i256" | |
| 12238 | "i254" | |
| 12239 | "i253" | |
| 12240 | "i252" | |
| 12241 | "i251" | |
| 12242 | "i250" | |
| 12243 | "i248" | |
| 12244 | "i246" | |
| 12245 | "i244" | |
| 12246 | "i241" | |
| 12247 | "i239" | |
| 12248 | "i237" | |
| 12249 | "i235" | |
| 12250 | "i233" | |
| 12251 | "i231" | |
| 12252 | "i229" | |
| 12253 | "i227" | |
| 12254 | "i225" | |
| 12255 | "i223" | |
| 12256 | "i221" | |
| 12257 | "i219" | |
| 12258 | "i217" | |
| 12259 | "i215" | |
| 12260 | "i213" | |
| 12261 | "i211" | |
| 12262 | "i209" | |
| 12263 | "i207")) | |
| 12264 | #(ribcage | |
| 12265 | (define-structure | |
| 12266 | define-expansion-accessors | |
| 12267 | define-expansion-constructors) | |
| 12268 | ((top) (top) (top)) | |
| 12269 | ("i45" "i44" "i43"))) | |
| 12270 | (hygiene guile)) | |
| 12271 | 0) | |
| 12272 | 'syntax-object) | |
| 12273 | #f) | |
| 12274 | (vector-ref | |
| 12275 | '#(syntax-object | |
| 12276 | _ | |
| 12277 | ((top) | |
| 12278 | #(ribcage () () ()) | |
| 12279 | #(ribcage | |
| 12280 | #(p n ids) | |
| 12281 | #((top) (top) (top)) | |
| 12282 | #("i3746" "i3747" "i3748")) | |
| 12283 | #(ribcage | |
| 12284 | (cvt v-reverse cvt*) | |
| 12285 | ((top) (top) (top)) | |
| 12286 | ("i3719" "i3717" "i3715")) | |
| 12287 | #(ribcage | |
| 12288 | #(pattern keys) | |
| 12289 | #((top) (top)) | |
| 12290 | #("i3713" "i3714")) | |
| 12291 | #(ribcage | |
| 12292 | (gen-syntax-case | |
| 12293 | gen-clause | |
| 12294 | build-dispatch-call | |
| 12295 | convert-pattern) | |
| 12296 | ((top) (top) (top) (top)) | |
| 12297 | ("i3709" | |
| 12298 | "i3707" | |
| 12299 | "i3705" | |
| 12300 | "i3703")) | |
| 12301 | #(ribcage | |
| 12302 | (lambda-var-list | |
| 12303 | gen-var | |
| 12304 | strip | |
| 12305 | chi-lambda-case | |
| 12306 | lambda*-formals | |
| 12307 | chi-simple-lambda | |
| 12308 | lambda-formals | |
| 12309 | ellipsis? | |
| 12310 | chi-void | |
| 12311 | eval-local-transformer | |
| 12312 | chi-local-syntax | |
| 12313 | chi-body | |
| 12314 | chi-macro | |
| 12315 | chi-application | |
| 12316 | chi-expr | |
| 12317 | chi | |
| 12318 | syntax-type | |
| 12319 | chi-when-list | |
| 12320 | chi-install-global | |
| 12321 | chi-top-sequence | |
| 12322 | chi-sequence | |
| 12323 | source-wrap | |
| 12324 | wrap | |
| 12325 | bound-id-member? | |
| 12326 | distinct-bound-ids? | |
| 12327 | valid-bound-ids? | |
| 12328 | bound-id=? | |
| 12329 | free-id=? | |
| 12330 | id-var-name | |
| 12331 | same-marks? | |
| 12332 | join-marks | |
| 12333 | join-wraps | |
| 12334 | smart-append | |
| 12335 | make-binding-wrap | |
| 12336 | extend-ribcage! | |
| 12337 | make-empty-ribcage | |
| 12338 | new-mark | |
| 12339 | anti-mark | |
| 12340 | the-anti-mark | |
| 12341 | top-marked? | |
| 12342 | top-wrap | |
| 12343 | empty-wrap | |
| 12344 | set-ribcage-labels! | |
| 12345 | set-ribcage-marks! | |
| 12346 | set-ribcage-symnames! | |
| 12347 | ribcage-labels | |
| 12348 | ribcage-marks | |
| 12349 | ribcage-symnames | |
| 12350 | ribcage? | |
| 12351 | make-ribcage | |
| 12352 | gen-labels | |
| 12353 | gen-label | |
| 12354 | make-rename | |
| 12355 | rename-marks | |
| 12356 | rename-new | |
| 12357 | rename-old | |
| 12358 | subst-rename? | |
| 12359 | wrap-subst | |
| 12360 | wrap-marks | |
| 12361 | make-wrap | |
| 12362 | id-sym-name&marks | |
| 12363 | id-sym-name | |
| 12364 | id? | |
| 12365 | nonsymbol-id? | |
| 12366 | global-extend | |
| 12367 | lookup | |
| 12368 | macros-only-env | |
| 12369 | extend-var-env | |
| 12370 | extend-env | |
| 12371 | null-env | |
| 12372 | binding-value | |
| 12373 | binding-type | |
| 12374 | make-binding | |
| 12375 | arg-check | |
| 12376 | source-annotation | |
| 12377 | no-source | |
| 12378 | set-syntax-object-module! | |
| 12379 | set-syntax-object-wrap! | |
| 12380 | set-syntax-object-expression! | |
| 12381 | syntax-object-module | |
| 12382 | syntax-object-wrap | |
| 12383 | syntax-object-expression | |
| 12384 | syntax-object? | |
| 12385 | make-syntax-object | |
| 12386 | build-lexical-var | |
| 12387 | build-letrec | |
| 12388 | build-named-let | |
| 12389 | build-let | |
| 12390 | build-sequence | |
| 12391 | build-data | |
| 12392 | build-primref | |
| 12393 | build-lambda-case | |
| 12394 | build-case-lambda | |
| 12395 | build-simple-lambda | |
| 12396 | build-global-definition | |
| 12397 | build-global-assignment | |
| 12398 | build-global-reference | |
| 12399 | analyze-variable | |
| 12400 | build-lexical-assignment | |
| 12401 | build-lexical-reference | |
| 12402 | build-dynlet | |
| 12403 | build-conditional | |
| 12404 | build-application | |
| 12405 | build-void | |
| 12406 | maybe-name-value! | |
| 12407 | decorate-source | |
| 12408 | get-global-definition-hook | |
| 12409 | put-global-definition-hook | |
| 12410 | gensym-hook | |
| 12411 | local-eval-hook | |
| 12412 | top-level-eval-hook | |
| 12413 | fx< | |
| 12414 | fx= | |
| 12415 | fx- | |
| 12416 | fx+ | |
| 12417 | set-lambda-meta! | |
| 12418 | lambda-meta | |
| 12419 | lambda? | |
| 12420 | make-dynlet | |
| 12421 | make-letrec | |
| 12422 | make-let | |
| 12423 | make-lambda-case | |
| 12424 | make-lambda | |
| 12425 | make-sequence | |
| 12426 | make-application | |
| 12427 | make-conditional | |
| 12428 | make-toplevel-define | |
| 12429 | make-toplevel-set | |
| 12430 | make-toplevel-ref | |
| 12431 | make-module-set | |
| 12432 | make-module-ref | |
| 12433 | make-lexical-set | |
| 12434 | make-lexical-ref | |
| 12435 | make-primitive-ref | |
| 12436 | make-const | |
| 12437 | make-void) | |
| 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) | |
| 12549 | (top) | |
| 12550 | (top) | |
| 12551 | (top) | |
| 12552 | (top) | |
| 12553 | (top) | |
| 12554 | (top) | |
| 12555 | (top) | |
| 12556 | (top) | |
| 12557 | (top) | |
| 12558 | (top) | |
| 12559 | (top) | |
| 12560 | (top) | |
| 12561 | (top) | |
| 12562 | (top) | |
| 12563 | (top) | |
| 12564 | (top) | |
| 12565 | (top) | |
| 12566 | (top) | |
| 12567 | (top) | |
| 12568 | (top) | |
| 12569 | (top) | |
| 12570 | (top) | |
| 12571 | (top) | |
| 12572 | (top) | |
| 12573 | (top)) | |
| 12574 | ("i466" | |
| 12575 | "i464" | |
| 12576 | "i462" | |
| 12577 | "i460" | |
| 12578 | "i458" | |
| 12579 | "i456" | |
| 12580 | "i454" | |
| 12581 | "i452" | |
| 12582 | "i450" | |
| 12583 | "i448" | |
| 12584 | "i446" | |
| 12585 | "i444" | |
| 12586 | "i442" | |
| 12587 | "i440" | |
| 12588 | "i438" | |
| 12589 | "i436" | |
| 12590 | "i434" | |
| 12591 | "i432" | |
| 12592 | "i430" | |
| 12593 | "i428" | |
| 12594 | "i426" | |
| 12595 | "i424" | |
| 12596 | "i422" | |
| 12597 | "i420" | |
| 12598 | "i418" | |
| 12599 | "i416" | |
| 12600 | "i414" | |
| 12601 | "i412" | |
| 12602 | "i410" | |
| 12603 | "i408" | |
| 12604 | "i406" | |
| 12605 | "i404" | |
| 12606 | "i402" | |
| 12607 | "i400" | |
| 12608 | "i398" | |
| 12609 | "i397" | |
| 12610 | "i395" | |
| 12611 | "i392" | |
| 12612 | "i391" | |
| 12613 | "i390" | |
| 12614 | "i388" | |
| 12615 | "i387" | |
| 12616 | "i385" | |
| 12617 | "i383" | |
| 12618 | "i381" | |
| 12619 | "i379" | |
| 12620 | "i377" | |
| 12621 | "i375" | |
| 12622 | "i373" | |
| 12623 | "i371" | |
| 12624 | "i368" | |
| 12625 | "i366" | |
| 12626 | "i365" | |
| 12627 | "i363" | |
| 12628 | "i361" | |
| 12629 | "i359" | |
| 12630 | "i357" | |
| 12631 | "i356" | |
| 12632 | "i355" | |
| 12633 | "i354" | |
| 12634 | "i352" | |
| 12635 | "i351" | |
| 12636 | "i348" | |
| 12637 | "i346" | |
| 12638 | "i344" | |
| 12639 | "i342" | |
| 12640 | "i340" | |
| 12641 | "i338" | |
| 12642 | "i336" | |
| 12643 | "i335" | |
| 12644 | "i334" | |
| 12645 | "i332" | |
| 12646 | "i330" | |
| 12647 | "i329" | |
| 12648 | "i326" | |
| 12649 | "i325" | |
| 12650 | "i323" | |
| 12651 | "i321" | |
| 12652 | "i319" | |
| 12653 | "i317" | |
| 12654 | "i315" | |
| 12655 | "i313" | |
| 12656 | "i311" | |
| 12657 | "i309" | |
| 12658 | "i307" | |
| 12659 | "i304" | |
| 12660 | "i302" | |
| 12661 | "i300" | |
| 12662 | "i298" | |
| 12663 | "i296" | |
| 12664 | "i294" | |
| 12665 | "i292" | |
| 12666 | "i290" | |
| 12667 | "i288" | |
| 12668 | "i286" | |
| 12669 | "i284" | |
| 12670 | "i282" | |
| 12671 | "i280" | |
| 12672 | "i278" | |
| 12673 | "i276" | |
| 12674 | "i274" | |
| 12675 | "i272" | |
| 12676 | "i270" | |
| 12677 | "i268" | |
| 12678 | "i266" | |
| 12679 | "i264" | |
| 12680 | "i262" | |
| 12681 | "i260" | |
| 12682 | "i259" | |
| 12683 | "i256" | |
| 12684 | "i254" | |
| 12685 | "i253" | |
| 12686 | "i252" | |
| 12687 | "i251" | |
| 12688 | "i250" | |
| 12689 | "i248" | |
| 12690 | "i246" | |
| 12691 | "i244" | |
| 12692 | "i241" | |
| 12693 | "i239" | |
| 12694 | "i237" | |
| 12695 | "i235" | |
| 12696 | "i233" | |
| 12697 | "i231" | |
| 12698 | "i229" | |
| 12699 | "i227" | |
| 12700 | "i225" | |
| 12701 | "i223" | |
| 12702 | "i221" | |
| 12703 | "i219" | |
| 12704 | "i217" | |
| 12705 | "i215" | |
| 12706 | "i213" | |
| 12707 | "i211" | |
| 12708 | "i209" | |
| 12709 | "i207")) | |
| 12710 | #(ribcage | |
| 12711 | (define-structure | |
| 12712 | define-expansion-accessors | |
| 12713 | define-expansion-constructors) | |
| 12714 | ((top) (top) (top)) | |
| 12715 | ("i45" "i44" "i43"))) | |
| 12716 | (hygiene guile)) | |
| 12717 | 1) | |
| 12718 | '#(syntax-object | |
| 12719 | _ | |
| 12720 | ((top) | |
| 12721 | #(ribcage () () ()) | |
| 12722 | #(ribcage | |
| 12723 | #(p n ids) | |
| 12724 | #((top) (top) (top)) | |
| 12725 | #("i3746" "i3747" "i3748")) | |
| 12726 | #(ribcage | |
| 12727 | (cvt v-reverse cvt*) | |
| 12728 | ((top) (top) (top)) | |
| 12729 | ("i3719" "i3717" "i3715")) | |
| 12730 | #(ribcage | |
| 12731 | #(pattern keys) | |
| 12732 | #((top) (top)) | |
| 12733 | #("i3713" "i3714")) | |
| 12734 | #(ribcage | |
| 12735 | (gen-syntax-case | |
| 12736 | gen-clause | |
| 12737 | build-dispatch-call | |
| 12738 | convert-pattern) | |
| 12739 | ((top) (top) (top) (top)) | |
| 12740 | ("i3709" "i3707" "i3705" "i3703")) | |
| 12741 | #(ribcage | |
| 12742 | (lambda-var-list | |
| 12743 | gen-var | |
| 12744 | strip | |
| 12745 | chi-lambda-case | |
| 12746 | lambda*-formals | |
| 12747 | chi-simple-lambda | |
| 12748 | lambda-formals | |
| 12749 | ellipsis? | |
| 12750 | chi-void | |
| 12751 | eval-local-transformer | |
| 12752 | chi-local-syntax | |
| 12753 | chi-body | |
| 12754 | chi-macro | |
| 12755 | chi-application | |
| 12756 | chi-expr | |
| 12757 | chi | |
| 12758 | syntax-type | |
| 12759 | chi-when-list | |
| 12760 | chi-install-global | |
| 12761 | chi-top-sequence | |
| 12762 | chi-sequence | |
| 12763 | source-wrap | |
| 12764 | wrap | |
| 12765 | bound-id-member? | |
| 12766 | distinct-bound-ids? | |
| 12767 | valid-bound-ids? | |
| 12768 | bound-id=? | |
| 12769 | free-id=? | |
| 12770 | id-var-name | |
| 12771 | same-marks? | |
| 12772 | join-marks | |
| 12773 | join-wraps | |
| 12774 | smart-append | |
| 12775 | make-binding-wrap | |
| 12776 | extend-ribcage! | |
| 12777 | make-empty-ribcage | |
| 12778 | new-mark | |
| 12779 | anti-mark | |
| 12780 | the-anti-mark | |
| 12781 | top-marked? | |
| 12782 | top-wrap | |
| 12783 | empty-wrap | |
| 12784 | set-ribcage-labels! | |
| 12785 | set-ribcage-marks! | |
| 12786 | set-ribcage-symnames! | |
| 12787 | ribcage-labels | |
| 12788 | ribcage-marks | |
| 12789 | ribcage-symnames | |
| 12790 | ribcage? | |
| 12791 | make-ribcage | |
| 12792 | gen-labels | |
| 12793 | gen-label | |
| 12794 | make-rename | |
| 12795 | rename-marks | |
| 12796 | rename-new | |
| 12797 | rename-old | |
| 12798 | subst-rename? | |
| 12799 | wrap-subst | |
| 12800 | wrap-marks | |
| 12801 | make-wrap | |
| 12802 | id-sym-name&marks | |
| 12803 | id-sym-name | |
| 12804 | id? | |
| 12805 | nonsymbol-id? | |
| 12806 | global-extend | |
| 12807 | lookup | |
| 12808 | macros-only-env | |
| 12809 | extend-var-env | |
| 12810 | extend-env | |
| 12811 | null-env | |
| 12812 | binding-value | |
| 12813 | binding-type | |
| 12814 | make-binding | |
| 12815 | arg-check | |
| 12816 | source-annotation | |
| 12817 | no-source | |
| 12818 | set-syntax-object-module! | |
| 12819 | set-syntax-object-wrap! | |
| 12820 | set-syntax-object-expression! | |
| 12821 | syntax-object-module | |
| 12822 | syntax-object-wrap | |
| 12823 | syntax-object-expression | |
| 12824 | syntax-object? | |
| 12825 | make-syntax-object | |
| 12826 | build-lexical-var | |
| 12827 | build-letrec | |
| 12828 | build-named-let | |
| 12829 | build-let | |
| 12830 | build-sequence | |
| 12831 | build-data | |
| 12832 | build-primref | |
| 12833 | build-lambda-case | |
| 12834 | build-case-lambda | |
| 12835 | build-simple-lambda | |
| 12836 | build-global-definition | |
| 12837 | build-global-assignment | |
| 12838 | build-global-reference | |
| 12839 | analyze-variable | |
| 12840 | build-lexical-assignment | |
| 12841 | build-lexical-reference | |
| 12842 | build-dynlet | |
| 12843 | build-conditional | |
| 12844 | build-application | |
| 12845 | build-void | |
| 12846 | maybe-name-value! | |
| 12847 | decorate-source | |
| 12848 | get-global-definition-hook | |
| 12849 | put-global-definition-hook | |
| 12850 | gensym-hook | |
| 12851 | local-eval-hook | |
| 12852 | top-level-eval-hook | |
| 12853 | fx< | |
| 12854 | fx= | |
| 12855 | fx- | |
| 12856 | fx+ | |
| 12857 | set-lambda-meta! | |
| 12858 | lambda-meta | |
| 12859 | lambda? | |
| 12860 | make-dynlet | |
| 12861 | make-letrec | |
| 12862 | make-let | |
| 12863 | make-lambda-case | |
| 12864 | make-lambda | |
| 12865 | make-sequence | |
| 12866 | make-application | |
| 12867 | make-conditional | |
| 12868 | make-toplevel-define | |
| 12869 | make-toplevel-set | |
| 12870 | make-toplevel-ref | |
| 12871 | make-module-set | |
| 12872 | make-module-ref | |
| 12873 | make-lexical-set | |
| 12874 | make-lexical-ref | |
| 12875 | make-primitive-ref | |
| 12876 | make-const | |
| 12877 | make-void) | |
| 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) | |
| 12991 | (top) | |
| 12992 | (top) | |
| 12993 | (top) | |
| 12994 | (top) | |
| 12995 | (top) | |
| 12996 | (top) | |
| 12997 | (top) | |
| 12998 | (top) | |
| 12999 | (top) | |
| 13000 | (top) | |
| 13001 | (top) | |
| 13002 | (top) | |
| 13003 | (top) | |
| 13004 | (top) | |
| 13005 | (top) | |
| 13006 | (top) | |
| 13007 | (top) | |
| 13008 | (top) | |
| 13009 | (top) | |
| 13010 | (top) | |
| 13011 | (top) | |
| 13012 | (top) | |
| 13013 | (top)) | |
| 13014 | ("i466" | |
| 13015 | "i464" | |
| 13016 | "i462" | |
| 13017 | "i460" | |
| 13018 | "i458" | |
| 13019 | "i456" | |
| 13020 | "i454" | |
| 13021 | "i452" | |
| 13022 | "i450" | |
| 13023 | "i448" | |
| 13024 | "i446" | |
| 13025 | "i444" | |
| 13026 | "i442" | |
| 13027 | "i440" | |
| 13028 | "i438" | |
| 13029 | "i436" | |
| 13030 | "i434" | |
| 13031 | "i432" | |
| 13032 | "i430" | |
| 13033 | "i428" | |
| 13034 | "i426" | |
| 13035 | "i424" | |
| 13036 | "i422" | |
| 13037 | "i420" | |
| 13038 | "i418" | |
| 13039 | "i416" | |
| 13040 | "i414" | |
| 13041 | "i412" | |
| 13042 | "i410" | |
| 13043 | "i408" | |
| 13044 | "i406" | |
| 13045 | "i404" | |
| 13046 | "i402" | |
| 13047 | "i400" | |
| 13048 | "i398" | |
| 13049 | "i397" | |
| 13050 | "i395" | |
| 13051 | "i392" | |
| 13052 | "i391" | |
| 13053 | "i390" | |
| 13054 | "i388" | |
| 13055 | "i387" | |
| 13056 | "i385" | |
| 13057 | "i383" | |
| 13058 | "i381" | |
| 13059 | "i379" | |
| 13060 | "i377" | |
| 13061 | "i375" | |
| 13062 | "i373" | |
| 13063 | "i371" | |
| 13064 | "i368" | |
| 13065 | "i366" | |
| 13066 | "i365" | |
| 13067 | "i363" | |
| 13068 | "i361" | |
| 13069 | "i359" | |
| 13070 | "i357" | |
| 13071 | "i356" | |
| 13072 | "i355" | |
| 13073 | "i354" | |
| 13074 | "i352" | |
| 13075 | "i351" | |
| 13076 | "i348" | |
| 13077 | "i346" | |
| 13078 | "i344" | |
| 13079 | "i342" | |
| 13080 | "i340" | |
| 13081 | "i338" | |
| 13082 | "i336" | |
| 13083 | "i335" | |
| 13084 | "i334" | |
| 13085 | "i332" | |
| 13086 | "i330" | |
| 13087 | "i329" | |
| 13088 | "i326" | |
| 13089 | "i325" | |
| 13090 | "i323" | |
| 13091 | "i321" | |
| 13092 | "i319" | |
| 13093 | "i317" | |
| 13094 | "i315" | |
| 13095 | "i313" | |
| 13096 | "i311" | |
| 13097 | "i309" | |
| 13098 | "i307" | |
| 13099 | "i304" | |
| 13100 | "i302" | |
| 13101 | "i300" | |
| 13102 | "i298" | |
| 13103 | "i296" | |
| 13104 | "i294" | |
| 13105 | "i292" | |
| 13106 | "i290" | |
| 13107 | "i288" | |
| 13108 | "i286" | |
| 13109 | "i284" | |
| 13110 | "i282" | |
| 13111 | "i280" | |
| 13112 | "i278" | |
| 13113 | "i276" | |
| 13114 | "i274" | |
| 13115 | "i272" | |
| 13116 | "i270" | |
| 13117 | "i268" | |
| 13118 | "i266" | |
| 13119 | "i264" | |
| 13120 | "i262" | |
| 13121 | "i260" | |
| 13122 | "i259" | |
| 13123 | "i256" | |
| 13124 | "i254" | |
| 13125 | "i253" | |
| 13126 | "i252" | |
| 13127 | "i251" | |
| 13128 | "i250" | |
| 13129 | "i248" | |
| 13130 | "i246" | |
| 13131 | "i244" | |
| 13132 | "i241" | |
| 13133 | "i239" | |
| 13134 | "i237" | |
| 13135 | "i235" | |
| 13136 | "i233" | |
| 13137 | "i231" | |
| 13138 | "i229" | |
| 13139 | "i227" | |
| 13140 | "i225" | |
| 13141 | "i223" | |
| 13142 | "i221" | |
| 13143 | "i219" | |
| 13144 | "i217" | |
| 13145 | "i215" | |
| 13146 | "i213" | |
| 13147 | "i211" | |
| 13148 | "i209" | |
| 13149 | "i207")) | |
| 13150 | #(ribcage | |
| 13151 | (define-structure | |
| 13152 | define-expansion-accessors | |
| 13153 | define-expansion-constructors) | |
| 13154 | ((top) (top) (top)) | |
| 13155 | ("i45" "i44" "i43"))) | |
| 13156 | (hygiene guile)))) | |
| 13157 | (eq? (#{id-var-name 411}# #{p 3743}# '(())) | |
| 13158 | (#{id-var-name 411}# | |
| 13159 | '#(syntax-object | |
| 13160 | _ | |
| 13161 | ((top) | |
| 13162 | #(ribcage () () ()) | |
| 13163 | #(ribcage | |
| 13164 | #(p n ids) | |
| 13165 | #((top) (top) (top)) | |
| 13166 | #("i3746" "i3747" "i3748")) | |
| 13167 | #(ribcage | |
| 13168 | (cvt v-reverse cvt*) | |
| 13169 | ((top) (top) (top)) | |
| 13170 | ("i3719" "i3717" "i3715")) | |
| 13171 | #(ribcage | |
| 13172 | #(pattern keys) | |
| 13173 | #((top) (top)) | |
| 13174 | #("i3713" "i3714")) | |
| 13175 | #(ribcage | |
| 13176 | (gen-syntax-case | |
| 13177 | gen-clause | |
| 13178 | build-dispatch-call | |
| 13179 | convert-pattern) | |
| 13180 | ((top) (top) (top) (top)) | |
| 13181 | ("i3709" "i3707" "i3705" "i3703")) | |
| 13182 | #(ribcage | |
| 13183 | (lambda-var-list | |
| 13184 | gen-var | |
| 13185 | strip | |
| 13186 | chi-lambda-case | |
| 13187 | lambda*-formals | |
| 13188 | chi-simple-lambda | |
| 13189 | lambda-formals | |
| 13190 | ellipsis? | |
| 13191 | chi-void | |
| 13192 | eval-local-transformer | |
| 13193 | chi-local-syntax | |
| 13194 | chi-body | |
| 13195 | chi-macro | |
| 13196 | chi-application | |
| 13197 | chi-expr | |
| 13198 | chi | |
| 13199 | syntax-type | |
| 13200 | chi-when-list | |
| 13201 | chi-install-global | |
| 13202 | chi-top-sequence | |
| 13203 | chi-sequence | |
| 13204 | source-wrap | |
| 13205 | wrap | |
| 13206 | bound-id-member? | |
| 13207 | distinct-bound-ids? | |
| 13208 | valid-bound-ids? | |
| 13209 | bound-id=? | |
| 13210 | free-id=? | |
| 13211 | id-var-name | |
| 13212 | same-marks? | |
| 13213 | join-marks | |
| 13214 | join-wraps | |
| 13215 | smart-append | |
| 13216 | make-binding-wrap | |
| 13217 | extend-ribcage! | |
| 13218 | make-empty-ribcage | |
| 13219 | new-mark | |
| 13220 | anti-mark | |
| 13221 | the-anti-mark | |
| 13222 | top-marked? | |
| 13223 | top-wrap | |
| 13224 | empty-wrap | |
| 13225 | set-ribcage-labels! | |
| 13226 | set-ribcage-marks! | |
| 13227 | set-ribcage-symnames! | |
| 13228 | ribcage-labels | |
| 13229 | ribcage-marks | |
| 13230 | ribcage-symnames | |
| 13231 | ribcage? | |
| 13232 | make-ribcage | |
| 13233 | gen-labels | |
| 13234 | gen-label | |
| 13235 | make-rename | |
| 13236 | rename-marks | |
| 13237 | rename-new | |
| 13238 | rename-old | |
| 13239 | subst-rename? | |
| 13240 | wrap-subst | |
| 13241 | wrap-marks | |
| 13242 | make-wrap | |
| 13243 | id-sym-name&marks | |
| 13244 | id-sym-name | |
| 13245 | id? | |
| 13246 | nonsymbol-id? | |
| 13247 | global-extend | |
| 13248 | lookup | |
| 13249 | macros-only-env | |
| 13250 | extend-var-env | |
| 13251 | extend-env | |
| 13252 | null-env | |
| 13253 | binding-value | |
| 13254 | binding-type | |
| 13255 | make-binding | |
| 13256 | arg-check | |
| 13257 | source-annotation | |
| 13258 | no-source | |
| 13259 | set-syntax-object-module! | |
| 13260 | set-syntax-object-wrap! | |
| 13261 | set-syntax-object-expression! | |
| 13262 | syntax-object-module | |
| 13263 | syntax-object-wrap | |
| 13264 | syntax-object-expression | |
| 13265 | syntax-object? | |
| 13266 | make-syntax-object | |
| 13267 | build-lexical-var | |
| 13268 | build-letrec | |
| 13269 | build-named-let | |
| 13270 | build-let | |
| 13271 | build-sequence | |
| 13272 | build-data | |
| 13273 | build-primref | |
| 13274 | build-lambda-case | |
| 13275 | build-case-lambda | |
| 13276 | build-simple-lambda | |
| 13277 | build-global-definition | |
| 13278 | build-global-assignment | |
| 13279 | build-global-reference | |
| 13280 | analyze-variable | |
| 13281 | build-lexical-assignment | |
| 13282 | build-lexical-reference | |
| 13283 | build-dynlet | |
| 13284 | build-conditional | |
| 13285 | build-application | |
| 13286 | build-void | |
| 13287 | maybe-name-value! | |
| 13288 | decorate-source | |
| 13289 | get-global-definition-hook | |
| 13290 | put-global-definition-hook | |
| 13291 | gensym-hook | |
| 13292 | local-eval-hook | |
| 13293 | top-level-eval-hook | |
| 13294 | fx< | |
| 13295 | fx= | |
| 13296 | fx- | |
| 13297 | fx+ | |
| 13298 | set-lambda-meta! | |
| 13299 | lambda-meta | |
| 13300 | lambda? | |
| 13301 | make-dynlet | |
| 13302 | make-letrec | |
| 13303 | make-let | |
| 13304 | make-lambda-case | |
| 13305 | make-lambda | |
| 13306 | make-sequence | |
| 13307 | make-application | |
| 13308 | make-conditional | |
| 13309 | make-toplevel-define | |
| 13310 | make-toplevel-set | |
| 13311 | make-toplevel-ref | |
| 13312 | make-module-set | |
| 13313 | make-module-ref | |
| 13314 | make-lexical-set | |
| 13315 | make-lexical-ref | |
| 13316 | make-primitive-ref | |
| 13317 | make-const | |
| 13318 | make-void) | |
| 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) | |
| 13430 | (top) | |
| 13431 | (top) | |
| 13432 | (top) | |
| 13433 | (top) | |
| 13434 | (top) | |
| 13435 | (top) | |
| 13436 | (top) | |
| 13437 | (top) | |
| 13438 | (top) | |
| 13439 | (top) | |
| 13440 | (top) | |
| 13441 | (top) | |
| 13442 | (top) | |
| 13443 | (top) | |
| 13444 | (top) | |
| 13445 | (top) | |
| 13446 | (top) | |
| 13447 | (top) | |
| 13448 | (top) | |
| 13449 | (top) | |
| 13450 | (top) | |
| 13451 | (top) | |
| 13452 | (top) | |
| 13453 | (top) | |
| 13454 | (top)) | |
| 13455 | ("i466" | |
| 13456 | "i464" | |
| 13457 | "i462" | |
| 13458 | "i460" | |
| 13459 | "i458" | |
| 13460 | "i456" | |
| 13461 | "i454" | |
| 13462 | "i452" | |
| 13463 | "i450" | |
| 13464 | "i448" | |
| 13465 | "i446" | |
| 13466 | "i444" | |
| 13467 | "i442" | |
| 13468 | "i440" | |
| 13469 | "i438" | |
| 13470 | "i436" | |
| 13471 | "i434" | |
| 13472 | "i432" | |
| 13473 | "i430" | |
| 13474 | "i428" | |
| 13475 | "i426" | |
| 13476 | "i424" | |
| 13477 | "i422" | |
| 13478 | "i420" | |
| 13479 | "i418" | |
| 13480 | "i416" | |
| 13481 | "i414" | |
| 13482 | "i412" | |
| 13483 | "i410" | |
| 13484 | "i408" | |
| 13485 | "i406" | |
| 13486 | "i404" | |
| 13487 | "i402" | |
| 13488 | "i400" | |
| 13489 | "i398" | |
| 13490 | "i397" | |
| 13491 | "i395" | |
| 13492 | "i392" | |
| 13493 | "i391" | |
| 13494 | "i390" | |
| 13495 | "i388" | |
| 13496 | "i387" | |
| 13497 | "i385" | |
| 13498 | "i383" | |
| 13499 | "i381" | |
| 13500 | "i379" | |
| 13501 | "i377" | |
| 13502 | "i375" | |
| 13503 | "i373" | |
| 13504 | "i371" | |
| 13505 | "i368" | |
| 13506 | "i366" | |
| 13507 | "i365" | |
| 13508 | "i363" | |
| 13509 | "i361" | |
| 13510 | "i359" | |
| 13511 | "i357" | |
| 13512 | "i356" | |
| 13513 | "i355" | |
| 13514 | "i354" | |
| 13515 | "i352" | |
| 13516 | "i351" | |
| 13517 | "i348" | |
| 13518 | "i346" | |
| 13519 | "i344" | |
| 13520 | "i342" | |
| 13521 | "i340" | |
| 13522 | "i338" | |
| 13523 | "i336" | |
| 13524 | "i335" | |
| 13525 | "i334" | |
| 13526 | "i332" | |
| 13527 | "i330" | |
| 13528 | "i329" | |
| 13529 | "i326" | |
| 13530 | "i325" | |
| 13531 | "i323" | |
| 13532 | "i321" | |
| 13533 | "i319" | |
| 13534 | "i317" | |
| 13535 | "i315" | |
| 13536 | "i313" | |
| 13537 | "i311" | |
| 13538 | "i309" | |
| 13539 | "i307" | |
| 13540 | "i304" | |
| 13541 | "i302" | |
| 13542 | "i300" | |
| 13543 | "i298" | |
| 13544 | "i296" | |
| 13545 | "i294" | |
| 13546 | "i292" | |
| 13547 | "i290" | |
| 13548 | "i288" | |
| 13549 | "i286" | |
| 13550 | "i284" | |
| 13551 | "i282" | |
| 13552 | "i280" | |
| 13553 | "i278" | |
| 13554 | "i276" | |
| 13555 | "i274" | |
| 13556 | "i272" | |
| 13557 | "i270" | |
| 13558 | "i268" | |
| 13559 | "i266" | |
| 13560 | "i264" | |
| 13561 | "i262" | |
| 13562 | "i260" | |
| 13563 | "i259" | |
| 13564 | "i256" | |
| 13565 | "i254" | |
| 13566 | "i253" | |
| 13567 | "i252" | |
| 13568 | "i251" | |
| 13569 | "i250" | |
| 13570 | "i248" | |
| 13571 | "i246" | |
| 13572 | "i244" | |
| 13573 | "i241" | |
| 13574 | "i239" | |
| 13575 | "i237" | |
| 13576 | "i235" | |
| 13577 | "i233" | |
| 13578 | "i231" | |
| 13579 | "i229" | |
| 13580 | "i227" | |
| 13581 | "i225" | |
| 13582 | "i223" | |
| 13583 | "i221" | |
| 13584 | "i219" | |
| 13585 | "i217" | |
| 13586 | "i215" | |
| 13587 | "i213" | |
| 13588 | "i211" | |
| 13589 | "i209" | |
| 13590 | "i207")) | |
| 13591 | #(ribcage | |
| 13592 | (define-structure | |
| 13593 | define-expansion-accessors | |
| 13594 | define-expansion-constructors) | |
| 13595 | ((top) (top) (top)) | |
| 13596 | ("i45" "i44" "i43"))) | |
| 13597 | (hygiene guile)) | |
| 13598 | '(()))) | |
| 13599 | #f) | |
| 13600 | (values '_ #{ids 3745}#) | |
| 13601 | (values | |
| 13602 | 'any | |
| 13603 | (cons (cons #{p 3743}# #{n 3744}#) #{ids 3745}#)))) | |
| 13604 | (let ((#{tmp 3755}# | |
| 13605 | ($sc-dispatch #{p 3743}# '(any any)))) | |
| 13606 | (if (if #{tmp 3755}# | |
| 13607 | (@apply | |
| 13608 | (lambda (#{x 3758}# #{dots 3759}#) | |
| 13609 | (if (if (if (vector? #{dots 3759}#) | |
| 13610 | (if (= (vector-length | |
| 13611 | #{dots 3759}#) | |
| 13612 | 4) | |
| 13613 | (eq? (vector-ref #{dots 3759}# 0) | |
| 13614 | 'syntax-object) | |
| 13615 | #f) | |
| 13616 | #f) | |
| 13617 | (symbol? (vector-ref #{dots 3759}# 1)) | |
| 13618 | #f) | |
| 13619 | (if (eq? (if (if (vector? #{dots 3759}#) | |
| 13620 | (if (= (vector-length | |
| 13621 | #{dots 3759}#) | |
| 13622 | 4) | |
| 13623 | (eq? (vector-ref | |
| 13624 | #{dots 3759}# | |
| 13625 | 0) | |
| 13626 | 'syntax-object) | |
| df40b969 | 13627 | #f) |
| 014de9e2 AW |
13628 | #f) |
| 13629 | (vector-ref #{dots 3759}# 1) | |
| 13630 | #{dots 3759}#) | |
| 13631 | (if (if (= (vector-length | |
| 13632 | '#(syntax-object | |
| 13633 | ... | |
| 13634 | ((top) | |
| 13635 | #(ribcage | |
| 13636 | () | |
| 13637 | () | |
| 13638 | ()) | |
| 13639 | #(ribcage | |
| 13640 | () | |
| 13641 | () | |
| 13642 | ()) | |
| 13643 | #(ribcage | |
| 13644 | #(x) | |
| 13645 | #((top)) | |
| 13646 | #("i2229")) | |
| 13647 | #(ribcage | |
| 13648 | (lambda-var-list | |
| 13649 | gen-var | |
| 13650 | strip | |
| 13651 | chi-lambda-case | |
| 13652 | lambda*-formals | |
| 13653 | chi-simple-lambda | |
| 13654 | lambda-formals | |
| 13655 | ellipsis? | |
| 13656 | chi-void | |
| 13657 | eval-local-transformer | |
| 13658 | chi-local-syntax | |
| 13659 | chi-body | |
| 13660 | chi-macro | |
| 13661 | chi-application | |
| 13662 | chi-expr | |
| 13663 | chi | |
| 13664 | syntax-type | |
| 13665 | chi-when-list | |
| 13666 | chi-install-global | |
| 13667 | chi-top-sequence | |
| 13668 | chi-sequence | |
| 13669 | source-wrap | |
| 13670 | wrap | |
| 13671 | bound-id-member? | |
| 13672 | distinct-bound-ids? | |
| 13673 | valid-bound-ids? | |
| 13674 | bound-id=? | |
| 13675 | free-id=? | |
| 13676 | id-var-name | |
| 13677 | same-marks? | |
| 13678 | join-marks | |
| 13679 | join-wraps | |
| 13680 | smart-append | |
| 13681 | make-binding-wrap | |
| 13682 | extend-ribcage! | |
| 13683 | make-empty-ribcage | |
| 13684 | new-mark | |
| 13685 | anti-mark | |
| 13686 | the-anti-mark | |
| 13687 | top-marked? | |
| 13688 | top-wrap | |
| 13689 | empty-wrap | |
| 13690 | set-ribcage-labels! | |
| 13691 | set-ribcage-marks! | |
| 13692 | set-ribcage-symnames! | |
| 13693 | ribcage-labels | |
| 13694 | ribcage-marks | |
| 13695 | ribcage-symnames | |
| 13696 | ribcage? | |
| 13697 | make-ribcage | |
| 13698 | gen-labels | |
| 13699 | gen-label | |
| 13700 | make-rename | |
| 13701 | rename-marks | |
| 13702 | rename-new | |
| 13703 | rename-old | |
| 13704 | subst-rename? | |
| 13705 | wrap-subst | |
| 13706 | wrap-marks | |
| 13707 | make-wrap | |
| 13708 | id-sym-name&marks | |
| 13709 | id-sym-name | |
| 13710 | id? | |
| 13711 | nonsymbol-id? | |
| 13712 | global-extend | |
| 13713 | lookup | |
| 13714 | macros-only-env | |
| 13715 | extend-var-env | |
| 13716 | extend-env | |
| 13717 | null-env | |
| 13718 | binding-value | |
| 13719 | binding-type | |
| 13720 | make-binding | |
| 13721 | arg-check | |
| 13722 | source-annotation | |
| 13723 | no-source | |
| 13724 | set-syntax-object-module! | |
| 13725 | set-syntax-object-wrap! | |
| 13726 | set-syntax-object-expression! | |
| 13727 | syntax-object-module | |
| 13728 | syntax-object-wrap | |
| 13729 | syntax-object-expression | |
| 13730 | syntax-object? | |
| 13731 | make-syntax-object | |
| 13732 | build-lexical-var | |
| 13733 | build-letrec | |
| 13734 | build-named-let | |
| 13735 | build-let | |
| 13736 | build-sequence | |
| 13737 | build-data | |
| 13738 | build-primref | |
| 13739 | build-lambda-case | |
| 13740 | build-case-lambda | |
| 13741 | build-simple-lambda | |
| 13742 | build-global-definition | |
| 13743 | build-global-assignment | |
| 13744 | build-global-reference | |
| 13745 | analyze-variable | |
| 13746 | build-lexical-assignment | |
| 13747 | build-lexical-reference | |
| 13748 | build-dynlet | |
| 13749 | build-conditional | |
| 13750 | build-application | |
| 13751 | build-void | |
| 13752 | maybe-name-value! | |
| 13753 | decorate-source | |
| 13754 | get-global-definition-hook | |
| 13755 | put-global-definition-hook | |
| 13756 | gensym-hook | |
| 13757 | local-eval-hook | |
| 13758 | top-level-eval-hook | |
| 13759 | fx< | |
| 13760 | fx= | |
| 13761 | fx- | |
| 13762 | fx+ | |
| 13763 | set-lambda-meta! | |
| 13764 | lambda-meta | |
| 13765 | lambda? | |
| 13766 | make-dynlet | |
| 13767 | make-letrec | |
| 13768 | make-let | |
| 13769 | make-lambda-case | |
| 13770 | make-lambda | |
| 13771 | make-sequence | |
| 13772 | make-application | |
| 13773 | make-conditional | |
| 13774 | make-toplevel-define | |
| 13775 | make-toplevel-set | |
| 13776 | make-toplevel-ref | |
| 13777 | make-module-set | |
| 13778 | make-module-ref | |
| 13779 | make-lexical-set | |
| 13780 | make-lexical-ref | |
| 13781 | make-primitive-ref | |
| 13782 | make-const | |
| 13783 | make-void) | |
| 13784 | ((top) | |
| 13785 | (top) | |
| 13786 | (top) | |
| 13787 | (top) | |
| 13788 | (top) | |
| 13789 | (top) | |
| 13790 | (top) | |
| 13791 | (top) | |
| 13792 | (top) | |
| 13793 | (top) | |
| 13794 | (top) | |
| 13795 | (top) | |
| 13796 | (top) | |
| 13797 | (top) | |
| 13798 | (top) | |
| 13799 | (top) | |
| 13800 | (top) | |
| 13801 | (top) | |
| 13802 | (top) | |
| 13803 | (top) | |
| 13804 | (top) | |
| 13805 | (top) | |
| 13806 | (top) | |
| 13807 | (top) | |
| 13808 | (top) | |
| 13809 | (top) | |
| 13810 | (top) | |
| 13811 | (top) | |
| 13812 | (top) | |
| 13813 | (top) | |
| 13814 | (top) | |
| 13815 | (top) | |
| 13816 | (top) | |
| 13817 | (top) | |
| 13818 | (top) | |
| 13819 | (top) | |
| 13820 | (top) | |
| 13821 | (top) | |
| 13822 | (top) | |
| 13823 | (top) | |
| 13824 | (top) | |
| 13825 | (top) | |
| 13826 | (top) | |
| 13827 | (top) | |
| 13828 | (top) | |
| 13829 | (top) | |
| 13830 | (top) | |
| 13831 | (top) | |
| 13832 | (top) | |
| 13833 | (top) | |
| 13834 | (top) | |
| 13835 | (top) | |
| 13836 | (top) | |
| 13837 | (top) | |
| 13838 | (top) | |
| 13839 | (top) | |
| 13840 | (top) | |
| 13841 | (top) | |
| 13842 | (top) | |
| 13843 | (top) | |
| 13844 | (top) | |
| 13845 | (top) | |
| 13846 | (top) | |
| 13847 | (top) | |
| 13848 | (top) | |
| 13849 | (top) | |
| 13850 | (top) | |
| 13851 | (top) | |
| 13852 | (top) | |
| 13853 | (top) | |
| 13854 | (top) | |
| 13855 | (top) | |
| 13856 | (top) | |
| 13857 | (top) | |
| 13858 | (top) | |
| 13859 | (top) | |
| 13860 | (top) | |
| 13861 | (top) | |
| 13862 | (top) | |
| 13863 | (top) | |
| 13864 | (top) | |
| 13865 | (top) | |
| 13866 | (top) | |
| 13867 | (top) | |
| 13868 | (top) | |
| 13869 | (top) | |
| 13870 | (top) | |
| 13871 | (top) | |
| 13872 | (top) | |
| 13873 | (top) | |
| 13874 | (top) | |
| 13875 | (top) | |
| 13876 | (top) | |
| 13877 | (top) | |
| 13878 | (top) | |
| 13879 | (top) | |
| 13880 | (top) | |
| 13881 | (top) | |
| 13882 | (top) | |
| 13883 | (top) | |
| 13884 | (top) | |
| 13885 | (top) | |
| 13886 | (top) | |
| 13887 | (top) | |
| 13888 | (top) | |
| 13889 | (top) | |
| 13890 | (top) | |
| 13891 | (top) | |
| 13892 | (top) | |
| 13893 | (top) | |
| 13894 | (top) | |
| 13895 | (top) | |
| 13896 | (top) | |
| 13897 | (top) | |
| 13898 | (top) | |
| 13899 | (top) | |
| 13900 | (top) | |
| 13901 | (top) | |
| 13902 | (top) | |
| 13903 | (top) | |
| 13904 | (top) | |
| 13905 | (top) | |
| 13906 | (top) | |
| 13907 | (top) | |
| 13908 | (top) | |
| 13909 | (top) | |
| 13910 | (top) | |
| 13911 | (top) | |
| 13912 | (top) | |
| 13913 | (top) | |
| 13914 | (top) | |
| 13915 | (top) | |
| 13916 | (top) | |
| 13917 | (top) | |
| 13918 | (top) | |
| 13919 | (top)) | |
| 13920 | ("i466" | |
| 13921 | "i464" | |
| 13922 | "i462" | |
| 13923 | "i460" | |
| 13924 | "i458" | |
| 13925 | "i456" | |
| 13926 | "i454" | |
| 13927 | "i452" | |
| 13928 | "i450" | |
| 13929 | "i448" | |
| 13930 | "i446" | |
| 13931 | "i444" | |
| 13932 | "i442" | |
| 13933 | "i440" | |
| 13934 | "i438" | |
| 13935 | "i436" | |
| 13936 | "i434" | |
| 13937 | "i432" | |
| 13938 | "i430" | |
| 13939 | "i428" | |
| 13940 | "i426" | |
| 13941 | "i424" | |
| 13942 | "i422" | |
| 13943 | "i420" | |
| 13944 | "i418" | |
| 13945 | "i416" | |
| 13946 | "i414" | |
| 13947 | "i412" | |
| 13948 | "i410" | |
| 13949 | "i408" | |
| 13950 | "i406" | |
| 13951 | "i404" | |
| 13952 | "i402" | |
| 13953 | "i400" | |
| 13954 | "i398" | |
| 13955 | "i397" | |
| 13956 | "i395" | |
| 13957 | "i392" | |
| 13958 | "i391" | |
| 13959 | "i390" | |
| 13960 | "i388" | |
| 13961 | "i387" | |
| 13962 | "i385" | |
| 13963 | "i383" | |
| 13964 | "i381" | |
| 13965 | "i379" | |
| 13966 | "i377" | |
| 13967 | "i375" | |
| 13968 | "i373" | |
| 13969 | "i371" | |
| 13970 | "i368" | |
| 13971 | "i366" | |
| 13972 | "i365" | |
| 13973 | "i363" | |
| 13974 | "i361" | |
| 13975 | "i359" | |
| 13976 | "i357" | |
| 13977 | "i356" | |
| 13978 | "i355" | |
| 13979 | "i354" | |
| 13980 | "i352" | |
| 13981 | "i351" | |
| 13982 | "i348" | |
| 13983 | "i346" | |
| 13984 | "i344" | |
| 13985 | "i342" | |
| 13986 | "i340" | |
| 13987 | "i338" | |
| 13988 | "i336" | |
| 13989 | "i335" | |
| 13990 | "i334" | |
| 13991 | "i332" | |
| 13992 | "i330" | |
| 13993 | "i329" | |
| 13994 | "i326" | |
| 13995 | "i325" | |
| 13996 | "i323" | |
| 13997 | "i321" | |
| 13998 | "i319" | |
| 13999 | "i317" | |
| 14000 | "i315" | |
| 14001 | "i313" | |
| 14002 | "i311" | |
| 14003 | "i309" | |
| 14004 | "i307" | |
| 14005 | "i304" | |
| 14006 | "i302" | |
| 14007 | "i300" | |
| 14008 | "i298" | |
| 14009 | "i296" | |
| 14010 | "i294" | |
| 14011 | "i292" | |
| 14012 | "i290" | |
| 14013 | "i288" | |
| 14014 | "i286" | |
| 14015 | "i284" | |
| 14016 | "i282" | |
| 14017 | "i280" | |
| 14018 | "i278" | |
| 14019 | "i276" | |
| 14020 | "i274" | |
| 14021 | "i272" | |
| 14022 | "i270" | |
| 14023 | "i268" | |
| 14024 | "i266" | |
| 14025 | "i264" | |
| 14026 | "i262" | |
| 14027 | "i260" | |
| 14028 | "i259" | |
| 14029 | "i256" | |
| 14030 | "i254" | |
| 14031 | "i253" | |
| 14032 | "i252" | |
| 14033 | "i251" | |
| 14034 | "i250" | |
| 14035 | "i248" | |
| 14036 | "i246" | |
| 14037 | "i244" | |
| 14038 | "i241" | |
| 14039 | "i239" | |
| 14040 | "i237" | |
| 14041 | "i235" | |
| 14042 | "i233" | |
| 14043 | "i231" | |
| 14044 | "i229" | |
| 14045 | "i227" | |
| 14046 | "i225" | |
| 14047 | "i223" | |
| 14048 | "i221" | |
| 14049 | "i219" | |
| 14050 | "i217" | |
| 14051 | "i215" | |
| 14052 | "i213" | |
| 14053 | "i211" | |
| 14054 | "i209" | |
| 14055 | "i207")) | |
| 14056 | #(ribcage | |
| 14057 | (define-structure | |
| 14058 | define-expansion-accessors | |
| 14059 | define-expansion-constructors) | |
| 14060 | ((top) | |
| 14061 | (top) | |
| 14062 | (top)) | |
| 14063 | ("i45" | |
| 14064 | "i44" | |
| 14065 | "i43"))) | |
| 14066 | (hygiene guile))) | |
| 14067 | 4) | |
| 14068 | (eq? (vector-ref | |
| df40b969 AW |
14069 | '#(syntax-object |
| 14070 | ... | |
| 417ee098 | 14071 | ((top) |
| 417ee098 AW |
14072 | #(ribcage |
| 14073 | () | |
| 14074 | () | |
| 14075 | ()) | |
| f929b9e5 AW |
14076 | #(ribcage |
| 14077 | () | |
| 14078 | () | |
| 14079 | ()) | |
| 417ee098 | 14080 | #(ribcage |
| df40b969 | 14081 | #(x) |
| 417ee098 | 14082 | #((top)) |
| 014de9e2 | 14083 | #("i2229")) |
| 417ee098 | 14084 | #(ribcage |
| df40b969 AW |
14085 | (lambda-var-list |
| 14086 | gen-var | |
| 14087 | strip | |
| 14088 | chi-lambda-case | |
| 14089 | lambda*-formals | |
| 14090 | chi-simple-lambda | |
| 14091 | lambda-formals | |
| 14092 | ellipsis? | |
| 14093 | chi-void | |
| 14094 | eval-local-transformer | |
| 14095 | chi-local-syntax | |
| 14096 | chi-body | |
| 14097 | chi-macro | |
| 14098 | chi-application | |
| 14099 | chi-expr | |
| 14100 | chi | |
| 14101 | syntax-type | |
| 14102 | chi-when-list | |
| 14103 | chi-install-global | |
| 14104 | chi-top-sequence | |
| 14105 | chi-sequence | |
| 14106 | source-wrap | |
| 14107 | wrap | |
| 14108 | bound-id-member? | |
| 14109 | distinct-bound-ids? | |
| 14110 | valid-bound-ids? | |
| 14111 | bound-id=? | |
| 14112 | free-id=? | |
| 14113 | id-var-name | |
| 14114 | same-marks? | |
| 14115 | join-marks | |
| 14116 | join-wraps | |
| 14117 | smart-append | |
| 14118 | make-binding-wrap | |
| 14119 | extend-ribcage! | |
| 14120 | make-empty-ribcage | |
| 14121 | new-mark | |
| 14122 | anti-mark | |
| 14123 | the-anti-mark | |
| 14124 | top-marked? | |
| 14125 | top-wrap | |
| 14126 | empty-wrap | |
| 14127 | set-ribcage-labels! | |
| 14128 | set-ribcage-marks! | |
| 14129 | set-ribcage-symnames! | |
| 14130 | ribcage-labels | |
| 14131 | ribcage-marks | |
| 14132 | ribcage-symnames | |
| 14133 | ribcage? | |
| 14134 | make-ribcage | |
| 14135 | gen-labels | |
| 14136 | gen-label | |
| 14137 | make-rename | |
| 14138 | rename-marks | |
| 14139 | rename-new | |
| 14140 | rename-old | |
| 14141 | subst-rename? | |
| 14142 | wrap-subst | |
| 14143 | wrap-marks | |
| 14144 | make-wrap | |
| 14145 | id-sym-name&marks | |
| 14146 | id-sym-name | |
| 14147 | id? | |
| 14148 | nonsymbol-id? | |
| 14149 | global-extend | |
| 14150 | lookup | |
| 14151 | macros-only-env | |
| 14152 | extend-var-env | |
| 14153 | extend-env | |
| 14154 | null-env | |
| 14155 | binding-value | |
| 14156 | binding-type | |
| 14157 | make-binding | |
| 14158 | arg-check | |
| 14159 | source-annotation | |
| 14160 | no-source | |
| 14161 | set-syntax-object-module! | |
| 14162 | set-syntax-object-wrap! | |
| 14163 | set-syntax-object-expression! | |
| 14164 | syntax-object-module | |
| 14165 | syntax-object-wrap | |
| 14166 | syntax-object-expression | |
| 14167 | syntax-object? | |
| 14168 | make-syntax-object | |
| 14169 | build-lexical-var | |
| 14170 | build-letrec | |
| 14171 | build-named-let | |
| 14172 | build-let | |
| 14173 | build-sequence | |
| 14174 | build-data | |
| 14175 | build-primref | |
| 14176 | build-lambda-case | |
| 14177 | build-case-lambda | |
| 14178 | build-simple-lambda | |
| 14179 | build-global-definition | |
| 14180 | build-global-assignment | |
| 14181 | build-global-reference | |
| 14182 | analyze-variable | |
| 14183 | build-lexical-assignment | |
| 14184 | build-lexical-reference | |
| 14185 | build-dynlet | |
| 14186 | build-conditional | |
| 14187 | build-application | |
| 14188 | build-void | |
| 14189 | maybe-name-value! | |
| 14190 | decorate-source | |
| 14191 | get-global-definition-hook | |
| 14192 | put-global-definition-hook | |
| 14193 | gensym-hook | |
| 14194 | local-eval-hook | |
| 14195 | top-level-eval-hook | |
| 14196 | fx< | |
| 14197 | fx= | |
| 14198 | fx- | |
| 14199 | fx+ | |
| 14200 | set-lambda-meta! | |
| 14201 | lambda-meta | |
| 14202 | lambda? | |
| 14203 | make-dynlet | |
| 14204 | make-letrec | |
| 14205 | make-let | |
| 14206 | make-lambda-case | |
| 14207 | make-lambda | |
| 14208 | make-sequence | |
| 14209 | make-application | |
| 14210 | make-conditional | |
| 14211 | make-toplevel-define | |
| 14212 | make-toplevel-set | |
| 14213 | make-toplevel-ref | |
| 14214 | make-module-set | |
| 14215 | make-module-ref | |
| 14216 | make-lexical-set | |
| 14217 | make-lexical-ref | |
| 14218 | make-primitive-ref | |
| 14219 | make-const | |
| 14220 | make-void) | |
| 14221 | ((top) | |
| 14222 | (top) | |
| 14223 | (top) | |
| 14224 | (top) | |
| 14225 | (top) | |
| 14226 | (top) | |
| 14227 | (top) | |
| 14228 | (top) | |
| 14229 | (top) | |
| 14230 | (top) | |
| 14231 | (top) | |
| 14232 | (top) | |
| 14233 | (top) | |
| 14234 | (top) | |
| 14235 | (top) | |
| 14236 | (top) | |
| 14237 | (top) | |
| 14238 | (top) | |
| 14239 | (top) | |
| 14240 | (top) | |
| 14241 | (top) | |
| 14242 | (top) | |
| 14243 | (top) | |
| 14244 | (top) | |
| 14245 | (top) | |
| 14246 | (top) | |
| 14247 | (top) | |
| 14248 | (top) | |
| 14249 | (top) | |
| 14250 | (top) | |
| 14251 | (top) | |
| 14252 | (top) | |
| 14253 | (top) | |
| 14254 | (top) | |
| 14255 | (top) | |
| 14256 | (top) | |
| 14257 | (top) | |
| 14258 | (top) | |
| 14259 | (top) | |
| 14260 | (top) | |
| 14261 | (top) | |
| 14262 | (top) | |
| 14263 | (top) | |
| 14264 | (top) | |
| 14265 | (top) | |
| 14266 | (top) | |
| 14267 | (top) | |
| 14268 | (top) | |
| 14269 | (top) | |
| 14270 | (top) | |
| 14271 | (top) | |
| 14272 | (top) | |
| 14273 | (top) | |
| 14274 | (top) | |
| 14275 | (top) | |
| 14276 | (top) | |
| 14277 | (top) | |
| 14278 | (top) | |
| 14279 | (top) | |
| 14280 | (top) | |
| 14281 | (top) | |
| 14282 | (top) | |
| 14283 | (top) | |
| 14284 | (top) | |
| 14285 | (top) | |
| 14286 | (top) | |
| 14287 | (top) | |
| 14288 | (top) | |
| 14289 | (top) | |
| 14290 | (top) | |
| 14291 | (top) | |
| 14292 | (top) | |
| 14293 | (top) | |
| 14294 | (top) | |
| 14295 | (top) | |
| 14296 | (top) | |
| 14297 | (top) | |
| 14298 | (top) | |
| 14299 | (top) | |
| 14300 | (top) | |
| 14301 | (top) | |
| 14302 | (top) | |
| 14303 | (top) | |
| 14304 | (top) | |
| 14305 | (top) | |
| 14306 | (top) | |
| 14307 | (top) | |
| 14308 | (top) | |
| 14309 | (top) | |
| 014de9e2 AW |
14310 | (top) |
| 14311 | (top) | |
| 14312 | (top) | |
| 14313 | (top) | |
| 14314 | (top) | |
| 14315 | (top) | |
| 14316 | (top) | |
| 14317 | (top) | |
| 14318 | (top) | |
| 14319 | (top) | |
| 14320 | (top) | |
| 14321 | (top) | |
| 14322 | (top) | |
| 14323 | (top) | |
| 14324 | (top) | |
| 14325 | (top) | |
| 14326 | (top) | |
| 14327 | (top) | |
| 14328 | (top) | |
| 14329 | (top) | |
| 14330 | (top) | |
| 14331 | (top) | |
| 14332 | (top) | |
| 14333 | (top) | |
| 14334 | (top) | |
| 14335 | (top) | |
| 14336 | (top) | |
| 14337 | (top) | |
| 14338 | (top) | |
| 14339 | (top) | |
| 14340 | (top) | |
| 14341 | (top) | |
| 14342 | (top) | |
| 14343 | (top) | |
| 14344 | (top) | |
| 14345 | (top) | |
| 14346 | (top) | |
| 14347 | (top) | |
| 14348 | (top) | |
| 14349 | (top) | |
| 14350 | (top) | |
| 14351 | (top) | |
| 14352 | (top) | |
| 14353 | (top) | |
| 14354 | (top) | |
| 14355 | (top) | |
| 14356 | (top)) | |
| 14357 | ("i466" | |
| 14358 | "i464" | |
| 14359 | "i462" | |
| 14360 | "i460" | |
| 14361 | "i458" | |
| 14362 | "i456" | |
| 14363 | "i454" | |
| 14364 | "i452" | |
| 14365 | "i450" | |
| 14366 | "i448" | |
| 14367 | "i446" | |
| 14368 | "i444" | |
| 14369 | "i442" | |
| 14370 | "i440" | |
| 14371 | "i438" | |
| 14372 | "i436" | |
| 14373 | "i434" | |
| 14374 | "i432" | |
| 14375 | "i430" | |
| 14376 | "i428" | |
| 14377 | "i426" | |
| 14378 | "i424" | |
| 14379 | "i422" | |
| 14380 | "i420" | |
| 14381 | "i418" | |
| 14382 | "i416" | |
| 14383 | "i414" | |
| 14384 | "i412" | |
| 14385 | "i410" | |
| 14386 | "i408" | |
| 14387 | "i406" | |
| 14388 | "i404" | |
| 14389 | "i402" | |
| 14390 | "i400" | |
| 14391 | "i398" | |
| 14392 | "i397" | |
| 14393 | "i395" | |
| 14394 | "i392" | |
| 14395 | "i391" | |
| 14396 | "i390" | |
| 14397 | "i388" | |
| 14398 | "i387" | |
| 14399 | "i385" | |
| 14400 | "i383" | |
| 14401 | "i381" | |
| 14402 | "i379" | |
| 14403 | "i377" | |
| 14404 | "i375" | |
| 14405 | "i373" | |
| 14406 | "i371" | |
| 14407 | "i368" | |
| 14408 | "i366" | |
| 14409 | "i365" | |
| 14410 | "i363" | |
| 14411 | "i361" | |
| 14412 | "i359" | |
| 14413 | "i357" | |
| 14414 | "i356" | |
| 14415 | "i355" | |
| 14416 | "i354" | |
| 14417 | "i352" | |
| 14418 | "i351" | |
| 14419 | "i348" | |
| 14420 | "i346" | |
| 14421 | "i344" | |
| 14422 | "i342" | |
| 14423 | "i340" | |
| 14424 | "i338" | |
| 14425 | "i336" | |
| 14426 | "i335" | |
| 14427 | "i334" | |
| 14428 | "i332" | |
| 14429 | "i330" | |
| 14430 | "i329" | |
| 14431 | "i326" | |
| 14432 | "i325" | |
| 14433 | "i323" | |
| 14434 | "i321" | |
| 14435 | "i319" | |
| 14436 | "i317" | |
| 14437 | "i315" | |
| 14438 | "i313" | |
| 14439 | "i311" | |
| 14440 | "i309" | |
| 14441 | "i307" | |
| 14442 | "i304" | |
| 14443 | "i302" | |
| 14444 | "i300" | |
| 14445 | "i298" | |
| 14446 | "i296" | |
| 14447 | "i294" | |
| 14448 | "i292" | |
| 14449 | "i290" | |
| 14450 | "i288" | |
| 14451 | "i286" | |
| 14452 | "i284" | |
| 14453 | "i282" | |
| 14454 | "i280" | |
| 14455 | "i278" | |
| 14456 | "i276" | |
| 14457 | "i274" | |
| 14458 | "i272" | |
| 14459 | "i270" | |
| 14460 | "i268" | |
| 14461 | "i266" | |
| 14462 | "i264" | |
| 14463 | "i262" | |
| 14464 | "i260" | |
| 14465 | "i259" | |
| 14466 | "i256" | |
| 14467 | "i254" | |
| 14468 | "i253" | |
| 14469 | "i252" | |
| 14470 | "i251" | |
| 14471 | "i250" | |
| 14472 | "i248" | |
| 14473 | "i246" | |
| 14474 | "i244" | |
| 14475 | "i241" | |
| 14476 | "i239" | |
| 14477 | "i237" | |
| 14478 | "i235" | |
| 14479 | "i233" | |
| 14480 | "i231" | |
| 14481 | "i229" | |
| 14482 | "i227" | |
| 14483 | "i225" | |
| 14484 | "i223" | |
| 14485 | "i221" | |
| 14486 | "i219" | |
| 14487 | "i217" | |
| 14488 | "i215" | |
| 14489 | "i213" | |
| 14490 | "i211" | |
| 14491 | "i209" | |
| 14492 | "i207")) | |
| 14493 | #(ribcage | |
| 14494 | (define-structure | |
| 14495 | define-expansion-accessors | |
| 14496 | define-expansion-constructors) | |
| 14497 | ((top) | |
| 14498 | (top) | |
| 14499 | (top)) | |
| 14500 | ("i45" | |
| 14501 | "i44" | |
| 14502 | "i43"))) | |
| 14503 | (hygiene guile)) | |
| 14504 | 0) | |
| 14505 | 'syntax-object) | |
| 14506 | #f) | |
| 14507 | (vector-ref | |
| 14508 | '#(syntax-object | |
| 14509 | ... | |
| 14510 | ((top) | |
| 14511 | #(ribcage () () ()) | |
| 14512 | #(ribcage () () ()) | |
| 14513 | #(ribcage | |
| 14514 | #(x) | |
| 14515 | #((top)) | |
| 14516 | #("i2229")) | |
| 14517 | #(ribcage | |
| 14518 | (lambda-var-list | |
| 14519 | gen-var | |
| 14520 | strip | |
| 14521 | chi-lambda-case | |
| 14522 | lambda*-formals | |
| 14523 | chi-simple-lambda | |
| 14524 | lambda-formals | |
| 14525 | ellipsis? | |
| 14526 | chi-void | |
| 14527 | eval-local-transformer | |
| 14528 | chi-local-syntax | |
| 14529 | chi-body | |
| 14530 | chi-macro | |
| 14531 | chi-application | |
| 14532 | chi-expr | |
| 14533 | chi | |
| 14534 | syntax-type | |
| 14535 | chi-when-list | |
| 14536 | chi-install-global | |
| 14537 | chi-top-sequence | |
| 14538 | chi-sequence | |
| 14539 | source-wrap | |
| 14540 | wrap | |
| 14541 | bound-id-member? | |
| 14542 | distinct-bound-ids? | |
| 14543 | valid-bound-ids? | |
| 14544 | bound-id=? | |
| 14545 | free-id=? | |
| 14546 | id-var-name | |
| 14547 | same-marks? | |
| 14548 | join-marks | |
| 14549 | join-wraps | |
| 14550 | smart-append | |
| 14551 | make-binding-wrap | |
| 14552 | extend-ribcage! | |
| 14553 | make-empty-ribcage | |
| 14554 | new-mark | |
| 14555 | anti-mark | |
| 14556 | the-anti-mark | |
| 14557 | top-marked? | |
| 14558 | top-wrap | |
| 14559 | empty-wrap | |
| 14560 | set-ribcage-labels! | |
| 14561 | set-ribcage-marks! | |
| 14562 | set-ribcage-symnames! | |
| 14563 | ribcage-labels | |
| 14564 | ribcage-marks | |
| 14565 | ribcage-symnames | |
| 14566 | ribcage? | |
| 14567 | make-ribcage | |
| 14568 | gen-labels | |
| 14569 | gen-label | |
| 14570 | make-rename | |
| 14571 | rename-marks | |
| 14572 | rename-new | |
| 14573 | rename-old | |
| 14574 | subst-rename? | |
| 14575 | wrap-subst | |
| 14576 | wrap-marks | |
| 14577 | make-wrap | |
| 14578 | id-sym-name&marks | |
| 14579 | id-sym-name | |
| 14580 | id? | |
| 14581 | nonsymbol-id? | |
| 14582 | global-extend | |
| 14583 | lookup | |
| 14584 | macros-only-env | |
| 14585 | extend-var-env | |
| 14586 | extend-env | |
| 14587 | null-env | |
| 14588 | binding-value | |
| 14589 | binding-type | |
| 14590 | make-binding | |
| 14591 | arg-check | |
| 14592 | source-annotation | |
| 14593 | no-source | |
| 14594 | set-syntax-object-module! | |
| 14595 | set-syntax-object-wrap! | |
| 14596 | set-syntax-object-expression! | |
| 14597 | syntax-object-module | |
| 14598 | syntax-object-wrap | |
| 14599 | syntax-object-expression | |
| 14600 | syntax-object? | |
| 14601 | make-syntax-object | |
| 14602 | build-lexical-var | |
| 14603 | build-letrec | |
| 14604 | build-named-let | |
| 14605 | build-let | |
| 14606 | build-sequence | |
| 14607 | build-data | |
| 14608 | build-primref | |
| 14609 | build-lambda-case | |
| 14610 | build-case-lambda | |
| 14611 | build-simple-lambda | |
| 14612 | build-global-definition | |
| 14613 | build-global-assignment | |
| 14614 | build-global-reference | |
| 14615 | analyze-variable | |
| 14616 | build-lexical-assignment | |
| 14617 | build-lexical-reference | |
| 14618 | build-dynlet | |
| 14619 | build-conditional | |
| 14620 | build-application | |
| 14621 | build-void | |
| 14622 | maybe-name-value! | |
| 14623 | decorate-source | |
| 14624 | get-global-definition-hook | |
| 14625 | put-global-definition-hook | |
| 14626 | gensym-hook | |
| 14627 | local-eval-hook | |
| 14628 | top-level-eval-hook | |
| 14629 | fx< | |
| 14630 | fx= | |
| 14631 | fx- | |
| 14632 | fx+ | |
| 14633 | set-lambda-meta! | |
| 14634 | lambda-meta | |
| 14635 | lambda? | |
| 14636 | make-dynlet | |
| 14637 | make-letrec | |
| 14638 | make-let | |
| 14639 | make-lambda-case | |
| 14640 | make-lambda | |
| 14641 | make-sequence | |
| 14642 | make-application | |
| 14643 | make-conditional | |
| 14644 | make-toplevel-define | |
| 14645 | make-toplevel-set | |
| 14646 | make-toplevel-ref | |
| 14647 | make-module-set | |
| 14648 | make-module-ref | |
| 14649 | make-lexical-set | |
| 14650 | make-lexical-ref | |
| 14651 | make-primitive-ref | |
| 14652 | make-const | |
| 14653 | make-void) | |
| 14654 | ((top) | |
| 14655 | (top) | |
| 14656 | (top) | |
| 14657 | (top) | |
| 14658 | (top) | |
| 14659 | (top) | |
| 14660 | (top) | |
| 14661 | (top) | |
| 14662 | (top) | |
| 14663 | (top) | |
| 14664 | (top) | |
| 14665 | (top) | |
| 14666 | (top) | |
| 14667 | (top) | |
| 14668 | (top) | |
| 14669 | (top) | |
| 14670 | (top) | |
| 14671 | (top) | |
| 14672 | (top) | |
| 14673 | (top) | |
| 14674 | (top) | |
| 14675 | (top) | |
| 14676 | (top) | |
| 14677 | (top) | |
| 14678 | (top) | |
| 14679 | (top) | |
| 14680 | (top) | |
| 14681 | (top) | |
| 14682 | (top) | |
| 14683 | (top) | |
| 14684 | (top) | |
| 14685 | (top) | |
| 14686 | (top) | |
| 14687 | (top) | |
| 14688 | (top) | |
| 14689 | (top) | |
| 14690 | (top) | |
| 14691 | (top) | |
| 14692 | (top) | |
| 14693 | (top) | |
| 14694 | (top) | |
| 14695 | (top) | |
| 14696 | (top) | |
| 14697 | (top) | |
| 14698 | (top) | |
| 14699 | (top) | |
| 14700 | (top) | |
| 14701 | (top) | |
| 14702 | (top) | |
| 14703 | (top) | |
| 14704 | (top) | |
| 14705 | (top) | |
| 14706 | (top) | |
| 14707 | (top) | |
| 14708 | (top) | |
| 14709 | (top) | |
| 14710 | (top) | |
| 14711 | (top) | |
| 14712 | (top) | |
| 14713 | (top) | |
| 14714 | (top) | |
| 14715 | (top) | |
| 14716 | (top) | |
| 14717 | (top) | |
| 14718 | (top) | |
| 14719 | (top) | |
| 14720 | (top) | |
| 14721 | (top) | |
| 14722 | (top) | |
| 14723 | (top) | |
| 14724 | (top) | |
| 14725 | (top) | |
| 14726 | (top) | |
| 14727 | (top) | |
| 14728 | (top) | |
| 14729 | (top) | |
| 14730 | (top) | |
| 14731 | (top) | |
| 14732 | (top) | |
| 14733 | (top) | |
| 14734 | (top) | |
| 14735 | (top) | |
| 14736 | (top) | |
| 14737 | (top) | |
| 14738 | (top) | |
| 14739 | (top) | |
| 14740 | (top) | |
| 14741 | (top) | |
| 14742 | (top) | |
| 14743 | (top) | |
| 14744 | (top) | |
| 14745 | (top) | |
| 14746 | (top) | |
| 14747 | (top) | |
| 14748 | (top) | |
| 14749 | (top) | |
| 14750 | (top) | |
| 14751 | (top) | |
| 14752 | (top) | |
| 14753 | (top) | |
| 14754 | (top) | |
| 14755 | (top) | |
| 14756 | (top) | |
| 14757 | (top) | |
| 14758 | (top) | |
| 14759 | (top) | |
| 14760 | (top) | |
| 14761 | (top) | |
| 14762 | (top) | |
| 14763 | (top) | |
| 14764 | (top) | |
| 14765 | (top) | |
| 14766 | (top) | |
| 14767 | (top) | |
| 14768 | (top) | |
| 14769 | (top) | |
| 14770 | (top) | |
| 14771 | (top) | |
| 14772 | (top) | |
| 14773 | (top) | |
| 14774 | (top) | |
| 14775 | (top) | |
| 14776 | (top) | |
| 14777 | (top) | |
| 14778 | (top) | |
| 14779 | (top) | |
| 14780 | (top) | |
| 14781 | (top) | |
| 14782 | (top) | |
| 14783 | (top) | |
| 14784 | (top) | |
| 14785 | (top) | |
| 14786 | (top) | |
| 14787 | (top) | |
| 14788 | (top) | |
| 14789 | (top)) | |
| 14790 | ("i466" | |
| 14791 | "i464" | |
| 14792 | "i462" | |
| 14793 | "i460" | |
| 14794 | "i458" | |
| 14795 | "i456" | |
| 14796 | "i454" | |
| 14797 | "i452" | |
| 14798 | "i450" | |
| 14799 | "i448" | |
| 14800 | "i446" | |
| 14801 | "i444" | |
| 14802 | "i442" | |
| 14803 | "i440" | |
| 14804 | "i438" | |
| 14805 | "i436" | |
| 14806 | "i434" | |
| 14807 | "i432" | |
| 14808 | "i430" | |
| 14809 | "i428" | |
| 14810 | "i426" | |
| 14811 | "i424" | |
| 14812 | "i422" | |
| 14813 | "i420" | |
| 14814 | "i418" | |
| 14815 | "i416" | |
| 14816 | "i414" | |
| 14817 | "i412" | |
| 14818 | "i410" | |
| 14819 | "i408" | |
| 14820 | "i406" | |
| 14821 | "i404" | |
| 14822 | "i402" | |
| 14823 | "i400" | |
| 14824 | "i398" | |
| 14825 | "i397" | |
| 14826 | "i395" | |
| 14827 | "i392" | |
| 14828 | "i391" | |
| 14829 | "i390" | |
| 14830 | "i388" | |
| 14831 | "i387" | |
| 14832 | "i385" | |
| 14833 | "i383" | |
| 14834 | "i381" | |
| 14835 | "i379" | |
| 14836 | "i377" | |
| 14837 | "i375" | |
| 14838 | "i373" | |
| 14839 | "i371" | |
| 14840 | "i368" | |
| 14841 | "i366" | |
| 14842 | "i365" | |
| 14843 | "i363" | |
| 14844 | "i361" | |
| 14845 | "i359" | |
| 14846 | "i357" | |
| 14847 | "i356" | |
| 14848 | "i355" | |
| 14849 | "i354" | |
| 14850 | "i352" | |
| 14851 | "i351" | |
| 14852 | "i348" | |
| 14853 | "i346" | |
| 14854 | "i344" | |
| 14855 | "i342" | |
| 14856 | "i340" | |
| 14857 | "i338" | |
| 14858 | "i336" | |
| 14859 | "i335" | |
| 14860 | "i334" | |
| 14861 | "i332" | |
| 14862 | "i330" | |
| 14863 | "i329" | |
| 14864 | "i326" | |
| 14865 | "i325" | |
| 14866 | "i323" | |
| 14867 | "i321" | |
| 14868 | "i319" | |
| 14869 | "i317" | |
| 14870 | "i315" | |
| 14871 | "i313" | |
| 14872 | "i311" | |
| 14873 | "i309" | |
| 14874 | "i307" | |
| 14875 | "i304" | |
| 14876 | "i302" | |
| 14877 | "i300" | |
| 14878 | "i298" | |
| 14879 | "i296" | |
| 14880 | "i294" | |
| 14881 | "i292" | |
| 14882 | "i290" | |
| 14883 | "i288" | |
| 14884 | "i286" | |
| 14885 | "i284" | |
| 14886 | "i282" | |
| 14887 | "i280" | |
| 14888 | "i278" | |
| 14889 | "i276" | |
| 14890 | "i274" | |
| 14891 | "i272" | |
| 14892 | "i270" | |
| 14893 | "i268" | |
| 14894 | "i266" | |
| 14895 | "i264" | |
| 14896 | "i262" | |
| 14897 | "i260" | |
| 14898 | "i259" | |
| 14899 | "i256" | |
| 14900 | "i254" | |
| 14901 | "i253" | |
| 14902 | "i252" | |
| 14903 | "i251" | |
| 14904 | "i250" | |
| 14905 | "i248" | |
| 14906 | "i246" | |
| 14907 | "i244" | |
| 14908 | "i241" | |
| 14909 | "i239" | |
| 14910 | "i237" | |
| 14911 | "i235" | |
| 14912 | "i233" | |
| 14913 | "i231" | |
| 14914 | "i229" | |
| 14915 | "i227" | |
| 14916 | "i225" | |
| 14917 | "i223" | |
| 14918 | "i221" | |
| 14919 | "i219" | |
| 14920 | "i217" | |
| 14921 | "i215" | |
| 14922 | "i213" | |
| 14923 | "i211" | |
| 14924 | "i209" | |
| 14925 | "i207")) | |
| 14926 | #(ribcage | |
| 14927 | (define-structure | |
| 14928 | define-expansion-accessors | |
| 14929 | define-expansion-constructors) | |
| 14930 | ((top) (top) (top)) | |
| 14931 | ("i45" "i44" "i43"))) | |
| 14932 | (hygiene guile)) | |
| 14933 | 1) | |
| 14934 | '#(syntax-object | |
| 14935 | ... | |
| 14936 | ((top) | |
| 14937 | #(ribcage () () ()) | |
| 14938 | #(ribcage () () ()) | |
| 14939 | #(ribcage | |
| 14940 | #(x) | |
| 14941 | #((top)) | |
| 14942 | #("i2229")) | |
| 14943 | #(ribcage | |
| 14944 | (lambda-var-list | |
| 14945 | gen-var | |
| 14946 | strip | |
| 14947 | chi-lambda-case | |
| 14948 | lambda*-formals | |
| 14949 | chi-simple-lambda | |
| 14950 | lambda-formals | |
| 14951 | ellipsis? | |
| 14952 | chi-void | |
| 14953 | eval-local-transformer | |
| 14954 | chi-local-syntax | |
| 14955 | chi-body | |
| 14956 | chi-macro | |
| 14957 | chi-application | |
| 14958 | chi-expr | |
| 14959 | chi | |
| 14960 | syntax-type | |
| 14961 | chi-when-list | |
| 14962 | chi-install-global | |
| 14963 | chi-top-sequence | |
| 14964 | chi-sequence | |
| 14965 | source-wrap | |
| 14966 | wrap | |
| 14967 | bound-id-member? | |
| 14968 | distinct-bound-ids? | |
| 14969 | valid-bound-ids? | |
| 14970 | bound-id=? | |
| 14971 | free-id=? | |
| 14972 | id-var-name | |
| 14973 | same-marks? | |
| 14974 | join-marks | |
| 14975 | join-wraps | |
| 14976 | smart-append | |
| 14977 | make-binding-wrap | |
| 14978 | extend-ribcage! | |
| 14979 | make-empty-ribcage | |
| 14980 | new-mark | |
| 14981 | anti-mark | |
| 14982 | the-anti-mark | |
| 14983 | top-marked? | |
| 14984 | top-wrap | |
| 14985 | empty-wrap | |
| 14986 | set-ribcage-labels! | |
| 14987 | set-ribcage-marks! | |
| 14988 | set-ribcage-symnames! | |
| 14989 | ribcage-labels | |
| 14990 | ribcage-marks | |
| 14991 | ribcage-symnames | |
| 14992 | ribcage? | |
| 14993 | make-ribcage | |
| 14994 | gen-labels | |
| 14995 | gen-label | |
| 14996 | make-rename | |
| 14997 | rename-marks | |
| 14998 | rename-new | |
| 14999 | rename-old | |
| 15000 | subst-rename? | |
| 15001 | wrap-subst | |
| 15002 | wrap-marks | |
| 15003 | make-wrap | |
| 15004 | id-sym-name&marks | |
| 15005 | id-sym-name | |
| 15006 | id? | |
| 15007 | nonsymbol-id? | |
| 15008 | global-extend | |
| 15009 | lookup | |
| 15010 | macros-only-env | |
| 15011 | extend-var-env | |
| 15012 | extend-env | |
| 15013 | null-env | |
| 15014 | binding-value | |
| 15015 | binding-type | |
| 15016 | make-binding | |
| 15017 | arg-check | |
| 15018 | source-annotation | |
| 15019 | no-source | |
| 15020 | set-syntax-object-module! | |
| 15021 | set-syntax-object-wrap! | |
| 15022 | set-syntax-object-expression! | |
| 15023 | syntax-object-module | |
| 15024 | syntax-object-wrap | |
| 15025 | syntax-object-expression | |
| 15026 | syntax-object? | |
| 15027 | make-syntax-object | |
| 15028 | build-lexical-var | |
| 15029 | build-letrec | |
| 15030 | build-named-let | |
| 15031 | build-let | |
| 15032 | build-sequence | |
| 15033 | build-data | |
| 15034 | build-primref | |
| 15035 | build-lambda-case | |
| 15036 | build-case-lambda | |
| 15037 | build-simple-lambda | |
| 15038 | build-global-definition | |
| 15039 | build-global-assignment | |
| 15040 | build-global-reference | |
| 15041 | analyze-variable | |
| 15042 | build-lexical-assignment | |
| 15043 | build-lexical-reference | |
| 15044 | build-dynlet | |
| 15045 | build-conditional | |
| 15046 | build-application | |
| 15047 | build-void | |
| 15048 | maybe-name-value! | |
| 15049 | decorate-source | |
| 15050 | get-global-definition-hook | |
| 15051 | put-global-definition-hook | |
| 15052 | gensym-hook | |
| 15053 | local-eval-hook | |
| 15054 | top-level-eval-hook | |
| 15055 | fx< | |
| 15056 | fx= | |
| 15057 | fx- | |
| 15058 | fx+ | |
| 15059 | set-lambda-meta! | |
| 15060 | lambda-meta | |
| 15061 | lambda? | |
| 15062 | make-dynlet | |
| 15063 | make-letrec | |
| 15064 | make-let | |
| 15065 | make-lambda-case | |
| 15066 | make-lambda | |
| 15067 | make-sequence | |
| 15068 | make-application | |
| 15069 | make-conditional | |
| 15070 | make-toplevel-define | |
| 15071 | make-toplevel-set | |
| 15072 | make-toplevel-ref | |
| 15073 | make-module-set | |
| 15074 | make-module-ref | |
| 15075 | make-lexical-set | |
| 15076 | make-lexical-ref | |
| 15077 | make-primitive-ref | |
| 15078 | make-const | |
| 15079 | make-void) | |
| 15080 | ((top) | |
| 15081 | (top) | |
| 15082 | (top) | |
| 15083 | (top) | |
| 15084 | (top) | |
| 15085 | (top) | |
| 15086 | (top) | |
| 15087 | (top) | |
| 15088 | (top) | |
| 15089 | (top) | |
| 15090 | (top) | |
| 15091 | (top) | |
| 15092 | (top) | |
| 15093 | (top) | |
| 15094 | (top) | |
| 15095 | (top) | |
| 15096 | (top) | |
| 15097 | (top) | |
| 15098 | (top) | |
| 15099 | (top) | |
| 15100 | (top) | |
| 15101 | (top) | |
| 15102 | (top) | |
| 15103 | (top) | |
| 15104 | (top) | |
| 15105 | (top) | |
| 15106 | (top) | |
| 15107 | (top) | |
| 15108 | (top) | |
| 15109 | (top) | |
| 15110 | (top) | |
| 15111 | (top) | |
| 15112 | (top) | |
| 15113 | (top) | |
| 15114 | (top) | |
| 15115 | (top) | |
| 15116 | (top) | |
| 15117 | (top) | |
| 15118 | (top) | |
| 15119 | (top) | |
| 15120 | (top) | |
| 15121 | (top) | |
| 15122 | (top) | |
| 15123 | (top) | |
| 15124 | (top) | |
| 15125 | (top) | |
| 15126 | (top) | |
| 15127 | (top) | |
| 15128 | (top) | |
| 15129 | (top) | |
| 15130 | (top) | |
| 15131 | (top) | |
| 15132 | (top) | |
| 15133 | (top) | |
| 15134 | (top) | |
| 15135 | (top) | |
| 15136 | (top) | |
| 15137 | (top) | |
| 15138 | (top) | |
| 15139 | (top) | |
| 15140 | (top) | |
| 15141 | (top) | |
| 15142 | (top) | |
| 15143 | (top) | |
| 15144 | (top) | |
| 15145 | (top) | |
| 15146 | (top) | |
| 15147 | (top) | |
| 15148 | (top) | |
| 15149 | (top) | |
| 15150 | (top) | |
| 15151 | (top) | |
| 15152 | (top) | |
| 15153 | (top) | |
| 15154 | (top) | |
| 15155 | (top) | |
| 15156 | (top) | |
| 15157 | (top) | |
| 15158 | (top) | |
| 15159 | (top) | |
| 15160 | (top) | |
| 15161 | (top) | |
| 15162 | (top) | |
| 15163 | (top) | |
| 15164 | (top) | |
| 15165 | (top) | |
| 15166 | (top) | |
| 15167 | (top) | |
| 15168 | (top) | |
| 15169 | (top) | |
| 15170 | (top) | |
| 15171 | (top) | |
| 15172 | (top) | |
| 15173 | (top) | |
| 15174 | (top) | |
| 15175 | (top) | |
| 15176 | (top) | |
| 15177 | (top) | |
| 15178 | (top) | |
| 15179 | (top) | |
| 15180 | (top) | |
| 15181 | (top) | |
| 15182 | (top) | |
| 15183 | (top) | |
| 15184 | (top) | |
| 15185 | (top) | |
| 15186 | (top) | |
| 15187 | (top) | |
| 15188 | (top) | |
| 15189 | (top) | |
| 15190 | (top) | |
| 15191 | (top) | |
| 15192 | (top) | |
| 15193 | (top) | |
| 15194 | (top) | |
| 15195 | (top) | |
| 15196 | (top) | |
| 15197 | (top) | |
| 15198 | (top) | |
| 15199 | (top) | |
| 15200 | (top) | |
| 15201 | (top) | |
| 15202 | (top) | |
| 15203 | (top) | |
| 15204 | (top) | |
| 15205 | (top) | |
| 15206 | (top) | |
| 15207 | (top) | |
| 15208 | (top) | |
| 15209 | (top) | |
| 15210 | (top) | |
| 15211 | (top) | |
| 15212 | (top) | |
| 15213 | (top) | |
| 15214 | (top) | |
| 15215 | (top)) | |
| 15216 | ("i466" | |
| 15217 | "i464" | |
| 15218 | "i462" | |
| 15219 | "i460" | |
| 15220 | "i458" | |
| 15221 | "i456" | |
| 15222 | "i454" | |
| 15223 | "i452" | |
| 15224 | "i450" | |
| 15225 | "i448" | |
| 15226 | "i446" | |
| 15227 | "i444" | |
| 15228 | "i442" | |
| 15229 | "i440" | |
| 15230 | "i438" | |
| 15231 | "i436" | |
| 15232 | "i434" | |
| 15233 | "i432" | |
| 15234 | "i430" | |
| 15235 | "i428" | |
| 15236 | "i426" | |
| 15237 | "i424" | |
| 15238 | "i422" | |
| 15239 | "i420" | |
| 15240 | "i418" | |
| 15241 | "i416" | |
| 15242 | "i414" | |
| 15243 | "i412" | |
| 15244 | "i410" | |
| 15245 | "i408" | |
| 15246 | "i406" | |
| 15247 | "i404" | |
| 15248 | "i402" | |
| 15249 | "i400" | |
| 15250 | "i398" | |
| 15251 | "i397" | |
| 15252 | "i395" | |
| 15253 | "i392" | |
| 15254 | "i391" | |
| 15255 | "i390" | |
| 15256 | "i388" | |
| 15257 | "i387" | |
| 15258 | "i385" | |
| 15259 | "i383" | |
| 15260 | "i381" | |
| 15261 | "i379" | |
| 15262 | "i377" | |
| 15263 | "i375" | |
| 15264 | "i373" | |
| 15265 | "i371" | |
| 15266 | "i368" | |
| 15267 | "i366" | |
| 15268 | "i365" | |
| 15269 | "i363" | |
| 15270 | "i361" | |
| 15271 | "i359" | |
| 15272 | "i357" | |
| 15273 | "i356" | |
| 15274 | "i355" | |
| 15275 | "i354" | |
| 15276 | "i352" | |
| 15277 | "i351" | |
| 15278 | "i348" | |
| 15279 | "i346" | |
| 15280 | "i344" | |
| 15281 | "i342" | |
| 15282 | "i340" | |
| 15283 | "i338" | |
| 15284 | "i336" | |
| 15285 | "i335" | |
| 15286 | "i334" | |
| 15287 | "i332" | |
| 15288 | "i330" | |
| 15289 | "i329" | |
| 15290 | "i326" | |
| 15291 | "i325" | |
| 15292 | "i323" | |
| 15293 | "i321" | |
| 15294 | "i319" | |
| 15295 | "i317" | |
| 15296 | "i315" | |
| 15297 | "i313" | |
| 15298 | "i311" | |
| 15299 | "i309" | |
| 15300 | "i307" | |
| 15301 | "i304" | |
| 15302 | "i302" | |
| 15303 | "i300" | |
| 15304 | "i298" | |
| 15305 | "i296" | |
| 15306 | "i294" | |
| 15307 | "i292" | |
| 15308 | "i290" | |
| 15309 | "i288" | |
| 15310 | "i286" | |
| 15311 | "i284" | |
| 15312 | "i282" | |
| 15313 | "i280" | |
| 15314 | "i278" | |
| 15315 | "i276" | |
| 15316 | "i274" | |
| 15317 | "i272" | |
| 15318 | "i270" | |
| 15319 | "i268" | |
| 15320 | "i266" | |
| 15321 | "i264" | |
| 15322 | "i262" | |
| 15323 | "i260" | |
| 15324 | "i259" | |
| 15325 | "i256" | |
| 15326 | "i254" | |
| 15327 | "i253" | |
| 15328 | "i252" | |
| 15329 | "i251" | |
| 15330 | "i250" | |
| 15331 | "i248" | |
| 15332 | "i246" | |
| 15333 | "i244" | |
| 15334 | "i241" | |
| 15335 | "i239" | |
| 15336 | "i237" | |
| 15337 | "i235" | |
| 15338 | "i233" | |
| 15339 | "i231" | |
| 15340 | "i229" | |
| 15341 | "i227" | |
| 15342 | "i225" | |
| 15343 | "i223" | |
| 15344 | "i221" | |
| 15345 | "i219" | |
| 15346 | "i217" | |
| 15347 | "i215" | |
| 15348 | "i213" | |
| 15349 | "i211" | |
| 15350 | "i209" | |
| 15351 | "i207")) | |
| 15352 | #(ribcage | |
| 15353 | (define-structure | |
| 15354 | define-expansion-accessors | |
| 15355 | define-expansion-constructors) | |
| 15356 | ((top) (top) (top)) | |
| 15357 | ("i45" "i44" "i43"))) | |
| 15358 | (hygiene guile)))) | |
| 15359 | (eq? (#{id-var-name 411}# | |
| 15360 | #{dots 3759}# | |
| 15361 | '(())) | |
| 15362 | (#{id-var-name 411}# | |
| 15363 | '#(syntax-object | |
| 15364 | ... | |
| 15365 | ((top) | |
| 15366 | #(ribcage () () ()) | |
| 15367 | #(ribcage () () ()) | |
| 15368 | #(ribcage | |
| 15369 | #(x) | |
| 15370 | #((top)) | |
| 15371 | #("i2229")) | |
| 15372 | #(ribcage | |
| 15373 | (lambda-var-list | |
| 15374 | gen-var | |
| 15375 | strip | |
| 15376 | chi-lambda-case | |
| 15377 | lambda*-formals | |
| 15378 | chi-simple-lambda | |
| 15379 | lambda-formals | |
| 15380 | ellipsis? | |
| 15381 | chi-void | |
| 15382 | eval-local-transformer | |
| 15383 | chi-local-syntax | |
| 15384 | chi-body | |
| 15385 | chi-macro | |
| 15386 | chi-application | |
| 15387 | chi-expr | |
| 15388 | chi | |
| 15389 | syntax-type | |
| 15390 | chi-when-list | |
| 15391 | chi-install-global | |
| 15392 | chi-top-sequence | |
| 15393 | chi-sequence | |
| 15394 | source-wrap | |
| 15395 | wrap | |
| 15396 | bound-id-member? | |
| 15397 | distinct-bound-ids? | |
| 15398 | valid-bound-ids? | |
| 15399 | bound-id=? | |
| 15400 | free-id=? | |
| 15401 | id-var-name | |
| 15402 | same-marks? | |
| 15403 | join-marks | |
| 15404 | join-wraps | |
| 15405 | smart-append | |
| 15406 | make-binding-wrap | |
| 15407 | extend-ribcage! | |
| 15408 | make-empty-ribcage | |
| 15409 | new-mark | |
| 15410 | anti-mark | |
| 15411 | the-anti-mark | |
| 15412 | top-marked? | |
| 15413 | top-wrap | |
| 15414 | empty-wrap | |
| 15415 | set-ribcage-labels! | |
| 15416 | set-ribcage-marks! | |
| 15417 | set-ribcage-symnames! | |
| 15418 | ribcage-labels | |
| 15419 | ribcage-marks | |
| 15420 | ribcage-symnames | |
| 15421 | ribcage? | |
| 15422 | make-ribcage | |
| 15423 | gen-labels | |
| 15424 | gen-label | |
| 15425 | make-rename | |
| 15426 | rename-marks | |
| 15427 | rename-new | |
| 15428 | rename-old | |
| 15429 | subst-rename? | |
| 15430 | wrap-subst | |
| 15431 | wrap-marks | |
| 15432 | make-wrap | |
| 15433 | id-sym-name&marks | |
| 15434 | id-sym-name | |
| 15435 | id? | |
| 15436 | nonsymbol-id? | |
| 15437 | global-extend | |
| 15438 | lookup | |
| 15439 | macros-only-env | |
| 15440 | extend-var-env | |
| 15441 | extend-env | |
| 15442 | null-env | |
| 15443 | binding-value | |
| 15444 | binding-type | |
| 15445 | make-binding | |
| 15446 | arg-check | |
| 15447 | source-annotation | |
| 15448 | no-source | |
| 15449 | set-syntax-object-module! | |
| 15450 | set-syntax-object-wrap! | |
| 15451 | set-syntax-object-expression! | |
| 15452 | syntax-object-module | |
| 15453 | syntax-object-wrap | |
| 15454 | syntax-object-expression | |
| 15455 | syntax-object? | |
| 15456 | make-syntax-object | |
| 15457 | build-lexical-var | |
| 15458 | build-letrec | |
| 15459 | build-named-let | |
| 15460 | build-let | |
| 15461 | build-sequence | |
| 15462 | build-data | |
| 15463 | build-primref | |
| 15464 | build-lambda-case | |
| 15465 | build-case-lambda | |
| 15466 | build-simple-lambda | |
| 15467 | build-global-definition | |
| 15468 | build-global-assignment | |
| 15469 | build-global-reference | |
| 15470 | analyze-variable | |
| 15471 | build-lexical-assignment | |
| 15472 | build-lexical-reference | |
| 15473 | build-dynlet | |
| 15474 | build-conditional | |
| 15475 | build-application | |
| 15476 | build-void | |
| 15477 | maybe-name-value! | |
| 15478 | decorate-source | |
| 15479 | get-global-definition-hook | |
| 15480 | put-global-definition-hook | |
| 15481 | gensym-hook | |
| 15482 | local-eval-hook | |
| 15483 | top-level-eval-hook | |
| 15484 | fx< | |
| 15485 | fx= | |
| 15486 | fx- | |
| 15487 | fx+ | |
| 15488 | set-lambda-meta! | |
| 15489 | lambda-meta | |
| 15490 | lambda? | |
| 15491 | make-dynlet | |
| 15492 | make-letrec | |
| 15493 | make-let | |
| 15494 | make-lambda-case | |
| 15495 | make-lambda | |
| 15496 | make-sequence | |
| 15497 | make-application | |
| 15498 | make-conditional | |
| 15499 | make-toplevel-define | |
| 15500 | make-toplevel-set | |
| 15501 | make-toplevel-ref | |
| 15502 | make-module-set | |
| 15503 | make-module-ref | |
| 15504 | make-lexical-set | |
| 15505 | make-lexical-ref | |
| 15506 | make-primitive-ref | |
| 15507 | make-const | |
| 15508 | make-void) | |
| 15509 | ((top) | |
| 15510 | (top) | |
| 15511 | (top) | |
| 15512 | (top) | |
| 15513 | (top) | |
| 15514 | (top) | |
| 15515 | (top) | |
| 15516 | (top) | |
| 15517 | (top) | |
| 15518 | (top) | |
| 15519 | (top) | |
| 15520 | (top) | |
| 15521 | (top) | |
| 15522 | (top) | |
| 15523 | (top) | |
| 15524 | (top) | |
| 15525 | (top) | |
| 15526 | (top) | |
| 15527 | (top) | |
| 15528 | (top) | |
| 15529 | (top) | |
| 15530 | (top) | |
| 15531 | (top) | |
| 15532 | (top) | |
| 15533 | (top) | |
| 15534 | (top) | |
| 15535 | (top) | |
| 15536 | (top) | |
| 15537 | (top) | |
| 15538 | (top) | |
| 15539 | (top) | |
| 15540 | (top) | |
| 15541 | (top) | |
| 15542 | (top) | |
| 15543 | (top) | |
| 15544 | (top) | |
| 15545 | (top) | |
| 15546 | (top) | |
| 15547 | (top) | |
| 15548 | (top) | |
| 15549 | (top) | |
| 15550 | (top) | |
| 15551 | (top) | |
| 15552 | (top) | |
| 15553 | (top) | |
| 15554 | (top) | |
| 15555 | (top) | |
| 15556 | (top) | |
| 15557 | (top) | |
| 15558 | (top) | |
| 15559 | (top) | |
| 15560 | (top) | |
| 15561 | (top) | |
| 15562 | (top) | |
| 15563 | (top) | |
| 15564 | (top) | |
| 15565 | (top) | |
| 15566 | (top) | |
| 15567 | (top) | |
| 15568 | (top) | |
| 15569 | (top) | |
| 15570 | (top) | |
| 15571 | (top) | |
| 15572 | (top) | |
| 15573 | (top) | |
| 15574 | (top) | |
| 15575 | (top) | |
| 15576 | (top) | |
| 15577 | (top) | |
| 15578 | (top) | |
| 15579 | (top) | |
| 15580 | (top) | |
| 15581 | (top) | |
| 15582 | (top) | |
| 15583 | (top) | |
| 15584 | (top) | |
| 15585 | (top) | |
| 15586 | (top) | |
| 15587 | (top) | |
| 15588 | (top) | |
| 15589 | (top) | |
| 15590 | (top) | |
| 15591 | (top) | |
| 15592 | (top) | |
| 15593 | (top) | |
| 15594 | (top) | |
| 15595 | (top) | |
| 15596 | (top) | |
| 15597 | (top) | |
| 15598 | (top) | |
| 15599 | (top) | |
| 15600 | (top) | |
| 15601 | (top) | |
| 15602 | (top) | |
| 15603 | (top) | |
| 15604 | (top) | |
| 15605 | (top) | |
| 15606 | (top) | |
| 15607 | (top) | |
| 15608 | (top) | |
| 15609 | (top) | |
| 15610 | (top) | |
| 15611 | (top) | |
| 15612 | (top) | |
| 15613 | (top) | |
| 15614 | (top) | |
| 15615 | (top) | |
| 15616 | (top) | |
| 15617 | (top) | |
| 15618 | (top) | |
| 15619 | (top) | |
| 15620 | (top) | |
| 15621 | (top) | |
| 15622 | (top) | |
| 15623 | (top) | |
| 15624 | (top) | |
| 15625 | (top) | |
| 15626 | (top) | |
| 15627 | (top) | |
| 15628 | (top) | |
| 15629 | (top) | |
| 15630 | (top) | |
| 15631 | (top) | |
| 15632 | (top) | |
| 15633 | (top) | |
| 15634 | (top) | |
| 15635 | (top) | |
| 15636 | (top) | |
| 15637 | (top) | |
| 15638 | (top) | |
| 15639 | (top) | |
| 15640 | (top) | |
| 15641 | (top) | |
| 15642 | (top) | |
| 15643 | (top) | |
| 15644 | (top)) | |
| 15645 | ("i466" | |
| 15646 | "i464" | |
| 15647 | "i462" | |
| 15648 | "i460" | |
| 15649 | "i458" | |
| 15650 | "i456" | |
| 15651 | "i454" | |
| 15652 | "i452" | |
| 15653 | "i450" | |
| 15654 | "i448" | |
| 15655 | "i446" | |
| 15656 | "i444" | |
| 15657 | "i442" | |
| 15658 | "i440" | |
| 15659 | "i438" | |
| 15660 | "i436" | |
| 15661 | "i434" | |
| 15662 | "i432" | |
| 15663 | "i430" | |
| 15664 | "i428" | |
| 15665 | "i426" | |
| 15666 | "i424" | |
| 15667 | "i422" | |
| 15668 | "i420" | |
| 15669 | "i418" | |
| 15670 | "i416" | |
| 15671 | "i414" | |
| 15672 | "i412" | |
| 15673 | "i410" | |
| 15674 | "i408" | |
| 15675 | "i406" | |
| 15676 | "i404" | |
| 15677 | "i402" | |
| 15678 | "i400" | |
| 15679 | "i398" | |
| 15680 | "i397" | |
| 15681 | "i395" | |
| 15682 | "i392" | |
| 15683 | "i391" | |
| 15684 | "i390" | |
| 15685 | "i388" | |
| 15686 | "i387" | |
| 15687 | "i385" | |
| 15688 | "i383" | |
| 15689 | "i381" | |
| 15690 | "i379" | |
| 15691 | "i377" | |
| 15692 | "i375" | |
| 15693 | "i373" | |
| 15694 | "i371" | |
| 15695 | "i368" | |
| 15696 | "i366" | |
| 15697 | "i365" | |
| 15698 | "i363" | |
| 15699 | "i361" | |
| 15700 | "i359" | |
| 15701 | "i357" | |
| 15702 | "i356" | |
| 15703 | "i355" | |
| 15704 | "i354" | |
| 15705 | "i352" | |
| 15706 | "i351" | |
| 15707 | "i348" | |
| 15708 | "i346" | |
| 15709 | "i344" | |
| 15710 | "i342" | |
| 15711 | "i340" | |
| 15712 | "i338" | |
| 15713 | "i336" | |
| 15714 | "i335" | |
| 15715 | "i334" | |
| 15716 | "i332" | |
| 15717 | "i330" | |
| 15718 | "i329" | |
| 15719 | "i326" | |
| 15720 | "i325" | |
| 15721 | "i323" | |
| 15722 | "i321" | |
| 15723 | "i319" | |
| 15724 | "i317" | |
| 15725 | "i315" | |
| 15726 | "i313" | |
| 15727 | "i311" | |
| 15728 | "i309" | |
| 15729 | "i307" | |
| 15730 | "i304" | |
| 15731 | "i302" | |
| 15732 | "i300" | |
| 15733 | "i298" | |
| 15734 | "i296" | |
| 15735 | "i294" | |
| 15736 | "i292" | |
| 15737 | "i290" | |
| 15738 | "i288" | |
| 15739 | "i286" | |
| 15740 | "i284" | |
| 15741 | "i282" | |
| 15742 | "i280" | |
| 15743 | "i278" | |
| 15744 | "i276" | |
| 15745 | "i274" | |
| 15746 | "i272" | |
| 15747 | "i270" | |
| 15748 | "i268" | |
| 15749 | "i266" | |
| 15750 | "i264" | |
| 15751 | "i262" | |
| 15752 | "i260" | |
| 15753 | "i259" | |
| 15754 | "i256" | |
| 15755 | "i254" | |
| 15756 | "i253" | |
| 15757 | "i252" | |
| 15758 | "i251" | |
| 15759 | "i250" | |
| 15760 | "i248" | |
| 15761 | "i246" | |
| 15762 | "i244" | |
| 15763 | "i241" | |
| 15764 | "i239" | |
| 15765 | "i237" | |
| 15766 | "i235" | |
| 15767 | "i233" | |
| 15768 | "i231" | |
| 15769 | "i229" | |
| 15770 | "i227" | |
| 15771 | "i225" | |
| 15772 | "i223" | |
| 15773 | "i221" | |
| 15774 | "i219" | |
| 15775 | "i217" | |
| 15776 | "i215" | |
| 15777 | "i213" | |
| 15778 | "i211" | |
| 15779 | "i209" | |
| 15780 | "i207")) | |
| 15781 | #(ribcage | |
| 15782 | (define-structure | |
| 15783 | define-expansion-accessors | |
| 15784 | define-expansion-constructors) | |
| 15785 | ((top) (top) (top)) | |
| 15786 | ("i45" "i44" "i43"))) | |
| 15787 | (hygiene guile)) | |
| 15788 | '(()))) | |
| 15789 | #f) | |
| 15790 | #f)) | |
| 15791 | #{tmp 3755}#) | |
| 15792 | #f) | |
| 15793 | (@apply | |
| 15794 | (lambda (#{x 3762}# #{dots 3763}#) | |
| 15795 | (call-with-values | |
| 15796 | (lambda () | |
| 15797 | (#{cvt 3720}# | |
| 15798 | #{x 3762}# | |
| 15799 | (#{1+}# #{n 3744}#) | |
| 15800 | #{ids 3745}#)) | |
| 15801 | (lambda (#{p 3765}# #{ids 3766}#) | |
| 15802 | (values | |
| 15803 | (if (eq? #{p 3765}# 'any) | |
| 15804 | 'each-any | |
| 15805 | (vector 'each #{p 3765}#)) | |
| 15806 | #{ids 3766}#)))) | |
| 15807 | #{tmp 3755}#) | |
| 15808 | (let ((#{tmp 3769}# | |
| 15809 | ($sc-dispatch #{p 3743}# '(any any . any)))) | |
| 15810 | (if (if #{tmp 3769}# | |
| 15811 | (@apply | |
| 15812 | (lambda (#{x 3773}# | |
| 15813 | #{dots 3774}# | |
| 15814 | #{ys 3775}#) | |
| 15815 | (if (if (if (vector? #{dots 3774}#) | |
| 15816 | (if (= (vector-length | |
| 15817 | #{dots 3774}#) | |
| 15818 | 4) | |
| 15819 | (eq? (vector-ref | |
| 15820 | #{dots 3774}# | |
| 15821 | 0) | |
| 15822 | 'syntax-object) | |
| 15823 | #f) | |
| 15824 | #f) | |
| 15825 | (symbol? | |
| 15826 | (vector-ref #{dots 3774}# 1)) | |
| 15827 | #f) | |
| 15828 | (if (eq? (if (if (vector? | |
| 15829 | #{dots 3774}#) | |
| 15830 | (if (= (vector-length | |
| 15831 | #{dots 3774}#) | |
| 15832 | 4) | |
| 15833 | (eq? (vector-ref | |
| 15834 | #{dots 3774}# | |
| 15835 | 0) | |
| 15836 | 'syntax-object) | |
| 15837 | #f) | |
| 15838 | #f) | |
| 15839 | (vector-ref #{dots 3774}# 1) | |
| 15840 | #{dots 3774}#) | |
| 15841 | (if (if (= (vector-length | |
| 15842 | '#(syntax-object | |
| 15843 | ... | |
| 15844 | ((top) | |
| 15845 | #(ribcage | |
| 15846 | () | |
| 15847 | () | |
| 15848 | ()) | |
| 15849 | #(ribcage | |
| 15850 | () | |
| 15851 | () | |
| 15852 | ()) | |
| 15853 | #(ribcage | |
| 15854 | #(x) | |
| 15855 | #((top)) | |
| 15856 | #("i2229")) | |
| 15857 | #(ribcage | |
| 15858 | (lambda-var-list | |
| 15859 | gen-var | |
| 15860 | strip | |
| 15861 | chi-lambda-case | |
| 15862 | lambda*-formals | |
| 15863 | chi-simple-lambda | |
| 15864 | lambda-formals | |
| 15865 | ellipsis? | |
| 15866 | chi-void | |
| 15867 | eval-local-transformer | |
| 15868 | chi-local-syntax | |
| 15869 | chi-body | |
| 15870 | chi-macro | |
| 15871 | chi-application | |
| 15872 | chi-expr | |
| 15873 | chi | |
| 15874 | syntax-type | |
| 15875 | chi-when-list | |
| 15876 | chi-install-global | |
| 15877 | chi-top-sequence | |
| 15878 | chi-sequence | |
| 15879 | source-wrap | |
| 15880 | wrap | |
| 15881 | bound-id-member? | |
| 15882 | distinct-bound-ids? | |
| 15883 | valid-bound-ids? | |
| 15884 | bound-id=? | |
| 15885 | free-id=? | |
| 15886 | id-var-name | |
| 15887 | same-marks? | |
| 15888 | join-marks | |
| 15889 | join-wraps | |
| 15890 | smart-append | |
| 15891 | make-binding-wrap | |
| 15892 | extend-ribcage! | |
| 15893 | make-empty-ribcage | |
| 15894 | new-mark | |
| 15895 | anti-mark | |
| 15896 | the-anti-mark | |
| 15897 | top-marked? | |
| 15898 | top-wrap | |
| 15899 | empty-wrap | |
| 15900 | set-ribcage-labels! | |
| 15901 | set-ribcage-marks! | |
| 15902 | set-ribcage-symnames! | |
| 15903 | ribcage-labels | |
| 15904 | ribcage-marks | |
| 15905 | ribcage-symnames | |
| 15906 | ribcage? | |
| 15907 | make-ribcage | |
| 15908 | gen-labels | |
| 15909 | gen-label | |
| 15910 | make-rename | |
| 15911 | rename-marks | |
| 15912 | rename-new | |
| 15913 | rename-old | |
| 15914 | subst-rename? | |
| 15915 | wrap-subst | |
| 15916 | wrap-marks | |
| 15917 | make-wrap | |
| 15918 | id-sym-name&marks | |
| 15919 | id-sym-name | |
| 15920 | id? | |
| 15921 | nonsymbol-id? | |
| 15922 | global-extend | |
| 15923 | lookup | |
| 15924 | macros-only-env | |
| 15925 | extend-var-env | |
| 15926 | extend-env | |
| 15927 | null-env | |
| 15928 | binding-value | |
| 15929 | binding-type | |
| 15930 | make-binding | |
| 15931 | arg-check | |
| 15932 | source-annotation | |
| 15933 | no-source | |
| 15934 | set-syntax-object-module! | |
| 15935 | set-syntax-object-wrap! | |
| 15936 | set-syntax-object-expression! | |
| 15937 | syntax-object-module | |
| 15938 | syntax-object-wrap | |
| 15939 | syntax-object-expression | |
| 15940 | syntax-object? | |
| 15941 | make-syntax-object | |
| 15942 | build-lexical-var | |
| 15943 | build-letrec | |
| 15944 | build-named-let | |
| 15945 | build-let | |
| 15946 | build-sequence | |
| 15947 | build-data | |
| 15948 | build-primref | |
| 15949 | build-lambda-case | |
| 15950 | build-case-lambda | |
| 15951 | build-simple-lambda | |
| 15952 | build-global-definition | |
| 15953 | build-global-assignment | |
| 15954 | build-global-reference | |
| 15955 | analyze-variable | |
| 15956 | build-lexical-assignment | |
| 15957 | build-lexical-reference | |
| 15958 | build-dynlet | |
| 15959 | build-conditional | |
| 15960 | build-application | |
| 15961 | build-void | |
| 15962 | maybe-name-value! | |
| 15963 | decorate-source | |
| 15964 | get-global-definition-hook | |
| 15965 | put-global-definition-hook | |
| 15966 | gensym-hook | |
| 15967 | local-eval-hook | |
| 15968 | top-level-eval-hook | |
| 15969 | fx< | |
| 15970 | fx= | |
| 15971 | fx- | |
| 15972 | fx+ | |
| 15973 | set-lambda-meta! | |
| 15974 | lambda-meta | |
| 15975 | lambda? | |
| 15976 | make-dynlet | |
| 15977 | make-letrec | |
| 15978 | make-let | |
| 15979 | make-lambda-case | |
| 15980 | make-lambda | |
| 15981 | make-sequence | |
| 15982 | make-application | |
| 15983 | make-conditional | |
| 15984 | make-toplevel-define | |
| 15985 | make-toplevel-set | |
| 15986 | make-toplevel-ref | |
| 15987 | make-module-set | |
| 15988 | make-module-ref | |
| 15989 | make-lexical-set | |
| 15990 | make-lexical-ref | |
| 15991 | make-primitive-ref | |
| 15992 | make-const | |
| 15993 | make-void) | |
| 15994 | ((top) | |
| 15995 | (top) | |
| 15996 | (top) | |
| 15997 | (top) | |
| 15998 | (top) | |
| 15999 | (top) | |
| 16000 | (top) | |
| 16001 | (top) | |
| 16002 | (top) | |
| 16003 | (top) | |
| 16004 | (top) | |
| 16005 | (top) | |
| 16006 | (top) | |
| 16007 | (top) | |
| 16008 | (top) | |
| 16009 | (top) | |
| 16010 | (top) | |
| 16011 | (top) | |
| 16012 | (top) | |
| 16013 | (top) | |
| 16014 | (top) | |
| 16015 | (top) | |
| 16016 | (top) | |
| 16017 | (top) | |
| 16018 | (top) | |
| 16019 | (top) | |
| 16020 | (top) | |
| 16021 | (top) | |
| 16022 | (top) | |
| 16023 | (top) | |
| 16024 | (top) | |
| 16025 | (top) | |
| 16026 | (top) | |
| 16027 | (top) | |
| 16028 | (top) | |
| 16029 | (top) | |
| 16030 | (top) | |
| 16031 | (top) | |
| 16032 | (top) | |
| 16033 | (top) | |
| 16034 | (top) | |
| 16035 | (top) | |
| 16036 | (top) | |
| 16037 | (top) | |
| 16038 | (top) | |
| 16039 | (top) | |
| 16040 | (top) | |
| 16041 | (top) | |
| 16042 | (top) | |
| 16043 | (top) | |
| 16044 | (top) | |
| 16045 | (top) | |
| 16046 | (top) | |
| 16047 | (top) | |
| 16048 | (top) | |
| 16049 | (top) | |
| 16050 | (top) | |
| 16051 | (top) | |
| 16052 | (top) | |
| 16053 | (top) | |
| 16054 | (top) | |
| 16055 | (top) | |
| 16056 | (top) | |
| 16057 | (top) | |
| 16058 | (top) | |
| 16059 | (top) | |
| 16060 | (top) | |
| 16061 | (top) | |
| 16062 | (top) | |
| 16063 | (top) | |
| 16064 | (top) | |
| 16065 | (top) | |
| 16066 | (top) | |
| 16067 | (top) | |
| 16068 | (top) | |
| 16069 | (top) | |
| 16070 | (top) | |
| 16071 | (top) | |
| 16072 | (top) | |
| 16073 | (top) | |
| 16074 | (top) | |
| 16075 | (top) | |
| 16076 | (top) | |
| 16077 | (top) | |
| 16078 | (top) | |
| 16079 | (top) | |
| 16080 | (top) | |
| 16081 | (top) | |
| 16082 | (top) | |
| 16083 | (top) | |
| 16084 | (top) | |
| 16085 | (top) | |
| 16086 | (top) | |
| 16087 | (top) | |
| 16088 | (top) | |
| 16089 | (top) | |
| 16090 | (top) | |
| 16091 | (top) | |
| 16092 | (top) | |
| 16093 | (top) | |
| 16094 | (top) | |
| 16095 | (top) | |
| 16096 | (top) | |
| 16097 | (top) | |
| 16098 | (top) | |
| 16099 | (top) | |
| 16100 | (top) | |
| 16101 | (top) | |
| 16102 | (top) | |
| 16103 | (top) | |
| 16104 | (top) | |
| 16105 | (top) | |
| 16106 | (top) | |
| 16107 | (top) | |
| 16108 | (top) | |
| 16109 | (top) | |
| 16110 | (top) | |
| 16111 | (top) | |
| 16112 | (top) | |
| 16113 | (top) | |
| 16114 | (top) | |
| 16115 | (top) | |
| 16116 | (top) | |
| 16117 | (top) | |
| 16118 | (top) | |
| 16119 | (top) | |
| 16120 | (top) | |
| 16121 | (top) | |
| 16122 | (top) | |
| 16123 | (top) | |
| 16124 | (top) | |
| 16125 | (top) | |
| 16126 | (top) | |
| 16127 | (top) | |
| 16128 | (top) | |
| 16129 | (top)) | |
| 16130 | ("i466" | |
| 16131 | "i464" | |
| 16132 | "i462" | |
| 16133 | "i460" | |
| 16134 | "i458" | |
| 16135 | "i456" | |
| 16136 | "i454" | |
| 16137 | "i452" | |
| 16138 | "i450" | |
| 16139 | "i448" | |
| 16140 | "i446" | |
| 16141 | "i444" | |
| 16142 | "i442" | |
| 16143 | "i440" | |
| 16144 | "i438" | |
| 16145 | "i436" | |
| 16146 | "i434" | |
| 16147 | "i432" | |
| 16148 | "i430" | |
| 16149 | "i428" | |
| 16150 | "i426" | |
| 16151 | "i424" | |
| 16152 | "i422" | |
| 16153 | "i420" | |
| 16154 | "i418" | |
| 16155 | "i416" | |
| 16156 | "i414" | |
| 16157 | "i412" | |
| 16158 | "i410" | |
| 16159 | "i408" | |
| 16160 | "i406" | |
| 16161 | "i404" | |
| 16162 | "i402" | |
| 16163 | "i400" | |
| 16164 | "i398" | |
| 16165 | "i397" | |
| 16166 | "i395" | |
| 16167 | "i392" | |
| 16168 | "i391" | |
| 16169 | "i390" | |
| 16170 | "i388" | |
| 16171 | "i387" | |
| 16172 | "i385" | |
| 16173 | "i383" | |
| 16174 | "i381" | |
| 16175 | "i379" | |
| 16176 | "i377" | |
| 16177 | "i375" | |
| 16178 | "i373" | |
| 16179 | "i371" | |
| 16180 | "i368" | |
| 16181 | "i366" | |
| 16182 | "i365" | |
| 16183 | "i363" | |
| 16184 | "i361" | |
| 16185 | "i359" | |
| 16186 | "i357" | |
| 16187 | "i356" | |
| 16188 | "i355" | |
| 16189 | "i354" | |
| 16190 | "i352" | |
| 16191 | "i351" | |
| 16192 | "i348" | |
| 16193 | "i346" | |
| 16194 | "i344" | |
| 16195 | "i342" | |
| 16196 | "i340" | |
| 16197 | "i338" | |
| 16198 | "i336" | |
| 16199 | "i335" | |
| 16200 | "i334" | |
| 16201 | "i332" | |
| 16202 | "i330" | |
| 16203 | "i329" | |
| 16204 | "i326" | |
| 16205 | "i325" | |
| 16206 | "i323" | |
| 16207 | "i321" | |
| 16208 | "i319" | |
| 16209 | "i317" | |
| 16210 | "i315" | |
| 16211 | "i313" | |
| 16212 | "i311" | |
| 16213 | "i309" | |
| 16214 | "i307" | |
| 16215 | "i304" | |
| 16216 | "i302" | |
| 16217 | "i300" | |
| 16218 | "i298" | |
| 16219 | "i296" | |
| 16220 | "i294" | |
| 16221 | "i292" | |
| 16222 | "i290" | |
| 16223 | "i288" | |
| 16224 | "i286" | |
| 16225 | "i284" | |
| 16226 | "i282" | |
| 16227 | "i280" | |
| 16228 | "i278" | |
| 16229 | "i276" | |
| 16230 | "i274" | |
| 16231 | "i272" | |
| 16232 | "i270" | |
| 16233 | "i268" | |
| 16234 | "i266" | |
| 16235 | "i264" | |
| 16236 | "i262" | |
| 16237 | "i260" | |
| 16238 | "i259" | |
| 16239 | "i256" | |
| 16240 | "i254" | |
| 16241 | "i253" | |
| 16242 | "i252" | |
| 16243 | "i251" | |
| 16244 | "i250" | |
| 16245 | "i248" | |
| 16246 | "i246" | |
| 16247 | "i244" | |
| 16248 | "i241" | |
| 16249 | "i239" | |
| 16250 | "i237" | |
| 16251 | "i235" | |
| 16252 | "i233" | |
| 16253 | "i231" | |
| 16254 | "i229" | |
| 16255 | "i227" | |
| 16256 | "i225" | |
| 16257 | "i223" | |
| 16258 | "i221" | |
| 16259 | "i219" | |
| 16260 | "i217" | |
| 16261 | "i215" | |
| 16262 | "i213" | |
| 16263 | "i211" | |
| 16264 | "i209" | |
| 16265 | "i207")) | |
| 16266 | #(ribcage | |
| 16267 | (define-structure | |
| 16268 | define-expansion-accessors | |
| 16269 | define-expansion-constructors) | |
| 16270 | ((top) | |
| 16271 | (top) | |
| 16272 | (top)) | |
| 16273 | ("i45" | |
| 16274 | "i44" | |
| 16275 | "i43"))) | |
| 16276 | (hygiene | |
| 16277 | guile))) | |
| 16278 | 4) | |
| 16279 | (eq? (vector-ref | |
| 16280 | '#(syntax-object | |
| 16281 | ... | |
| 16282 | ((top) | |
| 16283 | #(ribcage | |
| 16284 | () | |
| 16285 | () | |
| 16286 | ()) | |
| 16287 | #(ribcage | |
| 16288 | () | |
| 16289 | () | |
| 16290 | ()) | |
| 16291 | #(ribcage | |
| 16292 | #(x) | |
| 16293 | #((top)) | |
| 16294 | #("i2229")) | |
| 16295 | #(ribcage | |
| 16296 | (lambda-var-list | |
| 16297 | gen-var | |
| 16298 | strip | |
| 16299 | chi-lambda-case | |
| 16300 | lambda*-formals | |
| 16301 | chi-simple-lambda | |
| 16302 | lambda-formals | |
| 16303 | ellipsis? | |
| 16304 | chi-void | |
| 16305 | eval-local-transformer | |
| 16306 | chi-local-syntax | |
| 16307 | chi-body | |
| 16308 | chi-macro | |
| 16309 | chi-application | |
| 16310 | chi-expr | |
| 16311 | chi | |
| 16312 | syntax-type | |
| 16313 | chi-when-list | |
| 16314 | chi-install-global | |
| 16315 | chi-top-sequence | |
| 16316 | chi-sequence | |
| 16317 | source-wrap | |
| 16318 | wrap | |
| 16319 | bound-id-member? | |
| 16320 | distinct-bound-ids? | |
| 16321 | valid-bound-ids? | |
| 16322 | bound-id=? | |
| 16323 | free-id=? | |
| 16324 | id-var-name | |
| 16325 | same-marks? | |
| 16326 | join-marks | |
| 16327 | join-wraps | |
| 16328 | smart-append | |
| 16329 | make-binding-wrap | |
| 16330 | extend-ribcage! | |
| 16331 | make-empty-ribcage | |
| 16332 | new-mark | |
| 16333 | anti-mark | |
| 16334 | the-anti-mark | |
| 16335 | top-marked? | |
| 16336 | top-wrap | |
| 16337 | empty-wrap | |
| 16338 | set-ribcage-labels! | |
| 16339 | set-ribcage-marks! | |
| 16340 | set-ribcage-symnames! | |
| 16341 | ribcage-labels | |
| 16342 | ribcage-marks | |
| 16343 | ribcage-symnames | |
| 16344 | ribcage? | |
| 16345 | make-ribcage | |
| 16346 | gen-labels | |
| 16347 | gen-label | |
| 16348 | make-rename | |
| 16349 | rename-marks | |
| 16350 | rename-new | |
| 16351 | rename-old | |
| 16352 | subst-rename? | |
| 16353 | wrap-subst | |
| 16354 | wrap-marks | |
| 16355 | make-wrap | |
| 16356 | id-sym-name&marks | |
| 16357 | id-sym-name | |
| 16358 | id? | |
| 16359 | nonsymbol-id? | |
| 16360 | global-extend | |
| 16361 | lookup | |
| 16362 | macros-only-env | |
| 16363 | extend-var-env | |
| 16364 | extend-env | |
| 16365 | null-env | |
| 16366 | binding-value | |
| 16367 | binding-type | |
| 16368 | make-binding | |
| 16369 | arg-check | |
| 16370 | source-annotation | |
| 16371 | no-source | |
| 16372 | set-syntax-object-module! | |
| 16373 | set-syntax-object-wrap! | |
| 16374 | set-syntax-object-expression! | |
| 16375 | syntax-object-module | |
| 16376 | syntax-object-wrap | |
| 16377 | syntax-object-expression | |
| 16378 | syntax-object? | |
| 16379 | make-syntax-object | |
| 16380 | build-lexical-var | |
| 16381 | build-letrec | |
| 16382 | build-named-let | |
| 16383 | build-let | |
| 16384 | build-sequence | |
| 16385 | build-data | |
| 16386 | build-primref | |
| 16387 | build-lambda-case | |
| 16388 | build-case-lambda | |
| 16389 | build-simple-lambda | |
| 16390 | build-global-definition | |
| 16391 | build-global-assignment | |
| 16392 | build-global-reference | |
| 16393 | analyze-variable | |
| 16394 | build-lexical-assignment | |
| 16395 | build-lexical-reference | |
| 16396 | build-dynlet | |
| 16397 | build-conditional | |
| 16398 | build-application | |
| 16399 | build-void | |
| 16400 | maybe-name-value! | |
| 16401 | decorate-source | |
| 16402 | get-global-definition-hook | |
| 16403 | put-global-definition-hook | |
| 16404 | gensym-hook | |
| 16405 | local-eval-hook | |
| 16406 | top-level-eval-hook | |
| 16407 | fx< | |
| 16408 | fx= | |
| 16409 | fx- | |
| 16410 | fx+ | |
| 16411 | set-lambda-meta! | |
| 16412 | lambda-meta | |
| 16413 | lambda? | |
| 16414 | make-dynlet | |
| 16415 | make-letrec | |
| 16416 | make-let | |
| 16417 | make-lambda-case | |
| 16418 | make-lambda | |
| 16419 | make-sequence | |
| 16420 | make-application | |
| 16421 | make-conditional | |
| 16422 | make-toplevel-define | |
| 16423 | make-toplevel-set | |
| 16424 | make-toplevel-ref | |
| 16425 | make-module-set | |
| 16426 | make-module-ref | |
| 16427 | make-lexical-set | |
| 16428 | make-lexical-ref | |
| 16429 | make-primitive-ref | |
| 16430 | make-const | |
| 16431 | make-void) | |
| 16432 | ((top) | |
| 16433 | (top) | |
| 16434 | (top) | |
| 16435 | (top) | |
| 16436 | (top) | |
| 16437 | (top) | |
| 16438 | (top) | |
| 16439 | (top) | |
| 16440 | (top) | |
| 16441 | (top) | |
| 16442 | (top) | |
| 16443 | (top) | |
| 16444 | (top) | |
| 16445 | (top) | |
| 16446 | (top) | |
| 16447 | (top) | |
| 16448 | (top) | |
| 16449 | (top) | |
| 16450 | (top) | |
| 16451 | (top) | |
| 16452 | (top) | |
| 16453 | (top) | |
| 16454 | (top) | |
| 16455 | (top) | |
| 16456 | (top) | |
| 16457 | (top) | |
| 16458 | (top) | |
| 16459 | (top) | |
| 16460 | (top) | |
| 16461 | (top) | |
| 16462 | (top) | |
| 16463 | (top) | |
| 16464 | (top) | |
| 16465 | (top) | |
| 16466 | (top) | |
| 16467 | (top) | |
| 16468 | (top) | |
| 16469 | (top) | |
| 16470 | (top) | |
| 16471 | (top) | |
| 16472 | (top) | |
| 16473 | (top) | |
| 16474 | (top) | |
| 16475 | (top) | |
| 16476 | (top) | |
| 16477 | (top) | |
| 16478 | (top) | |
| 16479 | (top) | |
| 16480 | (top) | |
| 16481 | (top) | |
| 16482 | (top) | |
| 16483 | (top) | |
| 16484 | (top) | |
| 16485 | (top) | |
| 16486 | (top) | |
| 16487 | (top) | |
| 16488 | (top) | |
| 16489 | (top) | |
| 16490 | (top) | |
| 16491 | (top) | |
| 16492 | (top) | |
| 16493 | (top) | |
| 16494 | (top) | |
| 16495 | (top) | |
| 16496 | (top) | |
| 16497 | (top) | |
| 16498 | (top) | |
| 16499 | (top) | |
| 16500 | (top) | |
| 16501 | (top) | |
| 16502 | (top) | |
| 16503 | (top) | |
| 16504 | (top) | |
| 16505 | (top) | |
| 16506 | (top) | |
| 16507 | (top) | |
| 16508 | (top) | |
| 16509 | (top) | |
| 16510 | (top) | |
| 16511 | (top) | |
| 16512 | (top) | |
| 16513 | (top) | |
| 16514 | (top) | |
| 16515 | (top) | |
| 16516 | (top) | |
| 16517 | (top) | |
| 16518 | (top) | |
| 16519 | (top) | |
| 16520 | (top) | |
| 16521 | (top) | |
| 16522 | (top) | |
| 16523 | (top) | |
| 16524 | (top) | |
| 16525 | (top) | |
| 16526 | (top) | |
| 16527 | (top) | |
| 16528 | (top) | |
| 16529 | (top) | |
| 16530 | (top) | |
| 16531 | (top) | |
| 16532 | (top) | |
| 16533 | (top) | |
| 16534 | (top) | |
| 16535 | (top) | |
| 16536 | (top) | |
| 16537 | (top) | |
| 16538 | (top) | |
| 16539 | (top) | |
| 16540 | (top) | |
| 16541 | (top) | |
| 16542 | (top) | |
| 16543 | (top) | |
| 16544 | (top) | |
| 16545 | (top) | |
| 16546 | (top) | |
| 16547 | (top) | |
| 16548 | (top) | |
| 16549 | (top) | |
| 16550 | (top) | |
| 16551 | (top) | |
| 16552 | (top) | |
| 16553 | (top) | |
| 16554 | (top) | |
| 16555 | (top) | |
| 16556 | (top) | |
| 16557 | (top) | |
| 16558 | (top) | |
| 16559 | (top) | |
| 16560 | (top) | |
| 16561 | (top) | |
| 16562 | (top) | |
| 16563 | (top) | |
| 16564 | (top) | |
| 16565 | (top) | |
| 16566 | (top) | |
| 16567 | (top)) | |
| 16568 | ("i466" | |
| 16569 | "i464" | |
| 16570 | "i462" | |
| 16571 | "i460" | |
| 16572 | "i458" | |
| 16573 | "i456" | |
| 16574 | "i454" | |
| 16575 | "i452" | |
| 16576 | "i450" | |
| 16577 | "i448" | |
| 16578 | "i446" | |
| 16579 | "i444" | |
| 16580 | "i442" | |
| 16581 | "i440" | |
| 16582 | "i438" | |
| 16583 | "i436" | |
| 16584 | "i434" | |
| 16585 | "i432" | |
| 16586 | "i430" | |
| 16587 | "i428" | |
| 16588 | "i426" | |
| 16589 | "i424" | |
| 16590 | "i422" | |
| 16591 | "i420" | |
| 16592 | "i418" | |
| 16593 | "i416" | |
| 16594 | "i414" | |
| 16595 | "i412" | |
| 16596 | "i410" | |
| 16597 | "i408" | |
| 16598 | "i406" | |
| 16599 | "i404" | |
| 16600 | "i402" | |
| 16601 | "i400" | |
| 16602 | "i398" | |
| 16603 | "i397" | |
| 16604 | "i395" | |
| 16605 | "i392" | |
| 16606 | "i391" | |
| 16607 | "i390" | |
| 16608 | "i388" | |
| 16609 | "i387" | |
| 16610 | "i385" | |
| 16611 | "i383" | |
| 16612 | "i381" | |
| 16613 | "i379" | |
| 16614 | "i377" | |
| 16615 | "i375" | |
| 16616 | "i373" | |
| 16617 | "i371" | |
| 16618 | "i368" | |
| 16619 | "i366" | |
| 16620 | "i365" | |
| 16621 | "i363" | |
| 16622 | "i361" | |
| 16623 | "i359" | |
| 16624 | "i357" | |
| 16625 | "i356" | |
| 16626 | "i355" | |
| 16627 | "i354" | |
| 16628 | "i352" | |
| 16629 | "i351" | |
| 16630 | "i348" | |
| 16631 | "i346" | |
| 16632 | "i344" | |
| 16633 | "i342" | |
| 16634 | "i340" | |
| 16635 | "i338" | |
| 16636 | "i336" | |
| 16637 | "i335" | |
| 16638 | "i334" | |
| 16639 | "i332" | |
| 16640 | "i330" | |
| 16641 | "i329" | |
| 16642 | "i326" | |
| 16643 | "i325" | |
| 16644 | "i323" | |
| 16645 | "i321" | |
| 16646 | "i319" | |
| 16647 | "i317" | |
| 16648 | "i315" | |
| 16649 | "i313" | |
| 16650 | "i311" | |
| 16651 | "i309" | |
| 16652 | "i307" | |
| 16653 | "i304" | |
| 16654 | "i302" | |
| 16655 | "i300" | |
| 16656 | "i298" | |
| 16657 | "i296" | |
| 16658 | "i294" | |
| 16659 | "i292" | |
| 16660 | "i290" | |
| 16661 | "i288" | |
| 16662 | "i286" | |
| 16663 | "i284" | |
| 16664 | "i282" | |
| 16665 | "i280" | |
| 16666 | "i278" | |
| 16667 | "i276" | |
| 16668 | "i274" | |
| 16669 | "i272" | |
| 16670 | "i270" | |
| 16671 | "i268" | |
| 16672 | "i266" | |
| 16673 | "i264" | |
| 16674 | "i262" | |
| 16675 | "i260" | |
| 16676 | "i259" | |
| 16677 | "i256" | |
| 16678 | "i254" | |
| 16679 | "i253" | |
| 16680 | "i252" | |
| 16681 | "i251" | |
| 16682 | "i250" | |
| 16683 | "i248" | |
| 16684 | "i246" | |
| 16685 | "i244" | |
| 16686 | "i241" | |
| 16687 | "i239" | |
| 16688 | "i237" | |
| 16689 | "i235" | |
| 16690 | "i233" | |
| 16691 | "i231" | |
| 16692 | "i229" | |
| 16693 | "i227" | |
| 16694 | "i225" | |
| 16695 | "i223" | |
| 16696 | "i221" | |
| 16697 | "i219" | |
| 16698 | "i217" | |
| 16699 | "i215" | |
| 16700 | "i213" | |
| 16701 | "i211" | |
| 16702 | "i209" | |
| 16703 | "i207")) | |
| 16704 | #(ribcage | |
| 16705 | (define-structure | |
| 16706 | define-expansion-accessors | |
| 16707 | define-expansion-constructors) | |
| 16708 | ((top) | |
| 16709 | (top) | |
| 16710 | (top)) | |
| 16711 | ("i45" | |
| 16712 | "i44" | |
| 16713 | "i43"))) | |
| 16714 | (hygiene | |
| 16715 | guile)) | |
| 16716 | 0) | |
| 16717 | 'syntax-object) | |
| 16718 | #f) | |
| 16719 | (vector-ref | |
| 16720 | '#(syntax-object | |
| 16721 | ... | |
| 16722 | ((top) | |
| 16723 | #(ribcage () () ()) | |
| 16724 | #(ribcage () () ()) | |
| 16725 | #(ribcage | |
| 16726 | #(x) | |
| 16727 | #((top)) | |
| 16728 | #("i2229")) | |
| 16729 | #(ribcage | |
| 16730 | (lambda-var-list | |
| 16731 | gen-var | |
| 16732 | strip | |
| 16733 | chi-lambda-case | |
| 16734 | lambda*-formals | |
| 16735 | chi-simple-lambda | |
| 16736 | lambda-formals | |
| 16737 | ellipsis? | |
| 16738 | chi-void | |
| 16739 | eval-local-transformer | |
| 16740 | chi-local-syntax | |
| 16741 | chi-body | |
| 16742 | chi-macro | |
| 16743 | chi-application | |
| 16744 | chi-expr | |
| 16745 | chi | |
| 16746 | syntax-type | |
| 16747 | chi-when-list | |
| 16748 | chi-install-global | |
| 16749 | chi-top-sequence | |
| 16750 | chi-sequence | |
| 16751 | source-wrap | |
| 16752 | wrap | |
| 16753 | bound-id-member? | |
| 16754 | distinct-bound-ids? | |
| 16755 | valid-bound-ids? | |
| 16756 | bound-id=? | |
| 16757 | free-id=? | |
| 16758 | id-var-name | |
| 16759 | same-marks? | |
| 16760 | join-marks | |
| 16761 | join-wraps | |
| 16762 | smart-append | |
| 16763 | make-binding-wrap | |
| 16764 | extend-ribcage! | |
| 16765 | make-empty-ribcage | |
| 16766 | new-mark | |
| 16767 | anti-mark | |
| 16768 | the-anti-mark | |
| 16769 | top-marked? | |
| 16770 | top-wrap | |
| 16771 | empty-wrap | |
| 16772 | set-ribcage-labels! | |
| 16773 | set-ribcage-marks! | |
| 16774 | set-ribcage-symnames! | |
| 16775 | ribcage-labels | |
| 16776 | ribcage-marks | |
| 16777 | ribcage-symnames | |
| 16778 | ribcage? | |
| 16779 | make-ribcage | |
| 16780 | gen-labels | |
| 16781 | gen-label | |
| 16782 | make-rename | |
| 16783 | rename-marks | |
| 16784 | rename-new | |
| 16785 | rename-old | |
| 16786 | subst-rename? | |
| 16787 | wrap-subst | |
| 16788 | wrap-marks | |
| 16789 | make-wrap | |
| 16790 | id-sym-name&marks | |
| 16791 | id-sym-name | |
| 16792 | id? | |
| 16793 | nonsymbol-id? | |
| 16794 | global-extend | |
| 16795 | lookup | |
| 16796 | macros-only-env | |
| 16797 | extend-var-env | |
| 16798 | extend-env | |
| 16799 | null-env | |
| 16800 | binding-value | |
| 16801 | binding-type | |
| 16802 | make-binding | |
| 16803 | arg-check | |
| 16804 | source-annotation | |
| 16805 | no-source | |
| 16806 | set-syntax-object-module! | |
| 16807 | set-syntax-object-wrap! | |
| 16808 | set-syntax-object-expression! | |
| 16809 | syntax-object-module | |
| 16810 | syntax-object-wrap | |
| 16811 | syntax-object-expression | |
| 16812 | syntax-object? | |
| 16813 | make-syntax-object | |
| 16814 | build-lexical-var | |
| 16815 | build-letrec | |
| 16816 | build-named-let | |
| 16817 | build-let | |
| 16818 | build-sequence | |
| 16819 | build-data | |
| 16820 | build-primref | |
| 16821 | build-lambda-case | |
| 16822 | build-case-lambda | |
| 16823 | build-simple-lambda | |
| 16824 | build-global-definition | |
| 16825 | build-global-assignment | |
| 16826 | build-global-reference | |
| 16827 | analyze-variable | |
| 16828 | build-lexical-assignment | |
| 16829 | build-lexical-reference | |
| 16830 | build-dynlet | |
| 16831 | build-conditional | |
| 16832 | build-application | |
| 16833 | build-void | |
| 16834 | maybe-name-value! | |
| 16835 | decorate-source | |
| 16836 | get-global-definition-hook | |
| 16837 | put-global-definition-hook | |
| 16838 | gensym-hook | |
| 16839 | local-eval-hook | |
| 16840 | top-level-eval-hook | |
| 16841 | fx< | |
| 16842 | fx= | |
| 16843 | fx- | |
| 16844 | fx+ | |
| 16845 | set-lambda-meta! | |
| 16846 | lambda-meta | |
| 16847 | lambda? | |
| 16848 | make-dynlet | |
| 16849 | make-letrec | |
| 16850 | make-let | |
| 16851 | make-lambda-case | |
| 16852 | make-lambda | |
| 16853 | make-sequence | |
| 16854 | make-application | |
| 16855 | make-conditional | |
| 16856 | make-toplevel-define | |
| 16857 | make-toplevel-set | |
| 16858 | make-toplevel-ref | |
| 16859 | make-module-set | |
| 16860 | make-module-ref | |
| 16861 | make-lexical-set | |
| 16862 | make-lexical-ref | |
| 16863 | make-primitive-ref | |
| 16864 | make-const | |
| 16865 | make-void) | |
| 16866 | ((top) | |
| 16867 | (top) | |
| 16868 | (top) | |
| 16869 | (top) | |
| 16870 | (top) | |
| 16871 | (top) | |
| 16872 | (top) | |
| 16873 | (top) | |
| 16874 | (top) | |
| 16875 | (top) | |
| 16876 | (top) | |
| 16877 | (top) | |
| 16878 | (top) | |
| 16879 | (top) | |
| 16880 | (top) | |
| 16881 | (top) | |
| 16882 | (top) | |
| 16883 | (top) | |
| 16884 | (top) | |
| 16885 | (top) | |
| 16886 | (top) | |
| 16887 | (top) | |
| 16888 | (top) | |
| 16889 | (top) | |
| 16890 | (top) | |
| 16891 | (top) | |
| 16892 | (top) | |
| 16893 | (top) | |
| 16894 | (top) | |
| 16895 | (top) | |
| 16896 | (top) | |
| 16897 | (top) | |
| 16898 | (top) | |
| 16899 | (top) | |
| 16900 | (top) | |
| 16901 | (top) | |
| 16902 | (top) | |
| 16903 | (top) | |
| 16904 | (top) | |
| 16905 | (top) | |
| 16906 | (top) | |
| 16907 | (top) | |
| 16908 | (top) | |
| 16909 | (top) | |
| 16910 | (top) | |
| 16911 | (top) | |
| 16912 | (top) | |
| 16913 | (top) | |
| 16914 | (top) | |
| 16915 | (top) | |
| 16916 | (top) | |
| 16917 | (top) | |
| 16918 | (top) | |
| 16919 | (top) | |
| 16920 | (top) | |
| 16921 | (top) | |
| 16922 | (top) | |
| 16923 | (top) | |
| 16924 | (top) | |
| 16925 | (top) | |
| 16926 | (top) | |
| 16927 | (top) | |
| 16928 | (top) | |
| 16929 | (top) | |
| 16930 | (top) | |
| 16931 | (top) | |
| 16932 | (top) | |
| 16933 | (top) | |
| 16934 | (top) | |
| 16935 | (top) | |
| 16936 | (top) | |
| 16937 | (top) | |
| 16938 | (top) | |
| 16939 | (top) | |
| 16940 | (top) | |
| 16941 | (top) | |
| 16942 | (top) | |
| 16943 | (top) | |
| 16944 | (top) | |
| 16945 | (top) | |
| 16946 | (top) | |
| 16947 | (top) | |
| 16948 | (top) | |
| 16949 | (top) | |
| 16950 | (top) | |
| 16951 | (top) | |
| 16952 | (top) | |
| 16953 | (top) | |
| 16954 | (top) | |
| 16955 | (top) | |
| 16956 | (top) | |
| 16957 | (top) | |
| 16958 | (top) | |
| 16959 | (top) | |
| 16960 | (top) | |
| 16961 | (top) | |
| 16962 | (top) | |
| 16963 | (top) | |
| 16964 | (top) | |
| 16965 | (top) | |
| 16966 | (top) | |
| 16967 | (top) | |
| 16968 | (top) | |
| 16969 | (top) | |
| 16970 | (top) | |
| 16971 | (top) | |
| 16972 | (top) | |
| 16973 | (top) | |
| 16974 | (top) | |
| 16975 | (top) | |
| 16976 | (top) | |
| 16977 | (top) | |
| 16978 | (top) | |
| 16979 | (top) | |
| 16980 | (top) | |
| 16981 | (top) | |
| 16982 | (top) | |
| 16983 | (top) | |
| 16984 | (top) | |
| 16985 | (top) | |
| 16986 | (top) | |
| 16987 | (top) | |
| 16988 | (top) | |
| 16989 | (top) | |
| 16990 | (top) | |
| 16991 | (top) | |
| 16992 | (top) | |
| 16993 | (top) | |
| 16994 | (top) | |
| 16995 | (top) | |
| 16996 | (top) | |
| 16997 | (top) | |
| 16998 | (top) | |
| 16999 | (top) | |
| 17000 | (top) | |
| 17001 | (top)) | |
| 17002 | ("i466" | |
| 17003 | "i464" | |
| 17004 | "i462" | |
| 17005 | "i460" | |
| 17006 | "i458" | |
| 17007 | "i456" | |
| 17008 | "i454" | |
| 17009 | "i452" | |
| 17010 | "i450" | |
| 17011 | "i448" | |
| 17012 | "i446" | |
| 17013 | "i444" | |
| 17014 | "i442" | |
| 17015 | "i440" | |
| 17016 | "i438" | |
| 17017 | "i436" | |
| 17018 | "i434" | |
| 17019 | "i432" | |
| 17020 | "i430" | |
| 17021 | "i428" | |
| 17022 | "i426" | |
| 17023 | "i424" | |
| 17024 | "i422" | |
| 17025 | "i420" | |
| 17026 | "i418" | |
| 17027 | "i416" | |
| 17028 | "i414" | |
| 17029 | "i412" | |
| 17030 | "i410" | |
| 17031 | "i408" | |
| 17032 | "i406" | |
| 17033 | "i404" | |
| 17034 | "i402" | |
| 17035 | "i400" | |
| 17036 | "i398" | |
| 17037 | "i397" | |
| 17038 | "i395" | |
| 17039 | "i392" | |
| 17040 | "i391" | |
| 17041 | "i390" | |
| 17042 | "i388" | |
| 17043 | "i387" | |
| 17044 | "i385" | |
| 17045 | "i383" | |
| 17046 | "i381" | |
| 17047 | "i379" | |
| 17048 | "i377" | |
| 17049 | "i375" | |
| 17050 | "i373" | |
| 17051 | "i371" | |
| 17052 | "i368" | |
| 17053 | "i366" | |
| 17054 | "i365" | |
| 17055 | "i363" | |
| 17056 | "i361" | |
| 17057 | "i359" | |
| 17058 | "i357" | |
| 17059 | "i356" | |
| 17060 | "i355" | |
| 17061 | "i354" | |
| 17062 | "i352" | |
| 17063 | "i351" | |
| 17064 | "i348" | |
| 17065 | "i346" | |
| 17066 | "i344" | |
| 17067 | "i342" | |
| 17068 | "i340" | |
| 17069 | "i338" | |
| 17070 | "i336" | |
| 17071 | "i335" | |
| 17072 | "i334" | |
| 17073 | "i332" | |
| 17074 | "i330" | |
| 17075 | "i329" | |
| 17076 | "i326" | |
| 17077 | "i325" | |
| 17078 | "i323" | |
| 17079 | "i321" | |
| 17080 | "i319" | |
| 17081 | "i317" | |
| 17082 | "i315" | |
| 17083 | "i313" | |
| 17084 | "i311" | |
| 17085 | "i309" | |
| 17086 | "i307" | |
| 17087 | "i304" | |
| 17088 | "i302" | |
| 17089 | "i300" | |
| 17090 | "i298" | |
| 17091 | "i296" | |
| 17092 | "i294" | |
| 17093 | "i292" | |
| 17094 | "i290" | |
| 17095 | "i288" | |
| 17096 | "i286" | |
| 17097 | "i284" | |
| 17098 | "i282" | |
| 17099 | "i280" | |
| 17100 | "i278" | |
| 17101 | "i276" | |
| 17102 | "i274" | |
| 17103 | "i272" | |
| 17104 | "i270" | |
| 17105 | "i268" | |
| 17106 | "i266" | |
| 17107 | "i264" | |
| 17108 | "i262" | |
| 17109 | "i260" | |
| 17110 | "i259" | |
| 17111 | "i256" | |
| 17112 | "i254" | |
| 17113 | "i253" | |
| 17114 | "i252" | |
| 17115 | "i251" | |
| 17116 | "i250" | |
| 17117 | "i248" | |
| 17118 | "i246" | |
| 17119 | "i244" | |
| 17120 | "i241" | |
| 17121 | "i239" | |
| 17122 | "i237" | |
| 17123 | "i235" | |
| 17124 | "i233" | |
| 17125 | "i231" | |
| 17126 | "i229" | |
| 17127 | "i227" | |
| 17128 | "i225" | |
| 17129 | "i223" | |
| 17130 | "i221" | |
| 17131 | "i219" | |
| 17132 | "i217" | |
| 17133 | "i215" | |
| 17134 | "i213" | |
| 17135 | "i211" | |
| 17136 | "i209" | |
| 17137 | "i207")) | |
| 17138 | #(ribcage | |
| 17139 | (define-structure | |
| 17140 | define-expansion-accessors | |
| 17141 | define-expansion-constructors) | |
| 17142 | ((top) (top) (top)) | |
| 17143 | ("i45" | |
| 17144 | "i44" | |
| 17145 | "i43"))) | |
| 17146 | (hygiene guile)) | |
| 17147 | 1) | |
| 17148 | '#(syntax-object | |
| 17149 | ... | |
| 17150 | ((top) | |
| 17151 | #(ribcage () () ()) | |
| 17152 | #(ribcage () () ()) | |
| 17153 | #(ribcage | |
| 17154 | #(x) | |
| 17155 | #((top)) | |
| 17156 | #("i2229")) | |
| 17157 | #(ribcage | |
| 17158 | (lambda-var-list | |
| 17159 | gen-var | |
| 17160 | strip | |
| 17161 | chi-lambda-case | |
| 17162 | lambda*-formals | |
| 17163 | chi-simple-lambda | |
| 17164 | lambda-formals | |
| 17165 | ellipsis? | |
| 17166 | chi-void | |
| 17167 | eval-local-transformer | |
| 17168 | chi-local-syntax | |
| 17169 | chi-body | |
| 17170 | chi-macro | |
| 17171 | chi-application | |
| 17172 | chi-expr | |
| 17173 | chi | |
| 17174 | syntax-type | |
| 17175 | chi-when-list | |
| 17176 | chi-install-global | |
| 17177 | chi-top-sequence | |
| 17178 | chi-sequence | |
| 17179 | source-wrap | |
| 17180 | wrap | |
| 17181 | bound-id-member? | |
| 17182 | distinct-bound-ids? | |
| 17183 | valid-bound-ids? | |
| 17184 | bound-id=? | |
| 17185 | free-id=? | |
| 17186 | id-var-name | |
| 17187 | same-marks? | |
| 17188 | join-marks | |
| 17189 | join-wraps | |
| 17190 | smart-append | |
| 17191 | make-binding-wrap | |
| 17192 | extend-ribcage! | |
| 17193 | make-empty-ribcage | |
| 17194 | new-mark | |
| 17195 | anti-mark | |
| 17196 | the-anti-mark | |
| 17197 | top-marked? | |
| 17198 | top-wrap | |
| 17199 | empty-wrap | |
| 17200 | set-ribcage-labels! | |
| 17201 | set-ribcage-marks! | |
| 17202 | set-ribcage-symnames! | |
| 17203 | ribcage-labels | |
| 17204 | ribcage-marks | |
| 17205 | ribcage-symnames | |
| 17206 | ribcage? | |
| 17207 | make-ribcage | |
| 17208 | gen-labels | |
| 17209 | gen-label | |
| 17210 | make-rename | |
| 17211 | rename-marks | |
| 17212 | rename-new | |
| 17213 | rename-old | |
| 17214 | subst-rename? | |
| 17215 | wrap-subst | |
| 17216 | wrap-marks | |
| 17217 | make-wrap | |
| 17218 | id-sym-name&marks | |
| 17219 | id-sym-name | |
| 17220 | id? | |
| 17221 | nonsymbol-id? | |
| 17222 | global-extend | |
| 17223 | lookup | |
| 17224 | macros-only-env | |
| 17225 | extend-var-env | |
| 17226 | extend-env | |
| 17227 | null-env | |
| 17228 | binding-value | |
| 17229 | binding-type | |
| 17230 | make-binding | |
| 17231 | arg-check | |
| 17232 | source-annotation | |
| 17233 | no-source | |
| 17234 | set-syntax-object-module! | |
| 17235 | set-syntax-object-wrap! | |
| 17236 | set-syntax-object-expression! | |
| 17237 | syntax-object-module | |
| 17238 | syntax-object-wrap | |
| 17239 | syntax-object-expression | |
| 17240 | syntax-object? | |
| 17241 | make-syntax-object | |
| 17242 | build-lexical-var | |
| 17243 | build-letrec | |
| 17244 | build-named-let | |
| 17245 | build-let | |
| 17246 | build-sequence | |
| 17247 | build-data | |
| 17248 | build-primref | |
| 17249 | build-lambda-case | |
| 17250 | build-case-lambda | |
| 17251 | build-simple-lambda | |
| 17252 | build-global-definition | |
| 17253 | build-global-assignment | |
| 17254 | build-global-reference | |
| 17255 | analyze-variable | |
| 17256 | build-lexical-assignment | |
| 17257 | build-lexical-reference | |
| 17258 | build-dynlet | |
| 17259 | build-conditional | |
| 17260 | build-application | |
| 17261 | build-void | |
| 17262 | maybe-name-value! | |
| 17263 | decorate-source | |
| 17264 | get-global-definition-hook | |
| 17265 | put-global-definition-hook | |
| 17266 | gensym-hook | |
| 17267 | local-eval-hook | |
| 17268 | top-level-eval-hook | |
| 17269 | fx< | |
| 17270 | fx= | |
| 17271 | fx- | |
| 17272 | fx+ | |
| 17273 | set-lambda-meta! | |
| 17274 | lambda-meta | |
| 17275 | lambda? | |
| 17276 | make-dynlet | |
| 17277 | make-letrec | |
| 17278 | make-let | |
| 17279 | make-lambda-case | |
| 17280 | make-lambda | |
| 17281 | make-sequence | |
| 17282 | make-application | |
| 17283 | make-conditional | |
| 17284 | make-toplevel-define | |
| 17285 | make-toplevel-set | |
| 17286 | make-toplevel-ref | |
| 17287 | make-module-set | |
| 17288 | make-module-ref | |
| 17289 | make-lexical-set | |
| 17290 | make-lexical-ref | |
| 17291 | make-primitive-ref | |
| 17292 | make-const | |
| 17293 | make-void) | |
| 17294 | ((top) | |
| 17295 | (top) | |
| 17296 | (top) | |
| 17297 | (top) | |
| 17298 | (top) | |
| 17299 | (top) | |
| 17300 | (top) | |
| 17301 | (top) | |
| 17302 | (top) | |
| 17303 | (top) | |
| 17304 | (top) | |
| 17305 | (top) | |
| 17306 | (top) | |
| 17307 | (top) | |
| 17308 | (top) | |
| 17309 | (top) | |
| 17310 | (top) | |
| 17311 | (top) | |
| 17312 | (top) | |
| 17313 | (top) | |
| 17314 | (top) | |
| 17315 | (top) | |
| 17316 | (top) | |
| 17317 | (top) | |
| 17318 | (top) | |
| 17319 | (top) | |
| 17320 | (top) | |
| 17321 | (top) | |
| 17322 | (top) | |
| 17323 | (top) | |
| 17324 | (top) | |
| 17325 | (top) | |
| 17326 | (top) | |
| 17327 | (top) | |
| 17328 | (top) | |
| 17329 | (top) | |
| 17330 | (top) | |
| 17331 | (top) | |
| 17332 | (top) | |
| 17333 | (top) | |
| 17334 | (top) | |
| 17335 | (top) | |
| 17336 | (top) | |
| 17337 | (top) | |
| 17338 | (top) | |
| 17339 | (top) | |
| 17340 | (top) | |
| 17341 | (top) | |
| 17342 | (top) | |
| 17343 | (top) | |
| 17344 | (top) | |
| 17345 | (top) | |
| 17346 | (top) | |
| 17347 | (top) | |
| 17348 | (top) | |
| 17349 | (top) | |
| 17350 | (top) | |
| 17351 | (top) | |
| 17352 | (top) | |
| 17353 | (top) | |
| 17354 | (top) | |
| 17355 | (top) | |
| 17356 | (top) | |
| 17357 | (top) | |
| 17358 | (top) | |
| 17359 | (top) | |
| 17360 | (top) | |
| 17361 | (top) | |
| 17362 | (top) | |
| 17363 | (top) | |
| 17364 | (top) | |
| 17365 | (top) | |
| 17366 | (top) | |
| 17367 | (top) | |
| 17368 | (top) | |
| 17369 | (top) | |
| 17370 | (top) | |
| 17371 | (top) | |
| 17372 | (top) | |
| 17373 | (top) | |
| 17374 | (top) | |
| 17375 | (top) | |
| 17376 | (top) | |
| 17377 | (top) | |
| 17378 | (top) | |
| 17379 | (top) | |
| 17380 | (top) | |
| 17381 | (top) | |
| 17382 | (top) | |
| 17383 | (top) | |
| 17384 | (top) | |
| 17385 | (top) | |
| 17386 | (top) | |
| 17387 | (top) | |
| 17388 | (top) | |
| 17389 | (top) | |
| 17390 | (top) | |
| 17391 | (top) | |
| 17392 | (top) | |
| 17393 | (top) | |
| 17394 | (top) | |
| 17395 | (top) | |
| 17396 | (top) | |
| 17397 | (top) | |
| 17398 | (top) | |
| 17399 | (top) | |
| 17400 | (top) | |
| 17401 | (top) | |
| 17402 | (top) | |
| 17403 | (top) | |
| 17404 | (top) | |
| 17405 | (top) | |
| 17406 | (top) | |
| 17407 | (top) | |
| 17408 | (top) | |
| 17409 | (top) | |
| 17410 | (top) | |
| 17411 | (top) | |
| 17412 | (top) | |
| 17413 | (top) | |
| 17414 | (top) | |
| 17415 | (top) | |
| 17416 | (top) | |
| 17417 | (top) | |
| 17418 | (top) | |
| 17419 | (top) | |
| 17420 | (top) | |
| 17421 | (top) | |
| 17422 | (top) | |
| 17423 | (top) | |
| 17424 | (top) | |
| 17425 | (top) | |
| 17426 | (top) | |
| 17427 | (top) | |
| 17428 | (top) | |
| 17429 | (top)) | |
| 17430 | ("i466" | |
| 17431 | "i464" | |
| 17432 | "i462" | |
| 17433 | "i460" | |
| 17434 | "i458" | |
| 17435 | "i456" | |
| 17436 | "i454" | |
| 17437 | "i452" | |
| 17438 | "i450" | |
| 17439 | "i448" | |
| 17440 | "i446" | |
| 17441 | "i444" | |
| 17442 | "i442" | |
| 17443 | "i440" | |
| 17444 | "i438" | |
| 17445 | "i436" | |
| 17446 | "i434" | |
| 17447 | "i432" | |
| 17448 | "i430" | |
| 17449 | "i428" | |
| 17450 | "i426" | |
| 17451 | "i424" | |
| 17452 | "i422" | |
| 17453 | "i420" | |
| 17454 | "i418" | |
| 17455 | "i416" | |
| 17456 | "i414" | |
| 17457 | "i412" | |
| 17458 | "i410" | |
| 17459 | "i408" | |
| 17460 | "i406" | |
| 17461 | "i404" | |
| 17462 | "i402" | |
| 17463 | "i400" | |
| 17464 | "i398" | |
| 17465 | "i397" | |
| 17466 | "i395" | |
| 17467 | "i392" | |
| 17468 | "i391" | |
| 17469 | "i390" | |
| 17470 | "i388" | |
| 17471 | "i387" | |
| 17472 | "i385" | |
| 17473 | "i383" | |
| 17474 | "i381" | |
| 17475 | "i379" | |
| 17476 | "i377" | |
| 17477 | "i375" | |
| 17478 | "i373" | |
| 17479 | "i371" | |
| 17480 | "i368" | |
| 17481 | "i366" | |
| 17482 | "i365" | |
| 17483 | "i363" | |
| 17484 | "i361" | |
| 17485 | "i359" | |
| 17486 | "i357" | |
| 17487 | "i356" | |
| 17488 | "i355" | |
| 17489 | "i354" | |
| 17490 | "i352" | |
| 17491 | "i351" | |
| 17492 | "i348" | |
| 17493 | "i346" | |
| 17494 | "i344" | |
| 17495 | "i342" | |
| 17496 | "i340" | |
| 17497 | "i338" | |
| 17498 | "i336" | |
| 17499 | "i335" | |
| 17500 | "i334" | |
| 17501 | "i332" | |
| 17502 | "i330" | |
| 17503 | "i329" | |
| 17504 | "i326" | |
| 17505 | "i325" | |
| 17506 | "i323" | |
| 17507 | "i321" | |
| 17508 | "i319" | |
| 17509 | "i317" | |
| 17510 | "i315" | |
| 17511 | "i313" | |
| 17512 | "i311" | |
| 17513 | "i309" | |
| 17514 | "i307" | |
| 17515 | "i304" | |
| 17516 | "i302" | |
| 17517 | "i300" | |
| 17518 | "i298" | |
| 17519 | "i296" | |
| 17520 | "i294" | |
| 17521 | "i292" | |
| 17522 | "i290" | |
| 17523 | "i288" | |
| 17524 | "i286" | |
| 17525 | "i284" | |
| 17526 | "i282" | |
| 17527 | "i280" | |
| 17528 | "i278" | |
| 17529 | "i276" | |
| 17530 | "i274" | |
| 17531 | "i272" | |
| 17532 | "i270" | |
| 17533 | "i268" | |
| 17534 | "i266" | |
| 17535 | "i264" | |
| 17536 | "i262" | |
| 17537 | "i260" | |
| 17538 | "i259" | |
| 17539 | "i256" | |
| 17540 | "i254" | |
| 17541 | "i253" | |
| 17542 | "i252" | |
| 17543 | "i251" | |
| 17544 | "i250" | |
| 17545 | "i248" | |
| 17546 | "i246" | |
| 17547 | "i244" | |
| 17548 | "i241" | |
| 17549 | "i239" | |
| 17550 | "i237" | |
| 17551 | "i235" | |
| 17552 | "i233" | |
| 17553 | "i231" | |
| 17554 | "i229" | |
| 17555 | "i227" | |
| 17556 | "i225" | |
| 17557 | "i223" | |
| 17558 | "i221" | |
| 17559 | "i219" | |
| 17560 | "i217" | |
| 17561 | "i215" | |
| 17562 | "i213" | |
| 17563 | "i211" | |
| 17564 | "i209" | |
| 17565 | "i207")) | |
| 17566 | #(ribcage | |
| 17567 | (define-structure | |
| 17568 | define-expansion-accessors | |
| 17569 | define-expansion-constructors) | |
| 17570 | ((top) (top) (top)) | |
| 17571 | ("i45" "i44" "i43"))) | |
| 17572 | (hygiene guile)))) | |
| 17573 | (eq? (#{id-var-name 411}# | |
| 17574 | #{dots 3774}# | |
| 17575 | '(())) | |
| 17576 | (#{id-var-name 411}# | |
| 17577 | '#(syntax-object | |
| 17578 | ... | |
| 17579 | ((top) | |
| 17580 | #(ribcage () () ()) | |
| 17581 | #(ribcage () () ()) | |
| 17582 | #(ribcage | |
| 17583 | #(x) | |
| 17584 | #((top)) | |
| 17585 | #("i2229")) | |
| 17586 | #(ribcage | |
| 17587 | (lambda-var-list | |
| 17588 | gen-var | |
| 17589 | strip | |
| 17590 | chi-lambda-case | |
| 17591 | lambda*-formals | |
| 17592 | chi-simple-lambda | |
| 17593 | lambda-formals | |
| 17594 | ellipsis? | |
| 17595 | chi-void | |
| 17596 | eval-local-transformer | |
| 17597 | chi-local-syntax | |
| 17598 | chi-body | |
| 17599 | chi-macro | |
| 17600 | chi-application | |
| 17601 | chi-expr | |
| 17602 | chi | |
| 17603 | syntax-type | |
| 17604 | chi-when-list | |
| 17605 | chi-install-global | |
| 17606 | chi-top-sequence | |
| 17607 | chi-sequence | |
| 17608 | source-wrap | |
| 17609 | wrap | |
| 17610 | bound-id-member? | |
| 17611 | distinct-bound-ids? | |
| 17612 | valid-bound-ids? | |
| 17613 | bound-id=? | |
| 17614 | free-id=? | |
| 17615 | id-var-name | |
| 17616 | same-marks? | |
| 17617 | join-marks | |
| 17618 | join-wraps | |
| 17619 | smart-append | |
| 17620 | make-binding-wrap | |
| 17621 | extend-ribcage! | |
| 17622 | make-empty-ribcage | |
| 17623 | new-mark | |
| 17624 | anti-mark | |
| 17625 | the-anti-mark | |
| 17626 | top-marked? | |
| 17627 | top-wrap | |
| 17628 | empty-wrap | |
| 17629 | set-ribcage-labels! | |
| 17630 | set-ribcage-marks! | |
| 17631 | set-ribcage-symnames! | |
| 17632 | ribcage-labels | |
| 17633 | ribcage-marks | |
| 17634 | ribcage-symnames | |
| 17635 | ribcage? | |
| 17636 | make-ribcage | |
| 17637 | gen-labels | |
| 17638 | gen-label | |
| 17639 | make-rename | |
| 17640 | rename-marks | |
| 17641 | rename-new | |
| 17642 | rename-old | |
| 17643 | subst-rename? | |
| 17644 | wrap-subst | |
| 17645 | wrap-marks | |
| 17646 | make-wrap | |
| 17647 | id-sym-name&marks | |
| 17648 | id-sym-name | |
| 17649 | id? | |
| 17650 | nonsymbol-id? | |
| 17651 | global-extend | |
| 17652 | lookup | |
| 17653 | macros-only-env | |
| 17654 | extend-var-env | |
| 17655 | extend-env | |
| 17656 | null-env | |
| 17657 | binding-value | |
| 17658 | binding-type | |
| 17659 | make-binding | |
| 17660 | arg-check | |
| 17661 | source-annotation | |
| 17662 | no-source | |
| 17663 | set-syntax-object-module! | |
| 17664 | set-syntax-object-wrap! | |
| 17665 | set-syntax-object-expression! | |
| 17666 | syntax-object-module | |
| 17667 | syntax-object-wrap | |
| 17668 | syntax-object-expression | |
| 17669 | syntax-object? | |
| 17670 | make-syntax-object | |
| 17671 | build-lexical-var | |
| 17672 | build-letrec | |
| 17673 | build-named-let | |
| 17674 | build-let | |
| 17675 | build-sequence | |
| 17676 | build-data | |
| 17677 | build-primref | |
| 17678 | build-lambda-case | |
| 17679 | build-case-lambda | |
| 17680 | build-simple-lambda | |
| 17681 | build-global-definition | |
| 17682 | build-global-assignment | |
| 17683 | build-global-reference | |
| 17684 | analyze-variable | |
| 17685 | build-lexical-assignment | |
| 17686 | build-lexical-reference | |
| 17687 | build-dynlet | |
| 17688 | build-conditional | |
| 17689 | build-application | |
| 17690 | build-void | |
| 17691 | maybe-name-value! | |
| 17692 | decorate-source | |
| 17693 | get-global-definition-hook | |
| 17694 | put-global-definition-hook | |
| 17695 | gensym-hook | |
| 17696 | local-eval-hook | |
| 17697 | top-level-eval-hook | |
| 17698 | fx< | |
| 17699 | fx= | |
| 17700 | fx- | |
| 17701 | fx+ | |
| 17702 | set-lambda-meta! | |
| 17703 | lambda-meta | |
| 17704 | lambda? | |
| 17705 | make-dynlet | |
| 17706 | make-letrec | |
| 17707 | make-let | |
| 17708 | make-lambda-case | |
| 17709 | make-lambda | |
| 17710 | make-sequence | |
| 17711 | make-application | |
| 17712 | make-conditional | |
| 17713 | make-toplevel-define | |
| 17714 | make-toplevel-set | |
| 17715 | make-toplevel-ref | |
| 17716 | make-module-set | |
| 17717 | make-module-ref | |
| 17718 | make-lexical-set | |
| 17719 | make-lexical-ref | |
| 17720 | make-primitive-ref | |
| 17721 | make-const | |
| 17722 | make-void) | |
| 17723 | ((top) | |
| 17724 | (top) | |
| 17725 | (top) | |
| 17726 | (top) | |
| 17727 | (top) | |
| 17728 | (top) | |
| 17729 | (top) | |
| 17730 | (top) | |
| 17731 | (top) | |
| 17732 | (top) | |
| 17733 | (top) | |
| 17734 | (top) | |
| 17735 | (top) | |
| 17736 | (top) | |
| 17737 | (top) | |
| 17738 | (top) | |
| 17739 | (top) | |
| 17740 | (top) | |
| 17741 | (top) | |
| 17742 | (top) | |
| 17743 | (top) | |
| 17744 | (top) | |
| 17745 | (top) | |
| 17746 | (top) | |
| 17747 | (top) | |
| 17748 | (top) | |
| 17749 | (top) | |
| 17750 | (top) | |
| 17751 | (top) | |
| 17752 | (top) | |
| 17753 | (top) | |
| 17754 | (top) | |
| 17755 | (top) | |
| 17756 | (top) | |
| 17757 | (top) | |
| 17758 | (top) | |
| 17759 | (top) | |
| 17760 | (top) | |
| 17761 | (top) | |
| 17762 | (top) | |
| 17763 | (top) | |
| 17764 | (top) | |
| 17765 | (top) | |
| 17766 | (top) | |
| 17767 | (top) | |
| 17768 | (top) | |
| 17769 | (top) | |
| 17770 | (top) | |
| 17771 | (top) | |
| 17772 | (top) | |
| 17773 | (top) | |
| 17774 | (top) | |
| 17775 | (top) | |
| 17776 | (top) | |
| 17777 | (top) | |
| 17778 | (top) | |
| 17779 | (top) | |
| 17780 | (top) | |
| 17781 | (top) | |
| 17782 | (top) | |
| 17783 | (top) | |
| 17784 | (top) | |
| 17785 | (top) | |
| 17786 | (top) | |
| 17787 | (top) | |
| 17788 | (top) | |
| 17789 | (top) | |
| 17790 | (top) | |
| 17791 | (top) | |
| 17792 | (top) | |
| 17793 | (top) | |
| 17794 | (top) | |
| 17795 | (top) | |
| 17796 | (top) | |
| 17797 | (top) | |
| 17798 | (top) | |
| 17799 | (top) | |
| 17800 | (top) | |
| 17801 | (top) | |
| 17802 | (top) | |
| 17803 | (top) | |
| 17804 | (top) | |
| 17805 | (top) | |
| 17806 | (top) | |
| 17807 | (top) | |
| 17808 | (top) | |
| 17809 | (top) | |
| 17810 | (top) | |
| 17811 | (top) | |
| 17812 | (top) | |
| 17813 | (top) | |
| 17814 | (top) | |
| 17815 | (top) | |
| 17816 | (top) | |
| 17817 | (top) | |
| 17818 | (top) | |
| 17819 | (top) | |
| 17820 | (top) | |
| 17821 | (top) | |
| 17822 | (top) | |
| 17823 | (top) | |
| 17824 | (top) | |
| 17825 | (top) | |
| 17826 | (top) | |
| 17827 | (top) | |
| 17828 | (top) | |
| 17829 | (top) | |
| 17830 | (top) | |
| 17831 | (top) | |
| 17832 | (top) | |
| 17833 | (top) | |
| 17834 | (top) | |
| 17835 | (top) | |
| 17836 | (top) | |
| 17837 | (top) | |
| 17838 | (top) | |
| 17839 | (top) | |
| 17840 | (top) | |
| 17841 | (top) | |
| 17842 | (top) | |
| 17843 | (top) | |
| 17844 | (top) | |
| 17845 | (top) | |
| 17846 | (top) | |
| 17847 | (top) | |
| 17848 | (top) | |
| 17849 | (top) | |
| 17850 | (top) | |
| 17851 | (top) | |
| 17852 | (top) | |
| 17853 | (top) | |
| 17854 | (top) | |
| 17855 | (top) | |
| 17856 | (top) | |
| 17857 | (top) | |
| 17858 | (top)) | |
| 17859 | ("i466" | |
| 17860 | "i464" | |
| 17861 | "i462" | |
| 17862 | "i460" | |
| 17863 | "i458" | |
| 17864 | "i456" | |
| 17865 | "i454" | |
| 17866 | "i452" | |
| 17867 | "i450" | |
| 17868 | "i448" | |
| 17869 | "i446" | |
| 17870 | "i444" | |
| 17871 | "i442" | |
| 17872 | "i440" | |
| 17873 | "i438" | |
| 17874 | "i436" | |
| 17875 | "i434" | |
| 17876 | "i432" | |
| 17877 | "i430" | |
| 17878 | "i428" | |
| 17879 | "i426" | |
| 17880 | "i424" | |
| 17881 | "i422" | |
| 17882 | "i420" | |
| 17883 | "i418" | |
| 17884 | "i416" | |
| 17885 | "i414" | |
| 17886 | "i412" | |
| 17887 | "i410" | |
| 17888 | "i408" | |
| 17889 | "i406" | |
| 17890 | "i404" | |
| 17891 | "i402" | |
| 17892 | "i400" | |
| 17893 | "i398" | |
| 17894 | "i397" | |
| 17895 | "i395" | |
| 17896 | "i392" | |
| 17897 | "i391" | |
| 17898 | "i390" | |
| 17899 | "i388" | |
| 17900 | "i387" | |
| 17901 | "i385" | |
| 17902 | "i383" | |
| 17903 | "i381" | |
| 17904 | "i379" | |
| 17905 | "i377" | |
| 17906 | "i375" | |
| 17907 | "i373" | |
| 17908 | "i371" | |
| 17909 | "i368" | |
| 17910 | "i366" | |
| 17911 | "i365" | |
| 17912 | "i363" | |
| 17913 | "i361" | |
| 17914 | "i359" | |
| 17915 | "i357" | |
| 17916 | "i356" | |
| 17917 | "i355" | |
| 17918 | "i354" | |
| 17919 | "i352" | |
| 17920 | "i351" | |
| 17921 | "i348" | |
| 17922 | "i346" | |
| 17923 | "i344" | |
| 17924 | "i342" | |
| 17925 | "i340" | |
| 17926 | "i338" | |
| 17927 | "i336" | |
| 17928 | "i335" | |
| 17929 | "i334" | |
| 17930 | "i332" | |
| 17931 | "i330" | |
| 17932 | "i329" | |
| 17933 | "i326" | |
| 17934 | "i325" | |
| 17935 | "i323" | |
| 17936 | "i321" | |
| 17937 | "i319" | |
| 17938 | "i317" | |
| 17939 | "i315" | |
| 17940 | "i313" | |
| 17941 | "i311" | |
| 17942 | "i309" | |
| 17943 | "i307" | |
| 17944 | "i304" | |
| 17945 | "i302" | |
| 17946 | "i300" | |
| 17947 | "i298" | |
| 17948 | "i296" | |
| 17949 | "i294" | |
| 17950 | "i292" | |
| 17951 | "i290" | |
| 17952 | "i288" | |
| 17953 | "i286" | |
| 17954 | "i284" | |
| 17955 | "i282" | |
| 17956 | "i280" | |
| 17957 | "i278" | |
| 17958 | "i276" | |
| 17959 | "i274" | |
| 17960 | "i272" | |
| 17961 | "i270" | |
| 17962 | "i268" | |
| 17963 | "i266" | |
| 17964 | "i264" | |
| 17965 | "i262" | |
| 17966 | "i260" | |
| 17967 | "i259" | |
| 17968 | "i256" | |
| 17969 | "i254" | |
| 17970 | "i253" | |
| 17971 | "i252" | |
| 17972 | "i251" | |
| 17973 | "i250" | |
| 17974 | "i248" | |
| 17975 | "i246" | |
| 17976 | "i244" | |
| 17977 | "i241" | |
| 17978 | "i239" | |
| 17979 | "i237" | |
| 17980 | "i235" | |
| 17981 | "i233" | |
| 17982 | "i231" | |
| 17983 | "i229" | |
| 17984 | "i227" | |
| 17985 | "i225" | |
| 17986 | "i223" | |
| 17987 | "i221" | |
| 17988 | "i219" | |
| 17989 | "i217" | |
| 17990 | "i215" | |
| 17991 | "i213" | |
| 17992 | "i211" | |
| 17993 | "i209" | |
| 17994 | "i207")) | |
| 17995 | #(ribcage | |
| 17996 | (define-structure | |
| 17997 | define-expansion-accessors | |
| 17998 | define-expansion-constructors) | |
| 17999 | ((top) (top) (top)) | |
| 18000 | ("i45" "i44" "i43"))) | |
| 18001 | (hygiene guile)) | |
| 18002 | '(()))) | |
| 18003 | #f) | |
| 18004 | #f)) | |
| 18005 | #{tmp 3769}#) | |
| 18006 | #f) | |
| 18007 | (@apply | |
| 18008 | (lambda (#{x 3779}# #{dots 3780}# #{ys 3781}#) | |
| 18009 | (call-with-values | |
| 18010 | (lambda () | |
| 18011 | (#{cvt* 3716}# | |
| 18012 | #{ys 3781}# | |
| 18013 | #{n 3744}# | |
| 18014 | #{ids 3745}#)) | |
| 18015 | (lambda (#{ys 3782}# #{ids 3783}#) | |
| 18016 | (call-with-values | |
| 18017 | (lambda () | |
| 18018 | (#{cvt 3720}# | |
| 18019 | #{x 3779}# | |
| 18020 | (#{1+}# #{n 3744}#) | |
| 18021 | #{ids 3783}#)) | |
| 18022 | (lambda (#{x 3786}# #{ids 3787}#) | |
| 18023 | (call-with-values | |
| 18024 | (lambda () | |
| 18025 | (#{v-reverse 3718}# #{ys 3782}#)) | |
| 18026 | (lambda (#{ys 3790}# #{e 3791}#) | |
| 18027 | (values | |
| 18028 | (vector | |
| 18029 | 'each+ | |
| 18030 | #{x 3786}# | |
| 18031 | #{ys 3790}# | |
| 18032 | #{e 3791}#) | |
| 18033 | #{ids 3787}#)))))))) | |
| 18034 | #{tmp 3769}#) | |
| 18035 | (let ((#{tmp 3795}# | |
| 18036 | ($sc-dispatch #{p 3743}# '(any . any)))) | |
| 18037 | (if #{tmp 3795}# | |
| 18038 | (@apply | |
| 18039 | (lambda (#{x 3798}# #{y 3799}#) | |
| 18040 | (call-with-values | |
| 18041 | (lambda () | |
| 18042 | (#{cvt 3720}# | |
| 18043 | #{y 3799}# | |
| 18044 | #{n 3744}# | |
| 18045 | #{ids 3745}#)) | |
| 18046 | (lambda (#{y 3800}# #{ids 3801}#) | |
| 18047 | (call-with-values | |
| 18048 | (lambda () | |
| 18049 | (#{cvt 3720}# | |
| 18050 | #{x 3798}# | |
| 18051 | #{n 3744}# | |
| 18052 | #{ids 3801}#)) | |
| 18053 | (lambda (#{x 3804}# #{ids 3805}#) | |
| 18054 | (values | |
| 18055 | (cons #{x 3804}# #{y 3800}#) | |
| 18056 | #{ids 3805}#)))))) | |
| 18057 | #{tmp 3795}#) | |
| 18058 | (let ((#{tmp 3808}# | |
| 18059 | ($sc-dispatch #{p 3743}# '()))) | |
| 18060 | (if #{tmp 3808}# | |
| 18061 | (@apply | |
| 18062 | (lambda () (values '() #{ids 3745}#)) | |
| 18063 | #{tmp 3808}#) | |
| 18064 | (let ((#{tmp 3809}# | |
| 18065 | ($sc-dispatch | |
| 18066 | #{p 3743}# | |
| 18067 | '#(vector each-any)))) | |
| 18068 | (if #{tmp 3809}# | |
| 18069 | (@apply | |
| 18070 | (lambda (#{x 3811}#) | |
| 18071 | (call-with-values | |
| 18072 | (lambda () | |
| 18073 | (#{cvt 3720}# | |
| 18074 | #{x 3811}# | |
| 18075 | #{n 3744}# | |
| 18076 | #{ids 3745}#)) | |
| 18077 | (lambda (#{p 3813}# | |
| 18078 | #{ids 3814}#) | |
| 18079 | (values | |
| 18080 | (vector 'vector #{p 3813}#) | |
| 18081 | #{ids 3814}#)))) | |
| 18082 | #{tmp 3809}#) | |
| 18083 | (values | |
| 18084 | (vector | |
| 18085 | 'atom | |
| 18086 | (#{strip 463}# #{p 3743}# '(()))) | |
| 18087 | #{ids 3745}#))))))))))))))) | |
| 18088 | (#{cvt 3720}# #{pattern 3711}# 0 '())))) | |
| 18089 | (#{build-dispatch-call 3706}# | |
| 18090 | (lambda (#{pvars 3820}# | |
| 18091 | #{exp 3821}# | |
| 18092 | #{y 3822}# | |
| 18093 | #{r 3823}# | |
| 18094 | #{mod 3824}#) | |
| 18095 | (let ((#{ids 3832}# (map car #{pvars 3820}#))) | |
| 18096 | (begin | |
| 18097 | (map cdr #{pvars 3820}#) | |
| 18098 | (let ((#{labels 3836}# | |
| 18099 | (#{gen-labels 369}# #{ids 3832}#)) | |
| 18100 | (#{new-vars 3837}# | |
| 18101 | (map #{gen-var 465}# #{ids 3832}#))) | |
| 18102 | (#{build-application 271}# | |
| 18103 | #f | |
| 18104 | (if (equal? (module-name (current-module)) '(guile)) | |
| 18105 | (make-struct/no-tail | |
| 18106 | (vector-ref %expanded-vtables 7) | |
| 18107 | #f | |
| 18108 | 'apply) | |
| 18109 | (make-struct/no-tail | |
| 18110 | (vector-ref %expanded-vtables 5) | |
| 18111 | #f | |
| 18112 | '(guile) | |
| 18113 | 'apply | |
| 18114 | #f)) | |
| 18115 | (list (#{build-simple-lambda 289}# | |
| 18116 | #f | |
| 18117 | (map syntax->datum #{ids 3832}#) | |
| 18118 | #f | |
| 18119 | #{new-vars 3837}# | |
| 18120 | '() | |
| 18121 | (#{chi 437}# | |
| 18122 | #{exp 3821}# | |
| 18123 | (#{extend-env 337}# | |
| 18124 | #{labels 3836}# | |
| 18125 | (map (lambda (#{var 3841}# #{level 3842}#) | |
| 18126 | (cons 'syntax | |
| 18127 | (cons #{var 3841}# | |
| 18128 | #{level 3842}#))) | |
| 18129 | #{new-vars 3837}# | |
| 18130 | (map cdr #{pvars 3820}#)) | |
| 18131 | #{r 3823}#) | |
| 18132 | (#{make-binding-wrap 401}# | |
| 18133 | #{ids 3832}# | |
| 18134 | #{labels 3836}# | |
| 18135 | '(())) | |
| 18136 | #{mod 3824}#)) | |
| 18137 | #{y 3822}#))))))) | |
| 18138 | (#{gen-clause 3708}# | |
| 18139 | (lambda (#{x 3848}# | |
| 18140 | #{keys 3849}# | |
| 18141 | #{clauses 3850}# | |
| 18142 | #{r 3851}# | |
| 18143 | #{pat 3852}# | |
| 18144 | #{fender 3853}# | |
| 18145 | #{exp 3854}# | |
| 18146 | #{mod 3855}#) | |
| 18147 | (call-with-values | |
| 18148 | (lambda () | |
| 18149 | (#{convert-pattern 3704}# | |
| 18150 | #{pat 3852}# | |
| 18151 | #{keys 3849}#)) | |
| 18152 | (lambda (#{p 3864}# #{pvars 3865}#) | |
| 18153 | (if (not (#{distinct-bound-ids? 419}# | |
| 18154 | (map car #{pvars 3865}#))) | |
| 18155 | (syntax-violation | |
| 18156 | 'syntax-case | |
| 18157 | "duplicate pattern variable" | |
| 18158 | #{pat 3852}#) | |
| 18159 | (if (not (and-map | |
| 18160 | (lambda (#{x 3872}#) | |
| 18161 | (not (let ((#{x 9164}# (car #{x 3872}#))) | |
| 18162 | (if (if (if (vector? #{x 9164}#) | |
| 18163 | (if (= (vector-length | |
| 18164 | #{x 9164}#) | |
| 18165 | 4) | |
| 18166 | (eq? (vector-ref | |
| 18167 | #{x 9164}# | |
| 18168 | 0) | |
| 18169 | 'syntax-object) | |
| 18170 | #f) | |
| 18171 | #f) | |
| 18172 | (symbol? | |
| 18173 | (vector-ref #{x 9164}# 1)) | |
| 18174 | #f) | |
| 18175 | (if (eq? (if (if (vector? #{x 9164}#) | |
| 18176 | (if (= (vector-length | |
| 18177 | #{x 9164}#) | |
| 18178 | 4) | |
| 18179 | (eq? (vector-ref | |
| 18180 | #{x 9164}# | |
| 18181 | 0) | |
| 18182 | 'syntax-object) | |
| 18183 | #f) | |
| 18184 | #f) | |
| 18185 | (vector-ref #{x 9164}# 1) | |
| 18186 | #{x 9164}#) | |
| 18187 | (if (if (= (vector-length | |
| 18188 | '#(syntax-object | |
| 18189 | ... | |
| 18190 | ((top) | |
| 18191 | #(ribcage | |
| 18192 | () | |
| 18193 | () | |
| 18194 | ()) | |
| 18195 | #(ribcage | |
| 18196 | () | |
| 18197 | () | |
| 18198 | ()) | |
| 18199 | #(ribcage | |
| 18200 | #(x) | |
| 18201 | #((top)) | |
| 18202 | #("i2229")) | |
| 18203 | #(ribcage | |
| 18204 | (lambda-var-list | |
| 18205 | gen-var | |
| 18206 | strip | |
| 18207 | chi-lambda-case | |
| 18208 | lambda*-formals | |
| 18209 | chi-simple-lambda | |
| 18210 | lambda-formals | |
| 18211 | ellipsis? | |
| 18212 | chi-void | |
| 18213 | eval-local-transformer | |
| 18214 | chi-local-syntax | |
| 18215 | chi-body | |
| 18216 | chi-macro | |
| 18217 | chi-application | |
| 18218 | chi-expr | |
| 18219 | chi | |
| 18220 | syntax-type | |
| 18221 | chi-when-list | |
| 18222 | chi-install-global | |
| 18223 | chi-top-sequence | |
| 18224 | chi-sequence | |
| 18225 | source-wrap | |
| 18226 | wrap | |
| 18227 | bound-id-member? | |
| 18228 | distinct-bound-ids? | |
| 18229 | valid-bound-ids? | |
| 18230 | bound-id=? | |
| 18231 | free-id=? | |
| 18232 | id-var-name | |
| 18233 | same-marks? | |
| 18234 | join-marks | |
| 18235 | join-wraps | |
| 18236 | smart-append | |
| 18237 | make-binding-wrap | |
| 18238 | extend-ribcage! | |
| 18239 | make-empty-ribcage | |
| 18240 | new-mark | |
| 18241 | anti-mark | |
| 18242 | the-anti-mark | |
| 18243 | top-marked? | |
| 18244 | top-wrap | |
| 18245 | empty-wrap | |
| 18246 | set-ribcage-labels! | |
| 18247 | set-ribcage-marks! | |
| 18248 | set-ribcage-symnames! | |
| 18249 | ribcage-labels | |
| 18250 | ribcage-marks | |
| 18251 | ribcage-symnames | |
| 18252 | ribcage? | |
| 18253 | make-ribcage | |
| 18254 | gen-labels | |
| 18255 | gen-label | |
| 18256 | make-rename | |
| 18257 | rename-marks | |
| 18258 | rename-new | |
| 18259 | rename-old | |
| 18260 | subst-rename? | |
| 18261 | wrap-subst | |
| 18262 | wrap-marks | |
| 18263 | make-wrap | |
| 18264 | id-sym-name&marks | |
| 18265 | id-sym-name | |
| 18266 | id? | |
| 18267 | nonsymbol-id? | |
| 18268 | global-extend | |
| 18269 | lookup | |
| 18270 | macros-only-env | |
| 18271 | extend-var-env | |
| 18272 | extend-env | |
| 18273 | null-env | |
| 18274 | binding-value | |
| 18275 | binding-type | |
| 18276 | make-binding | |
| 18277 | arg-check | |
| 18278 | source-annotation | |
| 18279 | no-source | |
| 18280 | set-syntax-object-module! | |
| 18281 | set-syntax-object-wrap! | |
| 18282 | set-syntax-object-expression! | |
| 18283 | syntax-object-module | |
| 18284 | syntax-object-wrap | |
| 18285 | syntax-object-expression | |
| 18286 | syntax-object? | |
| 18287 | make-syntax-object | |
| 18288 | build-lexical-var | |
| 18289 | build-letrec | |
| 18290 | build-named-let | |
| 18291 | build-let | |
| 18292 | build-sequence | |
| 18293 | build-data | |
| 18294 | build-primref | |
| 18295 | build-lambda-case | |
| 18296 | build-case-lambda | |
| 18297 | build-simple-lambda | |
| 18298 | build-global-definition | |
| 18299 | build-global-assignment | |
| 18300 | build-global-reference | |
| 18301 | analyze-variable | |
| 18302 | build-lexical-assignment | |
| 18303 | build-lexical-reference | |
| 18304 | build-dynlet | |
| 18305 | build-conditional | |
| 18306 | build-application | |
| 18307 | build-void | |
| 18308 | maybe-name-value! | |
| 18309 | decorate-source | |
| 18310 | get-global-definition-hook | |
| 18311 | put-global-definition-hook | |
| 18312 | gensym-hook | |
| 18313 | local-eval-hook | |
| 18314 | top-level-eval-hook | |
| 18315 | fx< | |
| 18316 | fx= | |
| 18317 | fx- | |
| 18318 | fx+ | |
| 18319 | set-lambda-meta! | |
| 18320 | lambda-meta | |
| 18321 | lambda? | |
| 18322 | make-dynlet | |
| 18323 | make-letrec | |
| 18324 | make-let | |
| 18325 | make-lambda-case | |
| 18326 | make-lambda | |
| 18327 | make-sequence | |
| 18328 | make-application | |
| 18329 | make-conditional | |
| 18330 | make-toplevel-define | |
| 18331 | make-toplevel-set | |
| 18332 | make-toplevel-ref | |
| 18333 | make-module-set | |
| 18334 | make-module-ref | |
| 18335 | make-lexical-set | |
| 18336 | make-lexical-ref | |
| 18337 | make-primitive-ref | |
| 18338 | make-const | |
| 18339 | make-void) | |
| 18340 | ((top) | |
| 18341 | (top) | |
| 18342 | (top) | |
| 18343 | (top) | |
| 18344 | (top) | |
| 18345 | (top) | |
| 18346 | (top) | |
| 18347 | (top) | |
| 18348 | (top) | |
| 18349 | (top) | |
| 18350 | (top) | |
| 18351 | (top) | |
| 18352 | (top) | |
| 18353 | (top) | |
| 18354 | (top) | |
| 18355 | (top) | |
| 18356 | (top) | |
| 18357 | (top) | |
| 18358 | (top) | |
| 18359 | (top) | |
| 18360 | (top) | |
| 18361 | (top) | |
| 18362 | (top) | |
| 18363 | (top) | |
| 18364 | (top) | |
| 18365 | (top) | |
| 18366 | (top) | |
| 18367 | (top) | |
| 18368 | (top) | |
| 18369 | (top) | |
| 18370 | (top) | |
| 18371 | (top) | |
| 18372 | (top) | |
| 18373 | (top) | |
| 18374 | (top) | |
| 18375 | (top) | |
| 18376 | (top) | |
| 18377 | (top) | |
| 18378 | (top) | |
| 18379 | (top) | |
| 18380 | (top) | |
| 18381 | (top) | |
| 18382 | (top) | |
| 18383 | (top) | |
| 18384 | (top) | |
| 18385 | (top) | |
| 18386 | (top) | |
| 18387 | (top) | |
| 18388 | (top) | |
| 18389 | (top) | |
| 18390 | (top) | |
| 18391 | (top) | |
| 18392 | (top) | |
| 18393 | (top) | |
| 18394 | (top) | |
| 18395 | (top) | |
| 18396 | (top) | |
| 18397 | (top) | |
| 18398 | (top) | |
| 18399 | (top) | |
| 18400 | (top) | |
| 18401 | (top) | |
| 18402 | (top) | |
| 18403 | (top) | |
| 18404 | (top) | |
| 18405 | (top) | |
| 18406 | (top) | |
| 18407 | (top) | |
| 18408 | (top) | |
| 18409 | (top) | |
| 18410 | (top) | |
| 18411 | (top) | |
| 18412 | (top) | |
| 18413 | (top) | |
| 18414 | (top) | |
| 18415 | (top) | |
| 18416 | (top) | |
| 18417 | (top) | |
| 18418 | (top) | |
| 18419 | (top) | |
| 18420 | (top) | |
| 18421 | (top) | |
| 18422 | (top) | |
| 18423 | (top) | |
| 18424 | (top) | |
| 18425 | (top) | |
| 18426 | (top) | |
| 18427 | (top) | |
| 18428 | (top) | |
| 18429 | (top) | |
| 18430 | (top) | |
| 18431 | (top) | |
| 18432 | (top) | |
| 18433 | (top) | |
| 18434 | (top) | |
| 18435 | (top) | |
| 18436 | (top) | |
| 18437 | (top) | |
| 18438 | (top) | |
| 18439 | (top) | |
| 18440 | (top) | |
| 18441 | (top) | |
| 18442 | (top) | |
| 18443 | (top) | |
| 18444 | (top) | |
| 18445 | (top) | |
| 18446 | (top) | |
| 18447 | (top) | |
| 18448 | (top) | |
| 18449 | (top) | |
| 18450 | (top) | |
| 18451 | (top) | |
| 18452 | (top) | |
| 18453 | (top) | |
| 18454 | (top) | |
| 18455 | (top) | |
| 18456 | (top) | |
| 18457 | (top) | |
| 18458 | (top) | |
| 18459 | (top) | |
| 18460 | (top) | |
| 18461 | (top) | |
| 18462 | (top) | |
| 18463 | (top) | |
| 18464 | (top) | |
| 18465 | (top) | |
| 18466 | (top) | |
| 18467 | (top) | |
| 18468 | (top) | |
| 18469 | (top) | |
| 18470 | (top) | |
| 18471 | (top) | |
| 18472 | (top) | |
| 18473 | (top) | |
| 18474 | (top) | |
| 18475 | (top)) | |
| 18476 | ("i466" | |
| 18477 | "i464" | |
| 18478 | "i462" | |
| 18479 | "i460" | |
| 18480 | "i458" | |
| 18481 | "i456" | |
| 18482 | "i454" | |
| 18483 | "i452" | |
| 18484 | "i450" | |
| 18485 | "i448" | |
| 18486 | "i446" | |
| 18487 | "i444" | |
| 18488 | "i442" | |
| 18489 | "i440" | |
| 18490 | "i438" | |
| 18491 | "i436" | |
| 18492 | "i434" | |
| 18493 | "i432" | |
| 18494 | "i430" | |
| 18495 | "i428" | |
| 18496 | "i426" | |
| 18497 | "i424" | |
| 18498 | "i422" | |
| 18499 | "i420" | |
| 18500 | "i418" | |
| 18501 | "i416" | |
| 18502 | "i414" | |
| 18503 | "i412" | |
| 18504 | "i410" | |
| 18505 | "i408" | |
| 18506 | "i406" | |
| 18507 | "i404" | |
| 18508 | "i402" | |
| 18509 | "i400" | |
| 18510 | "i398" | |
| 18511 | "i397" | |
| 18512 | "i395" | |
| 18513 | "i392" | |
| 18514 | "i391" | |
| 18515 | "i390" | |
| 18516 | "i388" | |
| 18517 | "i387" | |
| 18518 | "i385" | |
| 18519 | "i383" | |
| 18520 | "i381" | |
| 18521 | "i379" | |
| 18522 | "i377" | |
| 18523 | "i375" | |
| 18524 | "i373" | |
| 18525 | "i371" | |
| 18526 | "i368" | |
| 18527 | "i366" | |
| 18528 | "i365" | |
| 18529 | "i363" | |
| 18530 | "i361" | |
| 18531 | "i359" | |
| 18532 | "i357" | |
| 18533 | "i356" | |
| 18534 | "i355" | |
| 18535 | "i354" | |
| 18536 | "i352" | |
| 18537 | "i351" | |
| 18538 | "i348" | |
| 18539 | "i346" | |
| 18540 | "i344" | |
| 18541 | "i342" | |
| 18542 | "i340" | |
| 18543 | "i338" | |
| 18544 | "i336" | |
| 18545 | "i335" | |
| 18546 | "i334" | |
| 18547 | "i332" | |
| 18548 | "i330" | |
| 18549 | "i329" | |
| 18550 | "i326" | |
| 18551 | "i325" | |
| 18552 | "i323" | |
| 18553 | "i321" | |
| 18554 | "i319" | |
| 18555 | "i317" | |
| 18556 | "i315" | |
| 18557 | "i313" | |
| 18558 | "i311" | |
| 18559 | "i309" | |
| 18560 | "i307" | |
| 18561 | "i304" | |
| 18562 | "i302" | |
| 18563 | "i300" | |
| 18564 | "i298" | |
| 18565 | "i296" | |
| 18566 | "i294" | |
| 18567 | "i292" | |
| 18568 | "i290" | |
| 18569 | "i288" | |
| 18570 | "i286" | |
| 18571 | "i284" | |
| 18572 | "i282" | |
| 18573 | "i280" | |
| 18574 | "i278" | |
| 18575 | "i276" | |
| 18576 | "i274" | |
| 18577 | "i272" | |
| 18578 | "i270" | |
| 18579 | "i268" | |
| 18580 | "i266" | |
| 18581 | "i264" | |
| 18582 | "i262" | |
| 18583 | "i260" | |
| 18584 | "i259" | |
| 18585 | "i256" | |
| 18586 | "i254" | |
| 18587 | "i253" | |
| 18588 | "i252" | |
| 18589 | "i251" | |
| 18590 | "i250" | |
| 18591 | "i248" | |
| 18592 | "i246" | |
| 18593 | "i244" | |
| 18594 | "i241" | |
| 18595 | "i239" | |
| 18596 | "i237" | |
| 18597 | "i235" | |
| 18598 | "i233" | |
| 18599 | "i231" | |
| 18600 | "i229" | |
| 18601 | "i227" | |
| 18602 | "i225" | |
| 18603 | "i223" | |
| 18604 | "i221" | |
| 18605 | "i219" | |
| 18606 | "i217" | |
| 18607 | "i215" | |
| 18608 | "i213" | |
| 18609 | "i211" | |
| 18610 | "i209" | |
| 18611 | "i207")) | |
| 18612 | #(ribcage | |
| 18613 | (define-structure | |
| 18614 | define-expansion-accessors | |
| 18615 | define-expansion-constructors) | |
| 18616 | ((top) | |
| 18617 | (top) | |
| 18618 | (top)) | |
| 18619 | ("i45" | |
| 18620 | "i44" | |
| 18621 | "i43"))) | |
| 18622 | (hygiene | |
| 18623 | guile))) | |
| 18624 | 4) | |
| 18625 | (eq? (vector-ref | |
| 18626 | '#(syntax-object | |
| 18627 | ... | |
| 18628 | ((top) | |
| 18629 | #(ribcage | |
| 18630 | () | |
| 18631 | () | |
| 18632 | ()) | |
| 18633 | #(ribcage | |
| 18634 | () | |
| 18635 | () | |
| 18636 | ()) | |
| 18637 | #(ribcage | |
| 18638 | #(x) | |
| 18639 | #((top)) | |
| 18640 | #("i2229")) | |
| 18641 | #(ribcage | |
| 18642 | (lambda-var-list | |
| 18643 | gen-var | |
| 18644 | strip | |
| 18645 | chi-lambda-case | |
| 18646 | lambda*-formals | |
| 18647 | chi-simple-lambda | |
| 18648 | lambda-formals | |
| 18649 | ellipsis? | |
| 18650 | chi-void | |
| 18651 | eval-local-transformer | |
| 18652 | chi-local-syntax | |
| 18653 | chi-body | |
| 18654 | chi-macro | |
| 18655 | chi-application | |
| 18656 | chi-expr | |
| 18657 | chi | |
| 18658 | syntax-type | |
| 18659 | chi-when-list | |
| 18660 | chi-install-global | |
| 18661 | chi-top-sequence | |
| 18662 | chi-sequence | |
| 18663 | source-wrap | |
| 18664 | wrap | |
| 18665 | bound-id-member? | |
| 18666 | distinct-bound-ids? | |
| 18667 | valid-bound-ids? | |
| 18668 | bound-id=? | |
| 18669 | free-id=? | |
| 18670 | id-var-name | |
| 18671 | same-marks? | |
| 18672 | join-marks | |
| 18673 | join-wraps | |
| 18674 | smart-append | |
| 18675 | make-binding-wrap | |
| 18676 | extend-ribcage! | |
| 18677 | make-empty-ribcage | |
| 18678 | new-mark | |
| 18679 | anti-mark | |
| 18680 | the-anti-mark | |
| 18681 | top-marked? | |
| 18682 | top-wrap | |
| 18683 | empty-wrap | |
| 18684 | set-ribcage-labels! | |
| 18685 | set-ribcage-marks! | |
| 18686 | set-ribcage-symnames! | |
| 18687 | ribcage-labels | |
| 18688 | ribcage-marks | |
| 18689 | ribcage-symnames | |
| 18690 | ribcage? | |
| 18691 | make-ribcage | |
| 18692 | gen-labels | |
| 18693 | gen-label | |
| 18694 | make-rename | |
| 18695 | rename-marks | |
| 18696 | rename-new | |
| 18697 | rename-old | |
| 18698 | subst-rename? | |
| 18699 | wrap-subst | |
| 18700 | wrap-marks | |
| 18701 | make-wrap | |
| 18702 | id-sym-name&marks | |
| 18703 | id-sym-name | |
| 18704 | id? | |
| 18705 | nonsymbol-id? | |
| 18706 | global-extend | |
| 18707 | lookup | |
| 18708 | macros-only-env | |
| 18709 | extend-var-env | |
| 18710 | extend-env | |
| 18711 | null-env | |
| 18712 | binding-value | |
| 18713 | binding-type | |
| 18714 | make-binding | |
| 18715 | arg-check | |
| 18716 | source-annotation | |
| 18717 | no-source | |
| 18718 | set-syntax-object-module! | |
| 18719 | set-syntax-object-wrap! | |
| 18720 | set-syntax-object-expression! | |
| 18721 | syntax-object-module | |
| 18722 | syntax-object-wrap | |
| 18723 | syntax-object-expression | |
| 18724 | syntax-object? | |
| 18725 | make-syntax-object | |
| 18726 | build-lexical-var | |
| 18727 | build-letrec | |
| 18728 | build-named-let | |
| 18729 | build-let | |
| 18730 | build-sequence | |
| 18731 | build-data | |
| 18732 | build-primref | |
| 18733 | build-lambda-case | |
| 18734 | build-case-lambda | |
| 18735 | build-simple-lambda | |
| 18736 | build-global-definition | |
| 18737 | build-global-assignment | |
| 18738 | build-global-reference | |
| 18739 | analyze-variable | |
| 18740 | build-lexical-assignment | |
| 18741 | build-lexical-reference | |
| 18742 | build-dynlet | |
| 18743 | build-conditional | |
| 18744 | build-application | |
| 18745 | build-void | |
| 18746 | maybe-name-value! | |
| 18747 | decorate-source | |
| 18748 | get-global-definition-hook | |
| 18749 | put-global-definition-hook | |
| 18750 | gensym-hook | |
| 18751 | local-eval-hook | |
| 18752 | top-level-eval-hook | |
| 18753 | fx< | |
| 18754 | fx= | |
| 18755 | fx- | |
| 18756 | fx+ | |
| 18757 | set-lambda-meta! | |
| 18758 | lambda-meta | |
| 18759 | lambda? | |
| 18760 | make-dynlet | |
| 18761 | make-letrec | |
| 18762 | make-let | |
| 18763 | make-lambda-case | |
| 18764 | make-lambda | |
| 18765 | make-sequence | |
| 18766 | make-application | |
| 18767 | make-conditional | |
| 18768 | make-toplevel-define | |
| 18769 | make-toplevel-set | |
| 18770 | make-toplevel-ref | |
| 18771 | make-module-set | |
| 18772 | make-module-ref | |
| 18773 | make-lexical-set | |
| 18774 | make-lexical-ref | |
| 18775 | make-primitive-ref | |
| 18776 | make-const | |
| 18777 | make-void) | |
| 18778 | ((top) | |
| 18779 | (top) | |
| 18780 | (top) | |
| 18781 | (top) | |
| 18782 | (top) | |
| 18783 | (top) | |
| 18784 | (top) | |
| 18785 | (top) | |
| 18786 | (top) | |
| 18787 | (top) | |
| 18788 | (top) | |
| 18789 | (top) | |
| 18790 | (top) | |
| 18791 | (top) | |
| 18792 | (top) | |
| 18793 | (top) | |
| 18794 | (top) | |
| 18795 | (top) | |
| 18796 | (top) | |
| 18797 | (top) | |
| 18798 | (top) | |
| 18799 | (top) | |
| 18800 | (top) | |
| 18801 | (top) | |
| 18802 | (top) | |
| 18803 | (top) | |
| 18804 | (top) | |
| 18805 | (top) | |
| 18806 | (top) | |
| 18807 | (top) | |
| 18808 | (top) | |
| 18809 | (top) | |
| 18810 | (top) | |
| 18811 | (top) | |
| 18812 | (top) | |
| 18813 | (top) | |
| 18814 | (top) | |
| 18815 | (top) | |
| 18816 | (top) | |
| 18817 | (top) | |
| 18818 | (top) | |
| 18819 | (top) | |
| 18820 | (top) | |
| 18821 | (top) | |
| 18822 | (top) | |
| 18823 | (top) | |
| 18824 | (top) | |
| 18825 | (top) | |
| 18826 | (top) | |
| 18827 | (top) | |
| 18828 | (top) | |
| 18829 | (top) | |
| 18830 | (top) | |
| 18831 | (top) | |
| 18832 | (top) | |
| 18833 | (top) | |
| 18834 | (top) | |
| 18835 | (top) | |
| 18836 | (top) | |
| 18837 | (top) | |
| 18838 | (top) | |
| 18839 | (top) | |
| 18840 | (top) | |
| 18841 | (top) | |
| 18842 | (top) | |
| 18843 | (top) | |
| 18844 | (top) | |
| 18845 | (top) | |
| 18846 | (top) | |
| 18847 | (top) | |
| 18848 | (top) | |
| 18849 | (top) | |
| 18850 | (top) | |
| 18851 | (top) | |
| 18852 | (top) | |
| 18853 | (top) | |
| 18854 | (top) | |
| 18855 | (top) | |
| 18856 | (top) | |
| 18857 | (top) | |
| 18858 | (top) | |
| 18859 | (top) | |
| 18860 | (top) | |
| 18861 | (top) | |
| 18862 | (top) | |
| 18863 | (top) | |
| 18864 | (top) | |
| 18865 | (top) | |
| 18866 | (top) | |
| 18867 | (top) | |
| 18868 | (top) | |
| 18869 | (top) | |
| 18870 | (top) | |
| 18871 | (top) | |
| 18872 | (top) | |
| 18873 | (top) | |
| 18874 | (top) | |
| 18875 | (top) | |
| 18876 | (top) | |
| 18877 | (top) | |
| 18878 | (top) | |
| 18879 | (top) | |
| 18880 | (top) | |
| 18881 | (top) | |
| 18882 | (top) | |
| 18883 | (top) | |
| 18884 | (top) | |
| 18885 | (top) | |
| 18886 | (top) | |
| 18887 | (top) | |
| 18888 | (top) | |
| 18889 | (top) | |
| 18890 | (top) | |
| 18891 | (top) | |
| 18892 | (top) | |
| 18893 | (top) | |
| 18894 | (top) | |
| 18895 | (top) | |
| 18896 | (top) | |
| 18897 | (top) | |
| 18898 | (top) | |
| 18899 | (top) | |
| 18900 | (top) | |
| 18901 | (top) | |
| 18902 | (top) | |
| 18903 | (top) | |
| 18904 | (top) | |
| 18905 | (top) | |
| 18906 | (top) | |
| 18907 | (top) | |
| 18908 | (top) | |
| 18909 | (top) | |
| 18910 | (top) | |
| 18911 | (top) | |
| 18912 | (top) | |
| 18913 | (top)) | |
| 18914 | ("i466" | |
| 18915 | "i464" | |
| 18916 | "i462" | |
| 18917 | "i460" | |
| 18918 | "i458" | |
| 18919 | "i456" | |
| 18920 | "i454" | |
| 18921 | "i452" | |
| 18922 | "i450" | |
| 18923 | "i448" | |
| 18924 | "i446" | |
| 18925 | "i444" | |
| 18926 | "i442" | |
| 18927 | "i440" | |
| 18928 | "i438" | |
| 18929 | "i436" | |
| 18930 | "i434" | |
| 18931 | "i432" | |
| 18932 | "i430" | |
| 18933 | "i428" | |
| 18934 | "i426" | |
| 18935 | "i424" | |
| 18936 | "i422" | |
| 18937 | "i420" | |
| 18938 | "i418" | |
| 18939 | "i416" | |
| 18940 | "i414" | |
| 18941 | "i412" | |
| 18942 | "i410" | |
| 18943 | "i408" | |
| 18944 | "i406" | |
| 18945 | "i404" | |
| 18946 | "i402" | |
| 18947 | "i400" | |
| 18948 | "i398" | |
| 18949 | "i397" | |
| 18950 | "i395" | |
| 18951 | "i392" | |
| 18952 | "i391" | |
| 18953 | "i390" | |
| 18954 | "i388" | |
| 18955 | "i387" | |
| 18956 | "i385" | |
| 18957 | "i383" | |
| 18958 | "i381" | |
| 18959 | "i379" | |
| 18960 | "i377" | |
| 18961 | "i375" | |
| 18962 | "i373" | |
| 18963 | "i371" | |
| 18964 | "i368" | |
| 18965 | "i366" | |
| 18966 | "i365" | |
| 18967 | "i363" | |
| 18968 | "i361" | |
| 18969 | "i359" | |
| 18970 | "i357" | |
| 18971 | "i356" | |
| 18972 | "i355" | |
| 18973 | "i354" | |
| 18974 | "i352" | |
| 18975 | "i351" | |
| 18976 | "i348" | |
| 18977 | "i346" | |
| 18978 | "i344" | |
| 18979 | "i342" | |
| 18980 | "i340" | |
| 18981 | "i338" | |
| 18982 | "i336" | |
| 18983 | "i335" | |
| 18984 | "i334" | |
| 18985 | "i332" | |
| 18986 | "i330" | |
| 18987 | "i329" | |
| 18988 | "i326" | |
| 18989 | "i325" | |
| 18990 | "i323" | |
| 18991 | "i321" | |
| 18992 | "i319" | |
| 18993 | "i317" | |
| 18994 | "i315" | |
| 18995 | "i313" | |
| 18996 | "i311" | |
| 18997 | "i309" | |
| 18998 | "i307" | |
| 18999 | "i304" | |
| 19000 | "i302" | |
| 19001 | "i300" | |
| 19002 | "i298" | |
| 19003 | "i296" | |
| 19004 | "i294" | |
| 19005 | "i292" | |
| 19006 | "i290" | |
| 19007 | "i288" | |
| 19008 | "i286" | |
| 19009 | "i284" | |
| 19010 | "i282" | |
| 19011 | "i280" | |
| 19012 | "i278" | |
| 19013 | "i276" | |
| 19014 | "i274" | |
| 19015 | "i272" | |
| 19016 | "i270" | |
| 19017 | "i268" | |
| 19018 | "i266" | |
| 19019 | "i264" | |
| 19020 | "i262" | |
| 19021 | "i260" | |
| 19022 | "i259" | |
| 19023 | "i256" | |
| 19024 | "i254" | |
| 19025 | "i253" | |
| 19026 | "i252" | |
| 19027 | "i251" | |
| 19028 | "i250" | |
| 19029 | "i248" | |
| 19030 | "i246" | |
| 19031 | "i244" | |
| 19032 | "i241" | |
| 19033 | "i239" | |
| 19034 | "i237" | |
| 19035 | "i235" | |
| 19036 | "i233" | |
| 19037 | "i231" | |
| 19038 | "i229" | |
| 19039 | "i227" | |
| 19040 | "i225" | |
| 19041 | "i223" | |
| 19042 | "i221" | |
| 19043 | "i219" | |
| 19044 | "i217" | |
| 19045 | "i215" | |
| 19046 | "i213" | |
| 19047 | "i211" | |
| 19048 | "i209" | |
| 19049 | "i207")) | |
| 19050 | #(ribcage | |
| 19051 | (define-structure | |
| 19052 | define-expansion-accessors | |
| 19053 | define-expansion-constructors) | |
| 19054 | ((top) | |
| 19055 | (top) | |
| 19056 | (top)) | |
| 19057 | ("i45" | |
| 19058 | "i44" | |
| 19059 | "i43"))) | |
| 19060 | (hygiene | |
| 19061 | guile)) | |
| 19062 | 0) | |
| 19063 | 'syntax-object) | |
| 19064 | #f) | |
| 19065 | (vector-ref | |
| df40b969 AW |
19066 | '#(syntax-object |
| 19067 | ... | |
| 19068 | ((top) | |
| 19069 | #(ribcage () () ()) | |
| 19070 | #(ribcage () () ()) | |
| 19071 | #(ribcage | |
| 19072 | #(x) | |
| 19073 | #((top)) | |
| 014de9e2 | 19074 | #("i2229")) |
| df40b969 AW |
19075 | #(ribcage |
| 19076 | (lambda-var-list | |
| 19077 | gen-var | |
| 19078 | strip | |
| 19079 | chi-lambda-case | |
| 19080 | lambda*-formals | |
| 19081 | chi-simple-lambda | |
| 19082 | lambda-formals | |
| 19083 | ellipsis? | |
| 19084 | chi-void | |
| 19085 | eval-local-transformer | |
| 19086 | chi-local-syntax | |
| 19087 | chi-body | |
| 19088 | chi-macro | |
| 19089 | chi-application | |
| 19090 | chi-expr | |
| 19091 | chi | |
| 19092 | syntax-type | |
| 19093 | chi-when-list | |
| 19094 | chi-install-global | |
| 19095 | chi-top-sequence | |
| 19096 | chi-sequence | |
| 19097 | source-wrap | |
| 19098 | wrap | |
| 19099 | bound-id-member? | |
| 19100 | distinct-bound-ids? | |
| 19101 | valid-bound-ids? | |
| 19102 | bound-id=? | |
| 19103 | free-id=? | |
| 19104 | id-var-name | |
| 19105 | same-marks? | |
| 19106 | join-marks | |
| 19107 | join-wraps | |
| 19108 | smart-append | |
| 19109 | make-binding-wrap | |
| 19110 | extend-ribcage! | |
| 19111 | make-empty-ribcage | |
| 19112 | new-mark | |
| 19113 | anti-mark | |
| 19114 | the-anti-mark | |
| 19115 | top-marked? | |
| 19116 | top-wrap | |
| 19117 | empty-wrap | |
| 19118 | set-ribcage-labels! | |
| 19119 | set-ribcage-marks! | |
| 19120 | set-ribcage-symnames! | |
| 19121 | ribcage-labels | |
| 19122 | ribcage-marks | |
| 19123 | ribcage-symnames | |
| 19124 | ribcage? | |
| 19125 | make-ribcage | |
| 19126 | gen-labels | |
| 19127 | gen-label | |
| 19128 | make-rename | |
| 19129 | rename-marks | |
| 19130 | rename-new | |
| 19131 | rename-old | |
| 19132 | subst-rename? | |
| 19133 | wrap-subst | |
| 19134 | wrap-marks | |
| 19135 | make-wrap | |
| 19136 | id-sym-name&marks | |
| 19137 | id-sym-name | |
| 19138 | id? | |
| 19139 | nonsymbol-id? | |
| 19140 | global-extend | |
| 19141 | lookup | |
| 19142 | macros-only-env | |
| 19143 | extend-var-env | |
| 19144 | extend-env | |
| 19145 | null-env | |
| 19146 | binding-value | |
| 19147 | binding-type | |
| 19148 | make-binding | |
| 19149 | arg-check | |
| 19150 | source-annotation | |
| 19151 | no-source | |
| 19152 | set-syntax-object-module! | |
| 19153 | set-syntax-object-wrap! | |
| 19154 | set-syntax-object-expression! | |
| 19155 | syntax-object-module | |
| 19156 | syntax-object-wrap | |
| 19157 | syntax-object-expression | |
| 19158 | syntax-object? | |
| 19159 | make-syntax-object | |
| 19160 | build-lexical-var | |
| 19161 | build-letrec | |
| 19162 | build-named-let | |
| 19163 | build-let | |
| 19164 | build-sequence | |
| 19165 | build-data | |
| 19166 | build-primref | |
| 19167 | build-lambda-case | |
| 19168 | build-case-lambda | |
| 19169 | build-simple-lambda | |
| 19170 | build-global-definition | |
| 19171 | build-global-assignment | |
| 19172 | build-global-reference | |
| 19173 | analyze-variable | |
| 19174 | build-lexical-assignment | |
| 19175 | build-lexical-reference | |
| 19176 | build-dynlet | |
| 19177 | build-conditional | |
| 19178 | build-application | |
| 19179 | build-void | |
| 19180 | maybe-name-value! | |
| 19181 | decorate-source | |
| 19182 | get-global-definition-hook | |
| 19183 | put-global-definition-hook | |
| 19184 | gensym-hook | |
| 19185 | local-eval-hook | |
| 19186 | top-level-eval-hook | |
| 19187 | fx< | |
| 19188 | fx= | |
| 19189 | fx- | |
| 19190 | fx+ | |
| 19191 | set-lambda-meta! | |
| 19192 | lambda-meta | |
| 19193 | lambda? | |
| 19194 | make-dynlet | |
| 19195 | make-letrec | |
| 19196 | make-let | |
| 19197 | make-lambda-case | |
| 19198 | make-lambda | |
| 19199 | make-sequence | |
| 19200 | make-application | |
| 19201 | make-conditional | |
| 19202 | make-toplevel-define | |
| 19203 | make-toplevel-set | |
| 19204 | make-toplevel-ref | |
| 19205 | make-module-set | |
| 19206 | make-module-ref | |
| 19207 | make-lexical-set | |
| 19208 | make-lexical-ref | |
| 19209 | make-primitive-ref | |
| 19210 | make-const | |
| 19211 | make-void) | |
| 19212 | ((top) | |
| 19213 | (top) | |
| 19214 | (top) | |
| 19215 | (top) | |
| 19216 | (top) | |
| 19217 | (top) | |
| 19218 | (top) | |
| 19219 | (top) | |
| 19220 | (top) | |
| 19221 | (top) | |
| 19222 | (top) | |
| 19223 | (top) | |
| 19224 | (top) | |
| 19225 | (top) | |
| 19226 | (top) | |
| 19227 | (top) | |
| 19228 | (top) | |
| 19229 | (top) | |
| 19230 | (top) | |
| 19231 | (top) | |
| 19232 | (top) | |
| 19233 | (top) | |
| 19234 | (top) | |
| 19235 | (top) | |
| 19236 | (top) | |
| 19237 | (top) | |
| 19238 | (top) | |
| 19239 | (top) | |
| 19240 | (top) | |
| 19241 | (top) | |
| 19242 | (top) | |
| 19243 | (top) | |
| 19244 | (top) | |
| 19245 | (top) | |
| 19246 | (top) | |
| 19247 | (top) | |
| 19248 | (top) | |
| 19249 | (top) | |
| 19250 | (top) | |
| 19251 | (top) | |
| 19252 | (top) | |
| 19253 | (top) | |
| 19254 | (top) | |
| 19255 | (top) | |
| 19256 | (top) | |
| 19257 | (top) | |
| 19258 | (top) | |
| 19259 | (top) | |
| 19260 | (top) | |
| 19261 | (top) | |
| 19262 | (top) | |
| 19263 | (top) | |
| 19264 | (top) | |
| 19265 | (top) | |
| 19266 | (top) | |
| 19267 | (top) | |
| 19268 | (top) | |
| 19269 | (top) | |
| 19270 | (top) | |
| 19271 | (top) | |
| 19272 | (top) | |
| 19273 | (top) | |
| 19274 | (top) | |
| 19275 | (top) | |
| 19276 | (top) | |
| 19277 | (top) | |
| 19278 | (top) | |
| 19279 | (top) | |
| 19280 | (top) | |
| 19281 | (top) | |
| 19282 | (top) | |
| 19283 | (top) | |
| 19284 | (top) | |
| 19285 | (top) | |
| 19286 | (top) | |
| 19287 | (top) | |
| 19288 | (top) | |
| 19289 | (top) | |
| 19290 | (top) | |
| 19291 | (top) | |
| 19292 | (top) | |
| 19293 | (top) | |
| 19294 | (top) | |
| 19295 | (top) | |
| 19296 | (top) | |
| 19297 | (top) | |
| 19298 | (top) | |
| 19299 | (top) | |
| 19300 | (top) | |
| 19301 | (top) | |
| 19302 | (top) | |
| 19303 | (top) | |
| 19304 | (top) | |
| 19305 | (top) | |
| 19306 | (top) | |
| 19307 | (top) | |
| 19308 | (top) | |
| 19309 | (top) | |
| 19310 | (top) | |
| 19311 | (top) | |
| 19312 | (top) | |
| 19313 | (top) | |
| 19314 | (top) | |
| 19315 | (top) | |
| 19316 | (top) | |
| 19317 | (top) | |
| 19318 | (top) | |
| 19319 | (top) | |
| 19320 | (top) | |
| 19321 | (top) | |
| 19322 | (top) | |
| 19323 | (top) | |
| 19324 | (top) | |
| 19325 | (top) | |
| 19326 | (top) | |
| 19327 | (top) | |
| 19328 | (top) | |
| 19329 | (top) | |
| 19330 | (top) | |
| 19331 | (top) | |
| 19332 | (top) | |
| 19333 | (top) | |
| 19334 | (top) | |
| 19335 | (top) | |
| 19336 | (top) | |
| 19337 | (top) | |
| 19338 | (top) | |
| 19339 | (top) | |
| 19340 | (top) | |
| 19341 | (top) | |
| 19342 | (top) | |
| 19343 | (top) | |
| 19344 | (top) | |
| 19345 | (top) | |
| 19346 | (top) | |
| 19347 | (top)) | |
| 014de9e2 AW |
19348 | ("i466" |
| 19349 | "i464" | |
| 19350 | "i462" | |
| 19351 | "i460" | |
| 19352 | "i458" | |
| 19353 | "i456" | |
| 19354 | "i454" | |
| 19355 | "i452" | |
| 19356 | "i450" | |
| 19357 | "i448" | |
| 19358 | "i446" | |
| 19359 | "i444" | |
| 19360 | "i442" | |
| 19361 | "i440" | |
| 19362 | "i438" | |
| 19363 | "i436" | |
| 19364 | "i434" | |
| 19365 | "i432" | |
| 19366 | "i430" | |
| 19367 | "i428" | |
| 19368 | "i426" | |
| 19369 | "i424" | |
| 19370 | "i422" | |
| 19371 | "i420" | |
| 19372 | "i418" | |
| 19373 | "i416" | |
| 19374 | "i414" | |
| 19375 | "i412" | |
| 19376 | "i410" | |
| 19377 | "i408" | |
| 19378 | "i406" | |
| 19379 | "i404" | |
| 19380 | "i402" | |
| 19381 | "i400" | |
| 19382 | "i398" | |
| 19383 | "i397" | |
| 19384 | "i395" | |
| 19385 | "i392" | |
| 19386 | "i391" | |
| 19387 | "i390" | |
| 19388 | "i388" | |
| 19389 | "i387" | |
| 19390 | "i385" | |
| 19391 | "i383" | |
| 19392 | "i381" | |
| 19393 | "i379" | |
| 19394 | "i377" | |
| 19395 | "i375" | |
| 19396 | "i373" | |
| 19397 | "i371" | |
| 19398 | "i368" | |
| 19399 | "i366" | |
| 19400 | "i365" | |
| 19401 | "i363" | |
| 19402 | "i361" | |
| 19403 | "i359" | |
| 19404 | "i357" | |
| 19405 | "i356" | |
| 19406 | "i355" | |
| 19407 | "i354" | |
| 19408 | "i352" | |
| 19409 | "i351" | |
| 19410 | "i348" | |
| 19411 | "i346" | |
| 19412 | "i344" | |
| 19413 | "i342" | |
| 19414 | "i340" | |
| 19415 | "i338" | |
| 19416 | "i336" | |
| 19417 | "i335" | |
| 19418 | "i334" | |
| 19419 | "i332" | |
| 19420 | "i330" | |
| 19421 | "i329" | |
| 19422 | "i326" | |
| 19423 | "i325" | |
| 19424 | "i323" | |
| 19425 | "i321" | |
| 19426 | "i319" | |
| 19427 | "i317" | |
| 19428 | "i315" | |
| 19429 | "i313" | |
| 19430 | "i311" | |
| 19431 | "i309" | |
| 19432 | "i307" | |
| 19433 | "i304" | |
| 19434 | "i302" | |
| 19435 | "i300" | |
| 19436 | "i298" | |
| 19437 | "i296" | |
| 19438 | "i294" | |
| 19439 | "i292" | |
| 19440 | "i290" | |
| 19441 | "i288" | |
| 19442 | "i286" | |
| 19443 | "i284" | |
| 19444 | "i282" | |
| 19445 | "i280" | |
| 19446 | "i278" | |
| 19447 | "i276" | |
| 19448 | "i274" | |
| 19449 | "i272" | |
| 19450 | "i270" | |
| 19451 | "i268" | |
| 19452 | "i266" | |
| 19453 | "i264" | |
| 19454 | "i262" | |
| 19455 | "i260" | |
| 19456 | "i259" | |
| 19457 | "i256" | |
| 19458 | "i254" | |
| 19459 | "i253" | |
| 19460 | "i252" | |
| 19461 | "i251" | |
| 19462 | "i250" | |
| 19463 | "i248" | |
| 19464 | "i246" | |
| 19465 | "i244" | |
| 19466 | "i241" | |
| 19467 | "i239" | |
| 19468 | "i237" | |
| 19469 | "i235" | |
| 19470 | "i233" | |
| 19471 | "i231" | |
| 19472 | "i229" | |
| 19473 | "i227" | |
| 19474 | "i225" | |
| 19475 | "i223" | |
| 19476 | "i221" | |
| 19477 | "i219" | |
| 19478 | "i217" | |
| 19479 | "i215" | |
| 19480 | "i213" | |
| 19481 | "i211" | |
| 19482 | "i209" | |
| 19483 | "i207")) | |
| 19484 | #(ribcage | |
| 19485 | (define-structure | |
| 19486 | define-expansion-accessors | |
| 19487 | define-expansion-constructors) | |
| 19488 | ((top) (top) (top)) | |
| 19489 | ("i45" | |
| 19490 | "i44" | |
| 19491 | "i43"))) | |
| 19492 | (hygiene guile)) | |
| 19493 | 1) | |
| 19494 | '#(syntax-object | |
| 19495 | ... | |
| 19496 | ((top) | |
| 19497 | #(ribcage () () ()) | |
| 19498 | #(ribcage () () ()) | |
| 19499 | #(ribcage | |
| 19500 | #(x) | |
| 19501 | #((top)) | |
| 19502 | #("i2229")) | |
| 19503 | #(ribcage | |
| 19504 | (lambda-var-list | |
| 19505 | gen-var | |
| 19506 | strip | |
| 19507 | chi-lambda-case | |
| 19508 | lambda*-formals | |
| 19509 | chi-simple-lambda | |
| 19510 | lambda-formals | |
| 19511 | ellipsis? | |
| 19512 | chi-void | |
| 19513 | eval-local-transformer | |
| 19514 | chi-local-syntax | |
| 19515 | chi-body | |
| 19516 | chi-macro | |
| 19517 | chi-application | |
| 19518 | chi-expr | |
| 19519 | chi | |
| 19520 | syntax-type | |
| 19521 | chi-when-list | |
| 19522 | chi-install-global | |
| 19523 | chi-top-sequence | |
| 19524 | chi-sequence | |
| 19525 | source-wrap | |
| 19526 | wrap | |
| 19527 | bound-id-member? | |
| 19528 | distinct-bound-ids? | |
| 19529 | valid-bound-ids? | |
| 19530 | bound-id=? | |
| 19531 | free-id=? | |
| 19532 | id-var-name | |
| 19533 | same-marks? | |
| 19534 | join-marks | |
| 19535 | join-wraps | |
| 19536 | smart-append | |
| 19537 | make-binding-wrap | |
| 19538 | extend-ribcage! | |
| 19539 | make-empty-ribcage | |
| 19540 | new-mark | |
| 19541 | anti-mark | |
| 19542 | the-anti-mark | |
| 19543 | top-marked? | |
| 19544 | top-wrap | |
| 19545 | empty-wrap | |
| 19546 | set-ribcage-labels! | |
| 19547 | set-ribcage-marks! | |
| 19548 | set-ribcage-symnames! | |
| 19549 | ribcage-labels | |
| 19550 | ribcage-marks | |
| 19551 | ribcage-symnames | |
| 19552 | ribcage? | |
| 19553 | make-ribcage | |
| 19554 | gen-labels | |
| 19555 | gen-label | |
| 19556 | make-rename | |
| 19557 | rename-marks | |
| 19558 | rename-new | |
| 19559 | rename-old | |
| 19560 | subst-rename? | |
| 19561 | wrap-subst | |
| 19562 | wrap-marks | |
| 19563 | make-wrap | |
| 19564 | id-sym-name&marks | |
| 19565 | id-sym-name | |
| 19566 | id? | |
| 19567 | nonsymbol-id? | |
| 19568 | global-extend | |
| 19569 | lookup | |
| 19570 | macros-only-env | |
| 19571 | extend-var-env | |
| 19572 | extend-env | |
| 19573 | null-env | |
| 19574 | binding-value | |
| 19575 | binding-type | |
| 19576 | make-binding | |
| 19577 | arg-check | |
| 19578 | source-annotation | |
| 19579 | no-source | |
| 19580 | set-syntax-object-module! | |
| 19581 | set-syntax-object-wrap! | |
| 19582 | set-syntax-object-expression! | |
| 19583 | syntax-object-module | |
| 19584 | syntax-object-wrap | |
| 19585 | syntax-object-expression | |
| 19586 | syntax-object? | |
| 19587 | make-syntax-object | |
| 19588 | build-lexical-var | |
| 19589 | build-letrec | |
| 19590 | build-named-let | |
| 19591 | build-let | |
| 19592 | build-sequence | |
| 19593 | build-data | |
| 19594 | build-primref | |
| 19595 | build-lambda-case | |
| 19596 | build-case-lambda | |
| 19597 | build-simple-lambda | |
| 19598 | build-global-definition | |
| 19599 | build-global-assignment | |
| 19600 | build-global-reference | |
| 19601 | analyze-variable | |
| 19602 | build-lexical-assignment | |
| 19603 | build-lexical-reference | |
| 19604 | build-dynlet | |
| 19605 | build-conditional | |
| 19606 | build-application | |
| 19607 | build-void | |
| 19608 | maybe-name-value! | |
| 19609 | decorate-source | |
| 19610 | get-global-definition-hook | |
| 19611 | put-global-definition-hook | |
| 19612 | gensym-hook | |
| 19613 | local-eval-hook | |
| 19614 | top-level-eval-hook | |
| 19615 | fx< | |
| 19616 | fx= | |
| 19617 | fx- | |
| 19618 | fx+ | |
| 19619 | set-lambda-meta! | |
| 19620 | lambda-meta | |
| 19621 | lambda? | |
| 19622 | make-dynlet | |
| 19623 | make-letrec | |
| 19624 | make-let | |
| 19625 | make-lambda-case | |
| 19626 | make-lambda | |
| 19627 | make-sequence | |
| 19628 | make-application | |
| 19629 | make-conditional | |
| 19630 | make-toplevel-define | |
| 19631 | make-toplevel-set | |
| 19632 | make-toplevel-ref | |
| 19633 | make-module-set | |
| 19634 | make-module-ref | |
| 19635 | make-lexical-set | |
| 19636 | make-lexical-ref | |
| 19637 | make-primitive-ref | |
| 19638 | make-const | |
| 19639 | make-void) | |
| 19640 | ((top) | |
| 19641 | (top) | |
| 19642 | (top) | |
| 19643 | (top) | |
| 19644 | (top) | |
| 19645 | (top) | |
| 19646 | (top) | |
| 19647 | (top) | |
| 19648 | (top) | |
| 19649 | (top) | |
| 19650 | (top) | |
| 19651 | (top) | |
| 19652 | (top) | |
| 19653 | (top) | |
| 19654 | (top) | |
| 19655 | (top) | |
| 19656 | (top) | |
| 19657 | (top) | |
| 19658 | (top) | |
| 19659 | (top) | |
| 19660 | (top) | |
| 19661 | (top) | |
| 19662 | (top) | |
| 19663 | (top) | |
| 19664 | (top) | |
| 19665 | (top) | |
| 19666 | (top) | |
| 19667 | (top) | |
| 19668 | (top) | |
| 19669 | (top) | |
| 19670 | (top) | |
| 19671 | (top) | |
| 19672 | (top) | |
| 19673 | (top) | |
| 19674 | (top) | |
| 19675 | (top) | |
| 19676 | (top) | |
| 19677 | (top) | |
| 19678 | (top) | |
| 19679 | (top) | |
| 19680 | (top) | |
| 19681 | (top) | |
| 19682 | (top) | |
| 19683 | (top) | |
| 19684 | (top) | |
| 19685 | (top) | |
| 19686 | (top) | |
| 19687 | (top) | |
| 19688 | (top) | |
| 19689 | (top) | |
| 19690 | (top) | |
| 19691 | (top) | |
| 19692 | (top) | |
| 19693 | (top) | |
| 19694 | (top) | |
| 19695 | (top) | |
| 19696 | (top) | |
| 19697 | (top) | |
| 19698 | (top) | |
| 19699 | (top) | |
| 19700 | (top) | |
| 19701 | (top) | |
| 19702 | (top) | |
| 19703 | (top) | |
| 19704 | (top) | |
| 19705 | (top) | |
| 19706 | (top) | |
| 19707 | (top) | |
| 19708 | (top) | |
| 19709 | (top) | |
| 19710 | (top) | |
| 19711 | (top) | |
| 19712 | (top) | |
| 19713 | (top) | |
| 19714 | (top) | |
| 19715 | (top) | |
| 19716 | (top) | |
| 19717 | (top) | |
| 19718 | (top) | |
| 19719 | (top) | |
| 19720 | (top) | |
| 19721 | (top) | |
| 19722 | (top) | |
| 19723 | (top) | |
| 19724 | (top) | |
| 19725 | (top) | |
| 19726 | (top) | |
| 19727 | (top) | |
| 19728 | (top) | |
| 19729 | (top) | |
| 19730 | (top) | |
| 19731 | (top) | |
| 19732 | (top) | |
| 19733 | (top) | |
| 19734 | (top) | |
| 19735 | (top) | |
| 19736 | (top) | |
| 19737 | (top) | |
| 19738 | (top) | |
| 19739 | (top) | |
| 19740 | (top) | |
| 19741 | (top) | |
| 19742 | (top) | |
| 19743 | (top) | |
| 19744 | (top) | |
| 19745 | (top) | |
| 19746 | (top) | |
| 19747 | (top) | |
| 19748 | (top) | |
| 19749 | (top) | |
| 19750 | (top) | |
| 19751 | (top) | |
| 19752 | (top) | |
| 19753 | (top) | |
| 19754 | (top) | |
| 19755 | (top) | |
| 19756 | (top) | |
| 19757 | (top) | |
| 19758 | (top) | |
| 19759 | (top) | |
| 19760 | (top) | |
| 19761 | (top) | |
| 19762 | (top) | |
| 19763 | (top) | |
| 19764 | (top) | |
| 19765 | (top) | |
| 19766 | (top) | |
| 19767 | (top) | |
| 19768 | (top) | |
| 19769 | (top) | |
| 19770 | (top) | |
| 19771 | (top) | |
| 19772 | (top) | |
| 19773 | (top) | |
| 19774 | (top) | |
| 19775 | (top)) | |
| 19776 | ("i466" | |
| 19777 | "i464" | |
| 19778 | "i462" | |
| 19779 | "i460" | |
| 19780 | "i458" | |
| 19781 | "i456" | |
| 19782 | "i454" | |
| 19783 | "i452" | |
| 19784 | "i450" | |
| 19785 | "i448" | |
| 19786 | "i446" | |
| 19787 | "i444" | |
| 19788 | "i442" | |
| 19789 | "i440" | |
| 19790 | "i438" | |
| 19791 | "i436" | |
| 19792 | "i434" | |
| 19793 | "i432" | |
| 19794 | "i430" | |
| 19795 | "i428" | |
| 19796 | "i426" | |
| 19797 | "i424" | |
| 19798 | "i422" | |
| 19799 | "i420" | |
| 19800 | "i418" | |
| 19801 | "i416" | |
| 19802 | "i414" | |
| 19803 | "i412" | |
| 19804 | "i410" | |
| 19805 | "i408" | |
| 19806 | "i406" | |
| 19807 | "i404" | |
| 19808 | "i402" | |
| 19809 | "i400" | |
| 19810 | "i398" | |
| 19811 | "i397" | |
| 19812 | "i395" | |
| 19813 | "i392" | |
| 19814 | "i391" | |
| 19815 | "i390" | |
| 19816 | "i388" | |
| 19817 | "i387" | |
| 19818 | "i385" | |
| 19819 | "i383" | |
| 19820 | "i381" | |
| 19821 | "i379" | |
| 19822 | "i377" | |
| 19823 | "i375" | |
| 19824 | "i373" | |
| 19825 | "i371" | |
| 19826 | "i368" | |
| 19827 | "i366" | |
| 19828 | "i365" | |
| 19829 | "i363" | |
| 19830 | "i361" | |
| 19831 | "i359" | |
| 19832 | "i357" | |
| 19833 | "i356" | |
| 19834 | "i355" | |
| 19835 | "i354" | |
| 19836 | "i352" | |
| 19837 | "i351" | |
| 19838 | "i348" | |
| 19839 | "i346" | |
| 19840 | "i344" | |
| 19841 | "i342" | |
| 19842 | "i340" | |
| 19843 | "i338" | |
| 19844 | "i336" | |
| 19845 | "i335" | |
| 19846 | "i334" | |
| 19847 | "i332" | |
| 19848 | "i330" | |
| 19849 | "i329" | |
| 19850 | "i326" | |
| 19851 | "i325" | |
| 19852 | "i323" | |
| 19853 | "i321" | |
| 19854 | "i319" | |
| 19855 | "i317" | |
| 19856 | "i315" | |
| 19857 | "i313" | |
| 19858 | "i311" | |
| 19859 | "i309" | |
| 19860 | "i307" | |
| 19861 | "i304" | |
| 19862 | "i302" | |
| 19863 | "i300" | |
| 19864 | "i298" | |
| 19865 | "i296" | |
| 19866 | "i294" | |
| 19867 | "i292" | |
| 19868 | "i290" | |
| 19869 | "i288" | |
| 19870 | "i286" | |
| 19871 | "i284" | |
| 19872 | "i282" | |
| 19873 | "i280" | |
| 19874 | "i278" | |
| 19875 | "i276" | |
| 19876 | "i274" | |
| 19877 | "i272" | |
| 19878 | "i270" | |
| 19879 | "i268" | |
| 19880 | "i266" | |
| 19881 | "i264" | |
| 19882 | "i262" | |
| 19883 | "i260" | |
| 19884 | "i259" | |
| 19885 | "i256" | |
| 19886 | "i254" | |
| 19887 | "i253" | |
| 19888 | "i252" | |
| 19889 | "i251" | |
| 19890 | "i250" | |
| 19891 | "i248" | |
| 19892 | "i246" | |
| 19893 | "i244" | |
| 19894 | "i241" | |
| 19895 | "i239" | |
| 19896 | "i237" | |
| 19897 | "i235" | |
| 19898 | "i233" | |
| 19899 | "i231" | |
| 19900 | "i229" | |
| 19901 | "i227" | |
| 19902 | "i225" | |
| 19903 | "i223" | |
| 19904 | "i221" | |
| 19905 | "i219" | |
| 19906 | "i217" | |
| 19907 | "i215" | |
| 19908 | "i213" | |
| 19909 | "i211" | |
| 19910 | "i209" | |
| 19911 | "i207")) | |
| 19912 | #(ribcage | |
| 19913 | (define-structure | |
| 19914 | define-expansion-accessors | |
| 19915 | define-expansion-constructors) | |
| 19916 | ((top) (top) (top)) | |
| 19917 | ("i45" "i44" "i43"))) | |
| 19918 | (hygiene guile)))) | |
| 19919 | (eq? (#{id-var-name 411}# | |
| 19920 | #{x 9164}# | |
| 19921 | '(())) | |
| 19922 | (#{id-var-name 411}# | |
| 19923 | '#(syntax-object | |
| 19924 | ... | |
| 19925 | ((top) | |
| 19926 | #(ribcage () () ()) | |
| 19927 | #(ribcage () () ()) | |
| 19928 | #(ribcage | |
| 19929 | #(x) | |
| 19930 | #((top)) | |
| 19931 | #("i2229")) | |
| 19932 | #(ribcage | |
| 19933 | (lambda-var-list | |
| 19934 | gen-var | |
| 19935 | strip | |
| 19936 | chi-lambda-case | |
| 19937 | lambda*-formals | |
| 19938 | chi-simple-lambda | |
| 19939 | lambda-formals | |
| 19940 | ellipsis? | |
| 19941 | chi-void | |
| 19942 | eval-local-transformer | |
| 19943 | chi-local-syntax | |
| 19944 | chi-body | |
| 19945 | chi-macro | |
| 19946 | chi-application | |
| 19947 | chi-expr | |
| 19948 | chi | |
| 19949 | syntax-type | |
| 19950 | chi-when-list | |
| 19951 | chi-install-global | |
| 19952 | chi-top-sequence | |
| 19953 | chi-sequence | |
| 19954 | source-wrap | |
| 19955 | wrap | |
| 19956 | bound-id-member? | |
| 19957 | distinct-bound-ids? | |
| 19958 | valid-bound-ids? | |
| 19959 | bound-id=? | |
| 19960 | free-id=? | |
| 19961 | id-var-name | |
| 19962 | same-marks? | |
| 19963 | join-marks | |
| 19964 | join-wraps | |
| 19965 | smart-append | |
| 19966 | make-binding-wrap | |
| 19967 | extend-ribcage! | |
| 19968 | make-empty-ribcage | |
| 19969 | new-mark | |
| 19970 | anti-mark | |
| 19971 | the-anti-mark | |
| 19972 | top-marked? | |
| 19973 | top-wrap | |
| 19974 | empty-wrap | |
| 19975 | set-ribcage-labels! | |
| 19976 | set-ribcage-marks! | |
| 19977 | set-ribcage-symnames! | |
| 19978 | ribcage-labels | |
| 19979 | ribcage-marks | |
| 19980 | ribcage-symnames | |
| 19981 | ribcage? | |
| 19982 | make-ribcage | |
| 19983 | gen-labels | |
| 19984 | gen-label | |
| 19985 | make-rename | |
| 19986 | rename-marks | |
| 19987 | rename-new | |
| 19988 | rename-old | |
| 19989 | subst-rename? | |
| 19990 | wrap-subst | |
| 19991 | wrap-marks | |
| 19992 | make-wrap | |
| 19993 | id-sym-name&marks | |
| 19994 | id-sym-name | |
| 19995 | id? | |
| 19996 | nonsymbol-id? | |
| 19997 | global-extend | |
| 19998 | lookup | |
| 19999 | macros-only-env | |
| 20000 | extend-var-env | |
| 20001 | extend-env | |
| 20002 | null-env | |
| 20003 | binding-value | |
| 20004 | binding-type | |
| 20005 | make-binding | |
| 20006 | arg-check | |
| 20007 | source-annotation | |
| 20008 | no-source | |
| 20009 | set-syntax-object-module! | |
| 20010 | set-syntax-object-wrap! | |
| 20011 | set-syntax-object-expression! | |
| 20012 | syntax-object-module | |
| 20013 | syntax-object-wrap | |
| 20014 | syntax-object-expression | |
| 20015 | syntax-object? | |
| 20016 | make-syntax-object | |
| 20017 | build-lexical-var | |
| 20018 | build-letrec | |
| 20019 | build-named-let | |
| 20020 | build-let | |
| 20021 | build-sequence | |
| 20022 | build-data | |
| 20023 | build-primref | |
| 20024 | build-lambda-case | |
| 20025 | build-case-lambda | |
| 20026 | build-simple-lambda | |
| 20027 | build-global-definition | |
| 20028 | build-global-assignment | |
| 20029 | build-global-reference | |
| 20030 | analyze-variable | |
| 20031 | build-lexical-assignment | |
| 20032 | build-lexical-reference | |
| 20033 | build-dynlet | |
| 20034 | build-conditional | |
| 20035 | build-application | |
| 20036 | build-void | |
| 20037 | maybe-name-value! | |
| 20038 | decorate-source | |
| 20039 | get-global-definition-hook | |
| 20040 | put-global-definition-hook | |
| 20041 | gensym-hook | |
| 20042 | local-eval-hook | |
| 20043 | top-level-eval-hook | |
| 20044 | fx< | |
| 20045 | fx= | |
| 20046 | fx- | |
| 20047 | fx+ | |
| 20048 | set-lambda-meta! | |
| 20049 | lambda-meta | |
| 20050 | lambda? | |
| 20051 | make-dynlet | |
| 20052 | make-letrec | |
| 20053 | make-let | |
| 20054 | make-lambda-case | |
| 20055 | make-lambda | |
| 20056 | make-sequence | |
| 20057 | make-application | |
| 20058 | make-conditional | |
| 20059 | make-toplevel-define | |
| 20060 | make-toplevel-set | |
| 20061 | make-toplevel-ref | |
| 20062 | make-module-set | |
| 20063 | make-module-ref | |
| 20064 | make-lexical-set | |
| 20065 | make-lexical-ref | |
| 20066 | make-primitive-ref | |
| 20067 | make-const | |
| 20068 | make-void) | |
| 20069 | ((top) | |
| 20070 | (top) | |
| 20071 | (top) | |
| 20072 | (top) | |
| 20073 | (top) | |
| 20074 | (top) | |
| 20075 | (top) | |
| 20076 | (top) | |
| 20077 | (top) | |
| 20078 | (top) | |
| 20079 | (top) | |
| 20080 | (top) | |
| 20081 | (top) | |
| 20082 | (top) | |
| 20083 | (top) | |
| 20084 | (top) | |
| 20085 | (top) | |
| 20086 | (top) | |
| 20087 | (top) | |
| 20088 | (top) | |
| 20089 | (top) | |
| 20090 | (top) | |
| 20091 | (top) | |
| 20092 | (top) | |
| 20093 | (top) | |
| 20094 | (top) | |
| 20095 | (top) | |
| 20096 | (top) | |
| 20097 | (top) | |
| 20098 | (top) | |
| 20099 | (top) | |
| 20100 | (top) | |
| 20101 | (top) | |
| 20102 | (top) | |
| 20103 | (top) | |
| 20104 | (top) | |
| 20105 | (top) | |
| 20106 | (top) | |
| 20107 | (top) | |
| 20108 | (top) | |
| 20109 | (top) | |
| 20110 | (top) | |
| 20111 | (top) | |
| 20112 | (top) | |
| 20113 | (top) | |
| 20114 | (top) | |
| 20115 | (top) | |
| 20116 | (top) | |
| 20117 | (top) | |
| 20118 | (top) | |
| 20119 | (top) | |
| 20120 | (top) | |
| 20121 | (top) | |
| 20122 | (top) | |
| 20123 | (top) | |
| 20124 | (top) | |
| 20125 | (top) | |
| 20126 | (top) | |
| 20127 | (top) | |
| 20128 | (top) | |
| 20129 | (top) | |
| 20130 | (top) | |
| 20131 | (top) | |
| 20132 | (top) | |
| 20133 | (top) | |
| 20134 | (top) | |
| 20135 | (top) | |
| 20136 | (top) | |
| 20137 | (top) | |
| 20138 | (top) | |
| 20139 | (top) | |
| 20140 | (top) | |
| 20141 | (top) | |
| 20142 | (top) | |
| 20143 | (top) | |
| 20144 | (top) | |
| 20145 | (top) | |
| 20146 | (top) | |
| 20147 | (top) | |
| 20148 | (top) | |
| 20149 | (top) | |
| 20150 | (top) | |
| 20151 | (top) | |
| 20152 | (top) | |
| 20153 | (top) | |
| 20154 | (top) | |
| 20155 | (top) | |
| 20156 | (top) | |
| 20157 | (top) | |
| 20158 | (top) | |
| 20159 | (top) | |
| 20160 | (top) | |
| 20161 | (top) | |
| 20162 | (top) | |
| 20163 | (top) | |
| 20164 | (top) | |
| 20165 | (top) | |
| 20166 | (top) | |
| 20167 | (top) | |
| 20168 | (top) | |
| 20169 | (top) | |
| 20170 | (top) | |
| 20171 | (top) | |
| 20172 | (top) | |
| 20173 | (top) | |
| 20174 | (top) | |
| 20175 | (top) | |
| 20176 | (top) | |
| 20177 | (top) | |
| 20178 | (top) | |
| 20179 | (top) | |
| 20180 | (top) | |
| 20181 | (top) | |
| 20182 | (top) | |
| 20183 | (top) | |
| 20184 | (top) | |
| 20185 | (top) | |
| 20186 | (top) | |
| 20187 | (top) | |
| 20188 | (top) | |
| 20189 | (top) | |
| 20190 | (top) | |
| 20191 | (top) | |
| 20192 | (top) | |
| 20193 | (top) | |
| 20194 | (top) | |
| 20195 | (top) | |
| 20196 | (top) | |
| 20197 | (top) | |
| 20198 | (top) | |
| 20199 | (top) | |
| 20200 | (top) | |
| 20201 | (top) | |
| 20202 | (top) | |
| 20203 | (top) | |
| 20204 | (top)) | |
| 20205 | ("i466" | |
| 20206 | "i464" | |
| 20207 | "i462" | |
| 20208 | "i460" | |
| 20209 | "i458" | |
| 20210 | "i456" | |
| 20211 | "i454" | |
| 20212 | "i452" | |
| 20213 | "i450" | |
| 20214 | "i448" | |
| 20215 | "i446" | |
| 20216 | "i444" | |
| 20217 | "i442" | |
| 20218 | "i440" | |
| 20219 | "i438" | |
| 20220 | "i436" | |
| 20221 | "i434" | |
| 20222 | "i432" | |
| 20223 | "i430" | |
| 20224 | "i428" | |
| 20225 | "i426" | |
| 20226 | "i424" | |
| 20227 | "i422" | |
| 20228 | "i420" | |
| 20229 | "i418" | |
| 20230 | "i416" | |
| 20231 | "i414" | |
| 20232 | "i412" | |
| 20233 | "i410" | |
| 20234 | "i408" | |
| 20235 | "i406" | |
| 20236 | "i404" | |
| 20237 | "i402" | |
| 20238 | "i400" | |
| 20239 | "i398" | |
| 20240 | "i397" | |
| 20241 | "i395" | |
| 20242 | "i392" | |
| 20243 | "i391" | |
| 20244 | "i390" | |
| 20245 | "i388" | |
| 20246 | "i387" | |
| 20247 | "i385" | |
| 20248 | "i383" | |
| 20249 | "i381" | |
| 20250 | "i379" | |
| 20251 | "i377" | |
| 20252 | "i375" | |
| 20253 | "i373" | |
| 20254 | "i371" | |
| 20255 | "i368" | |
| 20256 | "i366" | |
| 20257 | "i365" | |
| 20258 | "i363" | |
| 20259 | "i361" | |
| 20260 | "i359" | |
| 20261 | "i357" | |
| 20262 | "i356" | |
| 20263 | "i355" | |
| 20264 | "i354" | |
| 20265 | "i352" | |
| 20266 | "i351" | |
| 20267 | "i348" | |
| 20268 | "i346" | |
| 20269 | "i344" | |
| 20270 | "i342" | |
| 20271 | "i340" | |
| 20272 | "i338" | |
| 20273 | "i336" | |
| 20274 | "i335" | |
| 20275 | "i334" | |
| 20276 | "i332" | |
| 20277 | "i330" | |
| 20278 | "i329" | |
| 20279 | "i326" | |
| 20280 | "i325" | |
| 20281 | "i323" | |
| 20282 | "i321" | |
| 20283 | "i319" | |
| 20284 | "i317" | |
| 20285 | "i315" | |
| 20286 | "i313" | |
| 20287 | "i311" | |
| 20288 | "i309" | |
| 20289 | "i307" | |
| 20290 | "i304" | |
| 20291 | "i302" | |
| 20292 | "i300" | |
| 20293 | "i298" | |
| 20294 | "i296" | |
| 20295 | "i294" | |
| 20296 | "i292" | |
| 20297 | "i290" | |
| 20298 | "i288" | |
| 20299 | "i286" | |
| 20300 | "i284" | |
| 20301 | "i282" | |
| 20302 | "i280" | |
| 20303 | "i278" | |
| 20304 | "i276" | |
| 20305 | "i274" | |
| 20306 | "i272" | |
| 20307 | "i270" | |
| 20308 | "i268" | |
| 20309 | "i266" | |
| 20310 | "i264" | |
| 20311 | "i262" | |
| 20312 | "i260" | |
| 20313 | "i259" | |
| 20314 | "i256" | |
| 20315 | "i254" | |
| 20316 | "i253" | |
| 20317 | "i252" | |
| 20318 | "i251" | |
| 20319 | "i250" | |
| 20320 | "i248" | |
| 20321 | "i246" | |
| 20322 | "i244" | |
| 20323 | "i241" | |
| 20324 | "i239" | |
| 20325 | "i237" | |
| 20326 | "i235" | |
| 20327 | "i233" | |
| 20328 | "i231" | |
| 20329 | "i229" | |
| 20330 | "i227" | |
| 20331 | "i225" | |
| 20332 | "i223" | |
| 20333 | "i221" | |
| 20334 | "i219" | |
| 20335 | "i217" | |
| 20336 | "i215" | |
| 20337 | "i213" | |
| 20338 | "i211" | |
| 20339 | "i209" | |
| 20340 | "i207")) | |
| 20341 | #(ribcage | |
| 20342 | (define-structure | |
| 20343 | define-expansion-accessors | |
| 20344 | define-expansion-constructors) | |
| 20345 | ((top) (top) (top)) | |
| 20346 | ("i45" "i44" "i43"))) | |
| 20347 | (hygiene guile)) | |
| 20348 | '(()))) | |
| 20349 | #f) | |
| 20350 | #f)))) | |
| 20351 | #{pvars 3865}#)) | |
| 20352 | (syntax-violation | |
| 20353 | 'syntax-case | |
| 20354 | "misplaced ellipsis" | |
| 20355 | #{pat 3852}#) | |
| 20356 | (let ((#{y 3876}# | |
| 20357 | (gensym | |
| 20358 | (string-append (symbol->string 'tmp) " ")))) | |
| 20359 | (let ((#{fun-exp 9204}# | |
| 20360 | (let ((#{req 9209}# (list 'tmp)) | |
| 20361 | (#{vars 9211}# (list #{y 3876}#)) | |
| 20362 | (#{exp 9213}# | |
| 20363 | (let ((#{y 3880}# | |
| 20364 | (make-struct/no-tail | |
| 20365 | (vector-ref | |
| 20366 | %expanded-vtables | |
| 20367 | 3) | |
| 20368 | #f | |
| 20369 | 'tmp | |
| 20370 | #{y 3876}#))) | |
| 20371 | (let ((#{test-exp 9228}# | |
| 20372 | (let ((#{tmp 3884}# | |
| 20373 | ($sc-dispatch | |
| 20374 | #{fender 3853}# | |
| 20375 | '#(atom #t)))) | |
| 20376 | (if #{tmp 3884}# | |
| 20377 | (@apply | |
| 20378 | (lambda () #{y 3880}#) | |
| 20379 | #{tmp 3884}#) | |
| 20380 | (let ((#{then-exp 9235}# | |
| 20381 | (#{build-dispatch-call 3706}# | |
| 20382 | #{pvars 3865}# | |
| 20383 | #{fender 3853}# | |
| 20384 | #{y 3880}# | |
| 20385 | #{r 3851}# | |
| 20386 | #{mod 3855}#)) | |
| 20387 | (#{else-exp 9236}# | |
| 20388 | (make-struct/no-tail | |
| 20389 | (vector-ref | |
| 20390 | %expanded-vtables | |
| 20391 | 1) | |
| 20392 | #f | |
| 20393 | #f))) | |
| 20394 | (make-struct/no-tail | |
| 20395 | (vector-ref | |
| 20396 | %expanded-vtables | |
| 20397 | 10) | |
| 20398 | #f | |
| 20399 | #{y 3880}# | |
| 20400 | #{then-exp 9235}# | |
| 20401 | #{else-exp 9236}#))))) | |
| 20402 | (#{then-exp 9229}# | |
| 20403 | (#{build-dispatch-call 3706}# | |
| 20404 | #{pvars 3865}# | |
| 20405 | #{exp 3854}# | |
| 20406 | #{y 3880}# | |
| 20407 | #{r 3851}# | |
| 20408 | #{mod 3855}#)) | |
| 20409 | (#{else-exp 9230}# | |
| 20410 | (#{gen-syntax-case 3710}# | |
| 20411 | #{x 3848}# | |
| 20412 | #{keys 3849}# | |
| 20413 | #{clauses 3850}# | |
| 20414 | #{r 3851}# | |
| 20415 | #{mod 3855}#))) | |
| 20416 | (make-struct/no-tail | |
| 20417 | (vector-ref %expanded-vtables 10) | |
| 20418 | #f | |
| 20419 | #{test-exp 9228}# | |
| 20420 | #{then-exp 9229}# | |
| 20421 | #{else-exp 9230}#))))) | |
| 20422 | (let ((#{body 9261}# | |
| 20423 | (make-struct/no-tail | |
| 20424 | (vector-ref %expanded-vtables 14) | |
| 20425 | #f | |
| 20426 | #{req 9209}# | |
| 20427 | #f | |
| 20428 | #f | |
| 20429 | #f | |
| 20430 | '() | |
| 20431 | #{vars 9211}# | |
| 20432 | #{exp 9213}# | |
| 20433 | #f))) | |
| 20434 | (make-struct/no-tail | |
| 20435 | (vector-ref %expanded-vtables 13) | |
| 20436 | #f | |
| 20437 | '() | |
| 20438 | #{body 9261}#)))) | |
| 20439 | (#{arg-exps 9205}# | |
| 20440 | (list (if (eq? #{p 3864}# 'any) | |
| 20441 | (let ((#{fun-exp 9276}# | |
| 20442 | (if (equal? | |
| 20443 | (module-name | |
| 20444 | (current-module)) | |
| 20445 | '(guile)) | |
| 20446 | (make-struct/no-tail | |
| 20447 | (vector-ref | |
| 20448 | %expanded-vtables | |
| 20449 | 7) | |
| 20450 | #f | |
| 20451 | 'list) | |
| 20452 | (make-struct/no-tail | |
| 20453 | (vector-ref | |
| 20454 | %expanded-vtables | |
| 20455 | 5) | |
| 20456 | #f | |
| 20457 | '(guile) | |
| 20458 | 'list | |
| 20459 | #f))) | |
| 20460 | (#{arg-exps 9277}# | |
| 20461 | (list #{x 3848}#))) | |
| 20462 | (make-struct/no-tail | |
| 20463 | (vector-ref %expanded-vtables 11) | |
| 20464 | #f | |
| 20465 | #{fun-exp 9276}# | |
| 20466 | #{arg-exps 9277}#)) | |
| 20467 | (let ((#{fun-exp 9299}# | |
| 20468 | (if (equal? | |
| 20469 | (module-name | |
| 20470 | (current-module)) | |
| 20471 | '(guile)) | |
| 20472 | (make-struct/no-tail | |
| 20473 | (vector-ref | |
| 20474 | %expanded-vtables | |
| 20475 | 7) | |
| 20476 | #f | |
| 20477 | '$sc-dispatch) | |
| 20478 | (make-struct/no-tail | |
| 20479 | (vector-ref | |
| 20480 | %expanded-vtables | |
| 20481 | 5) | |
| 20482 | #f | |
| 20483 | '(guile) | |
| 20484 | '$sc-dispatch | |
| 20485 | #f))) | |
| 20486 | (#{arg-exps 9300}# | |
| 20487 | (list #{x 3848}# | |
| 20488 | (make-struct/no-tail | |
| 20489 | (vector-ref | |
| 20490 | %expanded-vtables | |
| 20491 | 1) | |
| 20492 | #f | |
| 20493 | #{p 3864}#)))) | |
| 20494 | (make-struct/no-tail | |
| 20495 | (vector-ref %expanded-vtables 11) | |
| 20496 | #f | |
| 20497 | #{fun-exp 9299}# | |
| 20498 | #{arg-exps 9300}#)))))) | |
| 20499 | (make-struct/no-tail | |
| 20500 | (vector-ref %expanded-vtables 11) | |
| 20501 | #f | |
| 20502 | #{fun-exp 9204}# | |
| 20503 | #{arg-exps 9205}#))))))))) | |
| 20504 | (#{gen-syntax-case 3710}# | |
| 20505 | (lambda (#{x 3894}# | |
| 20506 | #{keys 3895}# | |
| 20507 | #{clauses 3896}# | |
| 20508 | #{r 3897}# | |
| 20509 | #{mod 3898}#) | |
| 20510 | (if (null? #{clauses 3896}#) | |
| 20511 | (let ((#{fun-exp 9335}# | |
| 20512 | (if (equal? (module-name (current-module)) '(guile)) | |
| 20513 | (make-struct/no-tail | |
| 20514 | (vector-ref %expanded-vtables 7) | |
| 20515 | #f | |
| 20516 | 'syntax-violation) | |
| 20517 | (make-struct/no-tail | |
| 20518 | (vector-ref %expanded-vtables 5) | |
| 20519 | #f | |
| 20520 | '(guile) | |
| 20521 | 'syntax-violation | |
| 20522 | #f))) | |
| 20523 | (#{arg-exps 9336}# | |
| 20524 | (list (make-struct/no-tail | |
| 20525 | (vector-ref %expanded-vtables 1) | |
| 20526 | #f | |
| 20527 | #f) | |
| 20528 | (make-struct/no-tail | |
| 20529 | (vector-ref %expanded-vtables 1) | |
| 20530 | #f | |
| 20531 | "source expression failed to match any pattern") | |
| 20532 | #{x 3894}#))) | |
| 20533 | (make-struct/no-tail | |
| 20534 | (vector-ref %expanded-vtables 11) | |
| 20535 | #f | |
| 20536 | #{fun-exp 9335}# | |
| 20537 | #{arg-exps 9336}#)) | |
| 20538 | (let ((#{tmp 3908}# (car #{clauses 3896}#))) | |
| 20539 | (let ((#{tmp 3909}# | |
| 20540 | ($sc-dispatch #{tmp 3908}# '(any any)))) | |
| 20541 | (if #{tmp 3909}# | |
| 20542 | (@apply | |
| 20543 | (lambda (#{pat 3912}# #{exp 3913}#) | |
| 20544 | (if (if (if (symbol? #{pat 3912}#) | |
| 20545 | #t | |
| 20546 | (if (if (vector? #{pat 3912}#) | |
| 20547 | (if (= (vector-length #{pat 3912}#) 4) | |
| 20548 | (eq? (vector-ref #{pat 3912}# 0) | |
| 20549 | 'syntax-object) | |
| 20550 | #f) | |
| 20551 | #f) | |
| 20552 | (symbol? (vector-ref #{pat 3912}# 1)) | |
| 20553 | #f)) | |
| 20554 | (and-map | |
| 20555 | (lambda (#{x 3916}#) | |
| 20556 | (not (if (eq? (if (if (vector? #{pat 3912}#) | |
| 20557 | (if (= (vector-length | |
| 20558 | #{pat 3912}#) | |
| 20559 | 4) | |
| 20560 | (eq? (vector-ref | |
| 20561 | #{pat 3912}# | |
| 20562 | 0) | |
| 20563 | 'syntax-object) | |
| 20564 | #f) | |
| 20565 | #f) | |
| 20566 | (vector-ref #{pat 3912}# 1) | |
| 20567 | #{pat 3912}#) | |
| 20568 | (if (if (vector? #{x 3916}#) | |
| 20569 | (if (= (vector-length | |
| 20570 | #{x 3916}#) | |
| 20571 | 4) | |
| 20572 | (eq? (vector-ref | |
| 20573 | #{x 3916}# | |
| 20574 | 0) | |
| 20575 | 'syntax-object) | |
| 20576 | #f) | |
| 20577 | #f) | |
| 20578 | (vector-ref #{x 3916}# 1) | |
| 20579 | #{x 3916}#)) | |
| 20580 | (eq? (#{id-var-name 411}# | |
| 20581 | #{pat 3912}# | |
| 20582 | '(())) | |
| 20583 | (#{id-var-name 411}# | |
| 20584 | #{x 3916}# | |
| 20585 | '(()))) | |
| 20586 | #f))) | |
| 20587 | (cons '#(syntax-object | |
| 20588 | ... | |
| 20589 | ((top) | |
| 20590 | #(ribcage | |
| 20591 | #(pat exp) | |
| 20592 | #((top) (top)) | |
| 20593 | #("i3910" "i3911")) | |
| 20594 | #(ribcage () () ()) | |
| 20595 | #(ribcage | |
| 20596 | #(x keys clauses r mod) | |
| 20597 | #((top) (top) (top) (top) (top)) | |
| 20598 | #("i3899" | |
| 20599 | "i3900" | |
| 20600 | "i3901" | |
| 20601 | "i3902" | |
| 20602 | "i3903")) | |
| 20603 | #(ribcage | |
| 20604 | (gen-syntax-case | |
| 20605 | gen-clause | |
| 20606 | build-dispatch-call | |
| 20607 | convert-pattern) | |
| 20608 | ((top) (top) (top) (top)) | |
| 20609 | ("i3709" "i3707" "i3705" "i3703")) | |
| 20610 | #(ribcage | |
| 20611 | (lambda-var-list | |
| 20612 | gen-var | |
| 20613 | strip | |
| 20614 | chi-lambda-case | |
| 20615 | lambda*-formals | |
| 20616 | chi-simple-lambda | |
| 20617 | lambda-formals | |
| 20618 | ellipsis? | |
| 20619 | chi-void | |
| 20620 | eval-local-transformer | |
| 20621 | chi-local-syntax | |
| 20622 | chi-body | |
| 20623 | chi-macro | |
| 20624 | chi-application | |
| 20625 | chi-expr | |
| 20626 | chi | |
| 20627 | syntax-type | |
| 20628 | chi-when-list | |
| 20629 | chi-install-global | |
| 20630 | chi-top-sequence | |
| 20631 | chi-sequence | |
| 20632 | source-wrap | |
| 20633 | wrap | |
| 20634 | bound-id-member? | |
| 20635 | distinct-bound-ids? | |
| 20636 | valid-bound-ids? | |
| 20637 | bound-id=? | |
| 20638 | free-id=? | |
| 20639 | id-var-name | |
| 20640 | same-marks? | |
| 20641 | join-marks | |
| 20642 | join-wraps | |
| 20643 | smart-append | |
| 20644 | make-binding-wrap | |
| 20645 | extend-ribcage! | |
| 20646 | make-empty-ribcage | |
| 20647 | new-mark | |
| 20648 | anti-mark | |
| 20649 | the-anti-mark | |
| 20650 | top-marked? | |
| 20651 | top-wrap | |
| 20652 | empty-wrap | |
| 20653 | set-ribcage-labels! | |
| 20654 | set-ribcage-marks! | |
| 20655 | set-ribcage-symnames! | |
| 20656 | ribcage-labels | |
| 20657 | ribcage-marks | |
| 20658 | ribcage-symnames | |
| 20659 | ribcage? | |
| 20660 | make-ribcage | |
| 20661 | gen-labels | |
| 20662 | gen-label | |
| 20663 | make-rename | |
| 20664 | rename-marks | |
| 20665 | rename-new | |
| 20666 | rename-old | |
| 20667 | subst-rename? | |
| 20668 | wrap-subst | |
| 20669 | wrap-marks | |
| 20670 | make-wrap | |
| 20671 | id-sym-name&marks | |
| 20672 | id-sym-name | |
| 20673 | id? | |
| 20674 | nonsymbol-id? | |
| 20675 | global-extend | |
| 20676 | lookup | |
| 20677 | macros-only-env | |
| 20678 | extend-var-env | |
| 20679 | extend-env | |
| 20680 | null-env | |
| 20681 | binding-value | |
| 20682 | binding-type | |
| 20683 | make-binding | |
| 20684 | arg-check | |
| 20685 | source-annotation | |
| 20686 | no-source | |
| 20687 | set-syntax-object-module! | |
| 20688 | set-syntax-object-wrap! | |
| 20689 | set-syntax-object-expression! | |
| 20690 | syntax-object-module | |
| 20691 | syntax-object-wrap | |
| 20692 | syntax-object-expression | |
| 20693 | syntax-object? | |
| 20694 | make-syntax-object | |
| 20695 | build-lexical-var | |
| 20696 | build-letrec | |
| 20697 | build-named-let | |
| 20698 | build-let | |
| 20699 | build-sequence | |
| 20700 | build-data | |
| 20701 | build-primref | |
| 20702 | build-lambda-case | |
| 20703 | build-case-lambda | |
| 20704 | build-simple-lambda | |
| 20705 | build-global-definition | |
| 20706 | build-global-assignment | |
| 20707 | build-global-reference | |
| 20708 | analyze-variable | |
| 20709 | build-lexical-assignment | |
| 20710 | build-lexical-reference | |
| 20711 | build-dynlet | |
| 20712 | build-conditional | |
| 20713 | build-application | |
| 20714 | build-void | |
| 20715 | maybe-name-value! | |
| 20716 | decorate-source | |
| 20717 | get-global-definition-hook | |
| 20718 | put-global-definition-hook | |
| 20719 | gensym-hook | |
| 20720 | local-eval-hook | |
| 20721 | top-level-eval-hook | |
| 20722 | fx< | |
| 20723 | fx= | |
| 20724 | fx- | |
| 20725 | fx+ | |
| 20726 | set-lambda-meta! | |
| 20727 | lambda-meta | |
| 20728 | lambda? | |
| 20729 | make-dynlet | |
| 20730 | make-letrec | |
| 20731 | make-let | |
| 20732 | make-lambda-case | |
| 20733 | make-lambda | |
| 20734 | make-sequence | |
| 20735 | make-application | |
| 20736 | make-conditional | |
| 20737 | make-toplevel-define | |
| 20738 | make-toplevel-set | |
| 20739 | make-toplevel-ref | |
| 20740 | make-module-set | |
| 20741 | make-module-ref | |
| 20742 | make-lexical-set | |
| 20743 | make-lexical-ref | |
| 20744 | make-primitive-ref | |
| 20745 | make-const | |
| 20746 | make-void) | |
| 20747 | ((top) | |
| 20748 | (top) | |
| 20749 | (top) | |
| 20750 | (top) | |
| 20751 | (top) | |
| 20752 | (top) | |
| 20753 | (top) | |
| 20754 | (top) | |
| 20755 | (top) | |
| 20756 | (top) | |
| 20757 | (top) | |
| 20758 | (top) | |
| 20759 | (top) | |
| 20760 | (top) | |
| 20761 | (top) | |
| 20762 | (top) | |
| 20763 | (top) | |
| 20764 | (top) | |
| 20765 | (top) | |
| 20766 | (top) | |
| 20767 | (top) | |
| 20768 | (top) | |
| 20769 | (top) | |
| 20770 | (top) | |
| 20771 | (top) | |
| 20772 | (top) | |
| 20773 | (top) | |
| 20774 | (top) | |
| 20775 | (top) | |
| 20776 | (top) | |
| 20777 | (top) | |
| 20778 | (top) | |
| 20779 | (top) | |
| 20780 | (top) | |
| 20781 | (top) | |
| 20782 | (top) | |
| 20783 | (top) | |
| 20784 | (top) | |
| 20785 | (top) | |
| 20786 | (top) | |
| 20787 | (top) | |
| 20788 | (top) | |
| 20789 | (top) | |
| 20790 | (top) | |
| 20791 | (top) | |
| 20792 | (top) | |
| 20793 | (top) | |
| 20794 | (top) | |
| 20795 | (top) | |
| 20796 | (top) | |
| 20797 | (top) | |
| 20798 | (top) | |
| 20799 | (top) | |
| 20800 | (top) | |
| 20801 | (top) | |
| 20802 | (top) | |
| 20803 | (top) | |
| 20804 | (top) | |
| 20805 | (top) | |
| 20806 | (top) | |
| 20807 | (top) | |
| 20808 | (top) | |
| 20809 | (top) | |
| 20810 | (top) | |
| 20811 | (top) | |
| 20812 | (top) | |
| 20813 | (top) | |
| 20814 | (top) | |
| 20815 | (top) | |
| 20816 | (top) | |
| 20817 | (top) | |
| 20818 | (top) | |
| 20819 | (top) | |
| 20820 | (top) | |
| 20821 | (top) | |
| 20822 | (top) | |
| 20823 | (top) | |
| 20824 | (top) | |
| 20825 | (top) | |
| 20826 | (top) | |
| 20827 | (top) | |
| 20828 | (top) | |
| 20829 | (top) | |
| 20830 | (top) | |
| 20831 | (top) | |
| 20832 | (top) | |
| 20833 | (top) | |
| 20834 | (top) | |
| 20835 | (top) | |
| 20836 | (top) | |
| 20837 | (top) | |
| 20838 | (top) | |
| 20839 | (top) | |
| 20840 | (top) | |
| 20841 | (top) | |
| 20842 | (top) | |
| 20843 | (top) | |
| 20844 | (top) | |
| 20845 | (top) | |
| 20846 | (top) | |
| 20847 | (top) | |
| 20848 | (top) | |
| 20849 | (top) | |
| 20850 | (top) | |
| 20851 | (top) | |
| 20852 | (top) | |
| 20853 | (top) | |
| 20854 | (top) | |
| 20855 | (top) | |
| 20856 | (top) | |
| 20857 | (top) | |
| 20858 | (top) | |
| 20859 | (top) | |
| 20860 | (top) | |
| 20861 | (top) | |
| 20862 | (top) | |
| 20863 | (top) | |
| 20864 | (top) | |
| 20865 | (top) | |
| 20866 | (top) | |
| 20867 | (top) | |
| 20868 | (top) | |
| 20869 | (top) | |
| 20870 | (top) | |
| 20871 | (top) | |
| 20872 | (top) | |
| 20873 | (top) | |
| 20874 | (top) | |
| 20875 | (top) | |
| 20876 | (top) | |
| 20877 | (top) | |
| 20878 | (top) | |
| 20879 | (top) | |
| 20880 | (top) | |
| 20881 | (top) | |
| 20882 | (top)) | |
| 20883 | ("i466" | |
| 20884 | "i464" | |
| 20885 | "i462" | |
| 20886 | "i460" | |
| 20887 | "i458" | |
| 20888 | "i456" | |
| 20889 | "i454" | |
| 20890 | "i452" | |
| 20891 | "i450" | |
| 20892 | "i448" | |
| 20893 | "i446" | |
| 20894 | "i444" | |
| 20895 | "i442" | |
| 20896 | "i440" | |
| 20897 | "i438" | |
| 20898 | "i436" | |
| 20899 | "i434" | |
| 20900 | "i432" | |
| 20901 | "i430" | |
| 20902 | "i428" | |
| 20903 | "i426" | |
| 20904 | "i424" | |
| 20905 | "i422" | |
| 20906 | "i420" | |
| 20907 | "i418" | |
| 20908 | "i416" | |
| 20909 | "i414" | |
| 20910 | "i412" | |
| 20911 | "i410" | |
| 20912 | "i408" | |
| 20913 | "i406" | |
| 20914 | "i404" | |
| 20915 | "i402" | |
| 20916 | "i400" | |
| 20917 | "i398" | |
| 20918 | "i397" | |
| 20919 | "i395" | |
| 20920 | "i392" | |
| 20921 | "i391" | |
| 20922 | "i390" | |
| 20923 | "i388" | |
| 20924 | "i387" | |
| 20925 | "i385" | |
| 20926 | "i383" | |
| 20927 | "i381" | |
| 20928 | "i379" | |
| 20929 | "i377" | |
| 20930 | "i375" | |
| 20931 | "i373" | |
| 20932 | "i371" | |
| 20933 | "i368" | |
| 20934 | "i366" | |
| 20935 | "i365" | |
| 20936 | "i363" | |
| 20937 | "i361" | |
| 20938 | "i359" | |
| 20939 | "i357" | |
| 20940 | "i356" | |
| 20941 | "i355" | |
| 20942 | "i354" | |
| 20943 | "i352" | |
| 20944 | "i351" | |
| 20945 | "i348" | |
| 20946 | "i346" | |
| 20947 | "i344" | |
| 20948 | "i342" | |
| 20949 | "i340" | |
| 20950 | "i338" | |
| 20951 | "i336" | |
| 20952 | "i335" | |
| 20953 | "i334" | |
| 20954 | "i332" | |
| 20955 | "i330" | |
| 20956 | "i329" | |
| 20957 | "i326" | |
| 20958 | "i325" | |
| 20959 | "i323" | |
| 20960 | "i321" | |
| 20961 | "i319" | |
| 20962 | "i317" | |
| 20963 | "i315" | |
| 20964 | "i313" | |
| 20965 | "i311" | |
| 20966 | "i309" | |
| 20967 | "i307" | |
| 20968 | "i304" | |
| 20969 | "i302" | |
| 20970 | "i300" | |
| 20971 | "i298" | |
| 20972 | "i296" | |
| 20973 | "i294" | |
| 20974 | "i292" | |
| 20975 | "i290" | |
| 20976 | "i288" | |
| 20977 | "i286" | |
| 20978 | "i284" | |
| 20979 | "i282" | |
| 20980 | "i280" | |
| 20981 | "i278" | |
| 20982 | "i276" | |
| 20983 | "i274" | |
| 20984 | "i272" | |
| 20985 | "i270" | |
| 20986 | "i268" | |
| 20987 | "i266" | |
| 20988 | "i264" | |
| 20989 | "i262" | |
| 20990 | "i260" | |
| 20991 | "i259" | |
| 20992 | "i256" | |
| 20993 | "i254" | |
| 20994 | "i253" | |
| 20995 | "i252" | |
| 20996 | "i251" | |
| 20997 | "i250" | |
| 20998 | "i248" | |
| 20999 | "i246" | |
| 21000 | "i244" | |
| 21001 | "i241" | |
| 21002 | "i239" | |
| 21003 | "i237" | |
| 21004 | "i235" | |
| 21005 | "i233" | |
| 21006 | "i231" | |
| 21007 | "i229" | |
| 21008 | "i227" | |
| 21009 | "i225" | |
| 21010 | "i223" | |
| 21011 | "i221" | |
| 21012 | "i219" | |
| 21013 | "i217" | |
| 21014 | "i215" | |
| 21015 | "i213" | |
| 21016 | "i211" | |
| 21017 | "i209" | |
| 21018 | "i207")) | |
| 21019 | #(ribcage | |
| 21020 | (define-structure | |
| 21021 | define-expansion-accessors | |
| 21022 | define-expansion-constructors) | |
| 21023 | ((top) (top) (top)) | |
| 21024 | ("i45" "i44" "i43"))) | |
| 21025 | (hygiene guile)) | |
| 21026 | #{keys 3895}#)) | |
| 21027 | #f) | |
| 21028 | (if (if (eq? (if (if (= (vector-length | |
| 21029 | '#(syntax-object | |
| 21030 | pad | |
| 21031 | ((top) | |
| 21032 | #(ribcage | |
| 21033 | #(pat exp) | |
| 21034 | #((top) (top)) | |
| 21035 | #("i3910" "i3911")) | |
| 21036 | #(ribcage () () ()) | |
| 21037 | #(ribcage | |
| 21038 | #(x | |
| 21039 | keys | |
| 21040 | clauses | |
| 21041 | r | |
| 21042 | mod) | |
| 21043 | #((top) | |
| 21044 | (top) | |
| 21045 | (top) | |
| 21046 | (top) | |
| 21047 | (top)) | |
| 21048 | #("i3899" | |
| 21049 | "i3900" | |
| 21050 | "i3901" | |
| 21051 | "i3902" | |
| 21052 | "i3903")) | |
| 21053 | #(ribcage | |
| 21054 | (gen-syntax-case | |
| 21055 | gen-clause | |
| 21056 | build-dispatch-call | |
| 21057 | convert-pattern) | |
| 21058 | ((top) | |
| 21059 | (top) | |
| 21060 | (top) | |
| 21061 | (top)) | |
| 21062 | ("i3709" | |
| 21063 | "i3707" | |
| 21064 | "i3705" | |
| 21065 | "i3703")) | |
| 21066 | #(ribcage | |
| 21067 | (lambda-var-list | |
| 21068 | gen-var | |
| 21069 | strip | |
| 21070 | chi-lambda-case | |
| 21071 | lambda*-formals | |
| 21072 | chi-simple-lambda | |
| 21073 | lambda-formals | |
| 21074 | ellipsis? | |
| 21075 | chi-void | |
| 21076 | eval-local-transformer | |
| 21077 | chi-local-syntax | |
| 21078 | chi-body | |
| 21079 | chi-macro | |
| 21080 | chi-application | |
| 21081 | chi-expr | |
| 21082 | chi | |
| 21083 | syntax-type | |
| 21084 | chi-when-list | |
| 21085 | chi-install-global | |
| 21086 | chi-top-sequence | |
| 21087 | chi-sequence | |
| 21088 | source-wrap | |
| 21089 | wrap | |
| 21090 | bound-id-member? | |
| 21091 | distinct-bound-ids? | |
| 21092 | valid-bound-ids? | |
| 21093 | bound-id=? | |
| 21094 | free-id=? | |
| 21095 | id-var-name | |
| 21096 | same-marks? | |
| 21097 | join-marks | |
| 21098 | join-wraps | |
| 21099 | smart-append | |
| 21100 | make-binding-wrap | |
| 21101 | extend-ribcage! | |
| 21102 | make-empty-ribcage | |
| 21103 | new-mark | |
| 21104 | anti-mark | |
| 21105 | the-anti-mark | |
| 21106 | top-marked? | |
| 21107 | top-wrap | |
| 21108 | empty-wrap | |
| 21109 | set-ribcage-labels! | |
| 21110 | set-ribcage-marks! | |
| 21111 | set-ribcage-symnames! | |
| 21112 | ribcage-labels | |
| 21113 | ribcage-marks | |
| 21114 | ribcage-symnames | |
| 21115 | ribcage? | |
| 21116 | make-ribcage | |
| 21117 | gen-labels | |
| 21118 | gen-label | |
| 21119 | make-rename | |
| 21120 | rename-marks | |
| 21121 | rename-new | |
| 21122 | rename-old | |
| 21123 | subst-rename? | |
| 21124 | wrap-subst | |
| 21125 | wrap-marks | |
| 21126 | make-wrap | |
| 21127 | id-sym-name&marks | |
| 21128 | id-sym-name | |
| 21129 | id? | |
| 21130 | nonsymbol-id? | |
| 21131 | global-extend | |
| 21132 | lookup | |
| 21133 | macros-only-env | |
| 21134 | extend-var-env | |
| 21135 | extend-env | |
| 21136 | null-env | |
| 21137 | binding-value | |
| 21138 | binding-type | |
| 21139 | make-binding | |
| 21140 | arg-check | |
| 21141 | source-annotation | |
| 21142 | no-source | |
| 21143 | set-syntax-object-module! | |
| 21144 | set-syntax-object-wrap! | |
| 21145 | set-syntax-object-expression! | |
| 21146 | syntax-object-module | |
| 21147 | syntax-object-wrap | |
| 21148 | syntax-object-expression | |
| 21149 | syntax-object? | |
| 21150 | make-syntax-object | |
| 21151 | build-lexical-var | |
| 21152 | build-letrec | |
| 21153 | build-named-let | |
| 21154 | build-let | |
| 21155 | build-sequence | |
| 21156 | build-data | |
| 21157 | build-primref | |
| 21158 | build-lambda-case | |
| 21159 | build-case-lambda | |
| 21160 | build-simple-lambda | |
| 21161 | build-global-definition | |
| 21162 | build-global-assignment | |
| 21163 | build-global-reference | |
| 21164 | analyze-variable | |
| 21165 | build-lexical-assignment | |
| 21166 | build-lexical-reference | |
| 21167 | build-dynlet | |
| 21168 | build-conditional | |
| 21169 | build-application | |
| 21170 | build-void | |
| 21171 | maybe-name-value! | |
| 21172 | decorate-source | |
| 21173 | get-global-definition-hook | |
| 21174 | put-global-definition-hook | |
| 21175 | gensym-hook | |
| 21176 | local-eval-hook | |
| 21177 | top-level-eval-hook | |
| 21178 | fx< | |
| 21179 | fx= | |
| 21180 | fx- | |
| 21181 | fx+ | |
| 21182 | set-lambda-meta! | |
| 21183 | lambda-meta | |
| 21184 | lambda? | |
| 21185 | make-dynlet | |
| 21186 | make-letrec | |
| 21187 | make-let | |
| 21188 | make-lambda-case | |
| 21189 | make-lambda | |
| 21190 | make-sequence | |
| 21191 | make-application | |
| 21192 | make-conditional | |
| 21193 | make-toplevel-define | |
| 21194 | make-toplevel-set | |
| 21195 | make-toplevel-ref | |
| 21196 | make-module-set | |
| 21197 | make-module-ref | |
| 21198 | make-lexical-set | |
| 21199 | make-lexical-ref | |
| 21200 | make-primitive-ref | |
| 21201 | make-const | |
| 21202 | make-void) | |
| 21203 | ((top) | |
| 21204 | (top) | |
| 21205 | (top) | |
| 21206 | (top) | |
| 21207 | (top) | |
| 21208 | (top) | |
| 21209 | (top) | |
| 21210 | (top) | |
| 21211 | (top) | |
| 21212 | (top) | |
| 21213 | (top) | |
| 21214 | (top) | |
| 21215 | (top) | |
| 21216 | (top) | |
| 21217 | (top) | |
| 21218 | (top) | |
| 21219 | (top) | |
| 21220 | (top) | |
| 21221 | (top) | |
| 21222 | (top) | |
| 21223 | (top) | |
| 21224 | (top) | |
| 21225 | (top) | |
| 21226 | (top) | |
| 21227 | (top) | |
| 21228 | (top) | |
| 21229 | (top) | |
| 21230 | (top) | |
| 21231 | (top) | |
| 21232 | (top) | |
| 21233 | (top) | |
| 21234 | (top) | |
| 21235 | (top) | |
| 21236 | (top) | |
| 21237 | (top) | |
| 21238 | (top) | |
| 21239 | (top) | |
| 21240 | (top) | |
| 21241 | (top) | |
| 21242 | (top) | |
| 21243 | (top) | |
| 21244 | (top) | |
| 21245 | (top) | |
| 21246 | (top) | |
| 21247 | (top) | |
| 21248 | (top) | |
| 21249 | (top) | |
| 21250 | (top) | |
| 21251 | (top) | |
| 21252 | (top) | |
| 21253 | (top) | |
| 21254 | (top) | |
| 21255 | (top) | |
| 21256 | (top) | |
| 21257 | (top) | |
| 21258 | (top) | |
| 21259 | (top) | |
| 21260 | (top) | |
| 21261 | (top) | |
| 21262 | (top) | |
| 21263 | (top) | |
| 21264 | (top) | |
| 21265 | (top) | |
| 21266 | (top) | |
| 21267 | (top) | |
| 21268 | (top) | |
| 21269 | (top) | |
| 21270 | (top) | |
| 21271 | (top) | |
| 21272 | (top) | |
| 21273 | (top) | |
| 21274 | (top) | |
| 21275 | (top) | |
| 21276 | (top) | |
| 21277 | (top) | |
| 21278 | (top) | |
| 21279 | (top) | |
| 21280 | (top) | |
| 21281 | (top) | |
| 21282 | (top) | |
| 21283 | (top) | |
| 21284 | (top) | |
| 21285 | (top) | |
| 21286 | (top) | |
| 21287 | (top) | |
| 21288 | (top) | |
| 21289 | (top) | |
| 21290 | (top) | |
| 21291 | (top) | |
| 21292 | (top) | |
| 21293 | (top) | |
| 21294 | (top) | |
| 21295 | (top) | |
| 21296 | (top) | |
| 21297 | (top) | |
| 21298 | (top) | |
| 21299 | (top) | |
| 21300 | (top) | |
| 21301 | (top) | |
| 21302 | (top) | |
| 21303 | (top) | |
| 21304 | (top) | |
| 21305 | (top) | |
| 21306 | (top) | |
| 21307 | (top) | |
| 21308 | (top) | |
| 21309 | (top) | |
| 21310 | (top) | |
| 21311 | (top) | |
| 21312 | (top) | |
| 21313 | (top) | |
| 21314 | (top) | |
| 21315 | (top) | |
| 21316 | (top) | |
| 21317 | (top) | |
| 21318 | (top) | |
| 21319 | (top) | |
| 21320 | (top) | |
| 21321 | (top) | |
| 21322 | (top) | |
| 21323 | (top) | |
| 21324 | (top) | |
| 21325 | (top) | |
| 21326 | (top) | |
| 21327 | (top) | |
| 21328 | (top) | |
| 21329 | (top) | |
| 21330 | (top) | |
| 21331 | (top) | |
| 21332 | (top) | |
| 21333 | (top) | |
| 21334 | (top) | |
| 21335 | (top) | |
| 21336 | (top) | |
| 21337 | (top) | |
| 21338 | (top)) | |
| 21339 | ("i466" | |
| 21340 | "i464" | |
| 21341 | "i462" | |
| 21342 | "i460" | |
| 21343 | "i458" | |
| 21344 | "i456" | |
| 21345 | "i454" | |
| 21346 | "i452" | |
| 21347 | "i450" | |
| 21348 | "i448" | |
| 21349 | "i446" | |
| 21350 | "i444" | |
| 21351 | "i442" | |
| 21352 | "i440" | |
| 21353 | "i438" | |
| 21354 | "i436" | |
| 21355 | "i434" | |
| 21356 | "i432" | |
| 21357 | "i430" | |
| 21358 | "i428" | |
| 21359 | "i426" | |
| 21360 | "i424" | |
| 21361 | "i422" | |
| 21362 | "i420" | |
| 21363 | "i418" | |
| 21364 | "i416" | |
| 21365 | "i414" | |
| 21366 | "i412" | |
| 21367 | "i410" | |
| 21368 | "i408" | |
| 21369 | "i406" | |
| 21370 | "i404" | |
| 21371 | "i402" | |
| 21372 | "i400" | |
| 21373 | "i398" | |
| 21374 | "i397" | |
| 21375 | "i395" | |
| 21376 | "i392" | |
| 21377 | "i391" | |
| 21378 | "i390" | |
| 21379 | "i388" | |
| 21380 | "i387" | |
| 21381 | "i385" | |
| 21382 | "i383" | |
| 21383 | "i381" | |
| 21384 | "i379" | |
| 21385 | "i377" | |
| 21386 | "i375" | |
| 21387 | "i373" | |
| 21388 | "i371" | |
| 21389 | "i368" | |
| 21390 | "i366" | |
| 21391 | "i365" | |
| 21392 | "i363" | |
| 21393 | "i361" | |
| 21394 | "i359" | |
| 21395 | "i357" | |
| 21396 | "i356" | |
| 21397 | "i355" | |
| 21398 | "i354" | |
| 21399 | "i352" | |
| 21400 | "i351" | |
| 21401 | "i348" | |
| 21402 | "i346" | |
| 21403 | "i344" | |
| 21404 | "i342" | |
| 21405 | "i340" | |
| 21406 | "i338" | |
| 21407 | "i336" | |
| 21408 | "i335" | |
| 21409 | "i334" | |
| 21410 | "i332" | |
| 21411 | "i330" | |
| 21412 | "i329" | |
| 21413 | "i326" | |
| 21414 | "i325" | |
| 21415 | "i323" | |
| 21416 | "i321" | |
| 21417 | "i319" | |
| 21418 | "i317" | |
| 21419 | "i315" | |
| 21420 | "i313" | |
| 21421 | "i311" | |
| 21422 | "i309" | |
| 21423 | "i307" | |
| 21424 | "i304" | |
| 21425 | "i302" | |
| 21426 | "i300" | |
| 21427 | "i298" | |
| 21428 | "i296" | |
| 21429 | "i294" | |
| 21430 | "i292" | |
| 21431 | "i290" | |
| 21432 | "i288" | |
| 21433 | "i286" | |
| 21434 | "i284" | |
| 21435 | "i282" | |
| 21436 | "i280" | |
| 21437 | "i278" | |
| 21438 | "i276" | |
| 21439 | "i274" | |
| 21440 | "i272" | |
| 21441 | "i270" | |
| 21442 | "i268" | |
| 21443 | "i266" | |
| 21444 | "i264" | |
| 21445 | "i262" | |
| 21446 | "i260" | |
| 21447 | "i259" | |
| 21448 | "i256" | |
| 21449 | "i254" | |
| 21450 | "i253" | |
| 21451 | "i252" | |
| 21452 | "i251" | |
| 21453 | "i250" | |
| 21454 | "i248" | |
| 21455 | "i246" | |
| 21456 | "i244" | |
| 21457 | "i241" | |
| 21458 | "i239" | |
| 21459 | "i237" | |
| 21460 | "i235" | |
| 21461 | "i233" | |
| 21462 | "i231" | |
| 21463 | "i229" | |
| 21464 | "i227" | |
| 21465 | "i225" | |
| 21466 | "i223" | |
| 21467 | "i221" | |
| 21468 | "i219" | |
| 21469 | "i217" | |
| 21470 | "i215" | |
| 21471 | "i213" | |
| 21472 | "i211" | |
| 21473 | "i209" | |
| 21474 | "i207")) | |
| 21475 | #(ribcage | |
| 21476 | (define-structure | |
| 21477 | define-expansion-accessors | |
| 21478 | define-expansion-constructors) | |
| 21479 | ((top) (top) (top)) | |
| 21480 | ("i45" | |
| 21481 | "i44" | |
| 21482 | "i43"))) | |
| 21483 | (hygiene guile))) | |
| 21484 | 4) | |
| 21485 | (eq? (vector-ref | |
| 21486 | '#(syntax-object | |
| 21487 | pad | |
| 21488 | ((top) | |
| 21489 | #(ribcage | |
| 21490 | #(pat exp) | |
| 21491 | #((top) (top)) | |
| 21492 | #("i3910" "i3911")) | |
| 21493 | #(ribcage () () ()) | |
| 21494 | #(ribcage | |
| 21495 | #(x | |
| 21496 | keys | |
| 21497 | clauses | |
| 21498 | r | |
| 21499 | mod) | |
| 21500 | #((top) | |
| 21501 | (top) | |
| 21502 | (top) | |
| 21503 | (top) | |
| 21504 | (top)) | |
| 21505 | #("i3899" | |
| 21506 | "i3900" | |
| 21507 | "i3901" | |
| 21508 | "i3902" | |
| 21509 | "i3903")) | |
| 21510 | #(ribcage | |
| 21511 | (gen-syntax-case | |
| 21512 | gen-clause | |
| 21513 | build-dispatch-call | |
| 21514 | convert-pattern) | |
| 21515 | ((top) | |
| 21516 | (top) | |
| 21517 | (top) | |
| 21518 | (top)) | |
| 21519 | ("i3709" | |
| 21520 | "i3707" | |
| 21521 | "i3705" | |
| 21522 | "i3703")) | |
| 21523 | #(ribcage | |
| 21524 | (lambda-var-list | |
| 21525 | gen-var | |
| 21526 | strip | |
| 21527 | chi-lambda-case | |
| 21528 | lambda*-formals | |
| 21529 | chi-simple-lambda | |
| 21530 | lambda-formals | |
| 21531 | ellipsis? | |
| 21532 | chi-void | |
| 21533 | eval-local-transformer | |
| 21534 | chi-local-syntax | |
| 21535 | chi-body | |
| 21536 | chi-macro | |
| 21537 | chi-application | |
| 21538 | chi-expr | |
| 21539 | chi | |
| 21540 | syntax-type | |
| 21541 | chi-when-list | |
| 21542 | chi-install-global | |
| 21543 | chi-top-sequence | |
| 21544 | chi-sequence | |
| 21545 | source-wrap | |
| 21546 | wrap | |
| 21547 | bound-id-member? | |
| 21548 | distinct-bound-ids? | |
| 21549 | valid-bound-ids? | |
| 21550 | bound-id=? | |
| 21551 | free-id=? | |
| 21552 | id-var-name | |
| 21553 | same-marks? | |
| 21554 | join-marks | |
| 21555 | join-wraps | |
| 21556 | smart-append | |
| 21557 | make-binding-wrap | |
| 21558 | extend-ribcage! | |
| 21559 | make-empty-ribcage | |
| 21560 | new-mark | |
| 21561 | anti-mark | |
| 21562 | the-anti-mark | |
| 21563 | top-marked? | |
| 21564 | top-wrap | |
| 21565 | empty-wrap | |
| 21566 | set-ribcage-labels! | |
| 21567 | set-ribcage-marks! | |
| 21568 | set-ribcage-symnames! | |
| 21569 | ribcage-labels | |
| 21570 | ribcage-marks | |
| 21571 | ribcage-symnames | |
| 21572 | ribcage? | |
| 21573 | make-ribcage | |
| 21574 | gen-labels | |
| 21575 | gen-label | |
| 21576 | make-rename | |
| 21577 | rename-marks | |
| 21578 | rename-new | |
| 21579 | rename-old | |
| 21580 | subst-rename? | |
| 21581 | wrap-subst | |
| 21582 | wrap-marks | |
| 21583 | make-wrap | |
| 21584 | id-sym-name&marks | |
| 21585 | id-sym-name | |
| 21586 | id? | |
| 21587 | nonsymbol-id? | |
| 21588 | global-extend | |
| 21589 | lookup | |
| 21590 | macros-only-env | |
| 21591 | extend-var-env | |
| 21592 | extend-env | |
| 21593 | null-env | |
| 21594 | binding-value | |
| 21595 | binding-type | |
| 21596 | make-binding | |
| 21597 | arg-check | |
| 21598 | source-annotation | |
| 21599 | no-source | |
| 21600 | set-syntax-object-module! | |
| 21601 | set-syntax-object-wrap! | |
| 21602 | set-syntax-object-expression! | |
| 21603 | syntax-object-module | |
| 21604 | syntax-object-wrap | |
| 21605 | syntax-object-expression | |
| 21606 | syntax-object? | |
| 21607 | make-syntax-object | |
| 21608 | build-lexical-var | |
| 21609 | build-letrec | |
| 21610 | build-named-let | |
| 21611 | build-let | |
| 21612 | build-sequence | |
| 21613 | build-data | |
| 21614 | build-primref | |
| 21615 | build-lambda-case | |
| 21616 | build-case-lambda | |
| 21617 | build-simple-lambda | |
| 21618 | build-global-definition | |
| 21619 | build-global-assignment | |
| 21620 | build-global-reference | |
| 21621 | analyze-variable | |
| 21622 | build-lexical-assignment | |
| 21623 | build-lexical-reference | |
| 21624 | build-dynlet | |
| 21625 | build-conditional | |
| 21626 | build-application | |
| 21627 | build-void | |
| 21628 | maybe-name-value! | |
| 21629 | decorate-source | |
| 21630 | get-global-definition-hook | |
| 21631 | put-global-definition-hook | |
| 21632 | gensym-hook | |
| 21633 | local-eval-hook | |
| 21634 | top-level-eval-hook | |
| 21635 | fx< | |
| 21636 | fx= | |
| 21637 | fx- | |
| 21638 | fx+ | |
| 21639 | set-lambda-meta! | |
| 21640 | lambda-meta | |
| 21641 | lambda? | |
| 21642 | make-dynlet | |
| 21643 | make-letrec | |
| 21644 | make-let | |
| 21645 | make-lambda-case | |
| 21646 | make-lambda | |
| 21647 | make-sequence | |
| 21648 | make-application | |
| 21649 | make-conditional | |
| 21650 | make-toplevel-define | |
| 21651 | make-toplevel-set | |
| 21652 | make-toplevel-ref | |
| 21653 | make-module-set | |
| 21654 | make-module-ref | |
| 21655 | make-lexical-set | |
| 21656 | make-lexical-ref | |
| 21657 | make-primitive-ref | |
| 21658 | make-const | |
| 21659 | make-void) | |
| 21660 | ((top) | |
| 21661 | (top) | |
| 21662 | (top) | |
| 21663 | (top) | |
| 21664 | (top) | |
| 21665 | (top) | |
| 21666 | (top) | |
| 21667 | (top) | |
| 21668 | (top) | |
| 21669 | (top) | |
| 21670 | (top) | |
| 21671 | (top) | |
| 21672 | (top) | |
| 21673 | (top) | |
| 21674 | (top) | |
| 21675 | (top) | |
| 21676 | (top) | |
| 21677 | (top) | |
| 21678 | (top) | |
| 21679 | (top) | |
| 21680 | (top) | |
| 21681 | (top) | |
| 21682 | (top) | |
| 21683 | (top) | |
| 21684 | (top) | |
| 21685 | (top) | |
| 21686 | (top) | |
| 21687 | (top) | |
| 21688 | (top) | |
| 21689 | (top) | |
| 21690 | (top) | |
| 21691 | (top) | |
| 21692 | (top) | |
| 21693 | (top) | |
| 21694 | (top) | |
| 21695 | (top) | |
| 21696 | (top) | |
| 21697 | (top) | |
| 21698 | (top) | |
| 21699 | (top) | |
| 21700 | (top) | |
| 21701 | (top) | |
| 21702 | (top) | |
| 21703 | (top) | |
| 21704 | (top) | |
| 21705 | (top) | |
| 21706 | (top) | |
| 21707 | (top) | |
| 21708 | (top) | |
| 21709 | (top) | |
| 21710 | (top) | |
| 21711 | (top) | |
| 21712 | (top) | |
| 21713 | (top) | |
| 21714 | (top) | |
| 21715 | (top) | |
| 21716 | (top) | |
| 21717 | (top) | |
| 21718 | (top) | |
| 21719 | (top) | |
| 21720 | (top) | |
| 21721 | (top) | |
| 21722 | (top) | |
| 21723 | (top) | |
| 21724 | (top) | |
| 21725 | (top) | |
| 21726 | (top) | |
| 21727 | (top) | |
| 21728 | (top) | |
| 21729 | (top) | |
| 21730 | (top) | |
| 21731 | (top) | |
| 21732 | (top) | |
| 21733 | (top) | |
| 21734 | (top) | |
| 21735 | (top) | |
| 21736 | (top) | |
| 21737 | (top) | |
| 21738 | (top) | |
| 21739 | (top) | |
| 21740 | (top) | |
| 21741 | (top) | |
| 21742 | (top) | |
| 21743 | (top) | |
| 21744 | (top) | |
| 21745 | (top) | |
| 21746 | (top) | |
| 21747 | (top) | |
| 21748 | (top) | |
| 21749 | (top) | |
| 21750 | (top) | |
| 21751 | (top) | |
| 21752 | (top) | |
| 21753 | (top) | |
| 21754 | (top) | |
| 21755 | (top) | |
| 21756 | (top) | |
| 21757 | (top) | |
| 21758 | (top) | |
| 21759 | (top) | |
| 21760 | (top) | |
| 21761 | (top) | |
| 21762 | (top) | |
| 21763 | (top) | |
| 21764 | (top) | |
| 21765 | (top) | |
| 21766 | (top) | |
| 21767 | (top) | |
| 21768 | (top) | |
| 21769 | (top) | |
| 21770 | (top) | |
| 21771 | (top) | |
| 21772 | (top) | |
| 21773 | (top) | |
| 21774 | (top) | |
| 21775 | (top) | |
| 21776 | (top) | |
| 21777 | (top) | |
| 21778 | (top) | |
| 21779 | (top) | |
| 21780 | (top) | |
| 21781 | (top) | |
| 21782 | (top) | |
| 21783 | (top) | |
| 21784 | (top) | |
| 21785 | (top) | |
| 21786 | (top) | |
| 21787 | (top) | |
| 21788 | (top) | |
| 21789 | (top) | |
| 21790 | (top) | |
| 21791 | (top) | |
| 21792 | (top) | |
| 21793 | (top) | |
| 21794 | (top) | |
| 21795 | (top)) | |
| 21796 | ("i466" | |
| 21797 | "i464" | |
| 21798 | "i462" | |
| 21799 | "i460" | |
| 21800 | "i458" | |
| 21801 | "i456" | |
| 21802 | "i454" | |
| 21803 | "i452" | |
| 21804 | "i450" | |
| 21805 | "i448" | |
| 21806 | "i446" | |
| 21807 | "i444" | |
| 21808 | "i442" | |
| 21809 | "i440" | |
| 21810 | "i438" | |
| 21811 | "i436" | |
| 21812 | "i434" | |
| 21813 | "i432" | |
| 21814 | "i430" | |
| 21815 | "i428" | |
| 21816 | "i426" | |
| 21817 | "i424" | |
| 21818 | "i422" | |
| 21819 | "i420" | |
| 21820 | "i418" | |
| 21821 | "i416" | |
| 21822 | "i414" | |
| 21823 | "i412" | |
| 21824 | "i410" | |
| 21825 | "i408" | |
| 21826 | "i406" | |
| 21827 | "i404" | |
| 21828 | "i402" | |
| 21829 | "i400" | |
| 21830 | "i398" | |
| 21831 | "i397" | |
| 21832 | "i395" | |
| 21833 | "i392" | |
| 21834 | "i391" | |
| 21835 | "i390" | |
| 21836 | "i388" | |
| 21837 | "i387" | |
| 21838 | "i385" | |
| 21839 | "i383" | |
| 21840 | "i381" | |
| 21841 | "i379" | |
| 21842 | "i377" | |
| 21843 | "i375" | |
| 21844 | "i373" | |
| 21845 | "i371" | |
| 21846 | "i368" | |
| 21847 | "i366" | |
| 21848 | "i365" | |
| 21849 | "i363" | |
| 21850 | "i361" | |
| 21851 | "i359" | |
| 21852 | "i357" | |
| 21853 | "i356" | |
| 21854 | "i355" | |
| 21855 | "i354" | |
| 21856 | "i352" | |
| 21857 | "i351" | |
| 21858 | "i348" | |
| 21859 | "i346" | |
| 21860 | "i344" | |
| 21861 | "i342" | |
| 21862 | "i340" | |
| 21863 | "i338" | |
| 21864 | "i336" | |
| 21865 | "i335" | |
| 21866 | "i334" | |
| 21867 | "i332" | |
| 21868 | "i330" | |
| 21869 | "i329" | |
| 21870 | "i326" | |
| 21871 | "i325" | |
| 21872 | "i323" | |
| 21873 | "i321" | |
| 21874 | "i319" | |
| 21875 | "i317" | |
| 21876 | "i315" | |
| 21877 | "i313" | |
| 21878 | "i311" | |
| 21879 | "i309" | |
| 21880 | "i307" | |
| 21881 | "i304" | |
| 21882 | "i302" | |
| 21883 | "i300" | |
| 21884 | "i298" | |
| 21885 | "i296" | |
| 21886 | "i294" | |
| 21887 | "i292" | |
| 21888 | "i290" | |
| 21889 | "i288" | |
| 21890 | "i286" | |
| 21891 | "i284" | |
| 21892 | "i282" | |
| 21893 | "i280" | |
| 21894 | "i278" | |
| 21895 | "i276" | |
| 21896 | "i274" | |
| 21897 | "i272" | |
| 21898 | "i270" | |
| 21899 | "i268" | |
| 21900 | "i266" | |
| 21901 | "i264" | |
| 21902 | "i262" | |
| 21903 | "i260" | |
| 21904 | "i259" | |
| 21905 | "i256" | |
| 21906 | "i254" | |
| 21907 | "i253" | |
| 21908 | "i252" | |
| 21909 | "i251" | |
| 21910 | "i250" | |
| 21911 | "i248" | |
| 21912 | "i246" | |
| 21913 | "i244" | |
| 21914 | "i241" | |
| 21915 | "i239" | |
| 21916 | "i237" | |
| 21917 | "i235" | |
| 21918 | "i233" | |
| 21919 | "i231" | |
| 21920 | "i229" | |
| 21921 | "i227" | |
| 21922 | "i225" | |
| 21923 | "i223" | |
| 21924 | "i221" | |
| 21925 | "i219" | |
| 21926 | "i217" | |
| 21927 | "i215" | |
| 21928 | "i213" | |
| 21929 | "i211" | |
| 21930 | "i209" | |
| 21931 | "i207")) | |
| 21932 | #(ribcage | |
| 21933 | (define-structure | |
| 21934 | define-expansion-accessors | |
| 21935 | define-expansion-constructors) | |
| 21936 | ((top) (top) (top)) | |
| 21937 | ("i45" | |
| 21938 | "i44" | |
| 21939 | "i43"))) | |
| 21940 | (hygiene guile)) | |
| 21941 | 0) | |
| 21942 | 'syntax-object) | |
| 21943 | #f) | |
| 21944 | (vector-ref | |
| 21945 | '#(syntax-object | |
| 21946 | pad | |
| 21947 | ((top) | |
| 21948 | #(ribcage | |
| 21949 | #(pat exp) | |
| 21950 | #((top) (top)) | |
| 21951 | #("i3910" "i3911")) | |
| 21952 | #(ribcage () () ()) | |
| 21953 | #(ribcage | |
| 21954 | #(x keys clauses r mod) | |
| 21955 | #((top) | |
| 21956 | (top) | |
| 21957 | (top) | |
| 21958 | (top) | |
| 21959 | (top)) | |
| 21960 | #("i3899" | |
| 21961 | "i3900" | |
| 21962 | "i3901" | |
| 21963 | "i3902" | |
| 21964 | "i3903")) | |
| 21965 | #(ribcage | |
| 21966 | (gen-syntax-case | |
| 21967 | gen-clause | |
| 21968 | build-dispatch-call | |
| 21969 | convert-pattern) | |
| 21970 | ((top) (top) (top) (top)) | |
| 21971 | ("i3709" | |
| 21972 | "i3707" | |
| 21973 | "i3705" | |
| 21974 | "i3703")) | |
| 21975 | #(ribcage | |
| 21976 | (lambda-var-list | |
| 21977 | gen-var | |
| 21978 | strip | |
| 21979 | chi-lambda-case | |
| 21980 | lambda*-formals | |
| 21981 | chi-simple-lambda | |
| 21982 | lambda-formals | |
| 21983 | ellipsis? | |
| 21984 | chi-void | |
| 21985 | eval-local-transformer | |
| 21986 | chi-local-syntax | |
| 21987 | chi-body | |
| 21988 | chi-macro | |
| 21989 | chi-application | |
| 21990 | chi-expr | |
| 21991 | chi | |
| 21992 | syntax-type | |
| 21993 | chi-when-list | |
| 21994 | chi-install-global | |
| 21995 | chi-top-sequence | |
| 21996 | chi-sequence | |
| 21997 | source-wrap | |
| 21998 | wrap | |
| 21999 | bound-id-member? | |
| 22000 | distinct-bound-ids? | |
| 22001 | valid-bound-ids? | |
| 22002 | bound-id=? | |
| 22003 | free-id=? | |
| 22004 | id-var-name | |
| 22005 | same-marks? | |
| 22006 | join-marks | |
| 22007 | join-wraps | |
| 22008 | smart-append | |
| 22009 | make-binding-wrap | |
| 22010 | extend-ribcage! | |
| 22011 | make-empty-ribcage | |
| 22012 | new-mark | |
| 22013 | anti-mark | |
| 22014 | the-anti-mark | |
| 22015 | top-marked? | |
| 22016 | top-wrap | |
| 22017 | empty-wrap | |
| 22018 | set-ribcage-labels! | |
| 22019 | set-ribcage-marks! | |
| 22020 | set-ribcage-symnames! | |
| 22021 | ribcage-labels | |
| 22022 | ribcage-marks | |
| 22023 | ribcage-symnames | |
| 22024 | ribcage? | |
| 22025 | make-ribcage | |
| 22026 | gen-labels | |
| 22027 | gen-label | |
| 22028 | make-rename | |
| 22029 | rename-marks | |
| 22030 | rename-new | |
| 22031 | rename-old | |
| 22032 | subst-rename? | |
| 22033 | wrap-subst | |
| 22034 | wrap-marks | |
| 22035 | make-wrap | |
| 22036 | id-sym-name&marks | |
| 22037 | id-sym-name | |
| 22038 | id? | |
| 22039 | nonsymbol-id? | |
| 22040 | global-extend | |
| 22041 | lookup | |
| 22042 | macros-only-env | |
| 22043 | extend-var-env | |
| 22044 | extend-env | |
| 22045 | null-env | |
| 22046 | binding-value | |
| 22047 | binding-type | |
| 22048 | make-binding | |
| 22049 | arg-check | |
| 22050 | source-annotation | |
| 22051 | no-source | |
| 22052 | set-syntax-object-module! | |
| 22053 | set-syntax-object-wrap! | |
| 22054 | set-syntax-object-expression! | |
| 22055 | syntax-object-module | |
| 22056 | syntax-object-wrap | |
| 22057 | syntax-object-expression | |
| 22058 | syntax-object? | |
| 22059 | make-syntax-object | |
| 22060 | build-lexical-var | |
| 22061 | build-letrec | |
| 22062 | build-named-let | |
| 22063 | build-let | |
| 22064 | build-sequence | |
| 22065 | build-data | |
| 22066 | build-primref | |
| 22067 | build-lambda-case | |
| 22068 | build-case-lambda | |
| 22069 | build-simple-lambda | |
| 22070 | build-global-definition | |
| 22071 | build-global-assignment | |
| 22072 | build-global-reference | |
| 22073 | analyze-variable | |
| 22074 | build-lexical-assignment | |
| 22075 | build-lexical-reference | |
| 22076 | build-dynlet | |
| 22077 | build-conditional | |
| 22078 | build-application | |
| 22079 | build-void | |
| 22080 | maybe-name-value! | |
| 22081 | decorate-source | |
| 22082 | get-global-definition-hook | |
| 22083 | put-global-definition-hook | |
| 22084 | gensym-hook | |
| 22085 | local-eval-hook | |
| 22086 | top-level-eval-hook | |
| 22087 | fx< | |
| 22088 | fx= | |
| 22089 | fx- | |
| 22090 | fx+ | |
| 22091 | set-lambda-meta! | |
| 22092 | lambda-meta | |
| 22093 | lambda? | |
| 22094 | make-dynlet | |
| 22095 | make-letrec | |
| 22096 | make-let | |
| 22097 | make-lambda-case | |
| 22098 | make-lambda | |
| 22099 | make-sequence | |
| 22100 | make-application | |
| 22101 | make-conditional | |
| 22102 | make-toplevel-define | |
| 22103 | make-toplevel-set | |
| 22104 | make-toplevel-ref | |
| 22105 | make-module-set | |
| 22106 | make-module-ref | |
| 22107 | make-lexical-set | |
| 22108 | make-lexical-ref | |
| 22109 | make-primitive-ref | |
| 22110 | make-const | |
| 22111 | make-void) | |
| 22112 | ((top) | |
| 22113 | (top) | |
| 22114 | (top) | |
| 22115 | (top) | |
| 22116 | (top) | |
| 22117 | (top) | |
| 22118 | (top) | |
| 22119 | (top) | |
| 22120 | (top) | |
| 22121 | (top) | |
| 22122 | (top) | |
| 22123 | (top) | |
| 22124 | (top) | |
| 22125 | (top) | |
| 22126 | (top) | |
| 22127 | (top) | |
| 22128 | (top) | |
| 22129 | (top) | |
| 22130 | (top) | |
| 22131 | (top) | |
| 22132 | (top) | |
| 22133 | (top) | |
| 22134 | (top) | |
| 22135 | (top) | |
| 22136 | (top) | |
| 22137 | (top) | |
| 22138 | (top) | |
| 22139 | (top) | |
| 22140 | (top) | |
| 22141 | (top) | |
| 22142 | (top) | |
| 22143 | (top) | |
| 22144 | (top) | |
| 22145 | (top) | |
| 22146 | (top) | |
| 22147 | (top) | |
| 22148 | (top) | |
| 22149 | (top) | |
| 22150 | (top) | |
| 22151 | (top) | |
| 22152 | (top) | |
| 22153 | (top) | |
| 22154 | (top) | |
| 22155 | (top) | |
| 22156 | (top) | |
| 22157 | (top) | |
| 22158 | (top) | |
| 22159 | (top) | |
| 22160 | (top) | |
| 22161 | (top) | |
| 22162 | (top) | |
| 22163 | (top) | |
| 22164 | (top) | |
| 22165 | (top) | |
| 22166 | (top) | |
| 22167 | (top) | |
| 22168 | (top) | |
| 22169 | (top) | |
| 22170 | (top) | |
| 22171 | (top) | |
| 22172 | (top) | |
| 22173 | (top) | |
| 22174 | (top) | |
| 22175 | (top) | |
| 22176 | (top) | |
| 22177 | (top) | |
| 22178 | (top) | |
| 22179 | (top) | |
| 22180 | (top) | |
| 22181 | (top) | |
| 22182 | (top) | |
| 22183 | (top) | |
| 22184 | (top) | |
| 22185 | (top) | |
| 22186 | (top) | |
| 22187 | (top) | |
| 22188 | (top) | |
| 22189 | (top) | |
| 22190 | (top) | |
| 22191 | (top) | |
| 22192 | (top) | |
| 22193 | (top) | |
| 22194 | (top) | |
| 22195 | (top) | |
| 22196 | (top) | |
| 22197 | (top) | |
| 22198 | (top) | |
| 22199 | (top) | |
| 22200 | (top) | |
| 22201 | (top) | |
| 22202 | (top) | |
| 22203 | (top) | |
| 22204 | (top) | |
| 22205 | (top) | |
| 22206 | (top) | |
| 22207 | (top) | |
| 22208 | (top) | |
| 22209 | (top) | |
| 22210 | (top) | |
| 22211 | (top) | |
| 22212 | (top) | |
| 22213 | (top) | |
| 22214 | (top) | |
| 22215 | (top) | |
| 22216 | (top) | |
| 22217 | (top) | |
| 22218 | (top) | |
| 22219 | (top) | |
| 22220 | (top) | |
| 22221 | (top) | |
| 22222 | (top) | |
| 22223 | (top) | |
| 22224 | (top) | |
| 22225 | (top) | |
| 22226 | (top) | |
| 22227 | (top) | |
| 22228 | (top) | |
| 22229 | (top) | |
| 22230 | (top) | |
| 22231 | (top) | |
| 22232 | (top) | |
| 22233 | (top) | |
| 22234 | (top) | |
| 22235 | (top) | |
| 22236 | (top) | |
| 22237 | (top) | |
| 22238 | (top) | |
| 22239 | (top) | |
| 22240 | (top) | |
| 22241 | (top) | |
| 22242 | (top) | |
| 22243 | (top) | |
| 22244 | (top) | |
| 22245 | (top) | |
| 22246 | (top) | |
| 22247 | (top)) | |
| 22248 | ("i466" | |
| 22249 | "i464" | |
| 22250 | "i462" | |
| 22251 | "i460" | |
| 22252 | "i458" | |
| 22253 | "i456" | |
| 22254 | "i454" | |
| 22255 | "i452" | |
| 22256 | "i450" | |
| 22257 | "i448" | |
| 22258 | "i446" | |
| 22259 | "i444" | |
| 22260 | "i442" | |
| 22261 | "i440" | |
| 22262 | "i438" | |
| 22263 | "i436" | |
| 22264 | "i434" | |
| 22265 | "i432" | |
| 22266 | "i430" | |
| 22267 | "i428" | |
| 22268 | "i426" | |
| 22269 | "i424" | |
| 22270 | "i422" | |
| 22271 | "i420" | |
| 22272 | "i418" | |
| 22273 | "i416" | |
| 22274 | "i414" | |
| 22275 | "i412" | |
| 22276 | "i410" | |
| 22277 | "i408" | |
| 22278 | "i406" | |
| 22279 | "i404" | |
| 22280 | "i402" | |
| 22281 | "i400" | |
| 22282 | "i398" | |
| 22283 | "i397" | |
| 22284 | "i395" | |
| 22285 | "i392" | |
| 22286 | "i391" | |
| 22287 | "i390" | |
| 22288 | "i388" | |
| 22289 | "i387" | |
| 22290 | "i385" | |
| 22291 | "i383" | |
| 22292 | "i381" | |
| 22293 | "i379" | |
| 22294 | "i377" | |
| 22295 | "i375" | |
| 22296 | "i373" | |
| 22297 | "i371" | |
| 22298 | "i368" | |
| 22299 | "i366" | |
| 22300 | "i365" | |
| 22301 | "i363" | |
| 22302 | "i361" | |
| 22303 | "i359" | |
| 22304 | "i357" | |
| 22305 | "i356" | |
| 22306 | "i355" | |
| 22307 | "i354" | |
| 22308 | "i352" | |
| 22309 | "i351" | |
| 22310 | "i348" | |
| 22311 | "i346" | |
| 22312 | "i344" | |
| 22313 | "i342" | |
| 22314 | "i340" | |
| 22315 | "i338" | |
| 22316 | "i336" | |
| 22317 | "i335" | |
| 22318 | "i334" | |
| 22319 | "i332" | |
| 22320 | "i330" | |
| 22321 | "i329" | |
| 22322 | "i326" | |
| 22323 | "i325" | |
| 22324 | "i323" | |
| 22325 | "i321" | |
| 22326 | "i319" | |
| 22327 | "i317" | |
| 22328 | "i315" | |
| 22329 | "i313" | |
| 22330 | "i311" | |
| 22331 | "i309" | |
| 22332 | "i307" | |
| 22333 | "i304" | |
| 22334 | "i302" | |
| 22335 | "i300" | |
| 22336 | "i298" | |
| 22337 | "i296" | |
| 22338 | "i294" | |
| 22339 | "i292" | |
| 22340 | "i290" | |
| 22341 | "i288" | |
| 22342 | "i286" | |
| 22343 | "i284" | |
| 22344 | "i282" | |
| 22345 | "i280" | |
| 22346 | "i278" | |
| 22347 | "i276" | |
| 22348 | "i274" | |
| 22349 | "i272" | |
| 22350 | "i270" | |
| 22351 | "i268" | |
| 22352 | "i266" | |
| 22353 | "i264" | |
| 22354 | "i262" | |
| 22355 | "i260" | |
| 22356 | "i259" | |
| 22357 | "i256" | |
| 22358 | "i254" | |
| 22359 | "i253" | |
| 22360 | "i252" | |
| 22361 | "i251" | |
| 22362 | "i250" | |
| 22363 | "i248" | |
| 22364 | "i246" | |
| 22365 | "i244" | |
| 22366 | "i241" | |
| 22367 | "i239" | |
| 22368 | "i237" | |
| 22369 | "i235" | |
| 22370 | "i233" | |
| 22371 | "i231" | |
| 22372 | "i229" | |
| 22373 | "i227" | |
| 22374 | "i225" | |
| 22375 | "i223" | |
| 22376 | "i221" | |
| 22377 | "i219" | |
| 22378 | "i217" | |
| 22379 | "i215" | |
| 22380 | "i213" | |
| 22381 | "i211" | |
| 22382 | "i209" | |
| 22383 | "i207")) | |
| 22384 | #(ribcage | |
| 22385 | (define-structure | |
| 22386 | define-expansion-accessors | |
| 22387 | define-expansion-constructors) | |
| 22388 | ((top) (top) (top)) | |
| 22389 | ("i45" "i44" "i43"))) | |
| 22390 | (hygiene guile)) | |
| 22391 | 1) | |
| 22392 | '#(syntax-object | |
| 22393 | pad | |
| 22394 | ((top) | |
| 22395 | #(ribcage | |
| 22396 | #(pat exp) | |
| 22397 | #((top) (top)) | |
| 22398 | #("i3910" "i3911")) | |
| 22399 | #(ribcage () () ()) | |
| 22400 | #(ribcage | |
| 22401 | #(x keys clauses r mod) | |
| 22402 | #((top) | |
| 22403 | (top) | |
| 22404 | (top) | |
| 22405 | (top) | |
| 22406 | (top)) | |
| 22407 | #("i3899" | |
| 22408 | "i3900" | |
| 22409 | "i3901" | |
| 22410 | "i3902" | |
| 22411 | "i3903")) | |
| 22412 | #(ribcage | |
| 22413 | (gen-syntax-case | |
| 22414 | gen-clause | |
| 22415 | build-dispatch-call | |
| 22416 | convert-pattern) | |
| 22417 | ((top) (top) (top) (top)) | |
| 22418 | ("i3709" | |
| 22419 | "i3707" | |
| 22420 | "i3705" | |
| 22421 | "i3703")) | |
| 22422 | #(ribcage | |
| 22423 | (lambda-var-list | |
| 22424 | gen-var | |
| 22425 | strip | |
| 22426 | chi-lambda-case | |
| 22427 | lambda*-formals | |
| 22428 | chi-simple-lambda | |
| 22429 | lambda-formals | |
| 22430 | ellipsis? | |
| 22431 | chi-void | |
| 22432 | eval-local-transformer | |
| 22433 | chi-local-syntax | |
| 22434 | chi-body | |
| 22435 | chi-macro | |
| 22436 | chi-application | |
| 22437 | chi-expr | |
| 22438 | chi | |
| 22439 | syntax-type | |
| 22440 | chi-when-list | |
| 22441 | chi-install-global | |
| 22442 | chi-top-sequence | |
| 22443 | chi-sequence | |
| 22444 | source-wrap | |
| 22445 | wrap | |
| 22446 | bound-id-member? | |
| 22447 | distinct-bound-ids? | |
| 22448 | valid-bound-ids? | |
| 22449 | bound-id=? | |
| 22450 | free-id=? | |
| 22451 | id-var-name | |
| 22452 | same-marks? | |
| 22453 | join-marks | |
| 22454 | join-wraps | |
| 22455 | smart-append | |
| 22456 | make-binding-wrap | |
| 22457 | extend-ribcage! | |
| 22458 | make-empty-ribcage | |
| 22459 | new-mark | |
| 22460 | anti-mark | |
| 22461 | the-anti-mark | |
| 22462 | top-marked? | |
| 22463 | top-wrap | |
| 22464 | empty-wrap | |
| 22465 | set-ribcage-labels! | |
| 22466 | set-ribcage-marks! | |
| 22467 | set-ribcage-symnames! | |
| 22468 | ribcage-labels | |
| 22469 | ribcage-marks | |
| 22470 | ribcage-symnames | |
| 22471 | ribcage? | |
| 22472 | make-ribcage | |
| 22473 | gen-labels | |
| 22474 | gen-label | |
| 22475 | make-rename | |
| 22476 | rename-marks | |
| 22477 | rename-new | |
| 22478 | rename-old | |
| 22479 | subst-rename? | |
| 22480 | wrap-subst | |
| 22481 | wrap-marks | |
| 22482 | make-wrap | |
| 22483 | id-sym-name&marks | |
| 22484 | id-sym-name | |
| 22485 | id? | |
| 22486 | nonsymbol-id? | |
| 22487 | global-extend | |
| 22488 | lookup | |
| 22489 | macros-only-env | |
| 22490 | extend-var-env | |
| 22491 | extend-env | |
| 22492 | null-env | |
| 22493 | binding-value | |
| 22494 | binding-type | |
| 22495 | make-binding | |
| 22496 | arg-check | |
| 22497 | source-annotation | |
| 22498 | no-source | |
| 22499 | set-syntax-object-module! | |
| 22500 | set-syntax-object-wrap! | |
| 22501 | set-syntax-object-expression! | |
| 22502 | syntax-object-module | |
| 22503 | syntax-object-wrap | |
| 22504 | syntax-object-expression | |
| 22505 | syntax-object? | |
| 22506 | make-syntax-object | |
| 22507 | build-lexical-var | |
| 22508 | build-letrec | |
| 22509 | build-named-let | |
| 22510 | build-let | |
| 22511 | build-sequence | |
| 22512 | build-data | |
| 22513 | build-primref | |
| 22514 | build-lambda-case | |
| 22515 | build-case-lambda | |
| 22516 | build-simple-lambda | |
| 22517 | build-global-definition | |
| 22518 | build-global-assignment | |
| 22519 | build-global-reference | |
| 22520 | analyze-variable | |
| 22521 | build-lexical-assignment | |
| 22522 | build-lexical-reference | |
| 22523 | build-dynlet | |
| 22524 | build-conditional | |
| 22525 | build-application | |
| 22526 | build-void | |
| 22527 | maybe-name-value! | |
| 22528 | decorate-source | |
| 22529 | get-global-definition-hook | |
| 22530 | put-global-definition-hook | |
| 22531 | gensym-hook | |
| 22532 | local-eval-hook | |
| 22533 | top-level-eval-hook | |
| 22534 | fx< | |
| 22535 | fx= | |
| 22536 | fx- | |
| 22537 | fx+ | |
| 22538 | set-lambda-meta! | |
| 22539 | lambda-meta | |
| 22540 | lambda? | |
| 22541 | make-dynlet | |
| 22542 | make-letrec | |
| 22543 | make-let | |
| 22544 | make-lambda-case | |
| 22545 | make-lambda | |
| 22546 | make-sequence | |
| 22547 | make-application | |
| 22548 | make-conditional | |
| 22549 | make-toplevel-define | |
| 22550 | make-toplevel-set | |
| 22551 | make-toplevel-ref | |
| 22552 | make-module-set | |
| 22553 | make-module-ref | |
| 22554 | make-lexical-set | |
| 22555 | make-lexical-ref | |
| 22556 | make-primitive-ref | |
| 22557 | make-const | |
| 22558 | make-void) | |
| 22559 | ((top) | |
| 22560 | (top) | |
| 22561 | (top) | |
| 22562 | (top) | |
| 22563 | (top) | |
| 22564 | (top) | |
| 22565 | (top) | |
| 22566 | (top) | |
| 22567 | (top) | |
| 22568 | (top) | |
| 22569 | (top) | |
| 22570 | (top) | |
| 22571 | (top) | |
| 22572 | (top) | |
| 22573 | (top) | |
| 22574 | (top) | |
| 22575 | (top) | |
| 22576 | (top) | |
| 22577 | (top) | |
| 22578 | (top) | |
| 22579 | (top) | |
| 22580 | (top) | |
| 22581 | (top) | |
| 22582 | (top) | |
| 22583 | (top) | |
| 22584 | (top) | |
| 22585 | (top) | |
| 22586 | (top) | |
| 22587 | (top) | |
| 22588 | (top) | |
| 22589 | (top) | |
| 22590 | (top) | |
| 22591 | (top) | |
| 22592 | (top) | |
| 22593 | (top) | |
| 22594 | (top) | |
| 22595 | (top) | |
| 22596 | (top) | |
| 22597 | (top) | |
| 22598 | (top) | |
| 22599 | (top) | |
| 22600 | (top) | |
| 22601 | (top) | |
| 22602 | (top) | |
| 22603 | (top) | |
| 22604 | (top) | |
| 22605 | (top) | |
| 22606 | (top) | |
| 22607 | (top) | |
| 22608 | (top) | |
| 22609 | (top) | |
| 22610 | (top) | |
| 22611 | (top) | |
| 22612 | (top) | |
| 22613 | (top) | |
| 22614 | (top) | |
| 22615 | (top) | |
| 22616 | (top) | |
| 22617 | (top) | |
| 22618 | (top) | |
| 22619 | (top) | |
| 22620 | (top) | |
| 22621 | (top) | |
| 22622 | (top) | |
| 22623 | (top) | |
| 22624 | (top) | |
| 22625 | (top) | |
| 22626 | (top) | |
| 22627 | (top) | |
| 22628 | (top) | |
| 22629 | (top) | |
| 22630 | (top) | |
| 22631 | (top) | |
| 22632 | (top) | |
| 22633 | (top) | |
| 22634 | (top) | |
| 22635 | (top) | |
| 22636 | (top) | |
| 22637 | (top) | |
| 22638 | (top) | |
| 22639 | (top) | |
| 22640 | (top) | |
| 22641 | (top) | |
| 22642 | (top) | |
| 22643 | (top) | |
| 22644 | (top) | |
| 22645 | (top) | |
| 22646 | (top) | |
| 22647 | (top) | |
| 22648 | (top) | |
| 22649 | (top) | |
| 22650 | (top) | |
| 22651 | (top) | |
| 22652 | (top) | |
| 22653 | (top) | |
| 22654 | (top) | |
| 22655 | (top) | |
| 22656 | (top) | |
| 22657 | (top) | |
| 22658 | (top) | |
| 22659 | (top) | |
| 22660 | (top) | |
| 22661 | (top) | |
| 22662 | (top) | |
| 22663 | (top) | |
| 22664 | (top) | |
| 22665 | (top) | |
| 22666 | (top) | |
| 22667 | (top) | |
| 22668 | (top) | |
| 22669 | (top) | |
| 22670 | (top) | |
| 22671 | (top) | |
| 22672 | (top) | |
| 22673 | (top) | |
| 22674 | (top) | |
| 22675 | (top) | |
| 22676 | (top) | |
| 22677 | (top) | |
| 22678 | (top) | |
| 22679 | (top) | |
| 22680 | (top) | |
| 22681 | (top) | |
| 22682 | (top) | |
| 22683 | (top) | |
| 22684 | (top) | |
| 22685 | (top) | |
| 22686 | (top) | |
| 22687 | (top) | |
| 22688 | (top) | |
| 22689 | (top) | |
| 22690 | (top) | |
| 22691 | (top) | |
| 22692 | (top) | |
| 22693 | (top) | |
| 22694 | (top)) | |
| 22695 | ("i466" | |
| 22696 | "i464" | |
| 22697 | "i462" | |
| 22698 | "i460" | |
| 22699 | "i458" | |
| 22700 | "i456" | |
| 22701 | "i454" | |
| 22702 | "i452" | |
| 22703 | "i450" | |
| 22704 | "i448" | |
| 22705 | "i446" | |
| 22706 | "i444" | |
| 22707 | "i442" | |
| 22708 | "i440" | |
| 22709 | "i438" | |
| 22710 | "i436" | |
| 22711 | "i434" | |
| 22712 | "i432" | |
| 22713 | "i430" | |
| 22714 | "i428" | |
| 22715 | "i426" | |
| 22716 | "i424" | |
| 22717 | "i422" | |
| 22718 | "i420" | |
| 22719 | "i418" | |
| 22720 | "i416" | |
| 22721 | "i414" | |
| 22722 | "i412" | |
| 22723 | "i410" | |
| 22724 | "i408" | |
| 22725 | "i406" | |
| 22726 | "i404" | |
| 22727 | "i402" | |
| 22728 | "i400" | |
| 22729 | "i398" | |
| 22730 | "i397" | |
| 22731 | "i395" | |
| 22732 | "i392" | |
| 22733 | "i391" | |
| 22734 | "i390" | |
| 22735 | "i388" | |
| 22736 | "i387" | |
| 22737 | "i385" | |
| 22738 | "i383" | |
| 22739 | "i381" | |
| 22740 | "i379" | |
| 22741 | "i377" | |
| 22742 | "i375" | |
| 22743 | "i373" | |
| 22744 | "i371" | |
| 22745 | "i368" | |
| 22746 | "i366" | |
| 22747 | "i365" | |
| 22748 | "i363" | |
| 22749 | "i361" | |
| 22750 | "i359" | |
| 22751 | "i357" | |
| 22752 | "i356" | |
| 22753 | "i355" | |
| 22754 | "i354" | |
| 22755 | "i352" | |
| 22756 | "i351" | |
| 22757 | "i348" | |
| 22758 | "i346" | |
| 22759 | "i344" | |
| 22760 | "i342" | |
| 22761 | "i340" | |
| 22762 | "i338" | |
| 22763 | "i336" | |
| 22764 | "i335" | |
| 22765 | "i334" | |
| 22766 | "i332" | |
| 22767 | "i330" | |
| 22768 | "i329" | |
| 22769 | "i326" | |
| 22770 | "i325" | |
| 22771 | "i323" | |
| 22772 | "i321" | |
| 22773 | "i319" | |
| 22774 | "i317" | |
| 22775 | "i315" | |
| 22776 | "i313" | |
| 22777 | "i311" | |
| 22778 | "i309" | |
| 22779 | "i307" | |
| 22780 | "i304" | |
| 22781 | "i302" | |
| 22782 | "i300" | |
| 22783 | "i298" | |
| 22784 | "i296" | |
| 22785 | "i294" | |
| 22786 | "i292" | |
| 22787 | "i290" | |
| 22788 | "i288" | |
| 22789 | "i286" | |
| 22790 | "i284" | |
| 22791 | "i282" | |
| 22792 | "i280" | |
| 22793 | "i278" | |
| 22794 | "i276" | |
| 22795 | "i274" | |
| 22796 | "i272" | |
| 22797 | "i270" | |
| 22798 | "i268" | |
| 22799 | "i266" | |
| 22800 | "i264" | |
| 22801 | "i262" | |
| 22802 | "i260" | |
| 22803 | "i259" | |
| 22804 | "i256" | |
| 22805 | "i254" | |
| 22806 | "i253" | |
| 22807 | "i252" | |
| 22808 | "i251" | |
| 22809 | "i250" | |
| 22810 | "i248" | |
| 22811 | "i246" | |
| 22812 | "i244" | |
| 22813 | "i241" | |
| 22814 | "i239" | |
| 22815 | "i237" | |
| 22816 | "i235" | |
| 22817 | "i233" | |
| 22818 | "i231" | |
| 22819 | "i229" | |
| 22820 | "i227" | |
| 22821 | "i225" | |
| 22822 | "i223" | |
| 22823 | "i221" | |
| 22824 | "i219" | |
| 22825 | "i217" | |
| 22826 | "i215" | |
| 22827 | "i213" | |
| 22828 | "i211" | |
| 22829 | "i209" | |
| 22830 | "i207")) | |
| 22831 | #(ribcage | |
| 22832 | (define-structure | |
| 22833 | define-expansion-accessors | |
| 22834 | define-expansion-constructors) | |
| 22835 | ((top) (top) (top)) | |
| 22836 | ("i45" "i44" "i43"))) | |
| 22837 | (hygiene guile))) | |
| 22838 | (if (if (= (vector-length | |
| 22839 | '#(syntax-object | |
| 22840 | _ | |
| 22841 | ((top) | |
| 22842 | #(ribcage | |
| 22843 | #(pat exp) | |
| 22844 | #((top) (top)) | |
| 22845 | #("i3910" "i3911")) | |
| 22846 | #(ribcage () () ()) | |
| 22847 | #(ribcage | |
| 22848 | #(x | |
| 22849 | keys | |
| 22850 | clauses | |
| 22851 | r | |
| 22852 | mod) | |
| 22853 | #((top) | |
| 22854 | (top) | |
| 22855 | (top) | |
| 22856 | (top) | |
| 22857 | (top)) | |
| 22858 | #("i3899" | |
| 22859 | "i3900" | |
| 22860 | "i3901" | |
| 22861 | "i3902" | |
| 22862 | "i3903")) | |
| 22863 | #(ribcage | |
| 22864 | (gen-syntax-case | |
| 22865 | gen-clause | |
| 22866 | build-dispatch-call | |
| 22867 | convert-pattern) | |
| 22868 | ((top) | |
| 22869 | (top) | |
| 22870 | (top) | |
| 22871 | (top)) | |
| 22872 | ("i3709" | |
| 22873 | "i3707" | |
| 22874 | "i3705" | |
| 22875 | "i3703")) | |
| 22876 | #(ribcage | |
| 22877 | (lambda-var-list | |
| 22878 | gen-var | |
| 22879 | strip | |
| 22880 | chi-lambda-case | |
| 22881 | lambda*-formals | |
| 22882 | chi-simple-lambda | |
| 22883 | lambda-formals | |
| 22884 | ellipsis? | |
| 22885 | chi-void | |
| 22886 | eval-local-transformer | |
| 22887 | chi-local-syntax | |
| 22888 | chi-body | |
| 22889 | chi-macro | |
| 22890 | chi-application | |
| 22891 | chi-expr | |
| 22892 | chi | |
| 22893 | syntax-type | |
| 22894 | chi-when-list | |
| 22895 | chi-install-global | |
| 22896 | chi-top-sequence | |
| 22897 | chi-sequence | |
| 22898 | source-wrap | |
| 22899 | wrap | |
| 22900 | bound-id-member? | |
| 22901 | distinct-bound-ids? | |
| 22902 | valid-bound-ids? | |
| 22903 | bound-id=? | |
| 22904 | free-id=? | |
| 22905 | id-var-name | |
| 22906 | same-marks? | |
| 22907 | join-marks | |
| 22908 | join-wraps | |
| 22909 | smart-append | |
| 22910 | make-binding-wrap | |
| 22911 | extend-ribcage! | |
| 22912 | make-empty-ribcage | |
| 22913 | new-mark | |
| 22914 | anti-mark | |
| 22915 | the-anti-mark | |
| 22916 | top-marked? | |
| 22917 | top-wrap | |
| 22918 | empty-wrap | |
| 22919 | set-ribcage-labels! | |
| 22920 | set-ribcage-marks! | |
| 22921 | set-ribcage-symnames! | |
| 22922 | ribcage-labels | |
| 22923 | ribcage-marks | |
| 22924 | ribcage-symnames | |
| 22925 | ribcage? | |
| 22926 | make-ribcage | |
| 22927 | gen-labels | |
| 22928 | gen-label | |
| 22929 | make-rename | |
| 22930 | rename-marks | |
| 22931 | rename-new | |
| 22932 | rename-old | |
| 22933 | subst-rename? | |
| 22934 | wrap-subst | |
| 22935 | wrap-marks | |
| 22936 | make-wrap | |
| 22937 | id-sym-name&marks | |
| 22938 | id-sym-name | |
| 22939 | id? | |
| 22940 | nonsymbol-id? | |
| 22941 | global-extend | |
| 22942 | lookup | |
| 22943 | macros-only-env | |
| 22944 | extend-var-env | |
| 22945 | extend-env | |
| 22946 | null-env | |
| 22947 | binding-value | |
| 22948 | binding-type | |
| 22949 | make-binding | |
| 22950 | arg-check | |
| 22951 | source-annotation | |
| 22952 | no-source | |
| 22953 | set-syntax-object-module! | |
| 22954 | set-syntax-object-wrap! | |
| 22955 | set-syntax-object-expression! | |
| 22956 | syntax-object-module | |
| 22957 | syntax-object-wrap | |
| 22958 | syntax-object-expression | |
| 22959 | syntax-object? | |
| 22960 | make-syntax-object | |
| 22961 | build-lexical-var | |
| 22962 | build-letrec | |
| 22963 | build-named-let | |
| 22964 | build-let | |
| 22965 | build-sequence | |
| 22966 | build-data | |
| 22967 | build-primref | |
| 22968 | build-lambda-case | |
| 22969 | build-case-lambda | |
| 22970 | build-simple-lambda | |
| 22971 | build-global-definition | |
| 22972 | build-global-assignment | |
| 22973 | build-global-reference | |
| 22974 | analyze-variable | |
| 22975 | build-lexical-assignment | |
| 22976 | build-lexical-reference | |
| 22977 | build-dynlet | |
| 22978 | build-conditional | |
| 22979 | build-application | |
| 22980 | build-void | |
| 22981 | maybe-name-value! | |
| 22982 | decorate-source | |
| 22983 | get-global-definition-hook | |
| 22984 | put-global-definition-hook | |
| 22985 | gensym-hook | |
| 22986 | local-eval-hook | |
| 22987 | top-level-eval-hook | |
| 22988 | fx< | |
| 22989 | fx= | |
| 22990 | fx- | |
| 22991 | fx+ | |
| 22992 | set-lambda-meta! | |
| 22993 | lambda-meta | |
| 22994 | lambda? | |
| 22995 | make-dynlet | |
| 22996 | make-letrec | |
| 22997 | make-let | |
| 22998 | make-lambda-case | |
| 22999 | make-lambda | |
| 23000 | make-sequence | |
| 23001 | make-application | |
| 23002 | make-conditional | |
| 23003 | make-toplevel-define | |
| 23004 | make-toplevel-set | |
| 23005 | make-toplevel-ref | |
| 23006 | make-module-set | |
| 23007 | make-module-ref | |
| 23008 | make-lexical-set | |
| 23009 | make-lexical-ref | |
| 23010 | make-primitive-ref | |
| 23011 | make-const | |
| 23012 | make-void) | |
| 23013 | ((top) | |
| 23014 | (top) | |
| 23015 | (top) | |
| 23016 | (top) | |
| 23017 | (top) | |
| 23018 | (top) | |
| 23019 | (top) | |
| 23020 | (top) | |
| 23021 | (top) | |
| 23022 | (top) | |
| 23023 | (top) | |
| 23024 | (top) | |
| 23025 | (top) | |
| 23026 | (top) | |
| 23027 | (top) | |
| 23028 | (top) | |
| 23029 | (top) | |
| 23030 | (top) | |
| 23031 | (top) | |
| 23032 | (top) | |
| 23033 | (top) | |
| 23034 | (top) | |
| 23035 | (top) | |
| 23036 | (top) | |
| 23037 | (top) | |
| 23038 | (top) | |
| 23039 | (top) | |
| 23040 | (top) | |
| 23041 | (top) | |
| 23042 | (top) | |
| 23043 | (top) | |
| 23044 | (top) | |
| 23045 | (top) | |
| 23046 | (top) | |
| 23047 | (top) | |
| 23048 | (top) | |
| 23049 | (top) | |
| 23050 | (top) | |
| 23051 | (top) | |
| 23052 | (top) | |
| 23053 | (top) | |
| 23054 | (top) | |
| 23055 | (top) | |
| 23056 | (top) | |
| 23057 | (top) | |
| 23058 | (top) | |
| 23059 | (top) | |
| 23060 | (top) | |
| 23061 | (top) | |
| 23062 | (top) | |
| 23063 | (top) | |
| 23064 | (top) | |
| 23065 | (top) | |
| 23066 | (top) | |
| 23067 | (top) | |
| 23068 | (top) | |
| 23069 | (top) | |
| 23070 | (top) | |
| 23071 | (top) | |
| 23072 | (top) | |
| 23073 | (top) | |
| 23074 | (top) | |
| 23075 | (top) | |
| 23076 | (top) | |
| 23077 | (top) | |
| 23078 | (top) | |
| 23079 | (top) | |
| 23080 | (top) | |
| 23081 | (top) | |
| 23082 | (top) | |
| 23083 | (top) | |
| 23084 | (top) | |
| 23085 | (top) | |
| 23086 | (top) | |
| 23087 | (top) | |
| 23088 | (top) | |
| 23089 | (top) | |
| 23090 | (top) | |
| 23091 | (top) | |
| 23092 | (top) | |
| 23093 | (top) | |
| 23094 | (top) | |
| 23095 | (top) | |
| 23096 | (top) | |
| 23097 | (top) | |
| 23098 | (top) | |
| 23099 | (top) | |
| 23100 | (top) | |
| 23101 | (top) | |
| 23102 | (top) | |
| 23103 | (top) | |
| 23104 | (top) | |
| 23105 | (top) | |
| 23106 | (top) | |
| 23107 | (top) | |
| 23108 | (top) | |
| 23109 | (top) | |
| 23110 | (top) | |
| 23111 | (top) | |
| 23112 | (top) | |
| 23113 | (top) | |
| 23114 | (top) | |
| 23115 | (top) | |
| 23116 | (top) | |
| 23117 | (top) | |
| 23118 | (top) | |
| 23119 | (top) | |
| 23120 | (top) | |
| 23121 | (top) | |
| 23122 | (top) | |
| 23123 | (top) | |
| 23124 | (top) | |
| 23125 | (top) | |
| 23126 | (top) | |
| 23127 | (top) | |
| 23128 | (top) | |
| 23129 | (top) | |
| 23130 | (top) | |
| 23131 | (top) | |
| 23132 | (top) | |
| 23133 | (top) | |
| 23134 | (top) | |
| 23135 | (top) | |
| 23136 | (top) | |
| 23137 | (top) | |
| 23138 | (top) | |
| 23139 | (top) | |
| 23140 | (top) | |
| 23141 | (top) | |
| 23142 | (top) | |
| 23143 | (top) | |
| 23144 | (top) | |
| 23145 | (top) | |
| 23146 | (top) | |
| 23147 | (top) | |
| 23148 | (top)) | |
| 23149 | ("i466" | |
| 23150 | "i464" | |
| 23151 | "i462" | |
| 23152 | "i460" | |
| 23153 | "i458" | |
| 23154 | "i456" | |
| 23155 | "i454" | |
| 23156 | "i452" | |
| 23157 | "i450" | |
| 23158 | "i448" | |
| 23159 | "i446" | |
| 23160 | "i444" | |
| 23161 | "i442" | |
| 23162 | "i440" | |
| 23163 | "i438" | |
| 23164 | "i436" | |
| 23165 | "i434" | |
| 23166 | "i432" | |
| 23167 | "i430" | |
| 23168 | "i428" | |
| 23169 | "i426" | |
| 23170 | "i424" | |
| 23171 | "i422" | |
| 23172 | "i420" | |
| 23173 | "i418" | |
| 23174 | "i416" | |
| 23175 | "i414" | |
| 23176 | "i412" | |
| 23177 | "i410" | |
| 23178 | "i408" | |
| 23179 | "i406" | |
| 23180 | "i404" | |
| 23181 | "i402" | |
| 23182 | "i400" | |
| 23183 | "i398" | |
| 23184 | "i397" | |
| 23185 | "i395" | |
| 23186 | "i392" | |
| 23187 | "i391" | |
| 23188 | "i390" | |
| 23189 | "i388" | |
| 23190 | "i387" | |
| 23191 | "i385" | |
| 23192 | "i383" | |
| 23193 | "i381" | |
| 23194 | "i379" | |
| 23195 | "i377" | |
| 23196 | "i375" | |
| 23197 | "i373" | |
| 23198 | "i371" | |
| 23199 | "i368" | |
| 23200 | "i366" | |
| 23201 | "i365" | |
| 23202 | "i363" | |
| 23203 | "i361" | |
| 23204 | "i359" | |
| 23205 | "i357" | |
| 23206 | "i356" | |
| 23207 | "i355" | |
| 23208 | "i354" | |
| 23209 | "i352" | |
| 23210 | "i351" | |
| 23211 | "i348" | |
| 23212 | "i346" | |
| 23213 | "i344" | |
| 23214 | "i342" | |
| 23215 | "i340" | |
| 23216 | "i338" | |
| 23217 | "i336" | |
| 23218 | "i335" | |
| 23219 | "i334" | |
| 23220 | "i332" | |
| 23221 | "i330" | |
| 23222 | "i329" | |
| 23223 | "i326" | |
| 23224 | "i325" | |
| 23225 | "i323" | |
| 23226 | "i321" | |
| 23227 | "i319" | |
| 23228 | "i317" | |
| 23229 | "i315" | |
| 23230 | "i313" | |
| 23231 | "i311" | |
| 23232 | "i309" | |
| 23233 | "i307" | |
| 23234 | "i304" | |
| 23235 | "i302" | |
| 23236 | "i300" | |
| 23237 | "i298" | |
| 23238 | "i296" | |
| 23239 | "i294" | |
| 23240 | "i292" | |
| 23241 | "i290" | |
| 23242 | "i288" | |
| 23243 | "i286" | |
| 23244 | "i284" | |
| 23245 | "i282" | |
| 23246 | "i280" | |
| 23247 | "i278" | |
| 23248 | "i276" | |
| 23249 | "i274" | |
| 23250 | "i272" | |
| 23251 | "i270" | |
| 23252 | "i268" | |
| 23253 | "i266" | |
| 23254 | "i264" | |
| 23255 | "i262" | |
| 23256 | "i260" | |
| 23257 | "i259" | |
| 23258 | "i256" | |
| 23259 | "i254" | |
| 23260 | "i253" | |
| 23261 | "i252" | |
| 23262 | "i251" | |
| 23263 | "i250" | |
| 23264 | "i248" | |
| 23265 | "i246" | |
| 23266 | "i244" | |
| 23267 | "i241" | |
| 23268 | "i239" | |
| 23269 | "i237" | |
| 23270 | "i235" | |
| 23271 | "i233" | |
| 23272 | "i231" | |
| 23273 | "i229" | |
| 23274 | "i227" | |
| 23275 | "i225" | |
| 23276 | "i223" | |
| 23277 | "i221" | |
| 23278 | "i219" | |
| 23279 | "i217" | |
| 23280 | "i215" | |
| 23281 | "i213" | |
| 23282 | "i211" | |
| 23283 | "i209" | |
| 23284 | "i207")) | |
| 23285 | #(ribcage | |
| 23286 | (define-structure | |
| 23287 | define-expansion-accessors | |
| 23288 | define-expansion-constructors) | |
| 23289 | ((top) (top) (top)) | |
| 23290 | ("i45" | |
| 23291 | "i44" | |
| 23292 | "i43"))) | |
| 23293 | (hygiene guile))) | |
| 23294 | 4) | |
| 23295 | (eq? (vector-ref | |
| 23296 | '#(syntax-object | |
| 23297 | _ | |
| 23298 | ((top) | |
| 23299 | #(ribcage | |
| 23300 | #(pat exp) | |
| 23301 | #((top) (top)) | |
| 23302 | #("i3910" "i3911")) | |
| 23303 | #(ribcage () () ()) | |
| 23304 | #(ribcage | |
| 23305 | #(x | |
| 23306 | keys | |
| 23307 | clauses | |
| 23308 | r | |
| 23309 | mod) | |
| 23310 | #((top) | |
| 23311 | (top) | |
| 23312 | (top) | |
| 23313 | (top) | |
| 23314 | (top)) | |
| 23315 | #("i3899" | |
| 23316 | "i3900" | |
| 23317 | "i3901" | |
| 23318 | "i3902" | |
| 23319 | "i3903")) | |
| 23320 | #(ribcage | |
| 23321 | (gen-syntax-case | |
| 23322 | gen-clause | |
| 23323 | build-dispatch-call | |
| 23324 | convert-pattern) | |
| 23325 | ((top) | |
| 23326 | (top) | |
| 23327 | (top) | |
| 23328 | (top)) | |
| 23329 | ("i3709" | |
| 23330 | "i3707" | |
| 23331 | "i3705" | |
| 23332 | "i3703")) | |
| 23333 | #(ribcage | |
| 23334 | (lambda-var-list | |
| 23335 | gen-var | |
| 23336 | strip | |
| 23337 | chi-lambda-case | |
| 23338 | lambda*-formals | |
| 23339 | chi-simple-lambda | |
| 23340 | lambda-formals | |
| 23341 | ellipsis? | |
| 23342 | chi-void | |
| 23343 | eval-local-transformer | |
| 23344 | chi-local-syntax | |
| 23345 | chi-body | |
| 23346 | chi-macro | |
| 23347 | chi-application | |
| 23348 | chi-expr | |
| 23349 | chi | |
| 23350 | syntax-type | |
| 23351 | chi-when-list | |
| 23352 | chi-install-global | |
| 23353 | chi-top-sequence | |
| 23354 | chi-sequence | |
| 23355 | source-wrap | |
| 23356 | wrap | |
| 23357 | bound-id-member? | |
| 23358 | distinct-bound-ids? | |
| 23359 | valid-bound-ids? | |
| 23360 | bound-id=? | |
| 23361 | free-id=? | |
| 23362 | id-var-name | |
| 23363 | same-marks? | |
| 23364 | join-marks | |
| 23365 | join-wraps | |
| 23366 | smart-append | |
| 23367 | make-binding-wrap | |
| 23368 | extend-ribcage! | |
| 23369 | make-empty-ribcage | |
| 23370 | new-mark | |
| 23371 | anti-mark | |
| 23372 | the-anti-mark | |
| 23373 | top-marked? | |
| 23374 | top-wrap | |
| 23375 | empty-wrap | |
| 23376 | set-ribcage-labels! | |
| 23377 | set-ribcage-marks! | |
| 23378 | set-ribcage-symnames! | |
| 23379 | ribcage-labels | |
| 23380 | ribcage-marks | |
| 23381 | ribcage-symnames | |
| 23382 | ribcage? | |
| 23383 | make-ribcage | |
| 23384 | gen-labels | |
| 23385 | gen-label | |
| 23386 | make-rename | |
| 23387 | rename-marks | |
| 23388 | rename-new | |
| 23389 | rename-old | |
| 23390 | subst-rename? | |
| 23391 | wrap-subst | |
| 23392 | wrap-marks | |
| 23393 | make-wrap | |
| 23394 | id-sym-name&marks | |
| 23395 | id-sym-name | |
| 23396 | id? | |
| 23397 | nonsymbol-id? | |
| 23398 | global-extend | |
| 23399 | lookup | |
| 23400 | macros-only-env | |
| 23401 | extend-var-env | |
| 23402 | extend-env | |
| 23403 | null-env | |
| 23404 | binding-value | |
| 23405 | binding-type | |
| 23406 | make-binding | |
| 23407 | arg-check | |
| 23408 | source-annotation | |
| 23409 | no-source | |
| 23410 | set-syntax-object-module! | |
| 23411 | set-syntax-object-wrap! | |
| 23412 | set-syntax-object-expression! | |
| 23413 | syntax-object-module | |
| 23414 | syntax-object-wrap | |
| 23415 | syntax-object-expression | |
| 23416 | syntax-object? | |
| 23417 | make-syntax-object | |
| 23418 | build-lexical-var | |
| 23419 | build-letrec | |
| 23420 | build-named-let | |
| 23421 | build-let | |
| 23422 | build-sequence | |
| 23423 | build-data | |
| 23424 | build-primref | |
| 23425 | build-lambda-case | |
| 23426 | build-case-lambda | |
| 23427 | build-simple-lambda | |
| 23428 | build-global-definition | |
| 23429 | build-global-assignment | |
| 23430 | build-global-reference | |
| 23431 | analyze-variable | |
| 23432 | build-lexical-assignment | |
| 23433 | build-lexical-reference | |
| 23434 | build-dynlet | |
| 23435 | build-conditional | |
| 23436 | build-application | |
| 23437 | build-void | |
| 23438 | maybe-name-value! | |
| 23439 | decorate-source | |
| 23440 | get-global-definition-hook | |
| 23441 | put-global-definition-hook | |
| 23442 | gensym-hook | |
| 23443 | local-eval-hook | |
| 23444 | top-level-eval-hook | |
| 23445 | fx< | |
| 23446 | fx= | |
| 23447 | fx- | |
| 23448 | fx+ | |
| 23449 | set-lambda-meta! | |
| 23450 | lambda-meta | |
| 23451 | lambda? | |
| 23452 | make-dynlet | |
| 23453 | make-letrec | |
| 23454 | make-let | |
| 23455 | make-lambda-case | |
| 23456 | make-lambda | |
| 23457 | make-sequence | |
| 23458 | make-application | |
| 23459 | make-conditional | |
| 23460 | make-toplevel-define | |
| 23461 | make-toplevel-set | |
| 23462 | make-toplevel-ref | |
| 23463 | make-module-set | |
| 23464 | make-module-ref | |
| 23465 | make-lexical-set | |
| 23466 | make-lexical-ref | |
| 23467 | make-primitive-ref | |
| 23468 | make-const | |
| 23469 | make-void) | |
| 23470 | ((top) | |
| 23471 | (top) | |
| 23472 | (top) | |
| 23473 | (top) | |
| 23474 | (top) | |
| 23475 | (top) | |
| 23476 | (top) | |
| 23477 | (top) | |
| 23478 | (top) | |
| 23479 | (top) | |
| 23480 | (top) | |
| 23481 | (top) | |
| 23482 | (top) | |
| 23483 | (top) | |
| 23484 | (top) | |
| 23485 | (top) | |
| 23486 | (top) | |
| 23487 | (top) | |
| 23488 | (top) | |
| 23489 | (top) | |
| 23490 | (top) | |
| 23491 | (top) | |
| 23492 | (top) | |
| 23493 | (top) | |
| 23494 | (top) | |
| 23495 | (top) | |
| 23496 | (top) | |
| 23497 | (top) | |
| 23498 | (top) | |
| 23499 | (top) | |
| 23500 | (top) | |
| 23501 | (top) | |
| 23502 | (top) | |
| 23503 | (top) | |
| 23504 | (top) | |
| 23505 | (top) | |
| 23506 | (top) | |
| 23507 | (top) | |
| 23508 | (top) | |
| 23509 | (top) | |
| 23510 | (top) | |
| 23511 | (top) | |
| 23512 | (top) | |
| 23513 | (top) | |
| 23514 | (top) | |
| 23515 | (top) | |
| 23516 | (top) | |
| 23517 | (top) | |
| 23518 | (top) | |
| 23519 | (top) | |
| 23520 | (top) | |
| 23521 | (top) | |
| 23522 | (top) | |
| 23523 | (top) | |
| 23524 | (top) | |
| 23525 | (top) | |
| 23526 | (top) | |
| 23527 | (top) | |
| 23528 | (top) | |
| 23529 | (top) | |
| 23530 | (top) | |
| 23531 | (top) | |
| 23532 | (top) | |
| 23533 | (top) | |
| 23534 | (top) | |
| 23535 | (top) | |
| 23536 | (top) | |
| 23537 | (top) | |
| 23538 | (top) | |
| 23539 | (top) | |
| 23540 | (top) | |
| 23541 | (top) | |
| 23542 | (top) | |
| 23543 | (top) | |
| 23544 | (top) | |
| 23545 | (top) | |
| 23546 | (top) | |
| 23547 | (top) | |
| 23548 | (top) | |
| 23549 | (top) | |
| 23550 | (top) | |
| 23551 | (top) | |
| 23552 | (top) | |
| 23553 | (top) | |
| 23554 | (top) | |
| 23555 | (top) | |
| 23556 | (top) | |
| 23557 | (top) | |
| 23558 | (top) | |
| 23559 | (top) | |
| 23560 | (top) | |
| 23561 | (top) | |
| 23562 | (top) | |
| 23563 | (top) | |
| 23564 | (top) | |
| 23565 | (top) | |
| 23566 | (top) | |
| 23567 | (top) | |
| 23568 | (top) | |
| 23569 | (top) | |
| 23570 | (top) | |
| 23571 | (top) | |
| 23572 | (top) | |
| 23573 | (top) | |
| 23574 | (top) | |
| 23575 | (top) | |
| 23576 | (top) | |
| 23577 | (top) | |
| 23578 | (top) | |
| 23579 | (top) | |
| 23580 | (top) | |
| 23581 | (top) | |
| 23582 | (top) | |
| 23583 | (top) | |
| 23584 | (top) | |
| 23585 | (top) | |
| 23586 | (top) | |
| 23587 | (top) | |
| 23588 | (top) | |
| 23589 | (top) | |
| 23590 | (top) | |
| 23591 | (top) | |
| 23592 | (top) | |
| 23593 | (top) | |
| 23594 | (top) | |
| 23595 | (top) | |
| 23596 | (top) | |
| 23597 | (top) | |
| 23598 | (top) | |
| 23599 | (top) | |
| 23600 | (top) | |
| 23601 | (top) | |
| 23602 | (top) | |
| 23603 | (top) | |
| 23604 | (top) | |
| 23605 | (top)) | |
| 23606 | ("i466" | |
| 23607 | "i464" | |
| 23608 | "i462" | |
| 23609 | "i460" | |
| 23610 | "i458" | |
| 23611 | "i456" | |
| 23612 | "i454" | |
| 23613 | "i452" | |
| 23614 | "i450" | |
| 23615 | "i448" | |
| 23616 | "i446" | |
| 23617 | "i444" | |
| 23618 | "i442" | |
| 23619 | "i440" | |
| 23620 | "i438" | |
| 23621 | "i436" | |
| 23622 | "i434" | |
| 23623 | "i432" | |
| 23624 | "i430" | |
| 23625 | "i428" | |
| 23626 | "i426" | |
| 23627 | "i424" | |
| 23628 | "i422" | |
| 23629 | "i420" | |
| 23630 | "i418" | |
| 23631 | "i416" | |
| 23632 | "i414" | |
| 23633 | "i412" | |
| 23634 | "i410" | |
| 23635 | "i408" | |
| 23636 | "i406" | |
| 23637 | "i404" | |
| 23638 | "i402" | |
| 23639 | "i400" | |
| 23640 | "i398" | |
| 23641 | "i397" | |
| 23642 | "i395" | |
| 23643 | "i392" | |
| 23644 | "i391" | |
| 23645 | "i390" | |
| 23646 | "i388" | |
| 23647 | "i387" | |
| 23648 | "i385" | |
| 23649 | "i383" | |
| 23650 | "i381" | |
| 23651 | "i379" | |
| 23652 | "i377" | |
| 23653 | "i375" | |
| 23654 | "i373" | |
| 23655 | "i371" | |
| 23656 | "i368" | |
| 23657 | "i366" | |
| 23658 | "i365" | |
| 23659 | "i363" | |
| 23660 | "i361" | |
| 23661 | "i359" | |
| 23662 | "i357" | |
| 23663 | "i356" | |
| 23664 | "i355" | |
| 23665 | "i354" | |
| 23666 | "i352" | |
| 23667 | "i351" | |
| 23668 | "i348" | |
| 23669 | "i346" | |
| 23670 | "i344" | |
| 23671 | "i342" | |
| 23672 | "i340" | |
| 23673 | "i338" | |
| 23674 | "i336" | |
| 23675 | "i335" | |
| 23676 | "i334" | |
| 23677 | "i332" | |
| 23678 | "i330" | |
| 23679 | "i329" | |
| 23680 | "i326" | |
| 23681 | "i325" | |
| 23682 | "i323" | |
| 23683 | "i321" | |
| 23684 | "i319" | |
| 23685 | "i317" | |
| 23686 | "i315" | |
| 23687 | "i313" | |
| 23688 | "i311" | |
| 23689 | "i309" | |
| 23690 | "i307" | |
| 23691 | "i304" | |
| 23692 | "i302" | |
| 23693 | "i300" | |
| 23694 | "i298" | |
| 23695 | "i296" | |
| 23696 | "i294" | |
| 23697 | "i292" | |
| 23698 | "i290" | |
| 23699 | "i288" | |
| 23700 | "i286" | |
| 23701 | "i284" | |
| 23702 | "i282" | |
| 23703 | "i280" | |
| 23704 | "i278" | |
| 23705 | "i276" | |
| 23706 | "i274" | |
| 23707 | "i272" | |
| 23708 | "i270" | |
| 23709 | "i268" | |
| 23710 | "i266" | |
| 23711 | "i264" | |
| 23712 | "i262" | |
| 23713 | "i260" | |
| 23714 | "i259" | |
| 23715 | "i256" | |
| 23716 | "i254" | |
| 23717 | "i253" | |
| 23718 | "i252" | |
| 23719 | "i251" | |
| 23720 | "i250" | |
| 23721 | "i248" | |
| 23722 | "i246" | |
| 23723 | "i244" | |
| 23724 | "i241" | |
| 23725 | "i239" | |
| 23726 | "i237" | |
| 23727 | "i235" | |
| 23728 | "i233" | |
| 23729 | "i231" | |
| 23730 | "i229" | |
| 23731 | "i227" | |
| 23732 | "i225" | |
| 23733 | "i223" | |
| 23734 | "i221" | |
| 23735 | "i219" | |
| 23736 | "i217" | |
| 23737 | "i215" | |
| 23738 | "i213" | |
| 23739 | "i211" | |
| 23740 | "i209" | |
| 23741 | "i207")) | |
| 23742 | #(ribcage | |
| 23743 | (define-structure | |
| 23744 | define-expansion-accessors | |
| 23745 | define-expansion-constructors) | |
| 23746 | ((top) (top) (top)) | |
| 23747 | ("i45" | |
| 23748 | "i44" | |
| 23749 | "i43"))) | |
| 23750 | (hygiene guile)) | |
| 23751 | 0) | |
| 23752 | 'syntax-object) | |
| 23753 | #f) | |
| 23754 | (vector-ref | |
| 23755 | '#(syntax-object | |
| 23756 | _ | |
| 23757 | ((top) | |
| 23758 | #(ribcage | |
| 23759 | #(pat exp) | |
| 23760 | #((top) (top)) | |
| 23761 | #("i3910" "i3911")) | |
| 23762 | #(ribcage () () ()) | |
| 23763 | #(ribcage | |
| 23764 | #(x keys clauses r mod) | |
| 23765 | #((top) | |
| 23766 | (top) | |
| 23767 | (top) | |
| 23768 | (top) | |
| 23769 | (top)) | |
| 23770 | #("i3899" | |
| 23771 | "i3900" | |
| 23772 | "i3901" | |
| 23773 | "i3902" | |
| 23774 | "i3903")) | |
| 23775 | #(ribcage | |
| 23776 | (gen-syntax-case | |
| 23777 | gen-clause | |
| 23778 | build-dispatch-call | |
| 23779 | convert-pattern) | |
| 23780 | ((top) (top) (top) (top)) | |
| 23781 | ("i3709" | |
| 23782 | "i3707" | |
| 23783 | "i3705" | |
| 23784 | "i3703")) | |
| 23785 | #(ribcage | |
| 23786 | (lambda-var-list | |
| 23787 | gen-var | |
| 23788 | strip | |
| 23789 | chi-lambda-case | |
| 23790 | lambda*-formals | |
| 23791 | chi-simple-lambda | |
| 23792 | lambda-formals | |
| 23793 | ellipsis? | |
| 23794 | chi-void | |
| 23795 | eval-local-transformer | |
| 23796 | chi-local-syntax | |
| 23797 | chi-body | |
| 23798 | chi-macro | |
| 23799 | chi-application | |
| 23800 | chi-expr | |
| 23801 | chi | |
| 23802 | syntax-type | |
| 23803 | chi-when-list | |
| 23804 | chi-install-global | |
| 23805 | chi-top-sequence | |
| 23806 | chi-sequence | |
| 23807 | source-wrap | |
| 23808 | wrap | |
| 23809 | bound-id-member? | |
| 23810 | distinct-bound-ids? | |
| 23811 | valid-bound-ids? | |
| 23812 | bound-id=? | |
| 23813 | free-id=? | |
| 23814 | id-var-name | |
| 23815 | same-marks? | |
| 23816 | join-marks | |
| 23817 | join-wraps | |
| 23818 | smart-append | |
| 23819 | make-binding-wrap | |
| 23820 | extend-ribcage! | |
| 23821 | make-empty-ribcage | |
| 23822 | new-mark | |
| 23823 | anti-mark | |
| 23824 | the-anti-mark | |
| 23825 | top-marked? | |
| 23826 | top-wrap | |
| 23827 | empty-wrap | |
| 23828 | set-ribcage-labels! | |
| 23829 | set-ribcage-marks! | |
| 23830 | set-ribcage-symnames! | |
| 23831 | ribcage-labels | |
| 23832 | ribcage-marks | |
| 23833 | ribcage-symnames | |
| 23834 | ribcage? | |
| 23835 | make-ribcage | |
| 23836 | gen-labels | |
| 23837 | gen-label | |
| 23838 | make-rename | |
| 23839 | rename-marks | |
| 23840 | rename-new | |
| 23841 | rename-old | |
| 23842 | subst-rename? | |
| 23843 | wrap-subst | |
| 23844 | wrap-marks | |
| 23845 | make-wrap | |
| 23846 | id-sym-name&marks | |
| 23847 | id-sym-name | |
| 23848 | id? | |
| 23849 | nonsymbol-id? | |
| 23850 | global-extend | |
| 23851 | lookup | |
| 23852 | macros-only-env | |
| 23853 | extend-var-env | |
| 23854 | extend-env | |
| 23855 | null-env | |
| 23856 | binding-value | |
| 23857 | binding-type | |
| 23858 | make-binding | |
| 23859 | arg-check | |
| 23860 | source-annotation | |
| 23861 | no-source | |
| 23862 | set-syntax-object-module! | |
| 23863 | set-syntax-object-wrap! | |
| 23864 | set-syntax-object-expression! | |
| 23865 | syntax-object-module | |
| 23866 | syntax-object-wrap | |
| 23867 | syntax-object-expression | |
| 23868 | syntax-object? | |
| 23869 | make-syntax-object | |
| 23870 | build-lexical-var | |
| 23871 | build-letrec | |
| 23872 | build-named-let | |
| 23873 | build-let | |
| 23874 | build-sequence | |
| 23875 | build-data | |
| 23876 | build-primref | |
| 23877 | build-lambda-case | |
| 23878 | build-case-lambda | |
| 23879 | build-simple-lambda | |
| 23880 | build-global-definition | |
| 23881 | build-global-assignment | |
| 23882 | build-global-reference | |
| 23883 | analyze-variable | |
| 23884 | build-lexical-assignment | |
| 23885 | build-lexical-reference | |
| 23886 | build-dynlet | |
| 23887 | build-conditional | |
| 23888 | build-application | |
| 23889 | build-void | |
| 23890 | maybe-name-value! | |
| 23891 | decorate-source | |
| 23892 | get-global-definition-hook | |
| 23893 | put-global-definition-hook | |
| 23894 | gensym-hook | |
| 23895 | local-eval-hook | |
| 23896 | top-level-eval-hook | |
| 23897 | fx< | |
| 23898 | fx= | |
| 23899 | fx- | |
| 23900 | fx+ | |
| 23901 | set-lambda-meta! | |
| 23902 | lambda-meta | |
| 23903 | lambda? | |
| 23904 | make-dynlet | |
| 23905 | make-letrec | |
| 23906 | make-let | |
| 23907 | make-lambda-case | |
| 23908 | make-lambda | |
| 23909 | make-sequence | |
| 23910 | make-application | |
| 23911 | make-conditional | |
| 23912 | make-toplevel-define | |
| 23913 | make-toplevel-set | |
| 23914 | make-toplevel-ref | |
| 23915 | make-module-set | |
| 23916 | make-module-ref | |
| 23917 | make-lexical-set | |
| 23918 | make-lexical-ref | |
| 23919 | make-primitive-ref | |
| 23920 | make-const | |
| 23921 | make-void) | |
| 23922 | ((top) | |
| 23923 | (top) | |
| 23924 | (top) | |
| 23925 | (top) | |
| 23926 | (top) | |
| 23927 | (top) | |
| 23928 | (top) | |
| 23929 | (top) | |
| 23930 | (top) | |
| 23931 | (top) | |
| 23932 | (top) | |
| 23933 | (top) | |
| 23934 | (top) | |
| 23935 | (top) | |
| 23936 | (top) | |
| 23937 | (top) | |
| 23938 | (top) | |
| 23939 | (top) | |
| 23940 | (top) | |
| 23941 | (top) | |
| 23942 | (top) | |
| 23943 | (top) | |
| 23944 | (top) | |
| 23945 | (top) | |
| 23946 | (top) | |
| 23947 | (top) | |
| 23948 | (top) | |
| 23949 | (top) | |
| 23950 | (top) | |
| 23951 | (top) | |
| 23952 | (top) | |
| 23953 | (top) | |
| 23954 | (top) | |
| 23955 | (top) | |
| 23956 | (top) | |
| 23957 | (top) | |
| 23958 | (top) | |
| 23959 | (top) | |
| 23960 | (top) | |
| 23961 | (top) | |
| 23962 | (top) | |
| 23963 | (top) | |
| 23964 | (top) | |
| 23965 | (top) | |
| 23966 | (top) | |
| 23967 | (top) | |
| 23968 | (top) | |
| 23969 | (top) | |
| 23970 | (top) | |
| 23971 | (top) | |
| 23972 | (top) | |
| 23973 | (top) | |
| 23974 | (top) | |
| 23975 | (top) | |
| 23976 | (top) | |
| 23977 | (top) | |
| 23978 | (top) | |
| 23979 | (top) | |
| 23980 | (top) | |
| 23981 | (top) | |
| 23982 | (top) | |
| 23983 | (top) | |
| 23984 | (top) | |
| 23985 | (top) | |
| 23986 | (top) | |
| 23987 | (top) | |
| 23988 | (top) | |
| 23989 | (top) | |
| 23990 | (top) | |
| 23991 | (top) | |
| 23992 | (top) | |
| 23993 | (top) | |
| 23994 | (top) | |
| 23995 | (top) | |
| 23996 | (top) | |
| 23997 | (top) | |
| 23998 | (top) | |
| 23999 | (top) | |
| 24000 | (top) | |
| 24001 | (top) | |
| 24002 | (top) | |
| 24003 | (top) | |
| 24004 | (top) | |
| 24005 | (top) | |
| 24006 | (top) | |
| 24007 | (top) | |
| 24008 | (top) | |
| 24009 | (top) | |
| 24010 | (top) | |
| 24011 | (top) | |
| 24012 | (top) | |
| 24013 | (top) | |
| 24014 | (top) | |
| 24015 | (top) | |
| 24016 | (top) | |
| 24017 | (top) | |
| 24018 | (top) | |
| 24019 | (top) | |
| 24020 | (top) | |
| 24021 | (top) | |
| 24022 | (top) | |
| 24023 | (top) | |
| 24024 | (top) | |
| 24025 | (top) | |
| 24026 | (top) | |
| 24027 | (top) | |
| 24028 | (top) | |
| 24029 | (top) | |
| 24030 | (top) | |
| 24031 | (top) | |
| 24032 | (top) | |
| 24033 | (top) | |
| 24034 | (top) | |
| 24035 | (top) | |
| 24036 | (top) | |
| 24037 | (top) | |
| 24038 | (top) | |
| 24039 | (top) | |
| 24040 | (top) | |
| 24041 | (top) | |
| 24042 | (top) | |
| 24043 | (top) | |
| 24044 | (top) | |
| 24045 | (top) | |
| 24046 | (top) | |
| 24047 | (top) | |
| 24048 | (top) | |
| 24049 | (top) | |
| 24050 | (top) | |
| 24051 | (top) | |
| 24052 | (top) | |
| 24053 | (top) | |
| 24054 | (top) | |
| 24055 | (top) | |
| 24056 | (top) | |
| 24057 | (top)) | |
| 24058 | ("i466" | |
| 24059 | "i464" | |
| 24060 | "i462" | |
| 24061 | "i460" | |
| 24062 | "i458" | |
| 24063 | "i456" | |
| 24064 | "i454" | |
| 24065 | "i452" | |
| 24066 | "i450" | |
| 24067 | "i448" | |
| 24068 | "i446" | |
| 24069 | "i444" | |
| 24070 | "i442" | |
| 24071 | "i440" | |
| 24072 | "i438" | |
| 24073 | "i436" | |
| 24074 | "i434" | |
| 24075 | "i432" | |
| 24076 | "i430" | |
| 24077 | "i428" | |
| 24078 | "i426" | |
| 24079 | "i424" | |
| 24080 | "i422" | |
| 24081 | "i420" | |
| 24082 | "i418" | |
| 24083 | "i416" | |
| 24084 | "i414" | |
| 24085 | "i412" | |
| 24086 | "i410" | |
| 24087 | "i408" | |
| 24088 | "i406" | |
| 24089 | "i404" | |
| 24090 | "i402" | |
| 24091 | "i400" | |
| 24092 | "i398" | |
| 24093 | "i397" | |
| 24094 | "i395" | |
| 24095 | "i392" | |
| 24096 | "i391" | |
| 24097 | "i390" | |
| 24098 | "i388" | |
| 24099 | "i387" | |
| 24100 | "i385" | |
| 24101 | "i383" | |
| 24102 | "i381" | |
| 24103 | "i379" | |
| 24104 | "i377" | |
| 24105 | "i375" | |
| 24106 | "i373" | |
| 24107 | "i371" | |
| 24108 | "i368" | |
| 24109 | "i366" | |
| 24110 | "i365" | |
| 24111 | "i363" | |
| 24112 | "i361" | |
| 24113 | "i359" | |
| 24114 | "i357" | |
| 24115 | "i356" | |
| 24116 | "i355" | |
| 24117 | "i354" | |
| 24118 | "i352" | |
| 24119 | "i351" | |
| 24120 | "i348" | |
| 24121 | "i346" | |
| 24122 | "i344" | |
| 24123 | "i342" | |
| 24124 | "i340" | |
| 24125 | "i338" | |
| 24126 | "i336" | |
| 24127 | "i335" | |
| 24128 | "i334" | |
| 24129 | "i332" | |
| 24130 | "i330" | |
| 24131 | "i329" | |
| 24132 | "i326" | |
| 24133 | "i325" | |
| 24134 | "i323" | |
| 24135 | "i321" | |
| 24136 | "i319" | |
| 24137 | "i317" | |
| 24138 | "i315" | |
| 24139 | "i313" | |
| 24140 | "i311" | |
| 24141 | "i309" | |
| 24142 | "i307" | |
| 24143 | "i304" | |
| 24144 | "i302" | |
| 24145 | "i300" | |
| 24146 | "i298" | |
| 24147 | "i296" | |
| 24148 | "i294" | |
| 24149 | "i292" | |
| 24150 | "i290" | |
| 24151 | "i288" | |
| 24152 | "i286" | |
| 24153 | "i284" | |
| 24154 | "i282" | |
| 24155 | "i280" | |
| 24156 | "i278" | |
| 24157 | "i276" | |
| 24158 | "i274" | |
| 24159 | "i272" | |
| 24160 | "i270" | |
| 24161 | "i268" | |
| 24162 | "i266" | |
| 24163 | "i264" | |
| 24164 | "i262" | |
| 24165 | "i260" | |
| 24166 | "i259" | |
| 24167 | "i256" | |
| 24168 | "i254" | |
| 24169 | "i253" | |
| 24170 | "i252" | |
| 24171 | "i251" | |
| 24172 | "i250" | |
| 24173 | "i248" | |
| 24174 | "i246" | |
| 24175 | "i244" | |
| 24176 | "i241" | |
| 24177 | "i239" | |
| 24178 | "i237" | |
| 24179 | "i235" | |
| 24180 | "i233" | |
| 24181 | "i231" | |
| 24182 | "i229" | |
| 24183 | "i227" | |
| 24184 | "i225" | |
| 24185 | "i223" | |
| 24186 | "i221" | |
| 24187 | "i219" | |
| 24188 | "i217" | |
| 24189 | "i215" | |
| 24190 | "i213" | |
| 24191 | "i211" | |
| 24192 | "i209" | |
| 24193 | "i207")) | |
| 24194 | #(ribcage | |
| 24195 | (define-structure | |
| 24196 | define-expansion-accessors | |
| 24197 | define-expansion-constructors) | |
| 24198 | ((top) (top) (top)) | |
| 24199 | ("i45" "i44" "i43"))) | |
| 24200 | (hygiene guile)) | |
| 24201 | 1) | |
| 24202 | '#(syntax-object | |
| 24203 | _ | |
| 24204 | ((top) | |
| 24205 | #(ribcage | |
| 24206 | #(pat exp) | |
| 24207 | #((top) (top)) | |
| 24208 | #("i3910" "i3911")) | |
| 24209 | #(ribcage () () ()) | |
| 24210 | #(ribcage | |
| 24211 | #(x keys clauses r mod) | |
| 24212 | #((top) | |
| 24213 | (top) | |
| 24214 | (top) | |
| 24215 | (top) | |
| 24216 | (top)) | |
| 24217 | #("i3899" | |
| 24218 | "i3900" | |
| 24219 | "i3901" | |
| 24220 | "i3902" | |
| 24221 | "i3903")) | |
| 24222 | #(ribcage | |
| 24223 | (gen-syntax-case | |
| 24224 | gen-clause | |
| 24225 | build-dispatch-call | |
| 24226 | convert-pattern) | |
| 24227 | ((top) (top) (top) (top)) | |
| 24228 | ("i3709" | |
| 24229 | "i3707" | |
| 24230 | "i3705" | |
| 24231 | "i3703")) | |
| 24232 | #(ribcage | |
| 24233 | (lambda-var-list | |
| 24234 | gen-var | |
| 24235 | strip | |
| 24236 | chi-lambda-case | |
| 24237 | lambda*-formals | |
| 24238 | chi-simple-lambda | |
| 24239 | lambda-formals | |
| 24240 | ellipsis? | |
| 24241 | chi-void | |
| 24242 | eval-local-transformer | |
| 24243 | chi-local-syntax | |
| 24244 | chi-body | |
| 24245 | chi-macro | |
| 24246 | chi-application | |
| 24247 | chi-expr | |
| 24248 | chi | |
| 24249 | syntax-type | |
| 24250 | chi-when-list | |
| 24251 | chi-install-global | |
| 24252 | chi-top-sequence | |
| 24253 | chi-sequence | |
| 24254 | source-wrap | |
| 24255 | wrap | |
| 24256 | bound-id-member? | |
| 24257 | distinct-bound-ids? | |
| 24258 | valid-bound-ids? | |
| 24259 | bound-id=? | |
| 24260 | free-id=? | |
| 24261 | id-var-name | |
| 24262 | same-marks? | |
| 24263 | join-marks | |
| 24264 | join-wraps | |
| 24265 | smart-append | |
| 24266 | make-binding-wrap | |
| 24267 | extend-ribcage! | |
| 24268 | make-empty-ribcage | |
| 24269 | new-mark | |
| 24270 | anti-mark | |
| 24271 | the-anti-mark | |
| 24272 | top-marked? | |
| 24273 | top-wrap | |
| 24274 | empty-wrap | |
| 24275 | set-ribcage-labels! | |
| 24276 | set-ribcage-marks! | |
| 24277 | set-ribcage-symnames! | |
| 24278 | ribcage-labels | |
| 24279 | ribcage-marks | |
| 24280 | ribcage-symnames | |
| 24281 | ribcage? | |
| 24282 | make-ribcage | |
| 24283 | gen-labels | |
| 24284 | gen-label | |
| 24285 | make-rename | |
| 24286 | rename-marks | |
| 24287 | rename-new | |
| 24288 | rename-old | |
| 24289 | subst-rename? | |
| 24290 | wrap-subst | |
| 24291 | wrap-marks | |
| 24292 | make-wrap | |
| 24293 | id-sym-name&marks | |
| 24294 | id-sym-name | |
| 24295 | id? | |
| 24296 | nonsymbol-id? | |
| 24297 | global-extend | |
| 24298 | lookup | |
| 24299 | macros-only-env | |
| 24300 | extend-var-env | |
| 24301 | extend-env | |
| 24302 | null-env | |
| 24303 | binding-value | |
| 24304 | binding-type | |
| 24305 | make-binding | |
| 24306 | arg-check | |
| 24307 | source-annotation | |
| 24308 | no-source | |
| 24309 | set-syntax-object-module! | |
| 24310 | set-syntax-object-wrap! | |
| 24311 | set-syntax-object-expression! | |
| 24312 | syntax-object-module | |
| 24313 | syntax-object-wrap | |
| 24314 | syntax-object-expression | |
| 24315 | syntax-object? | |
| 24316 | make-syntax-object | |
| 24317 | build-lexical-var | |
| 24318 | build-letrec | |
| 24319 | build-named-let | |
| 24320 | build-let | |
| 24321 | build-sequence | |
| 24322 | build-data | |
| 24323 | build-primref | |
| 24324 | build-lambda-case | |
| 24325 | build-case-lambda | |
| 24326 | build-simple-lambda | |
| 24327 | build-global-definition | |
| 24328 | build-global-assignment | |
| 24329 | build-global-reference | |
| 24330 | analyze-variable | |
| 24331 | build-lexical-assignment | |
| 24332 | build-lexical-reference | |
| 24333 | build-dynlet | |
| 24334 | build-conditional | |
| 24335 | build-application | |
| 24336 | build-void | |
| 24337 | maybe-name-value! | |
| 24338 | decorate-source | |
| 24339 | get-global-definition-hook | |
| 24340 | put-global-definition-hook | |
| 24341 | gensym-hook | |
| 24342 | local-eval-hook | |
| 24343 | top-level-eval-hook | |
| 24344 | fx< | |
| 24345 | fx= | |
| 24346 | fx- | |
| 24347 | fx+ | |
| 24348 | set-lambda-meta! | |
| 24349 | lambda-meta | |
| 24350 | lambda? | |
| 24351 | make-dynlet | |
| 24352 | make-letrec | |
| 24353 | make-let | |
| 24354 | make-lambda-case | |
| 24355 | make-lambda | |
| 24356 | make-sequence | |
| 24357 | make-application | |
| 24358 | make-conditional | |
| 24359 | make-toplevel-define | |
| 24360 | make-toplevel-set | |
| 24361 | make-toplevel-ref | |
| 24362 | make-module-set | |
| 24363 | make-module-ref | |
| 24364 | make-lexical-set | |
| 24365 | make-lexical-ref | |
| 24366 | make-primitive-ref | |
| 24367 | make-const | |
| 24368 | make-void) | |
| 24369 | ((top) | |
| 24370 | (top) | |
| 24371 | (top) | |
| 24372 | (top) | |
| 24373 | (top) | |
| 24374 | (top) | |
| 24375 | (top) | |
| 24376 | (top) | |
| 24377 | (top) | |
| 24378 | (top) | |
| 24379 | (top) | |
| 24380 | (top) | |
| 24381 | (top) | |
| 24382 | (top) | |
| 24383 | (top) | |
| 24384 | (top) | |
| 24385 | (top) | |
| 24386 | (top) | |
| 24387 | (top) | |
| 24388 | (top) | |
| 24389 | (top) | |
| 24390 | (top) | |
| 24391 | (top) | |
| 24392 | (top) | |
| 24393 | (top) | |
| 24394 | (top) | |
| 24395 | (top) | |
| 24396 | (top) | |
| 24397 | (top) | |
| 24398 | (top) | |
| 24399 | (top) | |
| 24400 | (top) | |
| 24401 | (top) | |
| 24402 | (top) | |
| 24403 | (top) | |
| 24404 | (top) | |
| 24405 | (top) | |
| 24406 | (top) | |
| 24407 | (top) | |
| 24408 | (top) | |
| 24409 | (top) | |
| 24410 | (top) | |
| 24411 | (top) | |
| 24412 | (top) | |
| 24413 | (top) | |
| 24414 | (top) | |
| 24415 | (top) | |
| 24416 | (top) | |
| 24417 | (top) | |
| 24418 | (top) | |
| 24419 | (top) | |
| 24420 | (top) | |
| 24421 | (top) | |
| 24422 | (top) | |
| 24423 | (top) | |
| 24424 | (top) | |
| 24425 | (top) | |
| 24426 | (top) | |
| 24427 | (top) | |
| 24428 | (top) | |
| 24429 | (top) | |
| 24430 | (top) | |
| 24431 | (top) | |
| 24432 | (top) | |
| 24433 | (top) | |
| 24434 | (top) | |
| 24435 | (top) | |
| 24436 | (top) | |
| 24437 | (top) | |
| 24438 | (top) | |
| 24439 | (top) | |
| 24440 | (top) | |
| 24441 | (top) | |
| 24442 | (top) | |
| 24443 | (top) | |
| 24444 | (top) | |
| 24445 | (top) | |
| 24446 | (top) | |
| 24447 | (top) | |
| 24448 | (top) | |
| 24449 | (top) | |
| 24450 | (top) | |
| 24451 | (top) | |
| 24452 | (top) | |
| 24453 | (top) | |
| 24454 | (top) | |
| 24455 | (top) | |
| 24456 | (top) | |
| 24457 | (top) | |
| 24458 | (top) | |
| 24459 | (top) | |
| 24460 | (top) | |
| 24461 | (top) | |
| 24462 | (top) | |
| 24463 | (top) | |
| 24464 | (top) | |
| 24465 | (top) | |
| 24466 | (top) | |
| 24467 | (top) | |
| 24468 | (top) | |
| 24469 | (top) | |
| 24470 | (top) | |
| 24471 | (top) | |
| 24472 | (top) | |
| 24473 | (top) | |
| 24474 | (top) | |
| 24475 | (top) | |
| 24476 | (top) | |
| 24477 | (top) | |
| 24478 | (top) | |
| 24479 | (top) | |
| 24480 | (top) | |
| 24481 | (top) | |
| 24482 | (top) | |
| 24483 | (top) | |
| 24484 | (top) | |
| 24485 | (top) | |
| 24486 | (top) | |
| 24487 | (top) | |
| 24488 | (top) | |
| 24489 | (top) | |
| 24490 | (top) | |
| 24491 | (top) | |
| 24492 | (top) | |
| 24493 | (top) | |
| 24494 | (top) | |
| 24495 | (top) | |
| 24496 | (top) | |
| 24497 | (top) | |
| 24498 | (top) | |
| 24499 | (top) | |
| 24500 | (top) | |
| 24501 | (top) | |
| 24502 | (top) | |
| 24503 | (top) | |
| 24504 | (top)) | |
| 24505 | ("i466" | |
| 24506 | "i464" | |
| 24507 | "i462" | |
| 24508 | "i460" | |
| 24509 | "i458" | |
| 24510 | "i456" | |
| 24511 | "i454" | |
| 24512 | "i452" | |
| 24513 | "i450" | |
| 24514 | "i448" | |
| 24515 | "i446" | |
| 24516 | "i444" | |
| 24517 | "i442" | |
| 24518 | "i440" | |
| 24519 | "i438" | |
| 24520 | "i436" | |
| 24521 | "i434" | |
| 24522 | "i432" | |
| 24523 | "i430" | |
| 24524 | "i428" | |
| 24525 | "i426" | |
| 24526 | "i424" | |
| 24527 | "i422" | |
| 24528 | "i420" | |
| 24529 | "i418" | |
| 24530 | "i416" | |
| 24531 | "i414" | |
| 24532 | "i412" | |
| 24533 | "i410" | |
| 24534 | "i408" | |
| 24535 | "i406" | |
| 24536 | "i404" | |
| 24537 | "i402" | |
| 24538 | "i400" | |
| 24539 | "i398" | |
| 24540 | "i397" | |
| 24541 | "i395" | |
| 24542 | "i392" | |
| 24543 | "i391" | |
| 24544 | "i390" | |
| 24545 | "i388" | |
| 24546 | "i387" | |
| 24547 | "i385" | |
| 24548 | "i383" | |
| 24549 | "i381" | |
| 24550 | "i379" | |
| 24551 | "i377" | |
| 24552 | "i375" | |
| 24553 | "i373" | |
| 24554 | "i371" | |
| 24555 | "i368" | |
| 24556 | "i366" | |
| 24557 | "i365" | |
| 24558 | "i363" | |
| 24559 | "i361" | |
| 24560 | "i359" | |
| 24561 | "i357" | |
| 24562 | "i356" | |
| 24563 | "i355" | |
| 24564 | "i354" | |
| 24565 | "i352" | |
| 24566 | "i351" | |
| 24567 | "i348" | |
| 24568 | "i346" | |
| 24569 | "i344" | |
| 24570 | "i342" | |
| 24571 | "i340" | |
| 24572 | "i338" | |
| 24573 | "i336" | |
| 24574 | "i335" | |
| 24575 | "i334" | |
| 24576 | "i332" | |
| 24577 | "i330" | |
| 24578 | "i329" | |
| 24579 | "i326" | |
| 24580 | "i325" | |
| 24581 | "i323" | |
| 24582 | "i321" | |
| 24583 | "i319" | |
| 24584 | "i317" | |
| 24585 | "i315" | |
| 24586 | "i313" | |
| 24587 | "i311" | |
| 24588 | "i309" | |
| 24589 | "i307" | |
| 24590 | "i304" | |
| 24591 | "i302" | |
| 24592 | "i300" | |
| 24593 | "i298" | |
| 24594 | "i296" | |
| 24595 | "i294" | |
| 24596 | "i292" | |
| 24597 | "i290" | |
| 24598 | "i288" | |
| 24599 | "i286" | |
| 24600 | "i284" | |
| 24601 | "i282" | |
| 24602 | "i280" | |
| 24603 | "i278" | |
| 24604 | "i276" | |
| 24605 | "i274" | |
| 24606 | "i272" | |
| 24607 | "i270" | |
| 24608 | "i268" | |
| 24609 | "i266" | |
| 24610 | "i264" | |
| 24611 | "i262" | |
| 24612 | "i260" | |
| 24613 | "i259" | |
| 24614 | "i256" | |
| 24615 | "i254" | |
| 24616 | "i253" | |
| 24617 | "i252" | |
| 24618 | "i251" | |
| 24619 | "i250" | |
| 24620 | "i248" | |
| 24621 | "i246" | |
| 24622 | "i244" | |
| 24623 | "i241" | |
| 24624 | "i239" | |
| 24625 | "i237" | |
| 24626 | "i235" | |
| 24627 | "i233" | |
| 24628 | "i231" | |
| 24629 | "i229" | |
| 24630 | "i227" | |
| 24631 | "i225" | |
| 24632 | "i223" | |
| 24633 | "i221" | |
| 24634 | "i219" | |
| 24635 | "i217" | |
| 24636 | "i215" | |
| 24637 | "i213" | |
| 24638 | "i211" | |
| 24639 | "i209" | |
| 24640 | "i207")) | |
| 24641 | #(ribcage | |
| 24642 | (define-structure | |
| 24643 | define-expansion-accessors | |
| 24644 | define-expansion-constructors) | |
| 24645 | ((top) (top) (top)) | |
| 24646 | ("i45" "i44" "i43"))) | |
| 24647 | (hygiene guile)))) | |
| 24648 | (eq? (#{id-var-name 411}# | |
| 24649 | '#(syntax-object | |
| 24650 | pad | |
| 0f550375 | 24651 | ((top) |
| df40b969 | 24652 | #(ribcage |
| 014de9e2 AW |
24653 | #(pat exp) |
| 24654 | #((top) (top)) | |
| 24655 | #("i3910" "i3911")) | |
| df40b969 AW |
24656 | #(ribcage () () ()) |
| 24657 | #(ribcage | |
| 014de9e2 AW |
24658 | #(x keys clauses r mod) |
| 24659 | #((top) (top) (top) (top) (top)) | |
| 24660 | #("i3899" | |
| 24661 | "i3900" | |
| 24662 | "i3901" | |
| 24663 | "i3902" | |
| 24664 | "i3903")) | |
| 24665 | #(ribcage | |
| 24666 | (gen-syntax-case | |
| 24667 | gen-clause | |
| 24668 | build-dispatch-call | |
| 24669 | convert-pattern) | |
| 24670 | ((top) (top) (top) (top)) | |
| 24671 | ("i3709" | |
| 24672 | "i3707" | |
| 24673 | "i3705" | |
| 24674 | "i3703")) | |
| 24675 | #(ribcage | |
| 24676 | (lambda-var-list | |
| 24677 | gen-var | |
| 24678 | strip | |
| 24679 | chi-lambda-case | |
| 24680 | lambda*-formals | |
| 24681 | chi-simple-lambda | |
| 24682 | lambda-formals | |
| 24683 | ellipsis? | |
| 24684 | chi-void | |
| 24685 | eval-local-transformer | |
| 24686 | chi-local-syntax | |
| 24687 | chi-body | |
| 24688 | chi-macro | |
| 24689 | chi-application | |
| 24690 | chi-expr | |
| 24691 | chi | |
| 24692 | syntax-type | |
| 24693 | chi-when-list | |
| 24694 | chi-install-global | |
| 24695 | chi-top-sequence | |
| 24696 | chi-sequence | |
| 24697 | source-wrap | |
| 24698 | wrap | |
| 24699 | bound-id-member? | |
| 24700 | distinct-bound-ids? | |
| 24701 | valid-bound-ids? | |
| 24702 | bound-id=? | |
| 24703 | free-id=? | |
| 24704 | id-var-name | |
| 24705 | same-marks? | |
| 24706 | join-marks | |
| 24707 | join-wraps | |
| 24708 | smart-append | |
| 24709 | make-binding-wrap | |
| 24710 | extend-ribcage! | |
| 24711 | make-empty-ribcage | |
| 24712 | new-mark | |
| 24713 | anti-mark | |
| 24714 | the-anti-mark | |
| 24715 | top-marked? | |
| 24716 | top-wrap | |
| 24717 | empty-wrap | |
| 24718 | set-ribcage-labels! | |
| 24719 | set-ribcage-marks! | |
| 24720 | set-ribcage-symnames! | |
| 24721 | ribcage-labels | |
| 24722 | ribcage-marks | |
| 24723 | ribcage-symnames | |
| 24724 | ribcage? | |
| 24725 | make-ribcage | |
| 24726 | gen-labels | |
| 24727 | gen-label | |
| 24728 | make-rename | |
| 24729 | rename-marks | |
| 24730 | rename-new | |
| 24731 | rename-old | |
| 24732 | subst-rename? | |
| 24733 | wrap-subst | |
| 24734 | wrap-marks | |
| 24735 | make-wrap | |
| 24736 | id-sym-name&marks | |
| 24737 | id-sym-name | |
| 24738 | id? | |
| 24739 | nonsymbol-id? | |
| 24740 | global-extend | |
| 24741 | lookup | |
| 24742 | macros-only-env | |
| 24743 | extend-var-env | |
| 24744 | extend-env | |
| 24745 | null-env | |
| 24746 | binding-value | |
| 24747 | binding-type | |
| 24748 | make-binding | |
| 24749 | arg-check | |
| 24750 | source-annotation | |
| 24751 | no-source | |
| 24752 | set-syntax-object-module! | |
| 24753 | set-syntax-object-wrap! | |
| 24754 | set-syntax-object-expression! | |
| 24755 | syntax-object-module | |
| 24756 | syntax-object-wrap | |
| 24757 | syntax-object-expression | |
| 24758 | syntax-object? | |
| 24759 | make-syntax-object | |
| 24760 | build-lexical-var | |
| 24761 | build-letrec | |
| 24762 | build-named-let | |
| 24763 | build-let | |
| 24764 | build-sequence | |
| 24765 | build-data | |
| 24766 | build-primref | |
| 24767 | build-lambda-case | |
| 24768 | build-case-lambda | |
| 24769 | build-simple-lambda | |
| 24770 | build-global-definition | |
| 24771 | build-global-assignment | |
| 24772 | build-global-reference | |
| 24773 | analyze-variable | |
| 24774 | build-lexical-assignment | |
| 24775 | build-lexical-reference | |
| 24776 | build-dynlet | |
| 24777 | build-conditional | |
| 24778 | build-application | |
| 24779 | build-void | |
| 24780 | maybe-name-value! | |
| 24781 | decorate-source | |
| 24782 | get-global-definition-hook | |
| 24783 | put-global-definition-hook | |
| 24784 | gensym-hook | |
| 24785 | local-eval-hook | |
| 24786 | top-level-eval-hook | |
| 24787 | fx< | |
| 24788 | fx= | |
| 24789 | fx- | |
| 24790 | fx+ | |
| 24791 | set-lambda-meta! | |
| 24792 | lambda-meta | |
| 24793 | lambda? | |
| 24794 | make-dynlet | |
| 24795 | make-letrec | |
| 24796 | make-let | |
| 24797 | make-lambda-case | |
| 24798 | make-lambda | |
| 24799 | make-sequence | |
| 24800 | make-application | |
| 24801 | make-conditional | |
| 24802 | make-toplevel-define | |
| 24803 | make-toplevel-set | |
| 24804 | make-toplevel-ref | |
| 24805 | make-module-set | |
| 24806 | make-module-ref | |
| 24807 | make-lexical-set | |
| 24808 | make-lexical-ref | |
| 24809 | make-primitive-ref | |
| 24810 | make-const | |
| 24811 | make-void) | |
| 24812 | ((top) | |
| 24813 | (top) | |
| 24814 | (top) | |
| 24815 | (top) | |
| 24816 | (top) | |
| 24817 | (top) | |
| 24818 | (top) | |
| 24819 | (top) | |
| 24820 | (top) | |
| 24821 | (top) | |
| 24822 | (top) | |
| 24823 | (top) | |
| 24824 | (top) | |
| 24825 | (top) | |
| 24826 | (top) | |
| 24827 | (top) | |
| 24828 | (top) | |
| 24829 | (top) | |
| 24830 | (top) | |
| 24831 | (top) | |
| 24832 | (top) | |
| 24833 | (top) | |
| 24834 | (top) | |
| 24835 | (top) | |
| 24836 | (top) | |
| 24837 | (top) | |
| 24838 | (top) | |
| 24839 | (top) | |
| 24840 | (top) | |
| 24841 | (top) | |
| 24842 | (top) | |
| 24843 | (top) | |
| 24844 | (top) | |
| 24845 | (top) | |
| 24846 | (top) | |
| 24847 | (top) | |
| 24848 | (top) | |
| 24849 | (top) | |
| 24850 | (top) | |
| 24851 | (top) | |
| 24852 | (top) | |
| 24853 | (top) | |
| 24854 | (top) | |
| 24855 | (top) | |
| 24856 | (top) | |
| 24857 | (top) | |
| 24858 | (top) | |
| 24859 | (top) | |
| 24860 | (top) | |
| 24861 | (top) | |
| 24862 | (top) | |
| 24863 | (top) | |
| 24864 | (top) | |
| 24865 | (top) | |
| 24866 | (top) | |
| 24867 | (top) | |
| 24868 | (top) | |
| 24869 | (top) | |
| 24870 | (top) | |
| 24871 | (top) | |
| 24872 | (top) | |
| 24873 | (top) | |
| 24874 | (top) | |
| 24875 | (top) | |
| 24876 | (top) | |
| 24877 | (top) | |
| 24878 | (top) | |
| 24879 | (top) | |
| 24880 | (top) | |
| 24881 | (top) | |
| 24882 | (top) | |
| 24883 | (top) | |
| 24884 | (top) | |
| 24885 | (top) | |
| 24886 | (top) | |
| 24887 | (top) | |
| 24888 | (top) | |
| 24889 | (top) | |
| 24890 | (top) | |
| 24891 | (top) | |
| 24892 | (top) | |
| 24893 | (top) | |
| 24894 | (top) | |
| 24895 | (top) | |
| 24896 | (top) | |
| 24897 | (top) | |
| 24898 | (top) | |
| 24899 | (top) | |
| 24900 | (top) | |
| 24901 | (top) | |
| 24902 | (top) | |
| 24903 | (top) | |
| 24904 | (top) | |
| 24905 | (top) | |
| 24906 | (top) | |
| 24907 | (top) | |
| 24908 | (top) | |
| 24909 | (top) | |
| 24910 | (top) | |
| 24911 | (top) | |
| 24912 | (top) | |
| 24913 | (top) | |
| 24914 | (top) | |
| 24915 | (top) | |
| 24916 | (top) | |
| 24917 | (top) | |
| 24918 | (top) | |
| 24919 | (top) | |
| 24920 | (top) | |
| 24921 | (top) | |
| 24922 | (top) | |
| 24923 | (top) | |
| 24924 | (top) | |
| 24925 | (top) | |
| 24926 | (top) | |
| 24927 | (top) | |
| 24928 | (top) | |
| 24929 | (top) | |
| 24930 | (top) | |
| 24931 | (top) | |
| 24932 | (top) | |
| 24933 | (top) | |
| 24934 | (top) | |
| 24935 | (top) | |
| 24936 | (top) | |
| 24937 | (top) | |
| 24938 | (top) | |
| 24939 | (top) | |
| 24940 | (top) | |
| 24941 | (top) | |
| 24942 | (top) | |
| 24943 | (top) | |
| 24944 | (top) | |
| 24945 | (top) | |
| 24946 | (top) | |
| 24947 | (top)) | |
| 24948 | ("i466" | |
| 24949 | "i464" | |
| 24950 | "i462" | |
| 24951 | "i460" | |
| 24952 | "i458" | |
| 24953 | "i456" | |
| 24954 | "i454" | |
| 24955 | "i452" | |
| 24956 | "i450" | |
| 24957 | "i448" | |
| 24958 | "i446" | |
| 24959 | "i444" | |
| 24960 | "i442" | |
| 24961 | "i440" | |
| 24962 | "i438" | |
| 24963 | "i436" | |
| 24964 | "i434" | |
| 24965 | "i432" | |
| 24966 | "i430" | |
| 24967 | "i428" | |
| 24968 | "i426" | |
| 24969 | "i424" | |
| 24970 | "i422" | |
| 24971 | "i420" | |
| 24972 | "i418" | |
| 24973 | "i416" | |
| 24974 | "i414" | |
| 24975 | "i412" | |
| 24976 | "i410" | |
| 24977 | "i408" | |
| 24978 | "i406" | |
| 24979 | "i404" | |
| 24980 | "i402" | |
| 24981 | "i400" | |
| 24982 | "i398" | |
| 24983 | "i397" | |
| 24984 | "i395" | |
| 24985 | "i392" | |
| 24986 | "i391" | |
| 24987 | "i390" | |
| 24988 | "i388" | |
| 24989 | "i387" | |
| 24990 | "i385" | |
| 24991 | "i383" | |
| 24992 | "i381" | |
| 24993 | "i379" | |
| 24994 | "i377" | |
| 24995 | "i375" | |
| 24996 | "i373" | |
| 24997 | "i371" | |
| 24998 | "i368" | |
| 24999 | "i366" | |
| 25000 | "i365" | |
| 25001 | "i363" | |
| 25002 | "i361" | |
| 25003 | "i359" | |
| 25004 | "i357" | |
| 25005 | "i356" | |
| 25006 | "i355" | |
| 25007 | "i354" | |
| 25008 | "i352" | |
| 25009 | "i351" | |
| 25010 | "i348" | |
| 25011 | "i346" | |
| 25012 | "i344" | |
| 25013 | "i342" | |
| 25014 | "i340" | |
| 25015 | "i338" | |
| 25016 | "i336" | |
| 25017 | "i335" | |
| 25018 | "i334" | |
| 25019 | "i332" | |
| 25020 | "i330" | |
| 25021 | "i329" | |
| 25022 | "i326" | |
| 25023 | "i325" | |
| 25024 | "i323" | |
| 25025 | "i321" | |
| 25026 | "i319" | |
| 25027 | "i317" | |
| 25028 | "i315" | |
| 25029 | "i313" | |
| 25030 | "i311" | |
| 25031 | "i309" | |
| 25032 | "i307" | |
| 25033 | "i304" | |
| 25034 | "i302" | |
| 25035 | "i300" | |
| 25036 | "i298" | |
| 25037 | "i296" | |
| 25038 | "i294" | |
| 25039 | "i292" | |
| 25040 | "i290" | |
| 25041 | "i288" | |
| 25042 | "i286" | |
| 25043 | "i284" | |
| 25044 | "i282" | |
| 25045 | "i280" | |
| 25046 | "i278" | |
| 25047 | "i276" | |
| 25048 | "i274" | |
| 25049 | "i272" | |
| 25050 | "i270" | |
| 25051 | "i268" | |
| 25052 | "i266" | |
| 25053 | "i264" | |
| 25054 | "i262" | |
| 25055 | "i260" | |
| 25056 | "i259" | |
| 25057 | "i256" | |
| 25058 | "i254" | |
| 25059 | "i253" | |
| 25060 | "i252" | |
| 25061 | "i251" | |
| 25062 | "i250" | |
| 25063 | "i248" | |
| 25064 | "i246" | |
| 25065 | "i244" | |
| 25066 | "i241" | |
| 25067 | "i239" | |
| 25068 | "i237" | |
| 25069 | "i235" | |
| 25070 | "i233" | |
| 25071 | "i231" | |
| 25072 | "i229" | |
| 25073 | "i227" | |
| 25074 | "i225" | |
| 25075 | "i223" | |
| 25076 | "i221" | |
| 25077 | "i219" | |
| 25078 | "i217" | |
| 25079 | "i215" | |
| 25080 | "i213" | |
| 25081 | "i211" | |
| 25082 | "i209" | |
| 25083 | "i207")) | |
| 25084 | #(ribcage | |
| 25085 | (define-structure | |
| 25086 | define-expansion-accessors | |
| 25087 | define-expansion-constructors) | |
| 25088 | ((top) (top) (top)) | |
| 25089 | ("i45" "i44" "i43"))) | |
| df40b969 | 25090 | (hygiene guile)) |
| 014de9e2 AW |
25091 | '(())) |
| 25092 | (#{id-var-name 411}# | |
| 25093 | '#(syntax-object | |
| 25094 | _ | |
| df40b969 AW |
25095 | ((top) |
| 25096 | #(ribcage | |
| 014de9e2 AW |
25097 | #(pat exp) |
| 25098 | #((top) (top)) | |
| 25099 | #("i3910" "i3911")) | |
| df40b969 AW |
25100 | #(ribcage () () ()) |
| 25101 | #(ribcage | |
| 014de9e2 AW |
25102 | #(x keys clauses r mod) |
| 25103 | #((top) (top) (top) (top) (top)) | |
| 25104 | #("i3899" | |
| 25105 | "i3900" | |
| 25106 | "i3901" | |
| 25107 | "i3902" | |
| 25108 | "i3903")) | |
| 25109 | #(ribcage | |
| 25110 | (gen-syntax-case | |
| 25111 | gen-clause | |
| 25112 | build-dispatch-call | |
| 25113 | convert-pattern) | |
| 25114 | ((top) (top) (top) (top)) | |
| 25115 | ("i3709" | |
| 25116 | "i3707" | |
| 25117 | "i3705" | |
| 25118 | "i3703")) | |
| 25119 | #(ribcage | |
| 25120 | (lambda-var-list | |
| 25121 | gen-var | |
| 25122 | strip | |
| 25123 | chi-lambda-case | |
| 25124 | lambda*-formals | |
| 25125 | chi-simple-lambda | |
| 25126 | lambda-formals | |
| 25127 | ellipsis? | |
| 25128 | chi-void | |
| 25129 | eval-local-transformer | |
| 25130 | chi-local-syntax | |
| 25131 | chi-body | |
| 25132 | chi-macro | |
| 25133 | chi-application | |
| 25134 | chi-expr | |
| 25135 | chi | |
| 25136 | syntax-type | |
| 25137 | chi-when-list | |
| 25138 | chi-install-global | |
| 25139 | chi-top-sequence | |
| 25140 | chi-sequence | |
| 25141 | source-wrap | |
| 25142 | wrap | |
| 25143 | bound-id-member? | |
| 25144 | distinct-bound-ids? | |
| 25145 | valid-bound-ids? | |
| 25146 | bound-id=? | |
| 25147 | free-id=? | |
| 25148 | id-var-name | |
| 25149 | same-marks? | |
| 25150 | join-marks | |
| 25151 | join-wraps | |
| 25152 | smart-append | |
| 25153 | make-binding-wrap | |
| 25154 | extend-ribcage! | |
| 25155 | make-empty-ribcage | |
| 25156 | new-mark | |
| 25157 | anti-mark | |
| 25158 | the-anti-mark | |
| 25159 | top-marked? | |
| 25160 | top-wrap | |
| 25161 | empty-wrap | |
| 25162 | set-ribcage-labels! | |
| 25163 | set-ribcage-marks! | |
| 25164 | set-ribcage-symnames! | |
| 25165 | ribcage-labels | |
| 25166 | ribcage-marks | |
| 25167 | ribcage-symnames | |
| 25168 | ribcage? | |
| 25169 | make-ribcage | |
| 25170 | gen-labels | |
| 25171 | gen-label | |
| 25172 | make-rename | |
| 25173 | rename-marks | |
| 25174 | rename-new | |
| 25175 | rename-old | |
| 25176 | subst-rename? | |
| 25177 | wrap-subst | |
| 25178 | wrap-marks | |
| 25179 | make-wrap | |
| 25180 | id-sym-name&marks | |
| 25181 | id-sym-name | |
| 25182 | id? | |
| 25183 | nonsymbol-id? | |
| 25184 | global-extend | |
| 25185 | lookup | |
| 25186 | macros-only-env | |
| 25187 | extend-var-env | |
| 25188 | extend-env | |
| 25189 | null-env | |
| 25190 | binding-value | |
| 25191 | binding-type | |
| 25192 | make-binding | |
| 25193 | arg-check | |
| 25194 | source-annotation | |
| 25195 | no-source | |
| 25196 | set-syntax-object-module! | |
| 25197 | set-syntax-object-wrap! | |
| 25198 | set-syntax-object-expression! | |
| 25199 | syntax-object-module | |
| 25200 | syntax-object-wrap | |
| 25201 | syntax-object-expression | |
| 25202 | syntax-object? | |
| 25203 | make-syntax-object | |
| 25204 | build-lexical-var | |
| 25205 | build-letrec | |
| 25206 | build-named-let | |
| 25207 | build-let | |
| 25208 | build-sequence | |
| 25209 | build-data | |
| 25210 | build-primref | |
| 25211 | build-lambda-case | |
| 25212 | build-case-lambda | |
| 25213 | build-simple-lambda | |
| 25214 | build-global-definition | |
| 25215 | build-global-assignment | |
| 25216 | build-global-reference | |
| 25217 | analyze-variable | |
| 25218 | build-lexical-assignment | |
| 25219 | build-lexical-reference | |
| 25220 | build-dynlet | |
| 25221 | build-conditional | |
| 25222 | build-application | |
| 25223 | build-void | |
| 25224 | maybe-name-value! | |
| 25225 | decorate-source | |
| 25226 | get-global-definition-hook | |
| 25227 | put-global-definition-hook | |
| 25228 | gensym-hook | |
| 25229 | local-eval-hook | |
| 25230 | top-level-eval-hook | |
| 25231 | fx< | |
| 25232 | fx= | |
| 25233 | fx- | |
| 25234 | fx+ | |
| 25235 | set-lambda-meta! | |
| 25236 | lambda-meta | |
| 25237 | lambda? | |
| 25238 | make-dynlet | |
| 25239 | make-letrec | |
| 25240 | make-let | |
| 25241 | make-lambda-case | |
| 25242 | make-lambda | |
| 25243 | make-sequence | |
| 25244 | make-application | |
| 25245 | make-conditional | |
| 25246 | make-toplevel-define | |
| 25247 | make-toplevel-set | |
| 25248 | make-toplevel-ref | |
| 25249 | make-module-set | |
| 25250 | make-module-ref | |
| 25251 | make-lexical-set | |
| 25252 | make-lexical-ref | |
| 25253 | make-primitive-ref | |
| 25254 | make-const | |
| 25255 | make-void) | |
| 25256 | ((top) | |
| 25257 | (top) | |
| 25258 | (top) | |
| 25259 | (top) | |
| 25260 | (top) | |
| 25261 | (top) | |
| 25262 | (top) | |
| 25263 | (top) | |
| 25264 | (top) | |
| 25265 | (top) | |
| 25266 | (top) | |
| 25267 | (top) | |
| 25268 | (top) | |
| 25269 | (top) | |
| 25270 | (top) | |
| 25271 | (top) | |
| 25272 | (top) | |
| 25273 | (top) | |
| 25274 | (top) | |
| 25275 | (top) | |
| 25276 | (top) | |
| 25277 | (top) | |
| 25278 | (top) | |
| 25279 | (top) | |
| 25280 | (top) | |
| 25281 | (top) | |
| 25282 | (top) | |
| 25283 | (top) | |
| 25284 | (top) | |
| 25285 | (top) | |
| 25286 | (top) | |
| 25287 | (top) | |
| 25288 | (top) | |
| 25289 | (top) | |
| 25290 | (top) | |
| 25291 | (top) | |
| 25292 | (top) | |
| 25293 | (top) | |
| 25294 | (top) | |
| 25295 | (top) | |
| 25296 | (top) | |
| 25297 | (top) | |
| 25298 | (top) | |
| 25299 | (top) | |
| 25300 | (top) | |
| 25301 | (top) | |
| 25302 | (top) | |
| 25303 | (top) | |
| 25304 | (top) | |
| 25305 | (top) | |
| 25306 | (top) | |
| 25307 | (top) | |
| 25308 | (top) | |
| 25309 | (top) | |
| 25310 | (top) | |
| 25311 | (top) | |
| 25312 | (top) | |
| 25313 | (top) | |
| 25314 | (top) | |
| 25315 | (top) | |
| 25316 | (top) | |
| 25317 | (top) | |
| 25318 | (top) | |
| 25319 | (top) | |
| 25320 | (top) | |
| 25321 | (top) | |
| 25322 | (top) | |
| 25323 | (top) | |
| 25324 | (top) | |
| 25325 | (top) | |
| 25326 | (top) | |
| 25327 | (top) | |
| 25328 | (top) | |
| 25329 | (top) | |
| 25330 | (top) | |
| 25331 | (top) | |
| 25332 | (top) | |
| 25333 | (top) | |
| 25334 | (top) | |
| 25335 | (top) | |
| 25336 | (top) | |
| 25337 | (top) | |
| 25338 | (top) | |
| 25339 | (top) | |
| 25340 | (top) | |
| 25341 | (top) | |
| 25342 | (top) | |
| 25343 | (top) | |
| 25344 | (top) | |
| 25345 | (top) | |
| 25346 | (top) | |
| 25347 | (top) | |
| 25348 | (top) | |
| 25349 | (top) | |
| 25350 | (top) | |
| 25351 | (top) | |
| 25352 | (top) | |
| 25353 | (top) | |
| 25354 | (top) | |
| 25355 | (top) | |
| 25356 | (top) | |
| 25357 | (top) | |
| 25358 | (top) | |
| 25359 | (top) | |
| 25360 | (top) | |
| 25361 | (top) | |
| 25362 | (top) | |
| 25363 | (top) | |
| 25364 | (top) | |
| 25365 | (top) | |
| 25366 | (top) | |
| 25367 | (top) | |
| 25368 | (top) | |
| 25369 | (top) | |
| 25370 | (top) | |
| 25371 | (top) | |
| 25372 | (top) | |
| 25373 | (top) | |
| 25374 | (top) | |
| 25375 | (top) | |
| 25376 | (top) | |
| 25377 | (top) | |
| 25378 | (top) | |
| 25379 | (top) | |
| 25380 | (top) | |
| 25381 | (top) | |
| 25382 | (top) | |
| 25383 | (top) | |
| 25384 | (top) | |
| 25385 | (top) | |
| 25386 | (top) | |
| 25387 | (top) | |
| 25388 | (top) | |
| 25389 | (top) | |
| 25390 | (top) | |
| 25391 | (top)) | |
| 25392 | ("i466" | |
| 25393 | "i464" | |
| 25394 | "i462" | |
| 25395 | "i460" | |
| 25396 | "i458" | |
| 25397 | "i456" | |
| 25398 | "i454" | |
| 25399 | "i452" | |
| 25400 | "i450" | |
| 25401 | "i448" | |
| 25402 | "i446" | |
| 25403 | "i444" | |
| 25404 | "i442" | |
| 25405 | "i440" | |
| 25406 | "i438" | |
| 25407 | "i436" | |
| 25408 | "i434" | |
| 25409 | "i432" | |
| 25410 | "i430" | |
| 25411 | "i428" | |
| 25412 | "i426" | |
| 25413 | "i424" | |
| 25414 | "i422" | |
| 25415 | "i420" | |
| 25416 | "i418" | |
| 25417 | "i416" | |
| 25418 | "i414" | |
| 25419 | "i412" | |
| 25420 | "i410" | |
| 25421 | "i408" | |
| 25422 | "i406" | |
| 25423 | "i404" | |
| 25424 | "i402" | |
| 25425 | "i400" | |
| 25426 | "i398" | |
| 25427 | "i397" | |
| 25428 | "i395" | |
| 25429 | "i392" | |
| 25430 | "i391" | |
| 25431 | "i390" | |
| 25432 | "i388" | |
| 25433 | "i387" | |
| 25434 | "i385" | |
| 25435 | "i383" | |
| 25436 | "i381" | |
| 25437 | "i379" | |
| 25438 | "i377" | |
| 25439 | "i375" | |
| 25440 | "i373" | |
| 25441 | "i371" | |
| 25442 | "i368" | |
| 25443 | "i366" | |
| 25444 | "i365" | |
| 25445 | "i363" | |
| 25446 | "i361" | |
| 25447 | "i359" | |
| 25448 | "i357" | |
| 25449 | "i356" | |
| 25450 | "i355" | |
| 25451 | "i354" | |
| 25452 | "i352" | |
| 25453 | "i351" | |
| 25454 | "i348" | |
| 25455 | "i346" | |
| 25456 | "i344" | |
| 25457 | "i342" | |
| 25458 | "i340" | |
| 25459 | "i338" | |
| 25460 | "i336" | |
| 25461 | "i335" | |
| 25462 | "i334" | |
| 25463 | "i332" | |
| 25464 | "i330" | |
| 25465 | "i329" | |
| 25466 | "i326" | |
| 25467 | "i325" | |
| 25468 | "i323" | |
| 25469 | "i321" | |
| 25470 | "i319" | |
| 25471 | "i317" | |
| 25472 | "i315" | |
| 25473 | "i313" | |
| 25474 | "i311" | |
| 25475 | "i309" | |
| 25476 | "i307" | |
| 25477 | "i304" | |
| 25478 | "i302" | |
| 25479 | "i300" | |
| 25480 | "i298" | |
| 25481 | "i296" | |
| 25482 | "i294" | |
| 25483 | "i292" | |
| 25484 | "i290" | |
| 25485 | "i288" | |
| 25486 | "i286" | |
| 25487 | "i284" | |
| 25488 | "i282" | |
| 25489 | "i280" | |
| 25490 | "i278" | |
| 25491 | "i276" | |
| 25492 | "i274" | |
| 25493 | "i272" | |
| 25494 | "i270" | |
| 25495 | "i268" | |
| 25496 | "i266" | |
| 25497 | "i264" | |
| 25498 | "i262" | |
| 25499 | "i260" | |
| 25500 | "i259" | |
| 25501 | "i256" | |
| 25502 | "i254" | |
| 25503 | "i253" | |
| 25504 | "i252" | |
| 25505 | "i251" | |
| 25506 | "i250" | |
| 25507 | "i248" | |
| 25508 | "i246" | |
| 25509 | "i244" | |
| 25510 | "i241" | |
| 25511 | "i239" | |
| 25512 | "i237" | |
| 25513 | "i235" | |
| 25514 | "i233" | |
| 25515 | "i231" | |
| 25516 | "i229" | |
| 25517 | "i227" | |
| 25518 | "i225" | |
| 25519 | "i223" | |
| 25520 | "i221" | |
| 25521 | "i219" | |
| 25522 | "i217" | |
| 25523 | "i215" | |
| 25524 | "i213" | |
| 25525 | "i211" | |
| 25526 | "i209" | |
| 25527 | "i207")) | |
| 25528 | #(ribcage | |
| 25529 | (define-structure | |
| 25530 | define-expansion-accessors | |
| 25531 | define-expansion-constructors) | |
| 25532 | ((top) (top) (top)) | |
| 25533 | ("i45" "i44" "i43"))) | |
| df40b969 | 25534 | (hygiene guile)) |
| 014de9e2 AW |
25535 | '(()))) |
| 25536 | #f) | |
| 25537 | (#{chi 437}# | |
| 25538 | #{exp 3913}# | |
| 25539 | #{r 3897}# | |
| 25540 | '(()) | |
| 25541 | #{mod 3898}#) | |
| 25542 | (let ((#{labels 3921}# | |
| 25543 | (list (symbol->string (gensym "i")))) | |
| 25544 | (#{var 3922}# | |
| 25545 | (let ((#{id 9473}# | |
| 25546 | (if (if (vector? #{pat 3912}#) | |
| 25547 | (if (= (vector-length | |
| 25548 | #{pat 3912}#) | |
| 25549 | 4) | |
| 25550 | (eq? (vector-ref | |
| 25551 | #{pat 3912}# | |
| 25552 | 0) | |
| 25553 | 'syntax-object) | |
| 25554 | #f) | |
| 25555 | #f) | |
| 25556 | (vector-ref #{pat 3912}# 1) | |
| 25557 | #{pat 3912}#))) | |
| 25558 | (gensym | |
| 25559 | (string-append | |
| 25560 | (symbol->string #{id 9473}#) | |
| 25561 | " "))))) | |
| 25562 | (#{build-application 271}# | |
| 25563 | #f | |
| 25564 | (#{build-simple-lambda 289}# | |
| 25565 | #f | |
| 25566 | (list (syntax->datum #{pat 3912}#)) | |
| 25567 | #f | |
| 25568 | (list #{var 3922}#) | |
| 25569 | '() | |
| 25570 | (#{chi 437}# | |
| 25571 | #{exp 3913}# | |
| 25572 | (#{extend-env 337}# | |
| 25573 | #{labels 3921}# | |
| 25574 | (list (cons 'syntax | |
| 25575 | (cons #{var 3922}# 0))) | |
| 25576 | #{r 3897}#) | |
| 25577 | (#{make-binding-wrap 401}# | |
| 25578 | (list #{pat 3912}#) | |
| 25579 | #{labels 3921}# | |
| 25580 | '(())) | |
| 25581 | #{mod 3898}#)) | |
| 25582 | (list #{x 3894}#)))) | |
| 25583 | (#{gen-clause 3708}# | |
| 25584 | #{x 3894}# | |
| 25585 | #{keys 3895}# | |
| 25586 | (cdr #{clauses 3896}#) | |
| 25587 | #{r 3897}# | |
| 25588 | #{pat 3912}# | |
| 25589 | #t | |
| 25590 | #{exp 3913}# | |
| 25591 | #{mod 3898}#))) | |
| 25592 | #{tmp 3909}#) | |
| 25593 | (let ((#{tmp 3928}# | |
| 25594 | ($sc-dispatch #{tmp 3908}# '(any any any)))) | |
| 25595 | (if #{tmp 3928}# | |
| 25596 | (@apply | |
| 25597 | (lambda (#{pat 3932}# #{fender 3933}# #{exp 3934}#) | |
| 25598 | (#{gen-clause 3708}# | |
| 25599 | #{x 3894}# | |
| 25600 | #{keys 3895}# | |
| 25601 | (cdr #{clauses 3896}#) | |
| 25602 | #{r 3897}# | |
| 25603 | #{pat 3932}# | |
| 25604 | #{fender 3933}# | |
| 25605 | #{exp 3934}# | |
| 25606 | #{mod 3898}#)) | |
| 25607 | #{tmp 3928}#) | |
| 25608 | (syntax-violation | |
| 25609 | 'syntax-case | |
| 25610 | "invalid clause" | |
| 25611 | (car #{clauses 3896}#))))))))))) | |
| 25612 | (lambda (#{e 3937}# | |
| 25613 | #{r 3938}# | |
| 25614 | #{w 3939}# | |
| 25615 | #{s 3940}# | |
| 25616 | #{mod 3941}#) | |
| 25617 | (let ((#{e 3948}# | |
| 25618 | (#{wrap 423}# | |
| 25619 | (begin | |
| 25620 | (if (if (pair? #{e 3937}#) #{s 3940}# #f) | |
| 25621 | (set-source-properties! #{e 3937}# #{s 3940}#)) | |
| 25622 | #{e 3937}#) | |
| 25623 | #{w 3939}# | |
| 25624 | #{mod 3941}#))) | |
| 25625 | (let ((#{tmp 3950}# | |
| 25626 | ($sc-dispatch | |
| 25627 | #{e 3948}# | |
| 25628 | '(_ any each-any . each-any)))) | |
| 25629 | (if #{tmp 3950}# | |
| 25630 | (@apply | |
| 25631 | (lambda (#{val 3954}# #{key 3955}# #{m 3956}#) | |
| 25632 | (if (and-map | |
| 25633 | (lambda (#{x 3957}#) | |
| 25634 | (if (if (symbol? #{x 3957}#) | |
| 25635 | #t | |
| 25636 | (if (if (vector? #{x 3957}#) | |
| 25637 | (if (= (vector-length #{x 3957}#) 4) | |
| 25638 | (eq? (vector-ref #{x 3957}# 0) | |
| 25639 | 'syntax-object) | |
| 25640 | #f) | |
| 25641 | #f) | |
| 25642 | (symbol? (vector-ref #{x 3957}# 1)) | |
| 25643 | #f)) | |
| 25644 | (not (if (if (if (vector? #{x 3957}#) | |
| 25645 | (if (= (vector-length #{x 3957}#) | |
| 25646 | 4) | |
| 25647 | (eq? (vector-ref #{x 3957}# 0) | |
| 25648 | 'syntax-object) | |
| 25649 | #f) | |
| 25650 | #f) | |
| 25651 | (symbol? (vector-ref #{x 3957}# 1)) | |
| 25652 | #f) | |
| 25653 | (if (eq? (if (if (vector? #{x 3957}#) | |
| 25654 | (if (= (vector-length | |
| 25655 | #{x 3957}#) | |
| 25656 | 4) | |
| 25657 | (eq? (vector-ref | |
| 25658 | #{x 3957}# | |
| 25659 | 0) | |
| 25660 | 'syntax-object) | |
| 25661 | #f) | |
| 25662 | #f) | |
| 25663 | (vector-ref #{x 3957}# 1) | |
| 25664 | #{x 3957}#) | |
| 25665 | (if (if (= (vector-length | |
| 25666 | '#(syntax-object | |
| 25667 | ... | |
| 25668 | ((top) | |
| 25669 | #(ribcage | |
| 25670 | () | |
| 25671 | () | |
| 25672 | ()) | |
| 25673 | #(ribcage | |
| 25674 | () | |
| 25675 | () | |
| 25676 | ()) | |
| 25677 | #(ribcage | |
| 25678 | #(x) | |
| 25679 | #((top)) | |
| 25680 | #("i2229")) | |
| 25681 | #(ribcage | |
| 25682 | (lambda-var-list | |
| 25683 | gen-var | |
| 25684 | strip | |
| 25685 | chi-lambda-case | |
| 25686 | lambda*-formals | |
| 25687 | chi-simple-lambda | |
| 25688 | lambda-formals | |
| 25689 | ellipsis? | |
| 25690 | chi-void | |
| 25691 | eval-local-transformer | |
| 25692 | chi-local-syntax | |
| 25693 | chi-body | |
| 25694 | chi-macro | |
| 25695 | chi-application | |
| 25696 | chi-expr | |
| 25697 | chi | |
| 25698 | syntax-type | |
| 25699 | chi-when-list | |
| 25700 | chi-install-global | |
| 25701 | chi-top-sequence | |
| 25702 | chi-sequence | |
| 25703 | source-wrap | |
| 25704 | wrap | |
| 25705 | bound-id-member? | |
| 25706 | distinct-bound-ids? | |
| 25707 | valid-bound-ids? | |
| 25708 | bound-id=? | |
| 25709 | free-id=? | |
| 25710 | id-var-name | |
| 25711 | same-marks? | |
| 25712 | join-marks | |
| 25713 | join-wraps | |
| 25714 | smart-append | |
| 25715 | make-binding-wrap | |
| 25716 | extend-ribcage! | |
| 25717 | make-empty-ribcage | |
| 25718 | new-mark | |
| 25719 | anti-mark | |
| 25720 | the-anti-mark | |
| 25721 | top-marked? | |
| 25722 | top-wrap | |
| 25723 | empty-wrap | |
| 25724 | set-ribcage-labels! | |
| 25725 | set-ribcage-marks! | |
| 25726 | set-ribcage-symnames! | |
| 25727 | ribcage-labels | |
| 25728 | ribcage-marks | |
| 25729 | ribcage-symnames | |
| 25730 | ribcage? | |
| 25731 | make-ribcage | |
| 25732 | gen-labels | |
| 25733 | gen-label | |
| 25734 | make-rename | |
| 25735 | rename-marks | |
| 25736 | rename-new | |
| 25737 | rename-old | |
| 25738 | subst-rename? | |
| 25739 | wrap-subst | |
| 25740 | wrap-marks | |
| 25741 | make-wrap | |
| 25742 | id-sym-name&marks | |
| 25743 | id-sym-name | |
| 25744 | id? | |
| 25745 | nonsymbol-id? | |
| 25746 | global-extend | |
| 25747 | lookup | |
| 25748 | macros-only-env | |
| 25749 | extend-var-env | |
| 25750 | extend-env | |
| 25751 | null-env | |
| 25752 | binding-value | |
| 25753 | binding-type | |
| 25754 | make-binding | |
| 25755 | arg-check | |
| 25756 | source-annotation | |
| 25757 | no-source | |
| 25758 | set-syntax-object-module! | |
| 25759 | set-syntax-object-wrap! | |
| 25760 | set-syntax-object-expression! | |
| 25761 | syntax-object-module | |
| 25762 | syntax-object-wrap | |
| 25763 | syntax-object-expression | |
| 25764 | syntax-object? | |
| 25765 | make-syntax-object | |
| 25766 | build-lexical-var | |
| 25767 | build-letrec | |
| 25768 | build-named-let | |
| 25769 | build-let | |
| 25770 | build-sequence | |
| 25771 | build-data | |
| 25772 | build-primref | |
| 25773 | build-lambda-case | |
| 25774 | build-case-lambda | |
| 25775 | build-simple-lambda | |
| 25776 | build-global-definition | |
| 25777 | build-global-assignment | |
| 25778 | build-global-reference | |
| 25779 | analyze-variable | |
| 25780 | build-lexical-assignment | |
| 25781 | build-lexical-reference | |
| 25782 | build-dynlet | |
| 25783 | build-conditional | |
| 25784 | build-application | |
| 25785 | build-void | |
| 25786 | maybe-name-value! | |
| 25787 | decorate-source | |
| 25788 | get-global-definition-hook | |
| 25789 | put-global-definition-hook | |
| 25790 | gensym-hook | |
| 25791 | local-eval-hook | |
| 25792 | top-level-eval-hook | |
| 25793 | fx< | |
| 25794 | fx= | |
| 25795 | fx- | |
| 25796 | fx+ | |
| 25797 | set-lambda-meta! | |
| 25798 | lambda-meta | |
| 25799 | lambda? | |
| 25800 | make-dynlet | |
| 25801 | make-letrec | |
| 25802 | make-let | |
| 25803 | make-lambda-case | |
| 25804 | make-lambda | |
| 25805 | make-sequence | |
| 25806 | make-application | |
| 25807 | make-conditional | |
| 25808 | make-toplevel-define | |
| 25809 | make-toplevel-set | |
| 25810 | make-toplevel-ref | |
| 25811 | make-module-set | |
| 25812 | make-module-ref | |
| 25813 | make-lexical-set | |
| 25814 | make-lexical-ref | |
| 25815 | make-primitive-ref | |
| 25816 | make-const | |
| 25817 | make-void) | |
| 25818 | ((top) | |
| 25819 | (top) | |
| 25820 | (top) | |
| 25821 | (top) | |
| 25822 | (top) | |
| 25823 | (top) | |
| 25824 | (top) | |
| 25825 | (top) | |
| 25826 | (top) | |
| 25827 | (top) | |
| 25828 | (top) | |
| 25829 | (top) | |
| 25830 | (top) | |
| 25831 | (top) | |
| 25832 | (top) | |
| 25833 | (top) | |
| 25834 | (top) | |
| 25835 | (top) | |
| 25836 | (top) | |
| 25837 | (top) | |
| 25838 | (top) | |
| 25839 | (top) | |
| 25840 | (top) | |
| 25841 | (top) | |
| 25842 | (top) | |
| 25843 | (top) | |
| 25844 | (top) | |
| 25845 | (top) | |
| 25846 | (top) | |
| 25847 | (top) | |
| 25848 | (top) | |
| 25849 | (top) | |
| 25850 | (top) | |
| 25851 | (top) | |
| 25852 | (top) | |
| 25853 | (top) | |
| 25854 | (top) | |
| 25855 | (top) | |
| 25856 | (top) | |
| 25857 | (top) | |
| 25858 | (top) | |
| 25859 | (top) | |
| 25860 | (top) | |
| 25861 | (top) | |
| 25862 | (top) | |
| 25863 | (top) | |
| 25864 | (top) | |
| 25865 | (top) | |
| 25866 | (top) | |
| 25867 | (top) | |
| 25868 | (top) | |
| 25869 | (top) | |
| 25870 | (top) | |
| 25871 | (top) | |
| 25872 | (top) | |
| 25873 | (top) | |
| 25874 | (top) | |
| 25875 | (top) | |
| 25876 | (top) | |
| 25877 | (top) | |
| 25878 | (top) | |
| 25879 | (top) | |
| 25880 | (top) | |
| 25881 | (top) | |
| 25882 | (top) | |
| 25883 | (top) | |
| 25884 | (top) | |
| 25885 | (top) | |
| 25886 | (top) | |
| 25887 | (top) | |
| 25888 | (top) | |
| 25889 | (top) | |
| 25890 | (top) | |
| 25891 | (top) | |
| 25892 | (top) | |
| 25893 | (top) | |
| 25894 | (top) | |
| 25895 | (top) | |
| 25896 | (top) | |
| 25897 | (top) | |
| 25898 | (top) | |
| 25899 | (top) | |
| 25900 | (top) | |
| 25901 | (top) | |
| 25902 | (top) | |
| 25903 | (top) | |
| 25904 | (top) | |
| 25905 | (top) | |
| 25906 | (top) | |
| 25907 | (top) | |
| 25908 | (top) | |
| 25909 | (top) | |
| 25910 | (top) | |
| 25911 | (top) | |
| 25912 | (top) | |
| 25913 | (top) | |
| 25914 | (top) | |
| 25915 | (top) | |
| 25916 | (top) | |
| 25917 | (top) | |
| 25918 | (top) | |
| 25919 | (top) | |
| 25920 | (top) | |
| 25921 | (top) | |
| 25922 | (top) | |
| 25923 | (top) | |
| 25924 | (top) | |
| 25925 | (top) | |
| 25926 | (top) | |
| 25927 | (top) | |
| 25928 | (top) | |
| 25929 | (top) | |
| 25930 | (top) | |
| 25931 | (top) | |
| 25932 | (top) | |
| 25933 | (top) | |
| 25934 | (top) | |
| 25935 | (top) | |
| 25936 | (top) | |
| 25937 | (top) | |
| 25938 | (top) | |
| 25939 | (top) | |
| 25940 | (top) | |
| 25941 | (top) | |
| 25942 | (top) | |
| 25943 | (top) | |
| 25944 | (top) | |
| 25945 | (top) | |
| 25946 | (top) | |
| 25947 | (top) | |
| 25948 | (top) | |
| 25949 | (top) | |
| 25950 | (top) | |
| 25951 | (top) | |
| 25952 | (top) | |
| 25953 | (top)) | |
| 25954 | ("i466" | |
| 25955 | "i464" | |
| 25956 | "i462" | |
| 25957 | "i460" | |
| 25958 | "i458" | |
| 25959 | "i456" | |
| 25960 | "i454" | |
| 25961 | "i452" | |
| 25962 | "i450" | |
| 25963 | "i448" | |
| 25964 | "i446" | |
| 25965 | "i444" | |
| 25966 | "i442" | |
| 25967 | "i440" | |
| 25968 | "i438" | |
| 25969 | "i436" | |
| 25970 | "i434" | |
| 25971 | "i432" | |
| 25972 | "i430" | |
| 25973 | "i428" | |
| 25974 | "i426" | |
| 25975 | "i424" | |
| 25976 | "i422" | |
| 25977 | "i420" | |
| 25978 | "i418" | |
| 25979 | "i416" | |
| 25980 | "i414" | |
| 25981 | "i412" | |
| 25982 | "i410" | |
| 25983 | "i408" | |
| 25984 | "i406" | |
| 25985 | "i404" | |
| 25986 | "i402" | |
| 25987 | "i400" | |
| 25988 | "i398" | |
| 25989 | "i397" | |
| 25990 | "i395" | |
| 25991 | "i392" | |
| 25992 | "i391" | |
| 25993 | "i390" | |
| 25994 | "i388" | |
| 25995 | "i387" | |
| 25996 | "i385" | |
| 25997 | "i383" | |
| 25998 | "i381" | |
| 25999 | "i379" | |
| 26000 | "i377" | |
| 26001 | "i375" | |
| 26002 | "i373" | |
| 26003 | "i371" | |
| 26004 | "i368" | |
| 26005 | "i366" | |
| 26006 | "i365" | |
| 26007 | "i363" | |
| 26008 | "i361" | |
| 26009 | "i359" | |
| 26010 | "i357" | |
| 26011 | "i356" | |
| 26012 | "i355" | |
| 26013 | "i354" | |
| 26014 | "i352" | |
| 26015 | "i351" | |
| 26016 | "i348" | |
| 26017 | "i346" | |
| 26018 | "i344" | |
| 26019 | "i342" | |
| 26020 | "i340" | |
| 26021 | "i338" | |
| 26022 | "i336" | |
| 26023 | "i335" | |
| 26024 | "i334" | |
| 26025 | "i332" | |
| 26026 | "i330" | |
| 26027 | "i329" | |
| 26028 | "i326" | |
| 26029 | "i325" | |
| 26030 | "i323" | |
| 26031 | "i321" | |
| 26032 | "i319" | |
| 26033 | "i317" | |
| 26034 | "i315" | |
| 26035 | "i313" | |
| 26036 | "i311" | |
| 26037 | "i309" | |
| 26038 | "i307" | |
| 26039 | "i304" | |
| 26040 | "i302" | |
| 26041 | "i300" | |
| 26042 | "i298" | |
| 26043 | "i296" | |
| 26044 | "i294" | |
| 26045 | "i292" | |
| 26046 | "i290" | |
| 26047 | "i288" | |
| 26048 | "i286" | |
| 26049 | "i284" | |
| 26050 | "i282" | |
| 26051 | "i280" | |
| 26052 | "i278" | |
| 26053 | "i276" | |
| 26054 | "i274" | |
| 26055 | "i272" | |
| 26056 | "i270" | |
| 26057 | "i268" | |
| 26058 | "i266" | |
| 26059 | "i264" | |
| 26060 | "i262" | |
| 26061 | "i260" | |
| 26062 | "i259" | |
| 26063 | "i256" | |
| 26064 | "i254" | |
| 26065 | "i253" | |
| 26066 | "i252" | |
| 26067 | "i251" | |
| 26068 | "i250" | |
| 26069 | "i248" | |
| 26070 | "i246" | |
| 26071 | "i244" | |
| 26072 | "i241" | |
| 26073 | "i239" | |
| 26074 | "i237" | |
| 26075 | "i235" | |
| 26076 | "i233" | |
| 26077 | "i231" | |
| 26078 | "i229" | |
| 26079 | "i227" | |
| 26080 | "i225" | |
| 26081 | "i223" | |
| 26082 | "i221" | |
| 26083 | "i219" | |
| 26084 | "i217" | |
| 26085 | "i215" | |
| 26086 | "i213" | |
| 26087 | "i211" | |
| 26088 | "i209" | |
| 26089 | "i207")) | |
| 26090 | #(ribcage | |
| 26091 | (define-structure | |
| 26092 | define-expansion-accessors | |
| 26093 | define-expansion-constructors) | |
| 26094 | ((top) | |
| 26095 | (top) | |
| 26096 | (top)) | |
| 26097 | ("i45" | |
| 26098 | "i44" | |
| 26099 | "i43"))) | |
| 26100 | (hygiene guile))) | |
| 26101 | 4) | |
| 26102 | (eq? (vector-ref | |
| 26103 | '#(syntax-object | |
| 26104 | ... | |
| df40b969 AW |
26105 | ((top) |
| 26106 | #(ribcage | |
| 014de9e2 AW |
26107 | () |
| 26108 | () | |
| 26109 | ()) | |
| df40b969 AW |
26110 | #(ribcage |
| 26111 | () | |
| 26112 | () | |
| 26113 | ()) | |
| 26114 | #(ribcage | |
| 26115 | #(x) | |
| 26116 | #((top)) | |
| 014de9e2 | 26117 | #("i2229")) |
| df40b969 | 26118 | #(ribcage |
| 014de9e2 AW |
26119 | (lambda-var-list |
| 26120 | gen-var | |
| 26121 | strip | |
| 26122 | chi-lambda-case | |
| 26123 | lambda*-formals | |
| 26124 | chi-simple-lambda | |
| 26125 | lambda-formals | |
| 26126 | ellipsis? | |
| 26127 | chi-void | |
| 26128 | eval-local-transformer | |
| 26129 | chi-local-syntax | |
| 26130 | chi-body | |
| 26131 | chi-macro | |
| 26132 | chi-application | |
| 26133 | chi-expr | |
| 26134 | chi | |
| 26135 | syntax-type | |
| 26136 | chi-when-list | |
| 26137 | chi-install-global | |
| 26138 | chi-top-sequence | |
| 26139 | chi-sequence | |
| 26140 | source-wrap | |
| 26141 | wrap | |
| 26142 | bound-id-member? | |
| 26143 | distinct-bound-ids? | |
| 26144 | valid-bound-ids? | |
| 26145 | bound-id=? | |
| 26146 | free-id=? | |
| 26147 | id-var-name | |
| 26148 | same-marks? | |
| 26149 | join-marks | |
| 26150 | join-wraps | |
| 26151 | smart-append | |
| 26152 | make-binding-wrap | |
| 26153 | extend-ribcage! | |
| 26154 | make-empty-ribcage | |
| 26155 | new-mark | |
| 26156 | anti-mark | |
| 26157 | the-anti-mark | |
| 26158 | top-marked? | |
| 26159 | top-wrap | |
| 26160 | empty-wrap | |
| 26161 | set-ribcage-labels! | |
| 26162 | set-ribcage-marks! | |
| 26163 | set-ribcage-symnames! | |
| 26164 | ribcage-labels | |
| 26165 | ribcage-marks | |
| 26166 | ribcage-symnames | |
| 26167 | ribcage? | |
| 26168 | make-ribcage | |
| 26169 | gen-labels | |
| 26170 | gen-label | |
| 26171 | make-rename | |
| 26172 | rename-marks | |
| 26173 | rename-new | |
| 26174 | rename-old | |
| 26175 | subst-rename? | |
| 26176 | wrap-subst | |
| 26177 | wrap-marks | |
| 26178 | make-wrap | |
| 26179 | id-sym-name&marks | |
| 26180 | id-sym-name | |
| 26181 | id? | |
| 26182 | nonsymbol-id? | |
| 26183 | global-extend | |
| 26184 | lookup | |
| 26185 | macros-only-env | |
| 26186 | extend-var-env | |
| 26187 | extend-env | |
| 26188 | null-env | |
| 26189 | binding-value | |
| 26190 | binding-type | |
| 26191 | make-binding | |
| 26192 | arg-check | |
| 26193 | source-annotation | |
| 26194 | no-source | |
| 26195 | set-syntax-object-module! | |
| 26196 | set-syntax-object-wrap! | |
| 26197 | set-syntax-object-expression! | |
| 26198 | syntax-object-module | |
| 26199 | syntax-object-wrap | |
| 26200 | syntax-object-expression | |
| 26201 | syntax-object? | |
| 26202 | make-syntax-object | |
| 26203 | build-lexical-var | |
| 26204 | build-letrec | |
| 26205 | build-named-let | |
| 26206 | build-let | |
| 26207 | build-sequence | |
| 26208 | build-data | |
| 26209 | build-primref | |
| 26210 | build-lambda-case | |
| 26211 | build-case-lambda | |
| 26212 | build-simple-lambda | |
| 26213 | build-global-definition | |
| 26214 | build-global-assignment | |
| 26215 | build-global-reference | |
| 26216 | analyze-variable | |
| 26217 | build-lexical-assignment | |
| 26218 | build-lexical-reference | |
| 26219 | build-dynlet | |
| 26220 | build-conditional | |
| 26221 | build-application | |
| 26222 | build-void | |
| 26223 | maybe-name-value! | |
| 26224 | decorate-source | |
| 26225 | get-global-definition-hook | |
| 26226 | put-global-definition-hook | |
| 26227 | gensym-hook | |
| 26228 | local-eval-hook | |
| 26229 | top-level-eval-hook | |
| 26230 | fx< | |
| 26231 | fx= | |
| 26232 | fx- | |
| 26233 | fx+ | |
| 26234 | set-lambda-meta! | |
| 26235 | lambda-meta | |
| 26236 | lambda? | |
| 26237 | make-dynlet | |
| 26238 | make-letrec | |
| 26239 | make-let | |
| 26240 | make-lambda-case | |
| 26241 | make-lambda | |
| 26242 | make-sequence | |
| 26243 | make-application | |
| 26244 | make-conditional | |
| 26245 | make-toplevel-define | |
| 26246 | make-toplevel-set | |
| 26247 | make-toplevel-ref | |
| 26248 | make-module-set | |
| 26249 | make-module-ref | |
| 26250 | make-lexical-set | |
| 26251 | make-lexical-ref | |
| 26252 | make-primitive-ref | |
| 26253 | make-const | |
| 26254 | make-void) | |
| 26255 | ((top) | |
| 26256 | (top) | |
| 26257 | (top) | |
| 26258 | (top) | |
| 26259 | (top) | |
| 26260 | (top) | |
| 26261 | (top) | |
| 26262 | (top) | |
| 26263 | (top) | |
| 26264 | (top) | |
| 26265 | (top) | |
| 26266 | (top) | |
| 26267 | (top) | |
| 26268 | (top) | |
| 26269 | (top) | |
| 26270 | (top) | |
| 26271 | (top) | |
| 26272 | (top) | |
| 26273 | (top) | |
| 26274 | (top) | |
| 26275 | (top) | |
| 26276 | (top) | |
| 26277 | (top) | |
| 26278 | (top) | |
| 26279 | (top) | |
| 26280 | (top) | |
| 26281 | (top) | |
| 26282 | (top) | |
| 26283 | (top) | |
| 26284 | (top) | |
| 26285 | (top) | |
| 26286 | (top) | |
| 26287 | (top) | |
| 26288 | (top) | |
| 26289 | (top) | |
| 26290 | (top) | |
| 26291 | (top) | |
| 26292 | (top) | |
| 26293 | (top) | |
| 26294 | (top) | |
| 26295 | (top) | |
| 26296 | (top) | |
| 26297 | (top) | |
| 26298 | (top) | |
| 26299 | (top) | |
| 26300 | (top) | |
| 26301 | (top) | |
| 26302 | (top) | |
| 26303 | (top) | |
| 26304 | (top) | |
| 26305 | (top) | |
| 26306 | (top) | |
| 26307 | (top) | |
| 26308 | (top) | |
| 26309 | (top) | |
| 26310 | (top) | |
| 26311 | (top) | |
| 26312 | (top) | |
| 26313 | (top) | |
| 26314 | (top) | |
| 26315 | (top) | |
| 26316 | (top) | |
| 26317 | (top) | |
| 26318 | (top) | |
| 26319 | (top) | |
| 26320 | (top) | |
| 26321 | (top) | |
| 26322 | (top) | |
| 26323 | (top) | |
| 26324 | (top) | |
| 26325 | (top) | |
| 26326 | (top) | |
| 26327 | (top) | |
| 26328 | (top) | |
| 26329 | (top) | |
| 26330 | (top) | |
| 26331 | (top) | |
| 26332 | (top) | |
| 26333 | (top) | |
| 26334 | (top) | |
| 26335 | (top) | |
| 26336 | (top) | |
| 26337 | (top) | |
| 26338 | (top) | |
| 26339 | (top) | |
| 26340 | (top) | |
| 26341 | (top) | |
| 26342 | (top) | |
| 26343 | (top) | |
| 26344 | (top) | |
| 26345 | (top) | |
| 26346 | (top) | |
| 26347 | (top) | |
| 26348 | (top) | |
| 26349 | (top) | |
| 26350 | (top) | |
| 26351 | (top) | |
| 26352 | (top) | |
| 26353 | (top) | |
| 26354 | (top) | |
| 26355 | (top) | |
| 26356 | (top) | |
| 26357 | (top) | |
| 26358 | (top) | |
| 26359 | (top) | |
| 26360 | (top) | |
| 26361 | (top) | |
| 26362 | (top) | |
| 26363 | (top) | |
| 26364 | (top) | |
| 26365 | (top) | |
| 26366 | (top) | |
| 26367 | (top) | |
| 26368 | (top) | |
| 26369 | (top) | |
| 26370 | (top) | |
| 26371 | (top) | |
| 26372 | (top) | |
| 26373 | (top) | |
| 26374 | (top) | |
| 26375 | (top) | |
| 26376 | (top) | |
| 26377 | (top) | |
| 26378 | (top) | |
| 26379 | (top) | |
| 26380 | (top) | |
| 26381 | (top) | |
| 26382 | (top) | |
| 26383 | (top) | |
| 26384 | (top) | |
| 26385 | (top) | |
| 26386 | (top) | |
| 26387 | (top) | |
| 26388 | (top) | |
| 26389 | (top) | |
| 26390 | (top)) | |
| 26391 | ("i466" | |
| 26392 | "i464" | |
| 26393 | "i462" | |
| 26394 | "i460" | |
| 26395 | "i458" | |
| 26396 | "i456" | |
| 26397 | "i454" | |
| 26398 | "i452" | |
| 26399 | "i450" | |
| 26400 | "i448" | |
| 26401 | "i446" | |
| 26402 | "i444" | |
| 26403 | "i442" | |
| 26404 | "i440" | |
| 26405 | "i438" | |
| 26406 | "i436" | |
| 26407 | "i434" | |
| 26408 | "i432" | |
| 26409 | "i430" | |
| 26410 | "i428" | |
| 26411 | "i426" | |
| 26412 | "i424" | |
| 26413 | "i422" | |
| 26414 | "i420" | |
| 26415 | "i418" | |
| 26416 | "i416" | |
| 26417 | "i414" | |
| 26418 | "i412" | |
| 26419 | "i410" | |
| 26420 | "i408" | |
| 26421 | "i406" | |
| 26422 | "i404" | |
| 26423 | "i402" | |
| 26424 | "i400" | |
| 26425 | "i398" | |
| 26426 | "i397" | |
| 26427 | "i395" | |
| 26428 | "i392" | |
| 26429 | "i391" | |
| 26430 | "i390" | |
| 26431 | "i388" | |
| 26432 | "i387" | |
| 26433 | "i385" | |
| 26434 | "i383" | |
| 26435 | "i381" | |
| 26436 | "i379" | |
| 26437 | "i377" | |
| 26438 | "i375" | |
| 26439 | "i373" | |
| 26440 | "i371" | |
| 26441 | "i368" | |
| 26442 | "i366" | |
| 26443 | "i365" | |
| 26444 | "i363" | |
| 26445 | "i361" | |
| 26446 | "i359" | |
| 26447 | "i357" | |
| 26448 | "i356" | |
| 26449 | "i355" | |
| 26450 | "i354" | |
| 26451 | "i352" | |
| 26452 | "i351" | |
| 26453 | "i348" | |
| 26454 | "i346" | |
| 26455 | "i344" | |
| 26456 | "i342" | |
| 26457 | "i340" | |
| 26458 | "i338" | |
| 26459 | "i336" | |
| 26460 | "i335" | |
| 26461 | "i334" | |
| 26462 | "i332" | |
| 26463 | "i330" | |
| 26464 | "i329" | |
| 26465 | "i326" | |
| 26466 | "i325" | |
| 26467 | "i323" | |
| 26468 | "i321" | |
| 26469 | "i319" | |
| 26470 | "i317" | |
| 26471 | "i315" | |
| 26472 | "i313" | |
| 26473 | "i311" | |
| 26474 | "i309" | |
| 26475 | "i307" | |
| 26476 | "i304" | |
| 26477 | "i302" | |
| 26478 | "i300" | |
| 26479 | "i298" | |
| 26480 | "i296" | |
| 26481 | "i294" | |
| 26482 | "i292" | |
| 26483 | "i290" | |
| 26484 | "i288" | |
| 26485 | "i286" | |
| 26486 | "i284" | |
| 26487 | "i282" | |
| 26488 | "i280" | |
| 26489 | "i278" | |
| 26490 | "i276" | |
| 26491 | "i274" | |
| 26492 | "i272" | |
| 26493 | "i270" | |
| 26494 | "i268" | |
| 26495 | "i266" | |
| 26496 | "i264" | |
| 26497 | "i262" | |
| 26498 | "i260" | |
| 26499 | "i259" | |
| 26500 | "i256" | |
| 26501 | "i254" | |
| 26502 | "i253" | |
| 26503 | "i252" | |
| 26504 | "i251" | |
| 26505 | "i250" | |
| 26506 | "i248" | |
| 26507 | "i246" | |
| 26508 | "i244" | |
| 26509 | "i241" | |
| 26510 | "i239" | |
| 26511 | "i237" | |
| 26512 | "i235" | |
| 26513 | "i233" | |
| 26514 | "i231" | |
| 26515 | "i229" | |
| 26516 | "i227" | |
| 26517 | "i225" | |
| 26518 | "i223" | |
| 26519 | "i221" | |
| 26520 | "i219" | |
| 26521 | "i217" | |
| 26522 | "i215" | |
| 26523 | "i213" | |
| 26524 | "i211" | |
| 26525 | "i209" | |
| 26526 | "i207")) | |
| df40b969 | 26527 | #(ribcage |
| 014de9e2 AW |
26528 | (define-structure |
| 26529 | define-expansion-accessors | |
| 26530 | define-expansion-constructors) | |
| 26531 | ((top) | |
| 26532 | (top) | |
| 26533 | (top)) | |
| 26534 | ("i45" | |
| 26535 | "i44" | |
| 26536 | "i43"))) | |
| df40b969 | 26537 | (hygiene guile)) |
| 014de9e2 AW |
26538 | 0) |
| 26539 | 'syntax-object) | |
| 26540 | #f) | |
| 26541 | (vector-ref | |
| 26542 | '#(syntax-object | |
| 26543 | ... | |
| 26544 | ((top) | |
| 26545 | #(ribcage () () ()) | |
| 26546 | #(ribcage () () ()) | |
| 26547 | #(ribcage | |
| 26548 | #(x) | |
| 26549 | #((top)) | |
| 26550 | #("i2229")) | |
| 26551 | #(ribcage | |
| 26552 | (lambda-var-list | |
| 26553 | gen-var | |
| 26554 | strip | |
| 26555 | chi-lambda-case | |
| 26556 | lambda*-formals | |
| 26557 | chi-simple-lambda | |
| 26558 | lambda-formals | |
| 26559 | ellipsis? | |
| 26560 | chi-void | |
| 26561 | eval-local-transformer | |
| 26562 | chi-local-syntax | |
| 26563 | chi-body | |
| 26564 | chi-macro | |
| 26565 | chi-application | |
| 26566 | chi-expr | |
| 26567 | chi | |
| 26568 | syntax-type | |
| 26569 | chi-when-list | |
| 26570 | chi-install-global | |
| 26571 | chi-top-sequence | |
| 26572 | chi-sequence | |
| 26573 | source-wrap | |
| 26574 | wrap | |
| 26575 | bound-id-member? | |
| 26576 | distinct-bound-ids? | |
| 26577 | valid-bound-ids? | |
| 26578 | bound-id=? | |
| 26579 | free-id=? | |
| 26580 | id-var-name | |
| 26581 | same-marks? | |
| 26582 | join-marks | |
| 26583 | join-wraps | |
| 26584 | smart-append | |
| 26585 | make-binding-wrap | |
| 26586 | extend-ribcage! | |
| 26587 | make-empty-ribcage | |
| 26588 | new-mark | |
| 26589 | anti-mark | |
| 26590 | the-anti-mark | |
| 26591 | top-marked? | |
| 26592 | top-wrap | |
| 26593 | empty-wrap | |
| 26594 | set-ribcage-labels! | |
| 26595 | set-ribcage-marks! | |
| 26596 | set-ribcage-symnames! | |
| 26597 | ribcage-labels | |
| 26598 | ribcage-marks | |
| 26599 | ribcage-symnames | |
| 26600 | ribcage? | |
| 26601 | make-ribcage | |
| 26602 | gen-labels | |
| 26603 | gen-label | |
| 26604 | make-rename | |
| 26605 | rename-marks | |
| 26606 | rename-new | |
| 26607 | rename-old | |
| 26608 | subst-rename? | |
| 26609 | wrap-subst | |
| 26610 | wrap-marks | |
| 26611 | make-wrap | |
| 26612 | id-sym-name&marks | |
| 26613 | id-sym-name | |
| 26614 | id? | |
| 26615 | nonsymbol-id? | |
| 26616 | global-extend | |
| 26617 | lookup | |
| 26618 | macros-only-env | |
| 26619 | extend-var-env | |
| 26620 | extend-env | |
| 26621 | null-env | |
| 26622 | binding-value | |
| 26623 | binding-type | |
| 26624 | make-binding | |
| 26625 | arg-check | |
| 26626 | source-annotation | |
| 26627 | no-source | |
| 26628 | set-syntax-object-module! | |
| 26629 | set-syntax-object-wrap! | |
| 26630 | set-syntax-object-expression! | |
| 26631 | syntax-object-module | |
| 26632 | syntax-object-wrap | |
| 26633 | syntax-object-expression | |
| 26634 | syntax-object? | |
| 26635 | make-syntax-object | |
| 26636 | build-lexical-var | |
| 26637 | build-letrec | |
| 26638 | build-named-let | |
| 26639 | build-let | |
| 26640 | build-sequence | |
| 26641 | build-data | |
| 26642 | build-primref | |
| 26643 | build-lambda-case | |
| 26644 | build-case-lambda | |
| 26645 | build-simple-lambda | |
| 26646 | build-global-definition | |
| 26647 | build-global-assignment | |
| 26648 | build-global-reference | |
| 26649 | analyze-variable | |
| 26650 | build-lexical-assignment | |
| 26651 | build-lexical-reference | |
| 26652 | build-dynlet | |
| 26653 | build-conditional | |
| 26654 | build-application | |
| 26655 | build-void | |
| 26656 | maybe-name-value! | |
| 26657 | decorate-source | |
| 26658 | get-global-definition-hook | |
| 26659 | put-global-definition-hook | |
| 26660 | gensym-hook | |
| 26661 | local-eval-hook | |
| 26662 | top-level-eval-hook | |
| 26663 | fx< | |
| 26664 | fx= | |
| 26665 | fx- | |
| 26666 | fx+ | |
| 26667 | set-lambda-meta! | |
| 26668 | lambda-meta | |
| 26669 | lambda? | |
| 26670 | make-dynlet | |
| 26671 | make-letrec | |
| 26672 | make-let | |
| 26673 | make-lambda-case | |
| 26674 | make-lambda | |
| 26675 | make-sequence | |
| 26676 | make-application | |
| 26677 | make-conditional | |
| 26678 | make-toplevel-define | |
| 26679 | make-toplevel-set | |
| 26680 | make-toplevel-ref | |
| 26681 | make-module-set | |
| 26682 | make-module-ref | |
| 26683 | make-lexical-set | |
| 26684 | make-lexical-ref | |
| 26685 | make-primitive-ref | |
| 26686 | make-const | |
| 26687 | make-void) | |
| 26688 | ((top) | |
| 26689 | (top) | |
| 26690 | (top) | |
| 26691 | (top) | |
| 26692 | (top) | |
| 26693 | (top) | |
| 26694 | (top) | |
| 26695 | (top) | |
| 26696 | (top) | |
| 26697 | (top) | |
| 26698 | (top) | |
| 26699 | (top) | |
| 26700 | (top) | |
| 26701 | (top) | |
| 26702 | (top) | |
| 26703 | (top) | |
| 26704 | (top) | |
| 26705 | (top) | |
| 26706 | (top) | |
| 26707 | (top) | |
| 26708 | (top) | |
| 26709 | (top) | |
| 26710 | (top) | |
| 26711 | (top) | |
| 26712 | (top) | |
| 26713 | (top) | |
| 26714 | (top) | |
| 26715 | (top) | |
| 26716 | (top) | |
| 26717 | (top) | |
| 26718 | (top) | |
| 26719 | (top) | |
| 26720 | (top) | |
| 26721 | (top) | |
| 26722 | (top) | |
| 26723 | (top) | |
| 26724 | (top) | |
| 26725 | (top) | |
| 26726 | (top) | |
| 26727 | (top) | |
| 26728 | (top) | |
| 26729 | (top) | |
| 26730 | (top) | |
| 26731 | (top) | |
| 26732 | (top) | |
| 26733 | (top) | |
| 26734 | (top) | |
| 26735 | (top) | |
| 26736 | (top) | |
| 26737 | (top) | |
| 26738 | (top) | |
| 26739 | (top) | |
| 26740 | (top) | |
| 26741 | (top) | |
| 26742 | (top) | |
| 26743 | (top) | |
| 26744 | (top) | |
| 26745 | (top) | |
| 26746 | (top) | |
| 26747 | (top) | |
| 26748 | (top) | |
| 26749 | (top) | |
| 26750 | (top) | |
| 26751 | (top) | |
| 26752 | (top) | |
| 26753 | (top) | |
| 26754 | (top) | |
| 26755 | (top) | |
| 26756 | (top) | |
| 26757 | (top) | |
| 26758 | (top) | |
| 26759 | (top) | |
| 26760 | (top) | |
| 26761 | (top) | |
| 26762 | (top) | |
| 26763 | (top) | |
| 26764 | (top) | |
| 26765 | (top) | |
| 26766 | (top) | |
| 26767 | (top) | |
| 26768 | (top) | |
| 26769 | (top) | |
| 26770 | (top) | |
| 26771 | (top) | |
| 26772 | (top) | |
| 26773 | (top) | |
| 26774 | (top) | |
| 26775 | (top) | |
| 26776 | (top) | |
| 26777 | (top) | |
| 26778 | (top) | |
| 26779 | (top) | |
| 26780 | (top) | |
| 26781 | (top) | |
| 26782 | (top) | |
| 26783 | (top) | |
| 26784 | (top) | |
| 26785 | (top) | |
| 26786 | (top) | |
| 26787 | (top) | |
| 26788 | (top) | |
| 26789 | (top) | |
| 26790 | (top) | |
| 26791 | (top) | |
| 26792 | (top) | |
| 26793 | (top) | |
| 26794 | (top) | |
| 26795 | (top) | |
| 26796 | (top) | |
| 26797 | (top) | |
| 26798 | (top) | |
| 26799 | (top) | |
| 26800 | (top) | |
| 26801 | (top) | |
| 26802 | (top) | |
| 26803 | (top) | |
| 26804 | (top) | |
| 26805 | (top) | |
| 26806 | (top) | |
| 26807 | (top) | |
| 26808 | (top) | |
| 26809 | (top) | |
| 26810 | (top) | |
| 26811 | (top) | |
| 26812 | (top) | |
| 26813 | (top) | |
| 26814 | (top) | |
| 26815 | (top) | |
| 26816 | (top) | |
| 26817 | (top) | |
| 26818 | (top) | |
| 26819 | (top) | |
| 26820 | (top) | |
| 26821 | (top) | |
| 26822 | (top) | |
| 26823 | (top)) | |
| 26824 | ("i466" | |
| 26825 | "i464" | |
| 26826 | "i462" | |
| 26827 | "i460" | |
| 26828 | "i458" | |
| 26829 | "i456" | |
| 26830 | "i454" | |
| 26831 | "i452" | |
| 26832 | "i450" | |
| 26833 | "i448" | |
| 26834 | "i446" | |
| 26835 | "i444" | |
| 26836 | "i442" | |
| 26837 | "i440" | |
| 26838 | "i438" | |
| 26839 | "i436" | |
| 26840 | "i434" | |
| 26841 | "i432" | |
| 26842 | "i430" | |
| 26843 | "i428" | |
| 26844 | "i426" | |
| 26845 | "i424" | |
| 26846 | "i422" | |
| 26847 | "i420" | |
| 26848 | "i418" | |
| 26849 | "i416" | |
| 26850 | "i414" | |
| 26851 | "i412" | |
| 26852 | "i410" | |
| 26853 | "i408" | |
| 26854 | "i406" | |
| 26855 | "i404" | |
| 26856 | "i402" | |
| 26857 | "i400" | |
| 26858 | "i398" | |
| 26859 | "i397" | |
| 26860 | "i395" | |
| 26861 | "i392" | |
| 26862 | "i391" | |
| 26863 | "i390" | |
| 26864 | "i388" | |
| 26865 | "i387" | |
| 26866 | "i385" | |
| 26867 | "i383" | |
| 26868 | "i381" | |
| 26869 | "i379" | |
| 26870 | "i377" | |
| 26871 | "i375" | |
| 26872 | "i373" | |
| 26873 | "i371" | |
| 26874 | "i368" | |
| 26875 | "i366" | |
| 26876 | "i365" | |
| 26877 | "i363" | |
| 26878 | "i361" | |
| 26879 | "i359" | |
| 26880 | "i357" | |
| 26881 | "i356" | |
| 26882 | "i355" | |
| 26883 | "i354" | |
| 26884 | "i352" | |
| 26885 | "i351" | |
| 26886 | "i348" | |
| 26887 | "i346" | |
| 26888 | "i344" | |
| 26889 | "i342" | |
| 26890 | "i340" | |
| 26891 | "i338" | |
| 26892 | "i336" | |
| 26893 | "i335" | |
| 26894 | "i334" | |
| 26895 | "i332" | |
| 26896 | "i330" | |
| 26897 | "i329" | |
| 26898 | "i326" | |
| 26899 | "i325" | |
| 26900 | "i323" | |
| 26901 | "i321" | |
| 26902 | "i319" | |
| 26903 | "i317" | |
| 26904 | "i315" | |
| 26905 | "i313" | |
| 26906 | "i311" | |
| 26907 | "i309" | |
| 26908 | "i307" | |
| 26909 | "i304" | |
| 26910 | "i302" | |
| 26911 | "i300" | |
| 26912 | "i298" | |
| 26913 | "i296" | |
| 26914 | "i294" | |
| 26915 | "i292" | |
| 26916 | "i290" | |
| 26917 | "i288" | |
| 26918 | "i286" | |
| 26919 | "i284" | |
| 26920 | "i282" | |
| 26921 | "i280" | |
| 26922 | "i278" | |
| 26923 | "i276" | |
| 26924 | "i274" | |
| 26925 | "i272" | |
| 26926 | "i270" | |
| 26927 | "i268" | |
| 26928 | "i266" | |
| 26929 | "i264" | |
| 26930 | "i262" | |
| 26931 | "i260" | |
| 26932 | "i259" | |
| 26933 | "i256" | |
| 26934 | "i254" | |
| 26935 | "i253" | |
| 26936 | "i252" | |
| 26937 | "i251" | |
| 26938 | "i250" | |
| 26939 | "i248" | |
| 26940 | "i246" | |
| 26941 | "i244" | |
| 26942 | "i241" | |
| 26943 | "i239" | |
| 26944 | "i237" | |
| 26945 | "i235" | |
| 26946 | "i233" | |
| 26947 | "i231" | |
| 26948 | "i229" | |
| 26949 | "i227" | |
| 26950 | "i225" | |
| 26951 | "i223" | |
| 26952 | "i221" | |
| 26953 | "i219" | |
| 26954 | "i217" | |
| 26955 | "i215" | |
| 26956 | "i213" | |
| 26957 | "i211" | |
| 26958 | "i209" | |
| 26959 | "i207")) | |
| 26960 | #(ribcage | |
| 26961 | (define-structure | |
| 26962 | define-expansion-accessors | |
| 26963 | define-expansion-constructors) | |
| 26964 | ((top) (top) (top)) | |
| 26965 | ("i45" "i44" "i43"))) | |
| 26966 | (hygiene guile)) | |
| 26967 | 1) | |
| 26968 | '#(syntax-object | |
| 26969 | ... | |
| 26970 | ((top) | |
| 26971 | #(ribcage () () ()) | |
| 26972 | #(ribcage () () ()) | |
| 26973 | #(ribcage | |
| 26974 | #(x) | |
| 26975 | #((top)) | |
| 26976 | #("i2229")) | |
| 26977 | #(ribcage | |
| 26978 | (lambda-var-list | |
| 26979 | gen-var | |
| 26980 | strip | |
| 26981 | chi-lambda-case | |
| 26982 | lambda*-formals | |
| 26983 | chi-simple-lambda | |
| 26984 | lambda-formals | |
| 26985 | ellipsis? | |
| 26986 | chi-void | |
| 26987 | eval-local-transformer | |
| 26988 | chi-local-syntax | |
| 26989 | chi-body | |
| 26990 | chi-macro | |
| 26991 | chi-application | |
| 26992 | chi-expr | |
| 26993 | chi | |
| 26994 | syntax-type | |
| 26995 | chi-when-list | |
| 26996 | chi-install-global | |
| 26997 | chi-top-sequence | |
| 26998 | chi-sequence | |
| 26999 | source-wrap | |
| 27000 | wrap | |
| 27001 | bound-id-member? | |
| 27002 | distinct-bound-ids? | |
| 27003 | valid-bound-ids? | |
| 27004 | bound-id=? | |
| 27005 | free-id=? | |
| 27006 | id-var-name | |
| 27007 | same-marks? | |
| 27008 | join-marks | |
| 27009 | join-wraps | |
| 27010 | smart-append | |
| 27011 | make-binding-wrap | |
| 27012 | extend-ribcage! | |
| 27013 | make-empty-ribcage | |
| 27014 | new-mark | |
| 27015 | anti-mark | |
| 27016 | the-anti-mark | |
| 27017 | top-marked? | |
| 27018 | top-wrap | |
| 27019 | empty-wrap | |
| 27020 | set-ribcage-labels! | |
| 27021 | set-ribcage-marks! | |
| 27022 | set-ribcage-symnames! | |
| 27023 | ribcage-labels | |
| 27024 | ribcage-marks | |
| 27025 | ribcage-symnames | |
| 27026 | ribcage? | |
| 27027 | make-ribcage | |
| 27028 | gen-labels | |
| 27029 | gen-label | |
| 27030 | make-rename | |
| 27031 | rename-marks | |
| 27032 | rename-new | |
| 27033 | rename-old | |
| 27034 | subst-rename? | |
| 27035 | wrap-subst | |
| 27036 | wrap-marks | |
| 27037 | make-wrap | |
| 27038 | id-sym-name&marks | |
| 27039 | id-sym-name | |
| 27040 | id? | |
| 27041 | nonsymbol-id? | |
| 27042 | global-extend | |
| 27043 | lookup | |
| 27044 | macros-only-env | |
| 27045 | extend-var-env | |
| 27046 | extend-env | |
| 27047 | null-env | |
| 27048 | binding-value | |
| 27049 | binding-type | |
| 27050 | make-binding | |
| 27051 | arg-check | |
| 27052 | source-annotation | |
| 27053 | no-source | |
| 27054 | set-syntax-object-module! | |
| 27055 | set-syntax-object-wrap! | |
| 27056 | set-syntax-object-expression! | |
| 27057 | syntax-object-module | |
| 27058 | syntax-object-wrap | |
| 27059 | syntax-object-expression | |
| 27060 | syntax-object? | |
| 27061 | make-syntax-object | |
| 27062 | build-lexical-var | |
| 27063 | build-letrec | |
| 27064 | build-named-let | |
| 27065 | build-let | |
| 27066 | build-sequence | |
| 27067 | build-data | |
| 27068 | build-primref | |
| 27069 | build-lambda-case | |
| 27070 | build-case-lambda | |
| 27071 | build-simple-lambda | |
| 27072 | build-global-definition | |
| 27073 | build-global-assignment | |
| 27074 | build-global-reference | |
| 27075 | analyze-variable | |
| 27076 | build-lexical-assignment | |
| 27077 | build-lexical-reference | |
| 27078 | build-dynlet | |
| 27079 | build-conditional | |
| 27080 | build-application | |
| 27081 | build-void | |
| 27082 | maybe-name-value! | |
| 27083 | decorate-source | |
| 27084 | get-global-definition-hook | |
| 27085 | put-global-definition-hook | |
| 27086 | gensym-hook | |
| 27087 | local-eval-hook | |
| 27088 | top-level-eval-hook | |
| 27089 | fx< | |
| 27090 | fx= | |
| 27091 | fx- | |
| 27092 | fx+ | |
| 27093 | set-lambda-meta! | |
| 27094 | lambda-meta | |
| 27095 | lambda? | |
| 27096 | make-dynlet | |
| 27097 | make-letrec | |
| 27098 | make-let | |
| 27099 | make-lambda-case | |
| 27100 | make-lambda | |
| 27101 | make-sequence | |
| 27102 | make-application | |
| 27103 | make-conditional | |
| 27104 | make-toplevel-define | |
| 27105 | make-toplevel-set | |
| 27106 | make-toplevel-ref | |
| 27107 | make-module-set | |
| 27108 | make-module-ref | |
| 27109 | make-lexical-set | |
| 27110 | make-lexical-ref | |
| 27111 | make-primitive-ref | |
| 27112 | make-const | |
| 27113 | make-void) | |
| 27114 | ((top) | |
| 27115 | (top) | |
| 27116 | (top) | |
| 27117 | (top) | |
| 27118 | (top) | |
| 27119 | (top) | |
| 27120 | (top) | |
| 27121 | (top) | |
| 27122 | (top) | |
| 27123 | (top) | |
| 27124 | (top) | |
| 27125 | (top) | |
| 27126 | (top) | |
| 27127 | (top) | |
| 27128 | (top) | |
| 27129 | (top) | |
| 27130 | (top) | |
| 27131 | (top) | |
| 27132 | (top) | |
| 27133 | (top) | |
| 27134 | (top) | |
| 27135 | (top) | |
| 27136 | (top) | |
| 27137 | (top) | |
| 27138 | (top) | |
| 27139 | (top) | |
| 27140 | (top) | |
| 27141 | (top) | |
| 27142 | (top) | |
| 27143 | (top) | |
| 27144 | (top) | |
| 27145 | (top) | |
| 27146 | (top) | |
| 27147 | (top) | |
| 27148 | (top) | |
| 27149 | (top) | |
| 27150 | (top) | |
| 27151 | (top) | |
| 27152 | (top) | |
| 27153 | (top) | |
| 27154 | (top) | |
| 27155 | (top) | |
| 27156 | (top) | |
| 27157 | (top) | |
| 27158 | (top) | |
| 27159 | (top) | |
| 27160 | (top) | |
| 27161 | (top) | |
| 27162 | (top) | |
| 27163 | (top) | |
| 27164 | (top) | |
| 27165 | (top) | |
| 27166 | (top) | |
| 27167 | (top) | |
| 27168 | (top) | |
| 27169 | (top) | |
| 27170 | (top) | |
| 27171 | (top) | |
| 27172 | (top) | |
| 27173 | (top) | |
| 27174 | (top) | |
| 27175 | (top) | |
| 27176 | (top) | |
| 27177 | (top) | |
| 27178 | (top) | |
| 27179 | (top) | |
| 27180 | (top) | |
| 27181 | (top) | |
| 27182 | (top) | |
| 27183 | (top) | |
| 27184 | (top) | |
| 27185 | (top) | |
| 27186 | (top) | |
| 27187 | (top) | |
| 27188 | (top) | |
| 27189 | (top) | |
| 27190 | (top) | |
| 27191 | (top) | |
| 27192 | (top) | |
| 27193 | (top) | |
| 27194 | (top) | |
| 27195 | (top) | |
| 27196 | (top) | |
| 27197 | (top) | |
| 27198 | (top) | |
| 27199 | (top) | |
| 27200 | (top) | |
| 27201 | (top) | |
| 27202 | (top) | |
| 27203 | (top) | |
| 27204 | (top) | |
| 27205 | (top) | |
| 27206 | (top) | |
| 27207 | (top) | |
| 27208 | (top) | |
| 27209 | (top) | |
| 27210 | (top) | |
| 27211 | (top) | |
| 27212 | (top) | |
| 27213 | (top) | |
| 27214 | (top) | |
| 27215 | (top) | |
| 27216 | (top) | |
| 27217 | (top) | |
| 27218 | (top) | |
| 27219 | (top) | |
| 27220 | (top) | |
| 27221 | (top) | |
| 27222 | (top) | |
| 27223 | (top) | |
| 27224 | (top) | |
| 27225 | (top) | |
| 27226 | (top) | |
| 27227 | (top) | |
| 27228 | (top) | |
| 27229 | (top) | |
| 27230 | (top) | |
| 27231 | (top) | |
| 27232 | (top) | |
| 27233 | (top) | |
| 27234 | (top) | |
| 27235 | (top) | |
| 27236 | (top) | |
| 27237 | (top) | |
| 27238 | (top) | |
| 27239 | (top) | |
| 27240 | (top) | |
| 27241 | (top) | |
| 27242 | (top) | |
| 27243 | (top) | |
| 27244 | (top) | |
| 27245 | (top) | |
| 27246 | (top) | |
| 27247 | (top) | |
| 27248 | (top) | |
| 27249 | (top)) | |
| 27250 | ("i466" | |
| 27251 | "i464" | |
| 27252 | "i462" | |
| 27253 | "i460" | |
| 27254 | "i458" | |
| 27255 | "i456" | |
| 27256 | "i454" | |
| 27257 | "i452" | |
| 27258 | "i450" | |
| 27259 | "i448" | |
| 27260 | "i446" | |
| 27261 | "i444" | |
| 27262 | "i442" | |
| 27263 | "i440" | |
| 27264 | "i438" | |
| 27265 | "i436" | |
| 27266 | "i434" | |
| 27267 | "i432" | |
| 27268 | "i430" | |
| 27269 | "i428" | |
| 27270 | "i426" | |
| 27271 | "i424" | |
| 27272 | "i422" | |
| 27273 | "i420" | |
| 27274 | "i418" | |
| 27275 | "i416" | |
| 27276 | "i414" | |
| 27277 | "i412" | |
| 27278 | "i410" | |
| 27279 | "i408" | |
| 27280 | "i406" | |
| 27281 | "i404" | |
| 27282 | "i402" | |
| 27283 | "i400" | |
| 27284 | "i398" | |
| 27285 | "i397" | |
| 27286 | "i395" | |
| 27287 | "i392" | |
| 27288 | "i391" | |
| 27289 | "i390" | |
| 27290 | "i388" | |
| 27291 | "i387" | |
| 27292 | "i385" | |
| 27293 | "i383" | |
| 27294 | "i381" | |
| 27295 | "i379" | |
| 27296 | "i377" | |
| 27297 | "i375" | |
| 27298 | "i373" | |
| 27299 | "i371" | |
| 27300 | "i368" | |
| 27301 | "i366" | |
| 27302 | "i365" | |
| 27303 | "i363" | |
| 27304 | "i361" | |
| 27305 | "i359" | |
| 27306 | "i357" | |
| 27307 | "i356" | |
| 27308 | "i355" | |
| 27309 | "i354" | |
| 27310 | "i352" | |
| 27311 | "i351" | |
| 27312 | "i348" | |
| 27313 | "i346" | |
| 27314 | "i344" | |
| 27315 | "i342" | |
| 27316 | "i340" | |
| 27317 | "i338" | |
| 27318 | "i336" | |
| 27319 | "i335" | |
| 27320 | "i334" | |
| 27321 | "i332" | |
| 27322 | "i330" | |
| 27323 | "i329" | |
| 27324 | "i326" | |
| 27325 | "i325" | |
| 27326 | "i323" | |
| 27327 | "i321" | |
| 27328 | "i319" | |
| 27329 | "i317" | |
| 27330 | "i315" | |
| 27331 | "i313" | |
| 27332 | "i311" | |
| 27333 | "i309" | |
| 27334 | "i307" | |
| 27335 | "i304" | |
| 27336 | "i302" | |
| 27337 | "i300" | |
| 27338 | "i298" | |
| 27339 | "i296" | |
| 27340 | "i294" | |
| 27341 | "i292" | |
| 27342 | "i290" | |
| 27343 | "i288" | |
| 27344 | "i286" | |
| 27345 | "i284" | |
| 27346 | "i282" | |
| 27347 | "i280" | |
| 27348 | "i278" | |
| 27349 | "i276" | |
| 27350 | "i274" | |
| 27351 | "i272" | |
| 27352 | "i270" | |
| 27353 | "i268" | |
| 27354 | "i266" | |
| 27355 | "i264" | |
| 27356 | "i262" | |
| 27357 | "i260" | |
| 27358 | "i259" | |
| 27359 | "i256" | |
| 27360 | "i254" | |
| 27361 | "i253" | |
| 27362 | "i252" | |
| 27363 | "i251" | |
| 27364 | "i250" | |
| 27365 | "i248" | |
| 27366 | "i246" | |
| 27367 | "i244" | |
| 27368 | "i241" | |
| 27369 | "i239" | |
| 27370 | "i237" | |
| 27371 | "i235" | |
| 27372 | "i233" | |
| 27373 | "i231" | |
| 27374 | "i229" | |
| 27375 | "i227" | |
| 27376 | "i225" | |
| 27377 | "i223" | |
| 27378 | "i221" | |
| 27379 | "i219" | |
| 27380 | "i217" | |
| 27381 | "i215" | |
| 27382 | "i213" | |
| 27383 | "i211" | |
| 27384 | "i209" | |
| 27385 | "i207")) | |
| 27386 | #(ribcage | |
| 27387 | (define-structure | |
| 27388 | define-expansion-accessors | |
| 27389 | define-expansion-constructors) | |
| 27390 | ((top) (top) (top)) | |
| 27391 | ("i45" "i44" "i43"))) | |
| 27392 | (hygiene guile)))) | |
| 27393 | (eq? (#{id-var-name 411}# | |
| 27394 | #{x 3957}# | |
| 27395 | '(())) | |
| 27396 | (#{id-var-name 411}# | |
| 27397 | '#(syntax-object | |
| 27398 | ... | |
| 27399 | ((top) | |
| 27400 | #(ribcage () () ()) | |
| 27401 | #(ribcage () () ()) | |
| 27402 | #(ribcage | |
| 27403 | #(x) | |
| 27404 | #((top)) | |
| 27405 | #("i2229")) | |
| 27406 | #(ribcage | |
| 27407 | (lambda-var-list | |
| 27408 | gen-var | |
| 27409 | strip | |
| 27410 | chi-lambda-case | |
| 27411 | lambda*-formals | |
| 27412 | chi-simple-lambda | |
| 27413 | lambda-formals | |
| 27414 | ellipsis? | |
| 27415 | chi-void | |
| 27416 | eval-local-transformer | |
| 27417 | chi-local-syntax | |
| 27418 | chi-body | |
| 27419 | chi-macro | |
| 27420 | chi-application | |
| 27421 | chi-expr | |
| 27422 | chi | |
| 27423 | syntax-type | |
| 27424 | chi-when-list | |
| 27425 | chi-install-global | |
| 27426 | chi-top-sequence | |
| 27427 | chi-sequence | |
| 27428 | source-wrap | |
| 27429 | wrap | |
| 27430 | bound-id-member? | |
| 27431 | distinct-bound-ids? | |
| 27432 | valid-bound-ids? | |
| 27433 | bound-id=? | |
| 27434 | free-id=? | |
| 27435 | id-var-name | |
| 27436 | same-marks? | |
| 27437 | join-marks | |
| 27438 | join-wraps | |
| 27439 | smart-append | |
| 27440 | make-binding-wrap | |
| 27441 | extend-ribcage! | |
| 27442 | make-empty-ribcage | |
| 27443 | new-mark | |
| 27444 | anti-mark | |
| 27445 | the-anti-mark | |
| 27446 | top-marked? | |
| 27447 | top-wrap | |
| 27448 | empty-wrap | |
| 27449 | set-ribcage-labels! | |
| 27450 | set-ribcage-marks! | |
| 27451 | set-ribcage-symnames! | |
| 27452 | ribcage-labels | |
| 27453 | ribcage-marks | |
| 27454 | ribcage-symnames | |
| 27455 | ribcage? | |
| 27456 | make-ribcage | |
| 27457 | gen-labels | |
| 27458 | gen-label | |
| 27459 | make-rename | |
| 27460 | rename-marks | |
| 27461 | rename-new | |
| 27462 | rename-old | |
| 27463 | subst-rename? | |
| 27464 | wrap-subst | |
| 27465 | wrap-marks | |
| 27466 | make-wrap | |
| 27467 | id-sym-name&marks | |
| 27468 | id-sym-name | |
| 27469 | id? | |
| 27470 | nonsymbol-id? | |
| 27471 | global-extend | |
| 27472 | lookup | |
| 27473 | macros-only-env | |
| 27474 | extend-var-env | |
| 27475 | extend-env | |
| 27476 | null-env | |
| 27477 | binding-value | |
| 27478 | binding-type | |
| 27479 | make-binding | |
| 27480 | arg-check | |
| 27481 | source-annotation | |
| 27482 | no-source | |
| 27483 | set-syntax-object-module! | |
| 27484 | set-syntax-object-wrap! | |
| 27485 | set-syntax-object-expression! | |
| 27486 | syntax-object-module | |
| 27487 | syntax-object-wrap | |
| 27488 | syntax-object-expression | |
| 27489 | syntax-object? | |
| 27490 | make-syntax-object | |
| 27491 | build-lexical-var | |
| 27492 | build-letrec | |
| 27493 | build-named-let | |
| 27494 | build-let | |
| 27495 | build-sequence | |
| 27496 | build-data | |
| 27497 | build-primref | |
| 27498 | build-lambda-case | |
| 27499 | build-case-lambda | |
| 27500 | build-simple-lambda | |
| 27501 | build-global-definition | |
| 27502 | build-global-assignment | |
| 27503 | build-global-reference | |
| 27504 | analyze-variable | |
| 27505 | build-lexical-assignment | |
| 27506 | build-lexical-reference | |
| 27507 | build-dynlet | |
| 27508 | build-conditional | |
| 27509 | build-application | |
| 27510 | build-void | |
| 27511 | maybe-name-value! | |
| 27512 | decorate-source | |
| 27513 | get-global-definition-hook | |
| 27514 | put-global-definition-hook | |
| 27515 | gensym-hook | |
| 27516 | local-eval-hook | |
| 27517 | top-level-eval-hook | |
| 27518 | fx< | |
| 27519 | fx= | |
| 27520 | fx- | |
| 27521 | fx+ | |
| 27522 | set-lambda-meta! | |
| 27523 | lambda-meta | |
| 27524 | lambda? | |
| 27525 | make-dynlet | |
| 27526 | make-letrec | |
| 27527 | make-let | |
| 27528 | make-lambda-case | |
| 27529 | make-lambda | |
| 27530 | make-sequence | |
| 27531 | make-application | |
| 27532 | make-conditional | |
| 27533 | make-toplevel-define | |
| 27534 | make-toplevel-set | |
| 27535 | make-toplevel-ref | |
| 27536 | make-module-set | |
| 27537 | make-module-ref | |
| 27538 | make-lexical-set | |
| 27539 | make-lexical-ref | |
| 27540 | make-primitive-ref | |
| 27541 | make-const | |
| 27542 | make-void) | |
| 27543 | ((top) | |
| 27544 | (top) | |
| 27545 | (top) | |
| 27546 | (top) | |
| 27547 | (top) | |
| 27548 | (top) | |
| 27549 | (top) | |
| 27550 | (top) | |
| 27551 | (top) | |
| 27552 | (top) | |
| 27553 | (top) | |
| 27554 | (top) | |
| 27555 | (top) | |
| 27556 | (top) | |
| 27557 | (top) | |
| 27558 | (top) | |
| 27559 | (top) | |
| 27560 | (top) | |
| 27561 | (top) | |
| 27562 | (top) | |
| 27563 | (top) | |
| 27564 | (top) | |
| 27565 | (top) | |
| 27566 | (top) | |
| 27567 | (top) | |
| 27568 | (top) | |
| 27569 | (top) | |
| 27570 | (top) | |
| 27571 | (top) | |
| 27572 | (top) | |
| 27573 | (top) | |
| 27574 | (top) | |
| 27575 | (top) | |
| 27576 | (top) | |
| 27577 | (top) | |
| 27578 | (top) | |
| 27579 | (top) | |
| 27580 | (top) | |
| 27581 | (top) | |
| 27582 | (top) | |
| 27583 | (top) | |
| 27584 | (top) | |
| 27585 | (top) | |
| 27586 | (top) | |
| 27587 | (top) | |
| 27588 | (top) | |
| 27589 | (top) | |
| 27590 | (top) | |
| 27591 | (top) | |
| 27592 | (top) | |
| 27593 | (top) | |
| 27594 | (top) | |
| 27595 | (top) | |
| 27596 | (top) | |
| 27597 | (top) | |
| 27598 | (top) | |
| 27599 | (top) | |
| 27600 | (top) | |
| 27601 | (top) | |
| 27602 | (top) | |
| 27603 | (top) | |
| 27604 | (top) | |
| 27605 | (top) | |
| 27606 | (top) | |
| 27607 | (top) | |
| 27608 | (top) | |
| 27609 | (top) | |
| 27610 | (top) | |
| 27611 | (top) | |
| 27612 | (top) | |
| 27613 | (top) | |
| 27614 | (top) | |
| 27615 | (top) | |
| 27616 | (top) | |
| 27617 | (top) | |
| 27618 | (top) | |
| 27619 | (top) | |
| 27620 | (top) | |
| 27621 | (top) | |
| 27622 | (top) | |
| 27623 | (top) | |
| 27624 | (top) | |
| 27625 | (top) | |
| 27626 | (top) | |
| 27627 | (top) | |
| 27628 | (top) | |
| 27629 | (top) | |
| 27630 | (top) | |
| 27631 | (top) | |
| 27632 | (top) | |
| 27633 | (top) | |
| 27634 | (top) | |
| df40b969 AW |
27635 | (top) |
| 27636 | (top) | |
| 27637 | (top) | |
| 014de9e2 AW |
27638 | (top) |
| 27639 | (top) | |
| 27640 | (top) | |
| 27641 | (top) | |
| 27642 | (top) | |
| 27643 | (top) | |
| 27644 | (top) | |
| 27645 | (top) | |
| 27646 | (top) | |
| 27647 | (top) | |
| 27648 | (top) | |
| 27649 | (top) | |
| 27650 | (top) | |
| 27651 | (top) | |
| 27652 | (top) | |
| 27653 | (top) | |
| 27654 | (top) | |
| 27655 | (top) | |
| 27656 | (top) | |
| 27657 | (top) | |
| 27658 | (top) | |
| 27659 | (top) | |
| 27660 | (top) | |
| 27661 | (top) | |
| 27662 | (top) | |
| 27663 | (top) | |
| 27664 | (top) | |
| 27665 | (top) | |
| 27666 | (top) | |
| 27667 | (top) | |
| 27668 | (top) | |
| 27669 | (top) | |
| 27670 | (top) | |
| 27671 | (top) | |
| 27672 | (top) | |
| 27673 | (top) | |
| 27674 | (top) | |
| 27675 | (top) | |
| 27676 | (top) | |
| 27677 | (top) | |
| 27678 | (top)) | |
| 27679 | ("i466" | |
| 27680 | "i464" | |
| 27681 | "i462" | |
| 27682 | "i460" | |
| 27683 | "i458" | |
| 27684 | "i456" | |
| 27685 | "i454" | |
| 27686 | "i452" | |
| 27687 | "i450" | |
| 27688 | "i448" | |
| 27689 | "i446" | |
| 27690 | "i444" | |
| 27691 | "i442" | |
| 27692 | "i440" | |
| 27693 | "i438" | |
| 27694 | "i436" | |
| 27695 | "i434" | |
| 27696 | "i432" | |
| 27697 | "i430" | |
| 27698 | "i428" | |
| 27699 | "i426" | |
| 27700 | "i424" | |
| 27701 | "i422" | |
| 27702 | "i420" | |
| 27703 | "i418" | |
| 27704 | "i416" | |
| 27705 | "i414" | |
| 27706 | "i412" | |
| 27707 | "i410" | |
| 27708 | "i408" | |
| 27709 | "i406" | |
| 27710 | "i404" | |
| 27711 | "i402" | |
| 27712 | "i400" | |
| 27713 | "i398" | |
| 27714 | "i397" | |
| 27715 | "i395" | |
| 27716 | "i392" | |
| 27717 | "i391" | |
| 27718 | "i390" | |
| 27719 | "i388" | |
| 27720 | "i387" | |
| 27721 | "i385" | |
| 27722 | "i383" | |
| 27723 | "i381" | |
| 27724 | "i379" | |
| 27725 | "i377" | |
| 27726 | "i375" | |
| 27727 | "i373" | |
| 27728 | "i371" | |
| 27729 | "i368" | |
| 27730 | "i366" | |
| 27731 | "i365" | |
| 27732 | "i363" | |
| 27733 | "i361" | |
| 27734 | "i359" | |
| 27735 | "i357" | |
| 27736 | "i356" | |
| 27737 | "i355" | |
| 27738 | "i354" | |
| 27739 | "i352" | |
| 27740 | "i351" | |
| 27741 | "i348" | |
| 27742 | "i346" | |
| 27743 | "i344" | |
| 27744 | "i342" | |
| 27745 | "i340" | |
| 27746 | "i338" | |
| 27747 | "i336" | |
| 27748 | "i335" | |
| 27749 | "i334" | |
| 27750 | "i332" | |
| 27751 | "i330" | |
| 27752 | "i329" | |
| 27753 | "i326" | |
| 27754 | "i325" | |
| 27755 | "i323" | |
| 27756 | "i321" | |
| 27757 | "i319" | |
| 27758 | "i317" | |
| 27759 | "i315" | |
| 27760 | "i313" | |
| 27761 | "i311" | |
| 27762 | "i309" | |
| 27763 | "i307" | |
| 27764 | "i304" | |
| 27765 | "i302" | |
| 27766 | "i300" | |
| 27767 | "i298" | |
| 27768 | "i296" | |
| 27769 | "i294" | |
| 27770 | "i292" | |
| 27771 | "i290" | |
| 27772 | "i288" | |
| 27773 | "i286" | |
| 27774 | "i284" | |
| 27775 | "i282" | |
| 27776 | "i280" | |
| 27777 | "i278" | |
| 27778 | "i276" | |
| 27779 | "i274" | |
| 27780 | "i272" | |
| 27781 | "i270" | |
| 27782 | "i268" | |
| 27783 | "i266" | |
| 27784 | "i264" | |
| 27785 | "i262" | |
| 27786 | "i260" | |
| 27787 | "i259" | |
| 27788 | "i256" | |
| 27789 | "i254" | |
| 27790 | "i253" | |
| 27791 | "i252" | |
| 27792 | "i251" | |
| 27793 | "i250" | |
| 27794 | "i248" | |
| 27795 | "i246" | |
| 27796 | "i244" | |
| 27797 | "i241" | |
| 27798 | "i239" | |
| 27799 | "i237" | |
| 27800 | "i235" | |
| 27801 | "i233" | |
| 27802 | "i231" | |
| 27803 | "i229" | |
| 27804 | "i227" | |
| 27805 | "i225" | |
| 27806 | "i223" | |
| 27807 | "i221" | |
| 27808 | "i219" | |
| 27809 | "i217" | |
| 27810 | "i215" | |
| 27811 | "i213" | |
| 27812 | "i211" | |
| 27813 | "i209" | |
| 27814 | "i207")) | |
| 27815 | #(ribcage | |
| 27816 | (define-structure | |
| 27817 | define-expansion-accessors | |
| 27818 | define-expansion-constructors) | |
| 27819 | ((top) (top) (top)) | |
| 27820 | ("i45" "i44" "i43"))) | |
| 27821 | (hygiene guile)) | |
| 27822 | '(()))) | |
| 27823 | #f) | |
| 27824 | #f)) | |
| 27825 | #f)) | |
| 27826 | #{key 3955}#) | |
| 27827 | (let ((#{x 3963}# | |
| 27828 | (gensym | |
| 27829 | (string-append (symbol->string 'tmp) " ")))) | |
| 27830 | (#{build-application 271}# | |
| 27831 | #{s 3940}# | |
| 27832 | (let ((#{req 9847}# (list 'tmp)) | |
| 27833 | (#{vars 9849}# (list #{x 3963}#)) | |
| 27834 | (#{exp 9851}# | |
| 27835 | (#{gen-syntax-case 3710}# | |
| 27836 | (make-struct/no-tail | |
| 27837 | (vector-ref %expanded-vtables 3) | |
| 27838 | #f | |
| 27839 | 'tmp | |
| 27840 | #{x 3963}#) | |
| 27841 | #{key 3955}# | |
| 27842 | #{m 3956}# | |
| 27843 | #{r 3938}# | |
| 27844 | #{mod 3941}#))) | |
| 27845 | (let ((#{body 9868}# | |
| 27846 | (make-struct/no-tail | |
| 27847 | (vector-ref %expanded-vtables 14) | |
| 27848 | #f | |
| 27849 | #{req 9847}# | |
| 27850 | #f | |
| 27851 | #f | |
| 27852 | #f | |
| 27853 | '() | |
| 27854 | #{vars 9849}# | |
| 27855 | #{exp 9851}# | |
| 27856 | #f))) | |
| 27857 | (make-struct/no-tail | |
| 27858 | (vector-ref %expanded-vtables 13) | |
| 27859 | #f | |
| 27860 | '() | |
| 27861 | #{body 9868}#))) | |
| 27862 | (list (#{chi 437}# | |
| 27863 | #{val 3954}# | |
| 27864 | #{r 3938}# | |
| 27865 | '(()) | |
| 27866 | #{mod 3941}#)))) | |
| 27867 | (syntax-violation | |
| 27868 | 'syntax-case | |
| 27869 | "invalid literals list" | |
| 27870 | #{e 3948}#))) | |
| 27871 | #{tmp 3950}#) | |
| 27872 | (syntax-violation | |
| 27873 | #f | |
| 27874 | "source expression failed to match any pattern" | |
| 27875 | #{e 3948}#))))))) | |
| 27876 | (set! macroexpand | |
| 27877 | (lambda* | |
| 27878 | (#{x 3969}# | |
| 27879 | #:optional | |
| 27880 | (#{m 3971}# 'e) | |
| 27881 | (#{esew 3973}# '(eval))) | |
| 27882 | (#{chi-top-sequence 429}# | |
| 27883 | (list #{x 3969}#) | |
| 27884 | '() | |
| 27885 | '((top)) | |
| 27886 | #f | |
| 27887 | #{m 3971}# | |
| 27888 | #{esew 3973}# | |
| 27889 | (cons 'hygiene (module-name (current-module)))))) | |
| 27890 | (set! identifier? | |
| 27891 | (lambda (#{x 3977}#) | |
| 27892 | (if (if (vector? #{x 3977}#) | |
| 27893 | (if (= (vector-length #{x 3977}#) 4) | |
| 27894 | (eq? (vector-ref #{x 3977}# 0) 'syntax-object) | |
| 27895 | #f) | |
| 27896 | #f) | |
| 27897 | (symbol? (vector-ref #{x 3977}# 1)) | |
| 27898 | #f))) | |
| 27899 | (set! datum->syntax | |
| 27900 | (lambda (#{id 3979}# #{datum 3980}#) | |
| 27901 | (let ((#{wrap 9942}# (vector-ref #{id 3979}# 2)) | |
| 27902 | (#{module 9943}# (vector-ref #{id 3979}# 3))) | |
| 27903 | (vector | |
| 27904 | 'syntax-object | |
| 27905 | #{datum 3980}# | |
| 27906 | #{wrap 9942}# | |
| 27907 | #{module 9943}#)))) | |
| 27908 | (set! syntax->datum | |
| 27909 | (lambda (#{x 3983}#) | |
| 27910 | (#{strip 463}# #{x 3983}# '(())))) | |
| 27911 | (set! syntax-source | |
| 27912 | (lambda (#{x 3986}#) | |
| 27913 | (#{source-annotation 327}# #{x 3986}#))) | |
| 27914 | (set! generate-temporaries | |
| 27915 | (lambda (#{ls 3988}#) | |
| 27916 | (begin | |
| 27917 | (if (not (list? #{ls 3988}#)) | |
| df40b969 | 27918 | (syntax-violation |
| 014de9e2 AW |
27919 | 'generate-temporaries |
| 27920 | "invalid argument" | |
| 27921 | #{ls 3988}#)) | |
| 27922 | (let ((#{mod 3994}# | |
| 27923 | (cons 'hygiene (module-name (current-module))))) | |
| 27924 | (map (lambda (#{x 3995}#) | |
| 27925 | (#{wrap 423}# (gensym) '((top)) #{mod 3994}#)) | |
| 27926 | #{ls 3988}#))))) | |
| 27927 | (set! free-identifier=? | |
| 27928 | (lambda (#{x 3999}# #{y 4000}#) | |
| 27929 | (begin | |
| 27930 | (if (not (if (if (vector? #{x 3999}#) | |
| 27931 | (if (= (vector-length #{x 3999}#) 4) | |
| 27932 | (eq? (vector-ref #{x 3999}# 0) 'syntax-object) | |
| 27933 | #f) | |
| 27934 | #f) | |
| 27935 | (symbol? (vector-ref #{x 3999}# 1)) | |
| 27936 | #f)) | |
| 27937 | (syntax-violation | |
| 27938 | 'free-identifier=? | |
| 27939 | "invalid argument" | |
| 27940 | #{x 3999}#)) | |
| 27941 | (if (not (if (if (vector? #{y 4000}#) | |
| 27942 | (if (= (vector-length #{y 4000}#) 4) | |
| 27943 | (eq? (vector-ref #{y 4000}# 0) 'syntax-object) | |
| 27944 | #f) | |
| 27945 | #f) | |
| 27946 | (symbol? (vector-ref #{y 4000}# 1)) | |
| 27947 | #f)) | |
| 27948 | (syntax-violation | |
| 27949 | 'free-identifier=? | |
| 27950 | "invalid argument" | |
| 27951 | #{y 4000}#)) | |
| 27952 | (if (eq? (if (if (vector? #{x 3999}#) | |
| 27953 | (if (= (vector-length #{x 3999}#) 4) | |
| 27954 | (eq? (vector-ref #{x 3999}# 0) 'syntax-object) | |
| 27955 | #f) | |
| 27956 | #f) | |
| 27957 | (vector-ref #{x 3999}# 1) | |
| 27958 | #{x 3999}#) | |
| 27959 | (if (if (vector? #{y 4000}#) | |
| 27960 | (if (= (vector-length #{y 4000}#) 4) | |
| 27961 | (eq? (vector-ref #{y 4000}# 0) 'syntax-object) | |
| 27962 | #f) | |
| 27963 | #f) | |
| 27964 | (vector-ref #{y 4000}# 1) | |
| 27965 | #{y 4000}#)) | |
| 27966 | (eq? (#{id-var-name 411}# #{x 3999}# '(())) | |
| 27967 | (#{id-var-name 411}# #{y 4000}# '(()))) | |
| 27968 | #f)))) | |
| 27969 | (set! bound-identifier=? | |
| 27970 | (lambda (#{x 4009}# #{y 4010}#) | |
| 27971 | (begin | |
| 27972 | (if (not (if (if (vector? #{x 4009}#) | |
| 27973 | (if (= (vector-length #{x 4009}#) 4) | |
| 27974 | (eq? (vector-ref #{x 4009}# 0) 'syntax-object) | |
| 27975 | #f) | |
| 27976 | #f) | |
| 27977 | (symbol? (vector-ref #{x 4009}# 1)) | |
| 27978 | #f)) | |
| 27979 | (syntax-violation | |
| 27980 | 'bound-identifier=? | |
| 27981 | "invalid argument" | |
| 27982 | #{x 4009}#)) | |
| 27983 | (if (not (if (if (vector? #{y 4010}#) | |
| 27984 | (if (= (vector-length #{y 4010}#) 4) | |
| 27985 | (eq? (vector-ref #{y 4010}# 0) 'syntax-object) | |
| 27986 | #f) | |
| 27987 | #f) | |
| 27988 | (symbol? (vector-ref #{y 4010}# 1)) | |
| 27989 | #f)) | |
| 27990 | (syntax-violation | |
| 27991 | 'bound-identifier=? | |
| 27992 | "invalid argument" | |
| 27993 | #{y 4010}#)) | |
| 27994 | (if (if (if (vector? #{x 4009}#) | |
| 27995 | (if (= (vector-length #{x 4009}#) 4) | |
| 27996 | (eq? (vector-ref #{x 4009}# 0) 'syntax-object) | |
| 27997 | #f) | |
| 27998 | #f) | |
| 27999 | (if (vector? #{y 4010}#) | |
| 28000 | (if (= (vector-length #{y 4010}#) 4) | |
| 28001 | (eq? (vector-ref #{y 4010}# 0) 'syntax-object) | |
| 28002 | #f) | |
| 28003 | #f) | |
| 28004 | #f) | |
| 28005 | (if (eq? (vector-ref #{x 4009}# 1) | |
| 28006 | (vector-ref #{y 4010}# 1)) | |
| 28007 | (#{same-marks? 409}# | |
| 28008 | (car (vector-ref #{x 4009}# 2)) | |
| 28009 | (car (vector-ref #{y 4010}# 2))) | |
| 28010 | #f) | |
| 28011 | (eq? #{x 4009}# #{y 4010}#))))) | |
| 28012 | (set! syntax-violation | |
| 28013 | (lambda* | |
| 28014 | (#{who 4019}# | |
| 28015 | #{message 4020}# | |
| 28016 | #{form 4021}# | |
| 28017 | #:optional | |
| 28018 | (#{subform 4025}# #f)) | |
| 28019 | (begin | |
| 28020 | (if (not (if (not #{who 4019}#) | |
| 28021 | (not #{who 4019}#) | |
| 28022 | (let ((#{t 4037}# (string? #{who 4019}#))) | |
| 28023 | (if #{t 4037}# #{t 4037}# (symbol? #{who 4019}#))))) | |
| 28024 | (syntax-violation | |
| 28025 | 'syntax-violation | |
| 28026 | "invalid argument" | |
| 28027 | #{who 4019}#)) | |
| 28028 | (if (not (string? #{message 4020}#)) | |
| 28029 | (syntax-violation | |
| 28030 | 'syntax-violation | |
| 28031 | "invalid argument" | |
| 28032 | #{message 4020}#)) | |
| 28033 | (throw 'syntax-error | |
| 28034 | #{who 4019}# | |
| 28035 | #{message 4020}# | |
| 28036 | (#{source-annotation 327}# | |
| 28037 | (if #{form 4021}# #{form 4021}# #{subform 4025}#)) | |
| 28038 | (#{strip 463}# #{form 4021}# '(())) | |
| 28039 | (if #{subform 4025}# | |
| 28040 | (#{strip 463}# #{subform 4025}# '(())) | |
| 28041 | #f))))) | |
| 28042 | (letrec* | |
| 28043 | ((#{match-each 4051}# | |
| 28044 | (lambda (#{e 4064}# #{p 4065}# #{w 4066}# #{mod 4067}#) | |
| 28045 | (if (pair? #{e 4064}#) | |
| 28046 | (let ((#{first 4075}# | |
| 28047 | (#{match 4063}# | |
| 28048 | (car #{e 4064}#) | |
| 28049 | #{p 4065}# | |
| 28050 | #{w 4066}# | |
| 28051 | '() | |
| 28052 | #{mod 4067}#))) | |
| 28053 | (if #{first 4075}# | |
| 28054 | (let ((#{rest 4079}# | |
| 28055 | (#{match-each 4051}# | |
| 28056 | (cdr #{e 4064}#) | |
| 28057 | #{p 4065}# | |
| 28058 | #{w 4066}# | |
| 28059 | #{mod 4067}#))) | |
| 28060 | (if #{rest 4079}# | |
| 28061 | (cons #{first 4075}# #{rest 4079}#) | |
| 28062 | #f)) | |
| 28063 | #f)) | |
| 28064 | (if (null? #{e 4064}#) | |
| 28065 | '() | |
| 28066 | (if (if (vector? #{e 4064}#) | |
| 28067 | (if (= (vector-length #{e 4064}#) 4) | |
| 28068 | (eq? (vector-ref #{e 4064}# 0) 'syntax-object) | |
| 28069 | #f) | |
| 28070 | #f) | |
| 28071 | (#{match-each 4051}# | |
| 28072 | (vector-ref #{e 4064}# 1) | |
| 28073 | #{p 4065}# | |
| 28074 | (#{join-wraps 405}# | |
| 28075 | #{w 4066}# | |
| 28076 | (vector-ref #{e 4064}# 2)) | |
| 28077 | (vector-ref #{e 4064}# 3)) | |
| 28078 | #f))))) | |
| 28079 | (#{match-each+ 4053}# | |
| 28080 | (lambda (#{e 4087}# | |
| 28081 | #{x-pat 4088}# | |
| 28082 | #{y-pat 4089}# | |
| 28083 | #{z-pat 4090}# | |
| 28084 | #{w 4091}# | |
| 28085 | #{r 4092}# | |
| 28086 | #{mod 4093}#) | |
| 28087 | (letrec* | |
| 28088 | ((#{f 4104}# | |
| 28089 | (lambda (#{e 4105}# #{w 4106}#) | |
| 28090 | (if (pair? #{e 4105}#) | |
| 28091 | (call-with-values | |
| 28092 | (lambda () | |
| 28093 | (#{f 4104}# (cdr #{e 4105}#) #{w 4106}#)) | |
| 28094 | (lambda (#{xr* 4109}# #{y-pat 4110}# #{r 4111}#) | |
| 28095 | (if #{r 4111}# | |
| 28096 | (if (null? #{y-pat 4110}#) | |
| 28097 | (let ((#{xr 4116}# | |
| 28098 | (#{match 4063}# | |
| 28099 | (car #{e 4105}#) | |
| 28100 | #{x-pat 4088}# | |
| 28101 | #{w 4106}# | |
| 28102 | '() | |
| 28103 | #{mod 4093}#))) | |
| 28104 | (if #{xr 4116}# | |
| 28105 | (values | |
| 28106 | (cons #{xr 4116}# #{xr* 4109}#) | |
| 28107 | #{y-pat 4110}# | |
| 28108 | #{r 4111}#) | |
| 28109 | (values #f #f #f))) | |
| 28110 | (values | |
| 28111 | '() | |
| 28112 | (cdr #{y-pat 4110}#) | |
| 28113 | (#{match 4063}# | |
| 28114 | (car #{e 4105}#) | |
| 28115 | (car #{y-pat 4110}#) | |
| 28116 | #{w 4106}# | |
| 28117 | #{r 4111}# | |
| 28118 | #{mod 4093}#))) | |
| 28119 | (values #f #f #f)))) | |
| 28120 | (if (if (vector? #{e 4105}#) | |
| 28121 | (if (= (vector-length #{e 4105}#) 4) | |
| 28122 | (eq? (vector-ref #{e 4105}# 0) 'syntax-object) | |
| 28123 | #f) | |
| 28124 | #f) | |
| 28125 | (#{f 4104}# | |
| 28126 | (vector-ref #{e 4105}# 1) | |
| 28127 | (#{join-wraps 405}# #{w 4106}# #{e 4105}#)) | |
| 28128 | (values | |
| 28129 | '() | |
| 28130 | #{y-pat 4089}# | |
| 28131 | (#{match 4063}# | |
| 28132 | #{e 4105}# | |
| 28133 | #{z-pat 4090}# | |
| 28134 | #{w 4106}# | |
| 28135 | #{r 4092}# | |
| 28136 | #{mod 4093}#))))))) | |
| 28137 | (#{f 4104}# #{e 4087}# #{w 4091}#)))) | |
| 28138 | (#{match-each-any 4055}# | |
| 28139 | (lambda (#{e 4120}# #{w 4121}# #{mod 4122}#) | |
| 28140 | (if (pair? #{e 4120}#) | |
| 28141 | (let ((#{l 4129}# | |
| 28142 | (#{match-each-any 4055}# | |
| 28143 | (cdr #{e 4120}#) | |
| 28144 | #{w 4121}# | |
| 28145 | #{mod 4122}#))) | |
| 28146 | (if #{l 4129}# | |
| 28147 | (cons (#{wrap 423}# | |
| 28148 | (car #{e 4120}#) | |
| 28149 | #{w 4121}# | |
| 28150 | #{mod 4122}#) | |
| 28151 | #{l 4129}#) | |
| 28152 | #f)) | |
| 28153 | (if (null? #{e 4120}#) | |
| 28154 | '() | |
| 28155 | (if (if (vector? #{e 4120}#) | |
| 28156 | (if (= (vector-length #{e 4120}#) 4) | |
| 28157 | (eq? (vector-ref #{e 4120}# 0) 'syntax-object) | |
| 28158 | #f) | |
| 28159 | #f) | |
| 28160 | (#{match-each-any 4055}# | |
| 28161 | (vector-ref #{e 4120}# 1) | |
| 28162 | (#{join-wraps 405}# | |
| 28163 | #{w 4121}# | |
| 28164 | (vector-ref #{e 4120}# 2)) | |
| 28165 | #{mod 4122}#) | |
| 28166 | #f))))) | |
| 28167 | (#{match-empty 4057}# | |
| 28168 | (lambda (#{p 4137}# #{r 4138}#) | |
| 28169 | (if (null? #{p 4137}#) | |
| 28170 | #{r 4138}# | |
| 28171 | (if (eq? #{p 4137}# '_) | |
| 28172 | #{r 4138}# | |
| 28173 | (if (eq? #{p 4137}# 'any) | |
| 28174 | (cons '() #{r 4138}#) | |
| 28175 | (if (pair? #{p 4137}#) | |
| 28176 | (#{match-empty 4057}# | |
| 28177 | (car #{p 4137}#) | |
| 28178 | (#{match-empty 4057}# | |
| 28179 | (cdr #{p 4137}#) | |
| 28180 | #{r 4138}#)) | |
| 28181 | (if (eq? #{p 4137}# 'each-any) | |
| 28182 | (cons '() #{r 4138}#) | |
| 28183 | (let ((#{atom-key 4154}# (vector-ref #{p 4137}# 0))) | |
| 28184 | (if (memv #{atom-key 4154}# '(each)) | |
| 28185 | (#{match-empty 4057}# | |
| 28186 | (vector-ref #{p 4137}# 1) | |
| 28187 | #{r 4138}#) | |
| 28188 | (if (memv #{atom-key 4154}# '(each+)) | |
| 28189 | (#{match-empty 4057}# | |
| 28190 | (vector-ref #{p 4137}# 1) | |
| 28191 | (#{match-empty 4057}# | |
| 28192 | (reverse (vector-ref #{p 4137}# 2)) | |
| 28193 | (#{match-empty 4057}# | |
| 28194 | (vector-ref #{p 4137}# 3) | |
| 28195 | #{r 4138}#))) | |
| 28196 | (if (memv #{atom-key 4154}# '(free-id atom)) | |
| 28197 | #{r 4138}# | |
| 28198 | (if (memv #{atom-key 4154}# '(vector)) | |
| 28199 | (#{match-empty 4057}# | |
| 28200 | (vector-ref #{p 4137}# 1) | |
| 28201 | #{r 4138}#))))))))))))) | |
| 28202 | (#{combine 4059}# | |
| 28203 | (lambda (#{r* 4159}# #{r 4160}#) | |
| 28204 | (if (null? (car #{r* 4159}#)) | |
| 28205 | #{r 4160}# | |
| 28206 | (cons (map car #{r* 4159}#) | |
| 28207 | (#{combine 4059}# | |
| 28208 | (map cdr #{r* 4159}#) | |
| 28209 | #{r 4160}#))))) | |
| 28210 | (#{match* 4061}# | |
| 28211 | (lambda (#{e 4163}# | |
| 28212 | #{p 4164}# | |
| 28213 | #{w 4165}# | |
| 28214 | #{r 4166}# | |
| 28215 | #{mod 4167}#) | |
| 28216 | (if (null? #{p 4164}#) | |
| 28217 | (if (null? #{e 4163}#) #{r 4166}# #f) | |
| 28218 | (if (pair? #{p 4164}#) | |
| 28219 | (if (pair? #{e 4163}#) | |
| 28220 | (#{match 4063}# | |
| 28221 | (car #{e 4163}#) | |
| 28222 | (car #{p 4164}#) | |
| 28223 | #{w 4165}# | |
| 28224 | (#{match 4063}# | |
| 28225 | (cdr #{e 4163}#) | |
| 28226 | (cdr #{p 4164}#) | |
| 28227 | #{w 4165}# | |
| 28228 | #{r 4166}# | |
| 28229 | #{mod 4167}#) | |
| 28230 | #{mod 4167}#) | |
| 28231 | #f) | |
| 28232 | (if (eq? #{p 4164}# 'each-any) | |
| 28233 | (let ((#{l 4184}# | |
| 28234 | (#{match-each-any 4055}# | |
| 28235 | #{e 4163}# | |
| 28236 | #{w 4165}# | |
| 28237 | #{mod 4167}#))) | |
| 28238 | (if #{l 4184}# (cons #{l 4184}# #{r 4166}#) #f)) | |
| 28239 | (let ((#{atom-key 4190}# (vector-ref #{p 4164}# 0))) | |
| 28240 | (if (memv #{atom-key 4190}# '(each)) | |
| 28241 | (if (null? #{e 4163}#) | |
| 28242 | (#{match-empty 4057}# | |
| 28243 | (vector-ref #{p 4164}# 1) | |
| 28244 | #{r 4166}#) | |
| 28245 | (let ((#{l 4193}# | |
| 28246 | (#{match-each 4051}# | |
| 28247 | #{e 4163}# | |
| 28248 | (vector-ref #{p 4164}# 1) | |
| 28249 | #{w 4165}# | |
| 28250 | #{mod 4167}#))) | |
| 28251 | (if #{l 4193}# | |
| 28252 | (letrec* | |
| 28253 | ((#{collect 4198}# | |
| 28254 | (lambda (#{l 4199}#) | |
| 28255 | (if (null? (car #{l 4199}#)) | |
| 28256 | #{r 4166}# | |
| 28257 | (cons (map car #{l 4199}#) | |
| 28258 | (#{collect 4198}# | |
| 28259 | (map cdr #{l 4199}#))))))) | |
| 28260 | (#{collect 4198}# #{l 4193}#)) | |
| 28261 | #f))) | |
| 28262 | (if (memv #{atom-key 4190}# '(each+)) | |
| 28263 | (call-with-values | |
| 28264 | (lambda () | |
| 28265 | (#{match-each+ 4053}# | |
| 28266 | #{e 4163}# | |
| 28267 | (vector-ref #{p 4164}# 1) | |
| 28268 | (vector-ref #{p 4164}# 2) | |
| 28269 | (vector-ref #{p 4164}# 3) | |
| 28270 | #{w 4165}# | |
| 28271 | #{r 4166}# | |
| 28272 | #{mod 4167}#)) | |
| 28273 | (lambda (#{xr* 4201}# #{y-pat 4202}# #{r 4203}#) | |
| 28274 | (if #{r 4203}# | |
| 28275 | (if (null? #{y-pat 4202}#) | |
| 28276 | (if (null? #{xr* 4201}#) | |
| 28277 | (#{match-empty 4057}# | |
| 28278 | (vector-ref #{p 4164}# 1) | |
| 28279 | #{r 4203}#) | |
| 28280 | (#{combine 4059}# #{xr* 4201}# #{r 4203}#)) | |
| 28281 | #f) | |
| 28282 | #f))) | |
| 28283 | (if (memv #{atom-key 4190}# '(free-id)) | |
| 28284 | (if (if (symbol? #{e 4163}#) | |
| 28285 | #t | |
| 28286 | (if (if (vector? #{e 4163}#) | |
| 28287 | (if (= (vector-length #{e 4163}#) 4) | |
| 28288 | (eq? (vector-ref #{e 4163}# 0) | |
| 28289 | 'syntax-object) | |
| 28290 | #f) | |
| 28291 | #f) | |
| 28292 | (symbol? (vector-ref #{e 4163}# 1)) | |
| 28293 | #f)) | |
| 28294 | (if (let ((#{i 10362}# | |
| 28295 | (#{wrap 423}# | |
| 28296 | #{e 4163}# | |
| 28297 | #{w 4165}# | |
| 28298 | #{mod 4167}#)) | |
| 28299 | (#{j 10363}# (vector-ref #{p 4164}# 1))) | |
| 28300 | (if (eq? (if (if (vector? #{i 10362}#) | |
| 28301 | (if (= (vector-length | |
| 28302 | #{i 10362}#) | |
| 28303 | 4) | |
| 28304 | (eq? (vector-ref | |
| 28305 | #{i 10362}# | |
| 28306 | 0) | |
| 28307 | 'syntax-object) | |
| 28308 | #f) | |
| 28309 | #f) | |
| 28310 | (vector-ref #{i 10362}# 1) | |
| 28311 | #{i 10362}#) | |
| 28312 | (if (if (vector? #{j 10363}#) | |
| 28313 | (if (= (vector-length | |
| 28314 | #{j 10363}#) | |
| 28315 | 4) | |
| 28316 | (eq? (vector-ref | |
| 28317 | #{j 10363}# | |
| 28318 | 0) | |
| 28319 | 'syntax-object) | |
| 28320 | #f) | |
| 28321 | #f) | |
| 28322 | (vector-ref #{j 10363}# 1) | |
| 28323 | #{j 10363}#)) | |
| 28324 | (eq? (#{id-var-name 411}# #{i 10362}# '(())) | |
| 28325 | (#{id-var-name 411}# | |
| 28326 | #{j 10363}# | |
| 28327 | '(()))) | |
| 28328 | #f)) | |
| 28329 | #{r 4166}# | |
| 28330 | #f) | |
| 28331 | #f) | |
| 28332 | (if (memv #{atom-key 4190}# '(atom)) | |
| 28333 | (if (equal? | |
| 28334 | (vector-ref #{p 4164}# 1) | |
| 28335 | (#{strip 463}# #{e 4163}# #{w 4165}#)) | |
| 28336 | #{r 4166}# | |
| 28337 | #f) | |
| 28338 | (if (memv #{atom-key 4190}# '(vector)) | |
| 28339 | (if (vector? #{e 4163}#) | |
| 28340 | (#{match 4063}# | |
| 28341 | (vector->list #{e 4163}#) | |
| 28342 | (vector-ref #{p 4164}# 1) | |
| 28343 | #{w 4165}# | |
| 28344 | #{r 4166}# | |
| 28345 | #{mod 4167}#) | |
| 28346 | #f)))))))))))) | |
| 28347 | (#{match 4063}# | |
| 28348 | (lambda (#{e 4220}# | |
| 28349 | #{p 4221}# | |
| 28350 | #{w 4222}# | |
| 28351 | #{r 4223}# | |
| 28352 | #{mod 4224}#) | |
| 28353 | (if (not #{r 4223}#) | |
| 28354 | #f | |
| 28355 | (if (eq? #{p 4221}# '_) | |
| 28356 | #{r 4223}# | |
| 28357 | (if (eq? #{p 4221}# 'any) | |
| 28358 | (cons (#{wrap 423}# #{e 4220}# #{w 4222}# #{mod 4224}#) | |
| 28359 | #{r 4223}#) | |
| 28360 | (if (if (vector? #{e 4220}#) | |
| 28361 | (if (= (vector-length #{e 4220}#) 4) | |
| 28362 | (eq? (vector-ref #{e 4220}# 0) 'syntax-object) | |
| 28363 | #f) | |
| 28364 | #f) | |
| 28365 | (#{match* 4061}# | |
| 28366 | (vector-ref #{e 4220}# 1) | |
| 28367 | #{p 4221}# | |
| 28368 | (#{join-wraps 405}# | |
| 28369 | #{w 4222}# | |
| 28370 | (vector-ref #{e 4220}# 2)) | |
| 28371 | #{r 4223}# | |
| 28372 | (vector-ref #{e 4220}# 3)) | |
| 28373 | (#{match* 4061}# | |
| 28374 | #{e 4220}# | |
| 28375 | #{p 4221}# | |
| 28376 | #{w 4222}# | |
| 28377 | #{r 4223}# | |
| 28378 | #{mod 4224}#)))))))) | |
| 28379 | (set! $sc-dispatch | |
| 28380 | (lambda (#{e 4239}# #{p 4240}#) | |
| 28381 | (if (eq? #{p 4240}# 'any) | |
| 28382 | (list #{e 4239}#) | |
| 28383 | (if (eq? #{p 4240}# '_) | |
| 28384 | '() | |
| 28385 | (if (if (vector? #{e 4239}#) | |
| 28386 | (if (= (vector-length #{e 4239}#) 4) | |
| 28387 | (eq? (vector-ref #{e 4239}# 0) 'syntax-object) | |
| 28388 | #f) | |
| 28389 | #f) | |
| 28390 | (#{match* 4061}# | |
| 28391 | (vector-ref #{e 4239}# 1) | |
| 28392 | #{p 4240}# | |
| 28393 | (vector-ref #{e 4239}# 2) | |
| 28394 | '() | |
| 28395 | (vector-ref #{e 4239}# 3)) | |
| 28396 | (#{match* 4061}# | |
| 28397 | #{e 4239}# | |
| 28398 | #{p 4240}# | |
| 28399 | '(()) | |
| 28400 | '() | |
| 28401 | #f))))))))) | |
| 28402 | ||
| 28403 | (define with-syntax | |
| 28404 | (make-syntax-transformer | |
| 28405 | 'with-syntax | |
| 28406 | 'macro | |
| 28407 | (lambda (#{x 10409}#) | |
| 28408 | (let ((#{tmp 10412}# | |
| 28409 | ($sc-dispatch #{x 10409}# '(_ () any . each-any)))) | |
| 28410 | (if #{tmp 10412}# | |
| 28411 | (@apply | |
| 28412 | (lambda (#{e1 10415}# #{e2 10416}#) | |
| 28413 | (cons '#(syntax-object | |
| 28414 | let | |
| 28415 | ((top) | |
| 28416 | #(ribcage | |
| 28417 | #(e1 e2) | |
| 28418 | #((top) (top)) | |
| 28419 | #("i10413" "i10414")) | |
| 28420 | #(ribcage () () ()) | |
| 28421 | #(ribcage #(x) #((top)) #("i10410"))) | |
| 28422 | (hygiene guile)) | |
| 28423 | (cons '() (cons #{e1 10415}# #{e2 10416}#)))) | |
| 28424 | #{tmp 10412}#) | |
| 28425 | (let ((#{tmp 10418}# | |
| 28426 | ($sc-dispatch | |
| 28427 | #{x 10409}# | |
| 28428 | '(_ ((any any)) any . each-any)))) | |
| 28429 | (if #{tmp 10418}# | |
| 28430 | (@apply | |
| 28431 | (lambda (#{out 10423}# | |
| 28432 | #{in 10424}# | |
| 28433 | #{e1 10425}# | |
| 28434 | #{e2 10426}#) | |
| 28435 | (list '#(syntax-object | |
| 28436 | syntax-case | |
| 28437 | ((top) | |
| 28438 | #(ribcage | |
| 28439 | #(out in e1 e2) | |
| 28440 | #((top) (top) (top) (top)) | |
| 28441 | #("i10419" "i10420" "i10421" "i10422")) | |
| 28442 | #(ribcage () () ()) | |
| 28443 | #(ribcage #(x) #((top)) #("i10410"))) | |
| 28444 | (hygiene guile)) | |
| 28445 | #{in 10424}# | |
| 28446 | '() | |
| 28447 | (list #{out 10423}# | |
| 28448 | (cons '#(syntax-object | |
| 28449 | let | |
| 28450 | ((top) | |
| 28451 | #(ribcage | |
| 28452 | #(out in e1 e2) | |
| 28453 | #((top) (top) (top) (top)) | |
| 28454 | #("i10419" | |
| 28455 | "i10420" | |
| 28456 | "i10421" | |
| 28457 | "i10422")) | |
| 28458 | #(ribcage () () ()) | |
| 28459 | #(ribcage #(x) #((top)) #("i10410"))) | |
| 28460 | (hygiene guile)) | |
| 28461 | (cons '() | |
| 28462 | (cons #{e1 10425}# #{e2 10426}#)))))) | |
| 28463 | #{tmp 10418}#) | |
| 28464 | (let ((#{tmp 10428}# | |
| 28465 | ($sc-dispatch | |
| 28466 | #{x 10409}# | |
| 28467 | '(_ #(each (any any)) any . each-any)))) | |
| 28468 | (if #{tmp 10428}# | |
| 28469 | (@apply | |
| 28470 | (lambda (#{out 10433}# | |
| 28471 | #{in 10434}# | |
| 28472 | #{e1 10435}# | |
| 28473 | #{e2 10436}#) | |
| 28474 | (list '#(syntax-object | |
| 28475 | syntax-case | |
| 28476 | ((top) | |
| 28477 | #(ribcage | |
| 28478 | #(out in e1 e2) | |
| 28479 | #((top) (top) (top) (top)) | |
| 28480 | #("i10429" "i10430" "i10431" "i10432")) | |
| 28481 | #(ribcage () () ()) | |
| 28482 | #(ribcage #(x) #((top)) #("i10410"))) | |
| 28483 | (hygiene guile)) | |
| 28484 | (cons '#(syntax-object | |
| 28485 | list | |
| 28486 | ((top) | |
| 28487 | #(ribcage | |
| 28488 | #(out in e1 e2) | |
| 28489 | #((top) (top) (top) (top)) | |
| 28490 | #("i10429" "i10430" "i10431" "i10432")) | |
| 28491 | #(ribcage () () ()) | |
| 28492 | #(ribcage #(x) #((top)) #("i10410"))) | |
| 28493 | (hygiene guile)) | |
| 28494 | #{in 10434}#) | |
| 28495 | '() | |
| 28496 | (list #{out 10433}# | |
| 28497 | (cons '#(syntax-object | |
| 28498 | let | |
| 28499 | ((top) | |
| 28500 | #(ribcage | |
| 28501 | #(out in e1 e2) | |
| 28502 | #((top) (top) (top) (top)) | |
| 28503 | #("i10429" | |
| 28504 | "i10430" | |
| 28505 | "i10431" | |
| 28506 | "i10432")) | |
| 28507 | #(ribcage () () ()) | |
| 28508 | #(ribcage | |
| 28509 | #(x) | |
| 28510 | #((top)) | |
| 28511 | #("i10410"))) | |
| 28512 | (hygiene guile)) | |
| 28513 | (cons '() | |
| 28514 | (cons #{e1 10435}# | |
| 28515 | #{e2 10436}#)))))) | |
| 28516 | #{tmp 10428}#) | |
| 28517 | (syntax-violation | |
| 28518 | #f | |
| 28519 | "source expression failed to match any pattern" | |
| 28520 | #{x 10409}#)))))))))) | |
| 28521 | ||
| 28522 | (define syntax-rules | |
| 28523 | (make-syntax-transformer | |
| 28524 | 'syntax-rules | |
| 28525 | 'macro | |
| 28526 | (lambda (#{x 10440}#) | |
| 28527 | (let ((#{tmp 10443}# | |
| 28528 | ($sc-dispatch | |
| 28529 | #{x 10440}# | |
| 28530 | '(_ each-any . #(each ((any . any) any)))))) | |
| 28531 | (if #{tmp 10443}# | |
| 28532 | (@apply | |
| 28533 | (lambda (#{k 10448}# | |
| 28534 | #{keyword 10449}# | |
| 28535 | #{pattern 10450}# | |
| 28536 | #{template 10451}#) | |
| 28537 | (list '#(syntax-object | |
| 28538 | lambda | |
| 28539 | ((top) | |
| 28540 | #(ribcage | |
| 28541 | #(k keyword pattern template) | |
| 28542 | #((top) (top) (top) (top)) | |
| 28543 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28544 | #(ribcage () () ()) | |
| 28545 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28546 | (hygiene guile)) | |
| 28547 | '(#(syntax-object | |
| 28548 | x | |
| 28549 | ((top) | |
| 28550 | #(ribcage | |
| 28551 | #(k keyword pattern template) | |
| 28552 | #((top) (top) (top) (top)) | |
| 28553 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28554 | #(ribcage () () ()) | |
| 28555 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28556 | (hygiene guile))) | |
| 28557 | (vector | |
| 28558 | '(#(syntax-object | |
| 28559 | macro-type | |
| 28560 | ((top) | |
| 28561 | #(ribcage | |
| 28562 | #(k keyword pattern template) | |
| 28563 | #((top) (top) (top) (top)) | |
| 28564 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28565 | #(ribcage () () ()) | |
| 28566 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28567 | (hygiene guile)) | |
| 28568 | . | |
| 28569 | #(syntax-object | |
| 28570 | syntax-rules | |
| 28571 | ((top) | |
| 28572 | #(ribcage | |
| 28573 | #(k keyword pattern template) | |
| 28574 | #((top) (top) (top) (top)) | |
| 28575 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28576 | #(ribcage () () ()) | |
| 28577 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28578 | (hygiene guile))) | |
| 28579 | (cons '#(syntax-object | |
| 28580 | patterns | |
| 28581 | ((top) | |
| 28582 | #(ribcage | |
| 28583 | #(k keyword pattern template) | |
| 28584 | #((top) (top) (top) (top)) | |
| 28585 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28586 | #(ribcage () () ()) | |
| 28587 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28588 | (hygiene guile)) | |
| 28589 | #{pattern 10450}#)) | |
| 28590 | (cons '#(syntax-object | |
| 28591 | syntax-case | |
| 28592 | ((top) | |
| 28593 | #(ribcage | |
| 28594 | #(k keyword pattern template) | |
| 28595 | #((top) (top) (top) (top)) | |
| 28596 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28597 | #(ribcage () () ()) | |
| 28598 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28599 | (hygiene guile)) | |
| 28600 | (cons '#(syntax-object | |
| 28601 | x | |
| 28602 | ((top) | |
| 28603 | #(ribcage | |
| 28604 | #(k keyword pattern template) | |
| 28605 | #((top) (top) (top) (top)) | |
| 28606 | #("i10444" "i10445" "i10446" "i10447")) | |
| 28607 | #(ribcage () () ()) | |
| 28608 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28609 | (hygiene guile)) | |
| 28610 | (cons #{k 10448}# | |
| 28611 | (map (lambda (#{tmp 10455}# | |
| 28612 | #{tmp 10454}#) | |
| 28613 | (list (cons '#(syntax-object | |
| 28614 | dummy | |
| 28615 | ((top) | |
| 28616 | #(ribcage | |
| 28617 | #(k | |
| 28618 | keyword | |
| 28619 | pattern | |
| 28620 | template) | |
| 28621 | #((top) | |
| 28622 | (top) | |
| 28623 | (top) | |
| 28624 | (top)) | |
| 28625 | #("i10444" | |
| 28626 | "i10445" | |
| 28627 | "i10446" | |
| 28628 | "i10447")) | |
| 28629 | #(ribcage | |
| 28630 | () | |
| 28631 | () | |
| 28632 | ()) | |
| 28633 | #(ribcage | |
| 28634 | #(x) | |
| 28635 | #((top)) | |
| 28636 | #("i10441"))) | |
| 28637 | (hygiene guile)) | |
| 28638 | #{tmp 10454}#) | |
| 28639 | (list '#(syntax-object | |
| 28640 | syntax | |
| 28641 | ((top) | |
| 28642 | #(ribcage | |
| 28643 | #(k | |
| 28644 | keyword | |
| 28645 | pattern | |
| 28646 | template) | |
| 28647 | #((top) | |
| 28648 | (top) | |
| 28649 | (top) | |
| 28650 | (top)) | |
| 28651 | #("i10444" | |
| 28652 | "i10445" | |
| 28653 | "i10446" | |
| 28654 | "i10447")) | |
| 28655 | #(ribcage | |
| 28656 | () | |
| 28657 | () | |
| 28658 | ()) | |
| 28659 | #(ribcage | |
| 28660 | #(x) | |
| 28661 | #((top)) | |
| 28662 | #("i10441"))) | |
| 28663 | (hygiene guile)) | |
| 28664 | #{tmp 10455}#))) | |
| 28665 | #{template 10451}# | |
| 28666 | #{pattern 10450}#)))))) | |
| 28667 | #{tmp 10443}#) | |
| 28668 | (let ((#{tmp 10456}# | |
| 28669 | ($sc-dispatch | |
| 28670 | #{x 10440}# | |
| 28671 | '(_ each-any any . #(each ((any . any) any)))))) | |
| 28672 | (if (if #{tmp 10456}# | |
| 28673 | (@apply | |
| 28674 | (lambda (#{k 10462}# | |
| 28675 | #{docstring 10463}# | |
| 28676 | #{keyword 10464}# | |
| 28677 | #{pattern 10465}# | |
| 28678 | #{template 10466}#) | |
| 28679 | (string? (syntax->datum #{docstring 10463}#))) | |
| 28680 | #{tmp 10456}#) | |
| 28681 | #f) | |
| 28682 | (@apply | |
| 28683 | (lambda (#{k 10472}# | |
| 28684 | #{docstring 10473}# | |
| 28685 | #{keyword 10474}# | |
| 28686 | #{pattern 10475}# | |
| 28687 | #{template 10476}#) | |
| 28688 | (list '#(syntax-object | |
| 28689 | lambda | |
| 28690 | ((top) | |
| 28691 | #(ribcage | |
| 28692 | #(k docstring keyword pattern template) | |
| 28693 | #((top) (top) (top) (top) (top)) | |
| 28694 | #("i10467" "i10468" "i10469" "i10470" "i10471")) | |
| 28695 | #(ribcage () () ()) | |
| 28696 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28697 | (hygiene guile)) | |
| 28698 | '(#(syntax-object | |
| 28699 | x | |
| 28700 | ((top) | |
| 28701 | #(ribcage | |
| 28702 | #(k docstring keyword pattern template) | |
| 28703 | #((top) (top) (top) (top) (top)) | |
| 28704 | #("i10467" "i10468" "i10469" "i10470" "i10471")) | |
| 28705 | #(ribcage () () ()) | |
| 28706 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28707 | (hygiene guile))) | |
| 28708 | #{docstring 10473}# | |
| 28709 | (vector | |
| 28710 | '(#(syntax-object | |
| 28711 | macro-type | |
| 28712 | ((top) | |
| 28713 | #(ribcage | |
| 28714 | #(k docstring keyword pattern template) | |
| 28715 | #((top) (top) (top) (top) (top)) | |
| 28716 | #("i10467" | |
| 28717 | "i10468" | |
| 28718 | "i10469" | |
| 28719 | "i10470" | |
| 28720 | "i10471")) | |
| 28721 | #(ribcage () () ()) | |
| 28722 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28723 | (hygiene guile)) | |
| 28724 | . | |
| 28725 | #(syntax-object | |
| 28726 | syntax-rules | |
| 28727 | ((top) | |
| 28728 | #(ribcage | |
| 28729 | #(k docstring keyword pattern template) | |
| 28730 | #((top) (top) (top) (top) (top)) | |
| 28731 | #("i10467" | |
| 28732 | "i10468" | |
| 28733 | "i10469" | |
| 28734 | "i10470" | |
| 28735 | "i10471")) | |
| 28736 | #(ribcage () () ()) | |
| 28737 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28738 | (hygiene guile))) | |
| 28739 | (cons '#(syntax-object | |
| 28740 | patterns | |
| 28741 | ((top) | |
| 28742 | #(ribcage | |
| 28743 | #(k docstring keyword pattern template) | |
| 28744 | #((top) (top) (top) (top) (top)) | |
| 28745 | #("i10467" | |
| 28746 | "i10468" | |
| 28747 | "i10469" | |
| 28748 | "i10470" | |
| 28749 | "i10471")) | |
| 28750 | #(ribcage () () ()) | |
| 28751 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28752 | (hygiene guile)) | |
| 28753 | #{pattern 10475}#)) | |
| 28754 | (cons '#(syntax-object | |
| 28755 | syntax-case | |
| 28756 | ((top) | |
| 28757 | #(ribcage | |
| 28758 | #(k docstring keyword pattern template) | |
| 28759 | #((top) (top) (top) (top) (top)) | |
| 28760 | #("i10467" | |
| 28761 | "i10468" | |
| 28762 | "i10469" | |
| 28763 | "i10470" | |
| 28764 | "i10471")) | |
| 28765 | #(ribcage () () ()) | |
| 28766 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28767 | (hygiene guile)) | |
| 28768 | (cons '#(syntax-object | |
| 28769 | x | |
| 28770 | ((top) | |
| 28771 | #(ribcage | |
| 28772 | #(k | |
| 28773 | docstring | |
| 28774 | keyword | |
| 28775 | pattern | |
| 28776 | template) | |
| 28777 | #((top) (top) (top) (top) (top)) | |
| 28778 | #("i10467" | |
| 28779 | "i10468" | |
| 28780 | "i10469" | |
| 28781 | "i10470" | |
| 28782 | "i10471")) | |
| 28783 | #(ribcage () () ()) | |
| 28784 | #(ribcage #(x) #((top)) #("i10441"))) | |
| 28785 | (hygiene guile)) | |
| 28786 | (cons #{k 10472}# | |
| 28787 | (map (lambda (#{tmp 10480}# | |
| 28788 | #{tmp 10479}#) | |
| 28789 | (list (cons '#(syntax-object | |
| 28790 | dummy | |
| 28791 | ((top) | |
| 28792 | #(ribcage | |
| 28793 | #(k | |
| 28794 | docstring | |
| 28795 | keyword | |
| 28796 | pattern | |
| 28797 | template) | |
| 28798 | #((top) | |
| 28799 | (top) | |
| 28800 | (top) | |
| 28801 | (top) | |
| 28802 | (top)) | |
| 28803 | #("i10467" | |
| 28804 | "i10468" | |
| 28805 | "i10469" | |
| 28806 | "i10470" | |
| 28807 | "i10471")) | |
| 28808 | #(ribcage | |
| 28809 | () | |
| 28810 | () | |
| 28811 | ()) | |
| 28812 | #(ribcage | |
| 28813 | #(x) | |
| 28814 | #((top)) | |
| 28815 | #("i10441"))) | |
| 28816 | (hygiene | |
| 28817 | guile)) | |
| 28818 | #{tmp 10479}#) | |
| 28819 | (list '#(syntax-object | |
| 28820 | syntax | |
| 28821 | ((top) | |
| 28822 | #(ribcage | |
| 28823 | #(k | |
| 28824 | docstring | |
| 28825 | keyword | |
| 28826 | pattern | |
| 28827 | template) | |
| 28828 | #((top) | |
| 28829 | (top) | |
| 28830 | (top) | |
| 28831 | (top) | |
| 28832 | (top)) | |
| 28833 | #("i10467" | |
| 28834 | "i10468" | |
| 28835 | "i10469" | |
| 28836 | "i10470" | |
| 28837 | "i10471")) | |
| 28838 | #(ribcage | |
| 28839 | () | |
| 28840 | () | |
| 28841 | ()) | |
| 28842 | #(ribcage | |
| 28843 | #(x) | |
| 28844 | #((top)) | |
| 28845 | #("i10441"))) | |
| 28846 | (hygiene | |
| 28847 | guile)) | |
| 28848 | #{tmp 10480}#))) | |
| 28849 | #{template 10476}# | |
| 28850 | #{pattern 10475}#)))))) | |
| 28851 | #{tmp 10456}#) | |
| 28852 | (syntax-violation | |
| 28853 | #f | |
| 28854 | "source expression failed to match any pattern" | |
| 28855 | #{x 10440}#)))))))) | |
| df40b969 | 28856 | |
| 014de9e2 | 28857 | (define define-syntax-rule |
| df40b969 | 28858 | (make-syntax-transformer |
| 014de9e2 | 28859 | 'define-syntax-rule |
| df40b969 | 28860 | 'macro |
| 014de9e2 AW |
28861 | (lambda (#{x 10481}#) |
| 28862 | (let ((#{tmp 10484}# | |
| 28863 | ($sc-dispatch #{x 10481}# '(_ (any . any) any)))) | |
| 28864 | (if #{tmp 10484}# | |
| 28865 | (@apply | |
| 28866 | (lambda (#{name 10488}# | |
| 28867 | #{pattern 10489}# | |
| 28868 | #{template 10490}#) | |
| 28869 | (list '#(syntax-object | |
| 28870 | define-syntax | |
| 28871 | ((top) | |
| 28872 | #(ribcage | |
| 28873 | #(name pattern template) | |
| 28874 | #((top) (top) (top)) | |
| 28875 | #("i10485" "i10486" "i10487")) | |
| 28876 | #(ribcage () () ()) | |
| 28877 | #(ribcage #(x) #((top)) #("i10482"))) | |
| 28878 | (hygiene guile)) | |
| 28879 | #{name 10488}# | |
| 28880 | (list '#(syntax-object | |
| 28881 | syntax-rules | |
| df40b969 | 28882 | ((top) |
| df40b969 | 28883 | #(ribcage |
| 014de9e2 AW |
28884 | #(name pattern template) |
| 28885 | #((top) (top) (top)) | |
| 28886 | #("i10485" "i10486" "i10487")) | |
| 28887 | #(ribcage () () ()) | |
| 28888 | #(ribcage #(x) #((top)) #("i10482"))) | |
| 28889 | (hygiene guile)) | |
| 28890 | '() | |
| 28891 | (list (cons '#(syntax-object | |
| 28892 | _ | |
| 28893 | ((top) | |
| 28894 | #(ribcage | |
| 28895 | #(name pattern template) | |
| 28896 | #((top) (top) (top)) | |
| 28897 | #("i10485" "i10486" "i10487")) | |
| 28898 | #(ribcage () () ()) | |
| 28899 | #(ribcage #(x) #((top)) #("i10482"))) | |
| 28900 | (hygiene guile)) | |
| 28901 | #{pattern 10489}#) | |
| 28902 | #{template 10490}#)))) | |
| 28903 | #{tmp 10484}#) | |
| 28904 | (let ((#{tmp 10491}# | |
| 28905 | ($sc-dispatch | |
| 28906 | #{x 10481}# | |
| 28907 | '(_ (any . any) any any)))) | |
| 28908 | (if (if #{tmp 10491}# | |
| 28909 | (@apply | |
| 28910 | (lambda (#{name 10496}# | |
| 28911 | #{pattern 10497}# | |
| 28912 | #{docstring 10498}# | |
| 28913 | #{template 10499}#) | |
| 28914 | (string? (syntax->datum #{docstring 10498}#))) | |
| 28915 | #{tmp 10491}#) | |
| 28916 | #f) | |
| 28917 | (@apply | |
| 28918 | (lambda (#{name 10504}# | |
| 28919 | #{pattern 10505}# | |
| 28920 | #{docstring 10506}# | |
| 28921 | #{template 10507}#) | |
| 28922 | (list '#(syntax-object | |
| 28923 | define-syntax | |
| 28924 | ((top) | |
| 28925 | #(ribcage | |
| 28926 | #(name pattern docstring template) | |
| 28927 | #((top) (top) (top) (top)) | |
| 28928 | #("i10500" "i10501" "i10502" "i10503")) | |
| 28929 | #(ribcage () () ()) | |
| 28930 | #(ribcage #(x) #((top)) #("i10482"))) | |
| 28931 | (hygiene guile)) | |
| 28932 | #{name 10504}# | |
| 28933 | (list '#(syntax-object | |
| 28934 | syntax-rules | |
| 28935 | ((top) | |
| 28936 | #(ribcage | |
| 28937 | #(name pattern docstring template) | |
| 28938 | #((top) (top) (top) (top)) | |
| 28939 | #("i10500" "i10501" "i10502" "i10503")) | |
| 28940 | #(ribcage () () ()) | |
| 28941 | #(ribcage #(x) #((top)) #("i10482"))) | |
| 28942 | (hygiene guile)) | |
| 28943 | '() | |
| 28944 | #{docstring 10506}# | |
| 28945 | (list (cons '#(syntax-object | |
| 28946 | _ | |
| 28947 | ((top) | |
| 28948 | #(ribcage | |
| 28949 | #(name | |
| 28950 | pattern | |
| 28951 | docstring | |
| 28952 | template) | |
| 28953 | #((top) (top) (top) (top)) | |
| 28954 | #("i10500" | |
| 28955 | "i10501" | |
| 28956 | "i10502" | |
| 28957 | "i10503")) | |
| 28958 | #(ribcage () () ()) | |
| 28959 | #(ribcage | |
| 28960 | #(x) | |
| 28961 | #((top)) | |
| 28962 | #("i10482"))) | |
| 28963 | (hygiene guile)) | |
| 28964 | #{pattern 10505}#) | |
| 28965 | #{template 10507}#)))) | |
| 28966 | #{tmp 10491}#) | |
| 28967 | (syntax-violation | |
| 28968 | #f | |
| 28969 | "source expression failed to match any pattern" | |
| 28970 | #{x 10481}#)))))))) | |
| 28971 | ||
| 28972 | (define let* | |
| 28973 | (make-syntax-transformer | |
| 28974 | 'let* | |
| 28975 | 'macro | |
| 28976 | (lambda (#{x 10508}#) | |
| 28977 | (let ((#{tmp 10511}# | |
| 28978 | ($sc-dispatch | |
| 28979 | #{x 10508}# | |
| 28980 | '(any #(each (any any)) any . each-any)))) | |
| 28981 | (if (if #{tmp 10511}# | |
| 28982 | (@apply | |
| 28983 | (lambda (#{let* 10517}# | |
| 28984 | #{x 10518}# | |
| 28985 | #{v 10519}# | |
| 28986 | #{e1 10520}# | |
| 28987 | #{e2 10521}#) | |
| 28988 | (and-map identifier? #{x 10518}#)) | |
| 28989 | #{tmp 10511}#) | |
| 28990 | #f) | |
| 28991 | (@apply | |
| 28992 | (lambda (#{let* 10528}# | |
| 28993 | #{x 10529}# | |
| 28994 | #{v 10530}# | |
| 28995 | #{e1 10531}# | |
| 28996 | #{e2 10532}#) | |
| 28997 | (letrec* | |
| 28998 | ((#{f 10535}# | |
| 28999 | (lambda (#{bindings 10536}#) | |
| 29000 | (if (null? #{bindings 10536}#) | |
| 29001 | (cons '#(syntax-object | |
| 29002 | let | |
| df40b969 | 29003 | ((top) |
| df40b969 AW |
29004 | #(ribcage () () ()) |
| 29005 | #(ribcage | |
| 014de9e2 | 29006 | #(f bindings) |
| df40b969 | 29007 | #((top) (top)) |
| 014de9e2 | 29008 | #("i10533" "i10534")) |
| df40b969 | 29009 | #(ribcage |
| 014de9e2 AW |
29010 | #(let* x v e1 e2) |
| 29011 | #((top) (top) (top) (top) (top)) | |
| 29012 | #("i10523" | |
| 29013 | "i10524" | |
| 29014 | "i10525" | |
| 29015 | "i10526" | |
| 29016 | "i10527")) | |
| 29017 | #(ribcage () () ()) | |
| 29018 | #(ribcage #(x) #((top)) #("i10509"))) | |
| df40b969 | 29019 | (hygiene guile)) |
| 014de9e2 AW |
29020 | (cons '() (cons #{e1 10531}# #{e2 10532}#))) |
| 29021 | (let ((#{tmp 10541}# | |
| 29022 | (list (#{f 10535}# (cdr #{bindings 10536}#)) | |
| 29023 | (car #{bindings 10536}#)))) | |
| 29024 | (let ((#{tmp 10542}# | |
| 29025 | ($sc-dispatch #{tmp 10541}# '(any any)))) | |
| 29026 | (if #{tmp 10542}# | |
| df40b969 | 29027 | (@apply |
| 014de9e2 AW |
29028 | (lambda (#{body 10545}# #{binding 10546}#) |
| 29029 | (list '#(syntax-object | |
| 29030 | let | |
| 29031 | ((top) | |
| 29032 | #(ribcage () () ()) | |
| 29033 | #(ribcage | |
| 29034 | #(body binding) | |
| 29035 | #((top) (top)) | |
| 29036 | #("i10543" "i10544")) | |
| 29037 | #(ribcage () () ()) | |
| 29038 | #(ribcage | |
| 29039 | #(f bindings) | |
| 29040 | #((top) (top)) | |
| 29041 | #("i10533" "i10534")) | |
| 29042 | #(ribcage | |
| 29043 | #(let* x v e1 e2) | |
| 29044 | #((top) (top) (top) (top) (top)) | |
| 29045 | #("i10523" | |
| 29046 | "i10524" | |
| 29047 | "i10525" | |
| 29048 | "i10526" | |
| 29049 | "i10527")) | |
| 29050 | #(ribcage () () ()) | |
| 29051 | #(ribcage | |
| 29052 | #(x) | |
| 29053 | #((top)) | |
| 29054 | #("i10509"))) | |
| 29055 | (hygiene guile)) | |
| 29056 | (list #{binding 10546}#) | |
| 29057 | #{body 10545}#)) | |
| 29058 | #{tmp 10542}#) | |
| 29059 | (syntax-violation | |
| 29060 | #f | |
| 29061 | "source expression failed to match any pattern" | |
| 29062 | #{tmp 10541}#)))))))) | |
| 29063 | (#{f 10535}# (map list #{x 10529}# #{v 10530}#)))) | |
| 29064 | #{tmp 10511}#) | |
| 29065 | (syntax-violation | |
| 29066 | #f | |
| 29067 | "source expression failed to match any pattern" | |
| 29068 | #{x 10508}#)))))) | |
| 29069 | ||
| 29070 | (define do | |
| 29071 | (make-syntax-transformer | |
| 29072 | 'do | |
| 29073 | 'macro | |
| 29074 | (lambda (#{orig-x 10548}#) | |
| 29075 | (let ((#{tmp 10551}# | |
| 29076 | ($sc-dispatch | |
| 29077 | #{orig-x 10548}# | |
| 29078 | '(_ #(each (any any . any)) | |
| 29079 | (any . each-any) | |
| 29080 | . | |
| 29081 | each-any)))) | |
| 29082 | (if #{tmp 10551}# | |
| 29083 | (@apply | |
| 29084 | (lambda (#{var 10558}# | |
| 29085 | #{init 10559}# | |
| 29086 | #{step 10560}# | |
| 29087 | #{e0 10561}# | |
| 29088 | #{e1 10562}# | |
| 29089 | #{c 10563}#) | |
| 29090 | (let ((#{tmp 10565}# | |
| 29091 | (map (lambda (#{v 10586}# #{s 10587}#) | |
| 29092 | (let ((#{tmp 10591}# | |
| 29093 | ($sc-dispatch #{s 10587}# '()))) | |
| 29094 | (if #{tmp 10591}# | |
| 29095 | (@apply (lambda () #{v 10586}#) #{tmp 10591}#) | |
| 29096 | (let ((#{tmp 10592}# | |
| 29097 | ($sc-dispatch #{s 10587}# '(any)))) | |
| 29098 | (if #{tmp 10592}# | |
| 29099 | (@apply | |
| 29100 | (lambda (#{e 10594}#) #{e 10594}#) | |
| 29101 | #{tmp 10592}#) | |
| 29102 | (syntax-violation | |
| 29103 | 'do | |
| 29104 | "bad step expression" | |
| 29105 | #{orig-x 10548}# | |
| 29106 | #{s 10587}#)))))) | |
| 29107 | #{var 10558}# | |
| 29108 | #{step 10560}#))) | |
| 29109 | (let ((#{tmp 10566}# | |
| 29110 | ($sc-dispatch #{tmp 10565}# 'each-any))) | |
| 29111 | (if #{tmp 10566}# | |
| 29112 | (@apply | |
| 29113 | (lambda (#{step 10568}#) | |
| 29114 | (let ((#{tmp 10570}# ($sc-dispatch #{e1 10562}# '()))) | |
| 29115 | (if #{tmp 10570}# | |
| 29116 | (@apply | |
| 29117 | (lambda () | |
| 29118 | (list '#(syntax-object | |
| 29119 | let | |
| 29120 | ((top) | |
| 29121 | #(ribcage () () ()) | |
| 29122 | #(ribcage | |
| 29123 | #(step) | |
| 29124 | #((top)) | |
| 29125 | #("i10567")) | |
| 29126 | #(ribcage | |
| 29127 | #(var init step e0 e1 c) | |
| 29128 | #((top) | |
| 29129 | (top) | |
| 29130 | (top) | |
| 29131 | (top) | |
| 29132 | (top) | |
| 29133 | (top)) | |
| 29134 | #("i10552" | |
| 29135 | "i10553" | |
| 29136 | "i10554" | |
| 29137 | "i10555" | |
| 29138 | "i10556" | |
| 29139 | "i10557")) | |
| 29140 | #(ribcage () () ()) | |
| 29141 | #(ribcage | |
| 29142 | #(orig-x) | |
| 29143 | #((top)) | |
| 29144 | #("i10549"))) | |
| 29145 | (hygiene guile)) | |
| 29146 | '#(syntax-object | |
| 29147 | doloop | |
| 29148 | ((top) | |
| 29149 | #(ribcage () () ()) | |
| 29150 | #(ribcage | |
| 29151 | #(step) | |
| 29152 | #((top)) | |
| 29153 | #("i10567")) | |
| 29154 | #(ribcage | |
| 29155 | #(var init step e0 e1 c) | |
| 29156 | #((top) | |
| 29157 | (top) | |
| 29158 | (top) | |
| 29159 | (top) | |
| 29160 | (top) | |
| 29161 | (top)) | |
| 29162 | #("i10552" | |
| 29163 | "i10553" | |
| 29164 | "i10554" | |
| 29165 | "i10555" | |
| 29166 | "i10556" | |
| 29167 | "i10557")) | |
| 29168 | #(ribcage () () ()) | |
| 29169 | #(ribcage | |
| 29170 | #(orig-x) | |
| 29171 | #((top)) | |
| 29172 | #("i10549"))) | |
| 29173 | (hygiene guile)) | |
| 29174 | (map list #{var 10558}# #{init 10559}#) | |
| 29175 | (list '#(syntax-object | |
| 29176 | if | |
| 29177 | ((top) | |
| 29178 | #(ribcage () () ()) | |
| 29179 | #(ribcage | |
| 29180 | #(step) | |
| 29181 | #((top)) | |
| 29182 | #("i10567")) | |
| 29183 | #(ribcage | |
| 29184 | #(var init step e0 e1 c) | |
| 29185 | #((top) | |
| 29186 | (top) | |
| 29187 | (top) | |
| 29188 | (top) | |
| 29189 | (top) | |
| 29190 | (top)) | |
| 29191 | #("i10552" | |
| 29192 | "i10553" | |
| 29193 | "i10554" | |
| 29194 | "i10555" | |
| 29195 | "i10556" | |
| 29196 | "i10557")) | |
| 29197 | #(ribcage () () ()) | |
| 29198 | #(ribcage | |
| 29199 | #(orig-x) | |
| 29200 | #((top)) | |
| 29201 | #("i10549"))) | |
| 29202 | (hygiene guile)) | |
| 29203 | (list '#(syntax-object | |
| 29204 | not | |
| 0f550375 | 29205 | ((top) |
| 014de9e2 | 29206 | #(ribcage () () ()) |
| df40b969 | 29207 | #(ribcage |
| 014de9e2 | 29208 | #(step) |
| df40b969 | 29209 | #((top)) |
| 014de9e2 | 29210 | #("i10567")) |
| df40b969 | 29211 | #(ribcage |
| 014de9e2 AW |
29212 | #(var |
| 29213 | init | |
| 29214 | step | |
| 29215 | e0 | |
| 29216 | e1 | |
| 29217 | c) | |
| 29218 | #((top) | |
| 29219 | (top) | |
| 29220 | (top) | |
| 29221 | (top) | |
| 29222 | (top) | |
| 29223 | (top)) | |
| 29224 | #("i10552" | |
| 29225 | "i10553" | |
| 29226 | "i10554" | |
| 29227 | "i10555" | |
| 29228 | "i10556" | |
| 29229 | "i10557")) | |
| df40b969 AW |
29230 | #(ribcage () () ()) |
| 29231 | #(ribcage | |
| 014de9e2 AW |
29232 | #(orig-x) |
| 29233 | #((top)) | |
| 29234 | #("i10549"))) | |
| df40b969 | 29235 | (hygiene guile)) |
| 014de9e2 AW |
29236 | #{e0 10561}#) |
| 29237 | (cons '#(syntax-object | |
| 29238 | begin | |
| 0f550375 | 29239 | ((top) |
| 014de9e2 | 29240 | #(ribcage () () ()) |
| df40b969 | 29241 | #(ribcage |
| 014de9e2 | 29242 | #(step) |
| df40b969 | 29243 | #((top)) |
| 014de9e2 | 29244 | #("i10567")) |
| df40b969 | 29245 | #(ribcage |
| 014de9e2 AW |
29246 | #(var |
| 29247 | init | |
| 29248 | step | |
| 29249 | e0 | |
| 29250 | e1 | |
| 29251 | c) | |
| 29252 | #((top) | |
| 29253 | (top) | |
| 29254 | (top) | |
| 29255 | (top) | |
| 29256 | (top) | |
| 29257 | (top)) | |
| 29258 | #("i10552" | |
| 29259 | "i10553" | |
| 29260 | "i10554" | |
| 29261 | "i10555" | |
| 29262 | "i10556" | |
| 29263 | "i10557")) | |
| df40b969 AW |
29264 | #(ribcage () () ()) |
| 29265 | #(ribcage | |
| 014de9e2 AW |
29266 | #(orig-x) |
| 29267 | #((top)) | |
| 29268 | #("i10549"))) | |
| 29269 | (hygiene guile)) | |
| 29270 | (append | |
| 29271 | #{c 10563}# | |
| 29272 | (list (cons '#(syntax-object | |
| 29273 | doloop | |
| 29274 | ((top) | |
| 29275 | #(ribcage | |
| 29276 | () | |
| 29277 | () | |
| 29278 | ()) | |
| 29279 | #(ribcage | |
| 29280 | #(step) | |
| 29281 | #((top)) | |
| 29282 | #("i10567")) | |
| 29283 | #(ribcage | |
| 29284 | #(var | |
| 29285 | init | |
| 29286 | step | |
| 29287 | e0 | |
| 29288 | e1 | |
| 29289 | c) | |
| 29290 | #((top) | |
| 29291 | (top) | |
| 29292 | (top) | |
| 29293 | (top) | |
| 29294 | (top) | |
| 29295 | (top)) | |
| 29296 | #("i10552" | |
| 29297 | "i10553" | |
| 29298 | "i10554" | |
| 29299 | "i10555" | |
| 29300 | "i10556" | |
| 29301 | "i10557")) | |
| 29302 | #(ribcage | |
| 29303 | () | |
| 29304 | () | |
| 29305 | ()) | |
| 29306 | #(ribcage | |
| 29307 | #(orig-x) | |
| 29308 | #((top)) | |
| 29309 | #("i10549"))) | |
| 29310 | (hygiene | |
| 29311 | guile)) | |
| 29312 | #{step 10568}#))))))) | |
| 29313 | #{tmp 10570}#) | |
| 29314 | (let ((#{tmp 10575}# | |
| 29315 | ($sc-dispatch | |
| 29316 | #{e1 10562}# | |
| 29317 | '(any . each-any)))) | |
| 29318 | (if #{tmp 10575}# | |
| 29319 | (@apply | |
| 29320 | (lambda (#{e1 10578}# #{e2 10579}#) | |
| 29321 | (list '#(syntax-object | |
| 29322 | let | |
| 29323 | ((top) | |
| 29324 | #(ribcage | |
| 29325 | #(e1 e2) | |
| 29326 | #((top) (top)) | |
| 29327 | #("i10576" "i10577")) | |
| 29328 | #(ribcage () () ()) | |
| 29329 | #(ribcage | |
| 29330 | #(step) | |
| 29331 | #((top)) | |
| 29332 | #("i10567")) | |
| 29333 | #(ribcage | |
| 29334 | #(var init step e0 e1 c) | |
| 29335 | #((top) | |
| 29336 | (top) | |
| 29337 | (top) | |
| 29338 | (top) | |
| 29339 | (top) | |
| 29340 | (top)) | |
| 29341 | #("i10552" | |
| 29342 | "i10553" | |
| 29343 | "i10554" | |
| 29344 | "i10555" | |
| 29345 | "i10556" | |
| 29346 | "i10557")) | |
| 29347 | #(ribcage () () ()) | |
| 29348 | #(ribcage | |
| 29349 | #(orig-x) | |
| 29350 | #((top)) | |
| 29351 | #("i10549"))) | |
| 29352 | (hygiene guile)) | |
| 29353 | '#(syntax-object | |
| 29354 | doloop | |
| 29355 | ((top) | |
| 29356 | #(ribcage | |
| 29357 | #(e1 e2) | |
| 29358 | #((top) (top)) | |
| 29359 | #("i10576" "i10577")) | |
| 29360 | #(ribcage () () ()) | |
| 29361 | #(ribcage | |
| 29362 | #(step) | |
| 29363 | #((top)) | |
| 29364 | #("i10567")) | |
| 29365 | #(ribcage | |
| 29366 | #(var init step e0 e1 c) | |
| 29367 | #((top) | |
| 29368 | (top) | |
| 29369 | (top) | |
| 29370 | (top) | |
| 29371 | (top) | |
| 29372 | (top)) | |
| 29373 | #("i10552" | |
| 29374 | "i10553" | |
| 29375 | "i10554" | |
| 29376 | "i10555" | |
| 29377 | "i10556" | |
| 29378 | "i10557")) | |
| 29379 | #(ribcage () () ()) | |
| 29380 | #(ribcage | |
| 29381 | #(orig-x) | |
| 29382 | #((top)) | |
| 29383 | #("i10549"))) | |
| 29384 | (hygiene guile)) | |
| 29385 | (map list | |
| 29386 | #{var 10558}# | |
| 29387 | #{init 10559}#) | |
| df40b969 | 29388 | (list '#(syntax-object |
| 014de9e2 | 29389 | if |
| df40b969 AW |
29390 | ((top) |
| 29391 | #(ribcage | |
| 014de9e2 | 29392 | #(e1 e2) |
| df40b969 | 29393 | #((top) (top)) |
| 014de9e2 | 29394 | #("i10576" "i10577")) |
| df40b969 AW |
29395 | #(ribcage () () ()) |
| 29396 | #(ribcage | |
| 014de9e2 AW |
29397 | #(step) |
| 29398 | #((top)) | |
| 29399 | #("i10567")) | |
| df40b969 | 29400 | #(ribcage |
| 014de9e2 AW |
29401 | #(var init step e0 e1 c) |
| 29402 | #((top) | |
| 29403 | (top) | |
| 29404 | (top) | |
| 29405 | (top) | |
| 29406 | (top) | |
| 29407 | (top)) | |
| 29408 | #("i10552" | |
| 29409 | "i10553" | |
| 29410 | "i10554" | |
| 29411 | "i10555" | |
| 29412 | "i10556" | |
| 29413 | "i10557")) | |
| 29414 | #(ribcage () () ()) | |
| 29415 | #(ribcage | |
| 29416 | #(orig-x) | |
| 29417 | #((top)) | |
| 29418 | #("i10549"))) | |
| df40b969 | 29419 | (hygiene guile)) |
| 014de9e2 AW |
29420 | #{e0 10561}# |
| 29421 | (cons '#(syntax-object | |
| 29422 | begin | |
| 29423 | ((top) | |
| 29424 | #(ribcage | |
| 29425 | #(e1 e2) | |
| 29426 | #((top) (top)) | |
| 29427 | #("i10576" | |
| 29428 | "i10577")) | |
| 29429 | #(ribcage () () ()) | |
| 29430 | #(ribcage | |
| 29431 | #(step) | |
| 29432 | #((top)) | |
| 29433 | #("i10567")) | |
| 29434 | #(ribcage | |
| 29435 | #(var | |
| 29436 | init | |
| 29437 | step | |
| 29438 | e0 | |
| 29439 | e1 | |
| 29440 | c) | |
| 29441 | #((top) | |
| 29442 | (top) | |
| 29443 | (top) | |
| 29444 | (top) | |
| 29445 | (top) | |
| 29446 | (top)) | |
| 29447 | #("i10552" | |
| 29448 | "i10553" | |
| 29449 | "i10554" | |
| 29450 | "i10555" | |
| 29451 | "i10556" | |
| 29452 | "i10557")) | |
| 29453 | #(ribcage () () ()) | |
| 29454 | #(ribcage | |
| 29455 | #(orig-x) | |
| 29456 | #((top)) | |
| 29457 | #("i10549"))) | |
| 29458 | (hygiene guile)) | |
| 29459 | (cons #{e1 10578}# | |
| 29460 | #{e2 10579}#)) | |
| 29461 | (cons '#(syntax-object | |
| 29462 | begin | |
| 29463 | ((top) | |
| 29464 | #(ribcage | |
| 29465 | #(e1 e2) | |
| 29466 | #((top) (top)) | |
| 29467 | #("i10576" | |
| 29468 | "i10577")) | |
| 29469 | #(ribcage () () ()) | |
| 29470 | #(ribcage | |
| 29471 | #(step) | |
| 29472 | #((top)) | |
| 29473 | #("i10567")) | |
| 29474 | #(ribcage | |
| 29475 | #(var | |
| 29476 | init | |
| 29477 | step | |
| 29478 | e0 | |
| 29479 | e1 | |
| 29480 | c) | |
| 29481 | #((top) | |
| 29482 | (top) | |
| 29483 | (top) | |
| 29484 | (top) | |
| 29485 | (top) | |
| 29486 | (top)) | |
| 29487 | #("i10552" | |
| 29488 | "i10553" | |
| 29489 | "i10554" | |
| 29490 | "i10555" | |
| 29491 | "i10556" | |
| 29492 | "i10557")) | |
| 29493 | #(ribcage () () ()) | |
| 29494 | #(ribcage | |
| 29495 | #(orig-x) | |
| 29496 | #((top)) | |
| 29497 | #("i10549"))) | |
| 29498 | (hygiene guile)) | |
| 29499 | (append | |
| 29500 | #{c 10563}# | |
| 29501 | (list (cons '#(syntax-object | |
| 29502 | doloop | |
| 29503 | ((top) | |
| 29504 | #(ribcage | |
| 29505 | #(e1 | |
| 29506 | e2) | |
| 29507 | #((top) | |
| 29508 | (top)) | |
| 29509 | #("i10576" | |
| 29510 | "i10577")) | |
| 29511 | #(ribcage | |
| 29512 | () | |
| 29513 | () | |
| 29514 | ()) | |
| 29515 | #(ribcage | |
| 29516 | #(step) | |
| 29517 | #((top)) | |
| 29518 | #("i10567")) | |
| 29519 | #(ribcage | |
| 29520 | #(var | |
| 29521 | init | |
| 29522 | step | |
| 29523 | e0 | |
| 29524 | e1 | |
| 29525 | c) | |
| 29526 | #((top) | |
| 29527 | (top) | |
| 29528 | (top) | |
| 29529 | (top) | |
| 29530 | (top) | |
| 29531 | (top)) | |
| 29532 | #("i10552" | |
| 29533 | "i10553" | |
| 29534 | "i10554" | |
| 29535 | "i10555" | |
| 29536 | "i10556" | |
| 29537 | "i10557")) | |
| 29538 | #(ribcage | |
| 29539 | () | |
| 29540 | () | |
| 29541 | ()) | |
| 29542 | #(ribcage | |
| 29543 | #(orig-x) | |
| 29544 | #((top)) | |
| 29545 | #("i10549"))) | |
| 29546 | (hygiene | |
| 29547 | guile)) | |
| 29548 | #{step 10568}#))))))) | |
| 29549 | #{tmp 10575}#) | |
| 29550 | (syntax-violation | |
| 29551 | #f | |
| 29552 | "source expression failed to match any pattern" | |
| 29553 | #{e1 10562}#)))))) | |
| 29554 | #{tmp 10566}#) | |
| 29555 | (syntax-violation | |
| 29556 | #f | |
| 29557 | "source expression failed to match any pattern" | |
| 29558 | #{tmp 10565}#))))) | |
| 29559 | #{tmp 10551}#) | |
| 29560 | (syntax-violation | |
| 29561 | #f | |
| 29562 | "source expression failed to match any pattern" | |
| 29563 | #{orig-x 10548}#)))))) | |
| 29564 | ||
| 29565 | (define quasiquote | |
| 29566 | (make-syntax-transformer | |
| 29567 | 'quasiquote | |
| 29568 | 'macro | |
| 29569 | (letrec* | |
| 29570 | ((#{quasi 10600}# | |
| 29571 | (lambda (#{p 10613}# #{lev 10614}#) | |
| 29572 | (let ((#{tmp 10618}# | |
| 29573 | ($sc-dispatch | |
| 29574 | #{p 10613}# | |
| 29575 | '(#(free-id | |
| 29576 | #(syntax-object | |
| 29577 | unquote | |
| 29578 | ((top) | |
| 29579 | #(ribcage () () ()) | |
| 29580 | #(ribcage | |
| 29581 | #(p lev) | |
| 29582 | #((top) (top)) | |
| 29583 | #("i10615" "i10616")) | |
| 29584 | #(ribcage | |
| 29585 | (emit quasivector | |
| 29586 | quasilist* | |
| 29587 | quasiappend | |
| 29588 | quasicons | |
| 29589 | vquasi | |
| 29590 | quasi) | |
| 29591 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29592 | ("i10611" | |
| 29593 | "i10609" | |
| 29594 | "i10607" | |
| 29595 | "i10605" | |
| 29596 | "i10603" | |
| 29597 | "i10601" | |
| 29598 | "i10599"))) | |
| 29599 | (hygiene guile))) | |
| 29600 | any)))) | |
| 29601 | (if #{tmp 10618}# | |
| 29602 | (@apply | |
| 29603 | (lambda (#{p 10620}#) | |
| 29604 | (if (= #{lev 10614}# 0) | |
| 29605 | (list '#(syntax-object | |
| 29606 | "value" | |
| 29607 | ((top) | |
| 29608 | #(ribcage #(p) #((top)) #("i10619")) | |
| 29609 | #(ribcage () () ()) | |
| 29610 | #(ribcage | |
| 29611 | #(p lev) | |
| 29612 | #((top) (top)) | |
| 29613 | #("i10615" "i10616")) | |
| 29614 | #(ribcage | |
| 29615 | (emit quasivector | |
| 29616 | quasilist* | |
| 29617 | quasiappend | |
| 29618 | quasicons | |
| 29619 | vquasi | |
| 29620 | quasi) | |
| 29621 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29622 | ("i10611" | |
| 29623 | "i10609" | |
| 29624 | "i10607" | |
| 29625 | "i10605" | |
| 29626 | "i10603" | |
| 29627 | "i10601" | |
| 29628 | "i10599"))) | |
| 29629 | (hygiene guile)) | |
| 29630 | #{p 10620}#) | |
| 29631 | (#{quasicons 10604}# | |
| 29632 | '(#(syntax-object | |
| 29633 | "quote" | |
| 29634 | ((top) | |
| 29635 | #(ribcage #(p) #((top)) #("i10619")) | |
| 29636 | #(ribcage () () ()) | |
| 29637 | #(ribcage | |
| 29638 | #(p lev) | |
| 29639 | #((top) (top)) | |
| 29640 | #("i10615" "i10616")) | |
| 29641 | #(ribcage | |
| 29642 | (emit quasivector | |
| 29643 | quasilist* | |
| 29644 | quasiappend | |
| 29645 | quasicons | |
| 29646 | vquasi | |
| 29647 | quasi) | |
| 29648 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29649 | ("i10611" | |
| 29650 | "i10609" | |
| 29651 | "i10607" | |
| 29652 | "i10605" | |
| 29653 | "i10603" | |
| 29654 | "i10601" | |
| 29655 | "i10599"))) | |
| 29656 | (hygiene guile)) | |
| 29657 | #(syntax-object | |
| 29658 | unquote | |
| 29659 | ((top) | |
| 29660 | #(ribcage #(p) #((top)) #("i10619")) | |
| 29661 | #(ribcage () () ()) | |
| 29662 | #(ribcage | |
| 29663 | #(p lev) | |
| 29664 | #((top) (top)) | |
| 29665 | #("i10615" "i10616")) | |
| 29666 | #(ribcage | |
| 29667 | (emit quasivector | |
| 29668 | quasilist* | |
| 29669 | quasiappend | |
| 29670 | quasicons | |
| 29671 | vquasi | |
| 29672 | quasi) | |
| 29673 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29674 | ("i10611" | |
| 29675 | "i10609" | |
| 29676 | "i10607" | |
| 29677 | "i10605" | |
| 29678 | "i10603" | |
| 29679 | "i10601" | |
| 29680 | "i10599"))) | |
| 29681 | (hygiene guile))) | |
| 29682 | (#{quasi 10600}# | |
| 29683 | (list #{p 10620}#) | |
| 29684 | (#{1-}# #{lev 10614}#))))) | |
| 29685 | #{tmp 10618}#) | |
| 29686 | (let ((#{tmp 10621}# | |
| 29687 | ($sc-dispatch | |
| 29688 | #{p 10613}# | |
| 29689 | '(#(free-id | |
| 29690 | #(syntax-object | |
| 29691 | quasiquote | |
| 29692 | ((top) | |
| 29693 | #(ribcage () () ()) | |
| 29694 | #(ribcage | |
| 29695 | #(p lev) | |
| 29696 | #((top) (top)) | |
| 29697 | #("i10615" "i10616")) | |
| 29698 | #(ribcage | |
| 29699 | (emit quasivector | |
| 29700 | quasilist* | |
| 29701 | quasiappend | |
| 29702 | quasicons | |
| 29703 | vquasi | |
| 29704 | quasi) | |
| 29705 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29706 | ("i10611" | |
| 29707 | "i10609" | |
| 29708 | "i10607" | |
| 29709 | "i10605" | |
| 29710 | "i10603" | |
| 29711 | "i10601" | |
| 29712 | "i10599"))) | |
| 29713 | (hygiene guile))) | |
| 29714 | any)))) | |
| 29715 | (if #{tmp 10621}# | |
| 29716 | (@apply | |
| 29717 | (lambda (#{p 10623}#) | |
| 29718 | (#{quasicons 10604}# | |
| 29719 | '(#(syntax-object | |
| 29720 | "quote" | |
| 29721 | ((top) | |
| 29722 | #(ribcage #(p) #((top)) #("i10622")) | |
| 29723 | #(ribcage () () ()) | |
| 29724 | #(ribcage | |
| 29725 | #(p lev) | |
| 29726 | #((top) (top)) | |
| 29727 | #("i10615" "i10616")) | |
| 29728 | #(ribcage | |
| 29729 | (emit quasivector | |
| 29730 | quasilist* | |
| 29731 | quasiappend | |
| 29732 | quasicons | |
| 29733 | vquasi | |
| 29734 | quasi) | |
| 29735 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29736 | ("i10611" | |
| 29737 | "i10609" | |
| 29738 | "i10607" | |
| 29739 | "i10605" | |
| 29740 | "i10603" | |
| 29741 | "i10601" | |
| 29742 | "i10599"))) | |
| 29743 | (hygiene guile)) | |
| 29744 | #(syntax-object | |
| 29745 | quasiquote | |
| 29746 | ((top) | |
| 29747 | #(ribcage #(p) #((top)) #("i10622")) | |
| 29748 | #(ribcage () () ()) | |
| 29749 | #(ribcage | |
| 29750 | #(p lev) | |
| 29751 | #((top) (top)) | |
| 29752 | #("i10615" "i10616")) | |
| 29753 | #(ribcage | |
| 29754 | (emit quasivector | |
| 29755 | quasilist* | |
| 29756 | quasiappend | |
| 29757 | quasicons | |
| 29758 | vquasi | |
| 29759 | quasi) | |
| 29760 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 29761 | ("i10611" | |
| 29762 | "i10609" | |
| 29763 | "i10607" | |
| 29764 | "i10605" | |
| 29765 | "i10603" | |
| 29766 | "i10601" | |
| 29767 | "i10599"))) | |
| 29768 | (hygiene guile))) | |
| 29769 | (#{quasi 10600}# | |
| 29770 | (list #{p 10623}#) | |
| 29771 | (#{1+}# #{lev 10614}#)))) | |
| 29772 | #{tmp 10621}#) | |
| 29773 | (let ((#{tmp 10624}# | |
| 29774 | ($sc-dispatch #{p 10613}# '(any . any)))) | |
| 29775 | (if #{tmp 10624}# | |
| 29776 | (@apply | |
| 29777 | (lambda (#{p 10627}# #{q 10628}#) | |
| 29778 | (let ((#{tmp 10630}# | |
| 29779 | ($sc-dispatch | |
| 29780 | #{p 10627}# | |
| 29781 | '(#(free-id | |
| 29782 | #(syntax-object | |
| 29783 | unquote | |
| 29784 | ((top) | |
| 29785 | #(ribcage | |
| 29786 | #(p q) | |
| 29787 | #((top) (top)) | |
| 29788 | #("i10625" "i10626")) | |
| 29789 | #(ribcage () () ()) | |
| 29790 | #(ribcage | |
| 29791 | #(p lev) | |
| 29792 | #((top) (top)) | |
| 29793 | #("i10615" "i10616")) | |
| 29794 | #(ribcage | |
| 29795 | (emit quasivector | |
| 29796 | quasilist* | |
| 29797 | quasiappend | |
| 29798 | quasicons | |
| 29799 | vquasi | |
| 29800 | quasi) | |
| 29801 | ((top) | |
| 29802 | (top) | |
| 29803 | (top) | |
| 29804 | (top) | |
| 29805 | (top) | |
| 29806 | (top) | |
| 29807 | (top)) | |
| 29808 | ("i10611" | |
| 29809 | "i10609" | |
| 29810 | "i10607" | |
| 29811 | "i10605" | |
| 29812 | "i10603" | |
| 29813 | "i10601" | |
| 29814 | "i10599"))) | |
| 29815 | (hygiene guile))) | |
| 29816 | . | |
| 29817 | each-any)))) | |
| 29818 | (if #{tmp 10630}# | |
| 29819 | (@apply | |
| 29820 | (lambda (#{p 10632}#) | |
| 29821 | (if (= #{lev 10614}# 0) | |
| 29822 | (#{quasilist* 10608}# | |
| 29823 | (map (lambda (#{tmp 10633}#) | |
| 29824 | (list '#(syntax-object | |
| 29825 | "value" | |
| 29826 | ((top) | |
| 29827 | #(ribcage | |
| 29828 | #(p) | |
| 29829 | #((top)) | |
| 29830 | #("i10631")) | |
| 29831 | #(ribcage | |
| 29832 | #(p q) | |
| 29833 | #((top) (top)) | |
| 29834 | #("i10625" "i10626")) | |
| 29835 | #(ribcage () () ()) | |
| 29836 | #(ribcage | |
| 29837 | #(p lev) | |
| 29838 | #((top) (top)) | |
| 29839 | #("i10615" "i10616")) | |
| 29840 | #(ribcage | |
| 29841 | (emit quasivector | |
| 29842 | quasilist* | |
| 29843 | quasiappend | |
| 29844 | quasicons | |
| 29845 | vquasi | |
| 29846 | quasi) | |
| 29847 | ((top) | |
| 29848 | (top) | |
| 29849 | (top) | |
| 29850 | (top) | |
| 29851 | (top) | |
| 29852 | (top) | |
| 29853 | (top)) | |
| 29854 | ("i10611" | |
| 29855 | "i10609" | |
| 29856 | "i10607" | |
| 29857 | "i10605" | |
| 29858 | "i10603" | |
| 29859 | "i10601" | |
| 29860 | "i10599"))) | |
| 29861 | (hygiene guile)) | |
| 29862 | #{tmp 10633}#)) | |
| 29863 | #{p 10632}#) | |
| 29864 | (#{quasi 10600}# | |
| 29865 | #{q 10628}# | |
| 29866 | #{lev 10614}#)) | |
| 29867 | (#{quasicons 10604}# | |
| 29868 | (#{quasicons 10604}# | |
| 29869 | '(#(syntax-object | |
| 29870 | "quote" | |
| 29871 | ((top) | |
| 29872 | #(ribcage | |
| 29873 | #(p) | |
| 29874 | #((top)) | |
| 29875 | #("i10631")) | |
| 29876 | #(ribcage | |
| 29877 | #(p q) | |
| 29878 | #((top) (top)) | |
| 29879 | #("i10625" "i10626")) | |
| 29880 | #(ribcage () () ()) | |
| 29881 | #(ribcage | |
| 29882 | #(p lev) | |
| 29883 | #((top) (top)) | |
| 29884 | #("i10615" "i10616")) | |
| 29885 | #(ribcage | |
| 29886 | (emit quasivector | |
| 29887 | quasilist* | |
| 29888 | quasiappend | |
| 29889 | quasicons | |
| 29890 | vquasi | |
| 29891 | quasi) | |
| 29892 | ((top) | |
| 29893 | (top) | |
| 29894 | (top) | |
| 29895 | (top) | |
| 29896 | (top) | |
| 29897 | (top) | |
| 29898 | (top)) | |
| 29899 | ("i10611" | |
| 29900 | "i10609" | |
| 29901 | "i10607" | |
| 29902 | "i10605" | |
| 29903 | "i10603" | |
| 29904 | "i10601" | |
| 29905 | "i10599"))) | |
| 29906 | (hygiene guile)) | |
| df40b969 | 29907 | #(syntax-object |
| 014de9e2 | 29908 | unquote |
| df40b969 | 29909 | ((top) |
| 014de9e2 AW |
29910 | #(ribcage |
| 29911 | #(p) | |
| 29912 | #((top)) | |
| 29913 | #("i10631")) | |
| df40b969 AW |
29914 | #(ribcage |
| 29915 | #(p q) | |
| 29916 | #((top) (top)) | |
| 014de9e2 | 29917 | #("i10625" "i10626")) |
| df40b969 AW |
29918 | #(ribcage () () ()) |
| 29919 | #(ribcage | |
| 29920 | #(p lev) | |
| 29921 | #((top) (top)) | |
| 014de9e2 | 29922 | #("i10615" "i10616")) |
| df40b969 AW |
29923 | #(ribcage |
| 29924 | (emit quasivector | |
| 29925 | quasilist* | |
| 29926 | quasiappend | |
| 29927 | quasicons | |
| 29928 | vquasi | |
| 29929 | quasi) | |
| 29930 | ((top) | |
| 29931 | (top) | |
| 29932 | (top) | |
| 29933 | (top) | |
| 29934 | (top) | |
| 29935 | (top) | |
| 29936 | (top)) | |
| 014de9e2 AW |
29937 | ("i10611" |
| 29938 | "i10609" | |
| 29939 | "i10607" | |
| 29940 | "i10605" | |
| 29941 | "i10603" | |
| 29942 | "i10601" | |
| 29943 | "i10599"))) | |
| df40b969 | 29944 | (hygiene guile))) |
| 014de9e2 AW |
29945 | (#{quasi 10600}# |
| 29946 | #{p 10632}# | |
| 29947 | (#{1-}# #{lev 10614}#))) | |
| 29948 | (#{quasi 10600}# | |
| 29949 | #{q 10628}# | |
| 29950 | #{lev 10614}#)))) | |
| 29951 | #{tmp 10630}#) | |
| 29952 | (let ((#{tmp 10635}# | |
| 29953 | ($sc-dispatch | |
| 29954 | #{p 10627}# | |
| 29955 | '(#(free-id | |
| df40b969 AW |
29956 | #(syntax-object |
| 29957 | unquote-splicing | |
| 29958 | ((top) | |
| df40b969 AW |
29959 | #(ribcage |
| 29960 | #(p q) | |
| 29961 | #((top) (top)) | |
| 014de9e2 | 29962 | #("i10625" "i10626")) |
| df40b969 AW |
29963 | #(ribcage () () ()) |
| 29964 | #(ribcage | |
| 29965 | #(p lev) | |
| 29966 | #((top) (top)) | |
| 014de9e2 | 29967 | #("i10615" "i10616")) |
| df40b969 AW |
29968 | #(ribcage |
| 29969 | (emit quasivector | |
| 29970 | quasilist* | |
| 29971 | quasiappend | |
| 29972 | quasicons | |
| 29973 | vquasi | |
| 29974 | quasi) | |
| 29975 | ((top) | |
| 29976 | (top) | |
| 29977 | (top) | |
| 014de9e2 AW |
29978 | (top) |
| 29979 | (top) | |
| 29980 | (top) | |
| 29981 | (top)) | |
| 29982 | ("i10611" | |
| 29983 | "i10609" | |
| 29984 | "i10607" | |
| 29985 | "i10605" | |
| 29986 | "i10603" | |
| 29987 | "i10601" | |
| 29988 | "i10599"))) | |
| 29989 | (hygiene guile))) | |
| 29990 | . | |
| 29991 | each-any)))) | |
| 29992 | (if #{tmp 10635}# | |
| 29993 | (@apply | |
| 29994 | (lambda (#{p 10637}#) | |
| 29995 | (if (= #{lev 10614}# 0) | |
| 29996 | (#{quasiappend 10606}# | |
| 29997 | (map (lambda (#{tmp 10638}#) | |
| 29998 | (list '#(syntax-object | |
| 29999 | "value" | |
| 30000 | ((top) | |
| 30001 | #(ribcage | |
| 30002 | #(p) | |
| 30003 | #((top)) | |
| 30004 | #("i10636")) | |
| 30005 | #(ribcage | |
| 30006 | #(p q) | |
| 30007 | #((top) (top)) | |
| 30008 | #("i10625" | |
| 30009 | "i10626")) | |
| 30010 | #(ribcage () () ()) | |
| 30011 | #(ribcage | |
| 30012 | #(p lev) | |
| 30013 | #((top) (top)) | |
| 30014 | #("i10615" | |
| 30015 | "i10616")) | |
| 30016 | #(ribcage | |
| 30017 | (emit quasivector | |
| 30018 | quasilist* | |
| 30019 | quasiappend | |
| 30020 | quasicons | |
| 30021 | vquasi | |
| 30022 | quasi) | |
| 30023 | ((top) | |
| 30024 | (top) | |
| 30025 | (top) | |
| 30026 | (top) | |
| 30027 | (top) | |
| 30028 | (top) | |
| 30029 | (top)) | |
| 30030 | ("i10611" | |
| 30031 | "i10609" | |
| 30032 | "i10607" | |
| 30033 | "i10605" | |
| 30034 | "i10603" | |
| 30035 | "i10601" | |
| 30036 | "i10599"))) | |
| 30037 | (hygiene guile)) | |
| 30038 | #{tmp 10638}#)) | |
| 30039 | #{p 10637}#) | |
| 30040 | (#{quasi 10600}# | |
| 30041 | #{q 10628}# | |
| 30042 | #{lev 10614}#)) | |
| 30043 | (#{quasicons 10604}# | |
| 30044 | (#{quasicons 10604}# | |
| 30045 | '(#(syntax-object | |
| 30046 | "quote" | |
| 30047 | ((top) | |
| 30048 | #(ribcage | |
| 30049 | #(p) | |
| 30050 | #((top)) | |
| 30051 | #("i10636")) | |
| 30052 | #(ribcage | |
| 30053 | #(p q) | |
| 30054 | #((top) (top)) | |
| 30055 | #("i10625" "i10626")) | |
| 30056 | #(ribcage () () ()) | |
| 30057 | #(ribcage | |
| 30058 | #(p lev) | |
| 30059 | #((top) (top)) | |
| 30060 | #("i10615" "i10616")) | |
| 30061 | #(ribcage | |
| 30062 | (emit quasivector | |
| 30063 | quasilist* | |
| 30064 | quasiappend | |
| 30065 | quasicons | |
| 30066 | vquasi | |
| 30067 | quasi) | |
| df40b969 | 30068 | ((top) |
| 014de9e2 AW |
30069 | (top) |
| 30070 | (top) | |
| 30071 | (top) | |
| 30072 | (top) | |
| 30073 | (top) | |
| 30074 | (top)) | |
| 30075 | ("i10611" | |
| 30076 | "i10609" | |
| 30077 | "i10607" | |
| 30078 | "i10605" | |
| 30079 | "i10603" | |
| 30080 | "i10601" | |
| 30081 | "i10599"))) | |
| 30082 | (hygiene guile)) | |
| 30083 | #(syntax-object | |
| 30084 | unquote-splicing | |
| 30085 | ((top) | |
| 30086 | #(ribcage | |
| 30087 | #(p) | |
| 30088 | #((top)) | |
| 30089 | #("i10636")) | |
| 30090 | #(ribcage | |
| 30091 | #(p q) | |
| 30092 | #((top) (top)) | |
| 30093 | #("i10625" "i10626")) | |
| 30094 | #(ribcage () () ()) | |
| 30095 | #(ribcage | |
| 30096 | #(p lev) | |
| 30097 | #((top) (top)) | |
| 30098 | #("i10615" "i10616")) | |
| 30099 | #(ribcage | |
| 30100 | (emit quasivector | |
| 30101 | quasilist* | |
| 30102 | quasiappend | |
| 30103 | quasicons | |
| 30104 | vquasi | |
| 30105 | quasi) | |
| 30106 | ((top) | |
| 30107 | (top) | |
| 30108 | (top) | |
| 30109 | (top) | |
| 30110 | (top) | |
| 30111 | (top) | |
| 30112 | (top)) | |
| 30113 | ("i10611" | |
| 30114 | "i10609" | |
| 30115 | "i10607" | |
| 30116 | "i10605" | |
| 30117 | "i10603" | |
| 30118 | "i10601" | |
| 30119 | "i10599"))) | |
| 30120 | (hygiene guile))) | |
| 30121 | (#{quasi 10600}# | |
| 30122 | #{p 10637}# | |
| 30123 | (#{1-}# #{lev 10614}#))) | |
| 30124 | (#{quasi 10600}# | |
| 30125 | #{q 10628}# | |
| 30126 | #{lev 10614}#)))) | |
| 30127 | #{tmp 10635}#) | |
| 30128 | (#{quasicons 10604}# | |
| 30129 | (#{quasi 10600}# | |
| 30130 | #{p 10627}# | |
| 30131 | #{lev 10614}#) | |
| 30132 | (#{quasi 10600}# | |
| 30133 | #{q 10628}# | |
| 30134 | #{lev 10614}#))))))) | |
| 30135 | #{tmp 10624}#) | |
| 30136 | (let ((#{tmp 10642}# | |
| 30137 | ($sc-dispatch #{p 10613}# '#(vector each-any)))) | |
| 30138 | (if #{tmp 10642}# | |
| 30139 | (@apply | |
| 30140 | (lambda (#{x 10644}#) | |
| 30141 | (#{quasivector 10610}# | |
| 30142 | (#{vquasi 10602}# #{x 10644}# #{lev 10614}#))) | |
| 30143 | #{tmp 10642}#) | |
| 30144 | (list '#(syntax-object | |
| 30145 | "quote" | |
| 30146 | ((top) | |
| 30147 | #(ribcage #(p) #((top)) #("i10646")) | |
| 30148 | #(ribcage () () ()) | |
| 30149 | #(ribcage | |
| 30150 | #(p lev) | |
| 30151 | #((top) (top)) | |
| 30152 | #("i10615" "i10616")) | |
| 30153 | #(ribcage | |
| 30154 | (emit quasivector | |
| 30155 | quasilist* | |
| 30156 | quasiappend | |
| 30157 | quasicons | |
| 30158 | vquasi | |
| 30159 | quasi) | |
| 30160 | ((top) | |
| 30161 | (top) | |
| 30162 | (top) | |
| 30163 | (top) | |
| 30164 | (top) | |
| 30165 | (top) | |
| 30166 | (top)) | |
| 30167 | ("i10611" | |
| 30168 | "i10609" | |
| 30169 | "i10607" | |
| 30170 | "i10605" | |
| 30171 | "i10603" | |
| 30172 | "i10601" | |
| 30173 | "i10599"))) | |
| 30174 | (hygiene guile)) | |
| 30175 | #{p 10613}#))))))))))) | |
| 30176 | (#{vquasi 10602}# | |
| 30177 | (lambda (#{p 10648}# #{lev 10649}#) | |
| 30178 | (let ((#{tmp 10653}# | |
| 30179 | ($sc-dispatch #{p 10648}# '(any . any)))) | |
| 30180 | (if #{tmp 10653}# | |
| 30181 | (@apply | |
| 30182 | (lambda (#{p 10656}# #{q 10657}#) | |
| 30183 | (let ((#{tmp 10659}# | |
| 30184 | ($sc-dispatch | |
| 30185 | #{p 10656}# | |
| 30186 | '(#(free-id | |
| 30187 | #(syntax-object | |
| 30188 | unquote | |
| 30189 | ((top) | |
| 30190 | #(ribcage | |
| 30191 | #(p q) | |
| 30192 | #((top) (top)) | |
| 30193 | #("i10654" "i10655")) | |
| 30194 | #(ribcage () () ()) | |
| 30195 | #(ribcage | |
| 30196 | #(p lev) | |
| 30197 | #((top) (top)) | |
| 30198 | #("i10650" "i10651")) | |
| 30199 | #(ribcage | |
| 30200 | (emit quasivector | |
| 30201 | quasilist* | |
| 30202 | quasiappend | |
| 30203 | quasicons | |
| 30204 | vquasi | |
| 30205 | quasi) | |
| 30206 | ((top) | |
| 30207 | (top) | |
| 30208 | (top) | |
| 30209 | (top) | |
| 30210 | (top) | |
| 30211 | (top) | |
| 30212 | (top)) | |
| 30213 | ("i10611" | |
| 30214 | "i10609" | |
| 30215 | "i10607" | |
| 30216 | "i10605" | |
| 30217 | "i10603" | |
| 30218 | "i10601" | |
| 30219 | "i10599"))) | |
| 30220 | (hygiene guile))) | |
| 30221 | . | |
| 30222 | each-any)))) | |
| 30223 | (if #{tmp 10659}# | |
| 30224 | (@apply | |
| 30225 | (lambda (#{p 10661}#) | |
| 30226 | (if (= #{lev 10649}# 0) | |
| 30227 | (#{quasilist* 10608}# | |
| 30228 | (map (lambda (#{tmp 10662}#) | |
| 30229 | (list '#(syntax-object | |
| 30230 | "value" | |
| 30231 | ((top) | |
| 30232 | #(ribcage | |
| 30233 | #(p) | |
| 30234 | #((top)) | |
| 30235 | #("i10660")) | |
| 30236 | #(ribcage | |
| 30237 | #(p q) | |
| 30238 | #((top) (top)) | |
| 30239 | #("i10654" "i10655")) | |
| 30240 | #(ribcage () () ()) | |
| 30241 | #(ribcage | |
| 30242 | #(p lev) | |
| 30243 | #((top) (top)) | |
| 30244 | #("i10650" "i10651")) | |
| 30245 | #(ribcage | |
| 30246 | (emit quasivector | |
| 30247 | quasilist* | |
| 30248 | quasiappend | |
| 30249 | quasicons | |
| 30250 | vquasi | |
| 30251 | quasi) | |
| 30252 | ((top) | |
| 30253 | (top) | |
| 30254 | (top) | |
| 30255 | (top) | |
| 30256 | (top) | |
| 30257 | (top) | |
| 30258 | (top)) | |
| 30259 | ("i10611" | |
| 30260 | "i10609" | |
| 30261 | "i10607" | |
| 30262 | "i10605" | |
| 30263 | "i10603" | |
| 30264 | "i10601" | |
| 30265 | "i10599"))) | |
| 30266 | (hygiene guile)) | |
| 30267 | #{tmp 10662}#)) | |
| 30268 | #{p 10661}#) | |
| 30269 | (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)) | |
| 30270 | (#{quasicons 10604}# | |
| 30271 | (#{quasicons 10604}# | |
| 30272 | '(#(syntax-object | |
| 30273 | "quote" | |
| 30274 | ((top) | |
| 30275 | #(ribcage #(p) #((top)) #("i10660")) | |
| 30276 | #(ribcage | |
| 30277 | #(p q) | |
| 30278 | #((top) (top)) | |
| 30279 | #("i10654" "i10655")) | |
| 30280 | #(ribcage () () ()) | |
| 30281 | #(ribcage | |
| 30282 | #(p lev) | |
| 30283 | #((top) (top)) | |
| 30284 | #("i10650" "i10651")) | |
| 30285 | #(ribcage | |
| 30286 | (emit quasivector | |
| 30287 | quasilist* | |
| 30288 | quasiappend | |
| 30289 | quasicons | |
| 30290 | vquasi | |
| 30291 | quasi) | |
| 30292 | ((top) | |
| 30293 | (top) | |
| 30294 | (top) | |
| 30295 | (top) | |
| 30296 | (top) | |
| 30297 | (top) | |
| 30298 | (top)) | |
| 30299 | ("i10611" | |
| 30300 | "i10609" | |
| 30301 | "i10607" | |
| 30302 | "i10605" | |
| 30303 | "i10603" | |
| 30304 | "i10601" | |
| 30305 | "i10599"))) | |
| 30306 | (hygiene guile)) | |
| 30307 | #(syntax-object | |
| 30308 | unquote | |
| 30309 | ((top) | |
| 30310 | #(ribcage #(p) #((top)) #("i10660")) | |
| 30311 | #(ribcage | |
| 30312 | #(p q) | |
| 30313 | #((top) (top)) | |
| 30314 | #("i10654" "i10655")) | |
| 30315 | #(ribcage () () ()) | |
| 30316 | #(ribcage | |
| 30317 | #(p lev) | |
| 30318 | #((top) (top)) | |
| 30319 | #("i10650" "i10651")) | |
| 30320 | #(ribcage | |
| 30321 | (emit quasivector | |
| 30322 | quasilist* | |
| 30323 | quasiappend | |
| 30324 | quasicons | |
| 30325 | vquasi | |
| 30326 | quasi) | |
| 30327 | ((top) | |
| 30328 | (top) | |
| 30329 | (top) | |
| 30330 | (top) | |
| 30331 | (top) | |
| 30332 | (top) | |
| 30333 | (top)) | |
| 30334 | ("i10611" | |
| 30335 | "i10609" | |
| 30336 | "i10607" | |
| 30337 | "i10605" | |
| 30338 | "i10603" | |
| 30339 | "i10601" | |
| 30340 | "i10599"))) | |
| 30341 | (hygiene guile))) | |
| 30342 | (#{quasi 10600}# | |
| 30343 | #{p 10661}# | |
| 30344 | (#{1-}# #{lev 10649}#))) | |
| 30345 | (#{vquasi 10602}# #{q 10657}# #{lev 10649}#)))) | |
| 30346 | #{tmp 10659}#) | |
| 30347 | (let ((#{tmp 10664}# | |
| 30348 | ($sc-dispatch | |
| 30349 | #{p 10656}# | |
| 30350 | '(#(free-id | |
| 30351 | #(syntax-object | |
| 30352 | unquote-splicing | |
| 30353 | ((top) | |
| 30354 | #(ribcage | |
| 30355 | #(p q) | |
| 30356 | #((top) (top)) | |
| 30357 | #("i10654" "i10655")) | |
| 30358 | #(ribcage () () ()) | |
| 30359 | #(ribcage | |
| 30360 | #(p lev) | |
| 30361 | #((top) (top)) | |
| 30362 | #("i10650" "i10651")) | |
| 30363 | #(ribcage | |
| 30364 | (emit quasivector | |
| 30365 | quasilist* | |
| 30366 | quasiappend | |
| 30367 | quasicons | |
| 30368 | vquasi | |
| 30369 | quasi) | |
| 30370 | ((top) | |
| 30371 | (top) | |
| 30372 | (top) | |
| 30373 | (top) | |
| 30374 | (top) | |
| 30375 | (top) | |
| 30376 | (top)) | |
| 30377 | ("i10611" | |
| 30378 | "i10609" | |
| 30379 | "i10607" | |
| 30380 | "i10605" | |
| 30381 | "i10603" | |
| 30382 | "i10601" | |
| 30383 | "i10599"))) | |
| 30384 | (hygiene guile))) | |
| 30385 | . | |
| 30386 | each-any)))) | |
| 30387 | (if #{tmp 10664}# | |
| 30388 | (@apply | |
| 30389 | (lambda (#{p 10666}#) | |
| 30390 | (if (= #{lev 10649}# 0) | |
| 30391 | (#{quasiappend 10606}# | |
| 30392 | (map (lambda (#{tmp 10667}#) | |
| 30393 | (list '#(syntax-object | |
| 30394 | "value" | |
| 30395 | ((top) | |
| 30396 | #(ribcage | |
| 30397 | #(p) | |
| 30398 | #((top)) | |
| 30399 | #("i10665")) | |
| 30400 | #(ribcage | |
| 30401 | #(p q) | |
| 30402 | #((top) (top)) | |
| 30403 | #("i10654" "i10655")) | |
| 30404 | #(ribcage () () ()) | |
| 30405 | #(ribcage | |
| 30406 | #(p lev) | |
| 30407 | #((top) (top)) | |
| 30408 | #("i10650" "i10651")) | |
| 30409 | #(ribcage | |
| 30410 | (emit quasivector | |
| 30411 | quasilist* | |
| 30412 | quasiappend | |
| 30413 | quasicons | |
| 30414 | vquasi | |
| 30415 | quasi) | |
| 30416 | ((top) | |
| 30417 | (top) | |
| 30418 | (top) | |
| 30419 | (top) | |
| 30420 | (top) | |
| 30421 | (top) | |
| 30422 | (top)) | |
| 30423 | ("i10611" | |
| 30424 | "i10609" | |
| 30425 | "i10607" | |
| 30426 | "i10605" | |
| 30427 | "i10603" | |
| 30428 | "i10601" | |
| 30429 | "i10599"))) | |
| 30430 | (hygiene guile)) | |
| 30431 | #{tmp 10667}#)) | |
| 30432 | #{p 10666}#) | |
| 30433 | (#{vquasi 10602}# | |
| 30434 | #{q 10657}# | |
| 30435 | #{lev 10649}#)) | |
| 30436 | (#{quasicons 10604}# | |
| 30437 | (#{quasicons 10604}# | |
| 30438 | '(#(syntax-object | |
| 30439 | "quote" | |
| 30440 | ((top) | |
| 30441 | #(ribcage #(p) #((top)) #("i10665")) | |
| 30442 | #(ribcage | |
| 30443 | #(p q) | |
| 30444 | #((top) (top)) | |
| 30445 | #("i10654" "i10655")) | |
| 30446 | #(ribcage () () ()) | |
| 30447 | #(ribcage | |
| 30448 | #(p lev) | |
| 30449 | #((top) (top)) | |
| 30450 | #("i10650" "i10651")) | |
| 30451 | #(ribcage | |
| 30452 | (emit quasivector | |
| 30453 | quasilist* | |
| 30454 | quasiappend | |
| 30455 | quasicons | |
| 30456 | vquasi | |
| 30457 | quasi) | |
| 30458 | ((top) | |
| 30459 | (top) | |
| 30460 | (top) | |
| 30461 | (top) | |
| 30462 | (top) | |
| 30463 | (top) | |
| 30464 | (top)) | |
| 30465 | ("i10611" | |
| 30466 | "i10609" | |
| 30467 | "i10607" | |
| 30468 | "i10605" | |
| 30469 | "i10603" | |
| 30470 | "i10601" | |
| 30471 | "i10599"))) | |
| 30472 | (hygiene guile)) | |
| 30473 | #(syntax-object | |
| 30474 | unquote-splicing | |
| 30475 | ((top) | |
| 30476 | #(ribcage #(p) #((top)) #("i10665")) | |
| 30477 | #(ribcage | |
| 30478 | #(p q) | |
| 30479 | #((top) (top)) | |
| 30480 | #("i10654" "i10655")) | |
| 30481 | #(ribcage () () ()) | |
| 30482 | #(ribcage | |
| 30483 | #(p lev) | |
| 30484 | #((top) (top)) | |
| 30485 | #("i10650" "i10651")) | |
| 30486 | #(ribcage | |
| 30487 | (emit quasivector | |
| 30488 | quasilist* | |
| 30489 | quasiappend | |
| 30490 | quasicons | |
| 30491 | vquasi | |
| 30492 | quasi) | |
| 30493 | ((top) | |
| 30494 | (top) | |
| 30495 | (top) | |
| 30496 | (top) | |
| 30497 | (top) | |
| 30498 | (top) | |
| 30499 | (top)) | |
| 30500 | ("i10611" | |
| 30501 | "i10609" | |
| 30502 | "i10607" | |
| 30503 | "i10605" | |
| 30504 | "i10603" | |
| 30505 | "i10601" | |
| 30506 | "i10599"))) | |
| 30507 | (hygiene guile))) | |
| 30508 | (#{quasi 10600}# | |
| 30509 | #{p 10666}# | |
| 30510 | (#{1-}# #{lev 10649}#))) | |
| 30511 | (#{vquasi 10602}# | |
| 30512 | #{q 10657}# | |
| 30513 | #{lev 10649}#)))) | |
| 30514 | #{tmp 10664}#) | |
| 30515 | (#{quasicons 10604}# | |
| 30516 | (#{quasi 10600}# #{p 10656}# #{lev 10649}#) | |
| 30517 | (#{vquasi 10602}# #{q 10657}# #{lev 10649}#))))))) | |
| 30518 | #{tmp 10653}#) | |
| 30519 | (let ((#{tmp 10671}# ($sc-dispatch #{p 10648}# '()))) | |
| 30520 | (if #{tmp 10671}# | |
| 30521 | (@apply | |
| 30522 | (lambda () | |
| df40b969 AW |
30523 | '(#(syntax-object |
| 30524 | "quote" | |
| 30525 | ((top) | |
| 30526 | #(ribcage () () ()) | |
| 30527 | #(ribcage | |
| 014de9e2 | 30528 | #(p lev) |
| df40b969 | 30529 | #((top) (top)) |
| 014de9e2 | 30530 | #("i10650" "i10651")) |
| df40b969 AW |
30531 | #(ribcage |
| 30532 | (emit quasivector | |
| 30533 | quasilist* | |
| 30534 | quasiappend | |
| 30535 | quasicons | |
| 30536 | vquasi | |
| 30537 | quasi) | |
| 30538 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 014de9e2 AW |
30539 | ("i10611" |
| 30540 | "i10609" | |
| 30541 | "i10607" | |
| 30542 | "i10605" | |
| 30543 | "i10603" | |
| 30544 | "i10601" | |
| 30545 | "i10599"))) | |
| df40b969 | 30546 | (hygiene guile)) |
| 014de9e2 AW |
30547 | ())) |
| 30548 | #{tmp 10671}#) | |
| 30549 | (syntax-violation | |
| 30550 | #f | |
| 30551 | "source expression failed to match any pattern" | |
| 30552 | #{p 10648}#))))))) | |
| 30553 | (#{quasicons 10604}# | |
| 30554 | (lambda (#{x 10672}# #{y 10673}#) | |
| 30555 | (let ((#{tmp 10677}# (list #{x 10672}# #{y 10673}#))) | |
| 30556 | (let ((#{tmp 10678}# | |
| 30557 | ($sc-dispatch #{tmp 10677}# '(any any)))) | |
| 30558 | (if #{tmp 10678}# | |
| 30559 | (@apply | |
| 30560 | (lambda (#{x 10681}# #{y 10682}#) | |
| 30561 | (let ((#{tmp 10684}# | |
| 30562 | ($sc-dispatch | |
| 30563 | #{y 10682}# | |
| 30564 | '(#(atom "quote") any)))) | |
| 30565 | (if #{tmp 10684}# | |
| 30566 | (@apply | |
| 30567 | (lambda (#{dy 10686}#) | |
| 30568 | (let ((#{tmp 10688}# | |
| 30569 | ($sc-dispatch | |
| 30570 | #{x 10681}# | |
| 30571 | '(#(atom "quote") any)))) | |
| 30572 | (if #{tmp 10688}# | |
| 30573 | (@apply | |
| 30574 | (lambda (#{dx 10690}#) | |
| 30575 | (list '#(syntax-object | |
| 30576 | "quote" | |
| 30577 | ((top) | |
| 30578 | #(ribcage | |
| 30579 | #(dx) | |
| 30580 | #((top)) | |
| 30581 | #("i10689")) | |
| 30582 | #(ribcage | |
| 30583 | #(dy) | |
| 30584 | #((top)) | |
| 30585 | #("i10685")) | |
| 30586 | #(ribcage () () ()) | |
| 30587 | #(ribcage | |
| 30588 | #(x y) | |
| 30589 | #((top) (top)) | |
| 30590 | #("i10679" "i10680")) | |
| 30591 | #(ribcage () () ()) | |
| 30592 | #(ribcage () () ()) | |
| 30593 | #(ribcage | |
| 30594 | #(x y) | |
| 30595 | #((top) (top)) | |
| 30596 | #("i10674" "i10675")) | |
| 30597 | #(ribcage | |
| 30598 | (emit quasivector | |
| 30599 | quasilist* | |
| 30600 | quasiappend | |
| 30601 | quasicons | |
| 30602 | vquasi | |
| 30603 | quasi) | |
| 30604 | ((top) | |
| 30605 | (top) | |
| 30606 | (top) | |
| 30607 | (top) | |
| 30608 | (top) | |
| 30609 | (top) | |
| 30610 | (top)) | |
| 30611 | ("i10611" | |
| 30612 | "i10609" | |
| 30613 | "i10607" | |
| 30614 | "i10605" | |
| 30615 | "i10603" | |
| 30616 | "i10601" | |
| 30617 | "i10599"))) | |
| 30618 | (hygiene guile)) | |
| 30619 | (cons #{dx 10690}# #{dy 10686}#))) | |
| 30620 | #{tmp 10688}#) | |
| 30621 | (if (null? #{dy 10686}#) | |
| 30622 | (list '#(syntax-object | |
| 30623 | "list" | |
| df40b969 | 30624 | ((top) |
| 014de9e2 AW |
30625 | #(ribcage |
| 30626 | #(_) | |
| 30627 | #((top)) | |
| 30628 | #("i10691")) | |
| 30629 | #(ribcage | |
| 30630 | #(dy) | |
| 30631 | #((top)) | |
| 30632 | #("i10685")) | |
| 30633 | #(ribcage () () ()) | |
| 30634 | #(ribcage | |
| 30635 | #(x y) | |
| 30636 | #((top) (top)) | |
| 30637 | #("i10679" "i10680")) | |
| 30638 | #(ribcage () () ()) | |
| df40b969 AW |
30639 | #(ribcage () () ()) |
| 30640 | #(ribcage | |
| 014de9e2 AW |
30641 | #(x y) |
| 30642 | #((top) (top)) | |
| 30643 | #("i10674" "i10675")) | |
| 30644 | #(ribcage | |
| 30645 | (emit quasivector | |
| 30646 | quasilist* | |
| 30647 | quasiappend | |
| 30648 | quasicons | |
| 30649 | vquasi | |
| 30650 | quasi) | |
| 30651 | ((top) | |
| 30652 | (top) | |
| 30653 | (top) | |
| 30654 | (top) | |
| 30655 | (top) | |
| 30656 | (top) | |
| 30657 | (top)) | |
| 30658 | ("i10611" | |
| 30659 | "i10609" | |
| 30660 | "i10607" | |
| 30661 | "i10605" | |
| 30662 | "i10603" | |
| 30663 | "i10601" | |
| 30664 | "i10599"))) | |
| 30665 | (hygiene guile)) | |
| 30666 | #{x 10681}#) | |
| 30667 | (list '#(syntax-object | |
| 30668 | "list*" | |
| 30669 | ((top) | |
| 30670 | #(ribcage | |
| 30671 | #(_) | |
| 30672 | #((top)) | |
| 30673 | #("i10691")) | |
| 30674 | #(ribcage | |
| 30675 | #(dy) | |
| df40b969 | 30676 | #((top)) |
| 014de9e2 AW |
30677 | #("i10685")) |
| 30678 | #(ribcage () () ()) | |
| 30679 | #(ribcage | |
| 30680 | #(x y) | |
| 30681 | #((top) (top)) | |
| 30682 | #("i10679" "i10680")) | |
| 30683 | #(ribcage () () ()) | |
| df40b969 AW |
30684 | #(ribcage () () ()) |
| 30685 | #(ribcage | |
| 30686 | #(x y) | |
| 30687 | #((top) (top)) | |
| 014de9e2 | 30688 | #("i10674" "i10675")) |
| df40b969 AW |
30689 | #(ribcage |
| 30690 | (emit quasivector | |
| 30691 | quasilist* | |
| 30692 | quasiappend | |
| 30693 | quasicons | |
| 30694 | vquasi | |
| 30695 | quasi) | |
| 30696 | ((top) | |
| 30697 | (top) | |
| 30698 | (top) | |
| 30699 | (top) | |
| 30700 | (top) | |
| 30701 | (top) | |
| 30702 | (top)) | |
| 014de9e2 AW |
30703 | ("i10611" |
| 30704 | "i10609" | |
| 30705 | "i10607" | |
| 30706 | "i10605" | |
| 30707 | "i10603" | |
| 30708 | "i10601" | |
| 30709 | "i10599"))) | |
| df40b969 | 30710 | (hygiene guile)) |
| 014de9e2 AW |
30711 | #{x 10681}# |
| 30712 | #{y 10682}#))))) | |
| 30713 | #{tmp 10684}#) | |
| 30714 | (let ((#{tmp 10693}# | |
| 30715 | ($sc-dispatch | |
| 30716 | #{y 10682}# | |
| 30717 | '(#(atom "list") . any)))) | |
| 30718 | (if #{tmp 10693}# | |
| df40b969 | 30719 | (@apply |
| 014de9e2 | 30720 | (lambda (#{stuff 10695}#) |
| df40b969 | 30721 | (cons '#(syntax-object |
| 014de9e2 | 30722 | "list" |
| df40b969 | 30723 | ((top) |
| 014de9e2 AW |
30724 | #(ribcage |
| 30725 | #(stuff) | |
| 30726 | #((top)) | |
| 30727 | #("i10694")) | |
| df40b969 AW |
30728 | #(ribcage () () ()) |
| 30729 | #(ribcage | |
| 014de9e2 | 30730 | #(x y) |
| df40b969 | 30731 | #((top) (top)) |
| 014de9e2 AW |
30732 | #("i10679" "i10680")) |
| 30733 | #(ribcage () () ()) | |
| df40b969 AW |
30734 | #(ribcage () () ()) |
| 30735 | #(ribcage | |
| 30736 | #(x y) | |
| 30737 | #((top) (top)) | |
| 014de9e2 | 30738 | #("i10674" "i10675")) |
| df40b969 AW |
30739 | #(ribcage |
| 30740 | (emit quasivector | |
| 30741 | quasilist* | |
| 30742 | quasiappend | |
| 30743 | quasicons | |
| 30744 | vquasi | |
| 30745 | quasi) | |
| 30746 | ((top) | |
| 30747 | (top) | |
| 30748 | (top) | |
| 30749 | (top) | |
| 30750 | (top) | |
| 30751 | (top) | |
| 30752 | (top)) | |
| 014de9e2 AW |
30753 | ("i10611" |
| 30754 | "i10609" | |
| 30755 | "i10607" | |
| 30756 | "i10605" | |
| 30757 | "i10603" | |
| 30758 | "i10601" | |
| 30759 | "i10599"))) | |
| df40b969 | 30760 | (hygiene guile)) |
| 014de9e2 AW |
30761 | (cons #{x 10681}# #{stuff 10695}#))) |
| 30762 | #{tmp 10693}#) | |
| 30763 | (let ((#{tmp 10696}# | |
| 30764 | ($sc-dispatch | |
| 30765 | #{y 10682}# | |
| 30766 | '(#(atom "list*") . any)))) | |
| 30767 | (if #{tmp 10696}# | |
| 30768 | (@apply | |
| 30769 | (lambda (#{stuff 10698}#) | |
| 30770 | (cons '#(syntax-object | |
| 30771 | "list*" | |
| 30772 | ((top) | |
| 30773 | #(ribcage | |
| 30774 | #(stuff) | |
| 30775 | #((top)) | |
| 30776 | #("i10697")) | |
| 30777 | #(ribcage () () ()) | |
| 30778 | #(ribcage | |
| 30779 | #(x y) | |
| 30780 | #((top) (top)) | |
| 30781 | #("i10679" "i10680")) | |
| 30782 | #(ribcage () () ()) | |
| 30783 | #(ribcage () () ()) | |
| 30784 | #(ribcage | |
| 30785 | #(x y) | |
| 30786 | #((top) (top)) | |
| 30787 | #("i10674" "i10675")) | |
| 30788 | #(ribcage | |
| 30789 | (emit quasivector | |
| 30790 | quasilist* | |
| 30791 | quasiappend | |
| 30792 | quasicons | |
| 30793 | vquasi | |
| 30794 | quasi) | |
| 30795 | ((top) | |
| 30796 | (top) | |
| 30797 | (top) | |
| 30798 | (top) | |
| 30799 | (top) | |
| 30800 | (top) | |
| 30801 | (top)) | |
| 30802 | ("i10611" | |
| 30803 | "i10609" | |
| 30804 | "i10607" | |
| 30805 | "i10605" | |
| 30806 | "i10603" | |
| 30807 | "i10601" | |
| 30808 | "i10599"))) | |
| 30809 | (hygiene guile)) | |
| 30810 | (cons #{x 10681}# #{stuff 10698}#))) | |
| 30811 | #{tmp 10696}#) | |
| 30812 | (list '#(syntax-object | |
| 30813 | "list*" | |
| 30814 | ((top) | |
| 30815 | #(ribcage #(_) #((top)) #("i10699")) | |
| 30816 | #(ribcage () () ()) | |
| 30817 | #(ribcage | |
| 30818 | #(x y) | |
| 30819 | #((top) (top)) | |
| 30820 | #("i10679" "i10680")) | |
| 30821 | #(ribcage () () ()) | |
| 30822 | #(ribcage () () ()) | |
| 30823 | #(ribcage | |
| 30824 | #(x y) | |
| 30825 | #((top) (top)) | |
| 30826 | #("i10674" "i10675")) | |
| 30827 | #(ribcage | |
| 30828 | (emit quasivector | |
| 30829 | quasilist* | |
| 30830 | quasiappend | |
| 30831 | quasicons | |
| 30832 | vquasi | |
| 30833 | quasi) | |
| 30834 | ((top) | |
| 30835 | (top) | |
| 30836 | (top) | |
| 30837 | (top) | |
| 30838 | (top) | |
| 30839 | (top) | |
| 30840 | (top)) | |
| 30841 | ("i10611" | |
| 30842 | "i10609" | |
| 30843 | "i10607" | |
| 30844 | "i10605" | |
| 30845 | "i10603" | |
| 30846 | "i10601" | |
| 30847 | "i10599"))) | |
| 30848 | (hygiene guile)) | |
| 30849 | #{x 10681}# | |
| 30850 | #{y 10682}#)))))))) | |
| 30851 | #{tmp 10678}#) | |
| 30852 | (syntax-violation | |
| 30853 | #f | |
| 30854 | "source expression failed to match any pattern" | |
| 30855 | #{tmp 10677}#)))))) | |
| 30856 | (#{quasiappend 10606}# | |
| 30857 | (lambda (#{x 10701}# #{y 10702}#) | |
| 30858 | (let ((#{tmp 10706}# | |
| 30859 | ($sc-dispatch #{y 10702}# '(#(atom "quote") ())))) | |
| 30860 | (if #{tmp 10706}# | |
| 30861 | (@apply | |
| 30862 | (lambda () | |
| 30863 | (if (null? #{x 10701}#) | |
| 30864 | '(#(syntax-object | |
| 30865 | "quote" | |
| 30866 | ((top) | |
| 30867 | #(ribcage () () ()) | |
| 30868 | #(ribcage | |
| 30869 | #(x y) | |
| 30870 | #((top) (top)) | |
| 30871 | #("i10703" "i10704")) | |
| 30872 | #(ribcage | |
| 30873 | (emit quasivector | |
| 30874 | quasilist* | |
| 30875 | quasiappend | |
| 30876 | quasicons | |
| 30877 | vquasi | |
| 30878 | quasi) | |
| 30879 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 30880 | ("i10611" | |
| 30881 | "i10609" | |
| 30882 | "i10607" | |
| 30883 | "i10605" | |
| 30884 | "i10603" | |
| 30885 | "i10601" | |
| 30886 | "i10599"))) | |
| 30887 | (hygiene guile)) | |
| 30888 | ()) | |
| 30889 | (if (null? (cdr #{x 10701}#)) | |
| 30890 | (car #{x 10701}#) | |
| 30891 | (let ((#{tmp 10714}# | |
| 30892 | ($sc-dispatch #{x 10701}# 'each-any))) | |
| 30893 | (if #{tmp 10714}# | |
| 30894 | (@apply | |
| 30895 | (lambda (#{p 10716}#) | |
| 30896 | (cons '#(syntax-object | |
| 30897 | "append" | |
| 30898 | ((top) | |
| 30899 | #(ribcage () () ()) | |
| 30900 | #(ribcage #(p) #((top)) #("i10715")) | |
| 30901 | #(ribcage () () ()) | |
| 30902 | #(ribcage | |
| 30903 | #(x y) | |
| 30904 | #((top) (top)) | |
| 30905 | #("i10703" "i10704")) | |
| 30906 | #(ribcage | |
| 30907 | (emit quasivector | |
| 30908 | quasilist* | |
| 30909 | quasiappend | |
| 30910 | quasicons | |
| 30911 | vquasi | |
| 30912 | quasi) | |
| 30913 | ((top) | |
| 30914 | (top) | |
| 30915 | (top) | |
| 30916 | (top) | |
| 30917 | (top) | |
| 30918 | (top) | |
| 30919 | (top)) | |
| 30920 | ("i10611" | |
| 30921 | "i10609" | |
| 30922 | "i10607" | |
| 30923 | "i10605" | |
| 30924 | "i10603" | |
| 30925 | "i10601" | |
| 30926 | "i10599"))) | |
| 30927 | (hygiene guile)) | |
| 30928 | #{p 10716}#)) | |
| 30929 | #{tmp 10714}#) | |
| 30930 | (syntax-violation | |
| 30931 | #f | |
| 30932 | "source expression failed to match any pattern" | |
| 30933 | #{x 10701}#)))))) | |
| 30934 | #{tmp 10706}#) | |
| 30935 | (if (null? #{x 10701}#) | |
| 30936 | #{y 10702}# | |
| 30937 | (let ((#{tmp 10724}# (list #{x 10701}# #{y 10702}#))) | |
| 30938 | (let ((#{tmp 10725}# | |
| 30939 | ($sc-dispatch #{tmp 10724}# '(each-any any)))) | |
| 30940 | (if #{tmp 10725}# | |
| 30941 | (@apply | |
| 30942 | (lambda (#{p 10728}# #{y 10729}#) | |
| 30943 | (cons '#(syntax-object | |
| 30944 | "append" | |
| 30945 | ((top) | |
| 30946 | #(ribcage () () ()) | |
| 30947 | #(ribcage | |
| 30948 | #(p y) | |
| 30949 | #((top) (top)) | |
| 30950 | #("i10726" "i10727")) | |
| 30951 | #(ribcage #(_) #((top)) #("i10718")) | |
| 30952 | #(ribcage () () ()) | |
| 30953 | #(ribcage | |
| 30954 | #(x y) | |
| 30955 | #((top) (top)) | |
| 30956 | #("i10703" "i10704")) | |
| 30957 | #(ribcage | |
| 30958 | (emit quasivector | |
| 30959 | quasilist* | |
| 30960 | quasiappend | |
| 30961 | quasicons | |
| 30962 | vquasi | |
| 30963 | quasi) | |
| 30964 | ((top) | |
| 30965 | (top) | |
| 30966 | (top) | |
| 30967 | (top) | |
| 30968 | (top) | |
| 30969 | (top) | |
| 30970 | (top)) | |
| 30971 | ("i10611" | |
| 30972 | "i10609" | |
| 30973 | "i10607" | |
| 30974 | "i10605" | |
| 30975 | "i10603" | |
| 30976 | "i10601" | |
| 30977 | "i10599"))) | |
| 30978 | (hygiene guile)) | |
| 30979 | (append #{p 10728}# (list #{y 10729}#)))) | |
| 30980 | #{tmp 10725}#) | |
| 30981 | (syntax-violation | |
| 30982 | #f | |
| 30983 | "source expression failed to match any pattern" | |
| 30984 | #{tmp 10724}#))))))))) | |
| 30985 | (#{quasilist* 10608}# | |
| 30986 | (lambda (#{x 10731}# #{y 10732}#) | |
| 30987 | (letrec* | |
| 30988 | ((#{f 10737}# | |
| 30989 | (lambda (#{x 10738}#) | |
| 30990 | (if (null? #{x 10738}#) | |
| 30991 | #{y 10732}# | |
| 30992 | (#{quasicons 10604}# | |
| 30993 | (car #{x 10738}#) | |
| 30994 | (#{f 10737}# (cdr #{x 10738}#))))))) | |
| 30995 | (#{f 10737}# #{x 10731}#)))) | |
| 30996 | (#{quasivector 10610}# | |
| 30997 | (lambda (#{x 10739}#) | |
| 30998 | (let ((#{tmp 10742}# | |
| 30999 | ($sc-dispatch | |
| 31000 | #{x 10739}# | |
| 31001 | '(#(atom "quote") each-any)))) | |
| 31002 | (if #{tmp 10742}# | |
| 31003 | (@apply | |
| 31004 | (lambda (#{x 10744}#) | |
| 31005 | (list '#(syntax-object | |
| 31006 | "quote" | |
| 31007 | ((top) | |
| 31008 | #(ribcage #(x) #((top)) #("i10743")) | |
| 31009 | #(ribcage () () ()) | |
| 31010 | #(ribcage #(x) #((top)) #("i10740")) | |
| 31011 | #(ribcage | |
| 31012 | (emit quasivector | |
| 31013 | quasilist* | |
| 31014 | quasiappend | |
| 31015 | quasicons | |
| 31016 | vquasi | |
| 31017 | quasi) | |
| 31018 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 31019 | ("i10611" | |
| 31020 | "i10609" | |
| 31021 | "i10607" | |
| 31022 | "i10605" | |
| 31023 | "i10603" | |
| 31024 | "i10601" | |
| 31025 | "i10599"))) | |
| 31026 | (hygiene guile)) | |
| 31027 | (list->vector #{x 10744}#))) | |
| 31028 | #{tmp 10742}#) | |
| 31029 | (letrec* | |
| 31030 | ((#{f 10751}# | |
| 31031 | (lambda (#{y 10752}# #{k 10753}#) | |
| 31032 | (let ((#{tmp 10765}# | |
| 31033 | ($sc-dispatch | |
| 31034 | #{y 10752}# | |
| 31035 | '(#(atom "quote") each-any)))) | |
| 31036 | (if #{tmp 10765}# | |
| 31037 | (@apply | |
| 31038 | (lambda (#{y 10767}#) | |
| 31039 | (#{k 10753}# | |
| 31040 | (map (lambda (#{tmp 10768}#) | |
| 31041 | (list '#(syntax-object | |
| 31042 | "quote" | |
| 31043 | ((top) | |
| 31044 | #(ribcage | |
| 31045 | #(y) | |
| 31046 | #((top)) | |
| 31047 | #("i10766")) | |
| 31048 | #(ribcage () () ()) | |
| 31049 | #(ribcage | |
| 31050 | #(f y k) | |
| 31051 | #((top) (top) (top)) | |
| 31052 | #("i10748" | |
| 31053 | "i10749" | |
| 31054 | "i10750")) | |
| 31055 | #(ribcage | |
| 31056 | #(_) | |
| 31057 | #((top)) | |
| 31058 | #("i10746")) | |
| 31059 | #(ribcage () () ()) | |
| 31060 | #(ribcage | |
| 31061 | #(x) | |
| 31062 | #((top)) | |
| 31063 | #("i10740")) | |
| 31064 | #(ribcage | |
| 31065 | (emit quasivector | |
| 31066 | quasilist* | |
| 31067 | quasiappend | |
| 31068 | quasicons | |
| 31069 | vquasi | |
| 31070 | quasi) | |
| 31071 | ((top) | |
| 31072 | (top) | |
| 31073 | (top) | |
| 31074 | (top) | |
| 31075 | (top) | |
| 31076 | (top) | |
| 31077 | (top)) | |
| 31078 | ("i10611" | |
| 31079 | "i10609" | |
| 31080 | "i10607" | |
| 31081 | "i10605" | |
| 31082 | "i10603" | |
| 31083 | "i10601" | |
| 31084 | "i10599"))) | |
| 31085 | (hygiene guile)) | |
| 31086 | #{tmp 10768}#)) | |
| 31087 | #{y 10767}#))) | |
| 31088 | #{tmp 10765}#) | |
| 31089 | (let ((#{tmp 10769}# | |
| 31090 | ($sc-dispatch | |
| 31091 | #{y 10752}# | |
| 31092 | '(#(atom "list") . each-any)))) | |
| 31093 | (if #{tmp 10769}# | |
| 31094 | (@apply | |
| 31095 | (lambda (#{y 10771}#) | |
| 31096 | (#{k 10753}# #{y 10771}#)) | |
| 31097 | #{tmp 10769}#) | |
| 31098 | (let ((#{tmp 10773}# | |
| 31099 | ($sc-dispatch | |
| 31100 | #{y 10752}# | |
| 31101 | '(#(atom "list*") | |
| 31102 | . | |
| 31103 | #(each+ any (any) ()))))) | |
| 31104 | (if #{tmp 10773}# | |
| 31105 | (@apply | |
| 31106 | (lambda (#{y 10776}# #{z 10777}#) | |
| 31107 | (#{f 10751}# | |
| 31108 | #{z 10777}# | |
| 31109 | (lambda (#{ls 10778}#) | |
| 31110 | (#{k 10753}# | |
| 31111 | (append | |
| 31112 | #{y 10776}# | |
| 31113 | #{ls 10778}#))))) | |
| 31114 | #{tmp 10773}#) | |
| 31115 | (list '#(syntax-object | |
| 31116 | "list->vector" | |
| 31117 | ((top) | |
| 31118 | #(ribcage () () ()) | |
| 31119 | #(ribcage | |
| 31120 | #(#{ g10783}#) | |
| 31121 | #((m10784 top)) | |
| 31122 | #("i10787")) | |
| 31123 | #(ribcage | |
| 31124 | #(else) | |
| 31125 | #((top)) | |
| 31126 | #("i10781")) | |
| 31127 | #(ribcage () () ()) | |
| 31128 | #(ribcage | |
| 31129 | #(f y k) | |
| 31130 | #((top) (top) (top)) | |
| 31131 | #("i10748" "i10749" "i10750")) | |
| 31132 | #(ribcage | |
| 31133 | #(_) | |
| 31134 | #((top)) | |
| 31135 | #("i10746")) | |
| 31136 | #(ribcage () () ()) | |
| 31137 | #(ribcage | |
| 31138 | #(x) | |
| 31139 | #((top)) | |
| 31140 | #("i10740")) | |
| 31141 | #(ribcage | |
| 31142 | (emit quasivector | |
| 31143 | quasilist* | |
| 31144 | quasiappend | |
| 31145 | quasicons | |
| 31146 | vquasi | |
| 31147 | quasi) | |
| 31148 | ((top) | |
| 31149 | (top) | |
| 31150 | (top) | |
| 31151 | (top) | |
| 31152 | (top) | |
| 31153 | (top) | |
| 31154 | (top)) | |
| 31155 | ("i10611" | |
| 31156 | "i10609" | |
| 31157 | "i10607" | |
| 31158 | "i10605" | |
| 31159 | "i10603" | |
| 31160 | "i10601" | |
| 31161 | "i10599"))) | |
| 31162 | (hygiene guile)) | |
| 31163 | #{x 10739}#)))))))))) | |
| 31164 | (#{f 10751}# | |
| 31165 | #{x 10739}# | |
| 31166 | (lambda (#{ls 10754}#) | |
| 31167 | (let ((#{tmp 10760}# | |
| 31168 | ($sc-dispatch #{ls 10754}# 'each-any))) | |
| 31169 | (if #{tmp 10760}# | |
| 31170 | (@apply | |
| 31171 | (lambda (#{ g10756 10762}#) | |
| 31172 | (cons '#(syntax-object | |
| 31173 | "vector" | |
| 31174 | ((top) | |
| 31175 | #(ribcage () () ()) | |
| 31176 | #(ribcage | |
| 31177 | #(#{ g10756}#) | |
| 31178 | #((m10757 top)) | |
| 31179 | #("i10761")) | |
| 31180 | #(ribcage () () ()) | |
| 31181 | #(ribcage () () ()) | |
| 31182 | #(ribcage () () ()) | |
| 31183 | #(ribcage #(ls) #((top)) #("i10755")) | |
| 31184 | #(ribcage #(_) #((top)) #("i10746")) | |
| 31185 | #(ribcage () () ()) | |
| 31186 | #(ribcage #(x) #((top)) #("i10740")) | |
| 31187 | #(ribcage | |
| 31188 | (emit quasivector | |
| 31189 | quasilist* | |
| 31190 | quasiappend | |
| 31191 | quasicons | |
| 31192 | vquasi | |
| 31193 | quasi) | |
| 31194 | ((top) | |
| 31195 | (top) | |
| 31196 | (top) | |
| 31197 | (top) | |
| 31198 | (top) | |
| 31199 | (top) | |
| 31200 | (top)) | |
| 31201 | ("i10611" | |
| 31202 | "i10609" | |
| 31203 | "i10607" | |
| 31204 | "i10605" | |
| 31205 | "i10603" | |
| 31206 | "i10601" | |
| 31207 | "i10599"))) | |
| 31208 | (hygiene guile)) | |
| 31209 | #{ g10756 10762}#)) | |
| 31210 | #{tmp 10760}#) | |
| 31211 | (syntax-violation | |
| 31212 | #f | |
| 31213 | "source expression failed to match any pattern" | |
| 31214 | #{ls 10754}#)))))))))) | |
| 31215 | (#{emit 10612}# | |
| 31216 | (lambda (#{x 10789}#) | |
| 31217 | (let ((#{tmp 10792}# | |
| 31218 | ($sc-dispatch #{x 10789}# '(#(atom "quote") any)))) | |
| 31219 | (if #{tmp 10792}# | |
| 31220 | (@apply | |
| 31221 | (lambda (#{x 10794}#) | |
| 31222 | (list '#(syntax-object | |
| 31223 | quote | |
| 31224 | ((top) | |
| 31225 | #(ribcage #(x) #((top)) #("i10793")) | |
| 31226 | #(ribcage () () ()) | |
| 31227 | #(ribcage #(x) #((top)) #("i10790")) | |
| 31228 | #(ribcage | |
| 31229 | (emit quasivector | |
| 31230 | quasilist* | |
| 31231 | quasiappend | |
| 31232 | quasicons | |
| 31233 | vquasi | |
| 31234 | quasi) | |
| 31235 | ((top) (top) (top) (top) (top) (top) (top)) | |
| 31236 | ("i10611" | |
| 31237 | "i10609" | |
| 31238 | "i10607" | |
| 31239 | "i10605" | |
| 31240 | "i10603" | |
| 31241 | "i10601" | |
| 31242 | "i10599"))) | |
| 31243 | (hygiene guile)) | |
| 31244 | #{x 10794}#)) | |
| 31245 | #{tmp 10792}#) | |
| 31246 | (let ((#{tmp 10795}# | |
| 31247 | ($sc-dispatch | |
| 31248 | #{x 10789}# | |
| 31249 | '(#(atom "list") . each-any)))) | |
| 31250 | (if #{tmp 10795}# | |
| 31251 | (@apply | |
| 31252 | (lambda (#{x 10797}#) | |
| 31253 | (let ((#{tmp 10801}# (map #{emit 10612}# #{x 10797}#))) | |
| 31254 | (let ((#{tmp 10802}# | |
| 31255 | ($sc-dispatch #{tmp 10801}# 'each-any))) | |
| 31256 | (if #{tmp 10802}# | |
| 31257 | (@apply | |
| 31258 | (lambda (#{ g10798 10804}#) | |
| 31259 | (cons '#(syntax-object | |
| 31260 | list | |
| 31261 | ((top) | |
| 31262 | #(ribcage () () ()) | |
| 31263 | #(ribcage | |
| 31264 | #(#{ g10798}#) | |
| 31265 | #((m10799 top)) | |
| 31266 | #("i10803")) | |
| 31267 | #(ribcage #(x) #((top)) #("i10796")) | |
| 31268 | #(ribcage () () ()) | |
| 31269 | #(ribcage #(x) #((top)) #("i10790")) | |
| 31270 | #(ribcage | |
| 31271 | (emit quasivector | |
| 31272 | quasilist* | |
| 31273 | quasiappend | |
| 31274 | quasicons | |
| 31275 | vquasi | |
| 31276 | quasi) | |
| 31277 | ((top) | |
| 31278 | (top) | |
| 31279 | (top) | |
| 31280 | (top) | |
| 31281 | (top) | |
| 31282 | (top) | |
| 31283 | (top)) | |
| 31284 | ("i10611" | |
| 31285 | "i10609" | |
| 31286 | "i10607" | |
| 31287 | "i10605" | |
| 31288 | "i10603" | |
| 31289 | "i10601" | |
| 31290 | "i10599"))) | |
| 31291 | (hygiene guile)) | |
| 31292 | #{ g10798 10804}#)) | |
| 31293 | #{tmp 10802}#) | |
| 31294 | (syntax-violation | |
| 31295 | #f | |
| 31296 | "source expression failed to match any pattern" | |
| 31297 | #{tmp 10801}#))))) | |
| 31298 | #{tmp 10795}#) | |
| 31299 | (let ((#{tmp 10807}# | |
| df40b969 | 31300 | ($sc-dispatch |
| 014de9e2 AW |
31301 | #{x 10789}# |
| 31302 | '(#(atom "list*") . #(each+ any (any) ()))))) | |
| 31303 | (if #{tmp 10807}# | |
| df40b969 | 31304 | (@apply |
| 014de9e2 AW |
31305 | (lambda (#{x 10810}# #{y 10811}#) |
| 31306 | (letrec* | |
| 31307 | ((#{f 10814}# | |
| 31308 | (lambda (#{x* 10815}#) | |
| 31309 | (if (null? #{x* 10815}#) | |
| 31310 | (#{emit 10612}# #{y 10811}#) | |
| 31311 | (let ((#{tmp 10821}# | |
| 31312 | (list (#{emit 10612}# | |
| 31313 | (car #{x* 10815}#)) | |
| 31314 | (#{f 10814}# | |
| 31315 | (cdr #{x* 10815}#))))) | |
| 31316 | (let ((#{tmp 10822}# | |
| 31317 | ($sc-dispatch | |
| 31318 | #{tmp 10821}# | |
| 31319 | '(any any)))) | |
| 31320 | (if #{tmp 10822}# | |
| 31321 | (@apply | |
| 31322 | (lambda (#{ g10818 10825}# | |
| 31323 | #{ g10817 10826}#) | |
| 31324 | (list '#(syntax-object | |
| 31325 | cons | |
| 31326 | ((top) | |
| 31327 | #(ribcage () () ()) | |
| 31328 | #(ribcage | |
| 31329 | #(#{ g10818}# | |
| 31330 | #{ g10817}#) | |
| 31331 | #((m10819 top) | |
| 31332 | (m10819 top)) | |
| 31333 | #("i10823" "i10824")) | |
| 31334 | #(ribcage () () ()) | |
| 31335 | #(ribcage | |
| 31336 | #(f x*) | |
| 31337 | #((top) (top)) | |
| 31338 | #("i10812" "i10813")) | |
| 31339 | #(ribcage | |
| 31340 | #(x y) | |
| 31341 | #((top) (top)) | |
| 31342 | #("i10808" "i10809")) | |
| 31343 | #(ribcage () () ()) | |
| 31344 | #(ribcage | |
| 31345 | #(x) | |
| 31346 | #((top)) | |
| 31347 | #("i10790")) | |
| 31348 | #(ribcage | |
| 31349 | (emit quasivector | |
| 31350 | quasilist* | |
| 31351 | quasiappend | |
| 31352 | quasicons | |
| 31353 | vquasi | |
| 31354 | quasi) | |
| 31355 | ((top) | |
| 31356 | (top) | |
| 31357 | (top) | |
| 31358 | (top) | |
| 31359 | (top) | |
| 31360 | (top) | |
| 31361 | (top)) | |
| 31362 | ("i10611" | |
| 31363 | "i10609" | |
| 31364 | "i10607" | |
| 31365 | "i10605" | |
| 31366 | "i10603" | |
| 31367 | "i10601" | |
| 31368 | "i10599"))) | |
| 31369 | (hygiene guile)) | |
| 31370 | #{ g10818 10825}# | |
| 31371 | #{ g10817 10826}#)) | |
| 31372 | #{tmp 10822}#) | |
| 31373 | (syntax-violation | |
| 31374 | #f | |
| 31375 | "source expression failed to match any pattern" | |
| 31376 | #{tmp 10821}#)))))))) | |
| 31377 | (#{f 10814}# #{x 10810}#))) | |
| 31378 | #{tmp 10807}#) | |
| 31379 | (let ((#{tmp 10827}# | |
| 31380 | ($sc-dispatch | |
| 31381 | #{x 10789}# | |
| 31382 | '(#(atom "append") . each-any)))) | |
| 31383 | (if #{tmp 10827}# | |
| 31384 | (@apply | |
| 31385 | (lambda (#{x 10829}#) | |
| 31386 | (let ((#{tmp 10833}# | |
| 31387 | (map #{emit 10612}# #{x 10829}#))) | |
| 31388 | (let ((#{tmp 10834}# | |
| df40b969 | 31389 | ($sc-dispatch |
| 014de9e2 | 31390 | #{tmp 10833}# |
| df40b969 | 31391 | 'each-any))) |
| 014de9e2 | 31392 | (if #{tmp 10834}# |
| df40b969 | 31393 | (@apply |
| 014de9e2 | 31394 | (lambda (#{ g10830 10836}#) |
| df40b969 | 31395 | (cons '#(syntax-object |
| 014de9e2 | 31396 | append |
| df40b969 AW |
31397 | ((top) |
| 31398 | #(ribcage () () ()) | |
| 31399 | #(ribcage | |
| 014de9e2 AW |
31400 | #(#{ g10830}#) |
| 31401 | #((m10831 top)) | |
| 31402 | #("i10835")) | |
| df40b969 AW |
31403 | #(ribcage |
| 31404 | #(x) | |
| 31405 | #((top)) | |
| 014de9e2 | 31406 | #("i10828")) |
| df40b969 AW |
31407 | #(ribcage () () ()) |
| 31408 | #(ribcage | |
| 31409 | #(x) | |
| 31410 | #((top)) | |
| 014de9e2 | 31411 | #("i10790")) |
| df40b969 AW |
31412 | #(ribcage |
| 31413 | (emit quasivector | |
| 31414 | quasilist* | |
| 31415 | quasiappend | |
| 31416 | quasicons | |
| 31417 | vquasi | |
| 31418 | quasi) | |
| 31419 | ((top) | |
| 31420 | (top) | |
| 31421 | (top) | |
| 31422 | (top) | |
| 31423 | (top) | |
| 31424 | (top) | |
| 31425 | (top)) | |
| 014de9e2 AW |
31426 | ("i10611" |
| 31427 | "i10609" | |
| 31428 | "i10607" | |
| 31429 | "i10605" | |
| 31430 | "i10603" | |
| 31431 | "i10601" | |
| 31432 | "i10599"))) | |
| 31433 | (hygiene guile)) | |
| 31434 | #{ g10830 10836}#)) | |
| 31435 | #{tmp 10834}#) | |
| 31436 | (syntax-violation | |
| 31437 | #f | |
| 31438 | "source expression failed to match any pattern" | |
| 31439 | #{tmp 10833}#))))) | |
| 31440 | #{tmp 10827}#) | |
| 31441 | (let ((#{tmp 10839}# | |
| 31442 | ($sc-dispatch | |
| 31443 | #{x 10789}# | |
| 31444 | '(#(atom "vector") . each-any)))) | |
| 31445 | (if #{tmp 10839}# | |
| 31446 | (@apply | |
| 31447 | (lambda (#{x 10841}#) | |
| 31448 | (let ((#{tmp 10845}# | |
| 31449 | (map #{emit 10612}# #{x 10841}#))) | |
| 31450 | (let ((#{tmp 10846}# | |
| 31451 | ($sc-dispatch | |
| 31452 | #{tmp 10845}# | |
| 31453 | 'each-any))) | |
| 31454 | (if #{tmp 10846}# | |
| 31455 | (@apply | |
| 31456 | (lambda (#{ g10842 10848}#) | |
| 31457 | (cons '#(syntax-object | |
| 31458 | vector | |
| 31459 | ((top) | |
| 31460 | #(ribcage () () ()) | |
| 31461 | #(ribcage | |
| 31462 | #(#{ g10842}#) | |
| 31463 | #((m10843 top)) | |
| 31464 | #("i10847")) | |
| 31465 | #(ribcage | |
| 31466 | #(x) | |
| 31467 | #((top)) | |
| 31468 | #("i10840")) | |
| 31469 | #(ribcage () () ()) | |
| 31470 | #(ribcage | |
| 31471 | #(x) | |
| 31472 | #((top)) | |
| 31473 | #("i10790")) | |
| 31474 | #(ribcage | |
| 31475 | (emit quasivector | |
| 31476 | quasilist* | |
| 31477 | quasiappend | |
| 31478 | quasicons | |
| 31479 | vquasi | |
| 31480 | quasi) | |
| 31481 | ((top) | |
| 31482 | (top) | |
| 31483 | (top) | |
| 31484 | (top) | |
| 31485 | (top) | |
| 31486 | (top) | |
| 31487 | (top)) | |
| 31488 | ("i10611" | |
| 31489 | "i10609" | |
| 31490 | "i10607" | |
| 31491 | "i10605" | |
| 31492 | "i10603" | |
| 31493 | "i10601" | |
| 31494 | "i10599"))) | |
| 31495 | (hygiene guile)) | |
| 31496 | #{ g10842 10848}#)) | |
| 31497 | #{tmp 10846}#) | |
| 31498 | (syntax-violation | |
| 31499 | #f | |
| 31500 | "source expression failed to match any pattern" | |
| 31501 | #{tmp 10845}#))))) | |
| 31502 | #{tmp 10839}#) | |
| 31503 | (let ((#{tmp 10851}# | |
| 31504 | ($sc-dispatch | |
| 31505 | #{x 10789}# | |
| 31506 | '(#(atom "list->vector") any)))) | |
| 31507 | (if #{tmp 10851}# | |
| 31508 | (@apply | |
| 31509 | (lambda (#{x 10853}#) | |
| 31510 | (let ((#{tmp 10857}# | |
| 31511 | (#{emit 10612}# #{x 10853}#))) | |
| 31512 | (list '#(syntax-object | |
| 31513 | list->vector | |
| 31514 | ((top) | |
| 31515 | #(ribcage () () ()) | |
| 31516 | #(ribcage | |
| 31517 | #(#{ g10854}#) | |
| 31518 | #((m10855 top)) | |
| 31519 | #("i10858")) | |
| 31520 | #(ribcage | |
| 31521 | #(x) | |
| 31522 | #((top)) | |
| 31523 | #("i10852")) | |
| 31524 | #(ribcage () () ()) | |
| 31525 | #(ribcage | |
| 31526 | #(x) | |
| 31527 | #((top)) | |
| 31528 | #("i10790")) | |
| 31529 | #(ribcage | |
| 31530 | (emit quasivector | |
| 31531 | quasilist* | |
| 31532 | quasiappend | |
| 31533 | quasicons | |
| 31534 | vquasi | |
| 31535 | quasi) | |
| 31536 | ((top) | |
| 31537 | (top) | |
| 31538 | (top) | |
| 31539 | (top) | |
| 31540 | (top) | |
| 31541 | (top) | |
| 31542 | (top)) | |
| 31543 | ("i10611" | |
| 31544 | "i10609" | |
| 31545 | "i10607" | |
| 31546 | "i10605" | |
| 31547 | "i10603" | |
| 31548 | "i10601" | |
| 31549 | "i10599"))) | |
| 31550 | (hygiene guile)) | |
| 31551 | #{tmp 10857}#))) | |
| 31552 | #{tmp 10851}#) | |
| 31553 | (let ((#{tmp 10860}# | |
| 31554 | ($sc-dispatch | |
| 31555 | #{x 10789}# | |
| 31556 | '(#(atom "value") any)))) | |
| 31557 | (if #{tmp 10860}# | |
| 31558 | (@apply | |
| 31559 | (lambda (#{x 10862}#) #{x 10862}#) | |
| 31560 | #{tmp 10860}#) | |
| 31561 | (syntax-violation | |
| 31562 | #f | |
| 31563 | "source expression failed to match any pattern" | |
| 31564 | #{x 10789}#)))))))))))))))))) | |
| 31565 | (lambda (#{x 10863}#) | |
| 31566 | (let ((#{tmp 10866}# | |
| 31567 | ($sc-dispatch #{x 10863}# '(_ any)))) | |
| 31568 | (if #{tmp 10866}# | |
| 31569 | (@apply | |
| 31570 | (lambda (#{e 10868}#) | |
| 31571 | (#{emit 10612}# (#{quasi 10600}# #{e 10868}# 0))) | |
| 31572 | #{tmp 10866}#) | |
| 31573 | (syntax-violation | |
| 31574 | #f | |
| 31575 | "source expression failed to match any pattern" | |
| 31576 | #{x 10863}#))))))) | |
| df40b969 AW |
31577 | |
| 31578 | (define include | |
| 31579 | (make-syntax-transformer | |
| 31580 | 'include | |
| 31581 | 'macro | |
| 014de9e2 AW |
31582 | (lambda (#{x 10939}#) |
| 31583 | (let ((#{tmp 10956}# | |
| 31584 | ($sc-dispatch #{x 10939}# '(any any)))) | |
| 31585 | (if #{tmp 10956}# | |
| 31586 | (@apply | |
| 31587 | (lambda (#{k 10959}# #{filename 10960}#) | |
| 31588 | (let ((#{fn 10962}# (syntax->datum #{filename 10960}#))) | |
| 31589 | (let ((#{tmp 10964}# | |
| 31590 | ((lambda (#{fn 10943}# #{k 10944}#) | |
| 31591 | (let ((#{p 10948}# (open-input-file #{fn 10943}#))) | |
| 31592 | (letrec* | |
| 31593 | ((#{f 10952}# | |
| 31594 | (lambda (#{x 10953}# #{result 10954}#) | |
| 31595 | (if (eof-object? #{x 10953}#) | |
| df40b969 | 31596 | (begin |
| 014de9e2 AW |
31597 | (close-input-port #{p 10948}#) |
| 31598 | (reverse #{result 10954}#)) | |
| 31599 | (#{f 10952}# | |
| 31600 | (read #{p 10948}#) | |
| 31601 | (cons (datum->syntax | |
| 31602 | #{k 10944}# | |
| 31603 | #{x 10953}#) | |
| 31604 | #{result 10954}#)))))) | |
| 31605 | (#{f 10952}# (read #{p 10948}#) '())))) | |
| 31606 | #{fn 10962}# | |
| 31607 | #{filename 10960}#))) | |
| 31608 | (let ((#{tmp 10965}# | |
| 31609 | ($sc-dispatch #{tmp 10964}# 'each-any))) | |
| 31610 | (if #{tmp 10965}# | |
| 31611 | (@apply | |
| 31612 | (lambda (#{exp 10967}#) | |
| 31613 | (cons '#(syntax-object | |
| 31614 | begin | |
| 31615 | ((top) | |
| 31616 | #(ribcage () () ()) | |
| 31617 | #(ribcage #(exp) #((top)) #("i10966")) | |
| 31618 | #(ribcage () () ()) | |
| 31619 | #(ribcage () () ()) | |
| 31620 | #(ribcage #(fn) #((top)) #("i10961")) | |
| 31621 | #(ribcage | |
| 31622 | #(k filename) | |
| 31623 | #((top) (top)) | |
| 31624 | #("i10957" "i10958")) | |
| 31625 | #(ribcage (read-file) ((top)) ("i10941")) | |
| 31626 | #(ribcage #(x) #((top)) #("i10940"))) | |
| 31627 | (hygiene guile)) | |
| 31628 | #{exp 10967}#)) | |
| 31629 | #{tmp 10965}#) | |
| 31630 | (syntax-violation | |
| 31631 | #f | |
| 31632 | "source expression failed to match any pattern" | |
| 31633 | #{tmp 10964}#)))))) | |
| 31634 | #{tmp 10956}#) | |
| 31635 | (syntax-violation | |
| 31636 | #f | |
| 31637 | "source expression failed to match any pattern" | |
| 31638 | #{x 10939}#)))))) | |
| df40b969 AW |
31639 | |
| 31640 | (define include-from-path | |
| 31641 | (make-syntax-transformer | |
| 31642 | 'include-from-path | |
| 31643 | 'macro | |
| 014de9e2 AW |
31644 | (lambda (#{x 11064}#) |
| 31645 | (let ((#{tmp 11067}# | |
| 31646 | ($sc-dispatch #{x 11064}# '(any any)))) | |
| 31647 | (if #{tmp 11067}# | |
| 31648 | (@apply | |
| 31649 | (lambda (#{k 11070}# #{filename 11071}#) | |
| 31650 | (let ((#{fn 11073}# (syntax->datum #{filename 11071}#))) | |
| 31651 | (let ((#{tmp 11075}# | |
| 31652 | (datum->syntax | |
| 31653 | #{filename 11071}# | |
| 31654 | (let ((#{t 11080}# (%search-load-path #{fn 11073}#))) | |
| 31655 | (if #{t 11080}# | |
| 31656 | #{t 11080}# | |
| 31657 | (syntax-violation | |
| 31658 | 'include-from-path | |
| 31659 | "file not found in path" | |
| 31660 | #{x 11064}# | |
| 31661 | #{filename 11071}#)))))) | |
| 31662 | (list '#(syntax-object | |
| 31663 | include | |
| 31664 | ((top) | |
| 31665 | #(ribcage () () ()) | |
| 31666 | #(ribcage #(fn) #((top)) #("i11076")) | |
| 31667 | #(ribcage () () ()) | |
| 31668 | #(ribcage () () ()) | |
| 31669 | #(ribcage #(fn) #((top)) #("i11072")) | |
| 31670 | #(ribcage | |
| 31671 | #(k filename) | |
| 31672 | #((top) (top)) | |
| 31673 | #("i11068" "i11069")) | |
| 31674 | #(ribcage () () ()) | |
| 31675 | #(ribcage #(x) #((top)) #("i11065"))) | |
| 31676 | (hygiene guile)) | |
| 31677 | #{tmp 11075}#)))) | |
| 31678 | #{tmp 11067}#) | |
| 31679 | (syntax-violation | |
| 31680 | #f | |
| 31681 | "source expression failed to match any pattern" | |
| 31682 | #{x 11064}#)))))) | |
| df40b969 AW |
31683 | |
| 31684 | (define unquote | |
| 31685 | (make-syntax-transformer | |
| 31686 | 'unquote | |
| 31687 | 'macro | |
| 014de9e2 | 31688 | (lambda (#{x 11082}#) |
| df40b969 AW |
31689 | (syntax-violation |
| 31690 | 'unquote | |
| 31691 | "expression not valid outside of quasiquote" | |
| 014de9e2 | 31692 | #{x 11082}#)))) |
| df40b969 AW |
31693 | |
| 31694 | (define unquote-splicing | |
| 014de9e2 AW |
31695 | (make-syntax-transformer |
| 31696 | 'unquote-splicing | |
| 31697 | 'macro | |
| 31698 | (lambda (#{x 11084}#) | |
| 31699 | (syntax-violation | |
| 31700 | 'unquote-splicing | |
| 31701 | "expression not valid outside of quasiquote" | |
| 31702 | #{x 11084}#)))) | |
| 31703 | ||
| 31704 | (define case | |
| 31705 | (make-syntax-transformer | |
| 31706 | 'case | |
| 31707 | 'macro | |
| 31708 | (lambda (#{x 11086}#) | |
| 31709 | (let ((#{tmp 11089}# | |
| 31710 | ($sc-dispatch | |
| 31711 | #{x 11086}# | |
| 31712 | '(_ any any . each-any)))) | |
| 31713 | (if #{tmp 11089}# | |
| 31714 | (@apply | |
| 31715 | (lambda (#{e 11093}# #{m1 11094}# #{m2 11095}#) | |
| 31716 | (let ((#{tmp 11097}# | |
| 31717 | (letrec* | |
| 31718 | ((#{f 11103}# | |
| 31719 | (lambda (#{clause 11104}# #{clauses 11105}#) | |
| 31720 | (if (null? #{clauses 11105}#) | |
| 31721 | (let ((#{tmp 11108}# | |
| 31722 | ($sc-dispatch | |
| 31723 | #{clause 11104}# | |
| 31724 | '(#(free-id | |
| 31725 | #(syntax-object | |
| 31726 | else | |
| 31727 | ((top) | |
| 31728 | #(ribcage () () ()) | |
| 31729 | #(ribcage | |
| 31730 | #(f clause clauses) | |
| 31731 | #((top) (top) (top)) | |
| 31732 | #("i11100" | |
| 31733 | "i11101" | |
| 31734 | "i11102")) | |
| 31735 | #(ribcage | |
| 31736 | #(e m1 m2) | |
| 31737 | #((top) (top) (top)) | |
| 31738 | #("i11090" | |
| 31739 | "i11091" | |
| 31740 | "i11092")) | |
| 31741 | #(ribcage () () ()) | |
| 31742 | #(ribcage | |
| 31743 | #(x) | |
| 31744 | #((top)) | |
| 31745 | #("i11087"))) | |
| 31746 | (hygiene guile))) | |
| 31747 | any | |
| 31748 | . | |
| 31749 | each-any)))) | |
| 31750 | (if #{tmp 11108}# | |
| 31751 | (@apply | |
| 31752 | (lambda (#{e1 11111}# #{e2 11112}#) | |
| 31753 | (cons '#(syntax-object | |
| 31754 | begin | |
| 31755 | ((top) | |
| 31756 | #(ribcage | |
| 31757 | #(e1 e2) | |
| 31758 | #((top) (top)) | |
| 31759 | #("i11109" "i11110")) | |
| 31760 | #(ribcage () () ()) | |
| 31761 | #(ribcage | |
| 31762 | #(f clause clauses) | |
| 31763 | #((top) (top) (top)) | |
| 31764 | #("i11100" | |
| 31765 | "i11101" | |
| 31766 | "i11102")) | |
| 31767 | #(ribcage | |
| 31768 | #(e m1 m2) | |
| 31769 | #((top) (top) (top)) | |
| 31770 | #("i11090" | |
| 31771 | "i11091" | |
| 31772 | "i11092")) | |
| 31773 | #(ribcage () () ()) | |
| 31774 | #(ribcage | |
| 31775 | #(x) | |
| 31776 | #((top)) | |
| 31777 | #("i11087"))) | |
| 31778 | (hygiene guile)) | |
| 31779 | (cons #{e1 11111}# #{e2 11112}#))) | |
| 31780 | #{tmp 11108}#) | |
| 31781 | (let ((#{tmp 11114}# | |
| 31782 | ($sc-dispatch | |
| 31783 | #{clause 11104}# | |
| 31784 | '(each-any any . each-any)))) | |
| 31785 | (if #{tmp 11114}# | |
| 31786 | (@apply | |
| 31787 | (lambda (#{k 11118}# | |
| 31788 | #{e1 11119}# | |
| 31789 | #{e2 11120}#) | |
| 31790 | (list '#(syntax-object | |
| 31791 | if | |
| 31792 | ((top) | |
| 31793 | #(ribcage | |
| 31794 | #(k e1 e2) | |
| 31795 | #((top) (top) (top)) | |
| 31796 | #("i11115" | |
| 31797 | "i11116" | |
| 31798 | "i11117")) | |
| 31799 | #(ribcage () () ()) | |
| 31800 | #(ribcage | |
| 31801 | #(f clause clauses) | |
| 31802 | #((top) (top) (top)) | |
| 31803 | #("i11100" | |
| 31804 | "i11101" | |
| 31805 | "i11102")) | |
| 31806 | #(ribcage | |
| 31807 | #(e m1 m2) | |
| 31808 | #((top) (top) (top)) | |
| 31809 | #("i11090" | |
| 31810 | "i11091" | |
| 31811 | "i11092")) | |
| 31812 | #(ribcage () () ()) | |
| 31813 | #(ribcage | |
| 31814 | #(x) | |
| 31815 | #((top)) | |
| 31816 | #("i11087"))) | |
| 31817 | (hygiene guile)) | |
| df40b969 | 31818 | (list '#(syntax-object |
| 014de9e2 | 31819 | memv |
| df40b969 AW |
31820 | ((top) |
| 31821 | #(ribcage | |
| 31822 | #(k e1 e2) | |
| 31823 | #((top) | |
| 31824 | (top) | |
| 31825 | (top)) | |
| 014de9e2 AW |
31826 | #("i11115" |
| 31827 | "i11116" | |
| 31828 | "i11117")) | |
| 31829 | #(ribcage () () ()) | |
| 31830 | #(ribcage | |
| 31831 | #(f | |
| 31832 | clause | |
| 31833 | clauses) | |
| 31834 | #((top) | |
| 31835 | (top) | |
| 31836 | (top)) | |
| 31837 | #("i11100" | |
| 31838 | "i11101" | |
| 31839 | "i11102")) | |
| 31840 | #(ribcage | |
| 31841 | #(e m1 m2) | |
| 31842 | #((top) | |
| 31843 | (top) | |
| 31844 | (top)) | |
| 31845 | #("i11090" | |
| 31846 | "i11091" | |
| 31847 | "i11092")) | |
| df40b969 AW |
31848 | #(ribcage () () ()) |
| 31849 | #(ribcage | |
| 014de9e2 | 31850 | #(x) |
| df40b969 | 31851 | #((top)) |
| 014de9e2 AW |
31852 | #("i11087"))) |
| 31853 | (hygiene guile)) | |
| 31854 | '#(syntax-object | |
| 31855 | t | |
| 31856 | ((top) | |
| 31857 | #(ribcage | |
| 31858 | #(k e1 e2) | |
| 31859 | #((top) | |
| 31860 | (top) | |
| 31861 | (top)) | |
| 31862 | #("i11115" | |
| 31863 | "i11116" | |
| 31864 | "i11117")) | |
| df40b969 AW |
31865 | #(ribcage () () ()) |
| 31866 | #(ribcage | |
| 31867 | #(f | |
| 31868 | clause | |
| 31869 | clauses) | |
| 31870 | #((top) | |
| 31871 | (top) | |
| 31872 | (top)) | |
| 014de9e2 AW |
31873 | #("i11100" |
| 31874 | "i11101" | |
| 31875 | "i11102")) | |
| df40b969 AW |
31876 | #(ribcage |
| 31877 | #(e m1 m2) | |
| 31878 | #((top) | |
| 31879 | (top) | |
| 31880 | (top)) | |
| 014de9e2 AW |
31881 | #("i11090" |
| 31882 | "i11091" | |
| 31883 | "i11092")) | |
| df40b969 AW |
31884 | #(ribcage () () ()) |
| 31885 | #(ribcage | |
| 31886 | #(x) | |
| 31887 | #((top)) | |
| 014de9e2 | 31888 | #("i11087"))) |
| df40b969 AW |
31889 | (hygiene guile)) |
| 31890 | (list '#(syntax-object | |
| 014de9e2 | 31891 | quote |
| df40b969 AW |
31892 | ((top) |
| 31893 | #(ribcage | |
| 31894 | #(k e1 e2) | |
| 31895 | #((top) | |
| 31896 | (top) | |
| 31897 | (top)) | |
| 014de9e2 AW |
31898 | #("i11115" |
| 31899 | "i11116" | |
| 31900 | "i11117")) | |
| df40b969 AW |
31901 | #(ribcage |
| 31902 | () | |
| 31903 | () | |
| 31904 | ()) | |
| 31905 | #(ribcage | |
| 31906 | #(f | |
| 31907 | clause | |
| 31908 | clauses) | |
| 31909 | #((top) | |
| 31910 | (top) | |
| 31911 | (top)) | |
| 014de9e2 AW |
31912 | #("i11100" |
| 31913 | "i11101" | |
| 31914 | "i11102")) | |
| df40b969 AW |
31915 | #(ribcage |
| 31916 | #(e m1 m2) | |
| 014de9e2 AW |
31917 | #((top) |
| 31918 | (top) | |
| 31919 | (top)) | |
| 31920 | #("i11090" | |
| 31921 | "i11091" | |
| 31922 | "i11092")) | |
| 31923 | #(ribcage | |
| 31924 | () | |
| 31925 | () | |
| 31926 | ()) | |
| 31927 | #(ribcage | |
| 31928 | #(x) | |
| 31929 | #((top)) | |
| 31930 | #("i11087"))) | |
| 31931 | (hygiene | |
| 31932 | guile)) | |
| 31933 | #{k 11118}#)) | |
| 31934 | (cons '#(syntax-object | |
| 31935 | begin | |
| 31936 | ((top) | |
| 31937 | #(ribcage | |
| 31938 | #(k e1 e2) | |
| 31939 | #((top) | |
| 31940 | (top) | |
| 31941 | (top)) | |
| 31942 | #("i11115" | |
| 31943 | "i11116" | |
| 31944 | "i11117")) | |
| 31945 | #(ribcage () () ()) | |
| 31946 | #(ribcage | |
| 31947 | #(f | |
| 31948 | clause | |
| 31949 | clauses) | |
| 31950 | #((top) | |
| 31951 | (top) | |
| 31952 | (top)) | |
| 31953 | #("i11100" | |
| 31954 | "i11101" | |
| 31955 | "i11102")) | |
| 31956 | #(ribcage | |
| 31957 | #(e m1 m2) | |
| 31958 | #((top) | |
| 31959 | (top) | |
| 31960 | (top)) | |
| 31961 | #("i11090" | |
| 31962 | "i11091" | |
| 31963 | "i11092")) | |
| 31964 | #(ribcage () () ()) | |
| 31965 | #(ribcage | |
| 31966 | #(x) | |
| 31967 | #((top)) | |
| 31968 | #("i11087"))) | |
| 31969 | (hygiene guile)) | |
| 31970 | (cons #{e1 11119}# | |
| 31971 | #{e2 11120}#)))) | |
| 31972 | #{tmp 11114}#) | |
| 31973 | (syntax-violation | |
| 31974 | 'case | |
| 31975 | "bad clause" | |
| 31976 | #{x 11086}# | |
| 31977 | #{clause 11104}#))))) | |
| 31978 | (let ((#{tmp 11126}# | |
| 31979 | (#{f 11103}# | |
| 31980 | (car #{clauses 11105}#) | |
| 31981 | (cdr #{clauses 11105}#)))) | |
| 31982 | (let ((#{tmp 11130}# | |
| 31983 | ($sc-dispatch | |
| 31984 | #{clause 11104}# | |
| 31985 | '(each-any any . each-any)))) | |
| 31986 | (if #{tmp 11130}# | |
| 31987 | (@apply | |
| 31988 | (lambda (#{k 11134}# | |
| 31989 | #{e1 11135}# | |
| 31990 | #{e2 11136}#) | |
| 31991 | (list '#(syntax-object | |
| 31992 | if | |
| df40b969 AW |
31993 | ((top) |
| 31994 | #(ribcage | |
| 014de9e2 AW |
31995 | #(k e1 e2) |
| 31996 | #((top) (top) (top)) | |
| 31997 | #("i11131" | |
| 31998 | "i11132" | |
| 31999 | "i11133")) | |
| df40b969 AW |
32000 | #(ribcage () () ()) |
| 32001 | #(ribcage | |
| 014de9e2 | 32002 | #(rest) |
| df40b969 | 32003 | #((top)) |
| 014de9e2 AW |
32004 | #("i11127")) |
| 32005 | #(ribcage () () ()) | |
| df40b969 | 32006 | #(ribcage |
| 014de9e2 AW |
32007 | #(f clause clauses) |
| 32008 | #((top) (top) (top)) | |
| 32009 | #("i11100" | |
| 32010 | "i11101" | |
| 32011 | "i11102")) | |
| 32012 | #(ribcage | |
| 32013 | #(e m1 m2) | |
| 32014 | #((top) (top) (top)) | |
| 32015 | #("i11090" | |
| 32016 | "i11091" | |
| 32017 | "i11092")) | |
| df40b969 AW |
32018 | #(ribcage () () ()) |
| 32019 | #(ribcage | |
| 32020 | #(x) | |
| 32021 | #((top)) | |
| 014de9e2 AW |
32022 | #("i11087"))) |
| 32023 | (hygiene guile)) | |
| 32024 | (list '#(syntax-object | |
| 32025 | memv | |
| df40b969 AW |
32026 | ((top) |
| 32027 | #(ribcage | |
| 014de9e2 AW |
32028 | #(k e1 e2) |
| 32029 | #((top) (top) (top)) | |
| 32030 | #("i11131" | |
| 32031 | "i11132" | |
| 32032 | "i11133")) | |
| 32033 | #(ribcage () () ()) | |
| 32034 | #(ribcage | |
| 32035 | #(rest) | |
| 32036 | #((top)) | |
| 32037 | #("i11127")) | |
| 32038 | #(ribcage () () ()) | |
| 32039 | #(ribcage | |
| 32040 | #(f clause clauses) | |
| 32041 | #((top) (top) (top)) | |
| 32042 | #("i11100" | |
| 32043 | "i11101" | |
| 32044 | "i11102")) | |
| 32045 | #(ribcage | |
| 32046 | #(e m1 m2) | |
| 32047 | #((top) (top) (top)) | |
| 32048 | #("i11090" | |
| 32049 | "i11091" | |
| 32050 | "i11092")) | |
| df40b969 AW |
32051 | #(ribcage () () ()) |
| 32052 | #(ribcage | |
| 32053 | #(x) | |
| 32054 | #((top)) | |
| 014de9e2 | 32055 | #("i11087"))) |
| df40b969 | 32056 | (hygiene guile)) |
| 014de9e2 AW |
32057 | '#(syntax-object |
| 32058 | t | |
| df40b969 AW |
32059 | ((top) |
| 32060 | #(ribcage | |
| 014de9e2 AW |
32061 | #(k e1 e2) |
| 32062 | #((top) (top) (top)) | |
| 32063 | #("i11131" | |
| 32064 | "i11132" | |
| 32065 | "i11133")) | |
| 32066 | #(ribcage () () ()) | |
| 32067 | #(ribcage | |
| 32068 | #(rest) | |
| 32069 | #((top)) | |
| 32070 | #("i11127")) | |
| 32071 | #(ribcage () () ()) | |
| 32072 | #(ribcage | |
| 32073 | #(f clause clauses) | |
| 32074 | #((top) (top) (top)) | |
| 32075 | #("i11100" | |
| 32076 | "i11101" | |
| 32077 | "i11102")) | |
| 32078 | #(ribcage | |
| 32079 | #(e m1 m2) | |
| 32080 | #((top) (top) (top)) | |
| 32081 | #("i11090" | |
| 32082 | "i11091" | |
| 32083 | "i11092")) | |
| df40b969 AW |
32084 | #(ribcage () () ()) |
| 32085 | #(ribcage | |
| 32086 | #(x) | |
| 32087 | #((top)) | |
| 014de9e2 AW |
32088 | #("i11087"))) |
| 32089 | (hygiene guile)) | |
| 32090 | (list '#(syntax-object | |
| 32091 | quote | |
| df40b969 AW |
32092 | ((top) |
| 32093 | #(ribcage | |
| 014de9e2 | 32094 | #(k e1 e2) |
| df40b969 | 32095 | #((top) |
| df40b969 AW |
32096 | (top) |
| 32097 | (top)) | |
| 014de9e2 AW |
32098 | #("i11131" |
| 32099 | "i11132" | |
| 32100 | "i11133")) | |
| df40b969 AW |
32101 | #(ribcage |
| 32102 | () | |
| 32103 | () | |
| 32104 | ()) | |
| 32105 | #(ribcage | |
| 014de9e2 | 32106 | #(rest) |
| df40b969 | 32107 | #((top)) |
| 014de9e2 AW |
32108 | #("i11127")) |
| 32109 | #(ribcage | |
| 32110 | () | |
| 32111 | () | |
| 32112 | ()) | |
| df40b969 | 32113 | #(ribcage |
| 014de9e2 AW |
32114 | #(f |
| 32115 | clause | |
| 32116 | clauses) | |
| df40b969 AW |
32117 | #((top) |
| 32118 | (top) | |
| 014de9e2 AW |
32119 | (top)) |
| 32120 | #("i11100" | |
| 32121 | "i11101" | |
| 32122 | "i11102")) | |
| 32123 | #(ribcage | |
| 32124 | #(e m1 m2) | |
| 32125 | #((top) | |
| df40b969 AW |
32126 | (top) |
| 32127 | (top)) | |
| 014de9e2 AW |
32128 | #("i11090" |
| 32129 | "i11091" | |
| 32130 | "i11092")) | |
| df40b969 AW |
32131 | #(ribcage |
| 32132 | () | |
| 32133 | () | |
| 32134 | ()) | |
| 32135 | #(ribcage | |
| 32136 | #(x) | |
| 32137 | #((top)) | |
| 014de9e2 AW |
32138 | #("i11087"))) |
| 32139 | (hygiene guile)) | |
| 32140 | #{k 11134}#)) | |
| 32141 | (cons '#(syntax-object | |
| 32142 | begin | |
| 32143 | ((top) | |
| 32144 | #(ribcage | |
| 32145 | #(k e1 e2) | |
| 32146 | #((top) (top) (top)) | |
| 32147 | #("i11131" | |
| 32148 | "i11132" | |
| 32149 | "i11133")) | |
| 32150 | #(ribcage () () ()) | |
| 32151 | #(ribcage | |
| 32152 | #(rest) | |
| 32153 | #((top)) | |
| 32154 | #("i11127")) | |
| 32155 | #(ribcage () () ()) | |
| 32156 | #(ribcage | |
| 32157 | #(f clause clauses) | |
| 32158 | #((top) (top) (top)) | |
| 32159 | #("i11100" | |
| 32160 | "i11101" | |
| 32161 | "i11102")) | |
| 32162 | #(ribcage | |
| 32163 | #(e m1 m2) | |
| 32164 | #((top) (top) (top)) | |
| 32165 | #("i11090" | |
| 32166 | "i11091" | |
| 32167 | "i11092")) | |
| 32168 | #(ribcage () () ()) | |
| 32169 | #(ribcage | |
| 32170 | #(x) | |
| 32171 | #((top)) | |
| 32172 | #("i11087"))) | |
| 32173 | (hygiene guile)) | |
| 32174 | (cons #{e1 11135}# | |
| 32175 | #{e2 11136}#)) | |
| 32176 | #{tmp 11126}#)) | |
| 32177 | #{tmp 11130}#) | |
| 32178 | (syntax-violation | |
| 32179 | 'case | |
| 32180 | "bad clause" | |
| 32181 | #{x 11086}# | |
| 32182 | #{clause 11104}#)))))))) | |
| 32183 | (#{f 11103}# #{m1 11094}# #{m2 11095}#)))) | |
| 32184 | (list '#(syntax-object | |
| 32185 | let | |
| 32186 | ((top) | |
| 32187 | #(ribcage () () ()) | |
| 32188 | #(ribcage #(body) #((top)) #("i11098")) | |
| 32189 | #(ribcage | |
| 32190 | #(e m1 m2) | |
| 32191 | #((top) (top) (top)) | |
| 32192 | #("i11090" "i11091" "i11092")) | |
| 32193 | #(ribcage () () ()) | |
| 32194 | #(ribcage #(x) #((top)) #("i11087"))) | |
| 32195 | (hygiene guile)) | |
| 32196 | (list (list '#(syntax-object | |
| 32197 | t | |
| 32198 | ((top) | |
| 32199 | #(ribcage () () ()) | |
| 32200 | #(ribcage #(body) #((top)) #("i11098")) | |
| 32201 | #(ribcage | |
| 32202 | #(e m1 m2) | |
| 32203 | #((top) (top) (top)) | |
| 32204 | #("i11090" "i11091" "i11092")) | |
| 32205 | #(ribcage () () ()) | |
| 32206 | #(ribcage #(x) #((top)) #("i11087"))) | |
| 32207 | (hygiene guile)) | |
| 32208 | #{e 11093}#)) | |
| 32209 | #{tmp 11097}#))) | |
| 32210 | #{tmp 11089}#) | |
| 32211 | (syntax-violation | |
| 32212 | #f | |
| 32213 | "source expression failed to match any pattern" | |
| 32214 | #{x 11086}#)))))) | |
| 32215 | ||
| 32216 | (define make-variable-transformer | |
| 32217 | (lambda (#{proc 11142}#) | |
| 32218 | (if (procedure? #{proc 11142}#) | |
| 32219 | (letrec* | |
| 32220 | ((#{trans 11145}# | |
| 32221 | (lambda (#{x 11146}#) | |
| 32222 | (#{proc 11142}# #{x 11146}#)))) | |
| 32223 | (begin | |
| 32224 | (set-procedure-property! | |
| 32225 | #{trans 11145}# | |
| 32226 | 'variable-transformer | |
| 32227 | #t) | |
| 32228 | #{trans 11145}#)) | |
| 32229 | (error "variable transformer not a procedure" | |
| 32230 | #{proc 11142}#)))) | |
| 32231 | ||
| 32232 | (define identifier-syntax | |
| 32233 | (make-syntax-transformer | |
| 32234 | 'identifier-syntax | |
| 32235 | 'macro | |
| 32236 | (lambda (#{x 11152}#) | |
| 32237 | (let ((#{tmp 11155}# | |
| 32238 | ($sc-dispatch #{x 11152}# '(_ any)))) | |
| 32239 | (if #{tmp 11155}# | |
| 32240 | (@apply | |
| 32241 | (lambda (#{e 11157}#) | |
| 32242 | (list '#(syntax-object | |
| 32243 | lambda | |
| 32244 | ((top) | |
| 32245 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32246 | #(ribcage () () ()) | |
| 32247 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32248 | (hygiene guile)) | |
| 32249 | '(#(syntax-object | |
| 32250 | x | |
| 32251 | ((top) | |
| 32252 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32253 | #(ribcage () () ()) | |
| 32254 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32255 | (hygiene guile))) | |
| 32256 | '#((#(syntax-object | |
| 32257 | macro-type | |
| 32258 | ((top) | |
| 32259 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32260 | #(ribcage () () ()) | |
| 32261 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32262 | (hygiene guile)) | |
| 32263 | . | |
| 32264 | #(syntax-object | |
| 32265 | identifier-syntax | |
| 32266 | ((top) | |
| 32267 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32268 | #(ribcage () () ()) | |
| 32269 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32270 | (hygiene guile)))) | |
| 32271 | (list '#(syntax-object | |
| 32272 | syntax-case | |
| 32273 | ((top) | |
| 32274 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32275 | #(ribcage () () ()) | |
| 32276 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32277 | (hygiene guile)) | |
| 32278 | '#(syntax-object | |
| 32279 | x | |
| 32280 | ((top) | |
| 32281 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32282 | #(ribcage () () ()) | |
| 32283 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32284 | (hygiene guile)) | |
| 32285 | '() | |
| 32286 | (list '#(syntax-object | |
| 32287 | id | |
| 32288 | ((top) | |
| 32289 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32290 | #(ribcage () () ()) | |
| 32291 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32292 | (hygiene guile)) | |
| 32293 | '(#(syntax-object | |
| 32294 | identifier? | |
| 32295 | ((top) | |
| 32296 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32297 | #(ribcage () () ()) | |
| 32298 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32299 | (hygiene guile)) | |
| 32300 | (#(syntax-object | |
| 32301 | syntax | |
| 32302 | ((top) | |
| 32303 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32304 | #(ribcage () () ()) | |
| 32305 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32306 | (hygiene guile)) | |
| 32307 | #(syntax-object | |
| 32308 | id | |
| 32309 | ((top) | |
| 32310 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32311 | #(ribcage () () ()) | |
| 32312 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32313 | (hygiene guile)))) | |
| 32314 | (list '#(syntax-object | |
| 32315 | syntax | |
| 32316 | ((top) | |
| 32317 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32318 | #(ribcage () () ()) | |
| 32319 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32320 | (hygiene guile)) | |
| 32321 | #{e 11157}#)) | |
| 32322 | (list '(#(syntax-object | |
| 32323 | _ | |
| 32324 | ((top) | |
| 32325 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32326 | #(ribcage () () ()) | |
| 32327 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32328 | (hygiene guile)) | |
| 32329 | #(syntax-object | |
| 32330 | x | |
| 32331 | ((top) | |
| 32332 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32333 | #(ribcage () () ()) | |
| 32334 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32335 | (hygiene guile)) | |
| 32336 | #(syntax-object | |
| 32337 | ... | |
| 32338 | ((top) | |
| 32339 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32340 | #(ribcage () () ()) | |
| 32341 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32342 | (hygiene guile))) | |
| 32343 | (list '#(syntax-object | |
| 32344 | syntax | |
| 32345 | ((top) | |
| 32346 | #(ribcage #(e) #((top)) #("i11156")) | |
| 32347 | #(ribcage () () ()) | |
| 32348 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32349 | (hygiene guile)) | |
| 32350 | (cons #{e 11157}# | |
| 32351 | '(#(syntax-object | |
| 32352 | x | |
| 32353 | ((top) | |
| 32354 | #(ribcage | |
| 32355 | #(e) | |
| 32356 | #((top)) | |
| 32357 | #("i11156")) | |
| 32358 | #(ribcage () () ()) | |
| 32359 | #(ribcage | |
| 32360 | #(x) | |
| 32361 | #((top)) | |
| 32362 | #("i11153"))) | |
| 32363 | (hygiene guile)) | |
| 32364 | #(syntax-object | |
| 32365 | ... | |
| 32366 | ((top) | |
| 32367 | #(ribcage | |
| 32368 | #(e) | |
| 32369 | #((top)) | |
| 32370 | #("i11156")) | |
| 32371 | #(ribcage () () ()) | |
| 32372 | #(ribcage | |
| 32373 | #(x) | |
| 32374 | #((top)) | |
| 32375 | #("i11153"))) | |
| 32376 | (hygiene guile))))))))) | |
| 32377 | #{tmp 11155}#) | |
| 32378 | (let ((#{tmp 11158}# | |
| 32379 | ($sc-dispatch | |
| 32380 | #{x 11152}# | |
| 32381 | '(_ (any any) | |
| 32382 | ((#(free-id | |
| 32383 | #(syntax-object | |
| 32384 | set! | |
| 32385 | ((top) | |
| 32386 | #(ribcage () () ()) | |
| 32387 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32388 | (hygiene guile))) | |
| 32389 | any | |
| 32390 | any) | |
| 32391 | any))))) | |
| 32392 | (if (if #{tmp 11158}# | |
| 32393 | (@apply | |
| 32394 | (lambda (#{id 11164}# | |
| 32395 | #{exp1 11165}# | |
| 32396 | #{var 11166}# | |
| 32397 | #{val 11167}# | |
| 32398 | #{exp2 11168}#) | |
| 32399 | (if (identifier? #{id 11164}#) | |
| 32400 | (identifier? #{var 11166}#) | |
| 32401 | #f)) | |
| 32402 | #{tmp 11158}#) | |
| 32403 | #f) | |
| 32404 | (@apply | |
| 32405 | (lambda (#{id 11176}# | |
| 32406 | #{exp1 11177}# | |
| 32407 | #{var 11178}# | |
| 32408 | #{val 11179}# | |
| 32409 | #{exp2 11180}#) | |
| 32410 | (list '#(syntax-object | |
| 32411 | make-variable-transformer | |
| 32412 | ((top) | |
| 32413 | #(ribcage | |
| 32414 | #(id exp1 var val exp2) | |
| 32415 | #((top) (top) (top) (top) (top)) | |
| 32416 | #("i11171" "i11172" "i11173" "i11174" "i11175")) | |
| 32417 | #(ribcage () () ()) | |
| 32418 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32419 | (hygiene guile)) | |
| 32420 | (list '#(syntax-object | |
| 32421 | lambda | |
| 32422 | ((top) | |
| 32423 | #(ribcage | |
| 32424 | #(id exp1 var val exp2) | |
| 32425 | #((top) (top) (top) (top) (top)) | |
| 32426 | #("i11171" | |
| 32427 | "i11172" | |
| 32428 | "i11173" | |
| 32429 | "i11174" | |
| 32430 | "i11175")) | |
| 32431 | #(ribcage () () ()) | |
| 32432 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32433 | (hygiene guile)) | |
| 32434 | '(#(syntax-object | |
| 32435 | x | |
| 32436 | ((top) | |
| 32437 | #(ribcage | |
| 32438 | #(id exp1 var val exp2) | |
| 32439 | #((top) (top) (top) (top) (top)) | |
| 32440 | #("i11171" | |
| 32441 | "i11172" | |
| 32442 | "i11173" | |
| 32443 | "i11174" | |
| 32444 | "i11175")) | |
| 32445 | #(ribcage () () ()) | |
| 32446 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32447 | (hygiene guile))) | |
| 32448 | '#((#(syntax-object | |
| 32449 | macro-type | |
| 32450 | ((top) | |
| 32451 | #(ribcage | |
| 32452 | #(id exp1 var val exp2) | |
| 32453 | #((top) (top) (top) (top) (top)) | |
| 32454 | #("i11171" | |
| 32455 | "i11172" | |
| 32456 | "i11173" | |
| 32457 | "i11174" | |
| 32458 | "i11175")) | |
| 32459 | #(ribcage () () ()) | |
| 32460 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32461 | (hygiene guile)) | |
| 32462 | . | |
| 32463 | #(syntax-object | |
| 32464 | variable-transformer | |
| 32465 | ((top) | |
| 32466 | #(ribcage | |
| 32467 | #(id exp1 var val exp2) | |
| 32468 | #((top) (top) (top) (top) (top)) | |
| 32469 | #("i11171" | |
| 32470 | "i11172" | |
| 32471 | "i11173" | |
| 32472 | "i11174" | |
| 32473 | "i11175")) | |
| 32474 | #(ribcage () () ()) | |
| 32475 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32476 | (hygiene guile)))) | |
| 32477 | (list '#(syntax-object | |
| 32478 | syntax-case | |
| 32479 | ((top) | |
| 32480 | #(ribcage | |
| 32481 | #(id exp1 var val exp2) | |
| 32482 | #((top) (top) (top) (top) (top)) | |
| 32483 | #("i11171" | |
| 32484 | "i11172" | |
| 32485 | "i11173" | |
| 32486 | "i11174" | |
| 32487 | "i11175")) | |
| 32488 | #(ribcage () () ()) | |
| 32489 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32490 | (hygiene guile)) | |
| 32491 | '#(syntax-object | |
| 32492 | x | |
| 32493 | ((top) | |
| 32494 | #(ribcage | |
| 32495 | #(id exp1 var val exp2) | |
| 32496 | #((top) (top) (top) (top) (top)) | |
| 32497 | #("i11171" | |
| 32498 | "i11172" | |
| 32499 | "i11173" | |
| 32500 | "i11174" | |
| 32501 | "i11175")) | |
| 32502 | #(ribcage () () ()) | |
| 32503 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32504 | (hygiene guile)) | |
| 32505 | '(#(syntax-object | |
| 32506 | set! | |
| 32507 | ((top) | |
| 32508 | #(ribcage | |
| 32509 | #(id exp1 var val exp2) | |
| 32510 | #((top) (top) (top) (top) (top)) | |
| 32511 | #("i11171" | |
| 32512 | "i11172" | |
| 32513 | "i11173" | |
| 32514 | "i11174" | |
| 32515 | "i11175")) | |
| 32516 | #(ribcage () () ()) | |
| 32517 | #(ribcage #(x) #((top)) #("i11153"))) | |
| 32518 | (hygiene guile))) | |
| 32519 | (list (list '#(syntax-object | |
| 32520 | set! | |
| 32521 | ((top) | |
| 32522 | #(ribcage | |
| 32523 | #(id exp1 var val exp2) | |
| 32524 | #((top) | |
| 32525 | (top) | |
| 32526 | (top) | |
| 32527 | (top) | |
| 32528 | (top)) | |
| 32529 | #("i11171" | |
| 32530 | "i11172" | |
| 32531 | "i11173" | |
| 32532 | "i11174" | |
| 32533 | "i11175")) | |
| 32534 | #(ribcage () () ()) | |
| 32535 | #(ribcage | |
| 32536 | #(x) | |
| 32537 | #((top)) | |
| 32538 | #("i11153"))) | |
| 32539 | (hygiene guile)) | |
| 32540 | #{var 11178}# | |
| 32541 | #{val 11179}#) | |
| 32542 | (list '#(syntax-object | |
| 32543 | syntax | |
| 32544 | ((top) | |
| 32545 | #(ribcage | |
| 32546 | #(id exp1 var val exp2) | |
| 32547 | #((top) | |
| 32548 | (top) | |
| 32549 | (top) | |
| 32550 | (top) | |
| 32551 | (top)) | |
| 32552 | #("i11171" | |
| 32553 | "i11172" | |
| 32554 | "i11173" | |
| 32555 | "i11174" | |
| 32556 | "i11175")) | |
| 32557 | #(ribcage () () ()) | |
| 32558 | #(ribcage | |
| 32559 | #(x) | |
| 32560 | #((top)) | |
| 32561 | #("i11153"))) | |
| 32562 | (hygiene guile)) | |
| 32563 | #{exp2 11180}#)) | |
| 32564 | (list (cons #{id 11176}# | |
| 32565 | '(#(syntax-object | |
| 32566 | x | |
| 32567 | ((top) | |
| 32568 | #(ribcage | |
| 32569 | #(id exp1 var val exp2) | |
| 32570 | #((top) | |
| 32571 | (top) | |
| 32572 | (top) | |
| 32573 | (top) | |
| 32574 | (top)) | |
| 32575 | #("i11171" | |
| 32576 | "i11172" | |
| 32577 | "i11173" | |
| 32578 | "i11174" | |
| 32579 | "i11175")) | |
| 32580 | #(ribcage () () ()) | |
| 32581 | #(ribcage | |
| 32582 | #(x) | |
| 32583 | #((top)) | |
| 32584 | #("i11153"))) | |
| 32585 | (hygiene guile)) | |
| 32586 | #(syntax-object | |
| 32587 | ... | |
| 32588 | ((top) | |
| 32589 | #(ribcage | |
| 32590 | #(id exp1 var val exp2) | |
| 32591 | #((top) | |
| 32592 | (top) | |
| 32593 | (top) | |
| 32594 | (top) | |
| 32595 | (top)) | |
| 32596 | #("i11171" | |
| 32597 | "i11172" | |
| 32598 | "i11173" | |
| 32599 | "i11174" | |
| 32600 | "i11175")) | |
| 32601 | #(ribcage () () ()) | |
| 32602 | #(ribcage | |
| 32603 | #(x) | |
| 32604 | #((top)) | |
| 32605 | #("i11153"))) | |
| 32606 | (hygiene guile)))) | |
| 32607 | (list '#(syntax-object | |
| 32608 | syntax | |
| 32609 | ((top) | |
| 32610 | #(ribcage | |
| 32611 | #(id exp1 var val exp2) | |
| 32612 | #((top) | |
| 32613 | (top) | |
| 32614 | (top) | |
| 32615 | (top) | |
| 32616 | (top)) | |
| 32617 | #("i11171" | |
| 32618 | "i11172" | |
| 32619 | "i11173" | |
| 32620 | "i11174" | |
| 32621 | "i11175")) | |
| 32622 | #(ribcage () () ()) | |
| 32623 | #(ribcage | |
| 32624 | #(x) | |
| 32625 | #((top)) | |
| 32626 | #("i11153"))) | |
| 32627 | (hygiene guile)) | |
| 32628 | (cons #{exp1 11177}# | |
| 32629 | '(#(syntax-object | |
| 32630 | x | |
| 32631 | ((top) | |
| 32632 | #(ribcage | |
| 32633 | #(id | |
| 32634 | exp1 | |
| 32635 | var | |
| 32636 | val | |
| 32637 | exp2) | |
| 32638 | #((top) | |
| 32639 | (top) | |
| 32640 | (top) | |
| 32641 | (top) | |
| 32642 | (top)) | |
| 32643 | #("i11171" | |
| 32644 | "i11172" | |
| 32645 | "i11173" | |
| 32646 | "i11174" | |
| 32647 | "i11175")) | |
| 32648 | #(ribcage () () ()) | |
| 32649 | #(ribcage | |
| 32650 | #(x) | |
| 32651 | #((top)) | |
| 32652 | #("i11153"))) | |
| 32653 | (hygiene guile)) | |
| 32654 | #(syntax-object | |
| 32655 | ... | |
| 32656 | ((top) | |
| 32657 | #(ribcage | |
| 32658 | #(id | |
| 32659 | exp1 | |
| 32660 | var | |
| 32661 | val | |
| 32662 | exp2) | |
| 32663 | #((top) | |
| 32664 | (top) | |
| 32665 | (top) | |
| 32666 | (top) | |
| 32667 | (top)) | |
| 32668 | #("i11171" | |
| 32669 | "i11172" | |
| 32670 | "i11173" | |
| 32671 | "i11174" | |
| 32672 | "i11175")) | |
| 32673 | #(ribcage () () ()) | |
| 32674 | #(ribcage | |
| 32675 | #(x) | |
| 32676 | #((top)) | |
| 32677 | #("i11153"))) | |
| 32678 | (hygiene guile)))))) | |
| 32679 | (list #{id 11176}# | |
| 32680 | (list '#(syntax-object | |
| 32681 | identifier? | |
| 32682 | ((top) | |
| 32683 | #(ribcage | |
| 32684 | #(id exp1 var val exp2) | |
| 32685 | #((top) | |
| 32686 | (top) | |
| 32687 | (top) | |
| 32688 | (top) | |
| 32689 | (top)) | |
| 32690 | #("i11171" | |
| 32691 | "i11172" | |
| 32692 | "i11173" | |
| 32693 | "i11174" | |
| 32694 | "i11175")) | |
| 32695 | #(ribcage () () ()) | |
| 32696 | #(ribcage | |
| 32697 | #(x) | |
| 32698 | #((top)) | |
| 32699 | #("i11153"))) | |
| 32700 | (hygiene guile)) | |
| 32701 | (list '#(syntax-object | |
| 32702 | syntax | |
| 32703 | ((top) | |
| 32704 | #(ribcage | |
| 32705 | #(id | |
| 32706 | exp1 | |
| 32707 | var | |
| 32708 | val | |
| 32709 | exp2) | |
| 32710 | #((top) | |
| 32711 | (top) | |
| 32712 | (top) | |
| 32713 | (top) | |
| 32714 | (top)) | |
| 32715 | #("i11171" | |
| 32716 | "i11172" | |
| 32717 | "i11173" | |
| 32718 | "i11174" | |
| 32719 | "i11175")) | |
| 32720 | #(ribcage () () ()) | |
| 32721 | #(ribcage | |
| 32722 | #(x) | |
| 32723 | #((top)) | |
| 32724 | #("i11153"))) | |
| 32725 | (hygiene guile)) | |
| 32726 | #{id 11176}#)) | |
| 32727 | (list '#(syntax-object | |
| 32728 | syntax | |
| 32729 | ((top) | |
| 32730 | #(ribcage | |
| 32731 | #(id exp1 var val exp2) | |
| 32732 | #((top) | |
| 32733 | (top) | |
| 32734 | (top) | |
| 32735 | (top) | |
| 32736 | (top)) | |
| 32737 | #("i11171" | |
| 32738 | "i11172" | |
| 32739 | "i11173" | |
| 32740 | "i11174" | |
| 32741 | "i11175")) | |
| 32742 | #(ribcage () () ()) | |
| 32743 | #(ribcage | |
| 32744 | #(x) | |
| 32745 | #((top)) | |
| 32746 | #("i11153"))) | |
| 32747 | (hygiene guile)) | |
| 32748 | #{exp1 11177}#)))))) | |
| 32749 | #{tmp 11158}#) | |
| 32750 | (syntax-violation | |
| 32751 | #f | |
| 32752 | "source expression failed to match any pattern" | |
| 32753 | #{x 11152}#)))))))) | |
| 97bc28b6 AW |
32754 | |
| 32755 | (define define* | |
| e809758a AW |
32756 | (make-syntax-transformer |
| 32757 | 'define* | |
| 97bc28b6 | 32758 | 'macro |
| 014de9e2 AW |
32759 | (lambda (#{x 11181}#) |
| 32760 | (let ((#{tmp 11184}# | |
| 32761 | ($sc-dispatch | |
| 32762 | #{x 11181}# | |
| 32763 | '(_ (any . any) any . each-any)))) | |
| 32764 | (if #{tmp 11184}# | |
| 32765 | (@apply | |
| 32766 | (lambda (#{id 11189}# | |
| 32767 | #{args 11190}# | |
| 32768 | #{b0 11191}# | |
| 32769 | #{b1 11192}#) | |
| 32770 | (list '#(syntax-object | |
| 32771 | define | |
| 32772 | ((top) | |
| 32773 | #(ribcage | |
| 32774 | #(id args b0 b1) | |
| 32775 | #((top) (top) (top) (top)) | |
| 32776 | #("i11185" "i11186" "i11187" "i11188")) | |
| 32777 | #(ribcage () () ()) | |
| 32778 | #(ribcage #(x) #((top)) #("i11182"))) | |
| 32779 | (hygiene guile)) | |
| 32780 | #{id 11189}# | |
| 32781 | (cons '#(syntax-object | |
| 32782 | lambda* | |
| 32783 | ((top) | |
| 32784 | #(ribcage | |
| 32785 | #(id args b0 b1) | |
| 32786 | #((top) (top) (top) (top)) | |
| 32787 | #("i11185" "i11186" "i11187" "i11188")) | |
| 32788 | #(ribcage () () ()) | |
| 32789 | #(ribcage #(x) #((top)) #("i11182"))) | |
| 32790 | (hygiene guile)) | |
| 32791 | (cons #{args 11190}# | |
| 32792 | (cons #{b0 11191}# #{b1 11192}#))))) | |
| 32793 | #{tmp 11184}#) | |
| 32794 | (let ((#{tmp 11194}# | |
| 32795 | ($sc-dispatch #{x 11181}# '(_ any any)))) | |
| 32796 | (if (if #{tmp 11194}# | |
| df40b969 | 32797 | (@apply |
| 014de9e2 AW |
32798 | (lambda (#{id 11197}# #{val 11198}#) |
| 32799 | (identifier? | |
| 32800 | '#(syntax-object | |
| 32801 | x | |
| 32802 | ((top) | |
| 32803 | #(ribcage | |
| 32804 | #(id val) | |
| 32805 | #((top) (top)) | |
| 32806 | #("i11195" "i11196")) | |
| 32807 | #(ribcage () () ()) | |
| 32808 | #(ribcage #(x) #((top)) #("i11182"))) | |
| 32809 | (hygiene guile)))) | |
| 32810 | #{tmp 11194}#) | |
| 32811 | #f) | |
| 32812 | (@apply | |
| 32813 | (lambda (#{id 11201}# #{val 11202}#) | |
| 32814 | (list '#(syntax-object | |
| 32815 | define | |
| 32816 | ((top) | |
| 32817 | #(ribcage | |
| 32818 | #(id val) | |
| 32819 | #((top) (top)) | |
| 32820 | #("i11199" "i11200")) | |
| 32821 | #(ribcage () () ()) | |
| 32822 | #(ribcage #(x) #((top)) #("i11182"))) | |
| 32823 | (hygiene guile)) | |
| 32824 | #{id 11201}# | |
| 32825 | #{val 11202}#)) | |
| 32826 | #{tmp 11194}#) | |
| 32827 | (syntax-violation | |
| 32828 | #f | |
| 32829 | "source expression failed to match any pattern" | |
| 32830 | #{x 11181}#)))))))) | |
| 65dd9e38 | 32831 |