diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index f9ee8f83e..a3d161350 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,643 +1,643 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(letrec ((#{and-map*\ 466}# - (lambda (#{f\ 528}# #{first\ 529}# . #{rest\ 530}#) - (let ((#{t\ 536}# (null? #{first\ 529}#))) - (if #{t\ 536}# - #{t\ 536}# - (if (null? #{rest\ 530}#) - (letrec ((#{andmap\ 540}# - (lambda (#{first\ 541}#) - (let ((#{x\ 544}# (car #{first\ 541}#)) - (#{first\ 545}# (cdr #{first\ 541}#))) - (if (null? #{first\ 545}#) - (#{f\ 528}# #{x\ 544}#) - (if (#{f\ 528}# #{x\ 544}#) - (#{andmap\ 540}# #{first\ 545}#) +(letrec ((#{and-map*\ 26}# + (lambda (#{f\ 192}# #{first\ 193}# . #{rest\ 194}#) + (let ((#{t\ 200}# (null? #{first\ 193}#))) + (if #{t\ 200}# + #{t\ 200}# + (if (null? #{rest\ 194}#) + (letrec ((#{andmap\ 204}# + (lambda (#{first\ 205}#) + (let ((#{x\ 208}# (car #{first\ 205}#)) + (#{first\ 209}# (cdr #{first\ 205}#))) + (if (null? #{first\ 209}#) + (#{f\ 192}# #{x\ 208}#) + (if (#{f\ 192}# #{x\ 208}#) + (#{andmap\ 204}# #{first\ 209}#) #f)))))) - (#{andmap\ 540}# #{first\ 529}#)) - (letrec ((#{andmap\ 551}# - (lambda (#{first\ 552}# #{rest\ 553}#) - (let ((#{x\ 558}# (car #{first\ 552}#)) - (#{xr\ 559}# (map car #{rest\ 553}#)) - (#{first\ 560}# (cdr #{first\ 552}#)) - (#{rest\ 561}# (map cdr #{rest\ 553}#))) - (if (null? #{first\ 560}#) - (apply #{f\ 528}# - (cons #{x\ 558}# #{xr\ 559}#)) - (if (apply #{f\ 528}# - (cons #{x\ 558}# #{xr\ 559}#)) - (#{andmap\ 551}# - #{first\ 560}# - #{rest\ 561}#) + (#{andmap\ 204}# #{first\ 193}#)) + (letrec ((#{andmap\ 215}# + (lambda (#{first\ 216}# #{rest\ 217}#) + (let ((#{x\ 222}# (car #{first\ 216}#)) + (#{xr\ 223}# (map car #{rest\ 217}#)) + (#{first\ 224}# (cdr #{first\ 216}#)) + (#{rest\ 225}# (map cdr #{rest\ 217}#))) + (if (null? #{first\ 224}#) + (apply #{f\ 192}# + (cons #{x\ 222}# #{xr\ 223}#)) + (if (apply #{f\ 192}# + (cons #{x\ 222}# #{xr\ 223}#)) + (#{andmap\ 215}# + #{first\ 224}# + #{rest\ 225}#) #f)))))) - (#{andmap\ 551}# #{first\ 529}# #{rest\ 530}#)))))))) - (letrec ((#{lambda-var-list\ 781}# - (lambda (#{vars\ 996}#) - (letrec ((#{lvl\ 1002}# - (lambda (#{vars\ 1003}# #{ls\ 1004}# #{w\ 1005}#) - (if (pair? #{vars\ 1003}#) - (#{lvl\ 1002}# - (cdr #{vars\ 1003}#) - (cons (#{wrap\ 735}# - (car #{vars\ 1003}#) - #{w\ 1005}# + (#{andmap\ 215}# #{first\ 193}# #{rest\ 194}#)))))))) + (letrec ((#{lambda-var-list\ 482}# + (lambda (#{vars\ 814}#) + (letrec ((#{lvl\ 820}# + (lambda (#{vars\ 821}# #{ls\ 822}# #{w\ 823}#) + (if (pair? #{vars\ 821}#) + (#{lvl\ 820}# + (cdr #{vars\ 821}#) + (cons (#{wrap\ 436}# + (car #{vars\ 821}#) + #{w\ 823}# #f) - #{ls\ 1004}#) - #{w\ 1005}#) - (if (#{id?\ 666}# #{vars\ 1003}#) - (cons (#{wrap\ 735}# - #{vars\ 1003}# - #{w\ 1005}# + #{ls\ 822}#) + #{w\ 823}#) + (if (#{id?\ 367}# #{vars\ 821}#) + (cons (#{wrap\ 436}# + #{vars\ 821}# + #{w\ 823}# #f) - #{ls\ 1004}#) - (if (null? #{vars\ 1003}#) - #{ls\ 1004}# - (if (#{syntax-object?\ 630}# #{vars\ 1003}#) - (#{lvl\ 1002}# - (#{syntax-object-expression\ 632}# - #{vars\ 1003}#) - #{ls\ 1004}# - (#{join-wraps\ 717}# - #{w\ 1005}# - (#{syntax-object-wrap\ 634}# - #{vars\ 1003}#))) - (cons #{vars\ 1003}# #{ls\ 1004}#)))))))) - (#{lvl\ 1002}# - #{vars\ 996}# + #{ls\ 822}#) + (if (null? #{vars\ 821}#) + #{ls\ 822}# + (if (#{syntax-object?\ 331}# #{vars\ 821}#) + (#{lvl\ 820}# + (#{syntax-object-expression\ 333}# + #{vars\ 821}#) + #{ls\ 822}# + (#{join-wraps\ 418}# + #{w\ 823}# + (#{syntax-object-wrap\ 335}# + #{vars\ 821}#))) + (cons #{vars\ 821}# #{ls\ 822}#)))))))) + (#{lvl\ 820}# + #{vars\ 814}# '() '(()))))) - (#{gen-var\ 779}# - (lambda (#{id\ 1016}#) - (let ((#{id\ 1019}# - (if (#{syntax-object?\ 630}# #{id\ 1016}#) - (#{syntax-object-expression\ 632}# #{id\ 1016}#) - #{id\ 1016}#))) + (#{gen-var\ 480}# + (lambda (#{id\ 834}#) + (let ((#{id\ 837}# + (if (#{syntax-object?\ 331}# #{id\ 834}#) + (#{syntax-object-expression\ 333}# #{id\ 834}#) + #{id\ 834}#))) (gensym - (string-append (symbol->string #{id\ 1019}#) " "))))) - (#{strip\ 777}# - (lambda (#{x\ 1021}# #{w\ 1022}#) + (string-append (symbol->string #{id\ 837}#) " "))))) + (#{strip\ 478}# + (lambda (#{x\ 839}# #{w\ 840}#) (if (memq 'top - (#{wrap-marks\ 673}# #{w\ 1022}#)) - #{x\ 1021}# - (letrec ((#{f\ 1028}# - (lambda (#{x\ 1029}#) - (if (#{syntax-object?\ 630}# #{x\ 1029}#) - (#{strip\ 777}# - (#{syntax-object-expression\ 632}# - #{x\ 1029}#) - (#{syntax-object-wrap\ 634}# #{x\ 1029}#)) - (if (pair? #{x\ 1029}#) - (let ((#{a\ 1036}# - (#{f\ 1028}# (car #{x\ 1029}#))) - (#{d\ 1037}# - (#{f\ 1028}# (cdr #{x\ 1029}#)))) - (if (if (eq? #{a\ 1036}# (car #{x\ 1029}#)) - (eq? #{d\ 1037}# (cdr #{x\ 1029}#)) - #f) - #{x\ 1029}# - (cons #{a\ 1036}# #{d\ 1037}#))) - (if (vector? #{x\ 1029}#) - (let ((#{old\ 1043}# - (vector->list #{x\ 1029}#))) - (let ((#{new\ 1045}# - (map #{f\ 1028}# #{old\ 1043}#))) - (if (#{and-map*\ 466}# - eq? - #{old\ 1043}# - #{new\ 1045}#) - #{x\ 1029}# - (list->vector #{new\ 1045}#)))) - #{x\ 1029}#)))))) - (#{f\ 1028}# #{x\ 1021}#))))) - (#{chi-lambda-case\ 775}# - (lambda (#{e\ 1047}# - #{r\ 1048}# - #{w\ 1049}# - #{s\ 1050}# - #{mod\ 1051}# - #{get-formals\ 1052}# - #{clauses\ 1053}#) - (letrec ((#{expand-body\ 1068}# - (lambda (#{req\ 1069}# - #{opt\ 1070}# - #{rest\ 1071}# - #{kw\ 1072}# - #{body\ 1073}# - #{vars\ 1074}# - #{r*\ 1075}# - #{w*\ 1076}# - #{inits\ 1077}# - #{meta\ 1078}#) - ((lambda (#{tmp\ 1089}#) - ((lambda (#{tmp\ 1090}#) - (if (if #{tmp\ 1090}# - (apply (lambda (#{docstring\ 1094}# - #{e1\ 1095}# - #{e2\ 1096}#) + (#{wrap-marks\ 374}# #{w\ 840}#)) + #{x\ 839}# + (letrec ((#{f\ 846}# (lambda (#{x\ 847}#) + (if (#{syntax-object?\ 331}# + #{x\ 847}#) + (#{strip\ 478}# + (#{syntax-object-expression\ 333}# + #{x\ 847}#) + (#{syntax-object-wrap\ 335}# + #{x\ 847}#)) + (if (pair? #{x\ 847}#) + (let ((#{a\ 854}# (#{f\ 846}# (car #{x\ 847}#))) + (#{d\ 855}# (#{f\ 846}# (cdr #{x\ 847}#)))) + (if (if (eq? #{a\ 854}# + (car #{x\ 847}#)) + (eq? #{d\ 855}# + (cdr #{x\ 847}#)) + #f) + #{x\ 847}# + (cons #{a\ 854}# #{d\ 855}#))) + (if (vector? #{x\ 847}#) + (let ((#{old\ 861}# + (vector->list + #{x\ 847}#))) + (let ((#{new\ 863}# + (map #{f\ 846}# + #{old\ 861}#))) + (if (#{and-map*\ 26}# + eq? + #{old\ 861}# + #{new\ 863}#) + #{x\ 847}# + (list->vector + #{new\ 863}#)))) + #{x\ 847}#)))))) + (#{f\ 846}# #{x\ 839}#))))) + (#{chi-lambda-case\ 476}# + (lambda (#{e\ 865}# + #{r\ 866}# + #{w\ 867}# + #{s\ 868}# + #{mod\ 869}# + #{get-formals\ 870}# + #{clauses\ 871}#) + (letrec ((#{expand-body\ 886}# + (lambda (#{req\ 887}# + #{opt\ 888}# + #{rest\ 889}# + #{kw\ 890}# + #{body\ 891}# + #{vars\ 892}# + #{r*\ 893}# + #{w*\ 894}# + #{inits\ 895}# + #{meta\ 896}#) + ((lambda (#{tmp\ 907}#) + ((lambda (#{tmp\ 908}#) + (if (if #{tmp\ 908}# + (apply (lambda (#{docstring\ 912}# + #{e1\ 913}# + #{e2\ 914}#) (string? (syntax->datum - #{docstring\ 1094}#))) - #{tmp\ 1090}#) + #{docstring\ 912}#))) + #{tmp\ 908}#) #f) - (apply (lambda (#{docstring\ 1100}# - #{e1\ 1101}# - #{e2\ 1102}#) - (#{expand-body\ 1068}# - #{req\ 1069}# - #{opt\ 1070}# - #{rest\ 1071}# - #{kw\ 1072}# - (cons #{e1\ 1101}# #{e2\ 1102}#) - #{vars\ 1074}# - #{r*\ 1075}# - #{w*\ 1076}# - #{inits\ 1077}# + (apply (lambda (#{docstring\ 918}# + #{e1\ 919}# + #{e2\ 920}#) + (#{expand-body\ 886}# + #{req\ 887}# + #{opt\ 888}# + #{rest\ 889}# + #{kw\ 890}# + (cons #{e1\ 919}# #{e2\ 920}#) + #{vars\ 892}# + #{r*\ 893}# + #{w*\ 894}# + #{inits\ 895}# (append - #{meta\ 1078}# + #{meta\ 896}# (list (cons 'documentation (syntax->datum - #{docstring\ 1100}#)))))) - #{tmp\ 1090}#) - ((lambda (#{tmp\ 1105}#) - (if #{tmp\ 1105}# - (apply (lambda (#{k\ 1110}# - #{v\ 1111}# - #{e1\ 1112}# - #{e2\ 1113}#) - (#{expand-body\ 1068}# - #{req\ 1069}# - #{opt\ 1070}# - #{rest\ 1071}# - #{kw\ 1072}# - (cons #{e1\ 1112}# - #{e2\ 1113}#) - #{vars\ 1074}# - #{r*\ 1075}# - #{w*\ 1076}# - #{inits\ 1077}# + #{docstring\ 918}#)))))) + #{tmp\ 908}#) + ((lambda (#{tmp\ 923}#) + (if #{tmp\ 923}# + (apply (lambda (#{k\ 928}# + #{v\ 929}# + #{e1\ 930}# + #{e2\ 931}#) + (#{expand-body\ 886}# + #{req\ 887}# + #{opt\ 888}# + #{rest\ 889}# + #{kw\ 890}# + (cons #{e1\ 930}# + #{e2\ 931}#) + #{vars\ 892}# + #{r*\ 893}# + #{w*\ 894}# + #{inits\ 895}# (append - #{meta\ 1078}# + #{meta\ 896}# (syntax->datum (map cons - #{k\ 1110}# - #{v\ 1111}#))))) - #{tmp\ 1105}#) - ((lambda (#{tmp\ 1117}#) - (if #{tmp\ 1117}# - (apply (lambda (#{e1\ 1120}# - #{e2\ 1121}#) + #{k\ 928}# + #{v\ 929}#))))) + #{tmp\ 923}#) + ((lambda (#{tmp\ 935}#) + (if #{tmp\ 935}# + (apply (lambda (#{e1\ 938}# + #{e2\ 939}#) (values - #{meta\ 1078}# - #{req\ 1069}# - #{opt\ 1070}# - #{rest\ 1071}# - #{kw\ 1072}# - #{inits\ 1077}# - #{vars\ 1074}# - (#{chi-body\ 759}# - (cons #{e1\ 1120}# - #{e2\ 1121}#) - (#{source-wrap\ 737}# - #{e\ 1047}# - #{w\ 1049}# - #{s\ 1050}# - #{mod\ 1051}#) - #{r*\ 1075}# - #{w*\ 1076}# - #{mod\ 1051}#))) - #{tmp\ 1117}#) + #{meta\ 896}# + #{req\ 887}# + #{opt\ 888}# + #{rest\ 889}# + #{kw\ 890}# + #{inits\ 895}# + #{vars\ 892}# + (#{chi-body\ 460}# + (cons #{e1\ 938}# + #{e2\ 939}#) + (#{source-wrap\ 438}# + #{e\ 865}# + #{w\ 867}# + #{s\ 868}# + #{mod\ 869}#) + #{r*\ 893}# + #{w*\ 894}# + #{mod\ 869}#))) + #{tmp\ 935}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1089}#))) + #{tmp\ 907}#))) ($sc-dispatch - #{tmp\ 1089}# + #{tmp\ 907}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 1089}# + #{tmp\ 907}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 1089}# + #{tmp\ 907}# '(any any . each-any)))) - #{body\ 1073}#))) - (#{expand-kw\ 1066}# - (lambda (#{req\ 1123}# - #{opt\ 1124}# - #{rest\ 1125}# - #{kw\ 1126}# - #{body\ 1127}# - #{vars\ 1128}# - #{r*\ 1129}# - #{w*\ 1130}# - #{aok\ 1131}# - #{out\ 1132}# - #{inits\ 1133}#) - (if (pair? #{kw\ 1126}#) - ((lambda (#{tmp\ 1147}#) - ((lambda (#{tmp\ 1148}#) - (if #{tmp\ 1148}# - (apply (lambda (#{k\ 1152}# - #{id\ 1153}# - #{i\ 1154}#) - (let ((#{v\ 1157}# - (#{gen-var\ 779}# - #{id\ 1153}#))) - (let ((#{l\ 1159}# - (#{gen-labels\ 684}# - (list #{v\ 1157}#)))) - (let ((#{r**\ 1161}# - (#{extend-var-env\ 656}# - #{l\ 1159}# - (list #{v\ 1157}#) - #{r*\ 1129}#))) - (let ((#{w**\ 1163}# - (#{make-binding-wrap\ 713}# - (list #{id\ 1153}#) - #{l\ 1159}# - #{w*\ 1130}#))) - (#{expand-kw\ 1066}# - #{req\ 1123}# - #{opt\ 1124}# - #{rest\ 1125}# - (cdr #{kw\ 1126}#) - #{body\ 1127}# - (cons #{v\ 1157}# - #{vars\ 1128}#) - #{r**\ 1161}# - #{w**\ 1163}# - #{aok\ 1131}# + #{body\ 891}#))) + (#{expand-kw\ 884}# + (lambda (#{req\ 941}# + #{opt\ 942}# + #{rest\ 943}# + #{kw\ 944}# + #{body\ 945}# + #{vars\ 946}# + #{r*\ 947}# + #{w*\ 948}# + #{aok\ 949}# + #{out\ 950}# + #{inits\ 951}#) + (if (pair? #{kw\ 944}#) + ((lambda (#{tmp\ 965}#) + ((lambda (#{tmp\ 966}#) + (if #{tmp\ 966}# + (apply (lambda (#{k\ 970}# + #{id\ 971}# + #{i\ 972}#) + (let ((#{v\ 975}# (#{gen-var\ 480}# + #{id\ 971}#))) + (let ((#{l\ 977}# (#{gen-labels\ 385}# + (list #{v\ 975}#)))) + (let ((#{r**\ 979}# + (#{extend-var-env\ 357}# + #{l\ 977}# + (list #{v\ 975}#) + #{r*\ 947}#))) + (let ((#{w**\ 981}# + (#{make-binding-wrap\ 414}# + (list #{id\ 971}#) + #{l\ 977}# + #{w*\ 948}#))) + (#{expand-kw\ 884}# + #{req\ 941}# + #{opt\ 942}# + #{rest\ 943}# + (cdr #{kw\ 944}#) + #{body\ 945}# + (cons #{v\ 975}# + #{vars\ 946}#) + #{r**\ 979}# + #{w**\ 981}# + #{aok\ 949}# (cons (list (syntax->datum - #{k\ 1152}#) + #{k\ 970}#) (syntax->datum - #{id\ 1153}#) - #{v\ 1157}#) - #{out\ 1132}#) - (cons (#{chi\ 751}# - #{i\ 1154}# - #{r*\ 1129}# - #{w*\ 1130}# - #{mod\ 1051}#) - #{inits\ 1133}#))))))) - #{tmp\ 1148}#) + #{id\ 971}#) + #{v\ 975}#) + #{out\ 950}#) + (cons (#{chi\ 452}# + #{i\ 972}# + #{r*\ 947}# + #{w*\ 948}# + #{mod\ 869}#) + #{inits\ 951}#))))))) + #{tmp\ 966}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1147}#))) + #{tmp\ 965}#))) ($sc-dispatch - #{tmp\ 1147}# + #{tmp\ 965}# '(any any any)))) - (car #{kw\ 1126}#)) - (#{expand-body\ 1068}# - #{req\ 1123}# - #{opt\ 1124}# - #{rest\ 1125}# - (if (let ((#{t\ 1167}# #{aok\ 1131}#)) - (if #{t\ 1167}# - #{t\ 1167}# - (pair? #{out\ 1132}#))) - (cons #{aok\ 1131}# (reverse #{out\ 1132}#)) + (car #{kw\ 944}#)) + (#{expand-body\ 886}# + #{req\ 941}# + #{opt\ 942}# + #{rest\ 943}# + (if (let ((#{t\ 985}# #{aok\ 949}#)) + (if #{t\ 985}# + #{t\ 985}# + (pair? #{out\ 950}#))) + (cons #{aok\ 949}# (reverse #{out\ 950}#)) #f) - #{body\ 1127}# - (reverse #{vars\ 1128}#) - #{r*\ 1129}# - #{w*\ 1130}# - (reverse #{inits\ 1133}#) + #{body\ 945}# + (reverse #{vars\ 946}#) + #{r*\ 947}# + #{w*\ 948}# + (reverse #{inits\ 951}#) '())))) - (#{expand-opt\ 1064}# - (lambda (#{req\ 1169}# - #{opt\ 1170}# - #{rest\ 1171}# - #{kw\ 1172}# - #{body\ 1173}# - #{vars\ 1174}# - #{r*\ 1175}# - #{w*\ 1176}# - #{out\ 1177}# - #{inits\ 1178}#) - (if (pair? #{opt\ 1170}#) - ((lambda (#{tmp\ 1191}#) - ((lambda (#{tmp\ 1192}#) - (if #{tmp\ 1192}# - (apply (lambda (#{id\ 1195}# #{i\ 1196}#) - (let ((#{v\ 1199}# - (#{gen-var\ 779}# - #{id\ 1195}#))) - (let ((#{l\ 1201}# - (#{gen-labels\ 684}# - (list #{v\ 1199}#)))) - (let ((#{r**\ 1203}# - (#{extend-var-env\ 656}# - #{l\ 1201}# - (list #{v\ 1199}#) - #{r*\ 1175}#))) - (let ((#{w**\ 1205}# - (#{make-binding-wrap\ 713}# - (list #{id\ 1195}#) - #{l\ 1201}# - #{w*\ 1176}#))) - (#{expand-opt\ 1064}# - #{req\ 1169}# - (cdr #{opt\ 1170}#) - #{rest\ 1171}# - #{kw\ 1172}# - #{body\ 1173}# - (cons #{v\ 1199}# - #{vars\ 1174}#) - #{r**\ 1203}# - #{w**\ 1205}# + (#{expand-opt\ 882}# + (lambda (#{req\ 987}# + #{opt\ 988}# + #{rest\ 989}# + #{kw\ 990}# + #{body\ 991}# + #{vars\ 992}# + #{r*\ 993}# + #{w*\ 994}# + #{out\ 995}# + #{inits\ 996}#) + (if (pair? #{opt\ 988}#) + ((lambda (#{tmp\ 1009}#) + ((lambda (#{tmp\ 1010}#) + (if #{tmp\ 1010}# + (apply (lambda (#{id\ 1013}# #{i\ 1014}#) + (let ((#{v\ 1017}# + (#{gen-var\ 480}# + #{id\ 1013}#))) + (let ((#{l\ 1019}# + (#{gen-labels\ 385}# + (list #{v\ 1017}#)))) + (let ((#{r**\ 1021}# + (#{extend-var-env\ 357}# + #{l\ 1019}# + (list #{v\ 1017}#) + #{r*\ 993}#))) + (let ((#{w**\ 1023}# + (#{make-binding-wrap\ 414}# + (list #{id\ 1013}#) + #{l\ 1019}# + #{w*\ 994}#))) + (#{expand-opt\ 882}# + #{req\ 987}# + (cdr #{opt\ 988}#) + #{rest\ 989}# + #{kw\ 990}# + #{body\ 991}# + (cons #{v\ 1017}# + #{vars\ 992}#) + #{r**\ 1021}# + #{w**\ 1023}# (cons (syntax->datum - #{id\ 1195}#) - #{out\ 1177}#) - (cons (#{chi\ 751}# - #{i\ 1196}# - #{r*\ 1175}# - #{w*\ 1176}# - #{mod\ 1051}#) - #{inits\ 1178}#))))))) - #{tmp\ 1192}#) + #{id\ 1013}#) + #{out\ 995}#) + (cons (#{chi\ 452}# + #{i\ 1014}# + #{r*\ 993}# + #{w*\ 994}# + #{mod\ 869}#) + #{inits\ 996}#))))))) + #{tmp\ 1010}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1191}#))) + #{tmp\ 1009}#))) ($sc-dispatch - #{tmp\ 1191}# + #{tmp\ 1009}# '(any any)))) - (car #{opt\ 1170}#)) - (if #{rest\ 1171}# - (let ((#{v\ 1210}# - (#{gen-var\ 779}# #{rest\ 1171}#))) - (let ((#{l\ 1212}# - (#{gen-labels\ 684}# - (list #{v\ 1210}#)))) - (let ((#{r*\ 1214}# - (#{extend-var-env\ 656}# - #{l\ 1212}# - (list #{v\ 1210}#) - #{r*\ 1175}#))) - (let ((#{w*\ 1216}# - (#{make-binding-wrap\ 713}# - (list #{rest\ 1171}#) - #{l\ 1212}# - #{w*\ 1176}#))) - (#{expand-kw\ 1066}# - #{req\ 1169}# - (if (pair? #{out\ 1177}#) - (reverse #{out\ 1177}#) + (car #{opt\ 988}#)) + (if #{rest\ 989}# + (let ((#{v\ 1028}# + (#{gen-var\ 480}# #{rest\ 989}#))) + (let ((#{l\ 1030}# + (#{gen-labels\ 385}# + (list #{v\ 1028}#)))) + (let ((#{r*\ 1032}# + (#{extend-var-env\ 357}# + #{l\ 1030}# + (list #{v\ 1028}#) + #{r*\ 993}#))) + (let ((#{w*\ 1034}# + (#{make-binding-wrap\ 414}# + (list #{rest\ 989}#) + #{l\ 1030}# + #{w*\ 994}#))) + (#{expand-kw\ 884}# + #{req\ 987}# + (if (pair? #{out\ 995}#) + (reverse #{out\ 995}#) #f) - (syntax->datum #{rest\ 1171}#) - (if (pair? #{kw\ 1172}#) - (cdr #{kw\ 1172}#) - #{kw\ 1172}#) - #{body\ 1173}# - (cons #{v\ 1210}# #{vars\ 1174}#) - #{r*\ 1214}# - #{w*\ 1216}# - (if (pair? #{kw\ 1172}#) - (car #{kw\ 1172}#) + (syntax->datum #{rest\ 989}#) + (if (pair? #{kw\ 990}#) + (cdr #{kw\ 990}#) + #{kw\ 990}#) + #{body\ 991}# + (cons #{v\ 1028}# #{vars\ 992}#) + #{r*\ 1032}# + #{w*\ 1034}# + (if (pair? #{kw\ 990}#) + (car #{kw\ 990}#) #f) '() - #{inits\ 1178}#))))) - (#{expand-kw\ 1066}# - #{req\ 1169}# - (if (pair? #{out\ 1177}#) - (reverse #{out\ 1177}#) + #{inits\ 996}#))))) + (#{expand-kw\ 884}# + #{req\ 987}# + (if (pair? #{out\ 995}#) + (reverse #{out\ 995}#) #f) #f - (if (pair? #{kw\ 1172}#) - (cdr #{kw\ 1172}#) - #{kw\ 1172}#) - #{body\ 1173}# - #{vars\ 1174}# - #{r*\ 1175}# - #{w*\ 1176}# - (if (pair? #{kw\ 1172}#) - (car #{kw\ 1172}#) - #f) + (if (pair? #{kw\ 990}#) + (cdr #{kw\ 990}#) + #{kw\ 990}#) + #{body\ 991}# + #{vars\ 992}# + #{r*\ 993}# + #{w*\ 994}# + (if (pair? #{kw\ 990}#) (car #{kw\ 990}#) #f) '() - #{inits\ 1178}#))))) - (#{expand-req\ 1062}# - (lambda (#{req\ 1218}# - #{opt\ 1219}# - #{rest\ 1220}# - #{kw\ 1221}# - #{body\ 1222}#) - (let ((#{vars\ 1230}# - (map #{gen-var\ 779}# #{req\ 1218}#)) - (#{labels\ 1231}# - (#{gen-labels\ 684}# #{req\ 1218}#))) - (let ((#{r*\ 1234}# - (#{extend-var-env\ 656}# - #{labels\ 1231}# - #{vars\ 1230}# - #{r\ 1048}#)) - (#{w*\ 1235}# - (#{make-binding-wrap\ 713}# - #{req\ 1218}# - #{labels\ 1231}# - #{w\ 1049}#))) - (#{expand-opt\ 1064}# - (map syntax->datum #{req\ 1218}#) - #{opt\ 1219}# - #{rest\ 1220}# - #{kw\ 1221}# - #{body\ 1222}# - (reverse #{vars\ 1230}#) - #{r*\ 1234}# - #{w*\ 1235}# + #{inits\ 996}#))))) + (#{expand-req\ 880}# + (lambda (#{req\ 1036}# + #{opt\ 1037}# + #{rest\ 1038}# + #{kw\ 1039}# + #{body\ 1040}#) + (let ((#{vars\ 1048}# + (map #{gen-var\ 480}# #{req\ 1036}#)) + (#{labels\ 1049}# + (#{gen-labels\ 385}# #{req\ 1036}#))) + (let ((#{r*\ 1052}# + (#{extend-var-env\ 357}# + #{labels\ 1049}# + #{vars\ 1048}# + #{r\ 866}#)) + (#{w*\ 1053}# + (#{make-binding-wrap\ 414}# + #{req\ 1036}# + #{labels\ 1049}# + #{w\ 867}#))) + (#{expand-opt\ 882}# + (map syntax->datum #{req\ 1036}#) + #{opt\ 1037}# + #{rest\ 1038}# + #{kw\ 1039}# + #{body\ 1040}# + (reverse #{vars\ 1048}#) + #{r*\ 1052}# + #{w*\ 1053}# '() '())))))) - ((lambda (#{tmp\ 1236}#) - ((lambda (#{tmp\ 1237}#) - (if #{tmp\ 1237}# + ((lambda (#{tmp\ 1054}#) + ((lambda (#{tmp\ 1055}#) + (if #{tmp\ 1055}# (apply (lambda () (values (quote ()) #f)) - #{tmp\ 1237}#) - ((lambda (#{tmp\ 1238}#) - (if #{tmp\ 1238}# - (apply (lambda (#{args\ 1245}# - #{e1\ 1246}# - #{e2\ 1247}# - #{args*\ 1248}# - #{e1*\ 1249}# - #{e2*\ 1250}#) + #{tmp\ 1055}#) + ((lambda (#{tmp\ 1056}#) + (if #{tmp\ 1056}# + (apply (lambda (#{args\ 1063}# + #{e1\ 1064}# + #{e2\ 1065}# + #{args*\ 1066}# + #{e1*\ 1067}# + #{e2*\ 1068}#) (call-with-values (lambda () - (#{get-formals\ 1052}# - #{args\ 1245}#)) - (lambda (#{req\ 1251}# - #{opt\ 1252}# - #{rest\ 1253}# - #{kw\ 1254}#) + (#{get-formals\ 870}# + #{args\ 1063}#)) + (lambda (#{req\ 1069}# + #{opt\ 1070}# + #{rest\ 1071}# + #{kw\ 1072}#) (call-with-values (lambda () - (#{expand-req\ 1062}# - #{req\ 1251}# - #{opt\ 1252}# - #{rest\ 1253}# - #{kw\ 1254}# - (cons #{e1\ 1246}# - #{e2\ 1247}#))) - (lambda (#{meta\ 1260}# - #{req\ 1261}# - #{opt\ 1262}# - #{rest\ 1263}# - #{kw\ 1264}# - #{inits\ 1265}# - #{vars\ 1266}# - #{body\ 1267}#) + (#{expand-req\ 880}# + #{req\ 1069}# + #{opt\ 1070}# + #{rest\ 1071}# + #{kw\ 1072}# + (cons #{e1\ 1064}# + #{e2\ 1065}#))) + (lambda (#{meta\ 1078}# + #{req\ 1079}# + #{opt\ 1080}# + #{rest\ 1081}# + #{kw\ 1082}# + #{inits\ 1083}# + #{vars\ 1084}# + #{body\ 1085}#) (call-with-values (lambda () - (#{chi-lambda-case\ 775}# - #{e\ 1047}# - #{r\ 1048}# - #{w\ 1049}# - #{s\ 1050}# - #{mod\ 1051}# - #{get-formals\ 1052}# - (map (lambda (#{tmp\ 1278}# - #{tmp\ 1277}# - #{tmp\ 1276}#) - (cons #{tmp\ 1276}# - (cons #{tmp\ 1277}# - #{tmp\ 1278}#))) - #{e2*\ 1250}# - #{e1*\ 1249}# - #{args*\ 1248}#))) - (lambda (#{meta*\ 1280}# - #{else*\ 1281}#) + (#{chi-lambda-case\ 476}# + #{e\ 865}# + #{r\ 866}# + #{w\ 867}# + #{s\ 868}# + #{mod\ 869}# + #{get-formals\ 870}# + (map (lambda (#{tmp\ 1096}# + #{tmp\ 1095}# + #{tmp\ 1094}#) + (cons #{tmp\ 1094}# + (cons #{tmp\ 1095}# + #{tmp\ 1096}#))) + #{e2*\ 1068}# + #{e1*\ 1067}# + #{args*\ 1066}#))) + (lambda (#{meta*\ 1098}# + #{else*\ 1099}#) (values (append - #{meta\ 1260}# - #{meta*\ 1280}#) - (#{build-lambda-case\ 612}# - #{s\ 1050}# - #{req\ 1261}# - #{opt\ 1262}# - #{rest\ 1263}# - #{kw\ 1264}# - #{inits\ 1265}# - #{vars\ 1266}# - #{body\ 1267}# - #{else*\ 1281}#))))))))) - #{tmp\ 1238}#) + #{meta\ 1078}# + #{meta*\ 1098}#) + (#{build-lambda-case\ 313}# + #{s\ 868}# + #{req\ 1079}# + #{opt\ 1080}# + #{rest\ 1081}# + #{kw\ 1082}# + #{inits\ 1083}# + #{vars\ 1084}# + #{body\ 1085}# + #{else*\ 1099}#))))))))) + #{tmp\ 1056}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1236}#))) + #{tmp\ 1054}#))) ($sc-dispatch - #{tmp\ 1236}# + #{tmp\ 1054}# '((any any . each-any) . #(each (any any . each-any))))))) - ($sc-dispatch #{tmp\ 1236}# (quote ())))) - #{clauses\ 1053}#)))) - (#{lambda*-formals\ 773}# - (lambda (#{orig-args\ 1284}#) - (letrec ((#{check\ 1295}# - (lambda (#{req\ 1296}# - #{opt\ 1297}# - #{rest\ 1298}# - #{kw\ 1299}#) - (if (#{distinct-bound-ids?\ 731}# + ($sc-dispatch #{tmp\ 1054}# (quote ())))) + #{clauses\ 871}#)))) + (#{lambda*-formals\ 474}# + (lambda (#{orig-args\ 1102}#) + (letrec ((#{check\ 1113}# + (lambda (#{req\ 1114}# + #{opt\ 1115}# + #{rest\ 1116}# + #{kw\ 1117}#) + (if (#{distinct-bound-ids?\ 432}# (append - #{req\ 1296}# - (map car #{opt\ 1297}#) - (if #{rest\ 1298}# - (list #{rest\ 1298}#) + #{req\ 1114}# + (map car #{opt\ 1115}#) + (if #{rest\ 1116}# + (list #{rest\ 1116}#) '()) - (if (pair? #{kw\ 1299}#) - (map cadr (cdr #{kw\ 1299}#)) + (if (pair? #{kw\ 1117}#) + (map cadr (cdr #{kw\ 1117}#)) '()))) (values - #{req\ 1296}# - #{opt\ 1297}# - #{rest\ 1298}# - #{kw\ 1299}#) + #{req\ 1114}# + #{opt\ 1115}# + #{rest\ 1116}# + #{kw\ 1117}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args\ 1284}#)))) - (#{rest\ 1293}# - (lambda (#{args\ 1307}# - #{req\ 1308}# - #{opt\ 1309}# - #{kw\ 1310}#) - ((lambda (#{tmp\ 1315}#) - ((lambda (#{tmp\ 1316}#) - (if (if #{tmp\ 1316}# - (apply (lambda (#{r\ 1318}#) - (#{id?\ 666}# #{r\ 1318}#)) - #{tmp\ 1316}#) + #{orig-args\ 1102}#)))) + (#{rest\ 1111}# + (lambda (#{args\ 1125}# + #{req\ 1126}# + #{opt\ 1127}# + #{kw\ 1128}#) + ((lambda (#{tmp\ 1133}#) + ((lambda (#{tmp\ 1134}#) + (if (if #{tmp\ 1134}# + (apply (lambda (#{r\ 1136}#) + (#{id?\ 367}# #{r\ 1136}#)) + #{tmp\ 1134}#) #f) - (apply (lambda (#{r\ 1320}#) - (#{check\ 1295}# - #{req\ 1308}# - #{opt\ 1309}# - #{r\ 1320}# - #{kw\ 1310}#)) - #{tmp\ 1316}#) - ((lambda (#{else\ 1322}#) + (apply (lambda (#{r\ 1138}#) + (#{check\ 1113}# + #{req\ 1126}# + #{opt\ 1127}# + #{r\ 1138}# + #{kw\ 1128}#)) + #{tmp\ 1134}#) + ((lambda (#{else\ 1140}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args\ 1284}# - #{args\ 1307}#)) - #{tmp\ 1315}#))) - (list #{tmp\ 1315}#))) - #{args\ 1307}#))) - (#{key\ 1291}# - (lambda (#{args\ 1323}# - #{req\ 1324}# - #{opt\ 1325}# - #{rkey\ 1326}#) - ((lambda (#{tmp\ 1331}#) - ((lambda (#{tmp\ 1332}#) - (if #{tmp\ 1332}# + #{orig-args\ 1102}# + #{args\ 1125}#)) + #{tmp\ 1133}#))) + (list #{tmp\ 1133}#))) + #{args\ 1125}#))) + (#{key\ 1109}# + (lambda (#{args\ 1141}# + #{req\ 1142}# + #{opt\ 1143}# + #{rkey\ 1144}#) + ((lambda (#{tmp\ 1149}#) + ((lambda (#{tmp\ 1150}#) + (if #{tmp\ 1150}# (apply (lambda () - (#{check\ 1295}# - #{req\ 1324}# - #{opt\ 1325}# + (#{check\ 1113}# + #{req\ 1142}# + #{opt\ 1143}# #f (cons #f (reverse - #{rkey\ 1326}#)))) - #{tmp\ 1332}#) - ((lambda (#{tmp\ 1333}#) - (if (if #{tmp\ 1333}# - (apply (lambda (#{a\ 1336}# - #{b\ 1337}#) - (#{id?\ 666}# - #{a\ 1336}#)) - #{tmp\ 1333}#) + #{rkey\ 1144}#)))) + #{tmp\ 1150}#) + ((lambda (#{tmp\ 1151}#) + (if (if #{tmp\ 1151}# + (apply (lambda (#{a\ 1154}# + #{b\ 1155}#) + (#{id?\ 367}# + #{a\ 1154}#)) + #{tmp\ 1151}#) #f) - (apply (lambda (#{a\ 1340}# - #{b\ 1341}#) - ((lambda (#{tmp\ 1343}#) - ((lambda (#{k\ 1345}#) - (#{key\ 1291}# - #{b\ 1341}# - #{req\ 1324}# - #{opt\ 1325}# - (cons (cons #{k\ 1345}# - (cons #{a\ 1340}# + (apply (lambda (#{a\ 1158}# + #{b\ 1159}#) + ((lambda (#{tmp\ 1161}#) + ((lambda (#{k\ 1163}#) + (#{key\ 1109}# + #{b\ 1159}# + #{req\ 1142}# + #{opt\ 1143}# + (cons (cons #{k\ 1163}# + (cons #{a\ 1158}# '(#(syntax-object #f ((top) #(ribcage #(k) #((top)) - #("i1344")) + #("i1162")) #(ribcage #(a b) #((top) (top)) - #("i1338" - "i1339")) + #("i1156" + "i1157")) #(ribcage () () @@ -651,10 +651,10 @@ (top) (top) (top)) - #("i1327" - "i1328" - "i1329" - "i1330")) + #("i1145" + "i1146" + "i1147" + "i1148")) #(ribcage (check rest key @@ -665,15 +665,15 @@ (top) (top) (top)) - ("i1294" - "i1292" - "i1290" - "i1288" - "i1286")) + ("i1112" + "i1110" + "i1108" + "i1106" + "i1104")) #(ribcage #(orig-args) #((top)) - #("i1285")) + #("i1103")) #(ribcage (lambda-var-list gen-var @@ -791,6 +791,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -908,350 +926,389 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) ((top) + (top) (top)) - ("i467" - "i465"))) + ("i28" + "i27" + "i25"))) (hygiene guile))))) - #{rkey\ 1326}#))) - #{tmp\ 1343}#)) + #{rkey\ 1144}#))) + #{tmp\ 1161}#)) (symbol->keyword (syntax->datum - #{a\ 1340}#)))) - #{tmp\ 1333}#) - ((lambda (#{tmp\ 1346}#) - (if (if #{tmp\ 1346}# - (apply (lambda (#{a\ 1350}# - #{init\ 1351}# - #{b\ 1352}#) - (#{id?\ 666}# - #{a\ 1350}#)) - #{tmp\ 1346}#) + #{a\ 1158}#)))) + #{tmp\ 1151}#) + ((lambda (#{tmp\ 1164}#) + (if (if #{tmp\ 1164}# + (apply (lambda (#{a\ 1168}# + #{init\ 1169}# + #{b\ 1170}#) + (#{id?\ 367}# + #{a\ 1168}#)) + #{tmp\ 1164}#) #f) - (apply (lambda (#{a\ 1356}# - #{init\ 1357}# - #{b\ 1358}#) - ((lambda (#{tmp\ 1360}#) - ((lambda (#{k\ 1362}#) - (#{key\ 1291}# - #{b\ 1358}# - #{req\ 1324}# - #{opt\ 1325}# - (cons (list #{k\ 1362}# - #{a\ 1356}# - #{init\ 1357}#) - #{rkey\ 1326}#))) - #{tmp\ 1360}#)) + (apply (lambda (#{a\ 1174}# + #{init\ 1175}# + #{b\ 1176}#) + ((lambda (#{tmp\ 1178}#) + ((lambda (#{k\ 1180}#) + (#{key\ 1109}# + #{b\ 1176}# + #{req\ 1142}# + #{opt\ 1143}# + (cons (list #{k\ 1180}# + #{a\ 1174}# + #{init\ 1175}#) + #{rkey\ 1144}#))) + #{tmp\ 1178}#)) (symbol->keyword (syntax->datum - #{a\ 1356}#)))) - #{tmp\ 1346}#) - ((lambda (#{tmp\ 1363}#) - (if (if #{tmp\ 1363}# - (apply (lambda (#{a\ 1368}# - #{init\ 1369}# - #{k\ 1370}# - #{b\ 1371}#) - (if (#{id?\ 666}# - #{a\ 1368}#) + #{a\ 1174}#)))) + #{tmp\ 1164}#) + ((lambda (#{tmp\ 1181}#) + (if (if #{tmp\ 1181}# + (apply (lambda (#{a\ 1186}# + #{init\ 1187}# + #{k\ 1188}# + #{b\ 1189}#) + (if (#{id?\ 367}# + #{a\ 1186}#) (keyword? (syntax->datum - #{k\ 1370}#)) + #{k\ 1188}#)) #f)) - #{tmp\ 1363}#) + #{tmp\ 1181}#) #f) - (apply (lambda (#{a\ 1378}# - #{init\ 1379}# - #{k\ 1380}# - #{b\ 1381}#) - (#{key\ 1291}# - #{b\ 1381}# - #{req\ 1324}# - #{opt\ 1325}# - (cons (list #{k\ 1380}# - #{a\ 1378}# - #{init\ 1379}#) - #{rkey\ 1326}#))) - #{tmp\ 1363}#) - ((lambda (#{tmp\ 1382}#) - (if (if #{tmp\ 1382}# - (apply (lambda (#{aok\ 1384}#) + (apply (lambda (#{a\ 1196}# + #{init\ 1197}# + #{k\ 1198}# + #{b\ 1199}#) + (#{key\ 1109}# + #{b\ 1199}# + #{req\ 1142}# + #{opt\ 1143}# + (cons (list #{k\ 1198}# + #{a\ 1196}# + #{init\ 1197}#) + #{rkey\ 1144}#))) + #{tmp\ 1181}#) + ((lambda (#{tmp\ 1200}#) + (if (if #{tmp\ 1200}# + (apply (lambda (#{aok\ 1202}#) (eq? (syntax->datum - #{aok\ 1384}#) + #{aok\ 1202}#) #:allow-other-keys)) - #{tmp\ 1382}#) + #{tmp\ 1200}#) #f) - (apply (lambda (#{aok\ 1386}#) - (#{check\ 1295}# - #{req\ 1324}# - #{opt\ 1325}# + (apply (lambda (#{aok\ 1204}#) + (#{check\ 1113}# + #{req\ 1142}# + #{opt\ 1143}# #f (cons #t (reverse - #{rkey\ 1326}#)))) - #{tmp\ 1382}#) - ((lambda (#{tmp\ 1387}#) - (if (if #{tmp\ 1387}# - (apply (lambda (#{aok\ 1391}# - #{a\ 1392}# - #{b\ 1393}#) + #{rkey\ 1144}#)))) + #{tmp\ 1200}#) + ((lambda (#{tmp\ 1205}#) + (if (if #{tmp\ 1205}# + (apply (lambda (#{aok\ 1209}# + #{a\ 1210}# + #{b\ 1211}#) (if (eq? (syntax->datum - #{aok\ 1391}#) + #{aok\ 1209}#) #:allow-other-keys) (eq? (syntax->datum - #{a\ 1392}#) + #{a\ 1210}#) #:rest) #f)) - #{tmp\ 1387}#) + #{tmp\ 1205}#) #f) - (apply (lambda (#{aok\ 1399}# - #{a\ 1400}# - #{b\ 1401}#) - (#{rest\ 1293}# - #{b\ 1401}# - #{req\ 1324}# - #{opt\ 1325}# + (apply (lambda (#{aok\ 1217}# + #{a\ 1218}# + #{b\ 1219}#) + (#{rest\ 1111}# + #{b\ 1219}# + #{req\ 1142}# + #{opt\ 1143}# (cons #t (reverse - #{rkey\ 1326}#)))) - #{tmp\ 1387}#) - ((lambda (#{tmp\ 1402}#) - (if (if #{tmp\ 1402}# - (apply (lambda (#{aok\ 1405}# - #{r\ 1406}#) + #{rkey\ 1144}#)))) + #{tmp\ 1205}#) + ((lambda (#{tmp\ 1220}#) + (if (if #{tmp\ 1220}# + (apply (lambda (#{aok\ 1223}# + #{r\ 1224}#) (if (eq? (syntax->datum - #{aok\ 1405}#) + #{aok\ 1223}#) #:allow-other-keys) - (#{id?\ 666}# - #{r\ 1406}#) + (#{id?\ 367}# + #{r\ 1224}#) #f)) - #{tmp\ 1402}#) + #{tmp\ 1220}#) #f) - (apply (lambda (#{aok\ 1411}# - #{r\ 1412}#) - (#{rest\ 1293}# - #{r\ 1412}# - #{req\ 1324}# - #{opt\ 1325}# + (apply (lambda (#{aok\ 1229}# + #{r\ 1230}#) + (#{rest\ 1111}# + #{r\ 1230}# + #{req\ 1142}# + #{opt\ 1143}# (cons #t (reverse - #{rkey\ 1326}#)))) - #{tmp\ 1402}#) - ((lambda (#{tmp\ 1413}#) - (if (if #{tmp\ 1413}# - (apply (lambda (#{a\ 1416}# - #{b\ 1417}#) + #{rkey\ 1144}#)))) + #{tmp\ 1220}#) + ((lambda (#{tmp\ 1231}#) + (if (if #{tmp\ 1231}# + (apply (lambda (#{a\ 1234}# + #{b\ 1235}#) (eq? (syntax->datum - #{a\ 1416}#) + #{a\ 1234}#) #:rest)) - #{tmp\ 1413}#) + #{tmp\ 1231}#) #f) - (apply (lambda (#{a\ 1420}# - #{b\ 1421}#) - (#{rest\ 1293}# - #{b\ 1421}# - #{req\ 1324}# - #{opt\ 1325}# + (apply (lambda (#{a\ 1238}# + #{b\ 1239}#) + (#{rest\ 1111}# + #{b\ 1239}# + #{req\ 1142}# + #{opt\ 1143}# (cons #f (reverse - #{rkey\ 1326}#)))) - #{tmp\ 1413}#) - ((lambda (#{tmp\ 1422}#) - (if (if #{tmp\ 1422}# - (apply (lambda (#{r\ 1424}#) - (#{id?\ 666}# - #{r\ 1424}#)) - #{tmp\ 1422}#) + #{rkey\ 1144}#)))) + #{tmp\ 1231}#) + ((lambda (#{tmp\ 1240}#) + (if (if #{tmp\ 1240}# + (apply (lambda (#{r\ 1242}#) + (#{id?\ 367}# + #{r\ 1242}#)) + #{tmp\ 1240}#) #f) - (apply (lambda (#{r\ 1426}#) - (#{rest\ 1293}# - #{r\ 1426}# - #{req\ 1324}# - #{opt\ 1325}# + (apply (lambda (#{r\ 1244}#) + (#{rest\ 1111}# + #{r\ 1244}# + #{req\ 1142}# + #{opt\ 1143}# (cons #f (reverse - #{rkey\ 1326}#)))) - #{tmp\ 1422}#) - ((lambda (#{else\ 1428}#) + #{rkey\ 1144}#)))) + #{tmp\ 1240}#) + ((lambda (#{else\ 1246}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args\ 1284}# - #{args\ 1323}#)) - #{tmp\ 1331}#))) - (list #{tmp\ 1331}#)))) + #{orig-args\ 1102}# + #{args\ 1141}#)) + #{tmp\ 1149}#))) + (list #{tmp\ 1149}#)))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '(any any))))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '(any . any))))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '(any any any))))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '(any))))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '((any any any) . any))))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1331}# + #{tmp\ 1149}# '(any . any))))) - ($sc-dispatch #{tmp\ 1331}# (quote ())))) - #{args\ 1323}#))) - (#{opt\ 1289}# - (lambda (#{args\ 1429}# #{req\ 1430}# #{ropt\ 1431}#) - ((lambda (#{tmp\ 1435}#) - ((lambda (#{tmp\ 1436}#) - (if #{tmp\ 1436}# + ($sc-dispatch #{tmp\ 1149}# (quote ())))) + #{args\ 1141}#))) + (#{opt\ 1107}# + (lambda (#{args\ 1247}# #{req\ 1248}# #{ropt\ 1249}#) + ((lambda (#{tmp\ 1253}#) + ((lambda (#{tmp\ 1254}#) + (if #{tmp\ 1254}# (apply (lambda () - (#{check\ 1295}# - #{req\ 1430}# - (reverse #{ropt\ 1431}#) + (#{check\ 1113}# + #{req\ 1248}# + (reverse #{ropt\ 1249}#) #f '())) - #{tmp\ 1436}#) - ((lambda (#{tmp\ 1437}#) - (if (if #{tmp\ 1437}# - (apply (lambda (#{a\ 1440}# - #{b\ 1441}#) - (#{id?\ 666}# - #{a\ 1440}#)) - #{tmp\ 1437}#) + #{tmp\ 1254}#) + ((lambda (#{tmp\ 1255}#) + (if (if #{tmp\ 1255}# + (apply (lambda (#{a\ 1258}# + #{b\ 1259}#) + (#{id?\ 367}# + #{a\ 1258}#)) + #{tmp\ 1255}#) #f) - (apply (lambda (#{a\ 1444}# - #{b\ 1445}#) - (#{opt\ 1289}# - #{b\ 1445}# - #{req\ 1430}# - (cons (cons #{a\ 1444}# + (apply (lambda (#{a\ 1262}# + #{b\ 1263}#) + (#{opt\ 1107}# + #{b\ 1263}# + #{req\ 1248}# + (cons (cons #{a\ 1262}# '(#(syntax-object #f ((top) @@ -1259,8 +1316,8 @@ #(a b) #((top) (top)) - #("i1442" - "i1443")) + #("i1260" + "i1261")) #(ribcage () () @@ -1272,9 +1329,9 @@ #((top) (top) (top)) - #("i1432" - "i1433" - "i1434")) + #("i1250" + "i1251" + "i1252")) #(ribcage (check rest key @@ -1285,15 +1342,15 @@ (top) (top) (top)) - ("i1294" - "i1292" - "i1290" - "i1288" - "i1286")) + ("i1112" + "i1110" + "i1108" + "i1106" + "i1104")) #(ribcage #(orig-args) #((top)) - #("i1285")) + #("i1103")) #(ribcage (lambda-var-list gen-var @@ -1411,6 +1468,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -1528,463 +1603,502 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) ((top) + (top) (top)) - ("i467" - "i465"))) + ("i28" + "i27" + "i25"))) (hygiene guile)))) - #{ropt\ 1431}#))) - #{tmp\ 1437}#) - ((lambda (#{tmp\ 1446}#) - (if (if #{tmp\ 1446}# - (apply (lambda (#{a\ 1450}# - #{init\ 1451}# - #{b\ 1452}#) - (#{id?\ 666}# - #{a\ 1450}#)) - #{tmp\ 1446}#) + #{ropt\ 1249}#))) + #{tmp\ 1255}#) + ((lambda (#{tmp\ 1264}#) + (if (if #{tmp\ 1264}# + (apply (lambda (#{a\ 1268}# + #{init\ 1269}# + #{b\ 1270}#) + (#{id?\ 367}# + #{a\ 1268}#)) + #{tmp\ 1264}#) #f) - (apply (lambda (#{a\ 1456}# - #{init\ 1457}# - #{b\ 1458}#) - (#{opt\ 1289}# - #{b\ 1458}# - #{req\ 1430}# - (cons (list #{a\ 1456}# - #{init\ 1457}#) - #{ropt\ 1431}#))) - #{tmp\ 1446}#) - ((lambda (#{tmp\ 1459}#) - (if (if #{tmp\ 1459}# - (apply (lambda (#{a\ 1462}# - #{b\ 1463}#) + (apply (lambda (#{a\ 1274}# + #{init\ 1275}# + #{b\ 1276}#) + (#{opt\ 1107}# + #{b\ 1276}# + #{req\ 1248}# + (cons (list #{a\ 1274}# + #{init\ 1275}#) + #{ropt\ 1249}#))) + #{tmp\ 1264}#) + ((lambda (#{tmp\ 1277}#) + (if (if #{tmp\ 1277}# + (apply (lambda (#{a\ 1280}# + #{b\ 1281}#) (eq? (syntax->datum - #{a\ 1462}#) + #{a\ 1280}#) #:key)) - #{tmp\ 1459}#) + #{tmp\ 1277}#) #f) - (apply (lambda (#{a\ 1466}# - #{b\ 1467}#) - (#{key\ 1291}# - #{b\ 1467}# - #{req\ 1430}# + (apply (lambda (#{a\ 1284}# + #{b\ 1285}#) + (#{key\ 1109}# + #{b\ 1285}# + #{req\ 1248}# (reverse - #{ropt\ 1431}#) + #{ropt\ 1249}#) '())) - #{tmp\ 1459}#) - ((lambda (#{tmp\ 1468}#) - (if (if #{tmp\ 1468}# - (apply (lambda (#{a\ 1471}# - #{b\ 1472}#) + #{tmp\ 1277}#) + ((lambda (#{tmp\ 1286}#) + (if (if #{tmp\ 1286}# + (apply (lambda (#{a\ 1289}# + #{b\ 1290}#) (eq? (syntax->datum - #{a\ 1471}#) + #{a\ 1289}#) #:rest)) - #{tmp\ 1468}#) + #{tmp\ 1286}#) #f) - (apply (lambda (#{a\ 1475}# - #{b\ 1476}#) - (#{rest\ 1293}# - #{b\ 1476}# - #{req\ 1430}# + (apply (lambda (#{a\ 1293}# + #{b\ 1294}#) + (#{rest\ 1111}# + #{b\ 1294}# + #{req\ 1248}# (reverse - #{ropt\ 1431}#) + #{ropt\ 1249}#) '())) - #{tmp\ 1468}#) - ((lambda (#{tmp\ 1477}#) - (if (if #{tmp\ 1477}# - (apply (lambda (#{r\ 1479}#) - (#{id?\ 666}# - #{r\ 1479}#)) - #{tmp\ 1477}#) + #{tmp\ 1286}#) + ((lambda (#{tmp\ 1295}#) + (if (if #{tmp\ 1295}# + (apply (lambda (#{r\ 1297}#) + (#{id?\ 367}# + #{r\ 1297}#)) + #{tmp\ 1295}#) #f) - (apply (lambda (#{r\ 1481}#) - (#{rest\ 1293}# - #{r\ 1481}# - #{req\ 1430}# + (apply (lambda (#{r\ 1299}#) + (#{rest\ 1111}# + #{r\ 1299}# + #{req\ 1248}# (reverse - #{ropt\ 1431}#) + #{ropt\ 1249}#) '())) - #{tmp\ 1477}#) - ((lambda (#{else\ 1483}#) + #{tmp\ 1295}#) + ((lambda (#{else\ 1301}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args\ 1284}# - #{args\ 1429}#)) - #{tmp\ 1435}#))) - (list #{tmp\ 1435}#)))) + #{orig-args\ 1102}# + #{args\ 1247}#)) + #{tmp\ 1253}#))) + (list #{tmp\ 1253}#)))) ($sc-dispatch - #{tmp\ 1435}# + #{tmp\ 1253}# '(any any))))) ($sc-dispatch - #{tmp\ 1435}# + #{tmp\ 1253}# '(any . any))))) ($sc-dispatch - #{tmp\ 1435}# + #{tmp\ 1253}# '((any any) . any))))) ($sc-dispatch - #{tmp\ 1435}# + #{tmp\ 1253}# '(any . any))))) - ($sc-dispatch #{tmp\ 1435}# (quote ())))) - #{args\ 1429}#))) - (#{req\ 1287}# - (lambda (#{args\ 1484}# #{rreq\ 1485}#) - ((lambda (#{tmp\ 1488}#) - ((lambda (#{tmp\ 1489}#) - (if #{tmp\ 1489}# + ($sc-dispatch #{tmp\ 1253}# (quote ())))) + #{args\ 1247}#))) + (#{req\ 1105}# + (lambda (#{args\ 1302}# #{rreq\ 1303}#) + ((lambda (#{tmp\ 1306}#) + ((lambda (#{tmp\ 1307}#) + (if #{tmp\ 1307}# (apply (lambda () - (#{check\ 1295}# - (reverse #{rreq\ 1485}#) + (#{check\ 1113}# + (reverse #{rreq\ 1303}#) '() #f '())) - #{tmp\ 1489}#) - ((lambda (#{tmp\ 1490}#) - (if (if #{tmp\ 1490}# - (apply (lambda (#{a\ 1493}# - #{b\ 1494}#) - (#{id?\ 666}# - #{a\ 1493}#)) - #{tmp\ 1490}#) + #{tmp\ 1307}#) + ((lambda (#{tmp\ 1308}#) + (if (if #{tmp\ 1308}# + (apply (lambda (#{a\ 1311}# + #{b\ 1312}#) + (#{id?\ 367}# + #{a\ 1311}#)) + #{tmp\ 1308}#) #f) - (apply (lambda (#{a\ 1497}# - #{b\ 1498}#) - (#{req\ 1287}# - #{b\ 1498}# - (cons #{a\ 1497}# - #{rreq\ 1485}#))) - #{tmp\ 1490}#) - ((lambda (#{tmp\ 1499}#) - (if (if #{tmp\ 1499}# - (apply (lambda (#{a\ 1502}# - #{b\ 1503}#) + (apply (lambda (#{a\ 1315}# + #{b\ 1316}#) + (#{req\ 1105}# + #{b\ 1316}# + (cons #{a\ 1315}# + #{rreq\ 1303}#))) + #{tmp\ 1308}#) + ((lambda (#{tmp\ 1317}#) + (if (if #{tmp\ 1317}# + (apply (lambda (#{a\ 1320}# + #{b\ 1321}#) (eq? (syntax->datum - #{a\ 1502}#) + #{a\ 1320}#) #:optional)) - #{tmp\ 1499}#) + #{tmp\ 1317}#) #f) - (apply (lambda (#{a\ 1506}# - #{b\ 1507}#) - (#{opt\ 1289}# - #{b\ 1507}# + (apply (lambda (#{a\ 1324}# + #{b\ 1325}#) + (#{opt\ 1107}# + #{b\ 1325}# (reverse - #{rreq\ 1485}#) + #{rreq\ 1303}#) '())) - #{tmp\ 1499}#) - ((lambda (#{tmp\ 1508}#) - (if (if #{tmp\ 1508}# - (apply (lambda (#{a\ 1511}# - #{b\ 1512}#) + #{tmp\ 1317}#) + ((lambda (#{tmp\ 1326}#) + (if (if #{tmp\ 1326}# + (apply (lambda (#{a\ 1329}# + #{b\ 1330}#) (eq? (syntax->datum - #{a\ 1511}#) + #{a\ 1329}#) #:key)) - #{tmp\ 1508}#) + #{tmp\ 1326}#) #f) - (apply (lambda (#{a\ 1515}# - #{b\ 1516}#) - (#{key\ 1291}# - #{b\ 1516}# + (apply (lambda (#{a\ 1333}# + #{b\ 1334}#) + (#{key\ 1109}# + #{b\ 1334}# (reverse - #{rreq\ 1485}#) + #{rreq\ 1303}#) '() '())) - #{tmp\ 1508}#) - ((lambda (#{tmp\ 1517}#) - (if (if #{tmp\ 1517}# - (apply (lambda (#{a\ 1520}# - #{b\ 1521}#) + #{tmp\ 1326}#) + ((lambda (#{tmp\ 1335}#) + (if (if #{tmp\ 1335}# + (apply (lambda (#{a\ 1338}# + #{b\ 1339}#) (eq? (syntax->datum - #{a\ 1520}#) + #{a\ 1338}#) #:rest)) - #{tmp\ 1517}#) + #{tmp\ 1335}#) #f) - (apply (lambda (#{a\ 1524}# - #{b\ 1525}#) - (#{rest\ 1293}# - #{b\ 1525}# + (apply (lambda (#{a\ 1342}# + #{b\ 1343}#) + (#{rest\ 1111}# + #{b\ 1343}# (reverse - #{rreq\ 1485}#) + #{rreq\ 1303}#) '() '())) - #{tmp\ 1517}#) - ((lambda (#{tmp\ 1526}#) - (if (if #{tmp\ 1526}# - (apply (lambda (#{r\ 1528}#) - (#{id?\ 666}# - #{r\ 1528}#)) - #{tmp\ 1526}#) + #{tmp\ 1335}#) + ((lambda (#{tmp\ 1344}#) + (if (if #{tmp\ 1344}# + (apply (lambda (#{r\ 1346}#) + (#{id?\ 367}# + #{r\ 1346}#)) + #{tmp\ 1344}#) #f) - (apply (lambda (#{r\ 1530}#) - (#{rest\ 1293}# - #{r\ 1530}# + (apply (lambda (#{r\ 1348}#) + (#{rest\ 1111}# + #{r\ 1348}# (reverse - #{rreq\ 1485}#) + #{rreq\ 1303}#) '() '())) - #{tmp\ 1526}#) - ((lambda (#{else\ 1532}#) + #{tmp\ 1344}#) + ((lambda (#{else\ 1350}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args\ 1284}# - #{args\ 1484}#)) - #{tmp\ 1488}#))) - (list #{tmp\ 1488}#)))) + #{orig-args\ 1102}# + #{args\ 1302}#)) + #{tmp\ 1306}#))) + (list #{tmp\ 1306}#)))) ($sc-dispatch - #{tmp\ 1488}# + #{tmp\ 1306}# '(any any))))) ($sc-dispatch - #{tmp\ 1488}# + #{tmp\ 1306}# '(any . any))))) ($sc-dispatch - #{tmp\ 1488}# + #{tmp\ 1306}# '(any . any))))) ($sc-dispatch - #{tmp\ 1488}# + #{tmp\ 1306}# '(any . any))))) - ($sc-dispatch #{tmp\ 1488}# (quote ())))) - #{args\ 1484}#)))) - (#{req\ 1287}# #{orig-args\ 1284}# (quote ()))))) - (#{chi-simple-lambda\ 771}# - (lambda (#{e\ 1533}# - #{r\ 1534}# - #{w\ 1535}# - #{s\ 1536}# - #{mod\ 1537}# - #{req\ 1538}# - #{rest\ 1539}# - #{meta\ 1540}# - #{body\ 1541}#) - (let ((#{ids\ 1553}# - (if #{rest\ 1539}# - (append #{req\ 1538}# (list #{rest\ 1539}#)) - #{req\ 1538}#))) - (let ((#{vars\ 1555}# - (map #{gen-var\ 779}# #{ids\ 1553}#))) - (let ((#{labels\ 1557}# - (#{gen-labels\ 684}# #{ids\ 1553}#))) - (#{build-simple-lambda\ 608}# - #{s\ 1536}# - (map syntax->datum #{req\ 1538}#) - (if #{rest\ 1539}# - (syntax->datum #{rest\ 1539}#) + ($sc-dispatch #{tmp\ 1306}# (quote ())))) + #{args\ 1302}#)))) + (#{req\ 1105}# #{orig-args\ 1102}# (quote ()))))) + (#{chi-simple-lambda\ 472}# + (lambda (#{e\ 1351}# + #{r\ 1352}# + #{w\ 1353}# + #{s\ 1354}# + #{mod\ 1355}# + #{req\ 1356}# + #{rest\ 1357}# + #{meta\ 1358}# + #{body\ 1359}#) + (let ((#{ids\ 1371}# + (if #{rest\ 1357}# + (append #{req\ 1356}# (list #{rest\ 1357}#)) + #{req\ 1356}#))) + (let ((#{vars\ 1373}# + (map #{gen-var\ 480}# #{ids\ 1371}#))) + (let ((#{labels\ 1375}# + (#{gen-labels\ 385}# #{ids\ 1371}#))) + (#{build-simple-lambda\ 309}# + #{s\ 1354}# + (map syntax->datum #{req\ 1356}#) + (if #{rest\ 1357}# + (syntax->datum #{rest\ 1357}#) #f) - #{vars\ 1555}# - #{meta\ 1540}# - (#{chi-body\ 759}# - #{body\ 1541}# - (#{source-wrap\ 737}# - #{e\ 1533}# - #{w\ 1535}# - #{s\ 1536}# - #{mod\ 1537}#) - (#{extend-var-env\ 656}# - #{labels\ 1557}# - #{vars\ 1555}# - #{r\ 1534}#) - (#{make-binding-wrap\ 713}# - #{ids\ 1553}# - #{labels\ 1557}# - #{w\ 1535}#) - #{mod\ 1537}#))))))) - (#{lambda-formals\ 769}# - (lambda (#{orig-args\ 1560}#) - (letrec ((#{check\ 1565}# - (lambda (#{req\ 1566}# #{rest\ 1567}#) - (if (#{distinct-bound-ids?\ 731}# - (if #{rest\ 1567}# - (cons #{rest\ 1567}# #{req\ 1566}#) - #{req\ 1566}#)) - (values #{req\ 1566}# #f #{rest\ 1567}# #f) + #{vars\ 1373}# + #{meta\ 1358}# + (#{chi-body\ 460}# + #{body\ 1359}# + (#{source-wrap\ 438}# + #{e\ 1351}# + #{w\ 1353}# + #{s\ 1354}# + #{mod\ 1355}#) + (#{extend-var-env\ 357}# + #{labels\ 1375}# + #{vars\ 1373}# + #{r\ 1352}#) + (#{make-binding-wrap\ 414}# + #{ids\ 1371}# + #{labels\ 1375}# + #{w\ 1353}#) + #{mod\ 1355}#))))))) + (#{lambda-formals\ 470}# + (lambda (#{orig-args\ 1378}#) + (letrec ((#{check\ 1383}# + (lambda (#{req\ 1384}# #{rest\ 1385}#) + (if (#{distinct-bound-ids?\ 432}# + (if #{rest\ 1385}# + (cons #{rest\ 1385}# #{req\ 1384}#) + #{req\ 1384}#)) + (values #{req\ 1384}# #f #{rest\ 1385}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args\ 1560}#)))) - (#{req\ 1563}# - (lambda (#{args\ 1573}# #{rreq\ 1574}#) - ((lambda (#{tmp\ 1577}#) - ((lambda (#{tmp\ 1578}#) - (if #{tmp\ 1578}# + #{orig-args\ 1378}#)))) + (#{req\ 1381}# + (lambda (#{args\ 1391}# #{rreq\ 1392}#) + ((lambda (#{tmp\ 1395}#) + ((lambda (#{tmp\ 1396}#) + (if #{tmp\ 1396}# (apply (lambda () - (#{check\ 1565}# - (reverse #{rreq\ 1574}#) + (#{check\ 1383}# + (reverse #{rreq\ 1392}#) #f)) - #{tmp\ 1578}#) - ((lambda (#{tmp\ 1579}#) - (if (if #{tmp\ 1579}# - (apply (lambda (#{a\ 1582}# - #{b\ 1583}#) - (#{id?\ 666}# - #{a\ 1582}#)) - #{tmp\ 1579}#) + #{tmp\ 1396}#) + ((lambda (#{tmp\ 1397}#) + (if (if #{tmp\ 1397}# + (apply (lambda (#{a\ 1400}# + #{b\ 1401}#) + (#{id?\ 367}# + #{a\ 1400}#)) + #{tmp\ 1397}#) #f) - (apply (lambda (#{a\ 1586}# - #{b\ 1587}#) - (#{req\ 1563}# - #{b\ 1587}# - (cons #{a\ 1586}# - #{rreq\ 1574}#))) - #{tmp\ 1579}#) - ((lambda (#{tmp\ 1588}#) - (if (if #{tmp\ 1588}# - (apply (lambda (#{r\ 1590}#) - (#{id?\ 666}# - #{r\ 1590}#)) - #{tmp\ 1588}#) + (apply (lambda (#{a\ 1404}# + #{b\ 1405}#) + (#{req\ 1381}# + #{b\ 1405}# + (cons #{a\ 1404}# + #{rreq\ 1392}#))) + #{tmp\ 1397}#) + ((lambda (#{tmp\ 1406}#) + (if (if #{tmp\ 1406}# + (apply (lambda (#{r\ 1408}#) + (#{id?\ 367}# + #{r\ 1408}#)) + #{tmp\ 1406}#) #f) - (apply (lambda (#{r\ 1592}#) - (#{check\ 1565}# + (apply (lambda (#{r\ 1410}#) + (#{check\ 1383}# (reverse - #{rreq\ 1574}#) - #{r\ 1592}#)) - #{tmp\ 1588}#) - ((lambda (#{else\ 1594}#) + #{rreq\ 1392}#) + #{r\ 1410}#)) + #{tmp\ 1406}#) + ((lambda (#{else\ 1412}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args\ 1560}# - #{args\ 1573}#)) - #{tmp\ 1577}#))) - (list #{tmp\ 1577}#)))) + #{orig-args\ 1378}# + #{args\ 1391}#)) + #{tmp\ 1395}#))) + (list #{tmp\ 1395}#)))) ($sc-dispatch - #{tmp\ 1577}# + #{tmp\ 1395}# '(any . any))))) - ($sc-dispatch #{tmp\ 1577}# (quote ())))) - #{args\ 1573}#)))) - (#{req\ 1563}# #{orig-args\ 1560}# (quote ()))))) - (#{ellipsis?\ 767}# - (lambda (#{x\ 1595}#) - (if (#{nonsymbol-id?\ 664}# #{x\ 1595}#) - (#{free-id=?\ 725}# - #{x\ 1595}# + ($sc-dispatch #{tmp\ 1395}# (quote ())))) + #{args\ 1391}#)))) + (#{req\ 1381}# #{orig-args\ 1378}# (quote ()))))) + (#{ellipsis?\ 468}# + (lambda (#{x\ 1413}#) + (if (#{nonsymbol-id?\ 365}# #{x\ 1413}#) + (#{free-id=?\ 426}# + #{x\ 1413}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i1596")) + #(ribcage #(x) #((top)) #("i1414")) #(ribcage (lambda-var-list gen-var @@ -2102,6 +2216,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -2219,1412 +2351,1450 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i467" "i465"))) + (define-structure + define-expansion-constructors + and-map*) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile))) #f))) - (#{chi-void\ 765}# - (lambda () (#{build-void\ 586}# #f))) - (#{eval-local-transformer\ 763}# - (lambda (#{expanded\ 1600}# #{mod\ 1601}#) - (let ((#{p\ 1605}# - (#{local-eval-hook\ 577}# - #{expanded\ 1600}# - #{mod\ 1601}#))) - (if (procedure? #{p\ 1605}#) - (cons #{p\ 1605}# (module-name (current-module))) + (#{chi-void\ 466}# + (lambda () (#{build-void\ 287}# #f))) + (#{eval-local-transformer\ 464}# + (lambda (#{expanded\ 1418}# #{mod\ 1419}#) + (let ((#{p\ 1423}# + (#{local-eval-hook\ 278}# + #{expanded\ 1418}# + #{mod\ 1419}#))) + (if (procedure? #{p\ 1423}#) + (cons #{p\ 1423}# (module-name (current-module))) (syntax-violation #f "nonprocedure transformer" - #{p\ 1605}#))))) - (#{chi-local-syntax\ 761}# - (lambda (#{rec?\ 1606}# - #{e\ 1607}# - #{r\ 1608}# - #{w\ 1609}# - #{s\ 1610}# - #{mod\ 1611}# - #{k\ 1612}#) - ((lambda (#{tmp\ 1620}#) - ((lambda (#{tmp\ 1621}#) - (if #{tmp\ 1621}# - (apply (lambda (#{_\ 1627}# - #{id\ 1628}# - #{val\ 1629}# - #{e1\ 1630}# - #{e2\ 1631}#) - (let ((#{ids\ 1633}# #{id\ 1628}#)) - (if (not (#{valid-bound-ids?\ 729}# - #{ids\ 1633}#)) + #{p\ 1423}#))))) + (#{chi-local-syntax\ 462}# + (lambda (#{rec?\ 1424}# + #{e\ 1425}# + #{r\ 1426}# + #{w\ 1427}# + #{s\ 1428}# + #{mod\ 1429}# + #{k\ 1430}#) + ((lambda (#{tmp\ 1438}#) + ((lambda (#{tmp\ 1439}#) + (if #{tmp\ 1439}# + (apply (lambda (#{_\ 1445}# + #{id\ 1446}# + #{val\ 1447}# + #{e1\ 1448}# + #{e2\ 1449}#) + (let ((#{ids\ 1451}# #{id\ 1446}#)) + (if (not (#{valid-bound-ids?\ 430}# + #{ids\ 1451}#)) (syntax-violation #f "duplicate bound keyword" - #{e\ 1607}#) - (let ((#{labels\ 1636}# - (#{gen-labels\ 684}# - #{ids\ 1633}#))) - (let ((#{new-w\ 1638}# - (#{make-binding-wrap\ 713}# - #{ids\ 1633}# - #{labels\ 1636}# - #{w\ 1609}#))) - (#{k\ 1612}# - (cons #{e1\ 1630}# #{e2\ 1631}#) - (#{extend-env\ 654}# - #{labels\ 1636}# - (let ((#{w\ 1642}# - (if #{rec?\ 1606}# - #{new-w\ 1638}# - #{w\ 1609}#)) - (#{trans-r\ 1643}# - (#{macros-only-env\ 658}# - #{r\ 1608}#))) - (map (lambda (#{x\ 1644}#) + #{e\ 1425}#) + (let ((#{labels\ 1454}# + (#{gen-labels\ 385}# + #{ids\ 1451}#))) + (let ((#{new-w\ 1456}# + (#{make-binding-wrap\ 414}# + #{ids\ 1451}# + #{labels\ 1454}# + #{w\ 1427}#))) + (#{k\ 1430}# + (cons #{e1\ 1448}# #{e2\ 1449}#) + (#{extend-env\ 355}# + #{labels\ 1454}# + (let ((#{w\ 1460}# + (if #{rec?\ 1424}# + #{new-w\ 1456}# + #{w\ 1427}#)) + (#{trans-r\ 1461}# + (#{macros-only-env\ 359}# + #{r\ 1426}#))) + (map (lambda (#{x\ 1462}#) (cons 'macro - (#{eval-local-transformer\ 763}# - (#{chi\ 751}# - #{x\ 1644}# - #{trans-r\ 1643}# - #{w\ 1642}# - #{mod\ 1611}#) - #{mod\ 1611}#))) - #{val\ 1629}#)) - #{r\ 1608}#) - #{new-w\ 1638}# - #{s\ 1610}# - #{mod\ 1611}#)))))) - #{tmp\ 1621}#) - ((lambda (#{_\ 1649}#) + (#{eval-local-transformer\ 464}# + (#{chi\ 452}# + #{x\ 1462}# + #{trans-r\ 1461}# + #{w\ 1460}# + #{mod\ 1429}#) + #{mod\ 1429}#))) + #{val\ 1447}#)) + #{r\ 1426}#) + #{new-w\ 1456}# + #{s\ 1428}# + #{mod\ 1429}#)))))) + #{tmp\ 1439}#) + ((lambda (#{_\ 1467}#) (syntax-violation #f "bad local syntax definition" - (#{source-wrap\ 737}# - #{e\ 1607}# - #{w\ 1609}# - #{s\ 1610}# - #{mod\ 1611}#))) - #{tmp\ 1620}#))) + (#{source-wrap\ 438}# + #{e\ 1425}# + #{w\ 1427}# + #{s\ 1428}# + #{mod\ 1429}#))) + #{tmp\ 1438}#))) ($sc-dispatch - #{tmp\ 1620}# + #{tmp\ 1438}# '(any #(each (any any)) any . each-any)))) - #{e\ 1607}#))) - (#{chi-body\ 759}# - (lambda (#{body\ 1650}# - #{outer-form\ 1651}# - #{r\ 1652}# - #{w\ 1653}# - #{mod\ 1654}#) - (let ((#{r\ 1662}# + #{e\ 1425}#))) + (#{chi-body\ 460}# + (lambda (#{body\ 1468}# + #{outer-form\ 1469}# + #{r\ 1470}# + #{w\ 1471}# + #{mod\ 1472}#) + (let ((#{r\ 1480}# (cons '("placeholder" placeholder) - #{r\ 1652}#))) - (let ((#{ribcage\ 1664}# - (#{make-ribcage\ 687}# + #{r\ 1470}#))) + (let ((#{ribcage\ 1482}# + (#{make-ribcage\ 388}# '() '() '()))) - (let ((#{w\ 1667}# - (#{make-wrap\ 671}# - (#{wrap-marks\ 673}# #{w\ 1653}#) - (cons #{ribcage\ 1664}# - (#{wrap-subst\ 675}# #{w\ 1653}#))))) - (letrec ((#{parse\ 1676}# - (lambda (#{body\ 1677}# - #{ids\ 1678}# - #{labels\ 1679}# - #{var-ids\ 1680}# - #{vars\ 1681}# - #{vals\ 1682}# - #{bindings\ 1683}#) - (if (null? #{body\ 1677}#) + (let ((#{w\ 1485}# + (#{make-wrap\ 372}# + (#{wrap-marks\ 374}# #{w\ 1471}#) + (cons #{ribcage\ 1482}# + (#{wrap-subst\ 376}# #{w\ 1471}#))))) + (letrec ((#{parse\ 1494}# + (lambda (#{body\ 1495}# + #{ids\ 1496}# + #{labels\ 1497}# + #{var-ids\ 1498}# + #{vars\ 1499}# + #{vals\ 1500}# + #{bindings\ 1501}#) + (if (null? #{body\ 1495}#) (syntax-violation #f "no expressions in body" - #{outer-form\ 1651}#) - (let ((#{e\ 1688}# (cdar #{body\ 1677}#)) - (#{er\ 1689}# (caar #{body\ 1677}#))) + #{outer-form\ 1469}#) + (let ((#{e\ 1506}# (cdar #{body\ 1495}#)) + (#{er\ 1507}# (caar #{body\ 1495}#))) (call-with-values (lambda () - (#{syntax-type\ 747}# - #{e\ 1688}# - #{er\ 1689}# + (#{syntax-type\ 448}# + #{e\ 1506}# + #{er\ 1507}# '(()) - (#{source-annotation\ 645}# - #{er\ 1689}#) - #{ribcage\ 1664}# - #{mod\ 1654}# + (#{source-annotation\ 346}# + #{er\ 1507}#) + #{ribcage\ 1482}# + #{mod\ 1472}# #f)) - (lambda (#{type\ 1691}# - #{value\ 1692}# - #{e\ 1693}# - #{w\ 1694}# - #{s\ 1695}# - #{mod\ 1696}#) - (if (memv #{type\ 1691}# + (lambda (#{type\ 1509}# + #{value\ 1510}# + #{e\ 1511}# + #{w\ 1512}# + #{s\ 1513}# + #{mod\ 1514}#) + (if (memv #{type\ 1509}# '(define-form)) - (let ((#{id\ 1706}# - (#{wrap\ 735}# - #{value\ 1692}# - #{w\ 1694}# - #{mod\ 1696}#)) - (#{label\ 1707}# - (#{gen-label\ 682}#))) - (let ((#{var\ 1709}# - (#{gen-var\ 779}# - #{id\ 1706}#))) + (let ((#{id\ 1524}# + (#{wrap\ 436}# + #{value\ 1510}# + #{w\ 1512}# + #{mod\ 1514}#)) + (#{label\ 1525}# + (#{gen-label\ 383}#))) + (let ((#{var\ 1527}# + (#{gen-var\ 480}# + #{id\ 1524}#))) (begin - (#{extend-ribcage!\ 711}# - #{ribcage\ 1664}# - #{id\ 1706}# - #{label\ 1707}#) - (#{parse\ 1676}# - (cdr #{body\ 1677}#) - (cons #{id\ 1706}# - #{ids\ 1678}#) - (cons #{label\ 1707}# - #{labels\ 1679}#) - (cons #{id\ 1706}# - #{var-ids\ 1680}#) - (cons #{var\ 1709}# - #{vars\ 1681}#) - (cons (cons #{er\ 1689}# - (#{wrap\ 735}# - #{e\ 1693}# - #{w\ 1694}# - #{mod\ 1696}#)) - #{vals\ 1682}#) + (#{extend-ribcage!\ 412}# + #{ribcage\ 1482}# + #{id\ 1524}# + #{label\ 1525}#) + (#{parse\ 1494}# + (cdr #{body\ 1495}#) + (cons #{id\ 1524}# + #{ids\ 1496}#) + (cons #{label\ 1525}# + #{labels\ 1497}#) + (cons #{id\ 1524}# + #{var-ids\ 1498}#) + (cons #{var\ 1527}# + #{vars\ 1499}#) + (cons (cons #{er\ 1507}# + (#{wrap\ 436}# + #{e\ 1511}# + #{w\ 1512}# + #{mod\ 1514}#)) + #{vals\ 1500}#) (cons (cons 'lexical - #{var\ 1709}#) - #{bindings\ 1683}#))))) - (if (memv #{type\ 1691}# + #{var\ 1527}#) + #{bindings\ 1501}#))))) + (if (memv #{type\ 1509}# '(define-syntax-form)) - (let ((#{id\ 1714}# - (#{wrap\ 735}# - #{value\ 1692}# - #{w\ 1694}# - #{mod\ 1696}#)) - (#{label\ 1715}# - (#{gen-label\ 682}#))) + (let ((#{id\ 1532}# + (#{wrap\ 436}# + #{value\ 1510}# + #{w\ 1512}# + #{mod\ 1514}#)) + (#{label\ 1533}# + (#{gen-label\ 383}#))) (begin - (#{extend-ribcage!\ 711}# - #{ribcage\ 1664}# - #{id\ 1714}# - #{label\ 1715}#) - (#{parse\ 1676}# - (cdr #{body\ 1677}#) - (cons #{id\ 1714}# - #{ids\ 1678}#) - (cons #{label\ 1715}# - #{labels\ 1679}#) - #{var-ids\ 1680}# - #{vars\ 1681}# - #{vals\ 1682}# + (#{extend-ribcage!\ 412}# + #{ribcage\ 1482}# + #{id\ 1532}# + #{label\ 1533}#) + (#{parse\ 1494}# + (cdr #{body\ 1495}#) + (cons #{id\ 1532}# + #{ids\ 1496}#) + (cons #{label\ 1533}# + #{labels\ 1497}#) + #{var-ids\ 1498}# + #{vars\ 1499}# + #{vals\ 1500}# (cons (cons 'macro - (cons #{er\ 1689}# - (#{wrap\ 735}# - #{e\ 1693}# - #{w\ 1694}# - #{mod\ 1696}#))) - #{bindings\ 1683}#)))) - (if (memv #{type\ 1691}# + (cons #{er\ 1507}# + (#{wrap\ 436}# + #{e\ 1511}# + #{w\ 1512}# + #{mod\ 1514}#))) + #{bindings\ 1501}#)))) + (if (memv #{type\ 1509}# '(begin-form)) - ((lambda (#{tmp\ 1718}#) - ((lambda (#{tmp\ 1719}#) - (if #{tmp\ 1719}# - (apply (lambda (#{_\ 1722}# - #{e1\ 1723}#) - (#{parse\ 1676}# - (letrec ((#{f\ 1726}# - (lambda (#{forms\ 1727}#) - (if (null? #{forms\ 1727}#) - (cdr #{body\ 1677}#) - (cons (cons #{er\ 1689}# - (#{wrap\ 735}# - (car #{forms\ 1727}#) - #{w\ 1694}# - #{mod\ 1696}#)) - (#{f\ 1726}# - (cdr #{forms\ 1727}#))))))) - (#{f\ 1726}# - #{e1\ 1723}#)) - #{ids\ 1678}# - #{labels\ 1679}# - #{var-ids\ 1680}# - #{vars\ 1681}# - #{vals\ 1682}# - #{bindings\ 1683}#)) - #{tmp\ 1719}#) + ((lambda (#{tmp\ 1536}#) + ((lambda (#{tmp\ 1537}#) + (if #{tmp\ 1537}# + (apply (lambda (#{_\ 1540}# + #{e1\ 1541}#) + (#{parse\ 1494}# + (letrec ((#{f\ 1544}# + (lambda (#{forms\ 1545}#) + (if (null? #{forms\ 1545}#) + (cdr #{body\ 1495}#) + (cons (cons #{er\ 1507}# + (#{wrap\ 436}# + (car #{forms\ 1545}#) + #{w\ 1512}# + #{mod\ 1514}#)) + (#{f\ 1544}# + (cdr #{forms\ 1545}#))))))) + (#{f\ 1544}# + #{e1\ 1541}#)) + #{ids\ 1496}# + #{labels\ 1497}# + #{var-ids\ 1498}# + #{vars\ 1499}# + #{vals\ 1500}# + #{bindings\ 1501}#)) + #{tmp\ 1537}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1718}#))) + #{tmp\ 1536}#))) ($sc-dispatch - #{tmp\ 1718}# + #{tmp\ 1536}# '(any . each-any)))) - #{e\ 1693}#) - (if (memv #{type\ 1691}# + #{e\ 1511}#) + (if (memv #{type\ 1509}# '(local-syntax-form)) - (#{chi-local-syntax\ 761}# - #{value\ 1692}# - #{e\ 1693}# - #{er\ 1689}# - #{w\ 1694}# - #{s\ 1695}# - #{mod\ 1696}# - (lambda (#{forms\ 1730}# - #{er\ 1731}# - #{w\ 1732}# - #{s\ 1733}# - #{mod\ 1734}#) - (#{parse\ 1676}# - (letrec ((#{f\ 1742}# - (lambda (#{forms\ 1743}#) - (if (null? #{forms\ 1743}#) - (cdr #{body\ 1677}#) - (cons (cons #{er\ 1731}# - (#{wrap\ 735}# - (car #{forms\ 1743}#) - #{w\ 1732}# - #{mod\ 1734}#)) - (#{f\ 1742}# - (cdr #{forms\ 1743}#))))))) - (#{f\ 1742}# - #{forms\ 1730}#)) - #{ids\ 1678}# - #{labels\ 1679}# - #{var-ids\ 1680}# - #{vars\ 1681}# - #{vals\ 1682}# - #{bindings\ 1683}#))) - (if (null? #{ids\ 1678}#) - (#{build-sequence\ 618}# + (#{chi-local-syntax\ 462}# + #{value\ 1510}# + #{e\ 1511}# + #{er\ 1507}# + #{w\ 1512}# + #{s\ 1513}# + #{mod\ 1514}# + (lambda (#{forms\ 1548}# + #{er\ 1549}# + #{w\ 1550}# + #{s\ 1551}# + #{mod\ 1552}#) + (#{parse\ 1494}# + (letrec ((#{f\ 1560}# + (lambda (#{forms\ 1561}#) + (if (null? #{forms\ 1561}#) + (cdr #{body\ 1495}#) + (cons (cons #{er\ 1549}# + (#{wrap\ 436}# + (car #{forms\ 1561}#) + #{w\ 1550}# + #{mod\ 1552}#)) + (#{f\ 1560}# + (cdr #{forms\ 1561}#))))))) + (#{f\ 1560}# + #{forms\ 1548}#)) + #{ids\ 1496}# + #{labels\ 1497}# + #{var-ids\ 1498}# + #{vars\ 1499}# + #{vals\ 1500}# + #{bindings\ 1501}#))) + (if (null? #{ids\ 1496}#) + (#{build-sequence\ 319}# #f - (map (lambda (#{x\ 1746}#) - (#{chi\ 751}# - (cdr #{x\ 1746}#) - (car #{x\ 1746}#) + (map (lambda (#{x\ 1564}#) + (#{chi\ 452}# + (cdr #{x\ 1564}#) + (car #{x\ 1564}#) '(()) - #{mod\ 1696}#)) - (cons (cons #{er\ 1689}# - (#{source-wrap\ 737}# - #{e\ 1693}# - #{w\ 1694}# - #{s\ 1695}# - #{mod\ 1696}#)) - (cdr #{body\ 1677}#)))) + #{mod\ 1514}#)) + (cons (cons #{er\ 1507}# + (#{source-wrap\ 438}# + #{e\ 1511}# + #{w\ 1512}# + #{s\ 1513}# + #{mod\ 1514}#)) + (cdr #{body\ 1495}#)))) (begin - (if (not (#{valid-bound-ids?\ 729}# - #{ids\ 1678}#)) + (if (not (#{valid-bound-ids?\ 430}# + #{ids\ 1496}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form\ 1651}#)) - (letrec ((#{loop\ 1753}# - (lambda (#{bs\ 1754}# - #{er-cache\ 1755}# - #{r-cache\ 1756}#) - (if (not (null? #{bs\ 1754}#)) - (let ((#{b\ 1759}# - (car #{bs\ 1754}#))) - (if (eq? (car #{b\ 1759}#) + #{outer-form\ 1469}#)) + (letrec ((#{loop\ 1571}# + (lambda (#{bs\ 1572}# + #{er-cache\ 1573}# + #{r-cache\ 1574}#) + (if (not (null? #{bs\ 1572}#)) + (let ((#{b\ 1577}# + (car #{bs\ 1572}#))) + (if (eq? (car #{b\ 1577}#) 'macro) - (let ((#{er\ 1762}# - (cadr #{b\ 1759}#))) - (let ((#{r-cache\ 1764}# - (if (eq? #{er\ 1762}# - #{er-cache\ 1755}#) - #{r-cache\ 1756}# - (#{macros-only-env\ 658}# - #{er\ 1762}#)))) + (let ((#{er\ 1580}# + (cadr #{b\ 1577}#))) + (let ((#{r-cache\ 1582}# + (if (eq? #{er\ 1580}# + #{er-cache\ 1573}#) + #{r-cache\ 1574}# + (#{macros-only-env\ 359}# + #{er\ 1580}#)))) (begin (set-cdr! - #{b\ 1759}# - (#{eval-local-transformer\ 763}# - (#{chi\ 751}# - (cddr #{b\ 1759}#) - #{r-cache\ 1764}# + #{b\ 1577}# + (#{eval-local-transformer\ 464}# + (#{chi\ 452}# + (cddr #{b\ 1577}#) + #{r-cache\ 1582}# '(()) - #{mod\ 1696}#) - #{mod\ 1696}#)) - (#{loop\ 1753}# - (cdr #{bs\ 1754}#) - #{er\ 1762}# - #{r-cache\ 1764}#)))) - (#{loop\ 1753}# - (cdr #{bs\ 1754}#) - #{er-cache\ 1755}# - #{r-cache\ 1756}#))))))) - (#{loop\ 1753}# - #{bindings\ 1683}# + #{mod\ 1514}#) + #{mod\ 1514}#)) + (#{loop\ 1571}# + (cdr #{bs\ 1572}#) + #{er\ 1580}# + #{r-cache\ 1582}#)))) + (#{loop\ 1571}# + (cdr #{bs\ 1572}#) + #{er-cache\ 1573}# + #{r-cache\ 1574}#))))))) + (#{loop\ 1571}# + #{bindings\ 1501}# #f #f)) (set-cdr! - #{r\ 1662}# - (#{extend-env\ 654}# - #{labels\ 1679}# - #{bindings\ 1683}# - (cdr #{r\ 1662}#))) - (#{build-letrec\ 624}# + #{r\ 1480}# + (#{extend-env\ 355}# + #{labels\ 1497}# + #{bindings\ 1501}# + (cdr #{r\ 1480}#))) + (#{build-letrec\ 325}# #f (map syntax->datum - #{var-ids\ 1680}#) - #{vars\ 1681}# - (map (lambda (#{x\ 1767}#) - (#{chi\ 751}# - (cdr #{x\ 1767}#) - (car #{x\ 1767}#) + #{var-ids\ 1498}#) + #{vars\ 1499}# + (map (lambda (#{x\ 1585}#) + (#{chi\ 452}# + (cdr #{x\ 1585}#) + (car #{x\ 1585}#) '(()) - #{mod\ 1696}#)) - #{vals\ 1682}#) - (#{build-sequence\ 618}# + #{mod\ 1514}#)) + #{vals\ 1500}#) + (#{build-sequence\ 319}# #f - (map (lambda (#{x\ 1771}#) - (#{chi\ 751}# - (cdr #{x\ 1771}#) - (car #{x\ 1771}#) + (map (lambda (#{x\ 1589}#) + (#{chi\ 452}# + (cdr #{x\ 1589}#) + (car #{x\ 1589}#) '(()) - #{mod\ 1696}#)) - (cons (cons #{er\ 1689}# - (#{source-wrap\ 737}# - #{e\ 1693}# - #{w\ 1694}# - #{s\ 1695}# - #{mod\ 1696}#)) - (cdr #{body\ 1677}#)))))))))))))))))) - (#{parse\ 1676}# - (map (lambda (#{x\ 1684}#) - (cons #{r\ 1662}# - (#{wrap\ 735}# - #{x\ 1684}# - #{w\ 1667}# - #{mod\ 1654}#))) - #{body\ 1650}#) + #{mod\ 1514}#)) + (cons (cons #{er\ 1507}# + (#{source-wrap\ 438}# + #{e\ 1511}# + #{w\ 1512}# + #{s\ 1513}# + #{mod\ 1514}#)) + (cdr #{body\ 1495}#)))))))))))))))))) + (#{parse\ 1494}# + (map (lambda (#{x\ 1502}#) + (cons #{r\ 1480}# + (#{wrap\ 436}# + #{x\ 1502}# + #{w\ 1485}# + #{mod\ 1472}#))) + #{body\ 1468}#) '() '() '() '() '() '()))))))) - (#{chi-macro\ 757}# - (lambda (#{p\ 1774}# - #{e\ 1775}# - #{r\ 1776}# - #{w\ 1777}# - #{rib\ 1778}# - #{mod\ 1779}#) - (letrec ((#{rebuild-macro-output\ 1787}# - (lambda (#{x\ 1788}# #{m\ 1789}#) - (if (pair? #{x\ 1788}#) - (cons (#{rebuild-macro-output\ 1787}# - (car #{x\ 1788}#) - #{m\ 1789}#) - (#{rebuild-macro-output\ 1787}# - (cdr #{x\ 1788}#) - #{m\ 1789}#)) - (if (#{syntax-object?\ 630}# #{x\ 1788}#) - (let ((#{w\ 1797}# - (#{syntax-object-wrap\ 634}# - #{x\ 1788}#))) - (let ((#{ms\ 1800}# - (#{wrap-marks\ 673}# #{w\ 1797}#)) - (#{s\ 1801}# - (#{wrap-subst\ 675}# #{w\ 1797}#))) - (if (if (pair? #{ms\ 1800}#) - (eq? (car #{ms\ 1800}#) #f) + (#{chi-macro\ 458}# + (lambda (#{p\ 1592}# + #{e\ 1593}# + #{r\ 1594}# + #{w\ 1595}# + #{rib\ 1596}# + #{mod\ 1597}#) + (letrec ((#{rebuild-macro-output\ 1605}# + (lambda (#{x\ 1606}# #{m\ 1607}#) + (if (pair? #{x\ 1606}#) + (cons (#{rebuild-macro-output\ 1605}# + (car #{x\ 1606}#) + #{m\ 1607}#) + (#{rebuild-macro-output\ 1605}# + (cdr #{x\ 1606}#) + #{m\ 1607}#)) + (if (#{syntax-object?\ 331}# #{x\ 1606}#) + (let ((#{w\ 1615}# + (#{syntax-object-wrap\ 335}# + #{x\ 1606}#))) + (let ((#{ms\ 1618}# + (#{wrap-marks\ 374}# #{w\ 1615}#)) + (#{s\ 1619}# + (#{wrap-subst\ 376}# #{w\ 1615}#))) + (if (if (pair? #{ms\ 1618}#) + (eq? (car #{ms\ 1618}#) #f) #f) - (#{make-syntax-object\ 628}# - (#{syntax-object-expression\ 632}# - #{x\ 1788}#) - (#{make-wrap\ 671}# - (cdr #{ms\ 1800}#) - (if #{rib\ 1778}# - (cons #{rib\ 1778}# - (cdr #{s\ 1801}#)) - (cdr #{s\ 1801}#))) - (#{syntax-object-module\ 636}# - #{x\ 1788}#)) - (#{make-syntax-object\ 628}# - (#{syntax-object-expression\ 632}# - #{x\ 1788}#) - (#{make-wrap\ 671}# - (cons #{m\ 1789}# #{ms\ 1800}#) - (if #{rib\ 1778}# - (cons #{rib\ 1778}# + (#{make-syntax-object\ 329}# + (#{syntax-object-expression\ 333}# + #{x\ 1606}#) + (#{make-wrap\ 372}# + (cdr #{ms\ 1618}#) + (if #{rib\ 1596}# + (cons #{rib\ 1596}# + (cdr #{s\ 1619}#)) + (cdr #{s\ 1619}#))) + (#{syntax-object-module\ 337}# + #{x\ 1606}#)) + (#{make-syntax-object\ 329}# + (#{syntax-object-expression\ 333}# + #{x\ 1606}#) + (#{make-wrap\ 372}# + (cons #{m\ 1607}# #{ms\ 1618}#) + (if #{rib\ 1596}# + (cons #{rib\ 1596}# (cons 'shift - #{s\ 1801}#)) - (cons (quote shift) #{s\ 1801}#))) + #{s\ 1619}#)) + (cons (quote shift) #{s\ 1619}#))) (cons 'hygiene - (cdr #{p\ 1774}#)))))) - (if (vector? #{x\ 1788}#) - (let ((#{n\ 1809}# - (vector-length #{x\ 1788}#))) - (let ((#{v\ 1811}# - (make-vector #{n\ 1809}#))) - (letrec ((#{loop\ 1814}# - (lambda (#{i\ 1815}#) - (if (#{fx=\ 571}# - #{i\ 1815}# - #{n\ 1809}#) + (cdr #{p\ 1592}#)))))) + (if (vector? #{x\ 1606}#) + (let ((#{n\ 1627}# + (vector-length #{x\ 1606}#))) + (let ((#{v\ 1629}# + (make-vector #{n\ 1627}#))) + (letrec ((#{loop\ 1632}# + (lambda (#{i\ 1633}#) + (if (#{fx=\ 272}# + #{i\ 1633}# + #{n\ 1627}#) (begin (if #f #f) - #{v\ 1811}#) + #{v\ 1629}#) (begin (vector-set! - #{v\ 1811}# - #{i\ 1815}# - (#{rebuild-macro-output\ 1787}# + #{v\ 1629}# + #{i\ 1633}# + (#{rebuild-macro-output\ 1605}# (vector-ref - #{x\ 1788}# - #{i\ 1815}#) - #{m\ 1789}#)) - (#{loop\ 1814}# - (#{fx+\ 567}# - #{i\ 1815}# + #{x\ 1606}# + #{i\ 1633}#) + #{m\ 1607}#)) + (#{loop\ 1632}# + (#{fx+\ 268}# + #{i\ 1633}# 1))))))) - (#{loop\ 1814}# 0)))) - (if (symbol? #{x\ 1788}#) + (#{loop\ 1632}# 0)))) + (if (symbol? #{x\ 1606}#) (syntax-violation #f "encountered raw symbol in macro output" - (#{source-wrap\ 737}# - #{e\ 1775}# - #{w\ 1777}# - (#{wrap-subst\ 675}# #{w\ 1777}#) - #{mod\ 1779}#) - #{x\ 1788}#) - #{x\ 1788}#))))))) - (#{rebuild-macro-output\ 1787}# - ((car #{p\ 1774}#) - (#{wrap\ 735}# - #{e\ 1775}# - (#{anti-mark\ 707}# #{w\ 1777}#) - #{mod\ 1779}#)) + (#{source-wrap\ 438}# + #{e\ 1593}# + #{w\ 1595}# + (#{wrap-subst\ 376}# #{w\ 1595}#) + #{mod\ 1597}#) + #{x\ 1606}#) + #{x\ 1606}#))))))) + (#{rebuild-macro-output\ 1605}# + ((car #{p\ 1592}#) + (#{wrap\ 436}# + #{e\ 1593}# + (#{anti-mark\ 408}# #{w\ 1595}#) + #{mod\ 1597}#)) (gensym "m"))))) - (#{chi-application\ 755}# - (lambda (#{x\ 1822}# - #{e\ 1823}# - #{r\ 1824}# - #{w\ 1825}# - #{s\ 1826}# - #{mod\ 1827}#) - ((lambda (#{tmp\ 1834}#) - ((lambda (#{tmp\ 1835}#) - (if #{tmp\ 1835}# - (apply (lambda (#{e0\ 1838}# #{e1\ 1839}#) - (#{build-application\ 588}# - #{s\ 1826}# - #{x\ 1822}# - (map (lambda (#{e\ 1840}#) - (#{chi\ 751}# - #{e\ 1840}# - #{r\ 1824}# - #{w\ 1825}# - #{mod\ 1827}#)) - #{e1\ 1839}#))) - #{tmp\ 1835}#) + (#{chi-application\ 456}# + (lambda (#{x\ 1640}# + #{e\ 1641}# + #{r\ 1642}# + #{w\ 1643}# + #{s\ 1644}# + #{mod\ 1645}#) + ((lambda (#{tmp\ 1652}#) + ((lambda (#{tmp\ 1653}#) + (if #{tmp\ 1653}# + (apply (lambda (#{e0\ 1656}# #{e1\ 1657}#) + (#{build-application\ 289}# + #{s\ 1644}# + #{x\ 1640}# + (map (lambda (#{e\ 1658}#) + (#{chi\ 452}# + #{e\ 1658}# + #{r\ 1642}# + #{w\ 1643}# + #{mod\ 1645}#)) + #{e1\ 1657}#))) + #{tmp\ 1653}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1834}#))) + #{tmp\ 1652}#))) ($sc-dispatch - #{tmp\ 1834}# + #{tmp\ 1652}# '(any . each-any)))) - #{e\ 1823}#))) - (#{chi-expr\ 753}# - (lambda (#{type\ 1843}# - #{value\ 1844}# - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) - (if (memv #{type\ 1843}# (quote (lexical))) - (#{build-lexical-reference\ 594}# + #{e\ 1641}#))) + (#{chi-expr\ 454}# + (lambda (#{type\ 1661}# + #{value\ 1662}# + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) + (if (memv #{type\ 1661}# (quote (lexical))) + (#{build-lexical-reference\ 295}# 'value - #{s\ 1848}# - #{e\ 1845}# - #{value\ 1844}#) - (if (memv #{type\ 1843}# (quote (core core-form))) - (#{value\ 1844}# - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) - (if (memv #{type\ 1843}# (quote (module-ref))) + #{s\ 1666}# + #{e\ 1663}# + #{value\ 1662}#) + (if (memv #{type\ 1661}# (quote (core core-form))) + (#{value\ 1662}# + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) + (if (memv #{type\ 1661}# (quote (module-ref))) (call-with-values (lambda () - (#{value\ 1844}# - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}#)) - (lambda (#{e\ 1860}# - #{r\ 1861}# - #{w\ 1862}# - #{s\ 1863}# - #{mod\ 1864}#) - (#{chi\ 751}# - #{e\ 1860}# - #{r\ 1861}# - #{w\ 1862}# - #{mod\ 1864}#))) - (if (memv #{type\ 1843}# (quote (lexical-call))) - (#{chi-application\ 755}# - (#{build-lexical-reference\ 594}# + (#{value\ 1662}# + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}#)) + (lambda (#{e\ 1678}# + #{r\ 1679}# + #{w\ 1680}# + #{s\ 1681}# + #{mod\ 1682}#) + (#{chi\ 452}# + #{e\ 1678}# + #{r\ 1679}# + #{w\ 1680}# + #{mod\ 1682}#))) + (if (memv #{type\ 1661}# (quote (lexical-call))) + (#{chi-application\ 456}# + (#{build-lexical-reference\ 295}# 'fun - (#{source-annotation\ 645}# (car #{e\ 1845}#)) - (car #{e\ 1845}#) - #{value\ 1844}#) - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) - (if (memv #{type\ 1843}# (quote (global-call))) - (#{chi-application\ 755}# - (#{build-global-reference\ 600}# - (#{source-annotation\ 645}# (car #{e\ 1845}#)) - (if (#{syntax-object?\ 630}# #{value\ 1844}#) - (#{syntax-object-expression\ 632}# - #{value\ 1844}#) - #{value\ 1844}#) - (if (#{syntax-object?\ 630}# #{value\ 1844}#) - (#{syntax-object-module\ 636}# #{value\ 1844}#) - #{mod\ 1849}#)) - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) - (if (memv #{type\ 1843}# (quote (constant))) - (#{build-data\ 616}# - #{s\ 1848}# - (#{strip\ 777}# - (#{source-wrap\ 737}# - #{e\ 1845}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) + (#{source-annotation\ 346}# (car #{e\ 1663}#)) + (car #{e\ 1663}#) + #{value\ 1662}#) + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) + (if (memv #{type\ 1661}# (quote (global-call))) + (#{chi-application\ 456}# + (#{build-global-reference\ 301}# + (#{source-annotation\ 346}# (car #{e\ 1663}#)) + (if (#{syntax-object?\ 331}# #{value\ 1662}#) + (#{syntax-object-expression\ 333}# + #{value\ 1662}#) + #{value\ 1662}#) + (if (#{syntax-object?\ 331}# #{value\ 1662}#) + (#{syntax-object-module\ 337}# #{value\ 1662}#) + #{mod\ 1667}#)) + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) + (if (memv #{type\ 1661}# (quote (constant))) + (#{build-data\ 317}# + #{s\ 1666}# + (#{strip\ 478}# + (#{source-wrap\ 438}# + #{e\ 1663}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) '(()))) - (if (memv #{type\ 1843}# (quote (global))) - (#{build-global-reference\ 600}# - #{s\ 1848}# - #{value\ 1844}# - #{mod\ 1849}#) - (if (memv #{type\ 1843}# (quote (call))) - (#{chi-application\ 755}# - (#{chi\ 751}# - (car #{e\ 1845}#) - #{r\ 1846}# - #{w\ 1847}# - #{mod\ 1849}#) - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) - (if (memv #{type\ 1843}# (quote (begin-form))) - ((lambda (#{tmp\ 1877}#) - ((lambda (#{tmp\ 1878}#) - (if #{tmp\ 1878}# - (apply (lambda (#{_\ 1882}# - #{e1\ 1883}# - #{e2\ 1884}#) - (#{chi-sequence\ 739}# - (cons #{e1\ 1883}# - #{e2\ 1884}#) - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#)) - #{tmp\ 1878}#) + (if (memv #{type\ 1661}# (quote (global))) + (#{build-global-reference\ 301}# + #{s\ 1666}# + #{value\ 1662}# + #{mod\ 1667}#) + (if (memv #{type\ 1661}# (quote (call))) + (#{chi-application\ 456}# + (#{chi\ 452}# + (car #{e\ 1663}#) + #{r\ 1664}# + #{w\ 1665}# + #{mod\ 1667}#) + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) + (if (memv #{type\ 1661}# (quote (begin-form))) + ((lambda (#{tmp\ 1695}#) + ((lambda (#{tmp\ 1696}#) + (if #{tmp\ 1696}# + (apply (lambda (#{_\ 1700}# + #{e1\ 1701}# + #{e2\ 1702}#) + (#{chi-sequence\ 440}# + (cons #{e1\ 1701}# + #{e2\ 1702}#) + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#)) + #{tmp\ 1696}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1877}#))) + #{tmp\ 1695}#))) ($sc-dispatch - #{tmp\ 1877}# + #{tmp\ 1695}# '(any any . each-any)))) - #{e\ 1845}#) - (if (memv #{type\ 1843}# + #{e\ 1663}#) + (if (memv #{type\ 1661}# '(local-syntax-form)) - (#{chi-local-syntax\ 761}# - #{value\ 1844}# - #{e\ 1845}# - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}# - #{chi-sequence\ 739}#) - (if (memv #{type\ 1843}# + (#{chi-local-syntax\ 462}# + #{value\ 1662}# + #{e\ 1663}# + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}# + #{chi-sequence\ 440}#) + (if (memv #{type\ 1661}# '(eval-when-form)) - ((lambda (#{tmp\ 1888}#) - ((lambda (#{tmp\ 1889}#) - (if #{tmp\ 1889}# - (apply (lambda (#{_\ 1894}# - #{x\ 1895}# - #{e1\ 1896}# - #{e2\ 1897}#) - (let ((#{when-list\ 1899}# - (#{chi-when-list\ 745}# - #{e\ 1845}# - #{x\ 1895}# - #{w\ 1847}#))) + ((lambda (#{tmp\ 1706}#) + ((lambda (#{tmp\ 1707}#) + (if #{tmp\ 1707}# + (apply (lambda (#{_\ 1712}# + #{x\ 1713}# + #{e1\ 1714}# + #{e2\ 1715}#) + (let ((#{when-list\ 1717}# + (#{chi-when-list\ 446}# + #{e\ 1663}# + #{x\ 1713}# + #{w\ 1665}#))) (if (memq 'eval - #{when-list\ 1899}#) - (#{chi-sequence\ 739}# - (cons #{e1\ 1896}# - #{e2\ 1897}#) - #{r\ 1846}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#) - (#{chi-void\ 765}#)))) - #{tmp\ 1889}#) + #{when-list\ 1717}#) + (#{chi-sequence\ 440}# + (cons #{e1\ 1714}# + #{e2\ 1715}#) + #{r\ 1664}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#) + (#{chi-void\ 466}#)))) + #{tmp\ 1707}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1888}#))) + #{tmp\ 1706}#))) ($sc-dispatch - #{tmp\ 1888}# + #{tmp\ 1706}# '(any each-any any . each-any)))) - #{e\ 1845}#) - (if (memv #{type\ 1843}# + #{e\ 1663}#) + (if (memv #{type\ 1661}# '(define-form define-syntax-form)) (syntax-violation #f "definition in expression context" - #{e\ 1845}# - (#{wrap\ 735}# - #{value\ 1844}# - #{w\ 1847}# - #{mod\ 1849}#)) - (if (memv #{type\ 1843}# + #{e\ 1663}# + (#{wrap\ 436}# + #{value\ 1662}# + #{w\ 1665}# + #{mod\ 1667}#)) + (if (memv #{type\ 1661}# '(syntax)) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{source-wrap\ 737}# - #{e\ 1845}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#)) - (if (memv #{type\ 1843}# + (#{source-wrap\ 438}# + #{e\ 1663}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#)) + (if (memv #{type\ 1661}# '(displaced-lexical)) (syntax-violation #f "reference to identifier outside its scope" - (#{source-wrap\ 737}# - #{e\ 1845}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#)) + (#{source-wrap\ 438}# + #{e\ 1663}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#)) (syntax-violation #f "unexpected syntax" - (#{source-wrap\ 737}# - #{e\ 1845}# - #{w\ 1847}# - #{s\ 1848}# - #{mod\ 1849}#)))))))))))))))))) - (#{chi\ 751}# - (lambda (#{e\ 1906}# - #{r\ 1907}# - #{w\ 1908}# - #{mod\ 1909}#) + (#{source-wrap\ 438}# + #{e\ 1663}# + #{w\ 1665}# + #{s\ 1666}# + #{mod\ 1667}#)))))))))))))))))) + (#{chi\ 452}# + (lambda (#{e\ 1724}# + #{r\ 1725}# + #{w\ 1726}# + #{mod\ 1727}#) (call-with-values (lambda () - (#{syntax-type\ 747}# - #{e\ 1906}# - #{r\ 1907}# - #{w\ 1908}# - (#{source-annotation\ 645}# #{e\ 1906}#) + (#{syntax-type\ 448}# + #{e\ 1724}# + #{r\ 1725}# + #{w\ 1726}# + (#{source-annotation\ 346}# #{e\ 1724}#) #f - #{mod\ 1909}# + #{mod\ 1727}# #f)) - (lambda (#{type\ 1914}# - #{value\ 1915}# - #{e\ 1916}# - #{w\ 1917}# - #{s\ 1918}# - #{mod\ 1919}#) - (#{chi-expr\ 753}# - #{type\ 1914}# - #{value\ 1915}# - #{e\ 1916}# - #{r\ 1907}# - #{w\ 1917}# - #{s\ 1918}# - #{mod\ 1919}#))))) - (#{chi-top\ 749}# - (lambda (#{e\ 1926}# - #{r\ 1927}# - #{w\ 1928}# - #{m\ 1929}# - #{esew\ 1930}# - #{mod\ 1931}#) + (lambda (#{type\ 1732}# + #{value\ 1733}# + #{e\ 1734}# + #{w\ 1735}# + #{s\ 1736}# + #{mod\ 1737}#) + (#{chi-expr\ 454}# + #{type\ 1732}# + #{value\ 1733}# + #{e\ 1734}# + #{r\ 1725}# + #{w\ 1735}# + #{s\ 1736}# + #{mod\ 1737}#))))) + (#{chi-top\ 450}# + (lambda (#{e\ 1744}# + #{r\ 1745}# + #{w\ 1746}# + #{m\ 1747}# + #{esew\ 1748}# + #{mod\ 1749}#) (call-with-values (lambda () - (#{syntax-type\ 747}# - #{e\ 1926}# - #{r\ 1927}# - #{w\ 1928}# - (#{source-annotation\ 645}# #{e\ 1926}#) + (#{syntax-type\ 448}# + #{e\ 1744}# + #{r\ 1745}# + #{w\ 1746}# + (#{source-annotation\ 346}# #{e\ 1744}#) #f - #{mod\ 1931}# + #{mod\ 1749}# #f)) - (lambda (#{type\ 1952}# - #{value\ 1953}# - #{e\ 1954}# - #{w\ 1955}# - #{s\ 1956}# - #{mod\ 1957}#) - (if (memv #{type\ 1952}# (quote (begin-form))) - ((lambda (#{tmp\ 1965}#) - ((lambda (#{tmp\ 1966}#) - (if #{tmp\ 1966}# - (apply (lambda (#{_\ 1968}#) (#{chi-void\ 765}#)) - #{tmp\ 1966}#) - ((lambda (#{tmp\ 1969}#) - (if #{tmp\ 1969}# - (apply (lambda (#{_\ 1973}# - #{e1\ 1974}# - #{e2\ 1975}#) - (#{chi-top-sequence\ 741}# - (cons #{e1\ 1974}# #{e2\ 1975}#) - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# - #{m\ 1929}# - #{esew\ 1930}# - #{mod\ 1957}#)) - #{tmp\ 1969}#) + (lambda (#{type\ 1777}# + #{value\ 1778}# + #{e\ 1779}# + #{w\ 1780}# + #{s\ 1781}# + #{mod\ 1782}#) + (if (memv #{type\ 1777}# (quote (begin-form))) + ((lambda (#{tmp\ 1790}#) + ((lambda (#{tmp\ 1791}#) + (if #{tmp\ 1791}# + (apply (lambda (#{_\ 1793}#) (#{chi-void\ 466}#)) + #{tmp\ 1791}#) + ((lambda (#{tmp\ 1794}#) + (if #{tmp\ 1794}# + (apply (lambda (#{_\ 1798}# + #{e1\ 1799}# + #{e2\ 1800}#) + (#{chi-top-sequence\ 442}# + (cons #{e1\ 1799}# #{e2\ 1800}#) + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# + #{m\ 1747}# + #{esew\ 1748}# + #{mod\ 1782}#)) + #{tmp\ 1794}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1965}#))) + #{tmp\ 1790}#))) ($sc-dispatch - #{tmp\ 1965}# + #{tmp\ 1790}# '(any any . each-any))))) - ($sc-dispatch #{tmp\ 1965}# (quote (any))))) - #{e\ 1954}#) - (if (memv #{type\ 1952}# (quote (local-syntax-form))) - (#{chi-local-syntax\ 761}# - #{value\ 1953}# - #{e\ 1954}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# - #{mod\ 1957}# - (lambda (#{body\ 1978}# - #{r\ 1979}# - #{w\ 1980}# - #{s\ 1981}# - #{mod\ 1982}#) - (#{chi-top-sequence\ 741}# - #{body\ 1978}# - #{r\ 1979}# - #{w\ 1980}# - #{s\ 1981}# - #{m\ 1929}# - #{esew\ 1930}# - #{mod\ 1982}#))) - (if (memv #{type\ 1952}# (quote (eval-when-form))) - ((lambda (#{tmp\ 1989}#) - ((lambda (#{tmp\ 1990}#) - (if #{tmp\ 1990}# - (apply (lambda (#{_\ 1995}# - #{x\ 1996}# - #{e1\ 1997}# - #{e2\ 1998}#) - (let ((#{when-list\ 2001}# - (#{chi-when-list\ 745}# - #{e\ 1954}# - #{x\ 1996}# - #{w\ 1955}#)) - (#{body\ 2002}# - (cons #{e1\ 1997}# - #{e2\ 1998}#))) - (if (eq? #{m\ 1929}# (quote e)) + ($sc-dispatch #{tmp\ 1790}# (quote (any))))) + #{e\ 1779}#) + (if (memv #{type\ 1777}# (quote (local-syntax-form))) + (#{chi-local-syntax\ 462}# + #{value\ 1778}# + #{e\ 1779}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# + #{mod\ 1782}# + (lambda (#{body\ 1803}# + #{r\ 1804}# + #{w\ 1805}# + #{s\ 1806}# + #{mod\ 1807}#) + (#{chi-top-sequence\ 442}# + #{body\ 1803}# + #{r\ 1804}# + #{w\ 1805}# + #{s\ 1806}# + #{m\ 1747}# + #{esew\ 1748}# + #{mod\ 1807}#))) + (if (memv #{type\ 1777}# (quote (eval-when-form))) + ((lambda (#{tmp\ 1814}#) + ((lambda (#{tmp\ 1815}#) + (if #{tmp\ 1815}# + (apply (lambda (#{_\ 1820}# + #{x\ 1821}# + #{e1\ 1822}# + #{e2\ 1823}#) + (let ((#{when-list\ 1826}# + (#{chi-when-list\ 446}# + #{e\ 1779}# + #{x\ 1821}# + #{w\ 1780}#)) + (#{body\ 1827}# + (cons #{e1\ 1822}# + #{e2\ 1823}#))) + (if (eq? #{m\ 1747}# (quote e)) (if (memq 'eval - #{when-list\ 2001}#) - (#{chi-top-sequence\ 741}# - #{body\ 2002}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# + #{when-list\ 1826}#) + (#{chi-top-sequence\ 442}# + #{body\ 1827}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# (if (memq 'expand - #{when-list\ 2001}#) + #{when-list\ 1826}#) 'c&e 'e) '(eval) - #{mod\ 1957}#) + #{mod\ 1782}#) (begin (if (memq 'expand - #{when-list\ 2001}#) - (#{top-level-eval-hook\ 575}# - (#{chi-top-sequence\ 741}# - #{body\ 2002}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# + #{when-list\ 1826}#) + (#{top-level-eval-hook\ 276}# + (#{chi-top-sequence\ 442}# + #{body\ 1827}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# 'e '(eval) - #{mod\ 1957}#) - #{mod\ 1957}#)) - (#{chi-void\ 765}#))) + #{mod\ 1782}#) + #{mod\ 1782}#)) + (#{chi-void\ 466}#))) (if (memq 'load - #{when-list\ 2001}#) - (if (let ((#{t\ 2011}# + #{when-list\ 1826}#) + (if (let ((#{t\ 1836}# (memq 'compile - #{when-list\ 2001}#))) - (if #{t\ 2011}# - #{t\ 2011}# - (let ((#{t\ 2014}# + #{when-list\ 1826}#))) + (if #{t\ 1836}# + #{t\ 1836}# + (let ((#{t\ 1839}# (memq 'expand - #{when-list\ 2001}#))) - (if #{t\ 2014}# - #{t\ 2014}# - (if (eq? #{m\ 1929}# + #{when-list\ 1826}#))) + (if #{t\ 1839}# + #{t\ 1839}# + (if (eq? #{m\ 1747}# 'c&e) (memq 'eval - #{when-list\ 2001}#) + #{when-list\ 1826}#) #f))))) - (#{chi-top-sequence\ 741}# - #{body\ 2002}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# + (#{chi-top-sequence\ 442}# + #{body\ 1827}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# 'c&e '(compile load) - #{mod\ 1957}#) - (if (memq #{m\ 1929}# + #{mod\ 1782}#) + (if (memq #{m\ 1747}# '(c c&e)) - (#{chi-top-sequence\ 741}# - #{body\ 2002}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# + (#{chi-top-sequence\ 442}# + #{body\ 1827}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# 'c '(load) - #{mod\ 1957}#) - (#{chi-void\ 765}#))) - (if (let ((#{t\ 2022}# + #{mod\ 1782}#) + (#{chi-void\ 466}#))) + (if (let ((#{t\ 1847}# (memq 'compile - #{when-list\ 2001}#))) - (if #{t\ 2022}# - #{t\ 2022}# - (let ((#{t\ 2025}# + #{when-list\ 1826}#))) + (if #{t\ 1847}# + #{t\ 1847}# + (let ((#{t\ 1850}# (memq 'expand - #{when-list\ 2001}#))) - (if #{t\ 2025}# - #{t\ 2025}# - (if (eq? #{m\ 1929}# + #{when-list\ 1826}#))) + (if #{t\ 1850}# + #{t\ 1850}# + (if (eq? #{m\ 1747}# 'c&e) (memq 'eval - #{when-list\ 2001}#) + #{when-list\ 1826}#) #f))))) (begin - (#{top-level-eval-hook\ 575}# - (#{chi-top-sequence\ 741}# - #{body\ 2002}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# + (#{top-level-eval-hook\ 276}# + (#{chi-top-sequence\ 442}# + #{body\ 1827}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# 'e '(eval) - #{mod\ 1957}#) - #{mod\ 1957}#) - (#{chi-void\ 765}#)) - (#{chi-void\ 765}#)))))) - #{tmp\ 1990}#) + #{mod\ 1782}#) + #{mod\ 1782}#) + (#{chi-void\ 466}#)) + (#{chi-void\ 466}#)))))) + #{tmp\ 1815}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 1989}#))) + #{tmp\ 1814}#))) ($sc-dispatch - #{tmp\ 1989}# + #{tmp\ 1814}# '(any each-any any . each-any)))) - #{e\ 1954}#) - (if (memv #{type\ 1952}# + #{e\ 1779}#) + (if (memv #{type\ 1777}# '(define-syntax-form)) - (let ((#{n\ 2033}# - (#{id-var-name\ 723}# - #{value\ 1953}# - #{w\ 1955}#)) - (#{r\ 2034}# - (#{macros-only-env\ 658}# #{r\ 1927}#))) - (if (memv #{m\ 1929}# (quote (c))) - (if (memq (quote compile) #{esew\ 1930}#) - (let ((#{e\ 2037}# - (#{chi-install-global\ 743}# - #{n\ 2033}# - (#{chi\ 751}# - #{e\ 1954}# - #{r\ 2034}# - #{w\ 1955}# - #{mod\ 1957}#)))) + (let ((#{n\ 1858}# + (#{id-var-name\ 424}# + #{value\ 1778}# + #{w\ 1780}#)) + (#{r\ 1859}# + (#{macros-only-env\ 359}# #{r\ 1745}#))) + (if (memv #{m\ 1747}# (quote (c))) + (if (memq (quote compile) #{esew\ 1748}#) + (let ((#{e\ 1862}# + (#{chi-install-global\ 444}# + #{n\ 1858}# + (#{chi\ 452}# + #{e\ 1779}# + #{r\ 1859}# + #{w\ 1780}# + #{mod\ 1782}#)))) (begin - (#{top-level-eval-hook\ 575}# - #{e\ 2037}# - #{mod\ 1957}#) - (if (memq (quote load) #{esew\ 1930}#) - #{e\ 2037}# - (#{chi-void\ 765}#)))) - (if (memq (quote load) #{esew\ 1930}#) - (#{chi-install-global\ 743}# - #{n\ 2033}# - (#{chi\ 751}# - #{e\ 1954}# - #{r\ 2034}# - #{w\ 1955}# - #{mod\ 1957}#)) - (#{chi-void\ 765}#))) - (if (memv #{m\ 1929}# (quote (c&e))) - (let ((#{e\ 2040}# - (#{chi-install-global\ 743}# - #{n\ 2033}# - (#{chi\ 751}# - #{e\ 1954}# - #{r\ 2034}# - #{w\ 1955}# - #{mod\ 1957}#)))) + (#{top-level-eval-hook\ 276}# + #{e\ 1862}# + #{mod\ 1782}#) + (if (memq (quote load) #{esew\ 1748}#) + #{e\ 1862}# + (#{chi-void\ 466}#)))) + (if (memq (quote load) #{esew\ 1748}#) + (#{chi-install-global\ 444}# + #{n\ 1858}# + (#{chi\ 452}# + #{e\ 1779}# + #{r\ 1859}# + #{w\ 1780}# + #{mod\ 1782}#)) + (#{chi-void\ 466}#))) + (if (memv #{m\ 1747}# (quote (c&e))) + (let ((#{e\ 1865}# + (#{chi-install-global\ 444}# + #{n\ 1858}# + (#{chi\ 452}# + #{e\ 1779}# + #{r\ 1859}# + #{w\ 1780}# + #{mod\ 1782}#)))) (begin - (#{top-level-eval-hook\ 575}# - #{e\ 2040}# - #{mod\ 1957}#) - #{e\ 2040}#)) + (#{top-level-eval-hook\ 276}# + #{e\ 1865}# + #{mod\ 1782}#) + #{e\ 1865}#)) (begin - (if (memq (quote eval) #{esew\ 1930}#) - (#{top-level-eval-hook\ 575}# - (#{chi-install-global\ 743}# - #{n\ 2033}# - (#{chi\ 751}# - #{e\ 1954}# - #{r\ 2034}# - #{w\ 1955}# - #{mod\ 1957}#)) - #{mod\ 1957}#)) - (#{chi-void\ 765}#))))) - (if (memv #{type\ 1952}# (quote (define-form))) - (let ((#{n\ 2045}# - (#{id-var-name\ 723}# - #{value\ 1953}# - #{w\ 1955}#))) - (let ((#{type\ 2047}# - (#{binding-type\ 649}# - (#{lookup\ 660}# - #{n\ 2045}# - #{r\ 1927}# - #{mod\ 1957}#)))) - (if (memv #{type\ 2047}# + (if (memq (quote eval) #{esew\ 1748}#) + (#{top-level-eval-hook\ 276}# + (#{chi-install-global\ 444}# + #{n\ 1858}# + (#{chi\ 452}# + #{e\ 1779}# + #{r\ 1859}# + #{w\ 1780}# + #{mod\ 1782}#)) + #{mod\ 1782}#)) + (#{chi-void\ 466}#))))) + (if (memv #{type\ 1777}# (quote (define-form))) + (let ((#{n\ 1870}# + (#{id-var-name\ 424}# + #{value\ 1778}# + #{w\ 1780}#))) + (let ((#{type\ 1872}# + (#{binding-type\ 350}# + (#{lookup\ 361}# + #{n\ 1870}# + #{r\ 1745}# + #{mod\ 1782}#)))) + (if (memv #{type\ 1872}# '(global core macro module-ref)) (begin - (if (if (memq #{m\ 1929}# (quote (c c&e))) + (if (if (memq #{m\ 1747}# (quote (c c&e))) (if (not (module-local-variable (current-module) - #{n\ 2045}#)) + #{n\ 1870}#)) (current-module) #f) #f) - (let ((#{old\ 2053}# + (let ((#{old\ 1878}# (module-variable (current-module) - #{n\ 2045}#))) + #{n\ 1870}#))) (module-define! (current-module) - #{n\ 2045}# - (if (variable? #{old\ 2053}#) - (variable-ref #{old\ 2053}#) + #{n\ 1870}# + (if (variable? #{old\ 1878}#) + (variable-ref #{old\ 1878}#) #f)))) - (let ((#{x\ 2056}# - (#{build-global-definition\ 606}# - #{s\ 1956}# - #{n\ 2045}# - (#{chi\ 751}# - #{e\ 1954}# - #{r\ 1927}# - #{w\ 1955}# - #{mod\ 1957}#)))) + (let ((#{x\ 1881}# + (#{build-global-definition\ 307}# + #{s\ 1781}# + #{n\ 1870}# + (#{chi\ 452}# + #{e\ 1779}# + #{r\ 1745}# + #{w\ 1780}# + #{mod\ 1782}#)))) (begin - (if (eq? #{m\ 1929}# (quote c&e)) - (#{top-level-eval-hook\ 575}# - #{x\ 2056}# - #{mod\ 1957}#)) - #{x\ 2056}#))) - (if (memv #{type\ 2047}# + (if (eq? #{m\ 1747}# (quote c&e)) + (#{top-level-eval-hook\ 276}# + #{x\ 1881}# + #{mod\ 1782}#)) + #{x\ 1881}#))) + (if (memv #{type\ 1872}# '(displaced-lexical)) (syntax-violation #f "identifier out of context" - #{e\ 1954}# - (#{wrap\ 735}# - #{value\ 1953}# - #{w\ 1955}# - #{mod\ 1957}#)) + #{e\ 1779}# + (#{wrap\ 436}# + #{value\ 1778}# + #{w\ 1780}# + #{mod\ 1782}#)) (syntax-violation #f "cannot define keyword at top level" - #{e\ 1954}# - (#{wrap\ 735}# - #{value\ 1953}# - #{w\ 1955}# - #{mod\ 1957}#)))))) - (let ((#{x\ 2062}# - (#{chi-expr\ 753}# - #{type\ 1952}# - #{value\ 1953}# - #{e\ 1954}# - #{r\ 1927}# - #{w\ 1955}# - #{s\ 1956}# - #{mod\ 1957}#))) + #{e\ 1779}# + (#{wrap\ 436}# + #{value\ 1778}# + #{w\ 1780}# + #{mod\ 1782}#)))))) + (let ((#{x\ 1887}# + (#{chi-expr\ 454}# + #{type\ 1777}# + #{value\ 1778}# + #{e\ 1779}# + #{r\ 1745}# + #{w\ 1780}# + #{s\ 1781}# + #{mod\ 1782}#))) (begin - (if (eq? #{m\ 1929}# (quote c&e)) - (#{top-level-eval-hook\ 575}# - #{x\ 2062}# - #{mod\ 1957}#)) - #{x\ 2062}#))))))))))) - (#{syntax-type\ 747}# - (lambda (#{e\ 2063}# - #{r\ 2064}# - #{w\ 2065}# - #{s\ 2066}# - #{rib\ 2067}# - #{mod\ 2068}# - #{for-car?\ 2069}#) - (if (symbol? #{e\ 2063}#) - (let ((#{n\ 2081}# - (#{id-var-name\ 723}# #{e\ 2063}# #{w\ 2065}#))) - (let ((#{b\ 2083}# - (#{lookup\ 660}# - #{n\ 2081}# - #{r\ 2064}# - #{mod\ 2068}#))) - (let ((#{type\ 2085}# - (#{binding-type\ 649}# #{b\ 2083}#))) - (if (memv #{type\ 2085}# (quote (lexical))) + (if (eq? #{m\ 1747}# (quote c&e)) + (#{top-level-eval-hook\ 276}# + #{x\ 1887}# + #{mod\ 1782}#)) + #{x\ 1887}#))))))))))) + (#{syntax-type\ 448}# + (lambda (#{e\ 1888}# + #{r\ 1889}# + #{w\ 1890}# + #{s\ 1891}# + #{rib\ 1892}# + #{mod\ 1893}# + #{for-car?\ 1894}#) + (if (symbol? #{e\ 1888}#) + (let ((#{n\ 1906}# + (#{id-var-name\ 424}# #{e\ 1888}# #{w\ 1890}#))) + (let ((#{b\ 1908}# + (#{lookup\ 361}# + #{n\ 1906}# + #{r\ 1889}# + #{mod\ 1893}#))) + (let ((#{type\ 1910}# + (#{binding-type\ 350}# #{b\ 1908}#))) + (if (memv #{type\ 1910}# (quote (lexical))) (values - #{type\ 2085}# - (#{binding-value\ 651}# #{b\ 2083}#) - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{type\ 2085}# (quote (global))) + #{type\ 1910}# + (#{binding-value\ 352}# #{b\ 1908}#) + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{type\ 1910}# (quote (global))) (values - #{type\ 2085}# - #{n\ 2081}# - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{type\ 2085}# (quote (macro))) - (if #{for-car?\ 2069}# + #{type\ 1910}# + #{n\ 1906}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{type\ 1910}# (quote (macro))) + (if #{for-car?\ 1894}# (values - #{type\ 2085}# - (#{binding-value\ 651}# #{b\ 2083}#) - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (#{syntax-type\ 747}# - (#{chi-macro\ 757}# - (#{binding-value\ 651}# #{b\ 2083}#) - #{e\ 2063}# - #{r\ 2064}# - #{w\ 2065}# - #{rib\ 2067}# - #{mod\ 2068}#) - #{r\ 2064}# + #{type\ 1910}# + (#{binding-value\ 352}# #{b\ 1908}#) + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (#{syntax-type\ 448}# + (#{chi-macro\ 458}# + (#{binding-value\ 352}# #{b\ 1908}#) + #{e\ 1888}# + #{r\ 1889}# + #{w\ 1890}# + #{rib\ 1892}# + #{mod\ 1893}#) + #{r\ 1889}# '(()) - #{s\ 2066}# - #{rib\ 2067}# - #{mod\ 2068}# + #{s\ 1891}# + #{rib\ 1892}# + #{mod\ 1893}# #f)) (values - #{type\ 2085}# - (#{binding-value\ 651}# #{b\ 2083}#) - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#))))))) - (if (pair? #{e\ 2063}#) - (let ((#{first\ 2094}# (car #{e\ 2063}#))) + #{type\ 1910}# + (#{binding-value\ 352}# #{b\ 1908}#) + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#))))))) + (if (pair? #{e\ 1888}#) + (let ((#{first\ 1919}# (car #{e\ 1888}#))) (call-with-values (lambda () - (#{syntax-type\ 747}# - #{first\ 2094}# - #{r\ 2064}# - #{w\ 2065}# - #{s\ 2066}# - #{rib\ 2067}# - #{mod\ 2068}# + (#{syntax-type\ 448}# + #{first\ 1919}# + #{r\ 1889}# + #{w\ 1890}# + #{s\ 1891}# + #{rib\ 1892}# + #{mod\ 1893}# #t)) - (lambda (#{ftype\ 2095}# - #{fval\ 2096}# - #{fe\ 2097}# - #{fw\ 2098}# - #{fs\ 2099}# - #{fmod\ 2100}#) - (if (memv #{ftype\ 2095}# (quote (lexical))) + (lambda (#{ftype\ 1920}# + #{fval\ 1921}# + #{fe\ 1922}# + #{fw\ 1923}# + #{fs\ 1924}# + #{fmod\ 1925}#) + (if (memv #{ftype\ 1920}# (quote (lexical))) (values 'lexical-call - #{fval\ 2096}# - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{ftype\ 2095}# (quote (global))) + #{fval\ 1921}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{ftype\ 1920}# (quote (global))) (values 'global-call - (#{make-syntax-object\ 628}# - #{fval\ 2096}# - #{w\ 2065}# - #{fmod\ 2100}#) - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{ftype\ 2095}# (quote (macro))) - (#{syntax-type\ 747}# - (#{chi-macro\ 757}# - #{fval\ 2096}# - #{e\ 2063}# - #{r\ 2064}# - #{w\ 2065}# - #{rib\ 2067}# - #{mod\ 2068}#) - #{r\ 2064}# + (#{make-syntax-object\ 329}# + #{fval\ 1921}# + #{w\ 1890}# + #{fmod\ 1925}#) + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{ftype\ 1920}# (quote (macro))) + (#{syntax-type\ 448}# + (#{chi-macro\ 458}# + #{fval\ 1921}# + #{e\ 1888}# + #{r\ 1889}# + #{w\ 1890}# + #{rib\ 1892}# + #{mod\ 1893}#) + #{r\ 1889}# '(()) - #{s\ 2066}# - #{rib\ 2067}# - #{mod\ 2068}# - #{for-car?\ 2069}#) - (if (memv #{ftype\ 2095}# (quote (module-ref))) + #{s\ 1891}# + #{rib\ 1892}# + #{mod\ 1893}# + #{for-car?\ 1894}#) + (if (memv #{ftype\ 1920}# (quote (module-ref))) (call-with-values (lambda () - (#{fval\ 2096}# - #{e\ 2063}# - #{r\ 2064}# - #{w\ 2065}#)) - (lambda (#{e\ 2112}# - #{r\ 2113}# - #{w\ 2114}# - #{s\ 2115}# - #{mod\ 2116}#) - (#{syntax-type\ 747}# - #{e\ 2112}# - #{r\ 2113}# - #{w\ 2114}# - #{s\ 2115}# - #{rib\ 2067}# - #{mod\ 2116}# - #{for-car?\ 2069}#))) - (if (memv #{ftype\ 2095}# (quote (core))) + (#{fval\ 1921}# + #{e\ 1888}# + #{r\ 1889}# + #{w\ 1890}#)) + (lambda (#{e\ 1937}# + #{r\ 1938}# + #{w\ 1939}# + #{s\ 1940}# + #{mod\ 1941}#) + (#{syntax-type\ 448}# + #{e\ 1937}# + #{r\ 1938}# + #{w\ 1939}# + #{s\ 1940}# + #{rib\ 1892}# + #{mod\ 1941}# + #{for-car?\ 1894}#))) + (if (memv #{ftype\ 1920}# (quote (core))) (values 'core-form - #{fval\ 2096}# - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{ftype\ 2095}# + #{fval\ 1921}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{ftype\ 1920}# '(local-syntax)) (values 'local-syntax-form - #{fval\ 2096}# - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{ftype\ 2095}# (quote (begin))) + #{fval\ 1921}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{ftype\ 1920}# (quote (begin))) (values 'begin-form #f - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{ftype\ 2095}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{ftype\ 1920}# '(eval-when)) (values 'eval-when-form #f - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) - (if (memv #{ftype\ 2095}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) + (if (memv #{ftype\ 1920}# '(define)) - ((lambda (#{tmp\ 2127}#) - ((lambda (#{tmp\ 2128}#) - (if (if #{tmp\ 2128}# - (apply (lambda (#{_\ 2132}# - #{name\ 2133}# - #{val\ 2134}#) - (#{id?\ 666}# - #{name\ 2133}#)) - #{tmp\ 2128}#) + ((lambda (#{tmp\ 1952}#) + ((lambda (#{tmp\ 1953}#) + (if (if #{tmp\ 1953}# + (apply (lambda (#{_\ 1957}# + #{name\ 1958}# + #{val\ 1959}#) + (#{id?\ 367}# + #{name\ 1958}#)) + #{tmp\ 1953}#) #f) - (apply (lambda (#{_\ 2138}# - #{name\ 2139}# - #{val\ 2140}#) + (apply (lambda (#{_\ 1963}# + #{name\ 1964}# + #{val\ 1965}#) (values 'define-form - #{name\ 2139}# - #{val\ 2140}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#)) - #{tmp\ 2128}#) - ((lambda (#{tmp\ 2141}#) - (if (if #{tmp\ 2141}# - (apply (lambda (#{_\ 2147}# - #{name\ 2148}# - #{args\ 2149}# - #{e1\ 2150}# - #{e2\ 2151}#) - (if (#{id?\ 666}# - #{name\ 2148}#) - (#{valid-bound-ids?\ 729}# - (#{lambda-var-list\ 781}# - #{args\ 2149}#)) + #{name\ 1964}# + #{val\ 1965}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#)) + #{tmp\ 1953}#) + ((lambda (#{tmp\ 1966}#) + (if (if #{tmp\ 1966}# + (apply (lambda (#{_\ 1972}# + #{name\ 1973}# + #{args\ 1974}# + #{e1\ 1975}# + #{e2\ 1976}#) + (if (#{id?\ 367}# + #{name\ 1973}#) + (#{valid-bound-ids?\ 430}# + (#{lambda-var-list\ 482}# + #{args\ 1974}#)) #f)) - #{tmp\ 2141}#) + #{tmp\ 1966}#) #f) - (apply (lambda (#{_\ 2159}# - #{name\ 2160}# - #{args\ 2161}# - #{e1\ 2162}# - #{e2\ 2163}#) + (apply (lambda (#{_\ 1984}# + #{name\ 1985}# + #{args\ 1986}# + #{e1\ 1987}# + #{e2\ 1988}#) (values 'define-form - (#{wrap\ 735}# - #{name\ 2160}# - #{w\ 2065}# - #{mod\ 2068}#) - (#{decorate-source\ 584}# + (#{wrap\ 436}# + #{name\ 1985}# + #{w\ 1890}# + #{mod\ 1893}#) + (#{decorate-source\ 285}# (cons '#(syntax-object lambda ((top) @@ -3639,11 +3809,11 @@ (top) (top) (top)) - #("i2154" - "i2155" - "i2156" - "i2157" - "i2158")) + #("i1979" + "i1980" + "i1981" + "i1982" + "i1983")) #(ribcage () () @@ -3665,12 +3835,12 @@ (top) (top) (top)) - #("i2101" - "i2102" - "i2103" - "i2104" - "i2105" - "i2106")) + #("i1926" + "i1927" + "i1928" + "i1929" + "i1930" + "i1931")) #(ribcage () () @@ -3678,7 +3848,7 @@ #(ribcage #(first) #((top)) - #("i2093")) + #("i1918")) #(ribcage () () @@ -3706,13 +3876,13 @@ (top) (top) (top)) - #("i2070" - "i2071" - "i2072" - "i2073" - "i2074" - "i2075" - "i2076")) + #("i1895" + "i1896" + "i1897" + "i1898" + "i1899" + "i1900" + "i1901")) #(ribcage (lambda-var-list gen-var @@ -3830,6 +4000,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -3947,160 +4135,199 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) ((top) + (top) (top)) - ("i467" - "i465"))) + ("i28" + "i27" + "i25"))) (hygiene guile)) - (#{wrap\ 735}# - (cons #{args\ 2161}# - (cons #{e1\ 2162}# - #{e2\ 2163}#)) - #{w\ 2065}# - #{mod\ 2068}#)) - #{s\ 2066}#) + (#{wrap\ 436}# + (cons #{args\ 1986}# + (cons #{e1\ 1987}# + #{e2\ 1988}#)) + #{w\ 1890}# + #{mod\ 1893}#)) + #{s\ 1891}#) '(()) - #{s\ 2066}# - #{mod\ 2068}#)) - #{tmp\ 2141}#) - ((lambda (#{tmp\ 2166}#) - (if (if #{tmp\ 2166}# - (apply (lambda (#{_\ 2169}# - #{name\ 2170}#) - (#{id?\ 666}# - #{name\ 2170}#)) - #{tmp\ 2166}#) + #{s\ 1891}# + #{mod\ 1893}#)) + #{tmp\ 1966}#) + ((lambda (#{tmp\ 1991}#) + (if (if #{tmp\ 1991}# + (apply (lambda (#{_\ 1994}# + #{name\ 1995}#) + (#{id?\ 367}# + #{name\ 1995}#)) + #{tmp\ 1991}#) #f) - (apply (lambda (#{_\ 2173}# - #{name\ 2174}#) + (apply (lambda (#{_\ 1998}# + #{name\ 1999}#) (values 'define-form - (#{wrap\ 735}# - #{name\ 2174}# - #{w\ 2065}# - #{mod\ 2068}#) + (#{wrap\ 436}# + #{name\ 1999}# + #{w\ 1890}# + #{mod\ 1893}#) '(#(syntax-object if ((top) @@ -4109,8 +4336,8 @@ name) #((top) (top)) - #("i2171" - "i2172")) + #("i1996" + "i1997")) #(ribcage () () @@ -4132,12 +4359,12 @@ (top) (top) (top)) - #("i2101" - "i2102" - "i2103" - "i2104" - "i2105" - "i2106")) + #("i1926" + "i1927" + "i1928" + "i1929" + "i1930" + "i1931")) #(ribcage () () @@ -4145,7 +4372,7 @@ #(ribcage #(first) #((top)) - #("i2093")) + #("i1918")) #(ribcage () () @@ -4173,13 +4400,13 @@ (top) (top) (top)) - #("i2070" - "i2071" - "i2072" - "i2073" - "i2074" - "i2075" - "i2076")) + #("i1895" + "i1896" + "i1897" + "i1898" + "i1899" + "i1900" + "i1901")) #(ribcage (lambda-var-list gen-var @@ -4297,6 +4524,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -4414,131 +4659,170 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) ((top) + (top) (top)) - ("i467" - "i465"))) + ("i28" + "i27" + "i25"))) (hygiene guile)) #(syntax-object @@ -4549,8 +4833,8 @@ name) #((top) (top)) - #("i2171" - "i2172")) + #("i1996" + "i1997")) #(ribcage () () @@ -4572,12 +4856,12 @@ (top) (top) (top)) - #("i2101" - "i2102" - "i2103" - "i2104" - "i2105" - "i2106")) + #("i1926" + "i1927" + "i1928" + "i1929" + "i1930" + "i1931")) #(ribcage () () @@ -4585,7 +4869,7 @@ #(ribcage #(first) #((top)) - #("i2093")) + #("i1918")) #(ribcage () () @@ -4613,13 +4897,13 @@ (top) (top) (top)) - #("i2070" - "i2071" - "i2072" - "i2073" - "i2074" - "i2075" - "i2076")) + #("i1895" + "i1896" + "i1897" + "i1898" + "i1899" + "i1900" + "i1901")) #(ribcage (lambda-var-list gen-var @@ -4737,6 +5021,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -4854,131 +5156,170 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) ((top) + (top) (top)) - ("i467" - "i465"))) + ("i28" + "i27" + "i25"))) (hygiene guile)) #(syntax-object @@ -4989,8 +5330,8 @@ name) #((top) (top)) - #("i2171" - "i2172")) + #("i1996" + "i1997")) #(ribcage () () @@ -5012,12 +5353,12 @@ (top) (top) (top)) - #("i2101" - "i2102" - "i2103" - "i2104" - "i2105" - "i2106")) + #("i1926" + "i1927" + "i1928" + "i1929" + "i1930" + "i1931")) #(ribcage () () @@ -5025,7 +5366,7 @@ #(ribcage #(first) #((top)) - #("i2093")) + #("i1918")) #(ribcage () () @@ -5053,13 +5394,13 @@ (top) (top) (top)) - #("i2070" - "i2071" - "i2072" - "i2073" - "i2074" - "i2075" - "i2076")) + #("i1895" + "i1896" + "i1897" + "i1898" + "i1899" + "i1900" + "i1901")) #(ribcage (lambda-var-list gen-var @@ -5177,6 +5518,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -5294,232 +5653,271 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) ((top) + (top) (top)) - ("i467" - "i465"))) + ("i28" + "i27" + "i25"))) (hygiene guile))) '(()) - #{s\ 2066}# - #{mod\ 2068}#)) - #{tmp\ 2166}#) + #{s\ 1891}# + #{mod\ 1893}#)) + #{tmp\ 1991}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2127}#))) + #{tmp\ 1952}#))) ($sc-dispatch - #{tmp\ 2127}# + #{tmp\ 1952}# '(any any))))) ($sc-dispatch - #{tmp\ 2127}# + #{tmp\ 1952}# '(any (any . any) any . each-any))))) ($sc-dispatch - #{tmp\ 2127}# + #{tmp\ 1952}# '(any any any)))) - #{e\ 2063}#) - (if (memv #{ftype\ 2095}# + #{e\ 1888}#) + (if (memv #{ftype\ 1920}# '(define-syntax)) - ((lambda (#{tmp\ 2177}#) - ((lambda (#{tmp\ 2178}#) - (if (if #{tmp\ 2178}# - (apply (lambda (#{_\ 2182}# - #{name\ 2183}# - #{val\ 2184}#) - (#{id?\ 666}# - #{name\ 2183}#)) - #{tmp\ 2178}#) + ((lambda (#{tmp\ 2002}#) + ((lambda (#{tmp\ 2003}#) + (if (if #{tmp\ 2003}# + (apply (lambda (#{_\ 2007}# + #{name\ 2008}# + #{val\ 2009}#) + (#{id?\ 367}# + #{name\ 2008}#)) + #{tmp\ 2003}#) #f) - (apply (lambda (#{_\ 2188}# - #{name\ 2189}# - #{val\ 2190}#) + (apply (lambda (#{_\ 2013}# + #{name\ 2014}# + #{val\ 2015}#) (values 'define-syntax-form - #{name\ 2189}# - #{val\ 2190}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#)) - #{tmp\ 2178}#) + #{name\ 2014}# + #{val\ 2015}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#)) + #{tmp\ 2003}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 2177}#))) + #{tmp\ 2002}#))) ($sc-dispatch - #{tmp\ 2177}# + #{tmp\ 2002}# '(any any any)))) - #{e\ 2063}#) + #{e\ 1888}#) (values 'call #f - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#)))))))))))))) - (if (#{syntax-object?\ 630}# #{e\ 2063}#) - (#{syntax-type\ 747}# - (#{syntax-object-expression\ 632}# #{e\ 2063}#) - #{r\ 2064}# - (#{join-wraps\ 717}# - #{w\ 2065}# - (#{syntax-object-wrap\ 634}# #{e\ 2063}#)) - #{s\ 2066}# - #{rib\ 2067}# - (let ((#{t\ 2196}# - (#{syntax-object-module\ 636}# #{e\ 2063}#))) - (if #{t\ 2196}# #{t\ 2196}# #{mod\ 2068}#)) - #{for-car?\ 2069}#) - (if (self-evaluating? #{e\ 2063}#) + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#)))))))))))))) + (if (#{syntax-object?\ 331}# #{e\ 1888}#) + (#{syntax-type\ 448}# + (#{syntax-object-expression\ 333}# #{e\ 1888}#) + #{r\ 1889}# + (#{join-wraps\ 418}# + #{w\ 1890}# + (#{syntax-object-wrap\ 335}# #{e\ 1888}#)) + #{s\ 1891}# + #{rib\ 1892}# + (let ((#{t\ 2021}# + (#{syntax-object-module\ 337}# #{e\ 1888}#))) + (if #{t\ 2021}# #{t\ 2021}# #{mod\ 1893}#)) + #{for-car?\ 1894}#) + (if (self-evaluating? #{e\ 1888}#) (values 'constant #f - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#) + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#) (values 'other #f - #{e\ 2063}# - #{w\ 2065}# - #{s\ 2066}# - #{mod\ 2068}#))))))) - (#{chi-when-list\ 745}# - (lambda (#{e\ 2201}# #{when-list\ 2202}# #{w\ 2203}#) - (letrec ((#{f\ 2210}# - (lambda (#{when-list\ 2211}# #{situations\ 2212}#) - (if (null? #{when-list\ 2211}#) - #{situations\ 2212}# - (#{f\ 2210}# - (cdr #{when-list\ 2211}#) - (cons (let ((#{x\ 2214}# - (car #{when-list\ 2211}#))) - (if (#{free-id=?\ 725}# - #{x\ 2214}# + #{e\ 1888}# + #{w\ 1890}# + #{s\ 1891}# + #{mod\ 1893}#))))))) + (#{chi-when-list\ 446}# + (lambda (#{e\ 2026}# #{when-list\ 2027}# #{w\ 2028}#) + (letrec ((#{f\ 2035}# + (lambda (#{when-list\ 2036}# #{situations\ 2037}#) + (if (null? #{when-list\ 2036}#) + #{situations\ 2037}# + (#{f\ 2035}# + (cdr #{when-list\ 2036}#) + (cons (let ((#{x\ 2039}# + (car #{when-list\ 2036}#))) + (if (#{free-id=?\ 426}# + #{x\ 2039}# '#(syntax-object compile ((top) @@ -5529,17 +5927,17 @@ #(ribcage #(x) #((top)) - #("i2213")) + #("i2038")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2207" "i2208" "i2209")) + #("i2032" "i2033" "i2034")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2204" "i2205" "i2206")) + #("i2029" "i2030" "i2031")) #(ribcage (lambda-var-list gen-var @@ -5657,6 +6055,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -5774,132 +6190,170 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i467" "i465"))) + (define-structure + define-expansion-constructors + and-map*) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile))) 'compile - (if (#{free-id=?\ 725}# - #{x\ 2214}# + (if (#{free-id=?\ 426}# + #{x\ 2039}# '#(syntax-object load ((top) @@ -5909,21 +6363,21 @@ #(ribcage #(x) #((top)) - #("i2213")) + #("i2038")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2207" - "i2208" - "i2209")) + #("i2032" + "i2033" + "i2034")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2204" - "i2205" - "i2206")) + #("i2029" + "i2030" + "i2031")) #(ribcage (lambda-var-list gen-var @@ -6041,6 +6495,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -6158,133 +6630,170 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) - ((top) (top)) - ("i467" "i465"))) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile))) 'load - (if (#{free-id=?\ 725}# - #{x\ 2214}# + (if (#{free-id=?\ 426}# + #{x\ 2039}# '#(syntax-object eval ((top) @@ -6294,23 +6803,23 @@ #(ribcage #(x) #((top)) - #("i2213")) + #("i2038")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2207" - "i2208" - "i2209")) + #("i2032" + "i2033" + "i2034")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2204" - "i2205" - "i2206")) + #("i2029" + "i2030" + "i2031")) #(ribcage (lambda-var-list gen-var @@ -6428,6 +6937,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -6545,133 +7072,170 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) - ((top) (top)) - ("i467" "i465"))) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile))) 'eval - (if (#{free-id=?\ 725}# - #{x\ 2214}# + (if (#{free-id=?\ 426}# + #{x\ 2039}# '#(syntax-object expand ((top) @@ -6681,23 +7245,23 @@ #(ribcage #(x) #((top)) - #("i2213")) + #("i2038")) #(ribcage () () ()) #(ribcage #(f when-list situations) #((top) (top) (top)) - #("i2207" - "i2208" - "i2209")) + #("i2032" + "i2033" + "i2034")) #(ribcage () () ()) #(ribcage #(e when-list w) #((top) (top) (top)) - #("i2204" - "i2205" - "i2206")) + #("i2029" + "i2030" + "i2031")) #(ribcage (lambda-var-list gen-var @@ -6815,6 +7379,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -6932,2466 +7514,2686 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) - ((top) (top)) - ("i467" "i465"))) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile))) 'expand (syntax-violation 'eval-when "invalid situation" - #{e\ 2201}# - (#{wrap\ 735}# - #{x\ 2214}# - #{w\ 2203}# + #{e\ 2026}# + (#{wrap\ 436}# + #{x\ 2039}# + #{w\ 2028}# #f))))))) - #{situations\ 2212}#)))))) - (#{f\ 2210}# #{when-list\ 2202}# (quote ()))))) - (#{chi-install-global\ 743}# - (lambda (#{name\ 2224}# #{e\ 2225}#) - (#{build-global-definition\ 606}# + #{situations\ 2037}#)))))) + (#{f\ 2035}# #{when-list\ 2027}# (quote ()))))) + (#{chi-install-global\ 444}# + (lambda (#{name\ 2049}# #{e\ 2050}#) + (#{build-global-definition\ 307}# #f - #{name\ 2224}# - (#{build-application\ 588}# + #{name\ 2049}# + (#{build-application\ 289}# #f - (#{build-primref\ 614}# + (#{build-primref\ 315}# #f 'make-syntax-transformer) - (list (#{build-data\ 616}# #f #{name\ 2224}#) - (#{build-data\ 616}# #f (quote macro)) - (#{build-application\ 588}# + (list (#{build-data\ 317}# #f #{name\ 2049}#) + (#{build-data\ 317}# #f (quote macro)) + (#{build-application\ 289}# #f - (#{build-primref\ 614}# #f (quote cons)) - (list #{e\ 2225}# - (#{build-application\ 588}# + (#{build-primref\ 315}# #f (quote cons)) + (list #{e\ 2050}# + (#{build-application\ 289}# #f - (#{build-primref\ 614}# + (#{build-primref\ 315}# #f 'module-name) - (list (#{build-application\ 588}# + (list (#{build-application\ 289}# #f - (#{build-primref\ 614}# + (#{build-primref\ 315}# #f 'current-module) '())))))))))) - (#{chi-top-sequence\ 741}# - (lambda (#{body\ 2239}# - #{r\ 2240}# - #{w\ 2241}# - #{s\ 2242}# - #{m\ 2243}# - #{esew\ 2244}# - #{mod\ 2245}#) - (#{build-sequence\ 618}# - #{s\ 2242}# - (letrec ((#{dobody\ 2261}# - (lambda (#{body\ 2262}# - #{r\ 2263}# - #{w\ 2264}# - #{m\ 2265}# - #{esew\ 2266}# - #{mod\ 2267}# - #{out\ 2268}#) - (if (null? #{body\ 2262}#) - (reverse #{out\ 2268}#) - (#{dobody\ 2261}# - (cdr #{body\ 2262}#) - #{r\ 2263}# - #{w\ 2264}# - #{m\ 2265}# - #{esew\ 2266}# - #{mod\ 2267}# - (cons (#{chi-top\ 749}# - (car #{body\ 2262}#) - #{r\ 2263}# - #{w\ 2264}# - #{m\ 2265}# - #{esew\ 2266}# - #{mod\ 2267}#) - #{out\ 2268}#)))))) - (#{dobody\ 2261}# - #{body\ 2239}# - #{r\ 2240}# - #{w\ 2241}# - #{m\ 2243}# - #{esew\ 2244}# - #{mod\ 2245}# + (#{chi-top-sequence\ 442}# + (lambda (#{body\ 2064}# + #{r\ 2065}# + #{w\ 2066}# + #{s\ 2067}# + #{m\ 2068}# + #{esew\ 2069}# + #{mod\ 2070}#) + (#{build-sequence\ 319}# + #{s\ 2067}# + (letrec ((#{dobody\ 2086}# + (lambda (#{body\ 2087}# + #{r\ 2088}# + #{w\ 2089}# + #{m\ 2090}# + #{esew\ 2091}# + #{mod\ 2092}# + #{out\ 2093}#) + (if (null? #{body\ 2087}#) + (reverse #{out\ 2093}#) + (#{dobody\ 2086}# + (cdr #{body\ 2087}#) + #{r\ 2088}# + #{w\ 2089}# + #{m\ 2090}# + #{esew\ 2091}# + #{mod\ 2092}# + (cons (#{chi-top\ 450}# + (car #{body\ 2087}#) + #{r\ 2088}# + #{w\ 2089}# + #{m\ 2090}# + #{esew\ 2091}# + #{mod\ 2092}#) + #{out\ 2093}#)))))) + (#{dobody\ 2086}# + #{body\ 2064}# + #{r\ 2065}# + #{w\ 2066}# + #{m\ 2068}# + #{esew\ 2069}# + #{mod\ 2070}# '()))))) - (#{chi-sequence\ 739}# - (lambda (#{body\ 2269}# - #{r\ 2270}# - #{w\ 2271}# - #{s\ 2272}# - #{mod\ 2273}#) - (#{build-sequence\ 618}# - #{s\ 2272}# - (letrec ((#{dobody\ 2284}# - (lambda (#{body\ 2285}# - #{r\ 2286}# - #{w\ 2287}# - #{mod\ 2288}#) - (if (null? #{body\ 2285}#) + (#{chi-sequence\ 440}# + (lambda (#{body\ 2094}# + #{r\ 2095}# + #{w\ 2096}# + #{s\ 2097}# + #{mod\ 2098}#) + (#{build-sequence\ 319}# + #{s\ 2097}# + (letrec ((#{dobody\ 2109}# + (lambda (#{body\ 2110}# + #{r\ 2111}# + #{w\ 2112}# + #{mod\ 2113}#) + (if (null? #{body\ 2110}#) '() - (let ((#{first\ 2290}# - (#{chi\ 751}# - (car #{body\ 2285}#) - #{r\ 2286}# - #{w\ 2287}# - #{mod\ 2288}#))) - (cons #{first\ 2290}# - (#{dobody\ 2284}# - (cdr #{body\ 2285}#) - #{r\ 2286}# - #{w\ 2287}# - #{mod\ 2288}#))))))) - (#{dobody\ 2284}# - #{body\ 2269}# - #{r\ 2270}# - #{w\ 2271}# - #{mod\ 2273}#))))) - (#{source-wrap\ 737}# - (lambda (#{x\ 2291}# - #{w\ 2292}# - #{s\ 2293}# - #{defmod\ 2294}#) - (#{wrap\ 735}# - (#{decorate-source\ 584}# - #{x\ 2291}# - #{s\ 2293}#) - #{w\ 2292}# - #{defmod\ 2294}#))) - (#{wrap\ 735}# - (lambda (#{x\ 2299}# #{w\ 2300}# #{defmod\ 2301}#) - (if (if (null? (#{wrap-marks\ 673}# #{w\ 2300}#)) - (null? (#{wrap-subst\ 675}# #{w\ 2300}#)) + (let ((#{first\ 2115}# + (#{chi\ 452}# + (car #{body\ 2110}#) + #{r\ 2111}# + #{w\ 2112}# + #{mod\ 2113}#))) + (cons #{first\ 2115}# + (#{dobody\ 2109}# + (cdr #{body\ 2110}#) + #{r\ 2111}# + #{w\ 2112}# + #{mod\ 2113}#))))))) + (#{dobody\ 2109}# + #{body\ 2094}# + #{r\ 2095}# + #{w\ 2096}# + #{mod\ 2098}#))))) + (#{source-wrap\ 438}# + (lambda (#{x\ 2116}# + #{w\ 2117}# + #{s\ 2118}# + #{defmod\ 2119}#) + (#{wrap\ 436}# + (#{decorate-source\ 285}# + #{x\ 2116}# + #{s\ 2118}#) + #{w\ 2117}# + #{defmod\ 2119}#))) + (#{wrap\ 436}# + (lambda (#{x\ 2124}# #{w\ 2125}# #{defmod\ 2126}#) + (if (if (null? (#{wrap-marks\ 374}# #{w\ 2125}#)) + (null? (#{wrap-subst\ 376}# #{w\ 2125}#)) #f) - #{x\ 2299}# - (if (#{syntax-object?\ 630}# #{x\ 2299}#) - (#{make-syntax-object\ 628}# - (#{syntax-object-expression\ 632}# #{x\ 2299}#) - (#{join-wraps\ 717}# - #{w\ 2300}# - (#{syntax-object-wrap\ 634}# #{x\ 2299}#)) - (#{syntax-object-module\ 636}# #{x\ 2299}#)) - (if (null? #{x\ 2299}#) - #{x\ 2299}# - (#{make-syntax-object\ 628}# - #{x\ 2299}# - #{w\ 2300}# - #{defmod\ 2301}#)))))) - (#{bound-id-member?\ 733}# - (lambda (#{x\ 2314}# #{list\ 2315}#) - (if (not (null? #{list\ 2315}#)) - (let ((#{t\ 2322}# - (#{bound-id=?\ 727}# - #{x\ 2314}# - (car #{list\ 2315}#)))) - (if #{t\ 2322}# - #{t\ 2322}# - (#{bound-id-member?\ 733}# - #{x\ 2314}# - (cdr #{list\ 2315}#)))) + #{x\ 2124}# + (if (#{syntax-object?\ 331}# #{x\ 2124}#) + (#{make-syntax-object\ 329}# + (#{syntax-object-expression\ 333}# #{x\ 2124}#) + (#{join-wraps\ 418}# + #{w\ 2125}# + (#{syntax-object-wrap\ 335}# #{x\ 2124}#)) + (#{syntax-object-module\ 337}# #{x\ 2124}#)) + (if (null? #{x\ 2124}#) + #{x\ 2124}# + (#{make-syntax-object\ 329}# + #{x\ 2124}# + #{w\ 2125}# + #{defmod\ 2126}#)))))) + (#{bound-id-member?\ 434}# + (lambda (#{x\ 2139}# #{list\ 2140}#) + (if (not (null? #{list\ 2140}#)) + (let ((#{t\ 2147}# + (#{bound-id=?\ 428}# + #{x\ 2139}# + (car #{list\ 2140}#)))) + (if #{t\ 2147}# + #{t\ 2147}# + (#{bound-id-member?\ 434}# + #{x\ 2139}# + (cdr #{list\ 2140}#)))) #f))) - (#{distinct-bound-ids?\ 731}# - (lambda (#{ids\ 2324}#) - (letrec ((#{distinct?\ 2328}# - (lambda (#{ids\ 2329}#) - (let ((#{t\ 2332}# (null? #{ids\ 2329}#))) - (if #{t\ 2332}# - #{t\ 2332}# - (if (not (#{bound-id-member?\ 733}# - (car #{ids\ 2329}#) - (cdr #{ids\ 2329}#))) - (#{distinct?\ 2328}# (cdr #{ids\ 2329}#)) + (#{distinct-bound-ids?\ 432}# + (lambda (#{ids\ 2149}#) + (letrec ((#{distinct?\ 2153}# + (lambda (#{ids\ 2154}#) + (let ((#{t\ 2157}# (null? #{ids\ 2154}#))) + (if #{t\ 2157}# + #{t\ 2157}# + (if (not (#{bound-id-member?\ 434}# + (car #{ids\ 2154}#) + (cdr #{ids\ 2154}#))) + (#{distinct?\ 2153}# (cdr #{ids\ 2154}#)) #f)))))) - (#{distinct?\ 2328}# #{ids\ 2324}#)))) - (#{valid-bound-ids?\ 729}# - (lambda (#{ids\ 2336}#) - (if (letrec ((#{all-ids?\ 2341}# - (lambda (#{ids\ 2342}#) - (let ((#{t\ 2345}# (null? #{ids\ 2342}#))) - (if #{t\ 2345}# - #{t\ 2345}# - (if (#{id?\ 666}# (car #{ids\ 2342}#)) - (#{all-ids?\ 2341}# (cdr #{ids\ 2342}#)) + (#{distinct?\ 2153}# #{ids\ 2149}#)))) + (#{valid-bound-ids?\ 430}# + (lambda (#{ids\ 2161}#) + (if (letrec ((#{all-ids?\ 2166}# + (lambda (#{ids\ 2167}#) + (let ((#{t\ 2170}# (null? #{ids\ 2167}#))) + (if #{t\ 2170}# + #{t\ 2170}# + (if (#{id?\ 367}# (car #{ids\ 2167}#)) + (#{all-ids?\ 2166}# (cdr #{ids\ 2167}#)) #f)))))) - (#{all-ids?\ 2341}# #{ids\ 2336}#)) - (#{distinct-bound-ids?\ 731}# #{ids\ 2336}#) + (#{all-ids?\ 2166}# #{ids\ 2161}#)) + (#{distinct-bound-ids?\ 432}# #{ids\ 2161}#) #f))) - (#{bound-id=?\ 727}# - (lambda (#{i\ 2350}# #{j\ 2351}#) - (if (if (#{syntax-object?\ 630}# #{i\ 2350}#) - (#{syntax-object?\ 630}# #{j\ 2351}#) + (#{bound-id=?\ 428}# + (lambda (#{i\ 2175}# #{j\ 2176}#) + (if (if (#{syntax-object?\ 331}# #{i\ 2175}#) + (#{syntax-object?\ 331}# #{j\ 2176}#) #f) - (if (eq? (#{syntax-object-expression\ 632}# #{i\ 2350}#) - (#{syntax-object-expression\ 632}# #{j\ 2351}#)) - (#{same-marks?\ 721}# - (#{wrap-marks\ 673}# - (#{syntax-object-wrap\ 634}# #{i\ 2350}#)) - (#{wrap-marks\ 673}# - (#{syntax-object-wrap\ 634}# #{j\ 2351}#))) + (if (eq? (#{syntax-object-expression\ 333}# #{i\ 2175}#) + (#{syntax-object-expression\ 333}# #{j\ 2176}#)) + (#{same-marks?\ 422}# + (#{wrap-marks\ 374}# + (#{syntax-object-wrap\ 335}# #{i\ 2175}#)) + (#{wrap-marks\ 374}# + (#{syntax-object-wrap\ 335}# #{j\ 2176}#))) #f) - (eq? #{i\ 2350}# #{j\ 2351}#)))) - (#{free-id=?\ 725}# - (lambda (#{i\ 2358}# #{j\ 2359}#) - (if (eq? (let ((#{x\ 2365}# #{i\ 2358}#)) - (if (#{syntax-object?\ 630}# #{x\ 2365}#) - (#{syntax-object-expression\ 632}# #{x\ 2365}#) - #{x\ 2365}#)) - (let ((#{x\ 2368}# #{j\ 2359}#)) - (if (#{syntax-object?\ 630}# #{x\ 2368}#) - (#{syntax-object-expression\ 632}# #{x\ 2368}#) - #{x\ 2368}#))) - (eq? (#{id-var-name\ 723}# #{i\ 2358}# (quote (()))) - (#{id-var-name\ 723}# #{j\ 2359}# (quote (())))) + (eq? #{i\ 2175}# #{j\ 2176}#)))) + (#{free-id=?\ 426}# + (lambda (#{i\ 2183}# #{j\ 2184}#) + (if (eq? (let ((#{x\ 2190}# #{i\ 2183}#)) + (if (#{syntax-object?\ 331}# #{x\ 2190}#) + (#{syntax-object-expression\ 333}# #{x\ 2190}#) + #{x\ 2190}#)) + (let ((#{x\ 2193}# #{j\ 2184}#)) + (if (#{syntax-object?\ 331}# #{x\ 2193}#) + (#{syntax-object-expression\ 333}# #{x\ 2193}#) + #{x\ 2193}#))) + (eq? (#{id-var-name\ 424}# #{i\ 2183}# (quote (()))) + (#{id-var-name\ 424}# #{j\ 2184}# (quote (())))) #f))) - (#{id-var-name\ 723}# - (lambda (#{id\ 2372}# #{w\ 2373}#) - (letrec ((#{search-vector-rib\ 2382}# - (lambda (#{sym\ 2394}# - #{subst\ 2395}# - #{marks\ 2396}# - #{symnames\ 2397}# - #{ribcage\ 2398}#) - (let ((#{n\ 2405}# - (vector-length #{symnames\ 2397}#))) - (letrec ((#{f\ 2408}# - (lambda (#{i\ 2409}#) - (if (#{fx=\ 571}# - #{i\ 2409}# - #{n\ 2405}#) - (#{search\ 2378}# - #{sym\ 2394}# - (cdr #{subst\ 2395}#) - #{marks\ 2396}#) + (#{id-var-name\ 424}# + (lambda (#{id\ 2197}# #{w\ 2198}#) + (letrec ((#{search-vector-rib\ 2207}# + (lambda (#{sym\ 2224}# + #{subst\ 2225}# + #{marks\ 2226}# + #{symnames\ 2227}# + #{ribcage\ 2228}#) + (let ((#{n\ 2235}# + (vector-length #{symnames\ 2227}#))) + (letrec ((#{f\ 2238}# + (lambda (#{i\ 2239}#) + (if (#{fx=\ 272}# + #{i\ 2239}# + #{n\ 2235}#) + (#{search\ 2203}# + #{sym\ 2224}# + (cdr #{subst\ 2225}#) + #{marks\ 2226}#) (if (if (eq? (vector-ref - #{symnames\ 2397}# - #{i\ 2409}#) - #{sym\ 2394}#) - (#{same-marks?\ 721}# - #{marks\ 2396}# + #{symnames\ 2227}# + #{i\ 2239}#) + #{sym\ 2224}#) + (#{same-marks?\ 422}# + #{marks\ 2226}# (vector-ref - (#{ribcage-marks\ 693}# - #{ribcage\ 2398}#) - #{i\ 2409}#)) + (#{ribcage-marks\ 394}# + #{ribcage\ 2228}#) + #{i\ 2239}#)) #f) (values (vector-ref - (#{ribcage-labels\ 695}# - #{ribcage\ 2398}#) - #{i\ 2409}#) - #{marks\ 2396}#) - (#{f\ 2408}# - (#{fx+\ 567}# - #{i\ 2409}# + (#{ribcage-labels\ 396}# + #{ribcage\ 2228}#) + #{i\ 2239}#) + #{marks\ 2226}#) + (#{f\ 2238}# + (#{fx+\ 268}# + #{i\ 2239}# 1))))))) - (#{f\ 2408}# 0))))) - (#{search-list-rib\ 2380}# - (lambda (#{sym\ 2417}# - #{subst\ 2418}# - #{marks\ 2419}# - #{symnames\ 2420}# - #{ribcage\ 2421}#) - (letrec ((#{f\ 2430}# - (lambda (#{symnames\ 2431}# #{i\ 2432}#) - (if (null? #{symnames\ 2431}#) - (#{search\ 2378}# - #{sym\ 2417}# - (cdr #{subst\ 2418}#) - #{marks\ 2419}#) - (if (if (eq? (car #{symnames\ 2431}#) - #{sym\ 2417}#) - (#{same-marks?\ 721}# - #{marks\ 2419}# + (#{f\ 2238}# 0))))) + (#{search-list-rib\ 2205}# + (lambda (#{sym\ 2247}# + #{subst\ 2248}# + #{marks\ 2249}# + #{symnames\ 2250}# + #{ribcage\ 2251}#) + (letrec ((#{f\ 2260}# + (lambda (#{symnames\ 2261}# #{i\ 2262}#) + (if (null? #{symnames\ 2261}#) + (#{search\ 2203}# + #{sym\ 2247}# + (cdr #{subst\ 2248}#) + #{marks\ 2249}#) + (if (if (eq? (car #{symnames\ 2261}#) + #{sym\ 2247}#) + (#{same-marks?\ 422}# + #{marks\ 2249}# (list-ref - (#{ribcage-marks\ 693}# - #{ribcage\ 2421}#) - #{i\ 2432}#)) + (#{ribcage-marks\ 394}# + #{ribcage\ 2251}#) + #{i\ 2262}#)) #f) (values (list-ref - (#{ribcage-labels\ 695}# - #{ribcage\ 2421}#) - #{i\ 2432}#) - #{marks\ 2419}#) - (#{f\ 2430}# - (cdr #{symnames\ 2431}#) - (#{fx+\ 567}# - #{i\ 2432}# + (#{ribcage-labels\ 396}# + #{ribcage\ 2251}#) + #{i\ 2262}#) + #{marks\ 2249}#) + (#{f\ 2260}# + (cdr #{symnames\ 2261}#) + (#{fx+\ 268}# + #{i\ 2262}# 1))))))) - (#{f\ 2430}# #{symnames\ 2420}# 0)))) - (#{search\ 2378}# - (lambda (#{sym\ 2440}# - #{subst\ 2441}# - #{marks\ 2442}#) - (if (null? #{subst\ 2441}#) - (values #f #{marks\ 2442}#) - (let ((#{fst\ 2447}# (car #{subst\ 2441}#))) - (if (eq? #{fst\ 2447}# (quote shift)) - (#{search\ 2378}# - #{sym\ 2440}# - (cdr #{subst\ 2441}#) - (cdr #{marks\ 2442}#)) - (let ((#{symnames\ 2449}# - (#{ribcage-symnames\ 691}# - #{fst\ 2447}#))) - (if (vector? #{symnames\ 2449}#) - (#{search-vector-rib\ 2382}# - #{sym\ 2440}# - #{subst\ 2441}# - #{marks\ 2442}# - #{symnames\ 2449}# - #{fst\ 2447}#) - (#{search-list-rib\ 2380}# - #{sym\ 2440}# - #{subst\ 2441}# - #{marks\ 2442}# - #{symnames\ 2449}# - #{fst\ 2447}#))))))))) - (if (symbol? #{id\ 2372}#) - (let ((#{t\ 2452}# + (#{f\ 2260}# #{symnames\ 2250}# 0)))) + (#{search\ 2203}# + (lambda (#{sym\ 2270}# + #{subst\ 2271}# + #{marks\ 2272}#) + (if (null? #{subst\ 2271}#) + (values #f #{marks\ 2272}#) + (let ((#{fst\ 2277}# (car #{subst\ 2271}#))) + (if (eq? #{fst\ 2277}# (quote shift)) + (#{search\ 2203}# + #{sym\ 2270}# + (cdr #{subst\ 2271}#) + (cdr #{marks\ 2272}#)) + (let ((#{symnames\ 2279}# + (#{ribcage-symnames\ 392}# + #{fst\ 2277}#))) + (if (vector? #{symnames\ 2279}#) + (#{search-vector-rib\ 2207}# + #{sym\ 2270}# + #{subst\ 2271}# + #{marks\ 2272}# + #{symnames\ 2279}# + #{fst\ 2277}#) + (#{search-list-rib\ 2205}# + #{sym\ 2270}# + #{subst\ 2271}# + #{marks\ 2272}# + #{symnames\ 2279}# + #{fst\ 2277}#))))))))) + (if (symbol? #{id\ 2197}#) + (let ((#{t\ 2282}# (call-with-values (lambda () - (#{search\ 2378}# - #{id\ 2372}# - (#{wrap-subst\ 675}# #{w\ 2373}#) - (#{wrap-marks\ 673}# #{w\ 2373}#))) - (lambda (#{x\ 2454}# . #{ignore\ 2455}#) - #{x\ 2454}#)))) - (if #{t\ 2452}# #{t\ 2452}# #{id\ 2372}#)) - (if (#{syntax-object?\ 630}# #{id\ 2372}#) - (let ((#{id\ 2463}# - (#{syntax-object-expression\ 632}# #{id\ 2372}#)) - (#{w1\ 2464}# - (#{syntax-object-wrap\ 634}# #{id\ 2372}#))) - (let ((#{marks\ 2466}# - (#{join-marks\ 719}# - (#{wrap-marks\ 673}# #{w\ 2373}#) - (#{wrap-marks\ 673}# #{w1\ 2464}#)))) + (#{search\ 2203}# + #{id\ 2197}# + (#{wrap-subst\ 376}# #{w\ 2198}#) + (#{wrap-marks\ 374}# #{w\ 2198}#))) + (lambda (#{x\ 2284}# . #{ignore\ 2285}#) + #{x\ 2284}#)))) + (if #{t\ 2282}# #{t\ 2282}# #{id\ 2197}#)) + (if (#{syntax-object?\ 331}# #{id\ 2197}#) + (let ((#{id\ 2293}# + (#{syntax-object-expression\ 333}# #{id\ 2197}#)) + (#{w1\ 2294}# + (#{syntax-object-wrap\ 335}# #{id\ 2197}#))) + (let ((#{marks\ 2296}# + (#{join-marks\ 420}# + (#{wrap-marks\ 374}# #{w\ 2198}#) + (#{wrap-marks\ 374}# #{w1\ 2294}#)))) (call-with-values (lambda () - (#{search\ 2378}# - #{id\ 2463}# - (#{wrap-subst\ 675}# #{w\ 2373}#) - #{marks\ 2466}#)) - (lambda (#{new-id\ 2467}# #{marks\ 2468}#) - (let ((#{t\ 2473}# #{new-id\ 2467}#)) - (if #{t\ 2473}# - #{t\ 2473}# - (let ((#{t\ 2476}# + (#{search\ 2203}# + #{id\ 2293}# + (#{wrap-subst\ 376}# #{w\ 2198}#) + #{marks\ 2296}#)) + (lambda (#{new-id\ 2297}# #{marks\ 2298}#) + (let ((#{t\ 2303}# #{new-id\ 2297}#)) + (if #{t\ 2303}# + #{t\ 2303}# + (let ((#{t\ 2306}# (call-with-values (lambda () - (#{search\ 2378}# - #{id\ 2463}# - (#{wrap-subst\ 675}# - #{w1\ 2464}#) - #{marks\ 2468}#)) - (lambda (#{x\ 2478}# + (#{search\ 2203}# + #{id\ 2293}# + (#{wrap-subst\ 376}# + #{w1\ 2294}#) + #{marks\ 2298}#)) + (lambda (#{x\ 2308}# . - #{ignore\ 2479}#) - #{x\ 2478}#)))) - (if #{t\ 2476}# - #{t\ 2476}# - #{id\ 2463}#)))))))) + #{ignore\ 2309}#) + #{x\ 2308}#)))) + (if #{t\ 2306}# + #{t\ 2306}# + #{id\ 2293}#)))))))) (syntax-violation 'id-var-name "invalid id" - #{id\ 2372}#)))))) - (#{same-marks?\ 721}# - (lambda (#{x\ 2484}# #{y\ 2485}#) - (let ((#{t\ 2490}# (eq? #{x\ 2484}# #{y\ 2485}#))) - (if #{t\ 2490}# - #{t\ 2490}# - (if (not (null? #{x\ 2484}#)) - (if (not (null? #{y\ 2485}#)) - (if (eq? (car #{x\ 2484}#) (car #{y\ 2485}#)) - (#{same-marks?\ 721}# - (cdr #{x\ 2484}#) - (cdr #{y\ 2485}#)) + #{id\ 2197}#)))))) + (#{same-marks?\ 422}# + (lambda (#{x\ 2314}# #{y\ 2315}#) + (let ((#{t\ 2320}# (eq? #{x\ 2314}# #{y\ 2315}#))) + (if #{t\ 2320}# + #{t\ 2320}# + (if (not (null? #{x\ 2314}#)) + (if (not (null? #{y\ 2315}#)) + (if (eq? (car #{x\ 2314}#) (car #{y\ 2315}#)) + (#{same-marks?\ 422}# + (cdr #{x\ 2314}#) + (cdr #{y\ 2315}#)) #f) #f) #f))))) - (#{join-marks\ 719}# - (lambda (#{m1\ 2496}# #{m2\ 2497}#) - (#{smart-append\ 715}# #{m1\ 2496}# #{m2\ 2497}#))) - (#{join-wraps\ 717}# - (lambda (#{w1\ 2500}# #{w2\ 2501}#) - (let ((#{m1\ 2506}# (#{wrap-marks\ 673}# #{w1\ 2500}#)) - (#{s1\ 2507}# (#{wrap-subst\ 675}# #{w1\ 2500}#))) - (if (null? #{m1\ 2506}#) - (if (null? #{s1\ 2507}#) - #{w2\ 2501}# - (#{make-wrap\ 671}# - (#{wrap-marks\ 673}# #{w2\ 2501}#) - (#{smart-append\ 715}# - #{s1\ 2507}# - (#{wrap-subst\ 675}# #{w2\ 2501}#)))) - (#{make-wrap\ 671}# - (#{smart-append\ 715}# - #{m1\ 2506}# - (#{wrap-marks\ 673}# #{w2\ 2501}#)) - (#{smart-append\ 715}# - #{s1\ 2507}# - (#{wrap-subst\ 675}# #{w2\ 2501}#))))))) - (#{smart-append\ 715}# - (lambda (#{m1\ 2508}# #{m2\ 2509}#) - (if (null? #{m2\ 2509}#) - #{m1\ 2508}# - (append #{m1\ 2508}# #{m2\ 2509}#)))) - (#{make-binding-wrap\ 713}# - (lambda (#{ids\ 2512}# #{labels\ 2513}# #{w\ 2514}#) - (if (null? #{ids\ 2512}#) - #{w\ 2514}# - (#{make-wrap\ 671}# - (#{wrap-marks\ 673}# #{w\ 2514}#) - (cons (let ((#{labelvec\ 2519}# - (list->vector #{labels\ 2513}#))) - (let ((#{n\ 2521}# - (vector-length #{labelvec\ 2519}#))) - (let ((#{symnamevec\ 2524}# - (make-vector #{n\ 2521}#)) - (#{marksvec\ 2525}# - (make-vector #{n\ 2521}#))) + (#{join-marks\ 420}# + (lambda (#{m1\ 2326}# #{m2\ 2327}#) + (#{smart-append\ 416}# #{m1\ 2326}# #{m2\ 2327}#))) + (#{join-wraps\ 418}# + (lambda (#{w1\ 2330}# #{w2\ 2331}#) + (let ((#{m1\ 2336}# (#{wrap-marks\ 374}# #{w1\ 2330}#)) + (#{s1\ 2337}# (#{wrap-subst\ 376}# #{w1\ 2330}#))) + (if (null? #{m1\ 2336}#) + (if (null? #{s1\ 2337}#) + #{w2\ 2331}# + (#{make-wrap\ 372}# + (#{wrap-marks\ 374}# #{w2\ 2331}#) + (#{smart-append\ 416}# + #{s1\ 2337}# + (#{wrap-subst\ 376}# #{w2\ 2331}#)))) + (#{make-wrap\ 372}# + (#{smart-append\ 416}# + #{m1\ 2336}# + (#{wrap-marks\ 374}# #{w2\ 2331}#)) + (#{smart-append\ 416}# + #{s1\ 2337}# + (#{wrap-subst\ 376}# #{w2\ 2331}#))))))) + (#{smart-append\ 416}# + (lambda (#{m1\ 2338}# #{m2\ 2339}#) + (if (null? #{m2\ 2339}#) + #{m1\ 2338}# + (append #{m1\ 2338}# #{m2\ 2339}#)))) + (#{make-binding-wrap\ 414}# + (lambda (#{ids\ 2342}# #{labels\ 2343}# #{w\ 2344}#) + (if (null? #{ids\ 2342}#) + #{w\ 2344}# + (#{make-wrap\ 372}# + (#{wrap-marks\ 374}# #{w\ 2344}#) + (cons (let ((#{labelvec\ 2349}# + (list->vector #{labels\ 2343}#))) + (let ((#{n\ 2351}# + (vector-length #{labelvec\ 2349}#))) + (let ((#{symnamevec\ 2354}# + (make-vector #{n\ 2351}#)) + (#{marksvec\ 2355}# + (make-vector #{n\ 2351}#))) (begin - (letrec ((#{f\ 2529}# - (lambda (#{ids\ 2530}# #{i\ 2531}#) - (if (not (null? #{ids\ 2530}#)) + (letrec ((#{f\ 2359}# + (lambda (#{ids\ 2360}# #{i\ 2361}#) + (if (not (null? #{ids\ 2360}#)) (call-with-values (lambda () - (#{id-sym-name&marks\ 669}# - (car #{ids\ 2530}#) - #{w\ 2514}#)) - (lambda (#{symname\ 2532}# - #{marks\ 2533}#) + (#{id-sym-name&marks\ 370}# + (car #{ids\ 2360}#) + #{w\ 2344}#)) + (lambda (#{symname\ 2362}# + #{marks\ 2363}#) (begin (vector-set! - #{symnamevec\ 2524}# - #{i\ 2531}# - #{symname\ 2532}#) + #{symnamevec\ 2354}# + #{i\ 2361}# + #{symname\ 2362}#) (vector-set! - #{marksvec\ 2525}# - #{i\ 2531}# - #{marks\ 2533}#) - (#{f\ 2529}# - (cdr #{ids\ 2530}#) - (#{fx+\ 567}# - #{i\ 2531}# + #{marksvec\ 2355}# + #{i\ 2361}# + #{marks\ 2363}#) + (#{f\ 2359}# + (cdr #{ids\ 2360}#) + (#{fx+\ 268}# + #{i\ 2361}# 1))))))))) - (#{f\ 2529}# #{ids\ 2512}# 0)) - (#{make-ribcage\ 687}# - #{symnamevec\ 2524}# - #{marksvec\ 2525}# - #{labelvec\ 2519}#))))) - (#{wrap-subst\ 675}# #{w\ 2514}#)))))) - (#{extend-ribcage!\ 711}# - (lambda (#{ribcage\ 2536}# #{id\ 2537}# #{label\ 2538}#) + (#{f\ 2359}# #{ids\ 2342}# 0)) + (#{make-ribcage\ 388}# + #{symnamevec\ 2354}# + #{marksvec\ 2355}# + #{labelvec\ 2349}#))))) + (#{wrap-subst\ 376}# #{w\ 2344}#)))))) + (#{extend-ribcage!\ 412}# + (lambda (#{ribcage\ 2366}# #{id\ 2367}# #{label\ 2368}#) (begin - (#{set-ribcage-symnames!\ 697}# - #{ribcage\ 2536}# - (cons (#{syntax-object-expression\ 632}# #{id\ 2537}#) - (#{ribcage-symnames\ 691}# #{ribcage\ 2536}#))) - (#{set-ribcage-marks!\ 699}# - #{ribcage\ 2536}# - (cons (#{wrap-marks\ 673}# - (#{syntax-object-wrap\ 634}# #{id\ 2537}#)) - (#{ribcage-marks\ 693}# #{ribcage\ 2536}#))) - (#{set-ribcage-labels!\ 701}# - #{ribcage\ 2536}# - (cons #{label\ 2538}# - (#{ribcage-labels\ 695}# #{ribcage\ 2536}#)))))) - (#{anti-mark\ 707}# - (lambda (#{w\ 2542}#) - (#{make-wrap\ 671}# - (cons #f (#{wrap-marks\ 673}# #{w\ 2542}#)) + (#{set-ribcage-symnames!\ 398}# + #{ribcage\ 2366}# + (cons (#{syntax-object-expression\ 333}# #{id\ 2367}#) + (#{ribcage-symnames\ 392}# #{ribcage\ 2366}#))) + (#{set-ribcage-marks!\ 400}# + #{ribcage\ 2366}# + (cons (#{wrap-marks\ 374}# + (#{syntax-object-wrap\ 335}# #{id\ 2367}#)) + (#{ribcage-marks\ 394}# #{ribcage\ 2366}#))) + (#{set-ribcage-labels!\ 402}# + #{ribcage\ 2366}# + (cons #{label\ 2368}# + (#{ribcage-labels\ 396}# #{ribcage\ 2366}#)))))) + (#{anti-mark\ 408}# + (lambda (#{w\ 2372}#) + (#{make-wrap\ 372}# + (cons #f (#{wrap-marks\ 374}# #{w\ 2372}#)) (cons 'shift - (#{wrap-subst\ 675}# #{w\ 2542}#))))) - (#{set-ribcage-labels!\ 701}# - (lambda (#{x\ 2545}# #{update\ 2546}#) - (vector-set! #{x\ 2545}# 3 #{update\ 2546}#))) - (#{set-ribcage-marks!\ 699}# - (lambda (#{x\ 2549}# #{update\ 2550}#) - (vector-set! #{x\ 2549}# 2 #{update\ 2550}#))) - (#{set-ribcage-symnames!\ 697}# - (lambda (#{x\ 2553}# #{update\ 2554}#) - (vector-set! #{x\ 2553}# 1 #{update\ 2554}#))) - (#{ribcage-labels\ 695}# - (lambda (#{x\ 2557}#) (vector-ref #{x\ 2557}# 3))) - (#{ribcage-marks\ 693}# - (lambda (#{x\ 2559}#) (vector-ref #{x\ 2559}# 2))) - (#{ribcage-symnames\ 691}# - (lambda (#{x\ 2561}#) (vector-ref #{x\ 2561}# 1))) - (#{ribcage?\ 689}# - (lambda (#{x\ 2563}#) - (if (vector? #{x\ 2563}#) - (if (= (vector-length #{x\ 2563}#) 4) - (eq? (vector-ref #{x\ 2563}# 0) (quote ribcage)) + (#{wrap-subst\ 376}# #{w\ 2372}#))))) + (#{set-ribcage-labels!\ 402}# + (lambda (#{x\ 2375}# #{update\ 2376}#) + (vector-set! #{x\ 2375}# 3 #{update\ 2376}#))) + (#{set-ribcage-marks!\ 400}# + (lambda (#{x\ 2379}# #{update\ 2380}#) + (vector-set! #{x\ 2379}# 2 #{update\ 2380}#))) + (#{set-ribcage-symnames!\ 398}# + (lambda (#{x\ 2383}# #{update\ 2384}#) + (vector-set! #{x\ 2383}# 1 #{update\ 2384}#))) + (#{ribcage-labels\ 396}# + (lambda (#{x\ 2387}#) (vector-ref #{x\ 2387}# 3))) + (#{ribcage-marks\ 394}# + (lambda (#{x\ 2389}#) (vector-ref #{x\ 2389}# 2))) + (#{ribcage-symnames\ 392}# + (lambda (#{x\ 2391}#) (vector-ref #{x\ 2391}# 1))) + (#{ribcage?\ 390}# + (lambda (#{x\ 2393}#) + (if (vector? #{x\ 2393}#) + (if (= (vector-length #{x\ 2393}#) 4) + (eq? (vector-ref #{x\ 2393}# 0) (quote ribcage)) #f) #f))) - (#{make-ribcage\ 687}# - (lambda (#{symnames\ 2568}# - #{marks\ 2569}# - #{labels\ 2570}#) + (#{make-ribcage\ 388}# + (lambda (#{symnames\ 2398}# + #{marks\ 2399}# + #{labels\ 2400}#) (vector 'ribcage - #{symnames\ 2568}# - #{marks\ 2569}# - #{labels\ 2570}#))) - (#{gen-labels\ 684}# - (lambda (#{ls\ 2574}#) - (if (null? #{ls\ 2574}#) + #{symnames\ 2398}# + #{marks\ 2399}# + #{labels\ 2400}#))) + (#{gen-labels\ 385}# + (lambda (#{ls\ 2404}#) + (if (null? #{ls\ 2404}#) '() - (cons (#{gen-label\ 682}#) - (#{gen-labels\ 684}# (cdr #{ls\ 2574}#)))))) - (#{gen-label\ 682}# + (cons (#{gen-label\ 383}#) + (#{gen-labels\ 385}# (cdr #{ls\ 2404}#)))))) + (#{gen-label\ 383}# (lambda () (symbol->string (gensym "i")))) - (#{wrap-subst\ 675}# cdr) - (#{wrap-marks\ 673}# car) - (#{make-wrap\ 671}# cons) - (#{id-sym-name&marks\ 669}# - (lambda (#{x\ 2576}# #{w\ 2577}#) - (if (#{syntax-object?\ 630}# #{x\ 2576}#) + (#{wrap-subst\ 376}# cdr) + (#{wrap-marks\ 374}# car) + (#{make-wrap\ 372}# cons) + (#{id-sym-name&marks\ 370}# + (lambda (#{x\ 2406}# #{w\ 2407}#) + (if (#{syntax-object?\ 331}# #{x\ 2406}#) (values - (#{syntax-object-expression\ 632}# #{x\ 2576}#) - (#{join-marks\ 719}# - (#{wrap-marks\ 673}# #{w\ 2577}#) - (#{wrap-marks\ 673}# - (#{syntax-object-wrap\ 634}# #{x\ 2576}#)))) + (#{syntax-object-expression\ 333}# #{x\ 2406}#) + (#{join-marks\ 420}# + (#{wrap-marks\ 374}# #{w\ 2407}#) + (#{wrap-marks\ 374}# + (#{syntax-object-wrap\ 335}# #{x\ 2406}#)))) (values - #{x\ 2576}# - (#{wrap-marks\ 673}# #{w\ 2577}#))))) - (#{id?\ 666}# - (lambda (#{x\ 2580}#) - (if (symbol? #{x\ 2580}#) + #{x\ 2406}# + (#{wrap-marks\ 374}# #{w\ 2407}#))))) + (#{id?\ 367}# + (lambda (#{x\ 2410}#) + (if (symbol? #{x\ 2410}#) #t - (if (#{syntax-object?\ 630}# #{x\ 2580}#) + (if (#{syntax-object?\ 331}# #{x\ 2410}#) (symbol? - (#{syntax-object-expression\ 632}# #{x\ 2580}#)) + (#{syntax-object-expression\ 333}# #{x\ 2410}#)) #f)))) - (#{nonsymbol-id?\ 664}# - (lambda (#{x\ 2587}#) - (if (#{syntax-object?\ 630}# #{x\ 2587}#) + (#{nonsymbol-id?\ 365}# + (lambda (#{x\ 2417}#) + (if (#{syntax-object?\ 331}# #{x\ 2417}#) (symbol? - (#{syntax-object-expression\ 632}# #{x\ 2587}#)) + (#{syntax-object-expression\ 333}# #{x\ 2417}#)) #f))) - (#{global-extend\ 662}# - (lambda (#{type\ 2591}# #{sym\ 2592}# #{val\ 2593}#) - (#{put-global-definition-hook\ 580}# - #{sym\ 2592}# - #{type\ 2591}# - #{val\ 2593}#))) - (#{lookup\ 660}# - (lambda (#{x\ 2597}# #{r\ 2598}# #{mod\ 2599}#) - (let ((#{t\ 2605}# (assq #{x\ 2597}# #{r\ 2598}#))) - (if #{t\ 2605}# - (cdr #{t\ 2605}#) - (if (symbol? #{x\ 2597}#) - (let ((#{t\ 2611}# - (#{get-global-definition-hook\ 582}# - #{x\ 2597}# - #{mod\ 2599}#))) - (if #{t\ 2611}# #{t\ 2611}# (quote (global)))) + (#{global-extend\ 363}# + (lambda (#{type\ 2421}# #{sym\ 2422}# #{val\ 2423}#) + (#{put-global-definition-hook\ 281}# + #{sym\ 2422}# + #{type\ 2421}# + #{val\ 2423}#))) + (#{lookup\ 361}# + (lambda (#{x\ 2427}# #{r\ 2428}# #{mod\ 2429}#) + (let ((#{t\ 2435}# (assq #{x\ 2427}# #{r\ 2428}#))) + (if #{t\ 2435}# + (cdr #{t\ 2435}#) + (if (symbol? #{x\ 2427}#) + (let ((#{t\ 2441}# + (#{get-global-definition-hook\ 283}# + #{x\ 2427}# + #{mod\ 2429}#))) + (if #{t\ 2441}# #{t\ 2441}# (quote (global)))) '(displaced-lexical)))))) - (#{macros-only-env\ 658}# - (lambda (#{r\ 2616}#) - (if (null? #{r\ 2616}#) + (#{macros-only-env\ 359}# + (lambda (#{r\ 2446}#) + (if (null? #{r\ 2446}#) '() - (let ((#{a\ 2619}# (car #{r\ 2616}#))) - (if (eq? (cadr #{a\ 2619}#) (quote macro)) - (cons #{a\ 2619}# - (#{macros-only-env\ 658}# (cdr #{r\ 2616}#))) - (#{macros-only-env\ 658}# (cdr #{r\ 2616}#))))))) - (#{extend-var-env\ 656}# - (lambda (#{labels\ 2620}# #{vars\ 2621}# #{r\ 2622}#) - (if (null? #{labels\ 2620}#) - #{r\ 2622}# - (#{extend-var-env\ 656}# - (cdr #{labels\ 2620}#) - (cdr #{vars\ 2621}#) - (cons (cons (car #{labels\ 2620}#) - (cons (quote lexical) (car #{vars\ 2621}#))) - #{r\ 2622}#))))) - (#{extend-env\ 654}# - (lambda (#{labels\ 2627}# #{bindings\ 2628}# #{r\ 2629}#) - (if (null? #{labels\ 2627}#) - #{r\ 2629}# - (#{extend-env\ 654}# - (cdr #{labels\ 2627}#) - (cdr #{bindings\ 2628}#) - (cons (cons (car #{labels\ 2627}#) - (car #{bindings\ 2628}#)) - #{r\ 2629}#))))) - (#{binding-value\ 651}# cdr) - (#{binding-type\ 649}# car) - (#{source-annotation\ 645}# - (lambda (#{x\ 2633}#) - (if (#{syntax-object?\ 630}# #{x\ 2633}#) - (#{source-annotation\ 645}# - (#{syntax-object-expression\ 632}# #{x\ 2633}#)) - (if (pair? #{x\ 2633}#) - (let ((#{props\ 2640}# (source-properties #{x\ 2633}#))) - (if (pair? #{props\ 2640}#) #{props\ 2640}# #f)) + (let ((#{a\ 2449}# (car #{r\ 2446}#))) + (if (eq? (cadr #{a\ 2449}#) (quote macro)) + (cons #{a\ 2449}# + (#{macros-only-env\ 359}# (cdr #{r\ 2446}#))) + (#{macros-only-env\ 359}# (cdr #{r\ 2446}#))))))) + (#{extend-var-env\ 357}# + (lambda (#{labels\ 2450}# #{vars\ 2451}# #{r\ 2452}#) + (if (null? #{labels\ 2450}#) + #{r\ 2452}# + (#{extend-var-env\ 357}# + (cdr #{labels\ 2450}#) + (cdr #{vars\ 2451}#) + (cons (cons (car #{labels\ 2450}#) + (cons (quote lexical) (car #{vars\ 2451}#))) + #{r\ 2452}#))))) + (#{extend-env\ 355}# + (lambda (#{labels\ 2457}# #{bindings\ 2458}# #{r\ 2459}#) + (if (null? #{labels\ 2457}#) + #{r\ 2459}# + (#{extend-env\ 355}# + (cdr #{labels\ 2457}#) + (cdr #{bindings\ 2458}#) + (cons (cons (car #{labels\ 2457}#) + (car #{bindings\ 2458}#)) + #{r\ 2459}#))))) + (#{binding-value\ 352}# cdr) + (#{binding-type\ 350}# car) + (#{source-annotation\ 346}# + (lambda (#{x\ 2463}#) + (if (#{syntax-object?\ 331}# #{x\ 2463}#) + (#{source-annotation\ 346}# + (#{syntax-object-expression\ 333}# #{x\ 2463}#)) + (if (pair? #{x\ 2463}#) + (let ((#{props\ 2470}# (source-properties #{x\ 2463}#))) + (if (pair? #{props\ 2470}#) #{props\ 2470}# #f)) #f)))) - (#{set-syntax-object-module!\ 642}# - (lambda (#{x\ 2642}# #{update\ 2643}#) - (vector-set! #{x\ 2642}# 3 #{update\ 2643}#))) - (#{set-syntax-object-wrap!\ 640}# - (lambda (#{x\ 2646}# #{update\ 2647}#) - (vector-set! #{x\ 2646}# 2 #{update\ 2647}#))) - (#{set-syntax-object-expression!\ 638}# - (lambda (#{x\ 2650}# #{update\ 2651}#) - (vector-set! #{x\ 2650}# 1 #{update\ 2651}#))) - (#{syntax-object-module\ 636}# - (lambda (#{x\ 2654}#) (vector-ref #{x\ 2654}# 3))) - (#{syntax-object-wrap\ 634}# - (lambda (#{x\ 2656}#) (vector-ref #{x\ 2656}# 2))) - (#{syntax-object-expression\ 632}# - (lambda (#{x\ 2658}#) (vector-ref #{x\ 2658}# 1))) - (#{syntax-object?\ 630}# - (lambda (#{x\ 2660}#) - (if (vector? #{x\ 2660}#) - (if (= (vector-length #{x\ 2660}#) 4) - (eq? (vector-ref #{x\ 2660}# 0) + (#{set-syntax-object-module!\ 343}# + (lambda (#{x\ 2472}# #{update\ 2473}#) + (vector-set! #{x\ 2472}# 3 #{update\ 2473}#))) + (#{set-syntax-object-wrap!\ 341}# + (lambda (#{x\ 2476}# #{update\ 2477}#) + (vector-set! #{x\ 2476}# 2 #{update\ 2477}#))) + (#{set-syntax-object-expression!\ 339}# + (lambda (#{x\ 2480}# #{update\ 2481}#) + (vector-set! #{x\ 2480}# 1 #{update\ 2481}#))) + (#{syntax-object-module\ 337}# + (lambda (#{x\ 2484}#) (vector-ref #{x\ 2484}# 3))) + (#{syntax-object-wrap\ 335}# + (lambda (#{x\ 2486}#) (vector-ref #{x\ 2486}# 2))) + (#{syntax-object-expression\ 333}# + (lambda (#{x\ 2488}#) (vector-ref #{x\ 2488}# 1))) + (#{syntax-object?\ 331}# + (lambda (#{x\ 2490}#) + (if (vector? #{x\ 2490}#) + (if (= (vector-length #{x\ 2490}#) 4) + (eq? (vector-ref #{x\ 2490}# 0) 'syntax-object) #f) #f))) - (#{make-syntax-object\ 628}# - (lambda (#{expression\ 2665}# - #{wrap\ 2666}# - #{module\ 2667}#) + (#{make-syntax-object\ 329}# + (lambda (#{expression\ 2495}# + #{wrap\ 2496}# + #{module\ 2497}#) (vector 'syntax-object - #{expression\ 2665}# - #{wrap\ 2666}# - #{module\ 2667}#))) - (#{build-letrec\ 624}# - (lambda (#{src\ 2671}# - #{ids\ 2672}# - #{vars\ 2673}# - #{val-exps\ 2674}# - #{body-exp\ 2675}#) - (if (null? #{vars\ 2673}#) - #{body-exp\ 2675}# - (let ((#{atom-key\ 2683}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2683}# (quote (c))) + #{expression\ 2495}# + #{wrap\ 2496}# + #{module\ 2497}#))) + (#{build-letrec\ 325}# + (lambda (#{src\ 2501}# + #{ids\ 2502}# + #{vars\ 2503}# + #{val-exps\ 2504}# + #{body-exp\ 2505}#) + (if (null? #{vars\ 2503}#) + #{body-exp\ 2505}# + (let ((#{atom-key\ 2513}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2513}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 604}# - #{ids\ 2672}# - #{val-exps\ 2674}#) - ((@ (language tree-il) make-letrec) - #{src\ 2671}# - #{ids\ 2672}# - #{vars\ 2673}# - #{val-exps\ 2674}# - #{body-exp\ 2675}#)) - (#{decorate-source\ 584}# + #{maybe-name-value!\ 305}# + #{ids\ 2502}# + #{val-exps\ 2504}#) + (#{make-letrec\ 264}# + #{src\ 2501}# + #{ids\ 2502}# + #{vars\ 2503}# + #{val-exps\ 2504}# + #{body-exp\ 2505}#)) + (#{decorate-source\ 285}# (list 'letrec - (map list #{vars\ 2673}# #{val-exps\ 2674}#) - #{body-exp\ 2675}#) - #{src\ 2671}#)))))) - (#{build-named-let\ 622}# - (lambda (#{src\ 2687}# - #{ids\ 2688}# - #{vars\ 2689}# - #{val-exps\ 2690}# - #{body-exp\ 2691}#) - (let ((#{f\ 2701}# (car #{vars\ 2689}#)) - (#{f-name\ 2702}# (car #{ids\ 2688}#)) - (#{vars\ 2703}# (cdr #{vars\ 2689}#)) - (#{ids\ 2704}# (cdr #{ids\ 2688}#))) - (let ((#{atom-key\ 2707}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2707}# (quote (c))) - (let ((#{proc\ 2710}# - (#{build-simple-lambda\ 608}# - #{src\ 2687}# - #{ids\ 2704}# + (map list #{vars\ 2503}# #{val-exps\ 2504}#) + #{body-exp\ 2505}#) + #{src\ 2501}#)))))) + (#{build-named-let\ 323}# + (lambda (#{src\ 2517}# + #{ids\ 2518}# + #{vars\ 2519}# + #{val-exps\ 2520}# + #{body-exp\ 2521}#) + (let ((#{f\ 2531}# (car #{vars\ 2519}#)) + (#{f-name\ 2532}# (car #{ids\ 2518}#)) + (#{vars\ 2533}# (cdr #{vars\ 2519}#)) + (#{ids\ 2534}# (cdr #{ids\ 2518}#))) + (let ((#{atom-key\ 2537}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2537}# (quote (c))) + (let ((#{proc\ 2540}# + (#{build-simple-lambda\ 309}# + #{src\ 2517}# + #{ids\ 2534}# #f - #{vars\ 2703}# + #{vars\ 2533}# '() - #{body-exp\ 2691}#))) + #{body-exp\ 2521}#))) (begin - (#{maybe-name-value!\ 604}# - #{f-name\ 2702}# - #{proc\ 2710}#) + (#{maybe-name-value!\ 305}# + #{f-name\ 2532}# + #{proc\ 2540}#) (for-each - #{maybe-name-value!\ 604}# - #{ids\ 2704}# - #{val-exps\ 2690}#) - ((@ (language tree-il) make-letrec) - #{src\ 2687}# - (list #{f-name\ 2702}#) - (list #{f\ 2701}#) - (list #{proc\ 2710}#) - (#{build-application\ 588}# - #{src\ 2687}# - (#{build-lexical-reference\ 594}# - 'fun - #{src\ 2687}# - #{f-name\ 2702}# - #{f\ 2701}#) - #{val-exps\ 2690}#)))) - (#{decorate-source\ 584}# + #{maybe-name-value!\ 305}# + #{ids\ 2534}# + #{val-exps\ 2520}#) + (#{make-letrec\ 264}# + #{src\ 2517}# + (list #{f-name\ 2532}#) + (list #{f\ 2531}#) + (list #{proc\ 2540}#) + (#{build-application\ 289}# + #{src\ 2517}# + (#{build-lexical-reference\ 295}# + 'fun + #{src\ 2517}# + #{f-name\ 2532}# + #{f\ 2531}#) + #{val-exps\ 2520}#)))) + (#{decorate-source\ 285}# (list 'letrec - (list (list #{f\ 2701}# + (list (list #{f\ 2531}# (list 'lambda - #{vars\ 2703}# - #{body-exp\ 2691}#))) - (cons #{f\ 2701}# #{val-exps\ 2690}#)) - #{src\ 2687}#)))))) - (#{build-let\ 620}# - (lambda (#{src\ 2713}# - #{ids\ 2714}# - #{vars\ 2715}# - #{val-exps\ 2716}# - #{body-exp\ 2717}#) - (if (null? #{vars\ 2715}#) - #{body-exp\ 2717}# - (let ((#{atom-key\ 2725}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2725}# (quote (c))) + #{vars\ 2533}# + #{body-exp\ 2521}#))) + (cons #{f\ 2531}# #{val-exps\ 2520}#)) + #{src\ 2517}#)))))) + (#{build-let\ 321}# + (lambda (#{src\ 2543}# + #{ids\ 2544}# + #{vars\ 2545}# + #{val-exps\ 2546}# + #{body-exp\ 2547}#) + (if (null? #{vars\ 2545}#) + #{body-exp\ 2547}# + (let ((#{atom-key\ 2555}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2555}# (quote (c))) (begin (for-each - #{maybe-name-value!\ 604}# - #{ids\ 2714}# - #{val-exps\ 2716}#) - ((@ (language tree-il) make-let) - #{src\ 2713}# - #{ids\ 2714}# - #{vars\ 2715}# - #{val-exps\ 2716}# - #{body-exp\ 2717}#)) - (#{decorate-source\ 584}# + #{maybe-name-value!\ 305}# + #{ids\ 2544}# + #{val-exps\ 2546}#) + (#{make-let\ 262}# + #{src\ 2543}# + #{ids\ 2544}# + #{vars\ 2545}# + #{val-exps\ 2546}# + #{body-exp\ 2547}#)) + (#{decorate-source\ 285}# (list 'let - (map list #{vars\ 2715}# #{val-exps\ 2716}#) - #{body-exp\ 2717}#) - #{src\ 2713}#)))))) - (#{build-sequence\ 618}# - (lambda (#{src\ 2729}# #{exps\ 2730}#) - (if (null? (cdr #{exps\ 2730}#)) - (car #{exps\ 2730}#) - (let ((#{atom-key\ 2735}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2735}# (quote (c))) - ((@ (language tree-il) make-sequence) - #{src\ 2729}# - #{exps\ 2730}#) - (#{decorate-source\ 584}# - (cons (quote begin) #{exps\ 2730}#) - #{src\ 2729}#)))))) - (#{build-data\ 616}# - (lambda (#{src\ 2739}# #{exp\ 2740}#) - (let ((#{atom-key\ 2745}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2745}# (quote (c))) - ((@ (language tree-il) make-const) - #{src\ 2739}# - #{exp\ 2740}#) - (#{decorate-source\ 584}# - (if (if (self-evaluating? #{exp\ 2740}#) - (not (vector? #{exp\ 2740}#)) + (map list #{vars\ 2545}# #{val-exps\ 2546}#) + #{body-exp\ 2547}#) + #{src\ 2543}#)))))) + (#{build-sequence\ 319}# + (lambda (#{src\ 2559}# #{exps\ 2560}#) + (if (null? (cdr #{exps\ 2560}#)) + (car #{exps\ 2560}#) + (let ((#{atom-key\ 2565}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2565}# (quote (c))) + (#{make-sequence\ 256}# + #{src\ 2559}# + #{exps\ 2560}#) + (#{decorate-source\ 285}# + (cons (quote begin) #{exps\ 2560}#) + #{src\ 2559}#)))))) + (#{build-data\ 317}# + (lambda (#{src\ 2569}# #{exp\ 2570}#) + (let ((#{atom-key\ 2575}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2575}# (quote (c))) + (#{make-const\ 234}# #{src\ 2569}# #{exp\ 2570}#) + (#{decorate-source\ 285}# + (if (if (self-evaluating? #{exp\ 2570}#) + (not (vector? #{exp\ 2570}#)) #f) - #{exp\ 2740}# - (list (quote quote) #{exp\ 2740}#)) - #{src\ 2739}#))))) - (#{build-primref\ 614}# - (lambda (#{src\ 2750}# #{name\ 2751}#) + #{exp\ 2570}# + (list (quote quote) #{exp\ 2570}#)) + #{src\ 2569}#))))) + (#{build-primref\ 315}# + (lambda (#{src\ 2580}# #{name\ 2581}#) (if (equal? (module-name (current-module)) '(guile)) - (let ((#{atom-key\ 2756}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2756}# (quote (c))) - ((@ (language tree-il) make-toplevel-ref) - #{src\ 2750}# - #{name\ 2751}#) - (#{decorate-source\ 584}# - #{name\ 2751}# - #{src\ 2750}#))) - (let ((#{atom-key\ 2761}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2761}# (quote (c))) - ((@ (language tree-il) make-module-ref) - #{src\ 2750}# - '(guile) - #{name\ 2751}# - #f) - (#{decorate-source\ 584}# - (list (quote @@) (quote (guile)) #{name\ 2751}#) - #{src\ 2750}#)))))) - (#{build-lambda-case\ 612}# - (lambda (#{src\ 2765}# - #{req\ 2766}# - #{opt\ 2767}# - #{rest\ 2768}# - #{kw\ 2769}# - #{inits\ 2770}# - #{vars\ 2771}# - #{body\ 2772}# - #{else-case\ 2773}#) - (let ((#{atom-key\ 2785}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2785}# (quote (c))) - ((@ (language tree-il) make-lambda-case) - #{src\ 2765}# - #{req\ 2766}# - #{opt\ 2767}# - #{rest\ 2768}# - #{kw\ 2769}# - #{inits\ 2770}# - #{vars\ 2771}# - #{body\ 2772}# - #{else-case\ 2773}#) - (let ((#{nreq\ 2790}# (length #{req\ 2766}#))) - (let ((#{nopt\ 2792}# - (if #{opt\ 2767}# (length #{opt\ 2767}#) 0))) - (let ((#{rest-idx\ 2794}# - (if #{rest\ 2768}# - (+ #{nreq\ 2790}# #{nopt\ 2792}#) + (let ((#{atom-key\ 2586}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2586}# (quote (c))) + (#{make-toplevel-ref\ 246}# + #{src\ 2580}# + #{name\ 2581}#) + (#{decorate-source\ 285}# + #{name\ 2581}# + #{src\ 2580}#))) + (let ((#{atom-key\ 2591}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2591}# (quote (c))) + (#{make-module-ref\ 242}# + #{src\ 2580}# + '(guile) + #{name\ 2581}# + #f) + (#{decorate-source\ 285}# + (list (quote @@) (quote (guile)) #{name\ 2581}#) + #{src\ 2580}#)))))) + (#{build-lambda-case\ 313}# + (lambda (#{src\ 2595}# + #{req\ 2596}# + #{opt\ 2597}# + #{rest\ 2598}# + #{kw\ 2599}# + #{inits\ 2600}# + #{vars\ 2601}# + #{body\ 2602}# + #{else-case\ 2603}#) + (let ((#{atom-key\ 2615}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2615}# (quote (c))) + (#{make-lambda-case\ 260}# + #{src\ 2595}# + #{req\ 2596}# + #{opt\ 2597}# + #{rest\ 2598}# + #{kw\ 2599}# + #{inits\ 2600}# + #{vars\ 2601}# + #{body\ 2602}# + #{else-case\ 2603}#) + (let ((#{nreq\ 2620}# (length #{req\ 2596}#))) + (let ((#{nopt\ 2622}# + (if #{opt\ 2597}# (length #{opt\ 2597}#) 0))) + (let ((#{rest-idx\ 2624}# + (if #{rest\ 2598}# + (+ #{nreq\ 2620}# #{nopt\ 2622}#) #f))) - (let ((#{allow-other-keys?\ 2798}# - (if #{kw\ 2769}# (car #{kw\ 2769}#) #f))) - (let ((#{kw-indices\ 2800}# - (map (lambda (#{x\ 2801}#) - (cons (car #{x\ 2801}#) + (let ((#{allow-other-keys?\ 2628}# + (if #{kw\ 2599}# (car #{kw\ 2599}#) #f))) + (let ((#{kw-indices\ 2630}# + (map (lambda (#{x\ 2631}#) + (cons (car #{x\ 2631}#) (list-index - #{vars\ 2771}# - (caddr #{x\ 2801}#)))) - (if #{kw\ 2769}# - (cdr #{kw\ 2769}#) + #{vars\ 2601}# + (caddr #{x\ 2631}#)))) + (if #{kw\ 2599}# + (cdr #{kw\ 2599}#) '())))) - (let ((#{nargs\ 2804}# + (let ((#{nargs\ 2634}# (apply max - (+ #{nreq\ 2790}# - #{nopt\ 2792}# - (if #{rest\ 2768}# 1 0)) + (+ #{nreq\ 2620}# + #{nopt\ 2622}# + (if #{rest\ 2598}# 1 0)) (map 1+ (map cdr - #{kw-indices\ 2800}#))))) + #{kw-indices\ 2630}#))))) (begin - (let ((#{t\ 2807}# - (= #{nargs\ 2804}# - (length #{vars\ 2771}#) - (+ #{nreq\ 2790}# - (length #{inits\ 2770}#) - (if #{rest\ 2768}# 1 0))))) - (if #{t\ 2807}# - #{t\ 2807}# + (let ((#{t\ 2637}# + (= #{nargs\ 2634}# + (length #{vars\ 2601}#) + (+ #{nreq\ 2620}# + (length #{inits\ 2600}#) + (if #{rest\ 2598}# 1 0))))) + (if #{t\ 2637}# + #{t\ 2637}# (error "something went wrong" - #{req\ 2766}# - #{opt\ 2767}# - #{rest\ 2768}# - #{kw\ 2769}# - #{inits\ 2770}# - #{vars\ 2771}# - #{nreq\ 2790}# - #{nopt\ 2792}# - #{kw-indices\ 2800}# - #{nargs\ 2804}#))) - (#{decorate-source\ 584}# + #{req\ 2596}# + #{opt\ 2597}# + #{rest\ 2598}# + #{kw\ 2599}# + #{inits\ 2600}# + #{vars\ 2601}# + #{nreq\ 2620}# + #{nopt\ 2622}# + #{kw-indices\ 2630}# + #{nargs\ 2634}#))) + (#{decorate-source\ 285}# (cons (list (append (list-head - #{vars\ 2771}# - #{nreq\ 2790}#) + #{vars\ 2601}# + #{nreq\ 2620}#) (append - (if #{opt\ 2767}# + (if #{opt\ 2597}# (cons #:optional (map list (list-head (list-tail - #{vars\ 2771}# - #{nreq\ 2790}#) - #{nopt\ 2792}#) + #{vars\ 2601}# + #{nreq\ 2620}#) + #{nopt\ 2622}#) (list-head - #{inits\ 2770}# - #{nopt\ 2792}#))) + #{inits\ 2600}# + #{nopt\ 2622}#))) '()) (append - (if #{kw\ 2769}# + (if #{kw\ 2599}# (cons #:key - (map (lambda (#{x\ 2812}# - #{init\ 2813}#) - (list (caddr #{x\ 2812}#) - #{init\ 2813}# - (car #{x\ 2812}#))) - (cdr #{kw\ 2769}#) + (map (lambda (#{x\ 2642}# + #{init\ 2643}#) + (list (caddr #{x\ 2642}#) + #{init\ 2643}# + (car #{x\ 2642}#))) + (cdr #{kw\ 2599}#) (list-tail - #{inits\ 2770}# - #{nopt\ 2792}#))) + #{inits\ 2600}# + #{nopt\ 2622}#))) '()) (append - (if #{allow-other-keys?\ 2798}# + (if #{allow-other-keys?\ 2628}# '(#:allow-other-keys) '()) - (if #{rest\ 2768}# + (if #{rest\ 2598}# (list-ref - #{vars\ 2771}# - #{rest-idx\ 2794}#) + #{vars\ 2601}# + #{rest-idx\ 2624}#) '()))))) - #{body\ 2772}#) - (let ((#{t\ 2818}# - #{else-case\ 2773}#)) - (if #{t\ 2818}# - #{t\ 2818}# + #{body\ 2602}#) + (let ((#{t\ 2648}# + #{else-case\ 2603}#)) + (if #{t\ 2648}# + #{t\ 2648}# '()))) - #{src\ 2765}#)))))))))))) - (#{build-case-lambda\ 610}# - (lambda (#{src\ 2820}# #{meta\ 2821}# #{body\ 2822}#) - (let ((#{atom-key\ 2828}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2828}# (quote (c))) - ((@ (language tree-il) make-lambda) - #{src\ 2820}# - #{meta\ 2821}# - #{body\ 2822}#) - (#{decorate-source\ 584}# - (cons (quote case-lambda*) #{body\ 2822}#) - #{src\ 2820}#))))) - (#{build-simple-lambda\ 608}# - (lambda (#{src\ 2832}# - #{req\ 2833}# - #{rest\ 2834}# - #{vars\ 2835}# - #{meta\ 2836}# - #{exp\ 2837}#) - (let ((#{atom-key\ 2846}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2846}# (quote (c))) - ((@ (language tree-il) make-lambda) - #{src\ 2832}# - #{meta\ 2836}# - ((@ (language tree-il) make-lambda-case) - #{src\ 2832}# - #{req\ 2833}# - #f - #{rest\ 2834}# - #f - '() - #{vars\ 2835}# - #{exp\ 2837}# - #f)) - (#{decorate-source\ 584}# + #{src\ 2595}#)))))))))))) + (#{build-case-lambda\ 311}# + (lambda (#{src\ 2650}# #{meta\ 2651}# #{body\ 2652}#) + (let ((#{atom-key\ 2658}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2658}# (quote (c))) + (#{make-lambda\ 258}# + #{src\ 2650}# + #{meta\ 2651}# + #{body\ 2652}#) + (#{decorate-source\ 285}# + (cons (quote case-lambda*) #{body\ 2652}#) + #{src\ 2650}#))))) + (#{build-simple-lambda\ 309}# + (lambda (#{src\ 2662}# + #{req\ 2663}# + #{rest\ 2664}# + #{vars\ 2665}# + #{meta\ 2666}# + #{exp\ 2667}#) + (let ((#{atom-key\ 2676}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2676}# (quote (c))) + (#{make-lambda\ 258}# + #{src\ 2662}# + #{meta\ 2666}# + (#{make-lambda-case\ 260}# + #{src\ 2662}# + #{req\ 2663}# + #f + #{rest\ 2664}# + #f + '() + #{vars\ 2665}# + #{exp\ 2667}# + #f)) + (#{decorate-source\ 285}# (list 'lambda - (if #{rest\ 2834}# - (apply cons* #{vars\ 2835}#) - #{vars\ 2835}#) - #{exp\ 2837}#) - #{src\ 2832}#))))) - (#{build-global-definition\ 606}# - (lambda (#{source\ 2850}# #{var\ 2851}# #{exp\ 2852}#) - (let ((#{atom-key\ 2858}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2858}# (quote (c))) + (if #{rest\ 2664}# + (apply cons* #{vars\ 2665}#) + #{vars\ 2665}#) + #{exp\ 2667}#) + #{src\ 2662}#))))) + (#{build-global-definition\ 307}# + (lambda (#{source\ 2680}# #{var\ 2681}# #{exp\ 2682}#) + (let ((#{atom-key\ 2688}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2688}# (quote (c))) (begin - (#{maybe-name-value!\ 604}# - #{var\ 2851}# - #{exp\ 2852}#) - ((@ (language tree-il) make-toplevel-define) - #{source\ 2850}# - #{var\ 2851}# - #{exp\ 2852}#)) - (#{decorate-source\ 584}# - (list (quote define) #{var\ 2851}# #{exp\ 2852}#) - #{source\ 2850}#))))) - (#{maybe-name-value!\ 604}# - (lambda (#{name\ 2862}# #{val\ 2863}#) - (if ((@ (language tree-il) lambda?) #{val\ 2863}#) - (let ((#{meta\ 2869}# + (#{maybe-name-value!\ 305}# + #{var\ 2681}# + #{exp\ 2682}#) + (#{make-toplevel-define\ 250}# + #{source\ 2680}# + #{var\ 2681}# + #{exp\ 2682}#)) + (#{decorate-source\ 285}# + (list (quote define) #{var\ 2681}# #{exp\ 2682}#) + #{source\ 2680}#))))) + (#{maybe-name-value!\ 305}# + (lambda (#{name\ 2692}# #{val\ 2693}#) + (if ((@ (language tree-il) lambda?) #{val\ 2693}#) + (let ((#{meta\ 2699}# ((@ (language tree-il) lambda-meta) - #{val\ 2863}#))) - (if (not (assq (quote name) #{meta\ 2869}#)) + #{val\ 2693}#))) + (if (not (assq (quote name) #{meta\ 2699}#)) ((setter (@ (language tree-il) lambda-meta)) - #{val\ 2863}# + #{val\ 2693}# (acons 'name - #{name\ 2862}# - #{meta\ 2869}#))))))) - (#{build-global-assignment\ 602}# - (lambda (#{source\ 2870}# - #{var\ 2871}# - #{exp\ 2872}# - #{mod\ 2873}#) - (#{analyze-variable\ 598}# - #{mod\ 2873}# - #{var\ 2871}# - (lambda (#{mod\ 2878}# #{var\ 2879}# #{public?\ 2880}#) - (let ((#{atom-key\ 2886}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2886}# (quote (c))) - ((@ (language tree-il) make-module-set) - #{source\ 2870}# - #{mod\ 2878}# - #{var\ 2879}# - #{public?\ 2880}# - #{exp\ 2872}#) - (#{decorate-source\ 584}# + #{name\ 2692}# + #{meta\ 2699}#))))))) + (#{build-global-assignment\ 303}# + (lambda (#{source\ 2700}# + #{var\ 2701}# + #{exp\ 2702}# + #{mod\ 2703}#) + (#{analyze-variable\ 299}# + #{mod\ 2703}# + #{var\ 2701}# + (lambda (#{mod\ 2708}# #{var\ 2709}# #{public?\ 2710}#) + (let ((#{atom-key\ 2716}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2716}# (quote (c))) + (#{make-module-set\ 244}# + #{source\ 2700}# + #{mod\ 2708}# + #{var\ 2709}# + #{public?\ 2710}# + #{exp\ 2702}#) + (#{decorate-source\ 285}# (list 'set! - (list (if #{public?\ 2880}# + (list (if #{public?\ 2710}# '@ '@@) - #{mod\ 2878}# - #{var\ 2879}#) - #{exp\ 2872}#) - #{source\ 2870}#)))) - (lambda (#{var\ 2890}#) - (let ((#{atom-key\ 2894}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2894}# (quote (c))) - ((@ (language tree-il) make-toplevel-set) - #{source\ 2870}# - #{var\ 2890}# - #{exp\ 2872}#) - (#{decorate-source\ 584}# - (list (quote set!) #{var\ 2890}# #{exp\ 2872}#) - #{source\ 2870}#))))))) - (#{build-global-reference\ 600}# - (lambda (#{source\ 2898}# #{var\ 2899}# #{mod\ 2900}#) - (#{analyze-variable\ 598}# - #{mod\ 2900}# - #{var\ 2899}# - (lambda (#{mod\ 2904}# #{var\ 2905}# #{public?\ 2906}#) - (let ((#{atom-key\ 2912}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2912}# (quote (c))) - ((@ (language tree-il) make-module-ref) - #{source\ 2898}# - #{mod\ 2904}# - #{var\ 2905}# - #{public?\ 2906}#) - (#{decorate-source\ 584}# - (list (if #{public?\ 2906}# (quote @) (quote @@)) - #{mod\ 2904}# - #{var\ 2905}#) - #{source\ 2898}#)))) - (lambda (#{var\ 2915}#) - (let ((#{atom-key\ 2919}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2919}# (quote (c))) - ((@ (language tree-il) make-toplevel-ref) - #{source\ 2898}# - #{var\ 2915}#) - (#{decorate-source\ 584}# - #{var\ 2915}# - #{source\ 2898}#))))))) - (#{analyze-variable\ 598}# - (lambda (#{mod\ 2922}# - #{var\ 2923}# - #{modref-cont\ 2924}# - #{bare-cont\ 2925}#) - (if (not #{mod\ 2922}#) - (#{bare-cont\ 2925}# #{var\ 2923}#) - (let ((#{kind\ 2932}# (car #{mod\ 2922}#)) - (#{mod\ 2933}# (cdr #{mod\ 2922}#))) - (if (memv #{kind\ 2932}# (quote (public))) - (#{modref-cont\ 2924}# - #{mod\ 2933}# - #{var\ 2923}# + #{mod\ 2708}# + #{var\ 2709}#) + #{exp\ 2702}#) + #{source\ 2700}#)))) + (lambda (#{var\ 2720}#) + (let ((#{atom-key\ 2724}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2724}# (quote (c))) + (#{make-toplevel-set\ 248}# + #{source\ 2700}# + #{var\ 2720}# + #{exp\ 2702}#) + (#{decorate-source\ 285}# + (list (quote set!) #{var\ 2720}# #{exp\ 2702}#) + #{source\ 2700}#))))))) + (#{build-global-reference\ 301}# + (lambda (#{source\ 2728}# #{var\ 2729}# #{mod\ 2730}#) + (#{analyze-variable\ 299}# + #{mod\ 2730}# + #{var\ 2729}# + (lambda (#{mod\ 2734}# #{var\ 2735}# #{public?\ 2736}#) + (let ((#{atom-key\ 2742}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2742}# (quote (c))) + (#{make-module-ref\ 242}# + #{source\ 2728}# + #{mod\ 2734}# + #{var\ 2735}# + #{public?\ 2736}#) + (#{decorate-source\ 285}# + (list (if #{public?\ 2736}# (quote @) (quote @@)) + #{mod\ 2734}# + #{var\ 2735}#) + #{source\ 2728}#)))) + (lambda (#{var\ 2745}#) + (let ((#{atom-key\ 2749}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2749}# (quote (c))) + (#{make-toplevel-ref\ 246}# + #{source\ 2728}# + #{var\ 2745}#) + (#{decorate-source\ 285}# + #{var\ 2745}# + #{source\ 2728}#))))))) + (#{analyze-variable\ 299}# + (lambda (#{mod\ 2752}# + #{var\ 2753}# + #{modref-cont\ 2754}# + #{bare-cont\ 2755}#) + (if (not #{mod\ 2752}#) + (#{bare-cont\ 2755}# #{var\ 2753}#) + (let ((#{kind\ 2762}# (car #{mod\ 2752}#)) + (#{mod\ 2763}# (cdr #{mod\ 2752}#))) + (if (memv #{kind\ 2762}# (quote (public))) + (#{modref-cont\ 2754}# + #{mod\ 2763}# + #{var\ 2753}# #t) - (if (memv #{kind\ 2932}# (quote (private))) + (if (memv #{kind\ 2762}# (quote (private))) (if (not (equal? - #{mod\ 2933}# + #{mod\ 2763}# (module-name (current-module)))) - (#{modref-cont\ 2924}# - #{mod\ 2933}# - #{var\ 2923}# + (#{modref-cont\ 2754}# + #{mod\ 2763}# + #{var\ 2753}# #f) - (#{bare-cont\ 2925}# #{var\ 2923}#)) - (if (memv #{kind\ 2932}# (quote (bare))) - (#{bare-cont\ 2925}# #{var\ 2923}#) - (if (memv #{kind\ 2932}# (quote (hygiene))) + (#{bare-cont\ 2755}# #{var\ 2753}#)) + (if (memv #{kind\ 2762}# (quote (bare))) + (#{bare-cont\ 2755}# #{var\ 2753}#) + (if (memv #{kind\ 2762}# (quote (hygiene))) (if (if (not (equal? - #{mod\ 2933}# + #{mod\ 2763}# (module-name (current-module)))) (module-variable - (resolve-module #{mod\ 2933}#) - #{var\ 2923}#) + (resolve-module #{mod\ 2763}#) + #{var\ 2753}#) #f) - (#{modref-cont\ 2924}# - #{mod\ 2933}# - #{var\ 2923}# + (#{modref-cont\ 2754}# + #{mod\ 2763}# + #{var\ 2753}# #f) - (#{bare-cont\ 2925}# #{var\ 2923}#)) + (#{bare-cont\ 2755}# #{var\ 2753}#)) (syntax-violation #f "bad module kind" - #{var\ 2923}# - #{mod\ 2933}#))))))))) - (#{build-lexical-assignment\ 596}# - (lambda (#{source\ 2941}# - #{name\ 2942}# - #{var\ 2943}# - #{exp\ 2944}#) - (let ((#{atom-key\ 2951}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2951}# (quote (c))) - ((@ (language tree-il) make-lexical-set) - #{source\ 2941}# - #{name\ 2942}# - #{var\ 2943}# - #{exp\ 2944}#) - (#{decorate-source\ 584}# - (list (quote set!) #{var\ 2943}# #{exp\ 2944}#) - #{source\ 2941}#))))) - (#{build-lexical-reference\ 594}# - (lambda (#{type\ 2955}# - #{source\ 2956}# - #{name\ 2957}# - #{var\ 2958}#) - (let ((#{atom-key\ 2965}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2965}# (quote (c))) - ((@ (language tree-il) make-lexical-ref) - #{source\ 2956}# - #{name\ 2957}# - #{var\ 2958}#) - (#{decorate-source\ 584}# - #{var\ 2958}# - #{source\ 2956}#))))) - (#{build-dynlet\ 592}# - (lambda (#{source\ 2968}# - #{fluids\ 2969}# - #{vals\ 2970}# - #{body\ 2971}#) - (let ((#{atom-key\ 2978}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2978}# (quote (c))) - ((@ (language tree-il) make-dynlet) - #{source\ 2968}# - #{fluids\ 2969}# - #{vals\ 2970}# - #{body\ 2971}#) - (#{decorate-source\ 584}# + #{var\ 2753}# + #{mod\ 2763}#))))))))) + (#{build-lexical-assignment\ 297}# + (lambda (#{source\ 2771}# + #{name\ 2772}# + #{var\ 2773}# + #{exp\ 2774}#) + (let ((#{atom-key\ 2781}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2781}# (quote (c))) + (#{make-lexical-set\ 240}# + #{source\ 2771}# + #{name\ 2772}# + #{var\ 2773}# + #{exp\ 2774}#) + (#{decorate-source\ 285}# + (list (quote set!) #{var\ 2773}# #{exp\ 2774}#) + #{source\ 2771}#))))) + (#{build-lexical-reference\ 295}# + (lambda (#{type\ 2785}# + #{source\ 2786}# + #{name\ 2787}# + #{var\ 2788}#) + (let ((#{atom-key\ 2795}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2795}# (quote (c))) + (#{make-lexical-ref\ 238}# + #{source\ 2786}# + #{name\ 2787}# + #{var\ 2788}#) + (#{decorate-source\ 285}# + #{var\ 2788}# + #{source\ 2786}#))))) + (#{build-dynlet\ 293}# + (lambda (#{source\ 2798}# + #{fluids\ 2799}# + #{vals\ 2800}# + #{body\ 2801}#) + (let ((#{atom-key\ 2808}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2808}# (quote (c))) + (#{make-dynlet\ 266}# + #{source\ 2798}# + #{fluids\ 2799}# + #{vals\ 2800}# + #{body\ 2801}#) + (#{decorate-source\ 285}# (list 'with-fluids - (map list #{fluids\ 2969}# #{vals\ 2970}#) - #{body\ 2971}#) - #{source\ 2968}#))))) - (#{build-conditional\ 590}# - (lambda (#{source\ 2982}# - #{test-exp\ 2983}# - #{then-exp\ 2984}# - #{else-exp\ 2985}#) - (let ((#{atom-key\ 2992}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 2992}# (quote (c))) - ((@ (language tree-il) make-conditional) - #{source\ 2982}# - #{test-exp\ 2983}# - #{then-exp\ 2984}# - #{else-exp\ 2985}#) - (#{decorate-source\ 584}# - (if (equal? #{else-exp\ 2985}# (quote (if #f #f))) + (map list #{fluids\ 2799}# #{vals\ 2800}#) + #{body\ 2801}#) + #{source\ 2798}#))))) + (#{build-conditional\ 291}# + (lambda (#{source\ 2812}# + #{test-exp\ 2813}# + #{then-exp\ 2814}# + #{else-exp\ 2815}#) + (let ((#{atom-key\ 2822}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2822}# (quote (c))) + (#{make-conditional\ 252}# + #{source\ 2812}# + #{test-exp\ 2813}# + #{then-exp\ 2814}# + #{else-exp\ 2815}#) + (#{decorate-source\ 285}# + (if (equal? #{else-exp\ 2815}# (quote (if #f #f))) (list 'if - #{test-exp\ 2983}# - #{then-exp\ 2984}#) + #{test-exp\ 2813}# + #{then-exp\ 2814}#) (list 'if - #{test-exp\ 2983}# - #{then-exp\ 2984}# - #{else-exp\ 2985}#)) - #{source\ 2982}#))))) - (#{build-application\ 588}# - (lambda (#{source\ 2997}# - #{fun-exp\ 2998}# - #{arg-exps\ 2999}#) - (let ((#{atom-key\ 3005}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 3005}# (quote (c))) - ((@ (language tree-il) make-application) - #{source\ 2997}# - #{fun-exp\ 2998}# - #{arg-exps\ 2999}#) - (#{decorate-source\ 584}# - (cons #{fun-exp\ 2998}# #{arg-exps\ 2999}#) - #{source\ 2997}#))))) - (#{build-void\ 586}# - (lambda (#{source\ 3009}#) - (let ((#{atom-key\ 3013}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 3013}# (quote (c))) - ((@ (language tree-il) make-void) - #{source\ 3009}#) - (#{decorate-source\ 584}# + #{test-exp\ 2813}# + #{then-exp\ 2814}# + #{else-exp\ 2815}#)) + #{source\ 2812}#))))) + (#{build-application\ 289}# + (lambda (#{source\ 2827}# + #{fun-exp\ 2828}# + #{arg-exps\ 2829}#) + (let ((#{atom-key\ 2835}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2835}# (quote (c))) + (#{make-application\ 254}# + #{source\ 2827}# + #{fun-exp\ 2828}# + #{arg-exps\ 2829}#) + (#{decorate-source\ 285}# + (cons #{fun-exp\ 2828}# #{arg-exps\ 2829}#) + #{source\ 2827}#))))) + (#{build-void\ 287}# + (lambda (#{source\ 2839}#) + (let ((#{atom-key\ 2843}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2843}# (quote (c))) + (#{make-void\ 232}# #{source\ 2839}#) + (#{decorate-source\ 285}# '(if #f #f) - #{source\ 3009}#))))) - (#{decorate-source\ 584}# - (lambda (#{e\ 3016}# #{s\ 3017}#) + #{source\ 2839}#))))) + (#{decorate-source\ 285}# + (lambda (#{e\ 2846}# #{s\ 2847}#) (begin - (if (if (pair? #{e\ 3016}#) #{s\ 3017}# #f) - (set-source-properties! #{e\ 3016}# #{s\ 3017}#)) - #{e\ 3016}#))) - (#{get-global-definition-hook\ 582}# - (lambda (#{symbol\ 3022}# #{module\ 3023}#) + (if (if (pair? #{e\ 2846}#) #{s\ 2847}# #f) + (set-source-properties! #{e\ 2846}# #{s\ 2847}#)) + #{e\ 2846}#))) + (#{get-global-definition-hook\ 283}# + (lambda (#{symbol\ 2852}# #{module\ 2853}#) (begin - (if (if (not #{module\ 3023}#) (current-module) #f) + (if (if (not #{module\ 2853}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol\ 3022}#)) - (let ((#{v\ 3029}# + #{symbol\ 2852}#)) + (let ((#{v\ 2859}# (module-variable - (if #{module\ 3023}# - (resolve-module (cdr #{module\ 3023}#)) + (if #{module\ 2853}# + (resolve-module (cdr #{module\ 2853}#)) (current-module)) - #{symbol\ 3022}#))) - (if #{v\ 3029}# - (if (variable-bound? #{v\ 3029}#) - (let ((#{val\ 3034}# (variable-ref #{v\ 3029}#))) - (if (macro? #{val\ 3034}#) - (if (macro-type #{val\ 3034}#) - (cons (macro-type #{val\ 3034}#) - (macro-binding #{val\ 3034}#)) + #{symbol\ 2852}#))) + (if #{v\ 2859}# + (if (variable-bound? #{v\ 2859}#) + (let ((#{val\ 2864}# (variable-ref #{v\ 2859}#))) + (if (macro? #{val\ 2864}#) + (if (macro-type #{val\ 2864}#) + (cons (macro-type #{val\ 2864}#) + (macro-binding #{val\ 2864}#)) #f) #f)) #f) #f))))) - (#{put-global-definition-hook\ 580}# - (lambda (#{symbol\ 3038}# #{type\ 3039}# #{val\ 3040}#) + (#{put-global-definition-hook\ 281}# + (lambda (#{symbol\ 2868}# #{type\ 2869}# #{val\ 2870}#) (module-define! (current-module) - #{symbol\ 3038}# + #{symbol\ 2868}# (make-syntax-transformer - #{symbol\ 3038}# - #{type\ 3039}# - #{val\ 3040}#)))) - (#{local-eval-hook\ 577}# - (lambda (#{x\ 3044}# #{mod\ 3045}#) + #{symbol\ 2868}# + #{type\ 2869}# + #{val\ 2870}#)))) + (#{local-eval-hook\ 278}# + (lambda (#{x\ 2874}# #{mod\ 2875}#) (primitive-eval (memoize-expression - (let ((#{atom-key\ 3050}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 3050}# (quote (c))) + (let ((#{atom-key\ 2880}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2880}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 3044}#) - #{x\ 3044}#)))))) - (#{top-level-eval-hook\ 575}# - (lambda (#{x\ 3053}# #{mod\ 3054}#) + #{x\ 2874}#) + #{x\ 2874}#)))))) + (#{top-level-eval-hook\ 276}# + (lambda (#{x\ 2883}# #{mod\ 2884}#) (primitive-eval (memoize-expression - (let ((#{atom-key\ 3059}# (fluid-ref #{*mode*\ 565}#))) - (if (memv #{atom-key\ 3059}# (quote (c))) + (let ((#{atom-key\ 2889}# (fluid-ref #{*mode*\ 229}#))) + (if (memv #{atom-key\ 2889}# (quote (c))) ((@ (language tree-il) tree-il->scheme) - #{x\ 3053}#) - #{x\ 3053}#)))))) - (#{fx<\ 573}# <) - (#{fx=\ 571}# =) - (#{fx-\ 569}# -) - (#{fx+\ 567}# +) - (#{*mode*\ 565}# (make-fluid))) + #{x\ 2883}#) + #{x\ 2883}#)))))) + (#{fx<\ 274}# <) + (#{fx=\ 272}# =) + (#{fx-\ 270}# -) + (#{fx+\ 268}# +) + (#{make-dynlet\ 266}# + (lambda (#{src\ 2892}# + #{fluids\ 2893}# + #{vals\ 2894}# + #{body\ 2895}#) + (make-struct + (vector-ref %expanded-vtables 17) + 0 + #{src\ 2892}# + #{fluids\ 2893}# + #{vals\ 2894}# + #{body\ 2895}#))) + (#{make-letrec\ 264}# + (lambda (#{src\ 2900}# + #{names\ 2901}# + #{gensyms\ 2902}# + #{vals\ 2903}# + #{body\ 2904}#) + (make-struct + (vector-ref %expanded-vtables 16) + 0 + #{src\ 2900}# + #{names\ 2901}# + #{gensyms\ 2902}# + #{vals\ 2903}# + #{body\ 2904}#))) + (#{make-let\ 262}# + (lambda (#{src\ 2910}# + #{names\ 2911}# + #{gensyms\ 2912}# + #{vals\ 2913}# + #{body\ 2914}#) + (make-struct + (vector-ref %expanded-vtables 15) + 0 + #{src\ 2910}# + #{names\ 2911}# + #{gensyms\ 2912}# + #{vals\ 2913}# + #{body\ 2914}#))) + (#{make-lambda-case\ 260}# + (lambda (#{src\ 2920}# + #{req\ 2921}# + #{opt\ 2922}# + #{rest\ 2923}# + #{kw\ 2924}# + #{inits\ 2925}# + #{gensyms\ 2926}# + #{body\ 2927}# + #{alternate\ 2928}#) + (make-struct + (vector-ref %expanded-vtables 14) + 0 + #{src\ 2920}# + #{req\ 2921}# + #{opt\ 2922}# + #{rest\ 2923}# + #{kw\ 2924}# + #{inits\ 2925}# + #{gensyms\ 2926}# + #{body\ 2927}# + #{alternate\ 2928}#))) + (#{make-lambda\ 258}# + (lambda (#{src\ 2938}# #{meta\ 2939}# #{body\ 2940}#) + (make-struct + (vector-ref %expanded-vtables 13) + 0 + #{src\ 2938}# + #{meta\ 2939}# + #{body\ 2940}#))) + (#{make-sequence\ 256}# + (lambda (#{src\ 2944}# #{exps\ 2945}#) + (make-struct + (vector-ref %expanded-vtables 12) + 0 + #{src\ 2944}# + #{exps\ 2945}#))) + (#{make-application\ 254}# + (lambda (#{src\ 2948}# #{proc\ 2949}# #{args\ 2950}#) + (make-struct + (vector-ref %expanded-vtables 11) + 0 + #{src\ 2948}# + #{proc\ 2949}# + #{args\ 2950}#))) + (#{make-conditional\ 252}# + (lambda (#{src\ 2954}# + #{test\ 2955}# + #{consequent\ 2956}# + #{alternate\ 2957}#) + (make-struct + (vector-ref %expanded-vtables 10) + 0 + #{src\ 2954}# + #{test\ 2955}# + #{consequent\ 2956}# + #{alternate\ 2957}#))) + (#{make-toplevel-define\ 250}# + (lambda (#{src\ 2962}# #{name\ 2963}# #{exp\ 2964}#) + (make-struct + (vector-ref %expanded-vtables 9) + 0 + #{src\ 2962}# + #{name\ 2963}# + #{exp\ 2964}#))) + (#{make-toplevel-set\ 248}# + (lambda (#{src\ 2968}# #{name\ 2969}# #{exp\ 2970}#) + (make-struct + (vector-ref %expanded-vtables 8) + 0 + #{src\ 2968}# + #{name\ 2969}# + #{exp\ 2970}#))) + (#{make-toplevel-ref\ 246}# + (lambda (#{src\ 2974}# #{name\ 2975}#) + (make-struct + (vector-ref %expanded-vtables 7) + 0 + #{src\ 2974}# + #{name\ 2975}#))) + (#{make-module-set\ 244}# + (lambda (#{src\ 2978}# + #{mod\ 2979}# + #{name\ 2980}# + #{public?\ 2981}# + #{exp\ 2982}#) + (make-struct + (vector-ref %expanded-vtables 6) + 0 + #{src\ 2978}# + #{mod\ 2979}# + #{name\ 2980}# + #{public?\ 2981}# + #{exp\ 2982}#))) + (#{make-module-ref\ 242}# + (lambda (#{src\ 2988}# + #{mod\ 2989}# + #{name\ 2990}# + #{public?\ 2991}#) + (make-struct + (vector-ref %expanded-vtables 5) + 0 + #{src\ 2988}# + #{mod\ 2989}# + #{name\ 2990}# + #{public?\ 2991}#))) + (#{make-lexical-set\ 240}# + (lambda (#{src\ 2996}# + #{name\ 2997}# + #{gensym\ 2998}# + #{exp\ 2999}#) + (make-struct + (vector-ref %expanded-vtables 4) + 0 + #{src\ 2996}# + #{name\ 2997}# + #{gensym\ 2998}# + #{exp\ 2999}#))) + (#{make-lexical-ref\ 238}# + (lambda (#{src\ 3004}# #{name\ 3005}# #{gensym\ 3006}#) + (make-struct + (vector-ref %expanded-vtables 3) + 0 + #{src\ 3004}# + #{name\ 3005}# + #{gensym\ 3006}#))) + (#{make-primitive-ref\ 236}# + (lambda (#{src\ 3010}# #{name\ 3011}#) + (make-struct + (vector-ref %expanded-vtables 2) + 0 + #{src\ 3010}# + #{name\ 3011}#))) + (#{make-const\ 234}# + (lambda (#{src\ 3014}# #{exp\ 3015}#) + (make-struct + (vector-ref %expanded-vtables 1) + 0 + #{src\ 3014}# + #{exp\ 3015}#))) + (#{make-void\ 232}# + (lambda (#{src\ 3018}#) + (make-struct + (vector-ref %expanded-vtables 0) + 0 + #{src\ 3018}#))) + (#{*mode*\ 229}# (make-fluid))) (begin - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'local-syntax 'letrec-syntax #t) - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'local-syntax 'let-syntax #f) - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'core 'fluid-let-syntax - (lambda (#{e\ 3062}# - #{r\ 3063}# - #{w\ 3064}# - #{s\ 3065}# - #{mod\ 3066}#) - ((lambda (#{tmp\ 3072}#) - ((lambda (#{tmp\ 3073}#) - (if (if #{tmp\ 3073}# - (apply (lambda (#{_\ 3079}# - #{var\ 3080}# - #{val\ 3081}# - #{e1\ 3082}# - #{e2\ 3083}#) - (#{valid-bound-ids?\ 729}# #{var\ 3080}#)) - #{tmp\ 3073}#) + (lambda (#{e\ 3020}# + #{r\ 3021}# + #{w\ 3022}# + #{s\ 3023}# + #{mod\ 3024}#) + ((lambda (#{tmp\ 3030}#) + ((lambda (#{tmp\ 3031}#) + (if (if #{tmp\ 3031}# + (apply (lambda (#{_\ 3037}# + #{var\ 3038}# + #{val\ 3039}# + #{e1\ 3040}# + #{e2\ 3041}#) + (#{valid-bound-ids?\ 430}# #{var\ 3038}#)) + #{tmp\ 3031}#) #f) - (apply (lambda (#{_\ 3090}# - #{var\ 3091}# - #{val\ 3092}# - #{e1\ 3093}# - #{e2\ 3094}#) - (let ((#{names\ 3096}# - (map (lambda (#{x\ 3097}#) - (#{id-var-name\ 723}# - #{x\ 3097}# - #{w\ 3064}#)) - #{var\ 3091}#))) + (apply (lambda (#{_\ 3048}# + #{var\ 3049}# + #{val\ 3050}# + #{e1\ 3051}# + #{e2\ 3052}#) + (let ((#{names\ 3054}# + (map (lambda (#{x\ 3055}#) + (#{id-var-name\ 424}# + #{x\ 3055}# + #{w\ 3022}#)) + #{var\ 3049}#))) (begin (for-each - (lambda (#{id\ 3100}# #{n\ 3101}#) - (let ((#{atom-key\ 3106}# - (#{binding-type\ 649}# - (#{lookup\ 660}# - #{n\ 3101}# - #{r\ 3063}# - #{mod\ 3066}#)))) - (if (memv #{atom-key\ 3106}# + (lambda (#{id\ 3058}# #{n\ 3059}#) + (let ((#{atom-key\ 3064}# + (#{binding-type\ 350}# + (#{lookup\ 361}# + #{n\ 3059}# + #{r\ 3021}# + #{mod\ 3024}#)))) + (if (memv #{atom-key\ 3064}# '(displaced-lexical)) (syntax-violation 'fluid-let-syntax "identifier out of context" - #{e\ 3062}# - (#{source-wrap\ 737}# - #{id\ 3100}# - #{w\ 3064}# - #{s\ 3065}# - #{mod\ 3066}#))))) - #{var\ 3091}# - #{names\ 3096}#) - (#{chi-body\ 759}# - (cons #{e1\ 3093}# #{e2\ 3094}#) - (#{source-wrap\ 737}# - #{e\ 3062}# - #{w\ 3064}# - #{s\ 3065}# - #{mod\ 3066}#) - (#{extend-env\ 654}# - #{names\ 3096}# - (let ((#{trans-r\ 3111}# - (#{macros-only-env\ 658}# - #{r\ 3063}#))) - (map (lambda (#{x\ 3112}#) + #{e\ 3020}# + (#{source-wrap\ 438}# + #{id\ 3058}# + #{w\ 3022}# + #{s\ 3023}# + #{mod\ 3024}#))))) + #{var\ 3049}# + #{names\ 3054}#) + (#{chi-body\ 460}# + (cons #{e1\ 3051}# #{e2\ 3052}#) + (#{source-wrap\ 438}# + #{e\ 3020}# + #{w\ 3022}# + #{s\ 3023}# + #{mod\ 3024}#) + (#{extend-env\ 355}# + #{names\ 3054}# + (let ((#{trans-r\ 3069}# + (#{macros-only-env\ 359}# + #{r\ 3021}#))) + (map (lambda (#{x\ 3070}#) (cons 'macro - (#{eval-local-transformer\ 763}# - (#{chi\ 751}# - #{x\ 3112}# - #{trans-r\ 3111}# - #{w\ 3064}# - #{mod\ 3066}#) - #{mod\ 3066}#))) - #{val\ 3092}#)) - #{r\ 3063}#) - #{w\ 3064}# - #{mod\ 3066}#)))) - #{tmp\ 3073}#) - ((lambda (#{_\ 3117}#) + (#{eval-local-transformer\ 464}# + (#{chi\ 452}# + #{x\ 3070}# + #{trans-r\ 3069}# + #{w\ 3022}# + #{mod\ 3024}#) + #{mod\ 3024}#))) + #{val\ 3050}#)) + #{r\ 3021}#) + #{w\ 3022}# + #{mod\ 3024}#)))) + #{tmp\ 3031}#) + ((lambda (#{_\ 3075}#) (syntax-violation 'fluid-let-syntax "bad syntax" - (#{source-wrap\ 737}# - #{e\ 3062}# - #{w\ 3064}# - #{s\ 3065}# - #{mod\ 3066}#))) - #{tmp\ 3072}#))) + (#{source-wrap\ 438}# + #{e\ 3020}# + #{w\ 3022}# + #{s\ 3023}# + #{mod\ 3024}#))) + #{tmp\ 3030}#))) ($sc-dispatch - #{tmp\ 3072}# + #{tmp\ 3030}# '(any #(each (any any)) any . each-any)))) - #{e\ 3062}#))) - (#{global-extend\ 662}# + #{e\ 3020}#))) + (#{global-extend\ 363}# 'core 'quote - (lambda (#{e\ 3118}# - #{r\ 3119}# - #{w\ 3120}# - #{s\ 3121}# - #{mod\ 3122}#) - ((lambda (#{tmp\ 3128}#) - ((lambda (#{tmp\ 3129}#) - (if #{tmp\ 3129}# - (apply (lambda (#{_\ 3132}# #{e\ 3133}#) - (#{build-data\ 616}# - #{s\ 3121}# - (#{strip\ 777}# #{e\ 3133}# #{w\ 3120}#))) - #{tmp\ 3129}#) - ((lambda (#{_\ 3135}#) + (lambda (#{e\ 3076}# + #{r\ 3077}# + #{w\ 3078}# + #{s\ 3079}# + #{mod\ 3080}#) + ((lambda (#{tmp\ 3086}#) + ((lambda (#{tmp\ 3087}#) + (if #{tmp\ 3087}# + (apply (lambda (#{_\ 3090}# #{e\ 3091}#) + (#{build-data\ 317}# + #{s\ 3079}# + (#{strip\ 478}# #{e\ 3091}# #{w\ 3078}#))) + #{tmp\ 3087}#) + ((lambda (#{_\ 3093}#) (syntax-violation 'quote "bad syntax" - (#{source-wrap\ 737}# - #{e\ 3118}# - #{w\ 3120}# - #{s\ 3121}# - #{mod\ 3122}#))) - #{tmp\ 3128}#))) - ($sc-dispatch #{tmp\ 3128}# (quote (any any))))) - #{e\ 3118}#))) - (#{global-extend\ 662}# + (#{source-wrap\ 438}# + #{e\ 3076}# + #{w\ 3078}# + #{s\ 3079}# + #{mod\ 3080}#))) + #{tmp\ 3086}#))) + ($sc-dispatch #{tmp\ 3086}# (quote (any any))))) + #{e\ 3076}#))) + (#{global-extend\ 363}# 'core 'syntax - (letrec ((#{regen\ 3151}# - (lambda (#{x\ 3152}#) - (let ((#{atom-key\ 3156}# (car #{x\ 3152}#))) - (if (memv #{atom-key\ 3156}# (quote (ref))) - (#{build-lexical-reference\ 594}# + (letrec ((#{regen\ 3109}# + (lambda (#{x\ 3110}#) + (let ((#{atom-key\ 3114}# (car #{x\ 3110}#))) + (if (memv #{atom-key\ 3114}# (quote (ref))) + (#{build-lexical-reference\ 295}# 'value #f - (cadr #{x\ 3152}#) - (cadr #{x\ 3152}#)) - (if (memv #{atom-key\ 3156}# (quote (primitive))) - (#{build-primref\ 614}# #f (cadr #{x\ 3152}#)) - (if (memv #{atom-key\ 3156}# (quote (quote))) - (#{build-data\ 616}# #f (cadr #{x\ 3152}#)) - (if (memv #{atom-key\ 3156}# (quote (lambda))) - (if (list? (cadr #{x\ 3152}#)) - (#{build-simple-lambda\ 608}# + (cadr #{x\ 3110}#) + (cadr #{x\ 3110}#)) + (if (memv #{atom-key\ 3114}# (quote (primitive))) + (#{build-primref\ 315}# #f (cadr #{x\ 3110}#)) + (if (memv #{atom-key\ 3114}# (quote (quote))) + (#{build-data\ 317}# #f (cadr #{x\ 3110}#)) + (if (memv #{atom-key\ 3114}# (quote (lambda))) + (if (list? (cadr #{x\ 3110}#)) + (#{build-simple-lambda\ 309}# #f - (cadr #{x\ 3152}#) + (cadr #{x\ 3110}#) #f - (cadr #{x\ 3152}#) + (cadr #{x\ 3110}#) '() - (#{regen\ 3151}# (caddr #{x\ 3152}#))) - (error "how did we get here" #{x\ 3152}#)) - (#{build-application\ 588}# + (#{regen\ 3109}# (caddr #{x\ 3110}#))) + (error "how did we get here" #{x\ 3110}#)) + (#{build-application\ 289}# #f - (#{build-primref\ 614}# #f (car #{x\ 3152}#)) - (map #{regen\ 3151}# - (cdr #{x\ 3152}#)))))))))) - (#{gen-vector\ 3149}# - (lambda (#{x\ 3168}#) - (if (eq? (car #{x\ 3168}#) (quote list)) - (cons (quote vector) (cdr #{x\ 3168}#)) - (if (eq? (car #{x\ 3168}#) (quote quote)) + (#{build-primref\ 315}# #f (car #{x\ 3110}#)) + (map #{regen\ 3109}# + (cdr #{x\ 3110}#)))))))))) + (#{gen-vector\ 3107}# + (lambda (#{x\ 3126}#) + (if (eq? (car #{x\ 3126}#) (quote list)) + (cons (quote vector) (cdr #{x\ 3126}#)) + (if (eq? (car #{x\ 3126}#) (quote quote)) (list 'quote - (list->vector (cadr #{x\ 3168}#))) - (list (quote list->vector) #{x\ 3168}#))))) - (#{gen-append\ 3147}# - (lambda (#{x\ 3178}# #{y\ 3179}#) - (if (equal? #{y\ 3179}# (quote (quote ()))) - #{x\ 3178}# - (list (quote append) #{x\ 3178}# #{y\ 3179}#)))) - (#{gen-cons\ 3145}# - (lambda (#{x\ 3183}# #{y\ 3184}#) - (let ((#{atom-key\ 3189}# (car #{y\ 3184}#))) - (if (memv #{atom-key\ 3189}# (quote (quote))) - (if (eq? (car #{x\ 3183}#) (quote quote)) + (list->vector (cadr #{x\ 3126}#))) + (list (quote list->vector) #{x\ 3126}#))))) + (#{gen-append\ 3105}# + (lambda (#{x\ 3136}# #{y\ 3137}#) + (if (equal? #{y\ 3137}# (quote (quote ()))) + #{x\ 3136}# + (list (quote append) #{x\ 3136}# #{y\ 3137}#)))) + (#{gen-cons\ 3103}# + (lambda (#{x\ 3141}# #{y\ 3142}#) + (let ((#{atom-key\ 3147}# (car #{y\ 3142}#))) + (if (memv #{atom-key\ 3147}# (quote (quote))) + (if (eq? (car #{x\ 3141}#) (quote quote)) (list 'quote - (cons (cadr #{x\ 3183}#) (cadr #{y\ 3184}#))) - (if (eq? (cadr #{y\ 3184}#) (quote ())) - (list (quote list) #{x\ 3183}#) - (list (quote cons) #{x\ 3183}# #{y\ 3184}#))) - (if (memv #{atom-key\ 3189}# (quote (list))) + (cons (cadr #{x\ 3141}#) (cadr #{y\ 3142}#))) + (if (eq? (cadr #{y\ 3142}#) (quote ())) + (list (quote list) #{x\ 3141}#) + (list (quote cons) #{x\ 3141}# #{y\ 3142}#))) + (if (memv #{atom-key\ 3147}# (quote (list))) (cons 'list - (cons #{x\ 3183}# (cdr #{y\ 3184}#))) - (list (quote cons) #{x\ 3183}# #{y\ 3184}#)))))) - (#{gen-map\ 3143}# - (lambda (#{e\ 3198}# #{map-env\ 3199}#) - (let ((#{formals\ 3204}# (map cdr #{map-env\ 3199}#)) - (#{actuals\ 3205}# - (map (lambda (#{x\ 3206}#) - (list (quote ref) (car #{x\ 3206}#))) - #{map-env\ 3199}#))) - (if (eq? (car #{e\ 3198}#) (quote ref)) - (car #{actuals\ 3205}#) + (cons #{x\ 3141}# (cdr #{y\ 3142}#))) + (list (quote cons) #{x\ 3141}# #{y\ 3142}#)))))) + (#{gen-map\ 3101}# + (lambda (#{e\ 3156}# #{map-env\ 3157}#) + (let ((#{formals\ 3162}# (map cdr #{map-env\ 3157}#)) + (#{actuals\ 3163}# + (map (lambda (#{x\ 3164}#) + (list (quote ref) (car #{x\ 3164}#))) + #{map-env\ 3157}#))) + (if (eq? (car #{e\ 3156}#) (quote ref)) + (car #{actuals\ 3163}#) (if (and-map - (lambda (#{x\ 3213}#) - (if (eq? (car #{x\ 3213}#) (quote ref)) - (memq (cadr #{x\ 3213}#) #{formals\ 3204}#) + (lambda (#{x\ 3171}#) + (if (eq? (car #{x\ 3171}#) (quote ref)) + (memq (cadr #{x\ 3171}#) #{formals\ 3162}#) #f)) - (cdr #{e\ 3198}#)) + (cdr #{e\ 3156}#)) (cons 'map (cons (list 'primitive - (car #{e\ 3198}#)) - (map (let ((#{r\ 3219}# + (car #{e\ 3156}#)) + (map (let ((#{r\ 3177}# (map cons - #{formals\ 3204}# - #{actuals\ 3205}#))) - (lambda (#{x\ 3220}#) - (cdr (assq (cadr #{x\ 3220}#) - #{r\ 3219}#)))) - (cdr #{e\ 3198}#)))) + #{formals\ 3162}# + #{actuals\ 3163}#))) + (lambda (#{x\ 3178}#) + (cdr (assq (cadr #{x\ 3178}#) + #{r\ 3177}#)))) + (cdr #{e\ 3156}#)))) (cons 'map (cons (list 'lambda - #{formals\ 3204}# - #{e\ 3198}#) - #{actuals\ 3205}#))))))) - (#{gen-mappend\ 3141}# - (lambda (#{e\ 3224}# #{map-env\ 3225}#) + #{formals\ 3162}# + #{e\ 3156}#) + #{actuals\ 3163}#))))))) + (#{gen-mappend\ 3099}# + (lambda (#{e\ 3182}# #{map-env\ 3183}#) (list 'apply '(primitive append) - (#{gen-map\ 3143}# #{e\ 3224}# #{map-env\ 3225}#)))) - (#{gen-ref\ 3139}# - (lambda (#{src\ 3229}# - #{var\ 3230}# - #{level\ 3231}# - #{maps\ 3232}#) - (if (#{fx=\ 571}# #{level\ 3231}# 0) - (values #{var\ 3230}# #{maps\ 3232}#) - (if (null? #{maps\ 3232}#) + (#{gen-map\ 3101}# #{e\ 3182}# #{map-env\ 3183}#)))) + (#{gen-ref\ 3097}# + (lambda (#{src\ 3187}# + #{var\ 3188}# + #{level\ 3189}# + #{maps\ 3190}#) + (if (#{fx=\ 272}# #{level\ 3189}# 0) + (values #{var\ 3188}# #{maps\ 3190}#) + (if (null? #{maps\ 3190}#) (syntax-violation 'syntax "missing ellipsis" - #{src\ 3229}#) + #{src\ 3187}#) (call-with-values (lambda () - (#{gen-ref\ 3139}# - #{src\ 3229}# - #{var\ 3230}# - (#{fx-\ 569}# #{level\ 3231}# 1) - (cdr #{maps\ 3232}#))) - (lambda (#{outer-var\ 3237}# #{outer-maps\ 3238}#) - (let ((#{b\ 3242}# - (assq #{outer-var\ 3237}# - (car #{maps\ 3232}#)))) - (if #{b\ 3242}# - (values (cdr #{b\ 3242}#) #{maps\ 3232}#) - (let ((#{inner-var\ 3244}# - (#{gen-var\ 779}# (quote tmp)))) + (#{gen-ref\ 3097}# + #{src\ 3187}# + #{var\ 3188}# + (#{fx-\ 270}# #{level\ 3189}# 1) + (cdr #{maps\ 3190}#))) + (lambda (#{outer-var\ 3195}# #{outer-maps\ 3196}#) + (let ((#{b\ 3200}# + (assq #{outer-var\ 3195}# + (car #{maps\ 3190}#)))) + (if #{b\ 3200}# + (values (cdr #{b\ 3200}#) #{maps\ 3190}#) + (let ((#{inner-var\ 3202}# + (#{gen-var\ 480}# (quote tmp)))) (values - #{inner-var\ 3244}# - (cons (cons (cons #{outer-var\ 3237}# - #{inner-var\ 3244}#) - (car #{maps\ 3232}#)) - #{outer-maps\ 3238}#))))))))))) - (#{gen-syntax\ 3137}# - (lambda (#{src\ 3245}# - #{e\ 3246}# - #{r\ 3247}# - #{maps\ 3248}# - #{ellipsis?\ 3249}# - #{mod\ 3250}#) - (if (#{id?\ 666}# #{e\ 3246}#) - (let ((#{label\ 3258}# - (#{id-var-name\ 723}# - #{e\ 3246}# + #{inner-var\ 3202}# + (cons (cons (cons #{outer-var\ 3195}# + #{inner-var\ 3202}#) + (car #{maps\ 3190}#)) + #{outer-maps\ 3196}#))))))))))) + (#{gen-syntax\ 3095}# + (lambda (#{src\ 3203}# + #{e\ 3204}# + #{r\ 3205}# + #{maps\ 3206}# + #{ellipsis?\ 3207}# + #{mod\ 3208}#) + (if (#{id?\ 367}# #{e\ 3204}#) + (let ((#{label\ 3216}# + (#{id-var-name\ 424}# + #{e\ 3204}# '(())))) - (let ((#{b\ 3261}# - (#{lookup\ 660}# - #{label\ 3258}# - #{r\ 3247}# - #{mod\ 3250}#))) - (if (eq? (#{binding-type\ 649}# #{b\ 3261}#) + (let ((#{b\ 3219}# + (#{lookup\ 361}# + #{label\ 3216}# + #{r\ 3205}# + #{mod\ 3208}#))) + (if (eq? (#{binding-type\ 350}# #{b\ 3219}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev\ 3263}# - (#{binding-value\ 651}# #{b\ 3261}#))) - (#{gen-ref\ 3139}# - #{src\ 3245}# - (car #{var.lev\ 3263}#) - (cdr #{var.lev\ 3263}#) - #{maps\ 3248}#))) - (lambda (#{var\ 3264}# #{maps\ 3265}#) + (let ((#{var.lev\ 3221}# + (#{binding-value\ 352}# #{b\ 3219}#))) + (#{gen-ref\ 3097}# + #{src\ 3203}# + (car #{var.lev\ 3221}#) + (cdr #{var.lev\ 3221}#) + #{maps\ 3206}#))) + (lambda (#{var\ 3222}# #{maps\ 3223}#) (values - (list (quote ref) #{var\ 3264}#) - #{maps\ 3265}#))) - (if (#{ellipsis?\ 3249}# #{e\ 3246}#) + (list (quote ref) #{var\ 3222}#) + #{maps\ 3223}#))) + (if (#{ellipsis?\ 3207}# #{e\ 3204}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src\ 3245}#) + #{src\ 3203}#) (values - (list (quote quote) #{e\ 3246}#) - #{maps\ 3248}#))))) - ((lambda (#{tmp\ 3270}#) - ((lambda (#{tmp\ 3271}#) - (if (if #{tmp\ 3271}# - (apply (lambda (#{dots\ 3274}# #{e\ 3275}#) - (#{ellipsis?\ 3249}# - #{dots\ 3274}#)) - #{tmp\ 3271}#) + (list (quote quote) #{e\ 3204}#) + #{maps\ 3206}#))))) + ((lambda (#{tmp\ 3228}#) + ((lambda (#{tmp\ 3229}#) + (if (if #{tmp\ 3229}# + (apply (lambda (#{dots\ 3232}# #{e\ 3233}#) + (#{ellipsis?\ 3207}# + #{dots\ 3232}#)) + #{tmp\ 3229}#) #f) - (apply (lambda (#{dots\ 3278}# #{e\ 3279}#) - (#{gen-syntax\ 3137}# - #{src\ 3245}# - #{e\ 3279}# - #{r\ 3247}# - #{maps\ 3248}# - (lambda (#{x\ 3280}#) #f) - #{mod\ 3250}#)) - #{tmp\ 3271}#) - ((lambda (#{tmp\ 3282}#) - (if (if #{tmp\ 3282}# - (apply (lambda (#{x\ 3286}# - #{dots\ 3287}# - #{y\ 3288}#) - (#{ellipsis?\ 3249}# - #{dots\ 3287}#)) - #{tmp\ 3282}#) + (apply (lambda (#{dots\ 3236}# #{e\ 3237}#) + (#{gen-syntax\ 3095}# + #{src\ 3203}# + #{e\ 3237}# + #{r\ 3205}# + #{maps\ 3206}# + (lambda (#{x\ 3238}#) #f) + #{mod\ 3208}#)) + #{tmp\ 3229}#) + ((lambda (#{tmp\ 3240}#) + (if (if #{tmp\ 3240}# + (apply (lambda (#{x\ 3244}# + #{dots\ 3245}# + #{y\ 3246}#) + (#{ellipsis?\ 3207}# + #{dots\ 3245}#)) + #{tmp\ 3240}#) #f) - (apply (lambda (#{x\ 3292}# - #{dots\ 3293}# - #{y\ 3294}#) - (letrec ((#{f\ 3298}# - (lambda (#{y\ 3299}# - #{k\ 3300}#) - ((lambda (#{tmp\ 3307}#) - ((lambda (#{tmp\ 3308}#) - (if (if #{tmp\ 3308}# - (apply (lambda (#{dots\ 3311}# - #{y\ 3312}#) - (#{ellipsis?\ 3249}# - #{dots\ 3311}#)) - #{tmp\ 3308}#) + (apply (lambda (#{x\ 3250}# + #{dots\ 3251}# + #{y\ 3252}#) + (letrec ((#{f\ 3256}# + (lambda (#{y\ 3257}# + #{k\ 3258}#) + ((lambda (#{tmp\ 3265}#) + ((lambda (#{tmp\ 3266}#) + (if (if #{tmp\ 3266}# + (apply (lambda (#{dots\ 3269}# + #{y\ 3270}#) + (#{ellipsis?\ 3207}# + #{dots\ 3269}#)) + #{tmp\ 3266}#) #f) - (apply (lambda (#{dots\ 3315}# - #{y\ 3316}#) - (#{f\ 3298}# - #{y\ 3316}# - (lambda (#{maps\ 3317}#) + (apply (lambda (#{dots\ 3273}# + #{y\ 3274}#) + (#{f\ 3256}# + #{y\ 3274}# + (lambda (#{maps\ 3275}#) (call-with-values (lambda () - (#{k\ 3300}# + (#{k\ 3258}# (cons '() - #{maps\ 3317}#))) - (lambda (#{x\ 3319}# - #{maps\ 3320}#) - (if (null? (car #{maps\ 3320}#)) + #{maps\ 3275}#))) + (lambda (#{x\ 3277}# + #{maps\ 3278}#) + (if (null? (car #{maps\ 3278}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 3245}#) + #{src\ 3203}#) (values - (#{gen-mappend\ 3141}# - #{x\ 3319}# - (car #{maps\ 3320}#)) - (cdr #{maps\ 3320}#)))))))) - #{tmp\ 3308}#) - ((lambda (#{_\ 3324}#) + (#{gen-mappend\ 3099}# + #{x\ 3277}# + (car #{maps\ 3278}#)) + (cdr #{maps\ 3278}#)))))))) + #{tmp\ 3266}#) + ((lambda (#{_\ 3282}#) (call-with-values (lambda () - (#{gen-syntax\ 3137}# - #{src\ 3245}# - #{y\ 3299}# - #{r\ 3247}# - #{maps\ 3248}# - #{ellipsis?\ 3249}# - #{mod\ 3250}#)) - (lambda (#{y\ 3325}# - #{maps\ 3326}#) + (#{gen-syntax\ 3095}# + #{src\ 3203}# + #{y\ 3257}# + #{r\ 3205}# + #{maps\ 3206}# + #{ellipsis?\ 3207}# + #{mod\ 3208}#)) + (lambda (#{y\ 3283}# + #{maps\ 3284}#) (call-with-values (lambda () - (#{k\ 3300}# - #{maps\ 3326}#)) - (lambda (#{x\ 3329}# - #{maps\ 3330}#) + (#{k\ 3258}# + #{maps\ 3284}#)) + (lambda (#{x\ 3287}# + #{maps\ 3288}#) (values - (#{gen-append\ 3147}# - #{x\ 3329}# - #{y\ 3325}#) - #{maps\ 3330}#)))))) - #{tmp\ 3307}#))) + (#{gen-append\ 3105}# + #{x\ 3287}# + #{y\ 3283}#) + #{maps\ 3288}#)))))) + #{tmp\ 3265}#))) ($sc-dispatch - #{tmp\ 3307}# + #{tmp\ 3265}# '(any . any)))) - #{y\ 3299}#)))) - (#{f\ 3298}# - #{y\ 3294}# - (lambda (#{maps\ 3301}#) + #{y\ 3257}#)))) + (#{f\ 3256}# + #{y\ 3252}# + (lambda (#{maps\ 3259}#) (call-with-values (lambda () - (#{gen-syntax\ 3137}# - #{src\ 3245}# - #{x\ 3292}# - #{r\ 3247}# + (#{gen-syntax\ 3095}# + #{src\ 3203}# + #{x\ 3250}# + #{r\ 3205}# (cons '() - #{maps\ 3301}#) - #{ellipsis?\ 3249}# - #{mod\ 3250}#)) - (lambda (#{x\ 3303}# - #{maps\ 3304}#) - (if (null? (car #{maps\ 3304}#)) + #{maps\ 3259}#) + #{ellipsis?\ 3207}# + #{mod\ 3208}#)) + (lambda (#{x\ 3261}# + #{maps\ 3262}#) + (if (null? (car #{maps\ 3262}#)) (syntax-violation 'syntax "extra ellipsis" - #{src\ 3245}#) + #{src\ 3203}#) (values - (#{gen-map\ 3143}# - #{x\ 3303}# - (car #{maps\ 3304}#)) - (cdr #{maps\ 3304}#))))))))) - #{tmp\ 3282}#) - ((lambda (#{tmp\ 3333}#) - (if #{tmp\ 3333}# - (apply (lambda (#{x\ 3336}# - #{y\ 3337}#) + (#{gen-map\ 3101}# + #{x\ 3261}# + (car #{maps\ 3262}#)) + (cdr #{maps\ 3262}#))))))))) + #{tmp\ 3240}#) + ((lambda (#{tmp\ 3291}#) + (if #{tmp\ 3291}# + (apply (lambda (#{x\ 3294}# + #{y\ 3295}#) (call-with-values (lambda () - (#{gen-syntax\ 3137}# - #{src\ 3245}# - #{x\ 3336}# - #{r\ 3247}# - #{maps\ 3248}# - #{ellipsis?\ 3249}# - #{mod\ 3250}#)) - (lambda (#{x\ 3338}# - #{maps\ 3339}#) + (#{gen-syntax\ 3095}# + #{src\ 3203}# + #{x\ 3294}# + #{r\ 3205}# + #{maps\ 3206}# + #{ellipsis?\ 3207}# + #{mod\ 3208}#)) + (lambda (#{x\ 3296}# + #{maps\ 3297}#) (call-with-values (lambda () - (#{gen-syntax\ 3137}# - #{src\ 3245}# - #{y\ 3337}# - #{r\ 3247}# - #{maps\ 3339}# - #{ellipsis?\ 3249}# - #{mod\ 3250}#)) - (lambda (#{y\ 3342}# - #{maps\ 3343}#) + (#{gen-syntax\ 3095}# + #{src\ 3203}# + #{y\ 3295}# + #{r\ 3205}# + #{maps\ 3297}# + #{ellipsis?\ 3207}# + #{mod\ 3208}#)) + (lambda (#{y\ 3300}# + #{maps\ 3301}#) (values - (#{gen-cons\ 3145}# - #{x\ 3338}# - #{y\ 3342}#) - #{maps\ 3343}#)))))) - #{tmp\ 3333}#) - ((lambda (#{tmp\ 3346}#) - (if #{tmp\ 3346}# - (apply (lambda (#{e1\ 3349}# - #{e2\ 3350}#) + (#{gen-cons\ 3103}# + #{x\ 3296}# + #{y\ 3300}#) + #{maps\ 3301}#)))))) + #{tmp\ 3291}#) + ((lambda (#{tmp\ 3304}#) + (if #{tmp\ 3304}# + (apply (lambda (#{e1\ 3307}# + #{e2\ 3308}#) (call-with-values (lambda () - (#{gen-syntax\ 3137}# - #{src\ 3245}# - (cons #{e1\ 3349}# - #{e2\ 3350}#) - #{r\ 3247}# - #{maps\ 3248}# - #{ellipsis?\ 3249}# - #{mod\ 3250}#)) - (lambda (#{e\ 3352}# - #{maps\ 3353}#) + (#{gen-syntax\ 3095}# + #{src\ 3203}# + (cons #{e1\ 3307}# + #{e2\ 3308}#) + #{r\ 3205}# + #{maps\ 3206}# + #{ellipsis?\ 3207}# + #{mod\ 3208}#)) + (lambda (#{e\ 3310}# + #{maps\ 3311}#) (values - (#{gen-vector\ 3149}# - #{e\ 3352}#) - #{maps\ 3353}#)))) - #{tmp\ 3346}#) - ((lambda (#{_\ 3357}#) + (#{gen-vector\ 3107}# + #{e\ 3310}#) + #{maps\ 3311}#)))) + #{tmp\ 3304}#) + ((lambda (#{_\ 3315}#) (values (list 'quote - #{e\ 3246}#) - #{maps\ 3248}#)) - #{tmp\ 3270}#))) + #{e\ 3204}#) + #{maps\ 3206}#)) + #{tmp\ 3228}#))) ($sc-dispatch - #{tmp\ 3270}# + #{tmp\ 3228}# '#(vector (any . each-any)))))) ($sc-dispatch - #{tmp\ 3270}# + #{tmp\ 3228}# '(any . any))))) ($sc-dispatch - #{tmp\ 3270}# + #{tmp\ 3228}# '(any any . any))))) - ($sc-dispatch #{tmp\ 3270}# (quote (any any))))) - #{e\ 3246}#))))) - (lambda (#{e\ 3359}# - #{r\ 3360}# - #{w\ 3361}# - #{s\ 3362}# - #{mod\ 3363}#) - (let ((#{e\ 3370}# - (#{source-wrap\ 737}# - #{e\ 3359}# - #{w\ 3361}# - #{s\ 3362}# - #{mod\ 3363}#))) - ((lambda (#{tmp\ 3371}#) - ((lambda (#{tmp\ 3372}#) - (if #{tmp\ 3372}# - (apply (lambda (#{_\ 3375}# #{x\ 3376}#) + ($sc-dispatch #{tmp\ 3228}# (quote (any any))))) + #{e\ 3204}#))))) + (lambda (#{e\ 3317}# + #{r\ 3318}# + #{w\ 3319}# + #{s\ 3320}# + #{mod\ 3321}#) + (let ((#{e\ 3328}# + (#{source-wrap\ 438}# + #{e\ 3317}# + #{w\ 3319}# + #{s\ 3320}# + #{mod\ 3321}#))) + ((lambda (#{tmp\ 3329}#) + ((lambda (#{tmp\ 3330}#) + (if #{tmp\ 3330}# + (apply (lambda (#{_\ 3333}# #{x\ 3334}#) (call-with-values (lambda () - (#{gen-syntax\ 3137}# - #{e\ 3370}# - #{x\ 3376}# - #{r\ 3360}# + (#{gen-syntax\ 3095}# + #{e\ 3328}# + #{x\ 3334}# + #{r\ 3318}# '() - #{ellipsis?\ 767}# - #{mod\ 3363}#)) - (lambda (#{e\ 3377}# #{maps\ 3378}#) - (#{regen\ 3151}# #{e\ 3377}#)))) - #{tmp\ 3372}#) - ((lambda (#{_\ 3382}#) + #{ellipsis?\ 468}# + #{mod\ 3321}#)) + (lambda (#{e\ 3335}# #{maps\ 3336}#) + (#{regen\ 3109}# #{e\ 3335}#)))) + #{tmp\ 3330}#) + ((lambda (#{_\ 3340}#) (syntax-violation 'syntax "bad `syntax' form" - #{e\ 3370}#)) - #{tmp\ 3371}#))) - ($sc-dispatch #{tmp\ 3371}# (quote (any any))))) - #{e\ 3370}#))))) - (#{global-extend\ 662}# + #{e\ 3328}#)) + #{tmp\ 3329}#))) + ($sc-dispatch #{tmp\ 3329}# (quote (any any))))) + #{e\ 3328}#))))) + (#{global-extend\ 363}# 'core 'lambda - (lambda (#{e\ 3383}# - #{r\ 3384}# - #{w\ 3385}# - #{s\ 3386}# - #{mod\ 3387}#) - ((lambda (#{tmp\ 3393}#) - ((lambda (#{tmp\ 3394}#) - (if #{tmp\ 3394}# - (apply (lambda (#{_\ 3399}# - #{args\ 3400}# - #{e1\ 3401}# - #{e2\ 3402}#) + (lambda (#{e\ 3341}# + #{r\ 3342}# + #{w\ 3343}# + #{s\ 3344}# + #{mod\ 3345}#) + ((lambda (#{tmp\ 3351}#) + ((lambda (#{tmp\ 3352}#) + (if #{tmp\ 3352}# + (apply (lambda (#{_\ 3357}# + #{args\ 3358}# + #{e1\ 3359}# + #{e2\ 3360}#) (call-with-values (lambda () - (#{lambda-formals\ 769}# #{args\ 3400}#)) - (lambda (#{req\ 3403}# - #{opt\ 3404}# - #{rest\ 3405}# - #{kw\ 3406}#) - (letrec ((#{lp\ 3414}# - (lambda (#{body\ 3415}# - #{meta\ 3416}#) - ((lambda (#{tmp\ 3418}#) - ((lambda (#{tmp\ 3419}#) - (if (if #{tmp\ 3419}# - (apply (lambda (#{docstring\ 3423}# - #{e1\ 3424}# - #{e2\ 3425}#) + (#{lambda-formals\ 470}# #{args\ 3358}#)) + (lambda (#{req\ 3361}# + #{opt\ 3362}# + #{rest\ 3363}# + #{kw\ 3364}#) + (letrec ((#{lp\ 3372}# + (lambda (#{body\ 3373}# + #{meta\ 3374}#) + ((lambda (#{tmp\ 3376}#) + ((lambda (#{tmp\ 3377}#) + (if (if #{tmp\ 3377}# + (apply (lambda (#{docstring\ 3381}# + #{e1\ 3382}# + #{e2\ 3383}#) (string? (syntax->datum - #{docstring\ 3423}#))) - #{tmp\ 3419}#) + #{docstring\ 3381}#))) + #{tmp\ 3377}#) #f) - (apply (lambda (#{docstring\ 3429}# - #{e1\ 3430}# - #{e2\ 3431}#) - (#{lp\ 3414}# - (cons #{e1\ 3430}# - #{e2\ 3431}#) + (apply (lambda (#{docstring\ 3387}# + #{e1\ 3388}# + #{e2\ 3389}#) + (#{lp\ 3372}# + (cons #{e1\ 3388}# + #{e2\ 3389}#) (append - #{meta\ 3416}# + #{meta\ 3374}# (list (cons 'documentation (syntax->datum - #{docstring\ 3429}#)))))) - #{tmp\ 3419}#) - ((lambda (#{tmp\ 3434}#) - (if #{tmp\ 3434}# - (apply (lambda (#{k\ 3439}# - #{v\ 3440}# - #{e1\ 3441}# - #{e2\ 3442}#) - (#{lp\ 3414}# - (cons #{e1\ 3441}# - #{e2\ 3442}#) + #{docstring\ 3387}#)))))) + #{tmp\ 3377}#) + ((lambda (#{tmp\ 3392}#) + (if #{tmp\ 3392}# + (apply (lambda (#{k\ 3397}# + #{v\ 3398}# + #{e1\ 3399}# + #{e2\ 3400}#) + (#{lp\ 3372}# + (cons #{e1\ 3399}# + #{e2\ 3400}#) (append - #{meta\ 3416}# + #{meta\ 3374}# (syntax->datum (map cons - #{k\ 3439}# - #{v\ 3440}#))))) - #{tmp\ 3434}#) - ((lambda (#{_\ 3447}#) - (#{chi-simple-lambda\ 771}# - #{e\ 3383}# - #{r\ 3384}# - #{w\ 3385}# - #{s\ 3386}# - #{mod\ 3387}# - #{req\ 3403}# - #{rest\ 3405}# - #{meta\ 3416}# - #{body\ 3415}#)) - #{tmp\ 3418}#))) + #{k\ 3397}# + #{v\ 3398}#))))) + #{tmp\ 3392}#) + ((lambda (#{_\ 3405}#) + (#{chi-simple-lambda\ 472}# + #{e\ 3341}# + #{r\ 3342}# + #{w\ 3343}# + #{s\ 3344}# + #{mod\ 3345}# + #{req\ 3361}# + #{rest\ 3363}# + #{meta\ 3374}# + #{body\ 3373}#)) + #{tmp\ 3376}#))) ($sc-dispatch - #{tmp\ 3418}# + #{tmp\ 3376}# '(#(vector #(each (any . any))) any . each-any))))) ($sc-dispatch - #{tmp\ 3418}# + #{tmp\ 3376}# '(any any . each-any)))) - #{body\ 3415}#)))) - (#{lp\ 3414}# - (cons #{e1\ 3401}# #{e2\ 3402}#) + #{body\ 3373}#)))) + (#{lp\ 3372}# + (cons #{e1\ 3359}# #{e2\ 3360}#) '()))))) - #{tmp\ 3394}#) - ((lambda (#{_\ 3449}#) + #{tmp\ 3352}#) + ((lambda (#{_\ 3407}#) (syntax-violation 'lambda "bad lambda" - #{e\ 3383}#)) - #{tmp\ 3393}#))) + #{e\ 3341}#)) + #{tmp\ 3351}#))) ($sc-dispatch - #{tmp\ 3393}# + #{tmp\ 3351}# '(any any any . each-any)))) - #{e\ 3383}#))) - (#{global-extend\ 662}# + #{e\ 3341}#))) + (#{global-extend\ 363}# 'core 'lambda* - (lambda (#{e\ 3450}# - #{r\ 3451}# - #{w\ 3452}# - #{s\ 3453}# - #{mod\ 3454}#) - ((lambda (#{tmp\ 3460}#) - ((lambda (#{tmp\ 3461}#) - (if #{tmp\ 3461}# - (apply (lambda (#{_\ 3466}# - #{args\ 3467}# - #{e1\ 3468}# - #{e2\ 3469}#) + (lambda (#{e\ 3408}# + #{r\ 3409}# + #{w\ 3410}# + #{s\ 3411}# + #{mod\ 3412}#) + ((lambda (#{tmp\ 3418}#) + ((lambda (#{tmp\ 3419}#) + (if #{tmp\ 3419}# + (apply (lambda (#{_\ 3424}# + #{args\ 3425}# + #{e1\ 3426}# + #{e2\ 3427}#) (call-with-values (lambda () - (#{chi-lambda-case\ 775}# - #{e\ 3450}# - #{r\ 3451}# - #{w\ 3452}# - #{s\ 3453}# - #{mod\ 3454}# - #{lambda*-formals\ 773}# - (list (cons #{args\ 3467}# - (cons #{e1\ 3468}# - #{e2\ 3469}#))))) - (lambda (#{meta\ 3471}# #{lcase\ 3472}#) - (#{build-case-lambda\ 610}# - #{s\ 3453}# - #{meta\ 3471}# - #{lcase\ 3472}#)))) - #{tmp\ 3461}#) - ((lambda (#{_\ 3476}#) + (#{chi-lambda-case\ 476}# + #{e\ 3408}# + #{r\ 3409}# + #{w\ 3410}# + #{s\ 3411}# + #{mod\ 3412}# + #{lambda*-formals\ 474}# + (list (cons #{args\ 3425}# + (cons #{e1\ 3426}# + #{e2\ 3427}#))))) + (lambda (#{meta\ 3429}# #{lcase\ 3430}#) + (#{build-case-lambda\ 311}# + #{s\ 3411}# + #{meta\ 3429}# + #{lcase\ 3430}#)))) + #{tmp\ 3419}#) + ((lambda (#{_\ 3434}#) (syntax-violation 'lambda "bad lambda*" - #{e\ 3450}#)) - #{tmp\ 3460}#))) + #{e\ 3408}#)) + #{tmp\ 3418}#))) ($sc-dispatch - #{tmp\ 3460}# + #{tmp\ 3418}# '(any any any . each-any)))) - #{e\ 3450}#))) - (#{global-extend\ 662}# + #{e\ 3408}#))) + (#{global-extend\ 363}# 'core 'case-lambda - (lambda (#{e\ 3477}# - #{r\ 3478}# - #{w\ 3479}# - #{s\ 3480}# - #{mod\ 3481}#) - ((lambda (#{tmp\ 3487}#) - ((lambda (#{tmp\ 3488}#) - (if #{tmp\ 3488}# - (apply (lambda (#{_\ 3496}# - #{args\ 3497}# - #{e1\ 3498}# - #{e2\ 3499}# - #{args*\ 3500}# - #{e1*\ 3501}# - #{e2*\ 3502}#) + (lambda (#{e\ 3435}# + #{r\ 3436}# + #{w\ 3437}# + #{s\ 3438}# + #{mod\ 3439}#) + ((lambda (#{tmp\ 3445}#) + ((lambda (#{tmp\ 3446}#) + (if #{tmp\ 3446}# + (apply (lambda (#{_\ 3454}# + #{args\ 3455}# + #{e1\ 3456}# + #{e2\ 3457}# + #{args*\ 3458}# + #{e1*\ 3459}# + #{e2*\ 3460}#) (call-with-values (lambda () - (#{chi-lambda-case\ 775}# - #{e\ 3477}# - #{r\ 3478}# - #{w\ 3479}# - #{s\ 3480}# - #{mod\ 3481}# - #{lambda-formals\ 769}# - (cons (cons #{args\ 3497}# - (cons #{e1\ 3498}# #{e2\ 3499}#)) - (map (lambda (#{tmp\ 3506}# - #{tmp\ 3505}# - #{tmp\ 3504}#) - (cons #{tmp\ 3504}# - (cons #{tmp\ 3505}# - #{tmp\ 3506}#))) - #{e2*\ 3502}# - #{e1*\ 3501}# - #{args*\ 3500}#)))) - (lambda (#{meta\ 3508}# #{lcase\ 3509}#) - (#{build-case-lambda\ 610}# - #{s\ 3480}# - #{meta\ 3508}# - #{lcase\ 3509}#)))) - #{tmp\ 3488}#) - ((lambda (#{_\ 3513}#) + (#{chi-lambda-case\ 476}# + #{e\ 3435}# + #{r\ 3436}# + #{w\ 3437}# + #{s\ 3438}# + #{mod\ 3439}# + #{lambda-formals\ 470}# + (cons (cons #{args\ 3455}# + (cons #{e1\ 3456}# #{e2\ 3457}#)) + (map (lambda (#{tmp\ 3464}# + #{tmp\ 3463}# + #{tmp\ 3462}#) + (cons #{tmp\ 3462}# + (cons #{tmp\ 3463}# + #{tmp\ 3464}#))) + #{e2*\ 3460}# + #{e1*\ 3459}# + #{args*\ 3458}#)))) + (lambda (#{meta\ 3466}# #{lcase\ 3467}#) + (#{build-case-lambda\ 311}# + #{s\ 3438}# + #{meta\ 3466}# + #{lcase\ 3467}#)))) + #{tmp\ 3446}#) + ((lambda (#{_\ 3471}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e\ 3477}#)) - #{tmp\ 3487}#))) + #{e\ 3435}#)) + #{tmp\ 3445}#))) ($sc-dispatch - #{tmp\ 3487}# + #{tmp\ 3445}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3477}#))) - (#{global-extend\ 662}# + #{e\ 3435}#))) + (#{global-extend\ 363}# 'core 'case-lambda* - (lambda (#{e\ 3514}# - #{r\ 3515}# - #{w\ 3516}# - #{s\ 3517}# - #{mod\ 3518}#) - ((lambda (#{tmp\ 3524}#) - ((lambda (#{tmp\ 3525}#) - (if #{tmp\ 3525}# - (apply (lambda (#{_\ 3533}# - #{args\ 3534}# - #{e1\ 3535}# - #{e2\ 3536}# - #{args*\ 3537}# - #{e1*\ 3538}# - #{e2*\ 3539}#) + (lambda (#{e\ 3472}# + #{r\ 3473}# + #{w\ 3474}# + #{s\ 3475}# + #{mod\ 3476}#) + ((lambda (#{tmp\ 3482}#) + ((lambda (#{tmp\ 3483}#) + (if #{tmp\ 3483}# + (apply (lambda (#{_\ 3491}# + #{args\ 3492}# + #{e1\ 3493}# + #{e2\ 3494}# + #{args*\ 3495}# + #{e1*\ 3496}# + #{e2*\ 3497}#) (call-with-values (lambda () - (#{chi-lambda-case\ 775}# - #{e\ 3514}# - #{r\ 3515}# - #{w\ 3516}# - #{s\ 3517}# - #{mod\ 3518}# - #{lambda*-formals\ 773}# - (cons (cons #{args\ 3534}# - (cons #{e1\ 3535}# #{e2\ 3536}#)) - (map (lambda (#{tmp\ 3543}# - #{tmp\ 3542}# - #{tmp\ 3541}#) - (cons #{tmp\ 3541}# - (cons #{tmp\ 3542}# - #{tmp\ 3543}#))) - #{e2*\ 3539}# - #{e1*\ 3538}# - #{args*\ 3537}#)))) - (lambda (#{meta\ 3545}# #{lcase\ 3546}#) - (#{build-case-lambda\ 610}# - #{s\ 3517}# - #{meta\ 3545}# - #{lcase\ 3546}#)))) - #{tmp\ 3525}#) - ((lambda (#{_\ 3550}#) + (#{chi-lambda-case\ 476}# + #{e\ 3472}# + #{r\ 3473}# + #{w\ 3474}# + #{s\ 3475}# + #{mod\ 3476}# + #{lambda*-formals\ 474}# + (cons (cons #{args\ 3492}# + (cons #{e1\ 3493}# #{e2\ 3494}#)) + (map (lambda (#{tmp\ 3501}# + #{tmp\ 3500}# + #{tmp\ 3499}#) + (cons #{tmp\ 3499}# + (cons #{tmp\ 3500}# + #{tmp\ 3501}#))) + #{e2*\ 3497}# + #{e1*\ 3496}# + #{args*\ 3495}#)))) + (lambda (#{meta\ 3503}# #{lcase\ 3504}#) + (#{build-case-lambda\ 311}# + #{s\ 3475}# + #{meta\ 3503}# + #{lcase\ 3504}#)))) + #{tmp\ 3483}#) + ((lambda (#{_\ 3508}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e\ 3514}#)) - #{tmp\ 3524}#))) + #{e\ 3472}#)) + #{tmp\ 3482}#))) ($sc-dispatch - #{tmp\ 3524}# + #{tmp\ 3482}# '(any (any any . each-any) . #(each (any any . each-any)))))) - #{e\ 3514}#))) - (#{global-extend\ 662}# + #{e\ 3472}#))) + (#{global-extend\ 363}# 'core 'let - (letrec ((#{chi-let\ 3552}# - (lambda (#{e\ 3553}# - #{r\ 3554}# - #{w\ 3555}# - #{s\ 3556}# - #{mod\ 3557}# - #{constructor\ 3558}# - #{ids\ 3559}# - #{vals\ 3560}# - #{exps\ 3561}#) - (if (not (#{valid-bound-ids?\ 729}# #{ids\ 3559}#)) + (letrec ((#{chi-let\ 3510}# + (lambda (#{e\ 3511}# + #{r\ 3512}# + #{w\ 3513}# + #{s\ 3514}# + #{mod\ 3515}# + #{constructor\ 3516}# + #{ids\ 3517}# + #{vals\ 3518}# + #{exps\ 3519}#) + (if (not (#{valid-bound-ids?\ 430}# #{ids\ 3517}#)) (syntax-violation 'let "duplicate bound variable" - #{e\ 3553}#) - (let ((#{labels\ 3573}# - (#{gen-labels\ 684}# #{ids\ 3559}#)) - (#{new-vars\ 3574}# - (map #{gen-var\ 779}# #{ids\ 3559}#))) - (let ((#{nw\ 3577}# - (#{make-binding-wrap\ 713}# - #{ids\ 3559}# - #{labels\ 3573}# - #{w\ 3555}#)) - (#{nr\ 3578}# - (#{extend-var-env\ 656}# - #{labels\ 3573}# - #{new-vars\ 3574}# - #{r\ 3554}#))) - (#{constructor\ 3558}# - #{s\ 3556}# - (map syntax->datum #{ids\ 3559}#) - #{new-vars\ 3574}# - (map (lambda (#{x\ 3579}#) - (#{chi\ 751}# - #{x\ 3579}# - #{r\ 3554}# - #{w\ 3555}# - #{mod\ 3557}#)) - #{vals\ 3560}#) - (#{chi-body\ 759}# - #{exps\ 3561}# - (#{source-wrap\ 737}# - #{e\ 3553}# - #{nw\ 3577}# - #{s\ 3556}# - #{mod\ 3557}#) - #{nr\ 3578}# - #{nw\ 3577}# - #{mod\ 3557}#)))))))) - (lambda (#{e\ 3581}# - #{r\ 3582}# - #{w\ 3583}# - #{s\ 3584}# - #{mod\ 3585}#) - ((lambda (#{tmp\ 3591}#) - ((lambda (#{tmp\ 3592}#) - (if (if #{tmp\ 3592}# - (apply (lambda (#{_\ 3598}# - #{id\ 3599}# - #{val\ 3600}# - #{e1\ 3601}# - #{e2\ 3602}#) - (and-map #{id?\ 666}# #{id\ 3599}#)) - #{tmp\ 3592}#) + #{e\ 3511}#) + (let ((#{labels\ 3531}# + (#{gen-labels\ 385}# #{ids\ 3517}#)) + (#{new-vars\ 3532}# + (map #{gen-var\ 480}# #{ids\ 3517}#))) + (let ((#{nw\ 3535}# + (#{make-binding-wrap\ 414}# + #{ids\ 3517}# + #{labels\ 3531}# + #{w\ 3513}#)) + (#{nr\ 3536}# + (#{extend-var-env\ 357}# + #{labels\ 3531}# + #{new-vars\ 3532}# + #{r\ 3512}#))) + (#{constructor\ 3516}# + #{s\ 3514}# + (map syntax->datum #{ids\ 3517}#) + #{new-vars\ 3532}# + (map (lambda (#{x\ 3537}#) + (#{chi\ 452}# + #{x\ 3537}# + #{r\ 3512}# + #{w\ 3513}# + #{mod\ 3515}#)) + #{vals\ 3518}#) + (#{chi-body\ 460}# + #{exps\ 3519}# + (#{source-wrap\ 438}# + #{e\ 3511}# + #{nw\ 3535}# + #{s\ 3514}# + #{mod\ 3515}#) + #{nr\ 3536}# + #{nw\ 3535}# + #{mod\ 3515}#)))))))) + (lambda (#{e\ 3539}# + #{r\ 3540}# + #{w\ 3541}# + #{s\ 3542}# + #{mod\ 3543}#) + ((lambda (#{tmp\ 3549}#) + ((lambda (#{tmp\ 3550}#) + (if (if #{tmp\ 3550}# + (apply (lambda (#{_\ 3556}# + #{id\ 3557}# + #{val\ 3558}# + #{e1\ 3559}# + #{e2\ 3560}#) + (and-map #{id?\ 367}# #{id\ 3557}#)) + #{tmp\ 3550}#) #f) - (apply (lambda (#{_\ 3609}# - #{id\ 3610}# - #{val\ 3611}# - #{e1\ 3612}# - #{e2\ 3613}#) - (#{chi-let\ 3552}# - #{e\ 3581}# - #{r\ 3582}# - #{w\ 3583}# - #{s\ 3584}# - #{mod\ 3585}# - #{build-let\ 620}# - #{id\ 3610}# - #{val\ 3611}# - (cons #{e1\ 3612}# #{e2\ 3613}#))) - #{tmp\ 3592}#) - ((lambda (#{tmp\ 3617}#) - (if (if #{tmp\ 3617}# - (apply (lambda (#{_\ 3624}# - #{f\ 3625}# - #{id\ 3626}# - #{val\ 3627}# - #{e1\ 3628}# - #{e2\ 3629}#) - (if (#{id?\ 666}# #{f\ 3625}#) - (and-map #{id?\ 666}# #{id\ 3626}#) + (apply (lambda (#{_\ 3567}# + #{id\ 3568}# + #{val\ 3569}# + #{e1\ 3570}# + #{e2\ 3571}#) + (#{chi-let\ 3510}# + #{e\ 3539}# + #{r\ 3540}# + #{w\ 3541}# + #{s\ 3542}# + #{mod\ 3543}# + #{build-let\ 321}# + #{id\ 3568}# + #{val\ 3569}# + (cons #{e1\ 3570}# #{e2\ 3571}#))) + #{tmp\ 3550}#) + ((lambda (#{tmp\ 3575}#) + (if (if #{tmp\ 3575}# + (apply (lambda (#{_\ 3582}# + #{f\ 3583}# + #{id\ 3584}# + #{val\ 3585}# + #{e1\ 3586}# + #{e2\ 3587}#) + (if (#{id?\ 367}# #{f\ 3583}#) + (and-map #{id?\ 367}# #{id\ 3584}#) #f)) - #{tmp\ 3617}#) + #{tmp\ 3575}#) #f) - (apply (lambda (#{_\ 3639}# - #{f\ 3640}# - #{id\ 3641}# - #{val\ 3642}# - #{e1\ 3643}# - #{e2\ 3644}#) - (#{chi-let\ 3552}# - #{e\ 3581}# - #{r\ 3582}# - #{w\ 3583}# - #{s\ 3584}# - #{mod\ 3585}# - #{build-named-let\ 622}# - (cons #{f\ 3640}# #{id\ 3641}#) - #{val\ 3642}# - (cons #{e1\ 3643}# #{e2\ 3644}#))) - #{tmp\ 3617}#) - ((lambda (#{_\ 3649}#) + (apply (lambda (#{_\ 3597}# + #{f\ 3598}# + #{id\ 3599}# + #{val\ 3600}# + #{e1\ 3601}# + #{e2\ 3602}#) + (#{chi-let\ 3510}# + #{e\ 3539}# + #{r\ 3540}# + #{w\ 3541}# + #{s\ 3542}# + #{mod\ 3543}# + #{build-named-let\ 323}# + (cons #{f\ 3598}# #{id\ 3599}#) + #{val\ 3600}# + (cons #{e1\ 3601}# #{e2\ 3602}#))) + #{tmp\ 3575}#) + ((lambda (#{_\ 3607}#) (syntax-violation 'let "bad let" - (#{source-wrap\ 737}# - #{e\ 3581}# - #{w\ 3583}# - #{s\ 3584}# - #{mod\ 3585}#))) - #{tmp\ 3591}#))) + (#{source-wrap\ 438}# + #{e\ 3539}# + #{w\ 3541}# + #{s\ 3542}# + #{mod\ 3543}#))) + #{tmp\ 3549}#))) ($sc-dispatch - #{tmp\ 3591}# + #{tmp\ 3549}# '(any any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 3591}# + #{tmp\ 3549}# '(any #(each (any any)) any . each-any)))) - #{e\ 3581}#)))) - (#{global-extend\ 662}# + #{e\ 3539}#)))) + (#{global-extend\ 363}# 'core 'letrec - (lambda (#{e\ 3650}# - #{r\ 3651}# - #{w\ 3652}# - #{s\ 3653}# - #{mod\ 3654}#) - ((lambda (#{tmp\ 3660}#) - ((lambda (#{tmp\ 3661}#) - (if (if #{tmp\ 3661}# - (apply (lambda (#{_\ 3667}# - #{id\ 3668}# - #{val\ 3669}# - #{e1\ 3670}# - #{e2\ 3671}#) - (and-map #{id?\ 666}# #{id\ 3668}#)) - #{tmp\ 3661}#) + (lambda (#{e\ 3608}# + #{r\ 3609}# + #{w\ 3610}# + #{s\ 3611}# + #{mod\ 3612}#) + ((lambda (#{tmp\ 3618}#) + ((lambda (#{tmp\ 3619}#) + (if (if #{tmp\ 3619}# + (apply (lambda (#{_\ 3625}# + #{id\ 3626}# + #{val\ 3627}# + #{e1\ 3628}# + #{e2\ 3629}#) + (and-map #{id?\ 367}# #{id\ 3626}#)) + #{tmp\ 3619}#) #f) - (apply (lambda (#{_\ 3678}# - #{id\ 3679}# - #{val\ 3680}# - #{e1\ 3681}# - #{e2\ 3682}#) - (let ((#{ids\ 3684}# #{id\ 3679}#)) - (if (not (#{valid-bound-ids?\ 729}# - #{ids\ 3684}#)) + (apply (lambda (#{_\ 3636}# + #{id\ 3637}# + #{val\ 3638}# + #{e1\ 3639}# + #{e2\ 3640}#) + (let ((#{ids\ 3642}# #{id\ 3637}#)) + (if (not (#{valid-bound-ids?\ 430}# + #{ids\ 3642}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e\ 3650}#) - (let ((#{labels\ 3688}# - (#{gen-labels\ 684}# #{ids\ 3684}#)) - (#{new-vars\ 3689}# - (map #{gen-var\ 779}# #{ids\ 3684}#))) - (let ((#{w\ 3692}# - (#{make-binding-wrap\ 713}# - #{ids\ 3684}# - #{labels\ 3688}# - #{w\ 3652}#)) - (#{r\ 3693}# - (#{extend-var-env\ 656}# - #{labels\ 3688}# - #{new-vars\ 3689}# - #{r\ 3651}#))) - (#{build-letrec\ 624}# - #{s\ 3653}# - (map syntax->datum #{ids\ 3684}#) - #{new-vars\ 3689}# - (map (lambda (#{x\ 3694}#) - (#{chi\ 751}# - #{x\ 3694}# - #{r\ 3693}# - #{w\ 3692}# - #{mod\ 3654}#)) - #{val\ 3680}#) - (#{chi-body\ 759}# - (cons #{e1\ 3681}# #{e2\ 3682}#) - (#{source-wrap\ 737}# - #{e\ 3650}# - #{w\ 3692}# - #{s\ 3653}# - #{mod\ 3654}#) - #{r\ 3693}# - #{w\ 3692}# - #{mod\ 3654}#))))))) - #{tmp\ 3661}#) - ((lambda (#{_\ 3699}#) + #{e\ 3608}#) + (let ((#{labels\ 3646}# + (#{gen-labels\ 385}# #{ids\ 3642}#)) + (#{new-vars\ 3647}# + (map #{gen-var\ 480}# #{ids\ 3642}#))) + (let ((#{w\ 3650}# + (#{make-binding-wrap\ 414}# + #{ids\ 3642}# + #{labels\ 3646}# + #{w\ 3610}#)) + (#{r\ 3651}# + (#{extend-var-env\ 357}# + #{labels\ 3646}# + #{new-vars\ 3647}# + #{r\ 3609}#))) + (#{build-letrec\ 325}# + #{s\ 3611}# + (map syntax->datum #{ids\ 3642}#) + #{new-vars\ 3647}# + (map (lambda (#{x\ 3652}#) + (#{chi\ 452}# + #{x\ 3652}# + #{r\ 3651}# + #{w\ 3650}# + #{mod\ 3612}#)) + #{val\ 3638}#) + (#{chi-body\ 460}# + (cons #{e1\ 3639}# #{e2\ 3640}#) + (#{source-wrap\ 438}# + #{e\ 3608}# + #{w\ 3650}# + #{s\ 3611}# + #{mod\ 3612}#) + #{r\ 3651}# + #{w\ 3650}# + #{mod\ 3612}#))))))) + #{tmp\ 3619}#) + ((lambda (#{_\ 3657}#) (syntax-violation 'letrec "bad letrec" - (#{source-wrap\ 737}# - #{e\ 3650}# - #{w\ 3652}# - #{s\ 3653}# - #{mod\ 3654}#))) - #{tmp\ 3660}#))) + (#{source-wrap\ 438}# + #{e\ 3608}# + #{w\ 3610}# + #{s\ 3611}# + #{mod\ 3612}#))) + #{tmp\ 3618}#))) ($sc-dispatch - #{tmp\ 3660}# + #{tmp\ 3618}# '(any #(each (any any)) any . each-any)))) - #{e\ 3650}#))) - (#{global-extend\ 662}# + #{e\ 3608}#))) + (#{global-extend\ 363}# 'core 'set! - (lambda (#{e\ 3700}# - #{r\ 3701}# - #{w\ 3702}# - #{s\ 3703}# - #{mod\ 3704}#) - ((lambda (#{tmp\ 3710}#) - ((lambda (#{tmp\ 3711}#) - (if (if #{tmp\ 3711}# - (apply (lambda (#{_\ 3715}# #{id\ 3716}# #{val\ 3717}#) - (#{id?\ 666}# #{id\ 3716}#)) - #{tmp\ 3711}#) + (lambda (#{e\ 3658}# + #{r\ 3659}# + #{w\ 3660}# + #{s\ 3661}# + #{mod\ 3662}#) + ((lambda (#{tmp\ 3668}#) + ((lambda (#{tmp\ 3669}#) + (if (if #{tmp\ 3669}# + (apply (lambda (#{_\ 3673}# #{id\ 3674}# #{val\ 3675}#) + (#{id?\ 367}# #{id\ 3674}#)) + #{tmp\ 3669}#) #f) - (apply (lambda (#{_\ 3721}# #{id\ 3722}# #{val\ 3723}#) - (let ((#{val\ 3726}# - (#{chi\ 751}# - #{val\ 3723}# - #{r\ 3701}# - #{w\ 3702}# - #{mod\ 3704}#)) - (#{n\ 3727}# - (#{id-var-name\ 723}# - #{id\ 3722}# - #{w\ 3702}#))) - (let ((#{b\ 3729}# - (#{lookup\ 660}# - #{n\ 3727}# - #{r\ 3701}# - #{mod\ 3704}#))) - (let ((#{atom-key\ 3732}# - (#{binding-type\ 649}# #{b\ 3729}#))) - (if (memv #{atom-key\ 3732}# + (apply (lambda (#{_\ 3679}# #{id\ 3680}# #{val\ 3681}#) + (let ((#{val\ 3684}# + (#{chi\ 452}# + #{val\ 3681}# + #{r\ 3659}# + #{w\ 3660}# + #{mod\ 3662}#)) + (#{n\ 3685}# + (#{id-var-name\ 424}# + #{id\ 3680}# + #{w\ 3660}#))) + (let ((#{b\ 3687}# + (#{lookup\ 361}# + #{n\ 3685}# + #{r\ 3659}# + #{mod\ 3662}#))) + (let ((#{atom-key\ 3690}# + (#{binding-type\ 350}# #{b\ 3687}#))) + (if (memv #{atom-key\ 3690}# '(lexical)) - (#{build-lexical-assignment\ 596}# - #{s\ 3703}# - (syntax->datum #{id\ 3722}#) - (#{binding-value\ 651}# #{b\ 3729}#) - #{val\ 3726}#) - (if (memv #{atom-key\ 3732}# + (#{build-lexical-assignment\ 297}# + #{s\ 3661}# + (syntax->datum #{id\ 3680}#) + (#{binding-value\ 352}# #{b\ 3687}#) + #{val\ 3684}#) + (if (memv #{atom-key\ 3690}# '(global)) - (#{build-global-assignment\ 602}# - #{s\ 3703}# - #{n\ 3727}# - #{val\ 3726}# - #{mod\ 3704}#) - (if (memv #{atom-key\ 3732}# + (#{build-global-assignment\ 303}# + #{s\ 3661}# + #{n\ 3685}# + #{val\ 3684}# + #{mod\ 3662}#) + (if (memv #{atom-key\ 3690}# '(displaced-lexical)) (syntax-violation 'set! "identifier out of context" - (#{wrap\ 735}# - #{id\ 3722}# - #{w\ 3702}# - #{mod\ 3704}#)) + (#{wrap\ 436}# + #{id\ 3680}# + #{w\ 3660}# + #{mod\ 3662}#)) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 737}# - #{e\ 3700}# - #{w\ 3702}# - #{s\ 3703}# - #{mod\ 3704}#))))))))) - #{tmp\ 3711}#) - ((lambda (#{tmp\ 3737}#) - (if #{tmp\ 3737}# - (apply (lambda (#{_\ 3742}# - #{head\ 3743}# - #{tail\ 3744}# - #{val\ 3745}#) + (#{source-wrap\ 438}# + #{e\ 3658}# + #{w\ 3660}# + #{s\ 3661}# + #{mod\ 3662}#))))))))) + #{tmp\ 3669}#) + ((lambda (#{tmp\ 3695}#) + (if #{tmp\ 3695}# + (apply (lambda (#{_\ 3700}# + #{head\ 3701}# + #{tail\ 3702}# + #{val\ 3703}#) (call-with-values (lambda () - (#{syntax-type\ 747}# - #{head\ 3743}# - #{r\ 3701}# + (#{syntax-type\ 448}# + #{head\ 3701}# + #{r\ 3659}# '(()) #f #f - #{mod\ 3704}# + #{mod\ 3662}# #t)) - (lambda (#{type\ 3748}# - #{value\ 3749}# - #{ee\ 3750}# - #{ww\ 3751}# - #{ss\ 3752}# - #{modmod\ 3753}#) - (if (memv #{type\ 3748}# + (lambda (#{type\ 3706}# + #{value\ 3707}# + #{ee\ 3708}# + #{ww\ 3709}# + #{ss\ 3710}# + #{modmod\ 3711}#) + (if (memv #{type\ 3706}# '(module-ref)) - (let ((#{val\ 3762}# - (#{chi\ 751}# - #{val\ 3745}# - #{r\ 3701}# - #{w\ 3702}# - #{mod\ 3704}#))) + (let ((#{val\ 3720}# + (#{chi\ 452}# + #{val\ 3703}# + #{r\ 3659}# + #{w\ 3660}# + #{mod\ 3662}#))) (call-with-values (lambda () - (#{value\ 3749}# - (cons #{head\ 3743}# - #{tail\ 3744}#) - #{r\ 3701}# - #{w\ 3702}#)) - (lambda (#{e\ 3764}# - #{r\ 3765}# - #{w\ 3766}# - #{s*\ 3767}# - #{mod\ 3768}#) - ((lambda (#{tmp\ 3774}#) - ((lambda (#{tmp\ 3775}#) - (if (if #{tmp\ 3775}# - (apply (lambda (#{e\ 3777}#) - (#{id?\ 666}# - #{e\ 3777}#)) - #{tmp\ 3775}#) + (#{value\ 3707}# + (cons #{head\ 3701}# + #{tail\ 3702}#) + #{r\ 3659}# + #{w\ 3660}#)) + (lambda (#{e\ 3722}# + #{r\ 3723}# + #{w\ 3724}# + #{s*\ 3725}# + #{mod\ 3726}#) + ((lambda (#{tmp\ 3732}#) + ((lambda (#{tmp\ 3733}#) + (if (if #{tmp\ 3733}# + (apply (lambda (#{e\ 3735}#) + (#{id?\ 367}# + #{e\ 3735}#)) + #{tmp\ 3733}#) #f) - (apply (lambda (#{e\ 3779}#) - (#{build-global-assignment\ 602}# - #{s\ 3703}# + (apply (lambda (#{e\ 3737}#) + (#{build-global-assignment\ 303}# + #{s\ 3661}# (syntax->datum - #{e\ 3779}#) - #{val\ 3762}# - #{mod\ 3768}#)) - #{tmp\ 3775}#) + #{e\ 3737}#) + #{val\ 3720}# + #{mod\ 3726}#)) + #{tmp\ 3733}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3774}#))) - (list #{tmp\ 3774}#))) - #{e\ 3764}#)))) - (#{build-application\ 588}# - #{s\ 3703}# - (#{chi\ 751}# + #{tmp\ 3732}#))) + (list #{tmp\ 3732}#))) + #{e\ 3722}#)))) + (#{build-application\ 289}# + #{s\ 3661}# + (#{chi\ 452}# (list '#(syntax-object setter ((top) @@ -9410,22 +10212,22 @@ (top) (top) (top)) - #("i3754" - "i3755" - "i3756" - "i3757" - "i3758" - "i3759")) + #("i3712" + "i3713" + "i3714" + "i3715" + "i3716" + "i3717")) #(ribcage #(_ head tail val) #((top) (top) (top) (top)) - #("i3738" - "i3739" - "i3740" - "i3741")) + #("i3696" + "i3697" + "i3698" + "i3699")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9434,11 +10236,11 @@ (top) (top) (top)) - #("i3705" - "i3706" - "i3707" - "i3708" - "i3709")) + #("i3663" + "i3664" + "i3665" + "i3666" + "i3667")) #(ribcage (lambda-var-list gen-var @@ -9556,6 +10358,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -9673,179 +10493,216 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) - ((top) (top)) - ("i467" "i465"))) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile)) - #{head\ 3743}#) - #{r\ 3701}# - #{w\ 3702}# - #{mod\ 3704}#) - (map (lambda (#{e\ 3781}#) - (#{chi\ 751}# - #{e\ 3781}# - #{r\ 3701}# - #{w\ 3702}# - #{mod\ 3704}#)) + #{head\ 3701}#) + #{r\ 3659}# + #{w\ 3660}# + #{mod\ 3662}#) + (map (lambda (#{e\ 3739}#) + (#{chi\ 452}# + #{e\ 3739}# + #{r\ 3659}# + #{w\ 3660}# + #{mod\ 3662}#)) (append - #{tail\ 3744}# - (list #{val\ 3745}#)))))))) - #{tmp\ 3737}#) - ((lambda (#{_\ 3785}#) + #{tail\ 3702}# + (list #{val\ 3703}#)))))))) + #{tmp\ 3695}#) + ((lambda (#{_\ 3743}#) (syntax-violation 'set! "bad set!" - (#{source-wrap\ 737}# - #{e\ 3700}# - #{w\ 3702}# - #{s\ 3703}# - #{mod\ 3704}#))) - #{tmp\ 3710}#))) + (#{source-wrap\ 438}# + #{e\ 3658}# + #{w\ 3660}# + #{s\ 3661}# + #{mod\ 3662}#))) + #{tmp\ 3668}#))) ($sc-dispatch - #{tmp\ 3710}# + #{tmp\ 3668}# '(any (any . each-any) any))))) ($sc-dispatch - #{tmp\ 3710}# + #{tmp\ 3668}# '(any any any)))) - #{e\ 3700}#))) - (#{global-extend\ 662}# + #{e\ 3658}#))) + (#{global-extend\ 363}# 'module-ref '@ - (lambda (#{e\ 3786}# #{r\ 3787}# #{w\ 3788}#) - ((lambda (#{tmp\ 3792}#) - ((lambda (#{tmp\ 3793}#) - (if (if #{tmp\ 3793}# - (apply (lambda (#{_\ 3797}# #{mod\ 3798}# #{id\ 3799}#) - (if (and-map #{id?\ 666}# #{mod\ 3798}#) - (#{id?\ 666}# #{id\ 3799}#) + (lambda (#{e\ 3744}# #{r\ 3745}# #{w\ 3746}#) + ((lambda (#{tmp\ 3750}#) + ((lambda (#{tmp\ 3751}#) + (if (if #{tmp\ 3751}# + (apply (lambda (#{_\ 3755}# #{mod\ 3756}# #{id\ 3757}#) + (if (and-map #{id?\ 367}# #{mod\ 3756}#) + (#{id?\ 367}# #{id\ 3757}#) #f)) - #{tmp\ 3793}#) + #{tmp\ 3751}#) #f) - (apply (lambda (#{_\ 3806}# #{mod\ 3807}# #{id\ 3808}#) + (apply (lambda (#{_\ 3764}# #{mod\ 3765}# #{id\ 3766}#) (values - (syntax->datum #{id\ 3808}#) - #{r\ 3787}# - #{w\ 3788}# + (syntax->datum #{id\ 3766}#) + #{r\ 3745}# + #{w\ 3746}# #f (syntax->datum (cons '#(syntax-object @@ -9854,12 +10711,12 @@ #(ribcage #(_ mod id) #((top) (top) (top)) - #("i3803" "i3804" "i3805")) + #("i3761" "i3762" "i3763")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("i3789" "i3790" "i3791")) + #("i3747" "i3748" "i3749")) #(ribcage (lambda-var-list gen-var @@ -9977,6 +10834,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -10094,194 +10969,232 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i467" "i465"))) + (define-structure + define-expansion-constructors + and-map*) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile)) - #{mod\ 3807}#)))) - #{tmp\ 3793}#) + #{mod\ 3765}#)))) + #{tmp\ 3751}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3792}#))) + #{tmp\ 3750}#))) ($sc-dispatch - #{tmp\ 3792}# + #{tmp\ 3750}# '(any each-any any)))) - #{e\ 3786}#))) - (#{global-extend\ 662}# + #{e\ 3744}#))) + (#{global-extend\ 363}# 'module-ref '@@ - (lambda (#{e\ 3810}# #{r\ 3811}# #{w\ 3812}#) - (letrec ((#{remodulate\ 3817}# - (lambda (#{x\ 3818}# #{mod\ 3819}#) - (if (pair? #{x\ 3818}#) - (cons (#{remodulate\ 3817}# - (car #{x\ 3818}#) - #{mod\ 3819}#) - (#{remodulate\ 3817}# - (cdr #{x\ 3818}#) - #{mod\ 3819}#)) - (if (#{syntax-object?\ 630}# #{x\ 3818}#) - (#{make-syntax-object\ 628}# - (#{remodulate\ 3817}# - (#{syntax-object-expression\ 632}# #{x\ 3818}#) - #{mod\ 3819}#) - (#{syntax-object-wrap\ 634}# #{x\ 3818}#) - #{mod\ 3819}#) - (if (vector? #{x\ 3818}#) - (let ((#{n\ 3830}# (vector-length #{x\ 3818}#))) - (let ((#{v\ 3832}# (make-vector #{n\ 3830}#))) - (letrec ((#{loop\ 3835}# - (lambda (#{i\ 3836}#) - (if (#{fx=\ 571}# - #{i\ 3836}# - #{n\ 3830}#) - (begin (if #f #f) #{v\ 3832}#) + (lambda (#{e\ 3768}# #{r\ 3769}# #{w\ 3770}#) + (letrec ((#{remodulate\ 3775}# + (lambda (#{x\ 3776}# #{mod\ 3777}#) + (if (pair? #{x\ 3776}#) + (cons (#{remodulate\ 3775}# + (car #{x\ 3776}#) + #{mod\ 3777}#) + (#{remodulate\ 3775}# + (cdr #{x\ 3776}#) + #{mod\ 3777}#)) + (if (#{syntax-object?\ 331}# #{x\ 3776}#) + (#{make-syntax-object\ 329}# + (#{remodulate\ 3775}# + (#{syntax-object-expression\ 333}# #{x\ 3776}#) + #{mod\ 3777}#) + (#{syntax-object-wrap\ 335}# #{x\ 3776}#) + #{mod\ 3777}#) + (if (vector? #{x\ 3776}#) + (let ((#{n\ 3788}# (vector-length #{x\ 3776}#))) + (let ((#{v\ 3790}# (make-vector #{n\ 3788}#))) + (letrec ((#{loop\ 3793}# + (lambda (#{i\ 3794}#) + (if (#{fx=\ 272}# + #{i\ 3794}# + #{n\ 3788}#) + (begin (if #f #f) #{v\ 3790}#) (begin (vector-set! - #{v\ 3832}# - #{i\ 3836}# - (#{remodulate\ 3817}# + #{v\ 3790}# + #{i\ 3794}# + (#{remodulate\ 3775}# (vector-ref - #{x\ 3818}# - #{i\ 3836}#) - #{mod\ 3819}#)) - (#{loop\ 3835}# - (#{fx+\ 567}# - #{i\ 3836}# + #{x\ 3776}# + #{i\ 3794}#) + #{mod\ 3777}#)) + (#{loop\ 3793}# + (#{fx+\ 268}# + #{i\ 3794}# 1))))))) - (#{loop\ 3835}# 0)))) - #{x\ 3818}#)))))) - ((lambda (#{tmp\ 3840}#) - ((lambda (#{tmp\ 3841}#) - (if (if #{tmp\ 3841}# - (apply (lambda (#{_\ 3845}# - #{mod\ 3846}# - #{exp\ 3847}#) - (and-map #{id?\ 666}# #{mod\ 3846}#)) - #{tmp\ 3841}#) + (#{loop\ 3793}# 0)))) + #{x\ 3776}#)))))) + ((lambda (#{tmp\ 3798}#) + ((lambda (#{tmp\ 3799}#) + (if (if #{tmp\ 3799}# + (apply (lambda (#{_\ 3803}# + #{mod\ 3804}# + #{exp\ 3805}#) + (and-map #{id?\ 367}# #{mod\ 3804}#)) + #{tmp\ 3799}#) #f) - (apply (lambda (#{_\ 3852}# #{mod\ 3853}# #{exp\ 3854}#) - (let ((#{mod\ 3856}# + (apply (lambda (#{_\ 3810}# #{mod\ 3811}# #{exp\ 3812}#) + (let ((#{mod\ 3814}# (syntax->datum (cons '#(syntax-object private @@ -10289,15 +11202,15 @@ #(ribcage #(_ mod exp) #((top) (top) (top)) - #("i3849" "i3850" "i3851")) + #("i3807" "i3808" "i3809")) #(ribcage (remodulate) ((top)) - ("i3816")) + ("i3774")) #(ribcage #(e r w) #((top) (top) (top)) - #("i3813" "i3814" "i3815")) + #("i3771" "i3772" "i3773")) #(ribcage (lambda-var-list gen-var @@ -10415,6 +11328,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -10532,312 +11463,350 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage - (define-structure and-map*) - ((top) (top)) - ("i467" "i465"))) + (define-structure + define-expansion-constructors + and-map*) + ((top) (top) (top)) + ("i28" "i27" "i25"))) (hygiene guile)) - #{mod\ 3853}#)))) + #{mod\ 3811}#)))) (values - (#{remodulate\ 3817}# - #{exp\ 3854}# - #{mod\ 3856}#) - #{r\ 3811}# - #{w\ 3812}# - (#{source-annotation\ 645}# #{exp\ 3854}#) - #{mod\ 3856}#))) - #{tmp\ 3841}#) + (#{remodulate\ 3775}# + #{exp\ 3812}# + #{mod\ 3814}#) + #{r\ 3769}# + #{w\ 3770}# + (#{source-annotation\ 346}# #{exp\ 3812}#) + #{mod\ 3814}#))) + #{tmp\ 3799}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3840}#))) + #{tmp\ 3798}#))) ($sc-dispatch - #{tmp\ 3840}# + #{tmp\ 3798}# '(any each-any any)))) - #{e\ 3810}#)))) - (#{global-extend\ 662}# + #{e\ 3768}#)))) + (#{global-extend\ 363}# 'core 'if - (lambda (#{e\ 3858}# - #{r\ 3859}# - #{w\ 3860}# - #{s\ 3861}# - #{mod\ 3862}#) - ((lambda (#{tmp\ 3868}#) - ((lambda (#{tmp\ 3869}#) - (if #{tmp\ 3869}# - (apply (lambda (#{_\ 3873}# #{test\ 3874}# #{then\ 3875}#) - (#{build-conditional\ 590}# - #{s\ 3861}# - (#{chi\ 751}# - #{test\ 3874}# - #{r\ 3859}# - #{w\ 3860}# - #{mod\ 3862}#) - (#{chi\ 751}# - #{then\ 3875}# - #{r\ 3859}# - #{w\ 3860}# - #{mod\ 3862}#) - (#{build-void\ 586}# #f))) - #{tmp\ 3869}#) - ((lambda (#{tmp\ 3877}#) - (if #{tmp\ 3877}# - (apply (lambda (#{_\ 3882}# - #{test\ 3883}# - #{then\ 3884}# - #{else\ 3885}#) - (#{build-conditional\ 590}# - #{s\ 3861}# - (#{chi\ 751}# - #{test\ 3883}# - #{r\ 3859}# - #{w\ 3860}# - #{mod\ 3862}#) - (#{chi\ 751}# - #{then\ 3884}# - #{r\ 3859}# - #{w\ 3860}# - #{mod\ 3862}#) - (#{chi\ 751}# - #{else\ 3885}# - #{r\ 3859}# - #{w\ 3860}# - #{mod\ 3862}#))) - #{tmp\ 3877}#) + (lambda (#{e\ 3816}# + #{r\ 3817}# + #{w\ 3818}# + #{s\ 3819}# + #{mod\ 3820}#) + ((lambda (#{tmp\ 3826}#) + ((lambda (#{tmp\ 3827}#) + (if #{tmp\ 3827}# + (apply (lambda (#{_\ 3831}# #{test\ 3832}# #{then\ 3833}#) + (#{build-conditional\ 291}# + #{s\ 3819}# + (#{chi\ 452}# + #{test\ 3832}# + #{r\ 3817}# + #{w\ 3818}# + #{mod\ 3820}#) + (#{chi\ 452}# + #{then\ 3833}# + #{r\ 3817}# + #{w\ 3818}# + #{mod\ 3820}#) + (#{build-void\ 287}# #f))) + #{tmp\ 3827}#) + ((lambda (#{tmp\ 3835}#) + (if #{tmp\ 3835}# + (apply (lambda (#{_\ 3840}# + #{test\ 3841}# + #{then\ 3842}# + #{else\ 3843}#) + (#{build-conditional\ 291}# + #{s\ 3819}# + (#{chi\ 452}# + #{test\ 3841}# + #{r\ 3817}# + #{w\ 3818}# + #{mod\ 3820}#) + (#{chi\ 452}# + #{then\ 3842}# + #{r\ 3817}# + #{w\ 3818}# + #{mod\ 3820}#) + (#{chi\ 452}# + #{else\ 3843}# + #{r\ 3817}# + #{w\ 3818}# + #{mod\ 3820}#))) + #{tmp\ 3835}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3868}#))) + #{tmp\ 3826}#))) ($sc-dispatch - #{tmp\ 3868}# + #{tmp\ 3826}# '(any any any any))))) ($sc-dispatch - #{tmp\ 3868}# + #{tmp\ 3826}# '(any any any)))) - #{e\ 3858}#))) - (#{global-extend\ 662}# + #{e\ 3816}#))) + (#{global-extend\ 363}# 'core 'with-fluids - (lambda (#{e\ 3886}# - #{r\ 3887}# - #{w\ 3888}# - #{s\ 3889}# - #{mod\ 3890}#) - ((lambda (#{tmp\ 3896}#) - ((lambda (#{tmp\ 3897}#) - (if #{tmp\ 3897}# - (apply (lambda (#{_\ 3903}# - #{fluid\ 3904}# - #{val\ 3905}# - #{b\ 3906}# - #{b*\ 3907}#) - (#{build-dynlet\ 592}# - #{s\ 3889}# - (map (lambda (#{x\ 3908}#) - (#{chi\ 751}# - #{x\ 3908}# - #{r\ 3887}# - #{w\ 3888}# - #{mod\ 3890}#)) - #{fluid\ 3904}#) - (map (lambda (#{x\ 3911}#) - (#{chi\ 751}# - #{x\ 3911}# - #{r\ 3887}# - #{w\ 3888}# - #{mod\ 3890}#)) - #{val\ 3905}#) - (#{chi-body\ 759}# - (cons #{b\ 3906}# #{b*\ 3907}#) - (#{source-wrap\ 737}# - #{e\ 3886}# - #{w\ 3888}# - #{s\ 3889}# - #{mod\ 3890}#) - #{r\ 3887}# - #{w\ 3888}# - #{mod\ 3890}#))) - #{tmp\ 3897}#) + (lambda (#{e\ 3844}# + #{r\ 3845}# + #{w\ 3846}# + #{s\ 3847}# + #{mod\ 3848}#) + ((lambda (#{tmp\ 3854}#) + ((lambda (#{tmp\ 3855}#) + (if #{tmp\ 3855}# + (apply (lambda (#{_\ 3861}# + #{fluid\ 3862}# + #{val\ 3863}# + #{b\ 3864}# + #{b*\ 3865}#) + (#{build-dynlet\ 293}# + #{s\ 3847}# + (map (lambda (#{x\ 3866}#) + (#{chi\ 452}# + #{x\ 3866}# + #{r\ 3845}# + #{w\ 3846}# + #{mod\ 3848}#)) + #{fluid\ 3862}#) + (map (lambda (#{x\ 3869}#) + (#{chi\ 452}# + #{x\ 3869}# + #{r\ 3845}# + #{w\ 3846}# + #{mod\ 3848}#)) + #{val\ 3863}#) + (#{chi-body\ 460}# + (cons #{b\ 3864}# #{b*\ 3865}#) + (#{source-wrap\ 438}# + #{e\ 3844}# + #{w\ 3846}# + #{s\ 3847}# + #{mod\ 3848}#) + #{r\ 3845}# + #{w\ 3846}# + #{mod\ 3848}#))) + #{tmp\ 3855}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 3896}#))) + #{tmp\ 3854}#))) ($sc-dispatch - #{tmp\ 3896}# + #{tmp\ 3854}# '(any #(each (any any)) any . each-any)))) - #{e\ 3886}#))) - (#{global-extend\ 662}# + #{e\ 3844}#))) + (#{global-extend\ 363}# 'begin 'begin '()) - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'define 'define '()) - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'define-syntax 'define-syntax '()) - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'eval-when 'eval-when '()) - (#{global-extend\ 662}# + (#{global-extend\ 363}# 'core 'syntax-case - (letrec ((#{gen-syntax-case\ 3922}# - (lambda (#{x\ 3923}# - #{keys\ 3924}# - #{clauses\ 3925}# - #{r\ 3926}# - #{mod\ 3927}#) - (if (null? #{clauses\ 3925}#) - (#{build-application\ 588}# + (letrec ((#{gen-syntax-case\ 3880}# + (lambda (#{x\ 3881}# + #{keys\ 3882}# + #{clauses\ 3883}# + #{r\ 3884}# + #{mod\ 3885}#) + (if (null? #{clauses\ 3883}#) + (#{build-application\ 289}# #f - (#{build-primref\ 614}# + (#{build-primref\ 315}# #f 'syntax-violation) - (list (#{build-data\ 616}# #f #f) - (#{build-data\ 616}# + (list (#{build-data\ 317}# #f #f) + (#{build-data\ 317}# #f "source expression failed to match any pattern") - #{x\ 3923}#)) - ((lambda (#{tmp\ 3937}#) - ((lambda (#{tmp\ 3938}#) - (if #{tmp\ 3938}# - (apply (lambda (#{pat\ 3941}# #{exp\ 3942}#) - (if (if (#{id?\ 666}# #{pat\ 3941}#) + #{x\ 3881}#)) + ((lambda (#{tmp\ 3895}#) + ((lambda (#{tmp\ 3896}#) + (if #{tmp\ 3896}# + (apply (lambda (#{pat\ 3899}# #{exp\ 3900}#) + (if (if (#{id?\ 367}# #{pat\ 3899}#) (and-map - (lambda (#{x\ 3945}#) - (not (#{free-id=?\ 725}# - #{pat\ 3941}# - #{x\ 3945}#))) + (lambda (#{x\ 3903}#) + (not (#{free-id=?\ 426}# + #{pat\ 3899}# + #{x\ 3903}#))) (cons '#(syntax-object ... ((top) #(ribcage #(pat exp) #((top) (top)) - #("i3939" "i3940")) + #("i3897" "i3898")) #(ribcage () () ()) #(ribcage #(x @@ -10850,11 +11819,11 @@ (top) (top) (top)) - #("i3928" - "i3929" - "i3930" - "i3931" - "i3932")) + #("i3886" + "i3887" + "i3888" + "i3889" + "i3890")) #(ribcage (gen-syntax-case gen-clause @@ -10864,10 +11833,10 @@ (top) (top) (top)) - ("i3921" - "i3919" - "i3917" - "i3915")) + ("i3879" + "i3877" + "i3875" + "i3873")) #(ribcage (lambda-var-list gen-var @@ -10985,6 +11954,24 @@ fx= fx- fx+ + make-dynlet + make-letrec + make-let + make-lambda-case + make-lambda + make-sequence + make-application + make-conditional + make-toplevel-define + make-toplevel-set + make-toplevel-ref + make-module-set + make-module-ref + make-lexical-set + make-lexical-ref + make-primitive-ref + make-const + make-void *mode*) ((top) (top) @@ -11102,1032 +12089,1071 @@ (top) (top) (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) (top)) - ("i780" - "i778" - "i776" - "i774" - "i772" - "i770" - "i768" - "i766" - "i764" - "i762" - "i760" - "i758" - "i756" - "i754" - "i752" - "i750" - "i748" - "i746" - "i744" - "i742" - "i740" - "i738" - "i736" - "i734" - "i732" - "i730" - "i728" - "i726" - "i724" - "i722" - "i720" - "i718" - "i716" - "i714" - "i712" - "i710" - "i709" - "i708" - "i706" - "i705" - "i704" - "i703" - "i702" - "i700" - "i698" - "i696" - "i694" - "i692" - "i690" - "i688" - "i686" - "i683" - "i681" - "i680" - "i679" - "i678" - "i677" - "i676" - "i674" - "i672" - "i670" - "i668" - "i667" - "i665" - "i663" - "i661" - "i659" - "i657" - "i655" - "i653" - "i652" - "i650" - "i648" - "i647" - "i646" - "i644" - "i643" - "i641" - "i639" - "i637" - "i635" - "i633" - "i631" - "i629" - "i627" - "i625" - "i623" - "i621" - "i619" - "i617" - "i615" - "i613" - "i611" - "i609" - "i607" - "i605" - "i603" - "i601" - "i599" - "i597" - "i595" - "i593" - "i591" - "i589" - "i587" - "i585" - "i583" - "i581" - "i579" - "i578" - "i576" - "i574" - "i572" - "i570" - "i568" - "i566" - "i564")) + ("i481" + "i479" + "i477" + "i475" + "i473" + "i471" + "i469" + "i467" + "i465" + "i463" + "i461" + "i459" + "i457" + "i455" + "i453" + "i451" + "i449" + "i447" + "i445" + "i443" + "i441" + "i439" + "i437" + "i435" + "i433" + "i431" + "i429" + "i427" + "i425" + "i423" + "i421" + "i419" + "i417" + "i415" + "i413" + "i411" + "i410" + "i409" + "i407" + "i406" + "i405" + "i404" + "i403" + "i401" + "i399" + "i397" + "i395" + "i393" + "i391" + "i389" + "i387" + "i384" + "i382" + "i381" + "i380" + "i379" + "i378" + "i377" + "i375" + "i373" + "i371" + "i369" + "i368" + "i366" + "i364" + "i362" + "i360" + "i358" + "i356" + "i354" + "i353" + "i351" + "i349" + "i348" + "i347" + "i345" + "i344" + "i342" + "i340" + "i338" + "i336" + "i334" + "i332" + "i330" + "i328" + "i326" + "i324" + "i322" + "i320" + "i318" + "i316" + "i314" + "i312" + "i310" + "i308" + "i306" + "i304" + "i302" + "i300" + "i298" + "i296" + "i294" + "i292" + "i290" + "i288" + "i286" + "i284" + "i282" + "i280" + "i279" + "i277" + "i275" + "i273" + "i271" + "i269" + "i267" + "i265" + "i263" + "i261" + "i259" + "i257" + "i255" + "i253" + "i251" + "i249" + "i247" + "i245" + "i243" + "i241" + "i239" + "i237" + "i235" + "i233" + "i231" + "i228")) #(ribcage (define-structure + define-expansion-constructors and-map*) - ((top) (top)) - ("i467" "i465"))) + ((top) (top) (top)) + ("i28" + "i27" + "i25"))) (hygiene guile)) - #{keys\ 3924}#)) + #{keys\ 3882}#)) #f) - (let ((#{labels\ 3949}# - (list (#{gen-label\ 682}#))) - (#{var\ 3950}# - (#{gen-var\ 779}# - #{pat\ 3941}#))) - (#{build-application\ 588}# + (let ((#{labels\ 3907}# + (list (#{gen-label\ 383}#))) + (#{var\ 3908}# + (#{gen-var\ 480}# + #{pat\ 3899}#))) + (#{build-application\ 289}# #f - (#{build-simple-lambda\ 608}# + (#{build-simple-lambda\ 309}# #f (list (syntax->datum - #{pat\ 3941}#)) + #{pat\ 3899}#)) #f - (list #{var\ 3950}#) + (list #{var\ 3908}#) '() - (#{chi\ 751}# - #{exp\ 3942}# - (#{extend-env\ 654}# - #{labels\ 3949}# + (#{chi\ 452}# + #{exp\ 3900}# + (#{extend-env\ 355}# + #{labels\ 3907}# (list (cons 'syntax - (cons #{var\ 3950}# + (cons #{var\ 3908}# 0))) - #{r\ 3926}#) - (#{make-binding-wrap\ 713}# - (list #{pat\ 3941}#) - #{labels\ 3949}# + #{r\ 3884}#) + (#{make-binding-wrap\ 414}# + (list #{pat\ 3899}#) + #{labels\ 3907}# '(())) - #{mod\ 3927}#)) - (list #{x\ 3923}#))) - (#{gen-clause\ 3920}# - #{x\ 3923}# - #{keys\ 3924}# - (cdr #{clauses\ 3925}#) - #{r\ 3926}# - #{pat\ 3941}# + #{mod\ 3885}#)) + (list #{x\ 3881}#))) + (#{gen-clause\ 3878}# + #{x\ 3881}# + #{keys\ 3882}# + (cdr #{clauses\ 3883}#) + #{r\ 3884}# + #{pat\ 3899}# #t - #{exp\ 3942}# - #{mod\ 3927}#))) - #{tmp\ 3938}#) - ((lambda (#{tmp\ 3956}#) - (if #{tmp\ 3956}# - (apply (lambda (#{pat\ 3960}# - #{fender\ 3961}# - #{exp\ 3962}#) - (#{gen-clause\ 3920}# - #{x\ 3923}# - #{keys\ 3924}# - (cdr #{clauses\ 3925}#) - #{r\ 3926}# - #{pat\ 3960}# - #{fender\ 3961}# - #{exp\ 3962}# - #{mod\ 3927}#)) - #{tmp\ 3956}#) - ((lambda (#{_\ 3964}#) + #{exp\ 3900}# + #{mod\ 3885}#))) + #{tmp\ 3896}#) + ((lambda (#{tmp\ 3914}#) + (if #{tmp\ 3914}# + (apply (lambda (#{pat\ 3918}# + #{fender\ 3919}# + #{exp\ 3920}#) + (#{gen-clause\ 3878}# + #{x\ 3881}# + #{keys\ 3882}# + (cdr #{clauses\ 3883}#) + #{r\ 3884}# + #{pat\ 3918}# + #{fender\ 3919}# + #{exp\ 3920}# + #{mod\ 3885}#)) + #{tmp\ 3914}#) + ((lambda (#{_\ 3922}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses\ 3925}#))) - #{tmp\ 3937}#))) + (car #{clauses\ 3883}#))) + #{tmp\ 3895}#))) ($sc-dispatch - #{tmp\ 3937}# + #{tmp\ 3895}# '(any any any))))) - ($sc-dispatch #{tmp\ 3937}# (quote (any any))))) - (car #{clauses\ 3925}#))))) - (#{gen-clause\ 3920}# - (lambda (#{x\ 3965}# - #{keys\ 3966}# - #{clauses\ 3967}# - #{r\ 3968}# - #{pat\ 3969}# - #{fender\ 3970}# - #{exp\ 3971}# - #{mod\ 3972}#) + ($sc-dispatch #{tmp\ 3895}# (quote (any any))))) + (car #{clauses\ 3883}#))))) + (#{gen-clause\ 3878}# + (lambda (#{x\ 3923}# + #{keys\ 3924}# + #{clauses\ 3925}# + #{r\ 3926}# + #{pat\ 3927}# + #{fender\ 3928}# + #{exp\ 3929}# + #{mod\ 3930}#) (call-with-values (lambda () - (#{convert-pattern\ 3916}# - #{pat\ 3969}# - #{keys\ 3966}#)) - (lambda (#{p\ 3981}# #{pvars\ 3982}#) - (if (not (#{distinct-bound-ids?\ 731}# - (map car #{pvars\ 3982}#))) + (#{convert-pattern\ 3874}# + #{pat\ 3927}# + #{keys\ 3924}#)) + (lambda (#{p\ 3939}# #{pvars\ 3940}#) + (if (not (#{distinct-bound-ids?\ 432}# + (map car #{pvars\ 3940}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat\ 3969}#) + #{pat\ 3927}#) (if (not (and-map - (lambda (#{x\ 3989}#) - (not (#{ellipsis?\ 767}# - (car #{x\ 3989}#)))) - #{pvars\ 3982}#)) + (lambda (#{x\ 3947}#) + (not (#{ellipsis?\ 468}# + (car #{x\ 3947}#)))) + #{pvars\ 3940}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat\ 3969}#) - (let ((#{y\ 3993}# - (#{gen-var\ 779}# (quote tmp)))) - (#{build-application\ 588}# + #{pat\ 3927}#) + (let ((#{y\ 3951}# + (#{gen-var\ 480}# (quote tmp)))) + (#{build-application\ 289}# #f - (#{build-simple-lambda\ 608}# + (#{build-simple-lambda\ 309}# #f (list (quote tmp)) #f - (list #{y\ 3993}#) + (list #{y\ 3951}#) '() - (let ((#{y\ 3997}# - (#{build-lexical-reference\ 594}# + (let ((#{y\ 3955}# + (#{build-lexical-reference\ 295}# 'value #f 'tmp - #{y\ 3993}#))) - (#{build-conditional\ 590}# + #{y\ 3951}#))) + (#{build-conditional\ 291}# #f - ((lambda (#{tmp\ 4000}#) - ((lambda (#{tmp\ 4001}#) - (if #{tmp\ 4001}# - (apply (lambda () #{y\ 3997}#) - #{tmp\ 4001}#) - ((lambda (#{_\ 4003}#) - (#{build-conditional\ 590}# + ((lambda (#{tmp\ 3958}#) + ((lambda (#{tmp\ 3959}#) + (if #{tmp\ 3959}# + (apply (lambda () #{y\ 3955}#) + #{tmp\ 3959}#) + ((lambda (#{_\ 3961}#) + (#{build-conditional\ 291}# #f - #{y\ 3997}# - (#{build-dispatch-call\ 3918}# - #{pvars\ 3982}# - #{fender\ 3970}# - #{y\ 3997}# - #{r\ 3968}# - #{mod\ 3972}#) - (#{build-data\ 616}# + #{y\ 3955}# + (#{build-dispatch-call\ 3876}# + #{pvars\ 3940}# + #{fender\ 3928}# + #{y\ 3955}# + #{r\ 3926}# + #{mod\ 3930}#) + (#{build-data\ 317}# #f #f))) - #{tmp\ 4000}#))) + #{tmp\ 3958}#))) ($sc-dispatch - #{tmp\ 4000}# + #{tmp\ 3958}# '#(atom #t)))) - #{fender\ 3970}#) - (#{build-dispatch-call\ 3918}# - #{pvars\ 3982}# - #{exp\ 3971}# - #{y\ 3997}# - #{r\ 3968}# - #{mod\ 3972}#) - (#{gen-syntax-case\ 3922}# - #{x\ 3965}# - #{keys\ 3966}# - #{clauses\ 3967}# - #{r\ 3968}# - #{mod\ 3972}#)))) - (list (if (eq? #{p\ 3981}# (quote any)) - (#{build-application\ 588}# + #{fender\ 3928}#) + (#{build-dispatch-call\ 3876}# + #{pvars\ 3940}# + #{exp\ 3929}# + #{y\ 3955}# + #{r\ 3926}# + #{mod\ 3930}#) + (#{gen-syntax-case\ 3880}# + #{x\ 3923}# + #{keys\ 3924}# + #{clauses\ 3925}# + #{r\ 3926}# + #{mod\ 3930}#)))) + (list (if (eq? #{p\ 3939}# (quote any)) + (#{build-application\ 289}# #f - (#{build-primref\ 614}# + (#{build-primref\ 315}# #f 'list) - (list #{x\ 3965}#)) - (#{build-application\ 588}# + (list #{x\ 3923}#)) + (#{build-application\ 289}# #f - (#{build-primref\ 614}# + (#{build-primref\ 315}# #f '$sc-dispatch) - (list #{x\ 3965}# - (#{build-data\ 616}# + (list #{x\ 3923}# + (#{build-data\ 317}# #f - #{p\ 3981}#))))))))))))) - (#{build-dispatch-call\ 3918}# - (lambda (#{pvars\ 4011}# - #{exp\ 4012}# - #{y\ 4013}# - #{r\ 4014}# - #{mod\ 4015}#) - (let ((#{ids\ 4023}# (map car #{pvars\ 4011}#)) - (#{levels\ 4024}# (map cdr #{pvars\ 4011}#))) - (let ((#{labels\ 4027}# - (#{gen-labels\ 684}# #{ids\ 4023}#)) - (#{new-vars\ 4028}# - (map #{gen-var\ 779}# #{ids\ 4023}#))) - (#{build-application\ 588}# + #{p\ 3939}#))))))))))))) + (#{build-dispatch-call\ 3876}# + (lambda (#{pvars\ 3969}# + #{exp\ 3970}# + #{y\ 3971}# + #{r\ 3972}# + #{mod\ 3973}#) + (let ((#{ids\ 3981}# (map car #{pvars\ 3969}#)) + (#{levels\ 3982}# (map cdr #{pvars\ 3969}#))) + (let ((#{labels\ 3985}# + (#{gen-labels\ 385}# #{ids\ 3981}#)) + (#{new-vars\ 3986}# + (map #{gen-var\ 480}# #{ids\ 3981}#))) + (#{build-application\ 289}# #f - (#{build-primref\ 614}# #f (quote apply)) - (list (#{build-simple-lambda\ 608}# + (#{build-primref\ 315}# #f (quote apply)) + (list (#{build-simple-lambda\ 309}# #f - (map syntax->datum #{ids\ 4023}#) + (map syntax->datum #{ids\ 3981}#) #f - #{new-vars\ 4028}# + #{new-vars\ 3986}# '() - (#{chi\ 751}# - #{exp\ 4012}# - (#{extend-env\ 654}# - #{labels\ 4027}# - (map (lambda (#{var\ 4032}# - #{level\ 4033}#) + (#{chi\ 452}# + #{exp\ 3970}# + (#{extend-env\ 355}# + #{labels\ 3985}# + (map (lambda (#{var\ 3990}# + #{level\ 3991}#) (cons 'syntax - (cons #{var\ 4032}# - #{level\ 4033}#))) - #{new-vars\ 4028}# - (map cdr #{pvars\ 4011}#)) - #{r\ 4014}#) - (#{make-binding-wrap\ 713}# - #{ids\ 4023}# - #{labels\ 4027}# + (cons #{var\ 3990}# + #{level\ 3991}#))) + #{new-vars\ 3986}# + (map cdr #{pvars\ 3969}#)) + #{r\ 3972}#) + (#{make-binding-wrap\ 414}# + #{ids\ 3981}# + #{labels\ 3985}# '(())) - #{mod\ 4015}#)) - #{y\ 4013}#)))))) - (#{convert-pattern\ 3916}# - (lambda (#{pattern\ 4039}# #{keys\ 4040}#) - (letrec ((#{cvt\ 4046}# - (lambda (#{p\ 4047}# #{n\ 4048}# #{ids\ 4049}#) - (if (#{id?\ 666}# #{p\ 4047}#) - (if (#{bound-id-member?\ 733}# - #{p\ 4047}# - #{keys\ 4040}#) + #{mod\ 3973}#)) + #{y\ 3971}#)))))) + (#{convert-pattern\ 3874}# + (lambda (#{pattern\ 3997}# #{keys\ 3998}#) + (letrec ((#{cvt\ 4004}# + (lambda (#{p\ 4005}# #{n\ 4006}# #{ids\ 4007}#) + (if (#{id?\ 367}# #{p\ 4005}#) + (if (#{bound-id-member?\ 434}# + #{p\ 4005}# + #{keys\ 3998}#) (values - (vector (quote free-id) #{p\ 4047}#) - #{ids\ 4049}#) + (vector (quote free-id) #{p\ 4005}#) + #{ids\ 4007}#) (values 'any - (cons (cons #{p\ 4047}# #{n\ 4048}#) - #{ids\ 4049}#))) - ((lambda (#{tmp\ 4053}#) - ((lambda (#{tmp\ 4054}#) - (if (if #{tmp\ 4054}# - (apply (lambda (#{x\ 4057}# - #{dots\ 4058}#) - (#{ellipsis?\ 767}# - #{dots\ 4058}#)) - #{tmp\ 4054}#) + (cons (cons #{p\ 4005}# #{n\ 4006}#) + #{ids\ 4007}#))) + ((lambda (#{tmp\ 4011}#) + ((lambda (#{tmp\ 4012}#) + (if (if #{tmp\ 4012}# + (apply (lambda (#{x\ 4015}# + #{dots\ 4016}#) + (#{ellipsis?\ 468}# + #{dots\ 4016}#)) + #{tmp\ 4012}#) #f) - (apply (lambda (#{x\ 4061}# - #{dots\ 4062}#) + (apply (lambda (#{x\ 4019}# + #{dots\ 4020}#) (call-with-values (lambda () - (#{cvt\ 4046}# - #{x\ 4061}# - (#{fx+\ 567}# - #{n\ 4048}# + (#{cvt\ 4004}# + #{x\ 4019}# + (#{fx+\ 268}# + #{n\ 4006}# 1) - #{ids\ 4049}#)) - (lambda (#{p\ 4063}# - #{ids\ 4064}#) + #{ids\ 4007}#)) + (lambda (#{p\ 4021}# + #{ids\ 4022}#) (values - (if (eq? #{p\ 4063}# + (if (eq? #{p\ 4021}# 'any) 'each-any (vector 'each - #{p\ 4063}#)) - #{ids\ 4064}#)))) - #{tmp\ 4054}#) - ((lambda (#{tmp\ 4067}#) - (if (if #{tmp\ 4067}# - (apply (lambda (#{x\ 4071}# - #{dots\ 4072}# - #{ys\ 4073}#) - (#{ellipsis?\ 767}# - #{dots\ 4072}#)) - #{tmp\ 4067}#) + #{p\ 4021}#)) + #{ids\ 4022}#)))) + #{tmp\ 4012}#) + ((lambda (#{tmp\ 4025}#) + (if (if #{tmp\ 4025}# + (apply (lambda (#{x\ 4029}# + #{dots\ 4030}# + #{ys\ 4031}#) + (#{ellipsis?\ 468}# + #{dots\ 4030}#)) + #{tmp\ 4025}#) #f) - (apply (lambda (#{x\ 4077}# - #{dots\ 4078}# - #{ys\ 4079}#) + (apply (lambda (#{x\ 4035}# + #{dots\ 4036}# + #{ys\ 4037}#) (call-with-values (lambda () - (#{cvt*\ 4044}# - #{ys\ 4079}# - #{n\ 4048}# - #{ids\ 4049}#)) - (lambda (#{ys\ 4081}# - #{ids\ 4082}#) + (#{cvt*\ 4002}# + #{ys\ 4037}# + #{n\ 4006}# + #{ids\ 4007}#)) + (lambda (#{ys\ 4039}# + #{ids\ 4040}#) (call-with-values (lambda () - (#{cvt\ 4046}# - #{x\ 4077}# - (+ #{n\ 4048}# + (#{cvt\ 4004}# + #{x\ 4035}# + (+ #{n\ 4006}# 1) - #{ids\ 4082}#)) - (lambda (#{x\ 4085}# - #{ids\ 4086}#) + #{ids\ 4040}#)) + (lambda (#{x\ 4043}# + #{ids\ 4044}#) (values (list->vector (cons 'each+ - (cons #{x\ 4085}# + (cons #{x\ 4043}# (cons (reverse - #{ys\ 4081}#) + #{ys\ 4039}#) '(()))))) - #{ids\ 4086}#)))))) - #{tmp\ 4067}#) - ((lambda (#{tmp\ 4090}#) - (if #{tmp\ 4090}# - (apply (lambda (#{x\ 4093}# - #{y\ 4094}#) + #{ids\ 4044}#)))))) + #{tmp\ 4025}#) + ((lambda (#{tmp\ 4048}#) + (if #{tmp\ 4048}# + (apply (lambda (#{x\ 4051}# + #{y\ 4052}#) (call-with-values (lambda () - (#{cvt\ 4046}# - #{y\ 4094}# - #{n\ 4048}# - #{ids\ 4049}#)) - (lambda (#{y\ 4095}# - #{ids\ 4096}#) + (#{cvt\ 4004}# + #{y\ 4052}# + #{n\ 4006}# + #{ids\ 4007}#)) + (lambda (#{y\ 4053}# + #{ids\ 4054}#) (call-with-values (lambda () - (#{cvt\ 4046}# - #{x\ 4093}# - #{n\ 4048}# - #{ids\ 4096}#)) - (lambda (#{x\ 4099}# - #{ids\ 4100}#) + (#{cvt\ 4004}# + #{x\ 4051}# + #{n\ 4006}# + #{ids\ 4054}#)) + (lambda (#{x\ 4057}# + #{ids\ 4058}#) (values - (cons #{x\ 4099}# - #{y\ 4095}#) - #{ids\ 4100}#)))))) - #{tmp\ 4090}#) - ((lambda (#{tmp\ 4103}#) - (if #{tmp\ 4103}# + (cons #{x\ 4057}# + #{y\ 4053}#) + #{ids\ 4058}#)))))) + #{tmp\ 4048}#) + ((lambda (#{tmp\ 4061}#) + (if #{tmp\ 4061}# (apply (lambda () (values '() - #{ids\ 4049}#)) - #{tmp\ 4103}#) - ((lambda (#{tmp\ 4104}#) - (if #{tmp\ 4104}# - (apply (lambda (#{x\ 4106}#) + #{ids\ 4007}#)) + #{tmp\ 4061}#) + ((lambda (#{tmp\ 4062}#) + (if #{tmp\ 4062}# + (apply (lambda (#{x\ 4064}#) (call-with-values (lambda () - (#{cvt\ 4046}# - #{x\ 4106}# - #{n\ 4048}# - #{ids\ 4049}#)) - (lambda (#{p\ 4108}# - #{ids\ 4109}#) + (#{cvt\ 4004}# + #{x\ 4064}# + #{n\ 4006}# + #{ids\ 4007}#)) + (lambda (#{p\ 4066}# + #{ids\ 4067}#) (values (vector 'vector - #{p\ 4108}#) - #{ids\ 4109}#)))) - #{tmp\ 4104}#) - ((lambda (#{x\ 4113}#) + #{p\ 4066}#) + #{ids\ 4067}#)))) + #{tmp\ 4062}#) + ((lambda (#{x\ 4071}#) (values (vector 'atom - (#{strip\ 777}# - #{p\ 4047}# + (#{strip\ 478}# + #{p\ 4005}# '(()))) - #{ids\ 4049}#)) - #{tmp\ 4053}#))) + #{ids\ 4007}#)) + #{tmp\ 4011}#))) ($sc-dispatch - #{tmp\ 4053}# + #{tmp\ 4011}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4053}# + #{tmp\ 4011}# '())))) ($sc-dispatch - #{tmp\ 4053}# + #{tmp\ 4011}# '(any . any))))) ($sc-dispatch - #{tmp\ 4053}# + #{tmp\ 4011}# '(any any . each-any))))) ($sc-dispatch - #{tmp\ 4053}# + #{tmp\ 4011}# '(any any)))) - #{p\ 4047}#)))) - (#{cvt*\ 4044}# - (lambda (#{p*\ 4115}# - #{n\ 4116}# - #{ids\ 4117}#) - (if (null? #{p*\ 4115}#) - (values (quote ()) #{ids\ 4117}#) + #{p\ 4005}#)))) + (#{cvt*\ 4002}# + (lambda (#{p*\ 4073}# + #{n\ 4074}# + #{ids\ 4075}#) + (if (null? #{p*\ 4073}#) + (values (quote ()) #{ids\ 4075}#) (call-with-values (lambda () - (#{cvt*\ 4044}# - (cdr #{p*\ 4115}#) - #{n\ 4116}# - #{ids\ 4117}#)) - (lambda (#{y\ 4121}# #{ids\ 4122}#) + (#{cvt*\ 4002}# + (cdr #{p*\ 4073}#) + #{n\ 4074}# + #{ids\ 4075}#)) + (lambda (#{y\ 4079}# #{ids\ 4080}#) (call-with-values (lambda () - (#{cvt\ 4046}# - (car #{p*\ 4115}#) - #{n\ 4116}# - #{ids\ 4122}#)) - (lambda (#{x\ 4125}# #{ids\ 4126}#) + (#{cvt\ 4004}# + (car #{p*\ 4073}#) + #{n\ 4074}# + #{ids\ 4080}#)) + (lambda (#{x\ 4083}# #{ids\ 4084}#) (values - (cons #{x\ 4125}# #{y\ 4121}#) - #{ids\ 4126}#))))))))) - (#{cvt\ 4046}# #{pattern\ 4039}# 0 (quote ())))))) - (lambda (#{e\ 4129}# - #{r\ 4130}# - #{w\ 4131}# - #{s\ 4132}# - #{mod\ 4133}#) - (let ((#{e\ 4140}# - (#{source-wrap\ 737}# - #{e\ 4129}# - #{w\ 4131}# - #{s\ 4132}# - #{mod\ 4133}#))) - ((lambda (#{tmp\ 4141}#) - ((lambda (#{tmp\ 4142}#) - (if #{tmp\ 4142}# - (apply (lambda (#{_\ 4147}# - #{val\ 4148}# - #{key\ 4149}# - #{m\ 4150}#) + (cons #{x\ 4083}# #{y\ 4079}#) + #{ids\ 4084}#))))))))) + (#{cvt\ 4004}# #{pattern\ 3997}# 0 (quote ())))))) + (lambda (#{e\ 4087}# + #{r\ 4088}# + #{w\ 4089}# + #{s\ 4090}# + #{mod\ 4091}#) + (let ((#{e\ 4098}# + (#{source-wrap\ 438}# + #{e\ 4087}# + #{w\ 4089}# + #{s\ 4090}# + #{mod\ 4091}#))) + ((lambda (#{tmp\ 4099}#) + ((lambda (#{tmp\ 4100}#) + (if #{tmp\ 4100}# + (apply (lambda (#{_\ 4105}# + #{val\ 4106}# + #{key\ 4107}# + #{m\ 4108}#) (if (and-map - (lambda (#{x\ 4151}#) - (if (#{id?\ 666}# #{x\ 4151}#) - (not (#{ellipsis?\ 767}# #{x\ 4151}#)) + (lambda (#{x\ 4109}#) + (if (#{id?\ 367}# #{x\ 4109}#) + (not (#{ellipsis?\ 468}# #{x\ 4109}#)) #f)) - #{key\ 4149}#) - (let ((#{x\ 4157}# - (#{gen-var\ 779}# (quote tmp)))) - (#{build-application\ 588}# - #{s\ 4132}# - (#{build-simple-lambda\ 608}# + #{key\ 4107}#) + (let ((#{x\ 4115}# + (#{gen-var\ 480}# (quote tmp)))) + (#{build-application\ 289}# + #{s\ 4090}# + (#{build-simple-lambda\ 309}# #f (list (quote tmp)) #f - (list #{x\ 4157}#) + (list #{x\ 4115}#) '() - (#{gen-syntax-case\ 3922}# - (#{build-lexical-reference\ 594}# + (#{gen-syntax-case\ 3880}# + (#{build-lexical-reference\ 295}# 'value #f 'tmp - #{x\ 4157}#) - #{key\ 4149}# - #{m\ 4150}# - #{r\ 4130}# - #{mod\ 4133}#)) - (list (#{chi\ 751}# - #{val\ 4148}# - #{r\ 4130}# + #{x\ 4115}#) + #{key\ 4107}# + #{m\ 4108}# + #{r\ 4088}# + #{mod\ 4091}#)) + (list (#{chi\ 452}# + #{val\ 4106}# + #{r\ 4088}# '(()) - #{mod\ 4133}#)))) + #{mod\ 4091}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e\ 4140}#))) - #{tmp\ 4142}#) + #{e\ 4098}#))) + #{tmp\ 4100}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4141}#))) + #{tmp\ 4099}#))) ($sc-dispatch - #{tmp\ 4141}# + #{tmp\ 4099}# '(any any each-any . each-any)))) - #{e\ 4140}#))))) + #{e\ 4098}#))))) (set! macroexpand - (lambda (#{x\ 4163}# . #{rest\ 4164}#) - (let ((#{m\ 4170}# - (if (null? #{rest\ 4164}#) + (lambda (#{x\ 4121}# . #{rest\ 4122}#) + (let ((#{m\ 4128}# + (if (null? #{rest\ 4122}#) 'e - (car #{rest\ 4164}#))) - (#{esew\ 4171}# - (if (let ((#{t\ 4175}# (null? #{rest\ 4164}#))) - (if #{t\ 4175}# - #{t\ 4175}# - (null? (cdr #{rest\ 4164}#)))) + (car #{rest\ 4122}#))) + (#{esew\ 4129}# + (if (let ((#{t\ 4133}# (null? #{rest\ 4122}#))) + (if #{t\ 4133}# + #{t\ 4133}# + (null? (cdr #{rest\ 4122}#)))) '(eval) - (cadr #{rest\ 4164}#))) - (#{mod\ 4172}# + (cadr #{rest\ 4122}#))) + (#{mod\ 4130}# (cons 'hygiene (module-name (current-module))))) (with-fluids - ((#{*mode*\ 565}# #{m\ 4170}#)) - (if (eq? #{m\ 4170}# (quote e)) + ((#{*mode*\ 229}# #{m\ 4128}#)) + (if (eq? #{m\ 4128}# (quote e)) (memoize-expression - (#{chi-top\ 749}# - #{x\ 4163}# + (#{chi-top\ 450}# + #{x\ 4121}# '() '((top)) - #{m\ 4170}# - #{esew\ 4171}# - #{mod\ 4172}#)) - (#{chi-top\ 749}# - #{x\ 4163}# + #{m\ 4128}# + #{esew\ 4129}# + #{mod\ 4130}#)) + (#{chi-top\ 450}# + #{x\ 4121}# '() '((top)) - #{m\ 4170}# - #{esew\ 4171}# - #{mod\ 4172}#)))))) + #{m\ 4128}# + #{esew\ 4129}# + #{mod\ 4130}#)))))) (set! identifier? - (lambda (#{x\ 4181}#) - (#{nonsymbol-id?\ 664}# #{x\ 4181}#))) + (lambda (#{x\ 4139}#) + (#{nonsymbol-id?\ 365}# #{x\ 4139}#))) (set! datum->syntax - (lambda (#{id\ 4183}# #{datum\ 4184}#) - (#{make-syntax-object\ 628}# - #{datum\ 4184}# - (#{syntax-object-wrap\ 634}# #{id\ 4183}#) + (lambda (#{id\ 4141}# #{datum\ 4142}#) + (#{make-syntax-object\ 329}# + #{datum\ 4142}# + (#{syntax-object-wrap\ 335}# #{id\ 4141}#) #f))) (set! syntax->datum - (lambda (#{x\ 4187}#) - (#{strip\ 777}# #{x\ 4187}# (quote (()))))) + (lambda (#{x\ 4145}#) + (#{strip\ 478}# #{x\ 4145}# (quote (()))))) (set! generate-temporaries - (lambda (#{ls\ 4190}#) + (lambda (#{ls\ 4148}#) (begin - (let ((#{x\ 4194}# #{ls\ 4190}#)) - (if (not (list? #{x\ 4194}#)) + (let ((#{x\ 4152}# #{ls\ 4148}#)) + (if (not (list? #{x\ 4152}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{x\ 4194}#))) - (map (lambda (#{x\ 4195}#) - (#{wrap\ 735}# (gensym) (quote ((top))) #f)) - #{ls\ 4190}#)))) + #{x\ 4152}#))) + (map (lambda (#{x\ 4153}#) + (#{wrap\ 436}# (gensym) (quote ((top))) #f)) + #{ls\ 4148}#)))) (set! free-identifier=? - (lambda (#{x\ 4199}# #{y\ 4200}#) + (lambda (#{x\ 4157}# #{y\ 4158}#) (begin - (let ((#{x\ 4205}# #{x\ 4199}#)) - (if (not (#{nonsymbol-id?\ 664}# #{x\ 4205}#)) + (let ((#{x\ 4163}# #{x\ 4157}#)) + (if (not (#{nonsymbol-id?\ 365}# #{x\ 4163}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 4205}#))) - (let ((#{x\ 4208}# #{y\ 4200}#)) - (if (not (#{nonsymbol-id?\ 664}# #{x\ 4208}#)) + #{x\ 4163}#))) + (let ((#{x\ 4166}# #{y\ 4158}#)) + (if (not (#{nonsymbol-id?\ 365}# #{x\ 4166}#)) (syntax-violation 'free-identifier=? "invalid argument" - #{x\ 4208}#))) - (#{free-id=?\ 725}# #{x\ 4199}# #{y\ 4200}#)))) + #{x\ 4166}#))) + (#{free-id=?\ 426}# #{x\ 4157}# #{y\ 4158}#)))) (set! bound-identifier=? - (lambda (#{x\ 4209}# #{y\ 4210}#) + (lambda (#{x\ 4167}# #{y\ 4168}#) (begin - (let ((#{x\ 4215}# #{x\ 4209}#)) - (if (not (#{nonsymbol-id?\ 664}# #{x\ 4215}#)) + (let ((#{x\ 4173}# #{x\ 4167}#)) + (if (not (#{nonsymbol-id?\ 365}# #{x\ 4173}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 4215}#))) - (let ((#{x\ 4218}# #{y\ 4210}#)) - (if (not (#{nonsymbol-id?\ 664}# #{x\ 4218}#)) + #{x\ 4173}#))) + (let ((#{x\ 4176}# #{y\ 4168}#)) + (if (not (#{nonsymbol-id?\ 365}# #{x\ 4176}#)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x\ 4218}#))) - (#{bound-id=?\ 727}# #{x\ 4209}# #{y\ 4210}#)))) + #{x\ 4176}#))) + (#{bound-id=?\ 428}# #{x\ 4167}# #{y\ 4168}#)))) (set! syntax-violation - (lambda (#{who\ 4219}# - #{message\ 4220}# - #{form\ 4221}# + (lambda (#{who\ 4177}# + #{message\ 4178}# + #{form\ 4179}# . - #{subform\ 4222}#) + #{subform\ 4180}#) (begin - (let ((#{x\ 4229}# #{who\ 4219}#)) - (if (not ((lambda (#{x\ 4230}#) - (let ((#{t\ 4234}# (not #{x\ 4230}#))) - (if #{t\ 4234}# - #{t\ 4234}# - (let ((#{t\ 4237}# (string? #{x\ 4230}#))) - (if #{t\ 4237}# - #{t\ 4237}# - (symbol? #{x\ 4230}#)))))) - #{x\ 4229}#)) + (let ((#{x\ 4187}# #{who\ 4177}#)) + (if (not ((lambda (#{x\ 4188}#) + (let ((#{t\ 4192}# (not #{x\ 4188}#))) + (if #{t\ 4192}# + #{t\ 4192}# + (let ((#{t\ 4195}# (string? #{x\ 4188}#))) + (if #{t\ 4195}# + #{t\ 4195}# + (symbol? #{x\ 4188}#)))))) + #{x\ 4187}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 4229}#))) - (let ((#{x\ 4241}# #{message\ 4220}#)) - (if (not (string? #{x\ 4241}#)) + #{x\ 4187}#))) + (let ((#{x\ 4199}# #{message\ 4178}#)) + (if (not (string? #{x\ 4199}#)) (syntax-violation 'syntax-violation "invalid argument" - #{x\ 4241}#))) + #{x\ 4199}#))) (scm-error 'syntax-error 'macroexpand (string-append - (if #{who\ 4219}# "~a: " "") + (if #{who\ 4177}# "~a: " "") "~a " - (if (null? #{subform\ 4222}#) + (if (null? #{subform\ 4180}#) "in ~a" "in subform `~s' of `~s'")) - (let ((#{tail\ 4243}# - (cons #{message\ 4220}# - (map (lambda (#{x\ 4244}#) - (#{strip\ 777}# #{x\ 4244}# (quote (())))) + (let ((#{tail\ 4201}# + (cons #{message\ 4178}# + (map (lambda (#{x\ 4202}#) + (#{strip\ 478}# #{x\ 4202}# (quote (())))) (append - #{subform\ 4222}# - (list #{form\ 4221}#)))))) - (if #{who\ 4219}# - (cons #{who\ 4219}# #{tail\ 4243}#) - #{tail\ 4243}#)) + #{subform\ 4180}# + (list #{form\ 4179}#)))))) + (if #{who\ 4177}# + (cons #{who\ 4177}# #{tail\ 4201}#) + #{tail\ 4201}#)) #f)))) - (letrec ((#{match\ 4260}# - (lambda (#{e\ 4261}# - #{p\ 4262}# - #{w\ 4263}# - #{r\ 4264}# - #{mod\ 4265}#) - (if (not #{r\ 4264}#) + (letrec ((#{match\ 4218}# + (lambda (#{e\ 4219}# + #{p\ 4220}# + #{w\ 4221}# + #{r\ 4222}# + #{mod\ 4223}#) + (if (not #{r\ 4222}#) #f - (if (eq? #{p\ 4262}# (quote any)) - (cons (#{wrap\ 735}# - #{e\ 4261}# - #{w\ 4263}# - #{mod\ 4265}#) - #{r\ 4264}#) - (if (#{syntax-object?\ 630}# #{e\ 4261}#) - (#{match*\ 4258}# - (#{syntax-object-expression\ 632}# #{e\ 4261}#) - #{p\ 4262}# - (#{join-wraps\ 717}# - #{w\ 4263}# - (#{syntax-object-wrap\ 634}# #{e\ 4261}#)) - #{r\ 4264}# - (#{syntax-object-module\ 636}# #{e\ 4261}#)) - (#{match*\ 4258}# - #{e\ 4261}# - #{p\ 4262}# - #{w\ 4263}# - #{r\ 4264}# - #{mod\ 4265}#)))))) - (#{match*\ 4258}# - (lambda (#{e\ 4278}# - #{p\ 4279}# - #{w\ 4280}# - #{r\ 4281}# - #{mod\ 4282}#) - (if (null? #{p\ 4279}#) - (if (null? #{e\ 4278}#) #{r\ 4281}# #f) - (if (pair? #{p\ 4279}#) - (if (pair? #{e\ 4278}#) - (#{match\ 4260}# - (car #{e\ 4278}#) - (car #{p\ 4279}#) - #{w\ 4280}# - (#{match\ 4260}# - (cdr #{e\ 4278}#) - (cdr #{p\ 4279}#) - #{w\ 4280}# - #{r\ 4281}# - #{mod\ 4282}#) - #{mod\ 4282}#) + (if (eq? #{p\ 4220}# (quote any)) + (cons (#{wrap\ 436}# + #{e\ 4219}# + #{w\ 4221}# + #{mod\ 4223}#) + #{r\ 4222}#) + (if (#{syntax-object?\ 331}# #{e\ 4219}#) + (#{match*\ 4216}# + (#{syntax-object-expression\ 333}# #{e\ 4219}#) + #{p\ 4220}# + (#{join-wraps\ 418}# + #{w\ 4221}# + (#{syntax-object-wrap\ 335}# #{e\ 4219}#)) + #{r\ 4222}# + (#{syntax-object-module\ 337}# #{e\ 4219}#)) + (#{match*\ 4216}# + #{e\ 4219}# + #{p\ 4220}# + #{w\ 4221}# + #{r\ 4222}# + #{mod\ 4223}#)))))) + (#{match*\ 4216}# + (lambda (#{e\ 4236}# + #{p\ 4237}# + #{w\ 4238}# + #{r\ 4239}# + #{mod\ 4240}#) + (if (null? #{p\ 4237}#) + (if (null? #{e\ 4236}#) #{r\ 4239}# #f) + (if (pair? #{p\ 4237}#) + (if (pair? #{e\ 4236}#) + (#{match\ 4218}# + (car #{e\ 4236}#) + (car #{p\ 4237}#) + #{w\ 4238}# + (#{match\ 4218}# + (cdr #{e\ 4236}#) + (cdr #{p\ 4237}#) + #{w\ 4238}# + #{r\ 4239}# + #{mod\ 4240}#) + #{mod\ 4240}#) #f) - (if (eq? #{p\ 4279}# (quote each-any)) - (let ((#{l\ 4299}# - (#{match-each-any\ 4252}# - #{e\ 4278}# - #{w\ 4280}# - #{mod\ 4282}#))) - (if #{l\ 4299}# - (cons #{l\ 4299}# #{r\ 4281}#) + (if (eq? #{p\ 4237}# (quote each-any)) + (let ((#{l\ 4257}# + (#{match-each-any\ 4210}# + #{e\ 4236}# + #{w\ 4238}# + #{mod\ 4240}#))) + (if #{l\ 4257}# + (cons #{l\ 4257}# #{r\ 4239}#) #f)) - (let ((#{atom-key\ 4305}# (vector-ref #{p\ 4279}# 0))) - (if (memv #{atom-key\ 4305}# (quote (each))) - (if (null? #{e\ 4278}#) - (#{match-empty\ 4254}# - (vector-ref #{p\ 4279}# 1) - #{r\ 4281}#) - (let ((#{l\ 4308}# - (#{match-each\ 4248}# - #{e\ 4278}# - (vector-ref #{p\ 4279}# 1) - #{w\ 4280}# - #{mod\ 4282}#))) - (if #{l\ 4308}# - (letrec ((#{collect\ 4313}# - (lambda (#{l\ 4314}#) - (if (null? (car #{l\ 4314}#)) - #{r\ 4281}# - (cons (map car #{l\ 4314}#) - (#{collect\ 4313}# + (let ((#{atom-key\ 4263}# (vector-ref #{p\ 4237}# 0))) + (if (memv #{atom-key\ 4263}# (quote (each))) + (if (null? #{e\ 4236}#) + (#{match-empty\ 4212}# + (vector-ref #{p\ 4237}# 1) + #{r\ 4239}#) + (let ((#{l\ 4266}# + (#{match-each\ 4206}# + #{e\ 4236}# + (vector-ref #{p\ 4237}# 1) + #{w\ 4238}# + #{mod\ 4240}#))) + (if #{l\ 4266}# + (letrec ((#{collect\ 4271}# + (lambda (#{l\ 4272}#) + (if (null? (car #{l\ 4272}#)) + #{r\ 4239}# + (cons (map car #{l\ 4272}#) + (#{collect\ 4271}# (map cdr - #{l\ 4314}#))))))) - (#{collect\ 4313}# #{l\ 4308}#)) + #{l\ 4272}#))))))) + (#{collect\ 4271}# #{l\ 4266}#)) #f))) - (if (memv #{atom-key\ 4305}# (quote (each+))) + (if (memv #{atom-key\ 4263}# (quote (each+))) (call-with-values (lambda () - (#{match-each+\ 4250}# - #{e\ 4278}# - (vector-ref #{p\ 4279}# 1) - (vector-ref #{p\ 4279}# 2) - (vector-ref #{p\ 4279}# 3) - #{w\ 4280}# - #{r\ 4281}# - #{mod\ 4282}#)) - (lambda (#{xr*\ 4316}# - #{y-pat\ 4317}# - #{r\ 4318}#) - (if #{r\ 4318}# - (if (null? #{y-pat\ 4317}#) - (if (null? #{xr*\ 4316}#) - (#{match-empty\ 4254}# - (vector-ref #{p\ 4279}# 1) - #{r\ 4318}#) - (#{combine\ 4256}# - #{xr*\ 4316}# - #{r\ 4318}#)) + (#{match-each+\ 4208}# + #{e\ 4236}# + (vector-ref #{p\ 4237}# 1) + (vector-ref #{p\ 4237}# 2) + (vector-ref #{p\ 4237}# 3) + #{w\ 4238}# + #{r\ 4239}# + #{mod\ 4240}#)) + (lambda (#{xr*\ 4274}# + #{y-pat\ 4275}# + #{r\ 4276}#) + (if #{r\ 4276}# + (if (null? #{y-pat\ 4275}#) + (if (null? #{xr*\ 4274}#) + (#{match-empty\ 4212}# + (vector-ref #{p\ 4237}# 1) + #{r\ 4276}#) + (#{combine\ 4214}# + #{xr*\ 4274}# + #{r\ 4276}#)) #f) #f))) - (if (memv #{atom-key\ 4305}# (quote (free-id))) - (if (#{id?\ 666}# #{e\ 4278}#) - (if (#{free-id=?\ 725}# - (#{wrap\ 735}# - #{e\ 4278}# - #{w\ 4280}# - #{mod\ 4282}#) - (vector-ref #{p\ 4279}# 1)) - #{r\ 4281}# + (if (memv #{atom-key\ 4263}# (quote (free-id))) + (if (#{id?\ 367}# #{e\ 4236}#) + (if (#{free-id=?\ 426}# + (#{wrap\ 436}# + #{e\ 4236}# + #{w\ 4238}# + #{mod\ 4240}#) + (vector-ref #{p\ 4237}# 1)) + #{r\ 4239}# #f) #f) - (if (memv #{atom-key\ 4305}# (quote (atom))) + (if (memv #{atom-key\ 4263}# (quote (atom))) (if (equal? - (vector-ref #{p\ 4279}# 1) - (#{strip\ 777}# - #{e\ 4278}# - #{w\ 4280}#)) - #{r\ 4281}# + (vector-ref #{p\ 4237}# 1) + (#{strip\ 478}# + #{e\ 4236}# + #{w\ 4238}#)) + #{r\ 4239}# #f) - (if (memv #{atom-key\ 4305}# + (if (memv #{atom-key\ 4263}# '(vector)) - (if (vector? #{e\ 4278}#) - (#{match\ 4260}# - (vector->list #{e\ 4278}#) - (vector-ref #{p\ 4279}# 1) - #{w\ 4280}# - #{r\ 4281}# - #{mod\ 4282}#) + (if (vector? #{e\ 4236}#) + (#{match\ 4218}# + (vector->list #{e\ 4236}#) + (vector-ref #{p\ 4237}# 1) + #{w\ 4238}# + #{r\ 4239}# + #{mod\ 4240}#) #f)))))))))))) - (#{combine\ 4256}# - (lambda (#{r*\ 4335}# #{r\ 4336}#) - (if (null? (car #{r*\ 4335}#)) - #{r\ 4336}# - (cons (map car #{r*\ 4335}#) - (#{combine\ 4256}# - (map cdr #{r*\ 4335}#) - #{r\ 4336}#))))) - (#{match-empty\ 4254}# - (lambda (#{p\ 4339}# #{r\ 4340}#) - (if (null? #{p\ 4339}#) - #{r\ 4340}# - (if (eq? #{p\ 4339}# (quote any)) - (cons (quote ()) #{r\ 4340}#) - (if (pair? #{p\ 4339}#) - (#{match-empty\ 4254}# - (car #{p\ 4339}#) - (#{match-empty\ 4254}# - (cdr #{p\ 4339}#) - #{r\ 4340}#)) - (if (eq? #{p\ 4339}# (quote each-any)) - (cons (quote ()) #{r\ 4340}#) - (let ((#{atom-key\ 4354}# - (vector-ref #{p\ 4339}# 0))) - (if (memv #{atom-key\ 4354}# (quote (each))) - (#{match-empty\ 4254}# - (vector-ref #{p\ 4339}# 1) - #{r\ 4340}#) - (if (memv #{atom-key\ 4354}# (quote (each+))) - (#{match-empty\ 4254}# - (vector-ref #{p\ 4339}# 1) - (#{match-empty\ 4254}# - (reverse (vector-ref #{p\ 4339}# 2)) - (#{match-empty\ 4254}# - (vector-ref #{p\ 4339}# 3) - #{r\ 4340}#))) - (if (memv #{atom-key\ 4354}# + (#{combine\ 4214}# + (lambda (#{r*\ 4293}# #{r\ 4294}#) + (if (null? (car #{r*\ 4293}#)) + #{r\ 4294}# + (cons (map car #{r*\ 4293}#) + (#{combine\ 4214}# + (map cdr #{r*\ 4293}#) + #{r\ 4294}#))))) + (#{match-empty\ 4212}# + (lambda (#{p\ 4297}# #{r\ 4298}#) + (if (null? #{p\ 4297}#) + #{r\ 4298}# + (if (eq? #{p\ 4297}# (quote any)) + (cons (quote ()) #{r\ 4298}#) + (if (pair? #{p\ 4297}#) + (#{match-empty\ 4212}# + (car #{p\ 4297}#) + (#{match-empty\ 4212}# + (cdr #{p\ 4297}#) + #{r\ 4298}#)) + (if (eq? #{p\ 4297}# (quote each-any)) + (cons (quote ()) #{r\ 4298}#) + (let ((#{atom-key\ 4312}# + (vector-ref #{p\ 4297}# 0))) + (if (memv #{atom-key\ 4312}# (quote (each))) + (#{match-empty\ 4212}# + (vector-ref #{p\ 4297}# 1) + #{r\ 4298}#) + (if (memv #{atom-key\ 4312}# (quote (each+))) + (#{match-empty\ 4212}# + (vector-ref #{p\ 4297}# 1) + (#{match-empty\ 4212}# + (reverse (vector-ref #{p\ 4297}# 2)) + (#{match-empty\ 4212}# + (vector-ref #{p\ 4297}# 3) + #{r\ 4298}#))) + (if (memv #{atom-key\ 4312}# '(free-id atom)) - #{r\ 4340}# - (if (memv #{atom-key\ 4354}# + #{r\ 4298}# + (if (memv #{atom-key\ 4312}# '(vector)) - (#{match-empty\ 4254}# - (vector-ref #{p\ 4339}# 1) - #{r\ 4340}#)))))))))))) - (#{match-each-any\ 4252}# - (lambda (#{e\ 4359}# #{w\ 4360}# #{mod\ 4361}#) - (if (pair? #{e\ 4359}#) - (let ((#{l\ 4368}# - (#{match-each-any\ 4252}# - (cdr #{e\ 4359}#) - #{w\ 4360}# - #{mod\ 4361}#))) - (if #{l\ 4368}# - (cons (#{wrap\ 735}# - (car #{e\ 4359}#) - #{w\ 4360}# - #{mod\ 4361}#) - #{l\ 4368}#) + (#{match-empty\ 4212}# + (vector-ref #{p\ 4297}# 1) + #{r\ 4298}#)))))))))))) + (#{match-each-any\ 4210}# + (lambda (#{e\ 4317}# #{w\ 4318}# #{mod\ 4319}#) + (if (pair? #{e\ 4317}#) + (let ((#{l\ 4326}# + (#{match-each-any\ 4210}# + (cdr #{e\ 4317}#) + #{w\ 4318}# + #{mod\ 4319}#))) + (if #{l\ 4326}# + (cons (#{wrap\ 436}# + (car #{e\ 4317}#) + #{w\ 4318}# + #{mod\ 4319}#) + #{l\ 4326}#) #f)) - (if (null? #{e\ 4359}#) + (if (null? #{e\ 4317}#) '() - (if (#{syntax-object?\ 630}# #{e\ 4359}#) - (#{match-each-any\ 4252}# - (#{syntax-object-expression\ 632}# #{e\ 4359}#) - (#{join-wraps\ 717}# - #{w\ 4360}# - (#{syntax-object-wrap\ 634}# #{e\ 4359}#)) - #{mod\ 4361}#) + (if (#{syntax-object?\ 331}# #{e\ 4317}#) + (#{match-each-any\ 4210}# + (#{syntax-object-expression\ 333}# #{e\ 4317}#) + (#{join-wraps\ 418}# + #{w\ 4318}# + (#{syntax-object-wrap\ 335}# #{e\ 4317}#)) + #{mod\ 4319}#) #f))))) - (#{match-each+\ 4250}# - (lambda (#{e\ 4376}# - #{x-pat\ 4377}# - #{y-pat\ 4378}# - #{z-pat\ 4379}# - #{w\ 4380}# - #{r\ 4381}# - #{mod\ 4382}#) - (letrec ((#{f\ 4393}# - (lambda (#{e\ 4394}# #{w\ 4395}#) - (if (pair? #{e\ 4394}#) + (#{match-each+\ 4208}# + (lambda (#{e\ 4334}# + #{x-pat\ 4335}# + #{y-pat\ 4336}# + #{z-pat\ 4337}# + #{w\ 4338}# + #{r\ 4339}# + #{mod\ 4340}#) + (letrec ((#{f\ 4351}# + (lambda (#{e\ 4352}# #{w\ 4353}#) + (if (pair? #{e\ 4352}#) (call-with-values (lambda () - (#{f\ 4393}# - (cdr #{e\ 4394}#) - #{w\ 4395}#)) - (lambda (#{xr*\ 4398}# - #{y-pat\ 4399}# - #{r\ 4400}#) - (if #{r\ 4400}# - (if (null? #{y-pat\ 4399}#) - (let ((#{xr\ 4405}# - (#{match\ 4260}# - (car #{e\ 4394}#) - #{x-pat\ 4377}# - #{w\ 4395}# + (#{f\ 4351}# + (cdr #{e\ 4352}#) + #{w\ 4353}#)) + (lambda (#{xr*\ 4356}# + #{y-pat\ 4357}# + #{r\ 4358}#) + (if #{r\ 4358}# + (if (null? #{y-pat\ 4357}#) + (let ((#{xr\ 4363}# + (#{match\ 4218}# + (car #{e\ 4352}#) + #{x-pat\ 4335}# + #{w\ 4353}# '() - #{mod\ 4382}#))) - (if #{xr\ 4405}# + #{mod\ 4340}#))) + (if #{xr\ 4363}# (values - (cons #{xr\ 4405}# - #{xr*\ 4398}#) - #{y-pat\ 4399}# - #{r\ 4400}#) + (cons #{xr\ 4363}# + #{xr*\ 4356}#) + #{y-pat\ 4357}# + #{r\ 4358}#) (values #f #f #f))) (values '() - (cdr #{y-pat\ 4399}#) - (#{match\ 4260}# - (car #{e\ 4394}#) - (car #{y-pat\ 4399}#) - #{w\ 4395}# - #{r\ 4400}# - #{mod\ 4382}#))) + (cdr #{y-pat\ 4357}#) + (#{match\ 4218}# + (car #{e\ 4352}#) + (car #{y-pat\ 4357}#) + #{w\ 4353}# + #{r\ 4358}# + #{mod\ 4340}#))) (values #f #f #f)))) - (if (#{syntax-object?\ 630}# #{e\ 4394}#) - (#{f\ 4393}# - (#{syntax-object-expression\ 632}# - #{e\ 4394}#) - (#{join-wraps\ 717}# - #{w\ 4395}# - #{e\ 4394}#)) + (if (#{syntax-object?\ 331}# #{e\ 4352}#) + (#{f\ 4351}# + (#{syntax-object-expression\ 333}# + #{e\ 4352}#) + (#{join-wraps\ 418}# + #{w\ 4353}# + #{e\ 4352}#)) (values '() - #{y-pat\ 4378}# - (#{match\ 4260}# - #{e\ 4394}# - #{z-pat\ 4379}# - #{w\ 4395}# - #{r\ 4381}# - #{mod\ 4382}#))))))) - (#{f\ 4393}# #{e\ 4376}# #{w\ 4380}#)))) - (#{match-each\ 4248}# - (lambda (#{e\ 4409}# - #{p\ 4410}# - #{w\ 4411}# - #{mod\ 4412}#) - (if (pair? #{e\ 4409}#) - (let ((#{first\ 4420}# - (#{match\ 4260}# - (car #{e\ 4409}#) - #{p\ 4410}# - #{w\ 4411}# + #{y-pat\ 4336}# + (#{match\ 4218}# + #{e\ 4352}# + #{z-pat\ 4337}# + #{w\ 4353}# + #{r\ 4339}# + #{mod\ 4340}#))))))) + (#{f\ 4351}# #{e\ 4334}# #{w\ 4338}#)))) + (#{match-each\ 4206}# + (lambda (#{e\ 4367}# + #{p\ 4368}# + #{w\ 4369}# + #{mod\ 4370}#) + (if (pair? #{e\ 4367}#) + (let ((#{first\ 4378}# + (#{match\ 4218}# + (car #{e\ 4367}#) + #{p\ 4368}# + #{w\ 4369}# '() - #{mod\ 4412}#))) - (if #{first\ 4420}# - (let ((#{rest\ 4424}# - (#{match-each\ 4248}# - (cdr #{e\ 4409}#) - #{p\ 4410}# - #{w\ 4411}# - #{mod\ 4412}#))) - (if #{rest\ 4424}# - (cons #{first\ 4420}# #{rest\ 4424}#) + #{mod\ 4370}#))) + (if #{first\ 4378}# + (let ((#{rest\ 4382}# + (#{match-each\ 4206}# + (cdr #{e\ 4367}#) + #{p\ 4368}# + #{w\ 4369}# + #{mod\ 4370}#))) + (if #{rest\ 4382}# + (cons #{first\ 4378}# #{rest\ 4382}#) #f)) #f)) - (if (null? #{e\ 4409}#) + (if (null? #{e\ 4367}#) '() - (if (#{syntax-object?\ 630}# #{e\ 4409}#) - (#{match-each\ 4248}# - (#{syntax-object-expression\ 632}# #{e\ 4409}#) - #{p\ 4410}# - (#{join-wraps\ 717}# - #{w\ 4411}# - (#{syntax-object-wrap\ 634}# #{e\ 4409}#)) - (#{syntax-object-module\ 636}# #{e\ 4409}#)) + (if (#{syntax-object?\ 331}# #{e\ 4367}#) + (#{match-each\ 4206}# + (#{syntax-object-expression\ 333}# #{e\ 4367}#) + #{p\ 4368}# + (#{join-wraps\ 418}# + #{w\ 4369}# + (#{syntax-object-wrap\ 335}# #{e\ 4367}#)) + (#{syntax-object-module\ 337}# #{e\ 4367}#)) #f)))))) (set! $sc-dispatch - (lambda (#{e\ 4432}# #{p\ 4433}#) - (if (eq? #{p\ 4433}# (quote any)) - (list #{e\ 4432}#) - (if (#{syntax-object?\ 630}# #{e\ 4432}#) - (#{match*\ 4258}# - (#{syntax-object-expression\ 632}# #{e\ 4432}#) - #{p\ 4433}# - (#{syntax-object-wrap\ 634}# #{e\ 4432}#) + (lambda (#{e\ 4390}# #{p\ 4391}#) + (if (eq? #{p\ 4391}# (quote any)) + (list #{e\ 4390}#) + (if (#{syntax-object?\ 331}# #{e\ 4390}#) + (#{match*\ 4216}# + (#{syntax-object-expression\ 333}# #{e\ 4390}#) + #{p\ 4391}# + (#{syntax-object-wrap\ 335}# #{e\ 4390}#) '() - (#{syntax-object-module\ 636}# #{e\ 4432}#)) - (#{match*\ 4258}# - #{e\ 4432}# - #{p\ 4433}# + (#{syntax-object-module\ 337}# #{e\ 4390}#)) + (#{match*\ 4216}# + #{e\ 4390}# + #{p\ 4391}# '(()) '() #f))))))))) @@ -12136,50 +13162,50 @@ (make-syntax-transformer 'with-syntax 'macro - (cons (lambda (#{x\ 4442}#) - ((lambda (#{tmp\ 4444}#) - ((lambda (#{tmp\ 4445}#) - (if #{tmp\ 4445}# - (apply (lambda (#{_\ 4449}# #{e1\ 4450}# #{e2\ 4451}#) + (cons (lambda (#{x\ 4400}#) + ((lambda (#{tmp\ 4402}#) + ((lambda (#{tmp\ 4403}#) + (if #{tmp\ 4403}# + (apply (lambda (#{_\ 4407}# #{e1\ 4408}# #{e2\ 4409}#) (cons '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) - #("i4446" "i4447" "i4448")) + #("i4404" "i4405" "i4406")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4443"))) + #(ribcage #(x) #((top)) #("i4401"))) (hygiene guile)) - (cons #{e1\ 4450}# #{e2\ 4451}#))) - #{tmp\ 4445}#) - ((lambda (#{tmp\ 4453}#) - (if #{tmp\ 4453}# - (apply (lambda (#{_\ 4459}# - #{out\ 4460}# - #{in\ 4461}# - #{e1\ 4462}# - #{e2\ 4463}#) + (cons #{e1\ 4408}# #{e2\ 4409}#))) + #{tmp\ 4403}#) + ((lambda (#{tmp\ 4411}#) + (if #{tmp\ 4411}# + (apply (lambda (#{_\ 4417}# + #{out\ 4418}# + #{in\ 4419}# + #{e1\ 4420}# + #{e2\ 4421}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) - #("i4454" - "i4455" - "i4456" - "i4457" - "i4458")) + #("i4412" + "i4413" + "i4414" + "i4415" + "i4416")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4443"))) + #("i4401"))) (hygiene guile)) - #{in\ 4461}# + #{in\ 4419}# '() - (list #{out\ 4460}# + (list #{out\ 4418}# (cons '#(syntax-object begin ((top) @@ -12190,27 +13216,27 @@ (top) (top) (top)) - #("i4454" - "i4455" - "i4456" - "i4457" - "i4458")) + #("i4412" + "i4413" + "i4414" + "i4415" + "i4416")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4443"))) + #("i4401"))) (hygiene guile)) - (cons #{e1\ 4462}# - #{e2\ 4463}#))))) - #{tmp\ 4453}#) - ((lambda (#{tmp\ 4465}#) - (if #{tmp\ 4465}# - (apply (lambda (#{_\ 4471}# - #{out\ 4472}# - #{in\ 4473}# - #{e1\ 4474}# - #{e2\ 4475}#) + (cons #{e1\ 4420}# + #{e2\ 4421}#))))) + #{tmp\ 4411}#) + ((lambda (#{tmp\ 4423}#) + (if #{tmp\ 4423}# + (apply (lambda (#{_\ 4429}# + #{out\ 4430}# + #{in\ 4431}# + #{e1\ 4432}# + #{e2\ 4433}#) (list '#(syntax-object syntax-case ((top) @@ -12221,16 +13247,16 @@ (top) (top) (top)) - #("i4466" - "i4467" - "i4468" - "i4469" - "i4470")) + #("i4424" + "i4425" + "i4426" + "i4427" + "i4428")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4443"))) + #("i4401"))) (hygiene guile)) (cons '#(syntax-object list @@ -12242,20 +13268,20 @@ (top) (top) (top)) - #("i4466" - "i4467" - "i4468" - "i4469" - "i4470")) + #("i4424" + "i4425" + "i4426" + "i4427" + "i4428")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4443"))) + #("i4401"))) (hygiene guile)) - #{in\ 4473}#) + #{in\ 4431}#) '() - (list #{out\ 4472}# + (list #{out\ 4430}# (cons '#(syntax-object begin ((top) @@ -12270,11 +13296,11 @@ (top) (top) (top)) - #("i4466" - "i4467" - "i4468" - "i4469" - "i4470")) + #("i4424" + "i4425" + "i4426" + "i4427" + "i4428")) #(ribcage () () @@ -12282,53 +13308,53 @@ #(ribcage #(x) #((top)) - #("i4443"))) + #("i4401"))) (hygiene guile)) - (cons #{e1\ 4474}# - #{e2\ 4475}#))))) - #{tmp\ 4465}#) + (cons #{e1\ 4432}# + #{e2\ 4433}#))))) + #{tmp\ 4423}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4444}#))) + #{tmp\ 4402}#))) ($sc-dispatch - #{tmp\ 4444}# + #{tmp\ 4402}# '(any #(each (any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 4444}# + #{tmp\ 4402}# '(any ((any any)) any . each-any))))) ($sc-dispatch - #{tmp\ 4444}# + #{tmp\ 4402}# '(any () any . each-any)))) - #{x\ 4442}#)) + #{x\ 4400}#)) (module-name (current-module))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (cons (lambda (#{x\ 4479}#) - ((lambda (#{tmp\ 4481}#) - ((lambda (#{tmp\ 4482}#) - (if #{tmp\ 4482}# - (apply (lambda (#{_\ 4488}# - #{k\ 4489}# - #{keyword\ 4490}# - #{pattern\ 4491}# - #{template\ 4492}#) + (cons (lambda (#{x\ 4455}#) + ((lambda (#{tmp\ 4457}#) + ((lambda (#{tmp\ 4458}#) + (if #{tmp\ 4458}# + (apply (lambda (#{_\ 4464}# + #{k\ 4465}# + #{keyword\ 4466}# + #{pattern\ 4467}# + #{template\ 4468}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4480"))) + #(ribcage #(x) #((top)) #("i4456"))) (hygiene guile)) '(#(syntax-object x @@ -12336,13 +13362,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4480"))) + #(ribcage #(x) #((top)) #("i4456"))) (hygiene guile))) (vector '(#(syntax-object @@ -12351,13 +13377,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4480"))) + #(ribcage #(x) #((top)) #("i4456"))) (hygiene guile)) . #(syntax-object @@ -12366,13 +13392,13 @@ #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4480"))) + #(ribcage #(x) #((top)) #("i4456"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -12388,34 +13414,34 @@ (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4480"))) + #("i4456"))) (hygiene guile)) - #{pattern\ 4491}#)) + #{pattern\ 4467}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(_ k keyword pattern template) #((top) (top) (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4480"))) + #("i4456"))) (hygiene guile)) (cons '#(syntax-object x @@ -12431,20 +13457,20 @@ (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4480"))) + #("i4456"))) (hygiene guile)) - (cons #{k\ 4489}# - (map (lambda (#{tmp\ 4496}# - #{tmp\ 4495}#) + (cons #{k\ 4465}# + (map (lambda (#{tmp\ 4472}# + #{tmp\ 4471}#) (list (cons '#(syntax-object dummy ((top) @@ -12459,11 +13485,11 @@ (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () @@ -12471,10 +13497,10 @@ #(ribcage #(x) #((top)) - #("i4480"))) + #("i4456"))) (hygiene guile)) - #{tmp\ 4495}#) + #{tmp\ 4471}#) (list '#(syntax-object syntax ((top) @@ -12489,11 +13515,11 @@ (top) (top) (top)) - #("i4483" - "i4484" - "i4485" - "i4486" - "i4487")) + #("i4459" + "i4460" + "i4461" + "i4462" + "i4463")) #(ribcage () () @@ -12501,47 +13527,47 @@ #(ribcage #(x) #((top)) - #("i4480"))) + #("i4456"))) (hygiene guile)) - #{tmp\ 4496}#))) - #{template\ 4492}# - #{pattern\ 4491}#)))))) - #{tmp\ 4482}#) + #{tmp\ 4472}#))) + #{template\ 4468}# + #{pattern\ 4467}#)))))) + #{tmp\ 4458}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4481}#))) + #{tmp\ 4457}#))) ($sc-dispatch - #{tmp\ 4481}# + #{tmp\ 4457}# '(any each-any . #(each ((any . any) any)))))) - #{x\ 4479}#)) + #{x\ 4455}#)) (module-name (current-module))))) (define let* (make-syntax-transformer 'let* 'macro - (cons (lambda (#{x\ 4497}#) - ((lambda (#{tmp\ 4499}#) - ((lambda (#{tmp\ 4500}#) - (if (if #{tmp\ 4500}# - (apply (lambda (#{let*\ 4506}# - #{x\ 4507}# - #{v\ 4508}# - #{e1\ 4509}# - #{e2\ 4510}#) - (and-map identifier? #{x\ 4507}#)) - #{tmp\ 4500}#) + (cons (lambda (#{x\ 4483}#) + ((lambda (#{tmp\ 4485}#) + ((lambda (#{tmp\ 4486}#) + (if (if #{tmp\ 4486}# + (apply (lambda (#{let*\ 4492}# + #{x\ 4493}# + #{v\ 4494}# + #{e1\ 4495}# + #{e2\ 4496}#) + (and-map identifier? #{x\ 4493}#)) + #{tmp\ 4486}#) #f) - (apply (lambda (#{let*\ 4517}# - #{x\ 4518}# - #{v\ 4519}# - #{e1\ 4520}# - #{e2\ 4521}#) - (letrec ((#{f\ 4524}# - (lambda (#{bindings\ 4525}#) - (if (null? #{bindings\ 4525}#) + (apply (lambda (#{let*\ 4503}# + #{x\ 4504}# + #{v\ 4505}# + #{e1\ 4506}# + #{e2\ 4507}#) + (letrec ((#{f\ 4510}# + (lambda (#{bindings\ 4511}#) + (if (null? #{bindings\ 4511}#) (cons '#(syntax-object let ((top) @@ -12549,7 +13575,7 @@ #(ribcage #(f bindings) #((top) (top)) - #("i4522" "i4523")) + #("i4508" "i4509")) #(ribcage #(let* x v e1 e2) #((top) @@ -12557,25 +13583,25 @@ (top) (top) (top)) - #("i4512" - "i4513" - "i4514" - "i4515" - "i4516")) + #("i4498" + "i4499" + "i4500" + "i4501" + "i4502")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4498"))) + #("i4484"))) (hygiene guile)) (cons '() - (cons #{e1\ 4520}# - #{e2\ 4521}#))) - ((lambda (#{tmp\ 4530}#) - ((lambda (#{tmp\ 4531}#) - (if #{tmp\ 4531}# - (apply (lambda (#{body\ 4534}# - #{binding\ 4535}#) + (cons #{e1\ 4506}# + #{e2\ 4507}#))) + ((lambda (#{tmp\ 4516}#) + ((lambda (#{tmp\ 4517}#) + (if #{tmp\ 4517}# + (apply (lambda (#{body\ 4520}# + #{binding\ 4521}#) (list '#(syntax-object let ((top) @@ -12584,8 +13610,8 @@ binding) #((top) (top)) - #("i4532" - "i4533")) + #("i4518" + "i4519")) #(ribcage () () @@ -12595,8 +13621,8 @@ bindings) #((top) (top)) - #("i4522" - "i4523")) + #("i4508" + "i4509")) #(ribcage #(let* x @@ -12608,11 +13634,11 @@ (top) (top) (top)) - #("i4512" - "i4513" - "i4514" - "i4515" - "i4516")) + #("i4498" + "i4499" + "i4500" + "i4501" + "i4502")) #(ribcage () () @@ -12620,57 +13646,57 @@ #(ribcage #(x) #((top)) - #("i4498"))) + #("i4484"))) (hygiene guile)) - (list #{binding\ 4535}#) - #{body\ 4534}#)) - #{tmp\ 4531}#) + (list #{binding\ 4521}#) + #{body\ 4520}#)) + #{tmp\ 4517}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4530}#))) + #{tmp\ 4516}#))) ($sc-dispatch - #{tmp\ 4530}# + #{tmp\ 4516}# '(any any)))) - (list (#{f\ 4524}# - (cdr #{bindings\ 4525}#)) - (car #{bindings\ 4525}#))))))) - (#{f\ 4524}# - (map list #{x\ 4518}# #{v\ 4519}#)))) - #{tmp\ 4500}#) + (list (#{f\ 4510}# + (cdr #{bindings\ 4511}#)) + (car #{bindings\ 4511}#))))))) + (#{f\ 4510}# + (map list #{x\ 4504}# #{v\ 4505}#)))) + #{tmp\ 4486}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4499}#))) + #{tmp\ 4485}#))) ($sc-dispatch - #{tmp\ 4499}# + #{tmp\ 4485}# '(any #(each (any any)) any . each-any)))) - #{x\ 4497}#)) + #{x\ 4483}#)) (module-name (current-module))))) (define do (make-syntax-transformer 'do 'macro - (cons (lambda (#{orig-x\ 4536}#) - ((lambda (#{tmp\ 4538}#) - ((lambda (#{tmp\ 4539}#) - (if #{tmp\ 4539}# - (apply (lambda (#{_\ 4547}# - #{var\ 4548}# - #{init\ 4549}# - #{step\ 4550}# - #{e0\ 4551}# - #{e1\ 4552}# - #{c\ 4553}#) - ((lambda (#{tmp\ 4555}#) - ((lambda (#{tmp\ 4556}#) - (if #{tmp\ 4556}# - (apply (lambda (#{step\ 4558}#) - ((lambda (#{tmp\ 4559}#) - ((lambda (#{tmp\ 4560}#) - (if #{tmp\ 4560}# + (cons (lambda (#{orig-x\ 4541}#) + ((lambda (#{tmp\ 4543}#) + ((lambda (#{tmp\ 4544}#) + (if #{tmp\ 4544}# + (apply (lambda (#{_\ 4552}# + #{var\ 4553}# + #{init\ 4554}# + #{step\ 4555}# + #{e0\ 4556}# + #{e1\ 4557}# + #{c\ 4558}#) + ((lambda (#{tmp\ 4560}#) + ((lambda (#{tmp\ 4561}#) + (if #{tmp\ 4561}# + (apply (lambda (#{step\ 4563}#) + ((lambda (#{tmp\ 4564}#) + ((lambda (#{tmp\ 4565}#) + (if #{tmp\ 4565}# (apply (lambda () (list '#(syntax-object let @@ -12678,7 +13704,7 @@ #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12694,13 +13720,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12708,7 +13734,7 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) '#(syntax-object @@ -12717,7 +13743,7 @@ #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12733,13 +13759,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12747,19 +13773,19 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) (map list - #{var\ 4548}# - #{init\ 4549}#) + #{var\ 4553}# + #{init\ 4554}#) (list '#(syntax-object if ((top) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12775,13 +13801,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12789,7 +13815,7 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) (list '#(syntax-object @@ -12798,7 +13824,7 @@ #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12814,13 +13840,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12828,17 +13854,17 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) - #{e0\ 4551}#) + #{e0\ 4556}#) (cons '#(syntax-object begin ((top) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12854,13 +13880,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12868,18 +13894,18 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) (append - #{c\ 4553}# + #{c\ 4558}# (list (cons '#(syntax-object doloop ((top) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12895,13 +13921,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12909,15 +13935,15 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) - #{step\ 4558}#))))))) - #{tmp\ 4560}#) - ((lambda (#{tmp\ 4565}#) - (if #{tmp\ 4565}# - (apply (lambda (#{e1\ 4568}# - #{e2\ 4569}#) + #{step\ 4563}#))))))) + #{tmp\ 4565}#) + ((lambda (#{tmp\ 4570}#) + (if #{tmp\ 4570}# + (apply (lambda (#{e1\ 4573}# + #{e2\ 4574}#) (list '#(syntax-object let ((top) @@ -12926,12 +13952,12 @@ e2) #((top) (top)) - #("i4566" - "i4567")) + #("i4571" + "i4572")) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12947,13 +13973,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -12961,7 +13987,7 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) '#(syntax-object @@ -12972,12 +13998,12 @@ e2) #((top) (top)) - #("i4566" - "i4567")) + #("i4571" + "i4572")) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -12993,13 +14019,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -13007,12 +14033,12 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) (map list - #{var\ 4548}# - #{init\ 4549}#) + #{var\ 4553}# + #{init\ 4554}#) (list '#(syntax-object if ((top) @@ -13021,12 +14047,12 @@ e2) #((top) (top)) - #("i4566" - "i4567")) + #("i4571" + "i4572")) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -13042,13 +14068,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -13056,10 +14082,10 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) - #{e0\ 4551}# + #{e0\ 4556}# (cons '#(syntax-object begin ((top) @@ -13068,12 +14094,12 @@ e2) #((top) (top)) - #("i4566" - "i4567")) + #("i4571" + "i4572")) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -13089,13 +14115,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -13103,11 +14129,11 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) - (cons #{e1\ 4568}# - #{e2\ 4569}#)) + (cons #{e1\ 4573}# + #{e2\ 4574}#)) (cons '#(syntax-object begin ((top) @@ -13116,12 +14142,12 @@ e2) #((top) (top)) - #("i4566" - "i4567")) + #("i4571" + "i4572")) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -13137,13 +14163,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -13151,11 +14177,11 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) (append - #{c\ 4553}# + #{c\ 4558}# (list (cons '#(syntax-object doloop ((top) @@ -13164,12 +14190,12 @@ e2) #((top) (top)) - #("i4566" - "i4567")) + #("i4571" + "i4572")) #(ribcage #(step) #((top)) - #("i4557")) + #("i4562")) #(ribcage #(_ var @@ -13185,13 +14211,13 @@ (top) (top) (top)) - #("i4540" - "i4541" - "i4542" - "i4543" - "i4544" - "i4545" - "i4546")) + #("i4545" + "i4546" + "i4547" + "i4548" + "i4549" + "i4550" + "i4551")) #(ribcage () () @@ -13199,107 +14225,107 @@ #(ribcage #(orig-x) #((top)) - #("i4537"))) + #("i4542"))) (hygiene guile)) - #{step\ 4558}#))))))) - #{tmp\ 4565}#) + #{step\ 4563}#))))))) + #{tmp\ 4570}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4559}#))) + #{tmp\ 4564}#))) ($sc-dispatch - #{tmp\ 4559}# + #{tmp\ 4564}# '(any . each-any))))) ($sc-dispatch - #{tmp\ 4559}# + #{tmp\ 4564}# '()))) - #{e1\ 4552}#)) - #{tmp\ 4556}#) + #{e1\ 4557}#)) + #{tmp\ 4561}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4555}#))) + #{tmp\ 4560}#))) ($sc-dispatch - #{tmp\ 4555}# + #{tmp\ 4560}# 'each-any))) - (map (lambda (#{v\ 4576}# #{s\ 4577}#) - ((lambda (#{tmp\ 4580}#) - ((lambda (#{tmp\ 4581}#) - (if #{tmp\ 4581}# - (apply (lambda () #{v\ 4576}#) - #{tmp\ 4581}#) - ((lambda (#{tmp\ 4582}#) - (if #{tmp\ 4582}# - (apply (lambda (#{e\ 4584}#) - #{e\ 4584}#) - #{tmp\ 4582}#) - ((lambda (#{_\ 4586}#) + (map (lambda (#{v\ 4581}# #{s\ 4582}#) + ((lambda (#{tmp\ 4585}#) + ((lambda (#{tmp\ 4586}#) + (if #{tmp\ 4586}# + (apply (lambda () #{v\ 4581}#) + #{tmp\ 4586}#) + ((lambda (#{tmp\ 4587}#) + (if #{tmp\ 4587}# + (apply (lambda (#{e\ 4589}#) + #{e\ 4589}#) + #{tmp\ 4587}#) + ((lambda (#{_\ 4591}#) (syntax-violation 'do "bad step expression" - #{orig-x\ 4536}# - #{s\ 4577}#)) - #{tmp\ 4580}#))) + #{orig-x\ 4541}# + #{s\ 4582}#)) + #{tmp\ 4585}#))) ($sc-dispatch - #{tmp\ 4580}# + #{tmp\ 4585}# '(any))))) ($sc-dispatch - #{tmp\ 4580}# + #{tmp\ 4585}# '()))) - #{s\ 4577}#)) - #{var\ 4548}# - #{step\ 4550}#))) - #{tmp\ 4539}#) + #{s\ 4582}#)) + #{var\ 4553}# + #{step\ 4555}#))) + #{tmp\ 4544}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4538}#))) + #{tmp\ 4543}#))) ($sc-dispatch - #{tmp\ 4538}# + #{tmp\ 4543}# '(any #(each (any any . any)) (any . each-any) . each-any)))) - #{orig-x\ 4536}#)) + #{orig-x\ 4541}#)) (module-name (current-module))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro - (cons (letrec ((#{quasicons\ 4593}# - (lambda (#{x\ 4597}# #{y\ 4598}#) - ((lambda (#{tmp\ 4602}#) - ((lambda (#{tmp\ 4603}#) - (if #{tmp\ 4603}# - (apply (lambda (#{x\ 4606}# #{y\ 4607}#) - ((lambda (#{tmp\ 4608}#) - ((lambda (#{tmp\ 4609}#) - (if #{tmp\ 4609}# - (apply (lambda (#{dy\ 4611}#) - ((lambda (#{tmp\ 4612}#) - ((lambda (#{tmp\ 4613}#) - (if #{tmp\ 4613}# - (apply (lambda (#{dx\ 4615}#) + (cons (letrec ((#{quasicons\ 4623}# + (lambda (#{x\ 4627}# #{y\ 4628}#) + ((lambda (#{tmp\ 4632}#) + ((lambda (#{tmp\ 4633}#) + (if #{tmp\ 4633}# + (apply (lambda (#{x\ 4636}# #{y\ 4637}#) + ((lambda (#{tmp\ 4638}#) + ((lambda (#{tmp\ 4639}#) + (if #{tmp\ 4639}# + (apply (lambda (#{dy\ 4641}#) + ((lambda (#{tmp\ 4642}#) + ((lambda (#{tmp\ 4643}#) + (if #{tmp\ 4643}# + (apply (lambda (#{dx\ 4645}#) (list '#(syntax-object quote ((top) #(ribcage #(dx) #((top)) - #("i4614")) + #("i4644")) #(ribcage #(dy) #((top)) - #("i4610")) + #("i4640")) #(ribcage #(x y) #((top) (top)) - #("i4604" - "i4605")) + #("i4634" + "i4635")) #(ribcage () () @@ -13313,8 +14339,8 @@ y) #((top) (top)) - #("i4599" - "i4600")) + #("i4629" + "i4630")) #(ribcage #(quasicons quasiappend @@ -13324,35 +14350,35 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - (cons #{dx\ 4615}# - #{dy\ 4611}#))) - #{tmp\ 4613}#) - ((lambda (#{_\ 4617}#) - (if (null? #{dy\ 4611}#) + (cons #{dx\ 4645}# + #{dy\ 4641}#))) + #{tmp\ 4643}#) + ((lambda (#{_\ 4647}#) + (if (null? #{dy\ 4641}#) (list '#(syntax-object list ((top) #(ribcage #(_) #((top)) - #("i4616")) + #("i4646")) #(ribcage #(dy) #((top)) - #("i4610")) + #("i4640")) #(ribcage #(x y) #((top) (top)) - #("i4604" - "i4605")) + #("i4634" + "i4635")) #(ribcage () () @@ -13366,8 +14392,8 @@ y) #((top) (top)) - #("i4599" - "i4600")) + #("i4629" + "i4630")) #(ribcage #(quasicons quasiappend @@ -13377,31 +14403,31 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{x\ 4606}#) + #{x\ 4636}#) (list '#(syntax-object cons ((top) #(ribcage #(_) #((top)) - #("i4616")) + #("i4646")) #(ribcage #(dy) #((top)) - #("i4610")) + #("i4640")) #(ribcage #(x y) #((top) (top)) - #("i4604" - "i4605")) + #("i4634" + "i4635")) #(ribcage () () @@ -13415,8 +14441,8 @@ y) #((top) (top)) - #("i4599" - "i4600")) + #("i4629" + "i4630")) #(ribcage #(quasicons quasiappend @@ -13426,17 +14452,17 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{x\ 4606}# - #{y\ 4607}#))) - #{tmp\ 4612}#))) + #{x\ 4636}# + #{y\ 4637}#))) + #{tmp\ 4642}#))) ($sc-dispatch - #{tmp\ 4612}# + #{tmp\ 4642}# '(#(free-id #(syntax-object quote @@ -13444,13 +14470,13 @@ #(ribcage #(dy) #((top)) - #("i4610")) + #("i4640")) #(ribcage #(x y) #((top) (top)) - #("i4604" - "i4605")) + #("i4634" + "i4635")) #(ribcage () () @@ -13463,8 +14489,8 @@ #(x y) #((top) (top)) - #("i4599" - "i4600")) + #("i4629" + "i4630")) #(ribcage #(quasicons quasiappend @@ -13474,32 +14500,32 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) any)))) - #{x\ 4606}#)) - #{tmp\ 4609}#) - ((lambda (#{tmp\ 4618}#) - (if #{tmp\ 4618}# - (apply (lambda (#{stuff\ 4620}#) + #{x\ 4636}#)) + #{tmp\ 4639}#) + ((lambda (#{tmp\ 4648}#) + (if #{tmp\ 4648}# + (apply (lambda (#{stuff\ 4650}#) (cons '#(syntax-object list ((top) #(ribcage #(stuff) #((top)) - #("i4619")) + #("i4649")) #(ribcage #(x y) #((top) (top)) - #("i4604" - "i4605")) + #("i4634" + "i4635")) #(ribcage () () @@ -13513,8 +14539,8 @@ y) #((top) (top)) - #("i4599" - "i4600")) + #("i4629" + "i4630")) #(ribcage #(quasicons quasiappend @@ -13524,29 +14550,29 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - (cons #{x\ 4606}# - #{stuff\ 4620}#))) - #{tmp\ 4618}#) - ((lambda (#{else\ 4622}#) + (cons #{x\ 4636}# + #{stuff\ 4650}#))) + #{tmp\ 4648}#) + ((lambda (#{else\ 4652}#) (list '#(syntax-object cons ((top) #(ribcage #(else) #((top)) - #("i4621")) + #("i4651")) #(ribcage #(x y) #((top) (top)) - #("i4604" - "i4605")) + #("i4634" + "i4635")) #(ribcage () () @@ -13559,8 +14585,8 @@ #(x y) #((top) (top)) - #("i4599" - "i4600")) + #("i4629" + "i4630")) #(ribcage #(quasicons quasiappend @@ -13570,17 +14596,17 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{x\ 4606}# - #{y\ 4607}#)) - #{tmp\ 4608}#))) + #{x\ 4636}# + #{y\ 4637}#)) + #{tmp\ 4638}#))) ($sc-dispatch - #{tmp\ 4608}# + #{tmp\ 4638}# '(#(free-id #(syntax-object list @@ -13588,13 +14614,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4604" "i4605")) + #("i4634" "i4635")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4599" "i4600")) + #("i4629" "i4630")) #(ribcage #(quasicons quasiappend @@ -13604,15 +14630,15 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4608}# + #{tmp\ 4638}# '(#(free-id #(syntax-object quote @@ -13620,13 +14646,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4604" "i4605")) + #("i4634" "i4635")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4599" "i4600")) + #("i4629" "i4630")) #(ribcage #(quasicons quasiappend @@ -13636,44 +14662,44 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) any)))) - #{y\ 4607}#)) - #{tmp\ 4603}#) + #{y\ 4637}#)) + #{tmp\ 4633}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4602}#))) - ($sc-dispatch #{tmp\ 4602}# (quote (any any))))) - (list #{x\ 4597}# #{y\ 4598}#)))) - (#{quasiappend\ 4594}# - (lambda (#{x\ 4623}# #{y\ 4624}#) - ((lambda (#{tmp\ 4628}#) - ((lambda (#{tmp\ 4629}#) - (if #{tmp\ 4629}# - (apply (lambda (#{x\ 4632}# #{y\ 4633}#) - ((lambda (#{tmp\ 4634}#) - ((lambda (#{tmp\ 4635}#) - (if #{tmp\ 4635}# - (apply (lambda () #{x\ 4632}#) - #{tmp\ 4635}#) - ((lambda (#{_\ 4637}#) + #{tmp\ 4632}#))) + ($sc-dispatch #{tmp\ 4632}# (quote (any any))))) + (list #{x\ 4627}# #{y\ 4628}#)))) + (#{quasiappend\ 4624}# + (lambda (#{x\ 4653}# #{y\ 4654}#) + ((lambda (#{tmp\ 4658}#) + ((lambda (#{tmp\ 4659}#) + (if #{tmp\ 4659}# + (apply (lambda (#{x\ 4662}# #{y\ 4663}#) + ((lambda (#{tmp\ 4664}#) + ((lambda (#{tmp\ 4665}#) + (if #{tmp\ 4665}# + (apply (lambda () #{x\ 4662}#) + #{tmp\ 4665}#) + ((lambda (#{_\ 4667}#) (list '#(syntax-object append ((top) #(ribcage #(_) #((top)) - #("i4636")) + #("i4666")) #(ribcage #(x y) #((top) (top)) - #("i4630" - "i4631")) + #("i4660" + "i4661")) #(ribcage () () @@ -13685,8 +14711,8 @@ #(ribcage #(x y) #((top) (top)) - #("i4625" - "i4626")) + #("i4655" + "i4656")) #(ribcage #(quasicons quasiappend @@ -13696,16 +14722,16 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{x\ 4632}# - #{y\ 4633}#)) - #{tmp\ 4634}#))) + #{x\ 4662}# + #{y\ 4663}#)) + #{tmp\ 4664}#))) ($sc-dispatch - #{tmp\ 4634}# + #{tmp\ 4664}# '(#(free-id #(syntax-object quote @@ -13713,13 +14739,13 @@ #(ribcage #(x y) #((top) (top)) - #("i4630" "i4631")) + #("i4660" "i4661")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("i4625" "i4626")) + #("i4655" "i4656")) #(ribcage #(quasicons quasiappend @@ -13729,45 +14755,45 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) ())))) - #{y\ 4633}#)) - #{tmp\ 4629}#) + #{y\ 4663}#)) + #{tmp\ 4659}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4628}#))) - ($sc-dispatch #{tmp\ 4628}# (quote (any any))))) - (list #{x\ 4623}# #{y\ 4624}#)))) - (#{quasivector\ 4595}# - (lambda (#{x\ 4638}#) - ((lambda (#{tmp\ 4641}#) - ((lambda (#{x\ 4643}#) - ((lambda (#{tmp\ 4644}#) - ((lambda (#{tmp\ 4645}#) - (if #{tmp\ 4645}# - (apply (lambda (#{x\ 4647}#) + #{tmp\ 4658}#))) + ($sc-dispatch #{tmp\ 4658}# (quote (any any))))) + (list #{x\ 4653}# #{y\ 4654}#)))) + (#{quasivector\ 4625}# + (lambda (#{x\ 4668}#) + ((lambda (#{tmp\ 4671}#) + ((lambda (#{x\ 4673}#) + ((lambda (#{tmp\ 4674}#) + ((lambda (#{tmp\ 4675}#) + (if #{tmp\ 4675}# + (apply (lambda (#{x\ 4677}#) (list '#(syntax-object quote ((top) #(ribcage #(x) #((top)) - #("i4646")) + #("i4676")) #(ribcage #(x) #((top)) - #("i4642")) + #("i4672")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4639")) + #("i4669")) #(ribcage #(quasicons quasiappend @@ -13777,28 +14803,28 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) (list->vector - #{x\ 4647}#))) - #{tmp\ 4645}#) - ((lambda (#{tmp\ 4649}#) - (if #{tmp\ 4649}# - (apply (lambda (#{x\ 4651}#) + #{x\ 4677}#))) + #{tmp\ 4675}#) + ((lambda (#{tmp\ 4679}#) + (if #{tmp\ 4679}# + (apply (lambda (#{x\ 4681}#) (cons '#(syntax-object vector ((top) #(ribcage #(x) #((top)) - #("i4650")) + #("i4680")) #(ribcage #(x) #((top)) - #("i4642")) + #("i4672")) #(ribcage () () @@ -13810,7 +14836,7 @@ #(ribcage #(x) #((top)) - #("i4639")) + #("i4669")) #(ribcage #(quasicons quasiappend @@ -13820,31 +14846,31 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{x\ 4651}#)) - #{tmp\ 4649}#) - ((lambda (#{_\ 4654}#) + #{x\ 4681}#)) + #{tmp\ 4679}#) + ((lambda (#{_\ 4684}#) (list '#(syntax-object list->vector ((top) #(ribcage #(_) #((top)) - #("i4653")) + #("i4683")) #(ribcage #(x) #((top)) - #("i4642")) + #("i4672")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4639")) + #("i4669")) #(ribcage #(quasicons quasiappend @@ -13854,15 +14880,15 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{x\ 4643}#)) - #{tmp\ 4644}#))) + #{x\ 4673}#)) + #{tmp\ 4674}#))) ($sc-dispatch - #{tmp\ 4644}# + #{tmp\ 4674}# '(#(free-id #(syntax-object list @@ -13870,82 +14896,82 @@ #(ribcage #(x) #((top)) - #("i4642")) + #("i4672")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4639")) + #("i4669")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) . each-any))))) ($sc-dispatch - #{tmp\ 4644}# + #{tmp\ 4674}# '(#(free-id #(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("i4642")) + #(ribcage #(x) #((top)) #("i4672")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4639")) + #(ribcage #(x) #((top)) #("i4669")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) each-any)))) - #{x\ 4643}#)) - #{tmp\ 4641}#)) - #{x\ 4638}#))) - (#{quasi\ 4596}# - (lambda (#{p\ 4655}# #{lev\ 4656}#) - ((lambda (#{tmp\ 4659}#) - ((lambda (#{tmp\ 4660}#) - (if #{tmp\ 4660}# - (apply (lambda (#{p\ 4662}#) - (if (= #{lev\ 4656}# 0) - #{p\ 4662}# - (#{quasicons\ 4593}# + #{x\ 4673}#)) + #{tmp\ 4671}#)) + #{x\ 4668}#))) + (#{quasi\ 4626}# + (lambda (#{p\ 4685}# #{lev\ 4686}#) + ((lambda (#{tmp\ 4689}#) + ((lambda (#{tmp\ 4690}#) + (if #{tmp\ 4690}# + (apply (lambda (#{p\ 4692}#) + (if (= #{lev\ 4686}# 0) + #{p\ 4692}# + (#{quasicons\ 4623}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4661")) + #("i4691")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) #(syntax-object unquote @@ -13953,50 +14979,50 @@ #(ribcage #(p) #((top)) - #("i4661")) + #("i4691")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) - (#{quasi\ 4596}# - (list #{p\ 4662}#) - (- #{lev\ 4656}# 1))))) - #{tmp\ 4660}#) - ((lambda (#{tmp\ 4663}#) - (if (if #{tmp\ 4663}# - (apply (lambda (#{args\ 4665}#) - (= #{lev\ 4656}# 0)) - #{tmp\ 4663}#) + (#{quasi\ 4626}# + (list #{p\ 4692}#) + (- #{lev\ 4686}# 1))))) + #{tmp\ 4690}#) + ((lambda (#{tmp\ 4693}#) + (if (if #{tmp\ 4693}# + (apply (lambda (#{args\ 4695}#) + (= #{lev\ 4686}# 0)) + #{tmp\ 4693}#) #f) - (apply (lambda (#{args\ 4667}#) + (apply (lambda (#{args\ 4697}#) (syntax-violation 'unquote "unquote takes exactly one argument" - #{p\ 4655}# + #{p\ 4685}# (cons '#(syntax-object unquote ((top) #(ribcage #(args) #((top)) - #("i4666")) + #("i4696")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend @@ -14006,33 +15032,33 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{args\ 4667}#))) - #{tmp\ 4663}#) - ((lambda (#{tmp\ 4668}#) - (if #{tmp\ 4668}# - (apply (lambda (#{p\ 4671}# - #{q\ 4672}#) - (if (= #{lev\ 4656}# 0) - (#{quasiappend\ 4594}# - #{p\ 4671}# - (#{quasi\ 4596}# - #{q\ 4672}# - #{lev\ 4656}#)) - (#{quasicons\ 4593}# - (#{quasicons\ 4593}# + #{args\ 4697}#))) + #{tmp\ 4693}#) + ((lambda (#{tmp\ 4698}#) + (if #{tmp\ 4698}# + (apply (lambda (#{p\ 4701}# + #{q\ 4702}#) + (if (= #{lev\ 4686}# 0) + (#{quasiappend\ 4624}# + #{p\ 4701}# + (#{quasi\ 4626}# + #{q\ 4702}# + #{lev\ 4686}#)) + (#{quasicons\ 4623}# + (#{quasicons\ 4623}# '(#(syntax-object quote ((top) #(ribcage #(p q) #((top) (top)) - #("i4669" - "i4670")) + #("i4699" + "i4700")) #(ribcage () () @@ -14040,8 +15066,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" - "i4658")) + #("i4687" + "i4688")) #(ribcage #(quasicons quasiappend @@ -14051,10 +15077,10 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -14062,8 +15088,8 @@ #(ribcage #(p q) #((top) (top)) - #("i4669" - "i4670")) + #("i4699" + "i4700")) #(ribcage () () @@ -14071,8 +15097,8 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" - "i4658")) + #("i4687" + "i4688")) #(ribcage #(quasicons quasiappend @@ -14082,31 +15108,31 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) - (#{quasi\ 4596}# - (list #{p\ 4671}#) - (- #{lev\ 4656}# 1))) - (#{quasi\ 4596}# - #{q\ 4672}# - #{lev\ 4656}#)))) - #{tmp\ 4668}#) - ((lambda (#{tmp\ 4673}#) - (if (if #{tmp\ 4673}# - (apply (lambda (#{args\ 4676}# - #{q\ 4677}#) - (= #{lev\ 4656}# 0)) - #{tmp\ 4673}#) + (#{quasi\ 4626}# + (list #{p\ 4701}#) + (- #{lev\ 4686}# 1))) + (#{quasi\ 4626}# + #{q\ 4702}# + #{lev\ 4686}#)))) + #{tmp\ 4698}#) + ((lambda (#{tmp\ 4703}#) + (if (if #{tmp\ 4703}# + (apply (lambda (#{args\ 4706}# + #{q\ 4707}#) + (= #{lev\ 4686}# 0)) + #{tmp\ 4703}#) #f) - (apply (lambda (#{args\ 4680}# - #{q\ 4681}#) + (apply (lambda (#{args\ 4710}# + #{q\ 4711}#) (syntax-violation 'unquote-splicing "unquote-splicing takes exactly one argument" - #{p\ 4655}# + #{p\ 4685}# (cons '#(syntax-object unquote-splicing ((top) @@ -14114,8 +15140,8 @@ #(args q) #((top) (top)) - #("i4678" - "i4679")) + #("i4708" + "i4709")) #(ribcage () () @@ -14124,8 +15150,8 @@ #(p lev) #((top) (top)) - #("i4657" - "i4658")) + #("i4687" + "i4688")) #(ribcage #(quasicons quasiappend @@ -14135,25 +15161,25 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{args\ 4680}#))) - #{tmp\ 4673}#) - ((lambda (#{tmp\ 4682}#) - (if #{tmp\ 4682}# - (apply (lambda (#{p\ 4684}#) - (#{quasicons\ 4593}# + #{args\ 4710}#))) + #{tmp\ 4703}#) + ((lambda (#{tmp\ 4712}#) + (if #{tmp\ 4712}# + (apply (lambda (#{p\ 4714}#) + (#{quasicons\ 4623}# '(#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4683")) + #("i4713")) #(ribcage () () @@ -14162,8 +15188,8 @@ #(p lev) #((top) (top)) - #("i4657" - "i4658")) + #("i4687" + "i4688")) #(ribcage #(quasicons quasiappend @@ -14173,10 +15199,10 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) #(syntax-object @@ -14185,7 +15211,7 @@ #(ribcage #(p) #((top)) - #("i4683")) + #("i4713")) #(ribcage () () @@ -14194,8 +15220,8 @@ #(p lev) #((top) (top)) - #("i4657" - "i4658")) + #("i4687" + "i4688")) #(ribcage #(quasicons quasiappend @@ -14205,45 +15231,45 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) - (#{quasi\ 4596}# - (list #{p\ 4684}#) - (+ #{lev\ 4656}# + (#{quasi\ 4626}# + (list #{p\ 4714}#) + (+ #{lev\ 4686}# 1)))) - #{tmp\ 4682}#) - ((lambda (#{tmp\ 4685}#) - (if #{tmp\ 4685}# - (apply (lambda (#{p\ 4688}# - #{q\ 4689}#) - (#{quasicons\ 4593}# - (#{quasi\ 4596}# - #{p\ 4688}# - #{lev\ 4656}#) - (#{quasi\ 4596}# - #{q\ 4689}# - #{lev\ 4656}#))) - #{tmp\ 4685}#) - ((lambda (#{tmp\ 4690}#) - (if #{tmp\ 4690}# - (apply (lambda (#{x\ 4692}#) - (#{quasivector\ 4595}# - (#{quasi\ 4596}# - #{x\ 4692}# - #{lev\ 4656}#))) - #{tmp\ 4690}#) - ((lambda (#{p\ 4695}#) + #{tmp\ 4712}#) + ((lambda (#{tmp\ 4715}#) + (if #{tmp\ 4715}# + (apply (lambda (#{p\ 4718}# + #{q\ 4719}#) + (#{quasicons\ 4623}# + (#{quasi\ 4626}# + #{p\ 4718}# + #{lev\ 4686}#) + (#{quasi\ 4626}# + #{q\ 4719}# + #{lev\ 4686}#))) + #{tmp\ 4715}#) + ((lambda (#{tmp\ 4720}#) + (if #{tmp\ 4720}# + (apply (lambda (#{x\ 4722}#) + (#{quasivector\ 4625}# + (#{quasi\ 4626}# + #{x\ 4722}# + #{lev\ 4686}#))) + #{tmp\ 4720}#) + ((lambda (#{p\ 4725}#) (list '#(syntax-object quote ((top) #(ribcage #(p) #((top)) - #("i4694")) + #("i4724")) #(ribcage () () @@ -14253,8 +15279,8 @@ lev) #((top) (top)) - #("i4657" - "i4658")) + #("i4687" + "i4688")) #(ribcage #(quasicons quasiappend @@ -14264,23 +15290,23 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile)) - #{p\ 4695}#)) - #{tmp\ 4659}#))) + #{p\ 4725}#)) + #{tmp\ 4689}#))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '#(vector each-any))))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '(any . any))))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '(#(free-id #(syntax-object quasiquote @@ -14289,7 +15315,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend @@ -14299,14 +15325,14 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) any))))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '((#(free-id #(syntax-object unquote-splicing @@ -14315,7 +15341,7 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend @@ -14325,17 +15351,17 @@ (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) . any) . any))))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '((#(free-id #(syntax-object unquote-splicing @@ -14344,23 +15370,23 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" - "i4590" - "i4591" - "i4592"))) + #("i4619" + "i4620" + "i4621" + "i4622"))) (hygiene guile))) any) . any))))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '(#(free-id #(syntax-object unquote @@ -14369,19 +15395,19 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" "i4590" "i4591" "i4592"))) + #("i4619" "i4620" "i4621" "i4622"))) (hygiene guile))) . any))))) ($sc-dispatch - #{tmp\ 4659}# + #{tmp\ 4689}# '(#(free-id #(syntax-object unquote @@ -14390,244 +15416,244 @@ #(ribcage #(p lev) #((top) (top)) - #("i4657" "i4658")) + #("i4687" "i4688")) #(ribcage #(quasicons quasiappend quasivector quasi) #((top) (top) (top) (top)) - #("i4589" "i4590" "i4591" "i4592"))) + #("i4619" "i4620" "i4621" "i4622"))) (hygiene guile))) any)))) - #{p\ 4655}#)))) - (lambda (#{x\ 4696}#) - ((lambda (#{tmp\ 4698}#) - ((lambda (#{tmp\ 4699}#) - (if #{tmp\ 4699}# - (apply (lambda (#{_\ 4702}# #{e\ 4703}#) - (#{quasi\ 4596}# #{e\ 4703}# 0)) - #{tmp\ 4699}#) + #{p\ 4685}#)))) + (lambda (#{x\ 4726}#) + ((lambda (#{tmp\ 4728}#) + ((lambda (#{tmp\ 4729}#) + (if #{tmp\ 4729}# + (apply (lambda (#{_\ 4732}# #{e\ 4733}#) + (#{quasi\ 4626}# #{e\ 4733}# 0)) + #{tmp\ 4729}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4698}#))) - ($sc-dispatch #{tmp\ 4698}# (quote (any any))))) - #{x\ 4696}#))) + #{tmp\ 4728}#))) + ($sc-dispatch #{tmp\ 4728}# (quote (any any))))) + #{x\ 4726}#))) (module-name (current-module))))) (define include (make-syntax-transformer 'include 'macro - (cons (lambda (#{x\ 4704}#) - (letrec ((#{read-file\ 4707}# - (lambda (#{fn\ 4708}# #{k\ 4709}#) - (let ((#{p\ 4713}# (open-input-file #{fn\ 4708}#))) - (letrec ((#{f\ 4717}# - (lambda (#{x\ 4718}# #{result\ 4719}#) - (if (eof-object? #{x\ 4718}#) + (cons (lambda (#{x\ 4801}#) + (letrec ((#{read-file\ 4804}# + (lambda (#{fn\ 4805}# #{k\ 4806}#) + (let ((#{p\ 4810}# (open-input-file #{fn\ 4805}#))) + (letrec ((#{f\ 4814}# + (lambda (#{x\ 4815}# #{result\ 4816}#) + (if (eof-object? #{x\ 4815}#) (begin - (close-input-port #{p\ 4713}#) - (reverse #{result\ 4719}#)) - (#{f\ 4717}# - (read #{p\ 4713}#) + (close-input-port #{p\ 4810}#) + (reverse #{result\ 4816}#)) + (#{f\ 4814}# + (read #{p\ 4810}#) (cons (datum->syntax - #{k\ 4709}# - #{x\ 4718}#) - #{result\ 4719}#)))))) - (#{f\ 4717}# (read #{p\ 4713}#) (quote ()))))))) - ((lambda (#{tmp\ 4720}#) - ((lambda (#{tmp\ 4721}#) - (if #{tmp\ 4721}# - (apply (lambda (#{k\ 4724}# #{filename\ 4725}#) - (let ((#{fn\ 4727}# - (syntax->datum #{filename\ 4725}#))) - ((lambda (#{tmp\ 4729}#) - ((lambda (#{tmp\ 4730}#) - (if #{tmp\ 4730}# - (apply (lambda (#{exp\ 4732}#) + #{k\ 4806}# + #{x\ 4815}#) + #{result\ 4816}#)))))) + (#{f\ 4814}# (read #{p\ 4810}#) (quote ()))))))) + ((lambda (#{tmp\ 4817}#) + ((lambda (#{tmp\ 4818}#) + (if #{tmp\ 4818}# + (apply (lambda (#{k\ 4821}# #{filename\ 4822}#) + (let ((#{fn\ 4824}# + (syntax->datum #{filename\ 4822}#))) + ((lambda (#{tmp\ 4826}#) + ((lambda (#{tmp\ 4827}#) + (if #{tmp\ 4827}# + (apply (lambda (#{exp\ 4829}#) (cons '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) - #("i4731")) + #("i4828")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4726")) + #("i4823")) #(ribcage #(k filename) #((top) (top)) - #("i4722" - "i4723")) + #("i4819" + "i4820")) #(ribcage (read-file) ((top)) - ("i4706")) + ("i4803")) #(ribcage #(x) #((top)) - #("i4705"))) + #("i4802"))) (hygiene guile)) - #{exp\ 4732}#)) - #{tmp\ 4730}#) + #{exp\ 4829}#)) + #{tmp\ 4827}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4729}#))) + #{tmp\ 4826}#))) ($sc-dispatch - #{tmp\ 4729}# + #{tmp\ 4826}# 'each-any))) - (#{read-file\ 4707}# - #{fn\ 4727}# - #{k\ 4724}#)))) - #{tmp\ 4721}#) + (#{read-file\ 4804}# + #{fn\ 4824}# + #{k\ 4821}#)))) + #{tmp\ 4818}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4720}#))) - ($sc-dispatch #{tmp\ 4720}# (quote (any any))))) - #{x\ 4704}#))) + #{tmp\ 4817}#))) + ($sc-dispatch #{tmp\ 4817}# (quote (any any))))) + #{x\ 4801}#))) (module-name (current-module))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (cons (lambda (#{x\ 4734}#) - ((lambda (#{tmp\ 4736}#) - ((lambda (#{tmp\ 4737}#) - (if #{tmp\ 4737}# - (apply (lambda (#{k\ 4740}# #{filename\ 4741}#) - (let ((#{fn\ 4743}# - (syntax->datum #{filename\ 4741}#))) - ((lambda (#{tmp\ 4745}#) - ((lambda (#{fn\ 4747}#) + (cons (lambda (#{x\ 4847}#) + ((lambda (#{tmp\ 4849}#) + ((lambda (#{tmp\ 4850}#) + (if #{tmp\ 4850}# + (apply (lambda (#{k\ 4853}# #{filename\ 4854}#) + (let ((#{fn\ 4856}# + (syntax->datum #{filename\ 4854}#))) + ((lambda (#{tmp\ 4858}#) + ((lambda (#{fn\ 4860}#) (list '#(syntax-object include ((top) #(ribcage #(fn) #((top)) - #("i4746")) + #("i4859")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(fn) #((top)) - #("i4742")) + #("i4855")) #(ribcage #(k filename) #((top) (top)) - #("i4738" "i4739")) + #("i4851" "i4852")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4735"))) + #("i4848"))) (hygiene guile)) - #{fn\ 4747}#)) - #{tmp\ 4745}#)) - (let ((#{t\ 4750}# - (%search-load-path #{fn\ 4743}#))) - (if #{t\ 4750}# - #{t\ 4750}# + #{fn\ 4860}#)) + #{tmp\ 4858}#)) + (let ((#{t\ 4863}# + (%search-load-path #{fn\ 4856}#))) + (if #{t\ 4863}# + #{t\ 4863}# (syntax-violation 'include-from-path "file not found in path" - #{x\ 4734}# - #{filename\ 4741}#)))))) - #{tmp\ 4737}#) + #{x\ 4847}# + #{filename\ 4854}#)))))) + #{tmp\ 4850}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4736}#))) - ($sc-dispatch #{tmp\ 4736}# (quote (any any))))) - #{x\ 4734}#)) + #{tmp\ 4849}#))) + ($sc-dispatch #{tmp\ 4849}# (quote (any any))))) + #{x\ 4847}#)) (module-name (current-module))))) (define unquote (make-syntax-transformer 'unquote 'macro - (cons (lambda (#{x\ 4752}#) - ((lambda (#{tmp\ 4754}#) - ((lambda (#{tmp\ 4755}#) - (if #{tmp\ 4755}# - (apply (lambda (#{_\ 4758}# #{e\ 4759}#) + (cons (lambda (#{x\ 4874}#) + ((lambda (#{tmp\ 4876}#) + ((lambda (#{tmp\ 4877}#) + (if #{tmp\ 4877}# + (apply (lambda (#{_\ 4880}# #{e\ 4881}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x\ 4752}#)) - #{tmp\ 4755}#) + #{x\ 4874}#)) + #{tmp\ 4877}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4754}#))) - ($sc-dispatch #{tmp\ 4754}# (quote (any any))))) - #{x\ 4752}#)) + #{tmp\ 4876}#))) + ($sc-dispatch #{tmp\ 4876}# (quote (any any))))) + #{x\ 4874}#)) (module-name (current-module))))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (cons (lambda (#{x\ 4760}#) - ((lambda (#{tmp\ 4762}#) - ((lambda (#{tmp\ 4763}#) - (if #{tmp\ 4763}# - (apply (lambda (#{_\ 4766}# #{e\ 4767}#) + (cons (lambda (#{x\ 4887}#) + ((lambda (#{tmp\ 4889}#) + ((lambda (#{tmp\ 4890}#) + (if #{tmp\ 4890}# + (apply (lambda (#{_\ 4893}# #{e\ 4894}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x\ 4760}#)) - #{tmp\ 4763}#) + #{x\ 4887}#)) + #{tmp\ 4890}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4762}#))) - ($sc-dispatch #{tmp\ 4762}# (quote (any any))))) - #{x\ 4760}#)) + #{tmp\ 4889}#))) + ($sc-dispatch #{tmp\ 4889}# (quote (any any))))) + #{x\ 4887}#)) (module-name (current-module))))) (define case (make-syntax-transformer 'case 'macro - (cons (lambda (#{x\ 4768}#) - ((lambda (#{tmp\ 4770}#) - ((lambda (#{tmp\ 4771}#) - (if #{tmp\ 4771}# - (apply (lambda (#{_\ 4776}# - #{e\ 4777}# - #{m1\ 4778}# - #{m2\ 4779}#) - ((lambda (#{tmp\ 4781}#) - ((lambda (#{body\ 4783}#) + (cons (lambda (#{x\ 4900}#) + ((lambda (#{tmp\ 4902}#) + ((lambda (#{tmp\ 4903}#) + (if #{tmp\ 4903}# + (apply (lambda (#{_\ 4908}# + #{e\ 4909}# + #{m1\ 4910}# + #{m2\ 4911}#) + ((lambda (#{tmp\ 4913}#) + ((lambda (#{body\ 4915}#) (list '#(syntax-object let ((top) #(ribcage #(body) #((top)) - #("i4782")) + #("i4914")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) (list (list '#(syntax-object t @@ -14635,35 +15661,35 @@ #(ribcage #(body) #((top)) - #("i4782")) + #("i4914")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) - #{e\ 4777}#)) - #{body\ 4783}#)) - #{tmp\ 4781}#)) - (letrec ((#{f\ 4787}# - (lambda (#{clause\ 4788}# - #{clauses\ 4789}#) - (if (null? #{clauses\ 4789}#) - ((lambda (#{tmp\ 4791}#) - ((lambda (#{tmp\ 4792}#) - (if #{tmp\ 4792}# - (apply (lambda (#{e1\ 4795}# - #{e2\ 4796}#) + #{e\ 4909}#)) + #{body\ 4915}#)) + #{tmp\ 4913}#)) + (letrec ((#{f\ 4919}# + (lambda (#{clause\ 4920}# + #{clauses\ 4921}#) + (if (null? #{clauses\ 4921}#) + ((lambda (#{tmp\ 4923}#) + ((lambda (#{tmp\ 4924}#) + (if #{tmp\ 4924}# + (apply (lambda (#{e1\ 4927}# + #{e2\ 4928}#) (cons '#(syntax-object begin ((top) @@ -14672,8 +15698,8 @@ e2) #((top) (top)) - #("i4793" - "i4794")) + #("i4925" + "i4926")) #(ribcage () () @@ -14685,9 +15711,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -14697,10 +15723,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -14708,17 +15734,17 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) - (cons #{e1\ 4795}# - #{e2\ 4796}#))) - #{tmp\ 4792}#) - ((lambda (#{tmp\ 4798}#) - (if #{tmp\ 4798}# - (apply (lambda (#{k\ 4802}# - #{e1\ 4803}# - #{e2\ 4804}#) + (cons #{e1\ 4927}# + #{e2\ 4928}#))) + #{tmp\ 4924}#) + ((lambda (#{tmp\ 4930}#) + (if #{tmp\ 4930}# + (apply (lambda (#{k\ 4934}# + #{e1\ 4935}# + #{e2\ 4936}#) (list '#(syntax-object if ((top) @@ -14729,9 +15755,9 @@ #((top) (top) (top)) - #("i4799" - "i4800" - "i4801")) + #("i4931" + "i4932" + "i4933")) #(ribcage () () @@ -14743,9 +15769,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -14755,10 +15781,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -14766,7 +15792,7 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) (list '#(syntax-object @@ -14779,9 +15805,9 @@ #((top) (top) (top)) - #("i4799" - "i4800" - "i4801")) + #("i4931" + "i4932" + "i4933")) #(ribcage () () @@ -14793,9 +15819,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -14805,10 +15831,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -14816,7 +15842,7 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) '#(syntax-object @@ -14829,9 +15855,9 @@ #((top) (top) (top)) - #("i4799" - "i4800" - "i4801")) + #("i4931" + "i4932" + "i4933")) #(ribcage () () @@ -14843,9 +15869,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -14855,10 +15881,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -14866,7 +15892,7 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) (list '#(syntax-object @@ -14879,9 +15905,9 @@ #((top) (top) (top)) - #("i4799" - "i4800" - "i4801")) + #("i4931" + "i4932" + "i4933")) #(ribcage () () @@ -14893,9 +15919,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -14905,10 +15931,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -14916,10 +15942,10 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) - #{k\ 4802}#)) + #{k\ 4934}#)) (cons '#(syntax-object begin ((top) @@ -14930,9 +15956,9 @@ #((top) (top) (top)) - #("i4799" - "i4800" - "i4801")) + #("i4931" + "i4932" + "i4933")) #(ribcage () () @@ -14944,9 +15970,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -14956,10 +15982,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -14967,27 +15993,27 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) - (cons #{e1\ 4803}# - #{e2\ 4804}#)))) - #{tmp\ 4798}#) - ((lambda (#{_\ 4808}#) + (cons #{e1\ 4935}# + #{e2\ 4936}#)))) + #{tmp\ 4930}#) + ((lambda (#{_\ 4940}#) (syntax-violation 'case "bad clause" - #{x\ 4768}# - #{clause\ 4788}#)) - #{tmp\ 4791}#))) + #{x\ 4900}# + #{clause\ 4920}#)) + #{tmp\ 4923}#))) ($sc-dispatch - #{tmp\ 4791}# + #{tmp\ 4923}# '(each-any any . each-any))))) ($sc-dispatch - #{tmp\ 4791}# + #{tmp\ 4923}# '(#(free-id #(syntax-object else @@ -14998,37 +16024,37 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile))) any . each-any)))) - #{clause\ 4788}#) - ((lambda (#{tmp\ 4810}#) - ((lambda (#{rest\ 4812}#) - ((lambda (#{tmp\ 4813}#) - ((lambda (#{tmp\ 4814}#) - (if #{tmp\ 4814}# - (apply (lambda (#{k\ 4818}# - #{e1\ 4819}# - #{e2\ 4820}#) + #{clause\ 4920}#) + ((lambda (#{tmp\ 4942}#) + ((lambda (#{rest\ 4944}#) + ((lambda (#{tmp\ 4945}#) + ((lambda (#{tmp\ 4946}#) + (if #{tmp\ 4946}# + (apply (lambda (#{k\ 4950}# + #{e1\ 4951}# + #{e2\ 4952}#) (list '#(syntax-object if ((top) @@ -15039,13 +16065,13 @@ #((top) (top) (top)) - #("i4815" - "i4816" - "i4817")) + #("i4947" + "i4948" + "i4949")) #(ribcage #(rest) #((top)) - #("i4811")) + #("i4943")) #(ribcage () () @@ -15057,9 +16083,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -15069,10 +16095,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -15080,7 +16106,7 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) (list '#(syntax-object @@ -15093,13 +16119,13 @@ #((top) (top) (top)) - #("i4815" - "i4816" - "i4817")) + #("i4947" + "i4948" + "i4949")) #(ribcage #(rest) #((top)) - #("i4811")) + #("i4943")) #(ribcage () () @@ -15111,9 +16137,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -15123,10 +16149,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -15134,7 +16160,7 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) '#(syntax-object @@ -15147,13 +16173,13 @@ #((top) (top) (top)) - #("i4815" - "i4816" - "i4817")) + #("i4947" + "i4948" + "i4949")) #(ribcage #(rest) #((top)) - #("i4811")) + #("i4943")) #(ribcage () () @@ -15165,9 +16191,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -15177,10 +16203,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -15188,7 +16214,7 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) (list '#(syntax-object @@ -15201,13 +16227,13 @@ #((top) (top) (top)) - #("i4815" - "i4816" - "i4817")) + #("i4947" + "i4948" + "i4949")) #(ribcage #(rest) #((top)) - #("i4811")) + #("i4943")) #(ribcage () () @@ -15219,9 +16245,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -15231,10 +16257,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -15242,10 +16268,10 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) - #{k\ 4818}#)) + #{k\ 4950}#)) (cons '#(syntax-object begin ((top) @@ -15256,13 +16282,13 @@ #((top) (top) (top)) - #("i4815" - "i4816" - "i4817")) + #("i4947" + "i4948" + "i4949")) #(ribcage #(rest) #((top)) - #("i4811")) + #("i4943")) #(ribcage () () @@ -15274,9 +16300,9 @@ #((top) (top) (top)) - #("i4784" - "i4785" - "i4786")) + #("i4916" + "i4917" + "i4918")) #(ribcage #(_ e @@ -15286,10 +16312,10 @@ (top) (top) (top)) - #("i4772" - "i4773" - "i4774" - "i4775")) + #("i4904" + "i4905" + "i4906" + "i4907")) #(ribcage () () @@ -15297,61 +16323,61 @@ #(ribcage #(x) #((top)) - #("i4769"))) + #("i4901"))) (hygiene guile)) - (cons #{e1\ 4819}# - #{e2\ 4820}#)) - #{rest\ 4812}#)) - #{tmp\ 4814}#) - ((lambda (#{_\ 4824}#) + (cons #{e1\ 4951}# + #{e2\ 4952}#)) + #{rest\ 4944}#)) + #{tmp\ 4946}#) + ((lambda (#{_\ 4956}#) (syntax-violation 'case "bad clause" - #{x\ 4768}# - #{clause\ 4788}#)) - #{tmp\ 4813}#))) + #{x\ 4900}# + #{clause\ 4920}#)) + #{tmp\ 4945}#))) ($sc-dispatch - #{tmp\ 4813}# + #{tmp\ 4945}# '(each-any any . each-any)))) - #{clause\ 4788}#)) - #{tmp\ 4810}#)) - (#{f\ 4787}# - (car #{clauses\ 4789}#) - (cdr #{clauses\ 4789}#))))))) - (#{f\ 4787}# #{m1\ 4778}# #{m2\ 4779}#)))) - #{tmp\ 4771}#) + #{clause\ 4920}#)) + #{tmp\ 4942}#)) + (#{f\ 4919}# + (car #{clauses\ 4921}#) + (cdr #{clauses\ 4921}#))))))) + (#{f\ 4919}# #{m1\ 4910}# #{m2\ 4911}#)))) + #{tmp\ 4903}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4770}#))) + #{tmp\ 4902}#))) ($sc-dispatch - #{tmp\ 4770}# + #{tmp\ 4902}# '(any any any . each-any)))) - #{x\ 4768}#)) + #{x\ 4900}#)) (module-name (current-module))))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (cons (lambda (#{x\ 4825}#) - ((lambda (#{tmp\ 4827}#) - ((lambda (#{tmp\ 4828}#) - (if #{tmp\ 4828}# - (apply (lambda (#{_\ 4831}# #{e\ 4832}#) + (cons (lambda (#{x\ 4986}#) + ((lambda (#{tmp\ 4988}#) + ((lambda (#{tmp\ 4989}#) + (if #{tmp\ 4989}# + (apply (lambda (#{_\ 4992}# #{e\ 4993}#) (list '#(syntax-object lambda ((top) #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4826"))) + #(ribcage #(x) #((top)) #("i4987"))) (hygiene guile)) '(#(syntax-object x @@ -15359,9 +16385,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4826"))) + #(ribcage #(x) #((top)) #("i4987"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -15369,9 +16395,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4826"))) + #(ribcage #(x) #((top)) #("i4987"))) (hygiene guile)) . #(syntax-object @@ -15380,9 +16406,9 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4826"))) + #(ribcage #(x) #((top)) #("i4987"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -15390,12 +16416,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) '#(syntax-object x @@ -15403,12 +16429,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) '() (list '#(syntax-object @@ -15417,12 +16443,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) '(#(syntax-object identifier? @@ -15430,12 +16456,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) (#(syntax-object syntax @@ -15443,12 +16469,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) #(syntax-object id @@ -15456,12 +16482,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15469,27 +16495,27 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) - #{e\ 4832}#)) - (list (cons #{_\ 4831}# + #{e\ 4993}#)) + (list (cons #{_\ 4992}# '(#(syntax-object x ((top) #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) #(syntax-object ... @@ -15497,12 +16523,12 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -15510,14 +16536,14 @@ #(ribcage #(_ e) #((top) (top)) - #("i4829" "i4830")) + #("i4990" "i4991")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) - (cons #{e\ 4832}# + (cons #{e\ 4993}# '(#(syntax-object x ((top) @@ -15525,8 +16551,8 @@ #(_ e) #((top) (top)) - #("i4829" - "i4830")) + #("i4990" + "i4991")) #(ribcage () () @@ -15534,7 +16560,7 @@ #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile)) #(syntax-object ... @@ -15543,8 +16569,8 @@ #(_ e) #((top) (top)) - #("i4829" - "i4830")) + #("i4990" + "i4991")) #(ribcage () () @@ -15552,72 +16578,72 @@ #(ribcage #(x) #((top)) - #("i4826"))) + #("i4987"))) (hygiene guile))))))))) - #{tmp\ 4828}#) + #{tmp\ 4989}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4827}#))) - ($sc-dispatch #{tmp\ 4827}# (quote (any any))))) - #{x\ 4825}#)) + #{tmp\ 4988}#))) + ($sc-dispatch #{tmp\ 4988}# (quote (any any))))) + #{x\ 4986}#)) (module-name (current-module))))) (define define* (make-syntax-transformer 'define* 'macro - (cons (lambda (#{x\ 4833}#) - ((lambda (#{tmp\ 4835}#) - ((lambda (#{tmp\ 4836}#) - (if #{tmp\ 4836}# - (apply (lambda (#{_\ 4842}# - #{id\ 4843}# - #{args\ 4844}# - #{b0\ 4845}# - #{b1\ 4846}#) + (cons (lambda (#{x\ 4999}#) + ((lambda (#{tmp\ 5001}#) + ((lambda (#{tmp\ 5002}#) + (if #{tmp\ 5002}# + (apply (lambda (#{_\ 5008}# + #{id\ 5009}# + #{args\ 5010}# + #{b0\ 5011}# + #{b1\ 5012}#) (list '#(syntax-object define ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) + #("i5003" + "i5004" + "i5005" + "i5006" + "i5007")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("i4834"))) + #(ribcage #(x) #((top)) #("i5000"))) (hygiene guile)) - #{id\ 4843}# + #{id\ 5009}# (cons '#(syntax-object lambda* ((top) #(ribcage #(_ id args b0 b1) #((top) (top) (top) (top) (top)) - #("i4837" - "i4838" - "i4839" - "i4840" - "i4841")) + #("i5003" + "i5004" + "i5005" + "i5006" + "i5007")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4834"))) + #("i5000"))) (hygiene guile)) - (cons #{args\ 4844}# - (cons #{b0\ 4845}# - #{b1\ 4846}#))))) - #{tmp\ 4836}#) - ((lambda (#{tmp\ 4848}#) - (if (if #{tmp\ 4848}# - (apply (lambda (#{_\ 4852}# - #{id\ 4853}# - #{val\ 4854}#) + (cons #{args\ 5010}# + (cons #{b0\ 5011}# + #{b1\ 5012}#))))) + #{tmp\ 5002}#) + ((lambda (#{tmp\ 5014}#) + (if (if #{tmp\ 5014}# + (apply (lambda (#{_\ 5018}# + #{id\ 5019}# + #{val\ 5020}#) (identifier? '#(syntax-object x @@ -15625,44 +16651,44 @@ #(ribcage #(_ id val) #((top) (top) (top)) - #("i4849" "i4850" "i4851")) + #("i5015" "i5016" "i5017")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4834"))) + #("i5000"))) (hygiene guile)))) - #{tmp\ 4848}#) + #{tmp\ 5014}#) #f) - (apply (lambda (#{_\ 4858}# - #{id\ 4859}# - #{val\ 4860}#) + (apply (lambda (#{_\ 5024}# + #{id\ 5025}# + #{val\ 5026}#) (list '#(syntax-object define ((top) #(ribcage #(_ id val) #((top) (top) (top)) - #("i4855" "i4856" "i4857")) + #("i5021" "i5022" "i5023")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("i4834"))) + #("i5000"))) (hygiene guile)) - #{id\ 4859}# - #{val\ 4860}#)) - #{tmp\ 4848}#) + #{id\ 5025}# + #{val\ 5026}#)) + #{tmp\ 5014}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp\ 4835}#))) + #{tmp\ 5001}#))) ($sc-dispatch - #{tmp\ 4835}# + #{tmp\ 5001}# '(any any any))))) ($sc-dispatch - #{tmp\ 4835}# + #{tmp\ 5001}# '(any (any . any) any . each-any)))) - #{x\ 4833}#)) + #{x\ 4999}#)) (module-name (current-module))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 877269c58..169f01068 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -224,6 +224,24 @@ (apply f (cons x xr)) (and (apply f (cons x xr)) (andmap first rest))))))))) +(define-syntax define-expansion-constructors + (lambda (x) + (syntax-case x () + ((_) + (let lp ((n 0) (out '())) + (if (< n (vector-length %expanded-vtables)) + (lp (1+ n) + (let* ((vtable (vector-ref %expanded-vtables n)) + (stem (struct-ref vtable (+ vtable-offset-user 0))) + (fields (struct-ref vtable (+ vtable-offset-user 2))) + (sfields (map (lambda (f) (datum->syntax x f)) fields)) + (ctor (datum->syntax x (symbol-append 'make- stem)))) + (cons #`(define (#,ctor #,@sfields) + (make-struct (vector-ref %expanded-vtables #,n) 0 + #,@sfields)) + out))) + #`(begin #,@(reverse out)))))))) + (define-syntax define-structure (lambda (x) (define construct-name @@ -278,6 +296,8 @@ (let () (define *mode* (make-fluid)) + (define-expansion-constructors) + ;;; hooks to nonportable run-time helpers (begin (define fx+ +)