mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-18 02:00:20 +02:00
64fa96ef28
* module/ice-9/psyntax.scm (define*): Allow (define* SYM VAL), as 1.8 did. Thanks to Patrick McCarty for the report.
14954 lines
979 KiB
Scheme
14954 lines
979 KiB
Scheme
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
|
|
(if #f #f)
|
|
|
|
(letrec ((#{and-map*\ 60}#
|
|
(lambda (#{f\ 122}# #{first\ 123}# . #{rest\ 124}#)
|
|
(let ((#{t\ 130}# (null? #{first\ 123}#)))
|
|
(if #{t\ 130}#
|
|
#{t\ 130}#
|
|
(if (null? #{rest\ 124}#)
|
|
(letrec ((#{andmap\ 134}#
|
|
(lambda (#{first\ 135}#)
|
|
(let ((#{x\ 138}# (car #{first\ 135}#))
|
|
(#{first\ 139}# (cdr #{first\ 135}#)))
|
|
(if (null? #{first\ 139}#)
|
|
(#{f\ 122}# #{x\ 138}#)
|
|
(if (#{f\ 122}# #{x\ 138}#)
|
|
(#{andmap\ 134}# #{first\ 139}#)
|
|
#f))))))
|
|
(#{andmap\ 134}# #{first\ 123}#))
|
|
(letrec ((#{andmap\ 145}#
|
|
(lambda (#{first\ 146}# #{rest\ 147}#)
|
|
(let ((#{x\ 152}# (car #{first\ 146}#))
|
|
(#{xr\ 153}# (map car #{rest\ 147}#))
|
|
(#{first\ 154}# (cdr #{first\ 146}#))
|
|
(#{rest\ 155}# (map cdr #{rest\ 147}#)))
|
|
(if (null? #{first\ 154}#)
|
|
(apply #{f\ 122}#
|
|
(cons #{x\ 152}# #{xr\ 153}#))
|
|
(if (apply #{f\ 122}#
|
|
(cons #{x\ 152}# #{xr\ 153}#))
|
|
(#{andmap\ 145}#
|
|
#{first\ 154}#
|
|
#{rest\ 155}#)
|
|
#f))))))
|
|
(#{andmap\ 145}# #{first\ 123}# #{rest\ 124}#))))))))
|
|
(letrec ((#{lambda-var-list\ 375}#
|
|
(lambda (#{vars\ 590}#)
|
|
(letrec ((#{lvl\ 596}#
|
|
(lambda (#{vars\ 597}# #{ls\ 598}# #{w\ 599}#)
|
|
(if (pair? #{vars\ 597}#)
|
|
(#{lvl\ 596}#
|
|
(cdr #{vars\ 597}#)
|
|
(cons (#{wrap\ 329}#
|
|
(car #{vars\ 597}#)
|
|
#{w\ 599}#
|
|
#f)
|
|
#{ls\ 598}#)
|
|
#{w\ 599}#)
|
|
(if (#{id?\ 260}# #{vars\ 597}#)
|
|
(cons (#{wrap\ 329}#
|
|
#{vars\ 597}#
|
|
#{w\ 599}#
|
|
#f)
|
|
#{ls\ 598}#)
|
|
(if (null? #{vars\ 597}#)
|
|
#{ls\ 598}#
|
|
(if (#{syntax-object?\ 224}# #{vars\ 597}#)
|
|
(#{lvl\ 596}#
|
|
(#{syntax-object-expression\ 226}#
|
|
#{vars\ 597}#)
|
|
#{ls\ 598}#
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 599}#
|
|
(#{syntax-object-wrap\ 228}#
|
|
#{vars\ 597}#)))
|
|
(cons #{vars\ 597}# #{ls\ 598}#))))))))
|
|
(#{lvl\ 596}#
|
|
#{vars\ 590}#
|
|
'()
|
|
'(())))))
|
|
(#{gen-var\ 373}#
|
|
(lambda (#{id\ 610}#)
|
|
(let ((#{id\ 613}#
|
|
(if (#{syntax-object?\ 224}# #{id\ 610}#)
|
|
(#{syntax-object-expression\ 226}# #{id\ 610}#)
|
|
#{id\ 610}#)))
|
|
(gensym
|
|
(string-append (symbol->string #{id\ 613}#) " ")))))
|
|
(#{strip\ 371}#
|
|
(lambda (#{x\ 615}# #{w\ 616}#)
|
|
(if (memq 'top
|
|
(#{wrap-marks\ 267}# #{w\ 616}#))
|
|
#{x\ 615}#
|
|
(letrec ((#{f\ 622}# (lambda (#{x\ 623}#)
|
|
(if (#{syntax-object?\ 224}#
|
|
#{x\ 623}#)
|
|
(#{strip\ 371}#
|
|
(#{syntax-object-expression\ 226}#
|
|
#{x\ 623}#)
|
|
(#{syntax-object-wrap\ 228}#
|
|
#{x\ 623}#))
|
|
(if (pair? #{x\ 623}#)
|
|
(let ((#{a\ 630}# (#{f\ 622}# (car #{x\ 623}#)))
|
|
(#{d\ 631}# (#{f\ 622}# (cdr #{x\ 623}#))))
|
|
(if (if (eq? #{a\ 630}#
|
|
(car #{x\ 623}#))
|
|
(eq? #{d\ 631}#
|
|
(cdr #{x\ 623}#))
|
|
#f)
|
|
#{x\ 623}#
|
|
(cons #{a\ 630}# #{d\ 631}#)))
|
|
(if (vector? #{x\ 623}#)
|
|
(let ((#{old\ 637}#
|
|
(vector->list
|
|
#{x\ 623}#)))
|
|
(let ((#{new\ 639}#
|
|
(map #{f\ 622}#
|
|
#{old\ 637}#)))
|
|
(if (#{and-map*\ 60}#
|
|
eq?
|
|
#{old\ 637}#
|
|
#{new\ 639}#)
|
|
#{x\ 623}#
|
|
(list->vector
|
|
#{new\ 639}#))))
|
|
#{x\ 623}#))))))
|
|
(#{f\ 622}# #{x\ 615}#)))))
|
|
(#{chi-lambda-case\ 369}#
|
|
(lambda (#{e\ 641}#
|
|
#{r\ 642}#
|
|
#{w\ 643}#
|
|
#{s\ 644}#
|
|
#{mod\ 645}#
|
|
#{get-formals\ 646}#
|
|
#{clauses\ 647}#)
|
|
(letrec ((#{expand-body\ 662}#
|
|
(lambda (#{req\ 663}#
|
|
#{opt\ 664}#
|
|
#{rest\ 665}#
|
|
#{kw\ 666}#
|
|
#{body\ 667}#
|
|
#{vars\ 668}#
|
|
#{r*\ 669}#
|
|
#{w*\ 670}#
|
|
#{inits\ 671}#)
|
|
((lambda (#{tmp\ 681}#)
|
|
((lambda (#{tmp\ 682}#)
|
|
(if (if #{tmp\ 682}#
|
|
(apply (lambda (#{docstring\ 686}#
|
|
#{e1\ 687}#
|
|
#{e2\ 688}#)
|
|
(string?
|
|
(syntax->datum
|
|
#{docstring\ 686}#)))
|
|
#{tmp\ 682}#)
|
|
#f)
|
|
(apply (lambda (#{docstring\ 692}#
|
|
#{e1\ 693}#
|
|
#{e2\ 694}#)
|
|
(values
|
|
(syntax->datum
|
|
#{docstring\ 692}#)
|
|
#{req\ 663}#
|
|
#{opt\ 664}#
|
|
#{rest\ 665}#
|
|
#{kw\ 666}#
|
|
#{inits\ 671}#
|
|
#{vars\ 668}#
|
|
(#{chi-body\ 353}#
|
|
(cons #{e1\ 693}# #{e2\ 694}#)
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 641}#
|
|
#{w\ 643}#
|
|
#{s\ 644}#
|
|
#{mod\ 645}#)
|
|
#{r*\ 669}#
|
|
#{w*\ 670}#
|
|
#{mod\ 645}#)))
|
|
#{tmp\ 682}#)
|
|
((lambda (#{tmp\ 696}#)
|
|
(if #{tmp\ 696}#
|
|
(apply (lambda (#{e1\ 699}#
|
|
#{e2\ 700}#)
|
|
(values
|
|
#f
|
|
#{req\ 663}#
|
|
#{opt\ 664}#
|
|
#{rest\ 665}#
|
|
#{kw\ 666}#
|
|
#{inits\ 671}#
|
|
#{vars\ 668}#
|
|
(#{chi-body\ 353}#
|
|
(cons #{e1\ 699}#
|
|
#{e2\ 700}#)
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 641}#
|
|
#{w\ 643}#
|
|
#{s\ 644}#
|
|
#{mod\ 645}#)
|
|
#{r*\ 669}#
|
|
#{w*\ 670}#
|
|
#{mod\ 645}#)))
|
|
#{tmp\ 696}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 681}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 681}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 681}#
|
|
'(any any . each-any))))
|
|
#{body\ 667}#)))
|
|
(#{expand-kw\ 660}#
|
|
(lambda (#{req\ 702}#
|
|
#{opt\ 703}#
|
|
#{rest\ 704}#
|
|
#{kw\ 705}#
|
|
#{body\ 706}#
|
|
#{vars\ 707}#
|
|
#{r*\ 708}#
|
|
#{w*\ 709}#
|
|
#{aok\ 710}#
|
|
#{out\ 711}#
|
|
#{inits\ 712}#)
|
|
(if (pair? #{kw\ 705}#)
|
|
((lambda (#{tmp\ 726}#)
|
|
((lambda (#{tmp\ 727}#)
|
|
(if #{tmp\ 727}#
|
|
(apply (lambda (#{k\ 731}#
|
|
#{id\ 732}#
|
|
#{i\ 733}#)
|
|
(let ((#{v\ 736}# (#{gen-var\ 373}#
|
|
#{id\ 732}#)))
|
|
(let ((#{l\ 738}# (#{gen-labels\ 278}#
|
|
(list #{v\ 736}#))))
|
|
(let ((#{r**\ 740}#
|
|
(#{extend-var-env\ 250}#
|
|
#{l\ 738}#
|
|
(list #{v\ 736}#)
|
|
#{r*\ 708}#)))
|
|
(let ((#{w**\ 742}#
|
|
(#{make-binding-wrap\ 307}#
|
|
(list #{id\ 732}#)
|
|
#{l\ 738}#
|
|
#{w*\ 709}#)))
|
|
(#{expand-kw\ 660}#
|
|
#{req\ 702}#
|
|
#{opt\ 703}#
|
|
#{rest\ 704}#
|
|
(cdr #{kw\ 705}#)
|
|
#{body\ 706}#
|
|
(cons #{v\ 736}#
|
|
#{vars\ 707}#)
|
|
#{r**\ 740}#
|
|
#{w**\ 742}#
|
|
#{aok\ 710}#
|
|
(cons (list (syntax->datum
|
|
#{k\ 731}#)
|
|
(syntax->datum
|
|
#{id\ 732}#)
|
|
#{v\ 736}#)
|
|
#{out\ 711}#)
|
|
(cons (#{chi\ 345}#
|
|
#{i\ 733}#
|
|
#{r*\ 708}#
|
|
#{w*\ 709}#
|
|
#{mod\ 645}#)
|
|
#{inits\ 712}#)))))))
|
|
#{tmp\ 727}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 726}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 726}#
|
|
'(any any any))))
|
|
(car #{kw\ 705}#))
|
|
(#{expand-body\ 662}#
|
|
#{req\ 702}#
|
|
#{opt\ 703}#
|
|
#{rest\ 704}#
|
|
(if (let ((#{t\ 746}# #{aok\ 710}#))
|
|
(if #{t\ 746}#
|
|
#{t\ 746}#
|
|
(pair? #{out\ 711}#)))
|
|
(cons #{aok\ 710}# (reverse #{out\ 711}#))
|
|
#f)
|
|
#{body\ 706}#
|
|
(reverse #{vars\ 707}#)
|
|
#{r*\ 708}#
|
|
#{w*\ 709}#
|
|
(reverse #{inits\ 712}#)))))
|
|
(#{expand-opt\ 658}#
|
|
(lambda (#{req\ 748}#
|
|
#{opt\ 749}#
|
|
#{rest\ 750}#
|
|
#{kw\ 751}#
|
|
#{body\ 752}#
|
|
#{vars\ 753}#
|
|
#{r*\ 754}#
|
|
#{w*\ 755}#
|
|
#{out\ 756}#
|
|
#{inits\ 757}#)
|
|
(if (pair? #{opt\ 749}#)
|
|
((lambda (#{tmp\ 770}#)
|
|
((lambda (#{tmp\ 771}#)
|
|
(if #{tmp\ 771}#
|
|
(apply (lambda (#{id\ 774}# #{i\ 775}#)
|
|
(let ((#{v\ 778}# (#{gen-var\ 373}#
|
|
#{id\ 774}#)))
|
|
(let ((#{l\ 780}# (#{gen-labels\ 278}#
|
|
(list #{v\ 778}#))))
|
|
(let ((#{r**\ 782}#
|
|
(#{extend-var-env\ 250}#
|
|
#{l\ 780}#
|
|
(list #{v\ 778}#)
|
|
#{r*\ 754}#)))
|
|
(let ((#{w**\ 784}#
|
|
(#{make-binding-wrap\ 307}#
|
|
(list #{id\ 774}#)
|
|
#{l\ 780}#
|
|
#{w*\ 755}#)))
|
|
(#{expand-opt\ 658}#
|
|
#{req\ 748}#
|
|
(cdr #{opt\ 749}#)
|
|
#{rest\ 750}#
|
|
#{kw\ 751}#
|
|
#{body\ 752}#
|
|
(cons #{v\ 778}#
|
|
#{vars\ 753}#)
|
|
#{r**\ 782}#
|
|
#{w**\ 784}#
|
|
(cons (syntax->datum
|
|
#{id\ 774}#)
|
|
#{out\ 756}#)
|
|
(cons (#{chi\ 345}#
|
|
#{i\ 775}#
|
|
#{r*\ 754}#
|
|
#{w*\ 755}#
|
|
#{mod\ 645}#)
|
|
#{inits\ 757}#)))))))
|
|
#{tmp\ 771}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 770}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 770}#
|
|
'(any any))))
|
|
(car #{opt\ 749}#))
|
|
(if #{rest\ 750}#
|
|
(let ((#{v\ 789}# (#{gen-var\ 373}#
|
|
#{rest\ 750}#)))
|
|
(let ((#{l\ 791}# (#{gen-labels\ 278}#
|
|
(list #{v\ 789}#))))
|
|
(let ((#{r*\ 793}#
|
|
(#{extend-var-env\ 250}#
|
|
#{l\ 791}#
|
|
(list #{v\ 789}#)
|
|
#{r*\ 754}#)))
|
|
(let ((#{w*\ 795}#
|
|
(#{make-binding-wrap\ 307}#
|
|
(list #{rest\ 750}#)
|
|
#{l\ 791}#
|
|
#{w*\ 755}#)))
|
|
(#{expand-kw\ 660}#
|
|
#{req\ 748}#
|
|
(if (pair? #{out\ 756}#)
|
|
(reverse #{out\ 756}#)
|
|
#f)
|
|
(syntax->datum #{rest\ 750}#)
|
|
(if (pair? #{kw\ 751}#)
|
|
(cdr #{kw\ 751}#)
|
|
#{kw\ 751}#)
|
|
#{body\ 752}#
|
|
(cons #{v\ 789}# #{vars\ 753}#)
|
|
#{r*\ 793}#
|
|
#{w*\ 795}#
|
|
(if (pair? #{kw\ 751}#)
|
|
(car #{kw\ 751}#)
|
|
#f)
|
|
'()
|
|
#{inits\ 757}#)))))
|
|
(#{expand-kw\ 660}#
|
|
#{req\ 748}#
|
|
(if (pair? #{out\ 756}#)
|
|
(reverse #{out\ 756}#)
|
|
#f)
|
|
#f
|
|
(if (pair? #{kw\ 751}#)
|
|
(cdr #{kw\ 751}#)
|
|
#{kw\ 751}#)
|
|
#{body\ 752}#
|
|
#{vars\ 753}#
|
|
#{r*\ 754}#
|
|
#{w*\ 755}#
|
|
(if (pair? #{kw\ 751}#) (car #{kw\ 751}#) #f)
|
|
'()
|
|
#{inits\ 757}#)))))
|
|
(#{expand-req\ 656}#
|
|
(lambda (#{req\ 797}#
|
|
#{opt\ 798}#
|
|
#{rest\ 799}#
|
|
#{kw\ 800}#
|
|
#{body\ 801}#)
|
|
(let ((#{vars\ 809}#
|
|
(map #{gen-var\ 373}# #{req\ 797}#))
|
|
(#{labels\ 810}#
|
|
(#{gen-labels\ 278}# #{req\ 797}#)))
|
|
(let ((#{r*\ 813}#
|
|
(#{extend-var-env\ 250}#
|
|
#{labels\ 810}#
|
|
#{vars\ 809}#
|
|
#{r\ 642}#))
|
|
(#{w*\ 814}#
|
|
(#{make-binding-wrap\ 307}#
|
|
#{req\ 797}#
|
|
#{labels\ 810}#
|
|
#{w\ 643}#)))
|
|
(#{expand-opt\ 658}#
|
|
(map syntax->datum #{req\ 797}#)
|
|
#{opt\ 798}#
|
|
#{rest\ 799}#
|
|
#{kw\ 800}#
|
|
#{body\ 801}#
|
|
(reverse #{vars\ 809}#)
|
|
#{r*\ 813}#
|
|
#{w*\ 814}#
|
|
'()
|
|
'()))))))
|
|
((lambda (#{tmp\ 815}#)
|
|
((lambda (#{tmp\ 816}#)
|
|
(if #{tmp\ 816}#
|
|
(apply (lambda () (values #f #f)) #{tmp\ 816}#)
|
|
((lambda (#{tmp\ 817}#)
|
|
(if #{tmp\ 817}#
|
|
(apply (lambda (#{args\ 824}#
|
|
#{e1\ 825}#
|
|
#{e2\ 826}#
|
|
#{args*\ 827}#
|
|
#{e1*\ 828}#
|
|
#{e2*\ 829}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{get-formals\ 646}#
|
|
#{args\ 824}#))
|
|
(lambda (#{req\ 830}#
|
|
#{opt\ 831}#
|
|
#{rest\ 832}#
|
|
#{kw\ 833}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{expand-req\ 656}#
|
|
#{req\ 830}#
|
|
#{opt\ 831}#
|
|
#{rest\ 832}#
|
|
#{kw\ 833}#
|
|
(cons #{e1\ 825}#
|
|
#{e2\ 826}#)))
|
|
(lambda (#{docstring\ 839}#
|
|
#{req\ 840}#
|
|
#{opt\ 841}#
|
|
#{rest\ 842}#
|
|
#{kw\ 843}#
|
|
#{inits\ 844}#
|
|
#{vars\ 845}#
|
|
#{body\ 846}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 369}#
|
|
#{e\ 641}#
|
|
#{r\ 642}#
|
|
#{w\ 643}#
|
|
#{s\ 644}#
|
|
#{mod\ 645}#
|
|
#{get-formals\ 646}#
|
|
(map (lambda (#{tmp\ 857}#
|
|
#{tmp\ 856}#
|
|
#{tmp\ 855}#)
|
|
(cons #{tmp\ 855}#
|
|
(cons #{tmp\ 856}#
|
|
#{tmp\ 857}#)))
|
|
#{e2*\ 829}#
|
|
#{e1*\ 828}#
|
|
#{args*\ 827}#)))
|
|
(lambda (#{docstring*\ 859}#
|
|
#{else*\ 860}#)
|
|
(values
|
|
(let ((#{t\ 865}# #{docstring\ 839}#))
|
|
(if #{t\ 865}#
|
|
#{t\ 865}#
|
|
#{docstring*\ 859}#))
|
|
(#{build-lambda-case\ 206}#
|
|
#{s\ 644}#
|
|
#{req\ 840}#
|
|
#{opt\ 841}#
|
|
#{rest\ 842}#
|
|
#{kw\ 843}#
|
|
#{inits\ 844}#
|
|
#{vars\ 845}#
|
|
#{body\ 846}#
|
|
#{else*\ 860}#)))))))))
|
|
#{tmp\ 817}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 815}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 815}#
|
|
'((any any . each-any)
|
|
.
|
|
#(each (any any . each-any)))))))
|
|
($sc-dispatch #{tmp\ 815}# (quote ()))))
|
|
#{clauses\ 647}#))))
|
|
(#{lambda*-formals\ 367}#
|
|
(lambda (#{orig-args\ 867}#)
|
|
(letrec ((#{check\ 878}#
|
|
(lambda (#{req\ 879}#
|
|
#{opt\ 880}#
|
|
#{rest\ 881}#
|
|
#{kw\ 882}#)
|
|
(if (#{distinct-bound-ids?\ 325}#
|
|
(append
|
|
#{req\ 879}#
|
|
(map car #{opt\ 880}#)
|
|
(if #{rest\ 881}#
|
|
(list #{rest\ 881}#)
|
|
'())
|
|
(if (pair? #{kw\ 882}#)
|
|
(map cadr (cdr #{kw\ 882}#))
|
|
'())))
|
|
(values
|
|
#{req\ 879}#
|
|
#{opt\ 880}#
|
|
#{rest\ 881}#
|
|
#{kw\ 882}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 867}#))))
|
|
(#{rest\ 876}#
|
|
(lambda (#{args\ 890}#
|
|
#{req\ 891}#
|
|
#{opt\ 892}#
|
|
#{kw\ 893}#)
|
|
((lambda (#{tmp\ 898}#)
|
|
((lambda (#{tmp\ 899}#)
|
|
(if (if #{tmp\ 899}#
|
|
(apply (lambda (#{r\ 901}#)
|
|
(#{id?\ 260}# #{r\ 901}#))
|
|
#{tmp\ 899}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 903}#)
|
|
(#{check\ 878}#
|
|
#{req\ 891}#
|
|
#{opt\ 892}#
|
|
#{r\ 903}#
|
|
#{kw\ 893}#))
|
|
#{tmp\ 899}#)
|
|
((lambda (#{else\ 905}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid rest argument"
|
|
#{orig-args\ 867}#
|
|
#{args\ 890}#))
|
|
#{tmp\ 898}#)))
|
|
(list #{tmp\ 898}#)))
|
|
#{args\ 890}#)))
|
|
(#{key\ 874}#
|
|
(lambda (#{args\ 906}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
#{rkey\ 909}#)
|
|
((lambda (#{tmp\ 914}#)
|
|
((lambda (#{tmp\ 915}#)
|
|
(if #{tmp\ 915}#
|
|
(apply (lambda ()
|
|
(#{check\ 878}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
#f
|
|
(cons #f
|
|
(reverse #{rkey\ 909}#))))
|
|
#{tmp\ 915}#)
|
|
((lambda (#{tmp\ 916}#)
|
|
(if (if #{tmp\ 916}#
|
|
(apply (lambda (#{a\ 919}#
|
|
#{b\ 920}#)
|
|
(#{id?\ 260}#
|
|
#{a\ 919}#))
|
|
#{tmp\ 916}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 923}# #{b\ 924}#)
|
|
((lambda (#{tmp\ 926}#)
|
|
((lambda (#{k\ 928}#)
|
|
(#{key\ 874}#
|
|
#{b\ 924}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons (cons #{k\ 928}#
|
|
(cons #{a\ 923}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(k)
|
|
#((top))
|
|
#("i927"))
|
|
#(ribcage
|
|
#(a
|
|
b)
|
|
#((top)
|
|
(top))
|
|
#("i921"
|
|
"i922"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
opt
|
|
rkey)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i910"
|
|
"i911"
|
|
"i912"
|
|
"i913"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i877"
|
|
"i875"
|
|
"i873"
|
|
"i871"
|
|
"i869"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i868"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i61"
|
|
"i59")))
|
|
(hygiene
|
|
guile)))))
|
|
#{rkey\ 909}#)))
|
|
#{tmp\ 926}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 923}#))))
|
|
#{tmp\ 916}#)
|
|
((lambda (#{tmp\ 929}#)
|
|
(if (if #{tmp\ 929}#
|
|
(apply (lambda (#{a\ 933}#
|
|
#{init\ 934}#
|
|
#{b\ 935}#)
|
|
(#{id?\ 260}#
|
|
#{a\ 933}#))
|
|
#{tmp\ 929}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 939}#
|
|
#{init\ 940}#
|
|
#{b\ 941}#)
|
|
((lambda (#{tmp\ 943}#)
|
|
((lambda (#{k\ 945}#)
|
|
(#{key\ 874}#
|
|
#{b\ 941}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons (list #{k\ 945}#
|
|
#{a\ 939}#
|
|
#{init\ 940}#)
|
|
#{rkey\ 909}#)))
|
|
#{tmp\ 943}#))
|
|
(symbol->keyword
|
|
(syntax->datum
|
|
#{a\ 939}#))))
|
|
#{tmp\ 929}#)
|
|
((lambda (#{tmp\ 946}#)
|
|
(if (if #{tmp\ 946}#
|
|
(apply (lambda (#{a\ 951}#
|
|
#{init\ 952}#
|
|
#{k\ 953}#
|
|
#{b\ 954}#)
|
|
(if (#{id?\ 260}#
|
|
#{a\ 951}#)
|
|
(keyword?
|
|
(syntax->datum
|
|
#{k\ 953}#))
|
|
#f))
|
|
#{tmp\ 946}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 961}#
|
|
#{init\ 962}#
|
|
#{k\ 963}#
|
|
#{b\ 964}#)
|
|
(#{key\ 874}#
|
|
#{b\ 964}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons (list #{k\ 963}#
|
|
#{a\ 961}#
|
|
#{init\ 962}#)
|
|
#{rkey\ 909}#)))
|
|
#{tmp\ 946}#)
|
|
((lambda (#{tmp\ 965}#)
|
|
(if (if #{tmp\ 965}#
|
|
(apply (lambda (#{aok\ 967}#)
|
|
(eq? (syntax->datum
|
|
#{aok\ 967}#)
|
|
#:allow-other-keys))
|
|
#{tmp\ 965}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 969}#)
|
|
(#{check\ 878}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
#f
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 909}#))))
|
|
#{tmp\ 965}#)
|
|
((lambda (#{tmp\ 970}#)
|
|
(if (if #{tmp\ 970}#
|
|
(apply (lambda (#{aok\ 974}#
|
|
#{a\ 975}#
|
|
#{b\ 976}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 974}#)
|
|
#:allow-other-keys)
|
|
(eq? (syntax->datum
|
|
#{a\ 975}#)
|
|
#:rest)
|
|
#f))
|
|
#{tmp\ 970}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 982}#
|
|
#{a\ 983}#
|
|
#{b\ 984}#)
|
|
(#{rest\ 876}#
|
|
#{b\ 984}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 909}#))))
|
|
#{tmp\ 970}#)
|
|
((lambda (#{tmp\ 985}#)
|
|
(if (if #{tmp\ 985}#
|
|
(apply (lambda (#{aok\ 988}#
|
|
#{r\ 989}#)
|
|
(if (eq? (syntax->datum
|
|
#{aok\ 988}#)
|
|
#:allow-other-keys)
|
|
(#{id?\ 260}#
|
|
#{r\ 989}#)
|
|
#f))
|
|
#{tmp\ 985}#)
|
|
#f)
|
|
(apply (lambda (#{aok\ 994}#
|
|
#{r\ 995}#)
|
|
(#{rest\ 876}#
|
|
#{r\ 995}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons #t
|
|
(reverse
|
|
#{rkey\ 909}#))))
|
|
#{tmp\ 985}#)
|
|
((lambda (#{tmp\ 996}#)
|
|
(if (if #{tmp\ 996}#
|
|
(apply (lambda (#{a\ 999}#
|
|
#{b\ 1000}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 999}#)
|
|
#:rest))
|
|
#{tmp\ 996}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1003}#
|
|
#{b\ 1004}#)
|
|
(#{rest\ 876}#
|
|
#{b\ 1004}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 909}#))))
|
|
#{tmp\ 996}#)
|
|
((lambda (#{tmp\ 1005}#)
|
|
(if (if #{tmp\ 1005}#
|
|
(apply (lambda (#{r\ 1007}#)
|
|
(#{id?\ 260}#
|
|
#{r\ 1007}#))
|
|
#{tmp\ 1005}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1009}#)
|
|
(#{rest\ 876}#
|
|
#{r\ 1009}#
|
|
#{req\ 907}#
|
|
#{opt\ 908}#
|
|
(cons #f
|
|
(reverse
|
|
#{rkey\ 909}#))))
|
|
#{tmp\ 1005}#)
|
|
((lambda (#{else\ 1011}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid keyword argument list"
|
|
#{orig-args\ 867}#
|
|
#{args\ 906}#))
|
|
#{tmp\ 914}#)))
|
|
(list #{tmp\ 914}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'(any .
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'((any any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 914}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 914}# (quote ()))))
|
|
#{args\ 906}#)))
|
|
(#{opt\ 872}#
|
|
(lambda (#{args\ 1012}# #{req\ 1013}# #{ropt\ 1014}#)
|
|
((lambda (#{tmp\ 1018}#)
|
|
((lambda (#{tmp\ 1019}#)
|
|
(if #{tmp\ 1019}#
|
|
(apply (lambda ()
|
|
(#{check\ 878}#
|
|
#{req\ 1013}#
|
|
(reverse #{ropt\ 1014}#)
|
|
#f
|
|
'()))
|
|
#{tmp\ 1019}#)
|
|
((lambda (#{tmp\ 1020}#)
|
|
(if (if #{tmp\ 1020}#
|
|
(apply (lambda (#{a\ 1023}#
|
|
#{b\ 1024}#)
|
|
(#{id?\ 260}#
|
|
#{a\ 1023}#))
|
|
#{tmp\ 1020}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1027}#
|
|
#{b\ 1028}#)
|
|
(#{opt\ 872}#
|
|
#{b\ 1028}#
|
|
#{req\ 1013}#
|
|
(cons (cons #{a\ 1027}#
|
|
'(#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(a b)
|
|
#((top)
|
|
(top))
|
|
#("i1025"
|
|
"i1026"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(args
|
|
req
|
|
ropt)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i1015"
|
|
"i1016"
|
|
"i1017"))
|
|
#(ribcage
|
|
(check rest
|
|
key
|
|
opt
|
|
req)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i877"
|
|
"i875"
|
|
"i873"
|
|
"i871"
|
|
"i869"))
|
|
#(ribcage
|
|
#(orig-args)
|
|
#((top))
|
|
#("i868"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i61"
|
|
"i59")))
|
|
(hygiene
|
|
guile))))
|
|
#{ropt\ 1014}#)))
|
|
#{tmp\ 1020}#)
|
|
((lambda (#{tmp\ 1029}#)
|
|
(if (if #{tmp\ 1029}#
|
|
(apply (lambda (#{a\ 1033}#
|
|
#{init\ 1034}#
|
|
#{b\ 1035}#)
|
|
(#{id?\ 260}#
|
|
#{a\ 1033}#))
|
|
#{tmp\ 1029}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1039}#
|
|
#{init\ 1040}#
|
|
#{b\ 1041}#)
|
|
(#{opt\ 872}#
|
|
#{b\ 1041}#
|
|
#{req\ 1013}#
|
|
(cons (list #{a\ 1039}#
|
|
#{init\ 1040}#)
|
|
#{ropt\ 1014}#)))
|
|
#{tmp\ 1029}#)
|
|
((lambda (#{tmp\ 1042}#)
|
|
(if (if #{tmp\ 1042}#
|
|
(apply (lambda (#{a\ 1045}#
|
|
#{b\ 1046}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1045}#)
|
|
#:key))
|
|
#{tmp\ 1042}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1049}#
|
|
#{b\ 1050}#)
|
|
(#{key\ 874}#
|
|
#{b\ 1050}#
|
|
#{req\ 1013}#
|
|
(reverse
|
|
#{ropt\ 1014}#)
|
|
'()))
|
|
#{tmp\ 1042}#)
|
|
((lambda (#{tmp\ 1051}#)
|
|
(if (if #{tmp\ 1051}#
|
|
(apply (lambda (#{a\ 1054}#
|
|
#{b\ 1055}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1054}#)
|
|
#:rest))
|
|
#{tmp\ 1051}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1058}#
|
|
#{b\ 1059}#)
|
|
(#{rest\ 876}#
|
|
#{b\ 1059}#
|
|
#{req\ 1013}#
|
|
(reverse
|
|
#{ropt\ 1014}#)
|
|
'()))
|
|
#{tmp\ 1051}#)
|
|
((lambda (#{tmp\ 1060}#)
|
|
(if (if #{tmp\ 1060}#
|
|
(apply (lambda (#{r\ 1062}#)
|
|
(#{id?\ 260}#
|
|
#{r\ 1062}#))
|
|
#{tmp\ 1060}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1064}#)
|
|
(#{rest\ 876}#
|
|
#{r\ 1064}#
|
|
#{req\ 1013}#
|
|
(reverse
|
|
#{ropt\ 1014}#)
|
|
'()))
|
|
#{tmp\ 1060}#)
|
|
((lambda (#{else\ 1066}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid optional argument list"
|
|
#{orig-args\ 867}#
|
|
#{args\ 1012}#))
|
|
#{tmp\ 1018}#)))
|
|
(list #{tmp\ 1018}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 1018}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1018}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1018}#
|
|
'((any any) . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1018}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 1018}# (quote ()))))
|
|
#{args\ 1012}#)))
|
|
(#{req\ 870}#
|
|
(lambda (#{args\ 1067}# #{rreq\ 1068}#)
|
|
((lambda (#{tmp\ 1071}#)
|
|
((lambda (#{tmp\ 1072}#)
|
|
(if #{tmp\ 1072}#
|
|
(apply (lambda ()
|
|
(#{check\ 878}#
|
|
(reverse #{rreq\ 1068}#)
|
|
'()
|
|
#f
|
|
'()))
|
|
#{tmp\ 1072}#)
|
|
((lambda (#{tmp\ 1073}#)
|
|
(if (if #{tmp\ 1073}#
|
|
(apply (lambda (#{a\ 1076}#
|
|
#{b\ 1077}#)
|
|
(#{id?\ 260}#
|
|
#{a\ 1076}#))
|
|
#{tmp\ 1073}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1080}#
|
|
#{b\ 1081}#)
|
|
(#{req\ 870}#
|
|
#{b\ 1081}#
|
|
(cons #{a\ 1080}#
|
|
#{rreq\ 1068}#)))
|
|
#{tmp\ 1073}#)
|
|
((lambda (#{tmp\ 1082}#)
|
|
(if (if #{tmp\ 1082}#
|
|
(apply (lambda (#{a\ 1085}#
|
|
#{b\ 1086}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1085}#)
|
|
#:optional))
|
|
#{tmp\ 1082}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1089}#
|
|
#{b\ 1090}#)
|
|
(#{opt\ 872}#
|
|
#{b\ 1090}#
|
|
(reverse
|
|
#{rreq\ 1068}#)
|
|
'()))
|
|
#{tmp\ 1082}#)
|
|
((lambda (#{tmp\ 1091}#)
|
|
(if (if #{tmp\ 1091}#
|
|
(apply (lambda (#{a\ 1094}#
|
|
#{b\ 1095}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1094}#)
|
|
#:key))
|
|
#{tmp\ 1091}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1098}#
|
|
#{b\ 1099}#)
|
|
(#{key\ 874}#
|
|
#{b\ 1099}#
|
|
(reverse
|
|
#{rreq\ 1068}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 1091}#)
|
|
((lambda (#{tmp\ 1100}#)
|
|
(if (if #{tmp\ 1100}#
|
|
(apply (lambda (#{a\ 1103}#
|
|
#{b\ 1104}#)
|
|
(eq? (syntax->datum
|
|
#{a\ 1103}#)
|
|
#:rest))
|
|
#{tmp\ 1100}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1107}#
|
|
#{b\ 1108}#)
|
|
(#{rest\ 876}#
|
|
#{b\ 1108}#
|
|
(reverse
|
|
#{rreq\ 1068}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 1100}#)
|
|
((lambda (#{tmp\ 1109}#)
|
|
(if (if #{tmp\ 1109}#
|
|
(apply (lambda (#{r\ 1111}#)
|
|
(#{id?\ 260}#
|
|
#{r\ 1111}#))
|
|
#{tmp\ 1109}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1113}#)
|
|
(#{rest\ 876}#
|
|
#{r\ 1113}#
|
|
(reverse
|
|
#{rreq\ 1068}#)
|
|
'()
|
|
'()))
|
|
#{tmp\ 1109}#)
|
|
((lambda (#{else\ 1115}#)
|
|
(syntax-violation
|
|
'lambda*
|
|
"invalid argument list"
|
|
#{orig-args\ 867}#
|
|
#{args\ 1067}#))
|
|
#{tmp\ 1071}#)))
|
|
(list #{tmp\ 1071}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 1071}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1071}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1071}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1071}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 1071}# (quote ()))))
|
|
#{args\ 1067}#))))
|
|
(#{req\ 870}# #{orig-args\ 867}# (quote ())))))
|
|
(#{chi-simple-lambda\ 365}#
|
|
(lambda (#{e\ 1116}#
|
|
#{r\ 1117}#
|
|
#{w\ 1118}#
|
|
#{s\ 1119}#
|
|
#{mod\ 1120}#
|
|
#{req\ 1121}#
|
|
#{rest\ 1122}#
|
|
#{docstring\ 1123}#
|
|
#{body\ 1124}#)
|
|
(let ((#{ids\ 1136}#
|
|
(if #{rest\ 1122}#
|
|
(append #{req\ 1121}# (list #{rest\ 1122}#))
|
|
#{req\ 1121}#)))
|
|
(let ((#{vars\ 1138}#
|
|
(map #{gen-var\ 373}# #{ids\ 1136}#)))
|
|
(let ((#{labels\ 1140}#
|
|
(#{gen-labels\ 278}# #{ids\ 1136}#)))
|
|
(#{build-simple-lambda\ 202}#
|
|
#{s\ 1119}#
|
|
(map syntax->datum #{req\ 1121}#)
|
|
(if #{rest\ 1122}#
|
|
(syntax->datum #{rest\ 1122}#)
|
|
#f)
|
|
#{vars\ 1138}#
|
|
#{docstring\ 1123}#
|
|
(#{chi-body\ 353}#
|
|
#{body\ 1124}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1116}#
|
|
#{w\ 1118}#
|
|
#{s\ 1119}#
|
|
#{mod\ 1120}#)
|
|
(#{extend-var-env\ 250}#
|
|
#{labels\ 1140}#
|
|
#{vars\ 1138}#
|
|
#{r\ 1117}#)
|
|
(#{make-binding-wrap\ 307}#
|
|
#{ids\ 1136}#
|
|
#{labels\ 1140}#
|
|
#{w\ 1118}#)
|
|
#{mod\ 1120}#)))))))
|
|
(#{lambda-formals\ 363}#
|
|
(lambda (#{orig-args\ 1143}#)
|
|
(letrec ((#{check\ 1148}#
|
|
(lambda (#{req\ 1149}# #{rest\ 1150}#)
|
|
(if (#{distinct-bound-ids?\ 325}#
|
|
(if #{rest\ 1150}#
|
|
(cons #{rest\ 1150}# #{req\ 1149}#)
|
|
#{req\ 1149}#))
|
|
(values #{req\ 1149}# #f #{rest\ 1150}# #f)
|
|
(syntax-violation
|
|
'lambda
|
|
"duplicate identifier in argument list"
|
|
#{orig-args\ 1143}#))))
|
|
(#{req\ 1146}#
|
|
(lambda (#{args\ 1156}# #{rreq\ 1157}#)
|
|
((lambda (#{tmp\ 1160}#)
|
|
((lambda (#{tmp\ 1161}#)
|
|
(if #{tmp\ 1161}#
|
|
(apply (lambda ()
|
|
(#{check\ 1148}#
|
|
(reverse #{rreq\ 1157}#)
|
|
#f))
|
|
#{tmp\ 1161}#)
|
|
((lambda (#{tmp\ 1162}#)
|
|
(if (if #{tmp\ 1162}#
|
|
(apply (lambda (#{a\ 1165}#
|
|
#{b\ 1166}#)
|
|
(#{id?\ 260}#
|
|
#{a\ 1165}#))
|
|
#{tmp\ 1162}#)
|
|
#f)
|
|
(apply (lambda (#{a\ 1169}#
|
|
#{b\ 1170}#)
|
|
(#{req\ 1146}#
|
|
#{b\ 1170}#
|
|
(cons #{a\ 1169}#
|
|
#{rreq\ 1157}#)))
|
|
#{tmp\ 1162}#)
|
|
((lambda (#{tmp\ 1171}#)
|
|
(if (if #{tmp\ 1171}#
|
|
(apply (lambda (#{r\ 1173}#)
|
|
(#{id?\ 260}#
|
|
#{r\ 1173}#))
|
|
#{tmp\ 1171}#)
|
|
#f)
|
|
(apply (lambda (#{r\ 1175}#)
|
|
(#{check\ 1148}#
|
|
(reverse
|
|
#{rreq\ 1157}#)
|
|
#{r\ 1175}#))
|
|
#{tmp\ 1171}#)
|
|
((lambda (#{else\ 1177}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"invalid argument list"
|
|
#{orig-args\ 1143}#
|
|
#{args\ 1156}#))
|
|
#{tmp\ 1160}#)))
|
|
(list #{tmp\ 1160}#))))
|
|
($sc-dispatch
|
|
#{tmp\ 1160}#
|
|
'(any . any)))))
|
|
($sc-dispatch #{tmp\ 1160}# (quote ()))))
|
|
#{args\ 1156}#))))
|
|
(#{req\ 1146}# #{orig-args\ 1143}# (quote ())))))
|
|
(#{ellipsis?\ 361}#
|
|
(lambda (#{x\ 1178}#)
|
|
(if (#{nonsymbol-id?\ 258}# #{x\ 1178}#)
|
|
(#{free-id=?\ 319}#
|
|
#{x\ 1178}#
|
|
'#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i1179"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile)))
|
|
#f)))
|
|
(#{chi-void\ 359}#
|
|
(lambda () (#{build-void\ 182}# #f)))
|
|
(#{eval-local-transformer\ 357}#
|
|
(lambda (#{expanded\ 1183}# #{mod\ 1184}#)
|
|
(let ((#{p\ 1188}#
|
|
(#{local-eval-hook\ 173}#
|
|
#{expanded\ 1183}#
|
|
#{mod\ 1184}#)))
|
|
(if (procedure? #{p\ 1188}#)
|
|
(cons #{p\ 1188}# (module-name (current-module)))
|
|
(syntax-violation
|
|
#f
|
|
"nonprocedure transformer"
|
|
#{p\ 1188}#)))))
|
|
(#{chi-local-syntax\ 355}#
|
|
(lambda (#{rec?\ 1189}#
|
|
#{e\ 1190}#
|
|
#{r\ 1191}#
|
|
#{w\ 1192}#
|
|
#{s\ 1193}#
|
|
#{mod\ 1194}#
|
|
#{k\ 1195}#)
|
|
((lambda (#{tmp\ 1203}#)
|
|
((lambda (#{tmp\ 1204}#)
|
|
(if #{tmp\ 1204}#
|
|
(apply (lambda (#{_\ 1210}#
|
|
#{id\ 1211}#
|
|
#{val\ 1212}#
|
|
#{e1\ 1213}#
|
|
#{e2\ 1214}#)
|
|
(let ((#{ids\ 1216}# #{id\ 1211}#))
|
|
(if (not (#{valid-bound-ids?\ 323}#
|
|
#{ids\ 1216}#))
|
|
(syntax-violation
|
|
#f
|
|
"duplicate bound keyword"
|
|
#{e\ 1190}#)
|
|
(let ((#{labels\ 1219}#
|
|
(#{gen-labels\ 278}#
|
|
#{ids\ 1216}#)))
|
|
(let ((#{new-w\ 1221}#
|
|
(#{make-binding-wrap\ 307}#
|
|
#{ids\ 1216}#
|
|
#{labels\ 1219}#
|
|
#{w\ 1192}#)))
|
|
(#{k\ 1195}#
|
|
(cons #{e1\ 1213}# #{e2\ 1214}#)
|
|
(#{extend-env\ 248}#
|
|
#{labels\ 1219}#
|
|
(let ((#{w\ 1225}#
|
|
(if #{rec?\ 1189}#
|
|
#{new-w\ 1221}#
|
|
#{w\ 1192}#))
|
|
(#{trans-r\ 1226}#
|
|
(#{macros-only-env\ 252}#
|
|
#{r\ 1191}#)))
|
|
(map (lambda (#{x\ 1227}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 357}#
|
|
(#{chi\ 345}#
|
|
#{x\ 1227}#
|
|
#{trans-r\ 1226}#
|
|
#{w\ 1225}#
|
|
#{mod\ 1194}#)
|
|
#{mod\ 1194}#)))
|
|
#{val\ 1212}#))
|
|
#{r\ 1191}#)
|
|
#{new-w\ 1221}#
|
|
#{s\ 1193}#
|
|
#{mod\ 1194}#))))))
|
|
#{tmp\ 1204}#)
|
|
((lambda (#{_\ 1232}#)
|
|
(syntax-violation
|
|
#f
|
|
"bad local syntax definition"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1190}#
|
|
#{w\ 1192}#
|
|
#{s\ 1193}#
|
|
#{mod\ 1194}#)))
|
|
#{tmp\ 1203}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1203}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 1190}#)))
|
|
(#{chi-body\ 353}#
|
|
(lambda (#{body\ 1233}#
|
|
#{outer-form\ 1234}#
|
|
#{r\ 1235}#
|
|
#{w\ 1236}#
|
|
#{mod\ 1237}#)
|
|
(let ((#{r\ 1245}#
|
|
(cons '("placeholder" placeholder)
|
|
#{r\ 1235}#)))
|
|
(let ((#{ribcage\ 1247}#
|
|
(#{make-ribcage\ 281}#
|
|
'()
|
|
'()
|
|
'())))
|
|
(let ((#{w\ 1250}#
|
|
(#{make-wrap\ 265}#
|
|
(#{wrap-marks\ 267}# #{w\ 1236}#)
|
|
(cons #{ribcage\ 1247}#
|
|
(#{wrap-subst\ 269}# #{w\ 1236}#)))))
|
|
(letrec ((#{parse\ 1259}#
|
|
(lambda (#{body\ 1260}#
|
|
#{ids\ 1261}#
|
|
#{labels\ 1262}#
|
|
#{var-ids\ 1263}#
|
|
#{vars\ 1264}#
|
|
#{vals\ 1265}#
|
|
#{bindings\ 1266}#)
|
|
(if (null? #{body\ 1260}#)
|
|
(syntax-violation
|
|
#f
|
|
"no expressions in body"
|
|
#{outer-form\ 1234}#)
|
|
(let ((#{e\ 1271}# (cdar #{body\ 1260}#))
|
|
(#{er\ 1272}# (caar #{body\ 1260}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 341}#
|
|
#{e\ 1271}#
|
|
#{er\ 1272}#
|
|
'(())
|
|
(#{source-annotation\ 239}#
|
|
#{er\ 1272}#)
|
|
#{ribcage\ 1247}#
|
|
#{mod\ 1237}#
|
|
#f))
|
|
(lambda (#{type\ 1274}#
|
|
#{value\ 1275}#
|
|
#{e\ 1276}#
|
|
#{w\ 1277}#
|
|
#{s\ 1278}#
|
|
#{mod\ 1279}#)
|
|
(if (memv #{type\ 1274}#
|
|
'(define-form))
|
|
(let ((#{id\ 1289}#
|
|
(#{wrap\ 329}#
|
|
#{value\ 1275}#
|
|
#{w\ 1277}#
|
|
#{mod\ 1279}#))
|
|
(#{label\ 1290}#
|
|
(#{gen-label\ 276}#)))
|
|
(let ((#{var\ 1292}#
|
|
(#{gen-var\ 373}#
|
|
#{id\ 1289}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 305}#
|
|
#{ribcage\ 1247}#
|
|
#{id\ 1289}#
|
|
#{label\ 1290}#)
|
|
(#{parse\ 1259}#
|
|
(cdr #{body\ 1260}#)
|
|
(cons #{id\ 1289}#
|
|
#{ids\ 1261}#)
|
|
(cons #{label\ 1290}#
|
|
#{labels\ 1262}#)
|
|
(cons #{id\ 1289}#
|
|
#{var-ids\ 1263}#)
|
|
(cons #{var\ 1292}#
|
|
#{vars\ 1264}#)
|
|
(cons (cons #{er\ 1272}#
|
|
(#{wrap\ 329}#
|
|
#{e\ 1276}#
|
|
#{w\ 1277}#
|
|
#{mod\ 1279}#))
|
|
#{vals\ 1265}#)
|
|
(cons (cons 'lexical
|
|
#{var\ 1292}#)
|
|
#{bindings\ 1266}#)))))
|
|
(if (memv #{type\ 1274}#
|
|
'(define-syntax-form))
|
|
(let ((#{id\ 1297}#
|
|
(#{wrap\ 329}#
|
|
#{value\ 1275}#
|
|
#{w\ 1277}#
|
|
#{mod\ 1279}#))
|
|
(#{label\ 1298}#
|
|
(#{gen-label\ 276}#)))
|
|
(begin
|
|
(#{extend-ribcage!\ 305}#
|
|
#{ribcage\ 1247}#
|
|
#{id\ 1297}#
|
|
#{label\ 1298}#)
|
|
(#{parse\ 1259}#
|
|
(cdr #{body\ 1260}#)
|
|
(cons #{id\ 1297}#
|
|
#{ids\ 1261}#)
|
|
(cons #{label\ 1298}#
|
|
#{labels\ 1262}#)
|
|
#{var-ids\ 1263}#
|
|
#{vars\ 1264}#
|
|
#{vals\ 1265}#
|
|
(cons (cons 'macro
|
|
(cons #{er\ 1272}#
|
|
(#{wrap\ 329}#
|
|
#{e\ 1276}#
|
|
#{w\ 1277}#
|
|
#{mod\ 1279}#)))
|
|
#{bindings\ 1266}#))))
|
|
(if (memv #{type\ 1274}#
|
|
'(begin-form))
|
|
((lambda (#{tmp\ 1301}#)
|
|
((lambda (#{tmp\ 1302}#)
|
|
(if #{tmp\ 1302}#
|
|
(apply (lambda (#{_\ 1305}#
|
|
#{e1\ 1306}#)
|
|
(#{parse\ 1259}#
|
|
(letrec ((#{f\ 1309}#
|
|
(lambda (#{forms\ 1310}#)
|
|
(if (null? #{forms\ 1310}#)
|
|
(cdr #{body\ 1260}#)
|
|
(cons (cons #{er\ 1272}#
|
|
(#{wrap\ 329}#
|
|
(car #{forms\ 1310}#)
|
|
#{w\ 1277}#
|
|
#{mod\ 1279}#))
|
|
(#{f\ 1309}#
|
|
(cdr #{forms\ 1310}#)))))))
|
|
(#{f\ 1309}#
|
|
#{e1\ 1306}#))
|
|
#{ids\ 1261}#
|
|
#{labels\ 1262}#
|
|
#{var-ids\ 1263}#
|
|
#{vars\ 1264}#
|
|
#{vals\ 1265}#
|
|
#{bindings\ 1266}#))
|
|
#{tmp\ 1302}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1301}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1301}#
|
|
'(any . each-any))))
|
|
#{e\ 1276}#)
|
|
(if (memv #{type\ 1274}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 355}#
|
|
#{value\ 1275}#
|
|
#{e\ 1276}#
|
|
#{er\ 1272}#
|
|
#{w\ 1277}#
|
|
#{s\ 1278}#
|
|
#{mod\ 1279}#
|
|
(lambda (#{forms\ 1313}#
|
|
#{er\ 1314}#
|
|
#{w\ 1315}#
|
|
#{s\ 1316}#
|
|
#{mod\ 1317}#)
|
|
(#{parse\ 1259}#
|
|
(letrec ((#{f\ 1325}#
|
|
(lambda (#{forms\ 1326}#)
|
|
(if (null? #{forms\ 1326}#)
|
|
(cdr #{body\ 1260}#)
|
|
(cons (cons #{er\ 1314}#
|
|
(#{wrap\ 329}#
|
|
(car #{forms\ 1326}#)
|
|
#{w\ 1315}#
|
|
#{mod\ 1317}#))
|
|
(#{f\ 1325}#
|
|
(cdr #{forms\ 1326}#)))))))
|
|
(#{f\ 1325}#
|
|
#{forms\ 1313}#))
|
|
#{ids\ 1261}#
|
|
#{labels\ 1262}#
|
|
#{var-ids\ 1263}#
|
|
#{vars\ 1264}#
|
|
#{vals\ 1265}#
|
|
#{bindings\ 1266}#)))
|
|
(if (null? #{ids\ 1261}#)
|
|
(#{build-sequence\ 212}#
|
|
#f
|
|
(map (lambda (#{x\ 1329}#)
|
|
(#{chi\ 345}#
|
|
(cdr #{x\ 1329}#)
|
|
(car #{x\ 1329}#)
|
|
'(())
|
|
#{mod\ 1279}#))
|
|
(cons (cons #{er\ 1272}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1276}#
|
|
#{w\ 1277}#
|
|
#{s\ 1278}#
|
|
#{mod\ 1279}#))
|
|
(cdr #{body\ 1260}#))))
|
|
(begin
|
|
(if (not (#{valid-bound-ids?\ 323}#
|
|
#{ids\ 1261}#))
|
|
(syntax-violation
|
|
#f
|
|
"invalid or duplicate identifier in definition"
|
|
#{outer-form\ 1234}#))
|
|
(letrec ((#{loop\ 1336}#
|
|
(lambda (#{bs\ 1337}#
|
|
#{er-cache\ 1338}#
|
|
#{r-cache\ 1339}#)
|
|
(if (not (null? #{bs\ 1337}#))
|
|
(let ((#{b\ 1342}#
|
|
(car #{bs\ 1337}#)))
|
|
(if (eq? (car #{b\ 1342}#)
|
|
'macro)
|
|
(let ((#{er\ 1345}#
|
|
(cadr #{b\ 1342}#)))
|
|
(let ((#{r-cache\ 1347}#
|
|
(if (eq? #{er\ 1345}#
|
|
#{er-cache\ 1338}#)
|
|
#{r-cache\ 1339}#
|
|
(#{macros-only-env\ 252}#
|
|
#{er\ 1345}#))))
|
|
(begin
|
|
(set-cdr!
|
|
#{b\ 1342}#
|
|
(#{eval-local-transformer\ 357}#
|
|
(#{chi\ 345}#
|
|
(cddr #{b\ 1342}#)
|
|
#{r-cache\ 1347}#
|
|
'(())
|
|
#{mod\ 1279}#)
|
|
#{mod\ 1279}#))
|
|
(#{loop\ 1336}#
|
|
(cdr #{bs\ 1337}#)
|
|
#{er\ 1345}#
|
|
#{r-cache\ 1347}#))))
|
|
(#{loop\ 1336}#
|
|
(cdr #{bs\ 1337}#)
|
|
#{er-cache\ 1338}#
|
|
#{r-cache\ 1339}#)))))))
|
|
(#{loop\ 1336}#
|
|
#{bindings\ 1266}#
|
|
#f
|
|
#f))
|
|
(set-cdr!
|
|
#{r\ 1245}#
|
|
(#{extend-env\ 248}#
|
|
#{labels\ 1262}#
|
|
#{bindings\ 1266}#
|
|
(cdr #{r\ 1245}#)))
|
|
(#{build-letrec\ 218}#
|
|
#f
|
|
(map syntax->datum
|
|
#{var-ids\ 1263}#)
|
|
#{vars\ 1264}#
|
|
(map (lambda (#{x\ 1350}#)
|
|
(#{chi\ 345}#
|
|
(cdr #{x\ 1350}#)
|
|
(car #{x\ 1350}#)
|
|
'(())
|
|
#{mod\ 1279}#))
|
|
#{vals\ 1265}#)
|
|
(#{build-sequence\ 212}#
|
|
#f
|
|
(map (lambda (#{x\ 1354}#)
|
|
(#{chi\ 345}#
|
|
(cdr #{x\ 1354}#)
|
|
(car #{x\ 1354}#)
|
|
'(())
|
|
#{mod\ 1279}#))
|
|
(cons (cons #{er\ 1272}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1276}#
|
|
#{w\ 1277}#
|
|
#{s\ 1278}#
|
|
#{mod\ 1279}#))
|
|
(cdr #{body\ 1260}#))))))))))))))))))
|
|
(#{parse\ 1259}#
|
|
(map (lambda (#{x\ 1267}#)
|
|
(cons #{r\ 1245}#
|
|
(#{wrap\ 329}#
|
|
#{x\ 1267}#
|
|
#{w\ 1250}#
|
|
#{mod\ 1237}#)))
|
|
#{body\ 1233}#)
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'()
|
|
'())))))))
|
|
(#{chi-macro\ 351}#
|
|
(lambda (#{p\ 1357}#
|
|
#{e\ 1358}#
|
|
#{r\ 1359}#
|
|
#{w\ 1360}#
|
|
#{rib\ 1361}#
|
|
#{mod\ 1362}#)
|
|
(letrec ((#{rebuild-macro-output\ 1370}#
|
|
(lambda (#{x\ 1371}# #{m\ 1372}#)
|
|
(if (pair? #{x\ 1371}#)
|
|
(cons (#{rebuild-macro-output\ 1370}#
|
|
(car #{x\ 1371}#)
|
|
#{m\ 1372}#)
|
|
(#{rebuild-macro-output\ 1370}#
|
|
(cdr #{x\ 1371}#)
|
|
#{m\ 1372}#))
|
|
(if (#{syntax-object?\ 224}# #{x\ 1371}#)
|
|
(let ((#{w\ 1380}#
|
|
(#{syntax-object-wrap\ 228}#
|
|
#{x\ 1371}#)))
|
|
(let ((#{ms\ 1383}#
|
|
(#{wrap-marks\ 267}# #{w\ 1380}#))
|
|
(#{s\ 1384}#
|
|
(#{wrap-subst\ 269}# #{w\ 1380}#)))
|
|
(if (if (pair? #{ms\ 1383}#)
|
|
(eq? (car #{ms\ 1383}#) #f)
|
|
#f)
|
|
(#{make-syntax-object\ 222}#
|
|
(#{syntax-object-expression\ 226}#
|
|
#{x\ 1371}#)
|
|
(#{make-wrap\ 265}#
|
|
(cdr #{ms\ 1383}#)
|
|
(if #{rib\ 1361}#
|
|
(cons #{rib\ 1361}#
|
|
(cdr #{s\ 1384}#))
|
|
(cdr #{s\ 1384}#)))
|
|
(#{syntax-object-module\ 230}#
|
|
#{x\ 1371}#))
|
|
(#{make-syntax-object\ 222}#
|
|
(#{syntax-object-expression\ 226}#
|
|
#{x\ 1371}#)
|
|
(#{make-wrap\ 265}#
|
|
(cons #{m\ 1372}# #{ms\ 1383}#)
|
|
(if #{rib\ 1361}#
|
|
(cons #{rib\ 1361}#
|
|
(cons 'shift
|
|
#{s\ 1384}#))
|
|
(cons (quote shift) #{s\ 1384}#)))
|
|
(cons 'hygiene
|
|
(cdr #{p\ 1357}#))))))
|
|
(if (vector? #{x\ 1371}#)
|
|
(let ((#{n\ 1392}#
|
|
(vector-length #{x\ 1371}#)))
|
|
(let ((#{v\ 1394}#
|
|
(make-vector #{n\ 1392}#)))
|
|
(letrec ((#{loop\ 1397}#
|
|
(lambda (#{i\ 1398}#)
|
|
(if (#{fx=\ 167}#
|
|
#{i\ 1398}#
|
|
#{n\ 1392}#)
|
|
(begin
|
|
(if #f #f)
|
|
#{v\ 1394}#)
|
|
(begin
|
|
(vector-set!
|
|
#{v\ 1394}#
|
|
#{i\ 1398}#
|
|
(#{rebuild-macro-output\ 1370}#
|
|
(vector-ref
|
|
#{x\ 1371}#
|
|
#{i\ 1398}#)
|
|
#{m\ 1372}#))
|
|
(#{loop\ 1397}#
|
|
(#{fx+\ 163}#
|
|
#{i\ 1398}#
|
|
1)))))))
|
|
(#{loop\ 1397}# 0))))
|
|
(if (symbol? #{x\ 1371}#)
|
|
(syntax-violation
|
|
#f
|
|
"encountered raw symbol in macro output"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1358}#
|
|
#{w\ 1360}#
|
|
(#{wrap-subst\ 269}# #{w\ 1360}#)
|
|
#{mod\ 1362}#)
|
|
#{x\ 1371}#)
|
|
#{x\ 1371}#)))))))
|
|
(#{rebuild-macro-output\ 1370}#
|
|
((car #{p\ 1357}#)
|
|
(#{wrap\ 329}#
|
|
#{e\ 1358}#
|
|
(#{anti-mark\ 301}# #{w\ 1360}#)
|
|
#{mod\ 1362}#))
|
|
(gensym "m")))))
|
|
(#{chi-application\ 349}#
|
|
(lambda (#{x\ 1405}#
|
|
#{e\ 1406}#
|
|
#{r\ 1407}#
|
|
#{w\ 1408}#
|
|
#{s\ 1409}#
|
|
#{mod\ 1410}#)
|
|
((lambda (#{tmp\ 1417}#)
|
|
((lambda (#{tmp\ 1418}#)
|
|
(if #{tmp\ 1418}#
|
|
(apply (lambda (#{e0\ 1421}# #{e1\ 1422}#)
|
|
(#{build-application\ 184}#
|
|
#{s\ 1409}#
|
|
#{x\ 1405}#
|
|
(map (lambda (#{e\ 1423}#)
|
|
(#{chi\ 345}#
|
|
#{e\ 1423}#
|
|
#{r\ 1407}#
|
|
#{w\ 1408}#
|
|
#{mod\ 1410}#))
|
|
#{e1\ 1422}#)))
|
|
#{tmp\ 1418}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1417}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1417}#
|
|
'(any . each-any))))
|
|
#{e\ 1406}#)))
|
|
(#{chi-expr\ 347}#
|
|
(lambda (#{type\ 1426}#
|
|
#{value\ 1427}#
|
|
#{e\ 1428}#
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
(if (memv #{type\ 1426}# (quote (lexical)))
|
|
(#{build-lexical-reference\ 188}#
|
|
'value
|
|
#{s\ 1431}#
|
|
#{e\ 1428}#
|
|
#{value\ 1427}#)
|
|
(if (memv #{type\ 1426}# (quote (core core-form)))
|
|
(#{value\ 1427}#
|
|
#{e\ 1428}#
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
(if (memv #{type\ 1426}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{value\ 1427}# #{e\ 1428}#))
|
|
(lambda (#{id\ 1443}# #{mod\ 1444}#)
|
|
(#{build-global-reference\ 194}#
|
|
#{s\ 1431}#
|
|
#{id\ 1443}#
|
|
#{mod\ 1444}#)))
|
|
(if (memv #{type\ 1426}# (quote (lexical-call)))
|
|
(#{chi-application\ 349}#
|
|
(#{build-lexical-reference\ 188}#
|
|
'fun
|
|
(#{source-annotation\ 239}# (car #{e\ 1428}#))
|
|
(car #{e\ 1428}#)
|
|
#{value\ 1427}#)
|
|
#{e\ 1428}#
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
(if (memv #{type\ 1426}# (quote (global-call)))
|
|
(#{chi-application\ 349}#
|
|
(#{build-global-reference\ 194}#
|
|
(#{source-annotation\ 239}# (car #{e\ 1428}#))
|
|
(if (#{syntax-object?\ 224}# #{value\ 1427}#)
|
|
(#{syntax-object-expression\ 226}#
|
|
#{value\ 1427}#)
|
|
#{value\ 1427}#)
|
|
(if (#{syntax-object?\ 224}# #{value\ 1427}#)
|
|
(#{syntax-object-module\ 230}# #{value\ 1427}#)
|
|
#{mod\ 1432}#))
|
|
#{e\ 1428}#
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
(if (memv #{type\ 1426}# (quote (constant)))
|
|
(#{build-data\ 210}#
|
|
#{s\ 1431}#
|
|
(#{strip\ 371}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1428}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
'(())))
|
|
(if (memv #{type\ 1426}# (quote (global)))
|
|
(#{build-global-reference\ 194}#
|
|
#{s\ 1431}#
|
|
#{value\ 1427}#
|
|
#{mod\ 1432}#)
|
|
(if (memv #{type\ 1426}# (quote (call)))
|
|
(#{chi-application\ 349}#
|
|
(#{chi\ 345}#
|
|
(car #{e\ 1428}#)
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{mod\ 1432}#)
|
|
#{e\ 1428}#
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
(if (memv #{type\ 1426}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 1454}#)
|
|
((lambda (#{tmp\ 1455}#)
|
|
(if #{tmp\ 1455}#
|
|
(apply (lambda (#{_\ 1459}#
|
|
#{e1\ 1460}#
|
|
#{e2\ 1461}#)
|
|
(#{chi-sequence\ 333}#
|
|
(cons #{e1\ 1460}#
|
|
#{e2\ 1461}#)
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#))
|
|
#{tmp\ 1455}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1454}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1454}#
|
|
'(any any . each-any))))
|
|
#{e\ 1428}#)
|
|
(if (memv #{type\ 1426}#
|
|
'(local-syntax-form))
|
|
(#{chi-local-syntax\ 355}#
|
|
#{value\ 1427}#
|
|
#{e\ 1428}#
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#
|
|
#{chi-sequence\ 333}#)
|
|
(if (memv #{type\ 1426}#
|
|
'(eval-when-form))
|
|
((lambda (#{tmp\ 1465}#)
|
|
((lambda (#{tmp\ 1466}#)
|
|
(if #{tmp\ 1466}#
|
|
(apply (lambda (#{_\ 1471}#
|
|
#{x\ 1472}#
|
|
#{e1\ 1473}#
|
|
#{e2\ 1474}#)
|
|
(let ((#{when-list\ 1476}#
|
|
(#{chi-when-list\ 339}#
|
|
#{e\ 1428}#
|
|
#{x\ 1472}#
|
|
#{w\ 1430}#)))
|
|
(if (memq 'eval
|
|
#{when-list\ 1476}#)
|
|
(#{chi-sequence\ 333}#
|
|
(cons #{e1\ 1473}#
|
|
#{e2\ 1474}#)
|
|
#{r\ 1429}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#)
|
|
(#{chi-void\ 359}#))))
|
|
#{tmp\ 1466}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1465}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1465}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 1428}#)
|
|
(if (memv #{type\ 1426}#
|
|
'(define-form
|
|
define-syntax-form))
|
|
(syntax-violation
|
|
#f
|
|
"definition in expression context"
|
|
#{e\ 1428}#
|
|
(#{wrap\ 329}#
|
|
#{value\ 1427}#
|
|
#{w\ 1430}#
|
|
#{mod\ 1432}#))
|
|
(if (memv #{type\ 1426}#
|
|
'(syntax))
|
|
(syntax-violation
|
|
#f
|
|
"reference to pattern variable outside syntax form"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1428}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#))
|
|
(if (memv #{type\ 1426}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"reference to identifier outside its scope"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1428}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#))
|
|
(syntax-violation
|
|
#f
|
|
"unexpected syntax"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 1428}#
|
|
#{w\ 1430}#
|
|
#{s\ 1431}#
|
|
#{mod\ 1432}#))))))))))))))))))
|
|
(#{chi\ 345}#
|
|
(lambda (#{e\ 1483}#
|
|
#{r\ 1484}#
|
|
#{w\ 1485}#
|
|
#{mod\ 1486}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 341}#
|
|
#{e\ 1483}#
|
|
#{r\ 1484}#
|
|
#{w\ 1485}#
|
|
(#{source-annotation\ 239}# #{e\ 1483}#)
|
|
#f
|
|
#{mod\ 1486}#
|
|
#f))
|
|
(lambda (#{type\ 1491}#
|
|
#{value\ 1492}#
|
|
#{e\ 1493}#
|
|
#{w\ 1494}#
|
|
#{s\ 1495}#
|
|
#{mod\ 1496}#)
|
|
(#{chi-expr\ 347}#
|
|
#{type\ 1491}#
|
|
#{value\ 1492}#
|
|
#{e\ 1493}#
|
|
#{r\ 1484}#
|
|
#{w\ 1494}#
|
|
#{s\ 1495}#
|
|
#{mod\ 1496}#)))))
|
|
(#{chi-top\ 343}#
|
|
(lambda (#{e\ 1503}#
|
|
#{r\ 1504}#
|
|
#{w\ 1505}#
|
|
#{m\ 1506}#
|
|
#{esew\ 1507}#
|
|
#{mod\ 1508}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 341}#
|
|
#{e\ 1503}#
|
|
#{r\ 1504}#
|
|
#{w\ 1505}#
|
|
(#{source-annotation\ 239}# #{e\ 1503}#)
|
|
#f
|
|
#{mod\ 1508}#
|
|
#f))
|
|
(lambda (#{type\ 1529}#
|
|
#{value\ 1530}#
|
|
#{e\ 1531}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
#{mod\ 1534}#)
|
|
(if (memv #{type\ 1529}# (quote (begin-form)))
|
|
((lambda (#{tmp\ 1542}#)
|
|
((lambda (#{tmp\ 1543}#)
|
|
(if #{tmp\ 1543}#
|
|
(apply (lambda (#{_\ 1545}#) (#{chi-void\ 359}#))
|
|
#{tmp\ 1543}#)
|
|
((lambda (#{tmp\ 1546}#)
|
|
(if #{tmp\ 1546}#
|
|
(apply (lambda (#{_\ 1550}#
|
|
#{e1\ 1551}#
|
|
#{e2\ 1552}#)
|
|
(#{chi-top-sequence\ 335}#
|
|
(cons #{e1\ 1551}# #{e2\ 1552}#)
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
#{m\ 1506}#
|
|
#{esew\ 1507}#
|
|
#{mod\ 1534}#))
|
|
#{tmp\ 1546}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1542}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1542}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch #{tmp\ 1542}# (quote (any)))))
|
|
#{e\ 1531}#)
|
|
(if (memv #{type\ 1529}# (quote (local-syntax-form)))
|
|
(#{chi-local-syntax\ 355}#
|
|
#{value\ 1530}#
|
|
#{e\ 1531}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
#{mod\ 1534}#
|
|
(lambda (#{body\ 1555}#
|
|
#{r\ 1556}#
|
|
#{w\ 1557}#
|
|
#{s\ 1558}#
|
|
#{mod\ 1559}#)
|
|
(#{chi-top-sequence\ 335}#
|
|
#{body\ 1555}#
|
|
#{r\ 1556}#
|
|
#{w\ 1557}#
|
|
#{s\ 1558}#
|
|
#{m\ 1506}#
|
|
#{esew\ 1507}#
|
|
#{mod\ 1559}#)))
|
|
(if (memv #{type\ 1529}# (quote (eval-when-form)))
|
|
((lambda (#{tmp\ 1566}#)
|
|
((lambda (#{tmp\ 1567}#)
|
|
(if #{tmp\ 1567}#
|
|
(apply (lambda (#{_\ 1572}#
|
|
#{x\ 1573}#
|
|
#{e1\ 1574}#
|
|
#{e2\ 1575}#)
|
|
(let ((#{when-list\ 1578}#
|
|
(#{chi-when-list\ 339}#
|
|
#{e\ 1531}#
|
|
#{x\ 1573}#
|
|
#{w\ 1532}#))
|
|
(#{body\ 1579}#
|
|
(cons #{e1\ 1574}#
|
|
#{e2\ 1575}#)))
|
|
(if (eq? #{m\ 1506}# (quote e))
|
|
(if (memq 'eval
|
|
#{when-list\ 1578}#)
|
|
(#{chi-top-sequence\ 335}#
|
|
#{body\ 1579}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 1534}#)
|
|
(#{chi-void\ 359}#))
|
|
(if (memq 'load
|
|
#{when-list\ 1578}#)
|
|
(if (let ((#{t\ 1588}#
|
|
(memq 'compile
|
|
#{when-list\ 1578}#)))
|
|
(if #{t\ 1588}#
|
|
#{t\ 1588}#
|
|
(if (eq? #{m\ 1506}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 1578}#)
|
|
#f)))
|
|
(#{chi-top-sequence\ 335}#
|
|
#{body\ 1579}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
'c&e
|
|
'(compile load)
|
|
#{mod\ 1534}#)
|
|
(if (memq #{m\ 1506}#
|
|
'(c c&e))
|
|
(#{chi-top-sequence\ 335}#
|
|
#{body\ 1579}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
'c
|
|
'(load)
|
|
#{mod\ 1534}#)
|
|
(#{chi-void\ 359}#)))
|
|
(if (let ((#{t\ 1596}#
|
|
(memq 'compile
|
|
#{when-list\ 1578}#)))
|
|
(if #{t\ 1596}#
|
|
#{t\ 1596}#
|
|
(if (eq? #{m\ 1506}#
|
|
'c&e)
|
|
(memq 'eval
|
|
#{when-list\ 1578}#)
|
|
#f)))
|
|
(begin
|
|
(#{top-level-eval-hook\ 171}#
|
|
(#{chi-top-sequence\ 335}#
|
|
#{body\ 1579}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
'e
|
|
'(eval)
|
|
#{mod\ 1534}#)
|
|
#{mod\ 1534}#)
|
|
(#{chi-void\ 359}#))
|
|
(#{chi-void\ 359}#))))))
|
|
#{tmp\ 1567}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1566}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1566}#
|
|
'(any each-any any . each-any))))
|
|
#{e\ 1531}#)
|
|
(if (memv #{type\ 1529}#
|
|
'(define-syntax-form))
|
|
(let ((#{n\ 1604}#
|
|
(#{id-var-name\ 317}#
|
|
#{value\ 1530}#
|
|
#{w\ 1532}#))
|
|
(#{r\ 1605}#
|
|
(#{macros-only-env\ 252}# #{r\ 1504}#)))
|
|
(if (memv #{m\ 1506}# (quote (c)))
|
|
(if (memq (quote compile) #{esew\ 1507}#)
|
|
(let ((#{e\ 1608}#
|
|
(#{chi-install-global\ 337}#
|
|
#{n\ 1604}#
|
|
(#{chi\ 345}#
|
|
#{e\ 1531}#
|
|
#{r\ 1605}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 171}#
|
|
#{e\ 1608}#
|
|
#{mod\ 1534}#)
|
|
(if (memq (quote load) #{esew\ 1507}#)
|
|
#{e\ 1608}#
|
|
(#{chi-void\ 359}#))))
|
|
(if (memq (quote load) #{esew\ 1507}#)
|
|
(#{chi-install-global\ 337}#
|
|
#{n\ 1604}#
|
|
(#{chi\ 345}#
|
|
#{e\ 1531}#
|
|
#{r\ 1605}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))
|
|
(#{chi-void\ 359}#)))
|
|
(if (memv #{m\ 1506}# (quote (c&e)))
|
|
(let ((#{e\ 1611}#
|
|
(#{chi-install-global\ 337}#
|
|
#{n\ 1604}#
|
|
(#{chi\ 345}#
|
|
#{e\ 1531}#
|
|
#{r\ 1605}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))))
|
|
(begin
|
|
(#{top-level-eval-hook\ 171}#
|
|
#{e\ 1611}#
|
|
#{mod\ 1534}#)
|
|
#{e\ 1611}#))
|
|
(begin
|
|
(if (memq (quote eval) #{esew\ 1507}#)
|
|
(#{top-level-eval-hook\ 171}#
|
|
(#{chi-install-global\ 337}#
|
|
#{n\ 1604}#
|
|
(#{chi\ 345}#
|
|
#{e\ 1531}#
|
|
#{r\ 1605}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))
|
|
#{mod\ 1534}#))
|
|
(#{chi-void\ 359}#)))))
|
|
(if (memv #{type\ 1529}# (quote (define-form)))
|
|
(let ((#{n\ 1616}#
|
|
(#{id-var-name\ 317}#
|
|
#{value\ 1530}#
|
|
#{w\ 1532}#)))
|
|
(let ((#{type\ 1618}#
|
|
(#{binding-type\ 243}#
|
|
(#{lookup\ 254}#
|
|
#{n\ 1616}#
|
|
#{r\ 1504}#
|
|
#{mod\ 1534}#))))
|
|
(if (memv #{type\ 1618}#
|
|
'(global core macro module-ref))
|
|
(begin
|
|
(if (if (not (module-local-variable
|
|
(current-module)
|
|
#{n\ 1616}#))
|
|
(current-module)
|
|
#f)
|
|
(let ((#{old\ 1623}#
|
|
(module-variable
|
|
(current-module)
|
|
#{n\ 1616}#)))
|
|
(module-define!
|
|
(current-module)
|
|
#{n\ 1616}#
|
|
(if (variable? #{old\ 1623}#)
|
|
(variable-ref #{old\ 1623}#)
|
|
#f))))
|
|
(let ((#{x\ 1626}#
|
|
(#{build-global-definition\ 200}#
|
|
#{s\ 1533}#
|
|
#{n\ 1616}#
|
|
(#{chi\ 345}#
|
|
#{e\ 1531}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))))
|
|
(begin
|
|
(if (eq? #{m\ 1506}# (quote c&e))
|
|
(#{top-level-eval-hook\ 171}#
|
|
#{x\ 1626}#
|
|
#{mod\ 1534}#))
|
|
#{x\ 1626}#)))
|
|
(if (memv #{type\ 1618}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
#f
|
|
"identifier out of context"
|
|
#{e\ 1531}#
|
|
(#{wrap\ 329}#
|
|
#{value\ 1530}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))
|
|
(syntax-violation
|
|
#f
|
|
"cannot define keyword at top level"
|
|
#{e\ 1531}#
|
|
(#{wrap\ 329}#
|
|
#{value\ 1530}#
|
|
#{w\ 1532}#
|
|
#{mod\ 1534}#))))))
|
|
(let ((#{x\ 1632}#
|
|
(#{chi-expr\ 347}#
|
|
#{type\ 1529}#
|
|
#{value\ 1530}#
|
|
#{e\ 1531}#
|
|
#{r\ 1504}#
|
|
#{w\ 1532}#
|
|
#{s\ 1533}#
|
|
#{mod\ 1534}#)))
|
|
(begin
|
|
(if (eq? #{m\ 1506}# (quote c&e))
|
|
(#{top-level-eval-hook\ 171}#
|
|
#{x\ 1632}#
|
|
#{mod\ 1534}#))
|
|
#{x\ 1632}#)))))))))))
|
|
(#{syntax-type\ 341}#
|
|
(lambda (#{e\ 1633}#
|
|
#{r\ 1634}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1638}#
|
|
#{for-car?\ 1639}#)
|
|
(if (symbol? #{e\ 1633}#)
|
|
(let ((#{n\ 1651}#
|
|
(#{id-var-name\ 317}# #{e\ 1633}# #{w\ 1635}#)))
|
|
(let ((#{b\ 1653}#
|
|
(#{lookup\ 254}#
|
|
#{n\ 1651}#
|
|
#{r\ 1634}#
|
|
#{mod\ 1638}#)))
|
|
(let ((#{type\ 1655}#
|
|
(#{binding-type\ 243}# #{b\ 1653}#)))
|
|
(if (memv #{type\ 1655}# (quote (lexical)))
|
|
(values
|
|
#{type\ 1655}#
|
|
(#{binding-value\ 245}# #{b\ 1653}#)
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{type\ 1655}# (quote (global)))
|
|
(values
|
|
#{type\ 1655}#
|
|
#{n\ 1651}#
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{type\ 1655}# (quote (macro)))
|
|
(if #{for-car?\ 1639}#
|
|
(values
|
|
#{type\ 1655}#
|
|
(#{binding-value\ 245}# #{b\ 1653}#)
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(#{syntax-type\ 341}#
|
|
(#{chi-macro\ 351}#
|
|
(#{binding-value\ 245}# #{b\ 1653}#)
|
|
#{e\ 1633}#
|
|
#{r\ 1634}#
|
|
#{w\ 1635}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1638}#)
|
|
#{r\ 1634}#
|
|
'(())
|
|
#{s\ 1636}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1638}#
|
|
#f))
|
|
(values
|
|
#{type\ 1655}#
|
|
(#{binding-value\ 245}# #{b\ 1653}#)
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)))))))
|
|
(if (pair? #{e\ 1633}#)
|
|
(let ((#{first\ 1664}# (car #{e\ 1633}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 341}#
|
|
#{first\ 1664}#
|
|
#{r\ 1634}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1638}#
|
|
#t))
|
|
(lambda (#{ftype\ 1665}#
|
|
#{fval\ 1666}#
|
|
#{fe\ 1667}#
|
|
#{fw\ 1668}#
|
|
#{fs\ 1669}#
|
|
#{fmod\ 1670}#)
|
|
(if (memv #{ftype\ 1665}# (quote (lexical)))
|
|
(values
|
|
'lexical-call
|
|
#{fval\ 1666}#
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{ftype\ 1665}# (quote (global)))
|
|
(values
|
|
'global-call
|
|
(#{make-syntax-object\ 222}#
|
|
#{fval\ 1666}#
|
|
#{w\ 1635}#
|
|
#{fmod\ 1670}#)
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{ftype\ 1665}# (quote (macro)))
|
|
(#{syntax-type\ 341}#
|
|
(#{chi-macro\ 351}#
|
|
#{fval\ 1666}#
|
|
#{e\ 1633}#
|
|
#{r\ 1634}#
|
|
#{w\ 1635}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1638}#)
|
|
#{r\ 1634}#
|
|
'(())
|
|
#{s\ 1636}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1638}#
|
|
#{for-car?\ 1639}#)
|
|
(if (memv #{ftype\ 1665}# (quote (module-ref)))
|
|
(call-with-values
|
|
(lambda () (#{fval\ 1666}# #{e\ 1633}#))
|
|
(lambda (#{sym\ 1682}# #{mod\ 1683}#)
|
|
(#{syntax-type\ 341}#
|
|
#{sym\ 1682}#
|
|
#{r\ 1634}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{rib\ 1637}#
|
|
#{mod\ 1683}#
|
|
#{for-car?\ 1639}#)))
|
|
(if (memv #{ftype\ 1665}# (quote (core)))
|
|
(values
|
|
'core-form
|
|
#{fval\ 1666}#
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{ftype\ 1665}#
|
|
'(local-syntax))
|
|
(values
|
|
'local-syntax-form
|
|
#{fval\ 1666}#
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{ftype\ 1665}# (quote (begin)))
|
|
(values
|
|
'begin-form
|
|
#f
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{ftype\ 1665}#
|
|
'(eval-when))
|
|
(values
|
|
'eval-when-form
|
|
#f
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(if (memv #{ftype\ 1665}#
|
|
'(define))
|
|
((lambda (#{tmp\ 1691}#)
|
|
((lambda (#{tmp\ 1692}#)
|
|
(if (if #{tmp\ 1692}#
|
|
(apply (lambda (#{_\ 1696}#
|
|
#{name\ 1697}#
|
|
#{val\ 1698}#)
|
|
(#{id?\ 260}#
|
|
#{name\ 1697}#))
|
|
#{tmp\ 1692}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1702}#
|
|
#{name\ 1703}#
|
|
#{val\ 1704}#)
|
|
(values
|
|
'define-form
|
|
#{name\ 1703}#
|
|
#{val\ 1704}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#))
|
|
#{tmp\ 1692}#)
|
|
((lambda (#{tmp\ 1705}#)
|
|
(if (if #{tmp\ 1705}#
|
|
(apply (lambda (#{_\ 1711}#
|
|
#{name\ 1712}#
|
|
#{args\ 1713}#
|
|
#{e1\ 1714}#
|
|
#{e2\ 1715}#)
|
|
(if (#{id?\ 260}#
|
|
#{name\ 1712}#)
|
|
(#{valid-bound-ids?\ 323}#
|
|
(#{lambda-var-list\ 375}#
|
|
#{args\ 1713}#))
|
|
#f))
|
|
#{tmp\ 1705}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1723}#
|
|
#{name\ 1724}#
|
|
#{args\ 1725}#
|
|
#{e1\ 1726}#
|
|
#{e2\ 1727}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 329}#
|
|
#{name\ 1724}#
|
|
#{w\ 1635}#
|
|
#{mod\ 1638}#)
|
|
(#{decorate-source\ 180}#
|
|
(cons '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name
|
|
args
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1718"
|
|
"i1719"
|
|
"i1720"
|
|
"i1721"
|
|
"i1722"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1671"
|
|
"i1672"
|
|
"i1673"
|
|
"i1674"
|
|
"i1675"
|
|
"i1676"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1663"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1640"
|
|
"i1641"
|
|
"i1642"
|
|
"i1643"
|
|
"i1644"
|
|
"i1645"
|
|
"i1646"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i61"
|
|
"i59")))
|
|
(hygiene
|
|
guile))
|
|
(#{wrap\ 329}#
|
|
(cons #{args\ 1725}#
|
|
(cons #{e1\ 1726}#
|
|
#{e2\ 1727}#))
|
|
#{w\ 1635}#
|
|
#{mod\ 1638}#))
|
|
#{s\ 1636}#)
|
|
'(())
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#))
|
|
#{tmp\ 1705}#)
|
|
((lambda (#{tmp\ 1730}#)
|
|
(if (if #{tmp\ 1730}#
|
|
(apply (lambda (#{_\ 1733}#
|
|
#{name\ 1734}#)
|
|
(#{id?\ 260}#
|
|
#{name\ 1734}#))
|
|
#{tmp\ 1730}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1737}#
|
|
#{name\ 1738}#)
|
|
(values
|
|
'define-form
|
|
(#{wrap\ 329}#
|
|
#{name\ 1738}#
|
|
#{w\ 1635}#
|
|
#{mod\ 1638}#)
|
|
'(#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i1735"
|
|
"i1736"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1671"
|
|
"i1672"
|
|
"i1673"
|
|
"i1674"
|
|
"i1675"
|
|
"i1676"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1663"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1640"
|
|
"i1641"
|
|
"i1642"
|
|
"i1643"
|
|
"i1644"
|
|
"i1645"
|
|
"i1646"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i61"
|
|
"i59")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i1735"
|
|
"i1736"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1671"
|
|
"i1672"
|
|
"i1673"
|
|
"i1674"
|
|
"i1675"
|
|
"i1676"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1663"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1640"
|
|
"i1641"
|
|
"i1642"
|
|
"i1643"
|
|
"i1644"
|
|
"i1645"
|
|
"i1646"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i61"
|
|
"i59")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
#f
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
name)
|
|
#((top)
|
|
(top))
|
|
#("i1735"
|
|
"i1736"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(ftype
|
|
fval
|
|
fe
|
|
fw
|
|
fs
|
|
fmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1671"
|
|
"i1672"
|
|
"i1673"
|
|
"i1674"
|
|
"i1675"
|
|
"i1676"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(first)
|
|
#((top))
|
|
#("i1663"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(e
|
|
r
|
|
w
|
|
s
|
|
rib
|
|
mod
|
|
for-car?)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i1640"
|
|
"i1641"
|
|
"i1642"
|
|
"i1643"
|
|
"i1644"
|
|
"i1645"
|
|
"i1646"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top)
|
|
(top))
|
|
("i61"
|
|
"i59")))
|
|
(hygiene
|
|
guile)))
|
|
'(())
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#))
|
|
#{tmp\ 1730}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1691}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1691}#
|
|
'(any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1691}#
|
|
'(any (any . any)
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 1691}#
|
|
'(any any any))))
|
|
#{e\ 1633}#)
|
|
(if (memv #{ftype\ 1665}#
|
|
'(define-syntax))
|
|
((lambda (#{tmp\ 1741}#)
|
|
((lambda (#{tmp\ 1742}#)
|
|
(if (if #{tmp\ 1742}#
|
|
(apply (lambda (#{_\ 1746}#
|
|
#{name\ 1747}#
|
|
#{val\ 1748}#)
|
|
(#{id?\ 260}#
|
|
#{name\ 1747}#))
|
|
#{tmp\ 1742}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 1752}#
|
|
#{name\ 1753}#
|
|
#{val\ 1754}#)
|
|
(values
|
|
'define-syntax-form
|
|
#{name\ 1753}#
|
|
#{val\ 1754}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#))
|
|
#{tmp\ 1742}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 1741}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 1741}#
|
|
'(any any any))))
|
|
#{e\ 1633}#)
|
|
(values
|
|
'call
|
|
#f
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#))))))))))))))
|
|
(if (#{syntax-object?\ 224}# #{e\ 1633}#)
|
|
(#{syntax-type\ 341}#
|
|
(#{syntax-object-expression\ 226}# #{e\ 1633}#)
|
|
#{r\ 1634}#
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 1635}#
|
|
(#{syntax-object-wrap\ 228}# #{e\ 1633}#))
|
|
#{s\ 1636}#
|
|
#{rib\ 1637}#
|
|
(let ((#{t\ 1760}#
|
|
(#{syntax-object-module\ 230}# #{e\ 1633}#)))
|
|
(if #{t\ 1760}# #{t\ 1760}# #{mod\ 1638}#))
|
|
#{for-car?\ 1639}#)
|
|
(if (self-evaluating? #{e\ 1633}#)
|
|
(values
|
|
'constant
|
|
#f
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)
|
|
(values
|
|
'other
|
|
#f
|
|
#{e\ 1633}#
|
|
#{w\ 1635}#
|
|
#{s\ 1636}#
|
|
#{mod\ 1638}#)))))))
|
|
(#{chi-when-list\ 339}#
|
|
(lambda (#{e\ 1765}# #{when-list\ 1766}# #{w\ 1767}#)
|
|
(letrec ((#{f\ 1774}#
|
|
(lambda (#{when-list\ 1775}# #{situations\ 1776}#)
|
|
(if (null? #{when-list\ 1775}#)
|
|
#{situations\ 1776}#
|
|
(#{f\ 1774}#
|
|
(cdr #{when-list\ 1775}#)
|
|
(cons (let ((#{x\ 1778}#
|
|
(car #{when-list\ 1775}#)))
|
|
(if (#{free-id=?\ 319}#
|
|
#{x\ 1778}#
|
|
'#(syntax-object
|
|
compile
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i1777"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i1771" "i1772" "i1773"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i1768" "i1769" "i1770"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile)))
|
|
'compile
|
|
(if (#{free-id=?\ 319}#
|
|
#{x\ 1778}#
|
|
'#(syntax-object
|
|
load
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i1777"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f when-list situations)
|
|
#((top) (top) (top))
|
|
#("i1771"
|
|
"i1772"
|
|
"i1773"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i1768"
|
|
"i1769"
|
|
"i1770"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile)))
|
|
'load
|
|
(if (#{free-id=?\ 319}#
|
|
#{x\ 1778}#
|
|
'#(syntax-object
|
|
eval
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i1777"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f
|
|
when-list
|
|
situations)
|
|
#((top) (top) (top))
|
|
#("i1771"
|
|
"i1772"
|
|
"i1773"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e when-list w)
|
|
#((top) (top) (top))
|
|
#("i1768"
|
|
"i1769"
|
|
"i1770"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile)))
|
|
'eval
|
|
(syntax-violation
|
|
'eval-when
|
|
"invalid situation"
|
|
#{e\ 1765}#
|
|
(#{wrap\ 329}#
|
|
#{x\ 1778}#
|
|
#{w\ 1767}#
|
|
#f))))))
|
|
#{situations\ 1776}#))))))
|
|
(#{f\ 1774}# #{when-list\ 1766}# (quote ())))))
|
|
(#{chi-install-global\ 337}#
|
|
(lambda (#{name\ 1786}# #{e\ 1787}#)
|
|
(#{build-global-definition\ 200}#
|
|
#f
|
|
#{name\ 1786}#
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}#
|
|
#f
|
|
'make-syntax-transformer)
|
|
(list (#{build-data\ 210}# #f #{name\ 1786}#)
|
|
(#{build-data\ 210}# #f (quote macro))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}# #f (quote cons))
|
|
(list #{e\ 1787}#
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}#
|
|
#f
|
|
'module-name)
|
|
(list (#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}#
|
|
#f
|
|
'current-module)
|
|
'()))))))))))
|
|
(#{chi-top-sequence\ 335}#
|
|
(lambda (#{body\ 1801}#
|
|
#{r\ 1802}#
|
|
#{w\ 1803}#
|
|
#{s\ 1804}#
|
|
#{m\ 1805}#
|
|
#{esew\ 1806}#
|
|
#{mod\ 1807}#)
|
|
(#{build-sequence\ 212}#
|
|
#{s\ 1804}#
|
|
(letrec ((#{dobody\ 1822}#
|
|
(lambda (#{body\ 1823}#
|
|
#{r\ 1824}#
|
|
#{w\ 1825}#
|
|
#{m\ 1826}#
|
|
#{esew\ 1827}#
|
|
#{mod\ 1828}#)
|
|
(if (null? #{body\ 1823}#)
|
|
'()
|
|
(let ((#{first\ 1830}#
|
|
(#{chi-top\ 343}#
|
|
(car #{body\ 1823}#)
|
|
#{r\ 1824}#
|
|
#{w\ 1825}#
|
|
#{m\ 1826}#
|
|
#{esew\ 1827}#
|
|
#{mod\ 1828}#)))
|
|
(cons #{first\ 1830}#
|
|
(#{dobody\ 1822}#
|
|
(cdr #{body\ 1823}#)
|
|
#{r\ 1824}#
|
|
#{w\ 1825}#
|
|
#{m\ 1826}#
|
|
#{esew\ 1827}#
|
|
#{mod\ 1828}#)))))))
|
|
(#{dobody\ 1822}#
|
|
#{body\ 1801}#
|
|
#{r\ 1802}#
|
|
#{w\ 1803}#
|
|
#{m\ 1805}#
|
|
#{esew\ 1806}#
|
|
#{mod\ 1807}#)))))
|
|
(#{chi-sequence\ 333}#
|
|
(lambda (#{body\ 1831}#
|
|
#{r\ 1832}#
|
|
#{w\ 1833}#
|
|
#{s\ 1834}#
|
|
#{mod\ 1835}#)
|
|
(#{build-sequence\ 212}#
|
|
#{s\ 1834}#
|
|
(letrec ((#{dobody\ 1846}#
|
|
(lambda (#{body\ 1847}#
|
|
#{r\ 1848}#
|
|
#{w\ 1849}#
|
|
#{mod\ 1850}#)
|
|
(if (null? #{body\ 1847}#)
|
|
'()
|
|
(let ((#{first\ 1852}#
|
|
(#{chi\ 345}#
|
|
(car #{body\ 1847}#)
|
|
#{r\ 1848}#
|
|
#{w\ 1849}#
|
|
#{mod\ 1850}#)))
|
|
(cons #{first\ 1852}#
|
|
(#{dobody\ 1846}#
|
|
(cdr #{body\ 1847}#)
|
|
#{r\ 1848}#
|
|
#{w\ 1849}#
|
|
#{mod\ 1850}#)))))))
|
|
(#{dobody\ 1846}#
|
|
#{body\ 1831}#
|
|
#{r\ 1832}#
|
|
#{w\ 1833}#
|
|
#{mod\ 1835}#)))))
|
|
(#{source-wrap\ 331}#
|
|
(lambda (#{x\ 1853}#
|
|
#{w\ 1854}#
|
|
#{s\ 1855}#
|
|
#{defmod\ 1856}#)
|
|
(#{wrap\ 329}#
|
|
(#{decorate-source\ 180}#
|
|
#{x\ 1853}#
|
|
#{s\ 1855}#)
|
|
#{w\ 1854}#
|
|
#{defmod\ 1856}#)))
|
|
(#{wrap\ 329}#
|
|
(lambda (#{x\ 1861}# #{w\ 1862}# #{defmod\ 1863}#)
|
|
(if (if (null? (#{wrap-marks\ 267}# #{w\ 1862}#))
|
|
(null? (#{wrap-subst\ 269}# #{w\ 1862}#))
|
|
#f)
|
|
#{x\ 1861}#
|
|
(if (#{syntax-object?\ 224}# #{x\ 1861}#)
|
|
(#{make-syntax-object\ 222}#
|
|
(#{syntax-object-expression\ 226}# #{x\ 1861}#)
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 1862}#
|
|
(#{syntax-object-wrap\ 228}# #{x\ 1861}#))
|
|
(#{syntax-object-module\ 230}# #{x\ 1861}#))
|
|
(if (null? #{x\ 1861}#)
|
|
#{x\ 1861}#
|
|
(#{make-syntax-object\ 222}#
|
|
#{x\ 1861}#
|
|
#{w\ 1862}#
|
|
#{defmod\ 1863}#))))))
|
|
(#{bound-id-member?\ 327}#
|
|
(lambda (#{x\ 1876}# #{list\ 1877}#)
|
|
(if (not (null? #{list\ 1877}#))
|
|
(let ((#{t\ 1884}#
|
|
(#{bound-id=?\ 321}#
|
|
#{x\ 1876}#
|
|
(car #{list\ 1877}#))))
|
|
(if #{t\ 1884}#
|
|
#{t\ 1884}#
|
|
(#{bound-id-member?\ 327}#
|
|
#{x\ 1876}#
|
|
(cdr #{list\ 1877}#))))
|
|
#f)))
|
|
(#{distinct-bound-ids?\ 325}#
|
|
(lambda (#{ids\ 1886}#)
|
|
(letrec ((#{distinct?\ 1890}#
|
|
(lambda (#{ids\ 1891}#)
|
|
(let ((#{t\ 1894}# (null? #{ids\ 1891}#)))
|
|
(if #{t\ 1894}#
|
|
#{t\ 1894}#
|
|
(if (not (#{bound-id-member?\ 327}#
|
|
(car #{ids\ 1891}#)
|
|
(cdr #{ids\ 1891}#)))
|
|
(#{distinct?\ 1890}# (cdr #{ids\ 1891}#))
|
|
#f))))))
|
|
(#{distinct?\ 1890}# #{ids\ 1886}#))))
|
|
(#{valid-bound-ids?\ 323}#
|
|
(lambda (#{ids\ 1898}#)
|
|
(if (letrec ((#{all-ids?\ 1903}#
|
|
(lambda (#{ids\ 1904}#)
|
|
(let ((#{t\ 1907}# (null? #{ids\ 1904}#)))
|
|
(if #{t\ 1907}#
|
|
#{t\ 1907}#
|
|
(if (#{id?\ 260}# (car #{ids\ 1904}#))
|
|
(#{all-ids?\ 1903}# (cdr #{ids\ 1904}#))
|
|
#f))))))
|
|
(#{all-ids?\ 1903}# #{ids\ 1898}#))
|
|
(#{distinct-bound-ids?\ 325}# #{ids\ 1898}#)
|
|
#f)))
|
|
(#{bound-id=?\ 321}#
|
|
(lambda (#{i\ 1912}# #{j\ 1913}#)
|
|
(if (if (#{syntax-object?\ 224}# #{i\ 1912}#)
|
|
(#{syntax-object?\ 224}# #{j\ 1913}#)
|
|
#f)
|
|
(if (eq? (#{syntax-object-expression\ 226}# #{i\ 1912}#)
|
|
(#{syntax-object-expression\ 226}# #{j\ 1913}#))
|
|
(#{same-marks?\ 315}#
|
|
(#{wrap-marks\ 267}#
|
|
(#{syntax-object-wrap\ 228}# #{i\ 1912}#))
|
|
(#{wrap-marks\ 267}#
|
|
(#{syntax-object-wrap\ 228}# #{j\ 1913}#)))
|
|
#f)
|
|
(eq? #{i\ 1912}# #{j\ 1913}#))))
|
|
(#{free-id=?\ 319}#
|
|
(lambda (#{i\ 1920}# #{j\ 1921}#)
|
|
(if (eq? (let ((#{x\ 1927}# #{i\ 1920}#))
|
|
(if (#{syntax-object?\ 224}# #{x\ 1927}#)
|
|
(#{syntax-object-expression\ 226}# #{x\ 1927}#)
|
|
#{x\ 1927}#))
|
|
(let ((#{x\ 1930}# #{j\ 1921}#))
|
|
(if (#{syntax-object?\ 224}# #{x\ 1930}#)
|
|
(#{syntax-object-expression\ 226}# #{x\ 1930}#)
|
|
#{x\ 1930}#)))
|
|
(eq? (#{id-var-name\ 317}# #{i\ 1920}# (quote (())))
|
|
(#{id-var-name\ 317}# #{j\ 1921}# (quote (()))))
|
|
#f)))
|
|
(#{id-var-name\ 317}#
|
|
(lambda (#{id\ 1934}# #{w\ 1935}#)
|
|
(letrec ((#{search-vector-rib\ 1944}#
|
|
(lambda (#{sym\ 1956}#
|
|
#{subst\ 1957}#
|
|
#{marks\ 1958}#
|
|
#{symnames\ 1959}#
|
|
#{ribcage\ 1960}#)
|
|
(let ((#{n\ 1967}#
|
|
(vector-length #{symnames\ 1959}#)))
|
|
(letrec ((#{f\ 1970}#
|
|
(lambda (#{i\ 1971}#)
|
|
(if (#{fx=\ 167}#
|
|
#{i\ 1971}#
|
|
#{n\ 1967}#)
|
|
(#{search\ 1940}#
|
|
#{sym\ 1956}#
|
|
(cdr #{subst\ 1957}#)
|
|
#{marks\ 1958}#)
|
|
(if (if (eq? (vector-ref
|
|
#{symnames\ 1959}#
|
|
#{i\ 1971}#)
|
|
#{sym\ 1956}#)
|
|
(#{same-marks?\ 315}#
|
|
#{marks\ 1958}#
|
|
(vector-ref
|
|
(#{ribcage-marks\ 287}#
|
|
#{ribcage\ 1960}#)
|
|
#{i\ 1971}#))
|
|
#f)
|
|
(values
|
|
(vector-ref
|
|
(#{ribcage-labels\ 289}#
|
|
#{ribcage\ 1960}#)
|
|
#{i\ 1971}#)
|
|
#{marks\ 1958}#)
|
|
(#{f\ 1970}#
|
|
(#{fx+\ 163}#
|
|
#{i\ 1971}#
|
|
1)))))))
|
|
(#{f\ 1970}# 0)))))
|
|
(#{search-list-rib\ 1942}#
|
|
(lambda (#{sym\ 1979}#
|
|
#{subst\ 1980}#
|
|
#{marks\ 1981}#
|
|
#{symnames\ 1982}#
|
|
#{ribcage\ 1983}#)
|
|
(letrec ((#{f\ 1992}#
|
|
(lambda (#{symnames\ 1993}# #{i\ 1994}#)
|
|
(if (null? #{symnames\ 1993}#)
|
|
(#{search\ 1940}#
|
|
#{sym\ 1979}#
|
|
(cdr #{subst\ 1980}#)
|
|
#{marks\ 1981}#)
|
|
(if (if (eq? (car #{symnames\ 1993}#)
|
|
#{sym\ 1979}#)
|
|
(#{same-marks?\ 315}#
|
|
#{marks\ 1981}#
|
|
(list-ref
|
|
(#{ribcage-marks\ 287}#
|
|
#{ribcage\ 1983}#)
|
|
#{i\ 1994}#))
|
|
#f)
|
|
(values
|
|
(list-ref
|
|
(#{ribcage-labels\ 289}#
|
|
#{ribcage\ 1983}#)
|
|
#{i\ 1994}#)
|
|
#{marks\ 1981}#)
|
|
(#{f\ 1992}#
|
|
(cdr #{symnames\ 1993}#)
|
|
(#{fx+\ 163}#
|
|
#{i\ 1994}#
|
|
1)))))))
|
|
(#{f\ 1992}# #{symnames\ 1982}# 0))))
|
|
(#{search\ 1940}#
|
|
(lambda (#{sym\ 2002}#
|
|
#{subst\ 2003}#
|
|
#{marks\ 2004}#)
|
|
(if (null? #{subst\ 2003}#)
|
|
(values #f #{marks\ 2004}#)
|
|
(let ((#{fst\ 2009}# (car #{subst\ 2003}#)))
|
|
(if (eq? #{fst\ 2009}# (quote shift))
|
|
(#{search\ 1940}#
|
|
#{sym\ 2002}#
|
|
(cdr #{subst\ 2003}#)
|
|
(cdr #{marks\ 2004}#))
|
|
(let ((#{symnames\ 2011}#
|
|
(#{ribcage-symnames\ 285}#
|
|
#{fst\ 2009}#)))
|
|
(if (vector? #{symnames\ 2011}#)
|
|
(#{search-vector-rib\ 1944}#
|
|
#{sym\ 2002}#
|
|
#{subst\ 2003}#
|
|
#{marks\ 2004}#
|
|
#{symnames\ 2011}#
|
|
#{fst\ 2009}#)
|
|
(#{search-list-rib\ 1942}#
|
|
#{sym\ 2002}#
|
|
#{subst\ 2003}#
|
|
#{marks\ 2004}#
|
|
#{symnames\ 2011}#
|
|
#{fst\ 2009}#)))))))))
|
|
(if (symbol? #{id\ 1934}#)
|
|
(let ((#{t\ 2014}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 1940}#
|
|
#{id\ 1934}#
|
|
(#{wrap-subst\ 269}# #{w\ 1935}#)
|
|
(#{wrap-marks\ 267}# #{w\ 1935}#)))
|
|
(lambda (#{x\ 2016}# . #{ignore\ 2017}#)
|
|
#{x\ 2016}#))))
|
|
(if #{t\ 2014}# #{t\ 2014}# #{id\ 1934}#))
|
|
(if (#{syntax-object?\ 224}# #{id\ 1934}#)
|
|
(let ((#{id\ 2025}#
|
|
(#{syntax-object-expression\ 226}# #{id\ 1934}#))
|
|
(#{w1\ 2026}#
|
|
(#{syntax-object-wrap\ 228}# #{id\ 1934}#)))
|
|
(let ((#{marks\ 2028}#
|
|
(#{join-marks\ 313}#
|
|
(#{wrap-marks\ 267}# #{w\ 1935}#)
|
|
(#{wrap-marks\ 267}# #{w1\ 2026}#))))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 1940}#
|
|
#{id\ 2025}#
|
|
(#{wrap-subst\ 269}# #{w\ 1935}#)
|
|
#{marks\ 2028}#))
|
|
(lambda (#{new-id\ 2029}# #{marks\ 2030}#)
|
|
(let ((#{t\ 2035}# #{new-id\ 2029}#))
|
|
(if #{t\ 2035}#
|
|
#{t\ 2035}#
|
|
(let ((#{t\ 2038}#
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{search\ 1940}#
|
|
#{id\ 2025}#
|
|
(#{wrap-subst\ 269}#
|
|
#{w1\ 2026}#)
|
|
#{marks\ 2030}#))
|
|
(lambda (#{x\ 2040}#
|
|
.
|
|
#{ignore\ 2041}#)
|
|
#{x\ 2040}#))))
|
|
(if #{t\ 2038}#
|
|
#{t\ 2038}#
|
|
#{id\ 2025}#))))))))
|
|
(syntax-violation
|
|
'id-var-name
|
|
"invalid id"
|
|
#{id\ 1934}#))))))
|
|
(#{same-marks?\ 315}#
|
|
(lambda (#{x\ 2046}# #{y\ 2047}#)
|
|
(let ((#{t\ 2052}# (eq? #{x\ 2046}# #{y\ 2047}#)))
|
|
(if #{t\ 2052}#
|
|
#{t\ 2052}#
|
|
(if (not (null? #{x\ 2046}#))
|
|
(if (not (null? #{y\ 2047}#))
|
|
(if (eq? (car #{x\ 2046}#) (car #{y\ 2047}#))
|
|
(#{same-marks?\ 315}#
|
|
(cdr #{x\ 2046}#)
|
|
(cdr #{y\ 2047}#))
|
|
#f)
|
|
#f)
|
|
#f)))))
|
|
(#{join-marks\ 313}#
|
|
(lambda (#{m1\ 2058}# #{m2\ 2059}#)
|
|
(#{smart-append\ 309}# #{m1\ 2058}# #{m2\ 2059}#)))
|
|
(#{join-wraps\ 311}#
|
|
(lambda (#{w1\ 2062}# #{w2\ 2063}#)
|
|
(let ((#{m1\ 2068}# (#{wrap-marks\ 267}# #{w1\ 2062}#))
|
|
(#{s1\ 2069}# (#{wrap-subst\ 269}# #{w1\ 2062}#)))
|
|
(if (null? #{m1\ 2068}#)
|
|
(if (null? #{s1\ 2069}#)
|
|
#{w2\ 2063}#
|
|
(#{make-wrap\ 265}#
|
|
(#{wrap-marks\ 267}# #{w2\ 2063}#)
|
|
(#{smart-append\ 309}#
|
|
#{s1\ 2069}#
|
|
(#{wrap-subst\ 269}# #{w2\ 2063}#))))
|
|
(#{make-wrap\ 265}#
|
|
(#{smart-append\ 309}#
|
|
#{m1\ 2068}#
|
|
(#{wrap-marks\ 267}# #{w2\ 2063}#))
|
|
(#{smart-append\ 309}#
|
|
#{s1\ 2069}#
|
|
(#{wrap-subst\ 269}# #{w2\ 2063}#)))))))
|
|
(#{smart-append\ 309}#
|
|
(lambda (#{m1\ 2070}# #{m2\ 2071}#)
|
|
(if (null? #{m2\ 2071}#)
|
|
#{m1\ 2070}#
|
|
(append #{m1\ 2070}# #{m2\ 2071}#))))
|
|
(#{make-binding-wrap\ 307}#
|
|
(lambda (#{ids\ 2074}# #{labels\ 2075}# #{w\ 2076}#)
|
|
(if (null? #{ids\ 2074}#)
|
|
#{w\ 2076}#
|
|
(#{make-wrap\ 265}#
|
|
(#{wrap-marks\ 267}# #{w\ 2076}#)
|
|
(cons (let ((#{labelvec\ 2081}#
|
|
(list->vector #{labels\ 2075}#)))
|
|
(let ((#{n\ 2083}#
|
|
(vector-length #{labelvec\ 2081}#)))
|
|
(let ((#{symnamevec\ 2086}#
|
|
(make-vector #{n\ 2083}#))
|
|
(#{marksvec\ 2087}#
|
|
(make-vector #{n\ 2083}#)))
|
|
(begin
|
|
(letrec ((#{f\ 2091}#
|
|
(lambda (#{ids\ 2092}# #{i\ 2093}#)
|
|
(if (not (null? #{ids\ 2092}#))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{id-sym-name&marks\ 263}#
|
|
(car #{ids\ 2092}#)
|
|
#{w\ 2076}#))
|
|
(lambda (#{symname\ 2094}#
|
|
#{marks\ 2095}#)
|
|
(begin
|
|
(vector-set!
|
|
#{symnamevec\ 2086}#
|
|
#{i\ 2093}#
|
|
#{symname\ 2094}#)
|
|
(vector-set!
|
|
#{marksvec\ 2087}#
|
|
#{i\ 2093}#
|
|
#{marks\ 2095}#)
|
|
(#{f\ 2091}#
|
|
(cdr #{ids\ 2092}#)
|
|
(#{fx+\ 163}#
|
|
#{i\ 2093}#
|
|
1)))))))))
|
|
(#{f\ 2091}# #{ids\ 2074}# 0))
|
|
(#{make-ribcage\ 281}#
|
|
#{symnamevec\ 2086}#
|
|
#{marksvec\ 2087}#
|
|
#{labelvec\ 2081}#)))))
|
|
(#{wrap-subst\ 269}# #{w\ 2076}#))))))
|
|
(#{extend-ribcage!\ 305}#
|
|
(lambda (#{ribcage\ 2098}# #{id\ 2099}# #{label\ 2100}#)
|
|
(begin
|
|
(#{set-ribcage-symnames!\ 291}#
|
|
#{ribcage\ 2098}#
|
|
(cons (#{syntax-object-expression\ 226}# #{id\ 2099}#)
|
|
(#{ribcage-symnames\ 285}# #{ribcage\ 2098}#)))
|
|
(#{set-ribcage-marks!\ 293}#
|
|
#{ribcage\ 2098}#
|
|
(cons (#{wrap-marks\ 267}#
|
|
(#{syntax-object-wrap\ 228}# #{id\ 2099}#))
|
|
(#{ribcage-marks\ 287}# #{ribcage\ 2098}#)))
|
|
(#{set-ribcage-labels!\ 295}#
|
|
#{ribcage\ 2098}#
|
|
(cons #{label\ 2100}#
|
|
(#{ribcage-labels\ 289}# #{ribcage\ 2098}#))))))
|
|
(#{anti-mark\ 301}#
|
|
(lambda (#{w\ 2104}#)
|
|
(#{make-wrap\ 265}#
|
|
(cons #f (#{wrap-marks\ 267}# #{w\ 2104}#))
|
|
(cons 'shift
|
|
(#{wrap-subst\ 269}# #{w\ 2104}#)))))
|
|
(#{set-ribcage-labels!\ 295}#
|
|
(lambda (#{x\ 2107}# #{update\ 2108}#)
|
|
(vector-set! #{x\ 2107}# 3 #{update\ 2108}#)))
|
|
(#{set-ribcage-marks!\ 293}#
|
|
(lambda (#{x\ 2111}# #{update\ 2112}#)
|
|
(vector-set! #{x\ 2111}# 2 #{update\ 2112}#)))
|
|
(#{set-ribcage-symnames!\ 291}#
|
|
(lambda (#{x\ 2115}# #{update\ 2116}#)
|
|
(vector-set! #{x\ 2115}# 1 #{update\ 2116}#)))
|
|
(#{ribcage-labels\ 289}#
|
|
(lambda (#{x\ 2119}#) (vector-ref #{x\ 2119}# 3)))
|
|
(#{ribcage-marks\ 287}#
|
|
(lambda (#{x\ 2121}#) (vector-ref #{x\ 2121}# 2)))
|
|
(#{ribcage-symnames\ 285}#
|
|
(lambda (#{x\ 2123}#) (vector-ref #{x\ 2123}# 1)))
|
|
(#{ribcage?\ 283}#
|
|
(lambda (#{x\ 2125}#)
|
|
(if (vector? #{x\ 2125}#)
|
|
(if (= (vector-length #{x\ 2125}#) 4)
|
|
(eq? (vector-ref #{x\ 2125}# 0) (quote ribcage))
|
|
#f)
|
|
#f)))
|
|
(#{make-ribcage\ 281}#
|
|
(lambda (#{symnames\ 2130}#
|
|
#{marks\ 2131}#
|
|
#{labels\ 2132}#)
|
|
(vector
|
|
'ribcage
|
|
#{symnames\ 2130}#
|
|
#{marks\ 2131}#
|
|
#{labels\ 2132}#)))
|
|
(#{gen-labels\ 278}#
|
|
(lambda (#{ls\ 2136}#)
|
|
(if (null? #{ls\ 2136}#)
|
|
'()
|
|
(cons (#{gen-label\ 276}#)
|
|
(#{gen-labels\ 278}# (cdr #{ls\ 2136}#))))))
|
|
(#{gen-label\ 276}#
|
|
(lambda () (symbol->string (gensym "i"))))
|
|
(#{wrap-subst\ 269}# cdr)
|
|
(#{wrap-marks\ 267}# car)
|
|
(#{make-wrap\ 265}# cons)
|
|
(#{id-sym-name&marks\ 263}#
|
|
(lambda (#{x\ 2138}# #{w\ 2139}#)
|
|
(if (#{syntax-object?\ 224}# #{x\ 2138}#)
|
|
(values
|
|
(#{syntax-object-expression\ 226}# #{x\ 2138}#)
|
|
(#{join-marks\ 313}#
|
|
(#{wrap-marks\ 267}# #{w\ 2139}#)
|
|
(#{wrap-marks\ 267}#
|
|
(#{syntax-object-wrap\ 228}# #{x\ 2138}#))))
|
|
(values
|
|
#{x\ 2138}#
|
|
(#{wrap-marks\ 267}# #{w\ 2139}#)))))
|
|
(#{id?\ 260}#
|
|
(lambda (#{x\ 2142}#)
|
|
(if (symbol? #{x\ 2142}#)
|
|
#t
|
|
(if (#{syntax-object?\ 224}# #{x\ 2142}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 226}# #{x\ 2142}#))
|
|
#f))))
|
|
(#{nonsymbol-id?\ 258}#
|
|
(lambda (#{x\ 2149}#)
|
|
(if (#{syntax-object?\ 224}# #{x\ 2149}#)
|
|
(symbol?
|
|
(#{syntax-object-expression\ 226}# #{x\ 2149}#))
|
|
#f)))
|
|
(#{global-extend\ 256}#
|
|
(lambda (#{type\ 2153}# #{sym\ 2154}# #{val\ 2155}#)
|
|
(#{put-global-definition-hook\ 176}#
|
|
#{sym\ 2154}#
|
|
#{type\ 2153}#
|
|
#{val\ 2155}#)))
|
|
(#{lookup\ 254}#
|
|
(lambda (#{x\ 2159}# #{r\ 2160}# #{mod\ 2161}#)
|
|
(let ((#{t\ 2167}# (assq #{x\ 2159}# #{r\ 2160}#)))
|
|
(if #{t\ 2167}#
|
|
(cdr #{t\ 2167}#)
|
|
(if (symbol? #{x\ 2159}#)
|
|
(let ((#{t\ 2173}#
|
|
(#{get-global-definition-hook\ 178}#
|
|
#{x\ 2159}#
|
|
#{mod\ 2161}#)))
|
|
(if #{t\ 2173}# #{t\ 2173}# (quote (global))))
|
|
'(displaced-lexical))))))
|
|
(#{macros-only-env\ 252}#
|
|
(lambda (#{r\ 2178}#)
|
|
(if (null? #{r\ 2178}#)
|
|
'()
|
|
(let ((#{a\ 2181}# (car #{r\ 2178}#)))
|
|
(if (eq? (cadr #{a\ 2181}#) (quote macro))
|
|
(cons #{a\ 2181}#
|
|
(#{macros-only-env\ 252}# (cdr #{r\ 2178}#)))
|
|
(#{macros-only-env\ 252}# (cdr #{r\ 2178}#)))))))
|
|
(#{extend-var-env\ 250}#
|
|
(lambda (#{labels\ 2182}# #{vars\ 2183}# #{r\ 2184}#)
|
|
(if (null? #{labels\ 2182}#)
|
|
#{r\ 2184}#
|
|
(#{extend-var-env\ 250}#
|
|
(cdr #{labels\ 2182}#)
|
|
(cdr #{vars\ 2183}#)
|
|
(cons (cons (car #{labels\ 2182}#)
|
|
(cons (quote lexical) (car #{vars\ 2183}#)))
|
|
#{r\ 2184}#)))))
|
|
(#{extend-env\ 248}#
|
|
(lambda (#{labels\ 2189}# #{bindings\ 2190}# #{r\ 2191}#)
|
|
(if (null? #{labels\ 2189}#)
|
|
#{r\ 2191}#
|
|
(#{extend-env\ 248}#
|
|
(cdr #{labels\ 2189}#)
|
|
(cdr #{bindings\ 2190}#)
|
|
(cons (cons (car #{labels\ 2189}#)
|
|
(car #{bindings\ 2190}#))
|
|
#{r\ 2191}#)))))
|
|
(#{binding-value\ 245}# cdr)
|
|
(#{binding-type\ 243}# car)
|
|
(#{source-annotation\ 239}#
|
|
(lambda (#{x\ 2195}#)
|
|
(if (#{syntax-object?\ 224}# #{x\ 2195}#)
|
|
(#{source-annotation\ 239}#
|
|
(#{syntax-object-expression\ 226}# #{x\ 2195}#))
|
|
(if (pair? #{x\ 2195}#)
|
|
(let ((#{props\ 2202}# (source-properties #{x\ 2195}#)))
|
|
(if (pair? #{props\ 2202}#) #{props\ 2202}# #f))
|
|
#f))))
|
|
(#{set-syntax-object-module!\ 236}#
|
|
(lambda (#{x\ 2204}# #{update\ 2205}#)
|
|
(vector-set! #{x\ 2204}# 3 #{update\ 2205}#)))
|
|
(#{set-syntax-object-wrap!\ 234}#
|
|
(lambda (#{x\ 2208}# #{update\ 2209}#)
|
|
(vector-set! #{x\ 2208}# 2 #{update\ 2209}#)))
|
|
(#{set-syntax-object-expression!\ 232}#
|
|
(lambda (#{x\ 2212}# #{update\ 2213}#)
|
|
(vector-set! #{x\ 2212}# 1 #{update\ 2213}#)))
|
|
(#{syntax-object-module\ 230}#
|
|
(lambda (#{x\ 2216}#) (vector-ref #{x\ 2216}# 3)))
|
|
(#{syntax-object-wrap\ 228}#
|
|
(lambda (#{x\ 2218}#) (vector-ref #{x\ 2218}# 2)))
|
|
(#{syntax-object-expression\ 226}#
|
|
(lambda (#{x\ 2220}#) (vector-ref #{x\ 2220}# 1)))
|
|
(#{syntax-object?\ 224}#
|
|
(lambda (#{x\ 2222}#)
|
|
(if (vector? #{x\ 2222}#)
|
|
(if (= (vector-length #{x\ 2222}#) 4)
|
|
(eq? (vector-ref #{x\ 2222}# 0)
|
|
'syntax-object)
|
|
#f)
|
|
#f)))
|
|
(#{make-syntax-object\ 222}#
|
|
(lambda (#{expression\ 2227}#
|
|
#{wrap\ 2228}#
|
|
#{module\ 2229}#)
|
|
(vector
|
|
'syntax-object
|
|
#{expression\ 2227}#
|
|
#{wrap\ 2228}#
|
|
#{module\ 2229}#)))
|
|
(#{build-letrec\ 218}#
|
|
(lambda (#{src\ 2233}#
|
|
#{ids\ 2234}#
|
|
#{vars\ 2235}#
|
|
#{val-exps\ 2236}#
|
|
#{body-exp\ 2237}#)
|
|
(if (null? #{vars\ 2235}#)
|
|
#{body-exp\ 2237}#
|
|
(let ((#{atom-key\ 2245}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2245}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 198}#
|
|
#{ids\ 2234}#
|
|
#{val-exps\ 2236}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 2233}#
|
|
#{ids\ 2234}#
|
|
#{vars\ 2235}#
|
|
#{val-exps\ 2236}#
|
|
#{body-exp\ 2237}#))
|
|
(#{decorate-source\ 180}#
|
|
(list 'letrec
|
|
(map list #{vars\ 2235}# #{val-exps\ 2236}#)
|
|
#{body-exp\ 2237}#)
|
|
#{src\ 2233}#))))))
|
|
(#{build-named-let\ 216}#
|
|
(lambda (#{src\ 2249}#
|
|
#{ids\ 2250}#
|
|
#{vars\ 2251}#
|
|
#{val-exps\ 2252}#
|
|
#{body-exp\ 2253}#)
|
|
(let ((#{f\ 2263}# (car #{vars\ 2251}#))
|
|
(#{f-name\ 2264}# (car #{ids\ 2250}#))
|
|
(#{vars\ 2265}# (cdr #{vars\ 2251}#))
|
|
(#{ids\ 2266}# (cdr #{ids\ 2250}#)))
|
|
(let ((#{atom-key\ 2269}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2269}# (quote (c)))
|
|
(let ((#{proc\ 2272}#
|
|
(#{build-simple-lambda\ 202}#
|
|
#{src\ 2249}#
|
|
#{ids\ 2266}#
|
|
#f
|
|
#{vars\ 2265}#
|
|
#f
|
|
#{body-exp\ 2253}#)))
|
|
(begin
|
|
(#{maybe-name-value!\ 198}#
|
|
#{f-name\ 2264}#
|
|
#{proc\ 2272}#)
|
|
(for-each
|
|
#{maybe-name-value!\ 198}#
|
|
#{ids\ 2266}#
|
|
#{val-exps\ 2252}#)
|
|
((@ (language tree-il) make-letrec)
|
|
#{src\ 2249}#
|
|
(list #{f-name\ 2264}#)
|
|
(list #{f\ 2263}#)
|
|
(list #{proc\ 2272}#)
|
|
(#{build-application\ 184}#
|
|
#{src\ 2249}#
|
|
(#{build-lexical-reference\ 188}#
|
|
'fun
|
|
#{src\ 2249}#
|
|
#{f-name\ 2264}#
|
|
#{f\ 2263}#)
|
|
#{val-exps\ 2252}#))))
|
|
(#{decorate-source\ 180}#
|
|
(list 'letrec
|
|
(list (list #{f\ 2263}#
|
|
(list 'lambda
|
|
#{vars\ 2265}#
|
|
#{body-exp\ 2253}#)))
|
|
(cons #{f\ 2263}# #{val-exps\ 2252}#))
|
|
#{src\ 2249}#))))))
|
|
(#{build-let\ 214}#
|
|
(lambda (#{src\ 2275}#
|
|
#{ids\ 2276}#
|
|
#{vars\ 2277}#
|
|
#{val-exps\ 2278}#
|
|
#{body-exp\ 2279}#)
|
|
(if (null? #{vars\ 2277}#)
|
|
#{body-exp\ 2279}#
|
|
(let ((#{atom-key\ 2287}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2287}# (quote (c)))
|
|
(begin
|
|
(for-each
|
|
#{maybe-name-value!\ 198}#
|
|
#{ids\ 2276}#
|
|
#{val-exps\ 2278}#)
|
|
((@ (language tree-il) make-let)
|
|
#{src\ 2275}#
|
|
#{ids\ 2276}#
|
|
#{vars\ 2277}#
|
|
#{val-exps\ 2278}#
|
|
#{body-exp\ 2279}#))
|
|
(#{decorate-source\ 180}#
|
|
(list 'let
|
|
(map list #{vars\ 2277}# #{val-exps\ 2278}#)
|
|
#{body-exp\ 2279}#)
|
|
#{src\ 2275}#))))))
|
|
(#{build-sequence\ 212}#
|
|
(lambda (#{src\ 2291}# #{exps\ 2292}#)
|
|
(if (null? (cdr #{exps\ 2292}#))
|
|
(car #{exps\ 2292}#)
|
|
(let ((#{atom-key\ 2297}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2297}# (quote (c)))
|
|
((@ (language tree-il) make-sequence)
|
|
#{src\ 2291}#
|
|
#{exps\ 2292}#)
|
|
(#{decorate-source\ 180}#
|
|
(cons (quote begin) #{exps\ 2292}#)
|
|
#{src\ 2291}#))))))
|
|
(#{build-data\ 210}#
|
|
(lambda (#{src\ 2301}# #{exp\ 2302}#)
|
|
(let ((#{atom-key\ 2307}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2307}# (quote (c)))
|
|
((@ (language tree-il) make-const)
|
|
#{src\ 2301}#
|
|
#{exp\ 2302}#)
|
|
(#{decorate-source\ 180}#
|
|
(if (if (self-evaluating? #{exp\ 2302}#)
|
|
(not (vector? #{exp\ 2302}#))
|
|
#f)
|
|
#{exp\ 2302}#
|
|
(list (quote quote) #{exp\ 2302}#))
|
|
#{src\ 2301}#)))))
|
|
(#{build-primref\ 208}#
|
|
(lambda (#{src\ 2312}# #{name\ 2313}#)
|
|
(if (equal?
|
|
(module-name (current-module))
|
|
'(guile))
|
|
(let ((#{atom-key\ 2318}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2318}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{src\ 2312}#
|
|
#{name\ 2313}#)
|
|
(#{decorate-source\ 180}#
|
|
#{name\ 2313}#
|
|
#{src\ 2312}#)))
|
|
(let ((#{atom-key\ 2323}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2323}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{src\ 2312}#
|
|
'(guile)
|
|
#{name\ 2313}#
|
|
#f)
|
|
(#{decorate-source\ 180}#
|
|
(list (quote @@) (quote (guile)) #{name\ 2313}#)
|
|
#{src\ 2312}#))))))
|
|
(#{build-lambda-case\ 206}#
|
|
(lambda (#{src\ 2327}#
|
|
#{req\ 2328}#
|
|
#{opt\ 2329}#
|
|
#{rest\ 2330}#
|
|
#{kw\ 2331}#
|
|
#{inits\ 2332}#
|
|
#{vars\ 2333}#
|
|
#{body\ 2334}#
|
|
#{else-case\ 2335}#)
|
|
(let ((#{atom-key\ 2347}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2347}# (quote (c)))
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 2327}#
|
|
#{req\ 2328}#
|
|
#{opt\ 2329}#
|
|
#{rest\ 2330}#
|
|
#{kw\ 2331}#
|
|
#{inits\ 2332}#
|
|
#{vars\ 2333}#
|
|
#{body\ 2334}#
|
|
#{else-case\ 2335}#)
|
|
(let ((#{nreq\ 2352}# (length #{req\ 2328}#)))
|
|
(let ((#{nopt\ 2354}#
|
|
(if #{opt\ 2329}# (length #{opt\ 2329}#) 0)))
|
|
(let ((#{rest-idx\ 2356}#
|
|
(if #{rest\ 2330}#
|
|
(+ #{nreq\ 2352}# #{nopt\ 2354}#)
|
|
#f)))
|
|
(let ((#{allow-other-keys?\ 2360}#
|
|
(if #{kw\ 2331}# (car #{kw\ 2331}#) #f)))
|
|
(let ((#{kw-indices\ 2362}#
|
|
(map (lambda (#{x\ 2363}#)
|
|
(cons (car #{x\ 2363}#)
|
|
(list-index
|
|
#{vars\ 2333}#
|
|
(caddr #{x\ 2363}#))))
|
|
(if #{kw\ 2331}#
|
|
(cdr #{kw\ 2331}#)
|
|
'()))))
|
|
(let ((#{nargs\ 2366}#
|
|
(apply max
|
|
(+ #{nreq\ 2352}#
|
|
#{nopt\ 2354}#
|
|
(if #{rest\ 2330}# 1 0))
|
|
(map 1+
|
|
(map cdr
|
|
#{kw-indices\ 2362}#)))))
|
|
(begin
|
|
(let ((#{t\ 2369}#
|
|
(= #{nargs\ 2366}#
|
|
(length #{vars\ 2333}#)
|
|
(+ #{nreq\ 2352}#
|
|
(length #{inits\ 2332}#)
|
|
(if #{rest\ 2330}# 1 0)))))
|
|
(if #{t\ 2369}#
|
|
#{t\ 2369}#
|
|
(error "something went wrong"
|
|
#{req\ 2328}#
|
|
#{opt\ 2329}#
|
|
#{rest\ 2330}#
|
|
#{kw\ 2331}#
|
|
#{inits\ 2332}#
|
|
#{vars\ 2333}#
|
|
#{nreq\ 2352}#
|
|
#{nopt\ 2354}#
|
|
#{kw-indices\ 2362}#
|
|
#{nargs\ 2366}#)))
|
|
(#{decorate-source\ 180}#
|
|
(cons (list (cons '(@@ (ice-9 optargs)
|
|
parse-lambda-case)
|
|
(cons (list 'quote
|
|
(list #{nreq\ 2352}#
|
|
#{nopt\ 2354}#
|
|
#{rest-idx\ 2356}#
|
|
#{nargs\ 2366}#
|
|
#{allow-other-keys?\ 2360}#
|
|
#{kw-indices\ 2362}#))
|
|
(cons (cons 'list
|
|
(map (lambda (#{i\ 2372}#)
|
|
(list 'lambda
|
|
#{vars\ 2333}#
|
|
#{i\ 2372}#))
|
|
#{inits\ 2332}#))
|
|
'(%%args))))
|
|
'=>
|
|
(list 'lambda
|
|
'(%%args)
|
|
(cons 'apply
|
|
(cons (list 'lambda
|
|
#{vars\ 2333}#
|
|
#{body\ 2334}#)
|
|
'(%%args)))))
|
|
(let ((#{t\ 2377}#
|
|
#{else-case\ 2335}#))
|
|
(if #{t\ 2377}#
|
|
#{t\ 2377}#
|
|
'((%%args
|
|
(scm-error
|
|
'wrong-number-of-args
|
|
#f
|
|
"Wrong number of arguments"
|
|
'()
|
|
%%args))))))
|
|
#{src\ 2327}#))))))))))))
|
|
(#{build-case-lambda\ 204}#
|
|
(lambda (#{src\ 2380}#
|
|
#{docstring\ 2381}#
|
|
#{body\ 2382}#)
|
|
(let ((#{atom-key\ 2388}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2388}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 2380}#
|
|
(if #{docstring\ 2381}#
|
|
(list (cons (quote documentation) #{docstring\ 2381}#))
|
|
'())
|
|
#{body\ 2382}#)
|
|
(#{decorate-source\ 180}#
|
|
(cons 'lambda
|
|
(cons '%%args
|
|
(append
|
|
(if #{docstring\ 2381}#
|
|
(list #{docstring\ 2381}#)
|
|
'())
|
|
(list (cons (quote cond) #{body\ 2382}#)))))
|
|
#{src\ 2380}#)))))
|
|
(#{build-simple-lambda\ 202}#
|
|
(lambda (#{src\ 2393}#
|
|
#{req\ 2394}#
|
|
#{rest\ 2395}#
|
|
#{vars\ 2396}#
|
|
#{docstring\ 2397}#
|
|
#{exp\ 2398}#)
|
|
(let ((#{atom-key\ 2407}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2407}# (quote (c)))
|
|
((@ (language tree-il) make-lambda)
|
|
#{src\ 2393}#
|
|
(if #{docstring\ 2397}#
|
|
(list (cons (quote documentation) #{docstring\ 2397}#))
|
|
'())
|
|
((@ (language tree-il) make-lambda-case)
|
|
#{src\ 2393}#
|
|
#{req\ 2394}#
|
|
#f
|
|
#{rest\ 2395}#
|
|
#f
|
|
'()
|
|
#{vars\ 2396}#
|
|
#{exp\ 2398}#
|
|
#f))
|
|
(#{decorate-source\ 180}#
|
|
(cons 'lambda
|
|
(cons (if #{rest\ 2395}#
|
|
(apply cons* #{vars\ 2396}#)
|
|
#{vars\ 2396}#)
|
|
(append
|
|
(if #{docstring\ 2397}#
|
|
(list #{docstring\ 2397}#)
|
|
'())
|
|
(list #{exp\ 2398}#))))
|
|
#{src\ 2393}#)))))
|
|
(#{build-global-definition\ 200}#
|
|
(lambda (#{source\ 2412}# #{var\ 2413}# #{exp\ 2414}#)
|
|
(let ((#{atom-key\ 2420}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2420}# (quote (c)))
|
|
(begin
|
|
(#{maybe-name-value!\ 198}#
|
|
#{var\ 2413}#
|
|
#{exp\ 2414}#)
|
|
((@ (language tree-il) make-toplevel-define)
|
|
#{source\ 2412}#
|
|
#{var\ 2413}#
|
|
#{exp\ 2414}#))
|
|
(#{decorate-source\ 180}#
|
|
(list (quote define) #{var\ 2413}# #{exp\ 2414}#)
|
|
#{source\ 2412}#)))))
|
|
(#{maybe-name-value!\ 198}#
|
|
(lambda (#{name\ 2424}# #{val\ 2425}#)
|
|
(if ((@ (language tree-il) lambda?) #{val\ 2425}#)
|
|
(let ((#{meta\ 2431}#
|
|
((@ (language tree-il) lambda-meta)
|
|
#{val\ 2425}#)))
|
|
(if (not (assq (quote name) #{meta\ 2431}#))
|
|
((setter (@ (language tree-il) lambda-meta))
|
|
#{val\ 2425}#
|
|
(acons 'name
|
|
#{name\ 2424}#
|
|
#{meta\ 2431}#)))))))
|
|
(#{build-global-assignment\ 196}#
|
|
(lambda (#{source\ 2432}#
|
|
#{var\ 2433}#
|
|
#{exp\ 2434}#
|
|
#{mod\ 2435}#)
|
|
(#{analyze-variable\ 192}#
|
|
#{mod\ 2435}#
|
|
#{var\ 2433}#
|
|
(lambda (#{mod\ 2440}# #{var\ 2441}# #{public?\ 2442}#)
|
|
(let ((#{atom-key\ 2448}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2448}# (quote (c)))
|
|
((@ (language tree-il) make-module-set)
|
|
#{source\ 2432}#
|
|
#{mod\ 2440}#
|
|
#{var\ 2441}#
|
|
#{public?\ 2442}#
|
|
#{exp\ 2434}#)
|
|
(#{decorate-source\ 180}#
|
|
(list 'set!
|
|
(list (if #{public?\ 2442}#
|
|
'@
|
|
'@@)
|
|
#{mod\ 2440}#
|
|
#{var\ 2441}#)
|
|
#{exp\ 2434}#)
|
|
#{source\ 2432}#))))
|
|
(lambda (#{var\ 2452}#)
|
|
(let ((#{atom-key\ 2456}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2456}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-set)
|
|
#{source\ 2432}#
|
|
#{var\ 2452}#
|
|
#{exp\ 2434}#)
|
|
(#{decorate-source\ 180}#
|
|
(list (quote set!) #{var\ 2452}# #{exp\ 2434}#)
|
|
#{source\ 2432}#)))))))
|
|
(#{build-global-reference\ 194}#
|
|
(lambda (#{source\ 2460}# #{var\ 2461}# #{mod\ 2462}#)
|
|
(#{analyze-variable\ 192}#
|
|
#{mod\ 2462}#
|
|
#{var\ 2461}#
|
|
(lambda (#{mod\ 2466}# #{var\ 2467}# #{public?\ 2468}#)
|
|
(let ((#{atom-key\ 2474}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2474}# (quote (c)))
|
|
((@ (language tree-il) make-module-ref)
|
|
#{source\ 2460}#
|
|
#{mod\ 2466}#
|
|
#{var\ 2467}#
|
|
#{public?\ 2468}#)
|
|
(#{decorate-source\ 180}#
|
|
(list (if #{public?\ 2468}# (quote @) (quote @@))
|
|
#{mod\ 2466}#
|
|
#{var\ 2467}#)
|
|
#{source\ 2460}#))))
|
|
(lambda (#{var\ 2477}#)
|
|
(let ((#{atom-key\ 2481}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2481}# (quote (c)))
|
|
((@ (language tree-il) make-toplevel-ref)
|
|
#{source\ 2460}#
|
|
#{var\ 2477}#)
|
|
(#{decorate-source\ 180}#
|
|
#{var\ 2477}#
|
|
#{source\ 2460}#)))))))
|
|
(#{analyze-variable\ 192}#
|
|
(lambda (#{mod\ 2484}#
|
|
#{var\ 2485}#
|
|
#{modref-cont\ 2486}#
|
|
#{bare-cont\ 2487}#)
|
|
(if (not #{mod\ 2484}#)
|
|
(#{bare-cont\ 2487}# #{var\ 2485}#)
|
|
(let ((#{kind\ 2494}# (car #{mod\ 2484}#))
|
|
(#{mod\ 2495}# (cdr #{mod\ 2484}#)))
|
|
(if (memv #{kind\ 2494}# (quote (public)))
|
|
(#{modref-cont\ 2486}#
|
|
#{mod\ 2495}#
|
|
#{var\ 2485}#
|
|
#t)
|
|
(if (memv #{kind\ 2494}# (quote (private)))
|
|
(if (not (equal?
|
|
#{mod\ 2495}#
|
|
(module-name (current-module))))
|
|
(#{modref-cont\ 2486}#
|
|
#{mod\ 2495}#
|
|
#{var\ 2485}#
|
|
#f)
|
|
(#{bare-cont\ 2487}# #{var\ 2485}#))
|
|
(if (memv #{kind\ 2494}# (quote (bare)))
|
|
(#{bare-cont\ 2487}# #{var\ 2485}#)
|
|
(if (memv #{kind\ 2494}# (quote (hygiene)))
|
|
(if (if (not (equal?
|
|
#{mod\ 2495}#
|
|
(module-name (current-module))))
|
|
(module-variable
|
|
(resolve-module #{mod\ 2495}#)
|
|
#{var\ 2485}#)
|
|
#f)
|
|
(#{modref-cont\ 2486}#
|
|
#{mod\ 2495}#
|
|
#{var\ 2485}#
|
|
#f)
|
|
(#{bare-cont\ 2487}# #{var\ 2485}#))
|
|
(syntax-violation
|
|
#f
|
|
"bad module kind"
|
|
#{var\ 2485}#
|
|
#{mod\ 2495}#)))))))))
|
|
(#{build-lexical-assignment\ 190}#
|
|
(lambda (#{source\ 2503}#
|
|
#{name\ 2504}#
|
|
#{var\ 2505}#
|
|
#{exp\ 2506}#)
|
|
(let ((#{atom-key\ 2513}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2513}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-set)
|
|
#{source\ 2503}#
|
|
#{name\ 2504}#
|
|
#{var\ 2505}#
|
|
#{exp\ 2506}#)
|
|
(#{decorate-source\ 180}#
|
|
(list (quote set!) #{var\ 2505}# #{exp\ 2506}#)
|
|
#{source\ 2503}#)))))
|
|
(#{build-lexical-reference\ 188}#
|
|
(lambda (#{type\ 2517}#
|
|
#{source\ 2518}#
|
|
#{name\ 2519}#
|
|
#{var\ 2520}#)
|
|
(let ((#{atom-key\ 2527}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2527}# (quote (c)))
|
|
((@ (language tree-il) make-lexical-ref)
|
|
#{source\ 2518}#
|
|
#{name\ 2519}#
|
|
#{var\ 2520}#)
|
|
(#{decorate-source\ 180}#
|
|
#{var\ 2520}#
|
|
#{source\ 2518}#)))))
|
|
(#{build-conditional\ 186}#
|
|
(lambda (#{source\ 2530}#
|
|
#{test-exp\ 2531}#
|
|
#{then-exp\ 2532}#
|
|
#{else-exp\ 2533}#)
|
|
(let ((#{atom-key\ 2540}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2540}# (quote (c)))
|
|
((@ (language tree-il) make-conditional)
|
|
#{source\ 2530}#
|
|
#{test-exp\ 2531}#
|
|
#{then-exp\ 2532}#
|
|
#{else-exp\ 2533}#)
|
|
(#{decorate-source\ 180}#
|
|
(if (equal? #{else-exp\ 2533}# (quote (if #f #f)))
|
|
(list 'if
|
|
#{test-exp\ 2531}#
|
|
#{then-exp\ 2532}#)
|
|
(list 'if
|
|
#{test-exp\ 2531}#
|
|
#{then-exp\ 2532}#
|
|
#{else-exp\ 2533}#))
|
|
#{source\ 2530}#)))))
|
|
(#{build-application\ 184}#
|
|
(lambda (#{source\ 2545}#
|
|
#{fun-exp\ 2546}#
|
|
#{arg-exps\ 2547}#)
|
|
(let ((#{atom-key\ 2553}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2553}# (quote (c)))
|
|
((@ (language tree-il) make-application)
|
|
#{source\ 2545}#
|
|
#{fun-exp\ 2546}#
|
|
#{arg-exps\ 2547}#)
|
|
(#{decorate-source\ 180}#
|
|
(cons #{fun-exp\ 2546}# #{arg-exps\ 2547}#)
|
|
#{source\ 2545}#)))))
|
|
(#{build-void\ 182}#
|
|
(lambda (#{source\ 2557}#)
|
|
(let ((#{atom-key\ 2561}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2561}# (quote (c)))
|
|
((@ (language tree-il) make-void)
|
|
#{source\ 2557}#)
|
|
(#{decorate-source\ 180}#
|
|
'(if #f #f)
|
|
#{source\ 2557}#)))))
|
|
(#{decorate-source\ 180}#
|
|
(lambda (#{e\ 2564}# #{s\ 2565}#)
|
|
(begin
|
|
(if (if (pair? #{e\ 2564}#) #{s\ 2565}# #f)
|
|
(set-source-properties! #{e\ 2564}# #{s\ 2565}#))
|
|
#{e\ 2564}#)))
|
|
(#{get-global-definition-hook\ 178}#
|
|
(lambda (#{symbol\ 2570}# #{module\ 2571}#)
|
|
(begin
|
|
(if (if (not #{module\ 2571}#) (current-module) #f)
|
|
(warn "module system is booted, we should have a module"
|
|
#{symbol\ 2570}#))
|
|
(let ((#{v\ 2577}#
|
|
(module-variable
|
|
(if #{module\ 2571}#
|
|
(resolve-module (cdr #{module\ 2571}#))
|
|
(current-module))
|
|
#{symbol\ 2570}#)))
|
|
(if #{v\ 2577}#
|
|
(if (variable-bound? #{v\ 2577}#)
|
|
(let ((#{val\ 2582}# (variable-ref #{v\ 2577}#)))
|
|
(if (macro? #{val\ 2582}#)
|
|
(if (macro-type #{val\ 2582}#)
|
|
(cons (macro-type #{val\ 2582}#)
|
|
(macro-binding #{val\ 2582}#))
|
|
#f)
|
|
#f))
|
|
#f)
|
|
#f)))))
|
|
(#{put-global-definition-hook\ 176}#
|
|
(lambda (#{symbol\ 2586}# #{type\ 2587}# #{val\ 2588}#)
|
|
(module-define!
|
|
(current-module)
|
|
#{symbol\ 2586}#
|
|
(make-syntax-transformer
|
|
#{symbol\ 2586}#
|
|
#{type\ 2587}#
|
|
#{val\ 2588}#))))
|
|
(#{local-eval-hook\ 173}#
|
|
(lambda (#{x\ 2592}# #{mod\ 2593}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 159}#
|
|
(let ((#{atom-key\ 2599}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2599}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 2592}#)
|
|
#{x\ 2592}#))))))
|
|
(#{top-level-eval-hook\ 171}#
|
|
(lambda (#{x\ 2602}# #{mod\ 2603}#)
|
|
(primitive-eval
|
|
(list #{noexpand\ 159}#
|
|
(let ((#{atom-key\ 2609}# (fluid-ref #{*mode*\ 161}#)))
|
|
(if (memv #{atom-key\ 2609}# (quote (c)))
|
|
((@ (language tree-il) tree-il->scheme)
|
|
#{x\ 2602}#)
|
|
#{x\ 2602}#))))))
|
|
(#{fx<\ 169}# <)
|
|
(#{fx=\ 167}# =)
|
|
(#{fx-\ 165}# -)
|
|
(#{fx+\ 163}# +)
|
|
(#{*mode*\ 161}# (make-fluid))
|
|
(#{noexpand\ 159}# "noexpand"))
|
|
(begin
|
|
(#{global-extend\ 256}#
|
|
'local-syntax
|
|
'letrec-syntax
|
|
#t)
|
|
(#{global-extend\ 256}#
|
|
'local-syntax
|
|
'let-syntax
|
|
#f)
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'fluid-let-syntax
|
|
(lambda (#{e\ 2612}#
|
|
#{r\ 2613}#
|
|
#{w\ 2614}#
|
|
#{s\ 2615}#
|
|
#{mod\ 2616}#)
|
|
((lambda (#{tmp\ 2622}#)
|
|
((lambda (#{tmp\ 2623}#)
|
|
(if (if #{tmp\ 2623}#
|
|
(apply (lambda (#{_\ 2629}#
|
|
#{var\ 2630}#
|
|
#{val\ 2631}#
|
|
#{e1\ 2632}#
|
|
#{e2\ 2633}#)
|
|
(#{valid-bound-ids?\ 323}# #{var\ 2630}#))
|
|
#{tmp\ 2623}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 2640}#
|
|
#{var\ 2641}#
|
|
#{val\ 2642}#
|
|
#{e1\ 2643}#
|
|
#{e2\ 2644}#)
|
|
(let ((#{names\ 2646}#
|
|
(map (lambda (#{x\ 2647}#)
|
|
(#{id-var-name\ 317}#
|
|
#{x\ 2647}#
|
|
#{w\ 2614}#))
|
|
#{var\ 2641}#)))
|
|
(begin
|
|
(for-each
|
|
(lambda (#{id\ 2650}# #{n\ 2651}#)
|
|
(let ((#{atom-key\ 2656}#
|
|
(#{binding-type\ 243}#
|
|
(#{lookup\ 254}#
|
|
#{n\ 2651}#
|
|
#{r\ 2613}#
|
|
#{mod\ 2616}#))))
|
|
(if (memv #{atom-key\ 2656}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"identifier out of context"
|
|
#{e\ 2612}#
|
|
(#{source-wrap\ 331}#
|
|
#{id\ 2650}#
|
|
#{w\ 2614}#
|
|
#{s\ 2615}#
|
|
#{mod\ 2616}#)))))
|
|
#{var\ 2641}#
|
|
#{names\ 2646}#)
|
|
(#{chi-body\ 353}#
|
|
(cons #{e1\ 2643}# #{e2\ 2644}#)
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 2612}#
|
|
#{w\ 2614}#
|
|
#{s\ 2615}#
|
|
#{mod\ 2616}#)
|
|
(#{extend-env\ 248}#
|
|
#{names\ 2646}#
|
|
(let ((#{trans-r\ 2661}#
|
|
(#{macros-only-env\ 252}#
|
|
#{r\ 2613}#)))
|
|
(map (lambda (#{x\ 2662}#)
|
|
(cons 'macro
|
|
(#{eval-local-transformer\ 357}#
|
|
(#{chi\ 345}#
|
|
#{x\ 2662}#
|
|
#{trans-r\ 2661}#
|
|
#{w\ 2614}#
|
|
#{mod\ 2616}#)
|
|
#{mod\ 2616}#)))
|
|
#{val\ 2642}#))
|
|
#{r\ 2613}#)
|
|
#{w\ 2614}#
|
|
#{mod\ 2616}#))))
|
|
#{tmp\ 2623}#)
|
|
((lambda (#{_\ 2667}#)
|
|
(syntax-violation
|
|
'fluid-let-syntax
|
|
"bad syntax"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 2612}#
|
|
#{w\ 2614}#
|
|
#{s\ 2615}#
|
|
#{mod\ 2616}#)))
|
|
#{tmp\ 2622}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2622}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 2612}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'quote
|
|
(lambda (#{e\ 2668}#
|
|
#{r\ 2669}#
|
|
#{w\ 2670}#
|
|
#{s\ 2671}#
|
|
#{mod\ 2672}#)
|
|
((lambda (#{tmp\ 2678}#)
|
|
((lambda (#{tmp\ 2679}#)
|
|
(if #{tmp\ 2679}#
|
|
(apply (lambda (#{_\ 2682}# #{e\ 2683}#)
|
|
(#{build-data\ 210}#
|
|
#{s\ 2671}#
|
|
(#{strip\ 371}# #{e\ 2683}# #{w\ 2670}#)))
|
|
#{tmp\ 2679}#)
|
|
((lambda (#{_\ 2685}#)
|
|
(syntax-violation
|
|
'quote
|
|
"bad syntax"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 2668}#
|
|
#{w\ 2670}#
|
|
#{s\ 2671}#
|
|
#{mod\ 2672}#)))
|
|
#{tmp\ 2678}#)))
|
|
($sc-dispatch #{tmp\ 2678}# (quote (any any)))))
|
|
#{e\ 2668}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'syntax
|
|
(letrec ((#{regen\ 2701}#
|
|
(lambda (#{x\ 2702}#)
|
|
(let ((#{atom-key\ 2706}# (car #{x\ 2702}#)))
|
|
(if (memv #{atom-key\ 2706}# (quote (ref)))
|
|
(#{build-lexical-reference\ 188}#
|
|
'value
|
|
#f
|
|
(cadr #{x\ 2702}#)
|
|
(cadr #{x\ 2702}#))
|
|
(if (memv #{atom-key\ 2706}# (quote (primitive)))
|
|
(#{build-primref\ 208}# #f (cadr #{x\ 2702}#))
|
|
(if (memv #{atom-key\ 2706}# (quote (quote)))
|
|
(#{build-data\ 210}# #f (cadr #{x\ 2702}#))
|
|
(if (memv #{atom-key\ 2706}# (quote (lambda)))
|
|
(if (list? (cadr #{x\ 2702}#))
|
|
(#{build-simple-lambda\ 202}#
|
|
#f
|
|
(cadr #{x\ 2702}#)
|
|
#f
|
|
(cadr #{x\ 2702}#)
|
|
#f
|
|
(#{regen\ 2701}# (caddr #{x\ 2702}#)))
|
|
(error "how did we get here" #{x\ 2702}#))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}# #f (car #{x\ 2702}#))
|
|
(map #{regen\ 2701}#
|
|
(cdr #{x\ 2702}#))))))))))
|
|
(#{gen-vector\ 2699}#
|
|
(lambda (#{x\ 2718}#)
|
|
(if (eq? (car #{x\ 2718}#) (quote list))
|
|
(cons (quote vector) (cdr #{x\ 2718}#))
|
|
(if (eq? (car #{x\ 2718}#) (quote quote))
|
|
(list 'quote
|
|
(list->vector (cadr #{x\ 2718}#)))
|
|
(list (quote list->vector) #{x\ 2718}#)))))
|
|
(#{gen-append\ 2697}#
|
|
(lambda (#{x\ 2728}# #{y\ 2729}#)
|
|
(if (equal? #{y\ 2729}# (quote (quote ())))
|
|
#{x\ 2728}#
|
|
(list (quote append) #{x\ 2728}# #{y\ 2729}#))))
|
|
(#{gen-cons\ 2695}#
|
|
(lambda (#{x\ 2733}# #{y\ 2734}#)
|
|
(let ((#{atom-key\ 2739}# (car #{y\ 2734}#)))
|
|
(if (memv #{atom-key\ 2739}# (quote (quote)))
|
|
(if (eq? (car #{x\ 2733}#) (quote quote))
|
|
(list 'quote
|
|
(cons (cadr #{x\ 2733}#) (cadr #{y\ 2734}#)))
|
|
(if (eq? (cadr #{y\ 2734}#) (quote ()))
|
|
(list (quote list) #{x\ 2733}#)
|
|
(list (quote cons) #{x\ 2733}# #{y\ 2734}#)))
|
|
(if (memv #{atom-key\ 2739}# (quote (list)))
|
|
(cons 'list
|
|
(cons #{x\ 2733}# (cdr #{y\ 2734}#)))
|
|
(list (quote cons) #{x\ 2733}# #{y\ 2734}#))))))
|
|
(#{gen-map\ 2693}#
|
|
(lambda (#{e\ 2748}# #{map-env\ 2749}#)
|
|
(let ((#{formals\ 2754}# (map cdr #{map-env\ 2749}#))
|
|
(#{actuals\ 2755}#
|
|
(map (lambda (#{x\ 2756}#)
|
|
(list (quote ref) (car #{x\ 2756}#)))
|
|
#{map-env\ 2749}#)))
|
|
(if (eq? (car #{e\ 2748}#) (quote ref))
|
|
(car #{actuals\ 2755}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 2763}#)
|
|
(if (eq? (car #{x\ 2763}#) (quote ref))
|
|
(memq (cadr #{x\ 2763}#) #{formals\ 2754}#)
|
|
#f))
|
|
(cdr #{e\ 2748}#))
|
|
(cons 'map
|
|
(cons (list 'primitive
|
|
(car #{e\ 2748}#))
|
|
(map (let ((#{r\ 2769}#
|
|
(map cons
|
|
#{formals\ 2754}#
|
|
#{actuals\ 2755}#)))
|
|
(lambda (#{x\ 2770}#)
|
|
(cdr (assq (cadr #{x\ 2770}#)
|
|
#{r\ 2769}#))))
|
|
(cdr #{e\ 2748}#))))
|
|
(cons 'map
|
|
(cons (list 'lambda
|
|
#{formals\ 2754}#
|
|
#{e\ 2748}#)
|
|
#{actuals\ 2755}#)))))))
|
|
(#{gen-mappend\ 2691}#
|
|
(lambda (#{e\ 2774}# #{map-env\ 2775}#)
|
|
(list 'apply
|
|
'(primitive append)
|
|
(#{gen-map\ 2693}# #{e\ 2774}# #{map-env\ 2775}#))))
|
|
(#{gen-ref\ 2689}#
|
|
(lambda (#{src\ 2779}#
|
|
#{var\ 2780}#
|
|
#{level\ 2781}#
|
|
#{maps\ 2782}#)
|
|
(if (#{fx=\ 167}# #{level\ 2781}# 0)
|
|
(values #{var\ 2780}# #{maps\ 2782}#)
|
|
(if (null? #{maps\ 2782}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"missing ellipsis"
|
|
#{src\ 2779}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-ref\ 2689}#
|
|
#{src\ 2779}#
|
|
#{var\ 2780}#
|
|
(#{fx-\ 165}# #{level\ 2781}# 1)
|
|
(cdr #{maps\ 2782}#)))
|
|
(lambda (#{outer-var\ 2787}# #{outer-maps\ 2788}#)
|
|
(let ((#{b\ 2792}#
|
|
(assq #{outer-var\ 2787}#
|
|
(car #{maps\ 2782}#))))
|
|
(if #{b\ 2792}#
|
|
(values (cdr #{b\ 2792}#) #{maps\ 2782}#)
|
|
(let ((#{inner-var\ 2794}#
|
|
(#{gen-var\ 373}# (quote tmp))))
|
|
(values
|
|
#{inner-var\ 2794}#
|
|
(cons (cons (cons #{outer-var\ 2787}#
|
|
#{inner-var\ 2794}#)
|
|
(car #{maps\ 2782}#))
|
|
#{outer-maps\ 2788}#)))))))))))
|
|
(#{gen-syntax\ 2687}#
|
|
(lambda (#{src\ 2795}#
|
|
#{e\ 2796}#
|
|
#{r\ 2797}#
|
|
#{maps\ 2798}#
|
|
#{ellipsis?\ 2799}#
|
|
#{mod\ 2800}#)
|
|
(if (#{id?\ 260}# #{e\ 2796}#)
|
|
(let ((#{label\ 2808}#
|
|
(#{id-var-name\ 317}#
|
|
#{e\ 2796}#
|
|
'(()))))
|
|
(let ((#{b\ 2811}#
|
|
(#{lookup\ 254}#
|
|
#{label\ 2808}#
|
|
#{r\ 2797}#
|
|
#{mod\ 2800}#)))
|
|
(if (eq? (#{binding-type\ 243}# #{b\ 2811}#)
|
|
'syntax)
|
|
(call-with-values
|
|
(lambda ()
|
|
(let ((#{var.lev\ 2813}#
|
|
(#{binding-value\ 245}# #{b\ 2811}#)))
|
|
(#{gen-ref\ 2689}#
|
|
#{src\ 2795}#
|
|
(car #{var.lev\ 2813}#)
|
|
(cdr #{var.lev\ 2813}#)
|
|
#{maps\ 2798}#)))
|
|
(lambda (#{var\ 2814}# #{maps\ 2815}#)
|
|
(values
|
|
(list (quote ref) #{var\ 2814}#)
|
|
#{maps\ 2815}#)))
|
|
(if (#{ellipsis?\ 2799}# #{e\ 2796}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"misplaced ellipsis"
|
|
#{src\ 2795}#)
|
|
(values
|
|
(list (quote quote) #{e\ 2796}#)
|
|
#{maps\ 2798}#)))))
|
|
((lambda (#{tmp\ 2820}#)
|
|
((lambda (#{tmp\ 2821}#)
|
|
(if (if #{tmp\ 2821}#
|
|
(apply (lambda (#{dots\ 2824}# #{e\ 2825}#)
|
|
(#{ellipsis?\ 2799}#
|
|
#{dots\ 2824}#))
|
|
#{tmp\ 2821}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 2828}# #{e\ 2829}#)
|
|
(#{gen-syntax\ 2687}#
|
|
#{src\ 2795}#
|
|
#{e\ 2829}#
|
|
#{r\ 2797}#
|
|
#{maps\ 2798}#
|
|
(lambda (#{x\ 2830}#) #f)
|
|
#{mod\ 2800}#))
|
|
#{tmp\ 2821}#)
|
|
((lambda (#{tmp\ 2832}#)
|
|
(if (if #{tmp\ 2832}#
|
|
(apply (lambda (#{x\ 2836}#
|
|
#{dots\ 2837}#
|
|
#{y\ 2838}#)
|
|
(#{ellipsis?\ 2799}#
|
|
#{dots\ 2837}#))
|
|
#{tmp\ 2832}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 2842}#
|
|
#{dots\ 2843}#
|
|
#{y\ 2844}#)
|
|
(letrec ((#{f\ 2848}#
|
|
(lambda (#{y\ 2849}#
|
|
#{k\ 2850}#)
|
|
((lambda (#{tmp\ 2857}#)
|
|
((lambda (#{tmp\ 2858}#)
|
|
(if (if #{tmp\ 2858}#
|
|
(apply (lambda (#{dots\ 2861}#
|
|
#{y\ 2862}#)
|
|
(#{ellipsis?\ 2799}#
|
|
#{dots\ 2861}#))
|
|
#{tmp\ 2858}#)
|
|
#f)
|
|
(apply (lambda (#{dots\ 2865}#
|
|
#{y\ 2866}#)
|
|
(#{f\ 2848}#
|
|
#{y\ 2866}#
|
|
(lambda (#{maps\ 2867}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 2850}#
|
|
(cons '()
|
|
#{maps\ 2867}#)))
|
|
(lambda (#{x\ 2869}#
|
|
#{maps\ 2870}#)
|
|
(if (null? (car #{maps\ 2870}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 2795}#)
|
|
(values
|
|
(#{gen-mappend\ 2691}#
|
|
#{x\ 2869}#
|
|
(car #{maps\ 2870}#))
|
|
(cdr #{maps\ 2870}#))))))))
|
|
#{tmp\ 2858}#)
|
|
((lambda (#{_\ 2874}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2687}#
|
|
#{src\ 2795}#
|
|
#{y\ 2849}#
|
|
#{r\ 2797}#
|
|
#{maps\ 2798}#
|
|
#{ellipsis?\ 2799}#
|
|
#{mod\ 2800}#))
|
|
(lambda (#{y\ 2875}#
|
|
#{maps\ 2876}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{k\ 2850}#
|
|
#{maps\ 2876}#))
|
|
(lambda (#{x\ 2879}#
|
|
#{maps\ 2880}#)
|
|
(values
|
|
(#{gen-append\ 2697}#
|
|
#{x\ 2879}#
|
|
#{y\ 2875}#)
|
|
#{maps\ 2880}#))))))
|
|
#{tmp\ 2857}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2857}#
|
|
'(any . any))))
|
|
#{y\ 2849}#))))
|
|
(#{f\ 2848}#
|
|
#{y\ 2844}#
|
|
(lambda (#{maps\ 2851}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2687}#
|
|
#{src\ 2795}#
|
|
#{x\ 2842}#
|
|
#{r\ 2797}#
|
|
(cons '()
|
|
#{maps\ 2851}#)
|
|
#{ellipsis?\ 2799}#
|
|
#{mod\ 2800}#))
|
|
(lambda (#{x\ 2853}#
|
|
#{maps\ 2854}#)
|
|
(if (null? (car #{maps\ 2854}#))
|
|
(syntax-violation
|
|
'syntax
|
|
"extra ellipsis"
|
|
#{src\ 2795}#)
|
|
(values
|
|
(#{gen-map\ 2693}#
|
|
#{x\ 2853}#
|
|
(car #{maps\ 2854}#))
|
|
(cdr #{maps\ 2854}#)))))))))
|
|
#{tmp\ 2832}#)
|
|
((lambda (#{tmp\ 2883}#)
|
|
(if #{tmp\ 2883}#
|
|
(apply (lambda (#{x\ 2886}#
|
|
#{y\ 2887}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2687}#
|
|
#{src\ 2795}#
|
|
#{x\ 2886}#
|
|
#{r\ 2797}#
|
|
#{maps\ 2798}#
|
|
#{ellipsis?\ 2799}#
|
|
#{mod\ 2800}#))
|
|
(lambda (#{x\ 2888}#
|
|
#{maps\ 2889}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2687}#
|
|
#{src\ 2795}#
|
|
#{y\ 2887}#
|
|
#{r\ 2797}#
|
|
#{maps\ 2889}#
|
|
#{ellipsis?\ 2799}#
|
|
#{mod\ 2800}#))
|
|
(lambda (#{y\ 2892}#
|
|
#{maps\ 2893}#)
|
|
(values
|
|
(#{gen-cons\ 2695}#
|
|
#{x\ 2888}#
|
|
#{y\ 2892}#)
|
|
#{maps\ 2893}#))))))
|
|
#{tmp\ 2883}#)
|
|
((lambda (#{tmp\ 2896}#)
|
|
(if #{tmp\ 2896}#
|
|
(apply (lambda (#{e1\ 2899}#
|
|
#{e2\ 2900}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2687}#
|
|
#{src\ 2795}#
|
|
(cons #{e1\ 2899}#
|
|
#{e2\ 2900}#)
|
|
#{r\ 2797}#
|
|
#{maps\ 2798}#
|
|
#{ellipsis?\ 2799}#
|
|
#{mod\ 2800}#))
|
|
(lambda (#{e\ 2902}#
|
|
#{maps\ 2903}#)
|
|
(values
|
|
(#{gen-vector\ 2699}#
|
|
#{e\ 2902}#)
|
|
#{maps\ 2903}#))))
|
|
#{tmp\ 2896}#)
|
|
((lambda (#{_\ 2907}#)
|
|
(values
|
|
(list 'quote
|
|
#{e\ 2796}#)
|
|
#{maps\ 2798}#))
|
|
#{tmp\ 2820}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2820}#
|
|
'#(vector (any . each-any))))))
|
|
($sc-dispatch
|
|
#{tmp\ 2820}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 2820}#
|
|
'(any any . any)))))
|
|
($sc-dispatch #{tmp\ 2820}# (quote (any any)))))
|
|
#{e\ 2796}#)))))
|
|
(lambda (#{e\ 2909}#
|
|
#{r\ 2910}#
|
|
#{w\ 2911}#
|
|
#{s\ 2912}#
|
|
#{mod\ 2913}#)
|
|
(let ((#{e\ 2920}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 2909}#
|
|
#{w\ 2911}#
|
|
#{s\ 2912}#
|
|
#{mod\ 2913}#)))
|
|
((lambda (#{tmp\ 2921}#)
|
|
((lambda (#{tmp\ 2922}#)
|
|
(if #{tmp\ 2922}#
|
|
(apply (lambda (#{_\ 2925}# #{x\ 2926}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{gen-syntax\ 2687}#
|
|
#{e\ 2920}#
|
|
#{x\ 2926}#
|
|
#{r\ 2910}#
|
|
'()
|
|
#{ellipsis?\ 361}#
|
|
#{mod\ 2913}#))
|
|
(lambda (#{e\ 2927}# #{maps\ 2928}#)
|
|
(#{regen\ 2701}# #{e\ 2927}#))))
|
|
#{tmp\ 2922}#)
|
|
((lambda (#{_\ 2932}#)
|
|
(syntax-violation
|
|
'syntax
|
|
"bad `syntax' form"
|
|
#{e\ 2920}#))
|
|
#{tmp\ 2921}#)))
|
|
($sc-dispatch #{tmp\ 2921}# (quote (any any)))))
|
|
#{e\ 2920}#)))))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'lambda
|
|
(lambda (#{e\ 2933}#
|
|
#{r\ 2934}#
|
|
#{w\ 2935}#
|
|
#{s\ 2936}#
|
|
#{mod\ 2937}#)
|
|
((lambda (#{tmp\ 2943}#)
|
|
((lambda (#{tmp\ 2944}#)
|
|
(if (if #{tmp\ 2944}#
|
|
(apply (lambda (#{_\ 2950}#
|
|
#{args\ 2951}#
|
|
#{docstring\ 2952}#
|
|
#{e1\ 2953}#
|
|
#{e2\ 2954}#)
|
|
(string? (syntax->datum #{docstring\ 2952}#)))
|
|
#{tmp\ 2944}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 2960}#
|
|
#{args\ 2961}#
|
|
#{docstring\ 2962}#
|
|
#{e1\ 2963}#
|
|
#{e2\ 2964}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 363}# #{args\ 2961}#))
|
|
(lambda (#{req\ 2965}#
|
|
#{opt\ 2966}#
|
|
#{rest\ 2967}#
|
|
#{kw\ 2968}#)
|
|
(#{chi-simple-lambda\ 365}#
|
|
#{e\ 2933}#
|
|
#{r\ 2934}#
|
|
#{w\ 2935}#
|
|
#{s\ 2936}#
|
|
#{mod\ 2937}#
|
|
#{req\ 2965}#
|
|
#{rest\ 2967}#
|
|
(syntax->datum #{docstring\ 2962}#)
|
|
(cons #{e1\ 2963}# #{e2\ 2964}#)))))
|
|
#{tmp\ 2944}#)
|
|
((lambda (#{tmp\ 2974}#)
|
|
(if #{tmp\ 2974}#
|
|
(apply (lambda (#{_\ 2979}#
|
|
#{args\ 2980}#
|
|
#{e1\ 2981}#
|
|
#{e2\ 2982}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{lambda-formals\ 363}# #{args\ 2980}#))
|
|
(lambda (#{req\ 2983}#
|
|
#{opt\ 2984}#
|
|
#{rest\ 2985}#
|
|
#{kw\ 2986}#)
|
|
(#{chi-simple-lambda\ 365}#
|
|
#{e\ 2933}#
|
|
#{r\ 2934}#
|
|
#{w\ 2935}#
|
|
#{s\ 2936}#
|
|
#{mod\ 2937}#
|
|
#{req\ 2983}#
|
|
#{rest\ 2985}#
|
|
#f
|
|
(cons #{e1\ 2981}# #{e2\ 2982}#)))))
|
|
#{tmp\ 2974}#)
|
|
((lambda (#{_\ 2993}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda"
|
|
#{e\ 2933}#))
|
|
#{tmp\ 2943}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 2943}#
|
|
'(any any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 2943}#
|
|
'(any any any any . each-any))))
|
|
#{e\ 2933}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'lambda*
|
|
(lambda (#{e\ 2994}#
|
|
#{r\ 2995}#
|
|
#{w\ 2996}#
|
|
#{s\ 2997}#
|
|
#{mod\ 2998}#)
|
|
((lambda (#{tmp\ 3004}#)
|
|
((lambda (#{tmp\ 3005}#)
|
|
(if #{tmp\ 3005}#
|
|
(apply (lambda (#{_\ 3010}#
|
|
#{args\ 3011}#
|
|
#{e1\ 3012}#
|
|
#{e2\ 3013}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 369}#
|
|
#{e\ 2994}#
|
|
#{r\ 2995}#
|
|
#{w\ 2996}#
|
|
#{s\ 2997}#
|
|
#{mod\ 2998}#
|
|
#{lambda*-formals\ 367}#
|
|
(list (cons #{args\ 3011}#
|
|
(cons #{e1\ 3012}#
|
|
#{e2\ 3013}#)))))
|
|
(lambda (#{docstring\ 3015}# #{lcase\ 3016}#)
|
|
(#{build-case-lambda\ 204}#
|
|
#{s\ 2997}#
|
|
#{docstring\ 3015}#
|
|
#{lcase\ 3016}#))))
|
|
#{tmp\ 3005}#)
|
|
((lambda (#{_\ 3020}#)
|
|
(syntax-violation
|
|
'lambda
|
|
"bad lambda*"
|
|
#{e\ 2994}#))
|
|
#{tmp\ 3004}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3004}#
|
|
'(any any any . each-any))))
|
|
#{e\ 2994}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'case-lambda
|
|
(lambda (#{e\ 3021}#
|
|
#{r\ 3022}#
|
|
#{w\ 3023}#
|
|
#{s\ 3024}#
|
|
#{mod\ 3025}#)
|
|
((lambda (#{tmp\ 3031}#)
|
|
((lambda (#{tmp\ 3032}#)
|
|
(if #{tmp\ 3032}#
|
|
(apply (lambda (#{_\ 3040}#
|
|
#{args\ 3041}#
|
|
#{e1\ 3042}#
|
|
#{e2\ 3043}#
|
|
#{args*\ 3044}#
|
|
#{e1*\ 3045}#
|
|
#{e2*\ 3046}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 369}#
|
|
#{e\ 3021}#
|
|
#{r\ 3022}#
|
|
#{w\ 3023}#
|
|
#{s\ 3024}#
|
|
#{mod\ 3025}#
|
|
#{lambda-formals\ 363}#
|
|
(cons (cons #{args\ 3041}#
|
|
(cons #{e1\ 3042}# #{e2\ 3043}#))
|
|
(map (lambda (#{tmp\ 3050}#
|
|
#{tmp\ 3049}#
|
|
#{tmp\ 3048}#)
|
|
(cons #{tmp\ 3048}#
|
|
(cons #{tmp\ 3049}#
|
|
#{tmp\ 3050}#)))
|
|
#{e2*\ 3046}#
|
|
#{e1*\ 3045}#
|
|
#{args*\ 3044}#))))
|
|
(lambda (#{docstring\ 3052}# #{lcase\ 3053}#)
|
|
(#{build-case-lambda\ 204}#
|
|
#{s\ 3024}#
|
|
#{docstring\ 3052}#
|
|
#{lcase\ 3053}#))))
|
|
#{tmp\ 3032}#)
|
|
((lambda (#{_\ 3057}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda"
|
|
#{e\ 3021}#))
|
|
#{tmp\ 3031}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3031}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 3021}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'case-lambda*
|
|
(lambda (#{e\ 3058}#
|
|
#{r\ 3059}#
|
|
#{w\ 3060}#
|
|
#{s\ 3061}#
|
|
#{mod\ 3062}#)
|
|
((lambda (#{tmp\ 3068}#)
|
|
((lambda (#{tmp\ 3069}#)
|
|
(if #{tmp\ 3069}#
|
|
(apply (lambda (#{_\ 3077}#
|
|
#{args\ 3078}#
|
|
#{e1\ 3079}#
|
|
#{e2\ 3080}#
|
|
#{args*\ 3081}#
|
|
#{e1*\ 3082}#
|
|
#{e2*\ 3083}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{chi-lambda-case\ 369}#
|
|
#{e\ 3058}#
|
|
#{r\ 3059}#
|
|
#{w\ 3060}#
|
|
#{s\ 3061}#
|
|
#{mod\ 3062}#
|
|
#{lambda*-formals\ 367}#
|
|
(cons (cons #{args\ 3078}#
|
|
(cons #{e1\ 3079}# #{e2\ 3080}#))
|
|
(map (lambda (#{tmp\ 3087}#
|
|
#{tmp\ 3086}#
|
|
#{tmp\ 3085}#)
|
|
(cons #{tmp\ 3085}#
|
|
(cons #{tmp\ 3086}#
|
|
#{tmp\ 3087}#)))
|
|
#{e2*\ 3083}#
|
|
#{e1*\ 3082}#
|
|
#{args*\ 3081}#))))
|
|
(lambda (#{docstring\ 3089}# #{lcase\ 3090}#)
|
|
(#{build-case-lambda\ 204}#
|
|
#{s\ 3061}#
|
|
#{docstring\ 3089}#
|
|
#{lcase\ 3090}#))))
|
|
#{tmp\ 3069}#)
|
|
((lambda (#{_\ 3094}#)
|
|
(syntax-violation
|
|
'case-lambda
|
|
"bad case-lambda*"
|
|
#{e\ 3058}#))
|
|
#{tmp\ 3068}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3068}#
|
|
'(any (any any . each-any)
|
|
.
|
|
#(each (any any . each-any))))))
|
|
#{e\ 3058}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'let
|
|
(letrec ((#{chi-let\ 3096}#
|
|
(lambda (#{e\ 3097}#
|
|
#{r\ 3098}#
|
|
#{w\ 3099}#
|
|
#{s\ 3100}#
|
|
#{mod\ 3101}#
|
|
#{constructor\ 3102}#
|
|
#{ids\ 3103}#
|
|
#{vals\ 3104}#
|
|
#{exps\ 3105}#)
|
|
(if (not (#{valid-bound-ids?\ 323}# #{ids\ 3103}#))
|
|
(syntax-violation
|
|
'let
|
|
"duplicate bound variable"
|
|
#{e\ 3097}#)
|
|
(let ((#{labels\ 3117}#
|
|
(#{gen-labels\ 278}# #{ids\ 3103}#))
|
|
(#{new-vars\ 3118}#
|
|
(map #{gen-var\ 373}# #{ids\ 3103}#)))
|
|
(let ((#{nw\ 3121}#
|
|
(#{make-binding-wrap\ 307}#
|
|
#{ids\ 3103}#
|
|
#{labels\ 3117}#
|
|
#{w\ 3099}#))
|
|
(#{nr\ 3122}#
|
|
(#{extend-var-env\ 250}#
|
|
#{labels\ 3117}#
|
|
#{new-vars\ 3118}#
|
|
#{r\ 3098}#)))
|
|
(#{constructor\ 3102}#
|
|
#{s\ 3100}#
|
|
(map syntax->datum #{ids\ 3103}#)
|
|
#{new-vars\ 3118}#
|
|
(map (lambda (#{x\ 3123}#)
|
|
(#{chi\ 345}#
|
|
#{x\ 3123}#
|
|
#{r\ 3098}#
|
|
#{w\ 3099}#
|
|
#{mod\ 3101}#))
|
|
#{vals\ 3104}#)
|
|
(#{chi-body\ 353}#
|
|
#{exps\ 3105}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3097}#
|
|
#{nw\ 3121}#
|
|
#{s\ 3100}#
|
|
#{mod\ 3101}#)
|
|
#{nr\ 3122}#
|
|
#{nw\ 3121}#
|
|
#{mod\ 3101}#))))))))
|
|
(lambda (#{e\ 3125}#
|
|
#{r\ 3126}#
|
|
#{w\ 3127}#
|
|
#{s\ 3128}#
|
|
#{mod\ 3129}#)
|
|
((lambda (#{tmp\ 3135}#)
|
|
((lambda (#{tmp\ 3136}#)
|
|
(if (if #{tmp\ 3136}#
|
|
(apply (lambda (#{_\ 3142}#
|
|
#{id\ 3143}#
|
|
#{val\ 3144}#
|
|
#{e1\ 3145}#
|
|
#{e2\ 3146}#)
|
|
(and-map #{id?\ 260}# #{id\ 3143}#))
|
|
#{tmp\ 3136}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3153}#
|
|
#{id\ 3154}#
|
|
#{val\ 3155}#
|
|
#{e1\ 3156}#
|
|
#{e2\ 3157}#)
|
|
(#{chi-let\ 3096}#
|
|
#{e\ 3125}#
|
|
#{r\ 3126}#
|
|
#{w\ 3127}#
|
|
#{s\ 3128}#
|
|
#{mod\ 3129}#
|
|
#{build-let\ 214}#
|
|
#{id\ 3154}#
|
|
#{val\ 3155}#
|
|
(cons #{e1\ 3156}# #{e2\ 3157}#)))
|
|
#{tmp\ 3136}#)
|
|
((lambda (#{tmp\ 3161}#)
|
|
(if (if #{tmp\ 3161}#
|
|
(apply (lambda (#{_\ 3168}#
|
|
#{f\ 3169}#
|
|
#{id\ 3170}#
|
|
#{val\ 3171}#
|
|
#{e1\ 3172}#
|
|
#{e2\ 3173}#)
|
|
(if (#{id?\ 260}# #{f\ 3169}#)
|
|
(and-map #{id?\ 260}# #{id\ 3170}#)
|
|
#f))
|
|
#{tmp\ 3161}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3183}#
|
|
#{f\ 3184}#
|
|
#{id\ 3185}#
|
|
#{val\ 3186}#
|
|
#{e1\ 3187}#
|
|
#{e2\ 3188}#)
|
|
(#{chi-let\ 3096}#
|
|
#{e\ 3125}#
|
|
#{r\ 3126}#
|
|
#{w\ 3127}#
|
|
#{s\ 3128}#
|
|
#{mod\ 3129}#
|
|
#{build-named-let\ 216}#
|
|
(cons #{f\ 3184}# #{id\ 3185}#)
|
|
#{val\ 3186}#
|
|
(cons #{e1\ 3187}# #{e2\ 3188}#)))
|
|
#{tmp\ 3161}#)
|
|
((lambda (#{_\ 3193}#)
|
|
(syntax-violation
|
|
'let
|
|
"bad let"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3125}#
|
|
#{w\ 3127}#
|
|
#{s\ 3128}#
|
|
#{mod\ 3129}#)))
|
|
#{tmp\ 3135}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3135}#
|
|
'(any any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3135}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 3125}#))))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'letrec
|
|
(lambda (#{e\ 3194}#
|
|
#{r\ 3195}#
|
|
#{w\ 3196}#
|
|
#{s\ 3197}#
|
|
#{mod\ 3198}#)
|
|
((lambda (#{tmp\ 3204}#)
|
|
((lambda (#{tmp\ 3205}#)
|
|
(if (if #{tmp\ 3205}#
|
|
(apply (lambda (#{_\ 3211}#
|
|
#{id\ 3212}#
|
|
#{val\ 3213}#
|
|
#{e1\ 3214}#
|
|
#{e2\ 3215}#)
|
|
(and-map #{id?\ 260}# #{id\ 3212}#))
|
|
#{tmp\ 3205}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3222}#
|
|
#{id\ 3223}#
|
|
#{val\ 3224}#
|
|
#{e1\ 3225}#
|
|
#{e2\ 3226}#)
|
|
(let ((#{ids\ 3228}# #{id\ 3223}#))
|
|
(if (not (#{valid-bound-ids?\ 323}#
|
|
#{ids\ 3228}#))
|
|
(syntax-violation
|
|
'letrec
|
|
"duplicate bound variable"
|
|
#{e\ 3194}#)
|
|
(let ((#{labels\ 3232}#
|
|
(#{gen-labels\ 278}# #{ids\ 3228}#))
|
|
(#{new-vars\ 3233}#
|
|
(map #{gen-var\ 373}# #{ids\ 3228}#)))
|
|
(let ((#{w\ 3236}#
|
|
(#{make-binding-wrap\ 307}#
|
|
#{ids\ 3228}#
|
|
#{labels\ 3232}#
|
|
#{w\ 3196}#))
|
|
(#{r\ 3237}#
|
|
(#{extend-var-env\ 250}#
|
|
#{labels\ 3232}#
|
|
#{new-vars\ 3233}#
|
|
#{r\ 3195}#)))
|
|
(#{build-letrec\ 218}#
|
|
#{s\ 3197}#
|
|
(map syntax->datum #{ids\ 3228}#)
|
|
#{new-vars\ 3233}#
|
|
(map (lambda (#{x\ 3238}#)
|
|
(#{chi\ 345}#
|
|
#{x\ 3238}#
|
|
#{r\ 3237}#
|
|
#{w\ 3236}#
|
|
#{mod\ 3198}#))
|
|
#{val\ 3224}#)
|
|
(#{chi-body\ 353}#
|
|
(cons #{e1\ 3225}# #{e2\ 3226}#)
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3194}#
|
|
#{w\ 3236}#
|
|
#{s\ 3197}#
|
|
#{mod\ 3198}#)
|
|
#{r\ 3237}#
|
|
#{w\ 3236}#
|
|
#{mod\ 3198}#)))))))
|
|
#{tmp\ 3205}#)
|
|
((lambda (#{_\ 3243}#)
|
|
(syntax-violation
|
|
'letrec
|
|
"bad letrec"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3194}#
|
|
#{w\ 3196}#
|
|
#{s\ 3197}#
|
|
#{mod\ 3198}#)))
|
|
#{tmp\ 3204}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3204}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{e\ 3194}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'set!
|
|
(lambda (#{e\ 3244}#
|
|
#{r\ 3245}#
|
|
#{w\ 3246}#
|
|
#{s\ 3247}#
|
|
#{mod\ 3248}#)
|
|
((lambda (#{tmp\ 3254}#)
|
|
((lambda (#{tmp\ 3255}#)
|
|
(if (if #{tmp\ 3255}#
|
|
(apply (lambda (#{_\ 3259}# #{id\ 3260}# #{val\ 3261}#)
|
|
(#{id?\ 260}# #{id\ 3260}#))
|
|
#{tmp\ 3255}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3265}# #{id\ 3266}# #{val\ 3267}#)
|
|
(let ((#{val\ 3270}#
|
|
(#{chi\ 345}#
|
|
#{val\ 3267}#
|
|
#{r\ 3245}#
|
|
#{w\ 3246}#
|
|
#{mod\ 3248}#))
|
|
(#{n\ 3271}#
|
|
(#{id-var-name\ 317}#
|
|
#{id\ 3266}#
|
|
#{w\ 3246}#)))
|
|
(let ((#{b\ 3273}#
|
|
(#{lookup\ 254}#
|
|
#{n\ 3271}#
|
|
#{r\ 3245}#
|
|
#{mod\ 3248}#)))
|
|
(let ((#{atom-key\ 3276}#
|
|
(#{binding-type\ 243}# #{b\ 3273}#)))
|
|
(if (memv #{atom-key\ 3276}#
|
|
'(lexical))
|
|
(#{build-lexical-assignment\ 190}#
|
|
#{s\ 3247}#
|
|
(syntax->datum #{id\ 3266}#)
|
|
(#{binding-value\ 245}# #{b\ 3273}#)
|
|
#{val\ 3270}#)
|
|
(if (memv #{atom-key\ 3276}#
|
|
'(global))
|
|
(#{build-global-assignment\ 196}#
|
|
#{s\ 3247}#
|
|
#{n\ 3271}#
|
|
#{val\ 3270}#
|
|
#{mod\ 3248}#)
|
|
(if (memv #{atom-key\ 3276}#
|
|
'(displaced-lexical))
|
|
(syntax-violation
|
|
'set!
|
|
"identifier out of context"
|
|
(#{wrap\ 329}#
|
|
#{id\ 3266}#
|
|
#{w\ 3246}#
|
|
#{mod\ 3248}#))
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3244}#
|
|
#{w\ 3246}#
|
|
#{s\ 3247}#
|
|
#{mod\ 3248}#)))))))))
|
|
#{tmp\ 3255}#)
|
|
((lambda (#{tmp\ 3281}#)
|
|
(if #{tmp\ 3281}#
|
|
(apply (lambda (#{_\ 3286}#
|
|
#{head\ 3287}#
|
|
#{tail\ 3288}#
|
|
#{val\ 3289}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{syntax-type\ 341}#
|
|
#{head\ 3287}#
|
|
#{r\ 3245}#
|
|
'(())
|
|
#f
|
|
#f
|
|
#{mod\ 3248}#
|
|
#t))
|
|
(lambda (#{type\ 3292}#
|
|
#{value\ 3293}#
|
|
#{ee\ 3294}#
|
|
#{ww\ 3295}#
|
|
#{ss\ 3296}#
|
|
#{modmod\ 3297}#)
|
|
(if (memv #{type\ 3292}#
|
|
'(module-ref))
|
|
(let ((#{val\ 3306}#
|
|
(#{chi\ 345}#
|
|
#{val\ 3289}#
|
|
#{r\ 3245}#
|
|
#{w\ 3246}#
|
|
#{mod\ 3248}#)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{value\ 3293}#
|
|
(cons #{head\ 3287}#
|
|
#{tail\ 3288}#)))
|
|
(lambda (#{id\ 3308}# #{mod\ 3309}#)
|
|
(#{build-global-assignment\ 196}#
|
|
#{s\ 3247}#
|
|
#{id\ 3308}#
|
|
#{val\ 3306}#
|
|
#{mod\ 3309}#))))
|
|
(#{build-application\ 184}#
|
|
#{s\ 3247}#
|
|
(#{chi\ 345}#
|
|
(list '#(syntax-object
|
|
setter
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(type
|
|
value
|
|
ee
|
|
ww
|
|
ss
|
|
modmod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3298"
|
|
"i3299"
|
|
"i3300"
|
|
"i3301"
|
|
"i3302"
|
|
"i3303"))
|
|
#(ribcage
|
|
#(_ head tail val)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3282"
|
|
"i3283"
|
|
"i3284"
|
|
"i3285"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(e r w s mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3249"
|
|
"i3250"
|
|
"i3251"
|
|
"i3252"
|
|
"i3253"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile))
|
|
#{head\ 3287}#)
|
|
#{r\ 3245}#
|
|
#{w\ 3246}#
|
|
#{mod\ 3248}#)
|
|
(map (lambda (#{e\ 3313}#)
|
|
(#{chi\ 345}#
|
|
#{e\ 3313}#
|
|
#{r\ 3245}#
|
|
#{w\ 3246}#
|
|
#{mod\ 3248}#))
|
|
(append
|
|
#{tail\ 3288}#
|
|
(list #{val\ 3289}#))))))))
|
|
#{tmp\ 3281}#)
|
|
((lambda (#{_\ 3317}#)
|
|
(syntax-violation
|
|
'set!
|
|
"bad set!"
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3244}#
|
|
#{w\ 3246}#
|
|
#{s\ 3247}#
|
|
#{mod\ 3248}#)))
|
|
#{tmp\ 3254}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3254}#
|
|
'(any (any . each-any) any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3254}#
|
|
'(any any any))))
|
|
#{e\ 3244}#)))
|
|
(#{global-extend\ 256}#
|
|
'module-ref
|
|
'@
|
|
(lambda (#{e\ 3318}#)
|
|
((lambda (#{tmp\ 3320}#)
|
|
((lambda (#{tmp\ 3321}#)
|
|
(if (if #{tmp\ 3321}#
|
|
(apply (lambda (#{_\ 3325}# #{mod\ 3326}# #{id\ 3327}#)
|
|
(if (and-map #{id?\ 260}# #{mod\ 3326}#)
|
|
(#{id?\ 260}# #{id\ 3327}#)
|
|
#f))
|
|
#{tmp\ 3321}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3334}# #{mod\ 3335}# #{id\ 3336}#)
|
|
(values
|
|
(syntax->datum #{id\ 3336}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
public
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i3331" "i3332" "i3333"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i3319"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile))
|
|
#{mod\ 3335}#))))
|
|
#{tmp\ 3321}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3320}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3320}#
|
|
'(any each-any any))))
|
|
#{e\ 3318}#)))
|
|
(#{global-extend\ 256}#
|
|
'module-ref
|
|
'@@
|
|
(lambda (#{e\ 3338}#)
|
|
((lambda (#{tmp\ 3340}#)
|
|
((lambda (#{tmp\ 3341}#)
|
|
(if (if #{tmp\ 3341}#
|
|
(apply (lambda (#{_\ 3345}# #{mod\ 3346}# #{id\ 3347}#)
|
|
(if (and-map #{id?\ 260}# #{mod\ 3346}#)
|
|
(#{id?\ 260}# #{id\ 3347}#)
|
|
#f))
|
|
#{tmp\ 3341}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 3354}# #{mod\ 3355}# #{id\ 3356}#)
|
|
(values
|
|
(syntax->datum #{id\ 3356}#)
|
|
(syntax->datum
|
|
(cons '#(syntax-object
|
|
private
|
|
((top)
|
|
#(ribcage
|
|
#(_ mod id)
|
|
#((top) (top) (top))
|
|
#("i3351" "i3352" "i3353"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(e) #((top)) #("i3339"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile))
|
|
#{mod\ 3355}#))))
|
|
#{tmp\ 3341}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3340}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3340}#
|
|
'(any each-any any))))
|
|
#{e\ 3338}#)))
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'if
|
|
(lambda (#{e\ 3358}#
|
|
#{r\ 3359}#
|
|
#{w\ 3360}#
|
|
#{s\ 3361}#
|
|
#{mod\ 3362}#)
|
|
((lambda (#{tmp\ 3368}#)
|
|
((lambda (#{tmp\ 3369}#)
|
|
(if #{tmp\ 3369}#
|
|
(apply (lambda (#{_\ 3373}# #{test\ 3374}# #{then\ 3375}#)
|
|
(#{build-conditional\ 186}#
|
|
#{s\ 3361}#
|
|
(#{chi\ 345}#
|
|
#{test\ 3374}#
|
|
#{r\ 3359}#
|
|
#{w\ 3360}#
|
|
#{mod\ 3362}#)
|
|
(#{chi\ 345}#
|
|
#{then\ 3375}#
|
|
#{r\ 3359}#
|
|
#{w\ 3360}#
|
|
#{mod\ 3362}#)
|
|
(#{build-void\ 182}# #f)))
|
|
#{tmp\ 3369}#)
|
|
((lambda (#{tmp\ 3377}#)
|
|
(if #{tmp\ 3377}#
|
|
(apply (lambda (#{_\ 3382}#
|
|
#{test\ 3383}#
|
|
#{then\ 3384}#
|
|
#{else\ 3385}#)
|
|
(#{build-conditional\ 186}#
|
|
#{s\ 3361}#
|
|
(#{chi\ 345}#
|
|
#{test\ 3383}#
|
|
#{r\ 3359}#
|
|
#{w\ 3360}#
|
|
#{mod\ 3362}#)
|
|
(#{chi\ 345}#
|
|
#{then\ 3384}#
|
|
#{r\ 3359}#
|
|
#{w\ 3360}#
|
|
#{mod\ 3362}#)
|
|
(#{chi\ 345}#
|
|
#{else\ 3385}#
|
|
#{r\ 3359}#
|
|
#{w\ 3360}#
|
|
#{mod\ 3362}#)))
|
|
#{tmp\ 3377}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3368}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3368}#
|
|
'(any any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3368}#
|
|
'(any any any))))
|
|
#{e\ 3358}#)))
|
|
(#{global-extend\ 256}#
|
|
'begin
|
|
'begin
|
|
'())
|
|
(#{global-extend\ 256}#
|
|
'define
|
|
'define
|
|
'())
|
|
(#{global-extend\ 256}#
|
|
'define-syntax
|
|
'define-syntax
|
|
'())
|
|
(#{global-extend\ 256}#
|
|
'eval-when
|
|
'eval-when
|
|
'())
|
|
(#{global-extend\ 256}#
|
|
'core
|
|
'syntax-case
|
|
(letrec ((#{gen-syntax-case\ 3393}#
|
|
(lambda (#{x\ 3394}#
|
|
#{keys\ 3395}#
|
|
#{clauses\ 3396}#
|
|
#{r\ 3397}#
|
|
#{mod\ 3398}#)
|
|
(if (null? #{clauses\ 3396}#)
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}#
|
|
#f
|
|
'syntax-violation)
|
|
(list (#{build-data\ 210}# #f #f)
|
|
(#{build-data\ 210}#
|
|
#f
|
|
"source expression failed to match any pattern")
|
|
#{x\ 3394}#))
|
|
((lambda (#{tmp\ 3408}#)
|
|
((lambda (#{tmp\ 3409}#)
|
|
(if #{tmp\ 3409}#
|
|
(apply (lambda (#{pat\ 3412}# #{exp\ 3413}#)
|
|
(if (if (#{id?\ 260}# #{pat\ 3412}#)
|
|
(and-map
|
|
(lambda (#{x\ 3416}#)
|
|
(not (#{free-id=?\ 319}#
|
|
#{pat\ 3412}#
|
|
#{x\ 3416}#)))
|
|
(cons '#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(pat exp)
|
|
#((top) (top))
|
|
#("i3410" "i3411"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x
|
|
keys
|
|
clauses
|
|
r
|
|
mod)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3399"
|
|
"i3400"
|
|
"i3401"
|
|
"i3402"
|
|
"i3403"))
|
|
#(ribcage
|
|
(gen-syntax-case
|
|
gen-clause
|
|
build-dispatch-call
|
|
convert-pattern)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i3392"
|
|
"i3390"
|
|
"i3388"
|
|
"i3386"))
|
|
#(ribcage
|
|
(lambda-var-list
|
|
gen-var
|
|
strip
|
|
chi-lambda-case
|
|
lambda*-formals
|
|
chi-simple-lambda
|
|
lambda-formals
|
|
ellipsis?
|
|
chi-void
|
|
eval-local-transformer
|
|
chi-local-syntax
|
|
chi-body
|
|
chi-macro
|
|
chi-application
|
|
chi-expr
|
|
chi
|
|
chi-top
|
|
syntax-type
|
|
chi-when-list
|
|
chi-install-global
|
|
chi-top-sequence
|
|
chi-sequence
|
|
source-wrap
|
|
wrap
|
|
bound-id-member?
|
|
distinct-bound-ids?
|
|
valid-bound-ids?
|
|
bound-id=?
|
|
free-id=?
|
|
id-var-name
|
|
same-marks?
|
|
join-marks
|
|
join-wraps
|
|
smart-append
|
|
make-binding-wrap
|
|
extend-ribcage!
|
|
make-empty-ribcage
|
|
new-mark
|
|
anti-mark
|
|
the-anti-mark
|
|
top-marked?
|
|
top-wrap
|
|
empty-wrap
|
|
set-ribcage-labels!
|
|
set-ribcage-marks!
|
|
set-ribcage-symnames!
|
|
ribcage-labels
|
|
ribcage-marks
|
|
ribcage-symnames
|
|
ribcage?
|
|
make-ribcage
|
|
gen-labels
|
|
gen-label
|
|
make-rename
|
|
rename-marks
|
|
rename-new
|
|
rename-old
|
|
subst-rename?
|
|
wrap-subst
|
|
wrap-marks
|
|
make-wrap
|
|
id-sym-name&marks
|
|
id-sym-name
|
|
id?
|
|
nonsymbol-id?
|
|
global-extend
|
|
lookup
|
|
macros-only-env
|
|
extend-var-env
|
|
extend-env
|
|
null-env
|
|
binding-value
|
|
binding-type
|
|
make-binding
|
|
arg-check
|
|
source-annotation
|
|
no-source
|
|
set-syntax-object-module!
|
|
set-syntax-object-wrap!
|
|
set-syntax-object-expression!
|
|
syntax-object-module
|
|
syntax-object-wrap
|
|
syntax-object-expression
|
|
syntax-object?
|
|
make-syntax-object
|
|
build-lexical-var
|
|
build-letrec
|
|
build-named-let
|
|
build-let
|
|
build-sequence
|
|
build-data
|
|
build-primref
|
|
build-lambda-case
|
|
build-case-lambda
|
|
build-simple-lambda
|
|
build-global-definition
|
|
maybe-name-value!
|
|
build-global-assignment
|
|
build-global-reference
|
|
analyze-variable
|
|
build-lexical-assignment
|
|
build-lexical-reference
|
|
build-conditional
|
|
build-application
|
|
build-void
|
|
decorate-source
|
|
get-global-definition-hook
|
|
put-global-definition-hook
|
|
gensym-hook
|
|
local-eval-hook
|
|
top-level-eval-hook
|
|
fx<
|
|
fx=
|
|
fx-
|
|
fx+
|
|
*mode*
|
|
noexpand)
|
|
((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
("i374"
|
|
"i372"
|
|
"i370"
|
|
"i368"
|
|
"i366"
|
|
"i364"
|
|
"i362"
|
|
"i360"
|
|
"i358"
|
|
"i356"
|
|
"i354"
|
|
"i352"
|
|
"i350"
|
|
"i348"
|
|
"i346"
|
|
"i344"
|
|
"i342"
|
|
"i340"
|
|
"i338"
|
|
"i336"
|
|
"i334"
|
|
"i332"
|
|
"i330"
|
|
"i328"
|
|
"i326"
|
|
"i324"
|
|
"i322"
|
|
"i320"
|
|
"i318"
|
|
"i316"
|
|
"i314"
|
|
"i312"
|
|
"i310"
|
|
"i308"
|
|
"i306"
|
|
"i304"
|
|
"i303"
|
|
"i302"
|
|
"i300"
|
|
"i299"
|
|
"i298"
|
|
"i297"
|
|
"i296"
|
|
"i294"
|
|
"i292"
|
|
"i290"
|
|
"i288"
|
|
"i286"
|
|
"i284"
|
|
"i282"
|
|
"i280"
|
|
"i277"
|
|
"i275"
|
|
"i274"
|
|
"i273"
|
|
"i272"
|
|
"i271"
|
|
"i270"
|
|
"i268"
|
|
"i266"
|
|
"i264"
|
|
"i262"
|
|
"i261"
|
|
"i259"
|
|
"i257"
|
|
"i255"
|
|
"i253"
|
|
"i251"
|
|
"i249"
|
|
"i247"
|
|
"i246"
|
|
"i244"
|
|
"i242"
|
|
"i241"
|
|
"i240"
|
|
"i238"
|
|
"i237"
|
|
"i235"
|
|
"i233"
|
|
"i231"
|
|
"i229"
|
|
"i227"
|
|
"i225"
|
|
"i223"
|
|
"i221"
|
|
"i219"
|
|
"i217"
|
|
"i215"
|
|
"i213"
|
|
"i211"
|
|
"i209"
|
|
"i207"
|
|
"i205"
|
|
"i203"
|
|
"i201"
|
|
"i199"
|
|
"i197"
|
|
"i195"
|
|
"i193"
|
|
"i191"
|
|
"i189"
|
|
"i187"
|
|
"i185"
|
|
"i183"
|
|
"i181"
|
|
"i179"
|
|
"i177"
|
|
"i175"
|
|
"i174"
|
|
"i172"
|
|
"i170"
|
|
"i168"
|
|
"i166"
|
|
"i164"
|
|
"i162"
|
|
"i160"
|
|
"i158"))
|
|
#(ribcage
|
|
(define-structure
|
|
and-map*)
|
|
((top) (top))
|
|
("i61" "i59")))
|
|
(hygiene guile))
|
|
#{keys\ 3395}#))
|
|
#f)
|
|
(let ((#{labels\ 3420}#
|
|
(list (#{gen-label\ 276}#)))
|
|
(#{var\ 3421}#
|
|
(#{gen-var\ 373}#
|
|
#{pat\ 3412}#)))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-simple-lambda\ 202}#
|
|
#f
|
|
(list (syntax->datum
|
|
#{pat\ 3412}#))
|
|
#f
|
|
(list #{var\ 3421}#)
|
|
#f
|
|
(#{chi\ 345}#
|
|
#{exp\ 3413}#
|
|
(#{extend-env\ 248}#
|
|
#{labels\ 3420}#
|
|
(list (cons 'syntax
|
|
(cons #{var\ 3421}#
|
|
0)))
|
|
#{r\ 3397}#)
|
|
(#{make-binding-wrap\ 307}#
|
|
(list #{pat\ 3412}#)
|
|
#{labels\ 3420}#
|
|
'(()))
|
|
#{mod\ 3398}#))
|
|
(list #{x\ 3394}#)))
|
|
(#{gen-clause\ 3391}#
|
|
#{x\ 3394}#
|
|
#{keys\ 3395}#
|
|
(cdr #{clauses\ 3396}#)
|
|
#{r\ 3397}#
|
|
#{pat\ 3412}#
|
|
#t
|
|
#{exp\ 3413}#
|
|
#{mod\ 3398}#)))
|
|
#{tmp\ 3409}#)
|
|
((lambda (#{tmp\ 3427}#)
|
|
(if #{tmp\ 3427}#
|
|
(apply (lambda (#{pat\ 3431}#
|
|
#{fender\ 3432}#
|
|
#{exp\ 3433}#)
|
|
(#{gen-clause\ 3391}#
|
|
#{x\ 3394}#
|
|
#{keys\ 3395}#
|
|
(cdr #{clauses\ 3396}#)
|
|
#{r\ 3397}#
|
|
#{pat\ 3431}#
|
|
#{fender\ 3432}#
|
|
#{exp\ 3433}#
|
|
#{mod\ 3398}#))
|
|
#{tmp\ 3427}#)
|
|
((lambda (#{_\ 3435}#)
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid clause"
|
|
(car #{clauses\ 3396}#)))
|
|
#{tmp\ 3408}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3408}#
|
|
'(any any any)))))
|
|
($sc-dispatch #{tmp\ 3408}# (quote (any any)))))
|
|
(car #{clauses\ 3396}#)))))
|
|
(#{gen-clause\ 3391}#
|
|
(lambda (#{x\ 3436}#
|
|
#{keys\ 3437}#
|
|
#{clauses\ 3438}#
|
|
#{r\ 3439}#
|
|
#{pat\ 3440}#
|
|
#{fender\ 3441}#
|
|
#{exp\ 3442}#
|
|
#{mod\ 3443}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{convert-pattern\ 3387}#
|
|
#{pat\ 3440}#
|
|
#{keys\ 3437}#))
|
|
(lambda (#{p\ 3452}# #{pvars\ 3453}#)
|
|
(if (not (#{distinct-bound-ids?\ 325}#
|
|
(map car #{pvars\ 3453}#)))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"duplicate pattern variable"
|
|
#{pat\ 3440}#)
|
|
(if (not (and-map
|
|
(lambda (#{x\ 3460}#)
|
|
(not (#{ellipsis?\ 361}#
|
|
(car #{x\ 3460}#))))
|
|
#{pvars\ 3453}#))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"misplaced ellipsis"
|
|
#{pat\ 3440}#)
|
|
(let ((#{y\ 3464}#
|
|
(#{gen-var\ 373}# (quote tmp))))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-simple-lambda\ 202}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{y\ 3464}#)
|
|
#f
|
|
(let ((#{y\ 3468}#
|
|
(#{build-lexical-reference\ 188}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{y\ 3464}#)))
|
|
(#{build-conditional\ 186}#
|
|
#f
|
|
((lambda (#{tmp\ 3471}#)
|
|
((lambda (#{tmp\ 3472}#)
|
|
(if #{tmp\ 3472}#
|
|
(apply (lambda () #{y\ 3468}#)
|
|
#{tmp\ 3472}#)
|
|
((lambda (#{_\ 3474}#)
|
|
(#{build-conditional\ 186}#
|
|
#f
|
|
#{y\ 3468}#
|
|
(#{build-dispatch-call\ 3389}#
|
|
#{pvars\ 3453}#
|
|
#{fender\ 3441}#
|
|
#{y\ 3468}#
|
|
#{r\ 3439}#
|
|
#{mod\ 3443}#)
|
|
(#{build-data\ 210}#
|
|
#f
|
|
#f)))
|
|
#{tmp\ 3471}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3471}#
|
|
'#(atom #t))))
|
|
#{fender\ 3441}#)
|
|
(#{build-dispatch-call\ 3389}#
|
|
#{pvars\ 3453}#
|
|
#{exp\ 3442}#
|
|
#{y\ 3468}#
|
|
#{r\ 3439}#
|
|
#{mod\ 3443}#)
|
|
(#{gen-syntax-case\ 3393}#
|
|
#{x\ 3436}#
|
|
#{keys\ 3437}#
|
|
#{clauses\ 3438}#
|
|
#{r\ 3439}#
|
|
#{mod\ 3443}#))))
|
|
(list (if (eq? #{p\ 3452}# (quote any))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}#
|
|
#f
|
|
'list)
|
|
(list #{x\ 3436}#))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}#
|
|
#f
|
|
'$sc-dispatch)
|
|
(list #{x\ 3436}#
|
|
(#{build-data\ 210}#
|
|
#f
|
|
#{p\ 3452}#)))))))))))))
|
|
(#{build-dispatch-call\ 3389}#
|
|
(lambda (#{pvars\ 3482}#
|
|
#{exp\ 3483}#
|
|
#{y\ 3484}#
|
|
#{r\ 3485}#
|
|
#{mod\ 3486}#)
|
|
(let ((#{ids\ 3494}# (map car #{pvars\ 3482}#))
|
|
(#{levels\ 3495}# (map cdr #{pvars\ 3482}#)))
|
|
(let ((#{labels\ 3498}#
|
|
(#{gen-labels\ 278}# #{ids\ 3494}#))
|
|
(#{new-vars\ 3499}#
|
|
(map #{gen-var\ 373}# #{ids\ 3494}#)))
|
|
(#{build-application\ 184}#
|
|
#f
|
|
(#{build-primref\ 208}# #f (quote apply))
|
|
(list (#{build-simple-lambda\ 202}#
|
|
#f
|
|
(map syntax->datum #{ids\ 3494}#)
|
|
#f
|
|
#{new-vars\ 3499}#
|
|
#f
|
|
(#{chi\ 345}#
|
|
#{exp\ 3483}#
|
|
(#{extend-env\ 248}#
|
|
#{labels\ 3498}#
|
|
(map (lambda (#{var\ 3503}#
|
|
#{level\ 3504}#)
|
|
(cons 'syntax
|
|
(cons #{var\ 3503}#
|
|
#{level\ 3504}#)))
|
|
#{new-vars\ 3499}#
|
|
(map cdr #{pvars\ 3482}#))
|
|
#{r\ 3485}#)
|
|
(#{make-binding-wrap\ 307}#
|
|
#{ids\ 3494}#
|
|
#{labels\ 3498}#
|
|
'(()))
|
|
#{mod\ 3486}#))
|
|
#{y\ 3484}#))))))
|
|
(#{convert-pattern\ 3387}#
|
|
(lambda (#{pattern\ 3510}# #{keys\ 3511}#)
|
|
(letrec ((#{cvt\ 3517}#
|
|
(lambda (#{p\ 3518}# #{n\ 3519}# #{ids\ 3520}#)
|
|
(if (#{id?\ 260}# #{p\ 3518}#)
|
|
(if (#{bound-id-member?\ 327}#
|
|
#{p\ 3518}#
|
|
#{keys\ 3511}#)
|
|
(values
|
|
(vector (quote free-id) #{p\ 3518}#)
|
|
#{ids\ 3520}#)
|
|
(values
|
|
'any
|
|
(cons (cons #{p\ 3518}# #{n\ 3519}#)
|
|
#{ids\ 3520}#)))
|
|
((lambda (#{tmp\ 3524}#)
|
|
((lambda (#{tmp\ 3525}#)
|
|
(if (if #{tmp\ 3525}#
|
|
(apply (lambda (#{x\ 3528}#
|
|
#{dots\ 3529}#)
|
|
(#{ellipsis?\ 361}#
|
|
#{dots\ 3529}#))
|
|
#{tmp\ 3525}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 3532}#
|
|
#{dots\ 3533}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3517}#
|
|
#{x\ 3532}#
|
|
(#{fx+\ 163}#
|
|
#{n\ 3519}#
|
|
1)
|
|
#{ids\ 3520}#))
|
|
(lambda (#{p\ 3534}#
|
|
#{ids\ 3535}#)
|
|
(values
|
|
(if (eq? #{p\ 3534}#
|
|
'any)
|
|
'each-any
|
|
(vector
|
|
'each
|
|
#{p\ 3534}#))
|
|
#{ids\ 3535}#))))
|
|
#{tmp\ 3525}#)
|
|
((lambda (#{tmp\ 3538}#)
|
|
(if (if #{tmp\ 3538}#
|
|
(apply (lambda (#{x\ 3542}#
|
|
#{dots\ 3543}#
|
|
#{ys\ 3544}#)
|
|
(#{ellipsis?\ 361}#
|
|
#{dots\ 3543}#))
|
|
#{tmp\ 3538}#)
|
|
#f)
|
|
(apply (lambda (#{x\ 3548}#
|
|
#{dots\ 3549}#
|
|
#{ys\ 3550}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 3515}#
|
|
#{ys\ 3550}#
|
|
#{n\ 3519}#
|
|
#{ids\ 3520}#))
|
|
(lambda (#{ys\ 3552}#
|
|
#{ids\ 3553}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3517}#
|
|
#{x\ 3548}#
|
|
(+ #{n\ 3519}#
|
|
1)
|
|
#{ids\ 3553}#))
|
|
(lambda (#{x\ 3556}#
|
|
#{ids\ 3557}#)
|
|
(values
|
|
(list->vector
|
|
(cons 'each+
|
|
(cons #{x\ 3556}#
|
|
(cons (reverse
|
|
#{ys\ 3552}#)
|
|
'(())))))
|
|
#{ids\ 3557}#))))))
|
|
#{tmp\ 3538}#)
|
|
((lambda (#{tmp\ 3561}#)
|
|
(if #{tmp\ 3561}#
|
|
(apply (lambda (#{x\ 3564}#
|
|
#{y\ 3565}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3517}#
|
|
#{y\ 3565}#
|
|
#{n\ 3519}#
|
|
#{ids\ 3520}#))
|
|
(lambda (#{y\ 3566}#
|
|
#{ids\ 3567}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3517}#
|
|
#{x\ 3564}#
|
|
#{n\ 3519}#
|
|
#{ids\ 3567}#))
|
|
(lambda (#{x\ 3570}#
|
|
#{ids\ 3571}#)
|
|
(values
|
|
(cons #{x\ 3570}#
|
|
#{y\ 3566}#)
|
|
#{ids\ 3571}#))))))
|
|
#{tmp\ 3561}#)
|
|
((lambda (#{tmp\ 3574}#)
|
|
(if #{tmp\ 3574}#
|
|
(apply (lambda ()
|
|
(values
|
|
'()
|
|
#{ids\ 3520}#))
|
|
#{tmp\ 3574}#)
|
|
((lambda (#{tmp\ 3575}#)
|
|
(if #{tmp\ 3575}#
|
|
(apply (lambda (#{x\ 3577}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3517}#
|
|
#{x\ 3577}#
|
|
#{n\ 3519}#
|
|
#{ids\ 3520}#))
|
|
(lambda (#{p\ 3579}#
|
|
#{ids\ 3580}#)
|
|
(values
|
|
(vector
|
|
'vector
|
|
#{p\ 3579}#)
|
|
#{ids\ 3580}#))))
|
|
#{tmp\ 3575}#)
|
|
((lambda (#{x\ 3584}#)
|
|
(values
|
|
(vector
|
|
'atom
|
|
(#{strip\ 371}#
|
|
#{p\ 3518}#
|
|
'(())))
|
|
#{ids\ 3520}#))
|
|
#{tmp\ 3524}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3524}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3524}#
|
|
'()))))
|
|
($sc-dispatch
|
|
#{tmp\ 3524}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3524}#
|
|
'(any any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3524}#
|
|
'(any any))))
|
|
#{p\ 3518}#))))
|
|
(#{cvt*\ 3515}#
|
|
(lambda (#{p*\ 3586}#
|
|
#{n\ 3587}#
|
|
#{ids\ 3588}#)
|
|
(if (null? #{p*\ 3586}#)
|
|
(values (quote ()) #{ids\ 3588}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt*\ 3515}#
|
|
(cdr #{p*\ 3586}#)
|
|
#{n\ 3587}#
|
|
#{ids\ 3588}#))
|
|
(lambda (#{y\ 3592}# #{ids\ 3593}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{cvt\ 3517}#
|
|
(car #{p*\ 3586}#)
|
|
#{n\ 3587}#
|
|
#{ids\ 3593}#))
|
|
(lambda (#{x\ 3596}# #{ids\ 3597}#)
|
|
(values
|
|
(cons #{x\ 3596}# #{y\ 3592}#)
|
|
#{ids\ 3597}#)))))))))
|
|
(#{cvt\ 3517}# #{pattern\ 3510}# 0 (quote ()))))))
|
|
(lambda (#{e\ 3600}#
|
|
#{r\ 3601}#
|
|
#{w\ 3602}#
|
|
#{s\ 3603}#
|
|
#{mod\ 3604}#)
|
|
(let ((#{e\ 3611}#
|
|
(#{source-wrap\ 331}#
|
|
#{e\ 3600}#
|
|
#{w\ 3602}#
|
|
#{s\ 3603}#
|
|
#{mod\ 3604}#)))
|
|
((lambda (#{tmp\ 3612}#)
|
|
((lambda (#{tmp\ 3613}#)
|
|
(if #{tmp\ 3613}#
|
|
(apply (lambda (#{_\ 3618}#
|
|
#{val\ 3619}#
|
|
#{key\ 3620}#
|
|
#{m\ 3621}#)
|
|
(if (and-map
|
|
(lambda (#{x\ 3622}#)
|
|
(if (#{id?\ 260}# #{x\ 3622}#)
|
|
(not (#{ellipsis?\ 361}# #{x\ 3622}#))
|
|
#f))
|
|
#{key\ 3620}#)
|
|
(let ((#{x\ 3628}#
|
|
(#{gen-var\ 373}# (quote tmp))))
|
|
(#{build-application\ 184}#
|
|
#{s\ 3603}#
|
|
(#{build-simple-lambda\ 202}#
|
|
#f
|
|
(list (quote tmp))
|
|
#f
|
|
(list #{x\ 3628}#)
|
|
#f
|
|
(#{gen-syntax-case\ 3393}#
|
|
(#{build-lexical-reference\ 188}#
|
|
'value
|
|
#f
|
|
'tmp
|
|
#{x\ 3628}#)
|
|
#{key\ 3620}#
|
|
#{m\ 3621}#
|
|
#{r\ 3601}#
|
|
#{mod\ 3604}#))
|
|
(list (#{chi\ 345}#
|
|
#{val\ 3619}#
|
|
#{r\ 3601}#
|
|
'(())
|
|
#{mod\ 3604}#))))
|
|
(syntax-violation
|
|
'syntax-case
|
|
"invalid literals list"
|
|
#{e\ 3611}#)))
|
|
#{tmp\ 3613}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3612}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3612}#
|
|
'(any any each-any . each-any))))
|
|
#{e\ 3611}#)))))
|
|
(set! sc-expand
|
|
(lambda (#{x\ 3634}# . #{rest\ 3635}#)
|
|
(if (if (pair? #{x\ 3634}#)
|
|
(equal? (car #{x\ 3634}#) #{noexpand\ 159}#)
|
|
#f)
|
|
(cadr #{x\ 3634}#)
|
|
(let ((#{m\ 3642}#
|
|
(if (null? #{rest\ 3635}#)
|
|
'e
|
|
(car #{rest\ 3635}#)))
|
|
(#{esew\ 3643}#
|
|
(if (let ((#{t\ 3646}# (null? #{rest\ 3635}#)))
|
|
(if #{t\ 3646}#
|
|
#{t\ 3646}#
|
|
(null? (cdr #{rest\ 3635}#))))
|
|
'(eval)
|
|
(cadr #{rest\ 3635}#))))
|
|
(with-fluid*
|
|
#{*mode*\ 161}#
|
|
#{m\ 3642}#
|
|
(lambda ()
|
|
(#{chi-top\ 343}#
|
|
#{x\ 3634}#
|
|
'()
|
|
'((top))
|
|
#{m\ 3642}#
|
|
#{esew\ 3643}#
|
|
(cons 'hygiene
|
|
(module-name (current-module))))))))))
|
|
(set! identifier?
|
|
(lambda (#{x\ 3650}#)
|
|
(#{nonsymbol-id?\ 258}# #{x\ 3650}#)))
|
|
(set! datum->syntax
|
|
(lambda (#{id\ 3652}# #{datum\ 3653}#)
|
|
(#{make-syntax-object\ 222}#
|
|
#{datum\ 3653}#
|
|
(#{syntax-object-wrap\ 228}# #{id\ 3652}#)
|
|
#f)))
|
|
(set! syntax->datum
|
|
(lambda (#{x\ 3656}#)
|
|
(#{strip\ 371}# #{x\ 3656}# (quote (())))))
|
|
(set! generate-temporaries
|
|
(lambda (#{ls\ 3659}#)
|
|
(begin
|
|
(let ((#{x\ 3663}# #{ls\ 3659}#))
|
|
(if (not (list? #{x\ 3663}#))
|
|
(syntax-violation
|
|
'generate-temporaries
|
|
"invalid argument"
|
|
#{x\ 3663}#)))
|
|
(map (lambda (#{x\ 3664}#)
|
|
(#{wrap\ 329}# (gensym) (quote ((top))) #f))
|
|
#{ls\ 3659}#))))
|
|
(set! free-identifier=?
|
|
(lambda (#{x\ 3668}# #{y\ 3669}#)
|
|
(begin
|
|
(let ((#{x\ 3674}# #{x\ 3668}#))
|
|
(if (not (#{nonsymbol-id?\ 258}# #{x\ 3674}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3674}#)))
|
|
(let ((#{x\ 3677}# #{y\ 3669}#))
|
|
(if (not (#{nonsymbol-id?\ 258}# #{x\ 3677}#))
|
|
(syntax-violation
|
|
'free-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3677}#)))
|
|
(#{free-id=?\ 319}# #{x\ 3668}# #{y\ 3669}#))))
|
|
(set! bound-identifier=?
|
|
(lambda (#{x\ 3678}# #{y\ 3679}#)
|
|
(begin
|
|
(let ((#{x\ 3684}# #{x\ 3678}#))
|
|
(if (not (#{nonsymbol-id?\ 258}# #{x\ 3684}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3684}#)))
|
|
(let ((#{x\ 3687}# #{y\ 3679}#))
|
|
(if (not (#{nonsymbol-id?\ 258}# #{x\ 3687}#))
|
|
(syntax-violation
|
|
'bound-identifier=?
|
|
"invalid argument"
|
|
#{x\ 3687}#)))
|
|
(#{bound-id=?\ 321}# #{x\ 3678}# #{y\ 3679}#))))
|
|
(set! syntax-violation
|
|
(lambda (#{who\ 3688}#
|
|
#{message\ 3689}#
|
|
#{form\ 3690}#
|
|
.
|
|
#{subform\ 3691}#)
|
|
(begin
|
|
(let ((#{x\ 3698}# #{who\ 3688}#))
|
|
(if (not ((lambda (#{x\ 3699}#)
|
|
(let ((#{t\ 3703}# (not #{x\ 3699}#)))
|
|
(if #{t\ 3703}#
|
|
#{t\ 3703}#
|
|
(let ((#{t\ 3706}# (string? #{x\ 3699}#)))
|
|
(if #{t\ 3706}#
|
|
#{t\ 3706}#
|
|
(symbol? #{x\ 3699}#))))))
|
|
#{x\ 3698}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 3698}#)))
|
|
(let ((#{x\ 3710}# #{message\ 3689}#))
|
|
(if (not (string? #{x\ 3710}#))
|
|
(syntax-violation
|
|
'syntax-violation
|
|
"invalid argument"
|
|
#{x\ 3710}#)))
|
|
(scm-error
|
|
'syntax-error
|
|
'sc-expand
|
|
(string-append
|
|
(if #{who\ 3688}# "~a: " "")
|
|
"~a "
|
|
(if (null? #{subform\ 3691}#)
|
|
"in ~a"
|
|
"in subform `~s' of `~s'"))
|
|
(let ((#{tail\ 3712}#
|
|
(cons #{message\ 3689}#
|
|
(map (lambda (#{x\ 3713}#)
|
|
(#{strip\ 371}# #{x\ 3713}# (quote (()))))
|
|
(append
|
|
#{subform\ 3691}#
|
|
(list #{form\ 3690}#))))))
|
|
(if #{who\ 3688}#
|
|
(cons #{who\ 3688}# #{tail\ 3712}#)
|
|
#{tail\ 3712}#))
|
|
#f))))
|
|
(letrec ((#{match\ 3729}#
|
|
(lambda (#{e\ 3730}#
|
|
#{p\ 3731}#
|
|
#{w\ 3732}#
|
|
#{r\ 3733}#
|
|
#{mod\ 3734}#)
|
|
(if (not #{r\ 3733}#)
|
|
#f
|
|
(if (eq? #{p\ 3731}# (quote any))
|
|
(cons (#{wrap\ 329}#
|
|
#{e\ 3730}#
|
|
#{w\ 3732}#
|
|
#{mod\ 3734}#)
|
|
#{r\ 3733}#)
|
|
(if (#{syntax-object?\ 224}# #{e\ 3730}#)
|
|
(#{match*\ 3727}#
|
|
(#{syntax-object-expression\ 226}# #{e\ 3730}#)
|
|
#{p\ 3731}#
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 3732}#
|
|
(#{syntax-object-wrap\ 228}# #{e\ 3730}#))
|
|
#{r\ 3733}#
|
|
(#{syntax-object-module\ 230}# #{e\ 3730}#))
|
|
(#{match*\ 3727}#
|
|
#{e\ 3730}#
|
|
#{p\ 3731}#
|
|
#{w\ 3732}#
|
|
#{r\ 3733}#
|
|
#{mod\ 3734}#))))))
|
|
(#{match*\ 3727}#
|
|
(lambda (#{e\ 3747}#
|
|
#{p\ 3748}#
|
|
#{w\ 3749}#
|
|
#{r\ 3750}#
|
|
#{mod\ 3751}#)
|
|
(if (null? #{p\ 3748}#)
|
|
(if (null? #{e\ 3747}#) #{r\ 3750}# #f)
|
|
(if (pair? #{p\ 3748}#)
|
|
(if (pair? #{e\ 3747}#)
|
|
(#{match\ 3729}#
|
|
(car #{e\ 3747}#)
|
|
(car #{p\ 3748}#)
|
|
#{w\ 3749}#
|
|
(#{match\ 3729}#
|
|
(cdr #{e\ 3747}#)
|
|
(cdr #{p\ 3748}#)
|
|
#{w\ 3749}#
|
|
#{r\ 3750}#
|
|
#{mod\ 3751}#)
|
|
#{mod\ 3751}#)
|
|
#f)
|
|
(if (eq? #{p\ 3748}# (quote each-any))
|
|
(let ((#{l\ 3768}#
|
|
(#{match-each-any\ 3721}#
|
|
#{e\ 3747}#
|
|
#{w\ 3749}#
|
|
#{mod\ 3751}#)))
|
|
(if #{l\ 3768}#
|
|
(cons #{l\ 3768}# #{r\ 3750}#)
|
|
#f))
|
|
(let ((#{atom-key\ 3774}# (vector-ref #{p\ 3748}# 0)))
|
|
(if (memv #{atom-key\ 3774}# (quote (each)))
|
|
(if (null? #{e\ 3747}#)
|
|
(#{match-empty\ 3723}#
|
|
(vector-ref #{p\ 3748}# 1)
|
|
#{r\ 3750}#)
|
|
(let ((#{l\ 3777}#
|
|
(#{match-each\ 3717}#
|
|
#{e\ 3747}#
|
|
(vector-ref #{p\ 3748}# 1)
|
|
#{w\ 3749}#
|
|
#{mod\ 3751}#)))
|
|
(if #{l\ 3777}#
|
|
(letrec ((#{collect\ 3782}#
|
|
(lambda (#{l\ 3783}#)
|
|
(if (null? (car #{l\ 3783}#))
|
|
#{r\ 3750}#
|
|
(cons (map car #{l\ 3783}#)
|
|
(#{collect\ 3782}#
|
|
(map cdr
|
|
#{l\ 3783}#)))))))
|
|
(#{collect\ 3782}# #{l\ 3777}#))
|
|
#f)))
|
|
(if (memv #{atom-key\ 3774}# (quote (each+)))
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{match-each+\ 3719}#
|
|
#{e\ 3747}#
|
|
(vector-ref #{p\ 3748}# 1)
|
|
(vector-ref #{p\ 3748}# 2)
|
|
(vector-ref #{p\ 3748}# 3)
|
|
#{w\ 3749}#
|
|
#{r\ 3750}#
|
|
#{mod\ 3751}#))
|
|
(lambda (#{xr*\ 3785}#
|
|
#{y-pat\ 3786}#
|
|
#{r\ 3787}#)
|
|
(if #{r\ 3787}#
|
|
(if (null? #{y-pat\ 3786}#)
|
|
(if (null? #{xr*\ 3785}#)
|
|
(#{match-empty\ 3723}#
|
|
(vector-ref #{p\ 3748}# 1)
|
|
#{r\ 3787}#)
|
|
(#{combine\ 3725}#
|
|
#{xr*\ 3785}#
|
|
#{r\ 3787}#))
|
|
#f)
|
|
#f)))
|
|
(if (memv #{atom-key\ 3774}# (quote (free-id)))
|
|
(if (#{id?\ 260}# #{e\ 3747}#)
|
|
(if (#{free-id=?\ 319}#
|
|
(#{wrap\ 329}#
|
|
#{e\ 3747}#
|
|
#{w\ 3749}#
|
|
#{mod\ 3751}#)
|
|
(vector-ref #{p\ 3748}# 1))
|
|
#{r\ 3750}#
|
|
#f)
|
|
#f)
|
|
(if (memv #{atom-key\ 3774}# (quote (atom)))
|
|
(if (equal?
|
|
(vector-ref #{p\ 3748}# 1)
|
|
(#{strip\ 371}#
|
|
#{e\ 3747}#
|
|
#{w\ 3749}#))
|
|
#{r\ 3750}#
|
|
#f)
|
|
(if (memv #{atom-key\ 3774}#
|
|
'(vector))
|
|
(if (vector? #{e\ 3747}#)
|
|
(#{match\ 3729}#
|
|
(vector->list #{e\ 3747}#)
|
|
(vector-ref #{p\ 3748}# 1)
|
|
#{w\ 3749}#
|
|
#{r\ 3750}#
|
|
#{mod\ 3751}#)
|
|
#f))))))))))))
|
|
(#{combine\ 3725}#
|
|
(lambda (#{r*\ 3804}# #{r\ 3805}#)
|
|
(if (null? (car #{r*\ 3804}#))
|
|
#{r\ 3805}#
|
|
(cons (map car #{r*\ 3804}#)
|
|
(#{combine\ 3725}#
|
|
(map cdr #{r*\ 3804}#)
|
|
#{r\ 3805}#)))))
|
|
(#{match-empty\ 3723}#
|
|
(lambda (#{p\ 3808}# #{r\ 3809}#)
|
|
(if (null? #{p\ 3808}#)
|
|
#{r\ 3809}#
|
|
(if (eq? #{p\ 3808}# (quote any))
|
|
(cons (quote ()) #{r\ 3809}#)
|
|
(if (pair? #{p\ 3808}#)
|
|
(#{match-empty\ 3723}#
|
|
(car #{p\ 3808}#)
|
|
(#{match-empty\ 3723}#
|
|
(cdr #{p\ 3808}#)
|
|
#{r\ 3809}#))
|
|
(if (eq? #{p\ 3808}# (quote each-any))
|
|
(cons (quote ()) #{r\ 3809}#)
|
|
(let ((#{atom-key\ 3823}#
|
|
(vector-ref #{p\ 3808}# 0)))
|
|
(if (memv #{atom-key\ 3823}# (quote (each)))
|
|
(#{match-empty\ 3723}#
|
|
(vector-ref #{p\ 3808}# 1)
|
|
#{r\ 3809}#)
|
|
(if (memv #{atom-key\ 3823}# (quote (each+)))
|
|
(#{match-empty\ 3723}#
|
|
(vector-ref #{p\ 3808}# 1)
|
|
(#{match-empty\ 3723}#
|
|
(reverse (vector-ref #{p\ 3808}# 2))
|
|
(#{match-empty\ 3723}#
|
|
(vector-ref #{p\ 3808}# 3)
|
|
#{r\ 3809}#)))
|
|
(if (memv #{atom-key\ 3823}#
|
|
'(free-id atom))
|
|
#{r\ 3809}#
|
|
(if (memv #{atom-key\ 3823}#
|
|
'(vector))
|
|
(#{match-empty\ 3723}#
|
|
(vector-ref #{p\ 3808}# 1)
|
|
#{r\ 3809}#))))))))))))
|
|
(#{match-each-any\ 3721}#
|
|
(lambda (#{e\ 3828}# #{w\ 3829}# #{mod\ 3830}#)
|
|
(if (pair? #{e\ 3828}#)
|
|
(let ((#{l\ 3837}#
|
|
(#{match-each-any\ 3721}#
|
|
(cdr #{e\ 3828}#)
|
|
#{w\ 3829}#
|
|
#{mod\ 3830}#)))
|
|
(if #{l\ 3837}#
|
|
(cons (#{wrap\ 329}#
|
|
(car #{e\ 3828}#)
|
|
#{w\ 3829}#
|
|
#{mod\ 3830}#)
|
|
#{l\ 3837}#)
|
|
#f))
|
|
(if (null? #{e\ 3828}#)
|
|
'()
|
|
(if (#{syntax-object?\ 224}# #{e\ 3828}#)
|
|
(#{match-each-any\ 3721}#
|
|
(#{syntax-object-expression\ 226}# #{e\ 3828}#)
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 3829}#
|
|
(#{syntax-object-wrap\ 228}# #{e\ 3828}#))
|
|
#{mod\ 3830}#)
|
|
#f)))))
|
|
(#{match-each+\ 3719}#
|
|
(lambda (#{e\ 3845}#
|
|
#{x-pat\ 3846}#
|
|
#{y-pat\ 3847}#
|
|
#{z-pat\ 3848}#
|
|
#{w\ 3849}#
|
|
#{r\ 3850}#
|
|
#{mod\ 3851}#)
|
|
(letrec ((#{f\ 3862}#
|
|
(lambda (#{e\ 3863}# #{w\ 3864}#)
|
|
(if (pair? #{e\ 3863}#)
|
|
(call-with-values
|
|
(lambda ()
|
|
(#{f\ 3862}#
|
|
(cdr #{e\ 3863}#)
|
|
#{w\ 3864}#))
|
|
(lambda (#{xr*\ 3867}#
|
|
#{y-pat\ 3868}#
|
|
#{r\ 3869}#)
|
|
(if #{r\ 3869}#
|
|
(if (null? #{y-pat\ 3868}#)
|
|
(let ((#{xr\ 3874}#
|
|
(#{match\ 3729}#
|
|
(car #{e\ 3863}#)
|
|
#{x-pat\ 3846}#
|
|
#{w\ 3864}#
|
|
'()
|
|
#{mod\ 3851}#)))
|
|
(if #{xr\ 3874}#
|
|
(values
|
|
(cons #{xr\ 3874}#
|
|
#{xr*\ 3867}#)
|
|
#{y-pat\ 3868}#
|
|
#{r\ 3869}#)
|
|
(values #f #f #f)))
|
|
(values
|
|
'()
|
|
(cdr #{y-pat\ 3868}#)
|
|
(#{match\ 3729}#
|
|
(car #{e\ 3863}#)
|
|
(car #{y-pat\ 3868}#)
|
|
#{w\ 3864}#
|
|
#{r\ 3869}#
|
|
#{mod\ 3851}#)))
|
|
(values #f #f #f))))
|
|
(if (#{syntax-object?\ 224}# #{e\ 3863}#)
|
|
(#{f\ 3862}#
|
|
(#{syntax-object-expression\ 226}#
|
|
#{e\ 3863}#)
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 3864}#
|
|
#{e\ 3863}#))
|
|
(values
|
|
'()
|
|
#{y-pat\ 3847}#
|
|
(#{match\ 3729}#
|
|
#{e\ 3863}#
|
|
#{z-pat\ 3848}#
|
|
#{w\ 3864}#
|
|
#{r\ 3850}#
|
|
#{mod\ 3851}#)))))))
|
|
(#{f\ 3862}# #{e\ 3845}# #{w\ 3849}#))))
|
|
(#{match-each\ 3717}#
|
|
(lambda (#{e\ 3878}#
|
|
#{p\ 3879}#
|
|
#{w\ 3880}#
|
|
#{mod\ 3881}#)
|
|
(if (pair? #{e\ 3878}#)
|
|
(let ((#{first\ 3889}#
|
|
(#{match\ 3729}#
|
|
(car #{e\ 3878}#)
|
|
#{p\ 3879}#
|
|
#{w\ 3880}#
|
|
'()
|
|
#{mod\ 3881}#)))
|
|
(if #{first\ 3889}#
|
|
(let ((#{rest\ 3893}#
|
|
(#{match-each\ 3717}#
|
|
(cdr #{e\ 3878}#)
|
|
#{p\ 3879}#
|
|
#{w\ 3880}#
|
|
#{mod\ 3881}#)))
|
|
(if #{rest\ 3893}#
|
|
(cons #{first\ 3889}# #{rest\ 3893}#)
|
|
#f))
|
|
#f))
|
|
(if (null? #{e\ 3878}#)
|
|
'()
|
|
(if (#{syntax-object?\ 224}# #{e\ 3878}#)
|
|
(#{match-each\ 3717}#
|
|
(#{syntax-object-expression\ 226}# #{e\ 3878}#)
|
|
#{p\ 3879}#
|
|
(#{join-wraps\ 311}#
|
|
#{w\ 3880}#
|
|
(#{syntax-object-wrap\ 228}# #{e\ 3878}#))
|
|
(#{syntax-object-module\ 230}# #{e\ 3878}#))
|
|
#f))))))
|
|
(set! $sc-dispatch
|
|
(lambda (#{e\ 3901}# #{p\ 3902}#)
|
|
(if (eq? #{p\ 3902}# (quote any))
|
|
(list #{e\ 3901}#)
|
|
(if (#{syntax-object?\ 224}# #{e\ 3901}#)
|
|
(#{match*\ 3727}#
|
|
(#{syntax-object-expression\ 226}# #{e\ 3901}#)
|
|
#{p\ 3902}#
|
|
(#{syntax-object-wrap\ 228}# #{e\ 3901}#)
|
|
'()
|
|
(#{syntax-object-module\ 230}# #{e\ 3901}#))
|
|
(#{match*\ 3727}#
|
|
#{e\ 3901}#
|
|
#{p\ 3902}#
|
|
'(())
|
|
'()
|
|
#f)))))))))
|
|
|
|
(define with-syntax
|
|
(make-syntax-transformer
|
|
'with-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 3911}#)
|
|
((lambda (#{tmp\ 3913}#)
|
|
((lambda (#{tmp\ 3914}#)
|
|
(if #{tmp\ 3914}#
|
|
(apply (lambda (#{_\ 3918}# #{e1\ 3919}# #{e2\ 3920}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ e1 e2)
|
|
#((top) (top) (top))
|
|
#("i3915" "i3916" "i3917"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i3912")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 3919}# #{e2\ 3920}#)))
|
|
#{tmp\ 3914}#)
|
|
((lambda (#{tmp\ 3922}#)
|
|
(if #{tmp\ 3922}#
|
|
(apply (lambda (#{_\ 3928}#
|
|
#{out\ 3929}#
|
|
#{in\ 3930}#
|
|
#{e1\ 3931}#
|
|
#{e2\ 3932}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3923"
|
|
"i3924"
|
|
"i3925"
|
|
"i3926"
|
|
"i3927"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3912")))
|
|
(hygiene guile))
|
|
#{in\ 3930}#
|
|
'()
|
|
(list #{out\ 3929}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3923"
|
|
"i3924"
|
|
"i3925"
|
|
"i3926"
|
|
"i3927"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3912")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 3931}#
|
|
#{e2\ 3932}#)))))
|
|
#{tmp\ 3922}#)
|
|
((lambda (#{tmp\ 3934}#)
|
|
(if #{tmp\ 3934}#
|
|
(apply (lambda (#{_\ 3940}#
|
|
#{out\ 3941}#
|
|
#{in\ 3942}#
|
|
#{e1\ 3943}#
|
|
#{e2\ 3944}#)
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3935"
|
|
"i3936"
|
|
"i3937"
|
|
"i3938"
|
|
"i3939"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3912")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_ out in e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3935"
|
|
"i3936"
|
|
"i3937"
|
|
"i3938"
|
|
"i3939"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3912")))
|
|
(hygiene guile))
|
|
#{in\ 3942}#)
|
|
'()
|
|
(list #{out\ 3941}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
out
|
|
in
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3935"
|
|
"i3936"
|
|
"i3937"
|
|
"i3938"
|
|
"i3939"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3912")))
|
|
(hygiene guile))
|
|
(cons #{e1\ 3943}#
|
|
#{e2\ 3944}#)))))
|
|
#{tmp\ 3934}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3913}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3913}#
|
|
'(any #(each (any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3913}#
|
|
'(any ((any any)) any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 3913}#
|
|
'(any () any . each-any))))
|
|
#{x\ 3911}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define syntax-rules
|
|
(make-syntax-transformer
|
|
'syntax-rules
|
|
'macro
|
|
(cons (lambda (#{x\ 3948}#)
|
|
((lambda (#{tmp\ 3950}#)
|
|
((lambda (#{tmp\ 3951}#)
|
|
(if #{tmp\ 3951}#
|
|
(apply (lambda (#{_\ 3957}#
|
|
#{k\ 3958}#
|
|
#{keyword\ 3959}#
|
|
#{pattern\ 3960}#
|
|
#{template\ 3961}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3952"
|
|
"i3953"
|
|
"i3954"
|
|
"i3955"
|
|
"i3956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i3949")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3952"
|
|
"i3953"
|
|
"i3954"
|
|
"i3955"
|
|
"i3956"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i3949")))
|
|
(hygiene guile)))
|
|
(cons '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ k keyword pattern template)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i3952"
|
|
"i3953"
|
|
"i3954"
|
|
"i3955"
|
|
"i3956"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3949")))
|
|
(hygiene guile))
|
|
(cons '#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3952"
|
|
"i3953"
|
|
"i3954"
|
|
"i3955"
|
|
"i3956"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3949")))
|
|
(hygiene guile))
|
|
(cons #{k\ 3958}#
|
|
(map (lambda (#{tmp\ 3964}#
|
|
#{tmp\ 3963}#)
|
|
(list (cons '#(syntax-object
|
|
dummy
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3952"
|
|
"i3953"
|
|
"i3954"
|
|
"i3955"
|
|
"i3956"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3949")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 3963}#)
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_
|
|
k
|
|
keyword
|
|
pattern
|
|
template)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3952"
|
|
"i3953"
|
|
"i3954"
|
|
"i3955"
|
|
"i3956"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3949")))
|
|
(hygiene
|
|
guile))
|
|
#{tmp\ 3964}#)))
|
|
#{template\ 3961}#
|
|
#{pattern\ 3960}#))))))
|
|
#{tmp\ 3951}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3950}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3950}#
|
|
'(any each-any . #(each ((any . any) any))))))
|
|
#{x\ 3948}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define let*
|
|
(make-syntax-transformer
|
|
'let*
|
|
'macro
|
|
(cons (lambda (#{x\ 3965}#)
|
|
((lambda (#{tmp\ 3967}#)
|
|
((lambda (#{tmp\ 3968}#)
|
|
(if (if #{tmp\ 3968}#
|
|
(apply (lambda (#{let*\ 3974}#
|
|
#{x\ 3975}#
|
|
#{v\ 3976}#
|
|
#{e1\ 3977}#
|
|
#{e2\ 3978}#)
|
|
(and-map identifier? #{x\ 3975}#))
|
|
#{tmp\ 3968}#)
|
|
#f)
|
|
(apply (lambda (#{let*\ 3985}#
|
|
#{x\ 3986}#
|
|
#{v\ 3987}#
|
|
#{e1\ 3988}#
|
|
#{e2\ 3989}#)
|
|
(letrec ((#{f\ 3992}#
|
|
(lambda (#{bindings\ 3993}#)
|
|
(if (null? #{bindings\ 3993}#)
|
|
(cons '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f bindings)
|
|
#((top) (top))
|
|
#("i3990" "i3991"))
|
|
#(ribcage
|
|
#(let* x v e1 e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3980"
|
|
"i3981"
|
|
"i3982"
|
|
"i3983"
|
|
"i3984"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3966")))
|
|
(hygiene guile))
|
|
(cons '()
|
|
(cons #{e1\ 3988}#
|
|
#{e2\ 3989}#)))
|
|
((lambda (#{tmp\ 3998}#)
|
|
((lambda (#{tmp\ 3999}#)
|
|
(if #{tmp\ 3999}#
|
|
(apply (lambda (#{body\ 4002}#
|
|
#{binding\ 4003}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body
|
|
binding)
|
|
#((top)
|
|
(top))
|
|
#("i4000"
|
|
"i4001"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
bindings)
|
|
#((top)
|
|
(top))
|
|
#("i3990"
|
|
"i3991"))
|
|
#(ribcage
|
|
#(let*
|
|
x
|
|
v
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i3980"
|
|
"i3981"
|
|
"i3982"
|
|
"i3983"
|
|
"i3984"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i3966")))
|
|
(hygiene
|
|
guile))
|
|
(list #{binding\ 4003}#)
|
|
#{body\ 4002}#))
|
|
#{tmp\ 3999}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3998}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3998}#
|
|
'(any any))))
|
|
(list (#{f\ 3992}#
|
|
(cdr #{bindings\ 3993}#))
|
|
(car #{bindings\ 3993}#)))))))
|
|
(#{f\ 3992}#
|
|
(map list #{x\ 3986}# #{v\ 3987}#))))
|
|
#{tmp\ 3968}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 3967}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 3967}#
|
|
'(any #(each (any any)) any . each-any))))
|
|
#{x\ 3965}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define do
|
|
(make-syntax-transformer
|
|
'do
|
|
'macro
|
|
(cons (lambda (#{orig-x\ 4004}#)
|
|
((lambda (#{tmp\ 4006}#)
|
|
((lambda (#{tmp\ 4007}#)
|
|
(if #{tmp\ 4007}#
|
|
(apply (lambda (#{_\ 4015}#
|
|
#{var\ 4016}#
|
|
#{init\ 4017}#
|
|
#{step\ 4018}#
|
|
#{e0\ 4019}#
|
|
#{e1\ 4020}#
|
|
#{c\ 4021}#)
|
|
((lambda (#{tmp\ 4023}#)
|
|
((lambda (#{tmp\ 4024}#)
|
|
(if #{tmp\ 4024}#
|
|
(apply (lambda (#{step\ 4026}#)
|
|
((lambda (#{tmp\ 4027}#)
|
|
((lambda (#{tmp\ 4028}#)
|
|
(if #{tmp\ 4028}#
|
|
(apply (lambda ()
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 4016}#
|
|
#{init\ 4017}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
not
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 4019}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 4021}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 4026}#)))))))
|
|
#{tmp\ 4028}#)
|
|
((lambda (#{tmp\ 4033}#)
|
|
(if #{tmp\ 4033}#
|
|
(apply (lambda (#{e1\ 4036}#
|
|
#{e2\ 4037}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4034"
|
|
"i4035"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4034"
|
|
"i4035"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
(map list
|
|
#{var\ 4016}#
|
|
#{init\ 4017}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4034"
|
|
"i4035"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
#{e0\ 4019}#
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4034"
|
|
"i4035"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4036}#
|
|
#{e2\ 4037}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4034"
|
|
"i4035"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
(append
|
|
#{c\ 4021}#
|
|
(list (cons '#(syntax-object
|
|
doloop
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4034"
|
|
"i4035"))
|
|
#(ribcage
|
|
#(step)
|
|
#((top))
|
|
#("i4025"))
|
|
#(ribcage
|
|
#(_
|
|
var
|
|
init
|
|
step
|
|
e0
|
|
e1
|
|
c)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4008"
|
|
"i4009"
|
|
"i4010"
|
|
"i4011"
|
|
"i4012"
|
|
"i4013"
|
|
"i4014"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(orig-x)
|
|
#((top))
|
|
#("i4005")))
|
|
(hygiene
|
|
guile))
|
|
#{step\ 4026}#)))))))
|
|
#{tmp\ 4033}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4027}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4027}#
|
|
'(any . each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4027}#
|
|
'())))
|
|
#{e1\ 4020}#))
|
|
#{tmp\ 4024}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4023}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4023}#
|
|
'each-any)))
|
|
(map (lambda (#{v\ 4044}# #{s\ 4045}#)
|
|
((lambda (#{tmp\ 4048}#)
|
|
((lambda (#{tmp\ 4049}#)
|
|
(if #{tmp\ 4049}#
|
|
(apply (lambda () #{v\ 4044}#)
|
|
#{tmp\ 4049}#)
|
|
((lambda (#{tmp\ 4050}#)
|
|
(if #{tmp\ 4050}#
|
|
(apply (lambda (#{e\ 4052}#)
|
|
#{e\ 4052}#)
|
|
#{tmp\ 4050}#)
|
|
((lambda (#{_\ 4054}#)
|
|
(syntax-violation
|
|
'do
|
|
"bad step expression"
|
|
#{orig-x\ 4004}#
|
|
#{s\ 4045}#))
|
|
#{tmp\ 4048}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4048}#
|
|
'(any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4048}#
|
|
'())))
|
|
#{s\ 4045}#))
|
|
#{var\ 4016}#
|
|
#{step\ 4018}#)))
|
|
#{tmp\ 4007}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4006}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4006}#
|
|
'(any #(each (any any . any))
|
|
(any . each-any)
|
|
.
|
|
each-any))))
|
|
#{orig-x\ 4004}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define quasiquote
|
|
(make-syntax-transformer
|
|
'quasiquote
|
|
'macro
|
|
(cons (letrec ((#{quasicons\ 4061}#
|
|
(lambda (#{x\ 4065}# #{y\ 4066}#)
|
|
((lambda (#{tmp\ 4070}#)
|
|
((lambda (#{tmp\ 4071}#)
|
|
(if #{tmp\ 4071}#
|
|
(apply (lambda (#{x\ 4074}# #{y\ 4075}#)
|
|
((lambda (#{tmp\ 4076}#)
|
|
((lambda (#{tmp\ 4077}#)
|
|
(if #{tmp\ 4077}#
|
|
(apply (lambda (#{dy\ 4079}#)
|
|
((lambda (#{tmp\ 4080}#)
|
|
((lambda (#{tmp\ 4081}#)
|
|
(if #{tmp\ 4081}#
|
|
(apply (lambda (#{dx\ 4083}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dx)
|
|
#((top))
|
|
#("i4082"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4078"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4072"
|
|
"i4073"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4067"
|
|
"i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{dx\ 4083}#
|
|
#{dy\ 4079}#)))
|
|
#{tmp\ 4081}#)
|
|
((lambda (#{_\ 4085}#)
|
|
(if (null? #{dy\ 4079}#)
|
|
(list '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4084"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4078"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4072"
|
|
"i4073"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4067"
|
|
"i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 4074}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4084"))
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4078"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4072"
|
|
"i4073"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4067"
|
|
"i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 4074}#
|
|
#{y\ 4075}#)))
|
|
#{tmp\ 4080}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4080}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(dy)
|
|
#((top))
|
|
#("i4078"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4072"
|
|
"i4073"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4067"
|
|
"i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile)))
|
|
any))))
|
|
#{x\ 4074}#))
|
|
#{tmp\ 4077}#)
|
|
((lambda (#{tmp\ 4086}#)
|
|
(if #{tmp\ 4086}#
|
|
(apply (lambda (#{stuff\ 4088}#)
|
|
(cons '#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(stuff)
|
|
#((top))
|
|
#("i4087"))
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4072"
|
|
"i4073"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x
|
|
y)
|
|
#((top)
|
|
(top))
|
|
#("i4067"
|
|
"i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{x\ 4074}#
|
|
#{stuff\ 4088}#)))
|
|
#{tmp\ 4086}#)
|
|
((lambda (#{else\ 4090}#)
|
|
(list '#(syntax-object
|
|
cons
|
|
((top)
|
|
#(ribcage
|
|
#(else)
|
|
#((top))
|
|
#("i4089"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4072"
|
|
"i4073"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top)
|
|
(top))
|
|
#("i4067"
|
|
"i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
#{x\ 4074}#
|
|
#{y\ 4075}#))
|
|
#{tmp\ 4076}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4076}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4072" "i4073"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4067" "i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4076}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4072" "i4073"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4067" "i4068"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{y\ 4075}#))
|
|
#{tmp\ 4071}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4070}#)))
|
|
($sc-dispatch #{tmp\ 4070}# (quote (any any)))))
|
|
(list #{x\ 4065}# #{y\ 4066}#))))
|
|
(#{quasiappend\ 4062}#
|
|
(lambda (#{x\ 4091}# #{y\ 4092}#)
|
|
((lambda (#{tmp\ 4096}#)
|
|
((lambda (#{tmp\ 4097}#)
|
|
(if #{tmp\ 4097}#
|
|
(apply (lambda (#{x\ 4100}# #{y\ 4101}#)
|
|
((lambda (#{tmp\ 4102}#)
|
|
((lambda (#{tmp\ 4103}#)
|
|
(if #{tmp\ 4103}#
|
|
(apply (lambda () #{x\ 4100}#)
|
|
#{tmp\ 4103}#)
|
|
((lambda (#{_\ 4105}#)
|
|
(list '#(syntax-object
|
|
append
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4104"))
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4098"
|
|
"i4099"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4093"
|
|
"i4094"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
#{x\ 4100}#
|
|
#{y\ 4101}#))
|
|
#{tmp\ 4102}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4102}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4098" "i4099"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x y)
|
|
#((top) (top))
|
|
#("i4093" "i4094"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
()))))
|
|
#{y\ 4101}#))
|
|
#{tmp\ 4097}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4096}#)))
|
|
($sc-dispatch #{tmp\ 4096}# (quote (any any)))))
|
|
(list #{x\ 4091}# #{y\ 4092}#))))
|
|
(#{quasivector\ 4063}#
|
|
(lambda (#{x\ 4106}#)
|
|
((lambda (#{tmp\ 4109}#)
|
|
((lambda (#{x\ 4111}#)
|
|
((lambda (#{tmp\ 4112}#)
|
|
((lambda (#{tmp\ 4113}#)
|
|
(if #{tmp\ 4113}#
|
|
(apply (lambda (#{x\ 4115}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4114"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4110"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4107"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
(list->vector
|
|
#{x\ 4115}#)))
|
|
#{tmp\ 4113}#)
|
|
((lambda (#{tmp\ 4117}#)
|
|
(if #{tmp\ 4117}#
|
|
(apply (lambda (#{x\ 4119}#)
|
|
(cons '#(syntax-object
|
|
vector
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4118"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4110"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4107"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
#{x\ 4119}#))
|
|
#{tmp\ 4117}#)
|
|
((lambda (#{_\ 4122}#)
|
|
(list '#(syntax-object
|
|
list->vector
|
|
((top)
|
|
#(ribcage
|
|
#(_)
|
|
#((top))
|
|
#("i4121"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4110"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4107"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
#{x\ 4111}#))
|
|
#{tmp\ 4112}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4112}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
list
|
|
((top)
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4110"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4107"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4112}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage #(x) #((top)) #("i4110"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4107"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
each-any))))
|
|
#{x\ 4111}#))
|
|
#{tmp\ 4109}#))
|
|
#{x\ 4106}#)))
|
|
(#{quasi\ 4064}#
|
|
(lambda (#{p\ 4123}# #{lev\ 4124}#)
|
|
((lambda (#{tmp\ 4127}#)
|
|
((lambda (#{tmp\ 4128}#)
|
|
(if #{tmp\ 4128}#
|
|
(apply (lambda (#{p\ 4130}#)
|
|
(if (= #{lev\ 4124}# 0)
|
|
#{p\ 4130}#
|
|
(#{quasicons\ 4061}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4129"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4129"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 4064}#
|
|
(list #{p\ 4130}#)
|
|
(- #{lev\ 4124}# 1)))))
|
|
#{tmp\ 4128}#)
|
|
((lambda (#{tmp\ 4131}#)
|
|
(if (if #{tmp\ 4131}#
|
|
(apply (lambda (#{args\ 4133}#)
|
|
(= #{lev\ 4124}# 0))
|
|
#{tmp\ 4131}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 4135}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"unquote takes exactly one argument"
|
|
#{p\ 4123}#
|
|
(cons '#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage
|
|
#(args)
|
|
#((top))
|
|
#("i4134"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
#{args\ 4135}#)))
|
|
#{tmp\ 4131}#)
|
|
((lambda (#{tmp\ 4136}#)
|
|
(if #{tmp\ 4136}#
|
|
(apply (lambda (#{p\ 4139}#
|
|
#{q\ 4140}#)
|
|
(if (= #{lev\ 4124}# 0)
|
|
(#{quasiappend\ 4062}#
|
|
#{p\ 4139}#
|
|
(#{quasi\ 4064}#
|
|
#{q\ 4140}#
|
|
#{lev\ 4124}#))
|
|
(#{quasicons\ 4061}#
|
|
(#{quasicons\ 4061}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i4137"
|
|
"i4138"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125"
|
|
"i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(p q)
|
|
#((top) (top))
|
|
#("i4137"
|
|
"i4138"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125"
|
|
"i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
(#{quasi\ 4064}#
|
|
(list #{p\ 4139}#)
|
|
(- #{lev\ 4124}# 1)))
|
|
(#{quasi\ 4064}#
|
|
#{q\ 4140}#
|
|
#{lev\ 4124}#))))
|
|
#{tmp\ 4136}#)
|
|
((lambda (#{tmp\ 4141}#)
|
|
(if (if #{tmp\ 4141}#
|
|
(apply (lambda (#{args\ 4144}#
|
|
#{q\ 4145}#)
|
|
(= #{lev\ 4124}# 0))
|
|
#{tmp\ 4141}#)
|
|
#f)
|
|
(apply (lambda (#{args\ 4148}#
|
|
#{q\ 4149}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"unquote-splicing takes exactly one argument"
|
|
#{p\ 4123}#
|
|
(cons '#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage
|
|
#(args q)
|
|
#((top)
|
|
(top))
|
|
#("i4146"
|
|
"i4147"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i4125"
|
|
"i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
#{args\ 4148}#)))
|
|
#{tmp\ 4141}#)
|
|
((lambda (#{tmp\ 4150}#)
|
|
(if #{tmp\ 4150}#
|
|
(apply (lambda (#{p\ 4152}#)
|
|
(#{quasicons\ 4061}#
|
|
'(#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i4125"
|
|
"i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4151"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top)
|
|
(top))
|
|
#("i4125"
|
|
"i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile)))
|
|
(#{quasi\ 4064}#
|
|
(list #{p\ 4152}#)
|
|
(+ #{lev\ 4124}#
|
|
1))))
|
|
#{tmp\ 4150}#)
|
|
((lambda (#{tmp\ 4153}#)
|
|
(if #{tmp\ 4153}#
|
|
(apply (lambda (#{p\ 4156}#
|
|
#{q\ 4157}#)
|
|
(#{quasicons\ 4061}#
|
|
(#{quasi\ 4064}#
|
|
#{p\ 4156}#
|
|
#{lev\ 4124}#)
|
|
(#{quasi\ 4064}#
|
|
#{q\ 4157}#
|
|
#{lev\ 4124}#)))
|
|
#{tmp\ 4153}#)
|
|
((lambda (#{tmp\ 4158}#)
|
|
(if #{tmp\ 4158}#
|
|
(apply (lambda (#{x\ 4160}#)
|
|
(#{quasivector\ 4063}#
|
|
(#{quasi\ 4064}#
|
|
#{x\ 4160}#
|
|
#{lev\ 4124}#)))
|
|
#{tmp\ 4158}#)
|
|
((lambda (#{p\ 4163}#)
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(p)
|
|
#((top))
|
|
#("i4162"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(p
|
|
lev)
|
|
#((top)
|
|
(top))
|
|
#("i4125"
|
|
"i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene
|
|
guile))
|
|
#{p\ 4163}#))
|
|
#{tmp\ 4127}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'#(vector
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'(any . any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
quasiquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
.
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'((#(free-id
|
|
#(syntax-object
|
|
unquote-splicing
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057"
|
|
"i4058"
|
|
"i4059"
|
|
"i4060")))
|
|
(hygiene guile)))
|
|
any)
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057" "i4058" "i4059" "i4060")))
|
|
(hygiene guile)))
|
|
.
|
|
any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4127}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
unquote
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(p lev)
|
|
#((top) (top))
|
|
#("i4125" "i4126"))
|
|
#(ribcage
|
|
#(quasicons
|
|
quasiappend
|
|
quasivector
|
|
quasi)
|
|
#((top) (top) (top) (top))
|
|
#("i4057" "i4058" "i4059" "i4060")))
|
|
(hygiene guile)))
|
|
any))))
|
|
#{p\ 4123}#))))
|
|
(lambda (#{x\ 4164}#)
|
|
((lambda (#{tmp\ 4166}#)
|
|
((lambda (#{tmp\ 4167}#)
|
|
(if #{tmp\ 4167}#
|
|
(apply (lambda (#{_\ 4170}# #{e\ 4171}#)
|
|
(#{quasi\ 4064}# #{e\ 4171}# 0))
|
|
#{tmp\ 4167}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4166}#)))
|
|
($sc-dispatch #{tmp\ 4166}# (quote (any any)))))
|
|
#{x\ 4164}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include
|
|
(make-syntax-transformer
|
|
'include
|
|
'macro
|
|
(cons (lambda (#{x\ 4172}#)
|
|
(letrec ((#{read-file\ 4175}#
|
|
(lambda (#{fn\ 4176}# #{k\ 4177}#)
|
|
(let ((#{p\ 4181}# (open-input-file #{fn\ 4176}#)))
|
|
(letrec ((#{f\ 4184}#
|
|
(lambda (#{x\ 4185}#)
|
|
(if (eof-object? #{x\ 4185}#)
|
|
(begin
|
|
(close-input-port #{p\ 4181}#)
|
|
'())
|
|
(cons (datum->syntax
|
|
#{k\ 4177}#
|
|
#{x\ 4185}#)
|
|
(#{f\ 4184}#
|
|
(read #{p\ 4181}#)))))))
|
|
(#{f\ 4184}# (read #{p\ 4181}#)))))))
|
|
((lambda (#{tmp\ 4186}#)
|
|
((lambda (#{tmp\ 4187}#)
|
|
(if #{tmp\ 4187}#
|
|
(apply (lambda (#{k\ 4190}# #{filename\ 4191}#)
|
|
(let ((#{fn\ 4193}#
|
|
(syntax->datum #{filename\ 4191}#)))
|
|
((lambda (#{tmp\ 4195}#)
|
|
((lambda (#{tmp\ 4196}#)
|
|
(if #{tmp\ 4196}#
|
|
(apply (lambda (#{exp\ 4198}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(exp)
|
|
#((top))
|
|
#("i4197"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i4192"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i4188"
|
|
"i4189"))
|
|
#(ribcage
|
|
(read-file)
|
|
((top))
|
|
("i4174"))
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4173")))
|
|
(hygiene guile))
|
|
#{exp\ 4198}#))
|
|
#{tmp\ 4196}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4195}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4195}#
|
|
'each-any)))
|
|
(#{read-file\ 4175}#
|
|
#{fn\ 4193}#
|
|
#{k\ 4190}#))))
|
|
#{tmp\ 4187}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4186}#)))
|
|
($sc-dispatch #{tmp\ 4186}# (quote (any any)))))
|
|
#{x\ 4172}#)))
|
|
(module-name (current-module)))))
|
|
|
|
(define include-from-path
|
|
(make-syntax-transformer
|
|
'include-from-path
|
|
'macro
|
|
(cons (lambda (#{x\ 4200}#)
|
|
((lambda (#{tmp\ 4202}#)
|
|
((lambda (#{tmp\ 4203}#)
|
|
(if #{tmp\ 4203}#
|
|
(apply (lambda (#{k\ 4206}# #{filename\ 4207}#)
|
|
(let ((#{fn\ 4209}#
|
|
(syntax->datum #{filename\ 4207}#)))
|
|
((lambda (#{tmp\ 4211}#)
|
|
((lambda (#{fn\ 4213}#)
|
|
(list '#(syntax-object
|
|
include
|
|
((top)
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i4212"))
|
|
#(ribcage () () ())
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(fn)
|
|
#((top))
|
|
#("i4208"))
|
|
#(ribcage
|
|
#(k filename)
|
|
#((top) (top))
|
|
#("i4204" "i4205"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4201")))
|
|
(hygiene guile))
|
|
#{fn\ 4213}#))
|
|
#{tmp\ 4211}#))
|
|
(let ((#{t\ 4216}#
|
|
(%search-load-path #{fn\ 4209}#)))
|
|
(if #{t\ 4216}#
|
|
#{t\ 4216}#
|
|
(syntax-violation
|
|
'include-from-path
|
|
"file not found in path"
|
|
#{x\ 4200}#
|
|
#{filename\ 4207}#))))))
|
|
#{tmp\ 4203}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4202}#)))
|
|
($sc-dispatch #{tmp\ 4202}# (quote (any any)))))
|
|
#{x\ 4200}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote
|
|
(make-syntax-transformer
|
|
'unquote
|
|
'macro
|
|
(cons (lambda (#{x\ 4218}#)
|
|
((lambda (#{tmp\ 4220}#)
|
|
((lambda (#{tmp\ 4221}#)
|
|
(if #{tmp\ 4221}#
|
|
(apply (lambda (#{_\ 4224}# #{e\ 4225}#)
|
|
(syntax-violation
|
|
'unquote
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 4218}#))
|
|
#{tmp\ 4221}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4220}#)))
|
|
($sc-dispatch #{tmp\ 4220}# (quote (any any)))))
|
|
#{x\ 4218}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define unquote-splicing
|
|
(make-syntax-transformer
|
|
'unquote-splicing
|
|
'macro
|
|
(cons (lambda (#{x\ 4226}#)
|
|
((lambda (#{tmp\ 4228}#)
|
|
((lambda (#{tmp\ 4229}#)
|
|
(if #{tmp\ 4229}#
|
|
(apply (lambda (#{_\ 4232}# #{e\ 4233}#)
|
|
(syntax-violation
|
|
'unquote-splicing
|
|
"expression not valid outside of quasiquote"
|
|
#{x\ 4226}#))
|
|
#{tmp\ 4229}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4228}#)))
|
|
($sc-dispatch #{tmp\ 4228}# (quote (any any)))))
|
|
#{x\ 4226}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define case
|
|
(make-syntax-transformer
|
|
'case
|
|
'macro
|
|
(cons (lambda (#{x\ 4234}#)
|
|
((lambda (#{tmp\ 4236}#)
|
|
((lambda (#{tmp\ 4237}#)
|
|
(if #{tmp\ 4237}#
|
|
(apply (lambda (#{_\ 4242}#
|
|
#{e\ 4243}#
|
|
#{m1\ 4244}#
|
|
#{m2\ 4245}#)
|
|
((lambda (#{tmp\ 4247}#)
|
|
((lambda (#{body\ 4249}#)
|
|
(list '#(syntax-object
|
|
let
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i4248"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top) (top) (top) (top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene guile))
|
|
(list (list '#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(body)
|
|
#((top))
|
|
#("i4248"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene guile))
|
|
#{e\ 4243}#))
|
|
#{body\ 4249}#))
|
|
#{tmp\ 4247}#))
|
|
(letrec ((#{f\ 4253}#
|
|
(lambda (#{clause\ 4254}#
|
|
#{clauses\ 4255}#)
|
|
(if (null? #{clauses\ 4255}#)
|
|
((lambda (#{tmp\ 4257}#)
|
|
((lambda (#{tmp\ 4258}#)
|
|
(if #{tmp\ 4258}#
|
|
(apply (lambda (#{e1\ 4261}#
|
|
#{e2\ 4262}#)
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(e1
|
|
e2)
|
|
#((top)
|
|
(top))
|
|
#("i4259"
|
|
"i4260"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4261}#
|
|
#{e2\ 4262}#)))
|
|
#{tmp\ 4258}#)
|
|
((lambda (#{tmp\ 4264}#)
|
|
(if #{tmp\ 4264}#
|
|
(apply (lambda (#{k\ 4268}#
|
|
#{e1\ 4269}#
|
|
#{e2\ 4270}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4265"
|
|
"i4266"
|
|
"i4267"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4265"
|
|
"i4266"
|
|
"i4267"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4265"
|
|
"i4266"
|
|
"i4267"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4265"
|
|
"i4266"
|
|
"i4267"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 4268}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4265"
|
|
"i4266"
|
|
"i4267"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4269}#
|
|
#{e2\ 4270}#))))
|
|
#{tmp\ 4264}#)
|
|
((lambda (#{_\ 4274}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 4234}#
|
|
#{clause\ 4254}#))
|
|
#{tmp\ 4257}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4257}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4257}#
|
|
'(#(free-id
|
|
#(syntax-object
|
|
else
|
|
((top)
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(f clause clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_ e m1 m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene guile)))
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 4254}#)
|
|
((lambda (#{tmp\ 4276}#)
|
|
((lambda (#{rest\ 4278}#)
|
|
((lambda (#{tmp\ 4279}#)
|
|
((lambda (#{tmp\ 4280}#)
|
|
(if #{tmp\ 4280}#
|
|
(apply (lambda (#{k\ 4284}#
|
|
#{e1\ 4285}#
|
|
#{e2\ 4286}#)
|
|
(list '#(syntax-object
|
|
if
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4281"
|
|
"i4282"
|
|
"i4283"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4277"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
memv
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4281"
|
|
"i4282"
|
|
"i4283"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4277"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
'#(syntax-object
|
|
t
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4281"
|
|
"i4282"
|
|
"i4283"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4277"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(list '#(syntax-object
|
|
quote
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4281"
|
|
"i4282"
|
|
"i4283"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4277"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
#{k\ 4284}#))
|
|
(cons '#(syntax-object
|
|
begin
|
|
((top)
|
|
#(ribcage
|
|
#(k
|
|
e1
|
|
e2)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4281"
|
|
"i4282"
|
|
"i4283"))
|
|
#(ribcage
|
|
#(rest)
|
|
#((top))
|
|
#("i4277"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(f
|
|
clause
|
|
clauses)
|
|
#((top)
|
|
(top)
|
|
(top))
|
|
#("i4250"
|
|
"i4251"
|
|
"i4252"))
|
|
#(ribcage
|
|
#(_
|
|
e
|
|
m1
|
|
m2)
|
|
#((top)
|
|
(top)
|
|
(top)
|
|
(top))
|
|
#("i4238"
|
|
"i4239"
|
|
"i4240"
|
|
"i4241"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4235")))
|
|
(hygiene
|
|
guile))
|
|
(cons #{e1\ 4285}#
|
|
#{e2\ 4286}#))
|
|
#{rest\ 4278}#))
|
|
#{tmp\ 4280}#)
|
|
((lambda (#{_\ 4290}#)
|
|
(syntax-violation
|
|
'case
|
|
"bad clause"
|
|
#{x\ 4234}#
|
|
#{clause\ 4254}#))
|
|
#{tmp\ 4279}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4279}#
|
|
'(each-any
|
|
any
|
|
.
|
|
each-any))))
|
|
#{clause\ 4254}#))
|
|
#{tmp\ 4276}#))
|
|
(#{f\ 4253}#
|
|
(car #{clauses\ 4255}#)
|
|
(cdr #{clauses\ 4255}#)))))))
|
|
(#{f\ 4253}# #{m1\ 4244}# #{m2\ 4245}#))))
|
|
#{tmp\ 4237}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4236}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4236}#
|
|
'(any any any . each-any))))
|
|
#{x\ 4234}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define identifier-syntax
|
|
(make-syntax-transformer
|
|
'identifier-syntax
|
|
'macro
|
|
(cons (lambda (#{x\ 4291}#)
|
|
((lambda (#{tmp\ 4293}#)
|
|
((lambda (#{tmp\ 4294}#)
|
|
(if #{tmp\ 4294}#
|
|
(apply (lambda (#{_\ 4297}# #{e\ 4298}#)
|
|
(list '#(syntax-object
|
|
lambda
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4292")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4292")))
|
|
(hygiene guile)))
|
|
(list '#(syntax-object
|
|
syntax-case
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
'()
|
|
(list '#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
'(#(syntax-object
|
|
identifier?
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
(#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
id
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
#{e\ 4298}#))
|
|
(list (cons #{_\ 4297}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))))
|
|
(list '#(syntax-object
|
|
syntax
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top) (top))
|
|
#("i4295" "i4296"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
(cons #{e\ 4298}#
|
|
'(#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i4295"
|
|
"i4296"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene guile))
|
|
#(syntax-object
|
|
...
|
|
((top)
|
|
#(ribcage
|
|
#(_ e)
|
|
#((top)
|
|
(top))
|
|
#("i4295"
|
|
"i4296"))
|
|
#(ribcage
|
|
()
|
|
()
|
|
())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4292")))
|
|
(hygiene
|
|
guile)))))))))
|
|
#{tmp\ 4294}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4293}#)))
|
|
($sc-dispatch #{tmp\ 4293}# (quote (any any)))))
|
|
#{x\ 4291}#))
|
|
(module-name (current-module)))))
|
|
|
|
(define define*
|
|
(make-syntax-transformer
|
|
'define*
|
|
'macro
|
|
(cons (lambda (#{x\ 4299}#)
|
|
((lambda (#{tmp\ 4301}#)
|
|
((lambda (#{tmp\ 4302}#)
|
|
(if #{tmp\ 4302}#
|
|
(apply (lambda (#{_\ 4308}#
|
|
#{id\ 4309}#
|
|
#{args\ 4310}#
|
|
#{b0\ 4311}#
|
|
#{b1\ 4312}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(_ id args b0 b1)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i4303"
|
|
"i4304"
|
|
"i4305"
|
|
"i4306"
|
|
"i4307"))
|
|
#(ribcage () () ())
|
|
#(ribcage #(x) #((top)) #("i4300")))
|
|
(hygiene guile))
|
|
#{id\ 4309}#
|
|
(cons '#(syntax-object
|
|
lambda*
|
|
((top)
|
|
#(ribcage
|
|
#(_ id args b0 b1)
|
|
#((top) (top) (top) (top) (top))
|
|
#("i4303"
|
|
"i4304"
|
|
"i4305"
|
|
"i4306"
|
|
"i4307"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4300")))
|
|
(hygiene guile))
|
|
(cons #{args\ 4310}#
|
|
(cons #{b0\ 4311}#
|
|
#{b1\ 4312}#)))))
|
|
#{tmp\ 4302}#)
|
|
((lambda (#{tmp\ 4314}#)
|
|
(if (if #{tmp\ 4314}#
|
|
(apply (lambda (#{_\ 4318}#
|
|
#{id\ 4319}#
|
|
#{val\ 4320}#)
|
|
(identifier?
|
|
'#(syntax-object
|
|
x
|
|
((top)
|
|
#(ribcage
|
|
#(_ id val)
|
|
#((top) (top) (top))
|
|
#("i4315" "i4316" "i4317"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4300")))
|
|
(hygiene guile))))
|
|
#{tmp\ 4314}#)
|
|
#f)
|
|
(apply (lambda (#{_\ 4324}#
|
|
#{id\ 4325}#
|
|
#{val\ 4326}#)
|
|
(list '#(syntax-object
|
|
define
|
|
((top)
|
|
#(ribcage
|
|
#(_ id val)
|
|
#((top) (top) (top))
|
|
#("i4321" "i4322" "i4323"))
|
|
#(ribcage () () ())
|
|
#(ribcage
|
|
#(x)
|
|
#((top))
|
|
#("i4300")))
|
|
(hygiene guile))
|
|
#{id\ 4325}#
|
|
#{val\ 4326}#))
|
|
#{tmp\ 4314}#)
|
|
(syntax-violation
|
|
#f
|
|
"source expression failed to match any pattern"
|
|
#{tmp\ 4301}#)))
|
|
($sc-dispatch
|
|
#{tmp\ 4301}#
|
|
'(any any any)))))
|
|
($sc-dispatch
|
|
#{tmp\ 4301}#
|
|
'(any (any . any) any . each-any))))
|
|
#{x\ 4299}#))
|
|
(module-name (current-module)))))
|
|
|