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 | |
| b9434165 LC |
4 | (letrec ((#{and-map*\ 1199}# |
| 5 | (lambda (#{f\ 1239}# #{first\ 1238}# . #{rest\ 1237}#) | |
| 6 | (let ((#{t\ 1240}# (null? #{first\ 1238}#))) | |
| 7 | (if #{t\ 1240}# | |
| 8 | #{t\ 1240}# | |
| 9 | (if (null? #{rest\ 1237}#) | |
| 10 | (letrec ((#{andmap\ 1241}# | |
| 11 | (lambda (#{first\ 1242}#) | |
| 12 | (let ((#{x\ 1243}# (car #{first\ 1242}#)) | |
| 13 | (#{first\ 1244}# (cdr #{first\ 1242}#))) | |
| 14 | (if (null? #{first\ 1244}#) | |
| 15 | (#{f\ 1239}# #{x\ 1243}#) | |
| 16 | (if (#{f\ 1239}# #{x\ 1243}#) | |
| 17 | (#{andmap\ 1241}# #{first\ 1244}#) | |
| 65dd9e38 | 18 | #f)))))) |
| b9434165 LC |
19 | (#{andmap\ 1241}# #{first\ 1238}#)) |
| 20 | (letrec ((#{andmap\ 1245}# | |
| 21 | (lambda (#{first\ 1246}# #{rest\ 1247}#) | |
| 22 | (let ((#{x\ 1248}# (car #{first\ 1246}#)) | |
| 23 | (#{xr\ 1249}# (map car #{rest\ 1247}#)) | |
| 24 | (#{first\ 1250}# (cdr #{first\ 1246}#)) | |
| 25 | (#{rest\ 1251}# | |
| 26 | (map cdr #{rest\ 1247}#))) | |
| 27 | (if (null? #{first\ 1250}#) | |
| 28 | (apply #{f\ 1239}# | |
| 29 | (cons #{x\ 1248}# #{xr\ 1249}#)) | |
| 30 | (if (apply #{f\ 1239}# | |
| 31 | (cons #{x\ 1248}# #{xr\ 1249}#)) | |
| 32 | (#{andmap\ 1245}# | |
| 33 | #{first\ 1250}# | |
| 34 | #{rest\ 1251}#) | |
| 35 | #f)))))) | |
| 36 | (#{andmap\ 1245}# #{first\ 1238}# #{rest\ 1237}#)))))))) | |
| 37 | (letrec ((#{lambda-var-list\ 1345}# | |
| 38 | (lambda (#{vars\ 1469}#) | |
| 39 | (letrec ((#{lvl\ 1470}# | |
| 40 | (lambda (#{vars\ 1471}# #{ls\ 1472}# #{w\ 1473}#) | |
| 41 | (if (pair? #{vars\ 1471}#) | |
| 42 | (#{lvl\ 1470}# | |
| 43 | (cdr #{vars\ 1471}#) | |
| 44 | (cons (#{wrap\ 1325}# | |
| 45 | (car #{vars\ 1471}#) | |
| 46 | #{w\ 1473}# | |
| 47 | #f) | |
| 48 | #{ls\ 1472}#) | |
| 49 | #{w\ 1473}#) | |
| 50 | (if (#{id?\ 1297}# #{vars\ 1471}#) | |
| 51 | (cons (#{wrap\ 1325}# | |
| 52 | #{vars\ 1471}# | |
| 53 | #{w\ 1473}# | |
| 54 | #f) | |
| 55 | #{ls\ 1472}#) | |
| 56 | (if (null? #{vars\ 1471}#) | |
| 57 | #{ls\ 1472}# | |
| 58 | (if (#{syntax-object?\ 1281}# #{vars\ 1471}#) | |
| 59 | (#{lvl\ 1470}# | |
| 60 | (#{syntax-object-expression\ 1282}# | |
| 61 | #{vars\ 1471}#) | |
| 62 | #{ls\ 1472}# | |
| 63 | (#{join-wraps\ 1316}# | |
| 64 | #{w\ 1473}# | |
| 65 | (#{syntax-object-wrap\ 1283}# | |
| 66 | #{vars\ 1471}#))) | |
| 67 | (cons #{vars\ 1471}# #{ls\ 1472}#)))))))) | |
| 68 | (#{lvl\ 1470}# | |
| 69 | #{vars\ 1469}# | |
| 70 | '() | |
| 71 | '(()))))) | |
| 72 | (#{gen-var\ 1344}# | |
| 73 | (lambda (#{id\ 1474}#) | |
| 74 | (let ((#{id\ 1475}# | |
| 75 | (if (#{syntax-object?\ 1281}# #{id\ 1474}#) | |
| 76 | (#{syntax-object-expression\ 1282}# #{id\ 1474}#) | |
| 77 | #{id\ 1474}#))) | |
| d95eb7f4 | 78 | (gensym |
| b9434165 LC |
79 | (string-append (symbol->string #{id\ 1475}#) " "))))) |
| 80 | (#{strip\ 1343}# | |
| 81 | (lambda (#{x\ 1476}# #{w\ 1477}#) | |
| 82 | (if (memq 'top | |
| 83 | (#{wrap-marks\ 1300}# #{w\ 1477}#)) | |
| 84 | #{x\ 1476}# | |
| 85 | (letrec ((#{f\ 1478}# | |
| 86 | (lambda (#{x\ 1479}#) | |
| 87 | (if (#{syntax-object?\ 1281}# #{x\ 1479}#) | |
| 88 | (#{strip\ 1343}# | |
| 89 | (#{syntax-object-expression\ 1282}# | |
| 90 | #{x\ 1479}#) | |
| 91 | (#{syntax-object-wrap\ 1283}# #{x\ 1479}#)) | |
| 92 | (if (pair? #{x\ 1479}#) | |
| 93 | (let ((#{a\ 1480}# | |
| 94 | (#{f\ 1478}# (car #{x\ 1479}#))) | |
| 95 | (#{d\ 1481}# | |
| 96 | (#{f\ 1478}# (cdr #{x\ 1479}#)))) | |
| 97 | (if (if (eq? #{a\ 1480}# (car #{x\ 1479}#)) | |
| 98 | (eq? #{d\ 1481}# (cdr #{x\ 1479}#)) | |
| 99 | #f) | |
| 100 | #{x\ 1479}# | |
| 101 | (cons #{a\ 1480}# #{d\ 1481}#))) | |
| 102 | (if (vector? #{x\ 1479}#) | |
| 103 | (let ((#{old\ 1482}# | |
| 104 | (vector->list #{x\ 1479}#))) | |
| 105 | (let ((#{new\ 1483}# | |
| 106 | (map #{f\ 1478}# #{old\ 1482}#))) | |
| 107 | (if (#{and-map*\ 1199}# | |
| 108 | eq? | |
| 109 | #{old\ 1482}# | |
| 110 | #{new\ 1483}#) | |
| 111 | #{x\ 1479}# | |
| 112 | (list->vector #{new\ 1483}#)))) | |
| 113 | #{x\ 1479}#)))))) | |
| 114 | (#{f\ 1478}# #{x\ 1476}#))))) | |
| 115 | (#{ellipsis?\ 1342}# | |
| 116 | (lambda (#{x\ 1484}#) | |
| 117 | (if (#{nonsymbol-id?\ 1296}# #{x\ 1484}#) | |
| 118 | (#{free-id=?\ 1320}# | |
| 119 | #{x\ 1484}# | |
| 65dd9e38 AW |
120 | '#(syntax-object |
| 121 | ... | |
| 122 | ((top) | |
| 123 | #(ribcage () () ()) | |
| 124 | #(ribcage () () ()) | |
| 125 | #(ribcage #(x) #((top)) #("i")) | |
| 126 | #(ribcage | |
| 127 | (lambda-var-list | |
| 128 | gen-var | |
| 129 | strip | |
| 130 | ellipsis? | |
| 131 | chi-void | |
| 132 | eval-local-transformer | |
| 133 | chi-local-syntax | |
| 134 | chi-lambda-clause | |
| 135 | chi-body | |
| 136 | chi-macro | |
| 137 | chi-application | |
| 138 | chi-expr | |
| 139 | chi | |
| 140 | chi-top | |
| 141 | syntax-type | |
| 142 | chi-when-list | |
| 143 | chi-install-global | |
| 144 | chi-top-sequence | |
| 145 | chi-sequence | |
| 146 | source-wrap | |
| 147 | wrap | |
| 148 | bound-id-member? | |
| 149 | distinct-bound-ids? | |
| 150 | valid-bound-ids? | |
| 151 | bound-id=? | |
| 152 | free-id=? | |
| 153 | id-var-name | |
| 154 | same-marks? | |
| 155 | join-marks | |
| 156 | join-wraps | |
| 157 | smart-append | |
| 158 | make-binding-wrap | |
| 159 | extend-ribcage! | |
| 160 | make-empty-ribcage | |
| 161 | new-mark | |
| 162 | anti-mark | |
| 163 | the-anti-mark | |
| 164 | top-marked? | |
| 165 | top-wrap | |
| 166 | empty-wrap | |
| 167 | set-ribcage-labels! | |
| 168 | set-ribcage-marks! | |
| 169 | set-ribcage-symnames! | |
| 170 | ribcage-labels | |
| 171 | ribcage-marks | |
| 172 | ribcage-symnames | |
| 173 | ribcage? | |
| 174 | make-ribcage | |
| 175 | gen-labels | |
| 176 | gen-label | |
| 177 | make-rename | |
| 178 | rename-marks | |
| 179 | rename-new | |
| 180 | rename-old | |
| 181 | subst-rename? | |
| 182 | wrap-subst | |
| 183 | wrap-marks | |
| 184 | make-wrap | |
| 185 | id-sym-name&marks | |
| 186 | id-sym-name | |
| 187 | id? | |
| 188 | nonsymbol-id? | |
| 189 | global-extend | |
| 190 | lookup | |
| 191 | macros-only-env | |
| 192 | extend-var-env | |
| 193 | extend-env | |
| 194 | null-env | |
| 195 | binding-value | |
| 196 | binding-type | |
| 197 | make-binding | |
| 198 | arg-check | |
| 199 | source-annotation | |
| 200 | no-source | |
| 201 | set-syntax-object-module! | |
| 202 | set-syntax-object-wrap! | |
| 203 | set-syntax-object-expression! | |
| 204 | syntax-object-module | |
| 205 | syntax-object-wrap | |
| 206 | syntax-object-expression | |
| 207 | syntax-object? | |
| 208 | make-syntax-object | |
| 209 | build-lexical-var | |
| 210 | build-letrec | |
| 211 | build-named-let | |
| 212 | build-let | |
| 213 | build-sequence | |
| 214 | build-data | |
| 215 | build-primref | |
| 216 | build-lambda | |
| 217 | build-global-definition | |
| 218 | maybe-name-value! | |
| 219 | build-global-assignment | |
| 220 | build-global-reference | |
| 221 | analyze-variable | |
| 222 | build-lexical-assignment | |
| 223 | build-lexical-reference | |
| 224 | build-conditional | |
| 225 | build-application | |
| 226 | build-void | |
| fc5b616b | 227 | decorate-source |
| 65dd9e38 AW |
228 | get-global-definition-hook |
| 229 | put-global-definition-hook | |
| 230 | gensym-hook | |
| 231 | local-eval-hook | |
| 232 | top-level-eval-hook | |
| 233 | fx< | |
| 234 | fx= | |
| 235 | fx- | |
| 236 | fx+ | |
| 237 | *mode* | |
| 238 | noexpand) | |
| 239 | ((top) | |
| 240 | (top) | |
| 241 | (top) | |
| 242 | (top) | |
| 243 | (top) | |
| 244 | (top) | |
| 245 | (top) | |
| 246 | (top) | |
| 247 | (top) | |
| 248 | (top) | |
| 249 | (top) | |
| 250 | (top) | |
| 251 | (top) | |
| 252 | (top) | |
| 253 | (top) | |
| 254 | (top) | |
| 255 | (top) | |
| 256 | (top) | |
| 257 | (top) | |
| 258 | (top) | |
| 259 | (top) | |
| 260 | (top) | |
| 261 | (top) | |
| 262 | (top) | |
| 263 | (top) | |
| 264 | (top) | |
| 265 | (top) | |
| 266 | (top) | |
| 267 | (top) | |
| 268 | (top) | |
| 269 | (top) | |
| 270 | (top) | |
| 271 | (top) | |
| 272 | (top) | |
| 273 | (top) | |
| 274 | (top) | |
| 275 | (top) | |
| 276 | (top) | |
| 277 | (top) | |
| 278 | (top) | |
| 279 | (top) | |
| 280 | (top) | |
| 281 | (top) | |
| 282 | (top) | |
| 283 | (top) | |
| 284 | (top) | |
| 285 | (top) | |
| 286 | (top) | |
| 287 | (top) | |
| 288 | (top) | |
| 289 | (top) | |
| 290 | (top) | |
| 291 | (top) | |
| 292 | (top) | |
| 293 | (top) | |
| 294 | (top) | |
| 295 | (top) | |
| 296 | (top) | |
| 297 | (top) | |
| 298 | (top) | |
| 299 | (top) | |
| 300 | (top) | |
| 301 | (top) | |
| 302 | (top) | |
| 303 | (top) | |
| 304 | (top) | |
| 305 | (top) | |
| 306 | (top) | |
| 307 | (top) | |
| 308 | (top) | |
| 309 | (top) | |
| 310 | (top) | |
| 311 | (top) | |
| 312 | (top) | |
| 313 | (top) | |
| 314 | (top) | |
| 315 | (top) | |
| 316 | (top) | |
| 317 | (top) | |
| 318 | (top) | |
| 319 | (top) | |
| 320 | (top) | |
| 321 | (top) | |
| 322 | (top) | |
| 323 | (top) | |
| 324 | (top) | |
| 325 | (top) | |
| 326 | (top) | |
| 327 | (top) | |
| 328 | (top) | |
| 329 | (top) | |
| 330 | (top) | |
| 331 | (top) | |
| 332 | (top) | |
| 333 | (top) | |
| 334 | (top) | |
| 335 | (top) | |
| 336 | (top) | |
| 337 | (top) | |
| 338 | (top) | |
| 339 | (top) | |
| 340 | (top) | |
| 341 | (top) | |
| 342 | (top) | |
| 343 | (top) | |
| 344 | (top) | |
| 345 | (top) | |
| 346 | (top) | |
| 347 | (top) | |
| 348 | (top) | |
| fc5b616b | 349 | (top) |
| 65dd9e38 AW |
350 | (top)) |
| 351 | ("i" | |
| 352 | "i" | |
| 353 | "i" | |
| 354 | "i" | |
| 355 | "i" | |
| 356 | "i" | |
| 357 | "i" | |
| 358 | "i" | |
| 359 | "i" | |
| 360 | "i" | |
| 361 | "i" | |
| 362 | "i" | |
| 363 | "i" | |
| 364 | "i" | |
| 365 | "i" | |
| 366 | "i" | |
| 367 | "i" | |
| 368 | "i" | |
| 369 | "i" | |
| 370 | "i" | |
| 371 | "i" | |
| 372 | "i" | |
| 373 | "i" | |
| 374 | "i" | |
| 375 | "i" | |
| 376 | "i" | |
| 377 | "i" | |
| 378 | "i" | |
| 379 | "i" | |
| 380 | "i" | |
| 381 | "i" | |
| 382 | "i" | |
| 383 | "i" | |
| 384 | "i" | |
| 385 | "i" | |
| 386 | "i" | |
| 387 | "i" | |
| 388 | "i" | |
| 389 | "i" | |
| 390 | "i" | |
| 391 | "i" | |
| 392 | "i" | |
| 393 | "i" | |
| 394 | "i" | |
| 395 | "i" | |
| 396 | "i" | |
| 397 | "i" | |
| 398 | "i" | |
| 399 | "i" | |
| 400 | "i" | |
| 401 | "i" | |
| 402 | "i" | |
| 403 | "i" | |
| 404 | "i" | |
| 405 | "i" | |
| 406 | "i" | |
| 407 | "i" | |
| 408 | "i" | |
| 409 | "i" | |
| 410 | "i" | |
| 411 | "i" | |
| 412 | "i" | |
| 413 | "i" | |
| 414 | "i" | |
| 415 | "i" | |
| 416 | "i" | |
| 417 | "i" | |
| 418 | "i" | |
| 419 | "i" | |
| 420 | "i" | |
| 421 | "i" | |
| 422 | "i" | |
| 423 | "i" | |
| 424 | "i" | |
| 425 | "i" | |
| 426 | "i" | |
| 427 | "i" | |
| 428 | "i" | |
| 429 | "i" | |
| 430 | "i" | |
| 431 | "i" | |
| 432 | "i" | |
| 433 | "i" | |
| 434 | "i" | |
| 435 | "i" | |
| 436 | "i" | |
| 437 | "i" | |
| 438 | "i" | |
| 439 | "i" | |
| 440 | "i" | |
| 441 | "i" | |
| 442 | "i" | |
| 443 | "i" | |
| 444 | "i" | |
| 445 | "i" | |
| 446 | "i" | |
| 447 | "i" | |
| 448 | "i" | |
| 449 | "i" | |
| 450 | "i" | |
| 451 | "i" | |
| 452 | "i" | |
| 453 | "i" | |
| 454 | "i" | |
| 455 | "i" | |
| 456 | "i" | |
| 457 | "i" | |
| 458 | "i" | |
| 459 | "i" | |
| 460 | "i" | |
| fc5b616b | 461 | "i" |
| 65dd9e38 AW |
462 | "i")) |
| 463 | #(ribcage | |
| 464 | (define-structure and-map*) | |
| 465 | ((top) (top)) | |
| 466 | ("i" "i"))) | |
| 467 | (hygiene guile))) | |
| 468 | #f))) | |
| b9434165 LC |
469 | (#{chi-void\ 1341}# |
| 470 | (lambda () (#{build-void\ 1263}# #f))) | |
| 471 | (#{eval-local-transformer\ 1340}# | |
| 472 | (lambda (#{expanded\ 1485}# #{mod\ 1486}#) | |
| 473 | (let ((#{p\ 1487}# | |
| 474 | (#{local-eval-hook\ 1259}# | |
| 475 | #{expanded\ 1485}# | |
| 476 | #{mod\ 1486}#))) | |
| 477 | (if (procedure? #{p\ 1487}#) | |
| 478 | #{p\ 1487}# | |
| 65dd9e38 AW |
479 | (syntax-violation |
| 480 | #f | |
| 481 | "nonprocedure transformer" | |
| b9434165 LC |
482 | #{p\ 1487}#))))) |
| 483 | (#{chi-local-syntax\ 1339}# | |
| 484 | (lambda (#{rec?\ 1488}# | |
| 485 | #{e\ 1489}# | |
| 486 | #{r\ 1490}# | |
| 487 | #{w\ 1491}# | |
| 488 | #{s\ 1492}# | |
| 489 | #{mod\ 1493}# | |
| 490 | #{k\ 1494}#) | |
| 491 | ((lambda (#{tmp\ 1495}#) | |
| 492 | ((lambda (#{tmp\ 1496}#) | |
| 493 | (if #{tmp\ 1496}# | |
| 494 | (apply (lambda (#{_\ 1497}# | |
| 495 | #{id\ 1498}# | |
| 496 | #{val\ 1499}# | |
| 497 | #{e1\ 1500}# | |
| 498 | #{e2\ 1501}#) | |
| 499 | (let ((#{ids\ 1502}# #{id\ 1498}#)) | |
| 500 | (if (not (#{valid-bound-ids?\ 1322}# | |
| 501 | #{ids\ 1502}#)) | |
| 65dd9e38 AW |
502 | (syntax-violation |
| 503 | #f | |
| 504 | "duplicate bound keyword" | |
| b9434165 LC |
505 | #{e\ 1489}#) |
| 506 | (let ((#{labels\ 1504}# | |
| 507 | (#{gen-labels\ 1303}# | |
| 508 | #{ids\ 1502}#))) | |
| 509 | (let ((#{new-w\ 1505}# | |
| 510 | (#{make-binding-wrap\ 1314}# | |
| 511 | #{ids\ 1502}# | |
| 512 | #{labels\ 1504}# | |
| 513 | #{w\ 1491}#))) | |
| 514 | (#{k\ 1494}# | |
| 515 | (cons #{e1\ 1500}# #{e2\ 1501}#) | |
| 516 | (#{extend-env\ 1291}# | |
| 517 | #{labels\ 1504}# | |
| 518 | (let ((#{w\ 1507}# | |
| 519 | (if #{rec?\ 1488}# | |
| 520 | #{new-w\ 1505}# | |
| 521 | #{w\ 1491}#)) | |
| 522 | (#{trans-r\ 1508}# | |
| 523 | (#{macros-only-env\ 1293}# | |
| 524 | #{r\ 1490}#))) | |
| 525 | (map (lambda (#{x\ 1509}#) | |
| 526 | (cons 'macro | |
| 527 | (#{eval-local-transformer\ 1340}# | |
| 528 | (#{chi\ 1333}# | |
| 529 | #{x\ 1509}# | |
| 530 | #{trans-r\ 1508}# | |
| 531 | #{w\ 1507}# | |
| 532 | #{mod\ 1493}#) | |
| 533 | #{mod\ 1493}#))) | |
| 534 | #{val\ 1499}#)) | |
| 535 | #{r\ 1490}#) | |
| 536 | #{new-w\ 1505}# | |
| 537 | #{s\ 1492}# | |
| 538 | #{mod\ 1493}#)))))) | |
| 539 | #{tmp\ 1496}#) | |
| 540 | ((lambda (#{_\ 1511}#) | |
| 65dd9e38 AW |
541 | (syntax-violation |
| 542 | #f | |
| 543 | "bad local syntax definition" | |
| b9434165 LC |
544 | (#{source-wrap\ 1326}# |
| 545 | #{e\ 1489}# | |
| 546 | #{w\ 1491}# | |
| 547 | #{s\ 1492}# | |
| 548 | #{mod\ 1493}#))) | |
| 549 | #{tmp\ 1495}#))) | |
| 65dd9e38 | 550 | ($sc-dispatch |
| b9434165 | 551 | #{tmp\ 1495}# |
| 65dd9e38 | 552 | '(any #(each (any any)) any . each-any)))) |
| b9434165 LC |
553 | #{e\ 1489}#))) |
| 554 | (#{chi-lambda-clause\ 1338}# | |
| 555 | (lambda (#{e\ 1512}# | |
| 556 | #{docstring\ 1513}# | |
| 557 | #{c\ 1514}# | |
| 558 | #{r\ 1515}# | |
| 559 | #{w\ 1516}# | |
| 560 | #{mod\ 1517}# | |
| 561 | #{k\ 1518}#) | |
| 562 | ((lambda (#{tmp\ 1519}#) | |
| 563 | ((lambda (#{tmp\ 1520}#) | |
| 564 | (if (if #{tmp\ 1520}# | |
| 565 | (apply (lambda (#{args\ 1521}# | |
| 566 | #{doc\ 1522}# | |
| 567 | #{e1\ 1523}# | |
| 568 | #{e2\ 1524}#) | |
| 569 | (if (string? (syntax->datum #{doc\ 1522}#)) | |
| 570 | (not #{docstring\ 1513}#) | |
| 65dd9e38 | 571 | #f)) |
| b9434165 | 572 | #{tmp\ 1520}#) |
| 65dd9e38 | 573 | #f) |
| b9434165 LC |
574 | (apply (lambda (#{args\ 1525}# |
| 575 | #{doc\ 1526}# | |
| 576 | #{e1\ 1527}# | |
| 577 | #{e2\ 1528}#) | |
| 578 | (#{chi-lambda-clause\ 1338}# | |
| 579 | #{e\ 1512}# | |
| 580 | #{doc\ 1526}# | |
| 581 | (cons #{args\ 1525}# | |
| 582 | (cons #{e1\ 1527}# #{e2\ 1528}#)) | |
| 583 | #{r\ 1515}# | |
| 584 | #{w\ 1516}# | |
| 585 | #{mod\ 1517}# | |
| 586 | #{k\ 1518}#)) | |
| 587 | #{tmp\ 1520}#) | |
| 588 | ((lambda (#{tmp\ 1530}#) | |
| 589 | (if #{tmp\ 1530}# | |
| 590 | (apply (lambda (#{id\ 1531}# | |
| 591 | #{e1\ 1532}# | |
| 592 | #{e2\ 1533}#) | |
| 593 | (let ((#{ids\ 1534}# #{id\ 1531}#)) | |
| 594 | (if (not (#{valid-bound-ids?\ 1322}# | |
| 595 | #{ids\ 1534}#)) | |
| 65dd9e38 AW |
596 | (syntax-violation |
| 597 | 'lambda | |
| 598 | "invalid parameter list" | |
| b9434165 LC |
599 | #{e\ 1512}#) |
| 600 | (let ((#{labels\ 1536}# | |
| 601 | (#{gen-labels\ 1303}# | |
| 602 | #{ids\ 1534}#)) | |
| 603 | (#{new-vars\ 1537}# | |
| 604 | (map #{gen-var\ 1344}# | |
| 605 | #{ids\ 1534}#))) | |
| 606 | (#{k\ 1518}# | |
| 607 | (map syntax->datum #{ids\ 1534}#) | |
| 608 | #{new-vars\ 1537}# | |
| 609 | (if #{docstring\ 1513}# | |
| 610 | (syntax->datum | |
| 611 | #{docstring\ 1513}#) | |
| 612 | #f) | |
| 613 | (#{chi-body\ 1337}# | |
| 614 | (cons #{e1\ 1532}# #{e2\ 1533}#) | |
| 615 | #{e\ 1512}# | |
| 616 | (#{extend-var-env\ 1292}# | |
| 617 | #{labels\ 1536}# | |
| 618 | #{new-vars\ 1537}# | |
| 619 | #{r\ 1515}#) | |
| 620 | (#{make-binding-wrap\ 1314}# | |
| 621 | #{ids\ 1534}# | |
| 622 | #{labels\ 1536}# | |
| 623 | #{w\ 1516}#) | |
| 624 | #{mod\ 1517}#)))))) | |
| 625 | #{tmp\ 1530}#) | |
| 626 | ((lambda (#{tmp\ 1539}#) | |
| 627 | (if #{tmp\ 1539}# | |
| 628 | (apply (lambda (#{ids\ 1540}# | |
| 629 | #{e1\ 1541}# | |
| 630 | #{e2\ 1542}#) | |
| 631 | (let ((#{old-ids\ 1543}# | |
| 632 | (#{lambda-var-list\ 1345}# | |
| 633 | #{ids\ 1540}#))) | |
| 634 | (if (not (#{valid-bound-ids?\ 1322}# | |
| 635 | #{old-ids\ 1543}#)) | |
| 65dd9e38 AW |
636 | (syntax-violation |
| 637 | 'lambda | |
| 638 | "invalid parameter list" | |
| b9434165 LC |
639 | #{e\ 1512}#) |
| 640 | (let ((#{labels\ 1544}# | |
| 641 | (#{gen-labels\ 1303}# | |
| 642 | #{old-ids\ 1543}#)) | |
| 643 | (#{new-vars\ 1545}# | |
| 644 | (map #{gen-var\ 1344}# | |
| 645 | #{old-ids\ 1543}#))) | |
| 646 | (#{k\ 1518}# | |
| 647 | (letrec ((#{f\ 1546}# | |
| 648 | (lambda (#{ls1\ 1547}# | |
| 649 | #{ls2\ 1548}#) | |
| 650 | (if (null? #{ls1\ 1547}#) | |
| 651 | (syntax->datum | |
| 652 | #{ls2\ 1548}#) | |
| 653 | (#{f\ 1546}# | |
| 654 | (cdr #{ls1\ 1547}#) | |
| 655 | (cons (syntax->datum | |
| 656 | (car #{ls1\ 1547}#)) | |
| 657 | #{ls2\ 1548}#)))))) | |
| 658 | (#{f\ 1546}# | |
| 659 | (cdr #{old-ids\ 1543}#) | |
| 660 | (car #{old-ids\ 1543}#))) | |
| 661 | (letrec ((#{f\ 1549}# | |
| 662 | (lambda (#{ls1\ 1550}# | |
| 663 | #{ls2\ 1551}#) | |
| 664 | (if (null? #{ls1\ 1550}#) | |
| 665 | #{ls2\ 1551}# | |
| 666 | (#{f\ 1549}# | |
| 667 | (cdr #{ls1\ 1550}#) | |
| 668 | (cons (car #{ls1\ 1550}#) | |
| 669 | #{ls2\ 1551}#)))))) | |
| 670 | (#{f\ 1549}# | |
| 671 | (cdr #{new-vars\ 1545}#) | |
| 672 | (car #{new-vars\ 1545}#))) | |
| 673 | (if #{docstring\ 1513}# | |
| 674 | (syntax->datum | |
| 675 | #{docstring\ 1513}#) | |
| 676 | #f) | |
| 677 | (#{chi-body\ 1337}# | |
| 678 | (cons #{e1\ 1541}# | |
| 679 | #{e2\ 1542}#) | |
| 680 | #{e\ 1512}# | |
| 681 | (#{extend-var-env\ 1292}# | |
| 682 | #{labels\ 1544}# | |
| 683 | #{new-vars\ 1545}# | |
| 684 | #{r\ 1515}#) | |
| 685 | (#{make-binding-wrap\ 1314}# | |
| 686 | #{old-ids\ 1543}# | |
| 687 | #{labels\ 1544}# | |
| 688 | #{w\ 1516}#) | |
| 689 | #{mod\ 1517}#)))))) | |
| 690 | #{tmp\ 1539}#) | |
| 691 | ((lambda (#{_\ 1553}#) | |
| 65dd9e38 AW |
692 | (syntax-violation |
| 693 | 'lambda | |
| 694 | "bad lambda" | |
| b9434165 LC |
695 | #{e\ 1512}#)) |
| 696 | #{tmp\ 1519}#))) | |
| 65dd9e38 | 697 | ($sc-dispatch |
| b9434165 | 698 | #{tmp\ 1519}# |
| 65dd9e38 AW |
699 | '(any any . each-any))))) |
| 700 | ($sc-dispatch | |
| b9434165 | 701 | #{tmp\ 1519}# |
| 65dd9e38 AW |
702 | '(each-any any . each-any))))) |
| 703 | ($sc-dispatch | |
| b9434165 | 704 | #{tmp\ 1519}# |
| 65dd9e38 | 705 | '(any any any . each-any)))) |
| b9434165 LC |
706 | #{c\ 1514}#))) |
| 707 | (#{chi-body\ 1337}# | |
| 708 | (lambda (#{body\ 1554}# | |
| 709 | #{outer-form\ 1555}# | |
| 710 | #{r\ 1556}# | |
| 711 | #{w\ 1557}# | |
| 712 | #{mod\ 1558}#) | |
| 713 | (let ((#{r\ 1559}# | |
| 714 | (cons '("placeholder" placeholder) | |
| 715 | #{r\ 1556}#))) | |
| 716 | (let ((#{ribcage\ 1560}# | |
| 717 | (#{make-ribcage\ 1304}# | |
| 65dd9e38 AW |
718 | '() |
| 719 | '() | |
| 720 | '()))) | |
| b9434165 LC |
721 | (let ((#{w\ 1561}# |
| 722 | (#{make-wrap\ 1299}# | |
| 723 | (#{wrap-marks\ 1300}# #{w\ 1557}#) | |
| 724 | (cons #{ribcage\ 1560}# | |
| 725 | (#{wrap-subst\ 1301}# #{w\ 1557}#))))) | |
| 726 | (letrec ((#{parse\ 1562}# | |
| 727 | (lambda (#{body\ 1563}# | |
| 728 | #{ids\ 1564}# | |
| 729 | #{labels\ 1565}# | |
| 730 | #{var-ids\ 1566}# | |
| 731 | #{vars\ 1567}# | |
| 732 | #{vals\ 1568}# | |
| 733 | #{bindings\ 1569}#) | |
| 734 | (if (null? #{body\ 1563}#) | |
| 65dd9e38 AW |
735 | (syntax-violation |
| 736 | #f | |
| 737 | "no expressions in body" | |
| b9434165 LC |
738 | #{outer-form\ 1555}#) |
| 739 | (let ((#{e\ 1571}# (cdar #{body\ 1563}#)) | |
| 740 | (#{er\ 1572}# (caar #{body\ 1563}#))) | |
| 65dd9e38 AW |
741 | (call-with-values |
| 742 | (lambda () | |
| b9434165 LC |
743 | (#{syntax-type\ 1331}# |
| 744 | #{e\ 1571}# | |
| 745 | #{er\ 1572}# | |
| 65dd9e38 | 746 | '(()) |
| b9434165 LC |
747 | (#{source-annotation\ 1288}# |
| 748 | #{er\ 1572}#) | |
| 749 | #{ribcage\ 1560}# | |
| 750 | #{mod\ 1558}# | |
| 65dd9e38 | 751 | #f)) |
| b9434165 LC |
752 | (lambda (#{type\ 1573}# |
| 753 | #{value\ 1574}# | |
| 754 | #{e\ 1575}# | |
| 755 | #{w\ 1576}# | |
| 756 | #{s\ 1577}# | |
| 757 | #{mod\ 1578}#) | |
| 758 | (if (memv #{type\ 1573}# | |
| 65dd9e38 | 759 | '(define-form)) |
| b9434165 LC |
760 | (let ((#{id\ 1579}# |
| 761 | (#{wrap\ 1325}# | |
| 762 | #{value\ 1574}# | |
| 763 | #{w\ 1576}# | |
| 764 | #{mod\ 1578}#)) | |
| 765 | (#{label\ 1580}# | |
| 766 | (#{gen-label\ 1302}#))) | |
| 767 | (let ((#{var\ 1581}# | |
| 768 | (#{gen-var\ 1344}# | |
| 769 | #{id\ 1579}#))) | |
| 65dd9e38 | 770 | (begin |
| b9434165 LC |
771 | (#{extend-ribcage!\ 1313}# |
| 772 | #{ribcage\ 1560}# | |
| 773 | #{id\ 1579}# | |
| 774 | #{label\ 1580}#) | |
| 775 | (#{parse\ 1562}# | |
| 776 | (cdr #{body\ 1563}#) | |
| 777 | (cons #{id\ 1579}# | |
| 778 | #{ids\ 1564}#) | |
| 779 | (cons #{label\ 1580}# | |
| 780 | #{labels\ 1565}#) | |
| 781 | (cons #{id\ 1579}# | |
| 782 | #{var-ids\ 1566}#) | |
| 783 | (cons #{var\ 1581}# | |
| 784 | #{vars\ 1567}#) | |
| 785 | (cons (cons #{er\ 1572}# | |
| 786 | (#{wrap\ 1325}# | |
| 787 | #{e\ 1575}# | |
| 788 | #{w\ 1576}# | |
| 789 | #{mod\ 1578}#)) | |
| 790 | #{vals\ 1568}#) | |
| 65dd9e38 | 791 | (cons (cons 'lexical |
| b9434165 LC |
792 | #{var\ 1581}#) |
| 793 | #{bindings\ 1569}#))))) | |
| 794 | (if (memv #{type\ 1573}# | |
| 65dd9e38 | 795 | '(define-syntax-form)) |
| b9434165 LC |
796 | (let ((#{id\ 1582}# |
| 797 | (#{wrap\ 1325}# | |
| 798 | #{value\ 1574}# | |
| 799 | #{w\ 1576}# | |
| 800 | #{mod\ 1578}#)) | |
| 801 | (#{label\ 1583}# | |
| 802 | (#{gen-label\ 1302}#))) | |
| 65dd9e38 | 803 | (begin |
| b9434165 LC |
804 | (#{extend-ribcage!\ 1313}# |
| 805 | #{ribcage\ 1560}# | |
| 806 | #{id\ 1582}# | |
| 807 | #{label\ 1583}#) | |
| 808 | (#{parse\ 1562}# | |
| 809 | (cdr #{body\ 1563}#) | |
| 810 | (cons #{id\ 1582}# | |
| 811 | #{ids\ 1564}#) | |
| 812 | (cons #{label\ 1583}# | |
| 813 | #{labels\ 1565}#) | |
| 814 | #{var-ids\ 1566}# | |
| 815 | #{vars\ 1567}# | |
| 816 | #{vals\ 1568}# | |
| 65dd9e38 | 817 | (cons (cons 'macro |
| b9434165 LC |
818 | (cons #{er\ 1572}# |
| 819 | (#{wrap\ 1325}# | |
| 820 | #{e\ 1575}# | |
| 821 | #{w\ 1576}# | |
| 822 | #{mod\ 1578}#))) | |
| 823 | #{bindings\ 1569}#)))) | |
| 824 | (if (memv #{type\ 1573}# | |
| 65dd9e38 | 825 | '(begin-form)) |
| b9434165 LC |
826 | ((lambda (#{tmp\ 1584}#) |
| 827 | ((lambda (#{tmp\ 1585}#) | |
| 828 | (if #{tmp\ 1585}# | |
| 829 | (apply (lambda (#{_\ 1586}# | |
| 830 | #{e1\ 1587}#) | |
| 831 | (#{parse\ 1562}# | |
| 832 | (letrec ((#{f\ 1588}# | |
| 833 | (lambda (#{forms\ 1589}#) | |
| 834 | (if (null? #{forms\ 1589}#) | |
| 835 | (cdr #{body\ 1563}#) | |
| 836 | (cons (cons #{er\ 1572}# | |
| 837 | (#{wrap\ 1325}# | |
| 838 | (car #{forms\ 1589}#) | |
| 839 | #{w\ 1576}# | |
| 840 | #{mod\ 1578}#)) | |
| 841 | (#{f\ 1588}# | |
| 842 | (cdr #{forms\ 1589}#))))))) | |
| 843 | (#{f\ 1588}# | |
| 844 | #{e1\ 1587}#)) | |
| 845 | #{ids\ 1564}# | |
| 846 | #{labels\ 1565}# | |
| 847 | #{var-ids\ 1566}# | |
| 848 | #{vars\ 1567}# | |
| 849 | #{vals\ 1568}# | |
| 850 | #{bindings\ 1569}#)) | |
| 851 | #{tmp\ 1585}#) | |
| 65dd9e38 AW |
852 | (syntax-violation |
| 853 | #f | |
| 854 | "source expression failed to match any pattern" | |
| b9434165 | 855 | #{tmp\ 1584}#))) |
| 65dd9e38 | 856 | ($sc-dispatch |
| b9434165 | 857 | #{tmp\ 1584}# |
| 65dd9e38 | 858 | '(any . each-any)))) |
| b9434165 LC |
859 | #{e\ 1575}#) |
| 860 | (if (memv #{type\ 1573}# | |
| 65dd9e38 | 861 | '(local-syntax-form)) |
| b9434165 LC |
862 | (#{chi-local-syntax\ 1339}# |
| 863 | #{value\ 1574}# | |
| 864 | #{e\ 1575}# | |
| 865 | #{er\ 1572}# | |
| 866 | #{w\ 1576}# | |
| 867 | #{s\ 1577}# | |
| 868 | #{mod\ 1578}# | |
| 869 | (lambda (#{forms\ 1591}# | |
| 870 | #{er\ 1592}# | |
| 871 | #{w\ 1593}# | |
| 872 | #{s\ 1594}# | |
| 873 | #{mod\ 1595}#) | |
| 874 | (#{parse\ 1562}# | |
| 875 | (letrec ((#{f\ 1596}# | |
| 876 | (lambda (#{forms\ 1597}#) | |
| 877 | (if (null? #{forms\ 1597}#) | |
| 878 | (cdr #{body\ 1563}#) | |
| 879 | (cons (cons #{er\ 1592}# | |
| 880 | (#{wrap\ 1325}# | |
| 881 | (car #{forms\ 1597}#) | |
| 882 | #{w\ 1593}# | |
| 883 | #{mod\ 1595}#)) | |
| 884 | (#{f\ 1596}# | |
| 885 | (cdr #{forms\ 1597}#))))))) | |
| 886 | (#{f\ 1596}# | |
| 887 | #{forms\ 1591}#)) | |
| 888 | #{ids\ 1564}# | |
| 889 | #{labels\ 1565}# | |
| 890 | #{var-ids\ 1566}# | |
| 891 | #{vars\ 1567}# | |
| 892 | #{vals\ 1568}# | |
| 893 | #{bindings\ 1569}#))) | |
| 894 | (if (null? #{ids\ 1564}#) | |
| 895 | (#{build-sequence\ 1276}# | |
| 65dd9e38 | 896 | #f |
| b9434165 LC |
897 | (map (lambda (#{x\ 1598}#) |
| 898 | (#{chi\ 1333}# | |
| 899 | (cdr #{x\ 1598}#) | |
| 900 | (car #{x\ 1598}#) | |
| 65dd9e38 | 901 | '(()) |
| b9434165 LC |
902 | #{mod\ 1578}#)) |
| 903 | (cons (cons #{er\ 1572}# | |
| 904 | (#{source-wrap\ 1326}# | |
| 905 | #{e\ 1575}# | |
| 906 | #{w\ 1576}# | |
| 907 | #{s\ 1577}# | |
| 908 | #{mod\ 1578}#)) | |
| 909 | (cdr #{body\ 1563}#)))) | |
| 65dd9e38 | 910 | (begin |
| b9434165 LC |
911 | (if (not (#{valid-bound-ids?\ 1322}# |
| 912 | #{ids\ 1564}#)) | |
| 65dd9e38 AW |
913 | (syntax-violation |
| 914 | #f | |
| 915 | "invalid or duplicate identifier in definition" | |
| b9434165 LC |
916 | #{outer-form\ 1555}#)) |
| 917 | (letrec ((#{loop\ 1599}# | |
| 918 | (lambda (#{bs\ 1600}# | |
| 919 | #{er-cache\ 1601}# | |
| 920 | #{r-cache\ 1602}#) | |
| 921 | (if (not (null? #{bs\ 1600}#)) | |
| 922 | (let ((#{b\ 1603}# | |
| 923 | (car #{bs\ 1600}#))) | |
| 924 | (if (eq? (car #{b\ 1603}#) | |
| 65dd9e38 | 925 | 'macro) |
| b9434165 LC |
926 | (let ((#{er\ 1604}# |
| 927 | (cadr #{b\ 1603}#))) | |
| 928 | (let ((#{r-cache\ 1605}# | |
| 929 | (if (eq? #{er\ 1604}# | |
| 930 | #{er-cache\ 1601}#) | |
| 931 | #{r-cache\ 1602}# | |
| 932 | (#{macros-only-env\ 1293}# | |
| 933 | #{er\ 1604}#)))) | |
| 65dd9e38 AW |
934 | (begin |
| 935 | (set-cdr! | |
| b9434165 LC |
936 | #{b\ 1603}# |
| 937 | (#{eval-local-transformer\ 1340}# | |
| 938 | (#{chi\ 1333}# | |
| 939 | (cddr #{b\ 1603}#) | |
| 940 | #{r-cache\ 1605}# | |
| 65dd9e38 | 941 | '(()) |
| b9434165 LC |
942 | #{mod\ 1578}#) |
| 943 | #{mod\ 1578}#)) | |
| 944 | (#{loop\ 1599}# | |
| 945 | (cdr #{bs\ 1600}#) | |
| 946 | #{er\ 1604}# | |
| 947 | #{r-cache\ 1605}#)))) | |
| 948 | (#{loop\ 1599}# | |
| 949 | (cdr #{bs\ 1600}#) | |
| 950 | #{er-cache\ 1601}# | |
| 951 | #{r-cache\ 1602}#))))))) | |
| 952 | (#{loop\ 1599}# | |
| 953 | #{bindings\ 1569}# | |
| 65dd9e38 AW |
954 | #f |
| 955 | #f)) | |
| 956 | (set-cdr! | |
| b9434165 LC |
957 | #{r\ 1559}# |
| 958 | (#{extend-env\ 1291}# | |
| 959 | #{labels\ 1565}# | |
| 960 | #{bindings\ 1569}# | |
| 961 | (cdr #{r\ 1559}#))) | |
| 962 | (#{build-letrec\ 1279}# | |
| 65dd9e38 AW |
963 | #f |
| 964 | (map syntax->datum | |
| b9434165 LC |
965 | #{var-ids\ 1566}#) |
| 966 | #{vars\ 1567}# | |
| 967 | (map (lambda (#{x\ 1606}#) | |
| 968 | (#{chi\ 1333}# | |
| 969 | (cdr #{x\ 1606}#) | |
| 970 | (car #{x\ 1606}#) | |
| 65dd9e38 | 971 | '(()) |
| b9434165 LC |
972 | #{mod\ 1578}#)) |
| 973 | #{vals\ 1568}#) | |
| 974 | (#{build-sequence\ 1276}# | |
| 65dd9e38 | 975 | #f |
| b9434165 LC |
976 | (map (lambda (#{x\ 1607}#) |
| 977 | (#{chi\ 1333}# | |
| 978 | (cdr #{x\ 1607}#) | |
| 979 | (car #{x\ 1607}#) | |
| 65dd9e38 | 980 | '(()) |
| b9434165 LC |
981 | #{mod\ 1578}#)) |
| 982 | (cons (cons #{er\ 1572}# | |
| 983 | (#{source-wrap\ 1326}# | |
| 984 | #{e\ 1575}# | |
| 985 | #{w\ 1576}# | |
| 986 | #{s\ 1577}# | |
| 987 | #{mod\ 1578}#)) | |
| 988 | (cdr #{body\ 1563}#)))))))))))))))))) | |
| 989 | (#{parse\ 1562}# | |
| 990 | (map (lambda (#{x\ 1570}#) | |
| 991 | (cons #{r\ 1559}# | |
| 992 | (#{wrap\ 1325}# | |
| 993 | #{x\ 1570}# | |
| 994 | #{w\ 1561}# | |
| 995 | #{mod\ 1558}#))) | |
| 996 | #{body\ 1554}#) | |
| 65dd9e38 AW |
997 | '() |
| 998 | '() | |
| 999 | '() | |
| 1000 | '() | |
| 1001 | '() | |
| 1002 | '()))))))) | |
| b9434165 LC |
1003 | (#{chi-macro\ 1336}# |
| 1004 | (lambda (#{p\ 1608}# | |
| 1005 | #{e\ 1609}# | |
| 1006 | #{r\ 1610}# | |
| 1007 | #{w\ 1611}# | |
| 1008 | #{rib\ 1612}# | |
| 1009 | #{mod\ 1613}#) | |
| 1010 | (letrec ((#{rebuild-macro-output\ 1614}# | |
| 1011 | (lambda (#{x\ 1615}# #{m\ 1616}#) | |
| 1012 | (if (pair? #{x\ 1615}#) | |
| 1013 | (cons (#{rebuild-macro-output\ 1614}# | |
| 1014 | (car #{x\ 1615}#) | |
| 1015 | #{m\ 1616}#) | |
| 1016 | (#{rebuild-macro-output\ 1614}# | |
| 1017 | (cdr #{x\ 1615}#) | |
| 1018 | #{m\ 1616}#)) | |
| 1019 | (if (#{syntax-object?\ 1281}# #{x\ 1615}#) | |
| 1020 | (let ((#{w\ 1617}# | |
| 1021 | (#{syntax-object-wrap\ 1283}# | |
| 1022 | #{x\ 1615}#))) | |
| 1023 | (let ((#{ms\ 1618}# | |
| 1024 | (#{wrap-marks\ 1300}# #{w\ 1617}#)) | |
| 1025 | (#{s\ 1619}# | |
| 1026 | (#{wrap-subst\ 1301}# #{w\ 1617}#))) | |
| 1027 | (if (if (pair? #{ms\ 1618}#) | |
| 1028 | (eq? (car #{ms\ 1618}#) #f) | |
| 65dd9e38 | 1029 | #f) |
| b9434165 LC |
1030 | (#{make-syntax-object\ 1280}# |
| 1031 | (#{syntax-object-expression\ 1282}# | |
| 1032 | #{x\ 1615}#) | |
| 1033 | (#{make-wrap\ 1299}# | |
| 1034 | (cdr #{ms\ 1618}#) | |
| 1035 | (if #{rib\ 1612}# | |
| 1036 | (cons #{rib\ 1612}# | |
| 1037 | (cdr #{s\ 1619}#)) | |
| 1038 | (cdr #{s\ 1619}#))) | |
| 1039 | (#{syntax-object-module\ 1284}# | |
| 1040 | #{x\ 1615}#)) | |
| 1041 | (#{make-syntax-object\ 1280}# | |
| 1042 | (#{syntax-object-expression\ 1282}# | |
| 1043 | #{x\ 1615}#) | |
| 1044 | (#{make-wrap\ 1299}# | |
| 1045 | (cons #{m\ 1616}# #{ms\ 1618}#) | |
| 1046 | (if #{rib\ 1612}# | |
| 1047 | (cons #{rib\ 1612}# | |
| 1048 | (cons 'shift | |
| 1049 | #{s\ 1619}#)) | |
| 1050 | (cons (quote shift) #{s\ 1619}#))) | |
| 1051 | (let ((#{pmod\ 1620}# | |
| 1052 | (procedure-module | |
| 1053 | #{p\ 1608}#))) | |
| 1054 | (if #{pmod\ 1620}# | |
| 65dd9e38 | 1055 | (cons 'hygiene |
| b9434165 | 1056 | (module-name #{pmod\ 1620}#)) |
| 65dd9e38 | 1057 | '(hygiene guile))))))) |
| b9434165 LC |
1058 | (if (vector? #{x\ 1615}#) |
| 1059 | (let ((#{n\ 1621}# | |
| 1060 | (vector-length #{x\ 1615}#))) | |
| 1061 | (let ((#{v\ 1622}# | |
| 1062 | (make-vector #{n\ 1621}#))) | |
| 1063 | (letrec ((#{loop\ 1623}# | |
| 1064 | (lambda (#{i\ 1624}#) | |
| 1065 | (if (#{fx=\ 1256}# | |
| 1066 | #{i\ 1624}# | |
| 1067 | #{n\ 1621}#) | |
| 1068 | (begin | |
| 1069 | (if #f #f) | |
| 1070 | #{v\ 1622}#) | |
| 65dd9e38 AW |
1071 | (begin |
| 1072 | (vector-set! | |
| b9434165 LC |
1073 | #{v\ 1622}# |
| 1074 | #{i\ 1624}# | |
| 1075 | (#{rebuild-macro-output\ 1614}# | |
| 65dd9e38 | 1076 | (vector-ref |
| b9434165 LC |
1077 | #{x\ 1615}# |
| 1078 | #{i\ 1624}#) | |
| 1079 | #{m\ 1616}#)) | |
| 1080 | (#{loop\ 1623}# | |
| 1081 | (#{fx+\ 1254}# | |
| 1082 | #{i\ 1624}# | |
| 1083 | 1))))))) | |
| 1084 | (#{loop\ 1623}# 0)))) | |
| 1085 | (if (symbol? #{x\ 1615}#) | |
| 65dd9e38 AW |
1086 | (syntax-violation |
| 1087 | #f | |
| 1088 | "encountered raw symbol in macro output" | |
| b9434165 LC |
1089 | (#{source-wrap\ 1326}# |
| 1090 | #{e\ 1609}# | |
| 1091 | #{w\ 1611}# | |
| 1092 | s | |
| 1093 | #{mod\ 1613}#) | |
| 1094 | #{x\ 1615}#) | |
| 1095 | #{x\ 1615}#))))))) | |
| 1096 | (#{rebuild-macro-output\ 1614}# | |
| 1097 | (#{p\ 1608}# | |
| 1098 | (#{wrap\ 1325}# | |
| 1099 | #{e\ 1609}# | |
| 1100 | (#{anti-mark\ 1312}# #{w\ 1611}#) | |
| 1101 | #{mod\ 1613}#)) | |
| 65dd9e38 | 1102 | (string #\m))))) |
| b9434165 LC |
1103 | (#{chi-application\ 1335}# |
| 1104 | (lambda (#{x\ 1625}# | |
| 1105 | #{e\ 1626}# | |
| 1106 | #{r\ 1627}# | |
| 1107 | #{w\ 1628}# | |
| 1108 | #{s\ 1629}# | |
| 1109 | #{mod\ 1630}#) | |
| 1110 | ((lambda (#{tmp\ 1631}#) | |
| 1111 | ((lambda (#{tmp\ 1632}#) | |
| 1112 | (if #{tmp\ 1632}# | |
| 1113 | (apply (lambda (#{e0\ 1633}# #{e1\ 1634}#) | |
| 1114 | (#{build-application\ 1264}# | |
| 1115 | #{s\ 1629}# | |
| 1116 | #{x\ 1625}# | |
| 1117 | (map (lambda (#{e\ 1635}#) | |
| 1118 | (#{chi\ 1333}# | |
| 1119 | #{e\ 1635}# | |
| 1120 | #{r\ 1627}# | |
| 1121 | #{w\ 1628}# | |
| 1122 | #{mod\ 1630}#)) | |
| 1123 | #{e1\ 1634}#))) | |
| 1124 | #{tmp\ 1632}#) | |
| 65dd9e38 AW |
1125 | (syntax-violation |
| 1126 | #f | |
| 1127 | "source expression failed to match any pattern" | |
| b9434165 LC |
1128 | #{tmp\ 1631}#))) |
| 1129 | ($sc-dispatch | |
| 1130 | #{tmp\ 1631}# | |
| 1131 | '(any . each-any)))) | |
| 1132 | #{e\ 1626}#))) | |
| 1133 | (#{chi-expr\ 1334}# | |
| 1134 | (lambda (#{type\ 1637}# | |
| 1135 | #{value\ 1638}# | |
| 1136 | #{e\ 1639}# | |
| 1137 | #{r\ 1640}# | |
| 1138 | #{w\ 1641}# | |
| 1139 | #{s\ 1642}# | |
| 1140 | #{mod\ 1643}#) | |
| 1141 | (if (memv #{type\ 1637}# (quote (lexical))) | |
| 1142 | (#{build-lexical-reference\ 1266}# | |
| 65dd9e38 | 1143 | 'value |
| b9434165 LC |
1144 | #{s\ 1642}# |
| 1145 | #{e\ 1639}# | |
| 1146 | #{value\ 1638}#) | |
| 1147 | (if (memv #{type\ 1637}# (quote (core core-form))) | |
| 1148 | (#{value\ 1638}# | |
| 1149 | #{e\ 1639}# | |
| 1150 | #{r\ 1640}# | |
| 1151 | #{w\ 1641}# | |
| 1152 | #{s\ 1642}# | |
| 1153 | #{mod\ 1643}#) | |
| 1154 | (if (memv #{type\ 1637}# (quote (module-ref))) | |
| 65dd9e38 | 1155 | (call-with-values |
| b9434165 LC |
1156 | (lambda () (#{value\ 1638}# #{e\ 1639}#)) |
| 1157 | (lambda (#{id\ 1644}# #{mod\ 1645}#) | |
| 1158 | (#{build-global-reference\ 1269}# | |
| 1159 | #{s\ 1642}# | |
| 1160 | #{id\ 1644}# | |
| 1161 | #{mod\ 1645}#))) | |
| 1162 | (if (memv #{type\ 1637}# (quote (lexical-call))) | |
| 1163 | (#{chi-application\ 1335}# | |
| 1164 | (#{build-lexical-reference\ 1266}# | |
| 65dd9e38 | 1165 | 'fun |
| b9434165 LC |
1166 | (#{source-annotation\ 1288}# (car #{e\ 1639}#)) |
| 1167 | (car #{e\ 1639}#) | |
| 1168 | #{value\ 1638}#) | |
| 1169 | #{e\ 1639}# | |
| 1170 | #{r\ 1640}# | |
| 1171 | #{w\ 1641}# | |
| 1172 | #{s\ 1642}# | |
| 1173 | #{mod\ 1643}#) | |
| 1174 | (if (memv #{type\ 1637}# (quote (global-call))) | |
| 1175 | (#{chi-application\ 1335}# | |
| 1176 | (#{build-global-reference\ 1269}# | |
| 1177 | (#{source-annotation\ 1288}# (car #{e\ 1639}#)) | |
| 1178 | (if (#{syntax-object?\ 1281}# #{value\ 1638}#) | |
| 1179 | (#{syntax-object-expression\ 1282}# | |
| 1180 | #{value\ 1638}#) | |
| 1181 | #{value\ 1638}#) | |
| 1182 | (if (#{syntax-object?\ 1281}# #{value\ 1638}#) | |
| 1183 | (#{syntax-object-module\ 1284}# #{value\ 1638}#) | |
| 1184 | #{mod\ 1643}#)) | |
| 1185 | #{e\ 1639}# | |
| 1186 | #{r\ 1640}# | |
| 1187 | #{w\ 1641}# | |
| 1188 | #{s\ 1642}# | |
| 1189 | #{mod\ 1643}#) | |
| 1190 | (if (memv #{type\ 1637}# (quote (constant))) | |
| 1191 | (#{build-data\ 1275}# | |
| 1192 | #{s\ 1642}# | |
| 1193 | (#{strip\ 1343}# | |
| 1194 | (#{source-wrap\ 1326}# | |
| 1195 | #{e\ 1639}# | |
| 1196 | #{w\ 1641}# | |
| 1197 | #{s\ 1642}# | |
| 1198 | #{mod\ 1643}#) | |
| 65dd9e38 | 1199 | '(()))) |
| b9434165 LC |
1200 | (if (memv #{type\ 1637}# (quote (global))) |
| 1201 | (#{build-global-reference\ 1269}# | |
| 1202 | #{s\ 1642}# | |
| 1203 | #{value\ 1638}# | |
| 1204 | #{mod\ 1643}#) | |
| 1205 | (if (memv #{type\ 1637}# (quote (call))) | |
| 1206 | (#{chi-application\ 1335}# | |
| 1207 | (#{chi\ 1333}# | |
| 1208 | (car #{e\ 1639}#) | |
| 1209 | #{r\ 1640}# | |
| 1210 | #{w\ 1641}# | |
| 1211 | #{mod\ 1643}#) | |
| 1212 | #{e\ 1639}# | |
| 1213 | #{r\ 1640}# | |
| 1214 | #{w\ 1641}# | |
| 1215 | #{s\ 1642}# | |
| 1216 | #{mod\ 1643}#) | |
| 1217 | (if (memv #{type\ 1637}# (quote (begin-form))) | |
| 1218 | ((lambda (#{tmp\ 1646}#) | |
| 1219 | ((lambda (#{tmp\ 1647}#) | |
| 1220 | (if #{tmp\ 1647}# | |
| 1221 | (apply (lambda (#{_\ 1648}# | |
| 1222 | #{e1\ 1649}# | |
| 1223 | #{e2\ 1650}#) | |
| 1224 | (#{chi-sequence\ 1327}# | |
| 1225 | (cons #{e1\ 1649}# | |
| 1226 | #{e2\ 1650}#) | |
| 1227 | #{r\ 1640}# | |
| 1228 | #{w\ 1641}# | |
| 1229 | #{s\ 1642}# | |
| 1230 | #{mod\ 1643}#)) | |
| 1231 | #{tmp\ 1647}#) | |
| 65dd9e38 AW |
1232 | (syntax-violation |
| 1233 | #f | |
| 1234 | "source expression failed to match any pattern" | |
| b9434165 | 1235 | #{tmp\ 1646}#))) |
| 65dd9e38 | 1236 | ($sc-dispatch |
| b9434165 | 1237 | #{tmp\ 1646}# |
| 65dd9e38 | 1238 | '(any any . each-any)))) |
| b9434165 LC |
1239 | #{e\ 1639}#) |
| 1240 | (if (memv #{type\ 1637}# | |
| 1241 | '(local-syntax-form)) | |
| 1242 | (#{chi-local-syntax\ 1339}# | |
| 1243 | #{value\ 1638}# | |
| 1244 | #{e\ 1639}# | |
| 1245 | #{r\ 1640}# | |
| 1246 | #{w\ 1641}# | |
| 1247 | #{s\ 1642}# | |
| 1248 | #{mod\ 1643}# | |
| 1249 | #{chi-sequence\ 1327}#) | |
| 1250 | (if (memv #{type\ 1637}# | |
| 1251 | '(eval-when-form)) | |
| 1252 | ((lambda (#{tmp\ 1652}#) | |
| 1253 | ((lambda (#{tmp\ 1653}#) | |
| 1254 | (if #{tmp\ 1653}# | |
| 1255 | (apply (lambda (#{_\ 1654}# | |
| 1256 | #{x\ 1655}# | |
| 1257 | #{e1\ 1656}# | |
| 1258 | #{e2\ 1657}#) | |
| 1259 | (let ((#{when-list\ 1658}# | |
| 1260 | (#{chi-when-list\ 1330}# | |
| 1261 | #{e\ 1639}# | |
| 1262 | #{x\ 1655}# | |
| 1263 | #{w\ 1641}#))) | |
| 65dd9e38 | 1264 | (if (memq 'eval |
| b9434165 LC |
1265 | #{when-list\ 1658}#) |
| 1266 | (#{chi-sequence\ 1327}# | |
| 1267 | (cons #{e1\ 1656}# | |
| 1268 | #{e2\ 1657}#) | |
| 1269 | #{r\ 1640}# | |
| 1270 | #{w\ 1641}# | |
| 1271 | #{s\ 1642}# | |
| 1272 | #{mod\ 1643}#) | |
| 1273 | (#{chi-void\ 1341}#)))) | |
| 1274 | #{tmp\ 1653}#) | |
| 65dd9e38 AW |
1275 | (syntax-violation |
| 1276 | #f | |
| 1277 | "source expression failed to match any pattern" | |
| b9434165 | 1278 | #{tmp\ 1652}#))) |
| 65dd9e38 | 1279 | ($sc-dispatch |
| b9434165 | 1280 | #{tmp\ 1652}# |
| 65dd9e38 | 1281 | '(any each-any any . each-any)))) |
| b9434165 LC |
1282 | #{e\ 1639}#) |
| 1283 | (if (memv #{type\ 1637}# | |
| 65dd9e38 AW |
1284 | '(define-form |
| 1285 | define-syntax-form)) | |
| 1286 | (syntax-violation | |
| 1287 | #f | |
| 1288 | "definition in expression context" | |
| b9434165 LC |
1289 | #{e\ 1639}# |
| 1290 | (#{wrap\ 1325}# | |
| 1291 | #{value\ 1638}# | |
| 1292 | #{w\ 1641}# | |
| 1293 | #{mod\ 1643}#)) | |
| 1294 | (if (memv #{type\ 1637}# | |
| 1295 | '(syntax)) | |
| 65dd9e38 AW |
1296 | (syntax-violation |
| 1297 | #f | |
| 1298 | "reference to pattern variable outside syntax form" | |
| b9434165 LC |
1299 | (#{source-wrap\ 1326}# |
| 1300 | #{e\ 1639}# | |
| 1301 | #{w\ 1641}# | |
| 1302 | #{s\ 1642}# | |
| 1303 | #{mod\ 1643}#)) | |
| 1304 | (if (memv #{type\ 1637}# | |
| 65dd9e38 AW |
1305 | '(displaced-lexical)) |
| 1306 | (syntax-violation | |
| 1307 | #f | |
| 1308 | "reference to identifier outside its scope" | |
| b9434165 LC |
1309 | (#{source-wrap\ 1326}# |
| 1310 | #{e\ 1639}# | |
| 1311 | #{w\ 1641}# | |
| 1312 | #{s\ 1642}# | |
| 1313 | #{mod\ 1643}#)) | |
| 65dd9e38 AW |
1314 | (syntax-violation |
| 1315 | #f | |
| 1316 | "unexpected syntax" | |
| b9434165 LC |
1317 | (#{source-wrap\ 1326}# |
| 1318 | #{e\ 1639}# | |
| 1319 | #{w\ 1641}# | |
| 1320 | #{s\ 1642}# | |
| 1321 | #{mod\ 1643}#)))))))))))))))))) | |
| 1322 | (#{chi\ 1333}# | |
| 1323 | (lambda (#{e\ 1661}# | |
| 1324 | #{r\ 1662}# | |
| 1325 | #{w\ 1663}# | |
| 1326 | #{mod\ 1664}#) | |
| 65dd9e38 AW |
1327 | (call-with-values |
| 1328 | (lambda () | |
| b9434165 LC |
1329 | (#{syntax-type\ 1331}# |
| 1330 | #{e\ 1661}# | |
| 1331 | #{r\ 1662}# | |
| 1332 | #{w\ 1663}# | |
| 1333 | (#{source-annotation\ 1288}# #{e\ 1661}#) | |
| 65dd9e38 | 1334 | #f |
| b9434165 | 1335 | #{mod\ 1664}# |
| 65dd9e38 | 1336 | #f)) |
| b9434165 LC |
1337 | (lambda (#{type\ 1665}# |
| 1338 | #{value\ 1666}# | |
| 1339 | #{e\ 1667}# | |
| 1340 | #{w\ 1668}# | |
| 1341 | #{s\ 1669}# | |
| 1342 | #{mod\ 1670}#) | |
| 1343 | (#{chi-expr\ 1334}# | |
| 1344 | #{type\ 1665}# | |
| 1345 | #{value\ 1666}# | |
| 1346 | #{e\ 1667}# | |
| 1347 | #{r\ 1662}# | |
| 1348 | #{w\ 1668}# | |
| 1349 | #{s\ 1669}# | |
| 1350 | #{mod\ 1670}#))))) | |
| 1351 | (#{chi-top\ 1332}# | |
| 1352 | (lambda (#{e\ 1671}# | |
| 1353 | #{r\ 1672}# | |
| 1354 | #{w\ 1673}# | |
| 1355 | #{m\ 1674}# | |
| 1356 | #{esew\ 1675}# | |
| 1357 | #{mod\ 1676}#) | |
| 65dd9e38 AW |
1358 | (call-with-values |
| 1359 | (lambda () | |
| b9434165 LC |
1360 | (#{syntax-type\ 1331}# |
| 1361 | #{e\ 1671}# | |
| 1362 | #{r\ 1672}# | |
| 1363 | #{w\ 1673}# | |
| 1364 | (#{source-annotation\ 1288}# #{e\ 1671}#) | |
| 65dd9e38 | 1365 | #f |
| b9434165 | 1366 | #{mod\ 1676}# |
| 65dd9e38 | 1367 | #f)) |
| b9434165 LC |
1368 | (lambda (#{type\ 1684}# |
| 1369 | #{value\ 1685}# | |
| 1370 | #{e\ 1686}# | |
| 1371 | #{w\ 1687}# | |
| 1372 | #{s\ 1688}# | |
| 1373 | #{mod\ 1689}#) | |
| 1374 | (if (memv #{type\ 1684}# (quote (begin-form))) | |
| 1375 | ((lambda (#{tmp\ 1690}#) | |
| 1376 | ((lambda (#{tmp\ 1691}#) | |
| 1377 | (if #{tmp\ 1691}# | |
| 1378 | (apply (lambda (#{_\ 1692}#) (#{chi-void\ 1341}#)) | |
| 1379 | #{tmp\ 1691}#) | |
| 1380 | ((lambda (#{tmp\ 1693}#) | |
| 1381 | (if #{tmp\ 1693}# | |
| 1382 | (apply (lambda (#{_\ 1694}# | |
| 1383 | #{e1\ 1695}# | |
| 1384 | #{e2\ 1696}#) | |
| 1385 | (#{chi-top-sequence\ 1328}# | |
| 1386 | (cons #{e1\ 1695}# #{e2\ 1696}#) | |
| 1387 | #{r\ 1672}# | |
| 1388 | #{w\ 1687}# | |
| 1389 | #{s\ 1688}# | |
| 1390 | #{m\ 1674}# | |
| 1391 | #{esew\ 1675}# | |
| 1392 | #{mod\ 1689}#)) | |
| 1393 | #{tmp\ 1693}#) | |
| 65dd9e38 AW |
1394 | (syntax-violation |
| 1395 | #f | |
| 1396 | "source expression failed to match any pattern" | |
| b9434165 | 1397 | #{tmp\ 1690}#))) |
| 65dd9e38 | 1398 | ($sc-dispatch |
| b9434165 | 1399 | #{tmp\ 1690}# |
| 65dd9e38 | 1400 | '(any any . each-any))))) |
| b9434165 LC |
1401 | ($sc-dispatch #{tmp\ 1690}# (quote (any))))) |
| 1402 | #{e\ 1686}#) | |
| 1403 | (if (memv #{type\ 1684}# (quote (local-syntax-form))) | |
| 1404 | (#{chi-local-syntax\ 1339}# | |
| 1405 | #{value\ 1685}# | |
| 1406 | #{e\ 1686}# | |
| 1407 | #{r\ 1672}# | |
| 1408 | #{w\ 1687}# | |
| 1409 | #{s\ 1688}# | |
| 1410 | #{mod\ 1689}# | |
| 1411 | (lambda (#{body\ 1698}# | |
| 1412 | #{r\ 1699}# | |
| 1413 | #{w\ 1700}# | |
| 1414 | #{s\ 1701}# | |
| 1415 | #{mod\ 1702}#) | |
| 1416 | (#{chi-top-sequence\ 1328}# | |
| 1417 | #{body\ 1698}# | |
| 1418 | #{r\ 1699}# | |
| 1419 | #{w\ 1700}# | |
| 1420 | #{s\ 1701}# | |
| 1421 | #{m\ 1674}# | |
| 1422 | #{esew\ 1675}# | |
| 1423 | #{mod\ 1702}#))) | |
| 1424 | (if (memv #{type\ 1684}# (quote (eval-when-form))) | |
| 1425 | ((lambda (#{tmp\ 1703}#) | |
| 1426 | ((lambda (#{tmp\ 1704}#) | |
| 1427 | (if #{tmp\ 1704}# | |
| 1428 | (apply (lambda (#{_\ 1705}# | |
| 1429 | #{x\ 1706}# | |
| 1430 | #{e1\ 1707}# | |
| 1431 | #{e2\ 1708}#) | |
| 1432 | (let ((#{when-list\ 1709}# | |
| 1433 | (#{chi-when-list\ 1330}# | |
| 1434 | #{e\ 1686}# | |
| 1435 | #{x\ 1706}# | |
| 1436 | #{w\ 1687}#)) | |
| 1437 | (#{body\ 1710}# | |
| 1438 | (cons #{e1\ 1707}# | |
| 1439 | #{e2\ 1708}#))) | |
| 1440 | (if (eq? #{m\ 1674}# (quote e)) | |
| 65dd9e38 | 1441 | (if (memq 'eval |
| b9434165 LC |
1442 | #{when-list\ 1709}#) |
| 1443 | (#{chi-top-sequence\ 1328}# | |
| 1444 | #{body\ 1710}# | |
| 1445 | #{r\ 1672}# | |
| 1446 | #{w\ 1687}# | |
| 1447 | #{s\ 1688}# | |
| 65dd9e38 AW |
1448 | 'e |
| 1449 | '(eval) | |
| b9434165 LC |
1450 | #{mod\ 1689}#) |
| 1451 | (#{chi-void\ 1341}#)) | |
| 65dd9e38 | 1452 | (if (memq 'load |
| b9434165 LC |
1453 | #{when-list\ 1709}#) |
| 1454 | (if (let ((#{t\ 1713}# | |
| 1455 | (memq 'compile | |
| 1456 | #{when-list\ 1709}#))) | |
| 1457 | (if #{t\ 1713}# | |
| 1458 | #{t\ 1713}# | |
| 1459 | (if (eq? #{m\ 1674}# | |
| 65dd9e38 AW |
1460 | 'c&e) |
| 1461 | (memq 'eval | |
| b9434165 | 1462 | #{when-list\ 1709}#) |
| 65dd9e38 | 1463 | #f))) |
| b9434165 LC |
1464 | (#{chi-top-sequence\ 1328}# |
| 1465 | #{body\ 1710}# | |
| 1466 | #{r\ 1672}# | |
| 1467 | #{w\ 1687}# | |
| 1468 | #{s\ 1688}# | |
| 65dd9e38 AW |
1469 | 'c&e |
| 1470 | '(compile load) | |
| b9434165 LC |
1471 | #{mod\ 1689}#) |
| 1472 | (if (memq #{m\ 1674}# | |
| 65dd9e38 | 1473 | '(c c&e)) |
| b9434165 LC |
1474 | (#{chi-top-sequence\ 1328}# |
| 1475 | #{body\ 1710}# | |
| 1476 | #{r\ 1672}# | |
| 1477 | #{w\ 1687}# | |
| 1478 | #{s\ 1688}# | |
| 65dd9e38 AW |
1479 | 'c |
| 1480 | '(load) | |
| b9434165 LC |
1481 | #{mod\ 1689}#) |
| 1482 | (#{chi-void\ 1341}#))) | |
| 1483 | (if (let ((#{t\ 1714}# | |
| 1484 | (memq 'compile | |
| 1485 | #{when-list\ 1709}#))) | |
| 1486 | (if #{t\ 1714}# | |
| 1487 | #{t\ 1714}# | |
| 1488 | (if (eq? #{m\ 1674}# | |
| 65dd9e38 AW |
1489 | 'c&e) |
| 1490 | (memq 'eval | |
| b9434165 | 1491 | #{when-list\ 1709}#) |
| 65dd9e38 AW |
1492 | #f))) |
| 1493 | (begin | |
| b9434165 LC |
1494 | (#{top-level-eval-hook\ 1258}# |
| 1495 | (#{chi-top-sequence\ 1328}# | |
| 1496 | #{body\ 1710}# | |
| 1497 | #{r\ 1672}# | |
| 1498 | #{w\ 1687}# | |
| 1499 | #{s\ 1688}# | |
| 65dd9e38 AW |
1500 | 'e |
| 1501 | '(eval) | |
| b9434165 LC |
1502 | #{mod\ 1689}#) |
| 1503 | #{mod\ 1689}#) | |
| 1504 | (#{chi-void\ 1341}#)) | |
| 1505 | (#{chi-void\ 1341}#)))))) | |
| 1506 | #{tmp\ 1704}#) | |
| 65dd9e38 AW |
1507 | (syntax-violation |
| 1508 | #f | |
| 1509 | "source expression failed to match any pattern" | |
| b9434165 | 1510 | #{tmp\ 1703}#))) |
| 65dd9e38 | 1511 | ($sc-dispatch |
| b9434165 | 1512 | #{tmp\ 1703}# |
| 65dd9e38 | 1513 | '(any each-any any . each-any)))) |
| b9434165 LC |
1514 | #{e\ 1686}#) |
| 1515 | (if (memv #{type\ 1684}# | |
| 1516 | '(define-syntax-form)) | |
| 1517 | (let ((#{n\ 1715}# | |
| 1518 | (#{id-var-name\ 1319}# | |
| 1519 | #{value\ 1685}# | |
| 1520 | #{w\ 1687}#)) | |
| 1521 | (#{r\ 1716}# | |
| 1522 | (#{macros-only-env\ 1293}# #{r\ 1672}#))) | |
| 1523 | (if (memv #{m\ 1674}# (quote (c))) | |
| 1524 | (if (memq (quote compile) #{esew\ 1675}#) | |
| 1525 | (let ((#{e\ 1717}# | |
| 1526 | (#{chi-install-global\ 1329}# | |
| 1527 | #{n\ 1715}# | |
| 1528 | (#{chi\ 1333}# | |
| 1529 | #{e\ 1686}# | |
| 1530 | #{r\ 1716}# | |
| 1531 | #{w\ 1687}# | |
| 1532 | #{mod\ 1689}#)))) | |
| 65dd9e38 | 1533 | (begin |
| b9434165 LC |
1534 | (#{top-level-eval-hook\ 1258}# |
| 1535 | #{e\ 1717}# | |
| 1536 | #{mod\ 1689}#) | |
| 1537 | (if (memq (quote load) #{esew\ 1675}#) | |
| 1538 | #{e\ 1717}# | |
| 1539 | (#{chi-void\ 1341}#)))) | |
| 1540 | (if (memq (quote load) #{esew\ 1675}#) | |
| 1541 | (#{chi-install-global\ 1329}# | |
| 1542 | #{n\ 1715}# | |
| 1543 | (#{chi\ 1333}# | |
| 1544 | #{e\ 1686}# | |
| 1545 | #{r\ 1716}# | |
| 1546 | #{w\ 1687}# | |
| 1547 | #{mod\ 1689}#)) | |
| 1548 | (#{chi-void\ 1341}#))) | |
| 1549 | (if (memv #{m\ 1674}# (quote (c&e))) | |
| 1550 | (let ((#{e\ 1718}# | |
| 1551 | (#{chi-install-global\ 1329}# | |
| 1552 | #{n\ 1715}# | |
| 1553 | (#{chi\ 1333}# | |
| 1554 | #{e\ 1686}# | |
| 1555 | #{r\ 1716}# | |
| 1556 | #{w\ 1687}# | |
| 1557 | #{mod\ 1689}#)))) | |
| 65dd9e38 | 1558 | (begin |
| b9434165 LC |
1559 | (#{top-level-eval-hook\ 1258}# |
| 1560 | #{e\ 1718}# | |
| 1561 | #{mod\ 1689}#) | |
| 1562 | #{e\ 1718}#)) | |
| 65dd9e38 | 1563 | (begin |
| b9434165 LC |
1564 | (if (memq (quote eval) #{esew\ 1675}#) |
| 1565 | (#{top-level-eval-hook\ 1258}# | |
| 1566 | (#{chi-install-global\ 1329}# | |
| 1567 | #{n\ 1715}# | |
| 1568 | (#{chi\ 1333}# | |
| 1569 | #{e\ 1686}# | |
| 1570 | #{r\ 1716}# | |
| 1571 | #{w\ 1687}# | |
| 1572 | #{mod\ 1689}#)) | |
| 1573 | #{mod\ 1689}#)) | |
| 1574 | (#{chi-void\ 1341}#))))) | |
| 1575 | (if (memv #{type\ 1684}# (quote (define-form))) | |
| 1576 | (let ((#{n\ 1719}# | |
| 1577 | (#{id-var-name\ 1319}# | |
| 1578 | #{value\ 1685}# | |
| 1579 | #{w\ 1687}#))) | |
| 1580 | (let ((#{type\ 1720}# | |
| 1581 | (#{binding-type\ 1289}# | |
| 1582 | (#{lookup\ 1294}# | |
| 1583 | #{n\ 1719}# | |
| 1584 | #{r\ 1672}# | |
| 1585 | #{mod\ 1689}#)))) | |
| 1586 | (if (memv #{type\ 1720}# | |
| 65dd9e38 AW |
1587 | '(global core macro module-ref)) |
| 1588 | (begin | |
| 1589 | (if (if (not (module-local-variable | |
| 1590 | (current-module) | |
| b9434165 | 1591 | #{n\ 1719}#)) |
| 65dd9e38 AW |
1592 | (current-module) |
| 1593 | #f) | |
| b9434165 LC |
1594 | (let ((#{old\ 1721}# |
| 1595 | (module-variable | |
| 1596 | (current-module) | |
| 1597 | #{n\ 1719}#))) | |
| 1598 | (module-define! | |
| 1599 | (current-module) | |
| 1600 | #{n\ 1719}# | |
| 1601 | (if (variable? #{old\ 1721}#) | |
| 1602 | (variable-ref #{old\ 1721}#) | |
| 1603 | #f)))) | |
| 1604 | (let ((#{x\ 1722}# | |
| 1605 | (#{build-global-definition\ 1272}# | |
| 1606 | #{s\ 1688}# | |
| 1607 | #{n\ 1719}# | |
| 1608 | (#{chi\ 1333}# | |
| 1609 | #{e\ 1686}# | |
| 1610 | #{r\ 1672}# | |
| 1611 | #{w\ 1687}# | |
| 1612 | #{mod\ 1689}#)))) | |
| 65dd9e38 | 1613 | (begin |
| b9434165 LC |
1614 | (if (eq? #{m\ 1674}# (quote c&e)) |
| 1615 | (#{top-level-eval-hook\ 1258}# | |
| 1616 | #{x\ 1722}# | |
| 1617 | #{mod\ 1689}#)) | |
| 1618 | #{x\ 1722}#))) | |
| 1619 | (if (memv #{type\ 1720}# | |
| 65dd9e38 AW |
1620 | '(displaced-lexical)) |
| 1621 | (syntax-violation | |
| 1622 | #f | |
| 1623 | "identifier out of context" | |
| b9434165 LC |
1624 | #{e\ 1686}# |
| 1625 | (#{wrap\ 1325}# | |
| 1626 | #{value\ 1685}# | |
| 1627 | #{w\ 1687}# | |
| 1628 | #{mod\ 1689}#)) | |
| 65dd9e38 AW |
1629 | (syntax-violation |
| 1630 | #f | |
| 1631 | "cannot define keyword at top level" | |
| b9434165 LC |
1632 | #{e\ 1686}# |
| 1633 | (#{wrap\ 1325}# | |
| 1634 | #{value\ 1685}# | |
| 1635 | #{w\ 1687}# | |
| 1636 | #{mod\ 1689}#)))))) | |
| 1637 | (let ((#{x\ 1723}# | |
| 1638 | (#{chi-expr\ 1334}# | |
| 1639 | #{type\ 1684}# | |
| 1640 | #{value\ 1685}# | |
| 1641 | #{e\ 1686}# | |
| 1642 | #{r\ 1672}# | |
| 1643 | #{w\ 1687}# | |
| 1644 | #{s\ 1688}# | |
| 1645 | #{mod\ 1689}#))) | |
| 65dd9e38 | 1646 | (begin |
| b9434165 LC |
1647 | (if (eq? #{m\ 1674}# (quote c&e)) |
| 1648 | (#{top-level-eval-hook\ 1258}# | |
| 1649 | #{x\ 1723}# | |
| 1650 | #{mod\ 1689}#)) | |
| 1651 | #{x\ 1723}#))))))))))) | |
| 1652 | (#{syntax-type\ 1331}# | |
| 1653 | (lambda (#{e\ 1724}# | |
| 1654 | #{r\ 1725}# | |
| 1655 | #{w\ 1726}# | |
| 1656 | #{s\ 1727}# | |
| 1657 | #{rib\ 1728}# | |
| 1658 | #{mod\ 1729}# | |
| 1659 | #{for-car?\ 1730}#) | |
| 1660 | (if (symbol? #{e\ 1724}#) | |
| 1661 | (let ((#{n\ 1731}# | |
| 1662 | (#{id-var-name\ 1319}# #{e\ 1724}# #{w\ 1726}#))) | |
| 1663 | (let ((#{b\ 1732}# | |
| 1664 | (#{lookup\ 1294}# | |
| 1665 | #{n\ 1731}# | |
| 1666 | #{r\ 1725}# | |
| 1667 | #{mod\ 1729}#))) | |
| 1668 | (let ((#{type\ 1733}# | |
| 1669 | (#{binding-type\ 1289}# #{b\ 1732}#))) | |
| 1670 | (if (memv #{type\ 1733}# (quote (lexical))) | |
| 65dd9e38 | 1671 | (values |
| b9434165 LC |
1672 | #{type\ 1733}# |
| 1673 | (#{binding-value\ 1290}# #{b\ 1732}#) | |
| 1674 | #{e\ 1724}# | |
| 1675 | #{w\ 1726}# | |
| 1676 | #{s\ 1727}# | |
| 1677 | #{mod\ 1729}#) | |
| 1678 | (if (memv #{type\ 1733}# (quote (global))) | |
| 1679 | (values | |
| 1680 | #{type\ 1733}# | |
| 1681 | #{n\ 1731}# | |
| 1682 | #{e\ 1724}# | |
| 1683 | #{w\ 1726}# | |
| 1684 | #{s\ 1727}# | |
| 1685 | #{mod\ 1729}#) | |
| 1686 | (if (memv #{type\ 1733}# (quote (macro))) | |
| 1687 | (if #{for-car?\ 1730}# | |
| 65dd9e38 | 1688 | (values |
| b9434165 LC |
1689 | #{type\ 1733}# |
| 1690 | (#{binding-value\ 1290}# #{b\ 1732}#) | |
| 1691 | #{e\ 1724}# | |
| 1692 | #{w\ 1726}# | |
| 1693 | #{s\ 1727}# | |
| 1694 | #{mod\ 1729}#) | |
| 1695 | (#{syntax-type\ 1331}# | |
| 1696 | (#{chi-macro\ 1336}# | |
| 1697 | (#{binding-value\ 1290}# #{b\ 1732}#) | |
| 1698 | #{e\ 1724}# | |
| 1699 | #{r\ 1725}# | |
| 1700 | #{w\ 1726}# | |
| 1701 | #{rib\ 1728}# | |
| 1702 | #{mod\ 1729}#) | |
| 1703 | #{r\ 1725}# | |
| 65dd9e38 | 1704 | '(()) |
| b9434165 LC |
1705 | #{s\ 1727}# |
| 1706 | #{rib\ 1728}# | |
| 1707 | #{mod\ 1729}# | |
| 65dd9e38 AW |
1708 | #f)) |
| 1709 | (values | |
| b9434165 LC |
1710 | #{type\ 1733}# |
| 1711 | (#{binding-value\ 1290}# #{b\ 1732}#) | |
| 1712 | #{e\ 1724}# | |
| 1713 | #{w\ 1726}# | |
| 1714 | #{s\ 1727}# | |
| 1715 | #{mod\ 1729}#))))))) | |
| 1716 | (if (pair? #{e\ 1724}#) | |
| 1717 | (let ((#{first\ 1734}# (car #{e\ 1724}#))) | |
| 65dd9e38 AW |
1718 | (call-with-values |
| 1719 | (lambda () | |
| b9434165 LC |
1720 | (#{syntax-type\ 1331}# |
| 1721 | #{first\ 1734}# | |
| 1722 | #{r\ 1725}# | |
| 1723 | #{w\ 1726}# | |
| 1724 | #{s\ 1727}# | |
| 1725 | #{rib\ 1728}# | |
| 1726 | #{mod\ 1729}# | |
| 65dd9e38 | 1727 | #t)) |
| b9434165 LC |
1728 | (lambda (#{ftype\ 1735}# |
| 1729 | #{fval\ 1736}# | |
| 1730 | #{fe\ 1737}# | |
| 1731 | #{fw\ 1738}# | |
| 1732 | #{fs\ 1739}# | |
| 1733 | #{fmod\ 1740}#) | |
| 1734 | (if (memv #{ftype\ 1735}# (quote (lexical))) | |
| 65dd9e38 AW |
1735 | (values |
| 1736 | 'lexical-call | |
| b9434165 LC |
1737 | #{fval\ 1736}# |
| 1738 | #{e\ 1724}# | |
| 1739 | #{w\ 1726}# | |
| 1740 | #{s\ 1727}# | |
| 1741 | #{mod\ 1729}#) | |
| 1742 | (if (memv #{ftype\ 1735}# (quote (global))) | |
| 65dd9e38 AW |
1743 | (values |
| 1744 | 'global-call | |
| b9434165 LC |
1745 | (#{make-syntax-object\ 1280}# |
| 1746 | #{fval\ 1736}# | |
| 1747 | #{w\ 1726}# | |
| 1748 | #{fmod\ 1740}#) | |
| 1749 | #{e\ 1724}# | |
| 1750 | #{w\ 1726}# | |
| 1751 | #{s\ 1727}# | |
| 1752 | #{mod\ 1729}#) | |
| 1753 | (if (memv #{ftype\ 1735}# (quote (macro))) | |
| 1754 | (#{syntax-type\ 1331}# | |
| 1755 | (#{chi-macro\ 1336}# | |
| 1756 | #{fval\ 1736}# | |
| 1757 | #{e\ 1724}# | |
| 1758 | #{r\ 1725}# | |
| 1759 | #{w\ 1726}# | |
| 1760 | #{rib\ 1728}# | |
| 1761 | #{mod\ 1729}#) | |
| 1762 | #{r\ 1725}# | |
| 65dd9e38 | 1763 | '(()) |
| b9434165 LC |
1764 | #{s\ 1727}# |
| 1765 | #{rib\ 1728}# | |
| 1766 | #{mod\ 1729}# | |
| 1767 | #{for-car?\ 1730}#) | |
| 1768 | (if (memv #{ftype\ 1735}# (quote (module-ref))) | |
| 65dd9e38 | 1769 | (call-with-values |
| b9434165 LC |
1770 | (lambda () (#{fval\ 1736}# #{e\ 1724}#)) |
| 1771 | (lambda (#{sym\ 1741}# #{mod\ 1742}#) | |
| 1772 | (#{syntax-type\ 1331}# | |
| 1773 | #{sym\ 1741}# | |
| 1774 | #{r\ 1725}# | |
| 1775 | #{w\ 1726}# | |
| 1776 | #{s\ 1727}# | |
| 1777 | #{rib\ 1728}# | |
| 1778 | #{mod\ 1742}# | |
| 1779 | #{for-car?\ 1730}#))) | |
| 1780 | (if (memv #{ftype\ 1735}# (quote (core))) | |
| 65dd9e38 AW |
1781 | (values |
| 1782 | 'core-form | |
| b9434165 LC |
1783 | #{fval\ 1736}# |
| 1784 | #{e\ 1724}# | |
| 1785 | #{w\ 1726}# | |
| 1786 | #{s\ 1727}# | |
| 1787 | #{mod\ 1729}#) | |
| 1788 | (if (memv #{ftype\ 1735}# | |
| 1789 | '(local-syntax)) | |
| 65dd9e38 AW |
1790 | (values |
| 1791 | 'local-syntax-form | |
| b9434165 LC |
1792 | #{fval\ 1736}# |
| 1793 | #{e\ 1724}# | |
| 1794 | #{w\ 1726}# | |
| 1795 | #{s\ 1727}# | |
| 1796 | #{mod\ 1729}#) | |
| 1797 | (if (memv #{ftype\ 1735}# (quote (begin))) | |
| 65dd9e38 AW |
1798 | (values |
| 1799 | 'begin-form | |
| 1800 | #f | |
| b9434165 LC |
1801 | #{e\ 1724}# |
| 1802 | #{w\ 1726}# | |
| 1803 | #{s\ 1727}# | |
| 1804 | #{mod\ 1729}#) | |
| 1805 | (if (memv #{ftype\ 1735}# | |
| 1806 | '(eval-when)) | |
| 65dd9e38 AW |
1807 | (values |
| 1808 | 'eval-when-form | |
| 1809 | #f | |
| b9434165 LC |
1810 | #{e\ 1724}# |
| 1811 | #{w\ 1726}# | |
| 1812 | #{s\ 1727}# | |
| 1813 | #{mod\ 1729}#) | |
| 1814 | (if (memv #{ftype\ 1735}# | |
| 1815 | '(define)) | |
| 1816 | ((lambda (#{tmp\ 1743}#) | |
| 1817 | ((lambda (#{tmp\ 1744}#) | |
| 1818 | (if (if #{tmp\ 1744}# | |
| 1819 | (apply (lambda (#{_\ 1745}# | |
| 1820 | #{name\ 1746}# | |
| 1821 | #{val\ 1747}#) | |
| 1822 | (#{id?\ 1297}# | |
| 1823 | #{name\ 1746}#)) | |
| 1824 | #{tmp\ 1744}#) | |
| 65dd9e38 | 1825 | #f) |
| b9434165 LC |
1826 | (apply (lambda (#{_\ 1748}# |
| 1827 | #{name\ 1749}# | |
| 1828 | #{val\ 1750}#) | |
| 65dd9e38 AW |
1829 | (values |
| 1830 | 'define-form | |
| b9434165 LC |
1831 | #{name\ 1749}# |
| 1832 | #{val\ 1750}# | |
| 1833 | #{w\ 1726}# | |
| 1834 | #{s\ 1727}# | |
| 1835 | #{mod\ 1729}#)) | |
| 1836 | #{tmp\ 1744}#) | |
| 1837 | ((lambda (#{tmp\ 1751}#) | |
| 1838 | (if (if #{tmp\ 1751}# | |
| 1839 | (apply (lambda (#{_\ 1752}# | |
| 1840 | #{name\ 1753}# | |
| 1841 | #{args\ 1754}# | |
| 1842 | #{e1\ 1755}# | |
| 1843 | #{e2\ 1756}#) | |
| 1844 | (if (#{id?\ 1297}# | |
| 1845 | #{name\ 1753}#) | |
| 1846 | (#{valid-bound-ids?\ 1322}# | |
| 1847 | (#{lambda-var-list\ 1345}# | |
| 1848 | #{args\ 1754}#)) | |
| 65dd9e38 | 1849 | #f)) |
| b9434165 | 1850 | #{tmp\ 1751}#) |
| 65dd9e38 | 1851 | #f) |
| b9434165 LC |
1852 | (apply (lambda (#{_\ 1757}# |
| 1853 | #{name\ 1758}# | |
| 1854 | #{args\ 1759}# | |
| 1855 | #{e1\ 1760}# | |
| 1856 | #{e2\ 1761}#) | |
| 65dd9e38 AW |
1857 | (values |
| 1858 | 'define-form | |
| b9434165 LC |
1859 | (#{wrap\ 1325}# |
| 1860 | #{name\ 1758}# | |
| 1861 | #{w\ 1726}# | |
| 1862 | #{mod\ 1729}#) | |
| 1863 | (#{decorate-source\ 1262}# | |
| 89cb70a0 AW |
1864 | (cons '#(syntax-object |
| 1865 | lambda | |
| 1866 | ((top) | |
| 1867 | #(ribcage | |
| 1868 | #(_ | |
| 1869 | name | |
| 1870 | args | |
| 1871 | e1 | |
| 1872 | e2) | |
| 1873 | #((top) | |
| 1874 | (top) | |
| 1875 | (top) | |
| 1876 | (top) | |
| 1877 | (top)) | |
| 1878 | #("i" | |
| 1879 | "i" | |
| 1880 | "i" | |
| 1881 | "i" | |
| 1882 | "i")) | |
| 1883 | #(ribcage | |
| 1884 | () | |
| 1885 | () | |
| 1886 | ()) | |
| 1887 | #(ribcage | |
| 1888 | () | |
| 1889 | () | |
| 1890 | ()) | |
| 1891 | #(ribcage | |
| 1892 | #(ftype | |
| 1893 | fval | |
| 1894 | fe | |
| 1895 | fw | |
| 1896 | fs | |
| 1897 | fmod) | |
| 1898 | #((top) | |
| 1899 | (top) | |
| 1900 | (top) | |
| 1901 | (top) | |
| 1902 | (top) | |
| 1903 | (top)) | |
| 1904 | #("i" | |
| 1905 | "i" | |
| 1906 | "i" | |
| 1907 | "i" | |
| 1908 | "i" | |
| 1909 | "i")) | |
| 1910 | #(ribcage | |
| 1911 | () | |
| 1912 | () | |
| 1913 | ()) | |
| 1914 | #(ribcage | |
| 1915 | #(first) | |
| 1916 | #((top)) | |
| 1917 | #("i")) | |
| 1918 | #(ribcage | |
| 1919 | () | |
| 1920 | () | |
| 1921 | ()) | |
| 1922 | #(ribcage | |
| 1923 | () | |
| 1924 | () | |
| 1925 | ()) | |
| 1926 | #(ribcage | |
| 1927 | () | |
| 1928 | () | |
| 1929 | ()) | |
| 1930 | #(ribcage | |
| 1931 | #(e | |
| 1932 | r | |
| 1933 | w | |
| 1934 | s | |
| 1935 | rib | |
| 1936 | mod | |
| 1937 | for-car?) | |
| 1938 | #((top) | |
| 1939 | (top) | |
| 1940 | (top) | |
| 1941 | (top) | |
| 1942 | (top) | |
| 1943 | (top) | |
| 1944 | (top)) | |
| 1945 | #("i" | |
| 1946 | "i" | |
| 1947 | "i" | |
| 1948 | "i" | |
| 1949 | "i" | |
| 1950 | "i" | |
| 1951 | "i")) | |
| 1952 | #(ribcage | |
| 1953 | (lambda-var-list | |
| 1954 | gen-var | |
| 1955 | strip | |
| 1956 | ellipsis? | |
| 1957 | chi-void | |
| 1958 | eval-local-transformer | |
| 1959 | chi-local-syntax | |
| 1960 | chi-lambda-clause | |
| 1961 | chi-body | |
| 1962 | chi-macro | |
| 1963 | chi-application | |
| 1964 | chi-expr | |
| 1965 | chi | |
| 1966 | chi-top | |
| 1967 | syntax-type | |
| 1968 | chi-when-list | |
| 1969 | chi-install-global | |
| 1970 | chi-top-sequence | |
| 1971 | chi-sequence | |
| 1972 | source-wrap | |
| 1973 | wrap | |
| 1974 | bound-id-member? | |
| 1975 | distinct-bound-ids? | |
| 1976 | valid-bound-ids? | |
| 1977 | bound-id=? | |
| 1978 | free-id=? | |
| 1979 | id-var-name | |
| 1980 | same-marks? | |
| 1981 | join-marks | |
| 1982 | join-wraps | |
| 1983 | smart-append | |
| 1984 | make-binding-wrap | |
| 1985 | extend-ribcage! | |
| 1986 | make-empty-ribcage | |
| 1987 | new-mark | |
| 1988 | anti-mark | |
| 1989 | the-anti-mark | |
| 1990 | top-marked? | |
| 1991 | top-wrap | |
| 1992 | empty-wrap | |
| 1993 | set-ribcage-labels! | |
| 1994 | set-ribcage-marks! | |
| 1995 | set-ribcage-symnames! | |
| 1996 | ribcage-labels | |
| 1997 | ribcage-marks | |
| 1998 | ribcage-symnames | |
| 1999 | ribcage? | |
| 2000 | make-ribcage | |
| 2001 | gen-labels | |
| 2002 | gen-label | |
| 2003 | make-rename | |
| 2004 | rename-marks | |
| 2005 | rename-new | |
| 2006 | rename-old | |
| 2007 | subst-rename? | |
| 2008 | wrap-subst | |
| 2009 | wrap-marks | |
| 2010 | make-wrap | |
| 2011 | id-sym-name&marks | |
| 2012 | id-sym-name | |
| 2013 | id? | |
| 2014 | nonsymbol-id? | |
| 2015 | global-extend | |
| 2016 | lookup | |
| 2017 | macros-only-env | |
| 2018 | extend-var-env | |
| 2019 | extend-env | |
| 2020 | null-env | |
| 2021 | binding-value | |
| 2022 | binding-type | |
| 2023 | make-binding | |
| 2024 | arg-check | |
| 2025 | source-annotation | |
| 2026 | no-source | |
| 2027 | set-syntax-object-module! | |
| 2028 | set-syntax-object-wrap! | |
| 2029 | set-syntax-object-expression! | |
| 2030 | syntax-object-module | |
| 2031 | syntax-object-wrap | |
| 2032 | syntax-object-expression | |
| 2033 | syntax-object? | |
| 2034 | make-syntax-object | |
| 2035 | build-lexical-var | |
| 2036 | build-letrec | |
| 2037 | build-named-let | |
| 2038 | build-let | |
| 2039 | build-sequence | |
| 2040 | build-data | |
| 2041 | build-primref | |
| 2042 | build-lambda | |
| 2043 | build-global-definition | |
| 2044 | maybe-name-value! | |
| 2045 | build-global-assignment | |
| 2046 | build-global-reference | |
| 2047 | analyze-variable | |
| 2048 | build-lexical-assignment | |
| 2049 | build-lexical-reference | |
| 2050 | build-conditional | |
| 2051 | build-application | |
| 2052 | build-void | |
| 2053 | decorate-source | |
| 2054 | get-global-definition-hook | |
| 2055 | put-global-definition-hook | |
| 2056 | gensym-hook | |
| 2057 | local-eval-hook | |
| 2058 | top-level-eval-hook | |
| 2059 | fx< | |
| 2060 | fx= | |
| 2061 | fx- | |
| 2062 | fx+ | |
| 2063 | *mode* | |
| 2064 | noexpand) | |
| 2065 | ((top) | |
| 2066 | (top) | |
| 2067 | (top) | |
| 2068 | (top) | |
| 2069 | (top) | |
| 2070 | (top) | |
| 2071 | (top) | |
| 2072 | (top) | |
| 2073 | (top) | |
| 2074 | (top) | |
| 2075 | (top) | |
| 2076 | (top) | |
| 2077 | (top) | |
| 2078 | (top) | |
| 2079 | (top) | |
| 2080 | (top) | |
| 2081 | (top) | |
| 2082 | (top) | |
| 2083 | (top) | |
| 2084 | (top) | |
| 2085 | (top) | |
| 2086 | (top) | |
| 2087 | (top) | |
| 2088 | (top) | |
| 2089 | (top) | |
| 2090 | (top) | |
| 2091 | (top) | |
| 2092 | (top) | |
| 2093 | (top) | |
| 2094 | (top) | |
| 2095 | (top) | |
| 2096 | (top) | |
| 2097 | (top) | |
| 2098 | (top) | |
| 2099 | (top) | |
| 2100 | (top) | |
| 2101 | (top) | |
| 2102 | (top) | |
| 2103 | (top) | |
| 2104 | (top) | |
| 2105 | (top) | |
| 2106 | (top) | |
| 2107 | (top) | |
| 2108 | (top) | |
| 2109 | (top) | |
| 2110 | (top) | |
| 2111 | (top) | |
| 2112 | (top) | |
| 2113 | (top) | |
| 2114 | (top) | |
| 2115 | (top) | |
| 2116 | (top) | |
| 2117 | (top) | |
| 2118 | (top) | |
| 2119 | (top) | |
| 2120 | (top) | |
| 2121 | (top) | |
| 2122 | (top) | |
| 2123 | (top) | |
| 2124 | (top) | |
| 2125 | (top) | |
| 2126 | (top) | |
| 2127 | (top) | |
| 2128 | (top) | |
| 2129 | (top) | |
| 2130 | (top) | |
| 2131 | (top) | |
| 2132 | (top) | |
| 2133 | (top) | |
| 2134 | (top) | |
| 2135 | (top) | |
| 2136 | (top) | |
| 2137 | (top) | |
| 2138 | (top) | |
| 2139 | (top) | |
| 2140 | (top) | |
| 2141 | (top) | |
| 2142 | (top) | |
| 2143 | (top) | |
| 2144 | (top) | |
| 2145 | (top) | |
| 2146 | (top) | |
| 2147 | (top) | |
| 2148 | (top) | |
| 2149 | (top) | |
| 2150 | (top) | |
| 2151 | (top) | |
| 2152 | (top) | |
| 2153 | (top) | |
| 2154 | (top) | |
| 2155 | (top) | |
| 2156 | (top) | |
| 2157 | (top) | |
| 2158 | (top) | |
| 2159 | (top) | |
| 2160 | (top) | |
| 2161 | (top) | |
| 2162 | (top) | |
| 2163 | (top) | |
| 2164 | (top) | |
| 2165 | (top) | |
| 2166 | (top) | |
| 2167 | (top) | |
| 2168 | (top) | |
| 2169 | (top) | |
| 2170 | (top) | |
| 2171 | (top) | |
| 2172 | (top) | |
| 2173 | (top) | |
| 2174 | (top) | |
| 2175 | (top) | |
| 2176 | (top)) | |
| 2177 | ("i" | |
| 2178 | "i" | |
| 2179 | "i" | |
| 2180 | "i" | |
| 2181 | "i" | |
| 2182 | "i" | |
| 2183 | "i" | |
| 2184 | "i" | |
| 2185 | "i" | |
| 2186 | "i" | |
| 2187 | "i" | |
| 2188 | "i" | |
| 2189 | "i" | |
| 2190 | "i" | |
| 2191 | "i" | |
| 2192 | "i" | |
| 2193 | "i" | |
| 2194 | "i" | |
| 2195 | "i" | |
| 2196 | "i" | |
| 2197 | "i" | |
| 2198 | "i" | |
| 2199 | "i" | |
| 2200 | "i" | |
| 2201 | "i" | |
| 2202 | "i" | |
| 2203 | "i" | |
| 2204 | "i" | |
| 2205 | "i" | |
| 2206 | "i" | |
| 2207 | "i" | |
| 2208 | "i" | |
| 2209 | "i" | |
| 2210 | "i" | |
| 2211 | "i" | |
| 2212 | "i" | |
| 2213 | "i" | |
| 2214 | "i" | |
| 2215 | "i" | |
| 2216 | "i" | |
| 2217 | "i" | |
| 2218 | "i" | |
| 2219 | "i" | |
| 2220 | "i" | |
| 2221 | "i" | |
| 2222 | "i" | |
| 2223 | "i" | |
| 2224 | "i" | |
| 2225 | "i" | |
| 2226 | "i" | |
| 2227 | "i" | |
| 2228 | "i" | |
| 2229 | "i" | |
| 2230 | "i" | |
| 2231 | "i" | |
| 2232 | "i" | |
| 2233 | "i" | |
| 2234 | "i" | |
| 2235 | "i" | |
| 2236 | "i" | |
| 2237 | "i" | |
| 2238 | "i" | |
| 2239 | "i" | |
| 2240 | "i" | |
| 2241 | "i" | |
| 2242 | "i" | |
| 2243 | "i" | |
| 2244 | "i" | |
| 2245 | "i" | |
| 2246 | "i" | |
| 2247 | "i" | |
| 2248 | "i" | |
| 2249 | "i" | |
| 2250 | "i" | |
| 2251 | "i" | |
| 2252 | "i" | |
| 2253 | "i" | |
| 2254 | "i" | |
| 2255 | "i" | |
| 2256 | "i" | |
| 2257 | "i" | |
| 2258 | "i" | |
| 2259 | "i" | |
| 2260 | "i" | |
| 2261 | "i" | |
| 2262 | "i" | |
| 2263 | "i" | |
| 2264 | "i" | |
| 2265 | "i" | |
| 2266 | "i" | |
| 2267 | "i" | |
| 2268 | "i" | |
| 2269 | "i" | |
| 2270 | "i" | |
| 2271 | "i" | |
| 2272 | "i" | |
| 2273 | "i" | |
| 2274 | "i" | |
| 2275 | "i" | |
| 2276 | "i" | |
| 2277 | "i" | |
| 2278 | "i" | |
| 2279 | "i" | |
| 2280 | "i" | |
| 2281 | "i" | |
| 2282 | "i" | |
| 2283 | "i" | |
| 2284 | "i" | |
| 2285 | "i" | |
| 2286 | "i" | |
| 2287 | "i" | |
| 2288 | "i")) | |
| 2289 | #(ribcage | |
| 2290 | (define-structure | |
| 2291 | and-map*) | |
| 2292 | ((top) | |
| 2293 | (top)) | |
| 2294 | ("i" | |
| 2295 | "i"))) | |
| 2296 | (hygiene | |
| 2297 | guile)) | |
| b9434165 LC |
2298 | (#{wrap\ 1325}# |
| 2299 | (cons #{args\ 1759}# | |
| 2300 | (cons #{e1\ 1760}# | |
| 2301 | #{e2\ 1761}#)) | |
| 2302 | #{w\ 1726}# | |
| 2303 | #{mod\ 1729}#)) | |
| 2304 | #{s\ 1727}#) | |
| 65dd9e38 | 2305 | '(()) |
| b9434165 LC |
2306 | #{s\ 1727}# |
| 2307 | #{mod\ 1729}#)) | |
| 2308 | #{tmp\ 1751}#) | |
| 2309 | ((lambda (#{tmp\ 1763}#) | |
| 2310 | (if (if #{tmp\ 1763}# | |
| 2311 | (apply (lambda (#{_\ 1764}# | |
| 2312 | #{name\ 1765}#) | |
| 2313 | (#{id?\ 1297}# | |
| 2314 | #{name\ 1765}#)) | |
| 2315 | #{tmp\ 1763}#) | |
| 65dd9e38 | 2316 | #f) |
| b9434165 LC |
2317 | (apply (lambda (#{_\ 1766}# |
| 2318 | #{name\ 1767}#) | |
| 65dd9e38 AW |
2319 | (values |
| 2320 | 'define-form | |
| b9434165 LC |
2321 | (#{wrap\ 1325}# |
| 2322 | #{name\ 1767}# | |
| 2323 | #{w\ 1726}# | |
| 2324 | #{mod\ 1729}#) | |
| 65dd9e38 AW |
2325 | '(#(syntax-object |
| 2326 | if | |
| 2327 | ((top) | |
| 2328 | #(ribcage | |
| 2329 | #(_ | |
| 2330 | name) | |
| 2331 | #((top) | |
| 2332 | (top)) | |
| 2333 | #("i" | |
| 2334 | "i")) | |
| 2335 | #(ribcage | |
| 2336 | () | |
| 2337 | () | |
| 2338 | ()) | |
| 2339 | #(ribcage | |
| 2340 | () | |
| 2341 | () | |
| 2342 | ()) | |
| 2343 | #(ribcage | |
| 2344 | #(ftype | |
| 2345 | fval | |
| 2346 | fe | |
| 2347 | fw | |
| 2348 | fs | |
| 2349 | fmod) | |
| 2350 | #((top) | |
| 2351 | (top) | |
| 2352 | (top) | |
| 2353 | (top) | |
| 2354 | (top) | |
| 2355 | (top)) | |
| 2356 | #("i" | |
| 2357 | "i" | |
| 2358 | "i" | |
| 2359 | "i" | |
| 2360 | "i" | |
| 2361 | "i")) | |
| 2362 | #(ribcage | |
| 2363 | () | |
| 2364 | () | |
| 2365 | ()) | |
| 2366 | #(ribcage | |
| 2367 | #(first) | |
| 2368 | #((top)) | |
| 2369 | #("i")) | |
| 2370 | #(ribcage | |
| 2371 | () | |
| 2372 | () | |
| 2373 | ()) | |
| 2374 | #(ribcage | |
| 2375 | () | |
| 2376 | () | |
| 2377 | ()) | |
| 2378 | #(ribcage | |
| 2379 | () | |
| 2380 | () | |
| 2381 | ()) | |
| 2382 | #(ribcage | |
| 2383 | #(e | |
| 2384 | r | |
| 2385 | w | |
| 2386 | s | |
| 2387 | rib | |
| 2388 | mod | |
| 2389 | for-car?) | |
| 2390 | #((top) | |
| 2391 | (top) | |
| 2392 | (top) | |
| 2393 | (top) | |
| 2394 | (top) | |
| 2395 | (top) | |
| 2396 | (top)) | |
| 2397 | #("i" | |
| 2398 | "i" | |
| 2399 | "i" | |
| 2400 | "i" | |
| 2401 | "i" | |
| 2402 | "i" | |
| 2403 | "i")) | |
| 2404 | #(ribcage | |
| 2405 | (lambda-var-list | |
| 2406 | gen-var | |
| 2407 | strip | |
| 2408 | ellipsis? | |
| 2409 | chi-void | |
| 2410 | eval-local-transformer | |
| 2411 | chi-local-syntax | |
| 2412 | chi-lambda-clause | |
| 2413 | chi-body | |
| 2414 | chi-macro | |
| 2415 | chi-application | |
| 2416 | chi-expr | |
| 2417 | chi | |
| 2418 | chi-top | |
| 2419 | syntax-type | |
| 2420 | chi-when-list | |
| 2421 | chi-install-global | |
| 2422 | chi-top-sequence | |
| 2423 | chi-sequence | |
| 2424 | source-wrap | |
| 2425 | wrap | |
| 2426 | bound-id-member? | |
| 2427 | distinct-bound-ids? | |
| 2428 | valid-bound-ids? | |
| 2429 | bound-id=? | |
| 2430 | free-id=? | |
| 2431 | id-var-name | |
| 2432 | same-marks? | |
| 2433 | join-marks | |
| 2434 | join-wraps | |
| 2435 | smart-append | |
| 2436 | make-binding-wrap | |
| 2437 | extend-ribcage! | |
| 2438 | make-empty-ribcage | |
| 2439 | new-mark | |
| 2440 | anti-mark | |
| 2441 | the-anti-mark | |
| 2442 | top-marked? | |
| 2443 | top-wrap | |
| 2444 | empty-wrap | |
| 2445 | set-ribcage-labels! | |
| 2446 | set-ribcage-marks! | |
| 2447 | set-ribcage-symnames! | |
| 2448 | ribcage-labels | |
| 2449 | ribcage-marks | |
| 2450 | ribcage-symnames | |
| 2451 | ribcage? | |
| 2452 | make-ribcage | |
| 2453 | gen-labels | |
| 2454 | gen-label | |
| 2455 | make-rename | |
| 2456 | rename-marks | |
| 2457 | rename-new | |
| 2458 | rename-old | |
| 2459 | subst-rename? | |
| 2460 | wrap-subst | |
| 2461 | wrap-marks | |
| 2462 | make-wrap | |
| 2463 | id-sym-name&marks | |
| 2464 | id-sym-name | |
| 2465 | id? | |
| 2466 | nonsymbol-id? | |
| 2467 | global-extend | |
| 2468 | lookup | |
| 2469 | macros-only-env | |
| 2470 | extend-var-env | |
| 2471 | extend-env | |
| 2472 | null-env | |
| 2473 | binding-value | |
| 2474 | binding-type | |
| 2475 | make-binding | |
| 2476 | arg-check | |
| 2477 | source-annotation | |
| 2478 | no-source | |
| 2479 | set-syntax-object-module! | |
| 2480 | set-syntax-object-wrap! | |
| 2481 | set-syntax-object-expression! | |
| 2482 | syntax-object-module | |
| 2483 | syntax-object-wrap | |
| 2484 | syntax-object-expression | |
| 2485 | syntax-object? | |
| 2486 | make-syntax-object | |
| 2487 | build-lexical-var | |
| 2488 | build-letrec | |
| 2489 | build-named-let | |
| 2490 | build-let | |
| 2491 | build-sequence | |
| 2492 | build-data | |
| 2493 | build-primref | |
| 2494 | build-lambda | |
| 2495 | build-global-definition | |
| 2496 | maybe-name-value! | |
| 2497 | build-global-assignment | |
| 2498 | build-global-reference | |
| 2499 | analyze-variable | |
| 2500 | build-lexical-assignment | |
| 2501 | build-lexical-reference | |
| 2502 | build-conditional | |
| 2503 | build-application | |
| 2504 | build-void | |
| fc5b616b | 2505 | decorate-source |
| 65dd9e38 AW |
2506 | get-global-definition-hook |
| 2507 | put-global-definition-hook | |
| 2508 | gensym-hook | |
| 2509 | local-eval-hook | |
| 2510 | top-level-eval-hook | |
| 2511 | fx< | |
| 2512 | fx= | |
| 2513 | fx- | |
| 2514 | fx+ | |
| 2515 | *mode* | |
| 2516 | noexpand) | |
| 2517 | ((top) | |
| 2518 | (top) | |
| 2519 | (top) | |
| 2520 | (top) | |
| 2521 | (top) | |
| 2522 | (top) | |
| 2523 | (top) | |
| 2524 | (top) | |
| 2525 | (top) | |
| 2526 | (top) | |
| 2527 | (top) | |
| 2528 | (top) | |
| 2529 | (top) | |
| 2530 | (top) | |
| 2531 | (top) | |
| 2532 | (top) | |
| 2533 | (top) | |
| 2534 | (top) | |
| 2535 | (top) | |
| 2536 | (top) | |
| 2537 | (top) | |
| 2538 | (top) | |
| 2539 | (top) | |
| 2540 | (top) | |
| 2541 | (top) | |
| 2542 | (top) | |
| 2543 | (top) | |
| 2544 | (top) | |
| 2545 | (top) | |
| 2546 | (top) | |
| 2547 | (top) | |
| 2548 | (top) | |
| 2549 | (top) | |
| 2550 | (top) | |
| 2551 | (top) | |
| 2552 | (top) | |
| 2553 | (top) | |
| 2554 | (top) | |
| 2555 | (top) | |
| 2556 | (top) | |
| 2557 | (top) | |
| 2558 | (top) | |
| 2559 | (top) | |
| 2560 | (top) | |
| 2561 | (top) | |
| 2562 | (top) | |
| 2563 | (top) | |
| 2564 | (top) | |
| 2565 | (top) | |
| 2566 | (top) | |
| 2567 | (top) | |
| 2568 | (top) | |
| 2569 | (top) | |
| 2570 | (top) | |
| 2571 | (top) | |
| 2572 | (top) | |
| 2573 | (top) | |
| 2574 | (top) | |
| 2575 | (top) | |
| 2576 | (top) | |
| 2577 | (top) | |
| 2578 | (top) | |
| 2579 | (top) | |
| 2580 | (top) | |
| 2581 | (top) | |
| 2582 | (top) | |
| 2583 | (top) | |
| 2584 | (top) | |
| 2585 | (top) | |
| 2586 | (top) | |
| 2587 | (top) | |
| 2588 | (top) | |
| 2589 | (top) | |
| 2590 | (top) | |
| 2591 | (top) | |
| 2592 | (top) | |
| 2593 | (top) | |
| 2594 | (top) | |
| 2595 | (top) | |
| 2596 | (top) | |
| 2597 | (top) | |
| 2598 | (top) | |
| 2599 | (top) | |
| 2600 | (top) | |
| 2601 | (top) | |
| 2602 | (top) | |
| 2603 | (top) | |
| 2604 | (top) | |
| 2605 | (top) | |
| 2606 | (top) | |
| 2607 | (top) | |
| 2608 | (top) | |
| 2609 | (top) | |
| 2610 | (top) | |
| 2611 | (top) | |
| 2612 | (top) | |
| 2613 | (top) | |
| 2614 | (top) | |
| 2615 | (top) | |
| 2616 | (top) | |
| 2617 | (top) | |
| 2618 | (top) | |
| 2619 | (top) | |
| 2620 | (top) | |
| 2621 | (top) | |
| 2622 | (top) | |
| 2623 | (top) | |
| 2624 | (top) | |
| 2625 | (top) | |
| 2626 | (top) | |
| fc5b616b | 2627 | (top) |
| 65dd9e38 AW |
2628 | (top)) |
| 2629 | ("i" | |
| 2630 | "i" | |
| 2631 | "i" | |
| 2632 | "i" | |
| 2633 | "i" | |
| 2634 | "i" | |
| 2635 | "i" | |
| 2636 | "i" | |
| 2637 | "i" | |
| 2638 | "i" | |
| 2639 | "i" | |
| 2640 | "i" | |
| 2641 | "i" | |
| 2642 | "i" | |
| 2643 | "i" | |
| 2644 | "i" | |
| 2645 | "i" | |
| 2646 | "i" | |
| 2647 | "i" | |
| 2648 | "i" | |
| 2649 | "i" | |
| 2650 | "i" | |
| 2651 | "i" | |
| 2652 | "i" | |
| 2653 | "i" | |
| 2654 | "i" | |
| 2655 | "i" | |
| 2656 | "i" | |
| 2657 | "i" | |
| 2658 | "i" | |
| 2659 | "i" | |
| 2660 | "i" | |
| 2661 | "i" | |
| 2662 | "i" | |
| 2663 | "i" | |
| 2664 | "i" | |
| 2665 | "i" | |
| 2666 | "i" | |
| 2667 | "i" | |
| 2668 | "i" | |
| 2669 | "i" | |
| 2670 | "i" | |
| 2671 | "i" | |
| 2672 | "i" | |
| 2673 | "i" | |
| 2674 | "i" | |
| 2675 | "i" | |
| 2676 | "i" | |
| 2677 | "i" | |
| 2678 | "i" | |
| 2679 | "i" | |
| 2680 | "i" | |
| 2681 | "i" | |
| 2682 | "i" | |
| 2683 | "i" | |
| 2684 | "i" | |
| 2685 | "i" | |
| 2686 | "i" | |
| 2687 | "i" | |
| 2688 | "i" | |
| 2689 | "i" | |
| 2690 | "i" | |
| 2691 | "i" | |
| 2692 | "i" | |
| 2693 | "i" | |
| 2694 | "i" | |
| 2695 | "i" | |
| 2696 | "i" | |
| 2697 | "i" | |
| 2698 | "i" | |
| 2699 | "i" | |
| 2700 | "i" | |
| 2701 | "i" | |
| 2702 | "i" | |
| 2703 | "i" | |
| 2704 | "i" | |
| 2705 | "i" | |
| 2706 | "i" | |
| 2707 | "i" | |
| 2708 | "i" | |
| 2709 | "i" | |
| 2710 | "i" | |
| 2711 | "i" | |
| 2712 | "i" | |
| 2713 | "i" | |
| 2714 | "i" | |
| 2715 | "i" | |
| 2716 | "i" | |
| 2717 | "i" | |
| 2718 | "i" | |
| 2719 | "i" | |
| 2720 | "i" | |
| 2721 | "i" | |
| 2722 | "i" | |
| 2723 | "i" | |
| 2724 | "i" | |
| 2725 | "i" | |
| 2726 | "i" | |
| 2727 | "i" | |
| 2728 | "i" | |
| 2729 | "i" | |
| 2730 | "i" | |
| 2731 | "i" | |
| 2732 | "i" | |
| 2733 | "i" | |
| 2734 | "i" | |
| 2735 | "i" | |
| 2736 | "i" | |
| 2737 | "i" | |
| 2738 | "i" | |
| fc5b616b | 2739 | "i" |
| 65dd9e38 AW |
2740 | "i")) |
| 2741 | #(ribcage | |
| 2742 | (define-structure | |
| 2743 | and-map*) | |
| 2744 | ((top) | |
| 2745 | (top)) | |
| 2746 | ("i" | |
| 2747 | "i"))) | |
| 2748 | (hygiene | |
| 2749 | guile)) | |
| 2750 | #(syntax-object | |
| 2751 | #f | |
| 2752 | ((top) | |
| 2753 | #(ribcage | |
| 2754 | #(_ | |
| 2755 | name) | |
| 2756 | #((top) | |
| 2757 | (top)) | |
| 2758 | #("i" | |
| 2759 | "i")) | |
| 2760 | #(ribcage | |
| 2761 | () | |
| 2762 | () | |
| 2763 | ()) | |
| 2764 | #(ribcage | |
| 2765 | () | |
| 2766 | () | |
| 2767 | ()) | |
| 2768 | #(ribcage | |
| 2769 | #(ftype | |
| 2770 | fval | |
| 2771 | fe | |
| 2772 | fw | |
| 2773 | fs | |
| 2774 | fmod) | |
| 2775 | #((top) | |
| 2776 | (top) | |
| 2777 | (top) | |
| 2778 | (top) | |
| 2779 | (top) | |
| 2780 | (top)) | |
| 2781 | #("i" | |
| 2782 | "i" | |
| 2783 | "i" | |
| 2784 | "i" | |
| 2785 | "i" | |
| 2786 | "i")) | |
| 2787 | #(ribcage | |
| 2788 | () | |
| 2789 | () | |
| 2790 | ()) | |
| 2791 | #(ribcage | |
| 2792 | #(first) | |
| 2793 | #((top)) | |
| 2794 | #("i")) | |
| 2795 | #(ribcage | |
| 2796 | () | |
| 2797 | () | |
| 2798 | ()) | |
| 2799 | #(ribcage | |
| 2800 | () | |
| 2801 | () | |
| 2802 | ()) | |
| 2803 | #(ribcage | |
| 2804 | () | |
| 2805 | () | |
| 2806 | ()) | |
| 2807 | #(ribcage | |
| 2808 | #(e | |
| 2809 | r | |
| 2810 | w | |
| 2811 | s | |
| 2812 | rib | |
| 2813 | mod | |
| 2814 | for-car?) | |
| 2815 | #((top) | |
| 2816 | (top) | |
| 2817 | (top) | |
| 2818 | (top) | |
| 2819 | (top) | |
| 2820 | (top) | |
| 2821 | (top)) | |
| 2822 | #("i" | |
| 2823 | "i" | |
| 2824 | "i" | |
| 2825 | "i" | |
| 2826 | "i" | |
| 2827 | "i" | |
| 2828 | "i")) | |
| 2829 | #(ribcage | |
| 2830 | (lambda-var-list | |
| 2831 | gen-var | |
| 2832 | strip | |
| 2833 | ellipsis? | |
| 2834 | chi-void | |
| 2835 | eval-local-transformer | |
| 2836 | chi-local-syntax | |
| 2837 | chi-lambda-clause | |
| 2838 | chi-body | |
| 2839 | chi-macro | |
| 2840 | chi-application | |
| 2841 | chi-expr | |
| 2842 | chi | |
| 2843 | chi-top | |
| 2844 | syntax-type | |
| 2845 | chi-when-list | |
| 2846 | chi-install-global | |
| 2847 | chi-top-sequence | |
| 2848 | chi-sequence | |
| 2849 | source-wrap | |
| 2850 | wrap | |
| 2851 | bound-id-member? | |
| 2852 | distinct-bound-ids? | |
| 2853 | valid-bound-ids? | |
| 2854 | bound-id=? | |
| 2855 | free-id=? | |
| 2856 | id-var-name | |
| 2857 | same-marks? | |
| 2858 | join-marks | |
| 2859 | join-wraps | |
| 2860 | smart-append | |
| 2861 | make-binding-wrap | |
| 2862 | extend-ribcage! | |
| 2863 | make-empty-ribcage | |
| 2864 | new-mark | |
| 2865 | anti-mark | |
| 2866 | the-anti-mark | |
| 2867 | top-marked? | |
| 2868 | top-wrap | |
| 2869 | empty-wrap | |
| 2870 | set-ribcage-labels! | |
| 2871 | set-ribcage-marks! | |
| 2872 | set-ribcage-symnames! | |
| 2873 | ribcage-labels | |
| 2874 | ribcage-marks | |
| 2875 | ribcage-symnames | |
| 2876 | ribcage? | |
| 2877 | make-ribcage | |
| 2878 | gen-labels | |
| 2879 | gen-label | |
| 2880 | make-rename | |
| 2881 | rename-marks | |
| 2882 | rename-new | |
| 2883 | rename-old | |
| 2884 | subst-rename? | |
| 2885 | wrap-subst | |
| 2886 | wrap-marks | |
| 2887 | make-wrap | |
| 2888 | id-sym-name&marks | |
| 2889 | id-sym-name | |
| 2890 | id? | |
| 2891 | nonsymbol-id? | |
| 2892 | global-extend | |
| 2893 | lookup | |
| 2894 | macros-only-env | |
| 2895 | extend-var-env | |
| 2896 | extend-env | |
| 2897 | null-env | |
| 2898 | binding-value | |
| 2899 | binding-type | |
| 2900 | make-binding | |
| 2901 | arg-check | |
| 2902 | source-annotation | |
| 2903 | no-source | |
| 2904 | set-syntax-object-module! | |
| 2905 | set-syntax-object-wrap! | |
| 2906 | set-syntax-object-expression! | |
| 2907 | syntax-object-module | |
| 2908 | syntax-object-wrap | |
| 2909 | syntax-object-expression | |
| 2910 | syntax-object? | |
| 2911 | make-syntax-object | |
| 2912 | build-lexical-var | |
| 2913 | build-letrec | |
| 2914 | build-named-let | |
| 2915 | build-let | |
| 2916 | build-sequence | |
| 2917 | build-data | |
| 2918 | build-primref | |
| 2919 | build-lambda | |
| 2920 | build-global-definition | |
| 2921 | maybe-name-value! | |
| 2922 | build-global-assignment | |
| 2923 | build-global-reference | |
| 2924 | analyze-variable | |
| 2925 | build-lexical-assignment | |
| 2926 | build-lexical-reference | |
| 2927 | build-conditional | |
| 2928 | build-application | |
| 2929 | build-void | |
| fc5b616b | 2930 | decorate-source |
| 65dd9e38 AW |
2931 | get-global-definition-hook |
| 2932 | put-global-definition-hook | |
| 2933 | gensym-hook | |
| 2934 | local-eval-hook | |
| 2935 | top-level-eval-hook | |
| 2936 | fx< | |
| 2937 | fx= | |
| 2938 | fx- | |
| 2939 | fx+ | |
| 2940 | *mode* | |
| 2941 | noexpand) | |
| 2942 | ((top) | |
| 2943 | (top) | |
| 2944 | (top) | |
| 2945 | (top) | |
| 2946 | (top) | |
| 2947 | (top) | |
| 2948 | (top) | |
| 2949 | (top) | |
| 2950 | (top) | |
| 2951 | (top) | |
| 2952 | (top) | |
| 2953 | (top) | |
| 2954 | (top) | |
| 2955 | (top) | |
| 2956 | (top) | |
| 2957 | (top) | |
| 2958 | (top) | |
| 2959 | (top) | |
| 2960 | (top) | |
| 2961 | (top) | |
| 2962 | (top) | |
| 2963 | (top) | |
| 2964 | (top) | |
| 2965 | (top) | |
| 2966 | (top) | |
| 2967 | (top) | |
| 2968 | (top) | |
| 2969 | (top) | |
| 2970 | (top) | |
| 2971 | (top) | |
| 2972 | (top) | |
| 2973 | (top) | |
| 2974 | (top) | |
| 2975 | (top) | |
| 2976 | (top) | |
| 2977 | (top) | |
| 2978 | (top) | |
| 2979 | (top) | |
| 2980 | (top) | |
| 2981 | (top) | |
| 2982 | (top) | |
| 2983 | (top) | |
| 2984 | (top) | |
| 2985 | (top) | |
| 2986 | (top) | |
| 2987 | (top) | |
| 2988 | (top) | |
| 2989 | (top) | |
| 2990 | (top) | |
| 2991 | (top) | |
| 2992 | (top) | |
| 2993 | (top) | |
| 2994 | (top) | |
| 2995 | (top) | |
| 2996 | (top) | |
| 2997 | (top) | |
| 2998 | (top) | |
| 2999 | (top) | |
| 3000 | (top) | |
| 3001 | (top) | |
| 3002 | (top) | |
| 3003 | (top) | |
| 3004 | (top) | |
| 3005 | (top) | |
| 3006 | (top) | |
| 3007 | (top) | |
| 3008 | (top) | |
| 3009 | (top) | |
| 3010 | (top) | |
| 3011 | (top) | |
| 3012 | (top) | |
| 3013 | (top) | |
| 3014 | (top) | |
| 3015 | (top) | |
| 3016 | (top) | |
| 3017 | (top) | |
| 3018 | (top) | |
| 3019 | (top) | |
| 3020 | (top) | |
| 3021 | (top) | |
| 3022 | (top) | |
| 3023 | (top) | |
| 3024 | (top) | |
| 3025 | (top) | |
| 3026 | (top) | |
| 3027 | (top) | |
| 3028 | (top) | |
| 3029 | (top) | |
| 3030 | (top) | |
| 3031 | (top) | |
| 3032 | (top) | |
| 3033 | (top) | |
| 3034 | (top) | |
| 3035 | (top) | |
| 3036 | (top) | |
| 3037 | (top) | |
| 3038 | (top) | |
| 3039 | (top) | |
| 3040 | (top) | |
| 3041 | (top) | |
| 3042 | (top) | |
| 3043 | (top) | |
| 3044 | (top) | |
| 3045 | (top) | |
| 3046 | (top) | |
| 3047 | (top) | |
| 3048 | (top) | |
| 3049 | (top) | |
| 3050 | (top) | |
| 3051 | (top) | |
| fc5b616b | 3052 | (top) |
| 65dd9e38 AW |
3053 | (top)) |
| 3054 | ("i" | |
| 3055 | "i" | |
| 3056 | "i" | |
| 3057 | "i" | |
| 3058 | "i" | |
| 3059 | "i" | |
| 3060 | "i" | |
| 3061 | "i" | |
| 3062 | "i" | |
| 3063 | "i" | |
| 3064 | "i" | |
| 3065 | "i" | |
| 3066 | "i" | |
| 3067 | "i" | |
| 3068 | "i" | |
| 3069 | "i" | |
| 3070 | "i" | |
| 3071 | "i" | |
| 3072 | "i" | |
| 3073 | "i" | |
| 3074 | "i" | |
| 3075 | "i" | |
| 3076 | "i" | |
| 3077 | "i" | |
| 3078 | "i" | |
| 3079 | "i" | |
| 3080 | "i" | |
| 3081 | "i" | |
| 3082 | "i" | |
| 3083 | "i" | |
| 3084 | "i" | |
| 3085 | "i" | |
| 3086 | "i" | |
| 3087 | "i" | |
| 3088 | "i" | |
| 3089 | "i" | |
| 3090 | "i" | |
| 3091 | "i" | |
| 3092 | "i" | |
| 3093 | "i" | |
| 3094 | "i" | |
| 3095 | "i" | |
| 3096 | "i" | |
| 3097 | "i" | |
| 3098 | "i" | |
| 3099 | "i" | |
| 3100 | "i" | |
| 3101 | "i" | |
| 3102 | "i" | |
| 3103 | "i" | |
| 3104 | "i" | |
| 3105 | "i" | |
| 3106 | "i" | |
| 3107 | "i" | |
| 3108 | "i" | |
| 3109 | "i" | |
| 3110 | "i" | |
| 3111 | "i" | |
| 3112 | "i" | |
| 3113 | "i" | |
| 3114 | "i" | |
| 3115 | "i" | |
| 3116 | "i" | |
| 3117 | "i" | |
| 3118 | "i" | |
| 3119 | "i" | |
| 3120 | "i" | |
| 3121 | "i" | |
| 3122 | "i" | |
| 3123 | "i" | |
| 3124 | "i" | |
| 3125 | "i" | |
| 3126 | "i" | |
| 3127 | "i" | |
| 3128 | "i" | |
| 3129 | "i" | |
| 3130 | "i" | |
| 3131 | "i" | |
| 3132 | "i" | |
| 3133 | "i" | |
| 3134 | "i" | |
| 3135 | "i" | |
| 3136 | "i" | |
| 3137 | "i" | |
| 3138 | "i" | |
| 3139 | "i" | |
| 3140 | "i" | |
| 3141 | "i" | |
| 3142 | "i" | |
| 3143 | "i" | |
| 3144 | "i" | |
| 3145 | "i" | |
| 3146 | "i" | |
| 3147 | "i" | |
| 3148 | "i" | |
| 3149 | "i" | |
| 3150 | "i" | |
| 3151 | "i" | |
| 3152 | "i" | |
| 3153 | "i" | |
| 3154 | "i" | |
| 3155 | "i" | |
| 3156 | "i" | |
| 3157 | "i" | |
| 3158 | "i" | |
| 3159 | "i" | |
| 3160 | "i" | |
| 3161 | "i" | |
| 3162 | "i" | |
| 3163 | "i" | |
| fc5b616b | 3164 | "i" |
| 65dd9e38 AW |
3165 | "i")) |
| 3166 | #(ribcage | |
| 3167 | (define-structure | |
| 3168 | and-map*) | |
| 3169 | ((top) | |
| 3170 | (top)) | |
| 3171 | ("i" | |
| 3172 | "i"))) | |
| 3173 | (hygiene | |
| 3174 | guile)) | |
| 3175 | #(syntax-object | |
| 3176 | #f | |
| 3177 | ((top) | |
| 3178 | #(ribcage | |
| 3179 | #(_ | |
| 3180 | name) | |
| 3181 | #((top) | |
| 3182 | (top)) | |
| 3183 | #("i" | |
| 3184 | "i")) | |
| 3185 | #(ribcage | |
| 3186 | () | |
| 3187 | () | |
| 3188 | ()) | |
| 3189 | #(ribcage | |
| 3190 | () | |
| 3191 | () | |
| 3192 | ()) | |
| 3193 | #(ribcage | |
| 3194 | #(ftype | |
| 3195 | fval | |
| 3196 | fe | |
| 3197 | fw | |
| 3198 | fs | |
| 3199 | fmod) | |
| 3200 | #((top) | |
| 3201 | (top) | |
| 3202 | (top) | |
| 3203 | (top) | |
| 3204 | (top) | |
| 3205 | (top)) | |
| 3206 | #("i" | |
| 3207 | "i" | |
| 3208 | "i" | |
| 3209 | "i" | |
| 3210 | "i" | |
| 3211 | "i")) | |
| 3212 | #(ribcage | |
| 3213 | () | |
| 3214 | () | |
| 3215 | ()) | |
| 3216 | #(ribcage | |
| 3217 | #(first) | |
| 3218 | #((top)) | |
| 3219 | #("i")) | |
| 3220 | #(ribcage | |
| 3221 | () | |
| 3222 | () | |
| 3223 | ()) | |
| 3224 | #(ribcage | |
| 3225 | () | |
| 3226 | () | |
| 3227 | ()) | |
| 3228 | #(ribcage | |
| 3229 | () | |
| 3230 | () | |
| 3231 | ()) | |
| 3232 | #(ribcage | |
| 3233 | #(e | |
| 3234 | r | |
| 3235 | w | |
| 3236 | s | |
| 3237 | rib | |
| 3238 | mod | |
| 3239 | for-car?) | |
| 3240 | #((top) | |
| 3241 | (top) | |
| 3242 | (top) | |
| 3243 | (top) | |
| 3244 | (top) | |
| 3245 | (top) | |
| 3246 | (top)) | |
| 3247 | #("i" | |
| 3248 | "i" | |
| 3249 | "i" | |
| 3250 | "i" | |
| 3251 | "i" | |
| 3252 | "i" | |
| 3253 | "i")) | |
| 3254 | #(ribcage | |
| 3255 | (lambda-var-list | |
| 3256 | gen-var | |
| 3257 | strip | |
| 3258 | ellipsis? | |
| 3259 | chi-void | |
| 3260 | eval-local-transformer | |
| 3261 | chi-local-syntax | |
| 3262 | chi-lambda-clause | |
| 3263 | chi-body | |
| 3264 | chi-macro | |
| 3265 | chi-application | |
| 3266 | chi-expr | |
| 3267 | chi | |
| 3268 | chi-top | |
| 3269 | syntax-type | |
| 3270 | chi-when-list | |
| 3271 | chi-install-global | |
| 3272 | chi-top-sequence | |
| 3273 | chi-sequence | |
| 3274 | source-wrap | |
| 3275 | wrap | |
| 3276 | bound-id-member? | |
| 3277 | distinct-bound-ids? | |
| 3278 | valid-bound-ids? | |
| 3279 | bound-id=? | |
| 3280 | free-id=? | |
| 3281 | id-var-name | |
| 3282 | same-marks? | |
| 3283 | join-marks | |
| 3284 | join-wraps | |
| 3285 | smart-append | |
| 3286 | make-binding-wrap | |
| 3287 | extend-ribcage! | |
| 3288 | make-empty-ribcage | |
| 3289 | new-mark | |
| 3290 | anti-mark | |
| 3291 | the-anti-mark | |
| 3292 | top-marked? | |
| 3293 | top-wrap | |
| 3294 | empty-wrap | |
| 3295 | set-ribcage-labels! | |
| 3296 | set-ribcage-marks! | |
| 3297 | set-ribcage-symnames! | |
| 3298 | ribcage-labels | |
| 3299 | ribcage-marks | |
| 3300 | ribcage-symnames | |
| 3301 | ribcage? | |
| 3302 | make-ribcage | |
| 3303 | gen-labels | |
| 3304 | gen-label | |
| 3305 | make-rename | |
| 3306 | rename-marks | |
| 3307 | rename-new | |
| 3308 | rename-old | |
| 3309 | subst-rename? | |
| 3310 | wrap-subst | |
| 3311 | wrap-marks | |
| 3312 | make-wrap | |
| 3313 | id-sym-name&marks | |
| 3314 | id-sym-name | |
| 3315 | id? | |
| 3316 | nonsymbol-id? | |
| 3317 | global-extend | |
| 3318 | lookup | |
| 3319 | macros-only-env | |
| 3320 | extend-var-env | |
| 3321 | extend-env | |
| 3322 | null-env | |
| 3323 | binding-value | |
| 3324 | binding-type | |
| 3325 | make-binding | |
| 3326 | arg-check | |
| 3327 | source-annotation | |
| 3328 | no-source | |
| 3329 | set-syntax-object-module! | |
| 3330 | set-syntax-object-wrap! | |
| 3331 | set-syntax-object-expression! | |
| 3332 | syntax-object-module | |
| 3333 | syntax-object-wrap | |
| 3334 | syntax-object-expression | |
| 3335 | syntax-object? | |
| 3336 | make-syntax-object | |
| 3337 | build-lexical-var | |
| 3338 | build-letrec | |
| 3339 | build-named-let | |
| 3340 | build-let | |
| 3341 | build-sequence | |
| 3342 | build-data | |
| 3343 | build-primref | |
| 3344 | build-lambda | |
| 3345 | build-global-definition | |
| 3346 | maybe-name-value! | |
| 3347 | build-global-assignment | |
| 3348 | build-global-reference | |
| 3349 | analyze-variable | |
| 3350 | build-lexical-assignment | |
| 3351 | build-lexical-reference | |
| 3352 | build-conditional | |
| 3353 | build-application | |
| 3354 | build-void | |
| fc5b616b | 3355 | decorate-source |
| 65dd9e38 AW |
3356 | get-global-definition-hook |
| 3357 | put-global-definition-hook | |
| 3358 | gensym-hook | |
| 3359 | local-eval-hook | |
| 3360 | top-level-eval-hook | |
| 3361 | fx< | |
| 3362 | fx= | |
| 3363 | fx- | |
| 3364 | fx+ | |
| 3365 | *mode* | |
| 3366 | noexpand) | |
| 3367 | ((top) | |
| 3368 | (top) | |
| 3369 | (top) | |
| 3370 | (top) | |
| 3371 | (top) | |
| 3372 | (top) | |
| 3373 | (top) | |
| 3374 | (top) | |
| 3375 | (top) | |
| 3376 | (top) | |
| 3377 | (top) | |
| 3378 | (top) | |
| 3379 | (top) | |
| 3380 | (top) | |
| 3381 | (top) | |
| 3382 | (top) | |
| 3383 | (top) | |
| 3384 | (top) | |
| 3385 | (top) | |
| 3386 | (top) | |
| 3387 | (top) | |
| 3388 | (top) | |
| 3389 | (top) | |
| 3390 | (top) | |
| 3391 | (top) | |
| 3392 | (top) | |
| 3393 | (top) | |
| 3394 | (top) | |
| 3395 | (top) | |
| 3396 | (top) | |
| 3397 | (top) | |
| 3398 | (top) | |
| 3399 | (top) | |
| 3400 | (top) | |
| 3401 | (top) | |
| 3402 | (top) | |
| 3403 | (top) | |
| 3404 | (top) | |
| 3405 | (top) | |
| 3406 | (top) | |
| 3407 | (top) | |
| 3408 | (top) | |
| 3409 | (top) | |
| 3410 | (top) | |
| 3411 | (top) | |
| 3412 | (top) | |
| 3413 | (top) | |
| 3414 | (top) | |
| 3415 | (top) | |
| 3416 | (top) | |
| 3417 | (top) | |
| 3418 | (top) | |
| 3419 | (top) | |
| 3420 | (top) | |
| 3421 | (top) | |
| 3422 | (top) | |
| 3423 | (top) | |
| 3424 | (top) | |
| 3425 | (top) | |
| 3426 | (top) | |
| 3427 | (top) | |
| 3428 | (top) | |
| 3429 | (top) | |
| 3430 | (top) | |
| 3431 | (top) | |
| 3432 | (top) | |
| 3433 | (top) | |
| 3434 | (top) | |
| 3435 | (top) | |
| 3436 | (top) | |
| 3437 | (top) | |
| 3438 | (top) | |
| 3439 | (top) | |
| 3440 | (top) | |
| 3441 | (top) | |
| 3442 | (top) | |
| 3443 | (top) | |
| 3444 | (top) | |
| 3445 | (top) | |
| 3446 | (top) | |
| 3447 | (top) | |
| 3448 | (top) | |
| 3449 | (top) | |
| 3450 | (top) | |
| 3451 | (top) | |
| 3452 | (top) | |
| 3453 | (top) | |
| 3454 | (top) | |
| 3455 | (top) | |
| 3456 | (top) | |
| 3457 | (top) | |
| 3458 | (top) | |
| 3459 | (top) | |
| 3460 | (top) | |
| 3461 | (top) | |
| 3462 | (top) | |
| 3463 | (top) | |
| 3464 | (top) | |
| 3465 | (top) | |
| 3466 | (top) | |
| 3467 | (top) | |
| 3468 | (top) | |
| 3469 | (top) | |
| 3470 | (top) | |
| 3471 | (top) | |
| 3472 | (top) | |
| 3473 | (top) | |
| 3474 | (top) | |
| 3475 | (top) | |
| 3476 | (top) | |
| fc5b616b | 3477 | (top) |
| 65dd9e38 AW |
3478 | (top)) |
| 3479 | ("i" | |
| 3480 | "i" | |
| 3481 | "i" | |
| 3482 | "i" | |
| 3483 | "i" | |
| 3484 | "i" | |
| 3485 | "i" | |
| 3486 | "i" | |
| 3487 | "i" | |
| 3488 | "i" | |
| 3489 | "i" | |
| 3490 | "i" | |
| 3491 | "i" | |
| 3492 | "i" | |
| 3493 | "i" | |
| 3494 | "i" | |
| 3495 | "i" | |
| 3496 | "i" | |
| 3497 | "i" | |
| 3498 | "i" | |
| 3499 | "i" | |
| 3500 | "i" | |
| 3501 | "i" | |
| 3502 | "i" | |
| 3503 | "i" | |
| 3504 | "i" | |
| 3505 | "i" | |
| 3506 | "i" | |
| 3507 | "i" | |
| 3508 | "i" | |
| 3509 | "i" | |
| 3510 | "i" | |
| 3511 | "i" | |
| 3512 | "i" | |
| 3513 | "i" | |
| 3514 | "i" | |
| 3515 | "i" | |
| 3516 | "i" | |
| 3517 | "i" | |
| 3518 | "i" | |
| 3519 | "i" | |
| 3520 | "i" | |
| 3521 | "i" | |
| 3522 | "i" | |
| 3523 | "i" | |
| 3524 | "i" | |
| 3525 | "i" | |
| 3526 | "i" | |
| 3527 | "i" | |
| 3528 | "i" | |
| 3529 | "i" | |
| 3530 | "i" | |
| 3531 | "i" | |
| 3532 | "i" | |
| 3533 | "i" | |
| 3534 | "i" | |
| 3535 | "i" | |
| 3536 | "i" | |
| 3537 | "i" | |
| 3538 | "i" | |
| 3539 | "i" | |
| 3540 | "i" | |
| 3541 | "i" | |
| 3542 | "i" | |
| 3543 | "i" | |
| 3544 | "i" | |
| 3545 | "i" | |
| 3546 | "i" | |
| 3547 | "i" | |
| 3548 | "i" | |
| 3549 | "i" | |
| 3550 | "i" | |
| 3551 | "i" | |
| 3552 | "i" | |
| 3553 | "i" | |
| 3554 | "i" | |
| 3555 | "i" | |
| 3556 | "i" | |
| 3557 | "i" | |
| 3558 | "i" | |
| 3559 | "i" | |
| 3560 | "i" | |
| 3561 | "i" | |
| 3562 | "i" | |
| 3563 | "i" | |
| 3564 | "i" | |
| 3565 | "i" | |
| 3566 | "i" | |
| 3567 | "i" | |
| 3568 | "i" | |
| 3569 | "i" | |
| 3570 | "i" | |
| 3571 | "i" | |
| 3572 | "i" | |
| 3573 | "i" | |
| 3574 | "i" | |
| 3575 | "i" | |
| 3576 | "i" | |
| 3577 | "i" | |
| 3578 | "i" | |
| 3579 | "i" | |
| 3580 | "i" | |
| 3581 | "i" | |
| 3582 | "i" | |
| 3583 | "i" | |
| 3584 | "i" | |
| 3585 | "i" | |
| 3586 | "i" | |
| 3587 | "i" | |
| 3588 | "i" | |
| fc5b616b | 3589 | "i" |
| 65dd9e38 AW |
3590 | "i")) |
| 3591 | #(ribcage | |
| 3592 | (define-structure | |
| 3593 | and-map*) | |
| 3594 | ((top) | |
| 3595 | (top)) | |
| 3596 | ("i" | |
| 3597 | "i"))) | |
| 3598 | (hygiene | |
| 3599 | guile))) | |
| 3600 | '(()) | |
| b9434165 LC |
3601 | #{s\ 1727}# |
| 3602 | #{mod\ 1729}#)) | |
| 3603 | #{tmp\ 1763}#) | |
| 65dd9e38 AW |
3604 | (syntax-violation |
| 3605 | #f | |
| 3606 | "source expression failed to match any pattern" | |
| b9434165 | 3607 | #{tmp\ 1743}#))) |
| 65dd9e38 | 3608 | ($sc-dispatch |
| b9434165 | 3609 | #{tmp\ 1743}# |
| 65dd9e38 AW |
3610 | '(any any))))) |
| 3611 | ($sc-dispatch | |
| b9434165 | 3612 | #{tmp\ 1743}# |
| 65dd9e38 AW |
3613 | '(any (any . any) |
| 3614 | any | |
| 3615 | . | |
| 3616 | each-any))))) | |
| 3617 | ($sc-dispatch | |
| b9434165 | 3618 | #{tmp\ 1743}# |
| 65dd9e38 | 3619 | '(any any any)))) |
| b9434165 LC |
3620 | #{e\ 1724}#) |
| 3621 | (if (memv #{ftype\ 1735}# | |
| 65dd9e38 | 3622 | '(define-syntax)) |
| b9434165 LC |
3623 | ((lambda (#{tmp\ 1768}#) |
| 3624 | ((lambda (#{tmp\ 1769}#) | |
| 3625 | (if (if #{tmp\ 1769}# | |
| 3626 | (apply (lambda (#{_\ 1770}# | |
| 3627 | #{name\ 1771}# | |
| 3628 | #{val\ 1772}#) | |
| 3629 | (#{id?\ 1297}# | |
| 3630 | #{name\ 1771}#)) | |
| 3631 | #{tmp\ 1769}#) | |
| 65dd9e38 | 3632 | #f) |
| b9434165 LC |
3633 | (apply (lambda (#{_\ 1773}# |
| 3634 | #{name\ 1774}# | |
| 3635 | #{val\ 1775}#) | |
| 65dd9e38 AW |
3636 | (values |
| 3637 | 'define-syntax-form | |
| b9434165 LC |
3638 | #{name\ 1774}# |
| 3639 | #{val\ 1775}# | |
| 3640 | #{w\ 1726}# | |
| 3641 | #{s\ 1727}# | |
| 3642 | #{mod\ 1729}#)) | |
| 3643 | #{tmp\ 1769}#) | |
| 65dd9e38 AW |
3644 | (syntax-violation |
| 3645 | #f | |
| 3646 | "source expression failed to match any pattern" | |
| b9434165 | 3647 | #{tmp\ 1768}#))) |
| 65dd9e38 | 3648 | ($sc-dispatch |
| b9434165 | 3649 | #{tmp\ 1768}# |
| 65dd9e38 | 3650 | '(any any any)))) |
| b9434165 | 3651 | #{e\ 1724}#) |
| 65dd9e38 AW |
3652 | (values |
| 3653 | 'call | |
| 3654 | #f | |
| b9434165 LC |
3655 | #{e\ 1724}# |
| 3656 | #{w\ 1726}# | |
| 3657 | #{s\ 1727}# | |
| 3658 | #{mod\ 1729}#)))))))))))))) | |
| 3659 | (if (#{syntax-object?\ 1281}# #{e\ 1724}#) | |
| 3660 | (#{syntax-type\ 1331}# | |
| 3661 | (#{syntax-object-expression\ 1282}# #{e\ 1724}#) | |
| 3662 | #{r\ 1725}# | |
| 3663 | (#{join-wraps\ 1316}# | |
| 3664 | #{w\ 1726}# | |
| 3665 | (#{syntax-object-wrap\ 1283}# #{e\ 1724}#)) | |
| 3666 | #{s\ 1727}# | |
| 3667 | #{rib\ 1728}# | |
| 3668 | (let ((#{t\ 1776}# | |
| 3669 | (#{syntax-object-module\ 1284}# #{e\ 1724}#))) | |
| 3670 | (if #{t\ 1776}# #{t\ 1776}# #{mod\ 1729}#)) | |
| 3671 | #{for-car?\ 1730}#) | |
| 3672 | (if (self-evaluating? #{e\ 1724}#) | |
| 65dd9e38 AW |
3673 | (values |
| 3674 | 'constant | |
| 3675 | #f | |
| b9434165 LC |
3676 | #{e\ 1724}# |
| 3677 | #{w\ 1726}# | |
| 3678 | #{s\ 1727}# | |
| 3679 | #{mod\ 1729}#) | |
| 3680 | (values | |
| 3681 | 'other | |
| 3682 | #f | |
| 3683 | #{e\ 1724}# | |
| 3684 | #{w\ 1726}# | |
| 3685 | #{s\ 1727}# | |
| 3686 | #{mod\ 1729}#))))))) | |
| 3687 | (#{chi-when-list\ 1330}# | |
| 3688 | (lambda (#{e\ 1777}# #{when-list\ 1778}# #{w\ 1779}#) | |
| 3689 | (letrec ((#{f\ 1780}# | |
| 3690 | (lambda (#{when-list\ 1781}# #{situations\ 1782}#) | |
| 3691 | (if (null? #{when-list\ 1781}#) | |
| 3692 | #{situations\ 1782}# | |
| 3693 | (#{f\ 1780}# | |
| 3694 | (cdr #{when-list\ 1781}#) | |
| 3695 | (cons (let ((#{x\ 1783}# | |
| 3696 | (car #{when-list\ 1781}#))) | |
| 3697 | (if (#{free-id=?\ 1320}# | |
| 3698 | #{x\ 1783}# | |
| 3699 | '#(syntax-object | |
| 3700 | compile | |
| 3701 | ((top) | |
| 3702 | #(ribcage () () ()) | |
| 3703 | #(ribcage () () ()) | |
| 3704 | #(ribcage () () ()) | |
| 3705 | #(ribcage | |
| 3706 | #(x) | |
| 3707 | #((top)) | |
| 3708 | #("i")) | |
| 3709 | #(ribcage () () ()) | |
| 3710 | #(ribcage | |
| 3711 | #(f when-list situations) | |
| 3712 | #((top) (top) (top)) | |
| 3713 | #("i" "i" "i")) | |
| 3714 | #(ribcage () () ()) | |
| 3715 | #(ribcage | |
| 3716 | #(e when-list w) | |
| 3717 | #((top) (top) (top)) | |
| 3718 | #("i" "i" "i")) | |
| 3719 | #(ribcage | |
| 3720 | (lambda-var-list | |
| 3721 | gen-var | |
| 3722 | strip | |
| 3723 | ellipsis? | |
| 3724 | chi-void | |
| 3725 | eval-local-transformer | |
| 3726 | chi-local-syntax | |
| 3727 | chi-lambda-clause | |
| 3728 | chi-body | |
| 3729 | chi-macro | |
| 3730 | chi-application | |
| 3731 | chi-expr | |
| 3732 | chi | |
| 3733 | chi-top | |
| 3734 | syntax-type | |
| 3735 | chi-when-list | |
| 3736 | chi-install-global | |
| 3737 | chi-top-sequence | |
| 3738 | chi-sequence | |
| 3739 | source-wrap | |
| 3740 | wrap | |
| 3741 | bound-id-member? | |
| 3742 | distinct-bound-ids? | |
| 3743 | valid-bound-ids? | |
| 3744 | bound-id=? | |
| 3745 | free-id=? | |
| 3746 | id-var-name | |
| 3747 | same-marks? | |
| 3748 | join-marks | |
| 3749 | join-wraps | |
| 3750 | smart-append | |
| 3751 | make-binding-wrap | |
| 3752 | extend-ribcage! | |
| 3753 | make-empty-ribcage | |
| 3754 | new-mark | |
| 3755 | anti-mark | |
| 3756 | the-anti-mark | |
| 3757 | top-marked? | |
| 3758 | top-wrap | |
| 3759 | empty-wrap | |
| 3760 | set-ribcage-labels! | |
| 3761 | set-ribcage-marks! | |
| 3762 | set-ribcage-symnames! | |
| 3763 | ribcage-labels | |
| 3764 | ribcage-marks | |
| 3765 | ribcage-symnames | |
| 3766 | ribcage? | |
| 3767 | make-ribcage | |
| 3768 | gen-labels | |
| 3769 | gen-label | |
| 3770 | make-rename | |
| 3771 | rename-marks | |
| 3772 | rename-new | |
| 3773 | rename-old | |
| 3774 | subst-rename? | |
| 3775 | wrap-subst | |
| 3776 | wrap-marks | |
| 3777 | make-wrap | |
| 3778 | id-sym-name&marks | |
| 3779 | id-sym-name | |
| 3780 | id? | |
| 3781 | nonsymbol-id? | |
| 3782 | global-extend | |
| 3783 | lookup | |
| 3784 | macros-only-env | |
| 3785 | extend-var-env | |
| 3786 | extend-env | |
| 3787 | null-env | |
| 3788 | binding-value | |
| 3789 | binding-type | |
| 3790 | make-binding | |
| 3791 | arg-check | |
| 3792 | source-annotation | |
| 3793 | no-source | |
| 3794 | set-syntax-object-module! | |
| 3795 | set-syntax-object-wrap! | |
| 3796 | set-syntax-object-expression! | |
| 3797 | syntax-object-module | |
| 3798 | syntax-object-wrap | |
| 3799 | syntax-object-expression | |
| 3800 | syntax-object? | |
| 3801 | make-syntax-object | |
| 3802 | build-lexical-var | |
| 3803 | build-letrec | |
| 3804 | build-named-let | |
| 3805 | build-let | |
| 3806 | build-sequence | |
| 3807 | build-data | |
| 3808 | build-primref | |
| 3809 | build-lambda | |
| 3810 | build-global-definition | |
| 3811 | maybe-name-value! | |
| 3812 | build-global-assignment | |
| 3813 | build-global-reference | |
| 3814 | analyze-variable | |
| 3815 | build-lexical-assignment | |
| 3816 | build-lexical-reference | |
| 3817 | build-conditional | |
| 3818 | build-application | |
| 3819 | build-void | |
| 3820 | decorate-source | |
| 3821 | get-global-definition-hook | |
| 3822 | put-global-definition-hook | |
| 3823 | gensym-hook | |
| 3824 | local-eval-hook | |
| 3825 | top-level-eval-hook | |
| 3826 | fx< | |
| 3827 | fx= | |
| 3828 | fx- | |
| 3829 | fx+ | |
| 3830 | *mode* | |
| 3831 | noexpand) | |
| 3832 | ((top) | |
| 3833 | (top) | |
| 3834 | (top) | |
| 3835 | (top) | |
| 3836 | (top) | |
| 3837 | (top) | |
| 3838 | (top) | |
| 3839 | (top) | |
| 3840 | (top) | |
| 3841 | (top) | |
| 3842 | (top) | |
| 3843 | (top) | |
| 3844 | (top) | |
| 3845 | (top) | |
| 3846 | (top) | |
| 3847 | (top) | |
| 3848 | (top) | |
| 3849 | (top) | |
| 3850 | (top) | |
| 3851 | (top) | |
| 3852 | (top) | |
| 3853 | (top) | |
| 3854 | (top) | |
| 3855 | (top) | |
| 3856 | (top) | |
| 3857 | (top) | |
| 3858 | (top) | |
| 3859 | (top) | |
| 3860 | (top) | |
| 3861 | (top) | |
| 3862 | (top) | |
| 3863 | (top) | |
| 3864 | (top) | |
| 3865 | (top) | |
| 3866 | (top) | |
| 3867 | (top) | |
| 3868 | (top) | |
| 3869 | (top) | |
| 3870 | (top) | |
| 3871 | (top) | |
| 3872 | (top) | |
| 3873 | (top) | |
| 3874 | (top) | |
| 3875 | (top) | |
| 3876 | (top) | |
| 3877 | (top) | |
| 3878 | (top) | |
| 3879 | (top) | |
| 3880 | (top) | |
| 3881 | (top) | |
| 3882 | (top) | |
| 3883 | (top) | |
| 3884 | (top) | |
| 3885 | (top) | |
| 3886 | (top) | |
| 3887 | (top) | |
| 3888 | (top) | |
| 3889 | (top) | |
| 3890 | (top) | |
| 3891 | (top) | |
| 3892 | (top) | |
| 3893 | (top) | |
| 3894 | (top) | |
| 3895 | (top) | |
| 3896 | (top) | |
| 3897 | (top) | |
| 3898 | (top) | |
| 3899 | (top) | |
| 3900 | (top) | |
| 3901 | (top) | |
| 3902 | (top) | |
| 3903 | (top) | |
| 3904 | (top) | |
| 3905 | (top) | |
| 3906 | (top) | |
| 3907 | (top) | |
| 3908 | (top) | |
| 3909 | (top) | |
| 3910 | (top) | |
| 3911 | (top) | |
| 3912 | (top) | |
| 3913 | (top) | |
| 3914 | (top) | |
| 3915 | (top) | |
| 3916 | (top) | |
| 3917 | (top) | |
| 3918 | (top) | |
| 3919 | (top) | |
| 3920 | (top) | |
| 3921 | (top) | |
| 3922 | (top) | |
| 3923 | (top) | |
| 3924 | (top) | |
| 3925 | (top) | |
| 3926 | (top) | |
| 3927 | (top) | |
| 3928 | (top) | |
| 3929 | (top) | |
| 3930 | (top) | |
| 3931 | (top) | |
| 3932 | (top) | |
| 3933 | (top) | |
| 3934 | (top) | |
| 3935 | (top) | |
| 3936 | (top) | |
| 3937 | (top) | |
| 3938 | (top) | |
| 3939 | (top) | |
| 3940 | (top) | |
| 3941 | (top) | |
| 3942 | (top) | |
| 3943 | (top)) | |
| 3944 | ("i" | |
| 3945 | "i" | |
| 3946 | "i" | |
| 3947 | "i" | |
| 3948 | "i" | |
| 3949 | "i" | |
| 3950 | "i" | |
| 3951 | "i" | |
| 3952 | "i" | |
| 3953 | "i" | |
| 3954 | "i" | |
| 3955 | "i" | |
| 3956 | "i" | |
| 3957 | "i" | |
| 3958 | "i" | |
| 3959 | "i" | |
| 3960 | "i" | |
| 3961 | "i" | |
| 3962 | "i" | |
| 3963 | "i" | |
| 3964 | "i" | |
| 3965 | "i" | |
| 3966 | "i" | |
| 3967 | "i" | |
| 3968 | "i" | |
| 3969 | "i" | |
| 3970 | "i" | |
| 3971 | "i" | |
| 3972 | "i" | |
| 3973 | "i" | |
| 3974 | "i" | |
| 3975 | "i" | |
| 3976 | "i" | |
| 3977 | "i" | |
| 3978 | "i" | |
| 3979 | "i" | |
| 3980 | "i" | |
| 3981 | "i" | |
| 3982 | "i" | |
| 3983 | "i" | |
| 3984 | "i" | |
| 3985 | "i" | |
| 3986 | "i" | |
| 3987 | "i" | |
| 3988 | "i" | |
| 3989 | "i" | |
| 3990 | "i" | |
| 3991 | "i" | |
| 3992 | "i" | |
| 3993 | "i" | |
| 3994 | "i" | |
| 3995 | "i" | |
| 3996 | "i" | |
| 3997 | "i" | |
| 3998 | "i" | |
| 3999 | "i" | |
| 4000 | "i" | |
| 4001 | "i" | |
| 4002 | "i" | |
| 4003 | "i" | |
| 4004 | "i" | |
| 4005 | "i" | |
| 4006 | "i" | |
| 4007 | "i" | |
| 4008 | "i" | |
| 4009 | "i" | |
| 4010 | "i" | |
| 4011 | "i" | |
| 4012 | "i" | |
| 4013 | "i" | |
| 4014 | "i" | |
| 4015 | "i" | |
| 4016 | "i" | |
| 4017 | "i" | |
| 4018 | "i" | |
| 4019 | "i" | |
| 4020 | "i" | |
| 4021 | "i" | |
| 4022 | "i" | |
| 4023 | "i" | |
| 4024 | "i" | |
| 4025 | "i" | |
| 4026 | "i" | |
| 4027 | "i" | |
| 4028 | "i" | |
| 4029 | "i" | |
| 4030 | "i" | |
| 4031 | "i" | |
| 4032 | "i" | |
| 4033 | "i" | |
| 4034 | "i" | |
| 4035 | "i" | |
| 4036 | "i" | |
| 4037 | "i" | |
| 4038 | "i" | |
| 4039 | "i" | |
| 4040 | "i" | |
| 4041 | "i" | |
| 4042 | "i" | |
| 4043 | "i" | |
| 4044 | "i" | |
| 4045 | "i" | |
| 4046 | "i" | |
| 4047 | "i" | |
| 4048 | "i" | |
| 4049 | "i" | |
| 4050 | "i" | |
| 4051 | "i" | |
| 4052 | "i" | |
| 4053 | "i" | |
| 4054 | "i" | |
| 4055 | "i")) | |
| 4056 | #(ribcage | |
| 4057 | (define-structure and-map*) | |
| 4058 | ((top) (top)) | |
| 4059 | ("i" "i"))) | |
| 4060 | (hygiene guile))) | |
| 4061 | 'compile | |
| 4062 | (if (#{free-id=?\ 1320}# | |
| 4063 | #{x\ 1783}# | |
| 4064 | '#(syntax-object | |
| 4065 | load | |
| 4066 | ((top) | |
| 4067 | #(ribcage () () ()) | |
| 4068 | #(ribcage () () ()) | |
| 4069 | #(ribcage () () ()) | |
| 4070 | #(ribcage | |
| 4071 | #(x) | |
| 4072 | #((top)) | |
| 4073 | #("i")) | |
| 4074 | #(ribcage () () ()) | |
| 4075 | #(ribcage | |
| 4076 | #(f when-list situations) | |
| 4077 | #((top) (top) (top)) | |
| 4078 | #("i" "i" "i")) | |
| 4079 | #(ribcage () () ()) | |
| 4080 | #(ribcage | |
| 4081 | #(e when-list w) | |
| 4082 | #((top) (top) (top)) | |
| 4083 | #("i" "i" "i")) | |
| 4084 | #(ribcage | |
| 4085 | (lambda-var-list | |
| 4086 | gen-var | |
| 4087 | strip | |
| 4088 | ellipsis? | |
| 4089 | chi-void | |
| 4090 | eval-local-transformer | |
| 4091 | chi-local-syntax | |
| 4092 | chi-lambda-clause | |
| 4093 | chi-body | |
| 4094 | chi-macro | |
| 4095 | chi-application | |
| 4096 | chi-expr | |
| 4097 | chi | |
| 4098 | chi-top | |
| 4099 | syntax-type | |
| 4100 | chi-when-list | |
| 4101 | chi-install-global | |
| 4102 | chi-top-sequence | |
| 4103 | chi-sequence | |
| 4104 | source-wrap | |
| 4105 | wrap | |
| 4106 | bound-id-member? | |
| 4107 | distinct-bound-ids? | |
| 4108 | valid-bound-ids? | |
| 4109 | bound-id=? | |
| 4110 | free-id=? | |
| 4111 | id-var-name | |
| 4112 | same-marks? | |
| 4113 | join-marks | |
| 4114 | join-wraps | |
| 4115 | smart-append | |
| 4116 | make-binding-wrap | |
| 4117 | extend-ribcage! | |
| 4118 | make-empty-ribcage | |
| 4119 | new-mark | |
| 4120 | anti-mark | |
| 4121 | the-anti-mark | |
| 4122 | top-marked? | |
| 4123 | top-wrap | |
| 4124 | empty-wrap | |
| 4125 | set-ribcage-labels! | |
| 4126 | set-ribcage-marks! | |
| 4127 | set-ribcage-symnames! | |
| 4128 | ribcage-labels | |
| 4129 | ribcage-marks | |
| 4130 | ribcage-symnames | |
| 4131 | ribcage? | |
| 4132 | make-ribcage | |
| 4133 | gen-labels | |
| 4134 | gen-label | |
| 4135 | make-rename | |
| 4136 | rename-marks | |
| 4137 | rename-new | |
| 4138 | rename-old | |
| 4139 | subst-rename? | |
| 4140 | wrap-subst | |
| 4141 | wrap-marks | |
| 4142 | make-wrap | |
| 4143 | id-sym-name&marks | |
| 4144 | id-sym-name | |
| 4145 | id? | |
| 4146 | nonsymbol-id? | |
| 4147 | global-extend | |
| 4148 | lookup | |
| 4149 | macros-only-env | |
| 4150 | extend-var-env | |
| 4151 | extend-env | |
| 4152 | null-env | |
| 4153 | binding-value | |
| 4154 | binding-type | |
| 4155 | make-binding | |
| 4156 | arg-check | |
| 4157 | source-annotation | |
| 4158 | no-source | |
| 4159 | set-syntax-object-module! | |
| 4160 | set-syntax-object-wrap! | |
| 4161 | set-syntax-object-expression! | |
| 4162 | syntax-object-module | |
| 4163 | syntax-object-wrap | |
| 4164 | syntax-object-expression | |
| 4165 | syntax-object? | |
| 4166 | make-syntax-object | |
| 4167 | build-lexical-var | |
| 4168 | build-letrec | |
| 4169 | build-named-let | |
| 4170 | build-let | |
| 4171 | build-sequence | |
| 4172 | build-data | |
| 4173 | build-primref | |
| 4174 | build-lambda | |
| 4175 | build-global-definition | |
| 4176 | maybe-name-value! | |
| 4177 | build-global-assignment | |
| 4178 | build-global-reference | |
| 4179 | analyze-variable | |
| 4180 | build-lexical-assignment | |
| 4181 | build-lexical-reference | |
| 4182 | build-conditional | |
| 4183 | build-application | |
| 4184 | build-void | |
| 4185 | decorate-source | |
| 4186 | get-global-definition-hook | |
| 4187 | put-global-definition-hook | |
| 4188 | gensym-hook | |
| 4189 | local-eval-hook | |
| 4190 | top-level-eval-hook | |
| 4191 | fx< | |
| 4192 | fx= | |
| 4193 | fx- | |
| 4194 | fx+ | |
| 4195 | *mode* | |
| 4196 | noexpand) | |
| 4197 | ((top) | |
| 4198 | (top) | |
| 4199 | (top) | |
| 4200 | (top) | |
| 4201 | (top) | |
| 4202 | (top) | |
| 4203 | (top) | |
| 4204 | (top) | |
| 4205 | (top) | |
| 4206 | (top) | |
| 4207 | (top) | |
| 4208 | (top) | |
| 4209 | (top) | |
| 4210 | (top) | |
| 4211 | (top) | |
| 4212 | (top) | |
| 4213 | (top) | |
| 4214 | (top) | |
| 4215 | (top) | |
| 4216 | (top) | |
| 4217 | (top) | |
| 4218 | (top) | |
| 4219 | (top) | |
| 4220 | (top) | |
| 4221 | (top) | |
| 4222 | (top) | |
| 4223 | (top) | |
| 4224 | (top) | |
| 4225 | (top) | |
| 4226 | (top) | |
| 4227 | (top) | |
| 4228 | (top) | |
| 4229 | (top) | |
| 4230 | (top) | |
| 4231 | (top) | |
| 4232 | (top) | |
| 4233 | (top) | |
| 4234 | (top) | |
| 4235 | (top) | |
| 4236 | (top) | |
| 4237 | (top) | |
| 4238 | (top) | |
| 4239 | (top) | |
| 4240 | (top) | |
| 4241 | (top) | |
| 4242 | (top) | |
| 4243 | (top) | |
| 4244 | (top) | |
| 4245 | (top) | |
| 4246 | (top) | |
| 4247 | (top) | |
| 4248 | (top) | |
| 4249 | (top) | |
| 4250 | (top) | |
| 4251 | (top) | |
| 4252 | (top) | |
| 4253 | (top) | |
| 4254 | (top) | |
| 4255 | (top) | |
| 4256 | (top) | |
| 4257 | (top) | |
| 4258 | (top) | |
| 4259 | (top) | |
| 4260 | (top) | |
| 4261 | (top) | |
| 4262 | (top) | |
| 4263 | (top) | |
| 4264 | (top) | |
| 4265 | (top) | |
| 4266 | (top) | |
| 4267 | (top) | |
| 4268 | (top) | |
| 4269 | (top) | |
| 4270 | (top) | |
| 4271 | (top) | |
| 4272 | (top) | |
| 4273 | (top) | |
| 4274 | (top) | |
| 4275 | (top) | |
| 4276 | (top) | |
| 4277 | (top) | |
| 4278 | (top) | |
| 4279 | (top) | |
| 4280 | (top) | |
| 4281 | (top) | |
| 4282 | (top) | |
| 4283 | (top) | |
| 4284 | (top) | |
| 4285 | (top) | |
| 4286 | (top) | |
| 4287 | (top) | |
| 4288 | (top) | |
| 4289 | (top) | |
| 4290 | (top) | |
| 4291 | (top) | |
| 4292 | (top) | |
| 4293 | (top) | |
| 4294 | (top) | |
| 4295 | (top) | |
| 4296 | (top) | |
| 4297 | (top) | |
| 4298 | (top) | |
| 4299 | (top) | |
| 4300 | (top) | |
| 4301 | (top) | |
| 4302 | (top) | |
| 4303 | (top) | |
| 4304 | (top) | |
| 4305 | (top) | |
| 4306 | (top) | |
| 4307 | (top) | |
| 4308 | (top)) | |
| 4309 | ("i" | |
| 4310 | "i" | |
| 4311 | "i" | |
| 4312 | "i" | |
| 4313 | "i" | |
| 4314 | "i" | |
| 4315 | "i" | |
| 4316 | "i" | |
| 4317 | "i" | |
| 4318 | "i" | |
| 4319 | "i" | |
| 4320 | "i" | |
| 4321 | "i" | |
| 4322 | "i" | |
| 4323 | "i" | |
| 4324 | "i" | |
| 4325 | "i" | |
| 4326 | "i" | |
| 4327 | "i" | |
| 4328 | "i" | |
| 4329 | "i" | |
| 4330 | "i" | |
| 4331 | "i" | |
| 4332 | "i" | |
| 4333 | "i" | |
| 4334 | "i" | |
| 4335 | "i" | |
| 4336 | "i" | |
| 4337 | "i" | |
| 4338 | "i" | |
| 4339 | "i" | |
| 4340 | "i" | |
| 4341 | "i" | |
| 4342 | "i" | |
| 4343 | "i" | |
| 4344 | "i" | |
| 4345 | "i" | |
| 4346 | "i" | |
| 4347 | "i" | |
| 4348 | "i" | |
| 4349 | "i" | |
| 4350 | "i" | |
| 4351 | "i" | |
| 4352 | "i" | |
| 4353 | "i" | |
| 4354 | "i" | |
| 4355 | "i" | |
| 4356 | "i" | |
| 4357 | "i" | |
| 4358 | "i" | |
| 4359 | "i" | |
| 4360 | "i" | |
| 4361 | "i" | |
| 4362 | "i" | |
| 4363 | "i" | |
| 4364 | "i" | |
| 4365 | "i" | |
| 4366 | "i" | |
| 4367 | "i" | |
| 4368 | "i" | |
| 4369 | "i" | |
| 4370 | "i" | |
| 4371 | "i" | |
| 4372 | "i" | |
| 4373 | "i" | |
| 4374 | "i" | |
| 4375 | "i" | |
| 4376 | "i" | |
| 4377 | "i" | |
| 4378 | "i" | |
| 4379 | "i" | |
| 4380 | "i" | |
| 4381 | "i" | |
| 4382 | "i" | |
| 4383 | "i" | |
| 4384 | "i" | |
| 4385 | "i" | |
| 4386 | "i" | |
| 4387 | "i" | |
| 4388 | "i" | |
| 4389 | "i" | |
| 4390 | "i" | |
| 4391 | "i" | |
| 4392 | "i" | |
| 4393 | "i" | |
| 4394 | "i" | |
| 4395 | "i" | |
| 4396 | "i" | |
| 4397 | "i" | |
| 4398 | "i" | |
| 4399 | "i" | |
| 4400 | "i" | |
| 4401 | "i" | |
| 4402 | "i" | |
| 4403 | "i" | |
| 4404 | "i" | |
| 4405 | "i" | |
| 4406 | "i" | |
| 4407 | "i" | |
| 4408 | "i" | |
| 4409 | "i" | |
| 4410 | "i" | |
| 4411 | "i" | |
| 4412 | "i" | |
| 4413 | "i" | |
| 4414 | "i" | |
| 4415 | "i" | |
| 4416 | "i" | |
| 4417 | "i" | |
| 4418 | "i" | |
| 4419 | "i" | |
| 4420 | "i")) | |
| 4421 | #(ribcage | |
| 4422 | (define-structure | |
| 4423 | and-map*) | |
| 4424 | ((top) (top)) | |
| 4425 | ("i" "i"))) | |
| 4426 | (hygiene guile))) | |
| 4427 | 'load | |
| 4428 | (if (#{free-id=?\ 1320}# | |
| 4429 | #{x\ 1783}# | |
| 4430 | '#(syntax-object | |
| 4431 | eval | |
| 4432 | ((top) | |
| 4433 | #(ribcage () () ()) | |
| 4434 | #(ribcage () () ()) | |
| 4435 | #(ribcage () () ()) | |
| 4436 | #(ribcage | |
| 4437 | #(x) | |
| 4438 | #((top)) | |
| 4439 | #("i")) | |
| 4440 | #(ribcage () () ()) | |
| 4441 | #(ribcage | |
| 4442 | #(f | |
| 4443 | when-list | |
| 4444 | situations) | |
| 4445 | #((top) (top) (top)) | |
| 4446 | #("i" "i" "i")) | |
| 4447 | #(ribcage () () ()) | |
| 4448 | #(ribcage | |
| 4449 | #(e when-list w) | |
| 4450 | #((top) (top) (top)) | |
| 4451 | #("i" "i" "i")) | |
| 4452 | #(ribcage | |
| 4453 | (lambda-var-list | |
| 4454 | gen-var | |
| 4455 | strip | |
| 4456 | ellipsis? | |
| 4457 | chi-void | |
| 4458 | eval-local-transformer | |
| 4459 | chi-local-syntax | |
| 4460 | chi-lambda-clause | |
| 4461 | chi-body | |
| 4462 | chi-macro | |
| 4463 | chi-application | |
| 4464 | chi-expr | |
| 4465 | chi | |
| 4466 | chi-top | |
| 4467 | syntax-type | |
| 4468 | chi-when-list | |
| 4469 | chi-install-global | |
| 4470 | chi-top-sequence | |
| 4471 | chi-sequence | |
| 4472 | source-wrap | |
| 4473 | wrap | |
| 4474 | bound-id-member? | |
| 4475 | distinct-bound-ids? | |
| 4476 | valid-bound-ids? | |
| 4477 | bound-id=? | |
| 4478 | free-id=? | |
| 4479 | id-var-name | |
| 4480 | same-marks? | |
| 4481 | join-marks | |
| 4482 | join-wraps | |
| 4483 | smart-append | |
| 4484 | make-binding-wrap | |
| 4485 | extend-ribcage! | |
| 4486 | make-empty-ribcage | |
| 4487 | new-mark | |
| 4488 | anti-mark | |
| 4489 | the-anti-mark | |
| 4490 | top-marked? | |
| 4491 | top-wrap | |
| 4492 | empty-wrap | |
| 4493 | set-ribcage-labels! | |
| 4494 | set-ribcage-marks! | |
| 4495 | set-ribcage-symnames! | |
| 4496 | ribcage-labels | |
| 4497 | ribcage-marks | |
| 4498 | ribcage-symnames | |
| 4499 | ribcage? | |
| 4500 | make-ribcage | |
| 4501 | gen-labels | |
| 4502 | gen-label | |
| 4503 | make-rename | |
| 4504 | rename-marks | |
| 4505 | rename-new | |
| 4506 | rename-old | |
| 4507 | subst-rename? | |
| 4508 | wrap-subst | |
| 4509 | wrap-marks | |
| 4510 | make-wrap | |
| 4511 | id-sym-name&marks | |
| 4512 | id-sym-name | |
| 4513 | id? | |
| 4514 | nonsymbol-id? | |
| 4515 | global-extend | |
| 4516 | lookup | |
| 4517 | macros-only-env | |
| 4518 | extend-var-env | |
| 4519 | extend-env | |
| 4520 | null-env | |
| 4521 | binding-value | |
| 4522 | binding-type | |
| 4523 | make-binding | |
| 4524 | arg-check | |
| 4525 | source-annotation | |
| 4526 | no-source | |
| 4527 | set-syntax-object-module! | |
| 4528 | set-syntax-object-wrap! | |
| 4529 | set-syntax-object-expression! | |
| 4530 | syntax-object-module | |
| 4531 | syntax-object-wrap | |
| 4532 | syntax-object-expression | |
| 4533 | syntax-object? | |
| 4534 | make-syntax-object | |
| 4535 | build-lexical-var | |
| 4536 | build-letrec | |
| 4537 | build-named-let | |
| 4538 | build-let | |
| 4539 | build-sequence | |
| 4540 | build-data | |
| 4541 | build-primref | |
| 4542 | build-lambda | |
| 4543 | build-global-definition | |
| 4544 | maybe-name-value! | |
| 4545 | build-global-assignment | |
| 4546 | build-global-reference | |
| 4547 | analyze-variable | |
| 4548 | build-lexical-assignment | |
| 4549 | build-lexical-reference | |
| 4550 | build-conditional | |
| 4551 | build-application | |
| 4552 | build-void | |
| 4553 | decorate-source | |
| 4554 | get-global-definition-hook | |
| 4555 | put-global-definition-hook | |
| 4556 | gensym-hook | |
| 4557 | local-eval-hook | |
| 4558 | top-level-eval-hook | |
| 4559 | fx< | |
| 4560 | fx= | |
| 4561 | fx- | |
| 4562 | fx+ | |
| 4563 | *mode* | |
| 4564 | noexpand) | |
| 4565 | ((top) | |
| 4566 | (top) | |
| 4567 | (top) | |
| 4568 | (top) | |
| 4569 | (top) | |
| 4570 | (top) | |
| 4571 | (top) | |
| 4572 | (top) | |
| 4573 | (top) | |
| 4574 | (top) | |
| 4575 | (top) | |
| 4576 | (top) | |
| 4577 | (top) | |
| 4578 | (top) | |
| 4579 | (top) | |
| 4580 | (top) | |
| 4581 | (top) | |
| 4582 | (top) | |
| 4583 | (top) | |
| 4584 | (top) | |
| 4585 | (top) | |
| 4586 | (top) | |
| 4587 | (top) | |
| 4588 | (top) | |
| 4589 | (top) | |
| 4590 | (top) | |
| 4591 | (top) | |
| 4592 | (top) | |
| 4593 | (top) | |
| 4594 | (top) | |
| 4595 | (top) | |
| 4596 | (top) | |
| 4597 | (top) | |
| 4598 | (top) | |
| 4599 | (top) | |
| 4600 | (top) | |
| 4601 | (top) | |
| 4602 | (top) | |
| 4603 | (top) | |
| 4604 | (top) | |
| 4605 | (top) | |
| 4606 | (top) | |
| 4607 | (top) | |
| 4608 | (top) | |
| 4609 | (top) | |
| 4610 | (top) | |
| 4611 | (top) | |
| 4612 | (top) | |
| 4613 | (top) | |
| 4614 | (top) | |
| 4615 | (top) | |
| 4616 | (top) | |
| 4617 | (top) | |
| 4618 | (top) | |
| 4619 | (top) | |
| 4620 | (top) | |
| 4621 | (top) | |
| 4622 | (top) | |
| 4623 | (top) | |
| 4624 | (top) | |
| 4625 | (top) | |
| 4626 | (top) | |
| 4627 | (top) | |
| 4628 | (top) | |
| 4629 | (top) | |
| 4630 | (top) | |
| 4631 | (top) | |
| 4632 | (top) | |
| 4633 | (top) | |
| 4634 | (top) | |
| 4635 | (top) | |
| 4636 | (top) | |
| 4637 | (top) | |
| 4638 | (top) | |
| 4639 | (top) | |
| 4640 | (top) | |
| 4641 | (top) | |
| 4642 | (top) | |
| 4643 | (top) | |
| 4644 | (top) | |
| 4645 | (top) | |
| 4646 | (top) | |
| 4647 | (top) | |
| 4648 | (top) | |
| 4649 | (top) | |
| 4650 | (top) | |
| 4651 | (top) | |
| 4652 | (top) | |
| 4653 | (top) | |
| 4654 | (top) | |
| 4655 | (top) | |
| 4656 | (top) | |
| 4657 | (top) | |
| 4658 | (top) | |
| 4659 | (top) | |
| 4660 | (top) | |
| 4661 | (top) | |
| 4662 | (top) | |
| 4663 | (top) | |
| 4664 | (top) | |
| 4665 | (top) | |
| 4666 | (top) | |
| 4667 | (top) | |
| 4668 | (top) | |
| 4669 | (top) | |
| 4670 | (top) | |
| 4671 | (top) | |
| 4672 | (top) | |
| 4673 | (top) | |
| 4674 | (top) | |
| 4675 | (top) | |
| 4676 | (top)) | |
| 4677 | ("i" | |
| 4678 | "i" | |
| 4679 | "i" | |
| 4680 | "i" | |
| 4681 | "i" | |
| 4682 | "i" | |
| 4683 | "i" | |
| 4684 | "i" | |
| 4685 | "i" | |
| 4686 | "i" | |
| 4687 | "i" | |
| 4688 | "i" | |
| 4689 | "i" | |
| 4690 | "i" | |
| 4691 | "i" | |
| 4692 | "i" | |
| 4693 | "i" | |
| 4694 | "i" | |
| 4695 | "i" | |
| 4696 | "i" | |
| 4697 | "i" | |
| 4698 | "i" | |
| 4699 | "i" | |
| 4700 | "i" | |
| 4701 | "i" | |
| 4702 | "i" | |
| 4703 | "i" | |
| 4704 | "i" | |
| 4705 | "i" | |
| 4706 | "i" | |
| 4707 | "i" | |
| 4708 | "i" | |
| 4709 | "i" | |
| 4710 | "i" | |
| 4711 | "i" | |
| 4712 | "i" | |
| 4713 | "i" | |
| 4714 | "i" | |
| 4715 | "i" | |
| 4716 | "i" | |
| 4717 | "i" | |
| 4718 | "i" | |
| 4719 | "i" | |
| 4720 | "i" | |
| 4721 | "i" | |
| 4722 | "i" | |
| 4723 | "i" | |
| 4724 | "i" | |
| 4725 | "i" | |
| 4726 | "i" | |
| 4727 | "i" | |
| 4728 | "i" | |
| 4729 | "i" | |
| 4730 | "i" | |
| 4731 | "i" | |
| 4732 | "i" | |
| 4733 | "i" | |
| 4734 | "i" | |
| 4735 | "i" | |
| 4736 | "i" | |
| 4737 | "i" | |
| 4738 | "i" | |
| 4739 | "i" | |
| 4740 | "i" | |
| 4741 | "i" | |
| 4742 | "i" | |
| 4743 | "i" | |
| 4744 | "i" | |
| 4745 | "i" | |
| 4746 | "i" | |
| 4747 | "i" | |
| 4748 | "i" | |
| 4749 | "i" | |
| 4750 | "i" | |
| 4751 | "i" | |
| 4752 | "i" | |
| 4753 | "i" | |
| 4754 | "i" | |
| 4755 | "i" | |
| 4756 | "i" | |
| 4757 | "i" | |
| 4758 | "i" | |
| 4759 | "i" | |
| 4760 | "i" | |
| 4761 | "i" | |
| 4762 | "i" | |
| 4763 | "i" | |
| 4764 | "i" | |
| 4765 | "i" | |
| 4766 | "i" | |
| 4767 | "i" | |
| 4768 | "i" | |
| 4769 | "i" | |
| 4770 | "i" | |
| 4771 | "i" | |
| 4772 | "i" | |
| 4773 | "i" | |
| 4774 | "i" | |
| 4775 | "i" | |
| 4776 | "i" | |
| 4777 | "i" | |
| 4778 | "i" | |
| 4779 | "i" | |
| 4780 | "i" | |
| 4781 | "i" | |
| 4782 | "i" | |
| 4783 | "i" | |
| 4784 | "i" | |
| 4785 | "i" | |
| 4786 | "i" | |
| 4787 | "i" | |
| 4788 | "i")) | |
| 4789 | #(ribcage | |
| 4790 | (define-structure | |
| 4791 | and-map*) | |
| 4792 | ((top) (top)) | |
| 4793 | ("i" "i"))) | |
| 4794 | (hygiene guile))) | |
| 4795 | 'eval | |
| 4796 | (syntax-violation | |
| 4797 | 'eval-when | |
| 4798 | "invalid situation" | |
| 4799 | #{e\ 1777}# | |
| 4800 | (#{wrap\ 1325}# | |
| 4801 | #{x\ 1783}# | |
| 4802 | #{w\ 1779}# | |
| 4803 | #f)))))) | |
| 4804 | #{situations\ 1782}#)))))) | |
| 4805 | (#{f\ 1780}# #{when-list\ 1778}# (quote ()))))) | |
| 4806 | (#{chi-install-global\ 1329}# | |
| 4807 | (lambda (#{name\ 1784}# #{e\ 1785}#) | |
| 4808 | (#{build-global-definition\ 1272}# | |
| 65dd9e38 | 4809 | #f |
| b9434165 LC |
4810 | #{name\ 1784}# |
| 4811 | (if (let ((#{v\ 1786}# | |
| 4812 | (module-variable | |
| 4813 | (current-module) | |
| 4814 | #{name\ 1784}#))) | |
| 4815 | (if #{v\ 1786}# | |
| 4816 | (if (variable-bound? #{v\ 1786}#) | |
| 4817 | (if (macro? (variable-ref #{v\ 1786}#)) | |
| 4818 | (not (eq? (macro-type (variable-ref #{v\ 1786}#)) | |
| 65dd9e38 AW |
4819 | 'syncase-macro)) |
| 4820 | #f) | |
| 4821 | #f) | |
| 4822 | #f)) | |
| b9434165 | 4823 | (#{build-application\ 1264}# |
| 65dd9e38 | 4824 | #f |
| b9434165 | 4825 | (#{build-primref\ 1274}# |
| 65dd9e38 AW |
4826 | #f |
| 4827 | 'make-extended-syncase-macro) | |
| b9434165 | 4828 | (list (#{build-application\ 1264}# |
| 65dd9e38 | 4829 | #f |
| b9434165 LC |
4830 | (#{build-primref\ 1274}# #f (quote module-ref)) |
| 4831 | (list (#{build-application\ 1264}# | |
| 65dd9e38 | 4832 | #f |
| b9434165 | 4833 | (#{build-primref\ 1274}# |
| 65dd9e38 AW |
4834 | #f |
| 4835 | 'current-module) | |
| 4836 | '()) | |
| b9434165 LC |
4837 | (#{build-data\ 1275}# #f #{name\ 1784}#))) |
| 4838 | (#{build-data\ 1275}# #f (quote macro)) | |
| 4839 | #{e\ 1785}#)) | |
| 4840 | (#{build-application\ 1264}# | |
| 65dd9e38 | 4841 | #f |
| b9434165 LC |
4842 | (#{build-primref\ 1274}# |
| 4843 | #f | |
| 4844 | 'make-syncase-macro) | |
| 4845 | (list (#{build-data\ 1275}# #f (quote macro)) | |
| 4846 | #{e\ 1785}#)))))) | |
| 4847 | (#{chi-top-sequence\ 1328}# | |
| 4848 | (lambda (#{body\ 1787}# | |
| 4849 | #{r\ 1788}# | |
| 4850 | #{w\ 1789}# | |
| 4851 | #{s\ 1790}# | |
| 4852 | #{m\ 1791}# | |
| 4853 | #{esew\ 1792}# | |
| 4854 | #{mod\ 1793}#) | |
| 4855 | (#{build-sequence\ 1276}# | |
| 4856 | #{s\ 1790}# | |
| 4857 | (letrec ((#{dobody\ 1794}# | |
| 4858 | (lambda (#{body\ 1795}# | |
| 4859 | #{r\ 1796}# | |
| 4860 | #{w\ 1797}# | |
| 4861 | #{m\ 1798}# | |
| 4862 | #{esew\ 1799}# | |
| 4863 | #{mod\ 1800}#) | |
| 4864 | (if (null? #{body\ 1795}#) | |
| 65dd9e38 | 4865 | '() |
| b9434165 LC |
4866 | (let ((#{first\ 1801}# |
| 4867 | (#{chi-top\ 1332}# | |
| 4868 | (car #{body\ 1795}#) | |
| 4869 | #{r\ 1796}# | |
| 4870 | #{w\ 1797}# | |
| 4871 | #{m\ 1798}# | |
| 4872 | #{esew\ 1799}# | |
| 4873 | #{mod\ 1800}#))) | |
| 4874 | (cons #{first\ 1801}# | |
| 4875 | (#{dobody\ 1794}# | |
| 4876 | (cdr #{body\ 1795}#) | |
| 4877 | #{r\ 1796}# | |
| 4878 | #{w\ 1797}# | |
| 4879 | #{m\ 1798}# | |
| 4880 | #{esew\ 1799}# | |
| 4881 | #{mod\ 1800}#))))))) | |
| 4882 | (#{dobody\ 1794}# | |
| 4883 | #{body\ 1787}# | |
| 4884 | #{r\ 1788}# | |
| 4885 | #{w\ 1789}# | |
| 4886 | #{m\ 1791}# | |
| 4887 | #{esew\ 1792}# | |
| 4888 | #{mod\ 1793}#))))) | |
| 4889 | (#{chi-sequence\ 1327}# | |
| 4890 | (lambda (#{body\ 1802}# | |
| 4891 | #{r\ 1803}# | |
| 4892 | #{w\ 1804}# | |
| 4893 | #{s\ 1805}# | |
| 4894 | #{mod\ 1806}#) | |
| 4895 | (#{build-sequence\ 1276}# | |
| 4896 | #{s\ 1805}# | |
| 4897 | (letrec ((#{dobody\ 1807}# | |
| 4898 | (lambda (#{body\ 1808}# | |
| 4899 | #{r\ 1809}# | |
| 4900 | #{w\ 1810}# | |
| 4901 | #{mod\ 1811}#) | |
| 4902 | (if (null? #{body\ 1808}#) | |
| 65dd9e38 | 4903 | '() |
| b9434165 LC |
4904 | (let ((#{first\ 1812}# |
| 4905 | (#{chi\ 1333}# | |
| 4906 | (car #{body\ 1808}#) | |
| 4907 | #{r\ 1809}# | |
| 4908 | #{w\ 1810}# | |
| 4909 | #{mod\ 1811}#))) | |
| 4910 | (cons #{first\ 1812}# | |
| 4911 | (#{dobody\ 1807}# | |
| 4912 | (cdr #{body\ 1808}#) | |
| 4913 | #{r\ 1809}# | |
| 4914 | #{w\ 1810}# | |
| 4915 | #{mod\ 1811}#))))))) | |
| 4916 | (#{dobody\ 1807}# | |
| 4917 | #{body\ 1802}# | |
| 4918 | #{r\ 1803}# | |
| 4919 | #{w\ 1804}# | |
| 4920 | #{mod\ 1806}#))))) | |
| 4921 | (#{source-wrap\ 1326}# | |
| 4922 | (lambda (#{x\ 1813}# | |
| 4923 | #{w\ 1814}# | |
| 4924 | #{s\ 1815}# | |
| 4925 | #{defmod\ 1816}#) | |
| 4926 | (#{wrap\ 1325}# | |
| 4927 | (#{decorate-source\ 1262}# | |
| 4928 | #{x\ 1813}# | |
| 4929 | #{s\ 1815}#) | |
| 4930 | #{w\ 1814}# | |
| 4931 | #{defmod\ 1816}#))) | |
| 4932 | (#{wrap\ 1325}# | |
| 4933 | (lambda (#{x\ 1817}# #{w\ 1818}# #{defmod\ 1819}#) | |
| 4934 | (if (if (null? (#{wrap-marks\ 1300}# #{w\ 1818}#)) | |
| 4935 | (null? (#{wrap-subst\ 1301}# #{w\ 1818}#)) | |
| 65dd9e38 | 4936 | #f) |
| b9434165 LC |
4937 | #{x\ 1817}# |
| 4938 | (if (#{syntax-object?\ 1281}# #{x\ 1817}#) | |
| 4939 | (#{make-syntax-object\ 1280}# | |
| 4940 | (#{syntax-object-expression\ 1282}# #{x\ 1817}#) | |
| 4941 | (#{join-wraps\ 1316}# | |
| 4942 | #{w\ 1818}# | |
| 4943 | (#{syntax-object-wrap\ 1283}# #{x\ 1817}#)) | |
| 4944 | (#{syntax-object-module\ 1284}# #{x\ 1817}#)) | |
| 4945 | (if (null? #{x\ 1817}#) | |
| 4946 | #{x\ 1817}# | |
| 4947 | (#{make-syntax-object\ 1280}# | |
| 4948 | #{x\ 1817}# | |
| 4949 | #{w\ 1818}# | |
| 4950 | #{defmod\ 1819}#)))))) | |
| 4951 | (#{bound-id-member?\ 1324}# | |
| 4952 | (lambda (#{x\ 1820}# #{list\ 1821}#) | |
| 4953 | (if (not (null? #{list\ 1821}#)) | |
| 4954 | (let ((#{t\ 1822}# | |
| 4955 | (#{bound-id=?\ 1321}# | |
| 4956 | #{x\ 1820}# | |
| 4957 | (car #{list\ 1821}#)))) | |
| 4958 | (if #{t\ 1822}# | |
| 4959 | #{t\ 1822}# | |
| 4960 | (#{bound-id-member?\ 1324}# | |
| 4961 | #{x\ 1820}# | |
| 4962 | (cdr #{list\ 1821}#)))) | |
| 65dd9e38 | 4963 | #f))) |
| b9434165 LC |
4964 | (#{distinct-bound-ids?\ 1323}# |
| 4965 | (lambda (#{ids\ 1823}#) | |
| 4966 | (letrec ((#{distinct?\ 1824}# | |
| 4967 | (lambda (#{ids\ 1825}#) | |
| 4968 | (let ((#{t\ 1826}# (null? #{ids\ 1825}#))) | |
| 4969 | (if #{t\ 1826}# | |
| 4970 | #{t\ 1826}# | |
| 4971 | (if (not (#{bound-id-member?\ 1324}# | |
| 4972 | (car #{ids\ 1825}#) | |
| 4973 | (cdr #{ids\ 1825}#))) | |
| 4974 | (#{distinct?\ 1824}# (cdr #{ids\ 1825}#)) | |
| 65dd9e38 | 4975 | #f)))))) |
| b9434165 LC |
4976 | (#{distinct?\ 1824}# #{ids\ 1823}#)))) |
| 4977 | (#{valid-bound-ids?\ 1322}# | |
| 4978 | (lambda (#{ids\ 1827}#) | |
| 4979 | (if (letrec ((#{all-ids?\ 1828}# | |
| 4980 | (lambda (#{ids\ 1829}#) | |
| 4981 | (let ((#{t\ 1830}# (null? #{ids\ 1829}#))) | |
| 4982 | (if #{t\ 1830}# | |
| 4983 | #{t\ 1830}# | |
| 4984 | (if (#{id?\ 1297}# (car #{ids\ 1829}#)) | |
| 4985 | (#{all-ids?\ 1828}# (cdr #{ids\ 1829}#)) | |
| 65dd9e38 | 4986 | #f)))))) |
| b9434165 LC |
4987 | (#{all-ids?\ 1828}# #{ids\ 1827}#)) |
| 4988 | (#{distinct-bound-ids?\ 1323}# #{ids\ 1827}#) | |
| 65dd9e38 | 4989 | #f))) |
| b9434165 LC |
4990 | (#{bound-id=?\ 1321}# |
| 4991 | (lambda (#{i\ 1831}# #{j\ 1832}#) | |
| 4992 | (if (if (#{syntax-object?\ 1281}# #{i\ 1831}#) | |
| 4993 | (#{syntax-object?\ 1281}# #{j\ 1832}#) | |
| 65dd9e38 | 4994 | #f) |
| b9434165 LC |
4995 | (if (eq? (#{syntax-object-expression\ 1282}# #{i\ 1831}#) |
| 4996 | (#{syntax-object-expression\ 1282}# #{j\ 1832}#)) | |
| 4997 | (#{same-marks?\ 1318}# | |
| 4998 | (#{wrap-marks\ 1300}# | |
| 4999 | (#{syntax-object-wrap\ 1283}# #{i\ 1831}#)) | |
| 5000 | (#{wrap-marks\ 1300}# | |
| 5001 | (#{syntax-object-wrap\ 1283}# #{j\ 1832}#))) | |
| 65dd9e38 | 5002 | #f) |
| b9434165 LC |
5003 | (eq? #{i\ 1831}# #{j\ 1832}#)))) |
| 5004 | (#{free-id=?\ 1320}# | |
| 5005 | (lambda (#{i\ 1833}# #{j\ 1834}#) | |
| 5006 | (if (eq? (let ((#{x\ 1835}# #{i\ 1833}#)) | |
| 5007 | (if (#{syntax-object?\ 1281}# #{x\ 1835}#) | |
| 5008 | (#{syntax-object-expression\ 1282}# #{x\ 1835}#) | |
| 5009 | #{x\ 1835}#)) | |
| 5010 | (let ((#{x\ 1836}# #{j\ 1834}#)) | |
| 5011 | (if (#{syntax-object?\ 1281}# #{x\ 1836}#) | |
| 5012 | (#{syntax-object-expression\ 1282}# #{x\ 1836}#) | |
| 5013 | #{x\ 1836}#))) | |
| 5014 | (eq? (#{id-var-name\ 1319}# #{i\ 1833}# (quote (()))) | |
| 5015 | (#{id-var-name\ 1319}# #{j\ 1834}# (quote (())))) | |
| 65dd9e38 | 5016 | #f))) |
| b9434165 LC |
5017 | (#{id-var-name\ 1319}# |
| 5018 | (lambda (#{id\ 1837}# #{w\ 1838}#) | |
| 5019 | (letrec ((#{search-vector-rib\ 1841}# | |
| 5020 | (lambda (#{sym\ 1847}# | |
| 5021 | #{subst\ 1848}# | |
| 5022 | #{marks\ 1849}# | |
| 5023 | #{symnames\ 1850}# | |
| 5024 | #{ribcage\ 1851}#) | |
| 5025 | (let ((#{n\ 1852}# | |
| 5026 | (vector-length #{symnames\ 1850}#))) | |
| 5027 | (letrec ((#{f\ 1853}# | |
| 5028 | (lambda (#{i\ 1854}#) | |
| 5029 | (if (#{fx=\ 1256}# | |
| 5030 | #{i\ 1854}# | |
| 5031 | #{n\ 1852}#) | |
| 5032 | (#{search\ 1839}# | |
| 5033 | #{sym\ 1847}# | |
| 5034 | (cdr #{subst\ 1848}#) | |
| 5035 | #{marks\ 1849}#) | |
| 5036 | (if (if (eq? (vector-ref | |
| 5037 | #{symnames\ 1850}# | |
| 5038 | #{i\ 1854}#) | |
| 5039 | #{sym\ 1847}#) | |
| 5040 | (#{same-marks?\ 1318}# | |
| 5041 | #{marks\ 1849}# | |
| 89cb70a0 | 5042 | (vector-ref |
| b9434165 LC |
5043 | (#{ribcage-marks\ 1307}# |
| 5044 | #{ribcage\ 1851}#) | |
| 5045 | #{i\ 1854}#)) | |
| 5046 | #f) | |
| 5047 | (values | |
| 5048 | (vector-ref | |
| 5049 | (#{ribcage-labels\ 1308}# | |
| 5050 | #{ribcage\ 1851}#) | |
| 5051 | #{i\ 1854}#) | |
| 5052 | #{marks\ 1849}#) | |
| 5053 | (#{f\ 1853}# | |
| 5054 | (#{fx+\ 1254}# | |
| 5055 | #{i\ 1854}# | |
| 5056 | 1))))))) | |
| 5057 | (#{f\ 1853}# 0))))) | |
| 5058 | (#{search-list-rib\ 1840}# | |
| 5059 | (lambda (#{sym\ 1855}# | |
| 5060 | #{subst\ 1856}# | |
| 5061 | #{marks\ 1857}# | |
| 5062 | #{symnames\ 1858}# | |
| 5063 | #{ribcage\ 1859}#) | |
| 5064 | (letrec ((#{f\ 1860}# | |
| 5065 | (lambda (#{symnames\ 1861}# #{i\ 1862}#) | |
| 5066 | (if (null? #{symnames\ 1861}#) | |
| 5067 | (#{search\ 1839}# | |
| 5068 | #{sym\ 1855}# | |
| 5069 | (cdr #{subst\ 1856}#) | |
| 5070 | #{marks\ 1857}#) | |
| 5071 | (if (if (eq? (car #{symnames\ 1861}#) | |
| 5072 | #{sym\ 1855}#) | |
| 5073 | (#{same-marks?\ 1318}# | |
| 5074 | #{marks\ 1857}# | |
| 89cb70a0 | 5075 | (list-ref |
| b9434165 LC |
5076 | (#{ribcage-marks\ 1307}# |
| 5077 | #{ribcage\ 1859}#) | |
| 5078 | #{i\ 1862}#)) | |
| 5079 | #f) | |
| 5080 | (values | |
| 5081 | (list-ref | |
| 5082 | (#{ribcage-labels\ 1308}# | |
| 5083 | #{ribcage\ 1859}#) | |
| 5084 | #{i\ 1862}#) | |
| 5085 | #{marks\ 1857}#) | |
| 5086 | (#{f\ 1860}# | |
| 5087 | (cdr #{symnames\ 1861}#) | |
| 5088 | (#{fx+\ 1254}# | |
| 5089 | #{i\ 1862}# | |
| 5090 | 1))))))) | |
| 5091 | (#{f\ 1860}# #{symnames\ 1858}# 0)))) | |
| 5092 | (#{search\ 1839}# | |
| 5093 | (lambda (#{sym\ 1863}# | |
| 5094 | #{subst\ 1864}# | |
| 5095 | #{marks\ 1865}#) | |
| 5096 | (if (null? #{subst\ 1864}#) | |
| 5097 | (values #f #{marks\ 1865}#) | |
| 5098 | (let ((#{fst\ 1866}# (car #{subst\ 1864}#))) | |
| 5099 | (if (eq? #{fst\ 1866}# (quote shift)) | |
| 5100 | (#{search\ 1839}# | |
| 5101 | #{sym\ 1863}# | |
| 5102 | (cdr #{subst\ 1864}#) | |
| 5103 | (cdr #{marks\ 1865}#)) | |
| 5104 | (let ((#{symnames\ 1867}# | |
| 5105 | (#{ribcage-symnames\ 1306}# | |
| 5106 | #{fst\ 1866}#))) | |
| 5107 | (if (vector? #{symnames\ 1867}#) | |
| 5108 | (#{search-vector-rib\ 1841}# | |
| 5109 | #{sym\ 1863}# | |
| 5110 | #{subst\ 1864}# | |
| 5111 | #{marks\ 1865}# | |
| 5112 | #{symnames\ 1867}# | |
| 5113 | #{fst\ 1866}#) | |
| 5114 | (#{search-list-rib\ 1840}# | |
| 5115 | #{sym\ 1863}# | |
| 5116 | #{subst\ 1864}# | |
| 5117 | #{marks\ 1865}# | |
| 5118 | #{symnames\ 1867}# | |
| 5119 | #{fst\ 1866}#))))))))) | |
| 5120 | (if (symbol? #{id\ 1837}#) | |
| 5121 | (let ((#{t\ 1868}# | |
| 5122 | (call-with-values | |
| 5123 | (lambda () | |
| 5124 | (#{search\ 1839}# | |
| 5125 | #{id\ 1837}# | |
| 5126 | (#{wrap-subst\ 1301}# #{w\ 1838}#) | |
| 5127 | (#{wrap-marks\ 1300}# #{w\ 1838}#))) | |
| 5128 | (lambda (#{x\ 1870}# . #{ignore\ 1869}#) | |
| 5129 | #{x\ 1870}#)))) | |
| 5130 | (if #{t\ 1868}# #{t\ 1868}# #{id\ 1837}#)) | |
| 5131 | (if (#{syntax-object?\ 1281}# #{id\ 1837}#) | |
| 5132 | (let ((#{id\ 1871}# | |
| 5133 | (#{syntax-object-expression\ 1282}# #{id\ 1837}#)) | |
| 5134 | (#{w1\ 1872}# | |
| 5135 | (#{syntax-object-wrap\ 1283}# #{id\ 1837}#))) | |
| 5136 | (let ((#{marks\ 1873}# | |
| 5137 | (#{join-marks\ 1317}# | |
| 5138 | (#{wrap-marks\ 1300}# #{w\ 1838}#) | |
| 5139 | (#{wrap-marks\ 1300}# #{w1\ 1872}#)))) | |
| 65dd9e38 AW |
5140 | (call-with-values |
| 5141 | (lambda () | |
| b9434165 LC |
5142 | (#{search\ 1839}# |
| 5143 | #{id\ 1871}# | |
| 5144 | (#{wrap-subst\ 1301}# #{w\ 1838}#) | |
| 5145 | #{marks\ 1873}#)) | |
| 5146 | (lambda (#{new-id\ 1874}# #{marks\ 1875}#) | |
| 5147 | (let ((#{t\ 1876}# #{new-id\ 1874}#)) | |
| 5148 | (if #{t\ 1876}# | |
| 5149 | #{t\ 1876}# | |
| 5150 | (let ((#{t\ 1877}# | |
| 5151 | (call-with-values | |
| 5152 | (lambda () | |
| 5153 | (#{search\ 1839}# | |
| 5154 | #{id\ 1871}# | |
| 5155 | (#{wrap-subst\ 1301}# | |
| 5156 | #{w1\ 1872}#) | |
| 5157 | #{marks\ 1875}#)) | |
| 5158 | (lambda (#{x\ 1879}# | |
| 5159 | . | |
| 5160 | #{ignore\ 1878}#) | |
| 5161 | #{x\ 1879}#)))) | |
| 5162 | (if #{t\ 1877}# | |
| 5163 | #{t\ 1877}# | |
| 5164 | #{id\ 1871}#)))))))) | |
| 65dd9e38 AW |
5165 | (syntax-violation |
| 5166 | 'id-var-name | |
| 5167 | "invalid id" | |
| b9434165 LC |
5168 | #{id\ 1837}#)))))) |
| 5169 | (#{same-marks?\ 1318}# | |
| 5170 | (lambda (#{x\ 1880}# #{y\ 1881}#) | |
| 5171 | (let ((#{t\ 1882}# (eq? #{x\ 1880}# #{y\ 1881}#))) | |
| 5172 | (if #{t\ 1882}# | |
| 5173 | #{t\ 1882}# | |
| 5174 | (if (not (null? #{x\ 1880}#)) | |
| 5175 | (if (not (null? #{y\ 1881}#)) | |
| 5176 | (if (eq? (car #{x\ 1880}#) (car #{y\ 1881}#)) | |
| 5177 | (#{same-marks?\ 1318}# | |
| 5178 | (cdr #{x\ 1880}#) | |
| 5179 | (cdr #{y\ 1881}#)) | |
| 65dd9e38 AW |
5180 | #f) |
| 5181 | #f) | |
| 5182 | #f))))) | |
| b9434165 LC |
5183 | (#{join-marks\ 1317}# |
| 5184 | (lambda (#{m1\ 1883}# #{m2\ 1884}#) | |
| 5185 | (#{smart-append\ 1315}# | |
| 5186 | #{m1\ 1883}# | |
| 5187 | #{m2\ 1884}#))) | |
| 5188 | (#{join-wraps\ 1316}# | |
| 5189 | (lambda (#{w1\ 1885}# #{w2\ 1886}#) | |
| 5190 | (let ((#{m1\ 1887}# | |
| 5191 | (#{wrap-marks\ 1300}# #{w1\ 1885}#)) | |
| 5192 | (#{s1\ 1888}# | |
| 5193 | (#{wrap-subst\ 1301}# #{w1\ 1885}#))) | |
| 5194 | (if (null? #{m1\ 1887}#) | |
| 5195 | (if (null? #{s1\ 1888}#) | |
| 5196 | #{w2\ 1886}# | |
| 5197 | (#{make-wrap\ 1299}# | |
| 5198 | (#{wrap-marks\ 1300}# #{w2\ 1886}#) | |
| 5199 | (#{smart-append\ 1315}# | |
| 5200 | #{s1\ 1888}# | |
| 5201 | (#{wrap-subst\ 1301}# #{w2\ 1886}#)))) | |
| 5202 | (#{make-wrap\ 1299}# | |
| 5203 | (#{smart-append\ 1315}# | |
| 5204 | #{m1\ 1887}# | |
| 5205 | (#{wrap-marks\ 1300}# #{w2\ 1886}#)) | |
| 5206 | (#{smart-append\ 1315}# | |
| 5207 | #{s1\ 1888}# | |
| 5208 | (#{wrap-subst\ 1301}# #{w2\ 1886}#))))))) | |
| 5209 | (#{smart-append\ 1315}# | |
| 5210 | (lambda (#{m1\ 1889}# #{m2\ 1890}#) | |
| 5211 | (if (null? #{m2\ 1890}#) | |
| 5212 | #{m1\ 1889}# | |
| 5213 | (append #{m1\ 1889}# #{m2\ 1890}#)))) | |
| 5214 | (#{make-binding-wrap\ 1314}# | |
| 5215 | (lambda (#{ids\ 1891}# #{labels\ 1892}# #{w\ 1893}#) | |
| 5216 | (if (null? #{ids\ 1891}#) | |
| 5217 | #{w\ 1893}# | |
| 5218 | (#{make-wrap\ 1299}# | |
| 5219 | (#{wrap-marks\ 1300}# #{w\ 1893}#) | |
| 5220 | (cons (let ((#{labelvec\ 1894}# | |
| 5221 | (list->vector #{labels\ 1892}#))) | |
| 5222 | (let ((#{n\ 1895}# | |
| 5223 | (vector-length #{labelvec\ 1894}#))) | |
| 5224 | (let ((#{symnamevec\ 1896}# | |
| 5225 | (make-vector #{n\ 1895}#)) | |
| 5226 | (#{marksvec\ 1897}# | |
| 5227 | (make-vector #{n\ 1895}#))) | |
| 65dd9e38 | 5228 | (begin |
| b9434165 LC |
5229 | (letrec ((#{f\ 1898}# |
| 5230 | (lambda (#{ids\ 1899}# #{i\ 1900}#) | |
| 5231 | (if (not (null? #{ids\ 1899}#)) | |
| 5232 | (call-with-values | |
| 5233 | (lambda () | |
| 5234 | (#{id-sym-name&marks\ 1298}# | |
| 5235 | (car #{ids\ 1899}#) | |
| 5236 | #{w\ 1893}#)) | |
| 5237 | (lambda (#{symname\ 1901}# | |
| 5238 | #{marks\ 1902}#) | |
| 5239 | (begin | |
| 5240 | (vector-set! | |
| 5241 | #{symnamevec\ 1896}# | |
| 5242 | #{i\ 1900}# | |
| 5243 | #{symname\ 1901}#) | |
| 5244 | (vector-set! | |
| 5245 | #{marksvec\ 1897}# | |
| 5246 | #{i\ 1900}# | |
| 5247 | #{marks\ 1902}#) | |
| 5248 | (#{f\ 1898}# | |
| 5249 | (cdr #{ids\ 1899}#) | |
| 5250 | (#{fx+\ 1254}# | |
| 5251 | #{i\ 1900}# | |
| 5252 | 1))))))))) | |
| 5253 | (#{f\ 1898}# #{ids\ 1891}# 0)) | |
| 5254 | (#{make-ribcage\ 1304}# | |
| 5255 | #{symnamevec\ 1896}# | |
| 5256 | #{marksvec\ 1897}# | |
| 5257 | #{labelvec\ 1894}#))))) | |
| 5258 | (#{wrap-subst\ 1301}# #{w\ 1893}#)))))) | |
| 5259 | (#{extend-ribcage!\ 1313}# | |
| 5260 | (lambda (#{ribcage\ 1903}# #{id\ 1904}# #{label\ 1905}#) | |
| 65dd9e38 | 5261 | (begin |
| b9434165 LC |
5262 | (#{set-ribcage-symnames!\ 1309}# |
| 5263 | #{ribcage\ 1903}# | |
| 5264 | (cons (#{syntax-object-expression\ 1282}# #{id\ 1904}#) | |
| 5265 | (#{ribcage-symnames\ 1306}# #{ribcage\ 1903}#))) | |
| 5266 | (#{set-ribcage-marks!\ 1310}# | |
| 5267 | #{ribcage\ 1903}# | |
| 5268 | (cons (#{wrap-marks\ 1300}# | |
| 5269 | (#{syntax-object-wrap\ 1283}# #{id\ 1904}#)) | |
| 5270 | (#{ribcage-marks\ 1307}# #{ribcage\ 1903}#))) | |
| 5271 | (#{set-ribcage-labels!\ 1311}# | |
| 5272 | #{ribcage\ 1903}# | |
| 5273 | (cons #{label\ 1905}# | |
| 5274 | (#{ribcage-labels\ 1308}# #{ribcage\ 1903}#)))))) | |
| 5275 | (#{anti-mark\ 1312}# | |
| 5276 | (lambda (#{w\ 1906}#) | |
| 5277 | (#{make-wrap\ 1299}# | |
| 5278 | (cons #f (#{wrap-marks\ 1300}# #{w\ 1906}#)) | |
| 5279 | (cons 'shift | |
| 5280 | (#{wrap-subst\ 1301}# #{w\ 1906}#))))) | |
| 5281 | (#{set-ribcage-labels!\ 1311}# | |
| 5282 | (lambda (#{x\ 1907}# #{update\ 1908}#) | |
| 5283 | (vector-set! #{x\ 1907}# 3 #{update\ 1908}#))) | |
| 5284 | (#{set-ribcage-marks!\ 1310}# | |
| 5285 | (lambda (#{x\ 1909}# #{update\ 1910}#) | |
| 5286 | (vector-set! #{x\ 1909}# 2 #{update\ 1910}#))) | |
| 5287 | (#{set-ribcage-symnames!\ 1309}# | |
| 5288 | (lambda (#{x\ 1911}# #{update\ 1912}#) | |
| 5289 | (vector-set! #{x\ 1911}# 1 #{update\ 1912}#))) | |
| 5290 | (#{ribcage-labels\ 1308}# | |
| 5291 | (lambda (#{x\ 1913}#) (vector-ref #{x\ 1913}# 3))) | |
| 5292 | (#{ribcage-marks\ 1307}# | |
| 5293 | (lambda (#{x\ 1914}#) (vector-ref #{x\ 1914}# 2))) | |
| 5294 | (#{ribcage-symnames\ 1306}# | |
| 5295 | (lambda (#{x\ 1915}#) (vector-ref #{x\ 1915}# 1))) | |
| 5296 | (#{ribcage?\ 1305}# | |
| 5297 | (lambda (#{x\ 1916}#) | |
| 5298 | (if (vector? #{x\ 1916}#) | |
| 5299 | (if (= (vector-length #{x\ 1916}#) 4) | |
| 5300 | (eq? (vector-ref #{x\ 1916}# 0) (quote ribcage)) | |
| 65dd9e38 AW |
5301 | #f) |
| 5302 | #f))) | |
| b9434165 LC |
5303 | (#{make-ribcage\ 1304}# |
| 5304 | (lambda (#{symnames\ 1917}# | |
| 5305 | #{marks\ 1918}# | |
| 5306 | #{labels\ 1919}#) | |
| 65dd9e38 AW |
5307 | (vector |
| 5308 | 'ribcage | |
| b9434165 LC |
5309 | #{symnames\ 1917}# |
| 5310 | #{marks\ 1918}# | |
| 5311 | #{labels\ 1919}#))) | |
| 5312 | (#{gen-labels\ 1303}# | |
| 5313 | (lambda (#{ls\ 1920}#) | |
| 5314 | (if (null? #{ls\ 1920}#) | |
| 65dd9e38 | 5315 | '() |
| b9434165 LC |
5316 | (cons (#{gen-label\ 1302}#) |
| 5317 | (#{gen-labels\ 1303}# (cdr #{ls\ 1920}#)))))) | |
| 5318 | (#{gen-label\ 1302}# (lambda () (string #\i))) | |
| 5319 | (#{wrap-subst\ 1301}# cdr) | |
| 5320 | (#{wrap-marks\ 1300}# car) | |
| 5321 | (#{make-wrap\ 1299}# cons) | |
| 5322 | (#{id-sym-name&marks\ 1298}# | |
| 5323 | (lambda (#{x\ 1921}# #{w\ 1922}#) | |
| 5324 | (if (#{syntax-object?\ 1281}# #{x\ 1921}#) | |
| 65dd9e38 | 5325 | (values |
| b9434165 LC |
5326 | (#{syntax-object-expression\ 1282}# #{x\ 1921}#) |
| 5327 | (#{join-marks\ 1317}# | |
| 5328 | (#{wrap-marks\ 1300}# #{w\ 1922}#) | |
| 5329 | (#{wrap-marks\ 1300}# | |
| 5330 | (#{syntax-object-wrap\ 1283}# #{x\ 1921}#)))) | |
| 5331 | (values | |
| 5332 | #{x\ 1921}# | |
| 5333 | (#{wrap-marks\ 1300}# #{w\ 1922}#))))) | |
| 5334 | (#{id?\ 1297}# | |
| 5335 | (lambda (#{x\ 1923}#) | |
| 5336 | (if (symbol? #{x\ 1923}#) | |
| 65dd9e38 | 5337 | #t |
| b9434165 LC |
5338 | (if (#{syntax-object?\ 1281}# #{x\ 1923}#) |
| 5339 | (symbol? | |
| 5340 | (#{syntax-object-expression\ 1282}# #{x\ 1923}#)) | |
| 65dd9e38 | 5341 | #f)))) |
| b9434165 LC |
5342 | (#{nonsymbol-id?\ 1296}# |
| 5343 | (lambda (#{x\ 1924}#) | |
| 5344 | (if (#{syntax-object?\ 1281}# #{x\ 1924}#) | |
| 5345 | (symbol? | |
| 5346 | (#{syntax-object-expression\ 1282}# #{x\ 1924}#)) | |
| 65dd9e38 | 5347 | #f))) |
| b9434165 LC |
5348 | (#{global-extend\ 1295}# |
| 5349 | (lambda (#{type\ 1925}# #{sym\ 1926}# #{val\ 1927}#) | |
| 5350 | (#{put-global-definition-hook\ 1260}# | |
| 5351 | #{sym\ 1926}# | |
| 5352 | #{type\ 1925}# | |
| 5353 | #{val\ 1927}#))) | |
| 5354 | (#{lookup\ 1294}# | |
| 5355 | (lambda (#{x\ 1928}# #{r\ 1929}# #{mod\ 1930}#) | |
| 5356 | (let ((#{t\ 1931}# (assq #{x\ 1928}# #{r\ 1929}#))) | |
| 5357 | (if #{t\ 1931}# | |
| 5358 | (cdr #{t\ 1931}#) | |
| 5359 | (if (symbol? #{x\ 1928}#) | |
| 5360 | (let ((#{t\ 1932}# | |
| 5361 | (#{get-global-definition-hook\ 1261}# | |
| 5362 | #{x\ 1928}# | |
| 5363 | #{mod\ 1930}#))) | |
| 5364 | (if #{t\ 1932}# #{t\ 1932}# (quote (global)))) | |
| 65dd9e38 | 5365 | '(displaced-lexical)))))) |
| b9434165 LC |
5366 | (#{macros-only-env\ 1293}# |
| 5367 | (lambda (#{r\ 1933}#) | |
| 5368 | (if (null? #{r\ 1933}#) | |
| 65dd9e38 | 5369 | '() |
| b9434165 LC |
5370 | (let ((#{a\ 1934}# (car #{r\ 1933}#))) |
| 5371 | (if (eq? (cadr #{a\ 1934}#) (quote macro)) | |
| 5372 | (cons #{a\ 1934}# | |
| 5373 | (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#))) | |
| 5374 | (#{macros-only-env\ 1293}# (cdr #{r\ 1933}#))))))) | |
| 5375 | (#{extend-var-env\ 1292}# | |
| 5376 | (lambda (#{labels\ 1935}# #{vars\ 1936}# #{r\ 1937}#) | |
| 5377 | (if (null? #{labels\ 1935}#) | |
| 5378 | #{r\ 1937}# | |
| 5379 | (#{extend-var-env\ 1292}# | |
| 5380 | (cdr #{labels\ 1935}#) | |
| 5381 | (cdr #{vars\ 1936}#) | |
| 5382 | (cons (cons (car #{labels\ 1935}#) | |
| 5383 | (cons (quote lexical) (car #{vars\ 1936}#))) | |
| 5384 | #{r\ 1937}#))))) | |
| 5385 | (#{extend-env\ 1291}# | |
| 5386 | (lambda (#{labels\ 1938}# #{bindings\ 1939}# #{r\ 1940}#) | |
| 5387 | (if (null? #{labels\ 1938}#) | |
| 5388 | #{r\ 1940}# | |
| 5389 | (#{extend-env\ 1291}# | |
| 5390 | (cdr #{labels\ 1938}#) | |
| 5391 | (cdr #{bindings\ 1939}#) | |
| 5392 | (cons (cons (car #{labels\ 1938}#) | |
| 5393 | (car #{bindings\ 1939}#)) | |
| 5394 | #{r\ 1940}#))))) | |
| 5395 | (#{binding-value\ 1290}# cdr) | |
| 5396 | (#{binding-type\ 1289}# car) | |
| 5397 | (#{source-annotation\ 1288}# | |
| 5398 | (lambda (#{x\ 1941}#) | |
| 5399 | (if (#{syntax-object?\ 1281}# #{x\ 1941}#) | |
| 5400 | (#{source-annotation\ 1288}# | |
| 5401 | (#{syntax-object-expression\ 1282}# #{x\ 1941}#)) | |
| 5402 | (if (pair? #{x\ 1941}#) | |
| 5403 | (let ((#{props\ 1942}# (source-properties #{x\ 1941}#))) | |
| 5404 | (if (pair? #{props\ 1942}#) #{props\ 1942}# #f)) | |
| 65dd9e38 | 5405 | #f)))) |
| b9434165 LC |
5406 | (#{set-syntax-object-module!\ 1287}# |
| 5407 | (lambda (#{x\ 1943}# #{update\ 1944}#) | |
| 5408 | (vector-set! #{x\ 1943}# 3 #{update\ 1944}#))) | |
| 5409 | (#{set-syntax-object-wrap!\ 1286}# | |
| 5410 | (lambda (#{x\ 1945}# #{update\ 1946}#) | |
| 5411 | (vector-set! #{x\ 1945}# 2 #{update\ 1946}#))) | |
| 5412 | (#{set-syntax-object-expression!\ 1285}# | |
| 5413 | (lambda (#{x\ 1947}# #{update\ 1948}#) | |
| 5414 | (vector-set! #{x\ 1947}# 1 #{update\ 1948}#))) | |
| 5415 | (#{syntax-object-module\ 1284}# | |
| 5416 | (lambda (#{x\ 1949}#) (vector-ref #{x\ 1949}# 3))) | |
| 5417 | (#{syntax-object-wrap\ 1283}# | |
| 5418 | (lambda (#{x\ 1950}#) (vector-ref #{x\ 1950}# 2))) | |
| 5419 | (#{syntax-object-expression\ 1282}# | |
| 5420 | (lambda (#{x\ 1951}#) (vector-ref #{x\ 1951}# 1))) | |
| 5421 | (#{syntax-object?\ 1281}# | |
| 5422 | (lambda (#{x\ 1952}#) | |
| 5423 | (if (vector? #{x\ 1952}#) | |
| 5424 | (if (= (vector-length #{x\ 1952}#) 4) | |
| 5425 | (eq? (vector-ref #{x\ 1952}# 0) | |
| 5426 | 'syntax-object) | |
| 65dd9e38 AW |
5427 | #f) |
| 5428 | #f))) | |
| b9434165 LC |
5429 | (#{make-syntax-object\ 1280}# |
| 5430 | (lambda (#{expression\ 1953}# | |
| 5431 | #{wrap\ 1954}# | |
| 5432 | #{module\ 1955}#) | |
| 65dd9e38 AW |
5433 | (vector |
| 5434 | 'syntax-object | |
| b9434165 LC |
5435 | #{expression\ 1953}# |
| 5436 | #{wrap\ 1954}# | |
| 5437 | #{module\ 1955}#))) | |
| 5438 | (#{build-letrec\ 1279}# | |
| 5439 | (lambda (#{src\ 1956}# | |
| 5440 | #{ids\ 1957}# | |
| 5441 | #{vars\ 1958}# | |
| 5442 | #{val-exps\ 1959}# | |
| 5443 | #{body-exp\ 1960}#) | |
| 5444 | (if (null? #{vars\ 1958}#) | |
| 5445 | #{body-exp\ 1960}# | |
| 5446 | (let ((#{atom-key\ 1961}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5447 | (if (memv #{atom-key\ 1961}# (quote (c))) | |
| 65dd9e38 | 5448 | (begin |
| b9434165 LC |
5449 | (for-each |
| 5450 | #{maybe-name-value!\ 1271}# | |
| 5451 | #{ids\ 1957}# | |
| 5452 | #{val-exps\ 1959}#) | |
| 65dd9e38 | 5453 | ((@ (language tree-il) make-letrec) |
| b9434165 LC |
5454 | #{src\ 1956}# |
| 5455 | #{ids\ 1957}# | |
| 5456 | #{vars\ 1958}# | |
| 5457 | #{val-exps\ 1959}# | |
| 5458 | #{body-exp\ 1960}#)) | |
| 5459 | (#{decorate-source\ 1262}# | |
| fc5b616b | 5460 | (list 'letrec |
| b9434165 LC |
5461 | (map list #{vars\ 1958}# #{val-exps\ 1959}#) |
| 5462 | #{body-exp\ 1960}#) | |
| 5463 | #{src\ 1956}#)))))) | |
| 5464 | (#{build-named-let\ 1278}# | |
| 5465 | (lambda (#{src\ 1962}# | |
| 5466 | #{ids\ 1963}# | |
| 5467 | #{vars\ 1964}# | |
| 5468 | #{val-exps\ 1965}# | |
| 5469 | #{body-exp\ 1966}#) | |
| 5470 | (let ((#{f\ 1967}# (car #{vars\ 1964}#)) | |
| 5471 | (#{f-name\ 1968}# (car #{ids\ 1963}#)) | |
| 5472 | (#{vars\ 1969}# (cdr #{vars\ 1964}#)) | |
| 5473 | (#{ids\ 1970}# (cdr #{ids\ 1963}#))) | |
| 5474 | (let ((#{atom-key\ 1971}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5475 | (if (memv #{atom-key\ 1971}# (quote (c))) | |
| 5476 | (let ((#{proc\ 1972}# | |
| 5477 | (#{build-lambda\ 1273}# | |
| 5478 | #{src\ 1962}# | |
| 5479 | #{ids\ 1970}# | |
| 5480 | #{vars\ 1969}# | |
| 65dd9e38 | 5481 | #f |
| b9434165 | 5482 | #{body-exp\ 1966}#))) |
| 65dd9e38 | 5483 | (begin |
| b9434165 LC |
5484 | (#{maybe-name-value!\ 1271}# |
| 5485 | #{f-name\ 1968}# | |
| 5486 | #{proc\ 1972}#) | |
| 5487 | (for-each | |
| 5488 | #{maybe-name-value!\ 1271}# | |
| 5489 | #{ids\ 1970}# | |
| 5490 | #{val-exps\ 1965}#) | |
| 65dd9e38 | 5491 | ((@ (language tree-il) make-letrec) |
| b9434165 LC |
5492 | #{src\ 1962}# |
| 5493 | (list #{f-name\ 1968}#) | |
| 5494 | (list #{f\ 1967}#) | |
| 5495 | (list #{proc\ 1972}#) | |
| 5496 | (#{build-application\ 1264}# | |
| 5497 | #{src\ 1962}# | |
| 5498 | (#{build-lexical-reference\ 1266}# | |
| 65dd9e38 | 5499 | 'fun |
| b9434165 LC |
5500 | #{src\ 1962}# |
| 5501 | #{f-name\ 1968}# | |
| 5502 | #{f\ 1967}#) | |
| 5503 | #{val-exps\ 1965}#)))) | |
| 5504 | (#{decorate-source\ 1262}# | |
| fc5b616b | 5505 | (list 'let |
| b9434165 LC |
5506 | #{f\ 1967}# |
| 5507 | (map list #{vars\ 1969}# #{val-exps\ 1965}#) | |
| 5508 | #{body-exp\ 1966}#) | |
| 5509 | #{src\ 1962}#)))))) | |
| 5510 | (#{build-let\ 1277}# | |
| 5511 | (lambda (#{src\ 1973}# | |
| 5512 | #{ids\ 1974}# | |
| 5513 | #{vars\ 1975}# | |
| 5514 | #{val-exps\ 1976}# | |
| 5515 | #{body-exp\ 1977}#) | |
| 5516 | (if (null? #{vars\ 1975}#) | |
| 5517 | #{body-exp\ 1977}# | |
| 5518 | (let ((#{atom-key\ 1978}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5519 | (if (memv #{atom-key\ 1978}# (quote (c))) | |
| 65dd9e38 | 5520 | (begin |
| b9434165 LC |
5521 | (for-each |
| 5522 | #{maybe-name-value!\ 1271}# | |
| 5523 | #{ids\ 1974}# | |
| 5524 | #{val-exps\ 1976}#) | |
| 65dd9e38 | 5525 | ((@ (language tree-il) make-let) |
| b9434165 LC |
5526 | #{src\ 1973}# |
| 5527 | #{ids\ 1974}# | |
| 5528 | #{vars\ 1975}# | |
| 5529 | #{val-exps\ 1976}# | |
| 5530 | #{body-exp\ 1977}#)) | |
| 5531 | (#{decorate-source\ 1262}# | |
| fc5b616b | 5532 | (list 'let |
| b9434165 LC |
5533 | (map list #{vars\ 1975}# #{val-exps\ 1976}#) |
| 5534 | #{body-exp\ 1977}#) | |
| 5535 | #{src\ 1973}#)))))) | |
| 5536 | (#{build-sequence\ 1276}# | |
| 5537 | (lambda (#{src\ 1979}# #{exps\ 1980}#) | |
| 5538 | (if (null? (cdr #{exps\ 1980}#)) | |
| 5539 | (car #{exps\ 1980}#) | |
| 5540 | (let ((#{atom-key\ 1981}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5541 | (if (memv #{atom-key\ 1981}# (quote (c))) | |
| 65dd9e38 | 5542 | ((@ (language tree-il) make-sequence) |
| b9434165 LC |
5543 | #{src\ 1979}# |
| 5544 | #{exps\ 1980}#) | |
| 5545 | (#{decorate-source\ 1262}# | |
| 5546 | (cons (quote begin) #{exps\ 1980}#) | |
| 5547 | #{src\ 1979}#)))))) | |
| 5548 | (#{build-data\ 1275}# | |
| 5549 | (lambda (#{src\ 1982}# #{exp\ 1983}#) | |
| 5550 | (let ((#{atom-key\ 1984}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5551 | (if (memv #{atom-key\ 1984}# (quote (c))) | |
| 5552 | ((@ (language tree-il) make-const) | |
| 5553 | #{src\ 1982}# | |
| 5554 | #{exp\ 1983}#) | |
| 5555 | (#{decorate-source\ 1262}# | |
| 5556 | (if (if (self-evaluating? #{exp\ 1983}#) | |
| 5557 | (not (vector? #{exp\ 1983}#)) | |
| fc5b616b | 5558 | #f) |
| b9434165 LC |
5559 | #{exp\ 1983}# |
| 5560 | (list (quote quote) #{exp\ 1983}#)) | |
| 5561 | #{src\ 1982}#))))) | |
| 5562 | (#{build-primref\ 1274}# | |
| 5563 | (lambda (#{src\ 1985}# #{name\ 1986}#) | |
| 65dd9e38 AW |
5564 | (if (equal? |
| 5565 | (module-name (current-module)) | |
| 5566 | '(guile)) | |
| b9434165 LC |
5567 | (let ((#{atom-key\ 1987}# (fluid-ref #{*mode*\ 1253}#))) |
| 5568 | (if (memv #{atom-key\ 1987}# (quote (c))) | |
| 65dd9e38 | 5569 | ((@ (language tree-il) make-toplevel-ref) |
| b9434165 LC |
5570 | #{src\ 1985}# |
| 5571 | #{name\ 1986}#) | |
| 5572 | (#{decorate-source\ 1262}# | |
| 5573 | #{name\ 1986}# | |
| 5574 | #{src\ 1985}#))) | |
| 5575 | (let ((#{atom-key\ 1988}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5576 | (if (memv #{atom-key\ 1988}# (quote (c))) | |
| 65dd9e38 | 5577 | ((@ (language tree-il) make-module-ref) |
| b9434165 | 5578 | #{src\ 1985}# |
| 65dd9e38 | 5579 | '(guile) |
| b9434165 | 5580 | #{name\ 1986}# |
| 65dd9e38 | 5581 | #f) |
| b9434165 LC |
5582 | (#{decorate-source\ 1262}# |
| 5583 | (list (quote @@) (quote (guile)) #{name\ 1986}#) | |
| 5584 | #{src\ 1985}#)))))) | |
| 5585 | (#{build-lambda\ 1273}# | |
| 5586 | (lambda (#{src\ 1989}# | |
| 5587 | #{ids\ 1990}# | |
| 5588 | #{vars\ 1991}# | |
| 5589 | #{docstring\ 1992}# | |
| 5590 | #{exp\ 1993}#) | |
| 5591 | (let ((#{atom-key\ 1994}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5592 | (if (memv #{atom-key\ 1994}# (quote (c))) | |
| 65dd9e38 | 5593 | ((@ (language tree-il) make-lambda) |
| b9434165 LC |
5594 | #{src\ 1989}# |
| 5595 | #{ids\ 1990}# | |
| 5596 | #{vars\ 1991}# | |
| 5597 | (if #{docstring\ 1992}# | |
| 5598 | (list (cons (quote documentation) #{docstring\ 1992}#)) | |
| 65dd9e38 | 5599 | '()) |
| b9434165 LC |
5600 | #{exp\ 1993}#) |
| 5601 | (#{decorate-source\ 1262}# | |
| fc5b616b | 5602 | (cons 'lambda |
| b9434165 | 5603 | (cons #{vars\ 1991}# |
| fc5b616b | 5604 | (append |
| b9434165 LC |
5605 | (if #{docstring\ 1992}# |
| 5606 | (list #{docstring\ 1992}#) | |
| fc5b616b | 5607 | '()) |
| b9434165 LC |
5608 | (list #{exp\ 1993}#)))) |
| 5609 | #{src\ 1989}#))))) | |
| 5610 | (#{build-global-definition\ 1272}# | |
| 5611 | (lambda (#{source\ 1995}# #{var\ 1996}# #{exp\ 1997}#) | |
| 5612 | (let ((#{atom-key\ 1998}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5613 | (if (memv #{atom-key\ 1998}# (quote (c))) | |
| 65dd9e38 | 5614 | (begin |
| b9434165 LC |
5615 | (#{maybe-name-value!\ 1271}# |
| 5616 | #{var\ 1996}# | |
| 5617 | #{exp\ 1997}#) | |
| 65dd9e38 | 5618 | ((@ (language tree-il) make-toplevel-define) |
| b9434165 LC |
5619 | #{source\ 1995}# |
| 5620 | #{var\ 1996}# | |
| 5621 | #{exp\ 1997}#)) | |
| 5622 | (#{decorate-source\ 1262}# | |
| 5623 | (list (quote define) #{var\ 1996}# #{exp\ 1997}#) | |
| 5624 | #{source\ 1995}#))))) | |
| 5625 | (#{maybe-name-value!\ 1271}# | |
| 5626 | (lambda (#{name\ 1999}# #{val\ 2000}#) | |
| 5627 | (if ((@ (language tree-il) lambda?) #{val\ 2000}#) | |
| 5628 | (let ((#{meta\ 2001}# | |
| 5629 | ((@ (language tree-il) lambda-meta) | |
| 5630 | #{val\ 2000}#))) | |
| 5631 | (if (not (assq (quote name) #{meta\ 2001}#)) | |
| 65dd9e38 | 5632 | ((setter (@ (language tree-il) lambda-meta)) |
| b9434165 LC |
5633 | #{val\ 2000}# |
| 5634 | (acons 'name | |
| 5635 | #{name\ 1999}# | |
| 5636 | #{meta\ 2001}#))))))) | |
| 5637 | (#{build-global-assignment\ 1270}# | |
| 5638 | (lambda (#{source\ 2002}# | |
| 5639 | #{var\ 2003}# | |
| 5640 | #{exp\ 2004}# | |
| 5641 | #{mod\ 2005}#) | |
| 5642 | (#{analyze-variable\ 1268}# | |
| 5643 | #{mod\ 2005}# | |
| 5644 | #{var\ 2003}# | |
| 5645 | (lambda (#{mod\ 2006}# #{var\ 2007}# #{public?\ 2008}#) | |
| 5646 | (let ((#{atom-key\ 2009}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5647 | (if (memv #{atom-key\ 2009}# (quote (c))) | |
| 65dd9e38 | 5648 | ((@ (language tree-il) make-module-set) |
| b9434165 LC |
5649 | #{source\ 2002}# |
| 5650 | #{mod\ 2006}# | |
| 5651 | #{var\ 2007}# | |
| 5652 | #{public?\ 2008}# | |
| 5653 | #{exp\ 2004}#) | |
| 5654 | (#{decorate-source\ 1262}# | |
| fc5b616b | 5655 | (list 'set! |
| b9434165 LC |
5656 | (list (if #{public?\ 2008}# |
| 5657 | '@ | |
| 5658 | '@@) | |
| 5659 | #{mod\ 2006}# | |
| 5660 | #{var\ 2007}#) | |
| 5661 | #{exp\ 2004}#) | |
| 5662 | #{source\ 2002}#)))) | |
| 5663 | (lambda (#{var\ 2010}#) | |
| 5664 | (let ((#{atom-key\ 2011}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5665 | (if (memv #{atom-key\ 2011}# (quote (c))) | |
| 65dd9e38 | 5666 | ((@ (language tree-il) make-toplevel-set) |
| b9434165 LC |
5667 | #{source\ 2002}# |
| 5668 | #{var\ 2010}# | |
| 5669 | #{exp\ 2004}#) | |
| 5670 | (#{decorate-source\ 1262}# | |
| 5671 | (list (quote set!) #{var\ 2010}# #{exp\ 2004}#) | |
| 5672 | #{source\ 2002}#))))))) | |
| 5673 | (#{build-global-reference\ 1269}# | |
| 5674 | (lambda (#{source\ 2012}# #{var\ 2013}# #{mod\ 2014}#) | |
| 5675 | (#{analyze-variable\ 1268}# | |
| 5676 | #{mod\ 2014}# | |
| 5677 | #{var\ 2013}# | |
| 5678 | (lambda (#{mod\ 2015}# #{var\ 2016}# #{public?\ 2017}#) | |
| 5679 | (let ((#{atom-key\ 2018}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5680 | (if (memv #{atom-key\ 2018}# (quote (c))) | |
| 65dd9e38 | 5681 | ((@ (language tree-il) make-module-ref) |
| b9434165 LC |
5682 | #{source\ 2012}# |
| 5683 | #{mod\ 2015}# | |
| 5684 | #{var\ 2016}# | |
| 5685 | #{public?\ 2017}#) | |
| 5686 | (#{decorate-source\ 1262}# | |
| 5687 | (list (if #{public?\ 2017}# (quote @) (quote @@)) | |
| 5688 | #{mod\ 2015}# | |
| 5689 | #{var\ 2016}#) | |
| 5690 | #{source\ 2012}#)))) | |
| 5691 | (lambda (#{var\ 2019}#) | |
| 5692 | (let ((#{atom-key\ 2020}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5693 | (if (memv #{atom-key\ 2020}# (quote (c))) | |
| 65dd9e38 | 5694 | ((@ (language tree-il) make-toplevel-ref) |
| b9434165 LC |
5695 | #{source\ 2012}# |
| 5696 | #{var\ 2019}#) | |
| 5697 | (#{decorate-source\ 1262}# | |
| 5698 | #{var\ 2019}# | |
| 5699 | #{source\ 2012}#))))))) | |
| 5700 | (#{analyze-variable\ 1268}# | |
| 5701 | (lambda (#{mod\ 2021}# | |
| 5702 | #{var\ 2022}# | |
| 5703 | #{modref-cont\ 2023}# | |
| 5704 | #{bare-cont\ 2024}#) | |
| 5705 | (if (not #{mod\ 2021}#) | |
| 5706 | (#{bare-cont\ 2024}# #{var\ 2022}#) | |
| 5707 | (let ((#{kind\ 2025}# (car #{mod\ 2021}#)) | |
| 5708 | (#{mod\ 2026}# (cdr #{mod\ 2021}#))) | |
| 5709 | (if (memv #{kind\ 2025}# (quote (public))) | |
| 5710 | (#{modref-cont\ 2023}# | |
| 5711 | #{mod\ 2026}# | |
| 5712 | #{var\ 2022}# | |
| 5713 | #t) | |
| 5714 | (if (memv #{kind\ 2025}# (quote (private))) | |
| 5715 | (if (not (equal? | |
| 5716 | #{mod\ 2026}# | |
| 5717 | (module-name (current-module)))) | |
| 5718 | (#{modref-cont\ 2023}# | |
| 5719 | #{mod\ 2026}# | |
| 5720 | #{var\ 2022}# | |
| 5721 | #f) | |
| 5722 | (#{bare-cont\ 2024}# #{var\ 2022}#)) | |
| 5723 | (if (memv #{kind\ 2025}# (quote (bare))) | |
| 5724 | (#{bare-cont\ 2024}# #{var\ 2022}#) | |
| 5725 | (if (memv #{kind\ 2025}# (quote (hygiene))) | |
| 65dd9e38 | 5726 | (if (if (not (equal? |
| b9434165 | 5727 | #{mod\ 2026}# |
| 65dd9e38 AW |
5728 | (module-name (current-module)))) |
| 5729 | (module-variable | |
| b9434165 LC |
5730 | (resolve-module #{mod\ 2026}#) |
| 5731 | #{var\ 2022}#) | |
| 65dd9e38 | 5732 | #f) |
| b9434165 LC |
5733 | (#{modref-cont\ 2023}# |
| 5734 | #{mod\ 2026}# | |
| 5735 | #{var\ 2022}# | |
| 5736 | #f) | |
| 5737 | (#{bare-cont\ 2024}# #{var\ 2022}#)) | |
| 65dd9e38 AW |
5738 | (syntax-violation |
| 5739 | #f | |
| 5740 | "bad module kind" | |
| b9434165 LC |
5741 | #{var\ 2022}# |
| 5742 | #{mod\ 2026}#))))))))) | |
| 5743 | (#{build-lexical-assignment\ 1267}# | |
| 5744 | (lambda (#{source\ 2027}# | |
| 5745 | #{name\ 2028}# | |
| 5746 | #{var\ 2029}# | |
| 5747 | #{exp\ 2030}#) | |
| 5748 | (let ((#{atom-key\ 2031}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5749 | (if (memv #{atom-key\ 2031}# (quote (c))) | |
| 65dd9e38 | 5750 | ((@ (language tree-il) make-lexical-set) |
| b9434165 LC |
5751 | #{source\ 2027}# |
| 5752 | #{name\ 2028}# | |
| 5753 | #{var\ 2029}# | |
| 5754 | #{exp\ 2030}#) | |
| 5755 | (#{decorate-source\ 1262}# | |
| 5756 | (list (quote set!) #{var\ 2029}# #{exp\ 2030}#) | |
| 5757 | #{source\ 2027}#))))) | |
| 5758 | (#{build-lexical-reference\ 1266}# | |
| 5759 | (lambda (#{type\ 2032}# | |
| 5760 | #{source\ 2033}# | |
| 5761 | #{name\ 2034}# | |
| 5762 | #{var\ 2035}#) | |
| 5763 | (let ((#{atom-key\ 2036}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5764 | (if (memv #{atom-key\ 2036}# (quote (c))) | |
| 65dd9e38 | 5765 | ((@ (language tree-il) make-lexical-ref) |
| b9434165 LC |
5766 | #{source\ 2033}# |
| 5767 | #{name\ 2034}# | |
| 5768 | #{var\ 2035}#) | |
| 5769 | (#{decorate-source\ 1262}# | |
| 5770 | #{var\ 2035}# | |
| 5771 | #{source\ 2033}#))))) | |
| 5772 | (#{build-conditional\ 1265}# | |
| 5773 | (lambda (#{source\ 2037}# | |
| 5774 | #{test-exp\ 2038}# | |
| 5775 | #{then-exp\ 2039}# | |
| 5776 | #{else-exp\ 2040}#) | |
| 5777 | (let ((#{atom-key\ 2041}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5778 | (if (memv #{atom-key\ 2041}# (quote (c))) | |
| 65dd9e38 | 5779 | ((@ (language tree-il) make-conditional) |
| b9434165 LC |
5780 | #{source\ 2037}# |
| 5781 | #{test-exp\ 2038}# | |
| 5782 | #{then-exp\ 2039}# | |
| 5783 | #{else-exp\ 2040}#) | |
| 5784 | (#{decorate-source\ 1262}# | |
| 5785 | (if (equal? #{else-exp\ 2040}# (quote (if #f #f))) | |
| fc5b616b | 5786 | (list 'if |
| b9434165 LC |
5787 | #{test-exp\ 2038}# |
| 5788 | #{then-exp\ 2039}#) | |
| 5789 | (list 'if | |
| 5790 | #{test-exp\ 2038}# | |
| 5791 | #{then-exp\ 2039}# | |
| 5792 | #{else-exp\ 2040}#)) | |
| 5793 | #{source\ 2037}#))))) | |
| 5794 | (#{build-application\ 1264}# | |
| 5795 | (lambda (#{source\ 2042}# | |
| 5796 | #{fun-exp\ 2043}# | |
| 5797 | #{arg-exps\ 2044}#) | |
| 5798 | (let ((#{atom-key\ 2045}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5799 | (if (memv #{atom-key\ 2045}# (quote (c))) | |
| 65dd9e38 | 5800 | ((@ (language tree-il) make-application) |
| b9434165 LC |
5801 | #{source\ 2042}# |
| 5802 | #{fun-exp\ 2043}# | |
| 5803 | #{arg-exps\ 2044}#) | |
| 5804 | (#{decorate-source\ 1262}# | |
| 5805 | (cons #{fun-exp\ 2043}# #{arg-exps\ 2044}#) | |
| 5806 | #{source\ 2042}#))))) | |
| 5807 | (#{build-void\ 1263}# | |
| 5808 | (lambda (#{source\ 2046}#) | |
| 5809 | (let ((#{atom-key\ 2047}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5810 | (if (memv #{atom-key\ 2047}# (quote (c))) | |
| 5811 | ((@ (language tree-il) make-void) | |
| 5812 | #{source\ 2046}#) | |
| 5813 | (#{decorate-source\ 1262}# | |
| 5814 | '(if #f #f) | |
| 5815 | #{source\ 2046}#))))) | |
| 5816 | (#{decorate-source\ 1262}# | |
| 5817 | (lambda (#{e\ 2048}# #{s\ 2049}#) | |
| 65dd9e38 | 5818 | (begin |
| b9434165 LC |
5819 | (if (if (pair? #{e\ 2048}#) #{s\ 2049}# #f) |
| 5820 | (set-source-properties! #{e\ 2048}# #{s\ 2049}#)) | |
| 5821 | #{e\ 2048}#))) | |
| 5822 | (#{get-global-definition-hook\ 1261}# | |
| 5823 | (lambda (#{symbol\ 2050}# #{module\ 2051}#) | |
| fc5b616b | 5824 | (begin |
| b9434165 | 5825 | (if (if (not #{module\ 2051}#) (current-module) #f) |
| 65dd9e38 | 5826 | (warn "module system is booted, we should have a module" |
| b9434165 LC |
5827 | #{symbol\ 2050}#)) |
| 5828 | (let ((#{v\ 2052}# | |
| 5829 | (module-variable | |
| 5830 | (if #{module\ 2051}# | |
| 5831 | (resolve-module (cdr #{module\ 2051}#)) | |
| 5832 | (current-module)) | |
| 5833 | #{symbol\ 2050}#))) | |
| 5834 | (if #{v\ 2052}# | |
| 5835 | (if (variable-bound? #{v\ 2052}#) | |
| 5836 | (let ((#{val\ 2053}# (variable-ref #{v\ 2052}#))) | |
| 5837 | (if (macro? #{val\ 2053}#) | |
| 5838 | (if (syncase-macro-type #{val\ 2053}#) | |
| 5839 | (cons (syncase-macro-type #{val\ 2053}#) | |
| 5840 | (syncase-macro-binding #{val\ 2053}#)) | |
| 65dd9e38 AW |
5841 | #f) |
| 5842 | #f)) | |
| 5843 | #f) | |
| 5844 | #f))))) | |
| b9434165 LC |
5845 | (#{put-global-definition-hook\ 1260}# |
| 5846 | (lambda (#{symbol\ 2054}# #{type\ 2055}# #{val\ 2056}#) | |
| 5847 | (let ((#{existing\ 2057}# | |
| 5848 | (let ((#{v\ 2058}# | |
| 5849 | (module-variable | |
| 5850 | (current-module) | |
| 5851 | #{symbol\ 2054}#))) | |
| 5852 | (if #{v\ 2058}# | |
| 5853 | (if (variable-bound? #{v\ 2058}#) | |
| 5854 | (let ((#{val\ 2059}# (variable-ref #{v\ 2058}#))) | |
| 5855 | (if (macro? #{val\ 2059}#) | |
| 5856 | (if (not (syncase-macro-type #{val\ 2059}#)) | |
| 5857 | #{val\ 2059}# | |
| 65dd9e38 AW |
5858 | #f) |
| 5859 | #f)) | |
| 5860 | #f) | |
| 5861 | #f)))) | |
| 5862 | (module-define! | |
| 5863 | (current-module) | |
| b9434165 LC |
5864 | #{symbol\ 2054}# |
| 5865 | (if #{existing\ 2057}# | |
| 65dd9e38 | 5866 | (make-extended-syncase-macro |
| b9434165 LC |
5867 | #{existing\ 2057}# |
| 5868 | #{type\ 2055}# | |
| 5869 | #{val\ 2056}#) | |
| 5870 | (make-syncase-macro #{type\ 2055}# #{val\ 2056}#)))))) | |
| 5871 | (#{local-eval-hook\ 1259}# | |
| 5872 | (lambda (#{x\ 2060}# #{mod\ 2061}#) | |
| 65dd9e38 | 5873 | (primitive-eval |
| b9434165 LC |
5874 | (list #{noexpand\ 1252}# |
| 5875 | (let ((#{atom-key\ 2062}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5876 | (if (memv #{atom-key\ 2062}# (quote (c))) | |
| 5877 | ((@ (language tree-il) tree-il->scheme) | |
| 5878 | #{x\ 2060}#) | |
| 5879 | #{x\ 2060}#)))))) | |
| 5880 | (#{top-level-eval-hook\ 1258}# | |
| 5881 | (lambda (#{x\ 2063}# #{mod\ 2064}#) | |
| 65dd9e38 | 5882 | (primitive-eval |
| b9434165 LC |
5883 | (list #{noexpand\ 1252}# |
| 5884 | (let ((#{atom-key\ 2065}# (fluid-ref #{*mode*\ 1253}#))) | |
| 5885 | (if (memv #{atom-key\ 2065}# (quote (c))) | |
| 5886 | ((@ (language tree-il) tree-il->scheme) | |
| 5887 | #{x\ 2063}#) | |
| 5888 | #{x\ 2063}#)))))) | |
| 5889 | (#{fx<\ 1257}# <) | |
| 5890 | (#{fx=\ 1256}# =) | |
| 5891 | (#{fx-\ 1255}# -) | |
| 5892 | (#{fx+\ 1254}# +) | |
| 5893 | (#{*mode*\ 1253}# (make-fluid)) | |
| 5894 | (#{noexpand\ 1252}# "noexpand")) | |
| 65dd9e38 | 5895 | (begin |
| b9434165 | 5896 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
5897 | 'local-syntax |
| 5898 | 'letrec-syntax | |
| 5899 | #t) | |
| b9434165 | 5900 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
5901 | 'local-syntax |
| 5902 | 'let-syntax | |
| 5903 | #f) | |
| b9434165 | 5904 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
5905 | 'core |
| 5906 | 'fluid-let-syntax | |
| b9434165 LC |
5907 | (lambda (#{e\ 2066}# |
| 5908 | #{r\ 2067}# | |
| 5909 | #{w\ 2068}# | |
| 5910 | #{s\ 2069}# | |
| 5911 | #{mod\ 2070}#) | |
| 5912 | ((lambda (#{tmp\ 2071}#) | |
| 5913 | ((lambda (#{tmp\ 2072}#) | |
| 5914 | (if (if #{tmp\ 2072}# | |
| 5915 | (apply (lambda (#{_\ 2073}# | |
| 5916 | #{var\ 2074}# | |
| 5917 | #{val\ 2075}# | |
| 5918 | #{e1\ 2076}# | |
| 5919 | #{e2\ 2077}#) | |
| 5920 | (#{valid-bound-ids?\ 1322}# #{var\ 2074}#)) | |
| 5921 | #{tmp\ 2072}#) | |
| 65dd9e38 | 5922 | #f) |
| b9434165 LC |
5923 | (apply (lambda (#{_\ 2079}# |
| 5924 | #{var\ 2080}# | |
| 5925 | #{val\ 2081}# | |
| 5926 | #{e1\ 2082}# | |
| 5927 | #{e2\ 2083}#) | |
| 5928 | (let ((#{names\ 2084}# | |
| 5929 | (map (lambda (#{x\ 2085}#) | |
| 5930 | (#{id-var-name\ 1319}# | |
| 5931 | #{x\ 2085}# | |
| 5932 | #{w\ 2068}#)) | |
| 5933 | #{var\ 2080}#))) | |
| 65dd9e38 AW |
5934 | (begin |
| 5935 | (for-each | |
| b9434165 LC |
5936 | (lambda (#{id\ 2087}# #{n\ 2088}#) |
| 5937 | (let ((#{atom-key\ 2089}# | |
| 5938 | (#{binding-type\ 1289}# | |
| 5939 | (#{lookup\ 1294}# | |
| 5940 | #{n\ 2088}# | |
| 5941 | #{r\ 2067}# | |
| 5942 | #{mod\ 2070}#)))) | |
| 5943 | (if (memv #{atom-key\ 2089}# | |
| 65dd9e38 AW |
5944 | '(displaced-lexical)) |
| 5945 | (syntax-violation | |
| 5946 | 'fluid-let-syntax | |
| 5947 | "identifier out of context" | |
| b9434165 LC |
5948 | #{e\ 2066}# |
| 5949 | (#{source-wrap\ 1326}# | |
| 5950 | #{id\ 2087}# | |
| 5951 | #{w\ 2068}# | |
| 5952 | #{s\ 2069}# | |
| 5953 | #{mod\ 2070}#))))) | |
| 5954 | #{var\ 2080}# | |
| 5955 | #{names\ 2084}#) | |
| 5956 | (#{chi-body\ 1337}# | |
| 5957 | (cons #{e1\ 2082}# #{e2\ 2083}#) | |
| 5958 | (#{source-wrap\ 1326}# | |
| 5959 | #{e\ 2066}# | |
| 5960 | #{w\ 2068}# | |
| 5961 | #{s\ 2069}# | |
| 5962 | #{mod\ 2070}#) | |
| 5963 | (#{extend-env\ 1291}# | |
| 5964 | #{names\ 2084}# | |
| 5965 | (let ((#{trans-r\ 2092}# | |
| 5966 | (#{macros-only-env\ 1293}# | |
| 5967 | #{r\ 2067}#))) | |
| 5968 | (map (lambda (#{x\ 2093}#) | |
| 65dd9e38 | 5969 | (cons 'macro |
| b9434165 LC |
5970 | (#{eval-local-transformer\ 1340}# |
| 5971 | (#{chi\ 1333}# | |
| 5972 | #{x\ 2093}# | |
| 5973 | #{trans-r\ 2092}# | |
| 5974 | #{w\ 2068}# | |
| 5975 | #{mod\ 2070}#) | |
| 5976 | #{mod\ 2070}#))) | |
| 5977 | #{val\ 2081}#)) | |
| 5978 | #{r\ 2067}#) | |
| 5979 | #{w\ 2068}# | |
| 5980 | #{mod\ 2070}#)))) | |
| 5981 | #{tmp\ 2072}#) | |
| 5982 | ((lambda (#{_\ 2095}#) | |
| 65dd9e38 AW |
5983 | (syntax-violation |
| 5984 | 'fluid-let-syntax | |
| 5985 | "bad syntax" | |
| b9434165 LC |
5986 | (#{source-wrap\ 1326}# |
| 5987 | #{e\ 2066}# | |
| 5988 | #{w\ 2068}# | |
| 5989 | #{s\ 2069}# | |
| 5990 | #{mod\ 2070}#))) | |
| 5991 | #{tmp\ 2071}#))) | |
| 65dd9e38 | 5992 | ($sc-dispatch |
| b9434165 | 5993 | #{tmp\ 2071}# |
| 65dd9e38 | 5994 | '(any #(each (any any)) any . each-any)))) |
| b9434165 LC |
5995 | #{e\ 2066}#))) |
| 5996 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
5997 | 'core |
| 5998 | 'quote | |
| b9434165 LC |
5999 | (lambda (#{e\ 2096}# |
| 6000 | #{r\ 2097}# | |
| 6001 | #{w\ 2098}# | |
| 6002 | #{s\ 2099}# | |
| 6003 | #{mod\ 2100}#) | |
| 6004 | ((lambda (#{tmp\ 2101}#) | |
| 6005 | ((lambda (#{tmp\ 2102}#) | |
| 6006 | (if #{tmp\ 2102}# | |
| 6007 | (apply (lambda (#{_\ 2103}# #{e\ 2104}#) | |
| 6008 | (#{build-data\ 1275}# | |
| 6009 | #{s\ 2099}# | |
| 6010 | (#{strip\ 1343}# #{e\ 2104}# #{w\ 2098}#))) | |
| 6011 | #{tmp\ 2102}#) | |
| 6012 | ((lambda (#{_\ 2105}#) | |
| 65dd9e38 AW |
6013 | (syntax-violation |
| 6014 | 'quote | |
| 6015 | "bad syntax" | |
| b9434165 LC |
6016 | (#{source-wrap\ 1326}# |
| 6017 | #{e\ 2096}# | |
| 6018 | #{w\ 2098}# | |
| 6019 | #{s\ 2099}# | |
| 6020 | #{mod\ 2100}#))) | |
| 6021 | #{tmp\ 2101}#))) | |
| 6022 | ($sc-dispatch #{tmp\ 2101}# (quote (any any))))) | |
| 6023 | #{e\ 2096}#))) | |
| 6024 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
6025 | 'core |
| 6026 | 'syntax | |
| b9434165 LC |
6027 | (letrec ((#{regen\ 2113}# |
| 6028 | (lambda (#{x\ 2114}#) | |
| 6029 | (let ((#{atom-key\ 2115}# (car #{x\ 2114}#))) | |
| 6030 | (if (memv #{atom-key\ 2115}# (quote (ref))) | |
| 6031 | (#{build-lexical-reference\ 1266}# | |
| 65dd9e38 AW |
6032 | 'value |
| 6033 | #f | |
| b9434165 LC |
6034 | (cadr #{x\ 2114}#) |
| 6035 | (cadr #{x\ 2114}#)) | |
| 6036 | (if (memv #{atom-key\ 2115}# (quote (primitive))) | |
| 6037 | (#{build-primref\ 1274}# #f (cadr #{x\ 2114}#)) | |
| 6038 | (if (memv #{atom-key\ 2115}# (quote (quote))) | |
| 6039 | (#{build-data\ 1275}# #f (cadr #{x\ 2114}#)) | |
| 6040 | (if (memv #{atom-key\ 2115}# (quote (lambda))) | |
| 6041 | (#{build-lambda\ 1273}# | |
| 65dd9e38 | 6042 | #f |
| b9434165 LC |
6043 | (cadr #{x\ 2114}#) |
| 6044 | (cadr #{x\ 2114}#) | |
| 65dd9e38 | 6045 | #f |
| b9434165 LC |
6046 | (#{regen\ 2113}# (caddr #{x\ 2114}#))) |
| 6047 | (#{build-application\ 1264}# | |
| 65dd9e38 | 6048 | #f |
| b9434165 LC |
6049 | (#{build-primref\ 1274}# #f (car #{x\ 2114}#)) |
| 6050 | (map #{regen\ 2113}# | |
| 6051 | (cdr #{x\ 2114}#)))))))))) | |
| 6052 | (#{gen-vector\ 2112}# | |
| 6053 | (lambda (#{x\ 2116}#) | |
| 6054 | (if (eq? (car #{x\ 2116}#) (quote list)) | |
| 6055 | (cons (quote vector) (cdr #{x\ 2116}#)) | |
| 6056 | (if (eq? (car #{x\ 2116}#) (quote quote)) | |
| 6057 | (list 'quote | |
| 6058 | (list->vector (cadr #{x\ 2116}#))) | |
| 6059 | (list (quote list->vector) #{x\ 2116}#))))) | |
| 6060 | (#{gen-append\ 2111}# | |
| 6061 | (lambda (#{x\ 2117}# #{y\ 2118}#) | |
| 6062 | (if (equal? #{y\ 2118}# (quote (quote ()))) | |
| 6063 | #{x\ 2117}# | |
| 6064 | (list (quote append) #{x\ 2117}# #{y\ 2118}#)))) | |
| 6065 | (#{gen-cons\ 2110}# | |
| 6066 | (lambda (#{x\ 2119}# #{y\ 2120}#) | |
| 6067 | (let ((#{atom-key\ 2121}# (car #{y\ 2120}#))) | |
| 6068 | (if (memv #{atom-key\ 2121}# (quote (quote))) | |
| 6069 | (if (eq? (car #{x\ 2119}#) (quote quote)) | |
| 65dd9e38 | 6070 | (list 'quote |
| b9434165 LC |
6071 | (cons (cadr #{x\ 2119}#) (cadr #{y\ 2120}#))) |
| 6072 | (if (eq? (cadr #{y\ 2120}#) (quote ())) | |
| 6073 | (list (quote list) #{x\ 2119}#) | |
| 6074 | (list (quote cons) #{x\ 2119}# #{y\ 2120}#))) | |
| 6075 | (if (memv #{atom-key\ 2121}# (quote (list))) | |
| 6076 | (cons 'list | |
| 6077 | (cons #{x\ 2119}# (cdr #{y\ 2120}#))) | |
| 6078 | (list (quote cons) #{x\ 2119}# #{y\ 2120}#)))))) | |
| 6079 | (#{gen-map\ 2109}# | |
| 6080 | (lambda (#{e\ 2122}# #{map-env\ 2123}#) | |
| 6081 | (let ((#{formals\ 2124}# (map cdr #{map-env\ 2123}#)) | |
| 6082 | (#{actuals\ 2125}# | |
| 6083 | (map (lambda (#{x\ 2126}#) | |
| 6084 | (list (quote ref) (car #{x\ 2126}#))) | |
| 6085 | #{map-env\ 2123}#))) | |
| 6086 | (if (eq? (car #{e\ 2122}#) (quote ref)) | |
| 6087 | (car #{actuals\ 2125}#) | |
| 65dd9e38 | 6088 | (if (and-map |
| b9434165 LC |
6089 | (lambda (#{x\ 2127}#) |
| 6090 | (if (eq? (car #{x\ 2127}#) (quote ref)) | |
| 6091 | (memq (cadr #{x\ 2127}#) #{formals\ 2124}#) | |
| 65dd9e38 | 6092 | #f)) |
| b9434165 | 6093 | (cdr #{e\ 2122}#)) |
| 65dd9e38 | 6094 | (cons 'map |
| b9434165 LC |
6095 | (cons (list 'primitive |
| 6096 | (car #{e\ 2122}#)) | |
| 6097 | (map (let ((#{r\ 2128}# | |
| 6098 | (map cons | |
| 6099 | #{formals\ 2124}# | |
| 6100 | #{actuals\ 2125}#))) | |
| 6101 | (lambda (#{x\ 2129}#) | |
| 6102 | (cdr (assq (cadr #{x\ 2129}#) | |
| 6103 | #{r\ 2128}#)))) | |
| 6104 | (cdr #{e\ 2122}#)))) | |
| 65dd9e38 | 6105 | (cons 'map |
| b9434165 LC |
6106 | (cons (list 'lambda |
| 6107 | #{formals\ 2124}# | |
| 6108 | #{e\ 2122}#) | |
| 6109 | #{actuals\ 2125}#))))))) | |
| 6110 | (#{gen-mappend\ 2108}# | |
| 6111 | (lambda (#{e\ 2130}# #{map-env\ 2131}#) | |
| 65dd9e38 AW |
6112 | (list 'apply |
| 6113 | '(primitive append) | |
| b9434165 LC |
6114 | (#{gen-map\ 2109}# #{e\ 2130}# #{map-env\ 2131}#)))) |
| 6115 | (#{gen-ref\ 2107}# | |
| 6116 | (lambda (#{src\ 2132}# | |
| 6117 | #{var\ 2133}# | |
| 6118 | #{level\ 2134}# | |
| 6119 | #{maps\ 2135}#) | |
| 6120 | (if (#{fx=\ 1256}# #{level\ 2134}# 0) | |
| 6121 | (values #{var\ 2133}# #{maps\ 2135}#) | |
| 6122 | (if (null? #{maps\ 2135}#) | |
| 65dd9e38 AW |
6123 | (syntax-violation |
| 6124 | 'syntax | |
| 6125 | "missing ellipsis" | |
| b9434165 | 6126 | #{src\ 2132}#) |
| 65dd9e38 AW |
6127 | (call-with-values |
| 6128 | (lambda () | |
| b9434165 LC |
6129 | (#{gen-ref\ 2107}# |
| 6130 | #{src\ 2132}# | |
| 6131 | #{var\ 2133}# | |
| 6132 | (#{fx-\ 1255}# #{level\ 2134}# 1) | |
| 6133 | (cdr #{maps\ 2135}#))) | |
| 6134 | (lambda (#{outer-var\ 2136}# #{outer-maps\ 2137}#) | |
| 6135 | (let ((#{b\ 2138}# | |
| 6136 | (assq #{outer-var\ 2136}# | |
| 6137 | (car #{maps\ 2135}#)))) | |
| 6138 | (if #{b\ 2138}# | |
| 6139 | (values (cdr #{b\ 2138}#) #{maps\ 2135}#) | |
| 6140 | (let ((#{inner-var\ 2139}# | |
| 6141 | (#{gen-var\ 1344}# (quote tmp)))) | |
| 65dd9e38 | 6142 | (values |
| b9434165 LC |
6143 | #{inner-var\ 2139}# |
| 6144 | (cons (cons (cons #{outer-var\ 2136}# | |
| 6145 | #{inner-var\ 2139}#) | |
| 6146 | (car #{maps\ 2135}#)) | |
| 6147 | #{outer-maps\ 2137}#))))))))))) | |
| 6148 | (#{gen-syntax\ 2106}# | |
| 6149 | (lambda (#{src\ 2140}# | |
| 6150 | #{e\ 2141}# | |
| 6151 | #{r\ 2142}# | |
| 6152 | #{maps\ 2143}# | |
| 6153 | #{ellipsis?\ 2144}# | |
| 6154 | #{mod\ 2145}#) | |
| 6155 | (if (#{id?\ 1297}# #{e\ 2141}#) | |
| 6156 | (let ((#{label\ 2146}# | |
| 6157 | (#{id-var-name\ 1319}# | |
| 6158 | #{e\ 2141}# | |
| 6159 | '(())))) | |
| 6160 | (let ((#{b\ 2147}# | |
| 6161 | (#{lookup\ 1294}# | |
| 6162 | #{label\ 2146}# | |
| 6163 | #{r\ 2142}# | |
| 6164 | #{mod\ 2145}#))) | |
| 6165 | (if (eq? (#{binding-type\ 1289}# #{b\ 2147}#) | |
| 6166 | 'syntax) | |
| 65dd9e38 AW |
6167 | (call-with-values |
| 6168 | (lambda () | |
| b9434165 LC |
6169 | (let ((#{var.lev\ 2148}# |
| 6170 | (#{binding-value\ 1290}# | |
| 6171 | #{b\ 2147}#))) | |
| 6172 | (#{gen-ref\ 2107}# | |
| 6173 | #{src\ 2140}# | |
| 6174 | (car #{var.lev\ 2148}#) | |
| 6175 | (cdr #{var.lev\ 2148}#) | |
| 6176 | #{maps\ 2143}#))) | |
| 6177 | (lambda (#{var\ 2149}# #{maps\ 2150}#) | |
| 6178 | (values | |
| 6179 | (list (quote ref) #{var\ 2149}#) | |
| 6180 | #{maps\ 2150}#))) | |
| 6181 | (if (#{ellipsis?\ 2144}# #{e\ 2141}#) | |
| 65dd9e38 AW |
6182 | (syntax-violation |
| 6183 | 'syntax | |
| 6184 | "misplaced ellipsis" | |
| b9434165 LC |
6185 | #{src\ 2140}#) |
| 6186 | (values | |
| 6187 | (list (quote quote) #{e\ 2141}#) | |
| 6188 | #{maps\ 2143}#))))) | |
| 6189 | ((lambda (#{tmp\ 2151}#) | |
| 6190 | ((lambda (#{tmp\ 2152}#) | |
| 6191 | (if (if #{tmp\ 2152}# | |
| 6192 | (apply (lambda (#{dots\ 2153}# #{e\ 2154}#) | |
| 6193 | (#{ellipsis?\ 2144}# | |
| 6194 | #{dots\ 2153}#)) | |
| 6195 | #{tmp\ 2152}#) | |
| 65dd9e38 | 6196 | #f) |
| b9434165 LC |
6197 | (apply (lambda (#{dots\ 2155}# #{e\ 2156}#) |
| 6198 | (#{gen-syntax\ 2106}# | |
| 6199 | #{src\ 2140}# | |
| 6200 | #{e\ 2156}# | |
| 6201 | #{r\ 2142}# | |
| 6202 | #{maps\ 2143}# | |
| 6203 | (lambda (#{x\ 2157}#) #f) | |
| 6204 | #{mod\ 2145}#)) | |
| 6205 | #{tmp\ 2152}#) | |
| 6206 | ((lambda (#{tmp\ 2158}#) | |
| 6207 | (if (if #{tmp\ 2158}# | |
| 6208 | (apply (lambda (#{x\ 2159}# | |
| 6209 | #{dots\ 2160}# | |
| 6210 | #{y\ 2161}#) | |
| 6211 | (#{ellipsis?\ 2144}# | |
| 6212 | #{dots\ 2160}#)) | |
| 6213 | #{tmp\ 2158}#) | |
| 65dd9e38 | 6214 | #f) |
| b9434165 LC |
6215 | (apply (lambda (#{x\ 2162}# |
| 6216 | #{dots\ 2163}# | |
| 6217 | #{y\ 2164}#) | |
| 6218 | (letrec ((#{f\ 2165}# | |
| 6219 | (lambda (#{y\ 2166}# | |
| 6220 | #{k\ 2167}#) | |
| 6221 | ((lambda (#{tmp\ 2171}#) | |
| 6222 | ((lambda (#{tmp\ 2172}#) | |
| 6223 | (if (if #{tmp\ 2172}# | |
| 6224 | (apply (lambda (#{dots\ 2173}# | |
| 6225 | #{y\ 2174}#) | |
| 6226 | (#{ellipsis?\ 2144}# | |
| 6227 | #{dots\ 2173}#)) | |
| 6228 | #{tmp\ 2172}#) | |
| 6229 | #f) | |
| 6230 | (apply (lambda (#{dots\ 2175}# | |
| 6231 | #{y\ 2176}#) | |
| 6232 | (#{f\ 2165}# | |
| 6233 | #{y\ 2176}# | |
| 6234 | (lambda (#{maps\ 2177}#) | |
| 6235 | (call-with-values | |
| 6236 | (lambda () | |
| 6237 | (#{k\ 2167}# | |
| 6238 | (cons '() | |
| 6239 | #{maps\ 2177}#))) | |
| 6240 | (lambda (#{x\ 2178}# | |
| 6241 | #{maps\ 2179}#) | |
| 6242 | (if (null? (car #{maps\ 2179}#)) | |
| 6243 | (syntax-violation | |
| 6244 | 'syntax | |
| 6245 | "extra ellipsis" | |
| 6246 | #{src\ 2140}#) | |
| 6247 | (values | |
| 6248 | (#{gen-mappend\ 2108}# | |
| 6249 | #{x\ 2178}# | |
| 6250 | (car #{maps\ 2179}#)) | |
| 6251 | (cdr #{maps\ 2179}#)))))))) | |
| 6252 | #{tmp\ 2172}#) | |
| 6253 | ((lambda (#{_\ 2180}#) | |
| 6254 | (call-with-values | |
| 6255 | (lambda () | |
| 6256 | (#{gen-syntax\ 2106}# | |
| 6257 | #{src\ 2140}# | |
| 6258 | #{y\ 2166}# | |
| 6259 | #{r\ 2142}# | |
| 6260 | #{maps\ 2143}# | |
| 6261 | #{ellipsis?\ 2144}# | |
| 6262 | #{mod\ 2145}#)) | |
| 6263 | (lambda (#{y\ 2181}# | |
| 6264 | #{maps\ 2182}#) | |
| 89cb70a0 AW |
6265 | (call-with-values |
| 6266 | (lambda () | |
| b9434165 LC |
6267 | (#{k\ 2167}# |
| 6268 | #{maps\ 2182}#)) | |
| 6269 | (lambda (#{x\ 2183}# | |
| 6270 | #{maps\ 2184}#) | |
| 6271 | (values | |
| 6272 | (#{gen-append\ 2111}# | |
| 6273 | #{x\ 2183}# | |
| 6274 | #{y\ 2181}#) | |
| 6275 | #{maps\ 2184}#)))))) | |
| 6276 | #{tmp\ 2171}#))) | |
| 6277 | ($sc-dispatch | |
| 6278 | #{tmp\ 2171}# | |
| 6279 | '(any . any)))) | |
| 6280 | #{y\ 2166}#)))) | |
| 6281 | (#{f\ 2165}# | |
| 6282 | #{y\ 2164}# | |
| 6283 | (lambda (#{maps\ 2168}#) | |
| 6284 | (call-with-values | |
| 6285 | (lambda () | |
| 6286 | (#{gen-syntax\ 2106}# | |
| 6287 | #{src\ 2140}# | |
| 6288 | #{x\ 2162}# | |
| 6289 | #{r\ 2142}# | |
| 6290 | (cons '() | |
| 6291 | #{maps\ 2168}#) | |
| 6292 | #{ellipsis?\ 2144}# | |
| 6293 | #{mod\ 2145}#)) | |
| 6294 | (lambda (#{x\ 2169}# | |
| 6295 | #{maps\ 2170}#) | |
| 6296 | (if (null? (car #{maps\ 2170}#)) | |
| 6297 | (syntax-violation | |
| 6298 | 'syntax | |
| 6299 | "extra ellipsis" | |
| 6300 | #{src\ 2140}#) | |
| 6301 | (values | |
| 6302 | (#{gen-map\ 2109}# | |
| 6303 | #{x\ 2169}# | |
| 6304 | (car #{maps\ 2170}#)) | |
| 6305 | (cdr #{maps\ 2170}#))))))))) | |
| 6306 | #{tmp\ 2158}#) | |
| 6307 | ((lambda (#{tmp\ 2185}#) | |
| 6308 | (if #{tmp\ 2185}# | |
| 6309 | (apply (lambda (#{x\ 2186}# | |
| 6310 | #{y\ 2187}#) | |
| 65dd9e38 AW |
6311 | (call-with-values |
| 6312 | (lambda () | |
| b9434165 LC |
6313 | (#{gen-syntax\ 2106}# |
| 6314 | #{src\ 2140}# | |
| 6315 | #{x\ 2186}# | |
| 6316 | #{r\ 2142}# | |
| 6317 | #{maps\ 2143}# | |
| 6318 | #{ellipsis?\ 2144}# | |
| 6319 | #{mod\ 2145}#)) | |
| 6320 | (lambda (#{x\ 2188}# | |
| 6321 | #{maps\ 2189}#) | |
| 65dd9e38 AW |
6322 | (call-with-values |
| 6323 | (lambda () | |
| b9434165 LC |
6324 | (#{gen-syntax\ 2106}# |
| 6325 | #{src\ 2140}# | |
| 6326 | #{y\ 2187}# | |
| 6327 | #{r\ 2142}# | |
| 6328 | #{maps\ 2189}# | |
| 6329 | #{ellipsis?\ 2144}# | |
| 6330 | #{mod\ 2145}#)) | |
| 6331 | (lambda (#{y\ 2190}# | |
| 6332 | #{maps\ 2191}#) | |
| 65dd9e38 | 6333 | (values |
| b9434165 LC |
6334 | (#{gen-cons\ 2110}# |
| 6335 | #{x\ 2188}# | |
| 6336 | #{y\ 2190}#) | |
| 6337 | #{maps\ 2191}#)))))) | |
| 6338 | #{tmp\ 2185}#) | |
| 6339 | ((lambda (#{tmp\ 2192}#) | |
| 6340 | (if #{tmp\ 2192}# | |
| 6341 | (apply (lambda (#{e1\ 2193}# | |
| 6342 | #{e2\ 2194}#) | |
| 65dd9e38 AW |
6343 | (call-with-values |
| 6344 | (lambda () | |
| b9434165 LC |
6345 | (#{gen-syntax\ 2106}# |
| 6346 | #{src\ 2140}# | |
| 6347 | (cons #{e1\ 2193}# | |
| 6348 | #{e2\ 2194}#) | |
| 6349 | #{r\ 2142}# | |
| 6350 | #{maps\ 2143}# | |
| 6351 | #{ellipsis?\ 2144}# | |
| 6352 | #{mod\ 2145}#)) | |
| 6353 | (lambda (#{e\ 2196}# | |
| 6354 | #{maps\ 2197}#) | |
| 65dd9e38 | 6355 | (values |
| b9434165 LC |
6356 | (#{gen-vector\ 2112}# |
| 6357 | #{e\ 2196}#) | |
| 6358 | #{maps\ 2197}#)))) | |
| 6359 | #{tmp\ 2192}#) | |
| 6360 | ((lambda (#{_\ 2198}#) | |
| 65dd9e38 | 6361 | (values |
| b9434165 LC |
6362 | (list 'quote |
| 6363 | #{e\ 2141}#) | |
| 6364 | #{maps\ 2143}#)) | |
| 6365 | #{tmp\ 2151}#))) | |
| 65dd9e38 | 6366 | ($sc-dispatch |
| b9434165 | 6367 | #{tmp\ 2151}# |
| 65dd9e38 AW |
6368 | '#(vector (any . each-any)))))) |
| 6369 | ($sc-dispatch | |
| b9434165 | 6370 | #{tmp\ 2151}# |
| 65dd9e38 AW |
6371 | '(any . any))))) |
| 6372 | ($sc-dispatch | |
| b9434165 | 6373 | #{tmp\ 2151}# |
| 65dd9e38 | 6374 | '(any any . any))))) |
| b9434165 LC |
6375 | ($sc-dispatch #{tmp\ 2151}# (quote (any any))))) |
| 6376 | #{e\ 2141}#))))) | |
| 6377 | (lambda (#{e\ 2199}# | |
| 6378 | #{r\ 2200}# | |
| 6379 | #{w\ 2201}# | |
| 6380 | #{s\ 2202}# | |
| 6381 | #{mod\ 2203}#) | |
| 6382 | (let ((#{e\ 2204}# | |
| 6383 | (#{source-wrap\ 1326}# | |
| 6384 | #{e\ 2199}# | |
| 6385 | #{w\ 2201}# | |
| 6386 | #{s\ 2202}# | |
| 6387 | #{mod\ 2203}#))) | |
| 6388 | ((lambda (#{tmp\ 2205}#) | |
| 6389 | ((lambda (#{tmp\ 2206}#) | |
| 6390 | (if #{tmp\ 2206}# | |
| 6391 | (apply (lambda (#{_\ 2207}# #{x\ 2208}#) | |
| 65dd9e38 AW |
6392 | (call-with-values |
| 6393 | (lambda () | |
| b9434165 LC |
6394 | (#{gen-syntax\ 2106}# |
| 6395 | #{e\ 2204}# | |
| 6396 | #{x\ 2208}# | |
| 6397 | #{r\ 2200}# | |
| 65dd9e38 | 6398 | '() |
| b9434165 LC |
6399 | #{ellipsis?\ 1342}# |
| 6400 | #{mod\ 2203}#)) | |
| 6401 | (lambda (#{e\ 2209}# #{maps\ 2210}#) | |
| 6402 | (#{regen\ 2113}# #{e\ 2209}#)))) | |
| 6403 | #{tmp\ 2206}#) | |
| 6404 | ((lambda (#{_\ 2211}#) | |
| 65dd9e38 AW |
6405 | (syntax-violation |
| 6406 | 'syntax | |
| 6407 | "bad `syntax' form" | |
| b9434165 LC |
6408 | #{e\ 2204}#)) |
| 6409 | #{tmp\ 2205}#))) | |
| 6410 | ($sc-dispatch #{tmp\ 2205}# (quote (any any))))) | |
| 6411 | #{e\ 2204}#))))) | |
| 6412 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
6413 | 'core |
| 6414 | 'lambda | |
| b9434165 LC |
6415 | (lambda (#{e\ 2212}# |
| 6416 | #{r\ 2213}# | |
| 6417 | #{w\ 2214}# | |
| 6418 | #{s\ 2215}# | |
| 6419 | #{mod\ 2216}#) | |
| 6420 | ((lambda (#{tmp\ 2217}#) | |
| 6421 | ((lambda (#{tmp\ 2218}#) | |
| 6422 | (if #{tmp\ 2218}# | |
| 6423 | (apply (lambda (#{_\ 2219}# #{c\ 2220}#) | |
| 6424 | (#{chi-lambda-clause\ 1338}# | |
| 6425 | (#{source-wrap\ 1326}# | |
| 6426 | #{e\ 2212}# | |
| 6427 | #{w\ 2214}# | |
| 6428 | #{s\ 2215}# | |
| 6429 | #{mod\ 2216}#) | |
| 65dd9e38 | 6430 | #f |
| b9434165 LC |
6431 | #{c\ 2220}# |
| 6432 | #{r\ 2213}# | |
| 6433 | #{w\ 2214}# | |
| 6434 | #{mod\ 2216}# | |
| 6435 | (lambda (#{names\ 2221}# | |
| 6436 | #{vars\ 2222}# | |
| 6437 | #{docstring\ 2223}# | |
| 6438 | #{body\ 2224}#) | |
| 6439 | (#{build-lambda\ 1273}# | |
| 6440 | #{s\ 2215}# | |
| 6441 | #{names\ 2221}# | |
| 6442 | #{vars\ 2222}# | |
| 6443 | #{docstring\ 2223}# | |
| 6444 | #{body\ 2224}#)))) | |
| 6445 | #{tmp\ 2218}#) | |
| 65dd9e38 AW |
6446 | (syntax-violation |
| 6447 | #f | |
| 6448 | "source expression failed to match any pattern" | |
| b9434165 LC |
6449 | #{tmp\ 2217}#))) |
| 6450 | ($sc-dispatch #{tmp\ 2217}# (quote (any . any))))) | |
| 6451 | #{e\ 2212}#))) | |
| 6452 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
6453 | 'core |
| 6454 | 'let | |
| b9434165 LC |
6455 | (letrec ((#{chi-let\ 2225}# |
| 6456 | (lambda (#{e\ 2226}# | |
| 6457 | #{r\ 2227}# | |
| 6458 | #{w\ 2228}# | |
| 6459 | #{s\ 2229}# | |
| 6460 | #{mod\ 2230}# | |
| 6461 | #{constructor\ 2231}# | |
| 6462 | #{ids\ 2232}# | |
| 6463 | #{vals\ 2233}# | |
| 6464 | #{exps\ 2234}#) | |
| 6465 | (if (not (#{valid-bound-ids?\ 1322}# #{ids\ 2232}#)) | |
| 65dd9e38 AW |
6466 | (syntax-violation |
| 6467 | 'let | |
| 6468 | "duplicate bound variable" | |
| b9434165 LC |
6469 | #{e\ 2226}#) |
| 6470 | (let ((#{labels\ 2235}# | |
| 6471 | (#{gen-labels\ 1303}# #{ids\ 2232}#)) | |
| 6472 | (#{new-vars\ 2236}# | |
| 6473 | (map #{gen-var\ 1344}# #{ids\ 2232}#))) | |
| 6474 | (let ((#{nw\ 2237}# | |
| 6475 | (#{make-binding-wrap\ 1314}# | |
| 6476 | #{ids\ 2232}# | |
| 6477 | #{labels\ 2235}# | |
| 6478 | #{w\ 2228}#)) | |
| 6479 | (#{nr\ 2238}# | |
| 6480 | (#{extend-var-env\ 1292}# | |
| 6481 | #{labels\ 2235}# | |
| 6482 | #{new-vars\ 2236}# | |
| 6483 | #{r\ 2227}#))) | |
| 6484 | (#{constructor\ 2231}# | |
| 6485 | #{s\ 2229}# | |
| 6486 | (map syntax->datum #{ids\ 2232}#) | |
| 6487 | #{new-vars\ 2236}# | |
| 6488 | (map (lambda (#{x\ 2239}#) | |
| 6489 | (#{chi\ 1333}# | |
| 6490 | #{x\ 2239}# | |
| 6491 | #{r\ 2227}# | |
| 6492 | #{w\ 2228}# | |
| 6493 | #{mod\ 2230}#)) | |
| 6494 | #{vals\ 2233}#) | |
| 6495 | (#{chi-body\ 1337}# | |
| 6496 | #{exps\ 2234}# | |
| 6497 | (#{source-wrap\ 1326}# | |
| 6498 | #{e\ 2226}# | |
| 6499 | #{nw\ 2237}# | |
| 6500 | #{s\ 2229}# | |
| 6501 | #{mod\ 2230}#) | |
| 6502 | #{nr\ 2238}# | |
| 6503 | #{nw\ 2237}# | |
| 6504 | #{mod\ 2230}#)))))))) | |
| 6505 | (lambda (#{e\ 2240}# | |
| 6506 | #{r\ 2241}# | |
| 6507 | #{w\ 2242}# | |
| 6508 | #{s\ 2243}# | |
| 6509 | #{mod\ 2244}#) | |
| 6510 | ((lambda (#{tmp\ 2245}#) | |
| 6511 | ((lambda (#{tmp\ 2246}#) | |
| 6512 | (if (if #{tmp\ 2246}# | |
| 6513 | (apply (lambda (#{_\ 2247}# | |
| 6514 | #{id\ 2248}# | |
| 6515 | #{val\ 2249}# | |
| 6516 | #{e1\ 2250}# | |
| 6517 | #{e2\ 2251}#) | |
| 6518 | (and-map #{id?\ 1297}# #{id\ 2248}#)) | |
| 6519 | #{tmp\ 2246}#) | |
| 65dd9e38 | 6520 | #f) |
| b9434165 LC |
6521 | (apply (lambda (#{_\ 2253}# |
| 6522 | #{id\ 2254}# | |
| 6523 | #{val\ 2255}# | |
| 6524 | #{e1\ 2256}# | |
| 6525 | #{e2\ 2257}#) | |
| 6526 | (#{chi-let\ 2225}# | |
| 6527 | #{e\ 2240}# | |
| 6528 | #{r\ 2241}# | |
| 6529 | #{w\ 2242}# | |
| 6530 | #{s\ 2243}# | |
| 6531 | #{mod\ 2244}# | |
| 6532 | #{build-let\ 1277}# | |
| 6533 | #{id\ 2254}# | |
| 6534 | #{val\ 2255}# | |
| 6535 | (cons #{e1\ 2256}# #{e2\ 2257}#))) | |
| 6536 | #{tmp\ 2246}#) | |
| 6537 | ((lambda (#{tmp\ 2261}#) | |
| 6538 | (if (if #{tmp\ 2261}# | |
| 6539 | (apply (lambda (#{_\ 2262}# | |
| 6540 | #{f\ 2263}# | |
| 6541 | #{id\ 2264}# | |
| 6542 | #{val\ 2265}# | |
| 6543 | #{e1\ 2266}# | |
| 6544 | #{e2\ 2267}#) | |
| 6545 | (if (#{id?\ 1297}# #{f\ 2263}#) | |
| 6546 | (and-map #{id?\ 1297}# #{id\ 2264}#) | |
| 65dd9e38 | 6547 | #f)) |
| b9434165 | 6548 | #{tmp\ 2261}#) |
| 65dd9e38 | 6549 | #f) |
| b9434165 LC |
6550 | (apply (lambda (#{_\ 2269}# |
| 6551 | #{f\ 2270}# | |
| 6552 | #{id\ 2271}# | |
| 6553 | #{val\ 2272}# | |
| 6554 | #{e1\ 2273}# | |
| 6555 | #{e2\ 2274}#) | |
| 6556 | (#{chi-let\ 2225}# | |
| 6557 | #{e\ 2240}# | |
| 6558 | #{r\ 2241}# | |
| 6559 | #{w\ 2242}# | |
| 6560 | #{s\ 2243}# | |
| 6561 | #{mod\ 2244}# | |
| 6562 | #{build-named-let\ 1278}# | |
| 6563 | (cons #{f\ 2270}# #{id\ 2271}#) | |
| 6564 | #{val\ 2272}# | |
| 6565 | (cons #{e1\ 2273}# #{e2\ 2274}#))) | |
| 6566 | #{tmp\ 2261}#) | |
| 6567 | ((lambda (#{_\ 2278}#) | |
| 65dd9e38 AW |
6568 | (syntax-violation |
| 6569 | 'let | |
| 6570 | "bad let" | |
| b9434165 LC |
6571 | (#{source-wrap\ 1326}# |
| 6572 | #{e\ 2240}# | |
| 6573 | #{w\ 2242}# | |
| 6574 | #{s\ 2243}# | |
| 6575 | #{mod\ 2244}#))) | |
| 6576 | #{tmp\ 2245}#))) | |
| 65dd9e38 | 6577 | ($sc-dispatch |
| b9434165 | 6578 | #{tmp\ 2245}# |
| 65dd9e38 AW |
6579 | '(any any #(each (any any)) any . each-any))))) |
| 6580 | ($sc-dispatch | |
| b9434165 | 6581 | #{tmp\ 2245}# |
| 65dd9e38 | 6582 | '(any #(each (any any)) any . each-any)))) |
| b9434165 LC |
6583 | #{e\ 2240}#)))) |
| 6584 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
6585 | 'core |
| 6586 | 'letrec | |
| b9434165 LC |
6587 | (lambda (#{e\ 2279}# |
| 6588 | #{r\ 2280}# | |
| 6589 | #{w\ 2281}# | |
| 6590 | #{s\ 2282}# | |
| 6591 | #{mod\ 2283}#) | |
| 6592 | ((lambda (#{tmp\ 2284}#) | |
| 6593 | ((lambda (#{tmp\ 2285}#) | |
| 6594 | (if (if #{tmp\ 2285}# | |
| 6595 | (apply (lambda (#{_\ 2286}# | |
| 6596 | #{id\ 2287}# | |
| 6597 | #{val\ 2288}# | |
| 6598 | #{e1\ 2289}# | |
| 6599 | #{e2\ 2290}#) | |
| 6600 | (and-map #{id?\ 1297}# #{id\ 2287}#)) | |
| 6601 | #{tmp\ 2285}#) | |
| 65dd9e38 | 6602 | #f) |
| b9434165 LC |
6603 | (apply (lambda (#{_\ 2292}# |
| 6604 | #{id\ 2293}# | |
| 6605 | #{val\ 2294}# | |
| 6606 | #{e1\ 2295}# | |
| 6607 | #{e2\ 2296}#) | |
| 6608 | (let ((#{ids\ 2297}# #{id\ 2293}#)) | |
| 6609 | (if (not (#{valid-bound-ids?\ 1322}# | |
| 6610 | #{ids\ 2297}#)) | |
| 65dd9e38 AW |
6611 | (syntax-violation |
| 6612 | 'letrec | |
| 6613 | "duplicate bound variable" | |
| b9434165 LC |
6614 | #{e\ 2279}#) |
| 6615 | (let ((#{labels\ 2299}# | |
| 6616 | (#{gen-labels\ 1303}# #{ids\ 2297}#)) | |
| 6617 | (#{new-vars\ 2300}# | |
| 6618 | (map #{gen-var\ 1344}# #{ids\ 2297}#))) | |
| 6619 | (let ((#{w\ 2301}# | |
| 6620 | (#{make-binding-wrap\ 1314}# | |
| 6621 | #{ids\ 2297}# | |
| 6622 | #{labels\ 2299}# | |
| 6623 | #{w\ 2281}#)) | |
| 6624 | (#{r\ 2302}# | |
| 6625 | (#{extend-var-env\ 1292}# | |
| 6626 | #{labels\ 2299}# | |
| 6627 | #{new-vars\ 2300}# | |
| 6628 | #{r\ 2280}#))) | |
| 6629 | (#{build-letrec\ 1279}# | |
| 6630 | #{s\ 2282}# | |
| 6631 | (map syntax->datum #{ids\ 2297}#) | |
| 6632 | #{new-vars\ 2300}# | |
| 6633 | (map (lambda (#{x\ 2303}#) | |
| 6634 | (#{chi\ 1333}# | |
| 6635 | #{x\ 2303}# | |
| 6636 | #{r\ 2302}# | |
| 6637 | #{w\ 2301}# | |
| 6638 | #{mod\ 2283}#)) | |
| 6639 | #{val\ 2294}#) | |
| 6640 | (#{chi-body\ 1337}# | |
| 6641 | (cons #{e1\ 2295}# #{e2\ 2296}#) | |
| 6642 | (#{source-wrap\ 1326}# | |
| 6643 | #{e\ 2279}# | |
| 6644 | #{w\ 2301}# | |
| 6645 | #{s\ 2282}# | |
| 6646 | #{mod\ 2283}#) | |
| 6647 | #{r\ 2302}# | |
| 6648 | #{w\ 2301}# | |
| 6649 | #{mod\ 2283}#))))))) | |
| 6650 | #{tmp\ 2285}#) | |
| 6651 | ((lambda (#{_\ 2306}#) | |
| 65dd9e38 AW |
6652 | (syntax-violation |
| 6653 | 'letrec | |
| 6654 | "bad letrec" | |
| b9434165 LC |
6655 | (#{source-wrap\ 1326}# |
| 6656 | #{e\ 2279}# | |
| 6657 | #{w\ 2281}# | |
| 6658 | #{s\ 2282}# | |
| 6659 | #{mod\ 2283}#))) | |
| 6660 | #{tmp\ 2284}#))) | |
| 65dd9e38 | 6661 | ($sc-dispatch |
| b9434165 | 6662 | #{tmp\ 2284}# |
| 65dd9e38 | 6663 | '(any #(each (any any)) any . each-any)))) |
| b9434165 LC |
6664 | #{e\ 2279}#))) |
| 6665 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
6666 | 'core |
| 6667 | 'set! | |
| b9434165 LC |
6668 | (lambda (#{e\ 2307}# |
| 6669 | #{r\ 2308}# | |
| 6670 | #{w\ 2309}# | |
| 6671 | #{s\ 2310}# | |
| 6672 | #{mod\ 2311}#) | |
| 6673 | ((lambda (#{tmp\ 2312}#) | |
| 6674 | ((lambda (#{tmp\ 2313}#) | |
| 6675 | (if (if #{tmp\ 2313}# | |
| 6676 | (apply (lambda (#{_\ 2314}# #{id\ 2315}# #{val\ 2316}#) | |
| 6677 | (#{id?\ 1297}# #{id\ 2315}#)) | |
| 6678 | #{tmp\ 2313}#) | |
| 65dd9e38 | 6679 | #f) |
| b9434165 LC |
6680 | (apply (lambda (#{_\ 2317}# #{id\ 2318}# #{val\ 2319}#) |
| 6681 | (let ((#{val\ 2320}# | |
| 6682 | (#{chi\ 1333}# | |
| 6683 | #{val\ 2319}# | |
| 6684 | #{r\ 2308}# | |
| 6685 | #{w\ 2309}# | |
| 6686 | #{mod\ 2311}#)) | |
| 6687 | (#{n\ 2321}# | |
| 6688 | (#{id-var-name\ 1319}# | |
| 6689 | #{id\ 2318}# | |
| 6690 | #{w\ 2309}#))) | |
| 6691 | (let ((#{b\ 2322}# | |
| 6692 | (#{lookup\ 1294}# | |
| 6693 | #{n\ 2321}# | |
| 6694 | #{r\ 2308}# | |
| 6695 | #{mod\ 2311}#))) | |
| 6696 | (let ((#{atom-key\ 2323}# | |
| 6697 | (#{binding-type\ 1289}# #{b\ 2322}#))) | |
| 6698 | (if (memv #{atom-key\ 2323}# | |
| 6699 | '(lexical)) | |
| 6700 | (#{build-lexical-assignment\ 1267}# | |
| 6701 | #{s\ 2310}# | |
| 6702 | (syntax->datum #{id\ 2318}#) | |
| 6703 | (#{binding-value\ 1290}# #{b\ 2322}#) | |
| 6704 | #{val\ 2320}#) | |
| 6705 | (if (memv #{atom-key\ 2323}# | |
| 6706 | '(global)) | |
| 6707 | (#{build-global-assignment\ 1270}# | |
| 6708 | #{s\ 2310}# | |
| 6709 | #{n\ 2321}# | |
| 6710 | #{val\ 2320}# | |
| 6711 | #{mod\ 2311}#) | |
| 6712 | (if (memv #{atom-key\ 2323}# | |
| 65dd9e38 AW |
6713 | '(displaced-lexical)) |
| 6714 | (syntax-violation | |
| 6715 | 'set! | |
| 6716 | "identifier out of context" | |
| b9434165 LC |
6717 | (#{wrap\ 1325}# |
| 6718 | #{id\ 2318}# | |
| 6719 | #{w\ 2309}# | |
| 6720 | #{mod\ 2311}#)) | |
| 65dd9e38 AW |
6721 | (syntax-violation |
| 6722 | 'set! | |
| 6723 | "bad set!" | |
| b9434165 LC |
6724 | (#{source-wrap\ 1326}# |
| 6725 | #{e\ 2307}# | |
| 6726 | #{w\ 2309}# | |
| 6727 | #{s\ 2310}# | |
| 6728 | #{mod\ 2311}#))))))))) | |
| 6729 | #{tmp\ 2313}#) | |
| 6730 | ((lambda (#{tmp\ 2324}#) | |
| 6731 | (if #{tmp\ 2324}# | |
| 6732 | (apply (lambda (#{_\ 2325}# | |
| 6733 | #{head\ 2326}# | |
| 6734 | #{tail\ 2327}# | |
| 6735 | #{val\ 2328}#) | |
| 65dd9e38 AW |
6736 | (call-with-values |
| 6737 | (lambda () | |
| b9434165 LC |
6738 | (#{syntax-type\ 1331}# |
| 6739 | #{head\ 2326}# | |
| 6740 | #{r\ 2308}# | |
| 65dd9e38 AW |
6741 | '(()) |
| 6742 | #f | |
| 6743 | #f | |
| b9434165 | 6744 | #{mod\ 2311}# |
| 65dd9e38 | 6745 | #t)) |
| b9434165 LC |
6746 | (lambda (#{type\ 2329}# |
| 6747 | #{value\ 2330}# | |
| 6748 | #{ee\ 2331}# | |
| 6749 | #{ww\ 2332}# | |
| 6750 | #{ss\ 2333}# | |
| 6751 | #{modmod\ 2334}#) | |
| 6752 | (if (memv #{type\ 2329}# | |
| 6753 | '(module-ref)) | |
| 6754 | (let ((#{val\ 2335}# | |
| 6755 | (#{chi\ 1333}# | |
| 6756 | #{val\ 2328}# | |
| 6757 | #{r\ 2308}# | |
| 6758 | #{w\ 2309}# | |
| 6759 | #{mod\ 2311}#))) | |
| 65dd9e38 AW |
6760 | (call-with-values |
| 6761 | (lambda () | |
| b9434165 LC |
6762 | (#{value\ 2330}# |
| 6763 | (cons #{head\ 2326}# | |
| 6764 | #{tail\ 2327}#))) | |
| 6765 | (lambda (#{id\ 2337}# #{mod\ 2338}#) | |
| 6766 | (#{build-global-assignment\ 1270}# | |
| 6767 | #{s\ 2310}# | |
| 6768 | #{id\ 2337}# | |
| 6769 | #{val\ 2335}# | |
| 6770 | #{mod\ 2338}#)))) | |
| 6771 | (#{build-application\ 1264}# | |
| 6772 | #{s\ 2310}# | |
| 6773 | (#{chi\ 1333}# | |
| 65dd9e38 AW |
6774 | (list '#(syntax-object |
| 6775 | setter | |
| 6776 | ((top) | |
| 6777 | #(ribcage () () ()) | |
| 6778 | #(ribcage () () ()) | |
| 6779 | #(ribcage | |
| 6780 | #(type | |
| 6781 | value | |
| 6782 | ee | |
| 6783 | ww | |
| 6784 | ss | |
| 6785 | modmod) | |
| 6786 | #((top) | |
| 6787 | (top) | |
| 6788 | (top) | |
| 6789 | (top) | |
| 6790 | (top) | |
| 6791 | (top)) | |
| 6792 | #("i" | |
| 6793 | "i" | |
| 6794 | "i" | |
| 6795 | "i" | |
| 6796 | "i" | |
| 6797 | "i")) | |
| 6798 | #(ribcage | |
| 6799 | #(_ head tail val) | |
| 6800 | #((top) | |
| 6801 | (top) | |
| 6802 | (top) | |
| 6803 | (top)) | |
| 6804 | #("i" "i" "i" "i")) | |
| 6805 | #(ribcage () () ()) | |
| 6806 | #(ribcage | |
| 6807 | #(e r w s mod) | |
| 6808 | #((top) | |
| 6809 | (top) | |
| 6810 | (top) | |
| 6811 | (top) | |
| 6812 | (top)) | |
| 6813 | #("i" "i" "i" "i" "i")) | |
| 6814 | #(ribcage | |
| 6815 | (lambda-var-list | |
| 6816 | gen-var | |
| 6817 | strip | |
| 6818 | ellipsis? | |
| 6819 | chi-void | |
| 6820 | eval-local-transformer | |
| 6821 | chi-local-syntax | |
| 6822 | chi-lambda-clause | |
| 6823 | chi-body | |
| 6824 | chi-macro | |
| 6825 | chi-application | |
| 6826 | chi-expr | |
| 6827 | chi | |
| 6828 | chi-top | |
| 6829 | syntax-type | |
| 6830 | chi-when-list | |
| 6831 | chi-install-global | |
| 6832 | chi-top-sequence | |
| 6833 | chi-sequence | |
| 6834 | source-wrap | |
| 6835 | wrap | |
| 6836 | bound-id-member? | |
| 6837 | distinct-bound-ids? | |
| 6838 | valid-bound-ids? | |
| 6839 | bound-id=? | |
| 6840 | free-id=? | |
| 6841 | id-var-name | |
| 6842 | same-marks? | |
| 6843 | join-marks | |
| 6844 | join-wraps | |
| 6845 | smart-append | |
| 6846 | make-binding-wrap | |
| 6847 | extend-ribcage! | |
| 6848 | make-empty-ribcage | |
| 6849 | new-mark | |
| 6850 | anti-mark | |
| 6851 | the-anti-mark | |
| 6852 | top-marked? | |
| 6853 | top-wrap | |
| 6854 | empty-wrap | |
| 6855 | set-ribcage-labels! | |
| 6856 | set-ribcage-marks! | |
| 6857 | set-ribcage-symnames! | |
| 6858 | ribcage-labels | |
| 6859 | ribcage-marks | |
| 6860 | ribcage-symnames | |
| 6861 | ribcage? | |
| 6862 | make-ribcage | |
| 6863 | gen-labels | |
| 6864 | gen-label | |
| 6865 | make-rename | |
| 6866 | rename-marks | |
| 6867 | rename-new | |
| 6868 | rename-old | |
| 6869 | subst-rename? | |
| 6870 | wrap-subst | |
| 6871 | wrap-marks | |
| 6872 | make-wrap | |
| 6873 | id-sym-name&marks | |
| 6874 | id-sym-name | |
| 6875 | id? | |
| 6876 | nonsymbol-id? | |
| 6877 | global-extend | |
| 6878 | lookup | |
| 6879 | macros-only-env | |
| 6880 | extend-var-env | |
| 6881 | extend-env | |
| 6882 | null-env | |
| 6883 | binding-value | |
| 6884 | binding-type | |
| 6885 | make-binding | |
| 6886 | arg-check | |
| 6887 | source-annotation | |
| 6888 | no-source | |
| 6889 | set-syntax-object-module! | |
| 6890 | set-syntax-object-wrap! | |
| 6891 | set-syntax-object-expression! | |
| 6892 | syntax-object-module | |
| 6893 | syntax-object-wrap | |
| 6894 | syntax-object-expression | |
| 6895 | syntax-object? | |
| 6896 | make-syntax-object | |
| 6897 | build-lexical-var | |
| 6898 | build-letrec | |
| 6899 | build-named-let | |
| 6900 | build-let | |
| 6901 | build-sequence | |
| 6902 | build-data | |
| 6903 | build-primref | |
| 6904 | build-lambda | |
| 6905 | build-global-definition | |
| 6906 | maybe-name-value! | |
| 6907 | build-global-assignment | |
| 6908 | build-global-reference | |
| 6909 | analyze-variable | |
| 6910 | build-lexical-assignment | |
| 6911 | build-lexical-reference | |
| 6912 | build-conditional | |
| 6913 | build-application | |
| 6914 | build-void | |
| fc5b616b | 6915 | decorate-source |
| 65dd9e38 AW |
6916 | get-global-definition-hook |
| 6917 | put-global-definition-hook | |
| 6918 | gensym-hook | |
| 6919 | local-eval-hook | |
| 6920 | top-level-eval-hook | |
| 6921 | fx< | |
| 6922 | fx= | |
| 6923 | fx- | |
| 6924 | fx+ | |
| 6925 | *mode* | |
| 6926 | noexpand) | |
| 6927 | ((top) | |
| 6928 | (top) | |
| 6929 | (top) | |
| 6930 | (top) | |
| 6931 | (top) | |
| 6932 | (top) | |
| 6933 | (top) | |
| 6934 | (top) | |
| 6935 | (top) | |
| 6936 | (top) | |
| 6937 | (top) | |
| 6938 | (top) | |
| 6939 | (top) | |
| 6940 | (top) | |
| 6941 | (top) | |
| 6942 | (top) | |
| 6943 | (top) | |
| 6944 | (top) | |
| 6945 | (top) | |
| 6946 | (top) | |
| 6947 | (top) | |
| 6948 | (top) | |
| 6949 | (top) | |
| 6950 | (top) | |
| 6951 | (top) | |
| 6952 | (top) | |
| 6953 | (top) | |
| 6954 | (top) | |
| 6955 | (top) | |
| 6956 | (top) | |
| 6957 | (top) | |
| 6958 | (top) | |
| 6959 | (top) | |
| 6960 | (top) | |
| 6961 | (top) | |
| 6962 | (top) | |
| 6963 | (top) | |
| 6964 | (top) | |
| 6965 | (top) | |
| 6966 | (top) | |
| 6967 | (top) | |
| 6968 | (top) | |
| 6969 | (top) | |
| 6970 | (top) | |
| 6971 | (top) | |
| 6972 | (top) | |
| 6973 | (top) | |
| 6974 | (top) | |
| 6975 | (top) | |
| 6976 | (top) | |
| 6977 | (top) | |
| 6978 | (top) | |
| 6979 | (top) | |
| 6980 | (top) | |
| 6981 | (top) | |
| 6982 | (top) | |
| 6983 | (top) | |
| 6984 | (top) | |
| 6985 | (top) | |
| 6986 | (top) | |
| 6987 | (top) | |
| 6988 | (top) | |
| 6989 | (top) | |
| 6990 | (top) | |
| 6991 | (top) | |
| 6992 | (top) | |
| 6993 | (top) | |
| 6994 | (top) | |
| 6995 | (top) | |
| 6996 | (top) | |
| 6997 | (top) | |
| 6998 | (top) | |
| 6999 | (top) | |
| 7000 | (top) | |
| 7001 | (top) | |
| 7002 | (top) | |
| 7003 | (top) | |
| 7004 | (top) | |
| 7005 | (top) | |
| 7006 | (top) | |
| 7007 | (top) | |
| 7008 | (top) | |
| 7009 | (top) | |
| 7010 | (top) | |
| 7011 | (top) | |
| 7012 | (top) | |
| 7013 | (top) | |
| 7014 | (top) | |
| 7015 | (top) | |
| 7016 | (top) | |
| 7017 | (top) | |
| 7018 | (top) | |
| 7019 | (top) | |
| 7020 | (top) | |
| 7021 | (top) | |
| 7022 | (top) | |
| 7023 | (top) | |
| 7024 | (top) | |
| 7025 | (top) | |
| 7026 | (top) | |
| 7027 | (top) | |
| 7028 | (top) | |
| 7029 | (top) | |
| 7030 | (top) | |
| 7031 | (top) | |
| 7032 | (top) | |
| 7033 | (top) | |
| 7034 | (top) | |
| 7035 | (top) | |
| 7036 | (top) | |
| fc5b616b | 7037 | (top) |
| 65dd9e38 AW |
7038 | (top)) |
| 7039 | ("i" | |
| 7040 | "i" | |
| 7041 | "i" | |
| 7042 | "i" | |
| 7043 | "i" | |
| 7044 | "i" | |
| 7045 | "i" | |
| 7046 | "i" | |
| 7047 | "i" | |
| 7048 | "i" | |
| 7049 | "i" | |
| 7050 | "i" | |
| 7051 | "i" | |
| 7052 | "i" | |
| 7053 | "i" | |
| 7054 | "i" | |
| 7055 | "i" | |
| 7056 | "i" | |
| 7057 | "i" | |
| 7058 | "i" | |
| 7059 | "i" | |
| 7060 | "i" | |
| 7061 | "i" | |
| 7062 | "i" | |
| 7063 | "i" | |
| 7064 | "i" | |
| 7065 | "i" | |
| 7066 | "i" | |
| 7067 | "i" | |
| 7068 | "i" | |
| 7069 | "i" | |
| 7070 | "i" | |
| 7071 | "i" | |
| 7072 | "i" | |
| 7073 | "i" | |
| 7074 | "i" | |
| 7075 | "i" | |
| 7076 | "i" | |
| 7077 | "i" | |
| 7078 | "i" | |
| 7079 | "i" | |
| 7080 | "i" | |
| 7081 | "i" | |
| 7082 | "i" | |
| 7083 | "i" | |
| 7084 | "i" | |
| 7085 | "i" | |
| 7086 | "i" | |
| 7087 | "i" | |
| 7088 | "i" | |
| 7089 | "i" | |
| 7090 | "i" | |
| 7091 | "i" | |
| 7092 | "i" | |
| 7093 | "i" | |
| 7094 | "i" | |
| 7095 | "i" | |
| 7096 | "i" | |
| 7097 | "i" | |
| 7098 | "i" | |
| 7099 | "i" | |
| 7100 | "i" | |
| 7101 | "i" | |
| 7102 | "i" | |
| 7103 | "i" | |
| 7104 | "i" | |
| 7105 | "i" | |
| 7106 | "i" | |
| 7107 | "i" | |
| 7108 | "i" | |
| 7109 | "i" | |
| 7110 | "i" | |
| 7111 | "i" | |
| 7112 | "i" | |
| 7113 | "i" | |
| 7114 | "i" | |
| 7115 | "i" | |
| 7116 | "i" | |
| 7117 | "i" | |
| 7118 | "i" | |
| 7119 | "i" | |
| 7120 | "i" | |
| 7121 | "i" | |
| 7122 | "i" | |
| 7123 | "i" | |
| 7124 | "i" | |
| 7125 | "i" | |
| 7126 | "i" | |
| 7127 | "i" | |
| 7128 | "i" | |
| 7129 | "i" | |
| 7130 | "i" | |
| 7131 | "i" | |
| 7132 | "i" | |
| 7133 | "i" | |
| 7134 | "i" | |
| 7135 | "i" | |
| 7136 | "i" | |
| 7137 | "i" | |
| 7138 | "i" | |
| 7139 | "i" | |
| 7140 | "i" | |
| 7141 | "i" | |
| 7142 | "i" | |
| 7143 | "i" | |
| 7144 | "i" | |
| 7145 | "i" | |
| 7146 | "i" | |
| 7147 | "i" | |
| 7148 | "i" | |
| fc5b616b | 7149 | "i" |
| 65dd9e38 AW |
7150 | "i")) |
| 7151 | #(ribcage | |
| 7152 | (define-structure | |
| 7153 | and-map*) | |
| 7154 | ((top) (top)) | |
| 7155 | ("i" "i"))) | |
| 7156 | (hygiene guile)) | |
| b9434165 LC |
7157 | #{head\ 2326}#) |
| 7158 | #{r\ 2308}# | |
| 7159 | #{w\ 2309}# | |
| 7160 | #{mod\ 2311}#) | |
| 7161 | (map (lambda (#{e\ 2339}#) | |
| 7162 | (#{chi\ 1333}# | |
| 7163 | #{e\ 2339}# | |
| 7164 | #{r\ 2308}# | |
| 7165 | #{w\ 2309}# | |
| 7166 | #{mod\ 2311}#)) | |
| 65dd9e38 | 7167 | (append |
| b9434165 LC |
7168 | #{tail\ 2327}# |
| 7169 | (list #{val\ 2328}#)))))))) | |
| 7170 | #{tmp\ 2324}#) | |
| 7171 | ((lambda (#{_\ 2341}#) | |
| 65dd9e38 AW |
7172 | (syntax-violation |
| 7173 | 'set! | |
| 7174 | "bad set!" | |
| b9434165 LC |
7175 | (#{source-wrap\ 1326}# |
| 7176 | #{e\ 2307}# | |
| 7177 | #{w\ 2309}# | |
| 7178 | #{s\ 2310}# | |
| 7179 | #{mod\ 2311}#))) | |
| 7180 | #{tmp\ 2312}#))) | |
| 65dd9e38 | 7181 | ($sc-dispatch |
| b9434165 | 7182 | #{tmp\ 2312}# |
| 65dd9e38 | 7183 | '(any (any . each-any) any))))) |
| b9434165 LC |
7184 | ($sc-dispatch |
| 7185 | #{tmp\ 2312}# | |
| 7186 | '(any any any)))) | |
| 7187 | #{e\ 2307}#))) | |
| 7188 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
7189 | 'module-ref |
| 7190 | '@ | |
| b9434165 LC |
7191 | (lambda (#{e\ 2342}#) |
| 7192 | ((lambda (#{tmp\ 2343}#) | |
| 7193 | ((lambda (#{tmp\ 2344}#) | |
| 7194 | (if (if #{tmp\ 2344}# | |
| 7195 | (apply (lambda (#{_\ 2345}# #{mod\ 2346}# #{id\ 2347}#) | |
| 7196 | (if (and-map #{id?\ 1297}# #{mod\ 2346}#) | |
| 7197 | (#{id?\ 1297}# #{id\ 2347}#) | |
| 65dd9e38 | 7198 | #f)) |
| b9434165 | 7199 | #{tmp\ 2344}#) |
| 65dd9e38 | 7200 | #f) |
| b9434165 | 7201 | (apply (lambda (#{_\ 2349}# #{mod\ 2350}# #{id\ 2351}#) |
| 65dd9e38 | 7202 | (values |
| b9434165 | 7203 | (syntax->datum #{id\ 2351}#) |
| 65dd9e38 AW |
7204 | (syntax->datum |
| 7205 | (cons '#(syntax-object | |
| 7206 | public | |
| 7207 | ((top) | |
| 7208 | #(ribcage | |
| 7209 | #(_ mod id) | |
| 7210 | #((top) (top) (top)) | |
| 7211 | #("i" "i" "i")) | |
| 7212 | #(ribcage () () ()) | |
| 7213 | #(ribcage #(e) #((top)) #("i")) | |
| 7214 | #(ribcage | |
| 7215 | (lambda-var-list | |
| 7216 | gen-var | |
| 7217 | strip | |
| 7218 | ellipsis? | |
| 7219 | chi-void | |
| 7220 | eval-local-transformer | |
| 7221 | chi-local-syntax | |
| 7222 | chi-lambda-clause | |
| 7223 | chi-body | |
| 7224 | chi-macro | |
| 7225 | chi-application | |
| 7226 | chi-expr | |
| 7227 | chi | |
| 7228 | chi-top | |
| 7229 | syntax-type | |
| 7230 | chi-when-list | |
| 7231 | chi-install-global | |
| 7232 | chi-top-sequence | |
| 7233 | chi-sequence | |
| 7234 | source-wrap | |
| 7235 | wrap | |
| 7236 | bound-id-member? | |
| 7237 | distinct-bound-ids? | |
| 7238 | valid-bound-ids? | |
| 7239 | bound-id=? | |
| 7240 | free-id=? | |
| 7241 | id-var-name | |
| 7242 | same-marks? | |
| 7243 | join-marks | |
| 7244 | join-wraps | |
| 7245 | smart-append | |
| 7246 | make-binding-wrap | |
| 7247 | extend-ribcage! | |
| 7248 | make-empty-ribcage | |
| 7249 | new-mark | |
| 7250 | anti-mark | |
| 7251 | the-anti-mark | |
| 7252 | top-marked? | |
| 7253 | top-wrap | |
| 7254 | empty-wrap | |
| 7255 | set-ribcage-labels! | |
| 7256 | set-ribcage-marks! | |
| 7257 | set-ribcage-symnames! | |
| 7258 | ribcage-labels | |
| 7259 | ribcage-marks | |
| 7260 | ribcage-symnames | |
| 7261 | ribcage? | |
| 7262 | make-ribcage | |
| 7263 | gen-labels | |
| 7264 | gen-label | |
| 7265 | make-rename | |
| 7266 | rename-marks | |
| 7267 | rename-new | |
| 7268 | rename-old | |
| 7269 | subst-rename? | |
| 7270 | wrap-subst | |
| 7271 | wrap-marks | |
| 7272 | make-wrap | |
| 7273 | id-sym-name&marks | |
| 7274 | id-sym-name | |
| 7275 | id? | |
| 7276 | nonsymbol-id? | |
| 7277 | global-extend | |
| 7278 | lookup | |
| 7279 | macros-only-env | |
| 7280 | extend-var-env | |
| 7281 | extend-env | |
| 7282 | null-env | |
| 7283 | binding-value | |
| 7284 | binding-type | |
| 7285 | make-binding | |
| 7286 | arg-check | |
| 7287 | source-annotation | |
| 7288 | no-source | |
| 7289 | set-syntax-object-module! | |
| 7290 | set-syntax-object-wrap! | |
| 7291 | set-syntax-object-expression! | |
| 7292 | syntax-object-module | |
| 7293 | syntax-object-wrap | |
| 7294 | syntax-object-expression | |
| 7295 | syntax-object? | |
| 7296 | make-syntax-object | |
| 7297 | build-lexical-var | |
| 7298 | build-letrec | |
| 7299 | build-named-let | |
| 7300 | build-let | |
| 7301 | build-sequence | |
| 7302 | build-data | |
| 7303 | build-primref | |
| 7304 | build-lambda | |
| 7305 | build-global-definition | |
| 7306 | maybe-name-value! | |
| 7307 | build-global-assignment | |
| 7308 | build-global-reference | |
| 7309 | analyze-variable | |
| 7310 | build-lexical-assignment | |
| 7311 | build-lexical-reference | |
| 7312 | build-conditional | |
| 7313 | build-application | |
| 7314 | build-void | |
| fc5b616b | 7315 | decorate-source |
| 65dd9e38 AW |
7316 | get-global-definition-hook |
| 7317 | put-global-definition-hook | |
| 7318 | gensym-hook | |
| 7319 | local-eval-hook | |
| 7320 | top-level-eval-hook | |
| 7321 | fx< | |
| 7322 | fx= | |
| 7323 | fx- | |
| 7324 | fx+ | |
| 7325 | *mode* | |
| 7326 | noexpand) | |
| 7327 | ((top) | |
| 7328 | (top) | |
| 7329 | (top) | |
| 7330 | (top) | |
| 7331 | (top) | |
| 7332 | (top) | |
| 7333 | (top) | |
| 7334 | (top) | |
| 7335 | (top) | |
| 7336 | (top) | |
| 7337 | (top) | |
| 7338 | (top) | |
| 7339 | (top) | |
| 7340 | (top) | |
| 7341 | (top) | |
| 7342 | (top) | |
| 7343 | (top) | |
| 7344 | (top) | |
| 7345 | (top) | |
| 7346 | (top) | |
| 7347 | (top) | |
| 7348 | (top) | |
| 7349 | (top) | |
| 7350 | (top) | |
| 7351 | (top) | |
| 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) | |
| fc5b616b | 7437 | (top) |
| 65dd9e38 AW |
7438 | (top)) |
| 7439 | ("i" | |
| 7440 | "i" | |
| 7441 | "i" | |
| 7442 | "i" | |
| 7443 | "i" | |
| 7444 | "i" | |
| 7445 | "i" | |
| 7446 | "i" | |
| 7447 | "i" | |
| 7448 | "i" | |
| 7449 | "i" | |
| 7450 | "i" | |
| 7451 | "i" | |
| 7452 | "i" | |
| 7453 | "i" | |
| 7454 | "i" | |
| 7455 | "i" | |
| 7456 | "i" | |
| 7457 | "i" | |
| 7458 | "i" | |
| 7459 | "i" | |
| 7460 | "i" | |
| 7461 | "i" | |
| 7462 | "i" | |
| 7463 | "i" | |
| 7464 | "i" | |
| 7465 | "i" | |
| 7466 | "i" | |
| 7467 | "i" | |
| 7468 | "i" | |
| 7469 | "i" | |
| 7470 | "i" | |
| 7471 | "i" | |
| 7472 | "i" | |
| 7473 | "i" | |
| 7474 | "i" | |
| 7475 | "i" | |
| 7476 | "i" | |
| 7477 | "i" | |
| 7478 | "i" | |
| 7479 | "i" | |
| 7480 | "i" | |
| 7481 | "i" | |
| 7482 | "i" | |
| 7483 | "i" | |
| 7484 | "i" | |
| 7485 | "i" | |
| 7486 | "i" | |
| 7487 | "i" | |
| 7488 | "i" | |
| 7489 | "i" | |
| 7490 | "i" | |
| 7491 | "i" | |
| 7492 | "i" | |
| 7493 | "i" | |
| 7494 | "i" | |
| 7495 | "i" | |
| 7496 | "i" | |
| 7497 | "i" | |
| 7498 | "i" | |
| 7499 | "i" | |
| 7500 | "i" | |
| 7501 | "i" | |
| 7502 | "i" | |
| 7503 | "i" | |
| 7504 | "i" | |
| 7505 | "i" | |
| 7506 | "i" | |
| 7507 | "i" | |
| 7508 | "i" | |
| 7509 | "i" | |
| 7510 | "i" | |
| 7511 | "i" | |
| 7512 | "i" | |
| 7513 | "i" | |
| 7514 | "i" | |
| 7515 | "i" | |
| 7516 | "i" | |
| 7517 | "i" | |
| 7518 | "i" | |
| 7519 | "i" | |
| 7520 | "i" | |
| 7521 | "i" | |
| 7522 | "i" | |
| 7523 | "i" | |
| 7524 | "i" | |
| 7525 | "i" | |
| 7526 | "i" | |
| 7527 | "i" | |
| 7528 | "i" | |
| 7529 | "i" | |
| 7530 | "i" | |
| 7531 | "i" | |
| 7532 | "i" | |
| 7533 | "i" | |
| 7534 | "i" | |
| 7535 | "i" | |
| 7536 | "i" | |
| 7537 | "i" | |
| 7538 | "i" | |
| 7539 | "i" | |
| 7540 | "i" | |
| 7541 | "i" | |
| 7542 | "i" | |
| 7543 | "i" | |
| 7544 | "i" | |
| 7545 | "i" | |
| 7546 | "i" | |
| 7547 | "i" | |
| 7548 | "i" | |
| fc5b616b | 7549 | "i" |
| 65dd9e38 AW |
7550 | "i")) |
| 7551 | #(ribcage | |
| 7552 | (define-structure and-map*) | |
| 7553 | ((top) (top)) | |
| 7554 | ("i" "i"))) | |
| 7555 | (hygiene guile)) | |
| b9434165 LC |
7556 | #{mod\ 2350}#)))) |
| 7557 | #{tmp\ 2344}#) | |
| 65dd9e38 AW |
7558 | (syntax-violation |
| 7559 | #f | |
| 7560 | "source expression failed to match any pattern" | |
| b9434165 LC |
7561 | #{tmp\ 2343}#))) |
| 7562 | ($sc-dispatch | |
| 7563 | #{tmp\ 2343}# | |
| 7564 | '(any each-any any)))) | |
| 7565 | #{e\ 2342}#))) | |
| 7566 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
7567 | 'module-ref |
| 7568 | '@@ | |
| b9434165 LC |
7569 | (lambda (#{e\ 2353}#) |
| 7570 | ((lambda (#{tmp\ 2354}#) | |
| 7571 | ((lambda (#{tmp\ 2355}#) | |
| 7572 | (if (if #{tmp\ 2355}# | |
| 7573 | (apply (lambda (#{_\ 2356}# #{mod\ 2357}# #{id\ 2358}#) | |
| 7574 | (if (and-map #{id?\ 1297}# #{mod\ 2357}#) | |
| 7575 | (#{id?\ 1297}# #{id\ 2358}#) | |
| 65dd9e38 | 7576 | #f)) |
| b9434165 | 7577 | #{tmp\ 2355}#) |
| 65dd9e38 | 7578 | #f) |
| b9434165 | 7579 | (apply (lambda (#{_\ 2360}# #{mod\ 2361}# #{id\ 2362}#) |
| 65dd9e38 | 7580 | (values |
| b9434165 | 7581 | (syntax->datum #{id\ 2362}#) |
| 65dd9e38 AW |
7582 | (syntax->datum |
| 7583 | (cons '#(syntax-object | |
| 7584 | private | |
| 7585 | ((top) | |
| 7586 | #(ribcage | |
| 7587 | #(_ mod id) | |
| 7588 | #((top) (top) (top)) | |
| 7589 | #("i" "i" "i")) | |
| 7590 | #(ribcage () () ()) | |
| 7591 | #(ribcage #(e) #((top)) #("i")) | |
| 7592 | #(ribcage | |
| 7593 | (lambda-var-list | |
| 7594 | gen-var | |
| 7595 | strip | |
| 7596 | ellipsis? | |
| 7597 | chi-void | |
| 7598 | eval-local-transformer | |
| 7599 | chi-local-syntax | |
| 7600 | chi-lambda-clause | |
| 7601 | chi-body | |
| 7602 | chi-macro | |
| 7603 | chi-application | |
| 7604 | chi-expr | |
| 7605 | chi | |
| 7606 | chi-top | |
| 7607 | syntax-type | |
| 7608 | chi-when-list | |
| 7609 | chi-install-global | |
| 7610 | chi-top-sequence | |
| 7611 | chi-sequence | |
| 7612 | source-wrap | |
| 7613 | wrap | |
| 7614 | bound-id-member? | |
| 7615 | distinct-bound-ids? | |
| 7616 | valid-bound-ids? | |
| 7617 | bound-id=? | |
| 7618 | free-id=? | |
| 7619 | id-var-name | |
| 7620 | same-marks? | |
| 7621 | join-marks | |
| 7622 | join-wraps | |
| 7623 | smart-append | |
| 7624 | make-binding-wrap | |
| 7625 | extend-ribcage! | |
| 7626 | make-empty-ribcage | |
| 7627 | new-mark | |
| 7628 | anti-mark | |
| 7629 | the-anti-mark | |
| 7630 | top-marked? | |
| 7631 | top-wrap | |
| 7632 | empty-wrap | |
| 7633 | set-ribcage-labels! | |
| 7634 | set-ribcage-marks! | |
| 7635 | set-ribcage-symnames! | |
| 7636 | ribcage-labels | |
| 7637 | ribcage-marks | |
| 7638 | ribcage-symnames | |
| 7639 | ribcage? | |
| 7640 | make-ribcage | |
| 7641 | gen-labels | |
| 7642 | gen-label | |
| 7643 | make-rename | |
| 7644 | rename-marks | |
| 7645 | rename-new | |
| 7646 | rename-old | |
| 7647 | subst-rename? | |
| 7648 | wrap-subst | |
| 7649 | wrap-marks | |
| 7650 | make-wrap | |
| 7651 | id-sym-name&marks | |
| 7652 | id-sym-name | |
| 7653 | id? | |
| 7654 | nonsymbol-id? | |
| 7655 | global-extend | |
| 7656 | lookup | |
| 7657 | macros-only-env | |
| 7658 | extend-var-env | |
| 7659 | extend-env | |
| 7660 | null-env | |
| 7661 | binding-value | |
| 7662 | binding-type | |
| 7663 | make-binding | |
| 7664 | arg-check | |
| 7665 | source-annotation | |
| 7666 | no-source | |
| 7667 | set-syntax-object-module! | |
| 7668 | set-syntax-object-wrap! | |
| 7669 | set-syntax-object-expression! | |
| 7670 | syntax-object-module | |
| 7671 | syntax-object-wrap | |
| 7672 | syntax-object-expression | |
| 7673 | syntax-object? | |
| 7674 | make-syntax-object | |
| 7675 | build-lexical-var | |
| 7676 | build-letrec | |
| 7677 | build-named-let | |
| 7678 | build-let | |
| 7679 | build-sequence | |
| 7680 | build-data | |
| 7681 | build-primref | |
| 7682 | build-lambda | |
| 7683 | build-global-definition | |
| 7684 | maybe-name-value! | |
| 7685 | build-global-assignment | |
| 7686 | build-global-reference | |
| 7687 | analyze-variable | |
| 7688 | build-lexical-assignment | |
| 7689 | build-lexical-reference | |
| 7690 | build-conditional | |
| 7691 | build-application | |
| 7692 | build-void | |
| fc5b616b | 7693 | decorate-source |
| 65dd9e38 AW |
7694 | get-global-definition-hook |
| 7695 | put-global-definition-hook | |
| 7696 | gensym-hook | |
| 7697 | local-eval-hook | |
| 7698 | top-level-eval-hook | |
| 7699 | fx< | |
| 7700 | fx= | |
| 7701 | fx- | |
| 7702 | fx+ | |
| 7703 | *mode* | |
| 7704 | noexpand) | |
| 7705 | ((top) | |
| 7706 | (top) | |
| 7707 | (top) | |
| 7708 | (top) | |
| 7709 | (top) | |
| 7710 | (top) | |
| 7711 | (top) | |
| 7712 | (top) | |
| 7713 | (top) | |
| 7714 | (top) | |
| 7715 | (top) | |
| 7716 | (top) | |
| 7717 | (top) | |
| 7718 | (top) | |
| 7719 | (top) | |
| 7720 | (top) | |
| 7721 | (top) | |
| 7722 | (top) | |
| 7723 | (top) | |
| 7724 | (top) | |
| 7725 | (top) | |
| 7726 | (top) | |
| 7727 | (top) | |
| 7728 | (top) | |
| 7729 | (top) | |
| 7730 | (top) | |
| 7731 | (top) | |
| 7732 | (top) | |
| 7733 | (top) | |
| 7734 | (top) | |
| 7735 | (top) | |
| 7736 | (top) | |
| 7737 | (top) | |
| 7738 | (top) | |
| 7739 | (top) | |
| 7740 | (top) | |
| 7741 | (top) | |
| 7742 | (top) | |
| 7743 | (top) | |
| 7744 | (top) | |
| 7745 | (top) | |
| 7746 | (top) | |
| 7747 | (top) | |
| 7748 | (top) | |
| 7749 | (top) | |
| 7750 | (top) | |
| 7751 | (top) | |
| 7752 | (top) | |
| 7753 | (top) | |
| 7754 | (top) | |
| 7755 | (top) | |
| 7756 | (top) | |
| 7757 | (top) | |
| 7758 | (top) | |
| 7759 | (top) | |
| 7760 | (top) | |
| 7761 | (top) | |
| 7762 | (top) | |
| 7763 | (top) | |
| 7764 | (top) | |
| 7765 | (top) | |
| 7766 | (top) | |
| 7767 | (top) | |
| 7768 | (top) | |
| 7769 | (top) | |
| 7770 | (top) | |
| 7771 | (top) | |
| 7772 | (top) | |
| 7773 | (top) | |
| 7774 | (top) | |
| 7775 | (top) | |
| 7776 | (top) | |
| 7777 | (top) | |
| 7778 | (top) | |
| 7779 | (top) | |
| 7780 | (top) | |
| 7781 | (top) | |
| 7782 | (top) | |
| 7783 | (top) | |
| 7784 | (top) | |
| 7785 | (top) | |
| 7786 | (top) | |
| 7787 | (top) | |
| 7788 | (top) | |
| 7789 | (top) | |
| 7790 | (top) | |
| 7791 | (top) | |
| 7792 | (top) | |
| 7793 | (top) | |
| 7794 | (top) | |
| 7795 | (top) | |
| 7796 | (top) | |
| 7797 | (top) | |
| 7798 | (top) | |
| 7799 | (top) | |
| 7800 | (top) | |
| 7801 | (top) | |
| 7802 | (top) | |
| 7803 | (top) | |
| 7804 | (top) | |
| 7805 | (top) | |
| 7806 | (top) | |
| 7807 | (top) | |
| 7808 | (top) | |
| 7809 | (top) | |
| 7810 | (top) | |
| 7811 | (top) | |
| 7812 | (top) | |
| 7813 | (top) | |
| 7814 | (top) | |
| fc5b616b | 7815 | (top) |
| 65dd9e38 AW |
7816 | (top)) |
| 7817 | ("i" | |
| 7818 | "i" | |
| 7819 | "i" | |
| 7820 | "i" | |
| 7821 | "i" | |
| 7822 | "i" | |
| 7823 | "i" | |
| 7824 | "i" | |
| 7825 | "i" | |
| 7826 | "i" | |
| 7827 | "i" | |
| 7828 | "i" | |
| 7829 | "i" | |
| 7830 | "i" | |
| 7831 | "i" | |
| 7832 | "i" | |
| 7833 | "i" | |
| 7834 | "i" | |
| 7835 | "i" | |
| 7836 | "i" | |
| 7837 | "i" | |
| 7838 | "i" | |
| 7839 | "i" | |
| 7840 | "i" | |
| 7841 | "i" | |
| 7842 | "i" | |
| 7843 | "i" | |
| 7844 | "i" | |
| 7845 | "i" | |
| 7846 | "i" | |
| 7847 | "i" | |
| 7848 | "i" | |
| 7849 | "i" | |
| 7850 | "i" | |
| 7851 | "i" | |
| 7852 | "i" | |
| 7853 | "i" | |
| 7854 | "i" | |
| 7855 | "i" | |
| 7856 | "i" | |
| 7857 | "i" | |
| 7858 | "i" | |
| 7859 | "i" | |
| 7860 | "i" | |
| 7861 | "i" | |
| 7862 | "i" | |
| 7863 | "i" | |
| 7864 | "i" | |
| 7865 | "i" | |
| 7866 | "i" | |
| 7867 | "i" | |
| 7868 | "i" | |
| 7869 | "i" | |
| 7870 | "i" | |
| 7871 | "i" | |
| 7872 | "i" | |
| 7873 | "i" | |
| 7874 | "i" | |
| 7875 | "i" | |
| 7876 | "i" | |
| 7877 | "i" | |
| 7878 | "i" | |
| 7879 | "i" | |
| 7880 | "i" | |
| 7881 | "i" | |
| 7882 | "i" | |
| 7883 | "i" | |
| 7884 | "i" | |
| 7885 | "i" | |
| 7886 | "i" | |
| 7887 | "i" | |
| 7888 | "i" | |
| 7889 | "i" | |
| 7890 | "i" | |
| 7891 | "i" | |
| 7892 | "i" | |
| 7893 | "i" | |
| 7894 | "i" | |
| 7895 | "i" | |
| 7896 | "i" | |
| 7897 | "i" | |
| 7898 | "i" | |
| 7899 | "i" | |
| 7900 | "i" | |
| 7901 | "i" | |
| 7902 | "i" | |
| 7903 | "i" | |
| 7904 | "i" | |
| 7905 | "i" | |
| 7906 | "i" | |
| 7907 | "i" | |
| 7908 | "i" | |
| 7909 | "i" | |
| 7910 | "i" | |
| 7911 | "i" | |
| 7912 | "i" | |
| 7913 | "i" | |
| 7914 | "i" | |
| 7915 | "i" | |
| 7916 | "i" | |
| 7917 | "i" | |
| 7918 | "i" | |
| 7919 | "i" | |
| 7920 | "i" | |
| 7921 | "i" | |
| 7922 | "i" | |
| 7923 | "i" | |
| 7924 | "i" | |
| 7925 | "i" | |
| 7926 | "i" | |
| fc5b616b | 7927 | "i" |
| 65dd9e38 AW |
7928 | "i")) |
| 7929 | #(ribcage | |
| 7930 | (define-structure and-map*) | |
| 7931 | ((top) (top)) | |
| 7932 | ("i" "i"))) | |
| 7933 | (hygiene guile)) | |
| b9434165 LC |
7934 | #{mod\ 2361}#)))) |
| 7935 | #{tmp\ 2355}#) | |
| 65dd9e38 AW |
7936 | (syntax-violation |
| 7937 | #f | |
| 7938 | "source expression failed to match any pattern" | |
| b9434165 LC |
7939 | #{tmp\ 2354}#))) |
| 7940 | ($sc-dispatch | |
| 7941 | #{tmp\ 2354}# | |
| 7942 | '(any each-any any)))) | |
| 7943 | #{e\ 2353}#))) | |
| 7944 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
7945 | 'core |
| 7946 | 'if | |
| b9434165 LC |
7947 | (lambda (#{e\ 2364}# |
| 7948 | #{r\ 2365}# | |
| 7949 | #{w\ 2366}# | |
| 7950 | #{s\ 2367}# | |
| 7951 | #{mod\ 2368}#) | |
| 7952 | ((lambda (#{tmp\ 2369}#) | |
| 7953 | ((lambda (#{tmp\ 2370}#) | |
| 7954 | (if #{tmp\ 2370}# | |
| 7955 | (apply (lambda (#{_\ 2371}# #{test\ 2372}# #{then\ 2373}#) | |
| 7956 | (#{build-conditional\ 1265}# | |
| 7957 | #{s\ 2367}# | |
| 7958 | (#{chi\ 1333}# | |
| 7959 | #{test\ 2372}# | |
| 7960 | #{r\ 2365}# | |
| 7961 | #{w\ 2366}# | |
| 7962 | #{mod\ 2368}#) | |
| 7963 | (#{chi\ 1333}# | |
| 7964 | #{then\ 2373}# | |
| 7965 | #{r\ 2365}# | |
| 7966 | #{w\ 2366}# | |
| 7967 | #{mod\ 2368}#) | |
| 7968 | (#{build-void\ 1263}# #f))) | |
| 7969 | #{tmp\ 2370}#) | |
| 7970 | ((lambda (#{tmp\ 2374}#) | |
| 7971 | (if #{tmp\ 2374}# | |
| 7972 | (apply (lambda (#{_\ 2375}# | |
| 7973 | #{test\ 2376}# | |
| 7974 | #{then\ 2377}# | |
| 7975 | #{else\ 2378}#) | |
| 7976 | (#{build-conditional\ 1265}# | |
| 7977 | #{s\ 2367}# | |
| 7978 | (#{chi\ 1333}# | |
| 7979 | #{test\ 2376}# | |
| 7980 | #{r\ 2365}# | |
| 7981 | #{w\ 2366}# | |
| 7982 | #{mod\ 2368}#) | |
| 7983 | (#{chi\ 1333}# | |
| 7984 | #{then\ 2377}# | |
| 7985 | #{r\ 2365}# | |
| 7986 | #{w\ 2366}# | |
| 7987 | #{mod\ 2368}#) | |
| 7988 | (#{chi\ 1333}# | |
| 7989 | #{else\ 2378}# | |
| 7990 | #{r\ 2365}# | |
| 7991 | #{w\ 2366}# | |
| 7992 | #{mod\ 2368}#))) | |
| 7993 | #{tmp\ 2374}#) | |
| 65dd9e38 AW |
7994 | (syntax-violation |
| 7995 | #f | |
| 7996 | "source expression failed to match any pattern" | |
| b9434165 LC |
7997 | #{tmp\ 2369}#))) |
| 7998 | ($sc-dispatch | |
| 7999 | #{tmp\ 2369}# | |
| 8000 | '(any any any any))))) | |
| 8001 | ($sc-dispatch | |
| 8002 | #{tmp\ 2369}# | |
| 8003 | '(any any any)))) | |
| 8004 | #{e\ 2364}#))) | |
| 8005 | (#{global-extend\ 1295}# | |
| 65dd9e38 AW |
8006 | 'begin |
| 8007 | 'begin | |
| 8008 | '()) | |
| b9434165 | 8009 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
8010 | 'define |
| 8011 | 'define | |
| 8012 | '()) | |
| b9434165 | 8013 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
8014 | 'define-syntax |
| 8015 | 'define-syntax | |
| 8016 | '()) | |
| b9434165 | 8017 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
8018 | 'eval-when |
| 8019 | 'eval-when | |
| 8020 | '()) | |
| b9434165 | 8021 | (#{global-extend\ 1295}# |
| 65dd9e38 AW |
8022 | 'core |
| 8023 | 'syntax-case | |
| b9434165 LC |
8024 | (letrec ((#{gen-syntax-case\ 2382}# |
| 8025 | (lambda (#{x\ 2383}# | |
| 8026 | #{keys\ 2384}# | |
| 8027 | #{clauses\ 2385}# | |
| 8028 | #{r\ 2386}# | |
| 8029 | #{mod\ 2387}#) | |
| 8030 | (if (null? #{clauses\ 2385}#) | |
| 8031 | (#{build-application\ 1264}# | |
| 65dd9e38 | 8032 | #f |
| b9434165 LC |
8033 | (#{build-primref\ 1274}# |
| 8034 | #f | |
| 8035 | 'syntax-violation) | |
| 8036 | (list (#{build-data\ 1275}# #f #f) | |
| 8037 | (#{build-data\ 1275}# | |
| 65dd9e38 AW |
8038 | #f |
| 8039 | "source expression failed to match any pattern") | |
| b9434165 LC |
8040 | #{x\ 2383}#)) |
| 8041 | ((lambda (#{tmp\ 2388}#) | |
| 8042 | ((lambda (#{tmp\ 2389}#) | |
| 8043 | (if #{tmp\ 2389}# | |
| 8044 | (apply (lambda (#{pat\ 2390}# #{exp\ 2391}#) | |
| 8045 | (if (if (#{id?\ 1297}# #{pat\ 2390}#) | |
| 65dd9e38 | 8046 | (and-map |
| b9434165 LC |
8047 | (lambda (#{x\ 2392}#) |
| 8048 | (not (#{free-id=?\ 1320}# | |
| 8049 | #{pat\ 2390}# | |
| 8050 | #{x\ 2392}#))) | |
| 65dd9e38 AW |
8051 | (cons '#(syntax-object |
| 8052 | ... | |
| 8053 | ((top) | |
| 8054 | #(ribcage | |
| 8055 | #(pat exp) | |
| 8056 | #((top) (top)) | |
| 8057 | #("i" "i")) | |
| 8058 | #(ribcage () () ()) | |
| 8059 | #(ribcage | |
| 8060 | #(x | |
| 8061 | keys | |
| 8062 | clauses | |
| 8063 | r | |
| 8064 | mod) | |
| 8065 | #((top) | |
| 8066 | (top) | |
| 8067 | (top) | |
| 8068 | (top) | |
| 8069 | (top)) | |
| 8070 | #("i" | |
| 8071 | "i" | |
| 8072 | "i" | |
| 8073 | "i" | |
| 8074 | "i")) | |
| 8075 | #(ribcage | |
| 8076 | (gen-syntax-case | |
| 8077 | gen-clause | |
| 8078 | build-dispatch-call | |
| 8079 | convert-pattern) | |
| 8080 | ((top) | |
| 8081 | (top) | |
| 8082 | (top) | |
| 8083 | (top)) | |
| 8084 | ("i" "i" "i" "i")) | |
| 8085 | #(ribcage | |
| 8086 | (lambda-var-list | |
| 8087 | gen-var | |
| 8088 | strip | |
| 8089 | ellipsis? | |
| 8090 | chi-void | |
| 8091 | eval-local-transformer | |
| 8092 | chi-local-syntax | |
| 8093 | chi-lambda-clause | |
| 8094 | chi-body | |
| 8095 | chi-macro | |
| 8096 | chi-application | |
| 8097 | chi-expr | |
| 8098 | chi | |
| 8099 | chi-top | |
| 8100 | syntax-type | |
| 8101 | chi-when-list | |
| 8102 | chi-install-global | |
| 8103 | chi-top-sequence | |
| 8104 | chi-sequence | |
| 8105 | source-wrap | |
| 8106 | wrap | |
| 8107 | bound-id-member? | |
| 8108 | distinct-bound-ids? | |
| 8109 | valid-bound-ids? | |
| 8110 | bound-id=? | |
| 8111 | free-id=? | |
| 8112 | id-var-name | |
| 8113 | same-marks? | |
| 8114 | join-marks | |
| 8115 | join-wraps | |
| 8116 | smart-append | |
| 8117 | make-binding-wrap | |
| 8118 | extend-ribcage! | |
| 8119 | make-empty-ribcage | |
| 8120 | new-mark | |
| 8121 | anti-mark | |
| 8122 | the-anti-mark | |
| 8123 | top-marked? | |
| 8124 | top-wrap | |
| 8125 | empty-wrap | |
| 8126 | set-ribcage-labels! | |
| 8127 | set-ribcage-marks! | |
| 8128 | set-ribcage-symnames! | |
| 8129 | ribcage-labels | |
| 8130 | ribcage-marks | |
| 8131 | ribcage-symnames | |
| 8132 | ribcage? | |
| 8133 | make-ribcage | |
| 8134 | gen-labels | |
| 8135 | gen-label | |
| 8136 | make-rename | |
| 8137 | rename-marks | |
| 8138 | rename-new | |
| 8139 | rename-old | |
| 8140 | subst-rename? | |
| 8141 | wrap-subst | |
| 8142 | wrap-marks | |
| 8143 | make-wrap | |
| 8144 | id-sym-name&marks | |
| 8145 | id-sym-name | |
| 8146 | id? | |
| 8147 | nonsymbol-id? | |
| 8148 | global-extend | |
| 8149 | lookup | |
| 8150 | macros-only-env | |
| 8151 | extend-var-env | |
| 8152 | extend-env | |
| 8153 | null-env | |
| 8154 | binding-value | |
| 8155 | binding-type | |
| 8156 | make-binding | |
| 8157 | arg-check | |
| 8158 | source-annotation | |
| 8159 | no-source | |
| 8160 | set-syntax-object-module! | |
| 8161 | set-syntax-object-wrap! | |
| 8162 | set-syntax-object-expression! | |
| 8163 | syntax-object-module | |
| 8164 | syntax-object-wrap | |
| 8165 | syntax-object-expression | |
| 8166 | syntax-object? | |
| 8167 | make-syntax-object | |
| 8168 | build-lexical-var | |
| 8169 | build-letrec | |
| 8170 | build-named-let | |
| 8171 | build-let | |
| 8172 | build-sequence | |
| 8173 | build-data | |
| 8174 | build-primref | |
| 8175 | build-lambda | |
| 8176 | build-global-definition | |
| 8177 | maybe-name-value! | |
| 8178 | build-global-assignment | |
| 8179 | build-global-reference | |
| 8180 | analyze-variable | |
| 8181 | build-lexical-assignment | |
| 8182 | build-lexical-reference | |
| 8183 | build-conditional | |
| 8184 | build-application | |
| 8185 | build-void | |
| fc5b616b | 8186 | decorate-source |
| 65dd9e38 AW |
8187 | get-global-definition-hook |
| 8188 | put-global-definition-hook | |
| 8189 | gensym-hook | |
| 8190 | local-eval-hook | |
| 8191 | top-level-eval-hook | |
| 8192 | fx< | |
| 8193 | fx= | |
| 8194 | fx- | |
| 8195 | fx+ | |
| 8196 | *mode* | |
| 8197 | noexpand) | |
| 8198 | ((top) | |
| 8199 | (top) | |
| 8200 | (top) | |
| 8201 | (top) | |
| 8202 | (top) | |
| 8203 | (top) | |
| 8204 | (top) | |
| 8205 | (top) | |
| 8206 | (top) | |
| 8207 | (top) | |
| 8208 | (top) | |
| 8209 | (top) | |
| 8210 | (top) | |
| 8211 | (top) | |
| 8212 | (top) | |
| 8213 | (top) | |
| 8214 | (top) | |
| 8215 | (top) | |
| 8216 | (top) | |
| 8217 | (top) | |
| 8218 | (top) | |
| 8219 | (top) | |
| 8220 | (top) | |
| 8221 | (top) | |
| 8222 | (top) | |
| 8223 | (top) | |
| 8224 | (top) | |
| 8225 | (top) | |
| 8226 | (top) | |
| 8227 | (top) | |
| 8228 | (top) | |
| 8229 | (top) | |
| 8230 | (top) | |
| 8231 | (top) | |
| 8232 | (top) | |
| 8233 | (top) | |
| 8234 | (top) | |
| 8235 | (top) | |
| 8236 | (top) | |
| 8237 | (top) | |
| 8238 | (top) | |
| 8239 | (top) | |
| 8240 | (top) | |
| 8241 | (top) | |
| 8242 | (top) | |
| 8243 | (top) | |
| 8244 | (top) | |
| 8245 | (top) | |
| 8246 | (top) | |
| 8247 | (top) | |
| 8248 | (top) | |
| 8249 | (top) | |
| 8250 | (top) | |
| 8251 | (top) | |
| 8252 | (top) | |
| 8253 | (top) | |
| 8254 | (top) | |
| 8255 | (top) | |
| 8256 | (top) | |
| 8257 | (top) | |
| 8258 | (top) | |
| 8259 | (top) | |
| 8260 | (top) | |
| 8261 | (top) | |
| 8262 | (top) | |
| 8263 | (top) | |
| 8264 | (top) | |
| 8265 | (top) | |
| 8266 | (top) | |
| 8267 | (top) | |
| 8268 | (top) | |
| 8269 | (top) | |
| 8270 | (top) | |
| 8271 | (top) | |
| 8272 | (top) | |
| 8273 | (top) | |
| 8274 | (top) | |
| 8275 | (top) | |
| 8276 | (top) | |
| 8277 | (top) | |
| 8278 | (top) | |
| 8279 | (top) | |
| 8280 | (top) | |
| 8281 | (top) | |
| 8282 | (top) | |
| 8283 | (top) | |
| 8284 | (top) | |
| 8285 | (top) | |
| 8286 | (top) | |
| 8287 | (top) | |
| 8288 | (top) | |
| 8289 | (top) | |
| 8290 | (top) | |
| 8291 | (top) | |
| 8292 | (top) | |
| 8293 | (top) | |
| 8294 | (top) | |
| 8295 | (top) | |
| 8296 | (top) | |
| 8297 | (top) | |
| 8298 | (top) | |
| 8299 | (top) | |
| 8300 | (top) | |
| 8301 | (top) | |
| 8302 | (top) | |
| 8303 | (top) | |
| 8304 | (top) | |
| 8305 | (top) | |
| 8306 | (top) | |
| 8307 | (top) | |
| fc5b616b | 8308 | (top) |
| 65dd9e38 AW |
8309 | (top)) |
| 8310 | ("i" | |
| 8311 | "i" | |
| 8312 | "i" | |
| 8313 | "i" | |
| 8314 | "i" | |
| 8315 | "i" | |
| 8316 | "i" | |
| 8317 | "i" | |
| 8318 | "i" | |
| 8319 | "i" | |
| 8320 | "i" | |
| 8321 | "i" | |
| 8322 | "i" | |
| 8323 | "i" | |
| 8324 | "i" | |
| 8325 | "i" | |
| 8326 | "i" | |
| 8327 | "i" | |
| 8328 | "i" | |
| 8329 | "i" | |
| 8330 | "i" | |
| 8331 | "i" | |
| 8332 | "i" | |
| 8333 | "i" | |
| 8334 | "i" | |
| 8335 | "i" | |
| 8336 | "i" | |
| 8337 | "i" | |
| 8338 | "i" | |
| 8339 | "i" | |
| 8340 | "i" | |
| 8341 | "i" | |
| 8342 | "i" | |
| 8343 | "i" | |
| 8344 | "i" | |
| 8345 | "i" | |
| 8346 | "i" | |
| 8347 | "i" | |
| 8348 | "i" | |
| 8349 | "i" | |
| 8350 | "i" | |
| 8351 | "i" | |
| 8352 | "i" | |
| 8353 | "i" | |
| 8354 | "i" | |
| 8355 | "i" | |
| 8356 | "i" | |
| 8357 | "i" | |
| 8358 | "i" | |
| 8359 | "i" | |
| 8360 | "i" | |
| 8361 | "i" | |
| 8362 | "i" | |
| 8363 | "i" | |
| 8364 | "i" | |
| 8365 | "i" | |
| 8366 | "i" | |
| 8367 | "i" | |
| 8368 | "i" | |
| 8369 | "i" | |
| 8370 | "i" | |
| 8371 | "i" | |
| 8372 | "i" | |
| 8373 | "i" | |
| 8374 | "i" | |
| 8375 | "i" | |
| 8376 | "i" | |
| 8377 | "i" | |
| 8378 | "i" | |
| 8379 | "i" | |
| 8380 | "i" | |
| 8381 | "i" | |
| 8382 | "i" | |
| 8383 | "i" | |
| 8384 | "i" | |
| 8385 | "i" | |
| 8386 | "i" | |
| 8387 | "i" | |
| 8388 | "i" | |
| 8389 | "i" | |
| 8390 | "i" | |
| 8391 | "i" | |
| 8392 | "i" | |
| 8393 | "i" | |
| 8394 | "i" | |
| 8395 | "i" | |
| 8396 | "i" | |
| 8397 | "i" | |
| 8398 | "i" | |
| 8399 | "i" | |
| 8400 | "i" | |
| 8401 | "i" | |
| 8402 | "i" | |
| 8403 | "i" | |
| 8404 | "i" | |
| 8405 | "i" | |
| 8406 | "i" | |
| 8407 | "i" | |
| 8408 | "i" | |
| 8409 | "i" | |
| 8410 | "i" | |
| 8411 | "i" | |
| 8412 | "i" | |
| 8413 | "i" | |
| 8414 | "i" | |
| 8415 | "i" | |
| 8416 | "i" | |
| 8417 | "i" | |
| 8418 | "i" | |
| 8419 | "i" | |
| fc5b616b | 8420 | "i" |
| 65dd9e38 AW |
8421 | "i")) |
| 8422 | #(ribcage | |
| 8423 | (define-structure | |
| 8424 | and-map*) | |
| 8425 | ((top) (top)) | |
| 8426 | ("i" "i"))) | |
| 8427 | (hygiene guile)) | |
| b9434165 | 8428 | #{keys\ 2384}#)) |
| 65dd9e38 | 8429 | #f) |
| b9434165 LC |
8430 | (let ((#{labels\ 2393}# |
| 8431 | (list (#{gen-label\ 1302}#))) | |
| 8432 | (#{var\ 2394}# | |
| 8433 | (#{gen-var\ 1344}# | |
| 8434 | #{pat\ 2390}#))) | |
| 8435 | (#{build-application\ 1264}# | |
| 65dd9e38 | 8436 | #f |
| b9434165 | 8437 | (#{build-lambda\ 1273}# |
| 65dd9e38 | 8438 | #f |
| b9434165 LC |
8439 | (list (syntax->datum |
| 8440 | #{pat\ 2390}#)) | |
| 8441 | (list #{var\ 2394}#) | |
| 65dd9e38 | 8442 | #f |
| b9434165 LC |
8443 | (#{chi\ 1333}# |
| 8444 | #{exp\ 2391}# | |
| 8445 | (#{extend-env\ 1291}# | |
| 8446 | #{labels\ 2393}# | |
| 65dd9e38 | 8447 | (list (cons 'syntax |
| b9434165 | 8448 | (cons #{var\ 2394}# |
| 65dd9e38 | 8449 | 0))) |
| b9434165 LC |
8450 | #{r\ 2386}#) |
| 8451 | (#{make-binding-wrap\ 1314}# | |
| 8452 | (list #{pat\ 2390}#) | |
| 8453 | #{labels\ 2393}# | |
| 65dd9e38 | 8454 | '(())) |
| b9434165 LC |
8455 | #{mod\ 2387}#)) |
| 8456 | (list #{x\ 2383}#))) | |
| 8457 | (#{gen-clause\ 2381}# | |
| 8458 | #{x\ 2383}# | |
| 8459 | #{keys\ 2384}# | |
| 8460 | (cdr #{clauses\ 2385}#) | |
| 8461 | #{r\ 2386}# | |
| 8462 | #{pat\ 2390}# | |
| 65dd9e38 | 8463 | #t |
| b9434165 LC |
8464 | #{exp\ 2391}# |
| 8465 | #{mod\ 2387}#))) | |
| 8466 | #{tmp\ 2389}#) | |
| 8467 | ((lambda (#{tmp\ 2395}#) | |
| 8468 | (if #{tmp\ 2395}# | |
| 8469 | (apply (lambda (#{pat\ 2396}# | |
| 8470 | #{fender\ 2397}# | |
| 8471 | #{exp\ 2398}#) | |
| 8472 | (#{gen-clause\ 2381}# | |
| 8473 | #{x\ 2383}# | |
| 8474 | #{keys\ 2384}# | |
| 8475 | (cdr #{clauses\ 2385}#) | |
| 8476 | #{r\ 2386}# | |
| 8477 | #{pat\ 2396}# | |
| 8478 | #{fender\ 2397}# | |
| 8479 | #{exp\ 2398}# | |
| 8480 | #{mod\ 2387}#)) | |
| 8481 | #{tmp\ 2395}#) | |
| 8482 | ((lambda (#{_\ 2399}#) | |
| 65dd9e38 AW |
8483 | (syntax-violation |
| 8484 | 'syntax-case | |
| 8485 | "invalid clause" | |
| b9434165 LC |
8486 | (car #{clauses\ 2385}#))) |
| 8487 | #{tmp\ 2388}#))) | |
| 8488 | ($sc-dispatch | |
| 8489 | #{tmp\ 2388}# | |
| 8490 | '(any any any))))) | |
| 8491 | ($sc-dispatch #{tmp\ 2388}# (quote (any any))))) | |
| 8492 | (car #{clauses\ 2385}#))))) | |
| 8493 | (#{gen-clause\ 2381}# | |
| 8494 | (lambda (#{x\ 2400}# | |
| 8495 | #{keys\ 2401}# | |
| 8496 | #{clauses\ 2402}# | |
| 8497 | #{r\ 2403}# | |
| 8498 | #{pat\ 2404}# | |
| 8499 | #{fender\ 2405}# | |
| 8500 | #{exp\ 2406}# | |
| 8501 | #{mod\ 2407}#) | |
| 65dd9e38 AW |
8502 | (call-with-values |
| 8503 | (lambda () | |
| b9434165 LC |
8504 | (#{convert-pattern\ 2379}# |
| 8505 | #{pat\ 2404}# | |
| 8506 | #{keys\ 2401}#)) | |
| 8507 | (lambda (#{p\ 2408}# #{pvars\ 2409}#) | |
| 8508 | (if (not (#{distinct-bound-ids?\ 1323}# | |
| 8509 | (map car #{pvars\ 2409}#))) | |
| 65dd9e38 AW |
8510 | (syntax-violation |
| 8511 | 'syntax-case | |
| 8512 | "duplicate pattern variable" | |
| b9434165 | 8513 | #{pat\ 2404}#) |
| 65dd9e38 | 8514 | (if (not (and-map |
| b9434165 LC |
8515 | (lambda (#{x\ 2410}#) |
| 8516 | (not (#{ellipsis?\ 1342}# | |
| 8517 | (car #{x\ 2410}#)))) | |
| 8518 | #{pvars\ 2409}#)) | |
| 65dd9e38 AW |
8519 | (syntax-violation |
| 8520 | 'syntax-case | |
| 8521 | "misplaced ellipsis" | |
| b9434165 LC |
8522 | #{pat\ 2404}#) |
| 8523 | (let ((#{y\ 2411}# | |
| 8524 | (#{gen-var\ 1344}# (quote tmp)))) | |
| 8525 | (#{build-application\ 1264}# | |
| 65dd9e38 | 8526 | #f |
| b9434165 | 8527 | (#{build-lambda\ 1273}# |
| 65dd9e38 AW |
8528 | #f |
| 8529 | (list (quote tmp)) | |
| b9434165 | 8530 | (list #{y\ 2411}#) |
| 65dd9e38 | 8531 | #f |
| b9434165 LC |
8532 | (let ((#{y\ 2412}# |
| 8533 | (#{build-lexical-reference\ 1266}# | |
| 8534 | 'value | |
| 8535 | #f | |
| 8536 | 'tmp | |
| 8537 | #{y\ 2411}#))) | |
| 8538 | (#{build-conditional\ 1265}# | |
| 65dd9e38 | 8539 | #f |
| b9434165 LC |
8540 | ((lambda (#{tmp\ 2413}#) |
| 8541 | ((lambda (#{tmp\ 2414}#) | |
| 8542 | (if #{tmp\ 2414}# | |
| 8543 | (apply (lambda () #{y\ 2412}#) | |
| 8544 | #{tmp\ 2414}#) | |
| 8545 | ((lambda (#{_\ 2415}#) | |
| 8546 | (#{build-conditional\ 1265}# | |
| 65dd9e38 | 8547 | #f |
| b9434165 LC |
8548 | #{y\ 2412}# |
| 8549 | (#{build-dispatch-call\ 2380}# | |
| 8550 | #{pvars\ 2409}# | |
| 8551 | #{fender\ 2405}# | |
| 8552 | #{y\ 2412}# | |
| 8553 | #{r\ 2403}# | |
| 8554 | #{mod\ 2407}#) | |
| 8555 | (#{build-data\ 1275}# | |
| 8556 | #f | |
| 8557 | #f))) | |
| 8558 | #{tmp\ 2413}#))) | |
| 65dd9e38 | 8559 | ($sc-dispatch |
| b9434165 | 8560 | #{tmp\ 2413}# |
| 65dd9e38 | 8561 | '#(atom #t)))) |
| b9434165 LC |
8562 | #{fender\ 2405}#) |
| 8563 | (#{build-dispatch-call\ 2380}# | |
| 8564 | #{pvars\ 2409}# | |
| 8565 | #{exp\ 2406}# | |
| 8566 | #{y\ 2412}# | |
| 8567 | #{r\ 2403}# | |
| 8568 | #{mod\ 2407}#) | |
| 8569 | (#{gen-syntax-case\ 2382}# | |
| 8570 | #{x\ 2400}# | |
| 8571 | #{keys\ 2401}# | |
| 8572 | #{clauses\ 2402}# | |
| 8573 | #{r\ 2403}# | |
| 8574 | #{mod\ 2407}#)))) | |
| 8575 | (list (if (eq? #{p\ 2408}# (quote any)) | |
| 8576 | (#{build-application\ 1264}# | |
| 65dd9e38 | 8577 | #f |
| b9434165 LC |
8578 | (#{build-primref\ 1274}# |
| 8579 | #f | |
| 8580 | 'list) | |
| 8581 | (list #{x\ 2400}#)) | |
| 8582 | (#{build-application\ 1264}# | |
| 65dd9e38 | 8583 | #f |
| b9434165 | 8584 | (#{build-primref\ 1274}# |
| 65dd9e38 AW |
8585 | #f |
| 8586 | '$sc-dispatch) | |
| b9434165 LC |
8587 | (list #{x\ 2400}# |
| 8588 | (#{build-data\ 1275}# | |
| 65dd9e38 | 8589 | #f |
| b9434165 LC |
8590 | #{p\ 2408}#))))))))))))) |
| 8591 | (#{build-dispatch-call\ 2380}# | |
| 8592 | (lambda (#{pvars\ 2416}# | |
| 8593 | #{exp\ 2417}# | |
| 8594 | #{y\ 2418}# | |
| 8595 | #{r\ 2419}# | |
| 8596 | #{mod\ 2420}#) | |
| 8597 | (let ((#{ids\ 2421}# (map car #{pvars\ 2416}#)) | |
| 8598 | (#{levels\ 2422}# (map cdr #{pvars\ 2416}#))) | |
| 8599 | (let ((#{labels\ 2423}# | |
| 8600 | (#{gen-labels\ 1303}# #{ids\ 2421}#)) | |
| 8601 | (#{new-vars\ 2424}# | |
| 8602 | (map #{gen-var\ 1344}# #{ids\ 2421}#))) | |
| 8603 | (#{build-application\ 1264}# | |
| 65dd9e38 | 8604 | #f |
| b9434165 LC |
8605 | (#{build-primref\ 1274}# #f (quote apply)) |
| 8606 | (list (#{build-lambda\ 1273}# | |
| 65dd9e38 | 8607 | #f |
| b9434165 LC |
8608 | (map syntax->datum #{ids\ 2421}#) |
| 8609 | #{new-vars\ 2424}# | |
| 65dd9e38 | 8610 | #f |
| b9434165 LC |
8611 | (#{chi\ 1333}# |
| 8612 | #{exp\ 2417}# | |
| 8613 | (#{extend-env\ 1291}# | |
| 8614 | #{labels\ 2423}# | |
| 8615 | (map (lambda (#{var\ 2425}# | |
| 8616 | #{level\ 2426}#) | |
| 65dd9e38 | 8617 | (cons 'syntax |
| b9434165 LC |
8618 | (cons #{var\ 2425}# |
| 8619 | #{level\ 2426}#))) | |
| 8620 | #{new-vars\ 2424}# | |
| 8621 | (map cdr #{pvars\ 2416}#)) | |
| 8622 | #{r\ 2419}#) | |
| 8623 | (#{make-binding-wrap\ 1314}# | |
| 8624 | #{ids\ 2421}# | |
| 8625 | #{labels\ 2423}# | |
| 65dd9e38 | 8626 | '(())) |
| b9434165 LC |
8627 | #{mod\ 2420}#)) |
| 8628 | #{y\ 2418}#)))))) | |
| 8629 | (#{convert-pattern\ 2379}# | |
| 8630 | (lambda (#{pattern\ 2427}# #{keys\ 2428}#) | |
| 8631 | (letrec ((#{cvt\ 2429}# | |
| 8632 | (lambda (#{p\ 2430}# #{n\ 2431}# #{ids\ 2432}#) | |
| 8633 | (if (#{id?\ 1297}# #{p\ 2430}#) | |
| 8634 | (if (#{bound-id-member?\ 1324}# | |
| 8635 | #{p\ 2430}# | |
| 8636 | #{keys\ 2428}#) | |
| 65dd9e38 | 8637 | (values |
| b9434165 LC |
8638 | (vector (quote free-id) #{p\ 2430}#) |
| 8639 | #{ids\ 2432}#) | |
| 65dd9e38 AW |
8640 | (values |
| 8641 | 'any | |
| b9434165 LC |
8642 | (cons (cons #{p\ 2430}# #{n\ 2431}#) |
| 8643 | #{ids\ 2432}#))) | |
| 8644 | ((lambda (#{tmp\ 2433}#) | |
| 8645 | ((lambda (#{tmp\ 2434}#) | |
| 8646 | (if (if #{tmp\ 2434}# | |
| 8647 | (apply (lambda (#{x\ 2435}# | |
| 8648 | #{dots\ 2436}#) | |
| 8649 | (#{ellipsis?\ 1342}# | |
| 8650 | #{dots\ 2436}#)) | |
| 8651 | #{tmp\ 2434}#) | |
| 65dd9e38 | 8652 | #f) |
| b9434165 LC |
8653 | (apply (lambda (#{x\ 2437}# |
| 8654 | #{dots\ 2438}#) | |
| 65dd9e38 AW |
8655 | (call-with-values |
| 8656 | (lambda () | |
| b9434165 LC |
8657 | (#{cvt\ 2429}# |
| 8658 | #{x\ 2437}# | |
| 8659 | (#{fx+\ 1254}# | |
| 8660 | #{n\ 2431}# | |
| 8661 | 1) | |
| 8662 | #{ids\ 2432}#)) | |
| 8663 | (lambda (#{p\ 2439}# | |
| 8664 | #{ids\ 2440}#) | |
| 65dd9e38 | 8665 | (values |
| b9434165 | 8666 | (if (eq? #{p\ 2439}# |
| 65dd9e38 AW |
8667 | 'any) |
| 8668 | 'each-any | |
| 8669 | (vector | |
| 8670 | 'each | |
| b9434165 LC |
8671 | #{p\ 2439}#)) |
| 8672 | #{ids\ 2440}#)))) | |
| 8673 | #{tmp\ 2434}#) | |
| 8674 | ((lambda (#{tmp\ 2441}#) | |
| 8675 | (if #{tmp\ 2441}# | |
| 8676 | (apply (lambda (#{x\ 2442}# | |
| 8677 | #{y\ 2443}#) | |
| 65dd9e38 AW |
8678 | (call-with-values |
| 8679 | (lambda () | |
| b9434165 LC |
8680 | (#{cvt\ 2429}# |
| 8681 | #{y\ 2443}# | |
| 8682 | #{n\ 2431}# | |
| 8683 | #{ids\ 2432}#)) | |
| 8684 | (lambda (#{y\ 2444}# | |
| 8685 | #{ids\ 2445}#) | |
| 65dd9e38 AW |
8686 | (call-with-values |
| 8687 | (lambda () | |
| b9434165 LC |
8688 | (#{cvt\ 2429}# |
| 8689 | #{x\ 2442}# | |
| 8690 | #{n\ 2431}# | |
| 8691 | #{ids\ 2445}#)) | |
| 8692 | (lambda (#{x\ 2446}# | |
| 8693 | #{ids\ 2447}#) | |
| 65dd9e38 | 8694 | (values |
| b9434165 LC |
8695 | (cons #{x\ 2446}# |
| 8696 | #{y\ 2444}#) | |
| 8697 | #{ids\ 2447}#)))))) | |
| 8698 | #{tmp\ 2441}#) | |
| 8699 | ((lambda (#{tmp\ 2448}#) | |
| 8700 | (if #{tmp\ 2448}# | |
| 65dd9e38 AW |
8701 | (apply (lambda () |
| 8702 | (values | |
| 8703 | '() | |
| b9434165 LC |
8704 | #{ids\ 2432}#)) |
| 8705 | #{tmp\ 2448}#) | |
| 8706 | ((lambda (#{tmp\ 2449}#) | |
| 8707 | (if #{tmp\ 2449}# | |
| 8708 | (apply (lambda (#{x\ 2450}#) | |
| 65dd9e38 AW |
8709 | (call-with-values |
| 8710 | (lambda () | |
| b9434165 LC |
8711 | (#{cvt\ 2429}# |
| 8712 | #{x\ 2450}# | |
| 8713 | #{n\ 2431}# | |
| 8714 | #{ids\ 2432}#)) | |
| 8715 | (lambda (#{p\ 2452}# | |
| 8716 | #{ids\ 2453}#) | |
| 65dd9e38 AW |
8717 | (values |
| 8718 | (vector | |
| 8719 | 'vector | |
| b9434165 LC |
8720 | #{p\ 2452}#) |
| 8721 | #{ids\ 2453}#)))) | |
| 8722 | #{tmp\ 2449}#) | |
| 8723 | ((lambda (#{x\ 2454}#) | |
| 65dd9e38 AW |
8724 | (values |
| 8725 | (vector | |
| 8726 | 'atom | |
| b9434165 LC |
8727 | (#{strip\ 1343}# |
| 8728 | #{p\ 2430}# | |
| 65dd9e38 | 8729 | '(()))) |
| b9434165 LC |
8730 | #{ids\ 2432}#)) |
| 8731 | #{tmp\ 2433}#))) | |
| 65dd9e38 | 8732 | ($sc-dispatch |
| b9434165 | 8733 | #{tmp\ 2433}# |
| 65dd9e38 AW |
8734 | '#(vector |
| 8735 | each-any))))) | |
| 8736 | ($sc-dispatch | |
| b9434165 | 8737 | #{tmp\ 2433}# |
| 65dd9e38 AW |
8738 | '())))) |
| 8739 | ($sc-dispatch | |
| b9434165 | 8740 | #{tmp\ 2433}# |
| 65dd9e38 AW |
8741 | '(any . any))))) |
| 8742 | ($sc-dispatch | |
| b9434165 | 8743 | #{tmp\ 2433}# |
| 65dd9e38 | 8744 | '(any any)))) |
| b9434165 LC |
8745 | #{p\ 2430}#))))) |
| 8746 | (#{cvt\ 2429}# #{pattern\ 2427}# 0 (quote ())))))) | |
| 8747 | (lambda (#{e\ 2455}# | |
| 8748 | #{r\ 2456}# | |
| 8749 | #{w\ 2457}# | |
| 8750 | #{s\ 2458}# | |
| 8751 | #{mod\ 2459}#) | |
| 8752 | (let ((#{e\ 2460}# | |
| 8753 | (#{source-wrap\ 1326}# | |
| 8754 | #{e\ 2455}# | |
| 8755 | #{w\ 2457}# | |
| 8756 | #{s\ 2458}# | |
| 8757 | #{mod\ 2459}#))) | |
| 8758 | ((lambda (#{tmp\ 2461}#) | |
| 8759 | ((lambda (#{tmp\ 2462}#) | |
| 8760 | (if #{tmp\ 2462}# | |
| 8761 | (apply (lambda (#{_\ 2463}# | |
| 8762 | #{val\ 2464}# | |
| 8763 | #{key\ 2465}# | |
| 8764 | #{m\ 2466}#) | |
| 65dd9e38 | 8765 | (if (and-map |
| b9434165 LC |
8766 | (lambda (#{x\ 2467}#) |
| 8767 | (if (#{id?\ 1297}# #{x\ 2467}#) | |
| 8768 | (not (#{ellipsis?\ 1342}# | |
| 8769 | #{x\ 2467}#)) | |
| 65dd9e38 | 8770 | #f)) |
| b9434165 LC |
8771 | #{key\ 2465}#) |
| 8772 | (let ((#{x\ 2469}# | |
| 8773 | (#{gen-var\ 1344}# (quote tmp)))) | |
| 8774 | (#{build-application\ 1264}# | |
| 8775 | #{s\ 2458}# | |
| 8776 | (#{build-lambda\ 1273}# | |
| 65dd9e38 AW |
8777 | #f |
| 8778 | (list (quote tmp)) | |
| b9434165 | 8779 | (list #{x\ 2469}#) |
| 65dd9e38 | 8780 | #f |
| b9434165 LC |
8781 | (#{gen-syntax-case\ 2382}# |
| 8782 | (#{build-lexical-reference\ 1266}# | |
| 65dd9e38 AW |
8783 | 'value |
| 8784 | #f | |
| 8785 | 'tmp | |
| b9434165 LC |
8786 | #{x\ 2469}#) |
| 8787 | #{key\ 2465}# | |
| 8788 | #{m\ 2466}# | |
| 8789 | #{r\ 2456}# | |
| 8790 | #{mod\ 2459}#)) | |
| 8791 | (list (#{chi\ 1333}# | |
| 8792 | #{val\ 2464}# | |
| 8793 | #{r\ 2456}# | |
| 65dd9e38 | 8794 | '(()) |
| b9434165 | 8795 | #{mod\ 2459}#)))) |
| 65dd9e38 AW |
8796 | (syntax-violation |
| 8797 | 'syntax-case | |
| 8798 | "invalid literals list" | |
| b9434165 LC |
8799 | #{e\ 2460}#))) |
| 8800 | #{tmp\ 2462}#) | |
| 65dd9e38 AW |
8801 | (syntax-violation |
| 8802 | #f | |
| 8803 | "source expression failed to match any pattern" | |
| b9434165 | 8804 | #{tmp\ 2461}#))) |
| 65dd9e38 | 8805 | ($sc-dispatch |
| b9434165 | 8806 | #{tmp\ 2461}# |
| 65dd9e38 | 8807 | '(any any each-any . each-any)))) |
| b9434165 | 8808 | #{e\ 2460}#))))) |
| 65dd9e38 | 8809 | (set! sc-expand |
| b9434165 LC |
8810 | (lambda (#{x\ 2473}# . #{rest\ 2472}#) |
| 8811 | (if (if (pair? #{x\ 2473}#) | |
| 8812 | (equal? (car #{x\ 2473}#) #{noexpand\ 1252}#) | |
| 65dd9e38 | 8813 | #f) |
| b9434165 LC |
8814 | (cadr #{x\ 2473}#) |
| 8815 | (let ((#{m\ 2474}# | |
| 8816 | (if (null? #{rest\ 2472}#) | |
| 8817 | 'e | |
| 8818 | (car #{rest\ 2472}#))) | |
| 8819 | (#{esew\ 2475}# | |
| 8820 | (if (let ((#{t\ 2476}# (null? #{rest\ 2472}#))) | |
| 8821 | (if #{t\ 2476}# | |
| 8822 | #{t\ 2476}# | |
| 8823 | (null? (cdr #{rest\ 2472}#)))) | |
| 65dd9e38 | 8824 | '(eval) |
| b9434165 | 8825 | (cadr #{rest\ 2472}#)))) |
| 65dd9e38 | 8826 | (with-fluid* |
| b9434165 LC |
8827 | #{*mode*\ 1253}# |
| 8828 | #{m\ 2474}# | |
| 65dd9e38 | 8829 | (lambda () |
| b9434165 LC |
8830 | (#{chi-top\ 1332}# |
| 8831 | #{x\ 2473}# | |
| 65dd9e38 AW |
8832 | '() |
| 8833 | '((top)) | |
| b9434165 LC |
8834 | #{m\ 2474}# |
| 8835 | #{esew\ 2475}# | |
| 65dd9e38 AW |
8836 | (cons 'hygiene |
| 8837 | (module-name (current-module)))))))))) | |
| 8838 | (set! identifier? | |
| b9434165 LC |
8839 | (lambda (#{x\ 2477}#) |
| 8840 | (#{nonsymbol-id?\ 1296}# #{x\ 2477}#))) | |
| 65dd9e38 | 8841 | (set! datum->syntax |
| b9434165 LC |
8842 | (lambda (#{id\ 2478}# #{datum\ 2479}#) |
| 8843 | (#{make-syntax-object\ 1280}# | |
| 8844 | #{datum\ 2479}# | |
| 8845 | (#{syntax-object-wrap\ 1283}# #{id\ 2478}#) | |
| 65dd9e38 AW |
8846 | #f))) |
| 8847 | (set! syntax->datum | |
| b9434165 LC |
8848 | (lambda (#{x\ 2480}#) |
| 8849 | (#{strip\ 1343}# #{x\ 2480}# (quote (()))))) | |
| 65dd9e38 | 8850 | (set! generate-temporaries |
| b9434165 | 8851 | (lambda (#{ls\ 2481}#) |
| 65dd9e38 | 8852 | (begin |
| b9434165 LC |
8853 | (let ((#{x\ 2482}# #{ls\ 2481}#)) |
| 8854 | (if (not (list? #{x\ 2482}#)) | |
| 65dd9e38 AW |
8855 | (syntax-violation |
| 8856 | 'generate-temporaries | |
| 8857 | "invalid argument" | |
| b9434165 LC |
8858 | #{x\ 2482}#))) |
| 8859 | (map (lambda (#{x\ 2483}#) | |
| 8860 | (#{wrap\ 1325}# (gensym) (quote ((top))) #f)) | |
| 8861 | #{ls\ 2481}#)))) | |
| 65dd9e38 | 8862 | (set! free-identifier=? |
| b9434165 | 8863 | (lambda (#{x\ 2484}# #{y\ 2485}#) |
| 65dd9e38 | 8864 | (begin |
| b9434165 LC |
8865 | (let ((#{x\ 2486}# #{x\ 2484}#)) |
| 8866 | (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2486}#)) | |
| 65dd9e38 AW |
8867 | (syntax-violation |
| 8868 | 'free-identifier=? | |
| 8869 | "invalid argument" | |
| b9434165 LC |
8870 | #{x\ 2486}#))) |
| 8871 | (let ((#{x\ 2487}# #{y\ 2485}#)) | |
| 8872 | (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2487}#)) | |
| 65dd9e38 AW |
8873 | (syntax-violation |
| 8874 | 'free-identifier=? | |
| 8875 | "invalid argument" | |
| b9434165 LC |
8876 | #{x\ 2487}#))) |
| 8877 | (#{free-id=?\ 1320}# #{x\ 2484}# #{y\ 2485}#)))) | |
| 65dd9e38 | 8878 | (set! bound-identifier=? |
| b9434165 | 8879 | (lambda (#{x\ 2488}# #{y\ 2489}#) |
| 65dd9e38 | 8880 | (begin |
| b9434165 LC |
8881 | (let ((#{x\ 2490}# #{x\ 2488}#)) |
| 8882 | (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2490}#)) | |
| 65dd9e38 AW |
8883 | (syntax-violation |
| 8884 | 'bound-identifier=? | |
| 8885 | "invalid argument" | |
| b9434165 LC |
8886 | #{x\ 2490}#))) |
| 8887 | (let ((#{x\ 2491}# #{y\ 2489}#)) | |
| 8888 | (if (not (#{nonsymbol-id?\ 1296}# #{x\ 2491}#)) | |
| 65dd9e38 AW |
8889 | (syntax-violation |
| 8890 | 'bound-identifier=? | |
| 8891 | "invalid argument" | |
| b9434165 LC |
8892 | #{x\ 2491}#))) |
| 8893 | (#{bound-id=?\ 1321}# #{x\ 2488}# #{y\ 2489}#)))) | |
| 65dd9e38 | 8894 | (set! syntax-violation |
| b9434165 LC |
8895 | (lambda (#{who\ 2495}# |
| 8896 | #{message\ 2494}# | |
| 8897 | #{form\ 2493}# | |
| 8898 | . | |
| 8899 | #{subform\ 2492}#) | |
| 65dd9e38 | 8900 | (begin |
| b9434165 LC |
8901 | (let ((#{x\ 2496}# #{who\ 2495}#)) |
| 8902 | (if (not ((lambda (#{x\ 2497}#) | |
| 8903 | (let ((#{t\ 2498}# (not #{x\ 2497}#))) | |
| 8904 | (if #{t\ 2498}# | |
| 8905 | #{t\ 2498}# | |
| 8906 | (let ((#{t\ 2499}# (string? #{x\ 2497}#))) | |
| 8907 | (if #{t\ 2499}# | |
| 8908 | #{t\ 2499}# | |
| 8909 | (symbol? #{x\ 2497}#)))))) | |
| 8910 | #{x\ 2496}#)) | |
| 65dd9e38 AW |
8911 | (syntax-violation |
| 8912 | 'syntax-violation | |
| 8913 | "invalid argument" | |
| b9434165 LC |
8914 | #{x\ 2496}#))) |
| 8915 | (let ((#{x\ 2500}# #{message\ 2494}#)) | |
| 8916 | (if (not (string? #{x\ 2500}#)) | |
| 65dd9e38 AW |
8917 | (syntax-violation |
| 8918 | 'syntax-violation | |
| 8919 | "invalid argument" | |
| b9434165 | 8920 | #{x\ 2500}#))) |
| 65dd9e38 AW |
8921 | (scm-error |
| 8922 | 'syntax-error | |
| 8923 | 'sc-expand | |
| 8924 | (string-append | |
| b9434165 | 8925 | (if #{who\ 2495}# "~a: " "") |
| 65dd9e38 | 8926 | "~a " |
| b9434165 | 8927 | (if (null? #{subform\ 2492}#) |
| 65dd9e38 AW |
8928 | "in ~a" |
| 8929 | "in subform `~s' of `~s'")) | |
| b9434165 LC |
8930 | (let ((#{tail\ 2501}# |
| 8931 | (cons #{message\ 2494}# | |
| 8932 | (map (lambda (#{x\ 2502}#) | |
| 8933 | (#{strip\ 1343}# #{x\ 2502}# (quote (())))) | |
| 8934 | (append | |
| 8935 | #{subform\ 2492}# | |
| 8936 | (list #{form\ 2493}#)))))) | |
| 8937 | (if #{who\ 2495}# | |
| 8938 | (cons #{who\ 2495}# #{tail\ 2501}#) | |
| 8939 | #{tail\ 2501}#)) | |
| 65dd9e38 | 8940 | #f)))) |
| b9434165 LC |
8941 | (letrec ((#{match\ 2507}# |
| 8942 | (lambda (#{e\ 2508}# | |
| 8943 | #{p\ 2509}# | |
| 8944 | #{w\ 2510}# | |
| 8945 | #{r\ 2511}# | |
| 8946 | #{mod\ 2512}#) | |
| 8947 | (if (not #{r\ 2511}#) | |
| 65dd9e38 | 8948 | #f |
| b9434165 LC |
8949 | (if (eq? #{p\ 2509}# (quote any)) |
| 8950 | (cons (#{wrap\ 1325}# | |
| 8951 | #{e\ 2508}# | |
| 8952 | #{w\ 2510}# | |
| 8953 | #{mod\ 2512}#) | |
| 8954 | #{r\ 2511}#) | |
| 8955 | (if (#{syntax-object?\ 1281}# #{e\ 2508}#) | |
| 8956 | (#{match*\ 2506}# | |
| 8957 | (#{syntax-object-expression\ 1282}# #{e\ 2508}#) | |
| 8958 | #{p\ 2509}# | |
| 8959 | (#{join-wraps\ 1316}# | |
| 8960 | #{w\ 2510}# | |
| 8961 | (#{syntax-object-wrap\ 1283}# #{e\ 2508}#)) | |
| 8962 | #{r\ 2511}# | |
| 8963 | (#{syntax-object-module\ 1284}# #{e\ 2508}#)) | |
| 8964 | (#{match*\ 2506}# | |
| 8965 | #{e\ 2508}# | |
| 8966 | #{p\ 2509}# | |
| 8967 | #{w\ 2510}# | |
| 8968 | #{r\ 2511}# | |
| 8969 | #{mod\ 2512}#)))))) | |
| 8970 | (#{match*\ 2506}# | |
| 8971 | (lambda (#{e\ 2513}# | |
| 8972 | #{p\ 2514}# | |
| 8973 | #{w\ 2515}# | |
| 8974 | #{r\ 2516}# | |
| 8975 | #{mod\ 2517}#) | |
| 8976 | (if (null? #{p\ 2514}#) | |
| 8977 | (if (null? #{e\ 2513}#) #{r\ 2516}# #f) | |
| 8978 | (if (pair? #{p\ 2514}#) | |
| 8979 | (if (pair? #{e\ 2513}#) | |
| 8980 | (#{match\ 2507}# | |
| 8981 | (car #{e\ 2513}#) | |
| 8982 | (car #{p\ 2514}#) | |
| 8983 | #{w\ 2515}# | |
| 8984 | (#{match\ 2507}# | |
| 8985 | (cdr #{e\ 2513}#) | |
| 8986 | (cdr #{p\ 2514}#) | |
| 8987 | #{w\ 2515}# | |
| 8988 | #{r\ 2516}# | |
| 8989 | #{mod\ 2517}#) | |
| 8990 | #{mod\ 2517}#) | |
| 65dd9e38 | 8991 | #f) |
| b9434165 LC |
8992 | (if (eq? #{p\ 2514}# (quote each-any)) |
| 8993 | (let ((#{l\ 2518}# | |
| 8994 | (#{match-each-any\ 2504}# | |
| 8995 | #{e\ 2513}# | |
| 8996 | #{w\ 2515}# | |
| 8997 | #{mod\ 2517}#))) | |
| 8998 | (if #{l\ 2518}# | |
| 8999 | (cons #{l\ 2518}# #{r\ 2516}#) | |
| 9000 | #f)) | |
| 9001 | (let ((#{atom-key\ 2519}# (vector-ref #{p\ 2514}# 0))) | |
| 9002 | (if (memv #{atom-key\ 2519}# (quote (each))) | |
| 9003 | (if (null? #{e\ 2513}#) | |
| 9004 | (#{match-empty\ 2505}# | |
| 9005 | (vector-ref #{p\ 2514}# 1) | |
| 9006 | #{r\ 2516}#) | |
| 9007 | (let ((#{l\ 2520}# | |
| 9008 | (#{match-each\ 2503}# | |
| 9009 | #{e\ 2513}# | |
| 9010 | (vector-ref #{p\ 2514}# 1) | |
| 9011 | #{w\ 2515}# | |
| 9012 | #{mod\ 2517}#))) | |
| 9013 | (if #{l\ 2520}# | |
| 9014 | (letrec ((#{collect\ 2521}# | |
| 9015 | (lambda (#{l\ 2522}#) | |
| 9016 | (if (null? (car #{l\ 2522}#)) | |
| 9017 | #{r\ 2516}# | |
| 9018 | (cons (map car #{l\ 2522}#) | |
| 9019 | (#{collect\ 2521}# | |
| 9020 | (map cdr | |
| 9021 | #{l\ 2522}#))))))) | |
| 9022 | (#{collect\ 2521}# #{l\ 2520}#)) | |
| 65dd9e38 | 9023 | #f))) |
| b9434165 LC |
9024 | (if (memv #{atom-key\ 2519}# (quote (free-id))) |
| 9025 | (if (#{id?\ 1297}# #{e\ 2513}#) | |
| 9026 | (if (#{free-id=?\ 1320}# | |
| 9027 | (#{wrap\ 1325}# | |
| 9028 | #{e\ 2513}# | |
| 9029 | #{w\ 2515}# | |
| 9030 | #{mod\ 2517}#) | |
| 9031 | (vector-ref #{p\ 2514}# 1)) | |
| 9032 | #{r\ 2516}# | |
| 65dd9e38 AW |
9033 | #f) |
| 9034 | #f) | |
| b9434165 | 9035 | (if (memv #{atom-key\ 2519}# (quote (atom))) |
| 65dd9e38 | 9036 | (if (equal? |
| b9434165 LC |
9037 | (vector-ref #{p\ 2514}# 1) |
| 9038 | (#{strip\ 1343}# | |
| 9039 | #{e\ 2513}# | |
| 9040 | #{w\ 2515}#)) | |
| 9041 | #{r\ 2516}# | |
| 65dd9e38 | 9042 | #f) |
| b9434165 LC |
9043 | (if (memv #{atom-key\ 2519}# (quote (vector))) |
| 9044 | (if (vector? #{e\ 2513}#) | |
| 9045 | (#{match\ 2507}# | |
| 9046 | (vector->list #{e\ 2513}#) | |
| 9047 | (vector-ref #{p\ 2514}# 1) | |
| 9048 | #{w\ 2515}# | |
| 9049 | #{r\ 2516}# | |
| 9050 | #{mod\ 2517}#) | |
| 65dd9e38 | 9051 | #f))))))))))) |
| b9434165 LC |
9052 | (#{match-empty\ 2505}# |
| 9053 | (lambda (#{p\ 2523}# #{r\ 2524}#) | |
| 9054 | (if (null? #{p\ 2523}#) | |
| 9055 | #{r\ 2524}# | |
| 9056 | (if (eq? #{p\ 2523}# (quote any)) | |
| 9057 | (cons (quote ()) #{r\ 2524}#) | |
| 9058 | (if (pair? #{p\ 2523}#) | |
| 9059 | (#{match-empty\ 2505}# | |
| 9060 | (car #{p\ 2523}#) | |
| 9061 | (#{match-empty\ 2505}# | |
| 9062 | (cdr #{p\ 2523}#) | |
| 9063 | #{r\ 2524}#)) | |
| 9064 | (if (eq? #{p\ 2523}# (quote each-any)) | |
| 9065 | (cons (quote ()) #{r\ 2524}#) | |
| 9066 | (let ((#{atom-key\ 2525}# | |
| 9067 | (vector-ref #{p\ 2523}# 0))) | |
| 9068 | (if (memv #{atom-key\ 2525}# (quote (each))) | |
| 9069 | (#{match-empty\ 2505}# | |
| 9070 | (vector-ref #{p\ 2523}# 1) | |
| 9071 | #{r\ 2524}#) | |
| 9072 | (if (memv #{atom-key\ 2525}# | |
| 9073 | '(free-id atom)) | |
| 9074 | #{r\ 2524}# | |
| 9075 | (if (memv #{atom-key\ 2525}# (quote (vector))) | |
| 9076 | (#{match-empty\ 2505}# | |
| 9077 | (vector-ref #{p\ 2523}# 1) | |
| 9078 | #{r\ 2524}#))))))))))) | |
| 9079 | (#{match-each-any\ 2504}# | |
| 9080 | (lambda (#{e\ 2526}# #{w\ 2527}# #{mod\ 2528}#) | |
| 9081 | (if (pair? #{e\ 2526}#) | |
| 9082 | (let ((#{l\ 2529}# | |
| 9083 | (#{match-each-any\ 2504}# | |
| 9084 | (cdr #{e\ 2526}#) | |
| 9085 | #{w\ 2527}# | |
| 9086 | #{mod\ 2528}#))) | |
| 9087 | (if #{l\ 2529}# | |
| 9088 | (cons (#{wrap\ 1325}# | |
| 9089 | (car #{e\ 2526}#) | |
| 9090 | #{w\ 2527}# | |
| 9091 | #{mod\ 2528}#) | |
| 9092 | #{l\ 2529}#) | |
| 65dd9e38 | 9093 | #f)) |
| b9434165 | 9094 | (if (null? #{e\ 2526}#) |
| 65dd9e38 | 9095 | '() |
| b9434165 LC |
9096 | (if (#{syntax-object?\ 1281}# #{e\ 2526}#) |
| 9097 | (#{match-each-any\ 2504}# | |
| 9098 | (#{syntax-object-expression\ 1282}# #{e\ 2526}#) | |
| 9099 | (#{join-wraps\ 1316}# | |
| 9100 | #{w\ 2527}# | |
| 9101 | (#{syntax-object-wrap\ 1283}# #{e\ 2526}#)) | |
| 9102 | #{mod\ 2528}#) | |
| 65dd9e38 | 9103 | #f))))) |
| b9434165 LC |
9104 | (#{match-each\ 2503}# |
| 9105 | (lambda (#{e\ 2530}# | |
| 9106 | #{p\ 2531}# | |
| 9107 | #{w\ 2532}# | |
| 9108 | #{mod\ 2533}#) | |
| 9109 | (if (pair? #{e\ 2530}#) | |
| 9110 | (let ((#{first\ 2534}# | |
| 9111 | (#{match\ 2507}# | |
| 9112 | (car #{e\ 2530}#) | |
| 9113 | #{p\ 2531}# | |
| 9114 | #{w\ 2532}# | |
| 65dd9e38 | 9115 | '() |
| b9434165 LC |
9116 | #{mod\ 2533}#))) |
| 9117 | (if #{first\ 2534}# | |
| 9118 | (let ((#{rest\ 2535}# | |
| 9119 | (#{match-each\ 2503}# | |
| 9120 | (cdr #{e\ 2530}#) | |
| 9121 | #{p\ 2531}# | |
| 9122 | #{w\ 2532}# | |
| 9123 | #{mod\ 2533}#))) | |
| 9124 | (if #{rest\ 2535}# | |
| 9125 | (cons #{first\ 2534}# #{rest\ 2535}#) | |
| 9126 | #f)) | |
| 65dd9e38 | 9127 | #f)) |
| b9434165 | 9128 | (if (null? #{e\ 2530}#) |
| 65dd9e38 | 9129 | '() |
| b9434165 LC |
9130 | (if (#{syntax-object?\ 1281}# #{e\ 2530}#) |
| 9131 | (#{match-each\ 2503}# | |
| 9132 | (#{syntax-object-expression\ 1282}# #{e\ 2530}#) | |
| 9133 | #{p\ 2531}# | |
| 9134 | (#{join-wraps\ 1316}# | |
| 9135 | #{w\ 2532}# | |
| 9136 | (#{syntax-object-wrap\ 1283}# #{e\ 2530}#)) | |
| 9137 | (#{syntax-object-module\ 1284}# #{e\ 2530}#)) | |
| 65dd9e38 AW |
9138 | #f)))))) |
| 9139 | (set! $sc-dispatch | |
| b9434165 LC |
9140 | (lambda (#{e\ 2536}# #{p\ 2537}#) |
| 9141 | (if (eq? #{p\ 2537}# (quote any)) | |
| 9142 | (list #{e\ 2536}#) | |
| 9143 | (if (#{syntax-object?\ 1281}# #{e\ 2536}#) | |
| 9144 | (#{match*\ 2506}# | |
| 9145 | (#{syntax-object-expression\ 1282}# #{e\ 2536}#) | |
| 9146 | #{p\ 2537}# | |
| 9147 | (#{syntax-object-wrap\ 1283}# #{e\ 2536}#) | |
| 65dd9e38 | 9148 | '() |
| b9434165 LC |
9149 | (#{syntax-object-module\ 1284}# #{e\ 2536}#)) |
| 9150 | (#{match*\ 2506}# | |
| 9151 | #{e\ 2536}# | |
| 9152 | #{p\ 2537}# | |
| 65dd9e38 AW |
9153 | '(()) |
| 9154 | '() | |
| 9155 | #f))))))))) | |
| 9156 | ||
| 9157 | (define with-syntax | |
| 9158 | (make-syncase-macro | |
| 9159 | 'macro | |
| b9434165 LC |
9160 | (lambda (#{x\ 2538}#) |
| 9161 | ((lambda (#{tmp\ 2539}#) | |
| 9162 | ((lambda (#{tmp\ 2540}#) | |
| 9163 | (if #{tmp\ 2540}# | |
| 9164 | (apply (lambda (#{_\ 2541}# #{e1\ 2542}# #{e2\ 2543}#) | |
| 65dd9e38 AW |
9165 | (cons '#(syntax-object |
| 9166 | begin | |
| 9167 | ((top) | |
| 9168 | #(ribcage | |
| 9169 | #(_ e1 e2) | |
| 9170 | #((top) (top) (top)) | |
| 9171 | #("i" "i" "i")) | |
| 9172 | #(ribcage () () ()) | |
| 9173 | #(ribcage #(x) #((top)) #("i"))) | |
| 9174 | (hygiene guile)) | |
| b9434165 LC |
9175 | (cons #{e1\ 2542}# #{e2\ 2543}#))) |
| 9176 | #{tmp\ 2540}#) | |
| 9177 | ((lambda (#{tmp\ 2545}#) | |
| 9178 | (if #{tmp\ 2545}# | |
| 9179 | (apply (lambda (#{_\ 2546}# | |
| 9180 | #{out\ 2547}# | |
| 9181 | #{in\ 2548}# | |
| 9182 | #{e1\ 2549}# | |
| 9183 | #{e2\ 2550}#) | |
| 65dd9e38 AW |
9184 | (list '#(syntax-object |
| 9185 | syntax-case | |
| 9186 | ((top) | |
| 9187 | #(ribcage | |
| 9188 | #(_ out in e1 e2) | |
| 9189 | #((top) (top) (top) (top) (top)) | |
| 9190 | #("i" "i" "i" "i" "i")) | |
| 9191 | #(ribcage () () ()) | |
| 9192 | #(ribcage #(x) #((top)) #("i"))) | |
| 9193 | (hygiene guile)) | |
| b9434165 | 9194 | #{in\ 2548}# |
| 65dd9e38 | 9195 | '() |
| b9434165 | 9196 | (list #{out\ 2547}# |
| 65dd9e38 AW |
9197 | (cons '#(syntax-object |
| 9198 | begin | |
| 9199 | ((top) | |
| 9200 | #(ribcage | |
| 9201 | #(_ out in e1 e2) | |
| 9202 | #((top) | |
| 9203 | (top) | |
| 9204 | (top) | |
| 9205 | (top) | |
| 9206 | (top)) | |
| 9207 | #("i" "i" "i" "i" "i")) | |
| 9208 | #(ribcage () () ()) | |
| 9209 | #(ribcage | |
| 9210 | #(x) | |
| 9211 | #((top)) | |
| 9212 | #("i"))) | |
| 9213 | (hygiene guile)) | |
| b9434165 LC |
9214 | (cons #{e1\ 2549}# |
| 9215 | #{e2\ 2550}#))))) | |
| 9216 | #{tmp\ 2545}#) | |
| 9217 | ((lambda (#{tmp\ 2552}#) | |
| 9218 | (if #{tmp\ 2552}# | |
| 9219 | (apply (lambda (#{_\ 2553}# | |
| 9220 | #{out\ 2554}# | |
| 9221 | #{in\ 2555}# | |
| 9222 | #{e1\ 2556}# | |
| 9223 | #{e2\ 2557}#) | |
| 65dd9e38 AW |
9224 | (list '#(syntax-object |
| 9225 | syntax-case | |
| 9226 | ((top) | |
| 9227 | #(ribcage | |
| 9228 | #(_ out in e1 e2) | |
| 9229 | #((top) (top) (top) (top) (top)) | |
| 9230 | #("i" "i" "i" "i" "i")) | |
| 9231 | #(ribcage () () ()) | |
| 9232 | #(ribcage #(x) #((top)) #("i"))) | |
| 9233 | (hygiene guile)) | |
| 9234 | (cons '#(syntax-object | |
| 9235 | list | |
| 9236 | ((top) | |
| 9237 | #(ribcage | |
| 9238 | #(_ out in e1 e2) | |
| 9239 | #((top) | |
| 9240 | (top) | |
| 9241 | (top) | |
| 9242 | (top) | |
| 9243 | (top)) | |
| 9244 | #("i" "i" "i" "i" "i")) | |
| 9245 | #(ribcage () () ()) | |
| 9246 | #(ribcage | |
| 9247 | #(x) | |
| 9248 | #((top)) | |
| 9249 | #("i"))) | |
| 9250 | (hygiene guile)) | |
| b9434165 | 9251 | #{in\ 2555}#) |
| 65dd9e38 | 9252 | '() |
| b9434165 | 9253 | (list #{out\ 2554}# |
| 65dd9e38 AW |
9254 | (cons '#(syntax-object |
| 9255 | begin | |
| 9256 | ((top) | |
| 9257 | #(ribcage | |
| 9258 | #(_ out in e1 e2) | |
| 9259 | #((top) | |
| 9260 | (top) | |
| 9261 | (top) | |
| 9262 | (top) | |
| 9263 | (top)) | |
| 9264 | #("i" | |
| 9265 | "i" | |
| 9266 | "i" | |
| 9267 | "i" | |
| 9268 | "i")) | |
| 9269 | #(ribcage () () ()) | |
| 9270 | #(ribcage | |
| 9271 | #(x) | |
| 9272 | #((top)) | |
| 9273 | #("i"))) | |
| 9274 | (hygiene guile)) | |
| b9434165 LC |
9275 | (cons #{e1\ 2556}# |
| 9276 | #{e2\ 2557}#))))) | |
| 9277 | #{tmp\ 2552}#) | |
| 65dd9e38 AW |
9278 | (syntax-violation |
| 9279 | #f | |
| 9280 | "source expression failed to match any pattern" | |
| b9434165 | 9281 | #{tmp\ 2539}#))) |
| 65dd9e38 | 9282 | ($sc-dispatch |
| b9434165 | 9283 | #{tmp\ 2539}# |
| 65dd9e38 AW |
9284 | '(any #(each (any any)) any . each-any))))) |
| 9285 | ($sc-dispatch | |
| b9434165 | 9286 | #{tmp\ 2539}# |
| 65dd9e38 AW |
9287 | '(any ((any any)) any . each-any))))) |
| 9288 | ($sc-dispatch | |
| b9434165 | 9289 | #{tmp\ 2539}# |
| 65dd9e38 | 9290 | '(any () any . each-any)))) |
| b9434165 | 9291 | #{x\ 2538}#)))) |
| 65dd9e38 AW |
9292 | |
| 9293 | (define syntax-rules | |
| 9294 | (make-syncase-macro | |
| 9295 | 'macro | |
| b9434165 LC |
9296 | (lambda (#{x\ 2561}#) |
| 9297 | ((lambda (#{tmp\ 2562}#) | |
| 9298 | ((lambda (#{tmp\ 2563}#) | |
| 9299 | (if #{tmp\ 2563}# | |
| 9300 | (apply (lambda (#{_\ 2564}# | |
| 9301 | #{k\ 2565}# | |
| 9302 | #{keyword\ 2566}# | |
| 9303 | #{pattern\ 2567}# | |
| 9304 | #{template\ 2568}#) | |
| 65dd9e38 AW |
9305 | (list '#(syntax-object |
| 9306 | lambda | |
| 9307 | ((top) | |
| 9308 | #(ribcage | |
| 9309 | #(_ k keyword pattern template) | |
| 9310 | #((top) (top) (top) (top) (top)) | |
| 9311 | #("i" "i" "i" "i" "i")) | |
| 9312 | #(ribcage () () ()) | |
| 9313 | #(ribcage #(x) #((top)) #("i"))) | |
| 9314 | (hygiene guile)) | |
| 9315 | '(#(syntax-object | |
| 9316 | x | |
| 9317 | ((top) | |
| 9318 | #(ribcage | |
| 9319 | #(_ k keyword pattern template) | |
| 9320 | #((top) (top) (top) (top) (top)) | |
| 9321 | #("i" "i" "i" "i" "i")) | |
| 9322 | #(ribcage () () ()) | |
| 9323 | #(ribcage #(x) #((top)) #("i"))) | |
| 9324 | (hygiene guile))) | |
| 9325 | (cons '#(syntax-object | |
| 9326 | syntax-case | |
| 9327 | ((top) | |
| 9328 | #(ribcage | |
| 9329 | #(_ k keyword pattern template) | |
| 9330 | #((top) (top) (top) (top) (top)) | |
| 9331 | #("i" "i" "i" "i" "i")) | |
| 9332 | #(ribcage () () ()) | |
| 9333 | #(ribcage #(x) #((top)) #("i"))) | |
| 9334 | (hygiene guile)) | |
| 9335 | (cons '#(syntax-object | |
| 9336 | x | |
| 9337 | ((top) | |
| 9338 | #(ribcage | |
| 9339 | #(_ k keyword pattern template) | |
| 9340 | #((top) (top) (top) (top) (top)) | |
| 9341 | #("i" "i" "i" "i" "i")) | |
| 9342 | #(ribcage () () ()) | |
| 9343 | #(ribcage #(x) #((top)) #("i"))) | |
| 9344 | (hygiene guile)) | |
| b9434165 LC |
9345 | (cons #{k\ 2565}# |
| 9346 | (map (lambda (#{tmp\ 2571}# | |
| 9347 | #{tmp\ 2570}#) | |
| 65dd9e38 AW |
9348 | (list (cons '#(syntax-object |
| 9349 | dummy | |
| 9350 | ((top) | |
| 9351 | #(ribcage | |
| 9352 | #(_ | |
| 9353 | k | |
| 9354 | keyword | |
| 9355 | pattern | |
| 9356 | template) | |
| 9357 | #((top) | |
| 9358 | (top) | |
| 9359 | (top) | |
| 9360 | (top) | |
| 9361 | (top)) | |
| 9362 | #("i" | |
| 9363 | "i" | |
| 9364 | "i" | |
| 9365 | "i" | |
| 9366 | "i")) | |
| 9367 | #(ribcage | |
| 9368 | () | |
| 9369 | () | |
| 9370 | ()) | |
| 9371 | #(ribcage | |
| 9372 | #(x) | |
| 9373 | #((top)) | |
| 9374 | #("i"))) | |
| 9375 | (hygiene | |
| 9376 | guile)) | |
| b9434165 | 9377 | #{tmp\ 2570}#) |
| 65dd9e38 AW |
9378 | (list '#(syntax-object |
| 9379 | syntax | |
| 9380 | ((top) | |
| 9381 | #(ribcage | |
| 9382 | #(_ | |
| 9383 | k | |
| 9384 | keyword | |
| 9385 | pattern | |
| 9386 | template) | |
| 9387 | #((top) | |
| 9388 | (top) | |
| 9389 | (top) | |
| 9390 | (top) | |
| 9391 | (top)) | |
| 9392 | #("i" | |
| 9393 | "i" | |
| 9394 | "i" | |
| 9395 | "i" | |
| 9396 | "i")) | |
| 9397 | #(ribcage | |
| 9398 | () | |
| 9399 | () | |
| 9400 | ()) | |
| 9401 | #(ribcage | |
| 9402 | #(x) | |
| 9403 | #((top)) | |
| 9404 | #("i"))) | |
| 9405 | (hygiene | |
| 9406 | guile)) | |
| b9434165 LC |
9407 | #{tmp\ 2571}#))) |
| 9408 | #{template\ 2568}# | |
| 9409 | #{pattern\ 2567}#)))))) | |
| 9410 | #{tmp\ 2563}#) | |
| 9411 | (syntax-violation | |
| 9412 | #f | |
| 9413 | "source expression failed to match any pattern" | |
| 9414 | #{tmp\ 2562}#))) | |
| 9415 | ($sc-dispatch | |
| 9416 | #{tmp\ 2562}# | |
| 9417 | '(any each-any . #(each ((any . any) any)))))) | |
| 9418 | #{x\ 2561}#)))) | |
| 9419 | ||
| 9420 | (define let* | |
| 9421 | (make-extended-syncase-macro | |
| 9422 | (module-ref (current-module) (quote let*)) | |
| 9423 | 'macro | |
| 9424 | (lambda (#{x\ 2572}#) | |
| 9425 | ((lambda (#{tmp\ 2573}#) | |
| 9426 | ((lambda (#{tmp\ 2574}#) | |
| 9427 | (if (if #{tmp\ 2574}# | |
| 9428 | (apply (lambda (#{let*\ 2575}# | |
| 9429 | #{x\ 2576}# | |
| 9430 | #{v\ 2577}# | |
| 9431 | #{e1\ 2578}# | |
| 9432 | #{e2\ 2579}#) | |
| 9433 | (and-map identifier? #{x\ 2576}#)) | |
| 9434 | #{tmp\ 2574}#) | |
| 9435 | #f) | |
| 9436 | (apply (lambda (#{let*\ 2581}# | |
| 9437 | #{x\ 2582}# | |
| 9438 | #{v\ 2583}# | |
| 9439 | #{e1\ 2584}# | |
| 9440 | #{e2\ 2585}#) | |
| 9441 | (letrec ((#{f\ 2586}# | |
| 9442 | (lambda (#{bindings\ 2587}#) | |
| 9443 | (if (null? #{bindings\ 2587}#) | |
| 9444 | (cons '#(syntax-object | |
| 9445 | let | |
| 9446 | ((top) | |
| 9447 | #(ribcage () () ()) | |
| 9448 | #(ribcage | |
| 9449 | #(f bindings) | |
| 9450 | #((top) (top)) | |
| 9451 | #("i" "i")) | |
| 9452 | #(ribcage | |
| 9453 | #(let* x v e1 e2) | |
| 9454 | #((top) | |
| 9455 | (top) | |
| 9456 | (top) | |
| 9457 | (top) | |
| 9458 | (top)) | |
| 9459 | #("i" "i" "i" "i" "i")) | |
| 9460 | #(ribcage () () ()) | |
| 9461 | #(ribcage | |
| 9462 | #(x) | |
| 9463 | #((top)) | |
| 9464 | #("i"))) | |
| 9465 | (hygiene guile)) | |
| 9466 | (cons '() | |
| 9467 | (cons #{e1\ 2584}# | |
| 9468 | #{e2\ 2585}#))) | |
| 9469 | ((lambda (#{tmp\ 2591}#) | |
| 9470 | ((lambda (#{tmp\ 2592}#) | |
| 9471 | (if #{tmp\ 2592}# | |
| 9472 | (apply (lambda (#{body\ 2593}# | |
| 9473 | #{binding\ 2594}#) | |
| 9474 | (list '#(syntax-object | |
| 9475 | let | |
| 9476 | ((top) | |
| 9477 | #(ribcage | |
| 9478 | #(body | |
| 9479 | binding) | |
| 9480 | #((top) | |
| 9481 | (top)) | |
| 9482 | #("i" "i")) | |
| 9483 | #(ribcage | |
| 9484 | () | |
| 9485 | () | |
| 9486 | ()) | |
| 9487 | #(ribcage | |
| 9488 | #(f | |
| 9489 | bindings) | |
| 9490 | #((top) | |
| 9491 | (top)) | |
| 9492 | #("i" "i")) | |
| 9493 | #(ribcage | |
| 9494 | #(let* | |
| 9495 | x | |
| 9496 | v | |
| 9497 | e1 | |
| 9498 | e2) | |
| 9499 | #((top) | |
| 9500 | (top) | |
| 9501 | (top) | |
| 9502 | (top) | |
| 9503 | (top)) | |
| 9504 | #("i" | |
| 9505 | "i" | |
| 9506 | "i" | |
| 9507 | "i" | |
| 9508 | "i")) | |
| 9509 | #(ribcage | |
| 9510 | () | |
| 9511 | () | |
| 9512 | ()) | |
| 9513 | #(ribcage | |
| 9514 | #(x) | |
| 9515 | #((top)) | |
| 9516 | #("i"))) | |
| 9517 | (hygiene | |
| 9518 | guile)) | |
| 9519 | (list #{binding\ 2594}#) | |
| 9520 | #{body\ 2593}#)) | |
| 9521 | #{tmp\ 2592}#) | |
| 9522 | (syntax-violation | |
| 9523 | #f | |
| 9524 | "source expression failed to match any pattern" | |
| 9525 | #{tmp\ 2591}#))) | |
| 9526 | ($sc-dispatch | |
| 9527 | #{tmp\ 2591}# | |
| 9528 | '(any any)))) | |
| 9529 | (list (#{f\ 2586}# | |
| 9530 | (cdr #{bindings\ 2587}#)) | |
| 9531 | (car #{bindings\ 2587}#))))))) | |
| 9532 | (#{f\ 2586}# (map list #{x\ 2582}# #{v\ 2583}#)))) | |
| 9533 | #{tmp\ 2574}#) | |
| 65dd9e38 AW |
9534 | (syntax-violation |
| 9535 | #f | |
| 9536 | "source expression failed to match any pattern" | |
| b9434165 | 9537 | #{tmp\ 2573}#))) |
| 65dd9e38 | 9538 | ($sc-dispatch |
| b9434165 | 9539 | #{tmp\ 2573}# |
| 65dd9e38 | 9540 | '(any #(each (any any)) any . each-any)))) |
| b9434165 | 9541 | #{x\ 2572}#)))) |
| 65dd9e38 AW |
9542 | |
| 9543 | (define do | |
| 9544 | (make-extended-syncase-macro | |
| 9545 | (module-ref (current-module) (quote do)) | |
| 9546 | 'macro | |
| b9434165 LC |
9547 | (lambda (#{orig-x\ 2595}#) |
| 9548 | ((lambda (#{tmp\ 2596}#) | |
| 9549 | ((lambda (#{tmp\ 2597}#) | |
| 9550 | (if #{tmp\ 2597}# | |
| 9551 | (apply (lambda (#{_\ 2598}# | |
| 9552 | #{var\ 2599}# | |
| 9553 | #{init\ 2600}# | |
| 9554 | #{step\ 2601}# | |
| 9555 | #{e0\ 2602}# | |
| 9556 | #{e1\ 2603}# | |
| 9557 | #{c\ 2604}#) | |
| 9558 | ((lambda (#{tmp\ 2605}#) | |
| 9559 | ((lambda (#{tmp\ 2606}#) | |
| 9560 | (if #{tmp\ 2606}# | |
| 9561 | (apply (lambda (#{step\ 2607}#) | |
| 9562 | ((lambda (#{tmp\ 2608}#) | |
| 9563 | ((lambda (#{tmp\ 2609}#) | |
| 9564 | (if #{tmp\ 2609}# | |
| 65dd9e38 AW |
9565 | (apply (lambda () |
| 9566 | (list '#(syntax-object | |
| 9567 | let | |
| 9568 | ((top) | |
| 9569 | #(ribcage | |
| 9570 | #(step) | |
| 9571 | #((top)) | |
| 9572 | #("i")) | |
| 9573 | #(ribcage | |
| 9574 | #(_ | |
| 9575 | var | |
| 9576 | init | |
| 9577 | step | |
| 9578 | e0 | |
| 9579 | e1 | |
| 9580 | c) | |
| 9581 | #((top) | |
| 9582 | (top) | |
| 9583 | (top) | |
| 9584 | (top) | |
| 9585 | (top) | |
| 9586 | (top) | |
| 9587 | (top)) | |
| 9588 | #("i" | |
| 9589 | "i" | |
| 9590 | "i" | |
| 9591 | "i" | |
| 9592 | "i" | |
| 9593 | "i" | |
| 9594 | "i")) | |
| 9595 | #(ribcage | |
| 9596 | () | |
| 9597 | () | |
| 9598 | ()) | |
| 9599 | #(ribcage | |
| 9600 | #(orig-x) | |
| 9601 | #((top)) | |
| 9602 | #("i"))) | |
| 9603 | (hygiene | |
| 9604 | guile)) | |
| 9605 | '#(syntax-object | |
| 9606 | doloop | |
| 9607 | ((top) | |
| 9608 | #(ribcage | |
| 9609 | #(step) | |
| 9610 | #((top)) | |
| 9611 | #("i")) | |
| 9612 | #(ribcage | |
| 9613 | #(_ | |
| 9614 | var | |
| 9615 | init | |
| 9616 | step | |
| 9617 | e0 | |
| 9618 | e1 | |
| 9619 | c) | |
| 9620 | #((top) | |
| 9621 | (top) | |
| 9622 | (top) | |
| 9623 | (top) | |
| 9624 | (top) | |
| 9625 | (top) | |
| 9626 | (top)) | |
| 9627 | #("i" | |
| 9628 | "i" | |
| 9629 | "i" | |
| 9630 | "i" | |
| 9631 | "i" | |
| 9632 | "i" | |
| 9633 | "i")) | |
| 9634 | #(ribcage | |
| 9635 | () | |
| 9636 | () | |
| 9637 | ()) | |
| 9638 | #(ribcage | |
| 9639 | #(orig-x) | |
| 9640 | #((top)) | |
| 9641 | #("i"))) | |
| 9642 | (hygiene | |
| 9643 | guile)) | |
| 9644 | (map list | |
| b9434165 LC |
9645 | #{var\ 2599}# |
| 9646 | #{init\ 2600}#) | |
| 65dd9e38 AW |
9647 | (list '#(syntax-object |
| 9648 | if | |
| 9649 | ((top) | |
| 9650 | #(ribcage | |
| 9651 | #(step) | |
| 9652 | #((top)) | |
| 9653 | #("i")) | |
| 9654 | #(ribcage | |
| 9655 | #(_ | |
| 9656 | var | |
| 9657 | init | |
| 9658 | step | |
| 9659 | e0 | |
| 9660 | e1 | |
| 9661 | c) | |
| 9662 | #((top) | |
| 9663 | (top) | |
| 9664 | (top) | |
| 9665 | (top) | |
| 9666 | (top) | |
| 9667 | (top) | |
| 9668 | (top)) | |
| 9669 | #("i" | |
| 9670 | "i" | |
| 9671 | "i" | |
| 9672 | "i" | |
| 9673 | "i" | |
| 9674 | "i" | |
| 9675 | "i")) | |
| 9676 | #(ribcage | |
| 9677 | () | |
| 9678 | () | |
| 9679 | ()) | |
| 9680 | #(ribcage | |
| 9681 | #(orig-x) | |
| 9682 | #((top)) | |
| 9683 | #("i"))) | |
| 9684 | (hygiene | |
| 9685 | guile)) | |
| 9686 | (list '#(syntax-object | |
| 9687 | not | |
| 9688 | ((top) | |
| 9689 | #(ribcage | |
| 9690 | #(step) | |
| 9691 | #((top)) | |
| 9692 | #("i")) | |
| 9693 | #(ribcage | |
| 9694 | #(_ | |
| 9695 | var | |
| 9696 | init | |
| 9697 | step | |
| 9698 | e0 | |
| 9699 | e1 | |
| 9700 | c) | |
| 9701 | #((top) | |
| 9702 | (top) | |
| 9703 | (top) | |
| 9704 | (top) | |
| 9705 | (top) | |
| 9706 | (top) | |
| 9707 | (top)) | |
| 9708 | #("i" | |
| 9709 | "i" | |
| 9710 | "i" | |
| 9711 | "i" | |
| 9712 | "i" | |
| 9713 | "i" | |
| 9714 | "i")) | |
| 9715 | #(ribcage | |
| 9716 | () | |
| 9717 | () | |
| 9718 | ()) | |
| 9719 | #(ribcage | |
| 9720 | #(orig-x) | |
| 9721 | #((top)) | |
| 9722 | #("i"))) | |
| 9723 | (hygiene | |
| 9724 | guile)) | |
| b9434165 | 9725 | #{e0\ 2602}#) |
| 65dd9e38 AW |
9726 | (cons '#(syntax-object |
| 9727 | begin | |
| 9728 | ((top) | |
| 9729 | #(ribcage | |
| 9730 | #(step) | |
| 9731 | #((top)) | |
| 9732 | #("i")) | |
| 9733 | #(ribcage | |
| 9734 | #(_ | |
| 9735 | var | |
| 9736 | init | |
| 9737 | step | |
| 9738 | e0 | |
| 9739 | e1 | |
| 9740 | c) | |
| 9741 | #((top) | |
| 9742 | (top) | |
| 9743 | (top) | |
| 9744 | (top) | |
| 9745 | (top) | |
| 9746 | (top) | |
| 9747 | (top)) | |
| 9748 | #("i" | |
| 9749 | "i" | |
| 9750 | "i" | |
| 9751 | "i" | |
| 9752 | "i" | |
| 9753 | "i" | |
| 9754 | "i")) | |
| 9755 | #(ribcage | |
| 9756 | () | |
| 9757 | () | |
| 9758 | ()) | |
| 9759 | #(ribcage | |
| 9760 | #(orig-x) | |
| 9761 | #((top)) | |
| 9762 | #("i"))) | |
| 9763 | (hygiene | |
| 9764 | guile)) | |
| 9765 | (append | |
| b9434165 | 9766 | #{c\ 2604}# |
| 65dd9e38 AW |
9767 | (list (cons '#(syntax-object |
| 9768 | doloop | |
| 9769 | ((top) | |
| 9770 | #(ribcage | |
| 9771 | #(step) | |
| 9772 | #((top)) | |
| 9773 | #("i")) | |
| 9774 | #(ribcage | |
| 9775 | #(_ | |
| 9776 | var | |
| 9777 | init | |
| 9778 | step | |
| 9779 | e0 | |
| 9780 | e1 | |
| 9781 | c) | |
| 9782 | #((top) | |
| 9783 | (top) | |
| 9784 | (top) | |
| 9785 | (top) | |
| 9786 | (top) | |
| 9787 | (top) | |
| 9788 | (top)) | |
| 9789 | #("i" | |
| 9790 | "i" | |
| 9791 | "i" | |
| 9792 | "i" | |
| 9793 | "i" | |
| 9794 | "i" | |
| 9795 | "i")) | |
| 9796 | #(ribcage | |
| 9797 | () | |
| 9798 | () | |
| 9799 | ()) | |
| 9800 | #(ribcage | |
| 9801 | #(orig-x) | |
| 9802 | #((top)) | |
| 9803 | #("i"))) | |
| 9804 | (hygiene | |
| 9805 | guile)) | |
| b9434165 LC |
9806 | #{step\ 2607}#))))))) |
| 9807 | #{tmp\ 2609}#) | |
| 9808 | ((lambda (#{tmp\ 2614}#) | |
| 9809 | (if #{tmp\ 2614}# | |
| 9810 | (apply (lambda (#{e1\ 2615}# | |
| 9811 | #{e2\ 2616}#) | |
| 65dd9e38 AW |
9812 | (list '#(syntax-object |
| 9813 | let | |
| 9814 | ((top) | |
| 9815 | #(ribcage | |
| 9816 | #(e1 | |
| 9817 | e2) | |
| 9818 | #((top) | |
| 9819 | (top)) | |
| 9820 | #("i" | |
| 9821 | "i")) | |
| 9822 | #(ribcage | |
| 9823 | #(step) | |
| 9824 | #((top)) | |
| 9825 | #("i")) | |
| 9826 | #(ribcage | |
| 9827 | #(_ | |
| 9828 | var | |
| 9829 | init | |
| 9830 | step | |
| 9831 | e0 | |
| 9832 | e1 | |
| 9833 | c) | |
| 9834 | #((top) | |
| 9835 | (top) | |
| 9836 | (top) | |
| 9837 | (top) | |
| 9838 | (top) | |
| 9839 | (top) | |
| 9840 | (top)) | |
| 9841 | #("i" | |
| 9842 | "i" | |
| 9843 | "i" | |
| 9844 | "i" | |
| 9845 | "i" | |
| 9846 | "i" | |
| 9847 | "i")) | |
| 9848 | #(ribcage | |
| 9849 | () | |
| 9850 | () | |
| 9851 | ()) | |
| 9852 | #(ribcage | |
| 9853 | #(orig-x) | |
| 9854 | #((top)) | |
| 9855 | #("i"))) | |
| 9856 | (hygiene | |
| 9857 | guile)) | |
| 9858 | '#(syntax-object | |
| 9859 | doloop | |
| 9860 | ((top) | |
| 9861 | #(ribcage | |
| 9862 | #(e1 | |
| 9863 | e2) | |
| 9864 | #((top) | |
| 9865 | (top)) | |
| 9866 | #("i" | |
| 9867 | "i")) | |
| 9868 | #(ribcage | |
| 9869 | #(step) | |
| 9870 | #((top)) | |
| 9871 | #("i")) | |
| 9872 | #(ribcage | |
| 9873 | #(_ | |
| 9874 | var | |
| 9875 | init | |
| 9876 | step | |
| 9877 | e0 | |
| 9878 | e1 | |
| 9879 | c) | |
| 9880 | #((top) | |
| 9881 | (top) | |
| 9882 | (top) | |
| 9883 | (top) | |
| 9884 | (top) | |
| 9885 | (top) | |
| 9886 | (top)) | |
| 9887 | #("i" | |
| 9888 | "i" | |
| 9889 | "i" | |
| 9890 | "i" | |
| 9891 | "i" | |
| 9892 | "i" | |
| 9893 | "i")) | |
| 9894 | #(ribcage | |
| 9895 | () | |
| 9896 | () | |
| 9897 | ()) | |
| 9898 | #(ribcage | |
| 9899 | #(orig-x) | |
| 9900 | #((top)) | |
| 9901 | #("i"))) | |
| 9902 | (hygiene | |
| 9903 | guile)) | |
| 9904 | (map list | |
| b9434165 LC |
9905 | #{var\ 2599}# |
| 9906 | #{init\ 2600}#) | |
| 65dd9e38 AW |
9907 | (list '#(syntax-object |
| 9908 | if | |
| 9909 | ((top) | |
| 9910 | #(ribcage | |
| 9911 | #(e1 | |
| 9912 | e2) | |
| 9913 | #((top) | |
| 9914 | (top)) | |
| 9915 | #("i" | |
| 9916 | "i")) | |
| 9917 | #(ribcage | |
| 9918 | #(step) | |
| 9919 | #((top)) | |
| 9920 | #("i")) | |
| 9921 | #(ribcage | |
| 9922 | #(_ | |
| 9923 | var | |
| 9924 | init | |
| 9925 | step | |
| 9926 | e0 | |
| 9927 | e1 | |
| 9928 | c) | |
| 9929 | #((top) | |
| 9930 | (top) | |
| 9931 | (top) | |
| 9932 | (top) | |
| 9933 | (top) | |
| 9934 | (top) | |
| 9935 | (top)) | |
| 9936 | #("i" | |
| 9937 | "i" | |
| 9938 | "i" | |
| 9939 | "i" | |
| 9940 | "i" | |
| 9941 | "i" | |
| 9942 | "i")) | |
| 9943 | #(ribcage | |
| 9944 | () | |
| 9945 | () | |
| 9946 | ()) | |
| 9947 | #(ribcage | |
| 9948 | #(orig-x) | |
| 9949 | #((top)) | |
| 9950 | #("i"))) | |
| 9951 | (hygiene | |
| 9952 | guile)) | |
| b9434165 | 9953 | #{e0\ 2602}# |
| 65dd9e38 AW |
9954 | (cons '#(syntax-object |
| 9955 | begin | |
| 9956 | ((top) | |
| 9957 | #(ribcage | |
| 9958 | #(e1 | |
| 9959 | e2) | |
| 9960 | #((top) | |
| 9961 | (top)) | |
| 9962 | #("i" | |
| 9963 | "i")) | |
| 9964 | #(ribcage | |
| 9965 | #(step) | |
| 9966 | #((top)) | |
| 9967 | #("i")) | |
| 9968 | #(ribcage | |
| 9969 | #(_ | |
| 9970 | var | |
| 9971 | init | |
| 9972 | step | |
| 9973 | e0 | |
| 9974 | e1 | |
| 9975 | c) | |
| 9976 | #((top) | |
| 9977 | (top) | |
| 9978 | (top) | |
| 9979 | (top) | |
| 9980 | (top) | |
| 9981 | (top) | |
| 9982 | (top)) | |
| 9983 | #("i" | |
| 9984 | "i" | |
| 9985 | "i" | |
| 9986 | "i" | |
| 9987 | "i" | |
| 9988 | "i" | |
| 9989 | "i")) | |
| 9990 | #(ribcage | |
| 9991 | () | |
| 9992 | () | |
| 9993 | ()) | |
| 9994 | #(ribcage | |
| 9995 | #(orig-x) | |
| 9996 | #((top)) | |
| 9997 | #("i"))) | |
| 9998 | (hygiene | |
| 9999 | guile)) | |
| b9434165 LC |
10000 | (cons #{e1\ 2615}# |
| 10001 | #{e2\ 2616}#)) | |
| 65dd9e38 AW |
10002 | (cons '#(syntax-object |
| 10003 | begin | |
| 10004 | ((top) | |
| 10005 | #(ribcage | |
| 10006 | #(e1 | |
| 10007 | e2) | |
| 10008 | #((top) | |
| 10009 | (top)) | |
| 10010 | #("i" | |
| 10011 | "i")) | |
| 10012 | #(ribcage | |
| 10013 | #(step) | |
| 10014 | #((top)) | |
| 10015 | #("i")) | |
| 10016 | #(ribcage | |
| 10017 | #(_ | |
| 10018 | var | |
| 10019 | init | |
| 10020 | step | |
| 10021 | e0 | |
| 10022 | e1 | |
| 10023 | c) | |
| 10024 | #((top) | |
| 10025 | (top) | |
| 10026 | (top) | |
| 10027 | (top) | |
| 10028 | (top) | |
| 10029 | (top) | |
| 10030 | (top)) | |
| 10031 | #("i" | |
| 10032 | "i" | |
| 10033 | "i" | |
| 10034 | "i" | |
| 10035 | "i" | |
| 10036 | "i" | |
| 10037 | "i")) | |
| 10038 | #(ribcage | |
| 10039 | () | |
| 10040 | () | |
| 10041 | ()) | |
| 10042 | #(ribcage | |
| 10043 | #(orig-x) | |
| 10044 | #((top)) | |
| 10045 | #("i"))) | |
| 10046 | (hygiene | |
| 10047 | guile)) | |
| 10048 | (append | |
| b9434165 | 10049 | #{c\ 2604}# |
| 65dd9e38 AW |
10050 | (list (cons '#(syntax-object |
| 10051 | doloop | |
| 10052 | ((top) | |
| 10053 | #(ribcage | |
| 10054 | #(e1 | |
| 10055 | e2) | |
| 10056 | #((top) | |
| 10057 | (top)) | |
| 10058 | #("i" | |
| 10059 | "i")) | |
| 10060 | #(ribcage | |
| 10061 | #(step) | |
| 10062 | #((top)) | |
| 10063 | #("i")) | |
| 10064 | #(ribcage | |
| 10065 | #(_ | |
| 10066 | var | |
| 10067 | init | |
| 10068 | step | |
| 10069 | e0 | |
| 10070 | e1 | |
| 10071 | c) | |
| 10072 | #((top) | |
| 10073 | (top) | |
| 10074 | (top) | |
| 10075 | (top) | |
| 10076 | (top) | |
| 10077 | (top) | |
| 10078 | (top)) | |
| 10079 | #("i" | |
| 10080 | "i" | |
| 10081 | "i" | |
| 10082 | "i" | |
| 10083 | "i" | |
| 10084 | "i" | |
| 10085 | "i")) | |
| 10086 | #(ribcage | |
| 10087 | () | |
| 10088 | () | |
| 10089 | ()) | |
| 10090 | #(ribcage | |
| 10091 | #(orig-x) | |
| 10092 | #((top)) | |
| 10093 | #("i"))) | |
| 10094 | (hygiene | |
| 10095 | guile)) | |
| b9434165 LC |
10096 | #{step\ 2607}#))))))) |
| 10097 | #{tmp\ 2614}#) | |
| 65dd9e38 AW |
10098 | (syntax-violation |
| 10099 | #f | |
| 10100 | "source expression failed to match any pattern" | |
| b9434165 | 10101 | #{tmp\ 2608}#))) |
| 65dd9e38 | 10102 | ($sc-dispatch |
| b9434165 | 10103 | #{tmp\ 2608}# |
| 65dd9e38 | 10104 | '(any . each-any))))) |
| b9434165 LC |
10105 | ($sc-dispatch |
| 10106 | #{tmp\ 2608}# | |
| 10107 | '()))) | |
| 10108 | #{e1\ 2603}#)) | |
| 10109 | #{tmp\ 2606}#) | |
| 65dd9e38 AW |
10110 | (syntax-violation |
| 10111 | #f | |
| 10112 | "source expression failed to match any pattern" | |
| b9434165 LC |
10113 | #{tmp\ 2605}#))) |
| 10114 | ($sc-dispatch #{tmp\ 2605}# (quote each-any)))) | |
| 10115 | (map (lambda (#{v\ 2623}# #{s\ 2624}#) | |
| 10116 | ((lambda (#{tmp\ 2625}#) | |
| 10117 | ((lambda (#{tmp\ 2626}#) | |
| 10118 | (if #{tmp\ 2626}# | |
| 10119 | (apply (lambda () #{v\ 2623}#) | |
| 10120 | #{tmp\ 2626}#) | |
| 10121 | ((lambda (#{tmp\ 2627}#) | |
| 10122 | (if #{tmp\ 2627}# | |
| 10123 | (apply (lambda (#{e\ 2628}#) | |
| 10124 | #{e\ 2628}#) | |
| 10125 | #{tmp\ 2627}#) | |
| 10126 | ((lambda (#{_\ 2629}#) | |
| 65dd9e38 AW |
10127 | (syntax-violation |
| 10128 | 'do | |
| 10129 | "bad step expression" | |
| b9434165 LC |
10130 | #{orig-x\ 2595}# |
| 10131 | #{s\ 2624}#)) | |
| 10132 | #{tmp\ 2625}#))) | |
| 10133 | ($sc-dispatch | |
| 10134 | #{tmp\ 2625}# | |
| 10135 | '(any))))) | |
| 10136 | ($sc-dispatch #{tmp\ 2625}# (quote ())))) | |
| 10137 | #{s\ 2624}#)) | |
| 10138 | #{var\ 2599}# | |
| 10139 | #{step\ 2601}#))) | |
| 10140 | #{tmp\ 2597}#) | |
| 65dd9e38 AW |
10141 | (syntax-violation |
| 10142 | #f | |
| 10143 | "source expression failed to match any pattern" | |
| b9434165 | 10144 | #{tmp\ 2596}#))) |
| 65dd9e38 | 10145 | ($sc-dispatch |
| b9434165 | 10146 | #{tmp\ 2596}# |
| 65dd9e38 AW |
10147 | '(any #(each (any any . any)) |
| 10148 | (any . each-any) | |
| 10149 | . | |
| 10150 | each-any)))) | |
| b9434165 | 10151 | #{orig-x\ 2595}#)))) |
| 65dd9e38 AW |
10152 | |
| 10153 | (define quasiquote | |
| 10154 | (make-extended-syncase-macro | |
| 10155 | (module-ref (current-module) (quote quasiquote)) | |
| 10156 | 'macro | |
| b9434165 LC |
10157 | (letrec ((#{quasicons\ 2632}# |
| 10158 | (lambda (#{x\ 2636}# #{y\ 2637}#) | |
| 10159 | ((lambda (#{tmp\ 2638}#) | |
| 10160 | ((lambda (#{tmp\ 2639}#) | |
| 10161 | (if #{tmp\ 2639}# | |
| 10162 | (apply (lambda (#{x\ 2640}# #{y\ 2641}#) | |
| 10163 | ((lambda (#{tmp\ 2642}#) | |
| 10164 | ((lambda (#{tmp\ 2643}#) | |
| 10165 | (if #{tmp\ 2643}# | |
| 10166 | (apply (lambda (#{dy\ 2644}#) | |
| 10167 | ((lambda (#{tmp\ 2645}#) | |
| 10168 | ((lambda (#{tmp\ 2646}#) | |
| 10169 | (if #{tmp\ 2646}# | |
| 10170 | (apply (lambda (#{dx\ 2647}#) | |
| 65dd9e38 AW |
10171 | (list '#(syntax-object |
| 10172 | quote | |
| 10173 | ((top) | |
| 10174 | #(ribcage | |
| 10175 | #(dx) | |
| 10176 | #((top)) | |
| 10177 | #("i")) | |
| 10178 | #(ribcage | |
| 10179 | #(dy) | |
| 10180 | #((top)) | |
| 10181 | #("i")) | |
| 10182 | #(ribcage | |
| 10183 | #(x | |
| 10184 | y) | |
| 10185 | #((top) | |
| 10186 | (top)) | |
| 10187 | #("i" | |
| 10188 | "i")) | |
| 10189 | #(ribcage | |
| 10190 | () | |
| 10191 | () | |
| 10192 | ()) | |
| 10193 | #(ribcage | |
| 10194 | () | |
| 10195 | () | |
| 10196 | ()) | |
| 10197 | #(ribcage | |
| 10198 | #(x | |
| 10199 | y) | |
| 10200 | #((top) | |
| 10201 | (top)) | |
| 10202 | #("i" | |
| 10203 | "i")) | |
| 10204 | #(ribcage | |
| 10205 | #(quasicons | |
| 10206 | quasiappend | |
| 10207 | quasivector | |
| 10208 | quasi) | |
| 10209 | #((top) | |
| 10210 | (top) | |
| 10211 | (top) | |
| 10212 | (top)) | |
| 10213 | #("i" | |
| 10214 | "i" | |
| 10215 | "i" | |
| 10216 | "i"))) | |
| 10217 | (hygiene | |
| 10218 | guile)) | |
| b9434165 LC |
10219 | (cons #{dx\ 2647}# |
| 10220 | #{dy\ 2644}#))) | |
| 10221 | #{tmp\ 2646}#) | |
| 10222 | ((lambda (#{_\ 2648}#) | |
| 10223 | (if (null? #{dy\ 2644}#) | |
| 65dd9e38 AW |
10224 | (list '#(syntax-object |
| 10225 | list | |
| 10226 | ((top) | |
| 10227 | #(ribcage | |
| 10228 | #(_) | |
| 10229 | #((top)) | |
| 10230 | #("i")) | |
| 10231 | #(ribcage | |
| 10232 | #(dy) | |
| 10233 | #((top)) | |
| 10234 | #("i")) | |
| 10235 | #(ribcage | |
| 10236 | #(x | |
| 10237 | y) | |
| 10238 | #((top) | |
| 10239 | (top)) | |
| 10240 | #("i" | |
| 10241 | "i")) | |
| 10242 | #(ribcage | |
| 10243 | () | |
| 10244 | () | |
| 10245 | ()) | |
| 10246 | #(ribcage | |
| 10247 | () | |
| 10248 | () | |
| 10249 | ()) | |
| 10250 | #(ribcage | |
| 10251 | #(x | |
| 10252 | y) | |
| 10253 | #((top) | |
| 10254 | (top)) | |
| 10255 | #("i" | |
| 10256 | "i")) | |
| 10257 | #(ribcage | |
| 10258 | #(quasicons | |
| 10259 | quasiappend | |
| 10260 | quasivector | |
| 10261 | quasi) | |
| 10262 | #((top) | |
| 10263 | (top) | |
| 10264 | (top) | |
| 10265 | (top)) | |
| 10266 | #("i" | |
| 10267 | "i" | |
| 10268 | "i" | |
| 10269 | "i"))) | |
| 10270 | (hygiene | |
| 10271 | guile)) | |
| b9434165 | 10272 | #{x\ 2640}#) |
| 65dd9e38 AW |
10273 | (list '#(syntax-object |
| 10274 | cons | |
| 10275 | ((top) | |
| 10276 | #(ribcage | |
| 10277 | #(_) | |
| 10278 | #((top)) | |
| 10279 | #("i")) | |
| 10280 | #(ribcage | |
| 10281 | #(dy) | |
| 10282 | #((top)) | |
| 10283 | #("i")) | |
| 10284 | #(ribcage | |
| 10285 | #(x | |
| 10286 | y) | |
| 10287 | #((top) | |
| 10288 | (top)) | |
| 10289 | #("i" | |
| 10290 | "i")) | |
| 10291 | #(ribcage | |
| 10292 | () | |
| 10293 | () | |
| 10294 | ()) | |
| 10295 | #(ribcage | |
| 10296 | () | |
| 10297 | () | |
| 10298 | ()) | |
| 10299 | #(ribcage | |
| 10300 | #(x | |
| 10301 | y) | |
| 10302 | #((top) | |
| 10303 | (top)) | |
| 10304 | #("i" | |
| 10305 | "i")) | |
| 10306 | #(ribcage | |
| 10307 | #(quasicons | |
| 10308 | quasiappend | |
| 10309 | quasivector | |
| 10310 | quasi) | |
| 10311 | #((top) | |
| 10312 | (top) | |
| 10313 | (top) | |
| 10314 | (top)) | |
| 10315 | #("i" | |
| 10316 | "i" | |
| 10317 | "i" | |
| 10318 | "i"))) | |
| 10319 | (hygiene | |
| 10320 | guile)) | |
| b9434165 LC |
10321 | #{x\ 2640}# |
| 10322 | #{y\ 2641}#))) | |
| 10323 | #{tmp\ 2645}#))) | |
| 65dd9e38 | 10324 | ($sc-dispatch |
| b9434165 | 10325 | #{tmp\ 2645}# |
| 65dd9e38 AW |
10326 | '(#(free-id |
| 10327 | #(syntax-object | |
| 10328 | quote | |
| 10329 | ((top) | |
| 10330 | #(ribcage | |
| 10331 | #(dy) | |
| 10332 | #((top)) | |
| 10333 | #("i")) | |
| 10334 | #(ribcage | |
| 10335 | #(x y) | |
| 10336 | #((top) | |
| 10337 | (top)) | |
| 10338 | #("i" "i")) | |
| 10339 | #(ribcage | |
| 10340 | () | |
| 10341 | () | |
| 10342 | ()) | |
| 10343 | #(ribcage | |
| 10344 | () | |
| 10345 | () | |
| 10346 | ()) | |
| 10347 | #(ribcage | |
| 10348 | #(x y) | |
| 10349 | #((top) | |
| 10350 | (top)) | |
| 10351 | #("i" "i")) | |
| 10352 | #(ribcage | |
| 10353 | #(quasicons | |
| 10354 | quasiappend | |
| 10355 | quasivector | |
| 10356 | quasi) | |
| 10357 | #((top) | |
| 10358 | (top) | |
| 10359 | (top) | |
| 10360 | (top)) | |
| 10361 | #("i" | |
| 10362 | "i" | |
| 10363 | "i" | |
| 10364 | "i"))) | |
| 10365 | (hygiene | |
| 10366 | guile))) | |
| 10367 | any)))) | |
| b9434165 LC |
10368 | #{x\ 2640}#)) |
| 10369 | #{tmp\ 2643}#) | |
| 10370 | ((lambda (#{tmp\ 2649}#) | |
| 10371 | (if #{tmp\ 2649}# | |
| 10372 | (apply (lambda (#{stuff\ 2650}#) | |
| 65dd9e38 AW |
10373 | (cons '#(syntax-object |
| 10374 | list | |
| 10375 | ((top) | |
| 10376 | #(ribcage | |
| 10377 | #(stuff) | |
| 10378 | #((top)) | |
| 10379 | #("i")) | |
| 10380 | #(ribcage | |
| 10381 | #(x y) | |
| 10382 | #((top) | |
| 10383 | (top)) | |
| 10384 | #("i" "i")) | |
| 10385 | #(ribcage | |
| 10386 | () | |
| 10387 | () | |
| 10388 | ()) | |
| 10389 | #(ribcage | |
| 10390 | () | |
| 10391 | () | |
| 10392 | ()) | |
| 10393 | #(ribcage | |
| 10394 | #(x y) | |
| 10395 | #((top) | |
| 10396 | (top)) | |
| 10397 | #("i" "i")) | |
| 10398 | #(ribcage | |
| 10399 | #(quasicons | |
| 10400 | quasiappend | |
| 10401 | quasivector | |
| 10402 | quasi) | |
| 10403 | #((top) | |
| 10404 | (top) | |
| 10405 | (top) | |
| 10406 | (top)) | |
| 10407 | #("i" | |
| 10408 | "i" | |
| 10409 | "i" | |
| 10410 | "i"))) | |
| 10411 | (hygiene | |
| 10412 | guile)) | |
| b9434165 LC |
10413 | (cons #{x\ 2640}# |
| 10414 | #{stuff\ 2650}#))) | |
| 10415 | #{tmp\ 2649}#) | |
| 10416 | ((lambda (#{else\ 2651}#) | |
| 65dd9e38 AW |
10417 | (list '#(syntax-object |
| 10418 | cons | |
| 10419 | ((top) | |
| 10420 | #(ribcage | |
| 10421 | #(else) | |
| 10422 | #((top)) | |
| 10423 | #("i")) | |
| 10424 | #(ribcage | |
| 10425 | #(x y) | |
| 10426 | #((top) (top)) | |
| 10427 | #("i" "i")) | |
| 10428 | #(ribcage () () ()) | |
| 10429 | #(ribcage () () ()) | |
| 10430 | #(ribcage | |
| 10431 | #(x y) | |
| 10432 | #((top) (top)) | |
| 10433 | #("i" "i")) | |
| 10434 | #(ribcage | |
| 10435 | #(quasicons | |
| 10436 | quasiappend | |
| 10437 | quasivector | |
| 10438 | quasi) | |
| 10439 | #((top) | |
| 10440 | (top) | |
| 10441 | (top) | |
| 10442 | (top)) | |
| 10443 | #("i" | |
| 10444 | "i" | |
| 10445 | "i" | |
| 10446 | "i"))) | |
| 10447 | (hygiene guile)) | |
| b9434165 LC |
10448 | #{x\ 2640}# |
| 10449 | #{y\ 2641}#)) | |
| 10450 | #{tmp\ 2642}#))) | |
| 65dd9e38 | 10451 | ($sc-dispatch |
| b9434165 | 10452 | #{tmp\ 2642}# |
| 65dd9e38 AW |
10453 | '(#(free-id |
| 10454 | #(syntax-object | |
| 10455 | list | |
| 10456 | ((top) | |
| 10457 | #(ribcage | |
| 10458 | #(x y) | |
| 10459 | #((top) (top)) | |
| 10460 | #("i" "i")) | |
| 10461 | #(ribcage () () ()) | |
| 10462 | #(ribcage () () ()) | |
| 10463 | #(ribcage | |
| 10464 | #(x y) | |
| 10465 | #((top) (top)) | |
| 10466 | #("i" "i")) | |
| 10467 | #(ribcage | |
| 10468 | #(quasicons | |
| 10469 | quasiappend | |
| 10470 | quasivector | |
| 10471 | quasi) | |
| 10472 | #((top) | |
| 10473 | (top) | |
| 10474 | (top) | |
| 10475 | (top)) | |
| 10476 | #("i" "i" "i" "i"))) | |
| 10477 | (hygiene guile))) | |
| 10478 | . | |
| 10479 | any))))) | |
| 10480 | ($sc-dispatch | |
| b9434165 | 10481 | #{tmp\ 2642}# |
| 65dd9e38 AW |
10482 | '(#(free-id |
| 10483 | #(syntax-object | |
| 10484 | quote | |
| 10485 | ((top) | |
| 10486 | #(ribcage | |
| 10487 | #(x y) | |
| 10488 | #((top) (top)) | |
| 10489 | #("i" "i")) | |
| 10490 | #(ribcage () () ()) | |
| 10491 | #(ribcage () () ()) | |
| 10492 | #(ribcage | |
| 10493 | #(x y) | |
| 10494 | #((top) (top)) | |
| 10495 | #("i" "i")) | |
| 10496 | #(ribcage | |
| 10497 | #(quasicons | |
| 10498 | quasiappend | |
| 10499 | quasivector | |
| 10500 | quasi) | |
| 10501 | #((top) (top) (top) (top)) | |
| 10502 | #("i" "i" "i" "i"))) | |
| 10503 | (hygiene guile))) | |
| 10504 | any)))) | |
| b9434165 LC |
10505 | #{y\ 2641}#)) |
| 10506 | #{tmp\ 2639}#) | |
| 65dd9e38 AW |
10507 | (syntax-violation |
| 10508 | #f | |
| 10509 | "source expression failed to match any pattern" | |
| b9434165 LC |
10510 | #{tmp\ 2638}#))) |
| 10511 | ($sc-dispatch #{tmp\ 2638}# (quote (any any))))) | |
| 10512 | (list #{x\ 2636}# #{y\ 2637}#)))) | |
| 10513 | (#{quasiappend\ 2633}# | |
| 10514 | (lambda (#{x\ 2652}# #{y\ 2653}#) | |
| 10515 | ((lambda (#{tmp\ 2654}#) | |
| 10516 | ((lambda (#{tmp\ 2655}#) | |
| 10517 | (if #{tmp\ 2655}# | |
| 10518 | (apply (lambda (#{x\ 2656}# #{y\ 2657}#) | |
| 10519 | ((lambda (#{tmp\ 2658}#) | |
| 10520 | ((lambda (#{tmp\ 2659}#) | |
| 10521 | (if #{tmp\ 2659}# | |
| 10522 | (apply (lambda () #{x\ 2656}#) | |
| 10523 | #{tmp\ 2659}#) | |
| 10524 | ((lambda (#{_\ 2660}#) | |
| 65dd9e38 AW |
10525 | (list '#(syntax-object |
| 10526 | append | |
| 10527 | ((top) | |
| 10528 | #(ribcage | |
| 10529 | #(_) | |
| 10530 | #((top)) | |
| 10531 | #("i")) | |
| 10532 | #(ribcage | |
| 10533 | #(x y) | |
| 10534 | #((top) (top)) | |
| 10535 | #("i" "i")) | |
| 10536 | #(ribcage () () ()) | |
| 10537 | #(ribcage () () ()) | |
| 10538 | #(ribcage | |
| 10539 | #(x y) | |
| 10540 | #((top) (top)) | |
| 10541 | #("i" "i")) | |
| 10542 | #(ribcage | |
| 10543 | #(quasicons | |
| 10544 | quasiappend | |
| 10545 | quasivector | |
| 10546 | quasi) | |
| 10547 | #((top) | |
| 10548 | (top) | |
| 10549 | (top) | |
| 10550 | (top)) | |
| 10551 | #("i" "i" "i" "i"))) | |
| 10552 | (hygiene guile)) | |
| b9434165 LC |
10553 | #{x\ 2656}# |
| 10554 | #{y\ 2657}#)) | |
| 10555 | #{tmp\ 2658}#))) | |
| 65dd9e38 | 10556 | ($sc-dispatch |
| b9434165 | 10557 | #{tmp\ 2658}# |
| 65dd9e38 AW |
10558 | '(#(free-id |
| 10559 | #(syntax-object | |
| 10560 | quote | |
| 10561 | ((top) | |
| 10562 | #(ribcage | |
| 10563 | #(x y) | |
| 10564 | #((top) (top)) | |
| 10565 | #("i" "i")) | |
| 10566 | #(ribcage () () ()) | |
| 10567 | #(ribcage () () ()) | |
| 10568 | #(ribcage | |
| 10569 | #(x y) | |
| 10570 | #((top) (top)) | |
| 10571 | #("i" "i")) | |
| 10572 | #(ribcage | |
| 10573 | #(quasicons | |
| 10574 | quasiappend | |
| 10575 | quasivector | |
| 10576 | quasi) | |
| 10577 | #((top) (top) (top) (top)) | |
| 10578 | #("i" "i" "i" "i"))) | |
| 10579 | (hygiene guile))) | |
| 10580 | ())))) | |
| b9434165 LC |
10581 | #{y\ 2657}#)) |
| 10582 | #{tmp\ 2655}#) | |
| 65dd9e38 AW |
10583 | (syntax-violation |
| 10584 | #f | |
| 10585 | "source expression failed to match any pattern" | |
| b9434165 LC |
10586 | #{tmp\ 2654}#))) |
| 10587 | ($sc-dispatch #{tmp\ 2654}# (quote (any any))))) | |
| 10588 | (list #{x\ 2652}# #{y\ 2653}#)))) | |
| 10589 | (#{quasivector\ 2634}# | |
| 10590 | (lambda (#{x\ 2661}#) | |
| 10591 | ((lambda (#{tmp\ 2662}#) | |
| 10592 | ((lambda (#{x\ 2663}#) | |
| 10593 | ((lambda (#{tmp\ 2664}#) | |
| 10594 | ((lambda (#{tmp\ 2665}#) | |
| 10595 | (if #{tmp\ 2665}# | |
| 10596 | (apply (lambda (#{x\ 2666}#) | |
| 65dd9e38 AW |
10597 | (list '#(syntax-object |
| 10598 | quote | |
| 10599 | ((top) | |
| 10600 | #(ribcage | |
| 10601 | #(x) | |
| 10602 | #((top)) | |
| 10603 | #("i")) | |
| 10604 | #(ribcage | |
| 10605 | #(x) | |
| 10606 | #((top)) | |
| 10607 | #("i")) | |
| 10608 | #(ribcage () () ()) | |
| 10609 | #(ribcage () () ()) | |
| 10610 | #(ribcage | |
| 10611 | #(x) | |
| 10612 | #((top)) | |
| 10613 | #("i")) | |
| 10614 | #(ribcage | |
| 10615 | #(quasicons | |
| 10616 | quasiappend | |
| 10617 | quasivector | |
| 10618 | quasi) | |
| 10619 | #((top) (top) (top) (top)) | |
| 10620 | #("i" "i" "i" "i"))) | |
| 10621 | (hygiene guile)) | |
| b9434165 LC |
10622 | (list->vector #{x\ 2666}#))) |
| 10623 | #{tmp\ 2665}#) | |
| 10624 | ((lambda (#{tmp\ 2668}#) | |
| 10625 | (if #{tmp\ 2668}# | |
| 10626 | (apply (lambda (#{x\ 2669}#) | |
| 65dd9e38 AW |
10627 | (cons '#(syntax-object |
| 10628 | vector | |
| 10629 | ((top) | |
| 10630 | #(ribcage | |
| 10631 | #(x) | |
| 10632 | #((top)) | |
| 10633 | #("i")) | |
| 10634 | #(ribcage | |
| 10635 | #(x) | |
| 10636 | #((top)) | |
| 10637 | #("i")) | |
| 10638 | #(ribcage () () ()) | |
| 10639 | #(ribcage () () ()) | |
| 10640 | #(ribcage | |
| 10641 | #(x) | |
| 10642 | #((top)) | |
| 10643 | #("i")) | |
| 10644 | #(ribcage | |
| 10645 | #(quasicons | |
| 10646 | quasiappend | |
| 10647 | quasivector | |
| 10648 | quasi) | |
| 10649 | #((top) | |
| 10650 | (top) | |
| 10651 | (top) | |
| 10652 | (top)) | |
| 10653 | #("i" "i" "i" "i"))) | |
| 10654 | (hygiene guile)) | |
| b9434165 LC |
10655 | #{x\ 2669}#)) |
| 10656 | #{tmp\ 2668}#) | |
| 10657 | ((lambda (#{_\ 2671}#) | |
| 65dd9e38 AW |
10658 | (list '#(syntax-object |
| 10659 | list->vector | |
| 10660 | ((top) | |
| 10661 | #(ribcage | |
| 10662 | #(_) | |
| 10663 | #((top)) | |
| 10664 | #("i")) | |
| 10665 | #(ribcage | |
| 10666 | #(x) | |
| 10667 | #((top)) | |
| 10668 | #("i")) | |
| 10669 | #(ribcage () () ()) | |
| 10670 | #(ribcage () () ()) | |
| 10671 | #(ribcage | |
| 10672 | #(x) | |
| 10673 | #((top)) | |
| 10674 | #("i")) | |
| 10675 | #(ribcage | |
| 10676 | #(quasicons | |
| 10677 | quasiappend | |
| 10678 | quasivector | |
| 10679 | quasi) | |
| 10680 | #((top) (top) (top) (top)) | |
| 10681 | #("i" "i" "i" "i"))) | |
| 10682 | (hygiene guile)) | |
| b9434165 LC |
10683 | #{x\ 2663}#)) |
| 10684 | #{tmp\ 2664}#))) | |
| 65dd9e38 | 10685 | ($sc-dispatch |
| b9434165 | 10686 | #{tmp\ 2664}# |
| 65dd9e38 AW |
10687 | '(#(free-id |
| 10688 | #(syntax-object | |
| 10689 | list | |
| 10690 | ((top) | |
| 10691 | #(ribcage #(x) #((top)) #("i")) | |
| 10692 | #(ribcage () () ()) | |
| 10693 | #(ribcage () () ()) | |
| 10694 | #(ribcage #(x) #((top)) #("i")) | |
| 10695 | #(ribcage | |
| 10696 | #(quasicons | |
| 10697 | quasiappend | |
| 10698 | quasivector | |
| 10699 | quasi) | |
| 10700 | #((top) (top) (top) (top)) | |
| 10701 | #("i" "i" "i" "i"))) | |
| 10702 | (hygiene guile))) | |
| 10703 | . | |
| 10704 | each-any))))) | |
| 10705 | ($sc-dispatch | |
| b9434165 | 10706 | #{tmp\ 2664}# |
| 65dd9e38 AW |
10707 | '(#(free-id |
| 10708 | #(syntax-object | |
| 10709 | quote | |
| 10710 | ((top) | |
| 10711 | #(ribcage #(x) #((top)) #("i")) | |
| 10712 | #(ribcage () () ()) | |
| 10713 | #(ribcage () () ()) | |
| 10714 | #(ribcage #(x) #((top)) #("i")) | |
| 10715 | #(ribcage | |
| 10716 | #(quasicons | |
| 10717 | quasiappend | |
| 10718 | quasivector | |
| 10719 | quasi) | |
| 10720 | #((top) (top) (top) (top)) | |
| 10721 | #("i" "i" "i" "i"))) | |
| 10722 | (hygiene guile))) | |
| 10723 | each-any)))) | |
| b9434165 LC |
10724 | #{x\ 2663}#)) |
| 10725 | #{tmp\ 2662}#)) | |
| 10726 | #{x\ 2661}#))) | |
| 10727 | (#{quasi\ 2635}# | |
| 10728 | (lambda (#{p\ 2672}# #{lev\ 2673}#) | |
| 10729 | ((lambda (#{tmp\ 2674}#) | |
| 10730 | ((lambda (#{tmp\ 2675}#) | |
| 10731 | (if #{tmp\ 2675}# | |
| 10732 | (apply (lambda (#{p\ 2676}#) | |
| 10733 | (if (= #{lev\ 2673}# 0) | |
| 10734 | #{p\ 2676}# | |
| 10735 | (#{quasicons\ 2632}# | |
| 65dd9e38 AW |
10736 | '(#(syntax-object |
| 10737 | quote | |
| 10738 | ((top) | |
| 10739 | #(ribcage #(p) #((top)) #("i")) | |
| 10740 | #(ribcage () () ()) | |
| 10741 | #(ribcage | |
| 10742 | #(p lev) | |
| 10743 | #((top) (top)) | |
| 10744 | #("i" "i")) | |
| 10745 | #(ribcage | |
| 10746 | #(quasicons | |
| 10747 | quasiappend | |
| 10748 | quasivector | |
| 10749 | quasi) | |
| 10750 | #((top) (top) (top) (top)) | |
| 10751 | #("i" "i" "i" "i"))) | |
| 10752 | (hygiene guile)) | |
| 10753 | #(syntax-object | |
| 10754 | unquote | |
| 10755 | ((top) | |
| 10756 | #(ribcage #(p) #((top)) #("i")) | |
| 10757 | #(ribcage () () ()) | |
| 10758 | #(ribcage | |
| 10759 | #(p lev) | |
| 10760 | #((top) (top)) | |
| 10761 | #("i" "i")) | |
| 10762 | #(ribcage | |
| 10763 | #(quasicons | |
| 10764 | quasiappend | |
| 10765 | quasivector | |
| 10766 | quasi) | |
| 10767 | #((top) (top) (top) (top)) | |
| 10768 | #("i" "i" "i" "i"))) | |
| 10769 | (hygiene guile))) | |
| b9434165 LC |
10770 | (#{quasi\ 2635}# |
| 10771 | (list #{p\ 2676}#) | |
| 10772 | (- #{lev\ 2673}# 1))))) | |
| 10773 | #{tmp\ 2675}#) | |
| 10774 | ((lambda (#{tmp\ 2677}#) | |
| 10775 | (if (if #{tmp\ 2677}# | |
| 10776 | (apply (lambda (#{args\ 2678}#) | |
| 10777 | (= #{lev\ 2673}# 0)) | |
| 10778 | #{tmp\ 2677}#) | |
| 65dd9e38 | 10779 | #f) |
| b9434165 | 10780 | (apply (lambda (#{args\ 2679}#) |
| 65dd9e38 AW |
10781 | (syntax-violation |
| 10782 | 'unquote | |
| 10783 | "unquote takes exactly one argument" | |
| b9434165 | 10784 | #{p\ 2672}# |
| 65dd9e38 AW |
10785 | (cons '#(syntax-object |
| 10786 | unquote | |
| 10787 | ((top) | |
| 10788 | #(ribcage | |
| 10789 | #(args) | |
| 10790 | #((top)) | |
| 10791 | #("i")) | |
| 10792 | #(ribcage () () ()) | |
| 10793 | #(ribcage | |
| 10794 | #(p lev) | |
| 10795 | #((top) (top)) | |
| 10796 | #("i" "i")) | |
| 10797 | #(ribcage | |
| 10798 | #(quasicons | |
| 10799 | quasiappend | |
| 10800 | quasivector | |
| 10801 | quasi) | |
| 10802 | #((top) (top) (top) (top)) | |
| 10803 | #("i" "i" "i" "i"))) | |
| 10804 | (hygiene guile)) | |
| b9434165 LC |
10805 | #{args\ 2679}#))) |
| 10806 | #{tmp\ 2677}#) | |
| 10807 | ((lambda (#{tmp\ 2680}#) | |
| 10808 | (if #{tmp\ 2680}# | |
| 10809 | (apply (lambda (#{p\ 2681}# #{q\ 2682}#) | |
| 10810 | (if (= #{lev\ 2673}# 0) | |
| 10811 | (#{quasiappend\ 2633}# | |
| 10812 | #{p\ 2681}# | |
| 10813 | (#{quasi\ 2635}# | |
| 10814 | #{q\ 2682}# | |
| 10815 | #{lev\ 2673}#)) | |
| 10816 | (#{quasicons\ 2632}# | |
| 10817 | (#{quasicons\ 2632}# | |
| 65dd9e38 AW |
10818 | '(#(syntax-object |
| 10819 | quote | |
| 10820 | ((top) | |
| 10821 | #(ribcage | |
| 10822 | #(p q) | |
| 10823 | #((top) (top)) | |
| 10824 | #("i" "i")) | |
| 10825 | #(ribcage () () ()) | |
| 10826 | #(ribcage | |
| 10827 | #(p lev) | |
| 10828 | #((top) (top)) | |
| 10829 | #("i" "i")) | |
| 10830 | #(ribcage | |
| 10831 | #(quasicons | |
| 10832 | quasiappend | |
| 10833 | quasivector | |
| 10834 | quasi) | |
| 10835 | #((top) | |
| 10836 | (top) | |
| 10837 | (top) | |
| 10838 | (top)) | |
| 10839 | #("i" "i" "i" "i"))) | |
| 10840 | (hygiene guile)) | |
| 10841 | #(syntax-object | |
| 10842 | unquote-splicing | |
| 10843 | ((top) | |
| 10844 | #(ribcage | |
| 10845 | #(p q) | |
| 10846 | #((top) (top)) | |
| 10847 | #("i" "i")) | |
| 10848 | #(ribcage () () ()) | |
| 10849 | #(ribcage | |
| 10850 | #(p lev) | |
| 10851 | #((top) (top)) | |
| 10852 | #("i" "i")) | |
| 10853 | #(ribcage | |
| 10854 | #(quasicons | |
| 10855 | quasiappend | |
| 10856 | quasivector | |
| 10857 | quasi) | |
| 10858 | #((top) | |
| 10859 | (top) | |
| 10860 | (top) | |
| 10861 | (top)) | |
| 10862 | #("i" "i" "i" "i"))) | |
| 10863 | (hygiene guile))) | |
| b9434165 LC |
10864 | (#{quasi\ 2635}# |
| 10865 | (list #{p\ 2681}#) | |
| 10866 | (- #{lev\ 2673}# 1))) | |
| 10867 | (#{quasi\ 2635}# | |
| 10868 | #{q\ 2682}# | |
| 10869 | #{lev\ 2673}#)))) | |
| 10870 | #{tmp\ 2680}#) | |
| 10871 | ((lambda (#{tmp\ 2683}#) | |
| 10872 | (if (if #{tmp\ 2683}# | |
| 10873 | (apply (lambda (#{args\ 2684}# | |
| 10874 | #{q\ 2685}#) | |
| 10875 | (= #{lev\ 2673}# 0)) | |
| 10876 | #{tmp\ 2683}#) | |
| 65dd9e38 | 10877 | #f) |
| b9434165 LC |
10878 | (apply (lambda (#{args\ 2686}# |
| 10879 | #{q\ 2687}#) | |
| 65dd9e38 AW |
10880 | (syntax-violation |
| 10881 | 'unquote-splicing | |
| 10882 | "unquote-splicing takes exactly one argument" | |
| b9434165 | 10883 | #{p\ 2672}# |
| 65dd9e38 AW |
10884 | (cons '#(syntax-object |
| 10885 | unquote-splicing | |
| 10886 | ((top) | |
| 10887 | #(ribcage | |
| 10888 | #(args q) | |
| 10889 | #((top) (top)) | |
| 10890 | #("i" "i")) | |
| 10891 | #(ribcage | |
| 10892 | () | |
| 10893 | () | |
| 10894 | ()) | |
| 10895 | #(ribcage | |
| 10896 | #(p lev) | |
| 10897 | #((top) (top)) | |
| 10898 | #("i" "i")) | |
| 10899 | #(ribcage | |
| 10900 | #(quasicons | |
| 10901 | quasiappend | |
| 10902 | quasivector | |
| 10903 | quasi) | |
| 10904 | #((top) | |
| 10905 | (top) | |
| 10906 | (top) | |
| 10907 | (top)) | |
| 10908 | #("i" | |
| 10909 | "i" | |
| 10910 | "i" | |
| 10911 | "i"))) | |
| 10912 | (hygiene guile)) | |
| b9434165 LC |
10913 | #{args\ 2686}#))) |
| 10914 | #{tmp\ 2683}#) | |
| 10915 | ((lambda (#{tmp\ 2688}#) | |
| 10916 | (if #{tmp\ 2688}# | |
| 10917 | (apply (lambda (#{p\ 2689}#) | |
| 10918 | (#{quasicons\ 2632}# | |
| 65dd9e38 AW |
10919 | '(#(syntax-object |
| 10920 | quote | |
| 10921 | ((top) | |
| 10922 | #(ribcage | |
| 10923 | #(p) | |
| 10924 | #((top)) | |
| 10925 | #("i")) | |
| 10926 | #(ribcage | |
| 10927 | () | |
| 10928 | () | |
| 10929 | ()) | |
| 10930 | #(ribcage | |
| 10931 | #(p lev) | |
| 10932 | #((top) (top)) | |
| 10933 | #("i" "i")) | |
| 10934 | #(ribcage | |
| 10935 | #(quasicons | |
| 10936 | quasiappend | |
| 10937 | quasivector | |
| 10938 | quasi) | |
| 10939 | #((top) | |
| 10940 | (top) | |
| 10941 | (top) | |
| 10942 | (top)) | |
| 10943 | #("i" | |
| 10944 | "i" | |
| 10945 | "i" | |
| 10946 | "i"))) | |
| 10947 | (hygiene guile)) | |
| 10948 | #(syntax-object | |
| 10949 | quasiquote | |
| 10950 | ((top) | |
| 10951 | #(ribcage | |
| 10952 | #(p) | |
| 10953 | #((top)) | |
| 10954 | #("i")) | |
| 10955 | #(ribcage | |
| 10956 | () | |
| 10957 | () | |
| 10958 | ()) | |
| 10959 | #(ribcage | |
| 10960 | #(p lev) | |
| 10961 | #((top) (top)) | |
| 10962 | #("i" "i")) | |
| 10963 | #(ribcage | |
| 10964 | #(quasicons | |
| 10965 | quasiappend | |
| 10966 | quasivector | |
| 10967 | quasi) | |
| 10968 | #((top) | |
| 10969 | (top) | |
| 10970 | (top) | |
| 10971 | (top)) | |
| 10972 | #("i" | |
| 10973 | "i" | |
| 10974 | "i" | |
| 10975 | "i"))) | |
| 10976 | (hygiene guile))) | |
| b9434165 LC |
10977 | (#{quasi\ 2635}# |
| 10978 | (list #{p\ 2689}#) | |
| 10979 | (+ #{lev\ 2673}# | |
| 10980 | 1)))) | |
| 10981 | #{tmp\ 2688}#) | |
| 10982 | ((lambda (#{tmp\ 2690}#) | |
| 10983 | (if #{tmp\ 2690}# | |
| 10984 | (apply (lambda (#{p\ 2691}# | |
| 10985 | #{q\ 2692}#) | |
| 10986 | (#{quasicons\ 2632}# | |
| 10987 | (#{quasi\ 2635}# | |
| 10988 | #{p\ 2691}# | |
| 10989 | #{lev\ 2673}#) | |
| 10990 | (#{quasi\ 2635}# | |
| 10991 | #{q\ 2692}# | |
| 10992 | #{lev\ 2673}#))) | |
| 10993 | #{tmp\ 2690}#) | |
| 10994 | ((lambda (#{tmp\ 2693}#) | |
| 10995 | (if #{tmp\ 2693}# | |
| 10996 | (apply (lambda (#{x\ 2694}#) | |
| 10997 | (#{quasivector\ 2634}# | |
| 10998 | (#{quasi\ 2635}# | |
| 10999 | #{x\ 2694}# | |
| 11000 | #{lev\ 2673}#))) | |
| 11001 | #{tmp\ 2693}#) | |
| 11002 | ((lambda (#{p\ 2696}#) | |
| 65dd9e38 AW |
11003 | (list '#(syntax-object |
| 11004 | quote | |
| 11005 | ((top) | |
| 11006 | #(ribcage | |
| 11007 | #(p) | |
| 11008 | #((top)) | |
| 11009 | #("i")) | |
| 11010 | #(ribcage | |
| 11011 | () | |
| 11012 | () | |
| 11013 | ()) | |
| 11014 | #(ribcage | |
| 11015 | #(p lev) | |
| 11016 | #((top) | |
| 11017 | (top)) | |
| 11018 | #("i" | |
| 11019 | "i")) | |
| 11020 | #(ribcage | |
| 11021 | #(quasicons | |
| 11022 | quasiappend | |
| 11023 | quasivector | |
| 11024 | quasi) | |
| 11025 | #((top) | |
| 11026 | (top) | |
| 11027 | (top) | |
| 11028 | (top)) | |
| 11029 | #("i" | |
| 11030 | "i" | |
| 11031 | "i" | |
| 11032 | "i"))) | |
| 11033 | (hygiene | |
| 11034 | guile)) | |
| b9434165 LC |
11035 | #{p\ 2696}#)) |
| 11036 | #{tmp\ 2674}#))) | |
| 65dd9e38 | 11037 | ($sc-dispatch |
| b9434165 | 11038 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11039 | '#(vector each-any))))) |
| 11040 | ($sc-dispatch | |
| b9434165 | 11041 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11042 | '(any . any))))) |
| 11043 | ($sc-dispatch | |
| b9434165 | 11044 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11045 | '(#(free-id |
| 11046 | #(syntax-object | |
| 11047 | quasiquote | |
| 11048 | ((top) | |
| 11049 | #(ribcage () () ()) | |
| 11050 | #(ribcage | |
| 11051 | #(p lev) | |
| 11052 | #((top) (top)) | |
| 11053 | #("i" "i")) | |
| 11054 | #(ribcage | |
| 11055 | #(quasicons | |
| 11056 | quasiappend | |
| 11057 | quasivector | |
| 11058 | quasi) | |
| 11059 | #((top) (top) (top) (top)) | |
| 11060 | #("i" "i" "i" "i"))) | |
| 11061 | (hygiene guile))) | |
| 11062 | any))))) | |
| 11063 | ($sc-dispatch | |
| b9434165 | 11064 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11065 | '((#(free-id |
| 11066 | #(syntax-object | |
| 11067 | unquote-splicing | |
| 11068 | ((top) | |
| 11069 | #(ribcage () () ()) | |
| 11070 | #(ribcage | |
| 11071 | #(p lev) | |
| 11072 | #((top) (top)) | |
| 11073 | #("i" "i")) | |
| 11074 | #(ribcage | |
| 11075 | #(quasicons | |
| 11076 | quasiappend | |
| 11077 | quasivector | |
| 11078 | quasi) | |
| 11079 | #((top) (top) (top) (top)) | |
| 11080 | #("i" "i" "i" "i"))) | |
| 11081 | (hygiene guile))) | |
| 11082 | . | |
| 11083 | any) | |
| 11084 | . | |
| 11085 | any))))) | |
| 11086 | ($sc-dispatch | |
| b9434165 | 11087 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11088 | '((#(free-id |
| 11089 | #(syntax-object | |
| 11090 | unquote-splicing | |
| 11091 | ((top) | |
| 11092 | #(ribcage () () ()) | |
| 11093 | #(ribcage | |
| 11094 | #(p lev) | |
| 11095 | #((top) (top)) | |
| 11096 | #("i" "i")) | |
| 11097 | #(ribcage | |
| 11098 | #(quasicons | |
| 11099 | quasiappend | |
| 11100 | quasivector | |
| 11101 | quasi) | |
| 11102 | #((top) (top) (top) (top)) | |
| 11103 | #("i" "i" "i" "i"))) | |
| 11104 | (hygiene guile))) | |
| 11105 | any) | |
| 11106 | . | |
| 11107 | any))))) | |
| 11108 | ($sc-dispatch | |
| b9434165 | 11109 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11110 | '(#(free-id |
| 11111 | #(syntax-object | |
| 11112 | unquote | |
| 11113 | ((top) | |
| 11114 | #(ribcage () () ()) | |
| 11115 | #(ribcage | |
| 11116 | #(p lev) | |
| 11117 | #((top) (top)) | |
| 11118 | #("i" "i")) | |
| 11119 | #(ribcage | |
| 11120 | #(quasicons quasiappend quasivector quasi) | |
| 11121 | #((top) (top) (top) (top)) | |
| 11122 | #("i" "i" "i" "i"))) | |
| 11123 | (hygiene guile))) | |
| 11124 | . | |
| 11125 | any))))) | |
| 11126 | ($sc-dispatch | |
| b9434165 | 11127 | #{tmp\ 2674}# |
| 65dd9e38 AW |
11128 | '(#(free-id |
| 11129 | #(syntax-object | |
| 11130 | unquote | |
| 11131 | ((top) | |
| 11132 | #(ribcage () () ()) | |
| 11133 | #(ribcage #(p lev) #((top) (top)) #("i" "i")) | |
| 11134 | #(ribcage | |
| 11135 | #(quasicons quasiappend quasivector quasi) | |
| 11136 | #((top) (top) (top) (top)) | |
| 11137 | #("i" "i" "i" "i"))) | |
| 11138 | (hygiene guile))) | |
| 11139 | any)))) | |
| b9434165 LC |
11140 | #{p\ 2672}#)))) |
| 11141 | (lambda (#{x\ 2697}#) | |
| 11142 | ((lambda (#{tmp\ 2698}#) | |
| 11143 | ((lambda (#{tmp\ 2699}#) | |
| 11144 | (if #{tmp\ 2699}# | |
| 11145 | (apply (lambda (#{_\ 2700}# #{e\ 2701}#) | |
| 11146 | (#{quasi\ 2635}# #{e\ 2701}# 0)) | |
| 11147 | #{tmp\ 2699}#) | |
| 65dd9e38 AW |
11148 | (syntax-violation |
| 11149 | #f | |
| 11150 | "source expression failed to match any pattern" | |
| b9434165 LC |
11151 | #{tmp\ 2698}#))) |
| 11152 | ($sc-dispatch #{tmp\ 2698}# (quote (any any))))) | |
| 11153 | #{x\ 2697}#))))) | |
| 65dd9e38 AW |
11154 | |
| 11155 | (define include | |
| 11156 | (make-syncase-macro | |
| 11157 | 'macro | |
| b9434165 LC |
11158 | (lambda (#{x\ 2702}#) |
| 11159 | (letrec ((#{read-file\ 2703}# | |
| 11160 | (lambda (#{fn\ 2704}# #{k\ 2705}#) | |
| 11161 | (let ((#{p\ 2706}# (open-input-file #{fn\ 2704}#))) | |
| 11162 | (letrec ((#{f\ 2707}# | |
| 11163 | (lambda (#{x\ 2708}#) | |
| 11164 | (if (eof-object? #{x\ 2708}#) | |
| 11165 | (begin | |
| 11166 | (close-input-port #{p\ 2706}#) | |
| 11167 | '()) | |
| 11168 | (cons (datum->syntax | |
| 11169 | #{k\ 2705}# | |
| 11170 | #{x\ 2708}#) | |
| 11171 | (#{f\ 2707}# (read #{p\ 2706}#))))))) | |
| 11172 | (#{f\ 2707}# (read #{p\ 2706}#))))))) | |
| 11173 | ((lambda (#{tmp\ 2709}#) | |
| 11174 | ((lambda (#{tmp\ 2710}#) | |
| 11175 | (if #{tmp\ 2710}# | |
| 11176 | (apply (lambda (#{k\ 2711}# #{filename\ 2712}#) | |
| 11177 | (let ((#{fn\ 2713}# | |
| 11178 | (syntax->datum #{filename\ 2712}#))) | |
| 11179 | ((lambda (#{tmp\ 2714}#) | |
| 11180 | ((lambda (#{tmp\ 2715}#) | |
| 11181 | (if #{tmp\ 2715}# | |
| 11182 | (apply (lambda (#{exp\ 2716}#) | |
| 65dd9e38 AW |
11183 | (cons '#(syntax-object |
| 11184 | begin | |
| 11185 | ((top) | |
| 11186 | #(ribcage | |
| 11187 | #(exp) | |
| 11188 | #((top)) | |
| 11189 | #("i")) | |
| 11190 | #(ribcage () () ()) | |
| 11191 | #(ribcage () () ()) | |
| 11192 | #(ribcage | |
| 11193 | #(fn) | |
| 11194 | #((top)) | |
| 11195 | #("i")) | |
| 11196 | #(ribcage | |
| 11197 | #(k filename) | |
| 11198 | #((top) (top)) | |
| 11199 | #("i" "i")) | |
| 11200 | #(ribcage | |
| 11201 | (read-file) | |
| 11202 | ((top)) | |
| 11203 | ("i")) | |
| 11204 | #(ribcage | |
| 11205 | #(x) | |
| 11206 | #((top)) | |
| 11207 | #("i"))) | |
| 11208 | (hygiene guile)) | |
| b9434165 LC |
11209 | #{exp\ 2716}#)) |
| 11210 | #{tmp\ 2715}#) | |
| 65dd9e38 AW |
11211 | (syntax-violation |
| 11212 | #f | |
| 11213 | "source expression failed to match any pattern" | |
| b9434165 LC |
11214 | #{tmp\ 2714}#))) |
| 11215 | ($sc-dispatch #{tmp\ 2714}# (quote each-any)))) | |
| 11216 | (#{read-file\ 2703}# #{fn\ 2713}# #{k\ 2711}#)))) | |
| 11217 | #{tmp\ 2710}#) | |
| 65dd9e38 AW |
11218 | (syntax-violation |
| 11219 | #f | |
| 11220 | "source expression failed to match any pattern" | |
| b9434165 LC |
11221 | #{tmp\ 2709}#))) |
| 11222 | ($sc-dispatch #{tmp\ 2709}# (quote (any any))))) | |
| 11223 | #{x\ 2702}#))))) | |
| 65dd9e38 AW |
11224 | |
| 11225 | (define unquote | |
| 11226 | (make-syncase-macro | |
| 11227 | 'macro | |
| b9434165 LC |
11228 | (lambda (#{x\ 2718}#) |
| 11229 | ((lambda (#{tmp\ 2719}#) | |
| 11230 | ((lambda (#{tmp\ 2720}#) | |
| 11231 | (if #{tmp\ 2720}# | |
| 11232 | (apply (lambda (#{_\ 2721}# #{e\ 2722}#) | |
| 65dd9e38 AW |
11233 | (syntax-violation |
| 11234 | 'unquote | |
| 11235 | "expression not valid outside of quasiquote" | |
| b9434165 LC |
11236 | #{x\ 2718}#)) |
| 11237 | #{tmp\ 2720}#) | |
| 65dd9e38 AW |
11238 | (syntax-violation |
| 11239 | #f | |
| 11240 | "source expression failed to match any pattern" | |
| b9434165 LC |
11241 | #{tmp\ 2719}#))) |
| 11242 | ($sc-dispatch #{tmp\ 2719}# (quote (any any))))) | |
| 11243 | #{x\ 2718}#)))) | |
| 65dd9e38 AW |
11244 | |
| 11245 | (define unquote-splicing | |
| 11246 | (make-syncase-macro | |
| 11247 | 'macro | |
| b9434165 LC |
11248 | (lambda (#{x\ 2723}#) |
| 11249 | ((lambda (#{tmp\ 2724}#) | |
| 11250 | ((lambda (#{tmp\ 2725}#) | |
| 11251 | (if #{tmp\ 2725}# | |
| 11252 | (apply (lambda (#{_\ 2726}# #{e\ 2727}#) | |
| 65dd9e38 AW |
11253 | (syntax-violation |
| 11254 | 'unquote-splicing | |
| 11255 | "expression not valid outside of quasiquote" | |
| b9434165 LC |
11256 | #{x\ 2723}#)) |
| 11257 | #{tmp\ 2725}#) | |
| 65dd9e38 AW |
11258 | (syntax-violation |
| 11259 | #f | |
| 11260 | "source expression failed to match any pattern" | |
| b9434165 LC |
11261 | #{tmp\ 2724}#))) |
| 11262 | ($sc-dispatch #{tmp\ 2724}# (quote (any any))))) | |
| 11263 | #{x\ 2723}#)))) | |
| 65dd9e38 AW |
11264 | |
| 11265 | (define case | |
| 11266 | (make-extended-syncase-macro | |
| 11267 | (module-ref (current-module) (quote case)) | |
| 11268 | 'macro | |
| b9434165 LC |
11269 | (lambda (#{x\ 2728}#) |
| 11270 | ((lambda (#{tmp\ 2729}#) | |
| 11271 | ((lambda (#{tmp\ 2730}#) | |
| 11272 | (if #{tmp\ 2730}# | |
| 11273 | (apply (lambda (#{_\ 2731}# | |
| 11274 | #{e\ 2732}# | |
| 11275 | #{m1\ 2733}# | |
| 11276 | #{m2\ 2734}#) | |
| 11277 | ((lambda (#{tmp\ 2735}#) | |
| 11278 | ((lambda (#{body\ 2736}#) | |
| 65dd9e38 AW |
11279 | (list '#(syntax-object |
| 11280 | let | |
| 11281 | ((top) | |
| 11282 | #(ribcage #(body) #((top)) #("i")) | |
| 11283 | #(ribcage | |
| 11284 | #(_ e m1 m2) | |
| 11285 | #((top) (top) (top) (top)) | |
| 11286 | #("i" "i" "i" "i")) | |
| 11287 | #(ribcage () () ()) | |
| 11288 | #(ribcage #(x) #((top)) #("i"))) | |
| 11289 | (hygiene guile)) | |
| 11290 | (list (list '#(syntax-object | |
| 11291 | t | |
| 11292 | ((top) | |
| 11293 | #(ribcage | |
| 11294 | #(body) | |
| 11295 | #((top)) | |
| 11296 | #("i")) | |
| 11297 | #(ribcage | |
| 11298 | #(_ e m1 m2) | |
| 11299 | #((top) (top) (top) (top)) | |
| 11300 | #("i" "i" "i" "i")) | |
| 11301 | #(ribcage () () ()) | |
| 11302 | #(ribcage | |
| 11303 | #(x) | |
| 11304 | #((top)) | |
| 11305 | #("i"))) | |
| 11306 | (hygiene guile)) | |
| b9434165 LC |
11307 | #{e\ 2732}#)) |
| 11308 | #{body\ 2736}#)) | |
| 11309 | #{tmp\ 2735}#)) | |
| 11310 | (letrec ((#{f\ 2737}# | |
| 11311 | (lambda (#{clause\ 2738}# #{clauses\ 2739}#) | |
| 11312 | (if (null? #{clauses\ 2739}#) | |
| 11313 | ((lambda (#{tmp\ 2741}#) | |
| 11314 | ((lambda (#{tmp\ 2742}#) | |
| 11315 | (if #{tmp\ 2742}# | |
| 11316 | (apply (lambda (#{e1\ 2743}# | |
| 11317 | #{e2\ 2744}#) | |
| 11318 | (cons '#(syntax-object | |
| 11319 | begin | |
| 11320 | ((top) | |
| 11321 | #(ribcage | |
| 11322 | #(e1 e2) | |
| 11323 | #((top) | |
| 11324 | (top)) | |
| 11325 | #("i" "i")) | |
| 11326 | #(ribcage | |
| 11327 | () | |
| 11328 | () | |
| 11329 | ()) | |
| 11330 | #(ribcage | |
| 11331 | #(f | |
| 11332 | clause | |
| 11333 | clauses) | |
| 11334 | #((top) | |
| 11335 | (top) | |
| 11336 | (top)) | |
| 11337 | #("i" | |
| 11338 | "i" | |
| 11339 | "i")) | |
| 11340 | #(ribcage | |
| 11341 | #(_ | |
| 11342 | e | |
| 11343 | m1 | |
| 11344 | m2) | |
| 11345 | #((top) | |
| 11346 | (top) | |
| 11347 | (top) | |
| 11348 | (top)) | |
| 11349 | #("i" | |
| 11350 | "i" | |
| 11351 | "i" | |
| 11352 | "i")) | |
| 11353 | #(ribcage | |
| 11354 | () | |
| 11355 | () | |
| 11356 | ()) | |
| 11357 | #(ribcage | |
| 11358 | #(x) | |
| 11359 | #((top)) | |
| 11360 | #("i"))) | |
| 11361 | (hygiene | |
| 11362 | guile)) | |
| 11363 | (cons #{e1\ 2743}# | |
| 11364 | #{e2\ 2744}#))) | |
| 11365 | #{tmp\ 2742}#) | |
| 11366 | ((lambda (#{tmp\ 2746}#) | |
| 11367 | (if #{tmp\ 2746}# | |
| 11368 | (apply (lambda (#{k\ 2747}# | |
| 11369 | #{e1\ 2748}# | |
| 11370 | #{e2\ 2749}#) | |
| 11371 | (list '#(syntax-object | |
| 11372 | if | |
| 65dd9e38 AW |
11373 | ((top) |
| 11374 | #(ribcage | |
| b9434165 LC |
11375 | #(k |
| 11376 | e1 | |
| 65dd9e38 AW |
11377 | e2) |
| 11378 | #((top) | |
| b9434165 | 11379 | (top) |
| 65dd9e38 AW |
11380 | (top)) |
| 11381 | #("i" | |
| b9434165 | 11382 | "i" |
| 65dd9e38 AW |
11383 | "i")) |
| 11384 | #(ribcage | |
| 11385 | () | |
| 11386 | () | |
| 11387 | ()) | |
| 11388 | #(ribcage | |
| 11389 | #(f | |
| 11390 | clause | |
| 11391 | clauses) | |
| 11392 | #((top) | |
| 11393 | (top) | |
| 11394 | (top)) | |
| 11395 | #("i" | |
| 11396 | "i" | |
| 11397 | "i")) | |
| 11398 | #(ribcage | |
| 11399 | #(_ | |
| 11400 | e | |
| 11401 | m1 | |
| 11402 | m2) | |
| 11403 | #((top) | |
| 11404 | (top) | |
| 11405 | (top) | |
| 11406 | (top)) | |
| 11407 | #("i" | |
| 11408 | "i" | |
| 11409 | "i" | |
| 11410 | "i")) | |
| 11411 | #(ribcage | |
| 11412 | () | |
| 11413 | () | |
| 11414 | ()) | |
| 11415 | #(ribcage | |
| 11416 | #(x) | |
| 11417 | #((top)) | |
| 11418 | #("i"))) | |
| 11419 | (hygiene | |
| 11420 | guile)) | |
| 65dd9e38 | 11421 | (list '#(syntax-object |
| b9434165 | 11422 | memv |
| 65dd9e38 AW |
11423 | ((top) |
| 11424 | #(ribcage | |
| 11425 | #(k | |
| 11426 | e1 | |
| 11427 | e2) | |
| 11428 | #((top) | |
| 11429 | (top) | |
| 11430 | (top)) | |
| 11431 | #("i" | |
| 11432 | "i" | |
| 11433 | "i")) | |
| 11434 | #(ribcage | |
| b9434165 LC |
11435 | () |
| 11436 | () | |
| 11437 | ()) | |
| 11438 | #(ribcage | |
| 11439 | #(f | |
| 11440 | clause | |
| 11441 | clauses) | |
| 11442 | #((top) | |
| 11443 | (top) | |
| 11444 | (top)) | |
| 11445 | #("i" | |
| 11446 | "i" | |
| 11447 | "i")) | |
| 11448 | #(ribcage | |
| 11449 | #(_ | |
| 11450 | e | |
| 11451 | m1 | |
| 11452 | m2) | |
| 11453 | #((top) | |
| 11454 | (top) | |
| 11455 | (top) | |
| 11456 | (top)) | |
| 11457 | #("i" | |
| 11458 | "i" | |
| 11459 | "i" | |
| 11460 | "i")) | |
| 11461 | #(ribcage | |
| 11462 | () | |
| 11463 | () | |
| 11464 | ()) | |
| 11465 | #(ribcage | |
| 11466 | #(x) | |
| 65dd9e38 | 11467 | #((top)) |
| b9434165 LC |
11468 | #("i"))) |
| 11469 | (hygiene | |
| 11470 | guile)) | |
| 11471 | '#(syntax-object | |
| 11472 | t | |
| 11473 | ((top) | |
| 11474 | #(ribcage | |
| 11475 | #(k | |
| 11476 | e1 | |
| 11477 | e2) | |
| 11478 | #((top) | |
| 11479 | (top) | |
| 11480 | (top)) | |
| 11481 | #("i" | |
| 11482 | "i" | |
| 11483 | "i")) | |
| 65dd9e38 AW |
11484 | #(ribcage |
| 11485 | () | |
| 11486 | () | |
| 11487 | ()) | |
| 11488 | #(ribcage | |
| 11489 | #(f | |
| 11490 | clause | |
| 11491 | clauses) | |
| 11492 | #((top) | |
| 11493 | (top) | |
| 11494 | (top)) | |
| 11495 | #("i" | |
| 11496 | "i" | |
| 11497 | "i")) | |
| 11498 | #(ribcage | |
| 11499 | #(_ | |
| 11500 | e | |
| 11501 | m1 | |
| 11502 | m2) | |
| 11503 | #((top) | |
| 11504 | (top) | |
| 11505 | (top) | |
| 11506 | (top)) | |
| 11507 | #("i" | |
| 11508 | "i" | |
| 11509 | "i" | |
| 11510 | "i")) | |
| 11511 | #(ribcage | |
| 11512 | () | |
| 11513 | () | |
| 11514 | ()) | |
| 11515 | #(ribcage | |
| 11516 | #(x) | |
| 11517 | #((top)) | |
| 11518 | #("i"))) | |
| 11519 | (hygiene | |
| 11520 | guile)) | |
| 11521 | (list '#(syntax-object | |
| b9434165 | 11522 | quote |
| 65dd9e38 AW |
11523 | ((top) |
| 11524 | #(ribcage | |
| 11525 | #(k | |
| 11526 | e1 | |
| 11527 | e2) | |
| 11528 | #((top) | |
| 11529 | (top) | |
| 11530 | (top)) | |
| 11531 | #("i" | |
| 11532 | "i" | |
| 11533 | "i")) | |
| 65dd9e38 AW |
11534 | #(ribcage |
| 11535 | () | |
| 11536 | () | |
| 11537 | ()) | |
| 11538 | #(ribcage | |
| 11539 | #(f | |
| 11540 | clause | |
| 11541 | clauses) | |
| 11542 | #((top) | |
| 11543 | (top) | |
| 11544 | (top)) | |
| 11545 | #("i" | |
| 11546 | "i" | |
| 11547 | "i")) | |
| 11548 | #(ribcage | |
| 11549 | #(_ | |
| 11550 | e | |
| 11551 | m1 | |
| 11552 | m2) | |
| 11553 | #((top) | |
| 11554 | (top) | |
| 11555 | (top) | |
| 11556 | (top)) | |
| 11557 | #("i" | |
| 11558 | "i" | |
| 11559 | "i" | |
| 11560 | "i")) | |
| 11561 | #(ribcage | |
| 11562 | () | |
| 11563 | () | |
| 11564 | ()) | |
| 11565 | #(ribcage | |
| 11566 | #(x) | |
| 11567 | #((top)) | |
| 11568 | #("i"))) | |
| 11569 | (hygiene | |
| 11570 | guile)) | |
| b9434165 LC |
11571 | #{k\ 2747}#)) |
| 11572 | (cons '#(syntax-object | |
| 11573 | begin | |
| 11574 | ((top) | |
| 11575 | #(ribcage | |
| 11576 | #(k | |
| 11577 | e1 | |
| 11578 | e2) | |
| 11579 | #((top) | |
| 11580 | (top) | |
| 11581 | (top)) | |
| 11582 | #("i" | |
| 11583 | "i" | |
| 11584 | "i")) | |
| 11585 | #(ribcage | |
| 11586 | () | |
| 11587 | () | |
| 11588 | ()) | |
| 11589 | #(ribcage | |
| 11590 | #(f | |
| 11591 | clause | |
| 11592 | clauses) | |
| 11593 | #((top) | |
| 11594 | (top) | |
| 11595 | (top)) | |
| 11596 | #("i" | |
| 11597 | "i" | |
| 11598 | "i")) | |
| 11599 | #(ribcage | |
| 11600 | #(_ | |
| 11601 | e | |
| 11602 | m1 | |
| 11603 | m2) | |
| 11604 | #((top) | |
| 11605 | (top) | |
| 11606 | (top) | |
| 11607 | (top)) | |
| 11608 | #("i" | |
| 11609 | "i" | |
| 11610 | "i" | |
| 11611 | "i")) | |
| 11612 | #(ribcage | |
| 11613 | () | |
| 11614 | () | |
| 11615 | ()) | |
| 11616 | #(ribcage | |
| 11617 | #(x) | |
| 11618 | #((top)) | |
| 11619 | #("i"))) | |
| 11620 | (hygiene | |
| 11621 | guile)) | |
| 11622 | (cons #{e1\ 2748}# | |
| 11623 | #{e2\ 2749}#)))) | |
| 11624 | #{tmp\ 2746}#) | |
| 11625 | ((lambda (#{_\ 2752}#) | |
| 11626 | (syntax-violation | |
| 11627 | 'case | |
| 11628 | "bad clause" | |
| 11629 | #{x\ 2728}# | |
| 11630 | #{clause\ 2738}#)) | |
| 11631 | #{tmp\ 2741}#))) | |
| 11632 | ($sc-dispatch | |
| 11633 | #{tmp\ 2741}# | |
| 11634 | '(each-any | |
| 11635 | any | |
| 11636 | . | |
| 11637 | each-any))))) | |
| 11638 | ($sc-dispatch | |
| 11639 | #{tmp\ 2741}# | |
| 11640 | '(#(free-id | |
| 11641 | #(syntax-object | |
| 11642 | else | |
| 11643 | ((top) | |
| 11644 | #(ribcage () () ()) | |
| 11645 | #(ribcage | |
| 11646 | #(f clause clauses) | |
| 11647 | #((top) (top) (top)) | |
| 11648 | #("i" "i" "i")) | |
| 11649 | #(ribcage | |
| 11650 | #(_ e m1 m2) | |
| 11651 | #((top) | |
| 11652 | (top) | |
| 11653 | (top) | |
| 11654 | (top)) | |
| 11655 | #("i" "i" "i" "i")) | |
| 11656 | #(ribcage () () ()) | |
| 11657 | #(ribcage | |
| 11658 | #(x) | |
| 11659 | #((top)) | |
| 11660 | #("i"))) | |
| 11661 | (hygiene guile))) | |
| 11662 | any | |
| 11663 | . | |
| 11664 | each-any)))) | |
| 11665 | #{clause\ 2738}#) | |
| 11666 | ((lambda (#{tmp\ 2753}#) | |
| 11667 | ((lambda (#{rest\ 2754}#) | |
| 11668 | ((lambda (#{tmp\ 2755}#) | |
| 11669 | ((lambda (#{tmp\ 2756}#) | |
| 11670 | (if #{tmp\ 2756}# | |
| 11671 | (apply (lambda (#{k\ 2757}# | |
| 11672 | #{e1\ 2758}# | |
| 11673 | #{e2\ 2759}#) | |
| 11674 | (list '#(syntax-object | |
| 11675 | if | |
| 11676 | ((top) | |
| 11677 | #(ribcage | |
| 11678 | #(k | |
| 11679 | e1 | |
| 11680 | e2) | |
| 11681 | #((top) | |
| 11682 | (top) | |
| 11683 | (top)) | |
| 11684 | #("i" | |
| 11685 | "i" | |
| 11686 | "i")) | |
| 11687 | #(ribcage | |
| 11688 | #(rest) | |
| 11689 | #((top)) | |
| 11690 | #("i")) | |
| 11691 | #(ribcage | |
| 11692 | () | |
| 11693 | () | |
| 11694 | ()) | |
| 11695 | #(ribcage | |
| 11696 | #(f | |
| 11697 | clause | |
| 11698 | clauses) | |
| 11699 | #((top) | |
| 11700 | (top) | |
| 11701 | (top)) | |
| 11702 | #("i" | |
| 11703 | "i" | |
| 11704 | "i")) | |
| 11705 | #(ribcage | |
| 11706 | #(_ | |
| 11707 | e | |
| 11708 | m1 | |
| 11709 | m2) | |
| 11710 | #((top) | |
| 11711 | (top) | |
| 11712 | (top) | |
| 11713 | (top)) | |
| 11714 | #("i" | |
| 11715 | "i" | |
| 11716 | "i" | |
| 11717 | "i")) | |
| 11718 | #(ribcage | |
| 11719 | () | |
| 11720 | () | |
| 11721 | ()) | |
| 11722 | #(ribcage | |
| 11723 | #(x) | |
| 11724 | #((top)) | |
| 11725 | #("i"))) | |
| 11726 | (hygiene | |
| 11727 | guile)) | |
| 11728 | (list '#(syntax-object | |
| 11729 | memv | |
| 11730 | ((top) | |
| 11731 | #(ribcage | |
| 11732 | #(k | |
| 11733 | e1 | |
| 11734 | e2) | |
| 11735 | #((top) | |
| 11736 | (top) | |
| 11737 | (top)) | |
| 11738 | #("i" | |
| 11739 | "i" | |
| 11740 | "i")) | |
| 11741 | #(ribcage | |
| 11742 | #(rest) | |
| 11743 | #((top)) | |
| 11744 | #("i")) | |
| 11745 | #(ribcage | |
| 11746 | () | |
| 11747 | () | |
| 11748 | ()) | |
| 11749 | #(ribcage | |
| 11750 | #(f | |
| 11751 | clause | |
| 11752 | clauses) | |
| 11753 | #((top) | |
| 11754 | (top) | |
| 11755 | (top)) | |
| 11756 | #("i" | |
| 11757 | "i" | |
| 11758 | "i")) | |
| 11759 | #(ribcage | |
| 11760 | #(_ | |
| 11761 | e | |
| 11762 | m1 | |
| 11763 | m2) | |
| 11764 | #((top) | |
| 11765 | (top) | |
| 11766 | (top) | |
| 11767 | (top)) | |
| 11768 | #("i" | |
| 11769 | "i" | |
| 11770 | "i" | |
| 11771 | "i")) | |
| 11772 | #(ribcage | |
| 11773 | () | |
| 11774 | () | |
| 11775 | ()) | |
| 11776 | #(ribcage | |
| 11777 | #(x) | |
| 11778 | #((top)) | |
| 11779 | #("i"))) | |
| 11780 | (hygiene | |
| 11781 | guile)) | |
| 11782 | '#(syntax-object | |
| 11783 | t | |
| 11784 | ((top) | |
| 11785 | #(ribcage | |
| 11786 | #(k | |
| 11787 | e1 | |
| 11788 | e2) | |
| 11789 | #((top) | |
| 11790 | (top) | |
| 11791 | (top)) | |
| 11792 | #("i" | |
| 11793 | "i" | |
| 11794 | "i")) | |
| 11795 | #(ribcage | |
| 11796 | #(rest) | |
| 11797 | #((top)) | |
| 11798 | #("i")) | |
| 11799 | #(ribcage | |
| 11800 | () | |
| 11801 | () | |
| 11802 | ()) | |
| 11803 | #(ribcage | |
| 11804 | #(f | |
| 11805 | clause | |
| 11806 | clauses) | |
| 11807 | #((top) | |
| 11808 | (top) | |
| 11809 | (top)) | |
| 11810 | #("i" | |
| 11811 | "i" | |
| 11812 | "i")) | |
| 11813 | #(ribcage | |
| 11814 | #(_ | |
| 11815 | e | |
| 11816 | m1 | |
| 11817 | m2) | |
| 11818 | #((top) | |
| 11819 | (top) | |
| 11820 | (top) | |
| 11821 | (top)) | |
| 11822 | #("i" | |
| 11823 | "i" | |
| 11824 | "i" | |
| 11825 | "i")) | |
| 11826 | #(ribcage | |
| 11827 | () | |
| 11828 | () | |
| 11829 | ()) | |
| 11830 | #(ribcage | |
| 11831 | #(x) | |
| 11832 | #((top)) | |
| 11833 | #("i"))) | |
| 11834 | (hygiene | |
| 11835 | guile)) | |
| 11836 | (list '#(syntax-object | |
| 11837 | quote | |
| 11838 | ((top) | |
| 11839 | #(ribcage | |
| 11840 | #(k | |
| 11841 | e1 | |
| 11842 | e2) | |
| 11843 | #((top) | |
| 11844 | (top) | |
| 11845 | (top)) | |
| 11846 | #("i" | |
| 11847 | "i" | |
| 11848 | "i")) | |
| 11849 | #(ribcage | |
| 11850 | #(rest) | |
| 11851 | #((top)) | |
| 11852 | #("i")) | |
| 11853 | #(ribcage | |
| 11854 | () | |
| 11855 | () | |
| 11856 | ()) | |
| 11857 | #(ribcage | |
| 11858 | #(f | |
| 11859 | clause | |
| 11860 | clauses) | |
| 11861 | #((top) | |
| 11862 | (top) | |
| 11863 | (top)) | |
| 11864 | #("i" | |
| 11865 | "i" | |
| 11866 | "i")) | |
| 11867 | #(ribcage | |
| 11868 | #(_ | |
| 11869 | e | |
| 11870 | m1 | |
| 11871 | m2) | |
| 11872 | #((top) | |
| 11873 | (top) | |
| 11874 | (top) | |
| 11875 | (top)) | |
| 11876 | #("i" | |
| 11877 | "i" | |
| 11878 | "i" | |
| 11879 | "i")) | |
| 11880 | #(ribcage | |
| 11881 | () | |
| 11882 | () | |
| 11883 | ()) | |
| 11884 | #(ribcage | |
| 11885 | #(x) | |
| 11886 | #((top)) | |
| 11887 | #("i"))) | |
| 11888 | (hygiene | |
| 11889 | guile)) | |
| 11890 | #{k\ 2757}#)) | |
| 11891 | (cons '#(syntax-object | |
| 11892 | begin | |
| 11893 | ((top) | |
| 11894 | #(ribcage | |
| 11895 | #(k | |
| 11896 | e1 | |
| 11897 | e2) | |
| 11898 | #((top) | |
| 11899 | (top) | |
| 11900 | (top)) | |
| 11901 | #("i" | |
| 11902 | "i" | |
| 11903 | "i")) | |
| 11904 | #(ribcage | |
| 11905 | #(rest) | |
| 11906 | #((top)) | |
| 11907 | #("i")) | |
| 11908 | #(ribcage | |
| 11909 | () | |
| 11910 | () | |
| 11911 | ()) | |
| 11912 | #(ribcage | |
| 11913 | #(f | |
| 11914 | clause | |
| 11915 | clauses) | |
| 11916 | #((top) | |
| 11917 | (top) | |
| 11918 | (top)) | |
| 11919 | #("i" | |
| 11920 | "i" | |
| 11921 | "i")) | |
| 11922 | #(ribcage | |
| 11923 | #(_ | |
| 11924 | e | |
| 11925 | m1 | |
| 11926 | m2) | |
| 11927 | #((top) | |
| 11928 | (top) | |
| 11929 | (top) | |
| 11930 | (top)) | |
| 11931 | #("i" | |
| 11932 | "i" | |
| 11933 | "i" | |
| 11934 | "i")) | |
| 11935 | #(ribcage | |
| 11936 | () | |
| 11937 | () | |
| 11938 | ()) | |
| 11939 | #(ribcage | |
| 11940 | #(x) | |
| 11941 | #((top)) | |
| 11942 | #("i"))) | |
| 11943 | (hygiene | |
| 11944 | guile)) | |
| 11945 | (cons #{e1\ 2758}# | |
| 11946 | #{e2\ 2759}#)) | |
| 11947 | #{rest\ 2754}#)) | |
| 11948 | #{tmp\ 2756}#) | |
| 11949 | ((lambda (#{_\ 2762}#) | |
| 11950 | (syntax-violation | |
| 11951 | 'case | |
| 11952 | "bad clause" | |
| 11953 | #{x\ 2728}# | |
| 11954 | #{clause\ 2738}#)) | |
| 11955 | #{tmp\ 2755}#))) | |
| 11956 | ($sc-dispatch | |
| 11957 | #{tmp\ 2755}# | |
| 11958 | '(each-any | |
| 11959 | any | |
| 11960 | . | |
| 11961 | each-any)))) | |
| 11962 | #{clause\ 2738}#)) | |
| 11963 | #{tmp\ 2753}#)) | |
| 11964 | (#{f\ 2737}# | |
| 11965 | (car #{clauses\ 2739}#) | |
| 11966 | (cdr #{clauses\ 2739}#))))))) | |
| 11967 | (#{f\ 2737}# #{m1\ 2733}# #{m2\ 2734}#)))) | |
| 11968 | #{tmp\ 2730}#) | |
| 65dd9e38 AW |
11969 | (syntax-violation |
| 11970 | #f | |
| 11971 | "source expression failed to match any pattern" | |
| b9434165 | 11972 | #{tmp\ 2729}#))) |
| 65dd9e38 | 11973 | ($sc-dispatch |
| b9434165 | 11974 | #{tmp\ 2729}# |
| 65dd9e38 | 11975 | '(any any any . each-any)))) |
| b9434165 | 11976 | #{x\ 2728}#)))) |
| 65dd9e38 AW |
11977 | |
| 11978 | (define identifier-syntax | |
| 11979 | (make-syncase-macro | |
| 11980 | 'macro | |
| b9434165 LC |
11981 | (lambda (#{x\ 2763}#) |
| 11982 | ((lambda (#{tmp\ 2764}#) | |
| 11983 | ((lambda (#{tmp\ 2765}#) | |
| 11984 | (if #{tmp\ 2765}# | |
| 11985 | (apply (lambda (#{_\ 2766}# #{e\ 2767}#) | |
| 65dd9e38 AW |
11986 | (list '#(syntax-object |
| 11987 | lambda | |
| 11988 | ((top) | |
| 11989 | #(ribcage #(_ e) #((top) (top)) #("i" "i")) | |
| 11990 | #(ribcage () () ()) | |
| 11991 | #(ribcage #(x) #((top)) #("i"))) | |
| 11992 | (hygiene guile)) | |
| 11993 | '(#(syntax-object | |
| 11994 | x | |
| 11995 | ((top) | |
| 11996 | #(ribcage #(_ e) #((top) (top)) #("i" "i")) | |
| 11997 | #(ribcage () () ()) | |
| 11998 | #(ribcage #(x) #((top)) #("i"))) | |
| 11999 | (hygiene guile))) | |
| 12000 | (list '#(syntax-object | |
| 12001 | syntax-case | |
| 12002 | ((top) | |
| 12003 | #(ribcage | |
| 12004 | #(_ e) | |
| 12005 | #((top) (top)) | |
| 12006 | #("i" "i")) | |
| 12007 | #(ribcage () () ()) | |
| 12008 | #(ribcage #(x) #((top)) #("i"))) | |
| 12009 | (hygiene guile)) | |
| 12010 | '#(syntax-object | |
| 12011 | x | |
| 12012 | ((top) | |
| 12013 | #(ribcage | |
| 12014 | #(_ e) | |
| 12015 | #((top) (top)) | |
| 12016 | #("i" "i")) | |
| 12017 | #(ribcage () () ()) | |
| 12018 | #(ribcage #(x) #((top)) #("i"))) | |
| 12019 | (hygiene guile)) | |
| 12020 | '() | |
| 12021 | (list '#(syntax-object | |
| 12022 | id | |
| 12023 | ((top) | |
| 12024 | #(ribcage | |
| 12025 | #(_ e) | |
| 12026 | #((top) (top)) | |
| 12027 | #("i" "i")) | |
| 12028 | #(ribcage () () ()) | |
| 12029 | #(ribcage #(x) #((top)) #("i"))) | |
| 12030 | (hygiene guile)) | |
| 12031 | '(#(syntax-object | |
| 12032 | identifier? | |
| 12033 | ((top) | |
| 12034 | #(ribcage | |
| 12035 | #(_ e) | |
| 12036 | #((top) (top)) | |
| 12037 | #("i" "i")) | |
| 12038 | #(ribcage () () ()) | |
| 12039 | #(ribcage #(x) #((top)) #("i"))) | |
| 12040 | (hygiene guile)) | |
| 12041 | (#(syntax-object | |
| 12042 | syntax | |
| 12043 | ((top) | |
| 12044 | #(ribcage | |
| 12045 | #(_ e) | |
| 12046 | #((top) (top)) | |
| 12047 | #("i" "i")) | |
| 12048 | #(ribcage () () ()) | |
| 12049 | #(ribcage #(x) #((top)) #("i"))) | |
| 12050 | (hygiene guile)) | |
| 12051 | #(syntax-object | |
| 12052 | id | |
| 12053 | ((top) | |
| 12054 | #(ribcage | |
| 12055 | #(_ e) | |
| 12056 | #((top) (top)) | |
| 12057 | #("i" "i")) | |
| 12058 | #(ribcage () () ()) | |
| 12059 | #(ribcage #(x) #((top)) #("i"))) | |
| 12060 | (hygiene guile)))) | |
| 12061 | (list '#(syntax-object | |
| 12062 | syntax | |
| 12063 | ((top) | |
| 12064 | #(ribcage | |
| 12065 | #(_ e) | |
| 12066 | #((top) (top)) | |
| 12067 | #("i" "i")) | |
| 12068 | #(ribcage () () ()) | |
| 12069 | #(ribcage | |
| 12070 | #(x) | |
| 12071 | #((top)) | |
| 12072 | #("i"))) | |
| 12073 | (hygiene guile)) | |
| b9434165 LC |
12074 | #{e\ 2767}#)) |
| 12075 | (list (cons #{_\ 2766}# | |
| 65dd9e38 AW |
12076 | '(#(syntax-object |
| 12077 | x | |
| 12078 | ((top) | |
| 12079 | #(ribcage | |
| 12080 | #(_ e) | |
| 12081 | #((top) (top)) | |
| 12082 | #("i" "i")) | |
| 12083 | #(ribcage () () ()) | |
| 12084 | #(ribcage | |
| 12085 | #(x) | |
| 12086 | #((top)) | |
| 12087 | #("i"))) | |
| 12088 | (hygiene guile)) | |
| 12089 | #(syntax-object | |
| 12090 | ... | |
| 12091 | ((top) | |
| 12092 | #(ribcage | |
| 12093 | #(_ e) | |
| 12094 | #((top) (top)) | |
| 12095 | #("i" "i")) | |
| 12096 | #(ribcage () () ()) | |
| 12097 | #(ribcage | |
| 12098 | #(x) | |
| 12099 | #((top)) | |
| 12100 | #("i"))) | |
| 12101 | (hygiene guile)))) | |
| 12102 | (list '#(syntax-object | |
| 12103 | syntax | |
| 12104 | ((top) | |
| 12105 | #(ribcage | |
| 12106 | #(_ e) | |
| 12107 | #((top) (top)) | |
| 12108 | #("i" "i")) | |
| 12109 | #(ribcage () () ()) | |
| 12110 | #(ribcage | |
| 12111 | #(x) | |
| 12112 | #((top)) | |
| 12113 | #("i"))) | |
| 12114 | (hygiene guile)) | |
| b9434165 | 12115 | (cons #{e\ 2767}# |
| 65dd9e38 AW |
12116 | '(#(syntax-object |
| 12117 | x | |
| 12118 | ((top) | |
| 12119 | #(ribcage | |
| 12120 | #(_ e) | |
| 12121 | #((top) (top)) | |
| 12122 | #("i" "i")) | |
| 12123 | #(ribcage () () ()) | |
| 12124 | #(ribcage | |
| 12125 | #(x) | |
| 12126 | #((top)) | |
| 12127 | #("i"))) | |
| 12128 | (hygiene guile)) | |
| 12129 | #(syntax-object | |
| 12130 | ... | |
| 12131 | ((top) | |
| 12132 | #(ribcage | |
| 12133 | #(_ e) | |
| 12134 | #((top) (top)) | |
| 12135 | #("i" "i")) | |
| 12136 | #(ribcage () () ()) | |
| 12137 | #(ribcage | |
| 12138 | #(x) | |
| 12139 | #((top)) | |
| 12140 | #("i"))) | |
| 12141 | (hygiene | |
| 12142 | guile))))))))) | |
| b9434165 | 12143 | #{tmp\ 2765}#) |
| 65dd9e38 AW |
12144 | (syntax-violation |
| 12145 | #f | |
| 12146 | "source expression failed to match any pattern" | |
| b9434165 LC |
12147 | #{tmp\ 2764}#))) |
| 12148 | ($sc-dispatch #{tmp\ 2764}# (quote (any any))))) | |
| 12149 | #{x\ 2763}#)))) | |
| 65dd9e38 | 12150 |