(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(letrec ((#{and-map*\ 42}#
- (lambda (#{f\ 104}# #{first\ 105}# . #{rest\ 106}#)
- (let ((#{t\ 112}# (null? #{first\ 105}#)))
- (if #{t\ 112}#
- #{t\ 112}#
- (if (null? #{rest\ 106}#)
- (letrec ((#{andmap\ 116}#
- (lambda (#{first\ 117}#)
- (let ((#{x\ 120}# (car #{first\ 117}#))
- (#{first\ 121}# (cdr #{first\ 117}#)))
- (if (null? #{first\ 121}#)
- (#{f\ 104}# #{x\ 120}#)
- (if (#{f\ 104}# #{x\ 120}#)
- (#{andmap\ 116}# #{first\ 121}#)
+(letrec ((#{and-map*\ 3299}#
+ (lambda (#{f\ 3361}# #{first\ 3362}# . #{rest\ 3363}#)
+ (let ((#{t\ 3369}# (null? #{first\ 3362}#)))
+ (if #{t\ 3369}#
+ #{t\ 3369}#
+ (if (null? #{rest\ 3363}#)
+ (letrec ((#{andmap\ 3373}#
+ (lambda (#{first\ 3374}#)
+ (let ((#{x\ 3377}# (car #{first\ 3374}#))
+ (#{first\ 3378}# (cdr #{first\ 3374}#)))
+ (if (null? #{first\ 3378}#)
+ (#{f\ 3361}# #{x\ 3377}#)
+ (if (#{f\ 3361}# #{x\ 3377}#)
+ (#{andmap\ 3373}# #{first\ 3378}#)
#f))))))
- (#{andmap\ 116}# #{first\ 105}#))
- (letrec ((#{andmap\ 127}#
- (lambda (#{first\ 128}# #{rest\ 129}#)
- (let ((#{x\ 134}# (car #{first\ 128}#))
- (#{xr\ 135}# (map car #{rest\ 129}#))
- (#{first\ 136}# (cdr #{first\ 128}#))
- (#{rest\ 137}# (map cdr #{rest\ 129}#)))
- (if (null? #{first\ 136}#)
- (apply #{f\ 104}#
- (cons #{x\ 134}# #{xr\ 135}#))
- (if (apply #{f\ 104}#
- (cons #{x\ 134}# #{xr\ 135}#))
- (#{andmap\ 127}#
- #{first\ 136}#
- #{rest\ 137}#)
+ (#{andmap\ 3373}# #{first\ 3362}#))
+ (letrec ((#{andmap\ 3384}#
+ (lambda (#{first\ 3385}# #{rest\ 3386}#)
+ (let ((#{x\ 3391}# (car #{first\ 3385}#))
+ (#{xr\ 3392}# (map car #{rest\ 3386}#))
+ (#{first\ 3393}# (cdr #{first\ 3385}#))
+ (#{rest\ 3394}#
+ (map cdr #{rest\ 3386}#)))
+ (if (null? #{first\ 3393}#)
+ (apply #{f\ 3361}#
+ (cons #{x\ 3391}# #{xr\ 3392}#))
+ (if (apply #{f\ 3361}#
+ (cons #{x\ 3391}# #{xr\ 3392}#))
+ (#{andmap\ 3384}#
+ #{first\ 3393}#
+ #{rest\ 3394}#)
#f))))))
- (#{andmap\ 127}# #{first\ 105}# #{rest\ 106}#))))))))
- (letrec ((#{lambda-var-list\ 359}#
- (lambda (#{vars\ 574}#)
- (letrec ((#{lvl\ 580}#
- (lambda (#{vars\ 581}# #{ls\ 582}# #{w\ 583}#)
- (if (pair? #{vars\ 581}#)
- (#{lvl\ 580}#
- (cdr #{vars\ 581}#)
- (cons (#{wrap\ 313}#
- (car #{vars\ 581}#)
- #{w\ 583}#
+ (#{andmap\ 3384}# #{first\ 3362}# #{rest\ 3363}#))))))))
+ (letrec ((#{lambda-var-list\ 3616}#
+ (lambda (#{vars\ 3831}#)
+ (letrec ((#{lvl\ 3837}#
+ (lambda (#{vars\ 3838}# #{ls\ 3839}# #{w\ 3840}#)
+ (if (pair? #{vars\ 3838}#)
+ (#{lvl\ 3837}#
+ (cdr #{vars\ 3838}#)
+ (cons (#{wrap\ 3570}#
+ (car #{vars\ 3838}#)
+ #{w\ 3840}#
#f)
- #{ls\ 582}#)
- #{w\ 583}#)
- (if (#{id?\ 244}# #{vars\ 581}#)
- (cons (#{wrap\ 313}#
- #{vars\ 581}#
- #{w\ 583}#
+ #{ls\ 3839}#)
+ #{w\ 3840}#)
+ (if (#{id?\ 3501}# #{vars\ 3838}#)
+ (cons (#{wrap\ 3570}#
+ #{vars\ 3838}#
+ #{w\ 3840}#
#f)
- #{ls\ 582}#)
- (if (null? #{vars\ 581}#)
- #{ls\ 582}#
- (if (#{syntax-object?\ 208}# #{vars\ 581}#)
- (#{lvl\ 580}#
- (#{syntax-object-expression\ 210}#
- #{vars\ 581}#)
- #{ls\ 582}#
- (#{join-wraps\ 295}#
- #{w\ 583}#
- (#{syntax-object-wrap\ 212}#
- #{vars\ 581}#)))
- (cons #{vars\ 581}# #{ls\ 582}#))))))))
- (#{lvl\ 580}#
- #{vars\ 574}#
+ #{ls\ 3839}#)
+ (if (null? #{vars\ 3838}#)
+ #{ls\ 3839}#
+ (if (#{syntax-object?\ 3465}# #{vars\ 3838}#)
+ (#{lvl\ 3837}#
+ (#{syntax-object-expression\ 3467}#
+ #{vars\ 3838}#)
+ #{ls\ 3839}#
+ (#{join-wraps\ 3552}#
+ #{w\ 3840}#
+ (#{syntax-object-wrap\ 3469}#
+ #{vars\ 3838}#)))
+ (cons #{vars\ 3838}# #{ls\ 3839}#))))))))
+ (#{lvl\ 3837}#
+ #{vars\ 3831}#
'()
'(())))))
- (#{gen-var\ 357}#
- (lambda (#{id\ 594}#)
- (let ((#{id\ 597}#
- (if (#{syntax-object?\ 208}# #{id\ 594}#)
- (#{syntax-object-expression\ 210}# #{id\ 594}#)
- #{id\ 594}#)))
+ (#{gen-var\ 3614}#
+ (lambda (#{id\ 3851}#)
+ (let ((#{id\ 3854}#
+ (if (#{syntax-object?\ 3465}# #{id\ 3851}#)
+ (#{syntax-object-expression\ 3467}# #{id\ 3851}#)
+ #{id\ 3851}#)))
(gensym
- (string-append (symbol->string #{id\ 597}#) " ")))))
- (#{strip\ 355}#
- (lambda (#{x\ 599}# #{w\ 600}#)
+ (string-append (symbol->string #{id\ 3854}#) " ")))))
+ (#{strip\ 3612}#
+ (lambda (#{x\ 3856}# #{w\ 3857}#)
(if (memq 'top
- (#{wrap-marks\ 251}# #{w\ 600}#))
- #{x\ 599}#
- (letrec ((#{f\ 606}# (lambda (#{x\ 607}#)
- (if (#{syntax-object?\ 208}#
- #{x\ 607}#)
- (#{strip\ 355}#
- (#{syntax-object-expression\ 210}#
- #{x\ 607}#)
- (#{syntax-object-wrap\ 212}#
- #{x\ 607}#))
- (if (pair? #{x\ 607}#)
- (let ((#{a\ 614}# (#{f\ 606}# (car #{x\ 607}#)))
- (#{d\ 615}# (#{f\ 606}# (cdr #{x\ 607}#))))
- (if (if (eq? #{a\ 614}#
- (car #{x\ 607}#))
- (eq? #{d\ 615}#
- (cdr #{x\ 607}#))
- #f)
- #{x\ 607}#
- (cons #{a\ 614}# #{d\ 615}#)))
- (if (vector? #{x\ 607}#)
- (let ((#{old\ 621}#
- (vector->list
- #{x\ 607}#)))
- (let ((#{new\ 623}#
- (map #{f\ 606}#
- #{old\ 621}#)))
- (if (#{and-map*\ 42}#
- eq?
- #{old\ 621}#
- #{new\ 623}#)
- #{x\ 607}#
- (list->vector
- #{new\ 623}#))))
- #{x\ 607}#))))))
- (#{f\ 606}# #{x\ 599}#)))))
- (#{chi-lambda-case\ 353}#
- (lambda (#{e\ 625}#
- #{r\ 626}#
- #{w\ 627}#
- #{s\ 628}#
- #{mod\ 629}#
- #{get-formals\ 630}#
- #{clauses\ 631}#)
- (letrec ((#{expand-body\ 646}#
- (lambda (#{req\ 647}#
- #{opt\ 648}#
- #{rest\ 649}#
- #{kw\ 650}#
- #{body\ 651}#
- #{vars\ 652}#
- #{r*\ 653}#
- #{w*\ 654}#
- #{inits\ 655}#)
- ((lambda (#{tmp\ 665}#)
- ((lambda (#{tmp\ 666}#)
- (if (if #{tmp\ 666}#
- (apply (lambda (#{docstring\ 670}#
- #{e1\ 671}#
- #{e2\ 672}#)
+ (#{wrap-marks\ 3508}# #{w\ 3857}#))
+ #{x\ 3856}#
+ (letrec ((#{f\ 3863}#
+ (lambda (#{x\ 3864}#)
+ (if (#{syntax-object?\ 3465}# #{x\ 3864}#)
+ (#{strip\ 3612}#
+ (#{syntax-object-expression\ 3467}#
+ #{x\ 3864}#)
+ (#{syntax-object-wrap\ 3469}# #{x\ 3864}#))
+ (if (pair? #{x\ 3864}#)
+ (let ((#{a\ 3871}#
+ (#{f\ 3863}# (car #{x\ 3864}#)))
+ (#{d\ 3872}#
+ (#{f\ 3863}# (cdr #{x\ 3864}#))))
+ (if (if (eq? #{a\ 3871}# (car #{x\ 3864}#))
+ (eq? #{d\ 3872}# (cdr #{x\ 3864}#))
+ #f)
+ #{x\ 3864}#
+ (cons #{a\ 3871}# #{d\ 3872}#)))
+ (if (vector? #{x\ 3864}#)
+ (let ((#{old\ 3878}#
+ (vector->list #{x\ 3864}#)))
+ (let ((#{new\ 3880}#
+ (map #{f\ 3863}# #{old\ 3878}#)))
+ (if (#{and-map*\ 3299}#
+ eq?
+ #{old\ 3878}#
+ #{new\ 3880}#)
+ #{x\ 3864}#
+ (list->vector #{new\ 3880}#))))
+ #{x\ 3864}#))))))
+ (#{f\ 3863}# #{x\ 3856}#)))))
+ (#{chi-lambda-case\ 3610}#
+ (lambda (#{e\ 3882}#
+ #{r\ 3883}#
+ #{w\ 3884}#
+ #{s\ 3885}#
+ #{mod\ 3886}#
+ #{get-formals\ 3887}#
+ #{clauses\ 3888}#)
+ (letrec ((#{expand-body\ 3903}#
+ (lambda (#{req\ 3904}#
+ #{opt\ 3905}#
+ #{rest\ 3906}#
+ #{kw\ 3907}#
+ #{body\ 3908}#
+ #{vars\ 3909}#
+ #{r*\ 3910}#
+ #{w*\ 3911}#
+ #{inits\ 3912}#)
+ ((lambda (#{tmp\ 3922}#)
+ ((lambda (#{tmp\ 3923}#)
+ (if (if #{tmp\ 3923}#
+ (apply (lambda (#{docstring\ 3927}#
+ #{e1\ 3928}#
+ #{e2\ 3929}#)
(string?
(syntax->datum
- #{docstring\ 670}#)))
- #{tmp\ 666}#)
+ #{docstring\ 3927}#)))
+ #{tmp\ 3923}#)
#f)
- (apply (lambda (#{docstring\ 676}#
- #{e1\ 677}#
- #{e2\ 678}#)
+ (apply (lambda (#{docstring\ 3933}#
+ #{e1\ 3934}#
+ #{e2\ 3935}#)
(values
(syntax->datum
- #{docstring\ 676}#)
- #{req\ 647}#
- #{opt\ 648}#
- #{rest\ 649}#
- #{kw\ 650}#
- #{inits\ 655}#
- #{vars\ 652}#
- (#{chi-body\ 337}#
- (cons #{e1\ 677}# #{e2\ 678}#)
- (#{source-wrap\ 315}#
- #{e\ 625}#
- #{w\ 627}#
- #{s\ 628}#
- #{mod\ 629}#)
- #{r*\ 653}#
- #{w*\ 654}#
- #{mod\ 629}#)))
- #{tmp\ 666}#)
- ((lambda (#{tmp\ 680}#)
- (if #{tmp\ 680}#
- (apply (lambda (#{e1\ 683}#
- #{e2\ 684}#)
+ #{docstring\ 3933}#)
+ #{req\ 3904}#
+ #{opt\ 3905}#
+ #{rest\ 3906}#
+ #{kw\ 3907}#
+ #{inits\ 3912}#
+ #{vars\ 3909}#
+ (#{chi-body\ 3594}#
+ (cons #{e1\ 3934}#
+ #{e2\ 3935}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 3882}#
+ #{w\ 3884}#
+ #{s\ 3885}#
+ #{mod\ 3886}#)
+ #{r*\ 3910}#
+ #{w*\ 3911}#
+ #{mod\ 3886}#)))
+ #{tmp\ 3923}#)
+ ((lambda (#{tmp\ 3937}#)
+ (if #{tmp\ 3937}#
+ (apply (lambda (#{e1\ 3940}#
+ #{e2\ 3941}#)
(values
#f
- #{req\ 647}#
- #{opt\ 648}#
- #{rest\ 649}#
- #{kw\ 650}#
- #{inits\ 655}#
- #{vars\ 652}#
- (#{chi-body\ 337}#
- (cons #{e1\ 683}#
- #{e2\ 684}#)
- (#{source-wrap\ 315}#
- #{e\ 625}#
- #{w\ 627}#
- #{s\ 628}#
- #{mod\ 629}#)
- #{r*\ 653}#
- #{w*\ 654}#
- #{mod\ 629}#)))
- #{tmp\ 680}#)
+ #{req\ 3904}#
+ #{opt\ 3905}#
+ #{rest\ 3906}#
+ #{kw\ 3907}#
+ #{inits\ 3912}#
+ #{vars\ 3909}#
+ (#{chi-body\ 3594}#
+ (cons #{e1\ 3940}#
+ #{e2\ 3941}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 3882}#
+ #{w\ 3884}#
+ #{s\ 3885}#
+ #{mod\ 3886}#)
+ #{r*\ 3910}#
+ #{w*\ 3911}#
+ #{mod\ 3886}#)))
+ #{tmp\ 3937}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 665}#)))
+ #{tmp\ 3922}#)))
($sc-dispatch
- #{tmp\ 665}#
+ #{tmp\ 3922}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 665}#
+ #{tmp\ 3922}#
'(any any . each-any))))
- #{body\ 651}#)))
- (#{expand-kw\ 644}#
- (lambda (#{req\ 686}#
- #{opt\ 687}#
- #{rest\ 688}#
- #{kw\ 689}#
- #{body\ 690}#
- #{vars\ 691}#
- #{r*\ 692}#
- #{w*\ 693}#
- #{aok\ 694}#
- #{out\ 695}#
- #{inits\ 696}#)
- (if (pair? #{kw\ 689}#)
- ((lambda (#{tmp\ 710}#)
- ((lambda (#{tmp\ 711}#)
- (if #{tmp\ 711}#
- (apply (lambda (#{k\ 715}#
- #{id\ 716}#
- #{i\ 717}#)
- (let ((#{v\ 720}# (#{gen-var\ 357}#
- #{id\ 716}#)))
- (let ((#{l\ 722}# (#{gen-labels\ 262}#
- (list #{v\ 720}#))))
- (let ((#{r**\ 724}#
- (#{extend-var-env\ 234}#
- #{l\ 722}#
- (list #{v\ 720}#)
- #{r*\ 692}#)))
- (let ((#{w**\ 726}#
- (#{make-binding-wrap\ 291}#
- (list #{id\ 716}#)
- #{l\ 722}#
- #{w*\ 693}#)))
- (#{expand-kw\ 644}#
- #{req\ 686}#
- #{opt\ 687}#
- #{rest\ 688}#
- (cdr #{kw\ 689}#)
- #{body\ 690}#
- (cons #{v\ 720}#
- #{vars\ 691}#)
- #{r**\ 724}#
- #{w**\ 726}#
- #{aok\ 694}#
+ #{body\ 3908}#)))
+ (#{expand-kw\ 3901}#
+ (lambda (#{req\ 3943}#
+ #{opt\ 3944}#
+ #{rest\ 3945}#
+ #{kw\ 3946}#
+ #{body\ 3947}#
+ #{vars\ 3948}#
+ #{r*\ 3949}#
+ #{w*\ 3950}#
+ #{aok\ 3951}#
+ #{out\ 3952}#
+ #{inits\ 3953}#)
+ (if (pair? #{kw\ 3946}#)
+ ((lambda (#{tmp\ 3967}#)
+ ((lambda (#{tmp\ 3968}#)
+ (if #{tmp\ 3968}#
+ (apply (lambda (#{k\ 3972}#
+ #{id\ 3973}#
+ #{i\ 3974}#)
+ (let ((#{v\ 3977}#
+ (#{gen-var\ 3614}#
+ #{id\ 3973}#)))
+ (let ((#{l\ 3979}#
+ (#{gen-labels\ 3519}#
+ (list #{v\ 3977}#))))
+ (let ((#{r**\ 3981}#
+ (#{extend-var-env\ 3491}#
+ #{l\ 3979}#
+ (list #{v\ 3977}#)
+ #{r*\ 3949}#)))
+ (let ((#{w**\ 3983}#
+ (#{make-binding-wrap\ 3548}#
+ (list #{id\ 3973}#)
+ #{l\ 3979}#
+ #{w*\ 3950}#)))
+ (#{expand-kw\ 3901}#
+ #{req\ 3943}#
+ #{opt\ 3944}#
+ #{rest\ 3945}#
+ (cdr #{kw\ 3946}#)
+ #{body\ 3947}#
+ (cons #{v\ 3977}#
+ #{vars\ 3948}#)
+ #{r**\ 3981}#
+ #{w**\ 3983}#
+ #{aok\ 3951}#
(cons (list (syntax->datum
- #{k\ 715}#)
+ #{k\ 3972}#)
(syntax->datum
- #{id\ 716}#)
- #{v\ 720}#)
- #{out\ 695}#)
- (cons (#{chi\ 329}#
- #{i\ 717}#
- #{r*\ 692}#
- #{w*\ 693}#
- #{mod\ 629}#)
- #{inits\ 696}#)))))))
- #{tmp\ 711}#)
+ #{id\ 3973}#)
+ #{v\ 3977}#)
+ #{out\ 3952}#)
+ (cons (#{chi\ 3586}#
+ #{i\ 3974}#
+ #{r*\ 3949}#
+ #{w*\ 3950}#
+ #{mod\ 3886}#)
+ #{inits\ 3953}#)))))))
+ #{tmp\ 3968}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 710}#)))
+ #{tmp\ 3967}#)))
($sc-dispatch
- #{tmp\ 710}#
+ #{tmp\ 3967}#
'(any any any))))
- (car #{kw\ 689}#))
- (#{expand-body\ 646}#
- #{req\ 686}#
- #{opt\ 687}#
- #{rest\ 688}#
- (if (let ((#{t\ 730}# #{aok\ 694}#))
- (if #{t\ 730}#
- #{t\ 730}#
- (pair? #{out\ 695}#)))
- (cons #{aok\ 694}# (reverse #{out\ 695}#))
+ (car #{kw\ 3946}#))
+ (#{expand-body\ 3903}#
+ #{req\ 3943}#
+ #{opt\ 3944}#
+ #{rest\ 3945}#
+ (if (let ((#{t\ 3987}# #{aok\ 3951}#))
+ (if #{t\ 3987}#
+ #{t\ 3987}#
+ (pair? #{out\ 3952}#)))
+ (cons #{aok\ 3951}# (reverse #{out\ 3952}#))
#f)
- #{body\ 690}#
- (reverse #{vars\ 691}#)
- #{r*\ 692}#
- #{w*\ 693}#
- (reverse #{inits\ 696}#)))))
- (#{expand-opt\ 642}#
- (lambda (#{req\ 732}#
- #{opt\ 733}#
- #{rest\ 734}#
- #{kw\ 735}#
- #{body\ 736}#
- #{vars\ 737}#
- #{r*\ 738}#
- #{w*\ 739}#
- #{out\ 740}#
- #{inits\ 741}#)
- (if (pair? #{opt\ 733}#)
- ((lambda (#{tmp\ 754}#)
- ((lambda (#{tmp\ 755}#)
- (if #{tmp\ 755}#
- (apply (lambda (#{id\ 758}# #{i\ 759}#)
- (let ((#{v\ 762}# (#{gen-var\ 357}#
- #{id\ 758}#)))
- (let ((#{l\ 764}# (#{gen-labels\ 262}#
- (list #{v\ 762}#))))
- (let ((#{r**\ 766}#
- (#{extend-var-env\ 234}#
- #{l\ 764}#
- (list #{v\ 762}#)
- #{r*\ 738}#)))
- (let ((#{w**\ 768}#
- (#{make-binding-wrap\ 291}#
- (list #{id\ 758}#)
- #{l\ 764}#
- #{w*\ 739}#)))
- (#{expand-opt\ 642}#
- #{req\ 732}#
- (cdr #{opt\ 733}#)
- #{rest\ 734}#
- #{kw\ 735}#
- #{body\ 736}#
- (cons #{v\ 762}#
- #{vars\ 737}#)
- #{r**\ 766}#
- #{w**\ 768}#
+ #{body\ 3947}#
+ (reverse #{vars\ 3948}#)
+ #{r*\ 3949}#
+ #{w*\ 3950}#
+ (reverse #{inits\ 3953}#)))))
+ (#{expand-opt\ 3899}#
+ (lambda (#{req\ 3989}#
+ #{opt\ 3990}#
+ #{rest\ 3991}#
+ #{kw\ 3992}#
+ #{body\ 3993}#
+ #{vars\ 3994}#
+ #{r*\ 3995}#
+ #{w*\ 3996}#
+ #{out\ 3997}#
+ #{inits\ 3998}#)
+ (if (pair? #{opt\ 3990}#)
+ ((lambda (#{tmp\ 4011}#)
+ ((lambda (#{tmp\ 4012}#)
+ (if #{tmp\ 4012}#
+ (apply (lambda (#{id\ 4015}# #{i\ 4016}#)
+ (let ((#{v\ 4019}#
+ (#{gen-var\ 3614}#
+ #{id\ 4015}#)))
+ (let ((#{l\ 4021}#
+ (#{gen-labels\ 3519}#
+ (list #{v\ 4019}#))))
+ (let ((#{r**\ 4023}#
+ (#{extend-var-env\ 3491}#
+ #{l\ 4021}#
+ (list #{v\ 4019}#)
+ #{r*\ 3995}#)))
+ (let ((#{w**\ 4025}#
+ (#{make-binding-wrap\ 3548}#
+ (list #{id\ 4015}#)
+ #{l\ 4021}#
+ #{w*\ 3996}#)))
+ (#{expand-opt\ 3899}#
+ #{req\ 3989}#
+ (cdr #{opt\ 3990}#)
+ #{rest\ 3991}#
+ #{kw\ 3992}#
+ #{body\ 3993}#
+ (cons #{v\ 4019}#
+ #{vars\ 3994}#)
+ #{r**\ 4023}#
+ #{w**\ 4025}#
(cons (syntax->datum
- #{id\ 758}#)
- #{out\ 740}#)
- (cons (#{chi\ 329}#
- #{i\ 759}#
- #{r*\ 738}#
- #{w*\ 739}#
- #{mod\ 629}#)
- #{inits\ 741}#)))))))
- #{tmp\ 755}#)
+ #{id\ 4015}#)
+ #{out\ 3997}#)
+ (cons (#{chi\ 3586}#
+ #{i\ 4016}#
+ #{r*\ 3995}#
+ #{w*\ 3996}#
+ #{mod\ 3886}#)
+ #{inits\ 3998}#)))))))
+ #{tmp\ 4012}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 754}#)))
+ #{tmp\ 4011}#)))
($sc-dispatch
- #{tmp\ 754}#
+ #{tmp\ 4011}#
'(any any))))
- (car #{opt\ 733}#))
- (if #{rest\ 734}#
- (let ((#{v\ 773}# (#{gen-var\ 357}#
- #{rest\ 734}#)))
- (let ((#{l\ 775}# (#{gen-labels\ 262}#
- (list #{v\ 773}#))))
- (let ((#{r*\ 777}#
- (#{extend-var-env\ 234}#
- #{l\ 775}#
- (list #{v\ 773}#)
- #{r*\ 738}#)))
- (let ((#{w*\ 779}#
- (#{make-binding-wrap\ 291}#
- (list #{rest\ 734}#)
- #{l\ 775}#
- #{w*\ 739}#)))
- (#{expand-kw\ 644}#
- #{req\ 732}#
- (if (pair? #{out\ 740}#)
- (reverse #{out\ 740}#)
+ (car #{opt\ 3990}#))
+ (if #{rest\ 3991}#
+ (let ((#{v\ 4030}#
+ (#{gen-var\ 3614}# #{rest\ 3991}#)))
+ (let ((#{l\ 4032}#
+ (#{gen-labels\ 3519}#
+ (list #{v\ 4030}#))))
+ (let ((#{r*\ 4034}#
+ (#{extend-var-env\ 3491}#
+ #{l\ 4032}#
+ (list #{v\ 4030}#)
+ #{r*\ 3995}#)))
+ (let ((#{w*\ 4036}#
+ (#{make-binding-wrap\ 3548}#
+ (list #{rest\ 3991}#)
+ #{l\ 4032}#
+ #{w*\ 3996}#)))
+ (#{expand-kw\ 3901}#
+ #{req\ 3989}#
+ (if (pair? #{out\ 3997}#)
+ (reverse #{out\ 3997}#)
#f)
- (syntax->datum #{rest\ 734}#)
- (if (pair? #{kw\ 735}#)
- (cdr #{kw\ 735}#)
- #{kw\ 735}#)
- #{body\ 736}#
- (cons #{v\ 773}# #{vars\ 737}#)
- #{r*\ 777}#
- #{w*\ 779}#
- (if (pair? #{kw\ 735}#)
- (car #{kw\ 735}#)
+ (syntax->datum #{rest\ 3991}#)
+ (if (pair? #{kw\ 3992}#)
+ (cdr #{kw\ 3992}#)
+ #{kw\ 3992}#)
+ #{body\ 3993}#
+ (cons #{v\ 4030}# #{vars\ 3994}#)
+ #{r*\ 4034}#
+ #{w*\ 4036}#
+ (if (pair? #{kw\ 3992}#)
+ (car #{kw\ 3992}#)
#f)
'()
- #{inits\ 741}#)))))
- (#{expand-kw\ 644}#
- #{req\ 732}#
- (if (pair? #{out\ 740}#)
- (reverse #{out\ 740}#)
+ #{inits\ 3998}#)))))
+ (#{expand-kw\ 3901}#
+ #{req\ 3989}#
+ (if (pair? #{out\ 3997}#)
+ (reverse #{out\ 3997}#)
#f)
#f
- (if (pair? #{kw\ 735}#)
- (cdr #{kw\ 735}#)
- #{kw\ 735}#)
- #{body\ 736}#
- #{vars\ 737}#
- #{r*\ 738}#
- #{w*\ 739}#
- (if (pair? #{kw\ 735}#) (car #{kw\ 735}#) #f)
+ (if (pair? #{kw\ 3992}#)
+ (cdr #{kw\ 3992}#)
+ #{kw\ 3992}#)
+ #{body\ 3993}#
+ #{vars\ 3994}#
+ #{r*\ 3995}#
+ #{w*\ 3996}#
+ (if (pair? #{kw\ 3992}#)
+ (car #{kw\ 3992}#)
+ #f)
'()
- #{inits\ 741}#)))))
- (#{expand-req\ 640}#
- (lambda (#{req\ 781}#
- #{opt\ 782}#
- #{rest\ 783}#
- #{kw\ 784}#
- #{body\ 785}#)
- (let ((#{vars\ 793}#
- (map #{gen-var\ 357}# #{req\ 781}#))
- (#{labels\ 794}#
- (#{gen-labels\ 262}# #{req\ 781}#)))
- (let ((#{r*\ 797}#
- (#{extend-var-env\ 234}#
- #{labels\ 794}#
- #{vars\ 793}#
- #{r\ 626}#))
- (#{w*\ 798}#
- (#{make-binding-wrap\ 291}#
- #{req\ 781}#
- #{labels\ 794}#
- #{w\ 627}#)))
- (#{expand-opt\ 642}#
- (map syntax->datum #{req\ 781}#)
- #{opt\ 782}#
- #{rest\ 783}#
- #{kw\ 784}#
- #{body\ 785}#
- (reverse #{vars\ 793}#)
- #{r*\ 797}#
- #{w*\ 798}#
+ #{inits\ 3998}#)))))
+ (#{expand-req\ 3897}#
+ (lambda (#{req\ 4038}#
+ #{opt\ 4039}#
+ #{rest\ 4040}#
+ #{kw\ 4041}#
+ #{body\ 4042}#)
+ (let ((#{vars\ 4050}#
+ (map #{gen-var\ 3614}# #{req\ 4038}#))
+ (#{labels\ 4051}#
+ (#{gen-labels\ 3519}# #{req\ 4038}#)))
+ (let ((#{r*\ 4054}#
+ (#{extend-var-env\ 3491}#
+ #{labels\ 4051}#
+ #{vars\ 4050}#
+ #{r\ 3883}#))
+ (#{w*\ 4055}#
+ (#{make-binding-wrap\ 3548}#
+ #{req\ 4038}#
+ #{labels\ 4051}#
+ #{w\ 3884}#)))
+ (#{expand-opt\ 3899}#
+ (map syntax->datum #{req\ 4038}#)
+ #{opt\ 4039}#
+ #{rest\ 4040}#
+ #{kw\ 4041}#
+ #{body\ 4042}#
+ (reverse #{vars\ 4050}#)
+ #{r*\ 4054}#
+ #{w*\ 4055}#
'()
'()))))))
- ((lambda (#{tmp\ 799}#)
- ((lambda (#{tmp\ 800}#)
- (if #{tmp\ 800}#
- (apply (lambda () (values #f #f)) #{tmp\ 800}#)
- ((lambda (#{tmp\ 801}#)
- (if #{tmp\ 801}#
- (apply (lambda (#{args\ 808}#
- #{e1\ 809}#
- #{e2\ 810}#
- #{args*\ 811}#
- #{e1*\ 812}#
- #{e2*\ 813}#)
+ ((lambda (#{tmp\ 4056}#)
+ ((lambda (#{tmp\ 4057}#)
+ (if #{tmp\ 4057}#
+ (apply (lambda () (values #f #f)) #{tmp\ 4057}#)
+ ((lambda (#{tmp\ 4058}#)
+ (if #{tmp\ 4058}#
+ (apply (lambda (#{args\ 4065}#
+ #{e1\ 4066}#
+ #{e2\ 4067}#
+ #{args*\ 4068}#
+ #{e1*\ 4069}#
+ #{e2*\ 4070}#)
(call-with-values
(lambda ()
- (#{get-formals\ 630}#
- #{args\ 808}#))
- (lambda (#{req\ 814}#
- #{opt\ 815}#
- #{rest\ 816}#
- #{kw\ 817}#)
+ (#{get-formals\ 3887}#
+ #{args\ 4065}#))
+ (lambda (#{req\ 4071}#
+ #{opt\ 4072}#
+ #{rest\ 4073}#
+ #{kw\ 4074}#)
(call-with-values
(lambda ()
- (#{expand-req\ 640}#
- #{req\ 814}#
- #{opt\ 815}#
- #{rest\ 816}#
- #{kw\ 817}#
- (cons #{e1\ 809}#
- #{e2\ 810}#)))
- (lambda (#{docstring\ 823}#
- #{req\ 824}#
- #{opt\ 825}#
- #{rest\ 826}#
- #{kw\ 827}#
- #{inits\ 828}#
- #{vars\ 829}#
- #{body\ 830}#)
+ (#{expand-req\ 3897}#
+ #{req\ 4071}#
+ #{opt\ 4072}#
+ #{rest\ 4073}#
+ #{kw\ 4074}#
+ (cons #{e1\ 4066}#
+ #{e2\ 4067}#)))
+ (lambda (#{docstring\ 4080}#
+ #{req\ 4081}#
+ #{opt\ 4082}#
+ #{rest\ 4083}#
+ #{kw\ 4084}#
+ #{inits\ 4085}#
+ #{vars\ 4086}#
+ #{body\ 4087}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 353}#
- #{e\ 625}#
- #{r\ 626}#
- #{w\ 627}#
- #{s\ 628}#
- #{mod\ 629}#
- #{get-formals\ 630}#
- (map (lambda (#{tmp\ 841}#
- #{tmp\ 840}#
- #{tmp\ 839}#)
- (cons #{tmp\ 839}#
- (cons #{tmp\ 840}#
- #{tmp\ 841}#)))
- #{e2*\ 813}#
- #{e1*\ 812}#
- #{args*\ 811}#)))
- (lambda (#{docstring*\ 843}#
- #{else*\ 844}#)
+ (#{chi-lambda-case\ 3610}#
+ #{e\ 3882}#
+ #{r\ 3883}#
+ #{w\ 3884}#
+ #{s\ 3885}#
+ #{mod\ 3886}#
+ #{get-formals\ 3887}#
+ (map (lambda (#{tmp\ 4098}#
+ #{tmp\ 4097}#
+ #{tmp\ 4096}#)
+ (cons #{tmp\ 4096}#
+ (cons #{tmp\ 4097}#
+ #{tmp\ 4098}#)))
+ #{e2*\ 4070}#
+ #{e1*\ 4069}#
+ #{args*\ 4068}#)))
+ (lambda (#{docstring*\ 4100}#
+ #{else*\ 4101}#)
(values
- (let ((#{t\ 849}# #{docstring\ 823}#))
- (if #{t\ 849}#
- #{t\ 849}#
- #{docstring*\ 843}#))
- (#{build-lambda-case\ 190}#
- #{s\ 628}#
- #{req\ 824}#
- #{opt\ 825}#
- #{rest\ 826}#
- #{kw\ 827}#
- #{inits\ 828}#
- #{vars\ 829}#
- #{body\ 830}#
- #{else*\ 844}#)))))))))
- #{tmp\ 801}#)
+ (let ((#{t\ 4106}#
+ #{docstring\ 4080}#))
+ (if #{t\ 4106}#
+ #{t\ 4106}#
+ #{docstring*\ 4100}#))
+ (#{build-lambda-case\ 3447}#
+ #{s\ 3885}#
+ #{req\ 4081}#
+ #{opt\ 4082}#
+ #{rest\ 4083}#
+ #{kw\ 4084}#
+ #{inits\ 4085}#
+ #{vars\ 4086}#
+ #{body\ 4087}#
+ #{else*\ 4101}#)))))))))
+ #{tmp\ 4058}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 799}#)))
+ #{tmp\ 4056}#)))
($sc-dispatch
- #{tmp\ 799}#
+ #{tmp\ 4056}#
'((any any . each-any)
.
#(each (any any . each-any)))))))
- ($sc-dispatch #{tmp\ 799}# (quote ()))))
- #{clauses\ 631}#))))
- (#{lambda*-formals\ 351}#
- (lambda (#{orig-args\ 851}#)
- (letrec ((#{check\ 862}#
- (lambda (#{req\ 863}#
- #{opt\ 864}#
- #{rest\ 865}#
- #{kw\ 866}#)
- (if (#{distinct-bound-ids?\ 309}#
+ ($sc-dispatch #{tmp\ 4056}# (quote ()))))
+ #{clauses\ 3888}#))))
+ (#{lambda*-formals\ 3608}#
+ (lambda (#{orig-args\ 4108}#)
+ (letrec ((#{check\ 4119}#
+ (lambda (#{req\ 4120}#
+ #{opt\ 4121}#
+ #{rest\ 4122}#
+ #{kw\ 4123}#)
+ (if (#{distinct-bound-ids?\ 3566}#
(append
- #{req\ 863}#
- (map car #{opt\ 864}#)
- (if #{rest\ 865}#
- (list #{rest\ 865}#)
+ #{req\ 4120}#
+ (map car #{opt\ 4121}#)
+ (if #{rest\ 4122}#
+ (list #{rest\ 4122}#)
'())
- (if (pair? #{kw\ 866}#)
- (map cadr (cdr #{kw\ 866}#))
+ (if (pair? #{kw\ 4123}#)
+ (map cadr (cdr #{kw\ 4123}#))
'())))
(values
- #{req\ 863}#
- #{opt\ 864}#
- #{rest\ 865}#
- #{kw\ 866}#)
+ #{req\ 4120}#
+ #{opt\ 4121}#
+ #{rest\ 4122}#
+ #{kw\ 4123}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args\ 851}#))))
- (#{rest\ 860}#
- (lambda (#{args\ 874}#
- #{req\ 875}#
- #{opt\ 876}#
- #{kw\ 877}#)
- ((lambda (#{tmp\ 882}#)
- ((lambda (#{tmp\ 883}#)
- (if (if #{tmp\ 883}#
- (apply (lambda (#{r\ 885}#)
- (#{id?\ 244}# #{r\ 885}#))
- #{tmp\ 883}#)
+ #{orig-args\ 4108}#))))
+ (#{rest\ 4117}#
+ (lambda (#{args\ 4131}#
+ #{req\ 4132}#
+ #{opt\ 4133}#
+ #{kw\ 4134}#)
+ ((lambda (#{tmp\ 4139}#)
+ ((lambda (#{tmp\ 4140}#)
+ (if (if #{tmp\ 4140}#
+ (apply (lambda (#{r\ 4142}#)
+ (#{id?\ 3501}# #{r\ 4142}#))
+ #{tmp\ 4140}#)
#f)
- (apply (lambda (#{r\ 887}#)
- (#{check\ 862}#
- #{req\ 875}#
- #{opt\ 876}#
- #{r\ 887}#
- #{kw\ 877}#))
- #{tmp\ 883}#)
- ((lambda (#{else\ 889}#)
+ (apply (lambda (#{r\ 4144}#)
+ (#{check\ 4119}#
+ #{req\ 4132}#
+ #{opt\ 4133}#
+ #{r\ 4144}#
+ #{kw\ 4134}#))
+ #{tmp\ 4140}#)
+ ((lambda (#{else\ 4146}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args\ 851}#
- #{args\ 874}#))
- #{tmp\ 882}#)))
- (list #{tmp\ 882}#)))
- #{args\ 874}#)))
- (#{key\ 858}#
- (lambda (#{args\ 890}#
- #{req\ 891}#
- #{opt\ 892}#
- #{rkey\ 893}#)
- ((lambda (#{tmp\ 898}#)
- ((lambda (#{tmp\ 899}#)
- (if #{tmp\ 899}#
+ #{orig-args\ 4108}#
+ #{args\ 4131}#))
+ #{tmp\ 4139}#)))
+ (list #{tmp\ 4139}#)))
+ #{args\ 4131}#)))
+ (#{key\ 4115}#
+ (lambda (#{args\ 4147}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
+ #{rkey\ 4150}#)
+ ((lambda (#{tmp\ 4155}#)
+ ((lambda (#{tmp\ 4156}#)
+ (if #{tmp\ 4156}#
(apply (lambda ()
- (#{check\ 862}#
- #{req\ 891}#
- #{opt\ 892}#
+ (#{check\ 4119}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
#f
(cons #f
- (reverse #{rkey\ 893}#))))
- #{tmp\ 899}#)
- ((lambda (#{tmp\ 900}#)
- (if (if #{tmp\ 900}#
- (apply (lambda (#{a\ 903}#
- #{b\ 904}#)
- (#{id?\ 244}#
- #{a\ 903}#))
- #{tmp\ 900}#)
+ (reverse
+ #{rkey\ 4150}#))))
+ #{tmp\ 4156}#)
+ ((lambda (#{tmp\ 4157}#)
+ (if (if #{tmp\ 4157}#
+ (apply (lambda (#{a\ 4160}#
+ #{b\ 4161}#)
+ (#{id?\ 3501}#
+ #{a\ 4160}#))
+ #{tmp\ 4157}#)
#f)
- (apply (lambda (#{a\ 907}# #{b\ 908}#)
- ((lambda (#{tmp\ 910}#)
- ((lambda (#{k\ 912}#)
- (#{key\ 858}#
- #{b\ 908}#
- #{req\ 891}#
- #{opt\ 892}#
- (cons (cons #{k\ 912}#
- (cons #{a\ 907}#
+ (apply (lambda (#{a\ 4164}#
+ #{b\ 4165}#)
+ ((lambda (#{tmp\ 4167}#)
+ ((lambda (#{k\ 4169}#)
+ (#{key\ 4115}#
+ #{b\ 4165}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
+ (cons (cons #{k\ 4169}#
+ (cons #{a\ 4164}#
'(#(syntax-object
#f
((top)
#(ribcage
#(k)
#((top))
- #("i911"))
+ #("i4168"))
#(ribcage
#(a
b)
#((top)
(top))
- #("i905"
- "i906"))
+ #("i4162"
+ "i4163"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i894"
- "i895"
- "i896"
- "i897"))
+ #("i4151"
+ "i4152"
+ "i4153"
+ "i4154"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i861"
- "i859"
- "i857"
- "i855"
- "i853"))
+ ("i4118"
+ "i4116"
+ "i4114"
+ "i4112"
+ "i4110"))
#(ribcage
#(orig-args)
#((top))
- #("i852"))
+ #("i4109"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i43"
- "i41")))
+ ("i3300"
+ "i3298")))
(hygiene
guile)))))
- #{rkey\ 893}#)))
- #{tmp\ 910}#))
+ #{rkey\ 4150}#)))
+ #{tmp\ 4167}#))
(symbol->keyword
(syntax->datum
- #{a\ 907}#))))
- #{tmp\ 900}#)
- ((lambda (#{tmp\ 913}#)
- (if (if #{tmp\ 913}#
- (apply (lambda (#{a\ 917}#
- #{init\ 918}#
- #{b\ 919}#)
- (#{id?\ 244}#
- #{a\ 917}#))
- #{tmp\ 913}#)
+ #{a\ 4164}#))))
+ #{tmp\ 4157}#)
+ ((lambda (#{tmp\ 4170}#)
+ (if (if #{tmp\ 4170}#
+ (apply (lambda (#{a\ 4174}#
+ #{init\ 4175}#
+ #{b\ 4176}#)
+ (#{id?\ 3501}#
+ #{a\ 4174}#))
+ #{tmp\ 4170}#)
#f)
- (apply (lambda (#{a\ 923}#
- #{init\ 924}#
- #{b\ 925}#)
- ((lambda (#{tmp\ 927}#)
- ((lambda (#{k\ 929}#)
- (#{key\ 858}#
- #{b\ 925}#
- #{req\ 891}#
- #{opt\ 892}#
- (cons (list #{k\ 929}#
- #{a\ 923}#
- #{init\ 924}#)
- #{rkey\ 893}#)))
- #{tmp\ 927}#))
+ (apply (lambda (#{a\ 4180}#
+ #{init\ 4181}#
+ #{b\ 4182}#)
+ ((lambda (#{tmp\ 4184}#)
+ ((lambda (#{k\ 4186}#)
+ (#{key\ 4115}#
+ #{b\ 4182}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
+ (cons (list #{k\ 4186}#
+ #{a\ 4180}#
+ #{init\ 4181}#)
+ #{rkey\ 4150}#)))
+ #{tmp\ 4184}#))
(symbol->keyword
(syntax->datum
- #{a\ 923}#))))
- #{tmp\ 913}#)
- ((lambda (#{tmp\ 930}#)
- (if (if #{tmp\ 930}#
- (apply (lambda (#{a\ 935}#
- #{init\ 936}#
- #{k\ 937}#
- #{b\ 938}#)
- (if (#{id?\ 244}#
- #{a\ 935}#)
+ #{a\ 4180}#))))
+ #{tmp\ 4170}#)
+ ((lambda (#{tmp\ 4187}#)
+ (if (if #{tmp\ 4187}#
+ (apply (lambda (#{a\ 4192}#
+ #{init\ 4193}#
+ #{k\ 4194}#
+ #{b\ 4195}#)
+ (if (#{id?\ 3501}#
+ #{a\ 4192}#)
(keyword?
(syntax->datum
- #{k\ 937}#))
+ #{k\ 4194}#))
#f))
- #{tmp\ 930}#)
+ #{tmp\ 4187}#)
#f)
- (apply (lambda (#{a\ 945}#
- #{init\ 946}#
- #{k\ 947}#
- #{b\ 948}#)
- (#{key\ 858}#
- #{b\ 948}#
- #{req\ 891}#
- #{opt\ 892}#
- (cons (list #{k\ 947}#
- #{a\ 945}#
- #{init\ 946}#)
- #{rkey\ 893}#)))
- #{tmp\ 930}#)
- ((lambda (#{tmp\ 949}#)
- (if (if #{tmp\ 949}#
- (apply (lambda (#{aok\ 951}#)
+ (apply (lambda (#{a\ 4202}#
+ #{init\ 4203}#
+ #{k\ 4204}#
+ #{b\ 4205}#)
+ (#{key\ 4115}#
+ #{b\ 4205}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
+ (cons (list #{k\ 4204}#
+ #{a\ 4202}#
+ #{init\ 4203}#)
+ #{rkey\ 4150}#)))
+ #{tmp\ 4187}#)
+ ((lambda (#{tmp\ 4206}#)
+ (if (if #{tmp\ 4206}#
+ (apply (lambda (#{aok\ 4208}#)
(eq? (syntax->datum
- #{aok\ 951}#)
+ #{aok\ 4208}#)
#:allow-other-keys))
- #{tmp\ 949}#)
+ #{tmp\ 4206}#)
#f)
- (apply (lambda (#{aok\ 953}#)
- (#{check\ 862}#
- #{req\ 891}#
- #{opt\ 892}#
+ (apply (lambda (#{aok\ 4210}#)
+ (#{check\ 4119}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
#f
(cons #t
(reverse
- #{rkey\ 893}#))))
- #{tmp\ 949}#)
- ((lambda (#{tmp\ 954}#)
- (if (if #{tmp\ 954}#
- (apply (lambda (#{aok\ 958}#
- #{a\ 959}#
- #{b\ 960}#)
+ #{rkey\ 4150}#))))
+ #{tmp\ 4206}#)
+ ((lambda (#{tmp\ 4211}#)
+ (if (if #{tmp\ 4211}#
+ (apply (lambda (#{aok\ 4215}#
+ #{a\ 4216}#
+ #{b\ 4217}#)
(if (eq? (syntax->datum
- #{aok\ 958}#)
+ #{aok\ 4215}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a\ 959}#)
+ #{a\ 4216}#)
#:rest)
#f))
- #{tmp\ 954}#)
+ #{tmp\ 4211}#)
#f)
- (apply (lambda (#{aok\ 966}#
- #{a\ 967}#
- #{b\ 968}#)
- (#{rest\ 860}#
- #{b\ 968}#
- #{req\ 891}#
- #{opt\ 892}#
+ (apply (lambda (#{aok\ 4223}#
+ #{a\ 4224}#
+ #{b\ 4225}#)
+ (#{rest\ 4117}#
+ #{b\ 4225}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
(cons #t
(reverse
- #{rkey\ 893}#))))
- #{tmp\ 954}#)
- ((lambda (#{tmp\ 969}#)
- (if (if #{tmp\ 969}#
- (apply (lambda (#{aok\ 972}#
- #{r\ 973}#)
+ #{rkey\ 4150}#))))
+ #{tmp\ 4211}#)
+ ((lambda (#{tmp\ 4226}#)
+ (if (if #{tmp\ 4226}#
+ (apply (lambda (#{aok\ 4229}#
+ #{r\ 4230}#)
(if (eq? (syntax->datum
- #{aok\ 972}#)
+ #{aok\ 4229}#)
#:allow-other-keys)
- (#{id?\ 244}#
- #{r\ 973}#)
+ (#{id?\ 3501}#
+ #{r\ 4230}#)
#f))
- #{tmp\ 969}#)
+ #{tmp\ 4226}#)
#f)
- (apply (lambda (#{aok\ 978}#
- #{r\ 979}#)
- (#{rest\ 860}#
- #{r\ 979}#
- #{req\ 891}#
- #{opt\ 892}#
+ (apply (lambda (#{aok\ 4235}#
+ #{r\ 4236}#)
+ (#{rest\ 4117}#
+ #{r\ 4236}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
(cons #t
(reverse
- #{rkey\ 893}#))))
- #{tmp\ 969}#)
- ((lambda (#{tmp\ 980}#)
- (if (if #{tmp\ 980}#
- (apply (lambda (#{a\ 983}#
- #{b\ 984}#)
+ #{rkey\ 4150}#))))
+ #{tmp\ 4226}#)
+ ((lambda (#{tmp\ 4237}#)
+ (if (if #{tmp\ 4237}#
+ (apply (lambda (#{a\ 4240}#
+ #{b\ 4241}#)
(eq? (syntax->datum
- #{a\ 983}#)
+ #{a\ 4240}#)
#:rest))
- #{tmp\ 980}#)
+ #{tmp\ 4237}#)
#f)
- (apply (lambda (#{a\ 987}#
- #{b\ 988}#)
- (#{rest\ 860}#
- #{b\ 988}#
- #{req\ 891}#
- #{opt\ 892}#
+ (apply (lambda (#{a\ 4244}#
+ #{b\ 4245}#)
+ (#{rest\ 4117}#
+ #{b\ 4245}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
(cons #f
(reverse
- #{rkey\ 893}#))))
- #{tmp\ 980}#)
- ((lambda (#{tmp\ 989}#)
- (if (if #{tmp\ 989}#
- (apply (lambda (#{r\ 991}#)
- (#{id?\ 244}#
- #{r\ 991}#))
- #{tmp\ 989}#)
+ #{rkey\ 4150}#))))
+ #{tmp\ 4237}#)
+ ((lambda (#{tmp\ 4246}#)
+ (if (if #{tmp\ 4246}#
+ (apply (lambda (#{r\ 4248}#)
+ (#{id?\ 3501}#
+ #{r\ 4248}#))
+ #{tmp\ 4246}#)
#f)
- (apply (lambda (#{r\ 993}#)
- (#{rest\ 860}#
- #{r\ 993}#
- #{req\ 891}#
- #{opt\ 892}#
+ (apply (lambda (#{r\ 4250}#)
+ (#{rest\ 4117}#
+ #{r\ 4250}#
+ #{req\ 4148}#
+ #{opt\ 4149}#
(cons #f
(reverse
- #{rkey\ 893}#))))
- #{tmp\ 989}#)
- ((lambda (#{else\ 995}#)
+ #{rkey\ 4150}#))))
+ #{tmp\ 4246}#)
+ ((lambda (#{else\ 4252}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args\ 851}#
- #{args\ 890}#))
- #{tmp\ 898}#)))
- (list #{tmp\ 898}#))))
+ #{orig-args\ 4108}#
+ #{args\ 4147}#))
+ #{tmp\ 4155}#)))
+ (list #{tmp\ 4155}#))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'(any any)))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'(any .
any)))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'(any)))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'((any any any) . any)))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 898}#
+ #{tmp\ 4155}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 898}# (quote ()))))
- #{args\ 890}#)))
- (#{opt\ 856}#
- (lambda (#{args\ 996}# #{req\ 997}# #{ropt\ 998}#)
- ((lambda (#{tmp\ 1002}#)
- ((lambda (#{tmp\ 1003}#)
- (if #{tmp\ 1003}#
+ ($sc-dispatch #{tmp\ 4155}# (quote ()))))
+ #{args\ 4147}#)))
+ (#{opt\ 4113}#
+ (lambda (#{args\ 4253}# #{req\ 4254}# #{ropt\ 4255}#)
+ ((lambda (#{tmp\ 4259}#)
+ ((lambda (#{tmp\ 4260}#)
+ (if #{tmp\ 4260}#
(apply (lambda ()
- (#{check\ 862}#
- #{req\ 997}#
- (reverse #{ropt\ 998}#)
+ (#{check\ 4119}#
+ #{req\ 4254}#
+ (reverse #{ropt\ 4255}#)
#f
'()))
- #{tmp\ 1003}#)
- ((lambda (#{tmp\ 1004}#)
- (if (if #{tmp\ 1004}#
- (apply (lambda (#{a\ 1007}#
- #{b\ 1008}#)
- (#{id?\ 244}#
- #{a\ 1007}#))
- #{tmp\ 1004}#)
+ #{tmp\ 4260}#)
+ ((lambda (#{tmp\ 4261}#)
+ (if (if #{tmp\ 4261}#
+ (apply (lambda (#{a\ 4264}#
+ #{b\ 4265}#)
+ (#{id?\ 3501}#
+ #{a\ 4264}#))
+ #{tmp\ 4261}#)
#f)
- (apply (lambda (#{a\ 1011}#
- #{b\ 1012}#)
- (#{opt\ 856}#
- #{b\ 1012}#
- #{req\ 997}#
- (cons (cons #{a\ 1011}#
+ (apply (lambda (#{a\ 4268}#
+ #{b\ 4269}#)
+ (#{opt\ 4113}#
+ #{b\ 4269}#
+ #{req\ 4254}#
+ (cons (cons #{a\ 4268}#
'(#(syntax-object
#f
((top)
#(a b)
#((top)
(top))
- #("i1009"
- "i1010"))
+ #("i4266"
+ "i4267"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i999"
- "i1000"
- "i1001"))
+ #("i4256"
+ "i4257"
+ "i4258"))
#(ribcage
(check rest
key
(top)
(top)
(top))
- ("i861"
- "i859"
- "i857"
- "i855"
- "i853"))
+ ("i4118"
+ "i4116"
+ "i4114"
+ "i4112"
+ "i4110"))
#(ribcage
#(orig-args)
#((top))
- #("i852"))
+ #("i4109"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i43"
- "i41")))
+ ("i3300"
+ "i3298")))
(hygiene
guile))))
- #{ropt\ 998}#)))
- #{tmp\ 1004}#)
- ((lambda (#{tmp\ 1013}#)
- (if (if #{tmp\ 1013}#
- (apply (lambda (#{a\ 1017}#
- #{init\ 1018}#
- #{b\ 1019}#)
- (#{id?\ 244}#
- #{a\ 1017}#))
- #{tmp\ 1013}#)
+ #{ropt\ 4255}#)))
+ #{tmp\ 4261}#)
+ ((lambda (#{tmp\ 4270}#)
+ (if (if #{tmp\ 4270}#
+ (apply (lambda (#{a\ 4274}#
+ #{init\ 4275}#
+ #{b\ 4276}#)
+ (#{id?\ 3501}#
+ #{a\ 4274}#))
+ #{tmp\ 4270}#)
#f)
- (apply (lambda (#{a\ 1023}#
- #{init\ 1024}#
- #{b\ 1025}#)
- (#{opt\ 856}#
- #{b\ 1025}#
- #{req\ 997}#
- (cons (list #{a\ 1023}#
- #{init\ 1024}#)
- #{ropt\ 998}#)))
- #{tmp\ 1013}#)
- ((lambda (#{tmp\ 1026}#)
- (if (if #{tmp\ 1026}#
- (apply (lambda (#{a\ 1029}#
- #{b\ 1030}#)
+ (apply (lambda (#{a\ 4280}#
+ #{init\ 4281}#
+ #{b\ 4282}#)
+ (#{opt\ 4113}#
+ #{b\ 4282}#
+ #{req\ 4254}#
+ (cons (list #{a\ 4280}#
+ #{init\ 4281}#)
+ #{ropt\ 4255}#)))
+ #{tmp\ 4270}#)
+ ((lambda (#{tmp\ 4283}#)
+ (if (if #{tmp\ 4283}#
+ (apply (lambda (#{a\ 4286}#
+ #{b\ 4287}#)
(eq? (syntax->datum
- #{a\ 1029}#)
+ #{a\ 4286}#)
#:key))
- #{tmp\ 1026}#)
+ #{tmp\ 4283}#)
#f)
- (apply (lambda (#{a\ 1033}#
- #{b\ 1034}#)
- (#{key\ 858}#
- #{b\ 1034}#
- #{req\ 997}#
+ (apply (lambda (#{a\ 4290}#
+ #{b\ 4291}#)
+ (#{key\ 4115}#
+ #{b\ 4291}#
+ #{req\ 4254}#
(reverse
- #{ropt\ 998}#)
+ #{ropt\ 4255}#)
'()))
- #{tmp\ 1026}#)
- ((lambda (#{tmp\ 1035}#)
- (if (if #{tmp\ 1035}#
- (apply (lambda (#{a\ 1038}#
- #{b\ 1039}#)
+ #{tmp\ 4283}#)
+ ((lambda (#{tmp\ 4292}#)
+ (if (if #{tmp\ 4292}#
+ (apply (lambda (#{a\ 4295}#
+ #{b\ 4296}#)
(eq? (syntax->datum
- #{a\ 1038}#)
+ #{a\ 4295}#)
#:rest))
- #{tmp\ 1035}#)
+ #{tmp\ 4292}#)
#f)
- (apply (lambda (#{a\ 1042}#
- #{b\ 1043}#)
- (#{rest\ 860}#
- #{b\ 1043}#
- #{req\ 997}#
+ (apply (lambda (#{a\ 4299}#
+ #{b\ 4300}#)
+ (#{rest\ 4117}#
+ #{b\ 4300}#
+ #{req\ 4254}#
(reverse
- #{ropt\ 998}#)
+ #{ropt\ 4255}#)
'()))
- #{tmp\ 1035}#)
- ((lambda (#{tmp\ 1044}#)
- (if (if #{tmp\ 1044}#
- (apply (lambda (#{r\ 1046}#)
- (#{id?\ 244}#
- #{r\ 1046}#))
- #{tmp\ 1044}#)
+ #{tmp\ 4292}#)
+ ((lambda (#{tmp\ 4301}#)
+ (if (if #{tmp\ 4301}#
+ (apply (lambda (#{r\ 4303}#)
+ (#{id?\ 3501}#
+ #{r\ 4303}#))
+ #{tmp\ 4301}#)
#f)
- (apply (lambda (#{r\ 1048}#)
- (#{rest\ 860}#
- #{r\ 1048}#
- #{req\ 997}#
+ (apply (lambda (#{r\ 4305}#)
+ (#{rest\ 4117}#
+ #{r\ 4305}#
+ #{req\ 4254}#
(reverse
- #{ropt\ 998}#)
+ #{ropt\ 4255}#)
'()))
- #{tmp\ 1044}#)
- ((lambda (#{else\ 1050}#)
+ #{tmp\ 4301}#)
+ ((lambda (#{else\ 4307}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args\ 851}#
- #{args\ 996}#))
- #{tmp\ 1002}#)))
- (list #{tmp\ 1002}#))))
+ #{orig-args\ 4108}#
+ #{args\ 4253}#))
+ #{tmp\ 4259}#)))
+ (list #{tmp\ 4259}#))))
($sc-dispatch
- #{tmp\ 1002}#
+ #{tmp\ 4259}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1002}#
+ #{tmp\ 4259}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1002}#
+ #{tmp\ 4259}#
'((any any) . any)))))
($sc-dispatch
- #{tmp\ 1002}#
+ #{tmp\ 4259}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1002}# (quote ()))))
- #{args\ 996}#)))
- (#{req\ 854}#
- (lambda (#{args\ 1051}# #{rreq\ 1052}#)
- ((lambda (#{tmp\ 1055}#)
- ((lambda (#{tmp\ 1056}#)
- (if #{tmp\ 1056}#
+ ($sc-dispatch #{tmp\ 4259}# (quote ()))))
+ #{args\ 4253}#)))
+ (#{req\ 4111}#
+ (lambda (#{args\ 4308}# #{rreq\ 4309}#)
+ ((lambda (#{tmp\ 4312}#)
+ ((lambda (#{tmp\ 4313}#)
+ (if #{tmp\ 4313}#
(apply (lambda ()
- (#{check\ 862}#
- (reverse #{rreq\ 1052}#)
+ (#{check\ 4119}#
+ (reverse #{rreq\ 4309}#)
'()
#f
'()))
- #{tmp\ 1056}#)
- ((lambda (#{tmp\ 1057}#)
- (if (if #{tmp\ 1057}#
- (apply (lambda (#{a\ 1060}#
- #{b\ 1061}#)
- (#{id?\ 244}#
- #{a\ 1060}#))
- #{tmp\ 1057}#)
+ #{tmp\ 4313}#)
+ ((lambda (#{tmp\ 4314}#)
+ (if (if #{tmp\ 4314}#
+ (apply (lambda (#{a\ 4317}#
+ #{b\ 4318}#)
+ (#{id?\ 3501}#
+ #{a\ 4317}#))
+ #{tmp\ 4314}#)
#f)
- (apply (lambda (#{a\ 1064}#
- #{b\ 1065}#)
- (#{req\ 854}#
- #{b\ 1065}#
- (cons #{a\ 1064}#
- #{rreq\ 1052}#)))
- #{tmp\ 1057}#)
- ((lambda (#{tmp\ 1066}#)
- (if (if #{tmp\ 1066}#
- (apply (lambda (#{a\ 1069}#
- #{b\ 1070}#)
+ (apply (lambda (#{a\ 4321}#
+ #{b\ 4322}#)
+ (#{req\ 4111}#
+ #{b\ 4322}#
+ (cons #{a\ 4321}#
+ #{rreq\ 4309}#)))
+ #{tmp\ 4314}#)
+ ((lambda (#{tmp\ 4323}#)
+ (if (if #{tmp\ 4323}#
+ (apply (lambda (#{a\ 4326}#
+ #{b\ 4327}#)
(eq? (syntax->datum
- #{a\ 1069}#)
+ #{a\ 4326}#)
#:optional))
- #{tmp\ 1066}#)
+ #{tmp\ 4323}#)
#f)
- (apply (lambda (#{a\ 1073}#
- #{b\ 1074}#)
- (#{opt\ 856}#
- #{b\ 1074}#
+ (apply (lambda (#{a\ 4330}#
+ #{b\ 4331}#)
+ (#{opt\ 4113}#
+ #{b\ 4331}#
(reverse
- #{rreq\ 1052}#)
+ #{rreq\ 4309}#)
'()))
- #{tmp\ 1066}#)
- ((lambda (#{tmp\ 1075}#)
- (if (if #{tmp\ 1075}#
- (apply (lambda (#{a\ 1078}#
- #{b\ 1079}#)
+ #{tmp\ 4323}#)
+ ((lambda (#{tmp\ 4332}#)
+ (if (if #{tmp\ 4332}#
+ (apply (lambda (#{a\ 4335}#
+ #{b\ 4336}#)
(eq? (syntax->datum
- #{a\ 1078}#)
+ #{a\ 4335}#)
#:key))
- #{tmp\ 1075}#)
+ #{tmp\ 4332}#)
#f)
- (apply (lambda (#{a\ 1082}#
- #{b\ 1083}#)
- (#{key\ 858}#
- #{b\ 1083}#
+ (apply (lambda (#{a\ 4339}#
+ #{b\ 4340}#)
+ (#{key\ 4115}#
+ #{b\ 4340}#
(reverse
- #{rreq\ 1052}#)
+ #{rreq\ 4309}#)
'()
'()))
- #{tmp\ 1075}#)
- ((lambda (#{tmp\ 1084}#)
- (if (if #{tmp\ 1084}#
- (apply (lambda (#{a\ 1087}#
- #{b\ 1088}#)
+ #{tmp\ 4332}#)
+ ((lambda (#{tmp\ 4341}#)
+ (if (if #{tmp\ 4341}#
+ (apply (lambda (#{a\ 4344}#
+ #{b\ 4345}#)
(eq? (syntax->datum
- #{a\ 1087}#)
+ #{a\ 4344}#)
#:rest))
- #{tmp\ 1084}#)
+ #{tmp\ 4341}#)
#f)
- (apply (lambda (#{a\ 1091}#
- #{b\ 1092}#)
- (#{rest\ 860}#
- #{b\ 1092}#
+ (apply (lambda (#{a\ 4348}#
+ #{b\ 4349}#)
+ (#{rest\ 4117}#
+ #{b\ 4349}#
(reverse
- #{rreq\ 1052}#)
+ #{rreq\ 4309}#)
'()
'()))
- #{tmp\ 1084}#)
- ((lambda (#{tmp\ 1093}#)
- (if (if #{tmp\ 1093}#
- (apply (lambda (#{r\ 1095}#)
- (#{id?\ 244}#
- #{r\ 1095}#))
- #{tmp\ 1093}#)
+ #{tmp\ 4341}#)
+ ((lambda (#{tmp\ 4350}#)
+ (if (if #{tmp\ 4350}#
+ (apply (lambda (#{r\ 4352}#)
+ (#{id?\ 3501}#
+ #{r\ 4352}#))
+ #{tmp\ 4350}#)
#f)
- (apply (lambda (#{r\ 1097}#)
- (#{rest\ 860}#
- #{r\ 1097}#
+ (apply (lambda (#{r\ 4354}#)
+ (#{rest\ 4117}#
+ #{r\ 4354}#
(reverse
- #{rreq\ 1052}#)
+ #{rreq\ 4309}#)
'()
'()))
- #{tmp\ 1093}#)
- ((lambda (#{else\ 1099}#)
+ #{tmp\ 4350}#)
+ ((lambda (#{else\ 4356}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args\ 851}#
- #{args\ 1051}#))
- #{tmp\ 1055}#)))
- (list #{tmp\ 1055}#))))
+ #{orig-args\ 4108}#
+ #{args\ 4308}#))
+ #{tmp\ 4312}#)))
+ (list #{tmp\ 4312}#))))
($sc-dispatch
- #{tmp\ 1055}#
+ #{tmp\ 4312}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1055}#
+ #{tmp\ 4312}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1055}#
+ #{tmp\ 4312}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 1055}#
+ #{tmp\ 4312}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1055}# (quote ()))))
- #{args\ 1051}#))))
- (#{req\ 854}# #{orig-args\ 851}# (quote ())))))
- (#{chi-simple-lambda\ 349}#
- (lambda (#{e\ 1100}#
- #{r\ 1101}#
- #{w\ 1102}#
- #{s\ 1103}#
- #{mod\ 1104}#
- #{req\ 1105}#
- #{rest\ 1106}#
- #{docstring\ 1107}#
- #{body\ 1108}#)
- (let ((#{ids\ 1120}#
- (if #{rest\ 1106}#
- (append #{req\ 1105}# (list #{rest\ 1106}#))
- #{req\ 1105}#)))
- (let ((#{vars\ 1122}#
- (map #{gen-var\ 357}# #{ids\ 1120}#)))
- (let ((#{labels\ 1124}#
- (#{gen-labels\ 262}# #{ids\ 1120}#)))
- (#{build-simple-lambda\ 186}#
- #{s\ 1103}#
- (map syntax->datum #{req\ 1105}#)
- (if #{rest\ 1106}#
- (syntax->datum #{rest\ 1106}#)
+ ($sc-dispatch #{tmp\ 4312}# (quote ()))))
+ #{args\ 4308}#))))
+ (#{req\ 4111}# #{orig-args\ 4108}# (quote ())))))
+ (#{chi-simple-lambda\ 3606}#
+ (lambda (#{e\ 4357}#
+ #{r\ 4358}#
+ #{w\ 4359}#
+ #{s\ 4360}#
+ #{mod\ 4361}#
+ #{req\ 4362}#
+ #{rest\ 4363}#
+ #{docstring\ 4364}#
+ #{body\ 4365}#)
+ (let ((#{ids\ 4377}#
+ (if #{rest\ 4363}#
+ (append #{req\ 4362}# (list #{rest\ 4363}#))
+ #{req\ 4362}#)))
+ (let ((#{vars\ 4379}#
+ (map #{gen-var\ 3614}# #{ids\ 4377}#)))
+ (let ((#{labels\ 4381}#
+ (#{gen-labels\ 3519}# #{ids\ 4377}#)))
+ (#{build-simple-lambda\ 3443}#
+ #{s\ 4360}#
+ (map syntax->datum #{req\ 4362}#)
+ (if #{rest\ 4363}#
+ (syntax->datum #{rest\ 4363}#)
#f)
- #{vars\ 1122}#
- #{docstring\ 1107}#
- (#{chi-body\ 337}#
- #{body\ 1108}#
- (#{source-wrap\ 315}#
- #{e\ 1100}#
- #{w\ 1102}#
- #{s\ 1103}#
- #{mod\ 1104}#)
- (#{extend-var-env\ 234}#
- #{labels\ 1124}#
- #{vars\ 1122}#
- #{r\ 1101}#)
- (#{make-binding-wrap\ 291}#
- #{ids\ 1120}#
- #{labels\ 1124}#
- #{w\ 1102}#)
- #{mod\ 1104}#)))))))
- (#{lambda-formals\ 347}#
- (lambda (#{orig-args\ 1127}#)
- (letrec ((#{check\ 1132}#
- (lambda (#{req\ 1133}# #{rest\ 1134}#)
- (if (#{distinct-bound-ids?\ 309}#
- (if #{rest\ 1134}#
- (cons #{rest\ 1134}# #{req\ 1133}#)
- #{req\ 1133}#))
- (values #{req\ 1133}# #f #{rest\ 1134}# #f)
+ #{vars\ 4379}#
+ #{docstring\ 4364}#
+ (#{chi-body\ 3594}#
+ #{body\ 4365}#
+ (#{source-wrap\ 3572}#
+ #{e\ 4357}#
+ #{w\ 4359}#
+ #{s\ 4360}#
+ #{mod\ 4361}#)
+ (#{extend-var-env\ 3491}#
+ #{labels\ 4381}#
+ #{vars\ 4379}#
+ #{r\ 4358}#)
+ (#{make-binding-wrap\ 3548}#
+ #{ids\ 4377}#
+ #{labels\ 4381}#
+ #{w\ 4359}#)
+ #{mod\ 4361}#)))))))
+ (#{lambda-formals\ 3604}#
+ (lambda (#{orig-args\ 4384}#)
+ (letrec ((#{check\ 4389}#
+ (lambda (#{req\ 4390}# #{rest\ 4391}#)
+ (if (#{distinct-bound-ids?\ 3566}#
+ (if #{rest\ 4391}#
+ (cons #{rest\ 4391}# #{req\ 4390}#)
+ #{req\ 4390}#))
+ (values #{req\ 4390}# #f #{rest\ 4391}# #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args\ 1127}#))))
- (#{req\ 1130}#
- (lambda (#{args\ 1140}# #{rreq\ 1141}#)
- ((lambda (#{tmp\ 1144}#)
- ((lambda (#{tmp\ 1145}#)
- (if #{tmp\ 1145}#
+ #{orig-args\ 4384}#))))
+ (#{req\ 4387}#
+ (lambda (#{args\ 4397}# #{rreq\ 4398}#)
+ ((lambda (#{tmp\ 4401}#)
+ ((lambda (#{tmp\ 4402}#)
+ (if #{tmp\ 4402}#
(apply (lambda ()
- (#{check\ 1132}#
- (reverse #{rreq\ 1141}#)
+ (#{check\ 4389}#
+ (reverse #{rreq\ 4398}#)
#f))
- #{tmp\ 1145}#)
- ((lambda (#{tmp\ 1146}#)
- (if (if #{tmp\ 1146}#
- (apply (lambda (#{a\ 1149}#
- #{b\ 1150}#)
- (#{id?\ 244}#
- #{a\ 1149}#))
- #{tmp\ 1146}#)
+ #{tmp\ 4402}#)
+ ((lambda (#{tmp\ 4403}#)
+ (if (if #{tmp\ 4403}#
+ (apply (lambda (#{a\ 4406}#
+ #{b\ 4407}#)
+ (#{id?\ 3501}#
+ #{a\ 4406}#))
+ #{tmp\ 4403}#)
#f)
- (apply (lambda (#{a\ 1153}#
- #{b\ 1154}#)
- (#{req\ 1130}#
- #{b\ 1154}#
- (cons #{a\ 1153}#
- #{rreq\ 1141}#)))
- #{tmp\ 1146}#)
- ((lambda (#{tmp\ 1155}#)
- (if (if #{tmp\ 1155}#
- (apply (lambda (#{r\ 1157}#)
- (#{id?\ 244}#
- #{r\ 1157}#))
- #{tmp\ 1155}#)
+ (apply (lambda (#{a\ 4410}#
+ #{b\ 4411}#)
+ (#{req\ 4387}#
+ #{b\ 4411}#
+ (cons #{a\ 4410}#
+ #{rreq\ 4398}#)))
+ #{tmp\ 4403}#)
+ ((lambda (#{tmp\ 4412}#)
+ (if (if #{tmp\ 4412}#
+ (apply (lambda (#{r\ 4414}#)
+ (#{id?\ 3501}#
+ #{r\ 4414}#))
+ #{tmp\ 4412}#)
#f)
- (apply (lambda (#{r\ 1159}#)
- (#{check\ 1132}#
+ (apply (lambda (#{r\ 4416}#)
+ (#{check\ 4389}#
(reverse
- #{rreq\ 1141}#)
- #{r\ 1159}#))
- #{tmp\ 1155}#)
- ((lambda (#{else\ 1161}#)
+ #{rreq\ 4398}#)
+ #{r\ 4416}#))
+ #{tmp\ 4412}#)
+ ((lambda (#{else\ 4418}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args\ 1127}#
- #{args\ 1140}#))
- #{tmp\ 1144}#)))
- (list #{tmp\ 1144}#))))
+ #{orig-args\ 4384}#
+ #{args\ 4397}#))
+ #{tmp\ 4401}#)))
+ (list #{tmp\ 4401}#))))
($sc-dispatch
- #{tmp\ 1144}#
+ #{tmp\ 4401}#
'(any . any)))))
- ($sc-dispatch #{tmp\ 1144}# (quote ()))))
- #{args\ 1140}#))))
- (#{req\ 1130}# #{orig-args\ 1127}# (quote ())))))
- (#{ellipsis?\ 345}#
- (lambda (#{x\ 1162}#)
- (if (#{nonsymbol-id?\ 242}# #{x\ 1162}#)
- (#{free-id=?\ 303}#
- #{x\ 1162}#
+ ($sc-dispatch #{tmp\ 4401}# (quote ()))))
+ #{args\ 4397}#))))
+ (#{req\ 4387}# #{orig-args\ 4384}# (quote ())))))
+ (#{ellipsis?\ 3602}#
+ (lambda (#{x\ 4419}#)
+ (if (#{nonsymbol-id?\ 3499}# #{x\ 4419}#)
+ (#{free-id=?\ 3560}#
+ #{x\ 4419}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i1163"))
+ #(ribcage #(x) #((top)) #("i4420"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile)))
#f)))
- (#{chi-void\ 343}#
- (lambda () (#{build-void\ 164}# #f)))
- (#{eval-local-transformer\ 341}#
- (lambda (#{expanded\ 1167}# #{mod\ 1168}#)
- (let ((#{p\ 1172}#
- (#{local-eval-hook\ 155}#
- #{expanded\ 1167}#
- #{mod\ 1168}#)))
- (if (procedure? #{p\ 1172}#)
- (cons #{p\ 1172}# (module-name (current-module)))
+ (#{chi-void\ 3600}#
+ (lambda () (#{build-void\ 3421}# #f)))
+ (#{eval-local-transformer\ 3598}#
+ (lambda (#{expanded\ 4424}# #{mod\ 4425}#)
+ (let ((#{p\ 4429}#
+ (#{local-eval-hook\ 3412}#
+ #{expanded\ 4424}#
+ #{mod\ 4425}#)))
+ (if (procedure? #{p\ 4429}#)
+ (cons #{p\ 4429}# (module-name (current-module)))
(syntax-violation
#f
"nonprocedure transformer"
- #{p\ 1172}#)))))
- (#{chi-local-syntax\ 339}#
- (lambda (#{rec?\ 1173}#
- #{e\ 1174}#
- #{r\ 1175}#
- #{w\ 1176}#
- #{s\ 1177}#
- #{mod\ 1178}#
- #{k\ 1179}#)
- ((lambda (#{tmp\ 1187}#)
- ((lambda (#{tmp\ 1188}#)
- (if #{tmp\ 1188}#
- (apply (lambda (#{_\ 1194}#
- #{id\ 1195}#
- #{val\ 1196}#
- #{e1\ 1197}#
- #{e2\ 1198}#)
- (let ((#{ids\ 1200}# #{id\ 1195}#))
- (if (not (#{valid-bound-ids?\ 307}#
- #{ids\ 1200}#))
+ #{p\ 4429}#)))))
+ (#{chi-local-syntax\ 3596}#
+ (lambda (#{rec?\ 4430}#
+ #{e\ 4431}#
+ #{r\ 4432}#
+ #{w\ 4433}#
+ #{s\ 4434}#
+ #{mod\ 4435}#
+ #{k\ 4436}#)
+ ((lambda (#{tmp\ 4444}#)
+ ((lambda (#{tmp\ 4445}#)
+ (if #{tmp\ 4445}#
+ (apply (lambda (#{_\ 4451}#
+ #{id\ 4452}#
+ #{val\ 4453}#
+ #{e1\ 4454}#
+ #{e2\ 4455}#)
+ (let ((#{ids\ 4457}# #{id\ 4452}#))
+ (if (not (#{valid-bound-ids?\ 3564}#
+ #{ids\ 4457}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e\ 1174}#)
- (let ((#{labels\ 1203}#
- (#{gen-labels\ 262}#
- #{ids\ 1200}#)))
- (let ((#{new-w\ 1205}#
- (#{make-binding-wrap\ 291}#
- #{ids\ 1200}#
- #{labels\ 1203}#
- #{w\ 1176}#)))
- (#{k\ 1179}#
- (cons #{e1\ 1197}# #{e2\ 1198}#)
- (#{extend-env\ 232}#
- #{labels\ 1203}#
- (let ((#{w\ 1209}#
- (if #{rec?\ 1173}#
- #{new-w\ 1205}#
- #{w\ 1176}#))
- (#{trans-r\ 1210}#
- (#{macros-only-env\ 236}#
- #{r\ 1175}#)))
- (map (lambda (#{x\ 1211}#)
+ #{e\ 4431}#)
+ (let ((#{labels\ 4460}#
+ (#{gen-labels\ 3519}#
+ #{ids\ 4457}#)))
+ (let ((#{new-w\ 4462}#
+ (#{make-binding-wrap\ 3548}#
+ #{ids\ 4457}#
+ #{labels\ 4460}#
+ #{w\ 4433}#)))
+ (#{k\ 4436}#
+ (cons #{e1\ 4454}# #{e2\ 4455}#)
+ (#{extend-env\ 3489}#
+ #{labels\ 4460}#
+ (let ((#{w\ 4466}#
+ (if #{rec?\ 4430}#
+ #{new-w\ 4462}#
+ #{w\ 4433}#))
+ (#{trans-r\ 4467}#
+ (#{macros-only-env\ 3493}#
+ #{r\ 4432}#)))
+ (map (lambda (#{x\ 4468}#)
(cons 'macro
- (#{eval-local-transformer\ 341}#
- (#{chi\ 329}#
- #{x\ 1211}#
- #{trans-r\ 1210}#
- #{w\ 1209}#
- #{mod\ 1178}#)
- #{mod\ 1178}#)))
- #{val\ 1196}#))
- #{r\ 1175}#)
- #{new-w\ 1205}#
- #{s\ 1177}#
- #{mod\ 1178}#))))))
- #{tmp\ 1188}#)
- ((lambda (#{_\ 1216}#)
+ (#{eval-local-transformer\ 3598}#
+ (#{chi\ 3586}#
+ #{x\ 4468}#
+ #{trans-r\ 4467}#
+ #{w\ 4466}#
+ #{mod\ 4435}#)
+ #{mod\ 4435}#)))
+ #{val\ 4453}#))
+ #{r\ 4432}#)
+ #{new-w\ 4462}#
+ #{s\ 4434}#
+ #{mod\ 4435}#))))))
+ #{tmp\ 4445}#)
+ ((lambda (#{_\ 4473}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{source-wrap\ 315}#
- #{e\ 1174}#
- #{w\ 1176}#
- #{s\ 1177}#
- #{mod\ 1178}#)))
- #{tmp\ 1187}#)))
+ (#{source-wrap\ 3572}#
+ #{e\ 4431}#
+ #{w\ 4433}#
+ #{s\ 4434}#
+ #{mod\ 4435}#)))
+ #{tmp\ 4444}#)))
($sc-dispatch
- #{tmp\ 1187}#
+ #{tmp\ 4444}#
'(any #(each (any any)) any . each-any))))
- #{e\ 1174}#)))
- (#{chi-body\ 337}#
- (lambda (#{body\ 1217}#
- #{outer-form\ 1218}#
- #{r\ 1219}#
- #{w\ 1220}#
- #{mod\ 1221}#)
- (let ((#{r\ 1229}#
+ #{e\ 4431}#)))
+ (#{chi-body\ 3594}#
+ (lambda (#{body\ 4474}#
+ #{outer-form\ 4475}#
+ #{r\ 4476}#
+ #{w\ 4477}#
+ #{mod\ 4478}#)
+ (let ((#{r\ 4486}#
(cons '("placeholder" placeholder)
- #{r\ 1219}#)))
- (let ((#{ribcage\ 1231}#
- (#{make-ribcage\ 265}#
+ #{r\ 4476}#)))
+ (let ((#{ribcage\ 4488}#
+ (#{make-ribcage\ 3522}#
'()
'()
'())))
- (let ((#{w\ 1234}#
- (#{make-wrap\ 249}#
- (#{wrap-marks\ 251}# #{w\ 1220}#)
- (cons #{ribcage\ 1231}#
- (#{wrap-subst\ 253}# #{w\ 1220}#)))))
- (letrec ((#{parse\ 1243}#
- (lambda (#{body\ 1244}#
- #{ids\ 1245}#
- #{labels\ 1246}#
- #{var-ids\ 1247}#
- #{vars\ 1248}#
- #{vals\ 1249}#
- #{bindings\ 1250}#)
- (if (null? #{body\ 1244}#)
+ (let ((#{w\ 4491}#
+ (#{make-wrap\ 3506}#
+ (#{wrap-marks\ 3508}# #{w\ 4477}#)
+ (cons #{ribcage\ 4488}#
+ (#{wrap-subst\ 3510}# #{w\ 4477}#)))))
+ (letrec ((#{parse\ 4500}#
+ (lambda (#{body\ 4501}#
+ #{ids\ 4502}#
+ #{labels\ 4503}#
+ #{var-ids\ 4504}#
+ #{vars\ 4505}#
+ #{vals\ 4506}#
+ #{bindings\ 4507}#)
+ (if (null? #{body\ 4501}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form\ 1218}#)
- (let ((#{e\ 1255}# (cdar #{body\ 1244}#))
- (#{er\ 1256}# (caar #{body\ 1244}#)))
+ #{outer-form\ 4475}#)
+ (let ((#{e\ 4512}# (cdar #{body\ 4501}#))
+ (#{er\ 4513}# (caar #{body\ 4501}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 325}#
- #{e\ 1255}#
- #{er\ 1256}#
+ (#{syntax-type\ 3582}#
+ #{e\ 4512}#
+ #{er\ 4513}#
'(())
- (#{source-annotation\ 223}#
- #{er\ 1256}#)
- #{ribcage\ 1231}#
- #{mod\ 1221}#
+ (#{source-annotation\ 3480}#
+ #{er\ 4513}#)
+ #{ribcage\ 4488}#
+ #{mod\ 4478}#
#f))
- (lambda (#{type\ 1258}#
- #{value\ 1259}#
- #{e\ 1260}#
- #{w\ 1261}#
- #{s\ 1262}#
- #{mod\ 1263}#)
- (if (memv #{type\ 1258}#
+ (lambda (#{type\ 4515}#
+ #{value\ 4516}#
+ #{e\ 4517}#
+ #{w\ 4518}#
+ #{s\ 4519}#
+ #{mod\ 4520}#)
+ (if (memv #{type\ 4515}#
'(define-form))
- (let ((#{id\ 1273}#
- (#{wrap\ 313}#
- #{value\ 1259}#
- #{w\ 1261}#
- #{mod\ 1263}#))
- (#{label\ 1274}#
- (#{gen-label\ 260}#)))
- (let ((#{var\ 1276}#
- (#{gen-var\ 357}#
- #{id\ 1273}#)))
+ (let ((#{id\ 4530}#
+ (#{wrap\ 3570}#
+ #{value\ 4516}#
+ #{w\ 4518}#
+ #{mod\ 4520}#))
+ (#{label\ 4531}#
+ (#{gen-label\ 3517}#)))
+ (let ((#{var\ 4533}#
+ (#{gen-var\ 3614}#
+ #{id\ 4530}#)))
(begin
- (#{extend-ribcage!\ 289}#
- #{ribcage\ 1231}#
- #{id\ 1273}#
- #{label\ 1274}#)
- (#{parse\ 1243}#
- (cdr #{body\ 1244}#)
- (cons #{id\ 1273}#
- #{ids\ 1245}#)
- (cons #{label\ 1274}#
- #{labels\ 1246}#)
- (cons #{id\ 1273}#
- #{var-ids\ 1247}#)
- (cons #{var\ 1276}#
- #{vars\ 1248}#)
- (cons (cons #{er\ 1256}#
- (#{wrap\ 313}#
- #{e\ 1260}#
- #{w\ 1261}#
- #{mod\ 1263}#))
- #{vals\ 1249}#)
+ (#{extend-ribcage!\ 3546}#
+ #{ribcage\ 4488}#
+ #{id\ 4530}#
+ #{label\ 4531}#)
+ (#{parse\ 4500}#
+ (cdr #{body\ 4501}#)
+ (cons #{id\ 4530}#
+ #{ids\ 4502}#)
+ (cons #{label\ 4531}#
+ #{labels\ 4503}#)
+ (cons #{id\ 4530}#
+ #{var-ids\ 4504}#)
+ (cons #{var\ 4533}#
+ #{vars\ 4505}#)
+ (cons (cons #{er\ 4513}#
+ (#{wrap\ 3570}#
+ #{e\ 4517}#
+ #{w\ 4518}#
+ #{mod\ 4520}#))
+ #{vals\ 4506}#)
(cons (cons 'lexical
- #{var\ 1276}#)
- #{bindings\ 1250}#)))))
- (if (memv #{type\ 1258}#
+ #{var\ 4533}#)
+ #{bindings\ 4507}#)))))
+ (if (memv #{type\ 4515}#
'(define-syntax-form))
- (let ((#{id\ 1281}#
- (#{wrap\ 313}#
- #{value\ 1259}#
- #{w\ 1261}#
- #{mod\ 1263}#))
- (#{label\ 1282}#
- (#{gen-label\ 260}#)))
+ (let ((#{id\ 4538}#
+ (#{wrap\ 3570}#
+ #{value\ 4516}#
+ #{w\ 4518}#
+ #{mod\ 4520}#))
+ (#{label\ 4539}#
+ (#{gen-label\ 3517}#)))
(begin
- (#{extend-ribcage!\ 289}#
- #{ribcage\ 1231}#
- #{id\ 1281}#
- #{label\ 1282}#)
- (#{parse\ 1243}#
- (cdr #{body\ 1244}#)
- (cons #{id\ 1281}#
- #{ids\ 1245}#)
- (cons #{label\ 1282}#
- #{labels\ 1246}#)
- #{var-ids\ 1247}#
- #{vars\ 1248}#
- #{vals\ 1249}#
+ (#{extend-ribcage!\ 3546}#
+ #{ribcage\ 4488}#
+ #{id\ 4538}#
+ #{label\ 4539}#)
+ (#{parse\ 4500}#
+ (cdr #{body\ 4501}#)
+ (cons #{id\ 4538}#
+ #{ids\ 4502}#)
+ (cons #{label\ 4539}#
+ #{labels\ 4503}#)
+ #{var-ids\ 4504}#
+ #{vars\ 4505}#
+ #{vals\ 4506}#
(cons (cons 'macro
- (cons #{er\ 1256}#
- (#{wrap\ 313}#
- #{e\ 1260}#
- #{w\ 1261}#
- #{mod\ 1263}#)))
- #{bindings\ 1250}#))))
- (if (memv #{type\ 1258}#
+ (cons #{er\ 4513}#
+ (#{wrap\ 3570}#
+ #{e\ 4517}#
+ #{w\ 4518}#
+ #{mod\ 4520}#)))
+ #{bindings\ 4507}#))))
+ (if (memv #{type\ 4515}#
'(begin-form))
- ((lambda (#{tmp\ 1285}#)
- ((lambda (#{tmp\ 1286}#)
- (if #{tmp\ 1286}#
- (apply (lambda (#{_\ 1289}#
- #{e1\ 1290}#)
- (#{parse\ 1243}#
- (letrec ((#{f\ 1293}#
- (lambda (#{forms\ 1294}#)
- (if (null? #{forms\ 1294}#)
- (cdr #{body\ 1244}#)
- (cons (cons #{er\ 1256}#
- (#{wrap\ 313}#
- (car #{forms\ 1294}#)
- #{w\ 1261}#
- #{mod\ 1263}#))
- (#{f\ 1293}#
- (cdr #{forms\ 1294}#)))))))
- (#{f\ 1293}#
- #{e1\ 1290}#))
- #{ids\ 1245}#
- #{labels\ 1246}#
- #{var-ids\ 1247}#
- #{vars\ 1248}#
- #{vals\ 1249}#
- #{bindings\ 1250}#))
- #{tmp\ 1286}#)
+ ((lambda (#{tmp\ 4542}#)
+ ((lambda (#{tmp\ 4543}#)
+ (if #{tmp\ 4543}#
+ (apply (lambda (#{_\ 4546}#
+ #{e1\ 4547}#)
+ (#{parse\ 4500}#
+ (letrec ((#{f\ 4550}#
+ (lambda (#{forms\ 4551}#)
+ (if (null? #{forms\ 4551}#)
+ (cdr #{body\ 4501}#)
+ (cons (cons #{er\ 4513}#
+ (#{wrap\ 3570}#
+ (car #{forms\ 4551}#)
+ #{w\ 4518}#
+ #{mod\ 4520}#))
+ (#{f\ 4550}#
+ (cdr #{forms\ 4551}#)))))))
+ (#{f\ 4550}#
+ #{e1\ 4547}#))
+ #{ids\ 4502}#
+ #{labels\ 4503}#
+ #{var-ids\ 4504}#
+ #{vars\ 4505}#
+ #{vals\ 4506}#
+ #{bindings\ 4507}#))
+ #{tmp\ 4543}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1285}#)))
+ #{tmp\ 4542}#)))
($sc-dispatch
- #{tmp\ 1285}#
+ #{tmp\ 4542}#
'(any . each-any))))
- #{e\ 1260}#)
- (if (memv #{type\ 1258}#
+ #{e\ 4517}#)
+ (if (memv #{type\ 4515}#
'(local-syntax-form))
- (#{chi-local-syntax\ 339}#
- #{value\ 1259}#
- #{e\ 1260}#
- #{er\ 1256}#
- #{w\ 1261}#
- #{s\ 1262}#
- #{mod\ 1263}#
- (lambda (#{forms\ 1297}#
- #{er\ 1298}#
- #{w\ 1299}#
- #{s\ 1300}#
- #{mod\ 1301}#)
- (#{parse\ 1243}#
- (letrec ((#{f\ 1309}#
- (lambda (#{forms\ 1310}#)
- (if (null? #{forms\ 1310}#)
- (cdr #{body\ 1244}#)
- (cons (cons #{er\ 1298}#
- (#{wrap\ 313}#
- (car #{forms\ 1310}#)
- #{w\ 1299}#
- #{mod\ 1301}#))
- (#{f\ 1309}#
- (cdr #{forms\ 1310}#)))))))
- (#{f\ 1309}#
- #{forms\ 1297}#))
- #{ids\ 1245}#
- #{labels\ 1246}#
- #{var-ids\ 1247}#
- #{vars\ 1248}#
- #{vals\ 1249}#
- #{bindings\ 1250}#)))
- (if (null? #{ids\ 1245}#)
- (#{build-sequence\ 196}#
+ (#{chi-local-syntax\ 3596}#
+ #{value\ 4516}#
+ #{e\ 4517}#
+ #{er\ 4513}#
+ #{w\ 4518}#
+ #{s\ 4519}#
+ #{mod\ 4520}#
+ (lambda (#{forms\ 4554}#
+ #{er\ 4555}#
+ #{w\ 4556}#
+ #{s\ 4557}#
+ #{mod\ 4558}#)
+ (#{parse\ 4500}#
+ (letrec ((#{f\ 4566}#
+ (lambda (#{forms\ 4567}#)
+ (if (null? #{forms\ 4567}#)
+ (cdr #{body\ 4501}#)
+ (cons (cons #{er\ 4555}#
+ (#{wrap\ 3570}#
+ (car #{forms\ 4567}#)
+ #{w\ 4556}#
+ #{mod\ 4558}#))
+ (#{f\ 4566}#
+ (cdr #{forms\ 4567}#)))))))
+ (#{f\ 4566}#
+ #{forms\ 4554}#))
+ #{ids\ 4502}#
+ #{labels\ 4503}#
+ #{var-ids\ 4504}#
+ #{vars\ 4505}#
+ #{vals\ 4506}#
+ #{bindings\ 4507}#)))
+ (if (null? #{ids\ 4502}#)
+ (#{build-sequence\ 3453}#
#f
- (map (lambda (#{x\ 1313}#)
- (#{chi\ 329}#
- (cdr #{x\ 1313}#)
- (car #{x\ 1313}#)
+ (map (lambda (#{x\ 4570}#)
+ (#{chi\ 3586}#
+ (cdr #{x\ 4570}#)
+ (car #{x\ 4570}#)
'(())
- #{mod\ 1263}#))
- (cons (cons #{er\ 1256}#
- (#{source-wrap\ 315}#
- #{e\ 1260}#
- #{w\ 1261}#
- #{s\ 1262}#
- #{mod\ 1263}#))
- (cdr #{body\ 1244}#))))
+ #{mod\ 4520}#))
+ (cons (cons #{er\ 4513}#
+ (#{source-wrap\ 3572}#
+ #{e\ 4517}#
+ #{w\ 4518}#
+ #{s\ 4519}#
+ #{mod\ 4520}#))
+ (cdr #{body\ 4501}#))))
(begin
- (if (not (#{valid-bound-ids?\ 307}#
- #{ids\ 1245}#))
+ (if (not (#{valid-bound-ids?\ 3564}#
+ #{ids\ 4502}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form\ 1218}#))
- (letrec ((#{loop\ 1320}#
- (lambda (#{bs\ 1321}#
- #{er-cache\ 1322}#
- #{r-cache\ 1323}#)
- (if (not (null? #{bs\ 1321}#))
- (let ((#{b\ 1326}#
- (car #{bs\ 1321}#)))
- (if (eq? (car #{b\ 1326}#)
+ #{outer-form\ 4475}#))
+ (letrec ((#{loop\ 4577}#
+ (lambda (#{bs\ 4578}#
+ #{er-cache\ 4579}#
+ #{r-cache\ 4580}#)
+ (if (not (null? #{bs\ 4578}#))
+ (let ((#{b\ 4583}#
+ (car #{bs\ 4578}#)))
+ (if (eq? (car #{b\ 4583}#)
'macro)
- (let ((#{er\ 1329}#
- (cadr #{b\ 1326}#)))
- (let ((#{r-cache\ 1331}#
- (if (eq? #{er\ 1329}#
- #{er-cache\ 1322}#)
- #{r-cache\ 1323}#
- (#{macros-only-env\ 236}#
- #{er\ 1329}#))))
+ (let ((#{er\ 4586}#
+ (cadr #{b\ 4583}#)))
+ (let ((#{r-cache\ 4588}#
+ (if (eq? #{er\ 4586}#
+ #{er-cache\ 4579}#)
+ #{r-cache\ 4580}#
+ (#{macros-only-env\ 3493}#
+ #{er\ 4586}#))))
(begin
(set-cdr!
- #{b\ 1326}#
- (#{eval-local-transformer\ 341}#
- (#{chi\ 329}#
- (cddr #{b\ 1326}#)
- #{r-cache\ 1331}#
+ #{b\ 4583}#
+ (#{eval-local-transformer\ 3598}#
+ (#{chi\ 3586}#
+ (cddr #{b\ 4583}#)
+ #{r-cache\ 4588}#
'(())
- #{mod\ 1263}#)
- #{mod\ 1263}#))
- (#{loop\ 1320}#
- (cdr #{bs\ 1321}#)
- #{er\ 1329}#
- #{r-cache\ 1331}#))))
- (#{loop\ 1320}#
- (cdr #{bs\ 1321}#)
- #{er-cache\ 1322}#
- #{r-cache\ 1323}#)))))))
- (#{loop\ 1320}#
- #{bindings\ 1250}#
+ #{mod\ 4520}#)
+ #{mod\ 4520}#))
+ (#{loop\ 4577}#
+ (cdr #{bs\ 4578}#)
+ #{er\ 4586}#
+ #{r-cache\ 4588}#))))
+ (#{loop\ 4577}#
+ (cdr #{bs\ 4578}#)
+ #{er-cache\ 4579}#
+ #{r-cache\ 4580}#)))))))
+ (#{loop\ 4577}#
+ #{bindings\ 4507}#
#f
#f))
(set-cdr!
- #{r\ 1229}#
- (#{extend-env\ 232}#
- #{labels\ 1246}#
- #{bindings\ 1250}#
- (cdr #{r\ 1229}#)))
- (#{build-letrec\ 202}#
+ #{r\ 4486}#
+ (#{extend-env\ 3489}#
+ #{labels\ 4503}#
+ #{bindings\ 4507}#
+ (cdr #{r\ 4486}#)))
+ (#{build-letrec\ 3459}#
#f
(map syntax->datum
- #{var-ids\ 1247}#)
- #{vars\ 1248}#
- (map (lambda (#{x\ 1334}#)
- (#{chi\ 329}#
- (cdr #{x\ 1334}#)
- (car #{x\ 1334}#)
+ #{var-ids\ 4504}#)
+ #{vars\ 4505}#
+ (map (lambda (#{x\ 4591}#)
+ (#{chi\ 3586}#
+ (cdr #{x\ 4591}#)
+ (car #{x\ 4591}#)
'(())
- #{mod\ 1263}#))
- #{vals\ 1249}#)
- (#{build-sequence\ 196}#
+ #{mod\ 4520}#))
+ #{vals\ 4506}#)
+ (#{build-sequence\ 3453}#
#f
- (map (lambda (#{x\ 1338}#)
- (#{chi\ 329}#
- (cdr #{x\ 1338}#)
- (car #{x\ 1338}#)
+ (map (lambda (#{x\ 4595}#)
+ (#{chi\ 3586}#
+ (cdr #{x\ 4595}#)
+ (car #{x\ 4595}#)
'(())
- #{mod\ 1263}#))
- (cons (cons #{er\ 1256}#
- (#{source-wrap\ 315}#
- #{e\ 1260}#
- #{w\ 1261}#
- #{s\ 1262}#
- #{mod\ 1263}#))
- (cdr #{body\ 1244}#))))))))))))))))))
- (#{parse\ 1243}#
- (map (lambda (#{x\ 1251}#)
- (cons #{r\ 1229}#
- (#{wrap\ 313}#
- #{x\ 1251}#
- #{w\ 1234}#
- #{mod\ 1221}#)))
- #{body\ 1217}#)
+ #{mod\ 4520}#))
+ (cons (cons #{er\ 4513}#
+ (#{source-wrap\ 3572}#
+ #{e\ 4517}#
+ #{w\ 4518}#
+ #{s\ 4519}#
+ #{mod\ 4520}#))
+ (cdr #{body\ 4501}#))))))))))))))))))
+ (#{parse\ 4500}#
+ (map (lambda (#{x\ 4508}#)
+ (cons #{r\ 4486}#
+ (#{wrap\ 3570}#
+ #{x\ 4508}#
+ #{w\ 4491}#
+ #{mod\ 4478}#)))
+ #{body\ 4474}#)
'()
'()
'()
'()
'()
'())))))))
- (#{chi-macro\ 335}#
- (lambda (#{p\ 1341}#
- #{e\ 1342}#
- #{r\ 1343}#
- #{w\ 1344}#
- #{rib\ 1345}#
- #{mod\ 1346}#)
- (letrec ((#{rebuild-macro-output\ 1354}#
- (lambda (#{x\ 1355}# #{m\ 1356}#)
- (if (pair? #{x\ 1355}#)
- (cons (#{rebuild-macro-output\ 1354}#
- (car #{x\ 1355}#)
- #{m\ 1356}#)
- (#{rebuild-macro-output\ 1354}#
- (cdr #{x\ 1355}#)
- #{m\ 1356}#))
- (if (#{syntax-object?\ 208}# #{x\ 1355}#)
- (let ((#{w\ 1364}#
- (#{syntax-object-wrap\ 212}#
- #{x\ 1355}#)))
- (let ((#{ms\ 1367}#
- (#{wrap-marks\ 251}# #{w\ 1364}#))
- (#{s\ 1368}#
- (#{wrap-subst\ 253}# #{w\ 1364}#)))
- (if (if (pair? #{ms\ 1367}#)
- (eq? (car #{ms\ 1367}#) #f)
+ (#{chi-macro\ 3592}#
+ (lambda (#{p\ 4598}#
+ #{e\ 4599}#
+ #{r\ 4600}#
+ #{w\ 4601}#
+ #{rib\ 4602}#
+ #{mod\ 4603}#)
+ (letrec ((#{rebuild-macro-output\ 4611}#
+ (lambda (#{x\ 4612}# #{m\ 4613}#)
+ (if (pair? #{x\ 4612}#)
+ (cons (#{rebuild-macro-output\ 4611}#
+ (car #{x\ 4612}#)
+ #{m\ 4613}#)
+ (#{rebuild-macro-output\ 4611}#
+ (cdr #{x\ 4612}#)
+ #{m\ 4613}#))
+ (if (#{syntax-object?\ 3465}# #{x\ 4612}#)
+ (let ((#{w\ 4621}#
+ (#{syntax-object-wrap\ 3469}#
+ #{x\ 4612}#)))
+ (let ((#{ms\ 4624}#
+ (#{wrap-marks\ 3508}# #{w\ 4621}#))
+ (#{s\ 4625}#
+ (#{wrap-subst\ 3510}# #{w\ 4621}#)))
+ (if (if (pair? #{ms\ 4624}#)
+ (eq? (car #{ms\ 4624}#) #f)
#f)
- (#{make-syntax-object\ 206}#
- (#{syntax-object-expression\ 210}#
- #{x\ 1355}#)
- (#{make-wrap\ 249}#
- (cdr #{ms\ 1367}#)
- (if #{rib\ 1345}#
- (cons #{rib\ 1345}#
- (cdr #{s\ 1368}#))
- (cdr #{s\ 1368}#)))
- (#{syntax-object-module\ 214}#
- #{x\ 1355}#))
- (#{make-syntax-object\ 206}#
- (#{syntax-object-expression\ 210}#
- #{x\ 1355}#)
- (#{make-wrap\ 249}#
- (cons #{m\ 1356}# #{ms\ 1367}#)
- (if #{rib\ 1345}#
- (cons #{rib\ 1345}#
+ (#{make-syntax-object\ 3463}#
+ (#{syntax-object-expression\ 3467}#
+ #{x\ 4612}#)
+ (#{make-wrap\ 3506}#
+ (cdr #{ms\ 4624}#)
+ (if #{rib\ 4602}#
+ (cons #{rib\ 4602}#
+ (cdr #{s\ 4625}#))
+ (cdr #{s\ 4625}#)))
+ (#{syntax-object-module\ 3471}#
+ #{x\ 4612}#))
+ (#{make-syntax-object\ 3463}#
+ (#{syntax-object-expression\ 3467}#
+ #{x\ 4612}#)
+ (#{make-wrap\ 3506}#
+ (cons #{m\ 4613}# #{ms\ 4624}#)
+ (if #{rib\ 4602}#
+ (cons #{rib\ 4602}#
(cons 'shift
- #{s\ 1368}#))
- (cons (quote shift) #{s\ 1368}#)))
+ #{s\ 4625}#))
+ (cons (quote shift) #{s\ 4625}#)))
(cons 'hygiene
- (cdr #{p\ 1341}#))))))
- (if (vector? #{x\ 1355}#)
- (let ((#{n\ 1376}#
- (vector-length #{x\ 1355}#)))
- (let ((#{v\ 1378}#
- (make-vector #{n\ 1376}#)))
- (letrec ((#{loop\ 1381}#
- (lambda (#{i\ 1382}#)
- (if (#{fx=\ 149}#
- #{i\ 1382}#
- #{n\ 1376}#)
+ (cdr #{p\ 4598}#))))))
+ (if (vector? #{x\ 4612}#)
+ (let ((#{n\ 4633}#
+ (vector-length #{x\ 4612}#)))
+ (let ((#{v\ 4635}#
+ (make-vector #{n\ 4633}#)))
+ (letrec ((#{loop\ 4638}#
+ (lambda (#{i\ 4639}#)
+ (if (#{fx=\ 3406}#
+ #{i\ 4639}#
+ #{n\ 4633}#)
(begin
(if #f #f)
- #{v\ 1378}#)
+ #{v\ 4635}#)
(begin
(vector-set!
- #{v\ 1378}#
- #{i\ 1382}#
- (#{rebuild-macro-output\ 1354}#
+ #{v\ 4635}#
+ #{i\ 4639}#
+ (#{rebuild-macro-output\ 4611}#
(vector-ref
- #{x\ 1355}#
- #{i\ 1382}#)
- #{m\ 1356}#))
- (#{loop\ 1381}#
- (#{fx+\ 145}#
- #{i\ 1382}#
+ #{x\ 4612}#
+ #{i\ 4639}#)
+ #{m\ 4613}#))
+ (#{loop\ 4638}#
+ (#{fx+\ 3402}#
+ #{i\ 4639}#
1)))))))
- (#{loop\ 1381}# 0))))
- (if (symbol? #{x\ 1355}#)
+ (#{loop\ 4638}# 0))))
+ (if (symbol? #{x\ 4612}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (#{source-wrap\ 315}#
- #{e\ 1342}#
- #{w\ 1344}#
- (#{wrap-subst\ 253}# #{w\ 1344}#)
- #{mod\ 1346}#)
- #{x\ 1355}#)
- #{x\ 1355}#)))))))
- (#{rebuild-macro-output\ 1354}#
- ((car #{p\ 1341}#)
- (#{wrap\ 313}#
- #{e\ 1342}#
- (#{anti-mark\ 285}# #{w\ 1344}#)
- #{mod\ 1346}#))
+ (#{source-wrap\ 3572}#
+ #{e\ 4599}#
+ #{w\ 4601}#
+ (#{wrap-subst\ 3510}# #{w\ 4601}#)
+ #{mod\ 4603}#)
+ #{x\ 4612}#)
+ #{x\ 4612}#)))))))
+ (#{rebuild-macro-output\ 4611}#
+ ((car #{p\ 4598}#)
+ (#{wrap\ 3570}#
+ #{e\ 4599}#
+ (#{anti-mark\ 3542}# #{w\ 4601}#)
+ #{mod\ 4603}#))
(gensym "m")))))
- (#{chi-application\ 333}#
- (lambda (#{x\ 1389}#
- #{e\ 1390}#
- #{r\ 1391}#
- #{w\ 1392}#
- #{s\ 1393}#
- #{mod\ 1394}#)
- ((lambda (#{tmp\ 1401}#)
- ((lambda (#{tmp\ 1402}#)
- (if #{tmp\ 1402}#
- (apply (lambda (#{e0\ 1405}# #{e1\ 1406}#)
- (#{build-application\ 166}#
- #{s\ 1393}#
- #{x\ 1389}#
- (map (lambda (#{e\ 1407}#)
- (#{chi\ 329}#
- #{e\ 1407}#
- #{r\ 1391}#
- #{w\ 1392}#
- #{mod\ 1394}#))
- #{e1\ 1406}#)))
- #{tmp\ 1402}#)
+ (#{chi-application\ 3590}#
+ (lambda (#{x\ 4646}#
+ #{e\ 4647}#
+ #{r\ 4648}#
+ #{w\ 4649}#
+ #{s\ 4650}#
+ #{mod\ 4651}#)
+ ((lambda (#{tmp\ 4658}#)
+ ((lambda (#{tmp\ 4659}#)
+ (if #{tmp\ 4659}#
+ (apply (lambda (#{e0\ 4662}# #{e1\ 4663}#)
+ (#{build-application\ 3423}#
+ #{s\ 4650}#
+ #{x\ 4646}#
+ (map (lambda (#{e\ 4664}#)
+ (#{chi\ 3586}#
+ #{e\ 4664}#
+ #{r\ 4648}#
+ #{w\ 4649}#
+ #{mod\ 4651}#))
+ #{e1\ 4663}#)))
+ #{tmp\ 4659}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1401}#)))
+ #{tmp\ 4658}#)))
($sc-dispatch
- #{tmp\ 1401}#
+ #{tmp\ 4658}#
'(any . each-any))))
- #{e\ 1390}#)))
- (#{chi-expr\ 331}#
- (lambda (#{type\ 1410}#
- #{value\ 1411}#
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- (if (memv #{type\ 1410}# (quote (lexical)))
- (#{build-lexical-reference\ 172}#
+ #{e\ 4647}#)))
+ (#{chi-expr\ 3588}#
+ (lambda (#{type\ 4667}#
+ #{value\ 4668}#
+ #{e\ 4669}#
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
+ (if (memv #{type\ 4667}# (quote (lexical)))
+ (#{build-lexical-reference\ 3429}#
'value
- #{s\ 1415}#
- #{e\ 1412}#
- #{value\ 1411}#)
- (if (memv #{type\ 1410}# (quote (core core-form)))
- (#{value\ 1411}#
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- (if (memv #{type\ 1410}# (quote (module-ref)))
+ #{s\ 4672}#
+ #{e\ 4669}#
+ #{value\ 4668}#)
+ (if (memv #{type\ 4667}# (quote (core core-form)))
+ (#{value\ 4668}#
+ #{e\ 4669}#
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
+ (if (memv #{type\ 4667}# (quote (module-ref)))
(call-with-values
- (lambda () (#{value\ 1411}# #{e\ 1412}#))
- (lambda (#{id\ 1427}# #{mod\ 1428}#)
- (#{build-global-reference\ 178}#
- #{s\ 1415}#
- #{id\ 1427}#
- #{mod\ 1428}#)))
- (if (memv #{type\ 1410}# (quote (lexical-call)))
- (#{chi-application\ 333}#
- (#{build-lexical-reference\ 172}#
+ (lambda () (#{value\ 4668}# #{e\ 4669}#))
+ (lambda (#{id\ 4684}# #{mod\ 4685}#)
+ (#{build-global-reference\ 3435}#
+ #{s\ 4672}#
+ #{id\ 4684}#
+ #{mod\ 4685}#)))
+ (if (memv #{type\ 4667}# (quote (lexical-call)))
+ (#{chi-application\ 3590}#
+ (#{build-lexical-reference\ 3429}#
'fun
- (#{source-annotation\ 223}# (car #{e\ 1412}#))
- (car #{e\ 1412}#)
- #{value\ 1411}#)
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- (if (memv #{type\ 1410}# (quote (global-call)))
- (#{chi-application\ 333}#
- (#{build-global-reference\ 178}#
- (#{source-annotation\ 223}# (car #{e\ 1412}#))
- (if (#{syntax-object?\ 208}# #{value\ 1411}#)
- (#{syntax-object-expression\ 210}#
- #{value\ 1411}#)
- #{value\ 1411}#)
- (if (#{syntax-object?\ 208}# #{value\ 1411}#)
- (#{syntax-object-module\ 214}# #{value\ 1411}#)
- #{mod\ 1416}#))
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- (if (memv #{type\ 1410}# (quote (constant)))
- (#{build-data\ 194}#
- #{s\ 1415}#
- (#{strip\ 355}#
- (#{source-wrap\ 315}#
- #{e\ 1412}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
+ (#{source-annotation\ 3480}# (car #{e\ 4669}#))
+ (car #{e\ 4669}#)
+ #{value\ 4668}#)
+ #{e\ 4669}#
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
+ (if (memv #{type\ 4667}# (quote (global-call)))
+ (#{chi-application\ 3590}#
+ (#{build-global-reference\ 3435}#
+ (#{source-annotation\ 3480}# (car #{e\ 4669}#))
+ (if (#{syntax-object?\ 3465}# #{value\ 4668}#)
+ (#{syntax-object-expression\ 3467}#
+ #{value\ 4668}#)
+ #{value\ 4668}#)
+ (if (#{syntax-object?\ 3465}# #{value\ 4668}#)
+ (#{syntax-object-module\ 3471}# #{value\ 4668}#)
+ #{mod\ 4673}#))
+ #{e\ 4669}#
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
+ (if (memv #{type\ 4667}# (quote (constant)))
+ (#{build-data\ 3451}#
+ #{s\ 4672}#
+ (#{strip\ 3612}#
+ (#{source-wrap\ 3572}#
+ #{e\ 4669}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
'(())))
- (if (memv #{type\ 1410}# (quote (global)))
- (#{build-global-reference\ 178}#
- #{s\ 1415}#
- #{value\ 1411}#
- #{mod\ 1416}#)
- (if (memv #{type\ 1410}# (quote (call)))
- (#{chi-application\ 333}#
- (#{chi\ 329}#
- (car #{e\ 1412}#)
- #{r\ 1413}#
- #{w\ 1414}#
- #{mod\ 1416}#)
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- (if (memv #{type\ 1410}# (quote (begin-form)))
- ((lambda (#{tmp\ 1438}#)
- ((lambda (#{tmp\ 1439}#)
- (if #{tmp\ 1439}#
- (apply (lambda (#{_\ 1443}#
- #{e1\ 1444}#
- #{e2\ 1445}#)
- (#{chi-sequence\ 317}#
- (cons #{e1\ 1444}#
- #{e2\ 1445}#)
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#))
- #{tmp\ 1439}#)
+ (if (memv #{type\ 4667}# (quote (global)))
+ (#{build-global-reference\ 3435}#
+ #{s\ 4672}#
+ #{value\ 4668}#
+ #{mod\ 4673}#)
+ (if (memv #{type\ 4667}# (quote (call)))
+ (#{chi-application\ 3590}#
+ (#{chi\ 3586}#
+ (car #{e\ 4669}#)
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{mod\ 4673}#)
+ #{e\ 4669}#
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
+ (if (memv #{type\ 4667}# (quote (begin-form)))
+ ((lambda (#{tmp\ 4695}#)
+ ((lambda (#{tmp\ 4696}#)
+ (if #{tmp\ 4696}#
+ (apply (lambda (#{_\ 4700}#
+ #{e1\ 4701}#
+ #{e2\ 4702}#)
+ (#{chi-sequence\ 3574}#
+ (cons #{e1\ 4701}#
+ #{e2\ 4702}#)
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#))
+ #{tmp\ 4696}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1438}#)))
+ #{tmp\ 4695}#)))
($sc-dispatch
- #{tmp\ 1438}#
+ #{tmp\ 4695}#
'(any any . each-any))))
- #{e\ 1412}#)
- (if (memv #{type\ 1410}#
+ #{e\ 4669}#)
+ (if (memv #{type\ 4667}#
'(local-syntax-form))
- (#{chi-local-syntax\ 339}#
- #{value\ 1411}#
- #{e\ 1412}#
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#
- #{chi-sequence\ 317}#)
- (if (memv #{type\ 1410}#
+ (#{chi-local-syntax\ 3596}#
+ #{value\ 4668}#
+ #{e\ 4669}#
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#
+ #{chi-sequence\ 3574}#)
+ (if (memv #{type\ 4667}#
'(eval-when-form))
- ((lambda (#{tmp\ 1449}#)
- ((lambda (#{tmp\ 1450}#)
- (if #{tmp\ 1450}#
- (apply (lambda (#{_\ 1455}#
- #{x\ 1456}#
- #{e1\ 1457}#
- #{e2\ 1458}#)
- (let ((#{when-list\ 1460}#
- (#{chi-when-list\ 323}#
- #{e\ 1412}#
- #{x\ 1456}#
- #{w\ 1414}#)))
+ ((lambda (#{tmp\ 4706}#)
+ ((lambda (#{tmp\ 4707}#)
+ (if #{tmp\ 4707}#
+ (apply (lambda (#{_\ 4712}#
+ #{x\ 4713}#
+ #{e1\ 4714}#
+ #{e2\ 4715}#)
+ (let ((#{when-list\ 4717}#
+ (#{chi-when-list\ 3580}#
+ #{e\ 4669}#
+ #{x\ 4713}#
+ #{w\ 4671}#)))
(if (memq 'eval
- #{when-list\ 1460}#)
- (#{chi-sequence\ 317}#
- (cons #{e1\ 1457}#
- #{e2\ 1458}#)
- #{r\ 1413}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#)
- (#{chi-void\ 343}#))))
- #{tmp\ 1450}#)
+ #{when-list\ 4717}#)
+ (#{chi-sequence\ 3574}#
+ (cons #{e1\ 4714}#
+ #{e2\ 4715}#)
+ #{r\ 4670}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#)
+ (#{chi-void\ 3600}#))))
+ #{tmp\ 4707}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1449}#)))
+ #{tmp\ 4706}#)))
($sc-dispatch
- #{tmp\ 1449}#
+ #{tmp\ 4706}#
'(any each-any any . each-any))))
- #{e\ 1412}#)
- (if (memv #{type\ 1410}#
+ #{e\ 4669}#)
+ (if (memv #{type\ 4667}#
'(define-form
define-syntax-form))
(syntax-violation
#f
"definition in expression context"
- #{e\ 1412}#
- (#{wrap\ 313}#
- #{value\ 1411}#
- #{w\ 1414}#
- #{mod\ 1416}#))
- (if (memv #{type\ 1410}#
+ #{e\ 4669}#
+ (#{wrap\ 3570}#
+ #{value\ 4668}#
+ #{w\ 4671}#
+ #{mod\ 4673}#))
+ (if (memv #{type\ 4667}#
'(syntax))
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{source-wrap\ 315}#
- #{e\ 1412}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#))
- (if (memv #{type\ 1410}#
+ (#{source-wrap\ 3572}#
+ #{e\ 4669}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#))
+ (if (memv #{type\ 4667}#
'(displaced-lexical))
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{source-wrap\ 315}#
- #{e\ 1412}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#))
+ (#{source-wrap\ 3572}#
+ #{e\ 4669}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#))
(syntax-violation
#f
"unexpected syntax"
- (#{source-wrap\ 315}#
- #{e\ 1412}#
- #{w\ 1414}#
- #{s\ 1415}#
- #{mod\ 1416}#))))))))))))))))))
- (#{chi\ 329}#
- (lambda (#{e\ 1467}#
- #{r\ 1468}#
- #{w\ 1469}#
- #{mod\ 1470}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 4669}#
+ #{w\ 4671}#
+ #{s\ 4672}#
+ #{mod\ 4673}#))))))))))))))))))
+ (#{chi\ 3586}#
+ (lambda (#{e\ 4724}#
+ #{r\ 4725}#
+ #{w\ 4726}#
+ #{mod\ 4727}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 325}#
- #{e\ 1467}#
- #{r\ 1468}#
- #{w\ 1469}#
- (#{source-annotation\ 223}# #{e\ 1467}#)
+ (#{syntax-type\ 3582}#
+ #{e\ 4724}#
+ #{r\ 4725}#
+ #{w\ 4726}#
+ (#{source-annotation\ 3480}# #{e\ 4724}#)
#f
- #{mod\ 1470}#
+ #{mod\ 4727}#
#f))
- (lambda (#{type\ 1475}#
- #{value\ 1476}#
- #{e\ 1477}#
- #{w\ 1478}#
- #{s\ 1479}#
- #{mod\ 1480}#)
- (#{chi-expr\ 331}#
- #{type\ 1475}#
- #{value\ 1476}#
- #{e\ 1477}#
- #{r\ 1468}#
- #{w\ 1478}#
- #{s\ 1479}#
- #{mod\ 1480}#)))))
- (#{chi-top\ 327}#
- (lambda (#{e\ 1487}#
- #{r\ 1488}#
- #{w\ 1489}#
- #{m\ 1490}#
- #{esew\ 1491}#
- #{mod\ 1492}#)
+ (lambda (#{type\ 4732}#
+ #{value\ 4733}#
+ #{e\ 4734}#
+ #{w\ 4735}#
+ #{s\ 4736}#
+ #{mod\ 4737}#)
+ (#{chi-expr\ 3588}#
+ #{type\ 4732}#
+ #{value\ 4733}#
+ #{e\ 4734}#
+ #{r\ 4725}#
+ #{w\ 4735}#
+ #{s\ 4736}#
+ #{mod\ 4737}#)))))
+ (#{chi-top\ 3584}#
+ (lambda (#{e\ 4744}#
+ #{r\ 4745}#
+ #{w\ 4746}#
+ #{m\ 4747}#
+ #{esew\ 4748}#
+ #{mod\ 4749}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 325}#
- #{e\ 1487}#
- #{r\ 1488}#
- #{w\ 1489}#
- (#{source-annotation\ 223}# #{e\ 1487}#)
+ (#{syntax-type\ 3582}#
+ #{e\ 4744}#
+ #{r\ 4745}#
+ #{w\ 4746}#
+ (#{source-annotation\ 3480}# #{e\ 4744}#)
#f
- #{mod\ 1492}#
+ #{mod\ 4749}#
#f))
- (lambda (#{type\ 1513}#
- #{value\ 1514}#
- #{e\ 1515}#
- #{w\ 1516}#
- #{s\ 1517}#
- #{mod\ 1518}#)
- (if (memv #{type\ 1513}# (quote (begin-form)))
- ((lambda (#{tmp\ 1526}#)
- ((lambda (#{tmp\ 1527}#)
- (if #{tmp\ 1527}#
- (apply (lambda (#{_\ 1529}#) (#{chi-void\ 343}#))
- #{tmp\ 1527}#)
- ((lambda (#{tmp\ 1530}#)
- (if #{tmp\ 1530}#
- (apply (lambda (#{_\ 1534}#
- #{e1\ 1535}#
- #{e2\ 1536}#)
- (#{chi-top-sequence\ 319}#
- (cons #{e1\ 1535}# #{e2\ 1536}#)
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
- #{m\ 1490}#
- #{esew\ 1491}#
- #{mod\ 1518}#))
- #{tmp\ 1530}#)
+ (lambda (#{type\ 4770}#
+ #{value\ 4771}#
+ #{e\ 4772}#
+ #{w\ 4773}#
+ #{s\ 4774}#
+ #{mod\ 4775}#)
+ (if (memv #{type\ 4770}# (quote (begin-form)))
+ ((lambda (#{tmp\ 4783}#)
+ ((lambda (#{tmp\ 4784}#)
+ (if #{tmp\ 4784}#
+ (apply (lambda (#{_\ 4786}#) (#{chi-void\ 3600}#))
+ #{tmp\ 4784}#)
+ ((lambda (#{tmp\ 4787}#)
+ (if #{tmp\ 4787}#
+ (apply (lambda (#{_\ 4791}#
+ #{e1\ 4792}#
+ #{e2\ 4793}#)
+ (#{chi-top-sequence\ 3576}#
+ (cons #{e1\ 4792}# #{e2\ 4793}#)
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
+ #{m\ 4747}#
+ #{esew\ 4748}#
+ #{mod\ 4775}#))
+ #{tmp\ 4787}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1526}#)))
+ #{tmp\ 4783}#)))
($sc-dispatch
- #{tmp\ 1526}#
+ #{tmp\ 4783}#
'(any any . each-any)))))
- ($sc-dispatch #{tmp\ 1526}# (quote (any)))))
- #{e\ 1515}#)
- (if (memv #{type\ 1513}# (quote (local-syntax-form)))
- (#{chi-local-syntax\ 339}#
- #{value\ 1514}#
- #{e\ 1515}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
- #{mod\ 1518}#
- (lambda (#{body\ 1539}#
- #{r\ 1540}#
- #{w\ 1541}#
- #{s\ 1542}#
- #{mod\ 1543}#)
- (#{chi-top-sequence\ 319}#
- #{body\ 1539}#
- #{r\ 1540}#
- #{w\ 1541}#
- #{s\ 1542}#
- #{m\ 1490}#
- #{esew\ 1491}#
- #{mod\ 1543}#)))
- (if (memv #{type\ 1513}# (quote (eval-when-form)))
- ((lambda (#{tmp\ 1550}#)
- ((lambda (#{tmp\ 1551}#)
- (if #{tmp\ 1551}#
- (apply (lambda (#{_\ 1556}#
- #{x\ 1557}#
- #{e1\ 1558}#
- #{e2\ 1559}#)
- (let ((#{when-list\ 1562}#
- (#{chi-when-list\ 323}#
- #{e\ 1515}#
- #{x\ 1557}#
- #{w\ 1516}#))
- (#{body\ 1563}#
- (cons #{e1\ 1558}#
- #{e2\ 1559}#)))
- (if (eq? #{m\ 1490}# (quote e))
+ ($sc-dispatch #{tmp\ 4783}# (quote (any)))))
+ #{e\ 4772}#)
+ (if (memv #{type\ 4770}# (quote (local-syntax-form)))
+ (#{chi-local-syntax\ 3596}#
+ #{value\ 4771}#
+ #{e\ 4772}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
+ #{mod\ 4775}#
+ (lambda (#{body\ 4796}#
+ #{r\ 4797}#
+ #{w\ 4798}#
+ #{s\ 4799}#
+ #{mod\ 4800}#)
+ (#{chi-top-sequence\ 3576}#
+ #{body\ 4796}#
+ #{r\ 4797}#
+ #{w\ 4798}#
+ #{s\ 4799}#
+ #{m\ 4747}#
+ #{esew\ 4748}#
+ #{mod\ 4800}#)))
+ (if (memv #{type\ 4770}# (quote (eval-when-form)))
+ ((lambda (#{tmp\ 4807}#)
+ ((lambda (#{tmp\ 4808}#)
+ (if #{tmp\ 4808}#
+ (apply (lambda (#{_\ 4813}#
+ #{x\ 4814}#
+ #{e1\ 4815}#
+ #{e2\ 4816}#)
+ (let ((#{when-list\ 4819}#
+ (#{chi-when-list\ 3580}#
+ #{e\ 4772}#
+ #{x\ 4814}#
+ #{w\ 4773}#))
+ (#{body\ 4820}#
+ (cons #{e1\ 4815}#
+ #{e2\ 4816}#)))
+ (if (eq? #{m\ 4747}# (quote e))
(if (memq 'eval
- #{when-list\ 1562}#)
- (#{chi-top-sequence\ 319}#
- #{body\ 1563}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
+ #{when-list\ 4819}#)
+ (#{chi-top-sequence\ 3576}#
+ #{body\ 4820}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
'e
'(eval)
- #{mod\ 1518}#)
- (#{chi-void\ 343}#))
+ #{mod\ 4775}#)
+ (#{chi-void\ 3600}#))
(if (memq 'load
- #{when-list\ 1562}#)
- (if (let ((#{t\ 1572}#
+ #{when-list\ 4819}#)
+ (if (let ((#{t\ 4829}#
(memq 'compile
- #{when-list\ 1562}#)))
- (if #{t\ 1572}#
- #{t\ 1572}#
- (if (eq? #{m\ 1490}#
+ #{when-list\ 4819}#)))
+ (if #{t\ 4829}#
+ #{t\ 4829}#
+ (if (eq? #{m\ 4747}#
'c&e)
(memq 'eval
- #{when-list\ 1562}#)
+ #{when-list\ 4819}#)
#f)))
- (#{chi-top-sequence\ 319}#
- #{body\ 1563}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
+ (#{chi-top-sequence\ 3576}#
+ #{body\ 4820}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
'c&e
'(compile load)
- #{mod\ 1518}#)
- (if (memq #{m\ 1490}#
+ #{mod\ 4775}#)
+ (if (memq #{m\ 4747}#
'(c c&e))
- (#{chi-top-sequence\ 319}#
- #{body\ 1563}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
+ (#{chi-top-sequence\ 3576}#
+ #{body\ 4820}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
'c
'(load)
- #{mod\ 1518}#)
- (#{chi-void\ 343}#)))
- (if (let ((#{t\ 1580}#
+ #{mod\ 4775}#)
+ (#{chi-void\ 3600}#)))
+ (if (let ((#{t\ 4837}#
(memq 'compile
- #{when-list\ 1562}#)))
- (if #{t\ 1580}#
- #{t\ 1580}#
- (if (eq? #{m\ 1490}#
+ #{when-list\ 4819}#)))
+ (if #{t\ 4837}#
+ #{t\ 4837}#
+ (if (eq? #{m\ 4747}#
'c&e)
(memq 'eval
- #{when-list\ 1562}#)
+ #{when-list\ 4819}#)
#f)))
(begin
- (#{top-level-eval-hook\ 153}#
- (#{chi-top-sequence\ 319}#
- #{body\ 1563}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
+ (#{top-level-eval-hook\ 3410}#
+ (#{chi-top-sequence\ 3576}#
+ #{body\ 4820}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
'e
'(eval)
- #{mod\ 1518}#)
- #{mod\ 1518}#)
- (#{chi-void\ 343}#))
- (#{chi-void\ 343}#))))))
- #{tmp\ 1551}#)
+ #{mod\ 4775}#)
+ #{mod\ 4775}#)
+ (#{chi-void\ 3600}#))
+ (#{chi-void\ 3600}#))))))
+ #{tmp\ 4808}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1550}#)))
+ #{tmp\ 4807}#)))
($sc-dispatch
- #{tmp\ 1550}#
+ #{tmp\ 4807}#
'(any each-any any . each-any))))
- #{e\ 1515}#)
- (if (memv #{type\ 1513}#
+ #{e\ 4772}#)
+ (if (memv #{type\ 4770}#
'(define-syntax-form))
- (let ((#{n\ 1588}#
- (#{id-var-name\ 301}#
- #{value\ 1514}#
- #{w\ 1516}#))
- (#{r\ 1589}#
- (#{macros-only-env\ 236}# #{r\ 1488}#)))
- (if (memv #{m\ 1490}# (quote (c)))
- (if (memq (quote compile) #{esew\ 1491}#)
- (let ((#{e\ 1592}#
- (#{chi-install-global\ 321}#
- #{n\ 1588}#
- (#{chi\ 329}#
- #{e\ 1515}#
- #{r\ 1589}#
- #{w\ 1516}#
- #{mod\ 1518}#))))
+ (let ((#{n\ 4845}#
+ (#{id-var-name\ 3558}#
+ #{value\ 4771}#
+ #{w\ 4773}#))
+ (#{r\ 4846}#
+ (#{macros-only-env\ 3493}# #{r\ 4745}#)))
+ (if (memv #{m\ 4747}# (quote (c)))
+ (if (memq (quote compile) #{esew\ 4748}#)
+ (let ((#{e\ 4849}#
+ (#{chi-install-global\ 3578}#
+ #{n\ 4845}#
+ (#{chi\ 3586}#
+ #{e\ 4772}#
+ #{r\ 4846}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))))
(begin
- (#{top-level-eval-hook\ 153}#
- #{e\ 1592}#
- #{mod\ 1518}#)
- (if (memq (quote load) #{esew\ 1491}#)
- #{e\ 1592}#
- (#{chi-void\ 343}#))))
- (if (memq (quote load) #{esew\ 1491}#)
- (#{chi-install-global\ 321}#
- #{n\ 1588}#
- (#{chi\ 329}#
- #{e\ 1515}#
- #{r\ 1589}#
- #{w\ 1516}#
- #{mod\ 1518}#))
- (#{chi-void\ 343}#)))
- (if (memv #{m\ 1490}# (quote (c&e)))
- (let ((#{e\ 1595}#
- (#{chi-install-global\ 321}#
- #{n\ 1588}#
- (#{chi\ 329}#
- #{e\ 1515}#
- #{r\ 1589}#
- #{w\ 1516}#
- #{mod\ 1518}#))))
+ (#{top-level-eval-hook\ 3410}#
+ #{e\ 4849}#
+ #{mod\ 4775}#)
+ (if (memq (quote load) #{esew\ 4748}#)
+ #{e\ 4849}#
+ (#{chi-void\ 3600}#))))
+ (if (memq (quote load) #{esew\ 4748}#)
+ (#{chi-install-global\ 3578}#
+ #{n\ 4845}#
+ (#{chi\ 3586}#
+ #{e\ 4772}#
+ #{r\ 4846}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))
+ (#{chi-void\ 3600}#)))
+ (if (memv #{m\ 4747}# (quote (c&e)))
+ (let ((#{e\ 4852}#
+ (#{chi-install-global\ 3578}#
+ #{n\ 4845}#
+ (#{chi\ 3586}#
+ #{e\ 4772}#
+ #{r\ 4846}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))))
(begin
- (#{top-level-eval-hook\ 153}#
- #{e\ 1595}#
- #{mod\ 1518}#)
- #{e\ 1595}#))
+ (#{top-level-eval-hook\ 3410}#
+ #{e\ 4852}#
+ #{mod\ 4775}#)
+ #{e\ 4852}#))
(begin
- (if (memq (quote eval) #{esew\ 1491}#)
- (#{top-level-eval-hook\ 153}#
- (#{chi-install-global\ 321}#
- #{n\ 1588}#
- (#{chi\ 329}#
- #{e\ 1515}#
- #{r\ 1589}#
- #{w\ 1516}#
- #{mod\ 1518}#))
- #{mod\ 1518}#))
- (#{chi-void\ 343}#)))))
- (if (memv #{type\ 1513}# (quote (define-form)))
- (let ((#{n\ 1600}#
- (#{id-var-name\ 301}#
- #{value\ 1514}#
- #{w\ 1516}#)))
- (let ((#{type\ 1602}#
- (#{binding-type\ 227}#
- (#{lookup\ 238}#
- #{n\ 1600}#
- #{r\ 1488}#
- #{mod\ 1518}#))))
- (if (memv #{type\ 1602}#
+ (if (memq (quote eval) #{esew\ 4748}#)
+ (#{top-level-eval-hook\ 3410}#
+ (#{chi-install-global\ 3578}#
+ #{n\ 4845}#
+ (#{chi\ 3586}#
+ #{e\ 4772}#
+ #{r\ 4846}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))
+ #{mod\ 4775}#))
+ (#{chi-void\ 3600}#)))))
+ (if (memv #{type\ 4770}# (quote (define-form)))
+ (let ((#{n\ 4857}#
+ (#{id-var-name\ 3558}#
+ #{value\ 4771}#
+ #{w\ 4773}#)))
+ (let ((#{type\ 4859}#
+ (#{binding-type\ 3484}#
+ (#{lookup\ 3495}#
+ #{n\ 4857}#
+ #{r\ 4745}#
+ #{mod\ 4775}#))))
+ (if (memv #{type\ 4859}#
'(global core macro module-ref))
(begin
(if (if (not (module-local-variable
(current-module)
- #{n\ 1600}#))
+ #{n\ 4857}#))
(current-module)
#f)
- (let ((#{old\ 1607}#
+ (let ((#{old\ 4864}#
(module-variable
(current-module)
- #{n\ 1600}#)))
+ #{n\ 4857}#)))
(module-define!
(current-module)
- #{n\ 1600}#
- (if (variable? #{old\ 1607}#)
- (variable-ref #{old\ 1607}#)
+ #{n\ 4857}#
+ (if (variable? #{old\ 4864}#)
+ (variable-ref #{old\ 4864}#)
#f))))
- (let ((#{x\ 1610}#
- (#{build-global-definition\ 184}#
- #{s\ 1517}#
- #{n\ 1600}#
- (#{chi\ 329}#
- #{e\ 1515}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{mod\ 1518}#))))
+ (let ((#{x\ 4867}#
+ (#{build-global-definition\ 3441}#
+ #{s\ 4774}#
+ #{n\ 4857}#
+ (#{chi\ 3586}#
+ #{e\ 4772}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))))
(begin
- (if (eq? #{m\ 1490}# (quote c&e))
- (#{top-level-eval-hook\ 153}#
- #{x\ 1610}#
- #{mod\ 1518}#))
- #{x\ 1610}#)))
- (if (memv #{type\ 1602}#
+ (if (eq? #{m\ 4747}# (quote c&e))
+ (#{top-level-eval-hook\ 3410}#
+ #{x\ 4867}#
+ #{mod\ 4775}#))
+ #{x\ 4867}#)))
+ (if (memv #{type\ 4859}#
'(displaced-lexical))
(syntax-violation
#f
"identifier out of context"
- #{e\ 1515}#
- (#{wrap\ 313}#
- #{value\ 1514}#
- #{w\ 1516}#
- #{mod\ 1518}#))
+ #{e\ 4772}#
+ (#{wrap\ 3570}#
+ #{value\ 4771}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e\ 1515}#
- (#{wrap\ 313}#
- #{value\ 1514}#
- #{w\ 1516}#
- #{mod\ 1518}#))))))
- (let ((#{x\ 1616}#
- (#{chi-expr\ 331}#
- #{type\ 1513}#
- #{value\ 1514}#
- #{e\ 1515}#
- #{r\ 1488}#
- #{w\ 1516}#
- #{s\ 1517}#
- #{mod\ 1518}#)))
+ #{e\ 4772}#
+ (#{wrap\ 3570}#
+ #{value\ 4771}#
+ #{w\ 4773}#
+ #{mod\ 4775}#))))))
+ (let ((#{x\ 4873}#
+ (#{chi-expr\ 3588}#
+ #{type\ 4770}#
+ #{value\ 4771}#
+ #{e\ 4772}#
+ #{r\ 4745}#
+ #{w\ 4773}#
+ #{s\ 4774}#
+ #{mod\ 4775}#)))
(begin
- (if (eq? #{m\ 1490}# (quote c&e))
- (#{top-level-eval-hook\ 153}#
- #{x\ 1616}#
- #{mod\ 1518}#))
- #{x\ 1616}#)))))))))))
- (#{syntax-type\ 325}#
- (lambda (#{e\ 1617}#
- #{r\ 1618}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{rib\ 1621}#
- #{mod\ 1622}#
- #{for-car?\ 1623}#)
- (if (symbol? #{e\ 1617}#)
- (let ((#{n\ 1635}#
- (#{id-var-name\ 301}# #{e\ 1617}# #{w\ 1619}#)))
- (let ((#{b\ 1637}#
- (#{lookup\ 238}#
- #{n\ 1635}#
- #{r\ 1618}#
- #{mod\ 1622}#)))
- (let ((#{type\ 1639}#
- (#{binding-type\ 227}# #{b\ 1637}#)))
- (if (memv #{type\ 1639}# (quote (lexical)))
+ (if (eq? #{m\ 4747}# (quote c&e))
+ (#{top-level-eval-hook\ 3410}#
+ #{x\ 4873}#
+ #{mod\ 4775}#))
+ #{x\ 4873}#)))))))))))
+ (#{syntax-type\ 3582}#
+ (lambda (#{e\ 4874}#
+ #{r\ 4875}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{rib\ 4878}#
+ #{mod\ 4879}#
+ #{for-car?\ 4880}#)
+ (if (symbol? #{e\ 4874}#)
+ (let ((#{n\ 4892}#
+ (#{id-var-name\ 3558}# #{e\ 4874}# #{w\ 4876}#)))
+ (let ((#{b\ 4894}#
+ (#{lookup\ 3495}#
+ #{n\ 4892}#
+ #{r\ 4875}#
+ #{mod\ 4879}#)))
+ (let ((#{type\ 4896}#
+ (#{binding-type\ 3484}# #{b\ 4894}#)))
+ (if (memv #{type\ 4896}# (quote (lexical)))
(values
- #{type\ 1639}#
- (#{binding-value\ 229}# #{b\ 1637}#)
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{type\ 1639}# (quote (global)))
+ #{type\ 4896}#
+ (#{binding-value\ 3486}# #{b\ 4894}#)
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{type\ 4896}# (quote (global)))
(values
- #{type\ 1639}#
- #{n\ 1635}#
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{type\ 1639}# (quote (macro)))
- (if #{for-car?\ 1623}#
+ #{type\ 4896}#
+ #{n\ 4892}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{type\ 4896}# (quote (macro)))
+ (if #{for-car?\ 4880}#
(values
- #{type\ 1639}#
- (#{binding-value\ 229}# #{b\ 1637}#)
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (#{syntax-type\ 325}#
- (#{chi-macro\ 335}#
- (#{binding-value\ 229}# #{b\ 1637}#)
- #{e\ 1617}#
- #{r\ 1618}#
- #{w\ 1619}#
- #{rib\ 1621}#
- #{mod\ 1622}#)
- #{r\ 1618}#
+ #{type\ 4896}#
+ (#{binding-value\ 3486}# #{b\ 4894}#)
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (#{syntax-type\ 3582}#
+ (#{chi-macro\ 3592}#
+ (#{binding-value\ 3486}# #{b\ 4894}#)
+ #{e\ 4874}#
+ #{r\ 4875}#
+ #{w\ 4876}#
+ #{rib\ 4878}#
+ #{mod\ 4879}#)
+ #{r\ 4875}#
'(())
- #{s\ 1620}#
- #{rib\ 1621}#
- #{mod\ 1622}#
+ #{s\ 4877}#
+ #{rib\ 4878}#
+ #{mod\ 4879}#
#f))
(values
- #{type\ 1639}#
- (#{binding-value\ 229}# #{b\ 1637}#)
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)))))))
- (if (pair? #{e\ 1617}#)
- (let ((#{first\ 1648}# (car #{e\ 1617}#)))
+ #{type\ 4896}#
+ (#{binding-value\ 3486}# #{b\ 4894}#)
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)))))))
+ (if (pair? #{e\ 4874}#)
+ (let ((#{first\ 4905}# (car #{e\ 4874}#)))
(call-with-values
(lambda ()
- (#{syntax-type\ 325}#
- #{first\ 1648}#
- #{r\ 1618}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{rib\ 1621}#
- #{mod\ 1622}#
+ (#{syntax-type\ 3582}#
+ #{first\ 4905}#
+ #{r\ 4875}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{rib\ 4878}#
+ #{mod\ 4879}#
#t))
- (lambda (#{ftype\ 1649}#
- #{fval\ 1650}#
- #{fe\ 1651}#
- #{fw\ 1652}#
- #{fs\ 1653}#
- #{fmod\ 1654}#)
- (if (memv #{ftype\ 1649}# (quote (lexical)))
+ (lambda (#{ftype\ 4906}#
+ #{fval\ 4907}#
+ #{fe\ 4908}#
+ #{fw\ 4909}#
+ #{fs\ 4910}#
+ #{fmod\ 4911}#)
+ (if (memv #{ftype\ 4906}# (quote (lexical)))
(values
'lexical-call
- #{fval\ 1650}#
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{ftype\ 1649}# (quote (global)))
+ #{fval\ 4907}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{ftype\ 4906}# (quote (global)))
(values
'global-call
- (#{make-syntax-object\ 206}#
- #{fval\ 1650}#
- #{w\ 1619}#
- #{fmod\ 1654}#)
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{ftype\ 1649}# (quote (macro)))
- (#{syntax-type\ 325}#
- (#{chi-macro\ 335}#
- #{fval\ 1650}#
- #{e\ 1617}#
- #{r\ 1618}#
- #{w\ 1619}#
- #{rib\ 1621}#
- #{mod\ 1622}#)
- #{r\ 1618}#
+ (#{make-syntax-object\ 3463}#
+ #{fval\ 4907}#
+ #{w\ 4876}#
+ #{fmod\ 4911}#)
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{ftype\ 4906}# (quote (macro)))
+ (#{syntax-type\ 3582}#
+ (#{chi-macro\ 3592}#
+ #{fval\ 4907}#
+ #{e\ 4874}#
+ #{r\ 4875}#
+ #{w\ 4876}#
+ #{rib\ 4878}#
+ #{mod\ 4879}#)
+ #{r\ 4875}#
'(())
- #{s\ 1620}#
- #{rib\ 1621}#
- #{mod\ 1622}#
- #{for-car?\ 1623}#)
- (if (memv #{ftype\ 1649}# (quote (module-ref)))
+ #{s\ 4877}#
+ #{rib\ 4878}#
+ #{mod\ 4879}#
+ #{for-car?\ 4880}#)
+ (if (memv #{ftype\ 4906}# (quote (module-ref)))
(call-with-values
- (lambda () (#{fval\ 1650}# #{e\ 1617}#))
- (lambda (#{sym\ 1666}# #{mod\ 1667}#)
- (#{syntax-type\ 325}#
- #{sym\ 1666}#
- #{r\ 1618}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{rib\ 1621}#
- #{mod\ 1667}#
- #{for-car?\ 1623}#)))
- (if (memv #{ftype\ 1649}# (quote (core)))
+ (lambda () (#{fval\ 4907}# #{e\ 4874}#))
+ (lambda (#{sym\ 4923}# #{mod\ 4924}#)
+ (#{syntax-type\ 3582}#
+ #{sym\ 4923}#
+ #{r\ 4875}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{rib\ 4878}#
+ #{mod\ 4924}#
+ #{for-car?\ 4880}#)))
+ (if (memv #{ftype\ 4906}# (quote (core)))
(values
'core-form
- #{fval\ 1650}#
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{ftype\ 1649}#
+ #{fval\ 4907}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{ftype\ 4906}#
'(local-syntax))
(values
'local-syntax-form
- #{fval\ 1650}#
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{ftype\ 1649}# (quote (begin)))
+ #{fval\ 4907}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{ftype\ 4906}# (quote (begin)))
(values
'begin-form
#f
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{ftype\ 1649}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{ftype\ 4906}#
'(eval-when))
(values
'eval-when-form
#f
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
- (if (memv #{ftype\ 1649}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
+ (if (memv #{ftype\ 4906}#
'(define))
- ((lambda (#{tmp\ 1675}#)
- ((lambda (#{tmp\ 1676}#)
- (if (if #{tmp\ 1676}#
- (apply (lambda (#{_\ 1680}#
- #{name\ 1681}#
- #{val\ 1682}#)
- (#{id?\ 244}#
- #{name\ 1681}#))
- #{tmp\ 1676}#)
+ ((lambda (#{tmp\ 4932}#)
+ ((lambda (#{tmp\ 4933}#)
+ (if (if #{tmp\ 4933}#
+ (apply (lambda (#{_\ 4937}#
+ #{name\ 4938}#
+ #{val\ 4939}#)
+ (#{id?\ 3501}#
+ #{name\ 4938}#))
+ #{tmp\ 4933}#)
#f)
- (apply (lambda (#{_\ 1686}#
- #{name\ 1687}#
- #{val\ 1688}#)
+ (apply (lambda (#{_\ 4943}#
+ #{name\ 4944}#
+ #{val\ 4945}#)
(values
'define-form
- #{name\ 1687}#
- #{val\ 1688}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#))
- #{tmp\ 1676}#)
- ((lambda (#{tmp\ 1689}#)
- (if (if #{tmp\ 1689}#
- (apply (lambda (#{_\ 1695}#
- #{name\ 1696}#
- #{args\ 1697}#
- #{e1\ 1698}#
- #{e2\ 1699}#)
- (if (#{id?\ 244}#
- #{name\ 1696}#)
- (#{valid-bound-ids?\ 307}#
- (#{lambda-var-list\ 359}#
- #{args\ 1697}#))
+ #{name\ 4944}#
+ #{val\ 4945}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#))
+ #{tmp\ 4933}#)
+ ((lambda (#{tmp\ 4946}#)
+ (if (if #{tmp\ 4946}#
+ (apply (lambda (#{_\ 4952}#
+ #{name\ 4953}#
+ #{args\ 4954}#
+ #{e1\ 4955}#
+ #{e2\ 4956}#)
+ (if (#{id?\ 3501}#
+ #{name\ 4953}#)
+ (#{valid-bound-ids?\ 3564}#
+ (#{lambda-var-list\ 3616}#
+ #{args\ 4954}#))
#f))
- #{tmp\ 1689}#)
+ #{tmp\ 4946}#)
#f)
- (apply (lambda (#{_\ 1707}#
- #{name\ 1708}#
- #{args\ 1709}#
- #{e1\ 1710}#
- #{e2\ 1711}#)
+ (apply (lambda (#{_\ 4964}#
+ #{name\ 4965}#
+ #{args\ 4966}#
+ #{e1\ 4967}#
+ #{e2\ 4968}#)
(values
'define-form
- (#{wrap\ 313}#
- #{name\ 1708}#
- #{w\ 1619}#
- #{mod\ 1622}#)
- (#{decorate-source\ 162}#
+ (#{wrap\ 3570}#
+ #{name\ 4965}#
+ #{w\ 4876}#
+ #{mod\ 4879}#)
+ (#{decorate-source\ 3419}#
(cons '#(syntax-object
lambda
((top)
(top)
(top)
(top))
- #("i1702"
- "i1703"
- "i1704"
- "i1705"
- "i1706"))
+ #("i4959"
+ "i4960"
+ "i4961"
+ "i4962"
+ "i4963"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1655"
- "i1656"
- "i1657"
- "i1658"
- "i1659"
- "i1660"))
+ #("i4912"
+ "i4913"
+ "i4914"
+ "i4915"
+ "i4916"
+ "i4917"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1647"))
+ #("i4904"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1624"
- "i1625"
- "i1626"
- "i1627"
- "i1628"
- "i1629"
- "i1630"))
+ #("i4881"
+ "i4882"
+ "i4883"
+ "i4884"
+ "i4885"
+ "i4886"
+ "i4887"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i43"
- "i41")))
+ ("i3300"
+ "i3298")))
(hygiene
guile))
- (#{wrap\ 313}#
- (cons #{args\ 1709}#
- (cons #{e1\ 1710}#
- #{e2\ 1711}#))
- #{w\ 1619}#
- #{mod\ 1622}#))
- #{s\ 1620}#)
+ (#{wrap\ 3570}#
+ (cons #{args\ 4966}#
+ (cons #{e1\ 4967}#
+ #{e2\ 4968}#))
+ #{w\ 4876}#
+ #{mod\ 4879}#))
+ #{s\ 4877}#)
'(())
- #{s\ 1620}#
- #{mod\ 1622}#))
- #{tmp\ 1689}#)
- ((lambda (#{tmp\ 1714}#)
- (if (if #{tmp\ 1714}#
- (apply (lambda (#{_\ 1717}#
- #{name\ 1718}#)
- (#{id?\ 244}#
- #{name\ 1718}#))
- #{tmp\ 1714}#)
+ #{s\ 4877}#
+ #{mod\ 4879}#))
+ #{tmp\ 4946}#)
+ ((lambda (#{tmp\ 4971}#)
+ (if (if #{tmp\ 4971}#
+ (apply (lambda (#{_\ 4974}#
+ #{name\ 4975}#)
+ (#{id?\ 3501}#
+ #{name\ 4975}#))
+ #{tmp\ 4971}#)
#f)
- (apply (lambda (#{_\ 1721}#
- #{name\ 1722}#)
+ (apply (lambda (#{_\ 4978}#
+ #{name\ 4979}#)
(values
'define-form
- (#{wrap\ 313}#
- #{name\ 1722}#
- #{w\ 1619}#
- #{mod\ 1622}#)
+ (#{wrap\ 3570}#
+ #{name\ 4979}#
+ #{w\ 4876}#
+ #{mod\ 4879}#)
'(#(syntax-object
if
((top)
name)
#((top)
(top))
- #("i1719"
- "i1720"))
+ #("i4976"
+ "i4977"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1655"
- "i1656"
- "i1657"
- "i1658"
- "i1659"
- "i1660"))
+ #("i4912"
+ "i4913"
+ "i4914"
+ "i4915"
+ "i4916"
+ "i4917"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1647"))
+ #("i4904"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1624"
- "i1625"
- "i1626"
- "i1627"
- "i1628"
- "i1629"
- "i1630"))
+ #("i4881"
+ "i4882"
+ "i4883"
+ "i4884"
+ "i4885"
+ "i4886"
+ "i4887"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i43"
- "i41")))
+ ("i3300"
+ "i3298")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i1719"
- "i1720"))
+ #("i4976"
+ "i4977"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1655"
- "i1656"
- "i1657"
- "i1658"
- "i1659"
- "i1660"))
+ #("i4912"
+ "i4913"
+ "i4914"
+ "i4915"
+ "i4916"
+ "i4917"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1647"))
+ #("i4904"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1624"
- "i1625"
- "i1626"
- "i1627"
- "i1628"
- "i1629"
- "i1630"))
+ #("i4881"
+ "i4882"
+ "i4883"
+ "i4884"
+ "i4885"
+ "i4886"
+ "i4887"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i43"
- "i41")))
+ ("i3300"
+ "i3298")))
(hygiene
guile))
#(syntax-object
name)
#((top)
(top))
- #("i1719"
- "i1720"))
+ #("i4976"
+ "i4977"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1655"
- "i1656"
- "i1657"
- "i1658"
- "i1659"
- "i1660"))
+ #("i4912"
+ "i4913"
+ "i4914"
+ "i4915"
+ "i4916"
+ "i4917"))
#(ribcage
()
()
#(ribcage
#(first)
#((top))
- #("i1647"))
+ #("i4904"))
#(ribcage
()
()
(top)
(top)
(top))
- #("i1624"
- "i1625"
- "i1626"
- "i1627"
- "i1628"
- "i1629"
- "i1630"))
+ #("i4881"
+ "i4882"
+ "i4883"
+ "i4884"
+ "i4885"
+ "i4886"
+ "i4887"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top)
(top))
- ("i43"
- "i41")))
+ ("i3300"
+ "i3298")))
(hygiene
guile)))
'(())
- #{s\ 1620}#
- #{mod\ 1622}#))
- #{tmp\ 1714}#)
+ #{s\ 4877}#
+ #{mod\ 4879}#))
+ #{tmp\ 4971}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1675}#)))
+ #{tmp\ 4932}#)))
($sc-dispatch
- #{tmp\ 1675}#
+ #{tmp\ 4932}#
'(any any)))))
($sc-dispatch
- #{tmp\ 1675}#
+ #{tmp\ 4932}#
'(any (any . any)
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 1675}#
+ #{tmp\ 4932}#
'(any any any))))
- #{e\ 1617}#)
- (if (memv #{ftype\ 1649}#
+ #{e\ 4874}#)
+ (if (memv #{ftype\ 4906}#
'(define-syntax))
- ((lambda (#{tmp\ 1725}#)
- ((lambda (#{tmp\ 1726}#)
- (if (if #{tmp\ 1726}#
- (apply (lambda (#{_\ 1730}#
- #{name\ 1731}#
- #{val\ 1732}#)
- (#{id?\ 244}#
- #{name\ 1731}#))
- #{tmp\ 1726}#)
+ ((lambda (#{tmp\ 4982}#)
+ ((lambda (#{tmp\ 4983}#)
+ (if (if #{tmp\ 4983}#
+ (apply (lambda (#{_\ 4987}#
+ #{name\ 4988}#
+ #{val\ 4989}#)
+ (#{id?\ 3501}#
+ #{name\ 4988}#))
+ #{tmp\ 4983}#)
#f)
- (apply (lambda (#{_\ 1736}#
- #{name\ 1737}#
- #{val\ 1738}#)
+ (apply (lambda (#{_\ 4993}#
+ #{name\ 4994}#
+ #{val\ 4995}#)
(values
'define-syntax-form
- #{name\ 1737}#
- #{val\ 1738}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#))
- #{tmp\ 1726}#)
+ #{name\ 4994}#
+ #{val\ 4995}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#))
+ #{tmp\ 4983}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 1725}#)))
+ #{tmp\ 4982}#)))
($sc-dispatch
- #{tmp\ 1725}#
+ #{tmp\ 4982}#
'(any any any))))
- #{e\ 1617}#)
+ #{e\ 4874}#)
(values
'call
#f
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#))))))))))))))
- (if (#{syntax-object?\ 208}# #{e\ 1617}#)
- (#{syntax-type\ 325}#
- (#{syntax-object-expression\ 210}# #{e\ 1617}#)
- #{r\ 1618}#
- (#{join-wraps\ 295}#
- #{w\ 1619}#
- (#{syntax-object-wrap\ 212}# #{e\ 1617}#))
- #{s\ 1620}#
- #{rib\ 1621}#
- (let ((#{t\ 1744}#
- (#{syntax-object-module\ 214}# #{e\ 1617}#)))
- (if #{t\ 1744}# #{t\ 1744}# #{mod\ 1622}#))
- #{for-car?\ 1623}#)
- (if (self-evaluating? #{e\ 1617}#)
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#))))))))))))))
+ (if (#{syntax-object?\ 3465}# #{e\ 4874}#)
+ (#{syntax-type\ 3582}#
+ (#{syntax-object-expression\ 3467}# #{e\ 4874}#)
+ #{r\ 4875}#
+ (#{join-wraps\ 3552}#
+ #{w\ 4876}#
+ (#{syntax-object-wrap\ 3469}# #{e\ 4874}#))
+ #{s\ 4877}#
+ #{rib\ 4878}#
+ (let ((#{t\ 5001}#
+ (#{syntax-object-module\ 3471}# #{e\ 4874}#)))
+ (if #{t\ 5001}# #{t\ 5001}# #{mod\ 4879}#))
+ #{for-car?\ 4880}#)
+ (if (self-evaluating? #{e\ 4874}#)
(values
'constant
#f
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)
(values
'other
#f
- #{e\ 1617}#
- #{w\ 1619}#
- #{s\ 1620}#
- #{mod\ 1622}#)))))))
- (#{chi-when-list\ 323}#
- (lambda (#{e\ 1749}# #{when-list\ 1750}# #{w\ 1751}#)
- (letrec ((#{f\ 1758}#
- (lambda (#{when-list\ 1759}# #{situations\ 1760}#)
- (if (null? #{when-list\ 1759}#)
- #{situations\ 1760}#
- (#{f\ 1758}#
- (cdr #{when-list\ 1759}#)
- (cons (let ((#{x\ 1762}#
- (car #{when-list\ 1759}#)))
- (if (#{free-id=?\ 303}#
- #{x\ 1762}#
+ #{e\ 4874}#
+ #{w\ 4876}#
+ #{s\ 4877}#
+ #{mod\ 4879}#)))))))
+ (#{chi-when-list\ 3580}#
+ (lambda (#{e\ 5006}# #{when-list\ 5007}# #{w\ 5008}#)
+ (letrec ((#{f\ 5015}#
+ (lambda (#{when-list\ 5016}# #{situations\ 5017}#)
+ (if (null? #{when-list\ 5016}#)
+ #{situations\ 5017}#
+ (#{f\ 5015}#
+ (cdr #{when-list\ 5016}#)
+ (cons (let ((#{x\ 5019}#
+ (car #{when-list\ 5016}#)))
+ (if (#{free-id=?\ 3560}#
+ #{x\ 5019}#
'#(syntax-object
compile
((top)
#(ribcage
#(x)
#((top))
- #("i1761"))
+ #("i5018"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1755" "i1756" "i1757"))
+ #("i5012" "i5013" "i5014"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1752" "i1753" "i1754"))
+ #("i5009" "i5010" "i5011"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile)))
'compile
- (if (#{free-id=?\ 303}#
- #{x\ 1762}#
+ (if (#{free-id=?\ 3560}#
+ #{x\ 5019}#
'#(syntax-object
load
((top)
#(ribcage
#(x)
#((top))
- #("i1761"))
+ #("i5018"))
#(ribcage () () ())
#(ribcage
#(f when-list situations)
#((top) (top) (top))
- #("i1755"
- "i1756"
- "i1757"))
+ #("i5012"
+ "i5013"
+ "i5014"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1752"
- "i1753"
- "i1754"))
+ #("i5009"
+ "i5010"
+ "i5011"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile)))
'load
- (if (#{free-id=?\ 303}#
- #{x\ 1762}#
+ (if (#{free-id=?\ 3560}#
+ #{x\ 5019}#
'#(syntax-object
eval
((top)
#(ribcage
#(x)
#((top))
- #("i1761"))
+ #("i5018"))
#(ribcage () () ())
#(ribcage
#(f
when-list
situations)
#((top) (top) (top))
- #("i1755"
- "i1756"
- "i1757"))
+ #("i5012"
+ "i5013"
+ "i5014"))
#(ribcage () () ())
#(ribcage
#(e when-list w)
#((top) (top) (top))
- #("i1752"
- "i1753"
- "i1754"))
+ #("i5009"
+ "i5010"
+ "i5011"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile)))
'eval
(syntax-violation
'eval-when
"invalid situation"
- #{e\ 1749}#
- (#{wrap\ 313}#
- #{x\ 1762}#
- #{w\ 1751}#
+ #{e\ 5006}#
+ (#{wrap\ 3570}#
+ #{x\ 5019}#
+ #{w\ 5008}#
#f))))))
- #{situations\ 1760}#))))))
- (#{f\ 1758}# #{when-list\ 1750}# (quote ())))))
- (#{chi-install-global\ 321}#
- (lambda (#{name\ 1770}# #{e\ 1771}#)
- (#{build-global-definition\ 184}#
+ #{situations\ 5017}#))))))
+ (#{f\ 5015}# #{when-list\ 5007}# (quote ())))))
+ (#{chi-install-global\ 3578}#
+ (lambda (#{name\ 5027}# #{e\ 5028}#)
+ (#{build-global-definition\ 3441}#
#f
- #{name\ 1770}#
- (#{build-application\ 166}#
+ #{name\ 5027}#
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}#
+ (#{build-primref\ 3449}#
#f
'make-syntax-transformer)
- (list (#{build-data\ 194}# #f #{name\ 1770}#)
- (#{build-data\ 194}# #f (quote macro))
- (#{build-application\ 166}#
+ (list (#{build-data\ 3451}# #f #{name\ 5027}#)
+ (#{build-data\ 3451}# #f (quote macro))
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}# #f (quote cons))
- (list #{e\ 1771}#
- (#{build-application\ 166}#
+ (#{build-primref\ 3449}# #f (quote cons))
+ (list #{e\ 5028}#
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}#
+ (#{build-primref\ 3449}#
#f
'module-name)
- (list (#{build-application\ 166}#
+ (list (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}#
+ (#{build-primref\ 3449}#
#f
'current-module)
'()))))))))))
- (#{chi-top-sequence\ 319}#
- (lambda (#{body\ 1785}#
- #{r\ 1786}#
- #{w\ 1787}#
- #{s\ 1788}#
- #{m\ 1789}#
- #{esew\ 1790}#
- #{mod\ 1791}#)
- (#{build-sequence\ 196}#
- #{s\ 1788}#
- (letrec ((#{dobody\ 1808}#
- (lambda (#{body\ 1809}#
- #{r\ 1810}#
- #{w\ 1811}#
- #{m\ 1812}#
- #{esew\ 1813}#
- #{mod\ 1814}#
- #{module\ 1815}#
- #{out\ 1816}#)
- (if (null? #{body\ 1809}#)
- (reverse #{out\ 1816}#)
- (let ((#{first\ 1819}#
- (#{chi-top\ 327}#
- (car #{body\ 1809}#)
- #{r\ 1810}#
- #{w\ 1811}#
- #{m\ 1812}#
- #{esew\ 1813}#
- #{mod\ 1814}#)))
- (let ((#{new-module\ 1821}#
+ (#{chi-top-sequence\ 3576}#
+ (lambda (#{body\ 5042}#
+ #{r\ 5043}#
+ #{w\ 5044}#
+ #{s\ 5045}#
+ #{m\ 5046}#
+ #{esew\ 5047}#
+ #{mod\ 5048}#)
+ (#{build-sequence\ 3453}#
+ #{s\ 5045}#
+ (letrec ((#{dobody\ 5065}#
+ (lambda (#{body\ 5066}#
+ #{r\ 5067}#
+ #{w\ 5068}#
+ #{m\ 5069}#
+ #{esew\ 5070}#
+ #{mod\ 5071}#
+ #{module\ 5072}#
+ #{out\ 5073}#)
+ (if (null? #{body\ 5066}#)
+ (reverse #{out\ 5073}#)
+ (let ((#{first\ 5076}#
+ (#{chi-top\ 3584}#
+ (car #{body\ 5066}#)
+ #{r\ 5067}#
+ #{w\ 5068}#
+ #{m\ 5069}#
+ #{esew\ 5070}#
+ #{mod\ 5071}#)))
+ (let ((#{new-module\ 5078}#
(current-module)))
- (#{dobody\ 1808}#
- (cdr #{body\ 1809}#)
- #{r\ 1810}#
- #{w\ 1811}#
- #{m\ 1812}#
- #{esew\ 1813}#
- (if (eq? #{module\ 1815}#
- #{new-module\ 1821}#)
- #{mod\ 1814}#
+ (#{dobody\ 5065}#
+ (cdr #{body\ 5066}#)
+ #{r\ 5067}#
+ #{w\ 5068}#
+ #{m\ 5069}#
+ #{esew\ 5070}#
+ (if (eq? #{module\ 5072}#
+ #{new-module\ 5078}#)
+ #{mod\ 5071}#
(cons 'hygiene
(module-name
- #{new-module\ 1821}#)))
- #{new-module\ 1821}#
- (cons #{first\ 1819}#
- #{out\ 1816}#))))))))
- (#{dobody\ 1808}#
- #{body\ 1785}#
- #{r\ 1786}#
- #{w\ 1787}#
- #{m\ 1789}#
- #{esew\ 1790}#
- #{mod\ 1791}#
+ #{new-module\ 5078}#)))
+ #{new-module\ 5078}#
+ (cons #{first\ 5076}#
+ #{out\ 5073}#))))))))
+ (#{dobody\ 5065}#
+ #{body\ 5042}#
+ #{r\ 5043}#
+ #{w\ 5044}#
+ #{m\ 5046}#
+ #{esew\ 5047}#
+ #{mod\ 5048}#
(current-module)
'())))))
- (#{chi-sequence\ 317}#
- (lambda (#{body\ 1822}#
- #{r\ 1823}#
- #{w\ 1824}#
- #{s\ 1825}#
- #{mod\ 1826}#)
- (#{build-sequence\ 196}#
- #{s\ 1825}#
- (letrec ((#{dobody\ 1837}#
- (lambda (#{body\ 1838}#
- #{r\ 1839}#
- #{w\ 1840}#
- #{mod\ 1841}#)
- (if (null? #{body\ 1838}#)
+ (#{chi-sequence\ 3574}#
+ (lambda (#{body\ 5079}#
+ #{r\ 5080}#
+ #{w\ 5081}#
+ #{s\ 5082}#
+ #{mod\ 5083}#)
+ (#{build-sequence\ 3453}#
+ #{s\ 5082}#
+ (letrec ((#{dobody\ 5094}#
+ (lambda (#{body\ 5095}#
+ #{r\ 5096}#
+ #{w\ 5097}#
+ #{mod\ 5098}#)
+ (if (null? #{body\ 5095}#)
'()
- (let ((#{first\ 1843}#
- (#{chi\ 329}#
- (car #{body\ 1838}#)
- #{r\ 1839}#
- #{w\ 1840}#
- #{mod\ 1841}#)))
- (cons #{first\ 1843}#
- (#{dobody\ 1837}#
- (cdr #{body\ 1838}#)
- #{r\ 1839}#
- #{w\ 1840}#
- #{mod\ 1841}#)))))))
- (#{dobody\ 1837}#
- #{body\ 1822}#
- #{r\ 1823}#
- #{w\ 1824}#
- #{mod\ 1826}#)))))
- (#{source-wrap\ 315}#
- (lambda (#{x\ 1844}#
- #{w\ 1845}#
- #{s\ 1846}#
- #{defmod\ 1847}#)
- (#{wrap\ 313}#
- (#{decorate-source\ 162}#
- #{x\ 1844}#
- #{s\ 1846}#)
- #{w\ 1845}#
- #{defmod\ 1847}#)))
- (#{wrap\ 313}#
- (lambda (#{x\ 1852}# #{w\ 1853}# #{defmod\ 1854}#)
- (if (if (null? (#{wrap-marks\ 251}# #{w\ 1853}#))
- (null? (#{wrap-subst\ 253}# #{w\ 1853}#))
+ (let ((#{first\ 5100}#
+ (#{chi\ 3586}#
+ (car #{body\ 5095}#)
+ #{r\ 5096}#
+ #{w\ 5097}#
+ #{mod\ 5098}#)))
+ (cons #{first\ 5100}#
+ (#{dobody\ 5094}#
+ (cdr #{body\ 5095}#)
+ #{r\ 5096}#
+ #{w\ 5097}#
+ #{mod\ 5098}#)))))))
+ (#{dobody\ 5094}#
+ #{body\ 5079}#
+ #{r\ 5080}#
+ #{w\ 5081}#
+ #{mod\ 5083}#)))))
+ (#{source-wrap\ 3572}#
+ (lambda (#{x\ 5101}#
+ #{w\ 5102}#
+ #{s\ 5103}#
+ #{defmod\ 5104}#)
+ (#{wrap\ 3570}#
+ (#{decorate-source\ 3419}#
+ #{x\ 5101}#
+ #{s\ 5103}#)
+ #{w\ 5102}#
+ #{defmod\ 5104}#)))
+ (#{wrap\ 3570}#
+ (lambda (#{x\ 5109}# #{w\ 5110}# #{defmod\ 5111}#)
+ (if (if (null? (#{wrap-marks\ 3508}# #{w\ 5110}#))
+ (null? (#{wrap-subst\ 3510}# #{w\ 5110}#))
#f)
- #{x\ 1852}#
- (if (#{syntax-object?\ 208}# #{x\ 1852}#)
- (#{make-syntax-object\ 206}#
- (#{syntax-object-expression\ 210}# #{x\ 1852}#)
- (#{join-wraps\ 295}#
- #{w\ 1853}#
- (#{syntax-object-wrap\ 212}# #{x\ 1852}#))
- (#{syntax-object-module\ 214}# #{x\ 1852}#))
- (if (null? #{x\ 1852}#)
- #{x\ 1852}#
- (#{make-syntax-object\ 206}#
- #{x\ 1852}#
- #{w\ 1853}#
- #{defmod\ 1854}#))))))
- (#{bound-id-member?\ 311}#
- (lambda (#{x\ 1867}# #{list\ 1868}#)
- (if (not (null? #{list\ 1868}#))
- (let ((#{t\ 1875}#
- (#{bound-id=?\ 305}#
- #{x\ 1867}#
- (car #{list\ 1868}#))))
- (if #{t\ 1875}#
- #{t\ 1875}#
- (#{bound-id-member?\ 311}#
- #{x\ 1867}#
- (cdr #{list\ 1868}#))))
+ #{x\ 5109}#
+ (if (#{syntax-object?\ 3465}# #{x\ 5109}#)
+ (#{make-syntax-object\ 3463}#
+ (#{syntax-object-expression\ 3467}# #{x\ 5109}#)
+ (#{join-wraps\ 3552}#
+ #{w\ 5110}#
+ (#{syntax-object-wrap\ 3469}# #{x\ 5109}#))
+ (#{syntax-object-module\ 3471}# #{x\ 5109}#))
+ (if (null? #{x\ 5109}#)
+ #{x\ 5109}#
+ (#{make-syntax-object\ 3463}#
+ #{x\ 5109}#
+ #{w\ 5110}#
+ #{defmod\ 5111}#))))))
+ (#{bound-id-member?\ 3568}#
+ (lambda (#{x\ 5124}# #{list\ 5125}#)
+ (if (not (null? #{list\ 5125}#))
+ (let ((#{t\ 5132}#
+ (#{bound-id=?\ 3562}#
+ #{x\ 5124}#
+ (car #{list\ 5125}#))))
+ (if #{t\ 5132}#
+ #{t\ 5132}#
+ (#{bound-id-member?\ 3568}#
+ #{x\ 5124}#
+ (cdr #{list\ 5125}#))))
#f)))
- (#{distinct-bound-ids?\ 309}#
- (lambda (#{ids\ 1877}#)
- (letrec ((#{distinct?\ 1881}#
- (lambda (#{ids\ 1882}#)
- (let ((#{t\ 1885}# (null? #{ids\ 1882}#)))
- (if #{t\ 1885}#
- #{t\ 1885}#
- (if (not (#{bound-id-member?\ 311}#
- (car #{ids\ 1882}#)
- (cdr #{ids\ 1882}#)))
- (#{distinct?\ 1881}# (cdr #{ids\ 1882}#))
+ (#{distinct-bound-ids?\ 3566}#
+ (lambda (#{ids\ 5134}#)
+ (letrec ((#{distinct?\ 5138}#
+ (lambda (#{ids\ 5139}#)
+ (let ((#{t\ 5142}# (null? #{ids\ 5139}#)))
+ (if #{t\ 5142}#
+ #{t\ 5142}#
+ (if (not (#{bound-id-member?\ 3568}#
+ (car #{ids\ 5139}#)
+ (cdr #{ids\ 5139}#)))
+ (#{distinct?\ 5138}# (cdr #{ids\ 5139}#))
#f))))))
- (#{distinct?\ 1881}# #{ids\ 1877}#))))
- (#{valid-bound-ids?\ 307}#
- (lambda (#{ids\ 1889}#)
- (if (letrec ((#{all-ids?\ 1894}#
- (lambda (#{ids\ 1895}#)
- (let ((#{t\ 1898}# (null? #{ids\ 1895}#)))
- (if #{t\ 1898}#
- #{t\ 1898}#
- (if (#{id?\ 244}# (car #{ids\ 1895}#))
- (#{all-ids?\ 1894}# (cdr #{ids\ 1895}#))
+ (#{distinct?\ 5138}# #{ids\ 5134}#))))
+ (#{valid-bound-ids?\ 3564}#
+ (lambda (#{ids\ 5146}#)
+ (if (letrec ((#{all-ids?\ 5151}#
+ (lambda (#{ids\ 5152}#)
+ (let ((#{t\ 5155}# (null? #{ids\ 5152}#)))
+ (if #{t\ 5155}#
+ #{t\ 5155}#
+ (if (#{id?\ 3501}# (car #{ids\ 5152}#))
+ (#{all-ids?\ 5151}# (cdr #{ids\ 5152}#))
#f))))))
- (#{all-ids?\ 1894}# #{ids\ 1889}#))
- (#{distinct-bound-ids?\ 309}# #{ids\ 1889}#)
+ (#{all-ids?\ 5151}# #{ids\ 5146}#))
+ (#{distinct-bound-ids?\ 3566}# #{ids\ 5146}#)
#f)))
- (#{bound-id=?\ 305}#
- (lambda (#{i\ 1903}# #{j\ 1904}#)
- (if (if (#{syntax-object?\ 208}# #{i\ 1903}#)
- (#{syntax-object?\ 208}# #{j\ 1904}#)
+ (#{bound-id=?\ 3562}#
+ (lambda (#{i\ 5160}# #{j\ 5161}#)
+ (if (if (#{syntax-object?\ 3465}# #{i\ 5160}#)
+ (#{syntax-object?\ 3465}# #{j\ 5161}#)
#f)
- (if (eq? (#{syntax-object-expression\ 210}# #{i\ 1903}#)
- (#{syntax-object-expression\ 210}# #{j\ 1904}#))
- (#{same-marks?\ 299}#
- (#{wrap-marks\ 251}#
- (#{syntax-object-wrap\ 212}# #{i\ 1903}#))
- (#{wrap-marks\ 251}#
- (#{syntax-object-wrap\ 212}# #{j\ 1904}#)))
+ (if (eq? (#{syntax-object-expression\ 3467}# #{i\ 5160}#)
+ (#{syntax-object-expression\ 3467}# #{j\ 5161}#))
+ (#{same-marks?\ 3556}#
+ (#{wrap-marks\ 3508}#
+ (#{syntax-object-wrap\ 3469}# #{i\ 5160}#))
+ (#{wrap-marks\ 3508}#
+ (#{syntax-object-wrap\ 3469}# #{j\ 5161}#)))
#f)
- (eq? #{i\ 1903}# #{j\ 1904}#))))
- (#{free-id=?\ 303}#
- (lambda (#{i\ 1911}# #{j\ 1912}#)
- (if (eq? (let ((#{x\ 1918}# #{i\ 1911}#))
- (if (#{syntax-object?\ 208}# #{x\ 1918}#)
- (#{syntax-object-expression\ 210}# #{x\ 1918}#)
- #{x\ 1918}#))
- (let ((#{x\ 1921}# #{j\ 1912}#))
- (if (#{syntax-object?\ 208}# #{x\ 1921}#)
- (#{syntax-object-expression\ 210}# #{x\ 1921}#)
- #{x\ 1921}#)))
- (eq? (#{id-var-name\ 301}# #{i\ 1911}# (quote (())))
- (#{id-var-name\ 301}# #{j\ 1912}# (quote (()))))
+ (eq? #{i\ 5160}# #{j\ 5161}#))))
+ (#{free-id=?\ 3560}#
+ (lambda (#{i\ 5168}# #{j\ 5169}#)
+ (if (eq? (let ((#{x\ 5175}# #{i\ 5168}#))
+ (if (#{syntax-object?\ 3465}# #{x\ 5175}#)
+ (#{syntax-object-expression\ 3467}# #{x\ 5175}#)
+ #{x\ 5175}#))
+ (let ((#{x\ 5178}# #{j\ 5169}#))
+ (if (#{syntax-object?\ 3465}# #{x\ 5178}#)
+ (#{syntax-object-expression\ 3467}# #{x\ 5178}#)
+ #{x\ 5178}#)))
+ (eq? (#{id-var-name\ 3558}# #{i\ 5168}# (quote (())))
+ (#{id-var-name\ 3558}# #{j\ 5169}# (quote (()))))
#f)))
- (#{id-var-name\ 301}#
- (lambda (#{id\ 1925}# #{w\ 1926}#)
- (letrec ((#{search-vector-rib\ 1935}#
- (lambda (#{sym\ 1947}#
- #{subst\ 1948}#
- #{marks\ 1949}#
- #{symnames\ 1950}#
- #{ribcage\ 1951}#)
- (let ((#{n\ 1958}#
- (vector-length #{symnames\ 1950}#)))
- (letrec ((#{f\ 1961}#
- (lambda (#{i\ 1962}#)
- (if (#{fx=\ 149}#
- #{i\ 1962}#
- #{n\ 1958}#)
- (#{search\ 1931}#
- #{sym\ 1947}#
- (cdr #{subst\ 1948}#)
- #{marks\ 1949}#)
+ (#{id-var-name\ 3558}#
+ (lambda (#{id\ 5182}# #{w\ 5183}#)
+ (letrec ((#{search-vector-rib\ 5192}#
+ (lambda (#{sym\ 5204}#
+ #{subst\ 5205}#
+ #{marks\ 5206}#
+ #{symnames\ 5207}#
+ #{ribcage\ 5208}#)
+ (let ((#{n\ 5215}#
+ (vector-length #{symnames\ 5207}#)))
+ (letrec ((#{f\ 5218}#
+ (lambda (#{i\ 5219}#)
+ (if (#{fx=\ 3406}#
+ #{i\ 5219}#
+ #{n\ 5215}#)
+ (#{search\ 5188}#
+ #{sym\ 5204}#
+ (cdr #{subst\ 5205}#)
+ #{marks\ 5206}#)
(if (if (eq? (vector-ref
- #{symnames\ 1950}#
- #{i\ 1962}#)
- #{sym\ 1947}#)
- (#{same-marks?\ 299}#
- #{marks\ 1949}#
+ #{symnames\ 5207}#
+ #{i\ 5219}#)
+ #{sym\ 5204}#)
+ (#{same-marks?\ 3556}#
+ #{marks\ 5206}#
(vector-ref
- (#{ribcage-marks\ 271}#
- #{ribcage\ 1951}#)
- #{i\ 1962}#))
+ (#{ribcage-marks\ 3528}#
+ #{ribcage\ 5208}#)
+ #{i\ 5219}#))
#f)
(values
(vector-ref
- (#{ribcage-labels\ 273}#
- #{ribcage\ 1951}#)
- #{i\ 1962}#)
- #{marks\ 1949}#)
- (#{f\ 1961}#
- (#{fx+\ 145}#
- #{i\ 1962}#
+ (#{ribcage-labels\ 3530}#
+ #{ribcage\ 5208}#)
+ #{i\ 5219}#)
+ #{marks\ 5206}#)
+ (#{f\ 5218}#
+ (#{fx+\ 3402}#
+ #{i\ 5219}#
1)))))))
- (#{f\ 1961}# 0)))))
- (#{search-list-rib\ 1933}#
- (lambda (#{sym\ 1970}#
- #{subst\ 1971}#
- #{marks\ 1972}#
- #{symnames\ 1973}#
- #{ribcage\ 1974}#)
- (letrec ((#{f\ 1983}#
- (lambda (#{symnames\ 1984}# #{i\ 1985}#)
- (if (null? #{symnames\ 1984}#)
- (#{search\ 1931}#
- #{sym\ 1970}#
- (cdr #{subst\ 1971}#)
- #{marks\ 1972}#)
- (if (if (eq? (car #{symnames\ 1984}#)
- #{sym\ 1970}#)
- (#{same-marks?\ 299}#
- #{marks\ 1972}#
+ (#{f\ 5218}# 0)))))
+ (#{search-list-rib\ 5190}#
+ (lambda (#{sym\ 5227}#
+ #{subst\ 5228}#
+ #{marks\ 5229}#
+ #{symnames\ 5230}#
+ #{ribcage\ 5231}#)
+ (letrec ((#{f\ 5240}#
+ (lambda (#{symnames\ 5241}# #{i\ 5242}#)
+ (if (null? #{symnames\ 5241}#)
+ (#{search\ 5188}#
+ #{sym\ 5227}#
+ (cdr #{subst\ 5228}#)
+ #{marks\ 5229}#)
+ (if (if (eq? (car #{symnames\ 5241}#)
+ #{sym\ 5227}#)
+ (#{same-marks?\ 3556}#
+ #{marks\ 5229}#
(list-ref
- (#{ribcage-marks\ 271}#
- #{ribcage\ 1974}#)
- #{i\ 1985}#))
+ (#{ribcage-marks\ 3528}#
+ #{ribcage\ 5231}#)
+ #{i\ 5242}#))
#f)
(values
(list-ref
- (#{ribcage-labels\ 273}#
- #{ribcage\ 1974}#)
- #{i\ 1985}#)
- #{marks\ 1972}#)
- (#{f\ 1983}#
- (cdr #{symnames\ 1984}#)
- (#{fx+\ 145}#
- #{i\ 1985}#
+ (#{ribcage-labels\ 3530}#
+ #{ribcage\ 5231}#)
+ #{i\ 5242}#)
+ #{marks\ 5229}#)
+ (#{f\ 5240}#
+ (cdr #{symnames\ 5241}#)
+ (#{fx+\ 3402}#
+ #{i\ 5242}#
1)))))))
- (#{f\ 1983}# #{symnames\ 1973}# 0))))
- (#{search\ 1931}#
- (lambda (#{sym\ 1993}#
- #{subst\ 1994}#
- #{marks\ 1995}#)
- (if (null? #{subst\ 1994}#)
- (values #f #{marks\ 1995}#)
- (let ((#{fst\ 2000}# (car #{subst\ 1994}#)))
- (if (eq? #{fst\ 2000}# (quote shift))
- (#{search\ 1931}#
- #{sym\ 1993}#
- (cdr #{subst\ 1994}#)
- (cdr #{marks\ 1995}#))
- (let ((#{symnames\ 2002}#
- (#{ribcage-symnames\ 269}#
- #{fst\ 2000}#)))
- (if (vector? #{symnames\ 2002}#)
- (#{search-vector-rib\ 1935}#
- #{sym\ 1993}#
- #{subst\ 1994}#
- #{marks\ 1995}#
- #{symnames\ 2002}#
- #{fst\ 2000}#)
- (#{search-list-rib\ 1933}#
- #{sym\ 1993}#
- #{subst\ 1994}#
- #{marks\ 1995}#
- #{symnames\ 2002}#
- #{fst\ 2000}#)))))))))
- (if (symbol? #{id\ 1925}#)
- (let ((#{t\ 2005}#
+ (#{f\ 5240}# #{symnames\ 5230}# 0))))
+ (#{search\ 5188}#
+ (lambda (#{sym\ 5250}#
+ #{subst\ 5251}#
+ #{marks\ 5252}#)
+ (if (null? #{subst\ 5251}#)
+ (values #f #{marks\ 5252}#)
+ (let ((#{fst\ 5257}# (car #{subst\ 5251}#)))
+ (if (eq? #{fst\ 5257}# (quote shift))
+ (#{search\ 5188}#
+ #{sym\ 5250}#
+ (cdr #{subst\ 5251}#)
+ (cdr #{marks\ 5252}#))
+ (let ((#{symnames\ 5259}#
+ (#{ribcage-symnames\ 3526}#
+ #{fst\ 5257}#)))
+ (if (vector? #{symnames\ 5259}#)
+ (#{search-vector-rib\ 5192}#
+ #{sym\ 5250}#
+ #{subst\ 5251}#
+ #{marks\ 5252}#
+ #{symnames\ 5259}#
+ #{fst\ 5257}#)
+ (#{search-list-rib\ 5190}#
+ #{sym\ 5250}#
+ #{subst\ 5251}#
+ #{marks\ 5252}#
+ #{symnames\ 5259}#
+ #{fst\ 5257}#)))))))))
+ (if (symbol? #{id\ 5182}#)
+ (let ((#{t\ 5262}#
(call-with-values
(lambda ()
- (#{search\ 1931}#
- #{id\ 1925}#
- (#{wrap-subst\ 253}# #{w\ 1926}#)
- (#{wrap-marks\ 251}# #{w\ 1926}#)))
- (lambda (#{x\ 2007}# . #{ignore\ 2008}#)
- #{x\ 2007}#))))
- (if #{t\ 2005}# #{t\ 2005}# #{id\ 1925}#))
- (if (#{syntax-object?\ 208}# #{id\ 1925}#)
- (let ((#{id\ 2016}#
- (#{syntax-object-expression\ 210}# #{id\ 1925}#))
- (#{w1\ 2017}#
- (#{syntax-object-wrap\ 212}# #{id\ 1925}#)))
- (let ((#{marks\ 2019}#
- (#{join-marks\ 297}#
- (#{wrap-marks\ 251}# #{w\ 1926}#)
- (#{wrap-marks\ 251}# #{w1\ 2017}#))))
+ (#{search\ 5188}#
+ #{id\ 5182}#
+ (#{wrap-subst\ 3510}# #{w\ 5183}#)
+ (#{wrap-marks\ 3508}# #{w\ 5183}#)))
+ (lambda (#{x\ 5264}# . #{ignore\ 5265}#)
+ #{x\ 5264}#))))
+ (if #{t\ 5262}# #{t\ 5262}# #{id\ 5182}#))
+ (if (#{syntax-object?\ 3465}# #{id\ 5182}#)
+ (let ((#{id\ 5273}#
+ (#{syntax-object-expression\ 3467}# #{id\ 5182}#))
+ (#{w1\ 5274}#
+ (#{syntax-object-wrap\ 3469}# #{id\ 5182}#)))
+ (let ((#{marks\ 5276}#
+ (#{join-marks\ 3554}#
+ (#{wrap-marks\ 3508}# #{w\ 5183}#)
+ (#{wrap-marks\ 3508}# #{w1\ 5274}#))))
(call-with-values
(lambda ()
- (#{search\ 1931}#
- #{id\ 2016}#
- (#{wrap-subst\ 253}# #{w\ 1926}#)
- #{marks\ 2019}#))
- (lambda (#{new-id\ 2020}# #{marks\ 2021}#)
- (let ((#{t\ 2026}# #{new-id\ 2020}#))
- (if #{t\ 2026}#
- #{t\ 2026}#
- (let ((#{t\ 2029}#
+ (#{search\ 5188}#
+ #{id\ 5273}#
+ (#{wrap-subst\ 3510}# #{w\ 5183}#)
+ #{marks\ 5276}#))
+ (lambda (#{new-id\ 5277}# #{marks\ 5278}#)
+ (let ((#{t\ 5283}# #{new-id\ 5277}#))
+ (if #{t\ 5283}#
+ #{t\ 5283}#
+ (let ((#{t\ 5286}#
(call-with-values
(lambda ()
- (#{search\ 1931}#
- #{id\ 2016}#
- (#{wrap-subst\ 253}#
- #{w1\ 2017}#)
- #{marks\ 2021}#))
- (lambda (#{x\ 2031}#
+ (#{search\ 5188}#
+ #{id\ 5273}#
+ (#{wrap-subst\ 3510}#
+ #{w1\ 5274}#)
+ #{marks\ 5278}#))
+ (lambda (#{x\ 5288}#
.
- #{ignore\ 2032}#)
- #{x\ 2031}#))))
- (if #{t\ 2029}#
- #{t\ 2029}#
- #{id\ 2016}#))))))))
+ #{ignore\ 5289}#)
+ #{x\ 5288}#))))
+ (if #{t\ 5286}#
+ #{t\ 5286}#
+ #{id\ 5273}#))))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id\ 1925}#))))))
- (#{same-marks?\ 299}#
- (lambda (#{x\ 2037}# #{y\ 2038}#)
- (let ((#{t\ 2043}# (eq? #{x\ 2037}# #{y\ 2038}#)))
- (if #{t\ 2043}#
- #{t\ 2043}#
- (if (not (null? #{x\ 2037}#))
- (if (not (null? #{y\ 2038}#))
- (if (eq? (car #{x\ 2037}#) (car #{y\ 2038}#))
- (#{same-marks?\ 299}#
- (cdr #{x\ 2037}#)
- (cdr #{y\ 2038}#))
+ #{id\ 5182}#))))))
+ (#{same-marks?\ 3556}#
+ (lambda (#{x\ 5294}# #{y\ 5295}#)
+ (let ((#{t\ 5300}# (eq? #{x\ 5294}# #{y\ 5295}#)))
+ (if #{t\ 5300}#
+ #{t\ 5300}#
+ (if (not (null? #{x\ 5294}#))
+ (if (not (null? #{y\ 5295}#))
+ (if (eq? (car #{x\ 5294}#) (car #{y\ 5295}#))
+ (#{same-marks?\ 3556}#
+ (cdr #{x\ 5294}#)
+ (cdr #{y\ 5295}#))
#f)
#f)
#f)))))
- (#{join-marks\ 297}#
- (lambda (#{m1\ 2049}# #{m2\ 2050}#)
- (#{smart-append\ 293}# #{m1\ 2049}# #{m2\ 2050}#)))
- (#{join-wraps\ 295}#
- (lambda (#{w1\ 2053}# #{w2\ 2054}#)
- (let ((#{m1\ 2059}# (#{wrap-marks\ 251}# #{w1\ 2053}#))
- (#{s1\ 2060}# (#{wrap-subst\ 253}# #{w1\ 2053}#)))
- (if (null? #{m1\ 2059}#)
- (if (null? #{s1\ 2060}#)
- #{w2\ 2054}#
- (#{make-wrap\ 249}#
- (#{wrap-marks\ 251}# #{w2\ 2054}#)
- (#{smart-append\ 293}#
- #{s1\ 2060}#
- (#{wrap-subst\ 253}# #{w2\ 2054}#))))
- (#{make-wrap\ 249}#
- (#{smart-append\ 293}#
- #{m1\ 2059}#
- (#{wrap-marks\ 251}# #{w2\ 2054}#))
- (#{smart-append\ 293}#
- #{s1\ 2060}#
- (#{wrap-subst\ 253}# #{w2\ 2054}#)))))))
- (#{smart-append\ 293}#
- (lambda (#{m1\ 2061}# #{m2\ 2062}#)
- (if (null? #{m2\ 2062}#)
- #{m1\ 2061}#
- (append #{m1\ 2061}# #{m2\ 2062}#))))
- (#{make-binding-wrap\ 291}#
- (lambda (#{ids\ 2065}# #{labels\ 2066}# #{w\ 2067}#)
- (if (null? #{ids\ 2065}#)
- #{w\ 2067}#
- (#{make-wrap\ 249}#
- (#{wrap-marks\ 251}# #{w\ 2067}#)
- (cons (let ((#{labelvec\ 2072}#
- (list->vector #{labels\ 2066}#)))
- (let ((#{n\ 2074}#
- (vector-length #{labelvec\ 2072}#)))
- (let ((#{symnamevec\ 2077}#
- (make-vector #{n\ 2074}#))
- (#{marksvec\ 2078}#
- (make-vector #{n\ 2074}#)))
+ (#{join-marks\ 3554}#
+ (lambda (#{m1\ 5306}# #{m2\ 5307}#)
+ (#{smart-append\ 3550}#
+ #{m1\ 5306}#
+ #{m2\ 5307}#)))
+ (#{join-wraps\ 3552}#
+ (lambda (#{w1\ 5310}# #{w2\ 5311}#)
+ (let ((#{m1\ 5316}#
+ (#{wrap-marks\ 3508}# #{w1\ 5310}#))
+ (#{s1\ 5317}#
+ (#{wrap-subst\ 3510}# #{w1\ 5310}#)))
+ (if (null? #{m1\ 5316}#)
+ (if (null? #{s1\ 5317}#)
+ #{w2\ 5311}#
+ (#{make-wrap\ 3506}#
+ (#{wrap-marks\ 3508}# #{w2\ 5311}#)
+ (#{smart-append\ 3550}#
+ #{s1\ 5317}#
+ (#{wrap-subst\ 3510}# #{w2\ 5311}#))))
+ (#{make-wrap\ 3506}#
+ (#{smart-append\ 3550}#
+ #{m1\ 5316}#
+ (#{wrap-marks\ 3508}# #{w2\ 5311}#))
+ (#{smart-append\ 3550}#
+ #{s1\ 5317}#
+ (#{wrap-subst\ 3510}# #{w2\ 5311}#)))))))
+ (#{smart-append\ 3550}#
+ (lambda (#{m1\ 5318}# #{m2\ 5319}#)
+ (if (null? #{m2\ 5319}#)
+ #{m1\ 5318}#
+ (append #{m1\ 5318}# #{m2\ 5319}#))))
+ (#{make-binding-wrap\ 3548}#
+ (lambda (#{ids\ 5322}# #{labels\ 5323}# #{w\ 5324}#)
+ (if (null? #{ids\ 5322}#)
+ #{w\ 5324}#
+ (#{make-wrap\ 3506}#
+ (#{wrap-marks\ 3508}# #{w\ 5324}#)
+ (cons (let ((#{labelvec\ 5329}#
+ (list->vector #{labels\ 5323}#)))
+ (let ((#{n\ 5331}#
+ (vector-length #{labelvec\ 5329}#)))
+ (let ((#{symnamevec\ 5334}#
+ (make-vector #{n\ 5331}#))
+ (#{marksvec\ 5335}#
+ (make-vector #{n\ 5331}#)))
(begin
- (letrec ((#{f\ 2082}#
- (lambda (#{ids\ 2083}# #{i\ 2084}#)
- (if (not (null? #{ids\ 2083}#))
+ (letrec ((#{f\ 5339}#
+ (lambda (#{ids\ 5340}# #{i\ 5341}#)
+ (if (not (null? #{ids\ 5340}#))
(call-with-values
(lambda ()
- (#{id-sym-name&marks\ 247}#
- (car #{ids\ 2083}#)
- #{w\ 2067}#))
- (lambda (#{symname\ 2085}#
- #{marks\ 2086}#)
+ (#{id-sym-name&marks\ 3504}#
+ (car #{ids\ 5340}#)
+ #{w\ 5324}#))
+ (lambda (#{symname\ 5342}#
+ #{marks\ 5343}#)
(begin
(vector-set!
- #{symnamevec\ 2077}#
- #{i\ 2084}#
- #{symname\ 2085}#)
+ #{symnamevec\ 5334}#
+ #{i\ 5341}#
+ #{symname\ 5342}#)
(vector-set!
- #{marksvec\ 2078}#
- #{i\ 2084}#
- #{marks\ 2086}#)
- (#{f\ 2082}#
- (cdr #{ids\ 2083}#)
- (#{fx+\ 145}#
- #{i\ 2084}#
+ #{marksvec\ 5335}#
+ #{i\ 5341}#
+ #{marks\ 5343}#)
+ (#{f\ 5339}#
+ (cdr #{ids\ 5340}#)
+ (#{fx+\ 3402}#
+ #{i\ 5341}#
1)))))))))
- (#{f\ 2082}# #{ids\ 2065}# 0))
- (#{make-ribcage\ 265}#
- #{symnamevec\ 2077}#
- #{marksvec\ 2078}#
- #{labelvec\ 2072}#)))))
- (#{wrap-subst\ 253}# #{w\ 2067}#))))))
- (#{extend-ribcage!\ 289}#
- (lambda (#{ribcage\ 2089}# #{id\ 2090}# #{label\ 2091}#)
+ (#{f\ 5339}# #{ids\ 5322}# 0))
+ (#{make-ribcage\ 3522}#
+ #{symnamevec\ 5334}#
+ #{marksvec\ 5335}#
+ #{labelvec\ 5329}#)))))
+ (#{wrap-subst\ 3510}# #{w\ 5324}#))))))
+ (#{extend-ribcage!\ 3546}#
+ (lambda (#{ribcage\ 5346}# #{id\ 5347}# #{label\ 5348}#)
(begin
- (#{set-ribcage-symnames!\ 275}#
- #{ribcage\ 2089}#
- (cons (#{syntax-object-expression\ 210}# #{id\ 2090}#)
- (#{ribcage-symnames\ 269}# #{ribcage\ 2089}#)))
- (#{set-ribcage-marks!\ 277}#
- #{ribcage\ 2089}#
- (cons (#{wrap-marks\ 251}#
- (#{syntax-object-wrap\ 212}# #{id\ 2090}#))
- (#{ribcage-marks\ 271}# #{ribcage\ 2089}#)))
- (#{set-ribcage-labels!\ 279}#
- #{ribcage\ 2089}#
- (cons #{label\ 2091}#
- (#{ribcage-labels\ 273}# #{ribcage\ 2089}#))))))
- (#{anti-mark\ 285}#
- (lambda (#{w\ 2095}#)
- (#{make-wrap\ 249}#
- (cons #f (#{wrap-marks\ 251}# #{w\ 2095}#))
+ (#{set-ribcage-symnames!\ 3532}#
+ #{ribcage\ 5346}#
+ (cons (#{syntax-object-expression\ 3467}# #{id\ 5347}#)
+ (#{ribcage-symnames\ 3526}# #{ribcage\ 5346}#)))
+ (#{set-ribcage-marks!\ 3534}#
+ #{ribcage\ 5346}#
+ (cons (#{wrap-marks\ 3508}#
+ (#{syntax-object-wrap\ 3469}# #{id\ 5347}#))
+ (#{ribcage-marks\ 3528}# #{ribcage\ 5346}#)))
+ (#{set-ribcage-labels!\ 3536}#
+ #{ribcage\ 5346}#
+ (cons #{label\ 5348}#
+ (#{ribcage-labels\ 3530}# #{ribcage\ 5346}#))))))
+ (#{anti-mark\ 3542}#
+ (lambda (#{w\ 5352}#)
+ (#{make-wrap\ 3506}#
+ (cons #f (#{wrap-marks\ 3508}# #{w\ 5352}#))
(cons 'shift
- (#{wrap-subst\ 253}# #{w\ 2095}#)))))
- (#{set-ribcage-labels!\ 279}#
- (lambda (#{x\ 2098}# #{update\ 2099}#)
- (vector-set! #{x\ 2098}# 3 #{update\ 2099}#)))
- (#{set-ribcage-marks!\ 277}#
- (lambda (#{x\ 2102}# #{update\ 2103}#)
- (vector-set! #{x\ 2102}# 2 #{update\ 2103}#)))
- (#{set-ribcage-symnames!\ 275}#
- (lambda (#{x\ 2106}# #{update\ 2107}#)
- (vector-set! #{x\ 2106}# 1 #{update\ 2107}#)))
- (#{ribcage-labels\ 273}#
- (lambda (#{x\ 2110}#) (vector-ref #{x\ 2110}# 3)))
- (#{ribcage-marks\ 271}#
- (lambda (#{x\ 2112}#) (vector-ref #{x\ 2112}# 2)))
- (#{ribcage-symnames\ 269}#
- (lambda (#{x\ 2114}#) (vector-ref #{x\ 2114}# 1)))
- (#{ribcage?\ 267}#
- (lambda (#{x\ 2116}#)
- (if (vector? #{x\ 2116}#)
- (if (= (vector-length #{x\ 2116}#) 4)
- (eq? (vector-ref #{x\ 2116}# 0) (quote ribcage))
+ (#{wrap-subst\ 3510}# #{w\ 5352}#)))))
+ (#{set-ribcage-labels!\ 3536}#
+ (lambda (#{x\ 5355}# #{update\ 5356}#)
+ (vector-set! #{x\ 5355}# 3 #{update\ 5356}#)))
+ (#{set-ribcage-marks!\ 3534}#
+ (lambda (#{x\ 5359}# #{update\ 5360}#)
+ (vector-set! #{x\ 5359}# 2 #{update\ 5360}#)))
+ (#{set-ribcage-symnames!\ 3532}#
+ (lambda (#{x\ 5363}# #{update\ 5364}#)
+ (vector-set! #{x\ 5363}# 1 #{update\ 5364}#)))
+ (#{ribcage-labels\ 3530}#
+ (lambda (#{x\ 5367}#) (vector-ref #{x\ 5367}# 3)))
+ (#{ribcage-marks\ 3528}#
+ (lambda (#{x\ 5369}#) (vector-ref #{x\ 5369}# 2)))
+ (#{ribcage-symnames\ 3526}#
+ (lambda (#{x\ 5371}#) (vector-ref #{x\ 5371}# 1)))
+ (#{ribcage?\ 3524}#
+ (lambda (#{x\ 5373}#)
+ (if (vector? #{x\ 5373}#)
+ (if (= (vector-length #{x\ 5373}#) 4)
+ (eq? (vector-ref #{x\ 5373}# 0) (quote ribcage))
#f)
#f)))
- (#{make-ribcage\ 265}#
- (lambda (#{symnames\ 2121}#
- #{marks\ 2122}#
- #{labels\ 2123}#)
+ (#{make-ribcage\ 3522}#
+ (lambda (#{symnames\ 5378}#
+ #{marks\ 5379}#
+ #{labels\ 5380}#)
(vector
'ribcage
- #{symnames\ 2121}#
- #{marks\ 2122}#
- #{labels\ 2123}#)))
- (#{gen-labels\ 262}#
- (lambda (#{ls\ 2127}#)
- (if (null? #{ls\ 2127}#)
+ #{symnames\ 5378}#
+ #{marks\ 5379}#
+ #{labels\ 5380}#)))
+ (#{gen-labels\ 3519}#
+ (lambda (#{ls\ 5384}#)
+ (if (null? #{ls\ 5384}#)
'()
- (cons (#{gen-label\ 260}#)
- (#{gen-labels\ 262}# (cdr #{ls\ 2127}#))))))
- (#{gen-label\ 260}#
+ (cons (#{gen-label\ 3517}#)
+ (#{gen-labels\ 3519}# (cdr #{ls\ 5384}#))))))
+ (#{gen-label\ 3517}#
(lambda () (symbol->string (gensym "i"))))
- (#{wrap-subst\ 253}# cdr)
- (#{wrap-marks\ 251}# car)
- (#{make-wrap\ 249}# cons)
- (#{id-sym-name&marks\ 247}#
- (lambda (#{x\ 2129}# #{w\ 2130}#)
- (if (#{syntax-object?\ 208}# #{x\ 2129}#)
+ (#{wrap-subst\ 3510}# cdr)
+ (#{wrap-marks\ 3508}# car)
+ (#{make-wrap\ 3506}# cons)
+ (#{id-sym-name&marks\ 3504}#
+ (lambda (#{x\ 5386}# #{w\ 5387}#)
+ (if (#{syntax-object?\ 3465}# #{x\ 5386}#)
(values
- (#{syntax-object-expression\ 210}# #{x\ 2129}#)
- (#{join-marks\ 297}#
- (#{wrap-marks\ 251}# #{w\ 2130}#)
- (#{wrap-marks\ 251}#
- (#{syntax-object-wrap\ 212}# #{x\ 2129}#))))
+ (#{syntax-object-expression\ 3467}# #{x\ 5386}#)
+ (#{join-marks\ 3554}#
+ (#{wrap-marks\ 3508}# #{w\ 5387}#)
+ (#{wrap-marks\ 3508}#
+ (#{syntax-object-wrap\ 3469}# #{x\ 5386}#))))
(values
- #{x\ 2129}#
- (#{wrap-marks\ 251}# #{w\ 2130}#)))))
- (#{id?\ 244}#
- (lambda (#{x\ 2133}#)
- (if (symbol? #{x\ 2133}#)
+ #{x\ 5386}#
+ (#{wrap-marks\ 3508}# #{w\ 5387}#)))))
+ (#{id?\ 3501}#
+ (lambda (#{x\ 5390}#)
+ (if (symbol? #{x\ 5390}#)
#t
- (if (#{syntax-object?\ 208}# #{x\ 2133}#)
+ (if (#{syntax-object?\ 3465}# #{x\ 5390}#)
(symbol?
- (#{syntax-object-expression\ 210}# #{x\ 2133}#))
+ (#{syntax-object-expression\ 3467}# #{x\ 5390}#))
#f))))
- (#{nonsymbol-id?\ 242}#
- (lambda (#{x\ 2140}#)
- (if (#{syntax-object?\ 208}# #{x\ 2140}#)
+ (#{nonsymbol-id?\ 3499}#
+ (lambda (#{x\ 5397}#)
+ (if (#{syntax-object?\ 3465}# #{x\ 5397}#)
(symbol?
- (#{syntax-object-expression\ 210}# #{x\ 2140}#))
+ (#{syntax-object-expression\ 3467}# #{x\ 5397}#))
#f)))
- (#{global-extend\ 240}#
- (lambda (#{type\ 2144}# #{sym\ 2145}# #{val\ 2146}#)
- (#{put-global-definition-hook\ 158}#
- #{sym\ 2145}#
- #{type\ 2144}#
- #{val\ 2146}#)))
- (#{lookup\ 238}#
- (lambda (#{x\ 2150}# #{r\ 2151}# #{mod\ 2152}#)
- (let ((#{t\ 2158}# (assq #{x\ 2150}# #{r\ 2151}#)))
- (if #{t\ 2158}#
- (cdr #{t\ 2158}#)
- (if (symbol? #{x\ 2150}#)
- (let ((#{t\ 2164}#
- (#{get-global-definition-hook\ 160}#
- #{x\ 2150}#
- #{mod\ 2152}#)))
- (if #{t\ 2164}# #{t\ 2164}# (quote (global))))
+ (#{global-extend\ 3497}#
+ (lambda (#{type\ 5401}# #{sym\ 5402}# #{val\ 5403}#)
+ (#{put-global-definition-hook\ 3415}#
+ #{sym\ 5402}#
+ #{type\ 5401}#
+ #{val\ 5403}#)))
+ (#{lookup\ 3495}#
+ (lambda (#{x\ 5407}# #{r\ 5408}# #{mod\ 5409}#)
+ (let ((#{t\ 5415}# (assq #{x\ 5407}# #{r\ 5408}#)))
+ (if #{t\ 5415}#
+ (cdr #{t\ 5415}#)
+ (if (symbol? #{x\ 5407}#)
+ (let ((#{t\ 5421}#
+ (#{get-global-definition-hook\ 3417}#
+ #{x\ 5407}#
+ #{mod\ 5409}#)))
+ (if #{t\ 5421}# #{t\ 5421}# (quote (global))))
'(displaced-lexical))))))
- (#{macros-only-env\ 236}#
- (lambda (#{r\ 2169}#)
- (if (null? #{r\ 2169}#)
+ (#{macros-only-env\ 3493}#
+ (lambda (#{r\ 5426}#)
+ (if (null? #{r\ 5426}#)
'()
- (let ((#{a\ 2172}# (car #{r\ 2169}#)))
- (if (eq? (cadr #{a\ 2172}#) (quote macro))
- (cons #{a\ 2172}#
- (#{macros-only-env\ 236}# (cdr #{r\ 2169}#)))
- (#{macros-only-env\ 236}# (cdr #{r\ 2169}#)))))))
- (#{extend-var-env\ 234}#
- (lambda (#{labels\ 2173}# #{vars\ 2174}# #{r\ 2175}#)
- (if (null? #{labels\ 2173}#)
- #{r\ 2175}#
- (#{extend-var-env\ 234}#
- (cdr #{labels\ 2173}#)
- (cdr #{vars\ 2174}#)
- (cons (cons (car #{labels\ 2173}#)
- (cons (quote lexical) (car #{vars\ 2174}#)))
- #{r\ 2175}#)))))
- (#{extend-env\ 232}#
- (lambda (#{labels\ 2180}# #{bindings\ 2181}# #{r\ 2182}#)
- (if (null? #{labels\ 2180}#)
- #{r\ 2182}#
- (#{extend-env\ 232}#
- (cdr #{labels\ 2180}#)
- (cdr #{bindings\ 2181}#)
- (cons (cons (car #{labels\ 2180}#)
- (car #{bindings\ 2181}#))
- #{r\ 2182}#)))))
- (#{binding-value\ 229}# cdr)
- (#{binding-type\ 227}# car)
- (#{source-annotation\ 223}#
- (lambda (#{x\ 2186}#)
- (if (#{syntax-object?\ 208}# #{x\ 2186}#)
- (#{source-annotation\ 223}#
- (#{syntax-object-expression\ 210}# #{x\ 2186}#))
- (if (pair? #{x\ 2186}#)
- (let ((#{props\ 2193}# (source-properties #{x\ 2186}#)))
- (if (pair? #{props\ 2193}#) #{props\ 2193}# #f))
+ (let ((#{a\ 5429}# (car #{r\ 5426}#)))
+ (if (eq? (cadr #{a\ 5429}#) (quote macro))
+ (cons #{a\ 5429}#
+ (#{macros-only-env\ 3493}# (cdr #{r\ 5426}#)))
+ (#{macros-only-env\ 3493}# (cdr #{r\ 5426}#)))))))
+ (#{extend-var-env\ 3491}#
+ (lambda (#{labels\ 5430}# #{vars\ 5431}# #{r\ 5432}#)
+ (if (null? #{labels\ 5430}#)
+ #{r\ 5432}#
+ (#{extend-var-env\ 3491}#
+ (cdr #{labels\ 5430}#)
+ (cdr #{vars\ 5431}#)
+ (cons (cons (car #{labels\ 5430}#)
+ (cons (quote lexical) (car #{vars\ 5431}#)))
+ #{r\ 5432}#)))))
+ (#{extend-env\ 3489}#
+ (lambda (#{labels\ 5437}# #{bindings\ 5438}# #{r\ 5439}#)
+ (if (null? #{labels\ 5437}#)
+ #{r\ 5439}#
+ (#{extend-env\ 3489}#
+ (cdr #{labels\ 5437}#)
+ (cdr #{bindings\ 5438}#)
+ (cons (cons (car #{labels\ 5437}#)
+ (car #{bindings\ 5438}#))
+ #{r\ 5439}#)))))
+ (#{binding-value\ 3486}# cdr)
+ (#{binding-type\ 3484}# car)
+ (#{source-annotation\ 3480}#
+ (lambda (#{x\ 5443}#)
+ (if (#{syntax-object?\ 3465}# #{x\ 5443}#)
+ (#{source-annotation\ 3480}#
+ (#{syntax-object-expression\ 3467}# #{x\ 5443}#))
+ (if (pair? #{x\ 5443}#)
+ (let ((#{props\ 5450}# (source-properties #{x\ 5443}#)))
+ (if (pair? #{props\ 5450}#) #{props\ 5450}# #f))
#f))))
- (#{set-syntax-object-module!\ 220}#
- (lambda (#{x\ 2195}# #{update\ 2196}#)
- (vector-set! #{x\ 2195}# 3 #{update\ 2196}#)))
- (#{set-syntax-object-wrap!\ 218}#
- (lambda (#{x\ 2199}# #{update\ 2200}#)
- (vector-set! #{x\ 2199}# 2 #{update\ 2200}#)))
- (#{set-syntax-object-expression!\ 216}#
- (lambda (#{x\ 2203}# #{update\ 2204}#)
- (vector-set! #{x\ 2203}# 1 #{update\ 2204}#)))
- (#{syntax-object-module\ 214}#
- (lambda (#{x\ 2207}#) (vector-ref #{x\ 2207}# 3)))
- (#{syntax-object-wrap\ 212}#
- (lambda (#{x\ 2209}#) (vector-ref #{x\ 2209}# 2)))
- (#{syntax-object-expression\ 210}#
- (lambda (#{x\ 2211}#) (vector-ref #{x\ 2211}# 1)))
- (#{syntax-object?\ 208}#
- (lambda (#{x\ 2213}#)
- (if (vector? #{x\ 2213}#)
- (if (= (vector-length #{x\ 2213}#) 4)
- (eq? (vector-ref #{x\ 2213}# 0)
+ (#{set-syntax-object-module!\ 3477}#
+ (lambda (#{x\ 5452}# #{update\ 5453}#)
+ (vector-set! #{x\ 5452}# 3 #{update\ 5453}#)))
+ (#{set-syntax-object-wrap!\ 3475}#
+ (lambda (#{x\ 5456}# #{update\ 5457}#)
+ (vector-set! #{x\ 5456}# 2 #{update\ 5457}#)))
+ (#{set-syntax-object-expression!\ 3473}#
+ (lambda (#{x\ 5460}# #{update\ 5461}#)
+ (vector-set! #{x\ 5460}# 1 #{update\ 5461}#)))
+ (#{syntax-object-module\ 3471}#
+ (lambda (#{x\ 5464}#) (vector-ref #{x\ 5464}# 3)))
+ (#{syntax-object-wrap\ 3469}#
+ (lambda (#{x\ 5466}#) (vector-ref #{x\ 5466}# 2)))
+ (#{syntax-object-expression\ 3467}#
+ (lambda (#{x\ 5468}#) (vector-ref #{x\ 5468}# 1)))
+ (#{syntax-object?\ 3465}#
+ (lambda (#{x\ 5470}#)
+ (if (vector? #{x\ 5470}#)
+ (if (= (vector-length #{x\ 5470}#) 4)
+ (eq? (vector-ref #{x\ 5470}# 0)
'syntax-object)
#f)
#f)))
- (#{make-syntax-object\ 206}#
- (lambda (#{expression\ 2218}#
- #{wrap\ 2219}#
- #{module\ 2220}#)
+ (#{make-syntax-object\ 3463}#
+ (lambda (#{expression\ 5475}#
+ #{wrap\ 5476}#
+ #{module\ 5477}#)
(vector
'syntax-object
- #{expression\ 2218}#
- #{wrap\ 2219}#
- #{module\ 2220}#)))
- (#{build-letrec\ 202}#
- (lambda (#{src\ 2224}#
- #{ids\ 2225}#
- #{vars\ 2226}#
- #{val-exps\ 2227}#
- #{body-exp\ 2228}#)
- (if (null? #{vars\ 2226}#)
- #{body-exp\ 2228}#
- (let ((#{atom-key\ 2236}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2236}# (quote (c)))
+ #{expression\ 5475}#
+ #{wrap\ 5476}#
+ #{module\ 5477}#)))
+ (#{build-letrec\ 3459}#
+ (lambda (#{src\ 5481}#
+ #{ids\ 5482}#
+ #{vars\ 5483}#
+ #{val-exps\ 5484}#
+ #{body-exp\ 5485}#)
+ (if (null? #{vars\ 5483}#)
+ #{body-exp\ 5485}#
+ (let ((#{atom-key\ 5493}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5493}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 182}#
- #{ids\ 2225}#
- #{val-exps\ 2227}#)
+ #{maybe-name-value!\ 3439}#
+ #{ids\ 5482}#
+ #{val-exps\ 5484}#)
((@ (language tree-il) make-letrec)
- #{src\ 2224}#
- #{ids\ 2225}#
- #{vars\ 2226}#
- #{val-exps\ 2227}#
- #{body-exp\ 2228}#))
- (#{decorate-source\ 162}#
+ #{src\ 5481}#
+ #{ids\ 5482}#
+ #{vars\ 5483}#
+ #{val-exps\ 5484}#
+ #{body-exp\ 5485}#))
+ (#{decorate-source\ 3419}#
(list 'letrec
- (map list #{vars\ 2226}# #{val-exps\ 2227}#)
- #{body-exp\ 2228}#)
- #{src\ 2224}#))))))
- (#{build-named-let\ 200}#
- (lambda (#{src\ 2240}#
- #{ids\ 2241}#
- #{vars\ 2242}#
- #{val-exps\ 2243}#
- #{body-exp\ 2244}#)
- (let ((#{f\ 2254}# (car #{vars\ 2242}#))
- (#{f-name\ 2255}# (car #{ids\ 2241}#))
- (#{vars\ 2256}# (cdr #{vars\ 2242}#))
- (#{ids\ 2257}# (cdr #{ids\ 2241}#)))
- (let ((#{atom-key\ 2260}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2260}# (quote (c)))
- (let ((#{proc\ 2263}#
- (#{build-simple-lambda\ 186}#
- #{src\ 2240}#
- #{ids\ 2257}#
+ (map list #{vars\ 5483}# #{val-exps\ 5484}#)
+ #{body-exp\ 5485}#)
+ #{src\ 5481}#))))))
+ (#{build-named-let\ 3457}#
+ (lambda (#{src\ 5497}#
+ #{ids\ 5498}#
+ #{vars\ 5499}#
+ #{val-exps\ 5500}#
+ #{body-exp\ 5501}#)
+ (let ((#{f\ 5511}# (car #{vars\ 5499}#))
+ (#{f-name\ 5512}# (car #{ids\ 5498}#))
+ (#{vars\ 5513}# (cdr #{vars\ 5499}#))
+ (#{ids\ 5514}# (cdr #{ids\ 5498}#)))
+ (let ((#{atom-key\ 5517}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5517}# (quote (c)))
+ (let ((#{proc\ 5520}#
+ (#{build-simple-lambda\ 3443}#
+ #{src\ 5497}#
+ #{ids\ 5514}#
#f
- #{vars\ 2256}#
+ #{vars\ 5513}#
#f
- #{body-exp\ 2244}#)))
+ #{body-exp\ 5501}#)))
(begin
- (#{maybe-name-value!\ 182}#
- #{f-name\ 2255}#
- #{proc\ 2263}#)
+ (#{maybe-name-value!\ 3439}#
+ #{f-name\ 5512}#
+ #{proc\ 5520}#)
(for-each
- #{maybe-name-value!\ 182}#
- #{ids\ 2257}#
- #{val-exps\ 2243}#)
+ #{maybe-name-value!\ 3439}#
+ #{ids\ 5514}#
+ #{val-exps\ 5500}#)
((@ (language tree-il) make-letrec)
- #{src\ 2240}#
- (list #{f-name\ 2255}#)
- (list #{f\ 2254}#)
- (list #{proc\ 2263}#)
- (#{build-application\ 166}#
- #{src\ 2240}#
- (#{build-lexical-reference\ 172}#
+ #{src\ 5497}#
+ (list #{f-name\ 5512}#)
+ (list #{f\ 5511}#)
+ (list #{proc\ 5520}#)
+ (#{build-application\ 3423}#
+ #{src\ 5497}#
+ (#{build-lexical-reference\ 3429}#
'fun
- #{src\ 2240}#
- #{f-name\ 2255}#
- #{f\ 2254}#)
- #{val-exps\ 2243}#))))
- (#{decorate-source\ 162}#
+ #{src\ 5497}#
+ #{f-name\ 5512}#
+ #{f\ 5511}#)
+ #{val-exps\ 5500}#))))
+ (#{decorate-source\ 3419}#
(list 'letrec
- (list (list #{f\ 2254}#
+ (list (list #{f\ 5511}#
(list 'lambda
- #{vars\ 2256}#
- #{body-exp\ 2244}#)))
- (cons #{f\ 2254}# #{val-exps\ 2243}#))
- #{src\ 2240}#))))))
- (#{build-let\ 198}#
- (lambda (#{src\ 2266}#
- #{ids\ 2267}#
- #{vars\ 2268}#
- #{val-exps\ 2269}#
- #{body-exp\ 2270}#)
- (if (null? #{vars\ 2268}#)
- #{body-exp\ 2270}#
- (let ((#{atom-key\ 2278}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2278}# (quote (c)))
+ #{vars\ 5513}#
+ #{body-exp\ 5501}#)))
+ (cons #{f\ 5511}# #{val-exps\ 5500}#))
+ #{src\ 5497}#))))))
+ (#{build-let\ 3455}#
+ (lambda (#{src\ 5523}#
+ #{ids\ 5524}#
+ #{vars\ 5525}#
+ #{val-exps\ 5526}#
+ #{body-exp\ 5527}#)
+ (if (null? #{vars\ 5525}#)
+ #{body-exp\ 5527}#
+ (let ((#{atom-key\ 5535}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5535}# (quote (c)))
(begin
(for-each
- #{maybe-name-value!\ 182}#
- #{ids\ 2267}#
- #{val-exps\ 2269}#)
+ #{maybe-name-value!\ 3439}#
+ #{ids\ 5524}#
+ #{val-exps\ 5526}#)
((@ (language tree-il) make-let)
- #{src\ 2266}#
- #{ids\ 2267}#
- #{vars\ 2268}#
- #{val-exps\ 2269}#
- #{body-exp\ 2270}#))
- (#{decorate-source\ 162}#
+ #{src\ 5523}#
+ #{ids\ 5524}#
+ #{vars\ 5525}#
+ #{val-exps\ 5526}#
+ #{body-exp\ 5527}#))
+ (#{decorate-source\ 3419}#
(list 'let
- (map list #{vars\ 2268}# #{val-exps\ 2269}#)
- #{body-exp\ 2270}#)
- #{src\ 2266}#))))))
- (#{build-sequence\ 196}#
- (lambda (#{src\ 2282}# #{exps\ 2283}#)
- (if (null? (cdr #{exps\ 2283}#))
- (car #{exps\ 2283}#)
- (let ((#{atom-key\ 2288}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2288}# (quote (c)))
+ (map list #{vars\ 5525}# #{val-exps\ 5526}#)
+ #{body-exp\ 5527}#)
+ #{src\ 5523}#))))))
+ (#{build-sequence\ 3453}#
+ (lambda (#{src\ 5539}# #{exps\ 5540}#)
+ (if (null? (cdr #{exps\ 5540}#))
+ (car #{exps\ 5540}#)
+ (let ((#{atom-key\ 5545}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5545}# (quote (c)))
((@ (language tree-il) make-sequence)
- #{src\ 2282}#
- #{exps\ 2283}#)
- (#{decorate-source\ 162}#
- (cons (quote begin) #{exps\ 2283}#)
- #{src\ 2282}#))))))
- (#{build-data\ 194}#
- (lambda (#{src\ 2292}# #{exp\ 2293}#)
- (let ((#{atom-key\ 2298}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2298}# (quote (c)))
+ #{src\ 5539}#
+ #{exps\ 5540}#)
+ (#{decorate-source\ 3419}#
+ (cons (quote begin) #{exps\ 5540}#)
+ #{src\ 5539}#))))))
+ (#{build-data\ 3451}#
+ (lambda (#{src\ 5549}# #{exp\ 5550}#)
+ (let ((#{atom-key\ 5555}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5555}# (quote (c)))
((@ (language tree-il) make-const)
- #{src\ 2292}#
- #{exp\ 2293}#)
- (#{decorate-source\ 162}#
- (if (if (self-evaluating? #{exp\ 2293}#)
- (not (vector? #{exp\ 2293}#))
+ #{src\ 5549}#
+ #{exp\ 5550}#)
+ (#{decorate-source\ 3419}#
+ (if (if (self-evaluating? #{exp\ 5550}#)
+ (not (vector? #{exp\ 5550}#))
#f)
- #{exp\ 2293}#
- (list (quote quote) #{exp\ 2293}#))
- #{src\ 2292}#)))))
- (#{build-primref\ 192}#
- (lambda (#{src\ 2303}# #{name\ 2304}#)
+ #{exp\ 5550}#
+ (list (quote quote) #{exp\ 5550}#))
+ #{src\ 5549}#)))))
+ (#{build-primref\ 3449}#
+ (lambda (#{src\ 5560}# #{name\ 5561}#)
(if (equal?
(module-name (current-module))
'(guile))
- (let ((#{atom-key\ 2309}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2309}# (quote (c)))
+ (let ((#{atom-key\ 5566}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5566}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{src\ 2303}#
- #{name\ 2304}#)
- (#{decorate-source\ 162}#
- #{name\ 2304}#
- #{src\ 2303}#)))
- (let ((#{atom-key\ 2314}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2314}# (quote (c)))
+ #{src\ 5560}#
+ #{name\ 5561}#)
+ (#{decorate-source\ 3419}#
+ #{name\ 5561}#
+ #{src\ 5560}#)))
+ (let ((#{atom-key\ 5571}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5571}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{src\ 2303}#
+ #{src\ 5560}#
'(guile)
- #{name\ 2304}#
+ #{name\ 5561}#
#f)
- (#{decorate-source\ 162}#
- (list (quote @@) (quote (guile)) #{name\ 2304}#)
- #{src\ 2303}#))))))
- (#{build-lambda-case\ 190}#
- (lambda (#{src\ 2318}#
- #{req\ 2319}#
- #{opt\ 2320}#
- #{rest\ 2321}#
- #{kw\ 2322}#
- #{inits\ 2323}#
- #{vars\ 2324}#
- #{body\ 2325}#
- #{else-case\ 2326}#)
- (let ((#{atom-key\ 2338}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2338}# (quote (c)))
+ (#{decorate-source\ 3419}#
+ (list (quote @@) (quote (guile)) #{name\ 5561}#)
+ #{src\ 5560}#))))))
+ (#{build-lambda-case\ 3447}#
+ (lambda (#{src\ 5575}#
+ #{req\ 5576}#
+ #{opt\ 5577}#
+ #{rest\ 5578}#
+ #{kw\ 5579}#
+ #{inits\ 5580}#
+ #{vars\ 5581}#
+ #{body\ 5582}#
+ #{else-case\ 5583}#)
+ (let ((#{atom-key\ 5595}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5595}# (quote (c)))
((@ (language tree-il) make-lambda-case)
- #{src\ 2318}#
- #{req\ 2319}#
- #{opt\ 2320}#
- #{rest\ 2321}#
- #{kw\ 2322}#
- #{inits\ 2323}#
- #{vars\ 2324}#
- #{body\ 2325}#
- #{else-case\ 2326}#)
- (let ((#{nreq\ 2343}# (length #{req\ 2319}#)))
- (let ((#{nopt\ 2345}#
- (if #{opt\ 2320}# (length #{opt\ 2320}#) 0)))
- (let ((#{rest-idx\ 2347}#
- (if #{rest\ 2321}#
- (+ #{nreq\ 2343}# #{nopt\ 2345}#)
+ #{src\ 5575}#
+ #{req\ 5576}#
+ #{opt\ 5577}#
+ #{rest\ 5578}#
+ #{kw\ 5579}#
+ #{inits\ 5580}#
+ #{vars\ 5581}#
+ #{body\ 5582}#
+ #{else-case\ 5583}#)
+ (let ((#{nreq\ 5600}# (length #{req\ 5576}#)))
+ (let ((#{nopt\ 5602}#
+ (if #{opt\ 5577}# (length #{opt\ 5577}#) 0)))
+ (let ((#{rest-idx\ 5604}#
+ (if #{rest\ 5578}#
+ (+ #{nreq\ 5600}# #{nopt\ 5602}#)
#f)))
- (let ((#{allow-other-keys?\ 2351}#
- (if #{kw\ 2322}# (car #{kw\ 2322}#) #f)))
- (let ((#{kw-indices\ 2353}#
- (map (lambda (#{x\ 2354}#)
- (cons (car #{x\ 2354}#)
+ (let ((#{allow-other-keys?\ 5608}#
+ (if #{kw\ 5579}# (car #{kw\ 5579}#) #f)))
+ (let ((#{kw-indices\ 5610}#
+ (map (lambda (#{x\ 5611}#)
+ (cons (car #{x\ 5611}#)
(list-index
- #{vars\ 2324}#
- (caddr #{x\ 2354}#))))
- (if #{kw\ 2322}#
- (cdr #{kw\ 2322}#)
+ #{vars\ 5581}#
+ (caddr #{x\ 5611}#))))
+ (if #{kw\ 5579}#
+ (cdr #{kw\ 5579}#)
'()))))
- (let ((#{nargs\ 2357}#
+ (let ((#{nargs\ 5614}#
(apply max
- (+ #{nreq\ 2343}#
- #{nopt\ 2345}#
- (if #{rest\ 2321}# 1 0))
+ (+ #{nreq\ 5600}#
+ #{nopt\ 5602}#
+ (if #{rest\ 5578}# 1 0))
(map 1+
(map cdr
- #{kw-indices\ 2353}#)))))
+ #{kw-indices\ 5610}#)))))
(begin
- (let ((#{t\ 2360}#
- (= #{nargs\ 2357}#
- (length #{vars\ 2324}#)
- (+ #{nreq\ 2343}#
- (length #{inits\ 2323}#)
- (if #{rest\ 2321}# 1 0)))))
- (if #{t\ 2360}#
- #{t\ 2360}#
+ (let ((#{t\ 5617}#
+ (= #{nargs\ 5614}#
+ (length #{vars\ 5581}#)
+ (+ #{nreq\ 5600}#
+ (length #{inits\ 5580}#)
+ (if #{rest\ 5578}# 1 0)))))
+ (if #{t\ 5617}#
+ #{t\ 5617}#
(error "something went wrong"
- #{req\ 2319}#
- #{opt\ 2320}#
- #{rest\ 2321}#
- #{kw\ 2322}#
- #{inits\ 2323}#
- #{vars\ 2324}#
- #{nreq\ 2343}#
- #{nopt\ 2345}#
- #{kw-indices\ 2353}#
- #{nargs\ 2357}#)))
- (#{decorate-source\ 162}#
+ #{req\ 5576}#
+ #{opt\ 5577}#
+ #{rest\ 5578}#
+ #{kw\ 5579}#
+ #{inits\ 5580}#
+ #{vars\ 5581}#
+ #{nreq\ 5600}#
+ #{nopt\ 5602}#
+ #{kw-indices\ 5610}#
+ #{nargs\ 5614}#)))
+ (#{decorate-source\ 3419}#
(cons (list (cons '(@@ (ice-9 optargs)
parse-lambda-case)
(cons (list 'quote
- (list #{nreq\ 2343}#
- #{nopt\ 2345}#
- #{rest-idx\ 2347}#
- #{nargs\ 2357}#
- #{allow-other-keys?\ 2351}#
- #{kw-indices\ 2353}#))
+ (list #{nreq\ 5600}#
+ #{nopt\ 5602}#
+ #{rest-idx\ 5604}#
+ #{nargs\ 5614}#
+ #{allow-other-keys?\ 5608}#
+ #{kw-indices\ 5610}#))
(cons (cons 'list
- (map (lambda (#{i\ 2363}#)
+ (map (lambda (#{i\ 5620}#)
(list 'lambda
- #{vars\ 2324}#
- #{i\ 2363}#))
- #{inits\ 2323}#))
+ #{vars\ 5581}#
+ #{i\ 5620}#))
+ #{inits\ 5580}#))
'(%%args))))
'=>
(list 'lambda
'(%%args)
(cons 'apply
(cons (list 'lambda
- #{vars\ 2324}#
- #{body\ 2325}#)
+ #{vars\ 5581}#
+ #{body\ 5582}#)
'(%%args)))))
- (let ((#{t\ 2368}#
- #{else-case\ 2326}#))
- (if #{t\ 2368}#
- #{t\ 2368}#
+ (let ((#{t\ 5625}#
+ #{else-case\ 5583}#))
+ (if #{t\ 5625}#
+ #{t\ 5625}#
'((%%args
(scm-error
'wrong-number-of-args
"Wrong number of arguments"
'()
%%args))))))
- #{src\ 2318}#))))))))))))
- (#{build-case-lambda\ 188}#
- (lambda (#{src\ 2371}#
- #{docstring\ 2372}#
- #{body\ 2373}#)
- (let ((#{atom-key\ 2379}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2379}# (quote (c)))
+ #{src\ 5575}#))))))))))))
+ (#{build-case-lambda\ 3445}#
+ (lambda (#{src\ 5628}#
+ #{docstring\ 5629}#
+ #{body\ 5630}#)
+ (let ((#{atom-key\ 5636}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5636}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 2371}#
- (if #{docstring\ 2372}#
- (list (cons (quote documentation) #{docstring\ 2372}#))
+ #{src\ 5628}#
+ (if #{docstring\ 5629}#
+ (list (cons (quote documentation) #{docstring\ 5629}#))
'())
- #{body\ 2373}#)
- (#{decorate-source\ 162}#
+ #{body\ 5630}#)
+ (#{decorate-source\ 3419}#
(cons 'lambda
(cons '%%args
(append
- (if #{docstring\ 2372}#
- (list #{docstring\ 2372}#)
+ (if #{docstring\ 5629}#
+ (list #{docstring\ 5629}#)
'())
- (list (cons (quote cond) #{body\ 2373}#)))))
- #{src\ 2371}#)))))
- (#{build-simple-lambda\ 186}#
- (lambda (#{src\ 2384}#
- #{req\ 2385}#
- #{rest\ 2386}#
- #{vars\ 2387}#
- #{docstring\ 2388}#
- #{exp\ 2389}#)
- (let ((#{atom-key\ 2398}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2398}# (quote (c)))
+ (list (cons (quote cond) #{body\ 5630}#)))))
+ #{src\ 5628}#)))))
+ (#{build-simple-lambda\ 3443}#
+ (lambda (#{src\ 5641}#
+ #{req\ 5642}#
+ #{rest\ 5643}#
+ #{vars\ 5644}#
+ #{docstring\ 5645}#
+ #{exp\ 5646}#)
+ (let ((#{atom-key\ 5655}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5655}# (quote (c)))
((@ (language tree-il) make-lambda)
- #{src\ 2384}#
- (if #{docstring\ 2388}#
- (list (cons (quote documentation) #{docstring\ 2388}#))
+ #{src\ 5641}#
+ (if #{docstring\ 5645}#
+ (list (cons (quote documentation) #{docstring\ 5645}#))
'())
((@ (language tree-il) make-lambda-case)
- #{src\ 2384}#
- #{req\ 2385}#
+ #{src\ 5641}#
+ #{req\ 5642}#
#f
- #{rest\ 2386}#
+ #{rest\ 5643}#
#f
'()
- #{vars\ 2387}#
- #{exp\ 2389}#
+ #{vars\ 5644}#
+ #{exp\ 5646}#
#f))
- (#{decorate-source\ 162}#
+ (#{decorate-source\ 3419}#
(cons 'lambda
- (cons (if #{rest\ 2386}#
- (apply cons* #{vars\ 2387}#)
- #{vars\ 2387}#)
+ (cons (if #{rest\ 5643}#
+ (apply cons* #{vars\ 5644}#)
+ #{vars\ 5644}#)
(append
- (if #{docstring\ 2388}#
- (list #{docstring\ 2388}#)
+ (if #{docstring\ 5645}#
+ (list #{docstring\ 5645}#)
'())
- (list #{exp\ 2389}#))))
- #{src\ 2384}#)))))
- (#{build-global-definition\ 184}#
- (lambda (#{source\ 2403}# #{var\ 2404}# #{exp\ 2405}#)
- (let ((#{atom-key\ 2411}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2411}# (quote (c)))
+ (list #{exp\ 5646}#))))
+ #{src\ 5641}#)))))
+ (#{build-global-definition\ 3441}#
+ (lambda (#{source\ 5660}# #{var\ 5661}# #{exp\ 5662}#)
+ (let ((#{atom-key\ 5668}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5668}# (quote (c)))
(begin
- (#{maybe-name-value!\ 182}#
- #{var\ 2404}#
- #{exp\ 2405}#)
+ (#{maybe-name-value!\ 3439}#
+ #{var\ 5661}#
+ #{exp\ 5662}#)
((@ (language tree-il) make-toplevel-define)
- #{source\ 2403}#
- #{var\ 2404}#
- #{exp\ 2405}#))
- (#{decorate-source\ 162}#
- (list (quote define) #{var\ 2404}# #{exp\ 2405}#)
- #{source\ 2403}#)))))
- (#{maybe-name-value!\ 182}#
- (lambda (#{name\ 2415}# #{val\ 2416}#)
- (if ((@ (language tree-il) lambda?) #{val\ 2416}#)
- (let ((#{meta\ 2422}#
+ #{source\ 5660}#
+ #{var\ 5661}#
+ #{exp\ 5662}#))
+ (#{decorate-source\ 3419}#
+ (list (quote define) #{var\ 5661}# #{exp\ 5662}#)
+ #{source\ 5660}#)))))
+ (#{maybe-name-value!\ 3439}#
+ (lambda (#{name\ 5672}# #{val\ 5673}#)
+ (if ((@ (language tree-il) lambda?) #{val\ 5673}#)
+ (let ((#{meta\ 5679}#
((@ (language tree-il) lambda-meta)
- #{val\ 2416}#)))
- (if (not (assq (quote name) #{meta\ 2422}#))
+ #{val\ 5673}#)))
+ (if (not (assq (quote name) #{meta\ 5679}#))
((setter (@ (language tree-il) lambda-meta))
- #{val\ 2416}#
+ #{val\ 5673}#
(acons 'name
- #{name\ 2415}#
- #{meta\ 2422}#)))))))
- (#{build-global-assignment\ 180}#
- (lambda (#{source\ 2423}#
- #{var\ 2424}#
- #{exp\ 2425}#
- #{mod\ 2426}#)
- (#{analyze-variable\ 176}#
- #{mod\ 2426}#
- #{var\ 2424}#
- (lambda (#{mod\ 2431}# #{var\ 2432}# #{public?\ 2433}#)
- (let ((#{atom-key\ 2439}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2439}# (quote (c)))
+ #{name\ 5672}#
+ #{meta\ 5679}#)))))))
+ (#{build-global-assignment\ 3437}#
+ (lambda (#{source\ 5680}#
+ #{var\ 5681}#
+ #{exp\ 5682}#
+ #{mod\ 5683}#)
+ (#{analyze-variable\ 3433}#
+ #{mod\ 5683}#
+ #{var\ 5681}#
+ (lambda (#{mod\ 5688}# #{var\ 5689}# #{public?\ 5690}#)
+ (let ((#{atom-key\ 5696}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5696}# (quote (c)))
((@ (language tree-il) make-module-set)
- #{source\ 2423}#
- #{mod\ 2431}#
- #{var\ 2432}#
- #{public?\ 2433}#
- #{exp\ 2425}#)
- (#{decorate-source\ 162}#
+ #{source\ 5680}#
+ #{mod\ 5688}#
+ #{var\ 5689}#
+ #{public?\ 5690}#
+ #{exp\ 5682}#)
+ (#{decorate-source\ 3419}#
(list 'set!
- (list (if #{public?\ 2433}#
+ (list (if #{public?\ 5690}#
'@
'@@)
- #{mod\ 2431}#
- #{var\ 2432}#)
- #{exp\ 2425}#)
- #{source\ 2423}#))))
- (lambda (#{var\ 2443}#)
- (let ((#{atom-key\ 2447}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2447}# (quote (c)))
+ #{mod\ 5688}#
+ #{var\ 5689}#)
+ #{exp\ 5682}#)
+ #{source\ 5680}#))))
+ (lambda (#{var\ 5700}#)
+ (let ((#{atom-key\ 5704}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5704}# (quote (c)))
((@ (language tree-il) make-toplevel-set)
- #{source\ 2423}#
- #{var\ 2443}#
- #{exp\ 2425}#)
- (#{decorate-source\ 162}#
- (list (quote set!) #{var\ 2443}# #{exp\ 2425}#)
- #{source\ 2423}#)))))))
- (#{build-global-reference\ 178}#
- (lambda (#{source\ 2451}# #{var\ 2452}# #{mod\ 2453}#)
- (#{analyze-variable\ 176}#
- #{mod\ 2453}#
- #{var\ 2452}#
- (lambda (#{mod\ 2457}# #{var\ 2458}# #{public?\ 2459}#)
- (let ((#{atom-key\ 2465}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2465}# (quote (c)))
+ #{source\ 5680}#
+ #{var\ 5700}#
+ #{exp\ 5682}#)
+ (#{decorate-source\ 3419}#
+ (list (quote set!) #{var\ 5700}# #{exp\ 5682}#)
+ #{source\ 5680}#)))))))
+ (#{build-global-reference\ 3435}#
+ (lambda (#{source\ 5708}# #{var\ 5709}# #{mod\ 5710}#)
+ (#{analyze-variable\ 3433}#
+ #{mod\ 5710}#
+ #{var\ 5709}#
+ (lambda (#{mod\ 5714}# #{var\ 5715}# #{public?\ 5716}#)
+ (let ((#{atom-key\ 5722}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5722}# (quote (c)))
((@ (language tree-il) make-module-ref)
- #{source\ 2451}#
- #{mod\ 2457}#
- #{var\ 2458}#
- #{public?\ 2459}#)
- (#{decorate-source\ 162}#
- (list (if #{public?\ 2459}# (quote @) (quote @@))
- #{mod\ 2457}#
- #{var\ 2458}#)
- #{source\ 2451}#))))
- (lambda (#{var\ 2468}#)
- (let ((#{atom-key\ 2472}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2472}# (quote (c)))
+ #{source\ 5708}#
+ #{mod\ 5714}#
+ #{var\ 5715}#
+ #{public?\ 5716}#)
+ (#{decorate-source\ 3419}#
+ (list (if #{public?\ 5716}# (quote @) (quote @@))
+ #{mod\ 5714}#
+ #{var\ 5715}#)
+ #{source\ 5708}#))))
+ (lambda (#{var\ 5725}#)
+ (let ((#{atom-key\ 5729}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5729}# (quote (c)))
((@ (language tree-il) make-toplevel-ref)
- #{source\ 2451}#
- #{var\ 2468}#)
- (#{decorate-source\ 162}#
- #{var\ 2468}#
- #{source\ 2451}#)))))))
- (#{analyze-variable\ 176}#
- (lambda (#{mod\ 2475}#
- #{var\ 2476}#
- #{modref-cont\ 2477}#
- #{bare-cont\ 2478}#)
- (if (not #{mod\ 2475}#)
- (#{bare-cont\ 2478}# #{var\ 2476}#)
- (let ((#{kind\ 2485}# (car #{mod\ 2475}#))
- (#{mod\ 2486}# (cdr #{mod\ 2475}#)))
- (if (memv #{kind\ 2485}# (quote (public)))
- (#{modref-cont\ 2477}#
- #{mod\ 2486}#
- #{var\ 2476}#
+ #{source\ 5708}#
+ #{var\ 5725}#)
+ (#{decorate-source\ 3419}#
+ #{var\ 5725}#
+ #{source\ 5708}#)))))))
+ (#{analyze-variable\ 3433}#
+ (lambda (#{mod\ 5732}#
+ #{var\ 5733}#
+ #{modref-cont\ 5734}#
+ #{bare-cont\ 5735}#)
+ (if (not #{mod\ 5732}#)
+ (#{bare-cont\ 5735}# #{var\ 5733}#)
+ (let ((#{kind\ 5742}# (car #{mod\ 5732}#))
+ (#{mod\ 5743}# (cdr #{mod\ 5732}#)))
+ (if (memv #{kind\ 5742}# (quote (public)))
+ (#{modref-cont\ 5734}#
+ #{mod\ 5743}#
+ #{var\ 5733}#
#t)
- (if (memv #{kind\ 2485}# (quote (private)))
+ (if (memv #{kind\ 5742}# (quote (private)))
(if (not (equal?
- #{mod\ 2486}#
+ #{mod\ 5743}#
(module-name (current-module))))
- (#{modref-cont\ 2477}#
- #{mod\ 2486}#
- #{var\ 2476}#
+ (#{modref-cont\ 5734}#
+ #{mod\ 5743}#
+ #{var\ 5733}#
#f)
- (#{bare-cont\ 2478}# #{var\ 2476}#))
- (if (memv #{kind\ 2485}# (quote (bare)))
- (#{bare-cont\ 2478}# #{var\ 2476}#)
- (if (memv #{kind\ 2485}# (quote (hygiene)))
+ (#{bare-cont\ 5735}# #{var\ 5733}#))
+ (if (memv #{kind\ 5742}# (quote (bare)))
+ (#{bare-cont\ 5735}# #{var\ 5733}#)
+ (if (memv #{kind\ 5742}# (quote (hygiene)))
(if (if (not (equal?
- #{mod\ 2486}#
+ #{mod\ 5743}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod\ 2486}#)
- #{var\ 2476}#)
+ (resolve-module #{mod\ 5743}#)
+ #{var\ 5733}#)
#f)
- (#{modref-cont\ 2477}#
- #{mod\ 2486}#
- #{var\ 2476}#
+ (#{modref-cont\ 5734}#
+ #{mod\ 5743}#
+ #{var\ 5733}#
#f)
- (#{bare-cont\ 2478}# #{var\ 2476}#))
+ (#{bare-cont\ 5735}# #{var\ 5733}#))
(syntax-violation
#f
"bad module kind"
- #{var\ 2476}#
- #{mod\ 2486}#)))))))))
- (#{build-lexical-assignment\ 174}#
- (lambda (#{source\ 2494}#
- #{name\ 2495}#
- #{var\ 2496}#
- #{exp\ 2497}#)
- (let ((#{atom-key\ 2504}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2504}# (quote (c)))
+ #{var\ 5733}#
+ #{mod\ 5743}#)))))))))
+ (#{build-lexical-assignment\ 3431}#
+ (lambda (#{source\ 5751}#
+ #{name\ 5752}#
+ #{var\ 5753}#
+ #{exp\ 5754}#)
+ (let ((#{atom-key\ 5761}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5761}# (quote (c)))
((@ (language tree-il) make-lexical-set)
- #{source\ 2494}#
- #{name\ 2495}#
- #{var\ 2496}#
- #{exp\ 2497}#)
- (#{decorate-source\ 162}#
- (list (quote set!) #{var\ 2496}# #{exp\ 2497}#)
- #{source\ 2494}#)))))
- (#{build-lexical-reference\ 172}#
- (lambda (#{type\ 2508}#
- #{source\ 2509}#
- #{name\ 2510}#
- #{var\ 2511}#)
- (let ((#{atom-key\ 2518}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2518}# (quote (c)))
+ #{source\ 5751}#
+ #{name\ 5752}#
+ #{var\ 5753}#
+ #{exp\ 5754}#)
+ (#{decorate-source\ 3419}#
+ (list (quote set!) #{var\ 5753}# #{exp\ 5754}#)
+ #{source\ 5751}#)))))
+ (#{build-lexical-reference\ 3429}#
+ (lambda (#{type\ 5765}#
+ #{source\ 5766}#
+ #{name\ 5767}#
+ #{var\ 5768}#)
+ (let ((#{atom-key\ 5775}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5775}# (quote (c)))
((@ (language tree-il) make-lexical-ref)
- #{source\ 2509}#
- #{name\ 2510}#
- #{var\ 2511}#)
- (#{decorate-source\ 162}#
- #{var\ 2511}#
- #{source\ 2509}#)))))
- (#{build-dynlet\ 170}#
- (lambda (#{source\ 2521}#
- #{fluids\ 2522}#
- #{vals\ 2523}#
- #{body\ 2524}#)
- (let ((#{atom-key\ 2531}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2531}# (quote (c)))
+ #{source\ 5766}#
+ #{name\ 5767}#
+ #{var\ 5768}#)
+ (#{decorate-source\ 3419}#
+ #{var\ 5768}#
+ #{source\ 5766}#)))))
+ (#{build-dynlet\ 3427}#
+ (lambda (#{source\ 5778}#
+ #{fluids\ 5779}#
+ #{vals\ 5780}#
+ #{body\ 5781}#)
+ (let ((#{atom-key\ 5788}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5788}# (quote (c)))
((@ (language tree-il) make-dynlet)
- #{source\ 2521}#
- #{fluids\ 2522}#
- #{vals\ 2523}#
- #{body\ 2524}#)
- (#{decorate-source\ 162}#
+ #{source\ 5778}#
+ #{fluids\ 5779}#
+ #{vals\ 5780}#
+ #{body\ 5781}#)
+ (#{decorate-source\ 3419}#
(list 'with-fluids
- (map list #{fluids\ 2522}# #{vals\ 2523}#)
- #{body\ 2524}#)
- #{source\ 2521}#)))))
- (#{build-conditional\ 168}#
- (lambda (#{source\ 2535}#
- #{test-exp\ 2536}#
- #{then-exp\ 2537}#
- #{else-exp\ 2538}#)
- (let ((#{atom-key\ 2545}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2545}# (quote (c)))
+ (map list #{fluids\ 5779}# #{vals\ 5780}#)
+ #{body\ 5781}#)
+ #{source\ 5778}#)))))
+ (#{build-conditional\ 3425}#
+ (lambda (#{source\ 5792}#
+ #{test-exp\ 5793}#
+ #{then-exp\ 5794}#
+ #{else-exp\ 5795}#)
+ (let ((#{atom-key\ 5802}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5802}# (quote (c)))
((@ (language tree-il) make-conditional)
- #{source\ 2535}#
- #{test-exp\ 2536}#
- #{then-exp\ 2537}#
- #{else-exp\ 2538}#)
- (#{decorate-source\ 162}#
- (if (equal? #{else-exp\ 2538}# (quote (if #f #f)))
+ #{source\ 5792}#
+ #{test-exp\ 5793}#
+ #{then-exp\ 5794}#
+ #{else-exp\ 5795}#)
+ (#{decorate-source\ 3419}#
+ (if (equal? #{else-exp\ 5795}# (quote (if #f #f)))
(list 'if
- #{test-exp\ 2536}#
- #{then-exp\ 2537}#)
+ #{test-exp\ 5793}#
+ #{then-exp\ 5794}#)
(list 'if
- #{test-exp\ 2536}#
- #{then-exp\ 2537}#
- #{else-exp\ 2538}#))
- #{source\ 2535}#)))))
- (#{build-application\ 166}#
- (lambda (#{source\ 2550}#
- #{fun-exp\ 2551}#
- #{arg-exps\ 2552}#)
- (let ((#{atom-key\ 2558}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2558}# (quote (c)))
+ #{test-exp\ 5793}#
+ #{then-exp\ 5794}#
+ #{else-exp\ 5795}#))
+ #{source\ 5792}#)))))
+ (#{build-application\ 3423}#
+ (lambda (#{source\ 5807}#
+ #{fun-exp\ 5808}#
+ #{arg-exps\ 5809}#)
+ (let ((#{atom-key\ 5815}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5815}# (quote (c)))
((@ (language tree-il) make-application)
- #{source\ 2550}#
- #{fun-exp\ 2551}#
- #{arg-exps\ 2552}#)
- (#{decorate-source\ 162}#
- (cons #{fun-exp\ 2551}# #{arg-exps\ 2552}#)
- #{source\ 2550}#)))))
- (#{build-void\ 164}#
- (lambda (#{source\ 2562}#)
- (let ((#{atom-key\ 2566}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2566}# (quote (c)))
+ #{source\ 5807}#
+ #{fun-exp\ 5808}#
+ #{arg-exps\ 5809}#)
+ (#{decorate-source\ 3419}#
+ (cons #{fun-exp\ 5808}# #{arg-exps\ 5809}#)
+ #{source\ 5807}#)))))
+ (#{build-void\ 3421}#
+ (lambda (#{source\ 5819}#)
+ (let ((#{atom-key\ 5823}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5823}# (quote (c)))
((@ (language tree-il) make-void)
- #{source\ 2562}#)
- (#{decorate-source\ 162}#
+ #{source\ 5819}#)
+ (#{decorate-source\ 3419}#
'(if #f #f)
- #{source\ 2562}#)))))
- (#{decorate-source\ 162}#
- (lambda (#{e\ 2569}# #{s\ 2570}#)
+ #{source\ 5819}#)))))
+ (#{decorate-source\ 3419}#
+ (lambda (#{e\ 5826}# #{s\ 5827}#)
(begin
- (if (if (pair? #{e\ 2569}#) #{s\ 2570}# #f)
- (set-source-properties! #{e\ 2569}# #{s\ 2570}#))
- #{e\ 2569}#)))
- (#{get-global-definition-hook\ 160}#
- (lambda (#{symbol\ 2575}# #{module\ 2576}#)
+ (if (if (pair? #{e\ 5826}#) #{s\ 5827}# #f)
+ (set-source-properties! #{e\ 5826}# #{s\ 5827}#))
+ #{e\ 5826}#)))
+ (#{get-global-definition-hook\ 3417}#
+ (lambda (#{symbol\ 5832}# #{module\ 5833}#)
(begin
- (if (if (not #{module\ 2576}#) (current-module) #f)
+ (if (if (not #{module\ 5833}#) (current-module) #f)
(warn "module system is booted, we should have a module"
- #{symbol\ 2575}#))
- (let ((#{v\ 2582}#
+ #{symbol\ 5832}#))
+ (let ((#{v\ 5839}#
(module-variable
- (if #{module\ 2576}#
- (resolve-module (cdr #{module\ 2576}#))
+ (if #{module\ 5833}#
+ (resolve-module (cdr #{module\ 5833}#))
(current-module))
- #{symbol\ 2575}#)))
- (if #{v\ 2582}#
- (if (variable-bound? #{v\ 2582}#)
- (let ((#{val\ 2587}# (variable-ref #{v\ 2582}#)))
- (if (macro? #{val\ 2587}#)
- (if (macro-type #{val\ 2587}#)
- (cons (macro-type #{val\ 2587}#)
- (macro-binding #{val\ 2587}#))
+ #{symbol\ 5832}#)))
+ (if #{v\ 5839}#
+ (if (variable-bound? #{v\ 5839}#)
+ (let ((#{val\ 5844}# (variable-ref #{v\ 5839}#)))
+ (if (macro? #{val\ 5844}#)
+ (if (macro-type #{val\ 5844}#)
+ (cons (macro-type #{val\ 5844}#)
+ (macro-binding #{val\ 5844}#))
#f)
#f))
#f)
#f)))))
- (#{put-global-definition-hook\ 158}#
- (lambda (#{symbol\ 2591}# #{type\ 2592}# #{val\ 2593}#)
+ (#{put-global-definition-hook\ 3415}#
+ (lambda (#{symbol\ 5848}# #{type\ 5849}# #{val\ 5850}#)
(module-define!
(current-module)
- #{symbol\ 2591}#
+ #{symbol\ 5848}#
(make-syntax-transformer
- #{symbol\ 2591}#
- #{type\ 2592}#
- #{val\ 2593}#))))
- (#{local-eval-hook\ 155}#
- (lambda (#{x\ 2597}# #{mod\ 2598}#)
+ #{symbol\ 5848}#
+ #{type\ 5849}#
+ #{val\ 5850}#))))
+ (#{local-eval-hook\ 3412}#
+ (lambda (#{x\ 5854}# #{mod\ 5855}#)
(primitive-eval
- (list #{noexpand\ 141}#
- (let ((#{atom-key\ 2604}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2604}# (quote (c)))
+ (list #{noexpand\ 3398}#
+ (let ((#{atom-key\ 5861}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5861}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 2597}#)
- #{x\ 2597}#))))))
- (#{top-level-eval-hook\ 153}#
- (lambda (#{x\ 2607}# #{mod\ 2608}#)
+ #{x\ 5854}#)
+ #{x\ 5854}#))))))
+ (#{top-level-eval-hook\ 3410}#
+ (lambda (#{x\ 5864}# #{mod\ 5865}#)
(primitive-eval
- (list #{noexpand\ 141}#
- (let ((#{atom-key\ 2614}# (fluid-ref #{*mode*\ 143}#)))
- (if (memv #{atom-key\ 2614}# (quote (c)))
+ (list #{noexpand\ 3398}#
+ (let ((#{atom-key\ 5871}# (fluid-ref #{*mode*\ 3400}#)))
+ (if (memv #{atom-key\ 5871}# (quote (c)))
((@ (language tree-il) tree-il->scheme)
- #{x\ 2607}#)
- #{x\ 2607}#))))))
- (#{fx<\ 151}# <)
- (#{fx=\ 149}# =)
- (#{fx-\ 147}# -)
- (#{fx+\ 145}# +)
- (#{*mode*\ 143}# (make-fluid))
- (#{noexpand\ 141}# "noexpand"))
+ #{x\ 5864}#)
+ #{x\ 5864}#))))))
+ (#{fx<\ 3408}# <)
+ (#{fx=\ 3406}# =)
+ (#{fx-\ 3404}# -)
+ (#{fx+\ 3402}# +)
+ (#{*mode*\ 3400}# (make-fluid))
+ (#{noexpand\ 3398}# "noexpand"))
(begin
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'local-syntax
'letrec-syntax
#t)
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'local-syntax
'let-syntax
#f)
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'core
'fluid-let-syntax
- (lambda (#{e\ 2617}#
- #{r\ 2618}#
- #{w\ 2619}#
- #{s\ 2620}#
- #{mod\ 2621}#)
- ((lambda (#{tmp\ 2627}#)
- ((lambda (#{tmp\ 2628}#)
- (if (if #{tmp\ 2628}#
- (apply (lambda (#{_\ 2634}#
- #{var\ 2635}#
- #{val\ 2636}#
- #{e1\ 2637}#
- #{e2\ 2638}#)
- (#{valid-bound-ids?\ 307}# #{var\ 2635}#))
- #{tmp\ 2628}#)
+ (lambda (#{e\ 5874}#
+ #{r\ 5875}#
+ #{w\ 5876}#
+ #{s\ 5877}#
+ #{mod\ 5878}#)
+ ((lambda (#{tmp\ 5884}#)
+ ((lambda (#{tmp\ 5885}#)
+ (if (if #{tmp\ 5885}#
+ (apply (lambda (#{_\ 5891}#
+ #{var\ 5892}#
+ #{val\ 5893}#
+ #{e1\ 5894}#
+ #{e2\ 5895}#)
+ (#{valid-bound-ids?\ 3564}# #{var\ 5892}#))
+ #{tmp\ 5885}#)
#f)
- (apply (lambda (#{_\ 2645}#
- #{var\ 2646}#
- #{val\ 2647}#
- #{e1\ 2648}#
- #{e2\ 2649}#)
- (let ((#{names\ 2651}#
- (map (lambda (#{x\ 2652}#)
- (#{id-var-name\ 301}#
- #{x\ 2652}#
- #{w\ 2619}#))
- #{var\ 2646}#)))
+ (apply (lambda (#{_\ 5902}#
+ #{var\ 5903}#
+ #{val\ 5904}#
+ #{e1\ 5905}#
+ #{e2\ 5906}#)
+ (let ((#{names\ 5908}#
+ (map (lambda (#{x\ 5909}#)
+ (#{id-var-name\ 3558}#
+ #{x\ 5909}#
+ #{w\ 5876}#))
+ #{var\ 5903}#)))
(begin
(for-each
- (lambda (#{id\ 2655}# #{n\ 2656}#)
- (let ((#{atom-key\ 2661}#
- (#{binding-type\ 227}#
- (#{lookup\ 238}#
- #{n\ 2656}#
- #{r\ 2618}#
- #{mod\ 2621}#))))
- (if (memv #{atom-key\ 2661}#
+ (lambda (#{id\ 5912}# #{n\ 5913}#)
+ (let ((#{atom-key\ 5918}#
+ (#{binding-type\ 3484}#
+ (#{lookup\ 3495}#
+ #{n\ 5913}#
+ #{r\ 5875}#
+ #{mod\ 5878}#))))
+ (if (memv #{atom-key\ 5918}#
'(displaced-lexical))
(syntax-violation
'fluid-let-syntax
"identifier out of context"
- #{e\ 2617}#
- (#{source-wrap\ 315}#
- #{id\ 2655}#
- #{w\ 2619}#
- #{s\ 2620}#
- #{mod\ 2621}#)))))
- #{var\ 2646}#
- #{names\ 2651}#)
- (#{chi-body\ 337}#
- (cons #{e1\ 2648}# #{e2\ 2649}#)
- (#{source-wrap\ 315}#
- #{e\ 2617}#
- #{w\ 2619}#
- #{s\ 2620}#
- #{mod\ 2621}#)
- (#{extend-env\ 232}#
- #{names\ 2651}#
- (let ((#{trans-r\ 2666}#
- (#{macros-only-env\ 236}#
- #{r\ 2618}#)))
- (map (lambda (#{x\ 2667}#)
+ #{e\ 5874}#
+ (#{source-wrap\ 3572}#
+ #{id\ 5912}#
+ #{w\ 5876}#
+ #{s\ 5877}#
+ #{mod\ 5878}#)))))
+ #{var\ 5903}#
+ #{names\ 5908}#)
+ (#{chi-body\ 3594}#
+ (cons #{e1\ 5905}# #{e2\ 5906}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 5874}#
+ #{w\ 5876}#
+ #{s\ 5877}#
+ #{mod\ 5878}#)
+ (#{extend-env\ 3489}#
+ #{names\ 5908}#
+ (let ((#{trans-r\ 5923}#
+ (#{macros-only-env\ 3493}#
+ #{r\ 5875}#)))
+ (map (lambda (#{x\ 5924}#)
(cons 'macro
- (#{eval-local-transformer\ 341}#
- (#{chi\ 329}#
- #{x\ 2667}#
- #{trans-r\ 2666}#
- #{w\ 2619}#
- #{mod\ 2621}#)
- #{mod\ 2621}#)))
- #{val\ 2647}#))
- #{r\ 2618}#)
- #{w\ 2619}#
- #{mod\ 2621}#))))
- #{tmp\ 2628}#)
- ((lambda (#{_\ 2672}#)
+ (#{eval-local-transformer\ 3598}#
+ (#{chi\ 3586}#
+ #{x\ 5924}#
+ #{trans-r\ 5923}#
+ #{w\ 5876}#
+ #{mod\ 5878}#)
+ #{mod\ 5878}#)))
+ #{val\ 5904}#))
+ #{r\ 5875}#)
+ #{w\ 5876}#
+ #{mod\ 5878}#))))
+ #{tmp\ 5885}#)
+ ((lambda (#{_\ 5929}#)
(syntax-violation
'fluid-let-syntax
"bad syntax"
- (#{source-wrap\ 315}#
- #{e\ 2617}#
- #{w\ 2619}#
- #{s\ 2620}#
- #{mod\ 2621}#)))
- #{tmp\ 2627}#)))
+ (#{source-wrap\ 3572}#
+ #{e\ 5874}#
+ #{w\ 5876}#
+ #{s\ 5877}#
+ #{mod\ 5878}#)))
+ #{tmp\ 5884}#)))
($sc-dispatch
- #{tmp\ 2627}#
+ #{tmp\ 5884}#
'(any #(each (any any)) any . each-any))))
- #{e\ 2617}#)))
- (#{global-extend\ 240}#
+ #{e\ 5874}#)))
+ (#{global-extend\ 3497}#
'core
'quote
- (lambda (#{e\ 2673}#
- #{r\ 2674}#
- #{w\ 2675}#
- #{s\ 2676}#
- #{mod\ 2677}#)
- ((lambda (#{tmp\ 2683}#)
- ((lambda (#{tmp\ 2684}#)
- (if #{tmp\ 2684}#
- (apply (lambda (#{_\ 2687}# #{e\ 2688}#)
- (#{build-data\ 194}#
- #{s\ 2676}#
- (#{strip\ 355}# #{e\ 2688}# #{w\ 2675}#)))
- #{tmp\ 2684}#)
- ((lambda (#{_\ 2690}#)
+ (lambda (#{e\ 5930}#
+ #{r\ 5931}#
+ #{w\ 5932}#
+ #{s\ 5933}#
+ #{mod\ 5934}#)
+ ((lambda (#{tmp\ 5940}#)
+ ((lambda (#{tmp\ 5941}#)
+ (if #{tmp\ 5941}#
+ (apply (lambda (#{_\ 5944}# #{e\ 5945}#)
+ (#{build-data\ 3451}#
+ #{s\ 5933}#
+ (#{strip\ 3612}# #{e\ 5945}# #{w\ 5932}#)))
+ #{tmp\ 5941}#)
+ ((lambda (#{_\ 5947}#)
(syntax-violation
'quote
"bad syntax"
- (#{source-wrap\ 315}#
- #{e\ 2673}#
- #{w\ 2675}#
- #{s\ 2676}#
- #{mod\ 2677}#)))
- #{tmp\ 2683}#)))
- ($sc-dispatch #{tmp\ 2683}# (quote (any any)))))
- #{e\ 2673}#)))
- (#{global-extend\ 240}#
+ (#{source-wrap\ 3572}#
+ #{e\ 5930}#
+ #{w\ 5932}#
+ #{s\ 5933}#
+ #{mod\ 5934}#)))
+ #{tmp\ 5940}#)))
+ ($sc-dispatch #{tmp\ 5940}# (quote (any any)))))
+ #{e\ 5930}#)))
+ (#{global-extend\ 3497}#
'core
'syntax
- (letrec ((#{regen\ 2706}#
- (lambda (#{x\ 2707}#)
- (let ((#{atom-key\ 2711}# (car #{x\ 2707}#)))
- (if (memv #{atom-key\ 2711}# (quote (ref)))
- (#{build-lexical-reference\ 172}#
+ (letrec ((#{regen\ 5963}#
+ (lambda (#{x\ 5964}#)
+ (let ((#{atom-key\ 5968}# (car #{x\ 5964}#)))
+ (if (memv #{atom-key\ 5968}# (quote (ref)))
+ (#{build-lexical-reference\ 3429}#
'value
#f
- (cadr #{x\ 2707}#)
- (cadr #{x\ 2707}#))
- (if (memv #{atom-key\ 2711}# (quote (primitive)))
- (#{build-primref\ 192}# #f (cadr #{x\ 2707}#))
- (if (memv #{atom-key\ 2711}# (quote (quote)))
- (#{build-data\ 194}# #f (cadr #{x\ 2707}#))
- (if (memv #{atom-key\ 2711}# (quote (lambda)))
- (if (list? (cadr #{x\ 2707}#))
- (#{build-simple-lambda\ 186}#
+ (cadr #{x\ 5964}#)
+ (cadr #{x\ 5964}#))
+ (if (memv #{atom-key\ 5968}# (quote (primitive)))
+ (#{build-primref\ 3449}# #f (cadr #{x\ 5964}#))
+ (if (memv #{atom-key\ 5968}# (quote (quote)))
+ (#{build-data\ 3451}# #f (cadr #{x\ 5964}#))
+ (if (memv #{atom-key\ 5968}# (quote (lambda)))
+ (if (list? (cadr #{x\ 5964}#))
+ (#{build-simple-lambda\ 3443}#
#f
- (cadr #{x\ 2707}#)
+ (cadr #{x\ 5964}#)
#f
- (cadr #{x\ 2707}#)
+ (cadr #{x\ 5964}#)
#f
- (#{regen\ 2706}# (caddr #{x\ 2707}#)))
- (error "how did we get here" #{x\ 2707}#))
- (#{build-application\ 166}#
+ (#{regen\ 5963}# (caddr #{x\ 5964}#)))
+ (error "how did we get here" #{x\ 5964}#))
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}# #f (car #{x\ 2707}#))
- (map #{regen\ 2706}#
- (cdr #{x\ 2707}#))))))))))
- (#{gen-vector\ 2704}#
- (lambda (#{x\ 2723}#)
- (if (eq? (car #{x\ 2723}#) (quote list))
- (cons (quote vector) (cdr #{x\ 2723}#))
- (if (eq? (car #{x\ 2723}#) (quote quote))
+ (#{build-primref\ 3449}# #f (car #{x\ 5964}#))
+ (map #{regen\ 5963}#
+ (cdr #{x\ 5964}#))))))))))
+ (#{gen-vector\ 5961}#
+ (lambda (#{x\ 5980}#)
+ (if (eq? (car #{x\ 5980}#) (quote list))
+ (cons (quote vector) (cdr #{x\ 5980}#))
+ (if (eq? (car #{x\ 5980}#) (quote quote))
(list 'quote
- (list->vector (cadr #{x\ 2723}#)))
- (list (quote list->vector) #{x\ 2723}#)))))
- (#{gen-append\ 2702}#
- (lambda (#{x\ 2733}# #{y\ 2734}#)
- (if (equal? #{y\ 2734}# (quote (quote ())))
- #{x\ 2733}#
- (list (quote append) #{x\ 2733}# #{y\ 2734}#))))
- (#{gen-cons\ 2700}#
- (lambda (#{x\ 2738}# #{y\ 2739}#)
- (let ((#{atom-key\ 2744}# (car #{y\ 2739}#)))
- (if (memv #{atom-key\ 2744}# (quote (quote)))
- (if (eq? (car #{x\ 2738}#) (quote quote))
+ (list->vector (cadr #{x\ 5980}#)))
+ (list (quote list->vector) #{x\ 5980}#)))))
+ (#{gen-append\ 5959}#
+ (lambda (#{x\ 5990}# #{y\ 5991}#)
+ (if (equal? #{y\ 5991}# (quote (quote ())))
+ #{x\ 5990}#
+ (list (quote append) #{x\ 5990}# #{y\ 5991}#))))
+ (#{gen-cons\ 5957}#
+ (lambda (#{x\ 5995}# #{y\ 5996}#)
+ (let ((#{atom-key\ 6001}# (car #{y\ 5996}#)))
+ (if (memv #{atom-key\ 6001}# (quote (quote)))
+ (if (eq? (car #{x\ 5995}#) (quote quote))
(list 'quote
- (cons (cadr #{x\ 2738}#) (cadr #{y\ 2739}#)))
- (if (eq? (cadr #{y\ 2739}#) (quote ()))
- (list (quote list) #{x\ 2738}#)
- (list (quote cons) #{x\ 2738}# #{y\ 2739}#)))
- (if (memv #{atom-key\ 2744}# (quote (list)))
+ (cons (cadr #{x\ 5995}#) (cadr #{y\ 5996}#)))
+ (if (eq? (cadr #{y\ 5996}#) (quote ()))
+ (list (quote list) #{x\ 5995}#)
+ (list (quote cons) #{x\ 5995}# #{y\ 5996}#)))
+ (if (memv #{atom-key\ 6001}# (quote (list)))
(cons 'list
- (cons #{x\ 2738}# (cdr #{y\ 2739}#)))
- (list (quote cons) #{x\ 2738}# #{y\ 2739}#))))))
- (#{gen-map\ 2698}#
- (lambda (#{e\ 2753}# #{map-env\ 2754}#)
- (let ((#{formals\ 2759}# (map cdr #{map-env\ 2754}#))
- (#{actuals\ 2760}#
- (map (lambda (#{x\ 2761}#)
- (list (quote ref) (car #{x\ 2761}#)))
- #{map-env\ 2754}#)))
- (if (eq? (car #{e\ 2753}#) (quote ref))
- (car #{actuals\ 2760}#)
+ (cons #{x\ 5995}# (cdr #{y\ 5996}#)))
+ (list (quote cons) #{x\ 5995}# #{y\ 5996}#))))))
+ (#{gen-map\ 5955}#
+ (lambda (#{e\ 6010}# #{map-env\ 6011}#)
+ (let ((#{formals\ 6016}# (map cdr #{map-env\ 6011}#))
+ (#{actuals\ 6017}#
+ (map (lambda (#{x\ 6018}#)
+ (list (quote ref) (car #{x\ 6018}#)))
+ #{map-env\ 6011}#)))
+ (if (eq? (car #{e\ 6010}#) (quote ref))
+ (car #{actuals\ 6017}#)
(if (and-map
- (lambda (#{x\ 2768}#)
- (if (eq? (car #{x\ 2768}#) (quote ref))
- (memq (cadr #{x\ 2768}#) #{formals\ 2759}#)
+ (lambda (#{x\ 6025}#)
+ (if (eq? (car #{x\ 6025}#) (quote ref))
+ (memq (cadr #{x\ 6025}#) #{formals\ 6016}#)
#f))
- (cdr #{e\ 2753}#))
+ (cdr #{e\ 6010}#))
(cons 'map
(cons (list 'primitive
- (car #{e\ 2753}#))
- (map (let ((#{r\ 2774}#
+ (car #{e\ 6010}#))
+ (map (let ((#{r\ 6031}#
(map cons
- #{formals\ 2759}#
- #{actuals\ 2760}#)))
- (lambda (#{x\ 2775}#)
- (cdr (assq (cadr #{x\ 2775}#)
- #{r\ 2774}#))))
- (cdr #{e\ 2753}#))))
+ #{formals\ 6016}#
+ #{actuals\ 6017}#)))
+ (lambda (#{x\ 6032}#)
+ (cdr (assq (cadr #{x\ 6032}#)
+ #{r\ 6031}#))))
+ (cdr #{e\ 6010}#))))
(cons 'map
(cons (list 'lambda
- #{formals\ 2759}#
- #{e\ 2753}#)
- #{actuals\ 2760}#)))))))
- (#{gen-mappend\ 2696}#
- (lambda (#{e\ 2779}# #{map-env\ 2780}#)
+ #{formals\ 6016}#
+ #{e\ 6010}#)
+ #{actuals\ 6017}#)))))))
+ (#{gen-mappend\ 5953}#
+ (lambda (#{e\ 6036}# #{map-env\ 6037}#)
(list 'apply
'(primitive append)
- (#{gen-map\ 2698}# #{e\ 2779}# #{map-env\ 2780}#))))
- (#{gen-ref\ 2694}#
- (lambda (#{src\ 2784}#
- #{var\ 2785}#
- #{level\ 2786}#
- #{maps\ 2787}#)
- (if (#{fx=\ 149}# #{level\ 2786}# 0)
- (values #{var\ 2785}# #{maps\ 2787}#)
- (if (null? #{maps\ 2787}#)
+ (#{gen-map\ 5955}# #{e\ 6036}# #{map-env\ 6037}#))))
+ (#{gen-ref\ 5951}#
+ (lambda (#{src\ 6041}#
+ #{var\ 6042}#
+ #{level\ 6043}#
+ #{maps\ 6044}#)
+ (if (#{fx=\ 3406}# #{level\ 6043}# 0)
+ (values #{var\ 6042}# #{maps\ 6044}#)
+ (if (null? #{maps\ 6044}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src\ 2784}#)
+ #{src\ 6041}#)
(call-with-values
(lambda ()
- (#{gen-ref\ 2694}#
- #{src\ 2784}#
- #{var\ 2785}#
- (#{fx-\ 147}# #{level\ 2786}# 1)
- (cdr #{maps\ 2787}#)))
- (lambda (#{outer-var\ 2792}# #{outer-maps\ 2793}#)
- (let ((#{b\ 2797}#
- (assq #{outer-var\ 2792}#
- (car #{maps\ 2787}#))))
- (if #{b\ 2797}#
- (values (cdr #{b\ 2797}#) #{maps\ 2787}#)
- (let ((#{inner-var\ 2799}#
- (#{gen-var\ 357}# (quote tmp))))
+ (#{gen-ref\ 5951}#
+ #{src\ 6041}#
+ #{var\ 6042}#
+ (#{fx-\ 3404}# #{level\ 6043}# 1)
+ (cdr #{maps\ 6044}#)))
+ (lambda (#{outer-var\ 6049}# #{outer-maps\ 6050}#)
+ (let ((#{b\ 6054}#
+ (assq #{outer-var\ 6049}#
+ (car #{maps\ 6044}#))))
+ (if #{b\ 6054}#
+ (values (cdr #{b\ 6054}#) #{maps\ 6044}#)
+ (let ((#{inner-var\ 6056}#
+ (#{gen-var\ 3614}# (quote tmp))))
(values
- #{inner-var\ 2799}#
- (cons (cons (cons #{outer-var\ 2792}#
- #{inner-var\ 2799}#)
- (car #{maps\ 2787}#))
- #{outer-maps\ 2793}#)))))))))))
- (#{gen-syntax\ 2692}#
- (lambda (#{src\ 2800}#
- #{e\ 2801}#
- #{r\ 2802}#
- #{maps\ 2803}#
- #{ellipsis?\ 2804}#
- #{mod\ 2805}#)
- (if (#{id?\ 244}# #{e\ 2801}#)
- (let ((#{label\ 2813}#
- (#{id-var-name\ 301}#
- #{e\ 2801}#
+ #{inner-var\ 6056}#
+ (cons (cons (cons #{outer-var\ 6049}#
+ #{inner-var\ 6056}#)
+ (car #{maps\ 6044}#))
+ #{outer-maps\ 6050}#)))))))))))
+ (#{gen-syntax\ 5949}#
+ (lambda (#{src\ 6057}#
+ #{e\ 6058}#
+ #{r\ 6059}#
+ #{maps\ 6060}#
+ #{ellipsis?\ 6061}#
+ #{mod\ 6062}#)
+ (if (#{id?\ 3501}# #{e\ 6058}#)
+ (let ((#{label\ 6070}#
+ (#{id-var-name\ 3558}#
+ #{e\ 6058}#
'(()))))
- (let ((#{b\ 2816}#
- (#{lookup\ 238}#
- #{label\ 2813}#
- #{r\ 2802}#
- #{mod\ 2805}#)))
- (if (eq? (#{binding-type\ 227}# #{b\ 2816}#)
+ (let ((#{b\ 6073}#
+ (#{lookup\ 3495}#
+ #{label\ 6070}#
+ #{r\ 6059}#
+ #{mod\ 6062}#)))
+ (if (eq? (#{binding-type\ 3484}# #{b\ 6073}#)
'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev\ 2818}#
- (#{binding-value\ 229}# #{b\ 2816}#)))
- (#{gen-ref\ 2694}#
- #{src\ 2800}#
- (car #{var.lev\ 2818}#)
- (cdr #{var.lev\ 2818}#)
- #{maps\ 2803}#)))
- (lambda (#{var\ 2819}# #{maps\ 2820}#)
+ (let ((#{var.lev\ 6075}#
+ (#{binding-value\ 3486}#
+ #{b\ 6073}#)))
+ (#{gen-ref\ 5951}#
+ #{src\ 6057}#
+ (car #{var.lev\ 6075}#)
+ (cdr #{var.lev\ 6075}#)
+ #{maps\ 6060}#)))
+ (lambda (#{var\ 6076}# #{maps\ 6077}#)
(values
- (list (quote ref) #{var\ 2819}#)
- #{maps\ 2820}#)))
- (if (#{ellipsis?\ 2804}# #{e\ 2801}#)
+ (list (quote ref) #{var\ 6076}#)
+ #{maps\ 6077}#)))
+ (if (#{ellipsis?\ 6061}# #{e\ 6058}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src\ 2800}#)
+ #{src\ 6057}#)
(values
- (list (quote quote) #{e\ 2801}#)
- #{maps\ 2803}#)))))
- ((lambda (#{tmp\ 2825}#)
- ((lambda (#{tmp\ 2826}#)
- (if (if #{tmp\ 2826}#
- (apply (lambda (#{dots\ 2829}# #{e\ 2830}#)
- (#{ellipsis?\ 2804}#
- #{dots\ 2829}#))
- #{tmp\ 2826}#)
+ (list (quote quote) #{e\ 6058}#)
+ #{maps\ 6060}#)))))
+ ((lambda (#{tmp\ 6082}#)
+ ((lambda (#{tmp\ 6083}#)
+ (if (if #{tmp\ 6083}#
+ (apply (lambda (#{dots\ 6086}# #{e\ 6087}#)
+ (#{ellipsis?\ 6061}#
+ #{dots\ 6086}#))
+ #{tmp\ 6083}#)
#f)
- (apply (lambda (#{dots\ 2833}# #{e\ 2834}#)
- (#{gen-syntax\ 2692}#
- #{src\ 2800}#
- #{e\ 2834}#
- #{r\ 2802}#
- #{maps\ 2803}#
- (lambda (#{x\ 2835}#) #f)
- #{mod\ 2805}#))
- #{tmp\ 2826}#)
- ((lambda (#{tmp\ 2837}#)
- (if (if #{tmp\ 2837}#
- (apply (lambda (#{x\ 2841}#
- #{dots\ 2842}#
- #{y\ 2843}#)
- (#{ellipsis?\ 2804}#
- #{dots\ 2842}#))
- #{tmp\ 2837}#)
+ (apply (lambda (#{dots\ 6090}# #{e\ 6091}#)
+ (#{gen-syntax\ 5949}#
+ #{src\ 6057}#
+ #{e\ 6091}#
+ #{r\ 6059}#
+ #{maps\ 6060}#
+ (lambda (#{x\ 6092}#) #f)
+ #{mod\ 6062}#))
+ #{tmp\ 6083}#)
+ ((lambda (#{tmp\ 6094}#)
+ (if (if #{tmp\ 6094}#
+ (apply (lambda (#{x\ 6098}#
+ #{dots\ 6099}#
+ #{y\ 6100}#)
+ (#{ellipsis?\ 6061}#
+ #{dots\ 6099}#))
+ #{tmp\ 6094}#)
#f)
- (apply (lambda (#{x\ 2847}#
- #{dots\ 2848}#
- #{y\ 2849}#)
- (letrec ((#{f\ 2853}#
- (lambda (#{y\ 2854}#
- #{k\ 2855}#)
- ((lambda (#{tmp\ 2862}#)
- ((lambda (#{tmp\ 2863}#)
- (if (if #{tmp\ 2863}#
- (apply (lambda (#{dots\ 2866}#
- #{y\ 2867}#)
- (#{ellipsis?\ 2804}#
- #{dots\ 2866}#))
- #{tmp\ 2863}#)
+ (apply (lambda (#{x\ 6104}#
+ #{dots\ 6105}#
+ #{y\ 6106}#)
+ (letrec ((#{f\ 6110}#
+ (lambda (#{y\ 6111}#
+ #{k\ 6112}#)
+ ((lambda (#{tmp\ 6119}#)
+ ((lambda (#{tmp\ 6120}#)
+ (if (if #{tmp\ 6120}#
+ (apply (lambda (#{dots\ 6123}#
+ #{y\ 6124}#)
+ (#{ellipsis?\ 6061}#
+ #{dots\ 6123}#))
+ #{tmp\ 6120}#)
#f)
- (apply (lambda (#{dots\ 2870}#
- #{y\ 2871}#)
- (#{f\ 2853}#
- #{y\ 2871}#
- (lambda (#{maps\ 2872}#)
+ (apply (lambda (#{dots\ 6127}#
+ #{y\ 6128}#)
+ (#{f\ 6110}#
+ #{y\ 6128}#
+ (lambda (#{maps\ 6129}#)
(call-with-values
(lambda ()
- (#{k\ 2855}#
+ (#{k\ 6112}#
(cons '()
- #{maps\ 2872}#)))
- (lambda (#{x\ 2874}#
- #{maps\ 2875}#)
- (if (null? (car #{maps\ 2875}#))
+ #{maps\ 6129}#)))
+ (lambda (#{x\ 6131}#
+ #{maps\ 6132}#)
+ (if (null? (car #{maps\ 6132}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2800}#)
+ #{src\ 6057}#)
(values
- (#{gen-mappend\ 2696}#
- #{x\ 2874}#
- (car #{maps\ 2875}#))
- (cdr #{maps\ 2875}#))))))))
- #{tmp\ 2863}#)
- ((lambda (#{_\ 2879}#)
+ (#{gen-mappend\ 5953}#
+ #{x\ 6131}#
+ (car #{maps\ 6132}#))
+ (cdr #{maps\ 6132}#))))))))
+ #{tmp\ 6120}#)
+ ((lambda (#{_\ 6136}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2692}#
- #{src\ 2800}#
- #{y\ 2854}#
- #{r\ 2802}#
- #{maps\ 2803}#
- #{ellipsis?\ 2804}#
- #{mod\ 2805}#))
- (lambda (#{y\ 2880}#
- #{maps\ 2881}#)
+ (#{gen-syntax\ 5949}#
+ #{src\ 6057}#
+ #{y\ 6111}#
+ #{r\ 6059}#
+ #{maps\ 6060}#
+ #{ellipsis?\ 6061}#
+ #{mod\ 6062}#))
+ (lambda (#{y\ 6137}#
+ #{maps\ 6138}#)
(call-with-values
(lambda ()
- (#{k\ 2855}#
- #{maps\ 2881}#))
- (lambda (#{x\ 2884}#
- #{maps\ 2885}#)
+ (#{k\ 6112}#
+ #{maps\ 6138}#))
+ (lambda (#{x\ 6141}#
+ #{maps\ 6142}#)
(values
- (#{gen-append\ 2702}#
- #{x\ 2884}#
- #{y\ 2880}#)
- #{maps\ 2885}#))))))
- #{tmp\ 2862}#)))
+ (#{gen-append\ 5959}#
+ #{x\ 6141}#
+ #{y\ 6137}#)
+ #{maps\ 6142}#))))))
+ #{tmp\ 6119}#)))
($sc-dispatch
- #{tmp\ 2862}#
+ #{tmp\ 6119}#
'(any . any))))
- #{y\ 2854}#))))
- (#{f\ 2853}#
- #{y\ 2849}#
- (lambda (#{maps\ 2856}#)
+ #{y\ 6111}#))))
+ (#{f\ 6110}#
+ #{y\ 6106}#
+ (lambda (#{maps\ 6113}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2692}#
- #{src\ 2800}#
- #{x\ 2847}#
- #{r\ 2802}#
+ (#{gen-syntax\ 5949}#
+ #{src\ 6057}#
+ #{x\ 6104}#
+ #{r\ 6059}#
(cons '()
- #{maps\ 2856}#)
- #{ellipsis?\ 2804}#
- #{mod\ 2805}#))
- (lambda (#{x\ 2858}#
- #{maps\ 2859}#)
- (if (null? (car #{maps\ 2859}#))
+ #{maps\ 6113}#)
+ #{ellipsis?\ 6061}#
+ #{mod\ 6062}#))
+ (lambda (#{x\ 6115}#
+ #{maps\ 6116}#)
+ (if (null? (car #{maps\ 6116}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src\ 2800}#)
+ #{src\ 6057}#)
(values
- (#{gen-map\ 2698}#
- #{x\ 2858}#
- (car #{maps\ 2859}#))
- (cdr #{maps\ 2859}#)))))))))
- #{tmp\ 2837}#)
- ((lambda (#{tmp\ 2888}#)
- (if #{tmp\ 2888}#
- (apply (lambda (#{x\ 2891}#
- #{y\ 2892}#)
+ (#{gen-map\ 5955}#
+ #{x\ 6115}#
+ (car #{maps\ 6116}#))
+ (cdr #{maps\ 6116}#)))))))))
+ #{tmp\ 6094}#)
+ ((lambda (#{tmp\ 6145}#)
+ (if #{tmp\ 6145}#
+ (apply (lambda (#{x\ 6148}#
+ #{y\ 6149}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2692}#
- #{src\ 2800}#
- #{x\ 2891}#
- #{r\ 2802}#
- #{maps\ 2803}#
- #{ellipsis?\ 2804}#
- #{mod\ 2805}#))
- (lambda (#{x\ 2893}#
- #{maps\ 2894}#)
+ (#{gen-syntax\ 5949}#
+ #{src\ 6057}#
+ #{x\ 6148}#
+ #{r\ 6059}#
+ #{maps\ 6060}#
+ #{ellipsis?\ 6061}#
+ #{mod\ 6062}#))
+ (lambda (#{x\ 6150}#
+ #{maps\ 6151}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2692}#
- #{src\ 2800}#
- #{y\ 2892}#
- #{r\ 2802}#
- #{maps\ 2894}#
- #{ellipsis?\ 2804}#
- #{mod\ 2805}#))
- (lambda (#{y\ 2897}#
- #{maps\ 2898}#)
+ (#{gen-syntax\ 5949}#
+ #{src\ 6057}#
+ #{y\ 6149}#
+ #{r\ 6059}#
+ #{maps\ 6151}#
+ #{ellipsis?\ 6061}#
+ #{mod\ 6062}#))
+ (lambda (#{y\ 6154}#
+ #{maps\ 6155}#)
(values
- (#{gen-cons\ 2700}#
- #{x\ 2893}#
- #{y\ 2897}#)
- #{maps\ 2898}#))))))
- #{tmp\ 2888}#)
- ((lambda (#{tmp\ 2901}#)
- (if #{tmp\ 2901}#
- (apply (lambda (#{e1\ 2904}#
- #{e2\ 2905}#)
+ (#{gen-cons\ 5957}#
+ #{x\ 6150}#
+ #{y\ 6154}#)
+ #{maps\ 6155}#))))))
+ #{tmp\ 6145}#)
+ ((lambda (#{tmp\ 6158}#)
+ (if #{tmp\ 6158}#
+ (apply (lambda (#{e1\ 6161}#
+ #{e2\ 6162}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2692}#
- #{src\ 2800}#
- (cons #{e1\ 2904}#
- #{e2\ 2905}#)
- #{r\ 2802}#
- #{maps\ 2803}#
- #{ellipsis?\ 2804}#
- #{mod\ 2805}#))
- (lambda (#{e\ 2907}#
- #{maps\ 2908}#)
+ (#{gen-syntax\ 5949}#
+ #{src\ 6057}#
+ (cons #{e1\ 6161}#
+ #{e2\ 6162}#)
+ #{r\ 6059}#
+ #{maps\ 6060}#
+ #{ellipsis?\ 6061}#
+ #{mod\ 6062}#))
+ (lambda (#{e\ 6164}#
+ #{maps\ 6165}#)
(values
- (#{gen-vector\ 2704}#
- #{e\ 2907}#)
- #{maps\ 2908}#))))
- #{tmp\ 2901}#)
- ((lambda (#{_\ 2912}#)
+ (#{gen-vector\ 5961}#
+ #{e\ 6164}#)
+ #{maps\ 6165}#))))
+ #{tmp\ 6158}#)
+ ((lambda (#{_\ 6169}#)
(values
(list 'quote
- #{e\ 2801}#)
- #{maps\ 2803}#))
- #{tmp\ 2825}#)))
+ #{e\ 6058}#)
+ #{maps\ 6060}#))
+ #{tmp\ 6082}#)))
($sc-dispatch
- #{tmp\ 2825}#
+ #{tmp\ 6082}#
'#(vector (any . each-any))))))
($sc-dispatch
- #{tmp\ 2825}#
+ #{tmp\ 6082}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 2825}#
+ #{tmp\ 6082}#
'(any any . any)))))
- ($sc-dispatch #{tmp\ 2825}# (quote (any any)))))
- #{e\ 2801}#)))))
- (lambda (#{e\ 2914}#
- #{r\ 2915}#
- #{w\ 2916}#
- #{s\ 2917}#
- #{mod\ 2918}#)
- (let ((#{e\ 2925}#
- (#{source-wrap\ 315}#
- #{e\ 2914}#
- #{w\ 2916}#
- #{s\ 2917}#
- #{mod\ 2918}#)))
- ((lambda (#{tmp\ 2926}#)
- ((lambda (#{tmp\ 2927}#)
- (if #{tmp\ 2927}#
- (apply (lambda (#{_\ 2930}# #{x\ 2931}#)
+ ($sc-dispatch #{tmp\ 6082}# (quote (any any)))))
+ #{e\ 6058}#)))))
+ (lambda (#{e\ 6171}#
+ #{r\ 6172}#
+ #{w\ 6173}#
+ #{s\ 6174}#
+ #{mod\ 6175}#)
+ (let ((#{e\ 6182}#
+ (#{source-wrap\ 3572}#
+ #{e\ 6171}#
+ #{w\ 6173}#
+ #{s\ 6174}#
+ #{mod\ 6175}#)))
+ ((lambda (#{tmp\ 6183}#)
+ ((lambda (#{tmp\ 6184}#)
+ (if #{tmp\ 6184}#
+ (apply (lambda (#{_\ 6187}# #{x\ 6188}#)
(call-with-values
(lambda ()
- (#{gen-syntax\ 2692}#
- #{e\ 2925}#
- #{x\ 2931}#
- #{r\ 2915}#
+ (#{gen-syntax\ 5949}#
+ #{e\ 6182}#
+ #{x\ 6188}#
+ #{r\ 6172}#
'()
- #{ellipsis?\ 345}#
- #{mod\ 2918}#))
- (lambda (#{e\ 2932}# #{maps\ 2933}#)
- (#{regen\ 2706}# #{e\ 2932}#))))
- #{tmp\ 2927}#)
- ((lambda (#{_\ 2937}#)
+ #{ellipsis?\ 3602}#
+ #{mod\ 6175}#))
+ (lambda (#{e\ 6189}# #{maps\ 6190}#)
+ (#{regen\ 5963}# #{e\ 6189}#))))
+ #{tmp\ 6184}#)
+ ((lambda (#{_\ 6194}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e\ 2925}#))
- #{tmp\ 2926}#)))
- ($sc-dispatch #{tmp\ 2926}# (quote (any any)))))
- #{e\ 2925}#)))))
- (#{global-extend\ 240}#
+ #{e\ 6182}#))
+ #{tmp\ 6183}#)))
+ ($sc-dispatch #{tmp\ 6183}# (quote (any any)))))
+ #{e\ 6182}#)))))
+ (#{global-extend\ 3497}#
'core
'lambda
- (lambda (#{e\ 2938}#
- #{r\ 2939}#
- #{w\ 2940}#
- #{s\ 2941}#
- #{mod\ 2942}#)
- ((lambda (#{tmp\ 2948}#)
- ((lambda (#{tmp\ 2949}#)
- (if (if #{tmp\ 2949}#
- (apply (lambda (#{_\ 2955}#
- #{args\ 2956}#
- #{docstring\ 2957}#
- #{e1\ 2958}#
- #{e2\ 2959}#)
- (string? (syntax->datum #{docstring\ 2957}#)))
- #{tmp\ 2949}#)
+ (lambda (#{e\ 6195}#
+ #{r\ 6196}#
+ #{w\ 6197}#
+ #{s\ 6198}#
+ #{mod\ 6199}#)
+ ((lambda (#{tmp\ 6205}#)
+ ((lambda (#{tmp\ 6206}#)
+ (if (if #{tmp\ 6206}#
+ (apply (lambda (#{_\ 6212}#
+ #{args\ 6213}#
+ #{docstring\ 6214}#
+ #{e1\ 6215}#
+ #{e2\ 6216}#)
+ (string? (syntax->datum #{docstring\ 6214}#)))
+ #{tmp\ 6206}#)
#f)
- (apply (lambda (#{_\ 2965}#
- #{args\ 2966}#
- #{docstring\ 2967}#
- #{e1\ 2968}#
- #{e2\ 2969}#)
+ (apply (lambda (#{_\ 6222}#
+ #{args\ 6223}#
+ #{docstring\ 6224}#
+ #{e1\ 6225}#
+ #{e2\ 6226}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 347}# #{args\ 2966}#))
- (lambda (#{req\ 2970}#
- #{opt\ 2971}#
- #{rest\ 2972}#
- #{kw\ 2973}#)
- (#{chi-simple-lambda\ 349}#
- #{e\ 2938}#
- #{r\ 2939}#
- #{w\ 2940}#
- #{s\ 2941}#
- #{mod\ 2942}#
- #{req\ 2970}#
- #{rest\ 2972}#
- (syntax->datum #{docstring\ 2967}#)
- (cons #{e1\ 2968}# #{e2\ 2969}#)))))
- #{tmp\ 2949}#)
- ((lambda (#{tmp\ 2979}#)
- (if #{tmp\ 2979}#
- (apply (lambda (#{_\ 2984}#
- #{args\ 2985}#
- #{e1\ 2986}#
- #{e2\ 2987}#)
+ (#{lambda-formals\ 3604}# #{args\ 6223}#))
+ (lambda (#{req\ 6227}#
+ #{opt\ 6228}#
+ #{rest\ 6229}#
+ #{kw\ 6230}#)
+ (#{chi-simple-lambda\ 3606}#
+ #{e\ 6195}#
+ #{r\ 6196}#
+ #{w\ 6197}#
+ #{s\ 6198}#
+ #{mod\ 6199}#
+ #{req\ 6227}#
+ #{rest\ 6229}#
+ (syntax->datum #{docstring\ 6224}#)
+ (cons #{e1\ 6225}# #{e2\ 6226}#)))))
+ #{tmp\ 6206}#)
+ ((lambda (#{tmp\ 6236}#)
+ (if #{tmp\ 6236}#
+ (apply (lambda (#{_\ 6241}#
+ #{args\ 6242}#
+ #{e1\ 6243}#
+ #{e2\ 6244}#)
(call-with-values
(lambda ()
- (#{lambda-formals\ 347}# #{args\ 2985}#))
- (lambda (#{req\ 2988}#
- #{opt\ 2989}#
- #{rest\ 2990}#
- #{kw\ 2991}#)
- (#{chi-simple-lambda\ 349}#
- #{e\ 2938}#
- #{r\ 2939}#
- #{w\ 2940}#
- #{s\ 2941}#
- #{mod\ 2942}#
- #{req\ 2988}#
- #{rest\ 2990}#
+ (#{lambda-formals\ 3604}# #{args\ 6242}#))
+ (lambda (#{req\ 6245}#
+ #{opt\ 6246}#
+ #{rest\ 6247}#
+ #{kw\ 6248}#)
+ (#{chi-simple-lambda\ 3606}#
+ #{e\ 6195}#
+ #{r\ 6196}#
+ #{w\ 6197}#
+ #{s\ 6198}#
+ #{mod\ 6199}#
+ #{req\ 6245}#
+ #{rest\ 6247}#
#f
- (cons #{e1\ 2986}# #{e2\ 2987}#)))))
- #{tmp\ 2979}#)
- ((lambda (#{_\ 2998}#)
+ (cons #{e1\ 6243}# #{e2\ 6244}#)))))
+ #{tmp\ 6236}#)
+ ((lambda (#{_\ 6255}#)
(syntax-violation
'lambda
"bad lambda"
- #{e\ 2938}#))
- #{tmp\ 2948}#)))
+ #{e\ 6195}#))
+ #{tmp\ 6205}#)))
($sc-dispatch
- #{tmp\ 2948}#
+ #{tmp\ 6205}#
'(any any any . each-any)))))
($sc-dispatch
- #{tmp\ 2948}#
+ #{tmp\ 6205}#
'(any any any any . each-any))))
- #{e\ 2938}#)))
- (#{global-extend\ 240}#
+ #{e\ 6195}#)))
+ (#{global-extend\ 3497}#
'core
'lambda*
- (lambda (#{e\ 2999}#
- #{r\ 3000}#
- #{w\ 3001}#
- #{s\ 3002}#
- #{mod\ 3003}#)
- ((lambda (#{tmp\ 3009}#)
- ((lambda (#{tmp\ 3010}#)
- (if #{tmp\ 3010}#
- (apply (lambda (#{_\ 3015}#
- #{args\ 3016}#
- #{e1\ 3017}#
- #{e2\ 3018}#)
+ (lambda (#{e\ 6256}#
+ #{r\ 6257}#
+ #{w\ 6258}#
+ #{s\ 6259}#
+ #{mod\ 6260}#)
+ ((lambda (#{tmp\ 6266}#)
+ ((lambda (#{tmp\ 6267}#)
+ (if #{tmp\ 6267}#
+ (apply (lambda (#{_\ 6272}#
+ #{args\ 6273}#
+ #{e1\ 6274}#
+ #{e2\ 6275}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 353}#
- #{e\ 2999}#
- #{r\ 3000}#
- #{w\ 3001}#
- #{s\ 3002}#
- #{mod\ 3003}#
- #{lambda*-formals\ 351}#
- (list (cons #{args\ 3016}#
- (cons #{e1\ 3017}#
- #{e2\ 3018}#)))))
- (lambda (#{docstring\ 3020}# #{lcase\ 3021}#)
- (#{build-case-lambda\ 188}#
- #{s\ 3002}#
- #{docstring\ 3020}#
- #{lcase\ 3021}#))))
- #{tmp\ 3010}#)
- ((lambda (#{_\ 3025}#)
+ (#{chi-lambda-case\ 3610}#
+ #{e\ 6256}#
+ #{r\ 6257}#
+ #{w\ 6258}#
+ #{s\ 6259}#
+ #{mod\ 6260}#
+ #{lambda*-formals\ 3608}#
+ (list (cons #{args\ 6273}#
+ (cons #{e1\ 6274}#
+ #{e2\ 6275}#)))))
+ (lambda (#{docstring\ 6277}# #{lcase\ 6278}#)
+ (#{build-case-lambda\ 3445}#
+ #{s\ 6259}#
+ #{docstring\ 6277}#
+ #{lcase\ 6278}#))))
+ #{tmp\ 6267}#)
+ ((lambda (#{_\ 6282}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e\ 2999}#))
- #{tmp\ 3009}#)))
+ #{e\ 6256}#))
+ #{tmp\ 6266}#)))
($sc-dispatch
- #{tmp\ 3009}#
+ #{tmp\ 6266}#
'(any any any . each-any))))
- #{e\ 2999}#)))
- (#{global-extend\ 240}#
+ #{e\ 6256}#)))
+ (#{global-extend\ 3497}#
'core
'case-lambda
- (lambda (#{e\ 3026}#
- #{r\ 3027}#
- #{w\ 3028}#
- #{s\ 3029}#
- #{mod\ 3030}#)
- ((lambda (#{tmp\ 3036}#)
- ((lambda (#{tmp\ 3037}#)
- (if #{tmp\ 3037}#
- (apply (lambda (#{_\ 3045}#
- #{args\ 3046}#
- #{e1\ 3047}#
- #{e2\ 3048}#
- #{args*\ 3049}#
- #{e1*\ 3050}#
- #{e2*\ 3051}#)
+ (lambda (#{e\ 6283}#
+ #{r\ 6284}#
+ #{w\ 6285}#
+ #{s\ 6286}#
+ #{mod\ 6287}#)
+ ((lambda (#{tmp\ 6293}#)
+ ((lambda (#{tmp\ 6294}#)
+ (if #{tmp\ 6294}#
+ (apply (lambda (#{_\ 6302}#
+ #{args\ 6303}#
+ #{e1\ 6304}#
+ #{e2\ 6305}#
+ #{args*\ 6306}#
+ #{e1*\ 6307}#
+ #{e2*\ 6308}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 353}#
- #{e\ 3026}#
- #{r\ 3027}#
- #{w\ 3028}#
- #{s\ 3029}#
- #{mod\ 3030}#
- #{lambda-formals\ 347}#
- (cons (cons #{args\ 3046}#
- (cons #{e1\ 3047}# #{e2\ 3048}#))
- (map (lambda (#{tmp\ 3055}#
- #{tmp\ 3054}#
- #{tmp\ 3053}#)
- (cons #{tmp\ 3053}#
- (cons #{tmp\ 3054}#
- #{tmp\ 3055}#)))
- #{e2*\ 3051}#
- #{e1*\ 3050}#
- #{args*\ 3049}#))))
- (lambda (#{docstring\ 3057}# #{lcase\ 3058}#)
- (#{build-case-lambda\ 188}#
- #{s\ 3029}#
- #{docstring\ 3057}#
- #{lcase\ 3058}#))))
- #{tmp\ 3037}#)
- ((lambda (#{_\ 3062}#)
+ (#{chi-lambda-case\ 3610}#
+ #{e\ 6283}#
+ #{r\ 6284}#
+ #{w\ 6285}#
+ #{s\ 6286}#
+ #{mod\ 6287}#
+ #{lambda-formals\ 3604}#
+ (cons (cons #{args\ 6303}#
+ (cons #{e1\ 6304}# #{e2\ 6305}#))
+ (map (lambda (#{tmp\ 6312}#
+ #{tmp\ 6311}#
+ #{tmp\ 6310}#)
+ (cons #{tmp\ 6310}#
+ (cons #{tmp\ 6311}#
+ #{tmp\ 6312}#)))
+ #{e2*\ 6308}#
+ #{e1*\ 6307}#
+ #{args*\ 6306}#))))
+ (lambda (#{docstring\ 6314}# #{lcase\ 6315}#)
+ (#{build-case-lambda\ 3445}#
+ #{s\ 6286}#
+ #{docstring\ 6314}#
+ #{lcase\ 6315}#))))
+ #{tmp\ 6294}#)
+ ((lambda (#{_\ 6319}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e\ 3026}#))
- #{tmp\ 3036}#)))
+ #{e\ 6283}#))
+ #{tmp\ 6293}#)))
($sc-dispatch
- #{tmp\ 3036}#
+ #{tmp\ 6293}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3026}#)))
- (#{global-extend\ 240}#
+ #{e\ 6283}#)))
+ (#{global-extend\ 3497}#
'core
'case-lambda*
- (lambda (#{e\ 3063}#
- #{r\ 3064}#
- #{w\ 3065}#
- #{s\ 3066}#
- #{mod\ 3067}#)
- ((lambda (#{tmp\ 3073}#)
- ((lambda (#{tmp\ 3074}#)
- (if #{tmp\ 3074}#
- (apply (lambda (#{_\ 3082}#
- #{args\ 3083}#
- #{e1\ 3084}#
- #{e2\ 3085}#
- #{args*\ 3086}#
- #{e1*\ 3087}#
- #{e2*\ 3088}#)
+ (lambda (#{e\ 6320}#
+ #{r\ 6321}#
+ #{w\ 6322}#
+ #{s\ 6323}#
+ #{mod\ 6324}#)
+ ((lambda (#{tmp\ 6330}#)
+ ((lambda (#{tmp\ 6331}#)
+ (if #{tmp\ 6331}#
+ (apply (lambda (#{_\ 6339}#
+ #{args\ 6340}#
+ #{e1\ 6341}#
+ #{e2\ 6342}#
+ #{args*\ 6343}#
+ #{e1*\ 6344}#
+ #{e2*\ 6345}#)
(call-with-values
(lambda ()
- (#{chi-lambda-case\ 353}#
- #{e\ 3063}#
- #{r\ 3064}#
- #{w\ 3065}#
- #{s\ 3066}#
- #{mod\ 3067}#
- #{lambda*-formals\ 351}#
- (cons (cons #{args\ 3083}#
- (cons #{e1\ 3084}# #{e2\ 3085}#))
- (map (lambda (#{tmp\ 3092}#
- #{tmp\ 3091}#
- #{tmp\ 3090}#)
- (cons #{tmp\ 3090}#
- (cons #{tmp\ 3091}#
- #{tmp\ 3092}#)))
- #{e2*\ 3088}#
- #{e1*\ 3087}#
- #{args*\ 3086}#))))
- (lambda (#{docstring\ 3094}# #{lcase\ 3095}#)
- (#{build-case-lambda\ 188}#
- #{s\ 3066}#
- #{docstring\ 3094}#
- #{lcase\ 3095}#))))
- #{tmp\ 3074}#)
- ((lambda (#{_\ 3099}#)
+ (#{chi-lambda-case\ 3610}#
+ #{e\ 6320}#
+ #{r\ 6321}#
+ #{w\ 6322}#
+ #{s\ 6323}#
+ #{mod\ 6324}#
+ #{lambda*-formals\ 3608}#
+ (cons (cons #{args\ 6340}#
+ (cons #{e1\ 6341}# #{e2\ 6342}#))
+ (map (lambda (#{tmp\ 6349}#
+ #{tmp\ 6348}#
+ #{tmp\ 6347}#)
+ (cons #{tmp\ 6347}#
+ (cons #{tmp\ 6348}#
+ #{tmp\ 6349}#)))
+ #{e2*\ 6345}#
+ #{e1*\ 6344}#
+ #{args*\ 6343}#))))
+ (lambda (#{docstring\ 6351}# #{lcase\ 6352}#)
+ (#{build-case-lambda\ 3445}#
+ #{s\ 6323}#
+ #{docstring\ 6351}#
+ #{lcase\ 6352}#))))
+ #{tmp\ 6331}#)
+ ((lambda (#{_\ 6356}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e\ 3063}#))
- #{tmp\ 3073}#)))
+ #{e\ 6320}#))
+ #{tmp\ 6330}#)))
($sc-dispatch
- #{tmp\ 3073}#
+ #{tmp\ 6330}#
'(any (any any . each-any)
.
#(each (any any . each-any))))))
- #{e\ 3063}#)))
- (#{global-extend\ 240}#
+ #{e\ 6320}#)))
+ (#{global-extend\ 3497}#
'core
'let
- (letrec ((#{chi-let\ 3101}#
- (lambda (#{e\ 3102}#
- #{r\ 3103}#
- #{w\ 3104}#
- #{s\ 3105}#
- #{mod\ 3106}#
- #{constructor\ 3107}#
- #{ids\ 3108}#
- #{vals\ 3109}#
- #{exps\ 3110}#)
- (if (not (#{valid-bound-ids?\ 307}# #{ids\ 3108}#))
+ (letrec ((#{chi-let\ 6358}#
+ (lambda (#{e\ 6359}#
+ #{r\ 6360}#
+ #{w\ 6361}#
+ #{s\ 6362}#
+ #{mod\ 6363}#
+ #{constructor\ 6364}#
+ #{ids\ 6365}#
+ #{vals\ 6366}#
+ #{exps\ 6367}#)
+ (if (not (#{valid-bound-ids?\ 3564}# #{ids\ 6365}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e\ 3102}#)
- (let ((#{labels\ 3122}#
- (#{gen-labels\ 262}# #{ids\ 3108}#))
- (#{new-vars\ 3123}#
- (map #{gen-var\ 357}# #{ids\ 3108}#)))
- (let ((#{nw\ 3126}#
- (#{make-binding-wrap\ 291}#
- #{ids\ 3108}#
- #{labels\ 3122}#
- #{w\ 3104}#))
- (#{nr\ 3127}#
- (#{extend-var-env\ 234}#
- #{labels\ 3122}#
- #{new-vars\ 3123}#
- #{r\ 3103}#)))
- (#{constructor\ 3107}#
- #{s\ 3105}#
- (map syntax->datum #{ids\ 3108}#)
- #{new-vars\ 3123}#
- (map (lambda (#{x\ 3128}#)
- (#{chi\ 329}#
- #{x\ 3128}#
- #{r\ 3103}#
- #{w\ 3104}#
- #{mod\ 3106}#))
- #{vals\ 3109}#)
- (#{chi-body\ 337}#
- #{exps\ 3110}#
- (#{source-wrap\ 315}#
- #{e\ 3102}#
- #{nw\ 3126}#
- #{s\ 3105}#
- #{mod\ 3106}#)
- #{nr\ 3127}#
- #{nw\ 3126}#
- #{mod\ 3106}#))))))))
- (lambda (#{e\ 3130}#
- #{r\ 3131}#
- #{w\ 3132}#
- #{s\ 3133}#
- #{mod\ 3134}#)
- ((lambda (#{tmp\ 3140}#)
- ((lambda (#{tmp\ 3141}#)
- (if (if #{tmp\ 3141}#
- (apply (lambda (#{_\ 3147}#
- #{id\ 3148}#
- #{val\ 3149}#
- #{e1\ 3150}#
- #{e2\ 3151}#)
- (and-map #{id?\ 244}# #{id\ 3148}#))
- #{tmp\ 3141}#)
+ #{e\ 6359}#)
+ (let ((#{labels\ 6379}#
+ (#{gen-labels\ 3519}# #{ids\ 6365}#))
+ (#{new-vars\ 6380}#
+ (map #{gen-var\ 3614}# #{ids\ 6365}#)))
+ (let ((#{nw\ 6383}#
+ (#{make-binding-wrap\ 3548}#
+ #{ids\ 6365}#
+ #{labels\ 6379}#
+ #{w\ 6361}#))
+ (#{nr\ 6384}#
+ (#{extend-var-env\ 3491}#
+ #{labels\ 6379}#
+ #{new-vars\ 6380}#
+ #{r\ 6360}#)))
+ (#{constructor\ 6364}#
+ #{s\ 6362}#
+ (map syntax->datum #{ids\ 6365}#)
+ #{new-vars\ 6380}#
+ (map (lambda (#{x\ 6385}#)
+ (#{chi\ 3586}#
+ #{x\ 6385}#
+ #{r\ 6360}#
+ #{w\ 6361}#
+ #{mod\ 6363}#))
+ #{vals\ 6366}#)
+ (#{chi-body\ 3594}#
+ #{exps\ 6367}#
+ (#{source-wrap\ 3572}#
+ #{e\ 6359}#
+ #{nw\ 6383}#
+ #{s\ 6362}#
+ #{mod\ 6363}#)
+ #{nr\ 6384}#
+ #{nw\ 6383}#
+ #{mod\ 6363}#))))))))
+ (lambda (#{e\ 6387}#
+ #{r\ 6388}#
+ #{w\ 6389}#
+ #{s\ 6390}#
+ #{mod\ 6391}#)
+ ((lambda (#{tmp\ 6397}#)
+ ((lambda (#{tmp\ 6398}#)
+ (if (if #{tmp\ 6398}#
+ (apply (lambda (#{_\ 6404}#
+ #{id\ 6405}#
+ #{val\ 6406}#
+ #{e1\ 6407}#
+ #{e2\ 6408}#)
+ (and-map #{id?\ 3501}# #{id\ 6405}#))
+ #{tmp\ 6398}#)
#f)
- (apply (lambda (#{_\ 3158}#
- #{id\ 3159}#
- #{val\ 3160}#
- #{e1\ 3161}#
- #{e2\ 3162}#)
- (#{chi-let\ 3101}#
- #{e\ 3130}#
- #{r\ 3131}#
- #{w\ 3132}#
- #{s\ 3133}#
- #{mod\ 3134}#
- #{build-let\ 198}#
- #{id\ 3159}#
- #{val\ 3160}#
- (cons #{e1\ 3161}# #{e2\ 3162}#)))
- #{tmp\ 3141}#)
- ((lambda (#{tmp\ 3166}#)
- (if (if #{tmp\ 3166}#
- (apply (lambda (#{_\ 3173}#
- #{f\ 3174}#
- #{id\ 3175}#
- #{val\ 3176}#
- #{e1\ 3177}#
- #{e2\ 3178}#)
- (if (#{id?\ 244}# #{f\ 3174}#)
- (and-map #{id?\ 244}# #{id\ 3175}#)
+ (apply (lambda (#{_\ 6415}#
+ #{id\ 6416}#
+ #{val\ 6417}#
+ #{e1\ 6418}#
+ #{e2\ 6419}#)
+ (#{chi-let\ 6358}#
+ #{e\ 6387}#
+ #{r\ 6388}#
+ #{w\ 6389}#
+ #{s\ 6390}#
+ #{mod\ 6391}#
+ #{build-let\ 3455}#
+ #{id\ 6416}#
+ #{val\ 6417}#
+ (cons #{e1\ 6418}# #{e2\ 6419}#)))
+ #{tmp\ 6398}#)
+ ((lambda (#{tmp\ 6423}#)
+ (if (if #{tmp\ 6423}#
+ (apply (lambda (#{_\ 6430}#
+ #{f\ 6431}#
+ #{id\ 6432}#
+ #{val\ 6433}#
+ #{e1\ 6434}#
+ #{e2\ 6435}#)
+ (if (#{id?\ 3501}# #{f\ 6431}#)
+ (and-map #{id?\ 3501}# #{id\ 6432}#)
#f))
- #{tmp\ 3166}#)
+ #{tmp\ 6423}#)
#f)
- (apply (lambda (#{_\ 3188}#
- #{f\ 3189}#
- #{id\ 3190}#
- #{val\ 3191}#
- #{e1\ 3192}#
- #{e2\ 3193}#)
- (#{chi-let\ 3101}#
- #{e\ 3130}#
- #{r\ 3131}#
- #{w\ 3132}#
- #{s\ 3133}#
- #{mod\ 3134}#
- #{build-named-let\ 200}#
- (cons #{f\ 3189}# #{id\ 3190}#)
- #{val\ 3191}#
- (cons #{e1\ 3192}# #{e2\ 3193}#)))
- #{tmp\ 3166}#)
- ((lambda (#{_\ 3198}#)
+ (apply (lambda (#{_\ 6445}#
+ #{f\ 6446}#
+ #{id\ 6447}#
+ #{val\ 6448}#
+ #{e1\ 6449}#
+ #{e2\ 6450}#)
+ (#{chi-let\ 6358}#
+ #{e\ 6387}#
+ #{r\ 6388}#
+ #{w\ 6389}#
+ #{s\ 6390}#
+ #{mod\ 6391}#
+ #{build-named-let\ 3457}#
+ (cons #{f\ 6446}# #{id\ 6447}#)
+ #{val\ 6448}#
+ (cons #{e1\ 6449}# #{e2\ 6450}#)))
+ #{tmp\ 6423}#)
+ ((lambda (#{_\ 6455}#)
(syntax-violation
'let
"bad let"
- (#{source-wrap\ 315}#
- #{e\ 3130}#
- #{w\ 3132}#
- #{s\ 3133}#
- #{mod\ 3134}#)))
- #{tmp\ 3140}#)))
+ (#{source-wrap\ 3572}#
+ #{e\ 6387}#
+ #{w\ 6389}#
+ #{s\ 6390}#
+ #{mod\ 6391}#)))
+ #{tmp\ 6397}#)))
($sc-dispatch
- #{tmp\ 3140}#
+ #{tmp\ 6397}#
'(any any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3140}#
+ #{tmp\ 6397}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3130}#))))
- (#{global-extend\ 240}#
+ #{e\ 6387}#))))
+ (#{global-extend\ 3497}#
'core
'letrec
- (lambda (#{e\ 3199}#
- #{r\ 3200}#
- #{w\ 3201}#
- #{s\ 3202}#
- #{mod\ 3203}#)
- ((lambda (#{tmp\ 3209}#)
- ((lambda (#{tmp\ 3210}#)
- (if (if #{tmp\ 3210}#
- (apply (lambda (#{_\ 3216}#
- #{id\ 3217}#
- #{val\ 3218}#
- #{e1\ 3219}#
- #{e2\ 3220}#)
- (and-map #{id?\ 244}# #{id\ 3217}#))
- #{tmp\ 3210}#)
+ (lambda (#{e\ 6456}#
+ #{r\ 6457}#
+ #{w\ 6458}#
+ #{s\ 6459}#
+ #{mod\ 6460}#)
+ ((lambda (#{tmp\ 6466}#)
+ ((lambda (#{tmp\ 6467}#)
+ (if (if #{tmp\ 6467}#
+ (apply (lambda (#{_\ 6473}#
+ #{id\ 6474}#
+ #{val\ 6475}#
+ #{e1\ 6476}#
+ #{e2\ 6477}#)
+ (and-map #{id?\ 3501}# #{id\ 6474}#))
+ #{tmp\ 6467}#)
#f)
- (apply (lambda (#{_\ 3227}#
- #{id\ 3228}#
- #{val\ 3229}#
- #{e1\ 3230}#
- #{e2\ 3231}#)
- (let ((#{ids\ 3233}# #{id\ 3228}#))
- (if (not (#{valid-bound-ids?\ 307}#
- #{ids\ 3233}#))
+ (apply (lambda (#{_\ 6484}#
+ #{id\ 6485}#
+ #{val\ 6486}#
+ #{e1\ 6487}#
+ #{e2\ 6488}#)
+ (let ((#{ids\ 6490}# #{id\ 6485}#))
+ (if (not (#{valid-bound-ids?\ 3564}#
+ #{ids\ 6490}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e\ 3199}#)
- (let ((#{labels\ 3237}#
- (#{gen-labels\ 262}# #{ids\ 3233}#))
- (#{new-vars\ 3238}#
- (map #{gen-var\ 357}# #{ids\ 3233}#)))
- (let ((#{w\ 3241}#
- (#{make-binding-wrap\ 291}#
- #{ids\ 3233}#
- #{labels\ 3237}#
- #{w\ 3201}#))
- (#{r\ 3242}#
- (#{extend-var-env\ 234}#
- #{labels\ 3237}#
- #{new-vars\ 3238}#
- #{r\ 3200}#)))
- (#{build-letrec\ 202}#
- #{s\ 3202}#
- (map syntax->datum #{ids\ 3233}#)
- #{new-vars\ 3238}#
- (map (lambda (#{x\ 3243}#)
- (#{chi\ 329}#
- #{x\ 3243}#
- #{r\ 3242}#
- #{w\ 3241}#
- #{mod\ 3203}#))
- #{val\ 3229}#)
- (#{chi-body\ 337}#
- (cons #{e1\ 3230}# #{e2\ 3231}#)
- (#{source-wrap\ 315}#
- #{e\ 3199}#
- #{w\ 3241}#
- #{s\ 3202}#
- #{mod\ 3203}#)
- #{r\ 3242}#
- #{w\ 3241}#
- #{mod\ 3203}#)))))))
- #{tmp\ 3210}#)
- ((lambda (#{_\ 3248}#)
+ #{e\ 6456}#)
+ (let ((#{labels\ 6494}#
+ (#{gen-labels\ 3519}# #{ids\ 6490}#))
+ (#{new-vars\ 6495}#
+ (map #{gen-var\ 3614}# #{ids\ 6490}#)))
+ (let ((#{w\ 6498}#
+ (#{make-binding-wrap\ 3548}#
+ #{ids\ 6490}#
+ #{labels\ 6494}#
+ #{w\ 6458}#))
+ (#{r\ 6499}#
+ (#{extend-var-env\ 3491}#
+ #{labels\ 6494}#
+ #{new-vars\ 6495}#
+ #{r\ 6457}#)))
+ (#{build-letrec\ 3459}#
+ #{s\ 6459}#
+ (map syntax->datum #{ids\ 6490}#)
+ #{new-vars\ 6495}#
+ (map (lambda (#{x\ 6500}#)
+ (#{chi\ 3586}#
+ #{x\ 6500}#
+ #{r\ 6499}#
+ #{w\ 6498}#
+ #{mod\ 6460}#))
+ #{val\ 6486}#)
+ (#{chi-body\ 3594}#
+ (cons #{e1\ 6487}# #{e2\ 6488}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 6456}#
+ #{w\ 6498}#
+ #{s\ 6459}#
+ #{mod\ 6460}#)
+ #{r\ 6499}#
+ #{w\ 6498}#
+ #{mod\ 6460}#)))))))
+ #{tmp\ 6467}#)
+ ((lambda (#{_\ 6505}#)
(syntax-violation
'letrec
"bad letrec"
- (#{source-wrap\ 315}#
- #{e\ 3199}#
- #{w\ 3201}#
- #{s\ 3202}#
- #{mod\ 3203}#)))
- #{tmp\ 3209}#)))
+ (#{source-wrap\ 3572}#
+ #{e\ 6456}#
+ #{w\ 6458}#
+ #{s\ 6459}#
+ #{mod\ 6460}#)))
+ #{tmp\ 6466}#)))
($sc-dispatch
- #{tmp\ 3209}#
+ #{tmp\ 6466}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3199}#)))
- (#{global-extend\ 240}#
+ #{e\ 6456}#)))
+ (#{global-extend\ 3497}#
'core
'set!
- (lambda (#{e\ 3249}#
- #{r\ 3250}#
- #{w\ 3251}#
- #{s\ 3252}#
- #{mod\ 3253}#)
- ((lambda (#{tmp\ 3259}#)
- ((lambda (#{tmp\ 3260}#)
- (if (if #{tmp\ 3260}#
- (apply (lambda (#{_\ 3264}# #{id\ 3265}# #{val\ 3266}#)
- (#{id?\ 244}# #{id\ 3265}#))
- #{tmp\ 3260}#)
+ (lambda (#{e\ 6506}#
+ #{r\ 6507}#
+ #{w\ 6508}#
+ #{s\ 6509}#
+ #{mod\ 6510}#)
+ ((lambda (#{tmp\ 6516}#)
+ ((lambda (#{tmp\ 6517}#)
+ (if (if #{tmp\ 6517}#
+ (apply (lambda (#{_\ 6521}# #{id\ 6522}# #{val\ 6523}#)
+ (#{id?\ 3501}# #{id\ 6522}#))
+ #{tmp\ 6517}#)
#f)
- (apply (lambda (#{_\ 3270}# #{id\ 3271}# #{val\ 3272}#)
- (let ((#{val\ 3275}#
- (#{chi\ 329}#
- #{val\ 3272}#
- #{r\ 3250}#
- #{w\ 3251}#
- #{mod\ 3253}#))
- (#{n\ 3276}#
- (#{id-var-name\ 301}#
- #{id\ 3271}#
- #{w\ 3251}#)))
- (let ((#{b\ 3278}#
- (#{lookup\ 238}#
- #{n\ 3276}#
- #{r\ 3250}#
- #{mod\ 3253}#)))
- (let ((#{atom-key\ 3281}#
- (#{binding-type\ 227}# #{b\ 3278}#)))
- (if (memv #{atom-key\ 3281}#
+ (apply (lambda (#{_\ 6527}# #{id\ 6528}# #{val\ 6529}#)
+ (let ((#{val\ 6532}#
+ (#{chi\ 3586}#
+ #{val\ 6529}#
+ #{r\ 6507}#
+ #{w\ 6508}#
+ #{mod\ 6510}#))
+ (#{n\ 6533}#
+ (#{id-var-name\ 3558}#
+ #{id\ 6528}#
+ #{w\ 6508}#)))
+ (let ((#{b\ 6535}#
+ (#{lookup\ 3495}#
+ #{n\ 6533}#
+ #{r\ 6507}#
+ #{mod\ 6510}#)))
+ (let ((#{atom-key\ 6538}#
+ (#{binding-type\ 3484}# #{b\ 6535}#)))
+ (if (memv #{atom-key\ 6538}#
'(lexical))
- (#{build-lexical-assignment\ 174}#
- #{s\ 3252}#
- (syntax->datum #{id\ 3271}#)
- (#{binding-value\ 229}# #{b\ 3278}#)
- #{val\ 3275}#)
- (if (memv #{atom-key\ 3281}#
+ (#{build-lexical-assignment\ 3431}#
+ #{s\ 6509}#
+ (syntax->datum #{id\ 6528}#)
+ (#{binding-value\ 3486}# #{b\ 6535}#)
+ #{val\ 6532}#)
+ (if (memv #{atom-key\ 6538}#
'(global))
- (#{build-global-assignment\ 180}#
- #{s\ 3252}#
- #{n\ 3276}#
- #{val\ 3275}#
- #{mod\ 3253}#)
- (if (memv #{atom-key\ 3281}#
+ (#{build-global-assignment\ 3437}#
+ #{s\ 6509}#
+ #{n\ 6533}#
+ #{val\ 6532}#
+ #{mod\ 6510}#)
+ (if (memv #{atom-key\ 6538}#
'(displaced-lexical))
(syntax-violation
'set!
"identifier out of context"
- (#{wrap\ 313}#
- #{id\ 3271}#
- #{w\ 3251}#
- #{mod\ 3253}#))
+ (#{wrap\ 3570}#
+ #{id\ 6528}#
+ #{w\ 6508}#
+ #{mod\ 6510}#))
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 315}#
- #{e\ 3249}#
- #{w\ 3251}#
- #{s\ 3252}#
- #{mod\ 3253}#)))))))))
- #{tmp\ 3260}#)
- ((lambda (#{tmp\ 3286}#)
- (if #{tmp\ 3286}#
- (apply (lambda (#{_\ 3291}#
- #{head\ 3292}#
- #{tail\ 3293}#
- #{val\ 3294}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 6506}#
+ #{w\ 6508}#
+ #{s\ 6509}#
+ #{mod\ 6510}#)))))))))
+ #{tmp\ 6517}#)
+ ((lambda (#{tmp\ 6543}#)
+ (if #{tmp\ 6543}#
+ (apply (lambda (#{_\ 6548}#
+ #{head\ 6549}#
+ #{tail\ 6550}#
+ #{val\ 6551}#)
(call-with-values
(lambda ()
- (#{syntax-type\ 325}#
- #{head\ 3292}#
- #{r\ 3250}#
+ (#{syntax-type\ 3582}#
+ #{head\ 6549}#
+ #{r\ 6507}#
'(())
#f
#f
- #{mod\ 3253}#
+ #{mod\ 6510}#
#t))
- (lambda (#{type\ 3297}#
- #{value\ 3298}#
- #{ee\ 3299}#
- #{ww\ 3300}#
- #{ss\ 3301}#
- #{modmod\ 3302}#)
- (if (memv #{type\ 3297}#
+ (lambda (#{type\ 6554}#
+ #{value\ 6555}#
+ #{ee\ 6556}#
+ #{ww\ 6557}#
+ #{ss\ 6558}#
+ #{modmod\ 6559}#)
+ (if (memv #{type\ 6554}#
'(module-ref))
- (let ((#{val\ 3311}#
- (#{chi\ 329}#
- #{val\ 3294}#
- #{r\ 3250}#
- #{w\ 3251}#
- #{mod\ 3253}#)))
+ (let ((#{val\ 6568}#
+ (#{chi\ 3586}#
+ #{val\ 6551}#
+ #{r\ 6507}#
+ #{w\ 6508}#
+ #{mod\ 6510}#)))
(call-with-values
(lambda ()
- (#{value\ 3298}#
- (cons #{head\ 3292}#
- #{tail\ 3293}#)))
- (lambda (#{id\ 3313}# #{mod\ 3314}#)
- (#{build-global-assignment\ 180}#
- #{s\ 3252}#
- #{id\ 3313}#
- #{val\ 3311}#
- #{mod\ 3314}#))))
- (#{build-application\ 166}#
- #{s\ 3252}#
- (#{chi\ 329}#
+ (#{value\ 6555}#
+ (cons #{head\ 6549}#
+ #{tail\ 6550}#)))
+ (lambda (#{id\ 6570}# #{mod\ 6571}#)
+ (#{build-global-assignment\ 3437}#
+ #{s\ 6509}#
+ #{id\ 6570}#
+ #{val\ 6568}#
+ #{mod\ 6571}#))))
+ (#{build-application\ 3423}#
+ #{s\ 6509}#
+ (#{chi\ 3586}#
(list '#(syntax-object
setter
((top)
(top)
(top)
(top))
- #("i3303"
- "i3304"
- "i3305"
- "i3306"
- "i3307"
- "i3308"))
+ #("i6560"
+ "i6561"
+ "i6562"
+ "i6563"
+ "i6564"
+ "i6565"))
#(ribcage
#(_ head tail val)
#((top)
(top)
(top)
(top))
- #("i3287"
- "i3288"
- "i3289"
- "i3290"))
+ #("i6544"
+ "i6545"
+ "i6546"
+ "i6547"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
(top)
(top)
(top))
- #("i3254"
- "i3255"
- "i3256"
- "i3257"
- "i3258"))
+ #("i6511"
+ "i6512"
+ "i6513"
+ "i6514"
+ "i6515"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile))
- #{head\ 3292}#)
- #{r\ 3250}#
- #{w\ 3251}#
- #{mod\ 3253}#)
- (map (lambda (#{e\ 3318}#)
- (#{chi\ 329}#
- #{e\ 3318}#
- #{r\ 3250}#
- #{w\ 3251}#
- #{mod\ 3253}#))
+ #{head\ 6549}#)
+ #{r\ 6507}#
+ #{w\ 6508}#
+ #{mod\ 6510}#)
+ (map (lambda (#{e\ 6575}#)
+ (#{chi\ 3586}#
+ #{e\ 6575}#
+ #{r\ 6507}#
+ #{w\ 6508}#
+ #{mod\ 6510}#))
(append
- #{tail\ 3293}#
- (list #{val\ 3294}#))))))))
- #{tmp\ 3286}#)
- ((lambda (#{_\ 3322}#)
+ #{tail\ 6550}#
+ (list #{val\ 6551}#))))))))
+ #{tmp\ 6543}#)
+ ((lambda (#{_\ 6579}#)
(syntax-violation
'set!
"bad set!"
- (#{source-wrap\ 315}#
- #{e\ 3249}#
- #{w\ 3251}#
- #{s\ 3252}#
- #{mod\ 3253}#)))
- #{tmp\ 3259}#)))
+ (#{source-wrap\ 3572}#
+ #{e\ 6506}#
+ #{w\ 6508}#
+ #{s\ 6509}#
+ #{mod\ 6510}#)))
+ #{tmp\ 6516}#)))
($sc-dispatch
- #{tmp\ 3259}#
+ #{tmp\ 6516}#
'(any (any . each-any) any)))))
($sc-dispatch
- #{tmp\ 3259}#
+ #{tmp\ 6516}#
'(any any any))))
- #{e\ 3249}#)))
- (#{global-extend\ 240}#
+ #{e\ 6506}#)))
+ (#{global-extend\ 3497}#
'module-ref
'@
- (lambda (#{e\ 3323}#)
- ((lambda (#{tmp\ 3325}#)
- ((lambda (#{tmp\ 3326}#)
- (if (if #{tmp\ 3326}#
- (apply (lambda (#{_\ 3330}# #{mod\ 3331}# #{id\ 3332}#)
- (if (and-map #{id?\ 244}# #{mod\ 3331}#)
- (#{id?\ 244}# #{id\ 3332}#)
+ (lambda (#{e\ 6580}#)
+ ((lambda (#{tmp\ 6582}#)
+ ((lambda (#{tmp\ 6583}#)
+ (if (if #{tmp\ 6583}#
+ (apply (lambda (#{_\ 6587}# #{mod\ 6588}# #{id\ 6589}#)
+ (if (and-map #{id?\ 3501}# #{mod\ 6588}#)
+ (#{id?\ 3501}# #{id\ 6589}#)
#f))
- #{tmp\ 3326}#)
+ #{tmp\ 6583}#)
#f)
- (apply (lambda (#{_\ 3339}# #{mod\ 3340}# #{id\ 3341}#)
+ (apply (lambda (#{_\ 6596}# #{mod\ 6597}# #{id\ 6598}#)
(values
- (syntax->datum #{id\ 3341}#)
+ (syntax->datum #{id\ 6598}#)
(syntax->datum
(cons '#(syntax-object
public
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3336" "i3337" "i3338"))
+ #("i6593" "i6594" "i6595"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i3324"))
+ #(ribcage #(e) #((top)) #("i6581"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile))
- #{mod\ 3340}#))))
- #{tmp\ 3326}#)
+ #{mod\ 6597}#))))
+ #{tmp\ 6583}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3325}#)))
+ #{tmp\ 6582}#)))
($sc-dispatch
- #{tmp\ 3325}#
+ #{tmp\ 6582}#
'(any each-any any))))
- #{e\ 3323}#)))
- (#{global-extend\ 240}#
+ #{e\ 6580}#)))
+ (#{global-extend\ 3497}#
'module-ref
'@@
- (lambda (#{e\ 3343}#)
- ((lambda (#{tmp\ 3345}#)
- ((lambda (#{tmp\ 3346}#)
- (if (if #{tmp\ 3346}#
- (apply (lambda (#{_\ 3350}# #{mod\ 3351}# #{id\ 3352}#)
- (if (and-map #{id?\ 244}# #{mod\ 3351}#)
- (#{id?\ 244}# #{id\ 3352}#)
+ (lambda (#{e\ 6600}#)
+ ((lambda (#{tmp\ 6602}#)
+ ((lambda (#{tmp\ 6603}#)
+ (if (if #{tmp\ 6603}#
+ (apply (lambda (#{_\ 6607}# #{mod\ 6608}# #{id\ 6609}#)
+ (if (and-map #{id?\ 3501}# #{mod\ 6608}#)
+ (#{id?\ 3501}# #{id\ 6609}#)
#f))
- #{tmp\ 3346}#)
+ #{tmp\ 6603}#)
#f)
- (apply (lambda (#{_\ 3359}# #{mod\ 3360}# #{id\ 3361}#)
+ (apply (lambda (#{_\ 6616}# #{mod\ 6617}# #{id\ 6618}#)
(values
- (syntax->datum #{id\ 3361}#)
+ (syntax->datum #{id\ 6618}#)
(syntax->datum
(cons '#(syntax-object
private
#(ribcage
#(_ mod id)
#((top) (top) (top))
- #("i3356" "i3357" "i3358"))
+ #("i6613" "i6614" "i6615"))
#(ribcage () () ())
- #(ribcage #(e) #((top)) #("i3344"))
+ #(ribcage #(e) #((top)) #("i6601"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile))
- #{mod\ 3360}#))))
- #{tmp\ 3346}#)
+ #{mod\ 6617}#))))
+ #{tmp\ 6603}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3345}#)))
+ #{tmp\ 6602}#)))
($sc-dispatch
- #{tmp\ 3345}#
+ #{tmp\ 6602}#
'(any each-any any))))
- #{e\ 3343}#)))
- (#{global-extend\ 240}#
+ #{e\ 6600}#)))
+ (#{global-extend\ 3497}#
'core
'if
- (lambda (#{e\ 3363}#
- #{r\ 3364}#
- #{w\ 3365}#
- #{s\ 3366}#
- #{mod\ 3367}#)
- ((lambda (#{tmp\ 3373}#)
- ((lambda (#{tmp\ 3374}#)
- (if #{tmp\ 3374}#
- (apply (lambda (#{_\ 3378}# #{test\ 3379}# #{then\ 3380}#)
- (#{build-conditional\ 168}#
- #{s\ 3366}#
- (#{chi\ 329}#
- #{test\ 3379}#
- #{r\ 3364}#
- #{w\ 3365}#
- #{mod\ 3367}#)
- (#{chi\ 329}#
- #{then\ 3380}#
- #{r\ 3364}#
- #{w\ 3365}#
- #{mod\ 3367}#)
- (#{build-void\ 164}# #f)))
- #{tmp\ 3374}#)
- ((lambda (#{tmp\ 3382}#)
- (if #{tmp\ 3382}#
- (apply (lambda (#{_\ 3387}#
- #{test\ 3388}#
- #{then\ 3389}#
- #{else\ 3390}#)
- (#{build-conditional\ 168}#
- #{s\ 3366}#
- (#{chi\ 329}#
- #{test\ 3388}#
- #{r\ 3364}#
- #{w\ 3365}#
- #{mod\ 3367}#)
- (#{chi\ 329}#
- #{then\ 3389}#
- #{r\ 3364}#
- #{w\ 3365}#
- #{mod\ 3367}#)
- (#{chi\ 329}#
- #{else\ 3390}#
- #{r\ 3364}#
- #{w\ 3365}#
- #{mod\ 3367}#)))
- #{tmp\ 3382}#)
+ (lambda (#{e\ 6620}#
+ #{r\ 6621}#
+ #{w\ 6622}#
+ #{s\ 6623}#
+ #{mod\ 6624}#)
+ ((lambda (#{tmp\ 6630}#)
+ ((lambda (#{tmp\ 6631}#)
+ (if #{tmp\ 6631}#
+ (apply (lambda (#{_\ 6635}# #{test\ 6636}# #{then\ 6637}#)
+ (#{build-conditional\ 3425}#
+ #{s\ 6623}#
+ (#{chi\ 3586}#
+ #{test\ 6636}#
+ #{r\ 6621}#
+ #{w\ 6622}#
+ #{mod\ 6624}#)
+ (#{chi\ 3586}#
+ #{then\ 6637}#
+ #{r\ 6621}#
+ #{w\ 6622}#
+ #{mod\ 6624}#)
+ (#{build-void\ 3421}# #f)))
+ #{tmp\ 6631}#)
+ ((lambda (#{tmp\ 6639}#)
+ (if #{tmp\ 6639}#
+ (apply (lambda (#{_\ 6644}#
+ #{test\ 6645}#
+ #{then\ 6646}#
+ #{else\ 6647}#)
+ (#{build-conditional\ 3425}#
+ #{s\ 6623}#
+ (#{chi\ 3586}#
+ #{test\ 6645}#
+ #{r\ 6621}#
+ #{w\ 6622}#
+ #{mod\ 6624}#)
+ (#{chi\ 3586}#
+ #{then\ 6646}#
+ #{r\ 6621}#
+ #{w\ 6622}#
+ #{mod\ 6624}#)
+ (#{chi\ 3586}#
+ #{else\ 6647}#
+ #{r\ 6621}#
+ #{w\ 6622}#
+ #{mod\ 6624}#)))
+ #{tmp\ 6639}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3373}#)))
+ #{tmp\ 6630}#)))
($sc-dispatch
- #{tmp\ 3373}#
+ #{tmp\ 6630}#
'(any any any any)))))
($sc-dispatch
- #{tmp\ 3373}#
+ #{tmp\ 6630}#
'(any any any))))
- #{e\ 3363}#)))
- (#{global-extend\ 240}#
+ #{e\ 6620}#)))
+ (#{global-extend\ 3497}#
'core
'with-fluids
- (lambda (#{e\ 3391}#
- #{r\ 3392}#
- #{w\ 3393}#
- #{s\ 3394}#
- #{mod\ 3395}#)
- ((lambda (#{tmp\ 3401}#)
- ((lambda (#{tmp\ 3402}#)
- (if #{tmp\ 3402}#
- (apply (lambda (#{_\ 3408}#
- #{fluid\ 3409}#
- #{val\ 3410}#
- #{b\ 3411}#
- #{b*\ 3412}#)
- (#{build-dynlet\ 170}#
- #{s\ 3394}#
- (map (lambda (#{x\ 3413}#)
- (#{chi\ 329}#
- #{x\ 3413}#
- #{r\ 3392}#
- #{w\ 3393}#
- #{mod\ 3395}#))
- #{fluid\ 3409}#)
- (map (lambda (#{x\ 3416}#)
- (#{chi\ 329}#
- #{x\ 3416}#
- #{r\ 3392}#
- #{w\ 3393}#
- #{mod\ 3395}#))
- #{val\ 3410}#)
- (#{chi-body\ 337}#
- (cons #{b\ 3411}# #{b*\ 3412}#)
- (#{source-wrap\ 315}#
- #{e\ 3391}#
- #{w\ 3393}#
- #{s\ 3394}#
- #{mod\ 3395}#)
- #{r\ 3392}#
- #{w\ 3393}#
- #{mod\ 3395}#)))
- #{tmp\ 3402}#)
+ (lambda (#{e\ 6648}#
+ #{r\ 6649}#
+ #{w\ 6650}#
+ #{s\ 6651}#
+ #{mod\ 6652}#)
+ ((lambda (#{tmp\ 6658}#)
+ ((lambda (#{tmp\ 6659}#)
+ (if #{tmp\ 6659}#
+ (apply (lambda (#{_\ 6665}#
+ #{fluid\ 6666}#
+ #{val\ 6667}#
+ #{b\ 6668}#
+ #{b*\ 6669}#)
+ (#{build-dynlet\ 3427}#
+ #{s\ 6651}#
+ (map (lambda (#{x\ 6670}#)
+ (#{chi\ 3586}#
+ #{x\ 6670}#
+ #{r\ 6649}#
+ #{w\ 6650}#
+ #{mod\ 6652}#))
+ #{fluid\ 6666}#)
+ (map (lambda (#{x\ 6673}#)
+ (#{chi\ 3586}#
+ #{x\ 6673}#
+ #{r\ 6649}#
+ #{w\ 6650}#
+ #{mod\ 6652}#))
+ #{val\ 6667}#)
+ (#{chi-body\ 3594}#
+ (cons #{b\ 6668}# #{b*\ 6669}#)
+ (#{source-wrap\ 3572}#
+ #{e\ 6648}#
+ #{w\ 6650}#
+ #{s\ 6651}#
+ #{mod\ 6652}#)
+ #{r\ 6649}#
+ #{w\ 6650}#
+ #{mod\ 6652}#)))
+ #{tmp\ 6659}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3401}#)))
+ #{tmp\ 6658}#)))
($sc-dispatch
- #{tmp\ 3401}#
+ #{tmp\ 6658}#
'(any #(each (any any)) any . each-any))))
- #{e\ 3391}#)))
- (#{global-extend\ 240}#
+ #{e\ 6648}#)))
+ (#{global-extend\ 3497}#
'begin
'begin
'())
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'define
'define
'())
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'define-syntax
'define-syntax
'())
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'eval-when
'eval-when
'())
- (#{global-extend\ 240}#
+ (#{global-extend\ 3497}#
'core
'syntax-case
- (letrec ((#{gen-syntax-case\ 3427}#
- (lambda (#{x\ 3428}#
- #{keys\ 3429}#
- #{clauses\ 3430}#
- #{r\ 3431}#
- #{mod\ 3432}#)
- (if (null? #{clauses\ 3430}#)
- (#{build-application\ 166}#
+ (letrec ((#{gen-syntax-case\ 6684}#
+ (lambda (#{x\ 6685}#
+ #{keys\ 6686}#
+ #{clauses\ 6687}#
+ #{r\ 6688}#
+ #{mod\ 6689}#)
+ (if (null? #{clauses\ 6687}#)
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}#
+ (#{build-primref\ 3449}#
#f
'syntax-violation)
- (list (#{build-data\ 194}# #f #f)
- (#{build-data\ 194}#
+ (list (#{build-data\ 3451}# #f #f)
+ (#{build-data\ 3451}#
#f
"source expression failed to match any pattern")
- #{x\ 3428}#))
- ((lambda (#{tmp\ 3442}#)
- ((lambda (#{tmp\ 3443}#)
- (if #{tmp\ 3443}#
- (apply (lambda (#{pat\ 3446}# #{exp\ 3447}#)
- (if (if (#{id?\ 244}# #{pat\ 3446}#)
+ #{x\ 6685}#))
+ ((lambda (#{tmp\ 6699}#)
+ ((lambda (#{tmp\ 6700}#)
+ (if #{tmp\ 6700}#
+ (apply (lambda (#{pat\ 6703}# #{exp\ 6704}#)
+ (if (if (#{id?\ 3501}# #{pat\ 6703}#)
(and-map
- (lambda (#{x\ 3450}#)
- (not (#{free-id=?\ 303}#
- #{pat\ 3446}#
- #{x\ 3450}#)))
+ (lambda (#{x\ 6707}#)
+ (not (#{free-id=?\ 3560}#
+ #{pat\ 6703}#
+ #{x\ 6707}#)))
(cons '#(syntax-object
...
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("i3444" "i3445"))
+ #("i6701" "i6702"))
#(ribcage () () ())
#(ribcage
#(x
(top)
(top)
(top))
- #("i3433"
- "i3434"
- "i3435"
- "i3436"
- "i3437"))
+ #("i6690"
+ "i6691"
+ "i6692"
+ "i6693"
+ "i6694"))
#(ribcage
(gen-syntax-case
gen-clause
(top)
(top)
(top))
- ("i3426"
- "i3424"
- "i3422"
- "i3420"))
+ ("i6683"
+ "i6681"
+ "i6679"
+ "i6677"))
#(ribcage
(lambda-var-list
gen-var
(top)
(top)
(top))
- ("i358"
- "i356"
- "i354"
- "i352"
- "i350"
- "i348"
- "i346"
- "i344"
- "i342"
- "i340"
- "i338"
- "i336"
- "i334"
- "i332"
- "i330"
- "i328"
- "i326"
- "i324"
- "i322"
- "i320"
- "i318"
- "i316"
- "i314"
- "i312"
- "i310"
- "i308"
- "i306"
- "i304"
- "i302"
- "i300"
- "i298"
- "i296"
- "i294"
- "i292"
- "i290"
- "i288"
- "i287"
- "i286"
- "i284"
- "i283"
- "i282"
- "i281"
- "i280"
- "i278"
- "i276"
- "i274"
- "i272"
- "i270"
- "i268"
- "i266"
- "i264"
- "i261"
- "i259"
- "i258"
- "i257"
- "i256"
- "i255"
- "i254"
- "i252"
- "i250"
- "i248"
- "i246"
- "i245"
- "i243"
- "i241"
- "i239"
- "i237"
- "i235"
- "i233"
- "i231"
- "i230"
- "i228"
- "i226"
- "i225"
- "i224"
- "i222"
- "i221"
- "i219"
- "i217"
- "i215"
- "i213"
- "i211"
- "i209"
- "i207"
- "i205"
- "i203"
- "i201"
- "i199"
- "i197"
- "i195"
- "i193"
- "i191"
- "i189"
- "i187"
- "i185"
- "i183"
- "i181"
- "i179"
- "i177"
- "i175"
- "i173"
- "i171"
- "i169"
- "i167"
- "i165"
- "i163"
- "i161"
- "i159"
- "i157"
- "i156"
- "i154"
- "i152"
- "i150"
- "i148"
- "i146"
- "i144"
- "i142"
- "i140"))
+ ("i3615"
+ "i3613"
+ "i3611"
+ "i3609"
+ "i3607"
+ "i3605"
+ "i3603"
+ "i3601"
+ "i3599"
+ "i3597"
+ "i3595"
+ "i3593"
+ "i3591"
+ "i3589"
+ "i3587"
+ "i3585"
+ "i3583"
+ "i3581"
+ "i3579"
+ "i3577"
+ "i3575"
+ "i3573"
+ "i3571"
+ "i3569"
+ "i3567"
+ "i3565"
+ "i3563"
+ "i3561"
+ "i3559"
+ "i3557"
+ "i3555"
+ "i3553"
+ "i3551"
+ "i3549"
+ "i3547"
+ "i3545"
+ "i3544"
+ "i3543"
+ "i3541"
+ "i3540"
+ "i3539"
+ "i3538"
+ "i3537"
+ "i3535"
+ "i3533"
+ "i3531"
+ "i3529"
+ "i3527"
+ "i3525"
+ "i3523"
+ "i3521"
+ "i3518"
+ "i3516"
+ "i3515"
+ "i3514"
+ "i3513"
+ "i3512"
+ "i3511"
+ "i3509"
+ "i3507"
+ "i3505"
+ "i3503"
+ "i3502"
+ "i3500"
+ "i3498"
+ "i3496"
+ "i3494"
+ "i3492"
+ "i3490"
+ "i3488"
+ "i3487"
+ "i3485"
+ "i3483"
+ "i3482"
+ "i3481"
+ "i3479"
+ "i3478"
+ "i3476"
+ "i3474"
+ "i3472"
+ "i3470"
+ "i3468"
+ "i3466"
+ "i3464"
+ "i3462"
+ "i3460"
+ "i3458"
+ "i3456"
+ "i3454"
+ "i3452"
+ "i3450"
+ "i3448"
+ "i3446"
+ "i3444"
+ "i3442"
+ "i3440"
+ "i3438"
+ "i3436"
+ "i3434"
+ "i3432"
+ "i3430"
+ "i3428"
+ "i3426"
+ "i3424"
+ "i3422"
+ "i3420"
+ "i3418"
+ "i3416"
+ "i3414"
+ "i3413"
+ "i3411"
+ "i3409"
+ "i3407"
+ "i3405"
+ "i3403"
+ "i3401"
+ "i3399"
+ "i3397"))
#(ribcage
(define-structure
and-map*)
((top) (top))
- ("i43" "i41")))
+ ("i3300" "i3298")))
(hygiene guile))
- #{keys\ 3429}#))
+ #{keys\ 6686}#))
#f)
- (let ((#{labels\ 3454}#
- (list (#{gen-label\ 260}#)))
- (#{var\ 3455}#
- (#{gen-var\ 357}#
- #{pat\ 3446}#)))
- (#{build-application\ 166}#
+ (let ((#{labels\ 6711}#
+ (list (#{gen-label\ 3517}#)))
+ (#{var\ 6712}#
+ (#{gen-var\ 3614}#
+ #{pat\ 6703}#)))
+ (#{build-application\ 3423}#
#f
- (#{build-simple-lambda\ 186}#
+ (#{build-simple-lambda\ 3443}#
#f
(list (syntax->datum
- #{pat\ 3446}#))
+ #{pat\ 6703}#))
#f
- (list #{var\ 3455}#)
+ (list #{var\ 6712}#)
#f
- (#{chi\ 329}#
- #{exp\ 3447}#
- (#{extend-env\ 232}#
- #{labels\ 3454}#
+ (#{chi\ 3586}#
+ #{exp\ 6704}#
+ (#{extend-env\ 3489}#
+ #{labels\ 6711}#
(list (cons 'syntax
- (cons #{var\ 3455}#
+ (cons #{var\ 6712}#
0)))
- #{r\ 3431}#)
- (#{make-binding-wrap\ 291}#
- (list #{pat\ 3446}#)
- #{labels\ 3454}#
+ #{r\ 6688}#)
+ (#{make-binding-wrap\ 3548}#
+ (list #{pat\ 6703}#)
+ #{labels\ 6711}#
'(()))
- #{mod\ 3432}#))
- (list #{x\ 3428}#)))
- (#{gen-clause\ 3425}#
- #{x\ 3428}#
- #{keys\ 3429}#
- (cdr #{clauses\ 3430}#)
- #{r\ 3431}#
- #{pat\ 3446}#
+ #{mod\ 6689}#))
+ (list #{x\ 6685}#)))
+ (#{gen-clause\ 6682}#
+ #{x\ 6685}#
+ #{keys\ 6686}#
+ (cdr #{clauses\ 6687}#)
+ #{r\ 6688}#
+ #{pat\ 6703}#
#t
- #{exp\ 3447}#
- #{mod\ 3432}#)))
- #{tmp\ 3443}#)
- ((lambda (#{tmp\ 3461}#)
- (if #{tmp\ 3461}#
- (apply (lambda (#{pat\ 3465}#
- #{fender\ 3466}#
- #{exp\ 3467}#)
- (#{gen-clause\ 3425}#
- #{x\ 3428}#
- #{keys\ 3429}#
- (cdr #{clauses\ 3430}#)
- #{r\ 3431}#
- #{pat\ 3465}#
- #{fender\ 3466}#
- #{exp\ 3467}#
- #{mod\ 3432}#))
- #{tmp\ 3461}#)
- ((lambda (#{_\ 3469}#)
+ #{exp\ 6704}#
+ #{mod\ 6689}#)))
+ #{tmp\ 6700}#)
+ ((lambda (#{tmp\ 6718}#)
+ (if #{tmp\ 6718}#
+ (apply (lambda (#{pat\ 6722}#
+ #{fender\ 6723}#
+ #{exp\ 6724}#)
+ (#{gen-clause\ 6682}#
+ #{x\ 6685}#
+ #{keys\ 6686}#
+ (cdr #{clauses\ 6687}#)
+ #{r\ 6688}#
+ #{pat\ 6722}#
+ #{fender\ 6723}#
+ #{exp\ 6724}#
+ #{mod\ 6689}#))
+ #{tmp\ 6718}#)
+ ((lambda (#{_\ 6726}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses\ 3430}#)))
- #{tmp\ 3442}#)))
+ (car #{clauses\ 6687}#)))
+ #{tmp\ 6699}#)))
($sc-dispatch
- #{tmp\ 3442}#
+ #{tmp\ 6699}#
'(any any any)))))
- ($sc-dispatch #{tmp\ 3442}# (quote (any any)))))
- (car #{clauses\ 3430}#)))))
- (#{gen-clause\ 3425}#
- (lambda (#{x\ 3470}#
- #{keys\ 3471}#
- #{clauses\ 3472}#
- #{r\ 3473}#
- #{pat\ 3474}#
- #{fender\ 3475}#
- #{exp\ 3476}#
- #{mod\ 3477}#)
+ ($sc-dispatch #{tmp\ 6699}# (quote (any any)))))
+ (car #{clauses\ 6687}#)))))
+ (#{gen-clause\ 6682}#
+ (lambda (#{x\ 6727}#
+ #{keys\ 6728}#
+ #{clauses\ 6729}#
+ #{r\ 6730}#
+ #{pat\ 6731}#
+ #{fender\ 6732}#
+ #{exp\ 6733}#
+ #{mod\ 6734}#)
(call-with-values
(lambda ()
- (#{convert-pattern\ 3421}#
- #{pat\ 3474}#
- #{keys\ 3471}#))
- (lambda (#{p\ 3486}# #{pvars\ 3487}#)
- (if (not (#{distinct-bound-ids?\ 309}#
- (map car #{pvars\ 3487}#)))
+ (#{convert-pattern\ 6678}#
+ #{pat\ 6731}#
+ #{keys\ 6728}#))
+ (lambda (#{p\ 6743}# #{pvars\ 6744}#)
+ (if (not (#{distinct-bound-ids?\ 3566}#
+ (map car #{pvars\ 6744}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat\ 3474}#)
+ #{pat\ 6731}#)
(if (not (and-map
- (lambda (#{x\ 3494}#)
- (not (#{ellipsis?\ 345}#
- (car #{x\ 3494}#))))
- #{pvars\ 3487}#))
+ (lambda (#{x\ 6751}#)
+ (not (#{ellipsis?\ 3602}#
+ (car #{x\ 6751}#))))
+ #{pvars\ 6744}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat\ 3474}#)
- (let ((#{y\ 3498}#
- (#{gen-var\ 357}# (quote tmp))))
- (#{build-application\ 166}#
+ #{pat\ 6731}#)
+ (let ((#{y\ 6755}#
+ (#{gen-var\ 3614}# (quote tmp))))
+ (#{build-application\ 3423}#
#f
- (#{build-simple-lambda\ 186}#
+ (#{build-simple-lambda\ 3443}#
#f
(list (quote tmp))
#f
- (list #{y\ 3498}#)
+ (list #{y\ 6755}#)
#f
- (let ((#{y\ 3502}#
- (#{build-lexical-reference\ 172}#
+ (let ((#{y\ 6759}#
+ (#{build-lexical-reference\ 3429}#
'value
#f
'tmp
- #{y\ 3498}#)))
- (#{build-conditional\ 168}#
+ #{y\ 6755}#)))
+ (#{build-conditional\ 3425}#
#f
- ((lambda (#{tmp\ 3505}#)
- ((lambda (#{tmp\ 3506}#)
- (if #{tmp\ 3506}#
- (apply (lambda () #{y\ 3502}#)
- #{tmp\ 3506}#)
- ((lambda (#{_\ 3508}#)
- (#{build-conditional\ 168}#
+ ((lambda (#{tmp\ 6762}#)
+ ((lambda (#{tmp\ 6763}#)
+ (if #{tmp\ 6763}#
+ (apply (lambda () #{y\ 6759}#)
+ #{tmp\ 6763}#)
+ ((lambda (#{_\ 6765}#)
+ (#{build-conditional\ 3425}#
#f
- #{y\ 3502}#
- (#{build-dispatch-call\ 3423}#
- #{pvars\ 3487}#
- #{fender\ 3475}#
- #{y\ 3502}#
- #{r\ 3473}#
- #{mod\ 3477}#)
- (#{build-data\ 194}#
+ #{y\ 6759}#
+ (#{build-dispatch-call\ 6680}#
+ #{pvars\ 6744}#
+ #{fender\ 6732}#
+ #{y\ 6759}#
+ #{r\ 6730}#
+ #{mod\ 6734}#)
+ (#{build-data\ 3451}#
#f
#f)))
- #{tmp\ 3505}#)))
+ #{tmp\ 6762}#)))
($sc-dispatch
- #{tmp\ 3505}#
+ #{tmp\ 6762}#
'#(atom #t))))
- #{fender\ 3475}#)
- (#{build-dispatch-call\ 3423}#
- #{pvars\ 3487}#
- #{exp\ 3476}#
- #{y\ 3502}#
- #{r\ 3473}#
- #{mod\ 3477}#)
- (#{gen-syntax-case\ 3427}#
- #{x\ 3470}#
- #{keys\ 3471}#
- #{clauses\ 3472}#
- #{r\ 3473}#
- #{mod\ 3477}#))))
- (list (if (eq? #{p\ 3486}# (quote any))
- (#{build-application\ 166}#
+ #{fender\ 6732}#)
+ (#{build-dispatch-call\ 6680}#
+ #{pvars\ 6744}#
+ #{exp\ 6733}#
+ #{y\ 6759}#
+ #{r\ 6730}#
+ #{mod\ 6734}#)
+ (#{gen-syntax-case\ 6684}#
+ #{x\ 6727}#
+ #{keys\ 6728}#
+ #{clauses\ 6729}#
+ #{r\ 6730}#
+ #{mod\ 6734}#))))
+ (list (if (eq? #{p\ 6743}# (quote any))
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}#
+ (#{build-primref\ 3449}#
#f
'list)
- (list #{x\ 3470}#))
- (#{build-application\ 166}#
+ (list #{x\ 6727}#))
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}#
+ (#{build-primref\ 3449}#
#f
'$sc-dispatch)
- (list #{x\ 3470}#
- (#{build-data\ 194}#
+ (list #{x\ 6727}#
+ (#{build-data\ 3451}#
#f
- #{p\ 3486}#)))))))))))))
- (#{build-dispatch-call\ 3423}#
- (lambda (#{pvars\ 3516}#
- #{exp\ 3517}#
- #{y\ 3518}#
- #{r\ 3519}#
- #{mod\ 3520}#)
- (let ((#{ids\ 3528}# (map car #{pvars\ 3516}#))
- (#{levels\ 3529}# (map cdr #{pvars\ 3516}#)))
- (let ((#{labels\ 3532}#
- (#{gen-labels\ 262}# #{ids\ 3528}#))
- (#{new-vars\ 3533}#
- (map #{gen-var\ 357}# #{ids\ 3528}#)))
- (#{build-application\ 166}#
+ #{p\ 6743}#)))))))))))))
+ (#{build-dispatch-call\ 6680}#
+ (lambda (#{pvars\ 6773}#
+ #{exp\ 6774}#
+ #{y\ 6775}#
+ #{r\ 6776}#
+ #{mod\ 6777}#)
+ (let ((#{ids\ 6785}# (map car #{pvars\ 6773}#))
+ (#{levels\ 6786}# (map cdr #{pvars\ 6773}#)))
+ (let ((#{labels\ 6789}#
+ (#{gen-labels\ 3519}# #{ids\ 6785}#))
+ (#{new-vars\ 6790}#
+ (map #{gen-var\ 3614}# #{ids\ 6785}#)))
+ (#{build-application\ 3423}#
#f
- (#{build-primref\ 192}# #f (quote apply))
- (list (#{build-simple-lambda\ 186}#
+ (#{build-primref\ 3449}# #f (quote apply))
+ (list (#{build-simple-lambda\ 3443}#
#f
- (map syntax->datum #{ids\ 3528}#)
+ (map syntax->datum #{ids\ 6785}#)
#f
- #{new-vars\ 3533}#
+ #{new-vars\ 6790}#
#f
- (#{chi\ 329}#
- #{exp\ 3517}#
- (#{extend-env\ 232}#
- #{labels\ 3532}#
- (map (lambda (#{var\ 3537}#
- #{level\ 3538}#)
+ (#{chi\ 3586}#
+ #{exp\ 6774}#
+ (#{extend-env\ 3489}#
+ #{labels\ 6789}#
+ (map (lambda (#{var\ 6794}#
+ #{level\ 6795}#)
(cons 'syntax
- (cons #{var\ 3537}#
- #{level\ 3538}#)))
- #{new-vars\ 3533}#
- (map cdr #{pvars\ 3516}#))
- #{r\ 3519}#)
- (#{make-binding-wrap\ 291}#
- #{ids\ 3528}#
- #{labels\ 3532}#
+ (cons #{var\ 6794}#
+ #{level\ 6795}#)))
+ #{new-vars\ 6790}#
+ (map cdr #{pvars\ 6773}#))
+ #{r\ 6776}#)
+ (#{make-binding-wrap\ 3548}#
+ #{ids\ 6785}#
+ #{labels\ 6789}#
'(()))
- #{mod\ 3520}#))
- #{y\ 3518}#))))))
- (#{convert-pattern\ 3421}#
- (lambda (#{pattern\ 3544}# #{keys\ 3545}#)
- (letrec ((#{cvt\ 3551}#
- (lambda (#{p\ 3552}# #{n\ 3553}# #{ids\ 3554}#)
- (if (#{id?\ 244}# #{p\ 3552}#)
- (if (#{bound-id-member?\ 311}#
- #{p\ 3552}#
- #{keys\ 3545}#)
+ #{mod\ 6777}#))
+ #{y\ 6775}#))))))
+ (#{convert-pattern\ 6678}#
+ (lambda (#{pattern\ 6801}# #{keys\ 6802}#)
+ (letrec ((#{cvt\ 6808}#
+ (lambda (#{p\ 6809}# #{n\ 6810}# #{ids\ 6811}#)
+ (if (#{id?\ 3501}# #{p\ 6809}#)
+ (if (#{bound-id-member?\ 3568}#
+ #{p\ 6809}#
+ #{keys\ 6802}#)
(values
- (vector (quote free-id) #{p\ 3552}#)
- #{ids\ 3554}#)
+ (vector (quote free-id) #{p\ 6809}#)
+ #{ids\ 6811}#)
(values
'any
- (cons (cons #{p\ 3552}# #{n\ 3553}#)
- #{ids\ 3554}#)))
- ((lambda (#{tmp\ 3558}#)
- ((lambda (#{tmp\ 3559}#)
- (if (if #{tmp\ 3559}#
- (apply (lambda (#{x\ 3562}#
- #{dots\ 3563}#)
- (#{ellipsis?\ 345}#
- #{dots\ 3563}#))
- #{tmp\ 3559}#)
+ (cons (cons #{p\ 6809}# #{n\ 6810}#)
+ #{ids\ 6811}#)))
+ ((lambda (#{tmp\ 6815}#)
+ ((lambda (#{tmp\ 6816}#)
+ (if (if #{tmp\ 6816}#
+ (apply (lambda (#{x\ 6819}#
+ #{dots\ 6820}#)
+ (#{ellipsis?\ 3602}#
+ #{dots\ 6820}#))
+ #{tmp\ 6816}#)
#f)
- (apply (lambda (#{x\ 3566}#
- #{dots\ 3567}#)
+ (apply (lambda (#{x\ 6823}#
+ #{dots\ 6824}#)
(call-with-values
(lambda ()
- (#{cvt\ 3551}#
- #{x\ 3566}#
- (#{fx+\ 145}#
- #{n\ 3553}#
+ (#{cvt\ 6808}#
+ #{x\ 6823}#
+ (#{fx+\ 3402}#
+ #{n\ 6810}#
1)
- #{ids\ 3554}#))
- (lambda (#{p\ 3568}#
- #{ids\ 3569}#)
+ #{ids\ 6811}#))
+ (lambda (#{p\ 6825}#
+ #{ids\ 6826}#)
(values
- (if (eq? #{p\ 3568}#
+ (if (eq? #{p\ 6825}#
'any)
'each-any
(vector
'each
- #{p\ 3568}#))
- #{ids\ 3569}#))))
- #{tmp\ 3559}#)
- ((lambda (#{tmp\ 3572}#)
- (if (if #{tmp\ 3572}#
- (apply (lambda (#{x\ 3576}#
- #{dots\ 3577}#
- #{ys\ 3578}#)
- (#{ellipsis?\ 345}#
- #{dots\ 3577}#))
- #{tmp\ 3572}#)
+ #{p\ 6825}#))
+ #{ids\ 6826}#))))
+ #{tmp\ 6816}#)
+ ((lambda (#{tmp\ 6829}#)
+ (if (if #{tmp\ 6829}#
+ (apply (lambda (#{x\ 6833}#
+ #{dots\ 6834}#
+ #{ys\ 6835}#)
+ (#{ellipsis?\ 3602}#
+ #{dots\ 6834}#))
+ #{tmp\ 6829}#)
#f)
- (apply (lambda (#{x\ 3582}#
- #{dots\ 3583}#
- #{ys\ 3584}#)
+ (apply (lambda (#{x\ 6839}#
+ #{dots\ 6840}#
+ #{ys\ 6841}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3549}#
- #{ys\ 3584}#
- #{n\ 3553}#
- #{ids\ 3554}#))
- (lambda (#{ys\ 3586}#
- #{ids\ 3587}#)
+ (#{cvt*\ 6806}#
+ #{ys\ 6841}#
+ #{n\ 6810}#
+ #{ids\ 6811}#))
+ (lambda (#{ys\ 6843}#
+ #{ids\ 6844}#)
(call-with-values
(lambda ()
- (#{cvt\ 3551}#
- #{x\ 3582}#
- (+ #{n\ 3553}#
+ (#{cvt\ 6808}#
+ #{x\ 6839}#
+ (+ #{n\ 6810}#
1)
- #{ids\ 3587}#))
- (lambda (#{x\ 3590}#
- #{ids\ 3591}#)
+ #{ids\ 6844}#))
+ (lambda (#{x\ 6847}#
+ #{ids\ 6848}#)
(values
(list->vector
(cons 'each+
- (cons #{x\ 3590}#
+ (cons #{x\ 6847}#
(cons (reverse
- #{ys\ 3586}#)
+ #{ys\ 6843}#)
'(())))))
- #{ids\ 3591}#))))))
- #{tmp\ 3572}#)
- ((lambda (#{tmp\ 3595}#)
- (if #{tmp\ 3595}#
- (apply (lambda (#{x\ 3598}#
- #{y\ 3599}#)
+ #{ids\ 6848}#))))))
+ #{tmp\ 6829}#)
+ ((lambda (#{tmp\ 6852}#)
+ (if #{tmp\ 6852}#
+ (apply (lambda (#{x\ 6855}#
+ #{y\ 6856}#)
(call-with-values
(lambda ()
- (#{cvt\ 3551}#
- #{y\ 3599}#
- #{n\ 3553}#
- #{ids\ 3554}#))
- (lambda (#{y\ 3600}#
- #{ids\ 3601}#)
+ (#{cvt\ 6808}#
+ #{y\ 6856}#
+ #{n\ 6810}#
+ #{ids\ 6811}#))
+ (lambda (#{y\ 6857}#
+ #{ids\ 6858}#)
(call-with-values
(lambda ()
- (#{cvt\ 3551}#
- #{x\ 3598}#
- #{n\ 3553}#
- #{ids\ 3601}#))
- (lambda (#{x\ 3604}#
- #{ids\ 3605}#)
+ (#{cvt\ 6808}#
+ #{x\ 6855}#
+ #{n\ 6810}#
+ #{ids\ 6858}#))
+ (lambda (#{x\ 6861}#
+ #{ids\ 6862}#)
(values
- (cons #{x\ 3604}#
- #{y\ 3600}#)
- #{ids\ 3605}#))))))
- #{tmp\ 3595}#)
- ((lambda (#{tmp\ 3608}#)
- (if #{tmp\ 3608}#
+ (cons #{x\ 6861}#
+ #{y\ 6857}#)
+ #{ids\ 6862}#))))))
+ #{tmp\ 6852}#)
+ ((lambda (#{tmp\ 6865}#)
+ (if #{tmp\ 6865}#
(apply (lambda ()
(values
'()
- #{ids\ 3554}#))
- #{tmp\ 3608}#)
- ((lambda (#{tmp\ 3609}#)
- (if #{tmp\ 3609}#
- (apply (lambda (#{x\ 3611}#)
+ #{ids\ 6811}#))
+ #{tmp\ 6865}#)
+ ((lambda (#{tmp\ 6866}#)
+ (if #{tmp\ 6866}#
+ (apply (lambda (#{x\ 6868}#)
(call-with-values
(lambda ()
- (#{cvt\ 3551}#
- #{x\ 3611}#
- #{n\ 3553}#
- #{ids\ 3554}#))
- (lambda (#{p\ 3613}#
- #{ids\ 3614}#)
+ (#{cvt\ 6808}#
+ #{x\ 6868}#
+ #{n\ 6810}#
+ #{ids\ 6811}#))
+ (lambda (#{p\ 6870}#
+ #{ids\ 6871}#)
(values
(vector
'vector
- #{p\ 3613}#)
- #{ids\ 3614}#))))
- #{tmp\ 3609}#)
- ((lambda (#{x\ 3618}#)
+ #{p\ 6870}#)
+ #{ids\ 6871}#))))
+ #{tmp\ 6866}#)
+ ((lambda (#{x\ 6875}#)
(values
(vector
'atom
- (#{strip\ 355}#
- #{p\ 3552}#
+ (#{strip\ 3612}#
+ #{p\ 6809}#
'(())))
- #{ids\ 3554}#))
- #{tmp\ 3558}#)))
+ #{ids\ 6811}#))
+ #{tmp\ 6815}#)))
($sc-dispatch
- #{tmp\ 3558}#
+ #{tmp\ 6815}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 3558}#
+ #{tmp\ 6815}#
'()))))
($sc-dispatch
- #{tmp\ 3558}#
+ #{tmp\ 6815}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 3558}#
+ #{tmp\ 6815}#
'(any any . each-any)))))
($sc-dispatch
- #{tmp\ 3558}#
+ #{tmp\ 6815}#
'(any any))))
- #{p\ 3552}#))))
- (#{cvt*\ 3549}#
- (lambda (#{p*\ 3620}#
- #{n\ 3621}#
- #{ids\ 3622}#)
- (if (null? #{p*\ 3620}#)
- (values (quote ()) #{ids\ 3622}#)
+ #{p\ 6809}#))))
+ (#{cvt*\ 6806}#
+ (lambda (#{p*\ 6877}#
+ #{n\ 6878}#
+ #{ids\ 6879}#)
+ (if (null? #{p*\ 6877}#)
+ (values (quote ()) #{ids\ 6879}#)
(call-with-values
(lambda ()
- (#{cvt*\ 3549}#
- (cdr #{p*\ 3620}#)
- #{n\ 3621}#
- #{ids\ 3622}#))
- (lambda (#{y\ 3626}# #{ids\ 3627}#)
+ (#{cvt*\ 6806}#
+ (cdr #{p*\ 6877}#)
+ #{n\ 6878}#
+ #{ids\ 6879}#))
+ (lambda (#{y\ 6883}# #{ids\ 6884}#)
(call-with-values
(lambda ()
- (#{cvt\ 3551}#
- (car #{p*\ 3620}#)
- #{n\ 3621}#
- #{ids\ 3627}#))
- (lambda (#{x\ 3630}# #{ids\ 3631}#)
+ (#{cvt\ 6808}#
+ (car #{p*\ 6877}#)
+ #{n\ 6878}#
+ #{ids\ 6884}#))
+ (lambda (#{x\ 6887}# #{ids\ 6888}#)
(values
- (cons #{x\ 3630}# #{y\ 3626}#)
- #{ids\ 3631}#)))))))))
- (#{cvt\ 3551}# #{pattern\ 3544}# 0 (quote ()))))))
- (lambda (#{e\ 3634}#
- #{r\ 3635}#
- #{w\ 3636}#
- #{s\ 3637}#
- #{mod\ 3638}#)
- (let ((#{e\ 3645}#
- (#{source-wrap\ 315}#
- #{e\ 3634}#
- #{w\ 3636}#
- #{s\ 3637}#
- #{mod\ 3638}#)))
- ((lambda (#{tmp\ 3646}#)
- ((lambda (#{tmp\ 3647}#)
- (if #{tmp\ 3647}#
- (apply (lambda (#{_\ 3652}#
- #{val\ 3653}#
- #{key\ 3654}#
- #{m\ 3655}#)
+ (cons #{x\ 6887}# #{y\ 6883}#)
+ #{ids\ 6888}#)))))))))
+ (#{cvt\ 6808}# #{pattern\ 6801}# 0 (quote ()))))))
+ (lambda (#{e\ 6891}#
+ #{r\ 6892}#
+ #{w\ 6893}#
+ #{s\ 6894}#
+ #{mod\ 6895}#)
+ (let ((#{e\ 6902}#
+ (#{source-wrap\ 3572}#
+ #{e\ 6891}#
+ #{w\ 6893}#
+ #{s\ 6894}#
+ #{mod\ 6895}#)))
+ ((lambda (#{tmp\ 6903}#)
+ ((lambda (#{tmp\ 6904}#)
+ (if #{tmp\ 6904}#
+ (apply (lambda (#{_\ 6909}#
+ #{val\ 6910}#
+ #{key\ 6911}#
+ #{m\ 6912}#)
(if (and-map
- (lambda (#{x\ 3656}#)
- (if (#{id?\ 244}# #{x\ 3656}#)
- (not (#{ellipsis?\ 345}# #{x\ 3656}#))
+ (lambda (#{x\ 6913}#)
+ (if (#{id?\ 3501}# #{x\ 6913}#)
+ (not (#{ellipsis?\ 3602}#
+ #{x\ 6913}#))
#f))
- #{key\ 3654}#)
- (let ((#{x\ 3662}#
- (#{gen-var\ 357}# (quote tmp))))
- (#{build-application\ 166}#
- #{s\ 3637}#
- (#{build-simple-lambda\ 186}#
+ #{key\ 6911}#)
+ (let ((#{x\ 6919}#
+ (#{gen-var\ 3614}# (quote tmp))))
+ (#{build-application\ 3423}#
+ #{s\ 6894}#
+ (#{build-simple-lambda\ 3443}#
#f
(list (quote tmp))
#f
- (list #{x\ 3662}#)
+ (list #{x\ 6919}#)
#f
- (#{gen-syntax-case\ 3427}#
- (#{build-lexical-reference\ 172}#
+ (#{gen-syntax-case\ 6684}#
+ (#{build-lexical-reference\ 3429}#
'value
#f
'tmp
- #{x\ 3662}#)
- #{key\ 3654}#
- #{m\ 3655}#
- #{r\ 3635}#
- #{mod\ 3638}#))
- (list (#{chi\ 329}#
- #{val\ 3653}#
- #{r\ 3635}#
+ #{x\ 6919}#)
+ #{key\ 6911}#
+ #{m\ 6912}#
+ #{r\ 6892}#
+ #{mod\ 6895}#))
+ (list (#{chi\ 3586}#
+ #{val\ 6910}#
+ #{r\ 6892}#
'(())
- #{mod\ 3638}#))))
+ #{mod\ 6895}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e\ 3645}#)))
- #{tmp\ 3647}#)
+ #{e\ 6902}#)))
+ #{tmp\ 6904}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3646}#)))
+ #{tmp\ 6903}#)))
($sc-dispatch
- #{tmp\ 3646}#
+ #{tmp\ 6903}#
'(any any each-any . each-any))))
- #{e\ 3645}#)))))
- (set! sc-expand
- (lambda (#{x\ 3668}# . #{rest\ 3669}#)
- (if (if (pair? #{x\ 3668}#)
- (equal? (car #{x\ 3668}#) #{noexpand\ 141}#)
+ #{e\ 6902}#)))))
+ (set! macroexpand
+ (lambda (#{x\ 6925}# . #{rest\ 6926}#)
+ (if (if (pair? #{x\ 6925}#)
+ (equal? (car #{x\ 6925}#) #{noexpand\ 3398}#)
#f)
- (cadr #{x\ 3668}#)
- (let ((#{m\ 3676}#
- (if (null? #{rest\ 3669}#)
+ (cadr #{x\ 6925}#)
+ (let ((#{m\ 6933}#
+ (if (null? #{rest\ 6926}#)
'e
- (car #{rest\ 3669}#)))
- (#{esew\ 3677}#
- (if (let ((#{t\ 3680}# (null? #{rest\ 3669}#)))
- (if #{t\ 3680}#
- #{t\ 3680}#
- (null? (cdr #{rest\ 3669}#))))
+ (car #{rest\ 6926}#)))
+ (#{esew\ 6934}#
+ (if (let ((#{t\ 6937}# (null? #{rest\ 6926}#)))
+ (if #{t\ 6937}#
+ #{t\ 6937}#
+ (null? (cdr #{rest\ 6926}#))))
'(eval)
- (cadr #{rest\ 3669}#))))
+ (cadr #{rest\ 6926}#))))
(with-fluids
- ((#{*mode*\ 143}# #{m\ 3676}#))
- (#{chi-top\ 327}#
- #{x\ 3668}#
+ ((#{*mode*\ 3400}# #{m\ 6933}#))
+ (#{chi-top\ 3584}#
+ #{x\ 6925}#
'()
'((top))
- #{m\ 3676}#
- #{esew\ 3677}#
+ #{m\ 6933}#
+ #{esew\ 6934}#
(cons 'hygiene
(module-name (current-module)))))))))
(set! identifier?
- (lambda (#{x\ 3684}#)
- (#{nonsymbol-id?\ 242}# #{x\ 3684}#)))
+ (lambda (#{x\ 6941}#)
+ (#{nonsymbol-id?\ 3499}# #{x\ 6941}#)))
(set! datum->syntax
- (lambda (#{id\ 3686}# #{datum\ 3687}#)
- (#{make-syntax-object\ 206}#
- #{datum\ 3687}#
- (#{syntax-object-wrap\ 212}# #{id\ 3686}#)
+ (lambda (#{id\ 6943}# #{datum\ 6944}#)
+ (#{make-syntax-object\ 3463}#
+ #{datum\ 6944}#
+ (#{syntax-object-wrap\ 3469}# #{id\ 6943}#)
#f)))
(set! syntax->datum
- (lambda (#{x\ 3690}#)
- (#{strip\ 355}# #{x\ 3690}# (quote (())))))
+ (lambda (#{x\ 6947}#)
+ (#{strip\ 3612}# #{x\ 6947}# (quote (())))))
(set! generate-temporaries
- (lambda (#{ls\ 3693}#)
+ (lambda (#{ls\ 6950}#)
(begin
- (let ((#{x\ 3697}# #{ls\ 3693}#))
- (if (not (list? #{x\ 3697}#))
+ (let ((#{x\ 6954}# #{ls\ 6950}#))
+ (if (not (list? #{x\ 6954}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{x\ 3697}#)))
- (map (lambda (#{x\ 3698}#)
- (#{wrap\ 313}# (gensym) (quote ((top))) #f))
- #{ls\ 3693}#))))
+ #{x\ 6954}#)))
+ (map (lambda (#{x\ 6955}#)
+ (#{wrap\ 3570}# (gensym) (quote ((top))) #f))
+ #{ls\ 6950}#))))
(set! free-identifier=?
- (lambda (#{x\ 3702}# #{y\ 3703}#)
+ (lambda (#{x\ 6959}# #{y\ 6960}#)
(begin
- (let ((#{x\ 3708}# #{x\ 3702}#))
- (if (not (#{nonsymbol-id?\ 242}# #{x\ 3708}#))
+ (let ((#{x\ 6965}# #{x\ 6959}#))
+ (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6965}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3708}#)))
- (let ((#{x\ 3711}# #{y\ 3703}#))
- (if (not (#{nonsymbol-id?\ 242}# #{x\ 3711}#))
+ #{x\ 6965}#)))
+ (let ((#{x\ 6968}# #{y\ 6960}#))
+ (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6968}#))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x\ 3711}#)))
- (#{free-id=?\ 303}# #{x\ 3702}# #{y\ 3703}#))))
+ #{x\ 6968}#)))
+ (#{free-id=?\ 3560}# #{x\ 6959}# #{y\ 6960}#))))
(set! bound-identifier=?
- (lambda (#{x\ 3712}# #{y\ 3713}#)
+ (lambda (#{x\ 6969}# #{y\ 6970}#)
(begin
- (let ((#{x\ 3718}# #{x\ 3712}#))
- (if (not (#{nonsymbol-id?\ 242}# #{x\ 3718}#))
+ (let ((#{x\ 6975}# #{x\ 6969}#))
+ (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6975}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3718}#)))
- (let ((#{x\ 3721}# #{y\ 3713}#))
- (if (not (#{nonsymbol-id?\ 242}# #{x\ 3721}#))
+ #{x\ 6975}#)))
+ (let ((#{x\ 6978}# #{y\ 6970}#))
+ (if (not (#{nonsymbol-id?\ 3499}# #{x\ 6978}#))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x\ 3721}#)))
- (#{bound-id=?\ 305}# #{x\ 3712}# #{y\ 3713}#))))
+ #{x\ 6978}#)))
+ (#{bound-id=?\ 3562}# #{x\ 6969}# #{y\ 6970}#))))
(set! syntax-violation
- (lambda (#{who\ 3722}#
- #{message\ 3723}#
- #{form\ 3724}#
+ (lambda (#{who\ 6979}#
+ #{message\ 6980}#
+ #{form\ 6981}#
.
- #{subform\ 3725}#)
+ #{subform\ 6982}#)
(begin
- (let ((#{x\ 3732}# #{who\ 3722}#))
- (if (not ((lambda (#{x\ 3733}#)
- (let ((#{t\ 3737}# (not #{x\ 3733}#)))
- (if #{t\ 3737}#
- #{t\ 3737}#
- (let ((#{t\ 3740}# (string? #{x\ 3733}#)))
- (if #{t\ 3740}#
- #{t\ 3740}#
- (symbol? #{x\ 3733}#))))))
- #{x\ 3732}#))
+ (let ((#{x\ 6989}# #{who\ 6979}#))
+ (if (not ((lambda (#{x\ 6990}#)
+ (let ((#{t\ 6994}# (not #{x\ 6990}#)))
+ (if #{t\ 6994}#
+ #{t\ 6994}#
+ (let ((#{t\ 6997}# (string? #{x\ 6990}#)))
+ (if #{t\ 6997}#
+ #{t\ 6997}#
+ (symbol? #{x\ 6990}#))))))
+ #{x\ 6989}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3732}#)))
- (let ((#{x\ 3744}# #{message\ 3723}#))
- (if (not (string? #{x\ 3744}#))
+ #{x\ 6989}#)))
+ (let ((#{x\ 7001}# #{message\ 6980}#))
+ (if (not (string? #{x\ 7001}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{x\ 3744}#)))
+ #{x\ 7001}#)))
(scm-error
'syntax-error
- 'sc-expand
+ 'macroexpand
(string-append
- (if #{who\ 3722}# "~a: " "")
+ (if #{who\ 6979}# "~a: " "")
"~a "
- (if (null? #{subform\ 3725}#)
+ (if (null? #{subform\ 6982}#)
"in ~a"
"in subform `~s' of `~s'"))
- (let ((#{tail\ 3746}#
- (cons #{message\ 3723}#
- (map (lambda (#{x\ 3747}#)
- (#{strip\ 355}# #{x\ 3747}# (quote (()))))
+ (let ((#{tail\ 7003}#
+ (cons #{message\ 6980}#
+ (map (lambda (#{x\ 7004}#)
+ (#{strip\ 3612}# #{x\ 7004}# (quote (()))))
(append
- #{subform\ 3725}#
- (list #{form\ 3724}#))))))
- (if #{who\ 3722}#
- (cons #{who\ 3722}# #{tail\ 3746}#)
- #{tail\ 3746}#))
+ #{subform\ 6982}#
+ (list #{form\ 6981}#))))))
+ (if #{who\ 6979}#
+ (cons #{who\ 6979}# #{tail\ 7003}#)
+ #{tail\ 7003}#))
#f))))
- (letrec ((#{match\ 3763}#
- (lambda (#{e\ 3764}#
- #{p\ 3765}#
- #{w\ 3766}#
- #{r\ 3767}#
- #{mod\ 3768}#)
- (if (not #{r\ 3767}#)
+ (letrec ((#{match\ 7020}#
+ (lambda (#{e\ 7021}#
+ #{p\ 7022}#
+ #{w\ 7023}#
+ #{r\ 7024}#
+ #{mod\ 7025}#)
+ (if (not #{r\ 7024}#)
#f
- (if (eq? #{p\ 3765}# (quote any))
- (cons (#{wrap\ 313}#
- #{e\ 3764}#
- #{w\ 3766}#
- #{mod\ 3768}#)
- #{r\ 3767}#)
- (if (#{syntax-object?\ 208}# #{e\ 3764}#)
- (#{match*\ 3761}#
- (#{syntax-object-expression\ 210}# #{e\ 3764}#)
- #{p\ 3765}#
- (#{join-wraps\ 295}#
- #{w\ 3766}#
- (#{syntax-object-wrap\ 212}# #{e\ 3764}#))
- #{r\ 3767}#
- (#{syntax-object-module\ 214}# #{e\ 3764}#))
- (#{match*\ 3761}#
- #{e\ 3764}#
- #{p\ 3765}#
- #{w\ 3766}#
- #{r\ 3767}#
- #{mod\ 3768}#))))))
- (#{match*\ 3761}#
- (lambda (#{e\ 3781}#
- #{p\ 3782}#
- #{w\ 3783}#
- #{r\ 3784}#
- #{mod\ 3785}#)
- (if (null? #{p\ 3782}#)
- (if (null? #{e\ 3781}#) #{r\ 3784}# #f)
- (if (pair? #{p\ 3782}#)
- (if (pair? #{e\ 3781}#)
- (#{match\ 3763}#
- (car #{e\ 3781}#)
- (car #{p\ 3782}#)
- #{w\ 3783}#
- (#{match\ 3763}#
- (cdr #{e\ 3781}#)
- (cdr #{p\ 3782}#)
- #{w\ 3783}#
- #{r\ 3784}#
- #{mod\ 3785}#)
- #{mod\ 3785}#)
+ (if (eq? #{p\ 7022}# (quote any))
+ (cons (#{wrap\ 3570}#
+ #{e\ 7021}#
+ #{w\ 7023}#
+ #{mod\ 7025}#)
+ #{r\ 7024}#)
+ (if (#{syntax-object?\ 3465}# #{e\ 7021}#)
+ (#{match*\ 7018}#
+ (#{syntax-object-expression\ 3467}# #{e\ 7021}#)
+ #{p\ 7022}#
+ (#{join-wraps\ 3552}#
+ #{w\ 7023}#
+ (#{syntax-object-wrap\ 3469}# #{e\ 7021}#))
+ #{r\ 7024}#
+ (#{syntax-object-module\ 3471}# #{e\ 7021}#))
+ (#{match*\ 7018}#
+ #{e\ 7021}#
+ #{p\ 7022}#
+ #{w\ 7023}#
+ #{r\ 7024}#
+ #{mod\ 7025}#))))))
+ (#{match*\ 7018}#
+ (lambda (#{e\ 7038}#
+ #{p\ 7039}#
+ #{w\ 7040}#
+ #{r\ 7041}#
+ #{mod\ 7042}#)
+ (if (null? #{p\ 7039}#)
+ (if (null? #{e\ 7038}#) #{r\ 7041}# #f)
+ (if (pair? #{p\ 7039}#)
+ (if (pair? #{e\ 7038}#)
+ (#{match\ 7020}#
+ (car #{e\ 7038}#)
+ (car #{p\ 7039}#)
+ #{w\ 7040}#
+ (#{match\ 7020}#
+ (cdr #{e\ 7038}#)
+ (cdr #{p\ 7039}#)
+ #{w\ 7040}#
+ #{r\ 7041}#
+ #{mod\ 7042}#)
+ #{mod\ 7042}#)
#f)
- (if (eq? #{p\ 3782}# (quote each-any))
- (let ((#{l\ 3802}#
- (#{match-each-any\ 3755}#
- #{e\ 3781}#
- #{w\ 3783}#
- #{mod\ 3785}#)))
- (if #{l\ 3802}#
- (cons #{l\ 3802}# #{r\ 3784}#)
+ (if (eq? #{p\ 7039}# (quote each-any))
+ (let ((#{l\ 7059}#
+ (#{match-each-any\ 7012}#
+ #{e\ 7038}#
+ #{w\ 7040}#
+ #{mod\ 7042}#)))
+ (if #{l\ 7059}#
+ (cons #{l\ 7059}# #{r\ 7041}#)
#f))
- (let ((#{atom-key\ 3808}# (vector-ref #{p\ 3782}# 0)))
- (if (memv #{atom-key\ 3808}# (quote (each)))
- (if (null? #{e\ 3781}#)
- (#{match-empty\ 3757}#
- (vector-ref #{p\ 3782}# 1)
- #{r\ 3784}#)
- (let ((#{l\ 3811}#
- (#{match-each\ 3751}#
- #{e\ 3781}#
- (vector-ref #{p\ 3782}# 1)
- #{w\ 3783}#
- #{mod\ 3785}#)))
- (if #{l\ 3811}#
- (letrec ((#{collect\ 3816}#
- (lambda (#{l\ 3817}#)
- (if (null? (car #{l\ 3817}#))
- #{r\ 3784}#
- (cons (map car #{l\ 3817}#)
- (#{collect\ 3816}#
+ (let ((#{atom-key\ 7065}# (vector-ref #{p\ 7039}# 0)))
+ (if (memv #{atom-key\ 7065}# (quote (each)))
+ (if (null? #{e\ 7038}#)
+ (#{match-empty\ 7014}#
+ (vector-ref #{p\ 7039}# 1)
+ #{r\ 7041}#)
+ (let ((#{l\ 7068}#
+ (#{match-each\ 7008}#
+ #{e\ 7038}#
+ (vector-ref #{p\ 7039}# 1)
+ #{w\ 7040}#
+ #{mod\ 7042}#)))
+ (if #{l\ 7068}#
+ (letrec ((#{collect\ 7073}#
+ (lambda (#{l\ 7074}#)
+ (if (null? (car #{l\ 7074}#))
+ #{r\ 7041}#
+ (cons (map car #{l\ 7074}#)
+ (#{collect\ 7073}#
(map cdr
- #{l\ 3817}#)))))))
- (#{collect\ 3816}# #{l\ 3811}#))
+ #{l\ 7074}#)))))))
+ (#{collect\ 7073}# #{l\ 7068}#))
#f)))
- (if (memv #{atom-key\ 3808}# (quote (each+)))
+ (if (memv #{atom-key\ 7065}# (quote (each+)))
(call-with-values
(lambda ()
- (#{match-each+\ 3753}#
- #{e\ 3781}#
- (vector-ref #{p\ 3782}# 1)
- (vector-ref #{p\ 3782}# 2)
- (vector-ref #{p\ 3782}# 3)
- #{w\ 3783}#
- #{r\ 3784}#
- #{mod\ 3785}#))
- (lambda (#{xr*\ 3819}#
- #{y-pat\ 3820}#
- #{r\ 3821}#)
- (if #{r\ 3821}#
- (if (null? #{y-pat\ 3820}#)
- (if (null? #{xr*\ 3819}#)
- (#{match-empty\ 3757}#
- (vector-ref #{p\ 3782}# 1)
- #{r\ 3821}#)
- (#{combine\ 3759}#
- #{xr*\ 3819}#
- #{r\ 3821}#))
+ (#{match-each+\ 7010}#
+ #{e\ 7038}#
+ (vector-ref #{p\ 7039}# 1)
+ (vector-ref #{p\ 7039}# 2)
+ (vector-ref #{p\ 7039}# 3)
+ #{w\ 7040}#
+ #{r\ 7041}#
+ #{mod\ 7042}#))
+ (lambda (#{xr*\ 7076}#
+ #{y-pat\ 7077}#
+ #{r\ 7078}#)
+ (if #{r\ 7078}#
+ (if (null? #{y-pat\ 7077}#)
+ (if (null? #{xr*\ 7076}#)
+ (#{match-empty\ 7014}#
+ (vector-ref #{p\ 7039}# 1)
+ #{r\ 7078}#)
+ (#{combine\ 7016}#
+ #{xr*\ 7076}#
+ #{r\ 7078}#))
#f)
#f)))
- (if (memv #{atom-key\ 3808}# (quote (free-id)))
- (if (#{id?\ 244}# #{e\ 3781}#)
- (if (#{free-id=?\ 303}#
- (#{wrap\ 313}#
- #{e\ 3781}#
- #{w\ 3783}#
- #{mod\ 3785}#)
- (vector-ref #{p\ 3782}# 1))
- #{r\ 3784}#
+ (if (memv #{atom-key\ 7065}# (quote (free-id)))
+ (if (#{id?\ 3501}# #{e\ 7038}#)
+ (if (#{free-id=?\ 3560}#
+ (#{wrap\ 3570}#
+ #{e\ 7038}#
+ #{w\ 7040}#
+ #{mod\ 7042}#)
+ (vector-ref #{p\ 7039}# 1))
+ #{r\ 7041}#
#f)
#f)
- (if (memv #{atom-key\ 3808}# (quote (atom)))
+ (if (memv #{atom-key\ 7065}# (quote (atom)))
(if (equal?
- (vector-ref #{p\ 3782}# 1)
- (#{strip\ 355}#
- #{e\ 3781}#
- #{w\ 3783}#))
- #{r\ 3784}#
+ (vector-ref #{p\ 7039}# 1)
+ (#{strip\ 3612}#
+ #{e\ 7038}#
+ #{w\ 7040}#))
+ #{r\ 7041}#
#f)
- (if (memv #{atom-key\ 3808}#
+ (if (memv #{atom-key\ 7065}#
'(vector))
- (if (vector? #{e\ 3781}#)
- (#{match\ 3763}#
- (vector->list #{e\ 3781}#)
- (vector-ref #{p\ 3782}# 1)
- #{w\ 3783}#
- #{r\ 3784}#
- #{mod\ 3785}#)
+ (if (vector? #{e\ 7038}#)
+ (#{match\ 7020}#
+ (vector->list #{e\ 7038}#)
+ (vector-ref #{p\ 7039}# 1)
+ #{w\ 7040}#
+ #{r\ 7041}#
+ #{mod\ 7042}#)
#f))))))))))))
- (#{combine\ 3759}#
- (lambda (#{r*\ 3838}# #{r\ 3839}#)
- (if (null? (car #{r*\ 3838}#))
- #{r\ 3839}#
- (cons (map car #{r*\ 3838}#)
- (#{combine\ 3759}#
- (map cdr #{r*\ 3838}#)
- #{r\ 3839}#)))))
- (#{match-empty\ 3757}#
- (lambda (#{p\ 3842}# #{r\ 3843}#)
- (if (null? #{p\ 3842}#)
- #{r\ 3843}#
- (if (eq? #{p\ 3842}# (quote any))
- (cons (quote ()) #{r\ 3843}#)
- (if (pair? #{p\ 3842}#)
- (#{match-empty\ 3757}#
- (car #{p\ 3842}#)
- (#{match-empty\ 3757}#
- (cdr #{p\ 3842}#)
- #{r\ 3843}#))
- (if (eq? #{p\ 3842}# (quote each-any))
- (cons (quote ()) #{r\ 3843}#)
- (let ((#{atom-key\ 3857}#
- (vector-ref #{p\ 3842}# 0)))
- (if (memv #{atom-key\ 3857}# (quote (each)))
- (#{match-empty\ 3757}#
- (vector-ref #{p\ 3842}# 1)
- #{r\ 3843}#)
- (if (memv #{atom-key\ 3857}# (quote (each+)))
- (#{match-empty\ 3757}#
- (vector-ref #{p\ 3842}# 1)
- (#{match-empty\ 3757}#
- (reverse (vector-ref #{p\ 3842}# 2))
- (#{match-empty\ 3757}#
- (vector-ref #{p\ 3842}# 3)
- #{r\ 3843}#)))
- (if (memv #{atom-key\ 3857}#
+ (#{combine\ 7016}#
+ (lambda (#{r*\ 7095}# #{r\ 7096}#)
+ (if (null? (car #{r*\ 7095}#))
+ #{r\ 7096}#
+ (cons (map car #{r*\ 7095}#)
+ (#{combine\ 7016}#
+ (map cdr #{r*\ 7095}#)
+ #{r\ 7096}#)))))
+ (#{match-empty\ 7014}#
+ (lambda (#{p\ 7099}# #{r\ 7100}#)
+ (if (null? #{p\ 7099}#)
+ #{r\ 7100}#
+ (if (eq? #{p\ 7099}# (quote any))
+ (cons (quote ()) #{r\ 7100}#)
+ (if (pair? #{p\ 7099}#)
+ (#{match-empty\ 7014}#
+ (car #{p\ 7099}#)
+ (#{match-empty\ 7014}#
+ (cdr #{p\ 7099}#)
+ #{r\ 7100}#))
+ (if (eq? #{p\ 7099}# (quote each-any))
+ (cons (quote ()) #{r\ 7100}#)
+ (let ((#{atom-key\ 7114}#
+ (vector-ref #{p\ 7099}# 0)))
+ (if (memv #{atom-key\ 7114}# (quote (each)))
+ (#{match-empty\ 7014}#
+ (vector-ref #{p\ 7099}# 1)
+ #{r\ 7100}#)
+ (if (memv #{atom-key\ 7114}# (quote (each+)))
+ (#{match-empty\ 7014}#
+ (vector-ref #{p\ 7099}# 1)
+ (#{match-empty\ 7014}#
+ (reverse (vector-ref #{p\ 7099}# 2))
+ (#{match-empty\ 7014}#
+ (vector-ref #{p\ 7099}# 3)
+ #{r\ 7100}#)))
+ (if (memv #{atom-key\ 7114}#
'(free-id atom))
- #{r\ 3843}#
- (if (memv #{atom-key\ 3857}#
+ #{r\ 7100}#
+ (if (memv #{atom-key\ 7114}#
'(vector))
- (#{match-empty\ 3757}#
- (vector-ref #{p\ 3842}# 1)
- #{r\ 3843}#))))))))))))
- (#{match-each-any\ 3755}#
- (lambda (#{e\ 3862}# #{w\ 3863}# #{mod\ 3864}#)
- (if (pair? #{e\ 3862}#)
- (let ((#{l\ 3871}#
- (#{match-each-any\ 3755}#
- (cdr #{e\ 3862}#)
- #{w\ 3863}#
- #{mod\ 3864}#)))
- (if #{l\ 3871}#
- (cons (#{wrap\ 313}#
- (car #{e\ 3862}#)
- #{w\ 3863}#
- #{mod\ 3864}#)
- #{l\ 3871}#)
+ (#{match-empty\ 7014}#
+ (vector-ref #{p\ 7099}# 1)
+ #{r\ 7100}#))))))))))))
+ (#{match-each-any\ 7012}#
+ (lambda (#{e\ 7119}# #{w\ 7120}# #{mod\ 7121}#)
+ (if (pair? #{e\ 7119}#)
+ (let ((#{l\ 7128}#
+ (#{match-each-any\ 7012}#
+ (cdr #{e\ 7119}#)
+ #{w\ 7120}#
+ #{mod\ 7121}#)))
+ (if #{l\ 7128}#
+ (cons (#{wrap\ 3570}#
+ (car #{e\ 7119}#)
+ #{w\ 7120}#
+ #{mod\ 7121}#)
+ #{l\ 7128}#)
#f))
- (if (null? #{e\ 3862}#)
+ (if (null? #{e\ 7119}#)
'()
- (if (#{syntax-object?\ 208}# #{e\ 3862}#)
- (#{match-each-any\ 3755}#
- (#{syntax-object-expression\ 210}# #{e\ 3862}#)
- (#{join-wraps\ 295}#
- #{w\ 3863}#
- (#{syntax-object-wrap\ 212}# #{e\ 3862}#))
- #{mod\ 3864}#)
+ (if (#{syntax-object?\ 3465}# #{e\ 7119}#)
+ (#{match-each-any\ 7012}#
+ (#{syntax-object-expression\ 3467}# #{e\ 7119}#)
+ (#{join-wraps\ 3552}#
+ #{w\ 7120}#
+ (#{syntax-object-wrap\ 3469}# #{e\ 7119}#))
+ #{mod\ 7121}#)
#f)))))
- (#{match-each+\ 3753}#
- (lambda (#{e\ 3879}#
- #{x-pat\ 3880}#
- #{y-pat\ 3881}#
- #{z-pat\ 3882}#
- #{w\ 3883}#
- #{r\ 3884}#
- #{mod\ 3885}#)
- (letrec ((#{f\ 3896}#
- (lambda (#{e\ 3897}# #{w\ 3898}#)
- (if (pair? #{e\ 3897}#)
+ (#{match-each+\ 7010}#
+ (lambda (#{e\ 7136}#
+ #{x-pat\ 7137}#
+ #{y-pat\ 7138}#
+ #{z-pat\ 7139}#
+ #{w\ 7140}#
+ #{r\ 7141}#
+ #{mod\ 7142}#)
+ (letrec ((#{f\ 7153}#
+ (lambda (#{e\ 7154}# #{w\ 7155}#)
+ (if (pair? #{e\ 7154}#)
(call-with-values
(lambda ()
- (#{f\ 3896}#
- (cdr #{e\ 3897}#)
- #{w\ 3898}#))
- (lambda (#{xr*\ 3901}#
- #{y-pat\ 3902}#
- #{r\ 3903}#)
- (if #{r\ 3903}#
- (if (null? #{y-pat\ 3902}#)
- (let ((#{xr\ 3908}#
- (#{match\ 3763}#
- (car #{e\ 3897}#)
- #{x-pat\ 3880}#
- #{w\ 3898}#
+ (#{f\ 7153}#
+ (cdr #{e\ 7154}#)
+ #{w\ 7155}#))
+ (lambda (#{xr*\ 7158}#
+ #{y-pat\ 7159}#
+ #{r\ 7160}#)
+ (if #{r\ 7160}#
+ (if (null? #{y-pat\ 7159}#)
+ (let ((#{xr\ 7165}#
+ (#{match\ 7020}#
+ (car #{e\ 7154}#)
+ #{x-pat\ 7137}#
+ #{w\ 7155}#
'()
- #{mod\ 3885}#)))
- (if #{xr\ 3908}#
+ #{mod\ 7142}#)))
+ (if #{xr\ 7165}#
(values
- (cons #{xr\ 3908}#
- #{xr*\ 3901}#)
- #{y-pat\ 3902}#
- #{r\ 3903}#)
+ (cons #{xr\ 7165}#
+ #{xr*\ 7158}#)
+ #{y-pat\ 7159}#
+ #{r\ 7160}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat\ 3902}#)
- (#{match\ 3763}#
- (car #{e\ 3897}#)
- (car #{y-pat\ 3902}#)
- #{w\ 3898}#
- #{r\ 3903}#
- #{mod\ 3885}#)))
+ (cdr #{y-pat\ 7159}#)
+ (#{match\ 7020}#
+ (car #{e\ 7154}#)
+ (car #{y-pat\ 7159}#)
+ #{w\ 7155}#
+ #{r\ 7160}#
+ #{mod\ 7142}#)))
(values #f #f #f))))
- (if (#{syntax-object?\ 208}# #{e\ 3897}#)
- (#{f\ 3896}#
- (#{syntax-object-expression\ 210}#
- #{e\ 3897}#)
- (#{join-wraps\ 295}#
- #{w\ 3898}#
- #{e\ 3897}#))
+ (if (#{syntax-object?\ 3465}# #{e\ 7154}#)
+ (#{f\ 7153}#
+ (#{syntax-object-expression\ 3467}#
+ #{e\ 7154}#)
+ (#{join-wraps\ 3552}#
+ #{w\ 7155}#
+ #{e\ 7154}#))
(values
'()
- #{y-pat\ 3881}#
- (#{match\ 3763}#
- #{e\ 3897}#
- #{z-pat\ 3882}#
- #{w\ 3898}#
- #{r\ 3884}#
- #{mod\ 3885}#)))))))
- (#{f\ 3896}# #{e\ 3879}# #{w\ 3883}#))))
- (#{match-each\ 3751}#
- (lambda (#{e\ 3912}#
- #{p\ 3913}#
- #{w\ 3914}#
- #{mod\ 3915}#)
- (if (pair? #{e\ 3912}#)
- (let ((#{first\ 3923}#
- (#{match\ 3763}#
- (car #{e\ 3912}#)
- #{p\ 3913}#
- #{w\ 3914}#
+ #{y-pat\ 7138}#
+ (#{match\ 7020}#
+ #{e\ 7154}#
+ #{z-pat\ 7139}#
+ #{w\ 7155}#
+ #{r\ 7141}#
+ #{mod\ 7142}#)))))))
+ (#{f\ 7153}# #{e\ 7136}# #{w\ 7140}#))))
+ (#{match-each\ 7008}#
+ (lambda (#{e\ 7169}#
+ #{p\ 7170}#
+ #{w\ 7171}#
+ #{mod\ 7172}#)
+ (if (pair? #{e\ 7169}#)
+ (let ((#{first\ 7180}#
+ (#{match\ 7020}#
+ (car #{e\ 7169}#)
+ #{p\ 7170}#
+ #{w\ 7171}#
'()
- #{mod\ 3915}#)))
- (if #{first\ 3923}#
- (let ((#{rest\ 3927}#
- (#{match-each\ 3751}#
- (cdr #{e\ 3912}#)
- #{p\ 3913}#
- #{w\ 3914}#
- #{mod\ 3915}#)))
- (if #{rest\ 3927}#
- (cons #{first\ 3923}# #{rest\ 3927}#)
+ #{mod\ 7172}#)))
+ (if #{first\ 7180}#
+ (let ((#{rest\ 7184}#
+ (#{match-each\ 7008}#
+ (cdr #{e\ 7169}#)
+ #{p\ 7170}#
+ #{w\ 7171}#
+ #{mod\ 7172}#)))
+ (if #{rest\ 7184}#
+ (cons #{first\ 7180}# #{rest\ 7184}#)
#f))
#f))
- (if (null? #{e\ 3912}#)
+ (if (null? #{e\ 7169}#)
'()
- (if (#{syntax-object?\ 208}# #{e\ 3912}#)
- (#{match-each\ 3751}#
- (#{syntax-object-expression\ 210}# #{e\ 3912}#)
- #{p\ 3913}#
- (#{join-wraps\ 295}#
- #{w\ 3914}#
- (#{syntax-object-wrap\ 212}# #{e\ 3912}#))
- (#{syntax-object-module\ 214}# #{e\ 3912}#))
+ (if (#{syntax-object?\ 3465}# #{e\ 7169}#)
+ (#{match-each\ 7008}#
+ (#{syntax-object-expression\ 3467}# #{e\ 7169}#)
+ #{p\ 7170}#
+ (#{join-wraps\ 3552}#
+ #{w\ 7171}#
+ (#{syntax-object-wrap\ 3469}# #{e\ 7169}#))
+ (#{syntax-object-module\ 3471}# #{e\ 7169}#))
#f))))))
(set! $sc-dispatch
- (lambda (#{e\ 3935}# #{p\ 3936}#)
- (if (eq? #{p\ 3936}# (quote any))
- (list #{e\ 3935}#)
- (if (#{syntax-object?\ 208}# #{e\ 3935}#)
- (#{match*\ 3761}#
- (#{syntax-object-expression\ 210}# #{e\ 3935}#)
- #{p\ 3936}#
- (#{syntax-object-wrap\ 212}# #{e\ 3935}#)
+ (lambda (#{e\ 7192}# #{p\ 7193}#)
+ (if (eq? #{p\ 7193}# (quote any))
+ (list #{e\ 7192}#)
+ (if (#{syntax-object?\ 3465}# #{e\ 7192}#)
+ (#{match*\ 7018}#
+ (#{syntax-object-expression\ 3467}# #{e\ 7192}#)
+ #{p\ 7193}#
+ (#{syntax-object-wrap\ 3469}# #{e\ 7192}#)
'()
- (#{syntax-object-module\ 214}# #{e\ 3935}#))
- (#{match*\ 3761}#
- #{e\ 3935}#
- #{p\ 3936}#
+ (#{syntax-object-module\ 3471}# #{e\ 7192}#))
+ (#{match*\ 7018}#
+ #{e\ 7192}#
+ #{p\ 7193}#
'(())
'()
#f)))))))))
(make-syntax-transformer
'with-syntax
'macro
- (cons (lambda (#{x\ 3945}#)
- ((lambda (#{tmp\ 3947}#)
- ((lambda (#{tmp\ 3948}#)
- (if #{tmp\ 3948}#
- (apply (lambda (#{_\ 3952}# #{e1\ 3953}# #{e2\ 3954}#)
+ (cons (lambda (#{x\ 7202}#)
+ ((lambda (#{tmp\ 7204}#)
+ ((lambda (#{tmp\ 7205}#)
+ (if #{tmp\ 7205}#
+ (apply (lambda (#{_\ 7209}# #{e1\ 7210}# #{e2\ 7211}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(_ e1 e2)
#((top) (top) (top))
- #("i3949" "i3950" "i3951"))
+ #("i7206" "i7207" "i7208"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3946")))
+ #(ribcage #(x) #((top)) #("i7203")))
(hygiene guile))
- (cons #{e1\ 3953}# #{e2\ 3954}#)))
- #{tmp\ 3948}#)
- ((lambda (#{tmp\ 3956}#)
- (if #{tmp\ 3956}#
- (apply (lambda (#{_\ 3962}#
- #{out\ 3963}#
- #{in\ 3964}#
- #{e1\ 3965}#
- #{e2\ 3966}#)
+ (cons #{e1\ 7210}# #{e2\ 7211}#)))
+ #{tmp\ 7205}#)
+ ((lambda (#{tmp\ 7213}#)
+ (if #{tmp\ 7213}#
+ (apply (lambda (#{_\ 7219}#
+ #{out\ 7220}#
+ #{in\ 7221}#
+ #{e1\ 7222}#
+ #{e2\ 7223}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(_ out in e1 e2)
#((top) (top) (top) (top) (top))
- #("i3957"
- "i3958"
- "i3959"
- "i3960"
- "i3961"))
+ #("i7214"
+ "i7215"
+ "i7216"
+ "i7217"
+ "i7218"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3946")))
+ #("i7203")))
(hygiene guile))
- #{in\ 3964}#
+ #{in\ 7221}#
'()
- (list #{out\ 3963}#
+ (list #{out\ 7220}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i3957"
- "i3958"
- "i3959"
- "i3960"
- "i3961"))
+ #("i7214"
+ "i7215"
+ "i7216"
+ "i7217"
+ "i7218"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3946")))
+ #("i7203")))
(hygiene guile))
- (cons #{e1\ 3965}#
- #{e2\ 3966}#)))))
- #{tmp\ 3956}#)
- ((lambda (#{tmp\ 3968}#)
- (if #{tmp\ 3968}#
- (apply (lambda (#{_\ 3974}#
- #{out\ 3975}#
- #{in\ 3976}#
- #{e1\ 3977}#
- #{e2\ 3978}#)
+ (cons #{e1\ 7222}#
+ #{e2\ 7223}#)))))
+ #{tmp\ 7213}#)
+ ((lambda (#{tmp\ 7225}#)
+ (if #{tmp\ 7225}#
+ (apply (lambda (#{_\ 7231}#
+ #{out\ 7232}#
+ #{in\ 7233}#
+ #{e1\ 7234}#
+ #{e2\ 7235}#)
(list '#(syntax-object
syntax-case
((top)
(top)
(top)
(top))
- #("i3969"
- "i3970"
- "i3971"
- "i3972"
- "i3973"))
+ #("i7226"
+ "i7227"
+ "i7228"
+ "i7229"
+ "i7230"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3946")))
+ #("i7203")))
(hygiene guile))
(cons '#(syntax-object
list
(top)
(top)
(top))
- #("i3969"
- "i3970"
- "i3971"
- "i3972"
- "i3973"))
+ #("i7226"
+ "i7227"
+ "i7228"
+ "i7229"
+ "i7230"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3946")))
+ #("i7203")))
(hygiene guile))
- #{in\ 3976}#)
+ #{in\ 7233}#)
'()
- (list #{out\ 3975}#
+ (list #{out\ 7232}#
(cons '#(syntax-object
begin
((top)
(top)
(top)
(top))
- #("i3969"
- "i3970"
- "i3971"
- "i3972"
- "i3973"))
+ #("i7226"
+ "i7227"
+ "i7228"
+ "i7229"
+ "i7230"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i3946")))
+ #("i7203")))
(hygiene guile))
- (cons #{e1\ 3977}#
- #{e2\ 3978}#)))))
- #{tmp\ 3968}#)
+ (cons #{e1\ 7234}#
+ #{e2\ 7235}#)))))
+ #{tmp\ 7225}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3947}#)))
+ #{tmp\ 7204}#)))
($sc-dispatch
- #{tmp\ 3947}#
+ #{tmp\ 7204}#
'(any #(each (any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3947}#
+ #{tmp\ 7204}#
'(any ((any any)) any . each-any)))))
($sc-dispatch
- #{tmp\ 3947}#
+ #{tmp\ 7204}#
'(any () any . each-any))))
- #{x\ 3945}#))
+ #{x\ 7202}#))
(module-name (current-module)))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (cons (lambda (#{x\ 3982}#)
- ((lambda (#{tmp\ 3984}#)
- ((lambda (#{tmp\ 3985}#)
- (if #{tmp\ 3985}#
- (apply (lambda (#{_\ 3991}#
- #{k\ 3992}#
- #{keyword\ 3993}#
- #{pattern\ 3994}#
- #{template\ 3995}#)
+ (cons (lambda (#{x\ 7239}#)
+ ((lambda (#{tmp\ 7241}#)
+ ((lambda (#{tmp\ 7242}#)
+ (if #{tmp\ 7242}#
+ (apply (lambda (#{_\ 7248}#
+ #{k\ 7249}#
+ #{keyword\ 7250}#
+ #{pattern\ 7251}#
+ #{template\ 7252}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i3986"
- "i3987"
- "i3988"
- "i3989"
- "i3990"))
+ #("i7243"
+ "i7244"
+ "i7245"
+ "i7246"
+ "i7247"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3983")))
+ #(ribcage #(x) #((top)) #("i7240")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i3986"
- "i3987"
- "i3988"
- "i3989"
- "i3990"))
+ #("i7243"
+ "i7244"
+ "i7245"
+ "i7246"
+ "i7247"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i3983")))
+ #(ribcage #(x) #((top)) #("i7240")))
(hygiene guile)))
(cons '#(syntax-object
syntax-case
#(ribcage
#(_ k keyword pattern template)
#((top) (top) (top) (top) (top))
- #("i3986"
- "i3987"
- "i3988"
- "i3989"
- "i3990"))
+ #("i7243"
+ "i7244"
+ "i7245"
+ "i7246"
+ "i7247"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3983")))
+ #("i7240")))
(hygiene guile))
(cons '#(syntax-object
x
(top)
(top)
(top))
- #("i3986"
- "i3987"
- "i3988"
- "i3989"
- "i3990"))
+ #("i7243"
+ "i7244"
+ "i7245"
+ "i7246"
+ "i7247"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i3983")))
+ #("i7240")))
(hygiene guile))
- (cons #{k\ 3992}#
- (map (lambda (#{tmp\ 3998}#
- #{tmp\ 3997}#)
+ (cons #{k\ 7249}#
+ (map (lambda (#{tmp\ 7255}#
+ #{tmp\ 7254}#)
(list (cons '#(syntax-object
dummy
((top)
(top)
(top)
(top))
- #("i3986"
- "i3987"
- "i3988"
- "i3989"
- "i3990"))
+ #("i7243"
+ "i7244"
+ "i7245"
+ "i7246"
+ "i7247"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i3983")))
+ #("i7240")))
(hygiene
guile))
- #{tmp\ 3997}#)
+ #{tmp\ 7254}#)
(list '#(syntax-object
syntax
((top)
(top)
(top)
(top))
- #("i3986"
- "i3987"
- "i3988"
- "i3989"
- "i3990"))
+ #("i7243"
+ "i7244"
+ "i7245"
+ "i7246"
+ "i7247"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i3983")))
+ #("i7240")))
(hygiene
guile))
- #{tmp\ 3998}#)))
- #{template\ 3995}#
- #{pattern\ 3994}#))))))
- #{tmp\ 3985}#)
+ #{tmp\ 7255}#)))
+ #{template\ 7252}#
+ #{pattern\ 7251}#))))))
+ #{tmp\ 7242}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 3984}#)))
+ #{tmp\ 7241}#)))
($sc-dispatch
- #{tmp\ 3984}#
+ #{tmp\ 7241}#
'(any each-any . #(each ((any . any) any))))))
- #{x\ 3982}#))
+ #{x\ 7239}#))
(module-name (current-module)))))
(define let*
(make-syntax-transformer
'let*
'macro
- (cons (lambda (#{x\ 3999}#)
- ((lambda (#{tmp\ 4001}#)
- ((lambda (#{tmp\ 4002}#)
- (if (if #{tmp\ 4002}#
- (apply (lambda (#{let*\ 4008}#
- #{x\ 4009}#
- #{v\ 4010}#
- #{e1\ 4011}#
- #{e2\ 4012}#)
- (and-map identifier? #{x\ 4009}#))
- #{tmp\ 4002}#)
+ (cons (lambda (#{x\ 7256}#)
+ ((lambda (#{tmp\ 7258}#)
+ ((lambda (#{tmp\ 7259}#)
+ (if (if #{tmp\ 7259}#
+ (apply (lambda (#{let*\ 7265}#
+ #{x\ 7266}#
+ #{v\ 7267}#
+ #{e1\ 7268}#
+ #{e2\ 7269}#)
+ (and-map identifier? #{x\ 7266}#))
+ #{tmp\ 7259}#)
#f)
- (apply (lambda (#{let*\ 4019}#
- #{x\ 4020}#
- #{v\ 4021}#
- #{e1\ 4022}#
- #{e2\ 4023}#)
- (letrec ((#{f\ 4026}#
- (lambda (#{bindings\ 4027}#)
- (if (null? #{bindings\ 4027}#)
+ (apply (lambda (#{let*\ 7276}#
+ #{x\ 7277}#
+ #{v\ 7278}#
+ #{e1\ 7279}#
+ #{e2\ 7280}#)
+ (letrec ((#{f\ 7283}#
+ (lambda (#{bindings\ 7284}#)
+ (if (null? #{bindings\ 7284}#)
(cons '#(syntax-object
let
((top)
#(ribcage
#(f bindings)
#((top) (top))
- #("i4024" "i4025"))
+ #("i7281" "i7282"))
#(ribcage
#(let* x v e1 e2)
#((top)
(top)
(top)
(top))
- #("i4014"
- "i4015"
- "i4016"
- "i4017"
- "i4018"))
+ #("i7271"
+ "i7272"
+ "i7273"
+ "i7274"
+ "i7275"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4000")))
+ #("i7257")))
(hygiene guile))
(cons '()
- (cons #{e1\ 4022}#
- #{e2\ 4023}#)))
- ((lambda (#{tmp\ 4032}#)
- ((lambda (#{tmp\ 4033}#)
- (if #{tmp\ 4033}#
- (apply (lambda (#{body\ 4036}#
- #{binding\ 4037}#)
+ (cons #{e1\ 7279}#
+ #{e2\ 7280}#)))
+ ((lambda (#{tmp\ 7289}#)
+ ((lambda (#{tmp\ 7290}#)
+ (if #{tmp\ 7290}#
+ (apply (lambda (#{body\ 7293}#
+ #{binding\ 7294}#)
(list '#(syntax-object
let
((top)
binding)
#((top)
(top))
- #("i4034"
- "i4035"))
+ #("i7291"
+ "i7292"))
#(ribcage
()
()
bindings)
#((top)
(top))
- #("i4024"
- "i4025"))
+ #("i7281"
+ "i7282"))
#(ribcage
#(let*
x
(top)
(top)
(top))
- #("i4014"
- "i4015"
- "i4016"
- "i4017"
- "i4018"))
+ #("i7271"
+ "i7272"
+ "i7273"
+ "i7274"
+ "i7275"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4000")))
+ #("i7257")))
(hygiene
guile))
- (list #{binding\ 4037}#)
- #{body\ 4036}#))
- #{tmp\ 4033}#)
+ (list #{binding\ 7294}#)
+ #{body\ 7293}#))
+ #{tmp\ 7290}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4032}#)))
+ #{tmp\ 7289}#)))
($sc-dispatch
- #{tmp\ 4032}#
+ #{tmp\ 7289}#
'(any any))))
- (list (#{f\ 4026}#
- (cdr #{bindings\ 4027}#))
- (car #{bindings\ 4027}#)))))))
- (#{f\ 4026}#
- (map list #{x\ 4020}# #{v\ 4021}#))))
- #{tmp\ 4002}#)
+ (list (#{f\ 7283}#
+ (cdr #{bindings\ 7284}#))
+ (car #{bindings\ 7284}#)))))))
+ (#{f\ 7283}#
+ (map list #{x\ 7277}# #{v\ 7278}#))))
+ #{tmp\ 7259}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4001}#)))
+ #{tmp\ 7258}#)))
($sc-dispatch
- #{tmp\ 4001}#
+ #{tmp\ 7258}#
'(any #(each (any any)) any . each-any))))
- #{x\ 3999}#))
+ #{x\ 7256}#))
(module-name (current-module)))))
(define do
(make-syntax-transformer
'do
'macro
- (cons (lambda (#{orig-x\ 4038}#)
- ((lambda (#{tmp\ 4040}#)
- ((lambda (#{tmp\ 4041}#)
- (if #{tmp\ 4041}#
- (apply (lambda (#{_\ 4049}#
- #{var\ 4050}#
- #{init\ 4051}#
- #{step\ 4052}#
- #{e0\ 4053}#
- #{e1\ 4054}#
- #{c\ 4055}#)
- ((lambda (#{tmp\ 4057}#)
- ((lambda (#{tmp\ 4058}#)
- (if #{tmp\ 4058}#
- (apply (lambda (#{step\ 4060}#)
- ((lambda (#{tmp\ 4061}#)
- ((lambda (#{tmp\ 4062}#)
- (if #{tmp\ 4062}#
+ (cons (lambda (#{orig-x\ 7295}#)
+ ((lambda (#{tmp\ 7297}#)
+ ((lambda (#{tmp\ 7298}#)
+ (if #{tmp\ 7298}#
+ (apply (lambda (#{_\ 7306}#
+ #{var\ 7307}#
+ #{init\ 7308}#
+ #{step\ 7309}#
+ #{e0\ 7310}#
+ #{e1\ 7311}#
+ #{c\ 7312}#)
+ ((lambda (#{tmp\ 7314}#)
+ ((lambda (#{tmp\ 7315}#)
+ (if #{tmp\ 7315}#
+ (apply (lambda (#{step\ 7317}#)
+ ((lambda (#{tmp\ 7318}#)
+ ((lambda (#{tmp\ 7319}#)
+ (if #{tmp\ 7319}#
(apply (lambda ()
(list '#(syntax-object
let
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
'#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
(map list
- #{var\ 4050}#
- #{init\ 4051}#)
+ #{var\ 7307}#
+ #{init\ 7308}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
(list '#(syntax-object
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
- #{e0\ 4053}#)
+ #{e0\ 7310}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
(append
- #{c\ 4055}#
+ #{c\ 7312}#
(list (cons '#(syntax-object
doloop
((top)
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
- #{step\ 4060}#)))))))
- #{tmp\ 4062}#)
- ((lambda (#{tmp\ 4067}#)
- (if #{tmp\ 4067}#
- (apply (lambda (#{e1\ 4070}#
- #{e2\ 4071}#)
+ #{step\ 7317}#)))))))
+ #{tmp\ 7319}#)
+ ((lambda (#{tmp\ 7324}#)
+ (if #{tmp\ 7324}#
+ (apply (lambda (#{e1\ 7327}#
+ #{e2\ 7328}#)
(list '#(syntax-object
let
((top)
e2)
#((top)
(top))
- #("i4068"
- "i4069"))
+ #("i7325"
+ "i7326"))
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
'#(syntax-object
e2)
#((top)
(top))
- #("i4068"
- "i4069"))
+ #("i7325"
+ "i7326"))
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
(map list
- #{var\ 4050}#
- #{init\ 4051}#)
+ #{var\ 7307}#
+ #{init\ 7308}#)
(list '#(syntax-object
if
((top)
e2)
#((top)
(top))
- #("i4068"
- "i4069"))
+ #("i7325"
+ "i7326"))
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
- #{e0\ 4053}#
+ #{e0\ 7310}#
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4068"
- "i4069"))
+ #("i7325"
+ "i7326"))
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
- (cons #{e1\ 4070}#
- #{e2\ 4071}#))
+ (cons #{e1\ 7327}#
+ #{e2\ 7328}#))
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4068"
- "i4069"))
+ #("i7325"
+ "i7326"))
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
(append
- #{c\ 4055}#
+ #{c\ 7312}#
(list (cons '#(syntax-object
doloop
((top)
e2)
#((top)
(top))
- #("i4068"
- "i4069"))
+ #("i7325"
+ "i7326"))
#(ribcage
#(step)
#((top))
- #("i4059"))
+ #("i7316"))
#(ribcage
#(_
var
(top)
(top)
(top))
- #("i4042"
- "i4043"
- "i4044"
- "i4045"
- "i4046"
- "i4047"
- "i4048"))
+ #("i7299"
+ "i7300"
+ "i7301"
+ "i7302"
+ "i7303"
+ "i7304"
+ "i7305"))
#(ribcage
()
()
#(ribcage
#(orig-x)
#((top))
- #("i4039")))
+ #("i7296")))
(hygiene
guile))
- #{step\ 4060}#)))))))
- #{tmp\ 4067}#)
+ #{step\ 7317}#)))))))
+ #{tmp\ 7324}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4061}#)))
+ #{tmp\ 7318}#)))
($sc-dispatch
- #{tmp\ 4061}#
+ #{tmp\ 7318}#
'(any . each-any)))))
($sc-dispatch
- #{tmp\ 4061}#
+ #{tmp\ 7318}#
'())))
- #{e1\ 4054}#))
- #{tmp\ 4058}#)
+ #{e1\ 7311}#))
+ #{tmp\ 7315}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4057}#)))
+ #{tmp\ 7314}#)))
($sc-dispatch
- #{tmp\ 4057}#
+ #{tmp\ 7314}#
'each-any)))
- (map (lambda (#{v\ 4078}# #{s\ 4079}#)
- ((lambda (#{tmp\ 4082}#)
- ((lambda (#{tmp\ 4083}#)
- (if #{tmp\ 4083}#
- (apply (lambda () #{v\ 4078}#)
- #{tmp\ 4083}#)
- ((lambda (#{tmp\ 4084}#)
- (if #{tmp\ 4084}#
- (apply (lambda (#{e\ 4086}#)
- #{e\ 4086}#)
- #{tmp\ 4084}#)
- ((lambda (#{_\ 4088}#)
+ (map (lambda (#{v\ 7335}# #{s\ 7336}#)
+ ((lambda (#{tmp\ 7339}#)
+ ((lambda (#{tmp\ 7340}#)
+ (if #{tmp\ 7340}#
+ (apply (lambda () #{v\ 7335}#)
+ #{tmp\ 7340}#)
+ ((lambda (#{tmp\ 7341}#)
+ (if #{tmp\ 7341}#
+ (apply (lambda (#{e\ 7343}#)
+ #{e\ 7343}#)
+ #{tmp\ 7341}#)
+ ((lambda (#{_\ 7345}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x\ 4038}#
- #{s\ 4079}#))
- #{tmp\ 4082}#)))
+ #{orig-x\ 7295}#
+ #{s\ 7336}#))
+ #{tmp\ 7339}#)))
($sc-dispatch
- #{tmp\ 4082}#
+ #{tmp\ 7339}#
'(any)))))
($sc-dispatch
- #{tmp\ 4082}#
+ #{tmp\ 7339}#
'())))
- #{s\ 4079}#))
- #{var\ 4050}#
- #{step\ 4052}#)))
- #{tmp\ 4041}#)
+ #{s\ 7336}#))
+ #{var\ 7307}#
+ #{step\ 7309}#)))
+ #{tmp\ 7298}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4040}#)))
+ #{tmp\ 7297}#)))
($sc-dispatch
- #{tmp\ 4040}#
+ #{tmp\ 7297}#
'(any #(each (any any . any))
(any . each-any)
.
each-any))))
- #{orig-x\ 4038}#))
+ #{orig-x\ 7295}#))
(module-name (current-module)))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
- (cons (letrec ((#{quasicons\ 4095}#
- (lambda (#{x\ 4099}# #{y\ 4100}#)
- ((lambda (#{tmp\ 4104}#)
- ((lambda (#{tmp\ 4105}#)
- (if #{tmp\ 4105}#
- (apply (lambda (#{x\ 4108}# #{y\ 4109}#)
- ((lambda (#{tmp\ 4110}#)
- ((lambda (#{tmp\ 4111}#)
- (if #{tmp\ 4111}#
- (apply (lambda (#{dy\ 4113}#)
- ((lambda (#{tmp\ 4114}#)
- ((lambda (#{tmp\ 4115}#)
- (if #{tmp\ 4115}#
- (apply (lambda (#{dx\ 4117}#)
+ (cons (letrec ((#{quasicons\ 7352}#
+ (lambda (#{x\ 7356}# #{y\ 7357}#)
+ ((lambda (#{tmp\ 7361}#)
+ ((lambda (#{tmp\ 7362}#)
+ (if #{tmp\ 7362}#
+ (apply (lambda (#{x\ 7365}# #{y\ 7366}#)
+ ((lambda (#{tmp\ 7367}#)
+ ((lambda (#{tmp\ 7368}#)
+ (if #{tmp\ 7368}#
+ (apply (lambda (#{dy\ 7370}#)
+ ((lambda (#{tmp\ 7371}#)
+ ((lambda (#{tmp\ 7372}#)
+ (if #{tmp\ 7372}#
+ (apply (lambda (#{dx\ 7374}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(dx)
#((top))
- #("i4116"))
+ #("i7373"))
#(ribcage
#(dy)
#((top))
- #("i4112"))
+ #("i7369"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4106"
- "i4107"))
+ #("i7363"
+ "i7364"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4101"
- "i4102"))
+ #("i7358"
+ "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- (cons #{dx\ 4117}#
- #{dy\ 4113}#)))
- #{tmp\ 4115}#)
- ((lambda (#{_\ 4119}#)
- (if (null? #{dy\ 4113}#)
+ (cons #{dx\ 7374}#
+ #{dy\ 7370}#)))
+ #{tmp\ 7372}#)
+ ((lambda (#{_\ 7376}#)
+ (if (null? #{dy\ 7370}#)
(list '#(syntax-object
list
((top)
#(ribcage
#(_)
#((top))
- #("i4118"))
+ #("i7375"))
#(ribcage
#(dy)
#((top))
- #("i4112"))
+ #("i7369"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4106"
- "i4107"))
+ #("i7363"
+ "i7364"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4101"
- "i4102"))
+ #("i7358"
+ "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- #{x\ 4108}#)
+ #{x\ 7365}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(_)
#((top))
- #("i4118"))
+ #("i7375"))
#(ribcage
#(dy)
#((top))
- #("i4112"))
+ #("i7369"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4106"
- "i4107"))
+ #("i7363"
+ "i7364"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4101"
- "i4102"))
+ #("i7358"
+ "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- #{x\ 4108}#
- #{y\ 4109}#)))
- #{tmp\ 4114}#)))
+ #{x\ 7365}#
+ #{y\ 7366}#)))
+ #{tmp\ 7371}#)))
($sc-dispatch
- #{tmp\ 4114}#
+ #{tmp\ 7371}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(dy)
#((top))
- #("i4112"))
+ #("i7369"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4106"
- "i4107"))
+ #("i7363"
+ "i7364"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i4101"
- "i4102"))
+ #("i7358"
+ "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile)))
any))))
- #{x\ 4108}#))
- #{tmp\ 4111}#)
- ((lambda (#{tmp\ 4120}#)
- (if #{tmp\ 4120}#
- (apply (lambda (#{stuff\ 4122}#)
+ #{x\ 7365}#))
+ #{tmp\ 7368}#)
+ ((lambda (#{tmp\ 7377}#)
+ (if #{tmp\ 7377}#
+ (apply (lambda (#{stuff\ 7379}#)
(cons '#(syntax-object
list
((top)
#(ribcage
#(stuff)
#((top))
- #("i4121"))
+ #("i7378"))
#(ribcage
#(x
y)
#((top)
(top))
- #("i4106"
- "i4107"))
+ #("i7363"
+ "i7364"))
#(ribcage
()
()
y)
#((top)
(top))
- #("i4101"
- "i4102"))
+ #("i7358"
+ "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- (cons #{x\ 4108}#
- #{stuff\ 4122}#)))
- #{tmp\ 4120}#)
- ((lambda (#{else\ 4124}#)
+ (cons #{x\ 7365}#
+ #{stuff\ 7379}#)))
+ #{tmp\ 7377}#)
+ ((lambda (#{else\ 7381}#)
(list '#(syntax-object
cons
((top)
#(ribcage
#(else)
#((top))
- #("i4123"))
+ #("i7380"))
#(ribcage
#(x y)
#((top)
(top))
- #("i4106"
- "i4107"))
+ #("i7363"
+ "i7364"))
#(ribcage
()
()
#(x y)
#((top)
(top))
- #("i4101"
- "i4102"))
+ #("i7358"
+ "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- #{x\ 4108}#
- #{y\ 4109}#))
- #{tmp\ 4110}#)))
+ #{x\ 7365}#
+ #{y\ 7366}#))
+ #{tmp\ 7367}#)))
($sc-dispatch
- #{tmp\ 4110}#
+ #{tmp\ 7367}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x y)
#((top) (top))
- #("i4106" "i4107"))
+ #("i7363" "i7364"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4101" "i4102"))
+ #("i7358" "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4110}#
+ #{tmp\ 7367}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4106" "i4107"))
+ #("i7363" "i7364"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4101" "i4102"))
+ #("i7358" "i7359"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
any))))
- #{y\ 4109}#))
- #{tmp\ 4105}#)
+ #{y\ 7366}#))
+ #{tmp\ 7362}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4104}#)))
- ($sc-dispatch #{tmp\ 4104}# (quote (any any)))))
- (list #{x\ 4099}# #{y\ 4100}#))))
- (#{quasiappend\ 4096}#
- (lambda (#{x\ 4125}# #{y\ 4126}#)
- ((lambda (#{tmp\ 4130}#)
- ((lambda (#{tmp\ 4131}#)
- (if #{tmp\ 4131}#
- (apply (lambda (#{x\ 4134}# #{y\ 4135}#)
- ((lambda (#{tmp\ 4136}#)
- ((lambda (#{tmp\ 4137}#)
- (if #{tmp\ 4137}#
- (apply (lambda () #{x\ 4134}#)
- #{tmp\ 4137}#)
- ((lambda (#{_\ 4139}#)
+ #{tmp\ 7361}#)))
+ ($sc-dispatch #{tmp\ 7361}# (quote (any any)))))
+ (list #{x\ 7356}# #{y\ 7357}#))))
+ (#{quasiappend\ 7353}#
+ (lambda (#{x\ 7382}# #{y\ 7383}#)
+ ((lambda (#{tmp\ 7387}#)
+ ((lambda (#{tmp\ 7388}#)
+ (if #{tmp\ 7388}#
+ (apply (lambda (#{x\ 7391}# #{y\ 7392}#)
+ ((lambda (#{tmp\ 7393}#)
+ ((lambda (#{tmp\ 7394}#)
+ (if #{tmp\ 7394}#
+ (apply (lambda () #{x\ 7391}#)
+ #{tmp\ 7394}#)
+ ((lambda (#{_\ 7396}#)
(list '#(syntax-object
append
((top)
#(ribcage
#(_)
#((top))
- #("i4138"))
+ #("i7395"))
#(ribcage
#(x y)
#((top) (top))
- #("i4132"
- "i4133"))
+ #("i7389"
+ "i7390"))
#(ribcage
()
()
#(ribcage
#(x y)
#((top) (top))
- #("i4127"
- "i4128"))
+ #("i7384"
+ "i7385"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
- #{x\ 4134}#
- #{y\ 4135}#))
- #{tmp\ 4136}#)))
+ #{x\ 7391}#
+ #{y\ 7392}#))
+ #{tmp\ 7393}#)))
($sc-dispatch
- #{tmp\ 4136}#
+ #{tmp\ 7393}#
'(#(free-id
#(syntax-object
quote
#(ribcage
#(x y)
#((top) (top))
- #("i4132" "i4133"))
+ #("i7389" "i7390"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("i4127" "i4128"))
+ #("i7384" "i7385"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
()))))
- #{y\ 4135}#))
- #{tmp\ 4131}#)
+ #{y\ 7392}#))
+ #{tmp\ 7388}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4130}#)))
- ($sc-dispatch #{tmp\ 4130}# (quote (any any)))))
- (list #{x\ 4125}# #{y\ 4126}#))))
- (#{quasivector\ 4097}#
- (lambda (#{x\ 4140}#)
- ((lambda (#{tmp\ 4143}#)
- ((lambda (#{x\ 4145}#)
- ((lambda (#{tmp\ 4146}#)
- ((lambda (#{tmp\ 4147}#)
- (if #{tmp\ 4147}#
- (apply (lambda (#{x\ 4149}#)
+ #{tmp\ 7387}#)))
+ ($sc-dispatch #{tmp\ 7387}# (quote (any any)))))
+ (list #{x\ 7382}# #{y\ 7383}#))))
+ (#{quasivector\ 7354}#
+ (lambda (#{x\ 7397}#)
+ ((lambda (#{tmp\ 7400}#)
+ ((lambda (#{x\ 7402}#)
+ ((lambda (#{tmp\ 7403}#)
+ ((lambda (#{tmp\ 7404}#)
+ (if #{tmp\ 7404}#
+ (apply (lambda (#{x\ 7406}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(x)
#((top))
- #("i4148"))
+ #("i7405"))
#(ribcage
#(x)
#((top))
- #("i4144"))
+ #("i7401"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i7398"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
(list->vector
- #{x\ 4149}#)))
- #{tmp\ 4147}#)
- ((lambda (#{tmp\ 4151}#)
- (if #{tmp\ 4151}#
- (apply (lambda (#{x\ 4153}#)
+ #{x\ 7406}#)))
+ #{tmp\ 7404}#)
+ ((lambda (#{tmp\ 7408}#)
+ (if #{tmp\ 7408}#
+ (apply (lambda (#{x\ 7410}#)
(cons '#(syntax-object
vector
((top)
#(ribcage
#(x)
#((top))
- #("i4152"))
+ #("i7409"))
#(ribcage
#(x)
#((top))
- #("i4144"))
+ #("i7401"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i7398"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
- #{x\ 4153}#))
- #{tmp\ 4151}#)
- ((lambda (#{_\ 4156}#)
+ #{x\ 7410}#))
+ #{tmp\ 7408}#)
+ ((lambda (#{_\ 7413}#)
(list '#(syntax-object
list->vector
((top)
#(ribcage
#(_)
#((top))
- #("i4155"))
+ #("i7412"))
#(ribcage
#(x)
#((top))
- #("i4144"))
+ #("i7401"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i7398"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
- #{x\ 4145}#))
- #{tmp\ 4146}#)))
+ #{x\ 7402}#))
+ #{tmp\ 7403}#)))
($sc-dispatch
- #{tmp\ 4146}#
+ #{tmp\ 7403}#
'(#(free-id
#(syntax-object
list
#(ribcage
#(x)
#((top))
- #("i4144"))
+ #("i7401"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4141"))
+ #("i7398"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
.
each-any)))))
($sc-dispatch
- #{tmp\ 4146}#
+ #{tmp\ 7403}#
'(#(free-id
#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("i4144"))
+ #(ribcage #(x) #((top)) #("i7401"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4141"))
+ #(ribcage #(x) #((top)) #("i7398"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
each-any))))
- #{x\ 4145}#))
- #{tmp\ 4143}#))
- #{x\ 4140}#)))
- (#{quasi\ 4098}#
- (lambda (#{p\ 4157}# #{lev\ 4158}#)
- ((lambda (#{tmp\ 4161}#)
- ((lambda (#{tmp\ 4162}#)
- (if #{tmp\ 4162}#
- (apply (lambda (#{p\ 4164}#)
- (if (= #{lev\ 4158}# 0)
- #{p\ 4164}#
- (#{quasicons\ 4095}#
+ #{x\ 7402}#))
+ #{tmp\ 7400}#))
+ #{x\ 7397}#)))
+ (#{quasi\ 7355}#
+ (lambda (#{p\ 7414}# #{lev\ 7415}#)
+ ((lambda (#{tmp\ 7418}#)
+ ((lambda (#{tmp\ 7419}#)
+ (if #{tmp\ 7419}#
+ (apply (lambda (#{p\ 7421}#)
+ (if (= #{lev\ 7415}# 0)
+ #{p\ 7421}#
+ (#{quasicons\ 7352}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4163"))
+ #("i7420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
#(syntax-object
unquote
#(ribcage
#(p)
#((top))
- #("i4163"))
+ #("i7420"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
- (#{quasi\ 4098}#
- (list #{p\ 4164}#)
- (- #{lev\ 4158}# 1)))))
- #{tmp\ 4162}#)
- ((lambda (#{tmp\ 4165}#)
- (if (if #{tmp\ 4165}#
- (apply (lambda (#{args\ 4167}#)
- (= #{lev\ 4158}# 0))
- #{tmp\ 4165}#)
+ (#{quasi\ 7355}#
+ (list #{p\ 7421}#)
+ (- #{lev\ 7415}# 1)))))
+ #{tmp\ 7419}#)
+ ((lambda (#{tmp\ 7422}#)
+ (if (if #{tmp\ 7422}#
+ (apply (lambda (#{args\ 7424}#)
+ (= #{lev\ 7415}# 0))
+ #{tmp\ 7422}#)
#f)
- (apply (lambda (#{args\ 4169}#)
+ (apply (lambda (#{args\ 7426}#)
(syntax-violation
'unquote
"unquote takes exactly one argument"
- #{p\ 4157}#
+ #{p\ 7414}#
(cons '#(syntax-object
unquote
((top)
#(ribcage
#(args)
#((top))
- #("i4168"))
+ #("i7425"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
- #{args\ 4169}#)))
- #{tmp\ 4165}#)
- ((lambda (#{tmp\ 4170}#)
- (if #{tmp\ 4170}#
- (apply (lambda (#{p\ 4173}#
- #{q\ 4174}#)
- (if (= #{lev\ 4158}# 0)
- (#{quasiappend\ 4096}#
- #{p\ 4173}#
- (#{quasi\ 4098}#
- #{q\ 4174}#
- #{lev\ 4158}#))
- (#{quasicons\ 4095}#
- (#{quasicons\ 4095}#
+ #{args\ 7426}#)))
+ #{tmp\ 7422}#)
+ ((lambda (#{tmp\ 7427}#)
+ (if #{tmp\ 7427}#
+ (apply (lambda (#{p\ 7430}#
+ #{q\ 7431}#)
+ (if (= #{lev\ 7415}# 0)
+ (#{quasiappend\ 7353}#
+ #{p\ 7430}#
+ (#{quasi\ 7355}#
+ #{q\ 7431}#
+ #{lev\ 7415}#))
+ (#{quasicons\ 7352}#
+ (#{quasicons\ 7352}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p q)
#((top) (top))
- #("i4171"
- "i4172"))
+ #("i7428"
+ "i7429"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4159"
- "i4160"))
+ #("i7416"
+ "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile))
#(syntax-object
unquote-splicing
#(ribcage
#(p q)
#((top) (top))
- #("i4171"
- "i4172"))
+ #("i7428"
+ "i7429"))
#(ribcage
()
()
#(ribcage
#(p lev)
#((top) (top))
- #("i4159"
- "i4160"))
+ #("i7416"
+ "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
- (#{quasi\ 4098}#
- (list #{p\ 4173}#)
- (- #{lev\ 4158}# 1)))
- (#{quasi\ 4098}#
- #{q\ 4174}#
- #{lev\ 4158}#))))
- #{tmp\ 4170}#)
- ((lambda (#{tmp\ 4175}#)
- (if (if #{tmp\ 4175}#
- (apply (lambda (#{args\ 4178}#
- #{q\ 4179}#)
- (= #{lev\ 4158}# 0))
- #{tmp\ 4175}#)
+ (#{quasi\ 7355}#
+ (list #{p\ 7430}#)
+ (- #{lev\ 7415}# 1)))
+ (#{quasi\ 7355}#
+ #{q\ 7431}#
+ #{lev\ 7415}#))))
+ #{tmp\ 7427}#)
+ ((lambda (#{tmp\ 7432}#)
+ (if (if #{tmp\ 7432}#
+ (apply (lambda (#{args\ 7435}#
+ #{q\ 7436}#)
+ (= #{lev\ 7415}# 0))
+ #{tmp\ 7432}#)
#f)
- (apply (lambda (#{args\ 4182}#
- #{q\ 4183}#)
+ (apply (lambda (#{args\ 7439}#
+ #{q\ 7440}#)
(syntax-violation
'unquote-splicing
"unquote-splicing takes exactly one argument"
- #{p\ 4157}#
+ #{p\ 7414}#
(cons '#(syntax-object
unquote-splicing
((top)
#(args q)
#((top)
(top))
- #("i4180"
- "i4181"))
+ #("i7437"
+ "i7438"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4159"
- "i4160"))
+ #("i7416"
+ "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- #{args\ 4182}#)))
- #{tmp\ 4175}#)
- ((lambda (#{tmp\ 4184}#)
- (if #{tmp\ 4184}#
- (apply (lambda (#{p\ 4186}#)
- (#{quasicons\ 4095}#
+ #{args\ 7439}#)))
+ #{tmp\ 7432}#)
+ ((lambda (#{tmp\ 7441}#)
+ (if #{tmp\ 7441}#
+ (apply (lambda (#{p\ 7443}#)
+ (#{quasicons\ 7352}#
'(#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4185"))
+ #("i7442"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4159"
- "i4160"))
+ #("i7416"
+ "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
#(syntax-object
#(ribcage
#(p)
#((top))
- #("i4185"))
+ #("i7442"))
#(ribcage
()
()
#(p lev)
#((top)
(top))
- #("i4159"
- "i4160"))
+ #("i7416"
+ "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile)))
- (#{quasi\ 4098}#
- (list #{p\ 4186}#)
- (+ #{lev\ 4158}#
+ (#{quasi\ 7355}#
+ (list #{p\ 7443}#)
+ (+ #{lev\ 7415}#
1))))
- #{tmp\ 4184}#)
- ((lambda (#{tmp\ 4187}#)
- (if #{tmp\ 4187}#
- (apply (lambda (#{p\ 4190}#
- #{q\ 4191}#)
- (#{quasicons\ 4095}#
- (#{quasi\ 4098}#
- #{p\ 4190}#
- #{lev\ 4158}#)
- (#{quasi\ 4098}#
- #{q\ 4191}#
- #{lev\ 4158}#)))
- #{tmp\ 4187}#)
- ((lambda (#{tmp\ 4192}#)
- (if #{tmp\ 4192}#
- (apply (lambda (#{x\ 4194}#)
- (#{quasivector\ 4097}#
- (#{quasi\ 4098}#
- #{x\ 4194}#
- #{lev\ 4158}#)))
- #{tmp\ 4192}#)
- ((lambda (#{p\ 4197}#)
+ #{tmp\ 7441}#)
+ ((lambda (#{tmp\ 7444}#)
+ (if #{tmp\ 7444}#
+ (apply (lambda (#{p\ 7447}#
+ #{q\ 7448}#)
+ (#{quasicons\ 7352}#
+ (#{quasi\ 7355}#
+ #{p\ 7447}#
+ #{lev\ 7415}#)
+ (#{quasi\ 7355}#
+ #{q\ 7448}#
+ #{lev\ 7415}#)))
+ #{tmp\ 7444}#)
+ ((lambda (#{tmp\ 7449}#)
+ (if #{tmp\ 7449}#
+ (apply (lambda (#{x\ 7451}#)
+ (#{quasivector\ 7354}#
+ (#{quasi\ 7355}#
+ #{x\ 7451}#
+ #{lev\ 7415}#)))
+ #{tmp\ 7449}#)
+ ((lambda (#{p\ 7454}#)
(list '#(syntax-object
quote
((top)
#(ribcage
#(p)
#((top))
- #("i4196"))
+ #("i7453"))
#(ribcage
()
()
lev)
#((top)
(top))
- #("i4159"
- "i4160"))
+ #("i7416"
+ "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene
guile))
- #{p\ 4197}#))
- #{tmp\ 4161}#)))
+ #{p\ 7454}#))
+ #{tmp\ 7418}#)))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'#(vector
each-any)))))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'(any . any)))))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'(#(free-id
#(syntax-object
quasiquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
any)))))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
(top)
(top)
(top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
.
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'((#(free-id
#(syntax-object
unquote-splicing
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091"
- "i4092"
- "i4093"
- "i4094")))
+ #("i7348"
+ "i7349"
+ "i7350"
+ "i7351")))
(hygiene guile)))
any)
.
any)))))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091" "i4092" "i4093" "i4094")))
+ #("i7348" "i7349" "i7350" "i7351")))
(hygiene guile)))
.
any)))))
($sc-dispatch
- #{tmp\ 4161}#
+ #{tmp\ 7418}#
'(#(free-id
#(syntax-object
unquote
#(ribcage
#(p lev)
#((top) (top))
- #("i4159" "i4160"))
+ #("i7416" "i7417"))
#(ribcage
#(quasicons
quasiappend
quasivector
quasi)
#((top) (top) (top) (top))
- #("i4091" "i4092" "i4093" "i4094")))
+ #("i7348" "i7349" "i7350" "i7351")))
(hygiene guile)))
any))))
- #{p\ 4157}#))))
- (lambda (#{x\ 4198}#)
- ((lambda (#{tmp\ 4200}#)
- ((lambda (#{tmp\ 4201}#)
- (if #{tmp\ 4201}#
- (apply (lambda (#{_\ 4204}# #{e\ 4205}#)
- (#{quasi\ 4098}# #{e\ 4205}# 0))
- #{tmp\ 4201}#)
+ #{p\ 7414}#))))
+ (lambda (#{x\ 7455}#)
+ ((lambda (#{tmp\ 7457}#)
+ ((lambda (#{tmp\ 7458}#)
+ (if #{tmp\ 7458}#
+ (apply (lambda (#{_\ 7461}# #{e\ 7462}#)
+ (#{quasi\ 7355}# #{e\ 7462}# 0))
+ #{tmp\ 7458}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4200}#)))
- ($sc-dispatch #{tmp\ 4200}# (quote (any any)))))
- #{x\ 4198}#)))
+ #{tmp\ 7457}#)))
+ ($sc-dispatch #{tmp\ 7457}# (quote (any any)))))
+ #{x\ 7455}#)))
(module-name (current-module)))))
(define include
(make-syntax-transformer
'include
'macro
- (cons (lambda (#{x\ 4206}#)
- (letrec ((#{read-file\ 4209}#
- (lambda (#{fn\ 4210}# #{k\ 4211}#)
- (let ((#{p\ 4215}# (open-input-file #{fn\ 4210}#)))
- (letrec ((#{f\ 4218}#
- (lambda (#{x\ 4219}#)
- (if (eof-object? #{x\ 4219}#)
+ (cons (lambda (#{x\ 7463}#)
+ (letrec ((#{read-file\ 7466}#
+ (lambda (#{fn\ 7467}# #{k\ 7468}#)
+ (let ((#{p\ 7472}# (open-input-file #{fn\ 7467}#)))
+ (letrec ((#{f\ 7475}#
+ (lambda (#{x\ 7476}#)
+ (if (eof-object? #{x\ 7476}#)
(begin
- (close-input-port #{p\ 4215}#)
+ (close-input-port #{p\ 7472}#)
'())
(cons (datum->syntax
- #{k\ 4211}#
- #{x\ 4219}#)
- (#{f\ 4218}#
- (read #{p\ 4215}#)))))))
- (#{f\ 4218}# (read #{p\ 4215}#)))))))
- ((lambda (#{tmp\ 4220}#)
- ((lambda (#{tmp\ 4221}#)
- (if #{tmp\ 4221}#
- (apply (lambda (#{k\ 4224}# #{filename\ 4225}#)
- (let ((#{fn\ 4227}#
- (syntax->datum #{filename\ 4225}#)))
- ((lambda (#{tmp\ 4229}#)
- ((lambda (#{tmp\ 4230}#)
- (if #{tmp\ 4230}#
- (apply (lambda (#{exp\ 4232}#)
+ #{k\ 7468}#
+ #{x\ 7476}#)
+ (#{f\ 7475}#
+ (read #{p\ 7472}#)))))))
+ (#{f\ 7475}# (read #{p\ 7472}#)))))))
+ ((lambda (#{tmp\ 7477}#)
+ ((lambda (#{tmp\ 7478}#)
+ (if #{tmp\ 7478}#
+ (apply (lambda (#{k\ 7481}# #{filename\ 7482}#)
+ (let ((#{fn\ 7484}#
+ (syntax->datum #{filename\ 7482}#)))
+ ((lambda (#{tmp\ 7486}#)
+ ((lambda (#{tmp\ 7487}#)
+ (if #{tmp\ 7487}#
+ (apply (lambda (#{exp\ 7489}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(exp)
#((top))
- #("i4231"))
+ #("i7488"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4226"))
+ #("i7483"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4222"
- "i4223"))
+ #("i7479"
+ "i7480"))
#(ribcage
(read-file)
((top))
- ("i4208"))
+ ("i7465"))
#(ribcage
#(x)
#((top))
- #("i4207")))
+ #("i7464")))
(hygiene guile))
- #{exp\ 4232}#))
- #{tmp\ 4230}#)
+ #{exp\ 7489}#))
+ #{tmp\ 7487}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4229}#)))
+ #{tmp\ 7486}#)))
($sc-dispatch
- #{tmp\ 4229}#
+ #{tmp\ 7486}#
'each-any)))
- (#{read-file\ 4209}#
- #{fn\ 4227}#
- #{k\ 4224}#))))
- #{tmp\ 4221}#)
+ (#{read-file\ 7466}#
+ #{fn\ 7484}#
+ #{k\ 7481}#))))
+ #{tmp\ 7478}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4220}#)))
- ($sc-dispatch #{tmp\ 4220}# (quote (any any)))))
- #{x\ 4206}#)))
+ #{tmp\ 7477}#)))
+ ($sc-dispatch #{tmp\ 7477}# (quote (any any)))))
+ #{x\ 7463}#)))
(module-name (current-module)))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (cons (lambda (#{x\ 4234}#)
- ((lambda (#{tmp\ 4236}#)
- ((lambda (#{tmp\ 4237}#)
- (if #{tmp\ 4237}#
- (apply (lambda (#{k\ 4240}# #{filename\ 4241}#)
- (let ((#{fn\ 4243}#
- (syntax->datum #{filename\ 4241}#)))
- ((lambda (#{tmp\ 4245}#)
- ((lambda (#{fn\ 4247}#)
+ (cons (lambda (#{x\ 7491}#)
+ ((lambda (#{tmp\ 7493}#)
+ ((lambda (#{tmp\ 7494}#)
+ (if #{tmp\ 7494}#
+ (apply (lambda (#{k\ 7497}# #{filename\ 7498}#)
+ (let ((#{fn\ 7500}#
+ (syntax->datum #{filename\ 7498}#)))
+ ((lambda (#{tmp\ 7502}#)
+ ((lambda (#{fn\ 7504}#)
(list '#(syntax-object
include
((top)
#(ribcage
#(fn)
#((top))
- #("i4246"))
+ #("i7503"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(fn)
#((top))
- #("i4242"))
+ #("i7499"))
#(ribcage
#(k filename)
#((top) (top))
- #("i4238" "i4239"))
+ #("i7495" "i7496"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4235")))
+ #("i7492")))
(hygiene guile))
- #{fn\ 4247}#))
- #{tmp\ 4245}#))
- (let ((#{t\ 4250}#
- (%search-load-path #{fn\ 4243}#)))
- (if #{t\ 4250}#
- #{t\ 4250}#
+ #{fn\ 7504}#))
+ #{tmp\ 7502}#))
+ (let ((#{t\ 7507}#
+ (%search-load-path #{fn\ 7500}#)))
+ (if #{t\ 7507}#
+ #{t\ 7507}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x\ 4234}#
- #{filename\ 4241}#))))))
- #{tmp\ 4237}#)
+ #{x\ 7491}#
+ #{filename\ 7498}#))))))
+ #{tmp\ 7494}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4236}#)))
- ($sc-dispatch #{tmp\ 4236}# (quote (any any)))))
- #{x\ 4234}#))
+ #{tmp\ 7493}#)))
+ ($sc-dispatch #{tmp\ 7493}# (quote (any any)))))
+ #{x\ 7491}#))
(module-name (current-module)))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (cons (lambda (#{x\ 4252}#)
- ((lambda (#{tmp\ 4254}#)
- ((lambda (#{tmp\ 4255}#)
- (if #{tmp\ 4255}#
- (apply (lambda (#{_\ 4258}# #{e\ 4259}#)
+ (cons (lambda (#{x\ 7509}#)
+ ((lambda (#{tmp\ 7511}#)
+ ((lambda (#{tmp\ 7512}#)
+ (if #{tmp\ 7512}#
+ (apply (lambda (#{_\ 7515}# #{e\ 7516}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x\ 4252}#))
- #{tmp\ 4255}#)
+ #{x\ 7509}#))
+ #{tmp\ 7512}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4254}#)))
- ($sc-dispatch #{tmp\ 4254}# (quote (any any)))))
- #{x\ 4252}#))
+ #{tmp\ 7511}#)))
+ ($sc-dispatch #{tmp\ 7511}# (quote (any any)))))
+ #{x\ 7509}#))
(module-name (current-module)))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (cons (lambda (#{x\ 4260}#)
- ((lambda (#{tmp\ 4262}#)
- ((lambda (#{tmp\ 4263}#)
- (if #{tmp\ 4263}#
- (apply (lambda (#{_\ 4266}# #{e\ 4267}#)
+ (cons (lambda (#{x\ 7517}#)
+ ((lambda (#{tmp\ 7519}#)
+ ((lambda (#{tmp\ 7520}#)
+ (if #{tmp\ 7520}#
+ (apply (lambda (#{_\ 7523}# #{e\ 7524}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x\ 4260}#))
- #{tmp\ 4263}#)
+ #{x\ 7517}#))
+ #{tmp\ 7520}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4262}#)))
- ($sc-dispatch #{tmp\ 4262}# (quote (any any)))))
- #{x\ 4260}#))
+ #{tmp\ 7519}#)))
+ ($sc-dispatch #{tmp\ 7519}# (quote (any any)))))
+ #{x\ 7517}#))
(module-name (current-module)))))
(define case
(make-syntax-transformer
'case
'macro
- (cons (lambda (#{x\ 4268}#)
- ((lambda (#{tmp\ 4270}#)
- ((lambda (#{tmp\ 4271}#)
- (if #{tmp\ 4271}#
- (apply (lambda (#{_\ 4276}#
- #{e\ 4277}#
- #{m1\ 4278}#
- #{m2\ 4279}#)
- ((lambda (#{tmp\ 4281}#)
- ((lambda (#{body\ 4283}#)
+ (cons (lambda (#{x\ 7525}#)
+ ((lambda (#{tmp\ 7527}#)
+ ((lambda (#{tmp\ 7528}#)
+ (if #{tmp\ 7528}#
+ (apply (lambda (#{_\ 7533}#
+ #{e\ 7534}#
+ #{m1\ 7535}#
+ #{m2\ 7536}#)
+ ((lambda (#{tmp\ 7538}#)
+ ((lambda (#{body\ 7540}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(body)
#((top))
- #("i4282"))
+ #("i7539"))
#(ribcage
#(_ e m1 m2)
#((top) (top) (top) (top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene guile))
(list (list '#(syntax-object
t
#(ribcage
#(body)
#((top))
- #("i4282"))
+ #("i7539"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene guile))
- #{e\ 4277}#))
- #{body\ 4283}#))
- #{tmp\ 4281}#))
- (letrec ((#{f\ 4287}#
- (lambda (#{clause\ 4288}#
- #{clauses\ 4289}#)
- (if (null? #{clauses\ 4289}#)
- ((lambda (#{tmp\ 4291}#)
- ((lambda (#{tmp\ 4292}#)
- (if #{tmp\ 4292}#
- (apply (lambda (#{e1\ 4295}#
- #{e2\ 4296}#)
+ #{e\ 7534}#))
+ #{body\ 7540}#))
+ #{tmp\ 7538}#))
+ (letrec ((#{f\ 7544}#
+ (lambda (#{clause\ 7545}#
+ #{clauses\ 7546}#)
+ (if (null? #{clauses\ 7546}#)
+ ((lambda (#{tmp\ 7548}#)
+ ((lambda (#{tmp\ 7549}#)
+ (if #{tmp\ 7549}#
+ (apply (lambda (#{e1\ 7552}#
+ #{e2\ 7553}#)
(cons '#(syntax-object
begin
((top)
e2)
#((top)
(top))
- #("i4293"
- "i4294"))
+ #("i7550"
+ "i7551"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
- (cons #{e1\ 4295}#
- #{e2\ 4296}#)))
- #{tmp\ 4292}#)
- ((lambda (#{tmp\ 4298}#)
- (if #{tmp\ 4298}#
- (apply (lambda (#{k\ 4302}#
- #{e1\ 4303}#
- #{e2\ 4304}#)
+ (cons #{e1\ 7552}#
+ #{e2\ 7553}#)))
+ #{tmp\ 7549}#)
+ ((lambda (#{tmp\ 7555}#)
+ (if #{tmp\ 7555}#
+ (apply (lambda (#{k\ 7559}#
+ #{e1\ 7560}#
+ #{e2\ 7561}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i4299"
- "i4300"
- "i4301"))
+ #("i7556"
+ "i7557"
+ "i7558"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4299"
- "i4300"
- "i4301"))
+ #("i7556"
+ "i7557"
+ "i7558"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i4299"
- "i4300"
- "i4301"))
+ #("i7556"
+ "i7557"
+ "i7558"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4299"
- "i4300"
- "i4301"))
+ #("i7556"
+ "i7557"
+ "i7558"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
- #{k\ 4302}#))
+ #{k\ 7559}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4299"
- "i4300"
- "i4301"))
+ #("i7556"
+ "i7557"
+ "i7558"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
- (cons #{e1\ 4303}#
- #{e2\ 4304}#))))
- #{tmp\ 4298}#)
- ((lambda (#{_\ 4308}#)
+ (cons #{e1\ 7560}#
+ #{e2\ 7561}#))))
+ #{tmp\ 7555}#)
+ ((lambda (#{_\ 7565}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4268}#
- #{clause\ 4288}#))
- #{tmp\ 4291}#)))
+ #{x\ 7525}#
+ #{clause\ 7545}#))
+ #{tmp\ 7548}#)))
($sc-dispatch
- #{tmp\ 4291}#
+ #{tmp\ 7548}#
'(each-any
any
.
each-any)))))
($sc-dispatch
- #{tmp\ 4291}#
+ #{tmp\ 7548}#
'(#(free-id
#(syntax-object
else
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_ e m1 m2)
#((top)
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene guile)))
any
.
each-any))))
- #{clause\ 4288}#)
- ((lambda (#{tmp\ 4310}#)
- ((lambda (#{rest\ 4312}#)
- ((lambda (#{tmp\ 4313}#)
- ((lambda (#{tmp\ 4314}#)
- (if #{tmp\ 4314}#
- (apply (lambda (#{k\ 4318}#
- #{e1\ 4319}#
- #{e2\ 4320}#)
+ #{clause\ 7545}#)
+ ((lambda (#{tmp\ 7567}#)
+ ((lambda (#{rest\ 7569}#)
+ ((lambda (#{tmp\ 7570}#)
+ ((lambda (#{tmp\ 7571}#)
+ (if #{tmp\ 7571}#
+ (apply (lambda (#{k\ 7575}#
+ #{e1\ 7576}#
+ #{e2\ 7577}#)
(list '#(syntax-object
if
((top)
#((top)
(top)
(top))
- #("i4315"
- "i4316"
- "i4317"))
+ #("i7572"
+ "i7573"
+ "i7574"))
#(ribcage
#(rest)
#((top))
- #("i4311"))
+ #("i7568"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4315"
- "i4316"
- "i4317"))
+ #("i7572"
+ "i7573"
+ "i7574"))
#(ribcage
#(rest)
#((top))
- #("i4311"))
+ #("i7568"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
'#(syntax-object
#((top)
(top)
(top))
- #("i4315"
- "i4316"
- "i4317"))
+ #("i7572"
+ "i7573"
+ "i7574"))
#(ribcage
#(rest)
#((top))
- #("i4311"))
+ #("i7568"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
(list '#(syntax-object
#((top)
(top)
(top))
- #("i4315"
- "i4316"
- "i4317"))
+ #("i7572"
+ "i7573"
+ "i7574"))
#(ribcage
#(rest)
#((top))
- #("i4311"))
+ #("i7568"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
- #{k\ 4318}#))
+ #{k\ 7575}#))
(cons '#(syntax-object
begin
((top)
#((top)
(top)
(top))
- #("i4315"
- "i4316"
- "i4317"))
+ #("i7572"
+ "i7573"
+ "i7574"))
#(ribcage
#(rest)
#((top))
- #("i4311"))
+ #("i7568"))
#(ribcage
()
()
#((top)
(top)
(top))
- #("i4284"
- "i4285"
- "i4286"))
+ #("i7541"
+ "i7542"
+ "i7543"))
#(ribcage
#(_
e
(top)
(top)
(top))
- #("i4272"
- "i4273"
- "i4274"
- "i4275"))
+ #("i7529"
+ "i7530"
+ "i7531"
+ "i7532"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4269")))
+ #("i7526")))
(hygiene
guile))
- (cons #{e1\ 4319}#
- #{e2\ 4320}#))
- #{rest\ 4312}#))
- #{tmp\ 4314}#)
- ((lambda (#{_\ 4324}#)
+ (cons #{e1\ 7576}#
+ #{e2\ 7577}#))
+ #{rest\ 7569}#))
+ #{tmp\ 7571}#)
+ ((lambda (#{_\ 7581}#)
(syntax-violation
'case
"bad clause"
- #{x\ 4268}#
- #{clause\ 4288}#))
- #{tmp\ 4313}#)))
+ #{x\ 7525}#
+ #{clause\ 7545}#))
+ #{tmp\ 7570}#)))
($sc-dispatch
- #{tmp\ 4313}#
+ #{tmp\ 7570}#
'(each-any
any
.
each-any))))
- #{clause\ 4288}#))
- #{tmp\ 4310}#))
- (#{f\ 4287}#
- (car #{clauses\ 4289}#)
- (cdr #{clauses\ 4289}#)))))))
- (#{f\ 4287}# #{m1\ 4278}# #{m2\ 4279}#))))
- #{tmp\ 4271}#)
+ #{clause\ 7545}#))
+ #{tmp\ 7567}#))
+ (#{f\ 7544}#
+ (car #{clauses\ 7546}#)
+ (cdr #{clauses\ 7546}#)))))))
+ (#{f\ 7544}# #{m1\ 7535}# #{m2\ 7536}#))))
+ #{tmp\ 7528}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4270}#)))
+ #{tmp\ 7527}#)))
($sc-dispatch
- #{tmp\ 4270}#
+ #{tmp\ 7527}#
'(any any any . each-any))))
- #{x\ 4268}#))
+ #{x\ 7525}#))
(module-name (current-module)))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (cons (lambda (#{x\ 4325}#)
- ((lambda (#{tmp\ 4327}#)
- ((lambda (#{tmp\ 4328}#)
- (if #{tmp\ 4328}#
- (apply (lambda (#{_\ 4331}# #{e\ 4332}#)
+ (cons (lambda (#{x\ 7582}#)
+ ((lambda (#{tmp\ 7584}#)
+ ((lambda (#{tmp\ 7585}#)
+ (if #{tmp\ 7585}#
+ (apply (lambda (#{_\ 7588}# #{e\ 7589}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4326")))
+ #(ribcage #(x) #((top)) #("i7583")))
(hygiene guile))
'(#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4326")))
+ #(ribcage #(x) #((top)) #("i7583")))
(hygiene guile)))
(list '#(syntax-object
syntax-case
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
'#(syntax-object
x
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
'()
(list '#(syntax-object
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
'(#(syntax-object
identifier?
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
(#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
#(syntax-object
id
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
- #{e\ 4332}#))
- (list (cons #{_\ 4331}#
+ #{e\ 7589}#))
+ (list (cons #{_\ 7588}#
'(#(syntax-object
x
((top)
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
#(syntax-object
...
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))))
(list '#(syntax-object
syntax
#(ribcage
#(_ e)
#((top) (top))
- #("i4329" "i4330"))
+ #("i7586" "i7587"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
- (cons #{e\ 4332}#
+ (cons #{e\ 7589}#
'(#(syntax-object
x
((top)
#(_ e)
#((top)
(top))
- #("i4329"
- "i4330"))
+ #("i7586"
+ "i7587"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene guile))
#(syntax-object
...
#(_ e)
#((top)
(top))
- #("i4329"
- "i4330"))
+ #("i7586"
+ "i7587"))
#(ribcage
()
()
#(ribcage
#(x)
#((top))
- #("i4326")))
+ #("i7583")))
(hygiene
guile)))))))))
- #{tmp\ 4328}#)
+ #{tmp\ 7585}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4327}#)))
- ($sc-dispatch #{tmp\ 4327}# (quote (any any)))))
- #{x\ 4325}#))
+ #{tmp\ 7584}#)))
+ ($sc-dispatch #{tmp\ 7584}# (quote (any any)))))
+ #{x\ 7582}#))
(module-name (current-module)))))
(define define*
(make-syntax-transformer
'define*
'macro
- (cons (lambda (#{x\ 4333}#)
- ((lambda (#{tmp\ 4335}#)
- ((lambda (#{tmp\ 4336}#)
- (if #{tmp\ 4336}#
- (apply (lambda (#{_\ 4342}#
- #{id\ 4343}#
- #{args\ 4344}#
- #{b0\ 4345}#
- #{b1\ 4346}#)
+ (cons (lambda (#{x\ 7590}#)
+ ((lambda (#{tmp\ 7592}#)
+ ((lambda (#{tmp\ 7593}#)
+ (if #{tmp\ 7593}#
+ (apply (lambda (#{_\ 7599}#
+ #{id\ 7600}#
+ #{args\ 7601}#
+ #{b0\ 7602}#
+ #{b1\ 7603}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4337"
- "i4338"
- "i4339"
- "i4340"
- "i4341"))
+ #("i7594"
+ "i7595"
+ "i7596"
+ "i7597"
+ "i7598"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("i4334")))
+ #(ribcage #(x) #((top)) #("i7591")))
(hygiene guile))
- #{id\ 4343}#
+ #{id\ 7600}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(_ id args b0 b1)
#((top) (top) (top) (top) (top))
- #("i4337"
- "i4338"
- "i4339"
- "i4340"
- "i4341"))
+ #("i7594"
+ "i7595"
+ "i7596"
+ "i7597"
+ "i7598"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4334")))
+ #("i7591")))
(hygiene guile))
- (cons #{args\ 4344}#
- (cons #{b0\ 4345}#
- #{b1\ 4346}#)))))
- #{tmp\ 4336}#)
- ((lambda (#{tmp\ 4348}#)
- (if (if #{tmp\ 4348}#
- (apply (lambda (#{_\ 4352}#
- #{id\ 4353}#
- #{val\ 4354}#)
+ (cons #{args\ 7601}#
+ (cons #{b0\ 7602}#
+ #{b1\ 7603}#)))))
+ #{tmp\ 7593}#)
+ ((lambda (#{tmp\ 7605}#)
+ (if (if #{tmp\ 7605}#
+ (apply (lambda (#{_\ 7609}#
+ #{id\ 7610}#
+ #{val\ 7611}#)
(identifier?
'#(syntax-object
x
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4349" "i4350" "i4351"))
+ #("i7606" "i7607" "i7608"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4334")))
+ #("i7591")))
(hygiene guile))))
- #{tmp\ 4348}#)
+ #{tmp\ 7605}#)
#f)
- (apply (lambda (#{_\ 4358}#
- #{id\ 4359}#
- #{val\ 4360}#)
+ (apply (lambda (#{_\ 7615}#
+ #{id\ 7616}#
+ #{val\ 7617}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(_ id val)
#((top) (top) (top))
- #("i4355" "i4356" "i4357"))
+ #("i7612" "i7613" "i7614"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("i4334")))
+ #("i7591")))
(hygiene guile))
- #{id\ 4359}#
- #{val\ 4360}#))
- #{tmp\ 4348}#)
+ #{id\ 7616}#
+ #{val\ 7617}#))
+ #{tmp\ 7605}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp\ 4335}#)))
+ #{tmp\ 7592}#)))
($sc-dispatch
- #{tmp\ 4335}#
+ #{tmp\ 7592}#
'(any any any)))))
($sc-dispatch
- #{tmp\ 4335}#
+ #{tmp\ 7592}#
'(any (any . any) any . each-any))))
- #{x\ 4333}#))
+ #{x\ 7590}#))
(module-name (current-module)))))
projects / platform / upstream / guile.git / commitdiff