mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 20:30:28 +02:00
15062 lines
985 KiB
Scheme
15062 lines
985 KiB
Scheme
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
|
|
(if #f #f)
|
|
|
|
(letrec ((#{and-map*\ 38}#
|
|
(lambda (#{f\ 100}# #{first\ 101}# . #{rest\ 102}#)
|
|
(let ((#{t\ 108}# (null? #{first\ 101}#)))
|
|
(if #{t\ 108}#
|
|
#{t\ 108}#
|
|
(if (null? #{rest\ 102}#)
|
|
(letrec ((#{andmap\ 112}#
|
|
(lambda (#{first\ 113}#)
|
|
(let ((#{x\ 116}# (car #{first\ 113}#))
|
|
(#{first\ 117}# (cdr #{first\ 113}#)))
|
|
(if (null? #{first\ 117}#)
|
|
(#{f\ 100}# #{x\ 116}#)
|
|
(if (#{f\ 100}# #{x\ 116}#)
|
|
(#{andmap\ 112}# #{first\ 117}#)
|
|
#f))))))
|
|
(#{andmap\ 112}# #{first\ 101}#))
|
|
(letrec ((#{andmap\ 123}#
|
|
(lambda (#{first\ 124}# #{rest\ 125}#)
|
|
(let ((#{x\ 130}# (car #{first\ 124}#))
|
|
(#{xr\ 131}# (map car #{rest\ 125}#))
|
|
(#{first\ 132}# (cdr #{first\ 124}#))
|
|
(#{rest\ 133}# (map cdr #{rest\ 125}#)))
|
|
(if (null? #{first\ 132}#)
|
|
(apply #{f\ 100}#
|
|
(cons #{x\ 130}# #{xr\ 131}#))
|
|
(if (apply #{f\ 100}#
|
|
(cons #{x\ 130}# #{xr\ 131}#))
|
|
(#{andmap\ 123}#
|
|
#{first\ 132}#
|
|
#{rest\ 133}#)
|
|
#f))))))
|
|
(#{andmap\ 123}# #{first\ 101}# #{rest\ 102}#))))))))
|
|
(letrec ((#{lambda-var-list\ 355}#
|
|
(lambda (#{vars\ 570}#)
|
|
(letrec ((#{lvl\ 576}#
|
|
(lambda (#{vars\ 577}# #{ls\ 578}# #{w\ 579}#)
|
|
(if (pair? #{vars\ 577}#)
|
|
(#{lvl\ 576}#
|
|
(cdr #{vars\ 577}#)
|
|
(cons (#{wrap\ 309}#
|
|
(car #{vars\ 577}#)
|
|
#{w\ 579}#
|
|
#f)
|
|
#{ls\ 578}#)
|
|
#{w\ 579}#)
|
|
(if (#{id?\ 240}# #{vars\ 577}#)
|
|
(cons (#{wrap\ 309}#
|
|
#{vars\ 577}#
|
|
#{w\ 579}#
|
|
#f)
|
|
#{ls\ 578}#)
|
|
(if (null? #{vars\ 577}#)
|
|
#{ls\ 578}#
|
|
(if (#{syntax-object?\ 204}# #{vars\ 577}#)
|
|
(#{lvl\ 576}#
|
|
(#{syntax-object-expression\ 206}#
|
|
#{vars\ 577}#)
|
|
#{ls\ 578}#
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 579}#
|
|
(#{syntax-object-wrap\ 208}#
|
|
#{vars\ 577}#)))
|
|
(cons #{vars\ 577}# #{ls\ 578}#))))))))
|
|
(#{lvl\ 576}#
|
|
#{vars\ 570}#
|
|
'()
|
|
'(())))))
|
|
(#{gen-var\ 353}#
|
|
(lambda (#{id\ 590}#)
|
|
(let ((#{id\ 593}#
|
|
(if (#{syntax-object?\ 204}# #{id\ 590}#)
|
|
(#{syntax-object-expression\ 206}# #{id\ 590}#)
|
|
#{id\ 590}#)))
|
|
(gensym
|
|
(string-append (symbol->string #{id\ 593}#) " ")))))
|
|
(#{strip\ 351}#
|
|
(lambda (#{x\ 595}# #{w\ 596}#)
|
|
(if (memq 'top
|
|
(#{wrap-marks\ 247}# #{w\ 596}#))
|
|
#{x\ 595}#
|
|
(letrec ((#{f\ 602}# (lambda (#{x\ 603}#)
|
|
(if (#{syntax-object?\ 204}#
|
|
#{x\ 603}#)
|
|
(#{strip\ 351}#
|
|
(#{syntax-object-expression\ 206}#
|
|
#{x\ 603}#)
|
|
(#{syntax-object-wrap\ 208}#
|
|
#{x\ 603}#))
|
|
(if (pair? #{x\ 603}#)
|
|
(let ((#{a\ 610}# (#{f\ 602}# (car #{x\ 603}#)))
|
|
(#{d\ 611}# (#{f\ 602}# (cdr #{x\ 603}#))))
|
|
(if (if (eq? #{a\ 610}#
|
|
(car #{x\ 603}#))
|
|
(eq? #{d\ 611}#
|
|
(cdr #{x\ 603}#))
|
|
#f)
|
|
#{x\ 603}#
|
|
(cons #{a\ 610}# #{d\ 611}#)))
|
|
(if (vector? #{x\ 603}#)
|
|
(let ((#{old\ 617}#
|
|
(vector->list
|
|
#{x\ 603}#)))
|
|
(let ((#{new\ 619}#
|
|
(map #{f\ 602}#
|
|
#{old\ 617}#)))
|
|
(if (#{and-map*\ 38}#
|
|
eq?
|
|
#{old\ 617}#
|
|
#{new\ 619}#)
|
|
#{x\ 603}#
|
|
(list->vector
|
|
#{new\ 619}#))))
|
|
#{x\ 603}#))))))
|
|
(#{f\ 602}# #{x\ 595}#)))))
|
|
(#{chi-lambda-case\ 349}#
|
|
(lambda (#{e\ 621}#
|
|
#{r\ 622}#
|
|
#{w\ 623}#
|
|
#{s\ 624}#
|
|
#{mod\ 625}#
|
|
#{get-formals\ 626}#
|
|
#{clauses\ 627}#)
|
|
(letrec ((#{expand-body\ 642}#
|
|
(lambda (#{req\ 643}#
|
|
#{opt\ 644}#
|
|
#{rest\ 645}#
|
|
#{kw\ 646}#
|
|
#{body\ 647}#
|
|
#{vars\ 648}#
|
|
#{r*\ 649}#
|
|
#{w*\ 650}#
|
|
#{inits\ 651}#)
|
|
((lambda (#{tmp\ 661}#)
|
|
((lambda (#{tmp\ 662}#)
|
|
(if (if #{tmp\ 662}#
|
|
(apply (lambda (#{docstring\ 666}#
|
|
#{e1\ 667}#
|
|
#{e2\ 668}#)
|
|
(string?
|
|
(syntax->datum
|
|
#{docstring\ 666}#)))
|
|
#{tmp\ 662}#)
|
|
#f)
|
|
(apply (lambda (#{docstring\ 672}#
|
|
#{e1\ 673}#
|
|
#{e2\ 674}#)
|
|
(values
|
|
(syntax->datum
|
|
#{docstring\ 672}#)
|
|
#{req\ 643}#
|
|
#{opt\ 644}#
|
|
#{rest\ 645}#
|
|
#{kw\ 646}#
|
|
#{inits\ 651}#
|
|
#{vars\ 648}#
|
|
(#{chi-body\ 333}#
|
|
(cons #{e1\ 673}# #{e2\ 674}#)
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 621}#
|
|
#{w\ 623}#
|
|
#{s\ 624}#
|
|
#{mod\ 625}#)
|
|
#{r*\ 649}#
|
|
#{w*\ 650}#
|
|
#{mod\ 625}#)))
|
|
#{tmp\ 662}#)
|
|
((lambda (#{tmp\ 676}#)
|
|
(if #{tmp\ 676}#
|
|
(apply (lambda (#{e1\ 679}#
|
|
#{e2\ 680}#)
|
|
(values
|
|
#f
|
|
#{req\ 643}#
|
|
#{opt\ 644}#
|
|
#{rest\ 645}#
|
|
#{kw\ 646}#
|
|
#{inits\ 651}#
|
|
#{vars\ 648}#
|
|
(#{chi-body\ 333}#
|
|
(cons #{e1\ 679}#
|
|
#{e2\ 680}#)
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 621}#
|
|
#{w\ 623}#
|
|
#{s\ 624}#
|
|
#{mod\ 625}#)
|
|
#{r*\ 649}#
|
|
#{w*\ 650}#
|
|
#{mod\ 625}#)))
|
|
#{tmp\ 676}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 661}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 661}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 661}#
|
|
'(any any . each-any))))
|
|
#{body\ 647}#)))
|
|
(#{expand-kw\ 640}#
|
|
(lambda (#{req\ 682}#
|
|
#{opt\ 683}#
|
|
#{rest\ 684}#
|
|
#{kw\ 685}#
|
|
#{body\ 686}#
|
|
#{vars\ 687}#
|
|
#{r*\ 688}#
|
|
#{w*\ 689}#
|
|
#{aok\ 690}#
|
|
#{out\ 691}#
|
|
#{inits\ 692}#)
|
|
(if (pair? #{kw\ 685}#)
|
|
((lambda (#{tmp\ 706}#)
|
|
((lambda (#{tmp\ 707}#)
|
|
(if #{tmp\ 707}#
|
|
(apply (lambda (#{k\ 711}#
|
|
#{id\ 712}#
|
|
#{i\ 713}#)
|
|
(let ((#{v\ 716}# (#{gen-var\ 353}#
|
|
#{id\ 712}#)))
|
|
(let ((#{l\ 718}# (#{gen-labels\ 258}#
|
|
(list #{v\ 716}#))))
|
|
(let ((#{r**\ 720}#
|
|
(#{extend-var-env\ 230}#
|
|
#{l\ 718}#
|
|
(list #{v\ 716}#)
|
|
#{r*\ 688}#)))
|
|
(let ((#{w**\ 722}#
|
|
(#{make-binding-wrap\ 287}#
|
|
(list #{id\ 712}#)
|
|
#{l\ 718}#
|
|
#{w*\ 689}#)))
|
|
(#{expand-kw\ 640}#
|
|
#{req\ 682}#
|
|
#{opt\ 683}#
|
|
#{rest\ 684}#
|
|
(cdr #{kw\ 685}#)
|
|
#{body\ 686}#
|
|
(cons #{v\ 716}#
|
|
#{vars\ 687}#)
|
|
#{r**\ 720}#
|
|
#{w**\ 722}#
|
|
#{aok\ 690}#
|
|
(cons (list (syntax->datum
|
|
#{k\ 711}#)
|
|
(syntax->datum
|
|
#{id\ 712}#)
|
|
#{v\ 716}#)
|
|
#{out\ 691}#)
|
|
(cons (#{chi\ 325}#
|
|
#{i\ 713}#
|
|
#{r*\ 688}#
|
|
#{w*\ 689}#
|
|
#{mod\ 625}#)
|
|
#{inits\ 692}#)))))))
|
|
#{tmp\ 707}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 706}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 706}#
|
|
'(any any any))))
|
|
(car #{kw\ 685}#))
|
|
(#{expand-body\ 642}#
|
|
#{req\ 682}#
|
|
#{opt\ 683}#
|
|
#{rest\ 684}#
|
|
(if (let ((#{t\ 726}# #{aok\ 690}#))
|
|
(if #{t\ 726}#
|
|
#{t\ 726}#
|
|
(pair? #{out\ 691}#)))
|
|
(cons #{aok\ 690}# (reverse #{out\ 691}#))
|
|
#f)
|
|
#{body\ 686}#
|
|
(reverse #{vars\ 687}#)
|
|
#{r*\ 688}#
|
|
#{w*\ 689}#
|
|
(reverse #{inits\ 692}#)))))
|
|
(#{expand-opt\ 638}#
|
|
(lambda (#{req\ 728}#
|
|
#{opt\ 729}#
|
|
#{rest\ 730}#
|
|
#{kw\ 731}#
|
|
#{body\ 732}#
|
|
#{vars\ 733}#
|
|
#{r*\ 734}#
|
|
#{w*\ 735}#
|
|
#{out\ 736}#
|
|
#{inits\ 737}#)
|
|
(if (pair? #{opt\ 729}#)
|
|
((lambda (#{tmp\ 750}#)
|
|
((lambda (#{tmp\ 751}#)
|
|
(if #{tmp\ 751}#
|
|
(apply (lambda (#{id\ 754}# #{i\ 755}#)
|
|
(let ((#{v\ 758}# (#{gen-var\ 353}#
|
|
#{id\ 754}#)))
|
|
(let ((#{l\ 760}# (#{gen-labels\ 258}#
|
|
(list #{v\ 758}#))))
|
|
(let ((#{r**\ 762}#
|
|
(#{extend-var-env\ 230}#
|
|
#{l\ 760}#
|
|
(list #{v\ 758}#)
|
|
#{r*\ 734}#)))
|
|
(let ((#{w**\ 764}#
|
|
(#{make-binding-wrap\ 287}#
|
|
(list #{id\ 754}#)
|
|
#{l\ 760}#
|
|
#{w*\ 735}#)))
|
|
(#{expand-opt\ 638}#
|
|
#{req\ 728}#
|
|
(cdr #{opt\ 729}#)
|
|
#{rest\ 730}#
|
|
#{kw\ 731}#
|
|
#{body\ 732}#
|
|
(cons #{v\ 758}#
|
|
#{vars\ 733}#)
|
|
#{r**\ 762}#
|
|
#{w**\ 764}#
|
|
(cons (syntax->datum
|
|
#{id\ 754}#)
|
|
#{out\ 736}#)
|
|
(cons (#{chi\ 325}#
|
|
#{i\ 755}#
|
|
#{r*\ 734}#
|
|
#{w*\ 735}#
|
|
#{mod\ 625}#)
|
|
#{inits\ 737}#)))))))
|
|
#{tmp\ 751}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 750}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 750}#
|
|
'(any any))))
|
|
(car #{opt\ 729}#))
|
|
(if #{rest\ 730}#
|
|
(let ((#{v\ 769}# (#{gen-var\ 353}#
|
|
#{rest\ 730}#)))
|
|
(let ((#{l\ 771}# (#{gen-labels\ 258}#
|
|
(list #{v\ 769}#))))
|
|
(let ((#{r*\ 773}#
|
|
(#{extend-var-env\ 230}#
|
|
#{l\ 771}#
|
|
(list #{v\ 769}#)
|
|
#{r*\ 734}#)))
|
|
(let ((#{w*\ 775}#
|
|
(#{make-binding-wrap\ 287}#
|
|
(list #{rest\ 730}#)
|
|
#{l\ 771}#
|
|
#{w*\ 735}#)))
|
|
(#{expand-kw\ 640}#
|
|
#{req\ 728}#
|
|
(if (pair? #{out\ 736}#)
|
|
(reverse #{out\ 736}#)
|
|
#f)
|
|
(syntax->datum #{rest\ 730}#)
|
|
(if (pair? #{kw\ 731}#)
|
|
(cdr #{kw\ 731}#)
|
|
#{kw\ 731}#)
|
|
#{body\ 732}#
|
|
(cons #{v\ 769}# #{vars\ 733}#)
|
|
#{r*\ 773}#
|
|
#{w*\ 775}#
|
|
(if (pair? #{kw\ 731}#)
|
|
(car #{kw\ 731}#)
|
|
#f)
|
|
'()
|
|
#{inits\ 737}#)))))
|
|
(#{expand-kw\ 640}#
|
|
#{req\ 728}#
|
|
(if (pair? #{out\ 736}#)
|
|
(reverse #{out\ 736}#)
|
|
#f)
|
|
#f
|
|
(if (pair? #{kw\ 731}#)
|
|
(cdr #{kw\ 731}#)
|
|
#{kw\ 731}#)
|
|
#{body\ 732}#
|
|
#{vars\ 733}#
|
|
#{r*\ 734}#
|
|
#{w*\ 735}#
|
|
(if (pair? #{kw\ 731}#) (car #{kw\ 731}#) #f)
|
|
'()
|
|
#{inits\ 737}#)))))
|
|
(#{expand-req\ 636}#
|
|
(lambda (#{req\ 777}#
|
|
#{opt\ 778}#
|
|
#{rest\ 779}#
|
|
#{kw\ 780}#
|
|
#{body\ 781}#)
|
|
(let ((#{vars\ 789}#
|
|
(map #{gen-var\ 353}# #{req\ 777}#))
|
|
(#{labels\ 790}#
|
|
(#{gen-labels\ 258}# #{req\ 777}#)))
|
|
(let ((#{r*\ 793}#
|
|
(#{extend-var-env\ 230}#
|
|
#{labels\ 790}#
|
|
#{vars\ 789}#
|
|
#{r\ 622}#))
|
|
(#{w*\ 794}#
|
|
(#{make-binding-wrap\ 287}#
|
|
#{req\ 777}#
|
|
#{labels\ 790}#
|
|
#{w\ 623}#)))
|
|
(#{expand-opt\ 638}#
|
|
(map syntax->datum #{req\ 777}#)
|
|
#{opt\ 778}#
|
|
#{rest\ 779}#
|
|
#{kw\ 780}#
|
|
#{body\ 781}#
|
|
(reverse #{vars\ 789}#)
|
|
#{r*\ 793}#
|
|
#{w*\ 794}#
|
|
'()
|
|
'()))))))
|
|
((lambda (#{tmp\ 795}#)
|
|
((lambda (#{tmp\ 796}#)
|
|
(if #{tmp\ 796}#
|
|
(apply (lambda () (values #f #f)) #{tmp\ 796}#)
|
|
((lambda (#{tmp\ 797}#)
|
|
(if #{tmp\ 797}#
|
|
(apply (lambda (#{args\ 804}#
|
|
#{e1\ 805}#
|
|
#{e2\ 806}#
|
|
#{args*\ 807}#
|
|
#{e1*\ 808}#
|
|
#{e2*\ 809}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{get-formals\ 626}#
|
|
#{args\ 804}#))
|
|
(lambda (#{req\ 810}#
|
|
#{opt\ 811}#
|
|
#{rest\ 812}#
|
|
#{kw\ 813}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{expand-req\ 636}#
|
|
#{req\ 810}#
|
|
#{opt\ 811}#
|
|
#{rest\ 812}#
|
|
#{kw\ 813}#
|
|
(cons #{e1\ 805}#
|
|
#{e2\ 806}#)))
|
|
(lambda (#{docstring\ 819}#
|
|
#{req\ 820}#
|
|
#{opt\ 821}#
|
|
#{rest\ 822}#
|
|
#{kw\ 823}#
|
|
#{inits\ 824}#
|
|
#{vars\ 825}#
|
|
#{body\ 826}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 349}#
|
|
#{e\ 621}#
|
|
#{r\ 622}#
|
|
#{w\ 623}#
|
|
#{s\ 624}#
|
|
#{mod\ 625}#
|
|
#{get-formals\ 626}#
|
|
(map (lambda (#{tmp\ 837}#
|
|
#{tmp\ 836}#
|
|
#{tmp\ 835}#)
|
|
(cons #{tmp\ 835}#
|
|
(cons #{tmp\ 836}#
|
|
#{tmp\ 837}#)))
|
|
#{e2*\ 809}#
|
|
#{e1*\ 808}#
|
|
#{args*\ 807}#)))
|
|
(lambda (#{docstring*\ 839}#
|
|
#{else*\ 840}#)
|
|
(values
|
|
(let ((#{t\ 845}# #{docstring\ 819}#))
|
|
(if #{t\ 845}#
|
|
#{t\ 845}#
|
|
#{docstring*\ 839}#))
|
|
(#{build-lambda-case\ 186}#
|
|
#{s\ 624}#
|
|
#{req\ 820}#
|
|
#{opt\ 821}#
|
|
#{rest\ 822}#
|
|
#{kw\ 823}#
|
|
#{inits\ 824}#
|
|
#{vars\ 825}#
|
|
#{body\ 826}#
|
|
#{else*\ 840}#)))))))))
|
|
#{tmp\ 797}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 795}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 795}#
|
|
'((any any . each-any)
|
|
.
|
|
#(each (any any . each-any)))))))
|
|
($sc-dispatch #{tmp\ 795}# (quote ()))))
|
|
#{clauses\ 627}#))))
|
|
(#{lambda*-formals\ 347}#
|
|
(lambda (#{orig-args\ 847}#)
|
|
(letrec ((#{check\ 858}#
|
|
(lambda (#{req\ 859}#
|
|
#{opt\ 860}#
|
|
#{rest\ 861}#
|
|
#{kw\ 862}#)
|
|
(if (#{distinct-bound-ids?\ 305}#
|
|
(append
|
|
#{req\ 859}#
|
|
(map car #{opt\ 860}#)
|
|
(if #{rest\ 861}#
|
|
(list #{rest\ 861}#)
|
|
'())
|
|
(if (pair? #{kw\ 862}#)
|
|
(map cadr (cdr #{kw\ 862}#))
|
|
'())))
|
|
(values
|
|
#{req\ 859}#
|
|
#{opt\ 860}#
|
|
#{rest\ 861}#
|
|
#{kw\ 862}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 847}#))))
|
|
(#{rest\ 856}#
|
|
(lambda (#{args\ 870}#
|
|
#{req\ 871}#
|
|
#{opt\ 872}#
|
|
#{kw\ 873}#)
|
|
((lambda (#{tmp\ 878}#)
|
|
((lambda (#{tmp\ 879}#)
|
|
(if (if #{tmp\ 879}#
|
|
(apply (lambda (#{r\ 881}#)
|
|
(#{id?\ 240}# #{r\ 881}#))
|
|
#{tmp\ 879}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 883}#)
|
|
(#{check\ 858}#
|
|
#{req\ 871}#
|
|
#{opt\ 872}#
|
|
#{r\ 883}#
|
|
#{kw\ 873}#))
|
|
#{tmp\ 879}#)
|
|
((lambda (#{else\ 885}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid rest argument"
|
|
#{orig-args\ 847}#
|
|
#{args\ 870}#))
|
|
#{tmp\ 878}#)))
|
|
(list #{tmp\ 878}#)))
|
|
#{args\ 870}#)))
|
|
(#{key\ 854}#
|
|
(lambda (#{args\ 886}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
#{rkey\ 889}#)
|
|
((lambda (#{tmp\ 894}#)
|
|
((lambda (#{tmp\ 895}#)
|
|
(if #{tmp\ 895}#
|
|
(apply (lambda ()
|
|
(#{check\ 858}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
#f
|
|
(cons #f
|
|
(reverse #{rkey\ 889}#))))
|
|
#{tmp\ 895}#)
|
|
((lambda (#{tmp\ 896}#)
|
|
(if (if #{tmp\ 896}#
|
|
(apply (lambda (#{a\ 899}#
|
|
#{b\ 900}#)
|
|
(#{id?\ 240}#
|
|
#{a\ 899}#))
|
|
#{tmp\ 896}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 903}# #{b\ 904}#)
|
|
((lambda (#{tmp\ 906}#)
|
|
((lambda (#{k\ 908}#)
|
|
(#{key\ 854}#
|
|
#{b\ 904}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons (cons #{k\ 908}#
|
|
(cons #{a\ 903}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(k)
|
|
#((top))
|
|
#("i907"))
|
|
#(ribcage
|
|
#(a
|
|
b)
|
|
#((top)
|
|
(top))
|
|
#("i901"
|
|
"i902"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
opt
|
|
rkey)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i890"
|
|
"i891"
|
|
"i892"
|
|
"i893"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i857"
|
|
"i855"
|
|
"i853"
|
|
"i851"
|
|
"i849"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i848"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i39"
|
|
"i37")))
|
|
(hygiene
|
|
guile)))))
|
|
#{rkey\ 889}#)))
|
|
#{tmp\ 906}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 903}#))))
|
|
#{tmp\ 896}#)
|
|
((lambda (#{tmp\ 909}#)
|
|
(if (if #{tmp\ 909}#
|
|
(apply (lambda (#{a\ 913}#
|
|
#{init\ 914}#
|
|
#{b\ 915}#)
|
|
(#{id?\ 240}#
|
|
#{a\ 913}#))
|
|
#{tmp\ 909}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 919}#
|
|
#{init\ 920}#
|
|
#{b\ 921}#)
|
|
((lambda (#{tmp\ 923}#)
|
|
((lambda (#{k\ 925}#)
|
|
(#{key\ 854}#
|
|
#{b\ 921}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons (list #{k\ 925}#
|
|
#{a\ 919}#
|
|
#{init\ 920}#)
|
|
#{rkey\ 889}#)))
|
|
#{tmp\ 923}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 919}#))))
|
|
#{tmp\ 909}#)
|
|
((lambda (#{tmp\ 926}#)
|
|
(if (if #{tmp\ 926}#
|
|
(apply (lambda (#{a\ 931}#
|
|
#{init\ 932}#
|
|
#{k\ 933}#
|
|
#{b\ 934}#)
|
|
(if (#{id?\ 240}#
|
|
#{a\ 931}#)
|
|
(keyword?
|
|
(syntax->datum
|
|
#{k\ 933}#))
|
|
#f))
|
|
#{tmp\ 926}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 941}#
|
|
#{init\ 942}#
|
|
#{k\ 943}#
|
|
#{b\ 944}#)
|
|
(#{key\ 854}#
|
|
#{b\ 944}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons (list #{k\ 943}#
|
|
#{a\ 941}#
|
|
#{init\ 942}#)
|
|
#{rkey\ 889}#)))
|
|
#{tmp\ 926}#)
|
|
((lambda (#{tmp\ 945}#)
|
|
(if (if #{tmp\ 945}#
|
|
(apply (lambda (#{aok\ 947}#)
|
|
(eq? (syntax->datum
|
|
#{aok\ 947}#)
|
|
#:allow-other-keys))
|
|
#{tmp\ 945}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 949}#)
|
|
(#{check\ 858}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
#f
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 889}#))))
|
|
#{tmp\ 945}#)
|
|
((lambda (#{tmp\ 950}#)
|
|
(if (if #{tmp\ 950}#
|
|
(apply (lambda (#{aok\ 954}#
|
|
#{a\ 955}#
|
|
#{b\ 956}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 954}#)
|
|
#:allow-other-keys)
|
|
(eq? (syntax->datum
|
|
#{a\ 955}#)
|
|
#:rest)
|
|
#f))
|
|
#{tmp\ 950}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 962}#
|
|
#{a\ 963}#
|
|
#{b\ 964}#)
|
|
(#{rest\ 856}#
|
|
#{b\ 964}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 889}#))))
|
|
#{tmp\ 950}#)
|
|
((lambda (#{tmp\ 965}#)
|
|
(if (if #{tmp\ 965}#
|
|
(apply (lambda (#{aok\ 968}#
|
|
#{r\ 969}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 968}#)
|
|
#:allow-other-keys)
|
|
(#{id?\ 240}#
|
|
#{r\ 969}#)
|
|
#f))
|
|
#{tmp\ 965}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 974}#
|
|
#{r\ 975}#)
|
|
(#{rest\ 856}#
|
|
#{r\ 975}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 889}#))))
|
|
#{tmp\ 965}#)
|
|
((lambda (#{tmp\ 976}#)
|
|
(if (if #{tmp\ 976}#
|
|
(apply (lambda (#{a\ 979}#
|
|
#{b\ 980}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 979}#)
|
|
#:rest))
|
|
#{tmp\ 976}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 983}#
|
|
#{b\ 984}#)
|
|
(#{rest\ 856}#
|
|
#{b\ 984}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 889}#))))
|
|
#{tmp\ 976}#)
|
|
((lambda (#{tmp\ 985}#)
|
|
(if (if #{tmp\ 985}#
|
|
(apply (lambda (#{r\ 987}#)
|
|
(#{id?\ 240}#
|
|
#{r\ 987}#))
|
|
#{tmp\ 985}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 989}#)
|
|
(#{rest\ 856}#
|
|
#{r\ 989}#
|
|
#{req\ 887}#
|
|
#{opt\ 888}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 889}#))))
|
|
#{tmp\ 985}#)
|
|
((lambda (#{else\ 991}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid keyword argument list"
|
|
#{orig-args\ 847}#
|
|
#{args\ 886}#))
|
|
#{tmp\ 894}#)))
|
|
(list #{tmp\ 894}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'(any .
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'((any any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 894}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 894}# (quote ()))))
|
|
#{args\ 886}#)))
|
|
(#{opt\ 852}#
|
|
(lambda (#{args\ 992}# #{req\ 993}# #{ropt\ 994}#)
|
|
((lambda (#{tmp\ 998}#)
|
|
((lambda (#{tmp\ 999}#)
|
|
(if #{tmp\ 999}#
|
|
(apply (lambda ()
|
|
(#{check\ 858}#
|
|
#{req\ 993}#
|
|
(reverse #{ropt\ 994}#)
|
|
#f
|
|
'()))
|
|
#{tmp\ 999}#)
|
|
((lambda (#{tmp\ 1000}#)
|
|
(if (if #{tmp\ 1000}#
|
|
(apply (lambda (#{a\ 1003}#
|
|
#{b\ 1004}#)
|
|
(#{id?\ 240}#
|
|
#{a\ 1003}#))
|
|
#{tmp\ 1000}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1007}#
|
|
#{b\ 1008}#)
|
|
(#{opt\ 852}#
|
|
#{b\ 1008}#
|
|
#{req\ 993}#
|
|
(cons (cons #{a\ 1007}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(a b)
|
|
#((top)
|
|
(top))
|
|
#("i1005"
|
|
"i1006"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
ropt)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i995"
|
|
"i996"
|
|
"i997"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i857"
|
|
"i855"
|
|
"i853"
|
|
"i851"
|
|
"i849"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i848"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i39"
|
|
"i37")))
|
|
(hygiene
|
|
guile))))
|
|
#{ropt\ 994}#)))
|
|
#{tmp\ 1000}#)
|
|
((lambda (#{tmp\ 1009}#)
|
|
(if (if #{tmp\ 1009}#
|
|
(apply (lambda (#{a\ 1013}#
|
|
#{init\ 1014}#
|
|
#{b\ 1015}#)
|
|
(#{id?\ 240}#
|
|
#{a\ 1013}#))
|
|
#{tmp\ 1009}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1019}#
|
|
#{init\ 1020}#
|
|
#{b\ 1021}#)
|
|
(#{opt\ 852}#
|
|
#{b\ 1021}#
|
|
#{req\ 993}#
|
|
(cons (list #{a\ 1019}#
|
|
#{init\ 1020}#)
|
|
#{ropt\ 994}#)))
|
|
#{tmp\ 1009}#)
|
|
((lambda (#{tmp\ 1022}#)
|
|
(if (if #{tmp\ 1022}#
|
|
(apply (lambda (#{a\ 1025}#
|
|
#{b\ 1026}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1025}#)
|
|
#:key))
|
|
#{tmp\ 1022}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1029}#
|
|
#{b\ 1030}#)
|
|
(#{key\ 854}#
|
|
#{b\ 1030}#
|
|
#{req\ 993}#
|
|
(reverse
|
|
#{ropt\ 994}#)
|
|
'()))
|
|
#{tmp\ 1022}#)
|
|
((lambda (#{tmp\ 1031}#)
|
|
(if (if #{tmp\ 1031}#
|
|
(apply (lambda (#{a\ 1034}#
|
|
#{b\ 1035}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1034}#)
|
|
#:rest))
|
|
#{tmp\ 1031}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1038}#
|
|
#{b\ 1039}#)
|
|
(#{rest\ 856}#
|
|
#{b\ 1039}#
|
|
#{req\ 993}#
|
|
(reverse
|
|
#{ropt\ 994}#)
|
|
'()))
|
|
#{tmp\ 1031}#)
|
|
((lambda (#{tmp\ 1040}#)
|
|
(if (if #{tmp\ 1040}#
|
|
(apply (lambda (#{r\ 1042}#)
|
|
(#{id?\ 240}#
|
|
#{r\ 1042}#))
|
|
#{tmp\ 1040}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1044}#)
|
|
(#{rest\ 856}#
|
|
#{r\ 1044}#
|
|
#{req\ 993}#
|
|
(reverse
|
|
#{ropt\ 994}#)
|
|
'()))
|
|
#{tmp\ 1040}#)
|
|
((lambda (#{else\ 1046}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid optional argument list"
|
|
#{orig-args\ 847}#
|
|
#{args\ 992}#))
|
|
#{tmp\ 998}#)))
|
|
(list #{tmp\ 998}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 998}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 998}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 998}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 998}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 998}# (quote ()))))
|
|
#{args\ 992}#)))
|
|
(#{req\ 850}#
|
|
(lambda (#{args\ 1047}# #{rreq\ 1048}#)
|
|
((lambda (#{tmp\ 1051}#)
|
|
((lambda (#{tmp\ 1052}#)
|
|
(if #{tmp\ 1052}#
|
|
(apply (lambda ()
|
|
(#{check\ 858}#
|
|
(reverse #{rreq\ 1048}#)
|
|
'()
|
|
#f
|
|
'()))
|
|
#{tmp\ 1052}#)
|
|
((lambda (#{tmp\ 1053}#)
|
|
(if (if #{tmp\ 1053}#
|
|
(apply (lambda (#{a\ 1056}#
|
|
#{b\ 1057}#)
|
|
(#{id?\ 240}#
|
|
#{a\ 1056}#))
|
|
#{tmp\ 1053}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1060}#
|
|
#{b\ 1061}#)
|
|
(#{req\ 850}#
|
|
#{b\ 1061}#
|
|
(cons #{a\ 1060}#
|
|
#{rreq\ 1048}#)))
|
|
#{tmp\ 1053}#)
|
|
((lambda (#{tmp\ 1062}#)
|
|
(if (if #{tmp\ 1062}#
|
|
(apply (lambda (#{a\ 1065}#
|
|
#{b\ 1066}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1065}#)
|
|
#:optional))
|
|
#{tmp\ 1062}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1069}#
|
|
#{b\ 1070}#)
|
|
(#{opt\ 852}#
|
|
#{b\ 1070}#
|
|
(reverse
|
|
#{rreq\ 1048}#)
|
|
'()))
|
|
#{tmp\ 1062}#)
|
|
((lambda (#{tmp\ 1071}#)
|
|
(if (if #{tmp\ 1071}#
|
|
(apply (lambda (#{a\ 1074}#
|
|
#{b\ 1075}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1074}#)
|
|
#:key))
|
|
#{tmp\ 1071}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1078}#
|
|
#{b\ 1079}#)
|
|
(#{key\ 854}#
|
|
#{b\ 1079}#
|
|
(reverse
|
|
#{rreq\ 1048}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 1071}#)
|
|
((lambda (#{tmp\ 1080}#)
|
|
(if (if #{tmp\ 1080}#
|
|
(apply (lambda (#{a\ 1083}#
|
|
#{b\ 1084}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1083}#)
|
|
#:rest))
|
|
#{tmp\ 1080}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1087}#
|
|
#{b\ 1088}#)
|
|
(#{rest\ 856}#
|
|
#{b\ 1088}#
|
|
(reverse
|
|
#{rreq\ 1048}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 1080}#)
|
|
((lambda (#{tmp\ 1089}#)
|
|
(if (if #{tmp\ 1089}#
|
|
(apply (lambda (#{r\ 1091}#)
|
|
(#{id?\ 240}#
|
|
#{r\ 1091}#))
|
|
#{tmp\ 1089}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1093}#)
|
|
(#{rest\ 856}#
|
|
#{r\ 1093}#
|
|
(reverse
|
|
#{rreq\ 1048}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 1089}#)
|
|
((lambda (#{else\ 1095}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid argument list"
|
|
#{orig-args\ 847}#
|
|
#{args\ 1047}#))
|
|
#{tmp\ 1051}#)))
|
|
(list #{tmp\ 1051}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 1051}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1051}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1051}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1051}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 1051}# (quote ()))))
|
|
#{args\ 1047}#))))
|
|
(#{req\ 850}# #{orig-args\ 847}# (quote ())))))
|
|
(#{chi-simple-lambda\ 345}#
|
|
(lambda (#{e\ 1096}#
|
|
#{r\ 1097}#
|
|
#{w\ 1098}#
|
|
#{s\ 1099}#
|
|
#{mod\ 1100}#
|
|
#{req\ 1101}#
|
|
#{rest\ 1102}#
|
|
#{docstring\ 1103}#
|
|
#{body\ 1104}#)
|
|
(let ((#{ids\ 1116}#
|
|
(if #{rest\ 1102}#
|
|
(append #{req\ 1101}# (list #{rest\ 1102}#))
|
|
#{req\ 1101}#)))
|
|
(let ((#{vars\ 1118}#
|
|
(map #{gen-var\ 353}# #{ids\ 1116}#)))
|
|
(let ((#{labels\ 1120}#
|
|
(#{gen-labels\ 258}# #{ids\ 1116}#)))
|
|
(#{build-simple-lambda\ 182}#
|
|
#{s\ 1099}#
|
|
(map syntax->datum #{req\ 1101}#)
|
|
(if #{rest\ 1102}#
|
|
(syntax->datum #{rest\ 1102}#)
|
|
#f)
|
|
#{vars\ 1118}#
|
|
#{docstring\ 1103}#
|
|
(#{chi-body\ 333}#
|
|
#{body\ 1104}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1096}#
|
|
#{w\ 1098}#
|
|
#{s\ 1099}#
|
|
#{mod\ 1100}#)
|
|
(#{extend-var-env\ 230}#
|
|
#{labels\ 1120}#
|
|
#{vars\ 1118}#
|
|
#{r\ 1097}#)
|
|
(#{make-binding-wrap\ 287}#
|
|
#{ids\ 1116}#
|
|
#{labels\ 1120}#
|
|
#{w\ 1098}#)
|
|
#{mod\ 1100}#)))))))
|
|
(#{lambda-formals\ 343}#
|
|
(lambda (#{orig-args\ 1123}#)
|
|
(letrec ((#{check\ 1128}#
|
|
(lambda (#{req\ 1129}# #{rest\ 1130}#)
|
|
(if (#{distinct-bound-ids?\ 305}#
|
|
(if #{rest\ 1130}#
|
|
(cons #{rest\ 1130}# #{req\ 1129}#)
|
|
#{req\ 1129}#))
|
|
(values #{req\ 1129}# #f #{rest\ 1130}# #f)
|
|
(syntax-violation
|
|
'lambda
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 1123}#))))
|
|
(#{req\ 1126}#
|
|
(lambda (#{args\ 1136}# #{rreq\ 1137}#)
|
|
((lambda (#{tmp\ 1140}#)
|
|
((lambda (#{tmp\ 1141}#)
|
|
(if #{tmp\ 1141}#
|
|
(apply (lambda ()
|
|
(#{check\ 1128}#
|
|
(reverse #{rreq\ 1137}#)
|
|
#f))
|
|
#{tmp\ 1141}#)
|
|
((lambda (#{tmp\ 1142}#)
|
|
(if (if #{tmp\ 1142}#
|
|
(apply (lambda (#{a\ 1145}#
|
|
#{b\ 1146}#)
|
|
(#{id?\ 240}#
|
|
#{a\ 1145}#))
|
|
#{tmp\ 1142}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1149}#
|
|
#{b\ 1150}#)
|
|
(#{req\ 1126}#
|
|
#{b\ 1150}#
|
|
(cons #{a\ 1149}#
|
|
#{rreq\ 1137}#)))
|
|
#{tmp\ 1142}#)
|
|
((lambda (#{tmp\ 1151}#)
|
|
(if (if #{tmp\ 1151}#
|
|
(apply (lambda (#{r\ 1153}#)
|
|
(#{id?\ 240}#
|
|
#{r\ 1153}#))
|
|
#{tmp\ 1151}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1155}#)
|
|
(#{check\ 1128}#
|
|
(reverse
|
|
#{rreq\ 1137}#)
|
|
#{r\ 1155}#))
|
|
#{tmp\ 1151}#)
|
|
((lambda (#{else\ 1157}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"invalid argument list"
|
|
#{orig-args\ 1123}#
|
|
#{args\ 1136}#))
|
|
#{tmp\ 1140}#)))
|
|
(list #{tmp\ 1140}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 1140}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 1140}# (quote ()))))
|
|
#{args\ 1136}#))))
|
|
(#{req\ 1126}# #{orig-args\ 1123}# (quote ())))))
|
|
(#{ellipsis?\ 341}#
|
|
(lambda (#{x\ 1158}#)
|
|
(if (#{nonsymbol-id?\ 238}# #{x\ 1158}#)
|
|
(#{free-id=?\ 299}#
|
|
#{x\ 1158}#
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i1159"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile)))
|
|
#f)))
|
|
(#{chi-void\ 339}#
|
|
(lambda () (#{build-void\ 160}# #f)))
|
|
(#{eval-local-transformer\ 337}#
|
|
(lambda (#{expanded\ 1163}# #{mod\ 1164}#)
|
|
(let ((#{p\ 1168}#
|
|
(#{local-eval-hook\ 151}#
|
|
#{expanded\ 1163}#
|
|
#{mod\ 1164}#)))
|
|
(if (procedure? #{p\ 1168}#)
|
|
(cons #{p\ 1168}# (module-name (current-module)))
|
|
(syntax-violation
|
|
#f
|
|
"nonprocedure transformer"
|
|
#{p\ 1168}#)))))
|
|
(#{chi-local-syntax\ 335}#
|
|
(lambda (#{rec?\ 1169}#
|
|
#{e\ 1170}#
|
|
#{r\ 1171}#
|
|
#{w\ 1172}#
|
|
#{s\ 1173}#
|
|
#{mod\ 1174}#
|
|
#{k\ 1175}#)
|
|
((lambda (#{tmp\ 1183}#)
|
|
((lambda (#{tmp\ 1184}#)
|
|
(if #{tmp\ 1184}#
|
|
(apply (lambda (#{_\ 1190}#
|
|
#{id\ 1191}#
|
|
#{val\ 1192}#
|
|
#{e1\ 1193}#
|
|
#{e2\ 1194}#)
|
|
(let ((#{ids\ 1196}# #{id\ 1191}#))
|
|
(if (not (#{valid-bound-ids?\ 303}#
|
|
#{ids\ 1196}#))
|
|
(syntax-violation
|
|
#f
|
|
"duplicate bound keyword"
|
|
#{e\ 1170}#)
|
|
(let ((#{labels\ 1199}#
|
|
(#{gen-labels\ 258}#
|
|
#{ids\ 1196}#)))
|
|
(let ((#{new-w\ 1201}#
|
|
(#{make-binding-wrap\ 287}#
|
|
#{ids\ 1196}#
|
|
#{labels\ 1199}#
|
|
#{w\ 1172}#)))
|
|
(#{k\ 1175}#
|
|
(cons #{e1\ 1193}# #{e2\ 1194}#)
|
|
(#{extend-env\ 228}#
|
|
#{labels\ 1199}#
|
|
(let ((#{w\ 1205}#
|
|
(if #{rec?\ 1169}#
|
|
#{new-w\ 1201}#
|
|
#{w\ 1172}#))
|
|
(#{trans-r\ 1206}#
|
|
(#{macros-only-env\ 232}#
|
|
#{r\ 1171}#)))
|
|
(map (lambda (#{x\ 1207}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 337}#
|
|
(#{chi\ 325}#
|
|
#{x\ 1207}#
|
|
#{trans-r\ 1206}#
|
|
#{w\ 1205}#
|
|
#{mod\ 1174}#)
|
|
#{mod\ 1174}#)))
|
|
#{val\ 1192}#))
|
|
#{r\ 1171}#)
|
|
#{new-w\ 1201}#
|
|
#{s\ 1173}#
|
|
#{mod\ 1174}#))))))
|
|
#{tmp\ 1184}#)
|
|
((lambda (#{_\ 1212}#)
|
|
(syntax-violation
|
|
#f
|
|
"bad local syntax definition"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1170}#
|
|
#{w\ 1172}#
|
|
#{s\ 1173}#
|
|
#{mod\ 1174}#)))
|
|
#{tmp\ 1183}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1183}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 1170}#)))
|
|
(#{chi-body\ 333}#
|
|
(lambda (#{body\ 1213}#
|
|
#{outer-form\ 1214}#
|
|
#{r\ 1215}#
|
|
#{w\ 1216}#
|
|
#{mod\ 1217}#)
|
|
(let ((#{r\ 1225}#
|
|
(cons '("placeholder" placeholder)
|
|
#{r\ 1215}#)))
|
|
(let ((#{ribcage\ 1227}#
|
|
(#{make-ribcage\ 261}#
|
|
'()
|
|
'()
|
|
'())))
|
|
(let ((#{w\ 1230}#
|
|
(#{make-wrap\ 245}#
|
|
(#{wrap-marks\ 247}# #{w\ 1216}#)
|
|
(cons #{ribcage\ 1227}#
|
|
(#{wrap-subst\ 249}# #{w\ 1216}#)))))
|
|
(letrec ((#{parse\ 1239}#
|
|
(lambda (#{body\ 1240}#
|
|
#{ids\ 1241}#
|
|
#{labels\ 1242}#
|
|
#{var-ids\ 1243}#
|
|
#{vars\ 1244}#
|
|
#{vals\ 1245}#
|
|
#{bindings\ 1246}#)
|
|
(if (null? #{body\ 1240}#)
|
|
(syntax-violation
|
|
#f
|
|
"no expressions in body"
|
|
#{outer-form\ 1214}#)
|
|
(let ((#{e\ 1251}# (cdar #{body\ 1240}#))
|
|
(#{er\ 1252}# (caar #{body\ 1240}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 321}#
|
|
#{e\ 1251}#
|
|
#{er\ 1252}#
|
|
'(())
|
|
(#{source-annotation\ 219}#
|
|
#{er\ 1252}#)
|
|
#{ribcage\ 1227}#
|
|
#{mod\ 1217}#
|
|
#f))
|
|
(lambda (#{type\ 1254}#
|
|
#{value\ 1255}#
|
|
#{e\ 1256}#
|
|
#{w\ 1257}#
|
|
#{s\ 1258}#
|
|
#{mod\ 1259}#)
|
|
(if (memv #{type\ 1254}#
|
|
'(define-form))
|
|
(let ((#{id\ 1269}#
|
|
(#{wrap\ 309}#
|
|
#{value\ 1255}#
|
|
#{w\ 1257}#
|
|
#{mod\ 1259}#))
|
|
(#{label\ 1270}#
|
|
(#{gen-label\ 256}#)))
|
|
(let ((#{var\ 1272}#
|
|
(#{gen-var\ 353}#
|
|
#{id\ 1269}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 285}#
|
|
#{ribcage\ 1227}#
|
|
#{id\ 1269}#
|
|
#{label\ 1270}#)
|
|
(#{parse\ 1239}#
|
|
(cdr #{body\ 1240}#)
|
|
(cons #{id\ 1269}#
|
|
#{ids\ 1241}#)
|
|
(cons #{label\ 1270}#
|
|
#{labels\ 1242}#)
|
|
(cons #{id\ 1269}#
|
|
#{var-ids\ 1243}#)
|
|
(cons #{var\ 1272}#
|
|
#{vars\ 1244}#)
|
|
(cons (cons #{er\ 1252}#
|
|
(#{wrap\ 309}#
|
|
#{e\ 1256}#
|
|
#{w\ 1257}#
|
|
#{mod\ 1259}#))
|
|
#{vals\ 1245}#)
|
|
(cons (cons 'lexical
|
|
#{var\ 1272}#)
|
|
#{bindings\ 1246}#)))))
|
|
(if (memv #{type\ 1254}#
|
|
'(define-syntax-form))
|
|
(let ((#{id\ 1277}#
|
|
(#{wrap\ 309}#
|
|
#{value\ 1255}#
|
|
#{w\ 1257}#
|
|
#{mod\ 1259}#))
|
|
(#{label\ 1278}#
|
|
(#{gen-label\ 256}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 285}#
|
|
#{ribcage\ 1227}#
|
|
#{id\ 1277}#
|
|
#{label\ 1278}#)
|
|
(#{parse\ 1239}#
|
|
(cdr #{body\ 1240}#)
|
|
(cons #{id\ 1277}#
|
|
#{ids\ 1241}#)
|
|
(cons #{label\ 1278}#
|
|
#{labels\ 1242}#)
|
|
#{var-ids\ 1243}#
|
|
#{vars\ 1244}#
|
|
#{vals\ 1245}#
|
|
(cons (cons 'macro
|
|
(cons #{er\ 1252}#
|
|
(#{wrap\ 309}#
|
|
#{e\ 1256}#
|
|
#{w\ 1257}#
|
|
#{mod\ 1259}#)))
|
|
#{bindings\ 1246}#))))
|
|
(if (memv #{type\ 1254}#
|
|
'(begin-form))
|
|
((lambda (#{tmp\ 1281}#)
|
|
((lambda (#{tmp\ 1282}#)
|
|
(if #{tmp\ 1282}#
|
|
(apply (lambda (#{_\ 1285}#
|
|
#{e1\ 1286}#)
|
|
(#{parse\ 1239}#
|
|
(letrec ((#{f\ 1289}#
|
|
(lambda (#{forms\ 1290}#)
|
|
(if (null? #{forms\ 1290}#)
|
|
(cdr #{body\ 1240}#)
|
|
(cons (cons #{er\ 1252}#
|
|
(#{wrap\ 309}#
|
|
(car #{forms\ 1290}#)
|
|
#{w\ 1257}#
|
|
#{mod\ 1259}#))
|
|
(#{f\ 1289}#
|
|
(cdr #{forms\ 1290}#)))))))
|
|
(#{f\ 1289}#
|
|
#{e1\ 1286}#))
|
|
#{ids\ 1241}#
|
|
#{labels\ 1242}#
|
|
#{var-ids\ 1243}#
|
|
#{vars\ 1244}#
|
|
#{vals\ 1245}#
|
|
#{bindings\ 1246}#))
|
|
#{tmp\ 1282}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1281}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1281}#
|
|
'(any . each-any))))
|
|
#{e\ 1256}#)
|
|
(if (memv #{type\ 1254}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 335}#
|
|
#{value\ 1255}#
|
|
#{e\ 1256}#
|
|
#{er\ 1252}#
|
|
#{w\ 1257}#
|
|
#{s\ 1258}#
|
|
#{mod\ 1259}#
|
|
(lambda (#{forms\ 1293}#
|
|
#{er\ 1294}#
|
|
#{w\ 1295}#
|
|
#{s\ 1296}#
|
|
#{mod\ 1297}#)
|
|
(#{parse\ 1239}#
|
|
(letrec ((#{f\ 1305}#
|
|
(lambda (#{forms\ 1306}#)
|
|
(if (null? #{forms\ 1306}#)
|
|
(cdr #{body\ 1240}#)
|
|
(cons (cons #{er\ 1294}#
|
|
(#{wrap\ 309}#
|
|
(car #{forms\ 1306}#)
|
|
#{w\ 1295}#
|
|
#{mod\ 1297}#))
|
|
(#{f\ 1305}#
|
|
(cdr #{forms\ 1306}#)))))))
|
|
(#{f\ 1305}#
|
|
#{forms\ 1293}#))
|
|
#{ids\ 1241}#
|
|
#{labels\ 1242}#
|
|
#{var-ids\ 1243}#
|
|
#{vars\ 1244}#
|
|
#{vals\ 1245}#
|
|
#{bindings\ 1246}#)))
|
|
(if (null? #{ids\ 1241}#)
|
|
(#{build-sequence\ 192}#
|
|
#f
|
|
(map (lambda (#{x\ 1309}#)
|
|
(#{chi\ 325}#
|
|
(cdr #{x\ 1309}#)
|
|
(car #{x\ 1309}#)
|
|
'(())
|
|
#{mod\ 1259}#))
|
|
(cons (cons #{er\ 1252}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1256}#
|
|
#{w\ 1257}#
|
|
#{s\ 1258}#
|
|
#{mod\ 1259}#))
|
|
(cdr #{body\ 1240}#))))
|
|
(begin
|
|
(if (not (#{valid-bound-ids?\ 303}#
|
|
#{ids\ 1241}#))
|
|
(syntax-violation
|
|
#f
|
|
"invalid or duplicate identifier in definition"
|
|
#{outer-form\ 1214}#))
|
|
(letrec ((#{loop\ 1316}#
|
|
(lambda (#{bs\ 1317}#
|
|
#{er-cache\ 1318}#
|
|
#{r-cache\ 1319}#)
|
|
(if (not (null? #{bs\ 1317}#))
|
|
(let ((#{b\ 1322}#
|
|
(car #{bs\ 1317}#)))
|
|
(if (eq? (car #{b\ 1322}#)
|
|
'macro)
|
|
(let ((#{er\ 1325}#
|
|
(cadr #{b\ 1322}#)))
|
|
(let ((#{r-cache\ 1327}#
|
|
(if (eq? #{er\ 1325}#
|
|
#{er-cache\ 1318}#)
|
|
#{r-cache\ 1319}#
|
|
(#{macros-only-env\ 232}#
|
|
#{er\ 1325}#))))
|
|
(begin
|
|
(set-cdr!
|
|
#{b\ 1322}#
|
|
(#{eval-local-transformer\ 337}#
|
|
(#{chi\ 325}#
|
|
(cddr #{b\ 1322}#)
|
|
#{r-cache\ 1327}#
|
|
'(())
|
|
#{mod\ 1259}#)
|
|
#{mod\ 1259}#))
|
|
(#{loop\ 1316}#
|
|
(cdr #{bs\ 1317}#)
|
|
#{er\ 1325}#
|
|
#{r-cache\ 1327}#))))
|
|
(#{loop\ 1316}#
|
|
(cdr #{bs\ 1317}#)
|
|
#{er-cache\ 1318}#
|
|
#{r-cache\ 1319}#)))))))
|
|
(#{loop\ 1316}#
|
|
#{bindings\ 1246}#
|
|
#f
|
|
#f))
|
|
(set-cdr!
|
|
#{r\ 1225}#
|
|
(#{extend-env\ 228}#
|
|
#{labels\ 1242}#
|
|
#{bindings\ 1246}#
|
|
(cdr #{r\ 1225}#)))
|
|
(#{build-letrec\ 198}#
|
|
#f
|
|
(map syntax->datum
|
|
#{var-ids\ 1243}#)
|
|
#{vars\ 1244}#
|
|
(map (lambda (#{x\ 1330}#)
|
|
(#{chi\ 325}#
|
|
(cdr #{x\ 1330}#)
|
|
(car #{x\ 1330}#)
|
|
'(())
|
|
#{mod\ 1259}#))
|
|
#{vals\ 1245}#)
|
|
(#{build-sequence\ 192}#
|
|
#f
|
|
(map (lambda (#{x\ 1334}#)
|
|
(#{chi\ 325}#
|
|
(cdr #{x\ 1334}#)
|
|
(car #{x\ 1334}#)
|
|
'(())
|
|
#{mod\ 1259}#))
|
|
(cons (cons #{er\ 1252}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1256}#
|
|
#{w\ 1257}#
|
|
#{s\ 1258}#
|
|
#{mod\ 1259}#))
|
|
(cdr #{body\ 1240}#))))))))))))))))))
|
|
(#{parse\ 1239}#
|
|
(map (lambda (#{x\ 1247}#)
|
|
(cons #{r\ 1225}#
|
|
(#{wrap\ 309}#
|
|
#{x\ 1247}#
|
|
#{w\ 1230}#
|
|
#{mod\ 1217}#)))
|
|
#{body\ 1213}#)
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'())))))))
|
|
(#{chi-macro\ 331}#
|
|
(lambda (#{p\ 1337}#
|
|
#{e\ 1338}#
|
|
#{r\ 1339}#
|
|
#{w\ 1340}#
|
|
#{rib\ 1341}#
|
|
#{mod\ 1342}#)
|
|
(letrec ((#{rebuild-macro-output\ 1350}#
|
|
(lambda (#{x\ 1351}# #{m\ 1352}#)
|
|
(if (pair? #{x\ 1351}#)
|
|
(cons (#{rebuild-macro-output\ 1350}#
|
|
(car #{x\ 1351}#)
|
|
#{m\ 1352}#)
|
|
(#{rebuild-macro-output\ 1350}#
|
|
(cdr #{x\ 1351}#)
|
|
#{m\ 1352}#))
|
|
(if (#{syntax-object?\ 204}# #{x\ 1351}#)
|
|
(let ((#{w\ 1360}#
|
|
(#{syntax-object-wrap\ 208}#
|
|
#{x\ 1351}#)))
|
|
(let ((#{ms\ 1363}#
|
|
(#{wrap-marks\ 247}# #{w\ 1360}#))
|
|
(#{s\ 1364}#
|
|
(#{wrap-subst\ 249}# #{w\ 1360}#)))
|
|
(if (if (pair? #{ms\ 1363}#)
|
|
(eq? (car #{ms\ 1363}#) #f)
|
|
#f)
|
|
(#{make-syntax-object\ 202}#
|
|
(#{syntax-object-expression\ 206}#
|
|
#{x\ 1351}#)
|
|
(#{make-wrap\ 245}#
|
|
(cdr #{ms\ 1363}#)
|
|
(if #{rib\ 1341}#
|
|
(cons #{rib\ 1341}#
|
|
(cdr #{s\ 1364}#))
|
|
(cdr #{s\ 1364}#)))
|
|
(#{syntax-object-module\ 210}#
|
|
#{x\ 1351}#))
|
|
(#{make-syntax-object\ 202}#
|
|
(#{syntax-object-expression\ 206}#
|
|
#{x\ 1351}#)
|
|
(#{make-wrap\ 245}#
|
|
(cons #{m\ 1352}# #{ms\ 1363}#)
|
|
(if #{rib\ 1341}#
|
|
(cons #{rib\ 1341}#
|
|
(cons 'shift
|
|
#{s\ 1364}#))
|
|
(cons (quote shift) #{s\ 1364}#)))
|
|
(cons 'hygiene
|
|
(cdr #{p\ 1337}#))))))
|
|
(if (vector? #{x\ 1351}#)
|
|
(let ((#{n\ 1372}#
|
|
(vector-length #{x\ 1351}#)))
|
|
(let ((#{v\ 1374}#
|
|
(make-vector #{n\ 1372}#)))
|
|
(letrec ((#{loop\ 1377}#
|
|
(lambda (#{i\ 1378}#)
|
|
(if (#{fx=\ 145}#
|
|
#{i\ 1378}#
|
|
#{n\ 1372}#)
|
|
(begin
|
|
(if #f #f)
|
|
#{v\ 1374}#)
|
|
(begin
|
|
(vector-set!
|
|
#{v\ 1374}#
|
|
#{i\ 1378}#
|
|
(#{rebuild-macro-output\ 1350}#
|
|
(vector-ref
|
|
#{x\ 1351}#
|
|
#{i\ 1378}#)
|
|
#{m\ 1352}#))
|
|
(#{loop\ 1377}#
|
|
(#{fx+\ 141}#
|
|
#{i\ 1378}#
|
|
1)))))))
|
|
(#{loop\ 1377}# 0))))
|
|
(if (symbol? #{x\ 1351}#)
|
|
(syntax-violation
|
|
#f
|
|
"encountered raw symbol in macro output"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1338}#
|
|
#{w\ 1340}#
|
|
(#{wrap-subst\ 249}# #{w\ 1340}#)
|
|
#{mod\ 1342}#)
|
|
#{x\ 1351}#)
|
|
#{x\ 1351}#)))))))
|
|
(#{rebuild-macro-output\ 1350}#
|
|
((car #{p\ 1337}#)
|
|
(#{wrap\ 309}#
|
|
#{e\ 1338}#
|
|
(#{anti-mark\ 281}# #{w\ 1340}#)
|
|
#{mod\ 1342}#))
|
|
(gensym "m")))))
|
|
(#{chi-application\ 329}#
|
|
(lambda (#{x\ 1385}#
|
|
#{e\ 1386}#
|
|
#{r\ 1387}#
|
|
#{w\ 1388}#
|
|
#{s\ 1389}#
|
|
#{mod\ 1390}#)
|
|
((lambda (#{tmp\ 1397}#)
|
|
((lambda (#{tmp\ 1398}#)
|
|
(if #{tmp\ 1398}#
|
|
(apply (lambda (#{e0\ 1401}# #{e1\ 1402}#)
|
|
(#{build-application\ 162}#
|
|
#{s\ 1389}#
|
|
#{x\ 1385}#
|
|
(map (lambda (#{e\ 1403}#)
|
|
(#{chi\ 325}#
|
|
#{e\ 1403}#
|
|
#{r\ 1387}#
|
|
#{w\ 1388}#
|
|
#{mod\ 1390}#))
|
|
#{e1\ 1402}#)))
|
|
#{tmp\ 1398}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1397}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1397}#
|
|
'(any . each-any))))
|
|
#{e\ 1386}#)))
|
|
(#{chi-expr\ 327}#
|
|
(lambda (#{type\ 1406}#
|
|
#{value\ 1407}#
|
|
#{e\ 1408}#
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
(if (memv #{type\ 1406}# (quote (lexical)))
|
|
(#{build-lexical-reference\ 168}#
|
|
'value
|
|
#{s\ 1411}#
|
|
#{e\ 1408}#
|
|
#{value\ 1407}#)
|
|
(if (memv #{type\ 1406}# (quote (core core-form)))
|
|
(#{value\ 1407}#
|
|
#{e\ 1408}#
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
(if (memv #{type\ 1406}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{value\ 1407}# #{e\ 1408}#))
|
|
(lambda (#{id\ 1423}# #{mod\ 1424}#)
|
|
(#{build-global-reference\ 174}#
|
|
#{s\ 1411}#
|
|
#{id\ 1423}#
|
|
#{mod\ 1424}#)))
|
|
(if (memv #{type\ 1406}# (quote (lexical-call)))
|
|
(#{chi-application\ 329}#
|
|
(#{build-lexical-reference\ 168}#
|
|
'fun
|
|
(#{source-annotation\ 219}# (car #{e\ 1408}#))
|
|
(car #{e\ 1408}#)
|
|
#{value\ 1407}#)
|
|
#{e\ 1408}#
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
(if (memv #{type\ 1406}# (quote (global-call)))
|
|
(#{chi-application\ 329}#
|
|
(#{build-global-reference\ 174}#
|
|
(#{source-annotation\ 219}# (car #{e\ 1408}#))
|
|
(if (#{syntax-object?\ 204}# #{value\ 1407}#)
|
|
(#{syntax-object-expression\ 206}#
|
|
#{value\ 1407}#)
|
|
#{value\ 1407}#)
|
|
(if (#{syntax-object?\ 204}# #{value\ 1407}#)
|
|
(#{syntax-object-module\ 210}# #{value\ 1407}#)
|
|
#{mod\ 1412}#))
|
|
#{e\ 1408}#
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
(if (memv #{type\ 1406}# (quote (constant)))
|
|
(#{build-data\ 190}#
|
|
#{s\ 1411}#
|
|
(#{strip\ 351}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1408}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
'(())))
|
|
(if (memv #{type\ 1406}# (quote (global)))
|
|
(#{build-global-reference\ 174}#
|
|
#{s\ 1411}#
|
|
#{value\ 1407}#
|
|
#{mod\ 1412}#)
|
|
(if (memv #{type\ 1406}# (quote (call)))
|
|
(#{chi-application\ 329}#
|
|
(#{chi\ 325}#
|
|
(car #{e\ 1408}#)
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{mod\ 1412}#)
|
|
#{e\ 1408}#
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
(if (memv #{type\ 1406}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 1434}#)
|
|
((lambda (#{tmp\ 1435}#)
|
|
(if #{tmp\ 1435}#
|
|
(apply (lambda (#{_\ 1439}#
|
|
#{e1\ 1440}#
|
|
#{e2\ 1441}#)
|
|
(#{chi-sequence\ 313}#
|
|
(cons #{e1\ 1440}#
|
|
#{e2\ 1441}#)
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#))
|
|
#{tmp\ 1435}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1434}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1434}#
|
|
'(any any . each-any))))
|
|
#{e\ 1408}#)
|
|
(if (memv #{type\ 1406}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 335}#
|
|
#{value\ 1407}#
|
|
#{e\ 1408}#
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#
|
|
#{chi-sequence\ 313}#)
|
|
(if (memv #{type\ 1406}#
|
|
'(eval-when-form))
|
|
((lambda (#{tmp\ 1445}#)
|
|
((lambda (#{tmp\ 1446}#)
|
|
(if #{tmp\ 1446}#
|
|
(apply (lambda (#{_\ 1451}#
|
|
#{x\ 1452}#
|
|
#{e1\ 1453}#
|
|
#{e2\ 1454}#)
|
|
(let ((#{when-list\ 1456}#
|
|
(#{chi-when-list\ 319}#
|
|
#{e\ 1408}#
|
|
#{x\ 1452}#
|
|
#{w\ 1410}#)))
|
|
(if (memq 'eval
|
|
#{when-list\ 1456}#)
|
|
(#{chi-sequence\ 313}#
|
|
(cons #{e1\ 1453}#
|
|
#{e2\ 1454}#)
|
|
#{r\ 1409}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#)
|
|
(#{chi-void\ 339}#))))
|
|
#{tmp\ 1446}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1445}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1445}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 1408}#)
|
|
(if (memv #{type\ 1406}#
|
|
'(define-form
|
|
define-syntax-form))
|
|
(syntax-violation
|
|
#f
|
|
"definition in expression context"
|
|
#{e\ 1408}#
|
|
(#{wrap\ 309}#
|
|
#{value\ 1407}#
|
|
#{w\ 1410}#
|
|
#{mod\ 1412}#))
|
|
(if (memv #{type\ 1406}#
|
|
'(syntax))
|
|
(syntax-violation
|
|
#f
|
|
"reference to pattern variable outside syntax form"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1408}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#))
|
|
(if (memv #{type\ 1406}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"reference to identifier outside its scope"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1408}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#))
|
|
(syntax-violation
|
|
#f
|
|
"unexpected syntax"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 1408}#
|
|
#{w\ 1410}#
|
|
#{s\ 1411}#
|
|
#{mod\ 1412}#))))))))))))))))))
|
|
(#{chi\ 325}#
|
|
(lambda (#{e\ 1463}#
|
|
#{r\ 1464}#
|
|
#{w\ 1465}#
|
|
#{mod\ 1466}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 321}#
|
|
#{e\ 1463}#
|
|
#{r\ 1464}#
|
|
#{w\ 1465}#
|
|
(#{source-annotation\ 219}# #{e\ 1463}#)
|
|
#f
|
|
#{mod\ 1466}#
|
|
#f))
|
|
(lambda (#{type\ 1471}#
|
|
#{value\ 1472}#
|
|
#{e\ 1473}#
|
|
#{w\ 1474}#
|
|
#{s\ 1475}#
|
|
#{mod\ 1476}#)
|
|
(#{chi-expr\ 327}#
|
|
#{type\ 1471}#
|
|
#{value\ 1472}#
|
|
#{e\ 1473}#
|
|
#{r\ 1464}#
|
|
#{w\ 1474}#
|
|
#{s\ 1475}#
|
|
#{mod\ 1476}#)))))
|
|
(#{chi-top\ 323}#
|
|
(lambda (#{e\ 1483}#
|
|
#{r\ 1484}#
|
|
#{w\ 1485}#
|
|
#{m\ 1486}#
|
|
#{esew\ 1487}#
|
|
#{mod\ 1488}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 321}#
|
|
#{e\ 1483}#
|
|
#{r\ 1484}#
|
|
#{w\ 1485}#
|
|
(#{source-annotation\ 219}# #{e\ 1483}#)
|
|
#f
|
|
#{mod\ 1488}#
|
|
#f))
|
|
(lambda (#{type\ 1509}#
|
|
#{value\ 1510}#
|
|
#{e\ 1511}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
#{mod\ 1514}#)
|
|
(if (memv #{type\ 1509}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 1522}#)
|
|
((lambda (#{tmp\ 1523}#)
|
|
(if #{tmp\ 1523}#
|
|
(apply (lambda (#{_\ 1525}#) (#{chi-void\ 339}#))
|
|
#{tmp\ 1523}#)
|
|
((lambda (#{tmp\ 1526}#)
|
|
(if #{tmp\ 1526}#
|
|
(apply (lambda (#{_\ 1530}#
|
|
#{e1\ 1531}#
|
|
#{e2\ 1532}#)
|
|
(#{chi-top-sequence\ 315}#
|
|
(cons #{e1\ 1531}# #{e2\ 1532}#)
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
#{m\ 1486}#
|
|
#{esew\ 1487}#
|
|
#{mod\ 1514}#))
|
|
#{tmp\ 1526}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1522}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1522}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch #{tmp\ 1522}# (quote (any)))))
|
|
#{e\ 1511}#)
|
|
(if (memv #{type\ 1509}# (quote (local-syntax-form)))
|
|
(#{chi-local-syntax\ 335}#
|
|
#{value\ 1510}#
|
|
#{e\ 1511}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
#{mod\ 1514}#
|
|
(lambda (#{body\ 1535}#
|
|
#{r\ 1536}#
|
|
#{w\ 1537}#
|
|
#{s\ 1538}#
|
|
#{mod\ 1539}#)
|
|
(#{chi-top-sequence\ 315}#
|
|
#{body\ 1535}#
|
|
#{r\ 1536}#
|
|
#{w\ 1537}#
|
|
#{s\ 1538}#
|
|
#{m\ 1486}#
|
|
#{esew\ 1487}#
|
|
#{mod\ 1539}#)))
|
|
(if (memv #{type\ 1509}# (quote (eval-when-form)))
|
|
((lambda (#{tmp\ 1546}#)
|
|
((lambda (#{tmp\ 1547}#)
|
|
(if #{tmp\ 1547}#
|
|
(apply (lambda (#{_\ 1552}#
|
|
#{x\ 1553}#
|
|
#{e1\ 1554}#
|
|
#{e2\ 1555}#)
|
|
(let ((#{when-list\ 1558}#
|
|
(#{chi-when-list\ 319}#
|
|
#{e\ 1511}#
|
|
#{x\ 1553}#
|
|
#{w\ 1512}#))
|
|
(#{body\ 1559}#
|
|
(cons #{e1\ 1554}#
|
|
#{e2\ 1555}#)))
|
|
(if (eq? #{m\ 1486}# (quote e))
|
|
(if (memq 'eval
|
|
#{when-list\ 1558}#)
|
|
(#{chi-top-sequence\ 315}#
|
|
#{body\ 1559}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 1514}#)
|
|
(#{chi-void\ 339}#))
|
|
(if (memq 'load
|
|
#{when-list\ 1558}#)
|
|
(if (let ((#{t\ 1568}#
|
|
(memq 'compile
|
|
#{when-list\ 1558}#)))
|
|
(if #{t\ 1568}#
|
|
#{t\ 1568}#
|
|
(if (eq? #{m\ 1486}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 1558}#)
|
|
#f)))
|
|
(#{chi-top-sequence\ 315}#
|
|
#{body\ 1559}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
'c&e
|
|
'(compile load)
|
|
#{mod\ 1514}#)
|
|
(if (memq #{m\ 1486}#
|
|
'(c c&e))
|
|
(#{chi-top-sequence\ 315}#
|
|
#{body\ 1559}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
'c
|
|
'(load)
|
|
#{mod\ 1514}#)
|
|
(#{chi-void\ 339}#)))
|
|
(if (let ((#{t\ 1576}#
|
|
(memq 'compile
|
|
#{when-list\ 1558}#)))
|
|
(if #{t\ 1576}#
|
|
#{t\ 1576}#
|
|
(if (eq? #{m\ 1486}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 1558}#)
|
|
#f)))
|
|
(begin
|
|
(#{top-level-eval-hook\ 149}#
|
|
(#{chi-top-sequence\ 315}#
|
|
#{body\ 1559}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 1514}#)
|
|
#{mod\ 1514}#)
|
|
(#{chi-void\ 339}#))
|
|
(#{chi-void\ 339}#))))))
|
|
#{tmp\ 1547}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1546}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1546}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 1511}#)
|
|
(if (memv #{type\ 1509}#
|
|
'(define-syntax-form))
|
|
(let ((#{n\ 1584}#
|
|
(#{id-var-name\ 297}#
|
|
#{value\ 1510}#
|
|
#{w\ 1512}#))
|
|
(#{r\ 1585}#
|
|
(#{macros-only-env\ 232}# #{r\ 1484}#)))
|
|
(if (memv #{m\ 1486}# (quote (c)))
|
|
(if (memq (quote compile) #{esew\ 1487}#)
|
|
(let ((#{e\ 1588}#
|
|
(#{chi-install-global\ 317}#
|
|
#{n\ 1584}#
|
|
(#{chi\ 325}#
|
|
#{e\ 1511}#
|
|
#{r\ 1585}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 149}#
|
|
#{e\ 1588}#
|
|
#{mod\ 1514}#)
|
|
(if (memq (quote load) #{esew\ 1487}#)
|
|
#{e\ 1588}#
|
|
(#{chi-void\ 339}#))))
|
|
(if (memq (quote load) #{esew\ 1487}#)
|
|
(#{chi-install-global\ 317}#
|
|
#{n\ 1584}#
|
|
(#{chi\ 325}#
|
|
#{e\ 1511}#
|
|
#{r\ 1585}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))
|
|
(#{chi-void\ 339}#)))
|
|
(if (memv #{m\ 1486}# (quote (c&e)))
|
|
(let ((#{e\ 1591}#
|
|
(#{chi-install-global\ 317}#
|
|
#{n\ 1584}#
|
|
(#{chi\ 325}#
|
|
#{e\ 1511}#
|
|
#{r\ 1585}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 149}#
|
|
#{e\ 1591}#
|
|
#{mod\ 1514}#)
|
|
#{e\ 1591}#))
|
|
(begin
|
|
(if (memq (quote eval) #{esew\ 1487}#)
|
|
(#{top-level-eval-hook\ 149}#
|
|
(#{chi-install-global\ 317}#
|
|
#{n\ 1584}#
|
|
(#{chi\ 325}#
|
|
#{e\ 1511}#
|
|
#{r\ 1585}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))
|
|
#{mod\ 1514}#))
|
|
(#{chi-void\ 339}#)))))
|
|
(if (memv #{type\ 1509}# (quote (define-form)))
|
|
(let ((#{n\ 1596}#
|
|
(#{id-var-name\ 297}#
|
|
#{value\ 1510}#
|
|
#{w\ 1512}#)))
|
|
(let ((#{type\ 1598}#
|
|
(#{binding-type\ 223}#
|
|
(#{lookup\ 234}#
|
|
#{n\ 1596}#
|
|
#{r\ 1484}#
|
|
#{mod\ 1514}#))))
|
|
(if (memv #{type\ 1598}#
|
|
'(global core macro module-ref))
|
|
(begin
|
|
(if (if (not (module-local-variable
|
|
(current-module)
|
|
#{n\ 1596}#))
|
|
(current-module)
|
|
#f)
|
|
(let ((#{old\ 1603}#
|
|
(module-variable
|
|
(current-module)
|
|
#{n\ 1596}#)))
|
|
(module-define!
|
|
(current-module)
|
|
#{n\ 1596}#
|
|
(if (variable? #{old\ 1603}#)
|
|
(variable-ref #{old\ 1603}#)
|
|
#f))))
|
|
(let ((#{x\ 1606}#
|
|
(#{build-global-definition\ 180}#
|
|
#{s\ 1513}#
|
|
#{n\ 1596}#
|
|
(#{chi\ 325}#
|
|
#{e\ 1511}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))))
|
|
(begin
|
|
(if (eq? #{m\ 1486}# (quote c&e))
|
|
(#{top-level-eval-hook\ 149}#
|
|
#{x\ 1606}#
|
|
#{mod\ 1514}#))
|
|
#{x\ 1606}#)))
|
|
(if (memv #{type\ 1598}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"identifier out of context"
|
|
#{e\ 1511}#
|
|
(#{wrap\ 309}#
|
|
#{value\ 1510}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))
|
|
(syntax-violation
|
|
#f
|
|
"cannot define keyword at top level"
|
|
#{e\ 1511}#
|
|
(#{wrap\ 309}#
|
|
#{value\ 1510}#
|
|
#{w\ 1512}#
|
|
#{mod\ 1514}#))))))
|
|
(let ((#{x\ 1612}#
|
|
(#{chi-expr\ 327}#
|
|
#{type\ 1509}#
|
|
#{value\ 1510}#
|
|
#{e\ 1511}#
|
|
#{r\ 1484}#
|
|
#{w\ 1512}#
|
|
#{s\ 1513}#
|
|
#{mod\ 1514}#)))
|
|
(begin
|
|
(if (eq? #{m\ 1486}# (quote c&e))
|
|
(#{top-level-eval-hook\ 149}#
|
|
#{x\ 1612}#
|
|
#{mod\ 1514}#))
|
|
#{x\ 1612}#)))))))))))
|
|
(#{syntax-type\ 321}#
|
|
(lambda (#{e\ 1613}#
|
|
#{r\ 1614}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1618}#
|
|
#{for-car?\ 1619}#)
|
|
(if (symbol? #{e\ 1613}#)
|
|
(let ((#{n\ 1631}#
|
|
(#{id-var-name\ 297}# #{e\ 1613}# #{w\ 1615}#)))
|
|
(let ((#{b\ 1633}#
|
|
(#{lookup\ 234}#
|
|
#{n\ 1631}#
|
|
#{r\ 1614}#
|
|
#{mod\ 1618}#)))
|
|
(let ((#{type\ 1635}#
|
|
(#{binding-type\ 223}# #{b\ 1633}#)))
|
|
(if (memv #{type\ 1635}# (quote (lexical)))
|
|
(values
|
|
#{type\ 1635}#
|
|
(#{binding-value\ 225}# #{b\ 1633}#)
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{type\ 1635}# (quote (global)))
|
|
(values
|
|
#{type\ 1635}#
|
|
#{n\ 1631}#
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{type\ 1635}# (quote (macro)))
|
|
(if #{for-car?\ 1619}#
|
|
(values
|
|
#{type\ 1635}#
|
|
(#{binding-value\ 225}# #{b\ 1633}#)
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(#{syntax-type\ 321}#
|
|
(#{chi-macro\ 331}#
|
|
(#{binding-value\ 225}# #{b\ 1633}#)
|
|
#{e\ 1613}#
|
|
#{r\ 1614}#
|
|
#{w\ 1615}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1618}#)
|
|
#{r\ 1614}#
|
|
'(())
|
|
#{s\ 1616}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1618}#
|
|
#f))
|
|
(values
|
|
#{type\ 1635}#
|
|
(#{binding-value\ 225}# #{b\ 1633}#)
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)))))))
|
|
(if (pair? #{e\ 1613}#)
|
|
(let ((#{first\ 1644}# (car #{e\ 1613}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 321}#
|
|
#{first\ 1644}#
|
|
#{r\ 1614}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1618}#
|
|
#t))
|
|
(lambda (#{ftype\ 1645}#
|
|
#{fval\ 1646}#
|
|
#{fe\ 1647}#
|
|
#{fw\ 1648}#
|
|
#{fs\ 1649}#
|
|
#{fmod\ 1650}#)
|
|
(if (memv #{ftype\ 1645}# (quote (lexical)))
|
|
(values
|
|
'lexical-call
|
|
#{fval\ 1646}#
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{ftype\ 1645}# (quote (global)))
|
|
(values
|
|
'global-call
|
|
(#{make-syntax-object\ 202}#
|
|
#{fval\ 1646}#
|
|
#{w\ 1615}#
|
|
#{fmod\ 1650}#)
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{ftype\ 1645}# (quote (macro)))
|
|
(#{syntax-type\ 321}#
|
|
(#{chi-macro\ 331}#
|
|
#{fval\ 1646}#
|
|
#{e\ 1613}#
|
|
#{r\ 1614}#
|
|
#{w\ 1615}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1618}#)
|
|
#{r\ 1614}#
|
|
'(())
|
|
#{s\ 1616}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1618}#
|
|
#{for-car?\ 1619}#)
|
|
(if (memv #{ftype\ 1645}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{fval\ 1646}# #{e\ 1613}#))
|
|
(lambda (#{sym\ 1662}# #{mod\ 1663}#)
|
|
(#{syntax-type\ 321}#
|
|
#{sym\ 1662}#
|
|
#{r\ 1614}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{rib\ 1617}#
|
|
#{mod\ 1663}#
|
|
#{for-car?\ 1619}#)))
|
|
(if (memv #{ftype\ 1645}# (quote (core)))
|
|
(values
|
|
'core-form
|
|
#{fval\ 1646}#
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{ftype\ 1645}#
|
|
'(local-syntax))
|
|
(values
|
|
'local-syntax-form
|
|
#{fval\ 1646}#
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{ftype\ 1645}# (quote (begin)))
|
|
(values
|
|
'begin-form
|
|
#f
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{ftype\ 1645}#
|
|
'(eval-when))
|
|
(values
|
|
'eval-when-form
|
|
#f
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(if (memv #{ftype\ 1645}#
|
|
'(define))
|
|
((lambda (#{tmp\ 1671}#)
|
|
((lambda (#{tmp\ 1672}#)
|
|
(if (if #{tmp\ 1672}#
|
|
(apply (lambda (#{_\ 1676}#
|
|
#{name\ 1677}#
|
|
#{val\ 1678}#)
|
|
(#{id?\ 240}#
|
|
#{name\ 1677}#))
|
|
#{tmp\ 1672}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1682}#
|
|
#{name\ 1683}#
|
|
#{val\ 1684}#)
|
|
(values
|
|
'define-form
|
|
#{name\ 1683}#
|
|
#{val\ 1684}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#))
|
|
#{tmp\ 1672}#)
|
|
((lambda (#{tmp\ 1685}#)
|
|
(if (if #{tmp\ 1685}#
|
|
(apply (lambda (#{_\ 1691}#
|
|
#{name\ 1692}#
|
|
#{args\ 1693}#
|
|
#{e1\ 1694}#
|
|
#{e2\ 1695}#)
|
|
(if (#{id?\ 240}#
|
|
#{name\ 1692}#)
|
|
(#{valid-bound-ids?\ 303}#
|
|
(#{lambda-var-list\ 355}#
|
|
#{args\ 1693}#))
|
|
#f))
|
|
#{tmp\ 1685}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1703}#
|
|
#{name\ 1704}#
|
|
#{args\ 1705}#
|
|
#{e1\ 1706}#
|
|
#{e2\ 1707}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 309}#
|
|
#{name\ 1704}#
|
|
#{w\ 1615}#
|
|
#{mod\ 1618}#)
|
|
(#{decorate-source\ 158}#
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name
|
|
args
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1698"
|
|
"i1699"
|
|
"i1700"
|
|
"i1701"
|
|
"i1702"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1651"
|
|
"i1652"
|
|
"i1653"
|
|
"i1654"
|
|
"i1655"
|
|
"i1656"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1643"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1620"
|
|
"i1621"
|
|
"i1622"
|
|
"i1623"
|
|
"i1624"
|
|
"i1625"
|
|
"i1626"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i39"
|
|
"i37")))
|
|
(hygiene
|
|
guile))
|
|
(#{wrap\ 309}#
|
|
(cons #{args\ 1705}#
|
|
(cons #{e1\ 1706}#
|
|
#{e2\ 1707}#))
|
|
#{w\ 1615}#
|
|
#{mod\ 1618}#))
|
|
#{s\ 1616}#)
|
|
'(())
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#))
|
|
#{tmp\ 1685}#)
|
|
((lambda (#{tmp\ 1710}#)
|
|
(if (if #{tmp\ 1710}#
|
|
(apply (lambda (#{_\ 1713}#
|
|
#{name\ 1714}#)
|
|
(#{id?\ 240}#
|
|
#{name\ 1714}#))
|
|
#{tmp\ 1710}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1717}#
|
|
#{name\ 1718}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 309}#
|
|
#{name\ 1718}#
|
|
#{w\ 1615}#
|
|
#{mod\ 1618}#)
|
|
'(#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i1715"
|
|
"i1716"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1651"
|
|
"i1652"
|
|
"i1653"
|
|
"i1654"
|
|
"i1655"
|
|
"i1656"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1643"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1620"
|
|
"i1621"
|
|
"i1622"
|
|
"i1623"
|
|
"i1624"
|
|
"i1625"
|
|
"i1626"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i39"
|
|
"i37")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i1715"
|
|
"i1716"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1651"
|
|
"i1652"
|
|
"i1653"
|
|
"i1654"
|
|
"i1655"
|
|
"i1656"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1643"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1620"
|
|
"i1621"
|
|
"i1622"
|
|
"i1623"
|
|
"i1624"
|
|
"i1625"
|
|
"i1626"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i39"
|
|
"i37")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i1715"
|
|
"i1716"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1651"
|
|
"i1652"
|
|
"i1653"
|
|
"i1654"
|
|
"i1655"
|
|
"i1656"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1643"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1620"
|
|
"i1621"
|
|
"i1622"
|
|
"i1623"
|
|
"i1624"
|
|
"i1625"
|
|
"i1626"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i39"
|
|
"i37")))
|
|
(hygiene
|
|
guile)))
|
|
'(())
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#))
|
|
#{tmp\ 1710}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1671}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1671}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1671}#
|
|
'(any (any . any)
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1671}#
|
|
'(any any any))))
|
|
#{e\ 1613}#)
|
|
(if (memv #{ftype\ 1645}#
|
|
'(define-syntax))
|
|
((lambda (#{tmp\ 1721}#)
|
|
((lambda (#{tmp\ 1722}#)
|
|
(if (if #{tmp\ 1722}#
|
|
(apply (lambda (#{_\ 1726}#
|
|
#{name\ 1727}#
|
|
#{val\ 1728}#)
|
|
(#{id?\ 240}#
|
|
#{name\ 1727}#))
|
|
#{tmp\ 1722}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1732}#
|
|
#{name\ 1733}#
|
|
#{val\ 1734}#)
|
|
(values
|
|
'define-syntax-form
|
|
#{name\ 1733}#
|
|
#{val\ 1734}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#))
|
|
#{tmp\ 1722}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1721}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1721}#
|
|
'(any any any))))
|
|
#{e\ 1613}#)
|
|
(values
|
|
'call
|
|
#f
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#))))))))))))))
|
|
(if (#{syntax-object?\ 204}# #{e\ 1613}#)
|
|
(#{syntax-type\ 321}#
|
|
(#{syntax-object-expression\ 206}# #{e\ 1613}#)
|
|
#{r\ 1614}#
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 1615}#
|
|
(#{syntax-object-wrap\ 208}# #{e\ 1613}#))
|
|
#{s\ 1616}#
|
|
#{rib\ 1617}#
|
|
(let ((#{t\ 1740}#
|
|
(#{syntax-object-module\ 210}# #{e\ 1613}#)))
|
|
(if #{t\ 1740}# #{t\ 1740}# #{mod\ 1618}#))
|
|
#{for-car?\ 1619}#)
|
|
(if (self-evaluating? #{e\ 1613}#)
|
|
(values
|
|
'constant
|
|
#f
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)
|
|
(values
|
|
'other
|
|
#f
|
|
#{e\ 1613}#
|
|
#{w\ 1615}#
|
|
#{s\ 1616}#
|
|
#{mod\ 1618}#)))))))
|
|
(#{chi-when-list\ 319}#
|
|
(lambda (#{e\ 1745}# #{when-list\ 1746}# #{w\ 1747}#)
|
|
(letrec ((#{f\ 1754}#
|
|
(lambda (#{when-list\ 1755}# #{situations\ 1756}#)
|
|
(if (null? #{when-list\ 1755}#)
|
|
#{situations\ 1756}#
|
|
(#{f\ 1754}#
|
|
(cdr #{when-list\ 1755}#)
|
|
(cons (let ((#{x\ 1758}#
|
|
(car #{when-list\ 1755}#)))
|
|
(if (#{free-id=?\ 299}#
|
|
#{x\ 1758}#
|
|
'#(syntax-object
|
|
compile
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i1757"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i1751" "i1752" "i1753"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i1748" "i1749" "i1750"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile)))
|
|
'compile
|
|
(if (#{free-id=?\ 299}#
|
|
#{x\ 1758}#
|
|
'#(syntax-object
|
|
load
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i1757"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i1751"
|
|
"i1752"
|
|
"i1753"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i1748"
|
|
"i1749"
|
|
"i1750"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile)))
|
|
'load
|
|
(if (#{free-id=?\ 299}#
|
|
#{x\ 1758}#
|
|
'#(syntax-object
|
|
eval
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i1757"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
when-list
|
|
situations)
|
|
#((top) (top) (top))
|
|
#("i1751"
|
|
"i1752"
|
|
"i1753"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i1748"
|
|
"i1749"
|
|
"i1750"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile)))
|
|
'eval
|
|
(syntax-violation
|
|
'eval-when
|
|
"invalid situation"
|
|
#{e\ 1745}#
|
|
(#{wrap\ 309}#
|
|
#{x\ 1758}#
|
|
#{w\ 1747}#
|
|
#f))))))
|
|
#{situations\ 1756}#))))))
|
|
(#{f\ 1754}# #{when-list\ 1746}# (quote ())))))
|
|
(#{chi-install-global\ 317}#
|
|
(lambda (#{name\ 1766}# #{e\ 1767}#)
|
|
(#{build-global-definition\ 180}#
|
|
#f
|
|
#{name\ 1766}#
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}#
|
|
#f
|
|
'make-syntax-transformer)
|
|
(list (#{build-data\ 190}# #f #{name\ 1766}#)
|
|
(#{build-data\ 190}# #f (quote macro))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}# #f (quote cons))
|
|
(list #{e\ 1767}#
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}#
|
|
#f
|
|
'module-name)
|
|
(list (#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}#
|
|
#f
|
|
'current-module)
|
|
'()))))))))))
|
|
(#{chi-top-sequence\ 315}#
|
|
(lambda (#{body\ 1781}#
|
|
#{r\ 1782}#
|
|
#{w\ 1783}#
|
|
#{s\ 1784}#
|
|
#{m\ 1785}#
|
|
#{esew\ 1786}#
|
|
#{mod\ 1787}#)
|
|
(#{build-sequence\ 192}#
|
|
#{s\ 1784}#
|
|
(letrec ((#{dobody\ 1802}#
|
|
(lambda (#{body\ 1803}#
|
|
#{r\ 1804}#
|
|
#{w\ 1805}#
|
|
#{m\ 1806}#
|
|
#{esew\ 1807}#
|
|
#{mod\ 1808}#)
|
|
(if (null? #{body\ 1803}#)
|
|
'()
|
|
(let ((#{first\ 1810}#
|
|
(#{chi-top\ 323}#
|
|
(car #{body\ 1803}#)
|
|
#{r\ 1804}#
|
|
#{w\ 1805}#
|
|
#{m\ 1806}#
|
|
#{esew\ 1807}#
|
|
#{mod\ 1808}#)))
|
|
(cons #{first\ 1810}#
|
|
(#{dobody\ 1802}#
|
|
(cdr #{body\ 1803}#)
|
|
#{r\ 1804}#
|
|
#{w\ 1805}#
|
|
#{m\ 1806}#
|
|
#{esew\ 1807}#
|
|
#{mod\ 1808}#)))))))
|
|
(#{dobody\ 1802}#
|
|
#{body\ 1781}#
|
|
#{r\ 1782}#
|
|
#{w\ 1783}#
|
|
#{m\ 1785}#
|
|
#{esew\ 1786}#
|
|
#{mod\ 1787}#)))))
|
|
(#{chi-sequence\ 313}#
|
|
(lambda (#{body\ 1811}#
|
|
#{r\ 1812}#
|
|
#{w\ 1813}#
|
|
#{s\ 1814}#
|
|
#{mod\ 1815}#)
|
|
(#{build-sequence\ 192}#
|
|
#{s\ 1814}#
|
|
(letrec ((#{dobody\ 1826}#
|
|
(lambda (#{body\ 1827}#
|
|
#{r\ 1828}#
|
|
#{w\ 1829}#
|
|
#{mod\ 1830}#)
|
|
(if (null? #{body\ 1827}#)
|
|
'()
|
|
(let ((#{first\ 1832}#
|
|
(#{chi\ 325}#
|
|
(car #{body\ 1827}#)
|
|
#{r\ 1828}#
|
|
#{w\ 1829}#
|
|
#{mod\ 1830}#)))
|
|
(cons #{first\ 1832}#
|
|
(#{dobody\ 1826}#
|
|
(cdr #{body\ 1827}#)
|
|
#{r\ 1828}#
|
|
#{w\ 1829}#
|
|
#{mod\ 1830}#)))))))
|
|
(#{dobody\ 1826}#
|
|
#{body\ 1811}#
|
|
#{r\ 1812}#
|
|
#{w\ 1813}#
|
|
#{mod\ 1815}#)))))
|
|
(#{source-wrap\ 311}#
|
|
(lambda (#{x\ 1833}#
|
|
#{w\ 1834}#
|
|
#{s\ 1835}#
|
|
#{defmod\ 1836}#)
|
|
(#{wrap\ 309}#
|
|
(#{decorate-source\ 158}#
|
|
#{x\ 1833}#
|
|
#{s\ 1835}#)
|
|
#{w\ 1834}#
|
|
#{defmod\ 1836}#)))
|
|
(#{wrap\ 309}#
|
|
(lambda (#{x\ 1841}# #{w\ 1842}# #{defmod\ 1843}#)
|
|
(if (if (null? (#{wrap-marks\ 247}# #{w\ 1842}#))
|
|
(null? (#{wrap-subst\ 249}# #{w\ 1842}#))
|
|
#f)
|
|
#{x\ 1841}#
|
|
(if (#{syntax-object?\ 204}# #{x\ 1841}#)
|
|
(#{make-syntax-object\ 202}#
|
|
(#{syntax-object-expression\ 206}# #{x\ 1841}#)
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 1842}#
|
|
(#{syntax-object-wrap\ 208}# #{x\ 1841}#))
|
|
(#{syntax-object-module\ 210}# #{x\ 1841}#))
|
|
(if (null? #{x\ 1841}#)
|
|
#{x\ 1841}#
|
|
(#{make-syntax-object\ 202}#
|
|
#{x\ 1841}#
|
|
#{w\ 1842}#
|
|
#{defmod\ 1843}#))))))
|
|
(#{bound-id-member?\ 307}#
|
|
(lambda (#{x\ 1856}# #{list\ 1857}#)
|
|
(if (not (null? #{list\ 1857}#))
|
|
(let ((#{t\ 1864}#
|
|
(#{bound-id=?\ 301}#
|
|
#{x\ 1856}#
|
|
(car #{list\ 1857}#))))
|
|
(if #{t\ 1864}#
|
|
#{t\ 1864}#
|
|
(#{bound-id-member?\ 307}#
|
|
#{x\ 1856}#
|
|
(cdr #{list\ 1857}#))))
|
|
#f)))
|
|
(#{distinct-bound-ids?\ 305}#
|
|
(lambda (#{ids\ 1866}#)
|
|
(letrec ((#{distinct?\ 1870}#
|
|
(lambda (#{ids\ 1871}#)
|
|
(let ((#{t\ 1874}# (null? #{ids\ 1871}#)))
|
|
(if #{t\ 1874}#
|
|
#{t\ 1874}#
|
|
(if (not (#{bound-id-member?\ 307}#
|
|
(car #{ids\ 1871}#)
|
|
(cdr #{ids\ 1871}#)))
|
|
(#{distinct?\ 1870}# (cdr #{ids\ 1871}#))
|
|
#f))))))
|
|
(#{distinct?\ 1870}# #{ids\ 1866}#))))
|
|
(#{valid-bound-ids?\ 303}#
|
|
(lambda (#{ids\ 1878}#)
|
|
(if (letrec ((#{all-ids?\ 1883}#
|
|
(lambda (#{ids\ 1884}#)
|
|
(let ((#{t\ 1887}# (null? #{ids\ 1884}#)))
|
|
(if #{t\ 1887}#
|
|
#{t\ 1887}#
|
|
(if (#{id?\ 240}# (car #{ids\ 1884}#))
|
|
(#{all-ids?\ 1883}# (cdr #{ids\ 1884}#))
|
|
#f))))))
|
|
(#{all-ids?\ 1883}# #{ids\ 1878}#))
|
|
(#{distinct-bound-ids?\ 305}# #{ids\ 1878}#)
|
|
#f)))
|
|
(#{bound-id=?\ 301}#
|
|
(lambda (#{i\ 1892}# #{j\ 1893}#)
|
|
(if (if (#{syntax-object?\ 204}# #{i\ 1892}#)
|
|
(#{syntax-object?\ 204}# #{j\ 1893}#)
|
|
#f)
|
|
(if (eq? (#{syntax-object-expression\ 206}# #{i\ 1892}#)
|
|
(#{syntax-object-expression\ 206}# #{j\ 1893}#))
|
|
(#{same-marks?\ 295}#
|
|
(#{wrap-marks\ 247}#
|
|
(#{syntax-object-wrap\ 208}# #{i\ 1892}#))
|
|
(#{wrap-marks\ 247}#
|
|
(#{syntax-object-wrap\ 208}# #{j\ 1893}#)))
|
|
#f)
|
|
(eq? #{i\ 1892}# #{j\ 1893}#))))
|
|
(#{free-id=?\ 299}#
|
|
(lambda (#{i\ 1900}# #{j\ 1901}#)
|
|
(if (eq? (let ((#{x\ 1907}# #{i\ 1900}#))
|
|
(if (#{syntax-object?\ 204}# #{x\ 1907}#)
|
|
(#{syntax-object-expression\ 206}# #{x\ 1907}#)
|
|
#{x\ 1907}#))
|
|
(let ((#{x\ 1910}# #{j\ 1901}#))
|
|
(if (#{syntax-object?\ 204}# #{x\ 1910}#)
|
|
(#{syntax-object-expression\ 206}# #{x\ 1910}#)
|
|
#{x\ 1910}#)))
|
|
(eq? (#{id-var-name\ 297}# #{i\ 1900}# (quote (())))
|
|
(#{id-var-name\ 297}# #{j\ 1901}# (quote (()))))
|
|
#f)))
|
|
(#{id-var-name\ 297}#
|
|
(lambda (#{id\ 1914}# #{w\ 1915}#)
|
|
(letrec ((#{search-vector-rib\ 1924}#
|
|
(lambda (#{sym\ 1936}#
|
|
#{subst\ 1937}#
|
|
#{marks\ 1938}#
|
|
#{symnames\ 1939}#
|
|
#{ribcage\ 1940}#)
|
|
(let ((#{n\ 1947}#
|
|
(vector-length #{symnames\ 1939}#)))
|
|
(letrec ((#{f\ 1950}#
|
|
(lambda (#{i\ 1951}#)
|
|
(if (#{fx=\ 145}#
|
|
#{i\ 1951}#
|
|
#{n\ 1947}#)
|
|
(#{search\ 1920}#
|
|
#{sym\ 1936}#
|
|
(cdr #{subst\ 1937}#)
|
|
#{marks\ 1938}#)
|
|
(if (if (eq? (vector-ref
|
|
#{symnames\ 1939}#
|
|
#{i\ 1951}#)
|
|
#{sym\ 1936}#)
|
|
(#{same-marks?\ 295}#
|
|
#{marks\ 1938}#
|
|
(vector-ref
|
|
(#{ribcage-marks\ 267}#
|
|
#{ribcage\ 1940}#)
|
|
#{i\ 1951}#))
|
|
#f)
|
|
(values
|
|
(vector-ref
|
|
(#{ribcage-labels\ 269}#
|
|
#{ribcage\ 1940}#)
|
|
#{i\ 1951}#)
|
|
#{marks\ 1938}#)
|
|
(#{f\ 1950}#
|
|
(#{fx+\ 141}#
|
|
#{i\ 1951}#
|
|
1)))))))
|
|
(#{f\ 1950}# 0)))))
|
|
(#{search-list-rib\ 1922}#
|
|
(lambda (#{sym\ 1959}#
|
|
#{subst\ 1960}#
|
|
#{marks\ 1961}#
|
|
#{symnames\ 1962}#
|
|
#{ribcage\ 1963}#)
|
|
(letrec ((#{f\ 1972}#
|
|
(lambda (#{symnames\ 1973}# #{i\ 1974}#)
|
|
(if (null? #{symnames\ 1973}#)
|
|
(#{search\ 1920}#
|
|
#{sym\ 1959}#
|
|
(cdr #{subst\ 1960}#)
|
|
#{marks\ 1961}#)
|
|
(if (if (eq? (car #{symnames\ 1973}#)
|
|
#{sym\ 1959}#)
|
|
(#{same-marks?\ 295}#
|
|
#{marks\ 1961}#
|
|
(list-ref
|
|
(#{ribcage-marks\ 267}#
|
|
#{ribcage\ 1963}#)
|
|
#{i\ 1974}#))
|
|
#f)
|
|
(values
|
|
(list-ref
|
|
(#{ribcage-labels\ 269}#
|
|
#{ribcage\ 1963}#)
|
|
#{i\ 1974}#)
|
|
#{marks\ 1961}#)
|
|
(#{f\ 1972}#
|
|
(cdr #{symnames\ 1973}#)
|
|
(#{fx+\ 141}#
|
|
#{i\ 1974}#
|
|
1)))))))
|
|
(#{f\ 1972}# #{symnames\ 1962}# 0))))
|
|
(#{search\ 1920}#
|
|
(lambda (#{sym\ 1982}#
|
|
#{subst\ 1983}#
|
|
#{marks\ 1984}#)
|
|
(if (null? #{subst\ 1983}#)
|
|
(values #f #{marks\ 1984}#)
|
|
(let ((#{fst\ 1989}# (car #{subst\ 1983}#)))
|
|
(if (eq? #{fst\ 1989}# (quote shift))
|
|
(#{search\ 1920}#
|
|
#{sym\ 1982}#
|
|
(cdr #{subst\ 1983}#)
|
|
(cdr #{marks\ 1984}#))
|
|
(let ((#{symnames\ 1991}#
|
|
(#{ribcage-symnames\ 265}#
|
|
#{fst\ 1989}#)))
|
|
(if (vector? #{symnames\ 1991}#)
|
|
(#{search-vector-rib\ 1924}#
|
|
#{sym\ 1982}#
|
|
#{subst\ 1983}#
|
|
#{marks\ 1984}#
|
|
#{symnames\ 1991}#
|
|
#{fst\ 1989}#)
|
|
(#{search-list-rib\ 1922}#
|
|
#{sym\ 1982}#
|
|
#{subst\ 1983}#
|
|
#{marks\ 1984}#
|
|
#{symnames\ 1991}#
|
|
#{fst\ 1989}#)))))))))
|
|
(if (symbol? #{id\ 1914}#)
|
|
(let ((#{t\ 1994}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 1920}#
|
|
#{id\ 1914}#
|
|
(#{wrap-subst\ 249}# #{w\ 1915}#)
|
|
(#{wrap-marks\ 247}# #{w\ 1915}#)))
|
|
(lambda (#{x\ 1996}# . #{ignore\ 1997}#)
|
|
#{x\ 1996}#))))
|
|
(if #{t\ 1994}# #{t\ 1994}# #{id\ 1914}#))
|
|
(if (#{syntax-object?\ 204}# #{id\ 1914}#)
|
|
(let ((#{id\ 2005}#
|
|
(#{syntax-object-expression\ 206}# #{id\ 1914}#))
|
|
(#{w1\ 2006}#
|
|
(#{syntax-object-wrap\ 208}# #{id\ 1914}#)))
|
|
(let ((#{marks\ 2008}#
|
|
(#{join-marks\ 293}#
|
|
(#{wrap-marks\ 247}# #{w\ 1915}#)
|
|
(#{wrap-marks\ 247}# #{w1\ 2006}#))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 1920}#
|
|
#{id\ 2005}#
|
|
(#{wrap-subst\ 249}# #{w\ 1915}#)
|
|
#{marks\ 2008}#))
|
|
(lambda (#{new-id\ 2009}# #{marks\ 2010}#)
|
|
(let ((#{t\ 2015}# #{new-id\ 2009}#))
|
|
(if #{t\ 2015}#
|
|
#{t\ 2015}#
|
|
(let ((#{t\ 2018}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 1920}#
|
|
#{id\ 2005}#
|
|
(#{wrap-subst\ 249}#
|
|
#{w1\ 2006}#)
|
|
#{marks\ 2010}#))
|
|
(lambda (#{x\ 2020}#
|
|
.
|
|
#{ignore\ 2021}#)
|
|
#{x\ 2020}#))))
|
|
(if #{t\ 2018}#
|
|
#{t\ 2018}#
|
|
#{id\ 2005}#))))))))
|
|
(syntax-violation
|
|
'id-var-name
|
|
"invalid id"
|
|
#{id\ 1914}#))))))
|
|
(#{same-marks?\ 295}#
|
|
(lambda (#{x\ 2026}# #{y\ 2027}#)
|
|
(let ((#{t\ 2032}# (eq? #{x\ 2026}# #{y\ 2027}#)))
|
|
(if #{t\ 2032}#
|
|
#{t\ 2032}#
|
|
(if (not (null? #{x\ 2026}#))
|
|
(if (not (null? #{y\ 2027}#))
|
|
(if (eq? (car #{x\ 2026}#) (car #{y\ 2027}#))
|
|
(#{same-marks?\ 295}#
|
|
(cdr #{x\ 2026}#)
|
|
(cdr #{y\ 2027}#))
|
|
#f)
|
|
#f)
|
|
#f)))))
|
|
(#{join-marks\ 293}#
|
|
(lambda (#{m1\ 2038}# #{m2\ 2039}#)
|
|
(#{smart-append\ 289}# #{m1\ 2038}# #{m2\ 2039}#)))
|
|
(#{join-wraps\ 291}#
|
|
(lambda (#{w1\ 2042}# #{w2\ 2043}#)
|
|
(let ((#{m1\ 2048}# (#{wrap-marks\ 247}# #{w1\ 2042}#))
|
|
(#{s1\ 2049}# (#{wrap-subst\ 249}# #{w1\ 2042}#)))
|
|
(if (null? #{m1\ 2048}#)
|
|
(if (null? #{s1\ 2049}#)
|
|
#{w2\ 2043}#
|
|
(#{make-wrap\ 245}#
|
|
(#{wrap-marks\ 247}# #{w2\ 2043}#)
|
|
(#{smart-append\ 289}#
|
|
#{s1\ 2049}#
|
|
(#{wrap-subst\ 249}# #{w2\ 2043}#))))
|
|
(#{make-wrap\ 245}#
|
|
(#{smart-append\ 289}#
|
|
#{m1\ 2048}#
|
|
(#{wrap-marks\ 247}# #{w2\ 2043}#))
|
|
(#{smart-append\ 289}#
|
|
#{s1\ 2049}#
|
|
(#{wrap-subst\ 249}# #{w2\ 2043}#)))))))
|
|
(#{smart-append\ 289}#
|
|
(lambda (#{m1\ 2050}# #{m2\ 2051}#)
|
|
(if (null? #{m2\ 2051}#)
|
|
#{m1\ 2050}#
|
|
(append #{m1\ 2050}# #{m2\ 2051}#))))
|
|
(#{make-binding-wrap\ 287}#
|
|
(lambda (#{ids\ 2054}# #{labels\ 2055}# #{w\ 2056}#)
|
|
(if (null? #{ids\ 2054}#)
|
|
#{w\ 2056}#
|
|
(#{make-wrap\ 245}#
|
|
(#{wrap-marks\ 247}# #{w\ 2056}#)
|
|
(cons (let ((#{labelvec\ 2061}#
|
|
(list->vector #{labels\ 2055}#)))
|
|
(let ((#{n\ 2063}#
|
|
(vector-length #{labelvec\ 2061}#)))
|
|
(let ((#{symnamevec\ 2066}#
|
|
(make-vector #{n\ 2063}#))
|
|
(#{marksvec\ 2067}#
|
|
(make-vector #{n\ 2063}#)))
|
|
(begin
|
|
(letrec ((#{f\ 2071}#
|
|
(lambda (#{ids\ 2072}# #{i\ 2073}#)
|
|
(if (not (null? #{ids\ 2072}#))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{id-sym-name&marks\ 243}#
|
|
(car #{ids\ 2072}#)
|
|
#{w\ 2056}#))
|
|
(lambda (#{symname\ 2074}#
|
|
#{marks\ 2075}#)
|
|
(begin
|
|
(vector-set!
|
|
#{symnamevec\ 2066}#
|
|
#{i\ 2073}#
|
|
#{symname\ 2074}#)
|
|
(vector-set!
|
|
#{marksvec\ 2067}#
|
|
#{i\ 2073}#
|
|
#{marks\ 2075}#)
|
|
(#{f\ 2071}#
|
|
(cdr #{ids\ 2072}#)
|
|
(#{fx+\ 141}#
|
|
#{i\ 2073}#
|
|
1)))))))))
|
|
(#{f\ 2071}# #{ids\ 2054}# 0))
|
|
(#{make-ribcage\ 261}#
|
|
#{symnamevec\ 2066}#
|
|
#{marksvec\ 2067}#
|
|
#{labelvec\ 2061}#)))))
|
|
(#{wrap-subst\ 249}# #{w\ 2056}#))))))
|
|
(#{extend-ribcage!\ 285}#
|
|
(lambda (#{ribcage\ 2078}# #{id\ 2079}# #{label\ 2080}#)
|
|
(begin
|
|
(#{set-ribcage-symnames!\ 271}#
|
|
#{ribcage\ 2078}#
|
|
(cons (#{syntax-object-expression\ 206}# #{id\ 2079}#)
|
|
(#{ribcage-symnames\ 265}# #{ribcage\ 2078}#)))
|
|
(#{set-ribcage-marks!\ 273}#
|
|
#{ribcage\ 2078}#
|
|
(cons (#{wrap-marks\ 247}#
|
|
(#{syntax-object-wrap\ 208}# #{id\ 2079}#))
|
|
(#{ribcage-marks\ 267}# #{ribcage\ 2078}#)))
|
|
(#{set-ribcage-labels!\ 275}#
|
|
#{ribcage\ 2078}#
|
|
(cons #{label\ 2080}#
|
|
(#{ribcage-labels\ 269}# #{ribcage\ 2078}#))))))
|
|
(#{anti-mark\ 281}#
|
|
(lambda (#{w\ 2084}#)
|
|
(#{make-wrap\ 245}#
|
|
(cons #f (#{wrap-marks\ 247}# #{w\ 2084}#))
|
|
(cons 'shift
|
|
(#{wrap-subst\ 249}# #{w\ 2084}#)))))
|
|
(#{set-ribcage-labels!\ 275}#
|
|
(lambda (#{x\ 2087}# #{update\ 2088}#)
|
|
(vector-set! #{x\ 2087}# 3 #{update\ 2088}#)))
|
|
(#{set-ribcage-marks!\ 273}#
|
|
(lambda (#{x\ 2091}# #{update\ 2092}#)
|
|
(vector-set! #{x\ 2091}# 2 #{update\ 2092}#)))
|
|
(#{set-ribcage-symnames!\ 271}#
|
|
(lambda (#{x\ 2095}# #{update\ 2096}#)
|
|
(vector-set! #{x\ 2095}# 1 #{update\ 2096}#)))
|
|
(#{ribcage-labels\ 269}#
|
|
(lambda (#{x\ 2099}#) (vector-ref #{x\ 2099}# 3)))
|
|
(#{ribcage-marks\ 267}#
|
|
(lambda (#{x\ 2101}#) (vector-ref #{x\ 2101}# 2)))
|
|
(#{ribcage-symnames\ 265}#
|
|
(lambda (#{x\ 2103}#) (vector-ref #{x\ 2103}# 1)))
|
|
(#{ribcage?\ 263}#
|
|
(lambda (#{x\ 2105}#)
|
|
(if (vector? #{x\ 2105}#)
|
|
(if (= (vector-length #{x\ 2105}#) 4)
|
|
(eq? (vector-ref #{x\ 2105}# 0) (quote ribcage))
|
|
#f)
|
|
#f)))
|
|
(#{make-ribcage\ 261}#
|
|
(lambda (#{symnames\ 2110}#
|
|
#{marks\ 2111}#
|
|
#{labels\ 2112}#)
|
|
(vector
|
|
'ribcage
|
|
#{symnames\ 2110}#
|
|
#{marks\ 2111}#
|
|
#{labels\ 2112}#)))
|
|
(#{gen-labels\ 258}#
|
|
(lambda (#{ls\ 2116}#)
|
|
(if (null? #{ls\ 2116}#)
|
|
'()
|
|
(cons (#{gen-label\ 256}#)
|
|
(#{gen-labels\ 258}# (cdr #{ls\ 2116}#))))))
|
|
(#{gen-label\ 256}#
|
|
(lambda () (symbol->string (gensym "i"))))
|
|
(#{wrap-subst\ 249}# cdr)
|
|
(#{wrap-marks\ 247}# car)
|
|
(#{make-wrap\ 245}# cons)
|
|
(#{id-sym-name&marks\ 243}#
|
|
(lambda (#{x\ 2118}# #{w\ 2119}#)
|
|
(if (#{syntax-object?\ 204}# #{x\ 2118}#)
|
|
(values
|
|
(#{syntax-object-expression\ 206}# #{x\ 2118}#)
|
|
(#{join-marks\ 293}#
|
|
(#{wrap-marks\ 247}# #{w\ 2119}#)
|
|
(#{wrap-marks\ 247}#
|
|
(#{syntax-object-wrap\ 208}# #{x\ 2118}#))))
|
|
(values
|
|
#{x\ 2118}#
|
|
(#{wrap-marks\ 247}# #{w\ 2119}#)))))
|
|
(#{id?\ 240}#
|
|
(lambda (#{x\ 2122}#)
|
|
(if (symbol? #{x\ 2122}#)
|
|
#t
|
|
(if (#{syntax-object?\ 204}# #{x\ 2122}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 206}# #{x\ 2122}#))
|
|
#f))))
|
|
(#{nonsymbol-id?\ 238}#
|
|
(lambda (#{x\ 2129}#)
|
|
(if (#{syntax-object?\ 204}# #{x\ 2129}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 206}# #{x\ 2129}#))
|
|
#f)))
|
|
(#{global-extend\ 236}#
|
|
(lambda (#{type\ 2133}# #{sym\ 2134}# #{val\ 2135}#)
|
|
(#{put-global-definition-hook\ 154}#
|
|
#{sym\ 2134}#
|
|
#{type\ 2133}#
|
|
#{val\ 2135}#)))
|
|
(#{lookup\ 234}#
|
|
(lambda (#{x\ 2139}# #{r\ 2140}# #{mod\ 2141}#)
|
|
(let ((#{t\ 2147}# (assq #{x\ 2139}# #{r\ 2140}#)))
|
|
(if #{t\ 2147}#
|
|
(cdr #{t\ 2147}#)
|
|
(if (symbol? #{x\ 2139}#)
|
|
(let ((#{t\ 2153}#
|
|
(#{get-global-definition-hook\ 156}#
|
|
#{x\ 2139}#
|
|
#{mod\ 2141}#)))
|
|
(if #{t\ 2153}# #{t\ 2153}# (quote (global))))
|
|
'(displaced-lexical))))))
|
|
(#{macros-only-env\ 232}#
|
|
(lambda (#{r\ 2158}#)
|
|
(if (null? #{r\ 2158}#)
|
|
'()
|
|
(let ((#{a\ 2161}# (car #{r\ 2158}#)))
|
|
(if (eq? (cadr #{a\ 2161}#) (quote macro))
|
|
(cons #{a\ 2161}#
|
|
(#{macros-only-env\ 232}# (cdr #{r\ 2158}#)))
|
|
(#{macros-only-env\ 232}# (cdr #{r\ 2158}#)))))))
|
|
(#{extend-var-env\ 230}#
|
|
(lambda (#{labels\ 2162}# #{vars\ 2163}# #{r\ 2164}#)
|
|
(if (null? #{labels\ 2162}#)
|
|
#{r\ 2164}#
|
|
(#{extend-var-env\ 230}#
|
|
(cdr #{labels\ 2162}#)
|
|
(cdr #{vars\ 2163}#)
|
|
(cons (cons (car #{labels\ 2162}#)
|
|
(cons (quote lexical) (car #{vars\ 2163}#)))
|
|
#{r\ 2164}#)))))
|
|
(#{extend-env\ 228}#
|
|
(lambda (#{labels\ 2169}# #{bindings\ 2170}# #{r\ 2171}#)
|
|
(if (null? #{labels\ 2169}#)
|
|
#{r\ 2171}#
|
|
(#{extend-env\ 228}#
|
|
(cdr #{labels\ 2169}#)
|
|
(cdr #{bindings\ 2170}#)
|
|
(cons (cons (car #{labels\ 2169}#)
|
|
(car #{bindings\ 2170}#))
|
|
#{r\ 2171}#)))))
|
|
(#{binding-value\ 225}# cdr)
|
|
(#{binding-type\ 223}# car)
|
|
(#{source-annotation\ 219}#
|
|
(lambda (#{x\ 2175}#)
|
|
(if (#{syntax-object?\ 204}# #{x\ 2175}#)
|
|
(#{source-annotation\ 219}#
|
|
(#{syntax-object-expression\ 206}# #{x\ 2175}#))
|
|
(if (pair? #{x\ 2175}#)
|
|
(let ((#{props\ 2182}# (source-properties #{x\ 2175}#)))
|
|
(if (pair? #{props\ 2182}#) #{props\ 2182}# #f))
|
|
#f))))
|
|
(#{set-syntax-object-module!\ 216}#
|
|
(lambda (#{x\ 2184}# #{update\ 2185}#)
|
|
(vector-set! #{x\ 2184}# 3 #{update\ 2185}#)))
|
|
(#{set-syntax-object-wrap!\ 214}#
|
|
(lambda (#{x\ 2188}# #{update\ 2189}#)
|
|
(vector-set! #{x\ 2188}# 2 #{update\ 2189}#)))
|
|
(#{set-syntax-object-expression!\ 212}#
|
|
(lambda (#{x\ 2192}# #{update\ 2193}#)
|
|
(vector-set! #{x\ 2192}# 1 #{update\ 2193}#)))
|
|
(#{syntax-object-module\ 210}#
|
|
(lambda (#{x\ 2196}#) (vector-ref #{x\ 2196}# 3)))
|
|
(#{syntax-object-wrap\ 208}#
|
|
(lambda (#{x\ 2198}#) (vector-ref #{x\ 2198}# 2)))
|
|
(#{syntax-object-expression\ 206}#
|
|
(lambda (#{x\ 2200}#) (vector-ref #{x\ 2200}# 1)))
|
|
(#{syntax-object?\ 204}#
|
|
(lambda (#{x\ 2202}#)
|
|
(if (vector? #{x\ 2202}#)
|
|
(if (= (vector-length #{x\ 2202}#) 4)
|
|
(eq? (vector-ref #{x\ 2202}# 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)))
|
|
(#{make-syntax-object\ 202}#
|
|
(lambda (#{expression\ 2207}#
|
|
#{wrap\ 2208}#
|
|
#{module\ 2209}#)
|
|
(vector
|
|
'syntax-object
|
|
#{expression\ 2207}#
|
|
#{wrap\ 2208}#
|
|
#{module\ 2209}#)))
|
|
(#{build-letrec\ 198}#
|
|
(lambda (#{src\ 2213}#
|
|
#{ids\ 2214}#
|
|
#{vars\ 2215}#
|
|
#{val-exps\ 2216}#
|
|
#{body-exp\ 2217}#)
|
|
(if (null? #{vars\ 2215}#)
|
|
#{body-exp\ 2217}#
|
|
(let ((#{atom-key\ 2225}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2225}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 178}#
|
|
#{ids\ 2214}#
|
|
#{val-exps\ 2216}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 2213}#
|
|
#{ids\ 2214}#
|
|
#{vars\ 2215}#
|
|
#{val-exps\ 2216}#
|
|
#{body-exp\ 2217}#))
|
|
(#{decorate-source\ 158}#
|
|
(list 'letrec
|
|
(map list #{vars\ 2215}# #{val-exps\ 2216}#)
|
|
#{body-exp\ 2217}#)
|
|
#{src\ 2213}#))))))
|
|
(#{build-named-let\ 196}#
|
|
(lambda (#{src\ 2229}#
|
|
#{ids\ 2230}#
|
|
#{vars\ 2231}#
|
|
#{val-exps\ 2232}#
|
|
#{body-exp\ 2233}#)
|
|
(let ((#{f\ 2243}# (car #{vars\ 2231}#))
|
|
(#{f-name\ 2244}# (car #{ids\ 2230}#))
|
|
(#{vars\ 2245}# (cdr #{vars\ 2231}#))
|
|
(#{ids\ 2246}# (cdr #{ids\ 2230}#)))
|
|
(let ((#{atom-key\ 2249}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2249}# (quote (c)))
|
|
(let ((#{proc\ 2252}#
|
|
(#{build-simple-lambda\ 182}#
|
|
#{src\ 2229}#
|
|
#{ids\ 2246}#
|
|
#f
|
|
#{vars\ 2245}#
|
|
#f
|
|
#{body-exp\ 2233}#)))
|
|
(begin
|
|
(#{maybe-name-value!\ 178}#
|
|
#{f-name\ 2244}#
|
|
#{proc\ 2252}#)
|
|
(for-each
|
|
#{maybe-name-value!\ 178}#
|
|
#{ids\ 2246}#
|
|
#{val-exps\ 2232}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 2229}#
|
|
(list #{f-name\ 2244}#)
|
|
(list #{f\ 2243}#)
|
|
(list #{proc\ 2252}#)
|
|
(#{build-application\ 162}#
|
|
#{src\ 2229}#
|
|
(#{build-lexical-reference\ 168}#
|
|
'fun
|
|
#{src\ 2229}#
|
|
#{f-name\ 2244}#
|
|
#{f\ 2243}#)
|
|
#{val-exps\ 2232}#))))
|
|
(#{decorate-source\ 158}#
|
|
(list 'letrec
|
|
(list (list #{f\ 2243}#
|
|
(list 'lambda
|
|
#{vars\ 2245}#
|
|
#{body-exp\ 2233}#)))
|
|
(cons #{f\ 2243}# #{val-exps\ 2232}#))
|
|
#{src\ 2229}#))))))
|
|
(#{build-let\ 194}#
|
|
(lambda (#{src\ 2255}#
|
|
#{ids\ 2256}#
|
|
#{vars\ 2257}#
|
|
#{val-exps\ 2258}#
|
|
#{body-exp\ 2259}#)
|
|
(if (null? #{vars\ 2257}#)
|
|
#{body-exp\ 2259}#
|
|
(let ((#{atom-key\ 2267}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2267}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 178}#
|
|
#{ids\ 2256}#
|
|
#{val-exps\ 2258}#)
|
|
((@ (language tree-il) make-let)
|
|
#{src\ 2255}#
|
|
#{ids\ 2256}#
|
|
#{vars\ 2257}#
|
|
#{val-exps\ 2258}#
|
|
#{body-exp\ 2259}#))
|
|
(#{decorate-source\ 158}#
|
|
(list 'let
|
|
(map list #{vars\ 2257}# #{val-exps\ 2258}#)
|
|
#{body-exp\ 2259}#)
|
|
#{src\ 2255}#))))))
|
|
(#{build-sequence\ 192}#
|
|
(lambda (#{src\ 2271}# #{exps\ 2272}#)
|
|
(if (null? (cdr #{exps\ 2272}#))
|
|
(car #{exps\ 2272}#)
|
|
(let ((#{atom-key\ 2277}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2277}# (quote (c)))
|
|
((@ (language tree-il) make-sequence)
|
|
#{src\ 2271}#
|
|
#{exps\ 2272}#)
|
|
(#{decorate-source\ 158}#
|
|
(cons (quote begin) #{exps\ 2272}#)
|
|
#{src\ 2271}#))))))
|
|
(#{build-data\ 190}#
|
|
(lambda (#{src\ 2281}# #{exp\ 2282}#)
|
|
(let ((#{atom-key\ 2287}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2287}# (quote (c)))
|
|
((@ (language tree-il) make-const)
|
|
#{src\ 2281}#
|
|
#{exp\ 2282}#)
|
|
(#{decorate-source\ 158}#
|
|
(if (if (self-evaluating? #{exp\ 2282}#)
|
|
(not (vector? #{exp\ 2282}#))
|
|
#f)
|
|
#{exp\ 2282}#
|
|
(list (quote quote) #{exp\ 2282}#))
|
|
#{src\ 2281}#)))))
|
|
(#{build-primref\ 188}#
|
|
(lambda (#{src\ 2292}# #{name\ 2293}#)
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(let ((#{atom-key\ 2298}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2298}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{src\ 2292}#
|
|
#{name\ 2293}#)
|
|
(#{decorate-source\ 158}#
|
|
#{name\ 2293}#
|
|
#{src\ 2292}#)))
|
|
(let ((#{atom-key\ 2303}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2303}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{src\ 2292}#
|
|
'(guile)
|
|
#{name\ 2293}#
|
|
#f)
|
|
(#{decorate-source\ 158}#
|
|
(list (quote @@) (quote (guile)) #{name\ 2293}#)
|
|
#{src\ 2292}#))))))
|
|
(#{build-lambda-case\ 186}#
|
|
(lambda (#{src\ 2307}#
|
|
#{req\ 2308}#
|
|
#{opt\ 2309}#
|
|
#{rest\ 2310}#
|
|
#{kw\ 2311}#
|
|
#{inits\ 2312}#
|
|
#{vars\ 2313}#
|
|
#{body\ 2314}#
|
|
#{else-case\ 2315}#)
|
|
(let ((#{atom-key\ 2327}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2327}# (quote (c)))
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 2307}#
|
|
#{req\ 2308}#
|
|
#{opt\ 2309}#
|
|
#{rest\ 2310}#
|
|
#{kw\ 2311}#
|
|
#{inits\ 2312}#
|
|
#{vars\ 2313}#
|
|
#{body\ 2314}#
|
|
#{else-case\ 2315}#)
|
|
(let ((#{nreq\ 2332}# (length #{req\ 2308}#)))
|
|
(let ((#{nopt\ 2334}#
|
|
(if #{opt\ 2309}# (length #{opt\ 2309}#) 0)))
|
|
(let ((#{rest-idx\ 2336}#
|
|
(if #{rest\ 2310}#
|
|
(+ #{nreq\ 2332}# #{nopt\ 2334}#)
|
|
#f)))
|
|
(let ((#{allow-other-keys?\ 2340}#
|
|
(if #{kw\ 2311}# (car #{kw\ 2311}#) #f)))
|
|
(let ((#{kw-indices\ 2342}#
|
|
(map (lambda (#{x\ 2343}#)
|
|
(cons (car #{x\ 2343}#)
|
|
(list-index
|
|
#{vars\ 2313}#
|
|
(caddr #{x\ 2343}#))))
|
|
(if #{kw\ 2311}#
|
|
(cdr #{kw\ 2311}#)
|
|
'()))))
|
|
(let ((#{nargs\ 2346}#
|
|
(apply max
|
|
(+ #{nreq\ 2332}#
|
|
#{nopt\ 2334}#
|
|
(if #{rest\ 2310}# 1 0))
|
|
(map 1+
|
|
(map cdr
|
|
#{kw-indices\ 2342}#)))))
|
|
(begin
|
|
(let ((#{t\ 2349}#
|
|
(= #{nargs\ 2346}#
|
|
(length #{vars\ 2313}#)
|
|
(+ #{nreq\ 2332}#
|
|
(length #{inits\ 2312}#)
|
|
(if #{rest\ 2310}# 1 0)))))
|
|
(if #{t\ 2349}#
|
|
#{t\ 2349}#
|
|
(error "something went wrong"
|
|
#{req\ 2308}#
|
|
#{opt\ 2309}#
|
|
#{rest\ 2310}#
|
|
#{kw\ 2311}#
|
|
#{inits\ 2312}#
|
|
#{vars\ 2313}#
|
|
#{nreq\ 2332}#
|
|
#{nopt\ 2334}#
|
|
#{kw-indices\ 2342}#
|
|
#{nargs\ 2346}#)))
|
|
(#{decorate-source\ 158}#
|
|
(cons (list (cons '(@@ (ice-9 optargs)
|
|
parse-lambda-case)
|
|
(cons (list 'quote
|
|
(list #{nreq\ 2332}#
|
|
#{nopt\ 2334}#
|
|
#{rest-idx\ 2336}#
|
|
#{nargs\ 2346}#
|
|
#{allow-other-keys?\ 2340}#
|
|
#{kw-indices\ 2342}#))
|
|
(cons (cons 'list
|
|
(map (lambda (#{i\ 2352}#)
|
|
(list 'lambda
|
|
#{vars\ 2313}#
|
|
#{i\ 2352}#))
|
|
#{inits\ 2312}#))
|
|
'(%%args))))
|
|
'=>
|
|
(list 'lambda
|
|
'(%%args)
|
|
(cons 'apply
|
|
(cons (list 'lambda
|
|
#{vars\ 2313}#
|
|
#{body\ 2314}#)
|
|
'(%%args)))))
|
|
(let ((#{t\ 2357}#
|
|
#{else-case\ 2315}#))
|
|
(if #{t\ 2357}#
|
|
#{t\ 2357}#
|
|
'((%%args
|
|
(scm-error
|
|
'wrong-number-of-args
|
|
#f
|
|
"Wrong number of arguments"
|
|
'()
|
|
%%args))))))
|
|
#{src\ 2307}#))))))))))))
|
|
(#{build-case-lambda\ 184}#
|
|
(lambda (#{src\ 2360}#
|
|
#{docstring\ 2361}#
|
|
#{body\ 2362}#)
|
|
(let ((#{atom-key\ 2368}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2368}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 2360}#
|
|
(if #{docstring\ 2361}#
|
|
(list (cons (quote documentation) #{docstring\ 2361}#))
|
|
'())
|
|
#{body\ 2362}#)
|
|
(#{decorate-source\ 158}#
|
|
(cons 'lambda
|
|
(cons '%%args
|
|
(append
|
|
(if #{docstring\ 2361}#
|
|
(list #{docstring\ 2361}#)
|
|
'())
|
|
(list (cons (quote cond) #{body\ 2362}#)))))
|
|
#{src\ 2360}#)))))
|
|
(#{build-simple-lambda\ 182}#
|
|
(lambda (#{src\ 2373}#
|
|
#{req\ 2374}#
|
|
#{rest\ 2375}#
|
|
#{vars\ 2376}#
|
|
#{docstring\ 2377}#
|
|
#{exp\ 2378}#)
|
|
(let ((#{atom-key\ 2387}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2387}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 2373}#
|
|
(if #{docstring\ 2377}#
|
|
(list (cons (quote documentation) #{docstring\ 2377}#))
|
|
'())
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 2373}#
|
|
#{req\ 2374}#
|
|
#f
|
|
#{rest\ 2375}#
|
|
#f
|
|
'()
|
|
#{vars\ 2376}#
|
|
#{exp\ 2378}#
|
|
#f))
|
|
(#{decorate-source\ 158}#
|
|
(cons 'lambda
|
|
(cons (if #{rest\ 2375}#
|
|
(apply cons* #{vars\ 2376}#)
|
|
#{vars\ 2376}#)
|
|
(append
|
|
(if #{docstring\ 2377}#
|
|
(list #{docstring\ 2377}#)
|
|
'())
|
|
(list #{exp\ 2378}#))))
|
|
#{src\ 2373}#)))))
|
|
(#{build-global-definition\ 180}#
|
|
(lambda (#{source\ 2392}# #{var\ 2393}# #{exp\ 2394}#)
|
|
(let ((#{atom-key\ 2400}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2400}# (quote (c)))
|
|
(begin
|
|
(#{maybe-name-value!\ 178}#
|
|
#{var\ 2393}#
|
|
#{exp\ 2394}#)
|
|
((@ (language tree-il) make-toplevel-define)
|
|
#{source\ 2392}#
|
|
#{var\ 2393}#
|
|
#{exp\ 2394}#))
|
|
(#{decorate-source\ 158}#
|
|
(list (quote define) #{var\ 2393}# #{exp\ 2394}#)
|
|
#{source\ 2392}#)))))
|
|
(#{maybe-name-value!\ 178}#
|
|
(lambda (#{name\ 2404}# #{val\ 2405}#)
|
|
(if ((@ (language tree-il) lambda?) #{val\ 2405}#)
|
|
(let ((#{meta\ 2411}#
|
|
((@ (language tree-il) lambda-meta)
|
|
#{val\ 2405}#)))
|
|
(if (not (assq (quote name) #{meta\ 2411}#))
|
|
((setter (@ (language tree-il) lambda-meta))
|
|
#{val\ 2405}#
|
|
(acons 'name
|
|
#{name\ 2404}#
|
|
#{meta\ 2411}#)))))))
|
|
(#{build-global-assignment\ 176}#
|
|
(lambda (#{source\ 2412}#
|
|
#{var\ 2413}#
|
|
#{exp\ 2414}#
|
|
#{mod\ 2415}#)
|
|
(#{analyze-variable\ 172}#
|
|
#{mod\ 2415}#
|
|
#{var\ 2413}#
|
|
(lambda (#{mod\ 2420}# #{var\ 2421}# #{public?\ 2422}#)
|
|
(let ((#{atom-key\ 2428}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2428}# (quote (c)))
|
|
((@ (language tree-il) make-module-set)
|
|
#{source\ 2412}#
|
|
#{mod\ 2420}#
|
|
#{var\ 2421}#
|
|
#{public?\ 2422}#
|
|
#{exp\ 2414}#)
|
|
(#{decorate-source\ 158}#
|
|
(list 'set!
|
|
(list (if #{public?\ 2422}#
|
|
'@
|
|
'@@)
|
|
#{mod\ 2420}#
|
|
#{var\ 2421}#)
|
|
#{exp\ 2414}#)
|
|
#{source\ 2412}#))))
|
|
(lambda (#{var\ 2432}#)
|
|
(let ((#{atom-key\ 2436}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2436}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-set)
|
|
#{source\ 2412}#
|
|
#{var\ 2432}#
|
|
#{exp\ 2414}#)
|
|
(#{decorate-source\ 158}#
|
|
(list (quote set!) #{var\ 2432}# #{exp\ 2414}#)
|
|
#{source\ 2412}#)))))))
|
|
(#{build-global-reference\ 174}#
|
|
(lambda (#{source\ 2440}# #{var\ 2441}# #{mod\ 2442}#)
|
|
(#{analyze-variable\ 172}#
|
|
#{mod\ 2442}#
|
|
#{var\ 2441}#
|
|
(lambda (#{mod\ 2446}# #{var\ 2447}# #{public?\ 2448}#)
|
|
(let ((#{atom-key\ 2454}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2454}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{source\ 2440}#
|
|
#{mod\ 2446}#
|
|
#{var\ 2447}#
|
|
#{public?\ 2448}#)
|
|
(#{decorate-source\ 158}#
|
|
(list (if #{public?\ 2448}# (quote @) (quote @@))
|
|
#{mod\ 2446}#
|
|
#{var\ 2447}#)
|
|
#{source\ 2440}#))))
|
|
(lambda (#{var\ 2457}#)
|
|
(let ((#{atom-key\ 2461}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2461}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{source\ 2440}#
|
|
#{var\ 2457}#)
|
|
(#{decorate-source\ 158}#
|
|
#{var\ 2457}#
|
|
#{source\ 2440}#)))))))
|
|
(#{analyze-variable\ 172}#
|
|
(lambda (#{mod\ 2464}#
|
|
#{var\ 2465}#
|
|
#{modref-cont\ 2466}#
|
|
#{bare-cont\ 2467}#)
|
|
(if (not #{mod\ 2464}#)
|
|
(#{bare-cont\ 2467}# #{var\ 2465}#)
|
|
(let ((#{kind\ 2474}# (car #{mod\ 2464}#))
|
|
(#{mod\ 2475}# (cdr #{mod\ 2464}#)))
|
|
(if (memv #{kind\ 2474}# (quote (public)))
|
|
(#{modref-cont\ 2466}#
|
|
#{mod\ 2475}#
|
|
#{var\ 2465}#
|
|
#t)
|
|
(if (memv #{kind\ 2474}# (quote (private)))
|
|
(if (not (equal?
|
|
#{mod\ 2475}#
|
|
(module-name (current-module))))
|
|
(#{modref-cont\ 2466}#
|
|
#{mod\ 2475}#
|
|
#{var\ 2465}#
|
|
#f)
|
|
(#{bare-cont\ 2467}# #{var\ 2465}#))
|
|
(if (memv #{kind\ 2474}# (quote (bare)))
|
|
(#{bare-cont\ 2467}# #{var\ 2465}#)
|
|
(if (memv #{kind\ 2474}# (quote (hygiene)))
|
|
(if (if (not (equal?
|
|
#{mod\ 2475}#
|
|
(module-name (current-module))))
|
|
(module-variable
|
|
(resolve-module #{mod\ 2475}#)
|
|
#{var\ 2465}#)
|
|
#f)
|
|
(#{modref-cont\ 2466}#
|
|
#{mod\ 2475}#
|
|
#{var\ 2465}#
|
|
#f)
|
|
(#{bare-cont\ 2467}# #{var\ 2465}#))
|
|
(syntax-violation
|
|
#f
|
|
"bad module kind"
|
|
#{var\ 2465}#
|
|
#{mod\ 2475}#)))))))))
|
|
(#{build-lexical-assignment\ 170}#
|
|
(lambda (#{source\ 2483}#
|
|
#{name\ 2484}#
|
|
#{var\ 2485}#
|
|
#{exp\ 2486}#)
|
|
(let ((#{atom-key\ 2493}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2493}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-set)
|
|
#{source\ 2483}#
|
|
#{name\ 2484}#
|
|
#{var\ 2485}#
|
|
#{exp\ 2486}#)
|
|
(#{decorate-source\ 158}#
|
|
(list (quote set!) #{var\ 2485}# #{exp\ 2486}#)
|
|
#{source\ 2483}#)))))
|
|
(#{build-lexical-reference\ 168}#
|
|
(lambda (#{type\ 2497}#
|
|
#{source\ 2498}#
|
|
#{name\ 2499}#
|
|
#{var\ 2500}#)
|
|
(let ((#{atom-key\ 2507}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2507}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-ref)
|
|
#{source\ 2498}#
|
|
#{name\ 2499}#
|
|
#{var\ 2500}#)
|
|
(#{decorate-source\ 158}#
|
|
#{var\ 2500}#
|
|
#{source\ 2498}#)))))
|
|
(#{build-dynlet\ 166}#
|
|
(lambda (#{source\ 2510}#
|
|
#{fluids\ 2511}#
|
|
#{vals\ 2512}#
|
|
#{body\ 2513}#)
|
|
(let ((#{atom-key\ 2520}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2520}# (quote (c)))
|
|
((@ (language tree-il) make-dynlet)
|
|
#{source\ 2510}#
|
|
#{fluids\ 2511}#
|
|
#{vals\ 2512}#
|
|
#{body\ 2513}#)
|
|
(#{decorate-source\ 158}#
|
|
(list 'with-fluids
|
|
(map list #{fluids\ 2511}# #{vals\ 2512}#)
|
|
#{body\ 2513}#)
|
|
#{source\ 2510}#)))))
|
|
(#{build-conditional\ 164}#
|
|
(lambda (#{source\ 2524}#
|
|
#{test-exp\ 2525}#
|
|
#{then-exp\ 2526}#
|
|
#{else-exp\ 2527}#)
|
|
(let ((#{atom-key\ 2534}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2534}# (quote (c)))
|
|
((@ (language tree-il) make-conditional)
|
|
#{source\ 2524}#
|
|
#{test-exp\ 2525}#
|
|
#{then-exp\ 2526}#
|
|
#{else-exp\ 2527}#)
|
|
(#{decorate-source\ 158}#
|
|
(if (equal? #{else-exp\ 2527}# (quote (if #f #f)))
|
|
(list 'if
|
|
#{test-exp\ 2525}#
|
|
#{then-exp\ 2526}#)
|
|
(list 'if
|
|
#{test-exp\ 2525}#
|
|
#{then-exp\ 2526}#
|
|
#{else-exp\ 2527}#))
|
|
#{source\ 2524}#)))))
|
|
(#{build-application\ 162}#
|
|
(lambda (#{source\ 2539}#
|
|
#{fun-exp\ 2540}#
|
|
#{arg-exps\ 2541}#)
|
|
(let ((#{atom-key\ 2547}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2547}# (quote (c)))
|
|
((@ (language tree-il) make-application)
|
|
#{source\ 2539}#
|
|
#{fun-exp\ 2540}#
|
|
#{arg-exps\ 2541}#)
|
|
(#{decorate-source\ 158}#
|
|
(cons #{fun-exp\ 2540}# #{arg-exps\ 2541}#)
|
|
#{source\ 2539}#)))))
|
|
(#{build-void\ 160}#
|
|
(lambda (#{source\ 2551}#)
|
|
(let ((#{atom-key\ 2555}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2555}# (quote (c)))
|
|
((@ (language tree-il) make-void)
|
|
#{source\ 2551}#)
|
|
(#{decorate-source\ 158}#
|
|
'(if #f #f)
|
|
#{source\ 2551}#)))))
|
|
(#{decorate-source\ 158}#
|
|
(lambda (#{e\ 2558}# #{s\ 2559}#)
|
|
(begin
|
|
(if (if (pair? #{e\ 2558}#) #{s\ 2559}# #f)
|
|
(set-source-properties! #{e\ 2558}# #{s\ 2559}#))
|
|
#{e\ 2558}#)))
|
|
(#{get-global-definition-hook\ 156}#
|
|
(lambda (#{symbol\ 2564}# #{module\ 2565}#)
|
|
(begin
|
|
(if (if (not #{module\ 2565}#) (current-module) #f)
|
|
(warn "module system is booted, we should have a module"
|
|
#{symbol\ 2564}#))
|
|
(let ((#{v\ 2571}#
|
|
(module-variable
|
|
(if #{module\ 2565}#
|
|
(resolve-module (cdr #{module\ 2565}#))
|
|
(current-module))
|
|
#{symbol\ 2564}#)))
|
|
(if #{v\ 2571}#
|
|
(if (variable-bound? #{v\ 2571}#)
|
|
(let ((#{val\ 2576}# (variable-ref #{v\ 2571}#)))
|
|
(if (macro? #{val\ 2576}#)
|
|
(if (macro-type #{val\ 2576}#)
|
|
(cons (macro-type #{val\ 2576}#)
|
|
(macro-binding #{val\ 2576}#))
|
|
#f)
|
|
#f))
|
|
#f)
|
|
#f)))))
|
|
(#{put-global-definition-hook\ 154}#
|
|
(lambda (#{symbol\ 2580}# #{type\ 2581}# #{val\ 2582}#)
|
|
(module-define!
|
|
(current-module)
|
|
#{symbol\ 2580}#
|
|
(make-syntax-transformer
|
|
#{symbol\ 2580}#
|
|
#{type\ 2581}#
|
|
#{val\ 2582}#))))
|
|
(#{local-eval-hook\ 151}#
|
|
(lambda (#{x\ 2586}# #{mod\ 2587}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 137}#
|
|
(let ((#{atom-key\ 2593}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2593}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 2586}#)
|
|
#{x\ 2586}#))))))
|
|
(#{top-level-eval-hook\ 149}#
|
|
(lambda (#{x\ 2596}# #{mod\ 2597}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 137}#
|
|
(let ((#{atom-key\ 2603}# (fluid-ref #{*mode*\ 139}#)))
|
|
(if (memv #{atom-key\ 2603}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 2596}#)
|
|
#{x\ 2596}#))))))
|
|
(#{fx<\ 147}# <)
|
|
(#{fx=\ 145}# =)
|
|
(#{fx-\ 143}# -)
|
|
(#{fx+\ 141}# +)
|
|
(#{*mode*\ 139}# (make-fluid))
|
|
(#{noexpand\ 137}# "noexpand"))
|
|
(begin
|
|
(#{global-extend\ 236}#
|
|
'local-syntax
|
|
'letrec-syntax
|
|
#t)
|
|
(#{global-extend\ 236}#
|
|
'local-syntax
|
|
'let-syntax
|
|
#f)
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (#{e\ 2606}#
|
|
#{r\ 2607}#
|
|
#{w\ 2608}#
|
|
#{s\ 2609}#
|
|
#{mod\ 2610}#)
|
|
((lambda (#{tmp\ 2616}#)
|
|
((lambda (#{tmp\ 2617}#)
|
|
(if (if #{tmp\ 2617}#
|
|
(apply (lambda (#{_\ 2623}#
|
|
#{var\ 2624}#
|
|
#{val\ 2625}#
|
|
#{e1\ 2626}#
|
|
#{e2\ 2627}#)
|
|
(#{valid-bound-ids?\ 303}# #{var\ 2624}#))
|
|
#{tmp\ 2617}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 2634}#
|
|
#{var\ 2635}#
|
|
#{val\ 2636}#
|
|
#{e1\ 2637}#
|
|
#{e2\ 2638}#)
|
|
(let ((#{names\ 2640}#
|
|
(map (lambda (#{x\ 2641}#)
|
|
(#{id-var-name\ 297}#
|
|
#{x\ 2641}#
|
|
#{w\ 2608}#))
|
|
#{var\ 2635}#)))
|
|
(begin
|
|
(for-each
|
|
(lambda (#{id\ 2644}# #{n\ 2645}#)
|
|
(let ((#{atom-key\ 2650}#
|
|
(#{binding-type\ 223}#
|
|
(#{lookup\ 234}#
|
|
#{n\ 2645}#
|
|
#{r\ 2607}#
|
|
#{mod\ 2610}#))))
|
|
(if (memv #{atom-key\ 2650}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"identifier out of context"
|
|
#{e\ 2606}#
|
|
(#{source-wrap\ 311}#
|
|
#{id\ 2644}#
|
|
#{w\ 2608}#
|
|
#{s\ 2609}#
|
|
#{mod\ 2610}#)))))
|
|
#{var\ 2635}#
|
|
#{names\ 2640}#)
|
|
(#{chi-body\ 333}#
|
|
(cons #{e1\ 2637}# #{e2\ 2638}#)
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 2606}#
|
|
#{w\ 2608}#
|
|
#{s\ 2609}#
|
|
#{mod\ 2610}#)
|
|
(#{extend-env\ 228}#
|
|
#{names\ 2640}#
|
|
(let ((#{trans-r\ 2655}#
|
|
(#{macros-only-env\ 232}#
|
|
#{r\ 2607}#)))
|
|
(map (lambda (#{x\ 2656}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 337}#
|
|
(#{chi\ 325}#
|
|
#{x\ 2656}#
|
|
#{trans-r\ 2655}#
|
|
#{w\ 2608}#
|
|
#{mod\ 2610}#)
|
|
#{mod\ 2610}#)))
|
|
#{val\ 2636}#))
|
|
#{r\ 2607}#)
|
|
#{w\ 2608}#
|
|
#{mod\ 2610}#))))
|
|
#{tmp\ 2617}#)
|
|
((lambda (#{_\ 2661}#)
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"bad syntax"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 2606}#
|
|
#{w\ 2608}#
|
|
#{s\ 2609}#
|
|
#{mod\ 2610}#)))
|
|
#{tmp\ 2616}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2616}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 2606}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'quote
|
|
(lambda (#{e\ 2662}#
|
|
#{r\ 2663}#
|
|
#{w\ 2664}#
|
|
#{s\ 2665}#
|
|
#{mod\ 2666}#)
|
|
((lambda (#{tmp\ 2672}#)
|
|
((lambda (#{tmp\ 2673}#)
|
|
(if #{tmp\ 2673}#
|
|
(apply (lambda (#{_\ 2676}# #{e\ 2677}#)
|
|
(#{build-data\ 190}#
|
|
#{s\ 2665}#
|
|
(#{strip\ 351}# #{e\ 2677}# #{w\ 2664}#)))
|
|
#{tmp\ 2673}#)
|
|
((lambda (#{_\ 2679}#)
|
|
(syntax-violation
|
|
'quote
|
|
"bad syntax"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 2662}#
|
|
#{w\ 2664}#
|
|
#{s\ 2665}#
|
|
#{mod\ 2666}#)))
|
|
#{tmp\ 2672}#)))
|
|
($sc-dispatch #{tmp\ 2672}# (quote (any any)))))
|
|
#{e\ 2662}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'syntax
|
|
(letrec ((#{regen\ 2695}#
|
|
(lambda (#{x\ 2696}#)
|
|
(let ((#{atom-key\ 2700}# (car #{x\ 2696}#)))
|
|
(if (memv #{atom-key\ 2700}# (quote (ref)))
|
|
(#{build-lexical-reference\ 168}#
|
|
'value
|
|
#f
|
|
(cadr #{x\ 2696}#)
|
|
(cadr #{x\ 2696}#))
|
|
(if (memv #{atom-key\ 2700}# (quote (primitive)))
|
|
(#{build-primref\ 188}# #f (cadr #{x\ 2696}#))
|
|
(if (memv #{atom-key\ 2700}# (quote (quote)))
|
|
(#{build-data\ 190}# #f (cadr #{x\ 2696}#))
|
|
(if (memv #{atom-key\ 2700}# (quote (lambda)))
|
|
(if (list? (cadr #{x\ 2696}#))
|
|
(#{build-simple-lambda\ 182}#
|
|
#f
|
|
(cadr #{x\ 2696}#)
|
|
#f
|
|
(cadr #{x\ 2696}#)
|
|
#f
|
|
(#{regen\ 2695}# (caddr #{x\ 2696}#)))
|
|
(error "how did we get here" #{x\ 2696}#))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}# #f (car #{x\ 2696}#))
|
|
(map #{regen\ 2695}#
|
|
(cdr #{x\ 2696}#))))))))))
|
|
(#{gen-vector\ 2693}#
|
|
(lambda (#{x\ 2712}#)
|
|
(if (eq? (car #{x\ 2712}#) (quote list))
|
|
(cons (quote vector) (cdr #{x\ 2712}#))
|
|
(if (eq? (car #{x\ 2712}#) (quote quote))
|
|
(list 'quote
|
|
(list->vector (cadr #{x\ 2712}#)))
|
|
(list (quote list->vector) #{x\ 2712}#)))))
|
|
(#{gen-append\ 2691}#
|
|
(lambda (#{x\ 2722}# #{y\ 2723}#)
|
|
(if (equal? #{y\ 2723}# (quote (quote ())))
|
|
#{x\ 2722}#
|
|
(list (quote append) #{x\ 2722}# #{y\ 2723}#))))
|
|
(#{gen-cons\ 2689}#
|
|
(lambda (#{x\ 2727}# #{y\ 2728}#)
|
|
(let ((#{atom-key\ 2733}# (car #{y\ 2728}#)))
|
|
(if (memv #{atom-key\ 2733}# (quote (quote)))
|
|
(if (eq? (car #{x\ 2727}#) (quote quote))
|
|
(list 'quote
|
|
(cons (cadr #{x\ 2727}#) (cadr #{y\ 2728}#)))
|
|
(if (eq? (cadr #{y\ 2728}#) (quote ()))
|
|
(list (quote list) #{x\ 2727}#)
|
|
(list (quote cons) #{x\ 2727}# #{y\ 2728}#)))
|
|
(if (memv #{atom-key\ 2733}# (quote (list)))
|
|
(cons 'list
|
|
(cons #{x\ 2727}# (cdr #{y\ 2728}#)))
|
|
(list (quote cons) #{x\ 2727}# #{y\ 2728}#))))))
|
|
(#{gen-map\ 2687}#
|
|
(lambda (#{e\ 2742}# #{map-env\ 2743}#)
|
|
(let ((#{formals\ 2748}# (map cdr #{map-env\ 2743}#))
|
|
(#{actuals\ 2749}#
|
|
(map (lambda (#{x\ 2750}#)
|
|
(list (quote ref) (car #{x\ 2750}#)))
|
|
#{map-env\ 2743}#)))
|
|
(if (eq? (car #{e\ 2742}#) (quote ref))
|
|
(car #{actuals\ 2749}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 2757}#)
|
|
(if (eq? (car #{x\ 2757}#) (quote ref))
|
|
(memq (cadr #{x\ 2757}#) #{formals\ 2748}#)
|
|
#f))
|
|
(cdr #{e\ 2742}#))
|
|
(cons 'map
|
|
(cons (list 'primitive
|
|
(car #{e\ 2742}#))
|
|
(map (let ((#{r\ 2763}#
|
|
(map cons
|
|
#{formals\ 2748}#
|
|
#{actuals\ 2749}#)))
|
|
(lambda (#{x\ 2764}#)
|
|
(cdr (assq (cadr #{x\ 2764}#)
|
|
#{r\ 2763}#))))
|
|
(cdr #{e\ 2742}#))))
|
|
(cons 'map
|
|
(cons (list 'lambda
|
|
#{formals\ 2748}#
|
|
#{e\ 2742}#)
|
|
#{actuals\ 2749}#)))))))
|
|
(#{gen-mappend\ 2685}#
|
|
(lambda (#{e\ 2768}# #{map-env\ 2769}#)
|
|
(list 'apply
|
|
'(primitive append)
|
|
(#{gen-map\ 2687}# #{e\ 2768}# #{map-env\ 2769}#))))
|
|
(#{gen-ref\ 2683}#
|
|
(lambda (#{src\ 2773}#
|
|
#{var\ 2774}#
|
|
#{level\ 2775}#
|
|
#{maps\ 2776}#)
|
|
(if (#{fx=\ 145}# #{level\ 2775}# 0)
|
|
(values #{var\ 2774}# #{maps\ 2776}#)
|
|
(if (null? #{maps\ 2776}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"missing ellipsis"
|
|
#{src\ 2773}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-ref\ 2683}#
|
|
#{src\ 2773}#
|
|
#{var\ 2774}#
|
|
(#{fx-\ 143}# #{level\ 2775}# 1)
|
|
(cdr #{maps\ 2776}#)))
|
|
(lambda (#{outer-var\ 2781}# #{outer-maps\ 2782}#)
|
|
(let ((#{b\ 2786}#
|
|
(assq #{outer-var\ 2781}#
|
|
(car #{maps\ 2776}#))))
|
|
(if #{b\ 2786}#
|
|
(values (cdr #{b\ 2786}#) #{maps\ 2776}#)
|
|
(let ((#{inner-var\ 2788}#
|
|
(#{gen-var\ 353}# (quote tmp))))
|
|
(values
|
|
#{inner-var\ 2788}#
|
|
(cons (cons (cons #{outer-var\ 2781}#
|
|
#{inner-var\ 2788}#)
|
|
(car #{maps\ 2776}#))
|
|
#{outer-maps\ 2782}#)))))))))))
|
|
(#{gen-syntax\ 2681}#
|
|
(lambda (#{src\ 2789}#
|
|
#{e\ 2790}#
|
|
#{r\ 2791}#
|
|
#{maps\ 2792}#
|
|
#{ellipsis?\ 2793}#
|
|
#{mod\ 2794}#)
|
|
(if (#{id?\ 240}# #{e\ 2790}#)
|
|
(let ((#{label\ 2802}#
|
|
(#{id-var-name\ 297}#
|
|
#{e\ 2790}#
|
|
'(()))))
|
|
(let ((#{b\ 2805}#
|
|
(#{lookup\ 234}#
|
|
#{label\ 2802}#
|
|
#{r\ 2791}#
|
|
#{mod\ 2794}#)))
|
|
(if (eq? (#{binding-type\ 223}# #{b\ 2805}#)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((#{var.lev\ 2807}#
|
|
(#{binding-value\ 225}# #{b\ 2805}#)))
|
|
(#{gen-ref\ 2683}#
|
|
#{src\ 2789}#
|
|
(car #{var.lev\ 2807}#)
|
|
(cdr #{var.lev\ 2807}#)
|
|
#{maps\ 2792}#)))
|
|
(lambda (#{var\ 2808}# #{maps\ 2809}#)
|
|
(values
|
|
(list (quote ref) #{var\ 2808}#)
|
|
#{maps\ 2809}#)))
|
|
(if (#{ellipsis?\ 2793}# #{e\ 2790}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"misplaced ellipsis"
|
|
#{src\ 2789}#)
|
|
(values
|
|
(list (quote quote) #{e\ 2790}#)
|
|
#{maps\ 2792}#)))))
|
|
((lambda (#{tmp\ 2814}#)
|
|
((lambda (#{tmp\ 2815}#)
|
|
(if (if #{tmp\ 2815}#
|
|
(apply (lambda (#{dots\ 2818}# #{e\ 2819}#)
|
|
(#{ellipsis?\ 2793}#
|
|
#{dots\ 2818}#))
|
|
#{tmp\ 2815}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 2822}# #{e\ 2823}#)
|
|
(#{gen-syntax\ 2681}#
|
|
#{src\ 2789}#
|
|
#{e\ 2823}#
|
|
#{r\ 2791}#
|
|
#{maps\ 2792}#
|
|
(lambda (#{x\ 2824}#) #f)
|
|
#{mod\ 2794}#))
|
|
#{tmp\ 2815}#)
|
|
((lambda (#{tmp\ 2826}#)
|
|
(if (if #{tmp\ 2826}#
|
|
(apply (lambda (#{x\ 2830}#
|
|
#{dots\ 2831}#
|
|
#{y\ 2832}#)
|
|
(#{ellipsis?\ 2793}#
|
|
#{dots\ 2831}#))
|
|
#{tmp\ 2826}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 2836}#
|
|
#{dots\ 2837}#
|
|
#{y\ 2838}#)
|
|
(letrec ((#{f\ 2842}#
|
|
(lambda (#{y\ 2843}#
|
|
#{k\ 2844}#)
|
|
((lambda (#{tmp\ 2851}#)
|
|
((lambda (#{tmp\ 2852}#)
|
|
(if (if #{tmp\ 2852}#
|
|
(apply (lambda (#{dots\ 2855}#
|
|
#{y\ 2856}#)
|
|
(#{ellipsis?\ 2793}#
|
|
#{dots\ 2855}#))
|
|
#{tmp\ 2852}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 2859}#
|
|
#{y\ 2860}#)
|
|
(#{f\ 2842}#
|
|
#{y\ 2860}#
|
|
(lambda (#{maps\ 2861}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 2844}#
|
|
(cons '()
|
|
#{maps\ 2861}#)))
|
|
(lambda (#{x\ 2863}#
|
|
#{maps\ 2864}#)
|
|
(if (null? (car #{maps\ 2864}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 2789}#)
|
|
(values
|
|
(#{gen-mappend\ 2685}#
|
|
#{x\ 2863}#
|
|
(car #{maps\ 2864}#))
|
|
(cdr #{maps\ 2864}#))))))))
|
|
#{tmp\ 2852}#)
|
|
((lambda (#{_\ 2868}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2681}#
|
|
#{src\ 2789}#
|
|
#{y\ 2843}#
|
|
#{r\ 2791}#
|
|
#{maps\ 2792}#
|
|
#{ellipsis?\ 2793}#
|
|
#{mod\ 2794}#))
|
|
(lambda (#{y\ 2869}#
|
|
#{maps\ 2870}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 2844}#
|
|
#{maps\ 2870}#))
|
|
(lambda (#{x\ 2873}#
|
|
#{maps\ 2874}#)
|
|
(values
|
|
(#{gen-append\ 2691}#
|
|
#{x\ 2873}#
|
|
#{y\ 2869}#)
|
|
#{maps\ 2874}#))))))
|
|
#{tmp\ 2851}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2851}#
|
|
'(any . any))))
|
|
#{y\ 2843}#))))
|
|
(#{f\ 2842}#
|
|
#{y\ 2838}#
|
|
(lambda (#{maps\ 2845}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2681}#
|
|
#{src\ 2789}#
|
|
#{x\ 2836}#
|
|
#{r\ 2791}#
|
|
(cons '()
|
|
#{maps\ 2845}#)
|
|
#{ellipsis?\ 2793}#
|
|
#{mod\ 2794}#))
|
|
(lambda (#{x\ 2847}#
|
|
#{maps\ 2848}#)
|
|
(if (null? (car #{maps\ 2848}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 2789}#)
|
|
(values
|
|
(#{gen-map\ 2687}#
|
|
#{x\ 2847}#
|
|
(car #{maps\ 2848}#))
|
|
(cdr #{maps\ 2848}#)))))))))
|
|
#{tmp\ 2826}#)
|
|
((lambda (#{tmp\ 2877}#)
|
|
(if #{tmp\ 2877}#
|
|
(apply (lambda (#{x\ 2880}#
|
|
#{y\ 2881}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2681}#
|
|
#{src\ 2789}#
|
|
#{x\ 2880}#
|
|
#{r\ 2791}#
|
|
#{maps\ 2792}#
|
|
#{ellipsis?\ 2793}#
|
|
#{mod\ 2794}#))
|
|
(lambda (#{x\ 2882}#
|
|
#{maps\ 2883}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2681}#
|
|
#{src\ 2789}#
|
|
#{y\ 2881}#
|
|
#{r\ 2791}#
|
|
#{maps\ 2883}#
|
|
#{ellipsis?\ 2793}#
|
|
#{mod\ 2794}#))
|
|
(lambda (#{y\ 2886}#
|
|
#{maps\ 2887}#)
|
|
(values
|
|
(#{gen-cons\ 2689}#
|
|
#{x\ 2882}#
|
|
#{y\ 2886}#)
|
|
#{maps\ 2887}#))))))
|
|
#{tmp\ 2877}#)
|
|
((lambda (#{tmp\ 2890}#)
|
|
(if #{tmp\ 2890}#
|
|
(apply (lambda (#{e1\ 2893}#
|
|
#{e2\ 2894}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2681}#
|
|
#{src\ 2789}#
|
|
(cons #{e1\ 2893}#
|
|
#{e2\ 2894}#)
|
|
#{r\ 2791}#
|
|
#{maps\ 2792}#
|
|
#{ellipsis?\ 2793}#
|
|
#{mod\ 2794}#))
|
|
(lambda (#{e\ 2896}#
|
|
#{maps\ 2897}#)
|
|
(values
|
|
(#{gen-vector\ 2693}#
|
|
#{e\ 2896}#)
|
|
#{maps\ 2897}#))))
|
|
#{tmp\ 2890}#)
|
|
((lambda (#{_\ 2901}#)
|
|
(values
|
|
(list 'quote
|
|
#{e\ 2790}#)
|
|
#{maps\ 2792}#))
|
|
#{tmp\ 2814}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2814}#
|
|
'#(vector (any . each-any))))))
|
|
($sc-dispatch
|
|
#{tmp\ 2814}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 2814}#
|
|
'(any any . any)))))
|
|
($sc-dispatch #{tmp\ 2814}# (quote (any any)))))
|
|
#{e\ 2790}#)))))
|
|
(lambda (#{e\ 2903}#
|
|
#{r\ 2904}#
|
|
#{w\ 2905}#
|
|
#{s\ 2906}#
|
|
#{mod\ 2907}#)
|
|
(let ((#{e\ 2914}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 2903}#
|
|
#{w\ 2905}#
|
|
#{s\ 2906}#
|
|
#{mod\ 2907}#)))
|
|
((lambda (#{tmp\ 2915}#)
|
|
((lambda (#{tmp\ 2916}#)
|
|
(if #{tmp\ 2916}#
|
|
(apply (lambda (#{_\ 2919}# #{x\ 2920}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2681}#
|
|
#{e\ 2914}#
|
|
#{x\ 2920}#
|
|
#{r\ 2904}#
|
|
'()
|
|
#{ellipsis?\ 341}#
|
|
#{mod\ 2907}#))
|
|
(lambda (#{e\ 2921}# #{maps\ 2922}#)
|
|
(#{regen\ 2695}# #{e\ 2921}#))))
|
|
#{tmp\ 2916}#)
|
|
((lambda (#{_\ 2926}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"bad `syntax' form"
|
|
#{e\ 2914}#))
|
|
#{tmp\ 2915}#)))
|
|
($sc-dispatch #{tmp\ 2915}# (quote (any any)))))
|
|
#{e\ 2914}#)))))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'lambda
|
|
(lambda (#{e\ 2927}#
|
|
#{r\ 2928}#
|
|
#{w\ 2929}#
|
|
#{s\ 2930}#
|
|
#{mod\ 2931}#)
|
|
((lambda (#{tmp\ 2937}#)
|
|
((lambda (#{tmp\ 2938}#)
|
|
(if (if #{tmp\ 2938}#
|
|
(apply (lambda (#{_\ 2944}#
|
|
#{args\ 2945}#
|
|
#{docstring\ 2946}#
|
|
#{e1\ 2947}#
|
|
#{e2\ 2948}#)
|
|
(string? (syntax->datum #{docstring\ 2946}#)))
|
|
#{tmp\ 2938}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 2954}#
|
|
#{args\ 2955}#
|
|
#{docstring\ 2956}#
|
|
#{e1\ 2957}#
|
|
#{e2\ 2958}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 343}# #{args\ 2955}#))
|
|
(lambda (#{req\ 2959}#
|
|
#{opt\ 2960}#
|
|
#{rest\ 2961}#
|
|
#{kw\ 2962}#)
|
|
(#{chi-simple-lambda\ 345}#
|
|
#{e\ 2927}#
|
|
#{r\ 2928}#
|
|
#{w\ 2929}#
|
|
#{s\ 2930}#
|
|
#{mod\ 2931}#
|
|
#{req\ 2959}#
|
|
#{rest\ 2961}#
|
|
(syntax->datum #{docstring\ 2956}#)
|
|
(cons #{e1\ 2957}# #{e2\ 2958}#)))))
|
|
#{tmp\ 2938}#)
|
|
((lambda (#{tmp\ 2968}#)
|
|
(if #{tmp\ 2968}#
|
|
(apply (lambda (#{_\ 2973}#
|
|
#{args\ 2974}#
|
|
#{e1\ 2975}#
|
|
#{e2\ 2976}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 343}# #{args\ 2974}#))
|
|
(lambda (#{req\ 2977}#
|
|
#{opt\ 2978}#
|
|
#{rest\ 2979}#
|
|
#{kw\ 2980}#)
|
|
(#{chi-simple-lambda\ 345}#
|
|
#{e\ 2927}#
|
|
#{r\ 2928}#
|
|
#{w\ 2929}#
|
|
#{s\ 2930}#
|
|
#{mod\ 2931}#
|
|
#{req\ 2977}#
|
|
#{rest\ 2979}#
|
|
#f
|
|
(cons #{e1\ 2975}# #{e2\ 2976}#)))))
|
|
#{tmp\ 2968}#)
|
|
((lambda (#{_\ 2987}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda"
|
|
#{e\ 2927}#))
|
|
#{tmp\ 2937}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2937}#
|
|
'(any any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 2937}#
|
|
'(any any any any . each-any))))
|
|
#{e\ 2927}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'lambda*
|
|
(lambda (#{e\ 2988}#
|
|
#{r\ 2989}#
|
|
#{w\ 2990}#
|
|
#{s\ 2991}#
|
|
#{mod\ 2992}#)
|
|
((lambda (#{tmp\ 2998}#)
|
|
((lambda (#{tmp\ 2999}#)
|
|
(if #{tmp\ 2999}#
|
|
(apply (lambda (#{_\ 3004}#
|
|
#{args\ 3005}#
|
|
#{e1\ 3006}#
|
|
#{e2\ 3007}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 349}#
|
|
#{e\ 2988}#
|
|
#{r\ 2989}#
|
|
#{w\ 2990}#
|
|
#{s\ 2991}#
|
|
#{mod\ 2992}#
|
|
#{lambda*-formals\ 347}#
|
|
(list (cons #{args\ 3005}#
|
|
(cons #{e1\ 3006}#
|
|
#{e2\ 3007}#)))))
|
|
(lambda (#{docstring\ 3009}# #{lcase\ 3010}#)
|
|
(#{build-case-lambda\ 184}#
|
|
#{s\ 2991}#
|
|
#{docstring\ 3009}#
|
|
#{lcase\ 3010}#))))
|
|
#{tmp\ 2999}#)
|
|
((lambda (#{_\ 3014}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda*"
|
|
#{e\ 2988}#))
|
|
#{tmp\ 2998}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2998}#
|
|
'(any any any . each-any))))
|
|
#{e\ 2988}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'case-lambda
|
|
(lambda (#{e\ 3015}#
|
|
#{r\ 3016}#
|
|
#{w\ 3017}#
|
|
#{s\ 3018}#
|
|
#{mod\ 3019}#)
|
|
((lambda (#{tmp\ 3025}#)
|
|
((lambda (#{tmp\ 3026}#)
|
|
(if #{tmp\ 3026}#
|
|
(apply (lambda (#{_\ 3034}#
|
|
#{args\ 3035}#
|
|
#{e1\ 3036}#
|
|
#{e2\ 3037}#
|
|
#{args*\ 3038}#
|
|
#{e1*\ 3039}#
|
|
#{e2*\ 3040}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 349}#
|
|
#{e\ 3015}#
|
|
#{r\ 3016}#
|
|
#{w\ 3017}#
|
|
#{s\ 3018}#
|
|
#{mod\ 3019}#
|
|
#{lambda-formals\ 343}#
|
|
(cons (cons #{args\ 3035}#
|
|
(cons #{e1\ 3036}# #{e2\ 3037}#))
|
|
(map (lambda (#{tmp\ 3044}#
|
|
#{tmp\ 3043}#
|
|
#{tmp\ 3042}#)
|
|
(cons #{tmp\ 3042}#
|
|
(cons #{tmp\ 3043}#
|
|
#{tmp\ 3044}#)))
|
|
#{e2*\ 3040}#
|
|
#{e1*\ 3039}#
|
|
#{args*\ 3038}#))))
|
|
(lambda (#{docstring\ 3046}# #{lcase\ 3047}#)
|
|
(#{build-case-lambda\ 184}#
|
|
#{s\ 3018}#
|
|
#{docstring\ 3046}#
|
|
#{lcase\ 3047}#))))
|
|
#{tmp\ 3026}#)
|
|
((lambda (#{_\ 3051}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda"
|
|
#{e\ 3015}#))
|
|
#{tmp\ 3025}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3025}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 3015}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'case-lambda*
|
|
(lambda (#{e\ 3052}#
|
|
#{r\ 3053}#
|
|
#{w\ 3054}#
|
|
#{s\ 3055}#
|
|
#{mod\ 3056}#)
|
|
((lambda (#{tmp\ 3062}#)
|
|
((lambda (#{tmp\ 3063}#)
|
|
(if #{tmp\ 3063}#
|
|
(apply (lambda (#{_\ 3071}#
|
|
#{args\ 3072}#
|
|
#{e1\ 3073}#
|
|
#{e2\ 3074}#
|
|
#{args*\ 3075}#
|
|
#{e1*\ 3076}#
|
|
#{e2*\ 3077}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 349}#
|
|
#{e\ 3052}#
|
|
#{r\ 3053}#
|
|
#{w\ 3054}#
|
|
#{s\ 3055}#
|
|
#{mod\ 3056}#
|
|
#{lambda*-formals\ 347}#
|
|
(cons (cons #{args\ 3072}#
|
|
(cons #{e1\ 3073}# #{e2\ 3074}#))
|
|
(map (lambda (#{tmp\ 3081}#
|
|
#{tmp\ 3080}#
|
|
#{tmp\ 3079}#)
|
|
(cons #{tmp\ 3079}#
|
|
(cons #{tmp\ 3080}#
|
|
#{tmp\ 3081}#)))
|
|
#{e2*\ 3077}#
|
|
#{e1*\ 3076}#
|
|
#{args*\ 3075}#))))
|
|
(lambda (#{docstring\ 3083}# #{lcase\ 3084}#)
|
|
(#{build-case-lambda\ 184}#
|
|
#{s\ 3055}#
|
|
#{docstring\ 3083}#
|
|
#{lcase\ 3084}#))))
|
|
#{tmp\ 3063}#)
|
|
((lambda (#{_\ 3088}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda*"
|
|
#{e\ 3052}#))
|
|
#{tmp\ 3062}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3062}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 3052}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'let
|
|
(letrec ((#{chi-let\ 3090}#
|
|
(lambda (#{e\ 3091}#
|
|
#{r\ 3092}#
|
|
#{w\ 3093}#
|
|
#{s\ 3094}#
|
|
#{mod\ 3095}#
|
|
#{constructor\ 3096}#
|
|
#{ids\ 3097}#
|
|
#{vals\ 3098}#
|
|
#{exps\ 3099}#)
|
|
(if (not (#{valid-bound-ids?\ 303}# #{ids\ 3097}#))
|
|
(syntax-violation
|
|
'let
|
|
"duplicate bound variable"
|
|
#{e\ 3091}#)
|
|
(let ((#{labels\ 3111}#
|
|
(#{gen-labels\ 258}# #{ids\ 3097}#))
|
|
(#{new-vars\ 3112}#
|
|
(map #{gen-var\ 353}# #{ids\ 3097}#)))
|
|
(let ((#{nw\ 3115}#
|
|
(#{make-binding-wrap\ 287}#
|
|
#{ids\ 3097}#
|
|
#{labels\ 3111}#
|
|
#{w\ 3093}#))
|
|
(#{nr\ 3116}#
|
|
(#{extend-var-env\ 230}#
|
|
#{labels\ 3111}#
|
|
#{new-vars\ 3112}#
|
|
#{r\ 3092}#)))
|
|
(#{constructor\ 3096}#
|
|
#{s\ 3094}#
|
|
(map syntax->datum #{ids\ 3097}#)
|
|
#{new-vars\ 3112}#
|
|
(map (lambda (#{x\ 3117}#)
|
|
(#{chi\ 325}#
|
|
#{x\ 3117}#
|
|
#{r\ 3092}#
|
|
#{w\ 3093}#
|
|
#{mod\ 3095}#))
|
|
#{vals\ 3098}#)
|
|
(#{chi-body\ 333}#
|
|
#{exps\ 3099}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3091}#
|
|
#{nw\ 3115}#
|
|
#{s\ 3094}#
|
|
#{mod\ 3095}#)
|
|
#{nr\ 3116}#
|
|
#{nw\ 3115}#
|
|
#{mod\ 3095}#))))))))
|
|
(lambda (#{e\ 3119}#
|
|
#{r\ 3120}#
|
|
#{w\ 3121}#
|
|
#{s\ 3122}#
|
|
#{mod\ 3123}#)
|
|
((lambda (#{tmp\ 3129}#)
|
|
((lambda (#{tmp\ 3130}#)
|
|
(if (if #{tmp\ 3130}#
|
|
(apply (lambda (#{_\ 3136}#
|
|
#{id\ 3137}#
|
|
#{val\ 3138}#
|
|
#{e1\ 3139}#
|
|
#{e2\ 3140}#)
|
|
(and-map #{id?\ 240}# #{id\ 3137}#))
|
|
#{tmp\ 3130}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3147}#
|
|
#{id\ 3148}#
|
|
#{val\ 3149}#
|
|
#{e1\ 3150}#
|
|
#{e2\ 3151}#)
|
|
(#{chi-let\ 3090}#
|
|
#{e\ 3119}#
|
|
#{r\ 3120}#
|
|
#{w\ 3121}#
|
|
#{s\ 3122}#
|
|
#{mod\ 3123}#
|
|
#{build-let\ 194}#
|
|
#{id\ 3148}#
|
|
#{val\ 3149}#
|
|
(cons #{e1\ 3150}# #{e2\ 3151}#)))
|
|
#{tmp\ 3130}#)
|
|
((lambda (#{tmp\ 3155}#)
|
|
(if (if #{tmp\ 3155}#
|
|
(apply (lambda (#{_\ 3162}#
|
|
#{f\ 3163}#
|
|
#{id\ 3164}#
|
|
#{val\ 3165}#
|
|
#{e1\ 3166}#
|
|
#{e2\ 3167}#)
|
|
(if (#{id?\ 240}# #{f\ 3163}#)
|
|
(and-map #{id?\ 240}# #{id\ 3164}#)
|
|
#f))
|
|
#{tmp\ 3155}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3177}#
|
|
#{f\ 3178}#
|
|
#{id\ 3179}#
|
|
#{val\ 3180}#
|
|
#{e1\ 3181}#
|
|
#{e2\ 3182}#)
|
|
(#{chi-let\ 3090}#
|
|
#{e\ 3119}#
|
|
#{r\ 3120}#
|
|
#{w\ 3121}#
|
|
#{s\ 3122}#
|
|
#{mod\ 3123}#
|
|
#{build-named-let\ 196}#
|
|
(cons #{f\ 3178}# #{id\ 3179}#)
|
|
#{val\ 3180}#
|
|
(cons #{e1\ 3181}# #{e2\ 3182}#)))
|
|
#{tmp\ 3155}#)
|
|
((lambda (#{_\ 3187}#)
|
|
(syntax-violation
|
|
'let
|
|
"bad let"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3119}#
|
|
#{w\ 3121}#
|
|
#{s\ 3122}#
|
|
#{mod\ 3123}#)))
|
|
#{tmp\ 3129}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3129}#
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3129}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 3119}#))))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'letrec
|
|
(lambda (#{e\ 3188}#
|
|
#{r\ 3189}#
|
|
#{w\ 3190}#
|
|
#{s\ 3191}#
|
|
#{mod\ 3192}#)
|
|
((lambda (#{tmp\ 3198}#)
|
|
((lambda (#{tmp\ 3199}#)
|
|
(if (if #{tmp\ 3199}#
|
|
(apply (lambda (#{_\ 3205}#
|
|
#{id\ 3206}#
|
|
#{val\ 3207}#
|
|
#{e1\ 3208}#
|
|
#{e2\ 3209}#)
|
|
(and-map #{id?\ 240}# #{id\ 3206}#))
|
|
#{tmp\ 3199}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3216}#
|
|
#{id\ 3217}#
|
|
#{val\ 3218}#
|
|
#{e1\ 3219}#
|
|
#{e2\ 3220}#)
|
|
(let ((#{ids\ 3222}# #{id\ 3217}#))
|
|
(if (not (#{valid-bound-ids?\ 303}#
|
|
#{ids\ 3222}#))
|
|
(syntax-violation
|
|
'letrec
|
|
"duplicate bound variable"
|
|
#{e\ 3188}#)
|
|
(let ((#{labels\ 3226}#
|
|
(#{gen-labels\ 258}# #{ids\ 3222}#))
|
|
(#{new-vars\ 3227}#
|
|
(map #{gen-var\ 353}# #{ids\ 3222}#)))
|
|
(let ((#{w\ 3230}#
|
|
(#{make-binding-wrap\ 287}#
|
|
#{ids\ 3222}#
|
|
#{labels\ 3226}#
|
|
#{w\ 3190}#))
|
|
(#{r\ 3231}#
|
|
(#{extend-var-env\ 230}#
|
|
#{labels\ 3226}#
|
|
#{new-vars\ 3227}#
|
|
#{r\ 3189}#)))
|
|
(#{build-letrec\ 198}#
|
|
#{s\ 3191}#
|
|
(map syntax->datum #{ids\ 3222}#)
|
|
#{new-vars\ 3227}#
|
|
(map (lambda (#{x\ 3232}#)
|
|
(#{chi\ 325}#
|
|
#{x\ 3232}#
|
|
#{r\ 3231}#
|
|
#{w\ 3230}#
|
|
#{mod\ 3192}#))
|
|
#{val\ 3218}#)
|
|
(#{chi-body\ 333}#
|
|
(cons #{e1\ 3219}# #{e2\ 3220}#)
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3188}#
|
|
#{w\ 3230}#
|
|
#{s\ 3191}#
|
|
#{mod\ 3192}#)
|
|
#{r\ 3231}#
|
|
#{w\ 3230}#
|
|
#{mod\ 3192}#)))))))
|
|
#{tmp\ 3199}#)
|
|
((lambda (#{_\ 3237}#)
|
|
(syntax-violation
|
|
'letrec
|
|
"bad letrec"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3188}#
|
|
#{w\ 3190}#
|
|
#{s\ 3191}#
|
|
#{mod\ 3192}#)))
|
|
#{tmp\ 3198}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3198}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 3188}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'set!
|
|
(lambda (#{e\ 3238}#
|
|
#{r\ 3239}#
|
|
#{w\ 3240}#
|
|
#{s\ 3241}#
|
|
#{mod\ 3242}#)
|
|
((lambda (#{tmp\ 3248}#)
|
|
((lambda (#{tmp\ 3249}#)
|
|
(if (if #{tmp\ 3249}#
|
|
(apply (lambda (#{_\ 3253}# #{id\ 3254}# #{val\ 3255}#)
|
|
(#{id?\ 240}# #{id\ 3254}#))
|
|
#{tmp\ 3249}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3259}# #{id\ 3260}# #{val\ 3261}#)
|
|
(let ((#{val\ 3264}#
|
|
(#{chi\ 325}#
|
|
#{val\ 3261}#
|
|
#{r\ 3239}#
|
|
#{w\ 3240}#
|
|
#{mod\ 3242}#))
|
|
(#{n\ 3265}#
|
|
(#{id-var-name\ 297}#
|
|
#{id\ 3260}#
|
|
#{w\ 3240}#)))
|
|
(let ((#{b\ 3267}#
|
|
(#{lookup\ 234}#
|
|
#{n\ 3265}#
|
|
#{r\ 3239}#
|
|
#{mod\ 3242}#)))
|
|
(let ((#{atom-key\ 3270}#
|
|
(#{binding-type\ 223}# #{b\ 3267}#)))
|
|
(if (memv #{atom-key\ 3270}#
|
|
'(lexical))
|
|
(#{build-lexical-assignment\ 170}#
|
|
#{s\ 3241}#
|
|
(syntax->datum #{id\ 3260}#)
|
|
(#{binding-value\ 225}# #{b\ 3267}#)
|
|
#{val\ 3264}#)
|
|
(if (memv #{atom-key\ 3270}#
|
|
'(global))
|
|
(#{build-global-assignment\ 176}#
|
|
#{s\ 3241}#
|
|
#{n\ 3265}#
|
|
#{val\ 3264}#
|
|
#{mod\ 3242}#)
|
|
(if (memv #{atom-key\ 3270}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'set!
|
|
"identifier out of context"
|
|
(#{wrap\ 309}#
|
|
#{id\ 3260}#
|
|
#{w\ 3240}#
|
|
#{mod\ 3242}#))
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3238}#
|
|
#{w\ 3240}#
|
|
#{s\ 3241}#
|
|
#{mod\ 3242}#)))))))))
|
|
#{tmp\ 3249}#)
|
|
((lambda (#{tmp\ 3275}#)
|
|
(if #{tmp\ 3275}#
|
|
(apply (lambda (#{_\ 3280}#
|
|
#{head\ 3281}#
|
|
#{tail\ 3282}#
|
|
#{val\ 3283}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 321}#
|
|
#{head\ 3281}#
|
|
#{r\ 3239}#
|
|
'(())
|
|
#f
|
|
#f
|
|
#{mod\ 3242}#
|
|
#t))
|
|
(lambda (#{type\ 3286}#
|
|
#{value\ 3287}#
|
|
#{ee\ 3288}#
|
|
#{ww\ 3289}#
|
|
#{ss\ 3290}#
|
|
#{modmod\ 3291}#)
|
|
(if (memv #{type\ 3286}#
|
|
'(module-ref))
|
|
(let ((#{val\ 3300}#
|
|
(#{chi\ 325}#
|
|
#{val\ 3283}#
|
|
#{r\ 3239}#
|
|
#{w\ 3240}#
|
|
#{mod\ 3242}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{value\ 3287}#
|
|
(cons #{head\ 3281}#
|
|
#{tail\ 3282}#)))
|
|
(lambda (#{id\ 3302}# #{mod\ 3303}#)
|
|
(#{build-global-assignment\ 176}#
|
|
#{s\ 3241}#
|
|
#{id\ 3302}#
|
|
#{val\ 3300}#
|
|
#{mod\ 3303}#))))
|
|
(#{build-application\ 162}#
|
|
#{s\ 3241}#
|
|
(#{chi\ 325}#
|
|
(list '#(syntax-object
|
|
setter
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(type
|
|
value
|
|
ee
|
|
ww
|
|
ss
|
|
modmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3292"
|
|
"i3293"
|
|
"i3294"
|
|
"i3295"
|
|
"i3296"
|
|
"i3297"))
|
|
#(ribcage
|
|
#(_ head tail val)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3276"
|
|
"i3277"
|
|
"i3278"
|
|
"i3279"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w s mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3243"
|
|
"i3244"
|
|
"i3245"
|
|
"i3246"
|
|
"i3247"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile))
|
|
#{head\ 3281}#)
|
|
#{r\ 3239}#
|
|
#{w\ 3240}#
|
|
#{mod\ 3242}#)
|
|
(map (lambda (#{e\ 3307}#)
|
|
(#{chi\ 325}#
|
|
#{e\ 3307}#
|
|
#{r\ 3239}#
|
|
#{w\ 3240}#
|
|
#{mod\ 3242}#))
|
|
(append
|
|
#{tail\ 3282}#
|
|
(list #{val\ 3283}#))))))))
|
|
#{tmp\ 3275}#)
|
|
((lambda (#{_\ 3311}#)
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3238}#
|
|
#{w\ 3240}#
|
|
#{s\ 3241}#
|
|
#{mod\ 3242}#)))
|
|
#{tmp\ 3248}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3248}#
|
|
'(any (any . each-any) any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3248}#
|
|
'(any any any))))
|
|
#{e\ 3238}#)))
|
|
(#{global-extend\ 236}#
|
|
'module-ref
|
|
'@
|
|
(lambda (#{e\ 3312}#)
|
|
((lambda (#{tmp\ 3314}#)
|
|
((lambda (#{tmp\ 3315}#)
|
|
(if (if #{tmp\ 3315}#
|
|
(apply (lambda (#{_\ 3319}# #{mod\ 3320}# #{id\ 3321}#)
|
|
(if (and-map #{id?\ 240}# #{mod\ 3320}#)
|
|
(#{id?\ 240}# #{id\ 3321}#)
|
|
#f))
|
|
#{tmp\ 3315}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3328}# #{mod\ 3329}# #{id\ 3330}#)
|
|
(values
|
|
(syntax->datum #{id\ 3330}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
public
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i3325" "i3326" "i3327"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i3313"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile))
|
|
#{mod\ 3329}#))))
|
|
#{tmp\ 3315}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3314}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3314}#
|
|
'(any each-any any))))
|
|
#{e\ 3312}#)))
|
|
(#{global-extend\ 236}#
|
|
'module-ref
|
|
'@@
|
|
(lambda (#{e\ 3332}#)
|
|
((lambda (#{tmp\ 3334}#)
|
|
((lambda (#{tmp\ 3335}#)
|
|
(if (if #{tmp\ 3335}#
|
|
(apply (lambda (#{_\ 3339}# #{mod\ 3340}# #{id\ 3341}#)
|
|
(if (and-map #{id?\ 240}# #{mod\ 3340}#)
|
|
(#{id?\ 240}# #{id\ 3341}#)
|
|
#f))
|
|
#{tmp\ 3335}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3348}# #{mod\ 3349}# #{id\ 3350}#)
|
|
(values
|
|
(syntax->datum #{id\ 3350}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
private
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i3345" "i3346" "i3347"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i3333"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile))
|
|
#{mod\ 3349}#))))
|
|
#{tmp\ 3335}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3334}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3334}#
|
|
'(any each-any any))))
|
|
#{e\ 3332}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'if
|
|
(lambda (#{e\ 3352}#
|
|
#{r\ 3353}#
|
|
#{w\ 3354}#
|
|
#{s\ 3355}#
|
|
#{mod\ 3356}#)
|
|
((lambda (#{tmp\ 3362}#)
|
|
((lambda (#{tmp\ 3363}#)
|
|
(if #{tmp\ 3363}#
|
|
(apply (lambda (#{_\ 3367}# #{test\ 3368}# #{then\ 3369}#)
|
|
(#{build-conditional\ 164}#
|
|
#{s\ 3355}#
|
|
(#{chi\ 325}#
|
|
#{test\ 3368}#
|
|
#{r\ 3353}#
|
|
#{w\ 3354}#
|
|
#{mod\ 3356}#)
|
|
(#{chi\ 325}#
|
|
#{then\ 3369}#
|
|
#{r\ 3353}#
|
|
#{w\ 3354}#
|
|
#{mod\ 3356}#)
|
|
(#{build-void\ 160}# #f)))
|
|
#{tmp\ 3363}#)
|
|
((lambda (#{tmp\ 3371}#)
|
|
(if #{tmp\ 3371}#
|
|
(apply (lambda (#{_\ 3376}#
|
|
#{test\ 3377}#
|
|
#{then\ 3378}#
|
|
#{else\ 3379}#)
|
|
(#{build-conditional\ 164}#
|
|
#{s\ 3355}#
|
|
(#{chi\ 325}#
|
|
#{test\ 3377}#
|
|
#{r\ 3353}#
|
|
#{w\ 3354}#
|
|
#{mod\ 3356}#)
|
|
(#{chi\ 325}#
|
|
#{then\ 3378}#
|
|
#{r\ 3353}#
|
|
#{w\ 3354}#
|
|
#{mod\ 3356}#)
|
|
(#{chi\ 325}#
|
|
#{else\ 3379}#
|
|
#{r\ 3353}#
|
|
#{w\ 3354}#
|
|
#{mod\ 3356}#)))
|
|
#{tmp\ 3371}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3362}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3362}#
|
|
'(any any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3362}#
|
|
'(any any any))))
|
|
#{e\ 3352}#)))
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'with-fluids
|
|
(lambda (#{e\ 3380}#
|
|
#{r\ 3381}#
|
|
#{w\ 3382}#
|
|
#{s\ 3383}#
|
|
#{mod\ 3384}#)
|
|
((lambda (#{tmp\ 3390}#)
|
|
((lambda (#{tmp\ 3391}#)
|
|
(if #{tmp\ 3391}#
|
|
(apply (lambda (#{_\ 3397}#
|
|
#{fluid\ 3398}#
|
|
#{val\ 3399}#
|
|
#{b\ 3400}#
|
|
#{b*\ 3401}#)
|
|
(#{build-dynlet\ 166}#
|
|
#{s\ 3383}#
|
|
(map (lambda (#{x\ 3402}#)
|
|
(#{chi\ 325}#
|
|
#{x\ 3402}#
|
|
#{r\ 3381}#
|
|
#{w\ 3382}#
|
|
#{mod\ 3384}#))
|
|
#{fluid\ 3398}#)
|
|
(map (lambda (#{x\ 3405}#)
|
|
(#{chi\ 325}#
|
|
#{x\ 3405}#
|
|
#{r\ 3381}#
|
|
#{w\ 3382}#
|
|
#{mod\ 3384}#))
|
|
#{val\ 3399}#)
|
|
(#{chi-body\ 333}#
|
|
(cons #{b\ 3400}# #{b*\ 3401}#)
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3380}#
|
|
#{w\ 3382}#
|
|
#{s\ 3383}#
|
|
#{mod\ 3384}#)
|
|
#{r\ 3381}#
|
|
#{w\ 3382}#
|
|
#{mod\ 3384}#)))
|
|
#{tmp\ 3391}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3390}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3390}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 3380}#)))
|
|
(#{global-extend\ 236}#
|
|
'begin
|
|
'begin
|
|
'())
|
|
(#{global-extend\ 236}#
|
|
'define
|
|
'define
|
|
'())
|
|
(#{global-extend\ 236}#
|
|
'define-syntax
|
|
'define-syntax
|
|
'())
|
|
(#{global-extend\ 236}#
|
|
'eval-when
|
|
'eval-when
|
|
'())
|
|
(#{global-extend\ 236}#
|
|
'core
|
|
'syntax-case
|
|
(letrec ((#{gen-syntax-case\ 3416}#
|
|
(lambda (#{x\ 3417}#
|
|
#{keys\ 3418}#
|
|
#{clauses\ 3419}#
|
|
#{r\ 3420}#
|
|
#{mod\ 3421}#)
|
|
(if (null? #{clauses\ 3419}#)
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}#
|
|
#f
|
|
'syntax-violation)
|
|
(list (#{build-data\ 190}# #f #f)
|
|
(#{build-data\ 190}#
|
|
#f
|
|
"source expression failed to match any pattern")
|
|
#{x\ 3417}#))
|
|
((lambda (#{tmp\ 3431}#)
|
|
((lambda (#{tmp\ 3432}#)
|
|
(if #{tmp\ 3432}#
|
|
(apply (lambda (#{pat\ 3435}# #{exp\ 3436}#)
|
|
(if (if (#{id?\ 240}# #{pat\ 3435}#)
|
|
(and-map
|
|
(lambda (#{x\ 3439}#)
|
|
(not (#{free-id=?\ 299}#
|
|
#{pat\ 3435}#
|
|
#{x\ 3439}#)))
|
|
(cons '#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("i3433" "i3434"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r
|
|
mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3422"
|
|
"i3423"
|
|
"i3424"
|
|
"i3425"
|
|
"i3426"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i3415"
|
|
"i3413"
|
|
"i3411"
|
|
"i3409"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-dynlet
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("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"
|
|
"i286"
|
|
"i284"
|
|
"i283"
|
|
"i282"
|
|
"i280"
|
|
"i279"
|
|
"i278"
|
|
"i277"
|
|
"i276"
|
|
"i274"
|
|
"i272"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i260"
|
|
"i257"
|
|
"i255"
|
|
"i254"
|
|
"i253"
|
|
"i252"
|
|
"i251"
|
|
"i250"
|
|
"i248"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i239"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i226"
|
|
"i224"
|
|
"i222"
|
|
"i221"
|
|
"i220"
|
|
"i218"
|
|
"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"
|
|
"i155"
|
|
"i153"
|
|
"i152"
|
|
"i150"
|
|
"i148"
|
|
"i146"
|
|
"i144"
|
|
"i142"
|
|
"i140"
|
|
"i138"
|
|
"i136"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i39" "i37")))
|
|
(hygiene guile))
|
|
#{keys\ 3418}#))
|
|
#f)
|
|
(let ((#{labels\ 3443}#
|
|
(list (#{gen-label\ 256}#)))
|
|
(#{var\ 3444}#
|
|
(#{gen-var\ 353}#
|
|
#{pat\ 3435}#)))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-simple-lambda\ 182}#
|
|
#f
|
|
(list (syntax->datum
|
|
#{pat\ 3435}#))
|
|
#f
|
|
(list #{var\ 3444}#)
|
|
#f
|
|
(#{chi\ 325}#
|
|
#{exp\ 3436}#
|
|
(#{extend-env\ 228}#
|
|
#{labels\ 3443}#
|
|
(list (cons 'syntax
|
|
(cons #{var\ 3444}#
|
|
0)))
|
|
#{r\ 3420}#)
|
|
(#{make-binding-wrap\ 287}#
|
|
(list #{pat\ 3435}#)
|
|
#{labels\ 3443}#
|
|
'(()))
|
|
#{mod\ 3421}#))
|
|
(list #{x\ 3417}#)))
|
|
(#{gen-clause\ 3414}#
|
|
#{x\ 3417}#
|
|
#{keys\ 3418}#
|
|
(cdr #{clauses\ 3419}#)
|
|
#{r\ 3420}#
|
|
#{pat\ 3435}#
|
|
#t
|
|
#{exp\ 3436}#
|
|
#{mod\ 3421}#)))
|
|
#{tmp\ 3432}#)
|
|
((lambda (#{tmp\ 3450}#)
|
|
(if #{tmp\ 3450}#
|
|
(apply (lambda (#{pat\ 3454}#
|
|
#{fender\ 3455}#
|
|
#{exp\ 3456}#)
|
|
(#{gen-clause\ 3414}#
|
|
#{x\ 3417}#
|
|
#{keys\ 3418}#
|
|
(cdr #{clauses\ 3419}#)
|
|
#{r\ 3420}#
|
|
#{pat\ 3454}#
|
|
#{fender\ 3455}#
|
|
#{exp\ 3456}#
|
|
#{mod\ 3421}#))
|
|
#{tmp\ 3450}#)
|
|
((lambda (#{_\ 3458}#)
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid clause"
|
|
(car #{clauses\ 3419}#)))
|
|
#{tmp\ 3431}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3431}#
|
|
'(any any any)))))
|
|
($sc-dispatch #{tmp\ 3431}# (quote (any any)))))
|
|
(car #{clauses\ 3419}#)))))
|
|
(#{gen-clause\ 3414}#
|
|
(lambda (#{x\ 3459}#
|
|
#{keys\ 3460}#
|
|
#{clauses\ 3461}#
|
|
#{r\ 3462}#
|
|
#{pat\ 3463}#
|
|
#{fender\ 3464}#
|
|
#{exp\ 3465}#
|
|
#{mod\ 3466}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{convert-pattern\ 3410}#
|
|
#{pat\ 3463}#
|
|
#{keys\ 3460}#))
|
|
(lambda (#{p\ 3475}# #{pvars\ 3476}#)
|
|
(if (not (#{distinct-bound-ids?\ 305}#
|
|
(map car #{pvars\ 3476}#)))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"duplicate pattern variable"
|
|
#{pat\ 3463}#)
|
|
(if (not (and-map
|
|
(lambda (#{x\ 3483}#)
|
|
(not (#{ellipsis?\ 341}#
|
|
(car #{x\ 3483}#))))
|
|
#{pvars\ 3476}#))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"misplaced ellipsis"
|
|
#{pat\ 3463}#)
|
|
(let ((#{y\ 3487}#
|
|
(#{gen-var\ 353}# (quote tmp))))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-simple-lambda\ 182}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{y\ 3487}#)
|
|
#f
|
|
(let ((#{y\ 3491}#
|
|
(#{build-lexical-reference\ 168}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{y\ 3487}#)))
|
|
(#{build-conditional\ 164}#
|
|
#f
|
|
((lambda (#{tmp\ 3494}#)
|
|
((lambda (#{tmp\ 3495}#)
|
|
(if #{tmp\ 3495}#
|
|
(apply (lambda () #{y\ 3491}#)
|
|
#{tmp\ 3495}#)
|
|
((lambda (#{_\ 3497}#)
|
|
(#{build-conditional\ 164}#
|
|
#f
|
|
#{y\ 3491}#
|
|
(#{build-dispatch-call\ 3412}#
|
|
#{pvars\ 3476}#
|
|
#{fender\ 3464}#
|
|
#{y\ 3491}#
|
|
#{r\ 3462}#
|
|
#{mod\ 3466}#)
|
|
(#{build-data\ 190}#
|
|
#f
|
|
#f)))
|
|
#{tmp\ 3494}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3494}#
|
|
'#(atom #t))))
|
|
#{fender\ 3464}#)
|
|
(#{build-dispatch-call\ 3412}#
|
|
#{pvars\ 3476}#
|
|
#{exp\ 3465}#
|
|
#{y\ 3491}#
|
|
#{r\ 3462}#
|
|
#{mod\ 3466}#)
|
|
(#{gen-syntax-case\ 3416}#
|
|
#{x\ 3459}#
|
|
#{keys\ 3460}#
|
|
#{clauses\ 3461}#
|
|
#{r\ 3462}#
|
|
#{mod\ 3466}#))))
|
|
(list (if (eq? #{p\ 3475}# (quote any))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}#
|
|
#f
|
|
'list)
|
|
(list #{x\ 3459}#))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}#
|
|
#f
|
|
'$sc-dispatch)
|
|
(list #{x\ 3459}#
|
|
(#{build-data\ 190}#
|
|
#f
|
|
#{p\ 3475}#)))))))))))))
|
|
(#{build-dispatch-call\ 3412}#
|
|
(lambda (#{pvars\ 3505}#
|
|
#{exp\ 3506}#
|
|
#{y\ 3507}#
|
|
#{r\ 3508}#
|
|
#{mod\ 3509}#)
|
|
(let ((#{ids\ 3517}# (map car #{pvars\ 3505}#))
|
|
(#{levels\ 3518}# (map cdr #{pvars\ 3505}#)))
|
|
(let ((#{labels\ 3521}#
|
|
(#{gen-labels\ 258}# #{ids\ 3517}#))
|
|
(#{new-vars\ 3522}#
|
|
(map #{gen-var\ 353}# #{ids\ 3517}#)))
|
|
(#{build-application\ 162}#
|
|
#f
|
|
(#{build-primref\ 188}# #f (quote apply))
|
|
(list (#{build-simple-lambda\ 182}#
|
|
#f
|
|
(map syntax->datum #{ids\ 3517}#)
|
|
#f
|
|
#{new-vars\ 3522}#
|
|
#f
|
|
(#{chi\ 325}#
|
|
#{exp\ 3506}#
|
|
(#{extend-env\ 228}#
|
|
#{labels\ 3521}#
|
|
(map (lambda (#{var\ 3526}#
|
|
#{level\ 3527}#)
|
|
(cons 'syntax
|
|
(cons #{var\ 3526}#
|
|
#{level\ 3527}#)))
|
|
#{new-vars\ 3522}#
|
|
(map cdr #{pvars\ 3505}#))
|
|
#{r\ 3508}#)
|
|
(#{make-binding-wrap\ 287}#
|
|
#{ids\ 3517}#
|
|
#{labels\ 3521}#
|
|
'(()))
|
|
#{mod\ 3509}#))
|
|
#{y\ 3507}#))))))
|
|
(#{convert-pattern\ 3410}#
|
|
(lambda (#{pattern\ 3533}# #{keys\ 3534}#)
|
|
(letrec ((#{cvt\ 3540}#
|
|
(lambda (#{p\ 3541}# #{n\ 3542}# #{ids\ 3543}#)
|
|
(if (#{id?\ 240}# #{p\ 3541}#)
|
|
(if (#{bound-id-member?\ 307}#
|
|
#{p\ 3541}#
|
|
#{keys\ 3534}#)
|
|
(values
|
|
(vector (quote free-id) #{p\ 3541}#)
|
|
#{ids\ 3543}#)
|
|
(values
|
|
'any
|
|
(cons (cons #{p\ 3541}# #{n\ 3542}#)
|
|
#{ids\ 3543}#)))
|
|
((lambda (#{tmp\ 3547}#)
|
|
((lambda (#{tmp\ 3548}#)
|
|
(if (if #{tmp\ 3548}#
|
|
(apply (lambda (#{x\ 3551}#
|
|
#{dots\ 3552}#)
|
|
(#{ellipsis?\ 341}#
|
|
#{dots\ 3552}#))
|
|
#{tmp\ 3548}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 3555}#
|
|
#{dots\ 3556}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3540}#
|
|
#{x\ 3555}#
|
|
(#{fx+\ 141}#
|
|
#{n\ 3542}#
|
|
1)
|
|
#{ids\ 3543}#))
|
|
(lambda (#{p\ 3557}#
|
|
#{ids\ 3558}#)
|
|
(values
|
|
(if (eq? #{p\ 3557}#
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
#{p\ 3557}#))
|
|
#{ids\ 3558}#))))
|
|
#{tmp\ 3548}#)
|
|
((lambda (#{tmp\ 3561}#)
|
|
(if (if #{tmp\ 3561}#
|
|
(apply (lambda (#{x\ 3565}#
|
|
#{dots\ 3566}#
|
|
#{ys\ 3567}#)
|
|
(#{ellipsis?\ 341}#
|
|
#{dots\ 3566}#))
|
|
#{tmp\ 3561}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 3571}#
|
|
#{dots\ 3572}#
|
|
#{ys\ 3573}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 3538}#
|
|
#{ys\ 3573}#
|
|
#{n\ 3542}#
|
|
#{ids\ 3543}#))
|
|
(lambda (#{ys\ 3575}#
|
|
#{ids\ 3576}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3540}#
|
|
#{x\ 3571}#
|
|
(+ #{n\ 3542}#
|
|
1)
|
|
#{ids\ 3576}#))
|
|
(lambda (#{x\ 3579}#
|
|
#{ids\ 3580}#)
|
|
(values
|
|
(list->vector
|
|
(cons 'each+
|
|
(cons #{x\ 3579}#
|
|
(cons (reverse
|
|
#{ys\ 3575}#)
|
|
'(())))))
|
|
#{ids\ 3580}#))))))
|
|
#{tmp\ 3561}#)
|
|
((lambda (#{tmp\ 3584}#)
|
|
(if #{tmp\ 3584}#
|
|
(apply (lambda (#{x\ 3587}#
|
|
#{y\ 3588}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3540}#
|
|
#{y\ 3588}#
|
|
#{n\ 3542}#
|
|
#{ids\ 3543}#))
|
|
(lambda (#{y\ 3589}#
|
|
#{ids\ 3590}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3540}#
|
|
#{x\ 3587}#
|
|
#{n\ 3542}#
|
|
#{ids\ 3590}#))
|
|
(lambda (#{x\ 3593}#
|
|
#{ids\ 3594}#)
|
|
(values
|
|
(cons #{x\ 3593}#
|
|
#{y\ 3589}#)
|
|
#{ids\ 3594}#))))))
|
|
#{tmp\ 3584}#)
|
|
((lambda (#{tmp\ 3597}#)
|
|
(if #{tmp\ 3597}#
|
|
(apply (lambda ()
|
|
(values
|
|
'()
|
|
#{ids\ 3543}#))
|
|
#{tmp\ 3597}#)
|
|
((lambda (#{tmp\ 3598}#)
|
|
(if #{tmp\ 3598}#
|
|
(apply (lambda (#{x\ 3600}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3540}#
|
|
#{x\ 3600}#
|
|
#{n\ 3542}#
|
|
#{ids\ 3543}#))
|
|
(lambda (#{p\ 3602}#
|
|
#{ids\ 3603}#)
|
|
(values
|
|
(vector
|
|
'vector
|
|
#{p\ 3602}#)
|
|
#{ids\ 3603}#))))
|
|
#{tmp\ 3598}#)
|
|
((lambda (#{x\ 3607}#)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(#{strip\ 351}#
|
|
#{p\ 3541}#
|
|
'(())))
|
|
#{ids\ 3543}#))
|
|
#{tmp\ 3547}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3547}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3547}#
|
|
'()))))
|
|
($sc-dispatch
|
|
#{tmp\ 3547}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3547}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3547}#
|
|
'(any any))))
|
|
#{p\ 3541}#))))
|
|
(#{cvt*\ 3538}#
|
|
(lambda (#{p*\ 3609}#
|
|
#{n\ 3610}#
|
|
#{ids\ 3611}#)
|
|
(if (null? #{p*\ 3609}#)
|
|
(values (quote ()) #{ids\ 3611}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 3538}#
|
|
(cdr #{p*\ 3609}#)
|
|
#{n\ 3610}#
|
|
#{ids\ 3611}#))
|
|
(lambda (#{y\ 3615}# #{ids\ 3616}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3540}#
|
|
(car #{p*\ 3609}#)
|
|
#{n\ 3610}#
|
|
#{ids\ 3616}#))
|
|
(lambda (#{x\ 3619}# #{ids\ 3620}#)
|
|
(values
|
|
(cons #{x\ 3619}# #{y\ 3615}#)
|
|
#{ids\ 3620}#)))))))))
|
|
(#{cvt\ 3540}# #{pattern\ 3533}# 0 (quote ()))))))
|
|
(lambda (#{e\ 3623}#
|
|
#{r\ 3624}#
|
|
#{w\ 3625}#
|
|
#{s\ 3626}#
|
|
#{mod\ 3627}#)
|
|
(let ((#{e\ 3634}#
|
|
(#{source-wrap\ 311}#
|
|
#{e\ 3623}#
|
|
#{w\ 3625}#
|
|
#{s\ 3626}#
|
|
#{mod\ 3627}#)))
|
|
((lambda (#{tmp\ 3635}#)
|
|
((lambda (#{tmp\ 3636}#)
|
|
(if #{tmp\ 3636}#
|
|
(apply (lambda (#{_\ 3641}#
|
|
#{val\ 3642}#
|
|
#{key\ 3643}#
|
|
#{m\ 3644}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 3645}#)
|
|
(if (#{id?\ 240}# #{x\ 3645}#)
|
|
(not (#{ellipsis?\ 341}# #{x\ 3645}#))
|
|
#f))
|
|
#{key\ 3643}#)
|
|
(let ((#{x\ 3651}#
|
|
(#{gen-var\ 353}# (quote tmp))))
|
|
(#{build-application\ 162}#
|
|
#{s\ 3626}#
|
|
(#{build-simple-lambda\ 182}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{x\ 3651}#)
|
|
#f
|
|
(#{gen-syntax-case\ 3416}#
|
|
(#{build-lexical-reference\ 168}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{x\ 3651}#)
|
|
#{key\ 3643}#
|
|
#{m\ 3644}#
|
|
#{r\ 3624}#
|
|
#{mod\ 3627}#))
|
|
(list (#{chi\ 325}#
|
|
#{val\ 3642}#
|
|
#{r\ 3624}#
|
|
'(())
|
|
#{mod\ 3627}#))))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid literals list"
|
|
#{e\ 3634}#)))
|
|
#{tmp\ 3636}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3635}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3635}#
|
|
'(any any each-any . each-any))))
|
|
#{e\ 3634}#)))))
|
|
(set! sc-expand
|
|
(lambda (#{x\ 3657}# . #{rest\ 3658}#)
|
|
(if (if (pair? #{x\ 3657}#)
|
|
(equal? (car #{x\ 3657}#) #{noexpand\ 137}#)
|
|
#f)
|
|
(cadr #{x\ 3657}#)
|
|
(let ((#{m\ 3665}#
|
|
(if (null? #{rest\ 3658}#)
|
|
'e
|
|
(car #{rest\ 3658}#)))
|
|
(#{esew\ 3666}#
|
|
(if (let ((#{t\ 3669}# (null? #{rest\ 3658}#)))
|
|
(if #{t\ 3669}#
|
|
#{t\ 3669}#
|
|
(null? (cdr #{rest\ 3658}#))))
|
|
'(eval)
|
|
(cadr #{rest\ 3658}#))))
|
|
(with-fluids
|
|
((#{*mode*\ 139}# #{m\ 3665}#))
|
|
(#{chi-top\ 323}#
|
|
#{x\ 3657}#
|
|
'()
|
|
'((top))
|
|
#{m\ 3665}#
|
|
#{esew\ 3666}#
|
|
(cons 'hygiene
|
|
(module-name (current-module)))))))))
|
|
(set! identifier?
|
|
(lambda (#{x\ 3673}#)
|
|
(#{nonsymbol-id?\ 238}# #{x\ 3673}#)))
|
|
(set! datum->syntax
|
|
(lambda (#{id\ 3675}# #{datum\ 3676}#)
|
|
(#{make-syntax-object\ 202}#
|
|
#{datum\ 3676}#
|
|
(#{syntax-object-wrap\ 208}# #{id\ 3675}#)
|
|
#f)))
|
|
(set! syntax->datum
|
|
(lambda (#{x\ 3679}#)
|
|
(#{strip\ 351}# #{x\ 3679}# (quote (())))))
|
|
(set! generate-temporaries
|
|
(lambda (#{ls\ 3682}#)
|
|
(begin
|
|
(let ((#{x\ 3686}# #{ls\ 3682}#))
|
|
(if (not (list? #{x\ 3686}#))
|
|
(syntax-violation
|
|
'generate-temporaries
|
|
"invalid argument"
|
|
#{x\ 3686}#)))
|
|
(map (lambda (#{x\ 3687}#)
|
|
(#{wrap\ 309}# (gensym) (quote ((top))) #f))
|
|
#{ls\ 3682}#))))
|
|
(set! free-identifier=?
|
|
(lambda (#{x\ 3691}# #{y\ 3692}#)
|
|
(begin
|
|
(let ((#{x\ 3697}# #{x\ 3691}#))
|
|
(if (not (#{nonsymbol-id?\ 238}# #{x\ 3697}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3697}#)))
|
|
(let ((#{x\ 3700}# #{y\ 3692}#))
|
|
(if (not (#{nonsymbol-id?\ 238}# #{x\ 3700}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3700}#)))
|
|
(#{free-id=?\ 299}# #{x\ 3691}# #{y\ 3692}#))))
|
|
(set! bound-identifier=?
|
|
(lambda (#{x\ 3701}# #{y\ 3702}#)
|
|
(begin
|
|
(let ((#{x\ 3707}# #{x\ 3701}#))
|
|
(if (not (#{nonsymbol-id?\ 238}# #{x\ 3707}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3707}#)))
|
|
(let ((#{x\ 3710}# #{y\ 3702}#))
|
|
(if (not (#{nonsymbol-id?\ 238}# #{x\ 3710}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3710}#)))
|
|
(#{bound-id=?\ 301}# #{x\ 3701}# #{y\ 3702}#))))
|
|
(set! syntax-violation
|
|
(lambda (#{who\ 3711}#
|
|
#{message\ 3712}#
|
|
#{form\ 3713}#
|
|
.
|
|
#{subform\ 3714}#)
|
|
(begin
|
|
(let ((#{x\ 3721}# #{who\ 3711}#))
|
|
(if (not ((lambda (#{x\ 3722}#)
|
|
(let ((#{t\ 3726}# (not #{x\ 3722}#)))
|
|
(if #{t\ 3726}#
|
|
#{t\ 3726}#
|
|
(let ((#{t\ 3729}# (string? #{x\ 3722}#)))
|
|
(if #{t\ 3729}#
|
|
#{t\ 3729}#
|
|
(symbol? #{x\ 3722}#))))))
|
|
#{x\ 3721}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 3721}#)))
|
|
(let ((#{x\ 3733}# #{message\ 3712}#))
|
|
(if (not (string? #{x\ 3733}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 3733}#)))
|
|
(scm-error
|
|
'syntax-error
|
|
'sc-expand
|
|
(string-append
|
|
(if #{who\ 3711}# "~a: " "")
|
|
"~a "
|
|
(if (null? #{subform\ 3714}#)
|
|
"in ~a"
|
|
"in subform `~s' of `~s'"))
|
|
(let ((#{tail\ 3735}#
|
|
(cons #{message\ 3712}#
|
|
(map (lambda (#{x\ 3736}#)
|
|
(#{strip\ 351}# #{x\ 3736}# (quote (()))))
|
|
(append
|
|
#{subform\ 3714}#
|
|
(list #{form\ 3713}#))))))
|
|
(if #{who\ 3711}#
|
|
(cons #{who\ 3711}# #{tail\ 3735}#)
|
|
#{tail\ 3735}#))
|
|
#f))))
|
|
(letrec ((#{match\ 3752}#
|
|
(lambda (#{e\ 3753}#
|
|
#{p\ 3754}#
|
|
#{w\ 3755}#
|
|
#{r\ 3756}#
|
|
#{mod\ 3757}#)
|
|
(if (not #{r\ 3756}#)
|
|
#f
|
|
(if (eq? #{p\ 3754}# (quote any))
|
|
(cons (#{wrap\ 309}#
|
|
#{e\ 3753}#
|
|
#{w\ 3755}#
|
|
#{mod\ 3757}#)
|
|
#{r\ 3756}#)
|
|
(if (#{syntax-object?\ 204}# #{e\ 3753}#)
|
|
(#{match*\ 3750}#
|
|
(#{syntax-object-expression\ 206}# #{e\ 3753}#)
|
|
#{p\ 3754}#
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 3755}#
|
|
(#{syntax-object-wrap\ 208}# #{e\ 3753}#))
|
|
#{r\ 3756}#
|
|
(#{syntax-object-module\ 210}# #{e\ 3753}#))
|
|
(#{match*\ 3750}#
|
|
#{e\ 3753}#
|
|
#{p\ 3754}#
|
|
#{w\ 3755}#
|
|
#{r\ 3756}#
|
|
#{mod\ 3757}#))))))
|
|
(#{match*\ 3750}#
|
|
(lambda (#{e\ 3770}#
|
|
#{p\ 3771}#
|
|
#{w\ 3772}#
|
|
#{r\ 3773}#
|
|
#{mod\ 3774}#)
|
|
(if (null? #{p\ 3771}#)
|
|
(if (null? #{e\ 3770}#) #{r\ 3773}# #f)
|
|
(if (pair? #{p\ 3771}#)
|
|
(if (pair? #{e\ 3770}#)
|
|
(#{match\ 3752}#
|
|
(car #{e\ 3770}#)
|
|
(car #{p\ 3771}#)
|
|
#{w\ 3772}#
|
|
(#{match\ 3752}#
|
|
(cdr #{e\ 3770}#)
|
|
(cdr #{p\ 3771}#)
|
|
#{w\ 3772}#
|
|
#{r\ 3773}#
|
|
#{mod\ 3774}#)
|
|
#{mod\ 3774}#)
|
|
#f)
|
|
(if (eq? #{p\ 3771}# (quote each-any))
|
|
(let ((#{l\ 3791}#
|
|
(#{match-each-any\ 3744}#
|
|
#{e\ 3770}#
|
|
#{w\ 3772}#
|
|
#{mod\ 3774}#)))
|
|
(if #{l\ 3791}#
|
|
(cons #{l\ 3791}# #{r\ 3773}#)
|
|
#f))
|
|
(let ((#{atom-key\ 3797}# (vector-ref #{p\ 3771}# 0)))
|
|
(if (memv #{atom-key\ 3797}# (quote (each)))
|
|
(if (null? #{e\ 3770}#)
|
|
(#{match-empty\ 3746}#
|
|
(vector-ref #{p\ 3771}# 1)
|
|
#{r\ 3773}#)
|
|
(let ((#{l\ 3800}#
|
|
(#{match-each\ 3740}#
|
|
#{e\ 3770}#
|
|
(vector-ref #{p\ 3771}# 1)
|
|
#{w\ 3772}#
|
|
#{mod\ 3774}#)))
|
|
(if #{l\ 3800}#
|
|
(letrec ((#{collect\ 3805}#
|
|
(lambda (#{l\ 3806}#)
|
|
(if (null? (car #{l\ 3806}#))
|
|
#{r\ 3773}#
|
|
(cons (map car #{l\ 3806}#)
|
|
(#{collect\ 3805}#
|
|
(map cdr
|
|
#{l\ 3806}#)))))))
|
|
(#{collect\ 3805}# #{l\ 3800}#))
|
|
#f)))
|
|
(if (memv #{atom-key\ 3797}# (quote (each+)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{match-each+\ 3742}#
|
|
#{e\ 3770}#
|
|
(vector-ref #{p\ 3771}# 1)
|
|
(vector-ref #{p\ 3771}# 2)
|
|
(vector-ref #{p\ 3771}# 3)
|
|
#{w\ 3772}#
|
|
#{r\ 3773}#
|
|
#{mod\ 3774}#))
|
|
(lambda (#{xr*\ 3808}#
|
|
#{y-pat\ 3809}#
|
|
#{r\ 3810}#)
|
|
(if #{r\ 3810}#
|
|
(if (null? #{y-pat\ 3809}#)
|
|
(if (null? #{xr*\ 3808}#)
|
|
(#{match-empty\ 3746}#
|
|
(vector-ref #{p\ 3771}# 1)
|
|
#{r\ 3810}#)
|
|
(#{combine\ 3748}#
|
|
#{xr*\ 3808}#
|
|
#{r\ 3810}#))
|
|
#f)
|
|
#f)))
|
|
(if (memv #{atom-key\ 3797}# (quote (free-id)))
|
|
(if (#{id?\ 240}# #{e\ 3770}#)
|
|
(if (#{free-id=?\ 299}#
|
|
(#{wrap\ 309}#
|
|
#{e\ 3770}#
|
|
#{w\ 3772}#
|
|
#{mod\ 3774}#)
|
|
(vector-ref #{p\ 3771}# 1))
|
|
#{r\ 3773}#
|
|
#f)
|
|
#f)
|
|
(if (memv #{atom-key\ 3797}# (quote (atom)))
|
|
(if (equal?
|
|
(vector-ref #{p\ 3771}# 1)
|
|
(#{strip\ 351}#
|
|
#{e\ 3770}#
|
|
#{w\ 3772}#))
|
|
#{r\ 3773}#
|
|
#f)
|
|
(if (memv #{atom-key\ 3797}#
|
|
'(vector))
|
|
(if (vector? #{e\ 3770}#)
|
|
(#{match\ 3752}#
|
|
(vector->list #{e\ 3770}#)
|
|
(vector-ref #{p\ 3771}# 1)
|
|
#{w\ 3772}#
|
|
#{r\ 3773}#
|
|
#{mod\ 3774}#)
|
|
#f))))))))))))
|
|
(#{combine\ 3748}#
|
|
(lambda (#{r*\ 3827}# #{r\ 3828}#)
|
|
(if (null? (car #{r*\ 3827}#))
|
|
#{r\ 3828}#
|
|
(cons (map car #{r*\ 3827}#)
|
|
(#{combine\ 3748}#
|
|
(map cdr #{r*\ 3827}#)
|
|
#{r\ 3828}#)))))
|
|
(#{match-empty\ 3746}#
|
|
(lambda (#{p\ 3831}# #{r\ 3832}#)
|
|
(if (null? #{p\ 3831}#)
|
|
#{r\ 3832}#
|
|
(if (eq? #{p\ 3831}# (quote any))
|
|
(cons (quote ()) #{r\ 3832}#)
|
|
(if (pair? #{p\ 3831}#)
|
|
(#{match-empty\ 3746}#
|
|
(car #{p\ 3831}#)
|
|
(#{match-empty\ 3746}#
|
|
(cdr #{p\ 3831}#)
|
|
#{r\ 3832}#))
|
|
(if (eq? #{p\ 3831}# (quote each-any))
|
|
(cons (quote ()) #{r\ 3832}#)
|
|
(let ((#{atom-key\ 3846}#
|
|
(vector-ref #{p\ 3831}# 0)))
|
|
(if (memv #{atom-key\ 3846}# (quote (each)))
|
|
(#{match-empty\ 3746}#
|
|
(vector-ref #{p\ 3831}# 1)
|
|
#{r\ 3832}#)
|
|
(if (memv #{atom-key\ 3846}# (quote (each+)))
|
|
(#{match-empty\ 3746}#
|
|
(vector-ref #{p\ 3831}# 1)
|
|
(#{match-empty\ 3746}#
|
|
(reverse (vector-ref #{p\ 3831}# 2))
|
|
(#{match-empty\ 3746}#
|
|
(vector-ref #{p\ 3831}# 3)
|
|
#{r\ 3832}#)))
|
|
(if (memv #{atom-key\ 3846}#
|
|
'(free-id atom))
|
|
#{r\ 3832}#
|
|
(if (memv #{atom-key\ 3846}#
|
|
'(vector))
|
|
(#{match-empty\ 3746}#
|
|
(vector-ref #{p\ 3831}# 1)
|
|
#{r\ 3832}#))))))))))))
|
|
(#{match-each-any\ 3744}#
|
|
(lambda (#{e\ 3851}# #{w\ 3852}# #{mod\ 3853}#)
|
|
(if (pair? #{e\ 3851}#)
|
|
(let ((#{l\ 3860}#
|
|
(#{match-each-any\ 3744}#
|
|
(cdr #{e\ 3851}#)
|
|
#{w\ 3852}#
|
|
#{mod\ 3853}#)))
|
|
(if #{l\ 3860}#
|
|
(cons (#{wrap\ 309}#
|
|
(car #{e\ 3851}#)
|
|
#{w\ 3852}#
|
|
#{mod\ 3853}#)
|
|
#{l\ 3860}#)
|
|
#f))
|
|
(if (null? #{e\ 3851}#)
|
|
'()
|
|
(if (#{syntax-object?\ 204}# #{e\ 3851}#)
|
|
(#{match-each-any\ 3744}#
|
|
(#{syntax-object-expression\ 206}# #{e\ 3851}#)
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 3852}#
|
|
(#{syntax-object-wrap\ 208}# #{e\ 3851}#))
|
|
#{mod\ 3853}#)
|
|
#f)))))
|
|
(#{match-each+\ 3742}#
|
|
(lambda (#{e\ 3868}#
|
|
#{x-pat\ 3869}#
|
|
#{y-pat\ 3870}#
|
|
#{z-pat\ 3871}#
|
|
#{w\ 3872}#
|
|
#{r\ 3873}#
|
|
#{mod\ 3874}#)
|
|
(letrec ((#{f\ 3885}#
|
|
(lambda (#{e\ 3886}# #{w\ 3887}#)
|
|
(if (pair? #{e\ 3886}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{f\ 3885}#
|
|
(cdr #{e\ 3886}#)
|
|
#{w\ 3887}#))
|
|
(lambda (#{xr*\ 3890}#
|
|
#{y-pat\ 3891}#
|
|
#{r\ 3892}#)
|
|
(if #{r\ 3892}#
|
|
(if (null? #{y-pat\ 3891}#)
|
|
(let ((#{xr\ 3897}#
|
|
(#{match\ 3752}#
|
|
(car #{e\ 3886}#)
|
|
#{x-pat\ 3869}#
|
|
#{w\ 3887}#
|
|
'()
|
|
#{mod\ 3874}#)))
|
|
(if #{xr\ 3897}#
|
|
(values
|
|
(cons #{xr\ 3897}#
|
|
#{xr*\ 3890}#)
|
|
#{y-pat\ 3891}#
|
|
#{r\ 3892}#)
|
|
(values #f #f #f)))
|
|
(values
|
|
'()
|
|
(cdr #{y-pat\ 3891}#)
|
|
(#{match\ 3752}#
|
|
(car #{e\ 3886}#)
|
|
(car #{y-pat\ 3891}#)
|
|
#{w\ 3887}#
|
|
#{r\ 3892}#
|
|
#{mod\ 3874}#)))
|
|
(values #f #f #f))))
|
|
(if (#{syntax-object?\ 204}# #{e\ 3886}#)
|
|
(#{f\ 3885}#
|
|
(#{syntax-object-expression\ 206}#
|
|
#{e\ 3886}#)
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 3887}#
|
|
#{e\ 3886}#))
|
|
(values
|
|
'()
|
|
#{y-pat\ 3870}#
|
|
(#{match\ 3752}#
|
|
#{e\ 3886}#
|
|
#{z-pat\ 3871}#
|
|
#{w\ 3887}#
|
|
#{r\ 3873}#
|
|
#{mod\ 3874}#)))))))
|
|
(#{f\ 3885}# #{e\ 3868}# #{w\ 3872}#))))
|
|
(#{match-each\ 3740}#
|
|
(lambda (#{e\ 3901}#
|
|
#{p\ 3902}#
|
|
#{w\ 3903}#
|
|
#{mod\ 3904}#)
|
|
(if (pair? #{e\ 3901}#)
|
|
(let ((#{first\ 3912}#
|
|
(#{match\ 3752}#
|
|
(car #{e\ 3901}#)
|
|
#{p\ 3902}#
|
|
#{w\ 3903}#
|
|
'()
|
|
#{mod\ 3904}#)))
|
|
(if #{first\ 3912}#
|
|
(let ((#{rest\ 3916}#
|
|
(#{match-each\ 3740}#
|
|
(cdr #{e\ 3901}#)
|
|
#{p\ 3902}#
|
|
#{w\ 3903}#
|
|
#{mod\ 3904}#)))
|
|
(if #{rest\ 3916}#
|
|
(cons #{first\ 3912}# #{rest\ 3916}#)
|
|
#f))
|
|
#f))
|
|
(if (null? #{e\ 3901}#)
|
|
'()
|
|
(if (#{syntax-object?\ 204}# #{e\ 3901}#)
|
|
(#{match-each\ 3740}#
|
|
(#{syntax-object-expression\ 206}# #{e\ 3901}#)
|
|
#{p\ 3902}#
|
|
(#{join-wraps\ 291}#
|
|
#{w\ 3903}#
|
|
(#{syntax-object-wrap\ 208}# #{e\ 3901}#))
|
|
(#{syntax-object-module\ 210}# #{e\ 3901}#))
|
|
#f))))))
|
|
(set! $sc-dispatch
|
|
(lambda (#{e\ 3924}# #{p\ 3925}#)
|
|
(if (eq? #{p\ 3925}# (quote any))
|
|
(list #{e\ 3924}#)
|
|
(if (#{syntax-object?\ 204}# #{e\ 3924}#)
|
|
(#{match*\ 3750}#
|
|
(#{syntax-object-expression\ 206}# #{e\ 3924}#)
|
|
#{p\ 3925}#
|
|
(#{syntax-object-wrap\ 208}# #{e\ 3924}#)
|
|
'()
|
|
(#{syntax-object-module\ 210}# #{e\ 3924}#))
|
|
(#{match*\ 3750}#
|
|
#{e\ 3924}#
|
|
#{p\ 3925}#
|
|
'(())
|
|
'()
|
|
#f)))))))))
|
|
|
|
(define with-syntax
|
|
(make-syntax-transformer
|
|
'with-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 3934}#)
|
|
((lambda (#{tmp\ 3936}#)
|
|
((lambda (#{tmp\ 3937}#)
|
|
(if #{tmp\ 3937}#
|
|
(apply (lambda (#{_\ 3941}# #{e1\ 3942}# #{e2\ 3943}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ e1 e2)
|
|
#((top) (top) (top))
|
|
#("i3938" "i3939" "i3940"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i3935")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 3942}# #{e2\ 3943}#)))
|
|
#{tmp\ 3937}#)
|
|
((lambda (#{tmp\ 3945}#)
|
|
(if #{tmp\ 3945}#
|
|
(apply (lambda (#{_\ 3951}#
|
|
#{out\ 3952}#
|
|
#{in\ 3953}#
|
|
#{e1\ 3954}#
|
|
#{e2\ 3955}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3946"
|
|
"i3947"
|
|
"i3948"
|
|
"i3949"
|
|
"i3950"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3935")))
|
|
(hygiene guile))
|
|
#{in\ 3953}#
|
|
'()
|
|
(list #{out\ 3952}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3946"
|
|
"i3947"
|
|
"i3948"
|
|
"i3949"
|
|
"i3950"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3935")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 3954}#
|
|
#{e2\ 3955}#)))))
|
|
#{tmp\ 3945}#)
|
|
((lambda (#{tmp\ 3957}#)
|
|
(if #{tmp\ 3957}#
|
|
(apply (lambda (#{_\ 3963}#
|
|
#{out\ 3964}#
|
|
#{in\ 3965}#
|
|
#{e1\ 3966}#
|
|
#{e2\ 3967}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3958"
|
|
"i3959"
|
|
"i3960"
|
|
"i3961"
|
|
"i3962"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3935")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3958"
|
|
"i3959"
|
|
"i3960"
|
|
"i3961"
|
|
"i3962"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3935")))
|
|
(hygiene guile))
|
|
#{in\ 3965}#)
|
|
'()
|
|
(list #{out\ 3964}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
out
|
|
in
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3958"
|
|
"i3959"
|
|
"i3960"
|
|
"i3961"
|
|
"i3962"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3935")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 3966}#
|
|
#{e2\ 3967}#)))))
|
|
#{tmp\ 3957}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3936}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3936}#
|
|
'(any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3936}#
|
|
'(any ((any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3936}#
|
|
'(any () any . each-any))))
|
|
#{x\ 3934}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define syntax-rules
|
|
(make-syntax-transformer
|
|
'syntax-rules
|
|
'macro
|
|
(cons (lambda (#{x\ 3971}#)
|
|
((lambda (#{tmp\ 3973}#)
|
|
((lambda (#{tmp\ 3974}#)
|
|
(if #{tmp\ 3974}#
|
|
(apply (lambda (#{_\ 3980}#
|
|
#{k\ 3981}#
|
|
#{keyword\ 3982}#
|
|
#{pattern\ 3983}#
|
|
#{template\ 3984}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3975"
|
|
"i3976"
|
|
"i3977"
|
|
"i3978"
|
|
"i3979"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i3972")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3975"
|
|
"i3976"
|
|
"i3977"
|
|
"i3978"
|
|
"i3979"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i3972")))
|
|
(hygiene guile)))
|
|
(cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3975"
|
|
"i3976"
|
|
"i3977"
|
|
"i3978"
|
|
"i3979"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3972")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3975"
|
|
"i3976"
|
|
"i3977"
|
|
"i3978"
|
|
"i3979"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3972")))
|
|
(hygiene guile))
|
|
(cons #{k\ 3981}#
|
|
(map (lambda (#{tmp\ 3987}#
|
|
#{tmp\ 3986}#)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3975"
|
|
"i3976"
|
|
"i3977"
|
|
"i3978"
|
|
"i3979"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3972")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 3986}#)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3975"
|
|
"i3976"
|
|
"i3977"
|
|
"i3978"
|
|
"i3979"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3972")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 3987}#)))
|
|
#{template\ 3984}#
|
|
#{pattern\ 3983}#))))))
|
|
#{tmp\ 3974}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3973}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3973}#
|
|
'(any each-any . #(each ((any . any) any))))))
|
|
#{x\ 3971}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define let*
|
|
(make-syntax-transformer
|
|
'let*
|
|
'macro
|
|
(cons (lambda (#{x\ 3988}#)
|
|
((lambda (#{tmp\ 3990}#)
|
|
((lambda (#{tmp\ 3991}#)
|
|
(if (if #{tmp\ 3991}#
|
|
(apply (lambda (#{let*\ 3997}#
|
|
#{x\ 3998}#
|
|
#{v\ 3999}#
|
|
#{e1\ 4000}#
|
|
#{e2\ 4001}#)
|
|
(and-map identifier? #{x\ 3998}#))
|
|
#{tmp\ 3991}#)
|
|
#f)
|
|
(apply (lambda (#{let*\ 4008}#
|
|
#{x\ 4009}#
|
|
#{v\ 4010}#
|
|
#{e1\ 4011}#
|
|
#{e2\ 4012}#)
|
|
(letrec ((#{f\ 4015}#
|
|
(lambda (#{bindings\ 4016}#)
|
|
(if (null? #{bindings\ 4016}#)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("i4013" "i4014"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4003"
|
|
"i4004"
|
|
"i4005"
|
|
"i4006"
|
|
"i4007"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3989")))
|
|
(hygiene guile))
|
|
(cons '()
|
|
(cons #{e1\ 4011}#
|
|
#{e2\ 4012}#)))
|
|
((lambda (#{tmp\ 4021}#)
|
|
((lambda (#{tmp\ 4022}#)
|
|
(if #{tmp\ 4022}#
|
|
(apply (lambda (#{body\ 4025}#
|
|
#{binding\ 4026}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body
|
|
binding)
|
|
#((top)
|
|
(top))
|
|
#("i4023"
|
|
"i4024"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
bindings)
|
|
#((top)
|
|
(top))
|
|
#("i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
#(let*
|
|
x
|
|
v
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4003"
|
|
"i4004"
|
|
"i4005"
|
|
"i4006"
|
|
"i4007"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3989")))
|
|
(hygiene
|
|
guile))
|
|
(list #{binding\ 4026}#)
|
|
#{body\ 4025}#))
|
|
#{tmp\ 4022}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4021}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4021}#
|
|
'(any any))))
|
|
(list (#{f\ 4015}#
|
|
(cdr #{bindings\ 4016}#))
|
|
(car #{bindings\ 4016}#)))))))
|
|
(#{f\ 4015}#
|
|
(map list #{x\ 4009}# #{v\ 4010}#))))
|
|
#{tmp\ 3991}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3990}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3990}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{x\ 3988}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define do
|
|
(make-syntax-transformer
|
|
'do
|
|
'macro
|
|
(cons (lambda (#{orig-x\ 4027}#)
|
|
((lambda (#{tmp\ 4029}#)
|
|
((lambda (#{tmp\ 4030}#)
|
|
(if #{tmp\ 4030}#
|
|
(apply (lambda (#{_\ 4038}#
|
|
#{var\ 4039}#
|
|
#{init\ 4040}#
|
|
#{step\ 4041}#
|
|
#{e0\ 4042}#
|
|
#{e1\ 4043}#
|
|
#{c\ 4044}#)
|
|
((lambda (#{tmp\ 4046}#)
|
|
((lambda (#{tmp\ 4047}#)
|
|
(if #{tmp\ 4047}#
|
|
(apply (lambda (#{step\ 4049}#)
|
|
((lambda (#{tmp\ 4050}#)
|
|
((lambda (#{tmp\ 4051}#)
|
|
(if #{tmp\ 4051}#
|
|
(apply (lambda ()
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 4039}#
|
|
#{init\ 4040}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
not
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 4042}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 4044}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 4049}#)))))))
|
|
#{tmp\ 4051}#)
|
|
((lambda (#{tmp\ 4056}#)
|
|
(if #{tmp\ 4056}#
|
|
(apply (lambda (#{e1\ 4059}#
|
|
#{e2\ 4060}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 4039}#
|
|
#{init\ 4040}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 4042}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4059}#
|
|
#{e2\ 4060}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 4044}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4048"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4031"
|
|
"i4032"
|
|
"i4033"
|
|
"i4034"
|
|
"i4035"
|
|
"i4036"
|
|
"i4037"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4028")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 4049}#)))))))
|
|
#{tmp\ 4056}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4050}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4050}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4050}#
|
|
'())))
|
|
#{e1\ 4043}#))
|
|
#{tmp\ 4047}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4046}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4046}#
|
|
'each-any)))
|
|
(map (lambda (#{v\ 4067}# #{s\ 4068}#)
|
|
((lambda (#{tmp\ 4071}#)
|
|
((lambda (#{tmp\ 4072}#)
|
|
(if #{tmp\ 4072}#
|
|
(apply (lambda () #{v\ 4067}#)
|
|
#{tmp\ 4072}#)
|
|
((lambda (#{tmp\ 4073}#)
|
|
(if #{tmp\ 4073}#
|
|
(apply (lambda (#{e\ 4075}#)
|
|
#{e\ 4075}#)
|
|
#{tmp\ 4073}#)
|
|
((lambda (#{_\ 4077}#)
|
|
(syntax-violation
|
|
'do
|
|
"bad step expression"
|
|
#{orig-x\ 4027}#
|
|
#{s\ 4068}#))
|
|
#{tmp\ 4071}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4071}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4071}#
|
|
'())))
|
|
#{s\ 4068}#))
|
|
#{var\ 4039}#
|
|
#{step\ 4041}#)))
|
|
#{tmp\ 4030}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4029}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4029}#
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
#{orig-x\ 4027}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define quasiquote
|
|
(make-syntax-transformer
|
|
'quasiquote
|
|
'macro
|
|
(cons (letrec ((#{quasicons\ 4084}#
|
|
(lambda (#{x\ 4088}# #{y\ 4089}#)
|
|
((lambda (#{tmp\ 4093}#)
|
|
((lambda (#{tmp\ 4094}#)
|
|
(if #{tmp\ 4094}#
|
|
(apply (lambda (#{x\ 4097}# #{y\ 4098}#)
|
|
((lambda (#{tmp\ 4099}#)
|
|
((lambda (#{tmp\ 4100}#)
|
|
(if #{tmp\ 4100}#
|
|
(apply (lambda (#{dy\ 4102}#)
|
|
((lambda (#{tmp\ 4103}#)
|
|
((lambda (#{tmp\ 4104}#)
|
|
(if #{tmp\ 4104}#
|
|
(apply (lambda (#{dx\ 4106}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dx)
|
|
#((top))
|
|
#("i4105"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4101"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4095"
|
|
"i4096"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4090"
|
|
"i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{dx\ 4106}#
|
|
#{dy\ 4102}#)))
|
|
#{tmp\ 4104}#)
|
|
((lambda (#{_\ 4108}#)
|
|
(if (null? #{dy\ 4102}#)
|
|
(list '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4107"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4101"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4095"
|
|
"i4096"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4090"
|
|
"i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 4097}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4107"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4101"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4095"
|
|
"i4096"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4090"
|
|
"i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 4097}#
|
|
#{y\ 4098}#)))
|
|
#{tmp\ 4103}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4103}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4101"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4095"
|
|
"i4096"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4090"
|
|
"i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile)))
|
|
any))))
|
|
#{x\ 4097}#))
|
|
#{tmp\ 4100}#)
|
|
((lambda (#{tmp\ 4109}#)
|
|
(if #{tmp\ 4109}#
|
|
(apply (lambda (#{stuff\ 4111}#)
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("i4110"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4095"
|
|
"i4096"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4090"
|
|
"i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{x\ 4097}#
|
|
#{stuff\ 4111}#)))
|
|
#{tmp\ 4109}#)
|
|
((lambda (#{else\ 4113}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(else)
|
|
#((top))
|
|
#("i4112"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4095"
|
|
"i4096"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4090"
|
|
"i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 4097}#
|
|
#{y\ 4098}#))
|
|
#{tmp\ 4099}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4099}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4095" "i4096"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4090" "i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4099}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4095" "i4096"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4090" "i4091"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{y\ 4098}#))
|
|
#{tmp\ 4094}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4093}#)))
|
|
($sc-dispatch #{tmp\ 4093}# (quote (any any)))))
|
|
(list #{x\ 4088}# #{y\ 4089}#))))
|
|
(#{quasiappend\ 4085}#
|
|
(lambda (#{x\ 4114}# #{y\ 4115}#)
|
|
((lambda (#{tmp\ 4119}#)
|
|
((lambda (#{tmp\ 4120}#)
|
|
(if #{tmp\ 4120}#
|
|
(apply (lambda (#{x\ 4123}# #{y\ 4124}#)
|
|
((lambda (#{tmp\ 4125}#)
|
|
((lambda (#{tmp\ 4126}#)
|
|
(if #{tmp\ 4126}#
|
|
(apply (lambda () #{x\ 4123}#)
|
|
#{tmp\ 4126}#)
|
|
((lambda (#{_\ 4128}#)
|
|
(list '#(syntax-object
|
|
append
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4127"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4121"
|
|
"i4122"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4116"
|
|
"i4117"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
#{x\ 4123}#
|
|
#{y\ 4124}#))
|
|
#{tmp\ 4125}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4125}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4121" "i4122"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4116" "i4117"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
()))))
|
|
#{y\ 4124}#))
|
|
#{tmp\ 4120}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4119}#)))
|
|
($sc-dispatch #{tmp\ 4119}# (quote (any any)))))
|
|
(list #{x\ 4114}# #{y\ 4115}#))))
|
|
(#{quasivector\ 4086}#
|
|
(lambda (#{x\ 4129}#)
|
|
((lambda (#{tmp\ 4132}#)
|
|
((lambda (#{x\ 4134}#)
|
|
((lambda (#{tmp\ 4135}#)
|
|
((lambda (#{tmp\ 4136}#)
|
|
(if #{tmp\ 4136}#
|
|
(apply (lambda (#{x\ 4138}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4137"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4133"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4130"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
(list->vector
|
|
#{x\ 4138}#)))
|
|
#{tmp\ 4136}#)
|
|
((lambda (#{tmp\ 4140}#)
|
|
(if #{tmp\ 4140}#
|
|
(apply (lambda (#{x\ 4142}#)
|
|
(cons '#(syntax-object
|
|
vector
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4141"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4133"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4130"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
#{x\ 4142}#))
|
|
#{tmp\ 4140}#)
|
|
((lambda (#{_\ 4145}#)
|
|
(list '#(syntax-object
|
|
list->vector
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4144"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4133"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4130"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
#{x\ 4134}#))
|
|
#{tmp\ 4135}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4135}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4133"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4130"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4135}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(x) #((top)) #("i4133"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4130"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
each-any))))
|
|
#{x\ 4134}#))
|
|
#{tmp\ 4132}#))
|
|
#{x\ 4129}#)))
|
|
(#{quasi\ 4087}#
|
|
(lambda (#{p\ 4146}# #{lev\ 4147}#)
|
|
((lambda (#{tmp\ 4150}#)
|
|
((lambda (#{tmp\ 4151}#)
|
|
(if #{tmp\ 4151}#
|
|
(apply (lambda (#{p\ 4153}#)
|
|
(if (= #{lev\ 4147}# 0)
|
|
#{p\ 4153}#
|
|
(#{quasicons\ 4084}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4152"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4152"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 4087}#
|
|
(list #{p\ 4153}#)
|
|
(- #{lev\ 4147}# 1)))))
|
|
#{tmp\ 4151}#)
|
|
((lambda (#{tmp\ 4154}#)
|
|
(if (if #{tmp\ 4154}#
|
|
(apply (lambda (#{args\ 4156}#)
|
|
(= #{lev\ 4147}# 0))
|
|
#{tmp\ 4154}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 4158}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"unquote takes exactly one argument"
|
|
#{p\ 4146}#
|
|
(cons '#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(args)
|
|
#((top))
|
|
#("i4157"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
#{args\ 4158}#)))
|
|
#{tmp\ 4154}#)
|
|
((lambda (#{tmp\ 4159}#)
|
|
(if #{tmp\ 4159}#
|
|
(apply (lambda (#{p\ 4162}#
|
|
#{q\ 4163}#)
|
|
(if (= #{lev\ 4147}# 0)
|
|
(#{quasiappend\ 4085}#
|
|
#{p\ 4162}#
|
|
(#{quasi\ 4087}#
|
|
#{q\ 4163}#
|
|
#{lev\ 4147}#))
|
|
(#{quasicons\ 4084}#
|
|
(#{quasicons\ 4084}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i4160"
|
|
"i4161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148"
|
|
"i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i4160"
|
|
"i4161"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148"
|
|
"i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 4087}#
|
|
(list #{p\ 4162}#)
|
|
(- #{lev\ 4147}# 1)))
|
|
(#{quasi\ 4087}#
|
|
#{q\ 4163}#
|
|
#{lev\ 4147}#))))
|
|
#{tmp\ 4159}#)
|
|
((lambda (#{tmp\ 4164}#)
|
|
(if (if #{tmp\ 4164}#
|
|
(apply (lambda (#{args\ 4167}#
|
|
#{q\ 4168}#)
|
|
(= #{lev\ 4147}# 0))
|
|
#{tmp\ 4164}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 4171}#
|
|
#{q\ 4172}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"unquote-splicing takes exactly one argument"
|
|
#{p\ 4146}#
|
|
(cons '#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(args q)
|
|
#((top)
|
|
(top))
|
|
#("i4169"
|
|
"i4170"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i4148"
|
|
"i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
#{args\ 4171}#)))
|
|
#{tmp\ 4164}#)
|
|
((lambda (#{tmp\ 4173}#)
|
|
(if #{tmp\ 4173}#
|
|
(apply (lambda (#{p\ 4175}#)
|
|
(#{quasicons\ 4084}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4174"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i4148"
|
|
"i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4174"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i4148"
|
|
"i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile)))
|
|
(#{quasi\ 4087}#
|
|
(list #{p\ 4175}#)
|
|
(+ #{lev\ 4147}#
|
|
1))))
|
|
#{tmp\ 4173}#)
|
|
((lambda (#{tmp\ 4176}#)
|
|
(if #{tmp\ 4176}#
|
|
(apply (lambda (#{p\ 4179}#
|
|
#{q\ 4180}#)
|
|
(#{quasicons\ 4084}#
|
|
(#{quasi\ 4087}#
|
|
#{p\ 4179}#
|
|
#{lev\ 4147}#)
|
|
(#{quasi\ 4087}#
|
|
#{q\ 4180}#
|
|
#{lev\ 4147}#)))
|
|
#{tmp\ 4176}#)
|
|
((lambda (#{tmp\ 4181}#)
|
|
(if #{tmp\ 4181}#
|
|
(apply (lambda (#{x\ 4183}#)
|
|
(#{quasivector\ 4086}#
|
|
(#{quasi\ 4087}#
|
|
#{x\ 4183}#
|
|
#{lev\ 4147}#)))
|
|
#{tmp\ 4181}#)
|
|
((lambda (#{p\ 4186}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4185"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p
|
|
lev)
|
|
#((top)
|
|
(top))
|
|
#("i4148"
|
|
"i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene
|
|
guile))
|
|
#{p\ 4186}#))
|
|
#{tmp\ 4150}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
.
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080"
|
|
"i4081"
|
|
"i4082"
|
|
"i4083")))
|
|
(hygiene guile)))
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080" "i4081" "i4082" "i4083")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4150}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4148" "i4149"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4080" "i4081" "i4082" "i4083")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{p\ 4146}#))))
|
|
(lambda (#{x\ 4187}#)
|
|
((lambda (#{tmp\ 4189}#)
|
|
((lambda (#{tmp\ 4190}#)
|
|
(if #{tmp\ 4190}#
|
|
(apply (lambda (#{_\ 4193}# #{e\ 4194}#)
|
|
(#{quasi\ 4087}# #{e\ 4194}# 0))
|
|
#{tmp\ 4190}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4189}#)))
|
|
($sc-dispatch #{tmp\ 4189}# (quote (any any)))))
|
|
#{x\ 4187}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include
|
|
(make-syntax-transformer
|
|
'include
|
|
'macro
|
|
(cons (lambda (#{x\ 4195}#)
|
|
(letrec ((#{read-file\ 4198}#
|
|
(lambda (#{fn\ 4199}# #{k\ 4200}#)
|
|
(let ((#{p\ 4204}# (open-input-file #{fn\ 4199}#)))
|
|
(letrec ((#{f\ 4207}#
|
|
(lambda (#{x\ 4208}#)
|
|
(if (eof-object? #{x\ 4208}#)
|
|
(begin
|
|
(close-input-port #{p\ 4204}#)
|
|
'())
|
|
(cons (datum->syntax
|
|
#{k\ 4200}#
|
|
#{x\ 4208}#)
|
|
(#{f\ 4207}#
|
|
(read #{p\ 4204}#)))))))
|
|
(#{f\ 4207}# (read #{p\ 4204}#)))))))
|
|
((lambda (#{tmp\ 4209}#)
|
|
((lambda (#{tmp\ 4210}#)
|
|
(if #{tmp\ 4210}#
|
|
(apply (lambda (#{k\ 4213}# #{filename\ 4214}#)
|
|
(let ((#{fn\ 4216}#
|
|
(syntax->datum #{filename\ 4214}#)))
|
|
((lambda (#{tmp\ 4218}#)
|
|
((lambda (#{tmp\ 4219}#)
|
|
(if #{tmp\ 4219}#
|
|
(apply (lambda (#{exp\ 4221}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(exp)
|
|
#((top))
|
|
#("i4220"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i4215"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i4211"
|
|
"i4212"))
|
|
#(ribcage
|
|
(read-file)
|
|
((top))
|
|
("i4197"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4196")))
|
|
(hygiene guile))
|
|
#{exp\ 4221}#))
|
|
#{tmp\ 4219}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4218}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4218}#
|
|
'each-any)))
|
|
(#{read-file\ 4198}#
|
|
#{fn\ 4216}#
|
|
#{k\ 4213}#))))
|
|
#{tmp\ 4210}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4209}#)))
|
|
($sc-dispatch #{tmp\ 4209}# (quote (any any)))))
|
|
#{x\ 4195}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include-from-path
|
|
(make-syntax-transformer
|
|
'include-from-path
|
|
'macro
|
|
(cons (lambda (#{x\ 4223}#)
|
|
((lambda (#{tmp\ 4225}#)
|
|
((lambda (#{tmp\ 4226}#)
|
|
(if #{tmp\ 4226}#
|
|
(apply (lambda (#{k\ 4229}# #{filename\ 4230}#)
|
|
(let ((#{fn\ 4232}#
|
|
(syntax->datum #{filename\ 4230}#)))
|
|
((lambda (#{tmp\ 4234}#)
|
|
((lambda (#{fn\ 4236}#)
|
|
(list '#(syntax-object
|
|
include
|
|
((top)
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i4235"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i4231"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i4227" "i4228"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4224")))
|
|
(hygiene guile))
|
|
#{fn\ 4236}#))
|
|
#{tmp\ 4234}#))
|
|
(let ((#{t\ 4239}#
|
|
(%search-load-path #{fn\ 4232}#)))
|
|
(if #{t\ 4239}#
|
|
#{t\ 4239}#
|
|
(syntax-violation
|
|
'include-from-path
|
|
"file not found in path"
|
|
#{x\ 4223}#
|
|
#{filename\ 4230}#))))))
|
|
#{tmp\ 4226}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4225}#)))
|
|
($sc-dispatch #{tmp\ 4225}# (quote (any any)))))
|
|
#{x\ 4223}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote
|
|
(make-syntax-transformer
|
|
'unquote
|
|
'macro
|
|
(cons (lambda (#{x\ 4241}#)
|
|
((lambda (#{tmp\ 4243}#)
|
|
((lambda (#{tmp\ 4244}#)
|
|
(if #{tmp\ 4244}#
|
|
(apply (lambda (#{_\ 4247}# #{e\ 4248}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 4241}#))
|
|
#{tmp\ 4244}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4243}#)))
|
|
($sc-dispatch #{tmp\ 4243}# (quote (any any)))))
|
|
#{x\ 4241}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote-splicing
|
|
(make-syntax-transformer
|
|
'unquote-splicing
|
|
'macro
|
|
(cons (lambda (#{x\ 4249}#)
|
|
((lambda (#{tmp\ 4251}#)
|
|
((lambda (#{tmp\ 4252}#)
|
|
(if #{tmp\ 4252}#
|
|
(apply (lambda (#{_\ 4255}# #{e\ 4256}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 4249}#))
|
|
#{tmp\ 4252}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4251}#)))
|
|
($sc-dispatch #{tmp\ 4251}# (quote (any any)))))
|
|
#{x\ 4249}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define case
|
|
(make-syntax-transformer
|
|
'case
|
|
'macro
|
|
(cons (lambda (#{x\ 4257}#)
|
|
((lambda (#{tmp\ 4259}#)
|
|
((lambda (#{tmp\ 4260}#)
|
|
(if #{tmp\ 4260}#
|
|
(apply (lambda (#{_\ 4265}#
|
|
#{e\ 4266}#
|
|
#{m1\ 4267}#
|
|
#{m2\ 4268}#)
|
|
((lambda (#{tmp\ 4270}#)
|
|
((lambda (#{body\ 4272}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i4271"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene guile))
|
|
(list (list '#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i4271"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene guile))
|
|
#{e\ 4266}#))
|
|
#{body\ 4272}#))
|
|
#{tmp\ 4270}#))
|
|
(letrec ((#{f\ 4276}#
|
|
(lambda (#{clause\ 4277}#
|
|
#{clauses\ 4278}#)
|
|
(if (null? #{clauses\ 4278}#)
|
|
((lambda (#{tmp\ 4280}#)
|
|
((lambda (#{tmp\ 4281}#)
|
|
(if #{tmp\ 4281}#
|
|
(apply (lambda (#{e1\ 4284}#
|
|
#{e2\ 4285}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4282"
|
|
"i4283"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4284}#
|
|
#{e2\ 4285}#)))
|
|
#{tmp\ 4281}#)
|
|
((lambda (#{tmp\ 4287}#)
|
|
(if #{tmp\ 4287}#
|
|
(apply (lambda (#{k\ 4291}#
|
|
#{e1\ 4292}#
|
|
#{e2\ 4293}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4288"
|
|
"i4289"
|
|
"i4290"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4288"
|
|
"i4289"
|
|
"i4290"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4288"
|
|
"i4289"
|
|
"i4290"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4288"
|
|
"i4289"
|
|
"i4290"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 4291}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4288"
|
|
"i4289"
|
|
"i4290"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4292}#
|
|
#{e2\ 4293}#))))
|
|
#{tmp\ 4287}#)
|
|
((lambda (#{_\ 4297}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 4257}#
|
|
#{clause\ 4277}#))
|
|
#{tmp\ 4280}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4280}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4280}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
else
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene guile)))
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 4277}#)
|
|
((lambda (#{tmp\ 4299}#)
|
|
((lambda (#{rest\ 4301}#)
|
|
((lambda (#{tmp\ 4302}#)
|
|
((lambda (#{tmp\ 4303}#)
|
|
(if #{tmp\ 4303}#
|
|
(apply (lambda (#{k\ 4307}#
|
|
#{e1\ 4308}#
|
|
#{e2\ 4309}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4304"
|
|
"i4305"
|
|
"i4306"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4300"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4304"
|
|
"i4305"
|
|
"i4306"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4300"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4304"
|
|
"i4305"
|
|
"i4306"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4300"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4304"
|
|
"i4305"
|
|
"i4306"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4300"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 4307}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4304"
|
|
"i4305"
|
|
"i4306"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4300"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4273"
|
|
"i4274"
|
|
"i4275"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4261"
|
|
"i4262"
|
|
"i4263"
|
|
"i4264"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4258")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4308}#
|
|
#{e2\ 4309}#))
|
|
#{rest\ 4301}#))
|
|
#{tmp\ 4303}#)
|
|
((lambda (#{_\ 4313}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 4257}#
|
|
#{clause\ 4277}#))
|
|
#{tmp\ 4302}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4302}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 4277}#))
|
|
#{tmp\ 4299}#))
|
|
(#{f\ 4276}#
|
|
(car #{clauses\ 4278}#)
|
|
(cdr #{clauses\ 4278}#)))))))
|
|
(#{f\ 4276}# #{m1\ 4267}# #{m2\ 4268}#))))
|
|
#{tmp\ 4260}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4259}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4259}#
|
|
'(any any any . each-any))))
|
|
#{x\ 4257}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define identifier-syntax
|
|
(make-syntax-transformer
|
|
'identifier-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 4314}#)
|
|
((lambda (#{tmp\ 4316}#)
|
|
((lambda (#{tmp\ 4317}#)
|
|
(if #{tmp\ 4317}#
|
|
(apply (lambda (#{_\ 4320}# #{e\ 4321}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4315")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4315")))
|
|
(hygiene guile)))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
'()
|
|
(list '#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
(#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
#{e\ 4321}#))
|
|
(list (cons #{_\ 4320}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4318" "i4319"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
(cons #{e\ 4321}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i4318"
|
|
"i4319"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i4318"
|
|
"i4319"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4315")))
|
|
(hygiene
|
|
guile)))))))))
|
|
#{tmp\ 4317}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4316}#)))
|
|
($sc-dispatch #{tmp\ 4316}# (quote (any any)))))
|
|
#{x\ 4314}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define define*
|
|
(make-syntax-transformer
|
|
'define*
|
|
'macro
|
|
(cons (lambda (#{x\ 4322}#)
|
|
((lambda (#{tmp\ 4324}#)
|
|
((lambda (#{tmp\ 4325}#)
|
|
(if #{tmp\ 4325}#
|
|
(apply (lambda (#{_\ 4331}#
|
|
#{id\ 4332}#
|
|
#{args\ 4333}#
|
|
#{b0\ 4334}#
|
|
#{b1\ 4335}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(_ id args b0 b1)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i4326"
|
|
"i4327"
|
|
"i4328"
|
|
"i4329"
|
|
"i4330"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4323")))
|
|
(hygiene guile))
|
|
#{id\ 4332}#
|
|
(cons '#(syntax-object
|
|
lambda*
|
|
((top)
|
|
#(ribcage
|
|
#(_ id args b0 b1)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i4326"
|
|
"i4327"
|
|
"i4328"
|
|
"i4329"
|
|
"i4330"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4323")))
|
|
(hygiene guile))
|
|
(cons #{args\ 4333}#
|
|
(cons #{b0\ 4334}#
|
|
#{b1\ 4335}#)))))
|
|
#{tmp\ 4325}#)
|
|
((lambda (#{tmp\ 4337}#)
|
|
(if (if #{tmp\ 4337}#
|
|
(apply (lambda (#{_\ 4341}#
|
|
#{id\ 4342}#
|
|
#{val\ 4343}#)
|
|
(identifier?
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ id val)
|
|
#((top) (top) (top))
|
|
#("i4338" "i4339" "i4340"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4323")))
|
|
(hygiene guile))))
|
|
#{tmp\ 4337}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 4347}#
|
|
#{id\ 4348}#
|
|
#{val\ 4349}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(_ id val)
|
|
#((top) (top) (top))
|
|
#("i4344" "i4345" "i4346"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4323")))
|
|
(hygiene guile))
|
|
#{id\ 4348}#
|
|
#{val\ 4349}#))
|
|
#{tmp\ 4337}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4324}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4324}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4324}#
|
|
'(any (any . any) any . each-any))))
|
|
#{x\ 4322}#))
|
|
(module-name (current-module)))))
|
|
|