diff options
author | Andy Wingo <wingo@pobox.com> | 2009-10-25 12:39:03 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-10-25 13:12:27 +0100 |
commit | 647117cd3599c1eaae5afe4b77fa15886d6d344d (patch) | |
tree | c30804560681c0bd7fb01e862048f6257917fe0c | |
parent | 8b652112048ae2c482993897cdf40c5d9a67a8d2 (diff) | |
download | guile-647117cd3599c1eaae5afe4b77fa15886d6d344d.tar.gz |
case-lambda, case-lambda* in psyntax
* module/ice-9/psyntax.scm (case-lambda, case-lambda*): Add
implementations of these, present in the base environment.
* module/ice-9/psyntax-pp.scm: Regenerated.
* module/srfi/srfi-16.scm (case-lambda): Replace the core's case-lambda
definition with our own. We're not quite ready to switch yet.
-rw-r--r-- | module/ice-9/psyntax-pp.scm | 12555 | ||||
-rw-r--r-- | module/ice-9/psyntax.scm | 26 | ||||
-rw-r--r-- | module/srfi/srfi-16.scm | 4 |
3 files changed, 6395 insertions, 6190 deletions
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index c07e9dbfa..56f15e84a 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,600 +1,600 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 261}# - (lambda (#{f\ 299}# #{first\ 300}# . #{rest\ 301}#) - (let ((#{t\ 302}# (null? #{first\ 300}#))) - (if #{t\ 302}# - #{t\ 302}# - (if (null? #{rest\ 301}#) - (letrec ((#{andmap\ 303}# - (lambda (#{first\ 304}#) - (let ((#{x\ 305}# (car #{first\ 304}#)) - (#{first\ 306}# (cdr #{first\ 304}#))) - (if (null? #{first\ 306}#) - (#{f\ 299}# #{x\ 305}#) - (if (#{f\ 299}# #{x\ 305}#) - (#{andmap\ 303}# #{first\ 306}#) +(letrec ((#{and-map*\ 31}# + (lambda (#{f\ 69}# #{first\ 70}# . #{rest\ 71}#) + (let ((#{t\ 72}# (null? #{first\ 70}#))) + (if #{t\ 72}# + #{t\ 72}# + (if (null? #{rest\ 71}#) + (letrec ((#{andmap\ 73}# + (lambda (#{first\ 74}#) + (let ((#{x\ 75}# (car #{first\ 74}#)) + (#{first\ 76}# (cdr #{first\ 74}#))) + (if (null? #{first\ 76}#) + (#{f\ 69}# #{x\ 75}#) + (if (#{f\ 69}# #{x\ 75}#) + (#{andmap\ 73}# #{first\ 76}#) #f)))))) - (#{andmap\ 303}# #{first\ 300}#)) - (letrec ((#{andmap\ 307}# - (lambda (#{first\ 308}# #{rest\ 309}#) - (let ((#{x\ 310}# (car #{first\ 308}#)) - (#{xr\ 311}# (map car #{rest\ 309}#)) - (#{first\ 312}# (cdr #{first\ 308}#)) - (#{rest\ 313}# (map cdr #{rest\ 309}#))) - (if (null? #{first\ 312}#) - (apply #{f\ 299}# - (cons #{x\ 310}# #{xr\ 311}#)) - (if (apply #{f\ 299}# - (cons #{x\ 310}# #{xr\ 311}#)) - (#{andmap\ 307}# - #{first\ 312}# - #{rest\ 313}#) + (#{andmap\ 73}# #{first\ 70}#)) + (letrec ((#{andmap\ 77}# + (lambda (#{first\ 78}# #{rest\ 79}#) + (let ((#{x\ 80}# (car #{first\ 78}#)) + (#{xr\ 81}# (map car #{rest\ 79}#)) + (#{first\ 82}# (cdr #{first\ 78}#)) + (#{rest\ 83}# (map cdr #{rest\ 79}#))) + (if (null? #{first\ 82}#) + (apply #{f\ 69}# + (cons #{x\ 80}# #{xr\ 81}#)) + (if (apply #{f\ 69}# + (cons #{x\ 80}# #{xr\ 81}#)) + (#{andmap\ 77}# + #{first\ 82}# + #{rest\ 83}#) #f)))))) - (#{andmap\ 307}# #{first\ 300}# #{rest\ 301}#)))))))) - (letrec ((#{lambda-var-list\ 412}# - (lambda (#{vars\ 536}#) - (letrec ((#{lvl\ 537}# - (lambda (#{vars\ 538}# #{ls\ 539}# #{w\ 540}#) - (if (pair? #{vars\ 538}#) - (#{lvl\ 537}# - (cdr #{vars\ 538}#) - (cons (#{wrap\ 389}# - (car #{vars\ 538}#) - #{w\ 540}# + (#{andmap\ 77}# #{first\ 70}# #{rest\ 71}#)))))))) + (letrec ((#{lambda-var-list\ 182}# + (lambda (#{vars\ 306}#) + (letrec ((#{lvl\ 307}# + (lambda (#{vars\ 308}# #{ls\ 309}# #{w\ 310}#) + (if (pair? #{vars\ 308}#) + (#{lvl\ 307}# + (cdr #{vars\ 308}#) + (cons (#{wrap\ 159}# + (car #{vars\ 308}#) + #{w\ 310}# #f) - #{ls\ 539}#) - #{w\ 540}#) - (if (#{id?\ 361}# #{vars\ 538}#) - (cons (#{wrap\ 389}# - #{vars\ 538}# - #{w\ 540}# + #{ls\ 309}#) + #{w\ 310}#) + (if (#{id?\ 131}# #{vars\ 308}#) + (cons (#{wrap\ 159}# + #{vars\ 308}# + #{w\ 310}# #f) - #{ls\ 539}#) - (if (null? #{vars\ 538}#) - #{ls\ 539}# - (if (#{syntax-object?\ 345}# #{vars\ 538}#) - (#{lvl\ 537}# - (#{syntax-object-expression\ 346}# - #{vars\ 538}#) - #{ls\ 539}# - (#{join-wraps\ 380}# - #{w\ 540}# - (#{syntax-object-wrap\ 347}# - #{vars\ 538}#))) - (cons #{vars\ 538}# #{ls\ 539}#)))))))) - (#{lvl\ 537}# - #{vars\ 536}# + #{ls\ 309}#) + (if (null? #{vars\ 308}#) + #{ls\ 309}# + (if (#{syntax-object?\ 115}# #{vars\ 308}#) + (#{lvl\ 307}# + (#{syntax-object-expression\ 116}# + #{vars\ 308}#) + #{ls\ 309}# + (#{join-wraps\ 150}# + #{w\ 310}# + (#{syntax-object-wrap\ 117}# + #{vars\ 308}#))) + (cons #{vars\ 308}# #{ls\ 309}#)))))))) + (#{lvl\ 307}# + #{vars\ 306}# '() '(()))))) - (#{gen-var\ 411}# - (lambda (#{id\ 541}#) - (let ((#{id\ 542}# - (if (#{syntax-object?\ 345}# #{id\ 541}#) - (#{syntax-object-expression\ 346}# #{id\ 541}#) - #{id\ 541}#))) + (#{gen-var\ 181}# + (lambda (#{id\ 311}#) + (let ((#{id\ 312}# + (if (#{syntax-object?\ 115}# #{id\ 311}#) + (#{syntax-object-expression\ 116}# #{id\ 311}#) + #{id\ 311}#))) (gensym - (string-append (symbol->string #{id\ 542}#) " "))))) - (#{strip\ 410}# - (lambda (#{x\ 543}# #{w\ 544}#) + (string-append (symbol->string #{id\ 312}#) " "))))) + (#{strip\ 180}# + (lambda (#{x\ 313}# #{w\ 314}#) (if (memq 'top - (#{wrap-marks\ 364}# #{w\ 544}#)) - #{x\ 543}# - (letrec ((#{f\ 545}# (lambda (#{x\ 546}#) - (if (#{syntax-object?\ 345}# - #{x\ 546}#) - (#{strip\ 410}# - (#{syntax-object-expression\ 346}# - #{x\ 546}#) - (#{syntax-object-wrap\ 347}# - #{x\ 546}#)) - (if (pair? #{x\ 546}#) - (let ((#{a\ 547}# (#{f\ 545}# (car #{x\ 546}#))) - (#{d\ 548}# (#{f\ 545}# (cdr #{x\ 546}#)))) - (if (if (eq? #{a\ 547}# - (car #{x\ 546}#)) - (eq? #{d\ 548}# - (cdr #{x\ 546}#)) + (#{wrap-marks\ 134}# #{w\ 314}#)) + #{x\ 313}# + (letrec ((#{f\ 315}# (lambda (#{x\ 316}#) + (if (#{syntax-object?\ 115}# + #{x\ 316}#) + (#{strip\ 180}# + (#{syntax-object-expression\ 116}# + #{x\ 316}#) + (#{syntax-object-wrap\ 117}# + #{x\ 316}#)) + (if (pair? #{x\ 316}#) + (let ((#{a\ 317}# (#{f\ 315}# (car #{x\ 316}#))) + (#{d\ 318}# (#{f\ 315}# (cdr #{x\ 316}#)))) + (if (if (eq? #{a\ 317}# + (car #{x\ 316}#)) + (eq? #{d\ 318}# + (cdr #{x\ 316}#)) #f) - #{x\ 546}# - (cons #{a\ 547}# #{d\ 548}#))) - (if (vector? #{x\ 546}#) - (let ((#{old\ 549}# + #{x\ 316}# + (cons #{a\ 317}# #{d\ 318}#))) + (if (vector? #{x\ 316}#) + (let ((#{old\ 319}# (vector->list - #{x\ 546}#))) - (let ((#{new\ 550}# - (map #{f\ 545}# - #{old\ 549}#))) - (if (#{and-map*\ 261}# + #{x\ 316}#))) + (let ((#{new\ 320}# + (map #{f\ 315}# + #{old\ 319}#))) + (if (#{and-map*\ 31}# eq? - #{old\ 549}# - #{new\ 550}#) - #{x\ 546}# + #{old\ 319}# + #{new\ 320}#) + #{x\ 316}# (list->vector - #{new\ 550}#)))) - #{x\ 546}#)))))) - (#{f\ 545}# #{x\ 543}#))))) - (#{chi-lambda-case\ 409}# - (lambda (#{e\ 551}# - #{r\ 552}# - #{w\ 553}# - #{s\ 554}# - #{mod\ 555}# - #{get-formals\ 556}# - #{clauses\ 557}#) - (letrec ((#{expand-body\ 561}# - (lambda (#{req\ 562}# - #{opt\ 563}# - #{rest\ 564}# - #{kw\ 565}# - #{body\ 566}# - #{vars\ 567}# - #{r*\ 568}# - #{w*\ 569}# - #{inits\ 570}#) - ((lambda (#{tmp\ 571}#) - ((lambda (#{tmp\ 572}#) - (if (if #{tmp\ 572}# - (apply (lambda (#{docstring\ 573}# - #{e1\ 574}# - #{e2\ 575}#) + #{new\ 320}#)))) + #{x\ 316}#)))))) + (#{f\ 315}# #{x\ 313}#))))) + (#{chi-lambda-case\ 179}# + (lambda (#{e\ 321}# + #{r\ 322}# + #{w\ 323}# + #{s\ 324}# + #{mod\ 325}# + #{get-formals\ 326}# + #{clauses\ 327}#) + (letrec ((#{expand-body\ 331}# + (lambda (#{req\ 332}# + #{opt\ 333}# + #{rest\ 334}# + #{kw\ 335}# + #{body\ 336}# + #{vars\ 337}# + #{r*\ 338}# + #{w*\ 339}# + #{inits\ 340}#) + ((lambda (#{tmp\ 341}#) + ((lambda (#{tmp\ 342}#) + (if (if #{tmp\ 342}# + (apply (lambda (#{docstring\ 343}# + #{e1\ 344}# + #{e2\ 345}#) (string? (syntax->datum - #{docstring\ 573}#))) - #{tmp\ 572}#) + #{docstring\ 343}#))) + #{tmp\ 342}#) #f) - (apply (lambda (#{docstring\ 576}# - #{e1\ 577}# - #{e2\ 578}#) + (apply (lambda (#{docstring\ 346}# + #{e1\ 347}# + #{e2\ 348}#) (values (syntax->datum - #{docstring\ 576}#) - #{req\ 562}# - #{opt\ 563}# - #{rest\ 564}# - #{kw\ 565}# - #{inits\ 570}# - #{vars\ 567}# + #{docstring\ 346}#) + #{req\ 332}# + #{opt\ 333}# + #{rest\ 334}# + #{kw\ 335}# + #{inits\ 340}# + #{vars\ 337}# #f - (#{chi-body\ 401}# - (cons #{e1\ 577}# #{e2\ 578}#) - (#{source-wrap\ 390}# - #{e\ 551}# - #{w\ 553}# - #{s\ 554}# - #{mod\ 555}#) - #{r*\ 568}# - #{w*\ 569}# - #{mod\ 555}#))) - #{tmp\ 572}#) - ((lambda (#{tmp\ 580}#) - (if #{tmp\ 580}# - (apply (lambda (#{e1\ 581}# - #{e2\ 582}#) + (#{chi-body\ 171}# + (cons #{e1\ 347}# #{e2\ 348}#) + (#{source-wrap\ 160}# + #{e\ 321}# + #{w\ 323}# + #{s\ 324}# + #{mod\ 325}#) + #{r*\ 338}# + #{w*\ 339}# + #{mod\ 325}#))) + #{tmp\ 342}#) + ((lambda (#{tmp\ 350}#) + (if #{tmp\ 350}# + (apply (lambda (#{e1\ 351}# + #{e2\ 352}#) (values #f - #{req\ 562}# - #{opt\ 563}# - #{rest\ 564}# - #{kw\ 565}# - #{inits\ 570}# - #{vars\ 567}# + #{req\ 332}# + #{opt\ 333}# + #{rest\ 334}# + #{kw\ 335}# + #{inits\ 340}# + #{vars\ 337}# #f - (#{chi-body\ 401}# - (cons #{e1\ 581}# - #{e2\ 582}#) - (#{source-wrap\ 390}# - #{e\ 551}# - #{w\ 553}# - #{s\ 554}# - #{mod\ 555}#) - #{r*\ 568}# - #{w*\ 569}# - #{mod\ 555}#))) - #{tmp\ 580}#) + (#{chi-body\ 171}# + (cons #{e1\ 351}# + #{e2\ 352}#) + (#{source-wrap\ 160}# + #{e\ 321}# + #{w\ 323}# + #{s\ 324}# + #{mod\ 325}#) + #{r*\ 338}# + #{w*\ 339}# + #{mod\ 325}#))) + #{tmp\ 350}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 571}#))) + #{tmp\ 341}#))) ($sc-dispatch - #{tmp\ 571}# + #{tmp\ 341}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 571}# + #{tmp\ 341}# '(any any . each-any)))) - #{body\ 566}#))) - (#{expand-kw\ 560}# - (lambda (#{req\ 584}# - #{opt\ 585}# - #{rest\ 586}# - #{kw\ 587}# - #{body\ 588}# - #{vars\ 589}# - #{r*\ 590}# - #{w*\ 591}# - #{aok\ 592}# - #{out\ 593}# - #{inits\ 594}#) - (if (pair? #{kw\ 587}#) - ((lambda (#{tmp\ 595}#) - ((lambda (#{tmp\ 596}#) - (if #{tmp\ 596}# - (apply (lambda (#{k\ 597}# - #{id\ 598}# - #{i\ 599}#) - (let ((#{v\ 600}# (#{gen-var\ 411}# - #{id\ 598}#))) - (let ((#{l\ 601}# (#{gen-labels\ 367}# - (list #{v\ 600}#)))) - (let ((#{r**\ 602}# - (#{extend-var-env\ 356}# - #{l\ 601}# - (list #{v\ 600}#) - #{r*\ 590}#))) - (let ((#{w**\ 603}# - (#{make-binding-wrap\ 378}# - (list #{id\ 598}#) - #{l\ 601}# - #{w*\ 591}#))) - (#{expand-kw\ 560}# - #{req\ 584}# - #{opt\ 585}# - #{rest\ 586}# - (cdr #{kw\ 587}#) - #{body\ 588}# - (cons #{v\ 600}# - #{vars\ 589}#) - #{r**\ 602}# - #{w**\ 603}# - #{aok\ 592}# + #{body\ 336}#))) + (#{expand-kw\ 330}# + (lambda (#{req\ 354}# + #{opt\ 355}# + #{rest\ 356}# + #{kw\ 357}# + #{body\ 358}# + #{vars\ 359}# + #{r*\ 360}# + #{w*\ 361}# + #{aok\ 362}# + #{out\ 363}# + #{inits\ 364}#) + (if (pair? #{kw\ 357}#) + ((lambda (#{tmp\ 365}#) + ((lambda (#{tmp\ 366}#) + (if #{tmp\ 366}# + (apply (lambda (#{k\ 367}# + #{id\ 368}# + #{i\ 369}#) + (let ((#{v\ 370}# (#{gen-var\ 181}# + #{id\ 368}#))) + (let ((#{l\ 371}# (#{gen-labels\ 137}# + (list #{v\ 370}#)))) + (let ((#{r**\ 372}# + (#{extend-var-env\ 126}# + #{l\ 371}# + (list #{v\ 370}#) + #{r*\ 360}#))) + (let ((#{w**\ 373}# + (#{make-binding-wrap\ 148}# + (list #{id\ 368}#) + #{l\ 371}# + #{w*\ 361}#))) + (#{expand-kw\ 330}# + #{req\ 354}# + #{opt\ 355}# + #{rest\ 356}# + (cdr #{kw\ 357}#) + #{body\ 358}# + (cons #{v\ 370}# + #{vars\ 359}#) + #{r**\ 372}# + #{w**\ 373}# + #{aok\ 362}# (cons (list (syntax->datum - #{k\ 597}#) + #{k\ 367}#) (syntax->datum - #{id\ 598}#) - #{v\ 600}#) - #{out\ 593}#) - (cons (#{chi\ 397}# - #{i\ 599}# - #{r*\ 590}# - #{w*\ 591}# - #{mod\ 555}#) - #{inits\ 594}#))))))) - #{tmp\ 596}#) + #{id\ 368}#) + #{v\ 370}#) + #{out\ 363}#) + (cons (#{chi\ 167}# + #{i\ 369}# + #{r*\ 360}# + #{w*\ 361}# + #{mod\ 325}#) + #{inits\ 364}#))))))) + #{tmp\ 366}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 595}#))) + #{tmp\ 365}#))) ($sc-dispatch - #{tmp\ 595}# + #{tmp\ 365}# '(any any any)))) - (car #{kw\ 587}#)) - (#{expand-body\ 561}# - #{req\ 584}# - #{opt\ 585}# - #{rest\ 586}# - (if (let ((#{t\ 604}# #{aok\ 592}#)) - (if #{t\ 604}# - #{t\ 604}# - (pair? #{out\ 593}#))) - (cons #{aok\ 592}# (reverse #{out\ 593}#)) + (car #{kw\ 357}#)) + (#{expand-body\ 331}# + #{req\ 354}# + #{opt\ 355}# + #{rest\ 356}# + (if (let ((#{t\ 374}# #{aok\ 362}#)) + (if #{t\ 374}# + #{t\ 374}# + (pair? #{out\ 363}#))) + (cons #{aok\ 362}# (reverse #{out\ 363}#)) #f) - #{body\ 588}# - (reverse #{vars\ 589}#) - #{r*\ 590}# - #{w*\ 591}# - (reverse #{inits\ 594}#))))) - (#{expand-opt\ 559}# - (lambda (#{req\ 605}# - #{opt\ 606}# - #{rest\ 607}# - #{kw\ 608}# - #{body\ 609}# - #{vars\ 610}# - #{r*\ 611}# - #{w*\ 612}# - #{out\ 613}# - #{inits\ 614}#) - (if (pair? #{opt\ 606}#) - ((lambda (#{tmp\ 615}#) - ((lambda (#{tmp\ 616}#) - (if #{tmp\ 616}# - (apply (lambda (#{id\ 617}# #{i\ 618}#) - (let ((#{v\ 619}# (#{gen-var\ 411}# - #{id\ 617}#))) - (let ((#{l\ 620}# (#{gen-labels\ 367}# - (list #{v\ 619}#)))) - (let ((#{r**\ 621}# - (#{extend-var-env\ 356}# - #{l\ 620}# - (list #{v\ 619}#) - #{r*\ 611}#))) - (let ((#{w**\ 622}# - (#{make-binding-wrap\ 378}# - (list #{id\ 617}#) - #{l\ 620}# - #{w*\ 612}#))) - (#{expand-opt\ 559}# - #{req\ 605}# - (cdr #{opt\ 606}#) - #{rest\ 607}# - #{kw\ 608}# - #{body\ 609}# - (cons #{v\ 619}# - #{vars\ 610}#) - #{r**\ 621}# - #{w**\ 622}# + #{body\ 358}# + (reverse #{vars\ 359}#) + #{r*\ 360}# + #{w*\ 361}# + (reverse #{inits\ 364}#))))) + (#{expand-opt\ 329}# + (lambda (#{req\ 375}# + #{opt\ 376}# + #{rest\ 377}# + #{kw\ 378}# + #{body\ 379}# + #{vars\ 380}# + #{r*\ 381}# + #{w*\ 382}# + #{out\ 383}# + #{inits\ 384}#) + (if (pair? #{opt\ 376}#) + ((lambda (#{tmp\ 385}#) + ((lambda (#{tmp\ 386}#) + (if #{tmp\ 386}# + (apply (lambda (#{id\ 387}# #{i\ 388}#) + (let ((#{v\ 389}# (#{gen-var\ 181}# + #{id\ 387}#))) + (let ((#{l\ 390}# (#{gen-labels\ 137}# + (list #{v\ 389}#)))) + (let ((#{r**\ 391}# + (#{extend-var-env\ 126}# + #{l\ 390}# + (list #{v\ 389}#) + #{r*\ 381}#))) + (let ((#{w**\ 392}# + (#{make-binding-wrap\ 148}# + (list #{id\ 387}#) + #{l\ 390}# + #{w*\ 382}#))) + (#{expand-opt\ 329}# + #{req\ 375}# + (cdr #{opt\ 376}#) + #{rest\ 377}# + #{kw\ 378}# + #{body\ 379}# + (cons #{v\ 389}# + #{vars\ 380}#) + #{r**\ 391}# + #{w**\ 392}# (cons (syntax->datum - #{id\ 617}#) - #{out\ 613}#) - (cons (#{chi\ 397}# - #{i\ 618}# - #{r*\ 611}# - #{w*\ 612}# - #{mod\ 555}#) - #{inits\ 614}#))))))) - #{tmp\ 616}#) + #{id\ 387}#) + #{out\ 383}#) + (cons (#{chi\ 167}# + #{i\ 388}# + #{r*\ 381}# + #{w*\ 382}# + #{mod\ 325}#) + #{inits\ 384}#))))))) + #{tmp\ 386}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 615}#))) + #{tmp\ 385}#))) ($sc-dispatch - #{tmp\ 615}# + #{tmp\ 385}# '(any any)))) - (car #{opt\ 606}#)) - (if #{rest\ 607}# - (let ((#{v\ 623}# (#{gen-var\ 411}# - #{rest\ 607}#))) - (let ((#{l\ 624}# (#{gen-labels\ 367}# - (list #{v\ 623}#)))) - (let ((#{r*\ 625}# - (#{extend-var-env\ 356}# - #{l\ 624}# - (list #{v\ 623}#) - #{r*\ 611}#))) - (let ((#{w*\ 626}# - (#{make-binding-wrap\ 378}# - (list #{rest\ 607}#) - #{l\ 624}# - #{w*\ 612}#))) - (#{expand-kw\ 560}# - #{req\ 605}# - (if (pair? #{out\ 613}#) - (reverse #{out\ 613}#) + (car #{opt\ 376}#)) + (if #{rest\ 377}# + (let ((#{v\ 393}# (#{gen-var\ 181}# + #{rest\ 377}#))) + (let ((#{l\ 394}# (#{gen-labels\ 137}# + (list #{v\ 393}#)))) + (let ((#{r*\ 395}# + (#{extend-var-env\ 126}# + #{l\ 394}# + (list #{v\ 393}#) + #{r*\ 381}#))) + (let ((#{w*\ 396}# + (#{make-binding-wrap\ 148}# + (list #{rest\ 377}#) + #{l\ 394}# + #{w*\ 382}#))) + (#{expand-kw\ 330}# + #{req\ 375}# + (if (pair? #{out\ 383}#) + (reverse #{out\ 383}#) #f) - (syntax->datum #{rest\ 607}#) - (if (pair? #{kw\ 608}#) - (cdr #{kw\ 608}#) - #{kw\ 608}#) - #{body\ 609}# - (cons #{v\ 623}# #{vars\ 610}#) - #{r*\ 625}# - #{w*\ 626}# - (if (pair? #{kw\ 608}#) - (car #{kw\ 608}#) + (syntax->datum #{rest\ 377}#) + (if (pair? #{kw\ 378}#) + (cdr #{kw\ 378}#) + #{kw\ 378}#) + #{body\ 379}# + (cons #{v\ 393}# #{vars\ 380}#) + #{r*\ 395}# + #{w*\ 396}# + (if (pair? #{kw\ 378}#) + (car #{kw\ 378}#) #f) '() - #{inits\ 614}#))))) - (#{expand-kw\ 560}# - #{req\ 605}# - (if (pair? #{out\ 613}#) - (reverse #{out\ 613}#) + #{inits\ 384}#))))) + (#{expand-kw\ 330}# + #{req\ 375}# + (if (pair? #{out\ 383}#) + (reverse #{out\ 383}#) #f) #f - (if (pair? #{kw\ 608}#) - (cdr #{kw\ 608}#) - #{kw\ 608}#) - #{body\ 609}# - #{vars\ 610}# - #{r*\ 611}# - #{w*\ 612}# - (if (pair? #{kw\ 608}#) (car #{kw\ 608}#) #f) + (if (pair? #{kw\ 378}#) + (cdr #{kw\ 378}#) + #{kw\ 378}#) + #{body\ 379}# + #{vars\ 380}# + #{r*\ 381}# + #{w*\ 382}# + (if (pair? #{kw\ 378}#) (car #{kw\ 378}#) #f) '() - #{inits\ 614}#))))) - (#{expand-req\ 558}# - (lambda (#{req\ 627}# - #{opt\ 628}# - #{rest\ 629}# - #{kw\ 630}# - #{body\ 631}#) - (let ((#{vars\ 632}# - (map #{gen-var\ 411}# #{req\ 627}#)) - (#{labels\ 633}# - (#{gen-labels\ 367}# #{req\ 627}#))) - (let ((#{r*\ 634}# - (#{extend-var-env\ 356}# - #{labels\ 633}# - #{vars\ 632}# - #{r\ 552}#)) - (#{w*\ 635}# - (#{make-binding-wrap\ 378}# - #{req\ 627}# - #{labels\ 633}# - #{w\ 553}#))) - (#{expand-opt\ 559}# - (map syntax->datum #{req\ 627}#) - #{opt\ 628}# - #{rest\ 629}# - #{kw\ 630}# - #{body\ 631}# - (reverse #{vars\ 632}#) - #{r*\ 634}# - #{w*\ 635}# + #{inits\ 384}#))))) + (#{expand-req\ 328}# + (lambda (#{req\ 397}# + #{opt\ 398}# + #{rest\ 399}# + #{kw\ 400}# + #{body\ 401}#) + (let ((#{vars\ 402}# + (map #{gen-var\ 181}# #{req\ 397}#)) + (#{labels\ 403}# + (#{gen-labels\ 137}# #{req\ 397}#))) + (let ((#{r*\ 404}# + (#{extend-var-env\ 126}# + #{labels\ 403}# + #{vars\ 402}# + #{r\ 322}#)) + (#{w*\ 405}# + (#{make-binding-wrap\ 148}# + #{req\ 397}# + #{labels\ 403}# + #{w\ 323}#))) + (#{expand-opt\ 329}# + (map syntax->datum #{req\ 397}#) + #{opt\ 398}# + #{rest\ 399}# + #{kw\ 400}# + #{body\ 401}# + (reverse #{vars\ 402}#) + #{r*\ 404}# + #{w*\ 405}# '() '())))))) - ((lambda (#{tmp\ 636}#) - ((lambda (#{tmp\ 637}#) - (if #{tmp\ 637}# - (apply (lambda () (values #f #f)) #{tmp\ 637}#) - ((lambda (#{tmp\ 638}#) - (if #{tmp\ 638}# - (apply (lambda (#{args\ 639}# - #{e1\ 640}# - #{e2\ 641}# - #{args*\ 642}# - #{e1*\ 643}# - #{e2*\ 644}#) + ((lambda (#{tmp\ 406}#) + ((lambda (#{tmp\ 407}#) + (if #{tmp\ 407}# + (apply (lambda () (values #f #f)) #{tmp\ 407}#) + ((lambda (#{tmp\ 408}#) + (if #{tmp\ 408}# + (apply (lambda (#{args\ 409}# + #{e1\ 410}# + #{e2\ 411}# + #{args*\ 412}# + #{e1*\ 413}# + #{e2*\ 414}#) (call-with-values (lambda () - (#{get-formals\ 556}# - #{args\ 639}#)) - (lambda (#{req\ 645}# - #{opt\ 646}# - #{rest\ 647}# - #{kw\ 648}#) + (#{get-formals\ 326}# + #{args\ 409}#)) + (lambda (#{req\ 415}# + #{opt\ 416}# + #{rest\ 417}# + #{kw\ 418}#) (call-with-values (lambda () - (#{expand-req\ 558}# - #{req\ 645}# - #{opt\ 646}# - #{rest\ 647}# - #{kw\ 648}# - (cons #{e1\ 640}# - #{e2\ 641}#))) - (lambda (#{docstring\ 650}# - #{req\ 651}# - #{opt\ 652}# - #{rest\ 653}# - #{kw\ 654}# - #{inits\ 655}# - #{vars\ 656}# - #{pred\ 657}# - #{body\ 658}#) + (#{expand-req\ 328}# + #{req\ 415}# + #{opt\ 416}# + #{rest\ 417}# + #{kw\ 418}# + (cons #{e1\ 410}# + #{e2\ 411}#))) + (lambda (#{docstring\ 420}# + #{req\ 421}# + #{opt\ 422}# + #{rest\ 423}# + #{kw\ 424}# + #{inits\ 425}# + #{vars\ 426}# + #{pred\ 427}# + #{body\ 428}#) (call-with-values (lambda () - (#{chi-lambda-case\ 409}# - #{e\ 551}# - #{r\ 552}# - #{w\ 553}# - #{s\ 554}# - #{mod\ 555}# - #{get-formals\ 556}# - (map (lambda (#{tmp\ 661}# - #{tmp\ 660}# - #{tmp\ 659}#) - (cons #{tmp\ 659}# - (cons #{tmp\ 660}# - #{tmp\ 661}#))) - #{e2*\ 644}# - #{e1*\ 643}# - #{args*\ 642}#))) - (lambda (#{docstring*\ 663}# - #{else*\ 664}#) + (#{chi-lambda-case\ 179}# + #{e\ 321}# + #{r\ 322}# + #{w\ 323}# + #{s\ 324}# + #{mod\ 325}# + #{get-formals\ 326}# + (map (lambda (#{tmp\ 431}# + #{tmp\ 430}# + #{tmp\ 429}#) + (cons #{tmp\ 429}# + (cons #{tmp\ 430}# + #{tmp\ 431}#))) + #{e2*\ 414}# + #{e1*\ 413}# + #{args*\ 412}#))) + (lambda (#{docstring*\ 433}# + #{else*\ 434}#) (values - (let ((#{t\ 665}# #{docstring\ 650}#)) - (if #{t\ 665}# - #{t\ 665}# - #{docstring*\ 663}#)) - (#{build-lambda-case\ 337}# - #{s\ 554}# - #{req\ 651}# - #{opt\ 652}# - #{rest\ 653}# - #{kw\ 654}# - #{inits\ 655}# - #{vars\ 656}# - #{pred\ 657}# - #{body\ 658}# - #{else*\ 664}#))))))))) - #{tmp\ 638}#) + (let ((#{t\ 435}# #{docstring\ 420}#)) + (if #{t\ 435}# + #{t\ 435}# + #{docstring*\ 433}#)) + (#{build-lambda-case\ 107}# + #{s\ 324}# + #{req\ 421}# + #{opt\ 422}# + #{rest\ 423}# + #{kw\ 424}# + #{inits\ 425}# + #{vars\ 426}# + #{pred\ 427}# + #{body\ 428}# + #{else*\ 434}#))))))))) + #{tmp\ 408}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 636}#))) + #{tmp\ 406}#))) ($sc-dispatch - #{tmp\ 636}# + #{tmp\ 406}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 636}# (quote ())))) - #{clauses\ 557}#)))) - (#{lambda*-formals\ 408}# - (lambda (#{orig-args\ 666}#) - (letrec ((#{check\ 671}# - (lambda (#{req\ 672}# - #{opt\ 673}# - #{rest\ 674}# - #{kw\ 675}#) - (if (#{distinct-bound-ids?\ 387}# + ($sc-dispatch #{tmp\ 406}# (quote ())))) + #{clauses\ 327}#)))) + (#{lambda*-formals\ 178}# + (lambda (#{orig-args\ 436}#) + (letrec ((#{check\ 441}# + (lambda (#{req\ 442}# + #{opt\ 443}# + #{rest\ 444}# + #{kw\ 445}#) + (if (#{distinct-bound-ids?\ 157}# (append - #{req\ 672}# - (map car #{opt\ 673}#) - (if #{rest\ 674}# - (list #{rest\ 674}#) + #{req\ 442}# + (map car #{opt\ 443}#) + (if #{rest\ 444}# + (list #{rest\ 444}#) '()) - (if (pair? #{kw\ 675}#) - (map cadr (cdr #{kw\ 675}#)) + (if (pair? #{kw\ 445}#) + (map cadr (cdr #{kw\ 445}#)) '()))) (values - #{req\ 672}# - #{opt\ 673}# - #{rest\ 674}# - #{kw\ 675}#) + #{req\ 442}# + #{opt\ 443}# + #{rest\ 444}# + #{kw\ 445}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 666}#)))) - (#{rest\ 670}# - (lambda (#{args\ 676}# - #{req\ 677}# - #{opt\ 678}# - #{kw\ 679}#) - ((lambda (#{tmp\ 680}#) - ((lambda (#{tmp\ 681}#) - (if (if #{tmp\ 681}# - (apply (lambda (#{r\ 682}#) - (#{id?\ 361}# #{r\ 682}#)) - #{tmp\ 681}#) + #{orig-args\ 436}#)))) + (#{rest\ 440}# + (lambda (#{args\ 446}# + #{req\ 447}# + #{opt\ 448}# + #{kw\ 449}#) + ((lambda (#{tmp\ 450}#) + ((lambda (#{tmp\ 451}#) + (if (if #{tmp\ 451}# + (apply (lambda (#{r\ 452}#) + (#{id?\ 131}# #{r\ 452}#)) + #{tmp\ 451}#) #f) - (apply (lambda (#{r\ 683}#) - (#{check\ 671}# - #{req\ 677}# - #{opt\ 678}# - #{r\ 683}# - #{kw\ 679}#)) - #{tmp\ 681}#) - ((lambda (#{else\ 684}#) + (apply (lambda (#{r\ 453}#) + (#{check\ 441}# + #{req\ 447}# + #{opt\ 448}# + #{r\ 453}# + #{kw\ 449}#)) + #{tmp\ 451}#) + ((lambda (#{else\ 454}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 666}# - #{args\ 676}#)) - #{tmp\ 680}#))) - (list #{tmp\ 680}#))) - #{args\ 676}#))) - (#{key\ 669}# - (lambda (#{args\ 685}# - #{req\ 686}# - #{opt\ 687}# - #{rkey\ 688}#) - ((lambda (#{tmp\ 689}#) - ((lambda (#{tmp\ 690}#) - (if #{tmp\ 690}# + #{orig-args\ 436}# + #{args\ 446}#)) + #{tmp\ 450}#))) + (list #{tmp\ 450}#))) + #{args\ 446}#))) + (#{key\ 439}# + (lambda (#{args\ 455}# + #{req\ 456}# + #{opt\ 457}# + #{rkey\ 458}#) + ((lambda (#{tmp\ 459}#) + ((lambda (#{tmp\ 460}#) + (if #{tmp\ 460}# (apply (lambda () - (#{check\ 671}# - #{req\ 686}# - #{opt\ 687}# + (#{check\ 441}# + #{req\ 456}# + #{opt\ 457}# #f (cons #f - (reverse #{rkey\ 688}#)))) - #{tmp\ 690}#) - ((lambda (#{tmp\ 691}#) - (if (if #{tmp\ 691}# - (apply (lambda (#{a\ 692}# - #{b\ 693}#) - (#{id?\ 361}# - #{a\ 692}#)) - #{tmp\ 691}#) + (reverse #{rkey\ 458}#)))) + #{tmp\ 460}#) + ((lambda (#{tmp\ 461}#) + (if (if #{tmp\ 461}# + (apply (lambda (#{a\ 462}# + #{b\ 463}#) + (#{id?\ 131}# + #{a\ 462}#)) + #{tmp\ 461}#) #f) - (apply (lambda (#{a\ 694}# #{b\ 695}#) - ((lambda (#{tmp\ 696}#) - ((lambda (#{k\ 697}#) - (#{key\ 669}# - #{b\ 695}# - #{req\ 686}# - #{opt\ 687}# - (cons (cons #{k\ 697}# - (cons #{a\ 694}# + (apply (lambda (#{a\ 464}# #{b\ 465}#) + ((lambda (#{tmp\ 466}#) + ((lambda (#{k\ 467}#) + (#{key\ 439}# + #{b\ 465}# + #{req\ 456}# + #{opt\ 457}# + (cons (cons #{k\ 467}# + (cons #{a\ 464}# '(#(syntax-object #f ((top) @@ -1006,222 +1006,222 @@ "i"))) (hygiene guile))))) - #{rkey\ 688}#))) - #{tmp\ 696}#)) + #{rkey\ 458}#))) + #{tmp\ 466}#)) (symbol->keyword (syntax->datum - #{a\ 694}#)))) - #{tmp\ 691}#) - ((lambda (#{tmp\ 698}#) - (if (if #{tmp\ 698}# - (apply (lambda (#{a\ 699}# - #{init\ 700}# - #{b\ 701}#) - (#{id?\ 361}# - #{a\ 699}#)) - #{tmp\ 698}#) + #{a\ 464}#)))) + #{tmp\ 461}#) + ((lambda (#{tmp\ 468}#) + (if (if #{tmp\ 468}# + (apply (lambda (#{a\ 469}# + #{init\ 470}# + #{b\ 471}#) + (#{id?\ 131}# + #{a\ 469}#)) + #{tmp\ 468}#) #f) - (apply (lambda (#{a\ 702}# - #{init\ 703}# - #{b\ 704}#) - ((lambda (#{tmp\ 705}#) - ((lambda (#{k\ 706}#) - (#{key\ 669}# - #{b\ 704}# - #{req\ 686}# - #{opt\ 687}# - (cons (list #{k\ 706}# - #{a\ 702}# - #{init\ 703}#) - #{rkey\ 688}#))) - #{tmp\ 705}#)) + (apply (lambda (#{a\ 472}# + #{init\ 473}# + #{b\ 474}#) + ((lambda (#{tmp\ 475}#) + ((lambda (#{k\ 476}#) + (#{key\ 439}# + #{b\ 474}# + #{req\ 456}# + #{opt\ 457}# + (cons (list #{k\ 476}# + #{a\ 472}# + #{init\ 473}#) + #{rkey\ 458}#))) + #{tmp\ 475}#)) (symbol->keyword (syntax->datum - #{a\ 702}#)))) - #{tmp\ 698}#) - ((lambda (#{tmp\ 707}#) - (if (if #{tmp\ 707}# - (apply (lambda (#{a\ 708}# - #{init\ 709}# - #{k\ 710}# - #{b\ 711}#) - (if (#{id?\ 361}# - #{a\ 708}#) + #{a\ 472}#)))) + #{tmp\ 468}#) + ((lambda (#{tmp\ 477}#) + (if (if #{tmp\ 477}# + (apply (lambda (#{a\ 478}# + #{init\ 479}# + #{k\ 480}# + #{b\ 481}#) + (if (#{id?\ 131}# + #{a\ 478}#) (keyword? (syntax->datum - #{k\ 710}#)) + #{k\ 480}#)) #f)) - #{tmp\ 707}#) + #{tmp\ 477}#) #f) - (apply (lambda (#{a\ 712}# - #{init\ 713}# - #{k\ 714}# - #{b\ 715}#) - (#{key\ 669}# - #{b\ 715}# - #{req\ 686}# - #{opt\ 687}# - (cons (list #{k\ 714}# - #{a\ 712}# - #{init\ 713}#) - #{rkey\ 688}#))) - #{tmp\ 707}#) - ((lambda (#{tmp\ 716}#) - (if (if #{tmp\ 716}# - (apply (lambda (#{aok\ 717}#) + (apply (lambda (#{a\ 482}# + #{init\ 483}# + #{k\ 484}# + #{b\ 485}#) + (#{key\ 439}# + #{b\ 485}# + #{req\ 456}# + #{opt\ 457}# + (cons (list #{k\ 484}# + #{a\ 482}# + #{init\ 483}#) + #{rkey\ 458}#))) + #{tmp\ 477}#) + ((lambda (#{tmp\ 486}#) + (if (if #{tmp\ 486}# + (apply (lambda (#{aok\ 487}#) (eq? (syntax->datum - #{aok\ 717}#) + #{aok\ 487}#) #:allow-other-keys)) - #{tmp\ 716}#) + #{tmp\ 486}#) #f) - (apply (lambda (#{aok\ 718}#) - (#{check\ 671}# - #{req\ 686}# - #{opt\ 687}# + (apply (lambda (#{aok\ 488}#) + (#{check\ 441}# + #{req\ 456}# + #{opt\ 457}# #f (cons #t (reverse - #{rkey\ 688}#)))) - #{tmp\ 716}#) - ((lambda (#{tmp\ 719}#) - (if (if #{tmp\ 719}# - (apply (lambda (#{aok\ 720}# - #{a\ 721}# - #{b\ 722}#) + #{rkey\ 458}#)))) + #{tmp\ 486}#) + ((lambda (#{tmp\ 489}#) + (if (if #{tmp\ 489}# + (apply (lambda (#{aok\ 490}# + #{a\ 491}# + #{b\ 492}#) (if (eq? (syntax->datum - #{aok\ 720}#) + #{aok\ 490}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 721}#) + #{a\ 491}#) #:rest) #f)) - #{tmp\ 719}#) + #{tmp\ 489}#) #f) - (apply (lambda (#{aok\ 723}# - #{a\ 724}# - #{b\ 725}#) - (#{rest\ 670}# - #{b\ 725}# - #{req\ 686}# - #{opt\ 687}# + (apply (lambda (#{aok\ 493}# + #{a\ 494}# + #{b\ 495}#) + (#{rest\ 440}# + #{b\ 495}# + #{req\ 456}# + #{opt\ 457}# (cons #t (reverse - #{rkey\ 688}#)))) - #{tmp\ 719}#) - ((lambda (#{tmp\ 726}#) - (if (if #{tmp\ 726}# - (apply (lambda (#{aok\ 727}# - #{r\ 728}#) + #{rkey\ 458}#)))) + #{tmp\ 489}#) + ((lambda (#{tmp\ 496}#) + (if (if #{tmp\ 496}# + (apply (lambda (#{aok\ 497}# + #{r\ 498}#) (if (eq? (syntax->datum - #{aok\ 727}#) + #{aok\ 497}#) #:allow-other-keys) - (#{id?\ 361}# - #{r\ 728}#) + (#{id?\ 131}# + #{r\ 498}#) #f)) - #{tmp\ 726}#) + #{tmp\ 496}#) #f) - (apply (lambda (#{aok\ 729}# - #{r\ 730}#) - (#{rest\ 670}# - #{r\ 730}# - #{req\ 686}# - #{opt\ 687}# + (apply (lambda (#{aok\ 499}# + #{r\ 500}#) + (#{rest\ 440}# + #{r\ 500}# + #{req\ 456}# + #{opt\ 457}# (cons #t (reverse - #{rkey\ 688}#)))) - #{tmp\ 726}#) - ((lambda (#{tmp\ 731}#) - (if (if #{tmp\ 731}# - (apply (lambda (#{a\ 732}# - #{b\ 733}#) + #{rkey\ 458}#)))) + #{tmp\ 496}#) + ((lambda (#{tmp\ 501}#) + (if (if #{tmp\ 501}# + (apply (lambda (#{a\ 502}# + #{b\ 503}#) (eq? (syntax->datum - #{a\ 732}#) + #{a\ 502}#) #:rest)) - #{tmp\ 731}#) + #{tmp\ 501}#) #f) - (apply (lambda (#{a\ 734}# - #{b\ 735}#) - (#{rest\ 670}# - #{b\ 735}# - #{req\ 686}# - #{opt\ 687}# + (apply (lambda (#{a\ 504}# + #{b\ 505}#) + (#{rest\ 440}# + #{b\ 505}# + #{req\ 456}# + #{opt\ 457}# (cons #f (reverse - #{rkey\ 688}#)))) - #{tmp\ 731}#) - ((lambda (#{tmp\ 736}#) - (if (if #{tmp\ 736}# - (apply (lambda (#{r\ 737}#) - (#{id?\ 361}# - #{r\ 737}#)) - #{tmp\ 736}#) + #{rkey\ 458}#)))) + #{tmp\ 501}#) + ((lambda (#{tmp\ 506}#) + (if (if #{tmp\ 506}# + (apply (lambda (#{r\ 507}#) + (#{id?\ 131}# + #{r\ 507}#)) + #{tmp\ 506}#) #f) - (apply (lambda (#{r\ 738}#) - (#{rest\ 670}# - #{r\ 738}# - #{req\ 686}# - #{opt\ 687}# + (apply (lambda (#{r\ 508}#) + (#{rest\ 440}# + #{r\ 508}# + #{req\ 456}# + #{opt\ 457}# (cons #f (reverse - #{rkey\ 688}#)))) - #{tmp\ 736}#) - ((lambda (#{else\ 739}#) + #{rkey\ 458}#)))) + #{tmp\ 506}#) + ((lambda (#{else\ 509}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 666}# - #{args\ 685}#)) - #{tmp\ 689}#))) - (list #{tmp\ 689}#)))) + #{orig-args\ 436}# + #{args\ 455}#)) + #{tmp\ 459}#))) + (list #{tmp\ 459}#)))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '(any any))))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '(any . any))))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '(any any any))))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '(any))))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 689}# + #{tmp\ 459}# '(any . any))))) - ($sc-dispatch #{tmp\ 689}# (quote ())))) - #{args\ 685}#))) - (#{opt\ 668}# - (lambda (#{args\ 740}# #{req\ 741}# #{ropt\ 742}#) - ((lambda (#{tmp\ 743}#) - ((lambda (#{tmp\ 744}#) - (if #{tmp\ 744}# + ($sc-dispatch #{tmp\ 459}# (quote ())))) + #{args\ 455}#))) + (#{opt\ 438}# + (lambda (#{args\ 510}# #{req\ 511}# #{ropt\ 512}#) + ((lambda (#{tmp\ 513}#) + ((lambda (#{tmp\ 514}#) + (if #{tmp\ 514}# (apply (lambda () - (#{check\ 671}# - #{req\ 741}# - (reverse #{ropt\ 742}#) + (#{check\ 441}# + #{req\ 511}# + (reverse #{ropt\ 512}#) #f '())) - #{tmp\ 744}#) - ((lambda (#{tmp\ 745}#) - (if (if #{tmp\ 745}# - (apply (lambda (#{a\ 746}# - #{b\ 747}#) - (#{id?\ 361}# - #{a\ 746}#)) - #{tmp\ 745}#) + #{tmp\ 514}#) + ((lambda (#{tmp\ 515}#) + (if (if #{tmp\ 515}# + (apply (lambda (#{a\ 516}# + #{b\ 517}#) + (#{id?\ 131}# + #{a\ 516}#)) + #{tmp\ 515}#) #f) - (apply (lambda (#{a\ 748}# #{b\ 749}#) - (#{opt\ 668}# - #{b\ 749}# - #{req\ 741}# - (cons (cons #{a\ 748}# + (apply (lambda (#{a\ 518}# #{b\ 519}#) + (#{opt\ 438}# + #{b\ 519}# + #{req\ 511}# + (cons (cons #{a\ 518}# '(#(syntax-object #f ((top) @@ -1625,328 +1625,328 @@ "i"))) (hygiene guile)))) - #{ropt\ 742}#))) - #{tmp\ 745}#) - ((lambda (#{tmp\ 750}#) - (if (if #{tmp\ 750}# - (apply (lambda (#{a\ 751}# - #{init\ 752}# - #{b\ 753}#) - (#{id?\ 361}# - #{a\ 751}#)) - #{tmp\ 750}#) + #{ropt\ 512}#))) + #{tmp\ 515}#) + ((lambda (#{tmp\ 520}#) + (if (if #{tmp\ 520}# + (apply (lambda (#{a\ 521}# + #{init\ 522}# + #{b\ 523}#) + (#{id?\ 131}# + #{a\ 521}#)) + #{tmp\ 520}#) #f) - (apply (lambda (#{a\ 754}# - #{init\ 755}# - #{b\ 756}#) - (#{opt\ 668}# - #{b\ 756}# - #{req\ 741}# - (cons (list #{a\ 754}# - #{init\ 755}#) - #{ropt\ 742}#))) - #{tmp\ 750}#) - ((lambda (#{tmp\ 757}#) - (if (if #{tmp\ 757}# - (apply (lambda (#{a\ 758}# - #{b\ 759}#) + (apply (lambda (#{a\ 524}# + #{init\ 525}# + #{b\ 526}#) + (#{opt\ 438}# + #{b\ 526}# + #{req\ 511}# + (cons (list #{a\ 524}# + #{init\ 525}#) + #{ropt\ 512}#))) + #{tmp\ 520}#) + ((lambda (#{tmp\ 527}#) + (if (if #{tmp\ 527}# + (apply (lambda (#{a\ 528}# + #{b\ 529}#) (eq? (syntax->datum - #{a\ 758}#) + #{a\ 528}#) #:key)) - #{tmp\ 757}#) + #{tmp\ 527}#) #f) - (apply (lambda (#{a\ 760}# - #{b\ 761}#) - (#{key\ 669}# - #{b\ 761}# - #{req\ 741}# + (apply (lambda (#{a\ 530}# + #{b\ 531}#) + (#{key\ 439}# + #{b\ 531}# + #{req\ 511}# (reverse - #{ropt\ 742}#) + #{ropt\ 512}#) '())) - #{tmp\ 757}#) - ((lambda (#{tmp\ 762}#) - (if (if #{tmp\ 762}# - (apply (lambda (#{a\ 763}# - #{b\ 764}#) + #{tmp\ 527}#) + ((lambda (#{tmp\ 532}#) + (if (if #{tmp\ 532}# + (apply (lambda (#{a\ 533}# + #{b\ 534}#) (eq? (syntax->datum - #{a\ 763}#) + #{a\ 533}#) #:rest)) - #{tmp\ 762}#) + #{tmp\ 532}#) #f) - (apply (lambda (#{a\ 765}# - #{b\ 766}#) - (#{rest\ 670}# - #{b\ 766}# - #{req\ 741}# + (apply (lambda (#{a\ 535}# + #{b\ 536}#) + (#{rest\ 440}# + #{b\ 536}# + #{req\ 511}# (reverse - #{ropt\ 742}#) + #{ropt\ 512}#) '())) - #{tmp\ 762}#) - ((lambda (#{tmp\ 767}#) - (if (if #{tmp\ 767}# - (apply (lambda (#{r\ 768}#) - (#{id?\ 361}# - #{r\ 768}#)) - #{tmp\ 767}#) + #{tmp\ 532}#) + ((lambda (#{tmp\ 537}#) + (if (if #{tmp\ 537}# + (apply (lambda (#{r\ 538}#) + (#{id?\ 131}# + #{r\ 538}#)) + #{tmp\ 537}#) #f) - (apply (lambda (#{r\ 769}#) - (#{rest\ 670}# - #{r\ 769}# - #{req\ 741}# + (apply (lambda (#{r\ 539}#) + (#{rest\ 440}# + #{r\ 539}# + #{req\ 511}# (reverse - #{ropt\ 742}#) + #{ropt\ 512}#) '())) - #{tmp\ 767}#) - ((lambda (#{else\ 770}#) + #{tmp\ 537}#) + ((lambda (#{else\ 540}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 666}# - #{args\ 740}#)) - #{tmp\ 743}#))) - (list #{tmp\ 743}#)))) + #{orig-args\ 436}# + #{args\ 510}#)) + #{tmp\ 513}#))) + (list #{tmp\ 513}#)))) ($sc-dispatch - #{tmp\ 743}# + #{tmp\ 513}# '(any any))))) ($sc-dispatch - #{tmp\ 743}# + #{tmp\ 513}# '(any . any))))) ($sc-dispatch - #{tmp\ 743}# + #{tmp\ 513}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 743}# + #{tmp\ 513}# '(any . any))))) - ($sc-dispatch #{tmp\ 743}# (quote ())))) - #{args\ 740}#))) - (#{req\ 667}# - (lambda (#{args\ 771}# #{rreq\ 772}#) - ((lambda (#{tmp\ 773}#) - ((lambda (#{tmp\ 774}#) - (if #{tmp\ 774}# + ($sc-dispatch #{tmp\ 513}# (quote ())))) + #{args\ 510}#))) + (#{req\ 437}# + (lambda (#{args\ 541}# #{rreq\ 542}#) + ((lambda (#{tmp\ 543}#) + ((lambda (#{tmp\ 544}#) + (if #{tmp\ 544}# (apply (lambda () - (#{check\ 671}# - (reverse #{rreq\ 772}#) + (#{check\ 441}# + (reverse #{rreq\ 542}#) '() #f '())) - #{tmp\ 774}#) - ((lambda (#{tmp\ 775}#) - (if (if #{tmp\ 775}# - (apply (lambda (#{a\ 776}# - #{b\ 777}#) - (#{id?\ 361}# - #{a\ 776}#)) - #{tmp\ 775}#) + #{tmp\ 544}#) + ((lambda (#{tmp\ 545}#) + (if (if #{tmp\ 545}# + (apply (lambda (#{a\ 546}# + #{b\ 547}#) + (#{id?\ 131}# + #{a\ 546}#)) + #{tmp\ 545}#) #f) - (apply (lambda (#{a\ 778}# #{b\ 779}#) - (#{req\ 667}# - #{b\ 779}# - (cons #{a\ 778}# - #{rreq\ 772}#))) - #{tmp\ 775}#) - ((lambda (#{tmp\ 780}#) - (if (if #{tmp\ 780}# - (apply (lambda (#{a\ 781}# - #{b\ 782}#) + (apply (lambda (#{a\ 548}# #{b\ 549}#) + (#{req\ 437}# + #{b\ 549}# + (cons #{a\ 548}# + #{rreq\ 542}#))) + #{tmp\ 545}#) + ((lambda (#{tmp\ 550}#) + (if (if #{tmp\ 550}# + (apply (lambda (#{a\ 551}# + #{b\ 552}#) (eq? (syntax->datum - #{a\ 781}#) + #{a\ 551}#) #:optional)) - #{tmp\ 780}#) + #{tmp\ 550}#) #f) - (apply (lambda (#{a\ 783}# - #{b\ 784}#) - (#{opt\ 668}# - #{b\ 784}# + (apply (lambda (#{a\ 553}# + #{b\ 554}#) + (#{opt\ 438}# + #{b\ 554}# (reverse - #{rreq\ 772}#) + #{rreq\ 542}#) '())) - #{tmp\ 780}#) - ((lambda (#{tmp\ 785}#) - (if (if #{tmp\ 785}# - (apply (lambda (#{a\ 786}# - #{b\ 787}#) + #{tmp\ 550}#) + ((lambda (#{tmp\ 555}#) + (if (if #{tmp\ 555}# + (apply (lambda (#{a\ 556}# + #{b\ 557}#) (eq? (syntax->datum - #{a\ 786}#) + #{a\ 556}#) #:key)) - #{tmp\ 785}#) + #{tmp\ 555}#) #f) - (apply (lambda (#{a\ 788}# - #{b\ 789}#) - (#{key\ 669}# - #{b\ 789}# + (apply (lambda (#{a\ 558}# + #{b\ 559}#) + (#{key\ 439}# + #{b\ 559}# (reverse - #{rreq\ 772}#) + #{rreq\ 542}#) '() '())) - #{tmp\ 785}#) - ((lambda (#{tmp\ 790}#) - (if (if #{tmp\ 790}# - (apply (lambda (#{a\ 791}# - #{b\ 792}#) + #{tmp\ 555}#) + ((lambda (#{tmp\ 560}#) + (if (if #{tmp\ 560}# + (apply (lambda (#{a\ 561}# + #{b\ 562}#) (eq? (syntax->datum - #{a\ 791}#) + #{a\ 561}#) #:rest)) - #{tmp\ 790}#) + #{tmp\ 560}#) #f) - (apply (lambda (#{a\ 793}# - #{b\ 794}#) - (#{rest\ 670}# - #{b\ 794}# + (apply (lambda (#{a\ 563}# + #{b\ 564}#) + (#{rest\ 440}# + #{b\ 564}# (reverse - #{rreq\ 772}#) + #{rreq\ 542}#) '() '())) - #{tmp\ 790}#) - ((lambda (#{tmp\ 795}#) - (if (if #{tmp\ 795}# - (apply (lambda (#{r\ 796}#) - (#{id?\ 361}# - #{r\ 796}#)) - #{tmp\ 795}#) + #{tmp\ 560}#) + ((lambda (#{tmp\ 565}#) + (if (if #{tmp\ 565}# + (apply (lambda (#{r\ 566}#) + (#{id?\ 131}# + #{r\ 566}#)) + #{tmp\ 565}#) #f) - (apply (lambda (#{r\ 797}#) - (#{rest\ 670}# - #{r\ 797}# + (apply (lambda (#{r\ 567}#) + (#{rest\ 440}# + #{r\ 567}# (reverse - #{rreq\ 772}#) + #{rreq\ 542}#) '() '())) - #{tmp\ 795}#) - ((lambda (#{else\ 798}#) + #{tmp\ 565}#) + ((lambda (#{else\ 568}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 666}# - #{args\ 771}#)) - #{tmp\ 773}#))) - (list #{tmp\ 773}#)))) + #{orig-args\ 436}# + #{args\ 541}#)) + #{tmp\ 543}#))) + (list #{tmp\ 543}#)))) ($sc-dispatch - #{tmp\ 773}# + #{tmp\ 543}# '(any any))))) ($sc-dispatch - #{tmp\ 773}# + #{tmp\ 543}# '(any . any))))) ($sc-dispatch - #{tmp\ 773}# + #{tmp\ 543}# '(any . any))))) ($sc-dispatch - #{tmp\ 773}# + #{tmp\ 543}# '(any . any))))) - ($sc-dispatch #{tmp\ 773}# (quote ())))) - #{args\ 771}#)))) - (#{req\ 667}# #{orig-args\ 666}# (quote ()))))) - (#{chi-simple-lambda\ 407}# - (lambda (#{e\ 799}# - #{r\ 800}# - #{w\ 801}# - #{s\ 802}# - #{mod\ 803}# - #{req\ 804}# - #{rest\ 805}# - #{docstring\ 806}# - #{body\ 807}#) - (let ((#{ids\ 808}# - (if #{rest\ 805}# - (append #{req\ 804}# (list #{rest\ 805}#)) - #{req\ 804}#))) - (let ((#{vars\ 809}# - (map #{gen-var\ 411}# #{ids\ 808}#))) - (let ((#{labels\ 810}# - (#{gen-labels\ 367}# #{ids\ 808}#))) - (#{build-simple-lambda\ 335}# - #{s\ 802}# - (map syntax->datum #{req\ 804}#) - (if #{rest\ 805}# - (syntax->datum #{rest\ 805}#) + ($sc-dispatch #{tmp\ 543}# (quote ())))) + #{args\ 541}#)))) + (#{req\ 437}# #{orig-args\ 436}# (quote ()))))) + (#{chi-simple-lambda\ 177}# + (lambda (#{e\ 569}# + #{r\ 570}# + #{w\ 571}# + #{s\ 572}# + #{mod\ 573}# + #{req\ 574}# + #{rest\ 575}# + #{docstring\ 576}# + #{body\ 577}#) + (let ((#{ids\ 578}# + (if #{rest\ 575}# + (append #{req\ 574}# (list #{rest\ 575}#)) + #{req\ 574}#))) + (let ((#{vars\ 579}# + (map #{gen-var\ 181}# #{ids\ 578}#))) + (let ((#{labels\ 580}# + (#{gen-labels\ 137}# #{ids\ 578}#))) + (#{build-simple-lambda\ 105}# + #{s\ 572}# + (map syntax->datum #{req\ 574}#) + (if #{rest\ 575}# + (syntax->datum #{rest\ 575}#) #f) - #{vars\ 809}# - #{docstring\ 806}# - (#{chi-body\ 401}# - #{body\ 807}# - (#{source-wrap\ 390}# - #{e\ 799}# - #{w\ 801}# - #{s\ 802}# - #{mod\ 803}#) - (#{extend-var-env\ 356}# - #{labels\ 810}# - #{vars\ 809}# - #{r\ 800}#) - (#{make-binding-wrap\ 378}# - #{ids\ 808}# - #{labels\ 810}# - #{w\ 801}#) - #{mod\ 803}#))))))) - (#{lambda-formals\ 406}# - (lambda (#{orig-args\ 811}#) - (letrec ((#{check\ 813}# - (lambda (#{req\ 814}# #{rest\ 815}#) - (if (#{distinct-bound-ids?\ 387}# - (if #{rest\ 815}# - (cons #{rest\ 815}# #{req\ 814}#) - #{req\ 814}#)) - (values #{req\ 814}# #f #{rest\ 815}# #f) + #{vars\ 579}# + #{docstring\ 576}# + (#{chi-body\ 171}# + #{body\ 577}# + (#{source-wrap\ 160}# + #{e\ 569}# + #{w\ 571}# + #{s\ 572}# + #{mod\ 573}#) + (#{extend-var-env\ 126}# + #{labels\ 580}# + #{vars\ 579}# + #{r\ 570}#) + (#{make-binding-wrap\ 148}# + #{ids\ 578}# + #{labels\ 580}# + #{w\ 571}#) + #{mod\ 573}#))))))) + (#{lambda-formals\ 176}# + (lambda (#{orig-args\ 581}#) + (letrec ((#{check\ 583}# + (lambda (#{req\ 584}# #{rest\ 585}#) + (if (#{distinct-bound-ids?\ 157}# + (if #{rest\ 585}# + (cons #{rest\ 585}# #{req\ 584}#) + #{req\ 584}#)) + (values #{req\ 584}# #f #{rest\ 585}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 811}#)))) - (#{req\ 812}# - (lambda (#{args\ 816}# #{rreq\ 817}#) - ((lambda (#{tmp\ 818}#) - ((lambda (#{tmp\ 819}#) - (if #{tmp\ 819}# + #{orig-args\ 581}#)))) + (#{req\ 582}# + (lambda (#{args\ 586}# #{rreq\ 587}#) + ((lambda (#{tmp\ 588}#) + ((lambda (#{tmp\ 589}#) + (if #{tmp\ 589}# (apply (lambda () - (#{check\ 813}# - (reverse #{rreq\ 817}#) + (#{check\ 583}# + (reverse #{rreq\ 587}#) #f)) - #{tmp\ 819}#) - ((lambda (#{tmp\ 820}#) - (if (if #{tmp\ 820}# - (apply (lambda (#{a\ 821}# - #{b\ 822}#) - (#{id?\ 361}# - #{a\ 821}#)) - #{tmp\ 820}#) + #{tmp\ 589}#) + ((lambda (#{tmp\ 590}#) + (if (if #{tmp\ 590}# + (apply (lambda (#{a\ 591}# + #{b\ 592}#) + (#{id?\ 131}# + #{a\ 591}#)) + #{tmp\ 590}#) #f) - (apply (lambda (#{a\ 823}# #{b\ 824}#) - (#{req\ 812}# - #{b\ 824}# - (cons #{a\ 823}# - #{rreq\ 817}#))) - #{tmp\ 820}#) - ((lambda (#{tmp\ 825}#) - (if (if #{tmp\ 825}# - (apply (lambda (#{r\ 826}#) - (#{id?\ 361}# - #{r\ 826}#)) - #{tmp\ 825}#) + (apply (lambda (#{a\ 593}# #{b\ 594}#) + (#{req\ 582}# + #{b\ 594}# + (cons #{a\ 593}# + #{rreq\ 587}#))) + #{tmp\ 590}#) + ((lambda (#{tmp\ 595}#) + (if (if #{tmp\ 595}# + (apply (lambda (#{r\ 596}#) + (#{id?\ 131}# + #{r\ 596}#)) + #{tmp\ 595}#) #f) - (apply (lambda (#{r\ 827}#) - (#{check\ 813}# + (apply (lambda (#{r\ 597}#) + (#{check\ 583}# (reverse - #{rreq\ 817}#) - #{r\ 827}#)) - #{tmp\ 825}#) - ((lambda (#{else\ 828}#) + #{rreq\ 587}#) + #{r\ 597}#)) + #{tmp\ 595}#) + ((lambda (#{else\ 598}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 811}# - #{args\ 816}#)) - #{tmp\ 818}#))) - (list #{tmp\ 818}#)))) + #{orig-args\ 581}# + #{args\ 586}#)) + #{tmp\ 588}#))) + (list #{tmp\ 588}#)))) ($sc-dispatch - #{tmp\ 818}# + #{tmp\ 588}# '(any . any))))) - ($sc-dispatch #{tmp\ 818}# (quote ())))) - #{args\ 816}#)))) - (#{req\ 812}# #{orig-args\ 811}# (quote ()))))) - (#{ellipsis?\ 405}# - (lambda (#{x\ 829}#) - (if (#{nonsymbol-id?\ 360}# #{x\ 829}#) - (#{free-id=?\ 384}# - #{x\ 829}# + ($sc-dispatch #{tmp\ 588}# (quote ())))) + #{args\ 586}#)))) + (#{req\ 582}# #{orig-args\ 581}# (quote ()))))) + (#{ellipsis?\ 175}# + (lambda (#{x\ 599}#) + (if (#{nonsymbol-id?\ 130}# #{x\ 599}#) + (#{free-id=?\ 154}# + #{x\ 599}# '#(syntax-object ... ((top) @@ -2311,1231 +2311,1223 @@ ("i" "i"))) (hygiene guile))) #f))) - (#{chi-void\ 404}# - (lambda () (#{build-void\ 325}# #f))) - (#{eval-local-transformer\ 403}# - (lambda (#{expanded\ 830}# #{mod\ 831}#) - (let ((#{p\ 832}# (#{local-eval-hook\ 321}# - #{expanded\ 830}# - #{mod\ 831}#))) - (if (procedure? #{p\ 832}#) - #{p\ 832}# + (#{chi-void\ 174}# + (lambda () (#{build-void\ 95}# #f))) + (#{eval-local-transformer\ 173}# + (lambda (#{expanded\ 600}# #{mod\ 601}#) + (let ((#{p\ 602}# (#{local-eval-hook\ 91}# + #{expanded\ 600}# + #{mod\ 601}#))) + (if (procedure? #{p\ 602}#) + #{p\ 602}# (syntax-violation #f "nonprocedure transformer" - #{p\ 832}#))))) - (#{chi-local-syntax\ 402}# - (lambda (#{rec?\ 833}# - #{e\ 834}# - #{r\ 835}# - #{w\ 836}# - #{s\ 837}# - #{mod\ 838}# - #{k\ 839}#) - ((lambda (#{tmp\ 840}#) - ((lambda (#{tmp\ 841}#) - (if #{tmp\ 841}# - (apply (lambda (#{_\ 842}# - #{id\ 843}# - #{val\ 844}# - #{e1\ 845}# - #{e2\ 846}#) - (let ((#{ids\ 847}# #{id\ 843}#)) - (if (not (#{valid-bound-ids?\ 386}# - #{ids\ 847}#)) + #{p\ 602}#))))) + (#{chi-local-syntax\ 172}# + (lambda (#{rec?\ 603}# + #{e\ 604}# + #{r\ 605}# + #{w\ 606}# + #{s\ 607}# + #{mod\ 608}# + #{k\ 609}#) + ((lambda (#{tmp\ 610}#) + ((lambda (#{tmp\ 611}#) + (if #{tmp\ 611}# + (apply (lambda (#{_\ 612}# + #{id\ 613}# + #{val\ 614}# + #{e1\ 615}# + #{e2\ 616}#) + (let ((#{ids\ 617}# #{id\ 613}#)) + (if (not (#{valid-bound-ids?\ 156}# + #{ids\ 617}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 834}#) - (let ((#{labels\ 849}# - (#{gen-labels\ 367}# - #{ids\ 847}#))) - (let ((#{new-w\ 850}# - (#{make-binding-wrap\ 378}# - #{ids\ 847}# - #{labels\ 849}# - #{w\ 836}#))) - (#{k\ 839}# (cons #{e1\ 845}# - #{e2\ 846}#) - (#{extend-env\ 355}# - #{labels\ 849}# - (let ((#{w\ 852}# (if #{rec?\ 833}# - #{new-w\ 850}# - #{w\ 836}#)) - (#{trans-r\ 853}# - (#{macros-only-env\ 357}# - #{r\ 835}#))) - (map (lambda (#{x\ 854}#) + #{e\ 604}#) + (let ((#{labels\ 619}# + (#{gen-labels\ 137}# + #{ids\ 617}#))) + (let ((#{new-w\ 620}# + (#{make-binding-wrap\ 148}# + #{ids\ 617}# + #{labels\ 619}# + #{w\ 606}#))) + (#{k\ 609}# (cons #{e1\ 615}# + #{e2\ 616}#) + (#{extend-env\ 125}# + #{labels\ 619}# + (let ((#{w\ 622}# (if #{rec?\ 603}# + #{new-w\ 620}# + #{w\ 606}#)) + (#{trans-r\ 623}# + (#{macros-only-env\ 127}# + #{r\ 605}#))) + (map (lambda (#{x\ 624}#) (cons 'macro - (#{eval-local-transformer\ 403}# - (#{chi\ 397}# - #{x\ 854}# - #{trans-r\ 853}# - #{w\ 852}# - #{mod\ 838}#) - #{mod\ 838}#))) - #{val\ 844}#)) - #{r\ 835}#) - #{new-w\ 850}# - #{s\ 837}# - #{mod\ 838}#)))))) - #{tmp\ 841}#) - ((lambda (#{_\ 856}#) + (#{eval-local-transformer\ 173}# + (#{chi\ 167}# + #{x\ 624}# + #{trans-r\ 623}# + #{w\ 622}# + #{mod\ 608}#) + #{mod\ 608}#))) + #{val\ 614}#)) + #{r\ 605}#) + #{new-w\ 620}# + #{s\ 607}# + #{mod\ 608}#)))))) + #{tmp\ 611}#) + ((lambda (#{_\ 626}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 390}# - #{e\ 834}# - #{w\ 836}# - #{s\ 837}# - #{mod\ 838}#))) - #{tmp\ 840}#))) + (#{source-wrap\ 160}# + #{e\ 604}# + #{w\ 606}# + #{s\ 607}# + #{mod\ 608}#))) + #{tmp\ 610}#))) ($sc-dispatch - #{tmp\ 840}# + #{tmp\ 610}# '(any #(each (any any)) any . each-any)))) - #{e\ 834}#))) - (#{chi-body\ 401}# - (lambda (#{body\ 857}# - #{outer-form\ 858}# - #{r\ 859}# - #{w\ 860}# - #{mod\ 861}#) - (let ((#{r\ 862}# (cons '("placeholder" placeholder) - #{r\ 859}#))) - (let ((#{ribcage\ 863}# - (#{make-ribcage\ 368}# + #{e\ 604}#))) + (#{chi-body\ 171}# + (lambda (#{body\ 627}# + #{outer-form\ 628}# + #{r\ 629}# + #{w\ 630}# + #{mod\ 631}#) + (let ((#{r\ 632}# (cons '("placeholder" placeholder) + #{r\ 629}#))) + (let ((#{ribcage\ 633}# + (#{make-ribcage\ 138}# '() '() '()))) - (let ((#{w\ 864}# (#{make-wrap\ 363}# - (#{wrap-marks\ 364}# #{w\ 860}#) - (cons #{ribcage\ 863}# - (#{wrap-subst\ 365}# - #{w\ 860}#))))) - (letrec ((#{parse\ 865}# - (lambda (#{body\ 866}# - #{ids\ 867}# - #{labels\ 868}# - #{var-ids\ 869}# - #{vars\ 870}# - #{vals\ 871}# - #{bindings\ 872}#) - (if (null? #{body\ 866}#) + (let ((#{w\ 634}# (#{make-wrap\ 133}# + (#{wrap-marks\ 134}# #{w\ 630}#) + (cons #{ribcage\ 633}# + (#{wrap-subst\ 135}# + #{w\ 630}#))))) + (letrec ((#{parse\ 635}# + (lambda (#{body\ 636}# + #{ids\ 637}# + #{labels\ 638}# + #{var-ids\ 639}# + #{vars\ 640}# + #{vals\ 641}# + #{bindings\ 642}#) + (if (null? #{body\ 636}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 858}#) - (let ((#{e\ 874}# (cdar #{body\ 866}#)) - (#{er\ 875}# (caar #{body\ 866}#))) + #{outer-form\ 628}#) + (let ((#{e\ 644}# (cdar #{body\ 636}#)) + (#{er\ 645}# (caar #{body\ 636}#))) (call-with-values (lambda () - (#{syntax-type\ 395}# - #{e\ 874}# - #{er\ 875}# + (#{syntax-type\ 165}# + #{e\ 644}# + #{er\ 645}# '(()) - (#{source-annotation\ 352}# - #{er\ 875}#) - #{ribcage\ 863}# - #{mod\ 861}# + (#{source-annotation\ 122}# + #{er\ 645}#) + #{ribcage\ 633}# + #{mod\ 631}# #f)) - (lambda (#{type\ 876}# - #{value\ 877}# - #{e\ 878}# - #{w\ 879}# - #{s\ 880}# - #{mod\ 881}#) - (if (memv #{type\ 876}# + (lambda (#{type\ 646}# + #{value\ 647}# + #{e\ 648}# + #{w\ 649}# + #{s\ 650}# + #{mod\ 651}#) + (if (memv #{type\ 646}# '(define-form)) - (let ((#{id\ 882}# - (#{wrap\ 389}# - #{value\ 877}# - #{w\ 879}# - #{mod\ 881}#)) - (#{label\ 883}# - (#{gen-label\ 366}#))) - (let ((#{var\ 884}# - (#{gen-var\ 411}# - #{id\ 882}#))) + (let ((#{id\ 652}# + (#{wrap\ 159}# + #{value\ 647}# + #{w\ 649}# + #{mod\ 651}#)) + (#{label\ 653}# + (#{gen-label\ 136}#))) + (let ((#{var\ 654}# + (#{gen-var\ 181}# + #{id\ 652}#))) (begin - (#{extend-ribcage!\ 377}# - #{ribcage\ 863}# - #{id\ 882}# - #{label\ 883}#) - (#{parse\ 865}# - (cdr #{body\ 866}#) - (cons #{id\ 882}# - #{ids\ 867}#) - (cons #{label\ 883}# - #{labels\ 868}#) - (cons #{id\ 882}# - #{var-ids\ 869}#) - (cons #{var\ 884}# - #{vars\ 870}#) - (cons (cons #{er\ 875}# - (#{wrap\ 389}# - #{e\ 878}# - #{w\ 879}# - #{mod\ 881}#)) - #{vals\ 871}#) + (#{extend-ribcage!\ 147}# + #{ribcage\ 633}# + #{id\ 652}# + #{label\ 653}#) + (#{parse\ 635}# + (cdr #{body\ 636}#) + (cons #{id\ 652}# + #{ids\ 637}#) + (cons #{label\ 653}# + #{labels\ 638}#) + (cons #{id\ 652}# + #{var-ids\ 639}#) + (cons #{var\ 654}# + #{vars\ 640}#) + (cons (cons #{er\ 645}# + (#{wrap\ 159}# + #{e\ 648}# + #{w\ 649}# + #{mod\ 651}#)) + #{vals\ 641}#) (cons (cons 'lexical - #{var\ 884}#) - #{bindings\ 872}#))))) - (if (memv #{type\ 876}# + #{var\ 654}#) + #{bindings\ 642}#))))) + (if (memv #{type\ 646}# '(define-syntax-form)) - (let ((#{id\ 885}# - (#{wrap\ 389}# - #{value\ 877}# - #{w\ 879}# - #{mod\ 881}#)) - (#{label\ 886}# - (#{gen-label\ 366}#))) + (let ((#{id\ 655}# + (#{wrap\ 159}# + #{value\ 647}# + #{w\ 649}# + #{mod\ 651}#)) + (#{label\ 656}# + (#{gen-label\ 136}#))) (begin - (#{extend-ribcage!\ 377}# - #{ribcage\ 863}# - #{id\ 885}# - #{label\ 886}#) - (#{parse\ 865}# - (cdr #{body\ 866}#) - (cons #{id\ 885}# - #{ids\ 867}#) - (cons #{label\ 886}# - #{labels\ 868}#) - #{var-ids\ 869}# - #{vars\ 870}# - #{vals\ 871}# + (#{extend-ribcage!\ 147}# + #{ribcage\ 633}# + #{id\ 655}# + #{label\ 656}#) + (#{parse\ 635}# + (cdr #{body\ 636}#) + (cons #{id\ 655}# + #{ids\ 637}#) + (cons #{label\ 656}# + #{labels\ 638}#) + #{var-ids\ 639}# + #{vars\ 640}# + #{vals\ 641}# (cons (cons 'macro - (cons #{er\ 875}# - (#{wrap\ 389}# - #{e\ 878}# - #{w\ 879}# - #{mod\ 881}#))) - #{bindings\ 872}#)))) - (if (memv #{type\ 876}# + (cons #{er\ 645}# + (#{wrap\ 159}# + #{e\ 648}# + #{w\ 649}# + #{mod\ 651}#))) + #{bindings\ 642}#)))) + (if (memv #{type\ 646}# '(begin-form)) - ((lambda (#{tmp\ 887}#) - ((lambda (#{tmp\ 888}#) - (if #{tmp\ 888}# - (apply (lambda (#{_\ 889}# - #{e1\ 890}#) - (#{parse\ 865}# - (letrec ((#{f\ 891}# (lambda (#{forms\ 892}#) - (if (null? #{forms\ 892}#) - (cdr #{body\ 866}#) - (cons (cons #{er\ 875}# - (#{wrap\ 389}# - (car #{forms\ 892}#) - #{w\ 879}# - #{mod\ 881}#)) - (#{f\ 891}# (cdr #{forms\ 892}#))))))) - (#{f\ 891}# #{e1\ 890}#)) - #{ids\ 867}# - #{labels\ 868}# - #{var-ids\ 869}# - #{vars\ 870}# - #{vals\ 871}# - #{bindings\ 872}#)) - #{tmp\ 888}#) + ((lambda (#{tmp\ 657}#) + ((lambda (#{tmp\ 658}#) + (if #{tmp\ 658}# + (apply (lambda (#{_\ 659}# + #{e1\ 660}#) + (#{parse\ 635}# + (letrec ((#{f\ 661}# (lambda (#{forms\ 662}#) + (if (null? #{forms\ 662}#) + (cdr #{body\ 636}#) + (cons (cons #{er\ 645}# + (#{wrap\ 159}# + (car #{forms\ 662}#) + #{w\ 649}# + #{mod\ 651}#)) + (#{f\ 661}# (cdr #{forms\ 662}#))))))) + (#{f\ 661}# #{e1\ 660}#)) + #{ids\ 637}# + #{labels\ 638}# + #{var-ids\ 639}# + #{vars\ 640}# + #{vals\ 641}# + #{bindings\ 642}#)) + #{tmp\ 658}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 887}#))) + #{tmp\ 657}#))) ($sc-dispatch - #{tmp\ 887}# + #{tmp\ 657}# '(any . each-any)))) - #{e\ 878}#) - (if (memv #{type\ 876}# + #{e\ 648}#) + (if (memv #{type\ 646}# '(local-syntax-form)) - (#{chi-local-syntax\ 402}# - #{value\ 877}# - #{e\ 878}# - #{er\ 875}# - #{w\ 879}# - #{s\ 880}# - #{mod\ 881}# - (lambda (#{forms\ 894}# - #{er\ 895}# - #{w\ 896}# - #{s\ 897}# - #{mod\ 898}#) - (#{parse\ 865}# - (letrec ((#{f\ 899}# (lambda (#{forms\ 900}#) - (if (null? #{forms\ 900}#) - (cdr #{body\ 866}#) - (cons (cons #{er\ 895}# - (#{wrap\ 389}# - (car #{forms\ 900}#) - #{w\ 896}# - #{mod\ 898}#)) - (#{f\ 899}# (cdr #{forms\ 900}#))))))) - (#{f\ 899}# #{forms\ 894}#)) - #{ids\ 867}# - #{labels\ 868}# - #{var-ids\ 869}# - #{vars\ 870}# - #{vals\ 871}# - #{bindings\ 872}#))) - (if (null? #{ids\ 867}#) - (#{build-sequence\ 340}# + (#{chi-local-syntax\ 172}# + #{value\ 647}# + #{e\ 648}# + #{er\ 645}# + #{w\ 649}# + #{s\ 650}# + #{mod\ 651}# + (lambda (#{forms\ 664}# + #{er\ 665}# + #{w\ 666}# + #{s\ 667}# + #{mod\ 668}#) + (#{parse\ 635}# + (letrec ((#{f\ 669}# (lambda (#{forms\ 670}#) + (if (null? #{forms\ 670}#) + (cdr #{body\ 636}#) + (cons (cons #{er\ 665}# + (#{wrap\ 159}# + (car #{forms\ 670}#) + #{w\ 666}# + #{mod\ 668}#)) + (#{f\ 669}# (cdr #{forms\ 670}#))))))) + (#{f\ 669}# #{forms\ 664}#)) + #{ids\ 637}# + #{labels\ 638}# + #{var-ids\ 639}# + #{vars\ 640}# + #{vals\ 641}# + #{bindings\ 642}#))) + (if (null? #{ids\ 637}#) + (#{build-sequence\ 110}# #f - (map (lambda (#{x\ 901}#) - (#{chi\ 397}# - (cdr #{x\ 901}#) - (car #{x\ 901}#) + (map (lambda (#{x\ 671}#) + (#{chi\ 167}# + (cdr #{x\ 671}#) + (car #{x\ 671}#) '(()) - #{mod\ 881}#)) - (cons (cons #{er\ 875}# - (#{source-wrap\ 390}# - #{e\ 878}# - #{w\ 879}# - #{s\ 880}# - #{mod\ 881}#)) - (cdr #{body\ 866}#)))) + #{mod\ 651}#)) + (cons (cons #{er\ 645}# + (#{source-wrap\ 160}# + #{e\ 648}# + #{w\ 649}# + #{s\ 650}# + #{mod\ 651}#)) + (cdr #{body\ 636}#)))) (begin - (if (not (#{valid-bound-ids?\ 386}# - #{ids\ 867}#)) + (if (not (#{valid-bound-ids?\ 156}# + #{ids\ 637}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 858}#)) - (letrec ((#{loop\ 902}# - (lambda (#{bs\ 903}# - #{er-cache\ 904}# - #{r-cache\ 905}#) - (if (not (null? #{bs\ 903}#)) - (let ((#{b\ 906}# (car #{bs\ 903}#))) - (if (eq? (car #{b\ 906}#) + #{outer-form\ 628}#)) + (letrec ((#{loop\ 672}# + (lambda (#{bs\ 673}# + #{er-cache\ 674}# + #{r-cache\ 675}#) + (if (not (null? #{bs\ 673}#)) + (let ((#{b\ 676}# (car #{bs\ 673}#))) + (if (eq? (car #{b\ 676}#) 'macro) - (let ((#{er\ 907}# - (cadr #{b\ 906}#))) - (let ((#{r-cache\ 908}# - (if (eq? #{er\ 907}# - #{er-cache\ 904}#) - #{r-cache\ 905}# - (#{macros-only-env\ 357}# - #{er\ 907}#)))) + (let ((#{er\ 677}# + (cadr #{b\ 676}#))) + (let ((#{r-cache\ 678}# + (if (eq? #{er\ 677}# + #{er-cache\ 674}#) + #{r-cache\ 675}# + (#{macros-only-env\ 127}# + #{er\ 677}#)))) (begin (set-cdr! - #{b\ 906}# - (#{eval-local-transformer\ 403}# - (#{chi\ 397}# - (cddr #{b\ 906}#) - #{r-cache\ 908}# + #{b\ 676}# + (#{eval-local-transformer\ 173}# + (#{chi\ 167}# + (cddr #{b\ 676}#) + #{r-cache\ 678}# '(()) - #{mod\ 881}#) - #{mod\ 881}#)) - (#{loop\ 902}# - (cdr #{bs\ 903}#) - #{er\ 907}# - #{r-cache\ 908}#)))) - (#{loop\ 902}# - (cdr #{bs\ 903}#) - #{er-cache\ 904}# - #{r-cache\ 905}#))))))) - (#{loop\ 902}# - #{bindings\ 872}# + #{mod\ 651}#) + #{mod\ 651}#)) + (#{loop\ 672}# + (cdr #{bs\ 673}#) + #{er\ 677}# + #{r-cache\ 678}#)))) + (#{loop\ 672}# + (cdr #{bs\ 673}#) + #{er-cache\ 674}# + #{r-cache\ 675}#))))))) + (#{loop\ 672}# + #{bindings\ 642}# #f #f)) (set-cdr! - #{r\ 862}# - (#{extend-env\ 355}# - #{labels\ 868}# - #{bindings\ 872}# - (cdr #{r\ 862}#))) - (#{build-letrec\ 343}# + #{r\ 632}# + (#{extend-env\ 125}# + #{labels\ 638}# + #{bindings\ 642}# + (cdr #{r\ 632}#))) + (#{build-letrec\ 113}# #f (map syntax->datum - #{var-ids\ 869}#) - #{vars\ 870}# - (map (lambda (#{x\ 909}#) - (#{chi\ 397}# - (cdr #{x\ 909}#) - (car #{x\ 909}#) + #{var-ids\ 639}#) + #{vars\ 640}# + (map (lambda (#{x\ 679}#) + (#{chi\ 167}# + (cdr #{x\ 679}#) + (car #{x\ 679}#) '(()) - #{mod\ 881}#)) - #{vals\ 871}#) - (#{build-sequence\ 340}# + #{mod\ 651}#)) + #{vals\ 641}#) + (#{build-sequence\ 110}# #f - (map (lambda (#{x\ 910}#) - (#{chi\ 397}# - (cdr #{x\ 910}#) - (car #{x\ 910}#) + (map (lambda (#{x\ 680}#) + (#{chi\ 167}# + (cdr #{x\ 680}#) + (car #{x\ 680}#) '(()) - #{mod\ 881}#)) - (cons (cons #{er\ 875}# - (#{source-wrap\ 390}# - #{e\ 878}# - #{w\ 879}# - #{s\ 880}# - #{mod\ 881}#)) - (cdr #{body\ 866}#)))))))))))))))))) - (#{parse\ 865}# - (map (lambda (#{x\ 873}#) - (cons #{r\ 862}# - (#{wrap\ 389}# - #{x\ 873}# - #{w\ 864}# - #{mod\ 861}#))) - #{body\ 857}#) + #{mod\ 651}#)) + (cons (cons #{er\ 645}# + (#{source-wrap\ 160}# + #{e\ 648}# + #{w\ 649}# + #{s\ 650}# + #{mod\ 651}#)) + (cdr #{body\ 636}#)))))))))))))))))) + (#{parse\ 635}# + (map (lambda (#{x\ 643}#) + (cons #{r\ 632}# + (#{wrap\ 159}# + #{x\ 643}# + #{w\ 634}# + #{mod\ 631}#))) + #{body\ 627}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 400}# - (lambda (#{p\ 911}# - #{e\ 912}# - #{r\ 913}# - #{w\ 914}# - #{rib\ 915}# - #{mod\ 916}#) - (letrec ((#{rebuild-macro-output\ 917}# - (lambda (#{x\ 918}# #{m\ 919}#) - (if (pair? #{x\ 918}#) - (cons (#{rebuild-macro-output\ 917}# - (car #{x\ 918}#) - #{m\ 919}#) - (#{rebuild-macro-output\ 917}# - (cdr #{x\ 918}#) - #{m\ 919}#)) - (if (#{syntax-object?\ 345}# #{x\ 918}#) - (let ((#{w\ 920}# (#{syntax-object-wrap\ 347}# - #{x\ 918}#))) - (let ((#{ms\ 921}# - (#{wrap-marks\ 364}# #{w\ 920}#)) - (#{s\ 922}# (#{wrap-subst\ 365}# - #{w\ 920}#))) - (if (if (pair? #{ms\ 921}#) - (eq? (car #{ms\ 921}#) #f) + (#{chi-macro\ 170}# + (lambda (#{p\ 681}# + #{e\ 682}# + #{r\ 683}# + #{w\ 684}# + #{rib\ 685}# + #{mod\ 686}#) + (letrec ((#{rebuild-macro-output\ 687}# + (lambda (#{x\ 688}# #{m\ 689}#) + (if (pair? #{x\ 688}#) + (cons (#{rebuild-macro-output\ 687}# + (car #{x\ 688}#) + #{m\ 689}#) + (#{rebuild-macro-output\ 687}# + (cdr #{x\ 688}#) + #{m\ 689}#)) + (if (#{syntax-object?\ 115}# #{x\ 688}#) + (let ((#{w\ 690}# (#{syntax-object-wrap\ 117}# + #{x\ 688}#))) + (let ((#{ms\ 691}# + (#{wrap-marks\ 134}# #{w\ 690}#)) + (#{s\ 692}# (#{wrap-subst\ 135}# + #{w\ 690}#))) + (if (if (pair? #{ms\ 691}#) + (eq? (car #{ms\ 691}#) #f) #f) - (#{make-syntax-object\ 344}# - (#{syntax-object-expression\ 346}# - #{x\ 918}#) - (#{make-wrap\ 363}# - (cdr #{ms\ 921}#) - (if #{rib\ 915}# - (cons #{rib\ 915}# - (cdr #{s\ 922}#)) - (cdr #{s\ 922}#))) - (#{syntax-object-module\ 348}# - #{x\ 918}#)) - (#{make-syntax-object\ 344}# - (#{syntax-object-expression\ 346}# - #{x\ 918}#) - (#{make-wrap\ 363}# - (cons #{m\ 919}# #{ms\ 921}#) - (if #{rib\ 915}# - (cons #{rib\ 915}# + (#{make-syntax-object\ 114}# + (#{syntax-object-expression\ 116}# + #{x\ 688}#) + (#{make-wrap\ 133}# + (cdr #{ms\ 691}#) + (if #{rib\ 685}# + (cons #{rib\ 685}# + (cdr #{s\ 692}#)) + (cdr #{s\ 692}#))) + (#{syntax-object-module\ 118}# + #{x\ 688}#)) + (#{make-syntax-object\ 114}# + (#{syntax-object-expression\ 116}# + #{x\ 688}#) + (#{make-wrap\ 133}# + (cons #{m\ 689}# #{ms\ 691}#) + (if #{rib\ 685}# + (cons #{rib\ 685}# (cons 'shift - #{s\ 922}#)) - (cons (quote shift) #{s\ 922}#))) - (let ((#{pmod\ 923}# - (procedure-module #{p\ 911}#))) - (if #{pmod\ 923}# + #{s\ 692}#)) + (cons (quote shift) #{s\ 692}#))) + (let ((#{pmod\ 693}# + (procedure-module #{p\ 681}#))) + (if #{pmod\ 693}# (cons 'hygiene - (module-name #{pmod\ 923}#)) + (module-name #{pmod\ 693}#)) '(hygiene guile))))))) - (if (vector? #{x\ 918}#) - (let ((#{n\ 924}# (vector-length - #{x\ 918}#))) - (let ((#{v\ 925}# (make-vector - #{n\ 924}#))) - (letrec ((#{loop\ 926}# - (lambda (#{i\ 927}#) - (if (#{fx=\ 318}# - #{i\ 927}# - #{n\ 924}#) + (if (vector? #{x\ 688}#) + (let ((#{n\ 694}# (vector-length + #{x\ 688}#))) + (let ((#{v\ 695}# (make-vector + #{n\ 694}#))) + (letrec ((#{loop\ 696}# + (lambda (#{i\ 697}#) + (if (#{fx=\ 88}# + #{i\ 697}# + #{n\ 694}#) (begin (if #f #f) - #{v\ 925}#) + #{v\ 695}#) (begin (vector-set! - #{v\ 925}# - #{i\ 927}# - (#{rebuild-macro-output\ 917}# + #{v\ 695}# + #{i\ 697}# + (#{rebuild-macro-output\ 687}# (vector-ref - #{x\ 918}# - #{i\ 927}#) - #{m\ 919}#)) - (#{loop\ 926}# - (#{fx+\ 316}# - #{i\ 927}# + #{x\ 688}# + #{i\ 697}#) + #{m\ 689}#)) + (#{loop\ 696}# + (#{fx+\ 86}# + #{i\ 697}# 1))))))) - (#{loop\ 926}# 0)))) - (if (symbol? #{x\ 918}#) + (#{loop\ 696}# 0)))) + (if (symbol? #{x\ 688}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 390}# - #{e\ 912}# - #{w\ 914}# - (#{wrap-subst\ 365}# #{w\ 914}#) - #{mod\ 916}#) - #{x\ 918}#) - #{x\ 918}#))))))) - (#{rebuild-macro-output\ 917}# - (#{p\ 911}# (#{wrap\ 389}# - #{e\ 912}# - (#{anti-mark\ 376}# #{w\ 914}#) - #{mod\ 916}#)) + (#{source-wrap\ 160}# + #{e\ 682}# + #{w\ 684}# + (#{wrap-subst\ 135}# #{w\ 684}#) + #{mod\ 686}#) + #{x\ 688}#) + #{x\ 688}#))))))) + (#{rebuild-macro-output\ 687}# + (#{p\ 681}# (#{wrap\ 159}# + #{e\ 682}# + (#{anti-mark\ 146}# #{w\ 684}#) + #{mod\ 686}#)) (string #\m))))) - (#{chi-application\ 399}# - (lambda (#{x\ 928}# - #{e\ 929}# - #{r\ 930}# - #{w\ 931}# - #{s\ 932}# - #{mod\ 933}#) - ((lambda (#{tmp\ 934}#) - ((lambda (#{tmp\ 935}#) - (if #{tmp\ 935}# - (apply (lambda (#{e0\ 936}# #{e1\ 937}#) - (#{build-application\ 326}# - #{s\ 932}# - #{x\ 928}# - (map (lambda (#{e\ 938}#) - (#{chi\ 397}# - #{e\ 938}# - #{r\ 930}# - #{w\ 931}# - #{mod\ 933}#)) - #{e1\ 937}#))) - #{tmp\ 935}#) + (#{chi-application\ 169}# + (lambda (#{x\ 698}# + #{e\ 699}# + #{r\ 700}# + #{w\ 701}# + #{s\ 702}# + #{mod\ 703}#) + ((lambda (#{tmp\ 704}#) + ((lambda (#{tmp\ 705}#) + (if #{tmp\ 705}# + (apply (lambda (#{e0\ 706}# #{e1\ 707}#) + (#{build-application\ 96}# + #{s\ 702}# + #{x\ 698}# + (map (lambda (#{e\ 708}#) + (#{chi\ 167}# + #{e\ 708}# + #{r\ 700}# + #{w\ 701}# + #{mod\ 703}#)) + #{e1\ 707}#))) + #{tmp\ 705}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 934}#))) + #{tmp\ 704}#))) ($sc-dispatch - #{tmp\ 934}# + #{tmp\ 704}# '(any . each-any)))) - #{e\ 929}#))) - (#{chi-expr\ 398}# - (lambda (#{type\ 940}# - #{value\ 941}# - #{e\ 942}# - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) - (if (memv #{type\ 940}# (quote (lexical))) - (#{build-lexical-reference\ 328}# + #{e\ 699}#))) + (#{chi-expr\ 168}# + (lambda (#{type\ 710}# + #{value\ 711}# + #{e\ 712}# + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) + (if (memv #{type\ 710}# (quote (lexical))) + (#{build-lexical-reference\ 98}# 'value - #{s\ 945}# - #{e\ 942}# - #{value\ 941}#) - (if (memv #{type\ 940}# (quote (core core-form))) - (#{value\ 941}# - #{e\ 942}# - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) - (if (memv #{type\ 940}# (quote (module-ref))) + #{s\ 715}# + #{e\ 712}# + #{value\ 711}#) + (if (memv #{type\ 710}# (quote (core core-form))) + (#{value\ 711}# + #{e\ 712}# + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) + (if (memv #{type\ 710}# (quote (module-ref))) (call-with-values - (lambda () (#{value\ 941}# #{e\ 942}#)) - (lambda (#{id\ 947}# #{mod\ 948}#) - (#{build-global-reference\ 331}# - #{s\ 945}# - #{id\ 947}# - #{mod\ 948}#))) - (if (memv #{type\ 940}# (quote (lexical-call))) - (#{chi-application\ 399}# - (#{build-lexical-reference\ 328}# + (lambda () (#{value\ 711}# #{e\ 712}#)) + (lambda (#{id\ 717}# #{mod\ 718}#) + (#{build-global-reference\ 101}# + #{s\ 715}# + #{id\ 717}# + #{mod\ 718}#))) + (if (memv #{type\ 710}# (quote (lexical-call))) + (#{chi-application\ 169}# + (#{build-lexical-reference\ 98}# 'fun - (#{source-annotation\ 352}# (car #{e\ 942}#)) - (car #{e\ 942}#) - #{value\ 941}#) - #{e\ 942}# - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) - (if (memv #{type\ 940}# (quote (global-call))) - (#{chi-application\ 399}# - (#{build-global-reference\ 331}# - (#{source-annotation\ 352}# (car #{e\ 942}#)) - (if (#{syntax-object?\ 345}# #{value\ 941}#) - (#{syntax-object-expression\ 346}# - #{value\ 941}#) - #{value\ 941}#) - (if (#{syntax-object?\ 345}# #{value\ 941}#) - (#{syntax-object-module\ 348}# #{value\ 941}#) - #{mod\ 946}#)) - #{e\ 942}# - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) - (if (memv #{type\ 940}# (quote (constant))) - (#{build-data\ 339}# - #{s\ 945}# - (#{strip\ 410}# - (#{source-wrap\ 390}# - #{e\ 942}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) + (#{source-annotation\ 122}# (car #{e\ 712}#)) + (car #{e\ 712}#) + #{value\ 711}#) + #{e\ 712}# + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) + (if (memv #{type\ 710}# (quote (global-call))) + (#{chi-application\ 169}# + (#{build-global-reference\ 101}# + (#{source-annotation\ 122}# (car #{e\ 712}#)) + (if (#{syntax-object?\ 115}# #{value\ 711}#) + (#{syntax-object-expression\ 116}# + #{value\ 711}#) + #{value\ 711}#) + (if (#{syntax-object?\ 115}# #{value\ 711}#) + (#{syntax-object-module\ 118}# #{value\ 711}#) + #{mod\ 716}#)) + #{e\ 712}# + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) + (if (memv #{type\ 710}# (quote (constant))) + (#{build-data\ 109}# + #{s\ 715}# + (#{strip\ 180}# + (#{source-wrap\ 160}# + #{e\ 712}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) '(()))) - (if (memv #{type\ 940}# (quote (global))) - (#{build-global-reference\ 331}# - #{s\ 945}# - #{value\ 941}# - #{mod\ 946}#) - (if (memv #{type\ 940}# (quote (call))) - (#{chi-application\ 399}# - (#{chi\ 397}# - (car #{e\ 942}#) - #{r\ 943}# - #{w\ 944}# - #{mod\ 946}#) - #{e\ 942}# - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) - (if (memv #{type\ 940}# (quote (begin-form))) - ((lambda (#{tmp\ 949}#) - ((lambda (#{tmp\ 950}#) - (if #{tmp\ 950}# - (apply (lambda (#{_\ 951}# - #{e1\ 952}# - #{e2\ 953}#) - (#{chi-sequence\ 391}# - (cons #{e1\ 952}# - #{e2\ 953}#) - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#)) - #{tmp\ 950}#) + (if (memv #{type\ 710}# (quote (global))) + (#{build-global-reference\ 101}# + #{s\ 715}# + #{value\ 711}# + #{mod\ 716}#) + (if (memv #{type\ 710}# (quote (call))) + (#{chi-application\ 169}# + (#{chi\ 167}# + (car #{e\ 712}#) + #{r\ 713}# + #{w\ 714}# + #{mod\ 716}#) + #{e\ 712}# + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) + (if (memv #{type\ 710}# (quote (begin-form))) + ((lambda (#{tmp\ 719}#) + ((lambda (#{tmp\ 720}#) + (if #{tmp\ 720}# + (apply (lambda (#{_\ 721}# + #{e1\ 722}# + #{e2\ 723}#) + (#{chi-sequence\ 161}# + (cons #{e1\ 722}# + #{e2\ 723}#) + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#)) + #{tmp\ 720}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 949}#))) + #{tmp\ 719}#))) ($sc-dispatch - #{tmp\ 949}# + #{tmp\ 719}# '(any any . each-any)))) - #{e\ 942}#) - (if (memv #{type\ 940}# + #{e\ 712}#) + (if (memv #{type\ 710}# '(local-syntax-form)) - (#{chi-local-syntax\ 402}# - #{value\ 941}# - #{e\ 942}# - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}# - #{chi-sequence\ 391}#) - (if (memv #{type\ 940}# + (#{chi-local-syntax\ 172}# + #{value\ 711}# + #{e\ 712}# + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}# + #{chi-sequence\ 161}#) + (if (memv #{type\ 710}# '(eval-when-form)) - ((lambda (#{tmp\ 955}#) - ((lambda (#{tmp\ 956}#) - (if #{tmp\ 956}# - (apply (lambda (#{_\ 957}# - #{x\ 958}# - #{e1\ 959}# - #{e2\ 960}#) - (let ((#{when-list\ 961}# - (#{chi-when-list\ 394}# - #{e\ 942}# - #{x\ 958}# - #{w\ 944}#))) + ((lambda (#{tmp\ 725}#) + ((lambda (#{tmp\ 726}#) + (if #{tmp\ 726}# + (apply (lambda (#{_\ 727}# + #{x\ 728}# + #{e1\ 729}# + #{e2\ 730}#) + (let ((#{when-list\ 731}# + (#{chi-when-list\ 164}# + #{e\ 712}# + #{x\ 728}# + #{w\ 714}#))) (if (memq 'eval - #{when-list\ 961}#) - (#{chi-sequence\ 391}# - (cons #{e1\ 959}# - #{e2\ 960}#) - #{r\ 943}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#) - (#{chi-void\ 404}#)))) - #{tmp\ 956}#) + #{when-list\ 731}#) + (#{chi-sequence\ 161}# + (cons #{e1\ 729}# + #{e2\ 730}#) + #{r\ 713}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#) + (#{chi-void\ 174}#)))) + #{tmp\ 726}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 955}#))) + #{tmp\ 725}#))) ($sc-dispatch - #{tmp\ 955}# + #{tmp\ 725}# '(any each-any any . each-any)))) - #{e\ 942}#) - (if (memv #{type\ 940}# + #{e\ 712}#) + (if (memv #{type\ 710}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 942}# - (#{wrap\ 389}# - #{value\ 941}# - #{w\ 944}# - #{mod\ 946}#)) - (if (memv #{type\ 940}# + #{e\ 712}# + (#{wrap\ 159}# + #{value\ 711}# + #{w\ 714}# + #{mod\ 716}#)) + (if (memv #{type\ 710}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 390}# - #{e\ 942}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#)) - (if (memv #{type\ 940}# + (#{source-wrap\ 160}# + #{e\ 712}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#)) + (if (memv #{type\ 710}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 390}# - #{e\ 942}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#)) + (#{source-wrap\ 160}# + #{e\ 712}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 390}# - #{e\ 942}# - #{w\ 944}# - #{s\ 945}# - #{mod\ 946}#)))))))))))))))))) - (#{chi\ 397}# - (lambda (#{e\ 964}# #{r\ 965}# #{w\ 966}# #{mod\ 967}#) + (#{source-wrap\ 160}# + #{e\ 712}# + #{w\ 714}# + #{s\ 715}# + #{mod\ 716}#)))))))))))))))))) + (#{chi\ 167}# + (lambda (#{e\ 734}# #{r\ 735}# #{w\ 736}# #{mod\ 737}#) (call-with-values (lambda () - (#{syntax-type\ 395}# - #{e\ 964}# - #{r\ 965}# - #{w\ 966}# - (#{source-annotation\ 352}# #{e\ 964}#) + (#{syntax-type\ 165}# + #{e\ 734}# + #{r\ 735}# + #{w\ 736}# + (#{source-annotation\ 122}# #{e\ 734}#) #f - #{mod\ 967}# + #{mod\ 737}# #f)) - (lambda (#{type\ 968}# - #{value\ 969}# - #{e\ 970}# - #{w\ 971}# - #{s\ 972}# - #{mod\ 973}#) - (#{chi-expr\ 398}# - #{type\ 968}# - #{value\ 969}# - #{e\ 970}# - #{r\ 965}# - #{w\ 971}# - #{s\ 972}# - #{mod\ 973}#))))) - (#{chi-top\ 396}# - (lambda (#{e\ 974}# - #{r\ 975}# - #{w\ 976}# - #{m\ 977}# - #{esew\ 978}# - #{mod\ 979}#) + (lambda (#{type\ 738}# + #{value\ 739}# + #{e\ 740}# + #{w\ 741}# + #{s\ 742}# + #{mod\ 743}#) + (#{chi-expr\ 168}# + #{type\ 738}# + #{value\ 739}# + #{e\ 740}# + #{r\ 735}# + #{w\ 741}# + #{s\ 742}# + #{mod\ 743}#))))) + (#{chi-top\ 166}# + (lambda (#{e\ 744}# + #{r\ 745}# + #{w\ 746}# + #{m\ 747}# + #{esew\ 748}# + #{mod\ 749}#) (call-with-values (lambda () - (#{syntax-type\ 395}# - #{e\ 974}# - #{r\ 975}# - #{w\ 976}# - (#{source-annotation\ 352}# #{e\ 974}#) + (#{syntax-type\ 165}# + #{e\ 744}# + #{r\ 745}# + #{w\ 746}# + (#{source-annotation\ 122}# #{e\ 744}#) #f - #{mod\ 979}# + #{mod\ 749}# #f)) - (lambda (#{type\ 987}# - #{value\ 988}# - #{e\ 989}# - #{w\ 990}# - #{s\ 991}# - #{mod\ 992}#) - (if (memv #{type\ 987}# (quote (begin-form))) - ((lambda (#{tmp\ 993}#) - ((lambda (#{tmp\ 994}#) - (if #{tmp\ 994}# - (apply (lambda (#{_\ 995}#) (#{chi-void\ 404}#)) - #{tmp\ 994}#) - ((lambda (#{tmp\ 996}#) - (if #{tmp\ 996}# - (apply (lambda (#{_\ 997}# - #{e1\ 998}# - #{e2\ 999}#) - (#{chi-top-sequence\ 392}# - (cons #{e1\ 998}# #{e2\ 999}#) - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# - #{m\ 977}# - #{esew\ 978}# - #{mod\ 992}#)) - #{tmp\ 996}#) + (lambda (#{type\ 757}# + #{value\ 758}# + #{e\ 759}# + #{w\ 760}# + #{s\ 761}# + #{mod\ 762}#) + (if (memv #{type\ 757}# (quote (begin-form))) + ((lambda (#{tmp\ 763}#) + ((lambda (#{tmp\ 764}#) + (if #{tmp\ 764}# + (apply (lambda (#{_\ 765}#) (#{chi-void\ 174}#)) + #{tmp\ 764}#) + ((lambda (#{tmp\ 766}#) + (if #{tmp\ 766}# + (apply (lambda (#{_\ 767}# + #{e1\ 768}# + #{e2\ 769}#) + (#{chi-top-sequence\ 162}# + (cons #{e1\ 768}# #{e2\ 769}#) + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# + #{m\ 747}# + #{esew\ 748}# + #{mod\ 762}#)) + #{tmp\ 766}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 993}#))) + #{tmp\ 763}#))) ($sc-dispatch - #{tmp\ 993}# + #{tmp\ 763}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 993}# (quote (any))))) - #{e\ 989}#) - (if (memv #{type\ 987}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 402}# - #{value\ 988}# - #{e\ 989}# - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# - #{mod\ 992}# - (lambda (#{body\ 1001}# - #{r\ 1002}# - #{w\ 1003}# - #{s\ 1004}# - #{mod\ 1005}#) - (#{chi-top-sequence\ 392}# - #{body\ 1001}# - #{r\ 1002}# - #{w\ 1003}# - #{s\ 1004}# - #{m\ 977}# - #{esew\ 978}# - #{mod\ 1005}#))) - (if (memv #{type\ 987}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1006}#) - ((lambda (#{tmp\ 1007}#) - (if #{tmp\ 1007}# - (apply (lambda (#{_\ 1008}# - #{x\ 1009}# - #{e1\ 1010}# - #{e2\ 1011}#) - (let ((#{when-list\ 1012}# - (#{chi-when-list\ 394}# - #{e\ 989}# - #{x\ 1009}# - #{w\ 990}#)) - (#{body\ 1013}# - (cons #{e1\ 1010}# - #{e2\ 1011}#))) - (if (eq? #{m\ 977}# (quote e)) + ($sc-dispatch #{tmp\ 763}# (quote (any))))) + #{e\ 759}#) + (if (memv #{type\ 757}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 172}# + #{value\ 758}# + #{e\ 759}# + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# + #{mod\ 762}# + (lambda (#{body\ 771}# + #{r\ 772}# + #{w\ 773}# + #{s\ 774}# + #{mod\ 775}#) + (#{chi-top-sequence\ 162}# + #{body\ 771}# + #{r\ 772}# + #{w\ 773}# + #{s\ 774}# + #{m\ 747}# + #{esew\ 748}# + #{mod\ 775}#))) + (if (memv #{type\ 757}# (quote (eval-when-form))) + ((lambda (#{tmp\ 776}#) + ((lambda (#{tmp\ 777}#) + (if #{tmp\ 777}# + (apply (lambda (#{_\ 778}# + #{x\ 779}# + #{e1\ 780}# + #{e2\ 781}#) + (let ((#{when-list\ 782}# + (#{chi-when-list\ 164}# + #{e\ 759}# + #{x\ 779}# + #{w\ 760}#)) + (#{body\ 783}# + (cons #{e1\ 780}# + #{e2\ 781}#))) + (if (eq? #{m\ 747}# (quote e)) (if (memq 'eval - #{when-list\ 1012}#) - (#{chi-top-sequence\ 392}# - #{body\ 1013}# - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# + #{when-list\ 782}#) + (#{chi-top-sequence\ 162}# + #{body\ 783}# + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# 'e '(eval) - #{mod\ 992}#) - (#{chi-void\ 404}#)) + #{mod\ 762}#) + (#{chi-void\ 174}#)) (if (memq 'load - #{when-list\ 1012}#) - (if (let ((#{t\ 1016}# - (memq 'compile - #{when-list\ 1012}#))) - (if #{t\ 1016}# - #{t\ 1016}# - (if (eq? #{m\ 977}# + #{when-list\ 782}#) + (if (let ((#{t\ 786}# (memq 'compile + #{when-list\ 782}#))) + (if #{t\ 786}# + #{t\ 786}# + (if (eq? #{m\ 747}# 'c&e) (memq 'eval - #{when-list\ 1012}#) + #{when-list\ 782}#) #f))) - (#{chi-top-sequence\ 392}# - #{body\ 1013}# - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# + (#{chi-top-sequence\ 162}# + #{body\ 783}# + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# 'c&e '(compile load) - #{mod\ 992}#) - (if (memq #{m\ 977}# + #{mod\ 762}#) + (if (memq #{m\ 747}# '(c c&e)) - (#{chi-top-sequence\ 392}# - #{body\ 1013}# - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# + (#{chi-top-sequence\ 162}# + #{body\ 783}# + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# 'c '(load) - #{mod\ 992}#) - (#{chi-void\ 404}#))) - (if (let ((#{t\ 1017}# - (memq 'compile - #{when-list\ 1012}#))) - (if #{t\ 1017}# - #{t\ 1017}# - (if (eq? #{m\ 977}# + #{mod\ 762}#) + (#{chi-void\ 174}#))) + (if (let ((#{t\ 787}# (memq 'compile + #{when-list\ 782}#))) + (if #{t\ 787}# + #{t\ 787}# + (if (eq? #{m\ 747}# 'c&e) (memq 'eval - #{when-list\ 1012}#) + #{when-list\ 782}#) #f))) (begin - (#{top-level-eval-hook\ 320}# - (#{chi-top-sequence\ 392}# - #{body\ 1013}# - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# + (#{top-level-eval-hook\ 90}# + (#{chi-top-sequence\ 162}# + #{body\ 783}# + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# 'e '(eval) - #{mod\ 992}#) - #{mod\ 992}#) - (#{chi-void\ 404}#)) - (#{chi-void\ 404}#)))))) - #{tmp\ 1007}#) + #{mod\ 762}#) + #{mod\ 762}#) + (#{chi-void\ 174}#)) + (#{chi-void\ 174}#)))))) + #{tmp\ 777}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1006}#))) + #{tmp\ 776}#))) ($sc-dispatch - #{tmp\ 1006}# + #{tmp\ 776}# '(any each-any any . each-any)))) - #{e\ 989}#) - (if (memv #{type\ 987}# (quote (define-syntax-form))) - (let ((#{n\ 1018}# - (#{id-var-name\ 383}# - #{value\ 988}# - #{w\ 990}#)) - (#{r\ 1019}# - (#{macros-only-env\ 357}# #{r\ 975}#))) - (if (memv #{m\ 977}# (quote (c))) - (if (memq (quote compile) #{esew\ 978}#) - (let ((#{e\ 1020}# - (#{chi-install-global\ 393}# - #{n\ 1018}# - (#{chi\ 397}# - #{e\ 989}# - #{r\ 1019}# - #{w\ 990}# - #{mod\ 992}#)))) + #{e\ 759}#) + (if (memv #{type\ 757}# (quote (define-syntax-form))) + (let ((#{n\ 788}# (#{id-var-name\ 153}# + #{value\ 758}# + #{w\ 760}#)) + (#{r\ 789}# (#{macros-only-env\ 127}# + #{r\ 745}#))) + (if (memv #{m\ 747}# (quote (c))) + (if (memq (quote compile) #{esew\ 748}#) + (let ((#{e\ 790}# (#{chi-install-global\ 163}# + #{n\ 788}# + (#{chi\ 167}# + #{e\ 759}# + #{r\ 789}# + #{w\ 760}# + #{mod\ 762}#)))) (begin - (#{top-level-eval-hook\ 320}# - #{e\ 1020}# - #{mod\ 992}#) - (if (memq (quote load) #{esew\ 978}#) - #{e\ 1020}# - (#{chi-void\ 404}#)))) - (if (memq (quote load) #{esew\ 978}#) - (#{chi-install-global\ 393}# - #{n\ 1018}# - (#{chi\ 397}# - #{e\ 989}# - #{r\ 1019}# - #{w\ 990}# - #{mod\ 992}#)) - (#{chi-void\ 404}#))) - (if (memv #{m\ 977}# (quote (c&e))) - (let ((#{e\ 1021}# - (#{chi-install-global\ 393}# - #{n\ 1018}# - (#{chi\ 397}# - #{e\ 989}# - #{r\ 1019}# - #{w\ 990}# - #{mod\ 992}#)))) + (#{top-level-eval-hook\ 90}# + #{e\ 790}# + #{mod\ 762}#) + (if (memq (quote load) #{esew\ 748}#) + #{e\ 790}# + (#{chi-void\ 174}#)))) + (if (memq (quote load) #{esew\ 748}#) + (#{chi-install-global\ 163}# + #{n\ 788}# + (#{chi\ 167}# + #{e\ 759}# + #{r\ 789}# + #{w\ 760}# + #{mod\ 762}#)) + (#{chi-void\ 174}#))) + (if (memv #{m\ 747}# (quote (c&e))) + (let ((#{e\ 791}# (#{chi-install-global\ 163}# + #{n\ 788}# + (#{chi\ 167}# + #{e\ 759}# + #{r\ 789}# + #{w\ 760}# + #{mod\ 762}#)))) (begin - (#{top-level-eval-hook\ 320}# - #{e\ 1021}# - #{mod\ 992}#) - #{e\ 1021}#)) + (#{top-level-eval-hook\ 90}# + #{e\ 791}# + #{mod\ 762}#) + #{e\ 791}#)) (begin - (if (memq (quote eval) #{esew\ 978}#) - (#{top-level-eval-hook\ 320}# - (#{chi-install-global\ 393}# - #{n\ 1018}# - (#{chi\ 397}# - #{e\ 989}# - #{r\ 1019}# - #{w\ 990}# - #{mod\ 992}#)) - #{mod\ 992}#)) - (#{chi-void\ 404}#))))) - (if (memv #{type\ 987}# (quote (define-form))) - (let ((#{n\ 1022}# - (#{id-var-name\ 383}# - #{value\ 988}# - #{w\ 990}#))) - (let ((#{type\ 1023}# - (#{binding-type\ 353}# - (#{lookup\ 358}# - #{n\ 1022}# - #{r\ 975}# - #{mod\ 992}#)))) - (if (memv #{type\ 1023}# + (if (memq (quote eval) #{esew\ 748}#) + (#{top-level-eval-hook\ 90}# + (#{chi-install-global\ 163}# + #{n\ 788}# + (#{chi\ 167}# + #{e\ 759}# + #{r\ 789}# + #{w\ 760}# + #{mod\ 762}#)) + #{mod\ 762}#)) + (#{chi-void\ 174}#))))) + (if (memv #{type\ 757}# (quote (define-form))) + (let ((#{n\ 792}# (#{id-var-name\ 153}# + #{value\ 758}# + #{w\ 760}#))) + (let ((#{type\ 793}# + (#{binding-type\ 123}# + (#{lookup\ 128}# + #{n\ 792}# + #{r\ 745}# + #{mod\ 762}#)))) + (if (memv #{type\ 793}# '(global core macro module-ref)) (begin (if (if (not (module-local-variable (current-module) - #{n\ 1022}#)) + #{n\ 792}#)) (current-module) #f) - (let ((#{old\ 1024}# + (let ((#{old\ 794}# (module-variable (current-module) - #{n\ 1022}#))) + #{n\ 792}#))) (module-define! (current-module) - #{n\ 1022}# - (if (variable? #{old\ 1024}#) - (variable-ref #{old\ 1024}#) + #{n\ 792}# + (if (variable? #{old\ 794}#) + (variable-ref #{old\ 794}#) #f)))) - (let ((#{x\ 1025}# - (#{build-global-definition\ 334}# - #{s\ 991}# - #{n\ 1022}# - (#{chi\ 397}# - #{e\ 989}# - #{r\ 975}# - #{w\ 990}# - #{mod\ 992}#)))) + (let ((#{x\ 795}# (#{build-global-definition\ 104}# + #{s\ 761}# + #{n\ 792}# + (#{chi\ 167}# + #{e\ 759}# + #{r\ 745}# + #{w\ 760}# + #{mod\ 762}#)))) (begin - (if (eq? #{m\ 977}# (quote c&e)) - (#{top-level-eval-hook\ 320}# - #{x\ 1025}# - #{mod\ 992}#)) - #{x\ 1025}#))) - (if (memv #{type\ 1023}# + (if (eq? #{m\ 747}# (quote c&e)) + (#{top-level-eval-hook\ 90}# + #{x\ 795}# + #{mod\ 762}#)) + #{x\ 795}#))) + (if (memv #{type\ 793}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 989}# - (#{wrap\ 389}# - #{value\ 988}# - #{w\ 990}# - #{mod\ 992}#)) + #{e\ 759}# + (#{wrap\ 159}# + #{value\ 758}# + #{w\ 760}# + #{mod\ 762}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 989}# - (#{wrap\ 389}# - #{value\ 988}# - #{w\ 990}# - #{mod\ 992}#)))))) - (let ((#{x\ 1026}# - (#{chi-expr\ 398}# - #{type\ 987}# - #{value\ 988}# - #{e\ 989}# - #{r\ 975}# - #{w\ 990}# - #{s\ 991}# - #{mod\ 992}#))) + #{e\ 759}# + (#{wrap\ 159}# + #{value\ 758}# + #{w\ 760}# + #{mod\ 762}#)))))) + (let ((#{x\ 796}# (#{chi-expr\ 168}# + #{type\ 757}# + #{value\ 758}# + #{e\ 759}# + #{r\ 745}# + #{w\ 760}# + #{s\ 761}# + #{mod\ 762}#))) (begin - (if (eq? #{m\ 977}# (quote c&e)) - (#{top-level-eval-hook\ 320}# - #{x\ 1026}# - #{mod\ 992}#)) - #{x\ 1026}#))))))))))) - (#{syntax-type\ 395}# - (lambda (#{e\ 1027}# - #{r\ 1028}# - #{w\ 1029}# - #{s\ 1030}# - #{rib\ 1031}# - #{mod\ 1032}# - #{for-car?\ 1033}#) - (if (symbol? #{e\ 1027}#) - (let ((#{n\ 1034}# - (#{id-var-name\ 383}# #{e\ 1027}# #{w\ 1029}#))) - (let ((#{b\ 1035}# - (#{lookup\ 358}# - #{n\ 1034}# - #{r\ 1028}# - #{mod\ 1032}#))) - (let ((#{type\ 1036}# - (#{binding-type\ 353}# #{b\ 1035}#))) - (if (memv #{type\ 1036}# (quote (lexical))) + (if (eq? #{m\ 747}# (quote c&e)) + (#{top-level-eval-hook\ 90}# + #{x\ 796}# + #{mod\ 762}#)) + #{x\ 796}#))))))))))) + (#{syntax-type\ 165}# + (lambda (#{e\ 797}# + #{r\ 798}# + #{w\ 799}# + #{s\ 800}# + #{rib\ 801}# + #{mod\ 802}# + #{for-car?\ 803}#) + (if (symbol? #{e\ 797}#) + (let ((#{n\ 804}# (#{id-var-name\ 153}# + #{e\ 797}# + #{w\ 799}#))) + (let ((#{b\ 805}# (#{lookup\ 128}# + #{n\ 804}# + #{r\ 798}# + #{mod\ 802}#))) + (let ((#{type\ 806}# + (#{binding-type\ 123}# #{b\ 805}#))) + (if (memv #{type\ 806}# (quote (lexical))) (values - #{type\ 1036}# - (#{binding-value\ 354}# #{b\ 1035}#) - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{type\ 1036}# (quote (global))) + #{type\ 806}# + (#{binding-value\ 124}# #{b\ 805}#) + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{type\ 806}# (quote (global))) (values - #{type\ 1036}# - #{n\ 1034}# - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{type\ 1036}# (quote (macro))) - (if #{for-car?\ 1033}# + #{type\ 806}# + #{n\ 804}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{type\ 806}# (quote (macro))) + (if #{for-car?\ 803}# (values - #{type\ 1036}# - (#{binding-value\ 354}# #{b\ 1035}#) - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (#{syntax-type\ 395}# - (#{chi-macro\ 400}# - (#{binding-value\ 354}# #{b\ 1035}#) - #{e\ 1027}# - #{r\ 1028}# - #{w\ 1029}# - #{rib\ 1031}# - #{mod\ 1032}#) - #{r\ 1028}# + #{type\ 806}# + (#{binding-value\ 124}# #{b\ 805}#) + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (#{syntax-type\ 165}# + (#{chi-macro\ 170}# + (#{binding-value\ 124}# #{b\ 805}#) + #{e\ 797}# + #{r\ 798}# + #{w\ 799}# + #{rib\ 801}# + #{mod\ 802}#) + #{r\ 798}# '(()) - #{s\ 1030}# - #{rib\ 1031}# - #{mod\ 1032}# + #{s\ 800}# + #{rib\ 801}# + #{mod\ 802}# #f)) (values - #{type\ 1036}# - (#{binding-value\ 354}# #{b\ 1035}#) - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#))))))) - (if (pair? #{e\ 1027}#) - (let ((#{first\ 1037}# (car #{e\ 1027}#))) + #{type\ 806}# + (#{binding-value\ 124}# #{b\ 805}#) + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#))))))) + (if (pair? #{e\ 797}#) + (let ((#{first\ 807}# (car #{e\ 797}#))) (call-with-values (lambda () - (#{syntax-type\ 395}# - #{first\ 1037}# - #{r\ 1028}# - #{w\ 1029}# - #{s\ 1030}# - #{rib\ 1031}# - #{mod\ 1032}# + (#{syntax-type\ 165}# + #{first\ 807}# + #{r\ 798}# + #{w\ 799}# + #{s\ 800}# + #{rib\ 801}# + #{mod\ 802}# #t)) - (lambda (#{ftype\ 1038}# - #{fval\ 1039}# - #{fe\ 1040}# - #{fw\ 1041}# - #{fs\ 1042}# - #{fmod\ 1043}#) - (if (memv #{ftype\ 1038}# (quote (lexical))) + (lambda (#{ftype\ 808}# + #{fval\ 809}# + #{fe\ 810}# + #{fw\ 811}# + #{fs\ 812}# + #{fmod\ 813}#) + (if (memv #{ftype\ 808}# (quote (lexical))) (values 'lexical-call - #{fval\ 1039}# - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{ftype\ 1038}# (quote (global))) + #{fval\ 809}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{ftype\ 808}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 344}# - #{fval\ 1039}# - #{w\ 1029}# - #{fmod\ 1043}#) - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{ftype\ 1038}# (quote (macro))) - (#{syntax-type\ 395}# - (#{chi-macro\ 400}# - #{fval\ 1039}# - #{e\ 1027}# - #{r\ 1028}# - #{w\ 1029}# - #{rib\ 1031}# - #{mod\ 1032}#) - #{r\ 1028}# + (#{make-syntax-object\ 114}# + #{fval\ 809}# + #{w\ 799}# + #{fmod\ 813}#) + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{ftype\ 808}# (quote (macro))) + (#{syntax-type\ 165}# + (#{chi-macro\ 170}# + #{fval\ 809}# + #{e\ 797}# + #{r\ 798}# + #{w\ 799}# + #{rib\ 801}# + #{mod\ 802}#) + #{r\ 798}# '(()) - #{s\ 1030}# - #{rib\ 1031}# - #{mod\ 1032}# - #{for-car?\ 1033}#) - (if (memv #{ftype\ 1038}# (quote (module-ref))) + #{s\ 800}# + #{rib\ 801}# + #{mod\ 802}# + #{for-car?\ 803}#) + (if (memv #{ftype\ 808}# (quote (module-ref))) (call-with-values - (lambda () (#{fval\ 1039}# #{e\ 1027}#)) - (lambda (#{sym\ 1044}# #{mod\ 1045}#) - (#{syntax-type\ 395}# - #{sym\ 1044}# - #{r\ 1028}# - #{w\ 1029}# - #{s\ 1030}# - #{rib\ 1031}# - #{mod\ 1045}# - #{for-car?\ 1033}#))) - (if (memv #{ftype\ 1038}# (quote (core))) + (lambda () (#{fval\ 809}# #{e\ 797}#)) + (lambda (#{sym\ 814}# #{mod\ 815}#) + (#{syntax-type\ 165}# + #{sym\ 814}# + #{r\ 798}# + #{w\ 799}# + #{s\ 800}# + #{rib\ 801}# + #{mod\ 815}# + #{for-car?\ 803}#))) + (if (memv #{ftype\ 808}# (quote (core))) (values 'core-form - #{fval\ 1039}# - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{ftype\ 1038}# + #{fval\ 809}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{ftype\ 808}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 1039}# - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{ftype\ 1038}# (quote (begin))) + #{fval\ 809}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{ftype\ 808}# (quote (begin))) (values 'begin-form #f - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{ftype\ 1038}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{ftype\ 808}# '(eval-when)) (values 'eval-when-form #f - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) - (if (memv #{ftype\ 1038}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) + (if (memv #{ftype\ 808}# '(define)) - ((lambda (#{tmp\ 1046}#) - ((lambda (#{tmp\ 1047}#) - (if (if #{tmp\ 1047}# - (apply (lambda (#{_\ 1048}# - #{name\ 1049}# - #{val\ 1050}#) - (#{id?\ 361}# - #{name\ 1049}#)) - #{tmp\ 1047}#) + ((lambda (#{tmp\ 816}#) + ((lambda (#{tmp\ 817}#) + (if (if #{tmp\ 817}# + (apply (lambda (#{_\ 818}# + #{name\ 819}# + #{val\ 820}#) + (#{id?\ 131}# + #{name\ 819}#)) + #{tmp\ 817}#) #f) - (apply (lambda (#{_\ 1051}# - #{name\ 1052}# - #{val\ 1053}#) + (apply (lambda (#{_\ 821}# + #{name\ 822}# + #{val\ 823}#) (values 'define-form - #{name\ 1052}# - #{val\ 1053}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#)) - #{tmp\ 1047}#) - ((lambda (#{tmp\ 1054}#) - (if (if #{tmp\ 1054}# - (apply (lambda (#{_\ 1055}# - #{name\ 1056}# - #{args\ 1057}# - #{e1\ 1058}# - #{e2\ 1059}#) - (if (#{id?\ 361}# - #{name\ 1056}#) - (#{valid-bound-ids?\ 386}# - (#{lambda-var-list\ 412}# - #{args\ 1057}#)) + #{name\ 822}# + #{val\ 823}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#)) + #{tmp\ 817}#) + ((lambda (#{tmp\ 824}#) + (if (if #{tmp\ 824}# + (apply (lambda (#{_\ 825}# + #{name\ 826}# + #{args\ 827}# + #{e1\ 828}# + #{e2\ 829}#) + (if (#{id?\ 131}# + #{name\ 826}#) + (#{valid-bound-ids?\ 156}# + (#{lambda-var-list\ 182}# + #{args\ 827}#)) #f)) - #{tmp\ 1054}#) + #{tmp\ 824}#) #f) - (apply (lambda (#{_\ 1060}# - #{name\ 1061}# - #{args\ 1062}# - #{e1\ 1063}# - #{e2\ 1064}#) + (apply (lambda (#{_\ 830}# + #{name\ 831}# + #{args\ 832}# + #{e1\ 833}# + #{e2\ 834}#) (values 'define-form - (#{wrap\ 389}# - #{name\ 1061}# - #{w\ 1029}# - #{mod\ 1032}#) - (#{decorate-source\ 324}# + (#{wrap\ 159}# + #{name\ 831}# + #{w\ 799}# + #{mod\ 802}#) + (#{decorate-source\ 94}# (cons '#(syntax-object lambda ((top) @@ -3985,33 +3977,33 @@ "i"))) (hygiene guile)) - (#{wrap\ 389}# - (cons #{args\ 1062}# - (cons #{e1\ 1063}# - #{e2\ 1064}#)) - #{w\ 1029}# - #{mod\ 1032}#)) - #{s\ 1030}#) + (#{wrap\ 159}# + (cons #{args\ 832}# + (cons #{e1\ 833}# + #{e2\ 834}#)) + #{w\ 799}# + #{mod\ 802}#)) + #{s\ 800}#) '(()) - #{s\ 1030}# - #{mod\ 1032}#)) - #{tmp\ 1054}#) - ((lambda (#{tmp\ 1066}#) - (if (if #{tmp\ 1066}# - (apply (lambda (#{_\ 1067}# - #{name\ 1068}#) - (#{id?\ 361}# - #{name\ 1068}#)) - #{tmp\ 1066}#) + #{s\ 800}# + #{mod\ 802}#)) + #{tmp\ 824}#) + ((lambda (#{tmp\ 836}#) + (if (if #{tmp\ 836}# + (apply (lambda (#{_\ 837}# + #{name\ 838}#) + (#{id?\ 131}# + #{name\ 838}#)) + #{tmp\ 836}#) #f) - (apply (lambda (#{_\ 1069}# - #{name\ 1070}#) + (apply (lambda (#{_\ 839}# + #{name\ 840}#) (values 'define-form - (#{wrap\ 389}# - #{name\ 1070}# - #{w\ 1029}# - #{mod\ 1032}#) + (#{wrap\ 159}# + #{name\ 840}# + #{w\ 799}# + #{mod\ 802}#) '(#(syntax-object if ((top) @@ -5333,2122 +5325,2197 @@ (hygiene guile))) '(()) - #{s\ 1030}# - #{mod\ 1032}#)) - #{tmp\ 1066}#) + #{s\ 800}# + #{mod\ 802}#)) + #{tmp\ 836}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1046}#))) + #{tmp\ 816}#))) ($sc-dispatch - #{tmp\ 1046}# + #{tmp\ 816}# '(any any))))) ($sc-dispatch - #{tmp\ 1046}# + #{tmp\ 816}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 1046}# + #{tmp\ 816}# '(any any any)))) - #{e\ 1027}#) - (if (memv #{ftype\ 1038}# + #{e\ 797}#) + (if (memv #{ftype\ 808}# '(define-syntax)) - ((lambda (#{tmp\ 1071}#) - ((lambda (#{tmp\ 1072}#) - (if (if #{tmp\ 1072}# - (apply (lambda (#{_\ 1073}# - #{name\ 1074}# - #{val\ 1075}#) - (#{id?\ 361}# - #{name\ 1074}#)) - #{tmp\ 1072}#) + ((lambda (#{tmp\ 841}#) + ((lambda (#{tmp\ 842}#) + (if (if #{tmp\ 842}# + (apply (lambda (#{_\ 843}# + #{name\ 844}# + #{val\ 845}#) + (#{id?\ 131}# + #{name\ 844}#)) + #{tmp\ 842}#) #f) - (apply (lambda (#{_\ 1076}# - #{name\ 1077}# - #{val\ 1078}#) + (apply (lambda (#{_\ 846}# + #{name\ 847}# + #{val\ 848}#) (values 'define-syntax-form - #{name\ 1077}# - #{val\ 1078}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#)) - #{tmp\ 1072}#) + #{name\ 847}# + #{val\ 848}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#)) + #{tmp\ 842}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1071}#))) + #{tmp\ 841}#))) ($sc-dispatch - #{tmp\ 1071}# + #{tmp\ 841}# '(any any any)))) - #{e\ 1027}#) + #{e\ 797}#) (values 'call #f - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#)))))))))))))) - (if (#{syntax-object?\ 345}# #{e\ 1027}#) - (#{syntax-type\ 395}# - (#{syntax-object-expression\ 346}# #{e\ 1027}#) - #{r\ 1028}# - (#{join-wraps\ 380}# - #{w\ 1029}# - (#{syntax-object-wrap\ 347}# #{e\ 1027}#)) - #{s\ 1030}# - #{rib\ 1031}# - (let ((#{t\ 1079}# - (#{syntax-object-module\ 348}# #{e\ 1027}#))) - (if #{t\ 1079}# #{t\ 1079}# #{mod\ 1032}#)) - #{for-car?\ 1033}#) - (if (self-evaluating? #{e\ 1027}#) + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#)))))))))))))) + (if (#{syntax-object?\ 115}# #{e\ 797}#) + (#{syntax-type\ 165}# + (#{syntax-object-expression\ 116}# #{e\ 797}#) + #{r\ 798}# + (#{join-wraps\ 150}# + #{w\ 799}# + (#{syntax-object-wrap\ 117}# #{e\ 797}#)) + #{s\ 800}# + #{rib\ 801}# + (let ((#{t\ 849}# (#{syntax-object-module\ 118}# + #{e\ 797}#))) + (if #{t\ 849}# #{t\ 849}# #{mod\ 802}#)) + #{for-car?\ 803}#) + (if (self-evaluating? #{e\ 797}#) (values 'constant #f - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#) + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#) (values 'other #f - #{e\ 1027}# - #{w\ 1029}# - #{s\ 1030}# - #{mod\ 1032}#))))))) - (#{chi-when-list\ 394}# - (lambda (#{e\ 1080}# #{when-list\ 1081}# #{w\ 1082}#) - (letrec ((#{f\ 1083}# - (lambda (#{when-list\ 1084}# #{situations\ 1085}#) - (if (null? #{when-list\ 1084}#) - #{situations\ 1085}# - (#{f\ 1083}# - (cdr #{when-list\ 1084}#) - (cons (let ((#{x\ 1086}# - (car #{when-list\ 1084}#))) - (if (#{free-id=?\ 384}# - #{x\ 1086}# - '#(syntax-object - compile - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i" "i"))) - (hygiene guile))) - 'compile - (if (#{free-id=?\ 384}# - #{x\ 1086}# - '#(syntax-object - load - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f when-list situations) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - (define-structure - and-map*) - ((top) (top)) - ("i" "i"))) - (hygiene guile))) - 'load - (if (#{free-id=?\ 384}# - #{x\ 1086}# - '#(syntax-object - eval - ((top) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x) - #((top)) - #("i")) - #(ribcage () () ()) - #(ribcage - #(f - when-list - situations) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage () () ()) - #(ribcage - #(e when-list w) - #((top) (top) (top)) - #("i" "i" "i")) - #(ribcage - (lambda-var-list - gen-var - strip - chi-lambda-case - lambda*-formals - chi-simple-lambda - lambda-formals - ellipsis? - chi-void - eval-local-transformer - chi-local-syntax - chi-body - chi-macro - chi-application - chi-expr - chi - chi-top - syntax-type - chi-when-list - chi-install-global - chi-top-sequence - chi-sequence - source-wrap - wrap - bound-id-member? - distinct-bound-ids? - valid-bound-ids? - bound-id=? - free-id=? - id-var-name - same-marks? - join-marks - join-wraps - smart-append - make-binding-wrap - extend-ribcage! - make-empty-ribcage - new-mark - anti-mark - the-anti-mark - top-marked? - top-wrap - empty-wrap - set-ribcage-labels! - set-ribcage-marks! - set-ribcage-symnames! - ribcage-labels - ribcage-marks - ribcage-symnames - ribcage? - make-ribcage - gen-labels - gen-label - make-rename - rename-marks - rename-new - rename-old - subst-rename? - wrap-subst - wrap-marks - make-wrap - id-sym-name&marks - id-sym-name - id? - nonsymbol-id? - global-extend - lookup - macros-only-env - extend-var-env - extend-env - null-env - binding-value - binding-type - make-binding - arg-check - source-annotation - no-source - set-syntax-object-module! - set-syntax-object-wrap! - set-syntax-object-expression! - syntax-object-module - syntax-object-wrap - syntax-object-expression - syntax-object? - make-syntax-object - build-lexical-var - build-letrec - build-named-let - build-let - build-sequence - build-data - build-primref - build-lambda-case - build-case-lambda - build-simple-lambda - build-global-definition - maybe-name-value! - build-global-assignment - build-global-reference - analyze-variable - build-lexical-assignment - build-lexical-reference - build-conditional - build-application - build-void - decorate-source - get-global-definition-hook - put-global-definition-hook - gensym-hook - local-eval-hook - top-level-eval-hook - fx< - fx= - fx- - fx+ - *mode* - noexpand) - ((top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top) - (top)) - ("i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i" - "i")) - #(ribcage - (define-structure - and-map*) - ((top) (top)) - ("i" "i"))) - (hygiene guile))) - 'eval - (syntax-violation - 'eval-when - "invalid situation" - #{e\ 1080}# - (#{wrap\ 389}# - #{x\ 1086}# - #{w\ 1082}# - #f)))))) - #{situations\ 1085}#)))))) - (#{f\ 1083}# #{when-list\ 1081}# (quote ()))))) - (#{chi-install-global\ 393}# - (lambda (#{name\ 1087}# #{e\ 1088}#) - (#{build-global-definition\ 334}# + #{e\ 797}# + #{w\ 799}# + #{s\ 800}# + #{mod\ 802}#))))))) + (#{chi-when-list\ 164}# + (lambda (#{e\ 850}# #{when-list\ 851}# #{w\ 852}#) + (letrec ((#{f\ 853}# (lambda (#{when-list\ 854}# + #{situations\ 855}#) + (if (null? #{when-list\ 854}#) + #{situations\ 855}# + (#{f\ 853}# (cdr #{when-list\ 854}#) + (cons (let ((#{x\ 856}# (car #{when-list\ 854}#))) + (if (#{free-id=?\ 154}# + #{x\ 856}# + '#(syntax-object + compile + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + (define-structure + and-map*) + ((top) + (top)) + ("i" + "i"))) + (hygiene + guile))) + 'compile + (if (#{free-id=?\ 154}# + #{x\ 856}# + '#(syntax-object + load + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + (define-structure + and-map*) + ((top) + (top)) + ("i" + "i"))) + (hygiene + guile))) + 'load + (if (#{free-id=?\ 154}# + #{x\ 856}# + '#(syntax-object + eval + ((top) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(f + when-list + situations) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(e + when-list + w) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + chi-lambda-case + lambda*-formals + chi-simple-lambda + lambda-formals + ellipsis? + chi-void + eval-local-transformer + chi-local-syntax + chi-body + chi-macro + chi-application + chi-expr + chi + chi-top + syntax-type + chi-when-list + chi-install-global + chi-top-sequence + chi-sequence + source-wrap + wrap + bound-id-member? + distinct-bound-ids? + valid-bound-ids? + bound-id=? + free-id=? + id-var-name + same-marks? + join-marks + join-wraps + smart-append + make-binding-wrap + extend-ribcage! + make-empty-ribcage + new-mark + anti-mark + the-anti-mark + top-marked? + top-wrap + empty-wrap + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + gen-label + make-rename + rename-marks + rename-new + rename-old + subst-rename? + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-sym-name + id? + nonsymbol-id? + global-extend + lookup + macros-only-env + extend-var-env + extend-env + null-env + binding-value + binding-type + make-binding + arg-check + source-annotation + no-source + set-syntax-object-module! + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-module + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + build-lexical-var + build-letrec + build-named-let + build-let + build-sequence + build-data + build-primref + build-lambda-case + build-case-lambda + build-simple-lambda + build-global-definition + maybe-name-value! + build-global-assignment + build-global-reference + analyze-variable + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + build-void + decorate-source + get-global-definition-hook + put-global-definition-hook + gensym-hook + local-eval-hook + top-level-eval-hook + fx< + fx= + fx- + fx+ + *mode* + noexpand) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + (define-structure + and-map*) + ((top) + (top)) + ("i" + "i"))) + (hygiene + guile))) + 'eval + (syntax-violation + 'eval-when + "invalid situation" + #{e\ 850}# + (#{wrap\ 159}# + #{x\ 856}# + #{w\ 852}# + #f)))))) + #{situations\ 855}#)))))) + (#{f\ 853}# #{when-list\ 851}# (quote ()))))) + (#{chi-install-global\ 163}# + (lambda (#{name\ 857}# #{e\ 858}#) + (#{build-global-definition\ 104}# #f - #{name\ 1087}# - (if (let ((#{v\ 1089}# - (module-variable - (current-module) - #{name\ 1087}#))) - (if #{v\ 1089}# - (if (variable-bound? #{v\ 1089}#) - (if (macro? (variable-ref #{v\ 1089}#)) - (not (eq? (macro-type (variable-ref #{v\ 1089}#)) + #{name\ 857}# + (if (let ((#{v\ 859}# (module-variable + (current-module) + #{name\ 857}#))) + (if #{v\ 859}# + (if (variable-bound? #{v\ 859}#) + (if (macro? (variable-ref #{v\ 859}#)) + (not (eq? (macro-type (variable-ref #{v\ 859}#)) 'syncase-macro)) #f) #f) #f)) - (#{build-application\ 326}# + (#{build-application\ 96}# #f - (#{build-primref\ 338}# + (#{build-primref\ 108}# #f 'make-extended-syncase-macro) - (list (#{build-application\ 326}# + (list (#{build-application\ 96}# #f - (#{build-primref\ 338}# #f (quote module-ref)) - (list (#{build-application\ 326}# + (#{build-primref\ 108}# #f (quote module-ref)) + (list (#{build-application\ 96}# #f - (#{build-primref\ 338}# + (#{build-primref\ 108}# #f 'current-module) '()) - (#{build-data\ 339}# #f #{name\ 1087}#))) - (#{build-data\ 339}# #f (quote macro)) - #{e\ 1088}#)) - (#{build-application\ 326}# + (#{build-data\ 109}# #f #{name\ 857}#))) + (#{build-data\ 109}# #f (quote macro)) + #{e\ 858}#)) + (#{build-application\ 96}# #f - (#{build-primref\ 338}# + (#{build-primref\ 108}# #f 'make-syncase-macro) - (list (#{build-data\ 339}# #f (quote macro)) - #{e\ 1088}#)))))) - (#{chi-top-sequence\ 392}# - (lambda (#{body\ 1090}# - #{r\ 1091}# - #{w\ 1092}# - #{s\ 1093}# - #{m\ 1094}# - #{esew\ 1095}# - #{mod\ 1096}#) - (#{build-sequence\ 340}# - #{s\ 1093}# - (letrec ((#{dobody\ 1097}# - (lambda (#{body\ 1098}# - #{r\ 1099}# - #{w\ 1100}# - #{m\ 1101}# - #{esew\ 1102}# - #{mod\ 1103}#) - (if (null? #{body\ 1098}#) + (list (#{build-data\ 109}# #f (quote macro)) + #{e\ 858}#)))))) + (#{chi-top-sequence\ 162}# + (lambda (#{body\ 860}# + #{r\ 861}# + #{w\ 862}# + #{s\ 863}# + #{m\ 864}# + #{esew\ 865}# + #{mod\ 866}#) + (#{build-sequence\ 110}# + #{s\ 863}# + (letrec ((#{dobody\ 867}# + (lambda (#{body\ 868}# + #{r\ 869}# + #{w\ 870}# + #{m\ 871}# + #{esew\ 872}# + #{mod\ 873}#) + (if (null? #{body\ 868}#) '() - (let ((#{first\ 1104}# - (#{chi-top\ 396}# - (car #{body\ 1098}#) - #{r\ 1099}# - #{w\ 1100}# - #{m\ 1101}# - #{esew\ 1102}# - #{mod\ 1103}#))) - (cons #{first\ 1104}# - (#{dobody\ 1097}# - (cdr #{body\ 1098}#) - #{r\ 1099}# - #{w\ 1100}# - #{m\ 1101}# - #{esew\ 1102}# - #{mod\ 1103}#))))))) - (#{dobody\ 1097}# - #{body\ 1090}# - #{r\ 1091}# - #{w\ 1092}# - #{m\ 1094}# - #{esew\ 1095}# - #{mod\ 1096}#))))) - (#{chi-sequence\ 391}# - (lambda (#{body\ 1105}# - #{r\ 1106}# - #{w\ 1107}# - #{s\ 1108}# - #{mod\ 1109}#) - (#{build-sequence\ 340}# - #{s\ 1108}# - (letrec ((#{dobody\ 1110}# - (lambda (#{body\ 1111}# - #{r\ 1112}# - #{w\ 1113}# - #{mod\ 1114}#) - (if (null? #{body\ 1111}#) + (let ((#{first\ 874}# + (#{chi-top\ 166}# + (car #{body\ 868}#) + #{r\ 869}# + #{w\ 870}# + #{m\ 871}# + #{esew\ 872}# + #{mod\ 873}#))) + (cons #{first\ 874}# + (#{dobody\ 867}# + (cdr #{body\ 868}#) + #{r\ 869}# + #{w\ 870}# + #{m\ 871}# + #{esew\ 872}# + #{mod\ 873}#))))))) + (#{dobody\ 867}# + #{body\ 860}# + #{r\ 861}# + #{w\ 862}# + #{m\ 864}# + #{esew\ 865}# + #{mod\ 866}#))))) + (#{chi-sequence\ 161}# + (lambda (#{body\ 875}# + #{r\ 876}# + #{w\ 877}# + #{s\ 878}# + #{mod\ 879}#) + (#{build-sequence\ 110}# + #{s\ 878}# + (letrec ((#{dobody\ 880}# + (lambda (#{body\ 881}# + #{r\ 882}# + #{w\ 883}# + #{mod\ 884}#) + (if (null? #{body\ 881}#) '() - (let ((#{first\ 1115}# - (#{chi\ 397}# - (car #{body\ 1111}#) - #{r\ 1112}# - #{w\ 1113}# - #{mod\ 1114}#))) - (cons #{first\ 1115}# - (#{dobody\ 1110}# - (cdr #{body\ 1111}#) - #{r\ 1112}# - #{w\ 1113}# - #{mod\ 1114}#))))))) - (#{dobody\ 1110}# - #{body\ 1105}# - #{r\ 1106}# - #{w\ 1107}# - #{mod\ 1109}#))))) - (#{source-wrap\ 390}# - (lambda (#{x\ 1116}# - #{w\ 1117}# - #{s\ 1118}# - #{defmod\ 1119}#) - (#{wrap\ 389}# - (#{decorate-source\ 324}# - #{x\ 1116}# - #{s\ 1118}#) - #{w\ 1117}# - #{defmod\ 1119}#))) - (#{wrap\ 389}# - (lambda (#{x\ 1120}# #{w\ 1121}# #{defmod\ 1122}#) - (if (if (null? (#{wrap-marks\ 364}# #{w\ 1121}#)) - (null? (#{wrap-subst\ 365}# #{w\ 1121}#)) + (let ((#{first\ 885}# + (#{chi\ 167}# + (car #{body\ 881}#) + #{r\ 882}# + #{w\ 883}# + #{mod\ 884}#))) + (cons #{first\ 885}# + (#{dobody\ 880}# + (cdr #{body\ 881}#) + #{r\ 882}# + #{w\ 883}# + #{mod\ 884}#))))))) + (#{dobody\ 880}# + #{body\ 875}# + #{r\ 876}# + #{w\ 877}# + #{mod\ 879}#))))) + (#{source-wrap\ 160}# + (lambda (#{x\ 886}# + #{w\ 887}# + #{s\ 888}# + #{defmod\ 889}#) + (#{wrap\ 159}# + (#{decorate-source\ 94}# #{x\ 886}# #{s\ 888}#) + #{w\ 887}# + #{defmod\ 889}#))) + (#{wrap\ 159}# + (lambda (#{x\ 890}# #{w\ 891}# #{defmod\ 892}#) + (if (if (null? (#{wrap-marks\ 134}# #{w\ 891}#)) + (null? (#{wrap-subst\ 135}# #{w\ 891}#)) #f) - #{x\ 1120}# - (if (#{syntax-object?\ 345}# #{x\ 1120}#) - (#{make-syntax-object\ 344}# - (#{syntax-object-expression\ 346}# #{x\ 1120}#) - (#{join-wraps\ 380}# - #{w\ 1121}# - (#{syntax-object-wrap\ 347}# #{x\ 1120}#)) - (#{syntax-object-module\ 348}# #{x\ 1120}#)) - (if (null? #{x\ 1120}#) - #{x\ 1120}# - (#{make-syntax-object\ 344}# - #{x\ 1120}# - #{w\ 1121}# - #{defmod\ 1122}#)))))) - (#{bound-id-member?\ 388}# - (lambda (#{x\ 1123}# #{list\ 1124}#) - (if (not (null? #{list\ 1124}#)) - (let ((#{t\ 1125}# - (#{bound-id=?\ 385}# - #{x\ 1123}# - (car #{list\ 1124}#)))) - (if #{t\ 1125}# - #{t\ 1125}# - (#{bound-id-member?\ 388}# - #{x\ 1123}# - (cdr #{list\ 1124}#)))) + #{x\ 890}# + (if (#{syntax-object?\ 115}# #{x\ 890}#) + (#{make-syntax-object\ 114}# + (#{syntax-object-expression\ 116}# #{x\ 890}#) + (#{join-wraps\ 150}# + #{w\ 891}# + (#{syntax-object-wrap\ 117}# #{x\ 890}#)) + (#{syntax-object-module\ 118}# #{x\ 890}#)) + (if (null? #{x\ 890}#) + #{x\ 890}# + (#{make-syntax-object\ 114}# + #{x\ 890}# + #{w\ 891}# + #{defmod\ 892}#)))))) + (#{bound-id-member?\ 158}# + (lambda (#{x\ 893}# #{list\ 894}#) + (if (not (null? #{list\ 894}#)) + (let ((#{t\ 895}# (#{bound-id=?\ 155}# + #{x\ 893}# + (car #{list\ 894}#)))) + (if #{t\ 895}# + #{t\ 895}# + (#{bound-id-member?\ 158}# + #{x\ 893}# + (cdr #{list\ 894}#)))) #f))) - (#{distinct-bound-ids?\ 387}# - (lambda (#{ids\ 1126}#) - (letrec ((#{distinct?\ 1127}# - (lambda (#{ids\ 1128}#) - (let ((#{t\ 1129}# (null? #{ids\ 1128}#))) - (if #{t\ 1129}# - #{t\ 1129}# - (if (not (#{bound-id-member?\ 388}# - (car #{ids\ 1128}#) - (cdr #{ids\ 1128}#))) - (#{distinct?\ 1127}# (cdr #{ids\ 1128}#)) + (#{distinct-bound-ids?\ 157}# + (lambda (#{ids\ 896}#) + (letrec ((#{distinct?\ 897}# + (lambda (#{ids\ 898}#) + (let ((#{t\ 899}# (null? #{ids\ 898}#))) + (if #{t\ 899}# + #{t\ 899}# + (if (not (#{bound-id-member?\ 158}# + (car #{ids\ 898}#) + (cdr #{ids\ 898}#))) + (#{distinct?\ 897}# (cdr #{ids\ 898}#)) #f)))))) - (#{distinct?\ 1127}# #{ids\ 1126}#)))) - (#{valid-bound-ids?\ 386}# - (lambda (#{ids\ 1130}#) - (if (letrec ((#{all-ids?\ 1131}# - (lambda (#{ids\ 1132}#) - (let ((#{t\ 1133}# (null? #{ids\ 1132}#))) - (if #{t\ 1133}# - #{t\ 1133}# - (if (#{id?\ 361}# (car #{ids\ 1132}#)) - (#{all-ids?\ 1131}# (cdr #{ids\ 1132}#)) + (#{distinct?\ 897}# #{ids\ 896}#)))) + (#{valid-bound-ids?\ 156}# + (lambda (#{ids\ 900}#) + (if (letrec ((#{all-ids?\ 901}# + (lambda (#{ids\ 902}#) + (let ((#{t\ 903}# (null? #{ids\ 902}#))) + (if #{t\ 903}# + #{t\ 903}# + (if (#{id?\ 131}# (car #{ids\ 902}#)) + (#{all-ids?\ 901}# (cdr #{ids\ 902}#)) #f)))))) - (#{all-ids?\ 1131}# #{ids\ 1130}#)) - (#{distinct-bound-ids?\ 387}# #{ids\ 1130}#) + (#{all-ids?\ 901}# #{ids\ 900}#)) + (#{distinct-bound-ids?\ 157}# #{ids\ 900}#) #f))) - (#{bound-id=?\ 385}# - (lambda (#{i\ 1134}# #{j\ 1135}#) - (if (if (#{syntax-object?\ 345}# #{i\ 1134}#) - (#{syntax-object?\ 345}# #{j\ 1135}#) + (#{bound-id=?\ 155}# + (lambda (#{i\ 904}# #{j\ 905}#) + (if (if (#{syntax-object?\ 115}# #{i\ 904}#) + (#{syntax-object?\ 115}# #{j\ 905}#) #f) - (if (eq? (#{syntax-object-expression\ 346}# #{i\ 1134}#) - (#{syntax-object-expression\ 346}# #{j\ 1135}#)) - (#{same-marks?\ 382}# - (#{wrap-marks\ 364}# - (#{syntax-object-wrap\ 347}# #{i\ 1134}#)) - (#{wrap-marks\ 364}# - (#{syntax-object-wrap\ 347}# #{j\ 1135}#))) + (if (eq? (#{syntax-object-expression\ 116}# #{i\ 904}#) + (#{syntax-object-expression\ 116}# #{j\ 905}#)) + (#{same-marks?\ 152}# + (#{wrap-marks\ 134}# + (#{syntax-object-wrap\ 117}# #{i\ 904}#)) + (#{wrap-marks\ 134}# + (#{syntax-object-wrap\ 117}# #{j\ 905}#))) #f) - (eq? #{i\ 1134}# #{j\ 1135}#)))) - (#{free-id=?\ 384}# - (lambda (#{i\ 1136}# #{j\ 1137}#) - (if (eq? (let ((#{x\ 1138}# #{i\ 1136}#)) - (if (#{syntax-object?\ 345}# #{x\ 1138}#) - (#{syntax-object-expression\ 346}# #{x\ 1138}#) - #{x\ 1138}#)) - (let ((#{x\ 1139}# #{j\ 1137}#)) - (if (#{syntax-object?\ 345}# #{x\ 1139}#) - (#{syntax-object-expression\ 346}# #{x\ 1139}#) - #{x\ 1139}#))) - (eq? (#{id-var-name\ 383}# #{i\ 1136}# (quote (()))) - (#{id-var-name\ 383}# #{j\ 1137}# (quote (())))) + (eq? #{i\ 904}# #{j\ 905}#)))) + (#{free-id=?\ 154}# + (lambda (#{i\ 906}# #{j\ 907}#) + (if (eq? (let ((#{x\ 908}# #{i\ 906}#)) + (if (#{syntax-object?\ 115}# #{x\ 908}#) + (#{syntax-object-expression\ 116}# #{x\ 908}#) + #{x\ 908}#)) + (let ((#{x\ 909}# #{j\ 907}#)) + (if (#{syntax-object?\ 115}# #{x\ 909}#) + (#{syntax-object-expression\ 116}# #{x\ 909}#) + #{x\ 909}#))) + (eq? (#{id-var-name\ 153}# #{i\ 906}# (quote (()))) + (#{id-var-name\ 153}# #{j\ 907}# (quote (())))) #f))) - (#{id-var-name\ 383}# - (lambda (#{id\ 1140}# #{w\ 1141}#) - (letrec ((#{search-vector-rib\ 1144}# - (lambda (#{sym\ 1150}# - #{subst\ 1151}# - #{marks\ 1152}# - #{symnames\ 1153}# - #{ribcage\ 1154}#) - (let ((#{n\ 1155}# - (vector-length #{symnames\ 1153}#))) - (letrec ((#{f\ 1156}# - (lambda (#{i\ 1157}#) - (if (#{fx=\ 318}# - #{i\ 1157}# - #{n\ 1155}#) - (#{search\ 1142}# - #{sym\ 1150}# - (cdr #{subst\ 1151}#) - #{marks\ 1152}#) - (if (if (eq? (vector-ref - #{symnames\ 1153}# - #{i\ 1157}#) - #{sym\ 1150}#) - (#{same-marks?\ 382}# - #{marks\ 1152}# - (vector-ref - (#{ribcage-marks\ 371}# - #{ribcage\ 1154}#) - #{i\ 1157}#)) - #f) - (values - (vector-ref - (#{ribcage-labels\ 372}# - #{ribcage\ 1154}#) - #{i\ 1157}#) - #{marks\ 1152}#) - (#{f\ 1156}# - (#{fx+\ 316}# - #{i\ 1157}# - 1))))))) - (#{f\ 1156}# 0))))) - (#{search-list-rib\ 1143}# - (lambda (#{sym\ 1158}# - #{subst\ 1159}# - #{marks\ 1160}# - #{symnames\ 1161}# - #{ribcage\ 1162}#) - (letrec ((#{f\ 1163}# - (lambda (#{symnames\ 1164}# #{i\ 1165}#) - (if (null? #{symnames\ 1164}#) - (#{search\ 1142}# - #{sym\ 1158}# - (cdr #{subst\ 1159}#) - #{marks\ 1160}#) - (if (if (eq? (car #{symnames\ 1164}#) - #{sym\ 1158}#) - (#{same-marks?\ 382}# - #{marks\ 1160}# - (list-ref - (#{ribcage-marks\ 371}# - #{ribcage\ 1162}#) - #{i\ 1165}#)) - #f) - (values - (list-ref - (#{ribcage-labels\ 372}# - #{ribcage\ 1162}#) - #{i\ 1165}#) - #{marks\ 1160}#) - (#{f\ 1163}# - (cdr #{symnames\ 1164}#) - (#{fx+\ 316}# - #{i\ 1165}# - 1))))))) - (#{f\ 1163}# #{symnames\ 1161}# 0)))) - (#{search\ 1142}# - (lambda (#{sym\ 1166}# - #{subst\ 1167}# - #{marks\ 1168}#) - (if (null? #{subst\ 1167}#) - (values #f #{marks\ 1168}#) - (let ((#{fst\ 1169}# (car #{subst\ 1167}#))) - (if (eq? #{fst\ 1169}# (quote shift)) - (#{search\ 1142}# - #{sym\ 1166}# - (cdr #{subst\ 1167}#) - (cdr #{marks\ 1168}#)) - (let ((#{symnames\ 1170}# - (#{ribcage-symnames\ 370}# - #{fst\ 1169}#))) - (if (vector? #{symnames\ 1170}#) - (#{search-vector-rib\ 1144}# - #{sym\ 1166}# - #{subst\ 1167}# - #{marks\ 1168}# - #{symnames\ 1170}# - #{fst\ 1169}#) - (#{search-list-rib\ 1143}# - #{sym\ 1166}# - #{subst\ 1167}# - #{marks\ 1168}# - #{symnames\ 1170}# - #{fst\ 1169}#))))))))) - (if (symbol? #{id\ 1140}#) - (let ((#{t\ 1171}# - (call-with-values - (lambda () - (#{search\ 1142}# - #{id\ 1140}# - (#{wrap-subst\ 365}# #{w\ 1141}#) - (#{wrap-marks\ 364}# #{w\ 1141}#))) - (lambda (#{x\ 1172}# . #{ignore\ 1173}#) - #{x\ 1172}#)))) - (if #{t\ 1171}# #{t\ 1171}# #{id\ 1140}#)) - (if (#{syntax-object?\ 345}# #{id\ 1140}#) - (let ((#{id\ 1174}# - (#{syntax-object-expression\ 346}# #{id\ 1140}#)) - (#{w1\ 1175}# - (#{syntax-object-wrap\ 347}# #{id\ 1140}#))) - (let ((#{marks\ 1176}# - (#{join-marks\ 381}# - (#{wrap-marks\ 364}# #{w\ 1141}#) - (#{wrap-marks\ 364}# #{w1\ 1175}#)))) + (#{id-var-name\ 153}# + (lambda (#{id\ 910}# #{w\ 911}#) + (letrec ((#{search-vector-rib\ 914}# + (lambda (#{sym\ 920}# + #{subst\ 921}# + #{marks\ 922}# + #{symnames\ 923}# + #{ribcage\ 924}#) + (let ((#{n\ 925}# (vector-length + #{symnames\ 923}#))) + (letrec ((#{f\ 926}# (lambda (#{i\ 927}#) + (if (#{fx=\ 88}# + #{i\ 927}# + #{n\ 925}#) + (#{search\ 912}# + #{sym\ 920}# + (cdr #{subst\ 921}#) + #{marks\ 922}#) + (if (if (eq? (vector-ref + #{symnames\ 923}# + #{i\ 927}#) + #{sym\ 920}#) + (#{same-marks?\ 152}# + #{marks\ 922}# + (vector-ref + (#{ribcage-marks\ 141}# + #{ribcage\ 924}#) + #{i\ 927}#)) + #f) + (values + (vector-ref + (#{ribcage-labels\ 142}# + #{ribcage\ 924}#) + #{i\ 927}#) + #{marks\ 922}#) + (#{f\ 926}# (#{fx+\ 86}# + #{i\ 927}# + 1))))))) + (#{f\ 926}# 0))))) + (#{search-list-rib\ 913}# + (lambda (#{sym\ 928}# + #{subst\ 929}# + #{marks\ 930}# + #{symnames\ 931}# + #{ribcage\ 932}#) + (letrec ((#{f\ 933}# (lambda (#{symnames\ 934}# + #{i\ 935}#) + (if (null? #{symnames\ 934}#) + (#{search\ 912}# + #{sym\ 928}# + (cdr #{subst\ 929}#) + #{marks\ 930}#) + (if (if (eq? (car #{symnames\ 934}#) + #{sym\ 928}#) + (#{same-marks?\ 152}# + #{marks\ 930}# + (list-ref + (#{ribcage-marks\ 141}# + #{ribcage\ 932}#) + #{i\ 935}#)) + #f) + (values + (list-ref + (#{ribcage-labels\ 142}# + #{ribcage\ 932}#) + #{i\ 935}#) + #{marks\ 930}#) + (#{f\ 933}# (cdr #{symnames\ 934}#) + (#{fx+\ 86}# + #{i\ 935}# + 1))))))) + (#{f\ 933}# #{symnames\ 931}# 0)))) + (#{search\ 912}# + (lambda (#{sym\ 936}# #{subst\ 937}# #{marks\ 938}#) + (if (null? #{subst\ 937}#) + (values #f #{marks\ 938}#) + (let ((#{fst\ 939}# (car #{subst\ 937}#))) + (if (eq? #{fst\ 939}# (quote shift)) + (#{search\ 912}# + #{sym\ 936}# + (cdr #{subst\ 937}#) + (cdr #{marks\ 938}#)) + (let ((#{symnames\ 940}# + (#{ribcage-symnames\ 140}# + #{fst\ 939}#))) + (if (vector? #{symnames\ 940}#) + (#{search-vector-rib\ 914}# + #{sym\ 936}# + #{subst\ 937}# + #{marks\ 938}# + #{symnames\ 940}# + #{fst\ 939}#) + (#{search-list-rib\ 913}# + #{sym\ 936}# + #{subst\ 937}# + #{marks\ 938}# + #{symnames\ 940}# + #{fst\ 939}#))))))))) + (if (symbol? #{id\ 910}#) + (let ((#{t\ 941}# (call-with-values + (lambda () + (#{search\ 912}# + #{id\ 910}# + (#{wrap-subst\ 135}# #{w\ 911}#) + (#{wrap-marks\ 134}# #{w\ 911}#))) + (lambda (#{x\ 942}# . #{ignore\ 943}#) + #{x\ 942}#)))) + (if #{t\ 941}# #{t\ 941}# #{id\ 910}#)) + (if (#{syntax-object?\ 115}# #{id\ 910}#) + (let ((#{id\ 944}# + (#{syntax-object-expression\ 116}# #{id\ 910}#)) + (#{w1\ 945}# + (#{syntax-object-wrap\ 117}# #{id\ 910}#))) + (let ((#{marks\ 946}# + (#{join-marks\ 151}# + (#{wrap-marks\ 134}# #{w\ 911}#) + (#{wrap-marks\ 134}# #{w1\ 945}#)))) (call-with-values (lambda () - (#{search\ 1142}# - #{id\ 1174}# - (#{wrap-subst\ 365}# #{w\ 1141}#) - #{marks\ 1176}#)) - (lambda (#{new-id\ 1177}# #{marks\ 1178}#) - (let ((#{t\ 1179}# #{new-id\ 1177}#)) - (if #{t\ 1179}# - #{t\ 1179}# - (let ((#{t\ 1180}# - (call-with-values - (lambda () - (#{search\ 1142}# - #{id\ 1174}# - (#{wrap-subst\ 365}# - #{w1\ 1175}#) - #{marks\ 1178}#)) - (lambda (#{x\ 1181}# - . - #{ignore\ 1182}#) - #{x\ 1181}#)))) - (if #{t\ 1180}# - #{t\ 1180}# - #{id\ 1174}#)))))))) + (#{search\ 912}# + #{id\ 944}# + (#{wrap-subst\ 135}# #{w\ 911}#) + #{marks\ 946}#)) + (lambda (#{new-id\ 947}# #{marks\ 948}#) + (let ((#{t\ 949}# #{new-id\ 947}#)) + (if #{t\ 949}# + #{t\ 949}# + (let ((#{t\ 950}# (call-with-values + (lambda () + (#{search\ 912}# + #{id\ 944}# + (#{wrap-subst\ 135}# + #{w1\ 945}#) + #{marks\ 948}#)) + (lambda (#{x\ 951}# + . + #{ignore\ 952}#) + #{x\ 951}#)))) + (if #{t\ 950}# + #{t\ 950}# + #{id\ 944}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 1140}#)))))) - (#{same-marks?\ 382}# - (lambda (#{x\ 1183}# #{y\ 1184}#) - (let ((#{t\ 1185}# (eq? #{x\ 1183}# #{y\ 1184}#))) - (if #{t\ 1185}# - #{t\ 1185}# - (if (not (null? #{x\ 1183}#)) - (if (not (null? #{y\ 1184}#)) - (if (eq? (car #{x\ 1183}#) (car #{y\ 1184}#)) - (#{same-marks?\ 382}# - (cdr #{x\ 1183}#) - (cdr #{y\ 1184}#)) + #{id\ 910}#)))))) + (#{same-marks?\ 152}# + (lambda (#{x\ 953}# #{y\ 954}#) + (let ((#{t\ 955}# (eq? #{x\ 953}# #{y\ 954}#))) + (if #{t\ 955}# + #{t\ 955}# + (if (not (null? #{x\ 953}#)) + (if (not (null? #{y\ 954}#)) + (if (eq? (car #{x\ 953}#) (car #{y\ 954}#)) + (#{same-marks?\ 152}# + (cdr #{x\ 953}#) + (cdr #{y\ 954}#)) #f) #f) #f))))) - (#{join-marks\ 381}# - (lambda (#{m1\ 1186}# #{m2\ 1187}#) - (#{smart-append\ 379}# #{m1\ 1186}# #{m2\ 1187}#))) - (#{join-wraps\ 380}# - (lambda (#{w1\ 1188}# #{w2\ 1189}#) - (let ((#{m1\ 1190}# (#{wrap-marks\ 364}# #{w1\ 1188}#)) - (#{s1\ 1191}# (#{wrap-subst\ 365}# #{w1\ 1188}#))) - (if (null? #{m1\ 1190}#) - (if (null? #{s1\ 1191}#) - #{w2\ 1189}# - (#{make-wrap\ 363}# - (#{wrap-marks\ 364}# #{w2\ 1189}#) - (#{smart-append\ 379}# - #{s1\ 1191}# - (#{wrap-subst\ 365}# #{w2\ 1189}#)))) - (#{make-wrap\ 363}# - (#{smart-append\ 379}# - #{m1\ 1190}# - (#{wrap-marks\ 364}# #{w2\ 1189}#)) - (#{smart-append\ 379}# - #{s1\ 1191}# - (#{wrap-subst\ 365}# #{w2\ 1189}#))))))) - (#{smart-append\ 379}# - (lambda (#{m1\ 1192}# #{m2\ 1193}#) - (if (null? #{m2\ 1193}#) - #{m1\ 1192}# - (append #{m1\ 1192}# #{m2\ 1193}#)))) - (#{make-binding-wrap\ 378}# - (lambda (#{ids\ 1194}# #{labels\ 1195}# #{w\ 1196}#) - (if (null? #{ids\ 1194}#) - #{w\ 1196}# - (#{make-wrap\ 363}# - (#{wrap-marks\ 364}# #{w\ 1196}#) - (cons (let ((#{labelvec\ 1197}# - (list->vector #{labels\ 1195}#))) - (let ((#{n\ 1198}# - (vector-length #{labelvec\ 1197}#))) - (let ((#{symnamevec\ 1199}# - (make-vector #{n\ 1198}#)) - (#{marksvec\ 1200}# - (make-vector #{n\ 1198}#))) + (#{join-marks\ 151}# + (lambda (#{m1\ 956}# #{m2\ 957}#) + (#{smart-append\ 149}# #{m1\ 956}# #{m2\ 957}#))) + (#{join-wraps\ 150}# + (lambda (#{w1\ 958}# #{w2\ 959}#) + (let ((#{m1\ 960}# (#{wrap-marks\ 134}# #{w1\ 958}#)) + (#{s1\ 961}# (#{wrap-subst\ 135}# #{w1\ 958}#))) + (if (null? #{m1\ 960}#) + (if (null? #{s1\ 961}#) + #{w2\ 959}# + (#{make-wrap\ 133}# + (#{wrap-marks\ 134}# #{w2\ 959}#) + (#{smart-append\ 149}# + #{s1\ 961}# + (#{wrap-subst\ 135}# #{w2\ 959}#)))) + (#{make-wrap\ 133}# + (#{smart-append\ 149}# + #{m1\ 960}# + (#{wrap-marks\ 134}# #{w2\ 959}#)) + (#{smart-append\ 149}# + #{s1\ 961}# + (#{wrap-subst\ 135}# #{w2\ 959}#))))))) + (#{smart-append\ 149}# + (lambda (#{m1\ 962}# #{m2\ 963}#) + (if (null? #{m2\ 963}#) + #{m1\ 962}# + (append #{m1\ 962}# #{m2\ 963}#)))) + (#{make-binding-wrap\ 148}# + (lambda (#{ids\ 964}# #{labels\ 965}# #{w\ 966}#) + (if (null? #{ids\ 964}#) + #{w\ 966}# + (#{make-wrap\ 133}# + (#{wrap-marks\ 134}# #{w\ 966}#) + (cons (let ((#{labelvec\ 967}# + (list->vector #{labels\ 965}#))) + (let ((#{n\ 968}# (vector-length + #{labelvec\ 967}#))) + (let ((#{symnamevec\ 969}# + (make-vector #{n\ 968}#)) + (#{marksvec\ 970}# + (make-vector #{n\ 968}#))) (begin - (letrec ((#{f\ 1201}# - (lambda (#{ids\ 1202}# #{i\ 1203}#) - (if (not (null? #{ids\ 1202}#)) - (call-with-values - (lambda () - (#{id-sym-name&marks\ 362}# - (car #{ids\ 1202}#) - #{w\ 1196}#)) - (lambda (#{symname\ 1204}# - #{marks\ 1205}#) - (begin - (vector-set! - #{symnamevec\ 1199}# - #{i\ 1203}# - #{symname\ 1204}#) - (vector-set! - #{marksvec\ 1200}# - #{i\ 1203}# - #{marks\ 1205}#) - (#{f\ 1201}# - (cdr #{ids\ 1202}#) - (#{fx+\ 316}# - #{i\ 1203}# - 1))))))))) - (#{f\ 1201}# #{ids\ 1194}# 0)) - (#{make-ribcage\ 368}# - #{symnamevec\ 1199}# - #{marksvec\ 1200}# - #{labelvec\ 1197}#))))) - (#{wrap-subst\ 365}# #{w\ 1196}#)))))) - (#{extend-ribcage!\ 377}# - (lambda (#{ribcage\ 1206}# #{id\ 1207}# #{label\ 1208}#) + (letrec ((#{f\ 971}# (lambda (#{ids\ 972}# + #{i\ 973}#) + (if (not (null? #{ids\ 972}#)) + (call-with-values + (lambda () + (#{id-sym-name&marks\ 132}# + (car #{ids\ 972}#) + #{w\ 966}#)) + (lambda (#{symname\ 974}# + #{marks\ 975}#) + (begin + (vector-set! + #{symnamevec\ 969}# + #{i\ 973}# + #{symname\ 974}#) + (vector-set! + #{marksvec\ 970}# + #{i\ 973}# + #{marks\ 975}#) + (#{f\ 971}# (cdr #{ids\ 972}#) + (#{fx+\ 86}# + #{i\ 973}# + 1))))))))) + (#{f\ 971}# #{ids\ 964}# 0)) + (#{make-ribcage\ 138}# + #{symnamevec\ 969}# + #{marksvec\ 970}# + #{labelvec\ 967}#))))) + (#{wrap-subst\ 135}# #{w\ 966}#)))))) + (#{extend-ribcage!\ 147}# + (lambda (#{ribcage\ 976}# #{id\ 977}# #{label\ 978}#) (begin - (#{set-ribcage-symnames!\ 373}# - #{ribcage\ 1206}# - (cons (#{syntax-object-expression\ 346}# #{id\ 1207}#) - (#{ribcage-symnames\ 370}# #{ribcage\ 1206}#))) - (#{set-ribcage-marks!\ 374}# - #{ribcage\ 1206}# - (cons (#{wrap-marks\ 364}# - (#{syntax-object-wrap\ 347}# #{id\ 1207}#)) - (#{ribcage-marks\ 371}# #{ribcage\ 1206}#))) - (#{set-ribcage-labels!\ 375}# - #{ribcage\ 1206}# - (cons #{label\ 1208}# - (#{ribcage-labels\ 372}# #{ribcage\ 1206}#)))))) - (#{anti-mark\ 376}# - (lambda (#{w\ 1209}#) - (#{make-wrap\ 363}# - (cons #f (#{wrap-marks\ 364}# #{w\ 1209}#)) + (#{set-ribcage-symnames!\ 143}# + #{ribcage\ 976}# + (cons (#{syntax-object-expression\ 116}# #{id\ 977}#) + (#{ribcage-symnames\ 140}# #{ribcage\ 976}#))) + (#{set-ribcage-marks!\ 144}# + #{ribcage\ 976}# + (cons (#{wrap-marks\ 134}# + (#{syntax-object-wrap\ 117}# #{id\ 977}#)) + (#{ribcage-marks\ 141}# #{ribcage\ 976}#))) + (#{set-ribcage-labels!\ 145}# + #{ribcage\ 976}# + (cons #{label\ 978}# + (#{ribcage-labels\ 142}# #{ribcage\ 976}#)))))) + (#{anti-mark\ 146}# + (lambda (#{w\ 979}#) + (#{make-wrap\ 133}# + (cons #f (#{wrap-marks\ 134}# #{w\ 979}#)) (cons 'shift - (#{wrap-subst\ 365}# #{w\ 1209}#))))) - (#{set-ribcage-labels!\ 375}# - (lambda (#{x\ 1210}# #{update\ 1211}#) - (vector-set! #{x\ 1210}# 3 #{update\ 1211}#))) - (#{set-ribcage-marks!\ 374}# - (lambda (#{x\ 1212}# #{update\ 1213}#) - (vector-set! #{x\ 1212}# 2 #{update\ 1213}#))) - (#{set-ribcage-symnames!\ 373}# - (lambda (#{x\ 1214}# #{update\ 1215}#) - (vector-set! #{x\ 1214}# 1 #{update\ 1215}#))) - (#{ribcage-labels\ 372}# - (lambda (#{x\ 1216}#) (vector-ref #{x\ 1216}# 3))) - (#{ribcage-marks\ 371}# - (lambda (#{x\ 1217}#) (vector-ref #{x\ 1217}# 2))) - (#{ribcage-symnames\ 370}# - (lambda (#{x\ 1218}#) (vector-ref #{x\ 1218}# 1))) - (#{ribcage?\ 369}# - (lambda (#{x\ 1219}#) - (if (vector? #{x\ 1219}#) - (if (= (vector-length #{x\ 1219}#) 4) - (eq? (vector-ref #{x\ 1219}# 0) (quote ribcage)) + (#{wrap-subst\ 135}# #{w\ 979}#))))) + (#{set-ribcage-labels!\ 145}# + (lambda (#{x\ 980}# #{update\ 981}#) + (vector-set! #{x\ 980}# 3 #{update\ 981}#))) + (#{set-ribcage-marks!\ 144}# + (lambda (#{x\ 982}# #{update\ 983}#) + (vector-set! #{x\ 982}# 2 #{update\ 983}#))) + (#{set-ribcage-symnames!\ 143}# + (lambda (#{x\ 984}# #{update\ 985}#) + (vector-set! #{x\ 984}# 1 #{update\ 985}#))) + (#{ribcage-labels\ 142}# + (lambda (#{x\ 986}#) (vector-ref #{x\ 986}# 3))) + (#{ribcage-marks\ 141}# + (lambda (#{x\ 987}#) (vector-ref #{x\ 987}# 2))) + (#{ribcage-symnames\ 140}# + (lambda (#{x\ 988}#) (vector-ref #{x\ 988}# 1))) + (#{ribcage?\ 139}# + (lambda (#{x\ 989}#) + (if (vector? #{x\ 989}#) + (if (= (vector-length #{x\ 989}#) 4) + (eq? (vector-ref #{x\ 989}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 368}# - (lambda (#{symnames\ 1220}# - #{marks\ 1221}# - #{labels\ 1222}#) + (#{make-ribcage\ 138}# + (lambda (#{symnames\ 990}# + #{marks\ 991}# + #{labels\ 992}#) (vector 'ribcage - #{symnames\ 1220}# - #{marks\ 1221}# - #{labels\ 1222}#))) - (#{gen-labels\ 367}# - (lambda (#{ls\ 1223}#) - (if (null? #{ls\ 1223}#) + #{symnames\ 990}# + #{marks\ 991}# + #{labels\ 992}#))) + (#{gen-labels\ 137}# + (lambda (#{ls\ 993}#) + (if (null? #{ls\ 993}#) '() - (cons (#{gen-label\ 366}#) - (#{gen-labels\ 367}# (cdr #{ls\ 1223}#)))))) - (#{gen-label\ 366}# (lambda () (string #\i))) - (#{wrap-subst\ 365}# cdr) - (#{wrap-marks\ 364}# car) - (#{make-wrap\ 363}# cons) - (#{id-sym-name&marks\ 362}# - (lambda (#{x\ 1224}# #{w\ 1225}#) - (if (#{syntax-object?\ 345}# #{x\ 1224}#) + (cons (#{gen-label\ 136}#) + (#{gen-labels\ 137}# (cdr #{ls\ 993}#)))))) + (#{gen-label\ 136}# (lambda () (string #\i))) + (#{wrap-subst\ 135}# cdr) + (#{wrap-marks\ 134}# car) + (#{make-wrap\ 133}# cons) + (#{id-sym-name&marks\ 132}# + (lambda (#{x\ 994}# #{w\ 995}#) + (if (#{syntax-object?\ 115}# #{x\ 994}#) (values - (#{syntax-object-expression\ 346}# #{x\ 1224}#) - (#{join-marks\ 381}# - (#{wrap-marks\ 364}# #{w\ 1225}#) - (#{wrap-marks\ 364}# - (#{syntax-object-wrap\ 347}# #{x\ 1224}#)))) + (#{syntax-object-expression\ 116}# #{x\ 994}#) + (#{join-marks\ 151}# + (#{wrap-marks\ 134}# #{w\ 995}#) + (#{wrap-marks\ 134}# + (#{syntax-object-wrap\ 117}# #{x\ 994}#)))) (values - #{x\ 1224}# - (#{wrap-marks\ 364}# #{w\ 1225}#))))) - (#{id?\ 361}# - (lambda (#{x\ 1226}#) - (if (symbol? #{x\ 1226}#) + #{x\ 994}# + (#{wrap-marks\ 134}# #{w\ 995}#))))) + (#{id?\ 131}# + (lambda (#{x\ 996}#) + (if (symbol? #{x\ 996}#) #t - (if (#{syntax-object?\ 345}# #{x\ 1226}#) + (if (#{syntax-object?\ 115}# #{x\ 996}#) (symbol? - (#{syntax-object-expression\ 346}# #{x\ 1226}#)) + (#{syntax-object-expression\ 116}# #{x\ 996}#)) #f)))) - (#{nonsymbol-id?\ 360}# - (lambda (#{x\ 1227}#) - (if (#{syntax-object?\ 345}# #{x\ 1227}#) + (#{nonsymbol-id?\ 130}# + (lambda (#{x\ 997}#) + (if (#{syntax-object?\ 115}# #{x\ 997}#) (symbol? - (#{syntax-object-expression\ 346}# #{x\ 1227}#)) + (#{syntax-object-expression\ 116}# #{x\ 997}#)) #f))) - (#{global-extend\ 359}# - (lambda (#{type\ 1228}# #{sym\ 1229}# #{val\ 1230}#) - (#{put-global-definition-hook\ 322}# - #{sym\ 1229}# - #{type\ 1228}# - #{val\ 1230}#))) - (#{lookup\ 358}# - (lambda (#{x\ 1231}# #{r\ 1232}# #{mod\ 1233}#) - (let ((#{t\ 1234}# (assq #{x\ 1231}# #{r\ 1232}#))) - (if #{t\ 1234}# - (cdr #{t\ 1234}#) - (if (symbol? #{x\ 1231}#) - (let ((#{t\ 1235}# - (#{get-global-definition-hook\ 323}# - #{x\ 1231}# - #{mod\ 1233}#))) - (if #{t\ 1235}# #{t\ 1235}# (quote (global)))) + (#{global-extend\ 129}# + (lambda (#{type\ 998}# #{sym\ 999}# #{val\ 1000}#) + (#{put-global-definition-hook\ 92}# + #{sym\ 999}# + #{type\ 998}# + #{val\ 1000}#))) + (#{lookup\ 128}# + (lambda (#{x\ 1001}# #{r\ 1002}# #{mod\ 1003}#) + (let ((#{t\ 1004}# (assq #{x\ 1001}# #{r\ 1002}#))) + (if #{t\ 1004}# + (cdr #{t\ 1004}#) + (if (symbol? #{x\ 1001}#) + (let ((#{t\ 1005}# + (#{get-global-definition-hook\ 93}# + #{x\ 1001}# + #{mod\ 1003}#))) + (if #{t\ 1005}# #{t\ 1005}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 357}# - (lambda (#{r\ 1236}#) - (if (null? #{r\ 1236}#) + (#{macros-only-env\ 127}# + (lambda (#{r\ 1006}#) + (if (null? #{r\ 1006}#) '() - (let ((#{a\ 1237}# (car #{r\ 1236}#))) - (if (eq? (cadr #{a\ 1237}#) (quote macro)) - (cons #{a\ 1237}# - (#{macros-only-env\ 357}# (cdr #{r\ 1236}#))) - (#{macros-only-env\ 357}# (cdr #{r\ 1236}#))))))) - (#{extend-var-env\ 356}# - (lambda (#{labels\ 1238}# #{vars\ 1239}# #{r\ 1240}#) - (if (null? #{labels\ 1238}#) - #{r\ 1240}# - (#{extend-var-env\ 356}# - (cdr #{labels\ 1238}#) - (cdr #{vars\ 1239}#) - (cons (cons (car #{labels\ 1238}#) - (cons (quote lexical) (car #{vars\ 1239}#))) - #{r\ 1240}#))))) - (#{extend-env\ 355}# - (lambda (#{labels\ 1241}# #{bindings\ 1242}# #{r\ 1243}#) - (if (null? #{labels\ 1241}#) - #{r\ 1243}# - (#{extend-env\ 355}# - (cdr #{labels\ 1241}#) - (cdr #{bindings\ 1242}#) - (cons (cons (car #{labels\ 1241}#) - (car #{bindings\ 1242}#)) - #{r\ 1243}#))))) - (#{binding-value\ 354}# cdr) - (#{binding-type\ 353}# car) - (#{source-annotation\ 352}# - (lambda (#{x\ 1244}#) - (if (#{syntax-object?\ 345}# #{x\ 1244}#) - (#{source-annotation\ 352}# - (#{syntax-object-expression\ 346}# #{x\ 1244}#)) - (if (pair? #{x\ 1244}#) - (let ((#{props\ 1245}# (source-properties #{x\ 1244}#))) - (if (pair? #{props\ 1245}#) #{props\ 1245}# #f)) + (let ((#{a\ 1007}# (car #{r\ 1006}#))) + (if (eq? (cadr #{a\ 1007}#) (quote macro)) + (cons #{a\ 1007}# + (#{macros-only-env\ 127}# (cdr #{r\ 1006}#))) + (#{macros-only-env\ 127}# (cdr #{r\ 1006}#))))))) + (#{extend-var-env\ 126}# + (lambda (#{labels\ 1008}# #{vars\ 1009}# #{r\ 1010}#) + (if (null? #{labels\ 1008}#) + #{r\ 1010}# + (#{extend-var-env\ 126}# + (cdr #{labels\ 1008}#) + (cdr #{vars\ 1009}#) + (cons (cons (car #{labels\ 1008}#) + (cons (quote lexical) (car #{vars\ 1009}#))) + #{r\ 1010}#))))) + (#{extend-env\ 125}# + (lambda (#{labels\ 1011}# #{bindings\ 1012}# #{r\ 1013}#) + (if (null? #{labels\ 1011}#) + #{r\ 1013}# + (#{extend-env\ 125}# + (cdr #{labels\ 1011}#) + (cdr #{bindings\ 1012}#) + (cons (cons (car #{labels\ 1011}#) + (car #{bindings\ 1012}#)) + #{r\ 1013}#))))) + (#{binding-value\ 124}# cdr) + (#{binding-type\ 123}# car) + (#{source-annotation\ 122}# + (lambda (#{x\ 1014}#) + (if (#{syntax-object?\ 115}# #{x\ 1014}#) + (#{source-annotation\ 122}# + (#{syntax-object-expression\ 116}# #{x\ 1014}#)) + (if (pair? #{x\ 1014}#) + (let ((#{props\ 1015}# (source-properties #{x\ 1014}#))) + (if (pair? #{props\ 1015}#) #{props\ 1015}# #f)) #f)))) - (#{set-syntax-object-module!\ 351}# - (lambda (#{x\ 1246}# #{update\ 1247}#) - (vector-set! #{x\ 1246}# 3 #{update\ 1247}#))) - (#{set-syntax-object-wrap!\ 350}# - (lambda (#{x\ 1248}# #{update\ 1249}#) - (vector-set! #{x\ 1248}# 2 #{update\ 1249}#))) - (#{set-syntax-object-expression!\ 349}# - (lambda (#{x\ 1250}# #{update\ 1251}#) - (vector-set! #{x\ 1250}# 1 #{update\ 1251}#))) - (#{syntax-object-module\ 348}# - (lambda (#{x\ 1252}#) (vector-ref #{x\ 1252}# 3))) - (#{syntax-object-wrap\ 347}# - (lambda (#{x\ 1253}#) (vector-ref #{x\ 1253}# 2))) - (#{syntax-object-expression\ 346}# - (lambda (#{x\ 1254}#) (vector-ref #{x\ 1254}# 1))) - (#{syntax-object?\ 345}# - (lambda (#{x\ 1255}#) - (if (vector? #{x\ 1255}#) - (if (= (vector-length #{x\ 1255}#) 4) - (eq? (vector-ref #{x\ 1255}# 0) + (#{set-syntax-object-module!\ 121}# + (lambda (#{x\ 1016}# #{update\ 1017}#) + (vector-set! #{x\ 1016}# 3 #{update\ 1017}#))) + (#{set-syntax-object-wrap!\ 120}# + (lambda (#{x\ 1018}# #{update\ 1019}#) + (vector-set! #{x\ 1018}# 2 #{update\ 1019}#))) + (#{set-syntax-object-expression!\ 119}# + (lambda (#{x\ 1020}# #{update\ 1021}#) + (vector-set! #{x\ 1020}# 1 #{update\ 1021}#))) + (#{syntax-object-module\ 118}# + (lambda (#{x\ 1022}#) (vector-ref #{x\ 1022}# 3))) + (#{syntax-object-wrap\ 117}# + (lambda (#{x\ 1023}#) (vector-ref #{x\ 1023}# 2))) + (#{syntax-object-expression\ 116}# + (lambda (#{x\ 1024}#) (vector-ref #{x\ 1024}# 1))) + (#{syntax-object?\ 115}# + (lambda (#{x\ 1025}#) + (if (vector? #{x\ 1025}#) + (if (= (vector-length #{x\ 1025}#) 4) + (eq? (vector-ref #{x\ 1025}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 344}# - (lambda (#{expression\ 1256}# - #{wrap\ 1257}# - #{module\ 1258}#) + (#{make-syntax-object\ 114}# + (lambda (#{expression\ 1026}# + #{wrap\ 1027}# + #{module\ 1028}#) (vector 'syntax-object - #{expression\ 1256}# - #{wrap\ 1257}# - #{module\ 1258}#))) - (#{build-letrec\ 343}# - (lambda (#{src\ 1259}# - #{ids\ 1260}# - #{vars\ 1261}# - #{val-exps\ 1262}# - #{body-exp\ 1263}#) - (if (null? #{vars\ 1261}#) - #{body-exp\ 1263}# - (let ((#{atom-key\ 1264}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1264}# (quote (c))) + #{expression\ 1026}# + #{wrap\ 1027}# + #{module\ 1028}#))) + (#{build-letrec\ 113}# + (lambda (#{src\ 1029}# + #{ids\ 1030}# + #{vars\ 1031}# + #{val-exps\ 1032}# + #{body-exp\ 1033}#) + (if (null? #{vars\ 1031}#) + #{body-exp\ 1033}# + (let ((#{atom-key\ 1034}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1034}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 333}# - #{ids\ 1260}# - #{val-exps\ 1262}#) + #{maybe-name-value!\ 103}# + #{ids\ 1030}# + #{val-exps\ 1032}#) ((@ (language tree-il) make-letrec) - #{src\ 1259}# - #{ids\ 1260}# - #{vars\ 1261}# - #{val-exps\ 1262}# - #{body-exp\ 1263}#)) - (#{decorate-source\ 324}# + #{src\ 1029}# + #{ids\ 1030}# + #{vars\ 1031}# + #{val-exps\ 1032}# + #{body-exp\ 1033}#)) + (#{decorate-source\ 94}# (list 'letrec - (map list #{vars\ 1261}# #{val-exps\ 1262}#) - #{body-exp\ 1263}#) - #{src\ 1259}#)))))) - (#{build-named-let\ 342}# - (lambda (#{src\ 1265}# - #{ids\ 1266}# - #{vars\ 1267}# - #{val-exps\ 1268}# - #{body-exp\ 1269}#) - (let ((#{f\ 1270}# (car #{vars\ 1267}#)) - (#{f-name\ 1271}# (car #{ids\ 1266}#)) - (#{vars\ 1272}# (cdr #{vars\ 1267}#)) - (#{ids\ 1273}# (cdr #{ids\ 1266}#))) - (let ((#{atom-key\ 1274}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1274}# (quote (c))) - (let ((#{proc\ 1275}# - (#{build-simple-lambda\ 335}# - #{src\ 1265}# - #{ids\ 1273}# + (map list #{vars\ 1031}# #{val-exps\ 1032}#) + #{body-exp\ 1033}#) + #{src\ 1029}#)))))) + (#{build-named-let\ 112}# + (lambda (#{src\ 1035}# + #{ids\ 1036}# + #{vars\ 1037}# + #{val-exps\ 1038}# + #{body-exp\ 1039}#) + (let ((#{f\ 1040}# (car #{vars\ 1037}#)) + (#{f-name\ 1041}# (car #{ids\ 1036}#)) + (#{vars\ 1042}# (cdr #{vars\ 1037}#)) + (#{ids\ 1043}# (cdr #{ids\ 1036}#))) + (let ((#{atom-key\ 1044}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1044}# (quote (c))) + (let ((#{proc\ 1045}# + (#{build-simple-lambda\ 105}# + #{src\ 1035}# + #{ids\ 1043}# #f - #{vars\ 1272}# + #{vars\ 1042}# #f - #{body-exp\ 1269}#))) + #{body-exp\ 1039}#))) (begin - (#{maybe-name-value!\ 333}# - #{f-name\ 1271}# - #{proc\ 1275}#) + (#{maybe-name-value!\ 103}# + #{f-name\ 1041}# + #{proc\ 1045}#) (for-each - #{maybe-name-value!\ 333}# - #{ids\ 1273}# - #{val-exps\ 1268}#) + #{maybe-name-value!\ 103}# + #{ids\ 1043}# + #{val-exps\ 1038}#) ((@ (language tree-il) make-letrec) - #{src\ 1265}# - (list #{f-name\ 1271}#) - (list #{f\ 1270}#) - (list #{proc\ 1275}#) - (#{build-application\ 326}# - #{src\ 1265}# - (#{build-lexical-reference\ 328}# + #{src\ 1035}# + (list #{f-name\ 1041}#) + (list #{f\ 1040}#) + (list #{proc\ 1045}#) + (#{build-application\ 96}# + #{src\ 1035}# + (#{build-lexical-reference\ 98}# 'fun - #{src\ 1265}# - #{f-name\ 1271}# - #{f\ 1270}#) - #{val-exps\ 1268}#)))) - (#{decorate-source\ 324}# + #{src\ 1035}# + #{f-name\ 1041}# + #{f\ 1040}#) + #{val-exps\ 1038}#)))) + (#{decorate-source\ 94}# (list 'let - #{f\ 1270}# - (map list #{vars\ 1272}# #{val-exps\ 1268}#) - #{body-exp\ 1269}#) - #{src\ 1265}#)))))) - (#{build-let\ 341}# - (lambda (#{src\ 1276}# - #{ids\ 1277}# - #{vars\ 1278}# - #{val-exps\ 1279}# - #{body-exp\ 1280}#) - (if (null? #{vars\ 1278}#) - #{body-exp\ 1280}# - (let ((#{atom-key\ 1281}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1281}# (quote (c))) + #{f\ 1040}# + (map list #{vars\ 1042}# #{val-exps\ 1038}#) + #{body-exp\ 1039}#) + #{src\ 1035}#)))))) + (#{build-let\ 111}# + (lambda (#{src\ 1046}# + #{ids\ 1047}# + #{vars\ 1048}# + #{val-exps\ 1049}# + #{body-exp\ 1050}#) + (if (null? #{vars\ 1048}#) + #{body-exp\ 1050}# + (let ((#{atom-key\ 1051}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1051}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 333}# - #{ids\ 1277}# - #{val-exps\ 1279}#) + #{maybe-name-value!\ 103}# + #{ids\ 1047}# + #{val-exps\ 1049}#) ((@ (language tree-il) make-let) - #{src\ 1276}# - #{ids\ 1277}# - #{vars\ 1278}# - #{val-exps\ 1279}# - #{body-exp\ 1280}#)) - (#{decorate-source\ 324}# + #{src\ 1046}# + #{ids\ 1047}# + #{vars\ 1048}# + #{val-exps\ 1049}# + #{body-exp\ 1050}#)) + (#{decorate-source\ 94}# (list 'let - (map list #{vars\ 1278}# #{val-exps\ 1279}#) - #{body-exp\ 1280}#) - #{src\ 1276}#)))))) - (#{build-sequence\ 340}# - (lambda (#{src\ 1282}# #{exps\ 1283}#) - (if (null? (cdr #{exps\ 1283}#)) - (car #{exps\ 1283}#) - (let ((#{atom-key\ 1284}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1284}# (quote (c))) + (map list #{vars\ 1048}# #{val-exps\ 1049}#) + #{body-exp\ 1050}#) + #{src\ 1046}#)))))) + (#{build-sequence\ 110}# + (lambda (#{src\ 1052}# #{exps\ 1053}#) + (if (null? (cdr #{exps\ 1053}#)) + (car #{exps\ 1053}#) + (let ((#{atom-key\ 1054}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1054}# (quote (c))) ((@ (language tree-il) make-sequence) - #{src\ 1282}# - #{exps\ 1283}#) - (#{decorate-source\ 324}# - (cons (quote begin) #{exps\ 1283}#) - #{src\ 1282}#)))))) - (#{build-data\ 339}# - (lambda (#{src\ 1285}# #{exp\ 1286}#) - (let ((#{atom-key\ 1287}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1287}# (quote (c))) + #{src\ 1052}# + #{exps\ 1053}#) + (#{decorate-source\ 94}# + (cons (quote begin) #{exps\ 1053}#) + #{src\ 1052}#)))))) + (#{build-data\ 109}# + (lambda (#{src\ 1055}# #{exp\ 1056}#) + (let ((#{atom-key\ 1057}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1057}# (quote (c))) ((@ (language tree-il) make-const) - #{src\ 1285}# - #{exp\ 1286}#) - (#{decorate-source\ 324}# - (if (if (self-evaluating? #{exp\ 1286}#) - (not (vector? #{exp\ 1286}#)) + #{src\ 1055}# + #{exp\ 1056}#) + (#{decorate-source\ 94}# + (if (if (self-evaluating? #{exp\ 1056}#) + (not (vector? #{exp\ 1056}#)) #f) - #{exp\ 1286}# - (list (quote quote) #{exp\ 1286}#)) - #{src\ 1285}#))))) - (#{build-primref\ 338}# - (lambda (#{src\ 1288}# #{name\ 1289}#) + #{exp\ 1056}# + (list (quote quote) #{exp\ 1056}#)) + #{src\ 1055}#))))) + (#{build-primref\ 108}# + (lambda (#{src\ 1058}# #{name\ 1059}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 1290}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1290}# (quote (c))) + (let ((#{atom-key\ 1060}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1060}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{src\ 1288}# - #{name\ 1289}#) - (#{decorate-source\ 324}# - #{name\ 1289}# - #{src\ 1288}#))) - (let ((#{atom-key\ 1291}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1291}# (quote (c))) + #{src\ 1058}# + #{name\ 1059}#) + (#{decorate-source\ 94}# + #{name\ 1059}# + #{src\ 1058}#))) + (let ((#{atom-key\ 1061}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1061}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{src\ 1288}# + #{src\ 1058}# '(guile) - #{name\ 1289}# + #{name\ 1059}# #f) - (#{decorate-source\ 324}# - (list (quote @@) (quote (guile)) #{name\ 1289}#) - #{src\ 1288}#)))))) - (#{build-lambda-case\ 337}# - (lambda (#{src\ 1292}# - #{req\ 1293}# - #{opt\ 1294}# - #{rest\ 1295}# - #{kw\ 1296}# - #{inits\ 1297}# - #{vars\ 1298}# - #{predicate\ 1299}# - #{body\ 1300}# - #{else-case\ 1301}#) - (let ((#{atom-key\ 1302}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1302}# (quote (c))) + (#{decorate-source\ 94}# + (list (quote @@) (quote (guile)) #{name\ 1059}#) + #{src\ 1058}#)))))) + (#{build-lambda-case\ 107}# + (lambda (#{src\ 1062}# + #{req\ 1063}# + #{opt\ 1064}# + #{rest\ 1065}# + #{kw\ 1066}# + #{inits\ 1067}# + #{vars\ 1068}# + #{predicate\ 1069}# + #{body\ 1070}# + #{else-case\ 1071}#) + (let ((#{atom-key\ 1072}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1072}# (quote (c))) ((@ (language tree-il) make-lambda-case) - #{src\ 1292}# - #{req\ 1293}# - #{opt\ 1294}# - #{rest\ 1295}# - #{kw\ 1296}# - #{inits\ 1297}# - #{vars\ 1298}# - #{predicate\ 1299}# - #{body\ 1300}# - #{else-case\ 1301}#) - (let ((#{nreq\ 1303}# (length #{req\ 1293}#))) - (let ((#{nopt\ 1304}# - (if #{opt\ 1294}# (length #{opt\ 1294}#) 0))) - (let ((#{rest-idx\ 1305}# - (if #{rest\ 1295}# - (+ #{nreq\ 1303}# #{nopt\ 1304}#) + #{src\ 1062}# + #{req\ 1063}# + #{opt\ 1064}# + #{rest\ 1065}# + #{kw\ 1066}# + #{inits\ 1067}# + #{vars\ 1068}# + #{predicate\ 1069}# + #{body\ 1070}# + #{else-case\ 1071}#) + (let ((#{nreq\ 1073}# (length #{req\ 1063}#))) + (let ((#{nopt\ 1074}# + (if #{opt\ 1064}# (length #{opt\ 1064}#) 0))) + (let ((#{rest-idx\ 1075}# + (if #{rest\ 1065}# + (+ #{nreq\ 1073}# #{nopt\ 1074}#) #f))) - (let ((#{allow-other-keys?\ 1306}# - (if #{kw\ 1296}# (car #{kw\ 1296}#) #f))) - (let ((#{kw-indices\ 1307}# - (map (lambda (#{x\ 1308}#) - (cons (car #{x\ 1308}#) + (let ((#{allow-other-keys?\ 1076}# + (if #{kw\ 1066}# (car #{kw\ 1066}#) #f))) + (let ((#{kw-indices\ 1077}# + (map (lambda (#{x\ 1078}#) + (cons (car #{x\ 1078}#) (list-index - #{vars\ 1298}# - (caddr #{x\ 1308}#)))) - (if #{kw\ 1296}# - (cdr #{kw\ 1296}#) + #{vars\ 1068}# + (caddr #{x\ 1078}#)))) + (if #{kw\ 1066}# + (cdr #{kw\ 1066}#) '())))) - (let ((#{nargs\ 1309}# + (let ((#{nargs\ 1079}# (apply max - (+ #{nreq\ 1303}# - #{nopt\ 1304}# - (if #{rest\ 1295}# 1 0)) + (+ #{nreq\ 1073}# + #{nopt\ 1074}# + (if #{rest\ 1065}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 1307}#))))) + #{kw-indices\ 1077}#))))) (begin - (let ((#{t\ 1310}# - (= #{nargs\ 1309}# - (length #{vars\ 1298}#) - (+ #{nreq\ 1303}# - (length #{inits\ 1297}#) - (if #{rest\ 1295}# 1 0))))) - (if #{t\ 1310}# - #{t\ 1310}# + (let ((#{t\ 1080}# + (= #{nargs\ 1079}# + (length #{vars\ 1068}#) + (+ #{nreq\ 1073}# + (length #{inits\ 1067}#) + (if #{rest\ 1065}# 1 0))))) + (if #{t\ 1080}# + #{t\ 1080}# (error "something went wrong" - #{req\ 1293}# - #{opt\ 1294}# - #{rest\ 1295}# - #{kw\ 1296}# - #{inits\ 1297}# - #{vars\ 1298}# - #{nreq\ 1303}# - #{nopt\ 1304}# - #{kw-indices\ 1307}# - #{nargs\ 1309}#))) - (#{decorate-source\ 324}# + #{req\ 1063}# + #{opt\ 1064}# + #{rest\ 1065}# + #{kw\ 1066}# + #{inits\ 1067}# + #{vars\ 1068}# + #{nreq\ 1073}# + #{nopt\ 1074}# + #{kw-indices\ 1077}# + #{nargs\ 1079}#))) + (#{decorate-source\ 94}# (cons (list (cons '(@@ (ice-9 optargs) parse-lambda-case) (cons (list 'quote - (list #{nreq\ 1303}# - #{nopt\ 1304}# - #{rest-idx\ 1305}# - #{nargs\ 1309}# - #{allow-other-keys?\ 1306}# - #{kw-indices\ 1307}#)) + (list #{nreq\ 1073}# + #{nopt\ 1074}# + #{rest-idx\ 1075}# + #{nargs\ 1079}# + #{allow-other-keys?\ 1076}# + #{kw-indices\ 1077}#)) (cons (cons 'list - (map (lambda (#{i\ 1311}#) + (map (lambda (#{i\ 1081}#) (list 'lambda - #{vars\ 1298}# - #{i\ 1311}#)) - #{inits\ 1297}#)) - (cons (if #{predicate\ 1299}# + #{vars\ 1068}# + #{i\ 1081}#)) + #{inits\ 1067}#)) + (cons (if #{predicate\ 1069}# (list 'lambda - #{vars\ 1298}# - #{predicate\ 1299}#) + #{vars\ 1068}# + #{predicate\ 1069}#) #f) '(%%args))))) '=> @@ -7456,1322 +7523,1434 @@ '(%%%args . _) (cons 'apply (cons (list 'lambda - #{vars\ 1298}# - #{body\ 1300}#) + #{vars\ 1068}# + #{body\ 1070}#) '(%%%args))))) - (let ((#{t\ 1312}# - #{else-case\ 1301}#)) - (if #{t\ 1312}# - #{t\ 1312}# + (let ((#{t\ 1082}# + #{else-case\ 1071}#)) + (if #{t\ 1082}# + #{t\ 1082}# '((%%args (error "wrong number of arguments" %%args)))))) - #{src\ 1292}#)))))))))))) - (#{build-case-lambda\ 336}# - (lambda (#{src\ 1313}# - #{docstring\ 1314}# - #{body\ 1315}#) - (let ((#{atom-key\ 1316}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1316}# (quote (c))) + #{src\ 1062}#)))))))))))) + (#{build-case-lambda\ 106}# + (lambda (#{src\ 1083}# + #{docstring\ 1084}# + #{body\ 1085}#) + (let ((#{atom-key\ 1086}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1086}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 1313}# - (if #{docstring\ 1314}# - (list (cons (quote documentation) #{docstring\ 1314}#)) + #{src\ 1083}# + (if #{docstring\ 1084}# + (list (cons (quote documentation) #{docstring\ 1084}#)) '()) - #{body\ 1315}#) - (#{decorate-source\ 324}# + #{body\ 1085}#) + (#{decorate-source\ 94}# (cons 'lambda (cons '%%args (append - (if #{docstring\ 1314}# - (list #{docstring\ 1314}#) + (if #{docstring\ 1084}# + (list #{docstring\ 1084}#) '()) - (list (cons (quote cond) #{body\ 1315}#))))) - #{src\ 1313}#))))) - (#{build-simple-lambda\ 335}# - (lambda (#{src\ 1317}# - #{req\ 1318}# - #{rest\ 1319}# - #{vars\ 1320}# - #{docstring\ 1321}# - #{exp\ 1322}#) - (let ((#{atom-key\ 1323}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1323}# (quote (c))) + (list (cons (quote cond) #{body\ 1085}#))))) + #{src\ 1083}#))))) + (#{build-simple-lambda\ 105}# + (lambda (#{src\ 1087}# + #{req\ 1088}# + #{rest\ 1089}# + #{vars\ 1090}# + #{docstring\ 1091}# + #{exp\ 1092}#) + (let ((#{atom-key\ 1093}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1093}# (quote (c))) ((@ (language tree-il) make-lambda) - #{src\ 1317}# - (if #{docstring\ 1321}# - (list (cons (quote documentation) #{docstring\ 1321}#)) + #{src\ 1087}# + (if #{docstring\ 1091}# + (list (cons (quote documentation) #{docstring\ 1091}#)) '()) ((@ (language tree-il) make-lambda-case) - #{src\ 1317}# - #{req\ 1318}# + #{src\ 1087}# + #{req\ 1088}# #f - #{rest\ 1319}# + #{rest\ 1089}# #f '() - #{vars\ 1320}# + #{vars\ 1090}# #f - #{exp\ 1322}# + #{exp\ 1092}# #f)) - (#{decorate-source\ 324}# + (#{decorate-source\ 94}# (cons 'lambda - (cons (if #{rest\ 1319}# - (apply cons* #{vars\ 1320}#) - #{vars\ 1320}#) + (cons (if #{rest\ 1089}# + (apply cons* #{vars\ 1090}#) + #{vars\ 1090}#) (append - (if #{docstring\ 1321}# - (list #{docstring\ 1321}#) + (if #{docstring\ 1091}# + (list #{docstring\ 1091}#) '()) - (list #{exp\ 1322}#)))) - #{src\ 1317}#))))) - (#{build-global-definition\ 334}# - (lambda (#{source\ 1324}# #{var\ 1325}# #{exp\ 1326}#) - (let ((#{atom-key\ 1327}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1327}# (quote (c))) + (list #{exp\ 1092}#)))) + #{src\ 1087}#))))) + (#{build-global-definition\ 104}# + (lambda (#{source\ 1094}# #{var\ 1095}# #{exp\ 1096}#) + (let ((#{atom-key\ 1097}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1097}# (quote (c))) (begin - (#{maybe-name-value!\ 333}# - #{var\ 1325}# - #{exp\ 1326}#) + (#{maybe-name-value!\ 103}# + #{var\ 1095}# + #{exp\ 1096}#) ((@ (language tree-il) make-toplevel-define) - #{source\ 1324}# - #{var\ 1325}# - #{exp\ 1326}#)) - (#{decorate-source\ 324}# - (list (quote define) #{var\ 1325}# #{exp\ 1326}#) - #{source\ 1324}#))))) - (#{maybe-name-value!\ 333}# - (lambda (#{name\ 1328}# #{val\ 1329}#) - (if ((@ (language tree-il) lambda?) #{val\ 1329}#) - (let ((#{meta\ 1330}# + #{source\ 1094}# + #{var\ 1095}# + #{exp\ 1096}#)) + (#{decorate-source\ 94}# + (list (quote define) #{var\ 1095}# #{exp\ 1096}#) + #{source\ 1094}#))))) + (#{maybe-name-value!\ 103}# + (lambda (#{name\ 1098}# #{val\ 1099}#) + (if ((@ (language tree-il) lambda?) #{val\ 1099}#) + (let ((#{meta\ 1100}# ((@ (language tree-il) lambda-meta) - #{val\ 1329}#))) - (if (not (assq (quote name) #{meta\ 1330}#)) + #{val\ 1099}#))) + (if (not (assq (quote name) #{meta\ 1100}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 1329}# + #{val\ 1099}# (acons 'name - #{name\ 1328}# - #{meta\ 1330}#))))))) - (#{build-global-assignment\ 332}# - (lambda (#{source\ 1331}# - #{var\ 1332}# - #{exp\ 1333}# - #{mod\ 1334}#) - (#{analyze-variable\ 330}# - #{mod\ 1334}# - #{var\ 1332}# - (lambda (#{mod\ 1335}# #{var\ 1336}# #{public?\ 1337}#) - (let ((#{atom-key\ 1338}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1338}# (quote (c))) + #{name\ 1098}# + #{meta\ 1100}#))))))) + (#{build-global-assignment\ 102}# + (lambda (#{source\ 1101}# + #{var\ 1102}# + #{exp\ 1103}# + #{mod\ 1104}#) + (#{analyze-variable\ 100}# + #{mod\ 1104}# + #{var\ 1102}# + (lambda (#{mod\ 1105}# #{var\ 1106}# #{public?\ 1107}#) + (let ((#{atom-key\ 1108}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1108}# (quote (c))) ((@ (language tree-il) make-module-set) - #{source\ 1331}# - #{mod\ 1335}# - #{var\ 1336}# - #{public?\ 1337}# - #{exp\ 1333}#) - (#{decorate-source\ 324}# + #{source\ 1101}# + #{mod\ 1105}# + #{var\ 1106}# + #{public?\ 1107}# + #{exp\ 1103}#) + (#{decorate-source\ 94}# (list 'set! - (list (if #{public?\ 1337}# + (list (if #{public?\ 1107}# '@ '@@) - #{mod\ 1335}# - #{var\ 1336}#) - #{exp\ 1333}#) - #{source\ 1331}#)))) - (lambda (#{var\ 1339}#) - (let ((#{atom-key\ 1340}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1340}# (quote (c))) + #{mod\ 1105}# + #{var\ 1106}#) + #{exp\ 1103}#) + #{source\ 1101}#)))) + (lambda (#{var\ 1109}#) + (let ((#{atom-key\ 1110}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1110}# (quote (c))) ((@ (language tree-il) make-toplevel-set) - #{source\ 1331}# - #{var\ 1339}# - #{exp\ 1333}#) - (#{decorate-source\ 324}# - (list (quote set!) #{var\ 1339}# #{exp\ 1333}#) - #{source\ 1331}#))))))) - (#{build-global-reference\ 331}# - (lambda (#{source\ 1341}# #{var\ 1342}# #{mod\ 1343}#) - (#{analyze-variable\ 330}# - #{mod\ 1343}# - #{var\ 1342}# - (lambda (#{mod\ 1344}# #{var\ 1345}# #{public?\ 1346}#) - (let ((#{atom-key\ 1347}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1347}# (quote (c))) + #{source\ 1101}# + #{var\ 1109}# + #{exp\ 1103}#) + (#{decorate-source\ 94}# + (list (quote set!) #{var\ 1109}# #{exp\ 1103}#) + #{source\ 1101}#))))))) + (#{build-global-reference\ 101}# + (lambda (#{source\ 1111}# #{var\ 1112}# #{mod\ 1113}#) + (#{analyze-variable\ 100}# + #{mod\ 1113}# + #{var\ 1112}# + (lambda (#{mod\ 1114}# #{var\ 1115}# #{public?\ 1116}#) + (let ((#{atom-key\ 1117}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1117}# (quote (c))) ((@ (language tree-il) make-module-ref) - #{source\ 1341}# - #{mod\ 1344}# - #{var\ 1345}# - #{public?\ 1346}#) - (#{decorate-source\ 324}# - (list (if #{public?\ 1346}# (quote @) (quote @@)) - #{mod\ 1344}# - #{var\ 1345}#) - #{source\ 1341}#)))) - (lambda (#{var\ 1348}#) - (let ((#{atom-key\ 1349}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1349}# (quote (c))) + #{source\ 1111}# + #{mod\ 1114}# + #{var\ 1115}# + #{public?\ 1116}#) + (#{decorate-source\ 94}# + (list (if #{public?\ 1116}# (quote @) (quote @@)) + #{mod\ 1114}# + #{var\ 1115}#) + #{source\ 1111}#)))) + (lambda (#{var\ 1118}#) + (let ((#{atom-key\ 1119}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1119}# (quote (c))) ((@ (language tree-il) make-toplevel-ref) - #{source\ 1341}# - #{var\ 1348}#) - (#{decorate-source\ 324}# - #{var\ 1348}# - #{source\ 1341}#))))))) - (#{analyze-variable\ 330}# - (lambda (#{mod\ 1350}# - #{var\ 1351}# - #{modref-cont\ 1352}# - #{bare-cont\ 1353}#) - (if (not #{mod\ 1350}#) - (#{bare-cont\ 1353}# #{var\ 1351}#) - (let ((#{kind\ 1354}# (car #{mod\ 1350}#)) - (#{mod\ 1355}# (cdr #{mod\ 1350}#))) - (if (memv #{kind\ 1354}# (quote (public))) - (#{modref-cont\ 1352}# - #{mod\ 1355}# - #{var\ 1351}# + #{source\ 1111}# + #{var\ 1118}#) + (#{decorate-source\ 94}# + #{var\ 1118}# + #{source\ 1111}#))))))) + (#{analyze-variable\ 100}# + (lambda (#{mod\ 1120}# + #{var\ 1121}# + #{modref-cont\ 1122}# + #{bare-cont\ 1123}#) + (if (not #{mod\ 1120}#) + (#{bare-cont\ 1123}# #{var\ 1121}#) + (let ((#{kind\ 1124}# (car #{mod\ 1120}#)) + (#{mod\ 1125}# (cdr #{mod\ 1120}#))) + (if (memv #{kind\ 1124}# (quote (public))) + (#{modref-cont\ 1122}# + #{mod\ 1125}# + #{var\ 1121}# #t) - (if (memv #{kind\ 1354}# (quote (private))) + (if (memv #{kind\ 1124}# (quote (private))) (if (not (equal? - #{mod\ 1355}# + #{mod\ 1125}# (module-name (current-module)))) - (#{modref-cont\ 1352}# - #{mod\ 1355}# - #{var\ 1351}# + (#{modref-cont\ 1122}# + #{mod\ 1125}# + #{var\ 1121}# #f) - (#{bare-cont\ 1353}# #{var\ 1351}#)) - (if (memv #{kind\ 1354}# (quote (bare))) - (#{bare-cont\ 1353}# #{var\ 1351}#) - (if (memv #{kind\ 1354}# (quote (hygiene))) + (#{bare-cont\ 1123}# #{var\ 1121}#)) + (if (memv #{kind\ 1124}# (quote (bare))) + (#{bare-cont\ 1123}# #{var\ 1121}#) + (if (memv #{kind\ 1124}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 1355}# + #{mod\ 1125}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 1355}#) - #{var\ 1351}#) + (resolve-module #{mod\ 1125}#) + #{var\ 1121}#) #f) - (#{modref-cont\ 1352}# - #{mod\ 1355}# - #{var\ 1351}# + (#{modref-cont\ 1122}# + #{mod\ 1125}# + #{var\ 1121}# #f) - (#{bare-cont\ 1353}# #{var\ 1351}#)) + (#{bare-cont\ 1123}# #{var\ 1121}#)) (syntax-violation #f "bad module kind" - #{var\ 1351}# - #{mod\ 1355}#))))))))) - (#{build-lexical-assignment\ 329}# - (lambda (#{source\ 1356}# - #{name\ 1357}# - #{var\ 1358}# - #{exp\ 1359}#) - (let ((#{atom-key\ 1360}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1360}# (quote (c))) + #{var\ 1121}# + #{mod\ 1125}#))))))))) + (#{build-lexical-assignment\ 99}# + (lambda (#{source\ 1126}# + #{name\ 1127}# + #{var\ 1128}# + #{exp\ 1129}#) + (let ((#{atom-key\ 1130}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1130}# (quote (c))) ((@ (language tree-il) make-lexical-set) - #{source\ 1356}# - #{name\ 1357}# - #{var\ 1358}# - #{exp\ 1359}#) - (#{decorate-source\ 324}# - (list (quote set!) #{var\ 1358}# #{exp\ 1359}#) - #{source\ 1356}#))))) - (#{build-lexical-reference\ 328}# - (lambda (#{type\ 1361}# - #{source\ 1362}# - #{name\ 1363}# - #{var\ 1364}#) - (let ((#{atom-key\ 1365}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1365}# (quote (c))) + #{source\ 1126}# + #{name\ 1127}# + #{var\ 1128}# + #{exp\ 1129}#) + (#{decorate-source\ 94}# + (list (quote set!) #{var\ 1128}# #{exp\ 1129}#) + #{source\ 1126}#))))) + (#{build-lexical-reference\ 98}# + (lambda (#{type\ 1131}# + #{source\ 1132}# + #{name\ 1133}# + #{var\ 1134}#) + (let ((#{atom-key\ 1135}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1135}# (quote (c))) ((@ (language tree-il) make-lexical-ref) - #{source\ 1362}# - #{name\ 1363}# - #{var\ 1364}#) - (#{decorate-source\ 324}# - #{var\ 1364}# - #{source\ 1362}#))))) - (#{build-conditional\ 327}# - (lambda (#{source\ 1366}# - #{test-exp\ 1367}# - #{then-exp\ 1368}# - #{else-exp\ 1369}#) - (let ((#{atom-key\ 1370}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1370}# (quote (c))) + #{source\ 1132}# + #{name\ 1133}# + #{var\ 1134}#) + (#{decorate-source\ 94}# + #{var\ 1134}# + #{source\ 1132}#))))) + (#{build-conditional\ 97}# + (lambda (#{source\ 1136}# + #{test-exp\ 1137}# + #{then-exp\ 1138}# + #{else-exp\ 1139}#) + (let ((#{atom-key\ 1140}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1140}# (quote (c))) ((@ (language tree-il) make-conditional) - #{source\ 1366}# - #{test-exp\ 1367}# - #{then-exp\ 1368}# - #{else-exp\ 1369}#) - (#{decorate-source\ 324}# - (if (equal? #{else-exp\ 1369}# (quote (if #f #f))) + #{source\ 1136}# + #{test-exp\ 1137}# + #{then-exp\ 1138}# + #{else-exp\ 1139}#) + (#{decorate-source\ 94}# + (if (equal? #{else-exp\ 1139}# (quote (if #f #f))) (list 'if - #{test-exp\ 1367}# - #{then-exp\ 1368}#) + #{test-exp\ 1137}# + #{then-exp\ 1138}#) (list 'if - #{test-exp\ 1367}# - #{then-exp\ 1368}# - #{else-exp\ 1369}#)) - #{source\ 1366}#))))) - (#{build-application\ 326}# - (lambda (#{source\ 1371}# - #{fun-exp\ 1372}# - #{arg-exps\ 1373}#) - (let ((#{atom-key\ 1374}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1374}# (quote (c))) + #{test-exp\ 1137}# + #{then-exp\ 1138}# + #{else-exp\ 1139}#)) + #{source\ 1136}#))))) + (#{build-application\ 96}# + (lambda (#{source\ 1141}# + #{fun-exp\ 1142}# + #{arg-exps\ 1143}#) + (let ((#{atom-key\ 1144}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1144}# (quote (c))) ((@ (language tree-il) make-application) - #{source\ 1371}# - #{fun-exp\ 1372}# - #{arg-exps\ 1373}#) - (#{decorate-source\ 324}# - (cons #{fun-exp\ 1372}# #{arg-exps\ 1373}#) - #{source\ 1371}#))))) - (#{build-void\ 325}# - (lambda (#{source\ 1375}#) - (let ((#{atom-key\ 1376}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1376}# (quote (c))) + #{source\ 1141}# + #{fun-exp\ 1142}# + #{arg-exps\ 1143}#) + (#{decorate-source\ 94}# + (cons #{fun-exp\ 1142}# #{arg-exps\ 1143}#) + #{source\ 1141}#))))) + (#{build-void\ 95}# + (lambda (#{source\ 1145}#) + (let ((#{atom-key\ 1146}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1146}# (quote (c))) ((@ (language tree-il) make-void) - #{source\ 1375}#) - (#{decorate-source\ 324}# + #{source\ 1145}#) + (#{decorate-source\ 94}# '(if #f #f) - #{source\ 1375}#))))) - (#{decorate-source\ 324}# - (lambda (#{e\ 1377}# #{s\ 1378}#) + #{source\ 1145}#))))) + (#{decorate-source\ 94}# + (lambda (#{e\ 1147}# #{s\ 1148}#) (begin - (if (if (pair? #{e\ 1377}#) #{s\ 1378}# #f) - (set-source-properties! #{e\ 1377}# #{s\ 1378}#)) - #{e\ 1377}#))) - (#{get-global-definition-hook\ 323}# - (lambda (#{symbol\ 1379}# #{module\ 1380}#) + (if (if (pair? #{e\ 1147}#) #{s\ 1148}# #f) + (set-source-properties! #{e\ 1147}# #{s\ 1148}#)) + #{e\ 1147}#))) + (#{get-global-definition-hook\ 93}# + (lambda (#{symbol\ 1149}# #{module\ 1150}#) (begin - (if (if (not #{module\ 1380}#) (current-module) #f) + (if (if (not #{module\ 1150}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 1379}#)) - (let ((#{v\ 1381}# + #{symbol\ 1149}#)) + (let ((#{v\ 1151}# (module-variable - (if #{module\ 1380}# - (resolve-module (cdr #{module\ 1380}#)) + (if #{module\ 1150}# + (resolve-module (cdr #{module\ 1150}#)) (current-module)) - #{symbol\ 1379}#))) - (if #{v\ 1381}# - (if (variable-bound? #{v\ 1381}#) - (let ((#{val\ 1382}# (variable-ref #{v\ 1381}#))) - (if (macro? #{val\ 1382}#) - (if (syncase-macro-type #{val\ 1382}#) - (cons (syncase-macro-type #{val\ 1382}#) - (syncase-macro-binding #{val\ 1382}#)) + #{symbol\ 1149}#))) + (if #{v\ 1151}# + (if (variable-bound? #{v\ 1151}#) + (let ((#{val\ 1152}# (variable-ref #{v\ 1151}#))) + (if (macro? #{val\ 1152}#) + (if (syncase-macro-type #{val\ 1152}#) + (cons (syncase-macro-type #{val\ 1152}#) + (syncase-macro-binding #{val\ 1152}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 322}# - (lambda (#{symbol\ 1383}# #{type\ 1384}# #{val\ 1385}#) - (let ((#{existing\ 1386}# - (let ((#{v\ 1387}# + (#{put-global-definition-hook\ 92}# + (lambda (#{symbol\ 1153}# #{type\ 1154}# #{val\ 1155}#) + (let ((#{existing\ 1156}# + (let ((#{v\ 1157}# (module-variable (current-module) - #{symbol\ 1383}#))) - (if #{v\ 1387}# - (if (variable-bound? #{v\ 1387}#) - (let ((#{val\ 1388}# (variable-ref #{v\ 1387}#))) - (if (macro? #{val\ 1388}#) - (if (not (syncase-macro-type #{val\ 1388}#)) - #{val\ 1388}# + #{symbol\ 1153}#))) + (if #{v\ 1157}# + (if (variable-bound? #{v\ 1157}#) + (let ((#{val\ 1158}# (variable-ref #{v\ 1157}#))) + (if (macro? #{val\ 1158}#) + (if (not (syncase-macro-type #{val\ 1158}#)) + #{val\ 1158}# #f) #f)) #f) #f)))) (module-define! (current-module) - #{symbol\ 1383}# - (if #{existing\ 1386}# + #{symbol\ 1153}# + (if #{existing\ 1156}# (make-extended-syncase-macro - #{existing\ 1386}# - #{type\ 1384}# - #{val\ 1385}#) - (make-syncase-macro #{type\ 1384}# #{val\ 1385}#)))))) - (#{local-eval-hook\ 321}# - (lambda (#{x\ 1389}# #{mod\ 1390}#) + #{existing\ 1156}# + #{type\ 1154}# + #{val\ 1155}#) + (make-syncase-macro #{type\ 1154}# #{val\ 1155}#)))))) + (#{local-eval-hook\ 91}# + (lambda (#{x\ 1159}# #{mod\ 1160}#) (primitive-eval - (list #{noexpand\ 314}# - (let ((#{atom-key\ 1391}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1391}# (quote (c))) + (list #{noexpand\ 84}# + (let ((#{atom-key\ 1161}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1161}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 1389}#) - #{x\ 1389}#)))))) - (#{top-level-eval-hook\ 320}# - (lambda (#{x\ 1392}# #{mod\ 1393}#) + #{x\ 1159}#) + #{x\ 1159}#)))))) + (#{top-level-eval-hook\ 90}# + (lambda (#{x\ 1162}# #{mod\ 1163}#) (primitive-eval - (list #{noexpand\ 314}# - (let ((#{atom-key\ 1394}# (fluid-ref #{*mode*\ 315}#))) - (if (memv #{atom-key\ 1394}# (quote (c))) + (list #{noexpand\ 84}# + (let ((#{atom-key\ 1164}# (fluid-ref #{*mode*\ 85}#))) + (if (memv #{atom-key\ 1164}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 1392}#) - #{x\ 1392}#)))))) - (#{fx<\ 319}# <) - (#{fx=\ 318}# =) - (#{fx-\ 317}# -) - (#{fx+\ 316}# +) - (#{*mode*\ 315}# (make-fluid)) - (#{noexpand\ 314}# "noexpand")) + #{x\ 1162}#) + #{x\ 1162}#)))))) + (#{fx<\ 89}# <) + (#{fx=\ 88}# =) + (#{fx-\ 87}# -) + (#{fx+\ 86}# +) + (#{*mode*\ 85}# (make-fluid)) + (#{noexpand\ 84}# "noexpand")) (begin - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'core 'fluid-let-syntax - (lambda (#{e\ 1395}# - #{r\ 1396}# - #{w\ 1397}# - #{s\ 1398}# - #{mod\ 1399}#) - ((lambda (#{tmp\ 1400}#) - ((lambda (#{tmp\ 1401}#) - (if (if #{tmp\ 1401}# - (apply (lambda (#{_\ 1402}# - #{var\ 1403}# - #{val\ 1404}# - #{e1\ 1405}# - #{e2\ 1406}#) - (#{valid-bound-ids?\ 386}# #{var\ 1403}#)) - #{tmp\ 1401}#) + (lambda (#{e\ 1165}# + #{r\ 1166}# + #{w\ 1167}# + #{s\ 1168}# + #{mod\ 1169}#) + ((lambda (#{tmp\ 1170}#) + ((lambda (#{tmp\ 1171}#) + (if (if #{tmp\ 1171}# + (apply (lambda (#{_\ 1172}# + #{var\ 1173}# + #{val\ 1174}# + #{e1\ 1175}# + #{e2\ 1176}#) + (#{valid-bound-ids?\ 156}# #{var\ 1173}#)) + #{tmp\ 1171}#) #f) - (apply (lambda (#{_\ 1408}# - #{var\ 1409}# - #{val\ 1410}# - #{e1\ 1411}# - #{e2\ 1412}#) - (let ((#{names\ 1413}# - (map (lambda (#{x\ 1414}#) - (#{id-var-name\ 383}# - #{x\ 1414}# - #{w\ 1397}#)) - #{var\ 1409}#))) + (apply (lambda (#{_\ 1178}# + #{var\ 1179}# + #{val\ 1180}# + #{e1\ 1181}# + #{e2\ 1182}#) + (let ((#{names\ 1183}# + (map (lambda (#{x\ 1184}#) + (#{id-var-name\ 153}# + #{x\ 1184}# + #{w\ 1167}#)) + #{var\ 1179}#))) (begin (for-each - (lambda (#{id\ 1416}# #{n\ 1417}#) - (let ((#{atom-key\ 1418}# - (#{binding-type\ 353}# - (#{lookup\ 358}# - #{n\ 1417}# - #{r\ 1396}# - #{mod\ 1399}#)))) - (if (memv #{atom-key\ 1418}# + (lambda (#{id\ 1186}# #{n\ 1187}#) + (let ((#{atom-key\ 1188}# + (#{binding-type\ 123}# + (#{lookup\ 128}# + #{n\ 1187}# + #{r\ 1166}# + #{mod\ 1169}#)))) + (if (memv #{atom-key\ 1188}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 1395}# - (#{source-wrap\ 390}# - #{id\ 1416}# - #{w\ 1397}# - #{s\ 1398}# - #{mod\ 1399}#))))) - #{var\ 1409}# - #{names\ 1413}#) - (#{chi-body\ 401}# - (cons #{e1\ 1411}# #{e2\ 1412}#) - (#{source-wrap\ 390}# - #{e\ 1395}# - #{w\ 1397}# - #{s\ 1398}# - #{mod\ 1399}#) - (#{extend-env\ 355}# - #{names\ 1413}# - (let ((#{trans-r\ 1421}# - (#{macros-only-env\ 357}# - #{r\ 1396}#))) - (map (lambda (#{x\ 1422}#) + #{e\ 1165}# + (#{source-wrap\ 160}# + #{id\ 1186}# + #{w\ 1167}# + #{s\ 1168}# + #{mod\ 1169}#))))) + #{var\ 1179}# + #{names\ 1183}#) + (#{chi-body\ 171}# + (cons #{e1\ 1181}# #{e2\ 1182}#) + (#{source-wrap\ 160}# + #{e\ 1165}# + #{w\ 1167}# + #{s\ 1168}# + #{mod\ 1169}#) + (#{extend-env\ 125}# + #{names\ 1183}# + (let ((#{trans-r\ 1191}# + (#{macros-only-env\ 127}# + #{r\ 1166}#))) + (map (lambda (#{x\ 1192}#) (cons 'macro - (#{eval-local-transformer\ 403}# - (#{chi\ 397}# - #{x\ 1422}# - #{trans-r\ 1421}# - #{w\ 1397}# - #{mod\ 1399}#) - #{mod\ 1399}#))) - #{val\ 1410}#)) - #{r\ 1396}#) - #{w\ 1397}# - #{mod\ 1399}#)))) - #{tmp\ 1401}#) - ((lambda (#{_\ 1424}#) + (#{eval-local-transformer\ 173}# + (#{chi\ 167}# + #{x\ 1192}# + #{trans-r\ 1191}# + #{w\ 1167}# + #{mod\ 1169}#) + #{mod\ 1169}#))) + #{val\ 1180}#)) + #{r\ 1166}#) + #{w\ 1167}# + #{mod\ 1169}#)))) + #{tmp\ 1171}#) + ((lambda (#{_\ 1194}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 390}# - #{e\ 1395}# - #{w\ 1397}# - #{s\ 1398}# - #{mod\ 1399}#))) - #{tmp\ 1400}#))) + (#{source-wrap\ 160}# + #{e\ 1165}# + #{w\ 1167}# + #{s\ 1168}# + #{mod\ 1169}#))) + #{tmp\ 1170}#))) ($sc-dispatch - #{tmp\ 1400}# + #{tmp\ 1170}# '(any #(each (any any)) any . each-any)))) - #{e\ 1395}#))) - (#{global-extend\ 359}# + #{e\ 1165}#))) + (#{global-extend\ 129}# 'core 'quote - (lambda (#{e\ 1425}# - #{r\ 1426}# - #{w\ 1427}# - #{s\ 1428}# - #{mod\ 1429}#) - ((lambda (#{tmp\ 1430}#) - ((lambda (#{tmp\ 1431}#) - (if #{tmp\ 1431}# - (apply (lambda (#{_\ 1432}# #{e\ 1433}#) - (#{build-data\ 339}# - #{s\ 1428}# - (#{strip\ 410}# #{e\ 1433}# #{w\ 1427}#))) - #{tmp\ 1431}#) - ((lambda (#{_\ 1434}#) + (lambda (#{e\ 1195}# + #{r\ 1196}# + #{w\ 1197}# + #{s\ 1198}# + #{mod\ 1199}#) + ((lambda (#{tmp\ 1200}#) + ((lambda (#{tmp\ 1201}#) + (if #{tmp\ 1201}# + (apply (lambda (#{_\ 1202}# #{e\ 1203}#) + (#{build-data\ 109}# + #{s\ 1198}# + (#{strip\ 180}# #{e\ 1203}# #{w\ 1197}#))) + #{tmp\ 1201}#) + ((lambda (#{_\ 1204}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 390}# - #{e\ 1425}# - #{w\ 1427}# - #{s\ 1428}# - #{mod\ 1429}#))) - #{tmp\ 1430}#))) - ($sc-dispatch #{tmp\ 1430}# (quote (any any))))) - #{e\ 1425}#))) - (#{global-extend\ 359}# + (#{source-wrap\ 160}# + #{e\ 1195}# + #{w\ 1197}# + #{s\ 1198}# + #{mod\ 1199}#))) + #{tmp\ 1200}#))) + ($sc-dispatch #{tmp\ 1200}# (quote (any any))))) + #{e\ 1195}#))) + (#{global-extend\ 129}# 'core 'syntax - (letrec ((#{regen\ 1442}# - (lambda (#{x\ 1443}#) - (let ((#{atom-key\ 1444}# (car #{x\ 1443}#))) - (if (memv #{atom-key\ 1444}# (quote (ref))) - (#{build-lexical-reference\ 328}# + (letrec ((#{regen\ 1212}# + (lambda (#{x\ 1213}#) + (let ((#{atom-key\ 1214}# (car #{x\ 1213}#))) + (if (memv #{atom-key\ 1214}# (quote (ref))) + (#{build-lexical-reference\ 98}# 'value #f - (cadr #{x\ 1443}#) - (cadr #{x\ 1443}#)) - (if (memv #{atom-key\ 1444}# (quote (primitive))) - (#{build-primref\ 338}# #f (cadr #{x\ 1443}#)) - (if (memv #{atom-key\ 1444}# (quote (quote))) - (#{build-data\ 339}# #f (cadr #{x\ 1443}#)) - (if (memv #{atom-key\ 1444}# (quote (lambda))) - (if (list? (cadr #{x\ 1443}#)) - (#{build-simple-lambda\ 335}# + (cadr #{x\ 1213}#) + (cadr #{x\ 1213}#)) + (if (memv #{atom-key\ 1214}# (quote (primitive))) + (#{build-primref\ 108}# #f (cadr #{x\ 1213}#)) + (if (memv #{atom-key\ 1214}# (quote (quote))) + (#{build-data\ 109}# #f (cadr #{x\ 1213}#)) + (if (memv #{atom-key\ 1214}# (quote (lambda))) + (if (list? (cadr #{x\ 1213}#)) + (#{build-simple-lambda\ 105}# #f - (cadr #{x\ 1443}#) + (cadr #{x\ 1213}#) #f - (cadr #{x\ 1443}#) + (cadr #{x\ 1213}#) #f - (#{regen\ 1442}# (caddr #{x\ 1443}#))) - (error "how did we get here" #{x\ 1443}#)) - (#{build-application\ 326}# + (#{regen\ 1212}# (caddr #{x\ 1213}#))) + (error "how did we get here" #{x\ 1213}#)) + (#{build-application\ 96}# #f - (#{build-primref\ 338}# #f (car #{x\ 1443}#)) - (map #{regen\ 1442}# - (cdr #{x\ 1443}#)))))))))) - (#{gen-vector\ 1441}# - (lambda (#{x\ 1445}#) - (if (eq? (car #{x\ 1445}#) (quote list)) - (cons (quote vector) (cdr #{x\ 1445}#)) - (if (eq? (car #{x\ 1445}#) (quote quote)) + (#{build-primref\ 108}# #f (car #{x\ 1213}#)) + (map #{regen\ 1212}# + (cdr #{x\ 1213}#)))))))))) + (#{gen-vector\ 1211}# + (lambda (#{x\ 1215}#) + (if (eq? (car #{x\ 1215}#) (quote list)) + (cons (quote vector) (cdr #{x\ 1215}#)) + (if (eq? (car #{x\ 1215}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 1445}#))) - (list (quote list->vector) #{x\ 1445}#))))) - (#{gen-append\ 1440}# - (lambda (#{x\ 1446}# #{y\ 1447}#) - (if (equal? #{y\ 1447}# (quote (quote ()))) - #{x\ 1446}# - (list (quote append) #{x\ 1446}# #{y\ 1447}#)))) - (#{gen-cons\ 1439}# - (lambda (#{x\ 1448}# #{y\ 1449}#) - (let ((#{atom-key\ 1450}# (car #{y\ 1449}#))) - (if (memv #{atom-key\ 1450}# (quote (quote))) - (if (eq? (car #{x\ 1448}#) (quote quote)) + (list->vector (cadr #{x\ 1215}#))) + (list (quote list->vector) #{x\ 1215}#))))) + (#{gen-append\ 1210}# + (lambda (#{x\ 1216}# #{y\ 1217}#) + (if (equal? #{y\ 1217}# (quote (quote ()))) + #{x\ 1216}# + (list (quote append) #{x\ 1216}# #{y\ 1217}#)))) + (#{gen-cons\ 1209}# + (lambda (#{x\ 1218}# #{y\ 1219}#) + (let ((#{atom-key\ 1220}# (car #{y\ 1219}#))) + (if (memv #{atom-key\ 1220}# (quote (quote))) + (if (eq? (car #{x\ 1218}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 1448}#) (cadr #{y\ 1449}#))) - (if (eq? (cadr #{y\ 1449}#) (quote ())) - (list (quote list) #{x\ 1448}#) - (list (quote cons) #{x\ 1448}# #{y\ 1449}#))) - (if (memv #{atom-key\ 1450}# (quote (list))) + (cons (cadr #{x\ 1218}#) (cadr #{y\ 1219}#))) + (if (eq? (cadr #{y\ 1219}#) (quote ())) + (list (quote list) #{x\ 1218}#) + (list (quote cons) #{x\ 1218}# #{y\ 1219}#))) + (if (memv #{atom-key\ 1220}# (quote (list))) (cons 'list - (cons #{x\ 1448}# (cdr #{y\ 1449}#))) - (list (quote cons) #{x\ 1448}# #{y\ 1449}#)))))) - (#{gen-map\ 1438}# - (lambda (#{e\ 1451}# #{map-env\ 1452}#) - (let ((#{formals\ 1453}# (map cdr #{map-env\ 1452}#)) - (#{actuals\ 1454}# - (map (lambda (#{x\ 1455}#) - (list (quote ref) (car #{x\ 1455}#))) - #{map-env\ 1452}#))) - (if (eq? (car #{e\ 1451}#) (quote ref)) - (car #{actuals\ 1454}#) + (cons #{x\ 1218}# (cdr #{y\ 1219}#))) + (list (quote cons) #{x\ 1218}# #{y\ 1219}#)))))) + (#{gen-map\ 1208}# + (lambda (#{e\ 1221}# #{map-env\ 1222}#) + (let ((#{formals\ 1223}# (map cdr #{map-env\ 1222}#)) + (#{actuals\ 1224}# + (map (lambda (#{x\ 1225}#) + (list (quote ref) (car #{x\ 1225}#))) + #{map-env\ 1222}#))) + (if (eq? (car #{e\ 1221}#) (quote ref)) + (car #{actuals\ 1224}#) (if (and-map - (lambda (#{x\ 1456}#) - (if (eq? (car #{x\ 1456}#) (quote ref)) - (memq (cadr #{x\ 1456}#) #{formals\ 1453}#) + (lambda (#{x\ 1226}#) + (if (eq? (car #{x\ 1226}#) (quote ref)) + (memq (cadr #{x\ 1226}#) #{formals\ 1223}#) #f)) - (cdr #{e\ 1451}#)) + (cdr #{e\ 1221}#)) (cons 'map (cons (list 'primitive - (car #{e\ 1451}#)) - (map (let ((#{r\ 1457}# + (car #{e\ 1221}#)) + (map (let ((#{r\ 1227}# (map cons - #{formals\ 1453}# - #{actuals\ 1454}#))) - (lambda (#{x\ 1458}#) - (cdr (assq (cadr #{x\ 1458}#) - #{r\ 1457}#)))) - (cdr #{e\ 1451}#)))) + #{formals\ 1223}# + #{actuals\ 1224}#))) + (lambda (#{x\ 1228}#) + (cdr (assq (cadr #{x\ 1228}#) + #{r\ 1227}#)))) + (cdr #{e\ 1221}#)))) (cons 'map (cons (list 'lambda - #{formals\ 1453}# - #{e\ 1451}#) - #{actuals\ 1454}#))))))) - (#{gen-mappend\ 1437}# - (lambda (#{e\ 1459}# #{map-env\ 1460}#) + #{formals\ 1223}# + #{e\ 1221}#) + #{actuals\ 1224}#))))))) + (#{gen-mappend\ 1207}# + (lambda (#{e\ 1229}# #{map-env\ 1230}#) (list 'apply '(primitive append) - (#{gen-map\ 1438}# #{e\ 1459}# #{map-env\ 1460}#)))) - (#{gen-ref\ 1436}# - (lambda (#{src\ 1461}# - #{var\ 1462}# - #{level\ 1463}# - #{maps\ 1464}#) - (if (#{fx=\ 318}# #{level\ 1463}# 0) - (values #{var\ 1462}# #{maps\ 1464}#) - (if (null? #{maps\ 1464}#) + (#{gen-map\ 1208}# #{e\ 1229}# #{map-env\ 1230}#)))) + (#{gen-ref\ 1206}# + (lambda (#{src\ 1231}# + #{var\ 1232}# + #{level\ 1233}# + #{maps\ 1234}#) + (if (#{fx=\ 88}# #{level\ 1233}# 0) + (values #{var\ 1232}# #{maps\ 1234}#) + (if (null? #{maps\ 1234}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 1461}#) + #{src\ 1231}#) (call-with-values (lambda () - (#{gen-ref\ 1436}# - #{src\ 1461}# - #{var\ 1462}# - (#{fx-\ 317}# #{level\ 1463}# 1) - (cdr #{maps\ 1464}#))) - (lambda (#{outer-var\ 1465}# #{outer-maps\ 1466}#) - (let ((#{b\ 1467}# - (assq #{outer-var\ 1465}# - (car #{maps\ 1464}#)))) - (if #{b\ 1467}# - (values (cdr #{b\ 1467}#) #{maps\ 1464}#) - (let ((#{inner-var\ 1468}# - (#{gen-var\ 411}# (quote tmp)))) + (#{gen-ref\ 1206}# + #{src\ 1231}# + #{var\ 1232}# + (#{fx-\ 87}# #{level\ 1233}# 1) + (cdr #{maps\ 1234}#))) + (lambda (#{outer-var\ 1235}# #{outer-maps\ 1236}#) + (let ((#{b\ 1237}# + (assq #{outer-var\ 1235}# + (car #{maps\ 1234}#)))) + (if #{b\ 1237}# + (values (cdr #{b\ 1237}#) #{maps\ 1234}#) + (let ((#{inner-var\ 1238}# + (#{gen-var\ 181}# (quote tmp)))) (values - #{inner-var\ 1468}# - (cons (cons (cons #{outer-var\ 1465}# - #{inner-var\ 1468}#) - (car #{maps\ 1464}#)) - #{outer-maps\ 1466}#))))))))))) - (#{gen-syntax\ 1435}# - (lambda (#{src\ 1469}# - #{e\ 1470}# - #{r\ 1471}# - #{maps\ 1472}# - #{ellipsis?\ 1473}# - #{mod\ 1474}#) - (if (#{id?\ 361}# #{e\ 1470}#) - (let ((#{label\ 1475}# - (#{id-var-name\ 383}# - #{e\ 1470}# + #{inner-var\ 1238}# + (cons (cons (cons #{outer-var\ 1235}# + #{inner-var\ 1238}#) + (car #{maps\ 1234}#)) + #{outer-maps\ 1236}#))))))))))) + (#{gen-syntax\ 1205}# + (lambda (#{src\ 1239}# + #{e\ 1240}# + #{r\ 1241}# + #{maps\ 1242}# + #{ellipsis?\ 1243}# + #{mod\ 1244}#) + (if (#{id?\ 131}# #{e\ 1240}#) + (let ((#{label\ 1245}# + (#{id-var-name\ 153}# + #{e\ 1240}# '(())))) - (let ((#{b\ 1476}# - (#{lookup\ 358}# - #{label\ 1475}# - #{r\ 1471}# - #{mod\ 1474}#))) - (if (eq? (#{binding-type\ 353}# #{b\ 1476}#) + (let ((#{b\ 1246}# + (#{lookup\ 128}# + #{label\ 1245}# + #{r\ 1241}# + #{mod\ 1244}#))) + (if (eq? (#{binding-type\ 123}# #{b\ 1246}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 1477}# - (#{binding-value\ 354}# #{b\ 1476}#))) - (#{gen-ref\ 1436}# - #{src\ 1469}# - (car #{var.lev\ 1477}#) - (cdr #{var.lev\ 1477}#) - #{maps\ 1472}#))) - (lambda (#{var\ 1478}# #{maps\ 1479}#) + (let ((#{var.lev\ 1247}# + (#{binding-value\ 124}# #{b\ 1246}#))) + (#{gen-ref\ 1206}# + #{src\ 1239}# + (car #{var.lev\ 1247}#) + (cdr #{var.lev\ 1247}#) + #{maps\ 1242}#))) + (lambda (#{var\ 1248}# #{maps\ 1249}#) (values - (list (quote ref) #{var\ 1478}#) - #{maps\ 1479}#))) - (if (#{ellipsis?\ 1473}# #{e\ 1470}#) + (list (quote ref) #{var\ 1248}#) + #{maps\ 1249}#))) + (if (#{ellipsis?\ 1243}# #{e\ 1240}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 1469}#) + #{src\ 1239}#) (values - (list (quote quote) #{e\ 1470}#) - #{maps\ 1472}#))))) - ((lambda (#{tmp\ 1480}#) - ((lambda (#{tmp\ 1481}#) - (if (if #{tmp\ 1481}# - (apply (lambda (#{dots\ 1482}# #{e\ 1483}#) - (#{ellipsis?\ 1473}# - #{dots\ 1482}#)) - #{tmp\ 1481}#) + (list (quote quote) #{e\ 1240}#) + #{maps\ 1242}#))))) + ((lambda (#{tmp\ 1250}#) + ((lambda (#{tmp\ 1251}#) + (if (if #{tmp\ 1251}# + (apply (lambda (#{dots\ 1252}# #{e\ 1253}#) + (#{ellipsis?\ 1243}# + #{dots\ 1252}#)) + #{tmp\ 1251}#) #f) - (apply (lambda (#{dots\ 1484}# #{e\ 1485}#) - (#{gen-syntax\ 1435}# - #{src\ 1469}# - #{e\ 1485}# - #{r\ 1471}# - #{maps\ 1472}# - (lambda (#{x\ 1486}#) #f) - #{mod\ 1474}#)) - #{tmp\ 1481}#) - ((lambda (#{tmp\ 1487}#) - (if (if #{tmp\ 1487}# - (apply (lambda (#{x\ 1488}# - #{dots\ 1489}# - #{y\ 1490}#) - (#{ellipsis?\ 1473}# - #{dots\ 1489}#)) - #{tmp\ 1487}#) + (apply (lambda (#{dots\ 1254}# #{e\ 1255}#) + (#{gen-syntax\ 1205}# + #{src\ 1239}# + #{e\ 1255}# + #{r\ 1241}# + #{maps\ 1242}# + (lambda (#{x\ 1256}#) #f) + #{mod\ 1244}#)) + #{tmp\ 1251}#) + ((lambda (#{tmp\ 1257}#) + (if (if #{tmp\ 1257}# + (apply (lambda (#{x\ 1258}# + #{dots\ 1259}# + #{y\ 1260}#) + (#{ellipsis?\ 1243}# + #{dots\ 1259}#)) + #{tmp\ 1257}#) #f) - (apply (lambda (#{x\ 1491}# - #{dots\ 1492}# - #{y\ 1493}#) - (letrec ((#{f\ 1494}# - (lambda (#{y\ 1495}# - #{k\ 1496}#) - ((lambda (#{tmp\ 1500}#) - ((lambda (#{tmp\ 1501}#) - (if (if #{tmp\ 1501}# - (apply (lambda (#{dots\ 1502}# - #{y\ 1503}#) - (#{ellipsis?\ 1473}# - #{dots\ 1502}#)) - #{tmp\ 1501}#) + (apply (lambda (#{x\ 1261}# + #{dots\ 1262}# + #{y\ 1263}#) + (letrec ((#{f\ 1264}# + (lambda (#{y\ 1265}# + #{k\ 1266}#) + ((lambda (#{tmp\ 1270}#) + ((lambda (#{tmp\ 1271}#) + (if (if #{tmp\ 1271}# + (apply (lambda (#{dots\ 1272}# + #{y\ 1273}#) + (#{ellipsis?\ 1243}# + #{dots\ 1272}#)) + #{tmp\ 1271}#) #f) - (apply (lambda (#{dots\ 1504}# - #{y\ 1505}#) - (#{f\ 1494}# - #{y\ 1505}# - (lambda (#{maps\ 1506}#) + (apply (lambda (#{dots\ 1274}# + #{y\ 1275}#) + (#{f\ 1264}# + #{y\ 1275}# + (lambda (#{maps\ 1276}#) (call-with-values (lambda () - (#{k\ 1496}# + (#{k\ 1266}# (cons '() - #{maps\ 1506}#))) - (lambda (#{x\ 1507}# - #{maps\ 1508}#) - (if (null? (car #{maps\ 1508}#)) + #{maps\ 1276}#))) + (lambda (#{x\ 1277}# + #{maps\ 1278}#) + (if (null? (car #{maps\ 1278}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 1469}#) + #{src\ 1239}#) (values - (#{gen-mappend\ 1437}# - #{x\ 1507}# - (car #{maps\ 1508}#)) - (cdr #{maps\ 1508}#)))))))) - #{tmp\ 1501}#) - ((lambda (#{_\ 1509}#) + (#{gen-mappend\ 1207}# + #{x\ 1277}# + (car #{maps\ 1278}#)) + (cdr #{maps\ 1278}#)))))))) + #{tmp\ 1271}#) + ((lambda (#{_\ 1279}#) (call-with-values (lambda () - (#{gen-syntax\ 1435}# - #{src\ 1469}# - #{y\ 1495}# - #{r\ 1471}# - #{maps\ 1472}# - #{ellipsis?\ 1473}# - #{mod\ 1474}#)) - (lambda (#{y\ 1510}# - #{maps\ 1511}#) + (#{gen-syntax\ 1205}# + #{src\ 1239}# + #{y\ 1265}# + #{r\ 1241}# + #{maps\ 1242}# + #{ellipsis?\ 1243}# + #{mod\ 1244}#)) + (lambda (#{y\ 1280}# + #{maps\ 1281}#) (call-with-values (lambda () - (#{k\ 1496}# - #{maps\ 1511}#)) - (lambda (#{x\ 1512}# - #{maps\ 1513}#) + (#{k\ 1266}# + #{maps\ 1281}#)) + (lambda (#{x\ 1282}# + #{maps\ 1283}#) (values - (#{gen-append\ 1440}# - #{x\ 1512}# - #{y\ 1510}#) - #{maps\ 1513}#)))))) - #{tmp\ 1500}#))) + (#{gen-append\ 1210}# + #{x\ 1282}# + #{y\ 1280}#) + #{maps\ 1283}#)))))) + #{tmp\ 1270}#))) ($sc-dispatch - #{tmp\ 1500}# + #{tmp\ 1270}# '(any . any)))) - #{y\ 1495}#)))) - (#{f\ 1494}# - #{y\ 1493}# - (lambda (#{maps\ 1497}#) + #{y\ 1265}#)))) + (#{f\ 1264}# + #{y\ 1263}# + (lambda (#{maps\ 1267}#) (call-with-values (lambda () - (#{gen-syntax\ 1435}# - #{src\ 1469}# - #{x\ 1491}# - #{r\ 1471}# + (#{gen-syntax\ 1205}# + #{src\ 1239}# + #{x\ 1261}# + #{r\ 1241}# (cons '() - #{maps\ 1497}#) - #{ellipsis?\ 1473}# - #{mod\ 1474}#)) - (lambda (#{x\ 1498}# - #{maps\ 1499}#) - (if (null? (car #{maps\ 1499}#)) + #{maps\ 1267}#) + #{ellipsis?\ 1243}# + #{mod\ 1244}#)) + (lambda (#{x\ 1268}# + #{maps\ 1269}#) + (if (null? (car #{maps\ 1269}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 1469}#) + #{src\ 1239}#) (values - (#{gen-map\ 1438}# - #{x\ 1498}# - (car #{maps\ 1499}#)) - (cdr #{maps\ 1499}#))))))))) - #{tmp\ 1487}#) - ((lambda (#{tmp\ 1514}#) - (if #{tmp\ 1514}# - (apply (lambda (#{x\ 1515}# - #{y\ 1516}#) + (#{gen-map\ 1208}# + #{x\ 1268}# + (car #{maps\ 1269}#)) + (cdr #{maps\ 1269}#))))))))) + #{tmp\ 1257}#) + ((lambda (#{tmp\ 1284}#) + (if #{tmp\ 1284}# + (apply (lambda (#{x\ 1285}# + #{y\ 1286}#) (call-with-values (lambda () - (#{gen-syntax\ 1435}# - #{src\ 1469}# - #{x\ 1515}# - #{r\ 1471}# - #{maps\ 1472}# - #{ellipsis?\ 1473}# - #{mod\ 1474}#)) - (lambda (#{x\ 1517}# - #{maps\ 1518}#) + (#{gen-syntax\ 1205}# + #{src\ 1239}# + #{x\ 1285}# + #{r\ 1241}# + #{maps\ 1242}# + #{ellipsis?\ 1243}# + #{mod\ 1244}#)) + (lambda (#{x\ 1287}# + #{maps\ 1288}#) (call-with-values (lambda () - (#{gen-syntax\ 1435}# - #{src\ 1469}# - #{y\ 1516}# - #{r\ 1471}# - #{maps\ 1518}# - #{ellipsis?\ 1473}# - #{mod\ 1474}#)) - (lambda (#{y\ 1519}# - #{maps\ 1520}#) + (#{gen-syntax\ 1205}# + #{src\ 1239}# + #{y\ 1286}# + #{r\ 1241}# + #{maps\ 1288}# + #{ellipsis?\ 1243}# + #{mod\ 1244}#)) + (lambda (#{y\ 1289}# + #{maps\ 1290}#) (values - (#{gen-cons\ 1439}# - #{x\ 1517}# - #{y\ 1519}#) - #{maps\ 1520}#)))))) - #{tmp\ 1514}#) - ((lambda (#{tmp\ 1521}#) - (if #{tmp\ 1521}# - (apply (lambda (#{e1\ 1522}# - #{e2\ 1523}#) + (#{gen-cons\ 1209}# + #{x\ 1287}# + #{y\ 1289}#) + #{maps\ 1290}#)))))) + #{tmp\ 1284}#) + ((lambda (#{tmp\ 1291}#) + (if #{tmp\ 1291}# + (apply (lambda (#{e1\ 1292}# + #{e2\ 1293}#) (call-with-values (lambda () - (#{gen-syntax\ 1435}# - #{src\ 1469}# - (cons #{e1\ 1522}# - #{e2\ 1523}#) - #{r\ 1471}# - #{maps\ 1472}# - #{ellipsis?\ 1473}# - #{mod\ 1474}#)) - (lambda (#{e\ 1525}# - #{maps\ 1526}#) + (#{gen-syntax\ 1205}# + #{src\ 1239}# + (cons #{e1\ 1292}# + #{e2\ 1293}#) + #{r\ 1241}# + #{maps\ 1242}# + #{ellipsis?\ 1243}# + #{mod\ 1244}#)) + (lambda (#{e\ 1295}# + #{maps\ 1296}#) (values - (#{gen-vector\ 1441}# - #{e\ 1525}#) - #{maps\ 1526}#)))) - #{tmp\ 1521}#) - ((lambda (#{_\ 1527}#) + (#{gen-vector\ 1211}# + #{e\ 1295}#) + #{maps\ 1296}#)))) + #{tmp\ 1291}#) + ((lambda (#{_\ 1297}#) (values (list 'quote - #{e\ 1470}#) - #{maps\ 1472}#)) - #{tmp\ 1480}#))) + #{e\ 1240}#) + #{maps\ 1242}#)) + #{tmp\ 1250}#))) ($sc-dispatch - #{tmp\ 1480}# + #{tmp\ 1250}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 1480}# + #{tmp\ 1250}# '(any . any))))) ($sc-dispatch - #{tmp\ 1480}# + #{tmp\ 1250}# '(any any . any))))) - ($sc-dispatch #{tmp\ 1480}# (quote (any any))))) - #{e\ 1470}#))))) - (lambda (#{e\ 1528}# - #{r\ 1529}# - #{w\ 1530}# - #{s\ 1531}# - #{mod\ 1532}#) - (let ((#{e\ 1533}# - (#{source-wrap\ 390}# - #{e\ 1528}# - #{w\ 1530}# - #{s\ 1531}# - #{mod\ 1532}#))) - ((lambda (#{tmp\ 1534}#) - ((lambda (#{tmp\ 1535}#) - (if #{tmp\ 1535}# - (apply (lambda (#{_\ 1536}# #{x\ 1537}#) + ($sc-dispatch #{tmp\ 1250}# (quote (any any))))) + #{e\ 1240}#))))) + (lambda (#{e\ 1298}# + #{r\ 1299}# + #{w\ 1300}# + #{s\ 1301}# + #{mod\ 1302}#) + (let ((#{e\ 1303}# + (#{source-wrap\ 160}# + #{e\ 1298}# + #{w\ 1300}# + #{s\ 1301}# + #{mod\ 1302}#))) + ((lambda (#{tmp\ 1304}#) + ((lambda (#{tmp\ 1305}#) + (if #{tmp\ 1305}# + (apply (lambda (#{_\ 1306}# #{x\ 1307}#) (call-with-values (lambda () - (#{gen-syntax\ 1435}# - #{e\ 1533}# - #{x\ 1537}# - #{r\ 1529}# + (#{gen-syntax\ 1205}# + #{e\ 1303}# + #{x\ 1307}# + #{r\ 1299}# '() - #{ellipsis?\ 405}# - #{mod\ 1532}#)) - (lambda (#{e\ 1538}# #{maps\ 1539}#) - (#{regen\ 1442}# #{e\ 1538}#)))) - #{tmp\ 1535}#) - ((lambda (#{_\ 1540}#) + #{ellipsis?\ 175}# + #{mod\ 1302}#)) + (lambda (#{e\ 1308}# #{maps\ 1309}#) + (#{regen\ 1212}# #{e\ 1308}#)))) + #{tmp\ 1305}#) + ((lambda (#{_\ 1310}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 1533}#)) - #{tmp\ 1534}#))) - ($sc-dispatch #{tmp\ 1534}# (quote (any any))))) - #{e\ 1533}#))))) - (#{global-extend\ 359}# + #{e\ 1303}#)) + #{tmp\ 1304}#))) + ($sc-dispatch #{tmp\ 1304}# (quote (any any))))) + #{e\ 1303}#))))) + (#{global-extend\ 129}# 'core 'lambda - (lambda (#{e\ 1541}# - #{r\ 1542}# - #{w\ 1543}# - #{s\ 1544}# - #{mod\ 1545}#) - ((lambda (#{tmp\ 1546}#) - ((lambda (#{tmp\ 1547}#) - (if (if #{tmp\ 1547}# - (apply (lambda (#{_\ 1548}# - #{args\ 1549}# - #{docstring\ 1550}# - #{e1\ 1551}# - #{e2\ 1552}#) - (string? (syntax->datum #{docstring\ 1550}#))) - #{tmp\ 1547}#) + (lambda (#{e\ 1311}# + #{r\ 1312}# + #{w\ 1313}# + #{s\ 1314}# + #{mod\ 1315}#) + ((lambda (#{tmp\ 1316}#) + ((lambda (#{tmp\ 1317}#) + (if (if #{tmp\ 1317}# + (apply (lambda (#{_\ 1318}# + #{args\ 1319}# + #{docstring\ 1320}# + #{e1\ 1321}# + #{e2\ 1322}#) + (string? (syntax->datum #{docstring\ 1320}#))) + #{tmp\ 1317}#) #f) - (apply (lambda (#{_\ 1553}# - #{args\ 1554}# - #{docstring\ 1555}# - #{e1\ 1556}# - #{e2\ 1557}#) + (apply (lambda (#{_\ 1323}# + #{args\ 1324}# + #{docstring\ 1325}# + #{e1\ 1326}# + #{e2\ 1327}#) (call-with-values (lambda () - (#{lambda-formals\ 406}# #{args\ 1554}#)) - (lambda (#{req\ 1558}# - #{opt\ 1559}# - #{rest\ 1560}# - #{kw\ 1561}#) - (#{chi-simple-lambda\ 407}# - #{e\ 1541}# - #{r\ 1542}# - #{w\ 1543}# - #{s\ 1544}# - #{mod\ 1545}# - #{req\ 1558}# - #{rest\ 1560}# - (syntax->datum #{docstring\ 1555}#) - (cons #{e1\ 1556}# #{e2\ 1557}#))))) - #{tmp\ 1547}#) - ((lambda (#{tmp\ 1563}#) - (if #{tmp\ 1563}# - (apply (lambda (#{_\ 1564}# - #{args\ 1565}# - #{e1\ 1566}# - #{e2\ 1567}#) + (#{lambda-formals\ 176}# #{args\ 1324}#)) + (lambda (#{req\ 1328}# + #{opt\ 1329}# + #{rest\ 1330}# + #{kw\ 1331}#) + (#{chi-simple-lambda\ 177}# + #{e\ 1311}# + #{r\ 1312}# + #{w\ 1313}# + #{s\ 1314}# + #{mod\ 1315}# + #{req\ 1328}# + #{rest\ 1330}# + (syntax->datum #{docstring\ 1325}#) + (cons #{e1\ 1326}# #{e2\ 1327}#))))) + #{tmp\ 1317}#) + ((lambda (#{tmp\ 1333}#) + (if #{tmp\ 1333}# + (apply (lambda (#{_\ 1334}# + #{args\ 1335}# + #{e1\ 1336}# + #{e2\ 1337}#) (call-with-values (lambda () - (#{lambda-formals\ 406}# #{args\ 1565}#)) - (lambda (#{req\ 1568}# - #{opt\ 1569}# - #{rest\ 1570}# - #{kw\ 1571}#) - (#{chi-simple-lambda\ 407}# - #{e\ 1541}# - #{r\ 1542}# - #{w\ 1543}# - #{s\ 1544}# - #{mod\ 1545}# - #{req\ 1568}# - #{rest\ 1570}# + (#{lambda-formals\ 176}# #{args\ 1335}#)) + (lambda (#{req\ 1338}# + #{opt\ 1339}# + #{rest\ 1340}# + #{kw\ 1341}#) + (#{chi-simple-lambda\ 177}# + #{e\ 1311}# + #{r\ 1312}# + #{w\ 1313}# + #{s\ 1314}# + #{mod\ 1315}# + #{req\ 1338}# + #{rest\ 1340}# #f - (cons #{e1\ 1566}# #{e2\ 1567}#))))) - #{tmp\ 1563}#) - ((lambda (#{_\ 1573}#) + (cons #{e1\ 1336}# #{e2\ 1337}#))))) + #{tmp\ 1333}#) + ((lambda (#{_\ 1343}#) (syntax-violation 'lambda "bad lambda" - #{e\ 1541}#)) - #{tmp\ 1546}#))) + #{e\ 1311}#)) + #{tmp\ 1316}#))) ($sc-dispatch - #{tmp\ 1546}# + #{tmp\ 1316}# '(any any any . each-any))))) ($sc-dispatch - #{tmp\ 1546}# + #{tmp\ 1316}# '(any any any any . each-any)))) - #{e\ 1541}#))) - (#{global-extend\ 359}# + #{e\ 1311}#))) + (#{global-extend\ 129}# 'core 'lambda* - (lambda (#{e\ 1574}# - #{r\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}#) - ((lambda (#{tmp\ 1579}#) - ((lambda (#{tmp\ 1580}#) - (if #{tmp\ 1580}# - (apply (lambda (#{_\ 1581}# - #{args\ 1582}# - #{e1\ 1583}# - #{e2\ 1584}#) + (lambda (#{e\ 1344}# + #{r\ 1345}# + #{w\ 1346}# + #{s\ 1347}# + #{mod\ 1348}#) + ((lambda (#{tmp\ 1349}#) + ((lambda (#{tmp\ 1350}#) + (if #{tmp\ 1350}# + (apply (lambda (#{_\ 1351}# + #{args\ 1352}# + #{e1\ 1353}# + #{e2\ 1354}#) (call-with-values (lambda () - (#{chi-lambda-case\ 409}# - #{e\ 1574}# - #{r\ 1575}# - #{w\ 1576}# - #{s\ 1577}# - #{mod\ 1578}# - #{lambda*-formals\ 408}# - (list (cons #{args\ 1582}# - (cons #{e1\ 1583}# - #{e2\ 1584}#))))) - (lambda (#{docstring\ 1586}# #{lcase\ 1587}#) - (#{build-case-lambda\ 336}# - #{s\ 1577}# - #{docstring\ 1586}# - #{lcase\ 1587}#)))) - #{tmp\ 1580}#) - ((lambda (#{_\ 1588}#) + (#{chi-lambda-case\ 179}# + #{e\ 1344}# + #{r\ 1345}# + #{w\ 1346}# + #{s\ 1347}# + #{mod\ 1348}# + #{lambda*-formals\ 178}# + (list (cons #{args\ 1352}# + (cons #{e1\ 1353}# + #{e2\ 1354}#))))) + (lambda (#{docstring\ 1356}# #{lcase\ 1357}#) + (#{build-case-lambda\ 106}# + #{s\ 1347}# + #{docstring\ 1356}# + #{lcase\ 1357}#)))) + #{tmp\ 1350}#) + ((lambda (#{_\ 1358}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 1574}#)) - #{tmp\ 1579}#))) + #{e\ 1344}#)) + #{tmp\ 1349}#))) ($sc-dispatch - #{tmp\ 1579}# + #{tmp\ 1349}# '(any any any . each-any)))) - #{e\ 1574}#))) - (#{global-extend\ 359}# + #{e\ 1344}#))) + (#{global-extend\ 129}# + 'core + 'case-lambda + (lambda (#{e\ 1359}# + #{r\ 1360}# + #{w\ 1361}# + #{s\ 1362}# + #{mod\ 1363}#) + ((lambda (#{tmp\ 1364}#) + ((lambda (#{tmp\ 1365}#) + (if #{tmp\ 1365}# + (apply (lambda (#{_\ 1366}# + #{args\ 1367}# + #{e1\ 1368}# + #{e2\ 1369}# + #{args*\ 1370}# + #{e1*\ 1371}# + #{e2*\ 1372}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 179}# + #{e\ 1359}# + #{r\ 1360}# + #{w\ 1361}# + #{s\ 1362}# + #{mod\ 1363}# + #{lambda-formals\ 176}# + (cons (cons #{args\ 1367}# + (cons #{e1\ 1368}# #{e2\ 1369}#)) + (map (lambda (#{tmp\ 1376}# + #{tmp\ 1375}# + #{tmp\ 1374}#) + (cons #{tmp\ 1374}# + (cons #{tmp\ 1375}# + #{tmp\ 1376}#))) + #{e2*\ 1372}# + #{e1*\ 1371}# + #{args*\ 1370}#)))) + (lambda (#{docstring\ 1378}# #{lcase\ 1379}#) + (#{build-case-lambda\ 106}# + #{s\ 1362}# + #{docstring\ 1378}# + #{lcase\ 1379}#)))) + #{tmp\ 1365}#) + ((lambda (#{_\ 1380}#) + (syntax-violation + 'case-lambda + "bad case-lambda" + #{e\ 1359}#)) + #{tmp\ 1364}#))) + ($sc-dispatch + #{tmp\ 1364}# + '(any (any any . each-any) + . + #(each (any any . each-any)))))) + #{e\ 1359}#))) + (#{global-extend\ 129}# + 'core + 'case-lambda* + (lambda (#{e\ 1381}# + #{r\ 1382}# + #{w\ 1383}# + #{s\ 1384}# + #{mod\ 1385}#) + ((lambda (#{tmp\ 1386}#) + ((lambda (#{tmp\ 1387}#) + (if #{tmp\ 1387}# + (apply (lambda (#{_\ 1388}# + #{args\ 1389}# + #{e1\ 1390}# + #{e2\ 1391}# + #{args*\ 1392}# + #{e1*\ 1393}# + #{e2*\ 1394}#) + (call-with-values + (lambda () + (#{chi-lambda-case\ 179}# + #{e\ 1381}# + #{r\ 1382}# + #{w\ 1383}# + #{s\ 1384}# + #{mod\ 1385}# + #{lambda*-formals\ 178}# + (cons (cons #{args\ 1389}# + (cons #{e1\ 1390}# #{e2\ 1391}#)) + (map (lambda (#{tmp\ 1398}# + #{tmp\ 1397}# + #{tmp\ 1396}#) + (cons #{tmp\ 1396}# + (cons #{tmp\ 1397}# + #{tmp\ 1398}#))) + #{e2*\ 1394}# + #{e1*\ 1393}# + #{args*\ 1392}#)))) + (lambda (#{docstring\ 1400}# #{lcase\ 1401}#) + (#{build-case-lambda\ 106}# + #{s\ 1384}# + #{docstring\ 1400}# + #{lcase\ 1401}#)))) + #{tmp\ 1387}#) + ((lambda (#{_\ 1402}#) + (syntax-violation + 'case-lambda + "bad case-lambda*" + #{e\ 1381}#)) + #{tmp\ 1386}#))) + ($sc-dispatch + #{tmp\ 1386}# + '(any (any any . each-any) + . + #(each (any any . each-any)))))) + #{e\ 1381}#))) + (#{global-extend\ 129}# 'core 'let - (letrec ((#{chi-let\ 1589}# - (lambda (#{e\ 1590}# - #{r\ 1591}# - #{w\ 1592}# - #{s\ 1593}# - #{mod\ 1594}# - #{constructor\ 1595}# - #{ids\ 1596}# - #{vals\ 1597}# - #{exps\ 1598}#) - (if (not (#{valid-bound-ids?\ 386}# #{ids\ 1596}#)) + (letrec ((#{chi-let\ 1403}# + (lambda (#{e\ 1404}# + #{r\ 1405}# + #{w\ 1406}# + #{s\ 1407}# + #{mod\ 1408}# + #{constructor\ 1409}# + #{ids\ 1410}# + #{vals\ 1411}# + #{exps\ 1412}#) + (if (not (#{valid-bound-ids?\ 156}# #{ids\ 1410}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 1590}#) - (let ((#{labels\ 1599}# - (#{gen-labels\ 367}# #{ids\ 1596}#)) - (#{new-vars\ 1600}# - (map #{gen-var\ 411}# #{ids\ 1596}#))) - (let ((#{nw\ 1601}# - (#{make-binding-wrap\ 378}# - #{ids\ 1596}# - #{labels\ 1599}# - #{w\ 1592}#)) - (#{nr\ 1602}# - (#{extend-var-env\ 356}# - #{labels\ 1599}# - #{new-vars\ 1600}# - #{r\ 1591}#))) - (#{constructor\ 1595}# - #{s\ 1593}# - (map syntax->datum #{ids\ 1596}#) - #{new-vars\ 1600}# - (map (lambda (#{x\ 1603}#) - (#{chi\ 397}# - #{x\ 1603}# - #{r\ 1591}# - #{w\ 1592}# - #{mod\ 1594}#)) - #{vals\ 1597}#) - (#{chi-body\ 401}# - #{exps\ 1598}# - (#{source-wrap\ 390}# - #{e\ 1590}# - #{nw\ 1601}# - #{s\ 1593}# - #{mod\ 1594}#) - #{nr\ 1602}# - #{nw\ 1601}# - #{mod\ 1594}#)))))))) - (lambda (#{e\ 1604}# - #{r\ 1605}# - #{w\ 1606}# - #{s\ 1607}# - #{mod\ 1608}#) - ((lambda (#{tmp\ 1609}#) - ((lambda (#{tmp\ 1610}#) - (if (if #{tmp\ 1610}# - (apply (lambda (#{_\ 1611}# - #{id\ 1612}# - #{val\ 1613}# - #{e1\ 1614}# - #{e2\ 1615}#) - (and-map #{id?\ 361}# #{id\ 1612}#)) - #{tmp\ 1610}#) + #{e\ 1404}#) + (let ((#{labels\ 1413}# + (#{gen-labels\ 137}# #{ids\ 1410}#)) + (#{new-vars\ 1414}# + (map #{gen-var\ 181}# #{ids\ 1410}#))) + (let ((#{nw\ 1415}# + (#{make-binding-wrap\ 148}# + #{ids\ 1410}# + #{labels\ 1413}# + #{w\ 1406}#)) + (#{nr\ 1416}# + (#{extend-var-env\ 126}# + #{labels\ 1413}# + #{new-vars\ 1414}# + #{r\ 1405}#))) + (#{constructor\ 1409}# + #{s\ 1407}# + (map syntax->datum #{ids\ 1410}#) + #{new-vars\ 1414}# + (map (lambda (#{x\ 1417}#) + (#{chi\ 167}# + #{x\ 1417}# + #{r\ 1405}# + #{w\ 1406}# + #{mod\ 1408}#)) + #{vals\ 1411}#) + (#{chi-body\ 171}# + #{exps\ 1412}# + (#{source-wrap\ 160}# + #{e\ 1404}# + #{nw\ 1415}# + #{s\ 1407}# + #{mod\ 1408}#) + #{nr\ 1416}# + #{nw\ 1415}# + #{mod\ 1408}#)))))))) + (lambda (#{e\ 1418}# + #{r\ 1419}# + #{w\ 1420}# + #{s\ 1421}# + #{mod\ 1422}#) + ((lambda (#{tmp\ 1423}#) + ((lambda (#{tmp\ 1424}#) + (if (if #{tmp\ 1424}# + (apply (lambda (#{_\ 1425}# + #{id\ 1426}# + #{val\ 1427}# + #{e1\ 1428}# + #{e2\ 1429}#) + (and-map #{id?\ 131}# #{id\ 1426}#)) + #{tmp\ 1424}#) #f) - (apply (lambda (#{_\ 1617}# - #{id\ 1618}# - #{val\ 1619}# - #{e1\ 1620}# - #{e2\ 1621}#) - (#{chi-let\ 1589}# - #{e\ 1604}# - #{r\ 1605}# - #{w\ 1606}# - #{s\ 1607}# - #{mod\ 1608}# - #{build-let\ 341}# - #{id\ 1618}# - #{val\ 1619}# - (cons #{e1\ 1620}# #{e2\ 1621}#))) - #{tmp\ 1610}#) - ((lambda (#{tmp\ 1625}#) - (if (if #{tmp\ 1625}# - (apply (lambda (#{_\ 1626}# - #{f\ 1627}# - #{id\ 1628}# - #{val\ 1629}# - #{e1\ 1630}# - #{e2\ 1631}#) - (if (#{id?\ 361}# #{f\ 1627}#) - (and-map #{id?\ 361}# #{id\ 1628}#) + (apply (lambda (#{_\ 1431}# + #{id\ 1432}# + #{val\ 1433}# + #{e1\ 1434}# + #{e2\ 1435}#) + (#{chi-let\ 1403}# + #{e\ 1418}# + #{r\ 1419}# + #{w\ 1420}# + #{s\ 1421}# + #{mod\ 1422}# + #{build-let\ 111}# + #{id\ 1432}# + #{val\ 1433}# + (cons #{e1\ 1434}# #{e2\ 1435}#))) + #{tmp\ 1424}#) + ((lambda (#{tmp\ 1439}#) + (if (if #{tmp\ 1439}# + (apply (lambda (#{_\ 1440}# + #{f\ 1441}# + #{id\ 1442}# + #{val\ 1443}# + #{e1\ 1444}# + #{e2\ 1445}#) + (if (#{id?\ 131}# #{f\ 1441}#) + (and-map #{id?\ 131}# #{id\ 1442}#) #f)) - #{tmp\ 1625}#) + #{tmp\ 1439}#) #f) - (apply (lambda (#{_\ 1633}# - #{f\ 1634}# - #{id\ 1635}# - #{val\ 1636}# - #{e1\ 1637}# - #{e2\ 1638}#) - (#{chi-let\ 1589}# - #{e\ 1604}# - #{r\ 1605}# - #{w\ 1606}# - #{s\ 1607}# - #{mod\ 1608}# - #{build-named-let\ 342}# - (cons #{f\ 1634}# #{id\ 1635}#) - #{val\ 1636}# - (cons #{e1\ 1637}# #{e2\ 1638}#))) - #{tmp\ 1625}#) - ((lambda (#{_\ 1642}#) + (apply (lambda (#{_\ 1447}# + #{f\ 1448}# + #{id\ 1449}# + #{val\ 1450}# + #{e1\ 1451}# + #{e2\ 1452}#) + (#{chi-let\ 1403}# + #{e\ 1418}# + #{r\ 1419}# + #{w\ 1420}# + #{s\ 1421}# + #{mod\ 1422}# + #{build-named-let\ 112}# + (cons #{f\ 1448}# #{id\ 1449}#) + #{val\ 1450}# + (cons #{e1\ 1451}# #{e2\ 1452}#))) + #{tmp\ 1439}#) + ((lambda (#{_\ 1456}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 390}# - #{e\ 1604}# - #{w\ 1606}# - #{s\ 1607}# - #{mod\ 1608}#))) - #{tmp\ 1609}#))) + (#{source-wrap\ 160}# + #{e\ 1418}# + #{w\ 1420}# + #{s\ 1421}# + #{mod\ 1422}#))) + #{tmp\ 1423}#))) ($sc-dispatch - #{tmp\ 1609}# + #{tmp\ 1423}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 1609}# + #{tmp\ 1423}# '(any #(each (any any)) any . each-any)))) - #{e\ 1604}#)))) - (#{global-extend\ 359}# + #{e\ 1418}#)))) + (#{global-extend\ 129}# 'core 'letrec - (lambda (#{e\ 1643}# - #{r\ 1644}# - #{w\ 1645}# - #{s\ 1646}# - #{mod\ 1647}#) - ((lambda (#{tmp\ 1648}#) - ((lambda (#{tmp\ 1649}#) - (if (if #{tmp\ 1649}# - (apply (lambda (#{_\ 1650}# - #{id\ 1651}# - #{val\ 1652}# - #{e1\ 1653}# - #{e2\ 1654}#) - (and-map #{id?\ 361}# #{id\ 1651}#)) - #{tmp\ 1649}#) + (lambda (#{e\ 1457}# + #{r\ 1458}# + #{w\ 1459}# + #{s\ 1460}# + #{mod\ 1461}#) + ((lambda (#{tmp\ 1462}#) + ((lambda (#{tmp\ 1463}#) + (if (if #{tmp\ 1463}# + (apply (lambda (#{_\ 1464}# + #{id\ 1465}# + #{val\ 1466}# + #{e1\ 1467}# + #{e2\ 1468}#) + (and-map #{id?\ 131}# #{id\ 1465}#)) + #{tmp\ 1463}#) #f) - (apply (lambda (#{_\ 1656}# - #{id\ 1657}# - #{val\ 1658}# - #{e1\ 1659}# - #{e2\ 1660}#) - (let ((#{ids\ 1661}# #{id\ 1657}#)) - (if (not (#{valid-bound-ids?\ 386}# - #{ids\ 1661}#)) + (apply (lambda (#{_\ 1470}# + #{id\ 1471}# + #{val\ 1472}# + #{e1\ 1473}# + #{e2\ 1474}#) + (let ((#{ids\ 1475}# #{id\ 1471}#)) + (if (not (#{valid-bound-ids?\ 156}# + #{ids\ 1475}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 1643}#) - (let ((#{labels\ 1663}# - (#{gen-labels\ 367}# #{ids\ 1661}#)) - (#{new-vars\ 1664}# - (map #{gen-var\ 411}# #{ids\ 1661}#))) - (let ((#{w\ 1665}# - (#{make-binding-wrap\ 378}# - #{ids\ 1661}# - #{labels\ 1663}# - #{w\ 1645}#)) - (#{r\ 1666}# - (#{extend-var-env\ 356}# - #{labels\ 1663}# - #{new-vars\ 1664}# - #{r\ 1644}#))) - (#{build-letrec\ 343}# - #{s\ 1646}# - (map syntax->datum #{ids\ 1661}#) - #{new-vars\ 1664}# - (map (lambda (#{x\ 1667}#) - (#{chi\ 397}# - #{x\ 1667}# - #{r\ 1666}# - #{w\ 1665}# - #{mod\ 1647}#)) - #{val\ 1658}#) - (#{chi-body\ 401}# - (cons #{e1\ 1659}# #{e2\ 1660}#) - (#{source-wrap\ 390}# - #{e\ 1643}# - #{w\ 1665}# - #{s\ 1646}# - #{mod\ 1647}#) - #{r\ 1666}# - #{w\ 1665}# - #{mod\ 1647}#))))))) - #{tmp\ 1649}#) - ((lambda (#{_\ 1670}#) + #{e\ 1457}#) + (let ((#{labels\ 1477}# + (#{gen-labels\ 137}# #{ids\ 1475}#)) + (#{new-vars\ 1478}# + (map #{gen-var\ 181}# #{ids\ 1475}#))) + (let ((#{w\ 1479}# + (#{make-binding-wrap\ 148}# + #{ids\ 1475}# + #{labels\ 1477}# + #{w\ 1459}#)) + (#{r\ 1480}# + (#{extend-var-env\ 126}# + #{labels\ 1477}# + #{new-vars\ 1478}# + #{r\ 1458}#))) + (#{build-letrec\ 113}# + #{s\ 1460}# + (map syntax->datum #{ids\ 1475}#) + #{new-vars\ 1478}# + (map (lambda (#{x\ 1481}#) + (#{chi\ 167}# + #{x\ 1481}# + #{r\ 1480}# + #{w\ 1479}# + #{mod\ 1461}#)) + #{val\ 1472}#) + (#{chi-body\ 171}# + (cons #{e1\ 1473}# #{e2\ 1474}#) + (#{source-wrap\ 160}# + #{e\ 1457}# + #{w\ 1479}# + #{s\ 1460}# + #{mod\ 1461}#) + #{r\ 1480}# + #{w\ 1479}# + #{mod\ 1461}#))))))) + #{tmp\ 1463}#) + ((lambda (#{_\ 1484}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 390}# - #{e\ 1643}# - #{w\ 1645}# - #{s\ 1646}# - #{mod\ 1647}#))) - #{tmp\ 1648}#))) + (#{source-wrap\ 160}# + #{e\ 1457}# + #{w\ 1459}# + #{s\ 1460}# + #{mod\ 1461}#))) + #{tmp\ 1462}#))) ($sc-dispatch - #{tmp\ 1648}# + #{tmp\ 1462}# '(any #(each (any any)) any . each-any)))) - #{e\ 1643}#))) - (#{global-extend\ 359}# + #{e\ 1457}#))) + (#{global-extend\ 129}# 'core 'set! - (lambda (#{e\ 1671}# - #{r\ 1672}# - #{w\ 1673}# - #{s\ 1674}# - #{mod\ 1675}#) - ((lambda (#{tmp\ 1676}#) - ((lambda (#{tmp\ 1677}#) - (if (if #{tmp\ 1677}# - (apply (lambda (#{_\ 1678}# #{id\ 1679}# #{val\ 1680}#) - (#{id?\ 361}# #{id\ 1679}#)) - #{tmp\ 1677}#) + (lambda (#{e\ 1485}# + #{r\ 1486}# + #{w\ 1487}# + #{s\ 1488}# + #{mod\ 1489}#) + ((lambda (#{tmp\ 1490}#) + ((lambda (#{tmp\ 1491}#) + (if (if #{tmp\ 1491}# + (apply (lambda (#{_\ 1492}# #{id\ 1493}# #{val\ 1494}#) + (#{id?\ 131}# #{id\ 1493}#)) + #{tmp\ 1491}#) #f) - (apply (lambda (#{_\ 1681}# #{id\ 1682}# #{val\ 1683}#) - (let ((#{val\ 1684}# - (#{chi\ 397}# - #{val\ 1683}# - #{r\ 1672}# - #{w\ 1673}# - #{mod\ 1675}#)) - (#{n\ 1685}# - (#{id-var-name\ 383}# - #{id\ 1682}# - #{w\ 1673}#))) - (let ((#{b\ 1686}# - (#{lookup\ 358}# - #{n\ 1685}# - #{r\ 1672}# - #{mod\ 1675}#))) - (let ((#{atom-key\ 1687}# - (#{binding-type\ 353}# #{b\ 1686}#))) - (if (memv #{atom-key\ 1687}# + (apply (lambda (#{_\ 1495}# #{id\ 1496}# #{val\ 1497}#) + (let ((#{val\ 1498}# + (#{chi\ 167}# + #{val\ 1497}# + #{r\ 1486}# + #{w\ 1487}# + #{mod\ 1489}#)) + (#{n\ 1499}# + (#{id-var-name\ 153}# + #{id\ 1496}# + #{w\ 1487}#))) + (let ((#{b\ 1500}# + (#{lookup\ 128}# + #{n\ 1499}# + #{r\ 1486}# + #{mod\ 1489}#))) + (let ((#{atom-key\ 1501}# + (#{binding-type\ 123}# #{b\ 1500}#))) + (if (memv #{atom-key\ 1501}# '(lexical)) - (#{build-lexical-assignment\ 329}# - #{s\ 1674}# - (syntax->datum #{id\ 1682}#) - (#{binding-value\ 354}# #{b\ 1686}#) - #{val\ 1684}#) - (if (memv #{atom-key\ 1687}# + (#{build-lexical-assignment\ 99}# + #{s\ 1488}# + (syntax->datum #{id\ 1496}#) + (#{binding-value\ 124}# #{b\ 1500}#) + #{val\ 1498}#) + (if (memv #{atom-key\ 1501}# '(global)) - (#{build-global-assignment\ 332}# - #{s\ 1674}# - #{n\ 1685}# - #{val\ 1684}# - #{mod\ 1675}#) - (if (memv #{atom-key\ 1687}# + (#{build-global-assignment\ 102}# + #{s\ 1488}# + #{n\ 1499}# + #{val\ 1498}# + #{mod\ 1489}#) + (if (memv #{atom-key\ 1501}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 389}# - #{id\ 1682}# - #{w\ 1673}# - #{mod\ 1675}#)) + (#{wrap\ 159}# + #{id\ 1496}# + #{w\ 1487}# + #{mod\ 1489}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 390}# - #{e\ 1671}# - #{w\ 1673}# - #{s\ 1674}# - #{mod\ 1675}#))))))))) - #{tmp\ 1677}#) - ((lambda (#{tmp\ 1688}#) - (if #{tmp\ 1688}# - (apply (lambda (#{_\ 1689}# - #{head\ 1690}# - #{tail\ 1691}# - #{val\ 1692}#) + (#{source-wrap\ 160}# + #{e\ 1485}# + #{w\ 1487}# + #{s\ 1488}# + #{mod\ 1489}#))))))))) + #{tmp\ 1491}#) + ((lambda (#{tmp\ 1502}#) + (if #{tmp\ 1502}# + (apply (lambda (#{_\ 1503}# + #{head\ 1504}# + #{tail\ 1505}# + #{val\ 1506}#) (call-with-values (lambda () - (#{syntax-type\ 395}# - #{head\ 1690}# - #{r\ 1672}# + (#{syntax-type\ 165}# + #{head\ 1504}# + #{r\ 1486}# '(()) #f #f - #{mod\ 1675}# + #{mod\ 1489}# #t)) - (lambda (#{type\ 1693}# - #{value\ 1694}# - #{ee\ 1695}# - #{ww\ 1696}# - #{ss\ 1697}# - #{modmod\ 1698}#) - (if (memv #{type\ 1693}# + (lambda (#{type\ 1507}# + #{value\ 1508}# + #{ee\ 1509}# + #{ww\ 1510}# + #{ss\ 1511}# + #{modmod\ 1512}#) + (if (memv #{type\ 1507}# '(module-ref)) - (let ((#{val\ 1699}# - (#{chi\ 397}# - #{val\ 1692}# - #{r\ 1672}# - #{w\ 1673}# - #{mod\ 1675}#))) + (let ((#{val\ 1513}# + (#{chi\ 167}# + #{val\ 1506}# + #{r\ 1486}# + #{w\ 1487}# + #{mod\ 1489}#))) (call-with-values (lambda () - (#{value\ 1694}# - (cons #{head\ 1690}# - #{tail\ 1691}#))) - (lambda (#{id\ 1701}# #{mod\ 1702}#) - (#{build-global-assignment\ 332}# - #{s\ 1674}# - #{id\ 1701}# - #{val\ 1699}# - #{mod\ 1702}#)))) - (#{build-application\ 326}# - #{s\ 1674}# - (#{chi\ 397}# + (#{value\ 1508}# + (cons #{head\ 1504}# + #{tail\ 1505}#))) + (lambda (#{id\ 1515}# #{mod\ 1516}#) + (#{build-global-assignment\ 102}# + #{s\ 1488}# + #{id\ 1515}# + #{val\ 1513}# + #{mod\ 1516}#)))) + (#{build-application\ 96}# + #{s\ 1488}# + (#{chi\ 167}# (list '#(syntax-object setter ((top) @@ -9170,53 +9349,53 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{head\ 1690}#) - #{r\ 1672}# - #{w\ 1673}# - #{mod\ 1675}#) - (map (lambda (#{e\ 1703}#) - (#{chi\ 397}# - #{e\ 1703}# - #{r\ 1672}# - #{w\ 1673}# - #{mod\ 1675}#)) + #{head\ 1504}#) + #{r\ 1486}# + #{w\ 1487}# + #{mod\ 1489}#) + (map (lambda (#{e\ 1517}#) + (#{chi\ 167}# + #{e\ 1517}# + #{r\ 1486}# + #{w\ 1487}# + #{mod\ 1489}#)) (append - #{tail\ 1691}# - (list #{val\ 1692}#)))))))) - #{tmp\ 1688}#) - ((lambda (#{_\ 1705}#) + #{tail\ 1505}# + (list #{val\ 1506}#)))))))) + #{tmp\ 1502}#) + ((lambda (#{_\ 1519}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 390}# - #{e\ 1671}# - #{w\ 1673}# - #{s\ 1674}# - #{mod\ 1675}#))) - #{tmp\ 1676}#))) + (#{source-wrap\ 160}# + #{e\ 1485}# + #{w\ 1487}# + #{s\ 1488}# + #{mod\ 1489}#))) + #{tmp\ 1490}#))) ($sc-dispatch - #{tmp\ 1676}# + #{tmp\ 1490}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 1676}# + #{tmp\ 1490}# '(any any any)))) - #{e\ 1671}#))) - (#{global-extend\ 359}# + #{e\ 1485}#))) + (#{global-extend\ 129}# 'module-ref '@ - (lambda (#{e\ 1706}#) - ((lambda (#{tmp\ 1707}#) - ((lambda (#{tmp\ 1708}#) - (if (if #{tmp\ 1708}# - (apply (lambda (#{_\ 1709}# #{mod\ 1710}# #{id\ 1711}#) - (if (and-map #{id?\ 361}# #{mod\ 1710}#) - (#{id?\ 361}# #{id\ 1711}#) + (lambda (#{e\ 1520}#) + ((lambda (#{tmp\ 1521}#) + ((lambda (#{tmp\ 1522}#) + (if (if #{tmp\ 1522}# + (apply (lambda (#{_\ 1523}# #{mod\ 1524}# #{id\ 1525}#) + (if (and-map #{id?\ 131}# #{mod\ 1524}#) + (#{id?\ 131}# #{id\ 1525}#) #f)) - #{tmp\ 1708}#) + #{tmp\ 1522}#) #f) - (apply (lambda (#{_\ 1713}# #{mod\ 1714}# #{id\ 1715}#) + (apply (lambda (#{_\ 1527}# #{mod\ 1528}# #{id\ 1529}#) (values - (syntax->datum #{id\ 1715}#) + (syntax->datum #{id\ 1529}#) (syntax->datum (cons '#(syntax-object public @@ -9584,32 +9763,32 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{mod\ 1714}#)))) - #{tmp\ 1708}#) + #{mod\ 1528}#)))) + #{tmp\ 1522}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1707}#))) + #{tmp\ 1521}#))) ($sc-dispatch - #{tmp\ 1707}# + #{tmp\ 1521}# '(any each-any any)))) - #{e\ 1706}#))) - (#{global-extend\ 359}# + #{e\ 1520}#))) + (#{global-extend\ 129}# 'module-ref '@@ - (lambda (#{e\ 1717}#) - ((lambda (#{tmp\ 1718}#) - ((lambda (#{tmp\ 1719}#) - (if (if #{tmp\ 1719}# - (apply (lambda (#{_\ 1720}# #{mod\ 1721}# #{id\ 1722}#) - (if (and-map #{id?\ 361}# #{mod\ 1721}#) - (#{id?\ 361}# #{id\ 1722}#) + (lambda (#{e\ 1531}#) + ((lambda (#{tmp\ 1532}#) + ((lambda (#{tmp\ 1533}#) + (if (if #{tmp\ 1533}# + (apply (lambda (#{_\ 1534}# #{mod\ 1535}# #{id\ 1536}#) + (if (and-map #{id?\ 131}# #{mod\ 1535}#) + (#{id?\ 131}# #{id\ 1536}#) #f)) - #{tmp\ 1719}#) + #{tmp\ 1533}#) #f) - (apply (lambda (#{_\ 1724}# #{mod\ 1725}# #{id\ 1726}#) + (apply (lambda (#{_\ 1538}# #{mod\ 1539}# #{id\ 1540}#) (values - (syntax->datum #{id\ 1726}#) + (syntax->datum #{id\ 1540}#) (syntax->datum (cons '#(syntax-object private @@ -9977,123 +10156,123 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{mod\ 1725}#)))) - #{tmp\ 1719}#) + #{mod\ 1539}#)))) + #{tmp\ 1533}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1718}#))) + #{tmp\ 1532}#))) ($sc-dispatch - #{tmp\ 1718}# + #{tmp\ 1532}# '(any each-any any)))) - #{e\ 1717}#))) - (#{global-extend\ 359}# + #{e\ 1531}#))) + (#{global-extend\ 129}# 'core 'if - (lambda (#{e\ 1728}# - #{r\ 1729}# - #{w\ 1730}# - #{s\ 1731}# - #{mod\ 1732}#) - ((lambda (#{tmp\ 1733}#) - ((lambda (#{tmp\ 1734}#) - (if #{tmp\ 1734}# - (apply (lambda (#{_\ 1735}# #{test\ 1736}# #{then\ 1737}#) - (#{build-conditional\ 327}# - #{s\ 1731}# - (#{chi\ 397}# - #{test\ 1736}# - #{r\ 1729}# - #{w\ 1730}# - #{mod\ 1732}#) - (#{chi\ 397}# - #{then\ 1737}# - #{r\ 1729}# - #{w\ 1730}# - #{mod\ 1732}#) - (#{build-void\ 325}# #f))) - #{tmp\ 1734}#) - ((lambda (#{tmp\ 1738}#) - (if #{tmp\ 1738}# - (apply (lambda (#{_\ 1739}# - #{test\ 1740}# - #{then\ 1741}# - #{else\ 1742}#) - (#{build-conditional\ 327}# - #{s\ 1731}# - (#{chi\ 397}# - #{test\ 1740}# - #{r\ 1729}# - #{w\ 1730}# - #{mod\ 1732}#) - (#{chi\ 397}# - #{then\ 1741}# - #{r\ 1729}# - #{w\ 1730}# - #{mod\ 1732}#) - (#{chi\ 397}# - #{else\ 1742}# - #{r\ 1729}# - #{w\ 1730}# - #{mod\ 1732}#))) - #{tmp\ 1738}#) + (lambda (#{e\ 1542}# + #{r\ 1543}# + #{w\ 1544}# + #{s\ 1545}# + #{mod\ 1546}#) + ((lambda (#{tmp\ 1547}#) + ((lambda (#{tmp\ 1548}#) + (if #{tmp\ 1548}# + (apply (lambda (#{_\ 1549}# #{test\ 1550}# #{then\ 1551}#) + (#{build-conditional\ 97}# + #{s\ 1545}# + (#{chi\ 167}# + #{test\ 1550}# + #{r\ 1543}# + #{w\ 1544}# + #{mod\ 1546}#) + (#{chi\ 167}# + #{then\ 1551}# + #{r\ 1543}# + #{w\ 1544}# + #{mod\ 1546}#) + (#{build-void\ 95}# #f))) + #{tmp\ 1548}#) + ((lambda (#{tmp\ 1552}#) + (if #{tmp\ 1552}# + (apply (lambda (#{_\ 1553}# + #{test\ 1554}# + #{then\ 1555}# + #{else\ 1556}#) + (#{build-conditional\ 97}# + #{s\ 1545}# + (#{chi\ 167}# + #{test\ 1554}# + #{r\ 1543}# + #{w\ 1544}# + #{mod\ 1546}#) + (#{chi\ 167}# + #{then\ 1555}# + #{r\ 1543}# + #{w\ 1544}# + #{mod\ 1546}#) + (#{chi\ 167}# + #{else\ 1556}# + #{r\ 1543}# + #{w\ 1544}# + #{mod\ 1546}#))) + #{tmp\ 1552}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1733}#))) + #{tmp\ 1547}#))) ($sc-dispatch - #{tmp\ 1733}# + #{tmp\ 1547}# '(any any any any))))) ($sc-dispatch - #{tmp\ 1733}# + #{tmp\ 1547}# '(any any any)))) - #{e\ 1728}#))) - (#{global-extend\ 359}# + #{e\ 1542}#))) + (#{global-extend\ 129}# 'begin 'begin '()) - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'define 'define '()) - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'eval-when 'eval-when '()) - (#{global-extend\ 359}# + (#{global-extend\ 129}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 1746}# - (lambda (#{x\ 1747}# - #{keys\ 1748}# - #{clauses\ 1749}# - #{r\ 1750}# - #{mod\ 1751}#) - (if (null? #{clauses\ 1749}#) - (#{build-application\ 326}# + (letrec ((#{gen-syntax-case\ 1560}# + (lambda (#{x\ 1561}# + #{keys\ 1562}# + #{clauses\ 1563}# + #{r\ 1564}# + #{mod\ 1565}#) + (if (null? #{clauses\ 1563}#) + (#{build-application\ 96}# #f - (#{build-primref\ 338}# + (#{build-primref\ 108}# #f 'syntax-violation) - (list (#{build-data\ 339}# #f #f) - (#{build-data\ 339}# + (list (#{build-data\ 109}# #f #f) + (#{build-data\ 109}# #f "source expression failed to match any pattern") - #{x\ 1747}#)) - ((lambda (#{tmp\ 1752}#) - ((lambda (#{tmp\ 1753}#) - (if #{tmp\ 1753}# - (apply (lambda (#{pat\ 1754}# #{exp\ 1755}#) - (if (if (#{id?\ 361}# #{pat\ 1754}#) + #{x\ 1561}#)) + ((lambda (#{tmp\ 1566}#) + ((lambda (#{tmp\ 1567}#) + (if #{tmp\ 1567}# + (apply (lambda (#{pat\ 1568}# #{exp\ 1569}#) + (if (if (#{id?\ 131}# #{pat\ 1568}#) (and-map - (lambda (#{x\ 1756}#) - (not (#{free-id=?\ 384}# - #{pat\ 1754}# - #{x\ 1756}#))) + (lambda (#{x\ 1570}#) + (not (#{free-id=?\ 154}# + #{pat\ 1568}# + #{x\ 1570}#))) (cons '#(syntax-object ... ((top) @@ -10486,734 +10665,734 @@ ((top) (top)) ("i" "i"))) (hygiene guile)) - #{keys\ 1748}#)) + #{keys\ 1562}#)) #f) - (let ((#{labels\ 1757}# - (list (#{gen-label\ 366}#))) - (#{var\ 1758}# - (#{gen-var\ 411}# - #{pat\ 1754}#))) - (#{build-application\ 326}# + (let ((#{labels\ 1571}# + (list (#{gen-label\ 136}#))) + (#{var\ 1572}# + (#{gen-var\ 181}# + #{pat\ 1568}#))) + (#{build-application\ 96}# #f - (#{build-simple-lambda\ 335}# + (#{build-simple-lambda\ 105}# #f (list (syntax->datum - #{pat\ 1754}#)) + #{pat\ 1568}#)) #f - (list #{var\ 1758}#) + (list #{var\ 1572}#) #f - (#{chi\ 397}# - #{exp\ 1755}# - (#{extend-env\ 355}# - #{labels\ 1757}# + (#{chi\ 167}# + #{exp\ 1569}# + (#{extend-env\ 125}# + #{labels\ 1571}# (list (cons 'syntax - (cons #{var\ 1758}# + (cons #{var\ 1572}# 0))) - #{r\ 1750}#) - (#{make-binding-wrap\ 378}# - (list #{pat\ 1754}#) - #{labels\ 1757}# + #{r\ 1564}#) + (#{make-binding-wrap\ 148}# + (list #{pat\ 1568}#) + #{labels\ 1571}# '(())) - #{mod\ 1751}#)) - (list #{x\ 1747}#))) - (#{gen-clause\ 1745}# - #{x\ 1747}# - #{keys\ 1748}# - (cdr #{clauses\ 1749}#) - #{r\ 1750}# - #{pat\ 1754}# + #{mod\ 1565}#)) + (list #{x\ 1561}#))) + (#{gen-clause\ 1559}# + #{x\ 1561}# + #{keys\ 1562}# + (cdr #{clauses\ 1563}#) + #{r\ 1564}# + #{pat\ 1568}# #t - #{exp\ 1755}# - #{mod\ 1751}#))) - #{tmp\ 1753}#) - ((lambda (#{tmp\ 1759}#) - (if #{tmp\ 1759}# - (apply (lambda (#{pat\ 1760}# - #{fender\ 1761}# - #{exp\ 1762}#) - (#{gen-clause\ 1745}# - #{x\ 1747}# - #{keys\ 1748}# - (cdr #{clauses\ 1749}#) - #{r\ 1750}# - #{pat\ 1760}# - #{fender\ 1761}# - #{exp\ 1762}# - #{mod\ 1751}#)) - #{tmp\ 1759}#) - ((lambda (#{_\ 1763}#) + #{exp\ 1569}# + #{mod\ 1565}#))) + #{tmp\ 1567}#) + ((lambda (#{tmp\ 1573}#) + (if #{tmp\ 1573}# + (apply (lambda (#{pat\ 1574}# + #{fender\ 1575}# + #{exp\ 1576}#) + (#{gen-clause\ 1559}# + #{x\ 1561}# + #{keys\ 1562}# + (cdr #{clauses\ 1563}#) + #{r\ 1564}# + #{pat\ 1574}# + #{fender\ 1575}# + #{exp\ 1576}# + #{mod\ 1565}#)) + #{tmp\ 1573}#) + ((lambda (#{_\ 1577}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 1749}#))) - #{tmp\ 1752}#))) + (car #{clauses\ 1563}#))) + #{tmp\ 1566}#))) ($sc-dispatch - #{tmp\ 1752}# + #{tmp\ 1566}# '(any any any))))) - ($sc-dispatch #{tmp\ 1752}# (quote (any any))))) - (car #{clauses\ 1749}#))))) - (#{gen-clause\ 1745}# - (lambda (#{x\ 1764}# - #{keys\ 1765}# - #{clauses\ 1766}# - #{r\ 1767}# - #{pat\ 1768}# - #{fender\ 1769}# - #{exp\ 1770}# - #{mod\ 1771}#) + ($sc-dispatch #{tmp\ 1566}# (quote (any any))))) + (car #{clauses\ 1563}#))))) + (#{gen-clause\ 1559}# + (lambda (#{x\ 1578}# + #{keys\ 1579}# + #{clauses\ 1580}# + #{r\ 1581}# + #{pat\ 1582}# + #{fender\ 1583}# + #{exp\ 1584}# + #{mod\ 1585}#) (call-with-values (lambda () - (#{convert-pattern\ 1743}# - #{pat\ 1768}# - #{keys\ 1765}#)) - (lambda (#{p\ 1772}# #{pvars\ 1773}#) - (if (not (#{distinct-bound-ids?\ 387}# - (map car #{pvars\ 1773}#))) + (#{convert-pattern\ 1557}# + #{pat\ 1582}# + #{keys\ 1579}#)) + (lambda (#{p\ 1586}# #{pvars\ 1587}#) + (if (not (#{distinct-bound-ids?\ 157}# + (map car #{pvars\ 1587}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 1768}#) + #{pat\ 1582}#) (if (not (and-map - (lambda (#{x\ 1774}#) - (not (#{ellipsis?\ 405}# - (car #{x\ 1774}#)))) - #{pvars\ 1773}#)) + (lambda (#{x\ 1588}#) + (not (#{ellipsis?\ 175}# + (car #{x\ 1588}#)))) + #{pvars\ 1587}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 1768}#) - (let ((#{y\ 1775}# - (#{gen-var\ 411}# (quote tmp)))) - (#{build-application\ 326}# + #{pat\ 1582}#) + (let ((#{y\ 1589}# + (#{gen-var\ 181}# (quote tmp)))) + (#{build-application\ 96}# #f - (#{build-simple-lambda\ 335}# + (#{build-simple-lambda\ 105}# #f (list (quote tmp)) #f - (list #{y\ 1775}#) + (list #{y\ 1589}#) #f - (let ((#{y\ 1776}# - (#{build-lexical-reference\ 328}# + (let ((#{y\ 1590}# + (#{build-lexical-reference\ 98}# 'value #f 'tmp - #{y\ 1775}#))) - (#{build-conditional\ 327}# + #{y\ 1589}#))) + (#{build-conditional\ 97}# #f - ((lambda (#{tmp\ 1777}#) - ((lambda (#{tmp\ 1778}#) - (if #{tmp\ 1778}# - (apply (lambda () #{y\ 1776}#) - #{tmp\ 1778}#) - ((lambda (#{_\ 1779}#) - (#{build-conditional\ 327}# + ((lambda (#{tmp\ 1591}#) + ((lambda (#{tmp\ 1592}#) + (if #{tmp\ 1592}# + (apply (lambda () #{y\ 1590}#) + #{tmp\ 1592}#) + ((lambda (#{_\ 1593}#) + (#{build-conditional\ 97}# #f - #{y\ 1776}# - (#{build-dispatch-call\ 1744}# - #{pvars\ 1773}# - #{fender\ 1769}# - #{y\ 1776}# - #{r\ 1767}# - #{mod\ 1771}#) - (#{build-data\ 339}# + #{y\ 1590}# + (#{build-dispatch-call\ 1558}# + #{pvars\ 1587}# + #{fender\ 1583}# + #{y\ 1590}# + #{r\ 1581}# + #{mod\ 1585}#) + (#{build-data\ 109}# #f #f))) - #{tmp\ 1777}#))) + #{tmp\ 1591}#))) ($sc-dispatch - #{tmp\ 1777}# + #{tmp\ 1591}# '#(atom #t)))) - #{fender\ 1769}#) - (#{build-dispatch-call\ 1744}# - #{pvars\ 1773}# - #{exp\ 1770}# - #{y\ 1776}# - #{r\ 1767}# - #{mod\ 1771}#) - (#{gen-syntax-case\ 1746}# - #{x\ 1764}# - #{keys\ 1765}# - #{clauses\ 1766}# - #{r\ 1767}# - #{mod\ 1771}#)))) - (list (if (eq? #{p\ 1772}# (quote any)) - (#{build-application\ 326}# + #{fender\ 1583}#) + (#{build-dispatch-call\ 1558}# + #{pvars\ 1587}# + #{exp\ 1584}# + #{y\ 1590}# + #{r\ 1581}# + #{mod\ 1585}#) + (#{gen-syntax-case\ 1560}# + #{x\ 1578}# + #{keys\ 1579}# + #{clauses\ 1580}# + #{r\ 1581}# + #{mod\ 1585}#)))) + (list (if (eq? #{p\ 1586}# (quote any)) + (#{build-application\ 96}# #f - (#{build-primref\ 338}# + (#{build-primref\ 108}# #f 'list) - (list #{x\ 1764}#)) - (#{build-application\ 326}# + (list #{x\ 1578}#)) + (#{build-application\ 96}# #f - (#{build-primref\ 338}# + (#{build-primref\ 108}# #f '$sc-dispatch) - (list #{x\ 1764}# - (#{build-data\ 339}# + (list #{x\ 1578}# + (#{build-data\ 109}# #f - #{p\ 1772}#))))))))))))) - (#{build-dispatch-call\ 1744}# - (lambda (#{pvars\ 1780}# - #{exp\ 1781}# - #{y\ 1782}# - #{r\ 1783}# - #{mod\ 1784}#) - (let ((#{ids\ 1785}# (map car #{pvars\ 1780}#)) - (#{levels\ 1786}# (map cdr #{pvars\ 1780}#))) - (let ((#{labels\ 1787}# - (#{gen-labels\ 367}# #{ids\ 1785}#)) - (#{new-vars\ 1788}# - (map #{gen-var\ 411}# #{ids\ 1785}#))) - (#{build-application\ 326}# + #{p\ 1586}#))))))))))))) + (#{build-dispatch-call\ 1558}# + (lambda (#{pvars\ 1594}# + #{exp\ 1595}# + #{y\ 1596}# + #{r\ 1597}# + #{mod\ 1598}#) + (let ((#{ids\ 1599}# (map car #{pvars\ 1594}#)) + (#{levels\ 1600}# (map cdr #{pvars\ 1594}#))) + (let ((#{labels\ 1601}# + (#{gen-labels\ 137}# #{ids\ 1599}#)) + (#{new-vars\ 1602}# + (map #{gen-var\ 181}# #{ids\ 1599}#))) + (#{build-application\ 96}# #f - (#{build-primref\ 338}# #f (quote apply)) - (list (#{build-simple-lambda\ 335}# + (#{build-primref\ 108}# #f (quote apply)) + (list (#{build-simple-lambda\ 105}# #f - (map syntax->datum #{ids\ 1785}#) + (map syntax->datum #{ids\ 1599}#) #f - #{new-vars\ 1788}# + #{new-vars\ 1602}# #f - (#{chi\ 397}# - #{exp\ 1781}# - (#{extend-env\ 355}# - #{labels\ 1787}# - (map (lambda (#{var\ 1789}# - #{level\ 1790}#) + (#{chi\ 167}# + #{exp\ 1595}# + (#{extend-env\ 125}# + #{labels\ 1601}# + (map (lambda (#{var\ 1603}# + #{level\ 1604}#) (cons 'syntax - (cons #{var\ 1789}# - #{level\ 1790}#))) - #{new-vars\ 1788}# - (map cdr #{pvars\ 1780}#)) - #{r\ 1783}#) - (#{make-binding-wrap\ 378}# - #{ids\ 1785}# - #{labels\ 1787}# + (cons #{var\ 1603}# + #{level\ 1604}#))) + #{new-vars\ 1602}# + (map cdr #{pvars\ 1594}#)) + #{r\ 1597}#) + (#{make-binding-wrap\ 148}# + #{ids\ 1599}# + #{labels\ 1601}# '(())) - #{mod\ 1784}#)) - #{y\ 1782}#)))))) - (#{convert-pattern\ 1743}# - (lambda (#{pattern\ 1791}# #{keys\ 1792}#) - (letrec ((#{cvt\ 1793}# - (lambda (#{p\ 1794}# #{n\ 1795}# #{ids\ 1796}#) - (if (#{id?\ 361}# #{p\ 1794}#) - (if (#{bound-id-member?\ 388}# - #{p\ 1794}# - #{keys\ 1792}#) + #{mod\ 1598}#)) + #{y\ 1596}#)))))) + (#{convert-pattern\ 1557}# + (lambda (#{pattern\ 1605}# #{keys\ 1606}#) + (letrec ((#{cvt\ 1607}# + (lambda (#{p\ 1608}# #{n\ 1609}# #{ids\ 1610}#) + (if (#{id?\ 131}# #{p\ 1608}#) + (if (#{bound-id-member?\ 158}# + #{p\ 1608}# + #{keys\ 1606}#) (values - (vector (quote free-id) #{p\ 1794}#) - #{ids\ 1796}#) + (vector (quote free-id) #{p\ 1608}#) + #{ids\ 1610}#) (values 'any - (cons (cons #{p\ 1794}# #{n\ 1795}#) - #{ids\ 1796}#))) - ((lambda (#{tmp\ 1797}#) - ((lambda (#{tmp\ 1798}#) - (if (if #{tmp\ 1798}# - (apply (lambda (#{x\ 1799}# - #{dots\ 1800}#) - (#{ellipsis?\ 405}# - #{dots\ 1800}#)) - #{tmp\ 1798}#) + (cons (cons #{p\ 1608}# #{n\ 1609}#) + #{ids\ 1610}#))) + ((lambda (#{tmp\ 1611}#) + ((lambda (#{tmp\ 1612}#) + (if (if #{tmp\ 1612}# + (apply (lambda (#{x\ 1613}# + #{dots\ 1614}#) + (#{ellipsis?\ 175}# + #{dots\ 1614}#)) + #{tmp\ 1612}#) #f) - (apply (lambda (#{x\ 1801}# - #{dots\ 1802}#) + (apply (lambda (#{x\ 1615}# + #{dots\ 1616}#) (call-with-values (lambda () - (#{cvt\ 1793}# - #{x\ 1801}# - (#{fx+\ 316}# - #{n\ 1795}# + (#{cvt\ 1607}# + #{x\ 1615}# + (#{fx+\ 86}# + #{n\ 1609}# 1) - #{ids\ 1796}#)) - (lambda (#{p\ 1803}# - #{ids\ 1804}#) + #{ids\ 1610}#)) + (lambda (#{p\ 1617}# + #{ids\ 1618}#) (values - (if (eq? #{p\ 1803}# + (if (eq? #{p\ 1617}# 'any) 'each-any (vector 'each - #{p\ 1803}#)) - #{ids\ 1804}#)))) - #{tmp\ 1798}#) - ((lambda (#{tmp\ 1805}#) - (if #{tmp\ 1805}# - (apply (lambda (#{x\ 1806}# - #{y\ 1807}#) + #{p\ 1617}#)) + #{ids\ 1618}#)))) + #{tmp\ 1612}#) + ((lambda (#{tmp\ 1619}#) + (if #{tmp\ 1619}# + (apply (lambda (#{x\ 1620}# + #{y\ 1621}#) (call-with-values (lambda () - (#{cvt\ 1793}# - #{y\ 1807}# - #{n\ 1795}# - #{ids\ 1796}#)) - (lambda (#{y\ 1808}# - #{ids\ 1809}#) + (#{cvt\ 1607}# + #{y\ 1621}# + #{n\ 1609}# + #{ids\ 1610}#)) + (lambda (#{y\ 1622}# + #{ids\ 1623}#) (call-with-values (lambda () - (#{cvt\ 1793}# - #{x\ 1806}# - #{n\ 1795}# - #{ids\ 1809}#)) - (lambda (#{x\ 1810}# - #{ids\ 1811}#) + (#{cvt\ 1607}# + #{x\ 1620}# + #{n\ 1609}# + #{ids\ 1623}#)) + (lambda (#{x\ 1624}# + #{ids\ 1625}#) (values - (cons #{x\ 1810}# - #{y\ 1808}#) - #{ids\ 1811}#)))))) - #{tmp\ 1805}#) - ((lambda (#{tmp\ 1812}#) - (if #{tmp\ 1812}# + (cons #{x\ 1624}# + #{y\ 1622}#) + #{ids\ 1625}#)))))) + #{tmp\ 1619}#) + ((lambda (#{tmp\ 1626}#) + (if #{tmp\ 1626}# (apply (lambda () (values '() - #{ids\ 1796}#)) - #{tmp\ 1812}#) - ((lambda (#{tmp\ 1813}#) - (if #{tmp\ 1813}# - (apply (lambda (#{x\ 1814}#) + #{ids\ 1610}#)) + #{tmp\ 1626}#) + ((lambda (#{tmp\ 1627}#) + (if #{tmp\ 1627}# + (apply (lambda (#{x\ 1628}#) (call-with-values (lambda () - (#{cvt\ 1793}# - #{x\ 1814}# - #{n\ 1795}# - #{ids\ 1796}#)) - (lambda (#{p\ 1816}# - #{ids\ 1817}#) + (#{cvt\ 1607}# + #{x\ 1628}# + #{n\ 1609}# + #{ids\ 1610}#)) + (lambda (#{p\ 1630}# + #{ids\ 1631}#) (values (vector 'vector - #{p\ 1816}#) - #{ids\ 1817}#)))) - #{tmp\ 1813}#) - ((lambda (#{x\ 1818}#) + #{p\ 1630}#) + #{ids\ 1631}#)))) + #{tmp\ 1627}#) + ((lambda (#{x\ 1632}#) (values (vector 'atom - (#{strip\ 410}# - #{p\ 1794}# + (#{strip\ 180}# + #{p\ 1608}# '(()))) - #{ids\ 1796}#)) - #{tmp\ 1797}#))) + #{ids\ 1610}#)) + #{tmp\ 1611}#))) ($sc-dispatch - #{tmp\ 1797}# + #{tmp\ 1611}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 1797}# + #{tmp\ 1611}# '())))) ($sc-dispatch - #{tmp\ 1797}# + #{tmp\ 1611}# '(any . any))))) ($sc-dispatch - #{tmp\ 1797}# + #{tmp\ 1611}# '(any any)))) - #{p\ 1794}#))))) - (#{cvt\ 1793}# #{pattern\ 1791}# 0 (quote ())))))) - (lambda (#{e\ 1819}# - #{r\ 1820}# - #{w\ 1821}# - #{s\ 1822}# - #{mod\ 1823}#) - (let ((#{e\ 1824}# - (#{source-wrap\ 390}# - #{e\ 1819}# - #{w\ 1821}# - #{s\ 1822}# - #{mod\ 1823}#))) - ((lambda (#{tmp\ 1825}#) - ((lambda (#{tmp\ 1826}#) - (if #{tmp\ 1826}# - (apply (lambda (#{_\ 1827}# - #{val\ 1828}# - #{key\ 1829}# - #{m\ 1830}#) + #{p\ 1608}#))))) + (#{cvt\ 1607}# #{pattern\ 1605}# 0 (quote ())))))) + (lambda (#{e\ 1633}# + #{r\ 1634}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1637}#) + (let ((#{e\ 1638}# + (#{source-wrap\ 160}# + #{e\ 1633}# + #{w\ 1635}# + #{s\ 1636}# + #{mod\ 1637}#))) + ((lambda (#{tmp\ 1639}#) + ((lambda (#{tmp\ 1640}#) + (if #{tmp\ 1640}# + (apply (lambda (#{_\ 1641}# + #{val\ 1642}# + #{key\ 1643}# + #{m\ 1644}#) (if (and-map - (lambda (#{x\ 1831}#) - (if (#{id?\ 361}# #{x\ 1831}#) - (not (#{ellipsis?\ 405}# #{x\ 1831}#)) + (lambda (#{x\ 1645}#) + (if (#{id?\ 131}# #{x\ 1645}#) + (not (#{ellipsis?\ 175}# #{x\ 1645}#)) #f)) - #{key\ 1829}#) - (let ((#{x\ 1833}# - (#{gen-var\ 411}# (quote tmp)))) - (#{build-application\ 326}# - #{s\ 1822}# - (#{build-simple-lambda\ 335}# + #{key\ 1643}#) + (let ((#{x\ 1647}# + (#{gen-var\ 181}# (quote tmp)))) + (#{build-application\ 96}# + #{s\ 1636}# + (#{build-simple-lambda\ 105}# #f (list (quote tmp)) #f - (list #{x\ 1833}#) + (list #{x\ 1647}#) #f - (#{gen-syntax-case\ 1746}# - (#{build-lexical-reference\ 328}# + (#{gen-syntax-case\ 1560}# + (#{build-lexical-reference\ 98}# 'value #f 'tmp - #{x\ 1833}#) - #{key\ 1829}# - #{m\ 1830}# - #{r\ 1820}# - #{mod\ 1823}#)) - (list (#{chi\ 397}# - #{val\ 1828}# - #{r\ 1820}# + #{x\ 1647}#) + #{key\ 1643}# + #{m\ 1644}# + #{r\ 1634}# + #{mod\ 1637}#)) + (list (#{chi\ 167}# + #{val\ 1642}# + #{r\ 1634}# '(()) - #{mod\ 1823}#)))) + #{mod\ 1637}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 1824}#))) - #{tmp\ 1826}#) + #{e\ 1638}#))) + #{tmp\ 1640}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1825}#))) + #{tmp\ 1639}#))) ($sc-dispatch - #{tmp\ 1825}# + #{tmp\ 1639}# '(any any each-any . each-any)))) - #{e\ 1824}#))))) + #{e\ 1638}#))))) (set! sc-expand - (lambda (#{x\ 1836}# . #{rest\ 1837}#) - (if (if (pair? #{x\ 1836}#) - (equal? (car #{x\ 1836}#) #{noexpand\ 314}#) + (lambda (#{x\ 1650}# . #{rest\ 1651}#) + (if (if (pair? #{x\ 1650}#) + (equal? (car #{x\ 1650}#) #{noexpand\ 84}#) #f) - (cadr #{x\ 1836}#) - (let ((#{m\ 1838}# - (if (null? #{rest\ 1837}#) + (cadr #{x\ 1650}#) + (let ((#{m\ 1652}# + (if (null? #{rest\ 1651}#) 'e - (car #{rest\ 1837}#))) - (#{esew\ 1839}# - (if (let ((#{t\ 1840}# (null? #{rest\ 1837}#))) - (if #{t\ 1840}# - #{t\ 1840}# - (null? (cdr #{rest\ 1837}#)))) + (car #{rest\ 1651}#))) + (#{esew\ 1653}# + (if (let ((#{t\ 1654}# (null? #{rest\ 1651}#))) + (if #{t\ 1654}# + #{t\ 1654}# + (null? (cdr #{rest\ 1651}#)))) '(eval) - (cadr #{rest\ 1837}#)))) + (cadr #{rest\ 1651}#)))) (with-fluid* - #{*mode*\ 315}# - #{m\ 1838}# + #{*mode*\ 85}# + #{m\ 1652}# (lambda () - (#{chi-top\ 396}# - #{x\ 1836}# + (#{chi-top\ 166}# + #{x\ 1650}# '() '((top)) - #{m\ 1838}# - #{esew\ 1839}# + #{m\ 1652}# + #{esew\ 1653}# (cons 'hygiene (module-name (current-module)))))))))) (set! identifier? - (lambda (#{x\ 1841}#) - (#{nonsymbol-id?\ 360}# #{x\ 1841}#))) + (lambda (#{x\ 1655}#) + (#{nonsymbol-id?\ 130}# #{x\ 1655}#))) (set! datum->syntax - (lambda (#{id\ 1842}# #{datum\ 1843}#) - (#{make-syntax-object\ 344}# - #{datum\ 1843}# - (#{syntax-object-wrap\ 347}# #{id\ 1842}#) + (lambda (#{id\ 1656}# #{datum\ 1657}#) + (#{make-syntax-object\ 114}# + #{datum\ 1657}# + (#{syntax-object-wrap\ 117}# #{id\ 1656}#) #f))) (set! syntax->datum - (lambda (#{x\ 1844}#) - (#{strip\ 410}# #{x\ 1844}# (quote (()))))) + (lambda (#{x\ 1658}#) + (#{strip\ 180}# #{x\ 1658}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 1845}#) + (lambda (#{ls\ 1659}#) (begin - (let ((#{x\ 1846}# #{ls\ 1845}#)) - (if (not (list? #{x\ 1846}#)) + (let ((#{x\ 1660}# #{ls\ 1659}#)) + (if (not (list? #{x\ 1660}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 1846}#))) - (map (lambda (#{x\ 1847}#) - (#{wrap\ 389}# (gensym) (quote ((top))) #f)) - #{ls\ 1845}#)))) + #{x\ 1660}#))) + (map (lambda (#{x\ 1661}#) + (#{wrap\ 159}# (gensym) (quote ((top))) #f)) + #{ls\ 1659}#)))) (set! free-identifier=? - (lambda (#{x\ 1848}# #{y\ 1849}#) + (lambda (#{x\ 1662}# #{y\ 1663}#) (begin - (let ((#{x\ 1850}# #{x\ 1848}#)) - (if (not (#{nonsymbol-id?\ 360}# #{x\ 1850}#)) + (let ((#{x\ 1664}# #{x\ 1662}#)) + (if (not (#{nonsymbol-id?\ 130}# #{x\ 1664}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 1850}#))) - (let ((#{x\ 1851}# #{y\ 1849}#)) - (if (not (#{nonsymbol-id?\ 360}# #{x\ 1851}#)) + #{x\ 1664}#))) + (let ((#{x\ 1665}# #{y\ 1663}#)) + (if (not (#{nonsymbol-id?\ 130}# #{x\ 1665}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 1851}#))) - (#{free-id=?\ 384}# #{x\ 1848}# #{y\ 1849}#)))) + #{x\ 1665}#))) + (#{free-id=?\ 154}# #{x\ 1662}# #{y\ 1663}#)))) (set! bound-identifier=? - (lambda (#{x\ 1852}# #{y\ 1853}#) + (lambda (#{x\ 1666}# #{y\ 1667}#) (begin - (let ((#{x\ 1854}# #{x\ 1852}#)) - (if (not (#{nonsymbol-id?\ 360}# #{x\ 1854}#)) + (let ((#{x\ 1668}# #{x\ 1666}#)) + (if (not (#{nonsymbol-id?\ 130}# #{x\ 1668}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 1854}#))) - (let ((#{x\ 1855}# #{y\ 1853}#)) - (if (not (#{nonsymbol-id?\ 360}# #{x\ 1855}#)) + #{x\ 1668}#))) + (let ((#{x\ 1669}# #{y\ 1667}#)) + (if (not (#{nonsymbol-id?\ 130}# #{x\ 1669}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 1855}#))) - (#{bound-id=?\ 385}# #{x\ 1852}# #{y\ 1853}#)))) + #{x\ 1669}#))) + (#{bound-id=?\ 155}# #{x\ 1666}# #{y\ 1667}#)))) (set! syntax-violation - (lambda (#{who\ 1856}# - #{message\ 1857}# - #{form\ 1858}# + (lambda (#{who\ 1670}# + #{message\ 1671}# + #{form\ 1672}# . - #{subform\ 1859}#) + #{subform\ 1673}#) (begin - (let ((#{x\ 1860}# #{who\ 1856}#)) - (if (not ((lambda (#{x\ 1861}#) - (let ((#{t\ 1862}# (not #{x\ 1861}#))) - (if #{t\ 1862}# - #{t\ 1862}# - (let ((#{t\ 1863}# (string? #{x\ 1861}#))) - (if #{t\ 1863}# - #{t\ 1863}# - (symbol? #{x\ 1861}#)))))) - #{x\ 1860}#)) + (let ((#{x\ 1674}# #{who\ 1670}#)) + (if (not ((lambda (#{x\ 1675}#) + (let ((#{t\ 1676}# (not #{x\ 1675}#))) + (if #{t\ 1676}# + #{t\ 1676}# + (let ((#{t\ 1677}# (string? #{x\ 1675}#))) + (if #{t\ 1677}# + #{t\ 1677}# + (symbol? #{x\ 1675}#)))))) + #{x\ 1674}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 1860}#))) - (let ((#{x\ 1864}# #{message\ 1857}#)) - (if (not (string? #{x\ 1864}#)) + #{x\ 1674}#))) + (let ((#{x\ 1678}# #{message\ 1671}#)) + (if (not (string? #{x\ 1678}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 1864}#))) + #{x\ 1678}#))) (scm-error 'syntax-error 'sc-expand (string-append - (if #{who\ 1856}# "~a: " "") + (if #{who\ 1670}# "~a: " "") "~a " - (if (null? #{subform\ 1859}#) + (if (null? #{subform\ 1673}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 1865}# - (cons #{message\ 1857}# - (map (lambda (#{x\ 1866}#) - (#{strip\ 410}# #{x\ 1866}# (quote (())))) + (let ((#{tail\ 1679}# + (cons #{message\ 1671}# + (map (lambda (#{x\ 1680}#) + (#{strip\ 180}# #{x\ 1680}# (quote (())))) (append - #{subform\ 1859}# - (list #{form\ 1858}#)))))) - (if #{who\ 1856}# - (cons #{who\ 1856}# #{tail\ 1865}#) - #{tail\ 1865}#)) + #{subform\ 1673}# + (list #{form\ 1672}#)))))) + (if #{who\ 1670}# + (cons #{who\ 1670}# #{tail\ 1679}#) + #{tail\ 1679}#)) #f)))) - (letrec ((#{match\ 1871}# - (lambda (#{e\ 1872}# - #{p\ 1873}# - #{w\ 1874}# - #{r\ 1875}# - #{mod\ 1876}#) - (if (not #{r\ 1875}#) + (letrec ((#{match\ 1685}# + (lambda (#{e\ 1686}# + #{p\ 1687}# + #{w\ 1688}# + #{r\ 1689}# + #{mod\ 1690}#) + (if (not #{r\ 1689}#) #f - (if (eq? #{p\ 1873}# (quote any)) - (cons (#{wrap\ 389}# - #{e\ 1872}# - #{w\ 1874}# - #{mod\ 1876}#) - #{r\ 1875}#) - (if (#{syntax-object?\ 345}# #{e\ 1872}#) - (#{match*\ 1870}# - (#{syntax-object-expression\ 346}# #{e\ 1872}#) - #{p\ 1873}# - (#{join-wraps\ 380}# - #{w\ 1874}# - (#{syntax-object-wrap\ 347}# #{e\ 1872}#)) - #{r\ 1875}# - (#{syntax-object-module\ 348}# #{e\ 1872}#)) - (#{match*\ 1870}# - #{e\ 1872}# - #{p\ 1873}# - #{w\ 1874}# - #{r\ 1875}# - #{mod\ 1876}#)))))) - (#{match*\ 1870}# - (lambda (#{e\ 1877}# - #{p\ 1878}# - #{w\ 1879}# - #{r\ 1880}# - #{mod\ 1881}#) - (if (null? #{p\ 1878}#) - (if (null? #{e\ 1877}#) #{r\ 1880}# #f) - (if (pair? #{p\ 1878}#) - (if (pair? #{e\ 1877}#) - (#{match\ 1871}# - (car #{e\ 1877}#) - (car #{p\ 1878}#) - #{w\ 1879}# - (#{match\ 1871}# - (cdr #{e\ 1877}#) - (cdr #{p\ 1878}#) - #{w\ 1879}# - #{r\ 1880}# - #{mod\ 1881}#) - #{mod\ 1881}#) + (if (eq? #{p\ 1687}# (quote any)) + (cons (#{wrap\ 159}# + #{e\ 1686}# + #{w\ 1688}# + #{mod\ 1690}#) + #{r\ 1689}#) + (if (#{syntax-object?\ 115}# #{e\ 1686}#) + (#{match*\ 1684}# + (#{syntax-object-expression\ 116}# #{e\ 1686}#) + #{p\ 1687}# + (#{join-wraps\ 150}# + #{w\ 1688}# + (#{syntax-object-wrap\ 117}# #{e\ 1686}#)) + #{r\ 1689}# + (#{syntax-object-module\ 118}# #{e\ 1686}#)) + (#{match*\ 1684}# + #{e\ 1686}# + #{p\ 1687}# + #{w\ 1688}# + #{r\ 1689}# + #{mod\ 1690}#)))))) + (#{match*\ 1684}# + (lambda (#{e\ 1691}# + #{p\ 1692}# + #{w\ 1693}# + #{r\ 1694}# + #{mod\ 1695}#) + (if (null? #{p\ 1692}#) + (if (null? #{e\ 1691}#) #{r\ 1694}# #f) + (if (pair? #{p\ 1692}#) + (if (pair? #{e\ 1691}#) + (#{match\ 1685}# + (car #{e\ 1691}#) + (car #{p\ 1692}#) + #{w\ 1693}# + (#{match\ 1685}# + (cdr #{e\ 1691}#) + (cdr #{p\ 1692}#) + #{w\ 1693}# + #{r\ 1694}# + #{mod\ 1695}#) + #{mod\ 1695}#) #f) - (if (eq? #{p\ 1878}# (quote each-any)) - (let ((#{l\ 1882}# - (#{match-each-any\ 1868}# - #{e\ 1877}# - #{w\ 1879}# - #{mod\ 1881}#))) - (if #{l\ 1882}# - (cons #{l\ 1882}# #{r\ 1880}#) + (if (eq? #{p\ 1692}# (quote each-any)) + (let ((#{l\ 1696}# + (#{match-each-any\ 1682}# + #{e\ 1691}# + #{w\ 1693}# + #{mod\ 1695}#))) + (if #{l\ 1696}# + (cons #{l\ 1696}# #{r\ 1694}#) #f)) - (let ((#{atom-key\ 1883}# (vector-ref #{p\ 1878}# 0))) - (if (memv #{atom-key\ 1883}# (quote (each))) - (if (null? #{e\ 1877}#) - (#{match-empty\ 1869}# - (vector-ref #{p\ 1878}# 1) - #{r\ 1880}#) - (let ((#{l\ 1884}# - (#{match-each\ 1867}# - #{e\ 1877}# - (vector-ref #{p\ 1878}# 1) - #{w\ 1879}# - #{mod\ 1881}#))) - (if #{l\ 1884}# - (letrec ((#{collect\ 1885}# - (lambda (#{l\ 1886}#) - (if (null? (car #{l\ 1886}#)) - #{r\ 1880}# - (cons (map car #{l\ 1886}#) - (#{collect\ 1885}# + (let ((#{atom-key\ 1697}# (vector-ref #{p\ 1692}# 0))) + (if (memv #{atom-key\ 1697}# (quote (each))) + (if (null? #{e\ 1691}#) + (#{match-empty\ 1683}# + (vector-ref #{p\ 1692}# 1) + #{r\ 1694}#) + (let ((#{l\ 1698}# + (#{match-each\ 1681}# + #{e\ 1691}# + (vector-ref #{p\ 1692}# 1) + #{w\ 1693}# + #{mod\ 1695}#))) + (if #{l\ 1698}# + (letrec ((#{collect\ 1699}# + (lambda (#{l\ 1700}#) + (if (null? (car #{l\ 1700}#)) + #{r\ 1694}# + (cons (map car #{l\ 1700}#) + (#{collect\ 1699}# (map cdr - #{l\ 1886}#))))))) - (#{collect\ 1885}# #{l\ 1884}#)) + #{l\ 1700}#))))))) + (#{collect\ 1699}# #{l\ 1698}#)) #f))) - (if (memv #{atom-key\ 1883}# (quote (free-id))) - (if (#{id?\ 361}# #{e\ 1877}#) - (if (#{free-id=?\ 384}# - (#{wrap\ 389}# - #{e\ 1877}# - #{w\ 1879}# - #{mod\ 1881}#) - (vector-ref #{p\ 1878}# 1)) - #{r\ 1880}# + (if (memv #{atom-key\ 1697}# (quote (free-id))) + (if (#{id?\ 131}# #{e\ 1691}#) + (if (#{free-id=?\ 154}# + (#{wrap\ 159}# + #{e\ 1691}# + #{w\ 1693}# + #{mod\ 1695}#) + (vector-ref #{p\ 1692}# 1)) + #{r\ 1694}# #f) #f) - (if (memv #{atom-key\ 1883}# (quote (atom))) + (if (memv #{atom-key\ 1697}# (quote (atom))) (if (equal? - (vector-ref #{p\ 1878}# 1) - (#{strip\ 410}# - #{e\ 1877}# - #{w\ 1879}#)) - #{r\ 1880}# + (vector-ref #{p\ 1692}# 1) + (#{strip\ 180}# + #{e\ 1691}# + #{w\ 1693}#)) + #{r\ 1694}# #f) - (if (memv #{atom-key\ 1883}# (quote (vector))) - (if (vector? #{e\ 1877}#) - (#{match\ 1871}# - (vector->list #{e\ 1877}#) - (vector-ref #{p\ 1878}# 1) - #{w\ 1879}# - #{r\ 1880}# - #{mod\ 1881}#) + (if (memv #{atom-key\ 1697}# (quote (vector))) + (if (vector? #{e\ 1691}#) + (#{match\ 1685}# + (vector->list #{e\ 1691}#) + (vector-ref #{p\ 1692}# 1) + #{w\ 1693}# + #{r\ 1694}# + #{mod\ 1695}#) #f))))))))))) - (#{match-empty\ 1869}# - (lambda (#{p\ 1887}# #{r\ 1888}#) - (if (null? #{p\ 1887}#) - #{r\ 1888}# - (if (eq? #{p\ 1887}# (quote any)) - (cons (quote ()) #{r\ 1888}#) - (if (pair? #{p\ 1887}#) - (#{match-empty\ 1869}# - (car #{p\ 1887}#) - (#{match-empty\ 1869}# - (cdr #{p\ 1887}#) - #{r\ 1888}#)) - (if (eq? #{p\ 1887}# (quote each-any)) - (cons (quote ()) #{r\ 1888}#) - (let ((#{atom-key\ 1889}# - (vector-ref #{p\ 1887}# 0))) - (if (memv #{atom-key\ 1889}# (quote (each))) - (#{match-empty\ 1869}# - (vector-ref #{p\ 1887}# 1) - #{r\ 1888}#) - (if (memv #{atom-key\ 1889}# + (#{match-empty\ 1683}# + (lambda (#{p\ 1701}# #{r\ 1702}#) + (if (null? #{p\ 1701}#) + #{r\ 1702}# + (if (eq? #{p\ 1701}# (quote any)) + (cons (quote ()) #{r\ 1702}#) + (if (pair? #{p\ 1701}#) + (#{match-empty\ 1683}# + (car #{p\ 1701}#) + (#{match-empty\ 1683}# + (cdr #{p\ 1701}#) + #{r\ 1702}#)) + (if (eq? #{p\ 1701}# (quote each-any)) + (cons (quote ()) #{r\ 1702}#) + (let ((#{atom-key\ 1703}# + (vector-ref #{p\ 1701}# 0))) + (if (memv #{atom-key\ 1703}# (quote (each))) + (#{match-empty\ 1683}# + (vector-ref #{p\ 1701}# 1) + #{r\ 1702}#) + (if (memv #{atom-key\ 1703}# '(free-id atom)) - #{r\ 1888}# - (if (memv #{atom-key\ 1889}# (quote (vector))) - (#{match-empty\ 1869}# - (vector-ref #{p\ 1887}# 1) - #{r\ 1888}#))))))))))) - (#{match-each-any\ 1868}# - (lambda (#{e\ 1890}# #{w\ 1891}# #{mod\ 1892}#) - (if (pair? #{e\ 1890}#) - (let ((#{l\ 1893}# - (#{match-each-any\ 1868}# - (cdr #{e\ 1890}#) - #{w\ 1891}# - #{mod\ 1892}#))) - (if #{l\ 1893}# - (cons (#{wrap\ 389}# - (car #{e\ 1890}#) - #{w\ 1891}# - #{mod\ 1892}#) - #{l\ 1893}#) + #{r\ 1702}# + (if (memv #{atom-key\ 1703}# (quote (vector))) + (#{match-empty\ 1683}# + (vector-ref #{p\ 1701}# 1) + #{r\ 1702}#))))))))))) + (#{match-each-any\ 1682}# + (lambda (#{e\ 1704}# #{w\ 1705}# #{mod\ 1706}#) + (if (pair? #{e\ 1704}#) + (let ((#{l\ 1707}# + (#{match-each-any\ 1682}# + (cdr #{e\ 1704}#) + #{w\ 1705}# + #{mod\ 1706}#))) + (if #{l\ 1707}# + (cons (#{wrap\ 159}# + (car #{e\ 1704}#) + #{w\ 1705}# + #{mod\ 1706}#) + #{l\ 1707}#) #f)) - (if (null? #{e\ 1890}#) + (if (null? #{e\ 1704}#) '() - (if (#{syntax-object?\ 345}# #{e\ 1890}#) - (#{match-each-any\ 1868}# - (#{syntax-object-expression\ 346}# #{e\ 1890}#) - (#{join-wraps\ 380}# - #{w\ 1891}# - (#{syntax-object-wrap\ 347}# #{e\ 1890}#)) - #{mod\ 1892}#) + (if (#{syntax-object?\ 115}# #{e\ 1704}#) + (#{match-each-any\ 1682}# + (#{syntax-object-expression\ 116}# #{e\ 1704}#) + (#{join-wraps\ 150}# + #{w\ 1705}# + (#{syntax-object-wrap\ 117}# #{e\ 1704}#)) + #{mod\ 1706}#) #f))))) - (#{match-each\ 1867}# - (lambda (#{e\ 1894}# - #{p\ 1895}# - #{w\ 1896}# - #{mod\ 1897}#) - (if (pair? #{e\ 1894}#) - (let ((#{first\ 1898}# - (#{match\ 1871}# - (car #{e\ 1894}#) - #{p\ 1895}# - #{w\ 1896}# + (#{match-each\ 1681}# + (lambda (#{e\ 1708}# + #{p\ 1709}# + #{w\ 1710}# + #{mod\ 1711}#) + (if (pair? #{e\ 1708}#) + (let ((#{first\ 1712}# + (#{match\ 1685}# + (car #{e\ 1708}#) + #{p\ 1709}# + #{w\ 1710}# '() - #{mod\ 1897}#))) - (if #{first\ 1898}# - (let ((#{rest\ 1899}# - (#{match-each\ 1867}# - (cdr #{e\ 1894}#) - #{p\ 1895}# - #{w\ 1896}# - #{mod\ 1897}#))) - (if #{rest\ 1899}# - (cons #{first\ 1898}# #{rest\ 1899}#) + #{mod\ 1711}#))) + (if #{first\ 1712}# + (let ((#{rest\ 1713}# + (#{match-each\ 1681}# + (cdr #{e\ 1708}#) + #{p\ 1709}# + #{w\ 1710}# + #{mod\ 1711}#))) + (if #{rest\ 1713}# + (cons #{first\ 1712}# #{rest\ 1713}#) #f)) #f)) - (if (null? #{e\ 1894}#) + (if (null? #{e\ 1708}#) '() - (if (#{syntax-object?\ 345}# #{e\ 1894}#) - (#{match-each\ 1867}# - (#{syntax-object-expression\ 346}# #{e\ 1894}#) - #{p\ 1895}# - (#{join-wraps\ 380}# - #{w\ 1896}# - (#{syntax-object-wrap\ 347}# #{e\ 1894}#)) - (#{syntax-object-module\ 348}# #{e\ 1894}#)) + (if (#{syntax-object?\ 115}# #{e\ 1708}#) + (#{match-each\ 1681}# + (#{syntax-object-expression\ 116}# #{e\ 1708}#) + #{p\ 1709}# + (#{join-wraps\ 150}# + #{w\ 1710}# + (#{syntax-object-wrap\ 117}# #{e\ 1708}#)) + (#{syntax-object-module\ 118}# #{e\ 1708}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 1900}# #{p\ 1901}#) - (if (eq? #{p\ 1901}# (quote any)) - (list #{e\ 1900}#) - (if (#{syntax-object?\ 345}# #{e\ 1900}#) - (#{match*\ 1870}# - (#{syntax-object-expression\ 346}# #{e\ 1900}#) - #{p\ 1901}# - (#{syntax-object-wrap\ 347}# #{e\ 1900}#) + (lambda (#{e\ 1714}# #{p\ 1715}#) + (if (eq? #{p\ 1715}# (quote any)) + (list #{e\ 1714}#) + (if (#{syntax-object?\ 115}# #{e\ 1714}#) + (#{match*\ 1684}# + (#{syntax-object-expression\ 116}# #{e\ 1714}#) + #{p\ 1715}# + (#{syntax-object-wrap\ 117}# #{e\ 1714}#) '() - (#{syntax-object-module\ 348}# #{e\ 1900}#)) - (#{match*\ 1870}# - #{e\ 1900}# - #{p\ 1901}# + (#{syntax-object-module\ 118}# #{e\ 1714}#)) + (#{match*\ 1684}# + #{e\ 1714}# + #{p\ 1715}# '(()) '() #f))))))))) @@ -11221,11 +11400,11 @@ (define with-syntax (make-syncase-macro 'macro - (lambda (#{x\ 1902}#) - ((lambda (#{tmp\ 1903}#) - ((lambda (#{tmp\ 1904}#) - (if #{tmp\ 1904}# - (apply (lambda (#{_\ 1905}# #{e1\ 1906}# #{e2\ 1907}#) + (lambda (#{x\ 1716}#) + ((lambda (#{tmp\ 1717}#) + ((lambda (#{tmp\ 1718}#) + (if #{tmp\ 1718}# + (apply (lambda (#{_\ 1719}# #{e1\ 1720}# #{e2\ 1721}#) (cons '#(syntax-object begin ((top) @@ -11236,15 +11415,15 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 1906}# #{e2\ 1907}#))) - #{tmp\ 1904}#) - ((lambda (#{tmp\ 1909}#) - (if #{tmp\ 1909}# - (apply (lambda (#{_\ 1910}# - #{out\ 1911}# - #{in\ 1912}# - #{e1\ 1913}# - #{e2\ 1914}#) + (cons #{e1\ 1720}# #{e2\ 1721}#))) + #{tmp\ 1718}#) + ((lambda (#{tmp\ 1723}#) + (if #{tmp\ 1723}# + (apply (lambda (#{_\ 1724}# + #{out\ 1725}# + #{in\ 1726}# + #{e1\ 1727}# + #{e2\ 1728}#) (list '#(syntax-object syntax-case ((top) @@ -11255,9 +11434,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - #{in\ 1912}# + #{in\ 1726}# '() - (list #{out\ 1911}# + (list #{out\ 1725}# (cons '#(syntax-object begin ((top) @@ -11275,16 +11454,16 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 1913}# - #{e2\ 1914}#))))) - #{tmp\ 1909}#) - ((lambda (#{tmp\ 1916}#) - (if #{tmp\ 1916}# - (apply (lambda (#{_\ 1917}# - #{out\ 1918}# - #{in\ 1919}# - #{e1\ 1920}# - #{e2\ 1921}#) + (cons #{e1\ 1727}# + #{e2\ 1728}#))))) + #{tmp\ 1723}#) + ((lambda (#{tmp\ 1730}#) + (if #{tmp\ 1730}# + (apply (lambda (#{_\ 1731}# + #{out\ 1732}# + #{in\ 1733}# + #{e1\ 1734}# + #{e2\ 1735}#) (list '#(syntax-object syntax-case ((top) @@ -11312,9 +11491,9 @@ #((top)) #("i"))) (hygiene guile)) - #{in\ 1919}#) + #{in\ 1733}#) '() - (list #{out\ 1918}# + (list #{out\ 1732}# (cons '#(syntax-object begin ((top) @@ -11336,36 +11515,36 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e1\ 1920}# - #{e2\ 1921}#))))) - #{tmp\ 1916}#) + (cons #{e1\ 1734}# + #{e2\ 1735}#))))) + #{tmp\ 1730}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1903}#))) + #{tmp\ 1717}#))) ($sc-dispatch - #{tmp\ 1903}# + #{tmp\ 1717}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 1903}# + #{tmp\ 1717}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 1903}# + #{tmp\ 1717}# '(any () any . each-any)))) - #{x\ 1902}#)))) + #{x\ 1716}#)))) (define syntax-rules (make-syncase-macro 'macro - (lambda (#{x\ 1925}#) - ((lambda (#{tmp\ 1926}#) - ((lambda (#{tmp\ 1927}#) - (if #{tmp\ 1927}# - (apply (lambda (#{_\ 1928}# - #{k\ 1929}# - #{keyword\ 1930}# - #{pattern\ 1931}# - #{template\ 1932}#) + (lambda (#{x\ 1739}#) + ((lambda (#{tmp\ 1740}#) + ((lambda (#{tmp\ 1741}#) + (if #{tmp\ 1741}# + (apply (lambda (#{_\ 1742}# + #{k\ 1743}# + #{keyword\ 1744}# + #{pattern\ 1745}# + #{template\ 1746}#) (list '#(syntax-object lambda ((top) @@ -11406,9 +11585,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("i"))) (hygiene guile)) - (cons #{k\ 1929}# - (map (lambda (#{tmp\ 1935}# - #{tmp\ 1934}#) + (cons #{k\ 1743}# + (map (lambda (#{tmp\ 1749}# + #{tmp\ 1748}#) (list (cons '#(syntax-object dummy ((top) @@ -11438,7 +11617,7 @@ #("i"))) (hygiene guile)) - #{tmp\ 1934}#) + #{tmp\ 1748}#) (list '#(syntax-object syntax ((top) @@ -11468,43 +11647,43 @@ #("i"))) (hygiene guile)) - #{tmp\ 1935}#))) - #{template\ 1932}# - #{pattern\ 1931}#)))))) - #{tmp\ 1927}#) + #{tmp\ 1749}#))) + #{template\ 1746}# + #{pattern\ 1745}#)))))) + #{tmp\ 1741}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1926}#))) + #{tmp\ 1740}#))) ($sc-dispatch - #{tmp\ 1926}# + #{tmp\ 1740}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 1925}#)))) + #{x\ 1739}#)))) (define let* (make-extended-syncase-macro (module-ref (current-module) (quote let*)) 'macro - (lambda (#{x\ 1936}#) - ((lambda (#{tmp\ 1937}#) - ((lambda (#{tmp\ 1938}#) - (if (if #{tmp\ 1938}# - (apply (lambda (#{let*\ 1939}# - #{x\ 1940}# - #{v\ 1941}# - #{e1\ 1942}# - #{e2\ 1943}#) - (and-map identifier? #{x\ 1940}#)) - #{tmp\ 1938}#) + (lambda (#{x\ 1750}#) + ((lambda (#{tmp\ 1751}#) + ((lambda (#{tmp\ 1752}#) + (if (if #{tmp\ 1752}# + (apply (lambda (#{let*\ 1753}# + #{x\ 1754}# + #{v\ 1755}# + #{e1\ 1756}# + #{e2\ 1757}#) + (and-map identifier? #{x\ 1754}#)) + #{tmp\ 1752}#) #f) - (apply (lambda (#{let*\ 1945}# - #{x\ 1946}# - #{v\ 1947}# - #{e1\ 1948}# - #{e2\ 1949}#) - (letrec ((#{f\ 1950}# - (lambda (#{bindings\ 1951}#) - (if (null? #{bindings\ 1951}#) + (apply (lambda (#{let*\ 1759}# + #{x\ 1760}# + #{v\ 1761}# + #{e1\ 1762}# + #{e2\ 1763}#) + (letrec ((#{f\ 1764}# + (lambda (#{bindings\ 1765}#) + (if (null? #{bindings\ 1765}#) (cons '#(syntax-object let ((top) @@ -11528,13 +11707,13 @@ #("i"))) (hygiene guile)) (cons '() - (cons #{e1\ 1948}# - #{e2\ 1949}#))) - ((lambda (#{tmp\ 1955}#) - ((lambda (#{tmp\ 1956}#) - (if #{tmp\ 1956}# - (apply (lambda (#{body\ 1957}# - #{binding\ 1958}#) + (cons #{e1\ 1762}# + #{e2\ 1763}#))) + ((lambda (#{tmp\ 1769}#) + ((lambda (#{tmp\ 1770}#) + (if #{tmp\ 1770}# + (apply (lambda (#{body\ 1771}# + #{binding\ 1772}#) (list '#(syntax-object let ((top) @@ -11580,52 +11759,52 @@ #("i"))) (hygiene guile)) - (list #{binding\ 1958}#) - #{body\ 1957}#)) - #{tmp\ 1956}#) + (list #{binding\ 1772}#) + #{body\ 1771}#)) + #{tmp\ 1770}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1955}#))) + #{tmp\ 1769}#))) ($sc-dispatch - #{tmp\ 1955}# + #{tmp\ 1769}# '(any any)))) - (list (#{f\ 1950}# - (cdr #{bindings\ 1951}#)) - (car #{bindings\ 1951}#))))))) - (#{f\ 1950}# (map list #{x\ 1946}# #{v\ 1947}#)))) - #{tmp\ 1938}#) + (list (#{f\ 1764}# + (cdr #{bindings\ 1765}#)) + (car #{bindings\ 1765}#))))))) + (#{f\ 1764}# (map list #{x\ 1760}# #{v\ 1761}#)))) + #{tmp\ 1752}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1937}#))) + #{tmp\ 1751}#))) ($sc-dispatch - #{tmp\ 1937}# + #{tmp\ 1751}# '(any #(each (any any)) any . each-any)))) - #{x\ 1936}#)))) + #{x\ 1750}#)))) (define do (make-extended-syncase-macro (module-ref (current-module) (quote do)) 'macro - (lambda (#{orig-x\ 1959}#) - ((lambda (#{tmp\ 1960}#) - ((lambda (#{tmp\ 1961}#) - (if #{tmp\ 1961}# - (apply (lambda (#{_\ 1962}# - #{var\ 1963}# - #{init\ 1964}# - #{step\ 1965}# - #{e0\ 1966}# - #{e1\ 1967}# - #{c\ 1968}#) - ((lambda (#{tmp\ 1969}#) - ((lambda (#{tmp\ 1970}#) - (if #{tmp\ 1970}# - (apply (lambda (#{step\ 1971}#) - ((lambda (#{tmp\ 1972}#) - ((lambda (#{tmp\ 1973}#) - (if #{tmp\ 1973}# + (lambda (#{orig-x\ 1773}#) + ((lambda (#{tmp\ 1774}#) + ((lambda (#{tmp\ 1775}#) + (if #{tmp\ 1775}# + (apply (lambda (#{_\ 1776}# + #{var\ 1777}# + #{init\ 1778}# + #{step\ 1779}# + #{e0\ 1780}# + #{e1\ 1781}# + #{c\ 1782}#) + ((lambda (#{tmp\ 1783}#) + ((lambda (#{tmp\ 1784}#) + (if #{tmp\ 1784}# + (apply (lambda (#{step\ 1785}#) + ((lambda (#{tmp\ 1786}#) + ((lambda (#{tmp\ 1787}#) + (if #{tmp\ 1787}# (apply (lambda () (list '#(syntax-object let @@ -11706,8 +11885,8 @@ (hygiene guile)) (map list - #{var\ 1963}# - #{init\ 1964}#) + #{var\ 1777}# + #{init\ 1778}#) (list '#(syntax-object if ((top) @@ -11786,7 +11965,7 @@ #("i"))) (hygiene guile)) - #{e0\ 1966}#) + #{e0\ 1780}#) (cons '#(syntax-object begin ((top) @@ -11827,7 +12006,7 @@ (hygiene guile)) (append - #{c\ 1968}# + #{c\ 1782}# (list (cons '#(syntax-object doloop ((top) @@ -11867,12 +12046,12 @@ #("i"))) (hygiene guile)) - #{step\ 1971}#))))))) - #{tmp\ 1973}#) - ((lambda (#{tmp\ 1978}#) - (if #{tmp\ 1978}# - (apply (lambda (#{e1\ 1979}# - #{e2\ 1980}#) + #{step\ 1785}#))))))) + #{tmp\ 1787}#) + ((lambda (#{tmp\ 1792}#) + (if #{tmp\ 1792}# + (apply (lambda (#{e1\ 1793}# + #{e2\ 1794}#) (list '#(syntax-object let ((top) @@ -11966,8 +12145,8 @@ (hygiene guile)) (map list - #{var\ 1963}# - #{init\ 1964}#) + #{var\ 1777}# + #{init\ 1778}#) (list '#(syntax-object if ((top) @@ -12014,7 +12193,7 @@ #("i"))) (hygiene guile)) - #{e0\ 1966}# + #{e0\ 1780}# (cons '#(syntax-object begin ((top) @@ -12061,8 +12240,8 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 1979}# - #{e2\ 1980}#)) + (cons #{e1\ 1793}# + #{e2\ 1794}#)) (cons '#(syntax-object begin ((top) @@ -12110,7 +12289,7 @@ (hygiene guile)) (append - #{c\ 1968}# + #{c\ 1782}# (list (cons '#(syntax-object doloop ((top) @@ -12157,81 +12336,81 @@ #("i"))) (hygiene guile)) - #{step\ 1971}#))))))) - #{tmp\ 1978}#) + #{step\ 1785}#))))))) + #{tmp\ 1792}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1972}#))) + #{tmp\ 1786}#))) ($sc-dispatch - #{tmp\ 1972}# + #{tmp\ 1786}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 1972}# + #{tmp\ 1786}# '()))) - #{e1\ 1967}#)) - #{tmp\ 1970}#) + #{e1\ 1781}#)) + #{tmp\ 1784}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1969}#))) - ($sc-dispatch #{tmp\ 1969}# (quote each-any)))) - (map (lambda (#{v\ 1987}# #{s\ 1988}#) - ((lambda (#{tmp\ 1989}#) - ((lambda (#{tmp\ 1990}#) - (if #{tmp\ 1990}# - (apply (lambda () #{v\ 1987}#) - #{tmp\ 1990}#) - ((lambda (#{tmp\ 1991}#) - (if #{tmp\ 1991}# - (apply (lambda (#{e\ 1992}#) - #{e\ 1992}#) - #{tmp\ 1991}#) - ((lambda (#{_\ 1993}#) + #{tmp\ 1783}#))) + ($sc-dispatch #{tmp\ 1783}# (quote each-any)))) + (map (lambda (#{v\ 1801}# #{s\ 1802}#) + ((lambda (#{tmp\ 1803}#) + ((lambda (#{tmp\ 1804}#) + (if #{tmp\ 1804}# + (apply (lambda () #{v\ 1801}#) + #{tmp\ 1804}#) + ((lambda (#{tmp\ 1805}#) + (if #{tmp\ 1805}# + (apply (lambda (#{e\ 1806}#) + #{e\ 1806}#) + #{tmp\ 1805}#) + ((lambda (#{_\ 1807}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 1959}# - #{s\ 1988}#)) - #{tmp\ 1989}#))) + #{orig-x\ 1773}# + #{s\ 1802}#)) + #{tmp\ 1803}#))) ($sc-dispatch - #{tmp\ 1989}# + #{tmp\ 1803}# '(any))))) - ($sc-dispatch #{tmp\ 1989}# (quote ())))) - #{s\ 1988}#)) - #{var\ 1963}# - #{step\ 1965}#))) - #{tmp\ 1961}#) + ($sc-dispatch #{tmp\ 1803}# (quote ())))) + #{s\ 1802}#)) + #{var\ 1777}# + #{step\ 1779}#))) + #{tmp\ 1775}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1960}#))) + #{tmp\ 1774}#))) ($sc-dispatch - #{tmp\ 1960}# + #{tmp\ 1774}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 1959}#)))) + #{orig-x\ 1773}#)))) (define quasiquote (make-extended-syncase-macro (module-ref (current-module) (quote quasiquote)) 'macro - (letrec ((#{quasicons\ 1996}# - (lambda (#{x\ 2000}# #{y\ 2001}#) - ((lambda (#{tmp\ 2002}#) - ((lambda (#{tmp\ 2003}#) - (if #{tmp\ 2003}# - (apply (lambda (#{x\ 2004}# #{y\ 2005}#) - ((lambda (#{tmp\ 2006}#) - ((lambda (#{tmp\ 2007}#) - (if #{tmp\ 2007}# - (apply (lambda (#{dy\ 2008}#) - ((lambda (#{tmp\ 2009}#) - ((lambda (#{tmp\ 2010}#) - (if #{tmp\ 2010}# - (apply (lambda (#{dx\ 2011}#) + (letrec ((#{quasicons\ 1810}# + (lambda (#{x\ 1814}# #{y\ 1815}#) + ((lambda (#{tmp\ 1816}#) + ((lambda (#{tmp\ 1817}#) + (if #{tmp\ 1817}# + (apply (lambda (#{x\ 1818}# #{y\ 1819}#) + ((lambda (#{tmp\ 1820}#) + ((lambda (#{tmp\ 1821}#) + (if #{tmp\ 1821}# + (apply (lambda (#{dy\ 1822}#) + ((lambda (#{tmp\ 1823}#) + ((lambda (#{tmp\ 1824}#) + (if #{tmp\ 1824}# + (apply (lambda (#{dx\ 1825}#) (list '#(syntax-object quote ((top) @@ -12280,11 +12459,11 @@ "i"))) (hygiene guile)) - (cons #{dx\ 2011}# - #{dy\ 2008}#))) - #{tmp\ 2010}#) - ((lambda (#{_\ 2012}#) - (if (null? #{dy\ 2008}#) + (cons #{dx\ 1825}# + #{dy\ 1822}#))) + #{tmp\ 1824}#) + ((lambda (#{_\ 1826}#) + (if (null? #{dy\ 1822}#) (list '#(syntax-object list ((top) @@ -12333,7 +12512,7 @@ "i"))) (hygiene guile)) - #{x\ 2004}#) + #{x\ 1818}#) (list '#(syntax-object cons ((top) @@ -12382,11 +12561,11 @@ "i"))) (hygiene guile)) - #{x\ 2004}# - #{y\ 2005}#))) - #{tmp\ 2009}#))) + #{x\ 1818}# + #{y\ 1819}#))) + #{tmp\ 1823}#))) ($sc-dispatch - #{tmp\ 2009}# + #{tmp\ 1823}# '(#(free-id #(syntax-object quote @@ -12429,11 +12608,11 @@ (hygiene guile))) any)))) - #{x\ 2004}#)) - #{tmp\ 2007}#) - ((lambda (#{tmp\ 2013}#) - (if #{tmp\ 2013}# - (apply (lambda (#{stuff\ 2014}#) + #{x\ 1818}#)) + #{tmp\ 1821}#) + ((lambda (#{tmp\ 1827}#) + (if #{tmp\ 1827}# + (apply (lambda (#{stuff\ 1828}#) (cons '#(syntax-object list ((top) @@ -12474,10 +12653,10 @@ "i"))) (hygiene guile)) - (cons #{x\ 2004}# - #{stuff\ 2014}#))) - #{tmp\ 2013}#) - ((lambda (#{else\ 2015}#) + (cons #{x\ 1818}# + #{stuff\ 1828}#))) + #{tmp\ 1827}#) + ((lambda (#{else\ 1829}#) (list '#(syntax-object cons ((top) @@ -12509,11 +12688,11 @@ "i" "i"))) (hygiene guile)) - #{x\ 2004}# - #{y\ 2005}#)) - #{tmp\ 2006}#))) + #{x\ 1818}# + #{y\ 1819}#)) + #{tmp\ 1820}#))) ($sc-dispatch - #{tmp\ 2006}# + #{tmp\ 1820}# '(#(free-id #(syntax-object list @@ -12542,7 +12721,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2006}# + #{tmp\ 1820}# '(#(free-id #(syntax-object quote @@ -12566,26 +12745,26 @@ #("i" "i" "i" "i"))) (hygiene guile))) any)))) - #{y\ 2005}#)) - #{tmp\ 2003}#) + #{y\ 1819}#)) + #{tmp\ 1817}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2002}#))) - ($sc-dispatch #{tmp\ 2002}# (quote (any any))))) - (list #{x\ 2000}# #{y\ 2001}#)))) - (#{quasiappend\ 1997}# - (lambda (#{x\ 2016}# #{y\ 2017}#) - ((lambda (#{tmp\ 2018}#) - ((lambda (#{tmp\ 2019}#) - (if #{tmp\ 2019}# - (apply (lambda (#{x\ 2020}# #{y\ 2021}#) - ((lambda (#{tmp\ 2022}#) - ((lambda (#{tmp\ 2023}#) - (if #{tmp\ 2023}# - (apply (lambda () #{x\ 2020}#) - #{tmp\ 2023}#) - ((lambda (#{_\ 2024}#) + #{tmp\ 1816}#))) + ($sc-dispatch #{tmp\ 1816}# (quote (any any))))) + (list #{x\ 1814}# #{y\ 1815}#)))) + (#{quasiappend\ 1811}# + (lambda (#{x\ 1830}# #{y\ 1831}#) + ((lambda (#{tmp\ 1832}#) + ((lambda (#{tmp\ 1833}#) + (if #{tmp\ 1833}# + (apply (lambda (#{x\ 1834}# #{y\ 1835}#) + ((lambda (#{tmp\ 1836}#) + ((lambda (#{tmp\ 1837}#) + (if #{tmp\ 1837}# + (apply (lambda () #{x\ 1834}#) + #{tmp\ 1837}#) + ((lambda (#{_\ 1838}#) (list '#(syntax-object append ((top) @@ -12614,11 +12793,11 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2020}# - #{y\ 2021}#)) - #{tmp\ 2022}#))) + #{x\ 1834}# + #{y\ 1835}#)) + #{tmp\ 1836}#))) ($sc-dispatch - #{tmp\ 2022}# + #{tmp\ 1836}# '(#(free-id #(syntax-object quote @@ -12642,22 +12821,22 @@ #("i" "i" "i" "i"))) (hygiene guile))) ())))) - #{y\ 2021}#)) - #{tmp\ 2019}#) + #{y\ 1835}#)) + #{tmp\ 1833}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2018}#))) - ($sc-dispatch #{tmp\ 2018}# (quote (any any))))) - (list #{x\ 2016}# #{y\ 2017}#)))) - (#{quasivector\ 1998}# - (lambda (#{x\ 2025}#) - ((lambda (#{tmp\ 2026}#) - ((lambda (#{x\ 2027}#) - ((lambda (#{tmp\ 2028}#) - ((lambda (#{tmp\ 2029}#) - (if #{tmp\ 2029}# - (apply (lambda (#{x\ 2030}#) + #{tmp\ 1832}#))) + ($sc-dispatch #{tmp\ 1832}# (quote (any any))))) + (list #{x\ 1830}# #{y\ 1831}#)))) + (#{quasivector\ 1812}# + (lambda (#{x\ 1839}#) + ((lambda (#{tmp\ 1840}#) + ((lambda (#{x\ 1841}#) + ((lambda (#{tmp\ 1842}#) + ((lambda (#{tmp\ 1843}#) + (if #{tmp\ 1843}# + (apply (lambda (#{x\ 1844}#) (list '#(syntax-object quote ((top) @@ -12683,11 +12862,11 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - (list->vector #{x\ 2030}#))) - #{tmp\ 2029}#) - ((lambda (#{tmp\ 2032}#) - (if #{tmp\ 2032}# - (apply (lambda (#{x\ 2033}#) + (list->vector #{x\ 1844}#))) + #{tmp\ 1843}#) + ((lambda (#{tmp\ 1846}#) + (if #{tmp\ 1846}# + (apply (lambda (#{x\ 1847}#) (cons '#(syntax-object vector ((top) @@ -12716,9 +12895,9 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2033}#)) - #{tmp\ 2032}#) - ((lambda (#{_\ 2035}#) + #{x\ 1847}#)) + #{tmp\ 1846}#) + ((lambda (#{_\ 1849}#) (list '#(syntax-object list->vector ((top) @@ -12744,10 +12923,10 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{x\ 2027}#)) - #{tmp\ 2028}#))) + #{x\ 1841}#)) + #{tmp\ 1842}#))) ($sc-dispatch - #{tmp\ 2028}# + #{tmp\ 1842}# '(#(free-id #(syntax-object list @@ -12767,7 +12946,7 @@ . each-any))))) ($sc-dispatch - #{tmp\ 2028}# + #{tmp\ 1842}# '(#(free-id #(syntax-object quote @@ -12785,18 +12964,18 @@ #("i" "i" "i" "i"))) (hygiene guile))) each-any)))) - #{x\ 2027}#)) - #{tmp\ 2026}#)) - #{x\ 2025}#))) - (#{quasi\ 1999}# - (lambda (#{p\ 2036}# #{lev\ 2037}#) - ((lambda (#{tmp\ 2038}#) - ((lambda (#{tmp\ 2039}#) - (if #{tmp\ 2039}# - (apply (lambda (#{p\ 2040}#) - (if (= #{lev\ 2037}# 0) - #{p\ 2040}# - (#{quasicons\ 1996}# + #{x\ 1841}#)) + #{tmp\ 1840}#)) + #{x\ 1839}#))) + (#{quasi\ 1813}# + (lambda (#{p\ 1850}# #{lev\ 1851}#) + ((lambda (#{tmp\ 1852}#) + ((lambda (#{tmp\ 1853}#) + (if #{tmp\ 1853}# + (apply (lambda (#{p\ 1854}#) + (if (= #{lev\ 1851}# 0) + #{p\ 1854}# + (#{quasicons\ 1810}# '(#(syntax-object quote ((top) @@ -12831,21 +13010,21 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile))) - (#{quasi\ 1999}# - (list #{p\ 2040}#) - (- #{lev\ 2037}# 1))))) - #{tmp\ 2039}#) - ((lambda (#{tmp\ 2041}#) - (if (if #{tmp\ 2041}# - (apply (lambda (#{args\ 2042}#) - (= #{lev\ 2037}# 0)) - #{tmp\ 2041}#) + (#{quasi\ 1813}# + (list #{p\ 1854}#) + (- #{lev\ 1851}# 1))))) + #{tmp\ 1853}#) + ((lambda (#{tmp\ 1855}#) + (if (if #{tmp\ 1855}# + (apply (lambda (#{args\ 1856}#) + (= #{lev\ 1851}# 0)) + #{tmp\ 1855}#) #f) - (apply (lambda (#{args\ 2043}#) + (apply (lambda (#{args\ 1857}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 2036}# + #{p\ 1850}# (cons '#(syntax-object unquote ((top) @@ -12866,19 +13045,19 @@ #((top) (top) (top) (top)) #("i" "i" "i" "i"))) (hygiene guile)) - #{args\ 2043}#))) - #{tmp\ 2041}#) - ((lambda (#{tmp\ 2044}#) - (if #{tmp\ 2044}# - (apply (lambda (#{p\ 2045}# #{q\ 2046}#) - (if (= #{lev\ 2037}# 0) - (#{quasiappend\ 1997}# - #{p\ 2045}# - (#{quasi\ 1999}# - #{q\ 2046}# - #{lev\ 2037}#)) - (#{quasicons\ 1996}# - (#{quasicons\ 1996}# + #{args\ 1857}#))) + #{tmp\ 1855}#) + ((lambda (#{tmp\ 1858}#) + (if #{tmp\ 1858}# + (apply (lambda (#{p\ 1859}# #{q\ 1860}#) + (if (= #{lev\ 1851}# 0) + (#{quasiappend\ 1811}# + #{p\ 1859}# + (#{quasi\ 1813}# + #{q\ 1860}# + #{lev\ 1851}#)) + (#{quasicons\ 1810}# + (#{quasicons\ 1810}# '(#(syntax-object quote ((top) @@ -12925,26 +13104,26 @@ (top)) #("i" "i" "i" "i"))) (hygiene guile))) - (#{quasi\ 1999}# - (list #{p\ 2045}#) - (- #{lev\ 2037}# 1))) - (#{quasi\ 1999}# - #{q\ 2046}# - #{lev\ 2037}#)))) - #{tmp\ 2044}#) - ((lambda (#{tmp\ 2047}#) - (if (if #{tmp\ 2047}# - (apply (lambda (#{args\ 2048}# - #{q\ 2049}#) - (= #{lev\ 2037}# 0)) - #{tmp\ 2047}#) + (#{quasi\ 1813}# + (list #{p\ 1859}#) + (- #{lev\ 1851}# 1))) + (#{quasi\ 1813}# + #{q\ 1860}# + #{lev\ 1851}#)))) + #{tmp\ 1858}#) + ((lambda (#{tmp\ 1861}#) + (if (if #{tmp\ 1861}# + (apply (lambda (#{args\ 1862}# + #{q\ 1863}#) + (= #{lev\ 1851}# 0)) + #{tmp\ 1861}#) #f) - (apply (lambda (#{args\ 2050}# - #{q\ 2051}#) + (apply (lambda (#{args\ 1864}# + #{q\ 1865}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 2036}# + #{p\ 1850}# (cons '#(syntax-object unquote-splicing ((top) @@ -12974,12 +13153,12 @@ "i" "i"))) (hygiene guile)) - #{args\ 2050}#))) - #{tmp\ 2047}#) - ((lambda (#{tmp\ 2052}#) - (if #{tmp\ 2052}# - (apply (lambda (#{p\ 2053}#) - (#{quasicons\ 1996}# + #{args\ 1864}#))) + #{tmp\ 1861}#) + ((lambda (#{tmp\ 1866}#) + (if #{tmp\ 1866}# + (apply (lambda (#{p\ 1867}#) + (#{quasicons\ 1810}# '(#(syntax-object quote ((top) @@ -13038,32 +13217,32 @@ "i" "i"))) (hygiene guile))) - (#{quasi\ 1999}# - (list #{p\ 2053}#) - (+ #{lev\ 2037}# + (#{quasi\ 1813}# + (list #{p\ 1867}#) + (+ #{lev\ 1851}# 1)))) - #{tmp\ 2052}#) - ((lambda (#{tmp\ 2054}#) - (if #{tmp\ 2054}# - (apply (lambda (#{p\ 2055}# - #{q\ 2056}#) - (#{quasicons\ 1996}# - (#{quasi\ 1999}# - #{p\ 2055}# - #{lev\ 2037}#) - (#{quasi\ 1999}# - #{q\ 2056}# - #{lev\ 2037}#))) - #{tmp\ 2054}#) - ((lambda (#{tmp\ 2057}#) - (if #{tmp\ 2057}# - (apply (lambda (#{x\ 2058}#) - (#{quasivector\ 1998}# - (#{quasi\ 1999}# - #{x\ 2058}# - #{lev\ 2037}#))) - #{tmp\ 2057}#) - ((lambda (#{p\ 2060}#) + #{tmp\ 1866}#) + ((lambda (#{tmp\ 1868}#) + (if #{tmp\ 1868}# + (apply (lambda (#{p\ 1869}# + #{q\ 1870}#) + (#{quasicons\ 1810}# + (#{quasi\ 1813}# + #{p\ 1869}# + #{lev\ 1851}#) + (#{quasi\ 1813}# + #{q\ 1870}# + #{lev\ 1851}#))) + #{tmp\ 1868}#) + ((lambda (#{tmp\ 1871}#) + (if #{tmp\ 1871}# + (apply (lambda (#{x\ 1872}#) + (#{quasivector\ 1812}# + (#{quasi\ 1813}# + #{x\ 1872}# + #{lev\ 1851}#))) + #{tmp\ 1871}#) + ((lambda (#{p\ 1874}#) (list '#(syntax-object quote ((top) @@ -13096,16 +13275,16 @@ "i"))) (hygiene guile)) - #{p\ 2060}#)) - #{tmp\ 2038}#))) + #{p\ 1874}#)) + #{tmp\ 1852}#))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '(any . any))))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '(#(free-id #(syntax-object quasiquote @@ -13125,7 +13304,7 @@ (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '((#(free-id #(syntax-object unquote-splicing @@ -13148,7 +13327,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '((#(free-id #(syntax-object unquote-splicing @@ -13170,7 +13349,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '(#(free-id #(syntax-object unquote @@ -13188,7 +13367,7 @@ . any))))) ($sc-dispatch - #{tmp\ 2038}# + #{tmp\ 1852}# '(#(free-id #(syntax-object unquote @@ -13201,49 +13380,49 @@ #("i" "i" "i" "i"))) (hygiene guile))) any)))) - #{p\ 2036}#)))) - (lambda (#{x\ 2061}#) - ((lambda (#{tmp\ 2062}#) - ((lambda (#{tmp\ 2063}#) - (if #{tmp\ 2063}# - (apply (lambda (#{_\ 2064}# #{e\ 2065}#) - (#{quasi\ 1999}# #{e\ 2065}# 0)) - #{tmp\ 2063}#) + #{p\ 1850}#)))) + (lambda (#{x\ 1875}#) + ((lambda (#{tmp\ 1876}#) + ((lambda (#{tmp\ 1877}#) + (if #{tmp\ 1877}# + (apply (lambda (#{_\ 1878}# #{e\ 1879}#) + (#{quasi\ 1813}# #{e\ 1879}# 0)) + #{tmp\ 1877}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2062}#))) - ($sc-dispatch #{tmp\ 2062}# (quote (any any))))) - #{x\ 2061}#))))) + #{tmp\ 1876}#))) + ($sc-dispatch #{tmp\ 1876}# (quote (any any))))) + #{x\ 1875}#))))) (define include (make-syncase-macro 'macro - (lambda (#{x\ 2066}#) - (letrec ((#{read-file\ 2067}# - (lambda (#{fn\ 2068}# #{k\ 2069}#) - (let ((#{p\ 2070}# (open-input-file #{fn\ 2068}#))) - (letrec ((#{f\ 2071}# - (lambda (#{x\ 2072}#) - (if (eof-object? #{x\ 2072}#) + (lambda (#{x\ 1880}#) + (letrec ((#{read-file\ 1881}# + (lambda (#{fn\ 1882}# #{k\ 1883}#) + (let ((#{p\ 1884}# (open-input-file #{fn\ 1882}#))) + (letrec ((#{f\ 1885}# + (lambda (#{x\ 1886}#) + (if (eof-object? #{x\ 1886}#) (begin - (close-input-port #{p\ 2070}#) + (close-input-port #{p\ 1884}#) '()) (cons (datum->syntax - #{k\ 2069}# - #{x\ 2072}#) - (#{f\ 2071}# (read #{p\ 2070}#))))))) - (#{f\ 2071}# (read #{p\ 2070}#))))))) - ((lambda (#{tmp\ 2073}#) - ((lambda (#{tmp\ 2074}#) - (if #{tmp\ 2074}# - (apply (lambda (#{k\ 2075}# #{filename\ 2076}#) - (let ((#{fn\ 2077}# - (syntax->datum #{filename\ 2076}#))) - ((lambda (#{tmp\ 2078}#) - ((lambda (#{tmp\ 2079}#) - (if #{tmp\ 2079}# - (apply (lambda (#{exp\ 2080}#) + #{k\ 1883}# + #{x\ 1886}#) + (#{f\ 1885}# (read #{p\ 1884}#))))))) + (#{f\ 1885}# (read #{p\ 1884}#))))))) + ((lambda (#{tmp\ 1887}#) + ((lambda (#{tmp\ 1888}#) + (if #{tmp\ 1888}# + (apply (lambda (#{k\ 1889}# #{filename\ 1890}#) + (let ((#{fn\ 1891}# + (syntax->datum #{filename\ 1890}#))) + ((lambda (#{tmp\ 1892}#) + ((lambda (#{tmp\ 1893}#) + (if #{tmp\ 1893}# + (apply (lambda (#{exp\ 1894}#) (cons '#(syntax-object begin ((top) @@ -13270,76 +13449,76 @@ #((top)) #("i"))) (hygiene guile)) - #{exp\ 2080}#)) - #{tmp\ 2079}#) + #{exp\ 1894}#)) + #{tmp\ 1893}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2078}#))) - ($sc-dispatch #{tmp\ 2078}# (quote each-any)))) - (#{read-file\ 2067}# #{fn\ 2077}# #{k\ 2075}#)))) - #{tmp\ 2074}#) + #{tmp\ 1892}#))) + ($sc-dispatch #{tmp\ 1892}# (quote each-any)))) + (#{read-file\ 1881}# #{fn\ 1891}# #{k\ 1889}#)))) + #{tmp\ 1888}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2073}#))) - ($sc-dispatch #{tmp\ 2073}# (quote (any any))))) - #{x\ 2066}#))))) + #{tmp\ 1887}#))) + ($sc-dispatch #{tmp\ 1887}# (quote (any any))))) + #{x\ 1880}#))))) (define unquote (make-syncase-macro 'macro - (lambda (#{x\ 2082}#) - ((lambda (#{tmp\ 2083}#) - ((lambda (#{tmp\ 2084}#) - (if #{tmp\ 2084}# - (apply (lambda (#{_\ 2085}# #{e\ 2086}#) + (lambda (#{x\ 1896}#) + ((lambda (#{tmp\ 1897}#) + ((lambda (#{tmp\ 1898}#) + (if #{tmp\ 1898}# + (apply (lambda (#{_\ 1899}# #{e\ 1900}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 2082}#)) - #{tmp\ 2084}#) + #{x\ 1896}#)) + #{tmp\ 1898}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2083}#))) - ($sc-dispatch #{tmp\ 2083}# (quote (any any))))) - #{x\ 2082}#)))) + #{tmp\ 1897}#))) + ($sc-dispatch #{tmp\ 1897}# (quote (any any))))) + #{x\ 1896}#)))) (define unquote-splicing (make-syncase-macro 'macro - (lambda (#{x\ 2087}#) - ((lambda (#{tmp\ 2088}#) - ((lambda (#{tmp\ 2089}#) - (if #{tmp\ 2089}# - (apply (lambda (#{_\ 2090}# #{e\ 2091}#) + (lambda (#{x\ 1901}#) + ((lambda (#{tmp\ 1902}#) + ((lambda (#{tmp\ 1903}#) + (if #{tmp\ 1903}# + (apply (lambda (#{_\ 1904}# #{e\ 1905}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 2087}#)) - #{tmp\ 2089}#) + #{x\ 1901}#)) + #{tmp\ 1903}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2088}#))) - ($sc-dispatch #{tmp\ 2088}# (quote (any any))))) - #{x\ 2087}#)))) + #{tmp\ 1902}#))) + ($sc-dispatch #{tmp\ 1902}# (quote (any any))))) + #{x\ 1901}#)))) (define case (make-extended-syncase-macro (module-ref (current-module) (quote case)) 'macro - (lambda (#{x\ 2092}#) - ((lambda (#{tmp\ 2093}#) - ((lambda (#{tmp\ 2094}#) - (if #{tmp\ 2094}# - (apply (lambda (#{_\ 2095}# - #{e\ 2096}# - #{m1\ 2097}# - #{m2\ 2098}#) - ((lambda (#{tmp\ 2099}#) - ((lambda (#{body\ 2100}#) + (lambda (#{x\ 1906}#) + ((lambda (#{tmp\ 1907}#) + ((lambda (#{tmp\ 1908}#) + (if #{tmp\ 1908}# + (apply (lambda (#{_\ 1909}# + #{e\ 1910}# + #{m1\ 1911}# + #{m2\ 1912}#) + ((lambda (#{tmp\ 1913}#) + ((lambda (#{body\ 1914}#) (list '#(syntax-object let ((top) @@ -13368,17 +13547,17 @@ #((top)) #("i"))) (hygiene guile)) - #{e\ 2096}#)) - #{body\ 2100}#)) - #{tmp\ 2099}#)) - (letrec ((#{f\ 2101}# - (lambda (#{clause\ 2102}# #{clauses\ 2103}#) - (if (null? #{clauses\ 2103}#) - ((lambda (#{tmp\ 2105}#) - ((lambda (#{tmp\ 2106}#) - (if #{tmp\ 2106}# - (apply (lambda (#{e1\ 2107}# - #{e2\ 2108}#) + #{e\ 1910}#)) + #{body\ 1914}#)) + #{tmp\ 1913}#)) + (letrec ((#{f\ 1915}# + (lambda (#{clause\ 1916}# #{clauses\ 1917}#) + (if (null? #{clauses\ 1917}#) + ((lambda (#{tmp\ 1919}#) + ((lambda (#{tmp\ 1920}#) + (if #{tmp\ 1920}# + (apply (lambda (#{e1\ 1921}# + #{e2\ 1922}#) (cons '#(syntax-object begin ((top) @@ -13424,14 +13603,14 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2107}# - #{e2\ 2108}#))) - #{tmp\ 2106}#) - ((lambda (#{tmp\ 2110}#) - (if #{tmp\ 2110}# - (apply (lambda (#{k\ 2111}# - #{e1\ 2112}# - #{e2\ 2113}#) + (cons #{e1\ 1921}# + #{e2\ 1922}#))) + #{tmp\ 1920}#) + ((lambda (#{tmp\ 1924}#) + (if #{tmp\ 1924}# + (apply (lambda (#{k\ 1925}# + #{e1\ 1926}# + #{e2\ 1927}#) (list '#(syntax-object if ((top) @@ -13632,7 +13811,7 @@ #("i"))) (hygiene guile)) - #{k\ 2111}#)) + #{k\ 1925}#)) (cons '#(syntax-object begin ((top) @@ -13683,24 +13862,24 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2112}# - #{e2\ 2113}#)))) - #{tmp\ 2110}#) - ((lambda (#{_\ 2116}#) + (cons #{e1\ 1926}# + #{e2\ 1927}#)))) + #{tmp\ 1924}#) + ((lambda (#{_\ 1930}#) (syntax-violation 'case "bad clause" - #{x\ 2092}# - #{clause\ 2102}#)) - #{tmp\ 2105}#))) + #{x\ 1906}# + #{clause\ 1916}#)) + #{tmp\ 1919}#))) ($sc-dispatch - #{tmp\ 2105}# + #{tmp\ 1919}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 2105}# + #{tmp\ 1919}# '(#(free-id #(syntax-object else @@ -13726,15 +13905,15 @@ any . each-any)))) - #{clause\ 2102}#) - ((lambda (#{tmp\ 2117}#) - ((lambda (#{rest\ 2118}#) - ((lambda (#{tmp\ 2119}#) - ((lambda (#{tmp\ 2120}#) - (if #{tmp\ 2120}# - (apply (lambda (#{k\ 2121}# - #{e1\ 2122}# - #{e2\ 2123}#) + #{clause\ 1916}#) + ((lambda (#{tmp\ 1931}#) + ((lambda (#{rest\ 1932}#) + ((lambda (#{tmp\ 1933}#) + ((lambda (#{tmp\ 1934}#) + (if #{tmp\ 1934}# + (apply (lambda (#{k\ 1935}# + #{e1\ 1936}# + #{e2\ 1937}#) (list '#(syntax-object if ((top) @@ -13951,7 +14130,7 @@ #("i"))) (hygiene guile)) - #{k\ 2121}#)) + #{k\ 1935}#)) (cons '#(syntax-object begin ((top) @@ -14006,47 +14185,47 @@ #("i"))) (hygiene guile)) - (cons #{e1\ 2122}# - #{e2\ 2123}#)) - #{rest\ 2118}#)) - #{tmp\ 2120}#) - ((lambda (#{_\ 2126}#) + (cons #{e1\ 1936}# + #{e2\ 1937}#)) + #{rest\ 1932}#)) + #{tmp\ 1934}#) + ((lambda (#{_\ 1940}#) (syntax-violation 'case "bad clause" - #{x\ 2092}# - #{clause\ 2102}#)) - #{tmp\ 2119}#))) + #{x\ 1906}# + #{clause\ 1916}#)) + #{tmp\ 1933}#))) ($sc-dispatch - #{tmp\ 2119}# + #{tmp\ 1933}# '(each-any any . each-any)))) - #{clause\ 2102}#)) - #{tmp\ 2117}#)) - (#{f\ 2101}# - (car #{clauses\ 2103}#) - (cdr #{clauses\ 2103}#))))))) - (#{f\ 2101}# #{m1\ 2097}# #{m2\ 2098}#)))) - #{tmp\ 2094}#) + #{clause\ 1916}#)) + #{tmp\ 1931}#)) + (#{f\ 1915}# + (car #{clauses\ 1917}#) + (cdr #{clauses\ 1917}#))))))) + (#{f\ 1915}# #{m1\ 1911}# #{m2\ 1912}#)))) + #{tmp\ 1908}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2093}#))) + #{tmp\ 1907}#))) ($sc-dispatch - #{tmp\ 2093}# + #{tmp\ 1907}# '(any any any . each-any)))) - #{x\ 2092}#)))) + #{x\ 1906}#)))) (define identifier-syntax (make-syncase-macro 'macro - (lambda (#{x\ 2127}#) - ((lambda (#{tmp\ 2128}#) - ((lambda (#{tmp\ 2129}#) - (if #{tmp\ 2129}# - (apply (lambda (#{_\ 2130}# #{e\ 2131}#) + (lambda (#{x\ 1941}#) + ((lambda (#{tmp\ 1942}#) + ((lambda (#{tmp\ 1943}#) + (if #{tmp\ 1943}# + (apply (lambda (#{_\ 1944}# #{e\ 1945}#) (list '#(syntax-object lambda ((top) @@ -14135,8 +14314,8 @@ #((top)) #("i"))) (hygiene guile)) - #{e\ 2131}#)) - (list (cons #{_\ 2130}# + #{e\ 1945}#)) + (list (cons #{_\ 1944}# '(#(syntax-object x ((top) @@ -14176,7 +14355,7 @@ #((top)) #("i"))) (hygiene guile)) - (cons #{e\ 2131}# + (cons #{e\ 1945}# '(#(syntax-object x ((top) @@ -14204,26 +14383,26 @@ #("i"))) (hygiene guile))))))))) - #{tmp\ 2129}#) + #{tmp\ 1943}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2128}#))) - ($sc-dispatch #{tmp\ 2128}# (quote (any any))))) - #{x\ 2127}#)))) + #{tmp\ 1942}#))) + ($sc-dispatch #{tmp\ 1942}# (quote (any any))))) + #{x\ 1941}#)))) (define define* (make-syncase-macro 'macro - (lambda (#{x\ 2132}#) - ((lambda (#{tmp\ 2133}#) - ((lambda (#{tmp\ 2134}#) - (if #{tmp\ 2134}# - (apply (lambda (#{dummy\ 2135}# - #{id\ 2136}# - #{args\ 2137}# - #{b0\ 2138}# - #{b1\ 2139}#) + (lambda (#{x\ 1946}#) + ((lambda (#{tmp\ 1947}#) + ((lambda (#{tmp\ 1948}#) + (if #{tmp\ 1948}# + (apply (lambda (#{dummy\ 1949}# + #{id\ 1950}# + #{args\ 1951}# + #{b0\ 1952}# + #{b1\ 1953}#) (list '#(syntax-object define ((top) @@ -14234,7 +14413,7 @@ #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i"))) (hygiene guile)) - #{id\ 2136}# + #{id\ 1950}# (cons '#(syntax-object lambda* ((top) @@ -14245,15 +14424,15 @@ #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i"))) (hygiene guile)) - (cons #{args\ 2137}# - (cons #{b0\ 2138}# #{b1\ 2139}#))))) - #{tmp\ 2134}#) + (cons #{args\ 1951}# + (cons #{b0\ 1952}# #{b1\ 1953}#))))) + #{tmp\ 1948}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2133}#))) + #{tmp\ 1947}#))) ($sc-dispatch - #{tmp\ 2133}# + #{tmp\ 1947}# '(any (any . any) any . each-any)))) - #{x\ 2132}#)))) + #{x\ 1946}#)))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index d72db1ed4..05d2ba068 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2054,6 +2054,32 @@ (build-case-lambda s docstring lcase)))) (_ (syntax-violation 'lambda "bad lambda*" e))))) +(global-extend 'core 'case-lambda + (lambda (e r w s mod) + (syntax-case e () + ((_ (args e1 e2 ...) (args* e1* e2* ...) ...) + (call-with-values + (lambda () + (chi-lambda-case e r w s mod + lambda-formals + #'((args e1 e2 ...) (args* e1* e2* ...) ...))) + (lambda (docstring lcase) + (build-case-lambda s docstring lcase)))) + (_ (syntax-violation 'case-lambda "bad case-lambda" e))))) + +(global-extend 'core 'case-lambda* + (lambda (e r w s mod) + (syntax-case e () + ((_ (args e1 e2 ...) (args* e1* e2* ...) ...) + (call-with-values + (lambda () + (chi-lambda-case e r w s mod + lambda*-formals + #'((args e1 e2 ...) (args* e1* e2* ...) ...))) + (lambda (docstring lcase) + (build-case-lambda s docstring lcase)))) + (_ (syntax-violation 'case-lambda "bad case-lambda*" e))))) + (global-extend 'core 'let (let () (define (chi-let e r w s mod constructor ids vals exps) diff --git a/module/srfi/srfi-16.scm b/module/srfi/srfi-16.scm index dc3c70920..36abee613 100644 --- a/module/srfi/srfi-16.scm +++ b/module/srfi/srfi-16.scm @@ -1,6 +1,6 @@ ;;; srfi-16.scm --- case-lambda -;; Copyright (C) 2001, 2002, 2006 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2006, 2009 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -46,7 +46,7 @@ ;;; Code: (define-module (srfi srfi-16) - :export-syntax (case-lambda)) + #:replace (case-lambda)) (cond-expand-provide (current-module) '(srfi-16)) |